From d6b9e1d86a5e4274d98f36670586c55b92e97d82 Mon Sep 17 00:00:00 2001 From: Ryzerth Date: Sat, 19 Sep 2020 12:48:34 +0200 Subject: [PATCH 01/33] new modole system --- CMakeLists.txt | 70 +---- core/CMakeLists.txt | 74 ++++++ {src => core/src}/audio.cpp | 0 {src => core/src}/audio.h | 0 {src => core/src}/bandplan.cpp | 0 {src => core/src}/bandplan.h | 0 {src => core/src}/config.cpp | 0 {src => core/src}/config.h | 0 core/src/core.cpp | 250 ++++++++++++++++++ core/src/core.h | 3 + {src => core/src}/dsp/block.h | 0 {src => core/src}/dsp/correction.h | 0 {src => core/src}/dsp/demodulator.h | 0 {src => core/src}/dsp/filter.h | 0 {src => core/src}/dsp/math.h | 0 {src => core/src}/dsp/resampling.h | 0 {src => core/src}/dsp/routing.h | 0 {src => core/src}/dsp/sink.h | 0 {src => core/src}/dsp/source.h | 0 {src => core/src}/dsp/stream.h | 0 {src => core/src}/dsp/types.h | 0 {src => core/src}/dsp/vfo.h | 0 {src => core/src}/frequency_select.cpp | 1 + {src => core/src}/frequency_select.h | 0 {src => core/src}/icons.cpp | 0 {src => core/src}/icons.h | 0 {src => core/src}/imgui/imconfig.h | 0 {src => core/src}/imgui/imgui.cpp | 0 {src => core/src}/imgui/imgui.h | 0 {src => core/src}/imgui/imgui_demo.cpp | 0 {src => core/src}/imgui/imgui_draw.cpp | 0 {src => core/src}/imgui/imgui_impl_glfw.cpp | 0 {src => core/src}/imgui/imgui_impl_glfw.h | 0 .../src}/imgui/imgui_impl_opengl3.cpp | 0 {src => core/src}/imgui/imgui_impl_opengl3.h | 0 {src => core/src}/imgui/imgui_internal.h | 0 {src => core/src}/imgui/imgui_plot.cpp | 0 {src => core/src}/imgui/imgui_plot.h | 0 {src => core/src}/imgui/imgui_widgets.cpp | 0 {src => core/src}/imgui/imstb_rectpack.h | 0 {src => core/src}/imgui/imstb_textedit.h | 0 {src => core/src}/imgui/imstb_truetype.h | 0 {src => core/src}/imgui/imutils.h | 0 {src => core/src}/imgui/stb_image.h | 0 {src => core/src}/imgui/stb_image_resize.h | 0 {src => core/src}/io/audio.h | 0 {src => core/src}/io/soapy.h | 7 +- {src => core/src}/json.hpp | 0 {src => core/src}/main_window.cpp | 3 + {src => core/src}/main_window.h | 0 {src => core/src}/module.cpp | 0 {src => core/src}/module.h | 0 {src => core/src}/signal_path.cpp | 0 {src => core/src}/signal_path.h | 0 {src => core/src}/spdlog/async.h | 0 {src => core/src}/spdlog/async_logger-inl.h | 0 {src => core/src}/spdlog/async_logger.h | 0 {src => core/src}/spdlog/cfg/argv.h | 0 {src => core/src}/spdlog/cfg/env.h | 0 {src => core/src}/spdlog/cfg/helpers-inl.h | 0 {src => core/src}/spdlog/cfg/helpers.h | 0 {src => core/src}/spdlog/cfg/log_levels.h | 0 {src => core/src}/spdlog/common-inl.h | 0 {src => core/src}/spdlog/common.h | 0 .../src}/spdlog/details/backtracer-inl.h | 0 {src => core/src}/spdlog/details/backtracer.h | 0 {src => core/src}/spdlog/details/circular_q.h | 0 .../src}/spdlog/details/console_globals.h | 0 .../src}/spdlog/details/file_helper-inl.h | 0 .../src}/spdlog/details/file_helper.h | 0 {src => core/src}/spdlog/details/fmt_helper.h | 0 .../src}/spdlog/details/log_msg-inl.h | 0 {src => core/src}/spdlog/details/log_msg.h | 0 .../src}/spdlog/details/log_msg_buffer-inl.h | 0 .../src}/spdlog/details/log_msg_buffer.h | 0 .../src}/spdlog/details/mpmc_blocking_q.h | 0 {src => core/src}/spdlog/details/null_mutex.h | 0 {src => core/src}/spdlog/details/os-inl.h | 0 {src => core/src}/spdlog/details/os.h | 0 .../src}/spdlog/details/periodic_worker-inl.h | 0 .../src}/spdlog/details/periodic_worker.h | 0 .../src}/spdlog/details/registry-inl.h | 0 {src => core/src}/spdlog/details/registry.h | 0 .../src}/spdlog/details/synchronous_factory.h | 0 .../src}/spdlog/details/tcp_client-windows.h | 0 {src => core/src}/spdlog/details/tcp_client.h | 0 .../src}/spdlog/details/thread_pool-inl.h | 0 .../src}/spdlog/details/thread_pool.h | 0 .../src}/spdlog/details/windows_include.h | 0 {src => core/src}/spdlog/fmt/bin_to_hex.h | 0 .../src}/spdlog/fmt/bundled/LICENSE.rst | 0 {src => core/src}/spdlog/fmt/bundled/chrono.h | 0 {src => core/src}/spdlog/fmt/bundled/color.h | 0 .../src}/spdlog/fmt/bundled/compile.h | 0 {src => core/src}/spdlog/fmt/bundled/core.h | 0 .../src}/spdlog/fmt/bundled/format-inl.h | 0 {src => core/src}/spdlog/fmt/bundled/format.h | 0 {src => core/src}/spdlog/fmt/bundled/locale.h | 0 .../src}/spdlog/fmt/bundled/ostream.h | 0 {src => core/src}/spdlog/fmt/bundled/posix.h | 0 {src => core/src}/spdlog/fmt/bundled/printf.h | 0 {src => core/src}/spdlog/fmt/bundled/ranges.h | 0 {src => core/src}/spdlog/fmt/fmt.h | 0 {src => core/src}/spdlog/fmt/ostr.h | 0 {src => core/src}/spdlog/formatter.h | 0 {src => core/src}/spdlog/fwd.h | 0 {src => core/src}/spdlog/logger-inl.h | 0 {src => core/src}/spdlog/logger.h | 0 .../src}/spdlog/pattern_formatter-inl.h | 0 {src => core/src}/spdlog/pattern_formatter.h | 0 {src => core/src}/spdlog/sinks/android_sink.h | 0 .../src}/spdlog/sinks/ansicolor_sink-inl.h | 0 .../src}/spdlog/sinks/ansicolor_sink.h | 0 .../src}/spdlog/sinks/base_sink-inl.h | 0 {src => core/src}/spdlog/sinks/base_sink.h | 0 .../src}/spdlog/sinks/basic_file_sink-inl.h | 0 .../src}/spdlog/sinks/basic_file_sink.h | 0 .../src}/spdlog/sinks/daily_file_sink.h | 0 {src => core/src}/spdlog/sinks/dist_sink.h | 0 .../src}/spdlog/sinks/dup_filter_sink.h | 0 {src => core/src}/spdlog/sinks/msvc_sink.h | 0 {src => core/src}/spdlog/sinks/null_sink.h | 0 {src => core/src}/spdlog/sinks/ostream_sink.h | 0 .../src}/spdlog/sinks/ringbuffer_sink.h | 0 .../spdlog/sinks/rotating_file_sink-inl.h | 0 .../src}/spdlog/sinks/rotating_file_sink.h | 0 {src => core/src}/spdlog/sinks/sink-inl.h | 0 {src => core/src}/spdlog/sinks/sink.h | 0 .../spdlog/sinks/stdout_color_sinks-inl.h | 0 .../src}/spdlog/sinks/stdout_color_sinks.h | 0 .../src}/spdlog/sinks/stdout_sinks-inl.h | 0 {src => core/src}/spdlog/sinks/stdout_sinks.h | 0 {src => core/src}/spdlog/sinks/syslog_sink.h | 0 {src => core/src}/spdlog/sinks/systemd_sink.h | 0 {src => core/src}/spdlog/sinks/tcp_sink.h | 0 .../src}/spdlog/sinks/win_eventlog_sink.h | 0 .../src}/spdlog/sinks/wincolor_sink-inl.h | 0 .../src}/spdlog/sinks/wincolor_sink.h | 0 {src => core/src}/spdlog/spdlog-inl.h | 0 {src => core/src}/spdlog/spdlog.h | 0 {src => core/src}/spdlog/tweakme.h | 0 {src => core/src}/spdlog/version.h | 0 {src => core/src}/style.cpp | 4 + {src => core/src}/style.h | 1 + {src => core/src}/version.h | 0 {src => core/src}/vfo_manager.cpp | 0 {src => core/src}/vfo_manager.h | 0 {src => core/src}/watcher.h | 0 {src => core/src}/waterfall.cpp | 0 {src => core/src}/waterfall.h | 0 demo/CMakeLists.txt | 7 + demo/src/main.cpp | 38 +++ modules/demo/CMakeLists.txt | 55 ---- modules/demo/src/main.cpp | 38 --- {modules/radio => radio}/CMakeLists.txt | 8 +- {modules/radio => radio}/src/main.cpp | 0 {modules/radio => radio}/src/path.cpp | 0 {modules/radio => radio}/src/path.h | 0 {modules/recorder => recorder}/CMakeLists.txt | 8 +- {modules/recorder => recorder}/src/main.cpp | 0 {modules/recorder => recorder}/src/wav.h | 0 root_dev/config.json | 4 +- root_dev/module_list.json | 6 +- src/main.cpp | 250 +----------------- 164 files changed, 414 insertions(+), 413 deletions(-) create mode 100644 core/CMakeLists.txt rename {src => core/src}/audio.cpp (100%) rename {src => core/src}/audio.h (100%) rename {src => core/src}/bandplan.cpp (100%) rename {src => core/src}/bandplan.h (100%) rename {src => core/src}/config.cpp (100%) rename {src => core/src}/config.h (100%) create mode 100644 core/src/core.cpp create mode 100644 core/src/core.h rename {src => core/src}/dsp/block.h (100%) rename {src => core/src}/dsp/correction.h (100%) rename {src => core/src}/dsp/demodulator.h (100%) rename {src => core/src}/dsp/filter.h (100%) rename {src => core/src}/dsp/math.h (100%) rename {src => core/src}/dsp/resampling.h (100%) rename {src => core/src}/dsp/routing.h (100%) rename {src => core/src}/dsp/sink.h (100%) rename {src => core/src}/dsp/source.h (100%) rename {src => core/src}/dsp/stream.h (100%) rename {src => core/src}/dsp/types.h (100%) rename {src => core/src}/dsp/vfo.h (100%) rename {src => core/src}/frequency_select.cpp (99%) rename {src => core/src}/frequency_select.h (100%) rename {src => core/src}/icons.cpp (100%) rename {src => core/src}/icons.h (100%) rename {src => core/src}/imgui/imconfig.h (100%) rename {src => core/src}/imgui/imgui.cpp (100%) rename {src => core/src}/imgui/imgui.h (100%) rename {src => core/src}/imgui/imgui_demo.cpp (100%) rename {src => core/src}/imgui/imgui_draw.cpp (100%) rename {src => core/src}/imgui/imgui_impl_glfw.cpp (100%) rename {src => core/src}/imgui/imgui_impl_glfw.h (100%) rename {src => core/src}/imgui/imgui_impl_opengl3.cpp (100%) rename {src => core/src}/imgui/imgui_impl_opengl3.h (100%) rename {src => core/src}/imgui/imgui_internal.h (100%) rename {src => core/src}/imgui/imgui_plot.cpp (100%) rename {src => core/src}/imgui/imgui_plot.h (100%) rename {src => core/src}/imgui/imgui_widgets.cpp (100%) rename {src => core/src}/imgui/imstb_rectpack.h (100%) rename {src => core/src}/imgui/imstb_textedit.h (100%) rename {src => core/src}/imgui/imstb_truetype.h (100%) rename {src => core/src}/imgui/imutils.h (100%) rename {src => core/src}/imgui/stb_image.h (100%) rename {src => core/src}/imgui/stb_image_resize.h (100%) rename {src => core/src}/io/audio.h (100%) rename {src => core/src}/io/soapy.h (98%) rename {src => core/src}/json.hpp (100%) rename {src => core/src}/main_window.cpp (99%) rename {src => core/src}/main_window.h (100%) rename {src => core/src}/module.cpp (100%) rename {src => core/src}/module.h (100%) rename {src => core/src}/signal_path.cpp (100%) rename {src => core/src}/signal_path.h (100%) rename {src => core/src}/spdlog/async.h (100%) rename {src => core/src}/spdlog/async_logger-inl.h (100%) rename {src => core/src}/spdlog/async_logger.h (100%) rename {src => core/src}/spdlog/cfg/argv.h (100%) rename {src => core/src}/spdlog/cfg/env.h (100%) rename {src => core/src}/spdlog/cfg/helpers-inl.h (100%) rename {src => core/src}/spdlog/cfg/helpers.h (100%) rename {src => core/src}/spdlog/cfg/log_levels.h (100%) rename {src => core/src}/spdlog/common-inl.h (100%) rename {src => core/src}/spdlog/common.h (100%) rename {src => core/src}/spdlog/details/backtracer-inl.h (100%) rename {src => core/src}/spdlog/details/backtracer.h (100%) rename {src => core/src}/spdlog/details/circular_q.h (100%) rename {src => core/src}/spdlog/details/console_globals.h (100%) rename {src => core/src}/spdlog/details/file_helper-inl.h (100%) rename {src => core/src}/spdlog/details/file_helper.h (100%) rename {src => core/src}/spdlog/details/fmt_helper.h (100%) rename {src => core/src}/spdlog/details/log_msg-inl.h (100%) rename {src => core/src}/spdlog/details/log_msg.h (100%) rename {src => core/src}/spdlog/details/log_msg_buffer-inl.h (100%) rename {src => core/src}/spdlog/details/log_msg_buffer.h (100%) rename {src => core/src}/spdlog/details/mpmc_blocking_q.h (100%) rename {src => core/src}/spdlog/details/null_mutex.h (100%) rename {src => core/src}/spdlog/details/os-inl.h (100%) rename {src => core/src}/spdlog/details/os.h (100%) rename {src => core/src}/spdlog/details/periodic_worker-inl.h (100%) rename {src => core/src}/spdlog/details/periodic_worker.h (100%) rename {src => core/src}/spdlog/details/registry-inl.h (100%) rename {src => core/src}/spdlog/details/registry.h (100%) rename {src => core/src}/spdlog/details/synchronous_factory.h (100%) rename {src => core/src}/spdlog/details/tcp_client-windows.h (100%) rename {src => core/src}/spdlog/details/tcp_client.h (100%) rename {src => core/src}/spdlog/details/thread_pool-inl.h (100%) rename {src => core/src}/spdlog/details/thread_pool.h (100%) rename {src => core/src}/spdlog/details/windows_include.h (100%) rename {src => core/src}/spdlog/fmt/bin_to_hex.h (100%) rename {src => core/src}/spdlog/fmt/bundled/LICENSE.rst (100%) rename {src => core/src}/spdlog/fmt/bundled/chrono.h (100%) rename {src => core/src}/spdlog/fmt/bundled/color.h (100%) rename {src => core/src}/spdlog/fmt/bundled/compile.h (100%) rename {src => core/src}/spdlog/fmt/bundled/core.h (100%) rename {src => core/src}/spdlog/fmt/bundled/format-inl.h (100%) rename {src => core/src}/spdlog/fmt/bundled/format.h (100%) rename {src => core/src}/spdlog/fmt/bundled/locale.h (100%) rename {src => core/src}/spdlog/fmt/bundled/ostream.h (100%) rename {src => core/src}/spdlog/fmt/bundled/posix.h (100%) rename {src => core/src}/spdlog/fmt/bundled/printf.h (100%) rename {src => core/src}/spdlog/fmt/bundled/ranges.h (100%) rename {src => core/src}/spdlog/fmt/fmt.h (100%) rename {src => core/src}/spdlog/fmt/ostr.h (100%) rename {src => core/src}/spdlog/formatter.h (100%) rename {src => core/src}/spdlog/fwd.h (100%) rename {src => core/src}/spdlog/logger-inl.h (100%) rename {src => core/src}/spdlog/logger.h (100%) rename {src => core/src}/spdlog/pattern_formatter-inl.h (100%) rename {src => core/src}/spdlog/pattern_formatter.h (100%) rename {src => core/src}/spdlog/sinks/android_sink.h (100%) rename {src => core/src}/spdlog/sinks/ansicolor_sink-inl.h (100%) rename {src => core/src}/spdlog/sinks/ansicolor_sink.h (100%) rename {src => core/src}/spdlog/sinks/base_sink-inl.h (100%) rename {src => core/src}/spdlog/sinks/base_sink.h (100%) rename {src => core/src}/spdlog/sinks/basic_file_sink-inl.h (100%) rename {src => core/src}/spdlog/sinks/basic_file_sink.h (100%) rename {src => core/src}/spdlog/sinks/daily_file_sink.h (100%) rename {src => core/src}/spdlog/sinks/dist_sink.h (100%) rename {src => core/src}/spdlog/sinks/dup_filter_sink.h (100%) rename {src => core/src}/spdlog/sinks/msvc_sink.h (100%) rename {src => core/src}/spdlog/sinks/null_sink.h (100%) rename {src => core/src}/spdlog/sinks/ostream_sink.h (100%) rename {src => core/src}/spdlog/sinks/ringbuffer_sink.h (100%) rename {src => core/src}/spdlog/sinks/rotating_file_sink-inl.h (100%) rename {src => core/src}/spdlog/sinks/rotating_file_sink.h (100%) rename {src => core/src}/spdlog/sinks/sink-inl.h (100%) rename {src => core/src}/spdlog/sinks/sink.h (100%) rename {src => core/src}/spdlog/sinks/stdout_color_sinks-inl.h (100%) rename {src => core/src}/spdlog/sinks/stdout_color_sinks.h (100%) rename {src => core/src}/spdlog/sinks/stdout_sinks-inl.h (100%) rename {src => core/src}/spdlog/sinks/stdout_sinks.h (100%) rename {src => core/src}/spdlog/sinks/syslog_sink.h (100%) rename {src => core/src}/spdlog/sinks/systemd_sink.h (100%) rename {src => core/src}/spdlog/sinks/tcp_sink.h (100%) rename {src => core/src}/spdlog/sinks/win_eventlog_sink.h (100%) rename {src => core/src}/spdlog/sinks/wincolor_sink-inl.h (100%) rename {src => core/src}/spdlog/sinks/wincolor_sink.h (100%) rename {src => core/src}/spdlog/spdlog-inl.h (100%) rename {src => core/src}/spdlog/spdlog.h (100%) rename {src => core/src}/spdlog/tweakme.h (100%) rename {src => core/src}/spdlog/version.h (100%) rename {src => core/src}/style.cpp (98%) rename {src => core/src}/style.h (91%) rename {src => core/src}/version.h (100%) rename {src => core/src}/vfo_manager.cpp (100%) rename {src => core/src}/vfo_manager.h (100%) rename {src => core/src}/watcher.h (100%) rename {src => core/src}/waterfall.cpp (100%) rename {src => core/src}/waterfall.h (100%) create mode 100644 demo/CMakeLists.txt create mode 100644 demo/src/main.cpp delete mode 100644 modules/demo/CMakeLists.txt delete mode 100644 modules/demo/src/main.cpp rename {modules/radio => radio}/CMakeLists.txt (90%) rename {modules/radio => radio}/src/main.cpp (100%) rename {modules/radio => radio}/src/path.cpp (100%) rename {modules/radio => radio}/src/path.h (100%) rename {modules/recorder => recorder}/CMakeLists.txt (89%) rename {modules/recorder => recorder}/src/main.cpp (100%) rename {modules/recorder => recorder}/src/wav.h (100%) diff --git a/CMakeLists.txt b/CMakeLists.txt index 9b95e1d..a9c6c4b 100644 --- a/CMakeLists.txt +++ b/CMakeLists.txt @@ -1,65 +1,19 @@ -cmake_minimum_required(VERSION 3.9) -project(sdrpp) +cmake_minimum_required(VERSION 3.13) +project(sdrpp_core) -add_subdirectory("modules/radio") -add_subdirectory("modules/recorder") +add_subdirectory("core") +add_subdirectory("radio") +add_subdirectory("recorder") +add_subdirectory("demo") +add_executable(sdrpp "src/main.cpp" "win32/resources.rc") +target_link_libraries(sdrpp PRIVATE sdrpp_core) + +# Copy dynamic libs over if (MSVC) - set(CMAKE_CXX_FLAGS "-O2 /std:c++17") - link_directories(sdrpp "C:/Program Files/PothosSDR/lib/") - include_directories(sdrpp "C:/Program Files/PothosSDR/include/volk/") - include_directories(sdrpp "C:/Program Files/PothosSDR/include/") - set(CMAKE_WINDOWS_EXPORT_ALL_SYMBOLS ON) + add_custom_target(do_always ALL xcopy /s \"$\\*.dll\" \"$\" /Y) else() - set(CMAKE_CXX_FLAGS "-O3 -std=c++17 -fpermissive -fsanitize=address -g") - # set(CMAKE_CXX_FLAGS "-O3 -std=c++17 -fpermissive") - include_directories(sdrpp "/usr/include/volk") - link_libraries(pthread) - link_libraries(GL) - link_libraries(GLEW) - link_libraries(glfw) - link_libraries(fftw3) - link_libraries(fftw3f) - link_libraries(portaudio) - link_libraries(X11) - link_libraries(Xxf86vm) - link_libraries(dl) -endif (MSVC) - -link_libraries(volk) -link_libraries(SoapySDR) - -# Main code -include_directories(sdrpp "src/") -include_directories(sdrpp "src/imgui") -file(GLOB SRC "src/*.cpp") -file(GLOB IMGUI "src/imgui/*.cpp") - -# If on windows, set the executable icon -if (MSVC) - set(SRC ${SRC} "win32/resources.rc") -endif (MSVC) - -add_executable(sdrpp ${SRC} ${IMGUI}) - -if (MSVC) - # Glew - find_package(GLEW REQUIRED) - target_link_libraries(sdrpp PRIVATE GLEW::GLEW) - - # GLFW3 - find_package(glfw3 CONFIG REQUIRED) - target_link_libraries(sdrpp PRIVATE glfw) - - # FFTW3 - find_package(FFTW3 CONFIG REQUIRED) - target_link_libraries(sdrpp PRIVATE FFTW3::fftw3) - find_package(FFTW3f CONFIG REQUIRED) - target_link_libraries(sdrpp PRIVATE FFTW3::fftw3f) - - # PortAudio - find_package(portaudio CONFIG REQUIRED) - target_link_libraries(sdrpp PRIVATE portaudio portaudio_static) + add_custom_target(do_always ALL cp \"$/sdrpp_core.so\" \"$\") endif (MSVC) # cmake .. "-DCMAKE_TOOLCHAIN_FILE=C:/Users/Alex/vcpkg/scripts/buildsystems/vcpkg.cmake" -G "Visual Studio 15 2017 Win64" \ No newline at end of file diff --git a/core/CMakeLists.txt b/core/CMakeLists.txt new file mode 100644 index 0000000..d08495d --- /dev/null +++ b/core/CMakeLists.txt @@ -0,0 +1,74 @@ +cmake_minimum_required(VERSION 3.13) +project(sdrpp_core) + +# Set compiler options +if (MSVC) + set(CMAKE_CXX_FLAGS "-O2 /std:c++17") + set(CMAKE_WINDOWS_EXPORT_ALL_SYMBOLS ON) +else() + set(CMAKE_CXX_FLAGS "-O3 -std=c++17 -fpermissive -fsanitize=address -g") + # set(CMAKE_CXX_FLAGS "-O3 -std=c++17 -fpermissive") +endif (MSVC) + +# Main code +file(GLOB SRC "src/*.cpp") +file(GLOB IMGUI "src/imgui/*.cpp") + +# Add code to dyn lib +add_library(sdrpp_core SHARED ${SRC} ${IMGUI}) + +# Include core headers +target_include_directories(sdrpp_core PUBLIC "src/") +target_include_directories(sdrpp_core PUBLIC "src/imgui") + + +if (MSVC) + # Lib path + target_link_directories(sdrpp_core PUBLIC "C:/Program Files/PothosSDR/lib/") + + # Misc headers + target_include_directories(sdrpp_core PUBLIC "C:/Program Files/PothosSDR/include/") + + # Volk + target_include_directories(sdrpp_core PUBLIC "C:/Program Files/PothosSDR/include/volk/") + target_link_libraries(sdrpp_core PUBLIC volk) + + # SoapySDR + target_link_libraries(sdrpp_core PUBLIC SoapySDR) + + # Glew + find_package(GLEW REQUIRED) + target_link_libraries(sdrpp_core PUBLIC GLEW::GLEW) + + # GLFW3 + find_package(glfw3 CONFIG REQUIRED) + target_link_libraries(sdrpp_core PUBLIC glfw) + + # FFTW3 + find_package(FFTW3 CONFIG REQUIRED) + target_link_libraries(sdrpp_core PUBLIC FFTW3::fftw3) + find_package(FFTW3f CONFIG REQUIRED) + target_link_libraries(sdrpp_core PUBLIC FFTW3::fftw3f) + + # PortAudio + find_package(portaudio CONFIG REQUIRED) + target_link_libraries(sdrpp_core PUBLIC portaudio portaudio_static) + +else() + target_include_directories(sdrpp_core PUBLIC "/usr/include/volk") + + target_link_libraries(sdrpp_core PUBLIC pthread) + target_link_libraries(sdrpp_core PUBLIC GL) + target_link_libraries(sdrpp_core PUBLIC GLEW) + target_link_libraries(sdrpp_core PUBLIC glfw) + target_link_libraries(sdrpp_core PUBLIC fftw3) + target_link_libraries(sdrpp_core PUBLIC fftw3f) + target_link_libraries(sdrpp_core PUBLIC portaudio) + target_link_libraries(sdrpp_core PUBLIC X11) + target_link_libraries(sdrpp_core PUBLIC Xxf86vm) + target_link_libraries(sdrpp_core PUBLIC dl) +endif (MSVC) + +set(CORE_FILES ${RUNTIME_OUTPUT_DIRECTORY} PARENT_SCOPE) + +# cmake .. "-DCMAKE_TOOLCHAIN_FILE=C:/Users/Alex/vcpkg/scripts/buildsystems/vcpkg.cmake" -G "Visual Studio 15 2017 Win64" \ No newline at end of file diff --git a/src/audio.cpp b/core/src/audio.cpp similarity index 100% rename from src/audio.cpp rename to core/src/audio.cpp diff --git a/src/audio.h b/core/src/audio.h similarity index 100% rename from src/audio.h rename to core/src/audio.h diff --git a/src/bandplan.cpp b/core/src/bandplan.cpp similarity index 100% rename from src/bandplan.cpp rename to core/src/bandplan.cpp diff --git a/src/bandplan.h b/core/src/bandplan.h similarity index 100% rename from src/bandplan.h rename to core/src/bandplan.h diff --git a/src/config.cpp b/core/src/config.cpp similarity index 100% rename from src/config.cpp rename to core/src/config.cpp diff --git a/src/config.h b/core/src/config.h similarity index 100% rename from src/config.h rename to core/src/config.h diff --git a/core/src/core.cpp b/core/src/core.cpp new file mode 100644 index 0000000..4df80c9 --- /dev/null +++ b/core/src/core.cpp @@ -0,0 +1,250 @@ +#include "imgui.h" +#include "imgui_impl_glfw.h" +#include "imgui_impl_opengl3.h" +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include + +#include + +#define STB_IMAGE_RESIZE_IMPLEMENTATION +#include + +#ifdef _WIN32 +#include +#endif + +// Comment to build a normal release +#define DEV_BUILD + +bool maximized = false; +bool fullScreen = false; + +static void glfw_error_callback(int error, const char* description) { + spdlog::error("Glfw Error {0}: {1}", error, description); +} + +static void maximized_callback(GLFWwindow* window, int n) { + if (n == GLFW_TRUE) { + maximized = true; + } + else { + maximized = false; + } +} + +// main +int sdrpp_main() { +#ifdef _WIN32 + //FreeConsole(); +#endif + + spdlog::info("SDR++ v" VERSION_STR); + +#ifdef DEV_BUILD + config::setRootDirectory("../root_dev"); +#elif _WIN32 + config::setRootDirectory("."); +#else + config::setRootDirectory("/etc/sdrpp"); +#endif + + // Load config + spdlog::info("Loading config"); + config::load(config::getRootDirectory() + "/config.json"); + config::startAutoSave(); + + // Setup window + glfwSetErrorCallback(glfw_error_callback); + if (!glfwInit()) { + return 1; + } + + glfwWindowHint(GLFW_CONTEXT_VERSION_MAJOR, 3); + glfwWindowHint(GLFW_CONTEXT_VERSION_MINOR, 2); + glfwWindowHint(GLFW_OPENGL_PROFILE, GLFW_OPENGL_CORE_PROFILE); // 3.2+ only + glfwWindowHint(GLFW_OPENGL_FORWARD_COMPAT, GL_TRUE); // Required on Mac + + int winWidth = config::config["windowSize"]["w"]; + int winHeight = config::config["windowSize"]["h"]; + maximized = config::config["maximized"]; + + // Create window with graphics context + GLFWmonitor* monitor = glfwGetPrimaryMonitor(); + GLFWwindow* window = glfwCreateWindow(winWidth, winHeight, "SDR++ v" VERSION_STR " (Built at " __TIME__ ", " __DATE__ ")", NULL, NULL); + if (window == NULL) + return 1; + glfwMakeContextCurrent(window); + glfwSwapInterval(1); // Enable vsync + + if (maximized) { + glfwMaximizeWindow(window); + } + + glfwSetWindowMaximizeCallback(window, maximized_callback); + + // Load app icon + GLFWimage icons[10]; + icons[0].pixels = stbi_load((config::getRootDirectory() + "/res/icons/sdrpp.png").c_str(), &icons[0].width, &icons[0].height, 0, 4); + icons[1].pixels = (unsigned char*)malloc(16 * 16 * 4); icons[1].width = icons[1].height = 16; + icons[2].pixels = (unsigned char*)malloc(24 * 24 * 4); icons[2].width = icons[2].height = 24; + icons[3].pixels = (unsigned char*)malloc(32 * 32 * 4); icons[3].width = icons[3].height = 32; + icons[4].pixels = (unsigned char*)malloc(48 * 48 * 4); icons[4].width = icons[4].height = 48; + icons[5].pixels = (unsigned char*)malloc(64 * 64 * 4); icons[5].width = icons[5].height = 64; + icons[6].pixels = (unsigned char*)malloc(96 * 96 * 4); icons[6].width = icons[6].height = 96; + icons[7].pixels = (unsigned char*)malloc(128 * 128 * 4); icons[7].width = icons[7].height = 128; + icons[8].pixels = (unsigned char*)malloc(196 * 196 * 4); icons[8].width = icons[8].height = 196; + icons[9].pixels = (unsigned char*)malloc(256 * 256 * 4); icons[9].width = icons[9].height = 256; + stbir_resize_uint8(icons[0].pixels, icons[0].width, icons[0].height, icons[0].width * 4, icons[1].pixels, 16, 16, 16 * 4, 4); + stbir_resize_uint8(icons[0].pixels, icons[0].width, icons[0].height, icons[0].width * 4, icons[2].pixels, 24, 24, 24 * 4, 4); + stbir_resize_uint8(icons[0].pixels, icons[0].width, icons[0].height, icons[0].width * 4, icons[3].pixels, 32, 32, 32 * 4, 4); + stbir_resize_uint8(icons[0].pixels, icons[0].width, icons[0].height, icons[0].width * 4, icons[4].pixels, 48, 48, 48 * 4, 4); + stbir_resize_uint8(icons[0].pixels, icons[0].width, icons[0].height, icons[0].width * 4, icons[5].pixels, 64, 64, 64 * 4, 4); + stbir_resize_uint8(icons[0].pixels, icons[0].width, icons[0].height, icons[0].width * 4, icons[6].pixels, 96, 96, 96 * 4, 4); + stbir_resize_uint8(icons[0].pixels, icons[0].width, icons[0].height, icons[0].width * 4, icons[7].pixels, 128, 128, 128 * 4, 4); + stbir_resize_uint8(icons[0].pixels, icons[0].width, icons[0].height, icons[0].width * 4, icons[8].pixels, 196, 196, 196 * 4, 4); + stbir_resize_uint8(icons[0].pixels, icons[0].width, icons[0].height, icons[0].width * 4, icons[9].pixels, 256, 256, 256 * 4, 4); + glfwSetWindowIcon(window, 10, icons); + stbi_image_free(icons[0].pixels); + for (int i = 1; i < 10; i++) { + free(icons[i].pixels); + } + + if (glewInit() != GLEW_OK) { + spdlog::error("Failed to initialize OpenGL loader!"); + return 1; + } + + + // Setup Dear ImGui context + IMGUI_CHECKVERSION(); + ImGui::CreateContext(); + ImGuiIO& io = ImGui::GetIO(); (void)io; + io.IniFilename = NULL; + + // Setup Platform/Renderer bindings + ImGui_ImplGlfw_InitForOpenGL(window, true); + ImGui_ImplOpenGL3_Init("#version 150"); + + style::setDarkStyle(); + + + // ==================================================== + // glfwPollEvents(); + ImGui_ImplOpenGL3_NewFrame(); + // ImGui_ImplGlfw_NewFrame(); + // ImGui::NewFrame(); + + // ImGui::ShowDemoWindow(); + + // ImGui::Render(); + int display_w, display_h; + glfwGetFramebufferSize(window, &display_w, &display_h); + glViewport(0, 0, display_w, display_h); + glClearColor(0.0666f, 0.0666f, 0.0666f, 1.0f); + //glClearColor(0.9f, 0.9f, 0.9f, 1.0f); + glClear(GL_COLOR_BUFFER_BIT); + // ImGui_ImplOpenGL3_RenderDrawData(ImGui::GetDrawData()); + + glfwSwapBuffers(window); + // ==================================================== + + spdlog::info("Loading icons"); + icons::load(); + + spdlog::info("Loading band plans"); + bandplan::loadFromDir(config::getRootDirectory() + "/bandplans"); + + spdlog::info("Loading band plans color table"); + bandplan::loadColorTable(config::getRootDirectory() + "/band_colors.json"); + + windowInit(); + + spdlog::info("Ready."); + + bool _maximized = maximized; + int fsWidth, fsHeight, fsPosX, fsPosY; + + // Main loop + while (!glfwWindowShouldClose(window)) { + glfwPollEvents(); + + // Start the Dear ImGui frame + ImGui_ImplOpenGL3_NewFrame(); + ImGui_ImplGlfw_NewFrame(); + ImGui::NewFrame(); + + if (_maximized != maximized) { + _maximized = maximized; + config::config["maximized"]= _maximized; + config::configModified = true; + if (!maximized) { + glfwSetWindowSize(window, config::config["windowSize"]["w"], config::config["windowSize"]["h"]); + } + } + + int _winWidth, _winHeight; + glfwGetWindowSize(window, &_winWidth, &_winHeight); + + if (ImGui::IsKeyPressed(GLFW_KEY_F11)) { + fullScreen = !fullScreen; + if (fullScreen) { + spdlog::info("Fullscreen: ON"); + fsWidth = _winWidth; + fsHeight = _winHeight; + glfwGetWindowPos(window, &fsPosX, &fsPosY); + const GLFWvidmode * mode = glfwGetVideoMode(glfwGetPrimaryMonitor()); + glfwSetWindowMonitor(window, monitor, 0, 0, mode->width, mode->height, 0); + } + else { + spdlog::info("Fullscreen: OFF"); + glfwSetWindowMonitor(window, nullptr, fsPosX, fsPosY, fsWidth, fsHeight, 0); + } + } + + if ((_winWidth != winWidth || _winHeight != winHeight) && !maximized && _winWidth > 0 && _winHeight > 0) { + winWidth = _winWidth; + winHeight = _winHeight; + config::config["windowSize"]["w"] = winWidth; + config::config["windowSize"]["h"] = winHeight; + config::configModified = true; + } + + if (winWidth > 0 && winHeight > 0) { + ImGui::SetNextWindowPos(ImVec2(0, 0)); + ImGui::SetNextWindowSize(ImVec2(_winWidth, _winHeight)); + drawWindow(); + } + + // Rendering + ImGui::Render(); + int display_w, display_h; + glfwGetFramebufferSize(window, &display_w, &display_h); + glViewport(0, 0, display_w, display_h); + glClearColor(0.0666f, 0.0666f, 0.0666f, 1.0f); + //glClearColor(0.9f, 0.9f, 0.9f, 1.0f); + glClear(GL_COLOR_BUFFER_BIT); + ImGui_ImplOpenGL3_RenderDrawData(ImGui::GetDrawData()); + + glfwSwapBuffers(window); + } + + // Cleanup + ImGui_ImplOpenGL3_Shutdown(); + ImGui_ImplGlfw_Shutdown(); + ImGui::DestroyContext(); + + glfwDestroyWindow(window); + glfwTerminate(); + + return 0; +} \ No newline at end of file diff --git a/core/src/core.h b/core/src/core.h new file mode 100644 index 0000000..ce5ea1f --- /dev/null +++ b/core/src/core.h @@ -0,0 +1,3 @@ +#pragma once + +int sdrpp_main(); \ No newline at end of file diff --git a/src/dsp/block.h b/core/src/dsp/block.h similarity index 100% rename from src/dsp/block.h rename to core/src/dsp/block.h diff --git a/src/dsp/correction.h b/core/src/dsp/correction.h similarity index 100% rename from src/dsp/correction.h rename to core/src/dsp/correction.h diff --git a/src/dsp/demodulator.h b/core/src/dsp/demodulator.h similarity index 100% rename from src/dsp/demodulator.h rename to core/src/dsp/demodulator.h diff --git a/src/dsp/filter.h b/core/src/dsp/filter.h similarity index 100% rename from src/dsp/filter.h rename to core/src/dsp/filter.h diff --git a/src/dsp/math.h b/core/src/dsp/math.h similarity index 100% rename from src/dsp/math.h rename to core/src/dsp/math.h diff --git a/src/dsp/resampling.h b/core/src/dsp/resampling.h similarity index 100% rename from src/dsp/resampling.h rename to core/src/dsp/resampling.h diff --git a/src/dsp/routing.h b/core/src/dsp/routing.h similarity index 100% rename from src/dsp/routing.h rename to core/src/dsp/routing.h diff --git a/src/dsp/sink.h b/core/src/dsp/sink.h similarity index 100% rename from src/dsp/sink.h rename to core/src/dsp/sink.h diff --git a/src/dsp/source.h b/core/src/dsp/source.h similarity index 100% rename from src/dsp/source.h rename to core/src/dsp/source.h diff --git a/src/dsp/stream.h b/core/src/dsp/stream.h similarity index 100% rename from src/dsp/stream.h rename to core/src/dsp/stream.h diff --git a/src/dsp/types.h b/core/src/dsp/types.h similarity index 100% rename from src/dsp/types.h rename to core/src/dsp/types.h diff --git a/src/dsp/vfo.h b/core/src/dsp/vfo.h similarity index 100% rename from src/dsp/vfo.h rename to core/src/dsp/vfo.h diff --git a/src/frequency_select.cpp b/core/src/frequency_select.cpp similarity index 99% rename from src/frequency_select.cpp rename to core/src/frequency_select.cpp index 45c4f57..fe750ff 100644 --- a/src/frequency_select.cpp +++ b/core/src/frequency_select.cpp @@ -12,6 +12,7 @@ void FrequencySelect::init() { font = ImGui::GetIO().Fonts->AddFontFromFileTTF((config::getRootDirectory() + "/res/fonts/Roboto-Medium.ttf").c_str(), 42.0f); for (int i = 0; i < 12; i++) { digits[i] = 0; + } } diff --git a/src/frequency_select.h b/core/src/frequency_select.h similarity index 100% rename from src/frequency_select.h rename to core/src/frequency_select.h diff --git a/src/icons.cpp b/core/src/icons.cpp similarity index 100% rename from src/icons.cpp rename to core/src/icons.cpp diff --git a/src/icons.h b/core/src/icons.h similarity index 100% rename from src/icons.h rename to core/src/icons.h diff --git a/src/imgui/imconfig.h b/core/src/imgui/imconfig.h similarity index 100% rename from src/imgui/imconfig.h rename to core/src/imgui/imconfig.h diff --git a/src/imgui/imgui.cpp b/core/src/imgui/imgui.cpp similarity index 100% rename from src/imgui/imgui.cpp rename to core/src/imgui/imgui.cpp diff --git a/src/imgui/imgui.h b/core/src/imgui/imgui.h similarity index 100% rename from src/imgui/imgui.h rename to core/src/imgui/imgui.h diff --git a/src/imgui/imgui_demo.cpp b/core/src/imgui/imgui_demo.cpp similarity index 100% rename from src/imgui/imgui_demo.cpp rename to core/src/imgui/imgui_demo.cpp diff --git a/src/imgui/imgui_draw.cpp b/core/src/imgui/imgui_draw.cpp similarity index 100% rename from src/imgui/imgui_draw.cpp rename to core/src/imgui/imgui_draw.cpp diff --git a/src/imgui/imgui_impl_glfw.cpp b/core/src/imgui/imgui_impl_glfw.cpp similarity index 100% rename from src/imgui/imgui_impl_glfw.cpp rename to core/src/imgui/imgui_impl_glfw.cpp diff --git a/src/imgui/imgui_impl_glfw.h b/core/src/imgui/imgui_impl_glfw.h similarity index 100% rename from src/imgui/imgui_impl_glfw.h rename to core/src/imgui/imgui_impl_glfw.h diff --git a/src/imgui/imgui_impl_opengl3.cpp b/core/src/imgui/imgui_impl_opengl3.cpp similarity index 100% rename from src/imgui/imgui_impl_opengl3.cpp rename to core/src/imgui/imgui_impl_opengl3.cpp diff --git a/src/imgui/imgui_impl_opengl3.h b/core/src/imgui/imgui_impl_opengl3.h similarity index 100% rename from src/imgui/imgui_impl_opengl3.h rename to core/src/imgui/imgui_impl_opengl3.h diff --git a/src/imgui/imgui_internal.h b/core/src/imgui/imgui_internal.h similarity index 100% rename from src/imgui/imgui_internal.h rename to core/src/imgui/imgui_internal.h diff --git a/src/imgui/imgui_plot.cpp b/core/src/imgui/imgui_plot.cpp similarity index 100% rename from src/imgui/imgui_plot.cpp rename to core/src/imgui/imgui_plot.cpp diff --git a/src/imgui/imgui_plot.h b/core/src/imgui/imgui_plot.h similarity index 100% rename from src/imgui/imgui_plot.h rename to core/src/imgui/imgui_plot.h diff --git a/src/imgui/imgui_widgets.cpp b/core/src/imgui/imgui_widgets.cpp similarity index 100% rename from src/imgui/imgui_widgets.cpp rename to core/src/imgui/imgui_widgets.cpp diff --git a/src/imgui/imstb_rectpack.h b/core/src/imgui/imstb_rectpack.h similarity index 100% rename from src/imgui/imstb_rectpack.h rename to core/src/imgui/imstb_rectpack.h diff --git a/src/imgui/imstb_textedit.h b/core/src/imgui/imstb_textedit.h similarity index 100% rename from src/imgui/imstb_textedit.h rename to core/src/imgui/imstb_textedit.h diff --git a/src/imgui/imstb_truetype.h b/core/src/imgui/imstb_truetype.h similarity index 100% rename from src/imgui/imstb_truetype.h rename to core/src/imgui/imstb_truetype.h diff --git a/src/imgui/imutils.h b/core/src/imgui/imutils.h similarity index 100% rename from src/imgui/imutils.h rename to core/src/imgui/imutils.h diff --git a/src/imgui/stb_image.h b/core/src/imgui/stb_image.h similarity index 100% rename from src/imgui/stb_image.h rename to core/src/imgui/stb_image.h diff --git a/src/imgui/stb_image_resize.h b/core/src/imgui/stb_image_resize.h similarity index 100% rename from src/imgui/stb_image_resize.h rename to core/src/imgui/stb_image_resize.h diff --git a/src/io/audio.h b/core/src/io/audio.h similarity index 100% rename from src/io/audio.h rename to core/src/io/audio.h diff --git a/src/io/soapy.h b/core/src/io/soapy.h similarity index 98% rename from src/io/soapy.h rename to core/src/io/soapy.h index ac1311f..bb0c97c 100644 --- a/src/io/soapy.h +++ b/core/src/io/soapy.h @@ -10,8 +10,12 @@ namespace io { class SoapyWrapper { public: SoapyWrapper() { + + } + + void init() { SoapySDR::registerLogHandler(_logHandler); - SoapySDR::Device::make(""); + //SoapySDR::Device::make(""); output.init(64000); currentGains = new float[1]; @@ -52,7 +56,6 @@ namespace io { if (running) { return; } - devList = SoapySDR::Device::enumerate(); txtDevList = ""; devNameList.clear(); diff --git a/src/json.hpp b/core/src/json.hpp similarity index 100% rename from src/json.hpp rename to core/src/json.hpp diff --git a/src/main_window.cpp b/core/src/main_window.cpp similarity index 99% rename from src/main_window.cpp rename to core/src/main_window.cpp index 8c9f450..bd196ff 100644 --- a/src/main_window.cpp +++ b/core/src/main_window.cpp @@ -155,6 +155,9 @@ void saveAudioConfig(std::string name) { } void windowInit() { + spdlog::info("Initializing SoapySDR"); + soapy.init(); + fSel.init(); fft_in = (fftwf_complex*) fftwf_malloc(sizeof(fftwf_complex) * fftSize); diff --git a/src/main_window.h b/core/src/main_window.h similarity index 100% rename from src/main_window.h rename to core/src/main_window.h diff --git a/src/module.cpp b/core/src/module.cpp similarity index 100% rename from src/module.cpp rename to core/src/module.cpp diff --git a/src/module.h b/core/src/module.h similarity index 100% rename from src/module.h rename to core/src/module.h diff --git a/src/signal_path.cpp b/core/src/signal_path.cpp similarity index 100% rename from src/signal_path.cpp rename to core/src/signal_path.cpp diff --git a/src/signal_path.h b/core/src/signal_path.h similarity index 100% rename from src/signal_path.h rename to core/src/signal_path.h diff --git a/src/spdlog/async.h b/core/src/spdlog/async.h similarity index 100% rename from src/spdlog/async.h rename to core/src/spdlog/async.h diff --git a/src/spdlog/async_logger-inl.h b/core/src/spdlog/async_logger-inl.h similarity index 100% rename from src/spdlog/async_logger-inl.h rename to core/src/spdlog/async_logger-inl.h diff --git a/src/spdlog/async_logger.h b/core/src/spdlog/async_logger.h similarity index 100% rename from src/spdlog/async_logger.h rename to core/src/spdlog/async_logger.h diff --git a/src/spdlog/cfg/argv.h b/core/src/spdlog/cfg/argv.h similarity index 100% rename from src/spdlog/cfg/argv.h rename to core/src/spdlog/cfg/argv.h diff --git a/src/spdlog/cfg/env.h b/core/src/spdlog/cfg/env.h similarity index 100% rename from src/spdlog/cfg/env.h rename to core/src/spdlog/cfg/env.h diff --git a/src/spdlog/cfg/helpers-inl.h b/core/src/spdlog/cfg/helpers-inl.h similarity index 100% rename from src/spdlog/cfg/helpers-inl.h rename to core/src/spdlog/cfg/helpers-inl.h diff --git a/src/spdlog/cfg/helpers.h b/core/src/spdlog/cfg/helpers.h similarity index 100% rename from src/spdlog/cfg/helpers.h rename to core/src/spdlog/cfg/helpers.h diff --git a/src/spdlog/cfg/log_levels.h b/core/src/spdlog/cfg/log_levels.h similarity index 100% rename from src/spdlog/cfg/log_levels.h rename to core/src/spdlog/cfg/log_levels.h diff --git a/src/spdlog/common-inl.h b/core/src/spdlog/common-inl.h similarity index 100% rename from src/spdlog/common-inl.h rename to core/src/spdlog/common-inl.h diff --git a/src/spdlog/common.h b/core/src/spdlog/common.h similarity index 100% rename from src/spdlog/common.h rename to core/src/spdlog/common.h diff --git a/src/spdlog/details/backtracer-inl.h b/core/src/spdlog/details/backtracer-inl.h similarity index 100% rename from src/spdlog/details/backtracer-inl.h rename to core/src/spdlog/details/backtracer-inl.h diff --git a/src/spdlog/details/backtracer.h b/core/src/spdlog/details/backtracer.h similarity index 100% rename from src/spdlog/details/backtracer.h rename to core/src/spdlog/details/backtracer.h diff --git a/src/spdlog/details/circular_q.h b/core/src/spdlog/details/circular_q.h similarity index 100% rename from src/spdlog/details/circular_q.h rename to core/src/spdlog/details/circular_q.h diff --git a/src/spdlog/details/console_globals.h b/core/src/spdlog/details/console_globals.h similarity index 100% rename from src/spdlog/details/console_globals.h rename to core/src/spdlog/details/console_globals.h diff --git a/src/spdlog/details/file_helper-inl.h b/core/src/spdlog/details/file_helper-inl.h similarity index 100% rename from src/spdlog/details/file_helper-inl.h rename to core/src/spdlog/details/file_helper-inl.h diff --git a/src/spdlog/details/file_helper.h b/core/src/spdlog/details/file_helper.h similarity index 100% rename from src/spdlog/details/file_helper.h rename to core/src/spdlog/details/file_helper.h diff --git a/src/spdlog/details/fmt_helper.h b/core/src/spdlog/details/fmt_helper.h similarity index 100% rename from src/spdlog/details/fmt_helper.h rename to core/src/spdlog/details/fmt_helper.h diff --git a/src/spdlog/details/log_msg-inl.h b/core/src/spdlog/details/log_msg-inl.h similarity index 100% rename from src/spdlog/details/log_msg-inl.h rename to core/src/spdlog/details/log_msg-inl.h diff --git a/src/spdlog/details/log_msg.h b/core/src/spdlog/details/log_msg.h similarity index 100% rename from src/spdlog/details/log_msg.h rename to core/src/spdlog/details/log_msg.h diff --git a/src/spdlog/details/log_msg_buffer-inl.h b/core/src/spdlog/details/log_msg_buffer-inl.h similarity index 100% rename from src/spdlog/details/log_msg_buffer-inl.h rename to core/src/spdlog/details/log_msg_buffer-inl.h diff --git a/src/spdlog/details/log_msg_buffer.h b/core/src/spdlog/details/log_msg_buffer.h similarity index 100% rename from src/spdlog/details/log_msg_buffer.h rename to core/src/spdlog/details/log_msg_buffer.h diff --git a/src/spdlog/details/mpmc_blocking_q.h b/core/src/spdlog/details/mpmc_blocking_q.h similarity index 100% rename from src/spdlog/details/mpmc_blocking_q.h rename to core/src/spdlog/details/mpmc_blocking_q.h diff --git a/src/spdlog/details/null_mutex.h b/core/src/spdlog/details/null_mutex.h similarity index 100% rename from src/spdlog/details/null_mutex.h rename to core/src/spdlog/details/null_mutex.h diff --git a/src/spdlog/details/os-inl.h b/core/src/spdlog/details/os-inl.h similarity index 100% rename from src/spdlog/details/os-inl.h rename to core/src/spdlog/details/os-inl.h diff --git a/src/spdlog/details/os.h b/core/src/spdlog/details/os.h similarity index 100% rename from src/spdlog/details/os.h rename to core/src/spdlog/details/os.h diff --git a/src/spdlog/details/periodic_worker-inl.h b/core/src/spdlog/details/periodic_worker-inl.h similarity index 100% rename from src/spdlog/details/periodic_worker-inl.h rename to core/src/spdlog/details/periodic_worker-inl.h diff --git a/src/spdlog/details/periodic_worker.h b/core/src/spdlog/details/periodic_worker.h similarity index 100% rename from src/spdlog/details/periodic_worker.h rename to core/src/spdlog/details/periodic_worker.h diff --git a/src/spdlog/details/registry-inl.h b/core/src/spdlog/details/registry-inl.h similarity index 100% rename from src/spdlog/details/registry-inl.h rename to core/src/spdlog/details/registry-inl.h diff --git a/src/spdlog/details/registry.h b/core/src/spdlog/details/registry.h similarity index 100% rename from src/spdlog/details/registry.h rename to core/src/spdlog/details/registry.h diff --git a/src/spdlog/details/synchronous_factory.h b/core/src/spdlog/details/synchronous_factory.h similarity index 100% rename from src/spdlog/details/synchronous_factory.h rename to core/src/spdlog/details/synchronous_factory.h diff --git a/src/spdlog/details/tcp_client-windows.h b/core/src/spdlog/details/tcp_client-windows.h similarity index 100% rename from src/spdlog/details/tcp_client-windows.h rename to core/src/spdlog/details/tcp_client-windows.h diff --git a/src/spdlog/details/tcp_client.h b/core/src/spdlog/details/tcp_client.h similarity index 100% rename from src/spdlog/details/tcp_client.h rename to core/src/spdlog/details/tcp_client.h diff --git a/src/spdlog/details/thread_pool-inl.h b/core/src/spdlog/details/thread_pool-inl.h similarity index 100% rename from src/spdlog/details/thread_pool-inl.h rename to core/src/spdlog/details/thread_pool-inl.h diff --git a/src/spdlog/details/thread_pool.h b/core/src/spdlog/details/thread_pool.h similarity index 100% rename from src/spdlog/details/thread_pool.h rename to core/src/spdlog/details/thread_pool.h diff --git a/src/spdlog/details/windows_include.h b/core/src/spdlog/details/windows_include.h similarity index 100% rename from src/spdlog/details/windows_include.h rename to core/src/spdlog/details/windows_include.h diff --git a/src/spdlog/fmt/bin_to_hex.h b/core/src/spdlog/fmt/bin_to_hex.h similarity index 100% rename from src/spdlog/fmt/bin_to_hex.h rename to core/src/spdlog/fmt/bin_to_hex.h diff --git a/src/spdlog/fmt/bundled/LICENSE.rst b/core/src/spdlog/fmt/bundled/LICENSE.rst similarity index 100% rename from src/spdlog/fmt/bundled/LICENSE.rst rename to core/src/spdlog/fmt/bundled/LICENSE.rst diff --git a/src/spdlog/fmt/bundled/chrono.h b/core/src/spdlog/fmt/bundled/chrono.h similarity index 100% rename from src/spdlog/fmt/bundled/chrono.h rename to core/src/spdlog/fmt/bundled/chrono.h diff --git a/src/spdlog/fmt/bundled/color.h b/core/src/spdlog/fmt/bundled/color.h similarity index 100% rename from src/spdlog/fmt/bundled/color.h rename to core/src/spdlog/fmt/bundled/color.h diff --git a/src/spdlog/fmt/bundled/compile.h b/core/src/spdlog/fmt/bundled/compile.h similarity index 100% rename from src/spdlog/fmt/bundled/compile.h rename to core/src/spdlog/fmt/bundled/compile.h diff --git a/src/spdlog/fmt/bundled/core.h b/core/src/spdlog/fmt/bundled/core.h similarity index 100% rename from src/spdlog/fmt/bundled/core.h rename to core/src/spdlog/fmt/bundled/core.h diff --git a/src/spdlog/fmt/bundled/format-inl.h b/core/src/spdlog/fmt/bundled/format-inl.h similarity index 100% rename from src/spdlog/fmt/bundled/format-inl.h rename to core/src/spdlog/fmt/bundled/format-inl.h diff --git a/src/spdlog/fmt/bundled/format.h b/core/src/spdlog/fmt/bundled/format.h similarity index 100% rename from src/spdlog/fmt/bundled/format.h rename to core/src/spdlog/fmt/bundled/format.h diff --git a/src/spdlog/fmt/bundled/locale.h b/core/src/spdlog/fmt/bundled/locale.h similarity index 100% rename from src/spdlog/fmt/bundled/locale.h rename to core/src/spdlog/fmt/bundled/locale.h diff --git a/src/spdlog/fmt/bundled/ostream.h b/core/src/spdlog/fmt/bundled/ostream.h similarity index 100% rename from src/spdlog/fmt/bundled/ostream.h rename to core/src/spdlog/fmt/bundled/ostream.h diff --git a/src/spdlog/fmt/bundled/posix.h b/core/src/spdlog/fmt/bundled/posix.h similarity index 100% rename from src/spdlog/fmt/bundled/posix.h rename to core/src/spdlog/fmt/bundled/posix.h diff --git a/src/spdlog/fmt/bundled/printf.h b/core/src/spdlog/fmt/bundled/printf.h similarity index 100% rename from src/spdlog/fmt/bundled/printf.h rename to core/src/spdlog/fmt/bundled/printf.h diff --git a/src/spdlog/fmt/bundled/ranges.h b/core/src/spdlog/fmt/bundled/ranges.h similarity index 100% rename from src/spdlog/fmt/bundled/ranges.h rename to core/src/spdlog/fmt/bundled/ranges.h diff --git a/src/spdlog/fmt/fmt.h b/core/src/spdlog/fmt/fmt.h similarity index 100% rename from src/spdlog/fmt/fmt.h rename to core/src/spdlog/fmt/fmt.h diff --git a/src/spdlog/fmt/ostr.h b/core/src/spdlog/fmt/ostr.h similarity index 100% rename from src/spdlog/fmt/ostr.h rename to core/src/spdlog/fmt/ostr.h diff --git a/src/spdlog/formatter.h b/core/src/spdlog/formatter.h similarity index 100% rename from src/spdlog/formatter.h rename to core/src/spdlog/formatter.h diff --git a/src/spdlog/fwd.h b/core/src/spdlog/fwd.h similarity index 100% rename from src/spdlog/fwd.h rename to core/src/spdlog/fwd.h diff --git a/src/spdlog/logger-inl.h b/core/src/spdlog/logger-inl.h similarity index 100% rename from src/spdlog/logger-inl.h rename to core/src/spdlog/logger-inl.h diff --git a/src/spdlog/logger.h b/core/src/spdlog/logger.h similarity index 100% rename from src/spdlog/logger.h rename to core/src/spdlog/logger.h diff --git a/src/spdlog/pattern_formatter-inl.h b/core/src/spdlog/pattern_formatter-inl.h similarity index 100% rename from src/spdlog/pattern_formatter-inl.h rename to core/src/spdlog/pattern_formatter-inl.h diff --git a/src/spdlog/pattern_formatter.h b/core/src/spdlog/pattern_formatter.h similarity index 100% rename from src/spdlog/pattern_formatter.h rename to core/src/spdlog/pattern_formatter.h diff --git a/src/spdlog/sinks/android_sink.h b/core/src/spdlog/sinks/android_sink.h similarity index 100% rename from src/spdlog/sinks/android_sink.h rename to core/src/spdlog/sinks/android_sink.h diff --git a/src/spdlog/sinks/ansicolor_sink-inl.h b/core/src/spdlog/sinks/ansicolor_sink-inl.h similarity index 100% rename from src/spdlog/sinks/ansicolor_sink-inl.h rename to core/src/spdlog/sinks/ansicolor_sink-inl.h diff --git a/src/spdlog/sinks/ansicolor_sink.h b/core/src/spdlog/sinks/ansicolor_sink.h similarity index 100% rename from src/spdlog/sinks/ansicolor_sink.h rename to core/src/spdlog/sinks/ansicolor_sink.h diff --git a/src/spdlog/sinks/base_sink-inl.h b/core/src/spdlog/sinks/base_sink-inl.h similarity index 100% rename from src/spdlog/sinks/base_sink-inl.h rename to core/src/spdlog/sinks/base_sink-inl.h diff --git a/src/spdlog/sinks/base_sink.h b/core/src/spdlog/sinks/base_sink.h similarity index 100% rename from src/spdlog/sinks/base_sink.h rename to core/src/spdlog/sinks/base_sink.h diff --git a/src/spdlog/sinks/basic_file_sink-inl.h b/core/src/spdlog/sinks/basic_file_sink-inl.h similarity index 100% rename from src/spdlog/sinks/basic_file_sink-inl.h rename to core/src/spdlog/sinks/basic_file_sink-inl.h diff --git a/src/spdlog/sinks/basic_file_sink.h b/core/src/spdlog/sinks/basic_file_sink.h similarity index 100% rename from src/spdlog/sinks/basic_file_sink.h rename to core/src/spdlog/sinks/basic_file_sink.h diff --git a/src/spdlog/sinks/daily_file_sink.h b/core/src/spdlog/sinks/daily_file_sink.h similarity index 100% rename from src/spdlog/sinks/daily_file_sink.h rename to core/src/spdlog/sinks/daily_file_sink.h diff --git a/src/spdlog/sinks/dist_sink.h b/core/src/spdlog/sinks/dist_sink.h similarity index 100% rename from src/spdlog/sinks/dist_sink.h rename to core/src/spdlog/sinks/dist_sink.h diff --git a/src/spdlog/sinks/dup_filter_sink.h b/core/src/spdlog/sinks/dup_filter_sink.h similarity index 100% rename from src/spdlog/sinks/dup_filter_sink.h rename to core/src/spdlog/sinks/dup_filter_sink.h diff --git a/src/spdlog/sinks/msvc_sink.h b/core/src/spdlog/sinks/msvc_sink.h similarity index 100% rename from src/spdlog/sinks/msvc_sink.h rename to core/src/spdlog/sinks/msvc_sink.h diff --git a/src/spdlog/sinks/null_sink.h b/core/src/spdlog/sinks/null_sink.h similarity index 100% rename from src/spdlog/sinks/null_sink.h rename to core/src/spdlog/sinks/null_sink.h diff --git a/src/spdlog/sinks/ostream_sink.h b/core/src/spdlog/sinks/ostream_sink.h similarity index 100% rename from src/spdlog/sinks/ostream_sink.h rename to core/src/spdlog/sinks/ostream_sink.h diff --git a/src/spdlog/sinks/ringbuffer_sink.h b/core/src/spdlog/sinks/ringbuffer_sink.h similarity index 100% rename from src/spdlog/sinks/ringbuffer_sink.h rename to core/src/spdlog/sinks/ringbuffer_sink.h diff --git a/src/spdlog/sinks/rotating_file_sink-inl.h b/core/src/spdlog/sinks/rotating_file_sink-inl.h similarity index 100% rename from src/spdlog/sinks/rotating_file_sink-inl.h rename to core/src/spdlog/sinks/rotating_file_sink-inl.h diff --git a/src/spdlog/sinks/rotating_file_sink.h b/core/src/spdlog/sinks/rotating_file_sink.h similarity index 100% rename from src/spdlog/sinks/rotating_file_sink.h rename to core/src/spdlog/sinks/rotating_file_sink.h diff --git a/src/spdlog/sinks/sink-inl.h b/core/src/spdlog/sinks/sink-inl.h similarity index 100% rename from src/spdlog/sinks/sink-inl.h rename to core/src/spdlog/sinks/sink-inl.h diff --git a/src/spdlog/sinks/sink.h b/core/src/spdlog/sinks/sink.h similarity index 100% rename from src/spdlog/sinks/sink.h rename to core/src/spdlog/sinks/sink.h diff --git a/src/spdlog/sinks/stdout_color_sinks-inl.h b/core/src/spdlog/sinks/stdout_color_sinks-inl.h similarity index 100% rename from src/spdlog/sinks/stdout_color_sinks-inl.h rename to core/src/spdlog/sinks/stdout_color_sinks-inl.h diff --git a/src/spdlog/sinks/stdout_color_sinks.h b/core/src/spdlog/sinks/stdout_color_sinks.h similarity index 100% rename from src/spdlog/sinks/stdout_color_sinks.h rename to core/src/spdlog/sinks/stdout_color_sinks.h diff --git a/src/spdlog/sinks/stdout_sinks-inl.h b/core/src/spdlog/sinks/stdout_sinks-inl.h similarity index 100% rename from src/spdlog/sinks/stdout_sinks-inl.h rename to core/src/spdlog/sinks/stdout_sinks-inl.h diff --git a/src/spdlog/sinks/stdout_sinks.h b/core/src/spdlog/sinks/stdout_sinks.h similarity index 100% rename from src/spdlog/sinks/stdout_sinks.h rename to core/src/spdlog/sinks/stdout_sinks.h diff --git a/src/spdlog/sinks/syslog_sink.h b/core/src/spdlog/sinks/syslog_sink.h similarity index 100% rename from src/spdlog/sinks/syslog_sink.h rename to core/src/spdlog/sinks/syslog_sink.h diff --git a/src/spdlog/sinks/systemd_sink.h b/core/src/spdlog/sinks/systemd_sink.h similarity index 100% rename from src/spdlog/sinks/systemd_sink.h rename to core/src/spdlog/sinks/systemd_sink.h diff --git a/src/spdlog/sinks/tcp_sink.h b/core/src/spdlog/sinks/tcp_sink.h similarity index 100% rename from src/spdlog/sinks/tcp_sink.h rename to core/src/spdlog/sinks/tcp_sink.h diff --git a/src/spdlog/sinks/win_eventlog_sink.h b/core/src/spdlog/sinks/win_eventlog_sink.h similarity index 100% rename from src/spdlog/sinks/win_eventlog_sink.h rename to core/src/spdlog/sinks/win_eventlog_sink.h diff --git a/src/spdlog/sinks/wincolor_sink-inl.h b/core/src/spdlog/sinks/wincolor_sink-inl.h similarity index 100% rename from src/spdlog/sinks/wincolor_sink-inl.h rename to core/src/spdlog/sinks/wincolor_sink-inl.h diff --git a/src/spdlog/sinks/wincolor_sink.h b/core/src/spdlog/sinks/wincolor_sink.h similarity index 100% rename from src/spdlog/sinks/wincolor_sink.h rename to core/src/spdlog/sinks/wincolor_sink.h diff --git a/src/spdlog/spdlog-inl.h b/core/src/spdlog/spdlog-inl.h similarity index 100% rename from src/spdlog/spdlog-inl.h rename to core/src/spdlog/spdlog-inl.h diff --git a/src/spdlog/spdlog.h b/core/src/spdlog/spdlog.h similarity index 100% rename from src/spdlog/spdlog.h rename to core/src/spdlog/spdlog.h diff --git a/src/spdlog/tweakme.h b/core/src/spdlog/tweakme.h similarity index 100% rename from src/spdlog/tweakme.h rename to core/src/spdlog/tweakme.h diff --git a/src/spdlog/version.h b/core/src/spdlog/version.h similarity index 100% rename from src/spdlog/version.h rename to core/src/spdlog/version.h diff --git a/src/style.cpp b/core/src/style.cpp similarity index 98% rename from src/style.cpp rename to core/src/style.cpp index a8ff699..9f2a5b1 100644 --- a/src/style.cpp +++ b/core/src/style.cpp @@ -15,6 +15,10 @@ namespace style { //ImGui::StyleColorsLight(); } + void testtt() { + ImGui::StyleColorsLight(); + } + void setDarkStyle() { ImGui::GetStyle().WindowRounding = 0.0f; ImGui::GetStyle().ChildRounding = 0.0f; diff --git a/src/style.h b/core/src/style.h similarity index 91% rename from src/style.h rename to core/src/style.h index 527bde1..e588539 100644 --- a/src/style.h +++ b/core/src/style.h @@ -8,4 +8,5 @@ namespace style { void setDarkStyle(); void beginDisabled(); void endDisabled(); + void testtt(); } \ No newline at end of file diff --git a/src/version.h b/core/src/version.h similarity index 100% rename from src/version.h rename to core/src/version.h diff --git a/src/vfo_manager.cpp b/core/src/vfo_manager.cpp similarity index 100% rename from src/vfo_manager.cpp rename to core/src/vfo_manager.cpp diff --git a/src/vfo_manager.h b/core/src/vfo_manager.h similarity index 100% rename from src/vfo_manager.h rename to core/src/vfo_manager.h diff --git a/src/watcher.h b/core/src/watcher.h similarity index 100% rename from src/watcher.h rename to core/src/watcher.h diff --git a/src/waterfall.cpp b/core/src/waterfall.cpp similarity index 100% rename from src/waterfall.cpp rename to core/src/waterfall.cpp diff --git a/src/waterfall.h b/core/src/waterfall.h similarity index 100% rename from src/waterfall.h rename to core/src/waterfall.h diff --git a/demo/CMakeLists.txt b/demo/CMakeLists.txt new file mode 100644 index 0000000..9fe9176 --- /dev/null +++ b/demo/CMakeLists.txt @@ -0,0 +1,7 @@ +cmake_minimum_required(VERSION 3.13) +project(demo) + +file(GLOB SRC "src/*.cpp") + +add_library(demo SHARED ${SRC}) +target_link_libraries(demo PRIVATE sdrpp_core) \ No newline at end of file diff --git a/demo/src/main.cpp b/demo/src/main.cpp new file mode 100644 index 0000000..8abd3cf --- /dev/null +++ b/demo/src/main.cpp @@ -0,0 +1,38 @@ +#include +#include +#include +#include +#include +#include +#include +#include +#include + +#define CONCAT(a, b) ((std::string(a) + b).c_str()) + + +struct DemoContext_t { + std::string name; +}; + +MOD_EXPORT void* _INIT_(mod::API_t* _API, ImGuiContext* imctx, std::string _name) { + DemoContext_t* ctx = new DemoContext_t; + ctx->name = _name; + return ctx; +} + +MOD_EXPORT void _NEW_FRAME_(DemoContext_t* ctx) { + +} + +MOD_EXPORT void _DRAW_MENU_(DemoContext_t* ctx) { + ImGui::Text(ctx->name.c_str()); +} + +MOD_EXPORT void _HANDLE_EVENT_(DemoContext_t* ctx, int eventId) { + +} + +MOD_EXPORT void _STOP_(DemoContext_t* ctx) { + +} \ No newline at end of file diff --git a/modules/demo/CMakeLists.txt b/modules/demo/CMakeLists.txt deleted file mode 100644 index 25e29d0..0000000 --- a/modules/demo/CMakeLists.txt +++ /dev/null @@ -1,55 +0,0 @@ -cmake_minimum_required(VERSION 3.9) -project(demo) - -if (MSVC) - set(CMAKE_CXX_FLAGS "-O2 /std:c++17") - link_directories(demo "C:/Program Files/PothosSDR/lib/") - include_directories(demo "C:/Program Files/PothosSDR/include/volk/") - include_directories(demo "C:/Program Files/PothosSDR/include/") -else() - set(CMAKE_CXX_FLAGS "-O3 -std=c++17 -fsanitize=address -g") - include_directories(demo "/usr/include/volk") - link_libraries(pthread) - link_libraries(GL) - link_libraries(GLEW) - link_libraries(glfw) - link_libraries(fftw3) - link_libraries(fftw3f) - link_libraries(portaudio) - link_libraries(X11) - link_libraries(Xxf86vm) -endif (MSVC) - -link_libraries(volk) -link_libraries(SoapySDR) - -# Main code -include_directories(demo "src/") -include_directories(demo "../../src/") -include_directories(demo "../../src/imgui") -file(GLOB SRC "src/*.cpp") -file(GLOB IMGUI "../../src/imgui/*.cpp") -add_library(demo SHARED ${SRC} ${IMGUI}) -set_target_properties(demo PROPERTIES PREFIX "") - -if (MSVC) - # Glew - find_package(GLEW REQUIRED) - target_link_libraries(demo PRIVATE GLEW::GLEW) - - # GLFW3 - find_package(glfw3 CONFIG REQUIRED) - target_link_libraries(demo PRIVATE glfw) - - # FFTW3 - find_package(FFTW3 CONFIG REQUIRED) - target_link_libraries(demo PRIVATE FFTW3::fftw3) - find_package(FFTW3f CONFIG REQUIRED) - target_link_libraries(demo PRIVATE FFTW3::fftw3f) - - # PortAudio - find_package(portaudio CONFIG REQUIRED) - target_link_libraries(demo PRIVATE portaudio portaudio_static) -endif (MSVC) - -# cmake .. "-DCMAKE_TOOLCHAIN_FILE=C:/Users/Alex/vcpkg/scripts/buildsystems/vcpkg.cmake" -G "Visual Studio 15 2017 Win64" \ No newline at end of file diff --git a/modules/demo/src/main.cpp b/modules/demo/src/main.cpp deleted file mode 100644 index d22f637..0000000 --- a/modules/demo/src/main.cpp +++ /dev/null @@ -1,38 +0,0 @@ -#include -#include -#include -#include -#include -#include -#include -#include - -mod::API_t* API; - -struct ExampleContext_t { - std::string name; -}; - -MOD_EXPORT void* _INIT_(mod::API_t* _API, ImGuiContext* imctx, std::string _name) { - API = _API; - ExampleContext_t* ctx = new ExampleContext_t; - ctx->name = _name; - ImGui::SetCurrentContext(imctx); - return ctx; -} - -MOD_EXPORT void _NEW_FRAME_(ExampleContext_t* ctx) { - -} - -MOD_EXPORT void _DRAW_MENU_(ExampleContext_t* ctx) { - ImGui::Text("Demo!"); -} - -MOD_EXPORT void _HANDLE_EVENT_(ExampleContext_t* ctx, int eventId) { - -} - -MOD_EXPORT void _STOP_(ExampleContext_t* ctx) { - -} \ No newline at end of file diff --git a/modules/radio/CMakeLists.txt b/radio/CMakeLists.txt similarity index 90% rename from modules/radio/CMakeLists.txt rename to radio/CMakeLists.txt index fb00414..2ac85c5 100644 --- a/modules/radio/CMakeLists.txt +++ b/radio/CMakeLists.txt @@ -1,4 +1,4 @@ -cmake_minimum_required(VERSION 3.9) +cmake_minimum_required(VERSION 3.13) project(radio) if (MSVC) @@ -25,10 +25,10 @@ link_libraries(SoapySDR) # Main code include_directories(radio "src/") -include_directories(radio "../../src/") -include_directories(radio "../../src/imgui") +include_directories(radio "../core/src/") +include_directories(radio "../core/src/imgui") file(GLOB SRC "src/*.cpp") -file(GLOB IMGUI "../../src/imgui/*.cpp") +file(GLOB IMGUI "../core/src/imgui/*.cpp") add_library(radio SHARED ${SRC} ${IMGUI}) set_target_properties(radio PROPERTIES PREFIX "") diff --git a/modules/radio/src/main.cpp b/radio/src/main.cpp similarity index 100% rename from modules/radio/src/main.cpp rename to radio/src/main.cpp diff --git a/modules/radio/src/path.cpp b/radio/src/path.cpp similarity index 100% rename from modules/radio/src/path.cpp rename to radio/src/path.cpp diff --git a/modules/radio/src/path.h b/radio/src/path.h similarity index 100% rename from modules/radio/src/path.h rename to radio/src/path.h diff --git a/modules/recorder/CMakeLists.txt b/recorder/CMakeLists.txt similarity index 89% rename from modules/recorder/CMakeLists.txt rename to recorder/CMakeLists.txt index 32791d6..f5a297f 100644 --- a/modules/recorder/CMakeLists.txt +++ b/recorder/CMakeLists.txt @@ -1,4 +1,4 @@ -cmake_minimum_required(VERSION 3.9) +cmake_minimum_required(VERSION 3.13) project(recorder) if (MSVC) @@ -25,10 +25,10 @@ link_libraries(SoapySDR) # Main code include_directories(recorder "src/") -include_directories(recorder "../../src/") -include_directories(recorder "../../src/imgui") +include_directories(recorder "../core/src/") +include_directories(recorder "../core/src/imgui") file(GLOB SRC "src/*.cpp") -file(GLOB IMGUI "../../src/imgui/*.cpp") +file(GLOB IMGUI "../core/src/imgui/*.cpp") add_library(recorder SHARED ${SRC} ${IMGUI}) set_target_properties(recorder PROPERTIES PREFIX "") diff --git a/modules/recorder/src/main.cpp b/recorder/src/main.cpp similarity index 100% rename from modules/recorder/src/main.cpp rename to recorder/src/main.cpp diff --git a/modules/recorder/src/wav.h b/recorder/src/wav.h similarity index 100% rename from modules/recorder/src/wav.h rename to recorder/src/wav.h diff --git a/root_dev/config.json b/root_dev/config.json index 142d286..14d71bf 100644 --- a/root_dev/config.json +++ b/root_dev/config.json @@ -9,7 +9,7 @@ "bandPlan": "General", "bandPlanEnabled": true, "fftHeight": 300, - "frequency": 100100000, + "frequency": 99000000, "max": 0.0, "maximized": false, "menuWidth": 300, @@ -27,7 +27,7 @@ } }, "windowSize": { - "h": 725, + "h": 726, "w": 1280 } } \ No newline at end of file diff --git a/root_dev/module_list.json b/root_dev/module_list.json index 63dd7fa..319321f 100644 --- a/root_dev/module_list.json +++ b/root_dev/module_list.json @@ -1,4 +1,6 @@ { - "Radio": "../build/modules/radio/Release/radio.dll", - "Recorder": "../build/modules/recorder/Release/recorder.dll" + "Radio": "../build/radio/Release/radio.dll", + "Recorder": "../build/recorder/Release/recorder.dll", + "Demo": "../build/demo/Release/demo.dll", + "Demo 2": "../build/demo/Release/demo.dll" } \ No newline at end of file diff --git a/src/main.cpp b/src/main.cpp index 765f428..023f73b 100644 --- a/src/main.cpp +++ b/src/main.cpp @@ -1,252 +1,6 @@ -#include "imgui.h" -#include "imgui_impl_glfw.h" -#include "imgui_impl_opengl3.h" +#include #include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include - -#define STB_IMAGE_RESIZE_IMPLEMENTATION -#include - -#ifdef _WIN32 -#include -#endif - -// Comment to build a normal release -#define DEV_BUILD - -bool maximized = false; -bool fullScreen = false; - -static void glfw_error_callback(int error, const char* description) { - spdlog::error("Glfw Error {0}: {1}", error, description); -} - -static void maximized_callback(GLFWwindow* window, int n) { - if (n == GLFW_TRUE) { - maximized = true; - } - else { - maximized = false; - } -} - -// main int main() { -#ifdef _WIN32 - //FreeConsole(); -#endif - - spdlog::info("SDR++ v" VERSION_STR); - -#ifdef DEV_BUILD - config::setRootDirectory("../root_dev"); -#elif _WIN32 - config::setRootDirectory("."); -#else - config::setRootDirectory("/etc/sdrpp"); -#endif - - // Load config - spdlog::info("Loading config"); - config::load(config::getRootDirectory() + "/config.json"); - config::startAutoSave(); - - // Setup window - glfwSetErrorCallback(glfw_error_callback); - if (!glfwInit()) { - return 1; - } - - glfwWindowHint(GLFW_CONTEXT_VERSION_MAJOR, 3); - glfwWindowHint(GLFW_CONTEXT_VERSION_MINOR, 2); - glfwWindowHint(GLFW_OPENGL_PROFILE, GLFW_OPENGL_CORE_PROFILE); // 3.2+ only - glfwWindowHint(GLFW_OPENGL_FORWARD_COMPAT, GL_TRUE); // Required on Mac - - int winWidth = config::config["windowSize"]["w"]; - int winHeight = config::config["windowSize"]["h"]; - maximized = config::config["maximized"]; - - // Create window with graphics context - GLFWmonitor* monitor = glfwGetPrimaryMonitor(); - GLFWwindow* window = glfwCreateWindow(winWidth, winHeight, "SDR++ v" VERSION_STR " (Built at " __TIME__ ", " __DATE__ ")", NULL, NULL); - if (window == NULL) - return 1; - glfwMakeContextCurrent(window); - glfwSwapInterval(1); // Enable vsync - - if (maximized) { - glfwMaximizeWindow(window); - } - - glfwSetWindowMaximizeCallback(window, maximized_callback); - - // Load app icon - GLFWimage icons[10]; - icons[0].pixels = stbi_load((config::getRootDirectory() + "/res/icons/sdrpp.png").c_str(), &icons[0].width, &icons[0].height, 0, 4); - icons[1].pixels = (unsigned char*)malloc(16 * 16 * 4); icons[1].width = icons[1].height = 16; - icons[2].pixels = (unsigned char*)malloc(24 * 24 * 4); icons[2].width = icons[2].height = 24; - icons[3].pixels = (unsigned char*)malloc(32 * 32 * 4); icons[3].width = icons[3].height = 32; - icons[4].pixels = (unsigned char*)malloc(48 * 48 * 4); icons[4].width = icons[4].height = 48; - icons[5].pixels = (unsigned char*)malloc(64 * 64 * 4); icons[5].width = icons[5].height = 64; - icons[6].pixels = (unsigned char*)malloc(96 * 96 * 4); icons[6].width = icons[6].height = 96; - icons[7].pixels = (unsigned char*)malloc(128 * 128 * 4); icons[7].width = icons[7].height = 128; - icons[8].pixels = (unsigned char*)malloc(196 * 196 * 4); icons[8].width = icons[8].height = 196; - icons[9].pixels = (unsigned char*)malloc(256 * 256 * 4); icons[9].width = icons[9].height = 256; - stbir_resize_uint8(icons[0].pixels, icons[0].width, icons[0].height, icons[0].width * 4, icons[1].pixels, 16, 16, 16 * 4, 4); - stbir_resize_uint8(icons[0].pixels, icons[0].width, icons[0].height, icons[0].width * 4, icons[2].pixels, 24, 24, 24 * 4, 4); - stbir_resize_uint8(icons[0].pixels, icons[0].width, icons[0].height, icons[0].width * 4, icons[3].pixels, 32, 32, 32 * 4, 4); - stbir_resize_uint8(icons[0].pixels, icons[0].width, icons[0].height, icons[0].width * 4, icons[4].pixels, 48, 48, 48 * 4, 4); - stbir_resize_uint8(icons[0].pixels, icons[0].width, icons[0].height, icons[0].width * 4, icons[5].pixels, 64, 64, 64 * 4, 4); - stbir_resize_uint8(icons[0].pixels, icons[0].width, icons[0].height, icons[0].width * 4, icons[6].pixels, 96, 96, 96 * 4, 4); - stbir_resize_uint8(icons[0].pixels, icons[0].width, icons[0].height, icons[0].width * 4, icons[7].pixels, 128, 128, 128 * 4, 4); - stbir_resize_uint8(icons[0].pixels, icons[0].width, icons[0].height, icons[0].width * 4, icons[8].pixels, 196, 196, 196 * 4, 4); - stbir_resize_uint8(icons[0].pixels, icons[0].width, icons[0].height, icons[0].width * 4, icons[9].pixels, 256, 256, 256 * 4, 4); - glfwSetWindowIcon(window, 10, icons); - stbi_image_free(icons[0].pixels); - for (int i = 1; i < 10; i++) { - free(icons[i].pixels); - } - - if (glewInit() != GLEW_OK) { - spdlog::error("Failed to initialize OpenGL loader!"); - return 1; - } - - - // Setup Dear ImGui context - IMGUI_CHECKVERSION(); - ImGui::CreateContext(); - ImGuiIO& io = ImGui::GetIO(); (void)io; - io.IniFilename = NULL; - - // Setup Platform/Renderer bindings - ImGui_ImplGlfw_InitForOpenGL(window, true); - ImGui_ImplOpenGL3_Init("#version 150"); - - style::setDarkStyle(); - - - // ==================================================== - // glfwPollEvents(); - // ImGui_ImplOpenGL3_NewFrame(); - // ImGui_ImplGlfw_NewFrame(); - // ImGui::NewFrame(); - - // ImGui::ShowDemoWindow(); - - // ImGui::Render(); - // int display_w, display_h; - // glfwGetFramebufferSize(window, &display_w, &display_h); - // glViewport(0, 0, display_w, display_h); - // glClearColor(0.0666f, 0.0666f, 0.0666f, 1.0f); - // //glClearColor(0.9f, 0.9f, 0.9f, 1.0f); - // glClear(GL_COLOR_BUFFER_BIT); - // ImGui_ImplOpenGL3_RenderDrawData(ImGui::GetDrawData()); - - // glfwSwapBuffers(window); - // ==================================================== - - spdlog::info("Loading icons"); - icons::load(); - - spdlog::info("Loading band plans"); - bandplan::loadFromDir(config::getRootDirectory() + "/bandplans"); - - spdlog::info("Loading band plans color table"); - bandplan::loadColorTable(config::getRootDirectory() + "/band_colors.json"); - - windowInit(); - - spdlog::info("Ready."); - - bool _maximized = maximized; - int fsWidth, fsHeight, fsPosX, fsPosY; - - // Main loop - while (!glfwWindowShouldClose(window)) { - glfwPollEvents(); - - // Start the Dear ImGui frame - ImGui_ImplOpenGL3_NewFrame(); - ImGui_ImplGlfw_NewFrame(); - ImGui::NewFrame(); - - if (_maximized != maximized) { - _maximized = maximized; - config::config["maximized"]= _maximized; - config::configModified = true; - if (!maximized) { - glfwSetWindowSize(window, config::config["windowSize"]["w"], config::config["windowSize"]["h"]); - } - } - - - - int _winWidth, _winHeight; - glfwGetWindowSize(window, &_winWidth, &_winHeight); - - if (ImGui::IsKeyPressed(GLFW_KEY_F11)) { - fullScreen = !fullScreen; - if (fullScreen) { - spdlog::info("Fullscreen: ON"); - fsWidth = _winWidth; - fsHeight = _winHeight; - glfwGetWindowPos(window, &fsPosX, &fsPosY); - const GLFWvidmode * mode = glfwGetVideoMode(glfwGetPrimaryMonitor()); - glfwSetWindowMonitor(window, monitor, 0, 0, mode->width, mode->height, 0); - } - else { - spdlog::info("Fullscreen: OFF"); - glfwSetWindowMonitor(window, nullptr, fsPosX, fsPosY, fsWidth, fsHeight, 0); - } - } - - if ((_winWidth != winWidth || _winHeight != winHeight) && !maximized && _winWidth > 0 && _winHeight > 0) { - winWidth = _winWidth; - winHeight = _winHeight; - config::config["windowSize"]["w"] = winWidth; - config::config["windowSize"]["h"] = winHeight; - config::configModified = true; - } - - if (winWidth > 0 && winHeight > 0) { - ImGui::SetNextWindowPos(ImVec2(0, 0)); - ImGui::SetNextWindowSize(ImVec2(_winWidth, _winHeight)); - drawWindow(); - } - - // Rendering - ImGui::Render(); - int display_w, display_h; - glfwGetFramebufferSize(window, &display_w, &display_h); - glViewport(0, 0, display_w, display_h); - glClearColor(0.0666f, 0.0666f, 0.0666f, 1.0f); - //glClearColor(0.9f, 0.9f, 0.9f, 1.0f); - glClear(GL_COLOR_BUFFER_BIT); - ImGui_ImplOpenGL3_RenderDrawData(ImGui::GetDrawData()); - - glfwSwapBuffers(window); - } - - // Cleanup - ImGui_ImplOpenGL3_Shutdown(); - ImGui_ImplGlfw_Shutdown(); - ImGui::DestroyContext(); - - glfwDestroyWindow(window); - glfwTerminate(); - - return 0; + return sdrpp_main(); } \ No newline at end of file From 9de585190f9a608973e3c7245c7b9645e6f1160e Mon Sep 17 00:00:00 2001 From: Ryzerth Date: Sun, 20 Sep 2020 00:19:39 +0200 Subject: [PATCH 02/33] Fixed issues with new module system --- .gitignore | 3 +- core/CMakeLists.txt | 5 +- core/src/core.cpp | 36 ++-- core/src/{ => gui}/bandplan.cpp | 2 +- core/src/{ => gui}/bandplan.h | 0 core/src/{ => gui}/frequency_select.cpp | 2 +- core/src/{ => gui}/frequency_select.h | 0 core/src/gui/gui.cpp | 6 + core/src/gui/gui.h | 9 + core/src/{ => gui}/icons.cpp | 2 +- core/src/{ => gui}/icons.h | 0 core/src/{ => gui}/main_window.cpp | 191 +++++++++--------- core/src/{ => gui}/main_window.h | 17 +- core/src/gui/menu.cpp | 24 +++ core/src/gui/menu.h | 23 +++ core/src/{ => gui}/style.cpp | 2 +- core/src/{ => gui}/style.h | 0 core/src/{ => gui}/waterfall.cpp | 3 +- core/src/{ => gui}/waterfall.h | 2 +- core/src/module.cpp | 16 +- core/src/module.h | 17 +- core/src/{ => signal_path}/audio.cpp | 2 +- core/src/{ => signal_path}/audio.h | 0 .../{signal_path.cpp => signal_path/dsp.cpp} | 2 +- core/src/{signal_path.h => signal_path/dsp.h} | 0 core/src/signal_path/signal_path.cpp | 6 + core/src/signal_path/signal_path.h | 9 + core/src/signal_path/vfo_manager.cpp | 128 ++++++++++++ core/src/signal_path/vfo_manager.h | 47 +++++ core/src/vfo_manager.cpp | 99 --------- core/src/vfo_manager.h | 24 --- demo/CMakeLists.txt | 7 + demo/src/main.cpp | 2 +- radio/CMakeLists.txt | 49 +---- radio/src/main.cpp | 9 +- radio/src/path.cpp | 65 +++--- radio/src/path.h | 5 +- root_dev/config.json | 4 +- 38 files changed, 460 insertions(+), 358 deletions(-) rename core/src/{ => gui}/bandplan.cpp (99%) rename core/src/{ => gui}/bandplan.h (100%) rename core/src/{ => gui}/frequency_select.cpp (99%) rename core/src/{ => gui}/frequency_select.h (100%) create mode 100644 core/src/gui/gui.cpp create mode 100644 core/src/gui/gui.h rename core/src/{ => gui}/icons.cpp (98%) rename core/src/{ => gui}/icons.h (100%) rename core/src/{ => gui}/main_window.cpp (83%) rename core/src/{ => gui}/main_window.h (74%) create mode 100644 core/src/gui/menu.cpp create mode 100644 core/src/gui/menu.h rename core/src/{ => gui}/style.cpp (99%) rename core/src/{ => gui}/style.h (100%) rename core/src/{ => gui}/waterfall.cpp (99%) rename core/src/{ => gui}/waterfall.h (99%) rename core/src/{ => signal_path}/audio.cpp (99%) rename core/src/{ => signal_path}/audio.h (100%) rename core/src/{signal_path.cpp => signal_path/dsp.cpp} (98%) rename core/src/{signal_path.h => signal_path/dsp.h} (100%) create mode 100644 core/src/signal_path/signal_path.cpp create mode 100644 core/src/signal_path/signal_path.h create mode 100644 core/src/signal_path/vfo_manager.cpp create mode 100644 core/src/signal_path/vfo_manager.h delete mode 100644 core/src/vfo_manager.cpp delete mode 100644 core/src/vfo_manager.h diff --git a/.gitignore b/.gitignore index 12cbce3..357301d 100644 --- a/.gitignore +++ b/.gitignore @@ -2,4 +2,5 @@ build/ .vscode/ *.old *.dll -*.exe \ No newline at end of file +*.exe +*.zip \ No newline at end of file diff --git a/core/CMakeLists.txt b/core/CMakeLists.txt index d08495d..065841c 100644 --- a/core/CMakeLists.txt +++ b/core/CMakeLists.txt @@ -9,13 +9,16 @@ else() set(CMAKE_CXX_FLAGS "-O3 -std=c++17 -fpermissive -fsanitize=address -g") # set(CMAKE_CXX_FLAGS "-O3 -std=c++17 -fpermissive") endif (MSVC) +add_definitions(-DSDRPP_IS_CORE) # Main code file(GLOB SRC "src/*.cpp") +file(GLOB GUI "src/gui/*.cpp") +file(GLOB SIGPATH "src/signal_path/*.cpp") file(GLOB IMGUI "src/imgui/*.cpp") # Add code to dyn lib -add_library(sdrpp_core SHARED ${SRC} ${IMGUI}) +add_library(sdrpp_core SHARED ${SRC} ${GUI} ${SIGPATH} ${IMGUI}) # Include core headers target_include_directories(sdrpp_core PUBLIC "src/") diff --git a/core/src/core.cpp b/core/src/core.cpp index 4df80c9..d77835a 100644 --- a/core/src/core.cpp +++ b/core/src/core.cpp @@ -4,12 +4,12 @@ #include #include #include -#include -#include -#include +#include +#include +#include #include #include -#include +#include #include #include #include @@ -139,23 +139,23 @@ int sdrpp_main() { // ==================================================== - // glfwPollEvents(); - ImGui_ImplOpenGL3_NewFrame(); - // ImGui_ImplGlfw_NewFrame(); - // ImGui::NewFrame(); + // // glfwPollEvents(); + // ImGui_ImplOpenGL3_NewFrame(); + // // ImGui_ImplGlfw_NewFrame(); + // // ImGui::NewFrame(); - // ImGui::ShowDemoWindow(); + // // ImGui::ShowDemoWindow(); - // ImGui::Render(); - int display_w, display_h; - glfwGetFramebufferSize(window, &display_w, &display_h); - glViewport(0, 0, display_w, display_h); - glClearColor(0.0666f, 0.0666f, 0.0666f, 1.0f); - //glClearColor(0.9f, 0.9f, 0.9f, 1.0f); - glClear(GL_COLOR_BUFFER_BIT); - // ImGui_ImplOpenGL3_RenderDrawData(ImGui::GetDrawData()); + // // ImGui::Render(); + // int display_w, display_h; + // glfwGetFramebufferSize(window, &display_w, &display_h); + // glViewport(0, 0, display_w, display_h); + // glClearColor(0.0666f, 0.0666f, 0.0666f, 1.0f); + // //glClearColor(0.9f, 0.9f, 0.9f, 1.0f); + // glClear(GL_COLOR_BUFFER_BIT); + // // ImGui_ImplOpenGL3_RenderDrawData(ImGui::GetDrawData()); - glfwSwapBuffers(window); + // glfwSwapBuffers(window); // ==================================================== spdlog::info("Loading icons"); diff --git a/core/src/bandplan.cpp b/core/src/gui/bandplan.cpp similarity index 99% rename from core/src/bandplan.cpp rename to core/src/gui/bandplan.cpp index 47cb559..a0e6de9 100644 --- a/core/src/bandplan.cpp +++ b/core/src/gui/bandplan.cpp @@ -1,4 +1,4 @@ -#include +#include namespace bandplan { std::map bandplans; diff --git a/core/src/bandplan.h b/core/src/gui/bandplan.h similarity index 100% rename from core/src/bandplan.h rename to core/src/gui/bandplan.h diff --git a/core/src/frequency_select.cpp b/core/src/gui/frequency_select.cpp similarity index 99% rename from core/src/frequency_select.cpp rename to core/src/gui/frequency_select.cpp index fe750ff..b40aaba 100644 --- a/core/src/frequency_select.cpp +++ b/core/src/gui/frequency_select.cpp @@ -1,4 +1,4 @@ -#include +#include bool isInArea(ImVec2 val, ImVec2 min, ImVec2 max) { return val.x >= min.x && val.x < max.x && val.y >= min.y && val.y < max.y; diff --git a/core/src/frequency_select.h b/core/src/gui/frequency_select.h similarity index 100% rename from core/src/frequency_select.h rename to core/src/gui/frequency_select.h diff --git a/core/src/gui/gui.cpp b/core/src/gui/gui.cpp new file mode 100644 index 0000000..59c8b37 --- /dev/null +++ b/core/src/gui/gui.cpp @@ -0,0 +1,6 @@ +#include + +namespace gui { + ImGui::WaterFall waterfall; + FrequencySelect freqSelect; +}; \ No newline at end of file diff --git a/core/src/gui/gui.h b/core/src/gui/gui.h new file mode 100644 index 0000000..c65833c --- /dev/null +++ b/core/src/gui/gui.h @@ -0,0 +1,9 @@ +#pragma once +#include +#include +#include + +namespace gui { + SDRPP_EXPORT ImGui::WaterFall waterfall; + SDRPP_EXPORT FrequencySelect freqSelect; +}; \ No newline at end of file diff --git a/core/src/icons.cpp b/core/src/gui/icons.cpp similarity index 98% rename from core/src/icons.cpp rename to core/src/gui/icons.cpp index f80ff61..54c6f45 100644 --- a/core/src/icons.cpp +++ b/core/src/gui/icons.cpp @@ -1,4 +1,4 @@ -#include +#include #define STB_IMAGE_IMPLEMENTATION #include diff --git a/core/src/icons.h b/core/src/gui/icons.h similarity index 100% rename from core/src/icons.h rename to core/src/gui/icons.h diff --git a/core/src/main_window.cpp b/core/src/gui/main_window.cpp similarity index 83% rename from core/src/main_window.cpp rename to core/src/gui/main_window.cpp index bd196ff..b47a603 100644 --- a/core/src/main_window.cpp +++ b/core/src/gui/main_window.cpp @@ -1,9 +1,8 @@ -#include +#include +#include std::thread worker; std::mutex fft_mtx; -ImGui::WaterFall wtf; -FrequencySelect fSel; fftwf_complex *fft_in, *fft_out; fftwf_plan p; float* tempData; @@ -14,8 +13,6 @@ ImFont* bigFont; int fftSize = 8192 * 8; io::SoapyWrapper soapy; - -SignalPath sigPath; std::vector _data; std::vector fftTaps; void fftHandler(dsp::complex_t* samples) { @@ -33,7 +30,7 @@ void fftHandler(dsp::complex_t* samples) { _data[i] = (_data[i - 4] + _data[i - 3] + _data[i - 2] + _data[i - 1] + _data[i]) / 5.0f; } - wtf.pushFFT(_data, fftSize); + gui::waterfall.pushFFT(_data, fftSize); _data.clear(); } @@ -87,7 +84,7 @@ void loadSourceConfig(std::string name) { else { srId = std::distance(soapy.sampleRates.begin(), _srIt); } - sigPath.setSampleRate(sampleRate); + sigpath::signalPath.setSampleRate(sampleRate); soapy.setSampleRate(sampleRate); // Set gains @@ -107,8 +104,8 @@ void loadSourceConfig(std::string name) { } // Update GUI - wtf.setBandwidth(sampleRate); - wtf.setViewBandwidth(sampleRate); + gui::waterfall.setBandwidth(sampleRate); + gui::waterfall.setViewBandwidth(sampleRate); bw.val = sampleRate; } @@ -158,21 +155,19 @@ void windowInit() { spdlog::info("Initializing SoapySDR"); soapy.init(); - fSel.init(); + gui::freqSelect.init(); fft_in = (fftwf_complex*) fftwf_malloc(sizeof(fftwf_complex) * fftSize); fft_out = (fftwf_complex*) fftwf_malloc(sizeof(fftwf_complex) * fftSize); p = fftwf_plan_dft_1d(fftSize, fft_in, fft_out, FFTW_FORWARD, FFTW_ESTIMATE); - sigPath.init(sampleRate, 20, fftSize, &soapy.output, (dsp::complex_t*)fft_in, fftHandler); - sigPath.start(); - - vfoman::init(&wtf, &sigPath); + sigpath::signalPath.init(sampleRate, 20, fftSize, &soapy.output, (dsp::complex_t*)fft_in, fftHandler); + sigpath::signalPath.start(); uiGains = new float[soapy.gainList.size()]; spdlog::info("Loading modules"); - mod::initAPI(&wtf); + mod::initAPI(&gui::waterfall); mod::loadFromList(config::getRootDirectory() + "/module_list.json"); bigFont = ImGui::GetIO().Fonts->AddFontFromFileTTF((config::getRootDirectory() + "/res/fonts/Roboto-Medium.ttf").c_str(), 128.0f); @@ -206,7 +201,7 @@ void windowInit() { sourceName = soapy.devNameList[0]; } sampleRate = soapy.getSampleRate(); - sigPath.setSampleRate(sampleRate); + sigpath::signalPath.setSampleRate(sampleRate); } // Search for the first source in the list to have a config // If no pre-defined source, selected default device @@ -229,10 +224,10 @@ void windowInit() { // Update UI settings fftMin = config::config["min"]; fftMax = config::config["max"]; - wtf.setFFTMin(fftMin); - wtf.setWaterfallMin(fftMin); - wtf.setFFTMax(fftMax); - wtf.setWaterfallMax(fftMax); + gui::waterfall.setFFTMin(fftMin); + gui::waterfall.setWaterfallMin(fftMin); + gui::waterfall.setFFTMax(fftMax); + gui::waterfall.setWaterfallMax(fftMax); bandPlanEnabled.val = config::config["bandPlanEnabled"]; bandPlanEnabled.markAsChanged(); @@ -243,10 +238,10 @@ void windowInit() { bandplanId.val = std::distance(bandplan::bandplans.begin(), bandplan::bandplans.find(bandPlanName)); if (bandPlanEnabled.val) { - wtf.bandplan = &bandplan::bandplans[bandPlanName]; + gui::waterfall.bandplan = &bandplan::bandplans[bandPlanName]; } else { - wtf.bandplan = NULL; + gui::waterfall.bandplan = NULL; } } else { @@ -255,16 +250,16 @@ void windowInit() { bandplanId.markAsChanged(); - fSel.setFrequency(frequency); - fSel.frequencyChanged = false; + gui::freqSelect.setFrequency(frequency); + gui::freqSelect.frequencyChanged = false; soapy.setFrequency(frequency); - wtf.setCenterFrequency(frequency); - wtf.setBandwidth(sampleRate); - wtf.setViewBandwidth(sampleRate); + gui::waterfall.setCenterFrequency(frequency); + gui::waterfall.setBandwidth(sampleRate); + gui::waterfall.setViewBandwidth(sampleRate); bw.val = sampleRate; - wtf.vfoFreqChanged = false; - wtf.centerFreqMoved = false; - wtf.selectFirstVFO(); + gui::waterfall.vfoFreqChanged = false; + gui::waterfall.centerFreqMoved = false; + gui::waterfall.selectFirstVFO(); for (auto [name, stream] : audio::streams) { if (config::config["audio"].contains(name)) { @@ -277,7 +272,7 @@ void windowInit() { } } - audioStreamName = audio::getNameFromVFO(wtf.selectedVFO); + audioStreamName = audio::getNameFromVFO(gui::waterfall.selectedVFO); if (audioStreamName != "") { volume = &audio::streams[audioStreamName]->volume; } @@ -287,18 +282,18 @@ void windowInit() { showWaterfall = config::config["showWaterfall"]; if (!showWaterfall) { - wtf.hideWaterfall(); + gui::waterfall.hideWaterfall(); } fftHeight = config::config["fftHeight"]; - wtf.setFFTHeight(fftHeight); + gui::waterfall.setFFTHeight(fftHeight); } void setVFO(float freq) { - ImGui::WaterfallVFO* vfo = wtf.vfos[wtf.selectedVFO]; + ImGui::WaterfallVFO* vfo = gui::waterfall.vfos[gui::waterfall.selectedVFO]; float currentOff = vfo->centerOffset; - float currentTune = wtf.getCenterFrequency() + vfo->generalOffset; + float currentTune = gui::waterfall.getCenterFrequency() + vfo->generalOffset; float delta = freq - currentTune; float newVFO = currentOff + delta; @@ -306,38 +301,38 @@ void setVFO(float freq) { float vfoBottom = newVFO - (vfoBW / 2.0f); float vfoTop = newVFO + (vfoBW / 2.0f); - float view = wtf.getViewOffset(); - float viewBW = wtf.getViewBandwidth(); + float view = gui::waterfall.getViewOffset(); + float viewBW = gui::waterfall.getViewBandwidth(); float viewBottom = view - (viewBW / 2.0f); float viewTop = view + (viewBW / 2.0f); - float wholeFreq = wtf.getCenterFrequency(); - float BW = wtf.getBandwidth(); + float wholeFreq = gui::waterfall.getCenterFrequency(); + float BW = gui::waterfall.getBandwidth(); float bottom = -(BW / 2.0f); float top = (BW / 2.0f); // VFO still fints in the view if (vfoBottom > viewBottom && vfoTop < viewTop) { - vfoman::setCenterOffset(wtf.selectedVFO, newVFO); + sigpath::vfoManager.setCenterOffset(gui::waterfall.selectedVFO, newVFO); return; } // VFO too low for current SDR tuning if (vfoBottom < bottom) { - wtf.setViewOffset((BW / 2.0f) - (viewBW / 2.0f)); + gui::waterfall.setViewOffset((BW / 2.0f) - (viewBW / 2.0f)); float newVFOOffset = (BW / 2.0f) - (vfoBW / 2.0f) - (viewBW / 10.0f); - vfoman::setCenterOffset(wtf.selectedVFO, newVFOOffset); - wtf.setCenterFrequency(freq - newVFOOffset); + sigpath::vfoManager.setCenterOffset(gui::waterfall.selectedVFO, newVFOOffset); + gui::waterfall.setCenterFrequency(freq - newVFOOffset); soapy.setFrequency(freq - newVFOOffset); return; } // VFO too high for current SDR tuning if (vfoTop > top) { - wtf.setViewOffset((viewBW / 2.0f) - (BW / 2.0f)); + gui::waterfall.setViewOffset((viewBW / 2.0f) - (BW / 2.0f)); float newVFOOffset = (vfoBW / 2.0f) - (BW / 2.0f) + (viewBW / 10.0f); - vfoman::setCenterOffset(wtf.selectedVFO, newVFOOffset); - wtf.setCenterFrequency(freq - newVFOOffset); + sigpath::vfoManager.setCenterOffset(gui::waterfall.selectedVFO, newVFOOffset); + gui::waterfall.setCenterFrequency(freq - newVFOOffset); soapy.setFrequency(freq - newVFOOffset); return; } @@ -349,15 +344,15 @@ void setVFO(float freq) { float newViewTop = newViewOff + (viewBW / 2.0f); if (newViewBottom > bottom) { - wtf.setViewOffset(newViewOff); - vfoman::setCenterOffset(wtf.selectedVFO, newVFO); + gui::waterfall.setViewOffset(newViewOff); + sigpath::vfoManager.setCenterOffset(gui::waterfall.selectedVFO, newVFO); return; } - wtf.setViewOffset((BW / 2.0f) - (viewBW / 2.0f)); + gui::waterfall.setViewOffset((BW / 2.0f) - (viewBW / 2.0f)); float newVFOOffset = (BW / 2.0f) - (vfoBW / 2.0f) - (viewBW / 10.0f); - vfoman::setCenterOffset(wtf.selectedVFO, newVFOOffset); - wtf.setCenterFrequency(freq - newVFOOffset); + sigpath::vfoManager.setCenterOffset(gui::waterfall.selectedVFO, newVFOOffset); + gui::waterfall.setCenterFrequency(freq - newVFOOffset); soapy.setFrequency(freq - newVFOOffset); } else { @@ -366,15 +361,15 @@ void setVFO(float freq) { float newViewTop = newViewOff + (viewBW / 2.0f); if (newViewTop < top) { - wtf.setViewOffset(newViewOff); - vfoman::setCenterOffset(wtf.selectedVFO, newVFO); + gui::waterfall.setViewOffset(newViewOff); + sigpath::vfoManager.setCenterOffset(gui::waterfall.selectedVFO, newVFO); return; } - wtf.setViewOffset((viewBW / 2.0f) - (BW / 2.0f)); + gui::waterfall.setViewOffset((viewBW / 2.0f) - (BW / 2.0f)); float newVFOOffset = (vfoBW / 2.0f) - (BW / 2.0f) + (viewBW / 10.0f); - vfoman::setCenterOffset(wtf.selectedVFO, newVFOOffset); - wtf.setCenterFrequency(freq - newVFOOffset); + sigpath::vfoManager.setCenterOffset(gui::waterfall.selectedVFO, newVFOOffset); + gui::waterfall.setCenterFrequency(freq - newVFOOffset); soapy.setFrequency(freq - newVFOOffset); } } @@ -382,61 +377,61 @@ void setVFO(float freq) { void drawWindow() { ImGui::Begin("Main", NULL, WINDOW_FLAGS); - ImGui::WaterfallVFO* vfo = wtf.vfos[wtf.selectedVFO]; + ImGui::WaterfallVFO* vfo = gui::waterfall.vfos[gui::waterfall.selectedVFO]; if (vfo->centerOffsetChanged) { - fSel.setFrequency(wtf.getCenterFrequency() + vfo->generalOffset); - fSel.frequencyChanged = false; - config::config["frequency"] = fSel.frequency; + gui::freqSelect.setFrequency(gui::waterfall.getCenterFrequency() + vfo->generalOffset); + gui::freqSelect.frequencyChanged = false; + config::config["frequency"] = gui::freqSelect.frequency; config::configModified = true; } - vfoman::updateFromWaterfall(); + sigpath::vfoManager.updateFromWaterfall(&gui::waterfall); - if (wtf.selectedVFOChanged) { - wtf.selectedVFOChanged = false; - fSel.setFrequency(vfo->generalOffset + wtf.getCenterFrequency()); - fSel.frequencyChanged = false; + if (gui::waterfall.selectedVFOChanged) { + gui::waterfall.selectedVFOChanged = false; + gui::freqSelect.setFrequency(vfo->generalOffset + gui::waterfall.getCenterFrequency()); + gui::freqSelect.frequencyChanged = false; mod::broadcastEvent(mod::EVENT_SELECTED_VFO_CHANGED); - audioStreamName = audio::getNameFromVFO(wtf.selectedVFO); + audioStreamName = audio::getNameFromVFO(gui::waterfall.selectedVFO); if (audioStreamName != "") { volume = &audio::streams[audioStreamName]->volume; } - config::config["frequency"] = fSel.frequency; + config::config["frequency"] = gui::freqSelect.frequency; config::configModified = true; } - if (fSel.frequencyChanged) { - fSel.frequencyChanged = false; - setVFO(fSel.frequency); + if (gui::freqSelect.frequencyChanged) { + gui::freqSelect.frequencyChanged = false; + setVFO(gui::freqSelect.frequency); vfo->centerOffsetChanged = false; vfo->lowerOffsetChanged = false; vfo->upperOffsetChanged = false; - config::config["frequency"] = fSel.frequency; + config::config["frequency"] = gui::freqSelect.frequency; config::configModified = true; } - if (wtf.centerFreqMoved) { - wtf.centerFreqMoved = false; - soapy.setFrequency(wtf.getCenterFrequency()); - fSel.setFrequency(wtf.getCenterFrequency() + vfo->generalOffset); - config::config["frequency"] = fSel.frequency; + if (gui::waterfall.centerFreqMoved) { + gui::waterfall.centerFreqMoved = false; + soapy.setFrequency(gui::waterfall.getCenterFrequency()); + gui::freqSelect.setFrequency(gui::waterfall.getCenterFrequency() + vfo->generalOffset); + config::config["frequency"] = gui::freqSelect.frequency; config::configModified = true; } if (dcbias.changed()) { - sigPath.setDCBiasCorrection(dcbias.val); + sigpath::signalPath.setDCBiasCorrection(dcbias.val); } if (bandplanId.changed() && bandPlanEnabled.val) { - wtf.bandplan = &bandplan::bandplans[bandplan::bandplanNames[bandplanId.val]]; + gui::waterfall.bandplan = &bandplan::bandplans[bandplan::bandplanNames[bandplanId.val]]; } if (bandPlanEnabled.changed()) { - wtf.bandplan = bandPlanEnabled.val ? &bandplan::bandplans[bandplan::bandplanNames[bandplanId.val]] : NULL; + gui::waterfall.bandplan = bandPlanEnabled.val ? &bandplan::bandplans[bandplan::bandplanNames[bandplanId.val]] : NULL; } - int _fftHeight = wtf.getFFTHeight(); + int _fftHeight = gui::waterfall.getFFTHeight(); if (fftHeight != _fftHeight) { fftHeight = _fftHeight; config::config["fftHeight"] = fftHeight; @@ -472,7 +467,7 @@ void drawWindow() { else { if (ImGui::ImageButton(icons::PLAY, ImVec2(40, 40), ImVec2(0, 0), ImVec2(1, 1), 0) && soapy.devList.size() > 0) { soapy.start(); - soapy.setFrequency(wtf.getCenterFrequency()); + soapy.setFrequency(gui::waterfall.getCenterFrequency()); playing = true; } } @@ -494,7 +489,7 @@ void drawWindow() { ImGui::SameLine(); - fSel.draw(); + gui::freqSelect.draw(); ImGui::SameLine(); @@ -564,9 +559,9 @@ void drawWindow() { srId = 0; sampleRate = soapy.getSampleRate(); bw.val = sampleRate; - wtf.setBandwidth(sampleRate); - wtf.setViewBandwidth(sampleRate); - sigPath.setSampleRate(sampleRate); + gui::waterfall.setBandwidth(sampleRate); + gui::waterfall.setViewBandwidth(sampleRate); + sigpath::signalPath.setSampleRate(sampleRate); if (soapy.gainList.size() >= 0) { delete[] uiGains; @@ -576,7 +571,7 @@ void drawWindow() { } } } - setVFO(fSel.frequency); + setVFO(gui::freqSelect.frequency); config::config["source"] = sourceName; config::configModified = true; } @@ -586,9 +581,9 @@ void drawWindow() { spdlog::info("Changed sample rate: {0}", srId); sampleRate = soapy.sampleRates[srId]; soapy.setSampleRate(sampleRate); - wtf.setBandwidth(sampleRate); - wtf.setViewBandwidth(sampleRate); - sigPath.setSampleRate(sampleRate); + gui::waterfall.setBandwidth(sampleRate); + gui::waterfall.setViewBandwidth(sampleRate); + sigpath::signalPath.setSampleRate(sampleRate); bw.val = sampleRate; if (!config::config["sourceSettings"].contains(sourceName)) { @@ -739,7 +734,7 @@ void drawWindow() { if (ImGui::CollapsingHeader("Display", ImGuiTreeNodeFlags_DefaultOpen)) { if (ImGui::Checkbox("Show waterfall", &showWaterfall)) { - showWaterfall ? wtf.showWaterfall() : wtf.hideWaterfall(); + showWaterfall ? gui::waterfall.showWaterfall() : gui::waterfall.hideWaterfall(); } ImGui::Spacing(); } @@ -747,7 +742,7 @@ void drawWindow() { if(ImGui::CollapsingHeader("Debug")) { ImGui::Text("Frame time: %.3f ms/frame", 1000.0f / ImGui::GetIO().Framerate); ImGui::Text("Framerate: %.1f FPS", ImGui::GetIO().Framerate); - ImGui::Text("Center Frequency: %.0f Hz", wtf.getCenterFrequency()); + ImGui::Text("Center Frequency: %.0f Hz", gui::waterfall.getCenterFrequency()); ImGui::Text("Source name: %s", sourceName.c_str()); ImGui::Spacing(); } @@ -769,7 +764,7 @@ void drawWindow() { ImGui::BeginChild("Waterfall"); - wtf.draw(); + gui::waterfall.draw(); ImGui::EndChild(); @@ -807,14 +802,14 @@ void drawWindow() { ImGui::EndChild(); if (bw.changed()) { - wtf.setViewBandwidth(bw.val); - wtf.setViewOffset(vfo->centerOffset); + gui::waterfall.setViewBandwidth(bw.val); + gui::waterfall.setViewOffset(vfo->centerOffset); } - wtf.setFFTMin(fftMin); - wtf.setFFTMax(fftMax); - wtf.setWaterfallMin(fftMin); - wtf.setWaterfallMax(fftMax); + gui::waterfall.setFFTMin(fftMin); + gui::waterfall.setFFTMax(fftMax); + gui::waterfall.setWaterfallMin(fftMin); + gui::waterfall.setWaterfallMax(fftMax); ImGui::End(); diff --git a/core/src/main_window.h b/core/src/gui/main_window.h similarity index 74% rename from core/src/main_window.h rename to core/src/gui/main_window.h index 2b7fe92..265717f 100644 --- a/core/src/main_window.h +++ b/core/src/gui/main_window.h @@ -13,19 +13,20 @@ #include #include #include -#include -#include +#include +#include #include -#include +#include #include -#include -#include +#include +#include #include #include -#include -#include -#include +#include +#include +#include #include +#include #define WINDOW_FLAGS ImGuiWindowFlags_NoMove | ImGuiWindowFlags_NoCollapse | ImGuiWindowFlags_NoBringToFrontOnFocus | ImGuiWindowFlags_NoTitleBar | ImGuiWindowFlags_NoResize | ImGuiWindowFlags_NoBackground diff --git a/core/src/gui/menu.cpp b/core/src/gui/menu.cpp new file mode 100644 index 0000000..b967698 --- /dev/null +++ b/core/src/gui/menu.cpp @@ -0,0 +1,24 @@ +#include + +Menu::Menu() { + +} + +void Menu::registerEntry(std::string name, void (*drawHandler)(void* ctx), void* ctx) { + MenuItem_t item; + item.drawHandler = drawHandler; + item.ctx = ctx; + items[name] = item; +} + +void Menu::removeEntry(std::string name) { + items.erase(name); +} + +void Menu::draw() { + MenuItem_t item; + for (std::string name : order) { + item = items[name]; + item.drawHandler(item.ctx); + } +} diff --git a/core/src/gui/menu.h b/core/src/gui/menu.h new file mode 100644 index 0000000..e7f21f5 --- /dev/null +++ b/core/src/gui/menu.h @@ -0,0 +1,23 @@ +#pragma once +#include +#include +#include + +class Menu { +public: + Menu(); + + struct MenuItem_t { + void (*drawHandler)(void* ctx); + void* ctx; + }; + + void registerEntry(std::string name, void (*drawHandler)(void* ctx), void* ctx = NULL); + void removeEntry(std::string name); + void draw(); + + std::vector order; + +private: + std::map items; +}; \ No newline at end of file diff --git a/core/src/style.cpp b/core/src/gui/style.cpp similarity index 99% rename from core/src/style.cpp rename to core/src/gui/style.cpp index 9f2a5b1..e55df3d 100644 --- a/core/src/style.cpp +++ b/core/src/gui/style.cpp @@ -1,4 +1,4 @@ -#include +#include namespace style { void setDefaultStyle() { diff --git a/core/src/style.h b/core/src/gui/style.h similarity index 100% rename from core/src/style.h rename to core/src/gui/style.h diff --git a/core/src/waterfall.cpp b/core/src/gui/waterfall.cpp similarity index 99% rename from core/src/waterfall.cpp rename to core/src/gui/waterfall.cpp index d590f78..6a17381 100644 --- a/core/src/waterfall.cpp +++ b/core/src/gui/waterfall.cpp @@ -1,4 +1,4 @@ -#include +#include float COLOR_MAP[][3] = { {0x00, 0x00, 0x20}, @@ -650,6 +650,7 @@ namespace ImGui { } void WaterfallVFO::setOffset(float offset) { + printf("WaterfallVFO::SetOffset: %p\n", this); generalOffset = offset; if (reference == REF_CENTER) { centerOffset = offset; diff --git a/core/src/waterfall.h b/core/src/gui/waterfall.h similarity index 99% rename from core/src/waterfall.h rename to core/src/gui/waterfall.h index e7d21aa..1ce08a3 100644 --- a/core/src/waterfall.h +++ b/core/src/gui/waterfall.h @@ -5,7 +5,7 @@ #include #include #include -#include +#include #include #define WATERFALL_RESOLUTION 1000000 diff --git a/core/src/module.cpp b/core/src/module.cpp index 2ea8be1..4df0851 100644 --- a/core/src/module.cpp +++ b/core/src/module.cpp @@ -1,7 +1,7 @@ #include -#include -#include -#include +#include +#include +#include namespace mod { API_t API; @@ -16,16 +16,6 @@ namespace mod { void initAPI(ImGui::WaterFall* wtf) { _wtf = wtf; - // VFO Manager - API.registerVFO = vfoman::create; - API.setVFOOffset = vfoman::setOffset; - API.setVFOCenterOffset = vfoman::setCenterOffset; - API.setVFOBandwidth = vfoman::setBandwidth; - API.setVFOSampleRate = vfoman::setSampleRate; - API.getVFOOutputBlockSize = vfoman::getOutputBlockSize; - API.setVFOReference = vfoman::setReference; - API.removeVFO = vfoman::remove; - // GUI API.getSelectedVFOName = api_getSelectedVFOName; API.bindVolumeVariable = bindVolumeVariable; diff --git a/core/src/module.h b/core/src/module.h index d5b1619..f98384d 100644 --- a/core/src/module.h +++ b/core/src/module.h @@ -7,16 +7,25 @@ #include #include #include -#include +#include #include +#ifdef _WIN32 +#ifdef SDRPP_IS_CORE +#define SDRPP_EXPORT extern "C" __declspec(dllexport) +#else +#define SDRPP_EXPORT extern "C" __declspec(dllimport) +#endif +#else +#define SDRPP_EXPORT /**/ +#endif + #ifdef _WIN32 #include -#define MOD_EXPORT extern "C" \ - __declspec(dllexport) +#define MOD_EXPORT extern "C" __declspec(dllexport) #else #include -#define MOD_EXPORT extern "C" +#define MOD_EXPORT extern "C" #endif namespace mod { diff --git a/core/src/audio.cpp b/core/src/signal_path/audio.cpp similarity index 99% rename from core/src/audio.cpp rename to core/src/signal_path/audio.cpp index 18acf10..363ef7a 100644 --- a/core/src/audio.cpp +++ b/core/src/signal_path/audio.cpp @@ -1,4 +1,4 @@ -#include +#include namespace audio { std::map streams; diff --git a/core/src/audio.h b/core/src/signal_path/audio.h similarity index 100% rename from core/src/audio.h rename to core/src/signal_path/audio.h diff --git a/core/src/signal_path.cpp b/core/src/signal_path/dsp.cpp similarity index 98% rename from core/src/signal_path.cpp rename to core/src/signal_path/dsp.cpp index 777dcb3..f2f5033 100644 --- a/core/src/signal_path.cpp +++ b/core/src/signal_path/dsp.cpp @@ -1,4 +1,4 @@ -#include +#include SignalPath::SignalPath() { diff --git a/core/src/signal_path.h b/core/src/signal_path/dsp.h similarity index 100% rename from core/src/signal_path.h rename to core/src/signal_path/dsp.h diff --git a/core/src/signal_path/signal_path.cpp b/core/src/signal_path/signal_path.cpp new file mode 100644 index 0000000..13188e1 --- /dev/null +++ b/core/src/signal_path/signal_path.cpp @@ -0,0 +1,6 @@ +#include + +namespace sigpath { + SignalPath signalPath; + VFOManager vfoManager; +}; \ No newline at end of file diff --git a/core/src/signal_path/signal_path.h b/core/src/signal_path/signal_path.h new file mode 100644 index 0000000..c0d10a7 --- /dev/null +++ b/core/src/signal_path/signal_path.h @@ -0,0 +1,9 @@ +#pragma once +#include +#include +#include + +namespace sigpath { + SDRPP_EXPORT SignalPath signalPath; + SDRPP_EXPORT VFOManager vfoManager; +}; \ No newline at end of file diff --git a/core/src/signal_path/vfo_manager.cpp b/core/src/signal_path/vfo_manager.cpp new file mode 100644 index 0000000..bf35699 --- /dev/null +++ b/core/src/signal_path/vfo_manager.cpp @@ -0,0 +1,128 @@ +#include +#include + +VFOManager::VFO::VFO(std::string name, int reference, float offset, float bandwidth, float sampleRate, int blockSize) { + this->name = name; + dspVFO = sigpath::signalPath.addVFO(name, sampleRate, bandwidth, offset); + wtfVFO = new ImGui::WaterfallVFO; + wtfVFO->setReference(reference); + wtfVFO->setBandwidth(bandwidth); + wtfVFO->setOffset(offset); + output = dspVFO->output; + printf("Created VFO: %p", wtfVFO); + gui::waterfall.vfos[name] = wtfVFO; +} + +VFOManager::VFO::~VFO() { + gui::waterfall.vfos.erase(name); + sigpath::signalPath.removeVFO(name); + delete wtfVFO; +} + +void VFOManager::VFO::setOffset(float offset) { + wtfVFO->setOffset(offset); + dspVFO->setOffset(wtfVFO->centerOffset); +} + +void VFOManager::VFO::setCenterOffset(float offset) { + wtfVFO->setCenterOffset(offset); + dspVFO->setOffset(offset); +} + +void VFOManager::VFO::setBandwidth(float bandwidth) { + wtfVFO->setBandwidth(bandwidth); + dspVFO->setBandwidth(bandwidth); +} + +void VFOManager::VFO::setSampleRate(float sampleRate, float bandwidth) { + dspVFO->setOutputSampleRate(sampleRate, bandwidth); + wtfVFO->setBandwidth(bandwidth); +} + +void VFOManager::VFO::setReference(int ref) { + wtfVFO->setReference(ref); +} + +int VFOManager::VFO::getOutputBlockSize() { + return dspVFO->getOutputBlockSize(); +} + + +VFOManager::VFOManager() { + +} + +VFOManager::VFO* VFOManager::createVFO(std::string name, int reference, float offset, float bandwidth, float sampleRate, int blockSize) { + if (vfos.find(name) != vfos.end() || name == "") { + return NULL; + } + VFOManager::VFO* vfo = new VFO(name, reference, offset, bandwidth, sampleRate, blockSize); + vfos[name] = vfo; + return vfo; +} + +void VFOManager::deleteVFO(VFOManager::VFO* vfo) { + std::string name = ""; + for (auto const& [_name, _vfo] : vfos) { + if (_vfo == vfo) { + name == _name; + break; + } + } + if (name == "") { + return; + } + vfos.erase(name); +} + +void VFOManager::setOffset(std::string name, float offset) { + if (vfos.find(name) == vfos.end()) { + return; + } + vfos[name]->setOffset(offset); +} + +void VFOManager::setCenterOffset(std::string name, float offset) { + if (vfos.find(name) == vfos.end()) { + return; + } + vfos[name]->setCenterOffset(offset); +} + +void VFOManager::setBandwidth(std::string name, float bandwidth) { + if (vfos.find(name) == vfos.end()) { + return; + } + vfos[name]->setBandwidth(bandwidth); +} + +void VFOManager::setSampleRate(std::string name, float sampleRate, float bandwidth) { + if (vfos.find(name) == vfos.end()) { + return; + } + vfos[name]->setSampleRate(sampleRate, bandwidth); +} + +void VFOManager::setReference(std::string name, int ref) { + if (vfos.find(name) == vfos.end()) { + return; + } + vfos[name]->setReference(ref); +} + +int VFOManager::getOutputBlockSize(std::string name) { + if (vfos.find(name) == vfos.end()) { + return -1; + } + return vfos[name]->getOutputBlockSize(); +} + +void VFOManager::updateFromWaterfall(ImGui::WaterFall* wtf) { + for (auto const& [name, vfo] : vfos) { + if (vfo->wtfVFO->centerOffsetChanged) { + spdlog::info("UH OH: Change!"); + vfo->wtfVFO->centerOffsetChanged = false; + vfo->dspVFO->setOffset(vfo->wtfVFO->centerOffset); + } + } +} diff --git a/core/src/signal_path/vfo_manager.h b/core/src/signal_path/vfo_manager.h new file mode 100644 index 0000000..c61ae86 --- /dev/null +++ b/core/src/signal_path/vfo_manager.h @@ -0,0 +1,47 @@ +#pragma once +#include +#include +#include + +class VFOManager { +public: + VFOManager(); + + class VFO { + public: + VFO(std::string name, int reference, float offset, float bandwidth, float sampleRate, int blockSize); + ~VFO(); + + void setOffset(float offset); + void setCenterOffset(float offset); + void setBandwidth(float bandwidth); + void setSampleRate(float sampleRate, float bandwidth); + void setReference(int ref); + int getOutputBlockSize(); + + dsp::stream* output; + + friend class VFOManager; + + private: + std::string name; + dsp::VFO* dspVFO; + ImGui::WaterfallVFO* wtfVFO; + + }; + + VFOManager::VFO* createVFO(std::string name, int reference, float offset, float bandwidth, float sampleRate, int blockSize); + void deleteVFO(VFOManager::VFO* vfo); + + void setOffset(std::string name, float offset); + void setCenterOffset(std::string name, float offset); + void setBandwidth(std::string name, float bandwidth); + void setSampleRate(std::string name, float sampleRate, float bandwidth); + void setReference(std::string name, int ref); + int getOutputBlockSize(std::string name); + + void updateFromWaterfall(ImGui::WaterFall* wtf); + +private: + std::map vfos; +}; \ No newline at end of file diff --git a/core/src/vfo_manager.cpp b/core/src/vfo_manager.cpp deleted file mode 100644 index fc23a34..0000000 --- a/core/src/vfo_manager.cpp +++ /dev/null @@ -1,99 +0,0 @@ -#include - -namespace vfoman { - std::map vfos; - ImGui::WaterFall* _wtf; - SignalPath* _sigPath; - - void init(ImGui::WaterFall* wtf, SignalPath* sigPath) { - _wtf = wtf; - _sigPath = sigPath; - } - - dsp::stream* create(std::string name, int reference, float offset, float bandwidth, float sampleRate, int blockSize) { - if (vfos.find(name) != vfos.end()) { - spdlog::warn("Tried to add VFO with an already existing name: {0}", name); - return NULL; - } - spdlog::info("Creating new VFO '{0}'", name); - VFO_t vfo; - vfo.dspVFO = _sigPath->addVFO(name, sampleRate, bandwidth, offset); - vfo.wtfVFO = new ImGui::WaterfallVFO; - vfo.wtfVFO->setReference(reference); - vfo.wtfVFO->setBandwidth(bandwidth); - vfo.wtfVFO->setOffset(offset); - _wtf->vfos[name] = vfo.wtfVFO; - vfos[name] = vfo; - return vfo.dspVFO->output; - } - - void setOffset(std::string name, float offset) { - if (vfos.find(name) == vfos.end()) { - return; - } - VFO_t vfo = vfos[name]; - vfo.wtfVFO->setOffset(offset); - vfo.dspVFO->setOffset(vfo.wtfVFO->centerOffset); - } - - void setCenterOffset(std::string name, float offset) { - if (vfos.find(name) == vfos.end()) { - return; - } - VFO_t vfo = vfos[name]; - vfo.wtfVFO->setCenterOffset(offset); - vfo.dspVFO->setOffset(offset); - } - - void setBandwidth(std::string name, float bandwidth) { - if (vfos.find(name) == vfos.end()) { - return; - } - VFO_t vfo = vfos[name]; - vfo.wtfVFO->setBandwidth(bandwidth); - vfo.dspVFO->setBandwidth(bandwidth); - } - - void setSampleRate(std::string name, float sampleRate, float bandwidth) { - if (vfos.find(name) == vfos.end()) { - return; - } - VFO_t vfo = vfos[name]; - vfo.dspVFO->setOutputSampleRate(sampleRate, bandwidth); - vfo.wtfVFO->setBandwidth(bandwidth); - } - - void setReference(std::string name, int ref){ - if (vfos.find(name) == vfos.end()) { - return; - } - vfos[name].wtfVFO->setReference(ref); - } - - int getOutputBlockSize(std::string name) { - if (vfos.find(name) == vfos.end()) { - return -1; - } - return vfos[name].dspVFO->getOutputBlockSize(); - } - - void remove(std::string name) { - if (vfos.find(name) == vfos.end()) { - return; - } - VFO_t vfo = vfos[name]; - _wtf->vfos.erase(name); - _sigPath->removeVFO(name); - delete vfo.wtfVFO; - vfos.erase(name); - } - - void updateFromWaterfall() { - for (auto const& [name, vfo] : vfos) { - if (vfo.wtfVFO->centerOffsetChanged) { - vfo.wtfVFO->centerOffsetChanged = false; - vfo.dspVFO->setOffset(vfo.wtfVFO->centerOffset); - } - } - } -}; \ No newline at end of file diff --git a/core/src/vfo_manager.h b/core/src/vfo_manager.h deleted file mode 100644 index 6656db8..0000000 --- a/core/src/vfo_manager.h +++ /dev/null @@ -1,24 +0,0 @@ -#pragma once -#include -#include -#include - -namespace vfoman { - struct VFO_t { - dsp::VFO* dspVFO; - ImGui::WaterfallVFO* wtfVFO; - }; - - void init(ImGui::WaterFall* wtf, SignalPath* sigPath); - - dsp::stream* create(std::string name, int reference, float offset, float bandwidth, float sampleRate, int blockSize); - void setOffset(std::string name, float offset); - void setCenterOffset(std::string name, float offset); - void setBandwidth(std::string name, float bandwidth); - void setSampleRate(std::string name, float sampleRate, float bandwidth); - void setReference(std::string name, int ref); - int getOutputBlockSize(std::string name); - void remove(std::string name); - - void updateFromWaterfall(); -}; \ No newline at end of file diff --git a/demo/CMakeLists.txt b/demo/CMakeLists.txt index 9fe9176..7354f36 100644 --- a/demo/CMakeLists.txt +++ b/demo/CMakeLists.txt @@ -1,6 +1,13 @@ cmake_minimum_required(VERSION 3.13) project(demo) +if (MSVC) + set(CMAKE_CXX_FLAGS "-O2 /std:c++17") +else() + set(CMAKE_CXX_FLAGS "-O3 -std=c++17 -fpermissive -fsanitize=address -g") + # set(CMAKE_CXX_FLAGS "-O3 -std=c++17 -fpermissive") +endif (MSVC) + file(GLOB SRC "src/*.cpp") add_library(demo SHARED ${SRC}) diff --git a/demo/src/main.cpp b/demo/src/main.cpp index 8abd3cf..0201e70 100644 --- a/demo/src/main.cpp +++ b/demo/src/main.cpp @@ -6,7 +6,7 @@ #include #include #include -#include +#include #define CONCAT(a, b) ((std::string(a) + b).c_str()) diff --git a/radio/CMakeLists.txt b/radio/CMakeLists.txt index 2ac85c5..b6cfe99 100644 --- a/radio/CMakeLists.txt +++ b/radio/CMakeLists.txt @@ -3,53 +3,14 @@ project(radio) if (MSVC) set(CMAKE_CXX_FLAGS "-O2 /std:c++17") - link_directories(radio "C:/Program Files/PothosSDR/lib/") - include_directories(radio "C:/Program Files/PothosSDR/include/volk/") - include_directories(radio "C:/Program Files/PothosSDR/include/") else() - set(CMAKE_CXX_FLAGS "-O3 -std=c++17 -fsanitize=address -g") - include_directories(radio "/usr/include/volk") - link_libraries(pthread) - link_libraries(GL) - link_libraries(GLEW) - link_libraries(glfw) - link_libraries(fftw3) - link_libraries(fftw3f) - link_libraries(portaudio) - link_libraries(X11) - link_libraries(Xxf86vm) + set(CMAKE_CXX_FLAGS "-O3 -std=c++17 -fpermissive -fsanitize=address -g") + # set(CMAKE_CXX_FLAGS "-O3 -std=c++17 -fpermissive") endif (MSVC) -link_libraries(volk) -link_libraries(SoapySDR) - -# Main code -include_directories(radio "src/") -include_directories(radio "../core/src/") -include_directories(radio "../core/src/imgui") file(GLOB SRC "src/*.cpp") -file(GLOB IMGUI "../core/src/imgui/*.cpp") -add_library(radio SHARED ${SRC} ${IMGUI}) -set_target_properties(radio PROPERTIES PREFIX "") -if (MSVC) - # Glew - find_package(GLEW REQUIRED) - target_link_libraries(radio PRIVATE GLEW::GLEW) +include_directories("src/") - # GLFW3 - find_package(glfw3 CONFIG REQUIRED) - target_link_libraries(radio PRIVATE glfw) - - # FFTW3 - find_package(FFTW3 CONFIG REQUIRED) - target_link_libraries(radio PRIVATE FFTW3::fftw3) - find_package(FFTW3f CONFIG REQUIRED) - target_link_libraries(radio PRIVATE FFTW3::fftw3f) - - # PortAudio - find_package(portaudio CONFIG REQUIRED) - target_link_libraries(radio PRIVATE portaudio portaudio_static) -endif (MSVC) - -# cmake .. "-DCMAKE_TOOLCHAIN_FILE=C:/Users/Alex/vcpkg/scripts/buildsystems/vcpkg.cmake" -G "Visual Studio 15 2017 Win64" \ No newline at end of file +add_library(radio SHARED ${SRC}) +target_link_libraries(radio PRIVATE sdrpp_core) \ No newline at end of file diff --git a/radio/src/main.cpp b/radio/src/main.cpp index 7a365f8..c007df3 100644 --- a/radio/src/main.cpp +++ b/radio/src/main.cpp @@ -25,7 +25,7 @@ MOD_EXPORT void* _INIT_(mod::API_t* _API, ImGuiContext* imctx, std::string _name ctx->bandWidth = 200000; ctx->bandWidthMin = 100000; ctx->bandWidthMax = 200000; - ctx->sigPath.init(_name, 200000, 1000, API->registerVFO(_name, mod::API_t::REF_CENTER, 0, 200000, 200000, 1000)); + ctx->sigPath.init(_name, 200000, 1000); ctx->sigPath.start(); ImGui::SetCurrentContext(imctx); return ctx; @@ -49,7 +49,6 @@ MOD_EXPORT void _DRAW_MENU_(RadioContext_t* ctx) { ctx->bandWidthMin = 8000; ctx->bandWidthMax = 16000; ctx->sigPath.setDemodulator(SigPath::DEMOD_NFM, ctx->bandWidth); - API->setVFOReference(ctx->name, mod::API_t::REF_CENTER); } if (ImGui::RadioButton(CONCAT("WFM##_", ctx->name), ctx->demod == 1) && ctx->demod != 1) { ctx->demod = 1; @@ -57,7 +56,6 @@ MOD_EXPORT void _DRAW_MENU_(RadioContext_t* ctx) { ctx->bandWidthMin = 100000; ctx->bandWidthMax = 200000; ctx->sigPath.setDemodulator(SigPath::DEMOD_FM, ctx->bandWidth); - API->setVFOReference(ctx->name, mod::API_t::REF_CENTER); } ImGui::NextColumn(); if (ImGui::RadioButton(CONCAT("AM##_", ctx->name), ctx->demod == 2) && ctx->demod != 2) { @@ -66,7 +64,6 @@ MOD_EXPORT void _DRAW_MENU_(RadioContext_t* ctx) { ctx->bandWidthMin = 6250; ctx->bandWidthMax = 12500; ctx->sigPath.setDemodulator(SigPath::DEMOD_AM, ctx->bandWidth); - API->setVFOReference(ctx->name, mod::API_t::REF_CENTER); } if (ImGui::RadioButton(CONCAT("DSB##_", ctx->name), ctx->demod == 3) && ctx->demod != 3) { ctx->demod = 3; @@ -74,7 +71,6 @@ MOD_EXPORT void _DRAW_MENU_(RadioContext_t* ctx) { ctx->bandWidthMin = 3000; ctx->bandWidthMax = 6000; ctx->sigPath.setDemodulator(SigPath::DEMOD_DSB, ctx->bandWidth); - API->setVFOReference(ctx->name, mod::API_t::REF_CENTER); } ImGui::NextColumn(); if (ImGui::RadioButton(CONCAT("USB##_", ctx->name), ctx->demod == 4) && ctx->demod != 4) { @@ -83,7 +79,6 @@ MOD_EXPORT void _DRAW_MENU_(RadioContext_t* ctx) { ctx->bandWidthMin = 1500; ctx->bandWidthMax = 3000; ctx->sigPath.setDemodulator(SigPath::DEMOD_USB, ctx->bandWidth); - API->setVFOReference(ctx->name, mod::API_t::REF_LOWER); } if (ImGui::RadioButton(CONCAT("CW##_", ctx->name), ctx->demod == 5) && ctx->demod != 5) { ctx->demod = 5; }; ImGui::NextColumn(); @@ -93,7 +88,6 @@ MOD_EXPORT void _DRAW_MENU_(RadioContext_t* ctx) { ctx->bandWidthMin = 1500; ctx->bandWidthMax = 3000; ctx->sigPath.setDemodulator(SigPath::DEMOD_LSB, ctx->bandWidth); - API->setVFOReference(ctx->name, mod::API_t::REF_UPPER); } if (ImGui::RadioButton(CONCAT("RAW##_", ctx->name), ctx->demod == 7) && ctx->demod != 7) { ctx->demod = 7; @@ -101,7 +95,6 @@ MOD_EXPORT void _DRAW_MENU_(RadioContext_t* ctx) { ctx->bandWidthMin = 3000; ctx->bandWidthMax = 10000; ctx->sigPath.setDemodulator(SigPath::DEMOD_RAW, ctx->bandWidth); - API->setVFOReference(ctx->name, mod::API_t::REF_CENTER); }; ImGui::Columns(1, CONCAT("EndRadioModeColumns##_", ctx->name), false); diff --git a/radio/src/path.cpp b/radio/src/path.cpp index 5fd332c..f054775 100644 --- a/radio/src/path.cpp +++ b/radio/src/path.cpp @@ -18,11 +18,13 @@ int SigPath::sampleRateChangeHandler(void* ctx, float sampleRate) { return _this->audioResamp.getOutputBlockSize(); } -void SigPath::init(std::string vfoName, uint64_t sampleRate, int blockSize, dsp::stream* input) { +void SigPath::init(std::string vfoName, uint64_t sampleRate, int blockSize) { this->sampleRate = sampleRate; this->blockSize = blockSize; this->vfoName = vfoName; + vfo = sigpath::vfoManager.createVFO(vfoName, mod::API_t::REF_CENTER, 0, 200000, 200000, 1000); + _demod = DEMOD_FM; _deemp = DEEMP_50US; bandwidth = 200000; @@ -31,10 +33,10 @@ void SigPath::init(std::string vfoName, uint64_t sampleRate, int blockSize, dsp: // TODO: ajust deemphasis for different output sample rates // TODO: Add a mono to stereo for different modes - demod.init(input, 100000, 200000, 800); - amDemod.init(input, 50); - ssbDemod.init(input, 6000, 3000, 22); - cpx2stereo.init(input, 22); + demod.init(vfo->output, 100000, 200000, 800); + amDemod.init(vfo->output, 50); + ssbDemod.init(vfo->output, 6000, 3000, 22); + cpx2stereo.init(vfo->output, 22); audioResamp.init(&demod.output, 200000, 48000, 800); deemp.init(&audioResamp.output, 800, 50e-6, 48000); @@ -91,72 +93,79 @@ void SigPath::setDemodulator(int demId, float bandWidth) { // Set input of the audio resampler // TODO: Set bandwidth from argument if (demId == DEMOD_FM) { - API->setVFOSampleRate(vfoName, 200000, bandwidth); - demod.setBlockSize(API->getVFOOutputBlockSize(vfoName)); + vfo->setSampleRate(200000, bandwidth); + demod.setBlockSize(vfo->getOutputBlockSize()); demod.setSampleRate(200000); demod.setDeviation(bandwidth / 2.0f); audioResamp.setInput(&demod.output); audioBw = std::min(bandwidth, outputSampleRate / 2.0f); - audioResamp.setInputSampleRate(200000, API->getVFOOutputBlockSize(vfoName), audioBw, audioBw); + audioResamp.setInputSampleRate(200000, vfo->getOutputBlockSize(), audioBw, audioBw); deemp.bypass = (_deemp == DEEMP_NONE); + vfo->setReference(mod::API_t::REF_CENTER); demod.start(); } else if (demId == DEMOD_NFM) { - API->setVFOSampleRate(vfoName, 16000, bandwidth); - demod.setBlockSize(API->getVFOOutputBlockSize(vfoName)); + vfo->setSampleRate(16000, bandwidth); + demod.setBlockSize(vfo->getOutputBlockSize()); demod.setSampleRate(16000); demod.setDeviation(bandwidth / 2.0f); audioResamp.setInput(&demod.output); audioBw = std::min(bandwidth, outputSampleRate / 2.0f); - audioResamp.setInputSampleRate(16000, API->getVFOOutputBlockSize(vfoName), audioBw, audioBw); + audioResamp.setInputSampleRate(16000, vfo->getOutputBlockSize(), audioBw, audioBw); deemp.bypass = true; + vfo->setReference(mod::API_t::REF_CENTER); demod.start(); } else if (demId == DEMOD_AM) { - API->setVFOSampleRate(vfoName, 12500, bandwidth); - amDemod.setBlockSize(API->getVFOOutputBlockSize(vfoName)); + vfo->setSampleRate(12500, bandwidth); + amDemod.setBlockSize(vfo->getOutputBlockSize()); audioResamp.setInput(&amDemod.output); audioBw = std::min(bandwidth, outputSampleRate / 2.0f); - audioResamp.setInputSampleRate(12500, API->getVFOOutputBlockSize(vfoName), audioBw, audioBw); + audioResamp.setInputSampleRate(12500, vfo->getOutputBlockSize(), audioBw, audioBw); deemp.bypass = true; + vfo->setReference(mod::API_t::REF_CENTER); amDemod.start(); } else if (demId == DEMOD_USB) { - API->setVFOSampleRate(vfoName, 6000, bandwidth); - ssbDemod.setBlockSize(API->getVFOOutputBlockSize(vfoName)); + vfo->setSampleRate(6000, bandwidth); + ssbDemod.setBlockSize(vfo->getOutputBlockSize()); ssbDemod.setMode(dsp::SSBDemod::MODE_USB); audioResamp.setInput(&ssbDemod.output); audioBw = std::min(bandwidth, outputSampleRate / 2.0f); - audioResamp.setInputSampleRate(6000, API->getVFOOutputBlockSize(vfoName), audioBw, audioBw); + audioResamp.setInputSampleRate(6000, vfo->getOutputBlockSize(), audioBw, audioBw); deemp.bypass = true; + vfo->setReference(mod::API_t::REF_LOWER); ssbDemod.start(); } else if (demId == DEMOD_LSB) { - API->setVFOSampleRate(vfoName, 6000, bandwidth); - ssbDemod.setBlockSize(API->getVFOOutputBlockSize(vfoName)); + vfo->setSampleRate(6000, bandwidth); + ssbDemod.setBlockSize(vfo->getOutputBlockSize()); ssbDemod.setMode(dsp::SSBDemod::MODE_LSB); audioResamp.setInput(&ssbDemod.output); audioBw = std::min(bandwidth, outputSampleRate / 2.0f); - audioResamp.setInputSampleRate(6000, API->getVFOOutputBlockSize(vfoName), audioBw, audioBw); + audioResamp.setInputSampleRate(6000, vfo->getOutputBlockSize(), audioBw, audioBw); deemp.bypass = true; + vfo->setReference(mod::API_t::REF_UPPER); ssbDemod.start(); } else if (demId == DEMOD_DSB) { - API->setVFOSampleRate(vfoName, 6000, bandwidth); - ssbDemod.setBlockSize(API->getVFOOutputBlockSize(vfoName)); + vfo->setSampleRate(6000, bandwidth); + ssbDemod.setBlockSize(vfo->getOutputBlockSize()); ssbDemod.setMode(dsp::SSBDemod::MODE_DSB); audioResamp.setInput(&ssbDemod.output); audioBw = std::min(bandwidth, outputSampleRate / 2.0f); - audioResamp.setInputSampleRate(6000, API->getVFOOutputBlockSize(vfoName), audioBw, audioBw); + audioResamp.setInputSampleRate(6000, vfo->getOutputBlockSize(), audioBw, audioBw); deemp.bypass = true; + vfo->setReference(mod::API_t::REF_CENTER); ssbDemod.start(); } else if (demId == DEMOD_RAW) { - API->setVFOSampleRate(vfoName, 10000, bandwidth); - cpx2stereo.setBlockSize(API->getVFOOutputBlockSize(vfoName)); + vfo->setSampleRate(10000, bandwidth); + cpx2stereo.setBlockSize(vfo->getOutputBlockSize()); //audioResamp.setInput(&cpx2stereo.output); audioBw = std::min(bandwidth, outputSampleRate / 2.0f); - audioResamp.setInputSampleRate(10000, API->getVFOOutputBlockSize(vfoName), audioBw, audioBw); + audioResamp.setInputSampleRate(10000, vfo->getOutputBlockSize(), audioBw, audioBw); + vfo->setReference(mod::API_t::REF_LOWER); cpx2stereo.start(); } else { @@ -192,7 +201,7 @@ void SigPath::setDeemphasis(int deemph) { void SigPath::setBandwidth(float bandWidth) { bandwidth = bandWidth; - API->setVFOBandwidth(vfoName, bandwidth); + vfo->setBandwidth(bandwidth); if (_demod == DEMOD_FM) { demod.stop(); demod.setDeviation(bandwidth / 2.0f); @@ -231,7 +240,7 @@ void SigPath::setBandwidth(float bandWidth) { if (audioBw != _audioBw) { audioBw = _audioBw; audioResamp.stop(); - audioResamp.setInputSampleRate(6000, API->getVFOOutputBlockSize(vfoName), audioBw, audioBw); + audioResamp.setInputSampleRate(6000, vfo->getOutputBlockSize(), audioBw, audioBw); audioResamp.start(); } } diff --git a/radio/src/path.h b/radio/src/path.h index 63cee57..f3f6b82 100644 --- a/radio/src/path.h +++ b/radio/src/path.h @@ -10,11 +10,12 @@ #include #include #include +#include class SigPath { public: SigPath(); - void init(std::string vfoName, uint64_t sampleRate, int blockSize, dsp::stream* input); + void init(std::string vfoName, uint64_t sampleRate, int blockSize); void start(); void setSampleRate(float sampleRate); void setVFOFrequency(uint64_t frequency); @@ -46,6 +47,8 @@ public: private: static int sampleRateChangeHandler(void* ctx, float sampleRate); + + VFOManager::VFO* vfo; dsp::stream input; diff --git a/root_dev/config.json b/root_dev/config.json index 14d71bf..95be266 100644 --- a/root_dev/config.json +++ b/root_dev/config.json @@ -3,13 +3,13 @@ "Radio": { "device": "Speakers (Realtek High Definiti", "sampleRate": 48000.0, - "volume": 0.4032258093357086 + "volume": 0.6666666865348816 } }, "bandPlan": "General", "bandPlanEnabled": true, "fftHeight": 300, - "frequency": 99000000, + "frequency": 103200000, "max": 0.0, "maximized": false, "menuWidth": 300, From ec234e99a13ebdd8e1ed0414c3b03a309289c6e0 Mon Sep 17 00:00:00 2001 From: Ryzerth Date: Sun, 20 Sep 2020 00:26:45 +0200 Subject: [PATCH 03/33] Fixed issues with new module system 2 --- core/src/module.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/core/src/module.h b/core/src/module.h index f98384d..99faaa9 100644 --- a/core/src/module.h +++ b/core/src/module.h @@ -17,7 +17,7 @@ #define SDRPP_EXPORT extern "C" __declspec(dllimport) #endif #else -#define SDRPP_EXPORT /**/ +#define SDRPP_EXPORT extern #endif #ifdef _WIN32 From 91d382ca0c298f62225af4d9dd8d2f3d73cc578a Mon Sep 17 00:00:00 2001 From: Ryzerth Date: Sun, 20 Sep 2020 00:33:38 +0200 Subject: [PATCH 04/33] Fixed issues with new module system 3 --- core/CMakeLists.txt | 3 +++ 1 file changed, 3 insertions(+) diff --git a/core/CMakeLists.txt b/core/CMakeLists.txt index 065841c..4ae3fa8 100644 --- a/core/CMakeLists.txt +++ b/core/CMakeLists.txt @@ -72,6 +72,9 @@ else() target_link_libraries(sdrpp_core PUBLIC dl) endif (MSVC) +target_link_libraries(sdrpp_core PUBLIC SoapySDR) +target_link_libraries(sdrpp_core PUBLIC volk) + set(CORE_FILES ${RUNTIME_OUTPUT_DIRECTORY} PARENT_SCOPE) # cmake .. "-DCMAKE_TOOLCHAIN_FILE=C:/Users/Alex/vcpkg/scripts/buildsystems/vcpkg.cmake" -G "Visual Studio 15 2017 Win64" \ No newline at end of file From 35ef99c6e9dfda12f5ce7ea4c2172c87c77ff12e Mon Sep 17 00:00:00 2001 From: Ryzerth Date: Sun, 20 Sep 2020 00:41:35 +0200 Subject: [PATCH 05/33] Fixed issues with new module system 4 --- core/CMakeLists.txt | 1 + demo/CMakeLists.txt | 3 ++- radio/CMakeLists.txt | 3 ++- 3 files changed, 5 insertions(+), 2 deletions(-) diff --git a/core/CMakeLists.txt b/core/CMakeLists.txt index 4ae3fa8..4319ef6 100644 --- a/core/CMakeLists.txt +++ b/core/CMakeLists.txt @@ -19,6 +19,7 @@ file(GLOB IMGUI "src/imgui/*.cpp") # Add code to dyn lib add_library(sdrpp_core SHARED ${SRC} ${GUI} ${SIGPATH} ${IMGUI}) +set_target_properties(sdrpp_core PROPERTIES PREFIX "") # Include core headers target_include_directories(sdrpp_core PUBLIC "src/") diff --git a/demo/CMakeLists.txt b/demo/CMakeLists.txt index 7354f36..1af478f 100644 --- a/demo/CMakeLists.txt +++ b/demo/CMakeLists.txt @@ -11,4 +11,5 @@ endif (MSVC) file(GLOB SRC "src/*.cpp") add_library(demo SHARED ${SRC}) -target_link_libraries(demo PRIVATE sdrpp_core) \ No newline at end of file +target_link_libraries(demo PRIVATE sdrpp_core) +set_target_properties(demo PROPERTIES PREFIX "") \ No newline at end of file diff --git a/radio/CMakeLists.txt b/radio/CMakeLists.txt index b6cfe99..ccaa1da 100644 --- a/radio/CMakeLists.txt +++ b/radio/CMakeLists.txt @@ -13,4 +13,5 @@ file(GLOB SRC "src/*.cpp") include_directories("src/") add_library(radio SHARED ${SRC}) -target_link_libraries(radio PRIVATE sdrpp_core) \ No newline at end of file +target_link_libraries(radio PRIVATE sdrpp_core) +set_target_properties(radio PROPERTIES PREFIX "") \ No newline at end of file From 109696c65aa92d4ab5dfcebbecd966f307e57b49 Mon Sep 17 00:00:00 2001 From: Ryzerth Date: Sun, 20 Sep 2020 00:44:45 +0200 Subject: [PATCH 06/33] Fixed issues with new module system 5 --- core/CMakeLists.txt | 3 +-- demo/CMakeLists.txt | 3 +-- radio/CMakeLists.txt | 3 +-- 3 files changed, 3 insertions(+), 6 deletions(-) diff --git a/core/CMakeLists.txt b/core/CMakeLists.txt index 4319ef6..ec11924 100644 --- a/core/CMakeLists.txt +++ b/core/CMakeLists.txt @@ -6,8 +6,7 @@ if (MSVC) set(CMAKE_CXX_FLAGS "-O2 /std:c++17") set(CMAKE_WINDOWS_EXPORT_ALL_SYMBOLS ON) else() - set(CMAKE_CXX_FLAGS "-O3 -std=c++17 -fpermissive -fsanitize=address -g") - # set(CMAKE_CXX_FLAGS "-O3 -std=c++17 -fpermissive") + set(CMAKE_CXX_FLAGS "-O3 -std=c++17 -fpermissive") endif (MSVC) add_definitions(-DSDRPP_IS_CORE) diff --git a/demo/CMakeLists.txt b/demo/CMakeLists.txt index 1af478f..6c15e42 100644 --- a/demo/CMakeLists.txt +++ b/demo/CMakeLists.txt @@ -4,8 +4,7 @@ project(demo) if (MSVC) set(CMAKE_CXX_FLAGS "-O2 /std:c++17") else() - set(CMAKE_CXX_FLAGS "-O3 -std=c++17 -fpermissive -fsanitize=address -g") - # set(CMAKE_CXX_FLAGS "-O3 -std=c++17 -fpermissive") + set(CMAKE_CXX_FLAGS "-O3 -std=c++17 -fpermissive") endif (MSVC) file(GLOB SRC "src/*.cpp") diff --git a/radio/CMakeLists.txt b/radio/CMakeLists.txt index ccaa1da..2a26d88 100644 --- a/radio/CMakeLists.txt +++ b/radio/CMakeLists.txt @@ -4,8 +4,7 @@ project(radio) if (MSVC) set(CMAKE_CXX_FLAGS "-O2 /std:c++17") else() - set(CMAKE_CXX_FLAGS "-O3 -std=c++17 -fpermissive -fsanitize=address -g") - # set(CMAKE_CXX_FLAGS "-O3 -std=c++17 -fpermissive") + set(CMAKE_CXX_FLAGS "-O3 -std=c++17 -fpermissive") endif (MSVC) file(GLOB SRC "src/*.cpp") From 2aaf2545656b7ad64b5d84439088ae9bc9be11ae Mon Sep 17 00:00:00 2001 From: Ryzerth Date: Sun, 20 Sep 2020 00:56:00 +0200 Subject: [PATCH 07/33] Fixed issues with new module system 6 --- recorder/CMakeLists.txt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/recorder/CMakeLists.txt b/recorder/CMakeLists.txt index f5a297f..a83a2eb 100644 --- a/recorder/CMakeLists.txt +++ b/recorder/CMakeLists.txt @@ -7,7 +7,7 @@ if (MSVC) include_directories(recorder "C:/Program Files/PothosSDR/include/volk/") include_directories(recorder "C:/Program Files/PothosSDR/include/") else() - set(CMAKE_CXX_FLAGS "-O3 -std=c++17 -fsanitize=address -g") + set(CMAKE_CXX_FLAGS "-O3 -std=c++17") include_directories(recorder "/usr/include/volk") link_libraries(pthread) link_libraries(GL) From ab8ce4c53f67a159f64dd43d9658b3d7bf51a75d Mon Sep 17 00:00:00 2001 From: AlexandreRouma Date: Sun, 20 Sep 2020 01:36:25 +0200 Subject: [PATCH 08/33] Fixed warnings on linux --- core/src/config.cpp | 2 +- core/src/gui/bandplan.cpp | 4 +- core/src/gui/icons.cpp | 10 ++-- core/src/gui/waterfall.cpp | 3 +- core/src/module.cpp | 2 +- core/src/signal_path/vfo_manager.cpp | 1 - recorder/CMakeLists.txt | 49 ++----------------- root_dev/config.json | 73 ++++++++++++++++------------ root_dev/module_list.json | 8 ++- 9 files changed, 59 insertions(+), 93 deletions(-) diff --git a/core/src/config.cpp b/core/src/config.cpp index 6c46dde..6dccaa2 100644 --- a/core/src/config.cpp +++ b/core/src/config.cpp @@ -32,7 +32,7 @@ namespace config { } _path = path; std::ifstream file(path.c_str()); - config << file; + file >> config; file.close(); } diff --git a/core/src/gui/bandplan.cpp b/core/src/gui/bandplan.cpp index a0e6de9..79bfc44 100644 --- a/core/src/gui/bandplan.cpp +++ b/core/src/gui/bandplan.cpp @@ -71,7 +71,7 @@ namespace bandplan { void loadBandPlan(std::string path) { std::ifstream file(path.c_str()); json data; - data << file; + file >> data; file.close(); BandPlan_t plan = data.get(); @@ -114,7 +114,7 @@ namespace bandplan { } std::ifstream file(path.c_str()); json data; - data << file; + file >> data; file.close(); colorTable = data.get>(); diff --git a/core/src/gui/icons.cpp b/core/src/gui/icons.cpp index 54c6f45..e12810e 100644 --- a/core/src/gui/icons.cpp +++ b/core/src/gui/icons.cpp @@ -11,7 +11,7 @@ namespace icons { GLuint loadTexture(std::string path) { int w,h,n; - stbi_uc* data = stbi_load(path.c_str(), &w, &h, &n, NULL); + stbi_uc* data = stbi_load(path.c_str(), &w, &h, &n, 0); GLuint texId; glGenTextures(1, &texId); glBindTexture(GL_TEXTURE_2D, texId); @@ -24,9 +24,9 @@ namespace icons { } void load() { - LOGO = (ImTextureID)loadTexture(config::getRootDirectory() + "/res/icons/sdrpp.png"); - PLAY = (ImTextureID)loadTexture(config::getRootDirectory() + "/res/icons/play.png"); - STOP = (ImTextureID)loadTexture(config::getRootDirectory() + "/res/icons/stop.png"); - MENU = (ImTextureID)loadTexture(config::getRootDirectory() + "/res/icons/menu.png"); + LOGO = (ImTextureID)(uintptr_t)loadTexture(config::getRootDirectory() + "/res/icons/sdrpp.png"); + PLAY = (ImTextureID)(uintptr_t)loadTexture(config::getRootDirectory() + "/res/icons/play.png"); + STOP = (ImTextureID)(uintptr_t)loadTexture(config::getRootDirectory() + "/res/icons/stop.png"); + MENU = (ImTextureID)(uintptr_t)loadTexture(config::getRootDirectory() + "/res/icons/menu.png"); } } \ No newline at end of file diff --git a/core/src/gui/waterfall.cpp b/core/src/gui/waterfall.cpp index 6a17381..ab2af77 100644 --- a/core/src/gui/waterfall.cpp +++ b/core/src/gui/waterfall.cpp @@ -199,7 +199,7 @@ namespace ImGui { ImVec2 dragOrigin(mousePos.x - drag.x, mousePos.y - drag.y); bool mouseHovered, mouseHeld; - bool mouseClicked = ImGui::ButtonBehavior(ImRect(fftAreaMin, fftAreaMax), ImGuiID("WaterfallID"), &mouseHovered, &mouseHeld, + bool mouseClicked = ImGui::ButtonBehavior(ImRect(fftAreaMin, fftAreaMax), GetID("WaterfallID"), &mouseHovered, &mouseHeld, ImGuiButtonFlags_MouseButtonLeft | ImGuiButtonFlags_PressedOnClick); bool draging = ImGui::IsMouseDragging(ImGuiMouseButton_Left) && ImGui::IsWindowFocused(); @@ -650,7 +650,6 @@ namespace ImGui { } void WaterfallVFO::setOffset(float offset) { - printf("WaterfallVFO::SetOffset: %p\n", this); generalOffset = offset; if (reference == REF_CENTER) { centerOffset = offset; diff --git a/core/src/module.cpp b/core/src/module.cpp index 4df0851..69f6c48 100644 --- a/core/src/module.cpp +++ b/core/src/module.cpp @@ -116,7 +116,7 @@ namespace mod { } std::ifstream file(path.c_str()); json data; - data << file; + file >> data; file.close(); std::map list = data.get>(); diff --git a/core/src/signal_path/vfo_manager.cpp b/core/src/signal_path/vfo_manager.cpp index bf35699..b7397ad 100644 --- a/core/src/signal_path/vfo_manager.cpp +++ b/core/src/signal_path/vfo_manager.cpp @@ -9,7 +9,6 @@ VFOManager::VFO::VFO(std::string name, int reference, float offset, float bandwi wtfVFO->setBandwidth(bandwidth); wtfVFO->setOffset(offset); output = dspVFO->output; - printf("Created VFO: %p", wtfVFO); gui::waterfall.vfos[name] = wtfVFO; } diff --git a/recorder/CMakeLists.txt b/recorder/CMakeLists.txt index a83a2eb..9d6af4f 100644 --- a/recorder/CMakeLists.txt +++ b/recorder/CMakeLists.txt @@ -3,53 +3,14 @@ project(recorder) if (MSVC) set(CMAKE_CXX_FLAGS "-O2 /std:c++17") - link_directories(recorder "C:/Program Files/PothosSDR/lib/") - include_directories(recorder "C:/Program Files/PothosSDR/include/volk/") - include_directories(recorder "C:/Program Files/PothosSDR/include/") else() - set(CMAKE_CXX_FLAGS "-O3 -std=c++17") - include_directories(recorder "/usr/include/volk") - link_libraries(pthread) - link_libraries(GL) - link_libraries(GLEW) - link_libraries(glfw) - link_libraries(fftw3) - link_libraries(fftw3f) - link_libraries(portaudio) - link_libraries(X11) - link_libraries(Xxf86vm) + set(CMAKE_CXX_FLAGS "-O3 -std=c++17 -fpermissive") endif (MSVC) -link_libraries(volk) -link_libraries(SoapySDR) - -# Main code -include_directories(recorder "src/") -include_directories(recorder "../core/src/") -include_directories(recorder "../core/src/imgui") file(GLOB SRC "src/*.cpp") -file(GLOB IMGUI "../core/src/imgui/*.cpp") -add_library(recorder SHARED ${SRC} ${IMGUI}) -set_target_properties(recorder PROPERTIES PREFIX "") -if (MSVC) - # Glew - find_package(GLEW REQUIRED) - target_link_libraries(recorder PRIVATE GLEW::GLEW) +include_directories("src/") - # GLFW3 - find_package(glfw3 CONFIG REQUIRED) - target_link_libraries(recorder PRIVATE glfw) - - # FFTW3 - find_package(FFTW3 CONFIG REQUIRED) - target_link_libraries(recorder PRIVATE FFTW3::fftw3) - find_package(FFTW3f CONFIG REQUIRED) - target_link_libraries(recorder PRIVATE FFTW3::fftw3f) - - # PortAudio - find_package(portaudio CONFIG REQUIRED) - target_link_libraries(recorder PRIVATE portaudio portaudio_static) -endif (MSVC) - -# cmake .. "-DCMAKE_TOOLCHAIN_FILE=C:/Users/Alex/vcpkg/scripts/buildsystems/vcpkg.cmake" -G "Visual Studio 15 2017 Win64" \ No newline at end of file +add_library(recorder SHARED ${SRC}) +target_link_libraries(recorder PRIVATE sdrpp_core) +set_target_properties(recorder PROPERTIES PREFIX "") \ No newline at end of file diff --git a/root_dev/config.json b/root_dev/config.json index 95be266..81d30f9 100644 --- a/root_dev/config.json +++ b/root_dev/config.json @@ -1,33 +1,42 @@ -{ - "audio": { - "Radio": { - "device": "Speakers (Realtek High Definiti", - "sampleRate": 48000.0, - "volume": 0.6666666865348816 - } - }, - "bandPlan": "General", - "bandPlanEnabled": true, - "fftHeight": 300, - "frequency": 103200000, - "max": 0.0, - "maximized": false, - "menuWidth": 300, - "min": -52.20588302612305, - "showWaterfall": true, - "source": "HackRF One #0 901868dc282c8f8b", - "sourceSettings": { - "HackRF One #0 901868dc282c8f8b": { - "gains": { - "AMP": 0.0, - "LNA": 24.503000259399414, - "VGA": 16.229999542236328 - }, - "sampleRate": 8000000 - } - }, - "windowSize": { - "h": 726, - "w": 1280 - } +{ + "audio": { + "Radio": { + "device": "Speakers (Realtek High Definiti", + "sampleRate": 48000.0, + "volume": 0.3655914068222046 + } + }, + "bandPlan": "General", + "bandPlanEnabled": true, + "fftHeight": 300, + "frequency": 96914040, + "max": 0.0, + "maximized": false, + "menuWidth": 300, + "min": -51.47058868408203, + "showWaterfall": true, + "source": "HackRF One #0 901868dc282c8f8b", + "sourceSettings": { + "Generic RTL2832U OEM :: 00000001": { + "gains": { + "TUNER": 0.0 + }, + "sampleRate": 2560000 + }, + "HackRF One #0 901868dc282c8f8b": { + "gains": { + "AMP": 0.0, + "LNA": 24.503000259399414, + "VGA": 16.229999542236328 + }, + "sampleRate": 8000000 + }, + "PulseAudio": { + "sampleRate": 96000 + } + }, + "windowSize": { + "h": 1053, + "w": 959 + } } \ No newline at end of file diff --git a/root_dev/module_list.json b/root_dev/module_list.json index 319321f..15853c8 100644 --- a/root_dev/module_list.json +++ b/root_dev/module_list.json @@ -1,6 +1,4 @@ { - "Radio": "../build/radio/Release/radio.dll", - "Recorder": "../build/recorder/Release/recorder.dll", - "Demo": "../build/demo/Release/demo.dll", - "Demo 2": "../build/demo/Release/demo.dll" -} \ No newline at end of file + "Radio": "./radio/radio.so", + "Recorder": "./recorder/recorder.so" +} From 51ee02f9da6a2ab1b2b7e948b877b6f616a34ab4 Mon Sep 17 00:00:00 2001 From: Ryzerth Date: Sun, 20 Sep 2020 02:18:01 +0200 Subject: [PATCH 09/33] Fixed windows bugs --- core/src/signal_path/vfo_manager.cpp | 1 - recorder/src/main.cpp | 10 ++-- root_dev/config.json | 82 ++++++++++++++-------------- root_dev/module_list.json | 4 +- 4 files changed, 47 insertions(+), 50 deletions(-) diff --git a/core/src/signal_path/vfo_manager.cpp b/core/src/signal_path/vfo_manager.cpp index b7397ad..f43248f 100644 --- a/core/src/signal_path/vfo_manager.cpp +++ b/core/src/signal_path/vfo_manager.cpp @@ -119,7 +119,6 @@ int VFOManager::getOutputBlockSize(std::string name) { void VFOManager::updateFromWaterfall(ImGui::WaterFall* wtf) { for (auto const& [name, vfo] : vfos) { if (vfo->wtfVFO->centerOffsetChanged) { - spdlog::info("UH OH: Change!"); vfo->wtfVFO->centerOffsetChanged = false; vfo->dspVFO->setOffset(vfo->wtfVFO->centerOffset); } diff --git a/recorder/src/main.cpp b/recorder/src/main.cpp index 3bd4655..4dda16c 100644 --- a/recorder/src/main.cpp +++ b/recorder/src/main.cpp @@ -6,11 +6,10 @@ #include #include #include +#include #define CONCAT(a, b) ((std::string(a) + b).c_str()) -mod::API_t* API; - struct RecorderContext_t { std::string name; dsp::stream* stream; @@ -60,7 +59,6 @@ void sampleRateChanged(void* ctx, float sampleRate, int blockSize) { } MOD_EXPORT void* _INIT_(mod::API_t* _API, ImGuiContext* imctx, std::string _name) { - API = _API; RecorderContext_t* ctx = new RecorderContext_t; ctx->recording = false; ctx->selectedStreamName = ""; @@ -77,7 +75,7 @@ MOD_EXPORT void _NEW_FRAME_(RecorderContext_t* ctx) { MOD_EXPORT void _DRAW_MENU_(RecorderContext_t* ctx) { float menuColumnWidth = ImGui::GetContentRegionAvailWidth(); - std::vector streamNames = API->getStreamNameList(); + std::vector streamNames = audio::getStreamNameList(); std::string nameList; for (std::string name : streamNames) { nameList += name; @@ -124,7 +122,7 @@ MOD_EXPORT void _DRAW_MENU_(RecorderContext_t* ctx) { ctx->samplesWritten = 0; ctx->sampleRate = 48000; ctx->writer = new WavWriter("recordings/" + genFileName("audio_"), 16, 2, 48000); - ctx->stream = API->bindToStreamStereo(ctx->selectedStreamName, streamRemovedHandler, sampleRateChanged, ctx); + ctx->stream = audio::bindToStreamStereo(ctx->selectedStreamName, streamRemovedHandler, sampleRateChanged, ctx); ctx->workerThread = std::thread(_writeWorker, ctx); ctx->recording = true; ctx->startTime = time(0); @@ -136,7 +134,7 @@ MOD_EXPORT void _DRAW_MENU_(RecorderContext_t* ctx) { ctx->stream->stopReader(); ctx->workerThread.join(); ctx->stream->clearReadStop(); - API->unbindFromStreamStereo(ctx->selectedStreamName, ctx->stream); + audio::unbindFromStreamStereo(ctx->selectedStreamName, ctx->stream); ctx->writer->close(); delete ctx->writer; ctx->recording = false; diff --git a/root_dev/config.json b/root_dev/config.json index 81d30f9..a0d5796 100644 --- a/root_dev/config.json +++ b/root_dev/config.json @@ -1,42 +1,42 @@ -{ - "audio": { - "Radio": { - "device": "Speakers (Realtek High Definiti", - "sampleRate": 48000.0, - "volume": 0.3655914068222046 - } - }, - "bandPlan": "General", - "bandPlanEnabled": true, - "fftHeight": 300, - "frequency": 96914040, - "max": 0.0, - "maximized": false, - "menuWidth": 300, - "min": -51.47058868408203, - "showWaterfall": true, - "source": "HackRF One #0 901868dc282c8f8b", - "sourceSettings": { - "Generic RTL2832U OEM :: 00000001": { - "gains": { - "TUNER": 0.0 - }, - "sampleRate": 2560000 - }, - "HackRF One #0 901868dc282c8f8b": { - "gains": { - "AMP": 0.0, - "LNA": 24.503000259399414, - "VGA": 16.229999542236328 - }, - "sampleRate": 8000000 - }, - "PulseAudio": { - "sampleRate": 96000 - } - }, - "windowSize": { - "h": 1053, - "w": 959 - } +{ + "audio": { + "Radio": { + "device": "Speakers (Realtek High Definiti", + "sampleRate": 48000.0, + "volume": 0.602150559425354 + } + }, + "bandPlan": "General", + "bandPlanEnabled": true, + "fftHeight": 300, + "frequency": 99000000, + "max": 0.0, + "maximized": false, + "menuWidth": 300, + "min": -51.47058868408203, + "showWaterfall": true, + "source": "HackRF One #0 901868dc282c8f8b", + "sourceSettings": { + "Generic RTL2832U OEM :: 00000001": { + "gains": { + "TUNER": 0.0 + }, + "sampleRate": 2560000 + }, + "HackRF One #0 901868dc282c8f8b": { + "gains": { + "AMP": 0.0, + "LNA": 24.503000259399414, + "VGA": 16.229999542236328 + }, + "sampleRate": 8000000 + }, + "PulseAudio": { + "sampleRate": 96000 + } + }, + "windowSize": { + "h": 720, + "w": 1280 + } } \ No newline at end of file diff --git a/root_dev/module_list.json b/root_dev/module_list.json index 15853c8..6036c3d 100644 --- a/root_dev/module_list.json +++ b/root_dev/module_list.json @@ -1,4 +1,4 @@ { - "Radio": "./radio/radio.so", - "Recorder": "./recorder/recorder.so" + "Radio": "./radio/Release/radio.dll", + "Recorder": "./recorder/Release/recorder.dll" } From 48a8b04eaa70286e0e7c717c0e9b9eea19772e76 Mon Sep 17 00:00:00 2001 From: Ryzerth Date: Thu, 24 Sep 2020 19:36:57 +0200 Subject: [PATCH 10/33] More fixes --- core/src/config.cpp | 117 ++++++----- core/src/config.h | 42 +++- core/src/core.cpp | 47 ++--- core/src/core.h | 6 + core/src/gui/frequency_select.cpp | 2 +- core/src/gui/gui.cpp | 1 + core/src/gui/gui.h | 2 + core/src/gui/icons.cpp | 8 +- core/src/gui/icons.h | 2 +- core/src/gui/main_window.cpp | 337 ++++++++++++++++-------------- core/src/gui/main_window.h | 1 + core/src/gui/menu.cpp | 19 +- core/src/gui/menu.h | 3 + core/src/gui/style.cpp | 4 +- radio/src/main.cpp | 8 + root_dev/config.json | 16 +- root_dev/module_list.json | 4 +- root_dev/radio_config.json | 5 + 18 files changed, 372 insertions(+), 252 deletions(-) create mode 100644 root_dev/radio_config.json diff --git a/core/src/config.cpp b/core/src/config.cpp index 6dccaa2..ae03cac 100644 --- a/core/src/config.cpp +++ b/core/src/config.cpp @@ -1,62 +1,73 @@ #include -namespace config { - bool configModified = false; - json config; - bool autoSaveRunning = false; - std::string _path; - std::thread _workerThread; - std::string rootDir; +ConfigManager::ConfigManager() { - void _autoSaveWorker() { - while (autoSaveRunning) { - if (configModified) { - configModified = false; - std::ofstream file(_path.c_str()); - file << std::setw(4) << config; - file.close(); - spdlog::info("Config saved"); - } - std::this_thread::sleep_for(std::chrono::milliseconds(1000)); - } +} + +void ConfigManager::setPath(std::string file) { + path = file; +} + +void ConfigManager::load(json default, bool lock) { + if (lock) { mtx.lock(); } + if (path == "") { + spdlog::error("Config manager tried to load file with no path specified"); + return; + } + if (!std::filesystem::exists(path)) { + spdlog::warn("Config file '{0}' does not exist, creating it", path); + conf = default; + save(false); + } + if (!std::filesystem::is_regular_file(path)) { + spdlog::error("Config file '{0}' isn't a file", path); + return; } - void load(std::string path) { - if (!std::filesystem::exists(path)) { - spdlog::error("Config file does not exist"); - return; - } - if (!std::filesystem::is_regular_file(path)) { - spdlog::error("Config file isn't a file..."); - return; - } - _path = path; - std::ifstream file(path.c_str()); - file >> config; - file.close(); - } + std::ifstream file(path.c_str()); + file >> conf; + file.close(); + if (lock) { mtx.unlock(); } +} - void startAutoSave() { - if (autoSaveRunning) { - return; +void ConfigManager::save(bool lock) { + if (lock) { mtx.lock(); } + std::ofstream file(path.c_str()); + file << conf.dump(4); + file.close(); + if (lock) { mtx.unlock(); } +} + +void ConfigManager::enableAutoSave() { + autoSaveEnabled = true; + autoSaveThread = std::thread(autoSaveWorker, this); +} + +void ConfigManager::disableAutoSave() { + autoSaveEnabled = false; + autoSaveThread.join(); +} + +void ConfigManager::aquire() { + mtx.lock(); +} + +void ConfigManager::release(bool changed) { + this->changed |= changed; + mtx.unlock(); +} + +void ConfigManager::autoSaveWorker(ConfigManager* _this) { + while (_this->autoSaveEnabled) { + if (!_this->mtx.try_lock()) { + std::this_thread::sleep_for(std::chrono::milliseconds(1000)); + continue; } - autoSaveRunning = true; - _workerThread = std::thread(_autoSaveWorker); - } - - void stopAutoSave() { - if (!autoSaveRunning) { - return; + if (_this->changed) { + _this->changed = false; + _this->save(false); } - autoSaveRunning = false; - _workerThread.join(); + _this->mtx.unlock(); + std::this_thread::sleep_for(std::chrono::milliseconds(1000)); } - - void setRootDirectory(std::string dir) { - rootDir = dir; - } - - std::string getRootDirectory() { - return rootDir; - } -}; \ No newline at end of file +} diff --git a/core/src/config.h b/core/src/config.h index da6b0ee..14feeb8 100644 --- a/core/src/config.h +++ b/core/src/config.h @@ -7,16 +7,42 @@ #include #include #include +#include using nlohmann::json; -namespace config { - void load(std::string path); - void startAutoSave(); - void stopAutoSave(); - void setRootDirectory(std::string dir); - std::string getRootDirectory(); +//#define DEV_BUILD + +#ifndef ROOT_DIR +#ifdef DEV_BUILD +#define ROOT_DIR "../root_dev" +#elif _WIN32 +#define ROOT_DIR "." +#else +#define ROOT_DIR "/etc/sdrpp" +#endif +#endif + +class ConfigManager { +public: + ConfigManager(); + void setPath(std::string file); + void load(json default, bool lock = true); + void save(bool lock = true); + void enableAutoSave(); + void disableAutoSave(); + void aquire(); + void release(bool changed = false); + + json conf; + +private: + static void autoSaveWorker(ConfigManager* _this); + + std::string path = ""; + bool changed = false; + bool autoSaveEnabled = false; + std::thread autoSaveThread; + std::mutex mtx; - extern bool configModified; - extern json config; }; \ No newline at end of file diff --git a/core/src/core.cpp b/core/src/core.cpp index d77835a..fe20dcb 100644 --- a/core/src/core.cpp +++ b/core/src/core.cpp @@ -13,6 +13,7 @@ #include #include #include +#include #include @@ -23,8 +24,9 @@ #include #endif -// Comment to build a normal release -#define DEV_BUILD +namespace core { + ConfigManager configManager; +}; bool maximized = false; bool fullScreen = false; @@ -50,18 +52,11 @@ int sdrpp_main() { spdlog::info("SDR++ v" VERSION_STR); -#ifdef DEV_BUILD - config::setRootDirectory("../root_dev"); -#elif _WIN32 - config::setRootDirectory("."); -#else - config::setRootDirectory("/etc/sdrpp"); -#endif - // Load config spdlog::info("Loading config"); - config::load(config::getRootDirectory() + "/config.json"); - config::startAutoSave(); + core::configManager.setPath(ROOT_DIR "/config.json"); + core::configManager.load(json()); + core::configManager.enableAutoSave(); // Setup window glfwSetErrorCallback(glfw_error_callback); @@ -74,9 +69,11 @@ int sdrpp_main() { glfwWindowHint(GLFW_OPENGL_PROFILE, GLFW_OPENGL_CORE_PROFILE); // 3.2+ only glfwWindowHint(GLFW_OPENGL_FORWARD_COMPAT, GL_TRUE); // Required on Mac - int winWidth = config::config["windowSize"]["w"]; - int winHeight = config::config["windowSize"]["h"]; - maximized = config::config["maximized"]; + core::configManager.aquire(); + int winWidth = core::configManager.conf["windowSize"]["w"]; + int winHeight = core::configManager.conf["windowSize"]["h"]; + maximized = core::configManager.conf["maximized"]; + core::configManager.release(); // Create window with graphics context GLFWmonitor* monitor = glfwGetPrimaryMonitor(); @@ -94,7 +91,7 @@ int sdrpp_main() { // Load app icon GLFWimage icons[10]; - icons[0].pixels = stbi_load((config::getRootDirectory() + "/res/icons/sdrpp.png").c_str(), &icons[0].width, &icons[0].height, 0, 4); + icons[0].pixels = stbi_load(((std::string)(ROOT_DIR "/res/icons/sdrpp.png")).c_str(), &icons[0].width, &icons[0].height, 0, 4); icons[1].pixels = (unsigned char*)malloc(16 * 16 * 4); icons[1].width = icons[1].height = 16; icons[2].pixels = (unsigned char*)malloc(24 * 24 * 4); icons[2].width = icons[2].height = 24; icons[3].pixels = (unsigned char*)malloc(32 * 32 * 4); icons[3].width = icons[3].height = 32; @@ -162,10 +159,10 @@ int sdrpp_main() { icons::load(); spdlog::info("Loading band plans"); - bandplan::loadFromDir(config::getRootDirectory() + "/bandplans"); + bandplan::loadFromDir(ROOT_DIR "/bandplans"); spdlog::info("Loading band plans color table"); - bandplan::loadColorTable(config::getRootDirectory() + "/band_colors.json"); + bandplan::loadColorTable(ROOT_DIR "/band_colors.json"); windowInit(); @@ -185,11 +182,12 @@ int sdrpp_main() { if (_maximized != maximized) { _maximized = maximized; - config::config["maximized"]= _maximized; - config::configModified = true; + core::configManager.aquire(); + core::configManager.conf["maximized"]= _maximized; if (!maximized) { - glfwSetWindowSize(window, config::config["windowSize"]["w"], config::config["windowSize"]["h"]); + glfwSetWindowSize(window, core::configManager.conf["windowSize"]["w"], core::configManager.conf["windowSize"]["h"]); } + core::configManager.release(true); } int _winWidth, _winHeight; @@ -214,9 +212,10 @@ int sdrpp_main() { if ((_winWidth != winWidth || _winHeight != winHeight) && !maximized && _winWidth > 0 && _winHeight > 0) { winWidth = _winWidth; winHeight = _winHeight; - config::config["windowSize"]["w"] = winWidth; - config::config["windowSize"]["h"] = winHeight; - config::configModified = true; + core::configManager.aquire(); + core::configManager.conf["windowSize"]["w"] = winWidth; + core::configManager.conf["windowSize"]["h"] = winHeight; + core::configManager.release(true); } if (winWidth > 0 && winHeight > 0) { diff --git a/core/src/core.h b/core/src/core.h index ce5ea1f..1498352 100644 --- a/core/src/core.h +++ b/core/src/core.h @@ -1,3 +1,9 @@ #pragma once +#include +#include + +namespace core { + SDRPP_EXPORT ConfigManager configManager; +}; int sdrpp_main(); \ No newline at end of file diff --git a/core/src/gui/frequency_select.cpp b/core/src/gui/frequency_select.cpp index b40aaba..711b8f0 100644 --- a/core/src/gui/frequency_select.cpp +++ b/core/src/gui/frequency_select.cpp @@ -9,7 +9,7 @@ FrequencySelect::FrequencySelect() { } void FrequencySelect::init() { - font = ImGui::GetIO().Fonts->AddFontFromFileTTF((config::getRootDirectory() + "/res/fonts/Roboto-Medium.ttf").c_str(), 42.0f); + font = ImGui::GetIO().Fonts->AddFontFromFileTTF(((std::string)(ROOT_DIR "/res/fonts/Roboto-Medium.ttf")).c_str(), 42.0f); for (int i = 0; i < 12; i++) { digits[i] = 0; diff --git a/core/src/gui/gui.cpp b/core/src/gui/gui.cpp index 59c8b37..57c09e2 100644 --- a/core/src/gui/gui.cpp +++ b/core/src/gui/gui.cpp @@ -3,4 +3,5 @@ namespace gui { ImGui::WaterFall waterfall; FrequencySelect freqSelect; + Menu menu; }; \ No newline at end of file diff --git a/core/src/gui/gui.h b/core/src/gui/gui.h index c65833c..32d48b3 100644 --- a/core/src/gui/gui.h +++ b/core/src/gui/gui.h @@ -1,9 +1,11 @@ #pragma once #include #include +#include #include namespace gui { SDRPP_EXPORT ImGui::WaterFall waterfall; SDRPP_EXPORT FrequencySelect freqSelect; + SDRPP_EXPORT Menu menu; }; \ No newline at end of file diff --git a/core/src/gui/icons.cpp b/core/src/gui/icons.cpp index e12810e..b6af76d 100644 --- a/core/src/gui/icons.cpp +++ b/core/src/gui/icons.cpp @@ -24,9 +24,9 @@ namespace icons { } void load() { - LOGO = (ImTextureID)(uintptr_t)loadTexture(config::getRootDirectory() + "/res/icons/sdrpp.png"); - PLAY = (ImTextureID)(uintptr_t)loadTexture(config::getRootDirectory() + "/res/icons/play.png"); - STOP = (ImTextureID)(uintptr_t)loadTexture(config::getRootDirectory() + "/res/icons/stop.png"); - MENU = (ImTextureID)(uintptr_t)loadTexture(config::getRootDirectory() + "/res/icons/menu.png"); + LOGO = (ImTextureID)(uintptr_t)loadTexture(ROOT_DIR "/res/icons/sdrpp.png"); + PLAY = (ImTextureID)(uintptr_t)loadTexture(ROOT_DIR "/res/icons/play.png"); + STOP = (ImTextureID)(uintptr_t)loadTexture(ROOT_DIR "/res/icons/stop.png"); + MENU = (ImTextureID)(uintptr_t)loadTexture(ROOT_DIR "/res/icons/menu.png"); } } \ No newline at end of file diff --git a/core/src/gui/icons.h b/core/src/gui/icons.h index 7595682..f932c4d 100644 --- a/core/src/gui/icons.h +++ b/core/src/gui/icons.h @@ -10,6 +10,6 @@ namespace icons { extern ImTextureID STOP; extern ImTextureID MENU; - GLuint loadTexture(char* path); + GLuint loadTexture(std::string path); void load(); } \ No newline at end of file diff --git a/core/src/gui/main_window.cpp b/core/src/gui/main_window.cpp index b47a603..4dd8437 100644 --- a/core/src/gui/main_window.cpp +++ b/core/src/gui/main_window.cpp @@ -64,14 +64,14 @@ bool showMenu = true; void saveCurrentSource() { int i = 0; for (std::string gainName : soapy.gainList) { - config::config["sourceSettings"][sourceName]["gains"][gainName] = uiGains[i]; + core::configManager.conf["sourceSettings"][sourceName]["gains"][gainName] = uiGains[i]; i++; } - config::config["sourceSettings"][sourceName]["sampleRate"] = soapy.sampleRates[srId]; + core::configManager.conf["sourceSettings"][sourceName]["sampleRate"] = soapy.sampleRates[srId]; } void loadSourceConfig(std::string name) { - json sourceSettings = config::config["sourceSettings"][name]; + json sourceSettings = core::configManager.conf["sourceSettings"][name]; sampleRate = sourceSettings["sampleRate"]; @@ -110,7 +110,7 @@ void loadSourceConfig(std::string name) { } void loadAudioConfig(std::string name) { - json audioSettings = config::config["audio"][name]; + json audioSettings = core::configManager.conf["audio"][name]; std::string devName = audioSettings["device"]; auto _devIt = std::find(audio::streams[name]->audio->deviceNames.begin(), audio::streams[name]->audio->deviceNames.end(), devName); @@ -146,14 +146,125 @@ void loadAudioConfig(std::string name) { } void saveAudioConfig(std::string name) { - config::config["audio"][name]["device"] = audio::streams[name]->audio->deviceNames[audio::streams[name]->deviceId]; - config::config["audio"][name]["volume"] = audio::streams[name]->volume; - config::config["audio"][name]["sampleRate"] = audio::streams[name]->sampleRate; + core::configManager.conf["audio"][name]["device"] = audio::streams[name]->audio->deviceNames[audio::streams[name]->deviceId]; + core::configManager.conf["audio"][name]["volume"] = audio::streams[name]->volume; + core::configManager.conf["audio"][name]["sampleRate"] = audio::streams[name]->sampleRate; } +void setVFO(float freq); + +// ======================================================= + +void sourceMenu(void* ctx) { + float menuColumnWidth = ImGui::GetContentRegionAvailWidth(); + if (playing) { style::beginDisabled(); }; + + ImGui::PushItemWidth(menuColumnWidth); + if (ImGui::Combo("##_0_", &devId, soapy.txtDevList.c_str())) { + spdlog::info("Changed input device: {0}", devId); + sourceName = soapy.devNameList[devId]; + soapy.setDevice(soapy.devList[devId]); + + core::configManager.aquire(); + if (core::configManager.conf["sourceSettings"].contains(sourceName)) { + loadSourceConfig(sourceName); + } + else { + srId = 0; + sampleRate = soapy.getSampleRate(); + bw.val = sampleRate; + gui::waterfall.setBandwidth(sampleRate); + gui::waterfall.setViewBandwidth(sampleRate); + sigpath::signalPath.setSampleRate(sampleRate); + + if (soapy.gainList.size() >= 0) { + delete[] uiGains; + uiGains = new float[soapy.gainList.size()]; + for (int i = 0; i < soapy.gainList.size(); i++) { + uiGains[i] = soapy.currentGains[i]; + } + } + } + setVFO(gui::freqSelect.frequency); + core::configManager.conf["source"] = sourceName; + core::configManager.release(true); + } + ImGui::PopItemWidth(); + + if (ImGui::Combo("##_1_", &srId, soapy.txtSampleRateList.c_str())) { + spdlog::info("Changed sample rate: {0}", srId); + sampleRate = soapy.sampleRates[srId]; + soapy.setSampleRate(sampleRate); + gui::waterfall.setBandwidth(sampleRate); + gui::waterfall.setViewBandwidth(sampleRate); + sigpath::signalPath.setSampleRate(sampleRate); + bw.val = sampleRate; + + core::configManager.aquire(); + if (!core::configManager.conf["sourceSettings"].contains(sourceName)) { + saveCurrentSource(); + } + core::configManager.conf["sourceSettings"][sourceName]["sampleRate"] = sampleRate; + core::configManager.release(true); + } + + ImGui::SameLine(); + bool noDevice = (soapy.devList.size() == 0); + if (ImGui::Button("Refresh", ImVec2(menuColumnWidth - ImGui::GetCursorPosX(), 0.0f))) { + soapy.refresh(); + if (noDevice && soapy.devList.size() > 0) { + sourceName = soapy.devNameList[0]; + soapy.setDevice(soapy.devList[0]); + if (core::configManager.conf["sourceSettings"][sourceName]) { + loadSourceConfig(sourceName); + } + } + } + + if (playing) { style::endDisabled(); }; + + float maxTextLength = 0; + float txtLen = 0; + char buf[100]; + + // Calculate the spacing + for (int i = 0; i < soapy.gainList.size(); i++) { + sprintf(buf, "%s gain", soapy.gainList[i].c_str()); + txtLen = ImGui::CalcTextSize(buf).x; + if (txtLen > maxTextLength) { + maxTextLength = txtLen; + } + } + + for (int i = 0; i < soapy.gainList.size(); i++) { + ImGui::Text("%s gain", soapy.gainList[i].c_str()); + ImGui::SameLine(); + sprintf(buf, "##_gain_slide_%d_", i); + + ImGui::SetCursorPosX(maxTextLength + 5); + ImGui::PushItemWidth(menuColumnWidth - (maxTextLength + 5)); + if (ImGui::SliderFloat(buf, &uiGains[i], soapy.gainRanges[i].minimum(), soapy.gainRanges[i].maximum())) { + soapy.setGain(i, uiGains[i]); + core::configManager.aquire(); + if (!core::configManager.conf["sourceSettings"].contains(sourceName)) { + saveCurrentSource(); + } + core::configManager.conf["sourceSettings"][sourceName]["gains"][soapy.gainList[i]] = uiGains[i]; + core::configManager.release(true); + } + ImGui::PopItemWidth(); + } + + ImGui::Spacing(); +} + +// ======================================================= + void windowInit() { spdlog::info("Initializing SoapySDR"); soapy.init(); + + gui::menu.registerEntry("Source", sourceMenu, NULL); gui::freqSelect.init(); @@ -168,16 +279,17 @@ void windowInit() { spdlog::info("Loading modules"); mod::initAPI(&gui::waterfall); - mod::loadFromList(config::getRootDirectory() + "/module_list.json"); + mod::loadFromList(ROOT_DIR "/module_list.json"); - bigFont = ImGui::GetIO().Fonts->AddFontFromFileTTF((config::getRootDirectory() + "/res/fonts/Roboto-Medium.ttf").c_str(), 128.0f); + bigFont = ImGui::GetIO().Fonts->AddFontFromFileTTF(((std::string)(ROOT_DIR "/res/fonts/Roboto-Medium.ttf")).c_str(), 128.0f); // Load last source configuration - uint64_t frequency = config::config["frequency"]; - sourceName = config::config["source"]; + core::configManager.aquire(); + uint64_t frequency = core::configManager.conf["frequency"]; + sourceName = core::configManager.conf["source"]; auto _sourceIt = std::find(soapy.devNameList.begin(), soapy.devNameList.end(), sourceName); - if (_sourceIt != soapy.devNameList.end() && config::config["sourceSettings"].contains(sourceName)) { - json sourceSettings = config::config["sourceSettings"][sourceName]; + if (_sourceIt != soapy.devNameList.end() && core::configManager.conf["sourceSettings"].contains(sourceName)) { + json sourceSettings = core::configManager.conf["sourceSettings"][sourceName]; devId = std::distance(soapy.devNameList.begin(), _sourceIt); soapy.setDevice(soapy.devList[devId]); loadSourceConfig(sourceName); @@ -186,7 +298,7 @@ void windowInit() { int i = 0; bool settingsFound = false; for (std::string devName : soapy.devNameList) { - if (config::config["sourceSettings"].contains(devName)) { + if (core::configManager.conf["sourceSettings"].contains(devName)) { sourceName = devName; settingsFound = true; devId = i; @@ -222,17 +334,17 @@ void windowInit() { // Switch to double for all frequecies and bandwidth // Update UI settings - fftMin = config::config["min"]; - fftMax = config::config["max"]; + fftMin = core::configManager.conf["min"]; + fftMax = core::configManager.conf["max"]; gui::waterfall.setFFTMin(fftMin); gui::waterfall.setWaterfallMin(fftMin); gui::waterfall.setFFTMax(fftMax); gui::waterfall.setWaterfallMax(fftMax); - bandPlanEnabled.val = config::config["bandPlanEnabled"]; + bandPlanEnabled.val = core::configManager.conf["bandPlanEnabled"]; bandPlanEnabled.markAsChanged(); - std::string bandPlanName = config::config["bandPlan"]; + std::string bandPlanName = core::configManager.conf["bandPlan"]; auto _bandplanIt = bandplan::bandplans.find(bandPlanName); if (_bandplanIt != bandplan::bandplans.end()) { bandplanId.val = std::distance(bandplan::bandplans.begin(), bandplan::bandplans.find(bandPlanName)); @@ -262,7 +374,7 @@ void windowInit() { gui::waterfall.selectFirstVFO(); for (auto [name, stream] : audio::streams) { - if (config::config["audio"].contains(name)) { + if (core::configManager.conf["audio"].contains(name)) { bool running = audio::streams[name]->running; audio::stopStream(name); loadAudioConfig(name); @@ -277,16 +389,18 @@ void windowInit() { volume = &audio::streams[audioStreamName]->volume; } - menuWidth = config::config["menuWidth"]; + menuWidth = core::configManager.conf["menuWidth"]; newWidth = menuWidth; - showWaterfall = config::config["showWaterfall"]; + showWaterfall = core::configManager.conf["showWaterfall"]; if (!showWaterfall) { gui::waterfall.hideWaterfall(); } - fftHeight = config::config["fftHeight"]; + fftHeight = core::configManager.conf["fftHeight"]; gui::waterfall.setFFTHeight(fftHeight); + + core::configManager.release(); } void setVFO(float freq) { @@ -382,8 +496,9 @@ void drawWindow() { if (vfo->centerOffsetChanged) { gui::freqSelect.setFrequency(gui::waterfall.getCenterFrequency() + vfo->generalOffset); gui::freqSelect.frequencyChanged = false; - config::config["frequency"] = gui::freqSelect.frequency; - config::configModified = true; + core::configManager.aquire(); + core::configManager.conf["frequency"] = gui::freqSelect.frequency; + core::configManager.release(true); } sigpath::vfoManager.updateFromWaterfall(&gui::waterfall); @@ -397,8 +512,9 @@ void drawWindow() { if (audioStreamName != "") { volume = &audio::streams[audioStreamName]->volume; } - config::config["frequency"] = gui::freqSelect.frequency; - config::configModified = true; + core::configManager.aquire(); + core::configManager.conf["frequency"] = gui::freqSelect.frequency; + core::configManager.release(true); } if (gui::freqSelect.frequencyChanged) { @@ -407,16 +523,18 @@ void drawWindow() { vfo->centerOffsetChanged = false; vfo->lowerOffsetChanged = false; vfo->upperOffsetChanged = false; - config::config["frequency"] = gui::freqSelect.frequency; - config::configModified = true; + core::configManager.aquire(); + core::configManager.conf["frequency"] = gui::freqSelect.frequency; + core::configManager.release(true); } if (gui::waterfall.centerFreqMoved) { gui::waterfall.centerFreqMoved = false; soapy.setFrequency(gui::waterfall.getCenterFrequency()); gui::freqSelect.setFrequency(gui::waterfall.getCenterFrequency() + vfo->generalOffset); - config::config["frequency"] = gui::freqSelect.frequency; - config::configModified = true; + core::configManager.aquire(); + core::configManager.conf["frequency"] = gui::freqSelect.frequency; + core::configManager.release(true); } if (dcbias.changed()) { @@ -434,8 +552,9 @@ void drawWindow() { int _fftHeight = gui::waterfall.getFFTHeight(); if (fftHeight != _fftHeight) { fftHeight = _fftHeight; - config::config["fftHeight"] = fftHeight; - config::configModified = true; + core::configManager.aquire(); + core::configManager.conf["fftHeight"] = fftHeight; + core::configManager.release(true); } ImVec2 vMin = ImGui::GetWindowContentRegionMin(); @@ -478,12 +597,13 @@ void drawWindow() { ImGui::SetNextItemWidth(200); if (ImGui::SliderFloat("##_2_", volume, 0.0f, 1.0f, "")) { if (audioStreamName != "") { - if (!config::config["audio"].contains(audioStreamName)) { + core::configManager.aquire(); + if (!core::configManager.conf["audio"].contains(audioStreamName)) { saveAudioConfig(audioStreamName); } audio::streams[audioStreamName]->audio->setVolume(*volume); - config::config["audio"][audioStreamName]["volume"] = *volume; - config::configModified = true; + core::configManager.conf["audio"][audioStreamName]["volume"] = *volume; + core::configManager.release(true); } } @@ -529,8 +649,9 @@ void drawWindow() { if(!down && grabbingMenu) { grabbingMenu = false; menuWidth = newWidth; - config::config["menuWidth"] = menuWidth; - config::configModified = true; + core::configManager.aquire(); + core::configManager.conf["menuWidth"] = menuWidth; + core::configManager.release(true); } // Left Column @@ -543,104 +664,7 @@ void drawWindow() { ImGui::BeginChild("Left Column"); float menuColumnWidth = ImGui::GetContentRegionAvailWidth(); - if (ImGui::CollapsingHeader("Source", ImGuiTreeNodeFlags_DefaultOpen)) { - if (playing) { style::beginDisabled(); }; - - ImGui::PushItemWidth(menuColumnWidth); - if (ImGui::Combo("##_0_", &devId, soapy.txtDevList.c_str())) { - spdlog::info("Changed input device: {0}", devId); - sourceName = soapy.devNameList[devId]; - soapy.setDevice(soapy.devList[devId]); - - if (config::config["sourceSettings"].contains(sourceName)) { - loadSourceConfig(sourceName); - } - else { - srId = 0; - sampleRate = soapy.getSampleRate(); - bw.val = sampleRate; - gui::waterfall.setBandwidth(sampleRate); - gui::waterfall.setViewBandwidth(sampleRate); - sigpath::signalPath.setSampleRate(sampleRate); - - if (soapy.gainList.size() >= 0) { - delete[] uiGains; - uiGains = new float[soapy.gainList.size()]; - for (int i = 0; i < soapy.gainList.size(); i++) { - uiGains[i] = soapy.currentGains[i]; - } - } - } - setVFO(gui::freqSelect.frequency); - config::config["source"] = sourceName; - config::configModified = true; - } - ImGui::PopItemWidth(); - - if (ImGui::Combo("##_1_", &srId, soapy.txtSampleRateList.c_str())) { - spdlog::info("Changed sample rate: {0}", srId); - sampleRate = soapy.sampleRates[srId]; - soapy.setSampleRate(sampleRate); - gui::waterfall.setBandwidth(sampleRate); - gui::waterfall.setViewBandwidth(sampleRate); - sigpath::signalPath.setSampleRate(sampleRate); - bw.val = sampleRate; - - if (!config::config["sourceSettings"].contains(sourceName)) { - saveCurrentSource(); - } - config::config["sourceSettings"][sourceName]["sampleRate"] = sampleRate; - config::configModified = true; - } - - ImGui::SameLine(); - bool noDevice = (soapy.devList.size() == 0); - if (ImGui::Button("Refresh", ImVec2(menuColumnWidth - ImGui::GetCursorPosX(), 0.0f))) { - soapy.refresh(); - if (noDevice && soapy.devList.size() > 0) { - sourceName = soapy.devNameList[0]; - soapy.setDevice(soapy.devList[0]); - if (config::config["sourceSettings"][sourceName]) { - loadSourceConfig(sourceName); - } - } - } - - if (playing) { style::endDisabled(); }; - - float maxTextLength = 0; - float txtLen = 0; - char buf[100]; - - // Calculate the spacing - for (int i = 0; i < soapy.gainList.size(); i++) { - sprintf(buf, "%s gain", soapy.gainList[i].c_str()); - txtLen = ImGui::CalcTextSize(buf).x; - if (txtLen > maxTextLength) { - maxTextLength = txtLen; - } - } - - for (int i = 0; i < soapy.gainList.size(); i++) { - ImGui::Text("%s gain", soapy.gainList[i].c_str()); - ImGui::SameLine(); - sprintf(buf, "##_gain_slide_%d_", i); - - ImGui::SetCursorPosX(maxTextLength + 5); - ImGui::PushItemWidth(menuColumnWidth - (maxTextLength + 5)); - if (ImGui::SliderFloat(buf, &uiGains[i], soapy.gainRanges[i].minimum(), soapy.gainRanges[i].maximum())) { - soapy.setGain(i, uiGains[i]); - if (!config::config["sourceSettings"].contains(sourceName)) { - saveCurrentSource(); - } - config::config["sourceSettings"][sourceName]["gains"][soapy.gainList[i]] = uiGains[i]; - config::configModified = true; - } - ImGui::PopItemWidth(); - } - - ImGui::Spacing(); - } + gui::menu.draw(); for (int i = 0; i < modCount; i++) { if (ImGui::CollapsingHeader(mod::moduleNames[i].c_str(), ImGuiTreeNodeFlags_DefaultOpen)) { @@ -673,12 +697,13 @@ void drawWindow() { stream->sampleRateId = 0; // Create config if it doesn't exist - if (!config::config["audio"].contains(name)) { + core::configManager.aquire(); + if (!core::configManager.conf["audio"].contains(name)) { saveAudioConfig(name); } - config::config["audio"][name]["device"] = stream->audio->deviceNames[stream->deviceId]; - config::config["audio"][name]["sampleRate"] = stream->audio->devices[stream->deviceId].sampleRates[0]; - config::configModified = true; + core::configManager.conf["audio"][name]["device"] = stream->audio->deviceNames[stream->deviceId]; + core::configManager.conf["audio"][name]["sampleRate"] = stream->audio->devices[stream->deviceId].sampleRates[0]; + core::configManager.release(true); } if (ImGui::Combo(("##_audio_sr_0_" + name).c_str(), &stream->sampleRateId, stream->audio->devices[deviceId].txtSampleRates.c_str())) { audio::stopStream(name); @@ -688,21 +713,23 @@ void drawWindow() { } // Create config if it doesn't exist - if (!config::config["audio"].contains(name)) { + core::configManager.aquire(); + if (!core::configManager.conf["audio"].contains(name)) { saveAudioConfig(name); } - config::config["audio"][name]["sampleRate"] = stream->audio->devices[deviceId].sampleRates[stream->sampleRateId]; - config::configModified = true; + core::configManager.conf["audio"][name]["sampleRate"] = stream->audio->devices[deviceId].sampleRates[stream->sampleRateId]; + core::configManager.release(true); } if (ImGui::SliderFloat(("##_audio_vol_0_" + name).c_str(), &stream->volume, 0.0f, 1.0f, "")) { stream->audio->setVolume(stream->volume); // Create config if it doesn't exist - if (!config::config["audio"].contains(name)) { + core::configManager.aquire(); + if (!core::configManager.conf["audio"].contains(name)) { saveAudioConfig(name); } - config::config["audio"][name]["volume"] = stream->volume; - config::configModified = true; + core::configManager.conf["audio"][name]["volume"] = stream->volume; + core::configManager.release(true); } ImGui::PopItemWidth(); count++; @@ -718,13 +745,15 @@ void drawWindow() { if (ImGui::CollapsingHeader("Band Plan", ImGuiTreeNodeFlags_DefaultOpen)) { ImGui::PushItemWidth(menuColumnWidth); if (ImGui::Combo("##_4_", &bandplanId.val, bandplan::bandplanNameTxt.c_str())) { - config::config["bandPlan"] = bandplan::bandplanNames[bandplanId.val]; - config::configModified = true; + core::configManager.aquire(); + core::configManager.conf["bandPlan"] = bandplan::bandplanNames[bandplanId.val]; + core::configManager.release(true); } ImGui::PopItemWidth(); if (ImGui::Checkbox("Enabled", &bandPlanEnabled.val)) { - config::config["bandPlanEnabled"] = bandPlanEnabled.val; - config::configModified = true; + core::configManager.aquire(); + core::configManager.conf["bandPlanEnabled"] = bandPlanEnabled.val; + core::configManager.release(true); } bandplan::BandPlan_t plan = bandplan::bandplans[bandplan::bandplanNames[bandplanId.val]]; ImGui::Text("Country: %s (%s)", plan.countryName.c_str(), plan.countryCode.c_str()); @@ -784,8 +813,9 @@ void drawWindow() { ImGui::SetCursorPosX((ImGui::GetWindowSize().x / 2.0f) - 10); if (ImGui::VSliderFloat("##_8_", ImVec2(20.0f, 150.0f), &fftMax, 0.0f, -100.0f, "")) { fftMax = std::max(fftMax, fftMin + 10); - config::config["max"] = fftMax; - config::configModified = true; + core::configManager.aquire(); + core::configManager.conf["max"] = fftMax; + core::configManager.release(true); } ImGui::NewLine(); @@ -795,8 +825,9 @@ void drawWindow() { ImGui::SetCursorPosX((ImGui::GetWindowSize().x / 2.0f) - 10); if (ImGui::VSliderFloat("##_9_", ImVec2(20.0f, 150.0f), &fftMin, 0.0f, -100.0f, "")) { fftMin = std::min(fftMax - 10, fftMin); - config::config["min"] = fftMin; - config::configModified = true; + core::configManager.aquire(); + core::configManager.conf["min"] = fftMin; + core::configManager.release(true); } ImGui::EndChild(); diff --git a/core/src/gui/main_window.h b/core/src/gui/main_window.h index 265717f..0234b6a 100644 --- a/core/src/gui/main_window.h +++ b/core/src/gui/main_window.h @@ -27,6 +27,7 @@ #include #include #include +#include #define WINDOW_FLAGS ImGuiWindowFlags_NoMove | ImGuiWindowFlags_NoCollapse | ImGuiWindowFlags_NoBringToFrontOnFocus | ImGuiWindowFlags_NoTitleBar | ImGuiWindowFlags_NoResize | ImGuiWindowFlags_NoBackground diff --git a/core/src/gui/menu.cpp b/core/src/gui/menu.cpp index b967698..278f1f5 100644 --- a/core/src/gui/menu.cpp +++ b/core/src/gui/menu.cpp @@ -9,6 +9,9 @@ void Menu::registerEntry(std::string name, void (*drawHandler)(void* ctx), void* item.drawHandler = drawHandler; item.ctx = ctx; items[name] = item; + if (!isInOrderList(name)) { + order.push_back(name); + } } void Menu::removeEntry(std::string name) { @@ -18,7 +21,21 @@ void Menu::removeEntry(std::string name) { void Menu::draw() { MenuItem_t item; for (std::string name : order) { + if (items.find(name) == items.end()) { + continue; + } item = items[name]; - item.drawHandler(item.ctx); + if (ImGui::CollapsingHeader(name.c_str(), ImGuiTreeNodeFlags_DefaultOpen)) { + item.drawHandler(item.ctx); + } } } + +bool Menu::isInOrderList(std::string name) { + for (std::string _name : order) { + if (_name == name) { + return true; + } + } + return false; +} diff --git a/core/src/gui/menu.h b/core/src/gui/menu.h index e7f21f5..1b3c8be 100644 --- a/core/src/gui/menu.h +++ b/core/src/gui/menu.h @@ -1,4 +1,5 @@ #pragma once +#include #include #include #include @@ -19,5 +20,7 @@ public: std::vector order; private: + bool isInOrderList(std::string name); + std::map items; }; \ No newline at end of file diff --git a/core/src/gui/style.cpp b/core/src/gui/style.cpp index e55df3d..ea9a6a8 100644 --- a/core/src/gui/style.cpp +++ b/core/src/gui/style.cpp @@ -9,7 +9,7 @@ namespace style { ImGui::GetStyle().PopupRounding = 0.0f; ImGui::GetStyle().ScrollbarRounding = 0.0f; - ImGui::GetIO().Fonts->AddFontFromFileTTF((config::getRootDirectory() + "/res/fonts/Roboto-Medium.ttf").c_str(), 16.0f); + ImGui::GetIO().Fonts->AddFontFromFileTTF(((std::string)(ROOT_DIR "/res/fonts/Roboto-Medium.ttf")).c_str(), 16.0f); ImGui::StyleColorsDark(); //ImGui::StyleColorsLight(); @@ -27,7 +27,7 @@ namespace style { ImGui::GetStyle().PopupRounding = 0.0f; ImGui::GetStyle().ScrollbarRounding = 0.0f; - ImGui::GetIO().Fonts->AddFontFromFileTTF((config::getRootDirectory() + "/res/fonts/Roboto-Medium.ttf").c_str(), 16.0f); + ImGui::GetIO().Fonts->AddFontFromFileTTF(((std::string)(ROOT_DIR "/res/fonts/Roboto-Medium.ttf")).c_str(), 16.0f); ImGui::StyleColorsDark(); diff --git a/radio/src/main.cpp b/radio/src/main.cpp index c007df3..39e9861 100644 --- a/radio/src/main.cpp +++ b/radio/src/main.cpp @@ -2,12 +2,16 @@ #include #include #include +#include #define CONCAT(a, b) ((std::string(a) + b).c_str()) #define DEEMP_LIST "50µS\00075µS\000none\000" mod::API_t* API; +ConfigManager config; +bool firstInit = true; + struct RadioContext_t { std::string name; int demod = 1; @@ -21,12 +25,16 @@ struct RadioContext_t { MOD_EXPORT void* _INIT_(mod::API_t* _API, ImGuiContext* imctx, std::string _name) { API = _API; RadioContext_t* ctx = new RadioContext_t; + ctx->name = _name; + + ctx->demod = 1; ctx->bandWidth = 200000; ctx->bandWidthMin = 100000; ctx->bandWidthMax = 200000; ctx->sigPath.init(_name, 200000, 1000); ctx->sigPath.start(); + ctx->sigPath.setDemodulator(SigPath::DEMOD_FM, ctx->bandWidth); ImGui::SetCurrentContext(imctx); return ctx; } diff --git a/root_dev/config.json b/root_dev/config.json index a0d5796..1960e66 100644 --- a/root_dev/config.json +++ b/root_dev/config.json @@ -4,6 +4,16 @@ "device": "Speakers (Realtek High Definiti", "sampleRate": 48000.0, "volume": 0.602150559425354 + }, + "Radio 1": { + "device": "Speakers (Realtek High Definiti", + "sampleRate": 48000.0, + "volume": 0.6881720423698425 + }, + "Radio 2": { + "device": "Speakers (Realtek High Definiti", + "sampleRate": 48000.0, + "volume": 0.0 } }, "bandPlan": "General", @@ -19,7 +29,7 @@ "sourceSettings": { "Generic RTL2832U OEM :: 00000001": { "gains": { - "TUNER": 0.0 + "TUNER": 11.625 }, "sampleRate": 2560000 }, @@ -36,7 +46,7 @@ } }, "windowSize": { - "h": 720, - "w": 1280 + "h": 784, + "w": 1460 } } \ No newline at end of file diff --git a/root_dev/module_list.json b/root_dev/module_list.json index 6036c3d..ac43587 100644 --- a/root_dev/module_list.json +++ b/root_dev/module_list.json @@ -1,4 +1,4 @@ { - "Radio": "./radio/Release/radio.dll", - "Recorder": "./recorder/Release/recorder.dll" + "Radio 1": "./radio/Release/radio.dll", + "Recorder 1": "./recorder/Release/recorder.dll" } diff --git a/root_dev/radio_config.json b/root_dev/radio_config.json new file mode 100644 index 0000000..c6ea5a5 --- /dev/null +++ b/root_dev/radio_config.json @@ -0,0 +1,5 @@ +{ + "Radio 1": { + "demodulator":1 + } +} \ No newline at end of file From 2056eae13943485332fd4283d1b8a359cf1483a0 Mon Sep 17 00:00:00 2001 From: Ryzerth Date: Thu, 24 Sep 2020 19:38:05 +0200 Subject: [PATCH 11/33] More fixes 2 --- core/src/config.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/core/src/config.h b/core/src/config.h index 14feeb8..d9f7da1 100644 --- a/core/src/config.h +++ b/core/src/config.h @@ -11,7 +11,7 @@ using nlohmann::json; -//#define DEV_BUILD +#define DEV_BUILD #ifndef ROOT_DIR #ifdef DEV_BUILD From 5fedda08d7c873a3c41d5aad8a792de8d38fb68f Mon Sep 17 00:00:00 2001 From: Ryzerth Date: Thu, 24 Sep 2020 19:50:22 +0200 Subject: [PATCH 12/33] More fixes 3 --- core/src/config.cpp | 4 ++-- core/src/config.h | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/core/src/config.cpp b/core/src/config.cpp index ae03cac..39ad79f 100644 --- a/core/src/config.cpp +++ b/core/src/config.cpp @@ -8,7 +8,7 @@ void ConfigManager::setPath(std::string file) { path = file; } -void ConfigManager::load(json default, bool lock) { +void ConfigManager::load(json def, bool lock) { if (lock) { mtx.lock(); } if (path == "") { spdlog::error("Config manager tried to load file with no path specified"); @@ -16,7 +16,7 @@ void ConfigManager::load(json default, bool lock) { } if (!std::filesystem::exists(path)) { spdlog::warn("Config file '{0}' does not exist, creating it", path); - conf = default; + conf = def; save(false); } if (!std::filesystem::is_regular_file(path)) { diff --git a/core/src/config.h b/core/src/config.h index d9f7da1..6a327d8 100644 --- a/core/src/config.h +++ b/core/src/config.h @@ -27,7 +27,7 @@ class ConfigManager { public: ConfigManager(); void setPath(std::string file); - void load(json default, bool lock = true); + void load(json def, bool lock = true); void save(bool lock = true); void enableAutoSave(); void disableAutoSave(); From 2c4d7cbf09dbbb3b7aada781097da03f80fb0e9f Mon Sep 17 00:00:00 2001 From: Ryzerth Date: Fri, 25 Sep 2020 14:25:36 +0200 Subject: [PATCH 13/33] Moved menus to their own respective files --- core/CMakeLists.txt | 4 +- core/src/gui/dialogs/credits.cpp | 57 +++++++ core/src/gui/dialogs/credits.h | 6 + core/src/gui/main_window.cpp | 246 ++----------------------------- core/src/gui/main_window.h | 4 + core/src/gui/menus/audio.cpp | 139 +++++++++++++++++ core/src/gui/menus/audio.h | 6 + core/src/gui/menus/bandplan.cpp | 52 +++++++ core/src/gui/menus/bandplan.h | 6 + core/src/gui/menus/display.cpp | 23 +++ core/src/gui/menus/display.h | 6 + core/src/gui/menus/source.cpp | 11 ++ core/src/gui/menus/source.h | 6 + core/src/gui/waterfall.cpp | 10 +- core/src/gui/waterfall.h | 4 + root_dev/config.json | 4 +- 16 files changed, 346 insertions(+), 238 deletions(-) create mode 100644 core/src/gui/dialogs/credits.cpp create mode 100644 core/src/gui/dialogs/credits.h create mode 100644 core/src/gui/menus/audio.cpp create mode 100644 core/src/gui/menus/audio.h create mode 100644 core/src/gui/menus/bandplan.cpp create mode 100644 core/src/gui/menus/bandplan.h create mode 100644 core/src/gui/menus/display.cpp create mode 100644 core/src/gui/menus/display.h create mode 100644 core/src/gui/menus/source.cpp create mode 100644 core/src/gui/menus/source.h diff --git a/core/CMakeLists.txt b/core/CMakeLists.txt index ec11924..7416afb 100644 --- a/core/CMakeLists.txt +++ b/core/CMakeLists.txt @@ -13,11 +13,13 @@ add_definitions(-DSDRPP_IS_CORE) # Main code file(GLOB SRC "src/*.cpp") file(GLOB GUI "src/gui/*.cpp") +file(GLOB MENUS "src/gui/menus/*.cpp") +file(GLOB DIALOGS "src/gui/dialogs/*.cpp") file(GLOB SIGPATH "src/signal_path/*.cpp") file(GLOB IMGUI "src/imgui/*.cpp") # Add code to dyn lib -add_library(sdrpp_core SHARED ${SRC} ${GUI} ${SIGPATH} ${IMGUI}) +add_library(sdrpp_core SHARED ${SRC} ${GUI} ${MENUS} ${DIALOGS} ${SIGPATH} ${IMGUI}) set_target_properties(sdrpp_core PROPERTIES PREFIX "") # Include core headers diff --git a/core/src/gui/dialogs/credits.cpp b/core/src/gui/dialogs/credits.cpp new file mode 100644 index 0000000..5abd1e8 --- /dev/null +++ b/core/src/gui/dialogs/credits.cpp @@ -0,0 +1,57 @@ +#include +#include +#include + +namespace credits { + ImFont* bigFont; + + void init() { + // TODO: Have a font manager instead + bigFont = ImGui::GetIO().Fonts->AddFontFromFileTTF(((std::string)(ROOT_DIR "/res/fonts/Roboto-Medium.ttf")).c_str(), 128.0f); + } + + void show() { + ImGui::PushStyleVar(ImGuiStyleVar_WindowPadding, ImVec2(20.0f, 20.0f)); + ImGui::OpenPopup("Credits"); + ImGui::BeginPopupModal("Credits", NULL, ImGuiWindowFlags_AlwaysAutoResize | ImGuiWindowFlags_NoTitleBar | ImGuiWindowFlags_NoMove); + + ImGui::PushFont(bigFont); + ImGui::Text("SDR++ "); + ImGui::PopFont(); + ImGui::SameLine(); + ImGui::Image(icons::LOGO, ImVec2(128, 128)); + ImGui::Spacing(); + ImGui::Spacing(); + ImGui::Spacing(); + + ImGui::Text("This software is brought to you by\n\n"); + + ImGui::Columns(3, "CreditColumns", true); + + // Contributors + ImGui::Text("Contributors"); + ImGui::BulletText("Ryzerth (Creator)"); + ImGui::BulletText("aosync"); + ImGui::BulletText("Benjamin Kyd"); + ImGui::BulletText("Tobias Mädel"); + ImGui::BulletText("Raov"); + ImGui::BulletText("Howard0su"); + + // Libraries + ImGui::NextColumn(); + ImGui::Text("Libraries"); + ImGui::BulletText("SoapySDR (PothosWare)"); + ImGui::BulletText("Dear ImGui (ocornut)"); + ImGui::BulletText("spdlog (gabime)"); + ImGui::BulletText("json (nlohmann)"); + ImGui::BulletText("portaudio (PA Comm.)"); + + // Patrons + ImGui::NextColumn(); + ImGui::Text("Patrons"); + ImGui::BulletText("SignalsEverywhere"); + + ImGui::EndPopup(); + ImGui::PopStyleVar(1); + } +} \ No newline at end of file diff --git a/core/src/gui/dialogs/credits.h b/core/src/gui/dialogs/credits.h new file mode 100644 index 0000000..18045e6 --- /dev/null +++ b/core/src/gui/dialogs/credits.h @@ -0,0 +1,6 @@ +#pragma once + +namespace credits { + void init(); + void show(); +} \ No newline at end of file diff --git a/core/src/gui/main_window.cpp b/core/src/gui/main_window.cpp index 4dd8437..11e7cb9 100644 --- a/core/src/gui/main_window.cpp +++ b/core/src/gui/main_window.cpp @@ -8,7 +8,6 @@ fftwf_plan p; float* tempData; float* uiGains; char buf[1024]; -ImFont* bigFont; int fftSize = 8192 * 8; @@ -37,7 +36,6 @@ void fftHandler(dsp::complex_t* samples) { dsp::NullSink sink; int devId = 0; int srId = 0; -watcher bandplanId(0, true); watcher freq((uint64_t)90500000); int demod = 1; watcher vfoFreq(92000000.0f); @@ -50,14 +48,12 @@ watcher bw(8000000.0f, true); int sampleRate = 8000000; bool playing = false; watcher dcbias(false, false); -watcher bandPlanEnabled(true, false); bool showCredits = false; std::string audioStreamName = ""; std::string sourceName = ""; int menuWidth = 300; bool grabbingMenu = false; int newWidth = 300; -bool showWaterfall = true; int fftHeight = 300; bool showMenu = true; @@ -109,48 +105,6 @@ void loadSourceConfig(std::string name) { bw.val = sampleRate; } -void loadAudioConfig(std::string name) { - json audioSettings = core::configManager.conf["audio"][name]; - std::string devName = audioSettings["device"]; - auto _devIt = std::find(audio::streams[name]->audio->deviceNames.begin(), audio::streams[name]->audio->deviceNames.end(), devName); - - // If audio device doesn't exist anymore - if (_devIt == audio::streams[name]->audio->deviceNames.end()) { - audio::streams[name]->audio->setToDefault(); - int deviceId = audio::streams[name]->audio->getDeviceId(); - audio::setAudioDevice(name, deviceId, audio::streams[name]->audio->devices[deviceId].sampleRates[0]); - audio::streams[name]->sampleRateId = 0; - audio::streams[name]->volume = audioSettings["volume"]; - audio::streams[name]->audio->setVolume(audio::streams[name]->volume); - return; - } - int deviceId = std::distance(audio::streams[name]->audio->deviceNames.begin(), _devIt); - float sr = audioSettings["sampleRate"]; - auto _srIt = std::find(audio::streams[name]->audio->devices[deviceId].sampleRates.begin(), audio::streams[name]->audio->devices[deviceId].sampleRates.end(), sr); - - // If sample rate doesn't exist anymore - if (_srIt == audio::streams[name]->audio->devices[deviceId].sampleRates.end()) { - audio::streams[name]->sampleRateId = 0; - audio::setAudioDevice(name, deviceId, audio::streams[name]->audio->devices[deviceId].sampleRates[0]); - audio::streams[name]->volume = audioSettings["volume"]; - audio::streams[name]->audio->setVolume(audio::streams[name]->volume); - return; - } - - int samplerateId = std::distance(audio::streams[name]->audio->devices[deviceId].sampleRates.begin(), _srIt); - audio::streams[name]->sampleRateId = samplerateId; - audio::setAudioDevice(name, deviceId, audio::streams[name]->audio->devices[deviceId].sampleRates[samplerateId]); - audio::streams[name]->deviceId = deviceId; - audio::streams[name]->volume = audioSettings["volume"]; - audio::streams[name]->audio->setVolume(audio::streams[name]->volume); -} - -void saveAudioConfig(std::string name) { - core::configManager.conf["audio"][name]["device"] = audio::streams[name]->audio->deviceNames[audio::streams[name]->deviceId]; - core::configManager.conf["audio"][name]["volume"] = audio::streams[name]->volume; - core::configManager.conf["audio"][name]["sampleRate"] = audio::streams[name]->sampleRate; -} - void setVFO(float freq); // ======================================================= @@ -264,7 +218,16 @@ void windowInit() { spdlog::info("Initializing SoapySDR"); soapy.init(); + credits::init(); + + audiomenu::init(); + bandplanmenu::init(); + displaymenu::init(); + gui::menu.registerEntry("Source", sourceMenu, NULL); + gui::menu.registerEntry("Audio", audiomenu::draw, NULL); + gui::menu.registerEntry("Band Plan", bandplanmenu::draw, NULL); + gui::menu.registerEntry("Display", displaymenu::draw, NULL); gui::freqSelect.init(); @@ -281,8 +244,6 @@ void windowInit() { mod::initAPI(&gui::waterfall); mod::loadFromList(ROOT_DIR "/module_list.json"); - bigFont = ImGui::GetIO().Fonts->AddFontFromFileTTF(((std::string)(ROOT_DIR "/res/fonts/Roboto-Medium.ttf")).c_str(), 128.0f); - // Load last source configuration core::configManager.aquire(); uint64_t frequency = core::configManager.conf["frequency"]; @@ -340,26 +301,6 @@ void windowInit() { gui::waterfall.setWaterfallMin(fftMin); gui::waterfall.setFFTMax(fftMax); gui::waterfall.setWaterfallMax(fftMax); - - bandPlanEnabled.val = core::configManager.conf["bandPlanEnabled"]; - bandPlanEnabled.markAsChanged(); - - std::string bandPlanName = core::configManager.conf["bandPlan"]; - auto _bandplanIt = bandplan::bandplans.find(bandPlanName); - if (_bandplanIt != bandplan::bandplans.end()) { - bandplanId.val = std::distance(bandplan::bandplans.begin(), bandplan::bandplans.find(bandPlanName)); - - if (bandPlanEnabled.val) { - gui::waterfall.bandplan = &bandplan::bandplans[bandPlanName]; - } - else { - gui::waterfall.bandplan = NULL; - } - } - else { - bandplanId.val = 0; - } - bandplanId.markAsChanged(); gui::freqSelect.setFrequency(frequency); @@ -373,30 +314,9 @@ void windowInit() { gui::waterfall.centerFreqMoved = false; gui::waterfall.selectFirstVFO(); - for (auto [name, stream] : audio::streams) { - if (core::configManager.conf["audio"].contains(name)) { - bool running = audio::streams[name]->running; - audio::stopStream(name); - loadAudioConfig(name); - if (running) { - audio::startStream(name); - } - } - } - - audioStreamName = audio::getNameFromVFO(gui::waterfall.selectedVFO); - if (audioStreamName != "") { - volume = &audio::streams[audioStreamName]->volume; - } - menuWidth = core::configManager.conf["menuWidth"]; newWidth = menuWidth; - showWaterfall = core::configManager.conf["showWaterfall"]; - if (!showWaterfall) { - gui::waterfall.hideWaterfall(); - } - fftHeight = core::configManager.conf["fftHeight"]; gui::waterfall.setFFTHeight(fftHeight); @@ -541,14 +461,6 @@ void drawWindow() { sigpath::signalPath.setDCBiasCorrection(dcbias.val); } - if (bandplanId.changed() && bandPlanEnabled.val) { - gui::waterfall.bandplan = &bandplan::bandplans[bandplan::bandplanNames[bandplanId.val]]; - } - - if (bandPlanEnabled.changed()) { - gui::waterfall.bandplan = bandPlanEnabled.val ? &bandplan::bandplans[bandplan::bandplanNames[bandplanId.val]] : NULL; - } - int _fftHeight = gui::waterfall.getFFTHeight(); if (fftHeight != _fftHeight) { fftHeight = _fftHeight; @@ -599,7 +511,8 @@ void drawWindow() { if (audioStreamName != "") { core::configManager.aquire(); if (!core::configManager.conf["audio"].contains(audioStreamName)) { - saveAudioConfig(audioStreamName); + //saveAudioConfig(audioStreamName); + // TODO: FIX THIS SHIT } audio::streams[audioStreamName]->audio->setVolume(*volume); core::configManager.conf["audio"][audioStreamName]["volume"] = *volume; @@ -674,100 +587,6 @@ void drawWindow() { } } - - if (ImGui::CollapsingHeader("Audio", ImGuiTreeNodeFlags_DefaultOpen)) { - int count = 0; - int maxCount = audio::streams.size(); - for (auto const& [name, stream] : audio::streams) { - int deviceId; - float vol = 1.0f; - deviceId = stream->audio->getDeviceId(); - - ImGui::SetCursorPosX((menuColumnWidth / 2.0f) - (ImGui::CalcTextSize(name.c_str()).x / 2.0f)); - ImGui::Text(name.c_str()); - - ImGui::PushItemWidth(menuColumnWidth); - bool running = stream->running; - if (ImGui::Combo(("##_audio_dev_0_"+ name).c_str(), &stream->deviceId, stream->audio->devTxtList.c_str())) { - audio::stopStream(name); - audio::setAudioDevice(name, stream->deviceId, stream->audio->devices[deviceId].sampleRates[0]); - if (running) { - audio::startStream(name); - } - stream->sampleRateId = 0; - - // Create config if it doesn't exist - core::configManager.aquire(); - if (!core::configManager.conf["audio"].contains(name)) { - saveAudioConfig(name); - } - core::configManager.conf["audio"][name]["device"] = stream->audio->deviceNames[stream->deviceId]; - core::configManager.conf["audio"][name]["sampleRate"] = stream->audio->devices[stream->deviceId].sampleRates[0]; - core::configManager.release(true); - } - if (ImGui::Combo(("##_audio_sr_0_" + name).c_str(), &stream->sampleRateId, stream->audio->devices[deviceId].txtSampleRates.c_str())) { - audio::stopStream(name); - audio::setSampleRate(name, stream->audio->devices[deviceId].sampleRates[stream->sampleRateId]); - if (running) { - audio::startStream(name); - } - - // Create config if it doesn't exist - core::configManager.aquire(); - if (!core::configManager.conf["audio"].contains(name)) { - saveAudioConfig(name); - } - core::configManager.conf["audio"][name]["sampleRate"] = stream->audio->devices[deviceId].sampleRates[stream->sampleRateId]; - core::configManager.release(true); - } - if (ImGui::SliderFloat(("##_audio_vol_0_" + name).c_str(), &stream->volume, 0.0f, 1.0f, "")) { - stream->audio->setVolume(stream->volume); - - // Create config if it doesn't exist - core::configManager.aquire(); - if (!core::configManager.conf["audio"].contains(name)) { - saveAudioConfig(name); - } - core::configManager.conf["audio"][name]["volume"] = stream->volume; - core::configManager.release(true); - } - ImGui::PopItemWidth(); - count++; - if (count < maxCount) { - ImGui::Spacing(); - ImGui::Separator(); - } - ImGui::Spacing(); - } - ImGui::Spacing(); - } - - if (ImGui::CollapsingHeader("Band Plan", ImGuiTreeNodeFlags_DefaultOpen)) { - ImGui::PushItemWidth(menuColumnWidth); - if (ImGui::Combo("##_4_", &bandplanId.val, bandplan::bandplanNameTxt.c_str())) { - core::configManager.aquire(); - core::configManager.conf["bandPlan"] = bandplan::bandplanNames[bandplanId.val]; - core::configManager.release(true); - } - ImGui::PopItemWidth(); - if (ImGui::Checkbox("Enabled", &bandPlanEnabled.val)) { - core::configManager.aquire(); - core::configManager.conf["bandPlanEnabled"] = bandPlanEnabled.val; - core::configManager.release(true); - } - bandplan::BandPlan_t plan = bandplan::bandplans[bandplan::bandplanNames[bandplanId.val]]; - ImGui::Text("Country: %s (%s)", plan.countryName.c_str(), plan.countryCode.c_str()); - ImGui::Text("Author: %s", plan.authorName.c_str()); - ImGui::Spacing(); - } - - if (ImGui::CollapsingHeader("Display", ImGuiTreeNodeFlags_DefaultOpen)) { - if (ImGui::Checkbox("Show waterfall", &showWaterfall)) { - showWaterfall ? gui::waterfall.showWaterfall() : gui::waterfall.hideWaterfall(); - } - ImGui::Spacing(); - } - if(ImGui::CollapsingHeader("Debug")) { ImGui::Text("Frame time: %.3f ms/frame", 1000.0f / ImGui::GetIO().Framerate); ImGui::Text("Framerate: %.1f FPS", ImGui::GetIO().Framerate); @@ -846,48 +665,7 @@ void drawWindow() { ImGui::End(); if (showCredits) { - ImGui::PushStyleVar(ImGuiStyleVar_WindowPadding, ImVec2(20.0f, 20.0f)); - ImGui::OpenPopup("Credits"); - ImGui::BeginPopupModal("Credits", NULL, ImGuiWindowFlags_AlwaysAutoResize | ImGuiWindowFlags_NoTitleBar | ImGuiWindowFlags_NoMove); - - ImGui::PushFont(bigFont); - ImGui::Text("SDR++ "); - ImGui::PopFont(); - ImGui::SameLine(); - ImGui::Image(icons::LOGO, ImVec2(128, 128)); - ImGui::Spacing(); - ImGui::Spacing(); - ImGui::Spacing(); - - ImGui::Text("This software is brought to you by\n\n"); - - ImGui::Columns(3, "CreditColumns", true); - - // Contributors - ImGui::Text("Contributors"); - ImGui::BulletText("Ryzerth (Creator)"); - ImGui::BulletText("aosync"); - ImGui::BulletText("Benjamin Kyd"); - ImGui::BulletText("Tobias Mädel"); - ImGui::BulletText("Raov"); - ImGui::BulletText("Howard0su"); - - // Libraries - ImGui::NextColumn(); - ImGui::Text("Libraries"); - ImGui::BulletText("SoapySDR (PothosWare)"); - ImGui::BulletText("Dear ImGui (ocornut)"); - ImGui::BulletText("spdlog (gabime)"); - ImGui::BulletText("json (nlohmann)"); - ImGui::BulletText("portaudio (PA Comm.)"); - - // Patrons - ImGui::NextColumn(); - ImGui::Text("Patrons"); - ImGui::BulletText("SignalsEverywhere"); - - ImGui::EndPopup(); - ImGui::PopStyleVar(1); + credits::show(); } } diff --git a/core/src/gui/main_window.h b/core/src/gui/main_window.h index 0234b6a..493125e 100644 --- a/core/src/gui/main_window.h +++ b/core/src/gui/main_window.h @@ -28,6 +28,10 @@ #include #include #include +#include +#include +#include +#include #define WINDOW_FLAGS ImGuiWindowFlags_NoMove | ImGuiWindowFlags_NoCollapse | ImGuiWindowFlags_NoBringToFrontOnFocus | ImGuiWindowFlags_NoTitleBar | ImGuiWindowFlags_NoResize | ImGuiWindowFlags_NoBackground diff --git a/core/src/gui/menus/audio.cpp b/core/src/gui/menus/audio.cpp new file mode 100644 index 0000000..e5dd047 --- /dev/null +++ b/core/src/gui/menus/audio.cpp @@ -0,0 +1,139 @@ +#include +#include +#include +#include +#include + +namespace audiomenu { + // Note: Those are supposed to be the ones from the volume slider + std::string audioStreamName; + float* volume; + + void loadAudioConfig(std::string name) { + json audioSettings = core::configManager.conf["audio"][name]; + std::string devName = audioSettings["device"]; + auto _devIt = std::find(audio::streams[name]->audio->deviceNames.begin(), audio::streams[name]->audio->deviceNames.end(), devName); + + // If audio device doesn't exist anymore + if (_devIt == audio::streams[name]->audio->deviceNames.end()) { + audio::streams[name]->audio->setToDefault(); + int deviceId = audio::streams[name]->audio->getDeviceId(); + audio::setAudioDevice(name, deviceId, audio::streams[name]->audio->devices[deviceId].sampleRates[0]); + audio::streams[name]->sampleRateId = 0; + audio::streams[name]->volume = audioSettings["volume"]; + audio::streams[name]->audio->setVolume(audio::streams[name]->volume); + return; + } + int deviceId = std::distance(audio::streams[name]->audio->deviceNames.begin(), _devIt); + float sr = audioSettings["sampleRate"]; + auto _srIt = std::find(audio::streams[name]->audio->devices[deviceId].sampleRates.begin(), audio::streams[name]->audio->devices[deviceId].sampleRates.end(), sr); + + // If sample rate doesn't exist anymore + if (_srIt == audio::streams[name]->audio->devices[deviceId].sampleRates.end()) { + audio::streams[name]->sampleRateId = 0; + audio::setAudioDevice(name, deviceId, audio::streams[name]->audio->devices[deviceId].sampleRates[0]); + audio::streams[name]->volume = audioSettings["volume"]; + audio::streams[name]->audio->setVolume(audio::streams[name]->volume); + return; + } + + int samplerateId = std::distance(audio::streams[name]->audio->devices[deviceId].sampleRates.begin(), _srIt); + audio::streams[name]->sampleRateId = samplerateId; + audio::setAudioDevice(name, deviceId, audio::streams[name]->audio->devices[deviceId].sampleRates[samplerateId]); + audio::streams[name]->deviceId = deviceId; + audio::streams[name]->volume = audioSettings["volume"]; + audio::streams[name]->audio->setVolume(audio::streams[name]->volume); + } + + void saveAudioConfig(std::string name) { + core::configManager.conf["audio"][name]["device"] = audio::streams[name]->audio->deviceNames[audio::streams[name]->deviceId]; + core::configManager.conf["audio"][name]["volume"] = audio::streams[name]->volume; + core::configManager.conf["audio"][name]["sampleRate"] = audio::streams[name]->sampleRate; + } + + void init() { + for (auto [name, stream] : audio::streams) { + if (core::configManager.conf["audio"].contains(name)) { + bool running = audio::streams[name]->running; + audio::stopStream(name); + loadAudioConfig(name); + if (running) { + audio::startStream(name); + } + } + } + + audioStreamName = audio::getNameFromVFO(gui::waterfall.selectedVFO); + if (audioStreamName != "") { + volume = &audio::streams[audioStreamName]->volume; + } + } + + void draw(void* ctx) { + float menuColumnWidth = ImGui::GetContentRegionAvailWidth(); + int count = 0; + int maxCount = audio::streams.size(); + for (auto const& [name, stream] : audio::streams) { + int deviceId; + float vol = 1.0f; + deviceId = stream->audio->getDeviceId(); + + ImGui::SetCursorPosX((menuColumnWidth / 2.0f) - (ImGui::CalcTextSize(name.c_str()).x / 2.0f)); + ImGui::Text(name.c_str()); + + ImGui::PushItemWidth(menuColumnWidth); + bool running = stream->running; + if (ImGui::Combo(("##_audio_dev_0_"+ name).c_str(), &stream->deviceId, stream->audio->devTxtList.c_str())) { + audio::stopStream(name); + audio::setAudioDevice(name, stream->deviceId, stream->audio->devices[deviceId].sampleRates[0]); + if (running) { + audio::startStream(name); + } + stream->sampleRateId = 0; + + // Create config if it doesn't exist + core::configManager.aquire(); + if (!core::configManager.conf["audio"].contains(name)) { + saveAudioConfig(name); + } + core::configManager.conf["audio"][name]["device"] = stream->audio->deviceNames[stream->deviceId]; + core::configManager.conf["audio"][name]["sampleRate"] = stream->audio->devices[stream->deviceId].sampleRates[0]; + core::configManager.release(true); + } + if (ImGui::Combo(("##_audio_sr_0_" + name).c_str(), &stream->sampleRateId, stream->audio->devices[deviceId].txtSampleRates.c_str())) { + audio::stopStream(name); + audio::setSampleRate(name, stream->audio->devices[deviceId].sampleRates[stream->sampleRateId]); + if (running) { + audio::startStream(name); + } + + // Create config if it doesn't exist + core::configManager.aquire(); + if (!core::configManager.conf["audio"].contains(name)) { + saveAudioConfig(name); + } + core::configManager.conf["audio"][name]["sampleRate"] = stream->audio->devices[deviceId].sampleRates[stream->sampleRateId]; + core::configManager.release(true); + } + if (ImGui::SliderFloat(("##_audio_vol_0_" + name).c_str(), &stream->volume, 0.0f, 1.0f, "")) { + stream->audio->setVolume(stream->volume); + + // Create config if it doesn't exist + core::configManager.aquire(); + if (!core::configManager.conf["audio"].contains(name)) { + saveAudioConfig(name); + } + core::configManager.conf["audio"][name]["volume"] = stream->volume; + core::configManager.release(true); + } + ImGui::PopItemWidth(); + count++; + if (count < maxCount) { + ImGui::Spacing(); + ImGui::Separator(); + } + ImGui::Spacing(); + } + ImGui::Spacing(); + } +}; \ No newline at end of file diff --git a/core/src/gui/menus/audio.h b/core/src/gui/menus/audio.h new file mode 100644 index 0000000..bc66241 --- /dev/null +++ b/core/src/gui/menus/audio.h @@ -0,0 +1,6 @@ +#pragma once + +namespace audiomenu { + void init(); + void draw(void* ctx); +}; \ No newline at end of file diff --git a/core/src/gui/menus/bandplan.cpp b/core/src/gui/menus/bandplan.cpp new file mode 100644 index 0000000..78f7a16 --- /dev/null +++ b/core/src/gui/menus/bandplan.cpp @@ -0,0 +1,52 @@ +#include +#include +#include +#include + +namespace bandplanmenu { + int bandplanId; + bool bandPlanEnabled; + + void init() { + // todo: check if the bandplan wasn't removed + if (bandplan::bandplanNames.size() == 0) { + gui::waterfall.hideBandplan(); + return; + } + + if (bandplan::bandplans.find(core::configManager.conf["bandPlan"]) != bandplan::bandplans.end()) { + std::string name = core::configManager.conf["bandPlan"]; + bandplanId = std::distance(bandplan::bandplanNames.begin(), std::find(bandplan::bandplanNames.begin(), + bandplan::bandplanNames.end(), name)); + gui::waterfall.bandplan = &bandplan::bandplans[name]; + } + else { + gui::waterfall.bandplan = &bandplan::bandplans[bandplan::bandplanNames[0]]; + } + + bandPlanEnabled = core::configManager.conf["bandPlanEnabled"]; + bandPlanEnabled ? gui::waterfall.showBandplan() : gui::waterfall.hideBandplan(); + } + + void draw(void* ctx) { + float menuColumnWidth = ImGui::GetContentRegionAvailWidth(); + ImGui::PushItemWidth(menuColumnWidth); + if (ImGui::Combo("##_4_", &bandplanId, bandplan::bandplanNameTxt.c_str())) { + gui::waterfall.bandplan = &bandplan::bandplans[bandplan::bandplanNames[bandplanId]]; + core::configManager.aquire(); + core::configManager.conf["bandPlan"] = bandplan::bandplanNames[bandplanId]; + core::configManager.release(true); + } + ImGui::PopItemWidth(); + if (ImGui::Checkbox("Enabled", &bandPlanEnabled)) { + bandPlanEnabled ? gui::waterfall.showBandplan() : gui::waterfall.hideBandplan(); + core::configManager.aquire(); + core::configManager.conf["bandPlanEnabled"] = bandPlanEnabled; + core::configManager.release(true); + } + bandplan::BandPlan_t plan = bandplan::bandplans[bandplan::bandplanNames[bandplanId]]; + ImGui::Text("Country: %s (%s)", plan.countryName.c_str(), plan.countryCode.c_str()); + ImGui::Text("Author: %s", plan.authorName.c_str()); + ImGui::Spacing(); + } +}; \ No newline at end of file diff --git a/core/src/gui/menus/bandplan.h b/core/src/gui/menus/bandplan.h new file mode 100644 index 0000000..7bfb3e1 --- /dev/null +++ b/core/src/gui/menus/bandplan.h @@ -0,0 +1,6 @@ +#pragma once + +namespace bandplanmenu { + void init(); + void draw(void* ctx); +}; \ No newline at end of file diff --git a/core/src/gui/menus/display.cpp b/core/src/gui/menus/display.cpp new file mode 100644 index 0000000..76093a5 --- /dev/null +++ b/core/src/gui/menus/display.cpp @@ -0,0 +1,23 @@ +#include +#include +#include +#include + +namespace displaymenu { + bool showWaterfall; + + void init() { + showWaterfall = core::configManager.conf["showWaterfall"]; + showWaterfall ? gui::waterfall.showWaterfall() : gui::waterfall.hideWaterfall(); + } + + void draw(void* ctx) { + if (ImGui::Checkbox("Show Waterfall", &showWaterfall)) { + showWaterfall ? gui::waterfall.showWaterfall() : gui::waterfall.hideWaterfall(); + core::configManager.aquire(); + core::configManager.conf["showWaterfall"] = showWaterfall; + core::configManager.release(true); + } + ImGui::Spacing(); + } +} \ No newline at end of file diff --git a/core/src/gui/menus/display.h b/core/src/gui/menus/display.h new file mode 100644 index 0000000..f0a97d1 --- /dev/null +++ b/core/src/gui/menus/display.h @@ -0,0 +1,6 @@ +#pragma once + +namespace displaymenu { + void init(); + void draw(void* ctx); +} \ No newline at end of file diff --git a/core/src/gui/menus/source.cpp b/core/src/gui/menus/source.cpp new file mode 100644 index 0000000..a6eec25 --- /dev/null +++ b/core/src/gui/menus/source.cpp @@ -0,0 +1,11 @@ +#include + +namespace sourecmenu { + void init() { + + } + + void draw(void* ctx) { + + } +} \ No newline at end of file diff --git a/core/src/gui/menus/source.h b/core/src/gui/menus/source.h new file mode 100644 index 0000000..ac9c736 --- /dev/null +++ b/core/src/gui/menus/source.h @@ -0,0 +1,6 @@ +#pragma once + +namespace sourecmenu { + void init(); + void draw(void* ctx); +} \ No newline at end of file diff --git a/core/src/gui/waterfall.cpp b/core/src/gui/waterfall.cpp index ab2af77..18cc1ea 100644 --- a/core/src/gui/waterfall.cpp +++ b/core/src/gui/waterfall.cpp @@ -441,7 +441,7 @@ namespace ImGui { drawWaterfall(); } drawVFOs(); - if (bandplan != NULL) { + if (bandplan != NULL && bandplanVisible) { drawBandPlan(); } @@ -780,5 +780,13 @@ namespace ImGui { int WaterFall::getFFTHeight() { return FFTAreaHeight; } + + void WaterFall::showBandplan() { + bandplanVisible = true; + } + + void WaterFall::hideBandplan() { + bandplanVisible = false; + } }; diff --git a/core/src/gui/waterfall.h b/core/src/gui/waterfall.h index 1ce08a3..3bcf830 100644 --- a/core/src/gui/waterfall.h +++ b/core/src/gui/waterfall.h @@ -91,6 +91,9 @@ namespace ImGui { void showWaterfall(); void hideWaterfall(); + void showBandplan(); + void hideBandplan(); + void setFFTHeight(int height); int getFFTHeight(); @@ -187,5 +190,6 @@ namespace ImGui { int newFFTAreaHeight; bool waterfallVisible = true; + bool bandplanVisible = false; }; }; \ No newline at end of file diff --git a/root_dev/config.json b/root_dev/config.json index 1960e66..3d8e90f 100644 --- a/root_dev/config.json +++ b/root_dev/config.json @@ -8,7 +8,7 @@ "Radio 1": { "device": "Speakers (Realtek High Definiti", "sampleRate": 48000.0, - "volume": 0.6881720423698425 + "volume": 0.4185185134410858 }, "Radio 2": { "device": "Speakers (Realtek High Definiti", @@ -25,7 +25,7 @@ "menuWidth": 300, "min": -51.47058868408203, "showWaterfall": true, - "source": "HackRF One #0 901868dc282c8f8b", + "source": "Generic RTL2832U OEM :: 00000001", "sourceSettings": { "Generic RTL2832U OEM :: 00000001": { "gains": { From 524f20bc2f992609e046571e044cf545e2d4bb6a Mon Sep 17 00:00:00 2001 From: Ryzerth Date: Thu, 1 Oct 2020 01:21:15 +0200 Subject: [PATCH 14/33] Save before changes --- CMakeLists.txt | 3 +- core/src/dsp/correction.h | 7 + core/src/gui/main_window.cpp | 248 +++------------------------ core/src/gui/main_window.h | 2 + core/src/gui/menus/source.cpp | 24 ++- core/src/io/soapy.h | 1 + core/src/module.h | 57 ++---- core/src/signal_path/dsp.cpp | 9 +- core/src/signal_path/dsp.h | 1 + core/src/signal_path/signal_path.cpp | 1 + core/src/signal_path/signal_path.h | 3 + core/src/signal_path/source.cpp | 58 +++++++ core/src/signal_path/source.h | 37 ++++ demo/src/main.cpp | 61 ++++--- radio/src/main.cpp | 225 ++++++++++++------------ radio/src/path.cpp | 24 +-- 16 files changed, 348 insertions(+), 413 deletions(-) create mode 100644 core/src/signal_path/source.cpp create mode 100644 core/src/signal_path/source.h diff --git a/CMakeLists.txt b/CMakeLists.txt index a9c6c4b..acc0882 100644 --- a/CMakeLists.txt +++ b/CMakeLists.txt @@ -3,7 +3,8 @@ project(sdrpp_core) add_subdirectory("core") add_subdirectory("radio") -add_subdirectory("recorder") +# Add back recorder when module new system is ready +#add_subdirectory("recorder") add_subdirectory("demo") add_executable(sdrpp "src/main.cpp" "win32/resources.rc") diff --git a/core/src/dsp/correction.h b/core/src/dsp/correction.h index 1db9ea1..af39f77 100644 --- a/core/src/dsp/correction.h +++ b/core/src/dsp/correction.h @@ -52,6 +52,13 @@ namespace dsp { output.setMaxLatency(blockSize * 2); } + void setInput(stream* input) { + if (running) { + return; + } + _in = input; + } + stream output; bool bypass; diff --git a/core/src/gui/main_window.cpp b/core/src/gui/main_window.cpp index 11e7cb9..cb9b0b1 100644 --- a/core/src/gui/main_window.cpp +++ b/core/src/gui/main_window.cpp @@ -6,12 +6,10 @@ std::mutex fft_mtx; fftwf_complex *fft_in, *fft_out; fftwf_plan p; float* tempData; -float* uiGains; char buf[1024]; int fftSize = 8192 * 8; -io::SoapyWrapper soapy; std::vector _data; std::vector fftTaps; void fftHandler(dsp::complex_t* samples) { @@ -34,10 +32,7 @@ void fftHandler(dsp::complex_t* samples) { } dsp::NullSink sink; -int devId = 0; -int srId = 0; watcher freq((uint64_t)90500000); -int demod = 1; watcher vfoFreq(92000000.0f); float dummyVolume = 1.0f; float* volume = &dummyVolume; @@ -45,7 +40,6 @@ float fftMin = -70.0f; float fftMax = 0.0f; watcher offset(0.0f, true); watcher bw(8000000.0f, true); -int sampleRate = 8000000; bool playing = false; watcher dcbias(false, false); bool showCredits = false; @@ -56,175 +50,14 @@ bool grabbingMenu = false; int newWidth = 300; int fftHeight = 300; bool showMenu = true; - -void saveCurrentSource() { - int i = 0; - for (std::string gainName : soapy.gainList) { - core::configManager.conf["sourceSettings"][sourceName]["gains"][gainName] = uiGains[i]; - i++; - } - core::configManager.conf["sourceSettings"][sourceName]["sampleRate"] = soapy.sampleRates[srId]; -} - -void loadSourceConfig(std::string name) { - json sourceSettings = core::configManager.conf["sourceSettings"][name]; - - sampleRate = sourceSettings["sampleRate"]; - - auto _srIt = std::find(soapy.sampleRates.begin(), soapy.sampleRates.end(), sampleRate); - // If the sample rate isn't valid, set to minimum - if (_srIt == soapy.sampleRates.end()) { - srId = 0; - sampleRate = soapy.sampleRates[0]; - } - else { - srId = std::distance(soapy.sampleRates.begin(), _srIt); - } - sigpath::signalPath.setSampleRate(sampleRate); - soapy.setSampleRate(sampleRate); - - // Set gains - delete[] uiGains; - uiGains = new float[soapy.gainList.size()]; - int i = 0; - for (std::string gainName : soapy.gainList) { - // If gain doesn't exist in config, set it to the minimum value - if (!sourceSettings["gains"].contains(gainName)) { - uiGains[i] = soapy.gainRanges[i].minimum(); - soapy.setGain(i, uiGains[i]); - continue; - } - uiGains[i] = sourceSettings["gains"][gainName]; - soapy.setGain(i, uiGains[i]); - i++; - } - - // Update GUI - gui::waterfall.setBandwidth(sampleRate); - gui::waterfall.setViewBandwidth(sampleRate); - bw.val = sampleRate; -} - -void setVFO(float freq); - -// ======================================================= - -void sourceMenu(void* ctx) { - float menuColumnWidth = ImGui::GetContentRegionAvailWidth(); - if (playing) { style::beginDisabled(); }; - - ImGui::PushItemWidth(menuColumnWidth); - if (ImGui::Combo("##_0_", &devId, soapy.txtDevList.c_str())) { - spdlog::info("Changed input device: {0}", devId); - sourceName = soapy.devNameList[devId]; - soapy.setDevice(soapy.devList[devId]); - - core::configManager.aquire(); - if (core::configManager.conf["sourceSettings"].contains(sourceName)) { - loadSourceConfig(sourceName); - } - else { - srId = 0; - sampleRate = soapy.getSampleRate(); - bw.val = sampleRate; - gui::waterfall.setBandwidth(sampleRate); - gui::waterfall.setViewBandwidth(sampleRate); - sigpath::signalPath.setSampleRate(sampleRate); - - if (soapy.gainList.size() >= 0) { - delete[] uiGains; - uiGains = new float[soapy.gainList.size()]; - for (int i = 0; i < soapy.gainList.size(); i++) { - uiGains[i] = soapy.currentGains[i]; - } - } - } - setVFO(gui::freqSelect.frequency); - core::configManager.conf["source"] = sourceName; - core::configManager.release(true); - } - ImGui::PopItemWidth(); - - if (ImGui::Combo("##_1_", &srId, soapy.txtSampleRateList.c_str())) { - spdlog::info("Changed sample rate: {0}", srId); - sampleRate = soapy.sampleRates[srId]; - soapy.setSampleRate(sampleRate); - gui::waterfall.setBandwidth(sampleRate); - gui::waterfall.setViewBandwidth(sampleRate); - sigpath::signalPath.setSampleRate(sampleRate); - bw.val = sampleRate; - - core::configManager.aquire(); - if (!core::configManager.conf["sourceSettings"].contains(sourceName)) { - saveCurrentSource(); - } - core::configManager.conf["sourceSettings"][sourceName]["sampleRate"] = sampleRate; - core::configManager.release(true); - } - - ImGui::SameLine(); - bool noDevice = (soapy.devList.size() == 0); - if (ImGui::Button("Refresh", ImVec2(menuColumnWidth - ImGui::GetCursorPosX(), 0.0f))) { - soapy.refresh(); - if (noDevice && soapy.devList.size() > 0) { - sourceName = soapy.devNameList[0]; - soapy.setDevice(soapy.devList[0]); - if (core::configManager.conf["sourceSettings"][sourceName]) { - loadSourceConfig(sourceName); - } - } - } - - if (playing) { style::endDisabled(); }; - - float maxTextLength = 0; - float txtLen = 0; - char buf[100]; - - // Calculate the spacing - for (int i = 0; i < soapy.gainList.size(); i++) { - sprintf(buf, "%s gain", soapy.gainList[i].c_str()); - txtLen = ImGui::CalcTextSize(buf).x; - if (txtLen > maxTextLength) { - maxTextLength = txtLen; - } - } - - for (int i = 0; i < soapy.gainList.size(); i++) { - ImGui::Text("%s gain", soapy.gainList[i].c_str()); - ImGui::SameLine(); - sprintf(buf, "##_gain_slide_%d_", i); - - ImGui::SetCursorPosX(maxTextLength + 5); - ImGui::PushItemWidth(menuColumnWidth - (maxTextLength + 5)); - if (ImGui::SliderFloat(buf, &uiGains[i], soapy.gainRanges[i].minimum(), soapy.gainRanges[i].maximum())) { - soapy.setGain(i, uiGains[i]); - core::configManager.aquire(); - if (!core::configManager.conf["sourceSettings"].contains(sourceName)) { - saveCurrentSource(); - } - core::configManager.conf["sourceSettings"][sourceName]["gains"][soapy.gainList[i]] = uiGains[i]; - core::configManager.release(true); - } - ImGui::PopItemWidth(); - } - - ImGui::Spacing(); -} - -// ======================================================= +dsp::stream dummyStream; void windowInit() { spdlog::info("Initializing SoapySDR"); - soapy.init(); credits::init(); - audiomenu::init(); - bandplanmenu::init(); - displaymenu::init(); - - gui::menu.registerEntry("Source", sourceMenu, NULL); + gui::menu.registerEntry("Source", sourecmenu::draw, NULL); gui::menu.registerEntry("Audio", audiomenu::draw, NULL); gui::menu.registerEntry("Band Plan", bandplanmenu::draw, NULL); gui::menu.registerEntry("Display", displaymenu::draw, NULL); @@ -235,50 +68,19 @@ void windowInit() { fft_out = (fftwf_complex*) fftwf_malloc(sizeof(fftwf_complex) * fftSize); p = fftwf_plan_dft_1d(fftSize, fft_in, fft_out, FFTW_FORWARD, FFTW_ESTIMATE); - sigpath::signalPath.init(sampleRate, 20, fftSize, &soapy.output, (dsp::complex_t*)fft_in, fftHandler); + sigpath::signalPath.init(8000000, 20, fftSize, &dummyStream, (dsp::complex_t*)fft_in, fftHandler); sigpath::signalPath.start(); - uiGains = new float[soapy.gainList.size()]; - spdlog::info("Loading modules"); mod::initAPI(&gui::waterfall); mod::loadFromList(ROOT_DIR "/module_list.json"); + sourecmenu::init(); + audiomenu::init(); + bandplanmenu::init(); + displaymenu::init(); + // Load last source configuration - core::configManager.aquire(); - uint64_t frequency = core::configManager.conf["frequency"]; - sourceName = core::configManager.conf["source"]; - auto _sourceIt = std::find(soapy.devNameList.begin(), soapy.devNameList.end(), sourceName); - if (_sourceIt != soapy.devNameList.end() && core::configManager.conf["sourceSettings"].contains(sourceName)) { - json sourceSettings = core::configManager.conf["sourceSettings"][sourceName]; - devId = std::distance(soapy.devNameList.begin(), _sourceIt); - soapy.setDevice(soapy.devList[devId]); - loadSourceConfig(sourceName); - } - else { - int i = 0; - bool settingsFound = false; - for (std::string devName : soapy.devNameList) { - if (core::configManager.conf["sourceSettings"].contains(devName)) { - sourceName = devName; - settingsFound = true; - devId = i; - soapy.setDevice(soapy.devList[i]); - loadSourceConfig(sourceName); - break; - } - i++; - } - if (!settingsFound) { - if (soapy.devNameList.size() > 0) { - sourceName = soapy.devNameList[0]; - } - sampleRate = soapy.getSampleRate(); - sigpath::signalPath.setSampleRate(sampleRate); - } - // Search for the first source in the list to have a config - // If no pre-defined source, selected default device - } // Also add a loading screen // Adjustable "snap to grid" for each VFO @@ -301,15 +103,17 @@ void windowInit() { gui::waterfall.setWaterfallMin(fftMin); gui::waterfall.setFFTMax(fftMax); gui::waterfall.setWaterfallMax(fftMax); + + float frequency = core::configManager.conf["frequency"]; gui::freqSelect.setFrequency(frequency); gui::freqSelect.frequencyChanged = false; - soapy.setFrequency(frequency); + sigpath::sourceManager.tune(frequency); gui::waterfall.setCenterFrequency(frequency); - gui::waterfall.setBandwidth(sampleRate); - gui::waterfall.setViewBandwidth(sampleRate); - bw.val = sampleRate; + gui::waterfall.setBandwidth(8000000); + gui::waterfall.setViewBandwidth(8000000); + bw.val = 8000000; gui::waterfall.vfoFreqChanged = false; gui::waterfall.centerFreqMoved = false; gui::waterfall.selectFirstVFO(); @@ -357,7 +161,7 @@ void setVFO(float freq) { float newVFOOffset = (BW / 2.0f) - (vfoBW / 2.0f) - (viewBW / 10.0f); sigpath::vfoManager.setCenterOffset(gui::waterfall.selectedVFO, newVFOOffset); gui::waterfall.setCenterFrequency(freq - newVFOOffset); - soapy.setFrequency(freq - newVFOOffset); + sigpath::sourceManager.tune(freq - newVFOOffset); return; } @@ -367,7 +171,7 @@ void setVFO(float freq) { float newVFOOffset = (vfoBW / 2.0f) - (BW / 2.0f) + (viewBW / 10.0f); sigpath::vfoManager.setCenterOffset(gui::waterfall.selectedVFO, newVFOOffset); gui::waterfall.setCenterFrequency(freq - newVFOOffset); - soapy.setFrequency(freq - newVFOOffset); + sigpath::sourceManager.tune(freq - newVFOOffset); return; } @@ -387,7 +191,7 @@ void setVFO(float freq) { float newVFOOffset = (BW / 2.0f) - (vfoBW / 2.0f) - (viewBW / 10.0f); sigpath::vfoManager.setCenterOffset(gui::waterfall.selectedVFO, newVFOOffset); gui::waterfall.setCenterFrequency(freq - newVFOOffset); - soapy.setFrequency(freq - newVFOOffset); + sigpath::sourceManager.tune(freq - newVFOOffset); } else { float newViewOff = vfoBottom + (viewBW / 2.0f) - (viewBW / 10.0f); @@ -404,7 +208,7 @@ void setVFO(float freq) { float newVFOOffset = (vfoBW / 2.0f) - (BW / 2.0f) + (viewBW / 10.0f); sigpath::vfoManager.setCenterOffset(gui::waterfall.selectedVFO, newVFOOffset); gui::waterfall.setCenterFrequency(freq - newVFOOffset); - soapy.setFrequency(freq - newVFOOffset); + sigpath::sourceManager.tune(freq - newVFOOffset); } } @@ -450,7 +254,7 @@ void drawWindow() { if (gui::waterfall.centerFreqMoved) { gui::waterfall.centerFreqMoved = false; - soapy.setFrequency(gui::waterfall.getCenterFrequency()); + sigpath::sourceManager.tune(gui::waterfall.getCenterFrequency()); gui::freqSelect.setFrequency(gui::waterfall.getCenterFrequency() + vfo->generalOffset); core::configManager.aquire(); core::configManager.conf["frequency"] = gui::freqSelect.frequency; @@ -491,14 +295,15 @@ void drawWindow() { if (playing) { if (ImGui::ImageButton(icons::STOP, ImVec2(40, 40), ImVec2(0, 0), ImVec2(1, 1), 0)) { - soapy.stop(); + sigpath::sourceManager.stop(); playing = false; } } - else { - if (ImGui::ImageButton(icons::PLAY, ImVec2(40, 40), ImVec2(0, 0), ImVec2(1, 1), 0) && soapy.devList.size() > 0) { - soapy.start(); - soapy.setFrequency(gui::waterfall.getCenterFrequency()); + else { // TODO: Might need to check if there even is a device + if (ImGui::ImageButton(icons::PLAY, ImVec2(40, 40), ImVec2(0, 0), ImVec2(1, 1), 0)) { + sigpath::sourceManager.start(); + // TODO: tune in module instead + sigpath::sourceManager.tune(gui::waterfall.getCenterFrequency()); playing = true; } } @@ -623,7 +428,8 @@ void drawWindow() { ImGui::SetCursorPosX((ImGui::GetWindowSize().x / 2.0f) - (ImGui::CalcTextSize("Zoom").x / 2.0f)); ImGui::Text("Zoom"); ImGui::SetCursorPosX((ImGui::GetWindowSize().x / 2.0f) - 10); - ImGui::VSliderFloat("##_7_", ImVec2(20.0f, 150.0f), &bw.val, sampleRate, 1000.0f, ""); + // TODO: use global sample rate value from DSP instead of 8000000 + ImGui::VSliderFloat("##_7_", ImVec2(20.0f, 150.0f), &bw.val, 8000000, 1000.0f, ""); ImGui::NewLine(); diff --git a/core/src/gui/main_window.h b/core/src/gui/main_window.h index 493125e..03eb370 100644 --- a/core/src/gui/main_window.h +++ b/core/src/gui/main_window.h @@ -28,10 +28,12 @@ #include #include #include +#include #include #include #include #include +#include #define WINDOW_FLAGS ImGuiWindowFlags_NoMove | ImGuiWindowFlags_NoCollapse | ImGuiWindowFlags_NoBringToFrontOnFocus | ImGuiWindowFlags_NoTitleBar | ImGuiWindowFlags_NoResize | ImGuiWindowFlags_NoBackground diff --git a/core/src/gui/menus/source.cpp b/core/src/gui/menus/source.cpp index a6eec25..c2f06be 100644 --- a/core/src/gui/menus/source.cpp +++ b/core/src/gui/menus/source.cpp @@ -1,11 +1,33 @@ #include +#include +#include +#include +#include namespace sourecmenu { - void init() { + int sourceId = 0; + void init() { + // Select default + // TODO: Replace by setting + if (sigpath::sourceManager.sourceNames.size() > 0) { + sigpath::sourceManager.selectSource(sigpath::sourceManager.sourceNames[0]); + } } void draw(void* ctx) { + std::string items = ""; + for (std::string name : sigpath::sourceManager.sourceNames) { + items += name; + items += '\0'; + } + float itemWidth = ImGui::GetContentRegionAvailWidth(); + ImGui::SetNextItemWidth(itemWidth); + if (ImGui::Combo("##source", &sourceId, items.c_str())) { + sigpath::sourceManager.selectSource(sigpath::sourceManager.sourceNames[sourceId]); + } + + sigpath::sourceManager.showSelectedMenu(); } } \ No newline at end of file diff --git a/core/src/io/soapy.h b/core/src/io/soapy.h index bb0c97c..5415183 100644 --- a/core/src/io/soapy.h +++ b/core/src/io/soapy.h @@ -1,3 +1,4 @@ +#pragma once #include #include #include diff --git a/core/src/module.h b/core/src/module.h index 99faaa9..159de6a 100644 --- a/core/src/module.h +++ b/core/src/module.h @@ -29,45 +29,6 @@ #endif namespace mod { - struct API_t { - dsp::stream* (*registerVFO)(std::string name, int reference, float offset, float bandwidth, float sampleRate, int blockSize); - void (*setVFOOffset)(std::string name, float offset); - void (*setVFOCenterOffset)(std::string name, float offset); - void (*setVFOBandwidth)(std::string name, float bandwidth); - void (*setVFOSampleRate)(std::string name, float sampleRate, float bandwidth); - int (*getVFOOutputBlockSize)(std::string name); - void (*setVFOReference)(std::string name, int ref); - void (*removeVFO)(std::string name); - - std::string (*getSelectedVFOName)(void); - void (*bindVolumeVariable)(float* vol); - void (*unbindVolumeVariable)(void); - - float (*registerMonoStream)(dsp::stream* stream, std::string name, std::string vfoName, int (*sampleRateChangeHandler)(void* ctx, float sampleRate), void* ctx); - float (*registerStereoStream)(dsp::stream* stream, std::string name, std::string vfoName, int (*sampleRateChangeHandler)(void* ctx, float sampleRate), void* ctx); - void (*startStream)(std::string name); - void (*stopStream)(std::string name); - void (*removeStream)(std::string name); - dsp::stream* (*bindToStreamMono)(std::string name, void (*streamRemovedHandler)(void* ctx), void (*sampleRateChangeHandler)(void* ctx, float sampleRate, int blockSize), void* ctx); - dsp::stream* (*bindToStreamStereo)(std::string name, void (*streamRemovedHandler)(void* ctx), void (*sampleRateChangeHandler)(void* ctx, float sampleRate, int blockSize), void* ctx); - void (*setBlockSize)(std::string name, int blockSize); - void (*unbindFromStreamMono)(std::string name, dsp::stream* stream); - void (*unbindFromStreamStereo)(std::string name, dsp::stream* stream); - std::vector (*getStreamNameList)(void); - - enum { - REF_LOWER, - REF_CENTER, - REF_UPPER, - _REF_COUNT - }; - }; - - enum { - EVENT_STREAM_PARAM_CHANGED, - EVENT_SELECTED_VFO_CHANGED, - _EVENT_COUNT - }; struct Module_t { #ifdef _WIN32 @@ -75,14 +36,20 @@ namespace mod { #else void* inst; #endif - void* (*_INIT_)(API_t*, ImGuiContext*, std::string); - void (*_DRAW_MENU_)(void*); - void (*_NEW_FRAME_)(void*); - void (*_HANDLE_EVENT_)(void*, int); - void (*_STOP_)(void*); + void (*_INIT_)(); + void* (*_CREATE_INSTANCE)(std::string); + void (*_DELETE_INSTANCE)(); + void (*_STOP_)(); void* ctx; }; + struct ModuleInfo_t { + char* name; + char* description; + char* author; + char* version; + }; + void initAPI(ImGui::WaterFall* wtf); void loadModule(std::string path, std::string name); void broadcastEvent(int eventId); @@ -92,4 +59,4 @@ namespace mod { extern std::vector moduleNames; }; -extern mod::API_t* API; \ No newline at end of file +#define MOD_INFO MOD_EXPORT const mod::ModuleInfo_t _INFO \ No newline at end of file diff --git a/core/src/signal_path/dsp.cpp b/core/src/signal_path/dsp.cpp index f2f5033..691893f 100644 --- a/core/src/signal_path/dsp.cpp +++ b/core/src/signal_path/dsp.cpp @@ -40,7 +40,7 @@ void SignalPath::setSampleRate(float sampleRate) { fftBlockDec.setSkip(skip); dynSplit.setBlockSize(inputBlockSize); - mod::broadcastEvent(mod::EVENT_STREAM_PARAM_CHANGED); + // TODO: Tell modules that the block size has changed for (auto const& [name, vfo] : vfos) { vfo.vfo->setInputSampleRate(sampleRate, inputBlockSize); @@ -87,6 +87,7 @@ dsp::VFO* SignalPath::addVFO(std::string name, float outSampleRate, float bandwi void SignalPath::removeVFO(std::string name) { if (vfos.find(name) == vfos.end()) { return; + } dynSplit.stop(); VFO_t vfo = vfos[name]; @@ -96,4 +97,10 @@ void SignalPath::removeVFO(std::string name) { delete vfo.inputStream; dynSplit.start(); vfos.erase(name); +} + +void SignalPath::setInput(dsp::stream* input) { + dcBiasRemover.stop(); + dcBiasRemover.setInput(input); + dcBiasRemover.start(); } \ No newline at end of file diff --git a/core/src/signal_path/dsp.h b/core/src/signal_path/dsp.h index 929adb1..850f854 100644 --- a/core/src/signal_path/dsp.h +++ b/core/src/signal_path/dsp.h @@ -22,6 +22,7 @@ public: void setFFTRate(float rate); dsp::VFO* addVFO(std::string name, float outSampleRate, float bandwidth, float offset); void removeVFO(std::string name); + void setInput(dsp::stream* input); private: struct VFO_t { diff --git a/core/src/signal_path/signal_path.cpp b/core/src/signal_path/signal_path.cpp index 13188e1..2ae0939 100644 --- a/core/src/signal_path/signal_path.cpp +++ b/core/src/signal_path/signal_path.cpp @@ -3,4 +3,5 @@ namespace sigpath { SignalPath signalPath; VFOManager vfoManager; + SourceManager sourceManager; }; \ No newline at end of file diff --git a/core/src/signal_path/signal_path.h b/core/src/signal_path/signal_path.h index c0d10a7..5b3c79b 100644 --- a/core/src/signal_path/signal_path.h +++ b/core/src/signal_path/signal_path.h @@ -1,9 +1,12 @@ #pragma once #include #include +#include +#include #include namespace sigpath { SDRPP_EXPORT SignalPath signalPath; SDRPP_EXPORT VFOManager vfoManager; + SDRPP_EXPORT SourceManager sourceManager; }; \ No newline at end of file diff --git a/core/src/signal_path/source.cpp b/core/src/signal_path/source.cpp new file mode 100644 index 0000000..e8412b4 --- /dev/null +++ b/core/src/signal_path/source.cpp @@ -0,0 +1,58 @@ +#include +#include +#include + +SourceManager::SourceManager() { + +} + +void SourceManager::registerSource(std::string name, SourceHandler* handler) { + if (sources.find(name) != sources.end()) { + spdlog::error("Tried to register new source with existing name: {0}", name); + return; + } + sources[name] = handler; + sourceNames.push_back(name); +} + +void SourceManager::selectSource(std::string name) { + if (sources.find(name) == sources.end()) { + spdlog::error("Tried to select non existant source: {0}", name); + return; + } + if (selectedName != "") { + sources[selectedName]->deselectHandler(sources[selectedName]->ctx); + } + selectedHandler = sources[name]; + selectedHandler->selectHandler(selectedHandler->ctx); + selectedName = name; + sigpath::signalPath.setInput(selectedHandler->stream); +} + +void SourceManager::showSelectedMenu() { + if (selectedHandler == NULL) { + return; + } + selectedHandler->menuHandler(selectedHandler->ctx); +} + +void SourceManager::start() { + if (selectedHandler == NULL) { + return; + } + selectedHandler->startHandler(selectedHandler->ctx); +} + +void SourceManager::stop() { + if (selectedHandler == NULL) { + return; + } + selectedHandler->stopHandler(selectedHandler->ctx); +} + +void SourceManager::tune(double freq) { + if (selectedHandler == NULL) { + return; + } + selectedHandler->tuneHandler(freq, selectedHandler->ctx); +} \ No newline at end of file diff --git a/core/src/signal_path/source.h b/core/src/signal_path/source.h new file mode 100644 index 0000000..8ad53e1 --- /dev/null +++ b/core/src/signal_path/source.h @@ -0,0 +1,37 @@ +#pragma once +#include +#include +#include +#include +#include + +class SourceManager { +public: + SourceManager(); + + struct SourceHandler { + dsp::stream* stream; + void (*menuHandler)(void* ctx); + void (*selectHandler)(void* ctx); + void (*deselectHandler)(void* ctx); + void (*startHandler)(void* ctx); + void (*stopHandler)(void* ctx); + void (*tuneHandler)(double freq, void* ctx); + void* ctx; + }; + + void registerSource(std::string name, SourceHandler* handler); + void selectSource(std::string name); + void showSelectedMenu(); + void start(); + void stop(); + void tune(double freq); + + std::vector sourceNames; + +private: + std::map sources; + std::string selectedName; + SourceHandler* selectedHandler = NULL; + +}; \ No newline at end of file diff --git a/demo/src/main.cpp b/demo/src/main.cpp index 0201e70..4ae5579 100644 --- a/demo/src/main.cpp +++ b/demo/src/main.cpp @@ -1,38 +1,51 @@ #include +#include #include -#include -#include -#include -#include -#include -#include -#include +#include #define CONCAT(a, b) ((std::string(a) + b).c_str()) - -struct DemoContext_t { - std::string name; +MOD_INFO { + /* Name: */ "demo", + /* Description: */ "Demo module for SDR++", + /* Author: */ "Ryzerth", + /* Version: */ "0.1.0" }; -MOD_EXPORT void* _INIT_(mod::API_t* _API, ImGuiContext* imctx, std::string _name) { - DemoContext_t* ctx = new DemoContext_t; - ctx->name = _name; - return ctx; +class DemoModule { +public: + DemoModule(std::string name) { + this->name = name; + gui::menu.registerEntry(name, menuHandler, this); + spdlog::info("DemoModule '{0}': Instance created!", name); + } + + ~DemoModule() { + spdlog::info("DemoModule '{0}': Instance deleted!", name); + } + +private: + static void menuHandler(void* ctx) { + DemoModule* _this = (DemoModule*)ctx; + ImGui::Text("Hi from %s!", _this->name.c_str()); + } + + std::string name; + +}; + +MOD_EXPORT void _INIT_() { + // Do your one time init here } -MOD_EXPORT void _NEW_FRAME_(DemoContext_t* ctx) { - +MOD_EXPORT void* _CREATE_INSTANCE_(std::string name) { + return new DemoModule(name); } -MOD_EXPORT void _DRAW_MENU_(DemoContext_t* ctx) { - ImGui::Text(ctx->name.c_str()); +MOD_EXPORT void _DELETE_INSTANCE_(void* instance) { + delete (DemoModule*)instance; } -MOD_EXPORT void _HANDLE_EVENT_(DemoContext_t* ctx, int eventId) { - -} - -MOD_EXPORT void _STOP_(DemoContext_t* ctx) { - +MOD_EXPORT void _STOP_() { + // Do your one shutdown here } \ No newline at end of file diff --git a/radio/src/main.cpp b/radio/src/main.cpp index 39e9861..54e0a45 100644 --- a/radio/src/main.cpp +++ b/radio/src/main.cpp @@ -7,12 +7,115 @@ #define CONCAT(a, b) ((std::string(a) + b).c_str()) #define DEEMP_LIST "50µS\00075µS\000none\000" -mod::API_t* API; +MOD_INFO { + /* Name: */ "radio", + /* Description: */ "Radio module for SDR++", + /* Author: */ "Ryzerth", + /* Version: */ "0.2.5" +}; -ConfigManager config; -bool firstInit = true; +class RadioModule { +public: + RadioModule(std::string name) { + this->name = name; + demod = 1; + bandWidth = 200000; + bandWidthMin = 100000; + bandWidthMax = 200000; + sigPath.init(name, 200000, 1000); + sigPath.start(); + sigPath.setDemodulator(SigPath::DEMOD_FM, bandWidth); + } + + ~RadioModule() { + // TODO: Implement destructor + } + +private: + static void menuHandler(void* ctx) { + RadioModule* _this = (RadioModule*)ctx; + float menuColumnWidth = ImGui::GetContentRegionAvailWidth(); + + ImGui::BeginGroup(); + + // TODO: Change VFO ref in signal path + + ImGui::Columns(4, CONCAT("RadioModeColumns##_", _this->name), false); + if (ImGui::RadioButton(CONCAT("NFM##_", _this->name), _this->demod == 0) && _this->demod != 0) { + _this->demod = 0; + _this->bandWidth = 16000; + _this->bandWidthMin = 8000; + _this->bandWidthMax = 16000; + _this->sigPath.setDemodulator(SigPath::DEMOD_NFM, _this->bandWidth); + } + if (ImGui::RadioButton(CONCAT("WFM##_", _this->name), _this->demod == 1) && _this->demod != 1) { + _this->demod = 1; + _this->bandWidth = 200000; + _this->bandWidthMin = 100000; + _this->bandWidthMax = 200000; + _this->sigPath.setDemodulator(SigPath::DEMOD_FM, _this->bandWidth); + } + ImGui::NextColumn(); + if (ImGui::RadioButton(CONCAT("AM##_", _this->name), _this->demod == 2) && _this->demod != 2) { + _this->demod = 2; + _this->bandWidth = 12500; + _this->bandWidthMin = 6250; + _this->bandWidthMax = 12500; + _this->sigPath.setDemodulator(SigPath::DEMOD_AM, _this->bandWidth); + } + if (ImGui::RadioButton(CONCAT("DSB##_", _this->name), _this->demod == 3) && _this->demod != 3) { + _this->demod = 3; + _this->bandWidth = 6000; + _this->bandWidthMin = 3000; + _this->bandWidthMax = 6000; + _this->sigPath.setDemodulator(SigPath::DEMOD_DSB, _this->bandWidth); + } + ImGui::NextColumn(); + if (ImGui::RadioButton(CONCAT("USB##_", _this->name), _this->demod == 4) && _this->demod != 4) { + _this->demod = 4; + _this->bandWidth = 3000; + _this->bandWidthMin = 1500; + _this->bandWidthMax = 3000; + _this->sigPath.setDemodulator(SigPath::DEMOD_USB, _this->bandWidth); + } + if (ImGui::RadioButton(CONCAT("CW##_", _this->name), _this->demod == 5) && _this->demod != 5) { _this->demod = 5; }; + ImGui::NextColumn(); + if (ImGui::RadioButton(CONCAT("LSB##_", _this->name), _this->demod == 6) && _this->demod != 6) { + _this->demod = 6; + _this->bandWidth = 3000; + _this->bandWidthMin = 1500; + _this->bandWidthMax = 3000; + _this->sigPath.setDemodulator(SigPath::DEMOD_LSB, _this->bandWidth); + } + if (ImGui::RadioButton(CONCAT("RAW##_", _this->name), _this->demod == 7) && _this->demod != 7) { + _this->demod = 7; + _this->bandWidth = 10000; + _this->bandWidthMin = 3000; + _this->bandWidthMax = 10000; + _this->sigPath.setDemodulator(SigPath::DEMOD_RAW, _this->bandWidth); + }; + ImGui::Columns(1, CONCAT("EndRadioModeColumns##_", _this->name), false); + + ImGui::EndGroup(); + + ImGui::Text("WFM Deemphasis"); + ImGui::SameLine(); + ImGui::PushItemWidth(menuColumnWidth - ImGui::GetCursorPosX()); + if (ImGui::Combo(CONCAT("##_deemp_select_", _this->name), &_this->deemp, DEEMP_LIST)) { + _this->sigPath.setDeemphasis(_this->deemp); + } + ImGui::PopItemWidth(); + + ImGui::Text("Bandwidth"); + ImGui::SameLine(); + ImGui::PushItemWidth(menuColumnWidth - ImGui::GetCursorPosX()); + if (ImGui::InputInt(CONCAT("##_bw_select_", _this->name), &_this->bandWidth, 100, 1000)) { + _this->bandWidth = std::clamp(_this->bandWidth, _this->bandWidthMin, _this->bandWidthMax); + _this->sigPath.setBandwidth(_this->bandWidth); + } + ImGui::PopItemWidth(); + } -struct RadioContext_t { std::string name; int demod = 1; int deemp = 0; @@ -20,117 +123,21 @@ struct RadioContext_t { int bandWidthMin; int bandWidthMax; SigPath sigPath; + }; -MOD_EXPORT void* _INIT_(mod::API_t* _API, ImGuiContext* imctx, std::string _name) { - API = _API; - RadioContext_t* ctx = new RadioContext_t; - - ctx->name = _name; - - ctx->demod = 1; - ctx->bandWidth = 200000; - ctx->bandWidthMin = 100000; - ctx->bandWidthMax = 200000; - ctx->sigPath.init(_name, 200000, 1000); - ctx->sigPath.start(); - ctx->sigPath.setDemodulator(SigPath::DEMOD_FM, ctx->bandWidth); - ImGui::SetCurrentContext(imctx); - return ctx; +MOD_EXPORT void _INIT_() { + // Do your one time init here } -MOD_EXPORT void _NEW_FRAME_(RadioContext_t* ctx) { - +MOD_EXPORT void* _CREATE_INSTANCE_(std::string name) { + return new RadioModule(name); } -MOD_EXPORT void _DRAW_MENU_(RadioContext_t* ctx) { - float menuColumnWidth = ImGui::GetContentRegionAvailWidth(); - - ImGui::BeginGroup(); - - // TODO: Change VFO ref in signal path - - ImGui::Columns(4, CONCAT("RadioModeColumns##_", ctx->name), false); - if (ImGui::RadioButton(CONCAT("NFM##_", ctx->name), ctx->demod == 0) && ctx->demod != 0) { - ctx->demod = 0; - ctx->bandWidth = 16000; - ctx->bandWidthMin = 8000; - ctx->bandWidthMax = 16000; - ctx->sigPath.setDemodulator(SigPath::DEMOD_NFM, ctx->bandWidth); - } - if (ImGui::RadioButton(CONCAT("WFM##_", ctx->name), ctx->demod == 1) && ctx->demod != 1) { - ctx->demod = 1; - ctx->bandWidth = 200000; - ctx->bandWidthMin = 100000; - ctx->bandWidthMax = 200000; - ctx->sigPath.setDemodulator(SigPath::DEMOD_FM, ctx->bandWidth); - } - ImGui::NextColumn(); - if (ImGui::RadioButton(CONCAT("AM##_", ctx->name), ctx->demod == 2) && ctx->demod != 2) { - ctx->demod = 2; - ctx->bandWidth = 12500; - ctx->bandWidthMin = 6250; - ctx->bandWidthMax = 12500; - ctx->sigPath.setDemodulator(SigPath::DEMOD_AM, ctx->bandWidth); - } - if (ImGui::RadioButton(CONCAT("DSB##_", ctx->name), ctx->demod == 3) && ctx->demod != 3) { - ctx->demod = 3; - ctx->bandWidth = 6000; - ctx->bandWidthMin = 3000; - ctx->bandWidthMax = 6000; - ctx->sigPath.setDemodulator(SigPath::DEMOD_DSB, ctx->bandWidth); - } - ImGui::NextColumn(); - if (ImGui::RadioButton(CONCAT("USB##_", ctx->name), ctx->demod == 4) && ctx->demod != 4) { - ctx->demod = 4; - ctx->bandWidth = 3000; - ctx->bandWidthMin = 1500; - ctx->bandWidthMax = 3000; - ctx->sigPath.setDemodulator(SigPath::DEMOD_USB, ctx->bandWidth); - } - if (ImGui::RadioButton(CONCAT("CW##_", ctx->name), ctx->demod == 5) && ctx->demod != 5) { ctx->demod = 5; }; - ImGui::NextColumn(); - if (ImGui::RadioButton(CONCAT("LSB##_", ctx->name), ctx->demod == 6) && ctx->demod != 6) { - ctx->demod = 6; - ctx->bandWidth = 3000; - ctx->bandWidthMin = 1500; - ctx->bandWidthMax = 3000; - ctx->sigPath.setDemodulator(SigPath::DEMOD_LSB, ctx->bandWidth); - } - if (ImGui::RadioButton(CONCAT("RAW##_", ctx->name), ctx->demod == 7) && ctx->demod != 7) { - ctx->demod = 7; - ctx->bandWidth = 10000; - ctx->bandWidthMin = 3000; - ctx->bandWidthMax = 10000; - ctx->sigPath.setDemodulator(SigPath::DEMOD_RAW, ctx->bandWidth); - }; - ImGui::Columns(1, CONCAT("EndRadioModeColumns##_", ctx->name), false); - - ImGui::EndGroup(); - - ImGui::Text("WFM Deemphasis"); - ImGui::SameLine(); - ImGui::PushItemWidth(menuColumnWidth - ImGui::GetCursorPosX()); - if (ImGui::Combo(CONCAT("##_deemp_select_", ctx->name), &ctx->deemp, DEEMP_LIST)) { - ctx->sigPath.setDeemphasis(ctx->deemp); - } - ImGui::PopItemWidth(); - - ImGui::Text("Bandwidth"); - ImGui::SameLine(); - ImGui::PushItemWidth(menuColumnWidth - ImGui::GetCursorPosX()); - if (ImGui::InputInt(CONCAT("##_bw_select_", ctx->name), &ctx->bandWidth, 100, 1000)) { - ctx->bandWidth = std::clamp(ctx->bandWidth, ctx->bandWidthMin, ctx->bandWidthMax); - ctx->sigPath.setBandwidth(ctx->bandWidth); - } - ImGui::PopItemWidth(); +MOD_EXPORT void _DELETE_INSTANCE_(void* instance) { + delete (RadioModule*)instance; } -MOD_EXPORT void _HANDLE_EVENT_(RadioContext_t* ctx, int eventId) { - -} - -MOD_EXPORT void _STOP_(RadioContext_t* ctx) { - API->removeVFO(ctx->name); - delete ctx; +MOD_EXPORT void _STOP_() { + // Do your one shutdown here } \ No newline at end of file diff --git a/radio/src/path.cpp b/radio/src/path.cpp index f054775..e2a8c87 100644 --- a/radio/src/path.cpp +++ b/radio/src/path.cpp @@ -1,4 +1,5 @@ #include +#include SigPath::SigPath() { @@ -23,7 +24,7 @@ void SigPath::init(std::string vfoName, uint64_t sampleRate, int blockSize) { this->blockSize = blockSize; this->vfoName = vfoName; - vfo = sigpath::vfoManager.createVFO(vfoName, mod::API_t::REF_CENTER, 0, 200000, 200000, 1000); + vfo = sigpath::vfoManager.createVFO(vfoName, ImGui::WaterfallVFO::REF_CENTER, 0, 200000, 200000, 1000); _demod = DEMOD_FM; _deemp = DEEMP_50US; @@ -40,8 +41,9 @@ void SigPath::init(std::string vfoName, uint64_t sampleRate, int blockSize) { audioResamp.init(&demod.output, 200000, 48000, 800); deemp.init(&audioResamp.output, 800, 50e-6, 48000); - outputSampleRate = API->registerMonoStream(&deemp.output, vfoName, vfoName, sampleRateChangeHandler, this); - API->setBlockSize(vfoName, audioResamp.getOutputBlockSize()); + + outputSampleRate = audio::registerMonoStream(&deemp.output, vfoName, vfoName, sampleRateChangeHandler, this); + audio::setBlockSize(vfoName, audioResamp.getOutputBlockSize()); setDemodulator(_demod, bandwidth); } @@ -101,7 +103,7 @@ void SigPath::setDemodulator(int demId, float bandWidth) { audioBw = std::min(bandwidth, outputSampleRate / 2.0f); audioResamp.setInputSampleRate(200000, vfo->getOutputBlockSize(), audioBw, audioBw); deemp.bypass = (_deemp == DEEMP_NONE); - vfo->setReference(mod::API_t::REF_CENTER); + vfo->setReference(ImGui::WaterfallVFO::REF_CENTER); demod.start(); } else if (demId == DEMOD_NFM) { @@ -113,7 +115,7 @@ void SigPath::setDemodulator(int demId, float bandWidth) { audioBw = std::min(bandwidth, outputSampleRate / 2.0f); audioResamp.setInputSampleRate(16000, vfo->getOutputBlockSize(), audioBw, audioBw); deemp.bypass = true; - vfo->setReference(mod::API_t::REF_CENTER); + vfo->setReference(ImGui::WaterfallVFO::REF_CENTER); demod.start(); } else if (demId == DEMOD_AM) { @@ -123,7 +125,7 @@ void SigPath::setDemodulator(int demId, float bandWidth) { audioBw = std::min(bandwidth, outputSampleRate / 2.0f); audioResamp.setInputSampleRate(12500, vfo->getOutputBlockSize(), audioBw, audioBw); deemp.bypass = true; - vfo->setReference(mod::API_t::REF_CENTER); + vfo->setReference(ImGui::WaterfallVFO::REF_CENTER); amDemod.start(); } else if (demId == DEMOD_USB) { @@ -134,7 +136,7 @@ void SigPath::setDemodulator(int demId, float bandWidth) { audioBw = std::min(bandwidth, outputSampleRate / 2.0f); audioResamp.setInputSampleRate(6000, vfo->getOutputBlockSize(), audioBw, audioBw); deemp.bypass = true; - vfo->setReference(mod::API_t::REF_LOWER); + vfo->setReference(ImGui::WaterfallVFO::REF_LOWER); ssbDemod.start(); } else if (demId == DEMOD_LSB) { @@ -145,7 +147,7 @@ void SigPath::setDemodulator(int demId, float bandWidth) { audioBw = std::min(bandwidth, outputSampleRate / 2.0f); audioResamp.setInputSampleRate(6000, vfo->getOutputBlockSize(), audioBw, audioBw); deemp.bypass = true; - vfo->setReference(mod::API_t::REF_UPPER); + vfo->setReference(ImGui::WaterfallVFO::REF_UPPER); ssbDemod.start(); } else if (demId == DEMOD_DSB) { @@ -156,7 +158,7 @@ void SigPath::setDemodulator(int demId, float bandWidth) { audioBw = std::min(bandwidth, outputSampleRate / 2.0f); audioResamp.setInputSampleRate(6000, vfo->getOutputBlockSize(), audioBw, audioBw); deemp.bypass = true; - vfo->setReference(mod::API_t::REF_CENTER); + vfo->setReference(ImGui::WaterfallVFO::REF_CENTER); ssbDemod.start(); } else if (demId == DEMOD_RAW) { @@ -165,7 +167,7 @@ void SigPath::setDemodulator(int demId, float bandWidth) { //audioResamp.setInput(&cpx2stereo.output); audioBw = std::min(bandwidth, outputSampleRate / 2.0f); audioResamp.setInputSampleRate(10000, vfo->getOutputBlockSize(), audioBw, audioBw); - vfo->setReference(mod::API_t::REF_LOWER); + vfo->setReference(ImGui::WaterfallVFO::REF_LOWER); cpx2stereo.start(); } else { @@ -249,5 +251,5 @@ void SigPath::start() { demod.start(); audioResamp.start(); deemp.start(); - API->startStream(vfoName); + audio::startStream(vfoName); } \ No newline at end of file From 1507e6ec31cde52d770f15d8dc3cfb459caeff95 Mon Sep 17 00:00:00 2001 From: AlexandreRouma Date: Thu, 1 Oct 2020 13:46:12 +0200 Subject: [PATCH 15/33] New module system --- CMakeLists.txt | 5 +- core/src/gui/main_window.cpp | 17 -- core/src/module.cpp | 82 ++++----- core/src/module.h | 15 +- core/src/signal_path/vfo_manager.cpp | 2 +- file_source/CMakeLists.txt | 14 ++ file_source/src/main.cpp | 90 ++++++++++ radio/src/main.cpp | 1 + recorder/src/main.cpp | 241 ++++++++++++++------------- root_dev/config.json | 102 ++++++------ root_dev/module_list.json | 8 +- soapy/CMakeLists.txt | 14 ++ soapy/src/main.cpp | 92 ++++++++++ source_demo/CMakeLists.txt | 14 ++ source_demo/src/main.cpp | 87 ++++++++++ 15 files changed, 534 insertions(+), 250 deletions(-) create mode 100644 file_source/CMakeLists.txt create mode 100644 file_source/src/main.cpp create mode 100644 soapy/CMakeLists.txt create mode 100644 soapy/src/main.cpp create mode 100644 source_demo/CMakeLists.txt create mode 100644 source_demo/src/main.cpp diff --git a/CMakeLists.txt b/CMakeLists.txt index acc0882..c4ac7f9 100644 --- a/CMakeLists.txt +++ b/CMakeLists.txt @@ -3,8 +3,9 @@ project(sdrpp_core) add_subdirectory("core") add_subdirectory("radio") -# Add back recorder when module new system is ready -#add_subdirectory("recorder") +add_subdirectory("recorder") +add_subdirectory("soapy") +add_subdirectory("file_source") add_subdirectory("demo") add_executable(sdrpp "src/main.cpp" "win32/resources.rc") diff --git a/core/src/gui/main_window.cpp b/core/src/gui/main_window.cpp index cb9b0b1..16aebbb 100644 --- a/core/src/gui/main_window.cpp +++ b/core/src/gui/main_window.cpp @@ -72,7 +72,6 @@ void windowInit() { sigpath::signalPath.start(); spdlog::info("Loading modules"); - mod::initAPI(&gui::waterfall); mod::loadFromList(ROOT_DIR "/module_list.json"); sourecmenu::init(); @@ -231,7 +230,6 @@ void drawWindow() { gui::waterfall.selectedVFOChanged = false; gui::freqSelect.setFrequency(vfo->generalOffset + gui::waterfall.getCenterFrequency()); gui::freqSelect.frequencyChanged = false; - mod::broadcastEvent(mod::EVENT_SELECTED_VFO_CHANGED); audioStreamName = audio::getNameFromVFO(gui::waterfall.selectedVFO); if (audioStreamName != "") { volume = &audio::streams[audioStreamName]->volume; @@ -279,13 +277,6 @@ void drawWindow() { int width = vMax.x - vMin.x; int height = vMax.y - vMin.y; - int modCount = mod::moduleNames.size(); - mod::Module_t mod; - for (int i = 0; i < modCount; i++) { - mod = mod::modules[mod::moduleNames[i]]; - mod._NEW_FRAME_(mod.ctx); - } - // To Bar if (ImGui::ImageButton(icons::MENU, ImVec2(40, 40), ImVec2(0, 0), ImVec2(1, 1), 0)) { showMenu = !showMenu; @@ -384,14 +375,6 @@ void drawWindow() { gui::menu.draw(); - for (int i = 0; i < modCount; i++) { - if (ImGui::CollapsingHeader(mod::moduleNames[i].c_str(), ImGuiTreeNodeFlags_DefaultOpen)) { - mod = mod::modules[mod::moduleNames[i]]; - mod._DRAW_MENU_(mod.ctx); - ImGui::Spacing(); - } - } - if(ImGui::CollapsingHeader("Debug")) { ImGui::Text("Frame time: %.3f ms/frame", 1000.0f / ImGui::GetIO().Framerate); ImGui::Text("Framerate: %.1f FPS", ImGui::GetIO().Framerate); diff --git a/core/src/module.cpp b/core/src/module.cpp index 69f6c48..3251ad2 100644 --- a/core/src/module.cpp +++ b/core/src/module.cpp @@ -4,37 +4,10 @@ #include namespace mod { - API_t API; std::map modules; std::vector moduleNames; ImGui::WaterFall* _wtf; - std::string api_getSelectedVFOName() { - return _wtf->selectedVFO; - } - - void initAPI(ImGui::WaterFall* wtf) { - _wtf = wtf; - - // GUI - API.getSelectedVFOName = api_getSelectedVFOName; - API.bindVolumeVariable = bindVolumeVariable; - API.unbindVolumeVariable = unbindVolumeVariable; - - // Audio - API.registerMonoStream = audio::registerMonoStream; - API.registerStereoStream = audio::registerStereoStream; - API.startStream = audio::startStream; - API.stopStream = audio::stopStream; - API.removeStream = audio::removeStream; - API.bindToStreamMono = audio::bindToStreamMono; - API.bindToStreamStereo = audio::bindToStreamStereo; - API.setBlockSize = audio::setBlockSize; - API.unbindFromStreamMono = audio::unbindFromStreamMono; - API.unbindFromStreamStereo = audio::unbindFromStreamStereo; - API.getStreamNameList = audio::getStreamNameList; - } - void loadModule(std::string path, std::string name) { if (!std::filesystem::exists(path)) { spdlog::error("{0} does not exist", path); @@ -51,10 +24,10 @@ namespace mod { spdlog::error("Couldn't load {0}.", name); return; } - mod._INIT_ = (void*(*)(mod::API_t*,ImGuiContext*,std::string))GetProcAddress(mod.inst, "_INIT_"); - mod._NEW_FRAME_ = (void(*)(void*))GetProcAddress(mod.inst, "_NEW_FRAME_"); - mod._DRAW_MENU_ = (void(*)(void*))GetProcAddress(mod.inst, "_DRAW_MENU_"); - mod._HANDLE_EVENT_ = (void(*)(void*, int))GetProcAddress(mod.inst, "_HANDLE_EVENT_"); + + mod._INIT_ = (void(*)())GetProcAddress(mod.inst, "_INIT_"); + mod._CREATE_INSTANCE_ = (void*(*)(std::string))GetProcAddress(mod.inst, "_CREATE_INSTANCE_"); + mod._DELETE_INSTANCE_ = (void(*)(void*))GetProcAddress(mod.inst, "_DELETE_INSTANCE_"); mod._STOP_ = (void(*)(void*))GetProcAddress(mod.inst, "_STOP_"); #else mod.inst = dlopen(path.c_str(), RTLD_LAZY); @@ -62,49 +35,41 @@ namespace mod { spdlog::error("Couldn't load {0}.", name); return; } - mod._INIT_ = (void*(*)(mod::API_t*,ImGuiContext*,std::string))dlsym(mod.inst, "_INIT_"); - mod._NEW_FRAME_ = (void(*)(void*))dlsym(mod.inst, "_NEW_FRAME_"); - mod._DRAW_MENU_ = (void(*)(void*))dlsym(mod.inst, "_DRAW_MENU_"); - mod._HANDLE_EVENT_ = (void(*)(void*, int))dlsym(mod.inst, "_HANDLE_EVENT_"); - mod._STOP_ = (void(*)(void*))dlsym(mod.inst, "_STOP_"); + mod._INIT_ = (void(*)())dlsym(mod.inst, "_INIT_"); + mod._CREATE_INSTANCE_ = (void*(*)(std::string))dlsym(mod.inst, "_CREATE_INSTANCE_"); + mod._DELETE_INSTANCE_ = (void(*)(void*))dlsym(mod.inst, "_DELETE_INSTANCE_"); + mod._STOP_ = (void(*)())dlsym(mod.inst, "_STOP_"); #endif if (mod._INIT_ == NULL) { spdlog::error("Couldn't load {0} because it's missing _INIT_.", name); return; } - if (mod._NEW_FRAME_ == NULL) { - spdlog::error("Couldn't load {0} because it's missing _NEW_FRAME_.", name); + if (mod._CREATE_INSTANCE_ == NULL) { + spdlog::error("Couldn't load {0} because it's missing _CREATE_INSTANCE_.", name); return; } - if (mod._DRAW_MENU_ == NULL) { - spdlog::error("Couldn't load {0} because it's missing _DRAW_MENU_.", name); - return; - } - if (mod._HANDLE_EVENT_ == NULL) { - spdlog::error("Couldn't load {0} because it's missing _HANDLE_EVENT_.", name); + if (mod._DELETE_INSTANCE_ == NULL) { + spdlog::error("Couldn't load {0} because it's missing _DELETE_INSTANCE_.", name); return; } if (mod._STOP_ == NULL) { spdlog::error("Couldn't load {0} because it's missing _STOP_.", name); return; } - mod.ctx = mod._INIT_(&API, ImGui::GetCurrentContext(), name); + + if (!isLoaded(mod.inst)) { + mod._INIT_(); + } + + mod.ctx = mod._CREATE_INSTANCE_(name); if (mod.ctx == NULL) { spdlog::error("{0} Failed to initialize.", name); } + modules[name] = mod; moduleNames.push_back(name); } - void broadcastEvent(int eventId) { - if (eventId < 0 || eventId >= _EVENT_COUNT) { - return; - } - for (auto const& [name, mod] : modules) { - mod._HANDLE_EVENT_(mod.ctx, eventId); - } - } - void loadFromList(std::string path) { if (!std::filesystem::exists(path)) { spdlog::error("Module list file does not exist"); @@ -125,5 +90,14 @@ namespace mod { loadModule(file, name); } } + + bool isLoaded(void* handle) { + for (auto const& [name, module] : modules) { + if (module.inst == handle) { + return true; + } + } + return false; + } }; diff --git a/core/src/module.h b/core/src/module.h index 159de6a..d366ad4 100644 --- a/core/src/module.h +++ b/core/src/module.h @@ -37,23 +37,22 @@ namespace mod { void* inst; #endif void (*_INIT_)(); - void* (*_CREATE_INSTANCE)(std::string); - void (*_DELETE_INSTANCE)(); + void* (*_CREATE_INSTANCE_)(std::string name); + void (*_DELETE_INSTANCE_)(void* instance); void (*_STOP_)(); void* ctx; }; struct ModuleInfo_t { - char* name; - char* description; - char* author; - char* version; + const char* name; + const char* description; + const char* author; + const char* version; }; - void initAPI(ImGui::WaterFall* wtf); void loadModule(std::string path, std::string name); - void broadcastEvent(int eventId); void loadFromList(std::string path); + bool isLoaded(void* handle); extern std::map modules; extern std::vector moduleNames; diff --git a/core/src/signal_path/vfo_manager.cpp b/core/src/signal_path/vfo_manager.cpp index f43248f..0396114 100644 --- a/core/src/signal_path/vfo_manager.cpp +++ b/core/src/signal_path/vfo_manager.cpp @@ -48,7 +48,7 @@ int VFOManager::VFO::getOutputBlockSize() { VFOManager::VFOManager() { - + } VFOManager::VFO* VFOManager::createVFO(std::string name, int reference, float offset, float bandwidth, float sampleRate, int blockSize) { diff --git a/file_source/CMakeLists.txt b/file_source/CMakeLists.txt new file mode 100644 index 0000000..adc08b0 --- /dev/null +++ b/file_source/CMakeLists.txt @@ -0,0 +1,14 @@ +cmake_minimum_required(VERSION 3.13) +project(file_source) + +if (MSVC) + set(CMAKE_CXX_FLAGS "-O2 /std:c++17") +else() + set(CMAKE_CXX_FLAGS "-O3 -std=c++17 -fpermissive") +endif (MSVC) + +file(GLOB SRC "src/*.cpp") + +add_library(file_source SHARED ${SRC}) +target_link_libraries(file_source PRIVATE sdrpp_core) +set_target_properties(file_source PROPERTIES PREFIX "") \ No newline at end of file diff --git a/file_source/src/main.cpp b/file_source/src/main.cpp new file mode 100644 index 0000000..66e1036 --- /dev/null +++ b/file_source/src/main.cpp @@ -0,0 +1,90 @@ +#include +#include +#include +#include +#include + +#define CONCAT(a, b) ((std::string(a) + b).c_str()) + +MOD_INFO { + /* Name: */ "fike_source", + /* Description: */ "File input module for SDR++", + /* Author: */ "Ryzerth", + /* Version: */ "0.1.0" +}; + +class FileSourceModule { +public: + FileSourceModule(std::string name) { + this->name = name; + + stream.init(100); + + handler.ctx = this; + handler.selectHandler = menuSelected; + handler.deselectHandler = menuDeselected; + handler.menuHandler = menuHandler; + handler.startHandler = start; + handler.stopHandler = stop; + handler.tuneHandler = tune; + handler.stream = &stream; + sigpath::sourceManager.registerSource("File", &handler); + spdlog::info("FileSourceModule '{0}': Instance created!", name); + } + + ~FileSourceModule() { + spdlog::info("FileSourceModule '{0}': Instance deleted!", name); + } + +private: + static void menuSelected(void* ctx) { + FileSourceModule* _this = (FileSourceModule*)ctx; + spdlog::info("FileSourceModule '{0}': Menu Select!", _this->name); + } + + static void menuDeselected(void* ctx) { + FileSourceModule* _this = (FileSourceModule*)ctx; + spdlog::info("FileSourceModule '{0}': Menu Deselect!", _this->name); + } + + static void start(void* ctx) { + FileSourceModule* _this = (FileSourceModule*)ctx; + spdlog::info("FileSourceModule '{0}': Start!", _this->name); + } + + static void stop(void* ctx) { + FileSourceModule* _this = (FileSourceModule*)ctx; + spdlog::info("FileSourceModule '{0}': Stop!", _this->name); + } + + static void tune(double freq, void* ctx) { + FileSourceModule* _this = (FileSourceModule*)ctx; + spdlog::info("FileSourceModule '{0}': Tune: {1}!", _this->name, freq); + } + + + static void menuHandler(void* ctx) { + FileSourceModule* _this = (FileSourceModule*)ctx; + ImGui::Text("Hi from %s!", _this->name.c_str()); + } + + std::string name; + dsp::stream stream; + SourceManager::SourceHandler handler; +}; + +MOD_EXPORT void _INIT_() { + // Do your one time init here +} + +MOD_EXPORT void* _CREATE_INSTANCE_(std::string name) { + return new FileSourceModule(name); +} + +MOD_EXPORT void _DELETE_INSTANCE_(void* instance) { + delete (FileSourceModule*)instance; +} + +MOD_EXPORT void _STOP_() { + // Do your one shutdown here +} \ No newline at end of file diff --git a/radio/src/main.cpp b/radio/src/main.cpp index 54e0a45..ebaba39 100644 --- a/radio/src/main.cpp +++ b/radio/src/main.cpp @@ -25,6 +25,7 @@ public: sigPath.init(name, 200000, 1000); sigPath.start(); sigPath.setDemodulator(SigPath::DEMOD_FM, bandWidth); + gui::menu.registerEntry(name, menuHandler, this); } ~RadioModule() { diff --git a/recorder/src/main.cpp b/recorder/src/main.cpp index 4dda16c..60c72ef 100644 --- a/recorder/src/main.cpp +++ b/recorder/src/main.cpp @@ -7,40 +7,11 @@ #include #include #include +#include #define CONCAT(a, b) ((std::string(a) + b).c_str()) -struct RecorderContext_t { - std::string name; - dsp::stream* stream; - WavWriter* writer; - std::thread workerThread; - bool recording; - time_t startTime; - std::string lastNameList; - std::string selectedStreamName; - int selectedStreamId; - uint64_t samplesWritten; - float sampleRate; -}; - -void _writeWorker(RecorderContext_t* ctx) { - dsp::StereoFloat_t* floatBuf = new dsp::StereoFloat_t[1024]; - int16_t* sampleBuf = new int16_t[2048]; - while (true) { - if (ctx->stream->read(floatBuf, 1024) < 0) { - break; - } - for (int i = 0; i < 1024; i++) { - sampleBuf[(i * 2) + 0] = floatBuf[i].l * 0x7FFF; - sampleBuf[(i * 2) + 1] = floatBuf[i].r * 0x7FFF; - } - ctx->samplesWritten += 1024; - ctx->writer->writeSamples(sampleBuf, 2048 * sizeof(int16_t)); - } - delete[] floatBuf; - delete[] sampleBuf; -} +// TODO: Fix this and finish module std::string genFileName(std::string prefix) { time_t now = time(0); @@ -58,102 +29,144 @@ void sampleRateChanged(void* ctx, float sampleRate, int blockSize) { } -MOD_EXPORT void* _INIT_(mod::API_t* _API, ImGuiContext* imctx, std::string _name) { - RecorderContext_t* ctx = new RecorderContext_t; - ctx->recording = false; - ctx->selectedStreamName = ""; - ctx->selectedStreamId = 0; - ctx->lastNameList = ""; - ImGui::SetCurrentContext(imctx); - return ctx; -} - -MOD_EXPORT void _NEW_FRAME_(RecorderContext_t* ctx) { - -} - -MOD_EXPORT void _DRAW_MENU_(RecorderContext_t* ctx) { - float menuColumnWidth = ImGui::GetContentRegionAvailWidth(); - - std::vector streamNames = audio::getStreamNameList(); - std::string nameList; - for (std::string name : streamNames) { - nameList += name; - nameList += '\0'; +class RecorderModule { +public: + RecorderModule(std::string name) { + this->name = name; + recording = false; + selectedStreamName = ""; + selectedStreamId = 0; + lastNameList = ""; + gui::menu.registerEntry(name, menuHandler, this); } - if (nameList == "") { - ImGui::Text("No audio stream available"); - return; + ~RecorderModule() { + } - if (ctx->lastNameList != nameList) { - ctx->lastNameList = nameList; - auto _nameIt = std::find(streamNames.begin(), streamNames.end(), ctx->selectedStreamName); - if (_nameIt == streamNames.end()) { - // TODO: verify if there even is a stream - ctx->selectedStreamId = 0; - ctx->selectedStreamName = streamNames[ctx->selectedStreamId]; +private: + static void menuHandler(void* ctx) { + RecorderModule* _this = (RecorderModule*)ctx; + float menuColumnWidth = ImGui::GetContentRegionAvailWidth(); + + std::vector streamNames = audio::getStreamNameList(); + std::string nameList; + for (std::string name : streamNames) { + nameList += name; + nameList += '\0'; + } + + if (nameList == "") { + ImGui::Text("No audio stream available"); + return; + } + + if (_this->lastNameList != nameList) { + _this->lastNameList = nameList; + auto _nameIt = std::find(streamNames.begin(), streamNames.end(), _this->selectedStreamName); + if (_nameIt == streamNames.end()) { + // TODO: verify if there even is a stream + _this->selectedStreamId = 0; + _this->selectedStreamName = streamNames[_this->selectedStreamId]; + } + else { + _this->selectedStreamId = std::distance(streamNames.begin(), _nameIt); + _this->selectedStreamName = streamNames[_this->selectedStreamId]; + } + } + + ImGui::PushItemWidth(menuColumnWidth); + if (!_this->recording) { + if (ImGui::Combo(CONCAT("##_strea_select_", _this->name), &_this->selectedStreamId, nameList.c_str())) { + _this->selectedStreamName = streamNames[_this->selectedStreamId]; + } } else { - ctx->selectedStreamId = std::distance(streamNames.begin(), _nameIt); - ctx->selectedStreamName = streamNames[ctx->selectedStreamId]; + ImGui::PushItemFlag(ImGuiItemFlags_Disabled, true); + ImGui::PushStyleColor(ImGuiCol_Button, ImVec4(0.44f, 0.44f, 0.44f, 0.15f)); + ImGui::PushStyleColor(ImGuiCol_FrameBg, ImVec4(0.20f, 0.21f, 0.22f, 0.30f)); + ImGui::PushStyleColor(ImGuiCol_Text, ImVec4(1.00f, 1.00f, 1.00f, 0.65f)); + ImGui::Combo(CONCAT("##_strea_select_", _this->name), &_this->selectedStreamId, nameList.c_str()); + ImGui::PopItemFlag(); + ImGui::PopStyleColor(3); + } + + if (!_this->recording) { + if (ImGui::Button("Record", ImVec2(menuColumnWidth, 0))) { + _this->samplesWritten = 0; + _this->sampleRate = 48000; + _this->writer = new WavWriter("recordings/" + genFileName("audio_"), 16, 2, 48000); + _this->stream = audio::bindToStreamStereo(_this->selectedStreamName, streamRemovedHandler, sampleRateChanged, _this); + _this->workerThread = std::thread(_writeWorker, _this); + _this->recording = true; + _this->startTime = time(0); + } + ImGui::TextColored(ImGui::GetStyleColorVec4(ImGuiCol_Text), "Idle --:--:--"); + } + else { + if (ImGui::Button("Stop", ImVec2(menuColumnWidth, 0))) { + _this->stream->stopReader(); + _this->workerThread.join(); + _this->stream->clearReadStop(); + audio::unbindFromStreamStereo(_this->selectedStreamName, _this->stream); + _this->writer->close(); + delete _this->writer; + _this->recording = false; + } + uint64_t seconds = _this->samplesWritten / (uint64_t)_this->sampleRate; + time_t diff = seconds; + tm *dtm = gmtime(&diff); + ImGui::TextColored(ImVec4(1.0f, 0.0f, 0.0f, 1.0f), "Recording %02d:%02d:%02d", dtm->tm_hour, dtm->tm_min, dtm->tm_sec); } } - ImGui::PushItemWidth(menuColumnWidth); - if (!ctx->recording) { - if (ImGui::Combo(CONCAT("##_strea_select_", ctx->name), &ctx->selectedStreamId, nameList.c_str())) { - ctx->selectedStreamName = streamNames[ctx->selectedStreamId]; + static void _writeWorker(RecorderModule* _this) { + dsp::StereoFloat_t* floatBuf = new dsp::StereoFloat_t[1024]; + int16_t* sampleBuf = new int16_t[2048]; + while (true) { + if (_this->stream->read(floatBuf, 1024) < 0) { + break; + } + for (int i = 0; i < 1024; i++) { + sampleBuf[(i * 2) + 0] = floatBuf[i].l * 0x7FFF; + sampleBuf[(i * 2) + 1] = floatBuf[i].r * 0x7FFF; + } + _this->samplesWritten += 1024; + _this->writer->writeSamples(sampleBuf, 2048 * sizeof(int16_t)); } + delete[] floatBuf; + delete[] sampleBuf; } - else { - ImGui::PushItemFlag(ImGuiItemFlags_Disabled, true); - ImGui::PushStyleColor(ImGuiCol_Button, ImVec4(0.44f, 0.44f, 0.44f, 0.15f)); - ImGui::PushStyleColor(ImGuiCol_FrameBg, ImVec4(0.20f, 0.21f, 0.22f, 0.30f)); - ImGui::PushStyleColor(ImGuiCol_Text, ImVec4(1.00f, 1.00f, 1.00f, 0.65f)); - ImGui::Combo(CONCAT("##_strea_select_", ctx->name), &ctx->selectedStreamId, nameList.c_str()); - ImGui::PopItemFlag(); - ImGui::PopStyleColor(3); - } - - if (!ctx->recording) { - if (ImGui::Button("Record", ImVec2(menuColumnWidth, 0))) { - ctx->samplesWritten = 0; - ctx->sampleRate = 48000; - ctx->writer = new WavWriter("recordings/" + genFileName("audio_"), 16, 2, 48000); - ctx->stream = audio::bindToStreamStereo(ctx->selectedStreamName, streamRemovedHandler, sampleRateChanged, ctx); - ctx->workerThread = std::thread(_writeWorker, ctx); - ctx->recording = true; - ctx->startTime = time(0); - } - ImGui::TextColored(ImGui::GetStyleColorVec4(ImGuiCol_Text), "Idle --:--:--"); - } - else { - if (ImGui::Button("Stop", ImVec2(menuColumnWidth, 0))) { - ctx->stream->stopReader(); - ctx->workerThread.join(); - ctx->stream->clearReadStop(); - audio::unbindFromStreamStereo(ctx->selectedStreamName, ctx->stream); - ctx->writer->close(); - delete ctx->writer; - ctx->recording = false; - } - uint64_t seconds = ctx->samplesWritten / (uint64_t)ctx->sampleRate; - time_t diff = seconds; - tm *dtm = gmtime(&diff); - ImGui::TextColored(ImVec4(1.0f, 0.0f, 0.0f, 1.0f), "Recording %02d:%02d:%02d", dtm->tm_hour, dtm->tm_min, dtm->tm_sec); - } + + std::string name; + dsp::stream* stream; + WavWriter* writer; + std::thread workerThread; + bool recording; + time_t startTime; + std::string lastNameList; + std::string selectedStreamName; + int selectedStreamId; + uint64_t samplesWritten; + float sampleRate; + +}; + +struct RecorderContext_t { + std::string name; +}; + +MOD_EXPORT void _INIT_() { + // Nothing here } -MOD_EXPORT void _HANDLE_EVENT_(RecorderContext_t* ctx, int eventId) { - // INSTEAD OF EVENTS, REGISTER HANDLER WHEN CREATING VFO - if (eventId == mod::EVENT_STREAM_PARAM_CHANGED) { - - } - else if (eventId == mod::EVENT_SELECTED_VFO_CHANGED) { - - } +MOD_EXPORT void* _CREATE_INSTANCE_(std::string name) { + RecorderModule* instance = new RecorderModule(name); + return instance; +} + +MOD_EXPORT void _DELETE_INSTANCE_() { + } MOD_EXPORT void _STOP_(RecorderContext_t* ctx) { diff --git a/root_dev/config.json b/root_dev/config.json index 3d8e90f..2f180be 100644 --- a/root_dev/config.json +++ b/root_dev/config.json @@ -1,52 +1,52 @@ -{ - "audio": { - "Radio": { - "device": "Speakers (Realtek High Definiti", - "sampleRate": 48000.0, - "volume": 0.602150559425354 - }, - "Radio 1": { - "device": "Speakers (Realtek High Definiti", - "sampleRate": 48000.0, - "volume": 0.4185185134410858 - }, - "Radio 2": { - "device": "Speakers (Realtek High Definiti", - "sampleRate": 48000.0, - "volume": 0.0 - } - }, - "bandPlan": "General", - "bandPlanEnabled": true, - "fftHeight": 300, - "frequency": 99000000, - "max": 0.0, - "maximized": false, - "menuWidth": 300, - "min": -51.47058868408203, - "showWaterfall": true, - "source": "Generic RTL2832U OEM :: 00000001", - "sourceSettings": { - "Generic RTL2832U OEM :: 00000001": { - "gains": { - "TUNER": 11.625 - }, - "sampleRate": 2560000 - }, - "HackRF One #0 901868dc282c8f8b": { - "gains": { - "AMP": 0.0, - "LNA": 24.503000259399414, - "VGA": 16.229999542236328 - }, - "sampleRate": 8000000 - }, - "PulseAudio": { - "sampleRate": 96000 - } - }, - "windowSize": { - "h": 784, - "w": 1460 - } +{ + "audio": { + "Radio": { + "device": "Speakers (Realtek High Definiti", + "sampleRate": 48000.0, + "volume": 0.602150559425354 + }, + "Radio 1": { + "device": "Speakers (Realtek High Definiti", + "sampleRate": 48000.0, + "volume": 0.4185185134410858 + }, + "Radio 2": { + "device": "Speakers (Realtek High Definiti", + "sampleRate": 48000.0, + "volume": 0.0 + } + }, + "bandPlan": "General", + "bandPlanEnabled": true, + "fftHeight": 300, + "frequency": 96570096, + "max": 0.0, + "maximized": false, + "menuWidth": 300, + "min": -51.47058868408203, + "showWaterfall": true, + "source": "Generic RTL2832U OEM :: 00000001", + "sourceSettings": { + "Generic RTL2832U OEM :: 00000001": { + "gains": { + "TUNER": 11.625 + }, + "sampleRate": 2560000 + }, + "HackRF One #0 901868dc282c8f8b": { + "gains": { + "AMP": 0.0, + "LNA": 24.503000259399414, + "VGA": 16.229999542236328 + }, + "sampleRate": 8000000 + }, + "PulseAudio": { + "sampleRate": 96000 + } + }, + "windowSize": { + "h": 1053, + "w": 959 + } } \ No newline at end of file diff --git a/root_dev/module_list.json b/root_dev/module_list.json index ac43587..fff6c73 100644 --- a/root_dev/module_list.json +++ b/root_dev/module_list.json @@ -1,4 +1,6 @@ { - "Radio 1": "./radio/Release/radio.dll", - "Recorder 1": "./recorder/Release/recorder.dll" -} + "Radio": "./radio/radio.so", + "Recorder": "./recorder/recorder.so", + "Soapy": "./soapy/soapy.so", + "FileSource": "./file_source/file_source.so" +} \ No newline at end of file diff --git a/soapy/CMakeLists.txt b/soapy/CMakeLists.txt new file mode 100644 index 0000000..7e4fcbf --- /dev/null +++ b/soapy/CMakeLists.txt @@ -0,0 +1,14 @@ +cmake_minimum_required(VERSION 3.13) +project(soapy) + +if (MSVC) + set(CMAKE_CXX_FLAGS "-O2 /std:c++17") +else() + set(CMAKE_CXX_FLAGS "-O3 -std=c++17 -fpermissive") +endif (MSVC) + +file(GLOB SRC "src/*.cpp") + +add_library(soapy SHARED ${SRC}) +target_link_libraries(soapy PRIVATE sdrpp_core) +set_target_properties(soapy PROPERTIES PREFIX "") \ No newline at end of file diff --git a/soapy/src/main.cpp b/soapy/src/main.cpp new file mode 100644 index 0000000..6a19bab --- /dev/null +++ b/soapy/src/main.cpp @@ -0,0 +1,92 @@ +#include +#include +#include +#include +#include + +#define CONCAT(a, b) ((std::string(a) + b).c_str()) + +MOD_INFO { + /* Name: */ "soapy", + /* Description: */ "SoapySDR input module for SDR++", + /* Author: */ "Ryzerth", + /* Version: */ "0.1.0" +}; + +class SoapyModule { +public: + SoapyModule(std::string name) { + this->name = name; + + //TODO: Make module tune on source select change (in sdrpp_core) + + stream.init(100); + + handler.ctx = this; + handler.selectHandler = menuSelected; + handler.deselectHandler = menuDeselected; + handler.menuHandler = menuHandler; + handler.startHandler = start; + handler.stopHandler = stop; + handler.tuneHandler = tune; + handler.stream = &stream; + sigpath::sourceManager.registerSource("SoapySDR", &handler); + spdlog::info("SoapyModule '{0}': Instance created!", name); + } + + ~SoapyModule() { + spdlog::info("SoapyModule '{0}': Instance deleted!", name); + } + +private: + static void menuSelected(void* ctx) { + SoapyModule* _this = (SoapyModule*)ctx; + spdlog::info("SoapyModule '{0}': Menu Select!", _this->name); + } + + static void menuDeselected(void* ctx) { + SoapyModule* _this = (SoapyModule*)ctx; + spdlog::info("SoapyModule '{0}': Menu Deselect!", _this->name); + } + + static void start(void* ctx) { + SoapyModule* _this = (SoapyModule*)ctx; + spdlog::info("SoapyModule '{0}': Start!", _this->name); + } + + static void stop(void* ctx) { + SoapyModule* _this = (SoapyModule*)ctx; + spdlog::info("SoapyModule '{0}': Stop!", _this->name); + } + + static void tune(double freq, void* ctx) { + SoapyModule* _this = (SoapyModule*)ctx; + spdlog::info("SoapyModule '{0}': Tune: {1}!", _this->name, freq); + } + + + static void menuHandler(void* ctx) { + SoapyModule* _this = (SoapyModule*)ctx; + ImGui::Text("Hi from %s!", _this->name.c_str()); + } + + std::string name; + dsp::stream stream; + SourceManager::SourceHandler handler; +}; + +MOD_EXPORT void _INIT_() { + // Do your one time init here +} + +MOD_EXPORT void* _CREATE_INSTANCE_(std::string name) { + return new SoapyModule(name); +} + +MOD_EXPORT void _DELETE_INSTANCE_(void* instance) { + delete (SoapyModule*)instance; +} + +MOD_EXPORT void _STOP_() { + // Do your one shutdown here +} \ No newline at end of file diff --git a/source_demo/CMakeLists.txt b/source_demo/CMakeLists.txt new file mode 100644 index 0000000..7e4fcbf --- /dev/null +++ b/source_demo/CMakeLists.txt @@ -0,0 +1,14 @@ +cmake_minimum_required(VERSION 3.13) +project(soapy) + +if (MSVC) + set(CMAKE_CXX_FLAGS "-O2 /std:c++17") +else() + set(CMAKE_CXX_FLAGS "-O3 -std=c++17 -fpermissive") +endif (MSVC) + +file(GLOB SRC "src/*.cpp") + +add_library(soapy SHARED ${SRC}) +target_link_libraries(soapy PRIVATE sdrpp_core) +set_target_properties(soapy PROPERTIES PREFIX "") \ No newline at end of file diff --git a/source_demo/src/main.cpp b/source_demo/src/main.cpp new file mode 100644 index 0000000..8617ced --- /dev/null +++ b/source_demo/src/main.cpp @@ -0,0 +1,87 @@ +#include +#include +#include +#include +#include + +#define CONCAT(a, b) ((std::string(a) + b).c_str()) + +MOD_INFO { + /* Name: */ "soapy", + /* Description: */ "SoapySDR input module for SDR++", + /* Author: */ "Ryzerth", + /* Version: */ "0.1.0" +}; + +class SoapyModule { +public: + SoapyModule(std::string name) { + this->name = name; + + handler.ctx = this; + handler.selectHandler = menuSelected; + handler.deselectHandler = menuDeselected; + handler.menuHandler = menuHandler; + handler.startHandler = start; + handler.stopHandler = stop; + handler.tuneHandler = tune; + sigpath::sourceManager.registerSource("SoapySDR", &handler); + spdlog::info("SoapyModule '{0}': Instance created!", name); + } + + ~SoapyModule() { + spdlog::info("SoapyModule '{0}': Instance deleted!", name); + } + +private: + static void menuSelected(void* ctx) { + SoapyModule* _this = (SoapyModule*)ctx; + spdlog::info("SoapyModule '{0}': Menu Select!", _this->name); + } + + static void menuDeselected(void* ctx) { + SoapyModule* _this = (SoapyModule*)ctx; + spdlog::info("SoapyModule '{0}': Menu Deselect!", _this->name); + } + + static void start(void* ctx) { + SoapyModule* _this = (SoapyModule*)ctx; + spdlog::info("SoapyModule '{0}': Start!", _this->name); + } + + static void stop(void* ctx) { + SoapyModule* _this = (SoapyModule*)ctx; + spdlog::info("SoapyModule '{0}': Stop!", _this->name); + } + + static void tune(double freq, void* ctx) { + SoapyModule* _this = (SoapyModule*)ctx; + spdlog::info("SoapyModule '{0}': Tune: {1}!", _this->name, freq); + } + + + static void menuHandler(void* ctx) { + SoapyModule* _this = (SoapyModule*)ctx; + ImGui::Text("Hi from %s!", _this->name.c_str()); + } + + std::string name; + dsp::stream stream; + SourceManager::SourceHandler handler; +}; + +MOD_EXPORT void _INIT_() { + // Do your one time init here +} + +MOD_EXPORT void* _CREATE_INSTANCE_(std::string name) { + return new SoapyModule(name); +} + +MOD_EXPORT void _DELETE_INSTANCE_(void* instance) { + delete (SoapyModule*)instance; +} + +MOD_EXPORT void _STOP_() { + // Do your one shutdown here +} \ No newline at end of file From 47b04ffef48008c40baedcfd36600c999ba37291 Mon Sep 17 00:00:00 2001 From: Ryzerth Date: Fri, 2 Oct 2020 01:44:18 +0200 Subject: [PATCH 16/33] More work on the source module system --- core/CMakeLists.txt | 1 - core/src/core.cpp | 6 ++ core/src/core.h | 2 + core/src/module.cpp | 2 +- root_dev/config.json | 44 ++----------- root_dev/module_list.json | 8 +-- soapy/CMakeLists.txt | 10 ++- soapy/src/main.cpp | 132 +++++++++++++++++++++++++++++++++++++- 8 files changed, 158 insertions(+), 47 deletions(-) diff --git a/core/CMakeLists.txt b/core/CMakeLists.txt index 7416afb..af670e9 100644 --- a/core/CMakeLists.txt +++ b/core/CMakeLists.txt @@ -74,7 +74,6 @@ else() target_link_libraries(sdrpp_core PUBLIC dl) endif (MSVC) -target_link_libraries(sdrpp_core PUBLIC SoapySDR) target_link_libraries(sdrpp_core PUBLIC volk) set(CORE_FILES ${RUNTIME_OUTPUT_DIRECTORY} PARENT_SCOPE) diff --git a/core/src/core.cpp b/core/src/core.cpp index fe20dcb..37815b3 100644 --- a/core/src/core.cpp +++ b/core/src/core.cpp @@ -26,6 +26,12 @@ namespace core { ConfigManager configManager; + + void setInputSampleRate(double samplerate) { + // NOTE: Zoom controls won't work + gui::waterfall.setBandwidth(samplerate); + sigpath::signalPath.setSampleRate(samplerate); + } }; bool maximized = false; diff --git a/core/src/core.h b/core/src/core.h index 1498352..c3e065f 100644 --- a/core/src/core.h +++ b/core/src/core.h @@ -4,6 +4,8 @@ namespace core { SDRPP_EXPORT ConfigManager configManager; + + void setInputSampleRate(double samplerate); }; int sdrpp_main(); \ No newline at end of file diff --git a/core/src/module.cpp b/core/src/module.cpp index 3251ad2..8417473 100644 --- a/core/src/module.cpp +++ b/core/src/module.cpp @@ -28,7 +28,7 @@ namespace mod { mod._INIT_ = (void(*)())GetProcAddress(mod.inst, "_INIT_"); mod._CREATE_INSTANCE_ = (void*(*)(std::string))GetProcAddress(mod.inst, "_CREATE_INSTANCE_"); mod._DELETE_INSTANCE_ = (void(*)(void*))GetProcAddress(mod.inst, "_DELETE_INSTANCE_"); - mod._STOP_ = (void(*)(void*))GetProcAddress(mod.inst, "_STOP_"); + mod._STOP_ = (void(*)())GetProcAddress(mod.inst, "_STOP_"); #else mod.inst = dlopen(path.c_str(), RTLD_LAZY); if (mod.inst == NULL) { diff --git a/root_dev/config.json b/root_dev/config.json index 2f180be..57340ef 100644 --- a/root_dev/config.json +++ b/root_dev/config.json @@ -1,21 +1,5 @@ { - "audio": { - "Radio": { - "device": "Speakers (Realtek High Definiti", - "sampleRate": 48000.0, - "volume": 0.602150559425354 - }, - "Radio 1": { - "device": "Speakers (Realtek High Definiti", - "sampleRate": 48000.0, - "volume": 0.4185185134410858 - }, - "Radio 2": { - "device": "Speakers (Realtek High Definiti", - "sampleRate": 48000.0, - "volume": 0.0 - } - }, + "audio": {}, "bandPlan": "General", "bandPlanEnabled": true, "fftHeight": 300, @@ -25,28 +9,10 @@ "menuWidth": 300, "min": -51.47058868408203, "showWaterfall": true, - "source": "Generic RTL2832U OEM :: 00000001", - "sourceSettings": { - "Generic RTL2832U OEM :: 00000001": { - "gains": { - "TUNER": 11.625 - }, - "sampleRate": 2560000 - }, - "HackRF One #0 901868dc282c8f8b": { - "gains": { - "AMP": 0.0, - "LNA": 24.503000259399414, - "VGA": 16.229999542236328 - }, - "sampleRate": 8000000 - }, - "PulseAudio": { - "sampleRate": 96000 - } - }, + "source": "", + "sourceSettings": {}, "windowSize": { - "h": 1053, - "w": 959 + "h": 720, + "w": 1280 } } \ No newline at end of file diff --git a/root_dev/module_list.json b/root_dev/module_list.json index fff6c73..b83e4c6 100644 --- a/root_dev/module_list.json +++ b/root_dev/module_list.json @@ -1,6 +1,6 @@ { - "Radio": "./radio/radio.so", - "Recorder": "./recorder/recorder.so", - "Soapy": "./soapy/soapy.so", - "FileSource": "./file_source/file_source.so" + "Radio": "./radio/Release/radio.dll", + "Recorder": "./recorder/Release/recorder.dll", + "Soapy": "./soapy/Release/soapy.dll", + "FileSource": "./file_source/Release/file_source.dll" } \ No newline at end of file diff --git a/soapy/CMakeLists.txt b/soapy/CMakeLists.txt index 7e4fcbf..a5c0e44 100644 --- a/soapy/CMakeLists.txt +++ b/soapy/CMakeLists.txt @@ -3,6 +3,12 @@ project(soapy) if (MSVC) set(CMAKE_CXX_FLAGS "-O2 /std:c++17") + + # Lib path + target_link_directories(sdrpp_core PUBLIC "C:/Program Files/PothosSDR/lib/") + + # Misc headers + target_include_directories(sdrpp_core PUBLIC "C:/Program Files/PothosSDR/include/") else() set(CMAKE_CXX_FLAGS "-O3 -std=c++17 -fpermissive") endif (MSVC) @@ -11,4 +17,6 @@ file(GLOB SRC "src/*.cpp") add_library(soapy SHARED ${SRC}) target_link_libraries(soapy PRIVATE sdrpp_core) -set_target_properties(soapy PROPERTIES PREFIX "") \ No newline at end of file +set_target_properties(soapy PROPERTIES PREFIX "") + +target_link_libraries(soapy PUBLIC SoapySDR) \ No newline at end of file diff --git a/soapy/src/main.cpp b/soapy/src/main.cpp index 6a19bab..ae6be71 100644 --- a/soapy/src/main.cpp +++ b/soapy/src/main.cpp @@ -3,6 +3,10 @@ #include #include #include +#include +#include +#include +#include #define CONCAT(a, b) ((std::string(a) + b).c_str()) @@ -20,6 +24,13 @@ public: //TODO: Make module tune on source select change (in sdrpp_core) + devList = SoapySDR::Device::enumerate(); + txtDevList = ""; + for (auto& dev : devList) { + txtDevList += dev["label"]; + txtDevList += '\0'; + } + stream.init(100); handler.ctx = this; @@ -32,6 +43,9 @@ public: handler.stream = &stream; sigpath::sourceManager.registerSource("SoapySDR", &handler); spdlog::info("SoapyModule '{0}': Instance created!", name); + + // Select default device + selectDevice(devList[0]["label"]); } ~SoapyModule() { @@ -39,9 +53,69 @@ public: } private: + void selectSampleRate(double samplerate) { + if (sampleRates.size() == 0) { + devId = -1; + return; + } + bool found = false; + int i = 0; + for (auto& sr : sampleRates) { + if (sr == samplerate) { + srId = i; + sampleRate = sr; + found = true; + break; + } + i++; + } + if (!found) { + // Select default sample rate + selectSampleRate(sampleRates[0]); + } + } + + void selectDevice(std::string name) { + if (devList.size() == 0) { + devId = -1; + return; + } + bool found = false; + int i = 0; + for (auto& args : devList) { + if (args["label"] == name) { + devArgs = args; + devId = i; + found = true; + break; + } + i++; + } + if (!found) { + // If device was not found, select default device instead + selectDevice(devList[0]["label"]); + return; + } + + SoapySDR::Device* dev = SoapySDR::Device::make(devArgs); + sampleRates = dev->listSampleRates(SOAPY_SDR_RX, 0); + txtSrList = ""; + for (double sr : sampleRates) { + txtSrList += std::to_string((int)sr); + txtSrList += '\0'; + } + SoapySDR::Device::unmake(dev); + selectSampleRate(sampleRates[0]); + + } + static void menuSelected(void* ctx) { SoapyModule* _this = (SoapyModule*)ctx; spdlog::info("SoapyModule '{0}': Menu Select!", _this->name); + if (_this->devList.size() == 0) { + return; + } + core::setInputSampleRate(_this->sampleRate); } static void menuDeselected(void* ctx) { @@ -51,28 +125,84 @@ private: static void start(void* ctx) { SoapyModule* _this = (SoapyModule*)ctx; + _this->dev = SoapySDR::Device::make(_this->devArgs); + _this->dev->setSampleRate(SOAPY_SDR_RX, 0, _this->sampleRate); + _this->devStream = _this->dev->setupStream(SOAPY_SDR_RX, "CF32"); + _this->dev->activateStream(_this->devStream); + _this->running = true; + _this->workerThread = std::thread(_worker, _this); spdlog::info("SoapyModule '{0}': Start!", _this->name); } static void stop(void* ctx) { SoapyModule* _this = (SoapyModule*)ctx; + _this->running = false; spdlog::info("SoapyModule '{0}': Stop!", _this->name); } static void tune(double freq, void* ctx) { SoapyModule* _this = (SoapyModule*)ctx; + _this->freq = freq; + if (_this->running) { + _this->dev->setFrequency(SOAPY_SDR_RX, 0, freq); + } spdlog::info("SoapyModule '{0}': Tune: {1}!", _this->name, freq); } static void menuHandler(void* ctx) { SoapyModule* _this = (SoapyModule*)ctx; - ImGui::Text("Hi from %s!", _this->name.c_str()); + + // If no device is available, do not attempt to display menu + if (_this->devId < 0) { + return; + } + + float menuWidth = ImGui::GetContentRegionAvailWidth(); + ImGui::SetNextItemWidth(menuWidth); + if (ImGui::Combo(CONCAT("##_dev_select_", _this->name), &_this->devId, _this->txtDevList.c_str())) { + _this->selectDevice(_this->devList[_this->devId]["label"]); + } + ImGui::SetNextItemWidth(menuWidth); + if (ImGui::Combo(CONCAT("##_sr_select_", _this->name), &_this->srId, _this->txtSrList.c_str())) { + _this->selectSampleRate(_this->sampleRates[_this->srId]); + core::setInputSampleRate(_this->sampleRate); + } + } + + static void _worker(SoapyModule* _this) { + spdlog::info("SOAPY: WORKER STARTED {0}", _this->sampleRate); + int blockSize = _this->sampleRate / 200.0f; + dsp::complex_t* buf = new dsp::complex_t[blockSize]; + int flags = 0; + long long timeMs = 0; + + while (_this->running) { + int res = _this->dev->readStream(_this->devStream, (void**)&buf, blockSize, flags, timeMs); + if (res < 1) { + continue; + } + _this->stream.write(buf, res); + } + delete[] buf; } std::string name; dsp::stream stream; + SoapySDR::Stream* devStream; SourceManager::SourceHandler handler; + SoapySDR::KwargsList devList; + SoapySDR::Kwargs devArgs; + SoapySDR::Device* dev; + std::string txtDevList; + std::string txtSrList; + std::thread workerThread; + int devId = -1; + double freq; + double sampleRate; + bool running = false; + std::vector sampleRates; + int srId = -1; }; MOD_EXPORT void _INIT_() { From 60342de9c06d79ff843415968658822b44335eed Mon Sep 17 00:00:00 2001 From: Ryzerth Date: Sun, 4 Oct 2020 02:56:02 +0200 Subject: [PATCH 17/33] Finished soapy module + added file source + added RTL_TCP source (windows only rn) --- CMakeLists.txt | 2 + core/src/core.cpp | 2 + core/src/dsp/source.h | 3 +- core/src/gui/main_window.cpp | 5 +- core/src/gui/main_window.h | 1 - core/src/gui/menu.cpp | 1 + core/src/gui/menus/audio.cpp | 1 - core/src/gui/menus/bandplan.cpp | 1 - core/src/gui/menus/display.cpp | 1 - core/src/signal_path/signal_path.h | 1 - file_source/CMakeLists.txt | 2 + file_source/src/main.cpp | 38 +++++- file_source/src/wavreader.h | 62 ++++++++++ root/config.json | 3 +- root_dev/config.json | 3 +- root_dev/module_list.json | 3 +- root_dev/soapy_source_config.json | 19 +++ rtl_tcp_source/CMakeLists.txt | 20 +++ rtl_tcp_source/src/main.cpp | 188 +++++++++++++++++++++++++++++ rtl_tcp_source/src/rtltcp_client.h | 120 ++++++++++++++++++ soapy/src/main.cpp | 153 ++++++++++++++++++++--- 21 files changed, 602 insertions(+), 27 deletions(-) create mode 100644 file_source/src/wavreader.h create mode 100644 root_dev/soapy_source_config.json create mode 100644 rtl_tcp_source/CMakeLists.txt create mode 100644 rtl_tcp_source/src/main.cpp create mode 100644 rtl_tcp_source/src/rtltcp_client.h diff --git a/CMakeLists.txt b/CMakeLists.txt index c4ac7f9..0d353fe 100644 --- a/CMakeLists.txt +++ b/CMakeLists.txt @@ -1,11 +1,13 @@ cmake_minimum_required(VERSION 3.13) project(sdrpp_core) +# Cross platform modules add_subdirectory("core") add_subdirectory("radio") add_subdirectory("recorder") add_subdirectory("soapy") add_subdirectory("file_source") +add_subdirectory("rtl_tcp_source") add_subdirectory("demo") add_executable(sdrpp "src/main.cpp" "win32/resources.rc") diff --git a/core/src/core.cpp b/core/src/core.cpp index 37815b3..06aa914 100644 --- a/core/src/core.cpp +++ b/core/src/core.cpp @@ -186,6 +186,8 @@ int sdrpp_main() { ImGui_ImplGlfw_NewFrame(); ImGui::NewFrame(); + //ImGui::ShowDemoWindow(); + if (_maximized != maximized) { _maximized = maximized; core::configManager.aquire(); diff --git a/core/src/dsp/source.h b/core/src/dsp/source.h index 2e4ec42..5130abb 100644 --- a/core/src/dsp/source.h +++ b/core/src/dsp/source.h @@ -48,7 +48,8 @@ namespace dsp { } void setFrequency(float frequency) { - _phasorSpeed = (2 * 3.1415926535) / (_sampleRate / frequency); + _frequency = frequency; + _phasorSpeed = (2 * 3.1415926535 * frequency) / _sampleRate; } void setBlockSize(int blockSize) { diff --git a/core/src/gui/main_window.cpp b/core/src/gui/main_window.cpp index 16aebbb..f515c0a 100644 --- a/core/src/gui/main_window.cpp +++ b/core/src/gui/main_window.cpp @@ -123,6 +123,8 @@ void windowInit() { fftHeight = core::configManager.conf["fftHeight"]; gui::waterfall.setFFTHeight(fftHeight); + gui::menu.order = core::configManager.conf["menuOrder"].get>(); + core::configManager.release(); } @@ -411,8 +413,7 @@ void drawWindow() { ImGui::SetCursorPosX((ImGui::GetWindowSize().x / 2.0f) - (ImGui::CalcTextSize("Zoom").x / 2.0f)); ImGui::Text("Zoom"); ImGui::SetCursorPosX((ImGui::GetWindowSize().x / 2.0f) - 10); - // TODO: use global sample rate value from DSP instead of 8000000 - ImGui::VSliderFloat("##_7_", ImVec2(20.0f, 150.0f), &bw.val, 8000000, 1000.0f, ""); + ImGui::VSliderFloat("##_7_", ImVec2(20.0f, 150.0f), &bw.val, gui::waterfall.getBandwidth(), 1000.0f, ""); ImGui::NewLine(); diff --git a/core/src/gui/main_window.h b/core/src/gui/main_window.h index 03eb370..e079f57 100644 --- a/core/src/gui/main_window.h +++ b/core/src/gui/main_window.h @@ -17,7 +17,6 @@ #include #include #include -#include #include #include #include diff --git a/core/src/gui/menu.cpp b/core/src/gui/menu.cpp index 278f1f5..c5611f7 100644 --- a/core/src/gui/menu.cpp +++ b/core/src/gui/menu.cpp @@ -27,6 +27,7 @@ void Menu::draw() { item = items[name]; if (ImGui::CollapsingHeader(name.c_str(), ImGuiTreeNodeFlags_DefaultOpen)) { item.drawHandler(item.ctx); + ImGui::Spacing(); } } } diff --git a/core/src/gui/menus/audio.cpp b/core/src/gui/menus/audio.cpp index e5dd047..f39fdca 100644 --- a/core/src/gui/menus/audio.cpp +++ b/core/src/gui/menus/audio.cpp @@ -134,6 +134,5 @@ namespace audiomenu { } ImGui::Spacing(); } - ImGui::Spacing(); } }; \ No newline at end of file diff --git a/core/src/gui/menus/bandplan.cpp b/core/src/gui/menus/bandplan.cpp index 78f7a16..8588b78 100644 --- a/core/src/gui/menus/bandplan.cpp +++ b/core/src/gui/menus/bandplan.cpp @@ -47,6 +47,5 @@ namespace bandplanmenu { bandplan::BandPlan_t plan = bandplan::bandplans[bandplan::bandplanNames[bandplanId]]; ImGui::Text("Country: %s (%s)", plan.countryName.c_str(), plan.countryCode.c_str()); ImGui::Text("Author: %s", plan.authorName.c_str()); - ImGui::Spacing(); } }; \ No newline at end of file diff --git a/core/src/gui/menus/display.cpp b/core/src/gui/menus/display.cpp index 76093a5..cb1c910 100644 --- a/core/src/gui/menus/display.cpp +++ b/core/src/gui/menus/display.cpp @@ -18,6 +18,5 @@ namespace displaymenu { core::configManager.conf["showWaterfall"] = showWaterfall; core::configManager.release(true); } - ImGui::Spacing(); } } \ No newline at end of file diff --git a/core/src/signal_path/signal_path.h b/core/src/signal_path/signal_path.h index 5b3c79b..d179306 100644 --- a/core/src/signal_path/signal_path.h +++ b/core/src/signal_path/signal_path.h @@ -2,7 +2,6 @@ #include #include #include -#include #include namespace sigpath { diff --git a/file_source/CMakeLists.txt b/file_source/CMakeLists.txt index adc08b0..e604612 100644 --- a/file_source/CMakeLists.txt +++ b/file_source/CMakeLists.txt @@ -7,6 +7,8 @@ else() set(CMAKE_CXX_FLAGS "-O3 -std=c++17 -fpermissive") endif (MSVC) +include_directories("src/") + file(GLOB SRC "src/*.cpp") add_library(file_source SHARED ${SRC}) diff --git a/file_source/src/main.cpp b/file_source/src/main.cpp index 66e1036..6aae4b0 100644 --- a/file_source/src/main.cpp +++ b/file_source/src/main.cpp @@ -3,6 +3,8 @@ #include #include #include +#include +#include #define CONCAT(a, b) ((std::string(a) + b).c_str()) @@ -29,6 +31,11 @@ public: handler.tuneHandler = tune; handler.stream = &stream; sigpath::sourceManager.registerSource("File", &handler); + + reader = new WavReader("D:/satpic/raw_recordings/NOAA-18_09-08-2018_21-39-00_baseband_NR.wav"); + + spdlog::info("Samplerate: {0}, Bit depth: {1}, Channel count: {2}", reader->getSampleRate(), reader->getBitDepth(), reader->getChannelCount()); + spdlog::info("FileSourceModule '{0}': Instance created!", name); } @@ -39,6 +46,7 @@ public: private: static void menuSelected(void* ctx) { FileSourceModule* _this = (FileSourceModule*)ctx; + core::setInputSampleRate(_this->reader->getSampleRate()); spdlog::info("FileSourceModule '{0}': Menu Select!", _this->name); } @@ -49,11 +57,15 @@ private: static void start(void* ctx) { FileSourceModule* _this = (FileSourceModule*)ctx; + _this->workerThread = std::thread(worker, _this); spdlog::info("FileSourceModule '{0}': Start!", _this->name); } static void stop(void* ctx) { FileSourceModule* _this = (FileSourceModule*)ctx; + _this->stream.stopWriter(); + _this->workerThread.join(); + _this->stream.clearWriteStop(); spdlog::info("FileSourceModule '{0}': Stop!", _this->name); } @@ -62,15 +74,39 @@ private: spdlog::info("FileSourceModule '{0}': Tune: {1}!", _this->name, freq); } - static void menuHandler(void* ctx) { FileSourceModule* _this = (FileSourceModule*)ctx; ImGui::Text("Hi from %s!", _this->name.c_str()); } + static void worker(void* ctx) { + FileSourceModule* _this = (FileSourceModule*)ctx; + double sampleRate = _this->reader->getSampleRate(); + int blockSize = sampleRate / 200.0; + int16_t* inBuf = new int16_t[blockSize * 2]; + dsp::complex_t* outBuf = new dsp::complex_t[blockSize]; + + _this->stream.setMaxLatency(blockSize * 2); + + while (true) { + _this->reader->readSamples(inBuf, blockSize * 2 * sizeof(int16_t)); + for (int i = 0; i < blockSize; i++) { + outBuf[i].q = (float)inBuf[i * 2] / (float)0x7FFF; + outBuf[i].i = (float)inBuf[(i * 2) + 1] / (float)0x7FFF; + } + if (_this->stream.write(outBuf, blockSize) < 0) { break; }; + //std::this_thread::sleep_for(std::chrono::milliseconds(5)); + } + + delete[] inBuf; + delete[] outBuf; + } + std::string name; dsp::stream stream; SourceManager::SourceHandler handler; + WavReader* reader; + std::thread workerThread; }; MOD_EXPORT void _INIT_() { diff --git a/file_source/src/wavreader.h b/file_source/src/wavreader.h new file mode 100644 index 0000000..95b65fa --- /dev/null +++ b/file_source/src/wavreader.h @@ -0,0 +1,62 @@ +#pragma once + +#pragma once +#include +#include + +#define WAV_SIGNATURE "RIFF" +#define WAV_TYPE "WAVE" +#define WAV_FORMAT_MARK "fmt " +#define WAV_DATA_MARK "data" +#define WAV_SAMPLE_TYPE_PCM 1 + +class WavReader { +public: + WavReader(std::string path) { + file = std::ifstream(path.c_str(), std::ios::binary); + file.read((char*)&hdr, sizeof(WavHeader_t)); + } + + uint16_t getBitDepth() { + return hdr.bitDepth; + } + + uint16_t getChannelCount() { + return hdr.channelCount; + } + + uint32_t getSampleRate() { + return hdr.sampleRate; + } + + void readSamples(void* data, size_t size) { + file.read((char*)data, size); + bytesRead += size; + } + + void close() { + + file.close(); + } + +private: + struct WavHeader_t { + char signature[4]; // "RIFF" + uint32_t fileSize; // data bytes + sizeof(WavHeader_t) - 8 + char fileType[4]; // "WAVE" + char formatMarker[4]; // "fmt " + uint32_t formatHeaderLength; // Always 16 + uint16_t sampleType; // PCM (1) + uint16_t channelCount; + uint32_t sampleRate; + uint32_t bytesPerSecond; + uint16_t bytesPerSample; + uint16_t bitDepth; + char dataMarker[4]; // "data" + uint32_t dataSize; + }; + + std::ifstream file; + size_t bytesRead = 0; + WavHeader_t hdr; +}; \ No newline at end of file diff --git a/root/config.json b/root/config.json index 93f423d..f96b5c9 100644 --- a/root/config.json +++ b/root/config.json @@ -29,5 +29,6 @@ "windowSize": { "h": 720, "w": 1280 - } + }, + "menuOrder": ["Source", "Radio", "Recorder", "Audio", "Band Plan", "Display"] } \ No newline at end of file diff --git a/root_dev/config.json b/root_dev/config.json index 57340ef..3e634e8 100644 --- a/root_dev/config.json +++ b/root_dev/config.json @@ -14,5 +14,6 @@ "windowSize": { "h": 720, "w": 1280 - } + }, + "menuOrder": ["Source", "Radio", "Recorder", "Audio", "Band Plan", "Display"] } \ No newline at end of file diff --git a/root_dev/module_list.json b/root_dev/module_list.json index b83e4c6..bb2ebb0 100644 --- a/root_dev/module_list.json +++ b/root_dev/module_list.json @@ -2,5 +2,6 @@ "Radio": "./radio/Release/radio.dll", "Recorder": "./recorder/Release/recorder.dll", "Soapy": "./soapy/Release/soapy.dll", - "FileSource": "./file_source/Release/file_source.dll" + "FileSource": "./file_source/Release/file_source.dll", + "RTLTCPSource": "./rtl_tcp_source/Release/rtl_tcp_source.dll" } \ No newline at end of file diff --git a/root_dev/soapy_source_config.json b/root_dev/soapy_source_config.json new file mode 100644 index 0000000..1e60665 --- /dev/null +++ b/root_dev/soapy_source_config.json @@ -0,0 +1,19 @@ +{ + "device": "Generic RTL2832U OEM :: 00000001", + "devices": { + "Generic RTL2832U OEM :: 00000001": { + "gains": { + "TUNER": 12.817999839782715 + }, + "sampleRate": 2560000.0 + }, + "HackRF One #0 901868dc282c8f8b": { + "gains": { + "AMP": 0.0, + "LNA": 24.711999893188477, + "VGA": 15.906000137329102 + }, + "sampleRate": 8000000.0 + } + } +} \ No newline at end of file diff --git a/rtl_tcp_source/CMakeLists.txt b/rtl_tcp_source/CMakeLists.txt new file mode 100644 index 0000000..20796ec --- /dev/null +++ b/rtl_tcp_source/CMakeLists.txt @@ -0,0 +1,20 @@ +cmake_minimum_required(VERSION 3.13) +project(rtl_tcp_source) + +if (MSVC) + set(CMAKE_CXX_FLAGS "-O2 /std:c++17") +else() + set(CMAKE_CXX_FLAGS "-O3 -std=c++17 -fpermissive") +endif (MSVC) + +include_directories("src/") + +file(GLOB SRC "src/*.cpp") + +add_library(rtl_tcp_source SHARED ${SRC}) +target_link_libraries(rtl_tcp_source PRIVATE sdrpp_core) +set_target_properties(rtl_tcp_source PROPERTIES PREFIX "") + +if(WIN32) + target_link_libraries(rtl_tcp_source PRIVATE wsock32 ws2_32) +endif() \ No newline at end of file diff --git a/rtl_tcp_source/src/main.cpp b/rtl_tcp_source/src/main.cpp new file mode 100644 index 0000000..ad35dc7 --- /dev/null +++ b/rtl_tcp_source/src/main.cpp @@ -0,0 +1,188 @@ +#include +#include +#include +#include +#include +#include +#include +#include + +#define CONCAT(a, b) ((std::string(a) + b).c_str()) + +MOD_INFO { + /* Name: */ "fike_source", + /* Description: */ "File input module for SDR++", + /* Author: */ "Ryzerth", + /* Version: */ "0.1.0" +}; + +class RTLTCPSourceModule { +public: + RTLTCPSourceModule(std::string name) { + this->name = name; + + stream.init(100); + + sampleRate = 2560000.0; + + handler.ctx = this; + handler.selectHandler = menuSelected; + handler.deselectHandler = menuDeselected; + handler.menuHandler = menuHandler; + handler.startHandler = start; + handler.stopHandler = stop; + handler.tuneHandler = tune; + handler.stream = &stream; + sigpath::sourceManager.registerSource("RTL-TCP", &handler); + + spdlog::info("RTLTCPSourceModule '{0}': Instance created!", name); + } + + ~RTLTCPSourceModule() { + spdlog::info("RTLTCPSourceModule '{0}': Instance deleted!", name); + } + +private: + static void menuSelected(void* ctx) { + RTLTCPSourceModule* _this = (RTLTCPSourceModule*)ctx; + core::setInputSampleRate(_this->sampleRate); + spdlog::info("RTLTCPSourceModule '{0}': Menu Select!", _this->name); + } + + static void menuDeselected(void* ctx) { + RTLTCPSourceModule* _this = (RTLTCPSourceModule*)ctx; + spdlog::info("RTLTCPSourceModule '{0}': Menu Deselect!", _this->name); + } + + static void start(void* ctx) { + RTLTCPSourceModule* _this = (RTLTCPSourceModule*)ctx; + if (!_this->client.connectToRTL(_this->ip, _this->port)) { + spdlog::error("Could not connect to {0}:{1}", _this->ip, _this->port); + return; + } + _this->client.setFrequency(_this->freq); + _this->client.setSampleRate(_this->sampleRate); + _this->client.setGainIndex(_this->gain); + _this->client.setGainMode(!_this->tunerAGC); + _this->client.setDirectSampling(_this->directSamplingMode); + _this->client.setAGCMode(_this->rtlAGC); + _this->running = true; + _this->workerThread = std::thread(worker, _this); + spdlog::info("RTLTCPSourceModule '{0}': Start!", _this->name); + } + + static void stop(void* ctx) { + RTLTCPSourceModule* _this = (RTLTCPSourceModule*)ctx; + _this->running = false; + _this->stream.stopWriter(); + _this->workerThread.join(); + _this->stream.clearWriteStop(); + _this->client.disconnect(); + spdlog::info("RTLTCPSourceModule '{0}': Stop!", _this->name); + } + + static void tune(double freq, void* ctx) { + RTLTCPSourceModule* _this = (RTLTCPSourceModule*)ctx; + if (_this->running) { + _this->client.setFrequency(freq); + } + _this->freq = freq; + spdlog::info("RTLTCPSourceModule '{0}': Tune: {1}!", _this->name, freq); + } + + static void menuHandler(void* ctx) { + RTLTCPSourceModule* _this = (RTLTCPSourceModule*)ctx; + float menuWidth = ImGui::GetContentRegionAvailWidth(); + float portWidth = ImGui::CalcTextSize("00000").x + 20; + + ImGui::SetNextItemWidth(menuWidth - portWidth); + ImGui::InputText(CONCAT("##_ip_select_", _this->name), _this->ip, 1024); + ImGui::SameLine(); + ImGui::SetNextItemWidth(portWidth); + ImGui::InputInt(CONCAT("##_port_select_", _this->name), &_this->port, 0); + + ImGui::SetNextItemWidth(ImGui::CalcTextSize("OOOOOOOOOO").x); + if (ImGui::Combo("Direct sampling", &_this->directSamplingMode, "Disabled\0I branch\0Q branch\0")) { + if (_this->running) { + _this->client.setDirectSampling(_this->directSamplingMode); + } + } + + if (ImGui::Checkbox("RTL AGC", &_this->rtlAGC)) { + if (_this->running) { + _this->client.setAGCMode(_this->rtlAGC); + } + } + + if (ImGui::Checkbox("Tuner AGC", &_this->tunerAGC)) { + if (_this->running) { + _this->client.setGainMode(!_this->tunerAGC); + if (!_this->tunerAGC) { + _this->client.setGainIndex(_this->gain); + } + } + } + + if (_this->tunerAGC) { style::beginDisabled(); } + ImGui::SetNextItemWidth(menuWidth); + if (ImGui::SliderInt(CONCAT("##_gain_select_", _this->name), &_this->gain, 0, 29, "")) { + if (_this->running) { + _this->client.setGainIndex(_this->gain); + } + } + if (_this->tunerAGC) { style::endDisabled(); } + } + + static void worker(void* ctx) { + RTLTCPSourceModule* _this = (RTLTCPSourceModule*)ctx; + int blockSize = _this->sampleRate / 200.0; + uint8_t* inBuf = new uint8_t[blockSize * 2]; + dsp::complex_t* outBuf = new dsp::complex_t[blockSize]; + + _this->stream.setMaxLatency(blockSize * 2); + + while (true) { + // Read samples here + _this->client.receiveData(inBuf, blockSize * 2); + for (int i = 0; i < blockSize; i++) { + outBuf[i].q = ((double)inBuf[i * 2] - 128.0) / 128.0; + outBuf[i].i = ((double)inBuf[(i * 2) + 1] - 128.0) / 128.0; + } + if (_this->stream.write(outBuf, blockSize) < 0) { break; }; + } + + delete[] inBuf; + delete[] outBuf; + } + + std::string name; + dsp::stream stream; + double sampleRate; + SourceManager::SourceHandler handler; + std::thread workerThread; + RTLTCPClient client; + bool running = false; + double freq; + char ip[1024] = "localhost"; + int port = 1234; + int gain = 0; + bool rtlAGC = false; + bool tunerAGC = false; + int directSamplingMode = 0; +}; + +MOD_EXPORT void _INIT_() { + // Do your one time init here +} + +MOD_EXPORT void* _CREATE_INSTANCE_(std::string name) { + return new RTLTCPSourceModule(name); +} + +MOD_EXPORT void _DELETE_INSTANCE_(void* instance) { + delete (RTLTCPSourceModule*)instance; +} + +MOD_EXPORT void _STOP_() { + // Do your one shutdown here +} \ No newline at end of file diff --git a/rtl_tcp_source/src/rtltcp_client.h b/rtl_tcp_source/src/rtltcp_client.h new file mode 100644 index 0000000..2fc4435 --- /dev/null +++ b/rtl_tcp_source/src/rtltcp_client.h @@ -0,0 +1,120 @@ +#pragma once +#include +#include +#include +#include +#include + +#ifdef _WIN32 +#define __attribute__(x) +#pragma pack(push, 1) +#endif +struct command_t{ + unsigned char cmd; + unsigned int param; +}__attribute__((packed)); +#ifdef _WIN32 +#pragma pack(pop) +#endif + +class RTLTCPClient { +public: + RTLTCPClient() { + + } + + bool connectToRTL(char* host, uint16_t port) { + struct addrinfo *result = NULL; + struct addrinfo *ptr = NULL; + struct addrinfo hints; + + ZeroMemory( &hints, sizeof(hints) ); + hints.ai_family = AF_UNSPEC; + hints.ai_socktype = SOCK_STREAM; + hints.ai_protocol = IPPROTO_TCP; + + char buf[128]; + sprintf(buf, "%hu", port); + + int iResult = getaddrinfo(host, buf, &hints, &result); + if (iResult != 0) { + // TODO: log error + WSACleanup(); + return false; + } + ptr = result; + + sock = socket(ptr->ai_family, ptr->ai_socktype, ptr->ai_protocol); + + if (sock == INVALID_SOCKET) { + // TODO: log error + freeaddrinfo(result); + WSACleanup(); + return false; + } + + iResult = connect(sock, ptr->ai_addr, (int)ptr->ai_addrlen); + if (iResult == SOCKET_ERROR) { + closesocket(sock); + freeaddrinfo(result); + WSACleanup(); + return false; + } + freeaddrinfo(result); + + return true; + } + + void disconnect() { + closesocket(sock); + WSACleanup(); + } + + // struct command_t { + // uint8_t cmd; + // uint32_t arg; + // }; + + void sendCommand(uint8_t command, uint32_t param) { + command_t cmd; + cmd.cmd = command; + cmd.param = htonl(param); + send(sock, (char*)&cmd, sizeof(command_t), 0); + } + + void receiveData(uint8_t* buf, size_t count) { + recv(sock, (char*)buf, count, 0); + } + + void setFrequency(double freq) { + sendCommand(1, freq); + } + + void setSampleRate(double sr) { + sendCommand(2, sr); + } + + void setGainMode(int mode) { + sendCommand(3, mode); + } + + void setGain(double gain) { + sendCommand(4, gain); + } + + void setAGCMode(int mode) { + sendCommand(8, mode); + } + + void setDirectSampling(int mode) { + sendCommand(9, mode); + } + + void setGainIndex(int index) { + sendCommand(13, index); + } + +private: + SOCKET sock; + +}; \ No newline at end of file diff --git a/soapy/src/main.cpp b/soapy/src/main.cpp index ae6be71..5bb6773 100644 --- a/soapy/src/main.cpp +++ b/soapy/src/main.cpp @@ -7,6 +7,7 @@ #include #include #include +#include #define CONCAT(a, b) ((std::string(a) + b).c_str()) @@ -17,6 +18,8 @@ MOD_INFO { /* Version: */ "0.1.0" }; +ConfigManager config; + class SoapyModule { public: SoapyModule(std::string name) { @@ -24,15 +27,18 @@ public: //TODO: Make module tune on source select change (in sdrpp_core) - devList = SoapySDR::Device::enumerate(); - txtDevList = ""; - for (auto& dev : devList) { - txtDevList += dev["label"]; - txtDevList += '\0'; - } + uiGains = new float[1]; + + refresh(); stream.init(100); + // Select default device + config.aquire(); + std::string devName = config.conf["device"]; + config.release(); + selectDevice(devName); + handler.ctx = this; handler.selectHandler = menuSelected; handler.deselectHandler = menuDeselected; @@ -42,10 +48,17 @@ public: handler.tuneHandler = tune; handler.stream = &stream; sigpath::sourceManager.registerSource("SoapySDR", &handler); - spdlog::info("SoapyModule '{0}': Instance created!", name); - // Select default device - selectDevice(devList[0]["label"]); + spdlog::info("SoapyModule '{0}': Instance created!", name); + } + + void refresh() { + devList = SoapySDR::Device::enumerate(); + txtDevList = ""; + for (auto& dev : devList) { + txtDevList += dev["label"]; + txtDevList += '\0'; + } } ~SoapyModule() { @@ -54,6 +67,7 @@ public: private: void selectSampleRate(double samplerate) { + spdlog::info("Setting sample rate to {0}", samplerate); if (sampleRates.size() == 0) { devId = -1; return; @@ -65,6 +79,7 @@ private: srId = i; sampleRate = sr; found = true; + core::setInputSampleRate(sampleRate); break; } i++; @@ -98,15 +113,57 @@ private: } SoapySDR::Device* dev = SoapySDR::Device::make(devArgs); + + gainList = dev->listGains(SOAPY_SDR_RX, 0); + delete[] uiGains; + uiGains = new float[gainList.size()]; + for (auto gain : gainList) { + gainRanges.push_back(dev->getGainRange(SOAPY_SDR_RX, 0, gain)); + } + sampleRates = dev->listSampleRates(SOAPY_SDR_RX, 0); txtSrList = ""; for (double sr : sampleRates) { txtSrList += std::to_string((int)sr); txtSrList += '\0'; } - SoapySDR::Device::unmake(dev); - selectSampleRate(sampleRates[0]); + SoapySDR::Device::unmake(dev); + + config.aquire(); + if (config.conf["devices"].contains(name)) { + int i = 0; + for (auto gain : gainList) { + if (config.conf["devices"][name]["gains"].contains(gain)) { + uiGains[i] = config.conf["devices"][name]["gains"][gain]; + } + i++; + } + selectSampleRate(config.conf["devices"][name]["sampleRate"]); + } + else { + int i = 0; + for (auto gain : gainList) { + uiGains[i] = gainRanges[i].minimum(); + i++; + } + selectSampleRate(sampleRates[0]); // Select default + } + config.release(); + + } + + void saveCurrent() { + json conf; + conf["sampleRate"] = sampleRate; + int i = 0; + for (auto gain : gainList) { + conf["gains"][gain] = uiGains[i]; + i++; + } + config.aquire(); + config.conf["devices"][devArgs["label"]] = conf; + config.release(true); } static void menuSelected(void* ctx) { @@ -126,7 +183,17 @@ private: static void start(void* ctx) { SoapyModule* _this = (SoapyModule*)ctx; _this->dev = SoapySDR::Device::make(_this->devArgs); + _this->dev->setSampleRate(SOAPY_SDR_RX, 0, _this->sampleRate); + + int i = 0; + for (auto gain : _this->gainList) { + _this->dev->setGain(SOAPY_SDR_RX, 0, gain, _this->uiGains[i]); + i++; + } + + _this->dev->setFrequency(SOAPY_SDR_RX, 0, _this->freq); + _this->devStream = _this->dev->setupStream(SOAPY_SDR_RX, "CF32"); _this->dev->activateStream(_this->devStream); _this->running = true; @@ -137,6 +204,11 @@ private: static void stop(void* ctx) { SoapyModule* _this = (SoapyModule*)ctx; _this->running = false; + _this->dev->deactivateStream(_this->devStream); + _this->dev->closeStream(_this->devStream); + _this->workerThread.join(); + SoapySDR::Device::unmake(_this->dev); + spdlog::info("SoapyModule '{0}': Stop!", _this->name); } @@ -159,14 +231,56 @@ private: } float menuWidth = ImGui::GetContentRegionAvailWidth(); + + if (_this->running) { style::beginDisabled(); } + ImGui::SetNextItemWidth(menuWidth); if (ImGui::Combo(CONCAT("##_dev_select_", _this->name), &_this->devId, _this->txtDevList.c_str())) { _this->selectDevice(_this->devList[_this->devId]["label"]); + config.aquire(); + config.conf["device"] = _this->devList[_this->devId]["label"]; + config.release(true); } - ImGui::SetNextItemWidth(menuWidth); + + if (ImGui::Combo(CONCAT("##_sr_select_", _this->name), &_this->srId, _this->txtSrList.c_str())) { _this->selectSampleRate(_this->sampleRates[_this->srId]); - core::setInputSampleRate(_this->sampleRate); + _this->saveCurrent(); + } + + ImGui::SameLine(); + float refreshBtnWdith = menuWidth - ImGui::GetCursorPosX(); + if (ImGui::Button(CONCAT("Refresh##_dev_select_", _this->name), ImVec2(refreshBtnWdith, 0))) { + _this->refresh(); + _this->selectDevice(config.conf["device"]); + } + + if (_this->running) { style::endDisabled(); } + + float gainNameLen = 0; + float len; + for (auto gain : _this->gainList) { + len = ImGui::CalcTextSize((gain + " gain").c_str()).x; + if (len > gainNameLen) { + gainNameLen = len; + } + } + gainNameLen += 5.0f; + + int i = 0; + for (auto gain : _this->gainList) { + ImGui::Text((gain + " gain").c_str()); + ImGui::SameLine(); + ImGui::SetCursorPosX(gainNameLen); + ImGui::SetNextItemWidth(menuWidth - gainNameLen); + if (ImGui::SliderFloat((gain + std::string("##_gain_sel_") + _this->name).c_str(), &_this->uiGains[i], + _this->gainRanges[i].minimum(), _this->gainRanges[i].maximum())) { + if (_this->running) { + _this->dev->setGain(SOAPY_SDR_RX, 0, gain, _this->uiGains[i]); + } + _this->saveCurrent(); + } + i++; } } @@ -203,10 +317,18 @@ private: bool running = false; std::vector sampleRates; int srId = -1; + float* uiGains; + std::vector gainList; + std::vector gainRanges; }; MOD_EXPORT void _INIT_() { - // Do your one time init here + config.setPath(ROOT_DIR "/soapy_source_config.json"); + json defConf; + defConf["device"] = ""; + defConf["devices"] = json({}); + config.load(defConf); + config.enableAutoSave(); } MOD_EXPORT void* _CREATE_INSTANCE_(std::string name) { @@ -218,5 +340,6 @@ MOD_EXPORT void _DELETE_INSTANCE_(void* instance) { } MOD_EXPORT void _STOP_() { - // Do your one shutdown here + config.disableAutoSave(); + config.save(); } \ No newline at end of file From eff7bbdd5a886d3b5fa5d91ee082777ace123046 Mon Sep 17 00:00:00 2001 From: Ryzerth Date: Sun, 4 Oct 2020 15:23:40 +0200 Subject: [PATCH 18/33] added new patrons --- core/src/gui/dialogs/credits.cpp | 1 + core/src/io/soapy.h | 185 ----------------------------- readme.md | 1 + root_dev/soapy_source_config.json | 2 +- rtl_tcp_source/src/main.cpp | 6 + rtl_tcp_source/src/rtltcp_client.h | 11 ++ 6 files changed, 20 insertions(+), 186 deletions(-) delete mode 100644 core/src/io/soapy.h diff --git a/core/src/gui/dialogs/credits.cpp b/core/src/gui/dialogs/credits.cpp index 5abd1e8..060fc92 100644 --- a/core/src/gui/dialogs/credits.cpp +++ b/core/src/gui/dialogs/credits.cpp @@ -50,6 +50,7 @@ namespace credits { ImGui::NextColumn(); ImGui::Text("Patrons"); ImGui::BulletText("SignalsEverywhere"); + ImGui::BulletText("Lee Donaghy"); ImGui::EndPopup(); ImGui::PopStyleVar(1); diff --git a/core/src/io/soapy.h b/core/src/io/soapy.h deleted file mode 100644 index 5415183..0000000 --- a/core/src/io/soapy.h +++ /dev/null @@ -1,185 +0,0 @@ -#pragma once -#include -#include -#include -#include -#include -#include -#include - -namespace io { - class SoapyWrapper { - public: - SoapyWrapper() { - - } - - void init() { - SoapySDR::registerLogHandler(_logHandler); - //SoapySDR::Device::make(""); - - output.init(64000); - currentGains = new float[1]; - refresh(); - if (devList.size() == 0) { - dev = NULL; - return; - } - setDevice(devList[0]); - } - - void start() { - if (devList.size() == 0) { - return; - } - if (running) { - return; - } - dev = SoapySDR::Device::make(args); - _stream = dev->setupStream(SOAPY_SDR_RX, "CF32"); - dev->activateStream(_stream); - running = true; - _workerThread = std::thread(_worker, this); - } - - void stop() { - if (!running) { - return; - } - running = false; - dev->deactivateStream(_stream); - dev->closeStream(_stream); - _workerThread.join(); - SoapySDR::Device::unmake(dev); - } - - void refresh() { - if (running) { - return; - } - devList = SoapySDR::Device::enumerate(); - txtDevList = ""; - devNameList.clear(); - if (devList.size() == 0) { - txtDevList += '\0'; - return; - } - for (int i = 0; i < devList.size(); i++) { - txtDevList += devList[i]["label"]; - txtDevList += '\0'; - devNameList.push_back(devList[i]["label"]); - } - } - - void setDevice(SoapySDR::Kwargs devArgs) { - if (running) { - return; - } - args = devArgs; - dev = SoapySDR::Device::make(devArgs); - txtSampleRateList = ""; - sampleRates = dev->listSampleRates(SOAPY_SDR_RX, 0); - for (int i = 0; i < sampleRates.size(); i++) { - txtSampleRateList += std::to_string((int)sampleRates[i]); - txtSampleRateList += '\0'; - } - _sampleRate = sampleRates[0]; - - gainList = dev->listGains(SOAPY_SDR_RX, 0); - gainRanges.clear(); - if (gainList.size() == 0) { - return; - } - delete[] currentGains; - currentGains = new float[gainList.size()]; - for (int i = 0; i < gainList.size(); i++) { - gainRanges.push_back(dev->getGainRange(SOAPY_SDR_RX, 0, gainList[i])); - SoapySDR::Range rng = dev->getGainRange(SOAPY_SDR_RX, 0, gainList[i]); - - spdlog::info("{0}: {1} -> {2} (Step: {3})", gainList[i], rng.minimum(), rng.maximum(), rng.step()); - - currentGains[i] = rng.minimum(); - } - } - - void setSampleRate(float sampleRate) { - if (running || dev == NULL) { - return; - } - _sampleRate = sampleRate; - dev->setSampleRate(SOAPY_SDR_RX, 0, sampleRate); - } - - void setFrequency(float freq) { - if (dev == NULL) { - return; - } - dev->setFrequency(SOAPY_SDR_RX, 0, freq); - } - - void setGain(int gainId, float gain) { - if (dev == NULL) { - return; - } - currentGains[gainId] = gain; - dev->setGain(SOAPY_SDR_RX, 0, gainList[gainId], gain); - } - - bool isRunning() { - return running; - } - - float getSampleRate() { - return _sampleRate; - } - - SoapySDR::KwargsList devList; - std::vector devNameList; - std::string txtDevList; - - std::vector sampleRates; - std::string txtSampleRateList; - - std::vector gainList; - std::vector gainRanges; - float* currentGains; - - dsp::stream output; - - private: - static void _worker(SoapyWrapper* _this) { - int blockSize = _this->_sampleRate / 200.0f; - dsp::complex_t* buf = new dsp::complex_t[blockSize]; - int flags = 0; - long long timeMs = 0; - - while (_this->running) { - int res = _this->dev->readStream(_this->_stream, (void**)&buf, blockSize, flags, timeMs); - if (res < 1) { - continue; - } - _this->output.write(buf, res); - } - delete[] buf; - } - - static void _logHandler(const SoapySDRLogLevel lvl, const char* message) { - if (lvl == SOAPY_SDR_FATAL || lvl == SOAPY_SDR_CRITICAL || lvl == SOAPY_SDR_ERROR) { - spdlog::error(message); - } - else if (lvl == SOAPY_SDR_WARNING) { - spdlog::warn(message); - } - else if (lvl == SOAPY_SDR_NOTICE | SOAPY_SDR_INFO) { - spdlog::info(message); - } - } - - SoapySDR::Kwargs args; - SoapySDR::Device* dev; - SoapySDR::Stream* _stream; - std::thread _workerThread; - bool running = false; - float _sampleRate = 0; - }; -}; \ No newline at end of file diff --git a/readme.md b/readme.md index 9c0e69b..1db8333 100644 --- a/readme.md +++ b/readme.md @@ -73,6 +73,7 @@ I will soon publish a contributing.md listing the code style to use. ## Patrons * [SignalsEverywhere](https://signalseverywhere.com/) +* [Lee Donaghy](https://github.com/github) ## Contributors * [aosync](https://github.com/aosync) diff --git a/root_dev/soapy_source_config.json b/root_dev/soapy_source_config.json index 1e60665..06f6e45 100644 --- a/root_dev/soapy_source_config.json +++ b/root_dev/soapy_source_config.json @@ -1,5 +1,5 @@ { - "device": "Generic RTL2832U OEM :: 00000001", + "device": "HackRF One #0 901868dc282c8f8b", "devices": { "Generic RTL2832U OEM :: 00000001": { "gains": { diff --git a/rtl_tcp_source/src/main.cpp b/rtl_tcp_source/src/main.cpp index ad35dc7..a072432 100644 --- a/rtl_tcp_source/src/main.cpp +++ b/rtl_tcp_source/src/main.cpp @@ -56,6 +56,9 @@ private: static void start(void* ctx) { RTLTCPSourceModule* _this = (RTLTCPSourceModule*)ctx; + if (_this->running) { + return; + } if (!_this->client.connectToRTL(_this->ip, _this->port)) { spdlog::error("Could not connect to {0}:{1}", _this->ip, _this->port); return; @@ -73,6 +76,9 @@ private: static void stop(void* ctx) { RTLTCPSourceModule* _this = (RTLTCPSourceModule*)ctx; + if (!_this->running) { + return; + } _this->running = false; _this->stream.stopWriter(); _this->workerThread.join(); diff --git a/rtl_tcp_source/src/rtltcp_client.h b/rtl_tcp_source/src/rtltcp_client.h index 2fc4435..bf930e6 100644 --- a/rtl_tcp_source/src/rtltcp_client.h +++ b/rtl_tcp_source/src/rtltcp_client.h @@ -24,6 +24,10 @@ public: } bool connectToRTL(char* host, uint16_t port) { + if (connected) { + return true; + } + struct addrinfo *result = NULL; struct addrinfo *ptr = NULL; struct addrinfo hints; @@ -62,12 +66,18 @@ public: } freeaddrinfo(result); + connected = true; + return true; } void disconnect() { + if (!connected) { + return; + } closesocket(sock); WSACleanup(); + connected = false; } // struct command_t { @@ -116,5 +126,6 @@ public: private: SOCKET sock; + bool connected = false; }; \ No newline at end of file From 14a8e8166277d0f8215a25bb7a96869e3f68680c Mon Sep 17 00:00:00 2001 From: Ryzerth Date: Mon, 5 Oct 2020 18:20:27 +0200 Subject: [PATCH 19/33] Fixed missing label bug of soapysdr --- soapy/src/main.cpp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/soapy/src/main.cpp b/soapy/src/main.cpp index 5bb6773..a55c983 100644 --- a/soapy/src/main.cpp +++ b/soapy/src/main.cpp @@ -55,9 +55,11 @@ public: void refresh() { devList = SoapySDR::Device::enumerate(); txtDevList = ""; + int i = 0; for (auto& dev : devList) { - txtDevList += dev["label"]; + txtDevList += dev["label"] != "" ? dev["label"] : dev["driver"]; txtDevList += '\0'; + i++; } } From ace1fe1e5e99cf2d6e7538b34ddcf7ec544afec2 Mon Sep 17 00:00:00 2001 From: AlexandreRouma Date: Tue, 6 Oct 2020 10:54:00 +0200 Subject: [PATCH 20/33] added linux support for rtl_tcp --- CMakeLists.txt | 2 +- root_dev/config.json | 17 +++++++---- root_dev/module_list.json | 12 ++++---- root_dev/soapy_source_config.json | 39 +++++++++++++------------ rtl_tcp_source/src/rtltcp_client.h | 47 +++++++++++++++++++++++++++++- 5 files changed, 86 insertions(+), 31 deletions(-) diff --git a/CMakeLists.txt b/CMakeLists.txt index 0d353fe..49729ac 100644 --- a/CMakeLists.txt +++ b/CMakeLists.txt @@ -20,4 +20,4 @@ else() add_custom_target(do_always ALL cp \"$/sdrpp_core.so\" \"$\") endif (MSVC) -# cmake .. "-DCMAKE_TOOLCHAIN_FILE=C:/Users/Alex/vcpkg/scripts/buildsystems/vcpkg.cmake" -G "Visual Studio 15 2017 Win64" \ No newline at end of file +# cmake .. "-DCMAKE_TOOLCHAIN_FILE=C:/Users/Alex/vcpkg/scripts/buildsystems/vcpkg.cmake" -G "Visual Studio 15 2017 Win64" diff --git a/root_dev/config.json b/root_dev/config.json index 3e634e8..d77e7e4 100644 --- a/root_dev/config.json +++ b/root_dev/config.json @@ -3,17 +3,24 @@ "bandPlan": "General", "bandPlanEnabled": true, "fftHeight": 300, - "frequency": 96570096, + "frequency": 96571704, "max": 0.0, "maximized": false, + "menuOrder": [ + "Source", + "Radio", + "Recorder", + "Audio", + "Band Plan", + "Display" + ], "menuWidth": 300, "min": -51.47058868408203, "showWaterfall": true, "source": "", "sourceSettings": {}, "windowSize": { - "h": 720, - "w": 1280 - }, - "menuOrder": ["Source", "Radio", "Recorder", "Audio", "Band Plan", "Display"] + "h": 1053, + "w": 1920 + } } \ No newline at end of file diff --git a/root_dev/module_list.json b/root_dev/module_list.json index bb2ebb0..f026332 100644 --- a/root_dev/module_list.json +++ b/root_dev/module_list.json @@ -1,7 +1,7 @@ { - "Radio": "./radio/Release/radio.dll", - "Recorder": "./recorder/Release/recorder.dll", - "Soapy": "./soapy/Release/soapy.dll", - "FileSource": "./file_source/Release/file_source.dll", - "RTLTCPSource": "./rtl_tcp_source/Release/rtl_tcp_source.dll" -} \ No newline at end of file + "Radio": "./radio/radio.so", + "Recorder": "./recorder/recorder.so", + "Soapy": "./soapy/soapy.so", + "FileSource": "./file_source/file_source.so", + "RTLTCPSource": "./rtl_tcp_source/rtl_tcp_source.so" +} diff --git a/root_dev/soapy_source_config.json b/root_dev/soapy_source_config.json index 06f6e45..9f57e6a 100644 --- a/root_dev/soapy_source_config.json +++ b/root_dev/soapy_source_config.json @@ -1,19 +1,22 @@ -{ - "device": "HackRF One #0 901868dc282c8f8b", - "devices": { - "Generic RTL2832U OEM :: 00000001": { - "gains": { - "TUNER": 12.817999839782715 - }, - "sampleRate": 2560000.0 - }, - "HackRF One #0 901868dc282c8f8b": { - "gains": { - "AMP": 0.0, - "LNA": 24.711999893188477, - "VGA": 15.906000137329102 - }, - "sampleRate": 8000000.0 - } - } +{ + "device": "HackRF One #0 901868dc282c8f8b", + "devices": { + "Generic RTL2832U OEM :: 00000001": { + "gains": { + "TUNER": 12.817999839782715 + }, + "sampleRate": 2560000.0 + }, + "HackRF One #0 901868dc282c8f8b": { + "gains": { + "AMP": 0.0, + "LNA": 24.711999893188477, + "VGA": 15.906000137329102 + }, + "sampleRate": 8000000.0 + }, + "PulseAudio": { + "sampleRate": 96000.0 + } + } } \ No newline at end of file diff --git a/rtl_tcp_source/src/rtltcp_client.h b/rtl_tcp_source/src/rtltcp_client.h index bf930e6..09d6818 100644 --- a/rtl_tcp_source/src/rtltcp_client.h +++ b/rtl_tcp_source/src/rtltcp_client.h @@ -2,8 +2,18 @@ #include #include #include + +#ifdef _WIN32 #include #include +#else +#include +#include +#include +#include +#include +#include +#endif #ifdef _WIN32 #define __attribute__(x) @@ -28,6 +38,7 @@ public: return true; } +#ifdef _WIN32 struct addrinfo *result = NULL; struct addrinfo *ptr = NULL; struct addrinfo hints; @@ -65,6 +76,23 @@ public: return false; } freeaddrinfo(result); +#else + sockfd = socket(AF_INET, SOCK_STREAM, 0); + if (sockfd < 0) { + // TODO: Log error + return false; + } + struct hostent *server = gethostbyname(host); + struct sockaddr_in serv_addr; + bzero(&serv_addr, sizeof(struct sockaddr_in)); + serv_addr.sin_family = AF_INET; + bcopy((char *)server->h_addr, (char *)&serv_addr.sin_addr.s_addr, server->h_length); + serv_addr.sin_port = port; + if (connect(sockfd,(struct sockaddr *)&serv_addr,sizeof(serv_addr)) < 0) { + // TODO: log error + return false; + } +#endif connected = true; @@ -75,8 +103,12 @@ public: if (!connected) { return; } +#ifdef _WIN32 closesocket(sock); WSACleanup(); +#else + close(sockfd); +#endif connected = false; } @@ -89,11 +121,19 @@ public: command_t cmd; cmd.cmd = command; cmd.param = htonl(param); - send(sock, (char*)&cmd, sizeof(command_t), 0); +#ifdef _WIN32 + send(sock, (char*)&cmd, sizeof(command_t), 0); +#else + write(sockfd, &cmd, sizeof(command_t)); +#endif } void receiveData(uint8_t* buf, size_t count) { +#ifdef _WIN32 recv(sock, (char*)buf, count, 0); +#else + read(sockfd, buf, count); +#endif } void setFrequency(double freq) { @@ -125,7 +165,12 @@ public: } private: +#ifdef _WIN32 SOCKET sock; +#else + int sockfd; +#endif + bool connected = false; }; \ No newline at end of file From ac068036b86457cceec12c6e0d6f4218008789e4 Mon Sep 17 00:00:00 2001 From: Ryzerth Date: Tue, 6 Oct 2020 15:50:46 +0200 Subject: [PATCH 21/33] Finished soapy module + added file source + added RTL_TCP source (windows only rn) --- core/CMakeLists.txt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/core/CMakeLists.txt b/core/CMakeLists.txt index af670e9..da5423a 100644 --- a/core/CMakeLists.txt +++ b/core/CMakeLists.txt @@ -17,9 +17,10 @@ file(GLOB MENUS "src/gui/menus/*.cpp") file(GLOB DIALOGS "src/gui/dialogs/*.cpp") file(GLOB SIGPATH "src/signal_path/*.cpp") file(GLOB IMGUI "src/imgui/*.cpp") +file(GLOB DUKTAPE "src/duktape/*.c") # Add code to dyn lib -add_library(sdrpp_core SHARED ${SRC} ${GUI} ${MENUS} ${DIALOGS} ${SIGPATH} ${IMGUI}) +add_library(sdrpp_core SHARED ${SRC} ${GUI} ${MENUS} ${DIALOGS} ${SIGPATH} ${IMGUI} ${DUKTAPE}) set_target_properties(sdrpp_core PROPERTIES PREFIX "") # Include core headers From 46d5b8a750406cb0db534a1a1c93163108d0ece4 Mon Sep 17 00:00:00 2001 From: Ryzerth Date: Wed, 7 Oct 2020 14:44:39 +0200 Subject: [PATCH 22/33] new scripting system --- core/src/core.cpp | 47 + core/src/core.h | 2 + core/src/duktape/duk_config.h | 3779 ++ core/src/duktape/duk_console.c | 185 + core/src/duktape/duk_console.h | 29 + core/src/duktape/duktape.c | 99755 +++++++++++++++++++++++++++++ core/src/duktape/duktape.h | 1450 + core/src/gui/main_window.cpp | 2 + core/src/gui/main_window.h | 1 + core/src/gui/menus/scripting.cpp | 21 + core/src/gui/menus/scripting.h | 6 + core/src/scripting.cpp | 75 + core/src/scripting.h | 48 + radio/src/main.cpp | 32 + root_dev/config.json | 5 +- root_dev/module_list.json | 10 +- 16 files changed, 105440 insertions(+), 7 deletions(-) create mode 100644 core/src/duktape/duk_config.h create mode 100644 core/src/duktape/duk_console.c create mode 100644 core/src/duktape/duk_console.h create mode 100644 core/src/duktape/duktape.c create mode 100644 core/src/duktape/duktape.h create mode 100644 core/src/gui/menus/scripting.cpp create mode 100644 core/src/gui/menus/scripting.h create mode 100644 core/src/scripting.cpp create mode 100644 core/src/scripting.h diff --git a/core/src/core.cpp b/core/src/core.cpp index 06aa914..abc8f94 100644 --- a/core/src/core.cpp +++ b/core/src/core.cpp @@ -14,6 +14,9 @@ #include #include #include +#include +#include +#include #include @@ -26,6 +29,7 @@ namespace core { ConfigManager configManager; + ScriptManager scriptManager; void setInputSampleRate(double samplerate) { // NOTE: Zoom controls won't work @@ -50,12 +54,55 @@ static void maximized_callback(GLFWwindow* window, int n) { } } +duk_ret_t test_func(duk_context *ctx) { + printf("Hello from C++\n"); + return 1; +} + // main int sdrpp_main() { #ifdef _WIN32 //FreeConsole(); #endif + + // TESTING + + + // duk_context* ctx = duk_create_heap_default(); + // duk_console_init(ctx, DUK_CONSOLE_PROXY_WRAPPER); + + // std::ifstream file("test.js", std::ios::in); + // std::stringstream ss; + // ss << file.rdbuf(); + // std::string code = ss.str(); + + // duk_idx_t baseObj = duk_push_object(ctx); + + // duk_push_int(ctx, 42); + // duk_put_prop_string(ctx, baseObj, "my_property"); + + // duk_push_c_function(ctx, test_func, 0); + // duk_put_prop_string(ctx, baseObj, "my_func"); + + // duk_put_global_string(ctx, "my_object"); + // duk_push_object(ctx); + + + + // if (duk_peval_string(ctx, code.c_str()) != 0) { + // printf("Error: %s\n", duk_safe_to_string(ctx, -1)); + // return -1; + // } + // duk_pop(ctx); + + core::scriptManager.createScript("TestScript 1", "test.js"); + core::scriptManager.createScript("TestScript 2", "test.js"); + core::scriptManager.createScript("TestScript 3", "test.js"); + core::scriptManager.createScript("TestScript 4", "test.js"); + + // TESTING + spdlog::info("SDR++ v" VERSION_STR); // Load config diff --git a/core/src/core.h b/core/src/core.h index c3e065f..8fc7fba 100644 --- a/core/src/core.h +++ b/core/src/core.h @@ -1,9 +1,11 @@ #pragma once #include #include +#include namespace core { SDRPP_EXPORT ConfigManager configManager; + SDRPP_EXPORT ScriptManager scriptManager; void setInputSampleRate(double samplerate); }; diff --git a/core/src/duktape/duk_config.h b/core/src/duktape/duk_config.h new file mode 100644 index 0000000..130168a --- /dev/null +++ b/core/src/duktape/duk_config.h @@ -0,0 +1,3779 @@ +/* + * duk_config.h configuration header generated by genconfig.py. + * + * Git commit: 6001888049cb42656f8649db020e804bcdeca6a7 + * Git describe: v2.5.0 + * Git branch: master + * + * Supported platforms: + * - Mac OSX, iPhone, Darwin + * - Orbis + * - OpenBSD + * - Generic BSD + * - Atari ST TOS + * - AmigaOS + * - Durango (XboxOne) + * - Windows + * - Flashplayer (Crossbridge) + * - QNX + * - TI-Nspire + * - Emscripten + * - Android + * - Linux + * - Solaris + * - AIX + * - HPUX + * - Generic POSIX + * - Cygwin + * - Generic UNIX + * - Generic fallback + * + * Supported architectures: + * - x86 + * - x64 + * - x32 + * - ARM 32-bit + * - ARM 64-bit + * - MIPS 32-bit + * - MIPS 64-bit + * - PowerPC 32-bit + * - PowerPC 64-bit + * - SPARC 32-bit + * - SPARC 64-bit + * - RISC-V 32-bit + * - RISC-V 64-bit + * - SuperH + * - Motorola 68k + * - Emscripten + * - Generic + * + * Supported compilers: + * - Clang + * - GCC + * - MSVC + * - Emscripten + * - TinyC + * - VBCC + * - Bruce's C compiler + * - Generic + * + */ + +#if !defined(DUK_CONFIG_H_INCLUDED) +#define DUK_CONFIG_H_INCLUDED + +/* + * Intermediate helper defines + */ + +/* DLL build detection */ +/* not configured for DLL build */ +#undef DUK_F_DLL_BUILD + +/* Apple OSX, iOS */ +#if defined(__APPLE__) +#define DUK_F_APPLE +#endif + +/* FreeBSD */ +#if defined(__FreeBSD__) || defined(__FreeBSD) +#define DUK_F_FREEBSD +#endif + +/* Orbis (PS4) variant */ +#if defined(DUK_F_FREEBSD) && defined(__ORBIS__) +#define DUK_F_ORBIS +#endif + +/* OpenBSD */ +#if defined(__OpenBSD__) || defined(__OpenBSD) +#define DUK_F_OPENBSD +#endif + +/* NetBSD */ +#if defined(__NetBSD__) || defined(__NetBSD) +#define DUK_F_NETBSD +#endif + +/* BSD variant */ +#if defined(DUK_F_FREEBSD) || defined(DUK_F_NETBSD) || defined(DUK_F_OPENBSD) || \ + defined(__bsdi__) || defined(__DragonFly__) +#define DUK_F_BSD +#endif + +/* Atari ST TOS. __TOS__ defined by PureC. No platform define in VBCC + * apparently, so to use with VBCC user must define __TOS__ manually. + */ +#if defined(__TOS__) +#define DUK_F_TOS +#endif + +/* Motorola 68K. Not defined by VBCC, so user must define one of these + * manually when using VBCC. + */ +#if defined(__m68k__) || defined(M68000) || defined(__MC68K__) +#define DUK_F_M68K +#endif + +/* AmigaOS. Neither AMIGA nor __amigaos__ is defined on VBCC, so user must + * define 'AMIGA' manually when using VBCC. + */ +#if defined(AMIGA) || defined(__amigaos__) +#define DUK_F_AMIGAOS +#endif + +/* PowerPC */ +#if defined(__powerpc) || defined(__powerpc__) || defined(__PPC__) +#define DUK_F_PPC +#if defined(__PPC64__) || defined(__LP64__) || defined(_LP64) +#define DUK_F_PPC64 +#else +#define DUK_F_PPC32 +#endif +#endif + +/* Durango (Xbox One) */ +#if defined(_DURANGO) || defined(_XBOX_ONE) +#define DUK_F_DURANGO +#endif + +/* Windows, both 32-bit and 64-bit */ +#if defined(_WIN32) || defined(WIN32) || defined(_WIN64) || defined(WIN64) || \ + defined(__WIN32__) || defined(__TOS_WIN__) || defined(__WINDOWS__) +#define DUK_F_WINDOWS +#if defined(_WIN64) || defined(WIN64) +#define DUK_F_WIN64 +#else +#define DUK_F_WIN32 +#endif +#endif + +/* Flash player (e.g. Crossbridge) */ +#if defined(__FLASHPLAYER__) +#define DUK_F_FLASHPLAYER +#endif + +/* QNX */ +#if defined(__QNX__) +#define DUK_F_QNX +#endif + +/* TI-Nspire (using Ndless) */ +#if defined(_TINSPIRE) +#define DUK_F_TINSPIRE +#endif + +/* Emscripten (provided explicitly by user), improve if possible */ +#if defined(EMSCRIPTEN) +#define DUK_F_EMSCRIPTEN +#endif + +/* BCC (Bruce's C compiler): this is a "torture target" for compilation */ +#if defined(__BCC__) || defined(__BCC_VERSION__) +#define DUK_F_BCC +#endif + +#if defined(ANDROID) || defined(__ANDROID__) +#define DUK_F_ANDROID +#endif + +/* Linux */ +#if defined(__linux) || defined(__linux__) || defined(linux) +#define DUK_F_LINUX +#endif + +/* illumos / Solaris */ +#if defined(__sun) && defined(__SVR4) +#define DUK_F_SUN +#if defined(__SUNPRO_C) && (__SUNPRO_C < 0x550) +#define DUK_F_OLD_SOLARIS +/* Defines _ILP32 / _LP64 required by DUK_F_X86/DUK_F_X64. Platforms + * are processed before architectures, so this happens before the + * DUK_F_X86/DUK_F_X64 detection is emitted. + */ +#include +#endif +#endif + +/* AIX */ +#if defined(_AIX) +/* defined(__xlc__) || defined(__IBMC__): works but too wide */ +#define DUK_F_AIX +#endif + +/* HPUX */ +#if defined(__hpux) +#define DUK_F_HPUX +#if defined(__ia64) +#define DUK_F_HPUX_ITANIUM +#endif +#endif + +/* POSIX */ +#if defined(__posix) +#define DUK_F_POSIX +#endif + +/* Cygwin */ +#if defined(__CYGWIN__) +#define DUK_F_CYGWIN +#endif + +/* Generic Unix (includes Cygwin) */ +#if defined(__unix) || defined(__unix__) || defined(unix) || \ + defined(DUK_F_LINUX) || defined(DUK_F_BSD) +#define DUK_F_UNIX +#endif + +/* Intel x86 (32-bit), x64 (64-bit) or x32 (64-bit but 32-bit pointers), + * define only one of DUK_F_X86, DUK_F_X64, DUK_F_X32. + * https://sites.google.com/site/x32abi/ + * + * With DUK_F_OLD_SOLARIS the header must be included + * before this. + */ +#if defined(__amd64__) || defined(__amd64) || \ + defined(__x86_64__) || defined(__x86_64) || \ + defined(_M_X64) || defined(_M_AMD64) +#if defined(__ILP32__) || defined(_ILP32) +#define DUK_F_X32 +#else +#define DUK_F_X64 +#endif +#elif defined(i386) || defined(__i386) || defined(__i386__) || \ + defined(__i486__) || defined(__i586__) || defined(__i686__) || \ + defined(__IA32__) || defined(_M_IX86) || defined(__X86__) || \ + defined(_X86_) || defined(__THW_INTEL__) || defined(__I86__) +#if defined(__LP64__) || defined(_LP64) +/* This should not really happen, but would indicate x64. */ +#define DUK_F_X64 +#else +#define DUK_F_X86 +#endif +#endif + +/* ARM */ +#if defined(__arm__) || defined(__thumb__) || defined(_ARM) || defined(_M_ARM) || defined(_M_ARM64) || defined(__aarch64__) +#define DUK_F_ARM +#if defined(__LP64__) || defined(_LP64) || defined(__arm64) || defined(__arm64__) || defined(_M_ARM64) || defined(__aarch64__) +#define DUK_F_ARM64 +#else +#define DUK_F_ARM32 +#endif +#endif + +/* MIPS. Related defines: __MIPSEB__, __MIPSEL__, __mips_isa_rev, __LP64__ */ +#if defined(__mips__) || defined(mips) || defined(_MIPS_ISA) || \ + defined(_R3000) || defined(_R4000) || defined(_R5900) || \ + defined(_MIPS_ISA_MIPS1) || defined(_MIPS_ISA_MIPS2) || \ + defined(_MIPS_ISA_MIPS3) || defined(_MIPS_ISA_MIPS4) || \ + defined(__mips) || defined(__MIPS__) +#define DUK_F_MIPS +#if defined(__LP64__) || defined(_LP64) || defined(__mips64) || \ + defined(__mips64__) || defined(__mips_n64) +#define DUK_F_MIPS64 +#else +#define DUK_F_MIPS32 +#endif +#endif + +/* SPARC */ +#if defined(sparc) || defined(__sparc) || defined(__sparc__) +#define DUK_F_SPARC +#if defined(__LP64__) || defined(_LP64) +#define DUK_F_SPARC64 +#else +#define DUK_F_SPARC32 +#endif +#endif + +/* RISC-V, https://github.com/riscv/riscv-toolchain-conventions#cc-preprocessor-definitions */ +#if defined(__riscv) +#define DUK_F_RISCV +#if defined(__riscv_xlen) +#if (__riscv_xlen == 32) +#define DUK_F_RISCV32 +#elif (__riscv_xlen == 64) +#define DUK_F_RISCV64 +#else +#error __riscv_xlen has unsupported value (not 32 or 64) +#endif +#else +#error __riscv defined without __riscv_xlen +#endif +#endif /* __riscv */ + +/* SuperH */ +#if defined(__sh__) || \ + defined(__sh1__) || defined(__SH1__) || \ + defined(__sh2__) || defined(__SH2__) || \ + defined(__sh3__) || defined(__SH3__) || \ + defined(__sh4__) || defined(__SH4__) || \ + defined(__sh5__) || defined(__SH5__) +#define DUK_F_SUPERH +#endif + +/* Clang */ +#if defined(__clang__) +#define DUK_F_CLANG +#endif + +/* C++ */ +#undef DUK_F_CPP +#if defined(__cplusplus) +#define DUK_F_CPP +#endif + +/* C99 or above */ +#undef DUK_F_C99 +#if defined(__STDC_VERSION__) && (__STDC_VERSION__ >= 199901L) +#define DUK_F_C99 +#endif + +/* C++11 or above */ +#undef DUK_F_CPP11 +#if defined(__cplusplus) && (__cplusplus >= 201103L) +#define DUK_F_CPP11 +#endif + +/* GCC. Clang also defines __GNUC__ so don't detect GCC if using Clang. */ +#if defined(__GNUC__) && !defined(__clang__) && !defined(DUK_F_CLANG) +#define DUK_F_GCC +#if defined(__GNUC__) && defined(__GNUC_MINOR__) && defined(__GNUC_PATCHLEVEL__) +/* Convenience, e.g. gcc 4.5.1 == 40501; http://stackoverflow.com/questions/6031819/emulating-gccs-builtin-unreachable */ +#define DUK_F_GCC_VERSION (__GNUC__ * 10000L + __GNUC_MINOR__ * 100L + __GNUC_PATCHLEVEL__) +#else +#error cannot figure out gcc version +#endif +#endif + +/* MinGW. Also GCC flags (DUK_F_GCC) are enabled now. */ +#if defined(__MINGW32__) || defined(__MINGW64__) +#define DUK_F_MINGW +#endif + +/* MSVC */ +#if defined(_MSC_VER) +/* MSVC preprocessor defines: http://msdn.microsoft.com/en-us/library/b0084kay.aspx + * _MSC_FULL_VER includes the build number, but it has at least two formats, see e.g. + * BOOST_MSVC_FULL_VER in http://www.boost.org/doc/libs/1_52_0/boost/config/compiler/visualc.hpp + */ +#define DUK_F_MSVC +#if defined(_MSC_FULL_VER) +#if (_MSC_FULL_VER > 100000000) +#define DUK_F_MSVC_FULL_VER _MSC_FULL_VER +#else +#define DUK_F_MSCV_FULL_VER (_MSC_FULL_VER * 10) +#endif +#endif +#endif /* _MSC_VER */ + +/* TinyC */ +#if defined(__TINYC__) +/* http://bellard.org/tcc/tcc-doc.html#SEC9 */ +#define DUK_F_TINYC +#endif + +/* VBCC */ +#if defined(__VBCC__) +#define DUK_F_VBCC +#endif + +/* Atari Mint */ +#if defined(__MINT__) +#define DUK_F_MINT +#endif + +/* + * Platform autodetection + */ + +/* Workaround for older C++ compilers before including , + * see e.g.: https://sourceware.org/bugzilla/show_bug.cgi?id=15366 + */ +#if defined(__cplusplus) && !defined(__STDC_LIMIT_MACROS) +#define __STDC_LIMIT_MACROS +#endif +#if defined(__cplusplus) && !defined(__STDC_CONSTANT_MACROS) +#define __STDC_CONSTANT_MACROS +#endif + +#if defined(DUK_F_APPLE) +/* --- Mac OSX, iPhone, Darwin --- */ +#define DUK_USE_DATE_NOW_GETTIMEOFDAY +#define DUK_USE_DATE_TZO_GMTIME_R +#define DUK_USE_DATE_PRS_STRPTIME +#define DUK_USE_DATE_FMT_STRFTIME +#include +#include +#include +#include +#include + +/* http://stackoverflow.com/questions/5919996/how-to-detect-reliably-mac-os-x-ios-linux-windows-in-c-preprocessor */ +#if TARGET_IPHONE_SIMULATOR +#define DUK_USE_OS_STRING "iphone-sim" +#elif TARGET_OS_IPHONE +#define DUK_USE_OS_STRING "iphone" +#elif TARGET_OS_MAC +#define DUK_USE_OS_STRING "osx" +#else +#define DUK_USE_OS_STRING "osx-unknown" +#endif + +/* Use _setjmp() on Apple by default, see GH-55. */ +#define DUK_JMPBUF_TYPE jmp_buf +#define DUK_SETJMP(jb) _setjmp((jb)) +#define DUK_LONGJMP(jb) _longjmp((jb), 1) +#elif defined(DUK_F_ORBIS) +/* --- Orbis --- */ +/* Orbis = PS4 */ +#define DUK_USE_DATE_NOW_GETTIMEOFDAY +#define DUK_USE_DATE_TZO_GMTIME_S +/* no parsing (not an error) */ +#define DUK_USE_DATE_FMT_STRFTIME +#include +#include +#include +#include +#include + +#define DUK_USE_OS_STRING "orbis" +#elif defined(DUK_F_OPENBSD) +/* --- OpenBSD --- */ +/* http://www.monkey.org/openbsd/archive/ports/0401/msg00089.html */ +#define DUK_USE_DATE_NOW_GETTIMEOFDAY +#define DUK_USE_DATE_TZO_GMTIME_R +#define DUK_USE_DATE_PRS_STRPTIME +#define DUK_USE_DATE_FMT_STRFTIME +#include +#include +#include +#include +#include + +#define DUK_USE_OS_STRING "openbsd" +#elif defined(DUK_F_BSD) +/* --- Generic BSD --- */ +#define DUK_USE_DATE_NOW_GETTIMEOFDAY +#define DUK_USE_DATE_TZO_GMTIME_R +#define DUK_USE_DATE_PRS_STRPTIME +#define DUK_USE_DATE_FMT_STRFTIME +#include +#include +#include +#include +#include + +#define DUK_USE_OS_STRING "bsd" +#elif defined(DUK_F_TOS) +/* --- Atari ST TOS --- */ +#define DUK_USE_DATE_NOW_TIME +#define DUK_USE_DATE_TZO_GMTIME +/* no parsing (not an error) */ +#define DUK_USE_DATE_FMT_STRFTIME +#include + +#define DUK_USE_OS_STRING "tos" + +/* TOS on M68K is always big endian. */ +#if !defined(DUK_USE_BYTEORDER) && defined(DUK_F_M68K) +#define DUK_USE_BYTEORDER 3 +#endif +#elif defined(DUK_F_AMIGAOS) +/* --- AmigaOS --- */ +#if defined(DUK_F_M68K) +/* AmigaOS on M68k */ +#define DUK_USE_DATE_NOW_TIME +#define DUK_USE_DATE_TZO_GMTIME +/* no parsing (not an error) */ +#define DUK_USE_DATE_FMT_STRFTIME +#include +#elif defined(DUK_F_PPC) +#define DUK_USE_DATE_NOW_GETTIMEOFDAY +#define DUK_USE_DATE_TZO_GMTIME_R +#define DUK_USE_DATE_PRS_STRPTIME +#define DUK_USE_DATE_FMT_STRFTIME +#include +#if !defined(UINTPTR_MAX) +#define UINTPTR_MAX UINT_MAX +#endif +#else +#error AmigaOS but not M68K/PPC, not supported now +#endif + +#define DUK_USE_OS_STRING "amigaos" + +/* AmigaOS on M68K or PPC is always big endian. */ +#if !defined(DUK_USE_BYTEORDER) && (defined(DUK_F_M68K) || defined(DUK_F_PPC)) +#define DUK_USE_BYTEORDER 3 +#endif +#elif defined(DUK_F_DURANGO) +/* --- Durango (XboxOne) --- */ +/* Durango = XboxOne + * Configuration is nearly identical to Windows, except for + * DUK_USE_DATE_TZO_WINDOWS. + */ + +/* Initial fix: disable secure CRT related warnings when compiling Duktape + * itself (must be defined before including Windows headers). Don't define + * for user code including duktape.h. + */ +#if defined(DUK_COMPILING_DUKTAPE) && !defined(_CRT_SECURE_NO_WARNINGS) +#define _CRT_SECURE_NO_WARNINGS +#endif + +/* MSVC does not have sys/param.h */ +#define DUK_USE_DATE_NOW_WINDOWS +#define DUK_USE_DATE_TZO_WINDOWS_NO_DST +/* Note: PRS and FMT are intentionally left undefined for now. This means + * there is no platform specific date parsing/formatting but there is still + * the ISO 8601 standard format. + */ +#if defined(DUK_COMPILING_DUKTAPE) +/* Only include when compiling Duktape to avoid polluting application build + * with a lot of unnecessary defines. + */ +#include +#endif + +#define DUK_USE_OS_STRING "durango" + +#if !defined(DUK_USE_BYTEORDER) +#define DUK_USE_BYTEORDER 1 +#endif +#elif defined(DUK_F_WINDOWS) +/* --- Windows --- */ +/* Windows version can't obviously be determined at compile time, + * but _WIN32_WINNT indicates the minimum version targeted: + * - https://msdn.microsoft.com/en-us/library/6sehtctf.aspx + */ + +/* Initial fix: disable secure CRT related warnings when compiling Duktape + * itself (must be defined before including Windows headers). Don't define + * for user code including duktape.h. + */ +#if defined(DUK_COMPILING_DUKTAPE) && !defined(_CRT_SECURE_NO_WARNINGS) +#define _CRT_SECURE_NO_WARNINGS +#endif + +/* Windows 32-bit and 64-bit are currently the same. */ +/* MSVC does not have sys/param.h */ + +#if defined(DUK_COMPILING_DUKTAPE) +/* Only include when compiling Duktape to avoid polluting application build + * with a lot of unnecessary defines. + */ +#include +#endif + +/* GetSystemTimePreciseAsFileTime() available from Windows 8: + * https://msdn.microsoft.com/en-us/library/windows/desktop/hh706895(v=vs.85).aspx + */ +#if defined(DUK_USE_DATE_NOW_WINDOWS_SUBMS) || defined(DUK_USE_DATE_NOW_WINDOWS) +/* User forced provider. */ +#else +#if defined(_WIN32_WINNT) && (_WIN32_WINNT >= 0x0602) +#define DUK_USE_DATE_NOW_WINDOWS_SUBMS +#else +#define DUK_USE_DATE_NOW_WINDOWS +#endif +#endif + +#define DUK_USE_DATE_TZO_WINDOWS + +/* Note: PRS and FMT are intentionally left undefined for now. This means + * there is no platform specific date parsing/formatting but there is still + * the ISO 8601 standard format. + */ + +/* QueryPerformanceCounter() may go backwards in Windows XP, so enable for + * Vista and later: https://msdn.microsoft.com/en-us/library/windows/desktop/dn553408(v=vs.85).aspx#qpc_support_in_windows_versions + */ +#if !defined(DUK_USE_GET_MONOTONIC_TIME_WINDOWS_QPC) && \ + defined(_WIN32_WINNT) && (_WIN32_WINNT >= 0x0600) +#define DUK_USE_GET_MONOTONIC_TIME_WINDOWS_QPC +#endif + +#define DUK_USE_OS_STRING "windows" + +/* On Windows, assume we're little endian. Even Itanium which has a + * configurable endianness runs little endian in Windows. + */ +#if !defined(DUK_USE_BYTEORDER) +#define DUK_USE_BYTEORDER 1 +#endif +#elif defined(DUK_F_FLASHPLAYER) +/* --- Flashplayer (Crossbridge) --- */ +#define DUK_USE_DATE_NOW_GETTIMEOFDAY +#define DUK_USE_DATE_TZO_GMTIME_R +#define DUK_USE_DATE_PRS_STRPTIME +#define DUK_USE_DATE_FMT_STRFTIME +#include +#include +#include +#include + +#define DUK_USE_OS_STRING "flashplayer" + +#if !defined(DUK_USE_BYTEORDER) && defined(DUK_F_FLASHPLAYER) +#define DUK_USE_BYTEORDER 1 +#endif +#elif defined(DUK_F_QNX) +/* --- QNX --- */ +#if defined(DUK_F_QNX) && defined(DUK_COMPILING_DUKTAPE) +/* See: /opt/qnx650/target/qnx6/usr/include/sys/platform.h */ +#define _XOPEN_SOURCE 600 +#define _POSIX_C_SOURCE 200112L +#endif + +#define DUK_USE_DATE_NOW_GETTIMEOFDAY +#define DUK_USE_DATE_TZO_GMTIME_R +#define DUK_USE_DATE_PRS_STRPTIME +#define DUK_USE_DATE_FMT_STRFTIME +#include +#include +#include +#include + +#define DUK_USE_OS_STRING "qnx" +#elif defined(DUK_F_TINSPIRE) +/* --- TI-Nspire --- */ +#if defined(DUK_COMPILING_DUKTAPE) && !defined(_XOPEN_SOURCE) +#define _XOPEN_SOURCE /* e.g. strptime */ +#endif + +#define DUK_USE_DATE_NOW_GETTIMEOFDAY +#define DUK_USE_DATE_TZO_GMTIME_R +#define DUK_USE_DATE_PRS_STRPTIME +#define DUK_USE_DATE_FMT_STRFTIME +#include +#include +#include +#include + +#define DUK_USE_OS_STRING "tinspire" +#elif defined(DUK_F_EMSCRIPTEN) +/* --- Emscripten --- */ +#if defined(DUK_COMPILING_DUKTAPE) +#if !defined(_POSIX_C_SOURCE) +#define _POSIX_C_SOURCE 200809L +#endif +#if !defined(_GNU_SOURCE) +#define _GNU_SOURCE /* e.g. getdate_r */ +#endif +#if !defined(_XOPEN_SOURCE) +#define _XOPEN_SOURCE /* e.g. strptime */ +#endif +#endif /* DUK_COMPILING_DUKTAPE */ + +#include +#if defined(DUK_F_BCC) +/* no endian.h */ +#else +#include +#endif /* DUK_F_BCC */ +#include +#include +#include +#include + +#define DUK_USE_DATE_NOW_GETTIMEOFDAY +#define DUK_USE_DATE_TZO_GMTIME_R +#define DUK_USE_DATE_PRS_STRPTIME +#define DUK_USE_DATE_FMT_STRFTIME + +#define DUK_USE_OS_STRING "emscripten" +#elif defined(DUK_F_ANDROID) +/* --- Android --- */ +#if defined(DUK_COMPILING_DUKTAPE) +#if !defined(_POSIX_C_SOURCE) +#define _POSIX_C_SOURCE 200809L +#endif +#if !defined(_GNU_SOURCE) +#define _GNU_SOURCE /* e.g. getdate_r */ +#endif +#if !defined(_XOPEN_SOURCE) +#define _XOPEN_SOURCE /* e.g. strptime */ +#endif +#endif /* DUK_COMPILING_DUKTAPE */ + +#include +#if defined(DUK_F_BCC) +/* no endian.h or stdint.h */ +#else +#include +#include +#endif /* DUK_F_BCC */ +#include +#include +#include + +#define DUK_USE_DATE_NOW_GETTIMEOFDAY +#define DUK_USE_DATE_TZO_GMTIME_R +#define DUK_USE_DATE_PRS_STRPTIME +#define DUK_USE_DATE_FMT_STRFTIME + +#if 0 /* XXX: safe condition? */ +#define DUK_USE_GET_MONOTONIC_TIME_CLOCK_GETTIME +#endif + +#define DUK_USE_OS_STRING "android" +#elif defined(DUK_F_LINUX) +/* --- Linux --- */ +#if defined(DUK_COMPILING_DUKTAPE) +#if !defined(_POSIX_C_SOURCE) +#define _POSIX_C_SOURCE 200809L +#endif +#if !defined(_GNU_SOURCE) +#define _GNU_SOURCE /* e.g. getdate_r */ +#endif +#if !defined(_XOPEN_SOURCE) +#define _XOPEN_SOURCE /* e.g. strptime */ +#endif +#endif /* DUK_COMPILING_DUKTAPE */ + +#include +#if defined(DUK_F_BCC) +/* no endian.h or stdint.h */ +#else +#include +#include +#endif /* DUK_F_BCC */ +#include +#include +#include + +#define DUK_USE_DATE_NOW_GETTIMEOFDAY +#define DUK_USE_DATE_TZO_GMTIME_R +#define DUK_USE_DATE_PRS_STRPTIME +#define DUK_USE_DATE_FMT_STRFTIME + +#if 0 /* XXX: safe condition? */ +#define DUK_USE_GET_MONOTONIC_TIME_CLOCK_GETTIME +#endif + +#define DUK_USE_OS_STRING "linux" +#elif defined(DUK_F_SUN) +/* --- Solaris --- */ +#define DUK_USE_DATE_NOW_GETTIMEOFDAY +#define DUK_USE_DATE_TZO_GMTIME_R +#define DUK_USE_DATE_PRS_STRPTIME +#define DUK_USE_DATE_FMT_STRFTIME + +#include +#if defined(DUK_F_OLD_SOLARIS) +/* Old Solaris with no endian.h, stdint.h */ +#define DUK_F_NO_STDINT_H +#if !defined(DUK_USE_BYTEORDER) +#define DUK_USE_BYTEORDER 3 +#endif +#else /* DUK_F_OLD_SOLARIS */ +#include +#endif /* DUK_F_OLD_SOLARIS */ + +#include +#include +#include + +#define DUK_USE_OS_STRING "solaris" +#elif defined(DUK_F_AIX) +/* --- AIX --- */ +#if !defined(DUK_USE_BYTEORDER) +#define DUK_USE_BYTEORDER 3 +#endif +#define DUK_USE_DATE_NOW_GETTIMEOFDAY +#define DUK_USE_DATE_TZO_GMTIME_R +#define DUK_USE_DATE_PRS_STRPTIME +#define DUK_USE_DATE_FMT_STRFTIME +#include +#include +#include + +#define DUK_USE_OS_STRING "aix" +#elif defined(DUK_F_HPUX) +/* --- HPUX --- */ +#define DUK_F_NO_STDINT_H +#if !defined(DUK_USE_BYTEORDER) +#define DUK_USE_BYTEORDER 3 +#endif +#define DUK_USE_DATE_NOW_GETTIMEOFDAY +#define DUK_USE_DATE_TZO_GMTIME_R +#define DUK_USE_DATE_PRS_STRPTIME +#define DUK_USE_DATE_FMT_STRFTIME +#include +#include +#include + +#define DUK_USE_OS_STRING "hpux" +#elif defined(DUK_F_POSIX) +/* --- Generic POSIX --- */ +#define DUK_USE_DATE_NOW_GETTIMEOFDAY +#define DUK_USE_DATE_TZO_GMTIME_R +#define DUK_USE_DATE_PRS_STRPTIME +#define DUK_USE_DATE_FMT_STRFTIME +#include +#include +#include +#include +#include + +#define DUK_USE_OS_STRING "posix" +#elif defined(DUK_F_CYGWIN) +/* --- Cygwin --- */ +/* don't use strptime() for now */ +#define DUK_USE_DATE_NOW_GETTIMEOFDAY +#define DUK_USE_DATE_TZO_GMTIME_R +#define DUK_USE_DATE_FMT_STRFTIME +#include +#include +#include +#include +#include + +#define DUK_JMPBUF_TYPE jmp_buf +#define DUK_SETJMP(jb) _setjmp((jb)) +#define DUK_LONGJMP(jb) _longjmp((jb), 1) + +#define DUK_USE_OS_STRING "windows" +#elif defined(DUK_F_UNIX) +/* --- Generic UNIX --- */ +#define DUK_USE_DATE_NOW_GETTIMEOFDAY +#define DUK_USE_DATE_TZO_GMTIME_R +#define DUK_USE_DATE_PRS_STRPTIME +#define DUK_USE_DATE_FMT_STRFTIME +#include +#include +#define DUK_USE_OS_STRING "unknown" +#else +/* --- Generic fallback --- */ +/* The most portable current time provider is time(), but it only has a + * one second resolution. + */ +#define DUK_USE_DATE_NOW_TIME + +/* The most portable way to figure out local time offset is gmtime(), + * but it's not thread safe so use with caution. + */ +#define DUK_USE_DATE_TZO_GMTIME + +/* Avoid custom date parsing and formatting for portability. */ +#undef DUK_USE_DATE_PRS_STRPTIME +#undef DUK_USE_DATE_FMT_STRFTIME + +/* Rely on C89 headers only; time.h must be here. */ +#include + +#define DUK_USE_OS_STRING "unknown" +#endif /* autodetect platform */ + +/* Shared includes: C89 */ +#include +#include +#include +#include /* varargs */ +#include +#include /* e.g. ptrdiff_t */ +#include +#include + +/* date.h is omitted, and included per platform */ + +/* Shared includes: stdint.h is C99 */ +#if defined(DUK_F_NO_STDINT_H) +/* stdint.h not available */ +#else +/* Technically C99 (C++11) but found in many systems. On some systems + * __STDC_LIMIT_MACROS and __STDC_CONSTANT_MACROS must be defined before + * including stdint.h (see above). + */ +#include +#endif + +/* is only included if needed, based on DUK_USE_xxx flags. */ + +/* + * Architecture autodetection + */ + +#if defined(DUK_F_X86) +/* --- x86 --- */ +#define DUK_USE_ARCH_STRING "x86" +#if !defined(DUK_USE_BYTEORDER) +#define DUK_USE_BYTEORDER 1 +#endif + +#define DUK_USE_PACKED_TVAL + +/* FreeBSD, -m32, and clang prior to 5.0 has union aliasing issues which + * break duk_tval copying. Disable packed duk_tval automatically. + */ +#if defined(DUK_F_FREEBSD) && defined(DUK_F_X86) && \ + defined(__clang__) && defined(__clang_major__) && (__clang_major__ < 5) +#undef DUK_USE_PACKED_TVAL +#endif +#define DUK_F_PACKED_TVAL_PROVIDED +#elif defined(DUK_F_X64) +/* --- x64 --- */ +#define DUK_USE_ARCH_STRING "x64" +#if !defined(DUK_USE_BYTEORDER) +#define DUK_USE_BYTEORDER 1 +#endif +#undef DUK_USE_PACKED_TVAL +#define DUK_F_PACKED_TVAL_PROVIDED +#elif defined(DUK_F_X32) +/* --- x32 --- */ +#define DUK_USE_ARCH_STRING "x32" +#if !defined(DUK_USE_BYTEORDER) +#define DUK_USE_BYTEORDER 1 +#endif +#define DUK_USE_PACKED_TVAL +#define DUK_F_PACKED_TVAL_PROVIDED +#elif defined(DUK_F_ARM32) +/* --- ARM 32-bit --- */ +#define DUK_USE_ARCH_STRING "arm32" +/* Byte order varies, so rely on autodetect. */ +#define DUK_USE_PACKED_TVAL +#define DUK_F_PACKED_TVAL_PROVIDED +#elif defined(DUK_F_ARM64) +/* --- ARM 64-bit --- */ +#define DUK_USE_ARCH_STRING "arm64" +/* Byte order varies, so rely on autodetect. */ +#undef DUK_USE_PACKED_TVAL +#define DUK_F_PACKED_TVAL_PROVIDED +#elif defined(DUK_F_MIPS32) +/* --- MIPS 32-bit --- */ +#define DUK_USE_ARCH_STRING "mips32" +/* MIPS byte order varies so rely on autodetection. */ +#define DUK_USE_PACKED_TVAL +#define DUK_F_PACKED_TVAL_PROVIDED +#elif defined(DUK_F_MIPS64) +/* --- MIPS 64-bit --- */ +#define DUK_USE_ARCH_STRING "mips64" +/* MIPS byte order varies so rely on autodetection. */ +#undef DUK_USE_PACKED_TVAL +#define DUK_F_PACKED_TVAL_PROVIDED +#elif defined(DUK_F_PPC32) +/* --- PowerPC 32-bit --- */ +#define DUK_USE_ARCH_STRING "ppc32" +#if !defined(DUK_USE_BYTEORDER) +#define DUK_USE_BYTEORDER 3 +#endif +#define DUK_USE_PACKED_TVAL +#define DUK_F_PACKED_TVAL_PROVIDED +#elif defined(DUK_F_PPC64) +/* --- PowerPC 64-bit --- */ +#define DUK_USE_ARCH_STRING "ppc64" +#if !defined(DUK_USE_BYTEORDER) +#define DUK_USE_BYTEORDER 3 +#endif +#undef DUK_USE_PACKED_TVAL +#define DUK_F_PACKED_TVAL_PROVIDED +#elif defined(DUK_F_SPARC32) +/* --- SPARC 32-bit --- */ +#define DUK_USE_ARCH_STRING "sparc32" +/* SPARC byte order varies so rely on autodetection. */ +#define DUK_USE_PACKED_TVAL +#define DUK_F_PACKED_TVAL_PROVIDED +#elif defined(DUK_F_SPARC64) +/* --- SPARC 64-bit --- */ +#define DUK_USE_ARCH_STRING "sparc64" +/* SPARC byte order varies so rely on autodetection. */ +#undef DUK_USE_PACKED_TVAL +#define DUK_F_PACKED_TVAL_PROVIDED +#elif defined(DUK_F_RISCV32) +/* --- RISC-V 32-bit --- */ +#define DUK_USE_ARCH_STRING "riscv32" +#define DUK_USE_BYTEORDER 1 +#define DUK_USE_PACKED_TVAL +#define DUK_F_PACKED_TVAL_PROVIDED +#elif defined(DUK_F_RISCV64) +/* --- RISC-V 64-bit --- */ +#define DUK_USE_ARCH_STRING "riscv64" +#define DUK_USE_BYTEORDER 1 +#undef DUK_USE_PACKED_TVAL +#define DUK_F_PACKED_TVAL_PROVIDED +#elif defined(DUK_F_SUPERH) +/* --- SuperH --- */ +#define DUK_USE_ARCH_STRING "sh" +/* Byte order varies, rely on autodetection. */ +#define DUK_USE_PACKED_TVAL +#define DUK_F_PACKED_TVAL_PROVIDED +#elif defined(DUK_F_M68K) +/* --- Motorola 68k --- */ +#define DUK_USE_ARCH_STRING "m68k" +#if !defined(DUK_USE_BYTEORDER) +#define DUK_USE_BYTEORDER 3 +#endif +#define DUK_USE_PACKED_TVAL +#define DUK_F_PACKED_TVAL_PROVIDED +#elif defined(DUK_F_EMSCRIPTEN) +/* --- Emscripten --- */ +#define DUK_USE_ARCH_STRING "emscripten" +#if !defined(DUK_USE_BYTEORDER) +#define DUK_USE_BYTEORDER 1 +#endif +#undef DUK_USE_PACKED_TVAL +#define DUK_F_PACKED_TVAL_PROVIDED +#else +/* --- Generic --- */ +/* These are necessary wild guesses. */ +#define DUK_USE_ARCH_STRING "generic" +/* Rely on autodetection for byte order, alignment, and packed tval. */ +#endif /* autodetect architecture */ + +/* + * Compiler autodetection + */ + +#if defined(DUK_F_CLANG) +/* --- Clang --- */ +#if defined(DUK_F_C99) || defined(DUK_F_CPP11) +/* C99 / C++11 and above: rely on va_copy() which is required. */ +#define DUK_VA_COPY(dest,src) va_copy(dest,src) +#else +/* Clang: assume we have __va_copy() in non-C99 mode. */ +#define DUK_VA_COPY(dest,src) __va_copy(dest,src) +#endif + +#define DUK_NORETURN(decl) decl __attribute__((noreturn)) + +#if defined(__clang__) && defined(__has_builtin) +#if __has_builtin(__builtin_unreachable) +#define DUK_UNREACHABLE() do { __builtin_unreachable(); } while (0) +#endif +#endif + +#define DUK_USE_BRANCH_HINTS +#define DUK_LIKELY(x) __builtin_expect((x), 1) +#define DUK_UNLIKELY(x) __builtin_expect((x), 0) +#if defined(__clang__) && defined(__has_builtin) +#if __has_builtin(__builtin_unpredictable) +#define DUK_UNPREDICTABLE(x) __builtin_unpredictable((x)) +#endif +#endif + +#if defined(DUK_F_C99) || defined(DUK_F_CPP11) +#define DUK_NOINLINE __attribute__((noinline)) +#define DUK_INLINE inline +#define DUK_ALWAYS_INLINE inline __attribute__((always_inline)) +#endif + +/* DUK_HOT */ +/* DUK_COLD */ + +#if defined(DUK_F_DLL_BUILD) && defined(DUK_F_WINDOWS) +/* MSVC dllexport/dllimport: appropriate __declspec depends on whether we're + * compiling Duktape or the application. + */ +#if defined(DUK_COMPILING_DUKTAPE) +#define DUK_EXTERNAL_DECL extern __declspec(dllexport) +#define DUK_EXTERNAL __declspec(dllexport) +#else +#define DUK_EXTERNAL_DECL extern __declspec(dllimport) +#define DUK_EXTERNAL should_not_happen +#endif +#if defined(DUK_SINGLE_FILE) +#define DUK_INTERNAL_DECL static +#define DUK_INTERNAL static +#else +#define DUK_INTERNAL_DECL extern +#define DUK_INTERNAL /*empty*/ +#endif +#define DUK_LOCAL_DECL static +#define DUK_LOCAL static +#else +#define DUK_EXTERNAL_DECL __attribute__ ((visibility("default"))) extern +#define DUK_EXTERNAL __attribute__ ((visibility("default"))) +#if defined(DUK_SINGLE_FILE) +#if (defined(DUK_F_GCC_VERSION) && DUK_F_GCC_VERSION >= 30101) || defined(DUK_F_CLANG) +/* Minimize warnings for unused internal functions with GCC >= 3.1.1 and + * Clang. Based on documentation it should suffice to have the attribute + * in the declaration only, but in practice some warnings are generated unless + * the attribute is also applied to the definition. + */ +#define DUK_INTERNAL_DECL static __attribute__ ((unused)) +#define DUK_INTERNAL static __attribute__ ((unused)) +#else +#define DUK_INTERNAL_DECL static +#define DUK_INTERNAL static +#endif +#else +#if (defined(DUK_F_GCC_VERSION) && DUK_F_GCC_VERSION >= 30101) || defined(DUK_F_CLANG) +#define DUK_INTERNAL_DECL __attribute__ ((visibility("hidden"))) __attribute__ ((unused)) extern +#define DUK_INTERNAL __attribute__ ((visibility("hidden"))) __attribute__ ((unused)) +#else +#define DUK_INTERNAL_DECL __attribute__ ((visibility("hidden"))) extern +#define DUK_INTERNAL __attribute__ ((visibility("hidden"))) +#endif +#endif +#define DUK_LOCAL_DECL static +#define DUK_LOCAL static +#endif + +#if defined(DUK_F_CPP) +#define DUK_USE_COMPILER_STRING "clang" +#else +#define DUK_USE_COMPILER_STRING "clang" +#endif + +#undef DUK_USE_VARIADIC_MACROS +#if defined(DUK_F_C99) || defined(DUK_F_CPP11) +#define DUK_USE_VARIADIC_MACROS +#endif + +#define DUK_USE_UNION_INITIALIZERS + +#undef DUK_USE_FLEX_C99 +#undef DUK_USE_FLEX_ZEROSIZE +#undef DUK_USE_FLEX_ONESIZE +#if defined(DUK_F_C99) +#define DUK_USE_FLEX_C99 +#else +#define DUK_USE_FLEX_ZEROSIZE +#endif + +#define DUK_USE_CLANG_PRAGMAS +#define DUK_USE_PACK_CLANG_ATTR + +#if defined(__clang__) && defined(__has_builtin) +#if __has_builtin(__builtin_bswap64) +#define DUK_BSWAP64(x) ((duk_uint64_t) __builtin_bswap64((duk_uint64_t) (x))) +#endif +#if __has_builtin(__builtin_bswap32) +#define DUK_BSWAP32(x) ((duk_uint32_t) __builtin_bswap32((duk_uint32_t) (x))) +#endif +#if __has_builtin(__builtin_bswap16) +#define DUK_BSWAP16(x) ((duk_uint16_t) __builtin_bswap16((duk_uint16_t) (x))) +#endif +#endif +#elif defined(DUK_F_GCC) +/* --- GCC --- */ +#if defined(DUK_F_C99) || defined(DUK_F_CPP11) +/* C99 / C++11 and above: rely on va_copy() which is required. */ +#define DUK_VA_COPY(dest,src) va_copy(dest,src) +#else +/* GCC: assume we have __va_copy() in non-C99 mode. */ +#define DUK_VA_COPY(dest,src) __va_copy(dest,src) +#endif + +#if defined(DUK_F_GCC_VERSION) && (DUK_F_GCC_VERSION >= 20500L) && (DUK_F_GCC_VERSION < 50000L) +/* Since gcc-2.5. + * + * Disabled temporarily in GCC 5+ because of an unresolved noreturn-related + * issue: https://github.com/svaarala/duktape/issues/2155. + */ +#define DUK_NORETURN(decl) decl __attribute__((noreturn)) +#endif + +#if defined(DUK_F_GCC_VERSION) && (DUK_F_GCC_VERSION >= 40500L) +/* Since gcc-4.5. */ +#define DUK_UNREACHABLE() do { __builtin_unreachable(); } while (0) +#endif + +#define DUK_USE_BRANCH_HINTS +#if defined(DUK_F_GCC_VERSION) && (DUK_F_GCC_VERSION >= 40500L) +/* GCC: test not very accurate; enable only in relatively recent builds + * because of bugs in gcc-4.4 (http://lists.debian.org/debian-gcc/2010/04/msg00000.html) + */ +#define DUK_LIKELY(x) __builtin_expect((x), 1) +#define DUK_UNLIKELY(x) __builtin_expect((x), 0) +#endif +/* XXX: equivalent of clang __builtin_unpredictable? */ + +#if (defined(DUK_F_C99) || defined(DUK_F_CPP11)) && \ + defined(DUK_F_GCC_VERSION) && (DUK_F_GCC_VERSION >= 30101) +#define DUK_NOINLINE __attribute__((noinline)) +#define DUK_INLINE inline +#define DUK_ALWAYS_INLINE inline __attribute__((always_inline)) +#endif + +#if (defined(DUK_F_C99) || defined(DUK_F_CPP11)) && \ + defined(DUK_F_GCC_VERSION) && (DUK_F_GCC_VERSION >= 40300) +#define DUK_HOT __attribute__((hot)) +#define DUK_COLD __attribute__((cold)) +#endif + +#if defined(DUK_F_DLL_BUILD) && defined(DUK_F_WINDOWS) +/* MSVC dllexport/dllimport: appropriate __declspec depends on whether we're + * compiling Duktape or the application. + */ +#if defined(DUK_COMPILING_DUKTAPE) +#define DUK_EXTERNAL_DECL extern __declspec(dllexport) +#define DUK_EXTERNAL __declspec(dllexport) +#else +#define DUK_EXTERNAL_DECL extern __declspec(dllimport) +#define DUK_EXTERNAL should_not_happen +#endif +#if defined(DUK_SINGLE_FILE) +#define DUK_INTERNAL_DECL static +#define DUK_INTERNAL static +#else +#define DUK_INTERNAL_DECL extern +#define DUK_INTERNAL /*empty*/ +#endif +#define DUK_LOCAL_DECL static +#define DUK_LOCAL static +#elif defined(DUK_F_GCC_VERSION) && (DUK_F_GCC_VERSION >= 40000) +#define DUK_EXTERNAL_DECL __attribute__ ((visibility("default"))) extern +#define DUK_EXTERNAL __attribute__ ((visibility("default"))) +#if defined(DUK_SINGLE_FILE) +#if (defined(DUK_F_GCC_VERSION) && DUK_F_GCC_VERSION >= 30101) || defined(DUK_F_CLANG) +/* Minimize warnings for unused internal functions with GCC >= 3.1.1 and + * Clang. Based on documentation it should suffice to have the attribute + * in the declaration only, but in practice some warnings are generated unless + * the attribute is also applied to the definition. + */ +#define DUK_INTERNAL_DECL static __attribute__ ((unused)) +#define DUK_INTERNAL static __attribute__ ((unused)) +#else +#define DUK_INTERNAL_DECL static +#define DUK_INTERNAL static +#endif +#else +#if (defined(DUK_F_GCC_VERSION) && DUK_F_GCC_VERSION >= 30101) || defined(DUK_F_CLANG) +#define DUK_INTERNAL_DECL __attribute__ ((visibility("hidden"))) __attribute__ ((unused)) extern +#define DUK_INTERNAL __attribute__ ((visibility("hidden"))) __attribute__ ((unused)) +#else +#define DUK_INTERNAL_DECL __attribute__ ((visibility("hidden"))) extern +#define DUK_INTERNAL __attribute__ ((visibility("hidden"))) +#endif +#endif +#define DUK_LOCAL_DECL static +#define DUK_LOCAL static +#endif + +#if defined(DUK_F_MINGW) +#if defined(DUK_F_CPP) +#define DUK_USE_COMPILER_STRING "mingw++" +#else +#define DUK_USE_COMPILER_STRING "mingw" +#endif +#else +#if defined(DUK_F_CPP) +#define DUK_USE_COMPILER_STRING "g++" +#else +#define DUK_USE_COMPILER_STRING "gcc" +#endif +#endif + +#undef DUK_USE_VARIADIC_MACROS +#if defined(DUK_F_C99) || (defined(DUK_F_CPP11) && defined(__GNUC__)) +#define DUK_USE_VARIADIC_MACROS +#endif + +#define DUK_USE_UNION_INITIALIZERS + +#undef DUK_USE_FLEX_C99 +#undef DUK_USE_FLEX_ZEROSIZE +#undef DUK_USE_FLEX_ONESIZE +#if defined(DUK_F_C99) +#define DUK_USE_FLEX_C99 +#else +#define DUK_USE_FLEX_ZEROSIZE +#endif + +/* Since 4.6 one can '#pragma GCC diagnostic push/pop'. */ +#if defined(DUK_F_GCC_VERSION) && (DUK_F_GCC_VERSION >= 40600) +#define DUK_USE_GCC_PRAGMAS +#else +#undef DUK_USE_GCC_PRAGMAS +#endif + +#define DUK_USE_PACK_GCC_ATTR + +/* Availability varies based on platform (between GCC 4.4 and 4.8), and there + * are apparently some bugs in GCC 4.x. Check for GCC 5.0 before enabling + * these to be safe. + */ +#if defined(DUK_F_GCC_VERSION) && (DUK_F_GCC_VERSION >= 50000L) +#define DUK_BSWAP64(x) ((duk_uint64_t) __builtin_bswap64((duk_uint64_t) (x))) +#define DUK_BSWAP32(x) ((duk_uint32_t) __builtin_bswap32((duk_uint32_t) (x))) +#define DUK_BSWAP16(x) ((duk_uint16_t) __builtin_bswap16((duk_uint16_t) (x))) +#endif +#elif defined(DUK_F_MSVC) +/* --- MSVC --- */ +/* http://msdn.microsoft.com/en-us/library/aa235362(VS.60).aspx */ +#define DUK_NORETURN(decl) __declspec(noreturn) decl + +/* XXX: DUK_UNREACHABLE for msvc? */ + +#undef DUK_USE_BRANCH_HINTS + +/* XXX: DUK_LIKELY, DUK_UNLIKELY for msvc? */ +/* XXX: DUK_NOINLINE, DUK_INLINE, DUK_ALWAYS_INLINE for msvc? */ + +#if defined(DUK_F_DLL_BUILD) && defined(DUK_F_WINDOWS) +/* MSVC dllexport/dllimport: appropriate __declspec depends on whether we're + * compiling Duktape or the application. + */ +#if defined(DUK_COMPILING_DUKTAPE) +#define DUK_EXTERNAL_DECL extern __declspec(dllexport) +#define DUK_EXTERNAL __declspec(dllexport) +#else +#define DUK_EXTERNAL_DECL extern __declspec(dllimport) +#define DUK_EXTERNAL should_not_happen +#endif +#if defined(DUK_SINGLE_FILE) +#define DUK_INTERNAL_DECL static +#define DUK_INTERNAL static +#else +#define DUK_INTERNAL_DECL extern +#define DUK_INTERNAL /*empty*/ +#endif +#define DUK_LOCAL_DECL static +#define DUK_LOCAL static +#endif + +#if defined(DUK_F_CPP) +#define DUK_USE_COMPILER_STRING "msvc++" +#else +#define DUK_USE_COMPILER_STRING "msvc" +#endif + +#undef DUK_USE_VARIADIC_MACROS +#if defined(DUK_F_C99) +#define DUK_USE_VARIADIC_MACROS +#elif defined(_MSC_VER) && (_MSC_VER >= 1400) +/* VS2005+ should have variadic macros even when they're not C99. */ +#define DUK_USE_VARIADIC_MACROS +#endif + +#undef DUK_USE_UNION_INITIALIZERS +#if defined(_MSC_VER) && (_MSC_VER >= 1800) +/* VS2013+ supports union initializers but there's a bug involving union-inside-struct: + * https://connect.microsoft.com/VisualStudio/feedback/details/805981 + * The bug was fixed (at least) in VS2015 so check for VS2015 for now: + * https://blogs.msdn.microsoft.com/vcblog/2015/07/01/c-compiler-front-end-fixes-in-vs2015/ + * Manually tested using VS2013, CL reports 18.00.31101, so enable for VS2013 too. + */ +#define DUK_USE_UNION_INITIALIZERS +#endif + +#undef DUK_USE_FLEX_C99 +#undef DUK_USE_FLEX_ZEROSIZE +#undef DUK_USE_FLEX_ONESIZE +#if defined(DUK_F_C99) +#define DUK_USE_FLEX_C99 +#else +#define DUK_USE_FLEX_ZEROSIZE +#endif + +#undef DUK_USE_GCC_PRAGMAS + +#define DUK_USE_PACK_MSVC_PRAGMA + +/* These have been tested from VS2008 onwards; may work in older VS versions + * too but not enabled by default. + */ +#if defined(_MSC_VER) && (_MSC_VER >= 1500) +#define DUK_NOINLINE __declspec(noinline) +#define DUK_INLINE __inline +#define DUK_ALWAYS_INLINE __forceinline +#endif + +#if defined(_MSC_VER) && (_MSC_VER >= 1900) +#define DUK_SNPRINTF snprintf +#define DUK_VSNPRINTF vsnprintf +#else +/* (v)snprintf() is missing before MSVC 2015. Note that _(v)snprintf() does + * NOT NUL terminate on truncation, but Duktape code never assumes that. + * http://stackoverflow.com/questions/2915672/snprintf-and-visual-studio-2010 + */ +#define DUK_SNPRINTF _snprintf +#define DUK_VSNPRINTF _vsnprintf +#endif + +/* Avoid warning when doing DUK_UNREF(some_function). */ +#if defined(_MSC_VER) && (_MSC_VER < 1500) +#pragma warning(disable: 4100 4101 4550 4551) +#define DUK_UNREF(x) +#else +#define DUK_UNREF(x) do { __pragma(warning(suppress:4100 4101 4550 4551)) (x); } while (0) +#endif + +/* Older versions of MSVC don't support the LL/ULL suffix. */ +#define DUK_U64_CONSTANT(x) x##ui64 +#define DUK_I64_CONSTANT(x) x##i64 +#elif defined(DUK_F_EMSCRIPTEN) +/* --- Emscripten --- */ +#define DUK_NORETURN(decl) decl __attribute__((noreturn)) + +#if defined(__clang__) && defined(__has_builtin) +#if __has_builtin(__builtin_unreachable) +#define DUK_UNREACHABLE() do { __builtin_unreachable(); } while (0) +#endif +#endif + +#define DUK_USE_BRANCH_HINTS +#define DUK_LIKELY(x) __builtin_expect((x), 1) +#define DUK_UNLIKELY(x) __builtin_expect((x), 0) +#if defined(__clang__) && defined(__has_builtin) +#if __has_builtin(__builtin_unpredictable) +#define DUK_UNPREDICTABLE(x) __builtin_unpredictable((x)) +#endif +#endif + +#if defined(DUK_F_C99) || defined(DUK_F_CPP11) +#define DUK_NOINLINE __attribute__((noinline)) +#define DUK_INLINE inline +#define DUK_ALWAYS_INLINE inline __attribute__((always_inline)) +#endif + +#define DUK_EXTERNAL_DECL __attribute__ ((visibility("default"))) extern +#define DUK_EXTERNAL __attribute__ ((visibility("default"))) +#if defined(DUK_SINGLE_FILE) +#if (defined(DUK_F_GCC_VERSION) && DUK_F_GCC_VERSION >= 30101) || defined(DUK_F_CLANG) +/* Minimize warnings for unused internal functions with GCC >= 3.1.1 and + * Clang. Based on documentation it should suffice to have the attribute + * in the declaration only, but in practice some warnings are generated unless + * the attribute is also applied to the definition. + */ +#define DUK_INTERNAL_DECL static __attribute__ ((unused)) +#define DUK_INTERNAL static __attribute__ ((unused)) +#else +#define DUK_INTERNAL_DECL static +#define DUK_INTERNAL static +#endif +#else +#if (defined(DUK_F_GCC_VERSION) && DUK_F_GCC_VERSION >= 30101) || defined(DUK_F_CLANG) +#define DUK_INTERNAL_DECL __attribute__ ((visibility("hidden"))) __attribute__ ((unused)) extern +#define DUK_INTERNAL __attribute__ ((visibility("hidden"))) __attribute__ ((unused)) +#else +#define DUK_INTERNAL_DECL __attribute__ ((visibility("hidden"))) extern +#define DUK_INTERNAL __attribute__ ((visibility("hidden"))) +#endif +#endif +#define DUK_LOCAL_DECL static +#define DUK_LOCAL static + +#define DUK_USE_COMPILER_STRING "emscripten" + +#undef DUK_USE_VARIADIC_MACROS +#if defined(DUK_F_C99) || defined(DUK_F_CPP11) +#define DUK_USE_VARIADIC_MACROS +#endif + +#define DUK_USE_UNION_INITIALIZERS + +#undef DUK_USE_FLEX_C99 +#undef DUK_USE_FLEX_ZEROSIZE +#undef DUK_USE_FLEX_ONESIZE +#if defined(DUK_F_C99) +#define DUK_USE_FLEX_C99 +#else +#define DUK_USE_FLEX_ZEROSIZE +#endif + +#undef DUK_USE_GCC_PRAGMAS +#define DUK_USE_PACK_CLANG_ATTR +#elif defined(DUK_F_TINYC) +/* --- TinyC --- */ +#undef DUK_USE_BRANCH_HINTS + +#if defined(DUK_F_CPP) +#define DUK_USE_COMPILER_STRING "tinyc++" +#else +#define DUK_USE_COMPILER_STRING "tinyc" +#endif + +/* http://bellard.org/tcc/tcc-doc.html#SEC7 */ +#define DUK_USE_VARIADIC_MACROS + +#define DUK_USE_UNION_INITIALIZERS + +/* Most portable, wastes space */ +#define DUK_USE_FLEX_ONESIZE + +/* Most portable, potentially wastes space */ +#define DUK_USE_PACK_DUMMY_MEMBER +#elif defined(DUK_F_VBCC) +/* --- VBCC --- */ +#undef DUK_USE_BRANCH_HINTS + +#if defined(DUK_F_CPP) +#define DUK_USE_COMPILER_STRING "vbcc-c++" +#else +#define DUK_USE_COMPILER_STRING "vbcc" +#endif + +#undef DUK_USE_VARIADIC_MACROS +#if defined(DUK_F_C99) || defined(DUK_F_CPP11) +#define DUK_USE_VARIADIC_MACROS +#endif + +/* VBCC supports C99 so check only for C99 for union initializer support. + * Designated union initializers would possibly work even without a C99 check. + */ +#undef DUK_USE_UNION_INITIALIZERS +#if defined(DUK_F_C99) +#define DUK_USE_UNION_INITIALIZERS +#endif + +#define DUK_USE_FLEX_ZEROSIZE +#define DUK_USE_PACK_DUMMY_MEMBER +#elif defined(DUK_F_BCC) +/* --- Bruce's C compiler --- */ +#undef DUK_USE_BRANCH_HINTS + +#if defined(DUK_F_CPP) +#define DUK_USE_COMPILER_STRING "bcc++" +#else +#define DUK_USE_COMPILER_STRING "bcc" +#endif + +/* Most portable */ +#undef DUK_USE_VARIADIC_MACROS + +/* Most portable, wastes space */ +#undef DUK_USE_UNION_INITIALIZERS + +/* Most portable, wastes space */ +#define DUK_USE_FLEX_ONESIZE + +/* Most portable, potentially wastes space */ +#define DUK_USE_PACK_DUMMY_MEMBER + +/* BCC, assume we're on x86. */ +#if !defined(DUK_USE_BYTEORDER) +#define DUK_USE_BYTEORDER 1 +#endif +#else +/* --- Generic --- */ +#undef DUK_USE_BRANCH_HINTS + +#if defined(DUK_F_CPP) +#define DUK_USE_COMPILER_STRING "generic-c++" +#else +#define DUK_USE_COMPILER_STRING "generic" +#endif + +#undef DUK_USE_VARIADIC_MACROS +#if defined(DUK_F_C99) || defined(DUK_F_CPP11) +#define DUK_USE_VARIADIC_MACROS +#endif + +/* C++ doesn't have standard designated union initializers ({ .foo = 1 }). */ +#undef DUK_USE_UNION_INITIALIZERS +#if defined(DUK_F_C99) +#define DUK_USE_UNION_INITIALIZERS +#endif + +/* Most portable, wastes space */ +#define DUK_USE_FLEX_ONESIZE + +/* Most portable, potentially wastes space */ +#define DUK_USE_PACK_DUMMY_MEMBER +#endif /* autodetect compiler */ + +/* uclibc */ +#if defined(__UCLIBC__) +#define DUK_F_UCLIBC +#endif + +/* + * Wrapper typedefs and constants for integer types, also sanity check types. + * + * C99 typedefs are quite good but not always available, and we want to avoid + * forcibly redefining the C99 typedefs. So, there are Duktape wrappers for + * all C99 typedefs and Duktape code should only use these typedefs. Type + * detection when C99 is not supported is best effort and may end up detecting + * some types incorrectly. + * + * Pointer sizes are a portability problem: pointers to different types may + * have a different size and function pointers are very difficult to manage + * portably. + * + * http://en.wikipedia.org/wiki/C_data_types#Fixed-width_integer_types + * + * Note: there's an interesting corner case when trying to define minimum + * signed integer value constants which leads to the current workaround of + * defining e.g. -0x80000000 as (-0x7fffffffL - 1L). See doc/code-issues.txt + * for a longer discussion. + * + * Note: avoid typecasts and computations in macro integer constants as they + * can then no longer be used in macro relational expressions (such as + * #if DUK_SIZE_MAX < 0xffffffffUL). There is internal code which relies on + * being able to compare DUK_SIZE_MAX against a limit. + */ + +/* XXX: add feature options to force basic types from outside? */ + +#if !defined(INT_MAX) +#error INT_MAX not defined +#endif + +/* Check that architecture is two's complement, standard C allows e.g. + * INT_MIN to be -2**31+1 (instead of -2**31). + */ +#if defined(INT_MAX) && defined(INT_MIN) +#if INT_MAX != -(INT_MIN + 1) +#error platform does not seem complement of two +#endif +#else +#error cannot check complement of two +#endif + +/* Pointer size determination based on __WORDSIZE or architecture when + * that's not available. + */ +#if defined(DUK_F_X86) || defined(DUK_F_X32) || \ + defined(DUK_F_M68K) || defined(DUK_F_PPC32) || \ + defined(DUK_F_BCC) || \ + (defined(__WORDSIZE) && (__WORDSIZE == 32)) || \ + ((defined(DUK_F_OLD_SOLARIS) || defined(DUK_F_AIX) || \ + defined(DUK_F_HPUX)) && defined(_ILP32)) || \ + defined(DUK_F_ARM32) +#define DUK_F_32BIT_PTRS +#elif defined(DUK_F_X64) || \ + (defined(__WORDSIZE) && (__WORDSIZE == 64)) || \ + ((defined(DUK_F_OLD_SOLARIS) || defined(DUK_F_AIX) || \ + defined(DUK_F_HPUX)) && defined(_LP64)) || \ + defined(DUK_F_ARM64) +#define DUK_F_64BIT_PTRS +#else +/* not sure, not needed with C99 anyway */ +#endif + +/* Intermediate define for 'have inttypes.h' */ +#undef DUK_F_HAVE_INTTYPES +#if defined(__STDC_VERSION__) && (__STDC_VERSION__ >= 199901L) && \ + !(defined(DUK_F_AMIGAOS) && defined(DUK_F_VBCC)) +/* vbcc + AmigaOS has C99 but no inttypes.h */ +#define DUK_F_HAVE_INTTYPES +#elif defined(__cplusplus) && (__cplusplus >= 201103L) +/* C++11 apparently ratified stdint.h */ +#define DUK_F_HAVE_INTTYPES +#endif + +/* Basic integer typedefs and limits, preferably from inttypes.h, otherwise + * through automatic detection. + */ +#if defined(DUK_F_HAVE_INTTYPES) +/* C99 or compatible */ + +#define DUK_F_HAVE_64BIT +#include + +typedef uint8_t duk_uint8_t; +typedef int8_t duk_int8_t; +typedef uint16_t duk_uint16_t; +typedef int16_t duk_int16_t; +typedef uint32_t duk_uint32_t; +typedef int32_t duk_int32_t; +typedef uint64_t duk_uint64_t; +typedef int64_t duk_int64_t; +typedef uint_least8_t duk_uint_least8_t; +typedef int_least8_t duk_int_least8_t; +typedef uint_least16_t duk_uint_least16_t; +typedef int_least16_t duk_int_least16_t; +typedef uint_least32_t duk_uint_least32_t; +typedef int_least32_t duk_int_least32_t; +typedef uint_least64_t duk_uint_least64_t; +typedef int_least64_t duk_int_least64_t; +typedef uint_fast8_t duk_uint_fast8_t; +typedef int_fast8_t duk_int_fast8_t; +typedef uint_fast16_t duk_uint_fast16_t; +typedef int_fast16_t duk_int_fast16_t; +typedef uint_fast32_t duk_uint_fast32_t; +typedef int_fast32_t duk_int_fast32_t; +typedef uint_fast64_t duk_uint_fast64_t; +typedef int_fast64_t duk_int_fast64_t; +typedef uintptr_t duk_uintptr_t; +typedef intptr_t duk_intptr_t; +typedef uintmax_t duk_uintmax_t; +typedef intmax_t duk_intmax_t; + +#define DUK_UINT8_MIN 0 +#define DUK_UINT8_MAX UINT8_MAX +#define DUK_INT8_MIN INT8_MIN +#define DUK_INT8_MAX INT8_MAX +#define DUK_UINT_LEAST8_MIN 0 +#define DUK_UINT_LEAST8_MAX UINT_LEAST8_MAX +#define DUK_INT_LEAST8_MIN INT_LEAST8_MIN +#define DUK_INT_LEAST8_MAX INT_LEAST8_MAX +#define DUK_UINT_FAST8_MIN 0 +#define DUK_UINT_FAST8_MAX UINT_FAST8_MAX +#define DUK_INT_FAST8_MIN INT_FAST8_MIN +#define DUK_INT_FAST8_MAX INT_FAST8_MAX +#define DUK_UINT16_MIN 0 +#define DUK_UINT16_MAX UINT16_MAX +#define DUK_INT16_MIN INT16_MIN +#define DUK_INT16_MAX INT16_MAX +#define DUK_UINT_LEAST16_MIN 0 +#define DUK_UINT_LEAST16_MAX UINT_LEAST16_MAX +#define DUK_INT_LEAST16_MIN INT_LEAST16_MIN +#define DUK_INT_LEAST16_MAX INT_LEAST16_MAX +#define DUK_UINT_FAST16_MIN 0 +#define DUK_UINT_FAST16_MAX UINT_FAST16_MAX +#define DUK_INT_FAST16_MIN INT_FAST16_MIN +#define DUK_INT_FAST16_MAX INT_FAST16_MAX +#define DUK_UINT32_MIN 0 +#define DUK_UINT32_MAX UINT32_MAX +#define DUK_INT32_MIN INT32_MIN +#define DUK_INT32_MAX INT32_MAX +#define DUK_UINT_LEAST32_MIN 0 +#define DUK_UINT_LEAST32_MAX UINT_LEAST32_MAX +#define DUK_INT_LEAST32_MIN INT_LEAST32_MIN +#define DUK_INT_LEAST32_MAX INT_LEAST32_MAX +#define DUK_UINT_FAST32_MIN 0 +#define DUK_UINT_FAST32_MAX UINT_FAST32_MAX +#define DUK_INT_FAST32_MIN INT_FAST32_MIN +#define DUK_INT_FAST32_MAX INT_FAST32_MAX +#define DUK_UINT64_MIN 0 +#define DUK_UINT64_MAX UINT64_MAX +#define DUK_INT64_MIN INT64_MIN +#define DUK_INT64_MAX INT64_MAX +#define DUK_UINT_LEAST64_MIN 0 +#define DUK_UINT_LEAST64_MAX UINT_LEAST64_MAX +#define DUK_INT_LEAST64_MIN INT_LEAST64_MIN +#define DUK_INT_LEAST64_MAX INT_LEAST64_MAX +#define DUK_UINT_FAST64_MIN 0 +#define DUK_UINT_FAST64_MAX UINT_FAST64_MAX +#define DUK_INT_FAST64_MIN INT_FAST64_MIN +#define DUK_INT_FAST64_MAX INT_FAST64_MAX + +#define DUK_UINTPTR_MIN 0 +#define DUK_UINTPTR_MAX UINTPTR_MAX +#define DUK_INTPTR_MIN INTPTR_MIN +#define DUK_INTPTR_MAX INTPTR_MAX + +#define DUK_UINTMAX_MIN 0 +#define DUK_UINTMAX_MAX UINTMAX_MAX +#define DUK_INTMAX_MIN INTMAX_MIN +#define DUK_INTMAX_MAX INTMAX_MAX + +#define DUK_SIZE_MIN 0 +#define DUK_SIZE_MAX SIZE_MAX +#undef DUK_SIZE_MAX_COMPUTED + +#else /* C99 types */ + +/* When C99 types are not available, we use heuristic detection to get + * the basic 8, 16, 32, and (possibly) 64 bit types. The fast/least + * types are then assumed to be exactly the same for now: these could + * be improved per platform but C99 types are very often now available. + * 64-bit types are not available on all platforms; this is OK at least + * on 32-bit platforms. + * + * This detection code is necessarily a bit hacky and can provide typedefs + * and defines that won't work correctly on some exotic platform. + */ + +#if (defined(CHAR_BIT) && (CHAR_BIT == 8)) || \ + (defined(UCHAR_MAX) && (UCHAR_MAX == 255)) +typedef unsigned char duk_uint8_t; +typedef signed char duk_int8_t; +#else +#error cannot detect 8-bit type +#endif + +#if defined(USHRT_MAX) && (USHRT_MAX == 65535UL) +typedef unsigned short duk_uint16_t; +typedef signed short duk_int16_t; +#elif defined(UINT_MAX) && (UINT_MAX == 65535UL) +/* On some platforms int is 16-bit but long is 32-bit (e.g. PureC) */ +typedef unsigned int duk_uint16_t; +typedef signed int duk_int16_t; +#else +#error cannot detect 16-bit type +#endif + +#if defined(UINT_MAX) && (UINT_MAX == 4294967295UL) +typedef unsigned int duk_uint32_t; +typedef signed int duk_int32_t; +#elif defined(ULONG_MAX) && (ULONG_MAX == 4294967295UL) +/* On some platforms int is 16-bit but long is 32-bit (e.g. PureC) */ +typedef unsigned long duk_uint32_t; +typedef signed long duk_int32_t; +#else +#error cannot detect 32-bit type +#endif + +/* 64-bit type detection is a bit tricky. + * + * ULLONG_MAX is a standard define. __LONG_LONG_MAX__ and __ULONG_LONG_MAX__ + * are used by at least GCC (even if system headers don't provide ULLONG_MAX). + * Some GCC variants may provide __LONG_LONG_MAX__ but not __ULONG_LONG_MAX__. + * + * ULL / LL constants are rejected / warned about by some compilers, even if + * the compiler has a 64-bit type and the compiler/system headers provide an + * unsupported constant (ULL/LL)! Try to avoid using ULL / LL constants. + * As a side effect we can only check that e.g. ULONG_MAX is larger than 32 + * bits but can't be sure it is exactly 64 bits. Self tests will catch such + * cases. + */ +#undef DUK_F_HAVE_64BIT +#if !defined(DUK_F_HAVE_64BIT) && defined(ULONG_MAX) +#if (ULONG_MAX > 4294967295UL) +#define DUK_F_HAVE_64BIT +typedef unsigned long duk_uint64_t; +typedef signed long duk_int64_t; +#endif +#endif +#if !defined(DUK_F_HAVE_64BIT) && defined(ULLONG_MAX) +#if (ULLONG_MAX > 4294967295UL) +#define DUK_F_HAVE_64BIT +typedef unsigned long long duk_uint64_t; +typedef signed long long duk_int64_t; +#endif +#endif +#if !defined(DUK_F_HAVE_64BIT) && defined(__ULONG_LONG_MAX__) +#if (__ULONG_LONG_MAX__ > 4294967295UL) +#define DUK_F_HAVE_64BIT +typedef unsigned long long duk_uint64_t; +typedef signed long long duk_int64_t; +#endif +#endif +#if !defined(DUK_F_HAVE_64BIT) && defined(__LONG_LONG_MAX__) +#if (__LONG_LONG_MAX__ > 2147483647L) +#define DUK_F_HAVE_64BIT +typedef unsigned long long duk_uint64_t; +typedef signed long long duk_int64_t; +#endif +#endif +#if !defined(DUK_F_HAVE_64BIT) && defined(DUK_F_MINGW) +#define DUK_F_HAVE_64BIT +typedef unsigned long duk_uint64_t; +typedef signed long duk_int64_t; +#endif +#if !defined(DUK_F_HAVE_64BIT) && defined(DUK_F_MSVC) +#define DUK_F_HAVE_64BIT +typedef unsigned __int64 duk_uint64_t; +typedef signed __int64 duk_int64_t; +#endif +#if !defined(DUK_F_HAVE_64BIT) +/* cannot detect 64-bit type, not always needed so don't error */ +#endif + +typedef duk_uint8_t duk_uint_least8_t; +typedef duk_int8_t duk_int_least8_t; +typedef duk_uint16_t duk_uint_least16_t; +typedef duk_int16_t duk_int_least16_t; +typedef duk_uint32_t duk_uint_least32_t; +typedef duk_int32_t duk_int_least32_t; +typedef duk_uint8_t duk_uint_fast8_t; +typedef duk_int8_t duk_int_fast8_t; +typedef duk_uint16_t duk_uint_fast16_t; +typedef duk_int16_t duk_int_fast16_t; +typedef duk_uint32_t duk_uint_fast32_t; +typedef duk_int32_t duk_int_fast32_t; +#if defined(DUK_F_HAVE_64BIT) +typedef duk_uint64_t duk_uint_least64_t; +typedef duk_int64_t duk_int_least64_t; +typedef duk_uint64_t duk_uint_fast64_t; +typedef duk_int64_t duk_int_fast64_t; +#endif +#if defined(DUK_F_HAVE_64BIT) +typedef duk_uint64_t duk_uintmax_t; +typedef duk_int64_t duk_intmax_t; +#else +typedef duk_uint32_t duk_uintmax_t; +typedef duk_int32_t duk_intmax_t; +#endif + +/* Note: the funny looking computations for signed minimum 16-bit, 32-bit, and + * 64-bit values are intentional as the obvious forms (e.g. -0x80000000L) are + * -not- portable. See code-issues.txt for a detailed discussion. + */ +#define DUK_UINT8_MIN 0UL +#define DUK_UINT8_MAX 0xffUL +#define DUK_INT8_MIN (-0x80L) +#define DUK_INT8_MAX 0x7fL +#define DUK_UINT_LEAST8_MIN 0UL +#define DUK_UINT_LEAST8_MAX 0xffUL +#define DUK_INT_LEAST8_MIN (-0x80L) +#define DUK_INT_LEAST8_MAX 0x7fL +#define DUK_UINT_FAST8_MIN 0UL +#define DUK_UINT_FAST8_MAX 0xffUL +#define DUK_INT_FAST8_MIN (-0x80L) +#define DUK_INT_FAST8_MAX 0x7fL +#define DUK_UINT16_MIN 0UL +#define DUK_UINT16_MAX 0xffffUL +#define DUK_INT16_MIN (-0x7fffL - 1L) +#define DUK_INT16_MAX 0x7fffL +#define DUK_UINT_LEAST16_MIN 0UL +#define DUK_UINT_LEAST16_MAX 0xffffUL +#define DUK_INT_LEAST16_MIN (-0x7fffL - 1L) +#define DUK_INT_LEAST16_MAX 0x7fffL +#define DUK_UINT_FAST16_MIN 0UL +#define DUK_UINT_FAST16_MAX 0xffffUL +#define DUK_INT_FAST16_MIN (-0x7fffL - 1L) +#define DUK_INT_FAST16_MAX 0x7fffL +#define DUK_UINT32_MIN 0UL +#define DUK_UINT32_MAX 0xffffffffUL +#define DUK_INT32_MIN (-0x7fffffffL - 1L) +#define DUK_INT32_MAX 0x7fffffffL +#define DUK_UINT_LEAST32_MIN 0UL +#define DUK_UINT_LEAST32_MAX 0xffffffffUL +#define DUK_INT_LEAST32_MIN (-0x7fffffffL - 1L) +#define DUK_INT_LEAST32_MAX 0x7fffffffL +#define DUK_UINT_FAST32_MIN 0UL +#define DUK_UINT_FAST32_MAX 0xffffffffUL +#define DUK_INT_FAST32_MIN (-0x7fffffffL - 1L) +#define DUK_INT_FAST32_MAX 0x7fffffffL + +/* 64-bit constants. Since LL / ULL constants are not always available, + * use computed values. These values can't be used in preprocessor + * comparisons; flag them as such. + */ +#if defined(DUK_F_HAVE_64BIT) +#define DUK_UINT64_MIN ((duk_uint64_t) 0) +#define DUK_UINT64_MAX ((duk_uint64_t) -1) +#define DUK_INT64_MIN ((duk_int64_t) (~(DUK_UINT64_MAX >> 1))) +#define DUK_INT64_MAX ((duk_int64_t) (DUK_UINT64_MAX >> 1)) +#define DUK_UINT_LEAST64_MIN DUK_UINT64_MIN +#define DUK_UINT_LEAST64_MAX DUK_UINT64_MAX +#define DUK_INT_LEAST64_MIN DUK_INT64_MIN +#define DUK_INT_LEAST64_MAX DUK_INT64_MAX +#define DUK_UINT_FAST64_MIN DUK_UINT64_MIN +#define DUK_UINT_FAST64_MAX DUK_UINT64_MAX +#define DUK_INT_FAST64_MIN DUK_INT64_MIN +#define DUK_INT_FAST64_MAX DUK_INT64_MAX +#define DUK_UINT64_MIN_COMPUTED +#define DUK_UINT64_MAX_COMPUTED +#define DUK_INT64_MIN_COMPUTED +#define DUK_INT64_MAX_COMPUTED +#define DUK_UINT_LEAST64_MIN_COMPUTED +#define DUK_UINT_LEAST64_MAX_COMPUTED +#define DUK_INT_LEAST64_MIN_COMPUTED +#define DUK_INT_LEAST64_MAX_COMPUTED +#define DUK_UINT_FAST64_MIN_COMPUTED +#define DUK_UINT_FAST64_MAX_COMPUTED +#define DUK_INT_FAST64_MIN_COMPUTED +#define DUK_INT_FAST64_MAX_COMPUTED +#endif + +#if defined(DUK_F_HAVE_64BIT) +#define DUK_UINTMAX_MIN DUK_UINT64_MIN +#define DUK_UINTMAX_MAX DUK_UINT64_MAX +#define DUK_INTMAX_MIN DUK_INT64_MIN +#define DUK_INTMAX_MAX DUK_INT64_MAX +#define DUK_UINTMAX_MIN_COMPUTED +#define DUK_UINTMAX_MAX_COMPUTED +#define DUK_INTMAX_MIN_COMPUTED +#define DUK_INTMAX_MAX_COMPUTED +#else +#define DUK_UINTMAX_MIN 0UL +#define DUK_UINTMAX_MAX 0xffffffffUL +#define DUK_INTMAX_MIN (-0x7fffffffL - 1L) +#define DUK_INTMAX_MAX 0x7fffffffL +#endif + +/* This detection is not very reliable. */ +#if defined(DUK_F_32BIT_PTRS) +typedef duk_int32_t duk_intptr_t; +typedef duk_uint32_t duk_uintptr_t; +#define DUK_UINTPTR_MIN DUK_UINT32_MIN +#define DUK_UINTPTR_MAX DUK_UINT32_MAX +#define DUK_INTPTR_MIN DUK_INT32_MIN +#define DUK_INTPTR_MAX DUK_INT32_MAX +#elif defined(DUK_F_64BIT_PTRS) && defined(DUK_F_HAVE_64BIT) +typedef duk_int64_t duk_intptr_t; +typedef duk_uint64_t duk_uintptr_t; +#define DUK_UINTPTR_MIN DUK_UINT64_MIN +#define DUK_UINTPTR_MAX DUK_UINT64_MAX +#define DUK_INTPTR_MIN DUK_INT64_MIN +#define DUK_INTPTR_MAX DUK_INT64_MAX +#define DUK_UINTPTR_MIN_COMPUTED +#define DUK_UINTPTR_MAX_COMPUTED +#define DUK_INTPTR_MIN_COMPUTED +#define DUK_INTPTR_MAX_COMPUTED +#else +#error cannot determine intptr type +#endif + +/* SIZE_MAX may be missing so use an approximate value for it. */ +#undef DUK_SIZE_MAX_COMPUTED +#if !defined(SIZE_MAX) +#define DUK_SIZE_MAX_COMPUTED +#define SIZE_MAX ((size_t) (-1)) +#endif +#define DUK_SIZE_MIN 0 +#define DUK_SIZE_MAX SIZE_MAX + +#endif /* C99 types */ + +/* A few types are assumed to always exist. */ +typedef size_t duk_size_t; +typedef ptrdiff_t duk_ptrdiff_t; + +/* The best type for an "all around int" in Duktape internals is "at least + * 32 bit signed integer" which is most convenient. Same for unsigned type. + * Prefer 'int' when large enough, as it is almost always a convenient type. + */ +#if defined(UINT_MAX) && (UINT_MAX >= 0xffffffffUL) +typedef int duk_int_t; +typedef unsigned int duk_uint_t; +#define DUK_INT_MIN INT_MIN +#define DUK_INT_MAX INT_MAX +#define DUK_UINT_MIN 0 +#define DUK_UINT_MAX UINT_MAX +#else +typedef duk_int_fast32_t duk_int_t; +typedef duk_uint_fast32_t duk_uint_t; +#define DUK_INT_MIN DUK_INT_FAST32_MIN +#define DUK_INT_MAX DUK_INT_FAST32_MAX +#define DUK_UINT_MIN DUK_UINT_FAST32_MIN +#define DUK_UINT_MAX DUK_UINT_FAST32_MAX +#endif + +/* Same as 'duk_int_t' but guaranteed to be a 'fast' variant if this + * distinction matters for the CPU. These types are used mainly in the + * executor where it might really matter. + */ +typedef duk_int_fast32_t duk_int_fast_t; +typedef duk_uint_fast32_t duk_uint_fast_t; +#define DUK_INT_FAST_MIN DUK_INT_FAST32_MIN +#define DUK_INT_FAST_MAX DUK_INT_FAST32_MAX +#define DUK_UINT_FAST_MIN DUK_UINT_FAST32_MIN +#define DUK_UINT_FAST_MAX DUK_UINT_FAST32_MAX + +/* Small integers (16 bits or more) can fall back to the 'int' type, but + * have a typedef so they are marked "small" explicitly. + */ +typedef int duk_small_int_t; +typedef unsigned int duk_small_uint_t; +#define DUK_SMALL_INT_MIN INT_MIN +#define DUK_SMALL_INT_MAX INT_MAX +#define DUK_SMALL_UINT_MIN 0 +#define DUK_SMALL_UINT_MAX UINT_MAX + +/* Fast variants of small integers, again for really fast paths like the + * executor. + */ +typedef duk_int_fast16_t duk_small_int_fast_t; +typedef duk_uint_fast16_t duk_small_uint_fast_t; +#define DUK_SMALL_INT_FAST_MIN DUK_INT_FAST16_MIN +#define DUK_SMALL_INT_FAST_MAX DUK_INT_FAST16_MAX +#define DUK_SMALL_UINT_FAST_MIN DUK_UINT_FAST16_MIN +#define DUK_SMALL_UINT_FAST_MAX DUK_UINT_FAST16_MAX + +/* Boolean values are represented with the platform 'unsigned int'. */ +typedef duk_small_uint_t duk_bool_t; +#define DUK_BOOL_MIN DUK_SMALL_UINT_MIN +#define DUK_BOOL_MAX DUK_SMALL_UINT_MAX + +/* Index values must have at least 32-bit signed range. */ +typedef duk_int_t duk_idx_t; +#define DUK_IDX_MIN DUK_INT_MIN +#define DUK_IDX_MAX DUK_INT_MAX + +/* Unsigned index variant. */ +typedef duk_uint_t duk_uidx_t; +#define DUK_UIDX_MIN DUK_UINT_MIN +#define DUK_UIDX_MAX DUK_UINT_MAX + +/* Array index values, could be exact 32 bits. + * Currently no need for signed duk_arridx_t. + */ +typedef duk_uint_t duk_uarridx_t; +#define DUK_UARRIDX_MIN DUK_UINT_MIN +#define DUK_UARRIDX_MAX DUK_UINT_MAX + +/* Duktape/C function return value, platform int is enough for now to + * represent 0, 1, or negative error code. Must be compatible with + * assigning truth values (e.g. duk_ret_t rc = (foo == bar);). + */ +typedef duk_small_int_t duk_ret_t; +#define DUK_RET_MIN DUK_SMALL_INT_MIN +#define DUK_RET_MAX DUK_SMALL_INT_MAX + +/* Error codes are represented with platform int. High bits are used + * for flags and such, so 32 bits are needed. + */ +typedef duk_int_t duk_errcode_t; +#define DUK_ERRCODE_MIN DUK_INT_MIN +#define DUK_ERRCODE_MAX DUK_INT_MAX + +/* Codepoint type. Must be 32 bits or more because it is used also for + * internal codepoints. The type is signed because negative codepoints + * are used as internal markers (e.g. to mark EOF or missing argument). + * (X)UTF-8/CESU-8 encode/decode take and return an unsigned variant to + * ensure duk_uint32_t casts back and forth nicely. Almost everything + * else uses the signed one. + */ +typedef duk_int_t duk_codepoint_t; +typedef duk_uint_t duk_ucodepoint_t; +#define DUK_CODEPOINT_MIN DUK_INT_MIN +#define DUK_CODEPOINT_MAX DUK_INT_MAX +#define DUK_UCODEPOINT_MIN DUK_UINT_MIN +#define DUK_UCODEPOINT_MAX DUK_UINT_MAX + +/* IEEE float/double typedef. */ +typedef float duk_float_t; +typedef double duk_double_t; + +/* We're generally assuming that we're working on a platform with a 32-bit + * address space. If DUK_SIZE_MAX is a typecast value (which is necessary + * if SIZE_MAX is missing), the check must be avoided because the + * preprocessor can't do a comparison. + */ +#if !defined(DUK_SIZE_MAX) +#error DUK_SIZE_MAX is undefined, probably missing SIZE_MAX +#elif !defined(DUK_SIZE_MAX_COMPUTED) +#if DUK_SIZE_MAX < 0xffffffffUL +/* On some systems SIZE_MAX can be smaller than max unsigned 32-bit value + * which seems incorrect if size_t is (at least) an unsigned 32-bit type. + * However, it doesn't seem useful to error out compilation if this is the + * case. + */ +#endif +#endif + +/* Type used in public API declarations and user code. Typedef maps to + * 'struct duk_hthread' like the 'duk_hthread' typedef which is used + * exclusively in internals. + */ +typedef struct duk_hthread duk_context; + +/* Check whether we should use 64-bit integers or not. + * + * Quite incomplete now. Use 64-bit types if detected (C99 or other detection) + * unless they are known to be unreliable. For instance, 64-bit types are + * available on VBCC but seem to misbehave. + */ +#if defined(DUK_F_HAVE_64BIT) && !defined(DUK_F_VBCC) +#define DUK_USE_64BIT_OPS +#else +#undef DUK_USE_64BIT_OPS +#endif + +/* + * Fill-ins for platform, architecture, and compiler + */ + +/* An abort()-like primitive is needed by the default fatal error handler. */ +#if !defined(DUK_ABORT) +#define DUK_ABORT abort +#endif + +#if !defined(DUK_SETJMP) +#define DUK_JMPBUF_TYPE jmp_buf +#define DUK_SETJMP(jb) setjmp((jb)) +#define DUK_LONGJMP(jb) longjmp((jb), 1) +#endif + +#if 0 +/* sigsetjmp() alternative */ +#define DUK_JMPBUF_TYPE sigjmp_buf +#define DUK_SETJMP(jb) sigsetjmp((jb)) +#define DUK_LONGJMP(jb) siglongjmp((jb), 1) +#endif + +/* Special naming to avoid conflict with e.g. DUK_FREE() in duk_heap.h + * (which is unfortunately named). May sometimes need replacement, e.g. + * some compilers don't handle zero length or NULL correctly in realloc(). + */ +#if !defined(DUK_ANSI_MALLOC) +#define DUK_ANSI_MALLOC malloc +#endif +#if !defined(DUK_ANSI_REALLOC) +#define DUK_ANSI_REALLOC realloc +#endif +#if !defined(DUK_ANSI_CALLOC) +#define DUK_ANSI_CALLOC calloc +#endif +#if !defined(DUK_ANSI_FREE) +#define DUK_ANSI_FREE free +#endif + +/* ANSI C (various versions) and some implementations require that the + * pointer arguments to memset(), memcpy(), and memmove() be valid values + * even when byte size is 0 (even a NULL pointer is considered invalid in + * this context). Zero-size operations as such are allowed, as long as their + * pointer arguments point to a valid memory area. The DUK_MEMSET(), + * DUK_MEMCPY(), and DUK_MEMMOVE() macros require this same behavior, i.e.: + * (1) pointers must be valid and non-NULL, (2) zero size must otherwise be + * allowed. If these are not fulfilled, a macro wrapper is needed. + * + * http://stackoverflow.com/questions/5243012/is-it-guaranteed-to-be-safe-to-perform-memcpy0-0-0 + * http://lists.cs.uiuc.edu/pipermail/llvmdev/2007-October/011065.html + * + * Not sure what's the required behavior when a pointer points just past the + * end of a buffer, which often happens in practice (e.g. zero size memmoves). + * For example, if allocation size is 3, the following pointer would not + * technically point to a valid memory byte: + * + * <-- alloc --> + * | 0 | 1 | 2 | ..... + * ^-- p=3, points after last valid byte (2) + */ +#if !defined(DUK_MEMCPY) +#if defined(DUK_F_UCLIBC) +/* Old uclibcs have a broken memcpy so use memmove instead (this is overly wide + * now on purpose): http://lists.uclibc.org/pipermail/uclibc-cvs/2008-October/025511.html + */ +#define DUK_MEMCPY memmove +#else +#define DUK_MEMCPY memcpy +#endif +#endif +#if !defined(DUK_MEMMOVE) +#define DUK_MEMMOVE memmove +#endif +#if !defined(DUK_MEMCMP) +#define DUK_MEMCMP memcmp +#endif +#if !defined(DUK_MEMSET) +#define DUK_MEMSET memset +#endif +#if !defined(DUK_STRLEN) +#define DUK_STRLEN strlen +#endif +#if !defined(DUK_STRCMP) +#define DUK_STRCMP strcmp +#endif +#if !defined(DUK_STRNCMP) +#define DUK_STRNCMP strncmp +#endif +#if !defined(DUK_SPRINTF) +#define DUK_SPRINTF sprintf +#endif +#if !defined(DUK_SNPRINTF) +/* snprintf() is technically not part of C89 but usually available. */ +#define DUK_SNPRINTF snprintf +#endif +#if !defined(DUK_VSPRINTF) +#define DUK_VSPRINTF vsprintf +#endif +#if !defined(DUK_VSNPRINTF) +/* vsnprintf() is technically not part of C89 but usually available. */ +#define DUK_VSNPRINTF vsnprintf +#endif +#if !defined(DUK_SSCANF) +#define DUK_SSCANF sscanf +#endif +#if !defined(DUK_VSSCANF) +#define DUK_VSSCANF vsscanf +#endif +#if !defined(DUK_MEMZERO) +#define DUK_MEMZERO(p,n) DUK_MEMSET((p), 0, (n)) +#endif + +#if !defined(DUK_DOUBLE_INFINITY) +#undef DUK_USE_COMPUTED_INFINITY +#if defined(DUK_F_GCC_VERSION) && (DUK_F_GCC_VERSION < 40600) +/* GCC older than 4.6: avoid overflow warnings related to using INFINITY */ +#define DUK_DOUBLE_INFINITY (__builtin_inf()) +#elif defined(INFINITY) +#define DUK_DOUBLE_INFINITY ((double) INFINITY) +#elif !defined(DUK_F_VBCC) && !defined(DUK_F_MSVC) && !defined(DUK_F_BCC) && \ + !defined(DUK_F_OLD_SOLARIS) && !defined(DUK_F_AIX) +#define DUK_DOUBLE_INFINITY (1.0 / 0.0) +#else +/* In VBCC (1.0 / 0.0) results in a warning and 0.0 instead of infinity. + * Use a computed infinity (initialized when a heap is created at the + * latest). + */ +#define DUK_USE_COMPUTED_INFINITY +#define DUK_DOUBLE_INFINITY duk_computed_infinity +#endif +#endif + +#if !defined(DUK_DOUBLE_NAN) +#undef DUK_USE_COMPUTED_NAN +#if defined(NAN) +#define DUK_DOUBLE_NAN NAN +#elif !defined(DUK_F_VBCC) && !defined(DUK_F_MSVC) && !defined(DUK_F_BCC) && \ + !defined(DUK_F_OLD_SOLARIS) && !defined(DUK_F_AIX) +#define DUK_DOUBLE_NAN (0.0 / 0.0) +#else +/* In VBCC (0.0 / 0.0) results in a warning and 0.0 instead of NaN. + * In MSVC (VS2010 Express) (0.0 / 0.0) results in a compile error. + * Use a computed NaN (initialized when a heap is created at the + * latest). + */ +#define DUK_USE_COMPUTED_NAN +#define DUK_DOUBLE_NAN duk_computed_nan +#endif +#endif + +/* Many platforms are missing fpclassify() and friends, so use replacements + * if necessary. The replacement constants (FP_NAN etc) can be anything but + * match Linux constants now. + */ +#undef DUK_USE_REPL_FPCLASSIFY +#undef DUK_USE_REPL_SIGNBIT +#undef DUK_USE_REPL_ISFINITE +#undef DUK_USE_REPL_ISNAN +#undef DUK_USE_REPL_ISINF + +/* Complex condition broken into separate parts. */ +#undef DUK_F_USE_REPL_ALL +#if !(defined(FP_NAN) && defined(FP_INFINITE) && defined(FP_ZERO) && \ + defined(FP_SUBNORMAL) && defined(FP_NORMAL)) +/* Missing some obvious constants. */ +#define DUK_F_USE_REPL_ALL +#elif defined(DUK_F_AMIGAOS) && defined(DUK_F_VBCC) +/* VBCC is missing the built-ins even in C99 mode (perhaps a header issue). */ +#define DUK_F_USE_REPL_ALL +#elif defined(DUK_F_AMIGAOS) && defined(DUK_F_M68K) +/* AmigaOS + M68K seems to have math issues even when using GCC cross + * compilation. Use replacements for all AmigaOS versions on M68K + * regardless of compiler. + */ +#define DUK_F_USE_REPL_ALL +#elif defined(DUK_F_FREEBSD) && defined(DUK_F_CLANG) +/* Placeholder fix for (detection is wider than necessary): + * http://llvm.org/bugs/show_bug.cgi?id=17788 + */ +#define DUK_F_USE_REPL_ALL +#elif defined(DUK_F_UCLIBC) +/* At least some uclibc versions have broken floating point math. For + * example, fpclassify() can incorrectly classify certain NaN formats. + * To be safe, use replacements. + */ +#define DUK_F_USE_REPL_ALL +#elif defined(DUK_F_AIX) +/* Older versions may be missing isnan(), etc. */ +#define DUK_F_USE_REPL_ALL +#endif + +#if defined(DUK_F_USE_REPL_ALL) +#define DUK_USE_REPL_FPCLASSIFY +#define DUK_USE_REPL_SIGNBIT +#define DUK_USE_REPL_ISFINITE +#define DUK_USE_REPL_ISNAN +#define DUK_USE_REPL_ISINF +#define DUK_FPCLASSIFY duk_repl_fpclassify +#define DUK_SIGNBIT duk_repl_signbit +#define DUK_ISFINITE duk_repl_isfinite +#define DUK_ISNAN duk_repl_isnan +#define DUK_ISINF duk_repl_isinf +#define DUK_FP_NAN 0 +#define DUK_FP_INFINITE 1 +#define DUK_FP_ZERO 2 +#define DUK_FP_SUBNORMAL 3 +#define DUK_FP_NORMAL 4 +#else +#define DUK_FPCLASSIFY fpclassify +#define DUK_SIGNBIT signbit +#define DUK_ISFINITE isfinite +#define DUK_ISNAN isnan +#define DUK_ISINF isinf +#define DUK_FP_NAN FP_NAN +#define DUK_FP_INFINITE FP_INFINITE +#define DUK_FP_ZERO FP_ZERO +#define DUK_FP_SUBNORMAL FP_SUBNORMAL +#define DUK_FP_NORMAL FP_NORMAL +#endif + +#if defined(DUK_F_USE_REPL_ALL) +#undef DUK_F_USE_REPL_ALL +#endif + +/* These functions don't currently need replacement but are wrapped for + * completeness. Because these are used as function pointers, they need + * to be defined as concrete C functions (not macros). + */ +#if !defined(DUK_FABS) +#define DUK_FABS fabs +#endif +#if !defined(DUK_FLOOR) +#define DUK_FLOOR floor +#endif +#if !defined(DUK_CEIL) +#define DUK_CEIL ceil +#endif +#if !defined(DUK_FMOD) +#define DUK_FMOD fmod +#endif +#if !defined(DUK_POW) +#define DUK_POW pow +#endif +#if !defined(DUK_ACOS) +#define DUK_ACOS acos +#endif +#if !defined(DUK_ASIN) +#define DUK_ASIN asin +#endif +#if !defined(DUK_ATAN) +#define DUK_ATAN atan +#endif +#if !defined(DUK_ATAN2) +#define DUK_ATAN2 atan2 +#endif +#if !defined(DUK_SIN) +#define DUK_SIN sin +#endif +#if !defined(DUK_COS) +#define DUK_COS cos +#endif +#if !defined(DUK_TAN) +#define DUK_TAN tan +#endif +#if !defined(DUK_EXP) +#define DUK_EXP exp +#endif +#if !defined(DUK_LOG) +#define DUK_LOG log +#endif +#if !defined(DUK_SQRT) +#define DUK_SQRT sqrt +#endif + +/* The functions below exist only in C99/C++11 or later and need a workaround + * for platforms that don't include them. MSVC isn't detected as C99, but + * these functions also exist in MSVC 2013 and later so include a clause for + * that too. Android doesn't have log2; disable all of these for Android. + */ +#if (defined(DUK_F_C99) || defined(DUK_F_CPP11) || (defined(_MSC_VER) && (_MSC_VER >= 1800))) && \ + !defined(DUK_F_ANDROID) && !defined(DUK_F_MINT) +#if !defined(DUK_CBRT) +#define DUK_CBRT cbrt +#endif +#if !defined(DUK_LOG2) +#define DUK_LOG2 log2 +#endif +#if !defined(DUK_LOG10) +#define DUK_LOG10 log10 +#endif +#if !defined(DUK_TRUNC) +#define DUK_TRUNC trunc +#endif +#endif /* DUK_F_C99 etc */ + +/* NetBSD 6.0 x86 (at least) has a few problems with pow() semantics, + * see test-bug-netbsd-math-pow.js. MinGW has similar (but different) + * issues, see test-bug-mingw-math-issues.js. Enable pow() workarounds + * for these targets. + */ +#undef DUK_USE_POW_WORKAROUNDS +#if defined(DUK_F_NETBSD) || defined(DUK_F_MINGW) +#define DUK_USE_POW_WORKAROUNDS +#endif + +/* Similar workarounds for atan2() semantics issues. MinGW issues are + * documented in test-bug-mingw-math-issues.js. + */ +#undef DUK_USE_ATAN2_WORKAROUNDS +#if defined(DUK_F_MINGW) +#define DUK_USE_ATAN2_WORKAROUNDS +#endif + +/* Rely as little as possible on compiler behavior for NaN comparison, + * signed zero handling, etc. Currently never activated but may be needed + * for broken compilers. + */ +#undef DUK_USE_PARANOID_MATH + +/* There was a curious bug where test-bi-date-canceling.js would fail e.g. + * on 64-bit Ubuntu, gcc-4.8.1, -m32, and no -std=c99. Some date computations + * using doubles would be optimized which then broke some corner case tests. + * The problem goes away by adding 'volatile' to the datetime computations. + * Not sure what the actual triggering conditions are, but using this on + * non-C99 systems solves the known issues and has relatively little cost + * on other platforms. + */ +#undef DUK_USE_PARANOID_DATE_COMPUTATION +#if !defined(DUK_F_C99) +#define DUK_USE_PARANOID_DATE_COMPUTATION +#endif + +/* + * Byte order and double memory layout detection + * + * Endianness detection is a major portability hassle because the macros + * and headers are not standardized. There's even variance across UNIX + * platforms. Even with "standard" headers, details like underscore count + * varies between platforms, e.g. both __BYTE_ORDER and _BYTE_ORDER are used + * (Crossbridge has a single underscore, for instance). + * + * The checks below are structured with this in mind: several approaches are + * used, and at the end we check if any of them worked. This allows generic + * approaches to be tried first, and platform/compiler specific hacks tried + * last. As a last resort, the user can force a specific endianness, as it's + * not likely that automatic detection will work on the most exotic platforms. + * + * Duktape supports little and big endian machines. There's also support + * for a hybrid used by some ARM machines where integers are little endian + * but IEEE double values use a mixed order (12345678 -> 43218765). This + * byte order for doubles is referred to as "mixed endian". + */ + +/* GCC and Clang provide endianness defines as built-in predefines, with + * leading and trailing double underscores (e.g. __BYTE_ORDER__). See + * output of "make gccpredefs" and "make clangpredefs". Clang doesn't + * seem to provide __FLOAT_WORD_ORDER__; assume not mixed endian for clang. + * http://gcc.gnu.org/onlinedocs/cpp/Common-Predefined-Macros.html + */ +#if !defined(DUK_USE_BYTEORDER) && defined(__BYTE_ORDER__) +#if defined(__ORDER_LITTLE_ENDIAN__) && (__BYTE_ORDER__ == __ORDER_LITTLE_ENDIAN__) +#if defined(__FLOAT_WORD_ORDER__) && defined(__ORDER_LITTLE_ENDIAN__) && (__FLOAT_WORD_ORDER__ == __ORDER_LITTLE_ENDIAN__) +#define DUK_USE_BYTEORDER 1 +#elif defined(__FLOAT_WORD_ORDER__) && defined(__ORDER_BIG_ENDIAN__) && (__FLOAT_WORD_ORDER__ == __ORDER_BIG_ENDIAN__) +#define DUK_USE_BYTEORDER 2 +#elif !defined(__FLOAT_WORD_ORDER__) +/* Float word order not known, assume not a hybrid. */ +#define DUK_USE_BYTEORDER 1 +#else +/* Byte order is little endian but cannot determine IEEE double word order. */ +#endif /* float word order */ +#elif defined(__ORDER_BIG_ENDIAN__) && (__BYTE_ORDER__ == __ORDER_BIG_ENDIAN__) +#if defined(__FLOAT_WORD_ORDER__) && defined(__ORDER_BIG_ENDIAN__) && (__FLOAT_WORD_ORDER__ == __ORDER_BIG_ENDIAN__) +#define DUK_USE_BYTEORDER 3 +#elif !defined(__FLOAT_WORD_ORDER__) +/* Float word order not known, assume not a hybrid. */ +#define DUK_USE_BYTEORDER 3 +#else +/* Byte order is big endian but cannot determine IEEE double word order. */ +#endif /* float word order */ +#else +/* Cannot determine byte order; __ORDER_PDP_ENDIAN__ is related to 32-bit + * integer ordering and is not relevant. + */ +#endif /* integer byte order */ +#endif /* !defined(DUK_USE_BYTEORDER) && defined(__BYTE_ORDER__) */ + +/* More or less standard endianness predefines provided by header files. + * The ARM hybrid case is detected by assuming that __FLOAT_WORD_ORDER + * will be big endian, see: http://lists.mysql.com/internals/443. + * On some platforms some defines may be present with an empty value which + * causes comparisons to fail: https://github.com/svaarala/duktape/issues/453. + */ +#if !defined(DUK_USE_BYTEORDER) +#if defined(__BYTE_ORDER) && defined(__LITTLE_ENDIAN) && (__BYTE_ORDER == __LITTLE_ENDIAN) || \ + defined(_BYTE_ORDER) && defined(_LITTLE_ENDIAN) && (_BYTE_ORDER == _LITTLE_ENDIAN) || \ + defined(__LITTLE_ENDIAN__) +#if defined(__FLOAT_WORD_ORDER) && defined(__LITTLE_ENDIAN) && (__FLOAT_WORD_ORDER == __LITTLE_ENDIAN) || \ + defined(_FLOAT_WORD_ORDER) && defined(_LITTLE_ENDIAN) && (_FLOAT_WORD_ORDER == _LITTLE_ENDIAN) +#define DUK_USE_BYTEORDER 1 +#elif defined(__FLOAT_WORD_ORDER) && defined(__BIG_ENDIAN) && (__FLOAT_WORD_ORDER == __BIG_ENDIAN) || \ + defined(_FLOAT_WORD_ORDER) && defined(_BIG_ENDIAN) && (_FLOAT_WORD_ORDER == _BIG_ENDIAN) +#define DUK_USE_BYTEORDER 2 +#elif !defined(__FLOAT_WORD_ORDER) && !defined(_FLOAT_WORD_ORDER) +/* Float word order not known, assume not a hybrid. */ +#define DUK_USE_BYTEORDER 1 +#else +/* Byte order is little endian but cannot determine IEEE double word order. */ +#endif /* float word order */ +#elif defined(__BYTE_ORDER) && defined(__BIG_ENDIAN) && (__BYTE_ORDER == __BIG_ENDIAN) || \ + defined(_BYTE_ORDER) && defined(_BIG_ENDIAN) && (_BYTE_ORDER == _BIG_ENDIAN) || \ + defined(__BIG_ENDIAN__) +#if defined(__FLOAT_WORD_ORDER) && defined(__BIG_ENDIAN) && (__FLOAT_WORD_ORDER == __BIG_ENDIAN) || \ + defined(_FLOAT_WORD_ORDER) && defined(_BIG_ENDIAN) && (_FLOAT_WORD_ORDER == _BIG_ENDIAN) +#define DUK_USE_BYTEORDER 3 +#elif !defined(__FLOAT_WORD_ORDER) && !defined(_FLOAT_WORD_ORDER) +/* Float word order not known, assume not a hybrid. */ +#define DUK_USE_BYTEORDER 3 +#else +/* Byte order is big endian but cannot determine IEEE double word order. */ +#endif /* float word order */ +#else +/* Cannot determine byte order. */ +#endif /* integer byte order */ +#endif /* !defined(DUK_USE_BYTEORDER) */ + +/* QNX gcc cross compiler seems to define e.g. __LITTLEENDIAN__ or __BIGENDIAN__: + * $ /opt/qnx650/host/linux/x86/usr/bin/i486-pc-nto-qnx6.5.0-gcc -dM -E - > 56U) | \ + ((((duk_uint64_t) (x)) >> 40U) & DUK_U64_CONSTANT(0xff00)) | \ + ((((duk_uint64_t) (x)) >> 24U) & DUK_U64_CONSTANT(0xff0000)) | \ + ((((duk_uint64_t) (x)) >> 8U) & DUK_U64_CONSTANT(0xff000000)) | \ + ((((duk_uint64_t) (x)) << 8U) & DUK_U64_CONSTANT(0xff00000000)) | \ + ((((duk_uint64_t) (x)) << 24U) & DUK_U64_CONSTANT(0xff0000000000)) | \ + ((((duk_uint64_t) (x)) << 40U) & DUK_U64_CONSTANT(0xff000000000000)) | \ + (((duk_uint64_t) (x)) << 56U)) +#endif +#endif +#if !defined(DUK_BSWAP32) +#define DUK_BSWAP32(x) \ + ((((duk_uint32_t) (x)) >> 24U) | \ + ((((duk_uint32_t) (x)) >> 8U) & 0xff00UL) | \ + ((((duk_uint32_t) (x)) << 8U) & 0xff0000UL) | \ + (((duk_uint32_t) (x)) << 24U)) +#endif +#if !defined(DUK_BSWAP16) +#define DUK_BSWAP16(x) \ + ((duk_uint16_t) (x) >> 8U) | \ + ((duk_uint16_t) (x) << 8U) +#endif + +/* DUK_USE_VARIADIC_MACROS: required from compilers, so no fill-in. */ +/* DUK_USE_UNION_INITIALIZERS: required from compilers, so no fill-in. */ + +#if !(defined(DUK_USE_FLEX_C99) || defined(DUK_USE_FLEX_ZEROSIZE) || defined(DUK_USE_FLEX_ONESIZE)) +#if defined(DUK_F_C99) +#define DUK_USE_FLEX_C99 +#else +#define DUK_USE_FLEX_ZEROSIZE /* Not standard but common enough */ +#endif +#endif + +#if !(defined(DUK_USE_PACK_GCC_ATTR) || defined(DUK_USE_PACK_CLANG_ATTR) || \ + defined(DUK_USE_PACK_MSVC_PRAGMA) || defined(DUK_USE_PACK_DUMMY_MEMBER)) +#define DUK_USE_PACK_DUMMY_MEMBER +#endif + +#if 0 /* not defined by default */ +#undef DUK_USE_GCC_PRAGMAS +#endif + +/* Workaround for GH-323: avoid inlining control when compiling from + * multiple sources, as it causes compiler portability trouble. + */ +#if !defined(DUK_SINGLE_FILE) +#undef DUK_NOINLINE +#undef DUK_INLINE +#undef DUK_ALWAYS_INLINE +#define DUK_NOINLINE /*nop*/ +#define DUK_INLINE /*nop*/ +#define DUK_ALWAYS_INLINE /*nop*/ +#endif + +/* + * Check whether or not a packed duk_tval representation is possible. + * What's basically required is that pointers are 32-bit values + * (sizeof(void *) == 4). Best effort check, not always accurate. + * If guess goes wrong, crashes may result; self tests also verify + * the guess. + */ + +/* Explicit marker needed; may be 'defined', 'undefined, 'or 'not provided'. */ +#if !defined(DUK_F_PACKED_TVAL_PROVIDED) +#undef DUK_F_PACKED_TVAL_POSSIBLE + +/* Strict C99 case: DUK_UINTPTR_MAX (= UINTPTR_MAX) should be very reliable */ +#if !defined(DUK_F_PACKED_TVAL_POSSIBLE) && defined(DUK_UINTPTR_MAX) +#if (DUK_UINTPTR_MAX <= 0xffffffffUL) +#define DUK_F_PACKED_TVAL_POSSIBLE +#endif +#endif + +/* Non-C99 case, still relying on DUK_UINTPTR_MAX, as long as it is not a computed value */ +#if !defined(DUK_F_PACKED_TVAL_POSSIBLE) && defined(DUK_UINTPTR_MAX) && !defined(DUK_UINTPTR_MAX_COMPUTED) +#if (DUK_UINTPTR_MAX <= 0xffffffffUL) +#define DUK_F_PACKED_TVAL_POSSIBLE +#endif +#endif + +/* DUK_SIZE_MAX (= SIZE_MAX) is often reliable */ +#if !defined(DUK_F_PACKED_TVAL_POSSIBLE) && defined(DUK_SIZE_MAX) && !defined(DUK_SIZE_MAX_COMPUTED) +#if (DUK_SIZE_MAX <= 0xffffffffUL) +#define DUK_F_PACKED_TVAL_POSSIBLE +#endif +#endif + +#undef DUK_USE_PACKED_TVAL +#if defined(DUK_F_PACKED_TVAL_POSSIBLE) +#define DUK_USE_PACKED_TVAL +#endif +#undef DUK_F_PACKED_TVAL_POSSIBLE + +#endif /* DUK_F_PACKED_TVAL_PROVIDED */ +/* Object property allocation layout has implications for memory and code + * footprint and generated code size/speed. The best layout also depends + * on whether the platform has alignment requirements or benefits from + * having mostly aligned accesses. + */ +#undef DUK_USE_HOBJECT_LAYOUT_1 +#undef DUK_USE_HOBJECT_LAYOUT_2 +#undef DUK_USE_HOBJECT_LAYOUT_3 +#if (DUK_USE_ALIGN_BY == 1) +/* On platforms without any alignment issues, layout 1 is preferable + * because it compiles to slightly less code and provides direct access + * to property keys. + */ +#define DUK_USE_HOBJECT_LAYOUT_1 +#else +/* On other platforms use layout 2, which requires some padding but + * is a bit more natural than layout 3 in ordering the entries. Layout + * 3 is currently not used. + */ +#define DUK_USE_HOBJECT_LAYOUT_2 +#endif + +/* GCC/clang inaccurate math would break compliance and probably duk_tval, + * so refuse to compile. Relax this if -ffast-math is tested to work. + */ +#if defined(__FAST_MATH__) +#error __FAST_MATH__ defined, refusing to compile +#endif + +/* + * Autogenerated defaults + */ + +#undef DUK_USE_ALLOW_UNDEFINED_BEHAVIOR +#define DUK_USE_ARRAY_BUILTIN +#define DUK_USE_ARRAY_FASTPATH +#define DUK_USE_ARRAY_PROP_FASTPATH +#undef DUK_USE_ASSERTIONS +#define DUK_USE_AUGMENT_ERROR_CREATE +#define DUK_USE_AUGMENT_ERROR_THROW +#define DUK_USE_AVOID_PLATFORM_FUNCPTRS +#define DUK_USE_BASE64_FASTPATH +#define DUK_USE_BASE64_SUPPORT +#define DUK_USE_BOOLEAN_BUILTIN +#define DUK_USE_BUFFEROBJECT_SUPPORT +#undef DUK_USE_BUFLEN16 +#define DUK_USE_BYTECODE_DUMP_SUPPORT +#define DUK_USE_CACHE_ACTIVATION +#define DUK_USE_CACHE_CATCHER +#define DUK_USE_CALLSTACK_LIMIT 10000 +#define DUK_USE_CBOR_BUILTIN +#define DUK_USE_CBOR_SUPPORT +#define DUK_USE_COMPILER_RECLIMIT 2500 +#define DUK_USE_COROUTINE_SUPPORT +#undef DUK_USE_CPP_EXCEPTIONS +#undef DUK_USE_DATAPTR16 +#undef DUK_USE_DATAPTR_DEC16 +#undef DUK_USE_DATAPTR_ENC16 +#define DUK_USE_DATE_BUILTIN +#undef DUK_USE_DATE_FORMAT_STRING +#undef DUK_USE_DATE_GET_LOCAL_TZOFFSET +#undef DUK_USE_DATE_GET_NOW +#undef DUK_USE_DATE_PARSE_STRING +#undef DUK_USE_DATE_PRS_GETDATE +#undef DUK_USE_DEBUG +#undef DUK_USE_DEBUGGER_DUMPHEAP +#undef DUK_USE_DEBUGGER_INSPECT +#undef DUK_USE_DEBUGGER_PAUSE_UNCAUGHT +#undef DUK_USE_DEBUGGER_SUPPORT +#define DUK_USE_DEBUGGER_THROW_NOTIFY +#undef DUK_USE_DEBUGGER_TRANSPORT_TORTURE +#define DUK_USE_DEBUG_BUFSIZE 65536L +#define DUK_USE_DEBUG_LEVEL 0 +#undef DUK_USE_DEBUG_WRITE +#define DUK_USE_DOUBLE_LINKED_HEAP +#define DUK_USE_DUKTAPE_BUILTIN +#define DUK_USE_ENCODING_BUILTINS +#define DUK_USE_ERRCREATE +#define DUK_USE_ERRTHROW +#define DUK_USE_ES6 +#define DUK_USE_ES6_OBJECT_PROTO_PROPERTY +#define DUK_USE_ES6_OBJECT_SETPROTOTYPEOF +#define DUK_USE_ES6_PROXY +#define DUK_USE_ES6_REGEXP_SYNTAX +#define DUK_USE_ES6_UNICODE_ESCAPE +#define DUK_USE_ES7 +#define DUK_USE_ES7_EXP_OPERATOR +#define DUK_USE_ES8 +#define DUK_USE_ES9 +#define DUK_USE_ESBC_LIMITS +#define DUK_USE_ESBC_MAX_BYTES 2147418112L +#define DUK_USE_ESBC_MAX_LINENUMBER 2147418112L +#undef DUK_USE_EXEC_FUN_LOCAL +#undef DUK_USE_EXEC_INDIRECT_BOUND_CHECK +#undef DUK_USE_EXEC_PREFER_SIZE +#define DUK_USE_EXEC_REGCONST_OPTIMIZE +#undef DUK_USE_EXEC_TIMEOUT_CHECK +#undef DUK_USE_EXPLICIT_NULL_INIT +#undef DUK_USE_EXTSTR_FREE +#undef DUK_USE_EXTSTR_INTERN_CHECK +#undef DUK_USE_FASTINT +#define DUK_USE_FAST_REFCOUNT_DEFAULT +#undef DUK_USE_FATAL_HANDLER +#define DUK_USE_FATAL_MAXLEN 128 +#define DUK_USE_FINALIZER_SUPPORT +#undef DUK_USE_FINALIZER_TORTURE +#undef DUK_USE_FUNCPTR16 +#undef DUK_USE_FUNCPTR_DEC16 +#undef DUK_USE_FUNCPTR_ENC16 +#define DUK_USE_FUNCTION_BUILTIN +#define DUK_USE_FUNC_FILENAME_PROPERTY +#define DUK_USE_FUNC_NAME_PROPERTY +#undef DUK_USE_GC_TORTURE +#undef DUK_USE_GET_MONOTONIC_TIME +#undef DUK_USE_GET_RANDOM_DOUBLE +#define DUK_USE_GLOBAL_BINDING +#define DUK_USE_GLOBAL_BUILTIN +#undef DUK_USE_HEAPPTR16 +#undef DUK_USE_HEAPPTR_DEC16 +#undef DUK_USE_HEAPPTR_ENC16 +#define DUK_USE_HEX_FASTPATH +#define DUK_USE_HEX_SUPPORT +#define DUK_USE_HOBJECT_ARRAY_ABANDON_LIMIT 2 +#define DUK_USE_HOBJECT_ARRAY_ABANDON_MINSIZE 257 +#define DUK_USE_HOBJECT_ARRAY_FAST_RESIZE_LIMIT 9 +#define DUK_USE_HOBJECT_ARRAY_MINGROW_ADD 16 +#define DUK_USE_HOBJECT_ARRAY_MINGROW_DIVISOR 8 +#define DUK_USE_HOBJECT_ENTRY_MINGROW_ADD 16 +#define DUK_USE_HOBJECT_ENTRY_MINGROW_DIVISOR 8 +#define DUK_USE_HOBJECT_HASH_PART +#define DUK_USE_HOBJECT_HASH_PROP_LIMIT 8 +#define DUK_USE_HSTRING_ARRIDX +#define DUK_USE_HSTRING_CLEN +#undef DUK_USE_HSTRING_EXTDATA +#define DUK_USE_HSTRING_LAZY_CLEN +#define DUK_USE_HTML_COMMENTS +#define DUK_USE_IDCHAR_FASTPATH +#undef DUK_USE_INJECT_HEAP_ALLOC_ERROR +#undef DUK_USE_INTERRUPT_COUNTER +#undef DUK_USE_INTERRUPT_DEBUG_FIXUP +#define DUK_USE_JC +#define DUK_USE_JSON_BUILTIN +#define DUK_USE_JSON_DECNUMBER_FASTPATH +#define DUK_USE_JSON_DECSTRING_FASTPATH +#define DUK_USE_JSON_DEC_RECLIMIT 1000 +#define DUK_USE_JSON_EATWHITE_FASTPATH +#define DUK_USE_JSON_ENC_RECLIMIT 1000 +#define DUK_USE_JSON_QUOTESTRING_FASTPATH +#undef DUK_USE_JSON_STRINGIFY_FASTPATH +#define DUK_USE_JSON_SUPPORT +#define DUK_USE_JX +#define DUK_USE_LEXER_SLIDING_WINDOW +#undef DUK_USE_LIGHTFUNC_BUILTINS +#define DUK_USE_LITCACHE_SIZE 256 +#define DUK_USE_MARK_AND_SWEEP_RECLIMIT 256 +#define DUK_USE_MATH_BUILTIN +#define DUK_USE_NATIVE_CALL_RECLIMIT 1000 +#undef DUK_USE_NATIVE_STACK_CHECK +#define DUK_USE_NONSTD_ARRAY_SPLICE_DELCOUNT +#undef DUK_USE_NONSTD_FUNC_CALLER_PROPERTY +#undef DUK_USE_NONSTD_FUNC_SOURCE_PROPERTY +#define DUK_USE_NONSTD_FUNC_STMT +#define DUK_USE_NONSTD_GETTER_KEY_ARGUMENT +#define DUK_USE_NONSTD_JSON_ESC_U2028_U2029 +#define DUK_USE_NONSTD_SETTER_KEY_ARGUMENT +#define DUK_USE_NONSTD_STRING_FROMCHARCODE_32BIT +#define DUK_USE_NUMBER_BUILTIN +#define DUK_USE_OBJECT_BUILTIN +#undef DUK_USE_OBJSIZES16 +#undef DUK_USE_PARANOID_ERRORS +#define DUK_USE_PC2LINE +#define DUK_USE_PERFORMANCE_BUILTIN +#undef DUK_USE_PREFER_SIZE +#undef DUK_USE_PROMISE_BUILTIN +#define DUK_USE_PROVIDE_DEFAULT_ALLOC_FUNCTIONS +#undef DUK_USE_REFCOUNT16 +#define DUK_USE_REFCOUNT32 +#define DUK_USE_REFERENCE_COUNTING +#define DUK_USE_REFLECT_BUILTIN +#define DUK_USE_REGEXP_CANON_BITMAP +#undef DUK_USE_REGEXP_CANON_WORKAROUND +#define DUK_USE_REGEXP_COMPILER_RECLIMIT 10000 +#define DUK_USE_REGEXP_EXECUTOR_RECLIMIT 10000 +#define DUK_USE_REGEXP_SUPPORT +#undef DUK_USE_ROM_GLOBAL_CLONE +#undef DUK_USE_ROM_GLOBAL_INHERIT +#undef DUK_USE_ROM_OBJECTS +#define DUK_USE_ROM_PTRCOMP_FIRST 63488L +#undef DUK_USE_ROM_STRINGS +#define DUK_USE_SECTION_B +#undef DUK_USE_SELF_TESTS +#define DUK_USE_SHEBANG_COMMENTS +#undef DUK_USE_SHUFFLE_TORTURE +#define DUK_USE_SOURCE_NONBMP +#undef DUK_USE_STRHASH16 +#undef DUK_USE_STRHASH_DENSE +#define DUK_USE_STRHASH_SKIP_SHIFT 5 +#define DUK_USE_STRICT_DECL +#undef DUK_USE_STRICT_UTF8_SOURCE +#define DUK_USE_STRING_BUILTIN +#undef DUK_USE_STRLEN16 +#define DUK_USE_STRTAB_GROW_LIMIT 17 +#define DUK_USE_STRTAB_MAXSIZE 268435456L +#define DUK_USE_STRTAB_MINSIZE 1024 +#undef DUK_USE_STRTAB_PTRCOMP +#define DUK_USE_STRTAB_RESIZE_CHECK_MASK 255 +#define DUK_USE_STRTAB_SHRINK_LIMIT 6 +#undef DUK_USE_STRTAB_TORTURE +#define DUK_USE_SYMBOL_BUILTIN +#define DUK_USE_TAILCALL +#define DUK_USE_TARGET_INFO "unknown" +#define DUK_USE_TRACEBACKS +#define DUK_USE_TRACEBACK_DEPTH 10 +#define DUK_USE_VALSTACK_GROW_SHIFT 2 +#define DUK_USE_VALSTACK_LIMIT 1000000L +#define DUK_USE_VALSTACK_SHRINK_CHECK_SHIFT 2 +#define DUK_USE_VALSTACK_SHRINK_SLACK_SHIFT 4 +#undef DUK_USE_VALSTACK_UNSAFE +#define DUK_USE_VERBOSE_ERRORS +#define DUK_USE_VERBOSE_EXECUTOR_ERRORS +#define DUK_USE_VOLUNTARY_GC +#define DUK_USE_ZERO_BUFFER_DATA + +/* + * You may add overriding #define/#undef directives below for + * customization. You of course cannot un-#include or un-typedef + * anything; these require direct changes above. + */ + +/* __OVERRIDE_DEFINES__ */ + +/* + * Conditional includes + */ + +#if defined(DUK_F_CPP) && defined(DUK_USE_CPP_EXCEPTIONS) +#include /* std::exception */ +#include /* std::runtime_error */ +#endif + +/* + * Date provider selection + * + * User may define DUK_USE_DATE_GET_NOW() etc directly, in which case we'll + * rely on an external provider. If this is not done, revert to previous + * behavior and use Unix/Windows built-in provider. + */ + +#if defined(DUK_COMPILING_DUKTAPE) + +#if defined(DUK_USE_DATE_GET_NOW) +/* External provider already defined. */ +#elif defined(DUK_USE_DATE_NOW_GETTIMEOFDAY) +#define DUK_USE_DATE_GET_NOW(ctx) duk_bi_date_get_now_gettimeofday() +#elif defined(DUK_USE_DATE_NOW_TIME) +#define DUK_USE_DATE_GET_NOW(ctx) duk_bi_date_get_now_time() +#elif defined(DUK_USE_DATE_NOW_WINDOWS) +#define DUK_USE_DATE_GET_NOW(ctx) duk_bi_date_get_now_windows() +#elif defined(DUK_USE_DATE_NOW_WINDOWS_SUBMS) +#define DUK_USE_DATE_GET_NOW(ctx) duk_bi_date_get_now_windows_subms() +#else +#error no provider for DUK_USE_DATE_GET_NOW() +#endif + +#if defined(DUK_USE_DATE_GET_LOCAL_TZOFFSET) +/* External provider already defined. */ +#elif defined(DUK_USE_DATE_TZO_GMTIME_R) || defined(DUK_USE_DATE_TZO_GMTIME_S) || defined(DUK_USE_DATE_TZO_GMTIME) +#define DUK_USE_DATE_GET_LOCAL_TZOFFSET(d) duk_bi_date_get_local_tzoffset_gmtime((d)) +#elif defined(DUK_USE_DATE_TZO_WINDOWS) +#define DUK_USE_DATE_GET_LOCAL_TZOFFSET(d) duk_bi_date_get_local_tzoffset_windows((d)) +#elif defined(DUK_USE_DATE_TZO_WINDOWS_NO_DST) +#define DUK_USE_DATE_GET_LOCAL_TZOFFSET(d) duk_bi_date_get_local_tzoffset_windows_no_dst((d)) +#else +#error no provider for DUK_USE_DATE_GET_LOCAL_TZOFFSET() +#endif + +#if defined(DUK_USE_DATE_PARSE_STRING) +/* External provider already defined. */ +#elif defined(DUK_USE_DATE_PRS_STRPTIME) +#define DUK_USE_DATE_PARSE_STRING(ctx,str) duk_bi_date_parse_string_strptime((ctx), (str)) +#elif defined(DUK_USE_DATE_PRS_GETDATE) +#define DUK_USE_DATE_PARSE_STRING(ctx,str) duk_bi_date_parse_string_getdate((ctx), (str)) +#else +/* No provider for DUK_USE_DATE_PARSE_STRING(), fall back to ISO 8601 only. */ +#endif + +#if defined(DUK_USE_DATE_FORMAT_STRING) +/* External provider already defined. */ +#elif defined(DUK_USE_DATE_FMT_STRFTIME) +#define DUK_USE_DATE_FORMAT_STRING(ctx,parts,tzoffset,flags) \ + duk_bi_date_format_parts_strftime((ctx), (parts), (tzoffset), (flags)) +#else +/* No provider for DUK_USE_DATE_FORMAT_STRING(), fall back to ISO 8601 only. */ +#endif + +#if defined(DUK_USE_GET_MONOTONIC_TIME) +/* External provider already defined. */ +#elif defined(DUK_USE_GET_MONOTONIC_TIME_CLOCK_GETTIME) +#define DUK_USE_GET_MONOTONIC_TIME(ctx) duk_bi_date_get_monotonic_time_clock_gettime() +#elif defined(DUK_USE_GET_MONOTONIC_TIME_WINDOWS_QPC) +#define DUK_USE_GET_MONOTONIC_TIME(ctx) duk_bi_date_get_monotonic_time_windows_qpc() +#else +/* No provider for DUK_USE_GET_MONOTONIC_TIME(), fall back to DUK_USE_DATE_GET_NOW(). */ +#endif + +#endif /* DUK_COMPILING_DUKTAPE */ + +/* + * Checks for legacy feature options (DUK_OPT_xxx) + */ + +#if defined(DUK_OPT_ASSERTIONS) +#error unsupported legacy feature option DUK_OPT_ASSERTIONS used +#endif +#if defined(DUK_OPT_BUFFEROBJECT_SUPPORT) +#error unsupported legacy feature option DUK_OPT_BUFFEROBJECT_SUPPORT used +#endif +#if defined(DUK_OPT_BUFLEN16) +#error unsupported legacy feature option DUK_OPT_BUFLEN16 used +#endif +#if defined(DUK_OPT_DATAPTR16) +#error unsupported legacy feature option DUK_OPT_DATAPTR16 used +#endif +#if defined(DUK_OPT_DATAPTR_DEC16) +#error unsupported legacy feature option DUK_OPT_DATAPTR_DEC16 used +#endif +#if defined(DUK_OPT_DATAPTR_ENC16) +#error unsupported legacy feature option DUK_OPT_DATAPTR_ENC16 used +#endif +#if defined(DUK_OPT_DDDPRINT) +#error unsupported legacy feature option DUK_OPT_DDDPRINT used +#endif +#if defined(DUK_OPT_DDPRINT) +#error unsupported legacy feature option DUK_OPT_DDPRINT used +#endif +#if defined(DUK_OPT_DEBUG) +#error unsupported legacy feature option DUK_OPT_DEBUG used +#endif +#if defined(DUK_OPT_DEBUGGER_DUMPHEAP) +#error unsupported legacy feature option DUK_OPT_DEBUGGER_DUMPHEAP used +#endif +#if defined(DUK_OPT_DEBUGGER_FWD_LOGGING) +#error unsupported legacy feature option DUK_OPT_DEBUGGER_FWD_LOGGING used +#endif +#if defined(DUK_OPT_DEBUGGER_FWD_PRINTALERT) +#error unsupported legacy feature option DUK_OPT_DEBUGGER_FWD_PRINTALERT used +#endif +#if defined(DUK_OPT_DEBUGGER_SUPPORT) +#error unsupported legacy feature option DUK_OPT_DEBUGGER_SUPPORT used +#endif +#if defined(DUK_OPT_DEBUGGER_TRANSPORT_TORTURE) +#error unsupported legacy feature option DUK_OPT_DEBUGGER_TRANSPORT_TORTURE used +#endif +#if defined(DUK_OPT_DEBUG_BUFSIZE) +#error unsupported legacy feature option DUK_OPT_DEBUG_BUFSIZE used +#endif +#if defined(DUK_OPT_DECLARE) +#error unsupported legacy feature option DUK_OPT_DECLARE used +#endif +#if defined(DUK_OPT_DEEP_C_STACK) +#error unsupported legacy feature option DUK_OPT_DEEP_C_STACK used +#endif +#if defined(DUK_OPT_DLL_BUILD) +#error unsupported legacy feature option DUK_OPT_DLL_BUILD used +#endif +#if defined(DUK_OPT_DPRINT) +#error unsupported legacy feature option DUK_OPT_DPRINT used +#endif +#if defined(DUK_OPT_DPRINT_COLORS) +#error unsupported legacy feature option DUK_OPT_DPRINT_COLORS used +#endif +#if defined(DUK_OPT_DPRINT_RDTSC) +#error unsupported legacy feature option DUK_OPT_DPRINT_RDTSC used +#endif +#if defined(DUK_OPT_EXEC_TIMEOUT_CHECK) +#error unsupported legacy feature option DUK_OPT_EXEC_TIMEOUT_CHECK used +#endif +#if defined(DUK_OPT_EXTERNAL_STRINGS) +#error unsupported legacy feature option DUK_OPT_EXTERNAL_STRINGS used +#endif +#if defined(DUK_OPT_EXTSTR_FREE) +#error unsupported legacy feature option DUK_OPT_EXTSTR_FREE used +#endif +#if defined(DUK_OPT_EXTSTR_INTERN_CHECK) +#error unsupported legacy feature option DUK_OPT_EXTSTR_INTERN_CHECK used +#endif +#if defined(DUK_OPT_FASTINT) +#error unsupported legacy feature option DUK_OPT_FASTINT used +#endif +#if defined(DUK_OPT_FORCE_ALIGN) +#error unsupported legacy feature option DUK_OPT_FORCE_ALIGN used +#endif +#if defined(DUK_OPT_FORCE_BYTEORDER) +#error unsupported legacy feature option DUK_OPT_FORCE_BYTEORDER used +#endif +#if defined(DUK_OPT_FUNCPTR16) +#error unsupported legacy feature option DUK_OPT_FUNCPTR16 used +#endif +#if defined(DUK_OPT_FUNCPTR_DEC16) +#error unsupported legacy feature option DUK_OPT_FUNCPTR_DEC16 used +#endif +#if defined(DUK_OPT_FUNCPTR_ENC16) +#error unsupported legacy feature option DUK_OPT_FUNCPTR_ENC16 used +#endif +#if defined(DUK_OPT_FUNC_NONSTD_CALLER_PROPERTY) +#error unsupported legacy feature option DUK_OPT_FUNC_NONSTD_CALLER_PROPERTY used +#endif +#if defined(DUK_OPT_FUNC_NONSTD_SOURCE_PROPERTY) +#error unsupported legacy feature option DUK_OPT_FUNC_NONSTD_SOURCE_PROPERTY used +#endif +#if defined(DUK_OPT_GC_TORTURE) +#error unsupported legacy feature option DUK_OPT_GC_TORTURE used +#endif +#if defined(DUK_OPT_HAVE_CUSTOM_H) +#error unsupported legacy feature option DUK_OPT_HAVE_CUSTOM_H used +#endif +#if defined(DUK_OPT_HEAPPTR16) +#error unsupported legacy feature option DUK_OPT_HEAPPTR16 used +#endif +#if defined(DUK_OPT_HEAPPTR_DEC16) +#error unsupported legacy feature option DUK_OPT_HEAPPTR_DEC16 used +#endif +#if defined(DUK_OPT_HEAPPTR_ENC16) +#error unsupported legacy feature option DUK_OPT_HEAPPTR_ENC16 used +#endif +#if defined(DUK_OPT_INTERRUPT_COUNTER) +#error unsupported legacy feature option DUK_OPT_INTERRUPT_COUNTER used +#endif +#if defined(DUK_OPT_JSON_STRINGIFY_FASTPATH) +#error unsupported legacy feature option DUK_OPT_JSON_STRINGIFY_FASTPATH used +#endif +#if defined(DUK_OPT_LIGHTFUNC_BUILTINS) +#error unsupported legacy feature option DUK_OPT_LIGHTFUNC_BUILTINS used +#endif +#if defined(DUK_OPT_NONSTD_FUNC_CALLER_PROPERTY) +#error unsupported legacy feature option DUK_OPT_NONSTD_FUNC_CALLER_PROPERTY used +#endif +#if defined(DUK_OPT_NONSTD_FUNC_SOURCE_PROPERTY) +#error unsupported legacy feature option DUK_OPT_NONSTD_FUNC_SOURCE_PROPERTY used +#endif +#if defined(DUK_OPT_NO_ARRAY_SPLICE_NONSTD_DELCOUNT) +#error unsupported legacy feature option DUK_OPT_NO_ARRAY_SPLICE_NONSTD_DELCOUNT used +#endif +#if defined(DUK_OPT_NO_AUGMENT_ERRORS) +#error unsupported legacy feature option DUK_OPT_NO_AUGMENT_ERRORS used +#endif +#if defined(DUK_OPT_NO_BROWSER_LIKE) +#error unsupported legacy feature option DUK_OPT_NO_BROWSER_LIKE used +#endif +#if defined(DUK_OPT_NO_BUFFEROBJECT_SUPPORT) +#error unsupported legacy feature option DUK_OPT_NO_BUFFEROBJECT_SUPPORT used +#endif +#if defined(DUK_OPT_NO_BYTECODE_DUMP_SUPPORT) +#error unsupported legacy feature option DUK_OPT_NO_BYTECODE_DUMP_SUPPORT used +#endif +#if defined(DUK_OPT_NO_COMMONJS_MODULES) +#error unsupported legacy feature option DUK_OPT_NO_COMMONJS_MODULES used +#endif +#if defined(DUK_OPT_NO_ES6_OBJECT_PROTO_PROPERTY) +#error unsupported legacy feature option DUK_OPT_NO_ES6_OBJECT_PROTO_PROPERTY used +#endif +#if defined(DUK_OPT_NO_ES6_OBJECT_SETPROTOTYPEOF) +#error unsupported legacy feature option DUK_OPT_NO_ES6_OBJECT_SETPROTOTYPEOF used +#endif +#if defined(DUK_OPT_NO_ES6_PROXY) +#error unsupported legacy feature option DUK_OPT_NO_ES6_PROXY used +#endif +#if defined(DUK_OPT_NO_FILE_IO) +#error unsupported legacy feature option DUK_OPT_NO_FILE_IO used +#endif +#if defined(DUK_OPT_NO_FUNC_STMT) +#error unsupported legacy feature option DUK_OPT_NO_FUNC_STMT used +#endif +#if defined(DUK_OPT_NO_JC) +#error unsupported legacy feature option DUK_OPT_NO_JC used +#endif +#if defined(DUK_OPT_NO_JSONC) +#error unsupported legacy feature option DUK_OPT_NO_JSONC used +#endif +#if defined(DUK_OPT_NO_JSONX) +#error unsupported legacy feature option DUK_OPT_NO_JSONX used +#endif +#if defined(DUK_OPT_NO_JX) +#error unsupported legacy feature option DUK_OPT_NO_JX used +#endif +#if defined(DUK_OPT_NO_MARK_AND_SWEEP) +#error unsupported legacy feature option DUK_OPT_NO_MARK_AND_SWEEP used +#endif +#if defined(DUK_OPT_NO_MS_STRINGTABLE_RESIZE) +#error unsupported legacy feature option DUK_OPT_NO_MS_STRINGTABLE_RESIZE used +#endif +#if defined(DUK_OPT_NO_NONSTD_ACCESSOR_KEY_ARGUMENT) +#error unsupported legacy feature option DUK_OPT_NO_NONSTD_ACCESSOR_KEY_ARGUMENT used +#endif +#if defined(DUK_OPT_NO_NONSTD_ARRAY_CONCAT_TRAILER) +#error unsupported legacy feature option DUK_OPT_NO_NONSTD_ARRAY_CONCAT_TRAILER used +#endif +#if defined(DUK_OPT_NO_NONSTD_ARRAY_MAP_TRAILER) +#error unsupported legacy feature option DUK_OPT_NO_NONSTD_ARRAY_MAP_TRAILER used +#endif +#if defined(DUK_OPT_NO_NONSTD_ARRAY_SPLICE_DELCOUNT) +#error unsupported legacy feature option DUK_OPT_NO_NONSTD_ARRAY_SPLICE_DELCOUNT used +#endif +#if defined(DUK_OPT_NO_NONSTD_FUNC_STMT) +#error unsupported legacy feature option DUK_OPT_NO_NONSTD_FUNC_STMT used +#endif +#if defined(DUK_OPT_NO_NONSTD_JSON_ESC_U2028_U2029) +#error unsupported legacy feature option DUK_OPT_NO_NONSTD_JSON_ESC_U2028_U2029 used +#endif +#if defined(DUK_OPT_NO_NONSTD_STRING_FROMCHARCODE_32BIT) +#error unsupported legacy feature option DUK_OPT_NO_NONSTD_STRING_FROMCHARCODE_32BIT used +#endif +#if defined(DUK_OPT_NO_OBJECT_ES6_PROTO_PROPERTY) +#error unsupported legacy feature option DUK_OPT_NO_OBJECT_ES6_PROTO_PROPERTY used +#endif +#if defined(DUK_OPT_NO_OBJECT_ES6_SETPROTOTYPEOF) +#error unsupported legacy feature option DUK_OPT_NO_OBJECT_ES6_SETPROTOTYPEOF used +#endif +#if defined(DUK_OPT_NO_OCTAL_SUPPORT) +#error unsupported legacy feature option DUK_OPT_NO_OCTAL_SUPPORT used +#endif +#if defined(DUK_OPT_NO_PACKED_TVAL) +#error unsupported legacy feature option DUK_OPT_NO_PACKED_TVAL used +#endif +#if defined(DUK_OPT_NO_PC2LINE) +#error unsupported legacy feature option DUK_OPT_NO_PC2LINE used +#endif +#if defined(DUK_OPT_NO_REFERENCE_COUNTING) +#error unsupported legacy feature option DUK_OPT_NO_REFERENCE_COUNTING used +#endif +#if defined(DUK_OPT_NO_REGEXP_SUPPORT) +#error unsupported legacy feature option DUK_OPT_NO_REGEXP_SUPPORT used +#endif +#if defined(DUK_OPT_NO_SECTION_B) +#error unsupported legacy feature option DUK_OPT_NO_SECTION_B used +#endif +#if defined(DUK_OPT_NO_SOURCE_NONBMP) +#error unsupported legacy feature option DUK_OPT_NO_SOURCE_NONBMP used +#endif +#if defined(DUK_OPT_NO_STRICT_DECL) +#error unsupported legacy feature option DUK_OPT_NO_STRICT_DECL used +#endif +#if defined(DUK_OPT_NO_TRACEBACKS) +#error unsupported legacy feature option DUK_OPT_NO_TRACEBACKS used +#endif +#if defined(DUK_OPT_NO_VERBOSE_ERRORS) +#error unsupported legacy feature option DUK_OPT_NO_VERBOSE_ERRORS used +#endif +#if defined(DUK_OPT_NO_VOLUNTARY_GC) +#error unsupported legacy feature option DUK_OPT_NO_VOLUNTARY_GC used +#endif +#if defined(DUK_OPT_NO_ZERO_BUFFER_DATA) +#error unsupported legacy feature option DUK_OPT_NO_ZERO_BUFFER_DATA used +#endif +#if defined(DUK_OPT_OBJSIZES16) +#error unsupported legacy feature option DUK_OPT_OBJSIZES16 used +#endif +#if defined(DUK_OPT_PANIC_HANDLER) +#error unsupported legacy feature option DUK_OPT_PANIC_HANDLER used +#endif +#if defined(DUK_OPT_REFCOUNT16) +#error unsupported legacy feature option DUK_OPT_REFCOUNT16 used +#endif +#if defined(DUK_OPT_SEGFAULT_ON_PANIC) +#error unsupported legacy feature option DUK_OPT_SEGFAULT_ON_PANIC used +#endif +#if defined(DUK_OPT_SELF_TESTS) +#error unsupported legacy feature option DUK_OPT_SELF_TESTS used +#endif +#if defined(DUK_OPT_SETJMP) +#error unsupported legacy feature option DUK_OPT_SETJMP used +#endif +#if defined(DUK_OPT_SHUFFLE_TORTURE) +#error unsupported legacy feature option DUK_OPT_SHUFFLE_TORTURE used +#endif +#if defined(DUK_OPT_SIGSETJMP) +#error unsupported legacy feature option DUK_OPT_SIGSETJMP used +#endif +#if defined(DUK_OPT_STRHASH16) +#error unsupported legacy feature option DUK_OPT_STRHASH16 used +#endif +#if defined(DUK_OPT_STRICT_UTF8_SOURCE) +#error unsupported legacy feature option DUK_OPT_STRICT_UTF8_SOURCE used +#endif +#if defined(DUK_OPT_STRLEN16) +#error unsupported legacy feature option DUK_OPT_STRLEN16 used +#endif +#if defined(DUK_OPT_STRTAB_CHAIN) +#error unsupported legacy feature option DUK_OPT_STRTAB_CHAIN used +#endif +#if defined(DUK_OPT_STRTAB_CHAIN_SIZE) +#error unsupported legacy feature option DUK_OPT_STRTAB_CHAIN_SIZE used +#endif +#if defined(DUK_OPT_TARGET_INFO) +#error unsupported legacy feature option DUK_OPT_TARGET_INFO used +#endif +#if defined(DUK_OPT_TRACEBACK_DEPTH) +#error unsupported legacy feature option DUK_OPT_TRACEBACK_DEPTH used +#endif +#if defined(DUK_OPT_UNDERSCORE_SETJMP) +#error unsupported legacy feature option DUK_OPT_UNDERSCORE_SETJMP used +#endif +#if defined(DUK_OPT_USER_INITJS) +#error unsupported legacy feature option DUK_OPT_USER_INITJS used +#endif + +/* + * Checks for config option consistency (DUK_USE_xxx) + */ + +#if defined(DUK_USE_32BIT_PTRS) +#error unsupported config option used (option has been removed): DUK_USE_32BIT_PTRS +#endif +#if defined(DUK_USE_ALIGN_4) +#error unsupported config option used (option has been removed): DUK_USE_ALIGN_4 +#endif +#if defined(DUK_USE_ALIGN_8) +#error unsupported config option used (option has been removed): DUK_USE_ALIGN_8 +#endif +#if defined(DUK_USE_BROWSER_LIKE) +#error unsupported config option used (option has been removed): DUK_USE_BROWSER_LIKE +#endif +#if defined(DUK_USE_BUILTIN_INITJS) +#error unsupported config option used (option has been removed): DUK_USE_BUILTIN_INITJS +#endif +#if defined(DUK_USE_BYTEORDER_FORCED) +#error unsupported config option used (option has been removed): DUK_USE_BYTEORDER_FORCED +#endif +#if defined(DUK_USE_COMMONJS_MODULES) +#error unsupported config option used (option has been removed): DUK_USE_COMMONJS_MODULES +#endif +#if defined(DUK_USE_DATAPTR_DEC16) && !defined(DUK_USE_DATAPTR16) +#error config option DUK_USE_DATAPTR_DEC16 requires option DUK_USE_DATAPTR16 (which is missing) +#endif +#if defined(DUK_USE_DATAPTR_ENC16) && !defined(DUK_USE_DATAPTR16) +#error config option DUK_USE_DATAPTR_ENC16 requires option DUK_USE_DATAPTR16 (which is missing) +#endif +#if defined(DUK_USE_DDDPRINT) +#error unsupported config option used (option has been removed): DUK_USE_DDDPRINT +#endif +#if defined(DUK_USE_DDPRINT) +#error unsupported config option used (option has been removed): DUK_USE_DDPRINT +#endif +#if defined(DUK_USE_DEBUGGER_FWD_LOGGING) +#error unsupported config option used (option has been removed): DUK_USE_DEBUGGER_FWD_LOGGING +#endif +#if defined(DUK_USE_DEBUGGER_FWD_PRINTALERT) +#error unsupported config option used (option has been removed): DUK_USE_DEBUGGER_FWD_PRINTALERT +#endif +#if defined(DUK_USE_DEBUGGER_SUPPORT) && !defined(DUK_USE_INTERRUPT_COUNTER) +#error config option DUK_USE_DEBUGGER_SUPPORT requires option DUK_USE_INTERRUPT_COUNTER (which is missing) +#endif +#if defined(DUK_USE_DEEP_C_STACK) +#error unsupported config option used (option has been removed): DUK_USE_DEEP_C_STACK +#endif +#if defined(DUK_USE_DOUBLE_BE) +#error unsupported config option used (option has been removed): DUK_USE_DOUBLE_BE +#endif +#if defined(DUK_USE_DOUBLE_BE) && defined(DUK_USE_DOUBLE_LE) +#error config option DUK_USE_DOUBLE_BE conflicts with option DUK_USE_DOUBLE_LE (which is also defined) +#endif +#if defined(DUK_USE_DOUBLE_BE) && defined(DUK_USE_DOUBLE_ME) +#error config option DUK_USE_DOUBLE_BE conflicts with option DUK_USE_DOUBLE_ME (which is also defined) +#endif +#if defined(DUK_USE_DOUBLE_LE) +#error unsupported config option used (option has been removed): DUK_USE_DOUBLE_LE +#endif +#if defined(DUK_USE_DOUBLE_LE) && defined(DUK_USE_DOUBLE_BE) +#error config option DUK_USE_DOUBLE_LE conflicts with option DUK_USE_DOUBLE_BE (which is also defined) +#endif +#if defined(DUK_USE_DOUBLE_LE) && defined(DUK_USE_DOUBLE_ME) +#error config option DUK_USE_DOUBLE_LE conflicts with option DUK_USE_DOUBLE_ME (which is also defined) +#endif +#if defined(DUK_USE_DOUBLE_ME) +#error unsupported config option used (option has been removed): DUK_USE_DOUBLE_ME +#endif +#if defined(DUK_USE_DOUBLE_ME) && defined(DUK_USE_DOUBLE_LE) +#error config option DUK_USE_DOUBLE_ME conflicts with option DUK_USE_DOUBLE_LE (which is also defined) +#endif +#if defined(DUK_USE_DOUBLE_ME) && defined(DUK_USE_DOUBLE_BE) +#error config option DUK_USE_DOUBLE_ME conflicts with option DUK_USE_DOUBLE_BE (which is also defined) +#endif +#if defined(DUK_USE_DPRINT) +#error unsupported config option used (option has been removed): DUK_USE_DPRINT +#endif +#if defined(DUK_USE_DPRINT) && !defined(DUK_USE_DEBUG) +#error config option DUK_USE_DPRINT requires option DUK_USE_DEBUG (which is missing) +#endif +#if defined(DUK_USE_DPRINT_COLORS) +#error unsupported config option used (option has been removed): DUK_USE_DPRINT_COLORS +#endif +#if defined(DUK_USE_DPRINT_RDTSC) +#error unsupported config option used (option has been removed): DUK_USE_DPRINT_RDTSC +#endif +#if defined(DUK_USE_ES6_REGEXP_BRACES) +#error unsupported config option used (option has been removed): DUK_USE_ES6_REGEXP_BRACES +#endif +#if defined(DUK_USE_ESBC_MAX_BYTES) && !defined(DUK_USE_ESBC_LIMITS) +#error config option DUK_USE_ESBC_MAX_BYTES requires option DUK_USE_ESBC_LIMITS (which is missing) +#endif +#if defined(DUK_USE_ESBC_MAX_LINENUMBER) && !defined(DUK_USE_ESBC_LIMITS) +#error config option DUK_USE_ESBC_MAX_LINENUMBER requires option DUK_USE_ESBC_LIMITS (which is missing) +#endif +#if defined(DUK_USE_EXEC_TIMEOUT_CHECK) && !defined(DUK_USE_INTERRUPT_COUNTER) +#error config option DUK_USE_EXEC_TIMEOUT_CHECK requires option DUK_USE_INTERRUPT_COUNTER (which is missing) +#endif +#if defined(DUK_USE_EXTSTR_FREE) && !defined(DUK_USE_HSTRING_EXTDATA) +#error config option DUK_USE_EXTSTR_FREE requires option DUK_USE_HSTRING_EXTDATA (which is missing) +#endif +#if defined(DUK_USE_EXTSTR_INTERN_CHECK) && !defined(DUK_USE_HSTRING_EXTDATA) +#error config option DUK_USE_EXTSTR_INTERN_CHECK requires option DUK_USE_HSTRING_EXTDATA (which is missing) +#endif +#if defined(DUK_USE_FASTINT) && !defined(DUK_USE_64BIT_OPS) +#error config option DUK_USE_FASTINT requires option DUK_USE_64BIT_OPS (which is missing) +#endif +#if defined(DUK_USE_FILE_IO) +#error unsupported config option used (option has been removed): DUK_USE_FILE_IO +#endif +#if defined(DUK_USE_FULL_TVAL) +#error unsupported config option used (option has been removed): DUK_USE_FULL_TVAL +#endif +#if defined(DUK_USE_FUNCPTR_DEC16) && !defined(DUK_USE_FUNCPTR16) +#error config option DUK_USE_FUNCPTR_DEC16 requires option DUK_USE_FUNCPTR16 (which is missing) +#endif +#if defined(DUK_USE_FUNCPTR_ENC16) && !defined(DUK_USE_FUNCPTR16) +#error config option DUK_USE_FUNCPTR_ENC16 requires option DUK_USE_FUNCPTR16 (which is missing) +#endif +#if defined(DUK_USE_HASHBYTES_UNALIGNED_U32_ACCESS) +#error unsupported config option used (option has been removed): DUK_USE_HASHBYTES_UNALIGNED_U32_ACCESS +#endif +#if defined(DUK_USE_HEAPPTR16) && defined(DUK_USE_DEBUG) +#error config option DUK_USE_HEAPPTR16 conflicts with option DUK_USE_DEBUG (which is also defined) +#endif +#if defined(DUK_USE_HEAPPTR_DEC16) && !defined(DUK_USE_HEAPPTR16) +#error config option DUK_USE_HEAPPTR_DEC16 requires option DUK_USE_HEAPPTR16 (which is missing) +#endif +#if defined(DUK_USE_HEAPPTR_ENC16) && !defined(DUK_USE_HEAPPTR16) +#error config option DUK_USE_HEAPPTR_ENC16 requires option DUK_USE_HEAPPTR16 (which is missing) +#endif +#if defined(DUK_USE_INTEGER_BE) +#error unsupported config option used (option has been removed): DUK_USE_INTEGER_BE +#endif +#if defined(DUK_USE_INTEGER_BE) && defined(DUK_USE_INTEGER_LE) +#error config option DUK_USE_INTEGER_BE conflicts with option DUK_USE_INTEGER_LE (which is also defined) +#endif +#if defined(DUK_USE_INTEGER_BE) && defined(DUK_USE_INTEGER_ME) +#error config option DUK_USE_INTEGER_BE conflicts with option DUK_USE_INTEGER_ME (which is also defined) +#endif +#if defined(DUK_USE_INTEGER_LE) +#error unsupported config option used (option has been removed): DUK_USE_INTEGER_LE +#endif +#if defined(DUK_USE_INTEGER_LE) && defined(DUK_USE_INTEGER_BE) +#error config option DUK_USE_INTEGER_LE conflicts with option DUK_USE_INTEGER_BE (which is also defined) +#endif +#if defined(DUK_USE_INTEGER_LE) && defined(DUK_USE_INTEGER_ME) +#error config option DUK_USE_INTEGER_LE conflicts with option DUK_USE_INTEGER_ME (which is also defined) +#endif +#if defined(DUK_USE_INTEGER_ME) +#error unsupported config option used (option has been removed): DUK_USE_INTEGER_ME +#endif +#if defined(DUK_USE_INTEGER_ME) && defined(DUK_USE_INTEGER_LE) +#error config option DUK_USE_INTEGER_ME conflicts with option DUK_USE_INTEGER_LE (which is also defined) +#endif +#if defined(DUK_USE_INTEGER_ME) && defined(DUK_USE_INTEGER_BE) +#error config option DUK_USE_INTEGER_ME conflicts with option DUK_USE_INTEGER_BE (which is also defined) +#endif +#if defined(DUK_USE_MARKANDSWEEP_FINALIZER_TORTURE) +#error unsupported config option used (option has been removed): DUK_USE_MARKANDSWEEP_FINALIZER_TORTURE +#endif +#if defined(DUK_USE_MARK_AND_SWEEP) +#error unsupported config option used (option has been removed): DUK_USE_MARK_AND_SWEEP +#endif +#if defined(DUK_USE_MATH_FMAX) +#error unsupported config option used (option has been removed): DUK_USE_MATH_FMAX +#endif +#if defined(DUK_USE_MATH_FMIN) +#error unsupported config option used (option has been removed): DUK_USE_MATH_FMIN +#endif +#if defined(DUK_USE_MATH_ROUND) +#error unsupported config option used (option has been removed): DUK_USE_MATH_ROUND +#endif +#if defined(DUK_USE_MS_STRINGTABLE_RESIZE) +#error unsupported config option used (option has been removed): DUK_USE_MS_STRINGTABLE_RESIZE +#endif +#if defined(DUK_USE_NONSTD_ARRAY_CONCAT_TRAILER) +#error unsupported config option used (option has been removed): DUK_USE_NONSTD_ARRAY_CONCAT_TRAILER +#endif +#if defined(DUK_USE_NONSTD_ARRAY_MAP_TRAILER) +#error unsupported config option used (option has been removed): DUK_USE_NONSTD_ARRAY_MAP_TRAILER +#endif +#if defined(DUK_USE_NONSTD_REGEXP_DOLLAR_ESCAPE) +#error unsupported config option used (option has been removed): DUK_USE_NONSTD_REGEXP_DOLLAR_ESCAPE +#endif +#if defined(DUK_USE_NO_DOUBLE_ALIASING_SELFTEST) +#error unsupported config option used (option has been removed): DUK_USE_NO_DOUBLE_ALIASING_SELFTEST +#endif +#if defined(DUK_USE_OCTAL_SUPPORT) +#error unsupported config option used (option has been removed): DUK_USE_OCTAL_SUPPORT +#endif +#if defined(DUK_USE_PACKED_TVAL_POSSIBLE) +#error unsupported config option used (option has been removed): DUK_USE_PACKED_TVAL_POSSIBLE +#endif +#if defined(DUK_USE_PANIC_ABORT) +#error unsupported config option used (option has been removed): DUK_USE_PANIC_ABORT +#endif +#if defined(DUK_USE_PANIC_EXIT) +#error unsupported config option used (option has been removed): DUK_USE_PANIC_EXIT +#endif +#if defined(DUK_USE_PANIC_HANDLER) +#error unsupported config option used (option has been removed): DUK_USE_PANIC_HANDLER +#endif +#if defined(DUK_USE_PANIC_SEGFAULT) +#error unsupported config option used (option has been removed): DUK_USE_PANIC_SEGFAULT +#endif +#if defined(DUK_USE_POW_NETBSD_WORKAROUND) +#error unsupported config option used (option has been removed): DUK_USE_POW_NETBSD_WORKAROUND +#endif +#if defined(DUK_USE_RDTSC) +#error unsupported config option used (option has been removed): DUK_USE_RDTSC +#endif +#if defined(DUK_USE_REFZERO_FINALIZER_TORTURE) +#error unsupported config option used (option has been removed): DUK_USE_REFZERO_FINALIZER_TORTURE +#endif +#if defined(DUK_USE_ROM_GLOBAL_CLONE) && !defined(DUK_USE_ROM_STRINGS) +#error config option DUK_USE_ROM_GLOBAL_CLONE requires option DUK_USE_ROM_STRINGS (which is missing) +#endif +#if defined(DUK_USE_ROM_GLOBAL_CLONE) && !defined(DUK_USE_ROM_OBJECTS) +#error config option DUK_USE_ROM_GLOBAL_CLONE requires option DUK_USE_ROM_OBJECTS (which is missing) +#endif +#if defined(DUK_USE_ROM_GLOBAL_CLONE) && defined(DUK_USE_ROM_GLOBAL_INHERIT) +#error config option DUK_USE_ROM_GLOBAL_CLONE conflicts with option DUK_USE_ROM_GLOBAL_INHERIT (which is also defined) +#endif +#if defined(DUK_USE_ROM_GLOBAL_INHERIT) && !defined(DUK_USE_ROM_STRINGS) +#error config option DUK_USE_ROM_GLOBAL_INHERIT requires option DUK_USE_ROM_STRINGS (which is missing) +#endif +#if defined(DUK_USE_ROM_GLOBAL_INHERIT) && !defined(DUK_USE_ROM_OBJECTS) +#error config option DUK_USE_ROM_GLOBAL_INHERIT requires option DUK_USE_ROM_OBJECTS (which is missing) +#endif +#if defined(DUK_USE_ROM_GLOBAL_INHERIT) && defined(DUK_USE_ROM_GLOBAL_CLONE) +#error config option DUK_USE_ROM_GLOBAL_INHERIT conflicts with option DUK_USE_ROM_GLOBAL_CLONE (which is also defined) +#endif +#if defined(DUK_USE_ROM_OBJECTS) && !defined(DUK_USE_ROM_STRINGS) +#error config option DUK_USE_ROM_OBJECTS requires option DUK_USE_ROM_STRINGS (which is missing) +#endif +#if defined(DUK_USE_ROM_STRINGS) && !defined(DUK_USE_ROM_OBJECTS) +#error config option DUK_USE_ROM_STRINGS requires option DUK_USE_ROM_OBJECTS (which is missing) +#endif +#if defined(DUK_USE_SETJMP) +#error unsupported config option used (option has been removed): DUK_USE_SETJMP +#endif +#if defined(DUK_USE_SIGSETJMP) +#error unsupported config option used (option has been removed): DUK_USE_SIGSETJMP +#endif +#if defined(DUK_USE_STRTAB_CHAIN) +#error unsupported config option used (option has been removed): DUK_USE_STRTAB_CHAIN +#endif +#if defined(DUK_USE_STRTAB_CHAIN_SIZE) +#error unsupported config option used (option has been removed): DUK_USE_STRTAB_CHAIN_SIZE +#endif +#if defined(DUK_USE_STRTAB_CHAIN_SIZE) && !defined(DUK_USE_STRTAB_CHAIN) +#error config option DUK_USE_STRTAB_CHAIN_SIZE requires option DUK_USE_STRTAB_CHAIN (which is missing) +#endif +#if defined(DUK_USE_STRTAB_PROBE) +#error unsupported config option used (option has been removed): DUK_USE_STRTAB_PROBE +#endif +#if defined(DUK_USE_STRTAB_PTRCOMP) && !defined(DUK_USE_HEAPPTR16) +#error config option DUK_USE_STRTAB_PTRCOMP requires option DUK_USE_HEAPPTR16 (which is missing) +#endif +#if defined(DUK_USE_TAILCALL) && defined(DUK_USE_NONSTD_FUNC_CALLER_PROPERTY) +#error config option DUK_USE_TAILCALL conflicts with option DUK_USE_NONSTD_FUNC_CALLER_PROPERTY (which is also defined) +#endif +#if defined(DUK_USE_UNALIGNED_ACCESSES_POSSIBLE) +#error unsupported config option used (option has been removed): DUK_USE_UNALIGNED_ACCESSES_POSSIBLE +#endif +#if defined(DUK_USE_UNDERSCORE_SETJMP) +#error unsupported config option used (option has been removed): DUK_USE_UNDERSCORE_SETJMP +#endif +#if defined(DUK_USE_USER_DECLARE) +#error unsupported config option used (option has been removed): DUK_USE_USER_DECLARE +#endif +#if defined(DUK_USE_USER_INITJS) +#error unsupported config option used (option has been removed): DUK_USE_USER_INITJS +#endif + +#if defined(DUK_USE_CPP_EXCEPTIONS) && !defined(__cplusplus) +#error DUK_USE_CPP_EXCEPTIONS enabled but not compiling with a C++ compiler +#endif + +/* + * Convert DUK_USE_BYTEORDER, from whatever source, into currently used + * internal defines. If detection failed, #error out. + */ + +#if defined(DUK_USE_BYTEORDER) +#if (DUK_USE_BYTEORDER == 1) +#define DUK_USE_INTEGER_LE +#define DUK_USE_DOUBLE_LE +#elif (DUK_USE_BYTEORDER == 2) +#define DUK_USE_INTEGER_LE /* integer endianness is little on purpose */ +#define DUK_USE_DOUBLE_ME +#elif (DUK_USE_BYTEORDER == 3) +#define DUK_USE_INTEGER_BE +#define DUK_USE_DOUBLE_BE +#else +#error unsupported: byte order invalid +#endif /* byte order */ +#else +#error unsupported: byte order detection failed +#endif /* defined(DUK_USE_BYTEORDER) */ + +#endif /* DUK_CONFIG_H_INCLUDED */ diff --git a/core/src/duktape/duk_console.c b/core/src/duktape/duk_console.c new file mode 100644 index 0000000..70ff6f0 --- /dev/null +++ b/core/src/duktape/duk_console.c @@ -0,0 +1,185 @@ +/* + * Minimal 'console' binding. + * + * https://github.com/DeveloperToolsWG/console-object/blob/master/api.md + * https://developers.google.com/web/tools/chrome-devtools/debug/console/console-reference + * https://developer.mozilla.org/en/docs/Web/API/console + */ + +#include +#include +#include "duktape.h" +#include "duk_console.h" + +/* XXX: Add some form of log level filtering. */ + +/* XXX: Should all output be written via e.g. console.write(formattedMsg)? + * This would make it easier for user code to redirect all console output + * to a custom backend. + */ + +/* XXX: Init console object using duk_def_prop() when that call is available. */ + +static duk_ret_t duk__console_log_helper(duk_context *ctx, const char *error_name) { + duk_uint_t flags = (duk_uint_t) duk_get_current_magic(ctx); + FILE *output = (flags & DUK_CONSOLE_STDOUT_ONLY) ? stdout : stderr; + duk_idx_t n = duk_get_top(ctx); + duk_idx_t i; + + duk_get_global_string(ctx, "console"); + duk_get_prop_string(ctx, -1, "format"); + + for (i = 0; i < n; i++) { + if (duk_check_type_mask(ctx, i, DUK_TYPE_MASK_OBJECT)) { + /* Slow path formatting. */ + duk_dup(ctx, -1); /* console.format */ + duk_dup(ctx, i); + duk_call(ctx, 1); + duk_replace(ctx, i); /* arg[i] = console.format(arg[i]); */ + } + } + + duk_pop_2(ctx); + + duk_push_string(ctx, " "); + duk_insert(ctx, 0); + duk_join(ctx, n); + + if (error_name) { + duk_push_error_object(ctx, DUK_ERR_ERROR, "%s", duk_require_string(ctx, -1)); + duk_push_string(ctx, "name"); + duk_push_string(ctx, error_name); + duk_def_prop(ctx, -3, DUK_DEFPROP_FORCE | DUK_DEFPROP_HAVE_VALUE); /* to get e.g. 'Trace: 1 2 3' */ + duk_get_prop_string(ctx, -1, "stack"); + } + + fprintf(output, "%s\n", duk_to_string(ctx, -1)); + if (flags & DUK_CONSOLE_FLUSH) { + fflush(output); + } + return 0; +} + +static duk_ret_t duk__console_assert(duk_context *ctx) { + if (duk_to_boolean(ctx, 0)) { + return 0; + } + duk_remove(ctx, 0); + + return duk__console_log_helper(ctx, "AssertionError"); +} + +static duk_ret_t duk__console_log(duk_context *ctx) { + return duk__console_log_helper(ctx, NULL); +} + +static duk_ret_t duk__console_trace(duk_context *ctx) { + return duk__console_log_helper(ctx, "Trace"); +} + +static duk_ret_t duk__console_info(duk_context *ctx) { + return duk__console_log_helper(ctx, NULL); +} + +static duk_ret_t duk__console_warn(duk_context *ctx) { + return duk__console_log_helper(ctx, NULL); +} + +static duk_ret_t duk__console_error(duk_context *ctx) { + return duk__console_log_helper(ctx, "Error"); +} + +static duk_ret_t duk__console_dir(duk_context *ctx) { + /* For now, just share the formatting of .log() */ + return duk__console_log_helper(ctx, 0); +} + +static void duk__console_reg_vararg_func(duk_context *ctx, duk_c_function func, const char *name, duk_uint_t flags) { + duk_push_c_function(ctx, func, DUK_VARARGS); + duk_push_string(ctx, "name"); + duk_push_string(ctx, name); + duk_def_prop(ctx, -3, DUK_DEFPROP_HAVE_VALUE | DUK_DEFPROP_FORCE); /* Improve stacktraces by displaying function name */ + duk_set_magic(ctx, -1, (duk_int_t) flags); + duk_put_prop_string(ctx, -2, name); +} + +void duk_console_init(duk_context *ctx, duk_uint_t flags) { + duk_uint_t flags_orig; + + /* If both DUK_CONSOLE_STDOUT_ONLY and DUK_CONSOLE_STDERR_ONLY where specified, + * just turn off DUK_CONSOLE_STDOUT_ONLY and keep DUK_CONSOLE_STDERR_ONLY. + */ + if ((flags & DUK_CONSOLE_STDOUT_ONLY) && (flags & DUK_CONSOLE_STDERR_ONLY)) { + flags &= ~DUK_CONSOLE_STDOUT_ONLY; + } + /* Remember the (possibly corrected) flags we received. */ + flags_orig = flags; + + duk_push_object(ctx); + + /* Custom function to format objects; user can replace. + * For now, try JX-formatting and if that fails, fall back + * to ToString(v). + */ + duk_eval_string(ctx, + "(function (E) {" + "return function format(v){" + "try{" + "return E('jx',v);" + "}catch(e){" + "return String(v);" /* String() allows symbols, ToString() internal algorithm doesn't. */ + "}" + "};" + "})(Duktape.enc)"); + duk_put_prop_string(ctx, -2, "format"); + + flags = flags_orig; + if (!(flags & DUK_CONSOLE_STDOUT_ONLY) && !(flags & DUK_CONSOLE_STDERR_ONLY)) { + /* No output indicators were specified; these levels go to stdout. */ + flags |= DUK_CONSOLE_STDOUT_ONLY; + } + duk__console_reg_vararg_func(ctx, duk__console_assert, "assert", flags); + duk__console_reg_vararg_func(ctx, duk__console_log, "log", flags); + duk__console_reg_vararg_func(ctx, duk__console_log, "debug", flags); /* alias to console.log */ + duk__console_reg_vararg_func(ctx, duk__console_trace, "trace", flags); + duk__console_reg_vararg_func(ctx, duk__console_info, "info", flags); + + flags = flags_orig; + if (!(flags & DUK_CONSOLE_STDOUT_ONLY) && !(flags & DUK_CONSOLE_STDERR_ONLY)) { + /* No output indicators were specified; these levels go to stderr. */ + flags |= DUK_CONSOLE_STDERR_ONLY; + } + duk__console_reg_vararg_func(ctx, duk__console_warn, "warn", flags); + duk__console_reg_vararg_func(ctx, duk__console_error, "error", flags); + duk__console_reg_vararg_func(ctx, duk__console_error, "exception", flags); /* alias to console.error */ + duk__console_reg_vararg_func(ctx, duk__console_dir, "dir", flags); + + duk_put_global_string(ctx, "console"); + + /* Proxy wrapping: ensures any undefined console method calls are + * ignored silently. This was required specifically by the + * DeveloperToolsWG proposal (and was implemented also by Firefox: + * https://bugzilla.mozilla.org/show_bug.cgi?id=629607). This is + * apparently no longer the preferred way of implementing console. + * When Proxy is enabled, whitelist at least .toJSON() to avoid + * confusing JX serialization of the console object. + */ + + if (flags & DUK_CONSOLE_PROXY_WRAPPER) { + /* Tolerate failure to initialize Proxy wrapper in case + * Proxy support is disabled. + */ + (void) duk_peval_string_noresult(ctx, + "(function(){" + "var D=function(){};" + "var W={toJSON:true};" /* whitelisted */ + "console=new Proxy(console,{" + "get:function(t,k){" + "var v=t[k];" + "return typeof v==='function'||W[k]?v:D;" + "}" + "});" + "})();" + ); + } +} diff --git a/core/src/duktape/duk_console.h b/core/src/duktape/duk_console.h new file mode 100644 index 0000000..d341e22 --- /dev/null +++ b/core/src/duktape/duk_console.h @@ -0,0 +1,29 @@ +#if !defined(DUK_CONSOLE_H_INCLUDED) +#define DUK_CONSOLE_H_INCLUDED + +#include "duktape.h" + +#if defined(__cplusplus) +extern "C" { +#endif + +/* Use a proxy wrapper to make undefined methods (console.foo()) no-ops. */ +#define DUK_CONSOLE_PROXY_WRAPPER (1U << 0) + +/* Flush output after every call. */ +#define DUK_CONSOLE_FLUSH (1U << 1) + +/* Send output to stdout only (default is mixed stdout/stderr). */ +#define DUK_CONSOLE_STDOUT_ONLY (1U << 2) + +/* Send output to stderr only (default is mixed stdout/stderr). */ +#define DUK_CONSOLE_STDERR_ONLY (1U << 3) + +/* Initialize the console system */ +extern void duk_console_init(duk_context *ctx, duk_uint_t flags); + +#if defined(__cplusplus) +} +#endif /* end 'extern "C"' wrapper */ + +#endif /* DUK_CONSOLE_H_INCLUDED */ diff --git a/core/src/duktape/duktape.c b/core/src/duktape/duktape.c new file mode 100644 index 0000000..366883c --- /dev/null +++ b/core/src/duktape/duktape.c @@ -0,0 +1,99755 @@ +/* + * Single source autogenerated distributable for Duktape 2.5.0. + * + * Git commit 6001888049cb42656f8649db020e804bcdeca6a7 (v2.5.0). + * Git branch master. + * + * See Duktape AUTHORS.rst and LICENSE.txt for copyright and + * licensing information. + */ + +/* LICENSE.txt */ +/* +* =============== +* Duktape license +* =============== +* +* (http://opensource.org/licenses/MIT) +* +* Copyright (c) 2013-2019 by Duktape authors (see AUTHORS.rst) +* +* Permission is hereby granted, free of charge, to any person obtaining a copy +* of this software and associated documentation files (the "Software"), to deal +* in the Software without restriction, including without limitation the rights +* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +* copies of the Software, and to permit persons to whom the Software is +* furnished to do so, subject to the following conditions: +* +* The above copyright notice and this permission notice shall be included in +* all copies or substantial portions of the Software. +* +* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +* THE SOFTWARE. +*/ + +/* AUTHORS.rst */ +/* +* =============== +* Duktape authors +* =============== +* +* Copyright +* ========= +* +* Duktape copyrights are held by its authors. Each author has a copyright +* to their contribution, and agrees to irrevocably license the contribution +* under the Duktape ``LICENSE.txt``. +* +* Authors +* ======= +* +* Please include an e-mail address, a link to your GitHub profile, or something +* similar to allow your contribution to be identified accurately. +* +* The following people have contributed code, website contents, or Wiki contents, +* and agreed to irrevocably license their contributions under the Duktape +* ``LICENSE.txt`` (in order of appearance): +* +* * Sami Vaarala +* * Niki Dobrev +* * Andreas \u00d6man +* * L\u00e1szl\u00f3 Lang\u00f3 +* * Legimet +* * Karl Skomski +* * Bruce Pascoe +* * Ren\u00e9 Hollander +* * Julien Hamaide (https://github.com/crazyjul) +* * Sebastian G\u00f6tte (https://github.com/jaseg) +* * Tomasz Magulski (https://github.com/magul) +* * \D. Bohdan (https://github.com/dbohdan) +* * Ond\u0159ej Jirman (https://github.com/megous) +* * Sa\u00fal Ibarra Corretg\u00e9 +* * Jeremy HU +* * Ole Andr\u00e9 Vadla Ravn\u00e5s (https://github.com/oleavr) +* * Harold Brenes (https://github.com/harold-b) +* * Oliver Crow (https://github.com/ocrow) +* * Jakub Ch\u0142api\u0144ski (https://github.com/jchlapinski) +* * Brett Vickers (https://github.com/beevik) +* * Dominik Okwieka (https://github.com/okitec) +* * Remko Tron\u00e7on (https://el-tramo.be) +* * Romero Malaquias (rbsm@ic.ufal.br) +* * Michael Drake +* * Steven Don (https://github.com/shdon) +* * Simon Stone (https://github.com/sstone1) +* * \J. McC. (https://github.com/jmhmccr) +* * Jakub Nowakowski (https://github.com/jimvonmoon) +* * Tommy Nguyen (https://github.com/tn0502) +* * Fabrice Fontaine (https://github.com/ffontaine) +* * Christopher Hiller (https://github.com/boneskull) +* * Gonzalo Diethelm (https://github.com/gonzus) +* * Michal Kasperek (https://github.com/michalkas) +* * Andrew Janke (https://github.com/apjanke) +* * Steve Fan (https://github.com/stevefan1999) +* * Edward Betts (https://github.com/edwardbetts) +* * Ozhan Duz (https://github.com/webfolderio) +* * Akos Kiss (https://github.com/akosthekiss) +* * TheBrokenRail (https://github.com/TheBrokenRail) +* * Jesse Doyle (https://github.com/jessedoyle) +* * Gero Kuehn (https://github.com/dc6jgk) +* * James Swift (https://github.com/phraemer) +* * Luis de Bethencourt (https://github.com/luisbg) +* * Ian Whyman (https://github.com/v00d00) +* * Rick Sayre (https://github.com/whorfin) +* +* Other contributions +* =================== +* +* The following people have contributed something other than code (e.g. reported +* bugs, provided ideas, etc; roughly in order of appearance): +* +* * Greg Burns +* * Anthony Rabine +* * Carlos Costa +* * Aur\u00e9lien Bouilland +* * Preet Desai (Pris Matic) +* * judofyr (http://www.reddit.com/user/judofyr) +* * Jason Woofenden +* * Micha\u0142 Przyby\u015b +* * Anthony Howe +* * Conrad Pankoff +* * Jim Schimpf +* * Rajaran Gaunker (https://github.com/zimbabao) +* * Andreas \u00d6man +* * Doug Sanden +* * Josh Engebretson (https://github.com/JoshEngebretson) +* * Remo Eichenberger (https://github.com/remoe) +* * Mamod Mehyar (https://github.com/mamod) +* * David Demelier (https://github.com/markand) +* * Tim Caswell (https://github.com/creationix) +* * Mitchell Blank Jr (https://github.com/mitchblank) +* * https://github.com/yushli +* * Seo Sanghyeon (https://github.com/sanxiyn) +* * Han ChoongWoo (https://github.com/tunz) +* * Joshua Peek (https://github.com/josh) +* * Bruce E. Pascoe (https://github.com/fatcerberus) +* * https://github.com/Kelledin +* * https://github.com/sstruchtrup +* * Michael Drake (https://github.com/tlsa) +* * https://github.com/chris-y +* * Laurent Zubiaur (https://github.com/lzubiaur) +* * Neil Kolban (https://github.com/nkolban) +* * Wilhelm Wanecek (https://github.com/wanecek) +* * Andrew Janke (https://github.com/apjanke) +* * Unamer (https://github.com/unamer) +* * Karl Dahlke (eklhad@gmail.com) +* +* If you are accidentally missing from this list, send me an e-mail +* (``sami.vaarala@iki.fi``) and I'll fix the omission. +*/ + +#line 1 "duk_replacements.c" +/* + * Replacements for missing platform functions. + * + * Unlike the originals, fpclassify() and signbit() replacements don't + * work on any floating point types, only doubles. The C typing here + * mimics the standard prototypes. + */ + +/* #include duk_internal.h */ +#line 1 "duk_internal.h" +/* + * Top-level include file to be used for all (internal) source files. + * + * Source files should not include individual header files, as they + * have not been designed to be individually included. + */ + +#if !defined(DUK_INTERNAL_H_INCLUDED) +#define DUK_INTERNAL_H_INCLUDED + +/* + * The 'duktape.h' header provides the public API, but also handles all + * compiler and platform specific feature detection, Duktape feature + * resolution, inclusion of system headers, etc. These have been merged + * because the public API is also dependent on e.g. detecting appropriate + * C types which is quite platform/compiler specific especially for a non-C99 + * build. The public API is also dependent on the resolved feature set. + * + * Some actions taken by the merged header (such as including system headers) + * are not appropriate for building a user application. The define + * DUK_COMPILING_DUKTAPE allows the merged header to skip/include some + * sections depending on what is being built. + */ + +#define DUK_COMPILING_DUKTAPE +#include "duktape.h" + +/* + * Duktape includes (other than duk_features.h) + * + * The header files expect to be included in an order which satisfies header + * dependencies correctly (the headers themselves don't include any other + * includes). Forward declarations are used to break circular struct/typedef + * dependencies. + */ + +/* #include duk_dblunion.h */ +#line 1 "duk_dblunion.h" +/* + * Union to access IEEE double memory representation, indexes for double + * memory representation, and some macros for double manipulation. + * + * Also used by packed duk_tval. Use a union for bit manipulation to + * minimize aliasing issues in practice. The C99 standard does not + * guarantee that this should work, but it's a very widely supported + * practice for low level manipulation. + * + * IEEE double format summary: + * + * seeeeeee eeeeffff ffffffff ffffffff ffffffff ffffffff ffffffff ffffffff + * A B C D E F G H + * + * s sign bit + * eee... exponent field + * fff... fraction + * + * See http://en.wikipedia.org/wiki/Double_precision_floating-point_format. + * + * NaNs are represented as exponent 0x7ff and mantissa != 0. The NaN is a + * signaling NaN when the highest bit of the mantissa is zero, and a quiet + * NaN when the highest bit is set. + * + * At least three memory layouts are relevant here: + * + * A B C D E F G H Big endian (e.g. 68k) DUK_USE_DOUBLE_BE + * H G F E D C B A Little endian (e.g. x86) DUK_USE_DOUBLE_LE + * D C B A H G F E Mixed endian (e.g. ARM FPA) DUK_USE_DOUBLE_ME + * + * Legacy ARM (FPA) is a special case: ARM double values are in mixed + * endian format while ARM duk_uint64_t values are in standard little endian + * format (H G F E D C B A). When a double is read as a duk_uint64_t + * from memory, the register will contain the (logical) value + * E F G H A B C D. This requires some special handling below. + * See http://infocenter.arm.com/help/index.jsp?topic=/com.arm.doc.dui0056d/Bcfhgcgd.html. + * + * Indexes of various types (8-bit, 16-bit, 32-bit) in memory relative to + * the logical (big endian) order: + * + * byte order duk_uint8_t duk_uint16_t duk_uint32_t + * BE 01234567 0123 01 + * LE 76543210 3210 10 + * ME (ARM) 32107654 1032 01 + * + * Some processors may alter NaN values in a floating point load+store. + * For instance, on X86 a FLD + FSTP may convert a signaling NaN to a + * quiet one. This is catastrophic when NaN space is used in packed + * duk_tval values. See: misc/clang_aliasing.c. + */ + +#if !defined(DUK_DBLUNION_H_INCLUDED) +#define DUK_DBLUNION_H_INCLUDED + +/* + * Union for accessing double parts, also serves as packed duk_tval + */ + +union duk_double_union { + double d; + float f[2]; +#if defined(DUK_USE_64BIT_OPS) + duk_uint64_t ull[1]; +#endif + duk_uint32_t ui[2]; + duk_uint16_t us[4]; + duk_uint8_t uc[8]; +#if defined(DUK_USE_PACKED_TVAL) + void *vp[2]; /* used by packed duk_tval, assumes sizeof(void *) == 4 */ +#endif +}; + +typedef union duk_double_union duk_double_union; + +/* + * Indexes of various types with respect to big endian (logical) layout + */ + +#if defined(DUK_USE_DOUBLE_LE) +#if defined(DUK_USE_64BIT_OPS) +#define DUK_DBL_IDX_ULL0 0 +#endif +#define DUK_DBL_IDX_UI0 1 +#define DUK_DBL_IDX_UI1 0 +#define DUK_DBL_IDX_US0 3 +#define DUK_DBL_IDX_US1 2 +#define DUK_DBL_IDX_US2 1 +#define DUK_DBL_IDX_US3 0 +#define DUK_DBL_IDX_UC0 7 +#define DUK_DBL_IDX_UC1 6 +#define DUK_DBL_IDX_UC2 5 +#define DUK_DBL_IDX_UC3 4 +#define DUK_DBL_IDX_UC4 3 +#define DUK_DBL_IDX_UC5 2 +#define DUK_DBL_IDX_UC6 1 +#define DUK_DBL_IDX_UC7 0 +#define DUK_DBL_IDX_VP0 DUK_DBL_IDX_UI0 /* packed tval */ +#define DUK_DBL_IDX_VP1 DUK_DBL_IDX_UI1 /* packed tval */ +#elif defined(DUK_USE_DOUBLE_BE) +#if defined(DUK_USE_64BIT_OPS) +#define DUK_DBL_IDX_ULL0 0 +#endif +#define DUK_DBL_IDX_UI0 0 +#define DUK_DBL_IDX_UI1 1 +#define DUK_DBL_IDX_US0 0 +#define DUK_DBL_IDX_US1 1 +#define DUK_DBL_IDX_US2 2 +#define DUK_DBL_IDX_US3 3 +#define DUK_DBL_IDX_UC0 0 +#define DUK_DBL_IDX_UC1 1 +#define DUK_DBL_IDX_UC2 2 +#define DUK_DBL_IDX_UC3 3 +#define DUK_DBL_IDX_UC4 4 +#define DUK_DBL_IDX_UC5 5 +#define DUK_DBL_IDX_UC6 6 +#define DUK_DBL_IDX_UC7 7 +#define DUK_DBL_IDX_VP0 DUK_DBL_IDX_UI0 /* packed tval */ +#define DUK_DBL_IDX_VP1 DUK_DBL_IDX_UI1 /* packed tval */ +#elif defined(DUK_USE_DOUBLE_ME) +#if defined(DUK_USE_64BIT_OPS) +#define DUK_DBL_IDX_ULL0 0 /* not directly applicable, byte order differs from a double */ +#endif +#define DUK_DBL_IDX_UI0 0 +#define DUK_DBL_IDX_UI1 1 +#define DUK_DBL_IDX_US0 1 +#define DUK_DBL_IDX_US1 0 +#define DUK_DBL_IDX_US2 3 +#define DUK_DBL_IDX_US3 2 +#define DUK_DBL_IDX_UC0 3 +#define DUK_DBL_IDX_UC1 2 +#define DUK_DBL_IDX_UC2 1 +#define DUK_DBL_IDX_UC3 0 +#define DUK_DBL_IDX_UC4 7 +#define DUK_DBL_IDX_UC5 6 +#define DUK_DBL_IDX_UC6 5 +#define DUK_DBL_IDX_UC7 4 +#define DUK_DBL_IDX_VP0 DUK_DBL_IDX_UI0 /* packed tval */ +#define DUK_DBL_IDX_VP1 DUK_DBL_IDX_UI1 /* packed tval */ +#else +#error internal error +#endif + +/* + * Helper macros for reading/writing memory representation parts, used + * by duk_numconv.c and duk_tval.h. + */ + +#define DUK_DBLUNION_SET_DOUBLE(u,v) do { \ + (u)->d = (v); \ + } while (0) + +#define DUK_DBLUNION_SET_HIGH32(u,v) do { \ + (u)->ui[DUK_DBL_IDX_UI0] = (duk_uint32_t) (v); \ + } while (0) + +#if defined(DUK_USE_64BIT_OPS) +#if defined(DUK_USE_DOUBLE_ME) +#define DUK_DBLUNION_SET_HIGH32_ZERO_LOW32(u,v) do { \ + (u)->ull[DUK_DBL_IDX_ULL0] = (duk_uint64_t) (v); \ + } while (0) +#else +#define DUK_DBLUNION_SET_HIGH32_ZERO_LOW32(u,v) do { \ + (u)->ull[DUK_DBL_IDX_ULL0] = ((duk_uint64_t) (v)) << 32; \ + } while (0) +#endif +#else /* DUK_USE_64BIT_OPS */ +#define DUK_DBLUNION_SET_HIGH32_ZERO_LOW32(u,v) do { \ + (u)->ui[DUK_DBL_IDX_UI0] = (duk_uint32_t) (v); \ + (u)->ui[DUK_DBL_IDX_UI1] = (duk_uint32_t) 0; \ + } while (0) +#endif /* DUK_USE_64BIT_OPS */ + +#define DUK_DBLUNION_SET_LOW32(u,v) do { \ + (u)->ui[DUK_DBL_IDX_UI1] = (duk_uint32_t) (v); \ + } while (0) + +#define DUK_DBLUNION_GET_DOUBLE(u) ((u)->d) +#define DUK_DBLUNION_GET_HIGH32(u) ((u)->ui[DUK_DBL_IDX_UI0]) +#define DUK_DBLUNION_GET_LOW32(u) ((u)->ui[DUK_DBL_IDX_UI1]) + +#if defined(DUK_USE_64BIT_OPS) +#if defined(DUK_USE_DOUBLE_ME) +#define DUK_DBLUNION_SET_UINT64(u,v) do { \ + (u)->ui[DUK_DBL_IDX_UI0] = (duk_uint32_t) ((v) >> 32); \ + (u)->ui[DUK_DBL_IDX_UI1] = (duk_uint32_t) (v); \ + } while (0) +#define DUK_DBLUNION_GET_UINT64(u) \ + ((((duk_uint64_t) (u)->ui[DUK_DBL_IDX_UI0]) << 32) | \ + ((duk_uint64_t) (u)->ui[DUK_DBL_IDX_UI1])) +#else +#define DUK_DBLUNION_SET_UINT64(u,v) do { \ + (u)->ull[DUK_DBL_IDX_ULL0] = (duk_uint64_t) (v); \ + } while (0) +#define DUK_DBLUNION_GET_UINT64(u) ((u)->ull[DUK_DBL_IDX_ULL0]) +#endif +#define DUK_DBLUNION_SET_INT64(u,v) DUK_DBLUNION_SET_UINT64((u), (duk_uint64_t) (v)) +#define DUK_DBLUNION_GET_INT64(u) ((duk_int64_t) DUK_DBLUNION_GET_UINT64((u))) +#endif /* DUK_USE_64BIT_OPS */ + +/* + * Double NaN manipulation macros related to NaN normalization needed when + * using the packed duk_tval representation. NaN normalization is necessary + * to keep double values compatible with the duk_tval format. + * + * When packed duk_tval is used, the NaN space is used to store pointers + * and other tagged values in addition to NaNs. Actual NaNs are normalized + * to a specific quiet NaN. The macros below are used by the implementation + * to check and normalize NaN values when they might be created. The macros + * are essentially NOPs when the non-packed duk_tval representation is used. + * + * A FULL check is exact and checks all bits. A NOTFULL check is used by + * the packed duk_tval and works correctly for all NaNs except those that + * begin with 0x7ff0. Since the 'normalized NaN' values used with packed + * duk_tval begin with 0x7ff8, the partial check is reliable when packed + * duk_tval is used. The 0x7ff8 prefix means the normalized NaN will be a + * quiet NaN regardless of its remaining lower bits. + * + * The ME variant below is specifically for ARM byte order, which has the + * feature that while doubles have a mixed byte order (32107654), unsigned + * long long values has a little endian byte order (76543210). When writing + * a logical double value through a ULL pointer, the 32-bit words need to be + * swapped; hence the #if defined()s below for ULL writes with DUK_USE_DOUBLE_ME. + * This is not full ARM support but suffices for some environments. + */ + +#if defined(DUK_USE_64BIT_OPS) +#if defined(DUK_USE_DOUBLE_ME) +/* Macros for 64-bit ops + mixed endian doubles. */ +#define DUK__DBLUNION_SET_NAN_FULL(u) do { \ + (u)->ull[DUK_DBL_IDX_ULL0] = DUK_U64_CONSTANT(0x000000007ff80000); \ + } while (0) +#define DUK__DBLUNION_IS_NAN_FULL(u) \ + ((((u)->ull[DUK_DBL_IDX_ULL0] & DUK_U64_CONSTANT(0x000000007ff00000)) == DUK_U64_CONSTANT(0x000000007ff00000)) && \ + ((((u)->ull[DUK_DBL_IDX_ULL0]) & DUK_U64_CONSTANT(0xffffffff000fffff)) != 0)) +#define DUK__DBLUNION_IS_NORMALIZED_NAN_FULL(u) \ + ((u)->ull[DUK_DBL_IDX_ULL0] == DUK_U64_CONSTANT(0x000000007ff80000)) +#define DUK__DBLUNION_IS_ANYINF(u) \ + (((u)->ull[DUK_DBL_IDX_ULL0] & DUK_U64_CONSTANT(0xffffffff7fffffff)) == DUK_U64_CONSTANT(0x000000007ff00000)) +#define DUK__DBLUNION_IS_POSINF(u) \ + ((u)->ull[DUK_DBL_IDX_ULL0] == DUK_U64_CONSTANT(0x000000007ff00000)) +#define DUK__DBLUNION_IS_NEGINF(u) \ + ((u)->ull[DUK_DBL_IDX_ULL0] == DUK_U64_CONSTANT(0x00000000fff00000)) +#define DUK__DBLUNION_IS_ANYZERO(u) \ + (((u)->ull[DUK_DBL_IDX_ULL0] & DUK_U64_CONSTANT(0xffffffff7fffffff)) == DUK_U64_CONSTANT(0x0000000000000000)) +#define DUK__DBLUNION_IS_POSZERO(u) \ + ((u)->ull[DUK_DBL_IDX_ULL0] == DUK_U64_CONSTANT(0x0000000000000000)) +#define DUK__DBLUNION_IS_NEGZERO(u) \ + ((u)->ull[DUK_DBL_IDX_ULL0] == DUK_U64_CONSTANT(0x0000000080000000)) +#else +/* Macros for 64-bit ops + big/little endian doubles. */ +#define DUK__DBLUNION_SET_NAN_FULL(u) do { \ + (u)->ull[DUK_DBL_IDX_ULL0] = DUK_U64_CONSTANT(0x7ff8000000000000); \ + } while (0) +#define DUK__DBLUNION_IS_NAN_FULL(u) \ + ((((u)->ull[DUK_DBL_IDX_ULL0] & DUK_U64_CONSTANT(0x7ff0000000000000)) == DUK_U64_CONSTANT(0x7ff0000000000000)) && \ + ((((u)->ull[DUK_DBL_IDX_ULL0]) & DUK_U64_CONSTANT(0x000fffffffffffff)) != 0)) +#define DUK__DBLUNION_IS_NORMALIZED_NAN_FULL(u) \ + ((u)->ull[DUK_DBL_IDX_ULL0] == DUK_U64_CONSTANT(0x7ff8000000000000)) +#define DUK__DBLUNION_IS_ANYINF(u) \ + (((u)->ull[DUK_DBL_IDX_ULL0] & DUK_U64_CONSTANT(0x7fffffffffffffff)) == DUK_U64_CONSTANT(0x7ff0000000000000)) +#define DUK__DBLUNION_IS_POSINF(u) \ + ((u)->ull[DUK_DBL_IDX_ULL0] == DUK_U64_CONSTANT(0x7ff0000000000000)) +#define DUK__DBLUNION_IS_NEGINF(u) \ + ((u)->ull[DUK_DBL_IDX_ULL0] == DUK_U64_CONSTANT(0xfff0000000000000)) +#define DUK__DBLUNION_IS_ANYZERO(u) \ + (((u)->ull[DUK_DBL_IDX_ULL0] & DUK_U64_CONSTANT(0x7fffffffffffffff)) == DUK_U64_CONSTANT(0x0000000000000000)) +#define DUK__DBLUNION_IS_POSZERO(u) \ + ((u)->ull[DUK_DBL_IDX_ULL0] == DUK_U64_CONSTANT(0x0000000000000000)) +#define DUK__DBLUNION_IS_NEGZERO(u) \ + ((u)->ull[DUK_DBL_IDX_ULL0] == DUK_U64_CONSTANT(0x8000000000000000)) +#endif +#else /* DUK_USE_64BIT_OPS */ +/* Macros for no 64-bit ops, any endianness. */ +#define DUK__DBLUNION_SET_NAN_FULL(u) do { \ + (u)->ui[DUK_DBL_IDX_UI0] = (duk_uint32_t) 0x7ff80000UL; \ + (u)->ui[DUK_DBL_IDX_UI1] = (duk_uint32_t) 0x00000000UL; \ + } while (0) +#define DUK__DBLUNION_IS_NAN_FULL(u) \ + ((((u)->ui[DUK_DBL_IDX_UI0] & 0x7ff00000UL) == 0x7ff00000UL) && \ + (((u)->ui[DUK_DBL_IDX_UI0] & 0x000fffffUL) != 0 || \ + (u)->ui[DUK_DBL_IDX_UI1] != 0)) +#define DUK__DBLUNION_IS_NORMALIZED_NAN_FULL(u) \ + (((u)->ui[DUK_DBL_IDX_UI0] == 0x7ff80000UL) && \ + ((u)->ui[DUK_DBL_IDX_UI1] == 0x00000000UL)) +#define DUK__DBLUNION_IS_ANYINF(u) \ + ((((u)->ui[DUK_DBL_IDX_UI0] & 0x7fffffffUL) == 0x7ff00000UL) && \ + ((u)->ui[DUK_DBL_IDX_UI1] == 0x00000000UL)) +#define DUK__DBLUNION_IS_POSINF(u) \ + (((u)->ui[DUK_DBL_IDX_UI0] == 0x7ff00000UL) && \ + ((u)->ui[DUK_DBL_IDX_UI1] == 0x00000000UL)) +#define DUK__DBLUNION_IS_NEGINF(u) \ + (((u)->ui[DUK_DBL_IDX_UI0] == 0xfff00000UL) && \ + ((u)->ui[DUK_DBL_IDX_UI1] == 0x00000000UL)) +#define DUK__DBLUNION_IS_ANYZERO(u) \ + ((((u)->ui[DUK_DBL_IDX_UI0] & 0x7fffffffUL) == 0x00000000UL) && \ + ((u)->ui[DUK_DBL_IDX_UI1] == 0x00000000UL)) +#define DUK__DBLUNION_IS_POSZERO(u) \ + (((u)->ui[DUK_DBL_IDX_UI0] == 0x00000000UL) && \ + ((u)->ui[DUK_DBL_IDX_UI1] == 0x00000000UL)) +#define DUK__DBLUNION_IS_NEGZERO(u) \ + (((u)->ui[DUK_DBL_IDX_UI0] == 0x80000000UL) && \ + ((u)->ui[DUK_DBL_IDX_UI1] == 0x00000000UL)) +#endif /* DUK_USE_64BIT_OPS */ + +#define DUK__DBLUNION_SET_NAN_NOTFULL(u) do { \ + (u)->us[DUK_DBL_IDX_US0] = 0x7ff8UL; \ + } while (0) + +#define DUK__DBLUNION_IS_NAN_NOTFULL(u) \ + /* E == 0x7ff, topmost four bits of F != 0 => assume NaN */ \ + ((((u)->us[DUK_DBL_IDX_US0] & 0x7ff0UL) == 0x7ff0UL) && \ + (((u)->us[DUK_DBL_IDX_US0] & 0x000fUL) != 0x0000UL)) + +#define DUK__DBLUNION_IS_NORMALIZED_NAN_NOTFULL(u) \ + /* E == 0x7ff, F == 8 => normalized NaN */ \ + ((u)->us[DUK_DBL_IDX_US0] == 0x7ff8UL) + +#define DUK__DBLUNION_NORMALIZE_NAN_CHECK_FULL(u) do { \ + if (DUK__DBLUNION_IS_NAN_FULL((u))) { \ + DUK__DBLUNION_SET_NAN_FULL((u)); \ + } \ + } while (0) + +#define DUK__DBLUNION_NORMALIZE_NAN_CHECK_NOTFULL(u) do { \ + if (DUK__DBLUNION_IS_NAN_NOTFULL((u))) { \ + DUK__DBLUNION_SET_NAN_NOTFULL((u)); \ + } \ + } while (0) + +/* Concrete macros for NaN handling used by the implementation internals. + * Chosen so that they match the duk_tval representation: with a packed + * duk_tval, ensure NaNs are properly normalized; with a non-packed duk_tval + * these are essentially NOPs. + */ + +#if defined(DUK_USE_PACKED_TVAL) +#if defined(DUK_USE_FULL_TVAL) +#define DUK_DBLUNION_NORMALIZE_NAN_CHECK(u) DUK__DBLUNION_NORMALIZE_NAN_CHECK_FULL((u)) +#define DUK_DBLUNION_IS_NAN(u) DUK__DBLUNION_IS_NAN_FULL((u)) +#define DUK_DBLUNION_IS_NORMALIZED_NAN(u) DUK__DBLUNION_IS_NORMALIZED_NAN_FULL((u)) +#define DUK_DBLUNION_SET_NAN(d) DUK__DBLUNION_SET_NAN_FULL((d)) +#else +#define DUK_DBLUNION_NORMALIZE_NAN_CHECK(u) DUK__DBLUNION_NORMALIZE_NAN_CHECK_NOTFULL((u)) +#define DUK_DBLUNION_IS_NAN(u) DUK__DBLUNION_IS_NAN_NOTFULL((u)) +#define DUK_DBLUNION_IS_NORMALIZED_NAN(u) DUK__DBLUNION_IS_NORMALIZED_NAN_NOTFULL((u)) +#define DUK_DBLUNION_SET_NAN(d) DUK__DBLUNION_SET_NAN_NOTFULL((d)) +#endif +#define DUK_DBLUNION_IS_NORMALIZED(u) \ + (!DUK_DBLUNION_IS_NAN((u)) || /* either not a NaN */ \ + DUK_DBLUNION_IS_NORMALIZED_NAN((u))) /* or is a normalized NaN */ +#else /* DUK_USE_PACKED_TVAL */ +#define DUK_DBLUNION_NORMALIZE_NAN_CHECK(u) /* nop: no need to normalize */ +#define DUK_DBLUNION_IS_NAN(u) DUK__DBLUNION_IS_NAN_FULL((u)) /* (DUK_ISNAN((u)->d)) */ +#define DUK_DBLUNION_IS_NORMALIZED_NAN(u) DUK__DBLUNION_IS_NAN_FULL((u)) /* (DUK_ISNAN((u)->d)) */ +#define DUK_DBLUNION_IS_NORMALIZED(u) 1 /* all doubles are considered normalized */ +#define DUK_DBLUNION_SET_NAN(u) do { \ + /* in non-packed representation we don't care about which NaN is used */ \ + (u)->d = DUK_DOUBLE_NAN; \ + } while (0) +#endif /* DUK_USE_PACKED_TVAL */ + +#define DUK_DBLUNION_IS_ANYINF(u) DUK__DBLUNION_IS_ANYINF((u)) +#define DUK_DBLUNION_IS_POSINF(u) DUK__DBLUNION_IS_POSINF((u)) +#define DUK_DBLUNION_IS_NEGINF(u) DUK__DBLUNION_IS_NEGINF((u)) + +#define DUK_DBLUNION_IS_ANYZERO(u) DUK__DBLUNION_IS_ANYZERO((u)) +#define DUK_DBLUNION_IS_POSZERO(u) DUK__DBLUNION_IS_POSZERO((u)) +#define DUK_DBLUNION_IS_NEGZERO(u) DUK__DBLUNION_IS_NEGZERO((u)) + +/* XXX: native 64-bit byteswaps when available */ + +/* 64-bit byteswap, same operation independent of target endianness. */ +#define DUK_DBLUNION_BSWAP64(u) do { \ + duk_uint32_t duk__bswaptmp1, duk__bswaptmp2; \ + duk__bswaptmp1 = (u)->ui[0]; \ + duk__bswaptmp2 = (u)->ui[1]; \ + duk__bswaptmp1 = DUK_BSWAP32(duk__bswaptmp1); \ + duk__bswaptmp2 = DUK_BSWAP32(duk__bswaptmp2); \ + (u)->ui[0] = duk__bswaptmp2; \ + (u)->ui[1] = duk__bswaptmp1; \ + } while (0) + +/* Byteswap an IEEE double in the duk_double_union from host to network + * order. For a big endian target this is a no-op. + */ +#if defined(DUK_USE_DOUBLE_LE) +#define DUK_DBLUNION_DOUBLE_HTON(u) do { \ + duk_uint32_t duk__bswaptmp1, duk__bswaptmp2; \ + duk__bswaptmp1 = (u)->ui[0]; \ + duk__bswaptmp2 = (u)->ui[1]; \ + duk__bswaptmp1 = DUK_BSWAP32(duk__bswaptmp1); \ + duk__bswaptmp2 = DUK_BSWAP32(duk__bswaptmp2); \ + (u)->ui[0] = duk__bswaptmp2; \ + (u)->ui[1] = duk__bswaptmp1; \ + } while (0) +#elif defined(DUK_USE_DOUBLE_ME) +#define DUK_DBLUNION_DOUBLE_HTON(u) do { \ + duk_uint32_t duk__bswaptmp1, duk__bswaptmp2; \ + duk__bswaptmp1 = (u)->ui[0]; \ + duk__bswaptmp2 = (u)->ui[1]; \ + duk__bswaptmp1 = DUK_BSWAP32(duk__bswaptmp1); \ + duk__bswaptmp2 = DUK_BSWAP32(duk__bswaptmp2); \ + (u)->ui[0] = duk__bswaptmp1; \ + (u)->ui[1] = duk__bswaptmp2; \ + } while (0) +#elif defined(DUK_USE_DOUBLE_BE) +#define DUK_DBLUNION_DOUBLE_HTON(u) do { } while (0) +#else +#error internal error, double endianness insane +#endif + +/* Reverse operation is the same. */ +#define DUK_DBLUNION_DOUBLE_NTOH(u) DUK_DBLUNION_DOUBLE_HTON((u)) + +/* Some sign bit helpers. */ +#if defined(DUK_USE_64BIT_OPS) +#define DUK_DBLUNION_HAS_SIGNBIT(u) (((u)->ull[DUK_DBL_IDX_ULL0] & DUK_U64_CONSTANT(0x8000000000000000)) != 0) +#define DUK_DBLUNION_GET_SIGNBIT(u) (((u)->ull[DUK_DBL_IDX_ULL0] >> 63U)) +#else +#define DUK_DBLUNION_HAS_SIGNBIT(u) (((u)->ui[DUK_DBL_IDX_UI0] & 0x80000000UL) != 0) +#define DUK_DBLUNION_GET_SIGNBIT(u) (((u)->ui[DUK_DBL_IDX_UI0] >> 31U)) +#endif + +#endif /* DUK_DBLUNION_H_INCLUDED */ +/* #include duk_fltunion.h */ +#line 1 "duk_fltunion.h" +/* + * Union to access IEEE float memory representation. + */ + +#if !defined(DUK_FLTUNION_H_INCLUDED) +#define DUK_FLTUNION_H_INCLUDED + +/* #include duk_internal.h -> already included */ + +union duk_float_union { + float f; + duk_uint32_t ui[1]; + duk_uint16_t us[2]; + duk_uint8_t uc[4]; +}; + +typedef union duk_float_union duk_float_union; + +#if defined(DUK_USE_DOUBLE_LE) || defined(DUK_USE_DOUBLE_ME) +#define DUK_FLT_IDX_UI0 0 +#define DUK_FLT_IDX_US0 1 +#define DUK_FLT_IDX_US1 0 +#define DUK_FLT_IDX_UC0 3 +#define DUK_FLT_IDX_UC1 2 +#define DUK_FLT_IDX_UC2 1 +#define DUK_FLT_IDX_UC3 0 +#elif defined(DUK_USE_DOUBLE_BE) +#define DUK_FLT_IDX_UI0 0 +#define DUK_FLT_IDX_US0 0 +#define DUK_FLT_IDX_US1 1 +#define DUK_FLT_IDX_UC0 0 +#define DUK_FLT_IDX_UC1 1 +#define DUK_FLT_IDX_UC2 2 +#define DUK_FLT_IDX_UC3 3 +#else +#error internal error +#endif + +#endif /* DUK_FLTUNION_H_INCLUDED */ +/* #include duk_replacements.h */ +#line 1 "duk_replacements.h" +#if !defined(DUK_REPLACEMENTS_H_INCLUDED) +#define DUK_REPLACEMENTS_H_INCLUDED + +#if !defined(DUK_SINGLE_FILE) +#if defined(DUK_USE_COMPUTED_INFINITY) +DUK_INTERNAL_DECL double duk_computed_infinity; +#endif +#if defined(DUK_USE_COMPUTED_NAN) +DUK_INTERNAL_DECL double duk_computed_nan; +#endif +#endif /* !DUK_SINGLE_FILE */ + +#if defined(DUK_USE_REPL_FPCLASSIFY) +DUK_INTERNAL_DECL int duk_repl_fpclassify(double x); +#endif +#if defined(DUK_USE_REPL_SIGNBIT) +DUK_INTERNAL_DECL int duk_repl_signbit(double x); +#endif +#if defined(DUK_USE_REPL_ISFINITE) +DUK_INTERNAL_DECL int duk_repl_isfinite(double x); +#endif +#if defined(DUK_USE_REPL_ISNAN) +DUK_INTERNAL_DECL int duk_repl_isnan(double x); +#endif +#if defined(DUK_USE_REPL_ISINF) +DUK_INTERNAL_DECL int duk_repl_isinf(double x); +#endif + +#endif /* DUK_REPLACEMENTS_H_INCLUDED */ +/* #include duk_jmpbuf.h */ +#line 1 "duk_jmpbuf.h" +/* + * Wrapper for jmp_buf. + * + * This is used because jmp_buf is an array type for backward compatibility. + * Wrapping jmp_buf in a struct makes pointer references, sizeof, etc, + * behave more intuitively. + * + * http://en.wikipedia.org/wiki/Setjmp.h#Member_types + */ + +#if !defined(DUK_JMPBUF_H_INCLUDED) +#define DUK_JMPBUF_H_INCLUDED + +#if defined(DUK_USE_CPP_EXCEPTIONS) +struct duk_jmpbuf { + duk_small_int_t dummy; /* unused */ +}; +#else +struct duk_jmpbuf { + DUK_JMPBUF_TYPE jb; +}; +#endif + +#endif /* DUK_JMPBUF_H_INCLUDED */ +/* #include duk_exception.h */ +#line 1 "duk_exception.h" +/* + * Exceptions for Duktape internal throws when C++ exceptions are used + * for long control transfers. + */ + +#if !defined(DUK_EXCEPTION_H_INCLUDED) +#define DUK_EXCEPTION_H_INCLUDED + +#if defined(DUK_USE_CPP_EXCEPTIONS) +/* Internal exception used as a setjmp-longjmp replacement. User code should + * NEVER see or catch this exception, so it doesn't inherit from any base + * class which should minimize the chance of user code accidentally catching + * the exception. + */ +class duk_internal_exception { + /* intentionally empty */ +}; + +/* Fatal error, thrown as a specific C++ exception with C++ exceptions + * enabled. It is unsafe to continue; doing so may cause crashes or memory + * leaks. This is intended to be either uncaught, or caught by user code + * aware of the "unsafe to continue" semantics. + */ +class duk_fatal_exception : public virtual std::runtime_error { + public: + duk_fatal_exception(const char *message) : std::runtime_error(message) {} +}; +#endif + +#endif /* DUK_EXCEPTION_H_INCLUDED */ +/* #include duk_forwdecl.h */ +#line 1 "duk_forwdecl.h" +/* + * Forward declarations for all Duktape structures. + */ + +#if !defined(DUK_FORWDECL_H_INCLUDED) +#define DUK_FORWDECL_H_INCLUDED + +/* + * Forward declarations + */ + +#if defined(DUK_USE_CPP_EXCEPTIONS) +class duk_internal_exception; +#else +struct duk_jmpbuf; +#endif + +/* duk_tval intentionally skipped */ +struct duk_heaphdr; +struct duk_heaphdr_string; +struct duk_harray; +struct duk_hstring; +struct duk_hstring_external; +struct duk_hobject; +struct duk_hcompfunc; +struct duk_hnatfunc; +struct duk_hboundfunc; +struct duk_hthread; +struct duk_hbufobj; +struct duk_hdecenv; +struct duk_hobjenv; +struct duk_hproxy; +struct duk_hbuffer; +struct duk_hbuffer_fixed; +struct duk_hbuffer_dynamic; +struct duk_hbuffer_external; + +struct duk_propaccessor; +union duk_propvalue; +struct duk_propdesc; + +struct duk_heap; +struct duk_breakpoint; + +struct duk_activation; +struct duk_catcher; +struct duk_ljstate; +struct duk_strcache_entry; +struct duk_litcache_entry; +struct duk_strtab_entry; + +#if defined(DUK_USE_DEBUG) +struct duk_fixedbuffer; +#endif + +struct duk_bitdecoder_ctx; +struct duk_bitencoder_ctx; +struct duk_bufwriter_ctx; + +struct duk_token; +struct duk_re_token; +struct duk_lexer_point; +struct duk_lexer_ctx; +struct duk_lexer_codepoint; + +struct duk_compiler_instr; +struct duk_compiler_func; +struct duk_compiler_ctx; + +struct duk_re_matcher_ctx; +struct duk_re_compiler_ctx; + +#if defined(DUK_USE_CPP_EXCEPTIONS) +/* no typedef */ +#else +typedef struct duk_jmpbuf duk_jmpbuf; +#endif + +/* duk_tval intentionally skipped */ +typedef struct duk_heaphdr duk_heaphdr; +typedef struct duk_heaphdr_string duk_heaphdr_string; +typedef struct duk_harray duk_harray; +typedef struct duk_hstring duk_hstring; +typedef struct duk_hstring_external duk_hstring_external; +typedef struct duk_hobject duk_hobject; +typedef struct duk_hcompfunc duk_hcompfunc; +typedef struct duk_hnatfunc duk_hnatfunc; +typedef struct duk_hboundfunc duk_hboundfunc; +typedef struct duk_hthread duk_hthread; +typedef struct duk_hbufobj duk_hbufobj; +typedef struct duk_hdecenv duk_hdecenv; +typedef struct duk_hobjenv duk_hobjenv; +typedef struct duk_hproxy duk_hproxy; +typedef struct duk_hbuffer duk_hbuffer; +typedef struct duk_hbuffer_fixed duk_hbuffer_fixed; +typedef struct duk_hbuffer_dynamic duk_hbuffer_dynamic; +typedef struct duk_hbuffer_external duk_hbuffer_external; + +typedef struct duk_propaccessor duk_propaccessor; +typedef union duk_propvalue duk_propvalue; +typedef struct duk_propdesc duk_propdesc; + +typedef struct duk_heap duk_heap; +typedef struct duk_breakpoint duk_breakpoint; + +typedef struct duk_activation duk_activation; +typedef struct duk_catcher duk_catcher; +typedef struct duk_ljstate duk_ljstate; +typedef struct duk_strcache_entry duk_strcache_entry; +typedef struct duk_litcache_entry duk_litcache_entry; +typedef struct duk_strtab_entry duk_strtab_entry; + +#if defined(DUK_USE_DEBUG) +typedef struct duk_fixedbuffer duk_fixedbuffer; +#endif + +typedef struct duk_bitdecoder_ctx duk_bitdecoder_ctx; +typedef struct duk_bitencoder_ctx duk_bitencoder_ctx; +typedef struct duk_bufwriter_ctx duk_bufwriter_ctx; + +typedef struct duk_token duk_token; +typedef struct duk_re_token duk_re_token; +typedef struct duk_lexer_point duk_lexer_point; +typedef struct duk_lexer_ctx duk_lexer_ctx; +typedef struct duk_lexer_codepoint duk_lexer_codepoint; + +typedef struct duk_compiler_instr duk_compiler_instr; +typedef struct duk_compiler_func duk_compiler_func; +typedef struct duk_compiler_ctx duk_compiler_ctx; + +typedef struct duk_re_matcher_ctx duk_re_matcher_ctx; +typedef struct duk_re_compiler_ctx duk_re_compiler_ctx; + +#endif /* DUK_FORWDECL_H_INCLUDED */ +/* #include duk_tval.h */ +#line 1 "duk_tval.h" +/* + * Tagged type definition (duk_tval) and accessor macros. + * + * Access all fields through the accessor macros, as the representation + * is quite tricky. + * + * There are two packed type alternatives: an 8-byte representation + * based on an IEEE double (preferred for compactness), and a 12-byte + * representation (portability). The latter is needed also in e.g. + * 64-bit environments (it usually pads to 16 bytes per value). + * + * Selecting the tagged type format involves many trade-offs (memory + * use, size and performance of generated code, portability, etc). + * + * NB: because macro arguments are often expressions, macros should + * avoid evaluating their argument more than once. + */ + +#if !defined(DUK_TVAL_H_INCLUDED) +#define DUK_TVAL_H_INCLUDED + +/* sanity */ +#if !defined(DUK_USE_DOUBLE_LE) && !defined(DUK_USE_DOUBLE_ME) && !defined(DUK_USE_DOUBLE_BE) +#error unsupported: cannot determine byte order variant +#endif + +#if defined(DUK_USE_PACKED_TVAL) +/* ======================================================================== */ + +/* + * Packed 8-byte representation + */ + +/* use duk_double_union as duk_tval directly */ +typedef union duk_double_union duk_tval; +typedef struct { + duk_uint16_t a; + duk_uint16_t b; + duk_uint16_t c; + duk_uint16_t d; +} duk_tval_unused; + +/* tags */ +#define DUK_TAG_NORMALIZED_NAN 0x7ff8UL /* the NaN variant we use */ +/* avoid tag 0xfff0, no risk of confusion with negative infinity */ +#define DUK_TAG_MIN 0xfff1UL +#if defined(DUK_USE_FASTINT) +#define DUK_TAG_FASTINT 0xfff1UL /* embed: integer value */ +#endif +#define DUK_TAG_UNUSED 0xfff2UL /* marker; not actual tagged value */ +#define DUK_TAG_UNDEFINED 0xfff3UL /* embed: nothing */ +#define DUK_TAG_NULL 0xfff4UL /* embed: nothing */ +#define DUK_TAG_BOOLEAN 0xfff5UL /* embed: 0 or 1 (false or true) */ +/* DUK_TAG_NUMBER would logically go here, but it has multiple 'tags' */ +#define DUK_TAG_POINTER 0xfff6UL /* embed: void ptr */ +#define DUK_TAG_LIGHTFUNC 0xfff7UL /* embed: func ptr */ +#define DUK_TAG_STRING 0xfff8UL /* embed: duk_hstring ptr */ +#define DUK_TAG_OBJECT 0xfff9UL /* embed: duk_hobject ptr */ +#define DUK_TAG_BUFFER 0xfffaUL /* embed: duk_hbuffer ptr */ +#define DUK_TAG_MAX 0xfffaUL + +/* for convenience */ +#define DUK_XTAG_BOOLEAN_FALSE 0xfff50000UL +#define DUK_XTAG_BOOLEAN_TRUE 0xfff50001UL + +#define DUK_TVAL_IS_VALID_TAG(tv) \ + (DUK_TVAL_GET_TAG((tv)) - DUK_TAG_MIN <= DUK_TAG_MAX - DUK_TAG_MIN) + +/* DUK_TVAL_UNUSED initializer for duk_tval_unused, works for any endianness. */ +#define DUK_TVAL_UNUSED_INITIALIZER() \ + { DUK_TAG_UNUSED, DUK_TAG_UNUSED, DUK_TAG_UNUSED, DUK_TAG_UNUSED } + +/* two casts to avoid gcc warning: "warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]" */ +#if defined(DUK_USE_64BIT_OPS) +#if defined(DUK_USE_DOUBLE_ME) +#define DUK__TVAL_SET_TAGGEDPOINTER(tv,h,tag) do { \ + (tv)->ull[DUK_DBL_IDX_ULL0] = (((duk_uint64_t) (tag)) << 16) | (((duk_uint64_t) (duk_uint32_t) (h)) << 32); \ + } while (0) +#else +#define DUK__TVAL_SET_TAGGEDPOINTER(tv,h,tag) do { \ + (tv)->ull[DUK_DBL_IDX_ULL0] = (((duk_uint64_t) (tag)) << 48) | ((duk_uint64_t) (duk_uint32_t) (h)); \ + } while (0) +#endif +#else /* DUK_USE_64BIT_OPS */ +#define DUK__TVAL_SET_TAGGEDPOINTER(tv,h,tag) do { \ + duk_tval *duk__tv; \ + duk__tv = (tv); \ + duk__tv->ui[DUK_DBL_IDX_UI0] = ((duk_uint32_t) (tag)) << 16; \ + duk__tv->ui[DUK_DBL_IDX_UI1] = (duk_uint32_t) (h); \ + } while (0) +#endif /* DUK_USE_64BIT_OPS */ + +#if defined(DUK_USE_64BIT_OPS) +/* Double casting for pointer to avoid gcc warning (cast from pointer to integer of different size) */ +#if defined(DUK_USE_DOUBLE_ME) +#define DUK__TVAL_SET_LIGHTFUNC(tv,fp,flags) do { \ + (tv)->ull[DUK_DBL_IDX_ULL0] = (((duk_uint64_t) DUK_TAG_LIGHTFUNC) << 16) | \ + ((duk_uint64_t) (flags)) | \ + (((duk_uint64_t) (duk_uint32_t) (fp)) << 32); \ + } while (0) +#else +#define DUK__TVAL_SET_LIGHTFUNC(tv,fp,flags) do { \ + (tv)->ull[DUK_DBL_IDX_ULL0] = (((duk_uint64_t) DUK_TAG_LIGHTFUNC) << 48) | \ + (((duk_uint64_t) (flags)) << 32) | \ + ((duk_uint64_t) (duk_uint32_t) (fp)); \ + } while (0) +#endif +#else /* DUK_USE_64BIT_OPS */ +#define DUK__TVAL_SET_LIGHTFUNC(tv,fp,flags) do { \ + duk_tval *duk__tv; \ + duk__tv = (tv); \ + duk__tv->ui[DUK_DBL_IDX_UI0] = (((duk_uint32_t) DUK_TAG_LIGHTFUNC) << 16) | ((duk_uint32_t) (flags)); \ + duk__tv->ui[DUK_DBL_IDX_UI1] = (duk_uint32_t) (fp); \ + } while (0) +#endif /* DUK_USE_64BIT_OPS */ + +#if defined(DUK_USE_FASTINT) +/* Note: masking is done for 'i' to deal with negative numbers correctly */ +#if defined(DUK_USE_DOUBLE_ME) +#define DUK__TVAL_SET_I48(tv,i) do { \ + duk_tval *duk__tv; \ + duk__tv = (tv); \ + duk__tv->ui[DUK_DBL_IDX_UI0] = ((duk_uint32_t) DUK_TAG_FASTINT) << 16 | (((duk_uint32_t) ((i) >> 32)) & 0x0000ffffUL); \ + duk__tv->ui[DUK_DBL_IDX_UI1] = (duk_uint32_t) (i); \ + } while (0) +#define DUK__TVAL_SET_U32(tv,i) do { \ + duk_tval *duk__tv; \ + duk__tv = (tv); \ + duk__tv->ui[DUK_DBL_IDX_UI0] = ((duk_uint32_t) DUK_TAG_FASTINT) << 16; \ + duk__tv->ui[DUK_DBL_IDX_UI1] = (duk_uint32_t) (i); \ + } while (0) +#else +#define DUK__TVAL_SET_I48(tv,i) do { \ + (tv)->ull[DUK_DBL_IDX_ULL0] = (((duk_uint64_t) DUK_TAG_FASTINT) << 48) | (((duk_uint64_t) (i)) & DUK_U64_CONSTANT(0x0000ffffffffffff)); \ + } while (0) +#define DUK__TVAL_SET_U32(tv,i) do { \ + (tv)->ull[DUK_DBL_IDX_ULL0] = (((duk_uint64_t) DUK_TAG_FASTINT) << 48) | (duk_uint64_t) (i); \ + } while (0) +#endif + +/* This needs to go through a cast because sign extension is needed. */ +#define DUK__TVAL_SET_I32(tv,i) do { \ + duk_int64_t duk__tmp = (duk_int64_t) (i); \ + DUK_TVAL_SET_I48((tv), duk__tmp); \ + } while (0) + +/* XXX: Clumsy sign extend and masking of 16 topmost bits. */ +#if defined(DUK_USE_DOUBLE_ME) +#define DUK__TVAL_GET_FASTINT(tv) (((duk_int64_t) ((((duk_uint64_t) (tv)->ui[DUK_DBL_IDX_UI0]) << 32) | ((duk_uint64_t) (tv)->ui[DUK_DBL_IDX_UI1]))) << 16 >> 16) +#else +#define DUK__TVAL_GET_FASTINT(tv) ((((duk_int64_t) (tv)->ull[DUK_DBL_IDX_ULL0]) << 16) >> 16) +#endif +#define DUK__TVAL_GET_FASTINT_U32(tv) ((tv)->ui[DUK_DBL_IDX_UI1]) +#define DUK__TVAL_GET_FASTINT_I32(tv) ((duk_int32_t) (tv)->ui[DUK_DBL_IDX_UI1]) +#endif /* DUK_USE_FASTINT */ + +#define DUK_TVAL_SET_UNDEFINED(tv) do { \ + (tv)->us[DUK_DBL_IDX_US0] = (duk_uint16_t) DUK_TAG_UNDEFINED; \ + } while (0) +#define DUK_TVAL_SET_UNUSED(tv) do { \ + (tv)->us[DUK_DBL_IDX_US0] = (duk_uint16_t) DUK_TAG_UNUSED; \ + } while (0) +#define DUK_TVAL_SET_NULL(tv) do { \ + (tv)->us[DUK_DBL_IDX_US0] = (duk_uint16_t) DUK_TAG_NULL; \ + } while (0) + +#define DUK_TVAL_SET_BOOLEAN(tv,val) DUK_DBLUNION_SET_HIGH32((tv), (((duk_uint32_t) DUK_TAG_BOOLEAN) << 16) | ((duk_uint32_t) (val))) + +#define DUK_TVAL_SET_NAN(tv) DUK_DBLUNION_SET_NAN_FULL((tv)) + +/* Assumes that caller has normalized NaNs, otherwise trouble ahead. */ +#if defined(DUK_USE_FASTINT) +#define DUK_TVAL_SET_DOUBLE(tv,d) do { \ + duk_double_t duk__dblval; \ + duk__dblval = (d); \ + DUK_ASSERT_DOUBLE_IS_NORMALIZED(duk__dblval); \ + DUK_DBLUNION_SET_DOUBLE((tv), duk__dblval); \ + } while (0) +#define DUK_TVAL_SET_I48(tv,i) DUK__TVAL_SET_I48((tv), (i)) +#define DUK_TVAL_SET_I32(tv,i) DUK__TVAL_SET_I32((tv), (i)) +#define DUK_TVAL_SET_U32(tv,i) DUK__TVAL_SET_U32((tv), (i)) +#define DUK_TVAL_SET_NUMBER_CHKFAST_FAST(tv,d) duk_tval_set_number_chkfast_fast((tv), (d)) +#define DUK_TVAL_SET_NUMBER_CHKFAST_SLOW(tv,d) duk_tval_set_number_chkfast_slow((tv), (d)) +#define DUK_TVAL_SET_NUMBER(tv,d) DUK_TVAL_SET_DOUBLE((tv), (d)) +#define DUK_TVAL_CHKFAST_INPLACE_FAST(tv) do { \ + duk_tval *duk__tv; \ + duk_double_t duk__d; \ + duk__tv = (tv); \ + if (DUK_TVAL_IS_DOUBLE(duk__tv)) { \ + duk__d = DUK_TVAL_GET_DOUBLE(duk__tv); \ + DUK_TVAL_SET_NUMBER_CHKFAST_FAST(duk__tv, duk__d); \ + } \ + } while (0) +#define DUK_TVAL_CHKFAST_INPLACE_SLOW(tv) do { \ + duk_tval *duk__tv; \ + duk_double_t duk__d; \ + duk__tv = (tv); \ + if (DUK_TVAL_IS_DOUBLE(duk__tv)) { \ + duk__d = DUK_TVAL_GET_DOUBLE(duk__tv); \ + DUK_TVAL_SET_NUMBER_CHKFAST_SLOW(duk__tv, duk__d); \ + } \ + } while (0) +#else /* DUK_USE_FASTINT */ +#define DUK_TVAL_SET_DOUBLE(tv,d) do { \ + duk_double_t duk__dblval; \ + duk__dblval = (d); \ + DUK_ASSERT_DOUBLE_IS_NORMALIZED(duk__dblval); \ + DUK_DBLUNION_SET_DOUBLE((tv), duk__dblval); \ + } while (0) +#define DUK_TVAL_SET_I48(tv,i) DUK_TVAL_SET_DOUBLE((tv), (duk_double_t) (i)) /* XXX: fast int-to-double */ +#define DUK_TVAL_SET_I32(tv,i) DUK_TVAL_SET_DOUBLE((tv), (duk_double_t) (i)) +#define DUK_TVAL_SET_U32(tv,i) DUK_TVAL_SET_DOUBLE((tv), (duk_double_t) (i)) +#define DUK_TVAL_SET_NUMBER_CHKFAST_FAST(tv,d) DUK_TVAL_SET_DOUBLE((tv), (d)) +#define DUK_TVAL_SET_NUMBER_CHKFAST_SLOW(tv,d) DUK_TVAL_SET_DOUBLE((tv), (d)) +#define DUK_TVAL_SET_NUMBER(tv,d) DUK_TVAL_SET_DOUBLE((tv), (d)) +#define DUK_TVAL_CHKFAST_INPLACE_FAST(tv) do { } while (0) +#define DUK_TVAL_CHKFAST_INPLACE_SLOW(tv) do { } while (0) +#endif /* DUK_USE_FASTINT */ + +#define DUK_TVAL_SET_FASTINT(tv,i) DUK_TVAL_SET_I48((tv), (i)) /* alias */ + +#define DUK_TVAL_SET_LIGHTFUNC(tv,fp,flags) DUK__TVAL_SET_LIGHTFUNC((tv), (fp), (flags)) +#define DUK_TVAL_SET_STRING(tv,h) DUK__TVAL_SET_TAGGEDPOINTER((tv), (h), DUK_TAG_STRING) +#define DUK_TVAL_SET_OBJECT(tv,h) DUK__TVAL_SET_TAGGEDPOINTER((tv), (h), DUK_TAG_OBJECT) +#define DUK_TVAL_SET_BUFFER(tv,h) DUK__TVAL_SET_TAGGEDPOINTER((tv), (h), DUK_TAG_BUFFER) +#define DUK_TVAL_SET_POINTER(tv,p) DUK__TVAL_SET_TAGGEDPOINTER((tv), (p), DUK_TAG_POINTER) + +#define DUK_TVAL_SET_TVAL(tv,x) do { *(tv) = *(x); } while (0) + +/* getters */ +#define DUK_TVAL_GET_BOOLEAN(tv) ((duk_small_uint_t) (tv)->us[DUK_DBL_IDX_US1]) +#if defined(DUK_USE_FASTINT) +#define DUK_TVAL_GET_DOUBLE(tv) ((tv)->d) +#define DUK_TVAL_GET_FASTINT(tv) DUK__TVAL_GET_FASTINT((tv)) +#define DUK_TVAL_GET_FASTINT_U32(tv) DUK__TVAL_GET_FASTINT_U32((tv)) +#define DUK_TVAL_GET_FASTINT_I32(tv) DUK__TVAL_GET_FASTINT_I32((tv)) +#define DUK_TVAL_GET_NUMBER(tv) duk_tval_get_number_packed((tv)) +#else +#define DUK_TVAL_GET_NUMBER(tv) ((tv)->d) +#define DUK_TVAL_GET_DOUBLE(tv) ((tv)->d) +#endif +#define DUK_TVAL_GET_LIGHTFUNC(tv,out_fp,out_flags) do { \ + (out_flags) = (tv)->ui[DUK_DBL_IDX_UI0] & 0xffffUL; \ + (out_fp) = (duk_c_function) (tv)->ui[DUK_DBL_IDX_UI1]; \ + } while (0) +#define DUK_TVAL_GET_LIGHTFUNC_FUNCPTR(tv) ((duk_c_function) ((tv)->ui[DUK_DBL_IDX_UI1])) +#define DUK_TVAL_GET_LIGHTFUNC_FLAGS(tv) (((duk_small_uint_t) (tv)->ui[DUK_DBL_IDX_UI0]) & 0xffffUL) +#define DUK_TVAL_GET_STRING(tv) ((duk_hstring *) (tv)->vp[DUK_DBL_IDX_VP1]) +#define DUK_TVAL_GET_OBJECT(tv) ((duk_hobject *) (tv)->vp[DUK_DBL_IDX_VP1]) +#define DUK_TVAL_GET_BUFFER(tv) ((duk_hbuffer *) (tv)->vp[DUK_DBL_IDX_VP1]) +#define DUK_TVAL_GET_POINTER(tv) ((void *) (tv)->vp[DUK_DBL_IDX_VP1]) +#define DUK_TVAL_GET_HEAPHDR(tv) ((duk_heaphdr *) (tv)->vp[DUK_DBL_IDX_VP1]) + +/* decoding */ +#define DUK_TVAL_GET_TAG(tv) ((duk_small_uint_t) (tv)->us[DUK_DBL_IDX_US0]) + +#define DUK_TVAL_IS_UNDEFINED(tv) (DUK_TVAL_GET_TAG((tv)) == DUK_TAG_UNDEFINED) +#define DUK_TVAL_IS_UNUSED(tv) (DUK_TVAL_GET_TAG((tv)) == DUK_TAG_UNUSED) +#define DUK_TVAL_IS_NULL(tv) (DUK_TVAL_GET_TAG((tv)) == DUK_TAG_NULL) +#define DUK_TVAL_IS_BOOLEAN(tv) (DUK_TVAL_GET_TAG((tv)) == DUK_TAG_BOOLEAN) +#define DUK_TVAL_IS_BOOLEAN_TRUE(tv) ((tv)->ui[DUK_DBL_IDX_UI0] == DUK_XTAG_BOOLEAN_TRUE) +#define DUK_TVAL_IS_BOOLEAN_FALSE(tv) ((tv)->ui[DUK_DBL_IDX_UI0] == DUK_XTAG_BOOLEAN_FALSE) +#define DUK_TVAL_IS_LIGHTFUNC(tv) (DUK_TVAL_GET_TAG((tv)) == DUK_TAG_LIGHTFUNC) +#define DUK_TVAL_IS_STRING(tv) (DUK_TVAL_GET_TAG((tv)) == DUK_TAG_STRING) +#define DUK_TVAL_IS_OBJECT(tv) (DUK_TVAL_GET_TAG((tv)) == DUK_TAG_OBJECT) +#define DUK_TVAL_IS_BUFFER(tv) (DUK_TVAL_GET_TAG((tv)) == DUK_TAG_BUFFER) +#define DUK_TVAL_IS_POINTER(tv) (DUK_TVAL_GET_TAG((tv)) == DUK_TAG_POINTER) +#if defined(DUK_USE_FASTINT) +/* 0xfff0 is -Infinity */ +#define DUK_TVAL_IS_DOUBLE(tv) (DUK_TVAL_GET_TAG((tv)) <= 0xfff0UL) +#define DUK_TVAL_IS_FASTINT(tv) (DUK_TVAL_GET_TAG((tv)) == DUK_TAG_FASTINT) +#define DUK_TVAL_IS_NUMBER(tv) (DUK_TVAL_GET_TAG((tv)) <= 0xfff1UL) +#else +#define DUK_TVAL_IS_NUMBER(tv) (DUK_TVAL_GET_TAG((tv)) <= 0xfff0UL) +#define DUK_TVAL_IS_DOUBLE(tv) DUK_TVAL_IS_NUMBER((tv)) +#endif + +/* This is performance critical because it appears in every DECREF. */ +#define DUK_TVAL_IS_HEAP_ALLOCATED(tv) (DUK_TVAL_GET_TAG((tv)) >= DUK_TAG_STRING) + +#if defined(DUK_USE_FASTINT) +DUK_INTERNAL_DECL duk_double_t duk_tval_get_number_packed(duk_tval *tv); +#endif + +#else /* DUK_USE_PACKED_TVAL */ +/* ======================================================================== */ + +/* + * Portable 12-byte representation + */ + +/* Note: not initializing all bytes is normally not an issue: Duktape won't + * read or use the uninitialized bytes so valgrind won't issue warnings. + * In some special cases a harmless valgrind warning may be issued though. + * For example, the DumpHeap debugger command writes out a compiled function's + * 'data' area as is, including any uninitialized bytes, which causes a + * valgrind warning. + */ + +typedef struct duk_tval_struct duk_tval; + +struct duk_tval_struct { + duk_small_uint_t t; + duk_small_uint_t v_extra; + union { + duk_double_t d; + duk_small_int_t i; +#if defined(DUK_USE_FASTINT) + duk_int64_t fi; /* if present, forces 16-byte duk_tval */ +#endif + void *voidptr; + duk_hstring *hstring; + duk_hobject *hobject; + duk_hcompfunc *hcompfunc; + duk_hnatfunc *hnatfunc; + duk_hthread *hthread; + duk_hbuffer *hbuffer; + duk_heaphdr *heaphdr; + duk_c_function lightfunc; + } v; +}; + +typedef struct { + duk_small_uint_t t; + duk_small_uint_t v_extra; + /* The rest of the fields don't matter except for debug dumps and such + * for which a partial initializer may trigger out-ot-bounds memory + * reads. Include a double field which is usually as large or larger + * than pointers (not always however). + */ + duk_double_t d; +} duk_tval_unused; + +#define DUK_TVAL_UNUSED_INITIALIZER() \ + { DUK_TAG_UNUSED, 0, 0.0 } + +#define DUK_TAG_MIN 0 +#define DUK_TAG_NUMBER 0 /* DUK_TAG_NUMBER only defined for non-packed duk_tval */ +#if defined(DUK_USE_FASTINT) +#define DUK_TAG_FASTINT 1 +#endif +#define DUK_TAG_UNDEFINED 2 +#define DUK_TAG_NULL 3 +#define DUK_TAG_BOOLEAN 4 +#define DUK_TAG_POINTER 5 +#define DUK_TAG_LIGHTFUNC 6 +#define DUK_TAG_UNUSED 7 /* marker; not actual tagged type */ +#define DUK_TAG_STRING 8 /* first heap allocated, match bit boundary */ +#define DUK_TAG_OBJECT 9 +#define DUK_TAG_BUFFER 10 +#define DUK_TAG_MAX 10 + +#define DUK_TVAL_IS_VALID_TAG(tv) \ + (DUK_TVAL_GET_TAG((tv)) - DUK_TAG_MIN <= DUK_TAG_MAX - DUK_TAG_MIN) + +/* DUK_TAG_NUMBER is intentionally first, as it is the default clause in code + * to support the 8-byte representation. Further, it is a non-heap-allocated + * type so it should come before DUK_TAG_STRING. Finally, it should not break + * the tag value ranges covered by case-clauses in a switch-case. + */ + +/* setters */ +#define DUK_TVAL_SET_UNDEFINED(tv) do { \ + duk_tval *duk__tv; \ + duk__tv = (tv); \ + duk__tv->t = DUK_TAG_UNDEFINED; \ + } while (0) + +#define DUK_TVAL_SET_UNUSED(tv) do { \ + duk_tval *duk__tv; \ + duk__tv = (tv); \ + duk__tv->t = DUK_TAG_UNUSED; \ + } while (0) + +#define DUK_TVAL_SET_NULL(tv) do { \ + duk_tval *duk__tv; \ + duk__tv = (tv); \ + duk__tv->t = DUK_TAG_NULL; \ + } while (0) + +#define DUK_TVAL_SET_BOOLEAN(tv,val) do { \ + duk_tval *duk__tv; \ + duk__tv = (tv); \ + duk__tv->t = DUK_TAG_BOOLEAN; \ + duk__tv->v.i = (duk_small_int_t) (val); \ + } while (0) + +#if defined(DUK_USE_FASTINT) +#define DUK_TVAL_SET_DOUBLE(tv,val) do { \ + duk_tval *duk__tv; \ + duk_double_t duk__dblval; \ + duk__dblval = (val); \ + DUK_ASSERT_DOUBLE_IS_NORMALIZED(duk__dblval); /* nop for unpacked duk_tval */ \ + duk__tv = (tv); \ + duk__tv->t = DUK_TAG_NUMBER; \ + duk__tv->v.d = duk__dblval; \ + } while (0) +#define DUK_TVAL_SET_I48(tv,val) do { \ + duk_tval *duk__tv; \ + duk__tv = (tv); \ + duk__tv->t = DUK_TAG_FASTINT; \ + duk__tv->v.fi = (val); \ + } while (0) +#define DUK_TVAL_SET_U32(tv,val) do { \ + duk_tval *duk__tv; \ + duk__tv = (tv); \ + duk__tv->t = DUK_TAG_FASTINT; \ + duk__tv->v.fi = (duk_int64_t) (val); \ + } while (0) +#define DUK_TVAL_SET_I32(tv,val) do { \ + duk_tval *duk__tv; \ + duk__tv = (tv); \ + duk__tv->t = DUK_TAG_FASTINT; \ + duk__tv->v.fi = (duk_int64_t) (val); \ + } while (0) +#define DUK_TVAL_SET_NUMBER_CHKFAST_FAST(tv,d) \ + duk_tval_set_number_chkfast_fast((tv), (d)) +#define DUK_TVAL_SET_NUMBER_CHKFAST_SLOW(tv,d) \ + duk_tval_set_number_chkfast_slow((tv), (d)) +#define DUK_TVAL_SET_NUMBER(tv,val) \ + DUK_TVAL_SET_DOUBLE((tv), (val)) +#define DUK_TVAL_CHKFAST_INPLACE_FAST(tv) do { \ + duk_tval *duk__tv; \ + duk_double_t duk__d; \ + duk__tv = (tv); \ + if (DUK_TVAL_IS_DOUBLE(duk__tv)) { \ + duk__d = DUK_TVAL_GET_DOUBLE(duk__tv); \ + DUK_TVAL_SET_NUMBER_CHKFAST_FAST(duk__tv, duk__d); \ + } \ + } while (0) +#define DUK_TVAL_CHKFAST_INPLACE_SLOW(tv) do { \ + duk_tval *duk__tv; \ + duk_double_t duk__d; \ + duk__tv = (tv); \ + if (DUK_TVAL_IS_DOUBLE(duk__tv)) { \ + duk__d = DUK_TVAL_GET_DOUBLE(duk__tv); \ + DUK_TVAL_SET_NUMBER_CHKFAST_SLOW(duk__tv, duk__d); \ + } \ + } while (0) +#else /* DUK_USE_FASTINT */ +#define DUK_TVAL_SET_DOUBLE(tv,d) \ + DUK_TVAL_SET_NUMBER((tv), (d)) +#define DUK_TVAL_SET_I48(tv,val) \ + DUK_TVAL_SET_NUMBER((tv), (duk_double_t) (val)) /* XXX: fast int-to-double */ +#define DUK_TVAL_SET_U32(tv,val) \ + DUK_TVAL_SET_NUMBER((tv), (duk_double_t) (val)) +#define DUK_TVAL_SET_I32(tv,val) \ + DUK_TVAL_SET_NUMBER((tv), (duk_double_t) (val)) +#define DUK_TVAL_SET_NUMBER(tv,val) do { \ + duk_tval *duk__tv; \ + duk_double_t duk__dblval; \ + duk__dblval = (val); \ + DUK_ASSERT_DOUBLE_IS_NORMALIZED(duk__dblval); /* nop for unpacked duk_tval */ \ + duk__tv = (tv); \ + duk__tv->t = DUK_TAG_NUMBER; \ + duk__tv->v.d = duk__dblval; \ + } while (0) +#define DUK_TVAL_SET_NUMBER_CHKFAST_FAST(tv,d) \ + DUK_TVAL_SET_NUMBER((tv), (d)) +#define DUK_TVAL_SET_NUMBER_CHKFAST_SLOW(tv,d) \ + DUK_TVAL_SET_NUMBER((tv), (d)) +#define DUK_TVAL_CHKFAST_INPLACE_FAST(tv) do { } while (0) +#define DUK_TVAL_CHKFAST_INPLACE_SLOW(tv) do { } while (0) +#endif /* DUK_USE_FASTINT */ + +#define DUK_TVAL_SET_FASTINT(tv,i) \ + DUK_TVAL_SET_I48((tv), (i)) /* alias */ + +#define DUK_TVAL_SET_POINTER(tv,hptr) do { \ + duk_tval *duk__tv; \ + duk__tv = (tv); \ + duk__tv->t = DUK_TAG_POINTER; \ + duk__tv->v.voidptr = (hptr); \ + } while (0) + +#define DUK_TVAL_SET_LIGHTFUNC(tv,fp,flags) do { \ + duk_tval *duk__tv; \ + duk__tv = (tv); \ + duk__tv->t = DUK_TAG_LIGHTFUNC; \ + duk__tv->v_extra = (flags); \ + duk__tv->v.lightfunc = (duk_c_function) (fp); \ + } while (0) + +#define DUK_TVAL_SET_STRING(tv,hptr) do { \ + duk_tval *duk__tv; \ + duk__tv = (tv); \ + duk__tv->t = DUK_TAG_STRING; \ + duk__tv->v.hstring = (hptr); \ + } while (0) + +#define DUK_TVAL_SET_OBJECT(tv,hptr) do { \ + duk_tval *duk__tv; \ + duk__tv = (tv); \ + duk__tv->t = DUK_TAG_OBJECT; \ + duk__tv->v.hobject = (hptr); \ + } while (0) + +#define DUK_TVAL_SET_BUFFER(tv,hptr) do { \ + duk_tval *duk__tv; \ + duk__tv = (tv); \ + duk__tv->t = DUK_TAG_BUFFER; \ + duk__tv->v.hbuffer = (hptr); \ + } while (0) + +#define DUK_TVAL_SET_NAN(tv) do { \ + /* in non-packed representation we don't care about which NaN is used */ \ + duk_tval *duk__tv; \ + duk__tv = (tv); \ + duk__tv->t = DUK_TAG_NUMBER; \ + duk__tv->v.d = DUK_DOUBLE_NAN; \ + } while (0) + +#define DUK_TVAL_SET_TVAL(tv,x) do { *(tv) = *(x); } while (0) + +/* getters */ +#define DUK_TVAL_GET_BOOLEAN(tv) ((duk_small_uint_t) (tv)->v.i) +#if defined(DUK_USE_FASTINT) +#define DUK_TVAL_GET_DOUBLE(tv) ((tv)->v.d) +#define DUK_TVAL_GET_FASTINT(tv) ((tv)->v.fi) +#define DUK_TVAL_GET_FASTINT_U32(tv) ((duk_uint32_t) ((tv)->v.fi)) +#define DUK_TVAL_GET_FASTINT_I32(tv) ((duk_int32_t) ((tv)->v.fi)) +#if 0 +#define DUK_TVAL_GET_NUMBER(tv) (DUK_TVAL_IS_FASTINT((tv)) ? \ + (duk_double_t) DUK_TVAL_GET_FASTINT((tv)) : \ + DUK_TVAL_GET_DOUBLE((tv))) +#define DUK_TVAL_GET_NUMBER(tv) duk_tval_get_number_unpacked((tv)) +#else +/* This seems reasonable overall. */ +#define DUK_TVAL_GET_NUMBER(tv) (DUK_TVAL_IS_FASTINT((tv)) ? \ + duk_tval_get_number_unpacked_fastint((tv)) : \ + DUK_TVAL_GET_DOUBLE((tv))) +#endif +#else +#define DUK_TVAL_GET_NUMBER(tv) ((tv)->v.d) +#define DUK_TVAL_GET_DOUBLE(tv) ((tv)->v.d) +#endif /* DUK_USE_FASTINT */ +#define DUK_TVAL_GET_POINTER(tv) ((tv)->v.voidptr) +#define DUK_TVAL_GET_LIGHTFUNC(tv,out_fp,out_flags) do { \ + (out_flags) = (duk_uint32_t) (tv)->v_extra; \ + (out_fp) = (tv)->v.lightfunc; \ + } while (0) +#define DUK_TVAL_GET_LIGHTFUNC_FUNCPTR(tv) ((tv)->v.lightfunc) +#define DUK_TVAL_GET_LIGHTFUNC_FLAGS(tv) ((duk_small_uint_t) ((tv)->v_extra)) +#define DUK_TVAL_GET_STRING(tv) ((tv)->v.hstring) +#define DUK_TVAL_GET_OBJECT(tv) ((tv)->v.hobject) +#define DUK_TVAL_GET_BUFFER(tv) ((tv)->v.hbuffer) +#define DUK_TVAL_GET_HEAPHDR(tv) ((tv)->v.heaphdr) + +/* decoding */ +#define DUK_TVAL_GET_TAG(tv) ((tv)->t) +#define DUK_TVAL_IS_UNDEFINED(tv) ((tv)->t == DUK_TAG_UNDEFINED) +#define DUK_TVAL_IS_UNUSED(tv) ((tv)->t == DUK_TAG_UNUSED) +#define DUK_TVAL_IS_NULL(tv) ((tv)->t == DUK_TAG_NULL) +#define DUK_TVAL_IS_BOOLEAN(tv) ((tv)->t == DUK_TAG_BOOLEAN) +#define DUK_TVAL_IS_BOOLEAN_TRUE(tv) (((tv)->t == DUK_TAG_BOOLEAN) && ((tv)->v.i != 0)) +#define DUK_TVAL_IS_BOOLEAN_FALSE(tv) (((tv)->t == DUK_TAG_BOOLEAN) && ((tv)->v.i == 0)) +#if defined(DUK_USE_FASTINT) +#define DUK_TVAL_IS_DOUBLE(tv) ((tv)->t == DUK_TAG_NUMBER) +#define DUK_TVAL_IS_FASTINT(tv) ((tv)->t == DUK_TAG_FASTINT) +#define DUK_TVAL_IS_NUMBER(tv) ((tv)->t == DUK_TAG_NUMBER || \ + (tv)->t == DUK_TAG_FASTINT) +#else +#define DUK_TVAL_IS_NUMBER(tv) ((tv)->t == DUK_TAG_NUMBER) +#define DUK_TVAL_IS_DOUBLE(tv) DUK_TVAL_IS_NUMBER((tv)) +#endif /* DUK_USE_FASTINT */ +#define DUK_TVAL_IS_POINTER(tv) ((tv)->t == DUK_TAG_POINTER) +#define DUK_TVAL_IS_LIGHTFUNC(tv) ((tv)->t == DUK_TAG_LIGHTFUNC) +#define DUK_TVAL_IS_STRING(tv) ((tv)->t == DUK_TAG_STRING) +#define DUK_TVAL_IS_OBJECT(tv) ((tv)->t == DUK_TAG_OBJECT) +#define DUK_TVAL_IS_BUFFER(tv) ((tv)->t == DUK_TAG_BUFFER) + +/* This is performance critical because it's needed for every DECREF. + * Take advantage of the fact that the first heap allocated tag is 8, + * so that bit 3 is set for all heap allocated tags (and never set for + * non-heap-allocated tags). + */ +#if 0 +#define DUK_TVAL_IS_HEAP_ALLOCATED(tv) ((tv)->t >= DUK_TAG_STRING) +#endif +#define DUK_TVAL_IS_HEAP_ALLOCATED(tv) ((tv)->t & 0x08) + +#if defined(DUK_USE_FASTINT) +#if 0 +DUK_INTERNAL_DECL duk_double_t duk_tval_get_number_unpacked(duk_tval *tv); +#endif +DUK_INTERNAL_DECL duk_double_t duk_tval_get_number_unpacked_fastint(duk_tval *tv); +#endif + +#endif /* DUK_USE_PACKED_TVAL */ + +/* + * Convenience (independent of representation) + */ + +#define DUK_TVAL_SET_BOOLEAN_TRUE(tv) DUK_TVAL_SET_BOOLEAN((tv), 1) +#define DUK_TVAL_SET_BOOLEAN_FALSE(tv) DUK_TVAL_SET_BOOLEAN((tv), 0) + +#define DUK_TVAL_STRING_IS_SYMBOL(tv) \ + DUK_HSTRING_HAS_SYMBOL(DUK_TVAL_GET_STRING((tv))) + +/* Lightfunc flags packing and unpacking. */ +/* Sign extend: 0x0000##00 -> 0x##000000 -> sign extend to 0xssssss##. + * Avoid signed shifts due to portability limitations. + */ +#define DUK_LFUNC_FLAGS_GET_MAGIC(lf_flags) \ + ((duk_int32_t) (duk_int8_t) (((duk_uint16_t) (lf_flags)) >> 8)) +#define DUK_LFUNC_FLAGS_GET_LENGTH(lf_flags) \ + (((lf_flags) >> 4) & 0x0fU) +#define DUK_LFUNC_FLAGS_GET_NARGS(lf_flags) \ + ((lf_flags) & 0x0fU) +#define DUK_LFUNC_FLAGS_PACK(magic,length,nargs) \ + ((((duk_small_uint_t) (magic)) & 0xffU) << 8) | ((length) << 4) | (nargs) + +#define DUK_LFUNC_NARGS_VARARGS 0x0f /* varargs marker */ +#define DUK_LFUNC_NARGS_MIN 0x00 +#define DUK_LFUNC_NARGS_MAX 0x0e /* max, excl. varargs marker */ +#define DUK_LFUNC_LENGTH_MIN 0x00 +#define DUK_LFUNC_LENGTH_MAX 0x0f +#define DUK_LFUNC_MAGIC_MIN (-0x80) +#define DUK_LFUNC_MAGIC_MAX 0x7f + +/* fastint constants etc */ +#if defined(DUK_USE_FASTINT) +#define DUK_FASTINT_MIN (DUK_I64_CONSTANT(-0x800000000000)) +#define DUK_FASTINT_MAX (DUK_I64_CONSTANT(0x7fffffffffff)) +#define DUK_FASTINT_BITS 48 + +DUK_INTERNAL_DECL void duk_tval_set_number_chkfast_fast(duk_tval *tv, duk_double_t x); +DUK_INTERNAL_DECL void duk_tval_set_number_chkfast_slow(duk_tval *tv, duk_double_t x); +#endif + +#if defined(DUK_USE_ASSERTIONS) +DUK_INTERNAL_DECL void duk_tval_assert_valid(duk_tval *tv); +#define DUK_TVAL_ASSERT_VALID(tv) do { duk_tval_assert_valid((tv)); } while (0) +#else +#define DUK_TVAL_ASSERT_VALID(tv) do {} while (0) +#endif + +#endif /* DUK_TVAL_H_INCLUDED */ +/* #include duk_builtins.h */ +#line 1 "duk_builtins.h" +/* + * Automatically generated by genbuiltins.py, do not edit! + */ + +#if !defined(DUK_BUILTINS_H_INCLUDED) +#define DUK_BUILTINS_H_INCLUDED + +#if defined(DUK_USE_ROM_STRINGS) +#error ROM support not enabled, rerun configure.py with --rom-support +#else /* DUK_USE_ROM_STRINGS */ +#define DUK_STRIDX_UC_UNDEFINED 0 /* 'Undefined' */ +#define DUK_HEAP_STRING_UC_UNDEFINED(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_UC_UNDEFINED) +#define DUK_HTHREAD_STRING_UC_UNDEFINED(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_UC_UNDEFINED) +#define DUK_STRIDX_UC_NULL 1 /* 'Null' */ +#define DUK_HEAP_STRING_UC_NULL(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_UC_NULL) +#define DUK_HTHREAD_STRING_UC_NULL(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_UC_NULL) +#define DUK_STRIDX_UC_SYMBOL 2 /* 'Symbol' */ +#define DUK_HEAP_STRING_UC_SYMBOL(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_UC_SYMBOL) +#define DUK_HTHREAD_STRING_UC_SYMBOL(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_UC_SYMBOL) +#define DUK_STRIDX_UC_ARGUMENTS 3 /* 'Arguments' */ +#define DUK_HEAP_STRING_UC_ARGUMENTS(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_UC_ARGUMENTS) +#define DUK_HTHREAD_STRING_UC_ARGUMENTS(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_UC_ARGUMENTS) +#define DUK_STRIDX_UC_OBJECT 4 /* 'Object' */ +#define DUK_HEAP_STRING_UC_OBJECT(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_UC_OBJECT) +#define DUK_HTHREAD_STRING_UC_OBJECT(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_UC_OBJECT) +#define DUK_STRIDX_UC_FUNCTION 5 /* 'Function' */ +#define DUK_HEAP_STRING_UC_FUNCTION(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_UC_FUNCTION) +#define DUK_HTHREAD_STRING_UC_FUNCTION(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_UC_FUNCTION) +#define DUK_STRIDX_UC_ARRAY 6 /* 'Array' */ +#define DUK_HEAP_STRING_UC_ARRAY(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_UC_ARRAY) +#define DUK_HTHREAD_STRING_UC_ARRAY(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_UC_ARRAY) +#define DUK_STRIDX_UC_STRING 7 /* 'String' */ +#define DUK_HEAP_STRING_UC_STRING(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_UC_STRING) +#define DUK_HTHREAD_STRING_UC_STRING(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_UC_STRING) +#define DUK_STRIDX_UC_BOOLEAN 8 /* 'Boolean' */ +#define DUK_HEAP_STRING_UC_BOOLEAN(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_UC_BOOLEAN) +#define DUK_HTHREAD_STRING_UC_BOOLEAN(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_UC_BOOLEAN) +#define DUK_STRIDX_UC_NUMBER 9 /* 'Number' */ +#define DUK_HEAP_STRING_UC_NUMBER(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_UC_NUMBER) +#define DUK_HTHREAD_STRING_UC_NUMBER(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_UC_NUMBER) +#define DUK_STRIDX_UC_DATE 10 /* 'Date' */ +#define DUK_HEAP_STRING_UC_DATE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_UC_DATE) +#define DUK_HTHREAD_STRING_UC_DATE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_UC_DATE) +#define DUK_STRIDX_REG_EXP 11 /* 'RegExp' */ +#define DUK_HEAP_STRING_REG_EXP(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_REG_EXP) +#define DUK_HTHREAD_STRING_REG_EXP(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_REG_EXP) +#define DUK_STRIDX_UC_ERROR 12 /* 'Error' */ +#define DUK_HEAP_STRING_UC_ERROR(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_UC_ERROR) +#define DUK_HTHREAD_STRING_UC_ERROR(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_UC_ERROR) +#define DUK_STRIDX_MATH 13 /* 'Math' */ +#define DUK_HEAP_STRING_MATH(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_MATH) +#define DUK_HTHREAD_STRING_MATH(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_MATH) +#define DUK_STRIDX_JSON 14 /* 'JSON' */ +#define DUK_HEAP_STRING_JSON(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_JSON) +#define DUK_HTHREAD_STRING_JSON(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_JSON) +#define DUK_STRIDX_EMPTY_STRING 15 /* '' */ +#define DUK_HEAP_STRING_EMPTY_STRING(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_EMPTY_STRING) +#define DUK_HTHREAD_STRING_EMPTY_STRING(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_EMPTY_STRING) +#define DUK_STRIDX_ARRAY_BUFFER 16 /* 'ArrayBuffer' */ +#define DUK_HEAP_STRING_ARRAY_BUFFER(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_ARRAY_BUFFER) +#define DUK_HTHREAD_STRING_ARRAY_BUFFER(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_ARRAY_BUFFER) +#define DUK_STRIDX_DATA_VIEW 17 /* 'DataView' */ +#define DUK_HEAP_STRING_DATA_VIEW(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_DATA_VIEW) +#define DUK_HTHREAD_STRING_DATA_VIEW(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_DATA_VIEW) +#define DUK_STRIDX_INT8_ARRAY 18 /* 'Int8Array' */ +#define DUK_HEAP_STRING_INT8_ARRAY(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_INT8_ARRAY) +#define DUK_HTHREAD_STRING_INT8_ARRAY(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_INT8_ARRAY) +#define DUK_STRIDX_UINT8_ARRAY 19 /* 'Uint8Array' */ +#define DUK_HEAP_STRING_UINT8_ARRAY(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_UINT8_ARRAY) +#define DUK_HTHREAD_STRING_UINT8_ARRAY(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_UINT8_ARRAY) +#define DUK_STRIDX_UINT8_CLAMPED_ARRAY 20 /* 'Uint8ClampedArray' */ +#define DUK_HEAP_STRING_UINT8_CLAMPED_ARRAY(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_UINT8_CLAMPED_ARRAY) +#define DUK_HTHREAD_STRING_UINT8_CLAMPED_ARRAY(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_UINT8_CLAMPED_ARRAY) +#define DUK_STRIDX_INT16_ARRAY 21 /* 'Int16Array' */ +#define DUK_HEAP_STRING_INT16_ARRAY(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_INT16_ARRAY) +#define DUK_HTHREAD_STRING_INT16_ARRAY(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_INT16_ARRAY) +#define DUK_STRIDX_UINT16_ARRAY 22 /* 'Uint16Array' */ +#define DUK_HEAP_STRING_UINT16_ARRAY(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_UINT16_ARRAY) +#define DUK_HTHREAD_STRING_UINT16_ARRAY(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_UINT16_ARRAY) +#define DUK_STRIDX_INT32_ARRAY 23 /* 'Int32Array' */ +#define DUK_HEAP_STRING_INT32_ARRAY(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_INT32_ARRAY) +#define DUK_HTHREAD_STRING_INT32_ARRAY(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_INT32_ARRAY) +#define DUK_STRIDX_UINT32_ARRAY 24 /* 'Uint32Array' */ +#define DUK_HEAP_STRING_UINT32_ARRAY(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_UINT32_ARRAY) +#define DUK_HTHREAD_STRING_UINT32_ARRAY(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_UINT32_ARRAY) +#define DUK_STRIDX_FLOAT32_ARRAY 25 /* 'Float32Array' */ +#define DUK_HEAP_STRING_FLOAT32_ARRAY(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_FLOAT32_ARRAY) +#define DUK_HTHREAD_STRING_FLOAT32_ARRAY(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_FLOAT32_ARRAY) +#define DUK_STRIDX_FLOAT64_ARRAY 26 /* 'Float64Array' */ +#define DUK_HEAP_STRING_FLOAT64_ARRAY(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_FLOAT64_ARRAY) +#define DUK_HTHREAD_STRING_FLOAT64_ARRAY(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_FLOAT64_ARRAY) +#define DUK_STRIDX_GLOBAL 27 /* 'global' */ +#define DUK_HEAP_STRING_GLOBAL(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_GLOBAL) +#define DUK_HTHREAD_STRING_GLOBAL(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_GLOBAL) +#define DUK_STRIDX_OBJ_ENV 28 /* 'ObjEnv' */ +#define DUK_HEAP_STRING_OBJ_ENV(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_OBJ_ENV) +#define DUK_HTHREAD_STRING_OBJ_ENV(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_OBJ_ENV) +#define DUK_STRIDX_DEC_ENV 29 /* 'DecEnv' */ +#define DUK_HEAP_STRING_DEC_ENV(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_DEC_ENV) +#define DUK_HTHREAD_STRING_DEC_ENV(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_DEC_ENV) +#define DUK_STRIDX_UC_BUFFER 30 /* 'Buffer' */ +#define DUK_HEAP_STRING_UC_BUFFER(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_UC_BUFFER) +#define DUK_HTHREAD_STRING_UC_BUFFER(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_UC_BUFFER) +#define DUK_STRIDX_UC_POINTER 31 /* 'Pointer' */ +#define DUK_HEAP_STRING_UC_POINTER(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_UC_POINTER) +#define DUK_HTHREAD_STRING_UC_POINTER(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_UC_POINTER) +#define DUK_STRIDX_UC_THREAD 32 /* 'Thread' */ +#define DUK_HEAP_STRING_UC_THREAD(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_UC_THREAD) +#define DUK_HTHREAD_STRING_UC_THREAD(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_UC_THREAD) +#define DUK_STRIDX_EVAL 33 /* 'eval' */ +#define DUK_HEAP_STRING_EVAL(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_EVAL) +#define DUK_HTHREAD_STRING_EVAL(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_EVAL) +#define DUK_STRIDX_VALUE 34 /* 'value' */ +#define DUK_HEAP_STRING_VALUE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_VALUE) +#define DUK_HTHREAD_STRING_VALUE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_VALUE) +#define DUK_STRIDX_WRITABLE 35 /* 'writable' */ +#define DUK_HEAP_STRING_WRITABLE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_WRITABLE) +#define DUK_HTHREAD_STRING_WRITABLE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_WRITABLE) +#define DUK_STRIDX_CONFIGURABLE 36 /* 'configurable' */ +#define DUK_HEAP_STRING_CONFIGURABLE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_CONFIGURABLE) +#define DUK_HTHREAD_STRING_CONFIGURABLE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_CONFIGURABLE) +#define DUK_STRIDX_ENUMERABLE 37 /* 'enumerable' */ +#define DUK_HEAP_STRING_ENUMERABLE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_ENUMERABLE) +#define DUK_HTHREAD_STRING_ENUMERABLE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_ENUMERABLE) +#define DUK_STRIDX_JOIN 38 /* 'join' */ +#define DUK_HEAP_STRING_JOIN(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_JOIN) +#define DUK_HTHREAD_STRING_JOIN(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_JOIN) +#define DUK_STRIDX_TO_LOCALE_STRING 39 /* 'toLocaleString' */ +#define DUK_HEAP_STRING_TO_LOCALE_STRING(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_TO_LOCALE_STRING) +#define DUK_HTHREAD_STRING_TO_LOCALE_STRING(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_TO_LOCALE_STRING) +#define DUK_STRIDX_VALUE_OF 40 /* 'valueOf' */ +#define DUK_HEAP_STRING_VALUE_OF(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_VALUE_OF) +#define DUK_HTHREAD_STRING_VALUE_OF(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_VALUE_OF) +#define DUK_STRIDX_TO_UTC_STRING 41 /* 'toUTCString' */ +#define DUK_HEAP_STRING_TO_UTC_STRING(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_TO_UTC_STRING) +#define DUK_HTHREAD_STRING_TO_UTC_STRING(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_TO_UTC_STRING) +#define DUK_STRIDX_TO_ISO_STRING 42 /* 'toISOString' */ +#define DUK_HEAP_STRING_TO_ISO_STRING(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_TO_ISO_STRING) +#define DUK_HTHREAD_STRING_TO_ISO_STRING(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_TO_ISO_STRING) +#define DUK_STRIDX_TO_GMT_STRING 43 /* 'toGMTString' */ +#define DUK_HEAP_STRING_TO_GMT_STRING(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_TO_GMT_STRING) +#define DUK_HTHREAD_STRING_TO_GMT_STRING(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_TO_GMT_STRING) +#define DUK_STRIDX_SOURCE 44 /* 'source' */ +#define DUK_HEAP_STRING_SOURCE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_SOURCE) +#define DUK_HTHREAD_STRING_SOURCE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_SOURCE) +#define DUK_STRIDX_IGNORE_CASE 45 /* 'ignoreCase' */ +#define DUK_HEAP_STRING_IGNORE_CASE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_IGNORE_CASE) +#define DUK_HTHREAD_STRING_IGNORE_CASE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_IGNORE_CASE) +#define DUK_STRIDX_MULTILINE 46 /* 'multiline' */ +#define DUK_HEAP_STRING_MULTILINE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_MULTILINE) +#define DUK_HTHREAD_STRING_MULTILINE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_MULTILINE) +#define DUK_STRIDX_LAST_INDEX 47 /* 'lastIndex' */ +#define DUK_HEAP_STRING_LAST_INDEX(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_LAST_INDEX) +#define DUK_HTHREAD_STRING_LAST_INDEX(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_LAST_INDEX) +#define DUK_STRIDX_FLAGS 48 /* 'flags' */ +#define DUK_HEAP_STRING_FLAGS(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_FLAGS) +#define DUK_HTHREAD_STRING_FLAGS(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_FLAGS) +#define DUK_STRIDX_INDEX 49 /* 'index' */ +#define DUK_HEAP_STRING_INDEX(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_INDEX) +#define DUK_HTHREAD_STRING_INDEX(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_INDEX) +#define DUK_STRIDX_PROTOTYPE 50 /* 'prototype' */ +#define DUK_HEAP_STRING_PROTOTYPE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_PROTOTYPE) +#define DUK_HTHREAD_STRING_PROTOTYPE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_PROTOTYPE) +#define DUK_STRIDX_CONSTRUCTOR 51 /* 'constructor' */ +#define DUK_HEAP_STRING_CONSTRUCTOR(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_CONSTRUCTOR) +#define DUK_HTHREAD_STRING_CONSTRUCTOR(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_CONSTRUCTOR) +#define DUK_STRIDX_MESSAGE 52 /* 'message' */ +#define DUK_HEAP_STRING_MESSAGE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_MESSAGE) +#define DUK_HTHREAD_STRING_MESSAGE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_MESSAGE) +#define DUK_STRIDX_LC_BOOLEAN 53 /* 'boolean' */ +#define DUK_HEAP_STRING_LC_BOOLEAN(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_LC_BOOLEAN) +#define DUK_HTHREAD_STRING_LC_BOOLEAN(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_LC_BOOLEAN) +#define DUK_STRIDX_LC_NUMBER 54 /* 'number' */ +#define DUK_HEAP_STRING_LC_NUMBER(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_LC_NUMBER) +#define DUK_HTHREAD_STRING_LC_NUMBER(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_LC_NUMBER) +#define DUK_STRIDX_LC_STRING 55 /* 'string' */ +#define DUK_HEAP_STRING_LC_STRING(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_LC_STRING) +#define DUK_HTHREAD_STRING_LC_STRING(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_LC_STRING) +#define DUK_STRIDX_LC_SYMBOL 56 /* 'symbol' */ +#define DUK_HEAP_STRING_LC_SYMBOL(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_LC_SYMBOL) +#define DUK_HTHREAD_STRING_LC_SYMBOL(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_LC_SYMBOL) +#define DUK_STRIDX_LC_OBJECT 57 /* 'object' */ +#define DUK_HEAP_STRING_LC_OBJECT(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_LC_OBJECT) +#define DUK_HTHREAD_STRING_LC_OBJECT(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_LC_OBJECT) +#define DUK_STRIDX_LC_UNDEFINED 58 /* 'undefined' */ +#define DUK_HEAP_STRING_LC_UNDEFINED(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_LC_UNDEFINED) +#define DUK_HTHREAD_STRING_LC_UNDEFINED(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_LC_UNDEFINED) +#define DUK_STRIDX_NAN 59 /* 'NaN' */ +#define DUK_HEAP_STRING_NAN(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_NAN) +#define DUK_HTHREAD_STRING_NAN(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_NAN) +#define DUK_STRIDX_INFINITY 60 /* 'Infinity' */ +#define DUK_HEAP_STRING_INFINITY(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_INFINITY) +#define DUK_HTHREAD_STRING_INFINITY(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_INFINITY) +#define DUK_STRIDX_MINUS_INFINITY 61 /* '-Infinity' */ +#define DUK_HEAP_STRING_MINUS_INFINITY(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_MINUS_INFINITY) +#define DUK_HTHREAD_STRING_MINUS_INFINITY(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_MINUS_INFINITY) +#define DUK_STRIDX_MINUS_ZERO 62 /* '-0' */ +#define DUK_HEAP_STRING_MINUS_ZERO(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_MINUS_ZERO) +#define DUK_HTHREAD_STRING_MINUS_ZERO(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_MINUS_ZERO) +#define DUK_STRIDX_COMMA 63 /* ',' */ +#define DUK_HEAP_STRING_COMMA(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_COMMA) +#define DUK_HTHREAD_STRING_COMMA(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_COMMA) +#define DUK_STRIDX_NEWLINE_4SPACE 64 /* '\n ' */ +#define DUK_HEAP_STRING_NEWLINE_4SPACE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_NEWLINE_4SPACE) +#define DUK_HTHREAD_STRING_NEWLINE_4SPACE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_NEWLINE_4SPACE) +#define DUK_STRIDX_BRACKETED_ELLIPSIS 65 /* '[...]' */ +#define DUK_HEAP_STRING_BRACKETED_ELLIPSIS(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_BRACKETED_ELLIPSIS) +#define DUK_HTHREAD_STRING_BRACKETED_ELLIPSIS(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_BRACKETED_ELLIPSIS) +#define DUK_STRIDX_INVALID_DATE 66 /* 'Invalid Date' */ +#define DUK_HEAP_STRING_INVALID_DATE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_INVALID_DATE) +#define DUK_HTHREAD_STRING_INVALID_DATE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_INVALID_DATE) +#define DUK_STRIDX_LC_ARGUMENTS 67 /* 'arguments' */ +#define DUK_HEAP_STRING_LC_ARGUMENTS(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_LC_ARGUMENTS) +#define DUK_HTHREAD_STRING_LC_ARGUMENTS(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_LC_ARGUMENTS) +#define DUK_STRIDX_CALLEE 68 /* 'callee' */ +#define DUK_HEAP_STRING_CALLEE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_CALLEE) +#define DUK_HTHREAD_STRING_CALLEE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_CALLEE) +#define DUK_STRIDX_CALLER 69 /* 'caller' */ +#define DUK_HEAP_STRING_CALLER(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_CALLER) +#define DUK_HTHREAD_STRING_CALLER(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_CALLER) +#define DUK_STRIDX_APPLY 70 /* 'apply' */ +#define DUK_HEAP_STRING_APPLY(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_APPLY) +#define DUK_HTHREAD_STRING_APPLY(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_APPLY) +#define DUK_STRIDX_CONSTRUCT 71 /* 'construct' */ +#define DUK_HEAP_STRING_CONSTRUCT(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_CONSTRUCT) +#define DUK_HTHREAD_STRING_CONSTRUCT(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_CONSTRUCT) +#define DUK_STRIDX_DELETE_PROPERTY 72 /* 'deleteProperty' */ +#define DUK_HEAP_STRING_DELETE_PROPERTY(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_DELETE_PROPERTY) +#define DUK_HTHREAD_STRING_DELETE_PROPERTY(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_DELETE_PROPERTY) +#define DUK_STRIDX_GET 73 /* 'get' */ +#define DUK_HEAP_STRING_GET(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_GET) +#define DUK_HTHREAD_STRING_GET(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_GET) +#define DUK_STRIDX_HAS 74 /* 'has' */ +#define DUK_HEAP_STRING_HAS(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_HAS) +#define DUK_HTHREAD_STRING_HAS(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_HAS) +#define DUK_STRIDX_OWN_KEYS 75 /* 'ownKeys' */ +#define DUK_HEAP_STRING_OWN_KEYS(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_OWN_KEYS) +#define DUK_HTHREAD_STRING_OWN_KEYS(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_OWN_KEYS) +#define DUK_STRIDX_WELLKNOWN_SYMBOL_TO_PRIMITIVE 76 /* '\x81Symbol.toPrimitive\xff' */ +#define DUK_HEAP_STRING_WELLKNOWN_SYMBOL_TO_PRIMITIVE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_WELLKNOWN_SYMBOL_TO_PRIMITIVE) +#define DUK_HTHREAD_STRING_WELLKNOWN_SYMBOL_TO_PRIMITIVE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_WELLKNOWN_SYMBOL_TO_PRIMITIVE) +#define DUK_STRIDX_WELLKNOWN_SYMBOL_HAS_INSTANCE 77 /* '\x81Symbol.hasInstance\xff' */ +#define DUK_HEAP_STRING_WELLKNOWN_SYMBOL_HAS_INSTANCE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_WELLKNOWN_SYMBOL_HAS_INSTANCE) +#define DUK_HTHREAD_STRING_WELLKNOWN_SYMBOL_HAS_INSTANCE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_WELLKNOWN_SYMBOL_HAS_INSTANCE) +#define DUK_STRIDX_WELLKNOWN_SYMBOL_TO_STRING_TAG 78 /* '\x81Symbol.toStringTag\xff' */ +#define DUK_HEAP_STRING_WELLKNOWN_SYMBOL_TO_STRING_TAG(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_WELLKNOWN_SYMBOL_TO_STRING_TAG) +#define DUK_HTHREAD_STRING_WELLKNOWN_SYMBOL_TO_STRING_TAG(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_WELLKNOWN_SYMBOL_TO_STRING_TAG) +#define DUK_STRIDX_WELLKNOWN_SYMBOL_IS_CONCAT_SPREADABLE 79 /* '\x81Symbol.isConcatSpreadable\xff' */ +#define DUK_HEAP_STRING_WELLKNOWN_SYMBOL_IS_CONCAT_SPREADABLE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_WELLKNOWN_SYMBOL_IS_CONCAT_SPREADABLE) +#define DUK_HTHREAD_STRING_WELLKNOWN_SYMBOL_IS_CONCAT_SPREADABLE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_WELLKNOWN_SYMBOL_IS_CONCAT_SPREADABLE) +#define DUK_STRIDX_SET_PROTOTYPE_OF 80 /* 'setPrototypeOf' */ +#define DUK_HEAP_STRING_SET_PROTOTYPE_OF(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_SET_PROTOTYPE_OF) +#define DUK_HTHREAD_STRING_SET_PROTOTYPE_OF(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_SET_PROTOTYPE_OF) +#define DUK_STRIDX___PROTO__ 81 /* '__proto__' */ +#define DUK_HEAP_STRING___PROTO__(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX___PROTO__) +#define DUK_HTHREAD_STRING___PROTO__(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX___PROTO__) +#define DUK_STRIDX_TO_STRING 82 /* 'toString' */ +#define DUK_HEAP_STRING_TO_STRING(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_TO_STRING) +#define DUK_HTHREAD_STRING_TO_STRING(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_TO_STRING) +#define DUK_STRIDX_TO_JSON 83 /* 'toJSON' */ +#define DUK_HEAP_STRING_TO_JSON(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_TO_JSON) +#define DUK_HTHREAD_STRING_TO_JSON(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_TO_JSON) +#define DUK_STRIDX_TYPE 84 /* 'type' */ +#define DUK_HEAP_STRING_TYPE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_TYPE) +#define DUK_HTHREAD_STRING_TYPE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_TYPE) +#define DUK_STRIDX_DATA 85 /* 'data' */ +#define DUK_HEAP_STRING_DATA(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_DATA) +#define DUK_HTHREAD_STRING_DATA(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_DATA) +#define DUK_STRIDX_LC_BUFFER 86 /* 'buffer' */ +#define DUK_HEAP_STRING_LC_BUFFER(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_LC_BUFFER) +#define DUK_HTHREAD_STRING_LC_BUFFER(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_LC_BUFFER) +#define DUK_STRIDX_LENGTH 87 /* 'length' */ +#define DUK_HEAP_STRING_LENGTH(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_LENGTH) +#define DUK_HTHREAD_STRING_LENGTH(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_LENGTH) +#define DUK_STRIDX_SET 88 /* 'set' */ +#define DUK_HEAP_STRING_SET(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_SET) +#define DUK_HTHREAD_STRING_SET(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_SET) +#define DUK_STRIDX_STACK 89 /* 'stack' */ +#define DUK_HEAP_STRING_STACK(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_STACK) +#define DUK_HTHREAD_STRING_STACK(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_STACK) +#define DUK_STRIDX_PC 90 /* 'pc' */ +#define DUK_HEAP_STRING_PC(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_PC) +#define DUK_HTHREAD_STRING_PC(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_PC) +#define DUK_STRIDX_LINE_NUMBER 91 /* 'lineNumber' */ +#define DUK_HEAP_STRING_LINE_NUMBER(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_LINE_NUMBER) +#define DUK_HTHREAD_STRING_LINE_NUMBER(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_LINE_NUMBER) +#define DUK_STRIDX_INT_TRACEDATA 92 /* '\x82Tracedata' */ +#define DUK_HEAP_STRING_INT_TRACEDATA(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_INT_TRACEDATA) +#define DUK_HTHREAD_STRING_INT_TRACEDATA(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_INT_TRACEDATA) +#define DUK_STRIDX_NAME 93 /* 'name' */ +#define DUK_HEAP_STRING_NAME(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_NAME) +#define DUK_HTHREAD_STRING_NAME(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_NAME) +#define DUK_STRIDX_FILE_NAME 94 /* 'fileName' */ +#define DUK_HEAP_STRING_FILE_NAME(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_FILE_NAME) +#define DUK_HTHREAD_STRING_FILE_NAME(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_FILE_NAME) +#define DUK_STRIDX_LC_POINTER 95 /* 'pointer' */ +#define DUK_HEAP_STRING_LC_POINTER(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_LC_POINTER) +#define DUK_HTHREAD_STRING_LC_POINTER(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_LC_POINTER) +#define DUK_STRIDX_INT_TARGET 96 /* '\x82Target' */ +#define DUK_HEAP_STRING_INT_TARGET(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_INT_TARGET) +#define DUK_HTHREAD_STRING_INT_TARGET(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_INT_TARGET) +#define DUK_STRIDX_INT_NEXT 97 /* '\x82Next' */ +#define DUK_HEAP_STRING_INT_NEXT(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_INT_NEXT) +#define DUK_HTHREAD_STRING_INT_NEXT(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_INT_NEXT) +#define DUK_STRIDX_INT_BYTECODE 98 /* '\x82Bytecode' */ +#define DUK_HEAP_STRING_INT_BYTECODE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_INT_BYTECODE) +#define DUK_HTHREAD_STRING_INT_BYTECODE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_INT_BYTECODE) +#define DUK_STRIDX_INT_FORMALS 99 /* '\x82Formals' */ +#define DUK_HEAP_STRING_INT_FORMALS(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_INT_FORMALS) +#define DUK_HTHREAD_STRING_INT_FORMALS(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_INT_FORMALS) +#define DUK_STRIDX_INT_VARMAP 100 /* '\x82Varmap' */ +#define DUK_HEAP_STRING_INT_VARMAP(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_INT_VARMAP) +#define DUK_HTHREAD_STRING_INT_VARMAP(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_INT_VARMAP) +#define DUK_STRIDX_INT_SOURCE 101 /* '\x82Source' */ +#define DUK_HEAP_STRING_INT_SOURCE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_INT_SOURCE) +#define DUK_HTHREAD_STRING_INT_SOURCE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_INT_SOURCE) +#define DUK_STRIDX_INT_PC2LINE 102 /* '\x82Pc2line' */ +#define DUK_HEAP_STRING_INT_PC2LINE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_INT_PC2LINE) +#define DUK_HTHREAD_STRING_INT_PC2LINE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_INT_PC2LINE) +#define DUK_STRIDX_INT_MAP 103 /* '\x82Map' */ +#define DUK_HEAP_STRING_INT_MAP(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_INT_MAP) +#define DUK_HTHREAD_STRING_INT_MAP(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_INT_MAP) +#define DUK_STRIDX_INT_VARENV 104 /* '\x82Varenv' */ +#define DUK_HEAP_STRING_INT_VARENV(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_INT_VARENV) +#define DUK_HTHREAD_STRING_INT_VARENV(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_INT_VARENV) +#define DUK_STRIDX_INT_FINALIZER 105 /* '\x82Finalizer' */ +#define DUK_HEAP_STRING_INT_FINALIZER(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_INT_FINALIZER) +#define DUK_HTHREAD_STRING_INT_FINALIZER(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_INT_FINALIZER) +#define DUK_STRIDX_INT_VALUE 106 /* '\x82Value' */ +#define DUK_HEAP_STRING_INT_VALUE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_INT_VALUE) +#define DUK_HTHREAD_STRING_INT_VALUE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_INT_VALUE) +#define DUK_STRIDX_COMPILE 107 /* 'compile' */ +#define DUK_HEAP_STRING_COMPILE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_COMPILE) +#define DUK_HTHREAD_STRING_COMPILE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_COMPILE) +#define DUK_STRIDX_INPUT 108 /* 'input' */ +#define DUK_HEAP_STRING_INPUT(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_INPUT) +#define DUK_HTHREAD_STRING_INPUT(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_INPUT) +#define DUK_STRIDX_ERR_CREATE 109 /* 'errCreate' */ +#define DUK_HEAP_STRING_ERR_CREATE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_ERR_CREATE) +#define DUK_HTHREAD_STRING_ERR_CREATE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_ERR_CREATE) +#define DUK_STRIDX_ERR_THROW 110 /* 'errThrow' */ +#define DUK_HEAP_STRING_ERR_THROW(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_ERR_THROW) +#define DUK_HTHREAD_STRING_ERR_THROW(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_ERR_THROW) +#define DUK_STRIDX_ENV 111 /* 'env' */ +#define DUK_HEAP_STRING_ENV(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_ENV) +#define DUK_HTHREAD_STRING_ENV(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_ENV) +#define DUK_STRIDX_HEX 112 /* 'hex' */ +#define DUK_HEAP_STRING_HEX(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_HEX) +#define DUK_HTHREAD_STRING_HEX(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_HEX) +#define DUK_STRIDX_BASE64 113 /* 'base64' */ +#define DUK_HEAP_STRING_BASE64(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_BASE64) +#define DUK_HTHREAD_STRING_BASE64(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_BASE64) +#define DUK_STRIDX_JX 114 /* 'jx' */ +#define DUK_HEAP_STRING_JX(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_JX) +#define DUK_HTHREAD_STRING_JX(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_JX) +#define DUK_STRIDX_JC 115 /* 'jc' */ +#define DUK_HEAP_STRING_JC(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_JC) +#define DUK_HTHREAD_STRING_JC(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_JC) +#define DUK_STRIDX_JSON_EXT_UNDEFINED 116 /* '{"_undef":true}' */ +#define DUK_HEAP_STRING_JSON_EXT_UNDEFINED(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_JSON_EXT_UNDEFINED) +#define DUK_HTHREAD_STRING_JSON_EXT_UNDEFINED(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_JSON_EXT_UNDEFINED) +#define DUK_STRIDX_JSON_EXT_NAN 117 /* '{"_nan":true}' */ +#define DUK_HEAP_STRING_JSON_EXT_NAN(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_JSON_EXT_NAN) +#define DUK_HTHREAD_STRING_JSON_EXT_NAN(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_JSON_EXT_NAN) +#define DUK_STRIDX_JSON_EXT_POSINF 118 /* '{"_inf":true}' */ +#define DUK_HEAP_STRING_JSON_EXT_POSINF(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_JSON_EXT_POSINF) +#define DUK_HTHREAD_STRING_JSON_EXT_POSINF(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_JSON_EXT_POSINF) +#define DUK_STRIDX_JSON_EXT_NEGINF 119 /* '{"_ninf":true}' */ +#define DUK_HEAP_STRING_JSON_EXT_NEGINF(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_JSON_EXT_NEGINF) +#define DUK_HTHREAD_STRING_JSON_EXT_NEGINF(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_JSON_EXT_NEGINF) +#define DUK_STRIDX_JSON_EXT_FUNCTION1 120 /* '{"_func":true}' */ +#define DUK_HEAP_STRING_JSON_EXT_FUNCTION1(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_JSON_EXT_FUNCTION1) +#define DUK_HTHREAD_STRING_JSON_EXT_FUNCTION1(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_JSON_EXT_FUNCTION1) +#define DUK_STRIDX_JSON_EXT_FUNCTION2 121 /* '{_func:true}' */ +#define DUK_HEAP_STRING_JSON_EXT_FUNCTION2(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_JSON_EXT_FUNCTION2) +#define DUK_HTHREAD_STRING_JSON_EXT_FUNCTION2(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_JSON_EXT_FUNCTION2) +#define DUK_STRIDX_BREAK 122 /* 'break' */ +#define DUK_HEAP_STRING_BREAK(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_BREAK) +#define DUK_HTHREAD_STRING_BREAK(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_BREAK) +#define DUK_STRIDX_CASE 123 /* 'case' */ +#define DUK_HEAP_STRING_CASE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_CASE) +#define DUK_HTHREAD_STRING_CASE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_CASE) +#define DUK_STRIDX_CATCH 124 /* 'catch' */ +#define DUK_HEAP_STRING_CATCH(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_CATCH) +#define DUK_HTHREAD_STRING_CATCH(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_CATCH) +#define DUK_STRIDX_CONTINUE 125 /* 'continue' */ +#define DUK_HEAP_STRING_CONTINUE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_CONTINUE) +#define DUK_HTHREAD_STRING_CONTINUE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_CONTINUE) +#define DUK_STRIDX_DEBUGGER 126 /* 'debugger' */ +#define DUK_HEAP_STRING_DEBUGGER(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_DEBUGGER) +#define DUK_HTHREAD_STRING_DEBUGGER(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_DEBUGGER) +#define DUK_STRIDX_DEFAULT 127 /* 'default' */ +#define DUK_HEAP_STRING_DEFAULT(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_DEFAULT) +#define DUK_HTHREAD_STRING_DEFAULT(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_DEFAULT) +#define DUK_STRIDX_DELETE 128 /* 'delete' */ +#define DUK_HEAP_STRING_DELETE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_DELETE) +#define DUK_HTHREAD_STRING_DELETE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_DELETE) +#define DUK_STRIDX_DO 129 /* 'do' */ +#define DUK_HEAP_STRING_DO(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_DO) +#define DUK_HTHREAD_STRING_DO(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_DO) +#define DUK_STRIDX_ELSE 130 /* 'else' */ +#define DUK_HEAP_STRING_ELSE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_ELSE) +#define DUK_HTHREAD_STRING_ELSE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_ELSE) +#define DUK_STRIDX_FINALLY 131 /* 'finally' */ +#define DUK_HEAP_STRING_FINALLY(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_FINALLY) +#define DUK_HTHREAD_STRING_FINALLY(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_FINALLY) +#define DUK_STRIDX_FOR 132 /* 'for' */ +#define DUK_HEAP_STRING_FOR(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_FOR) +#define DUK_HTHREAD_STRING_FOR(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_FOR) +#define DUK_STRIDX_LC_FUNCTION 133 /* 'function' */ +#define DUK_HEAP_STRING_LC_FUNCTION(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_LC_FUNCTION) +#define DUK_HTHREAD_STRING_LC_FUNCTION(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_LC_FUNCTION) +#define DUK_STRIDX_IF 134 /* 'if' */ +#define DUK_HEAP_STRING_IF(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_IF) +#define DUK_HTHREAD_STRING_IF(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_IF) +#define DUK_STRIDX_IN 135 /* 'in' */ +#define DUK_HEAP_STRING_IN(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_IN) +#define DUK_HTHREAD_STRING_IN(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_IN) +#define DUK_STRIDX_INSTANCEOF 136 /* 'instanceof' */ +#define DUK_HEAP_STRING_INSTANCEOF(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_INSTANCEOF) +#define DUK_HTHREAD_STRING_INSTANCEOF(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_INSTANCEOF) +#define DUK_STRIDX_NEW 137 /* 'new' */ +#define DUK_HEAP_STRING_NEW(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_NEW) +#define DUK_HTHREAD_STRING_NEW(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_NEW) +#define DUK_STRIDX_RETURN 138 /* 'return' */ +#define DUK_HEAP_STRING_RETURN(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_RETURN) +#define DUK_HTHREAD_STRING_RETURN(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_RETURN) +#define DUK_STRIDX_SWITCH 139 /* 'switch' */ +#define DUK_HEAP_STRING_SWITCH(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_SWITCH) +#define DUK_HTHREAD_STRING_SWITCH(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_SWITCH) +#define DUK_STRIDX_THIS 140 /* 'this' */ +#define DUK_HEAP_STRING_THIS(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_THIS) +#define DUK_HTHREAD_STRING_THIS(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_THIS) +#define DUK_STRIDX_THROW 141 /* 'throw' */ +#define DUK_HEAP_STRING_THROW(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_THROW) +#define DUK_HTHREAD_STRING_THROW(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_THROW) +#define DUK_STRIDX_TRY 142 /* 'try' */ +#define DUK_HEAP_STRING_TRY(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_TRY) +#define DUK_HTHREAD_STRING_TRY(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_TRY) +#define DUK_STRIDX_TYPEOF 143 /* 'typeof' */ +#define DUK_HEAP_STRING_TYPEOF(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_TYPEOF) +#define DUK_HTHREAD_STRING_TYPEOF(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_TYPEOF) +#define DUK_STRIDX_VAR 144 /* 'var' */ +#define DUK_HEAP_STRING_VAR(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_VAR) +#define DUK_HTHREAD_STRING_VAR(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_VAR) +#define DUK_STRIDX_CONST 145 /* 'const' */ +#define DUK_HEAP_STRING_CONST(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_CONST) +#define DUK_HTHREAD_STRING_CONST(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_CONST) +#define DUK_STRIDX_VOID 146 /* 'void' */ +#define DUK_HEAP_STRING_VOID(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_VOID) +#define DUK_HTHREAD_STRING_VOID(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_VOID) +#define DUK_STRIDX_WHILE 147 /* 'while' */ +#define DUK_HEAP_STRING_WHILE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_WHILE) +#define DUK_HTHREAD_STRING_WHILE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_WHILE) +#define DUK_STRIDX_WITH 148 /* 'with' */ +#define DUK_HEAP_STRING_WITH(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_WITH) +#define DUK_HTHREAD_STRING_WITH(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_WITH) +#define DUK_STRIDX_CLASS 149 /* 'class' */ +#define DUK_HEAP_STRING_CLASS(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_CLASS) +#define DUK_HTHREAD_STRING_CLASS(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_CLASS) +#define DUK_STRIDX_ENUM 150 /* 'enum' */ +#define DUK_HEAP_STRING_ENUM(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_ENUM) +#define DUK_HTHREAD_STRING_ENUM(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_ENUM) +#define DUK_STRIDX_EXPORT 151 /* 'export' */ +#define DUK_HEAP_STRING_EXPORT(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_EXPORT) +#define DUK_HTHREAD_STRING_EXPORT(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_EXPORT) +#define DUK_STRIDX_EXTENDS 152 /* 'extends' */ +#define DUK_HEAP_STRING_EXTENDS(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_EXTENDS) +#define DUK_HTHREAD_STRING_EXTENDS(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_EXTENDS) +#define DUK_STRIDX_IMPORT 153 /* 'import' */ +#define DUK_HEAP_STRING_IMPORT(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_IMPORT) +#define DUK_HTHREAD_STRING_IMPORT(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_IMPORT) +#define DUK_STRIDX_SUPER 154 /* 'super' */ +#define DUK_HEAP_STRING_SUPER(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_SUPER) +#define DUK_HTHREAD_STRING_SUPER(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_SUPER) +#define DUK_STRIDX_LC_NULL 155 /* 'null' */ +#define DUK_HEAP_STRING_LC_NULL(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_LC_NULL) +#define DUK_HTHREAD_STRING_LC_NULL(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_LC_NULL) +#define DUK_STRIDX_TRUE 156 /* 'true' */ +#define DUK_HEAP_STRING_TRUE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_TRUE) +#define DUK_HTHREAD_STRING_TRUE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_TRUE) +#define DUK_STRIDX_FALSE 157 /* 'false' */ +#define DUK_HEAP_STRING_FALSE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_FALSE) +#define DUK_HTHREAD_STRING_FALSE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_FALSE) +#define DUK_STRIDX_IMPLEMENTS 158 /* 'implements' */ +#define DUK_HEAP_STRING_IMPLEMENTS(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_IMPLEMENTS) +#define DUK_HTHREAD_STRING_IMPLEMENTS(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_IMPLEMENTS) +#define DUK_STRIDX_INTERFACE 159 /* 'interface' */ +#define DUK_HEAP_STRING_INTERFACE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_INTERFACE) +#define DUK_HTHREAD_STRING_INTERFACE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_INTERFACE) +#define DUK_STRIDX_LET 160 /* 'let' */ +#define DUK_HEAP_STRING_LET(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_LET) +#define DUK_HTHREAD_STRING_LET(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_LET) +#define DUK_STRIDX_PACKAGE 161 /* 'package' */ +#define DUK_HEAP_STRING_PACKAGE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_PACKAGE) +#define DUK_HTHREAD_STRING_PACKAGE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_PACKAGE) +#define DUK_STRIDX_PRIVATE 162 /* 'private' */ +#define DUK_HEAP_STRING_PRIVATE(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_PRIVATE) +#define DUK_HTHREAD_STRING_PRIVATE(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_PRIVATE) +#define DUK_STRIDX_PROTECTED 163 /* 'protected' */ +#define DUK_HEAP_STRING_PROTECTED(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_PROTECTED) +#define DUK_HTHREAD_STRING_PROTECTED(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_PROTECTED) +#define DUK_STRIDX_PUBLIC 164 /* 'public' */ +#define DUK_HEAP_STRING_PUBLIC(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_PUBLIC) +#define DUK_HTHREAD_STRING_PUBLIC(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_PUBLIC) +#define DUK_STRIDX_STATIC 165 /* 'static' */ +#define DUK_HEAP_STRING_STATIC(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_STATIC) +#define DUK_HTHREAD_STRING_STATIC(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_STATIC) +#define DUK_STRIDX_YIELD 166 /* 'yield' */ +#define DUK_HEAP_STRING_YIELD(heap) DUK_HEAP_GET_STRING((heap),DUK_STRIDX_YIELD) +#define DUK_HTHREAD_STRING_YIELD(thr) DUK_HTHREAD_GET_STRING((thr),DUK_STRIDX_YIELD) + +#define DUK_HEAP_NUM_STRINGS 167 +#define DUK_STRIDX_START_RESERVED 122 +#define DUK_STRIDX_START_STRICT_RESERVED 158 +#define DUK_STRIDX_END_RESERVED 167 /* exclusive endpoint */ + +/* To convert a heap stridx to a token number, subtract + * DUK_STRIDX_START_RESERVED and add DUK_TOK_START_RESERVED. + */ +#if !defined(DUK_SINGLE_FILE) +DUK_INTERNAL_DECL const duk_uint8_t duk_strings_data[972]; +#endif /* !DUK_SINGLE_FILE */ +#define DUK_STRDATA_MAX_STRLEN 27 +#define DUK_STRDATA_DATA_LENGTH 972 +#endif /* DUK_USE_ROM_STRINGS */ + +#if defined(DUK_USE_ROM_OBJECTS) +#error RAM support not enabled, rerun configure.py with --ram-support +#else /* DUK_USE_ROM_OBJECTS */ +DUK_INTERNAL_DECL duk_ret_t duk_bi_object_constructor(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_function_constructor(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_function_prototype(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_array_constructor(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_string_constructor(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_boolean_constructor(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_number_constructor(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_date_constructor(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_regexp_constructor(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_error_constructor_shared(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_type_error_thrower(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_global_object_parse_int(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_global_object_parse_float(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_thread_constructor(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_pointer_constructor(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_proxy_constructor(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_symbol_constructor_shared(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_arraybuffer_constructor(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_dataview_constructor(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_typedarray_constructor(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_nodejs_buffer_constructor(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_textencoder_constructor(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_textdecoder_constructor(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_global_object_eval(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_global_object_is_nan(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_global_object_is_finite(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_global_object_decode_uri(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_global_object_decode_uri_component(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_global_object_encode_uri(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_global_object_encode_uri_component(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_global_object_escape(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_global_object_unescape(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_object_getprototype_shared(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_object_setprototype_shared(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_object_constructor_get_own_property_descriptor(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_object_constructor_keys_shared(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_object_constructor_assign(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_object_constructor_create(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_object_constructor_define_property(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_object_constructor_define_properties(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_object_constructor_seal_freeze_shared(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_object_constructor_prevent_extensions(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_object_constructor_is_sealed_frozen_shared(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_object_constructor_is_extensible(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_object_constructor_is(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_object_prototype_to_string(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_object_prototype_to_locale_string(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_object_prototype_value_of(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_object_prototype_has_own_property(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_object_prototype_is_prototype_of(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_object_prototype_property_is_enumerable(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_object_prototype_defineaccessor(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_object_prototype_lookupaccessor(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_function_prototype_to_string(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_function_prototype_apply(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_function_prototype_call(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_function_prototype_bind(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_function_prototype_hasinstance(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_native_function_length(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_native_function_name(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_array_constructor_is_array(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_array_prototype_to_string(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_array_prototype_join_shared(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_array_prototype_concat(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_array_prototype_pop(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_array_prototype_push(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_array_prototype_reverse(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_array_prototype_shift(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_array_prototype_slice(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_array_prototype_sort(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_array_prototype_splice(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_array_prototype_unshift(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_array_prototype_indexof_shared(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_array_prototype_iter_shared(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_array_prototype_reduce_shared(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_string_constructor_from_char_code(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_string_constructor_from_code_point(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_string_prototype_to_string(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_string_prototype_char_at(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_string_prototype_char_code_at(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_string_prototype_concat(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_string_prototype_indexof_shared(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_string_prototype_locale_compare(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_string_prototype_match(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_string_prototype_replace(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_string_prototype_search(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_string_prototype_slice(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_string_prototype_split(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_string_prototype_substring(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_string_prototype_caseconv_shared(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_string_prototype_trim(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_string_prototype_repeat(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_string_prototype_startswith_endswith(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_string_prototype_includes(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_string_prototype_substr(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_boolean_prototype_tostring_shared(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_number_check_shared(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_number_prototype_to_string(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_number_prototype_to_locale_string(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_number_prototype_value_of(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_number_prototype_to_fixed(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_number_prototype_to_exponential(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_number_prototype_to_precision(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_date_constructor_parse(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_date_constructor_utc(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_date_constructor_now(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_date_prototype_tostring_shared(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_date_prototype_to_json(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_date_prototype_value_of(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_date_prototype_get_shared(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_date_prototype_get_timezone_offset(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_date_prototype_set_time(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_date_prototype_set_shared(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_date_prototype_toprimitive(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_regexp_prototype_exec(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_regexp_prototype_test(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_regexp_prototype_tostring(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_regexp_prototype_flags(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_regexp_prototype_shared_getter(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_error_prototype_stack_getter(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_error_prototype_stack_setter(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_error_prototype_filename_getter(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_error_prototype_filename_setter(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_error_prototype_linenumber_getter(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_error_prototype_linenumber_setter(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_error_prototype_to_string(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_math_object_onearg_shared(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_math_object_twoarg_shared(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_math_object_clz32(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_math_object_hypot(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_math_object_imul(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_math_object_max(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_math_object_min(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_math_object_random(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_math_object_sign(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_json_object_parse(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_json_object_stringify(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_duktape_object_info(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_duktape_object_act(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_duktape_object_gc(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_duktape_object_fin(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_duktape_object_enc(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_duktape_object_dec(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_duktape_object_compact(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_thread_yield(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_thread_resume(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_thread_current(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_pointer_prototype_tostring_shared(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_reflect_apply(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_reflect_construct(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_reflect_object_delete_property(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_reflect_object_get(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_reflect_object_has(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_reflect_object_set(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_symbol_key_for(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_symbol_tostring_shared(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_symbol_toprimitive(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_arraybuffer_isview(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_typedarray_bytelength_getter(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_buffer_slice_shared(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_typedarray_byteoffset_getter(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_typedarray_buffer_getter(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_buffer_readfield(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_buffer_writefield(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_typedarray_set(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_uint8array_allocplain(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_uint8array_plainof(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_nodejs_buffer_concat(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_nodejs_buffer_is_encoding(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_nodejs_buffer_is_buffer(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_nodejs_buffer_byte_length(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_buffer_compare_shared(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_nodejs_buffer_tostring(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_nodejs_buffer_tojson(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_nodejs_buffer_fill(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_nodejs_buffer_copy(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_nodejs_buffer_write(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_cbor_encode(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_cbor_decode(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_textencoder_prototype_encoding_getter(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_textencoder_prototype_encode(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_textdecoder_prototype_shared_getter(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_textdecoder_prototype_decode(duk_context *ctx); +DUK_INTERNAL_DECL duk_ret_t duk_bi_performance_now(duk_context *ctx); +#if !defined(DUK_SINGLE_FILE) +DUK_INTERNAL_DECL const duk_c_function duk_bi_native_functions[185]; +#endif /* !DUK_SINGLE_FILE */ +#define DUK_BIDX_GLOBAL 0 +#define DUK_BIDX_GLOBAL_ENV 1 +#define DUK_BIDX_OBJECT_CONSTRUCTOR 2 +#define DUK_BIDX_OBJECT_PROTOTYPE 3 +#define DUK_BIDX_FUNCTION_CONSTRUCTOR 4 +#define DUK_BIDX_FUNCTION_PROTOTYPE 5 +#define DUK_BIDX_NATIVE_FUNCTION_PROTOTYPE 6 +#define DUK_BIDX_ARRAY_CONSTRUCTOR 7 +#define DUK_BIDX_ARRAY_PROTOTYPE 8 +#define DUK_BIDX_STRING_CONSTRUCTOR 9 +#define DUK_BIDX_STRING_PROTOTYPE 10 +#define DUK_BIDX_BOOLEAN_CONSTRUCTOR 11 +#define DUK_BIDX_BOOLEAN_PROTOTYPE 12 +#define DUK_BIDX_NUMBER_CONSTRUCTOR 13 +#define DUK_BIDX_NUMBER_PROTOTYPE 14 +#define DUK_BIDX_DATE_CONSTRUCTOR 15 +#define DUK_BIDX_DATE_PROTOTYPE 16 +#define DUK_BIDX_REGEXP_CONSTRUCTOR 17 +#define DUK_BIDX_REGEXP_PROTOTYPE 18 +#define DUK_BIDX_ERROR_CONSTRUCTOR 19 +#define DUK_BIDX_ERROR_PROTOTYPE 20 +#define DUK_BIDX_EVAL_ERROR_CONSTRUCTOR 21 +#define DUK_BIDX_EVAL_ERROR_PROTOTYPE 22 +#define DUK_BIDX_RANGE_ERROR_CONSTRUCTOR 23 +#define DUK_BIDX_RANGE_ERROR_PROTOTYPE 24 +#define DUK_BIDX_REFERENCE_ERROR_CONSTRUCTOR 25 +#define DUK_BIDX_REFERENCE_ERROR_PROTOTYPE 26 +#define DUK_BIDX_SYNTAX_ERROR_CONSTRUCTOR 27 +#define DUK_BIDX_SYNTAX_ERROR_PROTOTYPE 28 +#define DUK_BIDX_TYPE_ERROR_CONSTRUCTOR 29 +#define DUK_BIDX_TYPE_ERROR_PROTOTYPE 30 +#define DUK_BIDX_URI_ERROR_CONSTRUCTOR 31 +#define DUK_BIDX_URI_ERROR_PROTOTYPE 32 +#define DUK_BIDX_TYPE_ERROR_THROWER 33 +#define DUK_BIDX_DUKTAPE 34 +#define DUK_BIDX_THREAD_PROTOTYPE 35 +#define DUK_BIDX_POINTER_PROTOTYPE 36 +#define DUK_BIDX_DOUBLE_ERROR 37 +#define DUK_BIDX_SYMBOL_PROTOTYPE 38 +#define DUK_BIDX_ARRAYBUFFER_PROTOTYPE 39 +#define DUK_BIDX_DATAVIEW_PROTOTYPE 40 +#define DUK_BIDX_INT8ARRAY_PROTOTYPE 41 +#define DUK_BIDX_UINT8ARRAY_PROTOTYPE 42 +#define DUK_BIDX_UINT8CLAMPEDARRAY_PROTOTYPE 43 +#define DUK_BIDX_INT16ARRAY_PROTOTYPE 44 +#define DUK_BIDX_UINT16ARRAY_PROTOTYPE 45 +#define DUK_BIDX_INT32ARRAY_PROTOTYPE 46 +#define DUK_BIDX_UINT32ARRAY_PROTOTYPE 47 +#define DUK_BIDX_FLOAT32ARRAY_PROTOTYPE 48 +#define DUK_BIDX_FLOAT64ARRAY_PROTOTYPE 49 +#define DUK_BIDX_NODEJS_BUFFER_PROTOTYPE 50 +#define DUK_NUM_BUILTINS 51 +#define DUK_NUM_BIDX_BUILTINS 51 +#define DUK_NUM_ALL_BUILTINS 80 +#if defined(DUK_USE_DOUBLE_LE) +#if !defined(DUK_SINGLE_FILE) +DUK_INTERNAL_DECL const duk_uint8_t duk_builtins_data[4281]; +#endif /* !DUK_SINGLE_FILE */ +#define DUK_BUILTINS_DATA_LENGTH 4281 +#elif defined(DUK_USE_DOUBLE_BE) +#if !defined(DUK_SINGLE_FILE) +DUK_INTERNAL_DECL const duk_uint8_t duk_builtins_data[4281]; +#endif /* !DUK_SINGLE_FILE */ +#define DUK_BUILTINS_DATA_LENGTH 4281 +#elif defined(DUK_USE_DOUBLE_ME) +#if !defined(DUK_SINGLE_FILE) +DUK_INTERNAL_DECL const duk_uint8_t duk_builtins_data[4281]; +#endif /* !DUK_SINGLE_FILE */ +#define DUK_BUILTINS_DATA_LENGTH 4281 +#else +#error invalid endianness defines +#endif +#endif /* DUK_USE_ROM_OBJECTS */ +#endif /* DUK_BUILTINS_H_INCLUDED */ +#line 45 "duk_internal.h" + +/* #include duk_util.h */ +#line 1 "duk_util.h" +/* + * Utilities + */ + +#if !defined(DUK_UTIL_H_INCLUDED) +#define DUK_UTIL_H_INCLUDED + +#if defined(DUK_USE_GET_RANDOM_DOUBLE) +#define DUK_UTIL_GET_RANDOM_DOUBLE(thr) DUK_USE_GET_RANDOM_DOUBLE((thr)->heap_udata) +#else +#define DUK_UTIL_GET_RANDOM_DOUBLE(thr) duk_util_tinyrandom_get_double(thr) +#endif + +/* + * Some useful constants + */ + +#define DUK_DOUBLE_2TO32 4294967296.0 +#define DUK_DOUBLE_2TO31 2147483648.0 +#define DUK_DOUBLE_LOG2E 1.4426950408889634 +#define DUK_DOUBLE_LOG10E 0.4342944819032518 + +/* + * Endian conversion + */ + +#if defined(DUK_USE_INTEGER_LE) +#define DUK_HTON32(x) DUK_BSWAP32((x)) +#define DUK_NTOH32(x) DUK_BSWAP32((x)) +#define DUK_HTON16(x) DUK_BSWAP16((x)) +#define DUK_NTOH16(x) DUK_BSWAP16((x)) +#elif defined(DUK_USE_INTEGER_BE) +#define DUK_HTON32(x) (x) +#define DUK_NTOH32(x) (x) +#define DUK_HTON16(x) (x) +#define DUK_NTOH16(x) (x) +#else +#error internal error, endianness defines broken +#endif + +/* + * Bitstream decoder + */ + +struct duk_bitdecoder_ctx { + const duk_uint8_t *data; + duk_size_t offset; + duk_size_t length; + duk_uint32_t currval; + duk_small_int_t currbits; +}; + +#define DUK_BD_BITPACKED_STRING_MAXLEN 256 + +/* + * Bitstream encoder + */ + +struct duk_bitencoder_ctx { + duk_uint8_t *data; + duk_size_t offset; + duk_size_t length; + duk_uint32_t currval; + duk_small_int_t currbits; + duk_small_int_t truncated; +}; + +/* + * Raw write/read macros for big endian, unaligned basic values. + * Caller ensures there's enough space. The INC macro variants + * update the pointer argument automatically. + */ + +#define DUK_RAW_WRITE_U8(ptr,val) do { \ + *(ptr) = (duk_uint8_t) (val); \ + } while (0) +#define DUK_RAW_WRITE_U16_BE(ptr,val) duk_raw_write_u16_be((ptr), (duk_uint16_t) (val)) +#define DUK_RAW_WRITE_U32_BE(ptr,val) duk_raw_write_u32_be((ptr), (duk_uint32_t) (val)) +#define DUK_RAW_WRITE_FLOAT_BE(ptr,val) duk_raw_write_float_be((ptr), (duk_float_t) (val)) +#define DUK_RAW_WRITE_DOUBLE_BE(ptr,val) duk_raw_write_double_be((ptr), (duk_double_t) (val)) +#define DUK_RAW_WRITE_XUTF8(ptr,val) duk_raw_write_xutf8((ptr), (duk_ucodepoint_t) (val)) + +#define DUK_RAW_WRITEINC_U8(ptr,val) do { \ + *(ptr)++ = (duk_uint8_t) (val); \ + } while (0) +#define DUK_RAW_WRITEINC_U16_BE(ptr,val) duk_raw_writeinc_u16_be(&(ptr), (duk_uint16_t) (val)) +#define DUK_RAW_WRITEINC_U32_BE(ptr,val) duk_raw_writeinc_u32_be(&(ptr), (duk_uint32_t) (val)) +#define DUK_RAW_WRITEINC_FLOAT_BE(ptr,val) duk_raw_writeinc_float_be(&(ptr), (duk_float_t) (val)) +#define DUK_RAW_WRITEINC_DOUBLE_BE(ptr,val) duk_raw_writeinc_double_be(&(ptr), (duk_double_t) (val)) +#define DUK_RAW_WRITEINC_XUTF8(ptr,val) duk_raw_writeinc_xutf8(&(ptr), (duk_ucodepoint_t) (val)) +#define DUK_RAW_WRITEINC_CESU8(ptr,val) duk_raw_writeinc_cesu8(&(ptr), (duk_ucodepoint_t) (val)) + +#define DUK_RAW_READ_U8(ptr) ((duk_uint8_t) (*(ptr))) +#define DUK_RAW_READ_U16_BE(ptr) duk_raw_read_u16_be((ptr)); +#define DUK_RAW_READ_U32_BE(ptr) duk_raw_read_u32_be((ptr)); +#define DUK_RAW_READ_DOUBLE_BE(ptr) duk_raw_read_double_be((ptr)); + +#define DUK_RAW_READINC_U8(ptr) ((duk_uint8_t) (*(ptr)++)) +#define DUK_RAW_READINC_U16_BE(ptr) duk_raw_readinc_u16_be(&(ptr)); +#define DUK_RAW_READINC_U32_BE(ptr) duk_raw_readinc_u32_be(&(ptr)); +#define DUK_RAW_READINC_DOUBLE_BE(ptr) duk_raw_readinc_double_be(&(ptr)); + +/* + * Double and float byte order operations. + */ + +DUK_INTERNAL_DECL void duk_dblunion_host_to_little(duk_double_union *u); +DUK_INTERNAL_DECL void duk_dblunion_little_to_host(duk_double_union *u); +DUK_INTERNAL_DECL void duk_dblunion_host_to_big(duk_double_union *u); +DUK_INTERNAL_DECL void duk_dblunion_big_to_host(duk_double_union *u); +DUK_INTERNAL_DECL void duk_fltunion_host_to_big(duk_float_union *u); +DUK_INTERNAL_DECL void duk_fltunion_big_to_host(duk_float_union *u); + +/* + * Buffer writer (dynamic buffer only) + * + * Helper for writing to a dynamic buffer with a concept of a "slack" area + * to reduce resizes. You can ensure there is enough space beforehand and + * then write for a while without further checks, relying on a stable data + * pointer. Slack handling is automatic so call sites only indicate how + * much data they need right now. + * + * There are several ways to write using bufwriter. The best approach + * depends mainly on how much performance matters over code footprint. + * The key issues are (1) ensuring there is space and (2) keeping the + * pointers consistent. Fast code should ensure space for multiple writes + * with one ensure call. Fastest inner loop code can temporarily borrow + * the 'p' pointer but must write it back eventually. + * + * Be careful to ensure all macro arguments (other than static pointers like + * 'thr' and 'bw_ctx') are evaluated exactly once, using temporaries if + * necessary (if that's not possible, there should be a note near the macro). + * Buffer write arguments often contain arithmetic etc so this is + * particularly important here. + */ + +/* XXX: Migrate bufwriter and other read/write helpers to its own header? */ + +struct duk_bufwriter_ctx { + duk_uint8_t *p; + duk_uint8_t *p_base; + duk_uint8_t *p_limit; + duk_hbuffer_dynamic *buf; +}; + +#if defined(DUK_USE_PREFER_SIZE) +#define DUK_BW_SLACK_ADD 64 +#define DUK_BW_SLACK_SHIFT 4 /* 2^4 -> 1/16 = 6.25% slack */ +#else +#define DUK_BW_SLACK_ADD 64 +#define DUK_BW_SLACK_SHIFT 2 /* 2^2 -> 1/4 = 25% slack */ +#endif + +/* Initialization and finalization (compaction), converting to other types. */ + +#define DUK_BW_INIT_PUSHBUF(thr,bw_ctx,sz) do { \ + duk_bw_init_pushbuf((thr), (bw_ctx), (sz)); \ + } while (0) +#define DUK_BW_INIT_WITHBUF(thr,bw_ctx,buf) do { \ + duk_bw_init((thr), (bw_ctx), (buf)); \ + } while (0) +#define DUK_BW_COMPACT(thr,bw_ctx) do { \ + /* Make underlying buffer compact to match DUK_BW_GET_SIZE(). */ \ + duk_bw_compact((thr), (bw_ctx)); \ + } while (0) +#define DUK_BW_PUSH_AS_STRING(thr,bw_ctx) do { \ + duk_push_lstring((thr), \ + (const char *) (bw_ctx)->p_base, \ + (duk_size_t) ((bw_ctx)->p - (bw_ctx)->p_base)); \ + } while (0) + +/* Pointers may be NULL for a while when 'buf' size is zero and before any + * ENSURE calls have been made. Once an ENSURE has been made, the pointers + * are required to be non-NULL so that it's always valid to use memcpy() and + * memmove(), even for zero size. + */ +#if defined(DUK_USE_ASSERTIONS) +DUK_INTERNAL_DECL void duk_bw_assert_valid(duk_hthread *thr, duk_bufwriter_ctx *bw_ctx); +#define DUK_BW_ASSERT_VALID_EXPR(thr,bw_ctx) (duk_bw_assert_valid((thr), (bw_ctx))) +#define DUK_BW_ASSERT_VALID(thr,bw_ctx) do { duk_bw_assert_valid((thr), (bw_ctx)); } while (0) +#else +#define DUK_BW_ASSERT_VALID_EXPR(thr,bw_ctx) DUK_ASSERT_EXPR(1) +#define DUK_BW_ASSERT_VALID(thr,bw_ctx) do {} while (0) +#endif + +/* Working with the pointer and current size. */ + +#define DUK_BW_GET_PTR(thr,bw_ctx) \ + ((bw_ctx)->p) +#define DUK_BW_SET_PTR(thr,bw_ctx,ptr) do { \ + (bw_ctx)->p = (ptr); \ + } while (0) +#define DUK_BW_ADD_PTR(thr,bw_ctx,delta) do { \ + (bw_ctx)->p += (delta); \ + } while (0) +#define DUK_BW_GET_BASEPTR(thr,bw_ctx) \ + ((bw_ctx)->p_base) +#define DUK_BW_GET_LIMITPTR(thr,bw_ctx) \ + ((bw_ctx)->p_limit) +#define DUK_BW_GET_SIZE(thr,bw_ctx) \ + ((duk_size_t) ((bw_ctx)->p - (bw_ctx)->p_base)) +#define DUK_BW_SET_SIZE(thr,bw_ctx,sz) do { \ + DUK_ASSERT((duk_size_t) (sz) <= (duk_size_t) ((bw_ctx)->p - (bw_ctx)->p_base)); \ + (bw_ctx)->p = (bw_ctx)->p_base + (sz); \ + } while (0) +#define DUK_BW_RESET_SIZE(thr,bw_ctx) do { \ + /* Reset to zero size, keep current limit. */ \ + (bw_ctx)->p = (bw_ctx)->p_base; \ + } while (0) +#define DUK_BW_GET_BUFFER(thr,bw_ctx) \ + ((bw_ctx)->buf) + +/* Ensuring (reserving) space. */ + +#define DUK_BW_ENSURE(thr,bw_ctx,sz) do { \ + duk_size_t duk__sz, duk__space; \ + DUK_BW_ASSERT_VALID((thr), (bw_ctx)); \ + duk__sz = (sz); \ + duk__space = (duk_size_t) ((bw_ctx)->p_limit - (bw_ctx)->p); \ + if (duk__space < duk__sz) { \ + (void) duk_bw_resize((thr), (bw_ctx), duk__sz); \ + } \ + } while (0) +/* NOTE: Multiple evaluation of 'ptr' in this macro. */ +/* XXX: Rework to use an always-inline function? */ +#define DUK_BW_ENSURE_RAW(thr,bw_ctx,sz,ptr) \ + (((duk_size_t) ((bw_ctx)->p_limit - (ptr)) >= (sz)) ? \ + (ptr) : \ + ((bw_ctx)->p = (ptr), duk_bw_resize((thr),(bw_ctx),(sz)))) +#define DUK_BW_ENSURE_GETPTR(thr,bw_ctx,sz) \ + DUK_BW_ENSURE_RAW((thr), (bw_ctx), (sz), (bw_ctx)->p) +#define DUK_BW_ASSERT_SPACE_EXPR(thr,bw_ctx,sz) \ + (DUK_BW_ASSERT_VALID_EXPR((thr), (bw_ctx)), \ + DUK_ASSERT_EXPR((duk_size_t) ((bw_ctx)->p_limit - (bw_ctx)->p) >= (duk_size_t) (sz))) +#define DUK_BW_ASSERT_SPACE(thr,bw_ctx,sz) do { \ + DUK_BW_ASSERT_SPACE_EXPR((thr), (bw_ctx), (sz)); \ + } while (0) + +/* Miscellaneous. */ + +#define DUK_BW_SETPTR_AND_COMPACT(thr,bw_ctx,ptr) do { \ + (bw_ctx)->p = (ptr); \ + duk_bw_compact((thr), (bw_ctx)); \ + } while (0) + +/* Fast write calls which assume you control the slack beforehand. + * Multibyte write variants exist and use a temporary write pointer + * because byte writes alias with anything: with a stored pointer + * explicit pointer load/stores get generated (e.g. gcc -Os). + */ + +#define DUK_BW_WRITE_RAW_U8(thr,bw_ctx,val) do { \ + DUK_BW_ASSERT_SPACE((thr), (bw_ctx), 1); \ + *(bw_ctx)->p++ = (duk_uint8_t) (val); \ + } while (0) +#define DUK_BW_WRITE_RAW_U8_2(thr,bw_ctx,val1,val2) do { \ + duk_uint8_t *duk__p; \ + DUK_BW_ASSERT_SPACE((thr), (bw_ctx), 2); \ + duk__p = (bw_ctx)->p; \ + *duk__p++ = (duk_uint8_t) (val1); \ + *duk__p++ = (duk_uint8_t) (val2); \ + (bw_ctx)->p = duk__p; \ + } while (0) +#define DUK_BW_WRITE_RAW_U8_3(thr,bw_ctx,val1,val2,val3) do { \ + duk_uint8_t *duk__p; \ + DUK_BW_ASSERT_SPACE((thr), (bw_ctx), 3); \ + duk__p = (bw_ctx)->p; \ + *duk__p++ = (duk_uint8_t) (val1); \ + *duk__p++ = (duk_uint8_t) (val2); \ + *duk__p++ = (duk_uint8_t) (val3); \ + (bw_ctx)->p = duk__p; \ + } while (0) +#define DUK_BW_WRITE_RAW_U8_4(thr,bw_ctx,val1,val2,val3,val4) do { \ + duk_uint8_t *duk__p; \ + DUK_BW_ASSERT_SPACE((thr), (bw_ctx), 4); \ + duk__p = (bw_ctx)->p; \ + *duk__p++ = (duk_uint8_t) (val1); \ + *duk__p++ = (duk_uint8_t) (val2); \ + *duk__p++ = (duk_uint8_t) (val3); \ + *duk__p++ = (duk_uint8_t) (val4); \ + (bw_ctx)->p = duk__p; \ + } while (0) +#define DUK_BW_WRITE_RAW_U8_5(thr,bw_ctx,val1,val2,val3,val4,val5) do { \ + duk_uint8_t *duk__p; \ + DUK_BW_ASSERT_SPACE((thr), (bw_ctx), 5); \ + duk__p = (bw_ctx)->p; \ + *duk__p++ = (duk_uint8_t) (val1); \ + *duk__p++ = (duk_uint8_t) (val2); \ + *duk__p++ = (duk_uint8_t) (val3); \ + *duk__p++ = (duk_uint8_t) (val4); \ + *duk__p++ = (duk_uint8_t) (val5); \ + (bw_ctx)->p = duk__p; \ + } while (0) +#define DUK_BW_WRITE_RAW_U8_6(thr,bw_ctx,val1,val2,val3,val4,val5,val6) do { \ + duk_uint8_t *duk__p; \ + DUK_BW_ASSERT_SPACE((thr), (bw_ctx), 6); \ + duk__p = (bw_ctx)->p; \ + *duk__p++ = (duk_uint8_t) (val1); \ + *duk__p++ = (duk_uint8_t) (val2); \ + *duk__p++ = (duk_uint8_t) (val3); \ + *duk__p++ = (duk_uint8_t) (val4); \ + *duk__p++ = (duk_uint8_t) (val5); \ + *duk__p++ = (duk_uint8_t) (val6); \ + (bw_ctx)->p = duk__p; \ + } while (0) +#define DUK_BW_WRITE_RAW_XUTF8(thr,bw_ctx,cp) do { \ + duk_ucodepoint_t duk__cp; \ + duk_small_int_t duk__enc_len; \ + duk__cp = (duk_ucodepoint_t) (cp); \ + DUK_BW_ASSERT_SPACE((thr), (bw_ctx), duk_unicode_get_xutf8_length(duk__cp)); \ + duk__enc_len = duk_unicode_encode_xutf8(duk__cp, (bw_ctx)->p); \ + (bw_ctx)->p += duk__enc_len; \ + } while (0) +#define DUK_BW_WRITE_RAW_CESU8(thr,bw_ctx,cp) do { \ + duk_ucodepoint_t duk__cp; \ + duk_small_int_t duk__enc_len; \ + duk__cp = (duk_ucodepoint_t) (cp); \ + DUK_BW_ASSERT_SPACE((thr), (bw_ctx), duk_unicode_get_cesu8_length(duk__cp)); \ + duk__enc_len = duk_unicode_encode_cesu8(duk__cp, (bw_ctx)->p); \ + (bw_ctx)->p += duk__enc_len; \ + } while (0) +/* XXX: add temporary duk__p pointer here too; sharing */ +/* XXX: avoid unsafe variants */ +#define DUK_BW_WRITE_RAW_BYTES(thr,bw_ctx,valptr,valsz) do { \ + const void *duk__valptr; \ + duk_size_t duk__valsz; \ + duk__valptr = (const void *) (valptr); \ + duk__valsz = (duk_size_t) (valsz); \ + duk_memcpy_unsafe((void *) ((bw_ctx)->p), duk__valptr, duk__valsz); \ + (bw_ctx)->p += duk__valsz; \ + } while (0) +#define DUK_BW_WRITE_RAW_CSTRING(thr,bw_ctx,val) do { \ + const duk_uint8_t *duk__val; \ + duk_size_t duk__val_len; \ + duk__val = (const duk_uint8_t *) (val); \ + duk__val_len = DUK_STRLEN((const char *) duk__val); \ + duk_memcpy_unsafe((void *) ((bw_ctx)->p), (const void *) duk__val, duk__val_len); \ + (bw_ctx)->p += duk__val_len; \ + } while (0) +#define DUK_BW_WRITE_RAW_HSTRING(thr,bw_ctx,val) do { \ + duk_size_t duk__val_len; \ + duk__val_len = DUK_HSTRING_GET_BYTELEN((val)); \ + duk_memcpy_unsafe((void *) ((bw_ctx)->p), (const void *) DUK_HSTRING_GET_DATA((val)), duk__val_len); \ + (bw_ctx)->p += duk__val_len; \ + } while (0) +#define DUK_BW_WRITE_RAW_HBUFFER(thr,bw_ctx,val) do { \ + duk_size_t duk__val_len; \ + duk__val_len = DUK_HBUFFER_GET_SIZE((val)); \ + duk_memcpy_unsafe((void *) ((bw_ctx)->p), (const void *) DUK_HBUFFER_GET_DATA_PTR((thr)->heap, (val)), duk__val_len); \ + (bw_ctx)->p += duk__val_len; \ + } while (0) +#define DUK_BW_WRITE_RAW_HBUFFER_FIXED(thr,bw_ctx,val) do { \ + duk_size_t duk__val_len; \ + duk__val_len = DUK_HBUFFER_FIXED_GET_SIZE((val)); \ + duk_memcpy_unsafe((void *) ((bw_ctx)->p), (const void *) DUK_HBUFFER_FIXED_GET_DATA_PTR((thr)->heap, (val)), duk__val_len); \ + (bw_ctx)->p += duk__val_len; \ + } while (0) +#define DUK_BW_WRITE_RAW_HBUFFER_DYNAMIC(thr,bw_ctx,val) do { \ + duk_size_t duk__val_len; \ + duk__val_len = DUK_HBUFFER_DYNAMIC_GET_SIZE((val)); \ + duk_memcpy_unsafe((void *) ((bw_ctx)->p), (const void *) DUK_HBUFFER_DYNAMIC_GET_DATA_PTR((thr)->heap, (val)), duk__val_len); \ + (bw_ctx)->p += duk__val_len; \ + } while (0) + +/* Append bytes from a slice already in the buffer. */ +#define DUK_BW_WRITE_RAW_SLICE(thr,bw,dst_off,dst_len) \ + duk_bw_write_raw_slice((thr), (bw), (dst_off), (dst_len)) + +/* Insert bytes in the middle of the buffer from an external buffer. */ +#define DUK_BW_INSERT_RAW_BYTES(thr,bw,dst_off,buf,len) \ + duk_bw_insert_raw_bytes((thr), (bw), (dst_off), (buf), (len)) + +/* Insert bytes in the middle of the buffer from a slice already + * in the buffer. Source offset is interpreted "before" the operation. + */ +#define DUK_BW_INSERT_RAW_SLICE(thr,bw,dst_off,src_off,len) \ + duk_bw_insert_raw_slice((thr), (bw), (dst_off), (src_off), (len)) + +/* Insert a reserved area somewhere in the buffer; caller fills it. + * Evaluates to a (duk_uint_t *) pointing to the start of the reserved + * area for convenience. + */ +#define DUK_BW_INSERT_RAW_AREA(thr,bw,off,len) \ + duk_bw_insert_raw_area((thr), (bw), (off), (len)) + +/* Remove a slice from inside buffer. */ +#define DUK_BW_REMOVE_RAW_SLICE(thr,bw,off,len) \ + duk_bw_remove_raw_slice((thr), (bw), (off), (len)) + +/* Safe write calls which will ensure space first. */ + +#define DUK_BW_WRITE_ENSURE_U8(thr,bw_ctx,val) do { \ + DUK_BW_ENSURE((thr), (bw_ctx), 1); \ + DUK_BW_WRITE_RAW_U8((thr), (bw_ctx), (val)); \ + } while (0) +#define DUK_BW_WRITE_ENSURE_U8_2(thr,bw_ctx,val1,val2) do { \ + DUK_BW_ENSURE((thr), (bw_ctx), 2); \ + DUK_BW_WRITE_RAW_U8_2((thr), (bw_ctx), (val1), (val2)); \ + } while (0) +#define DUK_BW_WRITE_ENSURE_U8_3(thr,bw_ctx,val1,val2,val3) do { \ + DUK_BW_ENSURE((thr), (bw_ctx), 3); \ + DUK_BW_WRITE_RAW_U8_3((thr), (bw_ctx), (val1), (val2), (val3)); \ + } while (0) +#define DUK_BW_WRITE_ENSURE_U8_4(thr,bw_ctx,val1,val2,val3,val4) do { \ + DUK_BW_ENSURE((thr), (bw_ctx), 4); \ + DUK_BW_WRITE_RAW_U8_4((thr), (bw_ctx), (val1), (val2), (val3), (val4)); \ + } while (0) +#define DUK_BW_WRITE_ENSURE_U8_5(thr,bw_ctx,val1,val2,val3,val4,val5) do { \ + DUK_BW_ENSURE((thr), (bw_ctx), 5); \ + DUK_BW_WRITE_RAW_U8_5((thr), (bw_ctx), (val1), (val2), (val3), (val4), (val5)); \ + } while (0) +#define DUK_BW_WRITE_ENSURE_U8_6(thr,bw_ctx,val1,val2,val3,val4,val5,val6) do { \ + DUK_BW_ENSURE((thr), (bw_ctx), 6); \ + DUK_BW_WRITE_RAW_U8_6((thr), (bw_ctx), (val1), (val2), (val3), (val4), (val5), (val6)); \ + } while (0) +#define DUK_BW_WRITE_ENSURE_XUTF8(thr,bw_ctx,cp) do { \ + DUK_BW_ENSURE((thr), (bw_ctx), DUK_UNICODE_MAX_XUTF8_LENGTH); \ + DUK_BW_WRITE_RAW_XUTF8((thr), (bw_ctx), (cp)); \ + } while (0) +#define DUK_BW_WRITE_ENSURE_CESU8(thr,bw_ctx,cp) do { \ + DUK_BW_ENSURE((thr), (bw_ctx), DUK_UNICODE_MAX_CESU8_LENGTH); \ + DUK_BW_WRITE_RAW_CESU8((thr), (bw_ctx), (cp)); \ + } while (0) +/* XXX: add temporary duk__p pointer here too; sharing */ +/* XXX: avoid unsafe */ +#define DUK_BW_WRITE_ENSURE_BYTES(thr,bw_ctx,valptr,valsz) do { \ + const void *duk__valptr; \ + duk_size_t duk__valsz; \ + duk__valptr = (const void *) (valptr); \ + duk__valsz = (duk_size_t) (valsz); \ + DUK_BW_ENSURE((thr), (bw_ctx), duk__valsz); \ + duk_memcpy_unsafe((void *) ((bw_ctx)->p), duk__valptr, duk__valsz); \ + (bw_ctx)->p += duk__valsz; \ + } while (0) +#define DUK_BW_WRITE_ENSURE_CSTRING(thr,bw_ctx,val) do { \ + const duk_uint8_t *duk__val; \ + duk_size_t duk__val_len; \ + duk__val = (const duk_uint8_t *) (val); \ + duk__val_len = DUK_STRLEN((const char *) duk__val); \ + DUK_BW_ENSURE((thr), (bw_ctx), duk__val_len); \ + duk_memcpy_unsafe((void *) ((bw_ctx)->p), (const void *) duk__val, duk__val_len); \ + (bw_ctx)->p += duk__val_len; \ + } while (0) +#define DUK_BW_WRITE_ENSURE_HSTRING(thr,bw_ctx,val) do { \ + duk_size_t duk__val_len; \ + duk__val_len = DUK_HSTRING_GET_BYTELEN((val)); \ + DUK_BW_ENSURE((thr), (bw_ctx), duk__val_len); \ + duk_memcpy_unsafe((void *) ((bw_ctx)->p), (const void *) DUK_HSTRING_GET_DATA((val)), duk__val_len); \ + (bw_ctx)->p += duk__val_len; \ + } while (0) +#define DUK_BW_WRITE_ENSURE_HBUFFER(thr,bw_ctx,val) do { \ + duk_size_t duk__val_len; \ + duk__val_len = DUK_HBUFFER_GET_SIZE((val)); \ + DUK_BW_ENSURE((thr), (bw_ctx), duk__val_len); \ + duk_memcpy_unsafe((void *) ((bw_ctx)->p), (const void *) DUK_HBUFFER_GET_DATA_PTR((thr)->heap, (val)), duk__val_len); \ + (bw_ctx)->p += duk__val_len; \ + } while (0) +#define DUK_BW_WRITE_ENSURE_HBUFFER_FIXED(thr,bw_ctx,val) do { \ + duk_size_t duk__val_len; \ + duk__val_len = DUK_HBUFFER_FIXED_GET_SIZE((val)); \ + DUK_BW_ENSURE((thr), (bw_ctx), duk__val_len); \ + duk_memcpy_unsafe((void *) ((bw_ctx)->p), (const void *) DUK_HBUFFER_FIXED_GET_DATA_PTR((thr)->heap, (val)), duk__val_len); \ + (bw_ctx)->p += duk__val_len; \ + } while (0) +#define DUK_BW_WRITE_ENSURE_HBUFFER_DYNAMIC(thr,bw_ctx,val) do { \ + duk_size_t duk__val_len; \ + duk__val_len = DUK_HBUFFER_DYNAMIC_GET_SIZE((val)); \ + DUK_BW_ENSURE((thr), (bw_ctx), duk__val_len); \ + duk_memcpy_unsafe((void *) ((bw_ctx)->p), (const void *) DUK_HBUFFER_DYNAMIC_GET_DATA_PTR((thr)->heap, (val)), duk__val_len); \ + (bw_ctx)->p += duk__val_len; \ + } while (0) + +#define DUK_BW_WRITE_ENSURE_SLICE(thr,bw,dst_off,dst_len) \ + duk_bw_write_ensure_slice((thr), (bw), (dst_off), (dst_len)) +#define DUK_BW_INSERT_ENSURE_BYTES(thr,bw,dst_off,buf,len) \ + duk_bw_insert_ensure_bytes((thr), (bw), (dst_off), (buf), (len)) +#define DUK_BW_INSERT_ENSURE_SLICE(thr,bw,dst_off,src_off,len) \ + duk_bw_insert_ensure_slice((thr), (bw), (dst_off), (src_off), (len)) +#define DUK_BW_INSERT_ENSURE_AREA(thr,bw,off,len) \ + /* Evaluates to (duk_uint8_t *) pointing to start of area. */ \ + duk_bw_insert_ensure_area((thr), (bw), (off), (len)) +#define DUK_BW_REMOVE_ENSURE_SLICE(thr,bw,off,len) \ + /* No difference between raw/ensure because the buffer shrinks. */ \ + DUK_BW_REMOVE_RAW_SLICE((thr), (bw), (off), (len)) + +/* + * Externs and prototypes + */ + +#if !defined(DUK_SINGLE_FILE) +DUK_INTERNAL_DECL const duk_uint8_t duk_lc_digits[36]; +DUK_INTERNAL_DECL const duk_uint8_t duk_uc_nybbles[16]; +DUK_INTERNAL_DECL const duk_int8_t duk_hex_dectab[256]; +#if defined(DUK_USE_HEX_FASTPATH) +DUK_INTERNAL_DECL const duk_int16_t duk_hex_dectab_shift4[256]; +DUK_INTERNAL_DECL const duk_uint16_t duk_hex_enctab[256]; +#endif +#endif /* !DUK_SINGLE_FILE */ + +/* Note: assumes that duk_util_probe_steps size is 32 */ +#if defined(DUK_USE_HOBJECT_HASH_PART) +#if !defined(DUK_SINGLE_FILE) +DUK_INTERNAL_DECL duk_uint8_t duk_util_probe_steps[32]; +#endif /* !DUK_SINGLE_FILE */ +#endif + +#if defined(DUK_USE_STRHASH_DENSE) +DUK_INTERNAL_DECL duk_uint32_t duk_util_hashbytes(const duk_uint8_t *data, duk_size_t len, duk_uint32_t seed); +#endif + +DUK_INTERNAL_DECL duk_uint32_t duk_bd_decode(duk_bitdecoder_ctx *ctx, duk_small_int_t bits); +DUK_INTERNAL_DECL duk_small_uint_t duk_bd_decode_flag(duk_bitdecoder_ctx *ctx); +DUK_INTERNAL_DECL duk_uint32_t duk_bd_decode_flagged(duk_bitdecoder_ctx *ctx, duk_small_int_t bits, duk_uint32_t def_value); +DUK_INTERNAL_DECL duk_int32_t duk_bd_decode_flagged_signed(duk_bitdecoder_ctx *ctx, duk_small_int_t bits, duk_int32_t def_value); +DUK_INTERNAL_DECL duk_uint32_t duk_bd_decode_varuint(duk_bitdecoder_ctx *ctx); +DUK_INTERNAL_DECL duk_small_uint_t duk_bd_decode_bitpacked_string(duk_bitdecoder_ctx *bd, duk_uint8_t *out); + +DUK_INTERNAL_DECL void duk_be_encode(duk_bitencoder_ctx *ctx, duk_uint32_t data, duk_small_int_t bits); +DUK_INTERNAL_DECL void duk_be_finish(duk_bitencoder_ctx *ctx); + +#if !defined(DUK_USE_GET_RANDOM_DOUBLE) +DUK_INTERNAL_DECL duk_double_t duk_util_tinyrandom_get_double(duk_hthread *thr); +DUK_INTERNAL_DECL void duk_util_tinyrandom_prepare_seed(duk_hthread *thr); +#endif + +DUK_INTERNAL_DECL void duk_bw_init(duk_hthread *thr, duk_bufwriter_ctx *bw_ctx, duk_hbuffer_dynamic *h_buf); +DUK_INTERNAL_DECL void duk_bw_init_pushbuf(duk_hthread *thr, duk_bufwriter_ctx *bw_ctx, duk_size_t buf_size); +DUK_INTERNAL_DECL duk_uint8_t *duk_bw_resize(duk_hthread *thr, duk_bufwriter_ctx *bw_ctx, duk_size_t sz); +DUK_INTERNAL_DECL void duk_bw_compact(duk_hthread *thr, duk_bufwriter_ctx *bw_ctx); +DUK_INTERNAL_DECL void duk_bw_write_raw_slice(duk_hthread *thr, duk_bufwriter_ctx *bw, duk_size_t src_off, duk_size_t len); +DUK_INTERNAL_DECL void duk_bw_write_ensure_slice(duk_hthread *thr, duk_bufwriter_ctx *bw, duk_size_t src_off, duk_size_t len); +DUK_INTERNAL_DECL void duk_bw_insert_raw_bytes(duk_hthread *thr, duk_bufwriter_ctx *bw, duk_size_t dst_off, const duk_uint8_t *buf, duk_size_t len); +DUK_INTERNAL_DECL void duk_bw_insert_ensure_bytes(duk_hthread *thr, duk_bufwriter_ctx *bw, duk_size_t dst_off, const duk_uint8_t *buf, duk_size_t len); +DUK_INTERNAL_DECL void duk_bw_insert_raw_slice(duk_hthread *thr, duk_bufwriter_ctx *bw, duk_size_t dst_off, duk_size_t src_off, duk_size_t len); +DUK_INTERNAL_DECL void duk_bw_insert_ensure_slice(duk_hthread *thr, duk_bufwriter_ctx *bw, duk_size_t dst_off, duk_size_t src_off, duk_size_t len); +DUK_INTERNAL_DECL duk_uint8_t *duk_bw_insert_raw_area(duk_hthread *thr, duk_bufwriter_ctx *bw, duk_size_t off, duk_size_t len); +DUK_INTERNAL_DECL duk_uint8_t *duk_bw_insert_ensure_area(duk_hthread *thr, duk_bufwriter_ctx *bw, duk_size_t off, duk_size_t len); +DUK_INTERNAL_DECL void duk_bw_remove_raw_slice(duk_hthread *thr, duk_bufwriter_ctx *bw, duk_size_t off, duk_size_t len); +/* No duk_bw_remove_ensure_slice(), functionality would be identical. */ + +DUK_INTERNAL_DECL duk_uint16_t duk_raw_read_u16_be(const duk_uint8_t *p); +DUK_INTERNAL_DECL duk_uint32_t duk_raw_read_u32_be(const duk_uint8_t *p); +DUK_INTERNAL_DECL duk_float_t duk_raw_read_float_be(const duk_uint8_t *p); +DUK_INTERNAL_DECL duk_double_t duk_raw_read_double_be(const duk_uint8_t *p); +DUK_INTERNAL_DECL duk_uint16_t duk_raw_readinc_u16_be(const duk_uint8_t **p); +DUK_INTERNAL_DECL duk_uint32_t duk_raw_readinc_u32_be(const duk_uint8_t **p); +DUK_INTERNAL_DECL duk_float_t duk_raw_readinc_float_be(const duk_uint8_t **p); +DUK_INTERNAL_DECL duk_double_t duk_raw_readinc_double_be(const duk_uint8_t **p); +DUK_INTERNAL_DECL void duk_raw_write_u16_be(duk_uint8_t *p, duk_uint16_t val); +DUK_INTERNAL_DECL void duk_raw_write_u32_be(duk_uint8_t *p, duk_uint32_t val); +DUK_INTERNAL_DECL void duk_raw_write_float_be(duk_uint8_t *p, duk_float_t val); +DUK_INTERNAL_DECL void duk_raw_write_double_be(duk_uint8_t *p, duk_double_t val); +DUK_INTERNAL_DECL duk_small_int_t duk_raw_write_xutf8(duk_uint8_t *p, duk_ucodepoint_t val); +DUK_INTERNAL_DECL duk_small_int_t duk_raw_write_cesu8(duk_uint8_t *p, duk_ucodepoint_t val); +DUK_INTERNAL_DECL void duk_raw_writeinc_u16_be(duk_uint8_t **p, duk_uint16_t val); +DUK_INTERNAL_DECL void duk_raw_writeinc_u32_be(duk_uint8_t **p, duk_uint32_t val); +DUK_INTERNAL_DECL void duk_raw_writeinc_float_be(duk_uint8_t **p, duk_float_t val); +DUK_INTERNAL_DECL void duk_raw_writeinc_double_be(duk_uint8_t **p, duk_double_t val); +DUK_INTERNAL_DECL void duk_raw_writeinc_xutf8(duk_uint8_t **p, duk_ucodepoint_t val); +DUK_INTERNAL_DECL void duk_raw_writeinc_cesu8(duk_uint8_t **p, duk_ucodepoint_t val); + +#if defined(DUK_USE_DEBUGGER_SUPPORT) /* For now only needed by the debugger. */ +DUK_INTERNAL_DECL void duk_byteswap_bytes(duk_uint8_t *p, duk_small_uint_t len); +#endif + +/* memcpy(), memmove() etc wrappers. The plain variants like duk_memcpy() + * assume C99+ and 'src' and 'dst' pointers must be non-NULL even when the + * operation size is zero. The unsafe variants like duk_memcpy_safe() deal + * with the zero size case explicitly, and allow NULL pointers in that case + * (which is undefined behavior in C99+). For the majority of actual targets + * a NULL pointer with a zero length is fine in practice. These wrappers are + * macros to force inlining; because there are hundreds of call sites, even a + * few extra bytes per call site adds up to ~1kB footprint. + */ +#if defined(DUK_USE_ALLOW_UNDEFINED_BEHAVIOR) +#define duk_memcpy(dst,src,len) do { \ + void *duk__dst = (dst); \ + const void *duk__src = (src); \ + duk_size_t duk__len = (len); \ + DUK_ASSERT(duk__dst != NULL || duk__len == 0U); \ + DUK_ASSERT(duk__src != NULL || duk__len == 0U); \ + (void) DUK_MEMCPY(duk__dst, duk__src, (size_t) duk__len); \ + } while (0) +#define duk_memcpy_unsafe(dst,src,len) duk_memcpy((dst), (src), (len)) +#define duk_memmove(dst,src,len) do { \ + void *duk__dst = (dst); \ + const void *duk__src = (src); \ + duk_size_t duk__len = (len); \ + DUK_ASSERT(duk__dst != NULL || duk__len == 0U); \ + DUK_ASSERT(duk__src != NULL || duk__len == 0U); \ + (void) DUK_MEMMOVE(duk__dst, duk__src, (size_t) duk__len); \ + } while (0) +#define duk_memmove_unsafe(dst,src,len) duk_memmove((dst), (src), (len)) +#define duk_memset(dst,val,len) do { \ + void *duk__dst = (dst); \ + duk_small_int_t duk__val = (val); \ + duk_size_t duk__len = (len); \ + DUK_ASSERT(duk__dst != NULL || duk__len == 0U); \ + (void) DUK_MEMSET(duk__dst, duk__val, (size_t) duk__len); \ + } while (0) +#define duk_memset_unsafe(dst,val,len) duk_memset((dst), (val), (len)) +#define duk_memzero(dst,len) do { \ + void *duk__dst = (dst); \ + duk_size_t duk__len = (len); \ + DUK_ASSERT(duk__dst != NULL || duk__len == 0U); \ + (void) DUK_MEMZERO(duk__dst, (size_t) duk__len); \ + } while (0) +#define duk_memzero_unsafe(dst,len) duk_memzero((dst), (len)) +#else /* DUK_USE_ALLOW_UNDEFINED_BEHAVIOR */ +#define duk_memcpy(dst,src,len) do { \ + void *duk__dst = (dst); \ + const void *duk__src = (src); \ + duk_size_t duk__len = (len); \ + DUK_ASSERT(duk__dst != NULL); \ + DUK_ASSERT(duk__src != NULL); \ + (void) DUK_MEMCPY(duk__dst, duk__src, (size_t) duk__len); \ + } while (0) +#define duk_memcpy_unsafe(dst,src,len) do { \ + void *duk__dst = (dst); \ + const void *duk__src = (src); \ + duk_size_t duk__len = (len); \ + DUK_ASSERT(duk__dst != NULL || duk__len == 0U); \ + DUK_ASSERT(duk__src != NULL || duk__len == 0U); \ + if (DUK_LIKELY(duk__len > 0U)) { \ + DUK_ASSERT(duk__dst != NULL); \ + DUK_ASSERT(duk__src != NULL); \ + (void) DUK_MEMCPY(duk__dst, duk__src, (size_t) duk__len); \ + } \ + } while (0) +#define duk_memmove(dst,src,len) do { \ + void *duk__dst = (dst); \ + const void *duk__src = (src); \ + duk_size_t duk__len = (len); \ + DUK_ASSERT(duk__dst != NULL); \ + DUK_ASSERT(duk__src != NULL); \ + (void) DUK_MEMMOVE(duk__dst, duk__src, (size_t) duk__len); \ + } while (0) +#define duk_memmove_unsafe(dst,src,len) do { \ + void *duk__dst = (dst); \ + const void *duk__src = (src); \ + duk_size_t duk__len = (len); \ + DUK_ASSERT(duk__dst != NULL || duk__len == 0U); \ + DUK_ASSERT(duk__src != NULL || duk__len == 0U); \ + if (DUK_LIKELY(duk__len > 0U)) { \ + DUK_ASSERT(duk__dst != NULL); \ + DUK_ASSERT(duk__src != NULL); \ + (void) DUK_MEMMOVE(duk__dst, duk__src, (size_t) duk__len); \ + } \ + } while (0) +#define duk_memset(dst,val,len) do { \ + void *duk__dst = (dst); \ + duk_small_int_t duk__val = (val); \ + duk_size_t duk__len = (len); \ + DUK_ASSERT(duk__dst != NULL); \ + (void) DUK_MEMSET(duk__dst, duk__val, (size_t) duk__len); \ + } while (0) +#define duk_memset_unsafe(dst,val,len) do { \ + void *duk__dst = (dst); \ + duk_small_int_t duk__val = (val); \ + duk_size_t duk__len = (len); \ + DUK_ASSERT(duk__dst != NULL || duk__len == 0U); \ + if (DUK_LIKELY(duk__len > 0U)) { \ + DUK_ASSERT(duk__dst != NULL); \ + (void) DUK_MEMSET(duk__dst, duk__val, (size_t) duk__len); \ + } \ + } while (0) +#define duk_memzero(dst,len) do { \ + void *duk__dst = (dst); \ + duk_size_t duk__len = (len); \ + DUK_ASSERT(duk__dst != NULL); \ + (void) DUK_MEMZERO(duk__dst, (size_t) duk__len); \ + } while (0) +#define duk_memzero_unsafe(dst,len) do { \ + void *duk__dst = (dst); \ + duk_size_t duk__len = (len); \ + DUK_ASSERT(duk__dst != NULL || duk__len == 0U); \ + if (DUK_LIKELY(duk__len > 0U)) { \ + DUK_ASSERT(duk__dst != NULL); \ + (void) DUK_MEMZERO(duk__dst, (size_t) duk__len); \ + } \ + } while (0) +#endif /* DUK_USE_ALLOW_UNDEFINED_BEHAVIOR */ + +DUK_INTERNAL_DECL duk_small_int_t duk_memcmp(const void *s1, const void *s2, duk_size_t len); +DUK_INTERNAL_DECL duk_small_int_t duk_memcmp_unsafe(const void *s1, const void *s2, duk_size_t len); + +DUK_INTERNAL_DECL duk_bool_t duk_is_whole_get_int32_nonegzero(duk_double_t x, duk_int32_t *ival); +DUK_INTERNAL_DECL duk_bool_t duk_is_whole_get_int32(duk_double_t x, duk_int32_t *ival); +DUK_INTERNAL_DECL duk_bool_t duk_double_is_anyinf(duk_double_t x); +DUK_INTERNAL_DECL duk_bool_t duk_double_is_posinf(duk_double_t x); +DUK_INTERNAL_DECL duk_bool_t duk_double_is_neginf(duk_double_t x); +DUK_INTERNAL_DECL duk_bool_t duk_double_is_nan(duk_double_t x); +DUK_INTERNAL_DECL duk_bool_t duk_double_is_nan_or_zero(duk_double_t x); +DUK_INTERNAL_DECL duk_bool_t duk_double_is_nan_or_inf(duk_double_t x); +DUK_INTERNAL_DECL duk_bool_t duk_double_is_nan_zero_inf(duk_double_t x); +DUK_INTERNAL_DECL duk_small_uint_t duk_double_signbit(duk_double_t x); +DUK_INTERNAL_DECL duk_double_t duk_double_trunc_towards_zero(duk_double_t x); +DUK_INTERNAL_DECL duk_bool_t duk_double_same_sign(duk_double_t x, duk_double_t y); +DUK_INTERNAL_DECL duk_double_t duk_double_fmin(duk_double_t x, duk_double_t y); +DUK_INTERNAL_DECL duk_double_t duk_double_fmax(duk_double_t x, duk_double_t y); +DUK_INTERNAL_DECL duk_bool_t duk_double_is_finite(duk_double_t x); +DUK_INTERNAL_DECL duk_bool_t duk_double_is_integer(duk_double_t x); +DUK_INTERNAL_DECL duk_bool_t duk_double_is_safe_integer(duk_double_t x); + +DUK_INTERNAL_DECL duk_double_t duk_double_div(duk_double_t x, duk_double_t y); +DUK_INTERNAL_DECL duk_int_t duk_double_to_int_t(duk_double_t x); +DUK_INTERNAL_DECL duk_uint_t duk_double_to_uint_t(duk_double_t x); +DUK_INTERNAL_DECL duk_int32_t duk_double_to_int32_t(duk_double_t x); +DUK_INTERNAL_DECL duk_uint32_t duk_double_to_uint32_t(duk_double_t x); +DUK_INTERNAL_DECL duk_float_t duk_double_to_float_t(duk_double_t x); +DUK_INTERNAL_DECL duk_bool_t duk_double_equals(duk_double_t x, duk_double_t y); +DUK_INTERNAL_DECL duk_bool_t duk_float_equals(duk_float_t x, duk_float_t y); + +/* + * Miscellaneous + */ + +/* Example: x = 0x10 = 0b00010000 + * x - 1 = 0x0f = 0b00001111 + * x & (x - 1) == 0 + * + * x = 0x07 = 0b00000111 + * x - 1 = 0x06 = 0b00000110 + * x & (x - 1) != 0 + * + * However, incorrectly true for x == 0 so check for that explicitly. + */ +#define DUK_IS_POWER_OF_TWO(x) \ + ((x) != 0U && ((x) & ((x) - 1U)) == 0U) + +#endif /* DUK_UTIL_H_INCLUDED */ +/* #include duk_strings.h */ +#line 1 "duk_strings.h" +/* + * Shared string macros. + * + * Using shared macros helps minimize strings data size because it's easy + * to check if an existing string could be used. String constants don't + * need to be all defined here; defining a string here makes sense if there's + * a high chance the string could be reused. Also, using macros allows + * a call site express the exact string needed, but the macro may map to an + * approximate string to reduce unique string count. Macros can also be + * more easily tuned for low memory targets than #if defined()s throughout + * the code base. + * + * Because format strings behave differently in the call site (they need to + * be followed by format arguments), they use a special prefix DUK_STR_FMT_. + * + * On some compilers using explicit shared strings is preferable; on others + * it may be better to use straight literals because the compiler will combine + * them anyway, and such strings won't end up unnecessarily in a symbol table. + */ + +#if !defined(DUK_ERRMSG_H_INCLUDED) +#define DUK_ERRMSG_H_INCLUDED + +/* Mostly API and built-in method related */ +#define DUK_STR_INTERNAL_ERROR "internal error" +#define DUK_STR_UNSUPPORTED "unsupported" +#define DUK_STR_INVALID_COUNT "invalid count" +#define DUK_STR_INVALID_ARGS "invalid args" +#define DUK_STR_INVALID_STATE "invalid state" +#define DUK_STR_INVALID_INPUT "invalid input" +#define DUK_STR_INVALID_LENGTH "invalid length" +#define DUK_STR_NOT_CONSTRUCTABLE "not constructable" +#define DUK_STR_CONSTRUCT_ONLY "constructor requires 'new'" +#define DUK_STR_NOT_CALLABLE "not callable" +#define DUK_STR_NOT_EXTENSIBLE "not extensible" +#define DUK_STR_NOT_WRITABLE "not writable" +#define DUK_STR_NOT_CONFIGURABLE "not configurable" +#define DUK_STR_INVALID_CONTEXT "invalid context" +#define DUK_STR_INVALID_INDEX "invalid args" +#define DUK_STR_PUSH_BEYOND_ALLOC_STACK "cannot push beyond allocated stack" +#define DUK_STR_NOT_UNDEFINED "unexpected type" +#define DUK_STR_NOT_NULL "unexpected type" +#define DUK_STR_NOT_BOOLEAN "unexpected type" +#define DUK_STR_NOT_NUMBER "unexpected type" +#define DUK_STR_NOT_STRING "unexpected type" +#define DUK_STR_NOT_OBJECT "unexpected type" +#define DUK_STR_NOT_POINTER "unexpected type" +#define DUK_STR_NOT_BUFFER "not buffer" /* still in use with verbose messages */ +#define DUK_STR_UNEXPECTED_TYPE "unexpected type" +#define DUK_STR_NOT_THREAD "unexpected type" +#define DUK_STR_NOT_COMPFUNC "unexpected type" +#define DUK_STR_NOT_NATFUNC "unexpected type" +#define DUK_STR_NOT_C_FUNCTION "unexpected type" +#define DUK_STR_NOT_FUNCTION "unexpected type" +#define DUK_STR_NOT_REGEXP "unexpected type" +#define DUK_STR_TOPRIMITIVE_FAILED "coercion to primitive failed" +#define DUK_STR_NUMBER_OUTSIDE_RANGE "number outside range" +#define DUK_STR_NOT_OBJECT_COERCIBLE "not object coercible" +#define DUK_STR_CANNOT_NUMBER_COERCE_SYMBOL "cannot number coerce Symbol" +#define DUK_STR_CANNOT_STRING_COERCE_SYMBOL "cannot string coerce Symbol" +#define DUK_STR_STRING_TOO_LONG "string too long" +#define DUK_STR_BUFFER_TOO_LONG "buffer too long" +#define DUK_STR_ALLOC_FAILED "alloc failed" +#define DUK_STR_WRONG_BUFFER_TYPE "wrong buffer type" +#define DUK_STR_BASE64_ENCODE_FAILED "base64 encode failed" +#define DUK_STR_SOURCE_DECODE_FAILED "source decode failed" +#define DUK_STR_UTF8_DECODE_FAILED "utf-8 decode failed" +#define DUK_STR_BASE64_DECODE_FAILED "base64 decode failed" +#define DUK_STR_HEX_DECODE_FAILED "hex decode failed" +#define DUK_STR_INVALID_BYTECODE "invalid bytecode" +#define DUK_STR_NO_SOURCECODE "no sourcecode" +#define DUK_STR_RESULT_TOO_LONG "result too long" +#define DUK_STR_INVALID_CFUNC_RC "invalid C function rc" +#define DUK_STR_INVALID_INSTANCEOF_RVAL "invalid instanceof rval" +#define DUK_STR_INVALID_INSTANCEOF_RVAL_NOPROTO "instanceof rval has no .prototype" + +/* JSON */ +#define DUK_STR_FMT_PTR "%p" +#define DUK_STR_FMT_INVALID_JSON "invalid json (at offset %ld)" +#define DUK_STR_JSONDEC_RECLIMIT "json decode recursion limit" +#define DUK_STR_JSONENC_RECLIMIT "json encode recursion limit" +#define DUK_STR_CYCLIC_INPUT "cyclic input" + +/* Object property access */ +#define DUK_STR_INVALID_BASE "invalid base value" +#define DUK_STR_STRICT_CALLER_READ "cannot read strict 'caller'" +#define DUK_STR_PROXY_REJECTED "proxy rejected" +#define DUK_STR_INVALID_ARRAY_LENGTH "invalid array length" +#define DUK_STR_SETTER_UNDEFINED "setter undefined" +#define DUK_STR_INVALID_DESCRIPTOR "invalid descriptor" + +/* Proxy */ +#define DUK_STR_PROXY_REVOKED "proxy revoked" +#define DUK_STR_INVALID_TRAP_RESULT "invalid trap result" + +/* Variables */ + +/* Lexer */ +#define DUK_STR_INVALID_ESCAPE "invalid escape" +#define DUK_STR_UNTERMINATED_STRING "unterminated string" +#define DUK_STR_UNTERMINATED_COMMENT "unterminated comment" +#define DUK_STR_UNTERMINATED_REGEXP "unterminated regexp" +#define DUK_STR_TOKEN_LIMIT "token limit" +#define DUK_STR_REGEXP_SUPPORT_DISABLED "regexp support disabled" +#define DUK_STR_INVALID_NUMBER_LITERAL "invalid number literal" +#define DUK_STR_INVALID_TOKEN "invalid token" + +/* Compiler */ +#define DUK_STR_PARSE_ERROR "parse error" +#define DUK_STR_DUPLICATE_LABEL "duplicate label" +#define DUK_STR_INVALID_LABEL "invalid label" +#define DUK_STR_INVALID_ARRAY_LITERAL "invalid array literal" +#define DUK_STR_INVALID_OBJECT_LITERAL "invalid object literal" +#define DUK_STR_INVALID_VAR_DECLARATION "invalid variable declaration" +#define DUK_STR_CANNOT_DELETE_IDENTIFIER "cannot delete identifier" +#define DUK_STR_INVALID_EXPRESSION "invalid expression" +#define DUK_STR_INVALID_LVALUE "invalid lvalue" +#define DUK_STR_INVALID_NEWTARGET "invalid new.target" +#define DUK_STR_EXPECTED_IDENTIFIER "expected identifier" +#define DUK_STR_EMPTY_EXPR_NOT_ALLOWED "empty expression not allowed" +#define DUK_STR_INVALID_FOR "invalid for statement" +#define DUK_STR_INVALID_SWITCH "invalid switch statement" +#define DUK_STR_INVALID_BREAK_CONT_LABEL "invalid break/continue label" +#define DUK_STR_INVALID_RETURN "invalid return" +#define DUK_STR_INVALID_TRY "invalid try" +#define DUK_STR_INVALID_THROW "invalid throw" +#define DUK_STR_WITH_IN_STRICT_MODE "with in strict mode" +#define DUK_STR_FUNC_STMT_NOT_ALLOWED "function statement not allowed" +#define DUK_STR_UNTERMINATED_STMT "unterminated statement" +#define DUK_STR_INVALID_ARG_NAME "invalid argument name" +#define DUK_STR_INVALID_FUNC_NAME "invalid function name" +#define DUK_STR_INVALID_GETSET_NAME "invalid getter/setter name" +#define DUK_STR_FUNC_NAME_REQUIRED "function name required" + +/* RegExp */ +#define DUK_STR_INVALID_QUANTIFIER "invalid regexp quantifier" +#define DUK_STR_INVALID_QUANTIFIER_NO_ATOM "quantifier without preceding atom" +#define DUK_STR_INVALID_QUANTIFIER_VALUES "quantifier values invalid (qmin > qmax)" +#define DUK_STR_QUANTIFIER_TOO_MANY_COPIES "quantifier requires too many atom copies" +#define DUK_STR_UNEXPECTED_CLOSING_PAREN "unexpected closing parenthesis" +#define DUK_STR_UNEXPECTED_END_OF_PATTERN "unexpected end of pattern" +#define DUK_STR_UNEXPECTED_REGEXP_TOKEN "unexpected token in regexp" +#define DUK_STR_INVALID_REGEXP_FLAGS "invalid regexp flags" +#define DUK_STR_INVALID_REGEXP_ESCAPE "invalid regexp escape" +#define DUK_STR_INVALID_BACKREFS "invalid backreference(s)" +#define DUK_STR_INVALID_REGEXP_CHARACTER "invalid regexp character" +#define DUK_STR_INVALID_REGEXP_GROUP "invalid regexp group" +#define DUK_STR_UNTERMINATED_CHARCLASS "unterminated character class" +#define DUK_STR_INVALID_RANGE "invalid range" + +/* Limits */ +#define DUK_STR_VALSTACK_LIMIT "valstack limit" +#define DUK_STR_CALLSTACK_LIMIT "callstack limit" +#define DUK_STR_PROTOTYPE_CHAIN_LIMIT "prototype chain limit" +#define DUK_STR_BOUND_CHAIN_LIMIT "function call bound chain limit" +#define DUK_STR_NATIVE_STACK_LIMIT "C stack depth limit" +#define DUK_STR_COMPILER_RECURSION_LIMIT "compiler recursion limit" +#define DUK_STR_BYTECODE_LIMIT "bytecode limit" +#define DUK_STR_REG_LIMIT "register limit" +#define DUK_STR_TEMP_LIMIT "temp limit" +#define DUK_STR_CONST_LIMIT "const limit" +#define DUK_STR_FUNC_LIMIT "function limit" +#define DUK_STR_REGEXP_COMPILER_RECURSION_LIMIT "regexp compiler recursion limit" +#define DUK_STR_REGEXP_EXECUTOR_RECURSION_LIMIT "regexp executor recursion limit" +#define DUK_STR_REGEXP_EXECUTOR_STEP_LIMIT "regexp step limit" + +#endif /* DUK_ERRMSG_H_INCLUDED */ +/* #include duk_js_bytecode.h */ +#line 1 "duk_js_bytecode.h" +/* + * ECMAScript bytecode + */ + +#if !defined(DUK_JS_BYTECODE_H_INCLUDED) +#define DUK_JS_BYTECODE_H_INCLUDED + +/* + * Bytecode instruction layout + * =========================== + * + * Instructions are unsigned 32-bit integers divided as follows: + * + * !3!3!2!2!2!2!2!2!2!2!2!2!1!1!1!1!1!1!1!1!1!1! ! ! ! ! ! ! ! ! ! ! + * !1!0!9!8!7!6!5!4!3!2!1!0!9!8!7!6!5!4!3!2!1!0!9!8!7!6!5!4!3!2!1!0! + * +-----------------------------------------------+---------------+ + * ! C ! B ! A ! OP ! + * +-----------------------------------------------+---------------+ + * + * OP (8 bits): opcode (DUK_OP_*), access should be fastest + * consecutive opcodes allocated when opcode needs flags + * A (8 bits): typically a target register number + * B (8 bits): typically first source register/constant number + * C (8 bits): typically second source register/constant number + * + * Some instructions combine BC or ABC together for larger parameter values. + * Signed integers (e.g. jump offsets) are encoded as unsigned, with an + * opcode specific bias. + * + * Some opcodes have flags which are handled by allocating consecutive + * opcodes to make space for 1-N flags. Flags can also be e.g. in the 'A' + * field when there's room for the specific opcode. + * + * For example, if three flags were needed, they could be allocated from + * the opcode field as follows: + * + * !3!3!2!2!2!2!2!2!2!2!2!2!1!1!1!1!1!1!1!1!1!1! ! ! ! ! ! ! ! ! ! ! + * !1!0!9!8!7!6!5!4!3!2!1!0!9!8!7!6!5!4!3!2!1!0!9!8!7!6!5!4!3!2!1!0! + * +-----------------------------------------------+---------------+ + * ! C ! B ! A ! OP !Z!Y!X! + * +-----------------------------------------------+---------------+ + * + * Some opcodes accept a reg/const argument which is handled by allocating + * flags in the OP field, see DUK_BC_ISREG() and DUK_BC_ISCONST(). The + * following convention is shared by most opcodes, so that the compiler + * can handle reg/const flagging without opcode specific code paths: + * + * !3!3!2!2!2!2!2!2!2!2!2!2!1!1!1!1!1!1!1!1!1!1! ! ! ! ! ! ! ! ! ! ! + * !1!0!9!8!7!6!5!4!3!2!1!0!9!8!7!6!5!4!3!2!1!0!9!8!7!6!5!4!3!2!1!0! + * +-----------------------------------------------+---------------+ + * ! C ! B ! A ! OP !Y!X! + * +-----------------------------------------------+---------------+ + * + * X 1=B is const, 0=B is reg + * Y 1=C is const, 0=C is reg + * + * In effect OP, OP + 1, OP + 2, and OP + 3 are allocated from the + * 8-bit opcode space for a single logical opcode. The base opcode + * number should be divisible by 4. If the opcode is called 'FOO' + * the following opcode constants would be defined: + * + * DUK_OP_FOO 100 // base opcode number + * DUK_OP_FOO_RR 100 // FOO, B=reg, C=reg + * DUK_OP_FOO_CR 101 // FOO, B=const, C=reg + * DUK_OP_FOO_RC 102 // FOO, B=reg, C=const + * DUK_OP_FOO_CC 103 // FOO, B=const, C=const + * + * If only B or C is a reg/const, the unused opcode combinations can be + * used for other opcodes (which take no reg/const argument). However, + * such opcode values are initially reserved, at least while opcode space + * is available. For example, if 'BAR' uses B for a register field and + * C is a reg/const: + * + * DUK_OP_BAR 116 // base opcode number + * DUK_OP_BAR_RR 116 // BAR, B=reg, C=reg + * DUK_OP_BAR_CR_UNUSED 117 // unused, could be repurposed + * DUK_OP_BAR_RC 118 // BAR, B=reg, C=const + * DUK_OP_BAR_CC_UNUSED 119 // unused, could be repurposed + * + * Macro naming is a bit misleading, e.g. "ABC" in macro name but the + * field layout is concretely "CBA" in the register. + */ + +typedef duk_uint32_t duk_instr_t; + +#define DUK_BC_SHIFT_OP 0 +#define DUK_BC_SHIFT_A 8 +#define DUK_BC_SHIFT_B 16 +#define DUK_BC_SHIFT_C 24 +#define DUK_BC_SHIFT_BC DUK_BC_SHIFT_B +#define DUK_BC_SHIFT_ABC DUK_BC_SHIFT_A + +#define DUK_BC_UNSHIFTED_MASK_OP 0xffUL +#define DUK_BC_UNSHIFTED_MASK_A 0xffUL +#define DUK_BC_UNSHIFTED_MASK_B 0xffUL +#define DUK_BC_UNSHIFTED_MASK_C 0xffUL +#define DUK_BC_UNSHIFTED_MASK_BC 0xffffUL +#define DUK_BC_UNSHIFTED_MASK_ABC 0xffffffUL + +#define DUK_BC_SHIFTED_MASK_OP (DUK_BC_UNSHIFTED_MASK_OP << DUK_BC_SHIFT_OP) +#define DUK_BC_SHIFTED_MASK_A (DUK_BC_UNSHIFTED_MASK_A << DUK_BC_SHIFT_A) +#define DUK_BC_SHIFTED_MASK_B (DUK_BC_UNSHIFTED_MASK_B << DUK_BC_SHIFT_B) +#define DUK_BC_SHIFTED_MASK_C (DUK_BC_UNSHIFTED_MASK_C << DUK_BC_SHIFT_C) +#define DUK_BC_SHIFTED_MASK_BC (DUK_BC_UNSHIFTED_MASK_BC << DUK_BC_SHIFT_BC) +#define DUK_BC_SHIFTED_MASK_ABC (DUK_BC_UNSHIFTED_MASK_ABC << DUK_BC_SHIFT_ABC) + +#define DUK_DEC_OP(x) ((x) & 0xffUL) +#define DUK_DEC_A(x) (((x) >> 8) & 0xffUL) +#define DUK_DEC_B(x) (((x) >> 16) & 0xffUL) +#define DUK_DEC_C(x) (((x) >> 24) & 0xffUL) +#define DUK_DEC_BC(x) (((x) >> 16) & 0xffffUL) +#define DUK_DEC_ABC(x) (((x) >> 8) & 0xffffffUL) + +#define DUK_ENC_OP(op) ((duk_instr_t) (op)) +#define DUK_ENC_OP_ABC(op,abc) ((duk_instr_t) ( \ + (((duk_instr_t) (abc)) << 8) | \ + ((duk_instr_t) (op)) \ + )) +#define DUK_ENC_OP_A_BC(op,a,bc) ((duk_instr_t) ( \ + (((duk_instr_t) (bc)) << 16) | \ + (((duk_instr_t) (a)) << 8) | \ + ((duk_instr_t) (op)) \ + )) +#define DUK_ENC_OP_A_B_C(op,a,b,c) ((duk_instr_t) ( \ + (((duk_instr_t) (c)) << 24) | \ + (((duk_instr_t) (b)) << 16) | \ + (((duk_instr_t) (a)) << 8) | \ + ((duk_instr_t) (op)) \ + )) +#define DUK_ENC_OP_A_B(op,a,b) DUK_ENC_OP_A_B_C((op),(a),(b),0) +#define DUK_ENC_OP_A(op,a) DUK_ENC_OP_A_B_C((op),(a),0,0) +#define DUK_ENC_OP_BC(op,bc) DUK_ENC_OP_A_BC((op),0,(bc)) + +/* Get opcode base value with B/C reg/const flags cleared. */ +#define DUK_BC_NOREGCONST_OP(op) ((op) & 0xfc) + +/* Constants should be signed so that signed arithmetic involving them + * won't cause values to be coerced accidentally to unsigned. + */ +#define DUK_BC_OP_MIN 0 +#define DUK_BC_OP_MAX 0xffL +#define DUK_BC_A_MIN 0 +#define DUK_BC_A_MAX 0xffL +#define DUK_BC_B_MIN 0 +#define DUK_BC_B_MAX 0xffL +#define DUK_BC_C_MIN 0 +#define DUK_BC_C_MAX 0xffL +#define DUK_BC_BC_MIN 0 +#define DUK_BC_BC_MAX 0xffffL +#define DUK_BC_ABC_MIN 0 +#define DUK_BC_ABC_MAX 0xffffffL + +/* Masks for B/C reg/const indicator in opcode field. */ +#define DUK_BC_REGCONST_B (0x01UL) +#define DUK_BC_REGCONST_C (0x02UL) + +/* Misc. masks for opcode field. */ +#define DUK_BC_INCDECP_FLAG_DEC (0x04UL) +#define DUK_BC_INCDECP_FLAG_POST (0x08UL) + +/* Opcodes. */ +#define DUK_OP_LDREG 0 +#define DUK_OP_STREG 1 +#define DUK_OP_JUMP 2 +#define DUK_OP_LDCONST 3 +#define DUK_OP_LDINT 4 +#define DUK_OP_LDINTX 5 +#define DUK_OP_LDTHIS 6 +#define DUK_OP_LDUNDEF 7 +#define DUK_OP_LDNULL 8 +#define DUK_OP_LDTRUE 9 +#define DUK_OP_LDFALSE 10 +#define DUK_OP_GETVAR 11 +#define DUK_OP_BNOT 12 +#define DUK_OP_LNOT 13 +#define DUK_OP_UNM 14 +#define DUK_OP_UNP 15 +#define DUK_OP_EQ 16 +#define DUK_OP_EQ_RR 16 +#define DUK_OP_EQ_CR 17 +#define DUK_OP_EQ_RC 18 +#define DUK_OP_EQ_CC 19 +#define DUK_OP_NEQ 20 +#define DUK_OP_NEQ_RR 20 +#define DUK_OP_NEQ_CR 21 +#define DUK_OP_NEQ_RC 22 +#define DUK_OP_NEQ_CC 23 +#define DUK_OP_SEQ 24 +#define DUK_OP_SEQ_RR 24 +#define DUK_OP_SEQ_CR 25 +#define DUK_OP_SEQ_RC 26 +#define DUK_OP_SEQ_CC 27 +#define DUK_OP_SNEQ 28 +#define DUK_OP_SNEQ_RR 28 +#define DUK_OP_SNEQ_CR 29 +#define DUK_OP_SNEQ_RC 30 +#define DUK_OP_SNEQ_CC 31 +#define DUK_OP_GT 32 +#define DUK_OP_GT_RR 32 +#define DUK_OP_GT_CR 33 +#define DUK_OP_GT_RC 34 +#define DUK_OP_GT_CC 35 +#define DUK_OP_GE 36 +#define DUK_OP_GE_RR 36 +#define DUK_OP_GE_CR 37 +#define DUK_OP_GE_RC 38 +#define DUK_OP_GE_CC 39 +#define DUK_OP_LT 40 +#define DUK_OP_LT_RR 40 +#define DUK_OP_LT_CR 41 +#define DUK_OP_LT_RC 42 +#define DUK_OP_LT_CC 43 +#define DUK_OP_LE 44 +#define DUK_OP_LE_RR 44 +#define DUK_OP_LE_CR 45 +#define DUK_OP_LE_RC 46 +#define DUK_OP_LE_CC 47 +#define DUK_OP_IFTRUE 48 +#define DUK_OP_IFTRUE_R 48 +#define DUK_OP_IFTRUE_C 49 +#define DUK_OP_IFFALSE 50 +#define DUK_OP_IFFALSE_R 50 +#define DUK_OP_IFFALSE_C 51 +#define DUK_OP_ADD 52 +#define DUK_OP_ADD_RR 52 +#define DUK_OP_ADD_CR 53 +#define DUK_OP_ADD_RC 54 +#define DUK_OP_ADD_CC 55 +#define DUK_OP_SUB 56 +#define DUK_OP_SUB_RR 56 +#define DUK_OP_SUB_CR 57 +#define DUK_OP_SUB_RC 58 +#define DUK_OP_SUB_CC 59 +#define DUK_OP_MUL 60 +#define DUK_OP_MUL_RR 60 +#define DUK_OP_MUL_CR 61 +#define DUK_OP_MUL_RC 62 +#define DUK_OP_MUL_CC 63 +#define DUK_OP_DIV 64 +#define DUK_OP_DIV_RR 64 +#define DUK_OP_DIV_CR 65 +#define DUK_OP_DIV_RC 66 +#define DUK_OP_DIV_CC 67 +#define DUK_OP_MOD 68 +#define DUK_OP_MOD_RR 68 +#define DUK_OP_MOD_CR 69 +#define DUK_OP_MOD_RC 70 +#define DUK_OP_MOD_CC 71 +#define DUK_OP_EXP 72 +#define DUK_OP_EXP_RR 72 +#define DUK_OP_EXP_CR 73 +#define DUK_OP_EXP_RC 74 +#define DUK_OP_EXP_CC 75 +#define DUK_OP_BAND 76 +#define DUK_OP_BAND_RR 76 +#define DUK_OP_BAND_CR 77 +#define DUK_OP_BAND_RC 78 +#define DUK_OP_BAND_CC 79 +#define DUK_OP_BOR 80 +#define DUK_OP_BOR_RR 80 +#define DUK_OP_BOR_CR 81 +#define DUK_OP_BOR_RC 82 +#define DUK_OP_BOR_CC 83 +#define DUK_OP_BXOR 84 +#define DUK_OP_BXOR_RR 84 +#define DUK_OP_BXOR_CR 85 +#define DUK_OP_BXOR_RC 86 +#define DUK_OP_BXOR_CC 87 +#define DUK_OP_BASL 88 +#define DUK_OP_BASL_RR 88 +#define DUK_OP_BASL_CR 89 +#define DUK_OP_BASL_RC 90 +#define DUK_OP_BASL_CC 91 +#define DUK_OP_BLSR 92 +#define DUK_OP_BLSR_RR 92 +#define DUK_OP_BLSR_CR 93 +#define DUK_OP_BLSR_RC 94 +#define DUK_OP_BLSR_CC 95 +#define DUK_OP_BASR 96 +#define DUK_OP_BASR_RR 96 +#define DUK_OP_BASR_CR 97 +#define DUK_OP_BASR_RC 98 +#define DUK_OP_BASR_CC 99 +#define DUK_OP_INSTOF 100 +#define DUK_OP_INSTOF_RR 100 +#define DUK_OP_INSTOF_CR 101 +#define DUK_OP_INSTOF_RC 102 +#define DUK_OP_INSTOF_CC 103 +#define DUK_OP_IN 104 +#define DUK_OP_IN_RR 104 +#define DUK_OP_IN_CR 105 +#define DUK_OP_IN_RC 106 +#define DUK_OP_IN_CC 107 +#define DUK_OP_GETPROP 108 +#define DUK_OP_GETPROP_RR 108 +#define DUK_OP_GETPROP_CR 109 +#define DUK_OP_GETPROP_RC 110 +#define DUK_OP_GETPROP_CC 111 +#define DUK_OP_PUTPROP 112 +#define DUK_OP_PUTPROP_RR 112 +#define DUK_OP_PUTPROP_CR 113 +#define DUK_OP_PUTPROP_RC 114 +#define DUK_OP_PUTPROP_CC 115 +#define DUK_OP_DELPROP 116 +#define DUK_OP_DELPROP_RR 116 +#define DUK_OP_DELPROP_CR_UNUSED 117 /* unused now */ +#define DUK_OP_DELPROP_RC 118 +#define DUK_OP_DELPROP_CC_UNUSED 119 /* unused now */ +#define DUK_OP_PREINCR 120 /* pre/post opcode values have constraints, */ +#define DUK_OP_PREDECR 121 /* see duk_js_executor.c and duk_js_compiler.c. */ +#define DUK_OP_POSTINCR 122 +#define DUK_OP_POSTDECR 123 +#define DUK_OP_PREINCV 124 +#define DUK_OP_PREDECV 125 +#define DUK_OP_POSTINCV 126 +#define DUK_OP_POSTDECV 127 +#define DUK_OP_PREINCP 128 /* pre/post inc/dec prop opcodes have constraints */ +#define DUK_OP_PREINCP_RR 128 +#define DUK_OP_PREINCP_CR 129 +#define DUK_OP_PREINCP_RC 130 +#define DUK_OP_PREINCP_CC 131 +#define DUK_OP_PREDECP 132 +#define DUK_OP_PREDECP_RR 132 +#define DUK_OP_PREDECP_CR 133 +#define DUK_OP_PREDECP_RC 134 +#define DUK_OP_PREDECP_CC 135 +#define DUK_OP_POSTINCP 136 +#define DUK_OP_POSTINCP_RR 136 +#define DUK_OP_POSTINCP_CR 137 +#define DUK_OP_POSTINCP_RC 138 +#define DUK_OP_POSTINCP_CC 139 +#define DUK_OP_POSTDECP 140 +#define DUK_OP_POSTDECP_RR 140 +#define DUK_OP_POSTDECP_CR 141 +#define DUK_OP_POSTDECP_RC 142 +#define DUK_OP_POSTDECP_CC 143 +#define DUK_OP_DECLVAR 144 +#define DUK_OP_DECLVAR_RR 144 +#define DUK_OP_DECLVAR_CR 145 +#define DUK_OP_DECLVAR_RC 146 +#define DUK_OP_DECLVAR_CC 147 +#define DUK_OP_REGEXP 148 +#define DUK_OP_REGEXP_RR 148 +#define DUK_OP_REGEXP_CR 149 +#define DUK_OP_REGEXP_RC 150 +#define DUK_OP_REGEXP_CC 151 +#define DUK_OP_CLOSURE 152 +#define DUK_OP_TYPEOF 153 +#define DUK_OP_TYPEOFID 154 +#define DUK_OP_PUTVAR 155 +#define DUK_OP_DELVAR 156 +#define DUK_OP_RETREG 157 +#define DUK_OP_RETUNDEF 158 +#define DUK_OP_RETCONST 159 +#define DUK_OP_RETCONSTN 160 /* return const without incref (e.g. number) */ +#define DUK_OP_LABEL 161 +#define DUK_OP_ENDLABEL 162 +#define DUK_OP_BREAK 163 +#define DUK_OP_CONTINUE 164 +#define DUK_OP_TRYCATCH 165 +#define DUK_OP_ENDTRY 166 +#define DUK_OP_ENDCATCH 167 +#define DUK_OP_ENDFIN 168 +#define DUK_OP_THROW 169 +#define DUK_OP_INVLHS 170 +#define DUK_OP_CSREG 171 +#define DUK_OP_CSVAR 172 +#define DUK_OP_CSVAR_RR 172 +#define DUK_OP_CSVAR_CR 173 +#define DUK_OP_CSVAR_RC 174 +#define DUK_OP_CSVAR_CC 175 +#define DUK_OP_CALL0 176 /* DUK_OP_CALL0 & 0x0F must be zero. */ +#define DUK_OP_CALL1 177 +#define DUK_OP_CALL2 178 +#define DUK_OP_CALL3 179 +#define DUK_OP_CALL4 180 +#define DUK_OP_CALL5 181 +#define DUK_OP_CALL6 182 +#define DUK_OP_CALL7 183 +#define DUK_OP_CALL8 184 +#define DUK_OP_CALL9 185 +#define DUK_OP_CALL10 186 +#define DUK_OP_CALL11 187 +#define DUK_OP_CALL12 188 +#define DUK_OP_CALL13 189 +#define DUK_OP_CALL14 190 +#define DUK_OP_CALL15 191 +#define DUK_OP_NEWOBJ 192 +#define DUK_OP_NEWARR 193 +#define DUK_OP_MPUTOBJ 194 +#define DUK_OP_MPUTOBJI 195 +#define DUK_OP_INITSET 196 +#define DUK_OP_INITGET 197 +#define DUK_OP_MPUTARR 198 +#define DUK_OP_MPUTARRI 199 +#define DUK_OP_SETALEN 200 +#define DUK_OP_INITENUM 201 +#define DUK_OP_NEXTENUM 202 +#define DUK_OP_NEWTARGET 203 +#define DUK_OP_DEBUGGER 204 +#define DUK_OP_NOP 205 +#define DUK_OP_INVALID 206 +#define DUK_OP_UNUSED207 207 +#define DUK_OP_GETPROPC 208 +#define DUK_OP_GETPROPC_RR 208 +#define DUK_OP_GETPROPC_CR 209 +#define DUK_OP_GETPROPC_RC 210 +#define DUK_OP_GETPROPC_CC 211 +#define DUK_OP_UNUSED212 212 +#define DUK_OP_UNUSED213 213 +#define DUK_OP_UNUSED214 214 +#define DUK_OP_UNUSED215 215 +#define DUK_OP_UNUSED216 216 +#define DUK_OP_UNUSED217 217 +#define DUK_OP_UNUSED218 218 +#define DUK_OP_UNUSED219 219 +#define DUK_OP_UNUSED220 220 +#define DUK_OP_UNUSED221 221 +#define DUK_OP_UNUSED222 222 +#define DUK_OP_UNUSED223 223 +#define DUK_OP_UNUSED224 224 +#define DUK_OP_UNUSED225 225 +#define DUK_OP_UNUSED226 226 +#define DUK_OP_UNUSED227 227 +#define DUK_OP_UNUSED228 228 +#define DUK_OP_UNUSED229 229 +#define DUK_OP_UNUSED230 230 +#define DUK_OP_UNUSED231 231 +#define DUK_OP_UNUSED232 232 +#define DUK_OP_UNUSED233 233 +#define DUK_OP_UNUSED234 234 +#define DUK_OP_UNUSED235 235 +#define DUK_OP_UNUSED236 236 +#define DUK_OP_UNUSED237 237 +#define DUK_OP_UNUSED238 238 +#define DUK_OP_UNUSED239 239 +#define DUK_OP_UNUSED240 240 +#define DUK_OP_UNUSED241 241 +#define DUK_OP_UNUSED242 242 +#define DUK_OP_UNUSED243 243 +#define DUK_OP_UNUSED244 244 +#define DUK_OP_UNUSED245 245 +#define DUK_OP_UNUSED246 246 +#define DUK_OP_UNUSED247 247 +#define DUK_OP_UNUSED248 248 +#define DUK_OP_UNUSED249 249 +#define DUK_OP_UNUSED250 250 +#define DUK_OP_UNUSED251 251 +#define DUK_OP_UNUSED252 252 +#define DUK_OP_UNUSED253 253 +#define DUK_OP_UNUSED254 254 +#define DUK_OP_UNUSED255 255 +#define DUK_OP_NONE 256 /* dummy value used as marker (doesn't fit in 8-bit field) */ + +/* XXX: Allocate flags from opcode field? Would take 16 opcode slots + * but avoids shuffling in more cases. Maybe not worth it. + */ +/* DUK_OP_TRYCATCH flags in A. */ +#define DUK_BC_TRYCATCH_FLAG_HAVE_CATCH (1U << 0) +#define DUK_BC_TRYCATCH_FLAG_HAVE_FINALLY (1U << 1) +#define DUK_BC_TRYCATCH_FLAG_CATCH_BINDING (1U << 2) +#define DUK_BC_TRYCATCH_FLAG_WITH_BINDING (1U << 3) + +/* DUK_OP_DECLVAR flags in A; bottom bits are reserved for propdesc flags + * (DUK_PROPDESC_FLAG_XXX). + */ +#define DUK_BC_DECLVAR_FLAG_FUNC_DECL (1U << 4) /* function declaration */ + +/* DUK_OP_CALLn flags, part of opcode field. Three lowest bits must match + * DUK_CALL_FLAG_xxx directly. + */ +#define DUK_BC_CALL_FLAG_TAILCALL (1U << 0) +#define DUK_BC_CALL_FLAG_CONSTRUCT (1U << 1) +#define DUK_BC_CALL_FLAG_CALLED_AS_EVAL (1U << 2) +#define DUK_BC_CALL_FLAG_INDIRECT (1U << 3) + +/* Misc constants and helper macros. */ +#define DUK_BC_LDINT_BIAS (1L << 15) +#define DUK_BC_LDINTX_SHIFT 16 +#define DUK_BC_JUMP_BIAS (1L << 23) + +#endif /* DUK_JS_BYTECODE_H_INCLUDED */ +/* #include duk_lexer.h */ +#line 1 "duk_lexer.h" +/* + * Lexer defines. + */ + +#if !defined(DUK_LEXER_H_INCLUDED) +#define DUK_LEXER_H_INCLUDED + +typedef void (*duk_re_range_callback)(void *user, duk_codepoint_t r1, duk_codepoint_t r2, duk_bool_t direct); + +/* + * A token is interpreted as any possible production of InputElementDiv + * and InputElementRegExp, see E5 Section 7 in its entirety. Note that + * the E5 "Token" production does not cover all actual tokens of the + * language (which is explicitly stated in the specification, Section 7.5). + * Null and boolean literals are defined as part of both ReservedWord + * (E5 Section 7.6.1) and Literal (E5 Section 7.8) productions. Here, + * null and boolean values have literal tokens, and are not reserved + * words. + * + * Decimal literal negative/positive sign is -not- part of DUK_TOK_NUMBER. + * The number tokens always have a non-negative value. The unary minus + * operator in "-1.0" is optimized during compilation to yield a single + * negative constant. + * + * Token numbering is free except that reserved words are required to be + * in a continuous range and in a particular order. See genstrings.py. + */ + +#define DUK_LEXER_INITCTX(ctx) duk_lexer_initctx((ctx)) + +#define DUK_LEXER_SETPOINT(ctx,pt) duk_lexer_setpoint((ctx), (pt)) + +#define DUK_LEXER_GETPOINT(ctx,pt) duk_lexer_getpoint((ctx), (pt)) + +/* Currently 6 characters of lookup are actually needed (duk_lexer.c). */ +#define DUK_LEXER_WINDOW_SIZE 6 +#if defined(DUK_USE_LEXER_SLIDING_WINDOW) +#define DUK_LEXER_BUFFER_SIZE 64 +#endif + +#define DUK_TOK_MINVAL 0 + +/* returned after EOF (infinite amount) */ +#define DUK_TOK_EOF 0 + +/* identifier names (E5 Section 7.6) */ +#define DUK_TOK_IDENTIFIER 1 + +/* reserved words: keywords */ +#define DUK_TOK_START_RESERVED 2 +#define DUK_TOK_BREAK 2 +#define DUK_TOK_CASE 3 +#define DUK_TOK_CATCH 4 +#define DUK_TOK_CONTINUE 5 +#define DUK_TOK_DEBUGGER 6 +#define DUK_TOK_DEFAULT 7 +#define DUK_TOK_DELETE 8 +#define DUK_TOK_DO 9 +#define DUK_TOK_ELSE 10 +#define DUK_TOK_FINALLY 11 +#define DUK_TOK_FOR 12 +#define DUK_TOK_FUNCTION 13 +#define DUK_TOK_IF 14 +#define DUK_TOK_IN 15 +#define DUK_TOK_INSTANCEOF 16 +#define DUK_TOK_NEW 17 +#define DUK_TOK_RETURN 18 +#define DUK_TOK_SWITCH 19 +#define DUK_TOK_THIS 20 +#define DUK_TOK_THROW 21 +#define DUK_TOK_TRY 22 +#define DUK_TOK_TYPEOF 23 +#define DUK_TOK_VAR 24 +#define DUK_TOK_CONST 25 +#define DUK_TOK_VOID 26 +#define DUK_TOK_WHILE 27 +#define DUK_TOK_WITH 28 + +/* reserved words: future reserved words */ +#define DUK_TOK_CLASS 29 +#define DUK_TOK_ENUM 30 +#define DUK_TOK_EXPORT 31 +#define DUK_TOK_EXTENDS 32 +#define DUK_TOK_IMPORT 33 +#define DUK_TOK_SUPER 34 + +/* "null", "true", and "false" are always reserved words. + * Note that "get" and "set" are not! + */ +#define DUK_TOK_NULL 35 +#define DUK_TOK_TRUE 36 +#define DUK_TOK_FALSE 37 + +/* reserved words: additional future reserved words in strict mode */ +#define DUK_TOK_START_STRICT_RESERVED 38 /* inclusive */ +#define DUK_TOK_IMPLEMENTS 38 +#define DUK_TOK_INTERFACE 39 +#define DUK_TOK_LET 40 +#define DUK_TOK_PACKAGE 41 +#define DUK_TOK_PRIVATE 42 +#define DUK_TOK_PROTECTED 43 +#define DUK_TOK_PUBLIC 44 +#define DUK_TOK_STATIC 45 +#define DUK_TOK_YIELD 46 + +#define DUK_TOK_END_RESERVED 47 /* exclusive */ + +/* "get" and "set" are tokens but NOT ReservedWords. They are currently + * parsed and identifiers and these defines are actually now unused. + */ +#define DUK_TOK_GET 47 +#define DUK_TOK_SET 48 + +/* punctuators (unlike the spec, also includes "/" and "/=") */ +#define DUK_TOK_LCURLY 49 +#define DUK_TOK_RCURLY 50 +#define DUK_TOK_LBRACKET 51 +#define DUK_TOK_RBRACKET 52 +#define DUK_TOK_LPAREN 53 +#define DUK_TOK_RPAREN 54 +#define DUK_TOK_PERIOD 55 +#define DUK_TOK_SEMICOLON 56 +#define DUK_TOK_COMMA 57 +#define DUK_TOK_LT 58 +#define DUK_TOK_GT 59 +#define DUK_TOK_LE 60 +#define DUK_TOK_GE 61 +#define DUK_TOK_EQ 62 +#define DUK_TOK_NEQ 63 +#define DUK_TOK_SEQ 64 +#define DUK_TOK_SNEQ 65 +#define DUK_TOK_ADD 66 +#define DUK_TOK_SUB 67 +#define DUK_TOK_MUL 68 +#define DUK_TOK_DIV 69 +#define DUK_TOK_MOD 70 +#define DUK_TOK_EXP 71 +#define DUK_TOK_INCREMENT 72 +#define DUK_TOK_DECREMENT 73 +#define DUK_TOK_ALSHIFT 74 /* named "arithmetic" because result is signed */ +#define DUK_TOK_ARSHIFT 75 +#define DUK_TOK_RSHIFT 76 +#define DUK_TOK_BAND 77 +#define DUK_TOK_BOR 78 +#define DUK_TOK_BXOR 79 +#define DUK_TOK_LNOT 80 +#define DUK_TOK_BNOT 81 +#define DUK_TOK_LAND 82 +#define DUK_TOK_LOR 83 +#define DUK_TOK_QUESTION 84 +#define DUK_TOK_COLON 85 +#define DUK_TOK_EQUALSIGN 86 +#define DUK_TOK_ADD_EQ 87 +#define DUK_TOK_SUB_EQ 88 +#define DUK_TOK_MUL_EQ 89 +#define DUK_TOK_DIV_EQ 90 +#define DUK_TOK_MOD_EQ 91 +#define DUK_TOK_EXP_EQ 92 +#define DUK_TOK_ALSHIFT_EQ 93 +#define DUK_TOK_ARSHIFT_EQ 94 +#define DUK_TOK_RSHIFT_EQ 95 +#define DUK_TOK_BAND_EQ 96 +#define DUK_TOK_BOR_EQ 97 +#define DUK_TOK_BXOR_EQ 98 + +/* literals (E5 Section 7.8), except null, true, false, which are treated + * like reserved words (above). + */ +#define DUK_TOK_NUMBER 99 +#define DUK_TOK_STRING 100 +#define DUK_TOK_REGEXP 101 + +#define DUK_TOK_MAXVAL 101 /* inclusive */ + +#define DUK_TOK_INVALID DUK_SMALL_UINT_MAX + +/* Convert heap string index to a token (reserved words) */ +#define DUK_STRIDX_TO_TOK(x) ((x) - DUK_STRIDX_START_RESERVED + DUK_TOK_START_RESERVED) + +/* Sanity check */ +#if (DUK_TOK_MAXVAL > 255) +#error DUK_TOK_MAXVAL too large, code assumes it fits into 8 bits +#endif + +/* Sanity checks for string and token defines */ +#if (DUK_STRIDX_TO_TOK(DUK_STRIDX_BREAK) != DUK_TOK_BREAK) +#error mismatch in token defines +#endif +#if (DUK_STRIDX_TO_TOK(DUK_STRIDX_CASE) != DUK_TOK_CASE) +#error mismatch in token defines +#endif +#if (DUK_STRIDX_TO_TOK(DUK_STRIDX_CATCH) != DUK_TOK_CATCH) +#error mismatch in token defines +#endif +#if (DUK_STRIDX_TO_TOK(DUK_STRIDX_CONTINUE) != DUK_TOK_CONTINUE) +#error mismatch in token defines +#endif +#if (DUK_STRIDX_TO_TOK(DUK_STRIDX_DEBUGGER) != DUK_TOK_DEBUGGER) +#error mismatch in token defines +#endif +#if (DUK_STRIDX_TO_TOK(DUK_STRIDX_DEFAULT) != DUK_TOK_DEFAULT) +#error mismatch in token defines +#endif +#if (DUK_STRIDX_TO_TOK(DUK_STRIDX_DELETE) != DUK_TOK_DELETE) +#error mismatch in token defines +#endif +#if (DUK_STRIDX_TO_TOK(DUK_STRIDX_DO) != DUK_TOK_DO) +#error mismatch in token defines +#endif +#if (DUK_STRIDX_TO_TOK(DUK_STRIDX_ELSE) != DUK_TOK_ELSE) +#error mismatch in token defines +#endif +#if (DUK_STRIDX_TO_TOK(DUK_STRIDX_FINALLY) != DUK_TOK_FINALLY) +#error mismatch in token defines +#endif +#if (DUK_STRIDX_TO_TOK(DUK_STRIDX_FOR) != DUK_TOK_FOR) +#error mismatch in token defines +#endif +#if (DUK_STRIDX_TO_TOK(DUK_STRIDX_LC_FUNCTION) != DUK_TOK_FUNCTION) +#error mismatch in token defines +#endif +#if (DUK_STRIDX_TO_TOK(DUK_STRIDX_IF) != DUK_TOK_IF) +#error mismatch in token defines +#endif +#if (DUK_STRIDX_TO_TOK(DUK_STRIDX_IN) != DUK_TOK_IN) +#error mismatch in token defines +#endif +#if (DUK_STRIDX_TO_TOK(DUK_STRIDX_INSTANCEOF) != DUK_TOK_INSTANCEOF) +#error mismatch in token defines +#endif +#if (DUK_STRIDX_TO_TOK(DUK_STRIDX_NEW) != DUK_TOK_NEW) +#error mismatch in token defines +#endif +#if (DUK_STRIDX_TO_TOK(DUK_STRIDX_RETURN) != DUK_TOK_RETURN) +#error mismatch in token defines +#endif +#if (DUK_STRIDX_TO_TOK(DUK_STRIDX_SWITCH) != DUK_TOK_SWITCH) +#error mismatch in token defines +#endif +#if (DUK_STRIDX_TO_TOK(DUK_STRIDX_THIS) != DUK_TOK_THIS) +#error mismatch in token defines +#endif +#if (DUK_STRIDX_TO_TOK(DUK_STRIDX_THROW) != DUK_TOK_THROW) +#error mismatch in token defines +#endif +#if (DUK_STRIDX_TO_TOK(DUK_STRIDX_TRY) != DUK_TOK_TRY) +#error mismatch in token defines +#endif +#if (DUK_STRIDX_TO_TOK(DUK_STRIDX_TYPEOF) != DUK_TOK_TYPEOF) +#error mismatch in token defines +#endif +#if (DUK_STRIDX_TO_TOK(DUK_STRIDX_VAR) != DUK_TOK_VAR) +#error mismatch in token defines +#endif +#if (DUK_STRIDX_TO_TOK(DUK_STRIDX_VOID) != DUK_TOK_VOID) +#error mismatch in token defines +#endif +#if (DUK_STRIDX_TO_TOK(DUK_STRIDX_WHILE) != DUK_TOK_WHILE) +#error mismatch in token defines +#endif +#if (DUK_STRIDX_TO_TOK(DUK_STRIDX_WITH) != DUK_TOK_WITH) +#error mismatch in token defines +#endif +#if (DUK_STRIDX_TO_TOK(DUK_STRIDX_CLASS) != DUK_TOK_CLASS) +#error mismatch in token defines +#endif +#if (DUK_STRIDX_TO_TOK(DUK_STRIDX_CONST) != DUK_TOK_CONST) +#error mismatch in token defines +#endif +#if (DUK_STRIDX_TO_TOK(DUK_STRIDX_ENUM) != DUK_TOK_ENUM) +#error mismatch in token defines +#endif +#if (DUK_STRIDX_TO_TOK(DUK_STRIDX_EXPORT) != DUK_TOK_EXPORT) +#error mismatch in token defines +#endif +#if (DUK_STRIDX_TO_TOK(DUK_STRIDX_EXTENDS) != DUK_TOK_EXTENDS) +#error mismatch in token defines +#endif +#if (DUK_STRIDX_TO_TOK(DUK_STRIDX_IMPORT) != DUK_TOK_IMPORT) +#error mismatch in token defines +#endif +#if (DUK_STRIDX_TO_TOK(DUK_STRIDX_SUPER) != DUK_TOK_SUPER) +#error mismatch in token defines +#endif +#if (DUK_STRIDX_TO_TOK(DUK_STRIDX_LC_NULL) != DUK_TOK_NULL) +#error mismatch in token defines +#endif +#if (DUK_STRIDX_TO_TOK(DUK_STRIDX_TRUE) != DUK_TOK_TRUE) +#error mismatch in token defines +#endif +#if (DUK_STRIDX_TO_TOK(DUK_STRIDX_FALSE) != DUK_TOK_FALSE) +#error mismatch in token defines +#endif +#if (DUK_STRIDX_TO_TOK(DUK_STRIDX_IMPLEMENTS) != DUK_TOK_IMPLEMENTS) +#error mismatch in token defines +#endif +#if (DUK_STRIDX_TO_TOK(DUK_STRIDX_INTERFACE) != DUK_TOK_INTERFACE) +#error mismatch in token defines +#endif +#if (DUK_STRIDX_TO_TOK(DUK_STRIDX_LET) != DUK_TOK_LET) +#error mismatch in token defines +#endif +#if (DUK_STRIDX_TO_TOK(DUK_STRIDX_PACKAGE) != DUK_TOK_PACKAGE) +#error mismatch in token defines +#endif +#if (DUK_STRIDX_TO_TOK(DUK_STRIDX_PRIVATE) != DUK_TOK_PRIVATE) +#error mismatch in token defines +#endif +#if (DUK_STRIDX_TO_TOK(DUK_STRIDX_PROTECTED) != DUK_TOK_PROTECTED) +#error mismatch in token defines +#endif +#if (DUK_STRIDX_TO_TOK(DUK_STRIDX_PUBLIC) != DUK_TOK_PUBLIC) +#error mismatch in token defines +#endif +#if (DUK_STRIDX_TO_TOK(DUK_STRIDX_STATIC) != DUK_TOK_STATIC) +#error mismatch in token defines +#endif +#if (DUK_STRIDX_TO_TOK(DUK_STRIDX_YIELD) != DUK_TOK_YIELD) +#error mismatch in token defines +#endif + +/* Regexp tokens */ +#define DUK_RETOK_EOF 0 +#define DUK_RETOK_DISJUNCTION 1 +#define DUK_RETOK_QUANTIFIER 2 +#define DUK_RETOK_ASSERT_START 3 +#define DUK_RETOK_ASSERT_END 4 +#define DUK_RETOK_ASSERT_WORD_BOUNDARY 5 +#define DUK_RETOK_ASSERT_NOT_WORD_BOUNDARY 6 +#define DUK_RETOK_ASSERT_START_POS_LOOKAHEAD 7 +#define DUK_RETOK_ASSERT_START_NEG_LOOKAHEAD 8 +#define DUK_RETOK_ATOM_PERIOD 9 +#define DUK_RETOK_ATOM_CHAR 10 +#define DUK_RETOK_ATOM_DIGIT 11 /* assumptions in regexp compiler */ +#define DUK_RETOK_ATOM_NOT_DIGIT 12 /* -""- */ +#define DUK_RETOK_ATOM_WHITE 13 /* -""- */ +#define DUK_RETOK_ATOM_NOT_WHITE 14 /* -""- */ +#define DUK_RETOK_ATOM_WORD_CHAR 15 /* -""- */ +#define DUK_RETOK_ATOM_NOT_WORD_CHAR 16 /* -""- */ +#define DUK_RETOK_ATOM_BACKREFERENCE 17 +#define DUK_RETOK_ATOM_START_CAPTURE_GROUP 18 +#define DUK_RETOK_ATOM_START_NONCAPTURE_GROUP 19 +#define DUK_RETOK_ATOM_START_CHARCLASS 20 +#define DUK_RETOK_ATOM_START_CHARCLASS_INVERTED 21 +#define DUK_RETOK_ATOM_END_GROUP 22 + +/* Constants for duk_lexer_ctx.buf. */ +#define DUK_LEXER_TEMP_BUF_LIMIT 256 + +/* A token value. Can be memcpy()'d, but note that slot1/slot2 values are on the valstack. + * Some fields (like num, str1, str2) are only valid for specific token types and may have + * stale values otherwise. + */ +struct duk_token { + duk_small_uint_t t; /* token type (with reserved word identification) */ + duk_small_uint_t t_nores; /* token type (with reserved words as DUK_TOK_IDENTIFER) */ + duk_double_t num; /* numeric value of token */ + duk_hstring *str1; /* string 1 of token (borrowed, stored to ctx->slot1_idx) */ + duk_hstring *str2; /* string 2 of token (borrowed, stored to ctx->slot2_idx) */ + duk_size_t start_offset; /* start byte offset of token in lexer input */ + duk_int_t start_line; /* start line of token (first char) */ + duk_int_t num_escapes; /* number of escapes and line continuations (for directive prologue) */ + duk_bool_t lineterm; /* token was preceded by a lineterm */ + duk_bool_t allow_auto_semi; /* token allows automatic semicolon insertion (eof or preceded by newline) */ +}; + +#define DUK_RE_QUANTIFIER_INFINITE ((duk_uint32_t) 0xffffffffUL) + +/* A regexp token value. */ +struct duk_re_token { + duk_small_uint_t t; /* token type */ + duk_small_uint_t greedy; + duk_uint32_t num; /* numeric value (character, count) */ + duk_uint32_t qmin; + duk_uint32_t qmax; +}; + +/* A structure for 'snapshotting' a point for rewinding */ +struct duk_lexer_point { + duk_size_t offset; + duk_int_t line; +}; + +/* Lexer codepoint with additional info like offset/line number */ +struct duk_lexer_codepoint { + duk_codepoint_t codepoint; + duk_size_t offset; + duk_int_t line; +}; + +/* Lexer context. Same context is used for ECMAScript and Regexp parsing. */ +struct duk_lexer_ctx { +#if defined(DUK_USE_LEXER_SLIDING_WINDOW) + duk_lexer_codepoint *window; /* unicode code points, window[0] is always next, points to 'buffer' */ + duk_lexer_codepoint buffer[DUK_LEXER_BUFFER_SIZE]; +#else + duk_lexer_codepoint window[DUK_LEXER_WINDOW_SIZE]; /* unicode code points, window[0] is always next */ +#endif + + duk_hthread *thr; /* thread; minimizes argument passing */ + + const duk_uint8_t *input; /* input string (may be a user pointer) */ + duk_size_t input_length; /* input byte length */ + duk_size_t input_offset; /* input offset for window leading edge (not window[0]) */ + duk_int_t input_line; /* input linenumber at input_offset (not window[0]), init to 1 */ + + duk_idx_t slot1_idx; /* valstack slot for 1st token value */ + duk_idx_t slot2_idx; /* valstack slot for 2nd token value */ + duk_idx_t buf_idx; /* valstack slot for temp buffer */ + duk_hbuffer_dynamic *buf; /* temp accumulation buffer */ + duk_bufwriter_ctx bw; /* bufwriter for temp accumulation */ + + duk_int_t token_count; /* number of tokens parsed */ + duk_int_t token_limit; /* maximum token count before error (sanity backstop) */ + + duk_small_uint_t flags; /* lexer flags, use compiler flag defines for now */ +}; + +/* + * Prototypes + */ + +DUK_INTERNAL_DECL void duk_lexer_initctx(duk_lexer_ctx *lex_ctx); + +DUK_INTERNAL_DECL void duk_lexer_getpoint(duk_lexer_ctx *lex_ctx, duk_lexer_point *pt); +DUK_INTERNAL_DECL void duk_lexer_setpoint(duk_lexer_ctx *lex_ctx, duk_lexer_point *pt); + +DUK_INTERNAL_DECL +void duk_lexer_parse_js_input_element(duk_lexer_ctx *lex_ctx, + duk_token *out_token, + duk_bool_t strict_mode, + duk_bool_t regexp_mode); +#if defined(DUK_USE_REGEXP_SUPPORT) +DUK_INTERNAL_DECL void duk_lexer_parse_re_token(duk_lexer_ctx *lex_ctx, duk_re_token *out_token); +DUK_INTERNAL_DECL void duk_lexer_parse_re_ranges(duk_lexer_ctx *lex_ctx, duk_re_range_callback gen_range, void *userdata); +#endif /* DUK_USE_REGEXP_SUPPORT */ + +#endif /* DUK_LEXER_H_INCLUDED */ +/* #include duk_js_compiler.h */ +#line 1 "duk_js_compiler.h" +/* + * ECMAScript compiler. + */ + +#if !defined(DUK_JS_COMPILER_H_INCLUDED) +#define DUK_JS_COMPILER_H_INCLUDED + +/* ECMAScript compiler limits */ +#define DUK_COMPILER_TOKEN_LIMIT 100000000L /* 1e8: protects against deeply nested inner functions */ + +/* maximum loopcount for peephole optimization */ +#define DUK_COMPILER_PEEPHOLE_MAXITER 3 + +/* maximum bytecode length in instructions */ +#define DUK_COMPILER_MAX_BYTECODE_LENGTH (256L * 1024L * 1024L) /* 1 GB */ + +/* + * Compiler intermediate values + * + * Intermediate values describe either plain values (e.g. strings or + * numbers) or binary operations which have not yet been coerced into + * either a left-hand-side or right-hand-side role (e.g. object property). + */ + +#define DUK_IVAL_NONE 0 /* no value */ +#define DUK_IVAL_PLAIN 1 /* register, constant, or value */ +#define DUK_IVAL_ARITH 2 /* binary arithmetic; DUK_OP_ADD, DUK_OP_EQ, other binary ops */ +#define DUK_IVAL_PROP 3 /* property access */ +#define DUK_IVAL_VAR 4 /* variable access */ + +#define DUK_ISPEC_NONE 0 /* no value */ +#define DUK_ISPEC_VALUE 1 /* value resides in 'valstack_idx' */ +#define DUK_ISPEC_REGCONST 2 /* value resides in a register or constant */ + +/* Bit mask which indicates that a regconst is a constant instead of a register. + * Chosen so that when a regconst is cast to duk_int32_t, all consts are + * negative values. + */ +#define DUK_REGCONST_CONST_MARKER DUK_INT32_MIN /* = -0x80000000 */ + +/* Type to represent a reg/const reference during compilation, with <0 + * indicating a constant. Some call sites also use -1 to indicate 'none'. + */ +typedef duk_int32_t duk_regconst_t; + +typedef struct { + duk_small_uint_t t; /* DUK_ISPEC_XXX */ + duk_regconst_t regconst; + duk_idx_t valstack_idx; /* always set; points to a reserved valstack slot */ +} duk_ispec; + +typedef struct { + /* + * PLAIN: x1 + * ARITH: x1 x2 + * PROP: x1.x2 + * VAR: x1 (name) + */ + + /* XXX: can be optimized for smaller footprint esp. on 32-bit environments */ + duk_small_uint_t t; /* DUK_IVAL_XXX */ + duk_small_uint_t op; /* bytecode opcode for binary ops */ + duk_ispec x1; + duk_ispec x2; +} duk_ivalue; + +/* + * Bytecode instruction representation during compilation + * + * Contains the actual instruction and (optionally) debug info. + */ + +struct duk_compiler_instr { + duk_instr_t ins; +#if defined(DUK_USE_PC2LINE) + duk_uint32_t line; +#endif +}; + +/* + * Compiler state + */ + +#define DUK_LABEL_FLAG_ALLOW_BREAK (1U << 0) +#define DUK_LABEL_FLAG_ALLOW_CONTINUE (1U << 1) + +#define DUK_DECL_TYPE_VAR 0 +#define DUK_DECL_TYPE_FUNC 1 + +/* XXX: optimize to 16 bytes */ +typedef struct { + duk_small_uint_t flags; + duk_int_t label_id; /* numeric label_id (-1 reserved as marker) */ + duk_hstring *h_label; /* borrowed label name */ + duk_int_t catch_depth; /* catch depth at point of definition */ + duk_int_t pc_label; /* pc of label statement: + * pc+1: break jump site + * pc+2: continue jump site + */ + + /* Fast jumps (which avoid longjmp) jump directly to the jump sites + * which are always known even while the iteration/switch statement + * is still being parsed. A final peephole pass "straightens out" + * the jumps. + */ +} duk_labelinfo; + +/* Compiling state of one function, eventually converted to duk_hcompfunc */ +struct duk_compiler_func { + /* These pointers are at the start of the struct so that they pack + * nicely. Mixing pointers and integer values is bad on some + * platforms (e.g. if int is 32 bits and pointers are 64 bits). + */ + + duk_bufwriter_ctx bw_code; /* bufwriter for code */ + + duk_hstring *h_name; /* function name (borrowed reference), ends up in _name */ + /* h_code: held in bw_code */ + duk_hobject *h_consts; /* array */ + duk_hobject *h_funcs; /* array of function templates: [func1, offset1, line1, func2, offset2, line2] + * offset/line points to closing brace to allow skipping on pass 2 + */ + duk_hobject *h_decls; /* array of declarations: [ name1, val1, name2, val2, ... ] + * valN = (typeN) | (fnum << 8), where fnum is inner func number (0 for vars) + * record function and variable declarations in pass 1 + */ + duk_hobject *h_labelnames; /* array of active label names */ + duk_hbuffer_dynamic *h_labelinfos; /* C array of duk_labelinfo */ + duk_hobject *h_argnames; /* array of formal argument names (-> _Formals) */ + duk_hobject *h_varmap; /* variable map for pass 2 (identifier -> register number or null (unmapped)) */ + + /* Value stack indices for tracking objects. */ + /* code_idx: not needed */ + duk_idx_t consts_idx; + duk_idx_t funcs_idx; + duk_idx_t decls_idx; + duk_idx_t labelnames_idx; + duk_idx_t labelinfos_idx; + duk_idx_t argnames_idx; + duk_idx_t varmap_idx; + + /* Temp reg handling. */ + duk_regconst_t temp_first; /* first register that is a temporary (below: variables) */ + duk_regconst_t temp_next; /* next temporary register to allocate */ + duk_regconst_t temp_max; /* highest value of temp_reg (temp_max - 1 is highest used reg) */ + + /* Shuffle registers if large number of regs/consts. */ + duk_regconst_t shuffle1; + duk_regconst_t shuffle2; + duk_regconst_t shuffle3; + + /* Stats for current expression being parsed. */ + duk_int_t nud_count; + duk_int_t led_count; + duk_int_t paren_level; /* parenthesis count, 0 = top level */ + duk_bool_t expr_lhs; /* expression is left-hand-side compatible */ + duk_bool_t allow_in; /* current paren level allows 'in' token */ + + /* Misc. */ + duk_int_t stmt_next; /* statement id allocation (running counter) */ + duk_int_t label_next; /* label id allocation (running counter) */ + duk_int_t catch_depth; /* catch stack depth */ + duk_int_t with_depth; /* with stack depth (affects identifier lookups) */ + duk_int_t fnum_next; /* inner function numbering */ + duk_int_t num_formals; /* number of formal arguments */ + duk_regconst_t reg_stmt_value; /* register for writing value of 'non-empty' statements (global or eval code), -1 is marker */ +#if defined(DUK_USE_DEBUGGER_SUPPORT) + duk_int_t min_line; /* XXX: typing (duk_hcompfunc has duk_uint32_t) */ + duk_int_t max_line; +#endif + + /* Status booleans. */ + duk_uint8_t is_function; /* is an actual function (not global/eval code) */ + duk_uint8_t is_eval; /* is eval code */ + duk_uint8_t is_global; /* is global code */ + duk_uint8_t is_namebinding; /* needs a name binding */ + duk_uint8_t is_constructable; /* result is constructable */ + duk_uint8_t is_setget; /* is a setter/getter */ + duk_uint8_t is_strict; /* function is strict */ + duk_uint8_t is_notail; /* function must not be tail called */ + duk_uint8_t in_directive_prologue; /* parsing in "directive prologue", recognize directives */ + duk_uint8_t in_scanning; /* parsing in "scanning" phase (first pass) */ + duk_uint8_t may_direct_eval; /* function may call direct eval */ + duk_uint8_t id_access_arguments; /* function refers to 'arguments' identifier */ + duk_uint8_t id_access_slow; /* function makes one or more slow path accesses that won't match own static variables */ + duk_uint8_t id_access_slow_own; /* function makes one or more slow path accesses that may match own static variables */ + duk_uint8_t is_arguments_shadowed; /* argument/function declaration shadows 'arguments' */ + duk_uint8_t needs_shuffle; /* function needs shuffle registers */ + duk_uint8_t reject_regexp_in_adv; /* reject RegExp literal on next advance() call; needed for handling IdentifierName productions */ + duk_uint8_t allow_regexp_in_adv; /* allow RegExp literal on next advance() call */ +}; + +struct duk_compiler_ctx { + duk_hthread *thr; + + /* filename being compiled (ends up in functions' '_filename' property) */ + duk_hstring *h_filename; /* borrowed reference */ + + /* lexing (tokenization) state (contains two valstack slot indices) */ + duk_lexer_ctx lex; + + /* current and previous token for parsing */ + duk_token prev_token; + duk_token curr_token; + duk_idx_t tok11_idx; /* curr_token slot1 (matches 'lex' slot1_idx) */ + duk_idx_t tok12_idx; /* curr_token slot2 (matches 'lex' slot2_idx) */ + duk_idx_t tok21_idx; /* prev_token slot1 */ + duk_idx_t tok22_idx; /* prev_token slot2 */ + + /* recursion limit */ + duk_int_t recursion_depth; + duk_int_t recursion_limit; + + /* code emission temporary */ + duk_int_t emit_jumpslot_pc; + + /* current function being compiled (embedded instead of pointer for more compact access) */ + duk_compiler_func curr_func; +}; + +/* + * Prototypes + */ + +DUK_INTERNAL_DECL void duk_js_compile(duk_hthread *thr, const duk_uint8_t *src_buffer, duk_size_t src_length, duk_small_uint_t flags); + +#endif /* DUK_JS_COMPILER_H_INCLUDED */ +/* #include duk_regexp.h */ +#line 1 "duk_regexp.h" +/* + * Regular expression structs, constants, and bytecode defines. + */ + +#if !defined(DUK_REGEXP_H_INCLUDED) +#define DUK_REGEXP_H_INCLUDED + +/* maximum bytecode copies for {n,m} quantifiers */ +#define DUK_RE_MAX_ATOM_COPIES 1000 + +/* regexp compilation limits */ +#define DUK_RE_COMPILE_TOKEN_LIMIT 100000000L /* 1e8 */ + +/* regexp execution limits */ +#define DUK_RE_EXECUTE_STEPS_LIMIT 1000000000L /* 1e9 */ + +/* regexp opcodes */ +#define DUK_REOP_MATCH 1 +#define DUK_REOP_CHAR 2 +#define DUK_REOP_PERIOD 3 +#define DUK_REOP_RANGES 4 +#define DUK_REOP_INVRANGES 5 +#define DUK_REOP_JUMP 6 +#define DUK_REOP_SPLIT1 7 +#define DUK_REOP_SPLIT2 8 +#define DUK_REOP_SQMINIMAL 9 +#define DUK_REOP_SQGREEDY 10 +#define DUK_REOP_SAVE 11 +#define DUK_REOP_WIPERANGE 12 +#define DUK_REOP_LOOKPOS 13 +#define DUK_REOP_LOOKNEG 14 +#define DUK_REOP_BACKREFERENCE 15 +#define DUK_REOP_ASSERT_START 16 +#define DUK_REOP_ASSERT_END 17 +#define DUK_REOP_ASSERT_WORD_BOUNDARY 18 +#define DUK_REOP_ASSERT_NOT_WORD_BOUNDARY 19 + +/* flags */ +#define DUK_RE_FLAG_GLOBAL (1U << 0) +#define DUK_RE_FLAG_IGNORE_CASE (1U << 1) +#define DUK_RE_FLAG_MULTILINE (1U << 2) + +struct duk_re_matcher_ctx { + duk_hthread *thr; + + duk_uint32_t re_flags; + const duk_uint8_t *input; + const duk_uint8_t *input_end; + const duk_uint8_t *bytecode; + const duk_uint8_t *bytecode_end; + const duk_uint8_t **saved; /* allocated from valstack (fixed buffer) */ + duk_uint32_t nsaved; + duk_uint32_t recursion_depth; + duk_uint32_t recursion_limit; + duk_uint32_t steps_count; + duk_uint32_t steps_limit; +}; + +struct duk_re_compiler_ctx { + duk_hthread *thr; + + duk_uint32_t re_flags; + duk_lexer_ctx lex; + duk_re_token curr_token; + duk_bufwriter_ctx bw; + duk_uint32_t captures; /* highest capture number emitted so far (used as: ++captures) */ + duk_uint32_t highest_backref; + duk_uint32_t recursion_depth; + duk_uint32_t recursion_limit; + duk_uint32_t nranges; /* internal temporary value, used for char classes */ +}; + +/* + * Prototypes + */ + +#if defined(DUK_USE_REGEXP_SUPPORT) +DUK_INTERNAL_DECL void duk_regexp_compile(duk_hthread *thr); +DUK_INTERNAL_DECL void duk_regexp_create_instance(duk_hthread *thr); +DUK_INTERNAL_DECL void duk_regexp_match(duk_hthread *thr); +DUK_INTERNAL_DECL void duk_regexp_match_force_global(duk_hthread *thr); /* hacky helper for String.prototype.split() */ +#endif + +#endif /* DUK_REGEXP_H_INCLUDED */ +/* #include duk_heaphdr.h */ +#line 1 "duk_heaphdr.h" +/* + * Heap header definition and assorted macros, including ref counting. + * Access all fields through the accessor macros. + */ + +#if !defined(DUK_HEAPHDR_H_INCLUDED) +#define DUK_HEAPHDR_H_INCLUDED + +/* + * Common heap header + * + * All heap objects share the same flags and refcount fields. Objects other + * than strings also need to have a single or double linked list pointers + * for insertion into the "heap allocated" list. Strings have single linked + * list pointers for string table chaining. + * + * Technically, 'h_refcount' must be wide enough to guarantee that it cannot + * wrap; otherwise objects might be freed incorrectly after wrapping. The + * default refcount field is 32 bits even on 64-bit systems: while that's in + * theory incorrect, the Duktape heap needs to be larger than 64GB for the + * count to actually wrap (assuming 16-byte duk_tvals). This is very unlikely + * to ever be an issue, but if it is, disabling DUK_USE_REFCOUNT32 causes + * Duktape to use size_t for refcounts which should always be safe. + * + * Heap header size on 32-bit platforms: 8 bytes without reference counting, + * 16 bytes with reference counting. + * + * Note that 'raw' macros such as DUK_HEAPHDR_GET_REFCOUNT() are not + * defined without DUK_USE_REFERENCE_COUNTING, so caller must #if defined() + * around them. + */ + +/* XXX: macro for shared header fields (avoids some padding issues) */ + +struct duk_heaphdr { + duk_uint32_t h_flags; + +#if defined(DUK_USE_REFERENCE_COUNTING) +#if defined(DUK_USE_ASSERTIONS) + /* When assertions enabled, used by mark-and-sweep for refcount + * validation. Largest reasonable type; also detects overflows. + */ + duk_size_t h_assert_refcount; +#endif +#if defined(DUK_USE_REFCOUNT16) + duk_uint16_t h_refcount; +#elif defined(DUK_USE_REFCOUNT32) + duk_uint32_t h_refcount; +#else + duk_size_t h_refcount; +#endif +#endif /* DUK_USE_REFERENCE_COUNTING */ + +#if defined(DUK_USE_HEAPPTR16) + duk_uint16_t h_next16; +#else + duk_heaphdr *h_next; +#endif + +#if defined(DUK_USE_DOUBLE_LINKED_HEAP) + /* refcounting requires direct heap frees, which in turn requires a dual linked heap */ +#if defined(DUK_USE_HEAPPTR16) + duk_uint16_t h_prev16; +#else + duk_heaphdr *h_prev; +#endif +#endif + + /* When DUK_USE_HEAPPTR16 (and DUK_USE_REFCOUNT16) is in use, the + * struct won't align nicely to 4 bytes. This 16-bit extra field + * is added to make the alignment clean; the field can be used by + * heap objects when 16-bit packing is used. This field is now + * conditional to DUK_USE_HEAPPTR16 only, but it is intended to be + * used with DUK_USE_REFCOUNT16 and DUK_USE_DOUBLE_LINKED_HEAP; + * this only matter to low memory environments anyway. + */ +#if defined(DUK_USE_HEAPPTR16) + duk_uint16_t h_extra16; +#endif +}; + +struct duk_heaphdr_string { + /* 16 bits would be enough for shared heaphdr flags and duk_hstring + * flags. The initial parts of duk_heaphdr_string and duk_heaphdr + * must match so changing the flags field size here would be quite + * awkward. However, to minimize struct size, we can pack at least + * 16 bits of duk_hstring data into the flags field. + */ + duk_uint32_t h_flags; + +#if defined(DUK_USE_REFERENCE_COUNTING) +#if defined(DUK_USE_ASSERTIONS) + /* When assertions enabled, used by mark-and-sweep for refcount + * validation. Largest reasonable type; also detects overflows. + */ + duk_size_t h_assert_refcount; +#endif +#if defined(DUK_USE_REFCOUNT16) + duk_uint16_t h_refcount; + duk_uint16_t h_strextra16; /* round out to 8 bytes */ +#elif defined(DUK_USE_REFCOUNT32) + duk_uint32_t h_refcount; +#else + duk_size_t h_refcount; +#endif +#else + duk_uint16_t h_strextra16; +#endif /* DUK_USE_REFERENCE_COUNTING */ + + duk_hstring *h_next; + /* No 'h_prev' pointer for strings. */ +}; + +#define DUK_HEAPHDR_FLAGS_TYPE_MASK 0x00000003UL +#define DUK_HEAPHDR_FLAGS_FLAG_MASK (~DUK_HEAPHDR_FLAGS_TYPE_MASK) + + /* 2 bits for heap type */ +#define DUK_HEAPHDR_FLAGS_HEAP_START 2 /* 5 heap flags */ +#define DUK_HEAPHDR_FLAGS_USER_START 7 /* 25 user flags */ + +#define DUK_HEAPHDR_HEAP_FLAG_NUMBER(n) (DUK_HEAPHDR_FLAGS_HEAP_START + (n)) +#define DUK_HEAPHDR_USER_FLAG_NUMBER(n) (DUK_HEAPHDR_FLAGS_USER_START + (n)) +#define DUK_HEAPHDR_HEAP_FLAG(n) (1UL << (DUK_HEAPHDR_FLAGS_HEAP_START + (n))) +#define DUK_HEAPHDR_USER_FLAG(n) (1UL << (DUK_HEAPHDR_FLAGS_USER_START + (n))) + +#define DUK_HEAPHDR_FLAG_REACHABLE DUK_HEAPHDR_HEAP_FLAG(0) /* mark-and-sweep: reachable */ +#define DUK_HEAPHDR_FLAG_TEMPROOT DUK_HEAPHDR_HEAP_FLAG(1) /* mark-and-sweep: children not processed */ +#define DUK_HEAPHDR_FLAG_FINALIZABLE DUK_HEAPHDR_HEAP_FLAG(2) /* mark-and-sweep: finalizable (on current pass) */ +#define DUK_HEAPHDR_FLAG_FINALIZED DUK_HEAPHDR_HEAP_FLAG(3) /* mark-and-sweep: finalized (on previous pass) */ +#define DUK_HEAPHDR_FLAG_READONLY DUK_HEAPHDR_HEAP_FLAG(4) /* read-only object, in code section */ + +#define DUK_HTYPE_MIN 0 +#define DUK_HTYPE_STRING 0 +#define DUK_HTYPE_OBJECT 1 +#define DUK_HTYPE_BUFFER 2 +#define DUK_HTYPE_MAX 2 + +#if defined(DUK_USE_HEAPPTR16) +#define DUK_HEAPHDR_GET_NEXT(heap,h) \ + ((duk_heaphdr *) DUK_USE_HEAPPTR_DEC16((heap)->heap_udata, (h)->h_next16)) +#define DUK_HEAPHDR_SET_NEXT(heap,h,val) do { \ + (h)->h_next16 = DUK_USE_HEAPPTR_ENC16((heap)->heap_udata, (void *) val); \ + } while (0) +#else +#define DUK_HEAPHDR_GET_NEXT(heap,h) ((h)->h_next) +#define DUK_HEAPHDR_SET_NEXT(heap,h,val) do { \ + (h)->h_next = (val); \ + } while (0) +#endif + +#if defined(DUK_USE_DOUBLE_LINKED_HEAP) +#if defined(DUK_USE_HEAPPTR16) +#define DUK_HEAPHDR_GET_PREV(heap,h) \ + ((duk_heaphdr *) DUK_USE_HEAPPTR_DEC16((heap)->heap_udata, (h)->h_prev16)) +#define DUK_HEAPHDR_SET_PREV(heap,h,val) do { \ + (h)->h_prev16 = DUK_USE_HEAPPTR_ENC16((heap)->heap_udata, (void *) (val)); \ + } while (0) +#else +#define DUK_HEAPHDR_GET_PREV(heap,h) ((h)->h_prev) +#define DUK_HEAPHDR_SET_PREV(heap,h,val) do { \ + (h)->h_prev = (val); \ + } while (0) +#endif +#endif + +#if defined(DUK_USE_REFERENCE_COUNTING) +#define DUK_HEAPHDR_GET_REFCOUNT(h) ((h)->h_refcount) +#define DUK_HEAPHDR_SET_REFCOUNT(h,val) do { \ + (h)->h_refcount = (val); \ + DUK_ASSERT((h)->h_refcount == (val)); /* No truncation. */ \ + } while (0) +#define DUK_HEAPHDR_PREINC_REFCOUNT(h) (++(h)->h_refcount) /* result: updated refcount */ +#define DUK_HEAPHDR_PREDEC_REFCOUNT(h) (--(h)->h_refcount) /* result: updated refcount */ +#else +/* refcount macros not defined without refcounting, caller must #if defined() now */ +#endif /* DUK_USE_REFERENCE_COUNTING */ + +/* + * Note: type is treated as a field separate from flags, so some masking is + * involved in the macros below. + */ + +#define DUK_HEAPHDR_GET_FLAGS_RAW(h) ((h)->h_flags) +#define DUK_HEAPHDR_SET_FLAGS_RAW(h,val) do { \ + (h)->h_flags = (val); } \ + } +#define DUK_HEAPHDR_GET_FLAGS(h) ((h)->h_flags & DUK_HEAPHDR_FLAGS_FLAG_MASK) +#define DUK_HEAPHDR_SET_FLAGS(h,val) do { \ + (h)->h_flags = ((h)->h_flags & ~(DUK_HEAPHDR_FLAGS_FLAG_MASK)) | (val); \ + } while (0) +#define DUK_HEAPHDR_GET_TYPE(h) ((h)->h_flags & DUK_HEAPHDR_FLAGS_TYPE_MASK) +#define DUK_HEAPHDR_SET_TYPE(h,val) do { \ + (h)->h_flags = ((h)->h_flags & ~(DUK_HEAPHDR_FLAGS_TYPE_MASK)) | (val); \ + } while (0) + +/* Comparison for type >= DUK_HTYPE_MIN skipped; because DUK_HTYPE_MIN is zero + * and the comparison is unsigned, it's always true and generates warnings. + */ +#define DUK_HEAPHDR_HTYPE_VALID(h) ( \ + DUK_HEAPHDR_GET_TYPE((h)) <= DUK_HTYPE_MAX \ + ) + +#define DUK_HEAPHDR_SET_TYPE_AND_FLAGS(h,tval,fval) do { \ + (h)->h_flags = ((tval) & DUK_HEAPHDR_FLAGS_TYPE_MASK) | \ + ((fval) & DUK_HEAPHDR_FLAGS_FLAG_MASK); \ + } while (0) + +#define DUK_HEAPHDR_SET_FLAG_BITS(h,bits) do { \ + DUK_ASSERT(((bits) & ~(DUK_HEAPHDR_FLAGS_FLAG_MASK)) == 0); \ + (h)->h_flags |= (bits); \ + } while (0) + +#define DUK_HEAPHDR_CLEAR_FLAG_BITS(h,bits) do { \ + DUK_ASSERT(((bits) & ~(DUK_HEAPHDR_FLAGS_FLAG_MASK)) == 0); \ + (h)->h_flags &= ~((bits)); \ + } while (0) + +#define DUK_HEAPHDR_CHECK_FLAG_BITS(h,bits) (((h)->h_flags & (bits)) != 0) + +#define DUK_HEAPHDR_SET_REACHABLE(h) DUK_HEAPHDR_SET_FLAG_BITS((h),DUK_HEAPHDR_FLAG_REACHABLE) +#define DUK_HEAPHDR_CLEAR_REACHABLE(h) DUK_HEAPHDR_CLEAR_FLAG_BITS((h),DUK_HEAPHDR_FLAG_REACHABLE) +#define DUK_HEAPHDR_HAS_REACHABLE(h) DUK_HEAPHDR_CHECK_FLAG_BITS((h),DUK_HEAPHDR_FLAG_REACHABLE) + +#define DUK_HEAPHDR_SET_TEMPROOT(h) DUK_HEAPHDR_SET_FLAG_BITS((h),DUK_HEAPHDR_FLAG_TEMPROOT) +#define DUK_HEAPHDR_CLEAR_TEMPROOT(h) DUK_HEAPHDR_CLEAR_FLAG_BITS((h),DUK_HEAPHDR_FLAG_TEMPROOT) +#define DUK_HEAPHDR_HAS_TEMPROOT(h) DUK_HEAPHDR_CHECK_FLAG_BITS((h),DUK_HEAPHDR_FLAG_TEMPROOT) + +#define DUK_HEAPHDR_SET_FINALIZABLE(h) DUK_HEAPHDR_SET_FLAG_BITS((h),DUK_HEAPHDR_FLAG_FINALIZABLE) +#define DUK_HEAPHDR_CLEAR_FINALIZABLE(h) DUK_HEAPHDR_CLEAR_FLAG_BITS((h),DUK_HEAPHDR_FLAG_FINALIZABLE) +#define DUK_HEAPHDR_HAS_FINALIZABLE(h) DUK_HEAPHDR_CHECK_FLAG_BITS((h),DUK_HEAPHDR_FLAG_FINALIZABLE) + +#define DUK_HEAPHDR_SET_FINALIZED(h) DUK_HEAPHDR_SET_FLAG_BITS((h),DUK_HEAPHDR_FLAG_FINALIZED) +#define DUK_HEAPHDR_CLEAR_FINALIZED(h) DUK_HEAPHDR_CLEAR_FLAG_BITS((h),DUK_HEAPHDR_FLAG_FINALIZED) +#define DUK_HEAPHDR_HAS_FINALIZED(h) DUK_HEAPHDR_CHECK_FLAG_BITS((h),DUK_HEAPHDR_FLAG_FINALIZED) + +#define DUK_HEAPHDR_SET_READONLY(h) DUK_HEAPHDR_SET_FLAG_BITS((h),DUK_HEAPHDR_FLAG_READONLY) +#define DUK_HEAPHDR_CLEAR_READONLY(h) DUK_HEAPHDR_CLEAR_FLAG_BITS((h),DUK_HEAPHDR_FLAG_READONLY) +#define DUK_HEAPHDR_HAS_READONLY(h) DUK_HEAPHDR_CHECK_FLAG_BITS((h),DUK_HEAPHDR_FLAG_READONLY) + +/* get or set a range of flags; m=first bit number, n=number of bits */ +#define DUK_HEAPHDR_GET_FLAG_RANGE(h,m,n) (((h)->h_flags >> (m)) & ((1UL << (n)) - 1UL)) + +#define DUK_HEAPHDR_SET_FLAG_RANGE(h,m,n,v) do { \ + (h)->h_flags = \ + ((h)->h_flags & (~(((1UL << (n)) - 1UL) << (m)))) \ + | ((v) << (m)); \ + } while (0) + +/* init pointer fields to null */ +#if defined(DUK_USE_DOUBLE_LINKED_HEAP) +#define DUK_HEAPHDR_INIT_NULLS(h) do { \ + DUK_HEAPHDR_SET_NEXT((h), (void *) NULL); \ + DUK_HEAPHDR_SET_PREV((h), (void *) NULL); \ + } while (0) +#else +#define DUK_HEAPHDR_INIT_NULLS(h) do { \ + DUK_HEAPHDR_SET_NEXT((h), (void *) NULL); \ + } while (0) +#endif + +#define DUK_HEAPHDR_STRING_INIT_NULLS(h) do { \ + (h)->h_next = NULL; \ + } while (0) + +/* + * Type tests + */ + +/* Take advantage of the fact that for DUK_HTYPE_xxx numbers the lowest bit + * is only set for DUK_HTYPE_OBJECT (= 1). + */ +#if 0 +#define DUK_HEAPHDR_IS_OBJECT(h) (DUK_HEAPHDR_GET_TYPE((h)) == DUK_HTYPE_OBJECT) +#endif +#define DUK_HEAPHDR_IS_OBJECT(h) ((h)->h_flags & 0x01UL) +#define DUK_HEAPHDR_IS_STRING(h) (DUK_HEAPHDR_GET_TYPE((h)) == DUK_HTYPE_STRING) +#define DUK_HEAPHDR_IS_BUFFER(h) (DUK_HEAPHDR_GET_TYPE((h)) == DUK_HTYPE_BUFFER) + +/* + * Assert helpers + */ + +/* Check that prev/next links are consistent: if e.g. h->prev is != NULL, + * h->prev->next should point back to h. + */ +#if defined(DUK_USE_ASSERTIONS) +DUK_INTERNAL_DECL void duk_heaphdr_assert_valid_subclassed(duk_heaphdr *h); +DUK_INTERNAL_DECL void duk_heaphdr_assert_links(duk_heap *heap, duk_heaphdr *h); +DUK_INTERNAL_DECL void duk_heaphdr_assert_valid(duk_heaphdr *h); +#define DUK_HEAPHDR_ASSERT_LINKS(heap,h) do { duk_heaphdr_assert_links((heap), (h)); } while (0) +#define DUK_HEAPHDR_ASSERT_VALID(h) do { duk_heaphdr_assert_valid((h)); } while (0) +#else +#define DUK_HEAPHDR_ASSERT_LINKS(heap,h) do {} while (0) +#define DUK_HEAPHDR_ASSERT_VALID(h) do {} while (0) +#endif + +#endif /* DUK_HEAPHDR_H_INCLUDED */ +/* #include duk_refcount.h */ +#line 1 "duk_refcount.h" +/* + * Reference counting helper macros. The macros take a thread argument + * and must thus always be executed in a specific thread context. The + * thread argument is not really needed anymore: DECREF can operate with + * a heap pointer only, and INCREF needs neither. + */ + +#if !defined(DUK_REFCOUNT_H_INCLUDED) +#define DUK_REFCOUNT_H_INCLUDED + +#if defined(DUK_USE_REFERENCE_COUNTING) + +#if defined(DUK_USE_ROM_OBJECTS) +/* With ROM objects "needs refcount update" is true when the value is + * heap allocated and is not a ROM object. + */ +/* XXX: double evaluation for 'tv' argument. */ +#define DUK_TVAL_NEEDS_REFCOUNT_UPDATE(tv) \ + (DUK_TVAL_IS_HEAP_ALLOCATED((tv)) && !DUK_HEAPHDR_HAS_READONLY(DUK_TVAL_GET_HEAPHDR((tv)))) +#define DUK_HEAPHDR_NEEDS_REFCOUNT_UPDATE(h) (!DUK_HEAPHDR_HAS_READONLY((h))) +#else /* DUK_USE_ROM_OBJECTS */ +/* Without ROM objects "needs refcount update" == is heap allocated. */ +#define DUK_TVAL_NEEDS_REFCOUNT_UPDATE(tv) DUK_TVAL_IS_HEAP_ALLOCATED((tv)) +#define DUK_HEAPHDR_NEEDS_REFCOUNT_UPDATE(h) 1 +#endif /* DUK_USE_ROM_OBJECTS */ + +/* Fast variants, inline refcount operations except for refzero handling. + * Can be used explicitly when speed is always more important than size. + * For a good compiler and a single file build, these are basically the + * same as a forced inline. + */ +#define DUK_TVAL_INCREF_FAST(thr,tv) do { \ + duk_tval *duk__tv = (tv); \ + DUK_ASSERT(duk__tv != NULL); \ + if (DUK_TVAL_NEEDS_REFCOUNT_UPDATE(duk__tv)) { \ + duk_heaphdr *duk__h = DUK_TVAL_GET_HEAPHDR(duk__tv); \ + DUK_ASSERT(duk__h != NULL); \ + DUK_ASSERT(DUK_HEAPHDR_HTYPE_VALID(duk__h)); \ + DUK_HEAPHDR_PREINC_REFCOUNT(duk__h); \ + DUK_ASSERT(DUK_HEAPHDR_GET_REFCOUNT(duk__h) != 0); /* No wrapping. */ \ + } \ + } while (0) +#define DUK_TVAL_DECREF_FAST(thr,tv) do { \ + duk_tval *duk__tv = (tv); \ + DUK_ASSERT(duk__tv != NULL); \ + if (DUK_TVAL_NEEDS_REFCOUNT_UPDATE(duk__tv)) { \ + duk_heaphdr *duk__h = DUK_TVAL_GET_HEAPHDR(duk__tv); \ + DUK_ASSERT(duk__h != NULL); \ + DUK_ASSERT(DUK_HEAPHDR_HTYPE_VALID(duk__h)); \ + DUK_ASSERT(DUK_HEAPHDR_GET_REFCOUNT(duk__h) > 0); \ + if (DUK_HEAPHDR_PREDEC_REFCOUNT(duk__h) == 0) { \ + duk_heaphdr_refzero((thr), duk__h); \ + } \ + } \ + } while (0) +#define DUK_TVAL_DECREF_NORZ_FAST(thr,tv) do { \ + duk_tval *duk__tv = (tv); \ + DUK_ASSERT(duk__tv != NULL); \ + if (DUK_TVAL_NEEDS_REFCOUNT_UPDATE(duk__tv)) { \ + duk_heaphdr *duk__h = DUK_TVAL_GET_HEAPHDR(duk__tv); \ + DUK_ASSERT(duk__h != NULL); \ + DUK_ASSERT(DUK_HEAPHDR_HTYPE_VALID(duk__h)); \ + DUK_ASSERT(DUK_HEAPHDR_GET_REFCOUNT(duk__h) > 0); \ + if (DUK_HEAPHDR_PREDEC_REFCOUNT(duk__h) == 0) { \ + duk_heaphdr_refzero_norz((thr), duk__h); \ + } \ + } \ + } while (0) +#define DUK_HEAPHDR_INCREF_FAST(thr,h) do { \ + duk_heaphdr *duk__h = (duk_heaphdr *) (h); \ + DUK_ASSERT(duk__h != NULL); \ + DUK_ASSERT(DUK_HEAPHDR_HTYPE_VALID(duk__h)); \ + if (DUK_HEAPHDR_NEEDS_REFCOUNT_UPDATE(duk__h)) { \ + DUK_HEAPHDR_PREINC_REFCOUNT(duk__h); \ + DUK_ASSERT(DUK_HEAPHDR_GET_REFCOUNT(duk__h) != 0); /* No wrapping. */ \ + } \ + } while (0) +#define DUK_HEAPHDR_DECREF_FAST_RAW(thr,h,rzcall,rzcast) do { \ + duk_heaphdr *duk__h = (duk_heaphdr *) (h); \ + DUK_ASSERT(duk__h != NULL); \ + DUK_ASSERT(DUK_HEAPHDR_HTYPE_VALID(duk__h)); \ + DUK_ASSERT(DUK_HEAPHDR_GET_REFCOUNT(duk__h) > 0); \ + if (DUK_HEAPHDR_NEEDS_REFCOUNT_UPDATE(duk__h)) { \ + if (DUK_HEAPHDR_PREDEC_REFCOUNT(duk__h) == 0) { \ + (rzcall)((thr), (rzcast) duk__h); \ + } \ + } \ + } while (0) +#define DUK_HEAPHDR_DECREF_FAST(thr,h) \ + DUK_HEAPHDR_DECREF_FAST_RAW((thr),(h),duk_heaphdr_refzero,duk_heaphdr *) +#define DUK_HEAPHDR_DECREF_NORZ_FAST(thr,h) \ + DUK_HEAPHDR_DECREF_FAST_RAW((thr),(h),duk_heaphdr_refzero_norz,duk_heaphdr *) + +/* Slow variants, call to a helper to reduce code size. + * Can be used explicitly when size is always more important than speed. + */ +#define DUK_TVAL_INCREF_SLOW(thr,tv) do { duk_tval_incref((tv)); } while (0) +#define DUK_TVAL_DECREF_SLOW(thr,tv) do { duk_tval_decref((thr), (tv)); } while (0) +#define DUK_TVAL_DECREF_NORZ_SLOW(thr,tv) do { duk_tval_decref_norz((thr), (tv)); } while (0) +#define DUK_HEAPHDR_INCREF_SLOW(thr,h) do { duk_heaphdr_incref((duk_heaphdr *) (h)); } while (0) +#define DUK_HEAPHDR_DECREF_SLOW(thr,h) do { duk_heaphdr_decref((thr), (duk_heaphdr *) (h)); } while (0) +#define DUK_HEAPHDR_DECREF_NORZ_SLOW(thr,h) do { duk_heaphdr_decref_norz((thr), (duk_heaphdr *) (h)); } while (0) +#define DUK_HSTRING_INCREF_SLOW(thr,h) do { duk_heaphdr_incref((duk_heaphdr *) (h)); } while (0) +#define DUK_HSTRING_DECREF_SLOW(thr,h) do { duk_heaphdr_decref((thr), (duk_heaphdr *) (h)); } while (0) +#define DUK_HSTRING_DECREF_NORZ_SLOW(thr,h) do { duk_heaphdr_decref_norz((thr), (duk_heaphdr *) (h)); } while (0) +#define DUK_HBUFFER_INCREF_SLOW(thr,h) do { duk_heaphdr_incref((duk_heaphdr *) (h)); } while (0) +#define DUK_HBUFFER_DECREF_SLOW(thr,h) do { duk_heaphdr_decref((thr), (duk_heaphdr *) (h)); } while (0) +#define DUK_HBUFFER_DECREF_NORZ_SLOW(thr,h) do { duk_heaphdr_decref_norz((thr), (duk_heaphdr *) (h)); } while (0) +#define DUK_HOBJECT_INCREF_SLOW(thr,h) do { duk_heaphdr_incref((duk_heaphdr *) (h)); } while (0) +#define DUK_HOBJECT_DECREF_SLOW(thr,h) do { duk_heaphdr_decref((thr), (duk_heaphdr *) (h)); } while (0) +#define DUK_HOBJECT_DECREF_NORZ_SLOW(thr,h) do { duk_heaphdr_decref_norz((thr), (duk_heaphdr *) (h)); } while (0) + +/* Default variants. Selection depends on speed/size preference. + * Concretely: with gcc 4.8.1 -Os x64 the difference in final binary + * is about +1kB for _FAST variants. + */ +#if defined(DUK_USE_FAST_REFCOUNT_DEFAULT) +/* XXX: It would be nice to specialize for specific duk_hobject subtypes + * but current refzero queue handling prevents that. + */ +#define DUK_TVAL_INCREF(thr,tv) DUK_TVAL_INCREF_FAST((thr),(tv)) +#define DUK_TVAL_DECREF(thr,tv) DUK_TVAL_DECREF_FAST((thr),(tv)) +#define DUK_TVAL_DECREF_NORZ(thr,tv) DUK_TVAL_DECREF_NORZ_FAST((thr),(tv)) +#define DUK_HEAPHDR_INCREF(thr,h) DUK_HEAPHDR_INCREF_FAST((thr),(h)) +#define DUK_HEAPHDR_DECREF(thr,h) DUK_HEAPHDR_DECREF_FAST_RAW((thr),(h),duk_heaphdr_refzero,duk_heaphdr *) +#define DUK_HEAPHDR_DECREF_NORZ(thr,h) DUK_HEAPHDR_DECREF_FAST_RAW((thr),(h),duk_heaphdr_refzero_norz,duk_heaphdr *) +#define DUK_HSTRING_INCREF(thr,h) DUK_HEAPHDR_INCREF((thr),(duk_heaphdr *) (h)) +#define DUK_HSTRING_DECREF(thr,h) DUK_HEAPHDR_DECREF_FAST_RAW((thr),(h),duk_hstring_refzero,duk_hstring *) +#define DUK_HSTRING_DECREF_NORZ(thr,h) DUK_HEAPHDR_DECREF_FAST_RAW((thr),(h),duk_hstring_refzero,duk_hstring *) /* no 'norz' variant */ +#define DUK_HOBJECT_INCREF(thr,h) DUK_HEAPHDR_INCREF((thr),(duk_heaphdr *) (h)) +#define DUK_HOBJECT_DECREF(thr,h) DUK_HEAPHDR_DECREF_FAST_RAW((thr),(h),duk_hobject_refzero,duk_hobject *) +#define DUK_HOBJECT_DECREF_NORZ(thr,h) DUK_HEAPHDR_DECREF_FAST_RAW((thr),(h),duk_hobject_refzero_norz,duk_hobject *) +#define DUK_HBUFFER_INCREF(thr,h) DUK_HEAPHDR_INCREF((thr),(duk_heaphdr *) (h)) +#define DUK_HBUFFER_DECREF(thr,h) DUK_HEAPHDR_DECREF_FAST_RAW((thr),(h),duk_hbuffer_refzero,duk_hbuffer *) +#define DUK_HBUFFER_DECREF_NORZ(thr,h) DUK_HEAPHDR_DECREF_FAST_RAW((thr),(h),duk_hbuffer_refzero,duk_hbuffer *) /* no 'norz' variant */ +#define DUK_HCOMPFUNC_INCREF(thr,h) DUK_HEAPHDR_INCREF((thr),(duk_heaphdr *) &(h)->obj) +#define DUK_HCOMPFUNC_DECREF(thr,h) DUK_HEAPHDR_DECREF_FAST_RAW((thr),(h),duk_hobject_refzero,duk_hobject *) +#define DUK_HCOMPFUNC_DECREF_NORZ(thr,h) DUK_HEAPHDR_DECREF_FAST_RAW((thr),(h),duk_hobject_refzero_norz,duk_hobject *) +#define DUK_HNATFUNC_INCREF(thr,h) DUK_HEAPHDR_INCREF((thr),(duk_heaphdr *) &(h)->obj) +#define DUK_HNATFUNC_DECREF(thr,h) DUK_HEAPHDR_DECREF_FAST_RAW((thr),(h),duk_hobject_refzero,duk_hobject *) +#define DUK_HNATFUNC_DECREF_NORZ(thr,h) DUK_HEAPHDR_DECREF_FAST_RAW((thr),(h),duk_hobject_refzero_norz,duk_hobject *) +#define DUK_HBUFOBJ_INCREF(thr,h) DUK_HEAPHDR_INCREF((thr),(duk_heaphdr *) &(h)->obj) +#define DUK_HBUFOBJ_DECREF(thr,h) DUK_HEAPHDR_DECREF_FAST_RAW((thr),(h),duk_hobject_refzero,duk_hobject *) +#define DUK_HBUFOBJ_DECREF_NORZ(thr,h) DUK_HEAPHDR_DECREF_FAST_RAW((thr),(h),duk_hobject_refzero_norz,duk_hobject *) +#define DUK_HTHREAD_INCREF(thr,h) DUK_HEAPHDR_INCREF((thr),(duk_heaphdr *) &(h)->obj) +#define DUK_HTHREAD_DECREF(thr,h) DUK_HEAPHDR_DECREF_FAST_RAW((thr),(h),duk_hobject_refzero,duk_hobject *) +#define DUK_HTHREAD_DECREF_NORZ(thr,h) DUK_HEAPHDR_DECREF_FAST_RAW((thr),(h),duk_hobject_refzero_norz,duk_hobject *) +#else +#define DUK_TVAL_INCREF(thr,tv) DUK_TVAL_INCREF_SLOW((thr),(tv)) +#define DUK_TVAL_DECREF(thr,tv) DUK_TVAL_DECREF_SLOW((thr),(tv)) +#define DUK_TVAL_DECREF_NORZ(thr,tv) DUK_TVAL_DECREF_NORZ_SLOW((thr),(tv)) +#define DUK_HEAPHDR_INCREF(thr,h) DUK_HEAPHDR_INCREF_SLOW((thr),(h)) +#define DUK_HEAPHDR_DECREF(thr,h) DUK_HEAPHDR_DECREF_SLOW((thr),(h)) +#define DUK_HEAPHDR_DECREF_NORZ(thr,h) DUK_HEAPHDR_DECREF_NORZ_SLOW((thr),(h)) +#define DUK_HSTRING_INCREF(thr,h) DUK_HEAPHDR_INCREF((thr),(duk_heaphdr *) (h)) +#define DUK_HSTRING_DECREF(thr,h) DUK_HSTRING_DECREF_SLOW((thr),(h)) +#define DUK_HSTRING_DECREF_NORZ(thr,h) DUK_HSTRING_DECREF_NORZ_SLOW((thr),(h)) +#define DUK_HOBJECT_INCREF(thr,h) DUK_HEAPHDR_INCREF((thr),(duk_heaphdr *) (h)) +#define DUK_HOBJECT_DECREF(thr,h) DUK_HOBJECT_DECREF_SLOW((thr),(h)) +#define DUK_HOBJECT_DECREF_NORZ(thr,h) DUK_HOBJECT_DECREF_NORZ_SLOW((thr),(h)) +#define DUK_HBUFFER_INCREF(thr,h) DUK_HEAPHDR_INCREF((thr),(duk_heaphdr *) (h)) +#define DUK_HBUFFER_DECREF(thr,h) DUK_HBUFFER_DECREF_SLOW((thr),(h)) +#define DUK_HBUFFER_DECREF_NORZ(thr,h) DUK_HBUFFER_DECREF_NORZ_SLOW((thr),(h)) +#define DUK_HCOMPFUNC_INCREF(thr,h) DUK_HEAPHDR_INCREF((thr),(duk_heaphdr *) &(h)->obj) +#define DUK_HCOMPFUNC_DECREF(thr,h) DUK_HOBJECT_DECREF_SLOW((thr),(duk_hobject *) &(h)->obj) +#define DUK_HCOMPFUNC_DECREF_NORZ(thr,h) DUK_HOBJECT_DECREF_NORZ_SLOW((thr),(duk_hobject *) &(h)->obj) +#define DUK_HNATFUNC_INCREF(thr,h) DUK_HEAPHDR_INCREF((thr),(duk_heaphdr *) &(h)->obj) +#define DUK_HNATFUNC_DECREF(thr,h) DUK_HOBJECT_DECREF_SLOW((thr),(duk_hobject *) &(h)->obj) +#define DUK_HNATFUNC_DECREF_NORZ(thr,h) DUK_HOBJECT_DECREF_NORZ_SLOW((thr),(duk_hobject *) &(h)->obj) +#define DUK_HBUFOBJ_INCREF(thr,h) DUK_HEAPHDR_INCREF((thr),(duk_heaphdr *) &(h)->obj) +#define DUK_HBUFOBJ_DECREF(thr,h) DUK_HOBJECT_DECREF_SLOW((thr),(duk_hobject *) &(h)->obj) +#define DUK_HBUFOB_DECREF_NORZ(thr,h) DUK_HOBJECT_DECREF_NORZ_SLOW((thr),(duk_hobject *) &(h)->obj) +#define DUK_HTHREAD_INCREF(thr,h) DUK_HEAPHDR_INCREF((thr),(duk_heaphdr *) &(h)->obj) +#define DUK_HTHREAD_DECREF(thr,h) DUK_HOBJECT_DECREF_SLOW((thr),(duk_hobject *) &(h)->obj) +#define DUK_HTHREAD_DECREF_NORZ(thr,h) DUK_HOBJECT_DECREF_NORZ_SLOW((thr),(duk_hobject *) &(h)->obj) +#endif + +/* Convenience for some situations; the above macros don't allow NULLs + * for performance reasons. Macros cover only actually needed cases. + */ +#define DUK_HEAPHDR_INCREF_ALLOWNULL(thr,h) do { \ + if ((h) != NULL) { \ + DUK_HEAPHDR_INCREF((thr), (duk_heaphdr *) (h)); \ + } \ + } while (0) +#define DUK_HEAPHDR_DECREF_ALLOWNULL(thr,h) do { \ + if ((h) != NULL) { \ + DUK_HEAPHDR_DECREF((thr), (duk_heaphdr *) (h)); \ + } \ + } while (0) +#define DUK_HEAPHDR_DECREF_NORZ_ALLOWNULL(thr,h) do { \ + if ((h) != NULL) { \ + DUK_HEAPHDR_DECREF_NORZ((thr), (duk_heaphdr *) (h)); \ + } \ + } while (0) +#define DUK_HOBJECT_INCREF_ALLOWNULL(thr,h) do { \ + if ((h) != NULL) { \ + DUK_HOBJECT_INCREF((thr), (h)); \ + } \ + } while (0) +#define DUK_HOBJECT_DECREF_ALLOWNULL(thr,h) do { \ + if ((h) != NULL) { \ + DUK_HOBJECT_DECREF((thr), (h)); \ + } \ + } while (0) +#define DUK_HOBJECT_DECREF_NORZ_ALLOWNULL(thr,h) do { \ + if ((h) != NULL) { \ + DUK_HOBJECT_DECREF_NORZ((thr), (h)); \ + } \ + } while (0) +#define DUK_HBUFFER_INCREF_ALLOWNULL(thr,h) do { \ + if ((h) != NULL) { \ + DUK_HBUFFER_INCREF((thr), (h)); \ + } \ + } while (0) +#define DUK_HBUFFER_DECREF_ALLOWNULL(thr,h) do { \ + if ((h) != NULL) { \ + DUK_HBUFFER_DECREF((thr), (h)); \ + } \ + } while (0) +#define DUK_HBUFFER_DECREF_NORZ_ALLOWNULL(thr,h) do { \ + if ((h) != NULL) { \ + DUK_HBUFFER_DECREF_NORZ((thr), (h)); \ + } \ + } while (0) +#define DUK_HTHREAD_INCREF_ALLOWNULL(thr,h) do { \ + if ((h) != NULL) { \ + DUK_HTHREAD_INCREF((thr), (h)); \ + } \ + } while (0) +#define DUK_HTHREAD_DECREF_ALLOWNULL(thr,h) do { \ + if ((h) != NULL) { \ + DUK_HTHREAD_DECREF((thr), (h)); \ + } \ + } while (0) +#define DUK_HTHREAD_DECREF_NORZ_ALLOWNULL(thr,h) do { \ + if ((h) != NULL) { \ + DUK_HTHREAD_DECREF_NORZ((thr), (h)); \ + } \ + } while (0) + +/* Called after one or more DECREF NORZ calls to handle pending side effects. + * At present DECREF NORZ does freeing inline but doesn't execute finalizers, + * so these macros check for pending finalizers and execute them. The FAST + * variant is performance critical. + */ +#if defined(DUK_USE_FINALIZER_SUPPORT) +#define DUK_REFZERO_CHECK_FAST(thr) do { \ + duk_refzero_check_fast((thr)); \ + } while (0) +#define DUK_REFZERO_CHECK_SLOW(thr) do { \ + duk_refzero_check_slow((thr)); \ + } while (0) +#else /* DUK_USE_FINALIZER_SUPPORT */ +#define DUK_REFZERO_CHECK_FAST(thr) do { } while (0) +#define DUK_REFZERO_CHECK_SLOW(thr) do { } while (0) +#endif /* DUK_USE_FINALIZER_SUPPORT */ + +/* + * Macros to set a duk_tval and update refcount of the target (decref the + * old value and incref the new value if necessary). This is both performance + * and footprint critical; any changes made should be measured for size/speed. + */ + +#define DUK_TVAL_SET_UNDEFINED_UPDREF_ALT0(thr,tvptr_dst) do { \ + duk_tval *tv__dst; duk_tval tv__tmp; tv__dst = (tvptr_dst); \ + DUK_TVAL_SET_TVAL(&tv__tmp, tv__dst); \ + DUK_TVAL_SET_UNDEFINED(tv__dst); \ + DUK_TVAL_DECREF((thr), &tv__tmp); /* side effects */ \ + } while (0) + +#define DUK_TVAL_SET_UNDEFINED_UPDREF_NORZ_ALT0(thr,tvptr_dst) do { \ + duk_tval *tv__dst; duk_tval tv__tmp; tv__dst = (tvptr_dst); \ + DUK_TVAL_SET_TVAL(&tv__tmp, tv__dst); \ + DUK_TVAL_SET_UNDEFINED(tv__dst); \ + DUK_TVAL_DECREF_NORZ((thr), &tv__tmp); \ + } while (0) + +#define DUK_TVAL_SET_UNUSED_UPDREF_ALT0(thr,tvptr_dst) do { \ + duk_tval *tv__dst; duk_tval tv__tmp; tv__dst = (tvptr_dst); \ + DUK_TVAL_SET_TVAL(&tv__tmp, tv__dst); \ + DUK_TVAL_SET_UNUSED(tv__dst); \ + DUK_TVAL_DECREF((thr), &tv__tmp); /* side effects */ \ + } while (0) + +#define DUK_TVAL_SET_NULL_UPDREF_ALT0(thr,tvptr_dst) do { \ + duk_tval *tv__dst; duk_tval tv__tmp; tv__dst = (tvptr_dst); \ + DUK_TVAL_SET_TVAL(&tv__tmp, tv__dst); \ + DUK_TVAL_SET_NULL(tv__dst); \ + DUK_TVAL_DECREF((thr), &tv__tmp); /* side effects */ \ + } while (0) + +#define DUK_TVAL_SET_BOOLEAN_UPDREF_ALT0(thr,tvptr_dst,newval) do { \ + duk_tval *tv__dst; duk_tval tv__tmp; tv__dst = (tvptr_dst); \ + DUK_TVAL_SET_TVAL(&tv__tmp, tv__dst); \ + DUK_TVAL_SET_BOOLEAN(tv__dst, (newval)); \ + DUK_TVAL_DECREF((thr), &tv__tmp); /* side effects */ \ + } while (0) + +#define DUK_TVAL_SET_NUMBER_UPDREF_ALT0(thr,tvptr_dst,newval) do { \ + duk_tval *tv__dst; duk_tval tv__tmp; tv__dst = (tvptr_dst); \ + DUK_TVAL_SET_TVAL(&tv__tmp, tv__dst); \ + DUK_TVAL_SET_NUMBER(tv__dst, (newval)); \ + DUK_TVAL_DECREF((thr), &tv__tmp); /* side effects */ \ + } while (0) +#define DUK_TVAL_SET_NUMBER_CHKFAST_UPDREF_ALT0(thr,tvptr_dst,newval) do { \ + duk_tval *tv__dst; duk_tval tv__tmp; tv__dst = (tvptr_dst); \ + DUK_TVAL_SET_TVAL(&tv__tmp, tv__dst); \ + DUK_TVAL_SET_NUMBER_CHKFAST_FAST(tv__dst, (newval)); \ + DUK_TVAL_DECREF((thr), &tv__tmp); /* side effects */ \ + } while (0) +#define DUK_TVAL_SET_DOUBLE_UPDREF_ALT0(thr,tvptr_dst,newval) do { \ + duk_tval *tv__dst; duk_tval tv__tmp; tv__dst = (tvptr_dst); \ + DUK_TVAL_SET_TVAL(&tv__tmp, tv__dst); \ + DUK_TVAL_SET_DOUBLE(tv__dst, (newval)); \ + DUK_TVAL_DECREF((thr), &tv__tmp); /* side effects */ \ + } while (0) +#define DUK_TVAL_SET_NAN_UPDREF_ALT0(thr,tvptr_dst) do { \ + duk_tval *tv__dst; duk_tval tv__tmp; tv__dst = (tvptr_dst); \ + DUK_TVAL_SET_TVAL(&tv__tmp, tv__dst); \ + DUK_TVAL_SET_NAN(tv__dst); \ + DUK_TVAL_DECREF((thr), &tv__tmp); /* side effects */ \ + } while (0) +#if defined(DUK_USE_FASTINT) +#define DUK_TVAL_SET_I48_UPDREF_ALT0(thr,tvptr_dst,newval) do { \ + duk_tval *tv__dst; duk_tval tv__tmp; tv__dst = (tvptr_dst); \ + DUK_TVAL_SET_TVAL(&tv__tmp, tv__dst); \ + DUK_TVAL_SET_I48(tv__dst, (newval)); \ + DUK_TVAL_DECREF((thr), &tv__tmp); /* side effects */ \ + } while (0) +#define DUK_TVAL_SET_I32_UPDREF_ALT0(thr,tvptr_dst,newval) do { \ + duk_tval *tv__dst; duk_tval tv__tmp; tv__dst = (tvptr_dst); \ + DUK_TVAL_SET_TVAL(&tv__tmp, tv__dst); \ + DUK_TVAL_SET_I32(tv__dst, (newval)); \ + DUK_TVAL_DECREF((thr), &tv__tmp); /* side effects */ \ + } while (0) +#define DUK_TVAL_SET_U32_UPDREF_ALT0(thr,tvptr_dst,newval) do { \ + duk_tval *tv__dst; duk_tval tv__tmp; tv__dst = (tvptr_dst); \ + DUK_TVAL_SET_TVAL(&tv__tmp, tv__dst); \ + DUK_TVAL_SET_U32(tv__dst, (newval)); \ + DUK_TVAL_DECREF((thr), &tv__tmp); /* side effects */ \ + } while (0) +#else +#define DUK_TVAL_SET_DOUBLE_CAST_UPDREF(thr,tvptr_dst,newval) \ + DUK_TVAL_SET_DOUBLE_UPDREF((thr), (tvptr_dst), (duk_double_t) (newval)) +#endif /* DUK_USE_FASTINT */ + +#define DUK_TVAL_SET_LIGHTFUNC_UPDREF_ALT0(thr,tvptr_dst,lf_v,lf_fp,lf_flags) do { \ + duk_tval *tv__dst; duk_tval tv__tmp; tv__dst = (tvptr_dst); \ + DUK_TVAL_SET_TVAL(&tv__tmp, tv__dst); \ + DUK_TVAL_SET_LIGHTFUNC(tv__dst, (lf_v), (lf_fp), (lf_flags)); \ + DUK_TVAL_DECREF((thr), &tv__tmp); /* side effects */ \ + } while (0) + +#define DUK_TVAL_SET_STRING_UPDREF_ALT0(thr,tvptr_dst,newval) do { \ + duk_tval *tv__dst; duk_tval tv__tmp; tv__dst = (tvptr_dst); \ + DUK_TVAL_SET_TVAL(&tv__tmp, tv__dst); \ + DUK_TVAL_SET_STRING(tv__dst, (newval)); \ + DUK_HSTRING_INCREF((thr), (newval)); \ + DUK_TVAL_DECREF((thr), &tv__tmp); /* side effects */ \ + } while (0) + +#define DUK_TVAL_SET_OBJECT_UPDREF_ALT0(thr,tvptr_dst,newval) do { \ + duk_tval *tv__dst; duk_tval tv__tmp; tv__dst = (tvptr_dst); \ + DUK_TVAL_SET_TVAL(&tv__tmp, tv__dst); \ + DUK_TVAL_SET_OBJECT(tv__dst, (newval)); \ + DUK_HOBJECT_INCREF((thr), (newval)); \ + DUK_TVAL_DECREF((thr), &tv__tmp); /* side effects */ \ + } while (0) + +#define DUK_TVAL_SET_BUFFER_UPDREF_ALT0(thr,tvptr_dst,newval) do { \ + duk_tval *tv__dst; duk_tval tv__tmp; tv__dst = (tvptr_dst); \ + DUK_TVAL_SET_TVAL(&tv__tmp, tv__dst); \ + DUK_TVAL_SET_BUFFER(tv__dst, (newval)); \ + DUK_HBUFFER_INCREF((thr), (newval)); \ + DUK_TVAL_DECREF((thr), &tv__tmp); /* side effects */ \ + } while (0) + +#define DUK_TVAL_SET_POINTER_UPDREF_ALT0(thr,tvptr_dst,newval) do { \ + duk_tval *tv__dst; duk_tval tv__tmp; tv__dst = (tvptr_dst); \ + DUK_TVAL_SET_TVAL(&tv__tmp, tv__dst); \ + DUK_TVAL_SET_POINTER(tv__dst, (newval)); \ + DUK_TVAL_DECREF((thr), &tv__tmp); /* side effects */ \ + } while (0) + +/* DUK_TVAL_SET_TVAL_UPDREF() is used a lot in executor, property lookups, + * etc, so it's very important for performance. Measure when changing. + * + * NOTE: the source and destination duk_tval pointers may be the same, and + * the macros MUST deal with that correctly. + */ + +/* Original idiom used, minimal code size. */ +#define DUK_TVAL_SET_TVAL_UPDREF_ALT0(thr,tvptr_dst,tvptr_src) do { \ + duk_tval *tv__dst, *tv__src; duk_tval tv__tmp; \ + tv__dst = (tvptr_dst); tv__src = (tvptr_src); \ + DUK_TVAL_SET_TVAL(&tv__tmp, tv__dst); \ + DUK_TVAL_SET_TVAL(tv__dst, tv__src); \ + DUK_TVAL_INCREF((thr), tv__src); \ + DUK_TVAL_DECREF((thr), &tv__tmp); /* side effects */ \ + } while (0) + +/* Faster alternative: avoid making a temporary copy of tvptr_dst and use + * fast incref/decref macros. + */ +#define DUK_TVAL_SET_TVAL_UPDREF_ALT1(thr,tvptr_dst,tvptr_src) do { \ + duk_tval *tv__dst, *tv__src; duk_heaphdr *h__obj; \ + tv__dst = (tvptr_dst); tv__src = (tvptr_src); \ + DUK_TVAL_INCREF_FAST((thr), tv__src); \ + if (DUK_TVAL_NEEDS_REFCOUNT_UPDATE(tv__dst)) { \ + h__obj = DUK_TVAL_GET_HEAPHDR(tv__dst); \ + DUK_ASSERT(h__obj != NULL); \ + DUK_TVAL_SET_TVAL(tv__dst, tv__src); \ + DUK_HEAPHDR_DECREF_FAST((thr), h__obj); /* side effects */ \ + } else { \ + DUK_TVAL_SET_TVAL(tv__dst, tv__src); \ + } \ + } while (0) + +/* XXX: no optimized variants yet */ +#define DUK_TVAL_SET_UNDEFINED_UPDREF DUK_TVAL_SET_UNDEFINED_UPDREF_ALT0 +#define DUK_TVAL_SET_UNDEFINED_UPDREF_NORZ DUK_TVAL_SET_UNDEFINED_UPDREF_NORZ_ALT0 +#define DUK_TVAL_SET_UNUSED_UPDREF DUK_TVAL_SET_UNUSED_UPDREF_ALT0 +#define DUK_TVAL_SET_NULL_UPDREF DUK_TVAL_SET_NULL_UPDREF_ALT0 +#define DUK_TVAL_SET_BOOLEAN_UPDREF DUK_TVAL_SET_BOOLEAN_UPDREF_ALT0 +#define DUK_TVAL_SET_NUMBER_UPDREF DUK_TVAL_SET_NUMBER_UPDREF_ALT0 +#define DUK_TVAL_SET_NUMBER_CHKFAST_UPDREF DUK_TVAL_SET_NUMBER_CHKFAST_UPDREF_ALT0 +#define DUK_TVAL_SET_DOUBLE_UPDREF DUK_TVAL_SET_DOUBLE_UPDREF_ALT0 +#define DUK_TVAL_SET_NAN_UPDREF DUK_TVAL_SET_NAN_UPDREF_ALT0 +#if defined(DUK_USE_FASTINT) +#define DUK_TVAL_SET_I48_UPDREF DUK_TVAL_SET_I48_UPDREF_ALT0 +#define DUK_TVAL_SET_I32_UPDREF DUK_TVAL_SET_I32_UPDREF_ALT0 +#define DUK_TVAL_SET_U32_UPDREF DUK_TVAL_SET_U32_UPDREF_ALT0 +#else +#define DUK_TVAL_SET_I48_UPDREF DUK_TVAL_SET_DOUBLE_CAST_UPDREF /* XXX: fast int-to-double */ +#define DUK_TVAL_SET_I32_UPDREF DUK_TVAL_SET_DOUBLE_CAST_UPDREF +#define DUK_TVAL_SET_U32_UPDREF DUK_TVAL_SET_DOUBLE_CAST_UPDREF +#endif /* DUK_USE_FASTINT */ +#define DUK_TVAL_SET_FASTINT_UPDREF DUK_TVAL_SET_I48_UPDREF /* convenience */ +#define DUK_TVAL_SET_LIGHTFUNC_UPDREF DUK_TVAL_SET_LIGHTFUNC_UPDREF_ALT0 +#define DUK_TVAL_SET_STRING_UPDREF DUK_TVAL_SET_STRING_UPDREF_ALT0 +#define DUK_TVAL_SET_OBJECT_UPDREF DUK_TVAL_SET_OBJECT_UPDREF_ALT0 +#define DUK_TVAL_SET_BUFFER_UPDREF DUK_TVAL_SET_BUFFER_UPDREF_ALT0 +#define DUK_TVAL_SET_POINTER_UPDREF DUK_TVAL_SET_POINTER_UPDREF_ALT0 + +#if defined(DUK_USE_FAST_REFCOUNT_DEFAULT) +/* Optimized for speed. */ +#define DUK_TVAL_SET_TVAL_UPDREF DUK_TVAL_SET_TVAL_UPDREF_ALT1 +#define DUK_TVAL_SET_TVAL_UPDREF_FAST DUK_TVAL_SET_TVAL_UPDREF_ALT1 +#define DUK_TVAL_SET_TVAL_UPDREF_SLOW DUK_TVAL_SET_TVAL_UPDREF_ALT0 +#else +/* Optimized for size. */ +#define DUK_TVAL_SET_TVAL_UPDREF DUK_TVAL_SET_TVAL_UPDREF_ALT0 +#define DUK_TVAL_SET_TVAL_UPDREF_FAST DUK_TVAL_SET_TVAL_UPDREF_ALT0 +#define DUK_TVAL_SET_TVAL_UPDREF_SLOW DUK_TVAL_SET_TVAL_UPDREF_ALT0 +#endif + +#else /* DUK_USE_REFERENCE_COUNTING */ + +#define DUK_TVAL_NEEDS_REFCOUNT_UPDATE(tv) 0 +#define DUK_HEAPHDR_NEEDS_REFCOUNT_UPDATE(h) 0 + +#define DUK_TVAL_INCREF_FAST(thr,v) do {} while (0) /* nop */ +#define DUK_TVAL_DECREF_FAST(thr,v) do {} while (0) /* nop */ +#define DUK_TVAL_DECREF_NORZ_FAST(thr,v) do {} while (0) /* nop */ +#define DUK_TVAL_INCREF_SLOW(thr,v) do {} while (0) /* nop */ +#define DUK_TVAL_DECREF_SLOW(thr,v) do {} while (0) /* nop */ +#define DUK_TVAL_DECREF_NORZ_SLOW(thr,v) do {} while (0) /* nop */ +#define DUK_TVAL_INCREF(thr,v) do {} while (0) /* nop */ +#define DUK_TVAL_DECREF(thr,v) do {} while (0) /* nop */ +#define DUK_TVAL_DECREF_NORZ(thr,v) do {} while (0) /* nop */ +#define DUK_HEAPHDR_INCREF_FAST(thr,h) do {} while (0) /* nop */ +#define DUK_HEAPHDR_DECREF_FAST(thr,h) do {} while (0) /* nop */ +#define DUK_HEAPHDR_DECREF_NORZ_FAST(thr,h) do {} while (0) /* nop */ +#define DUK_HEAPHDR_INCREF_SLOW(thr,h) do {} while (0) /* nop */ +#define DUK_HEAPHDR_DECREF_SLOW(thr,h) do {} while (0) /* nop */ +#define DUK_HEAPHDR_DECREF_NORZ_SLOW(thr,h) do {} while (0) /* nop */ +#define DUK_HEAPHDR_INCREF(thr,h) do {} while (0) /* nop */ +#define DUK_HEAPHDR_DECREF(thr,h) do {} while (0) /* nop */ +#define DUK_HEAPHDR_DECREF_NORZ(thr,h) do {} while (0) /* nop */ +#define DUK_HSTRING_INCREF_FAST(thr,h) do {} while (0) /* nop */ +#define DUK_HSTRING_DECREF_FAST(thr,h) do {} while (0) /* nop */ +#define DUK_HSTRING_DECREF_NORZ_FAST(thr,h) do {} while (0) /* nop */ +#define DUK_HSTRING_INCREF_SLOW(thr,h) do {} while (0) /* nop */ +#define DUK_HSTRING_DECREF_SLOW(thr,h) do {} while (0) /* nop */ +#define DUK_HSTRING_DECREF_NORZ_SLOW(thr,h) do {} while (0) /* nop */ +#define DUK_HSTRING_INCREF(thr,h) do {} while (0) /* nop */ +#define DUK_HSTRING_DECREF(thr,h) do {} while (0) /* nop */ +#define DUK_HSTRING_DECREF_NORZ(thr,h) do {} while (0) /* nop */ +#define DUK_HOBJECT_INCREF_FAST(thr,h) do {} while (0) /* nop */ +#define DUK_HOBJECT_DECREF_FAST(thr,h) do {} while (0) /* nop */ +#define DUK_HOBJECT_DECREF_NORZ_FAST(thr,h) do {} while (0) /* nop */ +#define DUK_HOBJECT_INCREF_SLOW(thr,h) do {} while (0) /* nop */ +#define DUK_HOBJECT_DECREF_SLOW(thr,h) do {} while (0) /* nop */ +#define DUK_HOBJECT_DECREF_NORZ_SLOW(thr,h) do {} while (0) /* nop */ +#define DUK_HOBJECT_INCREF(thr,h) do {} while (0) /* nop */ +#define DUK_HOBJECT_DECREF(thr,h) do {} while (0) /* nop */ +#define DUK_HOBJECT_DECREF_NORZ(thr,h) do {} while (0) /* nop */ +#define DUK_HBUFFER_INCREF_FAST(thr,h) do {} while (0) /* nop */ +#define DUK_HBUFFER_DECREF_FAST(thr,h) do {} while (0) /* nop */ +#define DUK_HBUFFER_DECREF_NORZ_FAST(thr,h) do {} while (0) /* nop */ +#define DUK_HBUFFER_INCREF_SLOW(thr,h) do {} while (0) /* nop */ +#define DUK_HBUFFER_DECREF_SLOW(thr,h) do {} while (0) /* nop */ +#define DUK_HBUFFER_DECREF_NORZ_SLOW(thr,h) do {} while (0) /* nop */ +#define DUK_HBUFFER_INCREF(thr,h) do {} while (0) /* nop */ +#define DUK_HBUFFER_DECREF(thr,h) do {} while (0) /* nop */ +#define DUK_HBUFFER_DECREF_NORZ(thr,h) do {} while (0) /* nop */ + +#define DUK_HCOMPFUNC_INCREF(thr,h) do {} while (0) /* nop */ +#define DUK_HCOMPFUNC_DECREF(thr,h) do {} while (0) /* nop */ +#define DUK_HCOMPFUNC_DECREF_NORZ(thr,h) do {} while (0) /* nop */ +#define DUK_HNATFUNC_INCREF(thr,h) do {} while (0) /* nop */ +#define DUK_HNATFUNC_DECREF(thr,h) do {} while (0) /* nop */ +#define DUK_HNATFUNC_DECREF_NORZ(thr,h) do {} while (0) /* nop */ +#define DUK_HBUFOBJ_INCREF(thr,h) do {} while (0) /* nop */ +#define DUK_HBUFOBJ_DECREF(thr,h) do {} while (0) /* nop */ +#define DUK_HBUFOBJ_DECREF_NORZ(thr,h) do {} while (0) /* nop */ +#define DUK_HTHREAD_INCREF(thr,h) do {} while (0) /* nop */ +#define DUK_HTHREAD_DECREF(thr,h) do {} while (0) /* nop */ +#define DUK_HTHREAD_DECREF_NORZ(thr,h) do {} while (0) /* nop */ +#define DUK_HOBJECT_INCREF_ALLOWNULL(thr,h) do {} while (0) /* nop */ +#define DUK_HOBJECT_DECREF_ALLOWNULL(thr,h) do {} while (0) /* nop */ +#define DUK_HOBJECT_DECREF_NORZ_ALLOWNULL(thr,h) do {} while (0) /* nop */ +#define DUK_HBUFFER_INCREF_ALLOWNULL(thr,h) do {} while (0) /* nop */ +#define DUK_HBUFFER_DECREF_ALLOWNULL(thr,h) do {} while (0) /* nop */ +#define DUK_HBUFFER_DECREF_NORZ_ALLOWNULL(thr,h) do {} while (0) /* nop */ + +#define DUK_REFZERO_CHECK_FAST(thr) do {} while (0) /* nop */ +#define DUK_REFZERO_CHECK_SLOW(thr) do {} while (0) /* nop */ + +#define DUK_TVAL_SET_UNDEFINED_UPDREF_ALT0(thr,tvptr_dst) do { \ + duk_tval *tv__dst; tv__dst = (tvptr_dst); \ + DUK_TVAL_SET_UNDEFINED(tv__dst); \ + DUK_UNREF((thr)); \ + } while (0) + +#define DUK_TVAL_SET_UNUSED_UPDREF_ALT0(thr,tvptr_dst) do { \ + duk_tval *tv__dst; tv__dst = (tvptr_dst); \ + DUK_TVAL_SET_UNUSED(tv__dst); \ + DUK_UNREF((thr)); \ + } while (0) + +#define DUK_TVAL_SET_NULL_UPDREF_ALT0(thr,tvptr_dst) do { \ + duk_tval *tv__dst; tv__dst = (tvptr_dst); \ + DUK_TVAL_SET_NULL(tv__dst); \ + DUK_UNREF((thr)); \ + } while (0) + +#define DUK_TVAL_SET_BOOLEAN_UPDREF_ALT0(thr,tvptr_dst,newval) do { \ + duk_tval *tv__dst; tv__dst = (tvptr_dst); \ + DUK_TVAL_SET_BOOLEAN(tv__dst, (newval)); \ + DUK_UNREF((thr)); \ + } while (0) + +#define DUK_TVAL_SET_NUMBER_UPDREF_ALT0(thr,tvptr_dst,newval) do { \ + duk_tval *tv__dst; tv__dst = (tvptr_dst); \ + DUK_TVAL_SET_NUMBER(tv__dst, (newval)); \ + DUK_UNREF((thr)); \ + } while (0) +#define DUK_TVAL_SET_NUMBER_CHKFAST_UPDREF_ALT0(thr,tvptr_dst,newval) do { \ + duk_tval *tv__dst; tv__dst = (tvptr_dst); \ + DUK_TVAL_SET_NUMBER_CHKFAST_FAST(tv__dst, (newval)); \ + DUK_UNREF((thr)); \ + } while (0) +#define DUK_TVAL_SET_DOUBLE_UPDREF_ALT0(thr,tvptr_dst,newval) do { \ + duk_tval *tv__dst; tv__dst = (tvptr_dst); \ + DUK_TVAL_SET_DOUBLE(tv__dst, (newval)); \ + DUK_UNREF((thr)); \ + } while (0) +#define DUK_TVAL_SET_NAN_UPDREF_ALT0(thr,tvptr_dst) do { \ + duk_tval *tv__dst; tv__dst = (tvptr_dst); \ + DUK_TVAL_SET_NAN(tv__dst); \ + DUK_UNREF((thr)); \ + } while (0) +#if defined(DUK_USE_FASTINT) +#define DUK_TVAL_SET_I48_UPDREF_ALT0(thr,tvptr_dst,newval) do { \ + duk_tval *tv__dst; tv__dst = (tvptr_dst); \ + DUK_TVAL_SET_I48(tv__dst, (newval)); \ + DUK_UNREF((thr)); \ + } while (0) +#define DUK_TVAL_SET_I32_UPDREF_ALT0(thr,tvptr_dst,newval) do { \ + duk_tval *tv__dst; tv__dst = (tvptr_dst); \ + DUK_TVAL_SET_I32(tv__dst, (newval)); \ + DUK_UNREF((thr)); \ + } while (0) +#define DUK_TVAL_SET_U32_UPDREF_ALT0(thr,tvptr_dst,newval) do { \ + duk_tval *tv__dst; tv__dst = (tvptr_dst); \ + DUK_TVAL_SET_U32(tv__dst, (newval)); \ + DUK_UNREF((thr)); \ + } while (0) +#else +#define DUK_TVAL_SET_DOUBLE_CAST_UPDREF(thr,tvptr_dst,newval) \ + DUK_TVAL_SET_DOUBLE_UPDREF((thr), (tvptr_dst), (duk_double_t) (newval)) +#endif /* DUK_USE_FASTINT */ + +#define DUK_TVAL_SET_LIGHTFUNC_UPDREF_ALT0(thr,tvptr_dst,lf_v,lf_fp,lf_flags) do { \ + duk_tval *tv__dst; tv__dst = (tvptr_dst); \ + DUK_TVAL_SET_LIGHTFUNC(tv__dst, (lf_v), (lf_fp), (lf_flags)); \ + DUK_UNREF((thr)); \ + } while (0) + +#define DUK_TVAL_SET_STRING_UPDREF_ALT0(thr,tvptr_dst,newval) do { \ + duk_tval *tv__dst; tv__dst = (tvptr_dst); \ + DUK_TVAL_SET_STRING(tv__dst, (newval)); \ + DUK_UNREF((thr)); \ + } while (0) + +#define DUK_TVAL_SET_OBJECT_UPDREF_ALT0(thr,tvptr_dst,newval) do { \ + duk_tval *tv__dst; tv__dst = (tvptr_dst); \ + DUK_TVAL_SET_OBJECT(tv__dst, (newval)); \ + DUK_UNREF((thr)); \ + } while (0) + +#define DUK_TVAL_SET_BUFFER_UPDREF_ALT0(thr,tvptr_dst,newval) do { \ + duk_tval *tv__dst; tv__dst = (tvptr_dst); \ + DUK_TVAL_SET_BUFFER(tv__dst, (newval)); \ + DUK_UNREF((thr)); \ + } while (0) + +#define DUK_TVAL_SET_POINTER_UPDREF_ALT0(thr,tvptr_dst,newval) do { \ + duk_tval *tv__dst; tv__dst = (tvptr_dst); \ + DUK_TVAL_SET_POINTER(tv__dst, (newval)); \ + DUK_UNREF((thr)); \ + } while (0) + +#define DUK_TVAL_SET_TVAL_UPDREF_ALT0(thr,tvptr_dst,tvptr_src) do { \ + duk_tval *tv__dst, *tv__src; \ + tv__dst = (tvptr_dst); tv__src = (tvptr_src); \ + DUK_TVAL_SET_TVAL(tv__dst, tv__src); \ + DUK_UNREF((thr)); \ + } while (0) + +#define DUK_TVAL_SET_UNDEFINED_UPDREF DUK_TVAL_SET_UNDEFINED_UPDREF_ALT0 +#define DUK_TVAL_SET_UNDEFINED_UPDREF_NORZ DUK_TVAL_SET_UNDEFINED_UPDREF_ALT0 +#define DUK_TVAL_SET_UNUSED_UPDREF DUK_TVAL_SET_UNUSED_UPDREF_ALT0 +#define DUK_TVAL_SET_NULL_UPDREF DUK_TVAL_SET_NULL_UPDREF_ALT0 +#define DUK_TVAL_SET_BOOLEAN_UPDREF DUK_TVAL_SET_BOOLEAN_UPDREF_ALT0 +#define DUK_TVAL_SET_NUMBER_UPDREF DUK_TVAL_SET_NUMBER_UPDREF_ALT0 +#define DUK_TVAL_SET_NUMBER_CHKFAST_UPDREF DUK_TVAL_SET_NUMBER_CHKFAST_UPDREF_ALT0 +#define DUK_TVAL_SET_DOUBLE_UPDREF DUK_TVAL_SET_DOUBLE_UPDREF_ALT0 +#define DUK_TVAL_SET_NAN_UPDREF DUK_TVAL_SET_NAN_UPDREF_ALT0 +#if defined(DUK_USE_FASTINT) +#define DUK_TVAL_SET_I48_UPDREF DUK_TVAL_SET_I48_UPDREF_ALT0 +#define DUK_TVAL_SET_I32_UPDREF DUK_TVAL_SET_I32_UPDREF_ALT0 +#define DUK_TVAL_SET_U32_UPDREF DUK_TVAL_SET_U32_UPDREF_ALT0 +#else +#define DUK_TVAL_SET_I48_UPDREF DUK_TVAL_SET_DOUBLE_CAST_UPDREF /* XXX: fast-int-to-double */ +#define DUK_TVAL_SET_I32_UPDREF DUK_TVAL_SET_DOUBLE_CAST_UPDREF +#define DUK_TVAL_SET_U32_UPDREF DUK_TVAL_SET_DOUBLE_CAST_UPDREF +#endif /* DUK_USE_FASTINT */ +#define DUK_TVAL_SET_FASTINT_UPDREF DUK_TVAL_SET_I48_UPDREF /* convenience */ +#define DUK_TVAL_SET_LIGHTFUNC_UPDREF DUK_TVAL_SET_LIGHTFUNC_UPDREF_ALT0 +#define DUK_TVAL_SET_STRING_UPDREF DUK_TVAL_SET_STRING_UPDREF_ALT0 +#define DUK_TVAL_SET_OBJECT_UPDREF DUK_TVAL_SET_OBJECT_UPDREF_ALT0 +#define DUK_TVAL_SET_BUFFER_UPDREF DUK_TVAL_SET_BUFFER_UPDREF_ALT0 +#define DUK_TVAL_SET_POINTER_UPDREF DUK_TVAL_SET_POINTER_UPDREF_ALT0 + +#define DUK_TVAL_SET_TVAL_UPDREF DUK_TVAL_SET_TVAL_UPDREF_ALT0 +#define DUK_TVAL_SET_TVAL_UPDREF_FAST DUK_TVAL_SET_TVAL_UPDREF_ALT0 +#define DUK_TVAL_SET_TVAL_UPDREF_SLOW DUK_TVAL_SET_TVAL_UPDREF_ALT0 + +#endif /* DUK_USE_REFERENCE_COUNTING */ + +/* + * Some convenience macros that don't have optimized implementations now. + */ + +#define DUK_TVAL_SET_TVAL_UPDREF_NORZ(thr,tv_dst,tv_src) do { \ + duk_hthread *duk__thr = (thr); \ + duk_tval *duk__dst = (tv_dst); \ + duk_tval *duk__src = (tv_src); \ + DUK_UNREF(duk__thr); \ + DUK_TVAL_DECREF_NORZ(thr, duk__dst); \ + DUK_TVAL_SET_TVAL(duk__dst, duk__src); \ + DUK_TVAL_INCREF(thr, duk__dst); \ + } while (0) + +#define DUK_TVAL_SET_U32_UPDREF_NORZ(thr,tv_dst,val) do { \ + duk_hthread *duk__thr = (thr); \ + duk_tval *duk__dst = (tv_dst); \ + duk_uint32_t duk__val = (duk_uint32_t) (val); \ + DUK_UNREF(duk__thr); \ + DUK_TVAL_DECREF_NORZ(thr, duk__dst); \ + DUK_TVAL_SET_U32(duk__dst, duk__val); \ + } while (0) + +/* + * Prototypes + */ + +#if defined(DUK_USE_REFERENCE_COUNTING) +#if defined(DUK_USE_FINALIZER_SUPPORT) +DUK_INTERNAL_DECL void duk_refzero_check_slow(duk_hthread *thr); +DUK_INTERNAL_DECL void duk_refzero_check_fast(duk_hthread *thr); +#endif +DUK_INTERNAL_DECL void duk_heaphdr_refcount_finalize_norz(duk_heap *heap, duk_heaphdr *hdr); +DUK_INTERNAL_DECL void duk_hobject_refcount_finalize_norz(duk_heap *heap, duk_hobject *h); +#if 0 /* Not needed: fast path handles inline; slow path uses duk_heaphdr_decref() which is needed anyway. */ +DUK_INTERNAL_DECL void duk_hstring_decref(duk_hthread *thr, duk_hstring *h); +DUK_INTERNAL_DECL void duk_hstring_decref_norz(duk_hthread *thr, duk_hstring *h); +DUK_INTERNAL_DECL void duk_hbuffer_decref(duk_hthread *thr, duk_hbuffer *h); +DUK_INTERNAL_DECL void duk_hbuffer_decref_norz(duk_hthread *thr, duk_hbuffer *h); +DUK_INTERNAL_DECL void duk_hobject_decref(duk_hthread *thr, duk_hobject *h); +DUK_INTERNAL_DECL void duk_hobject_decref_norz(duk_hthread *thr, duk_hobject *h); +#endif +DUK_INTERNAL_DECL void duk_heaphdr_refzero(duk_hthread *thr, duk_heaphdr *h); +DUK_INTERNAL_DECL void duk_heaphdr_refzero_norz(duk_hthread *thr, duk_heaphdr *h); +#if defined(DUK_USE_FAST_REFCOUNT_DEFAULT) +DUK_INTERNAL_DECL void duk_hstring_refzero(duk_hthread *thr, duk_hstring *h); /* no 'norz' variant */ +DUK_INTERNAL_DECL void duk_hbuffer_refzero(duk_hthread *thr, duk_hbuffer *h); /* no 'norz' variant */ +DUK_INTERNAL_DECL void duk_hobject_refzero(duk_hthread *thr, duk_hobject *h); +DUK_INTERNAL_DECL void duk_hobject_refzero_norz(duk_hthread *thr, duk_hobject *h); +#else +DUK_INTERNAL_DECL void duk_tval_incref(duk_tval *tv); +DUK_INTERNAL_DECL void duk_tval_decref(duk_hthread *thr, duk_tval *tv); +DUK_INTERNAL_DECL void duk_tval_decref_norz(duk_hthread *thr, duk_tval *tv); +DUK_INTERNAL_DECL void duk_heaphdr_incref(duk_heaphdr *h); +DUK_INTERNAL_DECL void duk_heaphdr_decref(duk_hthread *thr, duk_heaphdr *h); +DUK_INTERNAL_DECL void duk_heaphdr_decref_norz(duk_hthread *thr, duk_heaphdr *h); +#endif +#else /* DUK_USE_REFERENCE_COUNTING */ +/* no refcounting */ +#endif /* DUK_USE_REFERENCE_COUNTING */ + +#endif /* DUK_REFCOUNT_H_INCLUDED */ +/* #include duk_api_internal.h */ +#line 1 "duk_api_internal.h" +/* + * Internal API calls which have (stack and other) semantics similar + * to the public API. + */ + +#if !defined(DUK_API_INTERNAL_H_INCLUDED) +#define DUK_API_INTERNAL_H_INCLUDED + +/* Inline macro helpers. */ +#if defined(DUK_USE_PREFER_SIZE) +#define DUK_INLINE_PERF +#define DUK_ALWAYS_INLINE_PERF +#define DUK_NOINLINE_PERF +#else +#define DUK_INLINE_PERF DUK_INLINE +#define DUK_ALWAYS_INLINE_PERF DUK_ALWAYS_INLINE +#define DUK_NOINLINE_PERF DUK_NOINLINE +#endif + +/* Inline macro helpers, for bytecode executor. */ +#if defined(DUK_USE_EXEC_PREFER_SIZE) +#define DUK_EXEC_INLINE_PERF +#define DUK_EXEC_ALWAYS_INLINE_PERF +#define DUK_EXEC_NOINLINE_PERF +#else +#define DUK_EXEC_INLINE_PERF DUK_INLINE +#define DUK_EXEC_ALWAYS_INLINE_PERF DUK_ALWAYS_INLINE +#define DUK_EXEC_NOINLINE_PERF DUK_NOINLINE +#endif + +/* duk_push_sprintf constants */ +#define DUK_PUSH_SPRINTF_INITIAL_SIZE 256L +#define DUK_PUSH_SPRINTF_SANITY_LIMIT (1L * 1024L * 1024L * 1024L) + +/* Flag ORed to err_code to indicate __FILE__ / __LINE__ is not + * blamed as source of error for error fileName / lineNumber. + */ +#define DUK_ERRCODE_FLAG_NOBLAME_FILELINE (1L << 24) + +/* Current convention is to use duk_size_t for value stack sizes and global indices, + * and duk_idx_t for local frame indices. + */ +DUK_INTERNAL_DECL void duk_valstack_grow_check_throw(duk_hthread *thr, duk_size_t min_bytes); +DUK_INTERNAL_DECL duk_bool_t duk_valstack_grow_check_nothrow(duk_hthread *thr, duk_size_t min_bytes); +DUK_INTERNAL_DECL void duk_valstack_shrink_check_nothrow(duk_hthread *thr, duk_bool_t snug); + +DUK_INTERNAL_DECL void duk_copy_tvals_incref(duk_hthread *thr, duk_tval *tv_dst, duk_tval *tv_src, duk_size_t count); + +DUK_INTERNAL_DECL duk_tval *duk_reserve_gap(duk_hthread *thr, duk_idx_t idx_base, duk_idx_t count); + +DUK_INTERNAL_DECL void duk_set_top_unsafe(duk_hthread *thr, duk_idx_t idx); +DUK_INTERNAL_DECL void duk_set_top_and_wipe(duk_hthread *thr, duk_idx_t top, duk_idx_t idx_wipe_start); + +DUK_INTERNAL_DECL void duk_dup_0(duk_hthread *thr); +DUK_INTERNAL_DECL void duk_dup_1(duk_hthread *thr); +DUK_INTERNAL_DECL void duk_dup_2(duk_hthread *thr); +/* duk_dup_m1() would be same as duk_dup_top() */ +DUK_INTERNAL_DECL void duk_dup_m2(duk_hthread *thr); +DUK_INTERNAL_DECL void duk_dup_m3(duk_hthread *thr); +DUK_INTERNAL_DECL void duk_dup_m4(duk_hthread *thr); + +DUK_INTERNAL_DECL void duk_remove_unsafe(duk_hthread *thr, duk_idx_t idx); +DUK_INTERNAL_DECL void duk_remove_m2(duk_hthread *thr); +DUK_INTERNAL_DECL void duk_remove_n(duk_hthread *thr, duk_idx_t idx, duk_idx_t count); +DUK_INTERNAL_DECL void duk_remove_n_unsafe(duk_hthread *thr, duk_idx_t idx, duk_idx_t count); + +DUK_INTERNAL_DECL duk_int_t duk_get_type_tval(duk_tval *tv); +DUK_INTERNAL_DECL duk_uint_t duk_get_type_mask_tval(duk_tval *tv); + +#if defined(DUK_USE_VERBOSE_ERRORS) && defined(DUK_USE_PARANOID_ERRORS) +DUK_INTERNAL_DECL const char *duk_get_type_name(duk_hthread *thr, duk_idx_t idx); +#endif +DUK_INTERNAL_DECL duk_small_uint_t duk_get_class_number(duk_hthread *thr, duk_idx_t idx); + +DUK_INTERNAL_DECL duk_tval *duk_get_tval(duk_hthread *thr, duk_idx_t idx); +DUK_INTERNAL_DECL duk_tval *duk_get_tval_or_unused(duk_hthread *thr, duk_idx_t idx); +DUK_INTERNAL_DECL duk_tval *duk_require_tval(duk_hthread *thr, duk_idx_t idx); +DUK_INTERNAL_DECL void duk_push_tval(duk_hthread *thr, duk_tval *tv); + +/* Push the current 'this' binding; throw TypeError if binding is not object + * coercible (CheckObjectCoercible). + */ +DUK_INTERNAL_DECL void duk_push_this_check_object_coercible(duk_hthread *thr); + +/* duk_push_this() + CheckObjectCoercible() + duk_to_object() */ +DUK_INTERNAL_DECL duk_hobject *duk_push_this_coercible_to_object(duk_hthread *thr); + +/* duk_push_this() + CheckObjectCoercible() + duk_to_string() */ +DUK_INTERNAL_DECL duk_hstring *duk_push_this_coercible_to_string(duk_hthread *thr); + +DUK_INTERNAL_DECL duk_hstring *duk_push_uint_to_hstring(duk_hthread *thr, duk_uint_t i); + +/* Get a borrowed duk_tval pointer to the current 'this' binding. Caller must + * make sure there's an active callstack entry. Note that the returned pointer + * is unstable with regards to side effects. + */ +DUK_INTERNAL_DECL duk_tval *duk_get_borrowed_this_tval(duk_hthread *thr); + +/* XXX: add fastint support? */ +#define duk_push_u64(thr,val) \ + duk_push_number((thr), (duk_double_t) (val)) +#define duk_push_i64(thr,val) \ + duk_push_number((thr), (duk_double_t) (val)) + +/* duk_push_(u)int() is guaranteed to support at least (un)signed 32-bit range */ +#define duk_push_u32(thr,val) \ + duk_push_uint((thr), (duk_uint_t) (val)) +#define duk_push_i32(thr,val) \ + duk_push_int((thr), (duk_int_t) (val)) + +/* sometimes stack and array indices need to go on the stack */ +#define duk_push_idx(thr,val) \ + duk_push_int((thr), (duk_int_t) (val)) +#define duk_push_uarridx(thr,val) \ + duk_push_uint((thr), (duk_uint_t) (val)) +#define duk_push_size_t(thr,val) \ + duk_push_uint((thr), (duk_uint_t) (val)) /* XXX: assumed to fit for now */ + +DUK_INTERNAL_DECL duk_bool_t duk_is_string_notsymbol(duk_hthread *thr, duk_idx_t idx); + +DUK_INTERNAL_DECL duk_bool_t duk_is_callable_tval(duk_hthread *thr, duk_tval *tv); + +DUK_INTERNAL_DECL duk_bool_t duk_is_bare_object(duk_hthread *thr, duk_idx_t idx); + +DUK_INTERNAL_DECL duk_hstring *duk_get_hstring(duk_hthread *thr, duk_idx_t idx); +DUK_INTERNAL_DECL duk_hstring *duk_get_hstring_notsymbol(duk_hthread *thr, duk_idx_t idx); +DUK_INTERNAL_DECL const char *duk_get_string_notsymbol(duk_hthread *thr, duk_idx_t idx); +DUK_INTERNAL_DECL duk_hobject *duk_get_hobject(duk_hthread *thr, duk_idx_t idx); +DUK_INTERNAL_DECL duk_hbuffer *duk_get_hbuffer(duk_hthread *thr, duk_idx_t idx); +DUK_INTERNAL_DECL duk_hthread *duk_get_hthread(duk_hthread *thr, duk_idx_t idx); +DUK_INTERNAL_DECL duk_hcompfunc *duk_get_hcompfunc(duk_hthread *thr, duk_idx_t idx); +DUK_INTERNAL_DECL duk_hnatfunc *duk_get_hnatfunc(duk_hthread *thr, duk_idx_t idx); + +DUK_INTERNAL_DECL void *duk_get_buffer_data_raw(duk_hthread *thr, duk_idx_t idx, duk_size_t *out_size, void *def_ptr, duk_size_t def_len, duk_bool_t throw_flag, duk_bool_t *out_isbuffer); + +DUK_INTERNAL_DECL duk_hobject *duk_get_hobject_with_class(duk_hthread *thr, duk_idx_t idx, duk_small_uint_t classnum); + +DUK_INTERNAL_DECL duk_hobject *duk_get_hobject_promote_mask(duk_hthread *thr, duk_idx_t idx, duk_uint_t type_mask); +DUK_INTERNAL_DECL duk_hobject *duk_require_hobject_promote_mask(duk_hthread *thr, duk_idx_t idx, duk_uint_t type_mask); +DUK_INTERNAL_DECL duk_hobject *duk_require_hobject_accept_mask(duk_hthread *thr, duk_idx_t idx, duk_uint_t type_mask); +#define duk_require_hobject_promote_lfunc(thr,idx) \ + duk_require_hobject_promote_mask((thr), (idx), DUK_TYPE_MASK_LIGHTFUNC) +#define duk_get_hobject_promote_lfunc(thr,idx) \ + duk_get_hobject_promote_mask((thr), (idx), DUK_TYPE_MASK_LIGHTFUNC) + +#if 0 /*unused*/ +DUK_INTERNAL_DECL void *duk_get_voidptr(duk_hthread *thr, duk_idx_t idx); +#endif + +DUK_INTERNAL_DECL duk_hstring *duk_known_hstring(duk_hthread *thr, duk_idx_t idx); +DUK_INTERNAL_DECL duk_hobject *duk_known_hobject(duk_hthread *thr, duk_idx_t idx); +DUK_INTERNAL_DECL duk_hbuffer *duk_known_hbuffer(duk_hthread *thr, duk_idx_t idx); +DUK_INTERNAL_DECL duk_hcompfunc *duk_known_hcompfunc(duk_hthread *thr, duk_idx_t idx); +DUK_INTERNAL_DECL duk_hnatfunc *duk_known_hnatfunc(duk_hthread *thr, duk_idx_t idx); + +DUK_INTERNAL_DECL duk_double_t duk_to_number_tval(duk_hthread *thr, duk_tval *tv); + +DUK_INTERNAL_DECL duk_hstring *duk_to_hstring(duk_hthread *thr, duk_idx_t idx); +DUK_INTERNAL_DECL duk_hstring *duk_to_hstring_m1(duk_hthread *thr); +DUK_INTERNAL_DECL duk_hstring *duk_to_hstring_acceptsymbol(duk_hthread *thr, duk_idx_t idx); + +DUK_INTERNAL_DECL duk_hobject *duk_to_hobject(duk_hthread *thr, duk_idx_t idx); + +DUK_INTERNAL_DECL duk_double_t duk_to_number_m1(duk_hthread *thr); +DUK_INTERNAL_DECL duk_double_t duk_to_number_m2(duk_hthread *thr); + +DUK_INTERNAL_DECL duk_bool_t duk_to_boolean_top_pop(duk_hthread *thr); + +#if defined(DUK_USE_DEBUGGER_SUPPORT) /* only needed by debugger for now */ +DUK_INTERNAL_DECL duk_hstring *duk_safe_to_hstring(duk_hthread *thr, duk_idx_t idx); +#endif +DUK_INTERNAL_DECL void duk_push_class_string_tval(duk_hthread *thr, duk_tval *tv, duk_bool_t avoid_side_effects); + +DUK_INTERNAL_DECL duk_int_t duk_to_int_clamped_raw(duk_hthread *thr, duk_idx_t idx, duk_int_t minval, duk_int_t maxval, duk_bool_t *out_clamped); /* out_clamped=NULL, RangeError if outside range */ +DUK_INTERNAL_DECL duk_int_t duk_to_int_clamped(duk_hthread *thr, duk_idx_t idx, duk_int_t minval, duk_int_t maxval); +DUK_INTERNAL_DECL duk_int_t duk_to_int_check_range(duk_hthread *thr, duk_idx_t idx, duk_int_t minval, duk_int_t maxval); +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) +DUK_INTERNAL_DECL duk_uint8_t duk_to_uint8clamped(duk_hthread *thr, duk_idx_t idx); +#endif +DUK_INTERNAL_DECL duk_hstring *duk_to_property_key_hstring(duk_hthread *thr, duk_idx_t idx); + +DUK_INTERNAL_DECL duk_hstring *duk_require_hstring(duk_hthread *thr, duk_idx_t idx); +DUK_INTERNAL_DECL duk_hstring *duk_require_hstring_notsymbol(duk_hthread *thr, duk_idx_t idx); +DUK_INTERNAL_DECL const char *duk_require_lstring_notsymbol(duk_hthread *thr, duk_idx_t idx, duk_size_t *out_len); +DUK_INTERNAL_DECL const char *duk_require_string_notsymbol(duk_hthread *thr, duk_idx_t idx); +DUK_INTERNAL_DECL duk_hobject *duk_require_hobject(duk_hthread *thr, duk_idx_t idx); +DUK_INTERNAL_DECL duk_hbuffer *duk_require_hbuffer(duk_hthread *thr, duk_idx_t idx); +DUK_INTERNAL_DECL duk_hthread *duk_require_hthread(duk_hthread *thr, duk_idx_t idx); +DUK_INTERNAL_DECL duk_hcompfunc *duk_require_hcompfunc(duk_hthread *thr, duk_idx_t idx); +DUK_INTERNAL_DECL duk_hnatfunc *duk_require_hnatfunc(duk_hthread *thr, duk_idx_t idx); + +DUK_INTERNAL_DECL duk_hobject *duk_require_hobject_with_class(duk_hthread *thr, duk_idx_t idx, duk_small_uint_t classnum); + +DUK_INTERNAL_DECL void duk_push_hstring(duk_hthread *thr, duk_hstring *h); +DUK_INTERNAL_DECL void duk_push_hstring_stridx(duk_hthread *thr, duk_small_uint_t stridx); +DUK_INTERNAL_DECL void duk_push_hstring_empty(duk_hthread *thr); +DUK_INTERNAL_DECL void duk_push_hobject(duk_hthread *thr, duk_hobject *h); +DUK_INTERNAL_DECL void duk_push_hbuffer(duk_hthread *thr, duk_hbuffer *h); +#define duk_push_hthread(thr,h) \ + duk_push_hobject((thr), (duk_hobject *) (h)) +#define duk_push_hnatfunc(thr,h) \ + duk_push_hobject((thr), (duk_hobject *) (h)) +DUK_INTERNAL_DECL void duk_push_hobject_bidx(duk_hthread *thr, duk_small_int_t builtin_idx); +DUK_INTERNAL_DECL duk_hobject *duk_push_object_helper(duk_hthread *thr, duk_uint_t hobject_flags_and_class, duk_small_int_t prototype_bidx); +DUK_INTERNAL_DECL duk_hobject *duk_push_object_helper_proto(duk_hthread *thr, duk_uint_t hobject_flags_and_class, duk_hobject *proto); +DUK_INTERNAL_DECL duk_hcompfunc *duk_push_hcompfunc(duk_hthread *thr); +DUK_INTERNAL_DECL duk_hboundfunc *duk_push_hboundfunc(duk_hthread *thr); +DUK_INTERNAL_DECL void duk_push_c_function_builtin(duk_hthread *thr, duk_c_function func, duk_int_t nargs); +DUK_INTERNAL_DECL void duk_push_c_function_builtin_noconstruct(duk_hthread *thr, duk_c_function func, duk_int_t nargs); + +/* XXX: duk_push_harray() and duk_push_hcompfunc() are inconsistent with + * duk_push_hobject() etc which don't create a new value. + */ +DUK_INTERNAL_DECL duk_harray *duk_push_harray(duk_hthread *thr); +DUK_INTERNAL_DECL duk_harray *duk_push_harray_with_size(duk_hthread *thr, duk_uint32_t size); +DUK_INTERNAL_DECL duk_tval *duk_push_harray_with_size_outptr(duk_hthread *thr, duk_uint32_t size); + +DUK_INTERNAL_DECL void duk_push_string_funcptr(duk_hthread *thr, duk_uint8_t *ptr, duk_size_t sz); +DUK_INTERNAL_DECL void duk_push_lightfunc_name_raw(duk_hthread *thr, duk_c_function func, duk_small_uint_t lf_flags); +DUK_INTERNAL_DECL void duk_push_lightfunc_name(duk_hthread *thr, duk_tval *tv); +DUK_INTERNAL_DECL void duk_push_lightfunc_tostring(duk_hthread *thr, duk_tval *tv); +#if 0 /* not used yet */ +DUK_INTERNAL_DECL void duk_push_hnatfunc_name(duk_hthread *thr, duk_hnatfunc *h); +#endif +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) +DUK_INTERNAL_DECL duk_hbufobj *duk_push_bufobj_raw(duk_hthread *thr, duk_uint_t hobject_flags_and_class, duk_small_int_t prototype_bidx); +#endif + +DUK_INTERNAL_DECL void *duk_push_fixed_buffer_nozero(duk_hthread *thr, duk_size_t len); +DUK_INTERNAL_DECL void *duk_push_fixed_buffer_zero(duk_hthread *thr, duk_size_t len); + +DUK_INTERNAL_DECL const char *duk_push_string_readable(duk_hthread *thr, duk_idx_t idx); +DUK_INTERNAL_DECL const char *duk_push_string_tval_readable(duk_hthread *thr, duk_tval *tv); +DUK_INTERNAL_DECL const char *duk_push_string_tval_readable_error(duk_hthread *thr, duk_tval *tv); + +/* The duk_xxx_prop_stridx_short() variants expect their arguments to be short + * enough to be packed into a single 32-bit integer argument. Argument limits + * vary per call; typically 16 bits are assigned to the signed value stack index + * and the stridx. In practice these work well for footprint with constant + * arguments and such call sites are also easiest to verify to be correct. + */ + +DUK_INTERNAL_DECL duk_bool_t duk_get_prop_stridx(duk_hthread *thr, duk_idx_t obj_idx, duk_small_uint_t stridx); /* [] -> [val] */ +DUK_INTERNAL_DECL duk_bool_t duk_get_prop_stridx_short_raw(duk_hthread *thr, duk_uint_t packed_args); +#define duk_get_prop_stridx_short(thr,obj_idx,stridx) \ + (DUK_ASSERT_EXPR((duk_int_t) (obj_idx) >= -0x8000L && (duk_int_t) (obj_idx) <= 0x7fffL), \ + DUK_ASSERT_EXPR((duk_int_t) (stridx) >= 0 && (duk_int_t) (stridx) <= 0xffffL), \ + duk_get_prop_stridx_short_raw((thr), (((duk_uint_t) (obj_idx)) << 16) + ((duk_uint_t) (stridx)))) +DUK_INTERNAL_DECL duk_bool_t duk_get_prop_stridx_boolean(duk_hthread *thr, duk_idx_t obj_idx, duk_small_uint_t stridx, duk_bool_t *out_has_prop); /* [] -> [] */ + +DUK_INTERNAL_DECL duk_bool_t duk_xget_owndataprop(duk_hthread *thr, duk_idx_t obj_idx); +DUK_INTERNAL_DECL duk_bool_t duk_xget_owndataprop_stridx(duk_hthread *thr, duk_idx_t obj_idx, duk_small_uint_t stridx); +DUK_INTERNAL_DECL duk_bool_t duk_xget_owndataprop_stridx_short_raw(duk_hthread *thr, duk_uint_t packed_args); +#define duk_xget_owndataprop_stridx_short(thr,obj_idx,stridx) \ + (DUK_ASSERT_EXPR((duk_int_t) (obj_idx) >= -0x8000L && (duk_int_t) (obj_idx) <= 0x7fffL), \ + DUK_ASSERT_EXPR((duk_int_t) (stridx) >= 0 && (duk_int_t) (stridx) <= 0xffffL), \ + duk_xget_owndataprop_stridx_short_raw((thr), (((duk_uint_t) (obj_idx)) << 16) + ((duk_uint_t) (stridx)))) + +DUK_INTERNAL_DECL duk_bool_t duk_put_prop_stridx(duk_hthread *thr, duk_idx_t obj_idx, duk_small_uint_t stridx); /* [val] -> [] */ +DUK_INTERNAL_DECL duk_bool_t duk_put_prop_stridx_short_raw(duk_hthread *thr, duk_uint_t packed_args); +#define duk_put_prop_stridx_short(thr,obj_idx,stridx) \ + (DUK_ASSERT_EXPR((duk_int_t) (obj_idx) >= -0x8000L && (duk_int_t) (obj_idx) <= 0x7fffL), \ + DUK_ASSERT_EXPR((duk_int_t) (stridx) >= 0 && (duk_int_t) (stridx) <= 0xffffL), \ + duk_put_prop_stridx_short_raw((thr), (((duk_uint_t) (obj_idx)) << 16) + ((duk_uint_t) (stridx)))) + +DUK_INTERNAL_DECL duk_bool_t duk_del_prop_stridx(duk_hthread *thr, duk_idx_t obj_idx, duk_small_uint_t stridx); /* [] -> [] */ +#if 0 /* Too few call sites to be useful. */ +DUK_INTERNAL_DECL duk_bool_t duk_del_prop_stridx_short_raw(duk_hthread *thr, duk_uint_t packed_args); +#define duk_del_prop_stridx_short(thr,obj_idx,stridx) \ + (DUK_ASSERT_EXPR((obj_idx) >= -0x8000L && (obj_idx) <= 0x7fffL), \ + DUK_ASSERT_EXPR((stridx) >= 0 && (stridx) <= 0xffffL), \ + duk_del_prop_stridx_short_raw((thr), (((duk_uint_t) (obj_idx)) << 16) + ((duk_uint_t) (stridx)))) +#endif +#define duk_del_prop_stridx_short(thr,obj_idx,stridx) \ + duk_del_prop_stridx((thr), (obj_idx), (stridx)) + +DUK_INTERNAL_DECL duk_bool_t duk_has_prop_stridx(duk_hthread *thr, duk_idx_t obj_idx, duk_small_uint_t stridx); /* [] -> [] */ +#if 0 /* Too few call sites to be useful. */ +DUK_INTERNAL_DECL duk_bool_t duk_has_prop_stridx_short_raw(duk_hthread *thr, duk_uint_t packed_args); +#define duk_has_prop_stridx_short(thr,obj_idx,stridx) \ + (DUK_ASSERT_EXPR((obj_idx) >= -0x8000L && (obj_idx) <= 0x7fffL), \ + DUK_ASSERT_EXPR((stridx) >= 0 && (stridx) <= 0xffffL), \ + duk_has_prop_stridx_short_raw((thr), (((duk_uint_t) (obj_idx)) << 16) + ((duk_uint_t) (stridx)))) +#endif +#define duk_has_prop_stridx_short(thr,obj_idx,stridx) \ + duk_has_prop_stridx((thr), (obj_idx), (stridx)) + +DUK_INTERNAL_DECL void duk_xdef_prop(duk_hthread *thr, duk_idx_t obj_idx, duk_small_uint_t desc_flags); /* [key val] -> [] */ + +DUK_INTERNAL_DECL void duk_xdef_prop_index(duk_hthread *thr, duk_idx_t obj_idx, duk_uarridx_t arr_idx, duk_small_uint_t desc_flags); /* [val] -> [] */ + +/* XXX: Because stridx and desc_flags have a limited range, this call could + * always pack stridx and desc_flags into a single argument. + */ +DUK_INTERNAL_DECL void duk_xdef_prop_stridx(duk_hthread *thr, duk_idx_t obj_idx, duk_small_uint_t stridx, duk_small_uint_t desc_flags); /* [val] -> [] */ +DUK_INTERNAL_DECL void duk_xdef_prop_stridx_short_raw(duk_hthread *thr, duk_uint_t packed_args); +#define duk_xdef_prop_stridx_short(thr,obj_idx,stridx,desc_flags) \ + (DUK_ASSERT_EXPR((duk_int_t) (obj_idx) >= -0x80L && (duk_int_t) (obj_idx) <= 0x7fL), \ + DUK_ASSERT_EXPR((duk_int_t) (stridx) >= 0 && (duk_int_t) (stridx) <= 0xffffL), \ + DUK_ASSERT_EXPR((duk_int_t) (desc_flags) >= 0 && (duk_int_t) (desc_flags) <= 0xffL), \ + duk_xdef_prop_stridx_short_raw((thr), (((duk_uint_t) (obj_idx)) << 24) + (((duk_uint_t) (stridx)) << 8) + (duk_uint_t) (desc_flags))) + +#define duk_xdef_prop_wec(thr,obj_idx) \ + duk_xdef_prop((thr), (obj_idx), DUK_PROPDESC_FLAGS_WEC) +#define duk_xdef_prop_index_wec(thr,obj_idx,arr_idx) \ + duk_xdef_prop_index((thr), (obj_idx), (arr_idx), DUK_PROPDESC_FLAGS_WEC) +#define duk_xdef_prop_stridx_wec(thr,obj_idx,stridx) \ + duk_xdef_prop_stridx((thr), (obj_idx), (stridx), DUK_PROPDESC_FLAGS_WEC) +#define duk_xdef_prop_stridx_short_wec(thr,obj_idx,stridx) \ + duk_xdef_prop_stridx_short((thr), (obj_idx), (stridx), DUK_PROPDESC_FLAGS_WEC) + +#if 0 /*unused*/ +DUK_INTERNAL_DECL void duk_xdef_prop_stridx_builtin(duk_hthread *thr, duk_idx_t obj_idx, duk_small_uint_t stridx, duk_small_int_t builtin_idx, duk_small_uint_t desc_flags); /* [] -> [] */ +#endif + +DUK_INTERNAL_DECL void duk_xdef_prop_stridx_thrower(duk_hthread *thr, duk_idx_t obj_idx, duk_small_uint_t stridx); /* [] -> [] */ + +DUK_INTERNAL_DECL duk_bool_t duk_get_method_stridx(duk_hthread *thr, duk_idx_t idx, duk_small_uint_t stridx); + +DUK_INTERNAL_DECL void duk_pack(duk_hthread *thr, duk_idx_t count); +DUK_INTERNAL_DECL duk_idx_t duk_unpack_array_like(duk_hthread *thr, duk_idx_t idx); +#if 0 +DUK_INTERNAL_DECL void duk_unpack(duk_hthread *thr); +#endif + +DUK_INTERNAL_DECL void duk_push_symbol_descriptive_string(duk_hthread *thr, duk_hstring *h); + +DUK_INTERNAL_DECL void duk_resolve_nonbound_function(duk_hthread *thr); + +DUK_INTERNAL_DECL duk_idx_t duk_get_top_require_min(duk_hthread *thr, duk_idx_t min_top); +DUK_INTERNAL_DECL duk_idx_t duk_get_top_index_unsafe(duk_hthread *thr); + +DUK_INTERNAL_DECL void duk_pop_n_unsafe(duk_hthread *thr, duk_idx_t count); +DUK_INTERNAL_DECL void duk_pop_unsafe(duk_hthread *thr); +DUK_INTERNAL_DECL void duk_pop_2_unsafe(duk_hthread *thr); +DUK_INTERNAL_DECL void duk_pop_3_unsafe(duk_hthread *thr); +DUK_INTERNAL_DECL void duk_pop_n_nodecref_unsafe(duk_hthread *thr, duk_idx_t count); +DUK_INTERNAL_DECL void duk_pop_nodecref_unsafe(duk_hthread *thr); +DUK_INTERNAL_DECL void duk_pop_2_nodecref_unsafe(duk_hthread *thr); +DUK_INTERNAL_DECL void duk_pop_3_nodecref_unsafe(duk_hthread *thr); +DUK_INTERNAL_DECL void duk_pop_undefined(duk_hthread *thr); + +DUK_INTERNAL_DECL void duk_compact_m1(duk_hthread *thr); + +DUK_INTERNAL_DECL void duk_seal_freeze_raw(duk_hthread *thr, duk_idx_t obj_idx, duk_bool_t is_freeze); + +DUK_INTERNAL_DECL void duk_insert_undefined(duk_hthread *thr, duk_idx_t idx); +DUK_INTERNAL_DECL void duk_insert_undefined_n(duk_hthread *thr, duk_idx_t idx, duk_idx_t count); + +DUK_INTERNAL_DECL void duk_concat_2(duk_hthread *thr); + +DUK_INTERNAL_DECL duk_int_t duk_pcall_method_flags(duk_hthread *thr, duk_idx_t nargs, duk_small_uint_t call_flags); + +#if defined(DUK_USE_SYMBOL_BUILTIN) +DUK_INTERNAL_DECL void duk_to_primitive_ordinary(duk_hthread *thr, duk_idx_t idx, duk_int_t hint); +#endif + +DUK_INTERNAL_DECL void duk_clear_prototype(duk_hthread *thr, duk_idx_t idx); + +/* Raw internal valstack access macros: access is unsafe so call site + * must have a guarantee that the index is valid. When that is the case, + * using these macro results in faster and smaller code than duk_get_tval(). + * Both 'ctx' and 'idx' are evaluted multiple times, but only for asserts. + */ +#define DUK_ASSERT_VALID_NEGIDX(thr,idx) \ + (DUK_ASSERT_EXPR((duk_int_t) (idx) < 0), DUK_ASSERT_EXPR(duk_is_valid_index((thr), (idx)))) +#define DUK_ASSERT_VALID_POSIDX(thr,idx) \ + (DUK_ASSERT_EXPR((duk_int_t) (idx) >= 0), DUK_ASSERT_EXPR(duk_is_valid_index((thr), (idx)))) +#define DUK_GET_TVAL_NEGIDX(thr,idx) \ + (DUK_ASSERT_VALID_NEGIDX((thr),(idx)), ((duk_hthread *) (thr))->valstack_top + (idx)) +#define DUK_GET_TVAL_POSIDX(thr,idx) \ + (DUK_ASSERT_VALID_POSIDX((thr),(idx)), ((duk_hthread *) (thr))->valstack_bottom + (idx)) +#define DUK_GET_HOBJECT_NEGIDX(thr,idx) \ + (DUK_ASSERT_VALID_NEGIDX((thr),(idx)), DUK_TVAL_GET_OBJECT(((duk_hthread *) (thr))->valstack_top + (idx))) +#define DUK_GET_HOBJECT_POSIDX(thr,idx) \ + (DUK_ASSERT_VALID_POSIDX((thr),(idx)), DUK_TVAL_GET_OBJECT(((duk_hthread *) (thr))->valstack_bottom + (idx))) + +#define DUK_GET_THIS_TVAL_PTR(thr) \ + (DUK_ASSERT_EXPR((thr)->valstack_bottom > (thr)->valstack), \ + (thr)->valstack_bottom - 1) + +DUK_INTERNAL_DECL duk_double_t duk_time_get_ecmascript_time(duk_hthread *thr); +DUK_INTERNAL_DECL duk_double_t duk_time_get_ecmascript_time_nofrac(duk_hthread *thr); +DUK_INTERNAL_DECL duk_double_t duk_time_get_monotonic_time(duk_hthread *thr); + +#endif /* DUK_API_INTERNAL_H_INCLUDED */ +/* #include duk_hstring.h */ +#line 1 "duk_hstring.h" +/* + * Heap string representation. + * + * Strings are byte sequences ordinarily stored in extended UTF-8 format, + * allowing values larger than the official UTF-8 range (used internally) + * and also allowing UTF-8 encoding of surrogate pairs (CESU-8 format). + * Strings may also be invalid UTF-8 altogether which is the case e.g. with + * strings used as internal property names and raw buffers converted to + * strings. In such cases the 'clen' field contains an inaccurate value. + * + * ECMAScript requires support for 32-bit long strings. However, since each + * 16-bit codepoint can take 3 bytes in CESU-8, this representation can only + * support about 1.4G codepoint long strings in extreme cases. This is not + * really a practical issue. + */ + +#if !defined(DUK_HSTRING_H_INCLUDED) +#define DUK_HSTRING_H_INCLUDED + +/* Impose a maximum string length for now. Restricted artificially to + * ensure adding a heap header length won't overflow size_t. The limit + * should be synchronized with DUK_HBUFFER_MAX_BYTELEN. + * + * E5.1 makes provisions to support strings longer than 4G characters. + * This limit should be eliminated on 64-bit platforms (and increased + * closer to maximum support on 32-bit platforms). + */ + +#if defined(DUK_USE_STRLEN16) +#define DUK_HSTRING_MAX_BYTELEN (0x0000ffffUL) +#else +#define DUK_HSTRING_MAX_BYTELEN (0x7fffffffUL) +#endif + +/* XXX: could add flags for "is valid CESU-8" (ECMAScript compatible strings), + * "is valid UTF-8", "is valid extended UTF-8" (internal strings are not, + * regexp bytecode is), and "contains non-BMP characters". These are not + * needed right now. + */ + +/* With lowmem builds the high 16 bits of duk_heaphdr are used for other + * purposes, so this leaves 7 duk_heaphdr flags and 9 duk_hstring flags. + */ +#define DUK_HSTRING_FLAG_ASCII DUK_HEAPHDR_USER_FLAG(0) /* string is ASCII, clen == blen */ +#define DUK_HSTRING_FLAG_ARRIDX DUK_HEAPHDR_USER_FLAG(1) /* string is a valid array index */ +#define DUK_HSTRING_FLAG_SYMBOL DUK_HEAPHDR_USER_FLAG(2) /* string is a symbol (invalid utf-8) */ +#define DUK_HSTRING_FLAG_HIDDEN DUK_HEAPHDR_USER_FLAG(3) /* string is a hidden symbol (implies symbol, Duktape 1.x internal string) */ +#define DUK_HSTRING_FLAG_RESERVED_WORD DUK_HEAPHDR_USER_FLAG(4) /* string is a reserved word (non-strict) */ +#define DUK_HSTRING_FLAG_STRICT_RESERVED_WORD DUK_HEAPHDR_USER_FLAG(5) /* string is a reserved word (strict) */ +#define DUK_HSTRING_FLAG_EVAL_OR_ARGUMENTS DUK_HEAPHDR_USER_FLAG(6) /* string is 'eval' or 'arguments' */ +#define DUK_HSTRING_FLAG_EXTDATA DUK_HEAPHDR_USER_FLAG(7) /* string data is external (duk_hstring_external) */ +#define DUK_HSTRING_FLAG_PINNED_LITERAL DUK_HEAPHDR_USER_FLAG(8) /* string is a literal, and pinned */ + +#define DUK_HSTRING_HAS_ASCII(x) DUK_HEAPHDR_CHECK_FLAG_BITS(&(x)->hdr, DUK_HSTRING_FLAG_ASCII) +#define DUK_HSTRING_HAS_ARRIDX(x) DUK_HEAPHDR_CHECK_FLAG_BITS(&(x)->hdr, DUK_HSTRING_FLAG_ARRIDX) +#define DUK_HSTRING_HAS_SYMBOL(x) DUK_HEAPHDR_CHECK_FLAG_BITS(&(x)->hdr, DUK_HSTRING_FLAG_SYMBOL) +#define DUK_HSTRING_HAS_HIDDEN(x) DUK_HEAPHDR_CHECK_FLAG_BITS(&(x)->hdr, DUK_HSTRING_FLAG_HIDDEN) +#define DUK_HSTRING_HAS_RESERVED_WORD(x) DUK_HEAPHDR_CHECK_FLAG_BITS(&(x)->hdr, DUK_HSTRING_FLAG_RESERVED_WORD) +#define DUK_HSTRING_HAS_STRICT_RESERVED_WORD(x) DUK_HEAPHDR_CHECK_FLAG_BITS(&(x)->hdr, DUK_HSTRING_FLAG_STRICT_RESERVED_WORD) +#define DUK_HSTRING_HAS_EVAL_OR_ARGUMENTS(x) DUK_HEAPHDR_CHECK_FLAG_BITS(&(x)->hdr, DUK_HSTRING_FLAG_EVAL_OR_ARGUMENTS) +#define DUK_HSTRING_HAS_EXTDATA(x) DUK_HEAPHDR_CHECK_FLAG_BITS(&(x)->hdr, DUK_HSTRING_FLAG_EXTDATA) +#define DUK_HSTRING_HAS_PINNED_LITERAL(x) DUK_HEAPHDR_CHECK_FLAG_BITS(&(x)->hdr, DUK_HSTRING_FLAG_PINNED_LITERAL) + +#define DUK_HSTRING_SET_ASCII(x) DUK_HEAPHDR_SET_FLAG_BITS(&(x)->hdr, DUK_HSTRING_FLAG_ASCII) +#define DUK_HSTRING_SET_ARRIDX(x) DUK_HEAPHDR_SET_FLAG_BITS(&(x)->hdr, DUK_HSTRING_FLAG_ARRIDX) +#define DUK_HSTRING_SET_SYMBOL(x) DUK_HEAPHDR_SET_FLAG_BITS(&(x)->hdr, DUK_HSTRING_FLAG_SYMBOL) +#define DUK_HSTRING_SET_HIDDEN(x) DUK_HEAPHDR_SET_FLAG_BITS(&(x)->hdr, DUK_HSTRING_FLAG_HIDDEN) +#define DUK_HSTRING_SET_RESERVED_WORD(x) DUK_HEAPHDR_SET_FLAG_BITS(&(x)->hdr, DUK_HSTRING_FLAG_RESERVED_WORD) +#define DUK_HSTRING_SET_STRICT_RESERVED_WORD(x) DUK_HEAPHDR_SET_FLAG_BITS(&(x)->hdr, DUK_HSTRING_FLAG_STRICT_RESERVED_WORD) +#define DUK_HSTRING_SET_EVAL_OR_ARGUMENTS(x) DUK_HEAPHDR_SET_FLAG_BITS(&(x)->hdr, DUK_HSTRING_FLAG_EVAL_OR_ARGUMENTS) +#define DUK_HSTRING_SET_EXTDATA(x) DUK_HEAPHDR_SET_FLAG_BITS(&(x)->hdr, DUK_HSTRING_FLAG_EXTDATA) +#define DUK_HSTRING_SET_PINNED_LITERAL(x) DUK_HEAPHDR_SET_FLAG_BITS(&(x)->hdr, DUK_HSTRING_FLAG_PINNED_LITERAL) + +#define DUK_HSTRING_CLEAR_ASCII(x) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(x)->hdr, DUK_HSTRING_FLAG_ASCII) +#define DUK_HSTRING_CLEAR_ARRIDX(x) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(x)->hdr, DUK_HSTRING_FLAG_ARRIDX) +#define DUK_HSTRING_CLEAR_SYMBOL(x) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(x)->hdr, DUK_HSTRING_FLAG_SYMBOL) +#define DUK_HSTRING_CLEAR_HIDDEN(x) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(x)->hdr, DUK_HSTRING_FLAG_HIDDEN) +#define DUK_HSTRING_CLEAR_RESERVED_WORD(x) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(x)->hdr, DUK_HSTRING_FLAG_RESERVED_WORD) +#define DUK_HSTRING_CLEAR_STRICT_RESERVED_WORD(x) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(x)->hdr, DUK_HSTRING_FLAG_STRICT_RESERVED_WORD) +#define DUK_HSTRING_CLEAR_EVAL_OR_ARGUMENTS(x) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(x)->hdr, DUK_HSTRING_FLAG_EVAL_OR_ARGUMENTS) +#define DUK_HSTRING_CLEAR_EXTDATA(x) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(x)->hdr, DUK_HSTRING_FLAG_EXTDATA) +#define DUK_HSTRING_CLEAR_PINNED_LITERAL(x) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(x)->hdr, DUK_HSTRING_FLAG_PINNED_LITERAL) + +#if 0 /* Slightly smaller code without explicit flag, but explicit flag + * is very useful when 'clen' is dropped. + */ +#define DUK_HSTRING_IS_ASCII(x) (DUK_HSTRING_GET_BYTELEN((x)) == DUK_HSTRING_GET_CHARLEN((x))) +#endif +#define DUK_HSTRING_IS_ASCII(x) DUK_HSTRING_HAS_ASCII((x)) /* lazily set! */ +#define DUK_HSTRING_IS_EMPTY(x) (DUK_HSTRING_GET_BYTELEN((x)) == 0) + +#if defined(DUK_USE_STRHASH16) +#define DUK_HSTRING_GET_HASH(x) ((x)->hdr.h_flags >> 16) +#define DUK_HSTRING_SET_HASH(x,v) do { \ + (x)->hdr.h_flags = ((x)->hdr.h_flags & 0x0000ffffUL) | ((v) << 16); \ + } while (0) +#else +#define DUK_HSTRING_GET_HASH(x) ((x)->hash) +#define DUK_HSTRING_SET_HASH(x,v) do { \ + (x)->hash = (v); \ + } while (0) +#endif + +#if defined(DUK_USE_STRLEN16) +#define DUK_HSTRING_GET_BYTELEN(x) ((x)->hdr.h_strextra16) +#define DUK_HSTRING_SET_BYTELEN(x,v) do { \ + (x)->hdr.h_strextra16 = (v); \ + } while (0) +#if defined(DUK_USE_HSTRING_CLEN) +#define DUK_HSTRING_GET_CHARLEN(x) duk_hstring_get_charlen((x)) +#define DUK_HSTRING_SET_CHARLEN(x,v) do { \ + (x)->clen16 = (v); \ + } while (0) +#else +#define DUK_HSTRING_GET_CHARLEN(x) duk_hstring_get_charlen((x)) +#define DUK_HSTRING_SET_CHARLEN(x,v) do { \ + DUK_ASSERT(0); /* should never be called */ \ + } while (0) +#endif +#else +#define DUK_HSTRING_GET_BYTELEN(x) ((x)->blen) +#define DUK_HSTRING_SET_BYTELEN(x,v) do { \ + (x)->blen = (v); \ + } while (0) +#define DUK_HSTRING_GET_CHARLEN(x) duk_hstring_get_charlen((x)) +#define DUK_HSTRING_SET_CHARLEN(x,v) do { \ + (x)->clen = (v); \ + } while (0) +#endif + +#if defined(DUK_USE_HSTRING_EXTDATA) +#define DUK_HSTRING_GET_EXTDATA(x) \ + ((x)->extdata) +#define DUK_HSTRING_GET_DATA(x) \ + (DUK_HSTRING_HAS_EXTDATA((x)) ? \ + DUK_HSTRING_GET_EXTDATA((const duk_hstring_external *) (x)) : ((const duk_uint8_t *) ((x) + 1))) +#else +#define DUK_HSTRING_GET_DATA(x) \ + ((const duk_uint8_t *) ((x) + 1)) +#endif + +#define DUK_HSTRING_GET_DATA_END(x) \ + (DUK_HSTRING_GET_DATA((x)) + (x)->blen) + +/* Marker value; in E5 2^32-1 is not a valid array index (2^32-2 is highest + * valid). + */ +#define DUK_HSTRING_NO_ARRAY_INDEX (0xffffffffUL) + +#if defined(DUK_USE_HSTRING_ARRIDX) +#define DUK_HSTRING_GET_ARRIDX_FAST(h) ((h)->arridx) +#define DUK_HSTRING_GET_ARRIDX_SLOW(h) ((h)->arridx) +#else +/* Get array index related to string (or return DUK_HSTRING_NO_ARRAY_INDEX); + * avoids helper call if string has no array index value. + */ +#define DUK_HSTRING_GET_ARRIDX_FAST(h) \ + (DUK_HSTRING_HAS_ARRIDX((h)) ? duk_js_to_arrayindex_hstring_fast_known((h)) : DUK_HSTRING_NO_ARRAY_INDEX) + +/* Slower but more compact variant. */ +#define DUK_HSTRING_GET_ARRIDX_SLOW(h) \ + (duk_js_to_arrayindex_hstring_fast((h))) +#endif + +/* XXX: these actually fit into duk_hstring */ +#define DUK_SYMBOL_TYPE_HIDDEN 0 +#define DUK_SYMBOL_TYPE_GLOBAL 1 +#define DUK_SYMBOL_TYPE_LOCAL 2 +#define DUK_SYMBOL_TYPE_WELLKNOWN 3 + +/* Assertion for duk_hstring validity. */ +#if defined(DUK_USE_ASSERTIONS) +DUK_INTERNAL_DECL void duk_hstring_assert_valid(duk_hstring *h); +#define DUK_HSTRING_ASSERT_VALID(h) do { duk_hstring_assert_valid((h)); } while (0) +#else +#define DUK_HSTRING_ASSERT_VALID(h) do {} while (0) +#endif + +/* + * Misc + */ + +struct duk_hstring { + /* Smaller heaphdr than for other objects, because strings are held + * in string intern table which requires no link pointers. Much of + * the 32-bit flags field is unused by flags, so we can stuff a 16-bit + * field in there. + */ + duk_heaphdr_string hdr; + + /* String hash. */ +#if defined(DUK_USE_STRHASH16) + /* If 16-bit hash is in use, stuff it into duk_heaphdr_string flags. */ +#else + duk_uint32_t hash; +#endif + + /* Precomputed array index (or DUK_HSTRING_NO_ARRAY_INDEX). */ +#if defined(DUK_USE_HSTRING_ARRIDX) + duk_uarridx_t arridx; +#endif + + /* Length in bytes (not counting NUL term). */ +#if defined(DUK_USE_STRLEN16) + /* placed in duk_heaphdr_string */ +#else + duk_uint32_t blen; +#endif + + /* Length in codepoints (must be E5 compatible). */ +#if defined(DUK_USE_STRLEN16) +#if defined(DUK_USE_HSTRING_CLEN) + duk_uint16_t clen16; +#else + /* computed live */ +#endif +#else + duk_uint32_t clen; +#endif + + /* + * String data of 'blen+1' bytes follows (+1 for NUL termination + * convenience for C API). No alignment needs to be guaranteed + * for strings, but fields above should guarantee alignment-by-4 + * (but not alignment-by-8). + */ +}; + +/* The external string struct is defined even when the feature is inactive. */ +struct duk_hstring_external { + duk_hstring str; + + /* + * For an external string, the NUL-terminated string data is stored + * externally. The user must guarantee that data behind this pointer + * doesn't change while it's used. + */ + + const duk_uint8_t *extdata; +}; + +/* + * Prototypes + */ + +DUK_INTERNAL_DECL duk_ucodepoint_t duk_hstring_char_code_at_raw(duk_hthread *thr, duk_hstring *h, duk_uint_t pos, duk_bool_t surrogate_aware); +DUK_INTERNAL_DECL duk_bool_t duk_hstring_equals_ascii_cstring(duk_hstring *h, const char *cstr); +DUK_INTERNAL_DECL duk_size_t duk_hstring_get_charlen(duk_hstring *h); +#if !defined(DUK_USE_HSTRING_LAZY_CLEN) +DUK_INTERNAL_DECL void duk_hstring_init_charlen(duk_hstring *h); +#endif + +#endif /* DUK_HSTRING_H_INCLUDED */ +/* #include duk_hobject.h */ +#line 1 "duk_hobject.h" +/* + * Heap object representation. + * + * Heap objects are used for ECMAScript objects, arrays, and functions, + * but also for internal control like declarative and object environment + * records. Compiled functions, native functions, and threads are also + * objects but with an extended C struct. + * + * Objects provide the required ECMAScript semantics and exotic behaviors + * especially for property access. + * + * Properties are stored in three conceptual parts: + * + * 1. A linear 'entry part' contains ordered key-value-attributes triples + * and is the main method of string properties. + * + * 2. An optional linear 'array part' is used for array objects to store a + * (dense) range of [0,N[ array indexed entries with default attributes + * (writable, enumerable, configurable). If the array part would become + * sparse or non-default attributes are required, the array part is + * abandoned and moved to the 'entry part'. + * + * 3. An optional 'hash part' is used to optimize lookups of the entry + * part; it is used only for objects with sufficiently many properties + * and can be abandoned without loss of information. + * + * These three conceptual parts are stored in a single memory allocated area. + * This minimizes memory allocation overhead but also means that all three + * parts are resized together, and makes property access a bit complicated. + */ + +#if !defined(DUK_HOBJECT_H_INCLUDED) +#define DUK_HOBJECT_H_INCLUDED + +/* Object flags. Make sure this stays in sync with debugger object + * inspection code. + */ + +/* XXX: some flags are object subtype specific (e.g. common to all function + * subtypes, duk_harray, etc) and could be reused for different subtypes. + */ +#define DUK_HOBJECT_FLAG_EXTENSIBLE DUK_HEAPHDR_USER_FLAG(0) /* object is extensible */ +#define DUK_HOBJECT_FLAG_CONSTRUCTABLE DUK_HEAPHDR_USER_FLAG(1) /* object is constructable */ +#define DUK_HOBJECT_FLAG_CALLABLE DUK_HEAPHDR_USER_FLAG(2) /* object is callable */ +#define DUK_HOBJECT_FLAG_BOUNDFUNC DUK_HEAPHDR_USER_FLAG(3) /* object established using Function.prototype.bind() */ +#define DUK_HOBJECT_FLAG_COMPFUNC DUK_HEAPHDR_USER_FLAG(4) /* object is a compiled function (duk_hcompfunc) */ +#define DUK_HOBJECT_FLAG_NATFUNC DUK_HEAPHDR_USER_FLAG(5) /* object is a native function (duk_hnatfunc) */ +#define DUK_HOBJECT_FLAG_BUFOBJ DUK_HEAPHDR_USER_FLAG(6) /* object is a buffer object (duk_hbufobj) (always exotic) */ +#define DUK_HOBJECT_FLAG_FASTREFS DUK_HEAPHDR_USER_FLAG(7) /* object has no fields needing DECREF/marking beyond base duk_hobject header */ +#define DUK_HOBJECT_FLAG_ARRAY_PART DUK_HEAPHDR_USER_FLAG(8) /* object has an array part (a_size may still be 0) */ +#define DUK_HOBJECT_FLAG_STRICT DUK_HEAPHDR_USER_FLAG(9) /* function: function object is strict */ +#define DUK_HOBJECT_FLAG_NOTAIL DUK_HEAPHDR_USER_FLAG(10) /* function: function must not be tail called */ +#define DUK_HOBJECT_FLAG_NEWENV DUK_HEAPHDR_USER_FLAG(11) /* function: create new environment when called (see duk_hcompfunc) */ +#define DUK_HOBJECT_FLAG_NAMEBINDING DUK_HEAPHDR_USER_FLAG(12) /* function: create binding for func name (function templates only, used for named function expressions) */ +#define DUK_HOBJECT_FLAG_CREATEARGS DUK_HEAPHDR_USER_FLAG(13) /* function: create an arguments object on function call */ +#define DUK_HOBJECT_FLAG_HAVE_FINALIZER DUK_HEAPHDR_USER_FLAG(14) /* object has a callable (own) finalizer property */ +#define DUK_HOBJECT_FLAG_EXOTIC_ARRAY DUK_HEAPHDR_USER_FLAG(15) /* 'Array' object, array length and index exotic behavior */ +#define DUK_HOBJECT_FLAG_EXOTIC_STRINGOBJ DUK_HEAPHDR_USER_FLAG(16) /* 'String' object, array index exotic behavior */ +#define DUK_HOBJECT_FLAG_EXOTIC_ARGUMENTS DUK_HEAPHDR_USER_FLAG(17) /* 'Arguments' object and has arguments exotic behavior (non-strict callee) */ +#define DUK_HOBJECT_FLAG_EXOTIC_PROXYOBJ DUK_HEAPHDR_USER_FLAG(18) /* 'Proxy' object */ +#define DUK_HOBJECT_FLAG_SPECIAL_CALL DUK_HEAPHDR_USER_FLAG(19) /* special casing in call behavior, for .call(), .apply(), etc. */ + +#define DUK_HOBJECT_FLAG_CLASS_BASE DUK_HEAPHDR_USER_FLAG_NUMBER(20) +#define DUK_HOBJECT_FLAG_CLASS_BITS 5 + +#define DUK_HOBJECT_GET_CLASS_NUMBER(h) \ + DUK_HEAPHDR_GET_FLAG_RANGE(&(h)->hdr, DUK_HOBJECT_FLAG_CLASS_BASE, DUK_HOBJECT_FLAG_CLASS_BITS) +#define DUK_HOBJECT_SET_CLASS_NUMBER(h,v) \ + DUK_HEAPHDR_SET_FLAG_RANGE(&(h)->hdr, DUK_HOBJECT_FLAG_CLASS_BASE, DUK_HOBJECT_FLAG_CLASS_BITS, (v)) + +#define DUK_HOBJECT_GET_CLASS_MASK(h) \ + (1UL << DUK_HEAPHDR_GET_FLAG_RANGE(&(h)->hdr, DUK_HOBJECT_FLAG_CLASS_BASE, DUK_HOBJECT_FLAG_CLASS_BITS)) + +/* Macro for creating flag initializer from a class number. + * Unsigned type cast is needed to avoid warnings about coercing + * a signed integer to an unsigned one; the largest class values + * have the highest bit (bit 31) set which causes this. + */ +#define DUK_HOBJECT_CLASS_AS_FLAGS(v) (((duk_uint_t) (v)) << DUK_HOBJECT_FLAG_CLASS_BASE) + +/* E5 Section 8.6.2 + custom classes */ +#define DUK_HOBJECT_CLASS_NONE 0 +#define DUK_HOBJECT_CLASS_OBJECT 1 +#define DUK_HOBJECT_CLASS_ARRAY 2 +#define DUK_HOBJECT_CLASS_FUNCTION 3 +#define DUK_HOBJECT_CLASS_ARGUMENTS 4 +#define DUK_HOBJECT_CLASS_BOOLEAN 5 +#define DUK_HOBJECT_CLASS_DATE 6 +#define DUK_HOBJECT_CLASS_ERROR 7 +#define DUK_HOBJECT_CLASS_JSON 8 +#define DUK_HOBJECT_CLASS_MATH 9 +#define DUK_HOBJECT_CLASS_NUMBER 10 +#define DUK_HOBJECT_CLASS_REGEXP 11 +#define DUK_HOBJECT_CLASS_STRING 12 +#define DUK_HOBJECT_CLASS_GLOBAL 13 +#define DUK_HOBJECT_CLASS_SYMBOL 14 +#define DUK_HOBJECT_CLASS_OBJENV 15 /* custom */ +#define DUK_HOBJECT_CLASS_DECENV 16 /* custom */ +#define DUK_HOBJECT_CLASS_POINTER 17 /* custom */ +#define DUK_HOBJECT_CLASS_THREAD 18 /* custom; implies DUK_HOBJECT_IS_THREAD */ +#define DUK_HOBJECT_CLASS_BUFOBJ_MIN 19 +#define DUK_HOBJECT_CLASS_ARRAYBUFFER 19 /* implies DUK_HOBJECT_IS_BUFOBJ */ +#define DUK_HOBJECT_CLASS_DATAVIEW 20 +#define DUK_HOBJECT_CLASS_INT8ARRAY 21 +#define DUK_HOBJECT_CLASS_UINT8ARRAY 22 +#define DUK_HOBJECT_CLASS_UINT8CLAMPEDARRAY 23 +#define DUK_HOBJECT_CLASS_INT16ARRAY 24 +#define DUK_HOBJECT_CLASS_UINT16ARRAY 25 +#define DUK_HOBJECT_CLASS_INT32ARRAY 26 +#define DUK_HOBJECT_CLASS_UINT32ARRAY 27 +#define DUK_HOBJECT_CLASS_FLOAT32ARRAY 28 +#define DUK_HOBJECT_CLASS_FLOAT64ARRAY 29 +#define DUK_HOBJECT_CLASS_BUFOBJ_MAX 29 +#define DUK_HOBJECT_CLASS_MAX 29 + +/* Class masks. */ +#define DUK_HOBJECT_CMASK_ALL ((1UL << (DUK_HOBJECT_CLASS_MAX + 1)) - 1UL) +#define DUK_HOBJECT_CMASK_NONE (1UL << DUK_HOBJECT_CLASS_NONE) +#define DUK_HOBJECT_CMASK_ARGUMENTS (1UL << DUK_HOBJECT_CLASS_ARGUMENTS) +#define DUK_HOBJECT_CMASK_ARRAY (1UL << DUK_HOBJECT_CLASS_ARRAY) +#define DUK_HOBJECT_CMASK_BOOLEAN (1UL << DUK_HOBJECT_CLASS_BOOLEAN) +#define DUK_HOBJECT_CMASK_DATE (1UL << DUK_HOBJECT_CLASS_DATE) +#define DUK_HOBJECT_CMASK_ERROR (1UL << DUK_HOBJECT_CLASS_ERROR) +#define DUK_HOBJECT_CMASK_FUNCTION (1UL << DUK_HOBJECT_CLASS_FUNCTION) +#define DUK_HOBJECT_CMASK_JSON (1UL << DUK_HOBJECT_CLASS_JSON) +#define DUK_HOBJECT_CMASK_MATH (1UL << DUK_HOBJECT_CLASS_MATH) +#define DUK_HOBJECT_CMASK_NUMBER (1UL << DUK_HOBJECT_CLASS_NUMBER) +#define DUK_HOBJECT_CMASK_OBJECT (1UL << DUK_HOBJECT_CLASS_OBJECT) +#define DUK_HOBJECT_CMASK_REGEXP (1UL << DUK_HOBJECT_CLASS_REGEXP) +#define DUK_HOBJECT_CMASK_STRING (1UL << DUK_HOBJECT_CLASS_STRING) +#define DUK_HOBJECT_CMASK_GLOBAL (1UL << DUK_HOBJECT_CLASS_GLOBAL) +#define DUK_HOBJECT_CMASK_SYMBOL (1UL << DUK_HOBJECT_CLASS_SYMBOL) +#define DUK_HOBJECT_CMASK_OBJENV (1UL << DUK_HOBJECT_CLASS_OBJENV) +#define DUK_HOBJECT_CMASK_DECENV (1UL << DUK_HOBJECT_CLASS_DECENV) +#define DUK_HOBJECT_CMASK_POINTER (1UL << DUK_HOBJECT_CLASS_POINTER) +#define DUK_HOBJECT_CMASK_ARRAYBUFFER (1UL << DUK_HOBJECT_CLASS_ARRAYBUFFER) +#define DUK_HOBJECT_CMASK_DATAVIEW (1UL << DUK_HOBJECT_CLASS_DATAVIEW) +#define DUK_HOBJECT_CMASK_INT8ARRAY (1UL << DUK_HOBJECT_CLASS_INT8ARRAY) +#define DUK_HOBJECT_CMASK_UINT8ARRAY (1UL << DUK_HOBJECT_CLASS_UINT8ARRAY) +#define DUK_HOBJECT_CMASK_UINT8CLAMPEDARRAY (1UL << DUK_HOBJECT_CLASS_UINT8CLAMPEDARRAY) +#define DUK_HOBJECT_CMASK_INT16ARRAY (1UL << DUK_HOBJECT_CLASS_INT16ARRAY) +#define DUK_HOBJECT_CMASK_UINT16ARRAY (1UL << DUK_HOBJECT_CLASS_UINT16ARRAY) +#define DUK_HOBJECT_CMASK_INT32ARRAY (1UL << DUK_HOBJECT_CLASS_INT32ARRAY) +#define DUK_HOBJECT_CMASK_UINT32ARRAY (1UL << DUK_HOBJECT_CLASS_UINT32ARRAY) +#define DUK_HOBJECT_CMASK_FLOAT32ARRAY (1UL << DUK_HOBJECT_CLASS_FLOAT32ARRAY) +#define DUK_HOBJECT_CMASK_FLOAT64ARRAY (1UL << DUK_HOBJECT_CLASS_FLOAT64ARRAY) + +#define DUK_HOBJECT_CMASK_ALL_BUFOBJS \ + (DUK_HOBJECT_CMASK_ARRAYBUFFER | \ + DUK_HOBJECT_CMASK_DATAVIEW | \ + DUK_HOBJECT_CMASK_INT8ARRAY | \ + DUK_HOBJECT_CMASK_UINT8ARRAY | \ + DUK_HOBJECT_CMASK_UINT8CLAMPEDARRAY | \ + DUK_HOBJECT_CMASK_INT16ARRAY | \ + DUK_HOBJECT_CMASK_UINT16ARRAY | \ + DUK_HOBJECT_CMASK_INT32ARRAY | \ + DUK_HOBJECT_CMASK_UINT32ARRAY | \ + DUK_HOBJECT_CMASK_FLOAT32ARRAY | \ + DUK_HOBJECT_CMASK_FLOAT64ARRAY) + +#define DUK_HOBJECT_IS_OBJENV(h) (DUK_HOBJECT_GET_CLASS_NUMBER((h)) == DUK_HOBJECT_CLASS_OBJENV) +#define DUK_HOBJECT_IS_DECENV(h) (DUK_HOBJECT_GET_CLASS_NUMBER((h)) == DUK_HOBJECT_CLASS_DECENV) +#define DUK_HOBJECT_IS_ENV(h) (DUK_HOBJECT_IS_OBJENV((h)) || DUK_HOBJECT_IS_DECENV((h))) +#define DUK_HOBJECT_IS_ARRAY(h) DUK_HOBJECT_HAS_EXOTIC_ARRAY((h)) /* Rely on class Array <=> exotic Array */ +#define DUK_HOBJECT_IS_BOUNDFUNC(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_BOUNDFUNC) +#define DUK_HOBJECT_IS_COMPFUNC(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_COMPFUNC) +#define DUK_HOBJECT_IS_NATFUNC(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_NATFUNC) +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) +#define DUK_HOBJECT_IS_BUFOBJ(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_BUFOBJ) +#else +#define DUK_HOBJECT_IS_BUFOBJ(h) 0 +#endif +#define DUK_HOBJECT_IS_THREAD(h) (DUK_HOBJECT_GET_CLASS_NUMBER((h)) == DUK_HOBJECT_CLASS_THREAD) +#if defined(DUK_USE_ES6_PROXY) +#define DUK_HOBJECT_IS_PROXY(h) DUK_HOBJECT_HAS_EXOTIC_PROXYOBJ((h)) +#else +#define DUK_HOBJECT_IS_PROXY(h) 0 +#endif + +#define DUK_HOBJECT_IS_NONBOUND_FUNCTION(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, \ + DUK_HOBJECT_FLAG_COMPFUNC | \ + DUK_HOBJECT_FLAG_NATFUNC) + +#define DUK_HOBJECT_IS_FUNCTION(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, \ + DUK_HOBJECT_FLAG_BOUNDFUNC | \ + DUK_HOBJECT_FLAG_COMPFUNC | \ + DUK_HOBJECT_FLAG_NATFUNC) + +#define DUK_HOBJECT_IS_CALLABLE(h) DUK_HOBJECT_HAS_CALLABLE((h)) + +/* Object has any exotic behavior(s). */ +#define DUK_HOBJECT_EXOTIC_BEHAVIOR_FLAGS (DUK_HOBJECT_FLAG_EXOTIC_ARRAY | \ + DUK_HOBJECT_FLAG_EXOTIC_ARGUMENTS | \ + DUK_HOBJECT_FLAG_EXOTIC_STRINGOBJ | \ + DUK_HOBJECT_FLAG_BUFOBJ | \ + DUK_HOBJECT_FLAG_EXOTIC_PROXYOBJ) +#define DUK_HOBJECT_HAS_EXOTIC_BEHAVIOR(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_EXOTIC_BEHAVIOR_FLAGS) + +/* Object has any virtual properties (not counting Proxy behavior). */ +#define DUK_HOBJECT_VIRTUAL_PROPERTY_FLAGS (DUK_HOBJECT_FLAG_EXOTIC_ARRAY | \ + DUK_HOBJECT_FLAG_EXOTIC_STRINGOBJ | \ + DUK_HOBJECT_FLAG_BUFOBJ) +#define DUK_HOBJECT_HAS_VIRTUAL_PROPERTIES(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_VIRTUAL_PROPERTY_FLAGS) + +#define DUK_HOBJECT_HAS_EXTENSIBLE(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_EXTENSIBLE) +#define DUK_HOBJECT_HAS_CONSTRUCTABLE(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_CONSTRUCTABLE) +#define DUK_HOBJECT_HAS_CALLABLE(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_CALLABLE) +#define DUK_HOBJECT_HAS_BOUNDFUNC(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_BOUNDFUNC) +#define DUK_HOBJECT_HAS_COMPFUNC(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_COMPFUNC) +#define DUK_HOBJECT_HAS_NATFUNC(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_NATFUNC) +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) +#define DUK_HOBJECT_HAS_BUFOBJ(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_BUFOBJ) +#else +#define DUK_HOBJECT_HAS_BUFOBJ(h) 0 +#endif +#define DUK_HOBJECT_HAS_FASTREFS(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_FASTREFS) +#define DUK_HOBJECT_HAS_ARRAY_PART(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_ARRAY_PART) +#define DUK_HOBJECT_HAS_STRICT(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_STRICT) +#define DUK_HOBJECT_HAS_NOTAIL(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_NOTAIL) +#define DUK_HOBJECT_HAS_NEWENV(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_NEWENV) +#define DUK_HOBJECT_HAS_NAMEBINDING(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_NAMEBINDING) +#define DUK_HOBJECT_HAS_CREATEARGS(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_CREATEARGS) +#define DUK_HOBJECT_HAS_HAVE_FINALIZER(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_HAVE_FINALIZER) +#define DUK_HOBJECT_HAS_EXOTIC_ARRAY(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_EXOTIC_ARRAY) +#define DUK_HOBJECT_HAS_EXOTIC_STRINGOBJ(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_EXOTIC_STRINGOBJ) +#define DUK_HOBJECT_HAS_EXOTIC_ARGUMENTS(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_EXOTIC_ARGUMENTS) +#if defined(DUK_USE_ES6_PROXY) +#define DUK_HOBJECT_HAS_EXOTIC_PROXYOBJ(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_EXOTIC_PROXYOBJ) +#else +#define DUK_HOBJECT_HAS_EXOTIC_PROXYOBJ(h) 0 +#endif +#define DUK_HOBJECT_HAS_SPECIAL_CALL(h) DUK_HEAPHDR_CHECK_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_SPECIAL_CALL) + +#define DUK_HOBJECT_SET_EXTENSIBLE(h) DUK_HEAPHDR_SET_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_EXTENSIBLE) +#define DUK_HOBJECT_SET_CONSTRUCTABLE(h) DUK_HEAPHDR_SET_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_CONSTRUCTABLE) +#define DUK_HOBJECT_SET_CALLABLE(h) DUK_HEAPHDR_SET_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_CALLABLE) +#define DUK_HOBJECT_SET_BOUNDFUNC(h) DUK_HEAPHDR_SET_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_BOUNDFUNC) +#define DUK_HOBJECT_SET_COMPFUNC(h) DUK_HEAPHDR_SET_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_COMPFUNC) +#define DUK_HOBJECT_SET_NATFUNC(h) DUK_HEAPHDR_SET_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_NATFUNC) +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) +#define DUK_HOBJECT_SET_BUFOBJ(h) DUK_HEAPHDR_SET_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_BUFOBJ) +#endif +#define DUK_HOBJECT_SET_FASTREFS(h) DUK_HEAPHDR_SET_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_FASTREFS) +#define DUK_HOBJECT_SET_ARRAY_PART(h) DUK_HEAPHDR_SET_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_ARRAY_PART) +#define DUK_HOBJECT_SET_STRICT(h) DUK_HEAPHDR_SET_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_STRICT) +#define DUK_HOBJECT_SET_NOTAIL(h) DUK_HEAPHDR_SET_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_NOTAIL) +#define DUK_HOBJECT_SET_NEWENV(h) DUK_HEAPHDR_SET_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_NEWENV) +#define DUK_HOBJECT_SET_NAMEBINDING(h) DUK_HEAPHDR_SET_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_NAMEBINDING) +#define DUK_HOBJECT_SET_CREATEARGS(h) DUK_HEAPHDR_SET_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_CREATEARGS) +#define DUK_HOBJECT_SET_HAVE_FINALIZER(h) DUK_HEAPHDR_SET_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_HAVE_FINALIZER) +#define DUK_HOBJECT_SET_EXOTIC_ARRAY(h) DUK_HEAPHDR_SET_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_EXOTIC_ARRAY) +#define DUK_HOBJECT_SET_EXOTIC_STRINGOBJ(h) DUK_HEAPHDR_SET_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_EXOTIC_STRINGOBJ) +#define DUK_HOBJECT_SET_EXOTIC_ARGUMENTS(h) DUK_HEAPHDR_SET_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_EXOTIC_ARGUMENTS) +#if defined(DUK_USE_ES6_PROXY) +#define DUK_HOBJECT_SET_EXOTIC_PROXYOBJ(h) DUK_HEAPHDR_SET_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_EXOTIC_PROXYOBJ) +#endif +#define DUK_HOBJECT_SET_SPECIAL_CALL(h) DUK_HEAPHDR_SET_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_SPECIAL_CALL) + +#define DUK_HOBJECT_CLEAR_EXTENSIBLE(h) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_EXTENSIBLE) +#define DUK_HOBJECT_CLEAR_CONSTRUCTABLE(h) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_CONSTRUCTABLE) +#define DUK_HOBJECT_CLEAR_CALLABLE(h) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_CALLABLE) +#define DUK_HOBJECT_CLEAR_BOUNDFUNC(h) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_BOUNDFUNC) +#define DUK_HOBJECT_CLEAR_COMPFUNC(h) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_COMPFUNC) +#define DUK_HOBJECT_CLEAR_NATFUNC(h) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_NATFUNC) +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) +#define DUK_HOBJECT_CLEAR_BUFOBJ(h) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_BUFOBJ) +#endif +#define DUK_HOBJECT_CLEAR_FASTREFS(h) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_FASTREFS) +#define DUK_HOBJECT_CLEAR_ARRAY_PART(h) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_ARRAY_PART) +#define DUK_HOBJECT_CLEAR_STRICT(h) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_STRICT) +#define DUK_HOBJECT_CLEAR_NOTAIL(h) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_NOTAIL) +#define DUK_HOBJECT_CLEAR_NEWENV(h) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_NEWENV) +#define DUK_HOBJECT_CLEAR_NAMEBINDING(h) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_NAMEBINDING) +#define DUK_HOBJECT_CLEAR_CREATEARGS(h) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_CREATEARGS) +#define DUK_HOBJECT_CLEAR_HAVE_FINALIZER(h) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_HAVE_FINALIZER) +#define DUK_HOBJECT_CLEAR_EXOTIC_ARRAY(h) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_EXOTIC_ARRAY) +#define DUK_HOBJECT_CLEAR_EXOTIC_STRINGOBJ(h) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_EXOTIC_STRINGOBJ) +#define DUK_HOBJECT_CLEAR_EXOTIC_ARGUMENTS(h) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_EXOTIC_ARGUMENTS) +#if defined(DUK_USE_ES6_PROXY) +#define DUK_HOBJECT_CLEAR_EXOTIC_PROXYOBJ(h) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_EXOTIC_PROXYOBJ) +#endif +#define DUK_HOBJECT_CLEAR_SPECIAL_CALL(h) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(h)->hdr, DUK_HOBJECT_FLAG_SPECIAL_CALL) + +/* Object can/cannot use FASTREFS, i.e. has no strong reference fields beyond + * duk_hobject base header. This is used just for asserts so doesn't need to + * be optimized. + */ +#define DUK_HOBJECT_PROHIBITS_FASTREFS(h) \ + (DUK_HOBJECT_IS_COMPFUNC((h)) || DUK_HOBJECT_IS_DECENV((h)) || DUK_HOBJECT_IS_OBJENV((h)) || \ + DUK_HOBJECT_IS_BUFOBJ((h)) || DUK_HOBJECT_IS_THREAD((h)) || DUK_HOBJECT_IS_PROXY((h)) || \ + DUK_HOBJECT_IS_BOUNDFUNC((h))) +#define DUK_HOBJECT_ALLOWS_FASTREFS(h) (!DUK_HOBJECT_PROHIBITS_FASTREFS((h))) + +/* Flags used for property attributes in duk_propdesc and packed flags. + * Must fit into 8 bits. + */ +#define DUK_PROPDESC_FLAG_WRITABLE (1U << 0) /* E5 Section 8.6.1 */ +#define DUK_PROPDESC_FLAG_ENUMERABLE (1U << 1) /* E5 Section 8.6.1 */ +#define DUK_PROPDESC_FLAG_CONFIGURABLE (1U << 2) /* E5 Section 8.6.1 */ +#define DUK_PROPDESC_FLAG_ACCESSOR (1U << 3) /* accessor */ +#define DUK_PROPDESC_FLAG_VIRTUAL (1U << 4) /* property is virtual: used in duk_propdesc, never stored + * (used by e.g. buffer virtual properties) + */ +#define DUK_PROPDESC_FLAGS_MASK (DUK_PROPDESC_FLAG_WRITABLE | \ + DUK_PROPDESC_FLAG_ENUMERABLE | \ + DUK_PROPDESC_FLAG_CONFIGURABLE | \ + DUK_PROPDESC_FLAG_ACCESSOR) + +/* Additional flags which are passed in the same flags argument as property + * flags but are not stored in object properties. + */ +#define DUK_PROPDESC_FLAG_NO_OVERWRITE (1U << 4) /* internal define property: skip write silently if exists */ + +/* Convenience defines for property attributes. */ +#define DUK_PROPDESC_FLAGS_NONE 0 +#define DUK_PROPDESC_FLAGS_W (DUK_PROPDESC_FLAG_WRITABLE) +#define DUK_PROPDESC_FLAGS_E (DUK_PROPDESC_FLAG_ENUMERABLE) +#define DUK_PROPDESC_FLAGS_C (DUK_PROPDESC_FLAG_CONFIGURABLE) +#define DUK_PROPDESC_FLAGS_WE (DUK_PROPDESC_FLAG_WRITABLE | DUK_PROPDESC_FLAG_ENUMERABLE) +#define DUK_PROPDESC_FLAGS_WC (DUK_PROPDESC_FLAG_WRITABLE | DUK_PROPDESC_FLAG_CONFIGURABLE) +#define DUK_PROPDESC_FLAGS_EC (DUK_PROPDESC_FLAG_ENUMERABLE | DUK_PROPDESC_FLAG_CONFIGURABLE) +#define DUK_PROPDESC_FLAGS_WEC (DUK_PROPDESC_FLAG_WRITABLE | \ + DUK_PROPDESC_FLAG_ENUMERABLE | \ + DUK_PROPDESC_FLAG_CONFIGURABLE) + +/* Flags for duk_hobject_get_own_propdesc() and variants. */ +#define DUK_GETDESC_FLAG_PUSH_VALUE (1U << 0) /* push value to stack */ +#define DUK_GETDESC_FLAG_IGNORE_PROTOLOOP (1U << 1) /* don't throw for prototype loop */ + +/* + * Macro for object validity check + * + * Assert for currently guaranteed relations between flags, for instance. + */ + +#if defined(DUK_USE_ASSERTIONS) +DUK_INTERNAL_DECL void duk_hobject_assert_valid(duk_hobject *h); +#define DUK_HOBJECT_ASSERT_VALID(h) do { duk_hobject_assert_valid((h)); } while (0) +#else +#define DUK_HOBJECT_ASSERT_VALID(h) do {} while (0) +#endif + +/* + * Macros to access the 'props' allocation. + */ + +#if defined(DUK_USE_HEAPPTR16) +#define DUK_HOBJECT_GET_PROPS(heap,h) \ + ((duk_uint8_t *) DUK_USE_HEAPPTR_DEC16((heap)->heap_udata, ((duk_heaphdr *) (h))->h_extra16)) +#define DUK_HOBJECT_SET_PROPS(heap,h,x) do { \ + ((duk_heaphdr *) (h))->h_extra16 = DUK_USE_HEAPPTR_ENC16((heap)->heap_udata, (void *) (x)); \ + } while (0) +#else +#define DUK_HOBJECT_GET_PROPS(heap,h) \ + ((h)->props) +#define DUK_HOBJECT_SET_PROPS(heap,h,x) do { \ + (h)->props = (duk_uint8_t *) (x); \ + } while (0) +#endif + +#if defined(DUK_USE_HOBJECT_LAYOUT_1) +/* LAYOUT 1 */ +#define DUK_HOBJECT_E_GET_KEY_BASE(heap,h) \ + ((duk_hstring **) (void *) ( \ + DUK_HOBJECT_GET_PROPS((heap), (h)) \ + )) +#define DUK_HOBJECT_E_GET_VALUE_BASE(heap,h) \ + ((duk_propvalue *) (void *) ( \ + DUK_HOBJECT_GET_PROPS((heap), (h)) + \ + DUK_HOBJECT_GET_ESIZE((h)) * sizeof(duk_hstring *) \ + )) +#define DUK_HOBJECT_E_GET_FLAGS_BASE(heap,h) \ + ((duk_uint8_t *) (void *) ( \ + DUK_HOBJECT_GET_PROPS((heap), (h)) + DUK_HOBJECT_GET_ESIZE((h)) * (sizeof(duk_hstring *) + sizeof(duk_propvalue)) \ + )) +#define DUK_HOBJECT_A_GET_BASE(heap,h) \ + ((duk_tval *) (void *) ( \ + DUK_HOBJECT_GET_PROPS((heap), (h)) + \ + DUK_HOBJECT_GET_ESIZE((h)) * (sizeof(duk_hstring *) + sizeof(duk_propvalue) + sizeof(duk_uint8_t)) \ + )) +#define DUK_HOBJECT_H_GET_BASE(heap,h) \ + ((duk_uint32_t *) (void *) ( \ + DUK_HOBJECT_GET_PROPS((heap), (h)) + \ + DUK_HOBJECT_GET_ESIZE((h)) * (sizeof(duk_hstring *) + sizeof(duk_propvalue) + sizeof(duk_uint8_t)) + \ + DUK_HOBJECT_GET_ASIZE((h)) * sizeof(duk_tval) \ + )) +#define DUK_HOBJECT_P_COMPUTE_SIZE(n_ent,n_arr,n_hash) \ + ( \ + (n_ent) * (sizeof(duk_hstring *) + sizeof(duk_propvalue) + sizeof(duk_uint8_t)) + \ + (n_arr) * sizeof(duk_tval) + \ + (n_hash) * sizeof(duk_uint32_t) \ + ) +#define DUK_HOBJECT_P_SET_REALLOC_PTRS(p_base,set_e_k,set_e_pv,set_e_f,set_a,set_h,n_ent,n_arr,n_hash) do { \ + (set_e_k) = (duk_hstring **) (void *) (p_base); \ + (set_e_pv) = (duk_propvalue *) (void *) ((set_e_k) + (n_ent)); \ + (set_e_f) = (duk_uint8_t *) (void *) ((set_e_pv) + (n_ent)); \ + (set_a) = (duk_tval *) (void *) ((set_e_f) + (n_ent)); \ + (set_h) = (duk_uint32_t *) (void *) ((set_a) + (n_arr)); \ + } while (0) +#elif defined(DUK_USE_HOBJECT_LAYOUT_2) +/* LAYOUT 2 */ +#if (DUK_USE_ALIGN_BY == 4) +#define DUK_HOBJECT_E_FLAG_PADDING(e_sz) ((4 - (e_sz)) & 0x03) +#elif (DUK_USE_ALIGN_BY == 8) +#define DUK_HOBJECT_E_FLAG_PADDING(e_sz) ((8 - (e_sz)) & 0x07) +#elif (DUK_USE_ALIGN_BY == 1) +#define DUK_HOBJECT_E_FLAG_PADDING(e_sz) 0 +#else +#error invalid DUK_USE_ALIGN_BY +#endif +#define DUK_HOBJECT_E_GET_KEY_BASE(heap,h) \ + ((duk_hstring **) (void *) ( \ + DUK_HOBJECT_GET_PROPS((heap), (h)) + \ + DUK_HOBJECT_GET_ESIZE((h)) * sizeof(duk_propvalue) \ + )) +#define DUK_HOBJECT_E_GET_VALUE_BASE(heap,h) \ + ((duk_propvalue *) (void *) ( \ + DUK_HOBJECT_GET_PROPS((heap), (h)) \ + )) +#define DUK_HOBJECT_E_GET_FLAGS_BASE(heap,h) \ + ((duk_uint8_t *) (void *) ( \ + DUK_HOBJECT_GET_PROPS((heap), (h)) + DUK_HOBJECT_GET_ESIZE((h)) * (sizeof(duk_hstring *) + sizeof(duk_propvalue)) \ + )) +#define DUK_HOBJECT_A_GET_BASE(heap,h) \ + ((duk_tval *) (void *) ( \ + DUK_HOBJECT_GET_PROPS((heap), (h)) + \ + DUK_HOBJECT_GET_ESIZE((h)) * (sizeof(duk_hstring *) + sizeof(duk_propvalue) + sizeof(duk_uint8_t)) + \ + DUK_HOBJECT_E_FLAG_PADDING(DUK_HOBJECT_GET_ESIZE((h))) \ + )) +#define DUK_HOBJECT_H_GET_BASE(heap,h) \ + ((duk_uint32_t *) (void *) ( \ + DUK_HOBJECT_GET_PROPS((heap), (h)) + \ + DUK_HOBJECT_GET_ESIZE((h)) * (sizeof(duk_hstring *) + sizeof(duk_propvalue) + sizeof(duk_uint8_t)) + \ + DUK_HOBJECT_E_FLAG_PADDING(DUK_HOBJECT_GET_ESIZE((h))) + \ + DUK_HOBJECT_GET_ASIZE((h)) * sizeof(duk_tval) \ + )) +#define DUK_HOBJECT_P_COMPUTE_SIZE(n_ent,n_arr,n_hash) \ + ( \ + (n_ent) * (sizeof(duk_hstring *) + sizeof(duk_propvalue) + sizeof(duk_uint8_t)) + \ + DUK_HOBJECT_E_FLAG_PADDING((n_ent)) + \ + (n_arr) * sizeof(duk_tval) + \ + (n_hash) * sizeof(duk_uint32_t) \ + ) +#define DUK_HOBJECT_P_SET_REALLOC_PTRS(p_base,set_e_k,set_e_pv,set_e_f,set_a,set_h,n_ent,n_arr,n_hash) do { \ + (set_e_pv) = (duk_propvalue *) (void *) (p_base); \ + (set_e_k) = (duk_hstring **) (void *) ((set_e_pv) + (n_ent)); \ + (set_e_f) = (duk_uint8_t *) (void *) ((set_e_k) + (n_ent)); \ + (set_a) = (duk_tval *) (void *) (((duk_uint8_t *) (set_e_f)) + \ + sizeof(duk_uint8_t) * (n_ent) + \ + DUK_HOBJECT_E_FLAG_PADDING((n_ent))); \ + (set_h) = (duk_uint32_t *) (void *) ((set_a) + (n_arr)); \ + } while (0) +#elif defined(DUK_USE_HOBJECT_LAYOUT_3) +/* LAYOUT 3 */ +#define DUK_HOBJECT_E_GET_KEY_BASE(heap,h) \ + ((duk_hstring **) (void *) ( \ + DUK_HOBJECT_GET_PROPS((heap), (h)) + \ + DUK_HOBJECT_GET_ESIZE((h)) * sizeof(duk_propvalue) + \ + DUK_HOBJECT_GET_ASIZE((h)) * sizeof(duk_tval) \ + )) +#define DUK_HOBJECT_E_GET_VALUE_BASE(heap,h) \ + ((duk_propvalue *) (void *) ( \ + DUK_HOBJECT_GET_PROPS((heap), (h)) \ + )) +#define DUK_HOBJECT_E_GET_FLAGS_BASE(heap,h) \ + ((duk_uint8_t *) (void *) ( \ + DUK_HOBJECT_GET_PROPS((heap), (h)) + \ + DUK_HOBJECT_GET_ESIZE((h)) * (sizeof(duk_propvalue) + sizeof(duk_hstring *)) + \ + DUK_HOBJECT_GET_ASIZE((h)) * sizeof(duk_tval) + \ + DUK_HOBJECT_GET_HSIZE((h)) * sizeof(duk_uint32_t) \ + )) +#define DUK_HOBJECT_A_GET_BASE(heap,h) \ + ((duk_tval *) (void *) ( \ + DUK_HOBJECT_GET_PROPS((heap), (h)) + \ + DUK_HOBJECT_GET_ESIZE((h)) * sizeof(duk_propvalue) \ + )) +#define DUK_HOBJECT_H_GET_BASE(heap,h) \ + ((duk_uint32_t *) (void *) ( \ + DUK_HOBJECT_GET_PROPS((heap), (h)) + \ + DUK_HOBJECT_GET_ESIZE((h)) * (sizeof(duk_propvalue) + sizeof(duk_hstring *)) + \ + DUK_HOBJECT_GET_ASIZE((h)) * sizeof(duk_tval) \ + )) +#define DUK_HOBJECT_P_COMPUTE_SIZE(n_ent,n_arr,n_hash) \ + ( \ + (n_ent) * (sizeof(duk_propvalue) + sizeof(duk_hstring *) + sizeof(duk_uint8_t)) + \ + (n_arr) * sizeof(duk_tval) + \ + (n_hash) * sizeof(duk_uint32_t) \ + ) +#define DUK_HOBJECT_P_SET_REALLOC_PTRS(p_base,set_e_k,set_e_pv,set_e_f,set_a,set_h,n_ent,n_arr,n_hash) do { \ + (set_e_pv) = (duk_propvalue *) (void *) (p_base); \ + (set_a) = (duk_tval *) (void *) ((set_e_pv) + (n_ent)); \ + (set_e_k) = (duk_hstring **) (void *) ((set_a) + (n_arr)); \ + (set_h) = (duk_uint32_t *) (void *) ((set_e_k) + (n_ent)); \ + (set_e_f) = (duk_uint8_t *) (void *) ((set_h) + (n_hash)); \ + } while (0) +#else +#error invalid hobject layout defines +#endif /* hobject property layout */ + +#define DUK_HOBJECT_P_ALLOC_SIZE(h) \ + DUK_HOBJECT_P_COMPUTE_SIZE(DUK_HOBJECT_GET_ESIZE((h)), DUK_HOBJECT_GET_ASIZE((h)), DUK_HOBJECT_GET_HSIZE((h))) + +#define DUK_HOBJECT_E_GET_KEY(heap,h,i) (DUK_HOBJECT_E_GET_KEY_BASE((heap), (h))[(i)]) +#define DUK_HOBJECT_E_GET_KEY_PTR(heap,h,i) (&DUK_HOBJECT_E_GET_KEY_BASE((heap), (h))[(i)]) +#define DUK_HOBJECT_E_GET_VALUE(heap,h,i) (DUK_HOBJECT_E_GET_VALUE_BASE((heap), (h))[(i)]) +#define DUK_HOBJECT_E_GET_VALUE_PTR(heap,h,i) (&DUK_HOBJECT_E_GET_VALUE_BASE((heap), (h))[(i)]) +#define DUK_HOBJECT_E_GET_VALUE_TVAL(heap,h,i) (DUK_HOBJECT_E_GET_VALUE((heap), (h), (i)).v) +#define DUK_HOBJECT_E_GET_VALUE_TVAL_PTR(heap,h,i) (&DUK_HOBJECT_E_GET_VALUE((heap), (h), (i)).v) +#define DUK_HOBJECT_E_GET_VALUE_GETTER(heap,h,i) (DUK_HOBJECT_E_GET_VALUE((heap), (h), (i)).a.get) +#define DUK_HOBJECT_E_GET_VALUE_GETTER_PTR(heap,h,i) (&DUK_HOBJECT_E_GET_VALUE((heap), (h), (i)).a.get) +#define DUK_HOBJECT_E_GET_VALUE_SETTER(heap,h,i) (DUK_HOBJECT_E_GET_VALUE((heap), (h), (i)).a.set) +#define DUK_HOBJECT_E_GET_VALUE_SETTER_PTR(heap,h,i) (&DUK_HOBJECT_E_GET_VALUE((heap), (h), (i)).a.set) +#define DUK_HOBJECT_E_GET_FLAGS(heap,h,i) (DUK_HOBJECT_E_GET_FLAGS_BASE((heap), (h))[(i)]) +#define DUK_HOBJECT_E_GET_FLAGS_PTR(heap,h,i) (&DUK_HOBJECT_E_GET_FLAGS_BASE((heap), (h))[(i)]) +#define DUK_HOBJECT_A_GET_VALUE(heap,h,i) (DUK_HOBJECT_A_GET_BASE((heap), (h))[(i)]) +#define DUK_HOBJECT_A_GET_VALUE_PTR(heap,h,i) (&DUK_HOBJECT_A_GET_BASE((heap), (h))[(i)]) +#define DUK_HOBJECT_H_GET_INDEX(heap,h,i) (DUK_HOBJECT_H_GET_BASE((heap), (h))[(i)]) +#define DUK_HOBJECT_H_GET_INDEX_PTR(heap,h,i) (&DUK_HOBJECT_H_GET_BASE((heap), (h))[(i)]) + +#define DUK_HOBJECT_E_SET_KEY(heap,h,i,k) do { \ + DUK_HOBJECT_E_GET_KEY((heap), (h), (i)) = (k); \ + } while (0) +#define DUK_HOBJECT_E_SET_VALUE(heap,h,i,v) do { \ + DUK_HOBJECT_E_GET_VALUE((heap), (h), (i)) = (v); \ + } while (0) +#define DUK_HOBJECT_E_SET_VALUE_TVAL(heap,h,i,v) do { \ + DUK_HOBJECT_E_GET_VALUE((heap), (h), (i)).v = (v); \ + } while (0) +#define DUK_HOBJECT_E_SET_VALUE_GETTER(heap,h,i,v) do { \ + DUK_HOBJECT_E_GET_VALUE((heap), (h), (i)).a.get = (v); \ + } while (0) +#define DUK_HOBJECT_E_SET_VALUE_SETTER(heap,h,i,v) do { \ + DUK_HOBJECT_E_GET_VALUE((heap), (h), (i)).a.set = (v); \ + } while (0) +#define DUK_HOBJECT_E_SET_FLAGS(heap,h,i,f) do { \ + DUK_HOBJECT_E_GET_FLAGS((heap), (h), (i)) = (duk_uint8_t) (f); \ + } while (0) +#define DUK_HOBJECT_A_SET_VALUE(heap,h,i,v) do { \ + DUK_HOBJECT_A_GET_VALUE((heap), (h), (i)) = (v); \ + } while (0) +#define DUK_HOBJECT_A_SET_VALUE_TVAL(heap,h,i,v) \ + DUK_HOBJECT_A_SET_VALUE((heap), (h), (i), (v)) /* alias for above */ +#define DUK_HOBJECT_H_SET_INDEX(heap,h,i,v) do { \ + DUK_HOBJECT_H_GET_INDEX((heap), (h), (i)) = (v); \ + } while (0) + +#define DUK_HOBJECT_E_SET_FLAG_BITS(heap,h,i,mask) do { \ + DUK_HOBJECT_E_GET_FLAGS_BASE((heap), (h))[(i)] |= (mask); \ + } while (0) + +#define DUK_HOBJECT_E_CLEAR_FLAG_BITS(heap,h,i,mask) do { \ + DUK_HOBJECT_E_GET_FLAGS_BASE((heap), (h))[(i)] &= ~(mask); \ + } while (0) + +#define DUK_HOBJECT_E_SLOT_IS_WRITABLE(heap,h,i) ((DUK_HOBJECT_E_GET_FLAGS((heap), (h), (i)) & DUK_PROPDESC_FLAG_WRITABLE) != 0) +#define DUK_HOBJECT_E_SLOT_IS_ENUMERABLE(heap,h,i) ((DUK_HOBJECT_E_GET_FLAGS((heap), (h), (i)) & DUK_PROPDESC_FLAG_ENUMERABLE) != 0) +#define DUK_HOBJECT_E_SLOT_IS_CONFIGURABLE(heap,h,i) ((DUK_HOBJECT_E_GET_FLAGS((heap), (h), (i)) & DUK_PROPDESC_FLAG_CONFIGURABLE) != 0) +#define DUK_HOBJECT_E_SLOT_IS_ACCESSOR(heap,h,i) ((DUK_HOBJECT_E_GET_FLAGS((heap), (h), (i)) & DUK_PROPDESC_FLAG_ACCESSOR) != 0) + +#define DUK_HOBJECT_E_SLOT_SET_WRITABLE(heap,h,i) DUK_HOBJECT_E_SET_FLAG_BITS((heap), (h), (i),DUK_PROPDESC_FLAG_WRITABLE) +#define DUK_HOBJECT_E_SLOT_SET_ENUMERABLE(heap,h,i) DUK_HOBJECT_E_SET_FLAG_BITS((heap), (h), (i),DUK_PROPDESC_FLAG_ENUMERABLE) +#define DUK_HOBJECT_E_SLOT_SET_CONFIGURABLE(heap,h,i) DUK_HOBJECT_E_SET_FLAG_BITS((heap), (h), (i),DUK_PROPDESC_FLAG_CONFIGURABLE) +#define DUK_HOBJECT_E_SLOT_SET_ACCESSOR(heap,h,i) DUK_HOBJECT_E_SET_FLAG_BITS((heap), (h), (i),DUK_PROPDESC_FLAG_ACCESSOR) + +#define DUK_HOBJECT_E_SLOT_CLEAR_WRITABLE(heap,h,i) DUK_HOBJECT_E_CLEAR_FLAG_BITS((heap), (h), (i),DUK_PROPDESC_FLAG_WRITABLE) +#define DUK_HOBJECT_E_SLOT_CLEAR_ENUMERABLE(heap,h,i) DUK_HOBJECT_E_CLEAR_FLAG_BITS((heap), (h), (i),DUK_PROPDESC_FLAG_ENUMERABLE) +#define DUK_HOBJECT_E_SLOT_CLEAR_CONFIGURABLE(heap,h,i) DUK_HOBJECT_E_CLEAR_FLAG_BITS((heap), (h), (i),DUK_PROPDESC_FLAG_CONFIGURABLE) +#define DUK_HOBJECT_E_SLOT_CLEAR_ACCESSOR(heap,h,i) DUK_HOBJECT_E_CLEAR_FLAG_BITS((heap), (h), (i),DUK_PROPDESC_FLAG_ACCESSOR) + +#define DUK_PROPDESC_IS_WRITABLE(p) (((p)->flags & DUK_PROPDESC_FLAG_WRITABLE) != 0) +#define DUK_PROPDESC_IS_ENUMERABLE(p) (((p)->flags & DUK_PROPDESC_FLAG_ENUMERABLE) != 0) +#define DUK_PROPDESC_IS_CONFIGURABLE(p) (((p)->flags & DUK_PROPDESC_FLAG_CONFIGURABLE) != 0) +#define DUK_PROPDESC_IS_ACCESSOR(p) (((p)->flags & DUK_PROPDESC_FLAG_ACCESSOR) != 0) + +#define DUK_HOBJECT_HASHIDX_UNUSED 0xffffffffUL +#define DUK_HOBJECT_HASHIDX_DELETED 0xfffffffeUL + +/* + * Macros for accessing size fields + */ + +#if defined(DUK_USE_OBJSIZES16) +#define DUK_HOBJECT_GET_ESIZE(h) ((h)->e_size16) +#define DUK_HOBJECT_SET_ESIZE(h,v) do { (h)->e_size16 = (v); } while (0) +#define DUK_HOBJECT_GET_ENEXT(h) ((h)->e_next16) +#define DUK_HOBJECT_SET_ENEXT(h,v) do { (h)->e_next16 = (v); } while (0) +#define DUK_HOBJECT_POSTINC_ENEXT(h) ((h)->e_next16++) +#define DUK_HOBJECT_GET_ASIZE(h) ((h)->a_size16) +#define DUK_HOBJECT_SET_ASIZE(h,v) do { (h)->a_size16 = (v); } while (0) +#if defined(DUK_USE_HOBJECT_HASH_PART) +#define DUK_HOBJECT_GET_HSIZE(h) ((h)->h_size16) +#define DUK_HOBJECT_SET_HSIZE(h,v) do { (h)->h_size16 = (v); } while (0) +#else +#define DUK_HOBJECT_GET_HSIZE(h) 0 +#define DUK_HOBJECT_SET_HSIZE(h,v) do { DUK_ASSERT((v) == 0); } while (0) +#endif +#else +#define DUK_HOBJECT_GET_ESIZE(h) ((h)->e_size) +#define DUK_HOBJECT_SET_ESIZE(h,v) do { (h)->e_size = (v); } while (0) +#define DUK_HOBJECT_GET_ENEXT(h) ((h)->e_next) +#define DUK_HOBJECT_SET_ENEXT(h,v) do { (h)->e_next = (v); } while (0) +#define DUK_HOBJECT_POSTINC_ENEXT(h) ((h)->e_next++) +#define DUK_HOBJECT_GET_ASIZE(h) ((h)->a_size) +#define DUK_HOBJECT_SET_ASIZE(h,v) do { (h)->a_size = (v); } while (0) +#if defined(DUK_USE_HOBJECT_HASH_PART) +#define DUK_HOBJECT_GET_HSIZE(h) ((h)->h_size) +#define DUK_HOBJECT_SET_HSIZE(h,v) do { (h)->h_size = (v); } while (0) +#else +#define DUK_HOBJECT_GET_HSIZE(h) 0 +#define DUK_HOBJECT_SET_HSIZE(h,v) do { DUK_ASSERT((v) == 0); } while (0) +#endif +#endif + +/* + * Misc + */ + +/* Maximum prototype traversal depth. Sanity limit which handles e.g. + * prototype loops (even complex ones like 1->2->3->4->2->3->4->2->3->4). + */ +#define DUK_HOBJECT_PROTOTYPE_CHAIN_SANITY 10000L + +/* + * ECMAScript [[Class]] + */ + +/* range check not necessary because all 4-bit values are mapped */ +#define DUK_HOBJECT_CLASS_NUMBER_TO_STRIDX(n) duk_class_number_to_stridx[(n)] + +#define DUK_HOBJECT_GET_CLASS_STRING(heap,h) \ + DUK_HEAP_GET_STRING( \ + (heap), \ + DUK_HOBJECT_CLASS_NUMBER_TO_STRIDX(DUK_HOBJECT_GET_CLASS_NUMBER((h))) \ + ) + +/* + * Macros for property handling + */ + +#if defined(DUK_USE_HEAPPTR16) +#define DUK_HOBJECT_GET_PROTOTYPE(heap,h) \ + ((duk_hobject *) DUK_USE_HEAPPTR_DEC16((heap)->heap_udata, (h)->prototype16)) +#define DUK_HOBJECT_SET_PROTOTYPE(heap,h,x) do { \ + (h)->prototype16 = DUK_USE_HEAPPTR_ENC16((heap)->heap_udata, (void *) (x)); \ + } while (0) +#else +#define DUK_HOBJECT_GET_PROTOTYPE(heap,h) \ + ((h)->prototype) +#define DUK_HOBJECT_SET_PROTOTYPE(heap,h,x) do { \ + (h)->prototype = (x); \ + } while (0) +#endif + +/* Set prototype, DECREF earlier value, INCREF new value (tolerating NULLs). */ +#define DUK_HOBJECT_SET_PROTOTYPE_UPDREF(thr,h,p) duk_hobject_set_prototype_updref((thr), (h), (p)) + +/* Set initial prototype, assume NULL previous prototype, INCREF new value, + * tolerate NULL. + */ +#define DUK_HOBJECT_SET_PROTOTYPE_INIT_INCREF(thr,h,proto) do { \ + duk_hthread *duk__thr = (thr); \ + duk_hobject *duk__obj = (h); \ + duk_hobject *duk__proto = (proto); \ + DUK_UNREF(duk__thr); \ + DUK_ASSERT(DUK_HOBJECT_GET_PROTOTYPE(duk__thr->heap, duk__obj) == NULL); \ + DUK_HOBJECT_SET_PROTOTYPE(duk__thr->heap, duk__obj, duk__proto); \ + DUK_HOBJECT_INCREF_ALLOWNULL(duk__thr, duk__proto); \ + } while (0) + +/* + * Finalizer check + */ + +#if defined(DUK_USE_HEAPPTR16) +#define DUK_HOBJECT_HAS_FINALIZER_FAST(heap,h) duk_hobject_has_finalizer_fast_raw((heap), (h)) +#else +#define DUK_HOBJECT_HAS_FINALIZER_FAST(heap,h) duk_hobject_has_finalizer_fast_raw((h)) +#endif + +/* + * Resizing and hash behavior + */ + +/* Sanity limit on max number of properties (allocated, not necessarily used). + * This is somewhat arbitrary, but if we're close to 2**32 properties some + * algorithms will fail (e.g. hash size selection, next prime selection). + * Also, we use negative array/entry table indices to indicate 'not found', + * so anything above 0x80000000 will cause trouble now. + */ +#if defined(DUK_USE_OBJSIZES16) +#define DUK_HOBJECT_MAX_PROPERTIES 0x0000ffffUL +#else +#define DUK_HOBJECT_MAX_PROPERTIES 0x3fffffffUL /* 2**30-1 ~= 1G properties */ +#endif + +/* internal align target for props allocation, must be 2*n for some n */ +#if (DUK_USE_ALIGN_BY == 4) +#define DUK_HOBJECT_ALIGN_TARGET 4 +#elif (DUK_USE_ALIGN_BY == 8) +#define DUK_HOBJECT_ALIGN_TARGET 8 +#elif (DUK_USE_ALIGN_BY == 1) +#define DUK_HOBJECT_ALIGN_TARGET 1 +#else +#error invalid DUK_USE_ALIGN_BY +#endif + +/* + * PC-to-line constants + */ + +#define DUK_PC2LINE_SKIP 64 + +/* maximum length for a SKIP-1 diffstream: 35 bits per entry, rounded up to bytes */ +#define DUK_PC2LINE_MAX_DIFF_LENGTH (((DUK_PC2LINE_SKIP - 1) * 35 + 7) / 8) + +/* + * Struct defs + */ + +struct duk_propaccessor { + duk_hobject *get; + duk_hobject *set; +}; + +union duk_propvalue { + /* The get/set pointers could be 16-bit pointer compressed but it + * would make no difference on 32-bit platforms because duk_tval is + * 8 bytes or more anyway. + */ + duk_tval v; + duk_propaccessor a; +}; + +struct duk_propdesc { + /* read-only values 'lifted' for ease of use */ + duk_small_uint_t flags; + duk_hobject *get; + duk_hobject *set; + + /* for updating (all are set to < 0 for virtual properties) */ + duk_int_t e_idx; /* prop index in 'entry part', < 0 if not there */ + duk_int_t h_idx; /* prop index in 'hash part', < 0 if not there */ + duk_int_t a_idx; /* prop index in 'array part', < 0 if not there */ +}; + +struct duk_hobject { + duk_heaphdr hdr; + + /* + * 'props' contains {key,value,flags} entries, optional array entries, and + * an optional hash lookup table for non-array entries in a single 'sliced' + * allocation. There are several layout options, which differ slightly in + * generated code size/speed and alignment/padding; duk_features.h selects + * the layout used. + * + * Layout 1 (DUK_USE_HOBJECT_LAYOUT_1): + * + * e_size * sizeof(duk_hstring *) bytes of entry keys (e_next gc reachable) + * e_size * sizeof(duk_propvalue) bytes of entry values (e_next gc reachable) + * e_size * sizeof(duk_uint8_t) bytes of entry flags (e_next gc reachable) + * a_size * sizeof(duk_tval) bytes of (opt) array values (plain only) (all gc reachable) + * h_size * sizeof(duk_uint32_t) bytes of (opt) hash indexes to entries (e_size), + * 0xffffffffUL = unused, 0xfffffffeUL = deleted + * + * Layout 2 (DUK_USE_HOBJECT_LAYOUT_2): + * + * e_size * sizeof(duk_propvalue) bytes of entry values (e_next gc reachable) + * e_size * sizeof(duk_hstring *) bytes of entry keys (e_next gc reachable) + * e_size * sizeof(duk_uint8_t) + pad bytes of entry flags (e_next gc reachable) + * a_size * sizeof(duk_tval) bytes of (opt) array values (plain only) (all gc reachable) + * h_size * sizeof(duk_uint32_t) bytes of (opt) hash indexes to entries (e_size), + * 0xffffffffUL = unused, 0xfffffffeUL = deleted + * + * Layout 3 (DUK_USE_HOBJECT_LAYOUT_3): + * + * e_size * sizeof(duk_propvalue) bytes of entry values (e_next gc reachable) + * a_size * sizeof(duk_tval) bytes of (opt) array values (plain only) (all gc reachable) + * e_size * sizeof(duk_hstring *) bytes of entry keys (e_next gc reachable) + * h_size * sizeof(duk_uint32_t) bytes of (opt) hash indexes to entries (e_size), + * 0xffffffffUL = unused, 0xfffffffeUL = deleted + * e_size * sizeof(duk_uint8_t) bytes of entry flags (e_next gc reachable) + * + * In layout 1, the 'e_next' count is rounded to 4 or 8 on platforms + * requiring 4 or 8 byte alignment. This ensures proper alignment + * for the entries, at the cost of memory footprint. However, it's + * probably preferable to use another layout on such platforms instead. + * + * In layout 2, the key and value parts are swapped to avoid padding + * the key array on platforms requiring alignment by 8. The flags part + * is padded to get alignment for array entries. The 'e_next' count does + * not need to be rounded as in layout 1. + * + * In layout 3, entry values and array values are always aligned properly, + * and assuming pointers are at most 8 bytes, so are the entry keys. Hash + * indices will be properly aligned (assuming pointers are at least 4 bytes). + * Finally, flags don't need additional alignment. This layout provides + * compact allocations without padding (even on platforms with alignment + * requirements) at the cost of a bit slower lookups. + * + * Objects with few keys don't have a hash index; keys are looked up linearly, + * which is cache efficient because the keys are consecutive. Larger objects + * have a hash index part which contains integer indexes to the entries part. + * + * A single allocation reduces memory allocation overhead but requires more + * work when any part needs to be resized. A sliced allocation for entries + * makes linear key matching faster on most platforms (more locality) and + * skimps on flags size (which would be followed by 3 bytes of padding in + * most architectures if entries were placed in a struct). + * + * 'props' also contains internal properties distinguished with a non-BMP + * prefix. Often used properties should be placed early in 'props' whenever + * possible to make accessing them as fast a possible. + */ + +#if defined(DUK_USE_HEAPPTR16) + /* Located in duk_heaphdr h_extra16. Subclasses of duk_hobject (like + * duk_hcompfunc) are not free to use h_extra16 for this reason. + */ +#else + duk_uint8_t *props; +#endif + + /* prototype: the only internal property lifted outside 'e' as it is so central */ +#if defined(DUK_USE_HEAPPTR16) + duk_uint16_t prototype16; +#else + duk_hobject *prototype; +#endif + +#if defined(DUK_USE_OBJSIZES16) + duk_uint16_t e_size16; + duk_uint16_t e_next16; + duk_uint16_t a_size16; +#if defined(DUK_USE_HOBJECT_HASH_PART) + duk_uint16_t h_size16; +#endif +#else + duk_uint32_t e_size; /* entry part size */ + duk_uint32_t e_next; /* index for next new key ([0,e_next[ are gc reachable) */ + duk_uint32_t a_size; /* array part size (entirely gc reachable) */ +#if defined(DUK_USE_HOBJECT_HASH_PART) + duk_uint32_t h_size; /* hash part size or 0 if unused */ +#endif +#endif +}; + +/* + * Exposed data + */ + +#if !defined(DUK_SINGLE_FILE) +DUK_INTERNAL_DECL duk_uint8_t duk_class_number_to_stridx[32]; +#endif /* !DUK_SINGLE_FILE */ + +/* + * Prototypes + */ + +/* alloc and init */ +DUK_INTERNAL_DECL duk_hobject *duk_hobject_alloc_unchecked(duk_heap *heap, duk_uint_t hobject_flags); +DUK_INTERNAL_DECL duk_hobject *duk_hobject_alloc(duk_hthread *thr, duk_uint_t hobject_flags); +DUK_INTERNAL_DECL duk_harray *duk_harray_alloc(duk_hthread *thr, duk_uint_t hobject_flags); +DUK_INTERNAL_DECL duk_hcompfunc *duk_hcompfunc_alloc(duk_hthread *thr, duk_uint_t hobject_flags); +DUK_INTERNAL_DECL duk_hnatfunc *duk_hnatfunc_alloc(duk_hthread *thr, duk_uint_t hobject_flags); +DUK_INTERNAL_DECL duk_hboundfunc *duk_hboundfunc_alloc(duk_heap *heap, duk_uint_t hobject_flags); +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) +DUK_INTERNAL_DECL duk_hbufobj *duk_hbufobj_alloc(duk_hthread *thr, duk_uint_t hobject_flags); +#endif +DUK_INTERNAL_DECL duk_hthread *duk_hthread_alloc_unchecked(duk_heap *heap, duk_uint_t hobject_flags); +DUK_INTERNAL_DECL duk_hthread *duk_hthread_alloc(duk_hthread *thr, duk_uint_t hobject_flags); +DUK_INTERNAL_DECL duk_hdecenv *duk_hdecenv_alloc(duk_hthread *thr, duk_uint_t hobject_flags); +DUK_INTERNAL_DECL duk_hobjenv *duk_hobjenv_alloc(duk_hthread *thr, duk_uint_t hobject_flags); +DUK_INTERNAL_DECL duk_hproxy *duk_hproxy_alloc(duk_hthread *thr, duk_uint_t hobject_flags); + +/* resize */ +DUK_INTERNAL_DECL void duk_hobject_realloc_props(duk_hthread *thr, + duk_hobject *obj, + duk_uint32_t new_e_size, + duk_uint32_t new_a_size, + duk_uint32_t new_h_size, + duk_bool_t abandon_array); +DUK_INTERNAL_DECL void duk_hobject_resize_entrypart(duk_hthread *thr, + duk_hobject *obj, + duk_uint32_t new_e_size); +#if 0 /*unused*/ +DUK_INTERNAL_DECL void duk_hobject_resize_arraypart(duk_hthread *thr, + duk_hobject *obj, + duk_uint32_t new_a_size); +#endif + +/* low-level property functions */ +DUK_INTERNAL_DECL duk_bool_t duk_hobject_find_entry(duk_heap *heap, duk_hobject *obj, duk_hstring *key, duk_int_t *e_idx, duk_int_t *h_idx); +DUK_INTERNAL_DECL duk_tval *duk_hobject_find_entry_tval_ptr(duk_heap *heap, duk_hobject *obj, duk_hstring *key); +DUK_INTERNAL_DECL duk_tval *duk_hobject_find_entry_tval_ptr_stridx(duk_heap *heap, duk_hobject *obj, duk_small_uint_t stridx); +DUK_INTERNAL_DECL duk_tval *duk_hobject_find_entry_tval_ptr_and_attrs(duk_heap *heap, duk_hobject *obj, duk_hstring *key, duk_uint_t *out_attrs); +DUK_INTERNAL_DECL duk_tval *duk_hobject_find_array_entry_tval_ptr(duk_heap *heap, duk_hobject *obj, duk_uarridx_t i); +DUK_INTERNAL_DECL duk_bool_t duk_hobject_get_own_propdesc(duk_hthread *thr, duk_hobject *obj, duk_hstring *key, duk_propdesc *out_desc, duk_small_uint_t flags); + +/* core property functions */ +DUK_INTERNAL_DECL duk_bool_t duk_hobject_getprop(duk_hthread *thr, duk_tval *tv_obj, duk_tval *tv_key); +DUK_INTERNAL_DECL duk_bool_t duk_hobject_putprop(duk_hthread *thr, duk_tval *tv_obj, duk_tval *tv_key, duk_tval *tv_val, duk_bool_t throw_flag); +DUK_INTERNAL_DECL duk_bool_t duk_hobject_delprop(duk_hthread *thr, duk_tval *tv_obj, duk_tval *tv_key, duk_bool_t throw_flag); +DUK_INTERNAL_DECL duk_bool_t duk_hobject_hasprop(duk_hthread *thr, duk_tval *tv_obj, duk_tval *tv_key); + +/* internal property functions */ +#define DUK_DELPROP_FLAG_THROW (1U << 0) +#define DUK_DELPROP_FLAG_FORCE (1U << 1) +DUK_INTERNAL_DECL duk_bool_t duk_hobject_delprop_raw(duk_hthread *thr, duk_hobject *obj, duk_hstring *key, duk_small_uint_t flags); +DUK_INTERNAL_DECL duk_bool_t duk_hobject_hasprop_raw(duk_hthread *thr, duk_hobject *obj, duk_hstring *key); +DUK_INTERNAL_DECL void duk_hobject_define_property_internal(duk_hthread *thr, duk_hobject *obj, duk_hstring *key, duk_small_uint_t flags); +DUK_INTERNAL_DECL void duk_hobject_define_property_internal_arridx(duk_hthread *thr, duk_hobject *obj, duk_uarridx_t arr_idx, duk_small_uint_t flags); +DUK_INTERNAL_DECL duk_size_t duk_hobject_get_length(duk_hthread *thr, duk_hobject *obj); +#if defined(DUK_USE_HEAPPTR16) +DUK_INTERNAL_DECL duk_bool_t duk_hobject_has_finalizer_fast_raw(duk_heap *heap, duk_hobject *obj); +#else +DUK_INTERNAL_DECL duk_bool_t duk_hobject_has_finalizer_fast_raw(duk_hobject *obj); +#endif + +/* helpers for defineProperty() and defineProperties() */ +DUK_INTERNAL_DECL void duk_hobject_prepare_property_descriptor(duk_hthread *thr, + duk_idx_t idx_in, + duk_uint_t *out_defprop_flags, + duk_idx_t *out_idx_value, + duk_hobject **out_getter, + duk_hobject **out_setter); +DUK_INTERNAL_DECL duk_bool_t duk_hobject_define_property_helper(duk_hthread *thr, + duk_uint_t defprop_flags, + duk_hobject *obj, + duk_hstring *key, + duk_idx_t idx_value, + duk_hobject *get, + duk_hobject *set, + duk_bool_t throw_flag); + +/* Object built-in methods */ +DUK_INTERNAL_DECL void duk_hobject_object_get_own_property_descriptor(duk_hthread *thr, duk_idx_t obj_idx); +DUK_INTERNAL_DECL void duk_hobject_object_seal_freeze_helper(duk_hthread *thr, duk_hobject *obj, duk_bool_t is_freeze); +DUK_INTERNAL_DECL duk_bool_t duk_hobject_object_is_sealed_frozen_helper(duk_hthread *thr, duk_hobject *obj, duk_bool_t is_frozen); +DUK_INTERNAL_DECL duk_bool_t duk_hobject_object_ownprop_helper(duk_hthread *thr, duk_small_uint_t required_desc_flags); + +/* internal properties */ +DUK_INTERNAL_DECL duk_tval *duk_hobject_get_internal_value_tval_ptr(duk_heap *heap, duk_hobject *obj); +DUK_INTERNAL_DECL duk_hstring *duk_hobject_get_internal_value_string(duk_heap *heap, duk_hobject *obj); +DUK_INTERNAL_DECL duk_harray *duk_hobject_get_formals(duk_hthread *thr, duk_hobject *obj); +DUK_INTERNAL_DECL duk_hobject *duk_hobject_get_varmap(duk_hthread *thr, duk_hobject *obj); + +/* hobject management functions */ +DUK_INTERNAL_DECL void duk_hobject_compact_props(duk_hthread *thr, duk_hobject *obj); + +/* ES2015 proxy */ +#if defined(DUK_USE_ES6_PROXY) +DUK_INTERNAL_DECL duk_bool_t duk_hobject_proxy_check(duk_hobject *obj, duk_hobject **out_target, duk_hobject **out_handler); +DUK_INTERNAL_DECL duk_hobject *duk_hobject_resolve_proxy_target(duk_hobject *obj); +#endif + +/* enumeration */ +DUK_INTERNAL_DECL void duk_hobject_enumerator_create(duk_hthread *thr, duk_small_uint_t enum_flags); +DUK_INTERNAL_DECL duk_ret_t duk_hobject_get_enumerated_keys(duk_hthread *thr, duk_small_uint_t enum_flags); +DUK_INTERNAL_DECL duk_bool_t duk_hobject_enumerator_next(duk_hthread *thr, duk_bool_t get_value); + +/* macros */ +DUK_INTERNAL_DECL void duk_hobject_set_prototype_updref(duk_hthread *thr, duk_hobject *h, duk_hobject *p); + +/* pc2line */ +#if defined(DUK_USE_PC2LINE) +DUK_INTERNAL_DECL void duk_hobject_pc2line_pack(duk_hthread *thr, duk_compiler_instr *instrs, duk_uint_fast32_t length); +DUK_INTERNAL_DECL duk_uint_fast32_t duk_hobject_pc2line_query(duk_hthread *thr, duk_idx_t idx_func, duk_uint_fast32_t pc); +#endif + +/* misc */ +DUK_INTERNAL_DECL duk_bool_t duk_hobject_prototype_chain_contains(duk_hthread *thr, duk_hobject *h, duk_hobject *p, duk_bool_t ignore_loop); + +#if !defined(DUK_USE_OBJECT_BUILTIN) +/* These declarations are needed when related built-in is disabled and + * genbuiltins.py won't automatically emit the declerations. + */ +DUK_INTERNAL_DECL duk_ret_t duk_bi_object_prototype_to_string(duk_hthread *thr); +DUK_INTERNAL_DECL duk_ret_t duk_bi_function_prototype(duk_hthread *thr); +#endif + +#endif /* DUK_HOBJECT_H_INCLUDED */ +/* #include duk_hcompfunc.h */ +#line 1 "duk_hcompfunc.h" +/* + * Heap compiled function (ECMAScript function) representation. + * + * There is a single data buffer containing the ECMAScript function's + * bytecode, constants, and inner functions. + */ + +#if !defined(DUK_HCOMPFUNC_H_INCLUDED) +#define DUK_HCOMPFUNC_H_INCLUDED + +/* + * Field accessor macros + */ + +/* XXX: casts could be improved, especially for GET/SET DATA */ + +#if defined(DUK_USE_HEAPPTR16) +#define DUK_HCOMPFUNC_GET_DATA(heap,h) \ + ((duk_hbuffer_fixed *) (void *) DUK_USE_HEAPPTR_DEC16((heap)->heap_udata, (h)->data16)) +#define DUK_HCOMPFUNC_SET_DATA(heap,h,v) do { \ + (h)->data16 = DUK_USE_HEAPPTR_ENC16((heap)->heap_udata, (void *) (v)); \ + } while (0) +#define DUK_HCOMPFUNC_GET_FUNCS(heap,h) \ + ((duk_hobject **) (void *) (DUK_USE_HEAPPTR_DEC16((heap)->heap_udata, (h)->funcs16))) +#define DUK_HCOMPFUNC_SET_FUNCS(heap,h,v) do { \ + (h)->funcs16 = DUK_USE_HEAPPTR_ENC16((heap)->heap_udata, (void *) (v)); \ + } while (0) +#define DUK_HCOMPFUNC_GET_BYTECODE(heap,h) \ + ((duk_instr_t *) (void *) (DUK_USE_HEAPPTR_DEC16((heap)->heap_udata, (h)->bytecode16))) +#define DUK_HCOMPFUNC_SET_BYTECODE(heap,h,v) do { \ + (h)->bytecode16 = DUK_USE_HEAPPTR_ENC16((heap)->heap_udata, (void *) (v)); \ + } while (0) +#define DUK_HCOMPFUNC_GET_LEXENV(heap,h) \ + ((duk_hobject *) (void *) (DUK_USE_HEAPPTR_DEC16((heap)->heap_udata, (h)->lex_env16))) +#define DUK_HCOMPFUNC_SET_LEXENV(heap,h,v) do { \ + (h)->lex_env16 = DUK_USE_HEAPPTR_ENC16((heap)->heap_udata, (void *) (v)); \ + } while (0) +#define DUK_HCOMPFUNC_GET_VARENV(heap,h) \ + ((duk_hobject *) (void *) (DUK_USE_HEAPPTR_DEC16((heap)->heap_udata, (h)->var_env16))) +#define DUK_HCOMPFUNC_SET_VARENV(heap,h,v) do { \ + (h)->var_env16 = DUK_USE_HEAPPTR_ENC16((heap)->heap_udata, (void *) (v)); \ + } while (0) +#else +#define DUK_HCOMPFUNC_GET_DATA(heap,h) ((duk_hbuffer_fixed *) (void *) (h)->data) +#define DUK_HCOMPFUNC_SET_DATA(heap,h,v) do { \ + (h)->data = (duk_hbuffer *) (v); \ + } while (0) +#define DUK_HCOMPFUNC_GET_FUNCS(heap,h) ((h)->funcs) +#define DUK_HCOMPFUNC_SET_FUNCS(heap,h,v) do { \ + (h)->funcs = (v); \ + } while (0) +#define DUK_HCOMPFUNC_GET_BYTECODE(heap,h) ((h)->bytecode) +#define DUK_HCOMPFUNC_SET_BYTECODE(heap,h,v) do { \ + (h)->bytecode = (v); \ + } while (0) +#define DUK_HCOMPFUNC_GET_LEXENV(heap,h) ((h)->lex_env) +#define DUK_HCOMPFUNC_SET_LEXENV(heap,h,v) do { \ + (h)->lex_env = (v); \ + } while (0) +#define DUK_HCOMPFUNC_GET_VARENV(heap,h) ((h)->var_env) +#define DUK_HCOMPFUNC_SET_VARENV(heap,h,v) do { \ + (h)->var_env = (v); \ + } while (0) +#endif + +/* + * Accessor macros for function specific data areas + */ + +/* Note: assumes 'data' is always a fixed buffer */ +#define DUK_HCOMPFUNC_GET_BUFFER_BASE(heap,h) \ + DUK_HBUFFER_FIXED_GET_DATA_PTR((heap), DUK_HCOMPFUNC_GET_DATA((heap), (h))) + +#define DUK_HCOMPFUNC_GET_CONSTS_BASE(heap,h) \ + ((duk_tval *) (void *) DUK_HCOMPFUNC_GET_BUFFER_BASE((heap), (h))) + +#define DUK_HCOMPFUNC_GET_FUNCS_BASE(heap,h) \ + DUK_HCOMPFUNC_GET_FUNCS((heap), (h)) + +#define DUK_HCOMPFUNC_GET_CODE_BASE(heap,h) \ + DUK_HCOMPFUNC_GET_BYTECODE((heap), (h)) + +#define DUK_HCOMPFUNC_GET_CONSTS_END(heap,h) \ + ((duk_tval *) (void *) DUK_HCOMPFUNC_GET_FUNCS((heap), (h))) + +#define DUK_HCOMPFUNC_GET_FUNCS_END(heap,h) \ + ((duk_hobject **) (void *) DUK_HCOMPFUNC_GET_BYTECODE((heap), (h))) + +/* XXX: double evaluation of DUK_HCOMPFUNC_GET_DATA() */ +#define DUK_HCOMPFUNC_GET_CODE_END(heap,h) \ + ((duk_instr_t *) (void *) (DUK_HBUFFER_FIXED_GET_DATA_PTR((heap), DUK_HCOMPFUNC_GET_DATA((heap), (h))) + \ + DUK_HBUFFER_GET_SIZE((duk_hbuffer *) DUK_HCOMPFUNC_GET_DATA((heap), h)))) + +#define DUK_HCOMPFUNC_GET_CONSTS_SIZE(heap,h) \ + ( \ + (duk_size_t) \ + ( \ + ((const duk_uint8_t *) DUK_HCOMPFUNC_GET_CONSTS_END((heap), (h))) - \ + ((const duk_uint8_t *) DUK_HCOMPFUNC_GET_CONSTS_BASE((heap), (h))) \ + ) \ + ) + +#define DUK_HCOMPFUNC_GET_FUNCS_SIZE(heap,h) \ + ( \ + (duk_size_t) \ + ( \ + ((const duk_uint8_t *) DUK_HCOMPFUNC_GET_FUNCS_END((heap), (h))) - \ + ((const duk_uint8_t *) DUK_HCOMPFUNC_GET_FUNCS_BASE((heap), (h))) \ + ) \ + ) + +#define DUK_HCOMPFUNC_GET_CODE_SIZE(heap,h) \ + ( \ + (duk_size_t) \ + ( \ + ((const duk_uint8_t *) DUK_HCOMPFUNC_GET_CODE_END((heap),(h))) - \ + ((const duk_uint8_t *) DUK_HCOMPFUNC_GET_CODE_BASE((heap),(h))) \ + ) \ + ) + +#define DUK_HCOMPFUNC_GET_CONSTS_COUNT(heap,h) \ + ((duk_size_t) (DUK_HCOMPFUNC_GET_CONSTS_SIZE((heap), (h)) / sizeof(duk_tval))) + +#define DUK_HCOMPFUNC_GET_FUNCS_COUNT(heap,h) \ + ((duk_size_t) (DUK_HCOMPFUNC_GET_FUNCS_SIZE((heap), (h)) / sizeof(duk_hobject *))) + +#define DUK_HCOMPFUNC_GET_CODE_COUNT(heap,h) \ + ((duk_size_t) (DUK_HCOMPFUNC_GET_CODE_SIZE((heap), (h)) / sizeof(duk_instr_t))) + +/* + * Validity assert + */ + +#if defined(DUK_USE_ASSERTIONS) +DUK_INTERNAL_DECL void duk_hcompfunc_assert_valid(duk_hcompfunc *h); +#define DUK_HCOMPFUNC_ASSERT_VALID(h) do { duk_hcompfunc_assert_valid((h)); } while (0) +#else +#define DUK_HCOMPFUNC_ASSERT_VALID(h) do {} while (0) +#endif + +/* + * Main struct + */ + +struct duk_hcompfunc { + /* shared object part */ + duk_hobject obj; + + /* + * Pointers to function data area for faster access. Function + * data is a buffer shared between all closures of the same + * "template" function. The data buffer is always fixed (non- + * dynamic, hence stable), with a layout as follows: + * + * constants (duk_tval) + * inner functions (duk_hobject *) + * bytecode (duk_instr_t) + * + * Note: bytecode end address can be computed from 'data' buffer + * size. It is not strictly necessary functionally, assuming + * bytecode never jumps outside its allocated area. However, + * it's a safety/robustness feature for avoiding the chance of + * executing random data as bytecode due to a compiler error. + * + * Note: values in the data buffer must be incref'd (they will + * be decref'd on release) for every compiledfunction referring + * to the 'data' element. + */ + + /* Data area, fixed allocation, stable data ptrs. */ +#if defined(DUK_USE_HEAPPTR16) + duk_uint16_t data16; +#else + duk_hbuffer *data; +#endif + + /* No need for constants pointer (= same as data). + * + * When using 16-bit packing alignment to 4 is nice. 'funcs' will be + * 4-byte aligned because 'constants' are duk_tvals. For now the + * inner function pointers are not compressed, so that 'bytecode' will + * also be 4-byte aligned. + */ +#if defined(DUK_USE_HEAPPTR16) + duk_uint16_t funcs16; + duk_uint16_t bytecode16; +#else + duk_hobject **funcs; + duk_instr_t *bytecode; +#endif + + /* Lexenv: lexical environment of closure, NULL for templates. + * Varenv: variable environment of closure, NULL for templates. + */ +#if defined(DUK_USE_HEAPPTR16) + duk_uint16_t lex_env16; + duk_uint16_t var_env16; +#else + duk_hobject *lex_env; + duk_hobject *var_env; +#endif + + /* + * 'nregs' registers are allocated on function entry, at most 'nargs' + * are initialized to arguments, and the rest to undefined. Arguments + * above 'nregs' are not mapped to registers. All registers in the + * active stack range must be initialized because they are GC reachable. + * 'nargs' is needed so that if the function is given more than 'nargs' + * arguments, the additional arguments do not 'clobber' registers + * beyond 'nregs' which must be consistently initialized to undefined. + * + * Usually there is no need to know which registers are mapped to + * local variables. Registers may be allocated to variable in any + * way (even including gaps). However, a register-variable mapping + * must be the same for the duration of the function execution and + * the register cannot be used for anything else. + * + * When looking up variables by name, the '_Varmap' map is used. + * When an activation closes, registers mapped to arguments are + * copied into the environment record based on the same map. The + * reverse map (from register to variable) is not currently needed + * at run time, except for debugging, so it is not maintained. + */ + + duk_uint16_t nregs; /* regs to allocate */ + duk_uint16_t nargs; /* number of arguments allocated to regs */ + + /* + * Additional control information is placed into the object itself + * as internal properties to avoid unnecessary fields for the + * majority of functions. The compiler tries to omit internal + * control fields when possible. + * + * Function templates: + * + * { + * name: "func", // declaration, named function expressions + * fileName: + * _Varmap: { "arg1": 0, "arg2": 1, "varname": 2 }, + * _Formals: [ "arg1", "arg2" ], + * _Source: "function func(arg1, arg2) { ... }", + * _Pc2line: , + * } + * + * Function instances: + * + * { + * length: 2, + * prototype: { constructor: }, + * caller: , + * arguments: , + * name: "func", // declaration, named function expressions + * fileName: + * _Varmap: { "arg1": 0, "arg2": 1, "varname": 2 }, + * _Formals: [ "arg1", "arg2" ], + * _Source: "function func(arg1, arg2) { ... }", + * _Pc2line: , + * } + * + * More detailed description of these properties can be found + * in the documentation. + */ + +#if defined(DUK_USE_DEBUGGER_SUPPORT) + /* Line number range for function. Needed during debugging to + * determine active breakpoints. + */ + duk_uint32_t start_line; + duk_uint32_t end_line; +#endif +}; + +#endif /* DUK_HCOMPFUNC_H_INCLUDED */ +/* #include duk_hnatfunc.h */ +#line 1 "duk_hnatfunc.h" +/* + * Heap native function representation. + */ + +#if !defined(DUK_HNATFUNC_H_INCLUDED) +#define DUK_HNATFUNC_H_INCLUDED + +#if defined(DUK_USE_ASSERTIONS) +DUK_INTERNAL_DECL void duk_hnatfunc_assert_valid(duk_hnatfunc *h); +#define DUK_HNATFUNC_ASSERT_VALID(h) do { duk_hnatfunc_assert_valid((h)); } while (0) +#else +#define DUK_HNATFUNC_ASSERT_VALID(h) do {} while (0) +#endif + +#define DUK_HNATFUNC_NARGS_VARARGS ((duk_int16_t) -1) +#define DUK_HNATFUNC_NARGS_MAX ((duk_int16_t) 0x7fff) + +struct duk_hnatfunc { + /* shared object part */ + duk_hobject obj; + + duk_c_function func; + duk_int16_t nargs; + duk_int16_t magic; + + /* The 'magic' field allows an opaque 16-bit field to be accessed by the + * Duktape/C function. This allows, for instance, the same native function + * to be used for a set of very similar functions, with the 'magic' field + * providing the necessary non-argument flags / values to guide the behavior + * of the native function. The value is signed on purpose: it is easier to + * convert a signed value to unsigned (simply AND with 0xffff) than vice + * versa. + * + * Note: cannot place nargs/magic into the heaphdr flags, because + * duk_hobject takes almost all flags already. + */ +}; + +#endif /* DUK_HNATFUNC_H_INCLUDED */ +/* #include duk_hboundfunc.h */ +#line 1 "duk_hboundfunc.h" +/* + * Bound function representation. + */ + +#if !defined(DUK_HBOUNDFUNC_H_INCLUDED) +#define DUK_HBOUNDFUNC_H_INCLUDED + +/* Artificial limit for args length. Ensures arithmetic won't overflow + * 32 bits when combining bound functions. + */ +#define DUK_HBOUNDFUNC_MAX_ARGS 0x20000000UL + +#if defined(DUK_USE_ASSERTIONS) +DUK_INTERNAL_DECL void duk_hboundfunc_assert_valid(duk_hboundfunc *h); +#define DUK_HBOUNDFUNC_ASSERT_VALID(h) do { duk_hboundfunc_assert_valid((h)); } while (0) +#else +#define DUK_HBOUNDFUNC_ASSERT_VALID(h) do {} while (0) +#endif + +struct duk_hboundfunc { + /* Shared object part. */ + duk_hobject obj; + + /* Final target function, stored as duk_tval so that lightfunc can be + * represented too. + */ + duk_tval target; + + /* This binding. */ + duk_tval this_binding; + + /* Arguments to prepend. */ + duk_tval *args; /* Separate allocation. */ + duk_idx_t nargs; +}; + +#endif /* DUK_HBOUNDFUNC_H_INCLUDED */ +/* #include duk_hbufobj.h */ +#line 1 "duk_hbufobj.h" +/* + * Heap Buffer object representation. Used for all Buffer variants. + */ + +#if !defined(DUK_HBUFOBJ_H_INCLUDED) +#define DUK_HBUFOBJ_H_INCLUDED + +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) + +/* All element accessors are host endian now (driven by TypedArray spec). */ +#define DUK_HBUFOBJ_ELEM_UINT8 0 +#define DUK_HBUFOBJ_ELEM_UINT8CLAMPED 1 +#define DUK_HBUFOBJ_ELEM_INT8 2 +#define DUK_HBUFOBJ_ELEM_UINT16 3 +#define DUK_HBUFOBJ_ELEM_INT16 4 +#define DUK_HBUFOBJ_ELEM_UINT32 5 +#define DUK_HBUFOBJ_ELEM_INT32 6 +#define DUK_HBUFOBJ_ELEM_FLOAT32 7 +#define DUK_HBUFOBJ_ELEM_FLOAT64 8 +#define DUK_HBUFOBJ_ELEM_MAX 8 + +#if defined(DUK_USE_ASSERTIONS) +DUK_INTERNAL_DECL void duk_hbufobj_assert_valid(duk_hbufobj *h); +#define DUK_HBUFOBJ_ASSERT_VALID(h) do { duk_hbufobj_assert_valid((h)); } while (0) +#else +#define DUK_HBUFOBJ_ASSERT_VALID(h) do {} while (0) +#endif + +/* Get the current data pointer (caller must ensure buf != NULL) as a + * duk_uint8_t ptr. Note that the result may be NULL if the underlying + * buffer has zero size and is not a fixed buffer. + */ +#define DUK_HBUFOBJ_GET_SLICE_BASE(heap,h) \ + (DUK_ASSERT_EXPR((h) != NULL), DUK_ASSERT_EXPR((h)->buf != NULL), \ + (((duk_uint8_t *) DUK_HBUFFER_GET_DATA_PTR((heap), (h)->buf)) + (h)->offset)) + +/* True if slice is full, i.e. offset is zero and length covers the entire + * buffer. This status may change independently of the duk_hbufobj if + * the underlying buffer is dynamic and changes without the hbufobj + * being changed. + */ +#define DUK_HBUFOBJ_FULL_SLICE(h) \ + (DUK_ASSERT_EXPR((h) != NULL), DUK_ASSERT_EXPR((h)->buf != NULL), \ + ((h)->offset == 0 && (h)->length == DUK_HBUFFER_GET_SIZE((h)->buf))) + +/* Validate that the whole slice [0,length[ is contained in the underlying + * buffer. Caller must ensure 'buf' != NULL. + */ +#define DUK_HBUFOBJ_VALID_SLICE(h) \ + (DUK_ASSERT_EXPR((h) != NULL), DUK_ASSERT_EXPR((h)->buf != NULL), \ + ((h)->offset + (h)->length <= DUK_HBUFFER_GET_SIZE((h)->buf))) + +/* Validate byte read/write for virtual 'offset', i.e. check that the + * offset, taking into account h->offset, is within the underlying + * buffer size. This is a safety check which is needed to ensure + * that even a misconfigured duk_hbufobj never causes memory unsafe + * behavior (e.g. if an underlying dynamic buffer changes after being + * setup). Caller must ensure 'buf' != NULL. + */ +#define DUK_HBUFOBJ_VALID_BYTEOFFSET_INCL(h,off) \ + (DUK_ASSERT_EXPR((h) != NULL), DUK_ASSERT_EXPR((h)->buf != NULL), \ + ((h)->offset + (off) < DUK_HBUFFER_GET_SIZE((h)->buf))) + +#define DUK_HBUFOBJ_VALID_BYTEOFFSET_EXCL(h,off) \ + (DUK_ASSERT_EXPR((h) != NULL), DUK_ASSERT_EXPR((h)->buf != NULL), \ + ((h)->offset + (off) <= DUK_HBUFFER_GET_SIZE((h)->buf))) + +/* Clamp an input byte length (already assumed to be within the nominal + * duk_hbufobj 'length') to the current dynamic buffer limits to yield + * a byte length limit that's safe for memory accesses. This value can + * be invalidated by any side effect because it may trigger a user + * callback that resizes the underlying buffer. + */ +#define DUK_HBUFOBJ_CLAMP_BYTELENGTH(h,len) \ + (DUK_ASSERT_EXPR((h) != NULL), \ + duk_hbufobj_clamp_bytelength((h), (len))) + +/* Typed arrays have virtual indices, ArrayBuffer and DataView do not. */ +#define DUK_HBUFOBJ_HAS_VIRTUAL_INDICES(h) ((h)->is_typedarray) + +struct duk_hbufobj { + /* Shared object part. */ + duk_hobject obj; + + /* Underlying buffer (refcounted), may be NULL. */ + duk_hbuffer *buf; + + /* .buffer reference to an ArrayBuffer, may be NULL. */ + duk_hobject *buf_prop; + + /* Slice and accessor information. + * + * Because the underlying buffer may be dynamic, these may be + * invalidated by the buffer being modified so that both offset + * and length should be validated before every access. Behavior + * when the underlying buffer has changed doesn't need to be clean: + * virtual 'length' doesn't need to be affected, reads can return + * zero/NaN, and writes can be ignored. + * + * Note that a data pointer cannot be precomputed because 'buf' may + * be dynamic and its pointer unstable. + */ + + duk_uint_t offset; /* byte offset to buf */ + duk_uint_t length; /* byte index limit for element access, exclusive */ + duk_uint8_t shift; /* element size shift: + * 0 = u8/i8 + * 1 = u16/i16 + * 2 = u32/i32/float + * 3 = double + */ + duk_uint8_t elem_type; /* element type */ + duk_uint8_t is_typedarray; +}; + +DUK_INTERNAL_DECL duk_uint_t duk_hbufobj_clamp_bytelength(duk_hbufobj *h_bufobj, duk_uint_t len); +DUK_INTERNAL_DECL void duk_hbufobj_push_uint8array_from_plain(duk_hthread *thr, duk_hbuffer *h_buf); +DUK_INTERNAL_DECL void duk_hbufobj_push_validated_read(duk_hthread *thr, duk_hbufobj *h_bufobj, duk_uint8_t *p, duk_small_uint_t elem_size); +DUK_INTERNAL_DECL void duk_hbufobj_validated_write(duk_hthread *thr, duk_hbufobj *h_bufobj, duk_uint8_t *p, duk_small_uint_t elem_size); +DUK_INTERNAL_DECL void duk_hbufobj_promote_plain(duk_hthread *thr, duk_idx_t idx); + +#else /* DUK_USE_BUFFEROBJECT_SUPPORT */ + +/* nothing */ + +#endif /* DUK_USE_BUFFEROBJECT_SUPPORT */ +#endif /* DUK_HBUFOBJ_H_INCLUDED */ +/* #include duk_hthread.h */ +#line 1 "duk_hthread.h" +/* + * Heap thread object representation. + * + * duk_hthread is also the 'context' for public API functions via a + * different typedef. Most API calls operate on the topmost frame + * of the value stack only. + */ + +#if !defined(DUK_HTHREAD_H_INCLUDED) +#define DUK_HTHREAD_H_INCLUDED + +/* + * Stack constants + */ + +/* Initial valstack size, roughly 0.7kiB. */ +#define DUK_VALSTACK_INITIAL_SIZE 96U + +/* Internal extra elements assumed on function entry, always added to + * user-defined 'extra' for e.g. the duk_check_stack() call. + */ +#define DUK_VALSTACK_INTERNAL_EXTRA 32U + +/* Number of elements guaranteed to be user accessible (in addition to call + * arguments) on Duktape/C function entry. This is the major public API + * commitment. + */ +#define DUK_VALSTACK_API_ENTRY_MINIMUM DUK_API_ENTRY_STACK + +/* + * Activation defines + */ + +#define DUK_ACT_FLAG_STRICT (1U << 0) /* function executes in strict mode */ +#define DUK_ACT_FLAG_TAILCALLED (1U << 1) /* activation has tail called one or more times */ +#define DUK_ACT_FLAG_CONSTRUCT (1U << 2) /* function executes as a constructor (called via "new") */ +#define DUK_ACT_FLAG_PREVENT_YIELD (1U << 3) /* activation prevents yield (native call or "new") */ +#define DUK_ACT_FLAG_DIRECT_EVAL (1U << 4) /* activation is a direct eval call */ +#define DUK_ACT_FLAG_CONSTRUCT_PROXY (1U << 5) /* activation is for Proxy 'construct' call, special return value handling */ +#define DUK_ACT_FLAG_BREAKPOINT_ACTIVE (1U << 6) /* activation has active breakpoint(s) */ + +#define DUK_ACT_GET_FUNC(act) ((act)->func) + +/* + * Flags for __FILE__ / __LINE__ registered into tracedata + */ + +#define DUK_TB_FLAG_NOBLAME_FILELINE (1U << 0) /* don't report __FILE__ / __LINE__ as fileName/lineNumber */ + +/* + * Catcher defines + */ + +/* XXX: remove catcher type entirely */ + +/* flags field: LLLLLLFT, L = label (24 bits), F = flags (4 bits), T = type (4 bits) */ +#define DUK_CAT_TYPE_MASK 0x0000000fUL +#define DUK_CAT_TYPE_BITS 4 +#define DUK_CAT_LABEL_MASK 0xffffff00UL +#define DUK_CAT_LABEL_BITS 24 +#define DUK_CAT_LABEL_SHIFT 8 + +#define DUK_CAT_FLAG_CATCH_ENABLED (1U << 4) /* catch part will catch */ +#define DUK_CAT_FLAG_FINALLY_ENABLED (1U << 5) /* finally part will catch */ +#define DUK_CAT_FLAG_CATCH_BINDING_ENABLED (1U << 6) /* request to create catch binding */ +#define DUK_CAT_FLAG_LEXENV_ACTIVE (1U << 7) /* catch or with binding is currently active */ + +#define DUK_CAT_TYPE_UNKNOWN 0 +#define DUK_CAT_TYPE_TCF 1 +#define DUK_CAT_TYPE_LABEL 2 + +#define DUK_CAT_GET_TYPE(c) ((c)->flags & DUK_CAT_TYPE_MASK) +#define DUK_CAT_GET_LABEL(c) (((c)->flags & DUK_CAT_LABEL_MASK) >> DUK_CAT_LABEL_SHIFT) + +#define DUK_CAT_HAS_CATCH_ENABLED(c) ((c)->flags & DUK_CAT_FLAG_CATCH_ENABLED) +#define DUK_CAT_HAS_FINALLY_ENABLED(c) ((c)->flags & DUK_CAT_FLAG_FINALLY_ENABLED) +#define DUK_CAT_HAS_CATCH_BINDING_ENABLED(c) ((c)->flags & DUK_CAT_FLAG_CATCH_BINDING_ENABLED) +#define DUK_CAT_HAS_LEXENV_ACTIVE(c) ((c)->flags & DUK_CAT_FLAG_LEXENV_ACTIVE) + +#define DUK_CAT_SET_CATCH_ENABLED(c) do { \ + (c)->flags |= DUK_CAT_FLAG_CATCH_ENABLED; \ + } while (0) +#define DUK_CAT_SET_FINALLY_ENABLED(c) do { \ + (c)->flags |= DUK_CAT_FLAG_FINALLY_ENABLED; \ + } while (0) +#define DUK_CAT_SET_CATCH_BINDING_ENABLED(c) do { \ + (c)->flags |= DUK_CAT_FLAG_CATCH_BINDING_ENABLED; \ + } while (0) +#define DUK_CAT_SET_LEXENV_ACTIVE(c) do { \ + (c)->flags |= DUK_CAT_FLAG_LEXENV_ACTIVE; \ + } while (0) + +#define DUK_CAT_CLEAR_CATCH_ENABLED(c) do { \ + (c)->flags &= ~DUK_CAT_FLAG_CATCH_ENABLED; \ + } while (0) +#define DUK_CAT_CLEAR_FINALLY_ENABLED(c) do { \ + (c)->flags &= ~DUK_CAT_FLAG_FINALLY_ENABLED; \ + } while (0) +#define DUK_CAT_CLEAR_CATCH_BINDING_ENABLED(c) do { \ + (c)->flags &= ~DUK_CAT_FLAG_CATCH_BINDING_ENABLED; \ + } while (0) +#define DUK_CAT_CLEAR_LEXENV_ACTIVE(c) do { \ + (c)->flags &= ~DUK_CAT_FLAG_LEXENV_ACTIVE; \ + } while (0) + +/* + * Thread defines + */ + +#if defined(DUK_USE_ROM_STRINGS) +#define DUK_HTHREAD_GET_STRING(thr,idx) \ + ((duk_hstring *) DUK_LOSE_CONST(duk_rom_strings_stridx[(idx)])) +#else /* DUK_USE_ROM_STRINGS */ +#if defined(DUK_USE_HEAPPTR16) +#define DUK_HTHREAD_GET_STRING(thr,idx) \ + ((duk_hstring *) DUK_USE_HEAPPTR_DEC16((thr)->heap->heap_udata, (thr)->strs16[(idx)])) +#else +#define DUK_HTHREAD_GET_STRING(thr,idx) \ + ((thr)->strs[(idx)]) +#endif +#endif /* DUK_USE_ROM_STRINGS */ + +/* values for the state field */ +#define DUK_HTHREAD_STATE_INACTIVE 1 /* thread not currently running */ +#define DUK_HTHREAD_STATE_RUNNING 2 /* thread currently running (only one at a time) */ +#define DUK_HTHREAD_STATE_RESUMED 3 /* thread resumed another thread (active but not running) */ +#define DUK_HTHREAD_STATE_YIELDED 4 /* thread has yielded */ +#define DUK_HTHREAD_STATE_TERMINATED 5 /* thread has terminated */ + +/* Executor interrupt default interval when nothing else requires a + * smaller value. The default interval must be small enough to allow + * for reasonable execution timeout checking but large enough to keep + * impact on execution performance low. + */ +#if defined(DUK_USE_INTERRUPT_COUNTER) +#define DUK_HTHREAD_INTCTR_DEFAULT (256L * 1024L) +#endif + +/* + * Assert context is valid: non-NULL pointer, fields look sane. + * + * This is used by public API call entrypoints to catch invalid 'ctx' pointers + * as early as possible; invalid 'ctx' pointers cause very odd and difficult to + * diagnose behavior so it's worth checking even when the check is not 100%. + */ + +#if defined(DUK_USE_ASSERTIONS) +/* Assertions for internals. */ +DUK_INTERNAL_DECL void duk_hthread_assert_valid(duk_hthread *thr); +#define DUK_HTHREAD_ASSERT_VALID(thr) do { duk_hthread_assert_valid((thr)); } while (0) + +/* Assertions for public API calls; a bit stronger. */ +DUK_INTERNAL_DECL void duk_ctx_assert_valid(duk_hthread *thr); +#define DUK_CTX_ASSERT_VALID(thr) do { duk_ctx_assert_valid((thr)); } while (0) +#else +#define DUK_HTHREAD_ASSERT_VALID(thr) do {} while (0) +#define DUK_CTX_ASSERT_VALID(thr) do {} while (0) +#endif + +/* Assertions for API call entry specifically. Checks 'ctx' but also may + * check internal state (e.g. not in a debugger transport callback). + */ +#define DUK_ASSERT_API_ENTRY(thr) do { \ + DUK_CTX_ASSERT_VALID((thr)); \ + DUK_ASSERT((thr)->heap != NULL); \ + DUK_ASSERT((thr)->heap->dbg_calling_transport == 0); \ + } while (0) + +/* + * Assertion helpers. + */ + +#define DUK_ASSERT_STRIDX_VALID(val) \ + DUK_ASSERT((duk_uint_t) (val) < DUK_HEAP_NUM_STRINGS) + +#define DUK_ASSERT_BIDX_VALID(val) \ + DUK_ASSERT((duk_uint_t) (val) < DUK_NUM_BUILTINS) + +/* + * Misc + */ + +/* Fast access to 'this' binding. Assumes there's a call in progress. */ +#define DUK_HTHREAD_THIS_PTR(thr) \ + (DUK_ASSERT_EXPR((thr) != NULL), \ + DUK_ASSERT_EXPR((thr)->valstack_bottom > (thr)->valstack), \ + (thr)->valstack_bottom - 1) + +/* + * Struct defines + */ + +/* Fields are ordered for alignment/packing. */ +struct duk_activation { + duk_tval tv_func; /* borrowed: full duk_tval for function being executed; for lightfuncs */ + duk_hobject *func; /* borrowed: function being executed; for bound function calls, this is the final, real function, NULL for lightfuncs */ + duk_activation *parent; /* previous (parent) activation (or NULL if none) */ + duk_hobject *var_env; /* current variable environment (may be NULL if delayed) */ + duk_hobject *lex_env; /* current lexical environment (may be NULL if delayed) */ + duk_catcher *cat; /* current catcher (or NULL) */ + +#if defined(DUK_USE_NONSTD_FUNC_CALLER_PROPERTY) + /* Previous value of 'func' caller, restored when unwound. Only in use + * when 'func' is non-strict. + */ + duk_hobject *prev_caller; +#endif + + duk_instr_t *curr_pc; /* next instruction to execute (points to 'func' bytecode, stable pointer), NULL for native calls */ + + /* bottom_byteoff and retval_byteoff are only used for book-keeping + * of ECMAScript-initiated calls, to allow returning to an ECMAScript + * function properly. + */ + + /* Bottom of valstack for this activation, used to reset + * valstack_bottom on return; offset is absolute. There's + * no need to track 'top' because native call handling deals + * with that using locals, and for ECMAScript returns 'nregs' + * indicates the necessary top. + */ + duk_size_t bottom_byteoff; + + /* Return value when returning to this activation (points to caller + * reg, not callee reg); offset is absolute (only set if activation is + * not topmost). + * + * Note: bottom_byteoff is always set, while retval_byteoff is only + * applicable for activations below the topmost one. Currently + * retval_byteoff for the topmost activation is considered garbage + * (and it not initialized on entry or cleared on return; may contain + * previous or garbage values). + */ + duk_size_t retval_byteoff; + + /* Current 'this' binding is the value just below bottom. + * Previously, 'this' binding was handled with an index to the + * (calling) valstack. This works for everything except tail + * calls, which must not "accumulate" valstack temps. + */ + + /* Value stack reserve (valstack_end) byte offset to be restored + * when returning to this activation. Only used by the bytecode + * executor. + */ + duk_size_t reserve_byteoff; + +#if defined(DUK_USE_DEBUGGER_SUPPORT) + duk_uint32_t prev_line; /* needed for stepping */ +#endif + + duk_small_uint_t flags; +}; + +struct duk_catcher { + duk_catcher *parent; /* previous (parent) catcher (or NULL if none) */ + duk_hstring *h_varname; /* borrowed reference to catch variable name (or NULL if none) */ + /* (reference is valid as long activation exists) */ + duk_instr_t *pc_base; /* resume execution from pc_base or pc_base+1 (points to 'func' bytecode, stable pointer) */ + duk_size_t idx_base; /* idx_base and idx_base+1 get completion value and type */ + duk_uint32_t flags; /* type and control flags, label number */ + /* XXX: could pack 'flags' and 'idx_base' to same value in practice, + * on 32-bit targets this would make duk_catcher 16 bytes. + */ +}; + +struct duk_hthread { + /* Shared object part */ + duk_hobject obj; + + /* Pointer to bytecode executor's 'curr_pc' variable. Used to copy + * the current PC back into the topmost activation when activation + * state is about to change (or "syncing" is otherwise needed). This + * is rather awkward but important for performance, see execution.rst. + */ + duk_instr_t **ptr_curr_pc; + + /* Backpointers. */ + duk_heap *heap; + + /* Current strictness flag: affects API calls. */ + duk_uint8_t strict; + + /* Thread state. */ + duk_uint8_t state; + duk_uint8_t unused1; + duk_uint8_t unused2; + + /* XXX: Valstack and callstack are currently assumed to have non-NULL + * pointers. Relaxing this would not lead to big benefits (except + * perhaps for terminated threads). + */ + + /* Value stack: these are expressed as pointers for faster stack + * manipulation. [valstack,valstack_top[ is GC-reachable, + * [valstack_top,valstack_alloc_end[ is not GC-reachable but kept + * initialized as 'undefined'. [valstack,valstack_end[ is the + * guaranteed/reserved space and the valstack cannot be resized to + * a smaller size. [valstack_end,valstack_alloc_end[ is currently + * allocated slack that can be used to grow the current guaranteed + * space but may be shrunk away without notice. + * + * + * <----------------------- guaranteed ---> + * <---- slack ---> + * <--- frame ---> + * .-------------+=============+----------+--------------. + * |xxxxxxxxxxxxx|yyyyyyyyyyyyy|uuuuuuuuuu|uuuuuuuuuuuuuu| + * `-------------+=============+----------+--------------' + * + * ^ ^ ^ ^ ^ + * | | | | | + * valstack bottom top end alloc_end + * + * xxx = arbitrary values, below current frame + * yyy = arbitrary values, inside current frame + * uuu = outside active value stack, initialized to 'undefined' + */ + duk_tval *valstack; /* start of valstack allocation */ + duk_tval *valstack_end; /* end of valstack reservation/guarantee (exclusive) */ + duk_tval *valstack_alloc_end; /* end of valstack allocation */ + duk_tval *valstack_bottom; /* bottom of current frame */ + duk_tval *valstack_top; /* top of current frame (exclusive) */ + + /* Call stack, represented as a linked list starting from the current + * activation (or NULL if nothing is active). + */ + duk_activation *callstack_curr; /* current activation (or NULL if none) */ + duk_size_t callstack_top; /* number of activation records in callstack (0 if none) */ + duk_size_t callstack_preventcount; /* number of activation records in callstack preventing a yield */ + + /* Yield/resume book-keeping. */ + duk_hthread *resumer; /* who resumed us (if any) */ + + /* Current compiler state (if any), used for augmenting SyntaxErrors. */ + duk_compiler_ctx *compile_ctx; + +#if defined(DUK_USE_INTERRUPT_COUNTER) + /* Interrupt counter for triggering a slow path check for execution + * timeout, debugger interaction such as breakpoints, etc. The value + * is valid for the current running thread, and both the init and + * counter values are copied whenever a thread switch occurs. It's + * important for the counter to be conveniently accessible for the + * bytecode executor inner loop for performance reasons. + */ + duk_int_t interrupt_counter; /* countdown state */ + duk_int_t interrupt_init; /* start value for current countdown */ +#endif + + /* Builtin-objects; may or may not be shared with other threads, + * threads existing in different "compartments" will have different + * built-ins. Must be stored on a per-thread basis because there + * is no intermediate structure for a thread group / compartment. + * This takes quite a lot of space, currently 43x4 = 172 bytes on + * 32-bit platforms. + * + * In some cases the builtins array could be ROM based, but it's + * sometimes edited (e.g. for sandboxing) so it's better to keep + * this array in RAM. + */ + duk_hobject *builtins[DUK_NUM_BUILTINS]; + + /* Convenience copies from heap/vm for faster access. */ +#if defined(DUK_USE_ROM_STRINGS) + /* No field needed when strings are in ROM. */ +#else +#if defined(DUK_USE_HEAPPTR16) + duk_uint16_t *strs16; +#else + duk_hstring **strs; +#endif +#endif +}; + +/* + * Prototypes + */ + +DUK_INTERNAL_DECL void duk_hthread_copy_builtin_objects(duk_hthread *thr_from, duk_hthread *thr_to); +DUK_INTERNAL_DECL void duk_hthread_create_builtin_objects(duk_hthread *thr); +DUK_INTERNAL_DECL duk_bool_t duk_hthread_init_stacks(duk_heap *heap, duk_hthread *thr); +DUK_INTERNAL_DECL void duk_hthread_terminate(duk_hthread *thr); + +DUK_INTERNAL_DECL duk_activation *duk_hthread_activation_alloc(duk_hthread *thr); +DUK_INTERNAL_DECL void duk_hthread_activation_free(duk_hthread *thr, duk_activation *act); +DUK_INTERNAL_DECL void duk_hthread_activation_unwind_norz(duk_hthread *thr); +DUK_INTERNAL_DECL void duk_hthread_activation_unwind_reuse_norz(duk_hthread *thr); +DUK_INTERNAL_DECL duk_activation *duk_hthread_get_activation_for_level(duk_hthread *thr, duk_int_t level); + +DUK_INTERNAL_DECL duk_catcher *duk_hthread_catcher_alloc(duk_hthread *thr); +DUK_INTERNAL_DECL void duk_hthread_catcher_free(duk_hthread *thr, duk_catcher *cat); +DUK_INTERNAL_DECL void duk_hthread_catcher_unwind_norz(duk_hthread *thr, duk_activation *act); +DUK_INTERNAL_DECL void duk_hthread_catcher_unwind_nolexenv_norz(duk_hthread *thr, duk_activation *act); + +#if defined(DUK_USE_FINALIZER_TORTURE) +DUK_INTERNAL_DECL void duk_hthread_valstack_torture_realloc(duk_hthread *thr); +#endif + +DUK_INTERNAL_DECL void *duk_hthread_get_valstack_ptr(duk_heap *heap, void *ud); /* indirect allocs */ + +#if defined(DUK_USE_DEBUGGER_SUPPORT) +DUK_INTERNAL_DECL duk_uint_fast32_t duk_hthread_get_act_curr_pc(duk_hthread *thr, duk_activation *act); +#endif +DUK_INTERNAL_DECL duk_uint_fast32_t duk_hthread_get_act_prev_pc(duk_hthread *thr, duk_activation *act); +DUK_INTERNAL_DECL void duk_hthread_sync_currpc(duk_hthread *thr); +DUK_INTERNAL_DECL void duk_hthread_sync_and_null_currpc(duk_hthread *thr); + +#endif /* DUK_HTHREAD_H_INCLUDED */ +/* #include duk_harray.h */ +#line 1 "duk_harray.h" +/* + * Array object representation, used for actual Array instances. + * + * All objects with the exotic array behavior (which must coincide with having + * internal class array) MUST be duk_harrays. No other object can be a + * duk_harray. However, duk_harrays may not always have an array part. + */ + +#if !defined(DUK_HARRAY_H_INCLUDED) +#define DUK_HARRAY_H_INCLUDED + +#if defined(DUK_USE_ASSERTIONS) +DUK_INTERNAL_DECL void duk_harray_assert_valid(duk_harray *h); +#define DUK_HARRAY_ASSERT_VALID(h) do { duk_harray_assert_valid((h)); } while (0) +#else +#define DUK_HARRAY_ASSERT_VALID(h) do {} while (0) +#endif + +#define DUK_HARRAY_LENGTH_WRITABLE(h) (!(h)->length_nonwritable) +#define DUK_HARRAY_LENGTH_NONWRITABLE(h) ((h)->length_nonwritable) +#define DUK_HARRAY_SET_LENGTH_WRITABLE(h) do { (h)->length_nonwritable = 0; } while (0) +#define DUK_HARRAY_SET_LENGTH_NONWRITABLE(h) do { (h)->length_nonwritable = 1; } while (0) + +struct duk_harray { + /* Shared object part. */ + duk_hobject obj; + + /* Array .length. + * + * At present Array .length may be smaller, equal, or even larger + * than the allocated underlying array part. Fast path code must + * always take this into account carefully. + */ + duk_uint32_t length; + + /* Array .length property attributes. The property is always + * non-enumerable and non-configurable. It's initially writable + * but per Object.defineProperty() rules it can be made non-writable + * even if it is non-configurable. Thus we need to track the + * writability explicitly. + * + * XXX: this field to be eliminated and moved into duk_hobject + * flags field to save space. + */ + duk_bool_t length_nonwritable; +}; + +#endif /* DUK_HARRAY_H_INCLUDED */ +/* #include duk_henv.h */ +#line 1 "duk_henv.h" +/* + * Environment object representation. + */ + +#if !defined(DUK_HENV_H_INCLUDED) +#define DUK_HENV_H_INCLUDED + +#if defined(DUK_USE_ASSERTIONS) +DUK_INTERNAL_DECL void duk_hdecenv_assert_valid(duk_hdecenv *h); +DUK_INTERNAL_DECL void duk_hobjenv_assert_valid(duk_hobjenv *h); +#define DUK_HDECENV_ASSERT_VALID(h) do { duk_hdecenv_assert_valid((h)); } while (0) +#define DUK_HOBJENV_ASSERT_VALID(h) do { duk_hobjenv_assert_valid((h)); } while (0) +#else +#define DUK_HDECENV_ASSERT_VALID(h) do {} while (0) +#define DUK_HOBJENV_ASSERT_VALID(h) do {} while (0) +#endif + +struct duk_hdecenv { + /* Shared object part. */ + duk_hobject obj; + + /* These control variables provide enough information to access live + * variables for a closure that is still open. If thread == NULL, + * the record is closed and the identifiers are in the property table. + */ + duk_hthread *thread; + duk_hobject *varmap; + duk_size_t regbase_byteoff; +}; + +struct duk_hobjenv { + /* Shared object part. */ + duk_hobject obj; + + /* Target object and 'this' binding for object binding. */ + duk_hobject *target; + + /* The 'target' object is used as a this binding in only some object + * environments. For example, the global environment does not provide + * a this binding, but a with statement does. + */ + duk_bool_t has_this; +}; + +#endif /* DUK_HENV_H_INCLUDED */ +/* #include duk_hbuffer.h */ +#line 1 "duk_hbuffer.h" +/* + * Heap buffer representation. + * + * Heap allocated user data buffer which is either: + * + * 1. A fixed size buffer (data follows header statically) + * 2. A dynamic size buffer (data pointer follows header) + * + * The data pointer for a variable size buffer of zero size may be NULL. + */ + +#if !defined(DUK_HBUFFER_H_INCLUDED) +#define DUK_HBUFFER_H_INCLUDED + +/* + * Flags + * + * Fixed buffer: 0 + * Dynamic buffer: DUK_HBUFFER_FLAG_DYNAMIC + * External buffer: DUK_HBUFFER_FLAG_DYNAMIC | DUK_HBUFFER_FLAG_EXTERNAL + */ + +#define DUK_HBUFFER_FLAG_DYNAMIC DUK_HEAPHDR_USER_FLAG(0) /* buffer is behind a pointer, dynamic or external */ +#define DUK_HBUFFER_FLAG_EXTERNAL DUK_HEAPHDR_USER_FLAG(1) /* buffer pointer is to an externally allocated buffer */ + +#define DUK_HBUFFER_HAS_DYNAMIC(x) DUK_HEAPHDR_CHECK_FLAG_BITS(&(x)->hdr, DUK_HBUFFER_FLAG_DYNAMIC) +#define DUK_HBUFFER_HAS_EXTERNAL(x) DUK_HEAPHDR_CHECK_FLAG_BITS(&(x)->hdr, DUK_HBUFFER_FLAG_EXTERNAL) + +#define DUK_HBUFFER_SET_DYNAMIC(x) DUK_HEAPHDR_SET_FLAG_BITS(&(x)->hdr, DUK_HBUFFER_FLAG_DYNAMIC) +#define DUK_HBUFFER_SET_EXTERNAL(x) DUK_HEAPHDR_SET_FLAG_BITS(&(x)->hdr, DUK_HBUFFER_FLAG_EXTERNAL) + +#define DUK_HBUFFER_CLEAR_DYNAMIC(x) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(x)->hdr, DUK_HBUFFER_FLAG_DYNAMIC) +#define DUK_HBUFFER_CLEAR_EXTERNAL(x) DUK_HEAPHDR_CLEAR_FLAG_BITS(&(x)->hdr, DUK_HBUFFER_FLAG_EXTERNAL) + +/* + * Misc defines + */ + +/* Impose a maximum buffer length for now. Restricted artificially to + * ensure resize computations or adding a heap header length won't + * overflow size_t and that a signed duk_int_t can hold a buffer + * length. The limit should be synchronized with DUK_HSTRING_MAX_BYTELEN. + */ + +#if defined(DUK_USE_BUFLEN16) +#define DUK_HBUFFER_MAX_BYTELEN (0x0000ffffUL) +#else +/* Intentionally not 0x7fffffffUL; at least JSON code expects that + * 2*len + 2 fits in 32 bits. + */ +#define DUK_HBUFFER_MAX_BYTELEN (0x7ffffffeUL) +#endif + +/* + * Field access + */ + +#if defined(DUK_USE_BUFLEN16) +/* size stored in duk_heaphdr unused flag bits */ +#define DUK_HBUFFER_GET_SIZE(x) ((x)->hdr.h_flags >> 16) +#define DUK_HBUFFER_SET_SIZE(x,v) do { \ + duk_size_t duk__v; \ + duk__v = (v); \ + DUK_ASSERT(duk__v <= 0xffffUL); \ + (x)->hdr.h_flags = ((x)->hdr.h_flags & 0x0000ffffUL) | (((duk_uint32_t) duk__v) << 16); \ + } while (0) +#define DUK_HBUFFER_ADD_SIZE(x,dv) do { \ + (x)->hdr.h_flags += ((dv) << 16); \ + } while (0) +#define DUK_HBUFFER_SUB_SIZE(x,dv) do { \ + (x)->hdr.h_flags -= ((dv) << 16); \ + } while (0) +#else +#define DUK_HBUFFER_GET_SIZE(x) (((duk_hbuffer *) (x))->size) +#define DUK_HBUFFER_SET_SIZE(x,v) do { \ + ((duk_hbuffer *) (x))->size = (v); \ + } while (0) +#define DUK_HBUFFER_ADD_SIZE(x,dv) do { \ + (x)->size += (dv); \ + } while (0) +#define DUK_HBUFFER_SUB_SIZE(x,dv) do { \ + (x)->size -= (dv); \ + } while (0) +#endif + +#define DUK_HBUFFER_FIXED_GET_SIZE(x) DUK_HBUFFER_GET_SIZE((duk_hbuffer *) (x)) +#define DUK_HBUFFER_FIXED_SET_SIZE(x,v) DUK_HBUFFER_SET_SIZE((duk_hbuffer *) (x)) + +#define DUK_HBUFFER_DYNAMIC_GET_SIZE(x) DUK_HBUFFER_GET_SIZE((duk_hbuffer *) (x)) +#define DUK_HBUFFER_DYNAMIC_SET_SIZE(x,v) DUK_HBUFFER_SET_SIZE((duk_hbuffer *) (x), (v)) +#define DUK_HBUFFER_DYNAMIC_ADD_SIZE(x,dv) DUK_HBUFFER_ADD_SIZE((duk_hbuffer *) (x), (dv)) +#define DUK_HBUFFER_DYNAMIC_SUB_SIZE(x,dv) DUK_HBUFFER_SUB_SIZE((duk_hbuffer *) (x), (dv)) + +#define DUK_HBUFFER_EXTERNAL_GET_SIZE(x) DUK_HBUFFER_GET_SIZE((duk_hbuffer *) (x)) +#define DUK_HBUFFER_EXTERNAL_SET_SIZE(x,v) DUK_HBUFFER_SET_SIZE((duk_hbuffer *) (x), (v)) + +#define DUK_HBUFFER_FIXED_GET_DATA_PTR(heap,x) ((duk_uint8_t *) (((duk_hbuffer_fixed *) (void *) (x)) + 1)) + +#if defined(DUK_USE_HEAPPTR16) +#define DUK_HBUFFER_DYNAMIC_GET_DATA_PTR(heap,x) \ + ((void *) DUK_USE_HEAPPTR_DEC16((heap)->heap_udata, ((duk_heaphdr *) (x))->h_extra16)) +#define DUK_HBUFFER_DYNAMIC_SET_DATA_PTR(heap,x,v) do { \ + ((duk_heaphdr *) (x))->h_extra16 = DUK_USE_HEAPPTR_ENC16((heap)->heap_udata, (void *) (v)); \ + } while (0) +#define DUK_HBUFFER_DYNAMIC_SET_DATA_PTR_NULL(heap,x) do { \ + ((duk_heaphdr *) (x))->h_extra16 = 0; /* assume 0 <=> NULL */ \ + } while (0) +#else +#define DUK_HBUFFER_DYNAMIC_GET_DATA_PTR(heap,x) ((x)->curr_alloc) +#define DUK_HBUFFER_DYNAMIC_SET_DATA_PTR(heap,x,v) do { \ + (x)->curr_alloc = (void *) (v); \ + } while (0) +#define DUK_HBUFFER_DYNAMIC_SET_DATA_PTR_NULL(heap,x) do { \ + (x)->curr_alloc = (void *) NULL; \ + } while (0) +#endif + +/* No pointer compression because pointer is potentially outside of + * Duktape heap. + */ +#if defined(DUK_USE_HEAPPTR16) +#define DUK_HBUFFER_EXTERNAL_GET_DATA_PTR(heap,x) \ + ((void *) (x)->curr_alloc) +#define DUK_HBUFFER_EXTERNAL_SET_DATA_PTR(heap,x,v) do { \ + (x)->curr_alloc = (void *) (v); \ + } while (0) +#define DUK_HBUFFER_EXTERNAL_SET_DATA_PTR_NULL(heap,x) do { \ + (x)->curr_alloc = (void *) NULL; \ + } while (0) +#else +#define DUK_HBUFFER_EXTERNAL_GET_DATA_PTR(heap,x) \ + ((void *) (x)->curr_alloc) +#define DUK_HBUFFER_EXTERNAL_SET_DATA_PTR(heap,x,v) do { \ + (x)->curr_alloc = (void *) (v); \ + } while (0) +#define DUK_HBUFFER_EXTERNAL_SET_DATA_PTR_NULL(heap,x) do { \ + (x)->curr_alloc = (void *) NULL; \ + } while (0) +#endif + +/* Get a pointer to the current buffer contents (matching current allocation + * size). May be NULL for zero size dynamic/external buffer. + */ +#if defined(DUK_USE_HEAPPTR16) +#define DUK_HBUFFER_GET_DATA_PTR(heap,x) ( \ + DUK_HBUFFER_HAS_DYNAMIC((x)) ? \ + ( \ + DUK_HBUFFER_HAS_EXTERNAL((x)) ? \ + DUK_HBUFFER_EXTERNAL_GET_DATA_PTR((heap), (duk_hbuffer_external *) (x)) : \ + DUK_HBUFFER_DYNAMIC_GET_DATA_PTR((heap), (duk_hbuffer_dynamic *) (x)) \ + ) : \ + DUK_HBUFFER_FIXED_GET_DATA_PTR((heap), (duk_hbuffer_fixed *) (void *) (x)) \ + ) +#else +/* Without heap pointer compression duk_hbuffer_dynamic and duk_hbuffer_external + * have the same layout so checking for fixed vs. dynamic (or external) is enough. + */ +#define DUK_HBUFFER_GET_DATA_PTR(heap,x) ( \ + DUK_HBUFFER_HAS_DYNAMIC((x)) ? \ + DUK_HBUFFER_DYNAMIC_GET_DATA_PTR((heap), (duk_hbuffer_dynamic *) (x)) : \ + DUK_HBUFFER_FIXED_GET_DATA_PTR((heap), (duk_hbuffer_fixed *) (void *) (x)) \ + ) +#endif + +/* Validity assert. */ +#if defined(DUK_USE_ASSERTIONS) +DUK_INTERNAL_DECL void duk_hbuffer_assert_valid(duk_hbuffer *h); +#define DUK_HBUFFER_ASSERT_VALID(h) do { duk_hbuffer_assert_valid((h)); } while (0) +#else +#define DUK_HBUFFER_ASSERT_VALID(h) do {} while (0) +#endif + +/* + * Structs + */ + +/* Shared prefix for all buffer types. */ +struct duk_hbuffer { + duk_heaphdr hdr; + + /* It's not strictly necessary to track the current size, but + * it is useful for writing robust native code. + */ + + /* Current size. */ +#if defined(DUK_USE_BUFLEN16) + /* Stored in duk_heaphdr unused flags. */ +#else + duk_size_t size; +#endif + + /* + * Data following the header depends on the DUK_HBUFFER_FLAG_DYNAMIC + * flag. + * + * If the flag is clear (the buffer is a fixed size one), the buffer + * data follows the header directly, consisting of 'size' bytes. + * + * If the flag is set, the actual buffer is allocated separately, and + * a few control fields follow the header. Specifically: + * + * - a "void *" pointing to the current allocation + * - a duk_size_t indicating the full allocated size (always >= 'size') + * + * If DUK_HBUFFER_FLAG_EXTERNAL is set, the buffer has been allocated + * by user code, so that Duktape won't be able to resize it and won't + * free it. This allows buffers to point to e.g. an externally + * allocated structure such as a frame buffer. + * + * Unlike strings, no terminator byte (NUL) is guaranteed after the + * data. This would be convenient, but would pad aligned user buffers + * unnecessarily upwards in size. For instance, if user code requested + * a 64-byte dynamic buffer, 65 bytes would actually be allocated which + * would then potentially round upwards to perhaps 68 or 72 bytes. + */ +}; + +/* Fixed buffer; data follows struct, with proper alignment guaranteed by + * struct size. + */ +#if (DUK_USE_ALIGN_BY == 8) && defined(DUK_USE_PACK_MSVC_PRAGMA) +#pragma pack(push, 8) +#endif +struct duk_hbuffer_fixed { + /* A union is used here as a portable struct size / alignment trick: + * by adding a 32-bit or a 64-bit (unused) union member, the size of + * the struct is effectively forced to be a multiple of 4 or 8 bytes + * (respectively) without increasing the size of the struct unless + * necessary. + */ + union { + struct { + duk_heaphdr hdr; +#if defined(DUK_USE_BUFLEN16) + /* Stored in duk_heaphdr unused flags. */ +#else + duk_size_t size; +#endif + } s; +#if (DUK_USE_ALIGN_BY == 4) + duk_uint32_t dummy_for_align4; +#elif (DUK_USE_ALIGN_BY == 8) + duk_double_t dummy_for_align8_1; +#if defined(DUK_USE_64BIT_OPS) + duk_uint64_t dummy_for_align8_2; +#endif +#elif (DUK_USE_ALIGN_BY == 1) + /* no extra padding */ +#else +#error invalid DUK_USE_ALIGN_BY +#endif + } u; + + /* + * Data follows the struct header. The struct size is padded by the + * compiler based on the struct members. This guarantees that the + * buffer data will be aligned-by-4 but not necessarily aligned-by-8. + * + * On platforms where alignment does not matter, the struct padding + * could be removed (if there is any). On platforms where alignment + * by 8 is required, the struct size must be forced to be a multiple + * of 8 by some means. Without it, some user code may break, and also + * Duktape itself breaks (e.g. the compiler stores duk_tvals in a + * dynamic buffer). + */ +} +#if (DUK_USE_ALIGN_BY == 8) && defined(DUK_USE_PACK_GCC_ATTR) +__attribute__ ((aligned (8))) +#elif (DUK_USE_ALIGN_BY == 8) && defined(DUK_USE_PACK_CLANG_ATTR) +__attribute__ ((aligned (8))) +#endif +; +#if (DUK_USE_ALIGN_BY == 8) && defined(DUK_USE_PACK_MSVC_PRAGMA) +#pragma pack(pop) +#endif + +/* Dynamic buffer with 'curr_alloc' pointing to a dynamic area allocated using + * heap allocation primitives. Also used for external buffers when low memory + * options are not used. + */ +struct duk_hbuffer_dynamic { + duk_heaphdr hdr; + +#if defined(DUK_USE_BUFLEN16) + /* Stored in duk_heaphdr unused flags. */ +#else + duk_size_t size; +#endif + +#if defined(DUK_USE_HEAPPTR16) + /* Stored in duk_heaphdr h_extra16. */ +#else + void *curr_alloc; /* may be NULL if alloc_size == 0 */ +#endif + + /* + * Allocation size for 'curr_alloc' is alloc_size. There is no + * automatic NUL terminator for buffers (see above for rationale). + * + * 'curr_alloc' is explicitly allocated with heap allocation + * primitives and will thus always have alignment suitable for + * e.g. duk_tval and an IEEE double. + */ +}; + +/* External buffer with 'curr_alloc' managed by user code and pointing to an + * arbitrary address. When heap pointer compression is not used, this struct + * has the same layout as duk_hbuffer_dynamic. + */ +struct duk_hbuffer_external { + duk_heaphdr hdr; + +#if defined(DUK_USE_BUFLEN16) + /* Stored in duk_heaphdr unused flags. */ +#else + duk_size_t size; +#endif + + /* Cannot be compressed as a heap pointer because may point to + * an arbitrary address. + */ + void *curr_alloc; /* may be NULL if alloc_size == 0 */ +}; + +/* + * Prototypes + */ + +DUK_INTERNAL_DECL duk_hbuffer *duk_hbuffer_alloc(duk_heap *heap, duk_size_t size, duk_small_uint_t flags, void **out_bufdata); +DUK_INTERNAL_DECL void *duk_hbuffer_get_dynalloc_ptr(duk_heap *heap, void *ud); /* indirect allocs */ + +/* dynamic buffer ops */ +DUK_INTERNAL_DECL void duk_hbuffer_resize(duk_hthread *thr, duk_hbuffer_dynamic *buf, duk_size_t new_size); +DUK_INTERNAL_DECL void duk_hbuffer_reset(duk_hthread *thr, duk_hbuffer_dynamic *buf); + +#endif /* DUK_HBUFFER_H_INCLUDED */ +/* #include duk_hproxy.h */ +#line 1 "duk_hproxy.h" +/* + * Proxy object representation. + */ + +#if !defined(DUK_HPROXY_H_INCLUDED) +#define DUK_HPROXY_H_INCLUDED + +#if defined(DUK_USE_ASSERTIONS) +DUK_INTERNAL_DECL void duk_hproxy_assert_valid(duk_hproxy *h); +#define DUK_HPROXY_ASSERT_VALID(h) do { duk_hproxy_assert_valid((h)); } while (0) +#else +#define DUK_HPROXY_ASSERT_VALID(h) do {} while (0) +#endif + +struct duk_hproxy { + /* Shared object part. */ + duk_hobject obj; + + /* Proxy target object. */ + duk_hobject *target; + + /* Proxy handlers (traps). */ + duk_hobject *handler; +}; + +#endif /* DUK_HPROXY_H_INCLUDED */ +/* #include duk_heap.h */ +#line 1 "duk_heap.h" +/* + * Heap structure. + * + * Heap contains allocated heap objects, interned strings, and built-in + * strings for one or more threads. + */ + +#if !defined(DUK_HEAP_H_INCLUDED) +#define DUK_HEAP_H_INCLUDED + +/* alloc function typedefs in duktape.h */ + +/* + * Heap flags + */ + +#define DUK_HEAP_FLAG_MARKANDSWEEP_RECLIMIT_REACHED (1U << 0) /* mark-and-sweep marking reached a recursion limit and must use multi-pass marking */ +#define DUK_HEAP_FLAG_INTERRUPT_RUNNING (1U << 1) /* executor interrupt running (used to avoid nested interrupts) */ +#define DUK_HEAP_FLAG_FINALIZER_NORESCUE (1U << 2) /* heap destruction ongoing, finalizer rescue no longer possible */ +#define DUK_HEAP_FLAG_DEBUGGER_PAUSED (1U << 3) /* debugger is paused: talk with debug client until step/resume */ + +#define DUK__HEAP_HAS_FLAGS(heap,bits) ((heap)->flags & (bits)) +#define DUK__HEAP_SET_FLAGS(heap,bits) do { \ + (heap)->flags |= (bits); \ + } while (0) +#define DUK__HEAP_CLEAR_FLAGS(heap,bits) do { \ + (heap)->flags &= ~(bits); \ + } while (0) + +#define DUK_HEAP_HAS_MARKANDSWEEP_RECLIMIT_REACHED(heap) DUK__HEAP_HAS_FLAGS((heap), DUK_HEAP_FLAG_MARKANDSWEEP_RECLIMIT_REACHED) +#define DUK_HEAP_HAS_INTERRUPT_RUNNING(heap) DUK__HEAP_HAS_FLAGS((heap), DUK_HEAP_FLAG_INTERRUPT_RUNNING) +#define DUK_HEAP_HAS_FINALIZER_NORESCUE(heap) DUK__HEAP_HAS_FLAGS((heap), DUK_HEAP_FLAG_FINALIZER_NORESCUE) +#define DUK_HEAP_HAS_DEBUGGER_PAUSED(heap) DUK__HEAP_HAS_FLAGS((heap), DUK_HEAP_FLAG_DEBUGGER_PAUSED) + +#define DUK_HEAP_SET_MARKANDSWEEP_RECLIMIT_REACHED(heap) DUK__HEAP_SET_FLAGS((heap), DUK_HEAP_FLAG_MARKANDSWEEP_RECLIMIT_REACHED) +#define DUK_HEAP_SET_INTERRUPT_RUNNING(heap) DUK__HEAP_SET_FLAGS((heap), DUK_HEAP_FLAG_INTERRUPT_RUNNING) +#define DUK_HEAP_SET_FINALIZER_NORESCUE(heap) DUK__HEAP_SET_FLAGS((heap), DUK_HEAP_FLAG_FINALIZER_NORESCUE) +#define DUK_HEAP_SET_DEBUGGER_PAUSED(heap) DUK__HEAP_SET_FLAGS((heap), DUK_HEAP_FLAG_DEBUGGER_PAUSED) + +#define DUK_HEAP_CLEAR_MARKANDSWEEP_RECLIMIT_REACHED(heap) DUK__HEAP_CLEAR_FLAGS((heap), DUK_HEAP_FLAG_MARKANDSWEEP_RECLIMIT_REACHED) +#define DUK_HEAP_CLEAR_INTERRUPT_RUNNING(heap) DUK__HEAP_CLEAR_FLAGS((heap), DUK_HEAP_FLAG_INTERRUPT_RUNNING) +#define DUK_HEAP_CLEAR_FINALIZER_NORESCUE(heap) DUK__HEAP_CLEAR_FLAGS((heap), DUK_HEAP_FLAG_FINALIZER_NORESCUE) +#define DUK_HEAP_CLEAR_DEBUGGER_PAUSED(heap) DUK__HEAP_CLEAR_FLAGS((heap), DUK_HEAP_FLAG_DEBUGGER_PAUSED) + +/* + * Longjmp types, also double as identifying continuation type for a rethrow (in 'finally') + */ + +#define DUK_LJ_TYPE_UNKNOWN 0 /* unused */ +#define DUK_LJ_TYPE_THROW 1 /* value1 -> error object */ +#define DUK_LJ_TYPE_YIELD 2 /* value1 -> yield value, iserror -> error / normal */ +#define DUK_LJ_TYPE_RESUME 3 /* value1 -> resume value, value2 -> resumee thread, iserror -> error/normal */ +#define DUK_LJ_TYPE_BREAK 4 /* value1 -> label number, pseudo-type to indicate a break continuation (for ENDFIN) */ +#define DUK_LJ_TYPE_CONTINUE 5 /* value1 -> label number, pseudo-type to indicate a continue continuation (for ENDFIN) */ +#define DUK_LJ_TYPE_RETURN 6 /* value1 -> return value, pseudo-type to indicate a return continuation (for ENDFIN) */ +#define DUK_LJ_TYPE_NORMAL 7 /* no value, pseudo-type to indicate a normal continuation (for ENDFIN) */ + +/* + * Mark-and-sweep flags + * + * These are separate from heap level flags now but could be merged. + * The heap structure only contains a 'base mark-and-sweep flags' + * field and the GC caller can impose further flags. + */ + +/* Emergency mark-and-sweep: try extra hard, even at the cost of + * performance. + */ +#define DUK_MS_FLAG_EMERGENCY (1U << 0) + +/* Postpone rescue decisions for reachable objects with FINALIZED set. + * Used during finalize_list processing to avoid incorrect rescue + * decisions due to finalize_list being a reachability root. + */ +#define DUK_MS_FLAG_POSTPONE_RESCUE (1U << 1) + +/* Don't compact objects; needed during object property table resize + * to prevent a recursive resize. It would suffice to protect only the + * current object being resized, but this is not yet implemented. + */ +#define DUK_MS_FLAG_NO_OBJECT_COMPACTION (1U << 2) + +/* + * Thread switching + * + * To switch heap->curr_thread, use the macro below so that interrupt counters + * get updated correctly. The macro allows a NULL target thread because that + * happens e.g. in call handling. + */ + +#if defined(DUK_USE_INTERRUPT_COUNTER) +#define DUK_HEAP_SWITCH_THREAD(heap,newthr) duk_heap_switch_thread((heap), (newthr)) +#else +#define DUK_HEAP_SWITCH_THREAD(heap,newthr) do { \ + (heap)->curr_thread = (newthr); \ + } while (0) +#endif + +/* + * Stats + */ + +#if defined(DUK_USE_DEBUG) +#define DUK_STATS_INC(heap,fieldname) do { \ + (heap)->fieldname += 1; \ + } while (0) +#else +#define DUK_STATS_INC(heap,fieldname) do {} while (0) +#endif + +/* + * Other heap related defines + */ + +/* Mark-and-sweep interval is relative to combined count of objects and + * strings kept in the heap during the latest mark-and-sweep pass. + * Fixed point .8 multiplier and .0 adder. Trigger count (interval) is + * decreased by each (re)allocation attempt (regardless of size), and each + * refzero processed object. + * + * 'SKIP' indicates how many (re)allocations to wait until a retry if + * GC is skipped because there is no thread do it with yet (happens + * only during init phases). + */ +#if defined(DUK_USE_REFERENCE_COUNTING) +#define DUK_HEAP_MARK_AND_SWEEP_TRIGGER_MULT 12800L /* 50x heap size */ +#define DUK_HEAP_MARK_AND_SWEEP_TRIGGER_ADD 1024L +#define DUK_HEAP_MARK_AND_SWEEP_TRIGGER_SKIP 256L +#else +#define DUK_HEAP_MARK_AND_SWEEP_TRIGGER_MULT 256L /* 1x heap size */ +#define DUK_HEAP_MARK_AND_SWEEP_TRIGGER_ADD 1024L +#define DUK_HEAP_MARK_AND_SWEEP_TRIGGER_SKIP 256L +#endif + +/* GC torture. */ +#if defined(DUK_USE_GC_TORTURE) +#define DUK_GC_TORTURE(heap) do { duk_heap_mark_and_sweep((heap), 0); } while (0) +#else +#define DUK_GC_TORTURE(heap) do { } while (0) +#endif + +/* Stringcache is used for speeding up char-offset-to-byte-offset + * translations for non-ASCII strings. + */ +#define DUK_HEAP_STRCACHE_SIZE 4 +#define DUK_HEAP_STRINGCACHE_NOCACHE_LIMIT 16 /* strings up to the this length are not cached */ + +/* Some list management macros. */ +#define DUK_HEAP_INSERT_INTO_HEAP_ALLOCATED(heap,hdr) duk_heap_insert_into_heap_allocated((heap), (hdr)) +#if defined(DUK_USE_REFERENCE_COUNTING) +#define DUK_HEAP_REMOVE_FROM_HEAP_ALLOCATED(heap,hdr) duk_heap_remove_from_heap_allocated((heap), (hdr)) +#endif +#if defined(DUK_USE_FINALIZER_SUPPORT) +#define DUK_HEAP_INSERT_INTO_FINALIZE_LIST(heap,hdr) duk_heap_insert_into_finalize_list((heap), (hdr)) +#define DUK_HEAP_REMOVE_FROM_FINALIZE_LIST(heap,hdr) duk_heap_remove_from_finalize_list((heap), (hdr)) +#endif + +/* + * Built-in strings + */ + +/* heap string indices are autogenerated in duk_strings.h */ +#if defined(DUK_USE_ROM_STRINGS) +#define DUK_HEAP_GET_STRING(heap,idx) \ + ((duk_hstring *) DUK_LOSE_CONST(duk_rom_strings_stridx[(idx)])) +#else /* DUK_USE_ROM_STRINGS */ +#if defined(DUK_USE_HEAPPTR16) +#define DUK_HEAP_GET_STRING(heap,idx) \ + ((duk_hstring *) DUK_USE_HEAPPTR_DEC16((heap)->heap_udata, (heap)->strs16[(idx)])) +#else +#define DUK_HEAP_GET_STRING(heap,idx) \ + ((heap)->strs[(idx)]) +#endif +#endif /* DUK_USE_ROM_STRINGS */ + +/* + * Raw memory calls: relative to heap, but no GC interaction + */ + +#define DUK_ALLOC_RAW(heap,size) \ + ((heap)->alloc_func((heap)->heap_udata, (size))) + +#define DUK_REALLOC_RAW(heap,ptr,newsize) \ + ((heap)->realloc_func((heap)->heap_udata, (void *) (ptr), (newsize))) + +#define DUK_FREE_RAW(heap,ptr) \ + ((heap)->free_func((heap)->heap_udata, (void *) (ptr))) + +/* + * Memory calls: relative to heap, GC interaction, but no error throwing. + * + * XXX: Currently a mark-and-sweep triggered by memory allocation will run + * using the heap->heap_thread. This thread is also used for running + * mark-and-sweep finalization; this is not ideal because it breaks the + * isolation between multiple global environments. + * + * Notes: + * + * - DUK_FREE() is required to ignore NULL and any other possible return + * value of a zero-sized alloc/realloc (same as ANSI C free()). + * + * - There is no DUK_REALLOC_ZEROED because we don't assume to know the + * old size. Caller must zero the reallocated memory. + * + * - DUK_REALLOC_INDIRECT() must be used when a mark-and-sweep triggered + * by an allocation failure might invalidate the original 'ptr', thus + * causing a realloc retry to use an invalid pointer. Example: we're + * reallocating the value stack and a finalizer resizes the same value + * stack during mark-and-sweep. The indirect variant requests for the + * current location of the pointer being reallocated using a callback + * right before every realloc attempt; this circuitous approach is used + * to avoid strict aliasing issues in a more straightforward indirect + * pointer (void **) approach. Note: the pointer in the storage + * location is read but is NOT updated; the caller must do that. + */ + +/* callback for indirect reallocs, request for current pointer */ +typedef void *(*duk_mem_getptr)(duk_heap *heap, void *ud); + +#define DUK_ALLOC(heap,size) duk_heap_mem_alloc((heap), (size)) +#define DUK_ALLOC_ZEROED(heap,size) duk_heap_mem_alloc_zeroed((heap), (size)) +#define DUK_REALLOC(heap,ptr,newsize) duk_heap_mem_realloc((heap), (ptr), (newsize)) +#define DUK_REALLOC_INDIRECT(heap,cb,ud,newsize) duk_heap_mem_realloc_indirect((heap), (cb), (ud), (newsize)) +#define DUK_FREE(heap,ptr) duk_heap_mem_free((heap), (ptr)) + +/* + * Checked allocation, relative to a thread + * + * DUK_FREE_CHECKED() doesn't actually throw, but accepts a 'thr' argument + * for convenience. + */ + +#define DUK_ALLOC_CHECKED(thr,size) duk_heap_mem_alloc_checked((thr), (size)) +#define DUK_ALLOC_CHECKED_ZEROED(thr,size) duk_heap_mem_alloc_checked_zeroed((thr), (size)) +#define DUK_FREE_CHECKED(thr,ptr) duk_heap_mem_free((thr)->heap, (ptr)) + +/* + * Memory constants + */ + +#define DUK_HEAP_ALLOC_FAIL_MARKANDSWEEP_LIMIT 10 /* Retry allocation after mark-and-sweep for this + * many times. A single mark-and-sweep round is + * not guaranteed to free all unreferenced memory + * because of finalization (in fact, ANY number of + * rounds is strictly not enough). + */ + +#define DUK_HEAP_ALLOC_FAIL_MARKANDSWEEP_EMERGENCY_LIMIT 3 /* Starting from this round, use emergency mode + * for mark-and-sweep. + */ + +/* + * Debugger support + */ + +/* Maximum number of breakpoints. Only breakpoints that are set are + * consulted so increasing this has no performance impact. + */ +#define DUK_HEAP_MAX_BREAKPOINTS 16 + +/* Opcode interval for a Date-based status/peek rate limit check. Only + * relevant when debugger is attached. Requesting a timestamp may be a + * slow operation on some platforms so this shouldn't be too low. On the + * other hand a high value makes Duktape react to a pause request slowly. + */ +#define DUK_HEAP_DBG_RATELIMIT_OPCODES 4000 + +/* Milliseconds between status notify and transport peeks. */ +#define DUK_HEAP_DBG_RATELIMIT_MILLISECS 200 + +/* Debugger pause flags. */ +#define DUK_PAUSE_FLAG_ONE_OPCODE (1U << 0) /* pause when a single opcode has been executed */ +#define DUK_PAUSE_FLAG_ONE_OPCODE_ACTIVE (1U << 1) /* one opcode pause actually active; artifact of current implementation */ +#define DUK_PAUSE_FLAG_LINE_CHANGE (1U << 2) /* pause when current line number changes */ +#define DUK_PAUSE_FLAG_FUNC_ENTRY (1U << 3) /* pause when entering a function */ +#define DUK_PAUSE_FLAG_FUNC_EXIT (1U << 4) /* pause when exiting current function */ +#define DUK_PAUSE_FLAG_CAUGHT_ERROR (1U << 5) /* pause when about to throw an error that is caught */ +#define DUK_PAUSE_FLAG_UNCAUGHT_ERROR (1U << 6) /* pause when about to throw an error that won't be caught */ + +struct duk_breakpoint { + duk_hstring *filename; + duk_uint32_t line; +}; + +/* + * String cache should ideally be at duk_hthread level, but that would + * cause string finalization to slow down relative to the number of + * threads; string finalization must check the string cache for "weak" + * references to the string being finalized to avoid dead pointers. + * + * Thus, string caches are now at the heap level now. + */ + +struct duk_strcache_entry { + duk_hstring *h; + duk_uint32_t bidx; + duk_uint32_t cidx; +}; + +/* + * Longjmp state, contains the information needed to perform a longjmp. + * Longjmp related values are written to value1, value2, and iserror. + */ + +struct duk_ljstate { + duk_jmpbuf *jmpbuf_ptr; /* current setjmp() catchpoint */ + duk_small_uint_t type; /* longjmp type */ + duk_bool_t iserror; /* isError flag for yield */ + duk_tval value1; /* 1st related value (type specific) */ + duk_tval value2; /* 2nd related value (type specific) */ +}; + +#define DUK_ASSERT_LJSTATE_UNSET(heap) do { \ + DUK_ASSERT(heap != NULL); \ + DUK_ASSERT(heap->lj.type == DUK_LJ_TYPE_UNKNOWN); \ + DUK_ASSERT(heap->lj.iserror == 0); \ + DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(&heap->lj.value1)); \ + DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(&heap->lj.value2)); \ + } while (0) +#define DUK_ASSERT_LJSTATE_SET(heap) do { \ + DUK_ASSERT(heap != NULL); \ + DUK_ASSERT(heap->lj.type != DUK_LJ_TYPE_UNKNOWN); \ + } while (0) + +/* + * Literal intern cache + */ + +struct duk_litcache_entry { + const duk_uint8_t *addr; + duk_hstring *h; +}; + +/* + * Main heap structure + */ + +#if defined(DUK_USE_ASSERTIONS) +DUK_INTERNAL_DECL void duk_heap_assert_valid(duk_heap *heap); +#define DUK_HEAP_ASSERT_VALID(heap) do { duk_heap_assert_valid((heap)); } while (0) +#else +#define DUK_HEAP_ASSERT_VALID(heap) do {} while (0) +#endif + +struct duk_heap { + duk_small_uint_t flags; + + /* Allocator functions. */ + duk_alloc_function alloc_func; + duk_realloc_function realloc_func; + duk_free_function free_func; + + /* Heap udata, used for allocator functions but also for other heap + * level callbacks like fatal function, pointer compression, etc. + */ + void *heap_udata; + + /* Fatal error handling, called e.g. when a longjmp() is needed but + * lj.jmpbuf_ptr is NULL. fatal_func must never return; it's not + * declared as "noreturn" because doing that for typedefs is a bit + * challenging portability-wise. + */ + duk_fatal_function fatal_func; + + /* Main list of allocated heap objects. Objects are either here, + * in finalize_list waiting for processing, or in refzero_list + * temporarily while a DECREF refzero cascade finishes. + */ + duk_heaphdr *heap_allocated; + + /* Temporary work list for freeing a cascade of objects when a DECREF + * (or DECREF_NORZ) encounters a zero refcount. Using a work list + * allows fixed C stack size when refcounts go to zero for a chain of + * objects. Outside of DECREF this is always a NULL because DECREF is + * processed without side effects (only memory free calls). + */ +#if defined(DUK_USE_REFERENCE_COUNTING) + duk_heaphdr *refzero_list; +#endif + +#if defined(DUK_USE_FINALIZER_SUPPORT) + /* Work list for objects to be finalized. */ + duk_heaphdr *finalize_list; +#if defined(DUK_USE_ASSERTIONS) + /* Object whose finalizer is executing right now (no nesting). */ + duk_heaphdr *currently_finalizing; +#endif +#endif + + /* Freelist for duk_activations and duk_catchers. */ +#if defined(DUK_USE_CACHE_ACTIVATION) + duk_activation *activation_free; +#endif +#if defined(DUK_USE_CACHE_CATCHER) + duk_catcher *catcher_free; +#endif + + /* Voluntary mark-and-sweep trigger counter. Intentionally signed + * because we continue decreasing the value when voluntary GC cannot + * run. + */ +#if defined(DUK_USE_VOLUNTARY_GC) + duk_int_t ms_trigger_counter; +#endif + + /* Mark-and-sweep recursion control: too deep recursion causes + * multi-pass processing to avoid growing C stack without bound. + */ + duk_uint_t ms_recursion_depth; + + /* Mark-and-sweep flags automatically active (used for critical sections). */ + duk_small_uint_t ms_base_flags; + + /* Mark-and-sweep running flag. Prevents re-entry, and also causes + * refzero events to be ignored (= objects won't be queued to refzero_list). + * + * 0: mark-and-sweep not running + * 1: mark-and-sweep is running + * 2: heap destruction active or debugger active, prevent mark-and-sweep + * and refzero processing (but mark-and-sweep not itself running) + */ + duk_uint_t ms_running; + + /* Mark-and-sweep prevent count, stacking. Used to avoid M&S side + * effects (besides finalizers which are controlled separately) such + * as compacting the string table or object property tables. This + * is also bumped when ms_running is set to prevent recursive re-entry. + * Can also be bumped when mark-and-sweep is not running. + */ + duk_uint_t ms_prevent_count; + + /* Finalizer processing prevent count, stacking. Bumped when finalizers + * are processed to prevent recursive finalizer processing (first call site + * processing finalizers handles all finalizers until the list is empty). + * Can also be bumped explicitly to prevent finalizer execution. + */ + duk_uint_t pf_prevent_count; + + /* When processing finalize_list, don't actually run finalizers but + * queue finalizable objects back to heap_allocated as is. This is + * used during heap destruction to deal with finalizers that keep + * on creating more finalizable garbage. + */ + duk_uint_t pf_skip_finalizers; + +#if defined(DUK_USE_ASSERTIONS) + /* Set when we're in a critical path where an error throw would cause + * e.g. sandboxing/protected call violations or state corruption. This + * is just used for asserts. + */ + duk_bool_t error_not_allowed; +#endif + +#if defined(DUK_USE_ASSERTIONS) + /* Set when heap is still being initialized, helps with writing + * some assertions. + */ + duk_bool_t heap_initializing; +#endif + + /* Marker for detecting internal "double faults", errors thrown when + * we're trying to create an error object, see duk_error_throw.c. + */ + duk_bool_t creating_error; + + /* Marker for indicating we're calling a user error augmentation + * (errCreate/errThrow) function. Errors created/thrown during + * such a call are not augmented. + */ +#if defined(DUK_USE_AUGMENT_ERROR_THROW) || defined(DUK_USE_AUGMENT_ERROR_CREATE) + duk_bool_t augmenting_error; +#endif + + /* Longjmp state. */ + duk_ljstate lj; + + /* Heap thread, used internally and for finalization. */ + duk_hthread *heap_thread; + + /* Current running thread. */ + duk_hthread *curr_thread; + + /* Heap level "stash" object (e.g., various reachability roots). */ + duk_hobject *heap_object; + + /* duk_handle_call / duk_handle_safe_call recursion depth limiting */ + duk_int_t call_recursion_depth; + duk_int_t call_recursion_limit; + + /* Mix-in value for computing string hashes; should be reasonably unpredictable. */ + duk_uint32_t hash_seed; + + /* Random number state for duk_util_tinyrandom.c. */ +#if !defined(DUK_USE_GET_RANDOM_DOUBLE) +#if defined(DUK_USE_PREFER_SIZE) || !defined(DUK_USE_64BIT_OPS) + duk_uint32_t rnd_state; /* State for Shamir's three-op algorithm */ +#else + duk_uint64_t rnd_state[2]; /* State for xoroshiro128+ */ +#endif +#endif + + /* Counter for unique local symbol creation. */ + /* XXX: When 64-bit types are available, it would be more efficient to + * use a duk_uint64_t at least for incrementing but maybe also for + * string formatting in the Symbol constructor. + */ + duk_uint32_t sym_counter[2]; + + /* For manual debugging: instruction count based on executor and + * interrupt counter book-keeping. Inspect debug logs to see how + * they match up. + */ +#if defined(DUK_USE_INTERRUPT_COUNTER) && defined(DUK_USE_DEBUG) + duk_int_t inst_count_exec; + duk_int_t inst_count_interrupt; +#endif + + /* Debugger state. */ +#if defined(DUK_USE_DEBUGGER_SUPPORT) + /* Callbacks and udata; dbg_read_cb != NULL is used to indicate attached state. */ + duk_debug_read_function dbg_read_cb; /* required, NULL implies detached */ + duk_debug_write_function dbg_write_cb; /* required */ + duk_debug_peek_function dbg_peek_cb; + duk_debug_read_flush_function dbg_read_flush_cb; + duk_debug_write_flush_function dbg_write_flush_cb; + duk_debug_request_function dbg_request_cb; + duk_debug_detached_function dbg_detached_cb; + void *dbg_udata; + + /* The following are only relevant when debugger is attached. */ + duk_bool_t dbg_processing; /* currently processing messages or breakpoints: don't enter message processing recursively (e.g. no breakpoints when processing debugger eval) */ + duk_bool_t dbg_state_dirty; /* resend state next time executor is about to run */ + duk_bool_t dbg_force_restart; /* force executor restart to recheck breakpoints; used to handle function returns (see GH-303) */ + duk_bool_t dbg_detaching; /* debugger detaching; used to avoid calling detach handler recursively */ + duk_small_uint_t dbg_pause_flags; /* flags for automatic pause behavior */ + duk_activation *dbg_pause_act; /* activation related to pause behavior (pause on line change, function entry/exit) */ + duk_uint32_t dbg_pause_startline; /* starting line number for line change related pause behavior */ + duk_breakpoint dbg_breakpoints[DUK_HEAP_MAX_BREAKPOINTS]; /* breakpoints: [0,breakpoint_count[ gc reachable */ + duk_small_uint_t dbg_breakpoint_count; + duk_breakpoint *dbg_breakpoints_active[DUK_HEAP_MAX_BREAKPOINTS + 1]; /* currently active breakpoints: NULL term, borrowed pointers */ + /* XXX: make active breakpoints actual copies instead of pointers? */ + + /* These are for rate limiting Status notifications and transport peeking. */ + duk_uint_t dbg_exec_counter; /* cumulative opcode execution count (overflows are OK) */ + duk_uint_t dbg_last_counter; /* value of dbg_exec_counter when we last did a Date-based check */ + duk_double_t dbg_last_time; /* time when status/peek was last done (Date-based rate limit) */ + + /* Used to support single-byte stream lookahead. */ + duk_bool_t dbg_have_next_byte; + duk_uint8_t dbg_next_byte; +#endif /* DUK_USE_DEBUGGER_SUPPORT */ +#if defined(DUK_USE_ASSERTIONS) + duk_bool_t dbg_calling_transport; /* transport call in progress, calling into Duktape forbidden */ +#endif + + /* String intern table (weak refs). */ +#if defined(DUK_USE_STRTAB_PTRCOMP) + duk_uint16_t *strtable16; +#else + duk_hstring **strtable; +#endif + duk_uint32_t st_mask; /* mask for lookup, st_size - 1 */ + duk_uint32_t st_size; /* stringtable size */ +#if (DUK_USE_STRTAB_MINSIZE != DUK_USE_STRTAB_MAXSIZE) + duk_uint32_t st_count; /* string count for resize load factor checks */ +#endif + duk_bool_t st_resizing; /* string table is being resized; avoid recursive resize */ + + /* String access cache (codepoint offset -> byte offset) for fast string + * character looping; 'weak' reference which needs special handling in GC. + */ + duk_strcache_entry strcache[DUK_HEAP_STRCACHE_SIZE]; + +#if defined(DUK_USE_LITCACHE_SIZE) + /* Literal intern cache. When enabled, strings interned as literals + * (e.g. duk_push_literal()) will be pinned and cached for the lifetime + * of the heap. + */ + duk_litcache_entry litcache[DUK_USE_LITCACHE_SIZE]; +#endif + + /* Built-in strings. */ +#if defined(DUK_USE_ROM_STRINGS) + /* No field needed when strings are in ROM. */ +#else +#if defined(DUK_USE_HEAPPTR16) + duk_uint16_t strs16[DUK_HEAP_NUM_STRINGS]; +#else + duk_hstring *strs[DUK_HEAP_NUM_STRINGS]; +#endif +#endif + + /* Stats. */ +#if defined(DUK_USE_DEBUG) + duk_int_t stats_exec_opcodes; + duk_int_t stats_exec_interrupt; + duk_int_t stats_exec_throw; + duk_int_t stats_call_all; + duk_int_t stats_call_tailcall; + duk_int_t stats_call_ecmatoecma; + duk_int_t stats_safecall_all; + duk_int_t stats_safecall_nothrow; + duk_int_t stats_safecall_throw; + duk_int_t stats_ms_try_count; + duk_int_t stats_ms_skip_count; + duk_int_t stats_ms_emergency_count; + duk_int_t stats_strtab_intern_hit; + duk_int_t stats_strtab_intern_miss; + duk_int_t stats_strtab_resize_check; + duk_int_t stats_strtab_resize_grow; + duk_int_t stats_strtab_resize_shrink; + duk_int_t stats_strtab_litcache_hit; + duk_int_t stats_strtab_litcache_miss; + duk_int_t stats_strtab_litcache_pin; + duk_int_t stats_object_realloc_props; + duk_int_t stats_object_abandon_array; + duk_int_t stats_getownpropdesc_count; + duk_int_t stats_getownpropdesc_hit; + duk_int_t stats_getownpropdesc_miss; + duk_int_t stats_getpropdesc_count; + duk_int_t stats_getpropdesc_hit; + duk_int_t stats_getpropdesc_miss; + duk_int_t stats_getprop_all; + duk_int_t stats_getprop_arrayidx; + duk_int_t stats_getprop_bufobjidx; + duk_int_t stats_getprop_bufferidx; + duk_int_t stats_getprop_bufferlen; + duk_int_t stats_getprop_stringidx; + duk_int_t stats_getprop_stringlen; + duk_int_t stats_getprop_proxy; + duk_int_t stats_getprop_arguments; + duk_int_t stats_putprop_all; + duk_int_t stats_putprop_arrayidx; + duk_int_t stats_putprop_bufobjidx; + duk_int_t stats_putprop_bufferidx; + duk_int_t stats_putprop_proxy; + duk_int_t stats_getvar_all; + duk_int_t stats_putvar_all; + duk_int_t stats_envrec_delayedcreate; + duk_int_t stats_envrec_create; + duk_int_t stats_envrec_newenv; + duk_int_t stats_envrec_oldenv; + duk_int_t stats_envrec_pushclosure; +#endif +}; + +/* + * Prototypes + */ + +DUK_INTERNAL_DECL +duk_heap *duk_heap_alloc(duk_alloc_function alloc_func, + duk_realloc_function realloc_func, + duk_free_function free_func, + void *heap_udata, + duk_fatal_function fatal_func); +DUK_INTERNAL_DECL void duk_heap_free(duk_heap *heap); +DUK_INTERNAL_DECL void duk_free_hobject(duk_heap *heap, duk_hobject *h); +DUK_INTERNAL_DECL void duk_free_hbuffer(duk_heap *heap, duk_hbuffer *h); +DUK_INTERNAL_DECL void duk_free_hstring(duk_heap *heap, duk_hstring *h); +DUK_INTERNAL_DECL void duk_heap_free_heaphdr_raw(duk_heap *heap, duk_heaphdr *hdr); + +DUK_INTERNAL_DECL void duk_heap_insert_into_heap_allocated(duk_heap *heap, duk_heaphdr *hdr); +#if defined(DUK_USE_REFERENCE_COUNTING) +DUK_INTERNAL_DECL void duk_heap_remove_from_heap_allocated(duk_heap *heap, duk_heaphdr *hdr); +#endif +#if defined(DUK_USE_FINALIZER_SUPPORT) +DUK_INTERNAL_DECL void duk_heap_insert_into_finalize_list(duk_heap *heap, duk_heaphdr *hdr); +DUK_INTERNAL_DECL void duk_heap_remove_from_finalize_list(duk_heap *heap, duk_heaphdr *hdr); +#endif +#if defined(DUK_USE_ASSERTIONS) +DUK_INTERNAL_DECL duk_bool_t duk_heap_in_heap_allocated(duk_heap *heap, duk_heaphdr *ptr); +#endif +#if defined(DUK_USE_INTERRUPT_COUNTER) +DUK_INTERNAL_DECL void duk_heap_switch_thread(duk_heap *heap, duk_hthread *new_thr); +#endif + +DUK_INTERNAL_DECL duk_hstring *duk_heap_strtable_intern(duk_heap *heap, const duk_uint8_t *str, duk_uint32_t blen); +DUK_INTERNAL_DECL duk_hstring *duk_heap_strtable_intern_checked(duk_hthread *thr, const duk_uint8_t *str, duk_uint32_t len); +#if defined(DUK_USE_LITCACHE_SIZE) +DUK_INTERNAL_DECL duk_hstring *duk_heap_strtable_intern_literal_checked(duk_hthread *thr, const duk_uint8_t *str, duk_uint32_t blen); +#endif +DUK_INTERNAL_DECL duk_hstring *duk_heap_strtable_intern_u32(duk_heap *heap, duk_uint32_t val); +DUK_INTERNAL_DECL duk_hstring *duk_heap_strtable_intern_u32_checked(duk_hthread *thr, duk_uint32_t val); +#if defined(DUK_USE_REFERENCE_COUNTING) +DUK_INTERNAL_DECL void duk_heap_strtable_unlink(duk_heap *heap, duk_hstring *h); +#endif +DUK_INTERNAL_DECL void duk_heap_strtable_unlink_prev(duk_heap *heap, duk_hstring *h, duk_hstring *prev); +DUK_INTERNAL_DECL void duk_heap_strtable_force_resize(duk_heap *heap); +DUK_INTERNAL void duk_heap_strtable_free(duk_heap *heap); +#if defined(DUK_USE_DEBUG) +DUK_INTERNAL void duk_heap_strtable_dump(duk_heap *heap); +#endif + +DUK_INTERNAL_DECL void duk_heap_strcache_string_remove(duk_heap *heap, duk_hstring *h); +DUK_INTERNAL_DECL duk_uint_fast32_t duk_heap_strcache_offset_char2byte(duk_hthread *thr, duk_hstring *h, duk_uint_fast32_t char_offset); + +#if defined(DUK_USE_PROVIDE_DEFAULT_ALLOC_FUNCTIONS) +DUK_INTERNAL_DECL void *duk_default_alloc_function(void *udata, duk_size_t size); +DUK_INTERNAL_DECL void *duk_default_realloc_function(void *udata, void *ptr, duk_size_t newsize); +DUK_INTERNAL_DECL void duk_default_free_function(void *udata, void *ptr); +#endif + +DUK_INTERNAL_DECL void *duk_heap_mem_alloc(duk_heap *heap, duk_size_t size); +DUK_INTERNAL_DECL void *duk_heap_mem_alloc_zeroed(duk_heap *heap, duk_size_t size); +DUK_INTERNAL_DECL void *duk_heap_mem_alloc_checked(duk_hthread *thr, duk_size_t size); +DUK_INTERNAL_DECL void *duk_heap_mem_alloc_checked_zeroed(duk_hthread *thr, duk_size_t size); +DUK_INTERNAL_DECL void *duk_heap_mem_realloc(duk_heap *heap, void *ptr, duk_size_t newsize); +DUK_INTERNAL_DECL void *duk_heap_mem_realloc_indirect(duk_heap *heap, duk_mem_getptr cb, void *ud, duk_size_t newsize); +DUK_INTERNAL_DECL void duk_heap_mem_free(duk_heap *heap, void *ptr); + +DUK_INTERNAL_DECL void duk_heap_free_freelists(duk_heap *heap); + +#if defined(DUK_USE_FINALIZER_SUPPORT) +DUK_INTERNAL_DECL void duk_heap_run_finalizer(duk_heap *heap, duk_hobject *obj); +DUK_INTERNAL_DECL void duk_heap_process_finalize_list(duk_heap *heap); +#endif /* DUK_USE_FINALIZER_SUPPORT */ + +DUK_INTERNAL_DECL void duk_heap_mark_and_sweep(duk_heap *heap, duk_small_uint_t flags); + +DUK_INTERNAL_DECL duk_uint32_t duk_heap_hashstring(duk_heap *heap, const duk_uint8_t *str, duk_size_t len); + +#endif /* DUK_HEAP_H_INCLUDED */ +/* #include duk_debugger.h */ +#line 1 "duk_debugger.h" +#if !defined(DUK_DEBUGGER_H_INCLUDED) +#define DUK_DEBUGGER_H_INCLUDED + +/* Debugger protocol version is defined in the public API header. */ + +/* Initial bytes for markers. */ +#define DUK_DBG_IB_EOM 0x00 +#define DUK_DBG_IB_REQUEST 0x01 +#define DUK_DBG_IB_REPLY 0x02 +#define DUK_DBG_IB_ERROR 0x03 +#define DUK_DBG_IB_NOTIFY 0x04 + +/* Other initial bytes. */ +#define DUK_DBG_IB_INT4 0x10 +#define DUK_DBG_IB_STR4 0x11 +#define DUK_DBG_IB_STR2 0x12 +#define DUK_DBG_IB_BUF4 0x13 +#define DUK_DBG_IB_BUF2 0x14 +#define DUK_DBG_IB_UNUSED 0x15 +#define DUK_DBG_IB_UNDEFINED 0x16 +#define DUK_DBG_IB_NULL 0x17 +#define DUK_DBG_IB_TRUE 0x18 +#define DUK_DBG_IB_FALSE 0x19 +#define DUK_DBG_IB_NUMBER 0x1a +#define DUK_DBG_IB_OBJECT 0x1b +#define DUK_DBG_IB_POINTER 0x1c +#define DUK_DBG_IB_LIGHTFUNC 0x1d +#define DUK_DBG_IB_HEAPPTR 0x1e +/* The short string/integer initial bytes starting from 0x60 don't have + * defines now. + */ + +/* Error codes. */ +#define DUK_DBG_ERR_UNKNOWN 0x00 +#define DUK_DBG_ERR_UNSUPPORTED 0x01 +#define DUK_DBG_ERR_TOOMANY 0x02 +#define DUK_DBG_ERR_NOTFOUND 0x03 +#define DUK_DBG_ERR_APPLICATION 0x04 + +/* Commands and notifys initiated by Duktape. */ +#define DUK_DBG_CMD_STATUS 0x01 +#define DUK_DBG_CMD_UNUSED_2 0x02 /* Duktape 1.x: print notify */ +#define DUK_DBG_CMD_UNUSED_3 0x03 /* Duktape 1.x: alert notify */ +#define DUK_DBG_CMD_UNUSED_4 0x04 /* Duktape 1.x: log notify */ +#define DUK_DBG_CMD_THROW 0x05 +#define DUK_DBG_CMD_DETACHING 0x06 +#define DUK_DBG_CMD_APPNOTIFY 0x07 + +/* Commands initiated by debug client. */ +#define DUK_DBG_CMD_BASICINFO 0x10 +#define DUK_DBG_CMD_TRIGGERSTATUS 0x11 +#define DUK_DBG_CMD_PAUSE 0x12 +#define DUK_DBG_CMD_RESUME 0x13 +#define DUK_DBG_CMD_STEPINTO 0x14 +#define DUK_DBG_CMD_STEPOVER 0x15 +#define DUK_DBG_CMD_STEPOUT 0x16 +#define DUK_DBG_CMD_LISTBREAK 0x17 +#define DUK_DBG_CMD_ADDBREAK 0x18 +#define DUK_DBG_CMD_DELBREAK 0x19 +#define DUK_DBG_CMD_GETVAR 0x1a +#define DUK_DBG_CMD_PUTVAR 0x1b +#define DUK_DBG_CMD_GETCALLSTACK 0x1c +#define DUK_DBG_CMD_GETLOCALS 0x1d +#define DUK_DBG_CMD_EVAL 0x1e +#define DUK_DBG_CMD_DETACH 0x1f +#define DUK_DBG_CMD_DUMPHEAP 0x20 +#define DUK_DBG_CMD_GETBYTECODE 0x21 +#define DUK_DBG_CMD_APPREQUEST 0x22 +#define DUK_DBG_CMD_GETHEAPOBJINFO 0x23 +#define DUK_DBG_CMD_GETOBJPROPDESC 0x24 +#define DUK_DBG_CMD_GETOBJPROPDESCRANGE 0x25 + +/* The low 8 bits map directly to duk_hobject.h DUK_PROPDESC_FLAG_xxx. + * The remaining flags are specific to the debugger. + */ +#define DUK_DBG_PROPFLAG_SYMBOL (1U << 8) +#define DUK_DBG_PROPFLAG_HIDDEN (1U << 9) + +#if defined(DUK_USE_DEBUGGER_SUPPORT) +DUK_INTERNAL_DECL void duk_debug_do_detach(duk_heap *heap); + +DUK_INTERNAL_DECL duk_bool_t duk_debug_read_peek(duk_hthread *thr); +DUK_INTERNAL_DECL void duk_debug_write_flush(duk_hthread *thr); + +DUK_INTERNAL_DECL void duk_debug_skip_bytes(duk_hthread *thr, duk_size_t length); +DUK_INTERNAL_DECL void duk_debug_skip_byte(duk_hthread *thr); + +DUK_INTERNAL_DECL void duk_debug_read_bytes(duk_hthread *thr, duk_uint8_t *data, duk_size_t length); +DUK_INTERNAL_DECL duk_uint8_t duk_debug_read_byte(duk_hthread *thr); +DUK_INTERNAL_DECL duk_int32_t duk_debug_read_int(duk_hthread *thr); +DUK_INTERNAL_DECL duk_hstring *duk_debug_read_hstring(duk_hthread *thr); +/* XXX: exposed duk_debug_read_pointer */ +/* XXX: exposed duk_debug_read_buffer */ +/* XXX: exposed duk_debug_read_hbuffer */ +#if 0 +DUK_INTERNAL_DECL duk_heaphdr *duk_debug_read_heapptr(duk_hthread *thr); +#endif +#if defined(DUK_USE_DEBUGGER_INSPECT) +DUK_INTERNAL_DECL duk_heaphdr *duk_debug_read_any_ptr(duk_hthread *thr); +#endif +DUK_INTERNAL_DECL duk_tval *duk_debug_read_tval(duk_hthread *thr); + +DUK_INTERNAL_DECL void duk_debug_write_bytes(duk_hthread *thr, const duk_uint8_t *data, duk_size_t length); +DUK_INTERNAL_DECL void duk_debug_write_byte(duk_hthread *thr, duk_uint8_t x); +DUK_INTERNAL_DECL void duk_debug_write_unused(duk_hthread *thr); +DUK_INTERNAL_DECL void duk_debug_write_undefined(duk_hthread *thr); +#if defined(DUK_USE_DEBUGGER_INSPECT) +DUK_INTERNAL_DECL void duk_debug_write_null(duk_hthread *thr); +#endif +DUK_INTERNAL_DECL void duk_debug_write_boolean(duk_hthread *thr, duk_uint_t val); +DUK_INTERNAL_DECL void duk_debug_write_int(duk_hthread *thr, duk_int32_t x); +DUK_INTERNAL_DECL void duk_debug_write_uint(duk_hthread *thr, duk_uint32_t x); +DUK_INTERNAL_DECL void duk_debug_write_string(duk_hthread *thr, const char *data, duk_size_t length); +DUK_INTERNAL_DECL void duk_debug_write_cstring(duk_hthread *thr, const char *data); +DUK_INTERNAL_DECL void duk_debug_write_hstring(duk_hthread *thr, duk_hstring *h); +DUK_INTERNAL_DECL void duk_debug_write_buffer(duk_hthread *thr, const char *data, duk_size_t length); +DUK_INTERNAL_DECL void duk_debug_write_hbuffer(duk_hthread *thr, duk_hbuffer *h); +DUK_INTERNAL_DECL void duk_debug_write_pointer(duk_hthread *thr, void *ptr); +#if defined(DUK_USE_DEBUGGER_DUMPHEAP) || defined(DUK_USE_DEBUGGER_INSPECT) +DUK_INTERNAL_DECL void duk_debug_write_heapptr(duk_hthread *thr, duk_heaphdr *h); +#endif +DUK_INTERNAL_DECL void duk_debug_write_hobject(duk_hthread *thr, duk_hobject *obj); +DUK_INTERNAL_DECL void duk_debug_write_tval(duk_hthread *thr, duk_tval *tv); +#if 0 /* unused */ +DUK_INTERNAL_DECL void duk_debug_write_request(duk_hthread *thr, duk_small_uint_t command); +#endif +DUK_INTERNAL_DECL void duk_debug_write_reply(duk_hthread *thr); +DUK_INTERNAL_DECL void duk_debug_write_error_eom(duk_hthread *thr, duk_small_uint_t err_code, const char *msg); +DUK_INTERNAL_DECL void duk_debug_write_notify(duk_hthread *thr, duk_small_uint_t command); +DUK_INTERNAL_DECL void duk_debug_write_eom(duk_hthread *thr); + +DUK_INTERNAL_DECL duk_uint_fast32_t duk_debug_curr_line(duk_hthread *thr); +DUK_INTERNAL_DECL void duk_debug_send_status(duk_hthread *thr); +#if defined(DUK_USE_DEBUGGER_THROW_NOTIFY) +DUK_INTERNAL_DECL void duk_debug_send_throw(duk_hthread *thr, duk_bool_t fatal); +#endif + +DUK_INTERNAL_DECL void duk_debug_halt_execution(duk_hthread *thr, duk_bool_t use_prev_pc); +DUK_INTERNAL_DECL duk_bool_t duk_debug_process_messages(duk_hthread *thr, duk_bool_t no_block); + +DUK_INTERNAL_DECL duk_small_int_t duk_debug_add_breakpoint(duk_hthread *thr, duk_hstring *filename, duk_uint32_t line); +DUK_INTERNAL_DECL duk_bool_t duk_debug_remove_breakpoint(duk_hthread *thr, duk_small_uint_t breakpoint_index); + +DUK_INTERNAL_DECL duk_bool_t duk_debug_is_attached(duk_heap *heap); +DUK_INTERNAL_DECL duk_bool_t duk_debug_is_paused(duk_heap *heap); +DUK_INTERNAL_DECL void duk_debug_set_paused(duk_heap *heap); +DUK_INTERNAL_DECL void duk_debug_clear_paused(duk_heap *heap); +DUK_INTERNAL_DECL void duk_debug_clear_pause_state(duk_heap *heap); +#endif /* DUK_USE_DEBUGGER_SUPPORT */ + +#endif /* DUK_DEBUGGER_H_INCLUDED */ +/* #include duk_debug.h */ +#line 1 "duk_debug.h" +/* + * Debugging macros, DUK_DPRINT() and its variants in particular. + * + * DUK_DPRINT() allows formatted debug prints, and supports standard + * and Duktape specific formatters. See duk_debug_vsnprintf.c for details. + * + * DUK_D(x), DUK_DD(x), and DUK_DDD(x) are used together with log macros + * for technical reasons. They are concretely used to hide 'x' from the + * compiler when the corresponding log level is disabled. This allows + * clean builds on non-C99 compilers, at the cost of more verbose code. + * Examples: + * + * DUK_D(DUK_DPRINT("foo")); + * DUK_DD(DUK_DDPRINT("foo")); + * DUK_DDD(DUK_DDDPRINT("foo")); + * + * This approach is preferable to the old "double parentheses" hack because + * double parentheses make the C99 solution worse: __FILE__ and __LINE__ can + * no longer be added transparently without going through globals, which + * works poorly with threading. + */ + +#if !defined(DUK_DEBUG_H_INCLUDED) +#define DUK_DEBUG_H_INCLUDED + +#if defined(DUK_USE_DEBUG) + +#if defined(DUK_USE_DEBUG_LEVEL) && (DUK_USE_DEBUG_LEVEL >= 0) +#define DUK_D(x) x +#else +#define DUK_D(x) do { } while (0) /* omit */ +#endif + +#if defined(DUK_USE_DEBUG_LEVEL) && (DUK_USE_DEBUG_LEVEL >= 1) +#define DUK_DD(x) x +#else +#define DUK_DD(x) do { } while (0) /* omit */ +#endif + +#if defined(DUK_USE_DEBUG_LEVEL) && (DUK_USE_DEBUG_LEVEL >= 2) +#define DUK_DDD(x) x +#else +#define DUK_DDD(x) do { } while (0) /* omit */ +#endif + +/* + * Exposed debug macros: debugging enabled + */ + +#if defined(DUK_USE_VARIADIC_MACROS) + +/* Note: combining __FILE__, __LINE__, and __func__ into fmt would be + * possible compile time, but waste some space with shared function names. + */ +#define DUK__DEBUG_LOG(lev,...) duk_debug_log((duk_int_t) (lev), DUK_FILE_MACRO, (duk_int_t) DUK_LINE_MACRO, DUK_FUNC_MACRO, __VA_ARGS__); + +#if defined(DUK_USE_DEBUG_LEVEL) && (DUK_USE_DEBUG_LEVEL >= 0) +#define DUK_DPRINT(...) DUK__DEBUG_LOG(DUK_LEVEL_DEBUG, __VA_ARGS__) +#else +#define DUK_DPRINT(...) +#endif + +#if defined(DUK_USE_DEBUG_LEVEL) && (DUK_USE_DEBUG_LEVEL >= 1) +#define DUK_DDPRINT(...) DUK__DEBUG_LOG(DUK_LEVEL_DDEBUG, __VA_ARGS__) +#else +#define DUK_DDPRINT(...) +#endif + +#if defined(DUK_USE_DEBUG_LEVEL) && (DUK_USE_DEBUG_LEVEL >= 2) +#define DUK_DDDPRINT(...) DUK__DEBUG_LOG(DUK_LEVEL_DDDEBUG, __VA_ARGS__) +#else +#define DUK_DDDPRINT(...) +#endif + +#else /* DUK_USE_VARIADIC_MACROS */ + +#define DUK__DEBUG_STASH(lev) \ + (void) DUK_SNPRINTF(duk_debug_file_stash, DUK_DEBUG_STASH_SIZE, "%s", (const char *) DUK_FILE_MACRO), \ + (void) (duk_debug_file_stash[DUK_DEBUG_STASH_SIZE - 1] = (char) 0), \ + (void) (duk_debug_line_stash = (duk_int_t) DUK_LINE_MACRO), \ + (void) DUK_SNPRINTF(duk_debug_func_stash, DUK_DEBUG_STASH_SIZE, "%s", (const char *) DUK_FUNC_MACRO), \ + (void) (duk_debug_func_stash[DUK_DEBUG_STASH_SIZE - 1] = (char) 0), \ + (void) (duk_debug_level_stash = (lev)) + +/* Without variadic macros resort to comma expression trickery to handle debug + * prints. This generates a lot of harmless warnings. These hacks are not + * needed normally because DUK_D() and friends will hide the entire debug log + * statement from the compiler. + */ + +#if defined(DUK_USE_DEBUG_LEVEL) && (DUK_USE_DEBUG_LEVEL >= 0) +#define DUK_DPRINT DUK__DEBUG_STASH(DUK_LEVEL_DEBUG), (void) duk_debug_log /* args go here in parens */ +#else +#define DUK_DPRINT 0 && /* args go here as a comma expression in parens */ +#endif + +#if defined(DUK_USE_DEBUG_LEVEL) && (DUK_USE_DEBUG_LEVEL >= 1) +#define DUK_DDPRINT DUK__DEBUG_STASH(DUK_LEVEL_DDEBUG), (void) duk_debug_log /* args go here in parens */ +#else +#define DUK_DDPRINT 0 && /* args */ +#endif + +#if defined(DUK_USE_DEBUG_LEVEL) && (DUK_USE_DEBUG_LEVEL >= 2) +#define DUK_DDDPRINT DUK__DEBUG_STASH(DUK_LEVEL_DDDEBUG), (void) duk_debug_log /* args go here in parens */ +#else +#define DUK_DDDPRINT 0 && /* args */ +#endif + +#endif /* DUK_USE_VARIADIC_MACROS */ + +#else /* DUK_USE_DEBUG */ + +/* + * Exposed debug macros: debugging disabled + */ + +#define DUK_D(x) do { } while (0) /* omit */ +#define DUK_DD(x) do { } while (0) /* omit */ +#define DUK_DDD(x) do { } while (0) /* omit */ + +#if defined(DUK_USE_VARIADIC_MACROS) + +#define DUK_DPRINT(...) +#define DUK_DDPRINT(...) +#define DUK_DDDPRINT(...) + +#else /* DUK_USE_VARIADIC_MACROS */ + +#define DUK_DPRINT 0 && /* args go here as a comma expression in parens */ +#define DUK_DDPRINT 0 && /* args */ +#define DUK_DDDPRINT 0 && /* args */ + +#endif /* DUK_USE_VARIADIC_MACROS */ + +#endif /* DUK_USE_DEBUG */ + +/* + * Structs + */ + +#if defined(DUK_USE_DEBUG) +struct duk_fixedbuffer { + duk_uint8_t *buffer; + duk_size_t length; + duk_size_t offset; + duk_bool_t truncated; +}; +#endif + +/* + * Prototypes + */ + +#if defined(DUK_USE_DEBUG) +DUK_INTERNAL_DECL duk_int_t duk_debug_vsnprintf(char *str, duk_size_t size, const char *format, va_list ap); +#if 0 /*unused*/ +DUK_INTERNAL_DECL duk_int_t duk_debug_snprintf(char *str, duk_size_t size, const char *format, ...); +#endif +DUK_INTERNAL_DECL void duk_debug_format_funcptr(char *buf, duk_size_t buf_size, duk_uint8_t *fptr, duk_size_t fptr_size); + +#if defined(DUK_USE_VARIADIC_MACROS) +DUK_INTERNAL_DECL void duk_debug_log(duk_int_t level, const char *file, duk_int_t line, const char *func, const char *fmt, ...); +#else /* DUK_USE_VARIADIC_MACROS */ +/* parameter passing, not thread safe */ +#define DUK_DEBUG_STASH_SIZE 128 +#if !defined(DUK_SINGLE_FILE) +DUK_INTERNAL_DECL char duk_debug_file_stash[DUK_DEBUG_STASH_SIZE]; +DUK_INTERNAL_DECL duk_int_t duk_debug_line_stash; +DUK_INTERNAL_DECL char duk_debug_func_stash[DUK_DEBUG_STASH_SIZE]; +DUK_INTERNAL_DECL duk_int_t duk_debug_level_stash; +#endif +DUK_INTERNAL_DECL void duk_debug_log(const char *fmt, ...); +#endif /* DUK_USE_VARIADIC_MACROS */ + +DUK_INTERNAL_DECL void duk_fb_put_bytes(duk_fixedbuffer *fb, const duk_uint8_t *buffer, duk_size_t length); +DUK_INTERNAL_DECL void duk_fb_put_byte(duk_fixedbuffer *fb, duk_uint8_t x); +DUK_INTERNAL_DECL void duk_fb_put_cstring(duk_fixedbuffer *fb, const char *x); +DUK_INTERNAL_DECL void duk_fb_sprintf(duk_fixedbuffer *fb, const char *fmt, ...); +DUK_INTERNAL_DECL void duk_fb_put_funcptr(duk_fixedbuffer *fb, duk_uint8_t *fptr, duk_size_t fptr_size); +DUK_INTERNAL_DECL duk_bool_t duk_fb_is_full(duk_fixedbuffer *fb); + +#endif /* DUK_USE_DEBUG */ + +#endif /* DUK_DEBUG_H_INCLUDED */ +/* #include duk_error.h */ +#line 1 "duk_error.h" +/* + * Error handling macros, assertion macro, error codes. + * + * There are three types of 'errors': + * + * 1. Ordinary errors relative to a thread, cause a longjmp, catchable. + * 2. Fatal errors relative to a heap, cause fatal handler to be called. + * 3. Fatal errors without context, cause the default (not heap specific) + * fatal handler to be called. + * + * Fatal errors without context are used by debug code such as assertions. + * By providing a fatal error handler for a Duktape heap, user code can + * avoid fatal errors without context in non-debug builds. + */ + +#if !defined(DUK_ERROR_H_INCLUDED) +#define DUK_ERROR_H_INCLUDED + +/* + * Error codes: defined in duktape.h + * + * Error codes are used as a shorthand to throw exceptions from inside + * the implementation. The appropriate ECMAScript object is constructed + * based on the code. ECMAScript code throws objects directly. The error + * codes are defined in the public API header because they are also used + * by calling code. + */ + +/* + * Normal error + * + * Normal error is thrown with a longjmp() through the current setjmp() + * catchpoint record in the duk_heap. The 'curr_thread' of the duk_heap + * identifies the throwing thread. + * + * Error formatting is usually unnecessary. The error macros provide a + * zero argument version (no formatting) and separate macros for small + * argument counts. Variadic macros are not used to avoid portability + * issues and avoid the need for stash-based workarounds when they're not + * available. Vararg calls are avoided for non-formatted error calls + * because vararg call sites are larger than normal, and there are a lot + * of call sites with no formatting. + * + * Note that special formatting provided by debug macros is NOT available. + * + * The _RAW variants allow the caller to specify file and line. This makes + * it easier to write checked calls which want to use the call site of the + * checked function, not the error macro call inside the checked function. + */ + +#if defined(DUK_USE_VERBOSE_ERRORS) + +/* Because there are quite many call sites, pack error code (require at most + * 8-bit) into a single argument. + */ +#define DUK_ERROR(thr,err,msg) do { \ + duk_errcode_t duk__err = (err); duk_int_t duk__line = (duk_int_t) DUK_LINE_MACRO; \ + DUK_ASSERT(duk__err >= 0 && duk__err <= 0xff); DUK_ASSERT(duk__line >= 0 && duk__line <= 0x00ffffffL); \ + duk_err_handle_error((thr), DUK_FILE_MACRO, (((duk_uint_t) duk__err) << 24) | ((duk_uint_t) duk__line), (msg)); \ + } while (0) +#define DUK_ERROR_RAW(thr,file,line,err,msg) do { \ + duk_errcode_t duk__err = (err); duk_int_t duk__line = (duk_int_t) (line); \ + DUK_ASSERT(duk__err >= 0 && duk__err <= 0xff); DUK_ASSERT(duk__line >= 0 && duk__line <= 0x00ffffffL); \ + duk_err_handle_error((thr), (file), (((duk_uint_t) duk__err) << 24) | ((duk_uint_t) duk__line), (msg)); \ + } while (0) + +#define DUK_ERROR_FMT1(thr,err,fmt,arg1) do { \ + duk_errcode_t duk__err = (err); duk_int_t duk__line = (duk_int_t) DUK_LINE_MACRO; \ + DUK_ASSERT(duk__err >= 0 && duk__err <= 0xff); DUK_ASSERT(duk__line >= 0 && duk__line <= 0x00ffffffL); \ + duk_err_handle_error_fmt((thr), DUK_FILE_MACRO, (((duk_uint_t) duk__err) << 24) | ((duk_uint_t) duk__line), (fmt), (arg1)); \ + } while (0) +#define DUK_ERROR_RAW_FMT1(thr,file,line,err,fmt,arg1) do { \ + duk_errcode_t duk__err = (err); duk_int_t duk__line = (duk_int_t) (line); \ + DUK_ASSERT(duk__err >= 0 && duk__err <= 0xff); DUK_ASSERT(duk__line >= 0 && duk__line <= 0x00ffffffL); \ + duk_err_handle_error_fmt((thr), (file), (((duk_uint_t) duk__err) << 24) | ((duk_uint_t) duk__line), (fmt), (arg1)); \ + } while (0) + +#define DUK_ERROR_FMT2(thr,err,fmt,arg1,arg2) do { \ + duk_errcode_t duk__err = (err); duk_int_t duk__line = (duk_int_t) DUK_LINE_MACRO; \ + DUK_ASSERT(duk__err >= 0 && duk__err <= 0xff); DUK_ASSERT(duk__line >= 0 && duk__line <= 0x00ffffffL); \ + duk_err_handle_error_fmt((thr), DUK_FILE_MACRO, (((duk_uint_t) duk__err) << 24) | ((duk_uint_t) duk__line), (fmt), (arg1), (arg2)); \ + } while (0) +#define DUK_ERROR_RAW_FMT2(thr,file,line,err,fmt,arg1,arg2) do { \ + duk_errcode_t duk__err = (err); duk_int_t duk__line = (duk_int_t) (line); \ + DUK_ASSERT(duk__err >= 0 && duk__err <= 0xff); DUK_ASSERT(duk__line >= 0 && duk__line <= 0x00ffffffL); \ + duk_err_handle_error_fmt((thr), (file), (((duk_uint_t) duk__err) << 24) | ((duk_uint_t) duk__line), (fmt), (arg1), (arg2)); \ + } while (0) + +#define DUK_ERROR_FMT3(thr,err,fmt,arg1,arg2,arg3) do { \ + duk_errcode_t duk__err = (err); duk_int_t duk__line = (duk_int_t) DUK_LINE_MACRO; \ + DUK_ASSERT(duk__err >= 0 && duk__err <= 0xff); DUK_ASSERT(duk__line >= 0 && duk__line <= 0x00ffffffL); \ + duk_err_handle_error_fmt((thr), DUK_FILE_MACRO, (((duk_uint_t) duk__err) << 24) | ((duk_uint_t) duk__line), (fmt), (arg1), (arg2), (arg3)); \ + } while (0) +#define DUK_ERROR_RAW_FMT3(thr,file,line,err,fmt,arg1,arg2,arg3) do { \ + duk_errcode_t duk__err = (err); duk_int_t duk__line = (duk_int_t) (line); \ + DUK_ASSERT(duk__err >= 0 && duk__err <= 0xff); DUK_ASSERT(duk__line >= 0 && duk__line <= 0x00ffffffL); \ + duk_err_handle_error_fmt((thr), (file), (((duk_uint_t) duk__err) << 24) | ((duk_uint_t) duk__line), (fmt), (arg1), (arg2), (arg3)); \ + } while (0) + +#define DUK_ERROR_FMT4(thr,err,fmt,arg1,arg2,arg3,arg4) do { \ + duk_errcode_t duk__err = (err); duk_int_t duk__line = (duk_int_t) DUK_LINE_MACRO; \ + DUK_ASSERT(duk__err >= 0 && duk__err <= 0xff); DUK_ASSERT(duk__line >= 0 && duk__line <= 0x00ffffffL); \ + duk_err_handle_error_fmt((thr), DUK_FILE_MACRO, (((duk_uint_t) duk__err) << 24) | ((duk_uint_t) duk__line), (fmt), (arg1), (arg2), (arg3), (arg4)); \ + } while (0) +#define DUK_ERROR_RAW_FMT4(thr,file,line,err,fmt,arg1,arg2,arg3,arg4) do { \ + duk_errcode_t duk__err = (err); duk_int_t duk__line = (duk_int_t) (line); \ + DUK_ASSERT(duk__err >= 0 && duk__err <= 0xff); DUK_ASSERT(duk__line >= 0 && duk__line <= 0x00ffffffL); \ + duk_err_handle_error_fmt((thr), (file), (((duk_uint_t) duk__err) << 24) | ((duk_uint_t) duk__line), (fmt), (arg1), (arg2), (arg3), (arg4)); \ + } while (0) + +#else /* DUK_USE_VERBOSE_ERRORS */ + +#define DUK_ERROR(thr,err,msg) duk_err_handle_error((thr), (err)) +#define DUK_ERROR_RAW(thr,file,line,err,msg) duk_err_handle_error((thr), (err)) + +#define DUK_ERROR_FMT1(thr,err,fmt,arg1) DUK_ERROR((thr),(err),(fmt)) +#define DUK_ERROR_RAW_FMT1(thr,file,line,err,fmt,arg1) DUK_ERROR_RAW((thr),(file),(line),(err),(fmt)) + +#define DUK_ERROR_FMT2(thr,err,fmt,arg1,arg2) DUK_ERROR((thr),(err),(fmt)) +#define DUK_ERROR_RAW_FMT2(thr,file,line,err,fmt,arg1,arg2) DUK_ERROR_RAW((thr),(file),(line),(err),(fmt)) + +#define DUK_ERROR_FMT3(thr,err,fmt,arg1,arg2,arg3) DUK_ERROR((thr),(err),(fmt)) +#define DUK_ERROR_RAW_FMT3(thr,file,line,err,fmt,arg1,arg2,arg3) DUK_ERROR_RAW((thr),(file),(line),(err),(fmt)) + +#define DUK_ERROR_FMT4(thr,err,fmt,arg1,arg2,arg3,arg4) DUK_ERROR((thr),(err),(fmt)) +#define DUK_ERROR_RAW_FMT4(thr,file,line,err,fmt,arg1,arg2,arg3,arg4) DUK_ERROR_RAW((thr),(file),(line),(err),(fmt)) + +#endif /* DUK_USE_VERBOSE_ERRORS */ + +/* + * Fatal error without context + * + * The macro is an expression to make it compatible with DUK_ASSERT_EXPR(). + */ + +#define DUK_FATAL_WITHOUT_CONTEXT(msg) \ + duk_default_fatal_handler(NULL, (msg)) + +/* + * Error throwing helpers + * + * The goal is to provide verbose and configurable error messages. Call + * sites should be clean in source code and compile to a small footprint. + * Small footprint is also useful for performance because small cold paths + * reduce code cache pressure. Adding macros here only makes sense if there + * are enough call sites to get concrete benefits. + * + * DUK_ERROR_xxx() macros are generic and can be used anywhere. + * + * DUK_DCERROR_xxx() macros can only be used in Duktape/C functions where + * the "return DUK_RET_xxx;" shorthand is available for low memory targets. + * The DUK_DCERROR_xxx() macros always either throw or perform a + * 'return DUK_RET_xxx' from the calling function. + */ + +#if defined(DUK_USE_VERBOSE_ERRORS) +/* Verbose errors with key/value summaries (non-paranoid) or without key/value + * summaries (paranoid, for some security sensitive environments), the paranoid + * vs. non-paranoid distinction affects only a few specific errors. + */ +#if defined(DUK_USE_PARANOID_ERRORS) +#define DUK_ERROR_REQUIRE_TYPE_INDEX(thr,idx,expectname,lowmemstr) do { \ + duk_err_require_type_index((thr), DUK_FILE_MACRO, (duk_int_t) DUK_LINE_MACRO, (idx), (expectname)); \ + } while (0) +#else /* DUK_USE_PARANOID_ERRORS */ +#define DUK_ERROR_REQUIRE_TYPE_INDEX(thr,idx,expectname,lowmemstr) do { \ + duk_err_require_type_index((thr), DUK_FILE_MACRO, (duk_int_t) DUK_LINE_MACRO, (idx), (expectname)); \ + } while (0) +#endif /* DUK_USE_PARANOID_ERRORS */ + +#define DUK_ERROR_INTERNAL(thr) do { \ + duk_err_error_internal((thr), DUK_FILE_MACRO, (duk_int_t) DUK_LINE_MACRO); \ + } while (0) +#define DUK_DCERROR_INTERNAL(thr) do { \ + DUK_ERROR_INTERNAL((thr)); \ + return 0; \ + } while (0) +#define DUK_ERROR_ALLOC_FAILED(thr) do { \ + duk_err_error_alloc_failed((thr), DUK_FILE_MACRO, (duk_int_t) DUK_LINE_MACRO); \ + } while (0) +#define DUK_ERROR_UNSUPPORTED(thr) do { \ + DUK_ERROR((thr), DUK_ERR_ERROR, DUK_STR_UNSUPPORTED); \ + } while (0) +#define DUK_DCERROR_UNSUPPORTED(thr) do { \ + DUK_ERROR_UNSUPPORTED((thr)); \ + return 0; \ + } while (0) +#define DUK_ERROR_ERROR(thr,msg) do { \ + duk_err_error((thr), DUK_FILE_MACRO, (duk_int_t) DUK_LINE_MACRO, (msg)); \ + } while (0) +#define DUK_ERROR_RANGE_INDEX(thr,idx) do { \ + duk_err_range_index((thr), DUK_FILE_MACRO, (duk_int_t) DUK_LINE_MACRO, (idx)); \ + } while (0) +#define DUK_ERROR_RANGE_PUSH_BEYOND(thr) do { \ + duk_err_range_push_beyond((thr), DUK_FILE_MACRO, (duk_int_t) DUK_LINE_MACRO); \ + } while (0) +#define DUK_ERROR_RANGE_INVALID_ARGS(thr) do { \ + DUK_ERROR_RANGE((thr), DUK_STR_INVALID_ARGS); \ + } while (0) +#define DUK_DCERROR_RANGE_INVALID_ARGS(thr) do { \ + DUK_ERROR_RANGE_INVALID_ARGS((thr)); \ + return 0; \ + } while (0) +#define DUK_ERROR_RANGE_INVALID_COUNT(thr) do { \ + DUK_ERROR_RANGE((thr), DUK_STR_INVALID_COUNT); \ + } while (0) +#define DUK_DCERROR_RANGE_INVALID_COUNT(thr) do { \ + DUK_ERROR_RANGE_INVALID_COUNT((thr)); \ + return 0; \ + } while (0) +#define DUK_ERROR_RANGE_INVALID_LENGTH(thr) do { \ + DUK_ERROR_RANGE((thr), DUK_STR_INVALID_LENGTH); \ + } while (0) +#define DUK_DCERROR_RANGE_INVALID_LENGTH(thr) do { \ + DUK_ERROR_RANGE_INVALID_LENGTH((thr)); \ + return 0; \ + } while (0) +#define DUK_ERROR_RANGE(thr,msg) do { \ + duk_err_range((thr), DUK_FILE_MACRO, (duk_int_t) DUK_LINE_MACRO, (msg)); \ + } while (0) +#define DUK_ERROR_EVAL(thr,msg) do { \ + DUK_ERROR((thr), DUK_ERR_EVAL_ERROR, (msg)); \ + } while (0) +#define DUK_ERROR_REFERENCE(thr,msg) do { \ + DUK_ERROR((thr), DUK_ERR_REFERENCE_ERROR, (msg)); \ + } while (0) +#define DUK_ERROR_SYNTAX(thr,msg) do { \ + DUK_ERROR((thr), DUK_ERR_SYNTAX_ERROR, (msg)); \ + } while (0) +#define DUK_ERROR_TYPE_INVALID_ARGS(thr) do { \ + duk_err_type_invalid_args((thr), DUK_FILE_MACRO, (duk_int_t) DUK_LINE_MACRO); \ + } while (0) +#define DUK_DCERROR_TYPE_INVALID_ARGS(thr) do { \ + DUK_ERROR_TYPE_INVALID_ARGS((thr)); \ + return 0; \ + } while (0) +#define DUK_ERROR_TYPE_INVALID_STATE(thr) do { \ + duk_err_type_invalid_state((thr), DUK_FILE_MACRO, (duk_int_t) DUK_LINE_MACRO); \ + } while (0) +#define DUK_DCERROR_TYPE_INVALID_STATE(thr) do { \ + DUK_ERROR_TYPE_INVALID_STATE((thr)); \ + return 0; \ + } while (0) +#define DUK_ERROR_TYPE_INVALID_TRAP_RESULT(thr) do { \ + duk_err_type_invalid_trap_result((thr), DUK_FILE_MACRO, (duk_int_t) DUK_LINE_MACRO); \ + } while (0) +#define DUK_DCERROR_TYPE_INVALID_TRAP_RESULT(thr) do { \ + DUK_ERROR_TYPE((thr), DUK_STR_INVALID_TRAP_RESULT); \ + } while (0) +#define DUK_ERROR_TYPE(thr,msg) do { \ + DUK_ERROR((thr), DUK_ERR_TYPE_ERROR, (msg)); \ + } while (0) +#define DUK_ERROR_URI(thr,msg) do { \ + DUK_ERROR((thr), DUK_ERR_URI_ERROR, (msg)); \ + } while (0) +#else /* DUK_USE_VERBOSE_ERRORS */ +/* Non-verbose errors for low memory targets: no file, line, or message. */ + +#define DUK_ERROR_REQUIRE_TYPE_INDEX(thr,idx,expectname,lowmemstr) do { \ + duk_err_type((thr)); \ + } while (0) + +#define DUK_ERROR_INTERNAL(thr) do { \ + duk_err_error((thr)); \ + } while (0) +#define DUK_DCERROR_INTERNAL(thr) do { \ + DUK_UNREF((thr)); \ + return DUK_RET_ERROR; \ + } while (0) +#define DUK_ERROR_ALLOC_FAILED(thr) do { \ + duk_err_error((thr)); \ + } while (0) +#define DUK_ERROR_UNSUPPORTED(thr) do { \ + duk_err_error((thr)); \ + } while (0) +#define DUK_DCERROR_UNSUPPORTED(thr) do { \ + DUK_UNREF((thr)); \ + return DUK_RET_ERROR; \ + } while (0) +#define DUK_ERROR_ERROR(thr,msg) do { \ + duk_err_error((thr)); \ + } while (0) +#define DUK_ERROR_RANGE_INDEX(thr,idx) do { \ + duk_err_range((thr)); \ + } while (0) +#define DUK_ERROR_RANGE_PUSH_BEYOND(thr) do { \ + duk_err_range((thr)); \ + } while (0) +#define DUK_ERROR_RANGE_INVALID_ARGS(thr) do { \ + duk_err_range((thr)); \ + } while (0) +#define DUK_DCERROR_RANGE_INVALID_ARGS(thr) do { \ + DUK_UNREF((thr)); \ + return DUK_RET_RANGE_ERROR; \ + } while (0) +#define DUK_ERROR_RANGE_INVALID_COUNT(thr) do { \ + duk_err_range((thr)); \ + } while (0) +#define DUK_DCERROR_RANGE_INVALID_COUNT(thr) do { \ + DUK_UNREF((thr)); \ + return DUK_RET_RANGE_ERROR; \ + } while (0) +#define DUK_ERROR_RANGE_INVALID_LENGTH(thr) do { \ + duk_err_range((thr)); \ + } while (0) +#define DUK_DCERROR_RANGE_INVALID_LENGTH(thr) do { \ + DUK_UNREF((thr)); \ + return DUK_RET_RANGE_ERROR; \ + } while (0) +#define DUK_ERROR_RANGE(thr,msg) do { \ + duk_err_range((thr)); \ + } while (0) +#define DUK_ERROR_EVAL(thr,msg) do { \ + duk_err_eval((thr)); \ + } while (0) +#define DUK_ERROR_REFERENCE(thr,msg) do { \ + duk_err_reference((thr)); \ + } while (0) +#define DUK_ERROR_SYNTAX(thr,msg) do { \ + duk_err_syntax((thr)); \ + } while (0) +#define DUK_ERROR_TYPE_INVALID_ARGS(thr) do { \ + duk_err_type((thr)); \ + } while (0) +#define DUK_DCERROR_TYPE_INVALID_ARGS(thr) do { \ + DUK_UNREF((thr)); \ + return DUK_RET_TYPE_ERROR; \ + } while (0) +#define DUK_ERROR_TYPE_INVALID_STATE(thr) do { \ + duk_err_type((thr)); \ + } while (0) +#define DUK_DCERROR_TYPE_INVALID_STATE(thr) do { \ + duk_err_type((thr)); \ + } while (0) +#define DUK_ERROR_TYPE_INVALID_TRAP_RESULT(thr) do { \ + duk_err_type((thr)); \ + } while (0) +#define DUK_DCERROR_TYPE_INVALID_TRAP_RESULT(thr) do { \ + DUK_UNREF((thr)); \ + return DUK_RET_TYPE_ERROR; \ + } while (0) +#define DUK_ERROR_TYPE_INVALID_TRAP_RESULT(thr) do { \ + duk_err_type((thr)); \ + } while (0) +#define DUK_ERROR_TYPE(thr,msg) do { \ + duk_err_type((thr)); \ + } while (0) +#define DUK_ERROR_URI(thr,msg) do { \ + duk_err_uri((thr)); \ + } while (0) +#endif /* DUK_USE_VERBOSE_ERRORS */ + +/* + * Assert macro: failure causes a fatal error. + * + * NOTE: since the assert macro doesn't take a heap/context argument, there's + * no way to look up a heap/context specific fatal error handler which may have + * been given by the application. Instead, assertion failures always use the + * internal default fatal error handler; it can be replaced via duk_config.h + * and then applies to all Duktape heaps. + */ + +#if defined(DUK_USE_ASSERTIONS) + +/* The message should be a compile time constant without formatting (less risk); + * we don't care about assertion text size because they're not used in production + * builds. + */ +#define DUK_ASSERT(x) do { \ + if (!(x)) { \ + DUK_FATAL_WITHOUT_CONTEXT("assertion failed: " #x \ + " (" DUK_FILE_MACRO ":" DUK_MACRO_STRINGIFY(DUK_LINE_MACRO) ")"); \ + } \ + } while (0) + +/* Assertion compatible inside a comma expression, evaluates to void. */ +#define DUK_ASSERT_EXPR(x) \ + ((void) ((x) ? 0 : (DUK_FATAL_WITHOUT_CONTEXT("assertion failed: " #x \ + " (" DUK_FILE_MACRO ":" DUK_MACRO_STRINGIFY(DUK_LINE_MACRO) ")"), 0))) + +#else /* DUK_USE_ASSERTIONS */ + +#define DUK_ASSERT(x) do { /* assertion omitted */ } while (0) + +#define DUK_ASSERT_EXPR(x) ((void) 0) + +#endif /* DUK_USE_ASSERTIONS */ + +/* this variant is used when an assert would generate a compile warning by + * being always true (e.g. >= 0 comparison for an unsigned value + */ +#define DUK_ASSERT_DISABLE(x) do { /* assertion disabled */ } while (0) + +/* + * Assertion helpers + */ + +#if defined(DUK_USE_ASSERTIONS) && defined(DUK_USE_REFERENCE_COUNTING) +#define DUK_ASSERT_REFCOUNT_NONZERO_HEAPHDR(h) do { \ + DUK_ASSERT((h) == NULL || DUK_HEAPHDR_GET_REFCOUNT((duk_heaphdr *) (h)) > 0); \ + } while (0) +#define DUK_ASSERT_REFCOUNT_NONZERO_TVAL(tv) do { \ + if ((tv) != NULL && DUK_TVAL_IS_HEAP_ALLOCATED((tv))) { \ + DUK_ASSERT(DUK_HEAPHDR_GET_REFCOUNT(DUK_TVAL_GET_HEAPHDR((tv))) > 0); \ + } \ + } while (0) +#else +#define DUK_ASSERT_REFCOUNT_NONZERO_HEAPHDR(h) /* no refcount check */ +#define DUK_ASSERT_REFCOUNT_NONZERO_TVAL(tv) /* no refcount check */ +#endif + +#define DUK_ASSERT_TOP(ctx,n) DUK_ASSERT((duk_idx_t) duk_get_top((ctx)) == (duk_idx_t) (n)) + +#if defined(DUK_USE_ASSERTIONS) && defined(DUK_USE_PACKED_TVAL) +#define DUK_ASSERT_DOUBLE_IS_NORMALIZED(dval) do { \ + duk_double_union duk__assert_tmp_du; \ + duk__assert_tmp_du.d = (dval); \ + DUK_ASSERT(DUK_DBLUNION_IS_NORMALIZED(&duk__assert_tmp_du)); \ + } while (0) +#else +#define DUK_ASSERT_DOUBLE_IS_NORMALIZED(dval) /* nop */ +#endif + +#define DUK_ASSERT_VS_SPACE(thr) \ + DUK_ASSERT(thr->valstack_top < thr->valstack_end) + +/* + * Helper to initialize a memory area (e.g. struct) with garbage when + * assertions enabled. + */ + +#if defined(DUK_USE_ASSERTIONS) +#define DUK_ASSERT_SET_GARBAGE(ptr,size) do { \ + duk_memset_unsafe((void *) (ptr), 0x5a, size); \ + } while (0) +#else +#define DUK_ASSERT_SET_GARBAGE(ptr,size) do {} while (0) +#endif + +/* + * Helper for valstack space + * + * Caller of DUK_ASSERT_VALSTACK_SPACE() estimates the number of free stack entries + * required for its own use, and any child calls which are not (a) Duktape API calls + * or (b) Duktape calls which involve extending the valstack (e.g. getter call). + */ + +#define DUK_VALSTACK_ASSERT_EXTRA 5 /* this is added to checks to allow for Duktape + * API calls in addition to function's own use + */ +#if defined(DUK_USE_ASSERTIONS) +#define DUK_ASSERT_VALSTACK_SPACE(thr,n) do { \ + DUK_ASSERT((thr) != NULL); \ + DUK_ASSERT((thr)->valstack_end - (thr)->valstack_top >= (n) + DUK_VALSTACK_ASSERT_EXTRA); \ + } while (0) +#else +#define DUK_ASSERT_VALSTACK_SPACE(thr,n) /* no valstack space check */ +#endif + +/* + * Prototypes + */ + +#if defined(DUK_USE_VERBOSE_ERRORS) +DUK_NORETURN(DUK_INTERNAL_DECL void duk_err_handle_error(duk_hthread *thr, const char *filename, duk_uint_t line_and_code, const char *msg)); +DUK_NORETURN(DUK_INTERNAL_DECL void duk_err_handle_error_fmt(duk_hthread *thr, const char *filename, duk_uint_t line_and_code, const char *fmt, ...)); +#else /* DUK_USE_VERBOSE_ERRORS */ +DUK_NORETURN(DUK_INTERNAL_DECL void duk_err_handle_error(duk_hthread *thr, duk_errcode_t code)); +#endif /* DUK_USE_VERBOSE_ERRORS */ + +#if defined(DUK_USE_VERBOSE_ERRORS) +DUK_NORETURN(DUK_INTERNAL_DECL void duk_err_create_and_throw(duk_hthread *thr, duk_errcode_t code, const char *msg, const char *filename, duk_int_t line)); +#else +DUK_NORETURN(DUK_INTERNAL_DECL void duk_err_create_and_throw(duk_hthread *thr, duk_errcode_t code)); +#endif + +DUK_NORETURN(DUK_INTERNAL_DECL void duk_error_throw_from_negative_rc(duk_hthread *thr, duk_ret_t rc)); + +#define DUK_AUGMENT_FLAG_NOBLAME_FILELINE (1U << 0) /* if set, don't blame C file/line for .fileName and .lineNumber */ +#define DUK_AUGMENT_FLAG_SKIP_ONE (1U << 1) /* if set, skip topmost activation in traceback construction */ + +#if defined(DUK_USE_AUGMENT_ERROR_CREATE) +DUK_INTERNAL_DECL void duk_err_augment_error_create(duk_hthread *thr, duk_hthread *thr_callstack, const char *filename, duk_int_t line, duk_small_uint_t flags); +#endif +#if defined(DUK_USE_AUGMENT_ERROR_THROW) +DUK_INTERNAL_DECL void duk_err_augment_error_throw(duk_hthread *thr); +#endif + +#if defined(DUK_USE_VERBOSE_ERRORS) +#if defined(DUK_USE_PARANOID_ERRORS) +DUK_NORETURN(DUK_INTERNAL_DECL void duk_err_require_type_index(duk_hthread *thr, const char *filename, duk_int_t linenumber, duk_idx_t idx, const char *expect_name)); +#else +DUK_NORETURN(DUK_INTERNAL_DECL void duk_err_require_type_index(duk_hthread *thr, const char *filename, duk_int_t linenumber, duk_idx_t idx, const char *expect_name)); +#endif +DUK_NORETURN(DUK_INTERNAL_DECL void duk_err_error_internal(duk_hthread *thr, const char *filename, duk_int_t linenumber)); +DUK_NORETURN(DUK_INTERNAL_DECL void duk_err_error_alloc_failed(duk_hthread *thr, const char *filename, duk_int_t linenumber)); +DUK_NORETURN(DUK_INTERNAL_DECL void duk_err_error(duk_hthread *thr, const char *filename, duk_int_t linenumber, const char *message)); +DUK_NORETURN(DUK_INTERNAL_DECL void duk_err_range_index(duk_hthread *thr, const char *filename, duk_int_t linenumber, duk_idx_t idx)); +DUK_NORETURN(DUK_INTERNAL_DECL void duk_err_range_push_beyond(duk_hthread *thr, const char *filename, duk_int_t linenumber)); +DUK_NORETURN(DUK_INTERNAL_DECL void duk_err_range(duk_hthread *thr, const char *filename, duk_int_t linenumber, const char *message)); +DUK_NORETURN(DUK_INTERNAL_DECL void duk_err_type_invalid_args(duk_hthread *thr, const char *filename, duk_int_t linenumber)); +DUK_NORETURN(DUK_INTERNAL_DECL void duk_err_type_invalid_state(duk_hthread *thr, const char *filename, duk_int_t linenumber)); +DUK_NORETURN(DUK_INTERNAL_DECL void duk_err_type_invalid_trap_result(duk_hthread *thr, const char *filename, duk_int_t linenumber)); +#else /* DUK_VERBOSE_ERRORS */ +DUK_NORETURN(DUK_INTERNAL_DECL void duk_err_error(duk_hthread *thr)); +DUK_NORETURN(DUK_INTERNAL_DECL void duk_err_range(duk_hthread *thr)); +DUK_NORETURN(DUK_INTERNAL_DECL void duk_err_eval(duk_hthread *thr)); +DUK_NORETURN(DUK_INTERNAL_DECL void duk_err_reference(duk_hthread *thr)); +DUK_NORETURN(DUK_INTERNAL_DECL void duk_err_syntax(duk_hthread *thr)); +DUK_NORETURN(DUK_INTERNAL_DECL void duk_err_type(duk_hthread *thr)); +DUK_NORETURN(DUK_INTERNAL_DECL void duk_err_uri(duk_hthread *thr)); +#endif /* DUK_VERBOSE_ERRORS */ + +DUK_NORETURN(DUK_INTERNAL_DECL void duk_err_longjmp(duk_hthread *thr)); + +DUK_NORETURN(DUK_INTERNAL_DECL void duk_default_fatal_handler(void *udata, const char *msg)); + +DUK_INTERNAL_DECL void duk_err_setup_ljstate1(duk_hthread *thr, duk_small_uint_t lj_type, duk_tval *tv_val); +#if defined(DUK_USE_DEBUGGER_SUPPORT) +DUK_INTERNAL_DECL void duk_err_check_debugger_integration(duk_hthread *thr); +#endif + +DUK_INTERNAL_DECL duk_hobject *duk_error_prototype_from_code(duk_hthread *thr, duk_errcode_t err_code); + +#endif /* DUK_ERROR_H_INCLUDED */ +/* #include duk_unicode.h */ +#line 1 "duk_unicode.h" +/* + * Unicode helpers + */ + +#if !defined(DUK_UNICODE_H_INCLUDED) +#define DUK_UNICODE_H_INCLUDED + +/* + * UTF-8 / XUTF-8 / CESU-8 constants + */ + +#define DUK_UNICODE_MAX_XUTF8_LENGTH 7 /* up to 36 bit codepoints */ +#define DUK_UNICODE_MAX_XUTF8_BMP_LENGTH 3 /* all codepoints up to U+FFFF */ +#define DUK_UNICODE_MAX_CESU8_LENGTH 6 /* all codepoints up to U+10FFFF */ +#define DUK_UNICODE_MAX_CESU8_BMP_LENGTH 3 /* all codepoints up to U+FFFF */ + +/* + * Useful Unicode codepoints + * + * Integer constants must be signed to avoid unexpected coercions + * in comparisons. + */ + +#define DUK_UNICODE_CP_ZWNJ 0x200cL /* zero-width non-joiner */ +#define DUK_UNICODE_CP_ZWJ 0x200dL /* zero-width joiner */ +#define DUK_UNICODE_CP_REPLACEMENT_CHARACTER 0xfffdL /* http://en.wikipedia.org/wiki/Replacement_character#Replacement_character */ + +/* + * ASCII character constants + * + * C character literals like 'x' have a platform specific value and do + * not match ASCII (UTF-8) values on e.g. EBCDIC platforms. So, use + * these (admittedly awkward) constants instead. These constants must + * also have signed values to avoid unexpected coercions in comparisons. + * + * http://en.wikipedia.org/wiki/ASCII + */ + +#define DUK_ASC_NUL 0x00 +#define DUK_ASC_SOH 0x01 +#define DUK_ASC_STX 0x02 +#define DUK_ASC_ETX 0x03 +#define DUK_ASC_EOT 0x04 +#define DUK_ASC_ENQ 0x05 +#define DUK_ASC_ACK 0x06 +#define DUK_ASC_BEL 0x07 +#define DUK_ASC_BS 0x08 +#define DUK_ASC_HT 0x09 +#define DUK_ASC_LF 0x0a +#define DUK_ASC_VT 0x0b +#define DUK_ASC_FF 0x0c +#define DUK_ASC_CR 0x0d +#define DUK_ASC_SO 0x0e +#define DUK_ASC_SI 0x0f +#define DUK_ASC_DLE 0x10 +#define DUK_ASC_DC1 0x11 +#define DUK_ASC_DC2 0x12 +#define DUK_ASC_DC3 0x13 +#define DUK_ASC_DC4 0x14 +#define DUK_ASC_NAK 0x15 +#define DUK_ASC_SYN 0x16 +#define DUK_ASC_ETB 0x17 +#define DUK_ASC_CAN 0x18 +#define DUK_ASC_EM 0x19 +#define DUK_ASC_SUB 0x1a +#define DUK_ASC_ESC 0x1b +#define DUK_ASC_FS 0x1c +#define DUK_ASC_GS 0x1d +#define DUK_ASC_RS 0x1e +#define DUK_ASC_US 0x1f +#define DUK_ASC_SPACE 0x20 +#define DUK_ASC_EXCLAMATION 0x21 +#define DUK_ASC_DOUBLEQUOTE 0x22 +#define DUK_ASC_HASH 0x23 +#define DUK_ASC_DOLLAR 0x24 +#define DUK_ASC_PERCENT 0x25 +#define DUK_ASC_AMP 0x26 +#define DUK_ASC_SINGLEQUOTE 0x27 +#define DUK_ASC_LPAREN 0x28 +#define DUK_ASC_RPAREN 0x29 +#define DUK_ASC_STAR 0x2a +#define DUK_ASC_PLUS 0x2b +#define DUK_ASC_COMMA 0x2c +#define DUK_ASC_MINUS 0x2d +#define DUK_ASC_PERIOD 0x2e +#define DUK_ASC_SLASH 0x2f +#define DUK_ASC_0 0x30 +#define DUK_ASC_1 0x31 +#define DUK_ASC_2 0x32 +#define DUK_ASC_3 0x33 +#define DUK_ASC_4 0x34 +#define DUK_ASC_5 0x35 +#define DUK_ASC_6 0x36 +#define DUK_ASC_7 0x37 +#define DUK_ASC_8 0x38 +#define DUK_ASC_9 0x39 +#define DUK_ASC_COLON 0x3a +#define DUK_ASC_SEMICOLON 0x3b +#define DUK_ASC_LANGLE 0x3c +#define DUK_ASC_EQUALS 0x3d +#define DUK_ASC_RANGLE 0x3e +#define DUK_ASC_QUESTION 0x3f +#define DUK_ASC_ATSIGN 0x40 +#define DUK_ASC_UC_A 0x41 +#define DUK_ASC_UC_B 0x42 +#define DUK_ASC_UC_C 0x43 +#define DUK_ASC_UC_D 0x44 +#define DUK_ASC_UC_E 0x45 +#define DUK_ASC_UC_F 0x46 +#define DUK_ASC_UC_G 0x47 +#define DUK_ASC_UC_H 0x48 +#define DUK_ASC_UC_I 0x49 +#define DUK_ASC_UC_J 0x4a +#define DUK_ASC_UC_K 0x4b +#define DUK_ASC_UC_L 0x4c +#define DUK_ASC_UC_M 0x4d +#define DUK_ASC_UC_N 0x4e +#define DUK_ASC_UC_O 0x4f +#define DUK_ASC_UC_P 0x50 +#define DUK_ASC_UC_Q 0x51 +#define DUK_ASC_UC_R 0x52 +#define DUK_ASC_UC_S 0x53 +#define DUK_ASC_UC_T 0x54 +#define DUK_ASC_UC_U 0x55 +#define DUK_ASC_UC_V 0x56 +#define DUK_ASC_UC_W 0x57 +#define DUK_ASC_UC_X 0x58 +#define DUK_ASC_UC_Y 0x59 +#define DUK_ASC_UC_Z 0x5a +#define DUK_ASC_LBRACKET 0x5b +#define DUK_ASC_BACKSLASH 0x5c +#define DUK_ASC_RBRACKET 0x5d +#define DUK_ASC_CARET 0x5e +#define DUK_ASC_UNDERSCORE 0x5f +#define DUK_ASC_GRAVE 0x60 +#define DUK_ASC_LC_A 0x61 +#define DUK_ASC_LC_B 0x62 +#define DUK_ASC_LC_C 0x63 +#define DUK_ASC_LC_D 0x64 +#define DUK_ASC_LC_E 0x65 +#define DUK_ASC_LC_F 0x66 +#define DUK_ASC_LC_G 0x67 +#define DUK_ASC_LC_H 0x68 +#define DUK_ASC_LC_I 0x69 +#define DUK_ASC_LC_J 0x6a +#define DUK_ASC_LC_K 0x6b +#define DUK_ASC_LC_L 0x6c +#define DUK_ASC_LC_M 0x6d +#define DUK_ASC_LC_N 0x6e +#define DUK_ASC_LC_O 0x6f +#define DUK_ASC_LC_P 0x70 +#define DUK_ASC_LC_Q 0x71 +#define DUK_ASC_LC_R 0x72 +#define DUK_ASC_LC_S 0x73 +#define DUK_ASC_LC_T 0x74 +#define DUK_ASC_LC_U 0x75 +#define DUK_ASC_LC_V 0x76 +#define DUK_ASC_LC_W 0x77 +#define DUK_ASC_LC_X 0x78 +#define DUK_ASC_LC_Y 0x79 +#define DUK_ASC_LC_Z 0x7a +#define DUK_ASC_LCURLY 0x7b +#define DUK_ASC_PIPE 0x7c +#define DUK_ASC_RCURLY 0x7d +#define DUK_ASC_TILDE 0x7e +#define DUK_ASC_DEL 0x7f + +/* + * Miscellaneous + */ + +/* Uppercase A is 0x41, lowercase a is 0x61; OR 0x20 to convert uppercase + * to lowercase. + */ +#define DUK_LOWERCASE_CHAR_ASCII(x) ((x) | 0x20) + +/* + * Unicode tables + */ + +#if defined(DUK_USE_SOURCE_NONBMP) +/* + * Automatically generated by extract_chars.py, do not edit! + */ + +extern const duk_uint8_t duk_unicode_ids_noa[1116]; +#else +/* + * Automatically generated by extract_chars.py, do not edit! + */ + +extern const duk_uint8_t duk_unicode_ids_noabmp[625]; +#endif + +#if defined(DUK_USE_SOURCE_NONBMP) +/* + * Automatically generated by extract_chars.py, do not edit! + */ + +extern const duk_uint8_t duk_unicode_ids_m_let_noa[42]; +#else +/* + * Automatically generated by extract_chars.py, do not edit! + */ + +extern const duk_uint8_t duk_unicode_ids_m_let_noabmp[24]; +#endif + +#if defined(DUK_USE_SOURCE_NONBMP) +/* + * Automatically generated by extract_chars.py, do not edit! + */ + +extern const duk_uint8_t duk_unicode_idp_m_ids_noa[576]; +#else +/* + * Automatically generated by extract_chars.py, do not edit! + */ + +extern const duk_uint8_t duk_unicode_idp_m_ids_noabmp[358]; +#endif + +/* + * Automatically generated by extract_caseconv.py, do not edit! + */ + +extern const duk_uint8_t duk_unicode_caseconv_uc[1411]; +extern const duk_uint8_t duk_unicode_caseconv_lc[706]; + +#if defined(DUK_USE_REGEXP_CANON_WORKAROUND) +/* + * Automatically generated by extract_caseconv.py, do not edit! + */ + +extern const duk_uint16_t duk_unicode_re_canon_lookup[65536]; +#endif + +#if defined(DUK_USE_REGEXP_CANON_BITMAP) +/* + * Automatically generated by extract_caseconv.py, do not edit! + */ + +#define DUK_CANON_BITMAP_BLKSIZE 32 +#define DUK_CANON_BITMAP_BLKSHIFT 5 +#define DUK_CANON_BITMAP_BLKMASK 31 +extern const duk_uint8_t duk_unicode_re_canon_bitmap[256]; +#endif + +/* + * Extern + */ + +/* duk_unicode_support.c */ +#if !defined(DUK_SINGLE_FILE) +DUK_INTERNAL_DECL const duk_uint8_t duk_unicode_xutf8_markers[7]; +DUK_INTERNAL_DECL const duk_uint16_t duk_unicode_re_ranges_digit[2]; +DUK_INTERNAL_DECL const duk_uint16_t duk_unicode_re_ranges_white[22]; +DUK_INTERNAL_DECL const duk_uint16_t duk_unicode_re_ranges_wordchar[8]; +DUK_INTERNAL_DECL const duk_uint16_t duk_unicode_re_ranges_not_digit[4]; +DUK_INTERNAL_DECL const duk_uint16_t duk_unicode_re_ranges_not_white[24]; +DUK_INTERNAL_DECL const duk_uint16_t duk_unicode_re_ranges_not_wordchar[10]; +DUK_INTERNAL_DECL const duk_int8_t duk_is_idchar_tab[128]; +#endif /* !DUK_SINGLE_FILE */ + +/* + * Prototypes + */ + +DUK_INTERNAL_DECL duk_small_int_t duk_unicode_get_xutf8_length(duk_ucodepoint_t cp); +#if defined(DUK_USE_ASSERTIONS) +DUK_INTERNAL_DECL duk_small_int_t duk_unicode_get_cesu8_length(duk_ucodepoint_t cp); +#endif +DUK_INTERNAL_DECL duk_small_int_t duk_unicode_encode_xutf8(duk_ucodepoint_t cp, duk_uint8_t *out); +DUK_INTERNAL_DECL duk_small_int_t duk_unicode_encode_cesu8(duk_ucodepoint_t cp, duk_uint8_t *out); +DUK_INTERNAL_DECL duk_small_int_t duk_unicode_decode_xutf8(duk_hthread *thr, const duk_uint8_t **ptr, const duk_uint8_t *ptr_start, const duk_uint8_t *ptr_end, duk_ucodepoint_t *out_cp); +DUK_INTERNAL_DECL duk_ucodepoint_t duk_unicode_decode_xutf8_checked(duk_hthread *thr, const duk_uint8_t **ptr, const duk_uint8_t *ptr_start, const duk_uint8_t *ptr_end); +DUK_INTERNAL_DECL duk_size_t duk_unicode_unvalidated_utf8_length(const duk_uint8_t *data, duk_size_t blen); +DUK_INTERNAL_DECL duk_bool_t duk_unicode_is_utf8_compatible(const duk_uint8_t *buf, duk_size_t len); +DUK_INTERNAL_DECL duk_small_int_t duk_unicode_is_whitespace(duk_codepoint_t cp); +DUK_INTERNAL_DECL duk_small_int_t duk_unicode_is_line_terminator(duk_codepoint_t cp); +DUK_INTERNAL_DECL duk_small_int_t duk_unicode_is_identifier_start(duk_codepoint_t cp); +DUK_INTERNAL_DECL duk_small_int_t duk_unicode_is_identifier_part(duk_codepoint_t cp); +DUK_INTERNAL_DECL duk_small_int_t duk_unicode_is_letter(duk_codepoint_t cp); +DUK_INTERNAL_DECL void duk_unicode_case_convert_string(duk_hthread *thr, duk_bool_t uppercase); +#if defined(DUK_USE_REGEXP_SUPPORT) +DUK_INTERNAL_DECL duk_codepoint_t duk_unicode_re_canonicalize_char(duk_hthread *thr, duk_codepoint_t cp); +DUK_INTERNAL_DECL duk_small_int_t duk_unicode_re_is_wordchar(duk_codepoint_t cp); +#endif + +#endif /* DUK_UNICODE_H_INCLUDED */ +/* #include duk_json.h */ +#line 1 "duk_json.h" +/* + * Defines for JSON, especially duk_bi_json.c. + */ + +#if !defined(DUK_JSON_H_INCLUDED) +#define DUK_JSON_H_INCLUDED + +/* Encoding/decoding flags */ +#define DUK_JSON_FLAG_ASCII_ONLY (1U << 0) /* escape any non-ASCII characters */ +#define DUK_JSON_FLAG_AVOID_KEY_QUOTES (1U << 1) /* avoid key quotes when key is an ASCII Identifier */ +#define DUK_JSON_FLAG_EXT_CUSTOM (1U << 2) /* extended types: custom encoding */ +#define DUK_JSON_FLAG_EXT_COMPATIBLE (1U << 3) /* extended types: compatible encoding */ + +/* How much stack to require on entry to object/array encode */ +#define DUK_JSON_ENC_REQSTACK 32 + +/* How much stack to require on entry to object/array decode */ +#define DUK_JSON_DEC_REQSTACK 32 + +/* How large a loop detection stack to use */ +#define DUK_JSON_ENC_LOOPARRAY 64 + +/* Encoding state. Heap object references are all borrowed. */ +typedef struct { + duk_hthread *thr; + duk_bufwriter_ctx bw; /* output bufwriter */ + duk_hobject *h_replacer; /* replacer function */ + duk_hstring *h_gap; /* gap (if empty string, NULL) */ + duk_idx_t idx_proplist; /* explicit PropertyList */ + duk_idx_t idx_loop; /* valstack index of loop detection object */ + duk_small_uint_t flags; + duk_small_uint_t flag_ascii_only; + duk_small_uint_t flag_avoid_key_quotes; +#if defined(DUK_USE_JX) || defined(DUK_USE_JC) + duk_small_uint_t flag_ext_custom; + duk_small_uint_t flag_ext_compatible; + duk_small_uint_t flag_ext_custom_or_compatible; +#endif + duk_uint_t recursion_depth; + duk_uint_t recursion_limit; + duk_uint_t mask_for_undefined; /* type bit mask: types which certainly produce 'undefined' */ +#if defined(DUK_USE_JX) || defined(DUK_USE_JC) + duk_small_uint_t stridx_custom_undefined; + duk_small_uint_t stridx_custom_nan; + duk_small_uint_t stridx_custom_neginf; + duk_small_uint_t stridx_custom_posinf; + duk_small_uint_t stridx_custom_function; +#endif + duk_hobject *visiting[DUK_JSON_ENC_LOOPARRAY]; /* indexed by recursion_depth */ +} duk_json_enc_ctx; + +typedef struct { + duk_hthread *thr; + const duk_uint8_t *p; + const duk_uint8_t *p_start; + const duk_uint8_t *p_end; + duk_idx_t idx_reviver; + duk_small_uint_t flags; +#if defined(DUK_USE_JX) || defined(DUK_USE_JC) + duk_small_uint_t flag_ext_custom; + duk_small_uint_t flag_ext_compatible; + duk_small_uint_t flag_ext_custom_or_compatible; +#endif + duk_int_t recursion_depth; + duk_int_t recursion_limit; +} duk_json_dec_ctx; + +#endif /* DUK_JSON_H_INCLUDED */ +/* #include duk_js.h */ +#line 1 "duk_js.h" +/* + * ECMAScript execution, support primitives. + */ + +#if !defined(DUK_JS_H_INCLUDED) +#define DUK_JS_H_INCLUDED + +/* Flags for call handling. Lowest flags must match bytecode DUK_BC_CALL_FLAG_xxx 1:1. */ +#define DUK_CALL_FLAG_TAILCALL (1U << 0) /* setup for a tail call */ +#define DUK_CALL_FLAG_CONSTRUCT (1U << 1) /* constructor call (i.e. called as 'new Foo()') */ +#define DUK_CALL_FLAG_CALLED_AS_EVAL (1U << 2) /* call was made using the identifier 'eval' */ +#define DUK_CALL_FLAG_ALLOW_ECMATOECMA (1U << 3) /* ecma-to-ecma call with executor reuse is possible */ +#define DUK_CALL_FLAG_DIRECT_EVAL (1U << 4) /* call is a direct eval call */ +#define DUK_CALL_FLAG_CONSTRUCT_PROXY (1U << 5) /* handled via 'construct' proxy trap, check return value invariant(s) */ +#define DUK_CALL_FLAG_DEFAULT_INSTANCE_UPDATED (1U << 6) /* prototype of 'default instance' updated, temporary flag in call handling */ + +/* Flags for duk_js_equals_helper(). */ +#define DUK_EQUALS_FLAG_SAMEVALUE (1U << 0) /* use SameValue instead of non-strict equality */ +#define DUK_EQUALS_FLAG_STRICT (1U << 1) /* use strict equality instead of non-strict equality */ + +/* Flags for duk_js_compare_helper(). */ +#define DUK_COMPARE_FLAG_NEGATE (1U << 0) /* negate result */ +#define DUK_COMPARE_FLAG_EVAL_LEFT_FIRST (1U << 1) /* eval left argument first */ + +/* conversions, coercions, comparison, etc */ +DUK_INTERNAL_DECL duk_bool_t duk_js_toboolean(duk_tval *tv); +DUK_INTERNAL_DECL duk_double_t duk_js_tonumber(duk_hthread *thr, duk_tval *tv); +DUK_INTERNAL_DECL duk_double_t duk_js_tointeger_number(duk_double_t x); +DUK_INTERNAL_DECL duk_double_t duk_js_tointeger(duk_hthread *thr, duk_tval *tv); +DUK_INTERNAL_DECL duk_uint32_t duk_js_touint32(duk_hthread *thr, duk_tval *tv); +DUK_INTERNAL_DECL duk_int32_t duk_js_toint32(duk_hthread *thr, duk_tval *tv); +DUK_INTERNAL_DECL duk_uint16_t duk_js_touint16(duk_hthread *thr, duk_tval *tv); +DUK_INTERNAL_DECL duk_uarridx_t duk_js_to_arrayindex_string(const duk_uint8_t *str, duk_uint32_t blen); +#if !defined(DUK_USE_HSTRING_ARRIDX) +DUK_INTERNAL_DECL duk_uarridx_t duk_js_to_arrayindex_hstring_fast_known(duk_hstring *h); +DUK_INTERNAL_DECL duk_uarridx_t duk_js_to_arrayindex_hstring_fast(duk_hstring *h); +#endif +DUK_INTERNAL_DECL duk_bool_t duk_js_equals_helper(duk_hthread *thr, duk_tval *tv_x, duk_tval *tv_y, duk_small_uint_t flags); +DUK_INTERNAL_DECL duk_small_int_t duk_js_data_compare(const duk_uint8_t *buf1, const duk_uint8_t *buf2, duk_size_t len1, duk_size_t len2); +DUK_INTERNAL_DECL duk_small_int_t duk_js_string_compare(duk_hstring *h1, duk_hstring *h2); +#if 0 /* unused */ +DUK_INTERNAL_DECL duk_small_int_t duk_js_buffer_compare(duk_heap *heap, duk_hbuffer *h1, duk_hbuffer *h2); +#endif +DUK_INTERNAL_DECL duk_bool_t duk_js_compare_helper(duk_hthread *thr, duk_tval *tv_x, duk_tval *tv_y, duk_small_uint_t flags); +DUK_INTERNAL_DECL duk_bool_t duk_js_instanceof(duk_hthread *thr, duk_tval *tv_x, duk_tval *tv_y); +#if defined(DUK_USE_SYMBOL_BUILTIN) +DUK_INTERNAL_DECL duk_bool_t duk_js_instanceof_ordinary(duk_hthread *thr, duk_tval *tv_x, duk_tval *tv_y); +#endif +DUK_INTERNAL_DECL duk_bool_t duk_js_in(duk_hthread *thr, duk_tval *tv_x, duk_tval *tv_y); +DUK_INTERNAL_DECL duk_small_uint_t duk_js_typeof_stridx(duk_tval *tv_x); +DUK_INTERNAL_DECL duk_bool_t duk_js_isarray_hobject(duk_hobject *h); +DUK_INTERNAL_DECL duk_bool_t duk_js_isarray(duk_tval *tv); + +/* arithmetic */ +DUK_INTERNAL_DECL double duk_js_arith_pow(double x, double y); +DUK_INTERNAL_DECL double duk_js_arith_mod(double x, double y); + +#define duk_js_equals(thr,tv_x,tv_y) \ + duk_js_equals_helper((thr), (tv_x), (tv_y), 0) +#define duk_js_strict_equals(tv_x,tv_y) \ + duk_js_equals_helper(NULL, (tv_x), (tv_y), DUK_EQUALS_FLAG_STRICT) +#define duk_js_samevalue(tv_x,tv_y) \ + duk_js_equals_helper(NULL, (tv_x), (tv_y), DUK_EQUALS_FLAG_SAMEVALUE) + +/* E5 Sections 11.8.1, 11.8.5; x < y */ +#define duk_js_lessthan(thr,tv_x,tv_y) \ + duk_js_compare_helper((thr), (tv_x), (tv_Y), DUK_COMPARE_FLAG_EVAL_LEFT_FIRST) + +/* E5 Sections 11.8.2, 11.8.5; x > y --> y < x */ +#define duk_js_greaterthan(thr,tv_x,tv_y) \ + duk_js_compare_helper((thr), (tv_y), (tv_x), 0) + +/* E5 Sections 11.8.3, 11.8.5; x <= y --> not (x > y) --> not (y < x) */ +#define duk_js_lessthanorequal(thr,tv_x,tv_y) \ + duk_js_compare_helper((thr), (tv_y), (tv_x), DUK_COMPARE_FLAG_NEGATE) + +/* E5 Sections 11.8.4, 11.8.5; x >= y --> not (x < y) */ +#define duk_js_greaterthanorequal(thr,tv_x,tv_y) \ + duk_js_compare_helper((thr), (tv_x), (tv_y), DUK_COMPARE_FLAG_EVAL_LEFT_FIRST | DUK_COMPARE_FLAG_NEGATE) + +/* identifiers and environment handling */ +#if 0 /*unused*/ +DUK_INTERNAL duk_bool_t duk_js_hasvar_envrec(duk_hthread *thr, duk_hobject *env, duk_hstring *name); +#endif +DUK_INTERNAL_DECL duk_bool_t duk_js_getvar_envrec(duk_hthread *thr, duk_hobject *env, duk_hstring *name, duk_bool_t throw_flag); +DUK_INTERNAL_DECL duk_bool_t duk_js_getvar_activation(duk_hthread *thr, duk_activation *act, duk_hstring *name, duk_bool_t throw_flag); +DUK_INTERNAL_DECL void duk_js_putvar_envrec(duk_hthread *thr, duk_hobject *env, duk_hstring *name, duk_tval *val, duk_bool_t strict); +DUK_INTERNAL_DECL void duk_js_putvar_activation(duk_hthread *thr, duk_activation *act, duk_hstring *name, duk_tval *val, duk_bool_t strict); +#if 0 /*unused*/ +DUK_INTERNAL_DECL duk_bool_t duk_js_delvar_envrec(duk_hthread *thr, duk_hobject *env, duk_hstring *name); +#endif +DUK_INTERNAL_DECL duk_bool_t duk_js_delvar_activation(duk_hthread *thr, duk_activation *act, duk_hstring *name); +DUK_INTERNAL_DECL duk_bool_t duk_js_declvar_activation(duk_hthread *thr, duk_activation *act, duk_hstring *name, duk_tval *val, duk_small_uint_t prop_flags, duk_bool_t is_func_decl); +DUK_INTERNAL_DECL void duk_js_init_activation_environment_records_delayed(duk_hthread *thr, duk_activation *act); +DUK_INTERNAL_DECL void duk_js_close_environment_record(duk_hthread *thr, duk_hobject *env); +DUK_INTERNAL_DECL duk_hobject *duk_create_activation_environment_record(duk_hthread *thr, duk_hobject *func, duk_size_t bottom_byteoff); +DUK_INTERNAL_DECL void duk_js_push_closure(duk_hthread *thr, + duk_hcompfunc *fun_temp, + duk_hobject *outer_var_env, + duk_hobject *outer_lex_env, + duk_bool_t add_auto_proto); + +/* call handling */ +DUK_INTERNAL_DECL void duk_native_stack_check(duk_hthread *thr); +DUK_INTERNAL_DECL duk_int_t duk_handle_call_unprotected(duk_hthread *thr, duk_idx_t idx_func, duk_small_uint_t call_flags); +DUK_INTERNAL_DECL duk_int_t duk_handle_call_unprotected_nargs(duk_hthread *thr, duk_idx_t nargs, duk_small_uint_t call_flags); +DUK_INTERNAL_DECL duk_int_t duk_handle_safe_call(duk_hthread *thr, duk_safe_call_function func, void *udata, duk_idx_t num_stack_args, duk_idx_t num_stack_res); +DUK_INTERNAL_DECL void duk_call_construct_postprocess(duk_hthread *thr, duk_small_uint_t proxy_invariant); +#if defined(DUK_USE_VERBOSE_ERRORS) +DUK_INTERNAL_DECL void duk_call_setup_propcall_error(duk_hthread *thr, duk_tval *tv_base, duk_tval *tv_key); +#endif + +/* bytecode execution */ +DUK_INTERNAL_DECL void duk_js_execute_bytecode(duk_hthread *exec_thr); + +#endif /* DUK_JS_H_INCLUDED */ +/* #include duk_numconv.h */ +#line 1 "duk_numconv.h" +/* + * Number-to-string conversion. The semantics of these is very tightly + * bound with the ECMAScript semantics required for call sites. + */ + +#if !defined(DUK_NUMCONV_H_INCLUDED) +#define DUK_NUMCONV_H_INCLUDED + +/* Output a specified number of digits instead of using the shortest + * form. Used for toPrecision() and toFixed(). + */ +#define DUK_N2S_FLAG_FIXED_FORMAT (1U << 0) + +/* Force exponential format. Used for toExponential(). */ +#define DUK_N2S_FLAG_FORCE_EXP (1U << 1) + +/* If number would need zero padding (for whole number part), use + * exponential format instead. E.g. if input number is 12300, 3 + * digits are generated ("123"), output "1.23e+4" instead of "12300". + * Used for toPrecision(). + */ +#define DUK_N2S_FLAG_NO_ZERO_PAD (1U << 2) + +/* Digit count indicates number of fractions (i.e. an absolute + * digit index instead of a relative one). Used together with + * DUK_N2S_FLAG_FIXED_FORMAT for toFixed(). + */ +#define DUK_N2S_FLAG_FRACTION_DIGITS (1U << 3) + +/* + * String-to-number conversion + */ + +/* Maximum exponent value when parsing numbers. This is not strictly + * compliant as there should be no upper limit, but as we parse the + * exponent without a bigint, impose some limit. The limit should be + * small enough that multiplying it (or limit-1 to be precise) won't + * overflow signed 32-bit integer range. Exponent is only parsed with + * radix 10, but with maximum radix (36) a safe limit is: + * (10000000*36).toString(16) -> '15752a00' + */ +#define DUK_S2N_MAX_EXPONENT 10000000L + +/* Trim white space (= allow leading and trailing whitespace) */ +#define DUK_S2N_FLAG_TRIM_WHITE (1U << 0) + +/* Allow exponent */ +#define DUK_S2N_FLAG_ALLOW_EXP (1U << 1) + +/* Allow trailing garbage (e.g. treat "123foo" as "123) */ +#define DUK_S2N_FLAG_ALLOW_GARBAGE (1U << 2) + +/* Allow leading plus sign */ +#define DUK_S2N_FLAG_ALLOW_PLUS (1U << 3) + +/* Allow leading minus sign */ +#define DUK_S2N_FLAG_ALLOW_MINUS (1U << 4) + +/* Allow 'Infinity' */ +#define DUK_S2N_FLAG_ALLOW_INF (1U << 5) + +/* Allow fraction part */ +#define DUK_S2N_FLAG_ALLOW_FRAC (1U << 6) + +/* Allow naked fraction (e.g. ".123") */ +#define DUK_S2N_FLAG_ALLOW_NAKED_FRAC (1U << 7) + +/* Allow empty fraction (e.g. "123.") */ +#define DUK_S2N_FLAG_ALLOW_EMPTY_FRAC (1U << 8) + +/* Allow empty string to be interpreted as 0 */ +#define DUK_S2N_FLAG_ALLOW_EMPTY_AS_ZERO (1U << 9) + +/* Allow leading zeroes (e.g. "0123" -> "123") */ +#define DUK_S2N_FLAG_ALLOW_LEADING_ZERO (1U << 10) + +/* Allow automatic detection of hex base ("0x" or "0X" prefix), + * overrides radix argument and forces integer mode. + */ +#define DUK_S2N_FLAG_ALLOW_AUTO_HEX_INT (1U << 11) + +/* Allow automatic detection of legacy octal base ("0n"), + * overrides radix argument and forces integer mode. + */ +#define DUK_S2N_FLAG_ALLOW_AUTO_LEGACY_OCT_INT (1U << 12) + +/* Allow automatic detection of ES2015 octal base ("0o123"), + * overrides radix argument and forces integer mode. + */ +#define DUK_S2N_FLAG_ALLOW_AUTO_OCT_INT (1U << 13) + +/* Allow automatic detection of ES2015 binary base ("0b10001"), + * overrides radix argument and forces integer mode. + */ +#define DUK_S2N_FLAG_ALLOW_AUTO_BIN_INT (1U << 14) + +/* + * Prototypes + */ + +DUK_INTERNAL_DECL void duk_numconv_stringify(duk_hthread *thr, duk_small_int_t radix, duk_small_int_t digits, duk_small_uint_t flags); +DUK_INTERNAL_DECL void duk_numconv_parse(duk_hthread *thr, duk_small_int_t radix, duk_small_uint_t flags); + +#endif /* DUK_NUMCONV_H_INCLUDED */ +/* #include duk_bi_protos.h */ +#line 1 "duk_bi_protos.h" +/* + * Prototypes for built-in functions not automatically covered by the + * header declarations emitted by genbuiltins.py. + */ + +#if !defined(DUK_BUILTIN_PROTOS_H_INCLUDED) +#define DUK_BUILTIN_PROTOS_H_INCLUDED + +/* Buffer size needed for ISO 8601 formatting. + * Accurate value is 32 + 1 for NUL termination: + * >>> len('+123456-01-23T12:34:56.123+12:34') + * 32 + * Include additional space to be safe. + */ +#define DUK_BI_DATE_ISO8601_BUFSIZE 40 + +/* Helpers exposed for internal use */ +DUK_INTERNAL_DECL void duk_bi_date_timeval_to_parts(duk_double_t d, duk_int_t *parts, duk_double_t *dparts, duk_small_uint_t flags); +DUK_INTERNAL_DECL duk_double_t duk_bi_date_get_timeval_from_dparts(duk_double_t *dparts, duk_small_uint_t flags); +DUK_INTERNAL_DECL duk_bool_t duk_bi_date_is_leap_year(duk_int_t year); +DUK_INTERNAL_DECL duk_bool_t duk_bi_date_timeval_in_valid_range(duk_double_t x); +DUK_INTERNAL_DECL duk_bool_t duk_bi_date_year_in_valid_range(duk_double_t year); +DUK_INTERNAL_DECL duk_bool_t duk_bi_date_timeval_in_leeway_range(duk_double_t x); +/* Built-in providers */ +#if defined(DUK_USE_DATE_NOW_GETTIMEOFDAY) +DUK_INTERNAL_DECL duk_double_t duk_bi_date_get_now_gettimeofday(void); +#endif +#if defined(DUK_USE_DATE_NOW_TIME) +DUK_INTERNAL_DECL duk_double_t duk_bi_date_get_now_time(void); +#endif +#if defined(DUK_USE_DATE_NOW_WINDOWS) +DUK_INTERNAL_DECL duk_double_t duk_bi_date_get_now_windows(void); +#endif +#if defined(DUK_USE_DATE_NOW_WINDOWS_SUBMS) +DUK_INTERNAL_DECL duk_double_t duk_bi_date_get_now_windows_subms(void); +#endif +#if defined(DUK_USE_DATE_TZO_GMTIME_R) || defined(DUK_USE_DATE_TZO_GMTIME_S) || defined(DUK_USE_DATE_TZO_GMTIME) +DUK_INTERNAL_DECL duk_int_t duk_bi_date_get_local_tzoffset_gmtime(duk_double_t d); +#endif +#if defined(DUK_USE_DATE_TZO_WINDOWS) +DUK_INTERNAL_DECL duk_int_t duk_bi_date_get_local_tzoffset_windows(duk_double_t d); +#endif +#if defined(DUK_USE_DATE_TZO_WINDOWS_NO_DST) +DUK_INTERNAL_DECL duk_int_t duk_bi_date_get_local_tzoffset_windows_no_dst(duk_double_t d); +#endif +#if defined(DUK_USE_DATE_PRS_STRPTIME) +DUK_INTERNAL_DECL duk_bool_t duk_bi_date_parse_string_strptime(duk_hthread *thr, const char *str); +#endif +#if defined(DUK_USE_DATE_PRS_GETDATE) +DUK_INTERNAL_DECL duk_bool_t duk_bi_date_parse_string_getdate(duk_hthread *thr, const char *str); +#endif +#if defined(DUK_USE_DATE_FMT_STRFTIME) +DUK_INTERNAL_DECL duk_bool_t duk_bi_date_format_parts_strftime(duk_hthread *thr, duk_int_t *parts, duk_int_t tzoffset, duk_small_uint_t flags); +#endif + +#if defined(DUK_USE_GET_MONOTONIC_TIME_CLOCK_GETTIME) +DUK_INTERNAL_DECL duk_double_t duk_bi_date_get_monotonic_time_clock_gettime(void); +#endif +#if defined(DUK_USE_GET_MONOTONIC_TIME_WINDOWS_QPC) +DUK_INTERNAL_DECL duk_double_t duk_bi_date_get_monotonic_time_windows_qpc(void); +#endif + +DUK_INTERNAL_DECL +void duk_bi_json_parse_helper(duk_hthread *thr, + duk_idx_t idx_value, + duk_idx_t idx_reviver, + duk_small_uint_t flags); +DUK_INTERNAL_DECL +void duk_bi_json_stringify_helper(duk_hthread *thr, + duk_idx_t idx_value, + duk_idx_t idx_replacer, + duk_idx_t idx_space, + duk_small_uint_t flags); + +DUK_INTERNAL_DECL duk_ret_t duk_textdecoder_decode_utf8_nodejs(duk_hthread *thr); + +#if defined(DUK_USE_ES6_PROXY) +DUK_INTERNAL_DECL void duk_proxy_ownkeys_postprocess(duk_hthread *thr, duk_hobject *h_proxy_target, duk_uint_t flags); +#endif + +#endif /* DUK_BUILTIN_PROTOS_H_INCLUDED */ +/* #include duk_selftest.h */ +#line 1 "duk_selftest.h" +/* + * Selftest code + */ + +#if !defined(DUK_SELFTEST_H_INCLUDED) +#define DUK_SELFTEST_H_INCLUDED + +#if defined(DUK_USE_SELF_TESTS) +DUK_INTERNAL_DECL duk_uint_t duk_selftest_run_tests(duk_alloc_function alloc_func, + duk_realloc_function realloc_func, + duk_free_function free_func, + void *udata); +#endif + +#endif /* DUK_SELFTEST_H_INCLUDED */ +#line 76 "duk_internal.h" + +#endif /* DUK_INTERNAL_H_INCLUDED */ +#line 10 "duk_replacements.c" + +#if defined(DUK_USE_COMPUTED_NAN) +DUK_INTERNAL double duk_computed_nan; +#endif + +#if defined(DUK_USE_COMPUTED_INFINITY) +DUK_INTERNAL double duk_computed_infinity; +#endif + +#if defined(DUK_USE_REPL_FPCLASSIFY) +DUK_INTERNAL int duk_repl_fpclassify(double x) { + duk_double_union u; + duk_uint_fast16_t expt; + duk_small_int_t mzero; + + u.d = x; + expt = (duk_uint_fast16_t) (u.us[DUK_DBL_IDX_US0] & 0x7ff0UL); + if (expt > 0x0000UL && expt < 0x7ff0UL) { + /* expt values [0x001,0x7fe] = normal */ + return DUK_FP_NORMAL; + } + + mzero = (u.ui[DUK_DBL_IDX_UI1] == 0 && (u.ui[DUK_DBL_IDX_UI0] & 0x000fffffUL) == 0); + if (expt == 0x0000UL) { + /* expt 0x000 is zero/subnormal */ + if (mzero) { + return DUK_FP_ZERO; + } else { + return DUK_FP_SUBNORMAL; + } + } else { + /* expt 0xfff is infinite/nan */ + if (mzero) { + return DUK_FP_INFINITE; + } else { + return DUK_FP_NAN; + } + } +} +#endif + +#if defined(DUK_USE_REPL_SIGNBIT) +DUK_INTERNAL int duk_repl_signbit(double x) { + duk_double_union u; + u.d = x; + return (int) (u.uc[DUK_DBL_IDX_UC0] & 0x80UL); +} +#endif + +#if defined(DUK_USE_REPL_ISFINITE) +DUK_INTERNAL int duk_repl_isfinite(double x) { + int c = DUK_FPCLASSIFY(x); + if (c == DUK_FP_NAN || c == DUK_FP_INFINITE) { + return 0; + } else { + return 1; + } +} +#endif + +#if defined(DUK_USE_REPL_ISNAN) +DUK_INTERNAL int duk_repl_isnan(double x) { + int c = DUK_FPCLASSIFY(x); + return (c == DUK_FP_NAN); +} +#endif + +#if defined(DUK_USE_REPL_ISINF) +DUK_INTERNAL int duk_repl_isinf(double x) { + int c = DUK_FPCLASSIFY(x); + return (c == DUK_FP_INFINITE); +} +#endif +#line 1 "duk_debug_macros.c" +/* + * Debugging macro calls. + */ + +/* #include duk_internal.h -> already included */ + +#if defined(DUK_USE_DEBUG) + +/* + * Debugging enabled + */ + +#include +#include +#include + +#if !defined(DUK_USE_DEBUG_WRITE) +#error debugging enabled (DUK_USE_DEBUG) but DUK_USE_DEBUG_WRITE not defined +#endif + +#define DUK__DEBUG_BUFSIZE DUK_USE_DEBUG_BUFSIZE + +#if defined(DUK_USE_VARIADIC_MACROS) + +DUK_INTERNAL void duk_debug_log(duk_int_t level, const char *file, duk_int_t line, const char *func, const char *fmt, ...) { + va_list ap; + long arg_level; + const char *arg_file; + long arg_line; + const char *arg_func; + const char *arg_msg; + char buf[DUK__DEBUG_BUFSIZE]; + + va_start(ap, fmt); + + duk_memzero((void *) buf, (size_t) DUK__DEBUG_BUFSIZE); + duk_debug_vsnprintf(buf, DUK__DEBUG_BUFSIZE - 1, fmt, ap); + + arg_level = (long) level; + arg_file = (const char *) file; + arg_line = (long) line; + arg_func = (const char *) func; + arg_msg = (const char *) buf; + DUK_USE_DEBUG_WRITE(arg_level, arg_file, arg_line, arg_func, arg_msg); + + va_end(ap); +} + +#else /* DUK_USE_VARIADIC_MACROS */ + +DUK_INTERNAL char duk_debug_file_stash[DUK_DEBUG_STASH_SIZE]; +DUK_INTERNAL duk_int_t duk_debug_line_stash; +DUK_INTERNAL char duk_debug_func_stash[DUK_DEBUG_STASH_SIZE]; +DUK_INTERNAL duk_int_t duk_debug_level_stash; + +DUK_INTERNAL void duk_debug_log(const char *fmt, ...) { + va_list ap; + long arg_level; + const char *arg_file; + long arg_line; + const char *arg_func; + const char *arg_msg; + char buf[DUK__DEBUG_BUFSIZE]; + + va_start(ap, fmt); + + duk_memzero((void *) buf, (size_t) DUK__DEBUG_BUFSIZE); + duk_debug_vsnprintf(buf, DUK__DEBUG_BUFSIZE - 1, fmt, ap); + + arg_level = (long) duk_debug_level_stash; + arg_file = (const char *) duk_debug_file_stash; + arg_line = (long) duk_debug_line_stash; + arg_func = (const char *) duk_debug_func_stash; + arg_msg = (const char *) buf; + DUK_USE_DEBUG_WRITE(arg_level, arg_file, arg_line, arg_func, arg_msg); + + va_end(ap); +} + +#endif /* DUK_USE_VARIADIC_MACROS */ + +#else /* DUK_USE_DEBUG */ + +/* + * Debugging disabled + */ + +#endif /* DUK_USE_DEBUG */ + +/* automatic undefs */ +#undef DUK__DEBUG_BUFSIZE +#line 1 "duk_builtins.c" +/* + * Automatically generated by genbuiltins.py, do not edit! + */ + +/* #include duk_internal.h -> already included */ + +#if defined(DUK_USE_ASSERTIONS) +#define DUK__REFCINIT(refc) 0 /*h_assert_refcount*/, (refc) /*actual*/ +#else +#define DUK__REFCINIT(refc) (refc) /*actual*/ +#endif + +#if defined(DUK_USE_ROM_STRINGS) +#error ROM support not enabled, rerun configure.py with --rom-support +#else /* DUK_USE_ROM_STRINGS */ +DUK_INTERNAL const duk_uint8_t duk_strings_data[972] = { +79,40,209,144,168,105,6,78,54,139,89,185,44,48,46,90,120,8,154,140,35,103, +35,113,193,73,5,52,112,180,104,166,135,52,188,4,98,12,27,146,156,80,211,31, +129,115,150,64,52,220,109,24,18,68,156,24,38,67,114,36,55,9,119,151,132, +140,93,18,113,128,153,201,212,201,205,2,248,8,196,24,224,104,82,146,40,224, +193,48,114,168,37,147,196,54,123,28,4,98,12,43,148,67,103,177,192,70,32, +196,121,68,54,123,28,18,192,199,144,124,4,98,12,43,136,108,244,117,184,8, +196,24,95,40,134,207,71,91,128,140,65,133,113,13,158,158,151,1,24,131,11, +229,16,217,233,233,112,17,136,48,206,21,110,4,244,244,184,8,196,24,103,10, +183,2,122,218,156,4,98,12,24,203,112,64,179,113,193,79,8,218,155,131,32, +184,70,212,220,13,10,82,68,252,123,144,217,146,38,228,207,18,0,100,37,64, +178,212,11,161,17,104,162,96,10,200,193,57,165,65,169,16,5,100,81,27,70,18, +32,10,200,68,185,13,116,221,197,184,64,89,57,41,197,13,49,234,5,208,156, +113,87,55,118,147,20,187,56,161,166,92,221,212,73,210,236,226,134,153,115, +119,76,201,203,179,138,26,99,73,212,136,136,164,25,174,137,56,32,72,137, +101,23,52,45,13,34,86,9,79,136,104,201,114,149,96,52,138,134,140,151,75, +226,233,186,120,121,22,39,54,83,141,5,55,68,236,36,164,3,16,225,115,150,64, +52,205,163,2,72,154,83,138,26,99,75,12,11,150,103,5,36,20,211,70,140,133, +67,72,49,241,160,227,81,196,52,168,106,39,132,252,183,136,105,80,212,79,2, +249,110,128,126,88,95,133,109,237,237,237,151,235,127,46,249,119,203,190, +186,206,33,181,2,208,61,190,12,19,34,65,19,81,132,108,228,97,1,107,33,12, +32,45,100,137,64,247,175,9,19,155,41,198,130,155,134,69,146,100,227,226, +231,146,51,192,204,73,140,224,145,221,102,241,68,196,169,248,30,75,12,11, +151,242,233,187,143,138,24,137,162,164,255,253,63,3,201,97,129,114,254,92, +112,75,136,108,166,6,136,159,255,167,224,121,44,48,46,95,203,166,238,74, +113,67,77,201,128,223,255,223,224,121,44,48,46,95,203,145,46,9,205,16,39, +201,62,36,0,192,21,147,255,238,145,39,199,197,211,116,240,242,113,197,78, +214,211,226,233,187,107,105,19,119,37,56,161,166,52,221,212,201,205,36,240, +242,16,96,152,12,26,20,164,137,150,70,154,103,28,137,50,202,96,18,132,241, +41,104,105,56,218,48,36,138,183,57,56,128,68,24,38,2,52,12,34,10,133,147, +141,3,8,119,185,13,153,34,125,206,76,17,49,38,93,206,52,151,154,119,56,28, +76,130,112,200,141,206,21,209,96,23,35,238,114,160,139,0,243,238,114,78, +164,68,68,110,113,226,210,90,26,66,110,113,128,121,247,57,80,68,141,170, +183,56,84,52,11,70,73,19,110,114,160,93,8,113,57,143,66,200,84,53,244,154, +73,24,240,81,32,38,68,18,49,228,207,23,88,100,109,70,114,92,193,4,137,173, +168,36,220,73,19,247,247,182,168,209,144,187,223,58,156,104,79,190,183,127, +123,105,160,110,247,206,167,26,19,239,173,223,222,218,67,75,189,243,169, +198,132,251,235,183,247,182,154,134,151,123,231,83,141,9,247,215,111,239, +109,22,141,22,247,206,167,26,19,239,172,223,218,45,26,47,157,78,52,39,223, +74,24,144,10,32,129,34,20,64,152,142,129,57,179,67,104,68,12,129,161,140, +72,156,100,40,40,185,152,100,89,38,65,13,196,34,228,67,149,13,2,215,129, +149,209,65,104,209,77,14,104,144,81,33,170,67,101,48,52,68,113,70,210,88, +209,36,233,22,154,86,68,196,114,76,232,145,102,120,186,195,156,112,105,225, +228,113,71,80,68,162,115,101,50,85,200,25,108,116,44,132,178,38,114,137,96, +148,136,70,209,134,37,222,232,204,228,188,200,209,200,200,99,221,25,150,84, +121,34,70,209,107,36,227,66,20,160,92,136,164,49,235,35,8,217,201,40,108, +201,18,128,68,26,201,51,188,2,80,12,67,190,40,168,38,68,190,46,153,5,50,12, +207,160,86,129,26,83,4,208,34,225,4,88,192, +}; +#endif /* DUK_USE_ROM_STRINGS */ + +#if defined(DUK_USE_ROM_OBJECTS) +#error ROM support not enabled, rerun configure.py with --rom-support +#else /* DUK_USE_ROM_OBJECTS */ +/* native functions: 185 */ +DUK_INTERNAL const duk_c_function duk_bi_native_functions[185] = { + NULL, + duk_bi_array_constructor, + duk_bi_array_constructor_is_array, + duk_bi_array_prototype_concat, + duk_bi_array_prototype_indexof_shared, + duk_bi_array_prototype_iter_shared, + duk_bi_array_prototype_join_shared, + duk_bi_array_prototype_pop, + duk_bi_array_prototype_push, + duk_bi_array_prototype_reduce_shared, + duk_bi_array_prototype_reverse, + duk_bi_array_prototype_shift, + duk_bi_array_prototype_slice, + duk_bi_array_prototype_sort, + duk_bi_array_prototype_splice, + duk_bi_array_prototype_to_string, + duk_bi_array_prototype_unshift, + duk_bi_arraybuffer_constructor, + duk_bi_arraybuffer_isview, + duk_bi_boolean_constructor, + duk_bi_boolean_prototype_tostring_shared, + duk_bi_buffer_compare_shared, + duk_bi_buffer_readfield, + duk_bi_buffer_slice_shared, + duk_bi_buffer_writefield, + duk_bi_cbor_decode, + duk_bi_cbor_encode, + duk_bi_dataview_constructor, + duk_bi_date_constructor, + duk_bi_date_constructor_now, + duk_bi_date_constructor_parse, + duk_bi_date_constructor_utc, + duk_bi_date_prototype_get_shared, + duk_bi_date_prototype_get_timezone_offset, + duk_bi_date_prototype_set_shared, + duk_bi_date_prototype_set_time, + duk_bi_date_prototype_to_json, + duk_bi_date_prototype_toprimitive, + duk_bi_date_prototype_tostring_shared, + duk_bi_date_prototype_value_of, + duk_bi_duktape_object_act, + duk_bi_duktape_object_compact, + duk_bi_duktape_object_dec, + duk_bi_duktape_object_enc, + duk_bi_duktape_object_fin, + duk_bi_duktape_object_gc, + duk_bi_duktape_object_info, + duk_bi_error_constructor_shared, + duk_bi_error_prototype_filename_getter, + duk_bi_error_prototype_filename_setter, + duk_bi_error_prototype_linenumber_getter, + duk_bi_error_prototype_linenumber_setter, + duk_bi_error_prototype_stack_getter, + duk_bi_error_prototype_stack_setter, + duk_bi_error_prototype_to_string, + duk_bi_function_constructor, + duk_bi_function_prototype, + duk_bi_function_prototype_apply, + duk_bi_function_prototype_bind, + duk_bi_function_prototype_call, + duk_bi_function_prototype_hasinstance, + duk_bi_function_prototype_to_string, + duk_bi_global_object_decode_uri, + duk_bi_global_object_decode_uri_component, + duk_bi_global_object_encode_uri, + duk_bi_global_object_encode_uri_component, + duk_bi_global_object_escape, + duk_bi_global_object_eval, + duk_bi_global_object_is_finite, + duk_bi_global_object_is_nan, + duk_bi_global_object_parse_float, + duk_bi_global_object_parse_int, + duk_bi_global_object_unescape, + duk_bi_json_object_parse, + duk_bi_json_object_stringify, + duk_bi_math_object_clz32, + duk_bi_math_object_hypot, + duk_bi_math_object_imul, + duk_bi_math_object_max, + duk_bi_math_object_min, + duk_bi_math_object_onearg_shared, + duk_bi_math_object_random, + duk_bi_math_object_sign, + duk_bi_math_object_twoarg_shared, + duk_bi_native_function_length, + duk_bi_native_function_name, + duk_bi_nodejs_buffer_byte_length, + duk_bi_nodejs_buffer_concat, + duk_bi_nodejs_buffer_constructor, + duk_bi_nodejs_buffer_copy, + duk_bi_nodejs_buffer_fill, + duk_bi_nodejs_buffer_is_buffer, + duk_bi_nodejs_buffer_is_encoding, + duk_bi_nodejs_buffer_tojson, + duk_bi_nodejs_buffer_tostring, + duk_bi_nodejs_buffer_write, + duk_bi_number_check_shared, + duk_bi_number_constructor, + duk_bi_number_prototype_to_exponential, + duk_bi_number_prototype_to_fixed, + duk_bi_number_prototype_to_locale_string, + duk_bi_number_prototype_to_precision, + duk_bi_number_prototype_to_string, + duk_bi_number_prototype_value_of, + duk_bi_object_constructor, + duk_bi_object_constructor_assign, + duk_bi_object_constructor_create, + duk_bi_object_constructor_define_properties, + duk_bi_object_constructor_define_property, + duk_bi_object_constructor_get_own_property_descriptor, + duk_bi_object_constructor_is, + duk_bi_object_constructor_is_extensible, + duk_bi_object_constructor_is_sealed_frozen_shared, + duk_bi_object_constructor_keys_shared, + duk_bi_object_constructor_prevent_extensions, + duk_bi_object_constructor_seal_freeze_shared, + duk_bi_object_getprototype_shared, + duk_bi_object_prototype_defineaccessor, + duk_bi_object_prototype_has_own_property, + duk_bi_object_prototype_is_prototype_of, + duk_bi_object_prototype_lookupaccessor, + duk_bi_object_prototype_property_is_enumerable, + duk_bi_object_prototype_to_locale_string, + duk_bi_object_prototype_to_string, + duk_bi_object_prototype_value_of, + duk_bi_object_setprototype_shared, + duk_bi_performance_now, + duk_bi_pointer_constructor, + duk_bi_pointer_prototype_tostring_shared, + duk_bi_proxy_constructor, + duk_bi_reflect_apply, + duk_bi_reflect_construct, + duk_bi_reflect_object_delete_property, + duk_bi_reflect_object_get, + duk_bi_reflect_object_has, + duk_bi_reflect_object_set, + duk_bi_regexp_constructor, + duk_bi_regexp_prototype_exec, + duk_bi_regexp_prototype_flags, + duk_bi_regexp_prototype_shared_getter, + duk_bi_regexp_prototype_test, + duk_bi_regexp_prototype_tostring, + duk_bi_string_constructor, + duk_bi_string_constructor_from_char_code, + duk_bi_string_constructor_from_code_point, + duk_bi_string_prototype_caseconv_shared, + duk_bi_string_prototype_char_at, + duk_bi_string_prototype_char_code_at, + duk_bi_string_prototype_concat, + duk_bi_string_prototype_includes, + duk_bi_string_prototype_indexof_shared, + duk_bi_string_prototype_locale_compare, + duk_bi_string_prototype_match, + duk_bi_string_prototype_repeat, + duk_bi_string_prototype_replace, + duk_bi_string_prototype_search, + duk_bi_string_prototype_slice, + duk_bi_string_prototype_split, + duk_bi_string_prototype_startswith_endswith, + duk_bi_string_prototype_substr, + duk_bi_string_prototype_substring, + duk_bi_string_prototype_to_string, + duk_bi_string_prototype_trim, + duk_bi_symbol_constructor_shared, + duk_bi_symbol_key_for, + duk_bi_symbol_toprimitive, + duk_bi_symbol_tostring_shared, + duk_bi_textdecoder_constructor, + duk_bi_textdecoder_prototype_decode, + duk_bi_textdecoder_prototype_shared_getter, + duk_bi_textencoder_constructor, + duk_bi_textencoder_prototype_encode, + duk_bi_textencoder_prototype_encoding_getter, + duk_bi_thread_constructor, + duk_bi_thread_current, + duk_bi_thread_resume, + duk_bi_thread_yield, + duk_bi_type_error_thrower, + duk_bi_typedarray_buffer_getter, + duk_bi_typedarray_bytelength_getter, + duk_bi_typedarray_byteoffset_getter, + duk_bi_typedarray_constructor, + duk_bi_typedarray_set, + duk_bi_uint8array_allocplain, + duk_bi_uint8array_plainof, +}; +#if defined(DUK_USE_DOUBLE_LE) +DUK_INTERNAL const duk_uint8_t duk_builtins_data[4281] = { +144,148,105,226,32,68,52,228,254,12,104,202,37,132,52,167,194,138,105,245, +124,57,28,211,57,18,64,52,239,126,44,138,111,175,241,164,19,87,145,30,33, +167,22,145,159,8,211,139,9,225,42,5,240,145,139,163,163,8,211,139,10,228, +64,211,19,132,140,93,29,56,70,156,88,119,34,66,146,36,104,137,194,70,46, +142,172,35,78,44,47,146,195,102,11,240,145,139,163,175,8,211,139,9,228,240, +242,112,145,139,163,179,8,211,139,8,237,34,130,118,49,116,118,225,26,48,0, +1,98,29,201,158,46,183,39,135,147,132,140,93,16,132,76,66,33,8,66,16,132, +33,8,66,26,180,105,97,167,68,150,34,33,154,112,0,1,91,247,35,79,111,237, +198,174,232,47,31,23,95,17,13,31,249,96,211,49,50,53,214,77,141,24,0,0,181, +10,228,240,242,15,128,140,65,128,134,188,0,0,90,167,97,181,224,0,2,213,62, +53,224,0,2,213,66,237,120,0,0,181,81,204,107,192,0,5,170,150,67,94,0,0,45, +84,245,90,240,0,1,106,169,162,215,128,0,11,85,93,150,188,0,0,90,171,111,53, +109,22,162,26,48,0,1,84,23,201,146,243,225,26,39,12,145,136,104,192,0,5,61, +11,228,201,121,240,100,19,134,72,196,33,195,14,40,203,112,64,190,76,232, +145,153,136,0,0,0,0,0,0,31,15,249,152,0,0,0,0,0,0,30,15,249,120,144,13,96, +155,194,56,80,206,36,67,141,20,228,70,57,81,206,100,131,156,39,132,168,23, +194,70,46,137,208,21,200,129,166,39,9,24,186,39,72,119,34,66,146,36,104, +137,194,70,46,137,212,23,201,97,179,5,248,72,197,209,58,194,121,60,60,156, +36,98,232,157,129,29,164,80,78,198,46,137,218,146,121,25,71,146,9,209,5, +209,61,48,126,14,138,152,30,67,186,23,143,139,175,131,202,135,228,72,85, +144,83,60,179,30,94,209,233,102,30,98,105,230,103,30,114,121,231,104,30, +122,137,231,233,30,130,153,232,106,30,138,169,232,235,30,144,67,193,25,19, +136,108,207,30,41,224,140,137,194,173,192,153,228,5,242,100,188,248,70,137, +195,36,79,78,47,147,37,231,193,144,78,25,34,122,145,111,36,74,232,176,13, +17,61,234,226,93,207,148,160,84,75,141,7,27,161,32,33,18,225,80,212,76,154, +2,2,70,65,56,100,237,34,140,209,2,67,32,156,50,118,145,64,186,230,61,205, +35,103,155,32,36,141,19,134,78,210,40,206,16,36,70,137,195,39,105,20,11, +174,99,220,210,54,121,210,1,137,33,1,228,207,16,17,70,146,66,3,201,164,32, +0,65,112,152,56,196,159,31,23,77,211,195,201,199,23,160,72,214,246,81,6,12, +73,241,214,111,31,23,60,145,158,56,50,72,81,67,230,232,242,80,19,49,39,199, +89,188,124,92,242,70,120,227,64,194,75,154,72,12,9,73,6,111,21,120,12,40, +144,19,39,25,0,225,144,168,105,56,248,185,228,140,241,200,96,64,100,42,26, +78,62,46,121,35,52,18,92,116,1,36,64,47,158,64,49,98,66,100,156,242,65,23, +196,149,35,103,194,94,100,108,144,230,203,156,64,66,37,201,16,11,32,249, +132,4,34,92,44,93,146,55,152,72,24,137,112,151,153,27,36,5,100,229,144,8, +162,98,92,210,5,76,73,241,214,111,31,23,60,145,158,57,44,48,46,92,185,164, +160,72,151,41,0,50,107,179,244,59,36,93,127,92,6,19,172,3,11,216,0,56,224, +151,29,102,241,241,115,201,25,227,164,64,106,37,199,197,211,116,240,242, +113,197,233,144,40,248,185,228,140,241,196,75,132,109,24,72,128,43,39,84, +129,13,173,161,144,168,105,56,98,78,100,142,214,215,69,1,13,173,161,144, +168,105,57,34,78,100,142,214,215,69,16,67,107,105,110,114,168,254,24,147, +153,35,181,181,212,32,67,107,105,110,114,168,254,72,147,153,35,181,181,212, +36,65,130,3,144,8,26,252,200,13,30,85,16,16,64,90,242,231,192,64,161,163, +203,31,26,172,193,17,4,23,105,159,96,27,172,251,16,32,196,4,14,137,112,17, +136,48,164,28,134,80,215,202,1,132,130,8,12,39,52,64,155,31,24,56,36,1,189, +207,132,0,35,233,35,195,62,3,196,149,36,100,72,160,2,200,232,44,227,0,11, +37,160,68,142,128,36,157,25,200,32,26,79,90,4,73,43,192,122,54,71,65,103, +44,248,14,134,140,151,227,138,231,208,45,96,148,248,134,140,151,227,138, +231,240,1,255,254,10,74,146,56,128,104,4,147,152,72,6,144,28,174,143,8,1, +30,1,165,3,96,31,0,211,3,21,11,153,35,0,211,131,68,131,160,137,16,250,5, +196,131,160,137,200,160,199,156,67,248,0,255,255,65,140,10,48,177,115,56, +35,130,60,19,134,79,89,240,52,177,115,56,39,12,156,123,144,217,251,15,135, +34,167,30,20,170,154,255,232,12,47,244,0,97,28,17,224,39,238,32,40,71,4, +120,39,12,156,4,253,228,5,137,195,39,30,228,54,124,4,253,228,128,194,115, +68,9,252,15,128,232,104,201,126,56,191,35,64,90,193,41,241,13,25,47,199,23, +228,105,3,86,225,1,100,224,156,199,130,36,249,144,10,192,76,71,250,16,15, +18,61,96,17,62,200,3,72,128,136,143,247,32,22,75,64,137,248,64,22,79,90,39, +249,64,38,84,12,167,20,52,223,196,2,230,238,45,214,36,120,32,72,158,208,4, +102,238,45,194,2,201,197,186,196,143,4,9,19,218,0,92,221,202,61,228,143,4, +9,19,218,8,35,55,113,110,16,22,78,81,239,36,120,32,72,158,208,64,73,197,12, +255,0,13,18,60,128,159,212,128,169,76,17,156,185,100,76,255,163,64,65,26, +57,114,200,153,255,70,144,33,13,18,232,50,75,226,104,6,149,3,41,199,246, +130,12,128,28,142,156,120,203,175,158,8,194,207,1,6,81,20,79,88,11,237,84, +11,161,32,127,255,255,255,255,255,247,191,137,235,16,221,170,129,116,36,0, +16,0,0,0,0,0,0,12,196,0,0,0,0,0,0,15,135,242,61,123,164,137,162,164,218,67, +74,134,162,120,128,0,0,0,0,0,1,224,254,71,173,33,129,52,84,155,72,105,80, +212,79,16,0,0,0,0,0,0,60,63,195,244,143,146,22,230,192,0,0,0,0,0,0,176,60, +33,214,2,251,82,1,73,180,134,204,134,36,96,127,255,255,255,255,255,159,161, +144,235,16,221,169,0,164,218,67,102,67,18,48,63,255,255,255,255,255,207, +240,196,60,17,145,56,134,204,241,226,158,8,200,156,42,220,9,158,65,196,34, +92,42,26,137,147,120,64,74,37,196,54,100,49,35,188,36,5,68,184,208,113,187, +194,80,212,75,146,1,73,196,54,100,49,35,188,38,57,37,56,240,0,0,0,0,0,0,0, +0,32,235,248,68,48,156,2,24,94,24,0,243,119,10,139,144,123,242,3,102,238, +18,239,115,72,217,160,11,223,16,23,55,113,241,32,145,36,57,188,18,16,102,3, +5,120,35,34,89,32,15,180,152,173,127,0,218,235,88,0,228,180,227,200,0,0,0, +0,0,0,248,127,197,107,240,64,6,77,220,24,38,78,74,113,67,77,130,4,12,155, +185,52,48,156,148,226,134,155,4,10,194,96,129,132,166,238,45,194,2,201,193, +130,100,228,167,20,52,216,32,113,41,187,139,112,128,178,114,104,97,57,41, +197,13,54,8,32,48,216,32,130,195,224,130,19,97,124,134,23,6,0,57,137,62,77, +12,38,12,0,179,18,124,45,22,190,96,128,141,176,134,28,98,79,180,152,139, +218,45,124,193,1,27,97,16,32,196,159,24,230,204,246,194,40,89,137,62,210, +98,103,92,217,158,216,70,7,49,39,193,130,100,182,17,194,140,73,246,147,16, +250,9,146,216,72,6,49,39,193,131,22,194,72,73,137,62,210,98,31,65,139,97, +40,32,196,159,14,234,70,86,194,88,89,137,62,210,98,63,93,72,202,216,76,10, +49,39,198,33,180,153,37,108,38,134,152,147,237,38,38,117,13,164,201,43,97, +56,40,196,159,36,65,57,163,149,176,158,26,98,79,180,152,165,210,9,205,28, +173,133,0,243,18,124,98,22,180,72,130,115,71,43,97,68,72,196,159,105,49,51, +168,90,209,34,9,205,28,173,133,33,19,18,124,154,24,76,185,164,227,138,89, +18,119,0,7,145,39,201,161,132,188,64,124,137,62,49,11,90,36,65,57,163,149, +210,166,37,34,79,180,152,153,212,45,104,145,4,230,142,87,74,160,84,137,62, +72,130,115,71,43,171,234,134,200,147,237,38,41,116,130,115,71,43,171,235,5, +72,147,227,16,218,76,146,186,254,184,108,137,62,210,98,103,80,218,76,146, +186,254,192,68,137,62,29,212,140,174,207,178,23,34,79,180,152,143,215,82, +50,187,62,208,60,137,62,12,19,37,210,182,21,34,79,180,152,135,208,76,151, +74,224,68,137,62,49,205,153,238,175,186,23,34,79,180,152,153,215,54,103, +186,190,240,92,137,62,22,139,95,48,64,70,235,251,225,210,36,251,73,136,189, +162,215,204,16,17,186,255,2,14,98,79,152,32,35,108,48,64,242,36,249,130,2, +55,75,6,212,224,72,200,51,128,114,108,28,100,128,0,0,0,0,0,0,0,12,110,127, +48,98,115,249,201,117,243,249,195,21,159,206,38,47,63,156,86,8,75,144,94, +82,1,38,73,79,208,67,95,233,1,6,128,14,79,129,186,40,249,18,149,182,207, +144,200,155,188,248,204,105,184,207,142,199,137,175,201,0,159,72,10,5,21, +221,10,120,74,129,124,36,98,232,228,74,81,62,160,20,10,107,186,21,114,32, +105,137,194,70,46,142,68,165,19,235,1,64,170,187,161,119,34,66,146,36,104, +137,194,70,46,142,68,165,19,236,1,64,174,187,161,95,37,134,204,23,225,35, +23,71,34,82,137,246,128,160,89,93,208,167,147,195,201,194,70,46,142,68,165, +19,238,1,64,182,187,161,71,105,20,19,177,139,163,145,41,68,16,7,6,15,82,70, +72,115,96,0,0,0,0,0,2,234,32,91,60,165,195,201,194,8,134,149,216,162,0,192, +41,225,8,2,48,177,36,1,149,13,196,15,0,200,209,97,199,128,99,32,176,195, +192,113,57,143,0,167,133,32,230,80,28,202,139,175,238,2,48,189,192,20,1, +119,80,87,193,186,129,89,56,72,197,209,200,193,185,35,23,71,109,13,219,36, +98,232,237,156,13,26,208,211,14,102,19,87,137,91,95,128,0,10,96,24,92,0,0, +83,2,53,56,0,0,165,3,28,204,160,160,226,100,226,200,211,76,241,240,0,1,102, +8,22,75,64,137,73,20,230,105,133,7,19,39,22,70,154,103,143,128,0,11,48,20, +28,76,156,113,75,34,78,62,0,0,45,3,103,31,0,0,22,65,44,57,137,62,33,179, +216,162,152,192,131,18,124,162,27,61,138,41,108,32,196,159,16,217,232,235, +81,76,104,73,137,62,81,13,158,142,181,20,184,16,98,79,136,108,244,244,168, +166,56,36,196,159,40,134,207,79,74,138,93,10,49,39,194,173,192,158,158,149, +20,188,20,98,79,133,91,129,61,109,74,41,124,30,68,159,16,217,236,83,108,96, +68,137,62,81,13,158,197,54,182,17,34,79,136,108,244,117,169,182,52,38,68, +159,40,134,207,71,90,155,92,8,145,39,196,54,122,122,84,219,28,19,34,79,148, +67,103,167,165,77,174,133,72,147,225,86,224,79,79,74,155,94,10,145,39,194, +173,192,158,182,165,54,190,206,25,212,35,208,226,100,150,211,201,29,162,44, +140,35,103,0,0,0,0,0,0,3,192,252,206,25,228,35,208,226,100,150,211,201,29, +162,44,140,35,103,0,0,0,0,0,0,3,192,252,206,25,244,35,208,226,100,150,211, +201,29,162,44,140,35,103,0,0,0,0,0,0,3,192,252,206,26,4,35,208,226,100,150, +211,201,29,162,44,140,35,103,0,0,0,0,0,0,0,1,0,206,26,20,35,208,226,100, +150,211,201,29,162,44,140,35,103,0,0,0,0,0,0,0,1,0,206,26,36,35,208,226, +100,150,211,201,29,162,44,140,35,103,0,0,0,0,0,0,0,65,0,206,26,52,35,208, +226,100,150,211,201,29,162,44,140,35,103,0,0,0,0,0,0,0,65,0,206,26,68,35, +208,226,100,150,211,201,29,162,44,140,35,103,0,0,0,0,0,0,0,65,0,206,26,84, +35,208,226,100,150,211,201,29,162,44,140,35,103,0,0,0,0,0,0,0,129,0,195, +154,99,16,38,36,0,251,68,117,179,216,162,128,68,72,1,241,13,158,197,20,150, +25,18,0,125,162,58,217,232,235,117,100,162,136,25,18,0,125,162,58,217,232, +235,116,36,162,145,2,226,64,15,136,108,244,117,186,178,81,73,129,113,32,7, +196,54,122,58,221,9,40,165,64,200,144,3,237,17,214,207,79,75,171,37,20,80, +200,144,3,237,17,214,207,79,75,161,37,20,138,23,18,0,124,67,103,167,165, +213,146,138,77,11,137,0,62,33,179,211,210,232,73,69,42,133,196,128,31,10, +183,2,125,89,40,163,5,196,128,31,10,183,2,125,9,40,164,96,200,144,3,224, +221,64,172,157,89,40,163,134,68,128,31,6,234,5,100,232,73,69,35,133,68,128, +31,104,142,182,125,89,40,180,0,168,144,3,237,17,214,207,161,37,22,144,19, +18,0,124,67,103,213,146,139,80,9,137,0,62,33,179,232,73,69,172,5,90,40,153, +59,68,117,179,216,166,192,77,162,137,147,136,108,246,41,180,176,219,69,19, +39,104,142,182,122,58,221,89,41,178,6,218,40,153,59,68,117,179,209,214,232, +73,77,162,6,90,40,153,56,134,207,71,91,171,37,54,152,25,104,162,100,226,27, +61,29,110,132,148,218,160,109,162,137,147,180,71,91,61,61,46,172,148,217, +67,109,20,76,157,162,58,217,233,233,116,36,166,209,67,45,20,76,156,67,103, +167,165,213,146,155,77,12,180,81,50,113,13,158,158,151,66,74,109,84,50,209, +68,201,194,173,192,159,86,74,108,193,150,138,38,78,21,110,4,250,18,83,104, +193,182,138,38,78,13,212,10,201,213,146,155,56,109,162,137,147,131,117,2, +178,116,36,166,209,194,237,20,76,157,162,58,217,245,100,167,16,2,237,20,76, +157,162,58,217,244,36,167,18,2,173,20,76,156,67,103,213,146,156,80,10,180, +81,50,113,13,159,66,74,113,97,175,221,48,216,110,64,4,42,22,189,179,0,196, +133,0,185,80,32,28,78,99,193,18,80,36,4,19,159,141,172,0,178,90,4,74,73,0, +22,209,68,201,187,129,4,2,8,3,132,64,60,36,6,149,113,72,176,171,240,84,0, +157,91,116,116,32,11,42,218,221,216,181,129,32,3,234,219,165,3,188,231,235, +249,8,187,152,252,47,86,227,105,18,7,244,17,91,42,56,175,185,248,110,173, +198,209,208,36,0,238,82,97,87,188,189,179,240,93,122,32,12,22,162,42,125, +144,132,160,7,236,161,25,232,237,105,64,205,59,127,102,158,160,230,63,11, +217,66,51,210,129,154,118,254,205,61,65,236,127,171,197,34,168,48,6,90,194, +1,0,39,75,88,72,8,9,33,186,194,80,64,76,13,214,19,2,130,96,110,150,189,0, +65,6,51,214,20,128,65,17,11,214,19,130,137,121,211,210,211,144,6,39,75,88, +80,0,201,119,235,10,8,41,86,231,71,88,80,129,79,135,186,122,133,224,34,25, +69,234,80,3,91,141,172,40,96,139,113,180,181,133,36,21,110,54,142,134,176, +165,1,176,23,213,47,0,216,134,234,215,128,111,117,181,232,128,209,3,70,230, +107,64,5,139,168,209,235,10,32,36,144,102,235,136,3,146,27,172,40,160,146, +132,103,172,40,192,115,3,117,133,28,22,113,163,69,172,41,103,1,66,188,17, +145,52,168,4,202,113,67,76,130,227,76,194,13,240,108,0,0,83,224,0,2,193,0, +104,146,84,97,48,0,1,94,192,56,169,24,145,179,192,0,5,112,8,56,16,32,128, +56,18,52,125,230,86,147,190,140,28,50,21,13,39,31,23,60,145,158,57,12,141, +47,129,6,155,194,188,24,49,39,199,89,188,124,92,242,70,120,224,201,33,69, +15,155,163,201,68,14,49,39,199,197,211,116,240,242,113,197,232,18,180,254, +36,3,17,46,18,243,35,100,128,172,156,178,70,163,154,76,34,248,146,164,108, +248,75,204,141,146,28,217,115,137,27,95,27,241,173,236,162,160,224,200,2, +206,9,113,13,148,192,209,18,22,164,146,37,193,57,162,4,249,39,196,128,24,2, +178,66,213,136,68,201,16,77,209,131,31,192,242,88,96,92,191,151,34,100,136, +38,232,255,252,92,221,199,197,12,68,209,82,66,212,11,155,185,41,197,13,55, +38,3,66,213,47,135,254,72,12,162,99,133,116,112,0,1,72,66,14,16,16,50,37, +202,160,150,154,66,14,20,8,57,192,28,24,80,113,50,113,100,105,166,120,248, +0,0,179,1,65,196,201,199,20,178,36,227,224,0,2,208,54,113,240,0,1,100,11, +181,192,0,5,178,1,18,160,65,24,131,20,145,25,188,48,132,122,28,76,146,218, +121,35,180,69,145,132,108,224,0,0,0,0,0,0,120,31,153,188,56,132,122,28,76, +146,218,121,35,180,69,145,132,108,224,0,0,0,0,0,0,120,31,168,160,45,110,23, +30,176,33,184,0,0,183,32,29,235,2,27,199,23,0,0,23,4,51,120,129,8,244,56, +153,37,180,242,71,104,139,35,8,217,192,0,0,0,0,0,0,240,63,51,120,145,8,244, +56,153,37,180,242,71,104,139,35,8,217,192,0,0,0,0,0,0,0,64,51,120,161,8, +244,56,153,37,180,242,71,104,139,35,8,217,192,0,0,0,0,0,0,0,64,51,120,177, +8,244,56,153,37,180,242,71,104,139,35,8,217,192,0,0,0,0,0,0,16,64,51,120, +193,8,244,56,153,37,180,242,71,104,139,35,8,217,192,0,0,0,0,0,0,16,64,51, +120,209,8,244,56,153,37,180,242,71,104,139,35,8,217,192,0,0,0,0,0,0,16,64, +51,120,225,8,244,56,153,37,180,242,71,104,139,35,8,217,192,0,0,0,0,0,0,32, +64,32,227,194,0,97,57,162,4,246,104,5,34,92,35,68,225,161,166,220,16,16, +137,112,52,41,73,29,185,1,65,196,201,197,145,166,153,246,72,3,137,204,120, +34,74,8,199,1,67,17,162,112,201,84,128,97,144,78,25,42,16,131,169,1,205,66, +8,35,68,225,161,166,239,128,0,10,192,64,196,104,156,50,96,0,2,172,73,240, +117,96,57,170,97,4,104,156,52,52,221,240,0,1,82,1,74,9,129,125,240,0,1,82, +32,148,25,174,137,58,23,51,190,0,0,42,69,64,195,32,156,50,96,0,2,160,81, +238,2,3,107,173,218,3,192, +}; +#elif defined(DUK_USE_DOUBLE_BE) +DUK_INTERNAL const duk_uint8_t duk_builtins_data[4281] = { +144,148,105,226,32,68,52,228,254,12,104,202,37,132,52,167,194,138,105,245, +124,57,28,211,57,18,64,52,239,126,44,138,111,175,241,164,19,87,145,30,33, +167,22,145,159,8,211,139,9,225,42,5,240,145,139,163,163,8,211,139,10,228, +64,211,19,132,140,93,29,56,70,156,88,119,34,66,146,36,104,137,194,70,46, +142,172,35,78,44,47,146,195,102,11,240,145,139,163,175,8,211,139,9,228,240, +242,112,145,139,163,179,8,211,139,8,237,34,130,118,49,116,118,225,26,48,0, +1,98,29,201,158,46,183,39,135,147,132,140,93,16,132,76,66,33,8,66,16,132, +33,8,66,26,180,105,97,167,68,150,34,33,154,112,0,1,91,247,35,79,111,237, +198,174,232,47,31,23,95,17,13,31,249,96,211,49,50,53,214,77,141,24,0,0,181, +10,228,240,242,15,128,140,65,128,134,188,0,0,90,167,97,181,224,0,2,213,62, +53,224,0,2,213,66,237,120,0,0,181,81,204,107,192,0,5,170,150,67,94,0,0,45, +84,245,90,240,0,1,106,169,162,215,128,0,11,85,93,150,188,0,0,90,171,111,53, +109,22,162,26,48,0,1,84,23,201,146,243,225,26,39,12,145,136,104,192,0,5,61, +11,228,201,121,240,100,19,134,72,196,33,195,14,40,203,112,64,190,76,232, +145,153,136,15,255,0,0,0,0,0,0,25,152,15,254,0,0,0,0,0,0,25,120,144,13,96, +155,194,56,80,206,36,67,141,20,228,70,57,81,206,100,131,156,39,132,168,23, +194,70,46,137,208,21,200,129,166,39,9,24,186,39,72,119,34,66,146,36,104, +137,194,70,46,137,212,23,201,97,179,5,248,72,197,209,58,194,121,60,60,156, +36,98,232,157,129,29,164,80,78,198,46,137,218,146,121,25,71,146,9,209,5, +209,61,48,126,14,138,152,30,67,186,23,143,139,175,131,202,135,228,72,85, +144,83,60,179,30,94,209,233,102,30,98,105,230,103,30,114,121,231,104,30, +122,137,231,233,30,130,153,232,106,30,138,169,232,235,30,144,67,193,25,19, +136,108,207,30,41,224,140,137,194,173,192,153,228,5,242,100,188,248,70,137, +195,36,79,78,47,147,37,231,193,144,78,25,34,122,145,111,36,74,232,176,13, +17,61,234,226,93,207,148,160,84,75,141,7,27,161,32,33,18,225,80,212,76,154, +2,2,70,65,56,100,237,34,140,209,2,67,32,156,50,118,145,64,186,230,61,205, +35,103,155,32,36,141,19,134,78,210,40,206,16,36,70,137,195,39,105,20,11, +174,99,220,210,54,121,210,1,137,33,1,228,207,16,17,70,146,66,3,201,164,32, +0,65,112,152,56,196,159,31,23,77,211,195,201,199,23,160,72,214,246,81,6,12, +73,241,214,111,31,23,60,145,158,56,50,72,81,67,230,232,242,80,19,49,39,199, +89,188,124,92,242,70,120,227,64,194,75,154,72,12,9,73,6,111,21,120,12,40, +144,19,39,25,0,225,144,168,105,56,248,185,228,140,241,200,96,64,100,42,26, +78,62,46,121,35,52,18,92,116,1,36,64,47,158,64,49,98,66,100,156,242,65,23, +196,149,35,103,194,94,100,108,144,230,203,156,64,66,37,201,16,11,32,249, +132,4,34,92,44,93,146,55,152,72,24,137,112,151,153,27,36,5,100,229,144,8, +162,98,92,210,5,76,73,241,214,111,31,23,60,145,158,57,44,48,46,92,185,164, +160,72,151,41,0,50,107,179,244,59,36,93,127,92,6,19,172,3,11,216,0,56,224, +151,29,102,241,241,115,201,25,227,164,64,106,37,199,197,211,116,240,242, +113,197,233,144,40,248,185,228,140,241,196,75,132,109,24,72,128,43,39,84, +129,13,173,161,144,168,105,56,98,78,100,142,214,215,69,1,13,173,161,144, +168,105,57,34,78,100,142,214,215,69,16,67,107,105,110,114,168,254,24,147, +153,35,181,181,212,32,67,107,105,110,114,168,254,72,147,153,35,181,181,212, +36,65,130,3,144,8,26,252,200,13,30,85,16,16,64,90,242,231,192,64,161,163, +203,31,26,172,193,17,4,23,105,159,96,27,172,251,16,32,196,4,14,137,112,17, +136,48,164,28,134,80,215,202,1,132,130,8,12,39,52,64,155,31,24,56,36,1,189, +207,132,0,35,233,35,195,62,3,196,149,36,100,72,160,2,200,232,44,227,0,11, +37,160,68,142,128,36,157,25,200,32,26,79,90,4,73,43,192,122,54,71,65,103, +44,248,14,134,140,151,227,138,231,208,45,96,148,248,134,140,151,227,138, +231,240,1,255,254,10,74,146,56,128,104,4,147,152,72,6,144,28,174,143,8,1, +30,1,165,3,96,31,0,211,3,21,11,153,35,0,211,131,68,131,160,137,16,250,5, +196,131,160,137,200,160,199,156,67,248,0,255,255,65,140,10,48,177,115,56, +35,130,60,19,134,79,89,240,52,177,115,56,39,12,156,123,144,217,251,15,135, +34,167,30,20,170,154,255,232,12,47,244,0,97,28,17,224,39,238,32,40,71,4, +120,39,12,156,4,253,228,5,137,195,39,30,228,54,124,4,253,228,128,194,115, +68,9,252,15,128,232,104,201,126,56,191,35,64,90,193,41,241,13,25,47,199,23, +228,105,3,86,225,1,100,224,156,199,130,36,249,144,10,192,76,71,250,16,15, +18,61,96,17,62,200,3,72,128,136,143,247,32,22,75,64,137,248,64,22,79,90,39, +249,64,38,84,12,167,20,52,223,196,2,230,238,45,214,36,120,32,72,158,208,4, +102,238,45,194,2,201,197,186,196,143,4,9,19,218,0,92,221,202,61,228,143,4, +9,19,218,8,35,55,113,110,16,22,78,81,239,36,120,32,72,158,208,64,73,197,12, +255,0,13,18,60,128,159,212,128,169,76,17,156,185,100,76,255,163,64,65,26, +57,114,200,153,255,70,144,33,13,18,232,50,75,226,104,6,149,3,41,199,246, +130,12,128,28,142,156,120,203,175,158,8,194,207,1,6,81,20,79,88,11,237,84, +11,161,32,63,247,255,255,255,255,255,255,137,235,16,221,170,129,116,36,0,0, +0,0,0,0,0,0,28,196,7,255,128,0,0,0,0,0,2,61,123,164,137,162,164,218,67,74, +134,162,120,128,255,224,0,0,0,0,0,0,71,173,33,129,52,84,155,72,105,80,212, +79,16,63,252,0,0,0,0,0,0,3,244,143,146,22,230,192,60,176,0,0,0,0,0,0,33, +214,2,251,82,1,73,180,134,204,134,36,96,33,159,255,255,255,255,255,255,144, +235,16,221,169,0,164,218,67,102,67,18,48,48,207,255,255,255,255,255,255, +196,60,17,145,56,134,204,241,226,158,8,200,156,42,220,9,158,65,196,34,92, +42,26,137,147,120,64,74,37,196,54,100,49,35,188,36,5,68,184,208,113,187, +194,80,212,75,146,1,73,196,54,100,49,35,188,38,57,37,56,240,0,0,0,0,0,0,0, +0,32,235,248,68,48,156,2,24,94,24,0,243,119,10,139,144,123,242,3,102,238, +18,239,115,72,217,160,11,223,16,23,55,113,241,32,145,36,57,188,18,16,102,3, +5,120,35,34,89,32,15,180,152,173,127,0,218,235,88,0,228,180,227,200,127, +248,0,0,0,0,0,0,197,107,240,64,6,77,220,24,38,78,74,113,67,77,130,4,12,155, +185,52,48,156,148,226,134,155,4,10,194,96,129,132,166,238,45,194,2,201,193, +130,100,228,167,20,52,216,32,113,41,187,139,112,128,178,114,104,97,57,41, +197,13,54,8,32,48,216,32,130,195,224,130,19,97,124,134,23,6,0,57,137,62,77, +12,38,12,0,179,18,124,45,22,190,96,128,141,176,134,28,98,79,180,152,139, +218,45,124,193,1,27,97,16,32,196,159,24,230,204,246,194,40,89,137,62,210, +98,103,92,217,158,216,70,7,49,39,193,130,100,182,17,194,140,73,246,147,16, +250,9,146,216,72,6,49,39,193,131,22,194,72,73,137,62,210,98,31,65,139,97, +40,32,196,159,14,234,70,86,194,88,89,137,62,210,98,63,93,72,202,216,76,10, +49,39,198,33,180,153,37,108,38,134,152,147,237,38,38,117,13,164,201,43,97, +56,40,196,159,36,65,57,163,149,176,158,26,98,79,180,152,165,210,9,205,28, +173,133,0,243,18,124,98,22,180,72,130,115,71,43,97,68,72,196,159,105,49,51, +168,90,209,34,9,205,28,173,133,33,19,18,124,154,24,76,185,164,227,138,89, +18,119,0,7,145,39,201,161,132,188,64,124,137,62,49,11,90,36,65,57,163,149, +210,166,37,34,79,180,152,153,212,45,104,145,4,230,142,87,74,160,84,137,62, +72,130,115,71,43,171,234,134,200,147,237,38,41,116,130,115,71,43,171,235,5, +72,147,227,16,218,76,146,186,254,184,108,137,62,210,98,103,80,218,76,146, +186,254,192,68,137,62,29,212,140,174,207,178,23,34,79,180,152,143,215,82, +50,187,62,208,60,137,62,12,19,37,210,182,21,34,79,180,152,135,208,76,151, +74,224,68,137,62,49,205,153,238,175,186,23,34,79,180,152,153,215,54,103, +186,190,240,92,137,62,22,139,95,48,64,70,235,251,225,210,36,251,73,136,189, +162,215,204,16,17,186,255,2,14,98,79,152,32,35,108,48,64,242,36,249,130,2, +55,75,6,212,224,72,200,51,128,114,108,28,100,128,0,0,0,0,0,0,0,12,110,127, +48,98,115,249,201,117,243,249,195,21,159,206,38,47,63,156,86,8,75,144,94, +82,1,38,73,79,208,67,95,233,1,6,128,14,79,129,186,40,249,18,149,182,207, +144,200,155,188,248,204,105,184,207,142,199,137,175,201,0,159,72,10,5,21, +221,10,120,74,129,124,36,98,232,228,74,81,62,160,20,10,107,186,21,114,32, +105,137,194,70,46,142,68,165,19,235,1,64,170,187,161,119,34,66,146,36,104, +137,194,70,46,142,68,165,19,236,1,64,174,187,161,95,37,134,204,23,225,35, +23,71,34,82,137,246,128,160,89,93,208,167,147,195,201,194,70,46,142,68,165, +19,238,1,64,182,187,161,71,105,20,19,177,139,163,145,41,68,16,7,6,15,82,70, +72,115,96,32,106,2,128,0,0,0,0,91,60,165,195,201,194,8,134,149,216,162,0, +192,41,225,8,2,48,177,36,1,149,13,196,15,0,200,209,97,199,128,99,32,176, +195,192,113,57,143,0,167,133,32,230,80,28,202,139,175,238,2,48,189,192,20, +1,119,80,87,193,186,129,89,56,72,197,209,200,193,185,35,23,71,109,13,219, +36,98,232,237,156,13,26,208,211,14,102,19,87,137,91,95,128,0,10,96,24,92,0, +0,83,2,53,56,0,0,165,3,28,204,160,160,226,100,226,200,211,76,241,240,0,1, +102,8,22,75,64,137,73,20,230,105,133,7,19,39,22,70,154,103,143,128,0,11,48, +20,28,76,156,113,75,34,78,62,0,0,45,3,103,31,0,0,22,65,44,57,137,62,33,179, +216,162,152,192,131,18,124,162,27,61,138,41,108,32,196,159,16,217,232,235, +81,76,104,73,137,62,81,13,158,142,181,20,184,16,98,79,136,108,244,244,168, +166,56,36,196,159,40,134,207,79,74,138,93,10,49,39,194,173,192,158,158,149, +20,188,20,98,79,133,91,129,61,109,74,41,124,30,68,159,16,217,236,83,108,96, +68,137,62,81,13,158,197,54,182,17,34,79,136,108,244,117,169,182,52,38,68, +159,40,134,207,71,90,155,92,8,145,39,196,54,122,122,84,219,28,19,34,79,148, +67,103,167,165,77,174,133,72,147,225,86,224,79,79,74,155,94,10,145,39,194, +173,192,158,182,165,54,190,206,25,212,35,208,226,100,150,211,201,29,162,44, +140,35,103,0,255,192,0,0,0,0,0,0,206,25,228,35,208,226,100,150,211,201,29, +162,44,140,35,103,0,255,192,0,0,0,0,0,0,206,25,244,35,208,226,100,150,211, +201,29,162,44,140,35,103,0,255,192,0,0,0,0,0,0,206,26,4,35,208,226,100,150, +211,201,29,162,44,140,35,103,1,0,0,0,0,0,0,0,0,206,26,20,35,208,226,100, +150,211,201,29,162,44,140,35,103,1,0,0,0,0,0,0,0,0,206,26,36,35,208,226, +100,150,211,201,29,162,44,140,35,103,1,0,64,0,0,0,0,0,0,206,26,52,35,208, +226,100,150,211,201,29,162,44,140,35,103,1,0,64,0,0,0,0,0,0,206,26,68,35, +208,226,100,150,211,201,29,162,44,140,35,103,1,0,64,0,0,0,0,0,0,206,26,84, +35,208,226,100,150,211,201,29,162,44,140,35,103,1,0,128,0,0,0,0,0,0,195, +154,99,16,38,36,0,251,68,117,179,216,162,128,68,72,1,241,13,158,197,20,150, +25,18,0,125,162,58,217,232,235,117,100,162,136,25,18,0,125,162,58,217,232, +235,116,36,162,145,2,226,64,15,136,108,244,117,186,178,81,73,129,113,32,7, +196,54,122,58,221,9,40,165,64,200,144,3,237,17,214,207,79,75,171,37,20,80, +200,144,3,237,17,214,207,79,75,161,37,20,138,23,18,0,124,67,103,167,165, +213,146,138,77,11,137,0,62,33,179,211,210,232,73,69,42,133,196,128,31,10, +183,2,125,89,40,163,5,196,128,31,10,183,2,125,9,40,164,96,200,144,3,224, +221,64,172,157,89,40,163,134,68,128,31,6,234,5,100,232,73,69,35,133,68,128, +31,104,142,182,125,89,40,180,0,168,144,3,237,17,214,207,161,37,22,144,19, +18,0,124,67,103,213,146,139,80,9,137,0,62,33,179,232,73,69,172,5,90,40,153, +59,68,117,179,216,166,192,77,162,137,147,136,108,246,41,180,176,219,69,19, +39,104,142,182,122,58,221,89,41,178,6,218,40,153,59,68,117,179,209,214,232, +73,77,162,6,90,40,153,56,134,207,71,91,171,37,54,152,25,104,162,100,226,27, +61,29,110,132,148,218,160,109,162,137,147,180,71,91,61,61,46,172,148,217, +67,109,20,76,157,162,58,217,233,233,116,36,166,209,67,45,20,76,156,67,103, +167,165,213,146,155,77,12,180,81,50,113,13,158,158,151,66,74,109,84,50,209, +68,201,194,173,192,159,86,74,108,193,150,138,38,78,21,110,4,250,18,83,104, +193,182,138,38,78,13,212,10,201,213,146,155,56,109,162,137,147,131,117,2, +178,116,36,166,209,194,237,20,76,157,162,58,217,245,100,167,16,2,237,20,76, +157,162,58,217,244,36,167,18,2,173,20,76,156,67,103,213,146,156,80,10,180, +81,50,113,13,159,66,74,113,97,175,221,48,216,110,64,4,42,22,189,179,0,196, +133,0,185,80,32,28,78,99,193,18,80,36,4,19,159,141,172,0,178,90,4,74,73,0, +22,209,68,201,187,129,4,2,8,3,132,64,60,36,4,0,91,240,168,177,69,118,144, +157,91,116,116,32,32,1,53,216,221,218,170,139,3,234,219,165,0,255,152,185, +11,251,232,231,188,47,86,227,105,18,1,255,184,170,59,41,92,23,240,110,173, +198,209,208,36,3,253,188,183,177,82,110,80,224,93,122,32,32,4,144,253,170, +34,22,140,7,236,161,25,232,237,105,64,63,230,160,158,102,127,59,205,11,217, +66,51,210,128,127,237,65,60,204,254,119,155,171,197,34,168,48,6,90,194,1,0, +39,75,88,72,8,9,33,186,194,80,64,76,13,214,19,2,130,96,110,150,189,0,65,6, +51,214,20,128,65,17,11,214,19,130,137,121,211,210,211,144,6,39,75,88,80,0, +201,119,235,10,8,41,86,231,71,88,80,129,79,135,186,122,133,224,34,25,69, +234,80,3,91,141,172,40,96,139,113,180,181,133,36,21,110,54,142,134,176,165, +1,176,23,213,47,0,216,134,234,215,128,111,117,181,232,128,209,3,70,230,107, +64,5,139,168,209,235,10,32,36,144,102,235,136,3,146,27,172,40,160,146,132, +103,172,40,192,115,3,117,133,28,22,113,163,69,172,41,103,1,66,188,17,145, +52,168,4,202,113,67,76,130,227,76,194,13,240,108,0,0,83,224,0,2,193,0,104, +146,84,97,48,0,1,94,192,56,169,24,145,179,192,0,5,112,8,56,16,32,128,56,18, +52,125,230,86,147,190,140,28,50,21,13,39,31,23,60,145,158,57,12,141,47,129, +6,155,194,188,24,49,39,199,89,188,124,92,242,70,120,224,201,33,69,15,155, +163,201,68,14,49,39,199,197,211,116,240,242,113,197,232,18,180,254,36,3,17, +46,18,243,35,100,128,172,156,178,70,163,154,76,34,248,146,164,108,248,75, +204,141,146,28,217,115,137,27,95,27,241,173,236,162,160,224,200,2,206,9, +113,13,148,192,209,18,22,164,146,37,193,57,162,4,249,39,196,128,24,2,178, +66,213,136,68,201,16,77,209,131,31,192,242,88,96,92,191,151,34,100,136,38, +232,255,252,92,221,199,197,12,68,209,82,66,212,11,155,185,41,197,13,55,38, +3,66,213,47,135,254,72,12,162,99,133,116,112,0,1,72,66,14,16,16,50,37,202, +160,150,154,66,14,20,8,57,192,28,24,80,113,50,113,100,105,166,120,248,0,0, +179,1,65,196,201,199,20,178,36,227,224,0,2,208,54,113,240,0,1,100,11,181, +192,0,5,178,1,18,160,65,24,131,20,145,25,188,48,132,122,28,76,146,218,121, +35,180,69,145,132,108,224,31,248,0,0,0,0,0,0,25,188,56,132,122,28,76,146, +218,121,35,180,69,145,132,108,224,31,248,0,0,0,0,0,0,40,160,45,110,23,30, +176,33,184,0,0,183,32,29,235,2,27,199,23,0,0,23,4,51,120,129,8,244,56,153, +37,180,242,71,104,139,35,8,217,192,63,240,0,0,0,0,0,0,51,120,145,8,244,56, +153,37,180,242,71,104,139,35,8,217,192,64,0,0,0,0,0,0,0,51,120,161,8,244, +56,153,37,180,242,71,104,139,35,8,217,192,64,0,0,0,0,0,0,0,51,120,177,8, +244,56,153,37,180,242,71,104,139,35,8,217,192,64,16,0,0,0,0,0,0,51,120,193, +8,244,56,153,37,180,242,71,104,139,35,8,217,192,64,16,0,0,0,0,0,0,51,120, +209,8,244,56,153,37,180,242,71,104,139,35,8,217,192,64,16,0,0,0,0,0,0,51, +120,225,8,244,56,153,37,180,242,71,104,139,35,8,217,192,64,32,0,0,0,0,0,0, +32,227,194,0,97,57,162,4,246,104,5,34,92,35,68,225,161,166,220,16,16,137, +112,52,41,73,29,185,1,65,196,201,197,145,166,153,246,72,3,137,204,120,34, +74,8,199,1,67,17,162,112,201,84,128,97,144,78,25,42,16,131,169,1,205,66,8, +35,68,225,161,166,239,128,0,10,192,64,196,104,156,50,96,0,2,172,73,240,117, +96,57,170,97,4,104,156,52,52,221,240,0,1,82,1,74,9,129,125,240,0,1,82,32, +148,25,174,137,58,23,51,190,0,0,42,69,64,195,32,156,50,96,0,2,160,81,238,2, +3,107,173,218,3,192, +}; +#elif defined(DUK_USE_DOUBLE_ME) +DUK_INTERNAL const duk_uint8_t duk_builtins_data[4281] = { +144,148,105,226,32,68,52,228,254,12,104,202,37,132,52,167,194,138,105,245, +124,57,28,211,57,18,64,52,239,126,44,138,111,175,241,164,19,87,145,30,33, +167,22,145,159,8,211,139,9,225,42,5,240,145,139,163,163,8,211,139,10,228, +64,211,19,132,140,93,29,56,70,156,88,119,34,66,146,36,104,137,194,70,46, +142,172,35,78,44,47,146,195,102,11,240,145,139,163,175,8,211,139,9,228,240, +242,112,145,139,163,179,8,211,139,8,237,34,130,118,49,116,118,225,26,48,0, +1,98,29,201,158,46,183,39,135,147,132,140,93,16,132,76,66,33,8,66,16,132, +33,8,66,26,180,105,97,167,68,150,34,33,154,112,0,1,91,247,35,79,111,237, +198,174,232,47,31,23,95,17,13,31,249,96,211,49,50,53,214,77,141,24,0,0,181, +10,228,240,242,15,128,140,65,128,134,188,0,0,90,167,97,181,224,0,2,213,62, +53,224,0,2,213,66,237,120,0,0,181,81,204,107,192,0,5,170,150,67,94,0,0,45, +84,245,90,240,0,1,106,169,162,215,128,0,11,85,93,150,188,0,0,90,171,111,53, +109,22,162,26,48,0,1,84,23,201,146,243,225,26,39,12,145,136,104,192,0,5,61, +11,228,201,121,240,100,19,134,72,196,33,195,14,40,203,112,64,190,76,232, +145,153,136,0,0,31,15,224,0,0,0,25,152,0,0,30,15,224,0,0,0,25,120,144,13, +96,155,194,56,80,206,36,67,141,20,228,70,57,81,206,100,131,156,39,132,168, +23,194,70,46,137,208,21,200,129,166,39,9,24,186,39,72,119,34,66,146,36,104, +137,194,70,46,137,212,23,201,97,179,5,248,72,197,209,58,194,121,60,60,156, +36,98,232,157,129,29,164,80,78,198,46,137,218,146,121,25,71,146,9,209,5, +209,61,48,126,14,138,152,30,67,186,23,143,139,175,131,202,135,228,72,85, +144,83,60,179,30,94,209,233,102,30,98,105,230,103,30,114,121,231,104,30, +122,137,231,233,30,130,153,232,106,30,138,169,232,235,30,144,67,193,25,19, +136,108,207,30,41,224,140,137,194,173,192,153,228,5,242,100,188,248,70,137, +195,36,79,78,47,147,37,231,193,144,78,25,34,122,145,111,36,74,232,176,13, +17,61,234,226,93,207,148,160,84,75,141,7,27,161,32,33,18,225,80,212,76,154, +2,2,70,65,56,100,237,34,140,209,2,67,32,156,50,118,145,64,186,230,61,205, +35,103,155,32,36,141,19,134,78,210,40,206,16,36,70,137,195,39,105,20,11, +174,99,220,210,54,121,210,1,137,33,1,228,207,16,17,70,146,66,3,201,164,32, +0,65,112,152,56,196,159,31,23,77,211,195,201,199,23,160,72,214,246,81,6,12, +73,241,214,111,31,23,60,145,158,56,50,72,81,67,230,232,242,80,19,49,39,199, +89,188,124,92,242,70,120,227,64,194,75,154,72,12,9,73,6,111,21,120,12,40, +144,19,39,25,0,225,144,168,105,56,248,185,228,140,241,200,96,64,100,42,26, +78,62,46,121,35,52,18,92,116,1,36,64,47,158,64,49,98,66,100,156,242,65,23, +196,149,35,103,194,94,100,108,144,230,203,156,64,66,37,201,16,11,32,249, +132,4,34,92,44,93,146,55,152,72,24,137,112,151,153,27,36,5,100,229,144,8, +162,98,92,210,5,76,73,241,214,111,31,23,60,145,158,57,44,48,46,92,185,164, +160,72,151,41,0,50,107,179,244,59,36,93,127,92,6,19,172,3,11,216,0,56,224, +151,29,102,241,241,115,201,25,227,164,64,106,37,199,197,211,116,240,242, +113,197,233,144,40,248,185,228,140,241,196,75,132,109,24,72,128,43,39,84, +129,13,173,161,144,168,105,56,98,78,100,142,214,215,69,1,13,173,161,144, +168,105,57,34,78,100,142,214,215,69,16,67,107,105,110,114,168,254,24,147, +153,35,181,181,212,32,67,107,105,110,114,168,254,72,147,153,35,181,181,212, +36,65,130,3,144,8,26,252,200,13,30,85,16,16,64,90,242,231,192,64,161,163, +203,31,26,172,193,17,4,23,105,159,96,27,172,251,16,32,196,4,14,137,112,17, +136,48,164,28,134,80,215,202,1,132,130,8,12,39,52,64,155,31,24,56,36,1,189, +207,132,0,35,233,35,195,62,3,196,149,36,100,72,160,2,200,232,44,227,0,11, +37,160,68,142,128,36,157,25,200,32,26,79,90,4,73,43,192,122,54,71,65,103, +44,248,14,134,140,151,227,138,231,208,45,96,148,248,134,140,151,227,138, +231,240,1,255,254,10,74,146,56,128,104,4,147,152,72,6,144,28,174,143,8,1, +30,1,165,3,96,31,0,211,3,21,11,153,35,0,211,131,68,131,160,137,16,250,5, +196,131,160,137,200,160,199,156,67,248,0,255,255,65,140,10,48,177,115,56, +35,130,60,19,134,79,89,240,52,177,115,56,39,12,156,123,144,217,251,15,135, +34,167,30,20,170,154,255,232,12,47,244,0,97,28,17,224,39,238,32,40,71,4, +120,39,12,156,4,253,228,5,137,195,39,30,228,54,124,4,253,228,128,194,115, +68,9,252,15,128,232,104,201,126,56,191,35,64,90,193,41,241,13,25,47,199,23, +228,105,3,86,225,1,100,224,156,199,130,36,249,144,10,192,76,71,250,16,15, +18,61,96,17,62,200,3,72,128,136,143,247,32,22,75,64,137,248,64,22,79,90,39, +249,64,38,84,12,167,20,52,223,196,2,230,238,45,214,36,120,32,72,158,208,4, +102,238,45,194,2,201,197,186,196,143,4,9,19,218,0,92,221,202,61,228,143,4, +9,19,218,8,35,55,113,110,16,22,78,81,239,36,120,32,72,158,208,64,73,197,12, +255,0,13,18,60,128,159,212,128,169,76,17,156,185,100,76,255,163,64,65,26, +57,114,200,153,255,70,144,33,13,18,232,50,75,226,104,6,149,3,41,199,246, +130,12,128,28,142,156,120,203,175,158,8,194,207,1,6,81,20,79,88,11,237,84, +11,161,32,127,255,247,191,255,255,255,255,137,235,16,221,170,129,116,36,0, +0,0,0,0,16,0,0,12,196,0,0,15,135,240,0,0,0,2,61,123,164,137,162,164,218,67, +74,134,162,120,128,0,1,224,254,0,0,0,0,71,173,33,129,52,84,155,72,105,80, +212,79,16,0,0,60,63,192,0,0,0,3,244,143,146,22,230,192,0,0,176,60,0,0,0,0, +33,214,2,251,82,1,73,180,134,204,134,36,96,127,255,159,161,255,255,255,255, +144,235,16,221,169,0,164,218,67,102,67,18,48,63,255,207,240,255,255,255, +255,196,60,17,145,56,134,204,241,226,158,8,200,156,42,220,9,158,65,196,34, +92,42,26,137,147,120,64,74,37,196,54,100,49,35,188,36,5,68,184,208,113,187, +194,80,212,75,146,1,73,196,54,100,49,35,188,38,57,37,56,240,0,0,0,0,0,0,0, +0,32,235,248,68,48,156,2,24,94,24,0,243,119,10,139,144,123,242,3,102,238, +18,239,115,72,217,160,11,223,16,23,55,113,241,32,145,36,57,188,18,16,102,3, +5,120,35,34,89,32,15,180,152,173,127,0,218,235,88,0,228,180,227,200,0,0, +248,127,0,0,0,0,197,107,240,64,6,77,220,24,38,78,74,113,67,77,130,4,12,155, +185,52,48,156,148,226,134,155,4,10,194,96,129,132,166,238,45,194,2,201,193, +130,100,228,167,20,52,216,32,113,41,187,139,112,128,178,114,104,97,57,41, +197,13,54,8,32,48,216,32,130,195,224,130,19,97,124,134,23,6,0,57,137,62,77, +12,38,12,0,179,18,124,45,22,190,96,128,141,176,134,28,98,79,180,152,139, +218,45,124,193,1,27,97,16,32,196,159,24,230,204,246,194,40,89,137,62,210, +98,103,92,217,158,216,70,7,49,39,193,130,100,182,17,194,140,73,246,147,16, +250,9,146,216,72,6,49,39,193,131,22,194,72,73,137,62,210,98,31,65,139,97, +40,32,196,159,14,234,70,86,194,88,89,137,62,210,98,63,93,72,202,216,76,10, +49,39,198,33,180,153,37,108,38,134,152,147,237,38,38,117,13,164,201,43,97, +56,40,196,159,36,65,57,163,149,176,158,26,98,79,180,152,165,210,9,205,28, +173,133,0,243,18,124,98,22,180,72,130,115,71,43,97,68,72,196,159,105,49,51, +168,90,209,34,9,205,28,173,133,33,19,18,124,154,24,76,185,164,227,138,89, +18,119,0,7,145,39,201,161,132,188,64,124,137,62,49,11,90,36,65,57,163,149, +210,166,37,34,79,180,152,153,212,45,104,145,4,230,142,87,74,160,84,137,62, +72,130,115,71,43,171,234,134,200,147,237,38,41,116,130,115,71,43,171,235,5, +72,147,227,16,218,76,146,186,254,184,108,137,62,210,98,103,80,218,76,146, +186,254,192,68,137,62,29,212,140,174,207,178,23,34,79,180,152,143,215,82, +50,187,62,208,60,137,62,12,19,37,210,182,21,34,79,180,152,135,208,76,151, +74,224,68,137,62,49,205,153,238,175,186,23,34,79,180,152,153,215,54,103, +186,190,240,92,137,62,22,139,95,48,64,70,235,251,225,210,36,251,73,136,189, +162,215,204,16,17,186,255,2,14,98,79,152,32,35,108,48,64,242,36,249,130,2, +55,75,6,212,224,72,200,51,128,114,108,28,100,128,0,0,0,0,0,0,0,12,110,127, +48,98,115,249,201,117,243,249,195,21,159,206,38,47,63,156,86,8,75,144,94, +82,1,38,73,79,208,67,95,233,1,6,128,14,79,129,186,40,249,18,149,182,207, +144,200,155,188,248,204,105,184,207,142,199,137,175,201,0,159,72,10,5,21, +221,10,120,74,129,124,36,98,232,228,74,81,62,160,20,10,107,186,21,114,32, +105,137,194,70,46,142,68,165,19,235,1,64,170,187,161,119,34,66,146,36,104, +137,194,70,46,142,68,165,19,236,1,64,174,187,161,95,37,134,204,23,225,35, +23,71,34,82,137,246,128,160,89,93,208,167,147,195,201,194,70,46,142,68,165, +19,238,1,64,182,187,161,71,105,20,19,177,139,163,145,41,68,16,7,6,15,82,70, +72,115,96,0,2,234,32,0,0,0,0,91,60,165,195,201,194,8,134,149,216,162,0,192, +41,225,8,2,48,177,36,1,149,13,196,15,0,200,209,97,199,128,99,32,176,195, +192,113,57,143,0,167,133,32,230,80,28,202,139,175,238,2,48,189,192,20,1, +119,80,87,193,186,129,89,56,72,197,209,200,193,185,35,23,71,109,13,219,36, +98,232,237,156,13,26,208,211,14,102,19,87,137,91,95,128,0,10,96,24,92,0,0, +83,2,53,56,0,0,165,3,28,204,160,160,226,100,226,200,211,76,241,240,0,1,102, +8,22,75,64,137,73,20,230,105,133,7,19,39,22,70,154,103,143,128,0,11,48,20, +28,76,156,113,75,34,78,62,0,0,45,3,103,31,0,0,22,65,44,57,137,62,33,179, +216,162,152,192,131,18,124,162,27,61,138,41,108,32,196,159,16,217,232,235, +81,76,104,73,137,62,81,13,158,142,181,20,184,16,98,79,136,108,244,244,168, +166,56,36,196,159,40,134,207,79,74,138,93,10,49,39,194,173,192,158,158,149, +20,188,20,98,79,133,91,129,61,109,74,41,124,30,68,159,16,217,236,83,108,96, +68,137,62,81,13,158,197,54,182,17,34,79,136,108,244,117,169,182,52,38,68, +159,40,134,207,71,90,155,92,8,145,39,196,54,122,122,84,219,28,19,34,79,148, +67,103,167,165,77,174,133,72,147,225,86,224,79,79,74,155,94,10,145,39,194, +173,192,158,182,165,54,190,206,25,212,35,208,226,100,150,211,201,29,162,44, +140,35,103,0,0,3,192,252,0,0,0,0,206,25,228,35,208,226,100,150,211,201,29, +162,44,140,35,103,0,0,3,192,252,0,0,0,0,206,25,244,35,208,226,100,150,211, +201,29,162,44,140,35,103,0,0,3,192,252,0,0,0,0,206,26,4,35,208,226,100,150, +211,201,29,162,44,140,35,103,0,0,0,1,0,0,0,0,0,206,26,20,35,208,226,100, +150,211,201,29,162,44,140,35,103,0,0,0,1,0,0,0,0,0,206,26,36,35,208,226, +100,150,211,201,29,162,44,140,35,103,0,0,0,65,0,0,0,0,0,206,26,52,35,208, +226,100,150,211,201,29,162,44,140,35,103,0,0,0,65,0,0,0,0,0,206,26,68,35, +208,226,100,150,211,201,29,162,44,140,35,103,0,0,0,65,0,0,0,0,0,206,26,84, +35,208,226,100,150,211,201,29,162,44,140,35,103,0,0,0,129,0,0,0,0,0,195, +154,99,16,38,36,0,251,68,117,179,216,162,128,68,72,1,241,13,158,197,20,150, +25,18,0,125,162,58,217,232,235,117,100,162,136,25,18,0,125,162,58,217,232, +235,116,36,162,145,2,226,64,15,136,108,244,117,186,178,81,73,129,113,32,7, +196,54,122,58,221,9,40,165,64,200,144,3,237,17,214,207,79,75,171,37,20,80, +200,144,3,237,17,214,207,79,75,161,37,20,138,23,18,0,124,67,103,167,165, +213,146,138,77,11,137,0,62,33,179,211,210,232,73,69,42,133,196,128,31,10, +183,2,125,89,40,163,5,196,128,31,10,183,2,125,9,40,164,96,200,144,3,224, +221,64,172,157,89,40,163,134,68,128,31,6,234,5,100,232,73,69,35,133,68,128, +31,104,142,182,125,89,40,180,0,168,144,3,237,17,214,207,161,37,22,144,19, +18,0,124,67,103,213,146,139,80,9,137,0,62,33,179,232,73,69,172,5,90,40,153, +59,68,117,179,216,166,192,77,162,137,147,136,108,246,41,180,176,219,69,19, +39,104,142,182,122,58,221,89,41,178,6,218,40,153,59,68,117,179,209,214,232, +73,77,162,6,90,40,153,56,134,207,71,91,171,37,54,152,25,104,162,100,226,27, +61,29,110,132,148,218,160,109,162,137,147,180,71,91,61,61,46,172,148,217, +67,109,20,76,157,162,58,217,233,233,116,36,166,209,67,45,20,76,156,67,103, +167,165,213,146,155,77,12,180,81,50,113,13,158,158,151,66,74,109,84,50,209, +68,201,194,173,192,159,86,74,108,193,150,138,38,78,21,110,4,250,18,83,104, +193,182,138,38,78,13,212,10,201,213,146,155,56,109,162,137,147,131,117,2, +178,116,36,166,209,194,237,20,76,157,162,58,217,245,100,167,16,2,237,20,76, +157,162,58,217,244,36,167,18,2,173,20,76,156,67,103,213,146,156,80,10,180, +81,50,113,13,159,66,74,113,97,175,221,48,216,110,64,4,42,22,189,179,0,196, +133,0,185,80,32,28,78,99,193,18,80,36,4,19,159,141,172,0,178,90,4,74,73,0, +22,209,68,201,187,129,4,2,8,3,132,64,60,36,0,171,240,84,6,149,113,72,176, +157,91,116,116,32,88,181,129,32,11,42,218,221,131,234,219,165,1,8,187,152, +255,188,231,235,248,47,86,227,105,18,2,56,175,185,255,244,17,91,40,110,173, +198,209,208,36,7,188,189,179,240,238,82,97,80,93,122,32,125,144,132,160,12, +22,162,42,7,236,161,25,232,237,105,64,158,160,230,63,205,59,127,102,11,217, +66,51,210,129,61,65,236,127,154,118,254,205,171,197,34,168,48,6,90,194,1,0, +39,75,88,72,8,9,33,186,194,80,64,76,13,214,19,2,130,96,110,150,189,0,65,6, +51,214,20,128,65,17,11,214,19,130,137,121,211,210,211,144,6,39,75,88,80,0, +201,119,235,10,8,41,86,231,71,88,80,129,79,135,186,122,133,224,34,25,69, +234,80,3,91,141,172,40,96,139,113,180,181,133,36,21,110,54,142,134,176,165, +1,176,23,213,47,0,216,134,234,215,128,111,117,181,232,128,209,3,70,230,107, +64,5,139,168,209,235,10,32,36,144,102,235,136,3,146,27,172,40,160,146,132, +103,172,40,192,115,3,117,133,28,22,113,163,69,172,41,103,1,66,188,17,145, +52,168,4,202,113,67,76,130,227,76,194,13,240,108,0,0,83,224,0,2,193,0,104, +146,84,97,48,0,1,94,192,56,169,24,145,179,192,0,5,112,8,56,16,32,128,56,18, +52,125,230,86,147,190,140,28,50,21,13,39,31,23,60,145,158,57,12,141,47,129, +6,155,194,188,24,49,39,199,89,188,124,92,242,70,120,224,201,33,69,15,155, +163,201,68,14,49,39,199,197,211,116,240,242,113,197,232,18,180,254,36,3,17, +46,18,243,35,100,128,172,156,178,70,163,154,76,34,248,146,164,108,248,75, +204,141,146,28,217,115,137,27,95,27,241,173,236,162,160,224,200,2,206,9, +113,13,148,192,209,18,22,164,146,37,193,57,162,4,249,39,196,128,24,2,178, +66,213,136,68,201,16,77,209,131,31,192,242,88,96,92,191,151,34,100,136,38, +232,255,252,92,221,199,197,12,68,209,82,66,212,11,155,185,41,197,13,55,38, +3,66,213,47,135,254,72,12,162,99,133,116,112,0,1,72,66,14,16,16,50,37,202, +160,150,154,66,14,20,8,57,192,28,24,80,113,50,113,100,105,166,120,248,0,0, +179,1,65,196,201,199,20,178,36,227,224,0,2,208,54,113,240,0,1,100,11,181, +192,0,5,178,1,18,160,65,24,131,20,145,25,188,48,132,122,28,76,146,218,121, +35,180,69,145,132,108,224,0,0,120,31,128,0,0,0,25,188,56,132,122,28,76,146, +218,121,35,180,69,145,132,108,224,0,0,120,31,128,0,0,0,40,160,45,110,23,30, +176,33,184,0,0,183,32,29,235,2,27,199,23,0,0,23,4,51,120,129,8,244,56,153, +37,180,242,71,104,139,35,8,217,192,0,0,240,63,0,0,0,0,51,120,145,8,244,56, +153,37,180,242,71,104,139,35,8,217,192,0,0,0,64,0,0,0,0,51,120,161,8,244, +56,153,37,180,242,71,104,139,35,8,217,192,0,0,0,64,0,0,0,0,51,120,177,8, +244,56,153,37,180,242,71,104,139,35,8,217,192,0,0,16,64,0,0,0,0,51,120,193, +8,244,56,153,37,180,242,71,104,139,35,8,217,192,0,0,16,64,0,0,0,0,51,120, +209,8,244,56,153,37,180,242,71,104,139,35,8,217,192,0,0,16,64,0,0,0,0,51, +120,225,8,244,56,153,37,180,242,71,104,139,35,8,217,192,0,0,32,64,0,0,0,0, +32,227,194,0,97,57,162,4,246,104,5,34,92,35,68,225,161,166,220,16,16,137, +112,52,41,73,29,185,1,65,196,201,197,145,166,153,246,72,3,137,204,120,34, +74,8,199,1,67,17,162,112,201,84,128,97,144,78,25,42,16,131,169,1,205,66,8, +35,68,225,161,166,239,128,0,10,192,64,196,104,156,50,96,0,2,172,73,240,117, +96,57,170,97,4,104,156,52,52,221,240,0,1,82,1,74,9,129,125,240,0,1,82,32, +148,25,174,137,58,23,51,190,0,0,42,69,64,195,32,156,50,96,0,2,160,81,238,2, +3,107,173,218,3,192, +}; +#else +#error invalid endianness defines +#endif +#endif /* DUK_USE_ROM_OBJECTS */ + +/* automatic undefs */ +#undef DUK__REFCINIT +#line 1 "duk_error_macros.c" +/* + * Error and fatal handling. + */ + +/* #include duk_internal.h -> already included */ + +#define DUK__ERRFMT_BUFSIZE 256 /* size for formatting buffers */ + +#if defined(DUK_USE_VERBOSE_ERRORS) + +DUK_INTERNAL DUK_COLD void duk_err_handle_error_fmt(duk_hthread *thr, const char *filename, duk_uint_t line_and_code, const char *fmt, ...) { + va_list ap; + char msg[DUK__ERRFMT_BUFSIZE]; + va_start(ap, fmt); + (void) DUK_VSNPRINTF(msg, sizeof(msg), fmt, ap); + msg[sizeof(msg) - 1] = (char) 0; + duk_err_create_and_throw(thr, (duk_errcode_t) (line_and_code >> 24), msg, filename, (duk_int_t) (line_and_code & 0x00ffffffL)); + va_end(ap); /* dead code, but ensures portability (see Linux man page notes) */ +} + +DUK_INTERNAL DUK_COLD void duk_err_handle_error(duk_hthread *thr, const char *filename, duk_uint_t line_and_code, const char *msg) { + duk_err_create_and_throw(thr, (duk_errcode_t) (line_and_code >> 24), msg, filename, (duk_int_t) (line_and_code & 0x00ffffffL)); +} + +#else /* DUK_USE_VERBOSE_ERRORS */ + +DUK_INTERNAL DUK_COLD void duk_err_handle_error(duk_hthread *thr, duk_errcode_t code) { + duk_err_create_and_throw(thr, code); +} + +#endif /* DUK_USE_VERBOSE_ERRORS */ + +/* + * Error throwing helpers + */ + +#if defined(DUK_USE_VERBOSE_ERRORS) +#if defined(DUK_USE_PARANOID_ERRORS) +DUK_INTERNAL DUK_COLD void duk_err_require_type_index(duk_hthread *thr, const char *filename, duk_int_t linenumber, duk_idx_t idx, const char *expect_name) { + DUK_ERROR_RAW_FMT3(thr, filename, linenumber, DUK_ERR_TYPE_ERROR, "%s required, found %s (stack index %ld)", + expect_name, duk_get_type_name(thr, idx), (long) idx); +} +#else +DUK_INTERNAL DUK_COLD void duk_err_require_type_index(duk_hthread *thr, const char *filename, duk_int_t linenumber, duk_idx_t idx, const char *expect_name) { + DUK_ERROR_RAW_FMT3(thr, filename, linenumber, DUK_ERR_TYPE_ERROR, "%s required, found %s (stack index %ld)", + expect_name, duk_push_string_readable(thr, idx), (long) idx); +} +#endif +DUK_INTERNAL DUK_COLD void duk_err_error_internal(duk_hthread *thr, const char *filename, duk_int_t linenumber) { + DUK_ERROR_RAW(thr, filename, linenumber, DUK_ERR_ERROR, DUK_STR_INTERNAL_ERROR); +} +DUK_INTERNAL DUK_COLD void duk_err_error_alloc_failed(duk_hthread *thr, const char *filename, duk_int_t linenumber) { + DUK_ERROR_RAW(thr, filename, linenumber, DUK_ERR_ERROR, DUK_STR_ALLOC_FAILED); +} +DUK_INTERNAL DUK_COLD void duk_err_error(duk_hthread *thr, const char *filename, duk_int_t linenumber, const char *message) { + DUK_ERROR_RAW(thr, filename, linenumber, DUK_ERR_ERROR, message); +} +DUK_INTERNAL DUK_COLD void duk_err_range(duk_hthread *thr, const char *filename, duk_int_t linenumber, const char *message) { + DUK_ERROR_RAW(thr, filename, linenumber, DUK_ERR_RANGE_ERROR, message); +} +DUK_INTERNAL DUK_COLD void duk_err_range_index(duk_hthread *thr, const char *filename, duk_int_t linenumber, duk_idx_t idx) { + DUK_ERROR_RAW_FMT1(thr, filename, linenumber, DUK_ERR_RANGE_ERROR, "invalid stack index %ld", (long) (idx)); +} +DUK_INTERNAL DUK_COLD void duk_err_range_push_beyond(duk_hthread *thr, const char *filename, duk_int_t linenumber) { + DUK_ERROR_RAW(thr, filename, linenumber, DUK_ERR_RANGE_ERROR, DUK_STR_PUSH_BEYOND_ALLOC_STACK); +} +DUK_INTERNAL DUK_COLD void duk_err_type_invalid_args(duk_hthread *thr, const char *filename, duk_int_t linenumber) { + DUK_ERROR_RAW(thr, filename, linenumber, DUK_ERR_TYPE_ERROR, DUK_STR_INVALID_ARGS); +} +DUK_INTERNAL DUK_COLD void duk_err_type_invalid_state(duk_hthread *thr, const char *filename, duk_int_t linenumber) { + DUK_ERROR_RAW(thr, filename, linenumber, DUK_ERR_TYPE_ERROR, DUK_STR_INVALID_STATE); +} +DUK_INTERNAL DUK_COLD void duk_err_type_invalid_trap_result(duk_hthread *thr, const char *filename, duk_int_t linenumber) { + DUK_ERROR_RAW(thr, filename, linenumber, DUK_ERR_TYPE_ERROR, DUK_STR_INVALID_TRAP_RESULT); +} +#else +/* The file/line arguments are NULL and 0, they're ignored by DUK_ERROR_RAW() + * when non-verbose errors are used. + */ + +DUK_NORETURN(DUK_LOCAL_DECL void duk__err_shared(duk_hthread *thr, duk_errcode_t code)); +DUK_LOCAL void duk__err_shared(duk_hthread *thr, duk_errcode_t code) { + DUK_ERROR_RAW(thr, NULL, 0, code, NULL); +} +DUK_INTERNAL DUK_COLD void duk_err_error(duk_hthread *thr) { + duk__err_shared(thr, DUK_ERR_ERROR); +} +DUK_INTERNAL DUK_COLD void duk_err_range(duk_hthread *thr) { + duk__err_shared(thr, DUK_ERR_RANGE_ERROR); +} +DUK_INTERNAL DUK_COLD void duk_err_eval(duk_hthread *thr) { + duk__err_shared(thr, DUK_ERR_EVAL_ERROR); +} +DUK_INTERNAL DUK_COLD void duk_err_reference(duk_hthread *thr) { + duk__err_shared(thr, DUK_ERR_REFERENCE_ERROR); +} +DUK_INTERNAL DUK_COLD void duk_err_syntax(duk_hthread *thr) { + duk__err_shared(thr, DUK_ERR_SYNTAX_ERROR); +} +DUK_INTERNAL DUK_COLD void duk_err_type(duk_hthread *thr) { + duk__err_shared(thr, DUK_ERR_TYPE_ERROR); +} +DUK_INTERNAL DUK_COLD void duk_err_uri(duk_hthread *thr) { + duk__err_shared(thr, DUK_ERR_URI_ERROR); +} +#endif + +/* + * Default fatal error handler + */ + +DUK_INTERNAL DUK_COLD void duk_default_fatal_handler(void *udata, const char *msg) { + DUK_UNREF(udata); + DUK_UNREF(msg); + + msg = msg ? msg : "NULL"; + +#if defined(DUK_USE_FATAL_HANDLER) + /* duk_config.h provided a custom default fatal handler. */ + DUK_D(DUK_DPRINT("custom default fatal error handler called: %s", msg)); + DUK_USE_FATAL_HANDLER(udata, msg); +#elif defined(DUK_USE_CPP_EXCEPTIONS) + /* With C++ use a duk_fatal_exception which user code can catch in + * a natural way. + */ + DUK_D(DUK_DPRINT("built-in default C++ fatal error handler called: %s", msg)); + throw duk_fatal_exception(msg); +#else + /* Default behavior is to abort() on error. There's no printout + * which makes this awkward, so it's always recommended to use an + * explicit fatal error handler. + * + * ==================================================================== + * NOTE: If you are seeing this, you are most likely dealing with an + * uncaught error. You should provide a fatal error handler in Duktape + * heap creation, and should consider using a protected call as your + * first call into an empty Duktape context to properly handle errors. + * See: + * - http://duktape.org/guide.html#error-handling + * - http://wiki.duktape.org/HowtoFatalErrors.html + * - http://duktape.org/api.html#taglist-protected + * ==================================================================== + */ + DUK_D(DUK_DPRINT("built-in default fatal error handler called: %s", msg)); + DUK_ABORT(); +#endif + + DUK_D(DUK_DPRINT("fatal error handler returned, enter forever loop")); + for (;;) { + /* Loop forever to ensure we don't return. */ + } +} + +/* automatic undefs */ +#undef DUK__ERRFMT_BUFSIZE +#line 1 "duk_unicode_support.c" +/* + * Various Unicode help functions for character classification predicates, + * case conversion, decoding, etc. + */ + +/* #include duk_internal.h -> already included */ + +/* + * Fast path tables + */ + +#if defined(DUK_USE_IDCHAR_FASTPATH) +DUK_INTERNAL const duk_int8_t duk_is_idchar_tab[128] = { + /* 0: not IdentifierStart or IdentifierPart + * 1: IdentifierStart and IdentifierPart + * -1: IdentifierPart only + */ + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* 0x00...0x0f */ + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* 0x10...0x1f */ + 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* 0x20...0x2f */ + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 0, 0, 0, 0, 0, 0, /* 0x30...0x3f */ + 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, /* 0x40...0x4f */ + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 1, /* 0x50...0x5f */ + 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, /* 0x60...0x6f */ + 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0 /* 0x70...0x7f */ +}; +#endif + +/* + * XUTF-8 and CESU-8 encoding/decoding + */ + +DUK_INTERNAL duk_small_int_t duk_unicode_get_xutf8_length(duk_ucodepoint_t cp) { + duk_uint_fast32_t x = (duk_uint_fast32_t) cp; + if (x < 0x80UL) { + /* 7 bits */ + return 1; + } else if (x < 0x800UL) { + /* 11 bits */ + return 2; + } else if (x < 0x10000UL) { + /* 16 bits */ + return 3; + } else if (x < 0x200000UL) { + /* 21 bits */ + return 4; + } else if (x < 0x4000000UL) { + /* 26 bits */ + return 5; + } else if (x < (duk_ucodepoint_t) 0x80000000UL) { + /* 31 bits */ + return 6; + } else { + /* 36 bits */ + return 7; + } +} + +#if defined(DUK_USE_ASSERTIONS) +DUK_INTERNAL duk_small_int_t duk_unicode_get_cesu8_length(duk_ucodepoint_t cp) { + duk_uint_fast32_t x = (duk_uint_fast32_t) cp; + if (x < 0x80UL) { + /* 7 bits */ + return 1; + } else if (x < 0x800UL) { + /* 11 bits */ + return 2; + } else if (x < 0x10000UL) { + /* 16 bits */ + return 3; + } else { + /* Encoded as surrogate pair, each encoding to 3 bytes for + * 6 bytes total. Codepoints above U+10FFFF encode as 6 bytes + * too, see duk_unicode_encode_cesu8(). + */ + return 3 + 3; + } +} +#endif /* DUK_USE_ASSERTIONS */ + +DUK_INTERNAL const duk_uint8_t duk_unicode_xutf8_markers[7] = { + 0x00, 0xc0, 0xe0, 0xf0, 0xf8, 0xfc, 0xfe +}; + +/* Encode to extended UTF-8; 'out' must have space for at least + * DUK_UNICODE_MAX_XUTF8_LENGTH bytes. Allows encoding of any + * 32-bit (unsigned) codepoint. + */ +DUK_INTERNAL duk_small_int_t duk_unicode_encode_xutf8(duk_ucodepoint_t cp, duk_uint8_t *out) { + duk_uint_fast32_t x = (duk_uint_fast32_t) cp; + duk_small_int_t len; + duk_uint8_t marker; + duk_small_int_t i; + + len = duk_unicode_get_xutf8_length(cp); + DUK_ASSERT(len > 0); + + marker = duk_unicode_xutf8_markers[len - 1]; /* 64-bit OK because always >= 0 */ + + i = len; + DUK_ASSERT(i > 0); + do { + i--; + if (i > 0) { + out[i] = (duk_uint8_t) (0x80 + (x & 0x3f)); + x >>= 6; + } else { + /* Note: masking of 'x' is not necessary because of + * range check and shifting -> no bits overlapping + * the marker should be set. + */ + out[0] = (duk_uint8_t) (marker + x); + } + } while (i > 0); + + return len; +} + +/* Encode to CESU-8; 'out' must have space for at least + * DUK_UNICODE_MAX_CESU8_LENGTH bytes; codepoints above U+10FFFF + * will encode to garbage but won't overwrite the output buffer. + */ +DUK_INTERNAL duk_small_int_t duk_unicode_encode_cesu8(duk_ucodepoint_t cp, duk_uint8_t *out) { + duk_uint_fast32_t x = (duk_uint_fast32_t) cp; + duk_small_int_t len; + + if (x < 0x80UL) { + out[0] = (duk_uint8_t) x; + len = 1; + } else if (x < 0x800UL) { + out[0] = (duk_uint8_t) (0xc0 + ((x >> 6) & 0x1f)); + out[1] = (duk_uint8_t) (0x80 + (x & 0x3f)); + len = 2; + } else if (x < 0x10000UL) { + /* surrogate pairs get encoded here */ + out[0] = (duk_uint8_t) (0xe0 + ((x >> 12) & 0x0f)); + out[1] = (duk_uint8_t) (0x80 + ((x >> 6) & 0x3f)); + out[2] = (duk_uint8_t) (0x80 + (x & 0x3f)); + len = 3; + } else { + /* + * Unicode codepoints above U+FFFF are encoded as surrogate + * pairs here. This ensures that all CESU-8 codepoints are + * 16-bit values as expected in ECMAScript. The surrogate + * pairs always get a 3-byte encoding (each) in CESU-8. + * See: http://en.wikipedia.org/wiki/Surrogate_pair + * + * 20-bit codepoint, 10 bits (A and B) per surrogate pair: + * + * x = 0b00000000 0000AAAA AAAAAABB BBBBBBBB + * sp1 = 0b110110AA AAAAAAAA (0xd800 + ((x >> 10) & 0x3ff)) + * sp2 = 0b110111BB BBBBBBBB (0xdc00 + (x & 0x3ff)) + * + * Encoded into CESU-8: + * + * sp1 -> 0b11101101 (0xe0 + ((sp1 >> 12) & 0x0f)) + * -> 0b1010AAAA (0x80 + ((sp1 >> 6) & 0x3f)) + * -> 0b10AAAAAA (0x80 + (sp1 & 0x3f)) + * sp2 -> 0b11101101 (0xe0 + ((sp2 >> 12) & 0x0f)) + * -> 0b1011BBBB (0x80 + ((sp2 >> 6) & 0x3f)) + * -> 0b10BBBBBB (0x80 + (sp2 & 0x3f)) + * + * Note that 0x10000 must be subtracted first. The code below + * avoids the sp1, sp2 temporaries which saves around 20 bytes + * of code. + */ + + x -= 0x10000UL; + + out[0] = (duk_uint8_t) (0xed); + out[1] = (duk_uint8_t) (0xa0 + ((x >> 16) & 0x0f)); + out[2] = (duk_uint8_t) (0x80 + ((x >> 10) & 0x3f)); + out[3] = (duk_uint8_t) (0xed); + out[4] = (duk_uint8_t) (0xb0 + ((x >> 6) & 0x0f)); + out[5] = (duk_uint8_t) (0x80 + (x & 0x3f)); + len = 6; + } + + return len; +} + +/* Decode helper. Return zero on error. */ +DUK_INTERNAL duk_small_int_t duk_unicode_decode_xutf8(duk_hthread *thr, const duk_uint8_t **ptr, const duk_uint8_t *ptr_start, const duk_uint8_t *ptr_end, duk_ucodepoint_t *out_cp) { + const duk_uint8_t *p; + duk_uint32_t res; + duk_uint_fast8_t ch; + duk_small_int_t n; + + DUK_UNREF(thr); + + p = *ptr; + if (p < ptr_start || p >= ptr_end) { + goto fail; + } + + /* + * UTF-8 decoder which accepts longer than standard byte sequences. + * This allows full 32-bit code points to be used. + */ + + ch = (duk_uint_fast8_t) (*p++); + if (ch < 0x80) { + /* 0xxx xxxx [7 bits] */ + res = (duk_uint32_t) (ch & 0x7f); + n = 0; + } else if (ch < 0xc0) { + /* 10xx xxxx -> invalid */ + goto fail; + } else if (ch < 0xe0) { + /* 110x xxxx 10xx xxxx [11 bits] */ + res = (duk_uint32_t) (ch & 0x1f); + n = 1; + } else if (ch < 0xf0) { + /* 1110 xxxx 10xx xxxx 10xx xxxx [16 bits] */ + res = (duk_uint32_t) (ch & 0x0f); + n = 2; + } else if (ch < 0xf8) { + /* 1111 0xxx 10xx xxxx 10xx xxxx 10xx xxxx [21 bits] */ + res = (duk_uint32_t) (ch & 0x07); + n = 3; + } else if (ch < 0xfc) { + /* 1111 10xx 10xx xxxx 10xx xxxx 10xx xxxx 10xx xxxx [26 bits] */ + res = (duk_uint32_t) (ch & 0x03); + n = 4; + } else if (ch < 0xfe) { + /* 1111 110x 10xx xxxx 10xx xxxx 10xx xxxx 10xx xxxx 10xx xxxx [31 bits] */ + res = (duk_uint32_t) (ch & 0x01); + n = 5; + } else if (ch < 0xff) { + /* 1111 1110 10xx xxxx 10xx xxxx 10xx xxxx 10xx xxxx 10xx xxxx 10xx xxxx [36 bits] */ + res = (duk_uint32_t) (0); + n = 6; + } else { + /* 8-byte format could be: + * 1111 1111 10xx xxxx 10xx xxxx 10xx xxxx 10xx xxxx 10xx xxxx 10xx xxxx 10xx xxxx [41 bits] + * + * However, this format would not have a zero bit following the + * leading one bits and would not allow 0xFF to be used as an + * "invalid xutf-8" marker for internal keys. Further, 8-byte + * encodings (up to 41 bit code points) are not currently needed. + */ + goto fail; + } + + DUK_ASSERT(p >= ptr_start); /* verified at beginning */ + if (p + n > ptr_end) { + /* check pointer at end */ + goto fail; + } + + while (n > 0) { + DUK_ASSERT(p >= ptr_start && p < ptr_end); + ch = (duk_uint_fast8_t) (*p++); +#if 0 + if (ch & 0xc0 != 0x80) { + /* not a continuation byte */ + p--; + *ptr = p; + *out_cp = DUK_UNICODE_CP_REPLACEMENT_CHARACTER; + return 1; + } +#endif + res = (res << 6) + (duk_uint32_t) (ch & 0x3f); + n--; + } + + *ptr = p; + *out_cp = res; + return 1; + + fail: + return 0; +} + +/* used by e.g. duk_regexp_executor.c, string built-ins */ +DUK_INTERNAL duk_ucodepoint_t duk_unicode_decode_xutf8_checked(duk_hthread *thr, const duk_uint8_t **ptr, const duk_uint8_t *ptr_start, const duk_uint8_t *ptr_end) { + duk_ucodepoint_t cp; + + if (duk_unicode_decode_xutf8(thr, ptr, ptr_start, ptr_end, &cp)) { + return cp; + } + DUK_ERROR_INTERNAL(thr); + DUK_WO_NORETURN(return 0;); +} + +/* Compute (extended) utf-8 length without codepoint encoding validation, + * used for string interning. + * + * NOTE: This algorithm is performance critical, more so than string hashing + * in some cases. It is needed when interning a string and needs to scan + * every byte of the string with no skipping. Having an ASCII fast path + * is useful if possible in the algorithm. The current algorithms were + * chosen from several variants, based on x64 gcc -O2 testing. See: + * https://github.com/svaarala/duktape/pull/422 + * + * NOTE: must match tools/dukutil.py:duk_unicode_unvalidated_utf8_length(). + */ + +#if defined(DUK_USE_PREFER_SIZE) +/* Small variant; roughly 150 bytes smaller than the fast variant. */ +DUK_INTERNAL duk_size_t duk_unicode_unvalidated_utf8_length(const duk_uint8_t *data, duk_size_t blen) { + const duk_uint8_t *p; + const duk_uint8_t *p_end; + duk_size_t ncont; + duk_size_t clen; + + p = data; + p_end = data + blen; + ncont = 0; + while (p != p_end) { + duk_uint8_t x; + x = *p++; + if (DUK_UNLIKELY(x >= 0x80 && x <= 0xbf)) { + ncont++; + } + } + + DUK_ASSERT(ncont <= blen); + clen = blen - ncont; + DUK_ASSERT(clen <= blen); + return clen; +} +#else /* DUK_USE_PREFER_SIZE */ +/* This seems like a good overall approach. Fast path for ASCII in 4 byte + * blocks. + */ +DUK_INTERNAL duk_size_t duk_unicode_unvalidated_utf8_length(const duk_uint8_t *data, duk_size_t blen) { + const duk_uint8_t *p; + const duk_uint8_t *p_end; + const duk_uint32_t *p32_end; + const duk_uint32_t *p32; + duk_size_t ncont; + duk_size_t clen; + + ncont = 0; /* number of continuation (non-initial) bytes in [0x80,0xbf] */ + p = data; + p_end = data + blen; + if (blen < 16) { + goto skip_fastpath; + } + + /* Align 'p' to 4; the input data may have arbitrary alignment. + * End of string check not needed because blen >= 16. + */ + while (((duk_size_t) (const void *) p) & 0x03U) { + duk_uint8_t x; + x = *p++; + if (DUK_UNLIKELY(x >= 0x80 && x <= 0xbf)) { + ncont++; + } + } + + /* Full, aligned 4-byte reads. */ + p32_end = (const duk_uint32_t *) (const void *) (p + ((duk_size_t) (p_end - p) & (duk_size_t) (~0x03))); + p32 = (const duk_uint32_t *) (const void *) p; + while (p32 != (const duk_uint32_t *) p32_end) { + duk_uint32_t x; + x = *p32++; + if (DUK_LIKELY((x & 0x80808080UL) == 0)) { + ; /* ASCII fast path */ + } else { + /* Flip highest bit of each byte which changes + * the bit pattern 10xxxxxx into 00xxxxxx which + * allows an easy bit mask test. + */ + x ^= 0x80808080UL; + if (DUK_UNLIKELY(!(x & 0xc0000000UL))) { + ncont++; + } + if (DUK_UNLIKELY(!(x & 0x00c00000UL))) { + ncont++; + } + if (DUK_UNLIKELY(!(x & 0x0000c000UL))) { + ncont++; + } + if (DUK_UNLIKELY(!(x & 0x000000c0UL))) { + ncont++; + } + } + } + p = (const duk_uint8_t *) p32; + /* Fall through to handle the rest. */ + + skip_fastpath: + while (p != p_end) { + duk_uint8_t x; + x = *p++; + if (DUK_UNLIKELY(x >= 0x80 && x <= 0xbf)) { + ncont++; + } + } + + DUK_ASSERT(ncont <= blen); + clen = blen - ncont; + DUK_ASSERT(clen <= blen); + return clen; +} +#endif /* DUK_USE_PREFER_SIZE */ + +/* Check whether a string is UTF-8 compatible or not. */ +DUK_INTERNAL duk_bool_t duk_unicode_is_utf8_compatible(const duk_uint8_t *buf, duk_size_t len) { + duk_size_t i = 0; +#if !defined(DUK_USE_PREFER_SIZE) + duk_size_t len_safe; +#endif + + /* Many practical strings are ASCII only, so use a fast path check + * to check chunks of bytes at once with minimal branch cost. + */ +#if !defined(DUK_USE_PREFER_SIZE) + len_safe = len & ~0x03UL; + for (; i < len_safe; i += 4) { + duk_uint8_t t = buf[i] | buf[i + 1] | buf[i + 2] | buf[i + 3]; + if (DUK_UNLIKELY((t & 0x80U) != 0U)) { + /* At least one byte was outside 0x00-0x7f, break + * out to slow path (and remain there). + * + * XXX: We could also deal with the problem character + * and resume fast path later. + */ + break; + } + } +#endif + + for (; i < len;) { + duk_uint8_t t; + duk_size_t left; + duk_size_t ncont; + duk_uint32_t cp; + duk_uint32_t mincp; + + t = buf[i++]; + if (DUK_LIKELY((t & 0x80U) == 0U)) { + /* Fast path, ASCII. */ + continue; + } + + /* Non-ASCII start byte, slow path. + * + * 10xx xxxx -> continuation byte + * 110x xxxx + 1*CONT -> [0x80, 0x7ff] + * 1110 xxxx + 2*CONT -> [0x800, 0xffff], must reject [0xd800,0xdfff] + * 1111 0xxx + 3*CONT -> [0x10000, 0x10ffff] + */ + left = len - i; + if (t <= 0xdfU) { /* 1101 1111 = 0xdf */ + if (t <= 0xbfU) { /* 1011 1111 = 0xbf */ + return 0; + } + ncont = 1; + mincp = 0x80UL; + cp = t & 0x1fU; + } else if (t <= 0xefU) { /* 1110 1111 = 0xef */ + ncont = 2; + mincp = 0x800UL; + cp = t & 0x0fU; + } else if (t <= 0xf7U) { /* 1111 0111 = 0xf7 */ + ncont = 3; + mincp = 0x10000UL; + cp = t & 0x07U; + } else { + return 0; + } + if (left < ncont) { + return 0; + } + while (ncont > 0U) { + t = buf[i++]; + if ((t & 0xc0U) != 0x80U) { /* 10xx xxxx */ + return 0; + } + cp = (cp << 6) + (t & 0x3fU); + ncont--; + } + if (cp < mincp || cp > 0x10ffffUL || (cp >= 0xd800UL && cp <= 0xdfffUL)) { + return 0; + } + } + + return 1; +} + +/* + * Unicode range matcher + * + * Matches a codepoint against a packed bitstream of character ranges. + * Used for slow path Unicode matching. + */ + +/* Must match tools/extract_chars.py, generate_match_table3(). */ +DUK_LOCAL duk_uint32_t duk__uni_decode_value(duk_bitdecoder_ctx *bd_ctx) { + duk_uint32_t t; + + t = (duk_uint32_t) duk_bd_decode(bd_ctx, 4); + if (t <= 0x0eU) { + return t; + } + t = (duk_uint32_t) duk_bd_decode(bd_ctx, 8); + if (t <= 0xfdU) { + return t + 0x0f; + } + if (t == 0xfeU) { + t = (duk_uint32_t) duk_bd_decode(bd_ctx, 12); + return t + 0x0fU + 0xfeU; + } else { + t = (duk_uint32_t) duk_bd_decode(bd_ctx, 24); + return t + 0x0fU + 0xfeU + 0x1000UL; + } +} + +DUK_LOCAL duk_small_int_t duk__uni_range_match(const duk_uint8_t *unitab, duk_size_t unilen, duk_codepoint_t cp) { + duk_bitdecoder_ctx bd_ctx; + duk_codepoint_t prev_re; + + duk_memzero(&bd_ctx, sizeof(bd_ctx)); + bd_ctx.data = (const duk_uint8_t *) unitab; + bd_ctx.length = (duk_size_t) unilen; + + prev_re = 0; + for (;;) { + duk_codepoint_t r1, r2; + r1 = (duk_codepoint_t) duk__uni_decode_value(&bd_ctx); + if (r1 == 0) { + break; + } + r2 = (duk_codepoint_t) duk__uni_decode_value(&bd_ctx); + + r1 = prev_re + r1; + r2 = r1 + r2; + prev_re = r2; + + /* [r1,r2] is the range */ + + DUK_DDD(DUK_DDDPRINT("duk__uni_range_match: cp=%06lx range=[0x%06lx,0x%06lx]", + (unsigned long) cp, (unsigned long) r1, (unsigned long) r2)); + if (cp >= r1 && cp <= r2) { + return 1; + } + } + + return 0; +} + +/* + * "WhiteSpace" production check. + */ + +DUK_INTERNAL duk_small_int_t duk_unicode_is_whitespace(duk_codepoint_t cp) { + /* + * E5 Section 7.2 specifies six characters specifically as + * white space: + * + * 0009;;Cc;0;S;;;;;N;CHARACTER TABULATION;;;; + * 000B;;Cc;0;S;;;;;N;LINE TABULATION;;;; + * 000C;;Cc;0;WS;;;;;N;FORM FEED (FF);;;; + * 0020;SPACE;Zs;0;WS;;;;;N;;;;; + * 00A0;NO-BREAK SPACE;Zs;0;CS; 0020;;;;N;NON-BREAKING SPACE;;;; + * FEFF;ZERO WIDTH NO-BREAK SPACE;Cf;0;BN;;;;;N;BYTE ORDER MARK;;;; + * + * It also specifies any Unicode category 'Zs' characters as white + * space. These can be extracted with the "tools/extract_chars.py" script. + * Current result: + * + * RAW OUTPUT: + * =========== + * 0020;SPACE;Zs;0;WS;;;;;N;;;;; + * 00A0;NO-BREAK SPACE;Zs;0;CS; 0020;;;;N;NON-BREAKING SPACE;;;; + * 1680;OGHAM SPACE MARK;Zs;0;WS;;;;;N;;;;; + * 180E;MONGOLIAN VOWEL SEPARATOR;Zs;0;WS;;;;;N;;;;; + * 2000;EN QUAD;Zs;0;WS;2002;;;;N;;;;; + * 2001;EM QUAD;Zs;0;WS;2003;;;;N;;;;; + * 2002;EN SPACE;Zs;0;WS; 0020;;;;N;;;;; + * 2003;EM SPACE;Zs;0;WS; 0020;;;;N;;;;; + * 2004;THREE-PER-EM SPACE;Zs;0;WS; 0020;;;;N;;;;; + * 2005;FOUR-PER-EM SPACE;Zs;0;WS; 0020;;;;N;;;;; + * 2006;SIX-PER-EM SPACE;Zs;0;WS; 0020;;;;N;;;;; + * 2007;FIGURE SPACE;Zs;0;WS; 0020;;;;N;;;;; + * 2008;PUNCTUATION SPACE;Zs;0;WS; 0020;;;;N;;;;; + * 2009;THIN SPACE;Zs;0;WS; 0020;;;;N;;;;; + * 200A;HAIR SPACE;Zs;0;WS; 0020;;;;N;;;;; + * 202F;NARROW NO-BREAK SPACE;Zs;0;CS; 0020;;;;N;;;;; + * 205F;MEDIUM MATHEMATICAL SPACE;Zs;0;WS; 0020;;;;N;;;;; + * 3000;IDEOGRAPHIC SPACE;Zs;0;WS; 0020;;;;N;;;;; + * + * RANGES: + * ======= + * 0x0020 + * 0x00a0 + * 0x1680 + * 0x180e + * 0x2000 ... 0x200a + * 0x202f + * 0x205f + * 0x3000 + * + * A manual decoder (below) is probably most compact for this. + */ + + duk_uint_fast8_t lo; + duk_uint_fast32_t hi; + + /* cp == -1 (EOF) never matches and causes return value 0 */ + + lo = (duk_uint_fast8_t) (cp & 0xff); + hi = (duk_uint_fast32_t) (cp >> 8); /* does not fit into an uchar */ + + if (hi == 0x0000UL) { + if (lo == 0x09U || lo == 0x0bU || lo == 0x0cU || + lo == 0x20U || lo == 0xa0U) { + return 1; + } + } else if (hi == 0x0020UL) { + if (lo <= 0x0aU || lo == 0x2fU || lo == 0x5fU) { + return 1; + } + } else if (cp == 0x1680L || cp == 0x180eL || cp == 0x3000L || + cp == 0xfeffL) { + return 1; + } + + return 0; +} + +/* + * "LineTerminator" production check. + */ + +DUK_INTERNAL duk_small_int_t duk_unicode_is_line_terminator(duk_codepoint_t cp) { + /* + * E5 Section 7.3 + * + * A LineTerminatorSequence essentially merges sequences + * into a single line terminator. This must be handled by the caller. + */ + + if (cp == 0x000aL || cp == 0x000dL || cp == 0x2028L || + cp == 0x2029L) { + return 1; + } + + return 0; +} + +/* + * "IdentifierStart" production check. + */ + +DUK_INTERNAL duk_small_int_t duk_unicode_is_identifier_start(duk_codepoint_t cp) { + /* + * E5 Section 7.6: + * + * IdentifierStart: + * UnicodeLetter + * $ + * _ + * \ UnicodeEscapeSequence + * + * IdentifierStart production has one multi-character production: + * + * \ UnicodeEscapeSequence + * + * The '\' character is -not- matched by this function. Rather, the caller + * should decode the escape and then call this function to check whether the + * decoded character is acceptable (see discussion in E5 Section 7.6). + * + * The "UnicodeLetter" alternative of the production allows letters + * from various Unicode categories. These can be extracted with the + * "tools/extract_chars.py" script. + * + * Because the result has hundreds of Unicode codepoint ranges, matching + * for any values >= 0x80 are done using a very slow range-by-range scan + * and a packed range format. + * + * The ASCII portion (codepoints 0x00 ... 0x7f) is fast-pathed below because + * it matters the most. The ASCII related ranges of IdentifierStart are: + * + * 0x0041 ... 0x005a ['A' ... 'Z'] + * 0x0061 ... 0x007a ['a' ... 'z'] + * 0x0024 ['$'] + * 0x005f ['_'] + */ + + /* ASCII (and EOF) fast path -- quick accept and reject */ + if (cp <= 0x7fL) { +#if defined(DUK_USE_IDCHAR_FASTPATH) + return (cp >= 0) && (duk_is_idchar_tab[cp] > 0); +#else + if ((cp >= 'a' && cp <= 'z') || + (cp >= 'A' && cp <= 'Z') || + cp == '_' || cp == '$') { + return 1; + } + return 0; +#endif + } + + /* Non-ASCII slow path (range-by-range linear comparison), very slow */ + +#if defined(DUK_USE_SOURCE_NONBMP) + if (duk__uni_range_match(duk_unicode_ids_noa, + (duk_size_t) sizeof(duk_unicode_ids_noa), + (duk_codepoint_t) cp)) { + return 1; + } + return 0; +#else + if (cp < 0x10000L) { + if (duk__uni_range_match(duk_unicode_ids_noabmp, + sizeof(duk_unicode_ids_noabmp), + (duk_codepoint_t) cp)) { + return 1; + } + return 0; + } else { + /* without explicit non-BMP support, assume non-BMP characters + * are always accepted as identifier characters. + */ + return 1; + } +#endif +} + +/* + * "IdentifierPart" production check. + */ + +DUK_INTERNAL duk_small_int_t duk_unicode_is_identifier_part(duk_codepoint_t cp) { + /* + * E5 Section 7.6: + * + * IdentifierPart: + * IdentifierStart + * UnicodeCombiningMark + * UnicodeDigit + * UnicodeConnectorPunctuation + * [U+200C] + * [U+200D] + * + * IdentifierPart production has one multi-character production + * as part of its IdentifierStart alternative. The '\' character + * of an escape sequence is not matched here, see discussion in + * duk_unicode_is_identifier_start(). + * + * To match non-ASCII characters (codepoints >= 0x80), a very slow + * linear range-by-range scan is used. The codepoint is first compared + * to the IdentifierStart ranges, and if it doesn't match, then to a + * set consisting of code points in IdentifierPart but not in + * IdentifierStart. This is done to keep the unicode range data small, + * at the expense of speed. + * + * The ASCII fast path consists of: + * + * 0x0030 ... 0x0039 ['0' ... '9', UnicodeDigit] + * 0x0041 ... 0x005a ['A' ... 'Z', IdentifierStart] + * 0x0061 ... 0x007a ['a' ... 'z', IdentifierStart] + * 0x0024 ['$', IdentifierStart] + * 0x005f ['_', IdentifierStart and + * UnicodeConnectorPunctuation] + * + * UnicodeCombiningMark has no code points <= 0x7f. + * + * The matching code reuses the "identifier start" tables, and then + * consults a separate range set for characters in "identifier part" + * but not in "identifier start". These can be extracted with the + * "tools/extract_chars.py" script. + * + * UnicodeCombiningMark -> categories Mn, Mc + * UnicodeDigit -> categories Nd + * UnicodeConnectorPunctuation -> categories Pc + */ + + /* ASCII (and EOF) fast path -- quick accept and reject */ + if (cp <= 0x7fL) { +#if defined(DUK_USE_IDCHAR_FASTPATH) + return (cp >= 0) && (duk_is_idchar_tab[cp] != 0); +#else + if ((cp >= 'a' && cp <= 'z') || + (cp >= 'A' && cp <= 'Z') || + (cp >= '0' && cp <= '9') || + cp == '_' || cp == '$') { + return 1; + } + return 0; +#endif + } + + /* Non-ASCII slow path (range-by-range linear comparison), very slow */ + +#if defined(DUK_USE_SOURCE_NONBMP) + if (duk__uni_range_match(duk_unicode_ids_noa, + sizeof(duk_unicode_ids_noa), + (duk_codepoint_t) cp) || + duk__uni_range_match(duk_unicode_idp_m_ids_noa, + sizeof(duk_unicode_idp_m_ids_noa), + (duk_codepoint_t) cp)) { + return 1; + } + return 0; +#else + if (cp < 0x10000L) { + if (duk__uni_range_match(duk_unicode_ids_noabmp, + sizeof(duk_unicode_ids_noabmp), + (duk_codepoint_t) cp) || + duk__uni_range_match(duk_unicode_idp_m_ids_noabmp, + sizeof(duk_unicode_idp_m_ids_noabmp), + (duk_codepoint_t) cp)) { + return 1; + } + return 0; + } else { + /* without explicit non-BMP support, assume non-BMP characters + * are always accepted as identifier characters. + */ + return 1; + } +#endif +} + +/* + * Unicode letter check. + */ + +DUK_INTERNAL duk_small_int_t duk_unicode_is_letter(duk_codepoint_t cp) { + /* + * Unicode letter is now taken to be the categories: + * + * Lu, Ll, Lt, Lm, Lo + * + * (Not sure if this is exactly correct.) + * + * The ASCII fast path consists of: + * + * 0x0041 ... 0x005a ['A' ... 'Z'] + * 0x0061 ... 0x007a ['a' ... 'z'] + */ + + /* ASCII (and EOF) fast path -- quick accept and reject */ + if (cp <= 0x7fL) { + if ((cp >= 'a' && cp <= 'z') || + (cp >= 'A' && cp <= 'Z')) { + return 1; + } + return 0; + } + + /* Non-ASCII slow path (range-by-range linear comparison), very slow */ + +#if defined(DUK_USE_SOURCE_NONBMP) + if (duk__uni_range_match(duk_unicode_ids_noa, + sizeof(duk_unicode_ids_noa), + (duk_codepoint_t) cp) && + !duk__uni_range_match(duk_unicode_ids_m_let_noa, + sizeof(duk_unicode_ids_m_let_noa), + (duk_codepoint_t) cp)) { + return 1; + } + return 0; +#else + if (cp < 0x10000L) { + if (duk__uni_range_match(duk_unicode_ids_noabmp, + sizeof(duk_unicode_ids_noabmp), + (duk_codepoint_t) cp) && + !duk__uni_range_match(duk_unicode_ids_m_let_noabmp, + sizeof(duk_unicode_ids_m_let_noabmp), + (duk_codepoint_t) cp)) { + return 1; + } + return 0; + } else { + /* without explicit non-BMP support, assume non-BMP characters + * are always accepted as letters. + */ + return 1; + } +#endif +} + +/* + * Complex case conversion helper which decodes a bit-packed conversion + * control stream generated by tools/extract_caseconv.py. The conversion + * is very slow because it runs through the conversion data in a linear + * fashion to save space (which is why ASCII characters have a special + * fast path before arriving here). + * + * The particular bit counts etc have been determined experimentally to + * be small but still sufficient, and must match the Python script + * (tools/extract_caseconv.py). + * + * The return value is the case converted codepoint or -1 if the conversion + * results in multiple characters (this is useful for regexp Canonicalization + * operation). If 'buf' is not NULL, the result codepoint(s) are also + * appended to the hbuffer. + * + * Context and locale specific rules must be checked before consulting + * this function. + */ + +DUK_LOCAL +duk_codepoint_t duk__slow_case_conversion(duk_hthread *thr, + duk_bufwriter_ctx *bw, + duk_codepoint_t cp, + duk_bitdecoder_ctx *bd_ctx) { + duk_small_int_t skip = 0; + duk_small_int_t n; + duk_small_int_t t; + duk_small_int_t count; + duk_codepoint_t tmp_cp; + duk_codepoint_t start_i; + duk_codepoint_t start_o; + + DUK_ASSERT(bd_ctx != NULL); + DUK_UNREF(thr); + + DUK_DDD(DUK_DDDPRINT("slow case conversion for codepoint: %ld", (long) cp)); + + /* range conversion with a "skip" */ + DUK_DDD(DUK_DDDPRINT("checking ranges")); + for (;;) { + skip++; + n = (duk_small_int_t) duk_bd_decode(bd_ctx, 6); + if (n == 0x3f) { + /* end marker */ + break; + } + DUK_DDD(DUK_DDDPRINT("skip=%ld, n=%ld", (long) skip, (long) n)); + + while (n--) { + start_i = (duk_codepoint_t) duk_bd_decode(bd_ctx, 16); + start_o = (duk_codepoint_t) duk_bd_decode(bd_ctx, 16); + count = (duk_small_int_t) duk_bd_decode(bd_ctx, 7); + DUK_DDD(DUK_DDDPRINT("range: start_i=%ld, start_o=%ld, count=%ld, skip=%ld", + (long) start_i, (long) start_o, (long) count, (long) skip)); + + if (cp >= start_i) { + tmp_cp = cp - start_i; /* always >= 0 */ + if (tmp_cp < (duk_codepoint_t) count * (duk_codepoint_t) skip && + (tmp_cp % (duk_codepoint_t) skip) == 0) { + DUK_DDD(DUK_DDDPRINT("range matches input codepoint")); + cp = start_o + tmp_cp; + goto single; + } + } + } + } + + /* 1:1 conversion */ + n = (duk_small_int_t) duk_bd_decode(bd_ctx, 7); + DUK_DDD(DUK_DDDPRINT("checking 1:1 conversions (count %ld)", (long) n)); + while (n--) { + start_i = (duk_codepoint_t) duk_bd_decode(bd_ctx, 16); + start_o = (duk_codepoint_t) duk_bd_decode(bd_ctx, 16); + DUK_DDD(DUK_DDDPRINT("1:1 conversion %ld -> %ld", (long) start_i, (long) start_o)); + if (cp == start_i) { + DUK_DDD(DUK_DDDPRINT("1:1 matches input codepoint")); + cp = start_o; + goto single; + } + } + + /* complex, multicharacter conversion */ + n = (duk_small_int_t) duk_bd_decode(bd_ctx, 7); + DUK_DDD(DUK_DDDPRINT("checking 1:n conversions (count %ld)", (long) n)); + while (n--) { + start_i = (duk_codepoint_t) duk_bd_decode(bd_ctx, 16); + t = (duk_small_int_t) duk_bd_decode(bd_ctx, 2); + DUK_DDD(DUK_DDDPRINT("1:n conversion %ld -> %ld chars", (long) start_i, (long) t)); + if (cp == start_i) { + DUK_DDD(DUK_DDDPRINT("1:n matches input codepoint")); + if (bw != NULL) { + while (t--) { + tmp_cp = (duk_codepoint_t) duk_bd_decode(bd_ctx, 16); + DUK_BW_WRITE_RAW_XUTF8(thr, bw, (duk_ucodepoint_t) tmp_cp); + } + } + return -1; + } else { + while (t--) { + (void) duk_bd_decode(bd_ctx, 16); + } + } + } + + /* default: no change */ + DUK_DDD(DUK_DDDPRINT("no rule matches, output is same as input")); + /* fall through */ + + single: + if (bw != NULL) { + DUK_BW_WRITE_RAW_XUTF8(thr, bw, (duk_ucodepoint_t) cp); + } + return cp; +} + +/* + * Case conversion helper, with context/local sensitivity. + * For proper case conversion, one needs to know the character + * and the preceding and following characters, as well as + * locale/language. + */ + +/* XXX: add 'language' argument when locale/language sensitive rule + * support added. + */ +DUK_LOCAL +duk_codepoint_t duk__case_transform_helper(duk_hthread *thr, + duk_bufwriter_ctx *bw, + duk_codepoint_t cp, + duk_codepoint_t prev, + duk_codepoint_t next, + duk_bool_t uppercase) { + duk_bitdecoder_ctx bd_ctx; + + /* fast path for ASCII */ + if (cp < 0x80L) { + /* XXX: there are language sensitive rules for the ASCII range. + * If/when language/locale support is implemented, they need to + * be implemented here for the fast path. There are no context + * sensitive rules for ASCII range. + */ + + if (uppercase) { + if (cp >= 'a' && cp <= 'z') { + cp = cp - 'a' + 'A'; + } + } else { + if (cp >= 'A' && cp <= 'Z') { + cp = cp - 'A' + 'a'; + } + } + + if (bw != NULL) { + DUK_BW_WRITE_RAW_U8(thr, bw, (duk_uint8_t) cp); + } + return cp; + } + + /* context and locale specific rules which cannot currently be represented + * in the caseconv bitstream: hardcoded rules in C + */ + if (uppercase) { + /* XXX: turkish / azeri */ + } else { + /* + * Final sigma context specific rule. This is a rather tricky + * rule and this handling is probably not 100% correct now. + * The rule is not locale/language specific so it is supported. + */ + + if (cp == 0x03a3L && /* U+03A3 = GREEK CAPITAL LETTER SIGMA */ + duk_unicode_is_letter(prev) && /* prev exists and is not a letter */ + !duk_unicode_is_letter(next)) { /* next does not exist or next is not a letter */ + /* Capital sigma occurred at "end of word", lowercase to + * U+03C2 = GREEK SMALL LETTER FINAL SIGMA. Otherwise + * fall through and let the normal rules lowercase it to + * U+03C3 = GREEK SMALL LETTER SIGMA. + */ + cp = 0x03c2L; + goto singlechar; + } + + /* XXX: lithuanian not implemented */ + /* XXX: lithuanian, explicit dot rules */ + /* XXX: turkish / azeri, lowercase rules */ + } + + /* 1:1 or special conversions, but not locale/context specific: script generated rules */ + duk_memzero(&bd_ctx, sizeof(bd_ctx)); + if (uppercase) { + bd_ctx.data = (const duk_uint8_t *) duk_unicode_caseconv_uc; + bd_ctx.length = (duk_size_t) sizeof(duk_unicode_caseconv_uc); + } else { + bd_ctx.data = (const duk_uint8_t *) duk_unicode_caseconv_lc; + bd_ctx.length = (duk_size_t) sizeof(duk_unicode_caseconv_lc); + } + return duk__slow_case_conversion(thr, bw, cp, &bd_ctx); + + singlechar: + if (bw != NULL) { + DUK_BW_WRITE_RAW_XUTF8(thr, bw, (duk_ucodepoint_t) cp); + } + return cp; + + /* unused now, not needed until Turkish/Azeri */ +#if 0 + nochar: + return -1; +#endif +} + +/* + * Replace valstack top with case converted version. + */ + +DUK_INTERNAL void duk_unicode_case_convert_string(duk_hthread *thr, duk_bool_t uppercase) { + duk_hstring *h_input; + duk_bufwriter_ctx bw_alloc; + duk_bufwriter_ctx *bw; + const duk_uint8_t *p, *p_start, *p_end; + duk_codepoint_t prev, curr, next; + + h_input = duk_require_hstring(thr, -1); /* Accept symbols. */ + DUK_ASSERT(h_input != NULL); + + bw = &bw_alloc; + DUK_BW_INIT_PUSHBUF(thr, bw, DUK_HSTRING_GET_BYTELEN(h_input)); + + /* [ ... input buffer ] */ + + p_start = (const duk_uint8_t *) DUK_HSTRING_GET_DATA(h_input); + p_end = p_start + DUK_HSTRING_GET_BYTELEN(h_input); + p = p_start; + + prev = -1; DUK_UNREF(prev); + curr = -1; + next = -1; + for (;;) { + prev = curr; + curr = next; + next = -1; + if (p < p_end) { + next = (duk_codepoint_t) duk_unicode_decode_xutf8_checked(thr, &p, p_start, p_end); + } else { + /* end of input and last char has been processed */ + if (curr < 0) { + break; + } + } + + /* on first round, skip */ + if (curr >= 0) { + /* XXX: could add a fast path to process chunks of input codepoints, + * but relative benefit would be quite small. + */ + + /* Ensure space for maximum multi-character result; estimate is overkill. */ + DUK_BW_ENSURE(thr, bw, 8 * DUK_UNICODE_MAX_XUTF8_LENGTH); + + duk__case_transform_helper(thr, + bw, + (duk_codepoint_t) curr, + prev, + next, + uppercase); + } + } + + DUK_BW_COMPACT(thr, bw); + (void) duk_buffer_to_string(thr, -1); /* Safe, output is encoded. */ + /* invalidates h_buf pointer */ + duk_remove_m2(thr); +} + +#if defined(DUK_USE_REGEXP_SUPPORT) + +/* + * Canonicalize() abstract operation needed for canonicalization of individual + * codepoints during regexp compilation and execution, see E5 Section 15.10.2.8. + * Note that codepoints are canonicalized one character at a time, so no context + * specific rules can apply. Locale specific rules can apply, though. + */ + +DUK_INTERNAL duk_codepoint_t duk_unicode_re_canonicalize_char(duk_hthread *thr, duk_codepoint_t cp) { +#if defined(DUK_USE_REGEXP_CANON_WORKAROUND) + /* Fast canonicalization lookup at the cost of 128kB footprint. */ + DUK_ASSERT(cp >= 0); + DUK_UNREF(thr); + if (DUK_LIKELY(cp < 0x10000L)) { + return (duk_codepoint_t) duk_unicode_re_canon_lookup[cp]; + } + return cp; +#else /* DUK_USE_REGEXP_CANON_WORKAROUND */ + duk_codepoint_t y; + + y = duk__case_transform_helper(thr, + NULL, /* NULL is allowed, no output */ + cp, /* curr char */ + -1, /* prev char */ + -1, /* next char */ + 1); /* uppercase */ + + if ((y < 0) || (cp >= 0x80 && y < 0x80)) { + /* multiple codepoint conversion or non-ASCII mapped to ASCII + * --> leave as is. + */ + return cp; + } + + return y; +#endif /* DUK_USE_REGEXP_CANON_WORKAROUND */ +} + +/* + * E5 Section 15.10.2.6 "IsWordChar" abstract operation. Assume + * x < 0 for characters read outside the string. + */ + +DUK_INTERNAL duk_small_int_t duk_unicode_re_is_wordchar(duk_codepoint_t x) { + /* + * Note: the description in E5 Section 15.10.2.6 has a typo, it + * contains 'A' twice and lacks 'a'; the intent is [0-9a-zA-Z_]. + */ + if ((x >= '0' && x <= '9') || + (x >= 'a' && x <= 'z') || + (x >= 'A' && x <= 'Z') || + (x == '_')) { + return 1; + } + return 0; +} + +/* + * Regexp range tables + */ + +/* exposed because lexer needs these too */ +DUK_INTERNAL const duk_uint16_t duk_unicode_re_ranges_digit[2] = { + (duk_uint16_t) 0x0030UL, (duk_uint16_t) 0x0039UL, +}; +DUK_INTERNAL const duk_uint16_t duk_unicode_re_ranges_white[22] = { + (duk_uint16_t) 0x0009UL, (duk_uint16_t) 0x000DUL, + (duk_uint16_t) 0x0020UL, (duk_uint16_t) 0x0020UL, + (duk_uint16_t) 0x00A0UL, (duk_uint16_t) 0x00A0UL, + (duk_uint16_t) 0x1680UL, (duk_uint16_t) 0x1680UL, + (duk_uint16_t) 0x180EUL, (duk_uint16_t) 0x180EUL, + (duk_uint16_t) 0x2000UL, (duk_uint16_t) 0x200AUL, + (duk_uint16_t) 0x2028UL, (duk_uint16_t) 0x2029UL, + (duk_uint16_t) 0x202FUL, (duk_uint16_t) 0x202FUL, + (duk_uint16_t) 0x205FUL, (duk_uint16_t) 0x205FUL, + (duk_uint16_t) 0x3000UL, (duk_uint16_t) 0x3000UL, + (duk_uint16_t) 0xFEFFUL, (duk_uint16_t) 0xFEFFUL, +}; +DUK_INTERNAL const duk_uint16_t duk_unicode_re_ranges_wordchar[8] = { + (duk_uint16_t) 0x0030UL, (duk_uint16_t) 0x0039UL, + (duk_uint16_t) 0x0041UL, (duk_uint16_t) 0x005AUL, + (duk_uint16_t) 0x005FUL, (duk_uint16_t) 0x005FUL, + (duk_uint16_t) 0x0061UL, (duk_uint16_t) 0x007AUL, +}; +DUK_INTERNAL const duk_uint16_t duk_unicode_re_ranges_not_digit[4] = { + (duk_uint16_t) 0x0000UL, (duk_uint16_t) 0x002FUL, + (duk_uint16_t) 0x003AUL, (duk_uint16_t) 0xFFFFUL, +}; +DUK_INTERNAL const duk_uint16_t duk_unicode_re_ranges_not_white[24] = { + (duk_uint16_t) 0x0000UL, (duk_uint16_t) 0x0008UL, + (duk_uint16_t) 0x000EUL, (duk_uint16_t) 0x001FUL, + (duk_uint16_t) 0x0021UL, (duk_uint16_t) 0x009FUL, + (duk_uint16_t) 0x00A1UL, (duk_uint16_t) 0x167FUL, + (duk_uint16_t) 0x1681UL, (duk_uint16_t) 0x180DUL, + (duk_uint16_t) 0x180FUL, (duk_uint16_t) 0x1FFFUL, + (duk_uint16_t) 0x200BUL, (duk_uint16_t) 0x2027UL, + (duk_uint16_t) 0x202AUL, (duk_uint16_t) 0x202EUL, + (duk_uint16_t) 0x2030UL, (duk_uint16_t) 0x205EUL, + (duk_uint16_t) 0x2060UL, (duk_uint16_t) 0x2FFFUL, + (duk_uint16_t) 0x3001UL, (duk_uint16_t) 0xFEFEUL, + (duk_uint16_t) 0xFF00UL, (duk_uint16_t) 0xFFFFUL, +}; +DUK_INTERNAL const duk_uint16_t duk_unicode_re_ranges_not_wordchar[10] = { + (duk_uint16_t) 0x0000UL, (duk_uint16_t) 0x002FUL, + (duk_uint16_t) 0x003AUL, (duk_uint16_t) 0x0040UL, + (duk_uint16_t) 0x005BUL, (duk_uint16_t) 0x005EUL, + (duk_uint16_t) 0x0060UL, (duk_uint16_t) 0x0060UL, + (duk_uint16_t) 0x007BUL, (duk_uint16_t) 0xFFFFUL, +}; + +#endif /* DUK_USE_REGEXP_SUPPORT */ +#line 1 "duk_util_memrw.c" +/* + * Macro support functions for reading/writing raw data. + * + * These are done using memcpy to ensure they're valid even for unaligned + * reads/writes on platforms where alignment counts. On x86 at least gcc + * is able to compile these into a bswap+mov. "Always inline" is used to + * ensure these macros compile to minimal code. + */ + +/* #include duk_internal.h -> already included */ + +union duk__u16_union { + duk_uint8_t b[2]; + duk_uint16_t x; +}; +typedef union duk__u16_union duk__u16_union; + +union duk__u32_union { + duk_uint8_t b[4]; + duk_uint32_t x; +}; +typedef union duk__u32_union duk__u32_union; + +#if defined(DUK_USE_64BIT_OPS) +union duk__u64_union { + duk_uint8_t b[8]; + duk_uint64_t x; +}; +typedef union duk__u64_union duk__u64_union; +#endif + +DUK_INTERNAL DUK_ALWAYS_INLINE duk_uint16_t duk_raw_read_u16_be(const duk_uint8_t *p) { + duk__u16_union u; + duk_memcpy((void *) u.b, (const void *) p, (size_t) 2); + u.x = DUK_NTOH16(u.x); + return u.x; +} + +DUK_INTERNAL DUK_ALWAYS_INLINE duk_uint32_t duk_raw_read_u32_be(const duk_uint8_t *p) { + duk__u32_union u; + duk_memcpy((void *) u.b, (const void *) p, (size_t) 4); + u.x = DUK_NTOH32(u.x); + return u.x; +} + +DUK_INTERNAL DUK_ALWAYS_INLINE duk_float_t duk_raw_read_float_be(const duk_uint8_t *p) { + duk_float_union fu; + duk_memcpy((void *) fu.uc, (const void *) p, (size_t) 4); + duk_fltunion_big_to_host(&fu); + return fu.f; +} + +DUK_INTERNAL DUK_ALWAYS_INLINE duk_double_t duk_raw_read_double_be(const duk_uint8_t *p) { + duk_double_union du; + duk_memcpy((void *) du.uc, (const void *) p, (size_t) 8); + duk_dblunion_big_to_host(&du); + return du.d; +} + +DUK_INTERNAL DUK_ALWAYS_INLINE duk_uint16_t duk_raw_readinc_u16_be(const duk_uint8_t **p) { + duk_uint16_t res = duk_raw_read_u16_be(*p); + *p += 2; + return res; +} + +DUK_INTERNAL DUK_ALWAYS_INLINE duk_uint32_t duk_raw_readinc_u32_be(const duk_uint8_t **p) { + duk_uint32_t res = duk_raw_read_u32_be(*p); + *p += 4; + return res; +} + +DUK_INTERNAL DUK_ALWAYS_INLINE duk_float_t duk_raw_readinc_float_be(const duk_uint8_t **p) { + duk_float_t res = duk_raw_read_float_be(*p); + *p += 4; + return res; +} + +DUK_INTERNAL DUK_ALWAYS_INLINE duk_double_t duk_raw_readinc_double_be(const duk_uint8_t **p) { + duk_double_t res = duk_raw_read_double_be(*p); + *p += 8; + return res; +} + +DUK_INTERNAL DUK_ALWAYS_INLINE void duk_raw_write_u16_be(duk_uint8_t *p, duk_uint16_t val) { + duk__u16_union u; + u.x = DUK_HTON16(val); + duk_memcpy((void *) p, (const void *) u.b, (size_t) 2); +} + +DUK_INTERNAL DUK_ALWAYS_INLINE void duk_raw_write_u32_be(duk_uint8_t *p, duk_uint32_t val) { + duk__u32_union u; + u.x = DUK_HTON32(val); + duk_memcpy((void *) p, (const void *) u.b, (size_t) 4); +} + +DUK_INTERNAL DUK_ALWAYS_INLINE void duk_raw_write_float_be(duk_uint8_t *p, duk_float_t val) { + duk_float_union fu; + fu.f = val; + duk_fltunion_host_to_big(&fu); + duk_memcpy((void *) p, (const void *) fu.uc, (size_t) 4); +} + +DUK_INTERNAL DUK_ALWAYS_INLINE void duk_raw_write_double_be(duk_uint8_t *p, duk_double_t val) { + duk_double_union du; + du.d = val; + duk_dblunion_host_to_big(&du); + duk_memcpy((void *) p, (const void *) du.uc, (size_t) 8); +} + +DUK_INTERNAL duk_small_int_t duk_raw_write_xutf8(duk_uint8_t *p, duk_ucodepoint_t val) { + duk_small_int_t len = duk_unicode_encode_xutf8(val, p); + return len; +} + +DUK_INTERNAL duk_small_int_t duk_raw_write_cesu8(duk_uint8_t *p, duk_ucodepoint_t val) { + duk_small_int_t len = duk_unicode_encode_cesu8(val, p); + return len; +} + +DUK_INTERNAL DUK_ALWAYS_INLINE void duk_raw_writeinc_u16_be(duk_uint8_t **p, duk_uint16_t val) { + duk_raw_write_u16_be(*p, val); + *p += 2; +} + +DUK_INTERNAL DUK_ALWAYS_INLINE void duk_raw_writeinc_u32_be(duk_uint8_t **p, duk_uint32_t val) { + duk_raw_write_u32_be(*p, val); + *p += 4; +} + +DUK_INTERNAL DUK_ALWAYS_INLINE void duk_raw_writeinc_float_be(duk_uint8_t **p, duk_float_t val) { + duk_raw_write_float_be(*p, val); + *p += 4; +} + +DUK_INTERNAL DUK_ALWAYS_INLINE void duk_raw_writeinc_double_be(duk_uint8_t **p, duk_double_t val) { + duk_raw_write_double_be(*p, val); + *p += 8; +} + +DUK_INTERNAL void duk_raw_writeinc_xutf8(duk_uint8_t **p, duk_ucodepoint_t val) { + duk_small_int_t len = duk_unicode_encode_xutf8(val, *p); + *p += len; +} + +DUK_INTERNAL void duk_raw_writeinc_cesu8(duk_uint8_t **p, duk_ucodepoint_t val) { + duk_small_int_t len = duk_unicode_encode_cesu8(val, *p); + *p += len; +} +#line 1 "duk_util_misc.c" +/* + * Misc util stuff. + */ + +/* #include duk_internal.h -> already included */ + +/* + * Lowercase digits for radix values 2 to 36. Also doubles as lowercase + * hex nybble table. + */ + +DUK_INTERNAL const duk_uint8_t duk_lc_digits[36] = { + DUK_ASC_0, DUK_ASC_1, DUK_ASC_2, DUK_ASC_3, + DUK_ASC_4, DUK_ASC_5, DUK_ASC_6, DUK_ASC_7, + DUK_ASC_8, DUK_ASC_9, DUK_ASC_LC_A, DUK_ASC_LC_B, + DUK_ASC_LC_C, DUK_ASC_LC_D, DUK_ASC_LC_E, DUK_ASC_LC_F, + DUK_ASC_LC_G, DUK_ASC_LC_H, DUK_ASC_LC_I, DUK_ASC_LC_J, + DUK_ASC_LC_K, DUK_ASC_LC_L, DUK_ASC_LC_M, DUK_ASC_LC_N, + DUK_ASC_LC_O, DUK_ASC_LC_P, DUK_ASC_LC_Q, DUK_ASC_LC_R, + DUK_ASC_LC_S, DUK_ASC_LC_T, DUK_ASC_LC_U, DUK_ASC_LC_V, + DUK_ASC_LC_W, DUK_ASC_LC_X, DUK_ASC_LC_Y, DUK_ASC_LC_Z +}; + +DUK_INTERNAL const duk_uint8_t duk_uc_nybbles[16] = { + DUK_ASC_0, DUK_ASC_1, DUK_ASC_2, DUK_ASC_3, + DUK_ASC_4, DUK_ASC_5, DUK_ASC_6, DUK_ASC_7, + DUK_ASC_8, DUK_ASC_9, DUK_ASC_UC_A, DUK_ASC_UC_B, + DUK_ASC_UC_C, DUK_ASC_UC_D, DUK_ASC_UC_E, DUK_ASC_UC_F +}; + +/* + * Table for hex decoding ASCII hex digits + */ + +DUK_INTERNAL const duk_int8_t duk_hex_dectab[256] = { + /* -1 if invalid */ + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0x00-0x0f */ + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0x10-0x1f */ + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0x20-0x2f */ + 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, -1, -1, -1, -1, -1, -1, /* 0x30-0x3f */ + -1, 10, 11, 12, 13, 14, 15, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0x40-0x4f */ + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0x50-0x5f */ + -1, 10, 11, 12, 13, 14, 15, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0x60-0x6f */ + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0x70-0x7f */ + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0x80-0x8f */ + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0x90-0x9f */ + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0xa0-0xaf */ + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0xb0-0xbf */ + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0xc0-0xcf */ + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0xd0-0xdf */ + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0xe0-0xef */ + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1 /* 0xf0-0xff */ +}; + +#if defined(DUK_USE_HEX_FASTPATH) +/* Preshifted << 4. Must use 16-bit entry to allow negative value signaling. */ +DUK_INTERNAL const duk_int16_t duk_hex_dectab_shift4[256] = { + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0x00-0x0f */ + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0x10-0x1f */ + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0x20-0x2f */ + 0x00, 0x10, 0x20, 0x30, 0x40, 0x50, 0x60, 0x70, 0x80, 0x90, -1, -1, -1, -1, -1, -1, /* 0x30-0x3f */ + -1, 0xa0, 0xb0, 0xc0, 0xd0, 0xe0, 0xf0, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0x40-0x4f */ + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0x50-0x5f */ + -1, 0xa0, 0xb0, 0xc0, 0xd0, 0xe0, 0xf0, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0x60-0x6f */ + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0x70-0x7f */ + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0x80-0x8f */ + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0x90-0x9f */ + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0xa0-0xaf */ + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0xb0-0xbf */ + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0xc0-0xcf */ + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0xd0-0xdf */ + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, /* 0xe0-0xef */ + -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1 /* 0xf0-0xff */ +}; +#endif + +/* + * Table for hex encoding bytes + */ + +#if defined(DUK_USE_HEX_FASTPATH) +/* Lookup to encode one byte directly into 2 characters: + * + * def genhextab(bswap): + * for i in xrange(256): + * t = chr(i).encode('hex') + * if bswap: + * t = t[1] + t[0] + * print('0x' + t.encode('hex') + 'U') + * print('big endian'); genhextab(False) + * print('little endian'); genhextab(True) +*/ +DUK_INTERNAL const duk_uint16_t duk_hex_enctab[256] = { +#if defined(DUK_USE_INTEGER_BE) + 0x3030U, 0x3031U, 0x3032U, 0x3033U, 0x3034U, 0x3035U, 0x3036U, 0x3037U, + 0x3038U, 0x3039U, 0x3061U, 0x3062U, 0x3063U, 0x3064U, 0x3065U, 0x3066U, + 0x3130U, 0x3131U, 0x3132U, 0x3133U, 0x3134U, 0x3135U, 0x3136U, 0x3137U, + 0x3138U, 0x3139U, 0x3161U, 0x3162U, 0x3163U, 0x3164U, 0x3165U, 0x3166U, + 0x3230U, 0x3231U, 0x3232U, 0x3233U, 0x3234U, 0x3235U, 0x3236U, 0x3237U, + 0x3238U, 0x3239U, 0x3261U, 0x3262U, 0x3263U, 0x3264U, 0x3265U, 0x3266U, + 0x3330U, 0x3331U, 0x3332U, 0x3333U, 0x3334U, 0x3335U, 0x3336U, 0x3337U, + 0x3338U, 0x3339U, 0x3361U, 0x3362U, 0x3363U, 0x3364U, 0x3365U, 0x3366U, + 0x3430U, 0x3431U, 0x3432U, 0x3433U, 0x3434U, 0x3435U, 0x3436U, 0x3437U, + 0x3438U, 0x3439U, 0x3461U, 0x3462U, 0x3463U, 0x3464U, 0x3465U, 0x3466U, + 0x3530U, 0x3531U, 0x3532U, 0x3533U, 0x3534U, 0x3535U, 0x3536U, 0x3537U, + 0x3538U, 0x3539U, 0x3561U, 0x3562U, 0x3563U, 0x3564U, 0x3565U, 0x3566U, + 0x3630U, 0x3631U, 0x3632U, 0x3633U, 0x3634U, 0x3635U, 0x3636U, 0x3637U, + 0x3638U, 0x3639U, 0x3661U, 0x3662U, 0x3663U, 0x3664U, 0x3665U, 0x3666U, + 0x3730U, 0x3731U, 0x3732U, 0x3733U, 0x3734U, 0x3735U, 0x3736U, 0x3737U, + 0x3738U, 0x3739U, 0x3761U, 0x3762U, 0x3763U, 0x3764U, 0x3765U, 0x3766U, + 0x3830U, 0x3831U, 0x3832U, 0x3833U, 0x3834U, 0x3835U, 0x3836U, 0x3837U, + 0x3838U, 0x3839U, 0x3861U, 0x3862U, 0x3863U, 0x3864U, 0x3865U, 0x3866U, + 0x3930U, 0x3931U, 0x3932U, 0x3933U, 0x3934U, 0x3935U, 0x3936U, 0x3937U, + 0x3938U, 0x3939U, 0x3961U, 0x3962U, 0x3963U, 0x3964U, 0x3965U, 0x3966U, + 0x6130U, 0x6131U, 0x6132U, 0x6133U, 0x6134U, 0x6135U, 0x6136U, 0x6137U, + 0x6138U, 0x6139U, 0x6161U, 0x6162U, 0x6163U, 0x6164U, 0x6165U, 0x6166U, + 0x6230U, 0x6231U, 0x6232U, 0x6233U, 0x6234U, 0x6235U, 0x6236U, 0x6237U, + 0x6238U, 0x6239U, 0x6261U, 0x6262U, 0x6263U, 0x6264U, 0x6265U, 0x6266U, + 0x6330U, 0x6331U, 0x6332U, 0x6333U, 0x6334U, 0x6335U, 0x6336U, 0x6337U, + 0x6338U, 0x6339U, 0x6361U, 0x6362U, 0x6363U, 0x6364U, 0x6365U, 0x6366U, + 0x6430U, 0x6431U, 0x6432U, 0x6433U, 0x6434U, 0x6435U, 0x6436U, 0x6437U, + 0x6438U, 0x6439U, 0x6461U, 0x6462U, 0x6463U, 0x6464U, 0x6465U, 0x6466U, + 0x6530U, 0x6531U, 0x6532U, 0x6533U, 0x6534U, 0x6535U, 0x6536U, 0x6537U, + 0x6538U, 0x6539U, 0x6561U, 0x6562U, 0x6563U, 0x6564U, 0x6565U, 0x6566U, + 0x6630U, 0x6631U, 0x6632U, 0x6633U, 0x6634U, 0x6635U, 0x6636U, 0x6637U, + 0x6638U, 0x6639U, 0x6661U, 0x6662U, 0x6663U, 0x6664U, 0x6665U, 0x6666U +#else /* DUK_USE_INTEGER_BE */ + 0x3030U, 0x3130U, 0x3230U, 0x3330U, 0x3430U, 0x3530U, 0x3630U, 0x3730U, + 0x3830U, 0x3930U, 0x6130U, 0x6230U, 0x6330U, 0x6430U, 0x6530U, 0x6630U, + 0x3031U, 0x3131U, 0x3231U, 0x3331U, 0x3431U, 0x3531U, 0x3631U, 0x3731U, + 0x3831U, 0x3931U, 0x6131U, 0x6231U, 0x6331U, 0x6431U, 0x6531U, 0x6631U, + 0x3032U, 0x3132U, 0x3232U, 0x3332U, 0x3432U, 0x3532U, 0x3632U, 0x3732U, + 0x3832U, 0x3932U, 0x6132U, 0x6232U, 0x6332U, 0x6432U, 0x6532U, 0x6632U, + 0x3033U, 0x3133U, 0x3233U, 0x3333U, 0x3433U, 0x3533U, 0x3633U, 0x3733U, + 0x3833U, 0x3933U, 0x6133U, 0x6233U, 0x6333U, 0x6433U, 0x6533U, 0x6633U, + 0x3034U, 0x3134U, 0x3234U, 0x3334U, 0x3434U, 0x3534U, 0x3634U, 0x3734U, + 0x3834U, 0x3934U, 0x6134U, 0x6234U, 0x6334U, 0x6434U, 0x6534U, 0x6634U, + 0x3035U, 0x3135U, 0x3235U, 0x3335U, 0x3435U, 0x3535U, 0x3635U, 0x3735U, + 0x3835U, 0x3935U, 0x6135U, 0x6235U, 0x6335U, 0x6435U, 0x6535U, 0x6635U, + 0x3036U, 0x3136U, 0x3236U, 0x3336U, 0x3436U, 0x3536U, 0x3636U, 0x3736U, + 0x3836U, 0x3936U, 0x6136U, 0x6236U, 0x6336U, 0x6436U, 0x6536U, 0x6636U, + 0x3037U, 0x3137U, 0x3237U, 0x3337U, 0x3437U, 0x3537U, 0x3637U, 0x3737U, + 0x3837U, 0x3937U, 0x6137U, 0x6237U, 0x6337U, 0x6437U, 0x6537U, 0x6637U, + 0x3038U, 0x3138U, 0x3238U, 0x3338U, 0x3438U, 0x3538U, 0x3638U, 0x3738U, + 0x3838U, 0x3938U, 0x6138U, 0x6238U, 0x6338U, 0x6438U, 0x6538U, 0x6638U, + 0x3039U, 0x3139U, 0x3239U, 0x3339U, 0x3439U, 0x3539U, 0x3639U, 0x3739U, + 0x3839U, 0x3939U, 0x6139U, 0x6239U, 0x6339U, 0x6439U, 0x6539U, 0x6639U, + 0x3061U, 0x3161U, 0x3261U, 0x3361U, 0x3461U, 0x3561U, 0x3661U, 0x3761U, + 0x3861U, 0x3961U, 0x6161U, 0x6261U, 0x6361U, 0x6461U, 0x6561U, 0x6661U, + 0x3062U, 0x3162U, 0x3262U, 0x3362U, 0x3462U, 0x3562U, 0x3662U, 0x3762U, + 0x3862U, 0x3962U, 0x6162U, 0x6262U, 0x6362U, 0x6462U, 0x6562U, 0x6662U, + 0x3063U, 0x3163U, 0x3263U, 0x3363U, 0x3463U, 0x3563U, 0x3663U, 0x3763U, + 0x3863U, 0x3963U, 0x6163U, 0x6263U, 0x6363U, 0x6463U, 0x6563U, 0x6663U, + 0x3064U, 0x3164U, 0x3264U, 0x3364U, 0x3464U, 0x3564U, 0x3664U, 0x3764U, + 0x3864U, 0x3964U, 0x6164U, 0x6264U, 0x6364U, 0x6464U, 0x6564U, 0x6664U, + 0x3065U, 0x3165U, 0x3265U, 0x3365U, 0x3465U, 0x3565U, 0x3665U, 0x3765U, + 0x3865U, 0x3965U, 0x6165U, 0x6265U, 0x6365U, 0x6465U, 0x6565U, 0x6665U, + 0x3066U, 0x3166U, 0x3266U, 0x3366U, 0x3466U, 0x3566U, 0x3666U, 0x3766U, + 0x3866U, 0x3966U, 0x6166U, 0x6266U, 0x6366U, 0x6466U, 0x6566U, 0x6666U +#endif /* DUK_USE_INTEGER_BE */ +}; +#endif /* DUK_USE_HEX_FASTPATH */ + +/* + * Arbitrary byteswap for potentially unaligned values + * + * Used to byteswap pointers e.g. in debugger code. + */ + +#if defined(DUK_USE_DEBUGGER_SUPPORT) /* For now only needed by the debugger. */ +DUK_INTERNAL void duk_byteswap_bytes(duk_uint8_t *p, duk_small_uint_t len) { + duk_uint8_t tmp; + duk_uint8_t *q = p + len - 1; + + while (p - q < 0) { + tmp = *p; + *p = *q; + *q = tmp; + p++; + q--; + } +} +#endif +#line 1 "duk_hobject_class.c" +/* + * Hobject ECMAScript [[Class]]. + */ + +/* #include duk_internal.h -> already included */ + +#if (DUK_STRIDX_UC_ARGUMENTS > 255) +#error constant too large +#endif +#if (DUK_STRIDX_UC_ARRAY > 255) +#error constant too large +#endif +#if (DUK_STRIDX_UC_BOOLEAN > 255) +#error constant too large +#endif +#if (DUK_STRIDX_UC_DATE > 255) +#error constant too large +#endif +#if (DUK_STRIDX_UC_ERROR > 255) +#error constant too large +#endif +#if (DUK_STRIDX_UC_FUNCTION > 255) +#error constant too large +#endif +#if (DUK_STRIDX_JSON > 255) +#error constant too large +#endif +#if (DUK_STRIDX_MATH > 255) +#error constant too large +#endif +#if (DUK_STRIDX_UC_NUMBER > 255) +#error constant too large +#endif +#if (DUK_STRIDX_UC_OBJECT > 255) +#error constant too large +#endif +#if (DUK_STRIDX_REG_EXP > 255) +#error constant too large +#endif +#if (DUK_STRIDX_UC_STRING > 255) +#error constant too large +#endif +#if (DUK_STRIDX_GLOBAL > 255) +#error constant too large +#endif +#if (DUK_STRIDX_OBJ_ENV > 255) +#error constant too large +#endif +#if (DUK_STRIDX_DEC_ENV > 255) +#error constant too large +#endif +#if (DUK_STRIDX_UC_POINTER > 255) +#error constant too large +#endif +#if (DUK_STRIDX_UC_THREAD > 255) +#error constant too large +#endif +#if (DUK_STRIDX_ARRAY_BUFFER > 255) +#error constant too large +#endif +#if (DUK_STRIDX_DATA_VIEW > 255) +#error constant too large +#endif +#if (DUK_STRIDX_INT8_ARRAY > 255) +#error constant too large +#endif +#if (DUK_STRIDX_UINT8_ARRAY > 255) +#error constant too large +#endif +#if (DUK_STRIDX_UINT8_CLAMPED_ARRAY > 255) +#error constant too large +#endif +#if (DUK_STRIDX_INT16_ARRAY > 255) +#error constant too large +#endif +#if (DUK_STRIDX_UINT16_ARRAY > 255) +#error constant too large +#endif +#if (DUK_STRIDX_INT32_ARRAY > 255) +#error constant too large +#endif +#if (DUK_STRIDX_UINT32_ARRAY > 255) +#error constant too large +#endif +#if (DUK_STRIDX_FLOAT32_ARRAY > 255) +#error constant too large +#endif +#if (DUK_STRIDX_FLOAT64_ARRAY > 255) +#error constant too large +#endif +#if (DUK_STRIDX_EMPTY_STRING > 255) +#error constant too large +#endif + +/* Note: assumes that these string indexes are 8-bit, genstrings.py must ensure that */ +DUK_INTERNAL duk_uint8_t duk_class_number_to_stridx[32] = { + DUK_STRIDX_EMPTY_STRING, /* NONE, intentionally empty */ + DUK_STRIDX_UC_OBJECT, + DUK_STRIDX_UC_ARRAY, + DUK_STRIDX_UC_FUNCTION, + DUK_STRIDX_UC_ARGUMENTS, + DUK_STRIDX_UC_BOOLEAN, + DUK_STRIDX_UC_DATE, + DUK_STRIDX_UC_ERROR, + DUK_STRIDX_JSON, + DUK_STRIDX_MATH, + DUK_STRIDX_UC_NUMBER, + DUK_STRIDX_REG_EXP, + DUK_STRIDX_UC_STRING, + DUK_STRIDX_GLOBAL, + DUK_STRIDX_UC_SYMBOL, + DUK_STRIDX_OBJ_ENV, + DUK_STRIDX_DEC_ENV, + DUK_STRIDX_UC_POINTER, + DUK_STRIDX_UC_THREAD, + DUK_STRIDX_ARRAY_BUFFER, + DUK_STRIDX_DATA_VIEW, + DUK_STRIDX_INT8_ARRAY, + DUK_STRIDX_UINT8_ARRAY, + DUK_STRIDX_UINT8_CLAMPED_ARRAY, + DUK_STRIDX_INT16_ARRAY, + DUK_STRIDX_UINT16_ARRAY, + DUK_STRIDX_INT32_ARRAY, + DUK_STRIDX_UINT32_ARRAY, + DUK_STRIDX_FLOAT32_ARRAY, + DUK_STRIDX_FLOAT64_ARRAY, + DUK_STRIDX_EMPTY_STRING, /* UNUSED, intentionally empty */ + DUK_STRIDX_EMPTY_STRING, /* UNUSED, intentionally empty */ +}; +#line 1 "duk_alloc_default.c" +/* + * Default allocation functions. + * + * Assumes behavior such as malloc allowing zero size, yielding + * a NULL or a unique pointer which is a no-op for free. + */ + +/* #include duk_internal.h -> already included */ + +#if defined(DUK_USE_PROVIDE_DEFAULT_ALLOC_FUNCTIONS) +DUK_INTERNAL void *duk_default_alloc_function(void *udata, duk_size_t size) { + void *res; + DUK_UNREF(udata); + res = DUK_ANSI_MALLOC(size); + DUK_DDD(DUK_DDDPRINT("default alloc function: %lu -> %p", + (unsigned long) size, (void *) res)); + return res; +} + +DUK_INTERNAL void *duk_default_realloc_function(void *udata, void *ptr, duk_size_t newsize) { + void *res; + DUK_UNREF(udata); + res = DUK_ANSI_REALLOC(ptr, newsize); + DUK_DDD(DUK_DDDPRINT("default realloc function: %p %lu -> %p", + (void *) ptr, (unsigned long) newsize, (void *) res)); + return res; +} + +DUK_INTERNAL void duk_default_free_function(void *udata, void *ptr) { + DUK_DDD(DUK_DDDPRINT("default free function: %p", (void *) ptr)); + DUK_UNREF(udata); + DUK_ANSI_FREE(ptr); +} +#endif /* DUK_USE_PROVIDE_DEFAULT_ALLOC_FUNCTIONS */ +#line 1 "duk_api_buffer.c" +/* + * Buffer + */ + +/* #include duk_internal.h -> already included */ + +DUK_EXTERNAL void *duk_resize_buffer(duk_hthread *thr, duk_idx_t idx, duk_size_t new_size) { + duk_hbuffer_dynamic *h; + + DUK_ASSERT_API_ENTRY(thr); + + h = (duk_hbuffer_dynamic *) duk_require_hbuffer(thr, idx); + DUK_ASSERT(h != NULL); + + if (!(DUK_HBUFFER_HAS_DYNAMIC(h) && !DUK_HBUFFER_HAS_EXTERNAL(h))) { + DUK_ERROR_TYPE(thr, DUK_STR_WRONG_BUFFER_TYPE); + DUK_WO_NORETURN(return NULL;); + } + + /* Maximum size check is handled by callee. */ + duk_hbuffer_resize(thr, h, new_size); + + return DUK_HBUFFER_DYNAMIC_GET_DATA_PTR(thr->heap, h); +} + +DUK_EXTERNAL void *duk_steal_buffer(duk_hthread *thr, duk_idx_t idx, duk_size_t *out_size) { + duk_hbuffer_dynamic *h; + void *ptr; + duk_size_t sz; + + DUK_ASSERT_API_ENTRY(thr); + + h = (duk_hbuffer_dynamic *) duk_require_hbuffer(thr, idx); + DUK_ASSERT(h != NULL); + + if (!(DUK_HBUFFER_HAS_DYNAMIC(h) && !DUK_HBUFFER_HAS_EXTERNAL(h))) { + DUK_ERROR_TYPE(thr, DUK_STR_WRONG_BUFFER_TYPE); + DUK_WO_NORETURN(return NULL;); + } + + /* Forget the previous allocation, setting size to 0 and alloc to + * NULL. Caller is responsible for freeing the previous allocation. + * Getting the allocation and clearing it is done in the same API + * call to avoid any chance of a realloc. + */ + ptr = DUK_HBUFFER_DYNAMIC_GET_DATA_PTR(thr->heap, h); + sz = DUK_HBUFFER_DYNAMIC_GET_SIZE(h); + if (out_size) { + *out_size = sz; + } + DUK_HBUFFER_DYNAMIC_SET_DATA_PTR_NULL(thr->heap, h); + DUK_HBUFFER_DYNAMIC_SET_SIZE(h, 0); + + return ptr; +} + +DUK_EXTERNAL void duk_config_buffer(duk_hthread *thr, duk_idx_t idx, void *ptr, duk_size_t len) { + duk_hbuffer_external *h; + + DUK_ASSERT_API_ENTRY(thr); + + h = (duk_hbuffer_external *) duk_require_hbuffer(thr, idx); + DUK_ASSERT(h != NULL); + + if (!DUK_HBUFFER_HAS_EXTERNAL(h)) { + DUK_ERROR_TYPE(thr, DUK_STR_WRONG_BUFFER_TYPE); + DUK_WO_NORETURN(return;); + } + DUK_ASSERT(DUK_HBUFFER_HAS_DYNAMIC(h)); + + DUK_HBUFFER_EXTERNAL_SET_DATA_PTR(thr->heap, h, ptr); + DUK_HBUFFER_EXTERNAL_SET_SIZE(h, len); +} +#line 1 "duk_api_bytecode.c" +/* + * Bytecode dump/load + * + * The bytecode load primitive is more important performance-wise than the + * dump primitive. + * + * Unlike most Duktape API calls, bytecode dump/load is not guaranteed to be + * memory safe for invalid arguments - caller beware! There's little point + * in trying to achieve memory safety unless bytecode instructions are also + * validated which is not easy to do with indirect register references etc. + */ + +/* #include duk_internal.h -> already included */ + +#if defined(DUK_USE_BYTECODE_DUMP_SUPPORT) + +#define DUK__SER_MARKER 0xbf +#define DUK__SER_STRING 0x00 +#define DUK__SER_NUMBER 0x01 +#define DUK__BYTECODE_INITIAL_ALLOC 256 +#define DUK__NO_FORMALS 0xffffffffUL + +/* + * Dump/load helpers, xxx_raw() helpers do no buffer checks + */ + +DUK_LOCAL const duk_uint8_t *duk__load_string_raw(duk_hthread *thr, const duk_uint8_t *p) { + duk_uint32_t len; + + len = DUK_RAW_READINC_U32_BE(p); + duk_push_lstring(thr, (const char *) p, len); + p += len; + return p; +} + +DUK_LOCAL const duk_uint8_t *duk__load_buffer_raw(duk_hthread *thr, const duk_uint8_t *p) { + duk_uint32_t len; + duk_uint8_t *buf; + + len = DUK_RAW_READINC_U32_BE(p); + buf = (duk_uint8_t *) duk_push_fixed_buffer_nozero(thr, (duk_size_t) len); + DUK_ASSERT(buf != NULL); + duk_memcpy((void *) buf, (const void *) p, (size_t) len); + p += len; + return p; +} + +DUK_LOCAL duk_uint8_t *duk__dump_hstring_raw(duk_uint8_t *p, duk_hstring *h) { + duk_size_t len; + duk_uint32_t tmp32; + + DUK_ASSERT(h != NULL); + + len = DUK_HSTRING_GET_BYTELEN(h); + DUK_ASSERT(len <= 0xffffffffUL); /* string limits */ + tmp32 = (duk_uint32_t) len; + DUK_RAW_WRITEINC_U32_BE(p, tmp32); + duk_memcpy((void *) p, + (const void *) DUK_HSTRING_GET_DATA(h), + len); + p += len; + return p; +} + +DUK_LOCAL duk_uint8_t *duk__dump_hbuffer_raw(duk_hthread *thr, duk_uint8_t *p, duk_hbuffer *h) { + duk_size_t len; + duk_uint32_t tmp32; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(h != NULL); + DUK_UNREF(thr); + + len = DUK_HBUFFER_GET_SIZE(h); + DUK_ASSERT(len <= 0xffffffffUL); /* buffer limits */ + tmp32 = (duk_uint32_t) len; + DUK_RAW_WRITEINC_U32_BE(p, tmp32); + /* When len == 0, buffer data pointer may be NULL. */ + duk_memcpy_unsafe((void *) p, + (const void *) DUK_HBUFFER_GET_DATA_PTR(thr->heap, h), + len); + p += len; + return p; +} + +DUK_LOCAL duk_uint8_t *duk__dump_string_prop(duk_hthread *thr, duk_uint8_t *p, duk_bufwriter_ctx *bw_ctx, duk_hobject *func, duk_small_uint_t stridx) { + duk_hstring *h_str; + duk_tval *tv; + + tv = duk_hobject_find_entry_tval_ptr_stridx(thr->heap, (duk_hobject *) func, stridx); + if (tv != NULL && DUK_TVAL_IS_STRING(tv)) { + h_str = DUK_TVAL_GET_STRING(tv); + DUK_ASSERT(h_str != NULL); + } else { + h_str = DUK_HTHREAD_STRING_EMPTY_STRING(thr); + DUK_ASSERT(h_str != NULL); + } + DUK_ASSERT(DUK_HSTRING_MAX_BYTELEN <= 0x7fffffffUL); /* ensures no overflow */ + p = DUK_BW_ENSURE_RAW(thr, bw_ctx, 4U + DUK_HSTRING_GET_BYTELEN(h_str), p); + p = duk__dump_hstring_raw(p, h_str); + return p; +} + +DUK_LOCAL duk_uint8_t *duk__dump_buffer_prop(duk_hthread *thr, duk_uint8_t *p, duk_bufwriter_ctx *bw_ctx, duk_hobject *func, duk_small_uint_t stridx) { + duk_tval *tv; + + tv = duk_hobject_find_entry_tval_ptr_stridx(thr->heap, (duk_hobject *) func, stridx); + if (tv != NULL && DUK_TVAL_IS_BUFFER(tv)) { + duk_hbuffer *h_buf; + h_buf = DUK_TVAL_GET_BUFFER(tv); + DUK_ASSERT(h_buf != NULL); + DUK_ASSERT(DUK_HBUFFER_MAX_BYTELEN <= 0x7fffffffUL); /* ensures no overflow */ + p = DUK_BW_ENSURE_RAW(thr, bw_ctx, 4U + DUK_HBUFFER_GET_SIZE(h_buf), p); + p = duk__dump_hbuffer_raw(thr, p, h_buf); + } else { + p = DUK_BW_ENSURE_RAW(thr, bw_ctx, 4U, p); + DUK_RAW_WRITEINC_U32_BE(p, 0); + } + return p; +} + +DUK_LOCAL duk_uint8_t *duk__dump_uint32_prop(duk_hthread *thr, duk_uint8_t *p, duk_bufwriter_ctx *bw_ctx, duk_hobject *func, duk_small_uint_t stridx, duk_uint32_t def_value) { + duk_tval *tv; + duk_uint32_t val; + + tv = duk_hobject_find_entry_tval_ptr_stridx(thr->heap, (duk_hobject *) func, stridx); + if (tv != NULL && DUK_TVAL_IS_NUMBER(tv)) { + val = (duk_uint32_t) DUK_TVAL_GET_NUMBER(tv); + } else { + val = def_value; + } + p = DUK_BW_ENSURE_RAW(thr, bw_ctx, 4U, p); + DUK_RAW_WRITEINC_U32_BE(p, val); + return p; +} + +DUK_LOCAL duk_uint8_t *duk__dump_varmap(duk_hthread *thr, duk_uint8_t *p, duk_bufwriter_ctx *bw_ctx, duk_hobject *func) { + duk_hobject *h; + + h = duk_hobject_get_varmap(thr, (duk_hobject *) func); + if (h != NULL) { + duk_uint_fast32_t i; + + /* We know _Varmap only has own properties so walk property + * table directly. We also know _Varmap is dense and all + * values are numbers; assert for these. GC and finalizers + * shouldn't affect _Varmap so side effects should be fine. + */ + for (i = 0; i < (duk_uint_fast32_t) DUK_HOBJECT_GET_ENEXT(h); i++) { + duk_hstring *key; + duk_tval *tv_val; + duk_uint32_t val; + + key = DUK_HOBJECT_E_GET_KEY(thr->heap, h, i); + DUK_ASSERT(key != NULL); /* _Varmap is dense */ + DUK_ASSERT(!DUK_HOBJECT_E_SLOT_IS_ACCESSOR(thr->heap, h, i)); + tv_val = DUK_HOBJECT_E_GET_VALUE_TVAL_PTR(thr->heap, h, i); + DUK_ASSERT(tv_val != NULL); + DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv_val)); /* known to be number; in fact an integer */ +#if defined(DUK_USE_FASTINT) + DUK_ASSERT(DUK_TVAL_IS_FASTINT(tv_val)); + DUK_ASSERT(DUK_TVAL_GET_FASTINT(tv_val) == (duk_int64_t) DUK_TVAL_GET_FASTINT_U32(tv_val)); /* known to be 32-bit */ + val = DUK_TVAL_GET_FASTINT_U32(tv_val); +#else + val = (duk_uint32_t) DUK_TVAL_GET_NUMBER(tv_val); +#endif + + DUK_ASSERT(DUK_HSTRING_MAX_BYTELEN <= 0x7fffffffUL); /* ensures no overflow */ + p = DUK_BW_ENSURE_RAW(thr, bw_ctx, 4U + DUK_HSTRING_GET_BYTELEN(key) + 4U, p); + p = duk__dump_hstring_raw(p, key); + DUK_RAW_WRITEINC_U32_BE(p, val); + } + } + p = DUK_BW_ENSURE_RAW(thr, bw_ctx, 4U, p); + DUK_RAW_WRITEINC_U32_BE(p, 0); /* end of _Varmap */ + return p; +} + +DUK_LOCAL duk_uint8_t *duk__dump_formals(duk_hthread *thr, duk_uint8_t *p, duk_bufwriter_ctx *bw_ctx, duk_hobject *func) { + duk_harray *h; + + h = duk_hobject_get_formals(thr, (duk_hobject *) func); + if (h != NULL) { + duk_uint32_t i; + + /* Here we rely on _Formals being a dense array containing + * strings. This should be the case unless _Formals has been + * tweaked by the application (which we don't support right + * now). + */ + + p = DUK_BW_ENSURE_RAW(thr, bw_ctx, 4U, p); + DUK_ASSERT(h->length != DUK__NO_FORMALS); /* limits */ + DUK_RAW_WRITEINC_U32_BE(p, h->length); + + for (i = 0; i < h->length; i++) { + duk_tval *tv_val; + duk_hstring *varname; + + tv_val = DUK_HOBJECT_A_GET_VALUE_PTR(thr->heap, (duk_hobject *) h, i); + DUK_ASSERT(tv_val != NULL); + DUK_ASSERT(DUK_TVAL_IS_STRING(tv_val)); + + varname = DUK_TVAL_GET_STRING(tv_val); + DUK_ASSERT(varname != NULL); + DUK_ASSERT(DUK_HSTRING_GET_BYTELEN(varname) >= 1); + + DUK_ASSERT(DUK_HSTRING_MAX_BYTELEN <= 0x7fffffffUL); /* ensures no overflow */ + p = DUK_BW_ENSURE_RAW(thr, bw_ctx, 4U + DUK_HSTRING_GET_BYTELEN(varname), p); + p = duk__dump_hstring_raw(p, varname); + } + } else { + DUK_DD(DUK_DDPRINT("dumping function without _Formals, emit marker to indicate missing _Formals")); + p = DUK_BW_ENSURE_RAW(thr, bw_ctx, 4U, p); + DUK_RAW_WRITEINC_U32_BE(p, DUK__NO_FORMALS); /* marker: no formals */ + } + return p; +} + +static duk_uint8_t *duk__dump_func(duk_hthread *thr, duk_hcompfunc *func, duk_bufwriter_ctx *bw_ctx, duk_uint8_t *p) { + duk_tval *tv, *tv_end; + duk_instr_t *ins, *ins_end; + duk_hobject **fn, **fn_end; + duk_hstring *h_str; + duk_uint32_t count_instr; + duk_uint32_t tmp32; + duk_uint16_t tmp16; + duk_double_t d; + + DUK_DD(DUK_DDPRINT("dumping function %p to %p: " + "consts=[%p,%p[ (%ld bytes, %ld items), " + "funcs=[%p,%p[ (%ld bytes, %ld items), " + "code=[%p,%p[ (%ld bytes, %ld items)", + (void *) func, + (void *) p, + (void *) DUK_HCOMPFUNC_GET_CONSTS_BASE(thr->heap, func), + (void *) DUK_HCOMPFUNC_GET_CONSTS_END(thr->heap, func), + (long) DUK_HCOMPFUNC_GET_CONSTS_SIZE(thr->heap, func), + (long) DUK_HCOMPFUNC_GET_CONSTS_COUNT(thr->heap, func), + (void *) DUK_HCOMPFUNC_GET_FUNCS_BASE(thr->heap, func), + (void *) DUK_HCOMPFUNC_GET_FUNCS_END(thr->heap, func), + (long) DUK_HCOMPFUNC_GET_FUNCS_SIZE(thr->heap, func), + (long) DUK_HCOMPFUNC_GET_FUNCS_COUNT(thr->heap, func), + (void *) DUK_HCOMPFUNC_GET_CODE_BASE(thr->heap, func), + (void *) DUK_HCOMPFUNC_GET_CODE_END(thr->heap, func), + (long) DUK_HCOMPFUNC_GET_CODE_SIZE(thr->heap, func), + (long) DUK_HCOMPFUNC_GET_CODE_COUNT(thr->heap, func))); + + DUK_ASSERT(DUK_USE_ESBC_MAX_BYTES <= 0x7fffffffUL); /* ensures no overflow */ + count_instr = (duk_uint32_t) DUK_HCOMPFUNC_GET_CODE_COUNT(thr->heap, func); + p = DUK_BW_ENSURE_RAW(thr, bw_ctx, 3U * 4U + 2U * 2U + 3U * 4U + count_instr * 4U, p); + + /* Fixed header info. */ + tmp32 = count_instr; + DUK_RAW_WRITEINC_U32_BE(p, tmp32); + tmp32 = (duk_uint32_t) DUK_HCOMPFUNC_GET_CONSTS_COUNT(thr->heap, func); + DUK_RAW_WRITEINC_U32_BE(p, tmp32); + tmp32 = (duk_uint32_t) DUK_HCOMPFUNC_GET_FUNCS_COUNT(thr->heap, func); + DUK_RAW_WRITEINC_U32_BE(p, tmp32); + tmp16 = func->nregs; + DUK_RAW_WRITEINC_U16_BE(p, tmp16); + tmp16 = func->nargs; + DUK_RAW_WRITEINC_U16_BE(p, tmp16); +#if defined(DUK_USE_DEBUGGER_SUPPORT) + tmp32 = func->start_line; + DUK_RAW_WRITEINC_U32_BE(p, tmp32); + tmp32 = func->end_line; + DUK_RAW_WRITEINC_U32_BE(p, tmp32); +#else + DUK_RAW_WRITEINC_U32_BE(p, 0); + DUK_RAW_WRITEINC_U32_BE(p, 0); +#endif + tmp32 = DUK_HEAPHDR_GET_FLAGS((duk_heaphdr *) func); /* masks flags, only duk_hobject flags */ + tmp32 &= ~(DUK_HOBJECT_FLAG_HAVE_FINALIZER); /* finalizer flag is lost */ + DUK_RAW_WRITEINC_U32_BE(p, tmp32); + + /* Bytecode instructions: endian conversion needed unless + * platform is big endian. + */ + ins = DUK_HCOMPFUNC_GET_CODE_BASE(thr->heap, func); + ins_end = DUK_HCOMPFUNC_GET_CODE_END(thr->heap, func); + DUK_ASSERT((duk_size_t) (ins_end - ins) == (duk_size_t) count_instr); +#if defined(DUK_USE_INTEGER_BE) + duk_memcpy_unsafe((void *) p, (const void *) ins, (size_t) (ins_end - ins)); + p += (size_t) (ins_end - ins); +#else + while (ins != ins_end) { + tmp32 = (duk_uint32_t) (*ins); + DUK_RAW_WRITEINC_U32_BE(p, tmp32); + ins++; + } +#endif + + /* Constants: variable size encoding. */ + tv = DUK_HCOMPFUNC_GET_CONSTS_BASE(thr->heap, func); + tv_end = DUK_HCOMPFUNC_GET_CONSTS_END(thr->heap, func); + while (tv != tv_end) { + /* constants are strings or numbers now */ + DUK_ASSERT(DUK_TVAL_IS_STRING(tv) || + DUK_TVAL_IS_NUMBER(tv)); + + if (DUK_TVAL_IS_STRING(tv)) { + h_str = DUK_TVAL_GET_STRING(tv); + DUK_ASSERT(h_str != NULL); + DUK_ASSERT(DUK_HSTRING_MAX_BYTELEN <= 0x7fffffffUL); /* ensures no overflow */ + p = DUK_BW_ENSURE_RAW(thr, bw_ctx, 1U + 4U + DUK_HSTRING_GET_BYTELEN(h_str), p); + *p++ = DUK__SER_STRING; + p = duk__dump_hstring_raw(p, h_str); + } else { + DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv)); + p = DUK_BW_ENSURE_RAW(thr, bw_ctx, 1U + 8U, p); + *p++ = DUK__SER_NUMBER; + d = DUK_TVAL_GET_NUMBER(tv); + DUK_RAW_WRITEINC_DOUBLE_BE(p, d); + } + tv++; + } + + /* Inner functions recursively. */ + fn = (duk_hobject **) DUK_HCOMPFUNC_GET_FUNCS_BASE(thr->heap, func); + fn_end = (duk_hobject **) DUK_HCOMPFUNC_GET_FUNCS_END(thr->heap, func); + while (fn != fn_end) { + /* XXX: This causes recursion up to inner function depth + * which is normally not an issue, e.g. mark-and-sweep uses + * a recursion limiter to avoid C stack issues. Avoiding + * this would mean some sort of a work list or just refusing + * to serialize deep functions. + */ + DUK_ASSERT(DUK_HOBJECT_IS_COMPFUNC(*fn)); + p = duk__dump_func(thr, (duk_hcompfunc *) *fn, bw_ctx, p); + fn++; + } + + /* Lexenv and varenv are not dumped. */ + + /* Object extra properties. + * + * There are some difference between function templates and functions. + * For example, function templates don't have .length and nargs is + * normally used to instantiate the functions. + */ + + p = duk__dump_uint32_prop(thr, p, bw_ctx, (duk_hobject *) func, DUK_STRIDX_LENGTH, (duk_uint32_t) func->nargs); +#if defined(DUK_USE_FUNC_NAME_PROPERTY) + p = duk__dump_string_prop(thr, p, bw_ctx, (duk_hobject *) func, DUK_STRIDX_NAME); +#endif +#if defined(DUK_USE_FUNC_FILENAME_PROPERTY) + p = duk__dump_string_prop(thr, p, bw_ctx, (duk_hobject *) func, DUK_STRIDX_FILE_NAME); +#endif +#if defined(DUK_USE_PC2LINE) + p = duk__dump_buffer_prop(thr, p, bw_ctx, (duk_hobject *) func, DUK_STRIDX_INT_PC2LINE); +#endif + p = duk__dump_varmap(thr, p, bw_ctx, (duk_hobject *) func); + p = duk__dump_formals(thr, p, bw_ctx, (duk_hobject *) func); + + DUK_DD(DUK_DDPRINT("serialized function %p -> final pointer %p", (void *) func, (void *) p)); + + return p; +} + +/* Load a function from bytecode. The function object returned here must + * match what is created by duk_js_push_closure() with respect to its flags, + * properties, etc. + * + * NOTE: there are intentionally no input buffer length / bound checks. + * Adding them would be easy but wouldn't ensure memory safety as untrusted + * or broken bytecode is unsafe during execution unless the opcodes themselves + * are validated (which is quite complex, especially for indirect opcodes). + */ + +#define DUK__ASSERT_LEFT(n) do { \ + DUK_ASSERT((duk_size_t) (p_end - p) >= (duk_size_t) (n)); \ + } while (0) + +static const duk_uint8_t *duk__load_func(duk_hthread *thr, const duk_uint8_t *p, const duk_uint8_t *p_end) { + duk_hcompfunc *h_fun; + duk_hbuffer *h_data; + duk_size_t data_size; + duk_uint32_t count_instr, count_const, count_funcs; + duk_uint32_t n; + duk_uint32_t tmp32; + duk_small_uint_t const_type; + duk_uint8_t *fun_data; + duk_uint8_t *q; + duk_idx_t idx_base; + duk_tval *tv1; + duk_uarridx_t arr_idx; + duk_uarridx_t arr_limit; + duk_hobject *func_env; + duk_bool_t need_pop; + + /* XXX: There's some overlap with duk_js_closure() here, but + * seems difficult to share code. Ensure that the final function + * looks the same as created by duk_js_closure(). + */ + + DUK_ASSERT(thr != NULL); + + DUK_DD(DUK_DDPRINT("loading function, p=%p, p_end=%p", (const void *) p, (const void *) p_end)); + + DUK__ASSERT_LEFT(3 * 4); + count_instr = DUK_RAW_READINC_U32_BE(p); + count_const = DUK_RAW_READINC_U32_BE(p); + count_funcs = DUK_RAW_READINC_U32_BE(p); + + data_size = sizeof(duk_tval) * count_const + + sizeof(duk_hobject *) * count_funcs + + sizeof(duk_instr_t) * count_instr; + + DUK_DD(DUK_DDPRINT("instr=%ld, const=%ld, funcs=%ld, data_size=%ld", + (long) count_instr, (long) count_const, + (long) count_const, (long) data_size)); + + /* Value stack is used to ensure reachability of constants and + * inner functions being loaded. Require enough space to handle + * large functions correctly. + */ + duk_require_stack(thr, (duk_idx_t) (2 + count_const + count_funcs)); + idx_base = duk_get_top(thr); + + /* Push function object, init flags etc. This must match + * duk_js_push_closure() quite carefully. + */ + h_fun = duk_push_hcompfunc(thr); + DUK_ASSERT(h_fun != NULL); + DUK_ASSERT(DUK_HOBJECT_IS_COMPFUNC((duk_hobject *) h_fun)); + DUK_ASSERT(DUK_HCOMPFUNC_GET_DATA(thr->heap, h_fun) == NULL); + DUK_ASSERT(DUK_HCOMPFUNC_GET_FUNCS(thr->heap, h_fun) == NULL); + DUK_ASSERT(DUK_HCOMPFUNC_GET_BYTECODE(thr->heap, h_fun) == NULL); + DUK_ASSERT(DUK_HOBJECT_GET_PROTOTYPE(thr->heap, (duk_hobject *) h_fun) == thr->builtins[DUK_BIDX_FUNCTION_PROTOTYPE]); + + h_fun->nregs = DUK_RAW_READINC_U16_BE(p); + h_fun->nargs = DUK_RAW_READINC_U16_BE(p); +#if defined(DUK_USE_DEBUGGER_SUPPORT) + h_fun->start_line = DUK_RAW_READINC_U32_BE(p); + h_fun->end_line = DUK_RAW_READINC_U32_BE(p); +#else + p += 8; /* skip line info */ +#endif + + /* duk_hcompfunc flags; quite version specific */ + tmp32 = DUK_RAW_READINC_U32_BE(p); + DUK_HEAPHDR_SET_FLAGS((duk_heaphdr *) h_fun, tmp32); /* masks flags to only change duk_hobject flags */ + + /* standard prototype (no need to set here, already set) */ + DUK_ASSERT(DUK_HOBJECT_GET_PROTOTYPE(thr->heap, (duk_hobject *) h_fun) == thr->builtins[DUK_BIDX_FUNCTION_PROTOTYPE]); +#if 0 + DUK_HOBJECT_SET_PROTOTYPE_UPDREF(thr, &h_fun->obj, thr->builtins[DUK_BIDX_FUNCTION_PROTOTYPE]); +#endif + + /* assert just a few critical flags */ + DUK_ASSERT(DUK_HEAPHDR_GET_TYPE((duk_heaphdr *) h_fun) == DUK_HTYPE_OBJECT); + DUK_ASSERT(!DUK_HOBJECT_HAS_BOUNDFUNC(&h_fun->obj)); + DUK_ASSERT(DUK_HOBJECT_HAS_COMPFUNC(&h_fun->obj)); + DUK_ASSERT(!DUK_HOBJECT_HAS_NATFUNC(&h_fun->obj)); + DUK_ASSERT(!DUK_HOBJECT_IS_THREAD(&h_fun->obj)); + DUK_ASSERT(!DUK_HOBJECT_IS_PROXY(&h_fun->obj)); + DUK_ASSERT(!DUK_HOBJECT_HAS_EXOTIC_ARRAY(&h_fun->obj)); + DUK_ASSERT(!DUK_HOBJECT_HAS_EXOTIC_STRINGOBJ(&h_fun->obj)); + DUK_ASSERT(!DUK_HOBJECT_HAS_EXOTIC_ARGUMENTS(&h_fun->obj)); + + /* Create function 'data' buffer but don't attach it yet. */ + fun_data = (duk_uint8_t *) duk_push_fixed_buffer_nozero(thr, data_size); + DUK_ASSERT(fun_data != NULL); + + /* Load bytecode instructions. */ + DUK_ASSERT(sizeof(duk_instr_t) == 4); + DUK__ASSERT_LEFT(count_instr * sizeof(duk_instr_t)); +#if defined(DUK_USE_INTEGER_BE) + q = fun_data + sizeof(duk_tval) * count_const + sizeof(duk_hobject *) * count_funcs; + duk_memcpy((void *) q, + (const void *) p, + sizeof(duk_instr_t) * count_instr); + p += sizeof(duk_instr_t) * count_instr; +#else + q = fun_data + sizeof(duk_tval) * count_const + sizeof(duk_hobject *) * count_funcs; + for (n = count_instr; n > 0; n--) { + *((duk_instr_t *) (void *) q) = DUK_RAW_READINC_U32_BE(p); + q += sizeof(duk_instr_t); + } +#endif + + /* Load constants onto value stack but don't yet copy to buffer. */ + for (n = count_const; n > 0; n--) { + DUK__ASSERT_LEFT(1); + const_type = DUK_RAW_READINC_U8(p); + switch (const_type) { + case DUK__SER_STRING: { + p = duk__load_string_raw(thr, p); + break; + } + case DUK__SER_NUMBER: { + /* Important to do a fastint check so that constants are + * properly read back as fastints. + */ + duk_tval tv_tmp; + duk_double_t val; + DUK__ASSERT_LEFT(8); + val = DUK_RAW_READINC_DOUBLE_BE(p); + DUK_TVAL_SET_NUMBER_CHKFAST_SLOW(&tv_tmp, val); + duk_push_tval(thr, &tv_tmp); + break; + } + default: { + goto format_error; + } + } + } + + /* Load inner functions to value stack, but don't yet copy to buffer. */ + for (n = count_funcs; n > 0; n--) { + p = duk__load_func(thr, p, p_end); + if (p == NULL) { + goto format_error; + } + } + + /* With constants and inner functions on value stack, we can now + * atomically finish the function 'data' buffer, bump refcounts, + * etc. + * + * Here we take advantage of the value stack being just a duk_tval + * array: we can just memcpy() the constants as long as we incref + * them afterwards. + */ + + h_data = (duk_hbuffer *) duk_known_hbuffer(thr, idx_base + 1); + DUK_ASSERT(!DUK_HBUFFER_HAS_DYNAMIC(h_data)); + DUK_HCOMPFUNC_SET_DATA(thr->heap, h_fun, h_data); + DUK_HBUFFER_INCREF(thr, h_data); + + tv1 = duk_get_tval(thr, idx_base + 2); /* may be NULL if no constants or inner funcs */ + DUK_ASSERT((count_const == 0 && count_funcs == 0) || tv1 != NULL); + + q = fun_data; + duk_memcpy_unsafe((void *) q, (const void *) tv1, sizeof(duk_tval) * count_const); + for (n = count_const; n > 0; n--) { + DUK_TVAL_INCREF_FAST(thr, (duk_tval *) (void *) q); /* no side effects */ + q += sizeof(duk_tval); + } + tv1 += count_const; + + DUK_HCOMPFUNC_SET_FUNCS(thr->heap, h_fun, (duk_hobject **) (void *) q); + for (n = count_funcs; n > 0; n--) { + duk_hobject *h_obj; + + DUK_ASSERT(DUK_TVAL_IS_OBJECT(tv1)); + h_obj = DUK_TVAL_GET_OBJECT(tv1); + DUK_ASSERT(h_obj != NULL); + tv1++; + DUK_HOBJECT_INCREF(thr, h_obj); + + *((duk_hobject **) (void *) q) = h_obj; + q += sizeof(duk_hobject *); + } + + DUK_HCOMPFUNC_SET_BYTECODE(thr->heap, h_fun, (duk_instr_t *) (void *) q); + + /* The function object is now reachable and refcounts are fine, + * so we can pop off all the temporaries. + */ + DUK_DDD(DUK_DDDPRINT("function is reachable, reset top; func: %!iT", duk_get_tval(thr, idx_base))); + duk_set_top(thr, idx_base + 1); + + /* Setup function properties. */ + tmp32 = DUK_RAW_READINC_U32_BE(p); + duk_push_u32(thr, tmp32); + duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_LENGTH, DUK_PROPDESC_FLAGS_C); + +#if defined(DUK_USE_FUNC_NAME_PROPERTY) + p = duk__load_string_raw(thr, p); /* -> [ func funcname ] */ + func_env = thr->builtins[DUK_BIDX_GLOBAL_ENV]; + DUK_ASSERT(func_env != NULL); + need_pop = 0; + if (DUK_HOBJECT_HAS_NAMEBINDING((duk_hobject *) h_fun)) { + /* Original function instance/template had NAMEBINDING. + * Must create a lexical environment on loading to allow + * recursive functions like 'function foo() { foo(); }'. + */ + duk_hdecenv *new_env; + + new_env = duk_hdecenv_alloc(thr, + DUK_HOBJECT_FLAG_EXTENSIBLE | + DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_DECENV)); + DUK_ASSERT(new_env != NULL); + DUK_ASSERT(new_env->thread == NULL); /* Closed. */ + DUK_ASSERT(new_env->varmap == NULL); + DUK_ASSERT(new_env->regbase_byteoff == 0); + DUK_HDECENV_ASSERT_VALID(new_env); + DUK_ASSERT(DUK_HOBJECT_GET_PROTOTYPE(thr->heap, (duk_hobject *) new_env) == NULL); + DUK_HOBJECT_SET_PROTOTYPE(thr->heap, (duk_hobject *) new_env, func_env); + DUK_HOBJECT_INCREF(thr, func_env); + + func_env = (duk_hobject *) new_env; + + duk_push_hobject(thr, (duk_hobject *) new_env); + + duk_dup_m2(thr); /* -> [ func funcname env funcname ] */ + duk_dup(thr, idx_base); /* -> [ func funcname env funcname func ] */ + duk_xdef_prop(thr, -3, DUK_PROPDESC_FLAGS_NONE); /* -> [ func funcname env ] */ + + need_pop = 1; /* Need to pop env, but -after- updating h_fun and increfs. */ + } + DUK_ASSERT(func_env != NULL); + DUK_HCOMPFUNC_SET_LEXENV(thr->heap, h_fun, func_env); + DUK_HCOMPFUNC_SET_VARENV(thr->heap, h_fun, func_env); + DUK_HOBJECT_INCREF(thr, func_env); + DUK_HOBJECT_INCREF(thr, func_env); + if (need_pop) { + duk_pop(thr); + } + duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_NAME, DUK_PROPDESC_FLAGS_C); +#endif /* DUK_USE_FUNC_NAME_PROPERTY */ + +#if defined(DUK_USE_FUNC_FILENAME_PROPERTY) + p = duk__load_string_raw(thr, p); + duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_FILE_NAME, DUK_PROPDESC_FLAGS_C); +#endif /* DUK_USE_FUNC_FILENAME_PROPERTY */ + + if (DUK_HOBJECT_HAS_CONSTRUCTABLE((duk_hobject *) h_fun)) { + /* Restore empty external .prototype only for constructable + * functions. The prototype object should inherit from + * Object.prototype. + */ + duk_push_object(thr); + DUK_ASSERT(!duk_is_bare_object(thr, -1)); + duk_dup_m2(thr); + duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_CONSTRUCTOR, DUK_PROPDESC_FLAGS_WC); /* func.prototype.constructor = func */ + duk_compact_m1(thr); + duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_PROTOTYPE, DUK_PROPDESC_FLAGS_W); + } + +#if defined(DUK_USE_PC2LINE) + p = duk__load_buffer_raw(thr, p); + duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_INT_PC2LINE, DUK_PROPDESC_FLAGS_WC); +#endif /* DUK_USE_PC2LINE */ + + duk_push_bare_object(thr); /* _Varmap */ + for (;;) { + /* XXX: awkward */ + p = duk__load_string_raw(thr, p); + if (duk_get_length(thr, -1) == 0) { + duk_pop(thr); + break; + } + tmp32 = DUK_RAW_READINC_U32_BE(p); + duk_push_u32(thr, tmp32); + duk_put_prop(thr, -3); + } + duk_compact_m1(thr); + duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_INT_VARMAP, DUK_PROPDESC_FLAGS_NONE); + + /* _Formals may have been missing in the original function, which is + * handled using a marker length. + */ + arr_limit = DUK_RAW_READINC_U32_BE(p); + if (arr_limit != DUK__NO_FORMALS) { + duk_push_bare_array(thr); /* _Formals */ + for (arr_idx = 0; arr_idx < arr_limit; arr_idx++) { + p = duk__load_string_raw(thr, p); + duk_put_prop_index(thr, -2, arr_idx); + } + duk_compact_m1(thr); + duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_INT_FORMALS, DUK_PROPDESC_FLAGS_NONE); + } else { + DUK_DD(DUK_DDPRINT("no _Formals in dumped function")); + } + + /* Return with final function pushed on stack top. */ + DUK_DD(DUK_DDPRINT("final loaded function: %!iT", duk_get_tval(thr, -1))); + DUK_ASSERT_TOP(thr, idx_base + 1); + return p; + + format_error: + return NULL; +} + +DUK_EXTERNAL void duk_dump_function(duk_hthread *thr) { + duk_hcompfunc *func; + duk_bufwriter_ctx bw_ctx_alloc; + duk_bufwriter_ctx *bw_ctx = &bw_ctx_alloc; + duk_uint8_t *p; + + DUK_ASSERT_API_ENTRY(thr); + + /* Bound functions don't have all properties so we'd either need to + * lookup the non-bound target function or reject bound functions. + * For now, bound functions are rejected with TypeError. + */ + func = duk_require_hcompfunc(thr, -1); + DUK_ASSERT(func != NULL); + DUK_ASSERT(!DUK_HOBJECT_HAS_BOUNDFUNC(&func->obj)); + + /* Estimating the result size beforehand would be costly, so + * start with a reasonable size and extend as needed. + */ + DUK_BW_INIT_PUSHBUF(thr, bw_ctx, DUK__BYTECODE_INITIAL_ALLOC); + p = DUK_BW_GET_PTR(thr, bw_ctx); + *p++ = DUK__SER_MARKER; + p = duk__dump_func(thr, func, bw_ctx, p); + DUK_BW_SET_PTR(thr, bw_ctx, p); + DUK_BW_COMPACT(thr, bw_ctx); + + DUK_DD(DUK_DDPRINT("serialized result: %!T", duk_get_tval(thr, -1))); + + duk_remove_m2(thr); /* [ ... func buf ] -> [ ... buf ] */ +} + +DUK_EXTERNAL void duk_load_function(duk_hthread *thr) { + const duk_uint8_t *p_buf, *p, *p_end; + duk_size_t sz; + + DUK_ASSERT_API_ENTRY(thr); + + p_buf = (duk_uint8_t *) duk_require_buffer(thr, -1, &sz); + DUK_ASSERT(p_buf != NULL); + + /* The caller is responsible for being sure that bytecode being loaded + * is valid and trusted. Invalid bytecode can cause memory unsafe + * behavior directly during loading or later during bytecode execution + * (instruction validation would be quite complex to implement). + * + * This signature check is the only sanity check for detecting + * accidental invalid inputs. The initial byte ensures no ordinary + * string or Symbol will be accepted by accident. + */ + p = p_buf; + p_end = p_buf + sz; + if (sz < 1 || p[0] != DUK__SER_MARKER) { + goto format_error; + } + p++; + + p = duk__load_func(thr, p, p_end); + if (p == NULL) { + goto format_error; + } + + duk_remove_m2(thr); /* [ ... buf func ] -> [ ... func ] */ + return; + + format_error: + DUK_ERROR_TYPE(thr, DUK_STR_INVALID_BYTECODE); + DUK_WO_NORETURN(return;); +} + +#else /* DUK_USE_BYTECODE_DUMP_SUPPORT */ + +DUK_EXTERNAL void duk_dump_function(duk_hthread *thr) { + DUK_ASSERT_API_ENTRY(thr); + DUK_ERROR_UNSUPPORTED(thr); + DUK_WO_NORETURN(return;); +} + +DUK_EXTERNAL void duk_load_function(duk_hthread *thr) { + DUK_ASSERT_API_ENTRY(thr); + DUK_ERROR_UNSUPPORTED(thr); + DUK_WO_NORETURN(return;); +} + +#endif /* DUK_USE_BYTECODE_DUMP_SUPPORT */ + +/* automatic undefs */ +#undef DUK__ASSERT_LEFT +#undef DUK__BYTECODE_INITIAL_ALLOC +#undef DUK__NO_FORMALS +#undef DUK__SER_MARKER +#undef DUK__SER_NUMBER +#undef DUK__SER_STRING +#line 1 "duk_api_call.c" +/* + * Calls. + * + * Protected variants should avoid ever throwing an error. Must be careful + * to catch errors related to value stack manipulation and property lookup, + * not just the call itself. + * + * The only exception is when arguments are insane, e.g. nargs/nrets are out + * of bounds; in such cases an error is thrown for two reasons. First, we + * can't always respect the value stack input/output guarantees in such cases + * so the caller would end up with the value stack in an unexpected state. + * Second, an attempt to create an error might itself fail (although this + * could be avoided by pushing a preallocated object/string or a primitive + * value). + */ + +/* #include duk_internal.h -> already included */ + +/* + * Helpers + */ + +struct duk__pcall_prop_args { + duk_idx_t obj_idx; + duk_idx_t nargs; + duk_small_uint_t call_flags; +}; +typedef struct duk__pcall_prop_args duk__pcall_prop_args; + +struct duk__pcall_method_args { + duk_idx_t nargs; + duk_small_uint_t call_flags; +}; +typedef struct duk__pcall_method_args duk__pcall_method_args; + +struct duk__pcall_args { + duk_idx_t nargs; + duk_small_uint_t call_flags; +}; +typedef struct duk__pcall_args duk__pcall_args; + +/* Compute and validate idx_func for a certain 'nargs' and 'other' + * parameter count (1 or 2, depending on whether 'this' binding is + * present). + */ +DUK_LOCAL duk_idx_t duk__call_get_idx_func(duk_hthread *thr, duk_idx_t nargs, duk_idx_t other) { + duk_idx_t idx_func; + + /* XXX: byte arithmetic? */ + + DUK_ASSERT(other >= 0); + + idx_func = duk_get_top(thr) - nargs - other; + if (DUK_UNLIKELY((idx_func | nargs) < 0)) { /* idx_func < 0 || nargs < 0; OR sign bits */ + DUK_ERROR_TYPE_INVALID_ARGS(thr); + DUK_WO_NORETURN(return 0;); + } + DUK_ASSERT(duk_is_valid_index(thr, idx_func)); + return idx_func; +} + +/* Compute idx_func, assume index will be valid. This is a valid assumption + * for protected calls: nargs < 0 is checked explicitly and duk_safe_call() + * validates the argument count. + */ +DUK_LOCAL duk_idx_t duk__call_get_idx_func_unvalidated(duk_hthread *thr, duk_idx_t nargs, duk_idx_t other) { + duk_idx_t idx_func; + + /* XXX: byte arithmetic? */ + + DUK_ASSERT(nargs >= 0); + DUK_ASSERT(other >= 0); + + idx_func = duk_get_top(thr) - nargs - other; + DUK_ASSERT(idx_func >= 0); + DUK_ASSERT(duk_is_valid_index(thr, idx_func)); + return idx_func; +} + +/* Prepare value stack for a method call through an object property. + * May currently throw an error e.g. when getting the property. + */ +DUK_LOCAL void duk__call_prop_prep_stack(duk_hthread *thr, duk_idx_t normalized_obj_idx, duk_idx_t nargs) { + DUK_CTX_ASSERT_VALID(thr); + DUK_ASSERT(nargs >= 0); + + DUK_DDD(DUK_DDDPRINT("duk__call_prop_prep_stack, normalized_obj_idx=%ld, nargs=%ld, stacktop=%ld", + (long) normalized_obj_idx, (long) nargs, (long) duk_get_top(thr))); + + /* [... key arg1 ... argN] */ + + /* duplicate key */ + duk_dup(thr, -nargs - 1); /* Note: -nargs alone would fail for nargs == 0, this is OK */ + (void) duk_get_prop(thr, normalized_obj_idx); + + DUK_DDD(DUK_DDDPRINT("func: %!T", (duk_tval *) duk_get_tval(thr, -1))); + +#if defined(DUK_USE_VERBOSE_ERRORS) + if (DUK_UNLIKELY(!duk_is_callable(thr, -1))) { + duk_tval *tv_base; + duk_tval *tv_key; + + /* tv_targ is passed on stack top (at index -1). */ + tv_base = DUK_GET_TVAL_POSIDX(thr, normalized_obj_idx); + tv_key = DUK_GET_TVAL_NEGIDX(thr, -nargs - 2); + DUK_ASSERT(tv_base >= thr->valstack_bottom && tv_base < thr->valstack_top); + DUK_ASSERT(tv_key >= thr->valstack_bottom && tv_key < thr->valstack_top); + + duk_call_setup_propcall_error(thr, tv_base, tv_key); + } +#endif + + /* [... key arg1 ... argN func] */ + + duk_replace(thr, -nargs - 2); + + /* [... func arg1 ... argN] */ + + duk_dup(thr, normalized_obj_idx); + duk_insert(thr, -nargs - 1); + + /* [... func this arg1 ... argN] */ +} + +DUK_EXTERNAL void duk_call(duk_hthread *thr, duk_idx_t nargs) { + duk_small_uint_t call_flags; + duk_idx_t idx_func; + + DUK_ASSERT_API_ENTRY(thr); + + idx_func = duk__call_get_idx_func(thr, nargs, 1); + DUK_ASSERT(duk_is_valid_index(thr, idx_func)); + + duk_insert_undefined(thr, idx_func + 1); + + call_flags = 0; /* not protected, respect reclimit, not constructor */ + duk_handle_call_unprotected(thr, idx_func, call_flags); +} + +DUK_EXTERNAL void duk_call_method(duk_hthread *thr, duk_idx_t nargs) { + duk_small_uint_t call_flags; + duk_idx_t idx_func; + + DUK_ASSERT_API_ENTRY(thr); + + idx_func = duk__call_get_idx_func(thr, nargs, 2); + DUK_ASSERT(duk_is_valid_index(thr, idx_func)); + + call_flags = 0; /* not protected, respect reclimit, not constructor */ + duk_handle_call_unprotected(thr, idx_func, call_flags); +} + +DUK_EXTERNAL void duk_call_prop(duk_hthread *thr, duk_idx_t obj_idx, duk_idx_t nargs) { + /* + * XXX: if duk_handle_call() took values through indices, this could be + * made much more sensible. However, duk_handle_call() needs to fudge + * the 'this' and 'func' values to handle bound functions, which is now + * done "in-place", so this is not a trivial change. + */ + + DUK_ASSERT_API_ENTRY(thr); + + obj_idx = duk_require_normalize_index(thr, obj_idx); /* make absolute */ + if (DUK_UNLIKELY(nargs < 0)) { + DUK_ERROR_TYPE_INVALID_ARGS(thr); + DUK_WO_NORETURN(return;); + } + + duk__call_prop_prep_stack(thr, obj_idx, nargs); + + duk_call_method(thr, nargs); +} + +DUK_LOCAL duk_ret_t duk__pcall_raw(duk_hthread *thr, void *udata) { + duk__pcall_args *args; + duk_idx_t idx_func; + duk_int_t ret; + + DUK_CTX_ASSERT_VALID(thr); + DUK_ASSERT(udata != NULL); + + args = (duk__pcall_args *) udata; + idx_func = duk__call_get_idx_func_unvalidated(thr, args->nargs, 1); + DUK_ASSERT(duk_is_valid_index(thr, idx_func)); + + duk_insert_undefined(thr, idx_func + 1); + + ret = duk_handle_call_unprotected(thr, idx_func, args->call_flags); + DUK_ASSERT(ret == 0); + DUK_UNREF(ret); + + return 1; +} + +DUK_EXTERNAL duk_int_t duk_pcall(duk_hthread *thr, duk_idx_t nargs) { + duk__pcall_args args; + + DUK_ASSERT_API_ENTRY(thr); + + args.nargs = nargs; + if (DUK_UNLIKELY(nargs < 0)) { + DUK_ERROR_TYPE_INVALID_ARGS(thr); + DUK_WO_NORETURN(return DUK_EXEC_ERROR;); + } + args.call_flags = 0; + + return duk_safe_call(thr, duk__pcall_raw, (void *) &args /*udata*/, nargs + 1 /*nargs*/, 1 /*nrets*/); +} + +DUK_LOCAL duk_ret_t duk__pcall_method_raw(duk_hthread *thr, void *udata) { + duk__pcall_method_args *args; + duk_idx_t idx_func; + duk_int_t ret; + + DUK_CTX_ASSERT_VALID(thr); + DUK_ASSERT(udata != NULL); + + args = (duk__pcall_method_args *) udata; + + idx_func = duk__call_get_idx_func_unvalidated(thr, args->nargs, 2); + DUK_ASSERT(duk_is_valid_index(thr, idx_func)); + + ret = duk_handle_call_unprotected(thr, idx_func, args->call_flags); + DUK_ASSERT(ret == 0); + DUK_UNREF(ret); + + return 1; +} + +DUK_INTERNAL duk_int_t duk_pcall_method_flags(duk_hthread *thr, duk_idx_t nargs, duk_small_uint_t call_flags) { + duk__pcall_method_args args; + + DUK_ASSERT_API_ENTRY(thr); + + args.nargs = nargs; + if (DUK_UNLIKELY(nargs < 0)) { + DUK_ERROR_TYPE_INVALID_ARGS(thr); + DUK_WO_NORETURN(return DUK_EXEC_ERROR;); + } + args.call_flags = call_flags; + + return duk_safe_call(thr, duk__pcall_method_raw, (void *) &args /*udata*/, nargs + 2 /*nargs*/, 1 /*nrets*/); +} + +DUK_EXTERNAL duk_int_t duk_pcall_method(duk_hthread *thr, duk_idx_t nargs) { + DUK_ASSERT_API_ENTRY(thr); + + return duk_pcall_method_flags(thr, nargs, 0); +} + +DUK_LOCAL duk_ret_t duk__pcall_prop_raw(duk_hthread *thr, void *udata) { + duk__pcall_prop_args *args; + duk_idx_t obj_idx; + duk_int_t ret; + + DUK_CTX_ASSERT_VALID(thr); + DUK_ASSERT(udata != NULL); + + args = (duk__pcall_prop_args *) udata; + + obj_idx = duk_require_normalize_index(thr, args->obj_idx); /* make absolute */ + duk__call_prop_prep_stack(thr, obj_idx, args->nargs); + + ret = duk_handle_call_unprotected_nargs(thr, args->nargs, args->call_flags); + DUK_ASSERT(ret == 0); + DUK_UNREF(ret); + return 1; +} + +DUK_EXTERNAL duk_int_t duk_pcall_prop(duk_hthread *thr, duk_idx_t obj_idx, duk_idx_t nargs) { + duk__pcall_prop_args args; + + DUK_ASSERT_API_ENTRY(thr); + + args.obj_idx = obj_idx; + args.nargs = nargs; + if (DUK_UNLIKELY(nargs < 0)) { + DUK_ERROR_TYPE_INVALID_ARGS(thr); + DUK_WO_NORETURN(return DUK_EXEC_ERROR;); + } + args.call_flags = 0; + + return duk_safe_call(thr, duk__pcall_prop_raw, (void *) &args /*udata*/, nargs + 1 /*nargs*/, 1 /*nrets*/); +} + +DUK_EXTERNAL duk_int_t duk_safe_call(duk_hthread *thr, duk_safe_call_function func, void *udata, duk_idx_t nargs, duk_idx_t nrets) { + duk_int_t rc; + + DUK_ASSERT_API_ENTRY(thr); + + /* nargs condition; fail if: top - bottom < nargs + * <=> top < bottom + nargs + * nrets condition; fail if: end - (top - nargs) < nrets + * <=> end - top + nargs < nrets + * <=> end + nargs < top + nrets + */ + /* XXX: check for any reserve? */ + + if (DUK_UNLIKELY((nargs | nrets) < 0 || /* nargs < 0 || nrets < 0; OR sign bits */ + thr->valstack_top < thr->valstack_bottom + nargs || /* nargs too large compared to top */ + thr->valstack_end + nargs < thr->valstack_top + nrets)) { /* nrets too large compared to reserve */ + DUK_D(DUK_DPRINT("not enough stack reserve for safe call or invalid arguments: " + "nargs=%ld < 0 (?), nrets=%ld < 0 (?), top=%ld < bottom=%ld + nargs=%ld (?), " + "end=%ld + nargs=%ld < top=%ld + nrets=%ld (?)", + (long) nargs, + (long) nrets, + (long) (thr->valstack_top - thr->valstack), + (long) (thr->valstack_bottom - thr->valstack), + (long) nargs, + (long) (thr->valstack_end - thr->valstack), + (long) nargs, + (long) (thr->valstack_top - thr->valstack), + (long) nrets)); + DUK_ERROR_TYPE_INVALID_ARGS(thr); + DUK_WO_NORETURN(return DUK_EXEC_ERROR;); + } + + rc = duk_handle_safe_call(thr, /* thread */ + func, /* func */ + udata, /* udata */ + nargs, /* num_stack_args */ + nrets); /* num_stack_res */ + + return rc; +} + +DUK_EXTERNAL void duk_new(duk_hthread *thr, duk_idx_t nargs) { + duk_idx_t idx_func; + + DUK_ASSERT_API_ENTRY(thr); + + idx_func = duk__call_get_idx_func(thr, nargs, 1); + DUK_ASSERT(duk_is_valid_index(thr, idx_func)); + + duk_push_object(thr); /* default instance; internal proto updated by call handling */ + duk_insert(thr, idx_func + 1); + + duk_handle_call_unprotected(thr, idx_func, DUK_CALL_FLAG_CONSTRUCT); +} + +DUK_LOCAL duk_ret_t duk__pnew_helper(duk_hthread *thr, void *udata) { + duk_idx_t nargs; + + DUK_ASSERT(udata != NULL); + nargs = *((duk_idx_t *) udata); + + duk_new(thr, nargs); + return 1; +} + +DUK_EXTERNAL duk_int_t duk_pnew(duk_hthread *thr, duk_idx_t nargs) { + duk_int_t rc; + + DUK_ASSERT_API_ENTRY(thr); + + /* For now, just use duk_safe_call() to wrap duk_new(). We can't + * simply use a protected duk_handle_call() because pushing the + * default instance might throw. + */ + + if (DUK_UNLIKELY(nargs < 0)) { + DUK_ERROR_TYPE_INVALID_ARGS(thr); + DUK_WO_NORETURN(return DUK_EXEC_ERROR;); + } + + rc = duk_safe_call(thr, duk__pnew_helper, (void *) &nargs /*udata*/, nargs + 1 /*nargs*/, 1 /*nrets*/); + return rc; +} + +DUK_EXTERNAL duk_bool_t duk_is_constructor_call(duk_hthread *thr) { + duk_activation *act; + + DUK_ASSERT_API_ENTRY(thr); + + act = thr->callstack_curr; + if (act != NULL) { + return ((act->flags & DUK_ACT_FLAG_CONSTRUCT) != 0 ? 1 : 0); + } + return 0; +} + +DUK_EXTERNAL void duk_require_constructor_call(duk_hthread *thr) { + DUK_ASSERT_API_ENTRY(thr); + + if (!duk_is_constructor_call(thr)) { + DUK_ERROR_TYPE(thr, DUK_STR_CONSTRUCT_ONLY); + DUK_WO_NORETURN(return;); + } +} + +DUK_EXTERNAL duk_bool_t duk_is_strict_call(duk_hthread *thr) { + duk_activation *act; + + /* For user code this could just return 1 (strict) always + * because all Duktape/C functions are considered strict, + * and strict is also the default when nothing is running. + * However, Duktape may call this function internally when + * the current activation is an ECMAScript function, so + * this cannot be replaced by a 'return 1' without fixing + * the internal call sites. + */ + + DUK_ASSERT_API_ENTRY(thr); + + act = thr->callstack_curr; + if (act != NULL) { + return ((act->flags & DUK_ACT_FLAG_STRICT) != 0 ? 1 : 0); + } else { + /* Strict by default. */ + return 1; + } +} + +/* + * Duktape/C function magic + */ + +DUK_EXTERNAL duk_int_t duk_get_current_magic(duk_hthread *thr) { + duk_activation *act; + duk_hobject *func; + + DUK_ASSERT_API_ENTRY(thr); + + act = thr->callstack_curr; + if (act) { + func = DUK_ACT_GET_FUNC(act); + if (!func) { + duk_tval *tv = &act->tv_func; + duk_small_uint_t lf_flags; + lf_flags = DUK_TVAL_GET_LIGHTFUNC_FLAGS(tv); + return (duk_int_t) DUK_LFUNC_FLAGS_GET_MAGIC(lf_flags); + } + DUK_ASSERT(func != NULL); + + if (DUK_HOBJECT_IS_NATFUNC(func)) { + duk_hnatfunc *nf = (duk_hnatfunc *) func; + return (duk_int_t) nf->magic; + } + } + return 0; +} + +DUK_EXTERNAL duk_int_t duk_get_magic(duk_hthread *thr, duk_idx_t idx) { + duk_tval *tv; + duk_hobject *h; + + DUK_ASSERT_API_ENTRY(thr); + + tv = duk_require_tval(thr, idx); + if (DUK_TVAL_IS_OBJECT(tv)) { + h = DUK_TVAL_GET_OBJECT(tv); + DUK_ASSERT(h != NULL); + if (!DUK_HOBJECT_HAS_NATFUNC(h)) { + goto type_error; + } + return (duk_int_t) ((duk_hnatfunc *) h)->magic; + } else if (DUK_TVAL_IS_LIGHTFUNC(tv)) { + duk_small_uint_t lf_flags = DUK_TVAL_GET_LIGHTFUNC_FLAGS(tv); + return (duk_int_t) DUK_LFUNC_FLAGS_GET_MAGIC(lf_flags); + } + + /* fall through */ + type_error: + DUK_ERROR_TYPE(thr, DUK_STR_UNEXPECTED_TYPE); + DUK_WO_NORETURN(return 0;); +} + +DUK_EXTERNAL void duk_set_magic(duk_hthread *thr, duk_idx_t idx, duk_int_t magic) { + duk_hnatfunc *nf; + + DUK_ASSERT_API_ENTRY(thr); + + nf = duk_require_hnatfunc(thr, idx); + DUK_ASSERT(nf != NULL); + nf->magic = (duk_int16_t) magic; +} + +/* + * Misc helpers + */ + +/* Resolve a bound function on value stack top to a non-bound target + * (leave other values as is). + */ +DUK_INTERNAL void duk_resolve_nonbound_function(duk_hthread *thr) { + duk_tval *tv; + + DUK_HTHREAD_ASSERT_VALID(thr); + + tv = DUK_GET_TVAL_NEGIDX(thr, -1); + if (DUK_TVAL_IS_OBJECT(tv)) { + duk_hobject *h; + + h = DUK_TVAL_GET_OBJECT(tv); + DUK_ASSERT(h != NULL); + if (DUK_HOBJECT_HAS_BOUNDFUNC(h)) { + duk_push_tval(thr, &((duk_hboundfunc *) (void *) h)->target); + duk_replace(thr, -2); +#if 0 + DUK_TVAL_SET_TVAL(tv, &((duk_hboundfunc *) h)->target); + DUK_TVAL_INCREF(thr, tv); + DUK_HOBJECT_DECREF_NORZ(thr, h); +#endif + /* Rely on Function.prototype.bind() on never creating a bound + * function whose target is not proper. This is now safe + * because the target is not even an internal property but a + * struct member. + */ + DUK_ASSERT(duk_is_lightfunc(thr, -1) || duk_is_callable(thr, -1)); + } + } + + /* Lightfuncs cannot be bound but are always callable and + * constructable. + */ +} +#line 1 "duk_api_codec.c" +/* + * Encoding and decoding basic formats: hex, base64. + * + * These are in-place operations which may allow an optimized implementation. + * + * Base-64: https://tools.ietf.org/html/rfc4648#section-4 + */ + +/* #include duk_internal.h -> already included */ + +/* + * Misc helpers + */ + +/* Shared handling for encode/decode argument. Fast path handling for + * buffer and string values because they're the most common. In particular, + * avoid creating a temporary string or buffer when possible. Return value + * is guaranteed to be non-NULL, even for zero length input. + */ +DUK_LOCAL const duk_uint8_t *duk__prep_codec_arg(duk_hthread *thr, duk_idx_t idx, duk_size_t *out_len) { + const void *def_ptr = (const void *) out_len; /* Any non-NULL pointer will do. */ + const void *ptr; + duk_bool_t isbuffer; + + DUK_ASSERT(out_len != NULL); + DUK_ASSERT(def_ptr != NULL); + DUK_ASSERT(duk_is_valid_index(thr, idx)); /* checked by caller */ + + ptr = (const void *) duk_get_buffer_data_raw(thr, idx, out_len, NULL /*def_ptr*/, 0 /*def_size*/, 0 /*throw_flag*/, &isbuffer); + if (isbuffer) { + DUK_ASSERT(ptr != NULL || *out_len == 0U); + if (DUK_UNLIKELY(ptr == NULL)) { + ptr = def_ptr; + } + DUK_ASSERT(ptr != NULL); + } else { + /* For strings a non-NULL pointer is always guaranteed because + * at least a NUL will be present. + */ + ptr = (const void *) duk_to_lstring(thr, idx, out_len); + DUK_ASSERT(ptr != NULL); + } + DUK_ASSERT(ptr != NULL); + return (const duk_uint8_t *) ptr; +} + +/* + * Base64 + */ + +#if defined(DUK_USE_BASE64_SUPPORT) +/* Bytes emitted for number of padding characters in range [0,4]. */ +DUK_LOCAL const duk_int8_t duk__base64_decode_nequal_step[5] = { + 3, /* #### -> 24 bits, emit 3 bytes */ + 2, /* ###= -> 18 bits, emit 2 bytes */ + 1, /* ##== -> 12 bits, emit 1 byte */ + -1, /* #=== -> 6 bits, error */ + 0, /* ==== -> 0 bits, emit 0 bytes */ +}; + +#if defined(DUK_USE_BASE64_FASTPATH) +DUK_LOCAL const duk_uint8_t duk__base64_enctab_fast[64] = { + 0x41U, 0x42U, 0x43U, 0x44U, 0x45U, 0x46U, 0x47U, 0x48U, 0x49U, 0x4aU, 0x4bU, 0x4cU, 0x4dU, 0x4eU, 0x4fU, 0x50U, /* A...P */ + 0x51U, 0x52U, 0x53U, 0x54U, 0x55U, 0x56U, 0x57U, 0x58U, 0x59U, 0x5aU, 0x61U, 0x62U, 0x63U, 0x64U, 0x65U, 0x66U, /* Q...f */ + 0x67U, 0x68U, 0x69U, 0x6aU, 0x6bU, 0x6cU, 0x6dU, 0x6eU, 0x6fU, 0x70U, 0x71U, 0x72U, 0x73U, 0x74U, 0x75U, 0x76U, /* g...v */ + 0x77U, 0x78U, 0x79U, 0x7aU, 0x30U, 0x31U, 0x32U, 0x33U, 0x34U, 0x35U, 0x36U, 0x37U, 0x38U, 0x39U, 0x2bU, 0x2fU /* w.../ */ +}; +#endif /* DUK_USE_BASE64_FASTPATH */ + +#if defined(DUK_USE_BASE64_FASTPATH) +/* Decode table for one byte of input: + * -1 = allowed whitespace + * -2 = padding + * -3 = error + * 0...63 decoded bytes + */ +DUK_LOCAL const duk_int8_t duk__base64_dectab_fast[256] = { + -3, -3, -3, -3, -3, -3, -3, -3, -3, -1, -1, -3, -3, -1, -3, -3, /* 0x00...0x0f */ + -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, /* 0x10...0x1f */ + -1, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, 62, -3, -3, -3, 63, /* 0x20...0x2f */ + 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, -3, -3, -3, -2, -3, -3, /* 0x30...0x3f */ + -3, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, /* 0x40...0x4f */ + 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, -3, -3, -3, -3, -3, /* 0x50...0x5f */ + -3, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, /* 0x60...0x6f */ + 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, -3, -3, -3, -3, -3, /* 0x70...0x7f */ + -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, /* 0x80...0x8f */ + -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, /* 0x90...0x9f */ + -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, /* 0xa0...0xaf */ + -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, /* 0xb0...0xbf */ + -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, /* 0xc0...0xcf */ + -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, /* 0xd0...0xdf */ + -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, /* 0xe0...0xef */ + -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3, -3 /* 0xf0...0xff */ +}; +#endif /* DUK_USE_BASE64_FASTPATH */ + +#if defined(DUK_USE_BASE64_FASTPATH) +DUK_LOCAL DUK_ALWAYS_INLINE void duk__base64_encode_fast_3(const duk_uint8_t *src, duk_uint8_t *dst) { + duk_uint_t t; + + t = (duk_uint_t) src[0]; + t = (t << 8) + (duk_uint_t) src[1]; + t = (t << 8) + (duk_uint_t) src[2]; + + dst[0] = duk__base64_enctab_fast[t >> 18]; + dst[1] = duk__base64_enctab_fast[(t >> 12) & 0x3fU]; + dst[2] = duk__base64_enctab_fast[(t >> 6) & 0x3fU]; + dst[3] = duk__base64_enctab_fast[t & 0x3fU]; + +#if 0 + /* Tested: not faster on x64, most likely due to aliasing between + * output and input index computation. + */ + /* aaaaaabb bbbbcccc ccdddddd */ + dst[0] = duk__base64_enctab_fast[(src[0] >> 2) & 0x3fU]; + dst[1] = duk__base64_enctab_fast[((src[0] << 4) & 0x30U) | ((src[1] >> 4) & 0x0fU)]; + dst[2] = duk__base64_enctab_fast[((src[1] << 2) & 0x3fU) | ((src[2] >> 6) & 0x03U)]; + dst[3] = duk__base64_enctab_fast[src[2] & 0x3fU]; +#endif +} + +DUK_LOCAL DUK_ALWAYS_INLINE void duk__base64_encode_fast_2(const duk_uint8_t *src, duk_uint8_t *dst) { + duk_uint_t t; + + t = (duk_uint_t) src[0]; + t = (t << 8) + (duk_uint_t) src[1]; + dst[0] = duk__base64_enctab_fast[t >> 10]; /* XXXXXX-- -------- */ + dst[1] = duk__base64_enctab_fast[(t >> 4) & 0x3fU]; /* ------XX XXXX---- */ + dst[2] = duk__base64_enctab_fast[(t << 2) & 0x3fU]; /* -------- ----XXXX */ + dst[3] = DUK_ASC_EQUALS; +} + +DUK_LOCAL DUK_ALWAYS_INLINE void duk__base64_encode_fast_1(const duk_uint8_t *src, duk_uint8_t *dst) { + duk_uint_t t; + + t = (duk_uint_t) src[0]; + dst[0] = duk__base64_enctab_fast[t >> 2]; /* XXXXXX-- */ + dst[1] = duk__base64_enctab_fast[(t << 4) & 0x3fU]; /* ------XX */ + dst[2] = DUK_ASC_EQUALS; + dst[3] = DUK_ASC_EQUALS; +} + +DUK_LOCAL void duk__base64_encode_helper(const duk_uint8_t *src, duk_size_t srclen, duk_uint8_t *dst) { + duk_size_t n; + const duk_uint8_t *p; + duk_uint8_t *q; + + n = srclen; + p = src; + q = dst; + + if (n >= 16U) { + /* Fast path, unrolled by 4, allows interleaving. Process + * 12-byte input chunks which encode to 16-char output chunks. + * Only enter when at least one block is emitted (avoids div+mul + * for short inputs too). + */ + const duk_uint8_t *p_end_fast; + + p_end_fast = p + ((n / 12U) * 12U); + DUK_ASSERT(p_end_fast >= p + 12); + do { + duk__base64_encode_fast_3(p, q); + duk__base64_encode_fast_3(p + 3, q + 4); + duk__base64_encode_fast_3(p + 6, q + 8); + duk__base64_encode_fast_3(p + 9, q + 12); + p += 12; + q += 16; + } while (DUK_LIKELY(p != p_end_fast)); + + DUK_ASSERT(src + srclen >= p); + n = (duk_size_t) (src + srclen - p); + DUK_ASSERT(n < 12U); + } + + /* Remainder. */ + while (n >= 3U) { + duk__base64_encode_fast_3(p, q); + p += 3; + q += 4; + n -= 3U; + } + DUK_ASSERT(n == 0U || n == 1U || n == 2U); + if (n == 1U) { + duk__base64_encode_fast_1(p, q); +#if 0 /* Unnecessary. */ + p += 1; + q += 4; + n -= 1U; +#endif + } else if (n == 2U) { + duk__base64_encode_fast_2(p, q); +#if 0 /* Unnecessary. */ + p += 2; + q += 4; + n -= 2U; +#endif + } else { + DUK_ASSERT(n == 0U); /* nothing to do */ + ; + } +} +#else /* DUK_USE_BASE64_FASTPATH */ +DUK_LOCAL void duk__base64_encode_helper(const duk_uint8_t *src, duk_size_t srclen, duk_uint8_t *dst) { + duk_small_uint_t i, npad; + duk_uint_t t, x, y; + const duk_uint8_t *p; + const duk_uint8_t *p_end; + duk_uint8_t *q; + + p = src; + p_end = src + srclen; + q = dst; + npad = 0U; + + while (p < p_end) { + /* Read 3 bytes into 't', padded by zero. */ + t = 0; + for (i = 0; i < 3; i++) { + t = t << 8; + if (p < p_end) { + t += (duk_uint_t) (*p++); + } else { + /* This only happens on the last loop and we're + * guaranteed to exit on the next loop. + */ + npad++; + } + } + DUK_ASSERT(npad <= 2U); + + /* Emit 4 encoded characters. If npad > 0, some of the + * chars will be incorrect (zero bits) but we fix up the + * padding after the loop. A straightforward 64-byte + * lookup would be faster and cleaner, but this is shorter. + */ + for (i = 0; i < 4; i++) { + x = ((t >> 18) & 0x3fU); + t = t << 6; + + if (x <= 51U) { + if (x <= 25) { + y = x + DUK_ASC_UC_A; + } else { + y = x - 26 + DUK_ASC_LC_A; + } + } else { + if (x <= 61U) { + y = x - 52 + DUK_ASC_0; + } else if (x == 62) { + y = DUK_ASC_PLUS; + } else { + DUK_ASSERT(x == 63); + y = DUK_ASC_SLASH; + } + } + + *q++ = (duk_uint8_t) y; + } + } + + /* Handle padding by rewriting 0-2 bogus characters at the end. + * + * Missing bytes npad base64 example + * 0 0 #### + * 1 1 ###= + * 2 2 ##== + */ + DUK_ASSERT(npad <= 2U); + while (npad > 0U) { + *(q - npad) = DUK_ASC_EQUALS; + npad--; + } +} +#endif /* DUK_USE_BASE64_FASTPATH */ + +#if defined(DUK_USE_BASE64_FASTPATH) +DUK_LOCAL duk_bool_t duk__base64_decode_helper(const duk_uint8_t *src, duk_size_t srclen, duk_uint8_t *dst, duk_uint8_t **out_dst_final) { + duk_int_t x; + duk_uint_t t; + duk_small_uint_t n_equal; + duk_int8_t step; + const duk_uint8_t *p; + const duk_uint8_t *p_end; + const duk_uint8_t *p_end_safe; + duk_uint8_t *q; + + DUK_ASSERT(src != NULL); /* Required by pointer arithmetic below, which fails for NULL. */ + + p = src; + p_end = src + srclen; + p_end_safe = p_end - 8; /* If 'src <= src_end_safe', safe to read 8 bytes. */ + q = dst; + + /* Alternate between a fast path which processes clean groups with no + * padding or whitespace, and a slow path which processes one arbitrary + * group and then re-enters the fast path. This handles e.g. base64 + * with newlines reasonably well because the majority of a line is in + * the fast path. + */ + for (;;) { + /* Fast path, on each loop handle two 4-char input groups. + * If both are clean, emit 6 bytes and continue. If first + * is clean, emit 3 bytes and drop out; otherwise emit + * nothing and drop out. This approach could be extended to + * more groups per loop, but for inputs with e.g. periodic + * newlines (which are common) it might not be an improvement. + */ + while (DUK_LIKELY(p <= p_end_safe)) { + duk_int_t t1, t2; + + /* The lookup byte is intentionally sign extended to + * (at least) 32 bits and then ORed. This ensures + * that is at least 1 byte is negative, the highest + * bit of the accumulator will be set at the end and + * we don't need to check every byte. + * + * Read all input bytes first before writing output + * bytes to minimize aliasing. + */ + DUK_DDD(DUK_DDDPRINT("fast loop: p=%p, p_end_safe=%p, p_end=%p", + (const void *) p, (const void *) p_end_safe, (const void *) p_end)); + + t1 = (duk_int_t) duk__base64_dectab_fast[p[0]]; + t1 = (duk_int_t) ((duk_uint_t) t1 << 6) | (duk_int_t) duk__base64_dectab_fast[p[1]]; + t1 = (duk_int_t) ((duk_uint_t) t1 << 6) | (duk_int_t) duk__base64_dectab_fast[p[2]]; + t1 = (duk_int_t) ((duk_uint_t) t1 << 6) | (duk_int_t) duk__base64_dectab_fast[p[3]]; + + t2 = (duk_int_t) duk__base64_dectab_fast[p[4]]; + t2 = (duk_int_t) ((duk_uint_t) t2 << 6) | (duk_int_t) duk__base64_dectab_fast[p[5]]; + t2 = (duk_int_t) ((duk_uint_t) t2 << 6) | (duk_int_t) duk__base64_dectab_fast[p[6]]; + t2 = (duk_int_t) ((duk_uint_t) t2 << 6) | (duk_int_t) duk__base64_dectab_fast[p[7]]; + + q[0] = (duk_uint8_t) (((duk_uint_t) t1 >> 16) & 0xffU); + q[1] = (duk_uint8_t) (((duk_uint_t) t1 >> 8) & 0xffU); + q[2] = (duk_uint8_t) ((duk_uint_t) t1 & 0xffU); + + q[3] = (duk_uint8_t) (((duk_uint_t) t2 >> 16) & 0xffU); + q[4] = (duk_uint8_t) (((duk_uint_t) t2 >> 8) & 0xffU); + q[5] = (duk_uint8_t) ((duk_uint_t) t2 & 0xffU); + + /* Optimistic check using one branch. */ + if (DUK_LIKELY((t1 | t2) >= 0)) { + p += 8; + q += 6; + } else if (t1 >= 0) { + DUK_DDD(DUK_DDDPRINT("fast loop first group was clean, second was not, process one slow path group")); + DUK_ASSERT(t2 < 0); + p += 4; + q += 3; + break; + } else { + DUK_DDD(DUK_DDDPRINT("fast loop first group was not clean, second does not matter, process one slow path group")); + DUK_ASSERT(t1 < 0); + break; + } + } /* fast path */ + + /* Slow path step 1: try to scan a 4-character encoded group, + * end-of-input, or start-of-padding. We exit with: + * 1. n_chars == 4: full group, no padding, no end-of-input. + * 2. n_chars < 4: partial group (may also be 0), encountered + * padding or end of input. + * + * The accumulator is initialized to 1; this allows us to detect + * a full group by comparing >= 0x1000000 without an extra + * counter variable. + */ + t = 1UL; + for (;;) { + DUK_DDD(DUK_DDDPRINT("slow loop: p=%p, p_end=%p, t=%lu", + (const void *) p, (const void *) p_end, (unsigned long) t)); + + if (DUK_LIKELY(p < p_end)) { + x = duk__base64_dectab_fast[*p++]; + if (DUK_LIKELY(x >= 0)) { + DUK_ASSERT(x >= 0 && x <= 63); + t = (t << 6) + (duk_uint_t) x; + if (t >= 0x1000000UL) { + break; + } + } else if (x == -1) { + continue; /* allowed ascii whitespace */ + } else if (x == -2) { + p--; + break; /* start of padding */ + } else { + DUK_ASSERT(x == -3); + goto decode_error; + } + } else { + break; /* end of input */ + } + } /* slow path step 1 */ + + /* Complete the padding by simulating pad characters, + * regardless of actual input padding chars. + */ + n_equal = 0; + while (t < 0x1000000UL) { + t = (t << 6) + 0U; + n_equal++; + } + + /* Slow path step 2: deal with full/partial group, padding, + * etc. Note that for num chars in [0,3] we intentionally emit + * 3 bytes but don't step forward that much, buffer space is + * guaranteed in setup. + * + * num chars: + * 0 #### no output (= step 0) + * 1 #=== reject, 6 bits of data + * 2 ##== 12 bits of data, output 1 byte (= step 1) + * 3 ###= 18 bits of data, output 2 bytes (= step 2) + * 4 #### 24 bits of data, output 3 bytes (= step 3) + */ + q[0] = (duk_uint8_t) ((t >> 16) & 0xffU); + q[1] = (duk_uint8_t) ((t >> 8) & 0xffU); + q[2] = (duk_uint8_t) (t & 0xffU); + + DUK_ASSERT(n_equal <= 4); + step = duk__base64_decode_nequal_step[n_equal]; + if (DUK_UNLIKELY(step < 0)) { + goto decode_error; + } + q += step; + + /* Slow path step 3: read and ignore padding and whitespace + * until (a) next non-padding and non-whitespace character + * after which we resume the fast path, or (b) end of input. + * This allows us to accept missing, partial, full, and extra + * padding cases uniformly. We also support concatenated + * base-64 documents because we resume scanning afterwards. + * + * Note that to support concatenated documents well, the '=' + * padding found inside the input must also allow for 'extra' + * padding. For example, 'Zm===' decodes to 'f' and has one + * extra padding char. So, 'Zm===Zm' should decode 'ff', even + * though the standard break-up would be 'Zm==' + '=Zm' which + * doesn't make sense. + * + * We also accept prepended padding like '==Zm9', because it + * is equivalent to an empty document with extra padding ('==') + * followed by a valid document. + */ + + for (;;) { + if (DUK_UNLIKELY(p >= p_end)) { + goto done; + } + x = duk__base64_dectab_fast[*p++]; + if (x == -1 || x == -2) { + ; /* padding or whitespace, keep eating */ + } else { + p--; + break; /* backtrack and go back to fast path, even for -1 */ + } + } /* slow path step 3 */ + } /* outer fast+slow path loop */ + + done: + DUK_DDD(DUK_DDDPRINT("done; p=%p, p_end=%p", + (const void *) p, (const void *) p_end)); + + DUK_ASSERT(p == p_end); + + *out_dst_final = q; + return 1; + + decode_error: + return 0; +} +#else /* DUK_USE_BASE64_FASTPATH */ +DUK_LOCAL duk_bool_t duk__base64_decode_helper(const duk_uint8_t *src, duk_size_t srclen, duk_uint8_t *dst, duk_uint8_t **out_dst_final) { + duk_uint_t t, x; + duk_int_t y; + duk_int8_t step; + const duk_uint8_t *p; + const duk_uint8_t *p_end; + duk_uint8_t *q; + /* 0x09, 0x0a, or 0x0d */ + duk_uint32_t mask_white = (1U << 9) | (1U << 10) | (1U << 13); + + /* 't' tracks progress of the decoded group: + * + * t == 1 no valid chars yet + * t >= 0x40 1x6 = 6 bits shifted in + * t >= 0x1000 2x6 = 12 bits shifted in + * t >= 0x40000 3x6 = 18 bits shifted in + * t >= 0x1000000 4x6 = 24 bits shifted in + * + * By initializing t=1 there's no need for a separate counter for + * the number of characters found so far. + */ + p = src; + p_end = src + srclen; + q = dst; + t = 1UL; + + for (;;) { + duk_small_uint_t n_equal; + + DUK_ASSERT(t >= 1U); + if (p >= p_end) { + /* End of input: if input exists, treat like + * start of padding, finish the block, then + * re-enter here to see we're done. + */ + if (t == 1U) { + break; + } else { + goto simulate_padding; + } + } + + x = *p++; + + if (x >= 0x41U) { + /* Valid: a-z and A-Z. */ + DUK_ASSERT(x >= 0x41U && x <= 0xffU); + if (x >= 0x61U && x <= 0x7aU) { + y = (duk_int_t) x - 0x61 + 26; + } else if (x <= 0x5aU) { + y = (duk_int_t) x - 0x41; + } else { + goto decode_error; + } + } else if (x >= 0x30U) { + /* Valid: 0-9 and =. */ + DUK_ASSERT(x >= 0x30U && x <= 0x40U); + if (x <= 0x39U) { + y = (duk_int_t) x - 0x30 + 52; + } else if (x == 0x3dU) { + /* Skip padding and whitespace unless we're in the + * middle of a block. Otherwise complete group by + * simulating shifting in the correct padding. + */ + if (t == 1U) { + continue; + } + goto simulate_padding; + } else { + goto decode_error; + } + } else if (x >= 0x20U) { + /* Valid: +, /, and 0x20 whitespace. */ + DUK_ASSERT(x >= 0x20U && x <= 0x2fU); + if (x == 0x2bU) { + y = 62; + } else if (x == 0x2fU) { + y = 63; + } else if (x == 0x20U) { + continue; + } else { + goto decode_error; + } + } else { + /* Valid: whitespace. */ + duk_uint32_t m; + DUK_ASSERT(x < 0x20U); /* 0x00 to 0x1f */ + m = (1U << x); + if (mask_white & m) { + /* Allow basic ASCII whitespace. */ + continue; + } else { + goto decode_error; + } + } + + DUK_ASSERT(y >= 0 && y <= 63); + t = (t << 6) + (duk_uint_t) y; + if (t < 0x1000000UL) { + continue; + } + /* fall through; no padding will be added */ + + simulate_padding: + n_equal = 0; + while (t < 0x1000000UL) { + t = (t << 6) + 0U; + n_equal++; + } + + /* Output 3 bytes from 't' and advance as needed. */ + q[0] = (duk_uint8_t) ((t >> 16) & 0xffU); + q[1] = (duk_uint8_t) ((t >> 8) & 0xffU); + q[2] = (duk_uint8_t) (t & 0xffU); + + DUK_ASSERT(n_equal <= 4U); + step = duk__base64_decode_nequal_step[n_equal]; + if (step < 0) { + goto decode_error; + } + q += step; + + /* Re-enter loop. The actual padding characters are skipped + * by the main loop. This handles cases like missing, partial, + * full, and extra padding, and allows parsing of concatenated + * documents (with extra padding) like: Zm===Zm. Also extra + * prepended padding is accepted: ===Zm9v. + */ + t = 1U; + } + DUK_ASSERT(t == 1UL); + + *out_dst_final = q; + return 1; + + decode_error: + return 0; +} +#endif /* DUK_USE_BASE64_FASTPATH */ + +DUK_EXTERNAL const char *duk_base64_encode(duk_hthread *thr, duk_idx_t idx) { + const duk_uint8_t *src; + duk_size_t srclen; + duk_size_t dstlen; + duk_uint8_t *dst; + const char *ret; + + DUK_ASSERT_API_ENTRY(thr); + + idx = duk_require_normalize_index(thr, idx); + src = duk__prep_codec_arg(thr, idx, &srclen); + DUK_ASSERT(src != NULL); + + /* Compute exact output length. Computation must not wrap; this + * limit works for 32-bit size_t: + * >>> srclen = 3221225469 + * >>> '%x' % ((srclen + 2) / 3 * 4) + * 'fffffffc' + */ + if (srclen > 3221225469UL) { + goto type_error; + } + dstlen = (srclen + 2U) / 3U * 4U; + dst = (duk_uint8_t *) duk_push_fixed_buffer_nozero(thr, dstlen); + + duk__base64_encode_helper((const duk_uint8_t *) src, srclen, dst); + + ret = duk_buffer_to_string(thr, -1); /* Safe, result is ASCII. */ + duk_replace(thr, idx); + return ret; + + type_error: + DUK_ERROR_TYPE(thr, DUK_STR_BASE64_ENCODE_FAILED); + DUK_WO_NORETURN(return NULL;); +} + +DUK_EXTERNAL void duk_base64_decode(duk_hthread *thr, duk_idx_t idx) { + const duk_uint8_t *src; + duk_size_t srclen; + duk_size_t dstlen; + duk_uint8_t *dst; + duk_uint8_t *dst_final; + + DUK_ASSERT_API_ENTRY(thr); + + idx = duk_require_normalize_index(thr, idx); + src = duk__prep_codec_arg(thr, idx, &srclen); + DUK_ASSERT(src != NULL); + + /* Round up and add safety margin. Avoid addition before division to + * avoid possibility of wrapping. Margin includes +3 for rounding up, + * and +3 for one extra group: the decoder may emit and then backtrack + * a full group (3 bytes) from zero-sized input for technical reasons. + * Similarly, 'xx' may ecause 1+3 = bytes to be emitted and then + * backtracked. + */ + dstlen = (srclen / 4) * 3 + 6; /* upper limit, assuming no whitespace etc */ + dst = (duk_uint8_t *) duk_push_dynamic_buffer(thr, dstlen); + /* Note: for dstlen=0, dst may be NULL */ + + if (!duk__base64_decode_helper((const duk_uint8_t *) src, srclen, dst, &dst_final)) { + goto type_error; + } + + /* XXX: convert to fixed buffer? */ + (void) duk_resize_buffer(thr, -1, (duk_size_t) (dst_final - dst)); + duk_replace(thr, idx); + return; + + type_error: + DUK_ERROR_TYPE(thr, DUK_STR_BASE64_DECODE_FAILED); + DUK_WO_NORETURN(return;); +} +#else /* DUK_USE_BASE64_SUPPORT */ +DUK_EXTERNAL const char *duk_base64_encode(duk_hthread *thr, duk_idx_t idx) { + DUK_UNREF(idx); + DUK_ERROR_UNSUPPORTED(thr); + DUK_WO_NORETURN(return NULL;); +} + +DUK_EXTERNAL void duk_base64_decode(duk_hthread *thr, duk_idx_t idx) { + DUK_UNREF(idx); + DUK_ERROR_UNSUPPORTED(thr); + DUK_WO_NORETURN(return;); +} +#endif /* DUK_USE_BASE64_SUPPORT */ + +/* + * Hex + */ + +#if defined(DUK_USE_HEX_SUPPORT) +DUK_EXTERNAL const char *duk_hex_encode(duk_hthread *thr, duk_idx_t idx) { + const duk_uint8_t *inp; + duk_size_t len; + duk_size_t i; + duk_uint8_t *buf; + const char *ret; +#if defined(DUK_USE_HEX_FASTPATH) + duk_size_t len_safe; + duk_uint16_t *p16; +#endif + + DUK_ASSERT_API_ENTRY(thr); + + idx = duk_require_normalize_index(thr, idx); + inp = duk__prep_codec_arg(thr, idx, &len); + DUK_ASSERT(inp != NULL); + + /* Fixed buffer, no zeroing because we'll fill all the data. */ + buf = (duk_uint8_t *) duk_push_fixed_buffer_nozero(thr, len * 2); + DUK_ASSERT(buf != NULL); + +#if defined(DUK_USE_HEX_FASTPATH) + DUK_ASSERT((((duk_size_t) buf) & 0x01U) == 0); /* pointer is aligned, guaranteed for fixed buffer */ + p16 = (duk_uint16_t *) (void *) buf; + len_safe = len & ~0x03U; + for (i = 0; i < len_safe; i += 4) { + p16[0] = duk_hex_enctab[inp[i]]; + p16[1] = duk_hex_enctab[inp[i + 1]]; + p16[2] = duk_hex_enctab[inp[i + 2]]; + p16[3] = duk_hex_enctab[inp[i + 3]]; + p16 += 4; + } + for (; i < len; i++) { + *p16++ = duk_hex_enctab[inp[i]]; + } +#else /* DUK_USE_HEX_FASTPATH */ + for (i = 0; i < len; i++) { + duk_small_uint_t t; + t = (duk_small_uint_t) inp[i]; + buf[i*2 + 0] = duk_lc_digits[t >> 4]; + buf[i*2 + 1] = duk_lc_digits[t & 0x0f]; + } +#endif /* DUK_USE_HEX_FASTPATH */ + + /* XXX: Using a string return value forces a string intern which is + * not always necessary. As a rough performance measure, hex encode + * time for tests/perf/test-hex-encode.js dropped from ~35s to ~15s + * without string coercion. Change to returning a buffer and let the + * caller coerce to string if necessary? + */ + + ret = duk_buffer_to_string(thr, -1); /* Safe, result is ASCII. */ + duk_replace(thr, idx); + return ret; +} + +DUK_EXTERNAL void duk_hex_decode(duk_hthread *thr, duk_idx_t idx) { + const duk_uint8_t *inp; + duk_size_t len; + duk_size_t i; + duk_int_t t; + duk_uint8_t *buf; +#if defined(DUK_USE_HEX_FASTPATH) + duk_int_t chk; + duk_uint8_t *p; + duk_size_t len_safe; +#endif + + DUK_ASSERT_API_ENTRY(thr); + + idx = duk_require_normalize_index(thr, idx); + inp = duk__prep_codec_arg(thr, idx, &len); + DUK_ASSERT(inp != NULL); + + if (len & 0x01) { + goto type_error; + } + + /* Fixed buffer, no zeroing because we'll fill all the data. */ + buf = (duk_uint8_t *) duk_push_fixed_buffer_nozero(thr, len / 2); + DUK_ASSERT(buf != NULL); + +#if defined(DUK_USE_HEX_FASTPATH) + p = buf; + len_safe = len & ~0x07U; + for (i = 0; i < len_safe; i += 8) { + t = ((duk_int_t) duk_hex_dectab_shift4[inp[i]]) | + ((duk_int_t) duk_hex_dectab[inp[i + 1]]); + chk = t; + p[0] = (duk_uint8_t) t; + t = ((duk_int_t) duk_hex_dectab_shift4[inp[i + 2]]) | + ((duk_int_t) duk_hex_dectab[inp[i + 3]]); + chk |= t; + p[1] = (duk_uint8_t) t; + t = ((duk_int_t) duk_hex_dectab_shift4[inp[i + 4]]) | + ((duk_int_t) duk_hex_dectab[inp[i + 5]]); + chk |= t; + p[2] = (duk_uint8_t) t; + t = ((duk_int_t) duk_hex_dectab_shift4[inp[i + 6]]) | + ((duk_int_t) duk_hex_dectab[inp[i + 7]]); + chk |= t; + p[3] = (duk_uint8_t) t; + p += 4; + + /* Check if any lookup above had a negative result. */ + if (DUK_UNLIKELY(chk < 0)) { + goto type_error; + } + } + for (; i < len; i += 2) { + /* First cast to duk_int_t to sign extend, second cast to + * duk_uint_t to avoid signed left shift, and final cast to + * duk_int_t result type. + */ + t = (duk_int_t) ((((duk_uint_t) (duk_int_t) duk_hex_dectab[inp[i]]) << 4U) | + ((duk_uint_t) (duk_int_t) duk_hex_dectab[inp[i + 1]])); + if (DUK_UNLIKELY(t < 0)) { + goto type_error; + } + *p++ = (duk_uint8_t) t; + } +#else /* DUK_USE_HEX_FASTPATH */ + for (i = 0; i < len; i += 2) { + /* For invalid characters the value -1 gets extended to + * at least 16 bits. If either nybble is invalid, the + * resulting 't' will be < 0. + */ + t = (duk_int_t) ((((duk_uint_t) (duk_int_t) duk_hex_dectab[inp[i]]) << 4U) | + ((duk_uint_t) (duk_int_t) duk_hex_dectab[inp[i + 1]])); + if (DUK_UNLIKELY(t < 0)) { + goto type_error; + } + buf[i >> 1] = (duk_uint8_t) t; + } +#endif /* DUK_USE_HEX_FASTPATH */ + + duk_replace(thr, idx); + return; + + type_error: + DUK_ERROR_TYPE(thr, DUK_STR_HEX_DECODE_FAILED); + DUK_WO_NORETURN(return;); +} +#else /* DUK_USE_HEX_SUPPORT */ +DUK_EXTERNAL const char *duk_hex_encode(duk_hthread *thr, duk_idx_t idx) { + DUK_UNREF(idx); + DUK_ERROR_UNSUPPORTED(thr); + DUK_WO_NORETURN(return NULL;); +} +DUK_EXTERNAL void duk_hex_decode(duk_hthread *thr, duk_idx_t idx) { + DUK_UNREF(idx); + DUK_ERROR_UNSUPPORTED(thr); + DUK_WO_NORETURN(return;); +} +#endif /* DUK_USE_HEX_SUPPORT */ + +/* + * JSON + */ + +#if defined(DUK_USE_JSON_SUPPORT) +DUK_EXTERNAL const char *duk_json_encode(duk_hthread *thr, duk_idx_t idx) { +#if defined(DUK_USE_ASSERTIONS) + duk_idx_t top_at_entry; +#endif + const char *ret; + + DUK_ASSERT_API_ENTRY(thr); +#if defined(DUK_USE_ASSERTIONS) + top_at_entry = duk_get_top(thr); +#endif + + idx = duk_require_normalize_index(thr, idx); + duk_bi_json_stringify_helper(thr, + idx /*idx_value*/, + DUK_INVALID_INDEX /*idx_replacer*/, + DUK_INVALID_INDEX /*idx_space*/, + 0 /*flags*/); + DUK_ASSERT(duk_is_string(thr, -1)); + duk_replace(thr, idx); + ret = duk_get_string(thr, idx); + + DUK_ASSERT(duk_get_top(thr) == top_at_entry); + + return ret; +} + +DUK_EXTERNAL void duk_json_decode(duk_hthread *thr, duk_idx_t idx) { +#if defined(DUK_USE_ASSERTIONS) + duk_idx_t top_at_entry; +#endif + + DUK_ASSERT_API_ENTRY(thr); +#if defined(DUK_USE_ASSERTIONS) + top_at_entry = duk_get_top(thr); +#endif + + idx = duk_require_normalize_index(thr, idx); + duk_bi_json_parse_helper(thr, + idx /*idx_value*/, + DUK_INVALID_INDEX /*idx_reviver*/, + 0 /*flags*/); + duk_replace(thr, idx); + + DUK_ASSERT(duk_get_top(thr) == top_at_entry); +} +#else /* DUK_USE_JSON_SUPPORT */ +DUK_EXTERNAL const char *duk_json_encode(duk_hthread *thr, duk_idx_t idx) { + DUK_ASSERT_API_ENTRY(thr); + DUK_UNREF(idx); + DUK_ERROR_UNSUPPORTED(thr); + DUK_WO_NORETURN(return NULL;); +} + +DUK_EXTERNAL void duk_json_decode(duk_hthread *thr, duk_idx_t idx) { + DUK_ASSERT_API_ENTRY(thr); + DUK_UNREF(idx); + DUK_ERROR_UNSUPPORTED(thr); + DUK_WO_NORETURN(return;); +} +#endif /* DUK_USE_JSON_SUPPORT */ +#line 1 "duk_api_compile.c" +/* + * Compilation and evaluation + */ + +/* #include duk_internal.h -> already included */ + +typedef struct duk__compile_raw_args duk__compile_raw_args; +struct duk__compile_raw_args { + duk_size_t src_length; /* should be first on 64-bit platforms */ + const duk_uint8_t *src_buffer; + duk_uint_t flags; +}; + +/* Eval is just a wrapper now. */ +DUK_EXTERNAL duk_int_t duk_eval_raw(duk_hthread *thr, const char *src_buffer, duk_size_t src_length, duk_uint_t flags) { + duk_int_t rc; + + DUK_ASSERT_API_ENTRY(thr); + + /* Note: strictness is *not* inherited from the current Duktape/C. + * This would be confusing because the current strictness state + * depends on whether we're running inside a Duktape/C activation + * (= strict mode) or outside of any activation (= non-strict mode). + * See tests/api/test-eval-strictness.c for more discussion. + */ + + /* [ ... source? filename? ] (depends on flags) */ + + rc = duk_compile_raw(thr, src_buffer, src_length, flags | DUK_COMPILE_EVAL); /* may be safe, or non-safe depending on flags */ + + /* [ ... closure/error ] */ + + if (rc != DUK_EXEC_SUCCESS) { + rc = DUK_EXEC_ERROR; + goto got_rc; + } + + duk_push_global_object(thr); /* explicit 'this' binding, see GH-164 */ + + if (flags & DUK_COMPILE_SAFE) { + rc = duk_pcall_method(thr, 0); + } else { + duk_call_method(thr, 0); + rc = DUK_EXEC_SUCCESS; + } + + /* [ ... result/error ] */ + + got_rc: + if (flags & DUK_COMPILE_NORESULT) { + duk_pop(thr); + } + + return rc; +} + +/* Helper which can be called both directly and with duk_safe_call(). */ +DUK_LOCAL duk_ret_t duk__do_compile(duk_hthread *thr, void *udata) { + duk__compile_raw_args *comp_args; + duk_uint_t flags; + duk_hcompfunc *h_templ; + + DUK_CTX_ASSERT_VALID(thr); + DUK_ASSERT(udata != NULL); + + /* Note: strictness is not inherited from the current Duktape/C + * context. Otherwise it would not be possible to compile + * non-strict code inside a Duktape/C activation (which is + * always strict now). See tests/api/test-eval-strictness.c + * for discussion. + */ + + /* [ ... source? filename? ] (depends on flags) */ + + comp_args = (duk__compile_raw_args *) udata; + flags = comp_args->flags; + + if (flags & DUK_COMPILE_NOFILENAME) { + /* Automatic filename: 'eval' or 'input'. */ + duk_push_hstring_stridx(thr, (flags & DUK_COMPILE_EVAL) ? DUK_STRIDX_EVAL : DUK_STRIDX_INPUT); + } + + /* [ ... source? filename ] */ + + if (!comp_args->src_buffer) { + duk_hstring *h_sourcecode; + + h_sourcecode = duk_get_hstring(thr, -2); + if ((flags & DUK_COMPILE_NOSOURCE) || /* args incorrect */ + (h_sourcecode == NULL)) { /* e.g. duk_push_string_file_raw() pushed undefined */ + DUK_ERROR_TYPE(thr, DUK_STR_NO_SOURCECODE); + DUK_WO_NORETURN(return 0;); + } + DUK_ASSERT(h_sourcecode != NULL); + comp_args->src_buffer = (const duk_uint8_t *) DUK_HSTRING_GET_DATA(h_sourcecode); + comp_args->src_length = (duk_size_t) DUK_HSTRING_GET_BYTELEN(h_sourcecode); + } + DUK_ASSERT(comp_args->src_buffer != NULL); + + if (flags & DUK_COMPILE_FUNCTION) { + flags |= DUK_COMPILE_EVAL | DUK_COMPILE_FUNCEXPR; + } + + /* [ ... source? filename ] */ + + duk_js_compile(thr, comp_args->src_buffer, comp_args->src_length, flags); + + /* [ ... source? func_template ] */ + + if (flags & DUK_COMPILE_NOSOURCE) { + ; + } else { + duk_remove_m2(thr); + } + + /* [ ... func_template ] */ + + h_templ = (duk_hcompfunc *) duk_known_hobject(thr, -1); + duk_js_push_closure(thr, + h_templ, + thr->builtins[DUK_BIDX_GLOBAL_ENV], + thr->builtins[DUK_BIDX_GLOBAL_ENV], + 1 /*add_auto_proto*/); + duk_remove_m2(thr); /* -> [ ... closure ] */ + + /* [ ... closure ] */ + + return 1; +} + +DUK_EXTERNAL duk_int_t duk_compile_raw(duk_hthread *thr, const char *src_buffer, duk_size_t src_length, duk_uint_t flags) { + duk__compile_raw_args comp_args_alloc; + duk__compile_raw_args *comp_args = &comp_args_alloc; + + DUK_ASSERT_API_ENTRY(thr); + + if ((flags & DUK_COMPILE_STRLEN) && (src_buffer != NULL)) { + /* String length is computed here to avoid multiple evaluation + * of a macro argument in the calling side. + */ + src_length = DUK_STRLEN(src_buffer); + } + + comp_args->src_buffer = (const duk_uint8_t *) src_buffer; + comp_args->src_length = src_length; + comp_args->flags = flags; + + /* [ ... source? filename? ] (depends on flags) */ + + if (flags & DUK_COMPILE_SAFE) { + duk_int_t rc; + duk_int_t nargs; + duk_int_t nrets = 1; + + /* Arguments can be: [ source? filename? &comp_args] so that + * nargs is 1 to 3. Call site encodes the correct nargs count + * directly into flags. + */ + nargs = flags & 0x07; + DUK_ASSERT(nargs == ((flags & DUK_COMPILE_NOSOURCE) ? 0 : 1) + + ((flags & DUK_COMPILE_NOFILENAME) ? 0 : 1)); + rc = duk_safe_call(thr, duk__do_compile, (void *) comp_args, nargs, nrets); + + /* [ ... closure ] */ + return rc; + } + + (void) duk__do_compile(thr, (void *) comp_args); + + /* [ ... closure ] */ + return DUK_EXEC_SUCCESS; +} +#line 1 "duk_api_debug.c" +/* + * Debugging related API calls + */ + +/* #include duk_internal.h -> already included */ + +#if defined(DUK_USE_JSON_SUPPORT) +DUK_EXTERNAL void duk_push_context_dump(duk_hthread *thr) { + duk_idx_t idx; + duk_idx_t top; + + DUK_ASSERT_API_ENTRY(thr); + + /* We don't duk_require_stack() here now, but rely on the caller having + * enough space. + */ + + top = duk_get_top(thr); + duk_push_bare_array(thr); + for (idx = 0; idx < top; idx++) { + duk_dup(thr, idx); + duk_put_prop_index(thr, -2, (duk_uarridx_t) idx); + } + + /* XXX: conversion errors should not propagate outwards. + * Perhaps values need to be coerced individually? + */ + duk_bi_json_stringify_helper(thr, + duk_get_top_index(thr), /*idx_value*/ + DUK_INVALID_INDEX, /*idx_replacer*/ + DUK_INVALID_INDEX, /*idx_space*/ + DUK_JSON_FLAG_EXT_CUSTOM | + DUK_JSON_FLAG_ASCII_ONLY | + DUK_JSON_FLAG_AVOID_KEY_QUOTES /*flags*/); + + duk_push_sprintf(thr, "ctx: top=%ld, stack=%s", (long) top, (const char *) duk_safe_to_string(thr, -1)); + duk_replace(thr, -3); /* [ ... arr jsonx(arr) res ] -> [ ... res jsonx(arr) ] */ + duk_pop(thr); + DUK_ASSERT(duk_is_string(thr, -1)); +} +#else /* DUK_USE_JSON_SUPPORT */ +DUK_EXTERNAL void duk_push_context_dump(duk_hthread *thr) { + DUK_ASSERT_API_ENTRY(thr); + DUK_ERROR_UNSUPPORTED(thr); + DUK_WO_NORETURN(return;); +} +#endif /* DUK_USE_JSON_SUPPORT */ + +#if defined(DUK_USE_DEBUGGER_SUPPORT) + +DUK_EXTERNAL void duk_debugger_attach(duk_hthread *thr, + duk_debug_read_function read_cb, + duk_debug_write_function write_cb, + duk_debug_peek_function peek_cb, + duk_debug_read_flush_function read_flush_cb, + duk_debug_write_flush_function write_flush_cb, + duk_debug_request_function request_cb, + duk_debug_detached_function detached_cb, + void *udata) { + duk_heap *heap; + const char *str; + duk_size_t len; + + /* XXX: should there be an error or an automatic detach if + * already attached? + */ + + DUK_D(DUK_DPRINT("application called duk_debugger_attach()")); + + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(read_cb != NULL); + DUK_ASSERT(write_cb != NULL); + /* Other callbacks are optional. */ + + heap = thr->heap; + heap->dbg_read_cb = read_cb; + heap->dbg_write_cb = write_cb; + heap->dbg_peek_cb = peek_cb; + heap->dbg_read_flush_cb = read_flush_cb; + heap->dbg_write_flush_cb = write_flush_cb; + heap->dbg_request_cb = request_cb; + heap->dbg_detached_cb = detached_cb; + heap->dbg_udata = udata; + heap->dbg_have_next_byte = 0; + + /* Start in paused state. */ + heap->dbg_processing = 0; + heap->dbg_state_dirty = 0; + heap->dbg_force_restart = 0; + heap->dbg_pause_flags = 0; + heap->dbg_pause_act = NULL; + heap->dbg_pause_startline = 0; + heap->dbg_exec_counter = 0; + heap->dbg_last_counter = 0; + heap->dbg_last_time = 0.0; + duk_debug_set_paused(heap); /* XXX: overlap with fields above */ + + /* Send version identification and flush right afterwards. Note that + * we must write raw, unframed bytes here. + */ + duk_push_sprintf(thr, "%ld %ld %s %s\n", + (long) DUK_DEBUG_PROTOCOL_VERSION, + (long) DUK_VERSION, + (const char *) DUK_GIT_DESCRIBE, + (const char *) DUK_USE_TARGET_INFO); + str = duk_get_lstring(thr, -1, &len); + DUK_ASSERT(str != NULL); + duk_debug_write_bytes(thr, (const duk_uint8_t *) str, len); + duk_debug_write_flush(thr); + duk_pop(thr); +} + +DUK_EXTERNAL void duk_debugger_detach(duk_hthread *thr) { + DUK_D(DUK_DPRINT("application called duk_debugger_detach()")); + + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(thr->heap != NULL); + + /* Can be called multiple times with no harm. */ + duk_debug_do_detach(thr->heap); +} + +DUK_EXTERNAL void duk_debugger_cooperate(duk_hthread *thr) { + duk_bool_t processed_messages; + + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(thr->heap != NULL); + + if (!duk_debug_is_attached(thr->heap)) { + return; + } + if (thr->callstack_curr != NULL || thr->heap->dbg_processing) { + /* Calling duk_debugger_cooperate() while Duktape is being + * called into is not supported. This is not a 100% check + * but prevents any damage in most cases. + */ + return; + } + + processed_messages = duk_debug_process_messages(thr, 1 /*no_block*/); + DUK_UNREF(processed_messages); +} + +DUK_EXTERNAL duk_bool_t duk_debugger_notify(duk_hthread *thr, duk_idx_t nvalues) { + duk_idx_t top; + duk_idx_t idx; + duk_bool_t ret = 0; + + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(thr->heap != NULL); + + DUK_D(DUK_DPRINT("application called duk_debugger_notify() with nvalues=%ld", (long) nvalues)); + + top = duk_get_top(thr); + if (top < nvalues) { + DUK_ERROR_RANGE(thr, "not enough stack values for notify"); + DUK_WO_NORETURN(return 0;); + } + if (duk_debug_is_attached(thr->heap)) { + duk_debug_write_notify(thr, DUK_DBG_CMD_APPNOTIFY); + for (idx = top - nvalues; idx < top; idx++) { + duk_tval *tv = DUK_GET_TVAL_POSIDX(thr, idx); + duk_debug_write_tval(thr, tv); + } + duk_debug_write_eom(thr); + + /* Return non-zero (true) if we have a good reason to believe + * the notify was delivered; if we're still attached at least + * a transport error was not indicated by the transport write + * callback. This is not a 100% guarantee of course. + */ + if (duk_debug_is_attached(thr->heap)) { + ret = 1; + } + } + duk_pop_n(thr, nvalues); + return ret; +} + +DUK_EXTERNAL void duk_debugger_pause(duk_hthread *thr) { + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(thr->heap != NULL); + + DUK_D(DUK_DPRINT("application called duk_debugger_pause()")); + + /* Treat like a debugger statement: ignore when not attached. */ + if (duk_debug_is_attached(thr->heap)) { + if (duk_debug_is_paused(thr->heap)) { + DUK_D(DUK_DPRINT("duk_debugger_pause() called when already paused; ignoring")); + } else { + duk_debug_set_paused(thr->heap); + + /* Pause on the next opcode executed. This is always safe to do even + * inside the debugger message loop: the interrupt counter will be reset + * to its proper value when the message loop exits. + */ + thr->interrupt_init = 1; + thr->interrupt_counter = 0; + } + } +} + +#else /* DUK_USE_DEBUGGER_SUPPORT */ + +DUK_EXTERNAL void duk_debugger_attach(duk_hthread *thr, + duk_debug_read_function read_cb, + duk_debug_write_function write_cb, + duk_debug_peek_function peek_cb, + duk_debug_read_flush_function read_flush_cb, + duk_debug_write_flush_function write_flush_cb, + duk_debug_request_function request_cb, + duk_debug_detached_function detached_cb, + void *udata) { + DUK_ASSERT_API_ENTRY(thr); + DUK_UNREF(read_cb); + DUK_UNREF(write_cb); + DUK_UNREF(peek_cb); + DUK_UNREF(read_flush_cb); + DUK_UNREF(write_flush_cb); + DUK_UNREF(request_cb); + DUK_UNREF(detached_cb); + DUK_UNREF(udata); + DUK_ERROR_TYPE(thr, "no debugger support"); + DUK_WO_NORETURN(return;); +} + +DUK_EXTERNAL void duk_debugger_detach(duk_hthread *thr) { + DUK_ASSERT_API_ENTRY(thr); + DUK_ERROR_TYPE(thr, "no debugger support"); + DUK_WO_NORETURN(return;); +} + +DUK_EXTERNAL void duk_debugger_cooperate(duk_hthread *thr) { + /* nop */ + DUK_ASSERT_API_ENTRY(thr); + DUK_UNREF(thr); +} + +DUK_EXTERNAL duk_bool_t duk_debugger_notify(duk_hthread *thr, duk_idx_t nvalues) { + duk_idx_t top; + + DUK_ASSERT_API_ENTRY(thr); + + top = duk_get_top(thr); + if (top < nvalues) { + DUK_ERROR_RANGE_INVALID_COUNT(thr); + DUK_WO_NORETURN(return 0;); + } + + /* No debugger support, just pop values. */ + duk_pop_n(thr, nvalues); + return 0; +} + +DUK_EXTERNAL void duk_debugger_pause(duk_hthread *thr) { + /* Treat like debugger statement: nop */ + DUK_ASSERT_API_ENTRY(thr); + DUK_UNREF(thr); +} + +#endif /* DUK_USE_DEBUGGER_SUPPORT */ +#line 1 "duk_api_heap.c" +/* + * Heap creation and destruction + */ + +/* #include duk_internal.h -> already included */ + +typedef struct duk_internal_thread_state duk_internal_thread_state; + +struct duk_internal_thread_state { + duk_ljstate lj; + duk_bool_t creating_error; + duk_hthread *curr_thread; + duk_int_t call_recursion_depth; +}; + +DUK_EXTERNAL duk_hthread *duk_create_heap(duk_alloc_function alloc_func, + duk_realloc_function realloc_func, + duk_free_function free_func, + void *heap_udata, + duk_fatal_function fatal_handler) { + duk_heap *heap = NULL; + duk_hthread *thr; + + /* Assume that either all memory funcs are NULL or non-NULL, mixed + * cases will now be unsafe. + */ + + /* XXX: just assert non-NULL values here and make caller arguments + * do the defaulting to the default implementations (smaller code)? + */ + + if (!alloc_func) { + DUK_ASSERT(realloc_func == NULL); + DUK_ASSERT(free_func == NULL); +#if defined(DUK_USE_PROVIDE_DEFAULT_ALLOC_FUNCTIONS) + alloc_func = duk_default_alloc_function; + realloc_func = duk_default_realloc_function; + free_func = duk_default_free_function; +#else + DUK_D(DUK_DPRINT("no allocation functions given and no default providers")); + return NULL; +#endif + } else { + DUK_ASSERT(realloc_func != NULL); + DUK_ASSERT(free_func != NULL); + } + + if (!fatal_handler) { + fatal_handler = duk_default_fatal_handler; + } + + DUK_ASSERT(alloc_func != NULL); + DUK_ASSERT(realloc_func != NULL); + DUK_ASSERT(free_func != NULL); + DUK_ASSERT(fatal_handler != NULL); + + heap = duk_heap_alloc(alloc_func, realloc_func, free_func, heap_udata, fatal_handler); + if (!heap) { + return NULL; + } + thr = heap->heap_thread; + DUK_ASSERT(thr != NULL); + DUK_ASSERT(thr->heap != NULL); + return thr; +} + +DUK_EXTERNAL void duk_destroy_heap(duk_hthread *thr) { + duk_heap *heap; + + if (!thr) { + return; + } + DUK_ASSERT_API_ENTRY(thr); + heap = thr->heap; + DUK_ASSERT(heap != NULL); + + duk_heap_free(heap); +} + +DUK_EXTERNAL void duk_suspend(duk_hthread *thr, duk_thread_state *state) { + duk_internal_thread_state *snapshot = (duk_internal_thread_state *) (void *) state; + duk_heap *heap; + duk_ljstate *lj; + + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(thr->heap != NULL); + DUK_ASSERT(state != NULL); /* unvalidated */ + + /* Currently not supported when called from within a finalizer. + * If that is done, the finalizer will remain running indefinitely, + * preventing other finalizers from executing. The assert is a bit + * wider, checking that it would be OK to run pending finalizers. + */ + DUK_ASSERT(thr->heap->pf_prevent_count == 0); + + /* Currently not supported to duk_suspend() from an errCreate() + * call. + */ + DUK_ASSERT(thr->heap->creating_error == 0); + + heap = thr->heap; + lj = &heap->lj; + + duk_push_tval(thr, &lj->value1); + duk_push_tval(thr, &lj->value2); + + /* XXX: creating_error == 0 is asserted above, so no need to store. */ + duk_memcpy((void *) &snapshot->lj, (const void *) lj, sizeof(duk_ljstate)); + snapshot->creating_error = heap->creating_error; + snapshot->curr_thread = heap->curr_thread; + snapshot->call_recursion_depth = heap->call_recursion_depth; + + lj->jmpbuf_ptr = NULL; + lj->type = DUK_LJ_TYPE_UNKNOWN; + DUK_TVAL_SET_UNDEFINED(&lj->value1); + DUK_TVAL_SET_UNDEFINED(&lj->value2); + heap->creating_error = 0; + heap->curr_thread = NULL; + heap->call_recursion_depth = 0; +} + +DUK_EXTERNAL void duk_resume(duk_hthread *thr, const duk_thread_state *state) { + const duk_internal_thread_state *snapshot = (const duk_internal_thread_state *) (const void *) state; + duk_heap *heap; + + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(thr->heap != NULL); + DUK_ASSERT(state != NULL); /* unvalidated */ + + /* Shouldn't be necessary if duk_suspend() is called before + * duk_resume(), but assert in case API sequence is incorrect. + */ + DUK_ASSERT(thr->heap->pf_prevent_count == 0); + DUK_ASSERT(thr->heap->creating_error == 0); + + heap = thr->heap; + + duk_memcpy((void *) &heap->lj, (const void *) &snapshot->lj, sizeof(duk_ljstate)); + heap->creating_error = snapshot->creating_error; + heap->curr_thread = snapshot->curr_thread; + heap->call_recursion_depth = snapshot->call_recursion_depth; + + duk_pop_2(thr); +} + +/* XXX: better place for this */ +DUK_EXTERNAL void duk_set_global_object(duk_hthread *thr) { + duk_hobject *h_glob; + duk_hobject *h_prev_glob; + duk_hobjenv *h_env; + duk_hobject *h_prev_env; + + DUK_ASSERT_API_ENTRY(thr); + + DUK_D(DUK_DPRINT("replace global object with: %!T", duk_get_tval(thr, -1))); + + h_glob = duk_require_hobject(thr, -1); + DUK_ASSERT(h_glob != NULL); + + /* + * Replace global object. + */ + + h_prev_glob = thr->builtins[DUK_BIDX_GLOBAL]; + DUK_UNREF(h_prev_glob); + thr->builtins[DUK_BIDX_GLOBAL] = h_glob; + DUK_HOBJECT_INCREF(thr, h_glob); + DUK_HOBJECT_DECREF_ALLOWNULL(thr, h_prev_glob); /* side effects, in theory (referenced by global env) */ + + /* + * Replace lexical environment for global scope + * + * Create a new object environment for the global lexical scope. + * We can't just reset the _Target property of the current one, + * because the lexical scope is shared by other threads with the + * same (initial) built-ins. + */ + + h_env = duk_hobjenv_alloc(thr, + DUK_HOBJECT_FLAG_EXTENSIBLE | + DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_OBJENV)); + DUK_ASSERT(h_env != NULL); + DUK_ASSERT(DUK_HOBJECT_GET_PROTOTYPE(thr->heap, (duk_hobject *) h_env) == NULL); + + DUK_ASSERT(h_env->target == NULL); + DUK_ASSERT(h_glob != NULL); + h_env->target = h_glob; + DUK_HOBJECT_INCREF(thr, h_glob); + DUK_ASSERT(h_env->has_this == 0); + + /* [ ... new_glob ] */ + + h_prev_env = thr->builtins[DUK_BIDX_GLOBAL_ENV]; + thr->builtins[DUK_BIDX_GLOBAL_ENV] = (duk_hobject *) h_env; + DUK_HOBJECT_INCREF(thr, (duk_hobject *) h_env); + DUK_HOBJECT_DECREF_ALLOWNULL(thr, h_prev_env); /* side effects */ + DUK_UNREF(h_env); /* without refcounts */ + DUK_UNREF(h_prev_env); + + /* [ ... new_glob ] */ + + duk_pop(thr); + + /* [ ... ] */ +} +#line 1 "duk_api_inspect.c" +/* + * Inspection + */ + +/* #include duk_internal.h -> already included */ + +/* For footprint efficient multiple value setting: arrays are much better than + * varargs, format string with parsing is often better than string pointer arrays. + */ +DUK_LOCAL void duk__inspect_multiple_uint(duk_hthread *thr, const char *fmt, duk_int_t *vals) { + duk_int_t val; + const char *p; + const char *p_curr; + duk_size_t len; + + for (p = fmt;;) { + len = DUK_STRLEN(p); + p_curr = p; + p += len + 1; + if (len == 0) { + /* Double NUL (= empty key) terminates. */ + break; + } + val = *vals++; + if (val >= 0) { + /* Negative values are markers to skip key. */ + duk_push_string(thr, p_curr); + duk_push_int(thr, val); + duk_put_prop(thr, -3); + } + } +} + +/* Raw helper to extract internal information / statistics about a value. + * The return value is an object with properties that are version specific. + * The properties must not expose anything that would lead to security + * issues (e.g. exposing compiled function 'data' buffer might be an issue). + * Currently only counts and sizes and such are given so there shouldn't + * be security implications. + */ + +#define DUK__IDX_TYPE 0 +#define DUK__IDX_ITAG 1 +#define DUK__IDX_REFC 2 +#define DUK__IDX_HBYTES 3 +#define DUK__IDX_CLASS 4 +#define DUK__IDX_PBYTES 5 +#define DUK__IDX_ESIZE 6 +#define DUK__IDX_ENEXT 7 +#define DUK__IDX_ASIZE 8 +#define DUK__IDX_HSIZE 9 +#define DUK__IDX_BCBYTES 10 +#define DUK__IDX_DBYTES 11 +#define DUK__IDX_TSTATE 12 +#define DUK__IDX_VARIANT 13 + +DUK_EXTERNAL void duk_inspect_value(duk_hthread *thr, duk_idx_t idx) { + duk_tval *tv; + duk_heaphdr *h; + /* The temporary values should be in an array rather than individual + * variables which (in practice) ensures that the compiler won't map + * them to registers and emit a lot of unnecessary shuffling code. + */ + duk_int_t vals[14]; + + DUK_ASSERT_API_ENTRY(thr); + + /* Assume two's complement and set everything to -1. */ + duk_memset((void *) &vals, (int) 0xff, sizeof(vals)); + DUK_ASSERT(vals[DUK__IDX_TYPE] == -1); /* spot check one */ + + tv = duk_get_tval_or_unused(thr, idx); + h = (DUK_TVAL_IS_HEAP_ALLOCATED(tv) ? DUK_TVAL_GET_HEAPHDR(tv) : NULL); + + vals[DUK__IDX_TYPE] = duk_get_type_tval(tv); + vals[DUK__IDX_ITAG] = (duk_int_t) DUK_TVAL_GET_TAG(tv); + + duk_push_bare_object(thr); /* Invalidates 'tv'. */ + tv = NULL; + + if (h == NULL) { + goto finish; + } + duk_push_pointer(thr, (void *) h); + duk_put_prop_literal(thr, -2, "hptr"); + +#if 0 + /* Covers a lot of information, e.g. buffer and string variants. */ + duk_push_uint(thr, (duk_uint_t) DUK_HEAPHDR_GET_FLAGS(h)); + duk_put_prop_literal(thr, -2, "hflags"); +#endif + +#if defined(DUK_USE_REFERENCE_COUNTING) + vals[DUK__IDX_REFC] = (duk_int_t) DUK_HEAPHDR_GET_REFCOUNT(h); +#endif + vals[DUK__IDX_VARIANT] = 0; + + /* Heaphdr size and additional allocation size, followed by + * type specific stuff (with varying value count). + */ + switch ((duk_small_int_t) DUK_HEAPHDR_GET_TYPE(h)) { + case DUK_HTYPE_STRING: { + duk_hstring *h_str = (duk_hstring *) h; + vals[DUK__IDX_HBYTES] = (duk_int_t) (sizeof(duk_hstring) + DUK_HSTRING_GET_BYTELEN(h_str) + 1); +#if defined(DUK_USE_HSTRING_EXTDATA) + if (DUK_HSTRING_HAS_EXTDATA(h_str)) { + vals[DUK__IDX_VARIANT] = 1; + } +#endif + break; + } + case DUK_HTYPE_OBJECT: { + duk_hobject *h_obj = (duk_hobject *) h; + + /* XXX: variants here are maybe pointless; class is enough? */ + if (DUK_HOBJECT_IS_ARRAY(h_obj)) { + vals[DUK__IDX_HBYTES] = sizeof(duk_harray); + } else if (DUK_HOBJECT_IS_COMPFUNC(h_obj)) { + vals[DUK__IDX_HBYTES] = sizeof(duk_hcompfunc); + } else if (DUK_HOBJECT_IS_NATFUNC(h_obj)) { + vals[DUK__IDX_HBYTES] = sizeof(duk_hnatfunc); + } else if (DUK_HOBJECT_IS_THREAD(h_obj)) { + vals[DUK__IDX_HBYTES] = sizeof(duk_hthread); + vals[DUK__IDX_TSTATE] = ((duk_hthread *) h_obj)->state; +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) + } else if (DUK_HOBJECT_IS_BUFOBJ(h_obj)) { + vals[DUK__IDX_HBYTES] = sizeof(duk_hbufobj); + /* XXX: some size information */ +#endif + } else { + vals[DUK__IDX_HBYTES] = (duk_small_uint_t) sizeof(duk_hobject); + } + + vals[DUK__IDX_CLASS] = (duk_int_t) DUK_HOBJECT_GET_CLASS_NUMBER(h_obj); + vals[DUK__IDX_PBYTES] = (duk_int_t) DUK_HOBJECT_P_ALLOC_SIZE(h_obj); + vals[DUK__IDX_ESIZE] = (duk_int_t) DUK_HOBJECT_GET_ESIZE(h_obj); + vals[DUK__IDX_ENEXT] = (duk_int_t) DUK_HOBJECT_GET_ENEXT(h_obj); + vals[DUK__IDX_ASIZE] = (duk_int_t) DUK_HOBJECT_GET_ASIZE(h_obj); + vals[DUK__IDX_HSIZE] = (duk_int_t) DUK_HOBJECT_GET_HSIZE(h_obj); + + /* Note: e_next indicates the number of gc-reachable entries + * in the entry part, and also indicates the index where the + * next new property would be inserted. It does *not* indicate + * the number of non-NULL keys present in the object. That + * value could be counted separately but requires a pass through + * the key list. + */ + + if (DUK_HOBJECT_IS_COMPFUNC(h_obj)) { + duk_hbuffer *h_data = (duk_hbuffer *) DUK_HCOMPFUNC_GET_DATA(thr->heap, (duk_hcompfunc *) h_obj); + vals[DUK__IDX_BCBYTES] = (duk_int_t) (h_data ? DUK_HBUFFER_GET_SIZE(h_data) : 0); + } + break; + } + case DUK_HTYPE_BUFFER: { + duk_hbuffer *h_buf = (duk_hbuffer *) h; + + if (DUK_HBUFFER_HAS_DYNAMIC(h_buf)) { + if (DUK_HBUFFER_HAS_EXTERNAL(h_buf)) { + vals[DUK__IDX_VARIANT] = 2; /* buffer variant 2: external */ + vals[DUK__IDX_HBYTES] = (duk_uint_t) (sizeof(duk_hbuffer_external)); + } else { + /* When alloc_size == 0 the second allocation may not + * actually exist. + */ + vals[DUK__IDX_VARIANT] = 1; /* buffer variant 1: dynamic */ + vals[DUK__IDX_HBYTES] = (duk_uint_t) (sizeof(duk_hbuffer_dynamic)); + } + vals[DUK__IDX_DBYTES] = (duk_int_t) (DUK_HBUFFER_GET_SIZE(h_buf)); + } else { + DUK_ASSERT(vals[DUK__IDX_VARIANT] == 0); /* buffer variant 0: fixed */ + vals[DUK__IDX_HBYTES] = (duk_int_t) (sizeof(duk_hbuffer_fixed) + DUK_HBUFFER_GET_SIZE(h_buf)); + } + break; + } + } + + finish: + duk__inspect_multiple_uint(thr, + "type" "\x00" "itag" "\x00" "refc" "\x00" "hbytes" "\x00" "class" "\x00" + "pbytes" "\x00" "esize" "\x00" "enext" "\x00" "asize" "\x00" "hsize" "\x00" + "bcbytes" "\x00" "dbytes" "\x00" "tstate" "\x00" "variant" "\x00" "\x00", + (duk_int_t *) &vals); +} + +DUK_EXTERNAL void duk_inspect_callstack_entry(duk_hthread *thr, duk_int_t level) { + duk_activation *act; + duk_uint_fast32_t pc; + duk_uint_fast32_t line; + + DUK_ASSERT_API_ENTRY(thr); + + /* -1 = top callstack entry + * -2 = caller of level -1 + * etc + */ + act = duk_hthread_get_activation_for_level(thr, level); + if (act == NULL) { + duk_push_undefined(thr); + return; + } + duk_push_bare_object(thr); + + /* Relevant PC is just before current one because PC is + * post-incremented. This should match what error augment + * code does. + */ + pc = duk_hthread_get_act_prev_pc(thr, act); + + duk_push_tval(thr, &act->tv_func); + + duk_push_uint(thr, (duk_uint_t) pc); + duk_put_prop_stridx_short(thr, -3, DUK_STRIDX_PC); + +#if defined(DUK_USE_PC2LINE) + line = duk_hobject_pc2line_query(thr, -1, pc); +#else + line = 0; +#endif + duk_push_uint(thr, (duk_uint_t) line); + duk_put_prop_stridx_short(thr, -3, DUK_STRIDX_LINE_NUMBER); + + duk_put_prop_stridx_short(thr, -2, DUK_STRIDX_LC_FUNCTION); + /* Providing access to e.g. act->lex_env would be dangerous: these + * internal structures must never be accessible to the application. + * Duktape relies on them having consistent data, and this consistency + * is only asserted for, not checked for. + */ +} + +/* automatic undefs */ +#undef DUK__IDX_ASIZE +#undef DUK__IDX_BCBYTES +#undef DUK__IDX_CLASS +#undef DUK__IDX_DBYTES +#undef DUK__IDX_ENEXT +#undef DUK__IDX_ESIZE +#undef DUK__IDX_HBYTES +#undef DUK__IDX_HSIZE +#undef DUK__IDX_ITAG +#undef DUK__IDX_PBYTES +#undef DUK__IDX_REFC +#undef DUK__IDX_TSTATE +#undef DUK__IDX_TYPE +#undef DUK__IDX_VARIANT +#line 1 "duk_api_memory.c" +/* + * Memory calls. + */ + +/* #include duk_internal.h -> already included */ + +DUK_EXTERNAL void *duk_alloc_raw(duk_hthread *thr, duk_size_t size) { + DUK_ASSERT_API_ENTRY(thr); + + return DUK_ALLOC_RAW(thr->heap, size); +} + +DUK_EXTERNAL void duk_free_raw(duk_hthread *thr, void *ptr) { + DUK_ASSERT_API_ENTRY(thr); + + DUK_FREE_RAW(thr->heap, ptr); +} + +DUK_EXTERNAL void *duk_realloc_raw(duk_hthread *thr, void *ptr, duk_size_t size) { + DUK_ASSERT_API_ENTRY(thr); + + return DUK_REALLOC_RAW(thr->heap, ptr, size); +} + +DUK_EXTERNAL void *duk_alloc(duk_hthread *thr, duk_size_t size) { + DUK_ASSERT_API_ENTRY(thr); + + return DUK_ALLOC(thr->heap, size); +} + +DUK_EXTERNAL void duk_free(duk_hthread *thr, void *ptr) { + DUK_ASSERT_API_ENTRY(thr); + + DUK_FREE_CHECKED(thr, ptr); +} + +DUK_EXTERNAL void *duk_realloc(duk_hthread *thr, void *ptr, duk_size_t size) { + DUK_ASSERT_API_ENTRY(thr); + + /* + * Note: since this is an exposed API call, there should be + * no way a mark-and-sweep could have a side effect on the + * memory allocation behind 'ptr'; the pointer should never + * be something that Duktape wants to change. + * + * Thus, no need to use DUK_REALLOC_INDIRECT (and we don't + * have the storage location here anyway). + */ + + return DUK_REALLOC(thr->heap, ptr, size); +} + +DUK_EXTERNAL void duk_get_memory_functions(duk_hthread *thr, duk_memory_functions *out_funcs) { + duk_heap *heap; + + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(out_funcs != NULL); + DUK_ASSERT(thr != NULL); + DUK_ASSERT(thr->heap != NULL); + + heap = thr->heap; + out_funcs->alloc_func = heap->alloc_func; + out_funcs->realloc_func = heap->realloc_func; + out_funcs->free_func = heap->free_func; + out_funcs->udata = heap->heap_udata; +} + +DUK_EXTERNAL void duk_gc(duk_hthread *thr, duk_uint_t flags) { + duk_heap *heap; + duk_small_uint_t ms_flags; + + DUK_ASSERT_API_ENTRY(thr); + heap = thr->heap; + DUK_ASSERT(heap != NULL); + + DUK_D(DUK_DPRINT("mark-and-sweep requested by application")); + DUK_ASSERT(DUK_GC_COMPACT == DUK_MS_FLAG_EMERGENCY); /* Compact flag is 1:1 with emergency flag which forces compaction. */ + ms_flags = (duk_small_uint_t) flags; + duk_heap_mark_and_sweep(heap, ms_flags); +} +#line 1 "duk_api_object.c" +/* + * Object handling: property access and other support functions. + */ + +/* #include duk_internal.h -> already included */ + +/* + * Property handling + * + * The API exposes only the most common property handling functions. + * The caller can invoke ECMAScript built-ins for full control (e.g. + * defineProperty, getOwnPropertyDescriptor). + */ + +DUK_EXTERNAL duk_bool_t duk_get_prop(duk_hthread *thr, duk_idx_t obj_idx) { + duk_tval *tv_obj; + duk_tval *tv_key; + duk_bool_t rc; + + DUK_ASSERT_API_ENTRY(thr); + + /* Note: copying tv_obj and tv_key to locals to shield against a valstack + * resize is not necessary for a property get right now. + */ + + tv_obj = duk_require_tval(thr, obj_idx); + tv_key = duk_require_tval(thr, -1); + + rc = duk_hobject_getprop(thr, tv_obj, tv_key); + DUK_ASSERT(rc == 0 || rc == 1); + /* a value is left on stack regardless of rc */ + + duk_remove_m2(thr); /* remove key */ + DUK_ASSERT(duk_is_undefined(thr, -1) || rc == 1); + return rc; /* 1 if property found, 0 otherwise */ +} + +DUK_EXTERNAL duk_bool_t duk_get_prop_string(duk_hthread *thr, duk_idx_t obj_idx, const char *key) { + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(key != NULL); + + obj_idx = duk_require_normalize_index(thr, obj_idx); + (void) duk_push_string(thr, key); + return duk_get_prop(thr, obj_idx); +} + +DUK_EXTERNAL duk_bool_t duk_get_prop_lstring(duk_hthread *thr, duk_idx_t obj_idx, const char *key, duk_size_t key_len) { + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(key != NULL); + + obj_idx = duk_require_normalize_index(thr, obj_idx); + (void) duk_push_lstring(thr, key, key_len); + return duk_get_prop(thr, obj_idx); +} + +#if !defined(DUK_USE_PREFER_SIZE) +DUK_EXTERNAL duk_bool_t duk_get_prop_literal_raw(duk_hthread *thr, duk_idx_t obj_idx, const char *key, duk_size_t key_len) { + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(key != NULL); + DUK_ASSERT(key[key_len] == (char) 0); + + obj_idx = duk_require_normalize_index(thr, obj_idx); + (void) duk_push_literal_raw(thr, key, key_len); + return duk_get_prop(thr, obj_idx); +} +#endif + +DUK_EXTERNAL duk_bool_t duk_get_prop_index(duk_hthread *thr, duk_idx_t obj_idx, duk_uarridx_t arr_idx) { + DUK_ASSERT_API_ENTRY(thr); + + obj_idx = duk_require_normalize_index(thr, obj_idx); + duk_push_uarridx(thr, arr_idx); + return duk_get_prop(thr, obj_idx); +} + +DUK_EXTERNAL duk_bool_t duk_get_prop_heapptr(duk_hthread *thr, duk_idx_t obj_idx, void *ptr) { + DUK_ASSERT_API_ENTRY(thr); + + obj_idx = duk_require_normalize_index(thr, obj_idx); + (void) duk_push_heapptr(thr, ptr); /* NULL -> 'undefined' */ + return duk_get_prop(thr, obj_idx); +} + +DUK_INTERNAL duk_bool_t duk_get_prop_stridx(duk_hthread *thr, duk_idx_t obj_idx, duk_small_uint_t stridx) { + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT_STRIDX_VALID(stridx); + + obj_idx = duk_require_normalize_index(thr, obj_idx); + (void) duk_push_hstring(thr, DUK_HTHREAD_GET_STRING(thr, stridx)); + return duk_get_prop(thr, obj_idx); +} + +DUK_INTERNAL duk_bool_t duk_get_prop_stridx_short_raw(duk_hthread *thr, duk_uint_t packed_args) { + return duk_get_prop_stridx(thr, (duk_idx_t) (duk_int16_t) (packed_args >> 16), + (duk_small_uint_t) (packed_args & 0xffffUL)); +} + +DUK_INTERNAL duk_bool_t duk_get_prop_stridx_boolean(duk_hthread *thr, duk_idx_t obj_idx, duk_small_uint_t stridx, duk_bool_t *out_has_prop) { + duk_bool_t rc; + + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT_STRIDX_VALID(stridx); + + rc = duk_get_prop_stridx(thr, obj_idx, stridx); + if (out_has_prop) { + *out_has_prop = rc; + } + return duk_to_boolean_top_pop(thr); +} + +/* This get variant is for internal use, it differs from standard + * duk_get_prop() in that: + * - Object argument must be an object (primitive values not supported). + * - Key argument must be a string (no coercion). + * - Only own properties are checked (no inheritance). Only "entry part" + * properties are checked (not array index properties). + * - Property must be a plain data property, not a getter. + * - Proxy traps are not triggered. + */ +DUK_INTERNAL duk_bool_t duk_xget_owndataprop(duk_hthread *thr, duk_idx_t obj_idx) { + duk_hobject *h_obj; + duk_hstring *h_key; + duk_tval *tv_val; + + DUK_ASSERT_API_ENTRY(thr); + + /* Note: copying tv_obj and tv_key to locals to shield against a valstack + * resize is not necessary for a property get right now. + */ + + h_obj = duk_get_hobject(thr, obj_idx); + if (h_obj == NULL) { + return 0; + } + h_key = duk_require_hstring(thr, -1); + + tv_val = duk_hobject_find_entry_tval_ptr(thr->heap, h_obj, h_key); + if (tv_val == NULL) { + return 0; + } + + duk_push_tval(thr, tv_val); + duk_remove_m2(thr); /* remove key */ + + return 1; +} + +DUK_INTERNAL duk_bool_t duk_xget_owndataprop_stridx(duk_hthread *thr, duk_idx_t obj_idx, duk_small_uint_t stridx) { + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT_STRIDX_VALID(stridx); + + obj_idx = duk_require_normalize_index(thr, obj_idx); + (void) duk_push_hstring(thr, DUK_HTHREAD_GET_STRING(thr, stridx)); + return duk_xget_owndataprop(thr, obj_idx); +} + +DUK_INTERNAL duk_bool_t duk_xget_owndataprop_stridx_short_raw(duk_hthread *thr, duk_uint_t packed_args) { + return duk_xget_owndataprop_stridx(thr, (duk_idx_t) (duk_int16_t) (packed_args >> 16), + (duk_small_uint_t) (packed_args & 0xffffUL)); +} + +DUK_LOCAL duk_bool_t duk__put_prop_shared(duk_hthread *thr, duk_idx_t obj_idx, duk_idx_t idx_key) { + duk_tval *tv_obj; + duk_tval *tv_key; + duk_tval *tv_val; + duk_bool_t throw_flag; + duk_bool_t rc; + + /* Note: copying tv_obj and tv_key to locals to shield against a valstack + * resize is not necessary for a property put right now (putprop protects + * against it internally). + */ + + /* Key and value indices are either (-2, -1) or (-1, -2). Given idx_key, + * idx_val is always (idx_key ^ 0x01). + */ + DUK_ASSERT((idx_key == -2 && (idx_key ^ 1) == -1) || + (idx_key == -1 && (idx_key ^ 1) == -2)); + /* XXX: Direct access; faster validation. */ + tv_obj = duk_require_tval(thr, obj_idx); + tv_key = duk_require_tval(thr, idx_key); + tv_val = duk_require_tval(thr, idx_key ^ 1); + throw_flag = duk_is_strict_call(thr); + + rc = duk_hobject_putprop(thr, tv_obj, tv_key, tv_val, throw_flag); + DUK_ASSERT(rc == 0 || rc == 1); + + duk_pop_2(thr); /* remove key and value */ + return rc; /* 1 if property found, 0 otherwise */ +} + +DUK_EXTERNAL duk_bool_t duk_put_prop(duk_hthread *thr, duk_idx_t obj_idx) { + DUK_ASSERT_API_ENTRY(thr); + return duk__put_prop_shared(thr, obj_idx, -2); +} + +DUK_EXTERNAL duk_bool_t duk_put_prop_string(duk_hthread *thr, duk_idx_t obj_idx, const char *key) { + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(key != NULL); + + /* Careful here and with other duk_put_prop_xxx() helpers: the + * target object and the property value may be in the same value + * stack slot (unusual, but still conceptually clear). + */ + obj_idx = duk_normalize_index(thr, obj_idx); + (void) duk_push_string(thr, key); + return duk__put_prop_shared(thr, obj_idx, -1); +} + +DUK_EXTERNAL duk_bool_t duk_put_prop_lstring(duk_hthread *thr, duk_idx_t obj_idx, const char *key, duk_size_t key_len) { + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(key != NULL); + + obj_idx = duk_normalize_index(thr, obj_idx); + (void) duk_push_lstring(thr, key, key_len); + return duk__put_prop_shared(thr, obj_idx, -1); +} + +#if !defined(DUK_USE_PREFER_SIZE) +DUK_EXTERNAL duk_bool_t duk_put_prop_literal_raw(duk_hthread *thr, duk_idx_t obj_idx, const char *key, duk_size_t key_len) { + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(key != NULL); + DUK_ASSERT(key[key_len] == (char) 0); + + obj_idx = duk_normalize_index(thr, obj_idx); + (void) duk_push_literal_raw(thr, key, key_len); + return duk__put_prop_shared(thr, obj_idx, -1); +} +#endif + +DUK_EXTERNAL duk_bool_t duk_put_prop_index(duk_hthread *thr, duk_idx_t obj_idx, duk_uarridx_t arr_idx) { + DUK_ASSERT_API_ENTRY(thr); + + obj_idx = duk_require_normalize_index(thr, obj_idx); + duk_push_uarridx(thr, arr_idx); + return duk__put_prop_shared(thr, obj_idx, -1); +} + +DUK_EXTERNAL duk_bool_t duk_put_prop_heapptr(duk_hthread *thr, duk_idx_t obj_idx, void *ptr) { + DUK_ASSERT_API_ENTRY(thr); + + obj_idx = duk_require_normalize_index(thr, obj_idx); + (void) duk_push_heapptr(thr, ptr); /* NULL -> 'undefined' */ + return duk__put_prop_shared(thr, obj_idx, -1); +} + + +DUK_INTERNAL duk_bool_t duk_put_prop_stridx(duk_hthread *thr, duk_idx_t obj_idx, duk_small_uint_t stridx) { + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT_STRIDX_VALID(stridx); + + obj_idx = duk_require_normalize_index(thr, obj_idx); + duk_push_hstring(thr, DUK_HTHREAD_GET_STRING(thr, stridx)); + return duk__put_prop_shared(thr, obj_idx, -1); +} + +DUK_INTERNAL duk_bool_t duk_put_prop_stridx_short_raw(duk_hthread *thr, duk_uint_t packed_args) { + return duk_put_prop_stridx(thr, (duk_idx_t) (duk_int16_t) (packed_args >> 16), + (duk_small_uint_t) (packed_args & 0xffffUL)); +} + +DUK_EXTERNAL duk_bool_t duk_del_prop(duk_hthread *thr, duk_idx_t obj_idx) { + duk_tval *tv_obj; + duk_tval *tv_key; + duk_bool_t throw_flag; + duk_bool_t rc; + + DUK_ASSERT_API_ENTRY(thr); + + /* Note: copying tv_obj and tv_key to locals to shield against a valstack + * resize is not necessary for a property delete right now. + */ + + tv_obj = duk_require_tval(thr, obj_idx); + tv_key = duk_require_tval(thr, -1); + throw_flag = duk_is_strict_call(thr); + + rc = duk_hobject_delprop(thr, tv_obj, tv_key, throw_flag); + DUK_ASSERT(rc == 0 || rc == 1); + + duk_pop(thr); /* remove key */ + return rc; +} + +DUK_EXTERNAL duk_bool_t duk_del_prop_string(duk_hthread *thr, duk_idx_t obj_idx, const char *key) { + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(key != NULL); + + obj_idx = duk_require_normalize_index(thr, obj_idx); + (void) duk_push_string(thr, key); + return duk_del_prop(thr, obj_idx); +} + +DUK_EXTERNAL duk_bool_t duk_del_prop_lstring(duk_hthread *thr, duk_idx_t obj_idx, const char *key, duk_size_t key_len) { + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(key != NULL); + + obj_idx = duk_require_normalize_index(thr, obj_idx); + (void) duk_push_lstring(thr, key, key_len); + return duk_del_prop(thr, obj_idx); +} + +#if !defined(DUK_USE_PREFER_SIZE) +DUK_EXTERNAL duk_bool_t duk_del_prop_literal_raw(duk_hthread *thr, duk_idx_t obj_idx, const char *key, duk_size_t key_len) { + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(key != NULL); + DUK_ASSERT(key[key_len] == (char) 0); + + obj_idx = duk_require_normalize_index(thr, obj_idx); + (void) duk_push_literal_raw(thr, key, key_len); + return duk_del_prop(thr, obj_idx); +} +#endif + +DUK_EXTERNAL duk_bool_t duk_del_prop_index(duk_hthread *thr, duk_idx_t obj_idx, duk_uarridx_t arr_idx) { + DUK_ASSERT_API_ENTRY(thr); + + obj_idx = duk_require_normalize_index(thr, obj_idx); + duk_push_uarridx(thr, arr_idx); + return duk_del_prop(thr, obj_idx); +} + +DUK_EXTERNAL duk_bool_t duk_del_prop_heapptr(duk_hthread *thr, duk_idx_t obj_idx, void *ptr) { + DUK_ASSERT_API_ENTRY(thr); + + obj_idx = duk_require_normalize_index(thr, obj_idx); + (void) duk_push_heapptr(thr, ptr); /* NULL -> 'undefined' */ + return duk_del_prop(thr, obj_idx); +} + +DUK_INTERNAL duk_bool_t duk_del_prop_stridx(duk_hthread *thr, duk_idx_t obj_idx, duk_small_uint_t stridx) { + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT_STRIDX_VALID(stridx); + + obj_idx = duk_require_normalize_index(thr, obj_idx); + duk_push_hstring(thr, DUK_HTHREAD_GET_STRING(thr, stridx)); + return duk_del_prop(thr, obj_idx); +} + +#if 0 +DUK_INTERNAL duk_bool_t duk_del_prop_stridx_short_raw(duk_hthread *thr, duk_uint_t packed_args) { + return duk_del_prop_stridx(thr, (duk_idx_t) (duk_int16_t) (packed_args >> 16), + (duk_small_uint_t) (packed_args & 0xffffUL)); +} +#endif + +DUK_EXTERNAL duk_bool_t duk_has_prop(duk_hthread *thr, duk_idx_t obj_idx) { + duk_tval *tv_obj; + duk_tval *tv_key; + duk_bool_t rc; + + DUK_ASSERT_API_ENTRY(thr); + + /* Note: copying tv_obj and tv_key to locals to shield against a valstack + * resize is not necessary for a property existence check right now. + */ + + tv_obj = duk_require_tval(thr, obj_idx); + tv_key = duk_require_tval(thr, -1); + + rc = duk_hobject_hasprop(thr, tv_obj, tv_key); + DUK_ASSERT(rc == 0 || rc == 1); + + duk_pop(thr); /* remove key */ + return rc; /* 1 if property found, 0 otherwise */ +} + +DUK_EXTERNAL duk_bool_t duk_has_prop_string(duk_hthread *thr, duk_idx_t obj_idx, const char *key) { + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(key != NULL); + + obj_idx = duk_require_normalize_index(thr, obj_idx); + (void) duk_push_string(thr, key); + return duk_has_prop(thr, obj_idx); +} + +DUK_EXTERNAL duk_bool_t duk_has_prop_lstring(duk_hthread *thr, duk_idx_t obj_idx, const char *key, duk_size_t key_len) { + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(key != NULL); + + obj_idx = duk_require_normalize_index(thr, obj_idx); + (void) duk_push_lstring(thr, key, key_len); + return duk_has_prop(thr, obj_idx); +} + +#if !defined(DUK_USE_PREFER_SIZE) +DUK_EXTERNAL duk_bool_t duk_has_prop_literal_raw(duk_hthread *thr, duk_idx_t obj_idx, const char *key, duk_size_t key_len) { + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(key != NULL); + DUK_ASSERT(key[key_len] == (char) 0); + + obj_idx = duk_require_normalize_index(thr, obj_idx); + (void) duk_push_literal_raw(thr, key, key_len); + return duk_has_prop(thr, obj_idx); +} +#endif + +DUK_EXTERNAL duk_bool_t duk_has_prop_index(duk_hthread *thr, duk_idx_t obj_idx, duk_uarridx_t arr_idx) { + DUK_ASSERT_API_ENTRY(thr); + + obj_idx = duk_require_normalize_index(thr, obj_idx); + duk_push_uarridx(thr, arr_idx); + return duk_has_prop(thr, obj_idx); +} + +DUK_EXTERNAL duk_bool_t duk_has_prop_heapptr(duk_hthread *thr, duk_idx_t obj_idx, void *ptr) { + DUK_ASSERT_API_ENTRY(thr); + + obj_idx = duk_require_normalize_index(thr, obj_idx); + (void) duk_push_heapptr(thr, ptr); /* NULL -> 'undefined' */ + return duk_has_prop(thr, obj_idx); +} + +DUK_INTERNAL duk_bool_t duk_has_prop_stridx(duk_hthread *thr, duk_idx_t obj_idx, duk_small_uint_t stridx) { + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT_STRIDX_VALID(stridx); + + obj_idx = duk_require_normalize_index(thr, obj_idx); + duk_push_hstring(thr, DUK_HTHREAD_GET_STRING(thr, stridx)); + return duk_has_prop(thr, obj_idx); +} + +#if 0 +DUK_INTERNAL duk_bool_t duk_has_prop_stridx_short_raw(duk_hthread *thr, duk_uint_t packed_args) { + return duk_has_prop_stridx(thr, (duk_idx_t) (duk_int16_t) (packed_args >> 16), + (duk_small_uint_t) (packed_args & 0xffffUL)); +} +#endif + +/* Define own property without inheritance lookups and such. This differs from + * [[DefineOwnProperty]] because special behaviors (like Array 'length') are + * not invoked by this method. The caller must be careful to invoke any such + * behaviors if necessary. + */ +DUK_INTERNAL void duk_xdef_prop(duk_hthread *thr, duk_idx_t obj_idx, duk_small_uint_t desc_flags) { + duk_hobject *obj; + duk_hstring *key; + + DUK_ASSERT_API_ENTRY(thr); + + obj = duk_require_hobject(thr, obj_idx); + DUK_ASSERT(obj != NULL); + key = duk_to_property_key_hstring(thr, -2); + DUK_ASSERT(key != NULL); + DUK_ASSERT(duk_require_tval(thr, -1) != NULL); + + duk_hobject_define_property_internal(thr, obj, key, desc_flags); + + duk_pop(thr); /* pop key */ +} + +DUK_INTERNAL void duk_xdef_prop_index(duk_hthread *thr, duk_idx_t obj_idx, duk_uarridx_t arr_idx, duk_small_uint_t desc_flags) { + duk_hobject *obj; + + DUK_ASSERT_API_ENTRY(thr); + + obj = duk_require_hobject(thr, obj_idx); + DUK_ASSERT(obj != NULL); + + duk_hobject_define_property_internal_arridx(thr, obj, arr_idx, desc_flags); + /* value popped by call */ +} + +DUK_INTERNAL void duk_xdef_prop_stridx(duk_hthread *thr, duk_idx_t obj_idx, duk_small_uint_t stridx, duk_small_uint_t desc_flags) { + duk_hobject *obj; + duk_hstring *key; + + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT_STRIDX_VALID(stridx); + + obj = duk_require_hobject(thr, obj_idx); + DUK_ASSERT(obj != NULL); + key = DUK_HTHREAD_GET_STRING(thr, stridx); + DUK_ASSERT(key != NULL); + DUK_ASSERT(duk_require_tval(thr, -1) != NULL); + + duk_hobject_define_property_internal(thr, obj, key, desc_flags); + /* value popped by call */ +} + +DUK_INTERNAL void duk_xdef_prop_stridx_short_raw(duk_hthread *thr, duk_uint_t packed_args) { + duk_xdef_prop_stridx(thr, (duk_idx_t) (duk_int8_t) (packed_args >> 24), + (duk_small_uint_t) (packed_args >> 8) & 0xffffUL, + (duk_small_uint_t) (packed_args & 0xffL)); +} + +#if 0 /*unused*/ +DUK_INTERNAL void duk_xdef_prop_stridx_builtin(duk_hthread *thr, duk_idx_t obj_idx, duk_small_uint_t stridx, duk_small_int_t builtin_idx, duk_small_uint_t desc_flags) { + duk_hobject *obj; + duk_hstring *key; + + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT_STRIDX_VALID(stridx); + DUK_ASSERT_BIDX_VALID(builtin_idx); + + obj = duk_require_hobject(thr, obj_idx); + DUK_ASSERT(obj != NULL); + key = DUK_HTHREAD_GET_STRING(thr, stridx); + DUK_ASSERT(key != NULL); + + duk_push_hobject(thr, thr->builtins[builtin_idx]); + duk_hobject_define_property_internal(thr, obj, key, desc_flags); + /* value popped by call */ +} +#endif + +/* This is a rare property helper; it sets the global thrower (E5 Section 13.2.3) + * setter/getter into an object property. This is needed by the 'arguments' + * object creation code, function instance creation code, and Function.prototype.bind(). + */ + +DUK_INTERNAL void duk_xdef_prop_stridx_thrower(duk_hthread *thr, duk_idx_t obj_idx, duk_small_uint_t stridx) { + DUK_ASSERT_API_ENTRY(thr); + + obj_idx = duk_require_normalize_index(thr, obj_idx); + duk_push_hstring_stridx(thr, stridx); + duk_push_hobject_bidx(thr, DUK_BIDX_TYPE_ERROR_THROWER); + duk_dup_top(thr); + duk_def_prop(thr, obj_idx, DUK_DEFPROP_HAVE_SETTER | DUK_DEFPROP_HAVE_GETTER | DUK_DEFPROP_FORCE); /* attributes always 0 */ +} + +/* Object.getOwnPropertyDescriptor() equivalent C binding. */ +DUK_EXTERNAL void duk_get_prop_desc(duk_hthread *thr, duk_idx_t obj_idx, duk_uint_t flags) { + DUK_ASSERT_API_ENTRY(thr); + DUK_UNREF(flags); /* no flags defined yet */ + + duk_hobject_object_get_own_property_descriptor(thr, obj_idx); /* [ ... key ] -> [ ... desc ] */ +} + +/* Object.defineProperty() equivalent C binding. */ +DUK_EXTERNAL void duk_def_prop(duk_hthread *thr, duk_idx_t obj_idx, duk_uint_t flags) { + duk_idx_t idx_base; + duk_hobject *obj; + duk_hstring *key; + duk_idx_t idx_value; + duk_hobject *get; + duk_hobject *set; + duk_uint_t is_data_desc; + duk_uint_t is_acc_desc; + + DUK_ASSERT_API_ENTRY(thr); + + obj = duk_require_hobject(thr, obj_idx); + + is_data_desc = flags & (DUK_DEFPROP_HAVE_VALUE | DUK_DEFPROP_HAVE_WRITABLE); + is_acc_desc = flags & (DUK_DEFPROP_HAVE_GETTER | DUK_DEFPROP_HAVE_SETTER); + if (is_data_desc && is_acc_desc) { + /* "Have" flags must not be conflicting so that they would + * apply to both a plain property and an accessor at the same + * time. + */ + goto fail_invalid_desc; + } + + idx_base = duk_get_top_index(thr); + if (flags & DUK_DEFPROP_HAVE_SETTER) { + duk_require_type_mask(thr, idx_base, DUK_TYPE_MASK_UNDEFINED | + DUK_TYPE_MASK_OBJECT | + DUK_TYPE_MASK_LIGHTFUNC); + set = duk_get_hobject_promote_lfunc(thr, idx_base); + if (set != NULL && !DUK_HOBJECT_IS_CALLABLE(set)) { + goto fail_not_callable; + } + idx_base--; + } else { + set = NULL; + } + if (flags & DUK_DEFPROP_HAVE_GETTER) { + duk_require_type_mask(thr, idx_base, DUK_TYPE_MASK_UNDEFINED | + DUK_TYPE_MASK_OBJECT | + DUK_TYPE_MASK_LIGHTFUNC); + get = duk_get_hobject_promote_lfunc(thr, idx_base); + if (get != NULL && !DUK_HOBJECT_IS_CALLABLE(get)) { + goto fail_not_callable; + } + idx_base--; + } else { + get = NULL; + } + if (flags & DUK_DEFPROP_HAVE_VALUE) { + idx_value = idx_base; + idx_base--; + } else { + idx_value = (duk_idx_t) -1; + } + key = duk_to_property_key_hstring(thr, idx_base); + DUK_ASSERT(key != NULL); + + duk_require_valid_index(thr, idx_base); + + duk_hobject_define_property_helper(thr, + flags /*defprop_flags*/, + obj, + key, + idx_value, + get, + set, + 1 /*throw_flag*/); + + /* Clean up stack */ + + duk_set_top(thr, idx_base); + + /* [ ... obj ... ] */ + + return; + + fail_invalid_desc: + DUK_ERROR_TYPE(thr, DUK_STR_INVALID_DESCRIPTOR); + DUK_WO_NORETURN(return;); + + fail_not_callable: + DUK_ERROR_TYPE(thr, DUK_STR_NOT_CALLABLE); + DUK_WO_NORETURN(return;); +} + +/* + * Object related + */ + +DUK_EXTERNAL void duk_compact(duk_hthread *thr, duk_idx_t obj_idx) { + duk_hobject *obj; + + DUK_ASSERT_API_ENTRY(thr); + + obj = duk_get_hobject(thr, obj_idx); + if (obj) { + /* Note: this may fail, caller should protect the call if necessary */ + duk_hobject_compact_props(thr, obj); + } +} + +DUK_INTERNAL void duk_compact_m1(duk_hthread *thr) { + DUK_ASSERT_API_ENTRY(thr); + + duk_compact(thr, -1); +} + +/* XXX: the duk_hobject_enum.c stack APIs should be reworked */ + +DUK_EXTERNAL void duk_enum(duk_hthread *thr, duk_idx_t obj_idx, duk_uint_t enum_flags) { + DUK_ASSERT_API_ENTRY(thr); + + duk_dup(thr, obj_idx); + duk_require_hobject_promote_mask(thr, -1, DUK_TYPE_MASK_LIGHTFUNC | DUK_TYPE_MASK_BUFFER); + duk_hobject_enumerator_create(thr, enum_flags); /* [target] -> [enum] */ +} + +DUK_EXTERNAL duk_bool_t duk_next(duk_hthread *thr, duk_idx_t enum_index, duk_bool_t get_value) { + DUK_ASSERT_API_ENTRY(thr); + + duk_require_hobject(thr, enum_index); + duk_dup(thr, enum_index); + return duk_hobject_enumerator_next(thr, get_value); +} + +DUK_INTERNAL void duk_seal_freeze_raw(duk_hthread *thr, duk_idx_t obj_idx, duk_bool_t is_freeze) { + duk_tval *tv; + duk_hobject *h; + + DUK_ASSERT_API_ENTRY(thr); + + tv = duk_require_tval(thr, obj_idx); + DUK_ASSERT(tv != NULL); + + /* Seal/freeze are quite rare in practice so it'd be nice to get the + * correct behavior simply via automatic promotion (at the cost of some + * memory churn). However, the promoted objects don't behave the same, + * e.g. promoted lightfuncs are extensible. + */ + + switch (DUK_TVAL_GET_TAG(tv)) { + case DUK_TAG_BUFFER: + /* Plain buffer: already sealed, but not frozen (and can't be frozen + * because index properties can't be made non-writable. + */ + if (is_freeze) { + goto fail_cannot_freeze; + } + break; + case DUK_TAG_LIGHTFUNC: + /* Lightfunc: already sealed and frozen, success. */ + break; + case DUK_TAG_OBJECT: + h = DUK_TVAL_GET_OBJECT(tv); + DUK_ASSERT(h != NULL); + if (is_freeze && DUK_HOBJECT_IS_BUFOBJ(h)) { + /* Buffer objects cannot be frozen because there's no internal + * support for making virtual array indices non-writable. + */ + DUK_DD(DUK_DDPRINT("cannot freeze a buffer object")); + goto fail_cannot_freeze; + } + duk_hobject_object_seal_freeze_helper(thr, h, is_freeze); + + /* Sealed and frozen objects cannot gain any more properties, + * so this is a good time to compact them. + */ + duk_hobject_compact_props(thr, h); + break; + default: + /* ES2015 Sections 19.1.2.5, 19.1.2.17 */ + break; + } + return; + + fail_cannot_freeze: + DUK_ERROR_TYPE_INVALID_ARGS(thr); /* XXX: proper error message */ + DUK_WO_NORETURN(return;); +} + +DUK_EXTERNAL void duk_seal(duk_hthread *thr, duk_idx_t obj_idx) { + DUK_ASSERT_API_ENTRY(thr); + + duk_seal_freeze_raw(thr, obj_idx, 0 /*is_freeze*/); +} + +DUK_EXTERNAL void duk_freeze(duk_hthread *thr, duk_idx_t obj_idx) { + DUK_ASSERT_API_ENTRY(thr); + + duk_seal_freeze_raw(thr, obj_idx, 1 /*is_freeze*/); +} + +/* + * Helpers for writing multiple properties + */ + +DUK_EXTERNAL void duk_put_function_list(duk_hthread *thr, duk_idx_t obj_idx, const duk_function_list_entry *funcs) { + const duk_function_list_entry *ent = funcs; + + DUK_ASSERT_API_ENTRY(thr); + + obj_idx = duk_require_normalize_index(thr, obj_idx); + if (ent != NULL) { + while (ent->key != NULL) { + duk_push_c_function(thr, ent->value, ent->nargs); + duk_put_prop_string(thr, obj_idx, ent->key); + ent++; + } + } +} + +DUK_EXTERNAL void duk_put_number_list(duk_hthread *thr, duk_idx_t obj_idx, const duk_number_list_entry *numbers) { + const duk_number_list_entry *ent = numbers; + duk_tval *tv; + + DUK_ASSERT_API_ENTRY(thr); + + obj_idx = duk_require_normalize_index(thr, obj_idx); + if (ent != NULL) { + while (ent->key != NULL) { + tv = thr->valstack_top++; + DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(tv)); /* value stack init policy */ + DUK_TVAL_SET_NUMBER_CHKFAST_SLOW(tv, ent->value); /* no need for decref/incref */ + duk_put_prop_string(thr, obj_idx, ent->key); + ent++; + } + } +} + +/* + * Shortcut for accessing global object properties + */ + +DUK_EXTERNAL duk_bool_t duk_get_global_string(duk_hthread *thr, const char *key) { + duk_bool_t ret; + + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(thr->builtins[DUK_BIDX_GLOBAL] != NULL); + + /* XXX: direct implementation */ + + duk_push_hobject(thr, thr->builtins[DUK_BIDX_GLOBAL]); + ret = duk_get_prop_string(thr, -1, key); + duk_remove_m2(thr); + return ret; +} + +DUK_EXTERNAL duk_bool_t duk_get_global_lstring(duk_hthread *thr, const char *key, duk_size_t key_len) { + duk_bool_t ret; + + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(thr->builtins[DUK_BIDX_GLOBAL] != NULL); + + /* XXX: direct implementation */ + + duk_push_hobject(thr, thr->builtins[DUK_BIDX_GLOBAL]); + ret = duk_get_prop_lstring(thr, -1, key, key_len); + duk_remove_m2(thr); + return ret; +} + +#if !defined(DUK_USE_PREFER_SIZE) +DUK_EXTERNAL duk_bool_t duk_get_global_literal_raw(duk_hthread *thr, const char *key, duk_size_t key_len) { + duk_bool_t ret; + + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(thr->builtins[DUK_BIDX_GLOBAL] != NULL); + DUK_ASSERT(key[key_len] == (char) 0); + + /* XXX: direct implementation */ + + duk_push_hobject(thr, thr->builtins[DUK_BIDX_GLOBAL]); + ret = duk_get_prop_literal_raw(thr, -1, key, key_len); + duk_remove_m2(thr); + return ret; +} +#endif + +DUK_EXTERNAL duk_bool_t duk_get_global_heapptr(duk_hthread *thr, void *ptr) { + duk_bool_t ret; + + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(thr->builtins[DUK_BIDX_GLOBAL] != NULL); + + /* XXX: direct implementation */ + + duk_push_hobject(thr, thr->builtins[DUK_BIDX_GLOBAL]); + ret = duk_get_prop_heapptr(thr, -1, ptr); + duk_remove_m2(thr); + return ret; +} + + +DUK_EXTERNAL duk_bool_t duk_put_global_string(duk_hthread *thr, const char *key) { + duk_bool_t ret; + + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(thr->builtins[DUK_BIDX_GLOBAL] != NULL); + + /* XXX: direct implementation */ + + duk_push_hobject(thr, thr->builtins[DUK_BIDX_GLOBAL]); + duk_insert(thr, -2); + ret = duk_put_prop_string(thr, -2, key); /* [ ... global val ] -> [ ... global ] */ + duk_pop(thr); + return ret; +} + +DUK_EXTERNAL duk_bool_t duk_put_global_lstring(duk_hthread *thr, const char *key, duk_size_t key_len) { + duk_bool_t ret; + + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(thr->builtins[DUK_BIDX_GLOBAL] != NULL); + + /* XXX: direct implementation */ + + duk_push_hobject(thr, thr->builtins[DUK_BIDX_GLOBAL]); + duk_insert(thr, -2); + ret = duk_put_prop_lstring(thr, -2, key, key_len); /* [ ... global val ] -> [ ... global ] */ + duk_pop(thr); + return ret; +} + +#if !defined(DUK_USE_PREFER_SIZE) +DUK_EXTERNAL duk_bool_t duk_put_global_literal_raw(duk_hthread *thr, const char *key, duk_size_t key_len) { + duk_bool_t ret; + + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(thr->builtins[DUK_BIDX_GLOBAL] != NULL); + DUK_ASSERT(key[key_len] == (char) 0); + + /* XXX: direct implementation */ + + duk_push_hobject(thr, thr->builtins[DUK_BIDX_GLOBAL]); + duk_insert(thr, -2); + ret = duk_put_prop_literal_raw(thr, -2, key, key_len); /* [ ... global val ] -> [ ... global ] */ + duk_pop(thr); + return ret; +} +#endif + +DUK_EXTERNAL duk_bool_t duk_put_global_heapptr(duk_hthread *thr, void *ptr) { + duk_bool_t ret; + + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(thr->builtins[DUK_BIDX_GLOBAL] != NULL); + + /* XXX: direct implementation */ + + duk_push_hobject(thr, thr->builtins[DUK_BIDX_GLOBAL]); + duk_insert(thr, -2); + ret = duk_put_prop_heapptr(thr, -2, ptr); /* [ ... global val ] -> [ ... global ] */ + duk_pop(thr); + return ret; +} + +/* + * ES2015 GetMethod() + */ + +DUK_INTERNAL duk_bool_t duk_get_method_stridx(duk_hthread *thr, duk_idx_t idx, duk_small_uint_t stridx) { + (void) duk_get_prop_stridx(thr, idx, stridx); + if (duk_is_null_or_undefined(thr, -1)) { + duk_pop_nodecref_unsafe(thr); + return 0; + } + if (!duk_is_callable(thr, -1)) { + DUK_ERROR_TYPE(thr, DUK_STR_NOT_CALLABLE); + DUK_WO_NORETURN(return 0;); + } + return 1; +} + +/* + * Object prototype + */ + +DUK_EXTERNAL void duk_get_prototype(duk_hthread *thr, duk_idx_t idx) { + duk_hobject *obj; + duk_hobject *proto; + + DUK_ASSERT_API_ENTRY(thr); + + obj = duk_require_hobject(thr, idx); + DUK_ASSERT(obj != NULL); + + /* XXX: shared helper for duk_push_hobject_or_undefined()? */ + proto = DUK_HOBJECT_GET_PROTOTYPE(thr->heap, obj); + if (proto) { + duk_push_hobject(thr, proto); + } else { + duk_push_undefined(thr); + } +} + +DUK_EXTERNAL void duk_set_prototype(duk_hthread *thr, duk_idx_t idx) { + duk_hobject *obj; + duk_hobject *proto; + + DUK_ASSERT_API_ENTRY(thr); + + obj = duk_require_hobject(thr, idx); + DUK_ASSERT(obj != NULL); + duk_require_type_mask(thr, -1, DUK_TYPE_MASK_UNDEFINED | + DUK_TYPE_MASK_OBJECT); + proto = duk_get_hobject(thr, -1); + /* proto can also be NULL here (allowed explicitly) */ + +#if defined(DUK_USE_ROM_OBJECTS) + if (DUK_HEAPHDR_HAS_READONLY((duk_heaphdr *) obj)) { + DUK_ERROR_TYPE(thr, DUK_STR_NOT_CONFIGURABLE); /* XXX: "read only object"? */ + DUK_WO_NORETURN(return;); + } +#endif + + DUK_HOBJECT_SET_PROTOTYPE_UPDREF(thr, obj, proto); + + duk_pop(thr); +} + +DUK_INTERNAL void duk_clear_prototype(duk_hthread *thr, duk_idx_t idx) { + duk_hobject *obj; + + DUK_ASSERT_API_ENTRY(thr); + + obj = duk_require_hobject(thr, idx); + DUK_ASSERT(obj != NULL); + +#if defined(DUK_USE_ROM_OBJECTS) + if (DUK_HEAPHDR_HAS_READONLY((duk_heaphdr *) obj)) { + DUK_ERROR_TYPE(thr, DUK_STR_NOT_CONFIGURABLE); /* XXX: "read only object"? */ + DUK_WO_NORETURN(return;); + } +#endif + + DUK_HOBJECT_SET_PROTOTYPE_UPDREF(thr, obj, NULL); +} + +DUK_INTERNAL duk_bool_t duk_is_bare_object(duk_hthread *thr, duk_idx_t idx) { + duk_hobject *obj; + duk_hobject *proto; + + DUK_ASSERT_API_ENTRY(thr); + + obj = duk_require_hobject(thr, idx); + DUK_ASSERT(obj != NULL); + + proto = DUK_HOBJECT_GET_PROTOTYPE(thr->heap, obj); + return (proto == NULL); +} + +/* + * Object finalizer + */ + +#if defined(DUK_USE_FINALIZER_SUPPORT) +/* XXX: these could be implemented as macros calling an internal function + * directly. + * XXX: same issue as with Duktape.fin: there's no way to delete the property + * now (just set it to undefined). + */ +DUK_EXTERNAL void duk_get_finalizer(duk_hthread *thr, duk_idx_t idx) { + DUK_ASSERT_API_ENTRY(thr); + + /* This get intentionally walks the inheritance chain at present, + * which matches how the effective finalizer property is also + * looked up in GC. + */ + duk_get_prop_stridx(thr, idx, DUK_STRIDX_INT_FINALIZER); +} + +DUK_EXTERNAL void duk_set_finalizer(duk_hthread *thr, duk_idx_t idx) { + duk_hobject *h; + duk_bool_t callable; + + DUK_ASSERT_API_ENTRY(thr); + + h = duk_require_hobject(thr, idx); /* Get before 'put' so that 'idx' is correct. */ + callable = duk_is_callable(thr, -1); + + /* At present finalizer is stored as a hidden Symbol, with normal + * inheritance and access control. As a result, finalizer cannot + * currently be set on a non-extensible (sealed or frozen) object. + * It might be useful to allow it. + */ + duk_put_prop_stridx(thr, idx, DUK_STRIDX_INT_FINALIZER); + + /* In addition to setting the finalizer property, keep a "have + * finalizer" flag in duk_hobject in sync so that refzero can do + * a very quick finalizer check by walking the prototype chain + * and checking the flag alone. (Note that this means that just + * setting _Finalizer on an object won't affect finalizer checks.) + * + * NOTE: if the argument is a Proxy object, this flag will be set + * on the Proxy, not the target. As a result, the target won't get + * a finalizer flag and the Proxy also won't be finalized as there's + * an explicit Proxy check in finalization now. + */ + if (callable) { + DUK_HOBJECT_SET_HAVE_FINALIZER(h); + } else { + DUK_HOBJECT_CLEAR_HAVE_FINALIZER(h); + } +} +#else /* DUK_USE_FINALIZER_SUPPORT */ +DUK_EXTERNAL void duk_get_finalizer(duk_hthread *thr, duk_idx_t idx) { + DUK_ASSERT_API_ENTRY(thr); + DUK_UNREF(idx); + DUK_ERROR_UNSUPPORTED(thr); + DUK_WO_NORETURN(return;); +} + +DUK_EXTERNAL void duk_set_finalizer(duk_hthread *thr, duk_idx_t idx) { + DUK_ASSERT_API_ENTRY(thr); + DUK_UNREF(idx); + DUK_ERROR_UNSUPPORTED(thr); + DUK_WO_NORETURN(return;); +} +#endif /* DUK_USE_FINALIZER_SUPPORT */ +#line 1 "duk_api_random.c" +/* + * Random numbers + */ + +/* #include duk_internal.h -> already included */ + +DUK_EXTERNAL duk_double_t duk_random(duk_hthread *thr) { + return (duk_double_t) DUK_UTIL_GET_RANDOM_DOUBLE(thr); +} +#line 1 "duk_api_stack.c" +/* + * API calls related to general value stack manipulation: resizing the value + * stack, pushing and popping values, type checking and reading values, + * coercing values, etc. + * + * Also contains internal functions (such as duk_get_tval()), defined + * in duk_api_internal.h, with semantics similar to the public API. + */ + +/* XXX: repetition of stack pre-checks -> helper or macro or inline */ +/* XXX: shared api error strings, and perhaps even throw code for rare cases? */ + +/* #include duk_internal.h -> already included */ + +/* + * Forward declarations + */ + +DUK_LOCAL_DECL duk_idx_t duk__push_c_function_raw(duk_hthread *thr, duk_c_function func, duk_idx_t nargs, duk_uint_t flags, duk_small_uint_t proto_bidx); + +/* + * Global state for working around missing variadic macros + */ + +#if !defined(DUK_USE_VARIADIC_MACROS) +DUK_EXTERNAL const char *duk_api_global_filename = NULL; +DUK_EXTERNAL duk_int_t duk_api_global_line = 0; +#endif + +/* + * Misc helpers + */ + +DUK_LOCAL const char * const duk__symbol_type_strings[4] = { + "hidden", "global", "local", "wellknown" +}; + +#if !defined(DUK_USE_PACKED_TVAL) +DUK_LOCAL const duk_uint_t duk__type_from_tag[] = { + DUK_TYPE_NUMBER, + DUK_TYPE_NUMBER, /* fastint */ + DUK_TYPE_UNDEFINED, + DUK_TYPE_NULL, + DUK_TYPE_BOOLEAN, + DUK_TYPE_POINTER, + DUK_TYPE_LIGHTFUNC, + DUK_TYPE_NONE, + DUK_TYPE_STRING, + DUK_TYPE_OBJECT, + DUK_TYPE_BUFFER, +}; +DUK_LOCAL const duk_uint_t duk__type_mask_from_tag[] = { + DUK_TYPE_MASK_NUMBER, + DUK_TYPE_MASK_NUMBER, /* fastint */ + DUK_TYPE_MASK_UNDEFINED, + DUK_TYPE_MASK_NULL, + DUK_TYPE_MASK_BOOLEAN, + DUK_TYPE_MASK_POINTER, + DUK_TYPE_MASK_LIGHTFUNC, + DUK_TYPE_MASK_NONE, + DUK_TYPE_MASK_STRING, + DUK_TYPE_MASK_OBJECT, + DUK_TYPE_MASK_BUFFER, +}; +#endif /* !DUK_USE_PACKED_TVAL */ + +/* Assert that there's room for one value. */ +#define DUK__ASSERT_SPACE() do { \ + DUK_ASSERT(!(thr->valstack_top >= thr->valstack_end)); \ + } while (0) + +/* Check that there's room to push one value. */ +#if defined(DUK_USE_VALSTACK_UNSAFE) +/* Faster but value stack overruns are memory unsafe. */ +#define DUK__CHECK_SPACE() DUK__ASSERT_SPACE() +#else +#define DUK__CHECK_SPACE() do { \ + if (DUK_UNLIKELY(thr->valstack_top >= thr->valstack_end)) { \ + DUK_ERROR_RANGE_PUSH_BEYOND(thr); \ + } \ + } while (0) +#endif + +DUK_LOCAL duk_small_uint_t duk__get_symbol_type(duk_hstring *h) { + const duk_uint8_t *data; + duk_size_t len; + + DUK_ASSERT(h != NULL); + DUK_ASSERT(DUK_HSTRING_HAS_SYMBOL(h)); + DUK_ASSERT(DUK_HSTRING_GET_BYTELEN(h) >= 1); /* always true, symbol prefix */ + + data = (const duk_uint8_t *) DUK_HSTRING_GET_DATA(h); + len = DUK_HSTRING_GET_BYTELEN(h); + DUK_ASSERT(len >= 1); + + /* XXX: differentiate between 0x82 and 0xff (hidden vs. internal?)? */ + + if (data[0] == 0xffU) { + return DUK_SYMBOL_TYPE_HIDDEN; + } else if (data[0] == 0x82U) { + return DUK_SYMBOL_TYPE_HIDDEN; + } else if (data[0] == 0x80U) { + return DUK_SYMBOL_TYPE_GLOBAL; + } else if (data[len - 1] != 0xffU) { + return DUK_SYMBOL_TYPE_LOCAL; + } else { + return DUK_SYMBOL_TYPE_WELLKNOWN; + } +} + +DUK_LOCAL const char *duk__get_symbol_type_string(duk_hstring *h) { + duk_small_uint_t idx; + idx = duk__get_symbol_type(h); + DUK_ASSERT(idx < sizeof(duk__symbol_type_strings)); + return duk__symbol_type_strings[idx]; +} + +DUK_LOCAL_DECL duk_heaphdr *duk__get_tagged_heaphdr_raw(duk_hthread *thr, duk_idx_t idx, duk_uint_t tag); + +DUK_LOCAL duk_int_t duk__api_coerce_d2i(duk_hthread *thr, duk_idx_t idx, duk_int_t def_value, duk_bool_t require) { + duk_tval *tv; + duk_small_int_t c; + duk_double_t d; + + tv = duk_get_tval_or_unused(thr, idx); + DUK_ASSERT(tv != NULL); + + /* + * Special cases like NaN and +/- Infinity are handled explicitly + * because a plain C coercion from double to int handles these cases + * in undesirable ways. For instance, NaN may coerce to INT_MIN + * (not zero), and INT_MAX + 1 may coerce to INT_MIN (not INT_MAX). + * + * This double-to-int coercion differs from ToInteger() because it + * has a finite range (ToInteger() allows e.g. +/- Infinity). It + * also differs from ToInt32() because the INT_MIN/INT_MAX clamping + * depends on the size of the int type on the platform. In particular, + * on platforms with a 64-bit int type, the full range is allowed. + */ + +#if defined(DUK_USE_FASTINT) + if (DUK_TVAL_IS_FASTINT(tv)) { + duk_int64_t t = DUK_TVAL_GET_FASTINT(tv); +#if (DUK_INT_MAX <= 0x7fffffffL) + /* Clamping only necessary for 32-bit ints. */ + if (t < DUK_INT_MIN) { + t = DUK_INT_MIN; + } else if (t > DUK_INT_MAX) { + t = DUK_INT_MAX; + } +#endif + return (duk_int_t) t; + } +#endif + + if (DUK_TVAL_IS_NUMBER(tv)) { + d = DUK_TVAL_GET_NUMBER(tv); + c = (duk_small_int_t) DUK_FPCLASSIFY(d); + if (c == DUK_FP_NAN) { + return 0; + } else if (d < (duk_double_t) DUK_INT_MIN) { + /* covers -Infinity */ + return DUK_INT_MIN; + } else if (d > (duk_double_t) DUK_INT_MAX) { + /* covers +Infinity */ + return DUK_INT_MAX; + } else { + /* coerce towards zero */ + return (duk_int_t) d; + } + } + + if (require) { + DUK_ERROR_REQUIRE_TYPE_INDEX(thr, idx, "number", DUK_STR_NOT_NUMBER); + DUK_WO_NORETURN(return 0;); + } + + return def_value; +} + +DUK_LOCAL duk_uint_t duk__api_coerce_d2ui(duk_hthread *thr, duk_idx_t idx, duk_uint_t def_value, duk_bool_t require) { + duk_tval *tv; + duk_small_int_t c; + duk_double_t d; + + /* Same as above but for unsigned int range. */ + + tv = duk_get_tval_or_unused(thr, idx); + DUK_ASSERT(tv != NULL); + +#if defined(DUK_USE_FASTINT) + if (DUK_TVAL_IS_FASTINT(tv)) { + duk_int64_t t = DUK_TVAL_GET_FASTINT(tv); + if (t < 0) { + t = 0; + } +#if (DUK_UINT_MAX <= 0xffffffffUL) + /* Clamping only necessary for 32-bit ints. */ + else if (t > DUK_UINT_MAX) { + t = DUK_UINT_MAX; + } +#endif + return (duk_uint_t) t; + } +#endif + + if (DUK_TVAL_IS_NUMBER(tv)) { + d = DUK_TVAL_GET_NUMBER(tv); + c = (duk_small_int_t) DUK_FPCLASSIFY(d); + if (c == DUK_FP_NAN) { + return 0; + } else if (d < 0.0) { + /* covers -Infinity */ + return (duk_uint_t) 0; + } else if (d > (duk_double_t) DUK_UINT_MAX) { + /* covers +Infinity */ + return (duk_uint_t) DUK_UINT_MAX; + } else { + /* coerce towards zero */ + return (duk_uint_t) d; + } + } + + if (require) { + DUK_ERROR_REQUIRE_TYPE_INDEX(thr, idx, "number", DUK_STR_NOT_NUMBER); + DUK_WO_NORETURN(return 0;); + } + + return def_value; +} + +/* + * Stack index validation/normalization and getting a stack duk_tval ptr. + * + * These are called by many API entrypoints so the implementations must be + * fast and "inlined". + * + * There's some repetition because of this; keep the functions in sync. + */ + +DUK_EXTERNAL duk_idx_t duk_normalize_index(duk_hthread *thr, duk_idx_t idx) { + duk_uidx_t vs_size; + duk_uidx_t uidx; + + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(DUK_INVALID_INDEX < 0); + + /* Care must be taken to avoid pointer wrapping in the index + * validation. For instance, on a 32-bit platform with 8-byte + * duk_tval the index 0x20000000UL would wrap the memory space + * once. + */ + + /* Assume value stack sizes (in elements) fits into duk_idx_t. */ + DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom); + vs_size = (duk_uidx_t) (thr->valstack_top - thr->valstack_bottom); + DUK_ASSERT_DISABLE(vs_size >= 0); /* unsigned */ + + if (idx < 0) { + uidx = vs_size + (duk_uidx_t) idx; + } else { + /* since index non-negative */ + DUK_ASSERT(idx != DUK_INVALID_INDEX); + uidx = (duk_uidx_t) idx; + } + + /* DUK_INVALID_INDEX won't be accepted as a valid index. */ + DUK_ASSERT(vs_size + (duk_uidx_t) DUK_INVALID_INDEX >= vs_size); + + if (DUK_LIKELY(uidx < vs_size)) { + return (duk_idx_t) uidx; + } + return DUK_INVALID_INDEX; +} + +DUK_EXTERNAL duk_idx_t duk_require_normalize_index(duk_hthread *thr, duk_idx_t idx) { + duk_uidx_t vs_size; + duk_uidx_t uidx; + + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(DUK_INVALID_INDEX < 0); + + DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom); + vs_size = (duk_uidx_t) (thr->valstack_top - thr->valstack_bottom); + DUK_ASSERT_DISABLE(vs_size >= 0); /* unsigned */ + + if (idx < 0) { + uidx = vs_size + (duk_uidx_t) idx; + } else { + DUK_ASSERT(idx != DUK_INVALID_INDEX); + uidx = (duk_uidx_t) idx; + } + + /* DUK_INVALID_INDEX won't be accepted as a valid index. */ + DUK_ASSERT(vs_size + (duk_uidx_t) DUK_INVALID_INDEX >= vs_size); + + if (DUK_LIKELY(uidx < vs_size)) { + return (duk_idx_t) uidx; + } + DUK_ERROR_RANGE_INDEX(thr, idx); + DUK_WO_NORETURN(return 0;); +} + +DUK_INTERNAL duk_tval *duk_get_tval(duk_hthread *thr, duk_idx_t idx) { + duk_uidx_t vs_size; + duk_uidx_t uidx; + + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(DUK_INVALID_INDEX < 0); + + DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom); + vs_size = (duk_uidx_t) (thr->valstack_top - thr->valstack_bottom); + DUK_ASSERT_DISABLE(vs_size >= 0); /* unsigned */ + + if (idx < 0) { + uidx = vs_size + (duk_uidx_t) idx; + } else { + DUK_ASSERT(idx != DUK_INVALID_INDEX); + uidx = (duk_uidx_t) idx; + } + + /* DUK_INVALID_INDEX won't be accepted as a valid index. */ + DUK_ASSERT(vs_size + (duk_uidx_t) DUK_INVALID_INDEX >= vs_size); + + if (DUK_LIKELY(uidx < vs_size)) { + return thr->valstack_bottom + uidx; + } + return NULL; +} + +/* Variant of duk_get_tval() which is guaranteed to return a valid duk_tval + * pointer. When duk_get_tval() would return NULL, this variant returns a + * pointer to a duk_tval with tag DUK_TAG_UNUSED. This allows the call site + * to avoid an unnecessary NULL check which sometimes leads to better code. + * The return duk_tval is read only (at least for the UNUSED value). + */ +DUK_LOCAL const duk_tval_unused duk__const_tval_unused = DUK_TVAL_UNUSED_INITIALIZER(); + +DUK_INTERNAL duk_tval *duk_get_tval_or_unused(duk_hthread *thr, duk_idx_t idx) { + duk_tval *tv; + + DUK_ASSERT_API_ENTRY(thr); + + tv = duk_get_tval(thr, idx); + if (tv != NULL) { + return tv; + } + return (duk_tval *) DUK_LOSE_CONST(&duk__const_tval_unused); +} + +DUK_INTERNAL duk_tval *duk_require_tval(duk_hthread *thr, duk_idx_t idx) { + duk_uidx_t vs_size; + duk_uidx_t uidx; + + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(DUK_INVALID_INDEX < 0); + + DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom); + vs_size = (duk_uidx_t) (thr->valstack_top - thr->valstack_bottom); + DUK_ASSERT_DISABLE(vs_size >= 0); /* unsigned */ + + /* Use unsigned arithmetic to optimize comparison. */ + if (idx < 0) { + uidx = vs_size + (duk_uidx_t) idx; + } else { + DUK_ASSERT(idx != DUK_INVALID_INDEX); + uidx = (duk_uidx_t) idx; + } + + /* DUK_INVALID_INDEX won't be accepted as a valid index. */ + DUK_ASSERT(vs_size + (duk_uidx_t) DUK_INVALID_INDEX >= vs_size); + + if (DUK_LIKELY(uidx < vs_size)) { + return thr->valstack_bottom + uidx; + } + DUK_ERROR_RANGE_INDEX(thr, idx); + DUK_WO_NORETURN(return NULL;); +} + +/* Non-critical. */ +DUK_EXTERNAL duk_bool_t duk_is_valid_index(duk_hthread *thr, duk_idx_t idx) { + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(DUK_INVALID_INDEX < 0); + + return (duk_normalize_index(thr, idx) >= 0); +} + +/* Non-critical. */ +DUK_EXTERNAL void duk_require_valid_index(duk_hthread *thr, duk_idx_t idx) { + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(DUK_INVALID_INDEX < 0); + + if (DUK_UNLIKELY(duk_normalize_index(thr, idx) < 0)) { + DUK_ERROR_RANGE_INDEX(thr, idx); + DUK_WO_NORETURN(return;); + } +} + +/* + * Value stack top handling + */ + +DUK_EXTERNAL duk_idx_t duk_get_top(duk_hthread *thr) { + DUK_ASSERT_API_ENTRY(thr); + + return (duk_idx_t) (thr->valstack_top - thr->valstack_bottom); +} + +/* Internal helper to get current top but to require a minimum top value + * (TypeError if not met). + */ +DUK_INTERNAL duk_idx_t duk_get_top_require_min(duk_hthread *thr, duk_idx_t min_top) { + duk_idx_t ret; + + DUK_ASSERT_API_ENTRY(thr); + + ret = (duk_idx_t) (thr->valstack_top - thr->valstack_bottom); + if (DUK_UNLIKELY(ret < min_top)) { + DUK_ERROR_TYPE_INVALID_ARGS(thr); + DUK_WO_NORETURN(return 0;); + } + return ret; +} + +/* Set stack top within currently allocated range, but don't reallocate. + * This is performance critical especially for call handling, so whenever + * changing, profile and look at generated code. + */ +DUK_EXTERNAL void duk_set_top(duk_hthread *thr, duk_idx_t idx) { + duk_uidx_t vs_size; + duk_uidx_t vs_limit; + duk_uidx_t uidx; + duk_tval *tv; + + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(DUK_INVALID_INDEX < 0); + + DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom); + DUK_ASSERT(thr->valstack_end >= thr->valstack_bottom); + vs_size = (duk_uidx_t) (thr->valstack_top - thr->valstack_bottom); + vs_limit = (duk_uidx_t) (thr->valstack_end - thr->valstack_bottom); + + if (idx < 0) { + /* Negative indices are always within allocated stack but + * must not go below zero index. + */ + uidx = vs_size + (duk_uidx_t) idx; + } else { + /* Positive index can be higher than valstack top but must + * not go above allocated stack (equality is OK). + */ + uidx = (duk_uidx_t) idx; + } + + /* DUK_INVALID_INDEX won't be accepted as a valid index. */ + DUK_ASSERT(vs_size + (duk_uidx_t) DUK_INVALID_INDEX >= vs_size); + DUK_ASSERT(vs_size + (duk_uidx_t) DUK_INVALID_INDEX >= vs_limit); + +#if defined(DUK_USE_VALSTACK_UNSAFE) + DUK_ASSERT(uidx <= vs_limit); + DUK_UNREF(vs_limit); +#else + if (DUK_UNLIKELY(uidx > vs_limit)) { + DUK_ERROR_RANGE_INDEX(thr, idx); + DUK_WO_NORETURN(return;); + } +#endif + DUK_ASSERT(uidx <= vs_limit); + + /* Handle change in value stack top. Respect value stack + * initialization policy: 'undefined' above top. Note that + * DECREF may cause a side effect that reallocates valstack, + * so must relookup after DECREF. + */ + + if (uidx >= vs_size) { + /* Stack size increases or stays the same. */ +#if defined(DUK_USE_ASSERTIONS) + duk_uidx_t count; + + count = uidx - vs_size; + while (count != 0) { + count--; + tv = thr->valstack_top + count; + DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(tv)); + } +#endif + thr->valstack_top = thr->valstack_bottom + uidx; + } else { + /* Stack size decreases. */ +#if defined(DUK_USE_REFERENCE_COUNTING) + duk_uidx_t count; + duk_tval *tv_end; + + count = vs_size - uidx; + DUK_ASSERT(count > 0); + tv = thr->valstack_top; + tv_end = tv - count; + DUK_ASSERT(tv > tv_end); /* Because count > 0. */ + do { + tv--; + DUK_ASSERT(tv >= thr->valstack_bottom); + DUK_TVAL_SET_UNDEFINED_UPDREF_NORZ(thr, tv); + } while (tv != tv_end); + thr->valstack_top = tv_end; + DUK_REFZERO_CHECK_FAST(thr); +#else /* DUK_USE_REFERENCE_COUNTING */ + duk_uidx_t count; + duk_tval *tv_end; + + count = vs_size - uidx; + tv = thr->valstack_top; + tv_end = tv - count; + DUK_ASSERT(tv > tv_end); + do { + tv--; + DUK_TVAL_SET_UNDEFINED(tv); + } while (tv != tv_end); + thr->valstack_top = tv_end; +#endif /* DUK_USE_REFERENCE_COUNTING */ + } +} + +/* Internal variant with a non-negative index and no runtime size checks. */ +#if defined(DUK_USE_PREFER_SIZE) +DUK_INTERNAL void duk_set_top_unsafe(duk_hthread *thr, duk_idx_t idx) { + DUK_ASSERT_API_ENTRY(thr); + + duk_set_top(thr, idx); +} +#else /* DUK_USE_PREFER_SIZE */ +DUK_INTERNAL void duk_set_top_unsafe(duk_hthread *thr, duk_idx_t idx) { + duk_uidx_t uidx; + duk_uidx_t vs_size; + duk_tval *tv; + + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom); + DUK_ASSERT(thr->valstack_end >= thr->valstack_bottom); + DUK_ASSERT(idx >= 0); + DUK_ASSERT(idx <= (duk_idx_t) (thr->valstack_end - thr->valstack_bottom)); + + /* XXX: byte arithmetic */ + uidx = (duk_uidx_t) idx; + vs_size = (duk_uidx_t) (thr->valstack_top - thr->valstack_bottom); + + if (uidx >= vs_size) { + /* Stack size increases or stays the same. */ +#if defined(DUK_USE_ASSERTIONS) + duk_uidx_t count; + + count = uidx - vs_size; + while (count != 0) { + count--; + tv = thr->valstack_top + count; + DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(tv)); + } +#endif + thr->valstack_top = thr->valstack_bottom + uidx; + } else { + /* Stack size decreases. */ +#if defined(DUK_USE_REFERENCE_COUNTING) + duk_uidx_t count; + duk_tval *tv_end; + + count = vs_size - uidx; + DUK_ASSERT(count > 0); + tv = thr->valstack_top; + tv_end = tv - count; + DUK_ASSERT(tv > tv_end); /* Because count > 0. */ + do { + tv--; + DUK_ASSERT(tv >= thr->valstack_bottom); + DUK_TVAL_SET_UNDEFINED_UPDREF_NORZ(thr, tv); + } while (tv != tv_end); + thr->valstack_top = tv_end; + DUK_REFZERO_CHECK_FAST(thr); +#else /* DUK_USE_REFERENCE_COUNTING */ + duk_uidx_t count; + duk_tval *tv_end; + + count = vs_size - uidx; + tv = thr->valstack_top; + tv_end = tv - count; + DUK_ASSERT(tv > tv_end); + do { + tv--; + DUK_TVAL_SET_UNDEFINED(tv); + } while (tv != tv_end); + thr->valstack_top = tv_end; +#endif /* DUK_USE_REFERENCE_COUNTING */ + } +} +#endif /* DUK_USE_PREFER_SIZE */ + +/* Internal helper: set top to 'top', and set [idx_wipe_start,top[ to + * 'undefined' (doing nothing if idx_wipe_start == top). Indices are + * positive and within value stack reserve. This is used by call handling. + */ +DUK_INTERNAL void duk_set_top_and_wipe(duk_hthread *thr, duk_idx_t top, duk_idx_t idx_wipe_start) { + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(top >= 0); + DUK_ASSERT(idx_wipe_start >= 0); + DUK_ASSERT(idx_wipe_start <= top); + DUK_ASSERT(thr->valstack_bottom + top <= thr->valstack_end); + DUK_ASSERT(thr->valstack_bottom + idx_wipe_start <= thr->valstack_end); + + duk_set_top_unsafe(thr, idx_wipe_start); + duk_set_top_unsafe(thr, top); +} + +DUK_EXTERNAL duk_idx_t duk_get_top_index(duk_hthread *thr) { + duk_idx_t ret; + + DUK_ASSERT_API_ENTRY(thr); + + ret = (duk_idx_t) (thr->valstack_top - thr->valstack_bottom) - 1; + if (DUK_UNLIKELY(ret < 0)) { + /* Return invalid index; if caller uses this without checking + * in another API call, the index won't map to a valid stack + * entry. + */ + return DUK_INVALID_INDEX; + } + return ret; +} + +/* Internal variant: call assumes there is at least one element on the value + * stack frame; this is only asserted for. + */ +DUK_INTERNAL duk_idx_t duk_get_top_index_unsafe(duk_hthread *thr) { + duk_idx_t ret; + + DUK_ASSERT_API_ENTRY(thr); + + ret = (duk_idx_t) (thr->valstack_top - thr->valstack_bottom) - 1; + return ret; +} + +DUK_EXTERNAL duk_idx_t duk_require_top_index(duk_hthread *thr) { + duk_idx_t ret; + + DUK_ASSERT_API_ENTRY(thr); + + ret = (duk_idx_t) (thr->valstack_top - thr->valstack_bottom) - 1; + if (DUK_UNLIKELY(ret < 0)) { + DUK_ERROR_RANGE_INDEX(thr, -1); + DUK_WO_NORETURN(return 0;); + } + return ret; +} + +/* + * Value stack resizing. + * + * This resizing happens above the current "top": the value stack can be + * grown or shrunk, but the "top" is not affected. The value stack cannot + * be resized to a size below the current reserve. + * + * The low level reallocation primitive must carefully recompute all value + * stack pointers, and must also work if ALL pointers are NULL. The resize + * is quite tricky because the valstack realloc may cause a mark-and-sweep, + * which may run finalizers. Running finalizers may resize the valstack + * recursively (the same value stack we're working on). So, after realloc + * returns, we know that the valstack bottom, top, and reserve should still + * be the same (there should not be live values above the "top"), but its + * underlying size, alloc_end, and base pointer may have changed. + * + * 'new_size' is known to be <= DUK_USE_VALSTACK_LIMIT, which ensures that + * size_t and pointer arithmetic won't wrap in duk__resize_valstack(). + */ + +/* Low level valstack resize primitive, used for both grow and shrink. All + * adjustments for slack etc have already been done. Doesn't throw but does + * have allocation side effects. + */ +DUK_LOCAL DUK_COLD DUK_NOINLINE duk_bool_t duk__resize_valstack(duk_hthread *thr, duk_size_t new_size) { + duk_tval *pre_valstack; + duk_tval *pre_bottom; + duk_tval *pre_top; + duk_tval *pre_end; + duk_tval *pre_alloc_end; + duk_ptrdiff_t ptr_diff; + duk_tval *new_valstack; + duk_size_t new_alloc_size; + duk_tval *tv_prev_alloc_end; + duk_tval *p; + + DUK_HTHREAD_ASSERT_VALID(thr); + DUK_ASSERT(thr->valstack_bottom >= thr->valstack); + DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom); + DUK_ASSERT(thr->valstack_end >= thr->valstack_top); + DUK_ASSERT(thr->valstack_alloc_end >= thr->valstack_end); + DUK_ASSERT((duk_size_t) (thr->valstack_top - thr->valstack) <= new_size); /* can't resize below 'top' */ + DUK_ASSERT(new_size <= DUK_USE_VALSTACK_LIMIT); /* valstack limit caller has check, prevents wrapping */ + DUK_ASSERT(new_size <= DUK_SIZE_MAX / sizeof(duk_tval)); /* specific assert for wrapping */ + + /* Pre-realloc pointer copies for asserts and debug logs. */ + pre_valstack = thr->valstack; + pre_bottom = thr->valstack_bottom; + pre_top = thr->valstack_top; + pre_end = thr->valstack_end; + pre_alloc_end = thr->valstack_alloc_end; + + DUK_UNREF(pre_valstack); + DUK_UNREF(pre_bottom); + DUK_UNREF(pre_top); + DUK_UNREF(pre_end); + DUK_UNREF(pre_alloc_end); + + /* If finalizer torture enabled, force base pointer change every time + * when it would be allowed. + */ +#if defined(DUK_USE_FINALIZER_TORTURE) + if (thr->heap->pf_prevent_count == 0) { + duk_hthread_valstack_torture_realloc(thr); + } +#endif + + /* Allocate a new valstack using DUK_REALLOC_DIRECT() to deal with + * a side effect changing the base pointer. + */ + new_alloc_size = sizeof(duk_tval) * new_size; + new_valstack = (duk_tval *) DUK_REALLOC_INDIRECT(thr->heap, duk_hthread_get_valstack_ptr, (void *) thr, new_alloc_size); + if (DUK_UNLIKELY(new_valstack == NULL)) { + /* Because new_size != 0, if condition doesn't need to be + * (new_valstack != NULL || new_size == 0). + */ + DUK_ASSERT(new_size != 0); + DUK_D(DUK_DPRINT("failed to resize valstack to %lu entries (%lu bytes)", + (unsigned long) new_size, (unsigned long) new_alloc_size)); + return 0; + } + + /* Debug log any changes in pointer(s) by side effects. These don't + * necessarily imply any incorrect behavior, but should be rare in + * practice. + */ +#if defined(DUK_USE_DEBUG) + if (thr->valstack != pre_valstack) { + DUK_D(DUK_DPRINT("valstack base pointer changed during valstack resize: %p -> %p", + (void *) pre_valstack, (void *) thr->valstack)); + } + if (thr->valstack_bottom != pre_bottom) { + DUK_D(DUK_DPRINT("valstack bottom pointer changed during valstack resize: %p -> %p", + (void *) pre_bottom, (void *) thr->valstack_bottom)); + } + if (thr->valstack_top != pre_top) { + DUK_D(DUK_DPRINT("valstack top pointer changed during valstack resize: %p -> %p", + (void *) pre_top, (void *) thr->valstack_top)); + } + if (thr->valstack_end != pre_end) { + DUK_D(DUK_DPRINT("valstack end pointer changed during valstack resize: %p -> %p", + (void *) pre_end, (void *) thr->valstack_end)); + } + if (thr->valstack_alloc_end != pre_alloc_end) { + DUK_D(DUK_DPRINT("valstack alloc_end pointer changed during valstack resize: %p -> %p", + (void *) pre_alloc_end, (void *) thr->valstack_alloc_end)); + } +#endif + + /* Assertions: offsets for bottom, top, and end (reserve) must not + * have changed even with side effects because they are always + * restored in unwind. For alloc_end there's no guarantee: it may + * have grown or shrunk (but remain above 'end'). + */ + DUK_ASSERT(thr->valstack_bottom - thr->valstack == pre_bottom - pre_valstack); + DUK_ASSERT(thr->valstack_top - thr->valstack == pre_top - pre_valstack); + DUK_ASSERT(thr->valstack_end - thr->valstack == pre_end - pre_valstack); + DUK_ASSERT(thr->valstack_alloc_end >= thr->valstack_end); + + /* Write new pointers. Most pointers can be handled as a pointer + * difference. + */ + ptr_diff = (duk_ptrdiff_t) ((duk_uint8_t *) new_valstack - (duk_uint8_t *) thr->valstack); + tv_prev_alloc_end = (duk_tval *) (void *) ((duk_uint8_t *) thr->valstack_alloc_end + ptr_diff); + thr->valstack = new_valstack; + thr->valstack_bottom = (duk_tval *) (void *) ((duk_uint8_t *) thr->valstack_bottom + ptr_diff); + thr->valstack_top = (duk_tval *) (void *) ((duk_uint8_t *) thr->valstack_top + ptr_diff); + thr->valstack_end = (duk_tval *) (void *) ((duk_uint8_t *) thr->valstack_end + ptr_diff); + thr->valstack_alloc_end = (duk_tval *) (void *) ((duk_uint8_t *) new_valstack + new_alloc_size); + + /* Assertions: pointer sanity after pointer updates. */ + DUK_ASSERT(thr->valstack_bottom >= thr->valstack); + DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom); + DUK_ASSERT(thr->valstack_end >= thr->valstack_top); + DUK_ASSERT(thr->valstack_alloc_end >= thr->valstack_end); + + DUK_D(DUK_DPRINT("resized valstack %lu -> %lu elements (%lu -> %lu bytes): " + "base=%p -> %p, bottom=%p -> %p (%ld), top=%p -> %p (%ld), " + "end=%p -> %p (%ld), alloc_end=%p -> %p (%ld);" + " tv_prev_alloc_end=%p (-> %ld inits; <0 means shrink)", + (unsigned long) (pre_alloc_end - pre_valstack), + (unsigned long) new_size, + (unsigned long) ((duk_uint8_t *) pre_alloc_end - (duk_uint8_t *) pre_valstack), + (unsigned long) new_alloc_size, + (void *) pre_valstack, (void *) thr->valstack, + (void *) pre_bottom, (void *) thr->valstack_bottom, (long) (thr->valstack_bottom - thr->valstack), + (void *) pre_top, (void *) thr->valstack_top, (long) (thr->valstack_top - thr->valstack), + (void *) pre_end, (void *) thr->valstack_end, (long) (thr->valstack_end - thr->valstack), + (void *) pre_alloc_end, (void *) thr->valstack_alloc_end, (long) (thr->valstack_alloc_end - thr->valstack), + (void *) tv_prev_alloc_end, (long) (thr->valstack_alloc_end - tv_prev_alloc_end))); + + /* If allocation grew, init any new slots to 'undefined'. */ + p = tv_prev_alloc_end; + while (p < thr->valstack_alloc_end) { + /* Never executed if new size is smaller. */ + DUK_TVAL_SET_UNDEFINED(p); + p++; + } + + /* Assert for value stack initialization policy. */ +#if defined(DUK_USE_ASSERTIONS) + p = thr->valstack_top; + while (p < thr->valstack_alloc_end) { + DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(p)); + p++; + } +#endif + + return 1; +} + +DUK_LOCAL DUK_COLD DUK_NOINLINE duk_bool_t duk__valstack_grow(duk_hthread *thr, duk_size_t min_bytes, duk_bool_t throw_on_error) { + duk_size_t min_size; + duk_size_t new_size; + + DUK_ASSERT(min_bytes / sizeof(duk_tval) * sizeof(duk_tval) == min_bytes); + min_size = min_bytes / sizeof(duk_tval); /* from bytes to slots */ + +#if defined(DUK_USE_VALSTACK_GROW_SHIFT) + /* New size is minimum size plus a proportional slack, e.g. shift of + * 2 means a 25% slack. + */ + new_size = min_size + (min_size >> DUK_USE_VALSTACK_GROW_SHIFT); +#else + /* New size is tight with no slack. This is sometimes preferred in + * low memory environments. + */ + new_size = min_size; +#endif + + if (DUK_UNLIKELY(new_size > DUK_USE_VALSTACK_LIMIT || new_size < min_size /*wrap*/)) { + /* Note: may be triggered even if minimal new_size would not reach the limit, + * plan limit accordingly. + */ + if (throw_on_error) { + DUK_ERROR_RANGE(thr, DUK_STR_VALSTACK_LIMIT); + DUK_WO_NORETURN(return 0;); + } + return 0; + } + + if (duk__resize_valstack(thr, new_size) == 0) { + if (throw_on_error) { + DUK_ERROR_ALLOC_FAILED(thr); + DUK_WO_NORETURN(return 0;); + } + return 0; + } + + thr->valstack_end = thr->valstack + min_size; + DUK_ASSERT(thr->valstack_alloc_end >= thr->valstack_end); + + return 1; +} + +/* Hot, inlined value stack grow check. Because value stack almost never + * grows, the actual resize call is in a NOINLINE helper. + */ +DUK_INTERNAL DUK_INLINE void duk_valstack_grow_check_throw(duk_hthread *thr, duk_size_t min_bytes) { + duk_tval *tv; + + tv = (duk_tval *) (void *) ((duk_uint8_t *) thr->valstack + min_bytes); + if (DUK_LIKELY(thr->valstack_end >= tv)) { + return; + } + if (DUK_LIKELY(thr->valstack_alloc_end >= tv)) { + /* Values in [valstack_top,valstack_alloc_end[ are initialized + * to 'undefined' so we can just move the end pointer. + */ + thr->valstack_end = tv; + return; + } + (void) duk__valstack_grow(thr, min_bytes, 1 /*throw_on_error*/); +} + +/* Hot, inlined value stack grow check which doesn't throw. */ +DUK_INTERNAL DUK_INLINE duk_bool_t duk_valstack_grow_check_nothrow(duk_hthread *thr, duk_size_t min_bytes) { + duk_tval *tv; + + tv = (duk_tval *) (void *) ((duk_uint8_t *) thr->valstack + min_bytes); + if (DUK_LIKELY(thr->valstack_end >= tv)) { + return 1; + } + if (DUK_LIKELY(thr->valstack_alloc_end >= tv)) { + thr->valstack_end = tv; + return 1; + } + return duk__valstack_grow(thr, min_bytes, 0 /*throw_on_error*/); +} + +/* Value stack shrink check, called from mark-and-sweep. */ +DUK_INTERNAL void duk_valstack_shrink_check_nothrow(duk_hthread *thr, duk_bool_t snug) { + duk_size_t alloc_bytes; + duk_size_t reserve_bytes; + duk_size_t shrink_bytes; + + alloc_bytes = (duk_size_t) ((duk_uint8_t *) thr->valstack_alloc_end - (duk_uint8_t *) thr->valstack); + reserve_bytes = (duk_size_t) ((duk_uint8_t *) thr->valstack_end - (duk_uint8_t *) thr->valstack); + DUK_ASSERT(alloc_bytes >= reserve_bytes); + + /* We're free to shrink the value stack allocation down to + * reserve_bytes but not more. If 'snug' (emergency GC) + * shrink whatever we can. Otherwise only shrink if the new + * size would be considerably smaller. + */ + +#if defined(DUK_USE_VALSTACK_SHRINK_CHECK_SHIFT) + if (snug) { + shrink_bytes = reserve_bytes; + } else { + duk_size_t proportion, slack; + + /* Require that value stack shrinks by at least X% of its + * current size. For example, shift of 2 means at least + * 25%. The proportion is computed as bytes and may not + * be a multiple of sizeof(duk_tval); that's OK here. + */ + proportion = alloc_bytes >> DUK_USE_VALSTACK_SHRINK_CHECK_SHIFT; + if (alloc_bytes - reserve_bytes < proportion) { + /* Too little would be freed, do nothing. */ + return; + } + + /* Keep a slack after shrinking. The slack is again a + * proportion of the current size (the proportion should + * of course be smaller than the check proportion above). + */ +#if defined(DUK_USE_VALSTACK_SHRINK_SLACK_SHIFT) + DUK_ASSERT(DUK_USE_VALSTACK_SHRINK_SLACK_SHIFT > DUK_USE_VALSTACK_SHRINK_CHECK_SHIFT); + slack = alloc_bytes >> DUK_USE_VALSTACK_SHRINK_SLACK_SHIFT; +#else + slack = 0; +#endif + shrink_bytes = reserve_bytes + + slack / sizeof(duk_tval) * sizeof(duk_tval); /* multiple of duk_tval */ + } +#else /* DUK_USE_VALSTACK_SHRINK_CHECK_SHIFT */ + /* Always snug, useful in some low memory environments. */ + DUK_UNREF(snug); + shrink_bytes = reserve_bytes; +#endif /* DUK_USE_VALSTACK_SHRINK_CHECK_SHIFT */ + + DUK_D(DUK_DPRINT("valstack shrink check: alloc_bytes=%ld, reserve_bytes=%ld, shrink_bytes=%ld (unvalidated)", + (long) alloc_bytes, (long) reserve_bytes, (long) shrink_bytes)); + DUK_ASSERT(shrink_bytes >= reserve_bytes); + if (shrink_bytes >= alloc_bytes) { + /* Skip if shrink target is same as current one (or higher, + * though that shouldn't happen in practice). + */ + return; + } + DUK_ASSERT(shrink_bytes / sizeof(duk_tval) * sizeof(duk_tval) == shrink_bytes); + + DUK_D(DUK_DPRINT("valstack shrink check: decided to shrink, snug: %ld", (long) snug)); + + duk__resize_valstack(thr, shrink_bytes / sizeof(duk_tval)); +} + +DUK_EXTERNAL duk_bool_t duk_check_stack(duk_hthread *thr, duk_idx_t extra) { + duk_size_t min_new_bytes; + + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(thr != NULL); + + if (DUK_UNLIKELY(extra < 0 || extra > DUK_USE_VALSTACK_LIMIT)) { + if (extra < 0) { + /* Clamping to zero makes the API more robust to calling code + * calculation errors. + */ + extra = 0; + } else { + /* Cause grow check to fail without wrapping arithmetic. */ + extra = DUK_USE_VALSTACK_LIMIT; + } + } + + min_new_bytes = (duk_size_t) ((duk_uint8_t *) thr->valstack_top - (duk_uint8_t *) thr->valstack) + + sizeof(duk_tval) * ((duk_size_t) extra + DUK_VALSTACK_INTERNAL_EXTRA); + return duk_valstack_grow_check_nothrow(thr, min_new_bytes); +} + +DUK_EXTERNAL void duk_require_stack(duk_hthread *thr, duk_idx_t extra) { + duk_size_t min_new_bytes; + + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(thr != NULL); + + if (DUK_UNLIKELY(extra < 0 || extra > DUK_USE_VALSTACK_LIMIT)) { + if (extra < 0) { + /* Clamping to zero makes the API more robust to calling code + * calculation errors. + */ + extra = 0; + } else { + /* Cause grow check to fail without wrapping arithmetic. */ + extra = DUK_USE_VALSTACK_LIMIT; + } + } + + min_new_bytes = (duk_size_t) ((duk_uint8_t *) thr->valstack_top - (duk_uint8_t *) thr->valstack) + + sizeof(duk_tval) * ((duk_size_t) extra + DUK_VALSTACK_INTERNAL_EXTRA); + duk_valstack_grow_check_throw(thr, min_new_bytes); +} + +DUK_EXTERNAL duk_bool_t duk_check_stack_top(duk_hthread *thr, duk_idx_t top) { + duk_size_t min_new_bytes; + + DUK_ASSERT_API_ENTRY(thr); + + if (DUK_UNLIKELY(top < 0 || top > DUK_USE_VALSTACK_LIMIT)) { + if (top < 0) { + /* Clamping to zero makes the API more robust to calling code + * calculation errors. + */ + top = 0; + } else { + /* Cause grow check to fail without wrapping arithmetic. */ + top = DUK_USE_VALSTACK_LIMIT; + } + } + + DUK_ASSERT(top >= 0); + min_new_bytes = (duk_size_t) ((duk_uint8_t *) thr->valstack_bottom - (duk_uint8_t *) thr->valstack) + + sizeof(duk_tval) * ((duk_size_t) top + DUK_VALSTACK_INTERNAL_EXTRA); + return duk_valstack_grow_check_nothrow(thr, min_new_bytes); +} + +DUK_EXTERNAL void duk_require_stack_top(duk_hthread *thr, duk_idx_t top) { + duk_size_t min_new_bytes; + + DUK_ASSERT_API_ENTRY(thr); + + if (DUK_UNLIKELY(top < 0 || top > DUK_USE_VALSTACK_LIMIT)) { + if (top < 0) { + /* Clamping to zero makes the API more robust to calling code + * calculation errors. + */ + top = 0; + } else { + /* Cause grow check to fail without wrapping arithmetic. */ + top = DUK_USE_VALSTACK_LIMIT; + } + } + + DUK_ASSERT(top >= 0); + min_new_bytes = (duk_size_t) ((duk_uint8_t *) thr->valstack_bottom - (duk_uint8_t *) thr->valstack) + + sizeof(duk_tval) * ((duk_size_t) top + DUK_VALSTACK_INTERNAL_EXTRA); + duk_valstack_grow_check_throw(thr, min_new_bytes); +} + +/* + * Basic stack manipulation: swap, dup, insert, replace, etc + */ + +DUK_EXTERNAL void duk_swap(duk_hthread *thr, duk_idx_t idx1, duk_idx_t idx2) { + duk_tval *tv1; + duk_tval *tv2; + duk_tval tv_tmp; + + DUK_ASSERT_API_ENTRY(thr); + + tv1 = duk_require_tval(thr, idx1); + DUK_ASSERT(tv1 != NULL); + tv2 = duk_require_tval(thr, idx2); + DUK_ASSERT(tv2 != NULL); + + /* If tv1==tv2 this is a NOP, no check is needed */ + DUK_TVAL_SET_TVAL(&tv_tmp, tv1); + DUK_TVAL_SET_TVAL(tv1, tv2); + DUK_TVAL_SET_TVAL(tv2, &tv_tmp); +} + +DUK_EXTERNAL void duk_swap_top(duk_hthread *thr, duk_idx_t idx) { + DUK_ASSERT_API_ENTRY(thr); + + duk_swap(thr, idx, -1); +} + +DUK_EXTERNAL void duk_dup(duk_hthread *thr, duk_idx_t from_idx) { + duk_tval *tv_from; + duk_tval *tv_to; + + DUK_ASSERT_API_ENTRY(thr); + DUK__CHECK_SPACE(); + + tv_from = duk_require_tval(thr, from_idx); + tv_to = thr->valstack_top++; + DUK_ASSERT(tv_from != NULL); + DUK_ASSERT(tv_to != NULL); + DUK_TVAL_SET_TVAL(tv_to, tv_from); + DUK_TVAL_INCREF(thr, tv_to); /* no side effects */ +} + +DUK_EXTERNAL void duk_dup_top(duk_hthread *thr) { +#if defined(DUK_USE_PREFER_SIZE) + duk_dup(thr, -1); +#else + duk_tval *tv_from; + duk_tval *tv_to; + + DUK_ASSERT_API_ENTRY(thr); + DUK__CHECK_SPACE(); + + if (DUK_UNLIKELY(thr->valstack_top - thr->valstack_bottom <= 0)) { + DUK_ERROR_RANGE_INDEX(thr, -1); + DUK_WO_NORETURN(return;); + } + tv_from = thr->valstack_top - 1; + tv_to = thr->valstack_top++; + DUK_ASSERT(tv_from != NULL); + DUK_ASSERT(tv_to != NULL); + DUK_TVAL_SET_TVAL(tv_to, tv_from); + DUK_TVAL_INCREF(thr, tv_to); /* no side effects */ +#endif +} + +DUK_INTERNAL void duk_dup_0(duk_hthread *thr) { + DUK_ASSERT_API_ENTRY(thr); + duk_dup(thr, 0); +} +DUK_INTERNAL void duk_dup_1(duk_hthread *thr) { + DUK_ASSERT_API_ENTRY(thr); + duk_dup(thr, 1); +} +DUK_INTERNAL void duk_dup_2(duk_hthread *thr) { + DUK_ASSERT_API_ENTRY(thr); + duk_dup(thr, 2); +} +DUK_INTERNAL void duk_dup_m2(duk_hthread *thr) { + DUK_ASSERT_API_ENTRY(thr); + duk_dup(thr, -2); +} +DUK_INTERNAL void duk_dup_m3(duk_hthread *thr) { + DUK_ASSERT_API_ENTRY(thr); + duk_dup(thr, -3); +} +DUK_INTERNAL void duk_dup_m4(duk_hthread *thr) { + DUK_ASSERT_API_ENTRY(thr); + duk_dup(thr, -4); +} + +DUK_EXTERNAL void duk_insert(duk_hthread *thr, duk_idx_t to_idx) { + duk_tval *p; + duk_tval *q; + duk_tval tv_tmp; + duk_size_t nbytes; + + DUK_ASSERT_API_ENTRY(thr); + + p = duk_require_tval(thr, to_idx); + DUK_ASSERT(p != NULL); + q = duk_require_tval(thr, -1); + DUK_ASSERT(q != NULL); + + DUK_ASSERT(q >= p); + + /* nbytes + * <---------> + * [ ... | p | x | x | q ] + * => [ ... | q | p | x | x ] + */ + + nbytes = (duk_size_t) (((duk_uint8_t *) q) - ((duk_uint8_t *) p)); + + DUK_DDD(DUK_DDDPRINT("duk_insert: to_idx=%ld, p=%p, q=%p, nbytes=%lu", + (long) to_idx, (void *) p, (void *) q, (unsigned long) nbytes)); + + /* No net refcount changes. No need to special case nbytes == 0 + * (p == q). + */ + DUK_TVAL_SET_TVAL(&tv_tmp, q); + duk_memmove((void *) (p + 1), (const void *) p, (size_t) nbytes); + DUK_TVAL_SET_TVAL(p, &tv_tmp); +} + +DUK_INTERNAL void duk_insert_undefined(duk_hthread *thr, duk_idx_t idx) { + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(idx >= 0); /* Doesn't support negative indices. */ + + duk_push_undefined(thr); + duk_insert(thr, idx); +} + +DUK_INTERNAL void duk_insert_undefined_n(duk_hthread *thr, duk_idx_t idx, duk_idx_t count) { + duk_tval *tv, *tv_end; + + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(idx >= 0); /* Doesn't support negative indices or count. */ + DUK_ASSERT(count >= 0); + + tv = duk_reserve_gap(thr, idx, count); + tv_end = tv + count; + while (tv != tv_end) { + DUK_TVAL_SET_UNDEFINED(tv); + tv++; + } +} + +DUK_EXTERNAL void duk_pull(duk_hthread *thr, duk_idx_t from_idx) { + duk_tval *p; + duk_tval *q; + duk_tval tv_tmp; + duk_size_t nbytes; + + DUK_ASSERT_API_ENTRY(thr); + + /* nbytes + * <---------> + * [ ... | x | x | p | y | y | q ] + * => [ ... | x | x | y | y | q | p ] + */ + + p = duk_require_tval(thr, from_idx); + DUK_ASSERT(p != NULL); + q = duk_require_tval(thr, -1); + DUK_ASSERT(q != NULL); + + DUK_ASSERT(q >= p); + + nbytes = (duk_size_t) (((duk_uint8_t *) q) - ((duk_uint8_t *) p)); + + DUK_DDD(DUK_DDDPRINT("duk_pull: from_idx=%ld, p=%p, q=%p, nbytes=%lu", + (long) from_idx, (void *) p, (void *) q, (unsigned long) nbytes)); + + /* No net refcount changes. No need to special case nbytes == 0 + * (p == q). + */ + DUK_TVAL_SET_TVAL(&tv_tmp, p); + duk_memmove((void *) p, (const void *) (p + 1), (size_t) nbytes); + DUK_TVAL_SET_TVAL(q, &tv_tmp); +} + +DUK_EXTERNAL void duk_replace(duk_hthread *thr, duk_idx_t to_idx) { + duk_tval *tv1; + duk_tval *tv2; + duk_tval tv_tmp; + + DUK_ASSERT_API_ENTRY(thr); + + tv1 = duk_require_tval(thr, -1); + DUK_ASSERT(tv1 != NULL); + tv2 = duk_require_tval(thr, to_idx); + DUK_ASSERT(tv2 != NULL); + + /* For tv1 == tv2, both pointing to stack top, the end result + * is same as duk_pop(thr). + */ + DUK_TVAL_SET_TVAL(&tv_tmp, tv2); + DUK_TVAL_SET_TVAL(tv2, tv1); + DUK_TVAL_SET_UNDEFINED(tv1); + thr->valstack_top--; + DUK_TVAL_DECREF(thr, &tv_tmp); /* side effects */ +} + +DUK_EXTERNAL void duk_copy(duk_hthread *thr, duk_idx_t from_idx, duk_idx_t to_idx) { + duk_tval *tv1; + duk_tval *tv2; + + DUK_ASSERT_API_ENTRY(thr); + + tv1 = duk_require_tval(thr, from_idx); + DUK_ASSERT(tv1 != NULL); + tv2 = duk_require_tval(thr, to_idx); + DUK_ASSERT(tv2 != NULL); + + /* For tv1 == tv2, this is a no-op (no explicit check needed). */ + DUK_TVAL_SET_TVAL_UPDREF(thr, tv2, tv1); /* side effects */ +} + +DUK_EXTERNAL void duk_remove(duk_hthread *thr, duk_idx_t idx) { + duk_tval *p; + duk_tval *q; +#if defined(DUK_USE_REFERENCE_COUNTING) + duk_tval tv_tmp; +#endif + duk_size_t nbytes; + + DUK_ASSERT_API_ENTRY(thr); + + p = duk_require_tval(thr, idx); + DUK_ASSERT(p != NULL); + q = duk_require_tval(thr, -1); + DUK_ASSERT(q != NULL); + + DUK_ASSERT(q >= p); + + /* nbytes zero size case + * <---------> + * [ ... | p | x | x | q ] [ ... | p==q ] + * => [ ... | x | x | q ] [ ... ] + */ + +#if defined(DUK_USE_REFERENCE_COUNTING) + /* use a temp: decref only when valstack reachable values are correct */ + DUK_TVAL_SET_TVAL(&tv_tmp, p); +#endif + + nbytes = (duk_size_t) (((duk_uint8_t *) q) - ((duk_uint8_t *) p)); /* Note: 'q' is top-1 */ + duk_memmove((void *) p, (const void *) (p + 1), (size_t) nbytes); + + DUK_TVAL_SET_UNDEFINED(q); + thr->valstack_top--; + +#if defined(DUK_USE_REFERENCE_COUNTING) + DUK_TVAL_DECREF(thr, &tv_tmp); /* side effects */ +#endif +} + +DUK_INTERNAL void duk_remove_unsafe(duk_hthread *thr, duk_idx_t idx) { + DUK_ASSERT_API_ENTRY(thr); + + duk_remove(thr, idx); /* XXX: no optimization for now */ +} + +DUK_INTERNAL void duk_remove_m2(duk_hthread *thr) { + DUK_ASSERT_API_ENTRY(thr); + + duk_remove(thr, -2); +} + +DUK_INTERNAL void duk_remove_n(duk_hthread *thr, duk_idx_t idx, duk_idx_t count) { +#if defined(DUK_USE_PREFER_SIZE) + /* XXX: maybe too slow even when preferring size? */ + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(count >= 0); + DUK_ASSERT(idx >= 0); + + while (count-- > 0) { + duk_remove(thr, idx); + } +#else /* DUK_USE_PREFER_SIZE */ + duk_tval *tv_src; + duk_tval *tv_dst; + duk_tval *tv_newtop; + duk_tval *tv; + duk_size_t bytes; + + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(count >= 0); + DUK_ASSERT(idx >= 0); + + tv_dst = thr->valstack_bottom + idx; + DUK_ASSERT(tv_dst <= thr->valstack_top); + tv_src = tv_dst + count; + DUK_ASSERT(tv_src <= thr->valstack_top); + bytes = (duk_size_t) ((duk_uint8_t *) thr->valstack_top - (duk_uint8_t *) tv_src); + + for (tv = tv_dst; tv < tv_src; tv++) { + DUK_TVAL_DECREF_NORZ(thr, tv); + } + + duk_memmove((void *) tv_dst, (const void *) tv_src, bytes); + + tv_newtop = thr->valstack_top - count; + for (tv = tv_newtop; tv < thr->valstack_top; tv++) { + DUK_TVAL_SET_UNDEFINED(tv); + } + thr->valstack_top = tv_newtop; + + /* When not preferring size, only NORZ macros are used; caller + * is expected to DUK_REFZERO_CHECK(). + */ +#endif /* DUK_USE_PREFER_SIZE */ +} + +DUK_INTERNAL void duk_remove_n_unsafe(duk_hthread *thr, duk_idx_t idx, duk_idx_t count) { + DUK_ASSERT_API_ENTRY(thr); + + duk_remove_n(thr, idx, count); /* XXX: no optimization for now */ +} + +/* + * Stack slice primitives + */ + +DUK_EXTERNAL void duk_xcopymove_raw(duk_hthread *to_thr, duk_hthread *from_thr, duk_idx_t count, duk_bool_t is_copy) { + void *src; + duk_size_t nbytes; + duk_tval *p; + duk_tval *q; + + /* XXX: several pointer comparison issues here */ + + DUK_ASSERT_API_ENTRY(to_thr); + DUK_CTX_ASSERT_VALID(to_thr); + DUK_CTX_ASSERT_VALID(from_thr); + DUK_ASSERT(to_thr->heap == from_thr->heap); + + if (DUK_UNLIKELY(to_thr == from_thr)) { + DUK_ERROR_TYPE(to_thr, DUK_STR_INVALID_CONTEXT); + DUK_WO_NORETURN(return;); + } + if (DUK_UNLIKELY((duk_uidx_t) count > (duk_uidx_t) DUK_USE_VALSTACK_LIMIT)) { + /* Maximum value check ensures 'nbytes' won't wrap below. + * Also handles negative count. + */ + DUK_ERROR_RANGE_INVALID_COUNT(to_thr); + DUK_WO_NORETURN(return;); + } + DUK_ASSERT(count >= 0); + + nbytes = sizeof(duk_tval) * (duk_size_t) count; + if (DUK_UNLIKELY(nbytes == 0)) { + return; + } + DUK_ASSERT(to_thr->valstack_top <= to_thr->valstack_end); + if (DUK_UNLIKELY((duk_size_t) ((duk_uint8_t *) to_thr->valstack_end - (duk_uint8_t *) to_thr->valstack_top) < nbytes)) { + DUK_ERROR_RANGE_PUSH_BEYOND(to_thr); + DUK_WO_NORETURN(return;); + } + src = (void *) ((duk_uint8_t *) from_thr->valstack_top - nbytes); + if (DUK_UNLIKELY(src < (void *) from_thr->valstack_bottom)) { + DUK_ERROR_RANGE_INVALID_COUNT(to_thr); + DUK_WO_NORETURN(return;); + } + + /* Copy values (no overlap even if to_thr == from_thr; that's not + * allowed now anyway). + */ + DUK_ASSERT(nbytes > 0); + duk_memcpy((void *) to_thr->valstack_top, (const void *) src, (size_t) nbytes); + + p = to_thr->valstack_top; + to_thr->valstack_top = (duk_tval *) (void *) (((duk_uint8_t *) p) + nbytes); + + if (is_copy) { + /* Incref copies, keep originals. */ + q = to_thr->valstack_top; + while (p < q) { + DUK_TVAL_INCREF(to_thr, p); /* no side effects */ + p++; + } + } else { + /* No net refcount change. */ + p = from_thr->valstack_top; + q = (duk_tval *) (void *) (((duk_uint8_t *) p) - nbytes); + from_thr->valstack_top = q; + + while (p > q) { + p--; + DUK_TVAL_SET_UNDEFINED(p); + /* XXX: fast primitive to set a bunch of values to UNDEFINED */ + } + } +} + +/* Internal helper: reserve a gap of 'count' elements at 'idx_base' and return a + * pointer to the gap. Values in the gap are garbage and MUST be initialized by + * the caller before any side effects may occur. The caller must ensure there's + * enough stack reserve for 'count' values. + */ +DUK_INTERNAL duk_tval *duk_reserve_gap(duk_hthread *thr, duk_idx_t idx_base, duk_idx_t count) { + duk_tval *tv_src; + duk_tval *tv_dst; + duk_size_t gap_bytes; + duk_size_t copy_bytes; + + /* Caller is responsible for ensuring there's enough preallocated + * value stack. + */ + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(count >= 0); + DUK_ASSERT((duk_size_t) (thr->valstack_end - thr->valstack_top) >= (duk_size_t) count); + + tv_src = thr->valstack_bottom + idx_base; + gap_bytes = (duk_size_t) count * sizeof(duk_tval); + tv_dst = (duk_tval *) (void *) ((duk_uint8_t *) tv_src + gap_bytes); + copy_bytes = (duk_size_t) ((duk_uint8_t *) thr->valstack_top - (duk_uint8_t *) tv_src); + thr->valstack_top = (duk_tval *) (void *) ((duk_uint8_t *) thr->valstack_top + gap_bytes); + duk_memmove((void *) tv_dst, (const void *) tv_src, copy_bytes); + + /* Values in the gap are left as garbage: caller must fill them in + * and INCREF them before any side effects. + */ + return tv_src; +} + +/* + * Get/opt/require + */ + +DUK_EXTERNAL void duk_require_undefined(duk_hthread *thr, duk_idx_t idx) { + duk_tval *tv; + + DUK_ASSERT_API_ENTRY(thr); + + tv = duk_get_tval_or_unused(thr, idx); + DUK_ASSERT(tv != NULL); + if (DUK_UNLIKELY(!DUK_TVAL_IS_UNDEFINED(tv))) { + DUK_ERROR_REQUIRE_TYPE_INDEX(thr, idx, "undefined", DUK_STR_NOT_UNDEFINED); + DUK_WO_NORETURN(return;); + } +} + +DUK_EXTERNAL void duk_require_null(duk_hthread *thr, duk_idx_t idx) { + duk_tval *tv; + + DUK_ASSERT_API_ENTRY(thr); + + tv = duk_get_tval_or_unused(thr, idx); + DUK_ASSERT(tv != NULL); + if (DUK_UNLIKELY(!DUK_TVAL_IS_NULL(tv))) { + DUK_ERROR_REQUIRE_TYPE_INDEX(thr, idx, "null", DUK_STR_NOT_NULL); + DUK_WO_NORETURN(return;); + } +} + +DUK_LOCAL DUK_ALWAYS_INLINE duk_bool_t duk__get_boolean_raw(duk_hthread *thr, duk_idx_t idx, duk_bool_t def_value) { + duk_bool_t ret; + duk_tval *tv; + + DUK_CTX_ASSERT_VALID(thr); + + tv = duk_get_tval_or_unused(thr, idx); + DUK_ASSERT(tv != NULL); + if (DUK_TVAL_IS_BOOLEAN(tv)) { + ret = DUK_TVAL_GET_BOOLEAN(tv); + DUK_ASSERT(ret == 0 || ret == 1); + } else { + ret = def_value; + /* Not guaranteed to be 0 or 1. */ + } + + return ret; +} + +DUK_EXTERNAL duk_bool_t duk_get_boolean(duk_hthread *thr, duk_idx_t idx) { + DUK_ASSERT_API_ENTRY(thr); + + return duk__get_boolean_raw(thr, idx, 0); /* default: false */ +} + +DUK_EXTERNAL duk_bool_t duk_get_boolean_default(duk_hthread *thr, duk_idx_t idx, duk_bool_t def_value) { + DUK_ASSERT_API_ENTRY(thr); + + return duk__get_boolean_raw(thr, idx, def_value); +} + +DUK_EXTERNAL duk_bool_t duk_require_boolean(duk_hthread *thr, duk_idx_t idx) { + duk_tval *tv; + duk_bool_t ret; + + DUK_ASSERT_API_ENTRY(thr); + + tv = duk_get_tval_or_unused(thr, idx); + DUK_ASSERT(tv != NULL); + if (DUK_LIKELY(DUK_TVAL_IS_BOOLEAN(tv))) { + ret = DUK_TVAL_GET_BOOLEAN(tv); + DUK_ASSERT(ret == 0 || ret == 1); + return ret; + } else { + DUK_ERROR_REQUIRE_TYPE_INDEX(thr, idx, "boolean", DUK_STR_NOT_BOOLEAN); + DUK_WO_NORETURN(return 0;); + } +} + +DUK_EXTERNAL duk_bool_t duk_opt_boolean(duk_hthread *thr, duk_idx_t idx, duk_bool_t def_value) { + DUK_ASSERT_API_ENTRY(thr); + + if (duk_check_type_mask(thr, idx, DUK_TYPE_MASK_NONE | DUK_TYPE_MASK_UNDEFINED)) { + return def_value; + } + return duk_require_boolean(thr, idx); +} + +DUK_LOCAL DUK_ALWAYS_INLINE duk_double_t duk__get_number_raw(duk_hthread *thr, duk_idx_t idx, duk_double_t def_value) { + duk_double_union ret; + duk_tval *tv; + + DUK_CTX_ASSERT_VALID(thr); + + tv = duk_get_tval_or_unused(thr, idx); + DUK_ASSERT(tv != NULL); +#if defined(DUK_USE_FASTINT) + if (DUK_TVAL_IS_FASTINT(tv)) { + ret.d = (duk_double_t) DUK_TVAL_GET_FASTINT(tv); /* XXX: cast trick */ + } + else +#endif + if (DUK_TVAL_IS_DOUBLE(tv)) { + /* When using packed duk_tval, number must be in NaN-normalized form + * for it to be a duk_tval, so no need to normalize. NOP for unpacked + * duk_tval. + */ + ret.d = DUK_TVAL_GET_DOUBLE(tv); + DUK_ASSERT(DUK_DBLUNION_IS_NORMALIZED(&ret)); + } else { + ret.d = def_value; + /* Default value (including NaN) may not be normalized. */ + } + + return ret.d; +} + +DUK_EXTERNAL duk_double_t duk_get_number(duk_hthread *thr, duk_idx_t idx) { + DUK_ASSERT_API_ENTRY(thr); + return duk__get_number_raw(thr, idx, DUK_DOUBLE_NAN); /* default: NaN */ +} + +DUK_EXTERNAL duk_double_t duk_get_number_default(duk_hthread *thr, duk_idx_t idx, duk_double_t def_value) { + DUK_ASSERT_API_ENTRY(thr); + return duk__get_number_raw(thr, idx, def_value); +} + +DUK_EXTERNAL duk_double_t duk_require_number(duk_hthread *thr, duk_idx_t idx) { + duk_tval *tv; + duk_double_union ret; + + DUK_ASSERT_API_ENTRY(thr); + + tv = duk_get_tval_or_unused(thr, idx); + DUK_ASSERT(tv != NULL); + if (DUK_UNLIKELY(!DUK_TVAL_IS_NUMBER(tv))) { + DUK_ERROR_REQUIRE_TYPE_INDEX(thr, idx, "number", DUK_STR_NOT_NUMBER); + DUK_WO_NORETURN(return 0.0;); + } + + ret.d = DUK_TVAL_GET_NUMBER(tv); + + /* When using packed duk_tval, number must be in NaN-normalized form + * for it to be a duk_tval, so no need to normalize. NOP for unpacked + * duk_tval. + */ + DUK_ASSERT(DUK_DBLUNION_IS_NORMALIZED(&ret)); + return ret.d; +} + +DUK_EXTERNAL duk_double_t duk_opt_number(duk_hthread *thr, duk_idx_t idx, duk_double_t def_value) { + DUK_ASSERT_API_ENTRY(thr); + + if (duk_check_type_mask(thr, idx, DUK_TYPE_MASK_NONE | DUK_TYPE_MASK_UNDEFINED)) { + /* User provided default is not NaN normalized. */ + return def_value; + } + return duk_require_number(thr, idx); +} + +DUK_EXTERNAL duk_int_t duk_get_int(duk_hthread *thr, duk_idx_t idx) { + DUK_ASSERT_API_ENTRY(thr); + + return (duk_int_t) duk__api_coerce_d2i(thr, idx, 0 /*def_value*/, 0 /*require*/); +} + +DUK_EXTERNAL duk_uint_t duk_get_uint(duk_hthread *thr, duk_idx_t idx) { + DUK_ASSERT_API_ENTRY(thr); + + return (duk_uint_t) duk__api_coerce_d2ui(thr, idx, 0 /*def_value*/, 0 /*require*/); +} + +DUK_EXTERNAL duk_int_t duk_get_int_default(duk_hthread *thr, duk_idx_t idx, duk_int_t def_value) { + DUK_ASSERT_API_ENTRY(thr); + + return (duk_int_t) duk__api_coerce_d2i(thr, idx, def_value, 0 /*require*/); +} + +DUK_EXTERNAL duk_uint_t duk_get_uint_default(duk_hthread *thr, duk_idx_t idx, duk_uint_t def_value) { + DUK_ASSERT_API_ENTRY(thr); + + return (duk_uint_t) duk__api_coerce_d2ui(thr, idx, def_value, 0 /*require*/); +} + +DUK_EXTERNAL duk_int_t duk_require_int(duk_hthread *thr, duk_idx_t idx) { + DUK_ASSERT_API_ENTRY(thr); + + return (duk_int_t) duk__api_coerce_d2i(thr, idx, 0 /*def_value*/, 1 /*require*/); +} + +DUK_EXTERNAL duk_uint_t duk_require_uint(duk_hthread *thr, duk_idx_t idx) { + DUK_ASSERT_API_ENTRY(thr); + + return (duk_uint_t) duk__api_coerce_d2ui(thr, idx, 0 /*def_value*/, 1 /*require*/); +} + +DUK_EXTERNAL duk_int_t duk_opt_int(duk_hthread *thr, duk_idx_t idx, duk_int_t def_value) { + DUK_ASSERT_API_ENTRY(thr); + + if (duk_check_type_mask(thr, idx, DUK_TYPE_MASK_NONE | DUK_TYPE_MASK_UNDEFINED)) { + return def_value; + } + return duk_require_int(thr, idx); +} + +DUK_EXTERNAL duk_uint_t duk_opt_uint(duk_hthread *thr, duk_idx_t idx, duk_uint_t def_value) { + DUK_ASSERT_API_ENTRY(thr); + + if (duk_check_type_mask(thr, idx, DUK_TYPE_MASK_NONE | DUK_TYPE_MASK_UNDEFINED)) { + return def_value; + } + return duk_require_uint(thr, idx); +} + +DUK_EXTERNAL const char *duk_get_lstring(duk_hthread *thr, duk_idx_t idx, duk_size_t *out_len) { + duk_hstring *h; + const char *ret; + duk_size_t len; + + DUK_ASSERT_API_ENTRY(thr); + + h = duk_get_hstring(thr, idx); + if (h != NULL) { + len = DUK_HSTRING_GET_BYTELEN(h); + ret = (const char *) DUK_HSTRING_GET_DATA(h); + } else { + len = 0; + ret = NULL; + } + + if (out_len != NULL) { + *out_len = len; + } + return ret; +} + +DUK_EXTERNAL const char *duk_require_lstring(duk_hthread *thr, duk_idx_t idx, duk_size_t *out_len) { + duk_hstring *h; + + DUK_ASSERT_API_ENTRY(thr); + + h = duk_require_hstring(thr, idx); + DUK_ASSERT(h != NULL); + if (out_len) { + *out_len = DUK_HSTRING_GET_BYTELEN(h); + } + return (const char *) DUK_HSTRING_GET_DATA(h); +} + +DUK_INTERNAL const char *duk_require_lstring_notsymbol(duk_hthread *thr, duk_idx_t idx, duk_size_t *out_len) { + duk_hstring *h; + + DUK_ASSERT_API_ENTRY(thr); + + h = duk_require_hstring_notsymbol(thr, idx); + DUK_ASSERT(h != NULL); + if (out_len) { + *out_len = DUK_HSTRING_GET_BYTELEN(h); + } + return (const char *) DUK_HSTRING_GET_DATA(h); +} + +DUK_EXTERNAL const char *duk_get_string(duk_hthread *thr, duk_idx_t idx) { + duk_hstring *h; + + DUK_ASSERT_API_ENTRY(thr); + + h = duk_get_hstring(thr, idx); + if (h != NULL) { + return (const char *) DUK_HSTRING_GET_DATA(h); + } else { + return NULL; + } +} + +DUK_EXTERNAL const char *duk_opt_lstring(duk_hthread *thr, duk_idx_t idx, duk_size_t *out_len, const char *def_ptr, duk_size_t def_len) { + DUK_ASSERT_API_ENTRY(thr); + + if (duk_check_type_mask(thr, idx, DUK_TYPE_MASK_NONE | DUK_TYPE_MASK_UNDEFINED)) { + if (out_len != NULL) { + *out_len = def_len; + } + return def_ptr; + } + return duk_require_lstring(thr, idx, out_len); +} + +DUK_EXTERNAL const char *duk_opt_string(duk_hthread *thr, duk_idx_t idx, const char *def_ptr) { + DUK_ASSERT_API_ENTRY(thr); + + if (duk_check_type_mask(thr, idx, DUK_TYPE_MASK_NONE | DUK_TYPE_MASK_UNDEFINED)) { + return def_ptr; + } + return duk_require_string(thr, idx); +} + +DUK_EXTERNAL const char *duk_get_lstring_default(duk_hthread *thr, duk_idx_t idx, duk_size_t *out_len, const char *def_ptr, duk_size_t def_len) { + duk_hstring *h; + const char *ret; + duk_size_t len; + + DUK_ASSERT_API_ENTRY(thr); + + h = duk_get_hstring(thr, idx); + if (h != NULL) { + len = DUK_HSTRING_GET_BYTELEN(h); + ret = (const char *) DUK_HSTRING_GET_DATA(h); + } else { + len = def_len; + ret = def_ptr; + } + + if (out_len != NULL) { + *out_len = len; + } + return ret; +} + +DUK_EXTERNAL const char *duk_get_string_default(duk_hthread *thr, duk_idx_t idx, const char *def_value) { + duk_hstring *h; + + DUK_ASSERT_API_ENTRY(thr); + + h = duk_get_hstring(thr, idx); + if (h != NULL) { + return (const char *) DUK_HSTRING_GET_DATA(h); + } else { + return def_value; + } +} + +DUK_INTERNAL const char *duk_get_string_notsymbol(duk_hthread *thr, duk_idx_t idx) { + duk_hstring *h; + + DUK_ASSERT_API_ENTRY(thr); + + h = duk_get_hstring_notsymbol(thr, idx); + if (h) { + return (const char *) DUK_HSTRING_GET_DATA(h); + } else { + return NULL; + } +} + +DUK_EXTERNAL const char *duk_require_string(duk_hthread *thr, duk_idx_t idx) { + DUK_ASSERT_API_ENTRY(thr); + + return duk_require_lstring(thr, idx, NULL); +} + +DUK_INTERNAL const char *duk_require_string_notsymbol(duk_hthread *thr, duk_idx_t idx) { + duk_hstring *h; + + DUK_ASSERT_API_ENTRY(thr); + + h = duk_require_hstring_notsymbol(thr, idx); + DUK_ASSERT(h != NULL); + return (const char *) DUK_HSTRING_GET_DATA(h); +} + +DUK_EXTERNAL void duk_require_object(duk_hthread *thr, duk_idx_t idx) { + duk_tval *tv; + + DUK_ASSERT_API_ENTRY(thr); + + tv = duk_get_tval_or_unused(thr, idx); + DUK_ASSERT(tv != NULL); + if (DUK_UNLIKELY(!DUK_TVAL_IS_OBJECT(tv))) { + DUK_ERROR_REQUIRE_TYPE_INDEX(thr, idx, "object", DUK_STR_NOT_OBJECT); + DUK_WO_NORETURN(return;); + } +} + +DUK_LOCAL void *duk__get_pointer_raw(duk_hthread *thr, duk_idx_t idx, void *def_value) { + duk_tval *tv; + void *p; + + DUK_CTX_ASSERT_VALID(thr); + + tv = duk_get_tval_or_unused(thr, idx); + DUK_ASSERT(tv != NULL); + if (!DUK_TVAL_IS_POINTER(tv)) { + return def_value; + } + + p = DUK_TVAL_GET_POINTER(tv); /* may be NULL */ + return p; +} + +DUK_EXTERNAL void *duk_get_pointer(duk_hthread *thr, duk_idx_t idx) { + DUK_ASSERT_API_ENTRY(thr); + return duk__get_pointer_raw(thr, idx, NULL /*def_value*/); +} + +DUK_EXTERNAL void *duk_opt_pointer(duk_hthread *thr, duk_idx_t idx, void *def_value) { + DUK_ASSERT_API_ENTRY(thr); + + if (duk_check_type_mask(thr, idx, DUK_TYPE_MASK_NONE | DUK_TYPE_MASK_UNDEFINED)) { + return def_value; + } + return duk_require_pointer(thr, idx); +} + +DUK_EXTERNAL void *duk_get_pointer_default(duk_hthread *thr, duk_idx_t idx, void *def_value) { + DUK_ASSERT_API_ENTRY(thr); + return duk__get_pointer_raw(thr, idx, def_value); +} + +DUK_EXTERNAL void *duk_require_pointer(duk_hthread *thr, duk_idx_t idx) { + duk_tval *tv; + void *p; + + DUK_ASSERT_API_ENTRY(thr); + + /* Note: here we must be wary of the fact that a pointer may be + * valid and be a NULL. + */ + tv = duk_get_tval_or_unused(thr, idx); + DUK_ASSERT(tv != NULL); + if (DUK_UNLIKELY(!DUK_TVAL_IS_POINTER(tv))) { + DUK_ERROR_REQUIRE_TYPE_INDEX(thr, idx, "pointer", DUK_STR_NOT_POINTER); + DUK_WO_NORETURN(return NULL;); + } + p = DUK_TVAL_GET_POINTER(tv); /* may be NULL */ + return p; +} + +#if 0 /*unused*/ +DUK_INTERNAL void *duk_get_voidptr(duk_hthread *thr, duk_idx_t idx) { + duk_tval *tv; + duk_heaphdr *h; + + DUK_ASSERT_API_ENTRY(thr); + + tv = duk_get_tval_or_unused(thr, idx); + DUK_ASSERT(tv != NULL); + if (!DUK_TVAL_IS_HEAP_ALLOCATED(tv)) { + return NULL; + } + + h = DUK_TVAL_GET_HEAPHDR(tv); + DUK_ASSERT(h != NULL); + return (void *) h; +} +#endif + +DUK_LOCAL void *duk__get_buffer_helper(duk_hthread *thr, duk_idx_t idx, duk_size_t *out_size, void *def_ptr, duk_size_t def_size, duk_bool_t throw_flag) { + duk_hbuffer *h; + void *ret; + duk_size_t len; + duk_tval *tv; + + DUK_CTX_ASSERT_VALID(thr); + + if (out_size != NULL) { + *out_size = 0; + } + + tv = duk_get_tval_or_unused(thr, idx); + DUK_ASSERT(tv != NULL); + if (DUK_LIKELY(DUK_TVAL_IS_BUFFER(tv))) { + h = DUK_TVAL_GET_BUFFER(tv); + DUK_ASSERT(h != NULL); + + len = DUK_HBUFFER_GET_SIZE(h); + ret = DUK_HBUFFER_GET_DATA_PTR(thr->heap, h); + } else { + if (throw_flag) { + DUK_ERROR_REQUIRE_TYPE_INDEX(thr, idx, "buffer", DUK_STR_NOT_BUFFER); + DUK_WO_NORETURN(return NULL;); + } + len = def_size; + ret = def_ptr; + } + + if (out_size != NULL) { + *out_size = len; + } + return ret; +} + +DUK_EXTERNAL void *duk_get_buffer(duk_hthread *thr, duk_idx_t idx, duk_size_t *out_size) { + DUK_ASSERT_API_ENTRY(thr); + + return duk__get_buffer_helper(thr, idx, out_size, NULL /*def_ptr*/, 0 /*def_size*/, 0 /*throw_flag*/); +} + +DUK_EXTERNAL void *duk_opt_buffer(duk_hthread *thr, duk_idx_t idx, duk_size_t *out_size, void *def_ptr, duk_size_t def_size) { + DUK_ASSERT_API_ENTRY(thr); + + if (duk_check_type_mask(thr, idx, DUK_TYPE_MASK_NONE | DUK_TYPE_MASK_UNDEFINED)) { + if (out_size != NULL) { + *out_size = def_size; + } + return def_ptr; + } + return duk_require_buffer(thr, idx, out_size); +} + +DUK_EXTERNAL void *duk_get_buffer_default(duk_hthread *thr, duk_idx_t idx, duk_size_t *out_size, void *def_ptr, duk_size_t def_len) { + DUK_ASSERT_API_ENTRY(thr); + + return duk__get_buffer_helper(thr, idx, out_size, def_ptr, def_len, 0 /*throw_flag*/); +} + +DUK_EXTERNAL void *duk_require_buffer(duk_hthread *thr, duk_idx_t idx, duk_size_t *out_size) { + DUK_ASSERT_API_ENTRY(thr); + + return duk__get_buffer_helper(thr, idx, out_size, NULL /*def_ptr*/, 0 /*def_size*/, 1 /*throw_flag*/); +} + +/* Get the active buffer data area for a plain buffer or a buffer object. + * Return NULL if the the value is not a buffer. Note that a buffer may + * have a NULL data pointer when its size is zero, the optional 'out_isbuffer' + * argument allows caller to detect this reliably. + */ +DUK_INTERNAL void *duk_get_buffer_data_raw(duk_hthread *thr, duk_idx_t idx, duk_size_t *out_size, void *def_ptr, duk_size_t def_size, duk_bool_t throw_flag, duk_bool_t *out_isbuffer) { + duk_tval *tv; + + DUK_ASSERT_API_ENTRY(thr); + + if (out_isbuffer != NULL) { + *out_isbuffer = 0; + } + if (out_size != NULL) { + *out_size = def_size; + } + + tv = duk_get_tval_or_unused(thr, idx); + DUK_ASSERT(tv != NULL); + + if (DUK_TVAL_IS_BUFFER(tv)) { + duk_hbuffer *h = DUK_TVAL_GET_BUFFER(tv); + DUK_ASSERT(h != NULL); + if (out_size != NULL) { + *out_size = DUK_HBUFFER_GET_SIZE(h); + } + if (out_isbuffer != NULL) { + *out_isbuffer = 1; + } + return (void *) DUK_HBUFFER_GET_DATA_PTR(thr->heap, h); /* may be NULL (but only if size is 0) */ + } +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) + else if (DUK_TVAL_IS_OBJECT(tv)) { + duk_hobject *h = DUK_TVAL_GET_OBJECT(tv); + DUK_ASSERT(h != NULL); + if (DUK_HOBJECT_IS_BUFOBJ(h)) { + /* XXX: this is probably a useful shared helper: for a + * duk_hbufobj, get a validated buffer pointer/length. + */ + duk_hbufobj *h_bufobj = (duk_hbufobj *) h; + DUK_HBUFOBJ_ASSERT_VALID(h_bufobj); + + if (h_bufobj->buf != NULL && + DUK_HBUFOBJ_VALID_SLICE(h_bufobj)) { + duk_uint8_t *p; + + p = (duk_uint8_t *) DUK_HBUFFER_GET_DATA_PTR(thr->heap, h_bufobj->buf); + if (out_size != NULL) { + *out_size = (duk_size_t) h_bufobj->length; + } + if (out_isbuffer != NULL) { + *out_isbuffer = 1; + } + return (void *) (p + h_bufobj->offset); + } + /* if slice not fully valid, treat as error */ + } + } +#endif /* DUK_USE_BUFFEROBJECT_SUPPORT */ + + if (throw_flag) { + DUK_ERROR_REQUIRE_TYPE_INDEX(thr, idx, "buffer", DUK_STR_NOT_BUFFER); + DUK_WO_NORETURN(return NULL;); + } + return def_ptr; +} + +DUK_EXTERNAL void *duk_get_buffer_data(duk_hthread *thr, duk_idx_t idx, duk_size_t *out_size) { + DUK_ASSERT_API_ENTRY(thr); + return duk_get_buffer_data_raw(thr, idx, out_size, NULL /*def_ptr*/, 0 /*def_size*/, 0 /*throw_flag*/, NULL); +} + +DUK_EXTERNAL void *duk_get_buffer_data_default(duk_hthread *thr, duk_idx_t idx, duk_size_t *out_size, void *def_ptr, duk_size_t def_size) { + DUK_ASSERT_API_ENTRY(thr); + return duk_get_buffer_data_raw(thr, idx, out_size, def_ptr, def_size, 0 /*throw_flag*/, NULL); +} + +DUK_EXTERNAL void *duk_opt_buffer_data(duk_hthread *thr, duk_idx_t idx, duk_size_t *out_size, void *def_ptr, duk_size_t def_size) { + DUK_ASSERT_API_ENTRY(thr); + + if (duk_check_type_mask(thr, idx, DUK_TYPE_MASK_NONE | DUK_TYPE_MASK_UNDEFINED)) { + if (out_size != NULL) { + *out_size = def_size; + } + return def_ptr; + } + return duk_require_buffer_data(thr, idx, out_size); +} + +DUK_EXTERNAL void *duk_require_buffer_data(duk_hthread *thr, duk_idx_t idx, duk_size_t *out_size) { + DUK_ASSERT_API_ENTRY(thr); + return duk_get_buffer_data_raw(thr, idx, out_size, NULL /*def_ptr*/, 0 /*def_size*/, 1 /*throw_flag*/, NULL); +} + +/* Raw helper for getting a value from the stack, checking its tag. + * The tag cannot be a number because numbers don't have an internal + * tag in the packed representation. + */ + +DUK_LOCAL duk_heaphdr *duk__get_tagged_heaphdr_raw(duk_hthread *thr, duk_idx_t idx, duk_uint_t tag) { + duk_tval *tv; + duk_heaphdr *ret; + + DUK_CTX_ASSERT_VALID(thr); + + tv = duk_get_tval_or_unused(thr, idx); + DUK_ASSERT(tv != NULL); + if (DUK_TVAL_GET_TAG(tv) != tag) { + return (duk_heaphdr *) NULL; + } + + ret = DUK_TVAL_GET_HEAPHDR(tv); + DUK_ASSERT(ret != NULL); /* tagged null pointers should never occur */ + return ret; + +} + +DUK_INTERNAL duk_hstring *duk_get_hstring(duk_hthread *thr, duk_idx_t idx) { + DUK_ASSERT_API_ENTRY(thr); + return (duk_hstring *) duk__get_tagged_heaphdr_raw(thr, idx, DUK_TAG_STRING); +} + +DUK_INTERNAL duk_hstring *duk_get_hstring_notsymbol(duk_hthread *thr, duk_idx_t idx) { + duk_hstring *h; + + DUK_ASSERT_API_ENTRY(thr); + + h = (duk_hstring *) duk__get_tagged_heaphdr_raw(thr, idx, DUK_TAG_STRING); + if (DUK_UNLIKELY(h && DUK_HSTRING_HAS_SYMBOL(h))) { + return NULL; + } + return h; +} + +DUK_INTERNAL duk_hstring *duk_require_hstring(duk_hthread *thr, duk_idx_t idx) { + duk_hstring *h; + + DUK_ASSERT_API_ENTRY(thr); + + h = (duk_hstring *) duk__get_tagged_heaphdr_raw(thr, idx, DUK_TAG_STRING); + if (DUK_UNLIKELY(h == NULL)) { + DUK_ERROR_REQUIRE_TYPE_INDEX(thr, idx, "string", DUK_STR_NOT_STRING); + DUK_WO_NORETURN(return NULL;); + } + return h; +} + +DUK_INTERNAL duk_hstring *duk_require_hstring_notsymbol(duk_hthread *thr, duk_idx_t idx) { + duk_hstring *h; + + DUK_ASSERT_API_ENTRY(thr); + + h = (duk_hstring *) duk__get_tagged_heaphdr_raw(thr, idx, DUK_TAG_STRING); + if (DUK_UNLIKELY(h == NULL || DUK_HSTRING_HAS_SYMBOL(h))) { + DUK_ERROR_REQUIRE_TYPE_INDEX(thr, idx, "string", DUK_STR_NOT_STRING); + DUK_WO_NORETURN(return NULL;); + } + return h; +} + +DUK_INTERNAL duk_hobject *duk_get_hobject(duk_hthread *thr, duk_idx_t idx) { + DUK_ASSERT_API_ENTRY(thr); + return (duk_hobject *) duk__get_tagged_heaphdr_raw(thr, idx, DUK_TAG_OBJECT); +} + +DUK_INTERNAL duk_hobject *duk_require_hobject(duk_hthread *thr, duk_idx_t idx) { + duk_hobject *h; + + DUK_ASSERT_API_ENTRY(thr); + + h = (duk_hobject *) duk__get_tagged_heaphdr_raw(thr, idx, DUK_TAG_OBJECT); + if (DUK_UNLIKELY(h == NULL)) { + DUK_ERROR_REQUIRE_TYPE_INDEX(thr, idx, "object", DUK_STR_NOT_OBJECT); + DUK_WO_NORETURN(return NULL;); + } + return h; +} + +DUK_INTERNAL duk_hbuffer *duk_get_hbuffer(duk_hthread *thr, duk_idx_t idx) { + DUK_ASSERT_API_ENTRY(thr); + return (duk_hbuffer *) duk__get_tagged_heaphdr_raw(thr, idx, DUK_TAG_BUFFER); +} + +DUK_INTERNAL duk_hbuffer *duk_require_hbuffer(duk_hthread *thr, duk_idx_t idx) { + duk_hbuffer *h; + + DUK_ASSERT_API_ENTRY(thr); + + h = (duk_hbuffer *) duk__get_tagged_heaphdr_raw(thr, idx, DUK_TAG_BUFFER); + if (DUK_UNLIKELY(h == NULL)) { + DUK_ERROR_REQUIRE_TYPE_INDEX(thr, idx, "buffer", DUK_STR_NOT_BUFFER); + DUK_WO_NORETURN(return NULL;); + } + return h; +} + +DUK_INTERNAL duk_hthread *duk_get_hthread(duk_hthread *thr, duk_idx_t idx) { + duk_hobject *h; + + DUK_ASSERT_API_ENTRY(thr); + + h = (duk_hobject *) duk__get_tagged_heaphdr_raw(thr, idx, DUK_TAG_OBJECT); + if (DUK_UNLIKELY(h != NULL && !DUK_HOBJECT_IS_THREAD(h))) { + h = NULL; + } + return (duk_hthread *) h; +} + +DUK_INTERNAL duk_hthread *duk_require_hthread(duk_hthread *thr, duk_idx_t idx) { + duk_hobject *h; + + DUK_ASSERT_API_ENTRY(thr); + + h = (duk_hobject *) duk__get_tagged_heaphdr_raw(thr, idx, DUK_TAG_OBJECT); + if (DUK_UNLIKELY(!(h != NULL && DUK_HOBJECT_IS_THREAD(h)))) { + DUK_ERROR_REQUIRE_TYPE_INDEX(thr, idx, "thread", DUK_STR_NOT_THREAD); + DUK_WO_NORETURN(return NULL;); + } + return (duk_hthread *) h; +} + +DUK_INTERNAL duk_hcompfunc *duk_get_hcompfunc(duk_hthread *thr, duk_idx_t idx) { + duk_hobject *h; + + DUK_ASSERT_API_ENTRY(thr); + + h = (duk_hobject *) duk__get_tagged_heaphdr_raw(thr, idx, DUK_TAG_OBJECT); + if (DUK_UNLIKELY(h != NULL && !DUK_HOBJECT_IS_COMPFUNC(h))) { + h = NULL; + } + return (duk_hcompfunc *) h; +} + +DUK_INTERNAL duk_hcompfunc *duk_require_hcompfunc(duk_hthread *thr, duk_idx_t idx) { + duk_hobject *h; + + DUK_ASSERT_API_ENTRY(thr); + + h = (duk_hobject *) duk__get_tagged_heaphdr_raw(thr, idx, DUK_TAG_OBJECT); + if (DUK_UNLIKELY(!(h != NULL && DUK_HOBJECT_IS_COMPFUNC(h)))) { + DUK_ERROR_REQUIRE_TYPE_INDEX(thr, idx, "compiledfunction", DUK_STR_NOT_COMPFUNC); + DUK_WO_NORETURN(return NULL;); + } + return (duk_hcompfunc *) h; +} + +DUK_INTERNAL duk_hnatfunc *duk_get_hnatfunc(duk_hthread *thr, duk_idx_t idx) { + duk_hobject *h; + + DUK_ASSERT_API_ENTRY(thr); + + h = (duk_hobject *) duk__get_tagged_heaphdr_raw(thr, idx, DUK_TAG_OBJECT); + if (DUK_UNLIKELY(h != NULL && !DUK_HOBJECT_IS_NATFUNC(h))) { + h = NULL; + } + return (duk_hnatfunc *) h; +} + +DUK_INTERNAL duk_hnatfunc *duk_require_hnatfunc(duk_hthread *thr, duk_idx_t idx) { + duk_hobject *h; + + DUK_ASSERT_API_ENTRY(thr); + + h = (duk_hobject *) duk__get_tagged_heaphdr_raw(thr, idx, DUK_TAG_OBJECT); + if (DUK_UNLIKELY(!(h != NULL && DUK_HOBJECT_IS_NATFUNC(h)))) { + DUK_ERROR_REQUIRE_TYPE_INDEX(thr, idx, "nativefunction", DUK_STR_NOT_NATFUNC); + DUK_WO_NORETURN(return NULL;); + } + return (duk_hnatfunc *) h; +} + +DUK_EXTERNAL duk_c_function duk_get_c_function(duk_hthread *thr, duk_idx_t idx) { + duk_tval *tv; + duk_hobject *h; + duk_hnatfunc *f; + + DUK_ASSERT_API_ENTRY(thr); + + tv = duk_get_tval_or_unused(thr, idx); + DUK_ASSERT(tv != NULL); + if (DUK_UNLIKELY(!DUK_TVAL_IS_OBJECT(tv))) { + return NULL; + } + h = DUK_TVAL_GET_OBJECT(tv); + DUK_ASSERT(h != NULL); + + if (DUK_UNLIKELY(!DUK_HOBJECT_IS_NATFUNC(h))) { + return NULL; + } + DUK_ASSERT(DUK_HOBJECT_HAS_NATFUNC(h)); + f = (duk_hnatfunc *) h; + + return f->func; +} + +DUK_EXTERNAL duk_c_function duk_opt_c_function(duk_hthread *thr, duk_idx_t idx, duk_c_function def_value) { + DUK_ASSERT_API_ENTRY(thr); + + if (duk_check_type_mask(thr, idx, DUK_TYPE_MASK_NONE | DUK_TYPE_MASK_UNDEFINED)) { + return def_value; + } + return duk_require_c_function(thr, idx); +} + +DUK_EXTERNAL duk_c_function duk_get_c_function_default(duk_hthread *thr, duk_idx_t idx, duk_c_function def_value) { + duk_c_function ret; + + DUK_ASSERT_API_ENTRY(thr); + + ret = duk_get_c_function(thr, idx); + if (ret != NULL) { + return ret; + } + + return def_value; +} + +DUK_EXTERNAL duk_c_function duk_require_c_function(duk_hthread *thr, duk_idx_t idx) { + duk_c_function ret; + + DUK_ASSERT_API_ENTRY(thr); + + ret = duk_get_c_function(thr, idx); + if (DUK_UNLIKELY(!ret)) { + DUK_ERROR_REQUIRE_TYPE_INDEX(thr, idx, "nativefunction", DUK_STR_NOT_NATFUNC); + DUK_WO_NORETURN(return ret;); + } + return ret; +} + +DUK_EXTERNAL void duk_require_function(duk_hthread *thr, duk_idx_t idx) { + DUK_ASSERT_API_ENTRY(thr); + if (DUK_UNLIKELY(!duk_is_function(thr, idx))) { + DUK_ERROR_REQUIRE_TYPE_INDEX(thr, idx, "function", DUK_STR_NOT_FUNCTION); + DUK_WO_NORETURN(return;); + } +} + +DUK_EXTERNAL void duk_require_constructable(duk_hthread *thr, duk_idx_t idx) { + duk_hobject *h; + + DUK_ASSERT_API_ENTRY(thr); + + h = duk_require_hobject_accept_mask(thr, idx, DUK_TYPE_MASK_LIGHTFUNC); + if (DUK_UNLIKELY(h != NULL && !DUK_HOBJECT_HAS_CONSTRUCTABLE(h))) { + DUK_ERROR_REQUIRE_TYPE_INDEX(thr, idx, "constructable", DUK_STR_NOT_CONSTRUCTABLE); + DUK_WO_NORETURN(return;); + } + /* Lightfuncs (h == NULL) are constructable. */ +} + +DUK_EXTERNAL duk_hthread *duk_get_context(duk_hthread *thr, duk_idx_t idx) { + DUK_ASSERT_API_ENTRY(thr); + + return duk_get_hthread(thr, idx); +} + +DUK_EXTERNAL duk_hthread *duk_require_context(duk_hthread *thr, duk_idx_t idx) { + DUK_ASSERT_API_ENTRY(thr); + + return duk_require_hthread(thr, idx); +} + +DUK_EXTERNAL duk_hthread *duk_opt_context(duk_hthread *thr, duk_idx_t idx, duk_hthread *def_value) { + DUK_ASSERT_API_ENTRY(thr); + + if (duk_check_type_mask(thr, idx, DUK_TYPE_MASK_NONE | DUK_TYPE_MASK_UNDEFINED)) { + return def_value; + } + return duk_require_context(thr, idx); +} + +DUK_EXTERNAL duk_hthread *duk_get_context_default(duk_hthread *thr, duk_idx_t idx, duk_hthread *def_value) { + duk_hthread *ret; + + DUK_ASSERT_API_ENTRY(thr); + + ret = duk_get_context(thr, idx); + if (ret != NULL) { + return ret; + } + + return def_value; +} + +DUK_EXTERNAL void *duk_get_heapptr(duk_hthread *thr, duk_idx_t idx) { + duk_tval *tv; + void *ret; + + DUK_ASSERT_API_ENTRY(thr); + + tv = duk_get_tval_or_unused(thr, idx); + DUK_ASSERT(tv != NULL); + if (DUK_UNLIKELY(!DUK_TVAL_IS_HEAP_ALLOCATED(tv))) { + return (void *) NULL; + } + + ret = (void *) DUK_TVAL_GET_HEAPHDR(tv); + DUK_ASSERT(ret != NULL); + return ret; +} + +DUK_EXTERNAL void *duk_opt_heapptr(duk_hthread *thr, duk_idx_t idx, void *def_value) { + DUK_ASSERT_API_ENTRY(thr); + + if (duk_check_type_mask(thr, idx, DUK_TYPE_MASK_NONE | DUK_TYPE_MASK_UNDEFINED)) { + return def_value; + } + return duk_require_heapptr(thr, idx); +} + +DUK_EXTERNAL void *duk_get_heapptr_default(duk_hthread *thr, duk_idx_t idx, void *def_value) { + void *ret; + + DUK_ASSERT_API_ENTRY(thr); + + ret = duk_get_heapptr(thr, idx); + if (ret != NULL) { + return ret; + } + + return def_value; +} + +DUK_EXTERNAL void *duk_require_heapptr(duk_hthread *thr, duk_idx_t idx) { + duk_tval *tv; + void *ret; + + DUK_ASSERT_API_ENTRY(thr); + + tv = duk_get_tval_or_unused(thr, idx); + DUK_ASSERT(tv != NULL); + if (DUK_UNLIKELY(!DUK_TVAL_IS_HEAP_ALLOCATED(tv))) { + DUK_ERROR_REQUIRE_TYPE_INDEX(thr, idx, "heapobject", DUK_STR_UNEXPECTED_TYPE); + DUK_WO_NORETURN(return NULL;); + } + + ret = (void *) DUK_TVAL_GET_HEAPHDR(tv); + DUK_ASSERT(ret != NULL); + return ret; +} + +/* Internal helper for getting/requiring a duk_hobject with possible promotion. */ +DUK_LOCAL duk_hobject *duk__get_hobject_promote_mask_raw(duk_hthread *thr, duk_idx_t idx, duk_uint_t type_mask) { + duk_uint_t val_mask; + duk_hobject *res; + + DUK_CTX_ASSERT_VALID(thr); + + res = duk_get_hobject(thr, idx); /* common case, not promoted */ + if (DUK_LIKELY(res != NULL)) { + DUK_ASSERT(res != NULL); + return res; + } + + val_mask = duk_get_type_mask(thr, idx); + if (val_mask & type_mask) { + if (type_mask & DUK_TYPE_MASK_PROMOTE) { + res = duk_to_hobject(thr, idx); + DUK_ASSERT(res != NULL); + return res; + } else { + return NULL; /* accept without promoting */ + } + } + + if (type_mask & DUK_TYPE_MASK_THROW) { + DUK_ERROR_REQUIRE_TYPE_INDEX(thr, idx, "object", DUK_STR_NOT_OBJECT); + DUK_WO_NORETURN(return NULL;); + } + return NULL; +} + +/* Get a duk_hobject * at 'idx'; if the value is not an object but matches the + * supplied 'type_mask', promote it to an object and return the duk_hobject *. + * This is useful for call sites which want an object but also accept a plain + * buffer and/or a lightfunc which gets automatically promoted to an object. + * Return value is NULL if value is neither an object nor a plain type allowed + * by the mask. + */ +DUK_INTERNAL duk_hobject *duk_get_hobject_promote_mask(duk_hthread *thr, duk_idx_t idx, duk_uint_t type_mask) { + DUK_ASSERT_API_ENTRY(thr); + return duk__get_hobject_promote_mask_raw(thr, idx, type_mask | DUK_TYPE_MASK_PROMOTE); +} + +/* Like duk_get_hobject_promote_mask() but throw a TypeError instead of + * returning a NULL. + */ +DUK_INTERNAL duk_hobject *duk_require_hobject_promote_mask(duk_hthread *thr, duk_idx_t idx, duk_uint_t type_mask) { + DUK_ASSERT_API_ENTRY(thr); + return duk__get_hobject_promote_mask_raw(thr, idx, type_mask | DUK_TYPE_MASK_THROW | DUK_TYPE_MASK_PROMOTE); +} + +/* Require a duk_hobject * at 'idx'; if the value is not an object but matches the + * supplied 'type_mask', return a NULL instead. Otherwise throw a TypeError. + */ +DUK_INTERNAL duk_hobject *duk_require_hobject_accept_mask(duk_hthread *thr, duk_idx_t idx, duk_uint_t type_mask) { + DUK_ASSERT_API_ENTRY(thr); + return duk__get_hobject_promote_mask_raw(thr, idx, type_mask | DUK_TYPE_MASK_THROW); +} + +DUK_INTERNAL duk_hobject *duk_get_hobject_with_class(duk_hthread *thr, duk_idx_t idx, duk_small_uint_t classnum) { + duk_hobject *h; + + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT_DISABLE(classnum >= 0); /* unsigned */ + DUK_ASSERT(classnum <= DUK_HOBJECT_CLASS_MAX); + + h = (duk_hobject *) duk__get_tagged_heaphdr_raw(thr, idx, DUK_TAG_OBJECT); + if (DUK_UNLIKELY(h != NULL && DUK_HOBJECT_GET_CLASS_NUMBER(h) != classnum)) { + h = NULL; + } + return h; +} + +DUK_INTERNAL duk_hobject *duk_require_hobject_with_class(duk_hthread *thr, duk_idx_t idx, duk_small_uint_t classnum) { + duk_hobject *h; + + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT_DISABLE(classnum >= 0); /* unsigned */ + DUK_ASSERT(classnum <= DUK_HOBJECT_CLASS_MAX); + + h = (duk_hobject *) duk__get_tagged_heaphdr_raw(thr, idx, DUK_TAG_OBJECT); + if (DUK_UNLIKELY(!(h != NULL && DUK_HOBJECT_GET_CLASS_NUMBER(h) == classnum))) { + duk_hstring *h_class; + h_class = DUK_HTHREAD_GET_STRING(thr, DUK_HOBJECT_CLASS_NUMBER_TO_STRIDX(classnum)); + DUK_UNREF(h_class); + + DUK_ERROR_REQUIRE_TYPE_INDEX(thr, idx, (const char *) DUK_HSTRING_GET_DATA(h_class), DUK_STR_UNEXPECTED_TYPE); + DUK_WO_NORETURN(return NULL;); + } + return h; +} + +DUK_EXTERNAL duk_size_t duk_get_length(duk_hthread *thr, duk_idx_t idx) { + duk_tval *tv; + + DUK_ASSERT_API_ENTRY(thr); + + tv = duk_get_tval_or_unused(thr, idx); + DUK_ASSERT(tv != NULL); + + switch (DUK_TVAL_GET_TAG(tv)) { + case DUK_TAG_UNDEFINED: + case DUK_TAG_NULL: + case DUK_TAG_BOOLEAN: + case DUK_TAG_POINTER: + return 0; +#if defined(DUK_USE_PREFER_SIZE) + /* String and buffer have a virtual non-configurable .length property + * which is within size_t range so it can be looked up without specific + * type checks. Lightfuncs inherit from %NativeFunctionPrototype% + * which provides an inherited .length accessor; it could be overwritten + * to produce unexpected types or values, but just number convert and + * duk_size_t cast for now. + */ + case DUK_TAG_STRING: + case DUK_TAG_BUFFER: + case DUK_TAG_LIGHTFUNC: { + duk_size_t ret; + duk_get_prop_stridx(thr, idx, DUK_STRIDX_LENGTH); + ret = (duk_size_t) duk_to_number_m1(thr); + duk_pop_unsafe(thr); + return ret; + } +#else /* DUK_USE_PREFER_SIZE */ + case DUK_TAG_STRING: { + duk_hstring *h = DUK_TVAL_GET_STRING(tv); + DUK_ASSERT(h != NULL); + if (DUK_UNLIKELY(DUK_HSTRING_HAS_SYMBOL(h))) { + return 0; + } + return (duk_size_t) DUK_HSTRING_GET_CHARLEN(h); + } + case DUK_TAG_BUFFER: { + duk_hbuffer *h = DUK_TVAL_GET_BUFFER(tv); + DUK_ASSERT(h != NULL); + return (duk_size_t) DUK_HBUFFER_GET_SIZE(h); + } + case DUK_TAG_LIGHTFUNC: { + /* We could look up the length from the lightfunc duk_tval, + * but since Duktape 2.2 lightfunc .length comes from + * %NativeFunctionPrototype% which can be overridden, so + * look up the property explicitly. + */ + duk_size_t ret; + duk_get_prop_stridx(thr, idx, DUK_STRIDX_LENGTH); + ret = (duk_size_t) duk_to_number_m1(thr); + duk_pop_unsafe(thr); + return ret; + } +#endif /* DUK_USE_PREFER_SIZE */ + case DUK_TAG_OBJECT: { + duk_hobject *h = DUK_TVAL_GET_OBJECT(tv); + DUK_ASSERT(h != NULL); + return (duk_size_t) duk_hobject_get_length(thr, h); + } +#if defined(DUK_USE_FASTINT) + case DUK_TAG_FASTINT: +#endif + default: + /* number or 'unused' */ + DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv) || DUK_TVAL_IS_UNUSED(tv)); + return 0; + } + + DUK_UNREACHABLE(); +} + +/* + * duk_known_xxx() helpers + * + * Used internally when we're 100% sure that a certain index is valid and + * contains an object of a certain type. For example, if we duk_push_object() + * we can then safely duk_known_hobject(thr, -1). These helpers just assert + * for the index and type, and if the assumptions are not valid, memory unsafe + * behavior happens. + */ + +DUK_LOCAL duk_heaphdr *duk__known_heaphdr(duk_hthread *thr, duk_idx_t idx) { + duk_tval *tv; + duk_heaphdr *h; + + DUK_CTX_ASSERT_VALID(thr); + if (idx < 0) { + tv = thr->valstack_top + idx; + } else { + tv = thr->valstack_bottom + idx; + } + DUK_ASSERT(tv >= thr->valstack_bottom); + DUK_ASSERT(tv < thr->valstack_top); + h = DUK_TVAL_GET_HEAPHDR(tv); + DUK_ASSERT(h != NULL); + return h; +} + +DUK_INTERNAL duk_hstring *duk_known_hstring(duk_hthread *thr, duk_idx_t idx) { + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(duk_get_hstring(thr, idx) != NULL); + return (duk_hstring *) duk__known_heaphdr(thr, idx); +} + +DUK_INTERNAL duk_hobject *duk_known_hobject(duk_hthread *thr, duk_idx_t idx) { + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(duk_get_hobject(thr, idx) != NULL); + return (duk_hobject *) duk__known_heaphdr(thr, idx); +} + +DUK_INTERNAL duk_hbuffer *duk_known_hbuffer(duk_hthread *thr, duk_idx_t idx) { + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(duk_get_hbuffer(thr, idx) != NULL); + return (duk_hbuffer *) duk__known_heaphdr(thr, idx); +} + +DUK_INTERNAL duk_hcompfunc *duk_known_hcompfunc(duk_hthread *thr, duk_idx_t idx) { + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(duk_get_hcompfunc(thr, idx) != NULL); + return (duk_hcompfunc *) duk__known_heaphdr(thr, idx); +} + +DUK_INTERNAL duk_hnatfunc *duk_known_hnatfunc(duk_hthread *thr, duk_idx_t idx) { + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(duk_get_hnatfunc(thr, idx) != NULL); + return (duk_hnatfunc *) duk__known_heaphdr(thr, idx); +} + +DUK_EXTERNAL void duk_set_length(duk_hthread *thr, duk_idx_t idx, duk_size_t len) { + DUK_ASSERT_API_ENTRY(thr); + + idx = duk_normalize_index(thr, idx); + duk_push_uint(thr, (duk_uint_t) len); + duk_put_prop_stridx(thr, idx, DUK_STRIDX_LENGTH); +} + +/* + * Conversions and coercions + * + * The conversion/coercions are in-place operations on the value stack. + * Some operations are implemented here directly, while others call a + * helper in duk_js_ops.c after validating arguments. + */ + +/* E5 Section 8.12.8 */ + +DUK_LOCAL duk_bool_t duk__defaultvalue_coerce_attempt(duk_hthread *thr, duk_idx_t idx, duk_small_uint_t func_stridx) { + if (duk_get_prop_stridx(thr, idx, func_stridx)) { + /* [ ... func ] */ + if (duk_is_callable(thr, -1)) { + duk_dup(thr, idx); /* -> [ ... func this ] */ + duk_call_method(thr, 0); /* -> [ ... retval ] */ + if (duk_is_primitive(thr, -1)) { + duk_replace(thr, idx); + return 1; + } + /* [ ... retval ]; popped below */ + } + } + duk_pop_unsafe(thr); /* [ ... func/retval ] -> [ ... ] */ + return 0; +} + +DUK_EXTERNAL void duk_to_undefined(duk_hthread *thr, duk_idx_t idx) { + duk_tval *tv; + + DUK_ASSERT_API_ENTRY(thr); + + tv = duk_require_tval(thr, idx); + DUK_ASSERT(tv != NULL); + DUK_TVAL_SET_UNDEFINED_UPDREF(thr, tv); /* side effects */ +} + +DUK_EXTERNAL void duk_to_null(duk_hthread *thr, duk_idx_t idx) { + duk_tval *tv; + + DUK_ASSERT_API_ENTRY(thr); + + tv = duk_require_tval(thr, idx); + DUK_ASSERT(tv != NULL); + DUK_TVAL_SET_NULL_UPDREF(thr, tv); /* side effects */ +} + +/* E5 Section 9.1 */ +DUK_LOCAL const char * const duk__toprim_hint_strings[3] = { + "default", "string", "number" +}; +DUK_LOCAL void duk__to_primitive_helper(duk_hthread *thr, duk_idx_t idx, duk_int_t hint, duk_bool_t check_symbol) { + /* Inline initializer for coercers[] is not allowed by old compilers like BCC. */ + duk_small_uint_t coercers[2]; + + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(hint == DUK_HINT_NONE || hint == DUK_HINT_NUMBER || hint == DUK_HINT_STRING); + + idx = duk_require_normalize_index(thr, idx); + + /* If already primitive, return as is. */ + if (!duk_check_type_mask(thr, idx, DUK_TYPE_MASK_OBJECT | + DUK_TYPE_MASK_LIGHTFUNC | + DUK_TYPE_MASK_BUFFER)) { + DUK_ASSERT(!duk_is_buffer(thr, idx)); /* duk_to_string() relies on this behavior */ + return; + } + + /* @@toPrimitive lookup. Also do for plain buffers and lightfuncs + * which mimic objects. + */ + if (check_symbol && duk_get_method_stridx(thr, idx, DUK_STRIDX_WELLKNOWN_SYMBOL_TO_PRIMITIVE)) { + DUK_ASSERT(hint >= 0 && (duk_size_t) hint < sizeof(duk__toprim_hint_strings) / sizeof(const char *)); + duk_dup(thr, idx); + duk_push_string(thr, duk__toprim_hint_strings[hint]); + duk_call_method(thr, 1); /* [ ... method value hint ] -> [ ... res] */ + if (duk_check_type_mask(thr, -1, DUK_TYPE_MASK_OBJECT | + DUK_TYPE_MASK_LIGHTFUNC | + DUK_TYPE_MASK_BUFFER)) { + goto fail; + } + duk_replace(thr, idx); + return; + } + + /* Objects are coerced based on E5 specification. + * Lightfuncs are coerced because they behave like + * objects even if they're internally a primitive + * type. Same applies to plain buffers, which behave + * like ArrayBuffer objects since Duktape 2.x. + */ + + /* Hint magic for Date is unnecessary in ES2015 because of + * Date.prototype[@@toPrimitive]. However, it is needed if + * symbol support is not enabled. + */ +#if defined(DUK_USE_SYMBOL_BUILTIN) + if (hint == DUK_HINT_NONE) { + hint = DUK_HINT_NUMBER; + } +#else /* DUK_USE_SYMBOL_BUILTIN */ + if (hint == DUK_HINT_NONE) { + duk_small_uint_t class_number; + + class_number = duk_get_class_number(thr, idx); + if (class_number == DUK_HOBJECT_CLASS_DATE) { + hint = DUK_HINT_STRING; + } else { + hint = DUK_HINT_NUMBER; + } + } +#endif /* DUK_USE_SYMBOL_BUILTIN */ + + coercers[0] = DUK_STRIDX_VALUE_OF; + coercers[1] = DUK_STRIDX_TO_STRING; + if (hint == DUK_HINT_STRING) { + coercers[0] = DUK_STRIDX_TO_STRING; + coercers[1] = DUK_STRIDX_VALUE_OF; + } + + if (duk__defaultvalue_coerce_attempt(thr, idx, coercers[0])) { + DUK_ASSERT(!duk_is_buffer(thr, idx)); /* duk_to_string() relies on this behavior */ + return; + } + + if (duk__defaultvalue_coerce_attempt(thr, idx, coercers[1])) { + DUK_ASSERT(!duk_is_buffer(thr, idx)); /* duk_to_string() relies on this behavior */ + return; + } + + fail: + DUK_ERROR_TYPE(thr, DUK_STR_TOPRIMITIVE_FAILED); + DUK_WO_NORETURN(return;); +} + +DUK_EXTERNAL void duk_to_primitive(duk_hthread *thr, duk_idx_t idx, duk_int_t hint) { + duk__to_primitive_helper(thr, idx, hint, 1 /*check_symbol*/); +} + +#if defined(DUK_USE_SYMBOL_BUILTIN) +DUK_INTERNAL void duk_to_primitive_ordinary(duk_hthread *thr, duk_idx_t idx, duk_int_t hint) { + duk__to_primitive_helper(thr, idx, hint, 0 /*check_symbol*/); +} +#endif + +/* E5 Section 9.2 */ +DUK_EXTERNAL duk_bool_t duk_to_boolean(duk_hthread *thr, duk_idx_t idx) { + duk_tval *tv; + duk_bool_t val; + + DUK_ASSERT_API_ENTRY(thr); + + idx = duk_require_normalize_index(thr, idx); + tv = DUK_GET_TVAL_POSIDX(thr, idx); + DUK_ASSERT(tv != NULL); + + val = duk_js_toboolean(tv); + DUK_ASSERT(val == 0 || val == 1); + + /* Note: no need to re-lookup tv, conversion is side effect free. */ + DUK_ASSERT(tv != NULL); + DUK_TVAL_SET_BOOLEAN_UPDREF(thr, tv, val); /* side effects */ + return val; +} + +DUK_INTERNAL duk_bool_t duk_to_boolean_top_pop(duk_hthread *thr) { + duk_tval *tv; + duk_bool_t val; + + DUK_ASSERT_API_ENTRY(thr); + + tv = duk_require_tval(thr, -1); + DUK_ASSERT(tv != NULL); + + val = duk_js_toboolean(tv); + DUK_ASSERT(val == 0 || val == 1); + + duk_pop_unsafe(thr); + return val; +} + +DUK_EXTERNAL duk_double_t duk_to_number(duk_hthread *thr, duk_idx_t idx) { + duk_tval *tv; + duk_double_t d; + + DUK_ASSERT_API_ENTRY(thr); + + /* XXX: No need to normalize; the whole operation could be inlined here to + * avoid 'tv' re-lookup. + */ + idx = duk_require_normalize_index(thr, idx); + tv = DUK_GET_TVAL_POSIDX(thr, idx); + DUK_ASSERT(tv != NULL); + d = duk_js_tonumber(thr, tv); /* XXX: fastint coercion? now result will always be a non-fastint */ + + /* ToNumber() may have side effects so must relookup 'tv'. */ + tv = DUK_GET_TVAL_POSIDX(thr, idx); + DUK_TVAL_SET_NUMBER_UPDREF(thr, tv, d); /* side effects */ + return d; +} + +DUK_INTERNAL duk_double_t duk_to_number_m1(duk_hthread *thr) { + DUK_ASSERT_API_ENTRY(thr); + return duk_to_number(thr, -1); +} +DUK_INTERNAL duk_double_t duk_to_number_m2(duk_hthread *thr) { + DUK_ASSERT_API_ENTRY(thr); + return duk_to_number(thr, -2); +} + +DUK_INTERNAL duk_double_t duk_to_number_tval(duk_hthread *thr, duk_tval *tv) { +#if defined(DUK_USE_PREFER_SIZE) + duk_double_t res; + + DUK_ASSERT_API_ENTRY(thr); + + duk_push_tval(thr, tv); + res = duk_to_number_m1(thr); + duk_pop_unsafe(thr); + return res; +#else + duk_double_t res; + duk_tval *tv_dst; + + DUK_ASSERT_API_ENTRY(thr); + DUK__ASSERT_SPACE(); + + tv_dst = thr->valstack_top++; + DUK_TVAL_SET_TVAL(tv_dst, tv); + DUK_TVAL_INCREF(thr, tv_dst); /* decref not necessary */ + res = duk_to_number_m1(thr); /* invalidates tv_dst */ + + tv_dst = --thr->valstack_top; + DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv_dst)); + DUK_ASSERT(!DUK_TVAL_NEEDS_REFCOUNT_UPDATE(tv_dst)); /* plain number */ + DUK_TVAL_SET_UNDEFINED(tv_dst); /* valstack init policy */ + + return res; +#endif +} + +/* XXX: combine all the integer conversions: they share everything + * but the helper function for coercion. + */ + +typedef duk_double_t (*duk__toint_coercer)(duk_hthread *thr, duk_tval *tv); + +DUK_LOCAL duk_double_t duk__to_int_uint_helper(duk_hthread *thr, duk_idx_t idx, duk__toint_coercer coerce_func) { + duk_tval *tv; + duk_double_t d; + + DUK_CTX_ASSERT_VALID(thr); + + tv = duk_require_tval(thr, idx); + DUK_ASSERT(tv != NULL); + +#if defined(DUK_USE_FASTINT) + /* If argument is a fastint, guarantee that it remains one. + * There's no downgrade check for other cases. + */ + if (DUK_TVAL_IS_FASTINT(tv)) { + /* XXX: Unnecessary conversion back and forth. */ + return (duk_double_t) DUK_TVAL_GET_FASTINT(tv); + } +#endif + d = coerce_func(thr, tv); + + /* XXX: fastint? */ + + /* Relookup in case coerce_func() has side effects, e.g. ends up coercing an object */ + tv = duk_require_tval(thr, idx); + DUK_TVAL_SET_NUMBER_UPDREF(thr, tv, d); /* side effects */ + return d; +} + +DUK_EXTERNAL duk_int_t duk_to_int(duk_hthread *thr, duk_idx_t idx) { + /* Value coercion (in stack): ToInteger(), E5 Section 9.4, + * API return value coercion: custom. + */ + DUK_ASSERT_API_ENTRY(thr); + (void) duk__to_int_uint_helper(thr, idx, duk_js_tointeger); + return (duk_int_t) duk__api_coerce_d2i(thr, idx, 0 /*def_value*/, 0 /*require*/); +} + +DUK_EXTERNAL duk_uint_t duk_to_uint(duk_hthread *thr, duk_idx_t idx) { + /* Value coercion (in stack): ToInteger(), E5 Section 9.4, + * API return value coercion: custom. + */ + DUK_ASSERT_API_ENTRY(thr); + (void) duk__to_int_uint_helper(thr, idx, duk_js_tointeger); + return (duk_uint_t) duk__api_coerce_d2ui(thr, idx, 0 /*def_value*/, 0 /*require*/); +} + +DUK_EXTERNAL duk_int32_t duk_to_int32(duk_hthread *thr, duk_idx_t idx) { + duk_tval *tv; + duk_int32_t ret; + + DUK_ASSERT_API_ENTRY(thr); + + tv = duk_require_tval(thr, idx); + DUK_ASSERT(tv != NULL); + ret = duk_js_toint32(thr, tv); + + /* Relookup in case coerce_func() has side effects, e.g. ends up coercing an object */ + tv = duk_require_tval(thr, idx); + DUK_TVAL_SET_I32_UPDREF(thr, tv, ret); /* side effects */ + return ret; +} + +DUK_EXTERNAL duk_uint32_t duk_to_uint32(duk_hthread *thr, duk_idx_t idx) { + duk_tval *tv; + duk_uint32_t ret; + + DUK_ASSERT_API_ENTRY(thr); + + tv = duk_require_tval(thr, idx); + DUK_ASSERT(tv != NULL); + ret = duk_js_touint32(thr, tv); + + /* Relookup in case coerce_func() has side effects, e.g. ends up coercing an object */ + tv = duk_require_tval(thr, idx); + DUK_TVAL_SET_U32_UPDREF(thr, tv, ret); /* side effects */ + return ret; +} + +DUK_EXTERNAL duk_uint16_t duk_to_uint16(duk_hthread *thr, duk_idx_t idx) { + duk_tval *tv; + duk_uint16_t ret; + + DUK_ASSERT_API_ENTRY(thr); + + tv = duk_require_tval(thr, idx); + DUK_ASSERT(tv != NULL); + ret = duk_js_touint16(thr, tv); + + /* Relookup in case coerce_func() has side effects, e.g. ends up coercing an object */ + tv = duk_require_tval(thr, idx); + DUK_TVAL_SET_U32_UPDREF(thr, tv, ret); /* side effects */ + return ret; +} + +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) +/* Special coercion for Uint8ClampedArray. */ +DUK_INTERNAL duk_uint8_t duk_to_uint8clamped(duk_hthread *thr, duk_idx_t idx) { + duk_double_t d; + duk_double_t t; + duk_uint8_t ret; + + DUK_ASSERT_API_ENTRY(thr); + + /* XXX: Simplify this algorithm, should be possible to come up with + * a shorter and faster algorithm by inspecting IEEE representation + * directly. + */ + + d = duk_to_number(thr, idx); + if (d <= 0.0) { + return 0; + } else if (d >= 255) { + return 255; + } else if (DUK_ISNAN(d)) { + /* Avoid NaN-to-integer coercion as it is compiler specific. */ + return 0; + } + + t = d - DUK_FLOOR(d); + if (duk_double_equals(t, 0.5)) { + /* Exact halfway, round to even. */ + ret = (duk_uint8_t) d; + ret = (ret + 1) & 0xfe; /* Example: d=3.5, t=0.5 -> ret = (3 + 1) & 0xfe = 4 & 0xfe = 4 + * Example: d=4.5, t=0.5 -> ret = (4 + 1) & 0xfe = 5 & 0xfe = 4 + */ + } else { + /* Not halfway, round to nearest. */ + ret = (duk_uint8_t) (d + 0.5); + } + return ret; +} +#endif /* DUK_USE_BUFFEROBJECT_SUPPORT */ + +DUK_EXTERNAL const char *duk_to_lstring(duk_hthread *thr, duk_idx_t idx, duk_size_t *out_len) { + DUK_ASSERT_API_ENTRY(thr); + + (void) duk_to_string(thr, idx); + DUK_ASSERT(duk_is_string(thr, idx)); + return duk_require_lstring(thr, idx, out_len); +} + +DUK_LOCAL duk_ret_t duk__safe_to_string_raw(duk_hthread *thr, void *udata) { + DUK_CTX_ASSERT_VALID(thr); + DUK_UNREF(udata); + + (void) duk_to_string(thr, -1); + return 1; +} + +DUK_EXTERNAL const char *duk_safe_to_lstring(duk_hthread *thr, duk_idx_t idx, duk_size_t *out_len) { + DUK_ASSERT_API_ENTRY(thr); + + idx = duk_require_normalize_index(thr, idx); + + /* We intentionally ignore the duk_safe_call() return value and only + * check the output type. This way we don't also need to check that + * the returned value is indeed a string in the success case. + */ + + duk_dup(thr, idx); + (void) duk_safe_call(thr, duk__safe_to_string_raw, NULL /*udata*/, 1 /*nargs*/, 1 /*nrets*/); + if (!duk_is_string(thr, -1)) { + /* Error: try coercing error to string once. */ + (void) duk_safe_call(thr, duk__safe_to_string_raw, NULL /*udata*/, 1 /*nargs*/, 1 /*nrets*/); + if (!duk_is_string(thr, -1)) { + /* Double error */ + duk_pop_unsafe(thr); + duk_push_hstring_stridx(thr, DUK_STRIDX_UC_ERROR); + } else { + ; + } + } else { + /* String; may be a symbol, accepted. */ + ; + } + DUK_ASSERT(duk_is_string(thr, -1)); + + duk_replace(thr, idx); + DUK_ASSERT(duk_get_string(thr, idx) != NULL); + return duk_get_lstring(thr, idx, out_len); +} + +DUK_EXTERNAL const char *duk_to_stacktrace(duk_hthread *thr, duk_idx_t idx) { + DUK_ASSERT_API_ENTRY(thr); + idx = duk_require_normalize_index(thr, idx); + + /* The expected argument to the call is an Error object. The stack + * trace is extracted without an inheritance-based instanceof check + * so that one can also extract the stack trace of a foreign error + * created in another Realm. Accept only a string .stack property. + */ + if (duk_is_object(thr, idx)) { + (void) duk_get_prop_string(thr, idx, "stack"); + if (duk_is_string(thr, -1)) { + duk_replace(thr, idx); + } else { + duk_pop(thr); + } + } + + return duk_to_string(thr, idx); +} + +DUK_LOCAL duk_ret_t duk__safe_to_stacktrace_raw(duk_hthread *thr, void *udata) { + DUK_CTX_ASSERT_VALID(thr); + DUK_UNREF(udata); + + (void) duk_to_stacktrace(thr, -1); + + return 1; +} + +DUK_EXTERNAL const char *duk_safe_to_stacktrace(duk_hthread *thr, duk_idx_t idx) { + duk_int_t rc; + + DUK_ASSERT_API_ENTRY(thr); + idx = duk_require_normalize_index(thr, idx); + + duk_dup(thr, idx); + rc = duk_safe_call(thr, duk__safe_to_stacktrace_raw, NULL /*udata*/, 1 /*nargs*/, 1 /*nrets*/); + if (rc != 0) { + /* Coercion failed. Try to coerce the coercion itself error + * to a stack trace once. If that also fails, return a fixed, + * preallocated 'Error' string to avoid potential infinite loop. + */ + rc = duk_safe_call(thr, duk__safe_to_stacktrace_raw, NULL /*udata*/, 1 /*nargs*/, 1 /*nrets*/); + if (rc != 0) { + duk_pop_unsafe(thr); + duk_push_hstring_stridx(thr, DUK_STRIDX_UC_ERROR); + } + } + duk_replace(thr, idx); + + return duk_get_string(thr, idx); +} + +DUK_INTERNAL duk_hstring *duk_to_property_key_hstring(duk_hthread *thr, duk_idx_t idx) { + duk_hstring *h; + + DUK_ASSERT_API_ENTRY(thr); + + duk_to_primitive(thr, idx, DUK_HINT_STRING); /* needed for e.g. Symbol objects */ + h = duk_get_hstring(thr, idx); + if (h == NULL) { + /* The "is string?" check may seem unnecessary, but as things + * are duk_to_hstring() invokes ToString() which fails for + * symbols. But since symbols are already strings for Duktape + * C API, we check for that before doing the coercion. + */ + h = duk_to_hstring(thr, idx); + } + DUK_ASSERT(h != NULL); + return h; +} + +#if defined(DUK_USE_DEBUGGER_SUPPORT) /* only needed by debugger for now */ +DUK_INTERNAL duk_hstring *duk_safe_to_hstring(duk_hthread *thr, duk_idx_t idx) { + DUK_ASSERT_API_ENTRY(thr); + + (void) duk_safe_to_string(thr, idx); + DUK_ASSERT(duk_is_string(thr, idx)); + DUK_ASSERT(duk_get_hstring(thr, idx) != NULL); + return duk_known_hstring(thr, idx); +} +#endif + +/* Push Object.prototype.toString() output for 'tv'. */ +DUK_INTERNAL void duk_push_class_string_tval(duk_hthread *thr, duk_tval *tv, duk_bool_t avoid_side_effects) { + duk_hobject *h_obj; + duk_small_uint_t classnum; + duk_small_uint_t stridx; + duk_tval tv_tmp; + + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(tv != NULL); + + /* Stabilize 'tv', duk_push_literal() may trigger side effects. */ + DUK_TVAL_SET_TVAL(&tv_tmp, tv); + tv = &tv_tmp; + + /* Conceptually for any non-undefined/null value we should do a + * ToObject() coercion and look up @@toStringTag (from the object + * prototype) to see if a custom result should be used, with the + * exception of Arrays which are handled specially first. + * + * We'd like to avoid the actual conversion, but even for primitive + * types the prototype may have @@toStringTag. What's worse, the + * @@toStringTag property may be a getter that must get the object + * coerced value (not the prototype) as its 'this' binding. + * + * For now, do an actual object coercion. This could be avoided by + * doing a side effect free lookup to see if a getter would be invoked. + * If not, the value can be read directly and the object coercion could + * be avoided. This may not be worth it in practice, because + * Object.prototype.toString() is usually not performance critical. + */ + + duk_push_literal(thr, "[object "); /* -> [ ... "[object" ] */ + + switch (DUK_TVAL_GET_TAG(tv)) { + case DUK_TAG_UNUSED: /* Treat like 'undefined', shouldn't happen. */ + case DUK_TAG_UNDEFINED: { + duk_push_hstring_stridx(thr, DUK_STRIDX_UC_UNDEFINED); + goto finish; + } + case DUK_TAG_NULL: { + duk_push_hstring_stridx(thr, DUK_STRIDX_UC_NULL); + goto finish; + } + } + + duk_push_tval(thr, tv); + tv = NULL; /* Invalidated by ToObject(). */ + h_obj = duk_to_hobject(thr, -1); + DUK_ASSERT(h_obj != NULL); + if (duk_js_isarray_hobject(h_obj)) { + stridx = DUK_STRIDX_UC_ARRAY; + } else { + /* [ ... "[object" obj ] */ + +#if defined(DUK_USE_SYMBOL_BUILTIN) + /* XXX: better handling with avoid_side_effects == 1; lookup tval + * without Proxy or getter side effects, and use it in sanitized + * form if it's a string. + */ + if (!avoid_side_effects) { + (void) duk_get_prop_stridx(thr, -1, DUK_STRIDX_WELLKNOWN_SYMBOL_TO_STRING_TAG); + if (duk_is_string_notsymbol(thr, -1)) { + duk_remove_m2(thr); + goto finish; + } + duk_pop_unsafe(thr); + } +#else + DUK_UNREF(avoid_side_effects); +#endif + + classnum = DUK_HOBJECT_GET_CLASS_NUMBER(h_obj); + stridx = DUK_HOBJECT_CLASS_NUMBER_TO_STRIDX(classnum); + } + duk_pop_unsafe(thr); + duk_push_hstring_stridx(thr, stridx); + + finish: + /* [ ... "[object" tag ] */ + duk_push_literal(thr, "]"); + duk_concat(thr, 3); /* [ ... "[object" tag "]" ] -> [ ... res ] */ +} + +/* XXX: other variants like uint, u32 etc */ +DUK_INTERNAL duk_int_t duk_to_int_clamped_raw(duk_hthread *thr, duk_idx_t idx, duk_int_t minval, duk_int_t maxval, duk_bool_t *out_clamped) { + duk_tval *tv; + duk_tval tv_tmp; + duk_double_t d, dmin, dmax; + duk_int_t res; + duk_bool_t clamped = 0; + + DUK_ASSERT_API_ENTRY(thr); + + tv = duk_require_tval(thr, idx); + DUK_ASSERT(tv != NULL); + d = duk_js_tointeger(thr, tv); /* E5 Section 9.4, ToInteger() */ + + dmin = (duk_double_t) minval; + dmax = (duk_double_t) maxval; + + if (d < dmin) { + clamped = 1; + res = minval; + d = dmin; + } else if (d > dmax) { + clamped = 1; + res = maxval; + d = dmax; + } else { + res = (duk_int_t) d; + } + DUK_UNREF(d); /* SCANBUILD: with suitable dmin/dmax limits 'd' is unused */ + /* 'd' and 'res' agree here */ + + /* Relookup in case duk_js_tointeger() ends up e.g. coercing an object. */ + tv = duk_get_tval(thr, idx); + DUK_ASSERT(tv != NULL); /* not popped by side effect */ + DUK_TVAL_SET_TVAL(&tv_tmp, tv); +#if defined(DUK_USE_FASTINT) +#if (DUK_INT_MAX <= 0x7fffffffL) + DUK_TVAL_SET_I32(tv, res); +#else + /* Clamping needed if duk_int_t is 64 bits. */ + if (res >= DUK_FASTINT_MIN && res <= DUK_FASTINT_MAX) { + DUK_TVAL_SET_FASTINT(tv, res); + } else { + DUK_TVAL_SET_NUMBER(tv, d); + } +#endif +#else + DUK_TVAL_SET_NUMBER(tv, d); /* no need to incref */ +#endif + DUK_TVAL_DECREF(thr, &tv_tmp); /* side effects */ + + if (out_clamped) { + *out_clamped = clamped; + } else { + /* coerced value is updated to value stack even when RangeError thrown */ + if (clamped) { + DUK_ERROR_RANGE(thr, DUK_STR_NUMBER_OUTSIDE_RANGE); + DUK_WO_NORETURN(return 0;); + } + } + + return res; +} + +DUK_INTERNAL duk_int_t duk_to_int_clamped(duk_hthread *thr, duk_idx_t idx, duk_idx_t minval, duk_idx_t maxval) { + duk_bool_t dummy; + + DUK_ASSERT_API_ENTRY(thr); + + return duk_to_int_clamped_raw(thr, idx, minval, maxval, &dummy); +} + +DUK_INTERNAL duk_int_t duk_to_int_check_range(duk_hthread *thr, duk_idx_t idx, duk_int_t minval, duk_int_t maxval) { + DUK_ASSERT_API_ENTRY(thr); + return duk_to_int_clamped_raw(thr, idx, minval, maxval, NULL); /* out_clamped==NULL -> RangeError if outside range */ +} + +DUK_EXTERNAL const char *duk_to_string(duk_hthread *thr, duk_idx_t idx) { + duk_tval *tv; + + DUK_ASSERT_API_ENTRY(thr); + + idx = duk_require_normalize_index(thr, idx); + tv = DUK_GET_TVAL_POSIDX(thr, idx); + DUK_ASSERT(tv != NULL); + + switch (DUK_TVAL_GET_TAG(tv)) { + case DUK_TAG_UNDEFINED: { + duk_push_hstring_stridx(thr, DUK_STRIDX_LC_UNDEFINED); + break; + } + case DUK_TAG_NULL: { + duk_push_hstring_stridx(thr, DUK_STRIDX_LC_NULL); + break; + } + case DUK_TAG_BOOLEAN: { + if (DUK_TVAL_GET_BOOLEAN(tv)) { + duk_push_hstring_stridx(thr, DUK_STRIDX_TRUE); + } else { + duk_push_hstring_stridx(thr, DUK_STRIDX_FALSE); + } + break; + } + case DUK_TAG_STRING: { + /* Nop for actual strings, TypeError for Symbols. + * Because various internals rely on ToString() coercion of + * internal strings, -allow- (NOP) string coercion for hidden + * symbols. + */ +#if 1 + duk_hstring *h; + h = DUK_TVAL_GET_STRING(tv); + DUK_ASSERT(h != NULL); + if (DUK_UNLIKELY(DUK_HSTRING_HAS_SYMBOL(h))) { + DUK_ERROR_TYPE(thr, DUK_STR_CANNOT_STRING_COERCE_SYMBOL); + DUK_WO_NORETURN(goto skip_replace;); + } else { + goto skip_replace; + } +#else + goto skip_replace; +#endif + break; + } + case DUK_TAG_BUFFER: /* Go through Uint8Array.prototype.toString() for coercion. */ + case DUK_TAG_OBJECT: { + /* Plain buffers: go through ArrayBuffer.prototype.toString() + * for coercion. + * + * Symbol objects: duk_to_primitive() results in a plain symbol + * value, and duk_to_string() then causes a TypeError. + */ + duk_to_primitive(thr, idx, DUK_HINT_STRING); + DUK_ASSERT(!duk_is_buffer(thr, idx)); /* ToPrimitive() must guarantee */ + DUK_ASSERT(!duk_is_object(thr, idx)); + return duk_to_string(thr, idx); /* Note: recursive call */ + } + case DUK_TAG_POINTER: { + void *ptr = DUK_TVAL_GET_POINTER(tv); + if (ptr != NULL) { + duk_push_sprintf(thr, DUK_STR_FMT_PTR, (void *) ptr); + } else { + /* Represent a null pointer as 'null' to be consistent with + * the JX format variant. Native '%p' format for a NULL + * pointer may be e.g. '(nil)'. + */ + duk_push_hstring_stridx(thr, DUK_STRIDX_LC_NULL); + } + break; + } + case DUK_TAG_LIGHTFUNC: { + /* Should match Function.prototype.toString() */ + duk_push_lightfunc_tostring(thr, tv); + break; + } +#if defined(DUK_USE_FASTINT) + case DUK_TAG_FASTINT: +#endif + default: { + /* number */ + DUK_ASSERT(!DUK_TVAL_IS_UNUSED(tv)); + DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv)); + duk_push_tval(thr, tv); + duk_numconv_stringify(thr, + 10 /*radix*/, + 0 /*precision:shortest*/, + 0 /*force_exponential*/); + break; + } + } + + duk_replace(thr, idx); + + skip_replace: + DUK_ASSERT(duk_is_string(thr, idx)); + return duk_require_string(thr, idx); +} + +DUK_INTERNAL duk_hstring *duk_to_hstring(duk_hthread *thr, duk_idx_t idx) { + duk_hstring *ret; + + DUK_ASSERT_API_ENTRY(thr); + + duk_to_string(thr, idx); + ret = duk_get_hstring(thr, idx); + DUK_ASSERT(ret != NULL); + return ret; +} + +DUK_INTERNAL duk_hstring *duk_to_hstring_m1(duk_hthread *thr) { + DUK_ASSERT_API_ENTRY(thr); + return duk_to_hstring(thr, -1); +} + +DUK_INTERNAL duk_hstring *duk_to_hstring_acceptsymbol(duk_hthread *thr, duk_idx_t idx) { + duk_hstring *ret; + + DUK_ASSERT_API_ENTRY(thr); + + ret = duk_get_hstring(thr, idx); + if (DUK_UNLIKELY(ret && DUK_HSTRING_HAS_SYMBOL(ret))) { + return ret; + } + return duk_to_hstring(thr, idx); +} + +/* Convert a plain buffer or any buffer object into a string, using the buffer + * bytes 1:1 in the internal string representation. For views the active byte + * slice (not element slice interpreted as an initializer) is used. This is + * necessary in Duktape 2.x because ToString(plainBuffer) no longer creates a + * string with the same bytes as in the buffer but rather (usually) + * '[object ArrayBuffer]'. + */ +DUK_EXTERNAL const char *duk_buffer_to_string(duk_hthread *thr, duk_idx_t idx) { + void *ptr_src; + duk_size_t len; + const char *res; + + DUK_ASSERT_API_ENTRY(thr); + + idx = duk_require_normalize_index(thr, idx); + + ptr_src = duk_require_buffer_data(thr, idx, &len); + DUK_ASSERT(ptr_src != NULL || len == 0); + + res = duk_push_lstring(thr, (const char *) ptr_src, len); + duk_replace(thr, idx); + return res; +} + +DUK_EXTERNAL void *duk_to_buffer_raw(duk_hthread *thr, duk_idx_t idx, duk_size_t *out_size, duk_uint_t mode) { + duk_hbuffer *h_buf; + const duk_uint8_t *src_data; + duk_size_t src_size; + duk_uint8_t *dst_data; + + DUK_ASSERT_API_ENTRY(thr); + + idx = duk_require_normalize_index(thr, idx); + + h_buf = duk_get_hbuffer(thr, idx); + if (h_buf != NULL) { + /* Buffer is kept as is, with the fixed/dynamic nature of the + * buffer only changed if requested. An external buffer + * is converted into a non-external dynamic buffer in a + * duk_to_dynamic_buffer() call. + */ + duk_uint_t tmp; + duk_uint8_t *tmp_ptr; + + tmp_ptr = (duk_uint8_t *) DUK_HBUFFER_GET_DATA_PTR(thr->heap, h_buf); + src_data = (const duk_uint8_t *) tmp_ptr; + src_size = DUK_HBUFFER_GET_SIZE(h_buf); + + tmp = (DUK_HBUFFER_HAS_DYNAMIC(h_buf) ? DUK_BUF_MODE_DYNAMIC : DUK_BUF_MODE_FIXED); + if ((tmp == mode && !DUK_HBUFFER_HAS_EXTERNAL(h_buf)) || + mode == DUK_BUF_MODE_DONTCARE) { + /* Note: src_data may be NULL if input is a zero-size + * dynamic buffer. + */ + dst_data = tmp_ptr; + goto skip_copy; + } + } else { + /* Non-buffer value is first ToString() coerced, then converted + * to a buffer (fixed buffer is used unless a dynamic buffer is + * explicitly requested). Symbols are rejected with a TypeError. + * XXX: C API could maybe allow symbol-to-buffer coercion? + */ + src_data = (const duk_uint8_t *) duk_to_lstring(thr, idx, &src_size); + } + + dst_data = (duk_uint8_t *) duk_push_buffer(thr, src_size, (mode == DUK_BUF_MODE_DYNAMIC) /*dynamic*/); + /* dst_data may be NULL if size is zero. */ + duk_memcpy_unsafe((void *) dst_data, (const void *) src_data, (size_t) src_size); + + duk_replace(thr, idx); + skip_copy: + + if (out_size) { + *out_size = src_size; + } + return dst_data; +} + +DUK_EXTERNAL void *duk_to_pointer(duk_hthread *thr, duk_idx_t idx) { + duk_tval *tv; + void *res; + + DUK_ASSERT_API_ENTRY(thr); + + idx = duk_require_normalize_index(thr, idx); + tv = DUK_GET_TVAL_POSIDX(thr, idx); + DUK_ASSERT(tv != NULL); + + switch (DUK_TVAL_GET_TAG(tv)) { + case DUK_TAG_UNDEFINED: + case DUK_TAG_NULL: + case DUK_TAG_BOOLEAN: + res = NULL; + break; + case DUK_TAG_POINTER: + res = DUK_TVAL_GET_POINTER(tv); + break; + case DUK_TAG_STRING: + case DUK_TAG_OBJECT: + case DUK_TAG_BUFFER: + /* Heap allocated: return heap pointer which is NOT useful + * for the caller, except for debugging. + */ + res = (void *) DUK_TVAL_GET_HEAPHDR(tv); + break; + case DUK_TAG_LIGHTFUNC: + /* Function pointers do not always cast correctly to void * + * (depends on memory and segmentation model for instance), + * so they coerce to NULL. + */ + res = NULL; + break; +#if defined(DUK_USE_FASTINT) + case DUK_TAG_FASTINT: +#endif + default: + /* number */ + DUK_ASSERT(!DUK_TVAL_IS_UNUSED(tv)); + DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv)); + res = NULL; + break; + } + + duk_push_pointer(thr, res); + duk_replace(thr, idx); + return res; +} + +DUK_LOCAL void duk__push_func_from_lightfunc(duk_hthread *thr, duk_c_function func, duk_small_uint_t lf_flags) { + duk_idx_t nargs; + duk_uint_t flags = 0; /* shared flags for a subset of types */ + duk_small_uint_t lf_len; + duk_hnatfunc *nf; + + nargs = (duk_idx_t) DUK_LFUNC_FLAGS_GET_NARGS(lf_flags); + if (nargs == DUK_LFUNC_NARGS_VARARGS) { + nargs = (duk_idx_t) DUK_VARARGS; + } + + flags = DUK_HOBJECT_FLAG_EXTENSIBLE | + DUK_HOBJECT_FLAG_CONSTRUCTABLE | + DUK_HOBJECT_FLAG_CALLABLE | + DUK_HOBJECT_FLAG_FASTREFS | + DUK_HOBJECT_FLAG_NATFUNC | + DUK_HOBJECT_FLAG_NEWENV | + DUK_HOBJECT_FLAG_STRICT | + DUK_HOBJECT_FLAG_NOTAIL | + DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_FUNCTION); + (void) duk__push_c_function_raw(thr, func, nargs, flags, DUK_BIDX_NATIVE_FUNCTION_PROTOTYPE); + + lf_len = DUK_LFUNC_FLAGS_GET_LENGTH(lf_flags); + if ((duk_idx_t) lf_len != nargs) { + /* Explicit length is only needed if it differs from 'nargs'. */ + duk_push_int(thr, (duk_int_t) lf_len); + duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_LENGTH, DUK_PROPDESC_FLAGS_NONE); + } + +#if defined(DUK_USE_FUNC_NAME_PROPERTY) + duk_push_lightfunc_name_raw(thr, func, lf_flags); + duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_NAME, DUK_PROPDESC_FLAGS_C); +#endif + + nf = duk_known_hnatfunc(thr, -1); + nf->magic = (duk_int16_t) DUK_LFUNC_FLAGS_GET_MAGIC(lf_flags); +} + +DUK_EXTERNAL void duk_to_object(duk_hthread *thr, duk_idx_t idx) { + duk_tval *tv; + duk_uint_t flags = 0; /* shared flags for a subset of types */ + duk_small_int_t proto = 0; + + DUK_ASSERT_API_ENTRY(thr); + + idx = duk_require_normalize_index(thr, idx); + tv = DUK_GET_TVAL_POSIDX(thr, idx); + DUK_ASSERT(tv != NULL); + + switch (DUK_TVAL_GET_TAG(tv)) { +#if !defined(DUK_USE_BUFFEROBJECT_SUPPORT) + case DUK_TAG_BUFFER: /* With no bufferobject support, don't object coerce. */ +#endif + case DUK_TAG_UNDEFINED: + case DUK_TAG_NULL: { + DUK_ERROR_TYPE(thr, DUK_STR_NOT_OBJECT_COERCIBLE); + DUK_WO_NORETURN(return;); + break; + } + case DUK_TAG_BOOLEAN: { + flags = DUK_HOBJECT_FLAG_EXTENSIBLE | + DUK_HOBJECT_FLAG_FASTREFS | + DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_BOOLEAN); + proto = DUK_BIDX_BOOLEAN_PROTOTYPE; + goto create_object; + } + case DUK_TAG_STRING: { + duk_hstring *h; + h = DUK_TVAL_GET_STRING(tv); + DUK_ASSERT(h != NULL); + if (DUK_UNLIKELY(DUK_HSTRING_HAS_SYMBOL(h))) { + flags = DUK_HOBJECT_FLAG_EXTENSIBLE | + DUK_HOBJECT_FLAG_FASTREFS | + DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_SYMBOL); + proto = DUK_BIDX_SYMBOL_PROTOTYPE; + } else { + flags = DUK_HOBJECT_FLAG_EXTENSIBLE | + DUK_HOBJECT_FLAG_FASTREFS | + DUK_HOBJECT_FLAG_EXOTIC_STRINGOBJ | + DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_STRING); + proto = DUK_BIDX_STRING_PROTOTYPE; + } + goto create_object; + } + case DUK_TAG_OBJECT: { + /* nop */ + break; + } +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) + case DUK_TAG_BUFFER: { + /* A plain buffer object coerces to a full ArrayBuffer which + * is not fully transparent behavior (ToObject() should be a + * nop for an object). This behavior matches lightfuncs which + * also coerce to an equivalent Function object. There are + * also downsides to defining ToObject(plainBuffer) as a no-op; + * for example duk_to_hobject() could result in a NULL pointer. + */ + duk_hbuffer *h_buf; + + h_buf = DUK_TVAL_GET_BUFFER(tv); + DUK_ASSERT(h_buf != NULL); + duk_hbufobj_push_uint8array_from_plain(thr, h_buf); + goto replace_value; + } +#endif /* DUK_USE_BUFFEROBJECT_SUPPORT */ + case DUK_TAG_POINTER: { + flags = DUK_HOBJECT_FLAG_EXTENSIBLE | + DUK_HOBJECT_FLAG_FASTREFS | + DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_POINTER); + proto = DUK_BIDX_POINTER_PROTOTYPE; + goto create_object; + } + case DUK_TAG_LIGHTFUNC: { + /* Lightfunc coerces to a Function instance with concrete + * properties. Since 'length' is virtual for Duktape/C + * functions, don't need to define that. The result is made + * extensible to mimic what happens to strings in object + * coercion: + * + * > Object.isExtensible(Object('foo')) + * true + */ + duk_small_uint_t lf_flags; + duk_c_function func; + + DUK_TVAL_GET_LIGHTFUNC(tv, func, lf_flags); + duk__push_func_from_lightfunc(thr, func, lf_flags); + goto replace_value; + } +#if defined(DUK_USE_FASTINT) + case DUK_TAG_FASTINT: +#endif + default: { + DUK_ASSERT(!DUK_TVAL_IS_UNUSED(tv)); + DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv)); + flags = DUK_HOBJECT_FLAG_EXTENSIBLE | + DUK_HOBJECT_FLAG_FASTREFS | + DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_NUMBER); + proto = DUK_BIDX_NUMBER_PROTOTYPE; + goto create_object; + } + } + DUK_ASSERT(duk_is_object(thr, idx)); + return; + + create_object: + (void) duk_push_object_helper(thr, flags, proto); + + /* Note: Boolean prototype's internal value property is not writable, + * but duk_xdef_prop_stridx() disregards the write protection. Boolean + * instances are immutable. + * + * String and buffer special behaviors are already enabled which is not + * ideal, but a write to the internal value is not affected by them. + */ + duk_dup(thr, idx); + duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_INT_VALUE, DUK_PROPDESC_FLAGS_NONE); + + replace_value: + duk_replace(thr, idx); + DUK_ASSERT(duk_is_object(thr, idx)); +} + +DUK_INTERNAL duk_hobject *duk_to_hobject(duk_hthread *thr, duk_idx_t idx) { + duk_hobject *ret; + + DUK_ASSERT_API_ENTRY(thr); + + duk_to_object(thr, idx); + ret = duk_known_hobject(thr, idx); + return ret; +} + +/* + * Type checking + */ + +DUK_LOCAL duk_bool_t duk__tag_check(duk_hthread *thr, duk_idx_t idx, duk_small_uint_t tag) { + duk_tval *tv; + + tv = duk_get_tval_or_unused(thr, idx); + DUK_ASSERT(tv != NULL); + return (DUK_TVAL_GET_TAG(tv) == tag); +} + +DUK_LOCAL duk_bool_t duk__obj_flag_any_default_false(duk_hthread *thr, duk_idx_t idx, duk_uint_t flag_mask) { + duk_hobject *obj; + + DUK_ASSERT_API_ENTRY(thr); + + obj = duk_get_hobject(thr, idx); + if (obj) { + return (DUK_HEAPHDR_CHECK_FLAG_BITS((duk_heaphdr *) obj, flag_mask) ? 1 : 0); + } + return 0; +} + +DUK_INTERNAL duk_int_t duk_get_type_tval(duk_tval *tv) { + DUK_ASSERT(tv != NULL); + +#if defined(DUK_USE_PACKED_TVAL) + switch (DUK_TVAL_GET_TAG(tv)) { + case DUK_TAG_UNUSED: + return DUK_TYPE_NONE; + case DUK_TAG_UNDEFINED: + return DUK_TYPE_UNDEFINED; + case DUK_TAG_NULL: + return DUK_TYPE_NULL; + case DUK_TAG_BOOLEAN: + return DUK_TYPE_BOOLEAN; + case DUK_TAG_STRING: + return DUK_TYPE_STRING; + case DUK_TAG_OBJECT: + return DUK_TYPE_OBJECT; + case DUK_TAG_BUFFER: + return DUK_TYPE_BUFFER; + case DUK_TAG_POINTER: + return DUK_TYPE_POINTER; + case DUK_TAG_LIGHTFUNC: + return DUK_TYPE_LIGHTFUNC; +#if defined(DUK_USE_FASTINT) + case DUK_TAG_FASTINT: +#endif + default: + /* Note: number has no explicit tag (in 8-byte representation) */ + DUK_ASSERT(!DUK_TVAL_IS_UNUSED(tv)); + DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv)); + return DUK_TYPE_NUMBER; + } +#else /* DUK_USE_PACKED_TVAL */ + DUK_ASSERT(DUK_TVAL_IS_VALID_TAG(tv)); + DUK_ASSERT(sizeof(duk__type_from_tag) / sizeof(duk_uint_t) == DUK_TAG_MAX - DUK_TAG_MIN + 1); + return (duk_int_t) duk__type_from_tag[DUK_TVAL_GET_TAG(tv) - DUK_TAG_MIN]; +#endif /* DUK_USE_PACKED_TVAL */ +} + +DUK_EXTERNAL duk_int_t duk_get_type(duk_hthread *thr, duk_idx_t idx) { + duk_tval *tv; + + DUK_ASSERT_API_ENTRY(thr); + + tv = duk_get_tval_or_unused(thr, idx); + DUK_ASSERT(tv != NULL); + + return duk_get_type_tval(tv); +} + +#if defined(DUK_USE_VERBOSE_ERRORS) && defined(DUK_USE_PARANOID_ERRORS) +DUK_LOCAL const char * const duk__type_names[] = { + "none", + "undefined", + "null", + "boolean", + "number", + "string", + "object", + "buffer", + "pointer", + "lightfunc" +}; + +DUK_INTERNAL const char *duk_get_type_name(duk_hthread *thr, duk_idx_t idx) { + duk_int_t type_tag; + + DUK_ASSERT_API_ENTRY(thr); + + type_tag = duk_get_type(thr, idx); + DUK_ASSERT(type_tag >= DUK_TYPE_MIN && type_tag <= DUK_TYPE_MAX); + DUK_ASSERT(DUK_TYPE_MIN == 0 && sizeof(duk__type_names) / sizeof(const char *) == DUK_TYPE_MAX + 1); + + return duk__type_names[type_tag]; +} +#endif /* DUK_USE_VERBOSE_ERRORS && DUK_USE_PARANOID_ERRORS */ + +DUK_INTERNAL duk_small_uint_t duk_get_class_number(duk_hthread *thr, duk_idx_t idx) { + duk_tval *tv; + duk_hobject *obj; + + DUK_ASSERT_API_ENTRY(thr); + + tv = duk_get_tval_or_unused(thr, idx); + DUK_ASSERT(tv != NULL); + + switch (DUK_TVAL_GET_TAG(tv)) { + case DUK_TAG_OBJECT: + obj = DUK_TVAL_GET_OBJECT(tv); + DUK_ASSERT(obj != NULL); + return DUK_HOBJECT_GET_CLASS_NUMBER(obj); + case DUK_TAG_BUFFER: + /* Buffers behave like Uint8Array objects. */ + return DUK_HOBJECT_CLASS_UINT8ARRAY; + case DUK_TAG_LIGHTFUNC: + /* Lightfuncs behave like Function objects. */ + return DUK_HOBJECT_CLASS_FUNCTION; + default: + /* Primitive or UNUSED, no class number. */ + return DUK_HOBJECT_CLASS_NONE; + } +} + +DUK_EXTERNAL duk_bool_t duk_check_type(duk_hthread *thr, duk_idx_t idx, duk_int_t type) { + DUK_ASSERT_API_ENTRY(thr); + + return (duk_get_type(thr, idx) == type) ? 1 : 0; +} + +DUK_INTERNAL duk_uint_t duk_get_type_mask_tval(duk_tval *tv) { + DUK_ASSERT(tv != NULL); + +#if defined(DUK_USE_PACKED_TVAL) + switch (DUK_TVAL_GET_TAG(tv)) { + case DUK_TAG_UNUSED: + return DUK_TYPE_MASK_NONE; + case DUK_TAG_UNDEFINED: + return DUK_TYPE_MASK_UNDEFINED; + case DUK_TAG_NULL: + return DUK_TYPE_MASK_NULL; + case DUK_TAG_BOOLEAN: + return DUK_TYPE_MASK_BOOLEAN; + case DUK_TAG_STRING: + return DUK_TYPE_MASK_STRING; + case DUK_TAG_OBJECT: + return DUK_TYPE_MASK_OBJECT; + case DUK_TAG_BUFFER: + return DUK_TYPE_MASK_BUFFER; + case DUK_TAG_POINTER: + return DUK_TYPE_MASK_POINTER; + case DUK_TAG_LIGHTFUNC: + return DUK_TYPE_MASK_LIGHTFUNC; +#if defined(DUK_USE_FASTINT) + case DUK_TAG_FASTINT: +#endif + default: + /* Note: number has no explicit tag (in 8-byte representation) */ + DUK_ASSERT(!DUK_TVAL_IS_UNUSED(tv)); + DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv)); + return DUK_TYPE_MASK_NUMBER; + } +#else /* DUK_USE_PACKED_TVAL */ + DUK_ASSERT(DUK_TVAL_IS_VALID_TAG(tv)); + DUK_ASSERT(sizeof(duk__type_mask_from_tag) / sizeof(duk_uint_t) == DUK_TAG_MAX - DUK_TAG_MIN + 1); + return duk__type_mask_from_tag[DUK_TVAL_GET_TAG(tv) - DUK_TAG_MIN]; +#endif /* DUK_USE_PACKED_TVAL */ +} + +DUK_EXTERNAL duk_uint_t duk_get_type_mask(duk_hthread *thr, duk_idx_t idx) { + duk_tval *tv; + + DUK_ASSERT_API_ENTRY(thr); + + tv = duk_get_tval_or_unused(thr, idx); + DUK_ASSERT(tv != NULL); + + return duk_get_type_mask_tval(tv); +} + +DUK_EXTERNAL duk_bool_t duk_check_type_mask(duk_hthread *thr, duk_idx_t idx, duk_uint_t mask) { + DUK_ASSERT_API_ENTRY(thr); + + if (DUK_LIKELY((duk_get_type_mask(thr, idx) & mask) != 0U)) { + return 1; + } + if (mask & DUK_TYPE_MASK_THROW) { + DUK_ERROR_TYPE(thr, DUK_STR_UNEXPECTED_TYPE); + DUK_WO_NORETURN(return 0;); + } + return 0; +} + +DUK_EXTERNAL duk_bool_t duk_is_undefined(duk_hthread *thr, duk_idx_t idx) { + DUK_ASSERT_API_ENTRY(thr); + return duk__tag_check(thr, idx, DUK_TAG_UNDEFINED); +} + +DUK_EXTERNAL duk_bool_t duk_is_null(duk_hthread *thr, duk_idx_t idx) { + DUK_ASSERT_API_ENTRY(thr); + return duk__tag_check(thr, idx, DUK_TAG_NULL); +} + +DUK_EXTERNAL duk_bool_t duk_is_boolean(duk_hthread *thr, duk_idx_t idx) { + DUK_ASSERT_API_ENTRY(thr); + return duk__tag_check(thr, idx, DUK_TAG_BOOLEAN); +} + +DUK_EXTERNAL duk_bool_t duk_is_number(duk_hthread *thr, duk_idx_t idx) { + duk_tval *tv; + + DUK_ASSERT_API_ENTRY(thr); + + /* + * Number is special because it doesn't have a specific + * tag in the 8-byte representation. + */ + + /* XXX: shorter version for unpacked representation? */ + + tv = duk_get_tval_or_unused(thr, idx); + DUK_ASSERT(tv != NULL); + return DUK_TVAL_IS_NUMBER(tv); +} + +DUK_EXTERNAL duk_bool_t duk_is_nan(duk_hthread *thr, duk_idx_t idx) { + /* XXX: This will now return false for non-numbers, even though they would + * coerce to NaN (as a general rule). In particular, duk_get_number() + * returns a NaN for non-numbers, so should this function also return + * true for non-numbers? + */ + + duk_tval *tv; + + DUK_ASSERT_API_ENTRY(thr); + + tv = duk_get_tval_or_unused(thr, idx); + DUK_ASSERT(tv != NULL); + + /* XXX: for packed duk_tval an explicit "is number" check is unnecessary */ + if (!DUK_TVAL_IS_NUMBER(tv)) { + return 0; + } + return (duk_bool_t) DUK_ISNAN(DUK_TVAL_GET_NUMBER(tv)); +} + +DUK_EXTERNAL duk_bool_t duk_is_string(duk_hthread *thr, duk_idx_t idx) { + DUK_ASSERT_API_ENTRY(thr); + return duk__tag_check(thr, idx, DUK_TAG_STRING); +} + +DUK_INTERNAL duk_bool_t duk_is_string_notsymbol(duk_hthread *thr, duk_idx_t idx) { + DUK_ASSERT_API_ENTRY(thr); + return duk_get_hstring_notsymbol(thr, idx) != NULL; +} + +DUK_EXTERNAL duk_bool_t duk_is_object(duk_hthread *thr, duk_idx_t idx) { + DUK_ASSERT_API_ENTRY(thr); + return duk__tag_check(thr, idx, DUK_TAG_OBJECT); +} + +DUK_EXTERNAL duk_bool_t duk_is_buffer(duk_hthread *thr, duk_idx_t idx) { + DUK_ASSERT_API_ENTRY(thr); + return duk__tag_check(thr, idx, DUK_TAG_BUFFER); +} + +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) +DUK_EXTERNAL duk_bool_t duk_is_buffer_data(duk_hthread *thr, duk_idx_t idx) { + duk_tval *tv; + + DUK_ASSERT_API_ENTRY(thr); + + tv = duk_get_tval_or_unused(thr, idx); + DUK_ASSERT(tv != NULL); + if (DUK_TVAL_IS_BUFFER(tv)) { + return 1; + } else if (DUK_TVAL_IS_OBJECT(tv)) { + duk_hobject *h = DUK_TVAL_GET_OBJECT(tv); + DUK_ASSERT(h != NULL); + if (DUK_HOBJECT_IS_BUFOBJ(h)) { + return 1; + } + } + return 0; +} +#else /* DUK_USE_BUFFEROBJECT_SUPPORT */ +DUK_EXTERNAL duk_bool_t duk_is_buffer_data(duk_hthread *thr, duk_idx_t idx) { + DUK_ASSERT_API_ENTRY(thr); + + return duk_is_buffer(thr, idx); +} + +#endif /* DUK_USE_BUFFEROBJECT_SUPPORT */ + +DUK_EXTERNAL duk_bool_t duk_is_pointer(duk_hthread *thr, duk_idx_t idx) { + DUK_ASSERT_API_ENTRY(thr); + return duk__tag_check(thr, idx, DUK_TAG_POINTER); +} + +DUK_EXTERNAL duk_bool_t duk_is_lightfunc(duk_hthread *thr, duk_idx_t idx) { + DUK_ASSERT_API_ENTRY(thr); + return duk__tag_check(thr, idx, DUK_TAG_LIGHTFUNC); +} + +DUK_EXTERNAL duk_bool_t duk_is_symbol(duk_hthread *thr, duk_idx_t idx) { + duk_hstring *h; + + DUK_ASSERT_API_ENTRY(thr); + h = duk_get_hstring(thr, idx); + /* Use DUK_LIKELY() here because caller may be more likely to type + * check an expected symbol than not. + */ + if (DUK_LIKELY(h != NULL && DUK_HSTRING_HAS_SYMBOL(h))) { + return 1; + } + return 0; +} + +/* IsArray(), returns true for Array instance or Proxy of Array instance. */ +DUK_EXTERNAL duk_bool_t duk_is_array(duk_hthread *thr, duk_idx_t idx) { + duk_tval *tv; + + DUK_ASSERT_API_ENTRY(thr); + + tv = duk_get_tval(thr, idx); + if (tv) { + return duk_js_isarray(tv); + } + return 0; +} + +DUK_EXTERNAL duk_bool_t duk_is_function(duk_hthread *thr, duk_idx_t idx) { + duk_tval *tv; + + DUK_ASSERT_API_ENTRY(thr); + + tv = duk_get_tval_or_unused(thr, idx); + if (DUK_TVAL_IS_OBJECT(tv)) { + duk_hobject *h; + h = DUK_TVAL_GET_OBJECT(tv); + DUK_ASSERT(h != NULL); + return DUK_HOBJECT_HAS_CALLABLE(h) ? 1 : 0; + } + if (DUK_TVAL_IS_LIGHTFUNC(tv)) { + return 1; + } + return 0; +} + +DUK_INTERNAL duk_bool_t duk_is_callable_tval(duk_hthread *thr, duk_tval *tv) { + DUK_ASSERT_API_ENTRY(thr); + + DUK_UNREF(thr); + + if (DUK_TVAL_IS_OBJECT(tv)) { + duk_hobject *h; + h = DUK_TVAL_GET_OBJECT(tv); + DUK_ASSERT(h != NULL); + return DUK_HOBJECT_HAS_CALLABLE(h) ? 1 : 0; + } + if (DUK_TVAL_IS_LIGHTFUNC(tv)) { + return 1; + } + return 0; +} + +DUK_EXTERNAL duk_bool_t duk_is_constructable(duk_hthread *thr, duk_idx_t idx) { + duk_tval *tv; + + DUK_ASSERT_API_ENTRY(thr); + + tv = duk_get_tval_or_unused(thr, idx); + if (DUK_TVAL_IS_OBJECT(tv)) { + duk_hobject *h; + h = DUK_TVAL_GET_OBJECT(tv); + DUK_ASSERT(h != NULL); + return DUK_HOBJECT_HAS_CONSTRUCTABLE(h) ? 1 : 0; + } + if (DUK_TVAL_IS_LIGHTFUNC(tv)) { + return 1; + } + return 0; +} + +DUK_EXTERNAL duk_bool_t duk_is_c_function(duk_hthread *thr, duk_idx_t idx) { + DUK_ASSERT_API_ENTRY(thr); + return duk__obj_flag_any_default_false(thr, + idx, + DUK_HOBJECT_FLAG_NATFUNC); +} + +DUK_EXTERNAL duk_bool_t duk_is_ecmascript_function(duk_hthread *thr, duk_idx_t idx) { + DUK_ASSERT_API_ENTRY(thr); + return duk__obj_flag_any_default_false(thr, + idx, + DUK_HOBJECT_FLAG_COMPFUNC); +} + +DUK_EXTERNAL duk_bool_t duk_is_bound_function(duk_hthread *thr, duk_idx_t idx) { + DUK_ASSERT_API_ENTRY(thr); + return duk__obj_flag_any_default_false(thr, + idx, + DUK_HOBJECT_FLAG_BOUNDFUNC); +} + +DUK_EXTERNAL duk_bool_t duk_is_thread(duk_hthread *thr, duk_idx_t idx) { + duk_hobject *obj; + + DUK_ASSERT_API_ENTRY(thr); + + obj = duk_get_hobject(thr, idx); + if (obj) { + return (DUK_HOBJECT_GET_CLASS_NUMBER(obj) == DUK_HOBJECT_CLASS_THREAD ? 1 : 0); + } + return 0; +} + +DUK_EXTERNAL duk_bool_t duk_is_fixed_buffer(duk_hthread *thr, duk_idx_t idx) { + duk_tval *tv; + + DUK_ASSERT_API_ENTRY(thr); + + tv = duk_get_tval_or_unused(thr, idx); + DUK_ASSERT(tv != NULL); + if (DUK_TVAL_IS_BUFFER(tv)) { + duk_hbuffer *h = DUK_TVAL_GET_BUFFER(tv); + DUK_ASSERT(h != NULL); + return (DUK_HBUFFER_HAS_DYNAMIC(h) ? 0 : 1); + } + return 0; +} + +DUK_EXTERNAL duk_bool_t duk_is_dynamic_buffer(duk_hthread *thr, duk_idx_t idx) { + duk_tval *tv; + + DUK_ASSERT_API_ENTRY(thr); + + tv = duk_get_tval_or_unused(thr, idx); + DUK_ASSERT(tv != NULL); + if (DUK_TVAL_IS_BUFFER(tv)) { + duk_hbuffer *h = DUK_TVAL_GET_BUFFER(tv); + DUK_ASSERT(h != NULL); + return (DUK_HBUFFER_HAS_DYNAMIC(h) && !DUK_HBUFFER_HAS_EXTERNAL(h) ? 1 : 0); + } + return 0; +} + +DUK_EXTERNAL duk_bool_t duk_is_external_buffer(duk_hthread *thr, duk_idx_t idx) { + duk_tval *tv; + + DUK_ASSERT_API_ENTRY(thr); + + tv = duk_get_tval_or_unused(thr, idx); + DUK_ASSERT(tv != NULL); + if (DUK_TVAL_IS_BUFFER(tv)) { + duk_hbuffer *h = DUK_TVAL_GET_BUFFER(tv); + DUK_ASSERT(h != NULL); + return (DUK_HBUFFER_HAS_DYNAMIC(h) && DUK_HBUFFER_HAS_EXTERNAL(h) ? 1 : 0); + } + return 0; +} + +DUK_EXTERNAL duk_errcode_t duk_get_error_code(duk_hthread *thr, duk_idx_t idx) { + duk_hobject *h; + duk_uint_t sanity; + + DUK_ASSERT_API_ENTRY(thr); + + h = duk_get_hobject(thr, idx); + + sanity = DUK_HOBJECT_PROTOTYPE_CHAIN_SANITY; + do { + if (!h) { + return DUK_ERR_NONE; + } + + /* XXX: something more convenient? */ + + if (h == thr->builtins[DUK_BIDX_EVAL_ERROR_PROTOTYPE]) { + return DUK_ERR_EVAL_ERROR; + } + if (h == thr->builtins[DUK_BIDX_RANGE_ERROR_PROTOTYPE]) { + return DUK_ERR_RANGE_ERROR; + } + if (h == thr->builtins[DUK_BIDX_REFERENCE_ERROR_PROTOTYPE]) { + return DUK_ERR_REFERENCE_ERROR; + } + if (h == thr->builtins[DUK_BIDX_SYNTAX_ERROR_PROTOTYPE]) { + return DUK_ERR_SYNTAX_ERROR; + } + if (h == thr->builtins[DUK_BIDX_TYPE_ERROR_PROTOTYPE]) { + return DUK_ERR_TYPE_ERROR; + } + if (h == thr->builtins[DUK_BIDX_URI_ERROR_PROTOTYPE]) { + return DUK_ERR_URI_ERROR; + } + if (h == thr->builtins[DUK_BIDX_ERROR_PROTOTYPE]) { + return DUK_ERR_ERROR; + } + + h = DUK_HOBJECT_GET_PROTOTYPE(thr->heap, h); + } while (--sanity > 0); + + return DUK_ERR_NONE; +} + +/* + * Pushers + */ + +DUK_INTERNAL void duk_push_tval(duk_hthread *thr, duk_tval *tv) { + duk_tval *tv_slot; + + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(tv != NULL); + + DUK__CHECK_SPACE(); + tv_slot = thr->valstack_top++; + DUK_TVAL_SET_TVAL(tv_slot, tv); + DUK_TVAL_INCREF(thr, tv); /* no side effects */ +} + +DUK_EXTERNAL void duk_push_undefined(duk_hthread *thr) { + DUK_ASSERT_API_ENTRY(thr); + + DUK__CHECK_SPACE(); + + /* Because value stack init policy is 'undefined above top', + * we don't need to write, just assert. + */ + thr->valstack_top++; + DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(thr->valstack_top - 1)); +} + +DUK_EXTERNAL void duk_push_null(duk_hthread *thr) { + duk_tval *tv_slot; + + DUK_ASSERT_API_ENTRY(thr); + DUK__CHECK_SPACE(); + tv_slot = thr->valstack_top++; + DUK_TVAL_SET_NULL(tv_slot); +} + +DUK_EXTERNAL void duk_push_boolean(duk_hthread *thr, duk_bool_t val) { + duk_tval *tv_slot; + duk_small_int_t b; + + DUK_ASSERT_API_ENTRY(thr); + DUK__CHECK_SPACE(); + b = (val ? 1 : 0); /* ensure value is 1 or 0 (not other non-zero) */ + tv_slot = thr->valstack_top++; + DUK_TVAL_SET_BOOLEAN(tv_slot, b); +} + +DUK_EXTERNAL void duk_push_true(duk_hthread *thr) { + duk_tval *tv_slot; + + DUK_ASSERT_API_ENTRY(thr); + DUK__CHECK_SPACE(); + tv_slot = thr->valstack_top++; + DUK_TVAL_SET_BOOLEAN_TRUE(tv_slot); +} + +DUK_EXTERNAL void duk_push_false(duk_hthread *thr) { + duk_tval *tv_slot; + + DUK_ASSERT_API_ENTRY(thr); + DUK__CHECK_SPACE(); + tv_slot = thr->valstack_top++; + DUK_TVAL_SET_BOOLEAN_FALSE(tv_slot); +} + +/* normalize NaN which may not match our canonical internal NaN */ +DUK_EXTERNAL void duk_push_number(duk_hthread *thr, duk_double_t val) { + duk_tval *tv_slot; + duk_double_union du; + + DUK_ASSERT_API_ENTRY(thr); + DUK__CHECK_SPACE(); + du.d = val; + DUK_DBLUNION_NORMALIZE_NAN_CHECK(&du); + tv_slot = thr->valstack_top++; + DUK_TVAL_SET_NUMBER(tv_slot, du.d); +} + +DUK_EXTERNAL void duk_push_int(duk_hthread *thr, duk_int_t val) { +#if defined(DUK_USE_FASTINT) + duk_tval *tv_slot; + + DUK_ASSERT_API_ENTRY(thr); + DUK__CHECK_SPACE(); + tv_slot = thr->valstack_top++; +#if DUK_INT_MAX <= 0x7fffffffL + DUK_TVAL_SET_I32(tv_slot, (duk_int32_t) val); +#else + if (val >= DUK_FASTINT_MIN && val <= DUK_FASTINT_MAX) { + DUK_TVAL_SET_FASTINT(tv_slot, (duk_int64_t) val); + } else { + duk_double_t = (duk_double_t) val; + DUK_TVAL_SET_NUMBER(tv_slot, d); + } +#endif +#else /* DUK_USE_FASTINT */ + duk_tval *tv_slot; + duk_double_t d; + + DUK_ASSERT_API_ENTRY(thr); + DUK__CHECK_SPACE(); + d = (duk_double_t) val; + tv_slot = thr->valstack_top++; + DUK_TVAL_SET_NUMBER(tv_slot, d); +#endif /* DUK_USE_FASTINT */ +} + +DUK_EXTERNAL void duk_push_uint(duk_hthread *thr, duk_uint_t val) { +#if defined(DUK_USE_FASTINT) + duk_tval *tv_slot; + + DUK_ASSERT_API_ENTRY(thr); + DUK__CHECK_SPACE(); + tv_slot = thr->valstack_top++; +#if DUK_UINT_MAX <= 0xffffffffUL + DUK_TVAL_SET_U32(tv_slot, (duk_uint32_t) val); +#else + if (val <= DUK_FASTINT_MAX) { /* val is unsigned so >= 0 */ + /* XXX: take advantage of val being unsigned, no need to mask */ + DUK_TVAL_SET_FASTINT(tv_slot, (duk_int64_t) val); + } else { + duk_double_t = (duk_double_t) val; + DUK_TVAL_SET_NUMBER(tv_slot, d); + } +#endif +#else /* DUK_USE_FASTINT */ + duk_tval *tv_slot; + duk_double_t d; + + DUK_ASSERT_API_ENTRY(thr); + DUK__CHECK_SPACE(); + d = (duk_double_t) val; + tv_slot = thr->valstack_top++; + DUK_TVAL_SET_NUMBER(tv_slot, d); +#endif /* DUK_USE_FASTINT */ +} + +DUK_EXTERNAL void duk_push_nan(duk_hthread *thr) { + duk_tval *tv_slot; + duk_double_union du; + + DUK_ASSERT_API_ENTRY(thr); + DUK__CHECK_SPACE(); + DUK_DBLUNION_SET_NAN(&du); + DUK_ASSERT(DUK_DBLUNION_IS_NORMALIZED(&du)); + tv_slot = thr->valstack_top++; + DUK_TVAL_SET_NUMBER(tv_slot, du.d); +} + +DUK_EXTERNAL const char *duk_push_lstring(duk_hthread *thr, const char *str, duk_size_t len) { + duk_hstring *h; + duk_tval *tv_slot; + + DUK_ASSERT_API_ENTRY(thr); + + /* Check stack before interning (avoid hanging temp). */ + DUK__CHECK_SPACE(); + + /* NULL with zero length represents an empty string; NULL with higher + * length is also now treated like an empty string although it is + * a bit dubious. This is unlike duk_push_string() which pushes a + * 'null' if the input string is a NULL. + */ + if (DUK_UNLIKELY(str == NULL)) { + len = 0U; + } + + /* Check for maximum string length. */ + if (DUK_UNLIKELY(len > DUK_HSTRING_MAX_BYTELEN)) { + DUK_ERROR_RANGE(thr, DUK_STR_STRING_TOO_LONG); + DUK_WO_NORETURN(return NULL;); + } + + h = duk_heap_strtable_intern_checked(thr, (const duk_uint8_t *) str, (duk_uint32_t) len); + DUK_ASSERT(h != NULL); + + tv_slot = thr->valstack_top++; + DUK_TVAL_SET_STRING(tv_slot, h); + DUK_HSTRING_INCREF(thr, h); /* no side effects */ + + return (const char *) DUK_HSTRING_GET_DATA(h); +} + +DUK_EXTERNAL const char *duk_push_string(duk_hthread *thr, const char *str) { + DUK_ASSERT_API_ENTRY(thr); + + if (str) { + return duk_push_lstring(thr, str, DUK_STRLEN(str)); + } else { + duk_push_null(thr); + return NULL; + } +} + +#if !defined(DUK_USE_PREFER_SIZE) +#if defined(DUK_USE_LITCACHE_SIZE) +DUK_EXTERNAL const char *duk_push_literal_raw(duk_hthread *thr, const char *str, duk_size_t len) { + duk_hstring *h; + duk_tval *tv_slot; + + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(str != NULL); + DUK_ASSERT(str[len] == (char) 0); + + /* Check for maximum string length. */ + if (DUK_UNLIKELY(len > DUK_HSTRING_MAX_BYTELEN)) { + DUK_ERROR_RANGE(thr, DUK_STR_STRING_TOO_LONG); + DUK_WO_NORETURN(return NULL;); + } + + h = duk_heap_strtable_intern_literal_checked(thr, (const duk_uint8_t *) str, (duk_uint32_t) len); + DUK_ASSERT(h != NULL); + + tv_slot = thr->valstack_top++; + DUK_TVAL_SET_STRING(tv_slot, h); + DUK_HSTRING_INCREF(thr, h); /* no side effects */ + + return (const char *) DUK_HSTRING_GET_DATA(h); +} +#else /* DUK_USE_LITCACHE_SIZE */ +DUK_EXTERNAL const char *duk_push_literal_raw(duk_hthread *thr, const char *str, duk_size_t len) { + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(str != NULL); + DUK_ASSERT(str[len] == (char) 0); + + return duk_push_lstring(thr, str, len); +} +#endif /* DUK_USE_LITCACHE_SIZE */ +#endif /* !DUK_USE_PREFER_SIZE */ + +DUK_EXTERNAL void duk_push_pointer(duk_hthread *thr, void *val) { + duk_tval *tv_slot; + + DUK_ASSERT_API_ENTRY(thr); + DUK__CHECK_SPACE(); + tv_slot = thr->valstack_top++; + DUK_TVAL_SET_POINTER(tv_slot, val); +} + +DUK_INTERNAL duk_hstring *duk_push_uint_to_hstring(duk_hthread *thr, duk_uint_t i) { + duk_hstring *h_tmp; + + DUK_ASSERT_API_ENTRY(thr); + + /* XXX: this could be a direct DUK_SPRINTF to a buffer followed by duk_push_string() */ + duk_push_uint(thr, (duk_uint_t) i); + h_tmp = duk_to_hstring_m1(thr); + DUK_ASSERT(h_tmp != NULL); + return h_tmp; +} + +DUK_LOCAL void duk__push_this_helper(duk_hthread *thr, duk_small_uint_t check_object_coercible) { + duk_tval *tv_slot; + + DUK__CHECK_SPACE(); + + DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(thr->valstack_top)); /* because of valstack init policy */ + tv_slot = thr->valstack_top++; + + if (DUK_UNLIKELY(thr->callstack_curr == NULL)) { + if (check_object_coercible) { + goto type_error; + } + /* 'undefined' already on stack top */ + } else { + duk_tval *tv; + + /* 'this' binding is just before current activation's bottom */ + DUK_ASSERT(thr->valstack_bottom > thr->valstack); + tv = thr->valstack_bottom - 1; + if (check_object_coercible && + (DUK_TVAL_IS_UNDEFINED(tv) || DUK_TVAL_IS_NULL(tv))) { + /* XXX: better macro for DUK_TVAL_IS_UNDEFINED_OR_NULL(tv) */ + goto type_error; + } + + DUK_TVAL_SET_TVAL(tv_slot, tv); + DUK_TVAL_INCREF(thr, tv); + } + return; + + type_error: + DUK_ERROR_TYPE(thr, DUK_STR_NOT_OBJECT_COERCIBLE); + DUK_WO_NORETURN(return;); +} + +DUK_EXTERNAL void duk_push_this(duk_hthread *thr) { + DUK_ASSERT_API_ENTRY(thr); + + duk__push_this_helper(thr, 0 /*check_object_coercible*/); +} + +DUK_INTERNAL void duk_push_this_check_object_coercible(duk_hthread *thr) { + DUK_ASSERT_API_ENTRY(thr); + + duk__push_this_helper(thr, 1 /*check_object_coercible*/); +} + +DUK_INTERNAL duk_hobject *duk_push_this_coercible_to_object(duk_hthread *thr) { + duk_hobject *h; + + DUK_ASSERT_API_ENTRY(thr); + + duk__push_this_helper(thr, 1 /*check_object_coercible*/); + h = duk_to_hobject(thr, -1); + DUK_ASSERT(h != NULL); + return h; +} + +DUK_INTERNAL duk_hstring *duk_push_this_coercible_to_string(duk_hthread *thr) { + DUK_ASSERT_API_ENTRY(thr); + + duk__push_this_helper(thr, 1 /*check_object_coercible*/); + return duk_to_hstring_m1(thr); /* This will reject all Symbol values; accepts Symbol objects. */ +} + +DUK_INTERNAL duk_tval *duk_get_borrowed_this_tval(duk_hthread *thr) { + DUK_ASSERT_API_ENTRY(thr); + + DUK_ASSERT(thr->callstack_top > 0); /* caller required to know */ + DUK_ASSERT(thr->callstack_curr != NULL); /* caller required to know */ + DUK_ASSERT(thr->valstack_bottom > thr->valstack); /* consequence of above */ + DUK_ASSERT(thr->valstack_bottom - 1 >= thr->valstack); /* 'this' binding exists */ + + return thr->valstack_bottom - 1; +} + +DUK_EXTERNAL void duk_push_new_target(duk_hthread *thr) { + duk_activation *act; + + DUK_ASSERT_API_ENTRY(thr); + + /* https://www.ecma-international.org/ecma-262/6.0/#sec-meta-properties-runtime-semantics-evaluation + * https://www.ecma-international.org/ecma-262/6.0/#sec-getnewtarget + * + * No newTarget support now, so as a first approximation + * use the resolved (non-bound) target function. + * + * Check CONSTRUCT flag from current function, or if running + * direct eval, from a non-direct-eval parent (with possibly + * more than one nested direct eval). An alternative to this + * would be to store [[NewTarget]] as a hidden symbol of the + * lexical scope, and then just look up that variable. + * + * Calls from the application will either be for an empty + * call stack, or a Duktape/C function as the top activation. + */ + + act = thr->callstack_curr; + for (;;) { + if (act == NULL) { + break; + } + + if (act->flags & DUK_ACT_FLAG_CONSTRUCT) { + duk_push_tval(thr, &act->tv_func); + return; + } else if (act->flags & DUK_ACT_FLAG_DIRECT_EVAL) { + act = act->parent; + } else { + break; + } + } + + duk_push_undefined(thr); +} + +DUK_EXTERNAL void duk_push_current_function(duk_hthread *thr) { + duk_activation *act; + + DUK_ASSERT_API_ENTRY(thr); + + act = thr->callstack_curr; + if (act != NULL) { + duk_push_tval(thr, &act->tv_func); + } else { + duk_push_undefined(thr); + } +} + +DUK_EXTERNAL void duk_push_current_thread(duk_hthread *thr) { + DUK_ASSERT_API_ENTRY(thr); + + if (thr->heap->curr_thread) { + duk_push_hobject(thr, (duk_hobject *) thr->heap->curr_thread); + } else { + duk_push_undefined(thr); + } +} + +DUK_EXTERNAL void duk_push_global_object(duk_hthread *thr) { + DUK_ASSERT_API_ENTRY(thr); + + duk_push_hobject_bidx(thr, DUK_BIDX_GLOBAL); +} + +/* XXX: size optimize */ +DUK_LOCAL void duk__push_stash(duk_hthread *thr) { + if (!duk_xget_owndataprop_stridx_short(thr, -1, DUK_STRIDX_INT_VALUE)) { + DUK_DDD(DUK_DDDPRINT("creating heap/global/thread stash on first use")); + duk_pop_unsafe(thr); + duk_push_bare_object(thr); + duk_dup_top(thr); + duk_xdef_prop_stridx_short(thr, -3, DUK_STRIDX_INT_VALUE, DUK_PROPDESC_FLAGS_C); /* [ ... parent stash stash ] -> [ ... parent stash ] */ + } + duk_remove_m2(thr); +} + +DUK_EXTERNAL void duk_push_heap_stash(duk_hthread *thr) { + duk_heap *heap; + DUK_ASSERT_API_ENTRY(thr); + heap = thr->heap; + DUK_ASSERT(heap->heap_object != NULL); + duk_push_hobject(thr, heap->heap_object); + duk__push_stash(thr); +} + +DUK_EXTERNAL void duk_push_global_stash(duk_hthread *thr) { + DUK_ASSERT_API_ENTRY(thr); + duk_push_global_object(thr); + duk__push_stash(thr); +} + +DUK_EXTERNAL void duk_push_thread_stash(duk_hthread *thr, duk_hthread *target_thr) { + DUK_ASSERT_API_ENTRY(thr); + if (DUK_UNLIKELY(target_thr == NULL)) { + DUK_ERROR_TYPE_INVALID_ARGS(thr); + DUK_WO_NORETURN(return;); + } + duk_push_hobject(thr, (duk_hobject *) target_thr); + duk__push_stash(thr); +} + +/* XXX: duk_ssize_t would be useful here */ +DUK_LOCAL duk_int_t duk__try_push_vsprintf(duk_hthread *thr, void *buf, duk_size_t sz, const char *fmt, va_list ap) { + duk_int_t len; + + DUK_CTX_ASSERT_VALID(thr); + DUK_UNREF(thr); + + /* NUL terminator handling doesn't matter here */ + len = DUK_VSNPRINTF((char *) buf, sz, fmt, ap); + if (len < (duk_int_t) sz) { + /* Return value of 'sz' or more indicates output was (potentially) + * truncated. + */ + return (duk_int_t) len; + } + return -1; +} + +DUK_EXTERNAL const char *duk_push_vsprintf(duk_hthread *thr, const char *fmt, va_list ap) { + duk_uint8_t stack_buf[DUK_PUSH_SPRINTF_INITIAL_SIZE]; + duk_size_t sz = DUK_PUSH_SPRINTF_INITIAL_SIZE; + duk_bool_t pushed_buf = 0; + void *buf; + duk_int_t len; /* XXX: duk_ssize_t */ + const char *res; + + DUK_ASSERT_API_ENTRY(thr); + + /* special handling of fmt==NULL */ + if (!fmt) { + duk_hstring *h_str; + duk_push_hstring_empty(thr); + h_str = duk_known_hstring(thr, -1); + return (const char *) DUK_HSTRING_GET_DATA(h_str); + } + + /* initial estimate based on format string */ + sz = DUK_STRLEN(fmt) + 16; /* format plus something to avoid just missing */ + if (sz < DUK_PUSH_SPRINTF_INITIAL_SIZE) { + sz = DUK_PUSH_SPRINTF_INITIAL_SIZE; + } + DUK_ASSERT(sz > 0); + + /* Try to make do with a stack buffer to avoid allocating a temporary buffer. + * This works 99% of the time which is quite nice. + */ + for (;;) { + va_list ap_copy; /* copied so that 'ap' can be reused */ + + if (sz <= sizeof(stack_buf)) { + buf = stack_buf; + } else if (!pushed_buf) { + pushed_buf = 1; + buf = duk_push_dynamic_buffer(thr, sz); + } else { + buf = duk_resize_buffer(thr, -1, sz); + } + DUK_ASSERT(buf != NULL); + + DUK_VA_COPY(ap_copy, ap); + len = duk__try_push_vsprintf(thr, buf, sz, fmt, ap_copy); + va_end(ap_copy); + if (len >= 0) { + break; + } + + /* failed, resize and try again */ + sz = sz * 2; + if (DUK_UNLIKELY(sz >= DUK_PUSH_SPRINTF_SANITY_LIMIT)) { + DUK_ERROR_RANGE(thr, DUK_STR_RESULT_TOO_LONG); + DUK_WO_NORETURN(return NULL;); + } + } + + /* Cannot use duk_buffer_to_string() on the buffer because it is + * usually larger than 'len'; 'buf' is also usually a stack buffer. + */ + res = duk_push_lstring(thr, (const char *) buf, (duk_size_t) len); /* [ buf? res ] */ + if (pushed_buf) { + duk_remove_m2(thr); + } + return res; +} + +DUK_EXTERNAL const char *duk_push_sprintf(duk_hthread *thr, const char *fmt, ...) { + va_list ap; + const char *ret; + + DUK_ASSERT_API_ENTRY(thr); + + /* allow fmt==NULL */ + va_start(ap, fmt); + ret = duk_push_vsprintf(thr, fmt, ap); + va_end(ap); + + return ret; +} + +DUK_INTERNAL duk_hobject *duk_push_object_helper(duk_hthread *thr, duk_uint_t hobject_flags_and_class, duk_small_int_t prototype_bidx) { + duk_tval *tv_slot; + duk_hobject *h; + + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(prototype_bidx == -1 || + (prototype_bidx >= 0 && prototype_bidx < DUK_NUM_BUILTINS)); + + DUK__CHECK_SPACE(); + + h = duk_hobject_alloc(thr, hobject_flags_and_class); + DUK_ASSERT(h != NULL); + + DUK_DDD(DUK_DDDPRINT("created object with flags: 0x%08lx", (unsigned long) h->hdr.h_flags)); + + tv_slot = thr->valstack_top; + DUK_TVAL_SET_OBJECT(tv_slot, h); + DUK_HOBJECT_INCREF(thr, h); /* no side effects */ + thr->valstack_top++; + + /* object is now reachable */ + + if (prototype_bidx >= 0) { + DUK_HOBJECT_SET_PROTOTYPE_INIT_INCREF(thr, h, thr->builtins[prototype_bidx]); + } else { + DUK_ASSERT(prototype_bidx == -1); + DUK_ASSERT(DUK_HOBJECT_GET_PROTOTYPE(thr->heap, h) == NULL); + } + + return h; +} + +DUK_INTERNAL duk_hobject *duk_push_object_helper_proto(duk_hthread *thr, duk_uint_t hobject_flags_and_class, duk_hobject *proto) { + duk_hobject *h; + + DUK_ASSERT_API_ENTRY(thr); + + h = duk_push_object_helper(thr, hobject_flags_and_class, -1); + DUK_ASSERT(h != NULL); + DUK_HOBJECT_SET_PROTOTYPE_INIT_INCREF(thr, h, proto); + return h; +} + +DUK_EXTERNAL duk_idx_t duk_push_object(duk_hthread *thr) { + DUK_ASSERT_API_ENTRY(thr); + + (void) duk_push_object_helper(thr, + DUK_HOBJECT_FLAG_EXTENSIBLE | + DUK_HOBJECT_FLAG_FASTREFS | + DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_OBJECT), + DUK_BIDX_OBJECT_PROTOTYPE); + return duk_get_top_index_unsafe(thr); +} + +DUK_EXTERNAL duk_idx_t duk_push_array(duk_hthread *thr) { + duk_uint_t flags; + duk_harray *obj; + duk_idx_t ret; + duk_tval *tv_slot; + + DUK_ASSERT_API_ENTRY(thr); + + flags = DUK_HOBJECT_FLAG_EXTENSIBLE | + DUK_HOBJECT_FLAG_FASTREFS | + DUK_HOBJECT_FLAG_ARRAY_PART | + DUK_HOBJECT_FLAG_EXOTIC_ARRAY | + DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_ARRAY); + + obj = duk_harray_alloc(thr, flags); + DUK_ASSERT(obj != NULL); + + DUK_HOBJECT_SET_PROTOTYPE_INIT_INCREF(thr, (duk_hobject *) obj, thr->builtins[DUK_BIDX_ARRAY_PROTOTYPE]); + + tv_slot = thr->valstack_top; + DUK_TVAL_SET_OBJECT(tv_slot, (duk_hobject *) obj); + DUK_HOBJECT_INCREF(thr, obj); /* XXX: could preallocate with refcount = 1 */ + ret = (duk_idx_t) (thr->valstack_top - thr->valstack_bottom); + thr->valstack_top++; + + DUK_ASSERT(obj->length == 0); /* Array .length starts at zero. */ + return ret; +} + +DUK_EXTERNAL duk_idx_t duk_push_bare_array(duk_hthread *thr) { + duk_uint_t flags; + duk_harray *obj; + duk_idx_t ret; + duk_tval *tv_slot; + + DUK_ASSERT_API_ENTRY(thr); + + flags = DUK_HOBJECT_FLAG_EXTENSIBLE | + DUK_HOBJECT_FLAG_FASTREFS | + DUK_HOBJECT_FLAG_ARRAY_PART | + DUK_HOBJECT_FLAG_EXOTIC_ARRAY | + DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_ARRAY); + + obj = duk_harray_alloc(thr, flags); + DUK_ASSERT(obj != NULL); + + tv_slot = thr->valstack_top; + DUK_TVAL_SET_OBJECT(tv_slot, (duk_hobject *) obj); + DUK_HOBJECT_INCREF(thr, obj); /* XXX: could preallocate with refcount = 1 */ + ret = (duk_idx_t) (thr->valstack_top - thr->valstack_bottom); + thr->valstack_top++; + + DUK_ASSERT(obj->length == 0); /* Array .length starts at zero. */ + return ret; +} + +DUK_INTERNAL duk_harray *duk_push_harray(duk_hthread *thr) { + /* XXX: API call could do this directly, cast to void in API macro. */ + duk_harray *a; + + DUK_ASSERT_API_ENTRY(thr); + + (void) duk_push_array(thr); + DUK_ASSERT(DUK_TVAL_IS_OBJECT(thr->valstack_top - 1)); + a = (duk_harray *) DUK_TVAL_GET_OBJECT(thr->valstack_top - 1); + DUK_ASSERT(a != NULL); + return a; +} + +/* Push a duk_harray with preallocated size (.length also set to match size). + * Caller may then populate array part of the duk_harray directly. + */ +DUK_INTERNAL duk_harray *duk_push_harray_with_size(duk_hthread *thr, duk_uint32_t size) { + duk_harray *a; + + DUK_ASSERT_API_ENTRY(thr); + + a = duk_push_harray(thr); + + duk_hobject_realloc_props(thr, + (duk_hobject *) a, + 0, + size, + 0, + 0); + a->length = size; + return a; +} + +DUK_INTERNAL duk_tval *duk_push_harray_with_size_outptr(duk_hthread *thr, duk_uint32_t size) { + duk_harray *a; + + DUK_ASSERT_API_ENTRY(thr); + + a = duk_push_harray_with_size(thr, size); + DUK_ASSERT(a != NULL); + return DUK_HOBJECT_A_GET_BASE(thr->heap, (duk_hobject *) a); +} + +DUK_EXTERNAL duk_idx_t duk_push_thread_raw(duk_hthread *thr, duk_uint_t flags) { + duk_hthread *obj; + duk_idx_t ret; + duk_tval *tv_slot; + + DUK_ASSERT_API_ENTRY(thr); + + DUK__CHECK_SPACE(); + + obj = duk_hthread_alloc(thr, + DUK_HOBJECT_FLAG_EXTENSIBLE | + DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_THREAD)); + DUK_ASSERT(obj != NULL); + obj->state = DUK_HTHREAD_STATE_INACTIVE; +#if defined(DUK_USE_ROM_STRINGS) + /* Nothing to initialize, strs[] is in ROM. */ +#else +#if defined(DUK_USE_HEAPPTR16) + obj->strs16 = thr->strs16; +#else + obj->strs = thr->strs; +#endif +#endif + DUK_DDD(DUK_DDDPRINT("created thread object with flags: 0x%08lx", (unsigned long) obj->obj.hdr.h_flags)); + + /* make the new thread reachable */ + tv_slot = thr->valstack_top; + DUK_TVAL_SET_OBJECT(tv_slot, (duk_hobject *) obj); + DUK_HTHREAD_INCREF(thr, obj); + ret = (duk_idx_t) (thr->valstack_top - thr->valstack_bottom); + thr->valstack_top++; + + /* important to do this *after* pushing, to make the thread reachable for gc */ + if (DUK_UNLIKELY(!duk_hthread_init_stacks(thr->heap, obj))) { + DUK_ERROR_ALLOC_FAILED(thr); + DUK_WO_NORETURN(return 0;); + } + + /* initialize built-ins - either by copying or creating new ones */ + if (flags & DUK_THREAD_NEW_GLOBAL_ENV) { + duk_hthread_create_builtin_objects(obj); + } else { + duk_hthread_copy_builtin_objects(thr, obj); + } + + /* default prototype */ + DUK_HOBJECT_SET_PROTOTYPE_INIT_INCREF(thr, (duk_hobject *) obj, obj->builtins[DUK_BIDX_THREAD_PROTOTYPE]); + + /* Initial stack size satisfies the stack slack constraints so there + * is no need to require stack here. + */ + DUK_ASSERT(DUK_VALSTACK_INITIAL_SIZE >= + DUK_VALSTACK_API_ENTRY_MINIMUM + DUK_VALSTACK_INTERNAL_EXTRA); + + return ret; +} + +DUK_INTERNAL duk_hcompfunc *duk_push_hcompfunc(duk_hthread *thr) { + duk_hcompfunc *obj; + duk_tval *tv_slot; + + DUK_ASSERT_API_ENTRY(thr); + + DUK__CHECK_SPACE(); + + /* Template functions are not strictly constructable (they don't + * have a "prototype" property for instance), so leave the + * DUK_HOBJECT_FLAG_CONSRUCTABLE flag cleared here. + */ + + obj = duk_hcompfunc_alloc(thr, + DUK_HOBJECT_FLAG_EXTENSIBLE | + DUK_HOBJECT_FLAG_CALLABLE | + DUK_HOBJECT_FLAG_COMPFUNC | + DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_FUNCTION)); + if (DUK_UNLIKELY(obj == NULL)) { + DUK_ERROR_ALLOC_FAILED(thr); + DUK_WO_NORETURN(return NULL;); + } + + DUK_DDD(DUK_DDDPRINT("created compiled function object with flags: 0x%08lx", (unsigned long) obj->obj.hdr.h_flags)); + + tv_slot = thr->valstack_top; + DUK_TVAL_SET_OBJECT(tv_slot, (duk_hobject *) obj); + DUK_HOBJECT_INCREF(thr, obj); + thr->valstack_top++; + + /* default prototype */ + DUK_ASSERT(DUK_HOBJECT_GET_PROTOTYPE(thr->heap, (duk_hobject *) obj) == NULL); + DUK_HOBJECT_SET_PROTOTYPE_INIT_INCREF(thr, (duk_hobject *) obj, thr->builtins[DUK_BIDX_FUNCTION_PROTOTYPE]); + + return obj; +} + +DUK_INTERNAL duk_hboundfunc *duk_push_hboundfunc(duk_hthread *thr) { + duk_hboundfunc *obj; + duk_tval *tv_slot; + + DUK_ASSERT_API_ENTRY(thr); + + DUK__CHECK_SPACE(); + obj = duk_hboundfunc_alloc(thr->heap, + DUK_HOBJECT_FLAG_EXTENSIBLE | + DUK_HOBJECT_FLAG_BOUNDFUNC | + DUK_HOBJECT_FLAG_CONSTRUCTABLE | + DUK_HOBJECT_FLAG_CALLABLE | + DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_FUNCTION)); + if (!obj) { + DUK_ERROR_ALLOC_FAILED(thr); + DUK_WO_NORETURN(return NULL;); + } + + tv_slot = thr->valstack_top++; + DUK_TVAL_SET_OBJECT(tv_slot, (duk_hobject *) obj); + DUK_HOBJECT_INCREF(thr, obj); + + /* Prototype is left as NULL because the caller always sets it (and + * it depends on the target function). + */ + DUK_ASSERT(DUK_HOBJECT_GET_PROTOTYPE(thr->heap, (duk_hobject *) obj) == NULL); + + return obj; +} + +DUK_LOCAL duk_idx_t duk__push_c_function_raw(duk_hthread *thr, duk_c_function func, duk_idx_t nargs, duk_uint_t flags, duk_small_uint_t proto_bidx) { + duk_hnatfunc *obj; + duk_idx_t ret; + duk_tval *tv_slot; + duk_int16_t func_nargs; + + DUK_CTX_ASSERT_VALID(thr); + + DUK__CHECK_SPACE(); + + if (DUK_UNLIKELY(func == NULL)) { + goto api_error; + } + if (nargs >= 0 && nargs < DUK_HNATFUNC_NARGS_MAX) { + func_nargs = (duk_int16_t) nargs; + } else if (nargs == DUK_VARARGS) { + func_nargs = DUK_HNATFUNC_NARGS_VARARGS; + } else { + goto api_error; + } + + obj = duk_hnatfunc_alloc(thr, flags); + DUK_ASSERT(obj != NULL); + + obj->func = func; + obj->nargs = func_nargs; + + DUK_DDD(DUK_DDDPRINT("created native function object with flags: 0x%08lx, nargs=%ld", + (unsigned long) obj->obj.hdr.h_flags, (long) obj->nargs)); + + tv_slot = thr->valstack_top; + DUK_TVAL_SET_OBJECT(tv_slot, (duk_hobject *) obj); + DUK_HOBJECT_INCREF(thr, obj); + ret = (duk_idx_t) (thr->valstack_top - thr->valstack_bottom); + thr->valstack_top++; + + DUK_ASSERT_BIDX_VALID(proto_bidx); + DUK_HOBJECT_SET_PROTOTYPE_INIT_INCREF(thr, (duk_hobject *) obj, thr->builtins[proto_bidx]); + return ret; + + api_error: + DUK_ERROR_TYPE_INVALID_ARGS(thr); + DUK_WO_NORETURN(return 0;); +} + +DUK_EXTERNAL duk_idx_t duk_push_c_function(duk_hthread *thr, duk_c_function func, duk_int_t nargs) { + duk_uint_t flags; + + DUK_ASSERT_API_ENTRY(thr); + + flags = DUK_HOBJECT_FLAG_EXTENSIBLE | + DUK_HOBJECT_FLAG_CONSTRUCTABLE | + DUK_HOBJECT_FLAG_CALLABLE | + DUK_HOBJECT_FLAG_FASTREFS | + DUK_HOBJECT_FLAG_NATFUNC | + DUK_HOBJECT_FLAG_NEWENV | + DUK_HOBJECT_FLAG_STRICT | + DUK_HOBJECT_FLAG_NOTAIL | + DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_FUNCTION); + + /* Default prototype is a Duktape specific %NativeFunctionPrototype% + * which provides .length and .name getters. + */ + return duk__push_c_function_raw(thr, func, nargs, flags, DUK_BIDX_NATIVE_FUNCTION_PROTOTYPE); +} + +DUK_INTERNAL void duk_push_c_function_builtin(duk_hthread *thr, duk_c_function func, duk_int_t nargs) { + duk_uint_t flags; + + DUK_ASSERT_API_ENTRY(thr); + + flags = DUK_HOBJECT_FLAG_EXTENSIBLE | + DUK_HOBJECT_FLAG_CONSTRUCTABLE | + DUK_HOBJECT_FLAG_CALLABLE | + DUK_HOBJECT_FLAG_FASTREFS | + DUK_HOBJECT_FLAG_NATFUNC | + DUK_HOBJECT_FLAG_NEWENV | + DUK_HOBJECT_FLAG_STRICT | + DUK_HOBJECT_FLAG_NOTAIL | + DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_FUNCTION); + + /* Must use Function.prototype for standard built-in functions. */ + (void) duk__push_c_function_raw(thr, func, nargs, flags, DUK_BIDX_FUNCTION_PROTOTYPE); +} + +DUK_INTERNAL void duk_push_c_function_builtin_noconstruct(duk_hthread *thr, duk_c_function func, duk_int_t nargs) { + duk_uint_t flags; + + DUK_ASSERT_API_ENTRY(thr); + + flags = DUK_HOBJECT_FLAG_EXTENSIBLE | + DUK_HOBJECT_FLAG_CALLABLE | + DUK_HOBJECT_FLAG_FASTREFS | + DUK_HOBJECT_FLAG_NATFUNC | + DUK_HOBJECT_FLAG_NEWENV | + DUK_HOBJECT_FLAG_STRICT | + DUK_HOBJECT_FLAG_NOTAIL | + DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_FUNCTION); + + /* Must use Function.prototype for standard built-in functions. */ + (void) duk__push_c_function_raw(thr, func, nargs, flags, DUK_BIDX_FUNCTION_PROTOTYPE); +} + +DUK_EXTERNAL duk_idx_t duk_push_c_lightfunc(duk_hthread *thr, duk_c_function func, duk_idx_t nargs, duk_idx_t length, duk_int_t magic) { + duk_small_uint_t lf_flags; + duk_tval *tv_slot; + + DUK_ASSERT_API_ENTRY(thr); + + DUK__CHECK_SPACE(); + + if (nargs >= DUK_LFUNC_NARGS_MIN && nargs <= DUK_LFUNC_NARGS_MAX) { + /* as is */ + } else if (nargs == DUK_VARARGS) { + nargs = DUK_LFUNC_NARGS_VARARGS; + } else { + goto api_error; + } + if (DUK_UNLIKELY(!(length >= DUK_LFUNC_LENGTH_MIN && length <= DUK_LFUNC_LENGTH_MAX))) { + goto api_error; + } + if (DUK_UNLIKELY(!(magic >= DUK_LFUNC_MAGIC_MIN && magic <= DUK_LFUNC_MAGIC_MAX))) { + goto api_error; + } + + lf_flags = DUK_LFUNC_FLAGS_PACK((duk_small_int_t) magic, (duk_small_uint_t) length, (duk_small_uint_t) nargs); + tv_slot = thr->valstack_top++; + DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(tv_slot)); + DUK_TVAL_SET_LIGHTFUNC(tv_slot, func, lf_flags); + DUK_ASSERT(tv_slot >= thr->valstack_bottom); + return (duk_idx_t) (tv_slot - thr->valstack_bottom); + + api_error: + DUK_ERROR_TYPE_INVALID_ARGS(thr); + DUK_WO_NORETURN(return 0;); +} + +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) +DUK_INTERNAL duk_hbufobj *duk_push_bufobj_raw(duk_hthread *thr, duk_uint_t hobject_flags_and_class, duk_small_int_t prototype_bidx) { + duk_hbufobj *obj; + duk_tval *tv_slot; + + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(prototype_bidx >= 0); + + DUK__CHECK_SPACE(); + + obj = duk_hbufobj_alloc(thr, hobject_flags_and_class); + DUK_ASSERT(obj != NULL); + + DUK_HOBJECT_SET_PROTOTYPE_INIT_INCREF(thr, (duk_hobject *) obj, thr->builtins[prototype_bidx]); + DUK_HBUFOBJ_ASSERT_VALID(obj); + + tv_slot = thr->valstack_top; + DUK_TVAL_SET_OBJECT(tv_slot, (duk_hobject *) obj); + DUK_HOBJECT_INCREF(thr, obj); + thr->valstack_top++; + + return obj; +} +#endif /* DUK_USE_BUFFEROBJECT_SUPPORT */ + +/* XXX: There's quite a bit of overlap with buffer creation handling in + * duk_bi_buffer.c. Look for overlap and refactor. + */ +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) +#define DUK__PACK_ARGS(classnum,protobidx,elemtype,elemshift,istypedarray) \ + (((classnum) << 24) | ((protobidx) << 16) | ((elemtype) << 8) | ((elemshift) << 4) | (istypedarray)) + +static const duk_uint32_t duk__bufobj_flags_lookup[] = { + /* Node.js Buffers are Uint8Array instances which inherit from Buffer.prototype. */ + DUK__PACK_ARGS(DUK_HOBJECT_CLASS_ARRAYBUFFER, DUK_BIDX_ARRAYBUFFER_PROTOTYPE, DUK_HBUFOBJ_ELEM_UINT8, 0, 0), /* DUK_BUFOBJ_ARRAYBUFFER */ + DUK__PACK_ARGS(DUK_HOBJECT_CLASS_UINT8ARRAY, DUK_BIDX_NODEJS_BUFFER_PROTOTYPE, DUK_HBUFOBJ_ELEM_UINT8, 0, 1), /* DUK_BUFOBJ_NODEJS_BUFFER */ + DUK__PACK_ARGS(DUK_HOBJECT_CLASS_DATAVIEW, DUK_BIDX_DATAVIEW_PROTOTYPE, DUK_HBUFOBJ_ELEM_UINT8, 0, 0), /* DUK_BUFOBJ_DATAVIEW */ + DUK__PACK_ARGS(DUK_HOBJECT_CLASS_INT8ARRAY, DUK_BIDX_INT8ARRAY_PROTOTYPE, DUK_HBUFOBJ_ELEM_INT8, 0, 1), /* DUK_BUFOBJ_INT8ARRAY */ + DUK__PACK_ARGS(DUK_HOBJECT_CLASS_UINT8ARRAY, DUK_BIDX_UINT8ARRAY_PROTOTYPE, DUK_HBUFOBJ_ELEM_UINT8, 0, 1), /* DUK_BUFOBJ_UINT8ARRAY */ + DUK__PACK_ARGS(DUK_HOBJECT_CLASS_UINT8CLAMPEDARRAY, DUK_BIDX_UINT8CLAMPEDARRAY_PROTOTYPE, DUK_HBUFOBJ_ELEM_UINT8CLAMPED, 0, 1), /* DUK_BUFOBJ_UINT8CLAMPEDARRAY */ + DUK__PACK_ARGS(DUK_HOBJECT_CLASS_INT16ARRAY, DUK_BIDX_INT16ARRAY_PROTOTYPE, DUK_HBUFOBJ_ELEM_INT16, 1, 1), /* DUK_BUFOBJ_INT16ARRAY */ + DUK__PACK_ARGS(DUK_HOBJECT_CLASS_UINT16ARRAY, DUK_BIDX_UINT16ARRAY_PROTOTYPE, DUK_HBUFOBJ_ELEM_UINT16, 1, 1), /* DUK_BUFOBJ_UINT16ARRAY */ + DUK__PACK_ARGS(DUK_HOBJECT_CLASS_INT32ARRAY, DUK_BIDX_INT32ARRAY_PROTOTYPE, DUK_HBUFOBJ_ELEM_INT32, 2, 1), /* DUK_BUFOBJ_INT32ARRAY */ + DUK__PACK_ARGS(DUK_HOBJECT_CLASS_UINT32ARRAY, DUK_BIDX_UINT32ARRAY_PROTOTYPE, DUK_HBUFOBJ_ELEM_UINT32, 2, 1), /* DUK_BUFOBJ_UINT32ARRAY */ + DUK__PACK_ARGS(DUK_HOBJECT_CLASS_FLOAT32ARRAY, DUK_BIDX_FLOAT32ARRAY_PROTOTYPE, DUK_HBUFOBJ_ELEM_FLOAT32, 2, 1), /* DUK_BUFOBJ_FLOAT32ARRAY */ + DUK__PACK_ARGS(DUK_HOBJECT_CLASS_FLOAT64ARRAY, DUK_BIDX_FLOAT64ARRAY_PROTOTYPE, DUK_HBUFOBJ_ELEM_FLOAT64, 3, 1) /* DUK_BUFOBJ_FLOAT64ARRAY */ +}; +#endif /* DUK_USE_BUFFEROBJECT_SUPPORT */ + +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) +DUK_EXTERNAL void duk_push_buffer_object(duk_hthread *thr, duk_idx_t idx_buffer, duk_size_t byte_offset, duk_size_t byte_length, duk_uint_t flags) { + duk_hbufobj *h_bufobj; + duk_hbuffer *h_val; + duk_hobject *h_arraybuf; + duk_uint32_t tmp; + duk_uint_t classnum; + duk_uint_t protobidx; + duk_uint_t lookupidx; + duk_uint_t uint_offset, uint_length, uint_added; + + DUK_ASSERT_API_ENTRY(thr); + + /* The underlying types for offset/length in duk_hbufobj is + * duk_uint_t; make sure argument values fit. + */ + uint_offset = (duk_uint_t) byte_offset; + uint_length = (duk_uint_t) byte_length; + if (sizeof(duk_size_t) != sizeof(duk_uint_t)) { + if (DUK_UNLIKELY((duk_size_t) uint_offset != byte_offset || (duk_size_t) uint_length != byte_length)) { + goto range_error; + } + } + + DUK_ASSERT_DISABLE(flags >= 0); /* flags is unsigned */ + lookupidx = flags; + if (DUK_UNLIKELY(lookupidx >= sizeof(duk__bufobj_flags_lookup) / sizeof(duk_uint32_t))) { + goto arg_error; + } + tmp = duk__bufobj_flags_lookup[lookupidx]; + classnum = tmp >> 24; + protobidx = (tmp >> 16) & 0xff; + + h_arraybuf = duk_get_hobject(thr, idx_buffer); + if (h_arraybuf != NULL && /* argument is an object */ + flags != DUK_BUFOBJ_ARRAYBUFFER && /* creating a view */ + DUK_HOBJECT_GET_CLASS_NUMBER(h_arraybuf) == DUK_HOBJECT_CLASS_ARRAYBUFFER /* argument is ArrayBuffer */) { + duk_uint_t tmp_offset; + + DUK_HBUFOBJ_ASSERT_VALID((duk_hbufobj *) h_arraybuf); + h_val = ((duk_hbufobj *) h_arraybuf)->buf; + if (DUK_UNLIKELY(h_val == NULL)) { + goto arg_error; + } + + tmp_offset = uint_offset + ((duk_hbufobj *) h_arraybuf)->offset; + if (DUK_UNLIKELY(tmp_offset < uint_offset)) { + goto range_error; + } + uint_offset = tmp_offset; + + /* Note intentional difference to new TypedArray(): we allow + * caller to create an uncovered typed array (which is memory + * safe); new TypedArray() rejects it. + */ + } else { + /* Handle unexpected object arguments here too, for nice error + * messages. + */ + h_arraybuf = NULL; + h_val = duk_require_hbuffer(thr, idx_buffer); + } + + /* Wrap check for offset+length. */ + uint_added = uint_offset + uint_length; + if (DUK_UNLIKELY(uint_added < uint_offset)) { + goto range_error; + } + DUK_ASSERT(uint_added >= uint_offset && uint_added >= uint_length); + + DUK_ASSERT(h_val != NULL); + + h_bufobj = duk_push_bufobj_raw(thr, + DUK_HOBJECT_FLAG_EXTENSIBLE | + DUK_HOBJECT_FLAG_BUFOBJ | + DUK_HOBJECT_CLASS_AS_FLAGS(classnum), + (duk_small_int_t) protobidx); + DUK_ASSERT(h_bufobj != NULL); + + h_bufobj->buf = h_val; + DUK_HBUFFER_INCREF(thr, h_val); + h_bufobj->buf_prop = h_arraybuf; + DUK_HOBJECT_INCREF_ALLOWNULL(thr, h_arraybuf); + h_bufobj->offset = uint_offset; + h_bufobj->length = uint_length; + h_bufobj->shift = (tmp >> 4) & 0x0f; + h_bufobj->elem_type = (tmp >> 8) & 0xff; + h_bufobj->is_typedarray = tmp & 0x0f; + DUK_HBUFOBJ_ASSERT_VALID(h_bufobj); + + /* TypedArray views need an automatic ArrayBuffer which must be + * provided as .buffer property of the view. The ArrayBuffer is + * referenced via duk_hbufobj->buf_prop and an inherited .buffer + * accessor returns it. The ArrayBuffer is created lazily on first + * access if necessary so we don't need to do anything more here. + */ + return; + + range_error: + DUK_ERROR_RANGE(thr, DUK_STR_INVALID_ARGS); + DUK_WO_NORETURN(return;); + + arg_error: + DUK_ERROR_TYPE(thr, DUK_STR_INVALID_ARGS); + DUK_WO_NORETURN(return;); +} +#else /* DUK_USE_BUFFEROBJECT_SUPPORT */ +DUK_EXTERNAL void duk_push_buffer_object(duk_hthread *thr, duk_idx_t idx_buffer, duk_size_t byte_offset, duk_size_t byte_length, duk_uint_t flags) { + DUK_ASSERT_API_ENTRY(thr); + DUK_UNREF(idx_buffer); + DUK_UNREF(byte_offset); + DUK_UNREF(byte_length); + DUK_UNREF(flags); + DUK_ERROR_UNSUPPORTED(thr); + DUK_WO_NORETURN(return;); +} +#endif /* DUK_USE_BUFFEROBJECT_SUPPORT */ + +DUK_EXTERNAL duk_idx_t duk_push_error_object_va_raw(duk_hthread *thr, duk_errcode_t err_code, const char *filename, duk_int_t line, const char *fmt, va_list ap) { + duk_hobject *proto; +#if defined(DUK_USE_AUGMENT_ERROR_CREATE) + duk_small_uint_t augment_flags; +#endif + + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(thr != NULL); + DUK_UNREF(filename); + DUK_UNREF(line); + + /* Error code also packs a tracedata related flag. */ +#if defined(DUK_USE_AUGMENT_ERROR_CREATE) + augment_flags = 0; + if (err_code & DUK_ERRCODE_FLAG_NOBLAME_FILELINE) { + augment_flags = DUK_AUGMENT_FLAG_NOBLAME_FILELINE; + } +#endif + err_code = err_code & (~DUK_ERRCODE_FLAG_NOBLAME_FILELINE); + + /* error gets its 'name' from the prototype */ + proto = duk_error_prototype_from_code(thr, err_code); + (void) duk_push_object_helper_proto(thr, + DUK_HOBJECT_FLAG_EXTENSIBLE | + DUK_HOBJECT_FLAG_FASTREFS | + DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_ERROR), + proto); + + /* ... and its 'message' from an instance property */ + if (fmt) { + duk_push_vsprintf(thr, fmt, ap); + duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_MESSAGE, DUK_PROPDESC_FLAGS_WC); + } else { + /* If no explicit message given, put error code into message field + * (as a number). This is not fully in keeping with the ECMAScript + * error model because messages are supposed to be strings (Error + * constructors use ToString() on their argument). However, it's + * probably more useful than having a separate 'code' property. + */ + duk_push_int(thr, err_code); + duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_MESSAGE, DUK_PROPDESC_FLAGS_WC); + } + + /* XXX: .code = err_code disabled, not sure if useful */ + + /* Creation time error augmentation */ +#if defined(DUK_USE_AUGMENT_ERROR_CREATE) + /* filename may be NULL in which case file/line is not recorded */ + duk_err_augment_error_create(thr, thr, filename, line, augment_flags); /* may throw an error */ +#endif + + return duk_get_top_index_unsafe(thr); +} + +DUK_EXTERNAL duk_idx_t duk_push_error_object_raw(duk_hthread *thr, duk_errcode_t err_code, const char *filename, duk_int_t line, const char *fmt, ...) { + va_list ap; + duk_idx_t ret; + + DUK_ASSERT_API_ENTRY(thr); + + va_start(ap, fmt); + ret = duk_push_error_object_va_raw(thr, err_code, filename, line, fmt, ap); + va_end(ap); + return ret; +} + +#if !defined(DUK_USE_VARIADIC_MACROS) +DUK_EXTERNAL duk_idx_t duk_push_error_object_stash(duk_hthread *thr, duk_errcode_t err_code, const char *fmt, ...) { + const char *filename = duk_api_global_filename; + duk_int_t line = duk_api_global_line; + va_list ap; + duk_idx_t ret; + + DUK_ASSERT_API_ENTRY(thr); + + duk_api_global_filename = NULL; + duk_api_global_line = 0; + va_start(ap, fmt); + ret = duk_push_error_object_va_raw(thr, err_code, filename, line, fmt, ap); + va_end(ap); + return ret; +} +#endif /* DUK_USE_VARIADIC_MACROS */ + +DUK_EXTERNAL void *duk_push_buffer_raw(duk_hthread *thr, duk_size_t size, duk_small_uint_t flags) { + duk_tval *tv_slot; + duk_hbuffer *h; + void *buf_data; + + DUK_ASSERT_API_ENTRY(thr); + + DUK__CHECK_SPACE(); + + /* Check for maximum buffer length. */ + if (DUK_UNLIKELY(size > DUK_HBUFFER_MAX_BYTELEN)) { + DUK_ERROR_RANGE(thr, DUK_STR_BUFFER_TOO_LONG); + DUK_WO_NORETURN(return NULL;); + } + + h = duk_hbuffer_alloc(thr->heap, size, flags, &buf_data); + if (DUK_UNLIKELY(h == NULL)) { + DUK_ERROR_ALLOC_FAILED(thr); + DUK_WO_NORETURN(return NULL;); + } + + tv_slot = thr->valstack_top; + DUK_TVAL_SET_BUFFER(tv_slot, h); + DUK_HBUFFER_INCREF(thr, h); + thr->valstack_top++; + + return (void *) buf_data; +} + +DUK_INTERNAL void *duk_push_fixed_buffer_nozero(duk_hthread *thr, duk_size_t len) { + DUK_ASSERT_API_ENTRY(thr); + return duk_push_buffer_raw(thr, len, DUK_BUF_FLAG_NOZERO); +} + +DUK_INTERNAL void *duk_push_fixed_buffer_zero(duk_hthread *thr, duk_size_t len) { + void *ptr; + + DUK_ASSERT_API_ENTRY(thr); + + ptr = duk_push_buffer_raw(thr, len, 0); + DUK_ASSERT(ptr != NULL); +#if !defined(DUK_USE_ZERO_BUFFER_DATA) + /* ES2015 requires zeroing even when DUK_USE_ZERO_BUFFER_DATA + * is not set. + */ + duk_memzero((void *) ptr, (size_t) len); +#endif + return ptr; +} + +#if defined(DUK_USE_ES6_PROXY) +DUK_EXTERNAL duk_idx_t duk_push_proxy(duk_hthread *thr, duk_uint_t proxy_flags) { + duk_hobject *h_target; + duk_hobject *h_handler; + duk_hproxy *h_proxy; + duk_tval *tv_slot; + duk_uint_t flags; + + DUK_ASSERT_API_ENTRY(thr); + DUK_UNREF(proxy_flags); + + /* DUK__CHECK_SPACE() unnecessary because the Proxy is written to + * value stack in-place. + */ +#if 0 + DUK__CHECK_SPACE(); +#endif + + /* Reject a proxy object as the target because it would need + * special handling in property lookups. (ES2015 has no such + * restriction.) + */ + h_target = duk_require_hobject_promote_mask(thr, -2, DUK_TYPE_MASK_LIGHTFUNC | DUK_TYPE_MASK_BUFFER); + DUK_ASSERT(h_target != NULL); + if (DUK_HOBJECT_IS_PROXY(h_target)) { + goto fail_args; + } + + /* Reject a proxy object as the handler because it would cause + * potentially unbounded recursion. (ES2015 has no such + * restriction.) + * + * There's little practical reason to use a lightfunc or a plain + * buffer as the handler table: one could only provide traps via + * their prototype objects (Function.prototype and ArrayBuffer.prototype). + * Even so, as lightfuncs and plain buffers mimic their object + * counterparts, they're promoted and accepted here. + */ + h_handler = duk_require_hobject_promote_mask(thr, -1, DUK_TYPE_MASK_LIGHTFUNC | DUK_TYPE_MASK_BUFFER); + DUK_ASSERT(h_handler != NULL); + if (DUK_HOBJECT_IS_PROXY(h_handler)) { + goto fail_args; + } + + /* XXX: Proxy object currently has no prototype, so ToPrimitive() + * coercion fails which is a bit confusing. + */ + + /* CALLABLE and CONSTRUCTABLE flags are copied from the (initial) + * target, see ES2015 Sections 9.5.15 and 9.5.13. + */ + flags = DUK_HEAPHDR_GET_FLAGS((duk_heaphdr *) h_target) & + (DUK_HOBJECT_FLAG_CALLABLE | DUK_HOBJECT_FLAG_CONSTRUCTABLE); + flags |= DUK_HOBJECT_FLAG_EXTENSIBLE | + DUK_HOBJECT_FLAG_EXOTIC_PROXYOBJ; + if (flags & DUK_HOBJECT_FLAG_CALLABLE) { + flags |= DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_FUNCTION) | + DUK_HOBJECT_FLAG_SPECIAL_CALL; + } else { + flags |= DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_OBJECT); + } + + h_proxy = duk_hproxy_alloc(thr, flags); + DUK_ASSERT(h_proxy != NULL); + DUK_ASSERT(DUK_HOBJECT_GET_PROTOTYPE(thr->heap, (duk_hobject *) h_proxy) == NULL); + + /* Initialize Proxy target and handler references; avoid INCREF + * by stealing the value stack refcounts via direct value stack + * manipulation. INCREF is needed for the Proxy itself however. + */ + DUK_ASSERT(h_target != NULL); + h_proxy->target = h_target; + DUK_ASSERT(h_handler != NULL); + h_proxy->handler = h_handler; + DUK_HPROXY_ASSERT_VALID(h_proxy); + + DUK_ASSERT(duk_get_hobject(thr, -2) == h_target); + DUK_ASSERT(duk_get_hobject(thr, -1) == h_handler); + tv_slot = thr->valstack_top - 2; + DUK_ASSERT(tv_slot >= thr->valstack_bottom); + DUK_TVAL_SET_OBJECT(tv_slot, (duk_hobject *) h_proxy); + DUK_HOBJECT_INCREF(thr, (duk_hobject *) h_proxy); + tv_slot++; + DUK_TVAL_SET_UNDEFINED(tv_slot); /* [ ... target handler ] -> [ ... proxy undefined ] */ + thr->valstack_top = tv_slot; /* -> [ ... proxy ] */ + + DUK_DD(DUK_DDPRINT("created Proxy: %!iT", duk_get_tval(thr, -1))); + + return (duk_idx_t) (thr->valstack_top - thr->valstack_bottom - 1); + + fail_args: + DUK_ERROR_TYPE_INVALID_ARGS(thr); + DUK_WO_NORETURN(return 0;); +} +#else /* DUK_USE_ES6_PROXY */ +DUK_EXTERNAL duk_idx_t duk_push_proxy(duk_hthread *thr, duk_uint_t proxy_flags) { + DUK_ASSERT_API_ENTRY(thr); + DUK_UNREF(proxy_flags); + DUK_ERROR_UNSUPPORTED(thr); + DUK_WO_NORETURN(return 0;); +} +#endif /* DUK_USE_ES6_PROXY */ + +#if defined(DUK_USE_ASSERTIONS) +DUK_LOCAL void duk__validate_push_heapptr(duk_hthread *thr, void *ptr) { + duk_heaphdr *h; + duk_heaphdr *curr; + duk_bool_t found = 0; + + h = (duk_heaphdr *) ptr; + if (h == NULL) { + /* Allowed. */ + return; + } + DUK_ASSERT(h != NULL); + DUK_ASSERT(DUK_HEAPHDR_HTYPE_VALID(h)); + + /* One particular problem case is where an object has been + * queued for finalization but the finalizer hasn't yet been + * executed. + * + * Corner case: we're running in a finalizer for object X, and + * user code calls duk_push_heapptr() for X itself. In this + * case X will be in finalize_list, and we can detect the case + * by seeing that X's FINALIZED flag is set (which is done before + * the finalizer starts executing). + */ +#if defined(DUK_USE_FINALIZER_SUPPORT) + for (curr = thr->heap->finalize_list; + curr != NULL; + curr = DUK_HEAPHDR_GET_NEXT(thr->heap, curr)) { + /* FINALIZABLE is set for all objects on finalize_list + * except for an object being finalized right now. So + * can't assert here. + */ +#if 0 + DUK_ASSERT(DUK_HEAPHDR_HAS_FINALIZABLE(curr)); +#endif + + if (curr == h) { + if (DUK_HEAPHDR_HAS_FINALIZED((duk_heaphdr *) h)) { + /* Object is currently being finalized. */ + DUK_ASSERT(found == 0); /* Would indicate corrupted lists. */ + found = 1; + } else { + /* Not being finalized but on finalize_list, + * allowed since Duktape 2.1. + */ + DUK_ASSERT(found == 0); /* Would indicate corrupted lists. */ + found = 1; + } + } + } +#endif /* DUK_USE_FINALIZER_SUPPORT */ + +#if defined(DUK_USE_REFERENCE_COUNTING) + /* Because refzero_list is now processed to completion inline with + * no side effects, it's always empty here. + */ + DUK_ASSERT(thr->heap->refzero_list == NULL); +#endif + + /* If not present in finalize_list (or refzero_list), it + * must be either in heap_allocated or the string table. + */ + if (DUK_HEAPHDR_IS_STRING(h)) { + duk_uint32_t i; + duk_hstring *str; + duk_heap *heap = thr->heap; + + DUK_ASSERT(found == 0); + for (i = 0; i < heap->st_size; i++) { +#if defined(DUK_USE_STRTAB_PTRCOMP) + str = DUK_USE_HEAPPTR_DEC16((heap)->heap_udata, heap->strtable16[i]); +#else + str = heap->strtable[i]; +#endif + while (str != NULL) { + if (str == (duk_hstring *) h) { + DUK_ASSERT(found == 0); /* Would indicate corrupted lists. */ + found = 1; + break; + } + str = str->hdr.h_next; + } + } + DUK_ASSERT(found != 0); + } else { + for (curr = thr->heap->heap_allocated; + curr != NULL; + curr = DUK_HEAPHDR_GET_NEXT(thr->heap, curr)) { + if (curr == h) { + DUK_ASSERT(found == 0); /* Would indicate corrupted lists. */ + found = 1; + } + } + DUK_ASSERT(found != 0); + } +} +#endif /* DUK_USE_ASSERTIONS */ + +DUK_EXTERNAL duk_idx_t duk_push_heapptr(duk_hthread *thr, void *ptr) { + duk_idx_t ret; + duk_tval *tv; + + DUK_ASSERT_API_ENTRY(thr); + + /* Reviving an object using a heap pointer is a dangerous API + * operation: if the application doesn't guarantee that the + * pointer target is always reachable, difficult-to-diagnose + * problems may ensue. Try to validate the 'ptr' argument to + * the extent possible. + */ + +#if defined(DUK_USE_ASSERTIONS) + duk__validate_push_heapptr(thr, ptr); +#endif + + DUK__CHECK_SPACE(); + + ret = (duk_idx_t) (thr->valstack_top - thr->valstack_bottom); + tv = thr->valstack_top++; + + if (ptr == NULL) { + DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(tv)); + return ret; + } + + DUK_HEAPHDR_ASSERT_VALID((duk_heaphdr *) ptr); + + /* If the argument is on finalize_list it has technically been + * unreachable before duk_push_heapptr() but it's still safe to + * push it. Starting from Duktape 2.1 allow application code to + * do so. There are two main cases: + * + * (1) The object is on the finalize_list and we're called by + * the finalizer for the object being finalized. In this + * case do nothing: finalize_list handling will deal with + * the object queueing. This is detected by the object not + * having a FINALIZABLE flag despite being on the finalize_list; + * the flag is cleared for the object being finalized only. + * + * (2) The object is on the finalize_list but is not currently + * being processed. In this case the object can be queued + * back to heap_allocated with a few flags cleared, in effect + * cancelling the finalizer. + */ + if (DUK_UNLIKELY(DUK_HEAPHDR_HAS_FINALIZABLE((duk_heaphdr *) ptr))) { + duk_heaphdr *curr; + + DUK_D(DUK_DPRINT("duk_push_heapptr() with a pointer on finalize_list, autorescue")); + + curr = (duk_heaphdr *) ptr; + DUK_HEAPHDR_CLEAR_FINALIZABLE(curr); + + /* Because FINALIZED is set prior to finalizer call, it will + * be set for the object being currently finalized, but not + * for other objects on finalize_list. + */ + DUK_HEAPHDR_CLEAR_FINALIZED(curr); + + /* Dequeue object from finalize_list and queue it back to + * heap_allocated. + */ +#if defined(DUK_USE_REFERENCE_COUNTING) + DUK_ASSERT(DUK_HEAPHDR_GET_REFCOUNT(curr) >= 1); /* Preincremented on finalize_list insert. */ + DUK_HEAPHDR_PREDEC_REFCOUNT(curr); +#endif + DUK_HEAP_REMOVE_FROM_FINALIZE_LIST(thr->heap, curr); + DUK_HEAP_INSERT_INTO_HEAP_ALLOCATED(thr->heap, curr); + + /* Continue with the rest. */ + } + + switch (DUK_HEAPHDR_GET_TYPE((duk_heaphdr *) ptr)) { + case DUK_HTYPE_STRING: + DUK_TVAL_SET_STRING(tv, (duk_hstring *) ptr); + break; + case DUK_HTYPE_OBJECT: + DUK_TVAL_SET_OBJECT(tv, (duk_hobject *) ptr); + break; + default: + DUK_ASSERT(DUK_HEAPHDR_GET_TYPE((duk_heaphdr *) ptr) == DUK_HTYPE_BUFFER); + DUK_TVAL_SET_BUFFER(tv, (duk_hbuffer *) ptr); + break; + } + + DUK_HEAPHDR_INCREF(thr, (duk_heaphdr *) ptr); + + return ret; +} + +/* Push object with no prototype, i.e. a "bare" object. */ +DUK_EXTERNAL duk_idx_t duk_push_bare_object(duk_hthread *thr) { + DUK_ASSERT_API_ENTRY(thr); + + (void) duk_push_object_helper(thr, + DUK_HOBJECT_FLAG_EXTENSIBLE | + DUK_HOBJECT_FLAG_FASTREFS | + DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_OBJECT), + -1); /* no prototype */ + return duk_get_top_index_unsafe(thr); +} + +DUK_INTERNAL void duk_push_hstring(duk_hthread *thr, duk_hstring *h) { + duk_tval tv; + + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(h != NULL); + + DUK_TVAL_SET_STRING(&tv, h); + duk_push_tval(thr, &tv); +} + +DUK_INTERNAL void duk_push_hstring_stridx(duk_hthread *thr, duk_small_uint_t stridx) { + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT_STRIDX_VALID(stridx); + duk_push_hstring(thr, DUK_HTHREAD_GET_STRING(thr, stridx)); +} + +DUK_INTERNAL void duk_push_hstring_empty(duk_hthread *thr) { + DUK_ASSERT_API_ENTRY(thr); + duk_push_hstring(thr, DUK_HTHREAD_GET_STRING(thr, DUK_STRIDX_EMPTY_STRING)); +} + +DUK_INTERNAL void duk_push_hobject(duk_hthread *thr, duk_hobject *h) { + duk_tval tv; + + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(h != NULL); + + DUK_TVAL_SET_OBJECT(&tv, h); + duk_push_tval(thr, &tv); +} + +DUK_INTERNAL void duk_push_hbuffer(duk_hthread *thr, duk_hbuffer *h) { + duk_tval tv; + + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(h != NULL); + + DUK_TVAL_SET_BUFFER(&tv, h); + duk_push_tval(thr, &tv); +} + +DUK_INTERNAL void duk_push_hobject_bidx(duk_hthread *thr, duk_small_int_t builtin_idx) { + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(builtin_idx >= 0 && builtin_idx < DUK_NUM_BUILTINS); + DUK_ASSERT(thr->builtins[builtin_idx] != NULL); + + duk_push_hobject(thr, thr->builtins[builtin_idx]); +} + +/* + * Poppers + */ + +DUK_LOCAL DUK_ALWAYS_INLINE void duk__pop_n_unsafe_raw(duk_hthread *thr, duk_idx_t count) { + duk_tval *tv; +#if defined(DUK_USE_REFERENCE_COUNTING) + duk_tval *tv_end; +#endif + + DUK_CTX_ASSERT_VALID(thr); + DUK_ASSERT(count >= 0); + DUK_ASSERT((duk_size_t) (thr->valstack_top - thr->valstack_bottom) >= (duk_size_t) count); + +#if defined(DUK_USE_REFERENCE_COUNTING) + tv = thr->valstack_top; + tv_end = tv - count; + while (tv != tv_end) { + tv--; + DUK_ASSERT(tv >= thr->valstack_bottom); + DUK_TVAL_SET_UNDEFINED_UPDREF_NORZ(thr, tv); + } + thr->valstack_top = tv; + DUK_REFZERO_CHECK_FAST(thr); +#else + tv = thr->valstack_top; + while (count > 0) { + count--; + tv--; + DUK_ASSERT(tv >= thr->valstack_bottom); + DUK_TVAL_SET_UNDEFINED(tv); + } + thr->valstack_top = tv; +#endif + + DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom); +} + +DUK_EXTERNAL void duk_pop_n(duk_hthread *thr, duk_idx_t count) { + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom); + + if (DUK_UNLIKELY((duk_uidx_t) (thr->valstack_top - thr->valstack_bottom) < (duk_uidx_t) count)) { + DUK_ERROR_RANGE_INVALID_COUNT(thr); + DUK_WO_NORETURN(return;); + } + DUK_ASSERT(count >= 0); + + duk__pop_n_unsafe_raw(thr, count); +} + +#if defined(DUK_USE_PREFER_SIZE) +DUK_INTERNAL void duk_pop_n_unsafe(duk_hthread *thr, duk_idx_t count) { + DUK_ASSERT_API_ENTRY(thr); + duk_pop_n(thr, count); +} +#else /* DUK_USE_PREFER_SIZE */ +DUK_INTERNAL void duk_pop_n_unsafe(duk_hthread *thr, duk_idx_t count) { + DUK_ASSERT_API_ENTRY(thr); + duk__pop_n_unsafe_raw(thr, count); +} +#endif /* DUK_USE_PREFER_SIZE */ + +/* Pop N elements without DECREF (in effect "stealing" any actual refcounts). */ +#if defined(DUK_USE_REFERENCE_COUNTING) +DUK_INTERNAL void duk_pop_n_nodecref_unsafe(duk_hthread *thr, duk_idx_t count) { + duk_tval *tv; + + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(count >= 0); + DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom); + DUK_ASSERT((duk_size_t) (thr->valstack_top - thr->valstack_bottom) >= (duk_size_t) count); + + tv = thr->valstack_top; + while (count > 0) { + count--; + tv--; + DUK_ASSERT(tv >= thr->valstack_bottom); + DUK_TVAL_SET_UNDEFINED(tv); + } + thr->valstack_top = tv; + + DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom); +} +#else /* DUK_USE_REFERENCE_COUNTING */ +DUK_INTERNAL void duk_pop_n_nodecref_unsafe(duk_hthread *thr, duk_idx_t count) { + DUK_ASSERT_API_ENTRY(thr); + duk_pop_n_unsafe(thr, count); +} +#endif /* DUK_USE_REFERENCE_COUNTING */ + +/* Popping one element is called so often that when footprint is not an issue, + * compile a specialized function for it. + */ +#if defined(DUK_USE_PREFER_SIZE) +DUK_EXTERNAL void duk_pop(duk_hthread *thr) { + DUK_ASSERT_API_ENTRY(thr); + duk_pop_n(thr, 1); +} +DUK_INTERNAL void duk_pop_unsafe(duk_hthread *thr) { + DUK_ASSERT_API_ENTRY(thr); + duk_pop_n_unsafe(thr, 1); +} +DUK_INTERNAL void duk_pop_nodecref_unsafe(duk_hthread *thr) { + DUK_ASSERT_API_ENTRY(thr); + duk_pop_n_nodecref_unsafe(thr, 1); +} +#else /* DUK_USE_PREFER_SIZE */ +DUK_LOCAL DUK_ALWAYS_INLINE void duk__pop_unsafe_raw(duk_hthread *thr) { + duk_tval *tv; + + DUK_CTX_ASSERT_VALID(thr); + DUK_ASSERT(thr->valstack_top != thr->valstack_bottom); + DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom); + DUK_ASSERT((duk_size_t) (thr->valstack_top - thr->valstack_bottom) >= (duk_size_t) 1); + + tv = --thr->valstack_top; + DUK_ASSERT(tv >= thr->valstack_bottom); +#if defined(DUK_USE_REFERENCE_COUNTING) + DUK_TVAL_SET_UNDEFINED_UPDREF(thr, tv); /* side effects */ +#else + DUK_TVAL_SET_UNDEFINED(tv); +#endif + + DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom); +} +DUK_EXTERNAL void duk_pop(duk_hthread *thr) { + DUK_ASSERT_API_ENTRY(thr); + + DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom); + if (DUK_UNLIKELY(thr->valstack_top == thr->valstack_bottom)) { + DUK_ERROR_RANGE_INVALID_COUNT(thr); + DUK_WO_NORETURN(return;); + } + + duk__pop_unsafe_raw(thr); +} +DUK_INTERNAL void duk_pop_unsafe(duk_hthread *thr) { + DUK_ASSERT_API_ENTRY(thr); + duk__pop_unsafe_raw(thr); +} +DUK_INTERNAL void duk_pop_nodecref_unsafe(duk_hthread *thr) { + duk_tval *tv; + + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(thr->valstack_top != thr->valstack_bottom); + DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom); + DUK_ASSERT((duk_size_t) (thr->valstack_top - thr->valstack_bottom) >= (duk_size_t) 1); + + tv = --thr->valstack_top; + DUK_ASSERT(tv >= thr->valstack_bottom); + DUK_TVAL_SET_UNDEFINED(tv); + + DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom); +} +#endif /* !DUK_USE_PREFER_SIZE */ + +#if defined(DUK_USE_PREFER_SIZE) +DUK_INTERNAL void duk_pop_undefined(duk_hthread *thr) { + DUK_ASSERT_API_ENTRY(thr); + duk_pop_nodecref_unsafe(thr); +} +#else /* DUK_USE_PREFER_SIZE */ +DUK_INTERNAL void duk_pop_undefined(duk_hthread *thr) { + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(thr->valstack_top != thr->valstack_bottom); + DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom); + DUK_ASSERT((duk_size_t) (thr->valstack_top - thr->valstack_bottom) >= (duk_size_t) 1); + + DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(thr->valstack_top - 1)); + thr->valstack_top--; + + DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom); +} +#endif /* !DUK_USE_PREFER_SIZE */ + +#if defined(DUK_USE_PREFER_SIZE) +DUK_EXTERNAL void duk_pop_2(duk_hthread *thr) { + DUK_ASSERT_API_ENTRY(thr); + duk_pop_n(thr, 2); +} +DUK_INTERNAL void duk_pop_2_unsafe(duk_hthread *thr) { + DUK_ASSERT_API_ENTRY(thr); + duk_pop_n_unsafe(thr, 2); +} +DUK_INTERNAL void duk_pop_2_nodecref_unsafe(duk_hthread *thr) { + DUK_ASSERT_API_ENTRY(thr); + duk_pop_n_nodecref_unsafe(thr, 2); +} +#else +DUK_LOCAL DUK_ALWAYS_INLINE void duk__pop_2_unsafe_raw(duk_hthread *thr) { + duk_tval *tv; + + DUK_CTX_ASSERT_VALID(thr); + DUK_ASSERT(thr->valstack_top != thr->valstack_bottom); + DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom); + DUK_ASSERT((duk_size_t) (thr->valstack_top - thr->valstack_bottom) >= (duk_size_t) 2); + + tv = --thr->valstack_top; + DUK_ASSERT(tv >= thr->valstack_bottom); +#if defined(DUK_USE_REFERENCE_COUNTING) + DUK_TVAL_SET_UNDEFINED_UPDREF(thr, tv); /* side effects */ +#else + DUK_TVAL_SET_UNDEFINED(tv); +#endif + tv = --thr->valstack_top; + DUK_ASSERT(tv >= thr->valstack_bottom); +#if defined(DUK_USE_REFERENCE_COUNTING) + DUK_TVAL_SET_UNDEFINED_UPDREF(thr, tv); /* side effects */ +#else + DUK_TVAL_SET_UNDEFINED(tv); +#endif + + DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom); +} +DUK_EXTERNAL void duk_pop_2(duk_hthread *thr) { + DUK_ASSERT_API_ENTRY(thr); + + DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom); + if (DUK_UNLIKELY(thr->valstack_top - 2 < thr->valstack_bottom)) { + DUK_ERROR_RANGE_INVALID_COUNT(thr); + DUK_WO_NORETURN(return;); + } + + duk__pop_2_unsafe_raw(thr); +} +DUK_INTERNAL void duk_pop_2_unsafe(duk_hthread *thr) { + DUK_ASSERT_API_ENTRY(thr); + duk__pop_2_unsafe_raw(thr); +} +DUK_INTERNAL void duk_pop_2_nodecref_unsafe(duk_hthread *thr) { + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(thr->valstack_top != thr->valstack_bottom); + DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom); + DUK_ASSERT((duk_size_t) (thr->valstack_top - thr->valstack_bottom) >= (duk_size_t) 2); + + DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(thr->valstack_top - 1)); + DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(thr->valstack_top - 2)); + thr->valstack_top -= 2; + + DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom); +} +#endif /* !DUK_USE_PREFER_SIZE */ + +DUK_EXTERNAL void duk_pop_3(duk_hthread *thr) { + DUK_ASSERT_API_ENTRY(thr); + duk_pop_n(thr, 3); +} + +DUK_INTERNAL void duk_pop_3_unsafe(duk_hthread *thr) { + DUK_ASSERT_API_ENTRY(thr); + duk_pop_n_unsafe(thr, 3); +} + +DUK_INTERNAL void duk_pop_3_nodecref_unsafe(duk_hthread *thr) { + DUK_ASSERT_API_ENTRY(thr); + duk_pop_n_nodecref_unsafe(thr, 3); +} + +/* + * Pack and unpack (pack value stack entries into an array and vice versa) + */ + +/* XXX: pack index range? array index offset? */ +/* XXX: need ability to pack into a bare array? */ +DUK_INTERNAL void duk_pack(duk_hthread *thr, duk_idx_t count) { + duk_tval *tv_src; + duk_tval *tv_dst; + duk_tval *tv_curr; + duk_tval *tv_limit; + duk_idx_t top; + + DUK_ASSERT_API_ENTRY(thr); + + DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom); + top = (duk_idx_t) (thr->valstack_top - thr->valstack_bottom); + DUK_ASSERT(top >= 0); + if (DUK_UNLIKELY((duk_uidx_t) count > (duk_uidx_t) top)) { + /* Also handles negative count. */ + DUK_ERROR_RANGE_INVALID_COUNT(thr); + DUK_WO_NORETURN(return;); + } + DUK_ASSERT(count >= 0); + + /* Wrapping is controlled by the check above: value stack top can be + * at most DUK_USE_VALSTACK_LIMIT which is low enough so that + * multiplying with sizeof(duk_tval) won't wrap. + */ + DUK_ASSERT(count >= 0 && count <= (duk_idx_t) DUK_USE_VALSTACK_LIMIT); + DUK_ASSERT((duk_size_t) count <= DUK_SIZE_MAX / sizeof(duk_tval)); /* no wrapping */ + + tv_dst = duk_push_harray_with_size_outptr(thr, (duk_uint32_t) count); /* XXX: uninitialized would be OK */ + DUK_ASSERT(count == 0 || tv_dst != NULL); + DUK_ASSERT(!duk_is_bare_object(thr, -1)); + + /* Copy value stack values directly to the array part without + * any refcount updates: net refcount changes are zero. + */ + tv_src = thr->valstack_top - count - 1; + duk_memcpy_unsafe((void *) tv_dst, (const void *) tv_src, (size_t) count * sizeof(duk_tval)); + + /* Overwrite result array to final value stack location and wipe + * the rest; no refcount operations needed. + */ + + tv_dst = tv_src; /* when count == 0, same as tv_src (OK) */ + tv_src = thr->valstack_top - 1; + DUK_TVAL_SET_TVAL(tv_dst, tv_src); + + /* XXX: internal helper to wipe a value stack segment? */ + tv_curr = tv_dst + 1; + tv_limit = thr->valstack_top; + while (tv_curr != tv_limit) { + /* Wipe policy: keep as 'undefined'. */ + DUK_TVAL_SET_UNDEFINED(tv_curr); + tv_curr++; + } + thr->valstack_top = tv_dst + 1; +} + +DUK_INTERNAL duk_idx_t duk_unpack_array_like(duk_hthread *thr, duk_idx_t idx) { + duk_tval *tv; + + DUK_ASSERT_API_ENTRY(thr); + + tv = duk_require_tval(thr, idx); + if (DUK_LIKELY(DUK_TVAL_IS_OBJECT(tv))) { + duk_hobject *h; + duk_uint32_t len; + duk_uint32_t i; + + h = DUK_TVAL_GET_OBJECT(tv); + DUK_ASSERT(h != NULL); + DUK_UNREF(h); + +#if defined(DUK_USE_ARRAY_FASTPATH) /* close enough */ + if (DUK_LIKELY(DUK_HOBJECT_IS_ARRAY(h) && + ((duk_harray *) h)->length <= DUK_HOBJECT_GET_ASIZE(h))) { + duk_harray *h_arr; + duk_tval *tv_src; + duk_tval *tv_dst; + + h_arr = (duk_harray *) h; + len = h_arr->length; + if (DUK_UNLIKELY(len >= 0x80000000UL)) { + goto fail_over_2g; + } + duk_require_stack(thr, (duk_idx_t) len); + + /* The potential allocation in duk_require_stack() may + * run a finalizer which modifies the argArray so that + * e.g. becomes sparse. So, we need to recheck that the + * array didn't change size and that there's still a + * valid backing array part. + * + * XXX: alternatively, could prevent finalizers for the + * duration. + */ + if (DUK_UNLIKELY(len != h_arr->length || + h_arr->length > DUK_HOBJECT_GET_ASIZE((duk_hobject *) h_arr))) { + goto skip_fast; + } + + /* Main fast path: arguments array is almost always + * an actual array (though it might also be an arguments + * object). + */ + + DUK_DDD(DUK_DDDPRINT("fast path for %ld elements", (long) h_arr->length)); + tv_src = DUK_HOBJECT_A_GET_BASE(thr->heap, h); + tv_dst = thr->valstack_top; + while (len-- > 0) { + DUK_ASSERT(tv_dst < thr->valstack_end); + if (DUK_UNLIKELY(DUK_TVAL_IS_UNUSED(tv_src))) { + /* Gaps are very unlikely. Skip over them, + * without an ancestor lookup (technically + * not compliant). + */ + DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(tv_dst)); /* valstack policy */ + } else { + DUK_TVAL_SET_TVAL(tv_dst, tv_src); + DUK_TVAL_INCREF(thr, tv_dst); + } + tv_src++; + tv_dst++; + } + DUK_ASSERT(tv_dst <= thr->valstack_end); + thr->valstack_top = tv_dst; + return (duk_idx_t) h_arr->length; + } + skip_fast: +#endif /* DUK_USE_ARRAY_FASTPATH */ + + /* Slow path: actual lookups. The initial 'length' lookup + * decides the output length, regardless of side effects that + * may resize or change the argArray while we read the + * indices. + */ + idx = duk_normalize_index(thr, idx); + duk_get_prop_stridx(thr, idx, DUK_STRIDX_LENGTH); + len = duk_to_uint32(thr, -1); /* ToUint32() coercion required */ + if (DUK_UNLIKELY(len >= 0x80000000UL)) { + goto fail_over_2g; + } + duk_pop_unsafe(thr); + DUK_DDD(DUK_DDDPRINT("slow path for %ld elements", (long) len)); + + duk_require_stack(thr, (duk_idx_t) len); + for (i = 0; i < len; i++) { + duk_get_prop_index(thr, idx, (duk_uarridx_t) i); + } + return (duk_idx_t) len; + } else if (DUK_TVAL_IS_UNDEFINED(tv) || DUK_TVAL_IS_NULL(tv)) { + return 0; + } + + DUK_ERROR_TYPE_INVALID_ARGS(thr); + DUK_WO_NORETURN(return 0;); + + fail_over_2g: + DUK_ERROR_RANGE_INVALID_LENGTH(thr); + DUK_WO_NORETURN(return 0;); +} + +/* + * Error throwing + */ + +#if defined(DUK_USE_GCC_PRAGMAS) +#pragma GCC diagnostic push +#pragma GCC diagnostic ignored "-Wsuggest-attribute=noreturn" +#elif defined(DUK_USE_CLANG_PRAGMAS) +#pragma clang diagnostic push +#endif + +DUK_EXTERNAL void duk_throw_raw(duk_hthread *thr) { + duk_tval *tv_val; + + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(thr->valstack_bottom >= thr->valstack); + DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom); + DUK_ASSERT(thr->valstack_end >= thr->valstack_top); + + if (DUK_UNLIKELY(thr->valstack_top == thr->valstack_bottom)) { + DUK_ERROR_TYPE_INVALID_ARGS(thr); + DUK_WO_NORETURN(return;); + } + + /* Errors are augmented when they are created, not when they are + * thrown or re-thrown. The current error handler, however, runs + * just before an error is thrown. + */ + + /* Sync so that augmentation sees up-to-date activations, NULL + * thr->ptr_curr_pc so that it's not used if side effects occur + * in augmentation or longjmp handling. + */ + duk_hthread_sync_and_null_currpc(thr); + +#if defined(DUK_USE_AUGMENT_ERROR_THROW) + DUK_DDD(DUK_DDDPRINT("THROW ERROR (API): %!dT (before throw augment)", (duk_tval *) duk_get_tval(thr, -1))); + duk_err_augment_error_throw(thr); +#endif + DUK_DDD(DUK_DDDPRINT("THROW ERROR (API): %!dT (after throw augment)", (duk_tval *) duk_get_tval(thr, -1))); + + tv_val = DUK_GET_TVAL_NEGIDX(thr, -1); + duk_err_setup_ljstate1(thr, DUK_LJ_TYPE_THROW, tv_val); +#if defined(DUK_USE_DEBUGGER_SUPPORT) + duk_err_check_debugger_integration(thr); +#endif + + /* thr->heap->lj.jmpbuf_ptr is checked by duk_err_longjmp() so we don't + * need to check that here. If the value is NULL, a fatal error occurs + * because we can't return. + */ + + duk_err_longjmp(thr); + DUK_UNREACHABLE(); +} + +DUK_EXTERNAL void duk_fatal_raw(duk_hthread *thr, const char *err_msg) { + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(thr != NULL); + DUK_ASSERT(thr->heap != NULL); + DUK_ASSERT(thr->heap->fatal_func != NULL); + + DUK_D(DUK_DPRINT("fatal error occurred: %s", err_msg ? err_msg : "NULL")); + + /* fatal_func should be noreturn, but noreturn declarations on function + * pointers has a very spotty support apparently so it's not currently + * done. + */ + thr->heap->fatal_func(thr->heap->heap_udata, err_msg); + + /* If the fatal handler returns, all bets are off. It'd be nice to + * print something here but since we don't want to depend on stdio, + * there's no way to do so portably. + */ + DUK_D(DUK_DPRINT("fatal error handler returned, all bets are off!")); + for (;;) { + /* loop forever, don't return (function marked noreturn) */ + } +} + +DUK_EXTERNAL void duk_error_va_raw(duk_hthread *thr, duk_errcode_t err_code, const char *filename, duk_int_t line, const char *fmt, va_list ap) { + DUK_ASSERT_API_ENTRY(thr); + + duk_push_error_object_va_raw(thr, err_code, filename, line, fmt, ap); + (void) duk_throw(thr); + DUK_WO_NORETURN(return;); +} + +DUK_EXTERNAL void duk_error_raw(duk_hthread *thr, duk_errcode_t err_code, const char *filename, duk_int_t line, const char *fmt, ...) { + va_list ap; + + DUK_ASSERT_API_ENTRY(thr); + + va_start(ap, fmt); + duk_push_error_object_va_raw(thr, err_code, filename, line, fmt, ap); + va_end(ap); + (void) duk_throw(thr); + DUK_WO_NORETURN(return;); +} + +#if defined(DUK_USE_GCC_PRAGMAS) +#pragma GCC diagnostic pop +#elif defined(DUK_USE_CLANG_PRAGMAS) +#pragma clang diagnostic pop +#endif + +#if !defined(DUK_USE_VARIADIC_MACROS) +DUK_NORETURN(DUK_LOCAL_DECL void duk__throw_error_from_stash(duk_hthread *thr, duk_errcode_t err_code, const char *fmt, va_list ap)); + +DUK_LOCAL void duk__throw_error_from_stash(duk_hthread *thr, duk_errcode_t err_code, const char *fmt, va_list ap) { + const char *filename; + duk_int_t line; + + DUK_CTX_ASSERT_VALID(thr); + + filename = duk_api_global_filename; + line = duk_api_global_line; + duk_api_global_filename = NULL; + duk_api_global_line = 0; + + duk_push_error_object_va_raw(thr, err_code, filename, line, fmt, ap); + (void) duk_throw(thr); + DUK_WO_NORETURN(return;); +} + +#define DUK__ERROR_STASH_SHARED(code) do { \ + va_list ap; \ + va_start(ap, fmt); \ + duk__throw_error_from_stash(thr, (code), fmt, ap); \ + va_end(ap); \ + DUK_WO_NORETURN(return 0;); \ + } while (0) + +DUK_EXTERNAL duk_ret_t duk_error_stash(duk_hthread *thr, duk_errcode_t err_code, const char *fmt, ...) { + DUK_ASSERT_API_ENTRY(thr); + DUK__ERROR_STASH_SHARED(err_code); +} +DUK_EXTERNAL duk_ret_t duk_generic_error_stash(duk_hthread *thr, const char *fmt, ...) { + DUK_ASSERT_API_ENTRY(thr); + DUK__ERROR_STASH_SHARED(DUK_ERR_ERROR); +} +DUK_EXTERNAL duk_ret_t duk_eval_error_stash(duk_hthread *thr, const char *fmt, ...) { + DUK_ASSERT_API_ENTRY(thr); + DUK__ERROR_STASH_SHARED(DUK_ERR_EVAL_ERROR); +} +DUK_EXTERNAL duk_ret_t duk_range_error_stash(duk_hthread *thr, const char *fmt, ...) { + DUK_ASSERT_API_ENTRY(thr); + DUK__ERROR_STASH_SHARED(DUK_ERR_RANGE_ERROR); +} +DUK_EXTERNAL duk_ret_t duk_reference_error_stash(duk_hthread *thr, const char *fmt, ...) { + DUK_ASSERT_API_ENTRY(thr); + DUK__ERROR_STASH_SHARED(DUK_ERR_REFERENCE_ERROR); +} +DUK_EXTERNAL duk_ret_t duk_syntax_error_stash(duk_hthread *thr, const char *fmt, ...) { + DUK_ASSERT_API_ENTRY(thr); + DUK__ERROR_STASH_SHARED(DUK_ERR_SYNTAX_ERROR); +} +DUK_EXTERNAL duk_ret_t duk_type_error_stash(duk_hthread *thr, const char *fmt, ...) { + DUK_ASSERT_API_ENTRY(thr); + DUK__ERROR_STASH_SHARED(DUK_ERR_TYPE_ERROR); +} +DUK_EXTERNAL duk_ret_t duk_uri_error_stash(duk_hthread *thr, const char *fmt, ...) { + DUK_ASSERT_API_ENTRY(thr); + DUK__ERROR_STASH_SHARED(DUK_ERR_URI_ERROR); +} +#endif /* DUK_USE_VARIADIC_MACROS */ + +/* + * Comparison + */ + +DUK_EXTERNAL duk_bool_t duk_equals(duk_hthread *thr, duk_idx_t idx1, duk_idx_t idx2) { + duk_tval *tv1, *tv2; + + DUK_ASSERT_API_ENTRY(thr); + + tv1 = duk_get_tval(thr, idx1); + tv2 = duk_get_tval(thr, idx2); + if ((tv1 == NULL) || (tv2 == NULL)) { + return 0; + } + + /* Coercion may be needed, the helper handles that by pushing the + * tagged values to the stack. + */ + return duk_js_equals(thr, tv1, tv2); +} + +DUK_EXTERNAL duk_bool_t duk_strict_equals(duk_hthread *thr, duk_idx_t idx1, duk_idx_t idx2) { + duk_tval *tv1, *tv2; + + DUK_ASSERT_API_ENTRY(thr); + + tv1 = duk_get_tval(thr, idx1); + tv2 = duk_get_tval(thr, idx2); + if ((tv1 == NULL) || (tv2 == NULL)) { + return 0; + } + + /* No coercions or other side effects, so safe */ + return duk_js_strict_equals(tv1, tv2); +} + +DUK_EXTERNAL duk_bool_t duk_samevalue(duk_hthread *thr, duk_idx_t idx1, duk_idx_t idx2) { + duk_tval *tv1, *tv2; + + DUK_ASSERT_API_ENTRY(thr); + + tv1 = duk_get_tval(thr, idx1); + tv2 = duk_get_tval(thr, idx2); + if ((tv1 == NULL) || (tv2 == NULL)) { + return 0; + } + + /* No coercions or other side effects, so safe */ + return duk_js_samevalue(tv1, tv2); +} + +/* + * instanceof + */ + +DUK_EXTERNAL duk_bool_t duk_instanceof(duk_hthread *thr, duk_idx_t idx1, duk_idx_t idx2) { + duk_tval *tv1, *tv2; + + DUK_ASSERT_API_ENTRY(thr); + + /* Index validation is strict, which differs from duk_equals(). + * The strict behavior mimics how instanceof itself works, e.g. + * it is a TypeError if rval is not a -callable- object. It would + * be somewhat inconsistent if rval would be allowed to be + * non-existent without a TypeError. + */ + tv1 = duk_require_tval(thr, idx1); + DUK_ASSERT(tv1 != NULL); + tv2 = duk_require_tval(thr, idx2); + DUK_ASSERT(tv2 != NULL); + + return duk_js_instanceof(thr, tv1, tv2); +} + +/* + * Lightfunc + */ + +DUK_INTERNAL void duk_push_lightfunc_name_raw(duk_hthread *thr, duk_c_function func, duk_small_uint_t lf_flags) { + /* Lightfunc name, includes Duktape/C native function pointer, which + * can often be used to locate the function from a symbol table. + * The name also includes the 16-bit duk_tval flags field because it + * includes the magic value. Because a single native function often + * provides different functionality depending on the magic value, it + * seems reasonably to include it in the name. + * + * On the other hand, a complicated name increases string table + * pressure in low memory environments (but only when function name + * is accessed). + */ + + DUK_ASSERT_API_ENTRY(thr); + + duk_push_literal(thr, "light_"); + duk_push_string_funcptr(thr, (duk_uint8_t *) &func, sizeof(func)); + duk_push_sprintf(thr, "_%04x", (unsigned int) lf_flags); + duk_concat(thr, 3); +} + +DUK_INTERNAL void duk_push_lightfunc_name(duk_hthread *thr, duk_tval *tv) { + duk_c_function func; + duk_small_uint_t lf_flags; + + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(DUK_TVAL_IS_LIGHTFUNC(tv)); + + DUK_TVAL_GET_LIGHTFUNC(tv, func, lf_flags); + duk_push_lightfunc_name_raw(thr, func, lf_flags); +} + +DUK_INTERNAL void duk_push_lightfunc_tostring(duk_hthread *thr, duk_tval *tv) { + duk_c_function func; + duk_small_uint_t lf_flags; + + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(DUK_TVAL_IS_LIGHTFUNC(tv)); + + DUK_TVAL_GET_LIGHTFUNC(tv, func, lf_flags); /* read before 'tv' potentially invalidated */ + duk_push_literal(thr, "function "); + duk_push_lightfunc_name_raw(thr, func, lf_flags); + duk_push_literal(thr, "() { [lightfunc code] }"); + duk_concat(thr, 3); +} + +/* + * Function pointers + * + * Printing function pointers is non-portable, so we do that by hex printing + * bytes from memory. + */ + +DUK_INTERNAL void duk_push_string_funcptr(duk_hthread *thr, duk_uint8_t *ptr, duk_size_t sz) { + duk_uint8_t buf[32 * 2]; + duk_uint8_t *p, *q; + duk_small_uint_t i; + duk_small_uint_t t; + + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(sz <= 32); /* sanity limit for function pointer size */ + + p = buf; +#if defined(DUK_USE_INTEGER_LE) + q = ptr + sz; +#else + q = ptr; +#endif + for (i = 0; i < sz; i++) { +#if defined(DUK_USE_INTEGER_LE) + t = *(--q); +#else + t = *(q++); +#endif + *p++ = duk_lc_digits[t >> 4]; + *p++ = duk_lc_digits[t & 0x0f]; + } + + duk_push_lstring(thr, (const char *) buf, sz * 2); +} + +/* + * Push readable string summarizing duk_tval. The operation is side effect + * free and will only throw from internal errors (e.g. out of memory). + * This is used by e.g. property access code to summarize a key/base safely, + * and is not intended to be fast (but small and safe). + */ + +/* String limits for summary strings. */ +#define DUK__READABLE_SUMMARY_MAXCHARS 96 /* maximum supported by helper */ +#define DUK__READABLE_STRING_MAXCHARS 32 /* for strings/symbols */ +#define DUK__READABLE_ERRMSG_MAXCHARS 96 /* for error messages */ + +/* String sanitizer which escapes ASCII control characters and a few other + * ASCII characters, passes Unicode as is, and replaces invalid UTF-8 with + * question marks. No errors are thrown for any input string, except in out + * of memory situations. + */ +DUK_LOCAL void duk__push_hstring_readable_unicode(duk_hthread *thr, duk_hstring *h_input, duk_small_uint_t maxchars) { + const duk_uint8_t *p, *p_start, *p_end; + duk_uint8_t buf[DUK_UNICODE_MAX_XUTF8_LENGTH * DUK__READABLE_SUMMARY_MAXCHARS + + 2 /*quotes*/ + 3 /*periods*/]; + duk_uint8_t *q; + duk_ucodepoint_t cp; + duk_small_uint_t nchars; + + DUK_CTX_ASSERT_VALID(thr); + DUK_ASSERT(h_input != NULL); + DUK_ASSERT(maxchars <= DUK__READABLE_SUMMARY_MAXCHARS); + + p_start = (const duk_uint8_t *) DUK_HSTRING_GET_DATA(h_input); + p_end = p_start + DUK_HSTRING_GET_BYTELEN(h_input); + p = p_start; + q = buf; + + nchars = 0; + *q++ = (duk_uint8_t) DUK_ASC_SINGLEQUOTE; + for (;;) { + if (p >= p_end) { + break; + } + if (nchars == maxchars) { + *q++ = (duk_uint8_t) DUK_ASC_PERIOD; + *q++ = (duk_uint8_t) DUK_ASC_PERIOD; + *q++ = (duk_uint8_t) DUK_ASC_PERIOD; + break; + } + if (duk_unicode_decode_xutf8(thr, &p, p_start, p_end, &cp)) { + if (cp < 0x20 || cp == 0x7f || cp == DUK_ASC_SINGLEQUOTE || cp == DUK_ASC_BACKSLASH) { + DUK_ASSERT(DUK_UNICODE_MAX_XUTF8_LENGTH >= 4); /* estimate is valid */ + DUK_ASSERT((cp >> 4) <= 0x0f); + *q++ = (duk_uint8_t) DUK_ASC_BACKSLASH; + *q++ = (duk_uint8_t) DUK_ASC_LC_X; + *q++ = (duk_uint8_t) duk_lc_digits[cp >> 4]; + *q++ = (duk_uint8_t) duk_lc_digits[cp & 0x0f]; + } else { + q += duk_unicode_encode_xutf8(cp, q); + } + } else { + p++; /* advance manually */ + *q++ = (duk_uint8_t) DUK_ASC_QUESTION; + } + nchars++; + } + *q++ = (duk_uint8_t) DUK_ASC_SINGLEQUOTE; + + duk_push_lstring(thr, (const char *) buf, (duk_size_t) (q - buf)); +} + +DUK_LOCAL const char *duk__push_string_tval_readable(duk_hthread *thr, duk_tval *tv, duk_bool_t error_aware) { + DUK_CTX_ASSERT_VALID(thr); + /* 'tv' may be NULL */ + + if (tv == NULL) { + duk_push_literal(thr, "none"); + } else { + switch (DUK_TVAL_GET_TAG(tv)) { + case DUK_TAG_STRING: { + duk_hstring *h = DUK_TVAL_GET_STRING(tv); + if (DUK_HSTRING_HAS_SYMBOL(h)) { + /* XXX: string summary produces question marks + * so this is not very ideal. + */ + duk_push_literal(thr, "[Symbol "); + duk_push_string(thr, duk__get_symbol_type_string(h)); + duk_push_literal(thr, " "); + duk__push_hstring_readable_unicode(thr, h, DUK__READABLE_STRING_MAXCHARS); + duk_push_literal(thr, "]"); + duk_concat(thr, 5); + break; + } + duk__push_hstring_readable_unicode(thr, h, DUK__READABLE_STRING_MAXCHARS); + break; + } + case DUK_TAG_OBJECT: { + duk_hobject *h = DUK_TVAL_GET_OBJECT(tv); + DUK_ASSERT(h != NULL); + + if (error_aware && + duk_hobject_prototype_chain_contains(thr, h, thr->builtins[DUK_BIDX_ERROR_PROTOTYPE], 1 /*ignore_loop*/)) { + /* Get error message in a side effect free way if + * possible; if not, summarize as a generic object. + * Error message currently gets quoted. + */ + /* XXX: better internal getprop call; get without side effects + * but traverse inheritance chain. + */ + duk_tval *tv_msg; + tv_msg = duk_hobject_find_entry_tval_ptr_stridx(thr->heap, h, DUK_STRIDX_MESSAGE); + if (tv_msg != NULL && DUK_TVAL_IS_STRING(tv_msg)) { + /* It's critical to avoid recursion so + * only summarize a string .message. + */ + duk__push_hstring_readable_unicode(thr, DUK_TVAL_GET_STRING(tv_msg), DUK__READABLE_ERRMSG_MAXCHARS); + break; + } + } + duk_push_class_string_tval(thr, tv, 1 /*avoid_side_effects*/); + break; + } + case DUK_TAG_BUFFER: { + /* While plain buffers mimic Uint8Arrays, they summarize differently. + * This is useful so that the summarized string accurately reflects the + * internal type which may matter for figuring out bugs etc. + */ + /* XXX: Hex encoded, length limited buffer summary here? */ + duk_hbuffer *h = DUK_TVAL_GET_BUFFER(tv); + DUK_ASSERT(h != NULL); + duk_push_sprintf(thr, "[buffer:%ld]", (long) DUK_HBUFFER_GET_SIZE(h)); + break; + } + case DUK_TAG_POINTER: { + /* Surround with parentheses like in JX, ensures NULL pointer + * is distinguishable from null value ("(null)" vs "null"). + */ + duk_push_tval(thr, tv); + duk_push_sprintf(thr, "(%s)", duk_to_string(thr, -1)); + duk_remove_m2(thr); + break; + } + default: { + duk_push_tval(thr, tv); + break; + } + } + } + + return duk_to_string(thr, -1); +} +DUK_INTERNAL const char *duk_push_string_tval_readable(duk_hthread *thr, duk_tval *tv) { + DUK_ASSERT_API_ENTRY(thr); + return duk__push_string_tval_readable(thr, tv, 0 /*error_aware*/); +} + +DUK_INTERNAL const char *duk_push_string_readable(duk_hthread *thr, duk_idx_t idx) { + DUK_ASSERT_API_ENTRY(thr); + return duk_push_string_tval_readable(thr, duk_get_tval(thr, idx)); +} + +DUK_INTERNAL const char *duk_push_string_tval_readable_error(duk_hthread *thr, duk_tval *tv) { + DUK_ASSERT_API_ENTRY(thr); + return duk__push_string_tval_readable(thr, tv, 1 /*error_aware*/); +} + +DUK_INTERNAL void duk_push_symbol_descriptive_string(duk_hthread *thr, duk_hstring *h) { + const duk_uint8_t *p; + const duk_uint8_t *p_end; + const duk_uint8_t *q; + + DUK_ASSERT_API_ENTRY(thr); + + /* .toString() */ + duk_push_literal(thr, "Symbol("); + p = (const duk_uint8_t *) DUK_HSTRING_GET_DATA(h); + p_end = p + DUK_HSTRING_GET_BYTELEN(h); + DUK_ASSERT(p[0] == 0xff || (p[0] & 0xc0) == 0x80); + p++; + for (q = p; q < p_end; q++) { + if (*q == 0xffU) { + /* Terminate either at end-of-string (but NUL MUST + * be accepted without terminating description) or + * 0xFF, which is used to mark start of unique trailer + * (and cannot occur in CESU-8 / extended UTF-8). + */ + break; + } + } + duk_push_lstring(thr, (const char *) p, (duk_size_t) (q - p)); + duk_push_literal(thr, ")"); + duk_concat(thr, 3); +} + +/* + * Functions + */ + +#if 0 /* not used yet */ +DUK_INTERNAL void duk_push_hnatfunc_name(duk_hthread *thr, duk_hnatfunc *h) { + duk_c_function func; + + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(h != NULL); + DUK_ASSERT(DUK_HOBJECT_IS_NATFUNC((duk_hobject *) h)); + + duk_push_sprintf(thr, "native_"); + func = h->func; + duk_push_string_funcptr(thr, (duk_uint8_t *) &func, sizeof(func)); + duk_push_sprintf(thr, "_%04x_%04x", + (unsigned int) (duk_uint16_t) h->nargs, + (unsigned int) (duk_uint16_t) h->magic); + duk_concat(thr, 3); +} +#endif + +/* + * duk_tval slice copy + */ + +DUK_INTERNAL void duk_copy_tvals_incref(duk_hthread *thr, duk_tval *tv_dst, duk_tval *tv_src, duk_size_t count) { + duk_tval *tv; + + DUK_ASSERT_API_ENTRY(thr); + DUK_UNREF(thr); + DUK_ASSERT(count * sizeof(duk_tval) >= count); /* no wrap */ + + duk_memcpy_unsafe((void *) tv_dst, (const void *) tv_src, count * sizeof(duk_tval)); + + tv = tv_dst; + while (count-- > 0) { + DUK_TVAL_INCREF(thr, tv); + tv++; + } +} + +/* automatic undefs */ +#undef DUK__ASSERT_SPACE +#undef DUK__CHECK_SPACE +#undef DUK__ERROR_STASH_SHARED +#undef DUK__PACK_ARGS +#undef DUK__READABLE_ERRMSG_MAXCHARS +#undef DUK__READABLE_STRING_MAXCHARS +#undef DUK__READABLE_SUMMARY_MAXCHARS +#line 1 "duk_api_string.c" +/* + * String manipulation + */ + +/* #include duk_internal.h -> already included */ + +DUK_LOCAL void duk__concat_and_join_helper(duk_hthread *thr, duk_idx_t count_in, duk_bool_t is_join) { + duk_uint_t count; + duk_uint_t i; + duk_size_t idx; + duk_size_t len; + duk_hstring *h; + duk_uint8_t *buf; + + DUK_CTX_ASSERT_VALID(thr); + + if (DUK_UNLIKELY(count_in <= 0)) { + if (count_in < 0) { + DUK_ERROR_RANGE_INVALID_COUNT(thr); + DUK_WO_NORETURN(return;); + } + DUK_ASSERT(count_in == 0); + duk_push_hstring_empty(thr); + return; + } + count = (duk_uint_t) count_in; + + if (is_join) { + duk_size_t t1, t2, limit; + h = duk_to_hstring(thr, -((duk_idx_t) count) - 1); + DUK_ASSERT(h != NULL); + + /* A bit tricky overflow test, see doc/code-issues.rst. */ + t1 = (duk_size_t) DUK_HSTRING_GET_BYTELEN(h); + t2 = (duk_size_t) (count - 1); + limit = (duk_size_t) DUK_HSTRING_MAX_BYTELEN; + if (DUK_UNLIKELY(t2 != 0 && t1 > limit / t2)) { + /* Combined size of separators already overflows. */ + goto error_overflow; + } + len = (duk_size_t) (t1 * t2); + } else { + len = (duk_size_t) 0; + } + + for (i = count; i >= 1; i--) { + duk_size_t new_len; + h = duk_to_hstring(thr, -((duk_idx_t) i)); + new_len = len + (duk_size_t) DUK_HSTRING_GET_BYTELEN(h); + + /* Impose a string maximum length, need to handle overflow + * correctly. + */ + if (new_len < len || /* wrapped */ + new_len > (duk_size_t) DUK_HSTRING_MAX_BYTELEN) { + goto error_overflow; + } + len = new_len; + } + + DUK_DDD(DUK_DDDPRINT("join/concat %lu strings, total length %lu bytes", + (unsigned long) count, (unsigned long) len)); + + /* Use stack allocated buffer to ensure reachability in errors + * (e.g. intern error). + */ + buf = (duk_uint8_t *) duk_push_fixed_buffer_nozero(thr, len); + DUK_ASSERT(buf != NULL); + + /* [ ... (sep) str1 str2 ... strN buf ] */ + + idx = 0; + for (i = count; i >= 1; i--) { + if (is_join && i != count) { + h = duk_require_hstring(thr, -((duk_idx_t) count) - 2); /* extra -1 for buffer */ + duk_memcpy(buf + idx, DUK_HSTRING_GET_DATA(h), DUK_HSTRING_GET_BYTELEN(h)); + idx += DUK_HSTRING_GET_BYTELEN(h); + } + h = duk_require_hstring(thr, -((duk_idx_t) i) - 1); /* extra -1 for buffer */ + duk_memcpy(buf + idx, DUK_HSTRING_GET_DATA(h), DUK_HSTRING_GET_BYTELEN(h)); + idx += DUK_HSTRING_GET_BYTELEN(h); + } + + DUK_ASSERT(idx == len); + + /* [ ... (sep) str1 str2 ... strN buf ] */ + + /* Get rid of the strings early to minimize memory use before intern. */ + + if (is_join) { + duk_replace(thr, -((duk_idx_t) count) - 2); /* overwrite sep */ + duk_pop_n(thr, (duk_idx_t) count); + } else { + duk_replace(thr, -((duk_idx_t) count) - 1); /* overwrite str1 */ + duk_pop_n(thr, (duk_idx_t) (count - 1)); + } + + /* [ ... buf ] */ + + (void) duk_buffer_to_string(thr, -1); /* Safe if inputs are safe. */ + + /* [ ... res ] */ + return; + + error_overflow: + DUK_ERROR_RANGE(thr, DUK_STR_RESULT_TOO_LONG); + DUK_WO_NORETURN(return;); +} + +DUK_EXTERNAL void duk_concat(duk_hthread *thr, duk_idx_t count) { + DUK_ASSERT_API_ENTRY(thr); + + duk__concat_and_join_helper(thr, count, 0 /*is_join*/); +} + +#if defined(DUK_USE_PREFER_SIZE) +DUK_INTERNAL void duk_concat_2(duk_hthread *thr) { + DUK_ASSERT_API_ENTRY(thr); + duk_concat(thr, 2); +} +#else /* DUK_USE_PREFER_SIZE */ +DUK_INTERNAL void duk_concat_2(duk_hthread *thr) { + duk_hstring *h1; + duk_hstring *h2; + duk_uint8_t *buf; + duk_size_t len1; + duk_size_t len2; + duk_size_t len; + + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(duk_get_top(thr) >= 2); /* Trusted caller. */ + + h1 = duk_to_hstring(thr, -2); + h2 = duk_to_hstring(thr, -1); + len1 = (duk_size_t) DUK_HSTRING_GET_BYTELEN(h1); + len2 = (duk_size_t) DUK_HSTRING_GET_BYTELEN(h2); + len = len1 + len2; + if (DUK_UNLIKELY(len < len1 || /* wrapped */ + len > (duk_size_t) DUK_HSTRING_MAX_BYTELEN)) { + goto error_overflow; + } + buf = (duk_uint8_t *) duk_push_fixed_buffer_nozero(thr, len); + DUK_ASSERT(buf != NULL); + + duk_memcpy((void *) buf, (const void *) DUK_HSTRING_GET_DATA(h1), (size_t) len1); + duk_memcpy((void *) (buf + len1), (const void *) DUK_HSTRING_GET_DATA(h2), (size_t) len2); + (void) duk_buffer_to_string(thr, -1); /* Safe if inputs are safe. */ + + /* [ ... str1 str2 buf ] */ + + duk_replace(thr, -3); + duk_pop_unsafe(thr); + return; + + error_overflow: + DUK_ERROR_RANGE(thr, DUK_STR_RESULT_TOO_LONG); + DUK_WO_NORETURN(return;); +} +#endif /* DUK_USE_PREFER_SIZE */ + +DUK_EXTERNAL void duk_join(duk_hthread *thr, duk_idx_t count) { + DUK_ASSERT_API_ENTRY(thr); + + duk__concat_and_join_helper(thr, count, 1 /*is_join*/); +} + +/* XXX: could map/decode be unified with duk_unicode_support.c code? + * Case conversion needs also the character surroundings though. + */ + +DUK_EXTERNAL void duk_decode_string(duk_hthread *thr, duk_idx_t idx, duk_decode_char_function callback, void *udata) { + duk_hstring *h_input; + const duk_uint8_t *p, *p_start, *p_end; + duk_codepoint_t cp; + + DUK_ASSERT_API_ENTRY(thr); + + h_input = duk_require_hstring(thr, idx); /* Accept symbols. */ + DUK_ASSERT(h_input != NULL); + + p_start = (const duk_uint8_t *) DUK_HSTRING_GET_DATA(h_input); + p_end = p_start + DUK_HSTRING_GET_BYTELEN(h_input); + p = p_start; + + for (;;) { + if (p >= p_end) { + break; + } + cp = (duk_codepoint_t) duk_unicode_decode_xutf8_checked(thr, &p, p_start, p_end); + callback(udata, cp); + } +} + +DUK_EXTERNAL void duk_map_string(duk_hthread *thr, duk_idx_t idx, duk_map_char_function callback, void *udata) { + duk_hstring *h_input; + duk_bufwriter_ctx bw_alloc; + duk_bufwriter_ctx *bw; + const duk_uint8_t *p, *p_start, *p_end; + duk_codepoint_t cp; + + DUK_ASSERT_API_ENTRY(thr); + + idx = duk_normalize_index(thr, idx); + + h_input = duk_require_hstring(thr, idx); /* Accept symbols. */ + DUK_ASSERT(h_input != NULL); + + bw = &bw_alloc; + DUK_BW_INIT_PUSHBUF(thr, bw, DUK_HSTRING_GET_BYTELEN(h_input)); /* Reasonable output estimate. */ + + p_start = (const duk_uint8_t *) DUK_HSTRING_GET_DATA(h_input); + p_end = p_start + DUK_HSTRING_GET_BYTELEN(h_input); + p = p_start; + + for (;;) { + /* XXX: could write output in chunks with fewer ensure calls, + * but relative benefit would be small here. + */ + + if (p >= p_end) { + break; + } + cp = (duk_codepoint_t) duk_unicode_decode_xutf8_checked(thr, &p, p_start, p_end); + cp = callback(udata, cp); + + DUK_BW_WRITE_ENSURE_XUTF8(thr, bw, cp); + } + + DUK_BW_COMPACT(thr, bw); + (void) duk_buffer_to_string(thr, -1); /* Safe, extended UTF-8 encoded. */ + duk_replace(thr, idx); +} + +DUK_EXTERNAL void duk_substring(duk_hthread *thr, duk_idx_t idx, duk_size_t start_offset, duk_size_t end_offset) { + duk_hstring *h; + duk_hstring *res; + duk_size_t start_byte_offset; + duk_size_t end_byte_offset; + duk_size_t charlen; + + DUK_ASSERT_API_ENTRY(thr); + + idx = duk_require_normalize_index(thr, idx); /* Accept symbols. */ + h = duk_require_hstring(thr, idx); + DUK_ASSERT(h != NULL); + + charlen = DUK_HSTRING_GET_CHARLEN(h); + if (end_offset >= charlen) { + end_offset = charlen; + } + if (start_offset > end_offset) { + start_offset = end_offset; + } + + DUK_ASSERT_DISABLE(start_offset >= 0); + DUK_ASSERT(start_offset <= end_offset && start_offset <= DUK_HSTRING_GET_CHARLEN(h)); + DUK_ASSERT_DISABLE(end_offset >= 0); + DUK_ASSERT(end_offset >= start_offset && end_offset <= DUK_HSTRING_GET_CHARLEN(h)); + + /* Guaranteed by string limits. */ + DUK_ASSERT(start_offset <= DUK_UINT32_MAX); + DUK_ASSERT(end_offset <= DUK_UINT32_MAX); + + start_byte_offset = (duk_size_t) duk_heap_strcache_offset_char2byte(thr, h, (duk_uint_fast32_t) start_offset); + end_byte_offset = (duk_size_t) duk_heap_strcache_offset_char2byte(thr, h, (duk_uint_fast32_t) end_offset); + + DUK_ASSERT(end_byte_offset >= start_byte_offset); + DUK_ASSERT(end_byte_offset - start_byte_offset <= DUK_UINT32_MAX); /* Guaranteed by string limits. */ + + /* No size check is necessary. */ + res = duk_heap_strtable_intern_checked(thr, + DUK_HSTRING_GET_DATA(h) + start_byte_offset, + (duk_uint32_t) (end_byte_offset - start_byte_offset)); + + duk_push_hstring(thr, res); + duk_replace(thr, idx); +} + +/* XXX: this is quite clunky. Add Unicode helpers to scan backwards and + * forwards with a callback to process codepoints? + */ +DUK_EXTERNAL void duk_trim(duk_hthread *thr, duk_idx_t idx) { + duk_hstring *h; + const duk_uint8_t *p, *p_start, *p_end, *p_tmp1, *p_tmp2; /* pointers for scanning */ + const duk_uint8_t *q_start, *q_end; /* start (incl) and end (excl) of trimmed part */ + duk_codepoint_t cp; + + DUK_ASSERT_API_ENTRY(thr); + + idx = duk_require_normalize_index(thr, idx); /* Accept symbols. */ + h = duk_require_hstring(thr, idx); + DUK_ASSERT(h != NULL); + + p_start = DUK_HSTRING_GET_DATA(h); + p_end = p_start + DUK_HSTRING_GET_BYTELEN(h); + + p = p_start; + while (p < p_end) { + p_tmp1 = p; + cp = (duk_codepoint_t) duk_unicode_decode_xutf8_checked(thr, &p_tmp1, p_start, p_end); + if (!(duk_unicode_is_whitespace(cp) || duk_unicode_is_line_terminator(cp))) { + break; + } + p = p_tmp1; + } + q_start = p; + if (p == p_end) { + /* Entire string is whitespace. */ + q_end = p; + goto scan_done; + } + + p = p_end; + while (p > p_start) { + p_tmp1 = p; + while (p > p_start) { + p--; + if (((*p) & 0xc0) != 0x80) { + break; + } + } + p_tmp2 = p; + + cp = (duk_codepoint_t) duk_unicode_decode_xutf8_checked(thr, &p_tmp2, p_start, p_end); + if (!(duk_unicode_is_whitespace(cp) || duk_unicode_is_line_terminator(cp))) { + p = p_tmp1; + break; + } + } + q_end = p; + + scan_done: + /* This may happen when forward and backward scanning disagree + * (possible for non-extended-UTF-8 strings). + */ + if (q_end < q_start) { + q_end = q_start; + } + + DUK_ASSERT(q_start >= p_start && q_start <= p_end); + DUK_ASSERT(q_end >= p_start && q_end <= p_end); + DUK_ASSERT(q_end >= q_start); + + DUK_DDD(DUK_DDDPRINT("trim: p_start=%p, p_end=%p, q_start=%p, q_end=%p", + (const void *) p_start, (const void *) p_end, + (const void *) q_start, (const void *) q_end)); + + if (q_start == p_start && q_end == p_end) { + DUK_DDD(DUK_DDDPRINT("nothing was trimmed: avoid interning (hashing etc)")); + return; + } + + duk_push_lstring(thr, (const char *) q_start, (duk_size_t) (q_end - q_start)); + duk_replace(thr, idx); +} + +DUK_EXTERNAL duk_codepoint_t duk_char_code_at(duk_hthread *thr, duk_idx_t idx, duk_size_t char_offset) { + duk_hstring *h; + duk_ucodepoint_t cp; + + DUK_ASSERT_API_ENTRY(thr); + + /* XXX: Share code with String.prototype.charCodeAt? Main difference + * is handling of clamped offsets. + */ + + h = duk_require_hstring(thr, idx); /* Accept symbols. */ + DUK_ASSERT(h != NULL); + + DUK_ASSERT_DISABLE(char_offset >= 0); /* Always true, arg is unsigned. */ + if (char_offset >= DUK_HSTRING_GET_CHARLEN(h)) { + return 0; + } + + DUK_ASSERT(char_offset <= DUK_UINT_MAX); /* Guaranteed by string limits. */ + cp = duk_hstring_char_code_at_raw(thr, h, (duk_uint_t) char_offset, 0 /*surrogate_aware*/); + return (duk_codepoint_t) cp; +} +#line 1 "duk_api_time.c" +/* + * Date/time. + */ + +/* #include duk_internal.h -> already included */ + +DUK_INTERNAL duk_double_t duk_time_get_ecmascript_time(duk_hthread *thr) { + /* ECMAScript time, with millisecond fractions. Exposed via + * duk_get_now() for example. + */ + DUK_UNREF(thr); + return (duk_double_t) DUK_USE_DATE_GET_NOW(thr); +} + +DUK_INTERNAL duk_double_t duk_time_get_ecmascript_time_nofrac(duk_hthread *thr) { + /* ECMAScript time without millisecond fractions. Exposed via + * the Date built-in which doesn't allow fractions. + */ + DUK_UNREF(thr); + return (duk_double_t) DUK_FLOOR(DUK_USE_DATE_GET_NOW(thr)); +} + +DUK_INTERNAL duk_double_t duk_time_get_monotonic_time(duk_hthread *thr) { + DUK_UNREF(thr); +#if defined(DUK_USE_GET_MONOTONIC_TIME) + return (duk_double_t) DUK_USE_GET_MONOTONIC_TIME(thr); +#else + return (duk_double_t) DUK_USE_DATE_GET_NOW(thr); +#endif +} + +DUK_EXTERNAL duk_double_t duk_get_now(duk_hthread *thr) { + DUK_ASSERT_API_ENTRY(thr); + DUK_UNREF(thr); + + /* This API intentionally allows millisecond fractions. */ + return duk_time_get_ecmascript_time(thr); +} + +#if 0 /* XXX: worth exposing? */ +DUK_EXTERNAL duk_double_t duk_get_monotonic_time(duk_hthread *thr) { + DUK_ASSERT_API_ENTRY(thr); + DUK_UNREF(thr); + + return duk_time_get_monotonic_time(thr); +} +#endif + +DUK_EXTERNAL void duk_time_to_components(duk_hthread *thr, duk_double_t timeval, duk_time_components *comp) { + duk_int_t parts[DUK_DATE_IDX_NUM_PARTS]; + duk_double_t dparts[DUK_DATE_IDX_NUM_PARTS]; + duk_uint_t flags; + + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(comp != NULL); /* XXX: or check? */ + DUK_UNREF(thr); + + /* Convert as one-based, but change month to zero-based to match the + * ECMAScript Date built-in behavior 1:1. + */ + flags = DUK_DATE_FLAG_ONEBASED | DUK_DATE_FLAG_NAN_TO_ZERO; + + duk_bi_date_timeval_to_parts(timeval, parts, dparts, flags); + + /* XXX: sub-millisecond accuracy for the API */ + + DUK_ASSERT(dparts[DUK_DATE_IDX_MONTH] >= 1.0 && dparts[DUK_DATE_IDX_MONTH] <= 12.0); + comp->year = dparts[DUK_DATE_IDX_YEAR]; + comp->month = dparts[DUK_DATE_IDX_MONTH] - 1.0; + comp->day = dparts[DUK_DATE_IDX_DAY]; + comp->hours = dparts[DUK_DATE_IDX_HOUR]; + comp->minutes = dparts[DUK_DATE_IDX_MINUTE]; + comp->seconds = dparts[DUK_DATE_IDX_SECOND]; + comp->milliseconds = dparts[DUK_DATE_IDX_MILLISECOND]; + comp->weekday = dparts[DUK_DATE_IDX_WEEKDAY]; +} + +DUK_EXTERNAL duk_double_t duk_components_to_time(duk_hthread *thr, duk_time_components *comp) { + duk_double_t d; + duk_double_t dparts[DUK_DATE_IDX_NUM_PARTS]; + duk_uint_t flags; + + DUK_ASSERT_API_ENTRY(thr); + DUK_ASSERT(comp != NULL); /* XXX: or check? */ + DUK_UNREF(thr); + + /* Match Date constructor behavior (with UTC time). Month is given + * as zero-based. Day-of-month is given as one-based so normalize + * it to zero-based as the internal conversion helpers expects all + * components to be zero-based. + */ + flags = 0; + + /* XXX: expensive conversion; use array format in API instead, or unify + * time provider and time API to use same struct? + */ + + dparts[DUK_DATE_IDX_YEAR] = comp->year; + dparts[DUK_DATE_IDX_MONTH] = comp->month; + dparts[DUK_DATE_IDX_DAY] = comp->day - 1.0; + dparts[DUK_DATE_IDX_HOUR] = comp->hours; + dparts[DUK_DATE_IDX_MINUTE] = comp->minutes; + dparts[DUK_DATE_IDX_SECOND] = comp->seconds; + dparts[DUK_DATE_IDX_MILLISECOND] = comp->milliseconds; + dparts[DUK_DATE_IDX_WEEKDAY] = 0; /* ignored */ + + d = duk_bi_date_get_timeval_from_dparts(dparts, flags); + + return d; +} +#line 1 "duk_bi_array.c" +/* + * Array built-ins + * + * Most Array built-ins are intentionally generic in ECMAScript, and are + * intended to work even when the 'this' binding is not an Array instance. + * This ECMAScript feature is also used by much real world code. For this + * reason the implementations here don't assume exotic Array behavior or + * e.g. presence of a .length property. However, some algorithms have a + * fast path for duk_harray backed actual Array instances, enabled when + * footprint is not a concern. + * + * XXX: the "Throw" flag should be set for (almost?) all [[Put]] and + * [[Delete]] operations, but it's currently false throughout. Go through + * all put/delete cases and check throw flag use. Need a new API primitive + * which allows throws flag to be specified. + * + * XXX: array lengths above 2G won't work reliably. There are many places + * where one needs a full signed 32-bit range ([-0xffffffff, 0xffffffff], + * i.e. -33- bits). Although array 'length' cannot be written to be outside + * the unsigned 32-bit range (E5.1 Section 15.4.5.1 throws a RangeError if so) + * some intermediate values may be above 0xffffffff and this may not be always + * correctly handled now (duk_uint32_t is not enough for all algorithms). + * For instance, push() can legitimately write entries beyond length 0xffffffff + * and cause a RangeError only at the end. To do this properly, the current + * push() implementation tracks the array index using a 'double' instead of a + * duk_uint32_t (which is somewhat awkward). See test-bi-array-push-maxlen.js. + * + * On using "put" vs. "def" prop + * ============================= + * + * Code below must be careful to use the appropriate primitive as it matters + * for compliance. When using "put" there may be inherited properties in + * Array.prototype which cause side effects when values are written. When + * using "define" there are no such side effects, and many test262 test cases + * check for this (for real world code, such side effects are very rare). + * Both "put" and "define" are used in the E5.1 specification; as a rule, + * "put" is used when modifying an existing array (or a non-array 'this' + * binding) and "define" for setting values into a fresh result array. + */ + +/* #include duk_internal.h -> already included */ + +/* Perform an intermediate join when this many elements have been pushed + * on the value stack. + */ +#define DUK__ARRAY_MID_JOIN_LIMIT 4096 + +#if defined(DUK_USE_ARRAY_BUILTIN) + +/* + * Shared helpers. + */ + +/* Shared entry code for many Array built-ins: the 'this' binding is pushed + * on the value stack and object coerced, and the current .length is returned. + * Note that length is left on stack (it could be popped, but that's not + * usually necessary because call handling will clean it up automatically). + */ +DUK_LOCAL duk_uint32_t duk__push_this_obj_len_u32(duk_hthread *thr) { + duk_uint32_t len; + + /* XXX: push more directly? */ + (void) duk_push_this_coercible_to_object(thr); + DUK_HOBJECT_ASSERT_VALID(duk_get_hobject(thr, -1)); + duk_get_prop_stridx_short(thr, -1, DUK_STRIDX_LENGTH); + len = duk_to_uint32(thr, -1); + + /* -> [ ... ToObject(this) ToUint32(length) ] */ + return len; +} + +DUK_LOCAL duk_uint32_t duk__push_this_obj_len_u32_limited(duk_hthread *thr) { + /* Range limited to [0, 0x7fffffff] range, i.e. range that can be + * represented with duk_int32_t. Use this when the method doesn't + * handle the full 32-bit unsigned range correctly. + */ + duk_uint32_t ret = duk__push_this_obj_len_u32(thr); + if (DUK_UNLIKELY(ret >= 0x80000000UL)) { + DUK_ERROR_RANGE_INVALID_LENGTH(thr); + DUK_WO_NORETURN(return 0U;); + } + return ret; +} + +#if defined(DUK_USE_ARRAY_FASTPATH) +/* Check if 'this' binding is an Array instance (duk_harray) which satisfies + * a few other guarantees for fast path operation. The fast path doesn't + * need to handle all operations, even for duk_harrays, but must handle a + * significant fraction to improve performance. Return a non-NULL duk_harray + * pointer when all fast path criteria are met, NULL otherwise. + */ +DUK_LOCAL duk_harray *duk__arraypart_fastpath_this(duk_hthread *thr) { + duk_tval *tv; + duk_hobject *h; + duk_uint_t flags_mask, flags_bits, flags_value; + + DUK_ASSERT(thr->valstack_bottom > thr->valstack); /* because call in progress */ + tv = DUK_GET_THIS_TVAL_PTR(thr); + + /* Fast path requires that 'this' is a duk_harray. Read only arrays + * (ROM backed) are also rejected for simplicity. + */ + if (!DUK_TVAL_IS_OBJECT(tv)) { + DUK_DD(DUK_DDPRINT("reject array fast path: not an object")); + return NULL; + } + h = DUK_TVAL_GET_OBJECT(tv); + DUK_ASSERT(h != NULL); + flags_mask = DUK_HOBJECT_FLAG_ARRAY_PART | \ + DUK_HOBJECT_FLAG_EXOTIC_ARRAY | \ + DUK_HEAPHDR_FLAG_READONLY; + flags_bits = DUK_HOBJECT_FLAG_ARRAY_PART | \ + DUK_HOBJECT_FLAG_EXOTIC_ARRAY; + flags_value = DUK_HEAPHDR_GET_FLAGS_RAW((duk_heaphdr *) h); + if ((flags_value & flags_mask) != flags_bits) { + DUK_DD(DUK_DDPRINT("reject array fast path: object flag check failed")); + return NULL; + } + + /* In some cases a duk_harray's 'length' may be larger than the + * current array part allocation. Avoid the fast path in these + * cases, so that all fast path code can safely assume that all + * items in the range [0,length[ are backed by the current array + * part allocation. + */ + if (((duk_harray *) h)->length > DUK_HOBJECT_GET_ASIZE(h)) { + DUK_DD(DUK_DDPRINT("reject array fast path: length > array part size")); + return NULL; + } + + /* Guarantees for fast path. */ + DUK_ASSERT(h != NULL); + DUK_ASSERT(DUK_HOBJECT_GET_ASIZE(h) == 0 || DUK_HOBJECT_A_GET_BASE(thr->heap, h) != NULL); + DUK_ASSERT(((duk_harray *) h)->length <= DUK_HOBJECT_GET_ASIZE(h)); + + DUK_DD(DUK_DDPRINT("array fast path allowed for: %!O", (duk_heaphdr *) h)); + return (duk_harray *) h; +} +#endif /* DUK_USE_ARRAY_FASTPATH */ + +/* + * Constructor + */ + +DUK_INTERNAL duk_ret_t duk_bi_array_constructor(duk_hthread *thr) { + duk_idx_t nargs; + duk_harray *a; + duk_double_t d; + duk_uint32_t len; + duk_uint32_t len_prealloc; + + nargs = duk_get_top(thr); + + if (nargs == 1 && duk_is_number(thr, 0)) { + /* XXX: expensive check (also shared elsewhere - so add a shared internal API call?) */ + d = duk_get_number(thr, 0); + len = duk_to_uint32(thr, 0); + if (!duk_double_equals((duk_double_t) len, d)) { + DUK_DCERROR_RANGE_INVALID_LENGTH(thr); + } + + /* For small lengths create a dense preallocated array. + * For large arrays preallocate an initial part. + */ + len_prealloc = len < 64 ? len : 64; + a = duk_push_harray_with_size(thr, len_prealloc); + DUK_ASSERT(a != NULL); + DUK_ASSERT(!duk_is_bare_object(thr, -1)); + a->length = len; + return 1; + } + + duk_pack(thr, nargs); + return 1; +} + +/* + * isArray() + */ + +DUK_INTERNAL duk_ret_t duk_bi_array_constructor_is_array(duk_hthread *thr) { + DUK_ASSERT_TOP(thr, 1); + duk_push_boolean(thr, duk_js_isarray(DUK_GET_TVAL_POSIDX(thr, 0))); + return 1; +} + +/* + * toString() + */ + +DUK_INTERNAL duk_ret_t duk_bi_array_prototype_to_string(duk_hthread *thr) { + (void) duk_push_this_coercible_to_object(thr); + duk_get_prop_stridx_short(thr, -1, DUK_STRIDX_JOIN); + + /* [ ... this func ] */ + if (!duk_is_callable(thr, -1)) { + /* Fall back to the initial (original) Object.toString(). We don't + * currently have pointers to the built-in functions, only the top + * level global objects (like "Array") so this is now done in a bit + * of a hacky manner. It would be cleaner to push the (original) + * function and use duk_call_method(). + */ + + /* XXX: 'this' will be ToObject() coerced twice, which is incorrect + * but should have no visible side effects. + */ + DUK_DDD(DUK_DDDPRINT("this.join is not callable, fall back to (original) Object.toString")); + duk_set_top(thr, 0); + return duk_bi_object_prototype_to_string(thr); /* has access to 'this' binding */ + } + + /* [ ... this func ] */ + + duk_insert(thr, -2); + + /* [ ... func this ] */ + + DUK_DDD(DUK_DDDPRINT("calling: func=%!iT, this=%!iT", + (duk_tval *) duk_get_tval(thr, -2), + (duk_tval *) duk_get_tval(thr, -1))); + duk_call_method(thr, 0); + + return 1; +} + +/* + * concat() + */ + +DUK_INTERNAL duk_ret_t duk_bi_array_prototype_concat(duk_hthread *thr) { + duk_idx_t i, n; + duk_uint32_t j, idx, len; + duk_hobject *h; + duk_size_t tmp_len; + + /* XXX: In ES2015 Array .length can be up to 2^53-1. The current + * implementation is limited to 2^32-1. + */ + + /* XXX: Fast path for array 'this' and array element. */ + + /* XXX: The insert here is a bit expensive if there are a lot of items. + * It could also be special cased in the outermost for loop quite easily + * (as the element is dup()'d anyway). + */ + + (void) duk_push_this_coercible_to_object(thr); + duk_insert(thr, 0); + n = duk_get_top(thr); + duk_push_array(thr); /* -> [ ToObject(this) item1 ... itemN arr ] */ + + /* NOTE: The Array special behaviors are NOT invoked by duk_xdef_prop_index() + * (which differs from the official algorithm). If no error is thrown, this + * doesn't matter as the length is updated at the end. However, if an error + * is thrown, the length will be unset. That shouldn't matter because the + * caller won't get a reference to the intermediate value. + */ + + idx = 0; + for (i = 0; i < n; i++) { + duk_bool_t spreadable; + duk_bool_t need_has_check; + + DUK_ASSERT_TOP(thr, n + 1); + + /* [ ToObject(this) item1 ... itemN arr ] */ + + h = duk_get_hobject(thr, i); + + if (h == NULL) { + spreadable = 0; + } else { +#if defined(DUK_USE_SYMBOL_BUILTIN) + duk_get_prop_stridx(thr, i, DUK_STRIDX_WELLKNOWN_SYMBOL_IS_CONCAT_SPREADABLE); + if (duk_is_undefined(thr, -1)) { + spreadable = duk_js_isarray_hobject(h); + } else { + spreadable = duk_to_boolean(thr, -1); + } + duk_pop_nodecref_unsafe(thr); +#else + spreadable = duk_js_isarray_hobject(h); +#endif + } + + if (!spreadable) { + duk_dup(thr, i); + duk_xdef_prop_index_wec(thr, -2, idx); + idx++; + if (DUK_UNLIKELY(idx == 0U)) { + /* Index after update is 0, and index written + * was 0xffffffffUL which is no longer a valid + * array index. + */ + goto fail_wrap; + } + continue; + } + + DUK_ASSERT(duk_is_object(thr, i)); + need_has_check = (DUK_HOBJECT_IS_PROXY(h) != 0); /* Always 0 w/o Proxy support. */ + + /* [ ToObject(this) item1 ... itemN arr ] */ + + tmp_len = duk_get_length(thr, i); + len = (duk_uint32_t) tmp_len; + if (DUK_UNLIKELY(tmp_len != (duk_size_t) len)) { + goto fail_wrap; + } + if (DUK_UNLIKELY(idx + len < idx)) { + /* Result length must be at most 0xffffffffUL to be + * a valid 32-bit array index. + */ + goto fail_wrap; + } + for (j = 0; j < len; j++) { + /* For a Proxy element, an explicit 'has' check is + * needed to allow the Proxy to present gaps. + */ + if (need_has_check) { + if (duk_has_prop_index(thr, i, j)) { + duk_get_prop_index(thr, i, j); + duk_xdef_prop_index_wec(thr, -2, idx); + } + } else { + if (duk_get_prop_index(thr, i, j)) { + duk_xdef_prop_index_wec(thr, -2, idx); + } else { + duk_pop_undefined(thr); + } + } + idx++; + DUK_ASSERT(idx != 0U); /* Wrap check above. */ + } + } + + /* ES5.1 has a specification "bug" in that nonexistent trailing + * elements don't affect the result .length. Test262 and other + * engines disagree, and the specification bug was fixed in ES2015 + * (see NOTE 1 in https://www.ecma-international.org/ecma-262/6.0/#sec-array.prototype.concat). + */ + duk_push_uarridx(thr, idx); + duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_LENGTH, DUK_PROPDESC_FLAGS_W); + + DUK_ASSERT_TOP(thr, n + 1); + return 1; + + fail_wrap: + DUK_ERROR_RANGE_INVALID_LENGTH(thr); + DUK_WO_NORETURN(return 0;); +} + +/* + * join(), toLocaleString() + * + * Note: checking valstack is necessary, but only in the per-element loop. + * + * Note: the trivial approach of pushing all the elements on the value stack + * and then calling duk_join() fails when the array contains a large number + * of elements. This problem can't be offloaded to duk_join() because the + * elements to join must be handled here and have special handling. Current + * approach is to do intermediate joins with very large number of elements. + * There is no fancy handling; the prefix gets re-joined multiple times. + */ + +DUK_INTERNAL duk_ret_t duk_bi_array_prototype_join_shared(duk_hthread *thr) { + duk_uint32_t len, count; + duk_uint32_t idx; + duk_small_int_t to_locale_string = duk_get_current_magic(thr); + duk_idx_t valstack_required; + + /* For join(), nargs is 1. For toLocaleString(), nargs is 0 and + * setting the top essentially pushes an undefined to the stack, + * thus defaulting to a comma separator. + */ + duk_set_top(thr, 1); + if (duk_is_undefined(thr, 0)) { + duk_pop_undefined(thr); + duk_push_hstring_stridx(thr, DUK_STRIDX_COMMA); + } else { + duk_to_string(thr, 0); + } + + len = duk__push_this_obj_len_u32(thr); + + /* [ sep ToObject(this) len ] */ + + DUK_DDD(DUK_DDDPRINT("sep=%!T, this=%!T, len=%lu", + (duk_tval *) duk_get_tval(thr, 0), + (duk_tval *) duk_get_tval(thr, 1), + (unsigned long) len)); + + /* The extra (+4) is tight. */ + valstack_required = (duk_idx_t) ((len >= DUK__ARRAY_MID_JOIN_LIMIT ? + DUK__ARRAY_MID_JOIN_LIMIT : len) + 4); + duk_require_stack(thr, valstack_required); + + duk_dup_0(thr); + + /* [ sep ToObject(this) len sep ] */ + + count = 0; + idx = 0; + for (;;) { + DUK_DDD(DUK_DDDPRINT("join idx=%ld", (long) idx)); + if (count >= DUK__ARRAY_MID_JOIN_LIMIT || /* intermediate join to avoid valstack overflow */ + idx >= len) { /* end of loop (careful with len==0) */ + /* [ sep ToObject(this) len sep str0 ... str(count-1) ] */ + DUK_DDD(DUK_DDDPRINT("mid/final join, count=%ld, idx=%ld, len=%ld", + (long) count, (long) idx, (long) len)); + duk_join(thr, (duk_idx_t) count); /* -> [ sep ToObject(this) len str ] */ + duk_dup_0(thr); /* -> [ sep ToObject(this) len str sep ] */ + duk_insert(thr, -2); /* -> [ sep ToObject(this) len sep str ] */ + count = 1; + } + if (idx >= len) { + /* if true, the stack already contains the final result */ + break; + } + + duk_get_prop_index(thr, 1, (duk_uarridx_t) idx); + if (duk_is_null_or_undefined(thr, -1)) { + duk_pop_nodecref_unsafe(thr); + duk_push_hstring_empty(thr); + } else { + if (to_locale_string) { + duk_to_object(thr, -1); + duk_get_prop_stridx_short(thr, -1, DUK_STRIDX_TO_LOCALE_STRING); + duk_insert(thr, -2); /* -> [ ... toLocaleString ToObject(val) ] */ + duk_call_method(thr, 0); + } + duk_to_string(thr, -1); + } + + count++; + idx++; + } + + /* [ sep ToObject(this) len sep result ] */ + + return 1; +} + +/* + * pop(), push() + */ + +#if defined(DUK_USE_ARRAY_FASTPATH) +DUK_LOCAL duk_ret_t duk__array_pop_fastpath(duk_hthread *thr, duk_harray *h_arr) { + duk_tval *tv_arraypart; + duk_tval *tv_val; + duk_uint32_t len; + + tv_arraypart = DUK_HOBJECT_A_GET_BASE(thr->heap, (duk_hobject *) h_arr); + len = h_arr->length; + if (len <= 0) { + /* nop, return undefined */ + return 0; + } + + len--; + h_arr->length = len; + + /* Fast path doesn't check for an index property inherited from + * Array.prototype. This is quite often acceptable; if not, + * disable fast path. + */ + DUK_ASSERT_VS_SPACE(thr); + tv_val = tv_arraypart + len; + if (DUK_TVAL_IS_UNUSED(tv_val)) { + /* No net refcount change. Value stack already has + * 'undefined' based on value stack init policy. + */ + DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(thr->valstack_top)); + DUK_ASSERT(DUK_TVAL_IS_UNUSED(tv_val)); + } else { + /* No net refcount change. */ + DUK_TVAL_SET_TVAL(thr->valstack_top, tv_val); + DUK_TVAL_SET_UNUSED(tv_val); + } + thr->valstack_top++; + + /* XXX: there's no shrink check in the fast path now */ + + return 1; +} +#endif /* DUK_USE_ARRAY_FASTPATH */ + +DUK_INTERNAL duk_ret_t duk_bi_array_prototype_pop(duk_hthread *thr) { + duk_uint32_t len; + duk_uint32_t idx; +#if defined(DUK_USE_ARRAY_FASTPATH) + duk_harray *h_arr; +#endif + + DUK_ASSERT_TOP(thr, 0); + +#if defined(DUK_USE_ARRAY_FASTPATH) + h_arr = duk__arraypart_fastpath_this(thr); + if (h_arr) { + return duk__array_pop_fastpath(thr, h_arr); + } +#endif + + /* XXX: Merge fastpath check into a related call (push this, coerce length, etc)? */ + + len = duk__push_this_obj_len_u32(thr); + if (len == 0) { + duk_push_int(thr, 0); + duk_put_prop_stridx_short(thr, 0, DUK_STRIDX_LENGTH); + return 0; + } + idx = len - 1; + + duk_get_prop_index(thr, 0, (duk_uarridx_t) idx); + duk_del_prop_index(thr, 0, (duk_uarridx_t) idx); + duk_push_u32(thr, idx); + duk_put_prop_stridx_short(thr, 0, DUK_STRIDX_LENGTH); + return 1; +} + +#if defined(DUK_USE_ARRAY_FASTPATH) +DUK_LOCAL duk_ret_t duk__array_push_fastpath(duk_hthread *thr, duk_harray *h_arr) { + duk_tval *tv_arraypart; + duk_tval *tv_src; + duk_tval *tv_dst; + duk_uint32_t len; + duk_idx_t i, n; + + len = h_arr->length; + tv_arraypart = DUK_HOBJECT_A_GET_BASE(thr->heap, (duk_hobject *) h_arr); + + n = (duk_idx_t) (thr->valstack_top - thr->valstack_bottom); + DUK_ASSERT(n >= 0); + DUK_ASSERT((duk_uint32_t) n <= DUK_UINT32_MAX); + if (DUK_UNLIKELY(len + (duk_uint32_t) n < len)) { + DUK_D(DUK_DPRINT("Array.prototype.push() would go beyond 32-bit length, throw")); + DUK_DCERROR_RANGE_INVALID_LENGTH(thr); /* != 0 return value returned as is by caller */ + } + if (len + (duk_uint32_t) n > DUK_HOBJECT_GET_ASIZE((duk_hobject *) h_arr)) { + /* Array part would need to be extended. Rely on slow path + * for now. + * + * XXX: Rework hobject code a bit and add extend support. + */ + return 0; + } + + tv_src = thr->valstack_bottom; + tv_dst = tv_arraypart + len; + for (i = 0; i < n; i++) { + /* No net refcount change; reset value stack values to + * undefined to satisfy value stack init policy. + */ + DUK_TVAL_SET_TVAL(tv_dst, tv_src); + DUK_TVAL_SET_UNDEFINED(tv_src); + tv_src++; + tv_dst++; + } + thr->valstack_top = thr->valstack_bottom; + len += (duk_uint32_t) n; + h_arr->length = len; + + DUK_ASSERT((duk_uint_t) len == len); + duk_push_uint(thr, (duk_uint_t) len); + return 1; +} +#endif /* DUK_USE_ARRAY_FASTPATH */ + +DUK_INTERNAL duk_ret_t duk_bi_array_prototype_push(duk_hthread *thr) { + /* Note: 'this' is not necessarily an Array object. The push() + * algorithm is supposed to work for other kinds of objects too, + * so the algorithm has e.g. an explicit update for the 'length' + * property which is normally "magical" in arrays. + */ + + duk_uint32_t len; + duk_idx_t i, n; +#if defined(DUK_USE_ARRAY_FASTPATH) + duk_harray *h_arr; +#endif + +#if defined(DUK_USE_ARRAY_FASTPATH) + h_arr = duk__arraypart_fastpath_this(thr); + if (h_arr) { + duk_ret_t rc; + rc = duk__array_push_fastpath(thr, h_arr); + if (rc != 0) { + return rc; + } + DUK_DD(DUK_DDPRINT("array push() fast path exited, resize case")); + } +#endif + + n = duk_get_top(thr); + len = duk__push_this_obj_len_u32(thr); + + /* [ arg1 ... argN obj length ] */ + + /* Technically Array.prototype.push() can create an Array with length + * longer than 2^32-1, i.e. outside the 32-bit range. The final length + * is *not* wrapped to 32 bits in the specification. + * + * This implementation tracks length with a uint32 because it's much + * more practical. + * + * See: test-bi-array-push-maxlen.js. + */ + + if (len + (duk_uint32_t) n < len) { + DUK_D(DUK_DPRINT("Array.prototype.push() would go beyond 32-bit length, throw")); + DUK_DCERROR_RANGE_INVALID_LENGTH(thr); + } + + for (i = 0; i < n; i++) { + duk_dup(thr, i); + duk_put_prop_index(thr, -3, (duk_uarridx_t) (len + (duk_uint32_t) i)); + } + len += (duk_uint32_t) n; + + duk_push_u32(thr, len); + duk_dup_top(thr); + duk_put_prop_stridx_short(thr, -4, DUK_STRIDX_LENGTH); + + /* [ arg1 ... argN obj length new_length ] */ + return 1; +} + +/* + * sort() + * + * Currently qsort with random pivot. This is now really, really slow, + * because there is no fast path for array parts. + * + * Signed indices are used because qsort() leaves and degenerate cases + * may use a negative offset. + */ + +DUK_LOCAL duk_small_int_t duk__array_sort_compare(duk_hthread *thr, duk_int_t idx1, duk_int_t idx2) { + duk_bool_t have1, have2; + duk_bool_t undef1, undef2; + duk_small_int_t ret; + duk_idx_t idx_obj = 1; /* fixed offsets in valstack */ + duk_idx_t idx_fn = 0; + duk_hstring *h1, *h2; + + /* Fast exit if indices are identical. This is valid for a non-existent property, + * for an undefined value, and almost always for ToString() coerced comparison of + * arbitrary values (corner cases where this is not the case include e.g. a an + * object with varying ToString() coercion). + * + * The specification does not prohibit "caching" of values read from the array, so + * assuming equality for comparing an index with itself falls into the category of + * "caching". + * + * Also, compareFn may be inconsistent, so skipping a call to compareFn here may + * have an effect on the final result. The specification does not require any + * specific behavior for inconsistent compare functions, so again, this fast path + * is OK. + */ + + if (idx1 == idx2) { + DUK_DDD(DUK_DDDPRINT("duk__array_sort_compare: idx1=%ld, idx2=%ld -> indices identical, quick exit", + (long) idx1, (long) idx2)); + return 0; + } + + have1 = duk_get_prop_index(thr, idx_obj, (duk_uarridx_t) idx1); + have2 = duk_get_prop_index(thr, idx_obj, (duk_uarridx_t) idx2); + + DUK_DDD(DUK_DDDPRINT("duk__array_sort_compare: idx1=%ld, idx2=%ld, have1=%ld, have2=%ld, val1=%!T, val2=%!T", + (long) idx1, (long) idx2, (long) have1, (long) have2, + (duk_tval *) duk_get_tval(thr, -2), (duk_tval *) duk_get_tval(thr, -1))); + + if (have1) { + if (have2) { + ; + } else { + ret = -1; + goto pop_ret; + } + } else { + if (have2) { + ret = 1; + goto pop_ret; + } else { + ret = 0; + goto pop_ret; + } + } + + undef1 = duk_is_undefined(thr, -2); + undef2 = duk_is_undefined(thr, -1); + if (undef1) { + if (undef2) { + ret = 0; + goto pop_ret; + } else { + ret = 1; + goto pop_ret; + } + } else { + if (undef2) { + ret = -1; + goto pop_ret; + } else { + ; + } + } + + if (!duk_is_undefined(thr, idx_fn)) { + duk_double_t d; + + /* No need to check callable; duk_call() will do that. */ + duk_dup(thr, idx_fn); /* -> [ ... x y fn ] */ + duk_insert(thr, -3); /* -> [ ... fn x y ] */ + duk_call(thr, 2); /* -> [ ... res ] */ + + /* ES5 is a bit vague about what to do if the return value is + * not a number. ES2015 provides a concrete description: + * http://www.ecma-international.org/ecma-262/6.0/#sec-sortcompare. + */ + + d = duk_to_number_m1(thr); + if (d < 0.0) { + ret = -1; + } else if (d > 0.0) { + ret = 1; + } else { + /* Because NaN compares to false, NaN is handled here + * without an explicit check above. + */ + ret = 0; + } + + duk_pop_nodecref_unsafe(thr); + DUK_DDD(DUK_DDDPRINT("-> result %ld (from comparefn, after coercion)", (long) ret)); + return ret; + } + + /* string compare is the default (a bit oddly) */ + + /* XXX: any special handling for plain array; causes repeated coercion now? */ + h1 = duk_to_hstring(thr, -2); + h2 = duk_to_hstring_m1(thr); + DUK_ASSERT(h1 != NULL); + DUK_ASSERT(h2 != NULL); + + ret = duk_js_string_compare(h1, h2); /* retval is directly usable */ + goto pop_ret; + + pop_ret: + duk_pop_2_unsafe(thr); + DUK_DDD(DUK_DDDPRINT("-> result %ld", (long) ret)); + return ret; +} + +DUK_LOCAL void duk__array_sort_swap(duk_hthread *thr, duk_int_t l, duk_int_t r) { + duk_bool_t have_l, have_r; + duk_idx_t idx_obj = 1; /* fixed offset in valstack */ + + if (l == r) { + return; + } + + /* swap elements; deal with non-existent elements correctly */ + have_l = duk_get_prop_index(thr, idx_obj, (duk_uarridx_t) l); + have_r = duk_get_prop_index(thr, idx_obj, (duk_uarridx_t) r); + + if (have_r) { + /* right exists, [[Put]] regardless whether or not left exists */ + duk_put_prop_index(thr, idx_obj, (duk_uarridx_t) l); + } else { + duk_del_prop_index(thr, idx_obj, (duk_uarridx_t) l); + duk_pop_undefined(thr); + } + + if (have_l) { + duk_put_prop_index(thr, idx_obj, (duk_uarridx_t) r); + } else { + duk_del_prop_index(thr, idx_obj, (duk_uarridx_t) r); + duk_pop_undefined(thr); + } +} + +#if defined(DUK_USE_DEBUG_LEVEL) && (DUK_USE_DEBUG_LEVEL >= 2) +/* Debug print which visualizes the qsort partitioning process. */ +DUK_LOCAL void duk__debuglog_qsort_state(duk_hthread *thr, duk_int_t lo, duk_int_t hi, duk_int_t pivot) { + char buf[4096]; + char *ptr = buf; + duk_int_t i, n; + n = (duk_int_t) duk_get_length(thr, 1); + if (n > 4000) { + n = 4000; + } + *ptr++ = '['; + for (i = 0; i < n; i++) { + if (i == pivot) { + *ptr++ = '|'; + } else if (i == lo) { + *ptr++ = '<'; + } else if (i == hi) { + *ptr++ = '>'; + } else if (i >= lo && i <= hi) { + *ptr++ = '-'; + } else { + *ptr++ = ' '; + } + } + *ptr++ = ']'; + *ptr++ = '\0'; + + DUK_DDD(DUK_DDDPRINT("%s (lo=%ld, hi=%ld, pivot=%ld)", + (const char *) buf, (long) lo, (long) hi, (long) pivot)); +} +#endif + +DUK_LOCAL void duk__array_qsort(duk_hthread *thr, duk_int_t lo, duk_int_t hi) { + duk_int_t p, l, r; + + /* The lo/hi indices may be crossed and hi < 0 is possible at entry. */ + + DUK_DDD(DUK_DDDPRINT("duk__array_qsort: lo=%ld, hi=%ld, obj=%!T", + (long) lo, (long) hi, (duk_tval *) duk_get_tval(thr, 1))); + + DUK_ASSERT_TOP(thr, 3); + + /* In some cases it may be that lo > hi, or hi < 0; these + * degenerate cases happen e.g. for empty arrays, and in + * recursion leaves. + */ + + /* trivial cases */ + if (hi - lo < 1) { + DUK_DDD(DUK_DDDPRINT("degenerate case, return immediately")); + return; + } + DUK_ASSERT(hi > lo); + DUK_ASSERT(hi - lo + 1 >= 2); + + /* randomized pivot selection */ + p = lo + (duk_int_t) (DUK_UTIL_GET_RANDOM_DOUBLE(thr) * (duk_double_t) (hi - lo + 1)); + DUK_ASSERT(p >= lo && p <= hi); + DUK_DDD(DUK_DDDPRINT("lo=%ld, hi=%ld, chose pivot p=%ld", (long) lo, (long) hi, (long) p)); + + /* move pivot out of the way */ + duk__array_sort_swap(thr, p, lo); + p = lo; + DUK_DDD(DUK_DDDPRINT("pivot moved out of the way: %!T", (duk_tval *) duk_get_tval(thr, 1))); + + l = lo + 1; + r = hi; + for (;;) { + /* find elements to swap */ + for (;;) { + DUK_DDD(DUK_DDDPRINT("left scan: l=%ld, r=%ld, p=%ld", + (long) l, (long) r, (long) p)); + if (l >= hi) { + break; + } + if (duk__array_sort_compare(thr, l, p) >= 0) { /* !(l < p) */ + break; + } + l++; + } + for (;;) { + DUK_DDD(DUK_DDDPRINT("right scan: l=%ld, r=%ld, p=%ld", + (long) l, (long) r, (long) p)); + if (r <= lo) { + break; + } + if (duk__array_sort_compare(thr, p, r) >= 0) { /* !(p < r) */ + break; + } + r--; + } + if (l >= r) { + goto done; + } + DUK_ASSERT(l < r); + + DUK_DDD(DUK_DDDPRINT("swap %ld and %ld", (long) l, (long) r)); + + duk__array_sort_swap(thr, l, r); + + DUK_DDD(DUK_DDDPRINT("after swap: %!T", (duk_tval *) duk_get_tval(thr, 1))); + l++; + r--; + } + done: + /* Note that 'l' and 'r' may cross, i.e. r < l */ + DUK_ASSERT(l >= lo && l <= hi); + DUK_ASSERT(r >= lo && r <= hi); + + /* XXX: there's no explicit recursion bound here now. For the average + * qsort recursion depth O(log n) that's not really necessary: e.g. for + * 2**32 recursion depth would be about 32 which is OK. However, qsort + * worst case recursion depth is O(n) which may be a problem. + */ + + /* move pivot to its final place */ + DUK_DDD(DUK_DDDPRINT("before final pivot swap: %!T", (duk_tval *) duk_get_tval(thr, 1))); + duk__array_sort_swap(thr, lo, r); + +#if defined(DUK_USE_DEBUG_LEVEL) && (DUK_USE_DEBUG_LEVEL >= 2) + duk__debuglog_qsort_state(thr, lo, hi, r); +#endif + + DUK_DDD(DUK_DDDPRINT("recurse: pivot=%ld, obj=%!T", (long) r, (duk_tval *) duk_get_tval(thr, 1))); + duk__array_qsort(thr, lo, r - 1); + duk__array_qsort(thr, r + 1, hi); +} + +DUK_INTERNAL duk_ret_t duk_bi_array_prototype_sort(duk_hthread *thr) { + duk_uint32_t len; + + /* XXX: len >= 0x80000000 won't work below because a signed type + * is needed by qsort. + */ + len = duk__push_this_obj_len_u32_limited(thr); + + /* stack[0] = compareFn + * stack[1] = ToObject(this) + * stack[2] = ToUint32(length) + */ + + if (len > 0) { + /* avoid degenerate cases, so that (len - 1) won't underflow */ + duk__array_qsort(thr, (duk_int_t) 0, (duk_int_t) (len - 1)); + } + + DUK_ASSERT_TOP(thr, 3); + duk_pop_nodecref_unsafe(thr); + return 1; /* return ToObject(this) */ +} + +/* + * splice() + */ + +/* XXX: this compiles to over 500 bytes now, even without special handling + * for an array part. Uses signed ints so does not handle full array range correctly. + */ + +/* XXX: can shift() / unshift() use the same helper? + * shift() is (close to?) <--> splice(0, 1) + * unshift is (close to?) <--> splice(0, 0, [items])? + */ + +DUK_INTERNAL duk_ret_t duk_bi_array_prototype_splice(duk_hthread *thr) { + duk_idx_t nargs; + duk_uint32_t len_u32; + duk_int_t len; + duk_bool_t have_delcount; + duk_int_t item_count; + duk_int_t act_start; + duk_int_t del_count; + duk_int_t i, n; + + DUK_UNREF(have_delcount); + + nargs = duk_get_top(thr); + if (nargs < 2) { + duk_set_top(thr, 2); + nargs = 2; + have_delcount = 0; + } else { + have_delcount = 1; + } + + /* XXX: len >= 0x80000000 won't work below because we need to be + * able to represent -len. + */ + len_u32 = duk__push_this_obj_len_u32_limited(thr); + len = (duk_int_t) len_u32; + DUK_ASSERT(len >= 0); + + act_start = duk_to_int_clamped(thr, 0, -len, len); + if (act_start < 0) { + act_start = len + act_start; + } + DUK_ASSERT(act_start >= 0 && act_start <= len); + +#if defined(DUK_USE_NONSTD_ARRAY_SPLICE_DELCOUNT) + if (have_delcount) { +#endif + del_count = duk_to_int_clamped(thr, 1, 0, len - act_start); +#if defined(DUK_USE_NONSTD_ARRAY_SPLICE_DELCOUNT) + } else { + /* E5.1 standard behavior when deleteCount is not given would be + * to treat it just like if 'undefined' was given, which coerces + * ultimately to 0. Real world behavior is to splice to the end + * of array, see test-bi-array-proto-splice-no-delcount.js. + */ + del_count = len - act_start; + } +#endif + + DUK_ASSERT(nargs >= 2); + item_count = (duk_int_t) (nargs - 2); + + DUK_ASSERT(del_count >= 0 && del_count <= len - act_start); + DUK_ASSERT(del_count + act_start <= len); + + /* For now, restrict result array into 32-bit length range. */ + if (((duk_double_t) len) - ((duk_double_t) del_count) + ((duk_double_t) item_count) > (duk_double_t) DUK_UINT32_MAX) { + DUK_D(DUK_DPRINT("Array.prototype.splice() would go beyond 32-bit length, throw")); + DUK_DCERROR_RANGE_INVALID_LENGTH(thr); + } + + duk_push_array(thr); + + /* stack[0] = start + * stack[1] = deleteCount + * stack[2...nargs-1] = items + * stack[nargs] = ToObject(this) -3 + * stack[nargs+1] = ToUint32(length) -2 + * stack[nargs+2] = result array -1 + */ + + DUK_ASSERT_TOP(thr, nargs + 3); + + /* Step 9: copy elements-to-be-deleted into the result array */ + + for (i = 0; i < del_count; i++) { + if (duk_get_prop_index(thr, -3, (duk_uarridx_t) (act_start + i))) { + duk_xdef_prop_index_wec(thr, -2, (duk_uarridx_t) i); /* throw flag irrelevant (false in std alg) */ + } else { + duk_pop_undefined(thr); + } + } + duk_push_u32(thr, (duk_uint32_t) del_count); + duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_LENGTH, DUK_PROPDESC_FLAGS_W); + + /* Steps 12 and 13: reorganize elements to make room for itemCount elements */ + + if (item_count < del_count) { + /* [ A B C D E F G H ] rel_index = 2, del_count 3, item count 1 + * -> [ A B F G H ] (conceptual intermediate step) + * -> [ A B . F G H ] (placeholder marked) + * [ A B C F G H ] (actual result at this point, C will be replaced) + */ + + DUK_ASSERT_TOP(thr, nargs + 3); + + n = len - del_count; + for (i = act_start; i < n; i++) { + if (duk_get_prop_index(thr, -3, (duk_uarridx_t) (i + del_count))) { + duk_put_prop_index(thr, -4, (duk_uarridx_t) (i + item_count)); + } else { + duk_pop_undefined(thr); + duk_del_prop_index(thr, -3, (duk_uarridx_t) (i + item_count)); + } + } + + DUK_ASSERT_TOP(thr, nargs + 3); + + /* loop iterator init and limit changed from standard algorithm */ + n = len - del_count + item_count; + for (i = len - 1; i >= n; i--) { + duk_del_prop_index(thr, -3, (duk_uarridx_t) i); + } + + DUK_ASSERT_TOP(thr, nargs + 3); + } else if (item_count > del_count) { + /* [ A B C D E F G H ] rel_index = 2, del_count 3, item count 4 + * -> [ A B F G H ] (conceptual intermediate step) + * -> [ A B . . . . F G H ] (placeholder marked) + * [ A B C D E F F G H ] (actual result at this point) + */ + + DUK_ASSERT_TOP(thr, nargs + 3); + + /* loop iterator init and limit changed from standard algorithm */ + for (i = len - del_count - 1; i >= act_start; i--) { + if (duk_get_prop_index(thr, -3, (duk_uarridx_t) (i + del_count))) { + duk_put_prop_index(thr, -4, (duk_uarridx_t) (i + item_count)); + } else { + duk_pop_undefined(thr); + duk_del_prop_index(thr, -3, (duk_uarridx_t) (i + item_count)); + } + } + + DUK_ASSERT_TOP(thr, nargs + 3); + } else { + /* [ A B C D E F G H ] rel_index = 2, del_count 3, item count 3 + * -> [ A B F G H ] (conceptual intermediate step) + * -> [ A B . . . F G H ] (placeholder marked) + * [ A B C D E F G H ] (actual result at this point) + */ + } + DUK_ASSERT_TOP(thr, nargs + 3); + + /* Step 15: insert itemCount elements into the hole made above */ + + for (i = 0; i < item_count; i++) { + duk_dup(thr, i + 2); /* args start at index 2 */ + duk_put_prop_index(thr, -4, (duk_uarridx_t) (act_start + i)); + } + + /* Step 16: update length; note that the final length may be above 32 bit range + * (but we checked above that this isn't the case here) + */ + + duk_push_u32(thr, (duk_uint32_t) (len - del_count + item_count)); + duk_put_prop_stridx_short(thr, -4, DUK_STRIDX_LENGTH); + + /* result array is already at the top of stack */ + DUK_ASSERT_TOP(thr, nargs + 3); + return 1; +} + +/* + * reverse() + */ + +DUK_INTERNAL duk_ret_t duk_bi_array_prototype_reverse(duk_hthread *thr) { + duk_uint32_t len; + duk_uint32_t middle; + duk_uint32_t lower, upper; + duk_bool_t have_lower, have_upper; + + len = duk__push_this_obj_len_u32(thr); + middle = len / 2; + + /* If len <= 1, middle will be 0 and for-loop bails out + * immediately (0 < 0 -> false). + */ + + for (lower = 0; lower < middle; lower++) { + DUK_ASSERT(len >= 2); + DUK_ASSERT_TOP(thr, 2); + + DUK_ASSERT(len >= lower + 1); + upper = len - lower - 1; + + have_lower = duk_get_prop_index(thr, -2, (duk_uarridx_t) lower); + have_upper = duk_get_prop_index(thr, -3, (duk_uarridx_t) upper); + + /* [ ToObject(this) ToUint32(length) lowerValue upperValue ] */ + + if (have_upper) { + duk_put_prop_index(thr, -4, (duk_uarridx_t) lower); + } else { + duk_del_prop_index(thr, -4, (duk_uarridx_t) lower); + duk_pop_undefined(thr); + } + + if (have_lower) { + duk_put_prop_index(thr, -3, (duk_uarridx_t) upper); + } else { + duk_del_prop_index(thr, -3, (duk_uarridx_t) upper); + duk_pop_undefined(thr); + } + + DUK_ASSERT_TOP(thr, 2); + } + + DUK_ASSERT_TOP(thr, 2); + duk_pop_unsafe(thr); /* -> [ ToObject(this) ] */ + return 1; +} + +/* + * slice() + */ + +DUK_INTERNAL duk_ret_t duk_bi_array_prototype_slice(duk_hthread *thr) { + duk_uint32_t len_u32; + duk_int_t len; + duk_int_t start, end; + duk_int_t i; + duk_uarridx_t idx; + duk_uint32_t res_length = 0; + + /* XXX: len >= 0x80000000 won't work below because we need to be + * able to represent -len. + */ + len_u32 = duk__push_this_obj_len_u32_limited(thr); + len = (duk_int_t) len_u32; + DUK_ASSERT(len >= 0); + + duk_push_array(thr); + + /* stack[0] = start + * stack[1] = end + * stack[2] = ToObject(this) + * stack[3] = ToUint32(length) + * stack[4] = result array + */ + + start = duk_to_int_clamped(thr, 0, -len, len); + if (start < 0) { + start = len + start; + } + /* XXX: could duk_is_undefined() provide defaulting undefined to 'len' + * (the upper limit)? + */ + if (duk_is_undefined(thr, 1)) { + end = len; + } else { + end = duk_to_int_clamped(thr, 1, -len, len); + if (end < 0) { + end = len + end; + } + } + DUK_ASSERT(start >= 0 && start <= len); + DUK_ASSERT(end >= 0 && end <= len); + + idx = 0; + for (i = start; i < end; i++) { + DUK_ASSERT_TOP(thr, 5); + if (duk_get_prop_index(thr, 2, (duk_uarridx_t) i)) { + duk_xdef_prop_index_wec(thr, 4, idx); + res_length = idx + 1; + } else { + duk_pop_undefined(thr); + } + idx++; + DUK_ASSERT_TOP(thr, 5); + } + + duk_push_u32(thr, res_length); + duk_xdef_prop_stridx_short(thr, 4, DUK_STRIDX_LENGTH, DUK_PROPDESC_FLAGS_W); + + DUK_ASSERT_TOP(thr, 5); + return 1; +} + +/* + * shift() + */ + +DUK_INTERNAL duk_ret_t duk_bi_array_prototype_shift(duk_hthread *thr) { + duk_uint32_t len; + duk_uint32_t i; + + len = duk__push_this_obj_len_u32(thr); + if (len == 0) { + duk_push_int(thr, 0); + duk_put_prop_stridx_short(thr, 0, DUK_STRIDX_LENGTH); + return 0; + } + + duk_get_prop_index(thr, 0, 0); + + /* stack[0] = object (this) + * stack[1] = ToUint32(length) + * stack[2] = elem at index 0 (retval) + */ + + for (i = 1; i < len; i++) { + DUK_ASSERT_TOP(thr, 3); + if (duk_get_prop_index(thr, 0, (duk_uarridx_t) i)) { + /* fromPresent = true */ + duk_put_prop_index(thr, 0, (duk_uarridx_t) (i - 1)); + } else { + /* fromPresent = false */ + duk_del_prop_index(thr, 0, (duk_uarridx_t) (i - 1)); + duk_pop_undefined(thr); + } + } + duk_del_prop_index(thr, 0, (duk_uarridx_t) (len - 1)); + + duk_push_u32(thr, (duk_uint32_t) (len - 1)); + duk_put_prop_stridx_short(thr, 0, DUK_STRIDX_LENGTH); + + DUK_ASSERT_TOP(thr, 3); + return 1; +} + +/* + * unshift() + */ + +DUK_INTERNAL duk_ret_t duk_bi_array_prototype_unshift(duk_hthread *thr) { + duk_idx_t nargs; + duk_uint32_t len; + duk_uint32_t i; + + nargs = duk_get_top(thr); + len = duk__push_this_obj_len_u32(thr); + + /* stack[0...nargs-1] = unshift args (vararg) + * stack[nargs] = ToObject(this) + * stack[nargs+1] = ToUint32(length) + */ + + DUK_ASSERT_TOP(thr, nargs + 2); + + /* Note: unshift() may operate on indices above unsigned 32-bit range + * and the final length may be >= 2**32. However, we restrict the + * final result to 32-bit range for practicality. + */ + + if (len + (duk_uint32_t) nargs < len) { + DUK_D(DUK_DPRINT("Array.prototype.unshift() would go beyond 32-bit length, throw")); + DUK_DCERROR_RANGE_INVALID_LENGTH(thr); + } + + i = len; + while (i > 0) { + DUK_ASSERT_TOP(thr, nargs + 2); + i--; + /* k+argCount-1; note that may be above 32-bit range */ + + if (duk_get_prop_index(thr, -2, (duk_uarridx_t) i)) { + /* fromPresent = true */ + /* [ ... ToObject(this) ToUint32(length) val ] */ + duk_put_prop_index(thr, -3, (duk_uarridx_t) (i + (duk_uint32_t) nargs)); /* -> [ ... ToObject(this) ToUint32(length) ] */ + } else { + /* fromPresent = false */ + /* [ ... ToObject(this) ToUint32(length) val ] */ + duk_pop_undefined(thr); + duk_del_prop_index(thr, -2, (duk_uarridx_t) (i + (duk_uint32_t) nargs)); /* -> [ ... ToObject(this) ToUint32(length) ] */ + } + DUK_ASSERT_TOP(thr, nargs + 2); + } + + for (i = 0; i < (duk_uint32_t) nargs; i++) { + DUK_ASSERT_TOP(thr, nargs + 2); + duk_dup(thr, (duk_idx_t) i); /* -> [ ... ToObject(this) ToUint32(length) arg[i] ] */ + duk_put_prop_index(thr, -3, (duk_uarridx_t) i); + DUK_ASSERT_TOP(thr, nargs + 2); + } + + DUK_ASSERT_TOP(thr, nargs + 2); + duk_push_u32(thr, len + (duk_uint32_t) nargs); + duk_dup_top(thr); /* -> [ ... ToObject(this) ToUint32(length) final_len final_len ] */ + duk_put_prop_stridx_short(thr, -4, DUK_STRIDX_LENGTH); + return 1; +} + +/* + * indexOf(), lastIndexOf() + */ + +DUK_INTERNAL duk_ret_t duk_bi_array_prototype_indexof_shared(duk_hthread *thr) { + duk_idx_t nargs; + duk_int_t i, len; + duk_int_t from_idx; + duk_small_int_t idx_step = duk_get_current_magic(thr); /* idx_step is +1 for indexOf, -1 for lastIndexOf */ + + /* lastIndexOf() needs to be a vararg function because we must distinguish + * between an undefined fromIndex and a "not given" fromIndex; indexOf() is + * made vararg for symmetry although it doesn't strictly need to be. + */ + + nargs = duk_get_top(thr); + duk_set_top(thr, 2); + + /* XXX: must be able to represent -len */ + len = (duk_int_t) duk__push_this_obj_len_u32_limited(thr); + if (len == 0) { + goto not_found; + } + + /* Index clamping is a bit tricky, we must ensure that we'll only iterate + * through elements that exist and that the specific requirements from E5.1 + * Sections 15.4.4.14 and 15.4.4.15 are fulfilled; especially: + * + * - indexOf: clamp to [-len,len], negative handling -> [0,len], + * if clamped result is len, for-loop bails out immediately + * + * - lastIndexOf: clamp to [-len-1, len-1], negative handling -> [-1, len-1], + * if clamped result is -1, for-loop bails out immediately + * + * If fromIndex is not given, ToInteger(undefined) = 0, which is correct + * for indexOf() but incorrect for lastIndexOf(). Hence special handling, + * and why lastIndexOf() needs to be a vararg function. + */ + + if (nargs >= 2) { + /* indexOf: clamp fromIndex to [-len, len] + * (if fromIndex == len, for-loop terminates directly) + * + * lastIndexOf: clamp fromIndex to [-len - 1, len - 1] + * (if clamped to -len-1 -> fromIndex becomes -1, terminates for-loop directly) + */ + from_idx = duk_to_int_clamped(thr, + 1, + (idx_step > 0 ? -len : -len - 1), + (idx_step > 0 ? len : len - 1)); + if (from_idx < 0) { + /* for lastIndexOf, result may be -1 (mark immediate termination) */ + from_idx = len + from_idx; + } + } else { + /* for indexOf, ToInteger(undefined) would be 0, i.e. correct, but + * handle both indexOf and lastIndexOf specially here. + */ + if (idx_step > 0) { + from_idx = 0; + } else { + from_idx = len - 1; + } + } + + /* stack[0] = searchElement + * stack[1] = fromIndex + * stack[2] = object + * stack[3] = length (not needed, but not popped above) + */ + + for (i = from_idx; i >= 0 && i < len; i += idx_step) { + DUK_ASSERT_TOP(thr, 4); + + if (duk_get_prop_index(thr, 2, (duk_uarridx_t) i)) { + DUK_ASSERT_TOP(thr, 5); + if (duk_strict_equals(thr, 0, 4)) { + duk_push_int(thr, i); + return 1; + } + } + + duk_pop_unsafe(thr); + } + + not_found: + duk_push_int(thr, -1); + return 1; +} + +/* + * every(), some(), forEach(), map(), filter() + */ + +#define DUK__ITER_EVERY 0 +#define DUK__ITER_SOME 1 +#define DUK__ITER_FOREACH 2 +#define DUK__ITER_MAP 3 +#define DUK__ITER_FILTER 4 + +/* XXX: This helper is a bit awkward because the handling for the different iteration + * callers is quite different. This now compiles to a bit less than 500 bytes, so with + * 5 callers the net result is about 100 bytes / caller. + */ + +DUK_INTERNAL duk_ret_t duk_bi_array_prototype_iter_shared(duk_hthread *thr) { + duk_uint32_t len; + duk_uint32_t i; + duk_uarridx_t k; + duk_bool_t bval; + duk_small_int_t iter_type = duk_get_current_magic(thr); + duk_uint32_t res_length = 0; + + /* each call this helper serves has nargs==2 */ + DUK_ASSERT_TOP(thr, 2); + + len = duk__push_this_obj_len_u32(thr); + duk_require_callable(thr, 0); + /* if thisArg not supplied, behave as if undefined was supplied */ + + if (iter_type == DUK__ITER_MAP || iter_type == DUK__ITER_FILTER) { + duk_push_array(thr); + } else { + duk_push_undefined(thr); + } + + /* stack[0] = callback + * stack[1] = thisArg + * stack[2] = object + * stack[3] = ToUint32(length) (unused, but avoid unnecessary pop) + * stack[4] = result array (or undefined) + */ + + k = 0; /* result index for filter() */ + for (i = 0; i < len; i++) { + DUK_ASSERT_TOP(thr, 5); + + if (!duk_get_prop_index(thr, 2, (duk_uarridx_t) i)) { + /* For 'map' trailing missing elements don't invoke the + * callback but count towards the result length. + */ + if (iter_type == DUK__ITER_MAP) { + res_length = i + 1; + } + duk_pop_undefined(thr); + continue; + } + + /* The original value needs to be preserved for filter(), hence + * this funny order. We can't re-get the value because of side + * effects. + */ + + duk_dup_0(thr); + duk_dup_1(thr); + duk_dup_m3(thr); + duk_push_u32(thr, i); + duk_dup_2(thr); /* [ ... val callback thisArg val i obj ] */ + duk_call_method(thr, 3); /* -> [ ... val retval ] */ + + switch (iter_type) { + case DUK__ITER_EVERY: + bval = duk_to_boolean(thr, -1); + if (!bval) { + /* stack top contains 'false' */ + return 1; + } + break; + case DUK__ITER_SOME: + bval = duk_to_boolean(thr, -1); + if (bval) { + /* stack top contains 'true' */ + return 1; + } + break; + case DUK__ITER_FOREACH: + /* nop */ + break; + case DUK__ITER_MAP: + duk_dup_top(thr); + duk_xdef_prop_index_wec(thr, 4, (duk_uarridx_t) i); /* retval to result[i] */ + res_length = i + 1; + break; + case DUK__ITER_FILTER: + bval = duk_to_boolean(thr, -1); + if (bval) { + duk_dup_m2(thr); /* orig value */ + duk_xdef_prop_index_wec(thr, 4, (duk_uarridx_t) k); + k++; + res_length = k; + } + break; + default: + DUK_UNREACHABLE(); + break; + } + duk_pop_2_unsafe(thr); + + DUK_ASSERT_TOP(thr, 5); + } + + switch (iter_type) { + case DUK__ITER_EVERY: + duk_push_true(thr); + break; + case DUK__ITER_SOME: + duk_push_false(thr); + break; + case DUK__ITER_FOREACH: + duk_push_undefined(thr); + break; + case DUK__ITER_MAP: + case DUK__ITER_FILTER: + DUK_ASSERT_TOP(thr, 5); + DUK_ASSERT(duk_is_array(thr, -1)); /* topmost element is the result array already */ + duk_push_u32(thr, res_length); + duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_LENGTH, DUK_PROPDESC_FLAGS_W); + break; + default: + DUK_UNREACHABLE(); + break; + } + + return 1; +} + +/* + * reduce(), reduceRight() + */ + +DUK_INTERNAL duk_ret_t duk_bi_array_prototype_reduce_shared(duk_hthread *thr) { + duk_idx_t nargs; + duk_bool_t have_acc; + duk_uint32_t i, len; + duk_small_int_t idx_step = duk_get_current_magic(thr); /* idx_step is +1 for reduce, -1 for reduceRight */ + + /* We're a varargs function because we need to detect whether + * initialValue was given or not. + */ + nargs = duk_get_top(thr); + DUK_DDD(DUK_DDDPRINT("nargs=%ld", (long) nargs)); + + duk_set_top(thr, 2); + len = duk__push_this_obj_len_u32(thr); + duk_require_callable(thr, 0); + + /* stack[0] = callback fn + * stack[1] = initialValue + * stack[2] = object (coerced this) + * stack[3] = length (not needed, but not popped above) + * stack[4] = accumulator + */ + + have_acc = 0; + if (nargs >= 2) { + duk_dup_1(thr); + have_acc = 1; + } + DUK_DDD(DUK_DDDPRINT("have_acc=%ld, acc=%!T", + (long) have_acc, (duk_tval *) duk_get_tval(thr, 3))); + + /* For len == 0, i is initialized to len - 1 which underflows. + * The condition (i < len) will then exit the for-loop on the + * first round which is correct. Similarly, loop termination + * happens by i underflowing. + */ + + for (i = (idx_step >= 0 ? 0 : len - 1); + i < len; /* i >= 0 would always be true */ + i += (duk_uint32_t) idx_step) { + DUK_DDD(DUK_DDDPRINT("i=%ld, len=%ld, have_acc=%ld, top=%ld, acc=%!T", + (long) i, (long) len, (long) have_acc, + (long) duk_get_top(thr), + (duk_tval *) duk_get_tval(thr, 4))); + + DUK_ASSERT((have_acc && duk_get_top(thr) == 5) || + (!have_acc && duk_get_top(thr) == 4)); + + if (!duk_has_prop_index(thr, 2, (duk_uarridx_t) i)) { + continue; + } + + if (!have_acc) { + DUK_ASSERT_TOP(thr, 4); + duk_get_prop_index(thr, 2, (duk_uarridx_t) i); + have_acc = 1; + DUK_ASSERT_TOP(thr, 5); + } else { + DUK_ASSERT_TOP(thr, 5); + duk_dup_0(thr); + duk_dup(thr, 4); + duk_get_prop_index(thr, 2, (duk_uarridx_t) i); + duk_push_u32(thr, i); + duk_dup_2(thr); + DUK_DDD(DUK_DDDPRINT("calling reduce function: func=%!T, prev=%!T, curr=%!T, idx=%!T, obj=%!T", + (duk_tval *) duk_get_tval(thr, -5), (duk_tval *) duk_get_tval(thr, -4), + (duk_tval *) duk_get_tval(thr, -3), (duk_tval *) duk_get_tval(thr, -2), + (duk_tval *) duk_get_tval(thr, -1))); + duk_call(thr, 4); + DUK_DDD(DUK_DDDPRINT("-> result: %!T", (duk_tval *) duk_get_tval(thr, -1))); + duk_replace(thr, 4); + DUK_ASSERT_TOP(thr, 5); + } + } + + if (!have_acc) { + DUK_DCERROR_TYPE_INVALID_ARGS(thr); + } + + DUK_ASSERT_TOP(thr, 5); + return 1; +} + +#endif /* DUK_USE_ARRAY_BUILTIN */ + +/* automatic undefs */ +#undef DUK__ARRAY_MID_JOIN_LIMIT +#undef DUK__ITER_EVERY +#undef DUK__ITER_FILTER +#undef DUK__ITER_FOREACH +#undef DUK__ITER_MAP +#undef DUK__ITER_SOME +#line 1 "duk_bi_boolean.c" +/* + * Boolean built-ins + */ + +/* #include duk_internal.h -> already included */ + +#if defined(DUK_USE_BOOLEAN_BUILTIN) + +/* Shared helper to provide toString() and valueOf(). Checks 'this', gets + * the primitive value to stack top, and optionally coerces with ToString(). + */ +DUK_INTERNAL duk_ret_t duk_bi_boolean_prototype_tostring_shared(duk_hthread *thr) { + duk_tval *tv; + duk_hobject *h; + duk_small_int_t coerce_tostring = duk_get_current_magic(thr); + + /* XXX: there is room to use a shared helper here, many built-ins + * check the 'this' type, and if it's an object, check its class, + * then get its internal value, etc. + */ + + duk_push_this(thr); + tv = duk_get_tval(thr, -1); + DUK_ASSERT(tv != NULL); + + if (DUK_TVAL_IS_BOOLEAN(tv)) { + goto type_ok; + } else if (DUK_TVAL_IS_OBJECT(tv)) { + h = DUK_TVAL_GET_OBJECT(tv); + DUK_ASSERT(h != NULL); + + if (DUK_HOBJECT_GET_CLASS_NUMBER(h) == DUK_HOBJECT_CLASS_BOOLEAN) { + duk_xget_owndataprop_stridx_short(thr, -1, DUK_STRIDX_INT_VALUE); + DUK_ASSERT(duk_is_boolean(thr, -1)); + goto type_ok; + } + } + + DUK_DCERROR_TYPE_INVALID_ARGS(thr); + /* never here */ + + type_ok: + if (coerce_tostring) { + duk_to_string(thr, -1); + } + return 1; +} + +DUK_INTERNAL duk_ret_t duk_bi_boolean_constructor(duk_hthread *thr) { + duk_hobject *h_this; + + duk_to_boolean(thr, 0); + + if (duk_is_constructor_call(thr)) { + /* XXX: helper; rely on Boolean.prototype as being non-writable, non-configurable */ + duk_push_this(thr); + h_this = duk_known_hobject(thr, -1); + DUK_ASSERT(DUK_HOBJECT_GET_PROTOTYPE(thr->heap, h_this) == thr->builtins[DUK_BIDX_BOOLEAN_PROTOTYPE]); + + DUK_HOBJECT_SET_CLASS_NUMBER(h_this, DUK_HOBJECT_CLASS_BOOLEAN); + + duk_dup_0(thr); /* -> [ val obj val ] */ + duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_INT_VALUE, DUK_PROPDESC_FLAGS_NONE); /* XXX: proper flags? */ + } /* unbalanced stack */ + + return 1; +} + +#endif /* DUK_USE_BOOLEAN_BUILTIN */ +#line 1 "duk_bi_buffer.c" +/* + * ES2015 TypedArray and Node.js Buffer built-ins + */ + +/* #include duk_internal.h -> already included */ + +/* + * Helpers for buffer handling, enabled with DUK_USE_BUFFEROBJECT_SUPPORT. + */ + +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) +/* Map class number (minus DUK_HOBJECT_CLASS_BUFOBJ_MIN) to a bidx for the + * default internal prototype. + */ +static const duk_uint8_t duk__buffer_proto_from_classnum[] = { + DUK_BIDX_ARRAYBUFFER_PROTOTYPE, + DUK_BIDX_DATAVIEW_PROTOTYPE, + DUK_BIDX_INT8ARRAY_PROTOTYPE, + DUK_BIDX_UINT8ARRAY_PROTOTYPE, + DUK_BIDX_UINT8CLAMPEDARRAY_PROTOTYPE, + DUK_BIDX_INT16ARRAY_PROTOTYPE, + DUK_BIDX_UINT16ARRAY_PROTOTYPE, + DUK_BIDX_INT32ARRAY_PROTOTYPE, + DUK_BIDX_UINT32ARRAY_PROTOTYPE, + DUK_BIDX_FLOAT32ARRAY_PROTOTYPE, + DUK_BIDX_FLOAT64ARRAY_PROTOTYPE +}; + +/* Map DUK_HBUFOBJ_ELEM_xxx to duk_hobject class number. + * Sync with duk_hbufobj.h and duk_hobject.h. + */ +static const duk_uint8_t duk__buffer_class_from_elemtype[9] = { + DUK_HOBJECT_CLASS_UINT8ARRAY, + DUK_HOBJECT_CLASS_UINT8CLAMPEDARRAY, + DUK_HOBJECT_CLASS_INT8ARRAY, + DUK_HOBJECT_CLASS_UINT16ARRAY, + DUK_HOBJECT_CLASS_INT16ARRAY, + DUK_HOBJECT_CLASS_UINT32ARRAY, + DUK_HOBJECT_CLASS_INT32ARRAY, + DUK_HOBJECT_CLASS_FLOAT32ARRAY, + DUK_HOBJECT_CLASS_FLOAT64ARRAY +}; + +/* Map DUK_HBUFOBJ_ELEM_xxx to prototype object built-in index. + * Sync with duk_hbufobj.h. + */ +static const duk_uint8_t duk__buffer_proto_from_elemtype[9] = { + DUK_BIDX_UINT8ARRAY_PROTOTYPE, + DUK_BIDX_UINT8CLAMPEDARRAY_PROTOTYPE, + DUK_BIDX_INT8ARRAY_PROTOTYPE, + DUK_BIDX_UINT16ARRAY_PROTOTYPE, + DUK_BIDX_INT16ARRAY_PROTOTYPE, + DUK_BIDX_UINT32ARRAY_PROTOTYPE, + DUK_BIDX_INT32ARRAY_PROTOTYPE, + DUK_BIDX_FLOAT32ARRAY_PROTOTYPE, + DUK_BIDX_FLOAT64ARRAY_PROTOTYPE +}; + +/* Map DUK__FLD_xxx to byte size. */ +static const duk_uint8_t duk__buffer_nbytes_from_fldtype[6] = { + 1, /* DUK__FLD_8BIT */ + 2, /* DUK__FLD_16BIT */ + 4, /* DUK__FLD_32BIT */ + 4, /* DUK__FLD_FLOAT */ + 8, /* DUK__FLD_DOUBLE */ + 0 /* DUK__FLD_VARINT; not relevant here */ +}; + +/* Bitfield for each DUK_HBUFOBJ_ELEM_xxx indicating which element types + * are compatible with a blind byte copy for the TypedArray set() method (also + * used for TypedArray constructor). Array index is target buffer elem type, + * bitfield indicates compatible source types. The types must have same byte + * size and they must be coercion compatible. + */ +#if !defined(DUK_USE_PREFER_SIZE) +static duk_uint16_t duk__buffer_elemtype_copy_compatible[9] = { + /* xxx -> DUK_HBUFOBJ_ELEM_UINT8 */ + (1U << DUK_HBUFOBJ_ELEM_UINT8) | + (1U << DUK_HBUFOBJ_ELEM_UINT8CLAMPED) | + (1U << DUK_HBUFOBJ_ELEM_INT8), + + /* xxx -> DUK_HBUFOBJ_ELEM_UINT8CLAMPED + * Note: INT8 is -not- copy compatible, e.g. -1 would coerce to 0x00. + */ + (1U << DUK_HBUFOBJ_ELEM_UINT8) | + (1U << DUK_HBUFOBJ_ELEM_UINT8CLAMPED), + + /* xxx -> DUK_HBUFOBJ_ELEM_INT8 */ + (1U << DUK_HBUFOBJ_ELEM_UINT8) | + (1U << DUK_HBUFOBJ_ELEM_UINT8CLAMPED) | + (1U << DUK_HBUFOBJ_ELEM_INT8), + + /* xxx -> DUK_HBUFOBJ_ELEM_UINT16 */ + (1U << DUK_HBUFOBJ_ELEM_UINT16) | + (1U << DUK_HBUFOBJ_ELEM_INT16), + + /* xxx -> DUK_HBUFOBJ_ELEM_INT16 */ + (1U << DUK_HBUFOBJ_ELEM_UINT16) | + (1U << DUK_HBUFOBJ_ELEM_INT16), + + /* xxx -> DUK_HBUFOBJ_ELEM_UINT32 */ + (1U << DUK_HBUFOBJ_ELEM_UINT32) | + (1U << DUK_HBUFOBJ_ELEM_INT32), + + /* xxx -> DUK_HBUFOBJ_ELEM_INT32 */ + (1U << DUK_HBUFOBJ_ELEM_UINT32) | + (1U << DUK_HBUFOBJ_ELEM_INT32), + + /* xxx -> DUK_HBUFOBJ_ELEM_FLOAT32 */ + (1U << DUK_HBUFOBJ_ELEM_FLOAT32), + + /* xxx -> DUK_HBUFOBJ_ELEM_FLOAT64 */ + (1U << DUK_HBUFOBJ_ELEM_FLOAT64) +}; +#endif /* !DUK_USE_PREFER_SIZE */ + +DUK_LOCAL duk_hbufobj *duk__hbufobj_promote_this(duk_hthread *thr) { + duk_tval *tv_dst; + duk_hbufobj *res; + + duk_push_this(thr); + DUK_ASSERT(duk_is_buffer(thr, -1)); + res = (duk_hbufobj *) duk_to_hobject(thr, -1); + DUK_HBUFOBJ_ASSERT_VALID(res); + DUK_DD(DUK_DDPRINT("promoted 'this' automatically to an ArrayBuffer: %!iT", duk_get_tval(thr, -1))); + + tv_dst = duk_get_borrowed_this_tval(thr); + DUK_TVAL_SET_OBJECT_UPDREF(thr, tv_dst, (duk_hobject *) res); + duk_pop(thr); + + return res; +} + +#define DUK__BUFOBJ_FLAG_THROW (1 << 0) +#define DUK__BUFOBJ_FLAG_PROMOTE (1 << 1) + +/* Shared helper. When DUK__BUFOBJ_FLAG_PROMOTE is given, the return value is + * always a duk_hbufobj *. Without the flag the return value can also be a + * plain buffer, and the caller must check for it using DUK_HEAPHDR_IS_BUFFER(). + */ +DUK_LOCAL duk_heaphdr *duk__getrequire_bufobj_this(duk_hthread *thr, duk_small_uint_t flags) { + duk_tval *tv; + duk_hbufobj *h_this; + + DUK_ASSERT(thr != NULL); + + tv = duk_get_borrowed_this_tval(thr); + DUK_ASSERT(tv != NULL); + + if (DUK_TVAL_IS_OBJECT(tv)) { + h_this = (duk_hbufobj *) DUK_TVAL_GET_OBJECT(tv); + DUK_ASSERT(h_this != NULL); + if (DUK_HOBJECT_IS_BUFOBJ((duk_hobject *) h_this)) { + DUK_HBUFOBJ_ASSERT_VALID(h_this); + return (duk_heaphdr *) h_this; + } + } else if (DUK_TVAL_IS_BUFFER(tv)) { + if (flags & DUK__BUFOBJ_FLAG_PROMOTE) { + /* Promote a plain buffer to a Uint8Array. This is very + * inefficient but allows plain buffer to be used wherever an + * Uint8Array is used with very small cost; hot path functions + * like index read/write calls should provide direct buffer + * support to avoid promotion. + */ + /* XXX: make this conditional to a flag if call sites need it? */ + h_this = duk__hbufobj_promote_this(thr); + DUK_ASSERT(h_this != NULL); + DUK_HBUFOBJ_ASSERT_VALID(h_this); + return (duk_heaphdr *) h_this; + } else { + /* XXX: ugly, share return pointer for duk_hbuffer. */ + return (duk_heaphdr *) DUK_TVAL_GET_BUFFER(tv); + } + } + + if (flags & DUK__BUFOBJ_FLAG_THROW) { + DUK_ERROR_TYPE(thr, DUK_STR_NOT_BUFFER); + DUK_WO_NORETURN(return NULL;); + } + return NULL; +} + +/* Check that 'this' is a duk_hbufobj and return a pointer to it. */ +DUK_LOCAL duk_hbufobj *duk__get_bufobj_this(duk_hthread *thr) { + return (duk_hbufobj *) duk__getrequire_bufobj_this(thr, DUK__BUFOBJ_FLAG_PROMOTE); +} + +/* Check that 'this' is a duk_hbufobj and return a pointer to it + * (NULL if not). + */ +DUK_LOCAL duk_hbufobj *duk__require_bufobj_this(duk_hthread *thr) { + return (duk_hbufobj *) duk__getrequire_bufobj_this(thr, DUK__BUFOBJ_FLAG_THROW | DUK__BUFOBJ_FLAG_PROMOTE); +} + +/* Check that value is a duk_hbufobj and return a pointer to it. */ +DUK_LOCAL duk_hbufobj *duk__require_bufobj_value(duk_hthread *thr, duk_idx_t idx) { + duk_tval *tv; + duk_hbufobj *h_obj; + + /* Don't accept relative indices now. */ + DUK_ASSERT(idx >= 0); + + tv = duk_require_tval(thr, idx); + DUK_ASSERT(tv != NULL); + if (DUK_TVAL_IS_OBJECT(tv)) { + h_obj = (duk_hbufobj *) DUK_TVAL_GET_OBJECT(tv); + DUK_ASSERT(h_obj != NULL); + if (DUK_HOBJECT_IS_BUFOBJ((duk_hobject *) h_obj)) { + DUK_HBUFOBJ_ASSERT_VALID(h_obj); + return h_obj; + } + } else if (DUK_TVAL_IS_BUFFER(tv)) { + h_obj = (duk_hbufobj *) duk_to_hobject(thr, idx); + DUK_ASSERT(h_obj != NULL); + DUK_HBUFOBJ_ASSERT_VALID(h_obj); + return h_obj; + } + + DUK_ERROR_TYPE(thr, DUK_STR_NOT_BUFFER); + DUK_WO_NORETURN(return NULL;); +} + +DUK_LOCAL void duk__set_bufobj_buffer(duk_hthread *thr, duk_hbufobj *h_bufobj, duk_hbuffer *h_val) { + DUK_ASSERT(thr != NULL); + DUK_ASSERT(h_bufobj != NULL); + DUK_ASSERT(h_bufobj->buf == NULL); /* no need to decref */ + DUK_ASSERT(h_val != NULL); + DUK_HBUFOBJ_ASSERT_VALID(h_bufobj); + DUK_UNREF(thr); + + h_bufobj->buf = h_val; + DUK_HBUFFER_INCREF(thr, h_val); + h_bufobj->length = (duk_uint_t) DUK_HBUFFER_GET_SIZE(h_val); + DUK_ASSERT(h_bufobj->shift == 0); + DUK_ASSERT(h_bufobj->elem_type == DUK_HBUFOBJ_ELEM_UINT8); + DUK_ASSERT(h_bufobj->is_typedarray == 0); + + DUK_HBUFOBJ_ASSERT_VALID(h_bufobj); +} + +/* Shared offset/length coercion helper. */ +DUK_LOCAL void duk__resolve_offset_opt_length(duk_hthread *thr, + duk_hbufobj *h_bufarg, + duk_idx_t idx_offset, + duk_idx_t idx_length, + duk_uint_t *out_offset, + duk_uint_t *out_length, + duk_bool_t throw_flag) { + duk_int_t offset_signed; + duk_int_t length_signed; + duk_uint_t offset; + duk_uint_t length; + + offset_signed = duk_to_int(thr, idx_offset); + if (offset_signed < 0) { + goto fail_range; + } + offset = (duk_uint_t) offset_signed; + if (offset > h_bufarg->length) { + goto fail_range; + } + DUK_ASSERT_DISABLE(offset >= 0); /* unsigned */ + DUK_ASSERT(offset <= h_bufarg->length); + + if (duk_is_undefined(thr, idx_length)) { + DUK_ASSERT(h_bufarg->length >= offset); + length = h_bufarg->length - offset; /* >= 0 */ + } else { + length_signed = duk_to_int(thr, idx_length); + if (length_signed < 0) { + goto fail_range; + } + length = (duk_uint_t) length_signed; + DUK_ASSERT(h_bufarg->length >= offset); + if (length > h_bufarg->length - offset) { + /* Unlike for negative arguments, some call sites + * want length to be clamped if it's positive. + */ + if (throw_flag) { + goto fail_range; + } else { + length = h_bufarg->length - offset; + } + } + } + DUK_ASSERT_DISABLE(length >= 0); /* unsigned */ + DUK_ASSERT(offset + length <= h_bufarg->length); + + *out_offset = offset; + *out_length = length; + return; + + fail_range: + DUK_ERROR_RANGE(thr, DUK_STR_INVALID_ARGS); + DUK_WO_NORETURN(return;); +} + +/* Shared lenient buffer length clamping helper. No negative indices, no + * element/byte shifting. + */ +DUK_LOCAL void duk__clamp_startend_nonegidx_noshift(duk_hthread *thr, + duk_int_t buffer_length, + duk_idx_t idx_start, + duk_idx_t idx_end, + duk_int_t *out_start_offset, + duk_int_t *out_end_offset) { + duk_int_t start_offset; + duk_int_t end_offset; + + DUK_ASSERT(out_start_offset != NULL); + DUK_ASSERT(out_end_offset != NULL); + + /* undefined coerces to zero which is correct */ + start_offset = duk_to_int_clamped(thr, idx_start, 0, buffer_length); + if (duk_is_undefined(thr, idx_end)) { + end_offset = buffer_length; + } else { + end_offset = duk_to_int_clamped(thr, idx_end, start_offset, buffer_length); + } + + DUK_ASSERT(start_offset >= 0); + DUK_ASSERT(start_offset <= buffer_length); + DUK_ASSERT(end_offset >= 0); + DUK_ASSERT(end_offset <= buffer_length); + DUK_ASSERT(start_offset <= end_offset); + + *out_start_offset = start_offset; + *out_end_offset = end_offset; +} + +/* Shared lenient buffer length clamping helper. Indices are treated as + * element indices (though output values are byte offsets) which only + * really matters for TypedArray views as other buffer object have a zero + * shift. Negative indices are counted from end of input slice; crossed + * indices are clamped to zero length; and final indices are clamped + * against input slice. Used for e.g. ArrayBuffer slice(). + */ +DUK_LOCAL void duk__clamp_startend_negidx_shifted(duk_hthread *thr, + duk_int_t buffer_length, + duk_uint8_t buffer_shift, + duk_idx_t idx_start, + duk_idx_t idx_end, + duk_int_t *out_start_offset, + duk_int_t *out_end_offset) { + duk_int_t start_offset; + duk_int_t end_offset; + + DUK_ASSERT(out_start_offset != NULL); + DUK_ASSERT(out_end_offset != NULL); + + buffer_length >>= buffer_shift; /* as (full) elements */ + + /* Resolve start/end offset as element indices first; arguments + * at idx_start/idx_end are element offsets. Working with element + * indices first also avoids potential for wrapping. + */ + + start_offset = duk_to_int(thr, idx_start); + if (start_offset < 0) { + start_offset = buffer_length + start_offset; + } + if (duk_is_undefined(thr, idx_end)) { + end_offset = buffer_length; + } else { + end_offset = duk_to_int(thr, idx_end); + if (end_offset < 0) { + end_offset = buffer_length + end_offset; + } + } + /* Note: start_offset/end_offset can still be < 0 here. */ + + if (start_offset < 0) { + start_offset = 0; + } else if (start_offset > buffer_length) { + start_offset = buffer_length; + } + if (end_offset < start_offset) { + end_offset = start_offset; + } else if (end_offset > buffer_length) { + end_offset = buffer_length; + } + DUK_ASSERT(start_offset >= 0); + DUK_ASSERT(start_offset <= buffer_length); + DUK_ASSERT(end_offset >= 0); + DUK_ASSERT(end_offset <= buffer_length); + DUK_ASSERT(start_offset <= end_offset); + + /* Convert indices to byte offsets. */ + start_offset <<= buffer_shift; + end_offset <<= buffer_shift; + + *out_start_offset = start_offset; + *out_end_offset = end_offset; +} + +DUK_INTERNAL void duk_hbufobj_promote_plain(duk_hthread *thr, duk_idx_t idx) { + if (duk_is_buffer(thr, idx)) { + duk_to_object(thr, idx); + } +} + +DUK_INTERNAL void duk_hbufobj_push_uint8array_from_plain(duk_hthread *thr, duk_hbuffer *h_buf) { + /* Push Uint8Array which will share the same underlying buffer as + * the plain buffer argument. Also create an ArrayBuffer with the + * same backing for the result .buffer property. + */ + + duk_push_hbuffer(thr, h_buf); + duk_push_buffer_object(thr, -1, 0, (duk_size_t) DUK_HBUFFER_GET_SIZE(h_buf), DUK_BUFOBJ_UINT8ARRAY); + duk_remove_m2(thr); + +#if 0 + /* More verbose equivalent; maybe useful if e.g. .buffer is omitted. */ + h_bufobj = duk_push_bufobj_raw(thr, + DUK_HOBJECT_FLAG_EXTENSIBLE | + DUK_HOBJECT_FLAG_BUFOBJ | + DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_UINT8ARRAY), + DUK_BIDX_UINT8ARRAY_PROTOTYPE); + DUK_ASSERT(h_bufobj != NULL); + duk__set_bufobj_buffer(thr, h_bufobj, h_buf); + h_bufobj->is_typedarray = 1; + DUK_HBUFOBJ_ASSERT_VALID(h_bufobj); + + h_arrbuf = duk_push_bufobj_raw(thr, + DUK_HOBJECT_FLAG_EXTENSIBLE | + DUK_HOBJECT_FLAG_BUFOBJ | + DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_ARRAYBUFFER), + DUK_BIDX_ARRAYBUFFER_PROTOTYPE); + DUK_ASSERT(h_arrbuf != NULL); + duk__set_bufobj_buffer(thr, h_arrbuf, h_buf); + DUK_ASSERT(h_arrbuf->is_typedarray == 0); + DUK_HBUFOBJ_ASSERT_VALID(h_arrbuf); + + DUK_ASSERT(h_bufobj->buf_prop == NULL); + h_bufobj->buf_prop = (duk_hobject *) h_arrbuf; + DUK_ASSERT(h_arrbuf != NULL); + DUK_HBUFOBJ_INCREF(thr, h_arrbuf); + duk_pop(thr); +#endif +} + +/* Indexed read helper for buffer objects, also called from outside this file. */ +DUK_INTERNAL void duk_hbufobj_push_validated_read(duk_hthread *thr, duk_hbufobj *h_bufobj, duk_uint8_t *p, duk_small_uint_t elem_size) { + duk_double_union du; + + DUK_ASSERT(elem_size > 0); + duk_memcpy((void *) du.uc, (const void *) p, (size_t) elem_size); + + switch (h_bufobj->elem_type) { + case DUK_HBUFOBJ_ELEM_UINT8: + case DUK_HBUFOBJ_ELEM_UINT8CLAMPED: + duk_push_uint(thr, (duk_uint_t) du.uc[0]); + break; + case DUK_HBUFOBJ_ELEM_INT8: + duk_push_int(thr, (duk_int_t) (duk_int8_t) du.uc[0]); + break; + case DUK_HBUFOBJ_ELEM_UINT16: + duk_push_uint(thr, (duk_uint_t) du.us[0]); + break; + case DUK_HBUFOBJ_ELEM_INT16: + duk_push_int(thr, (duk_int_t) (duk_int16_t) du.us[0]); + break; + case DUK_HBUFOBJ_ELEM_UINT32: + duk_push_uint(thr, (duk_uint_t) du.ui[0]); + break; + case DUK_HBUFOBJ_ELEM_INT32: + duk_push_int(thr, (duk_int_t) (duk_int32_t) du.ui[0]); + break; + case DUK_HBUFOBJ_ELEM_FLOAT32: + duk_push_number(thr, (duk_double_t) du.f[0]); + break; + case DUK_HBUFOBJ_ELEM_FLOAT64: + duk_push_number(thr, (duk_double_t) du.d); + break; + default: + DUK_UNREACHABLE(); + } +} + +/* Indexed write helper for buffer objects, also called from outside this file. */ +DUK_INTERNAL void duk_hbufobj_validated_write(duk_hthread *thr, duk_hbufobj *h_bufobj, duk_uint8_t *p, duk_small_uint_t elem_size) { + duk_double_union du; + + /* NOTE! Caller must ensure that any side effects from the + * coercions below are safe. If that cannot be guaranteed + * (which is normally the case), caller must coerce the + * argument using duk_to_number() before any pointer + * validations; the result of duk_to_number() always coerces + * without side effects here. + */ + + switch (h_bufobj->elem_type) { + case DUK_HBUFOBJ_ELEM_UINT8: + du.uc[0] = (duk_uint8_t) duk_to_uint32(thr, -1); + break; + case DUK_HBUFOBJ_ELEM_UINT8CLAMPED: + du.uc[0] = (duk_uint8_t) duk_to_uint8clamped(thr, -1); + break; + case DUK_HBUFOBJ_ELEM_INT8: + du.uc[0] = (duk_uint8_t) duk_to_int32(thr, -1); + break; + case DUK_HBUFOBJ_ELEM_UINT16: + du.us[0] = (duk_uint16_t) duk_to_uint32(thr, -1); + break; + case DUK_HBUFOBJ_ELEM_INT16: + du.us[0] = (duk_uint16_t) duk_to_int32(thr, -1); + break; + case DUK_HBUFOBJ_ELEM_UINT32: + du.ui[0] = (duk_uint32_t) duk_to_uint32(thr, -1); + break; + case DUK_HBUFOBJ_ELEM_INT32: + du.ui[0] = (duk_uint32_t) duk_to_int32(thr, -1); + break; + case DUK_HBUFOBJ_ELEM_FLOAT32: + /* A double-to-float cast is undefined behavior in C99 if + * the cast is out-of-range, so use a helper. Example: + * runtime error: value -1e+100 is outside the range of representable values of type 'float' + */ + du.f[0] = duk_double_to_float_t(duk_to_number_m1(thr)); + break; + case DUK_HBUFOBJ_ELEM_FLOAT64: + du.d = (duk_double_t) duk_to_number_m1(thr); + break; + default: + DUK_UNREACHABLE(); + } + + DUK_ASSERT(elem_size > 0); + duk_memcpy((void *) p, (const void *) du.uc, (size_t) elem_size); +} + +/* Helper to create a fixed buffer from argument value at index 0. + * Node.js and allocPlain() compatible. + */ +DUK_LOCAL duk_hbuffer *duk__hbufobj_fixed_from_argvalue(duk_hthread *thr) { + duk_int_t len; + duk_int_t i; + duk_size_t buf_size; + duk_uint8_t *buf; + + switch (duk_get_type(thr, 0)) { + case DUK_TYPE_NUMBER: { + len = duk_to_int_clamped(thr, 0, 0, DUK_INT_MAX); + (void) duk_push_fixed_buffer_zero(thr, (duk_size_t) len); + break; + } + case DUK_TYPE_BUFFER: { /* Treat like Uint8Array. */ + goto slow_copy; + } + case DUK_TYPE_OBJECT: { + duk_hobject *h; + duk_hbufobj *h_bufobj; + + /* For Node.js Buffers "Passing an ArrayBuffer returns a Buffer + * that shares allocated memory with the given ArrayBuffer." + * https://nodejs.org/api/buffer.html#buffer_buffer_from_buffer_alloc_and_buffer_allocunsafe + */ + + h = duk_known_hobject(thr, 0); + if (DUK_HOBJECT_GET_CLASS_NUMBER(h) == DUK_HOBJECT_CLASS_ARRAYBUFFER) { + DUK_ASSERT(DUK_HOBJECT_IS_BUFOBJ(h)); + h_bufobj = (duk_hbufobj *) h; + if (DUK_UNLIKELY(h_bufobj->buf == NULL)) { + DUK_ERROR_TYPE_INVALID_ARGS(thr); + DUK_WO_NORETURN(return NULL;); + } + if (DUK_UNLIKELY(h_bufobj->offset != 0 || h_bufobj->length != DUK_HBUFFER_GET_SIZE(h_bufobj->buf))) { + /* No support for ArrayBuffers with slice + * offset/length. + */ + DUK_ERROR_TYPE_INVALID_ARGS(thr); + DUK_WO_NORETURN(return NULL;); + } + duk_push_hbuffer(thr, h_bufobj->buf); + return h_bufobj->buf; + } + goto slow_copy; + } + case DUK_TYPE_STRING: { + /* ignore encoding for now */ + duk_require_hstring_notsymbol(thr, 0); + duk_dup_0(thr); + (void) duk_to_buffer(thr, -1, &buf_size); + break; + } + default: + DUK_ERROR_TYPE_INVALID_ARGS(thr); + DUK_WO_NORETURN(return NULL;); + } + + done: + DUK_ASSERT(duk_is_buffer(thr, -1)); + return duk_known_hbuffer(thr, -1); + + slow_copy: + /* XXX: fast path for typed arrays and other buffer objects? */ + + (void) duk_get_prop_stridx_short(thr, 0, DUK_STRIDX_LENGTH); + len = duk_to_int_clamped(thr, -1, 0, DUK_INT_MAX); + duk_pop(thr); + buf = (duk_uint8_t *) duk_push_fixed_buffer_nozero(thr, (duk_size_t) len); /* no zeroing, all indices get initialized */ + for (i = 0; i < len; i++) { + /* XXX: fast path for array or buffer arguments? */ + duk_get_prop_index(thr, 0, (duk_uarridx_t) i); + buf[i] = (duk_uint8_t) (duk_to_uint32(thr, -1) & 0xffU); + duk_pop(thr); + } + goto done; +} +#endif /* DUK_USE_BUFFEROBJECT_SUPPORT */ + +/* + * Node.js Buffer constructor + * + * Node.js Buffers are just Uint8Arrays with internal prototype set to + * Buffer.prototype so they're handled otherwise the same as Uint8Array. + * However, the constructor arguments are very different so a separate + * constructor entry point is used. + */ +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) +DUK_INTERNAL duk_ret_t duk_bi_nodejs_buffer_constructor(duk_hthread *thr) { + duk_hbuffer *h_buf; + + h_buf = duk__hbufobj_fixed_from_argvalue(thr); + DUK_ASSERT(h_buf != NULL); + + duk_push_buffer_object(thr, + -1, + 0, + DUK_HBUFFER_FIXED_GET_SIZE((duk_hbuffer_fixed *) (void *) h_buf), + DUK_BUFOBJ_UINT8ARRAY); + duk_push_hobject_bidx(thr, DUK_BIDX_NODEJS_BUFFER_PROTOTYPE); + duk_set_prototype(thr, -2); + + /* XXX: a more direct implementation */ + + return 1; +} +#endif /* DUK_USE_BUFFEROBJECT_SUPPORT */ + +/* + * ArrayBuffer, DataView, and TypedArray constructors + */ + +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) +DUK_INTERNAL duk_ret_t duk_bi_arraybuffer_constructor(duk_hthread *thr) { + duk_hbufobj *h_bufobj; + duk_hbuffer *h_val; + duk_int_t len; + + DUK_CTX_ASSERT_VALID(thr); + + duk_require_constructor_call(thr); + + len = duk_to_int(thr, 0); + if (len < 0) { + goto fail_length; + } + (void) duk_push_fixed_buffer_zero(thr, (duk_size_t) len); + h_val = (duk_hbuffer *) duk_known_hbuffer(thr, -1); + + h_bufobj = duk_push_bufobj_raw(thr, + DUK_HOBJECT_FLAG_EXTENSIBLE | + DUK_HOBJECT_FLAG_BUFOBJ | + DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_ARRAYBUFFER), + DUK_BIDX_ARRAYBUFFER_PROTOTYPE); + DUK_ASSERT(h_bufobj != NULL); + + duk__set_bufobj_buffer(thr, h_bufobj, h_val); + DUK_HBUFOBJ_ASSERT_VALID(h_bufobj); + + return 1; + + fail_length: + DUK_DCERROR_RANGE_INVALID_LENGTH(thr); +} +#endif /* DUK_USE_BUFFEROBJECT_SUPPORT */ + + +/* Format of magic, bits: + * 0...1: elem size shift (0-3) + * 2...5: elem type (DUK_HBUFOBJ_ELEM_xxx) + * + * XXX: add prototype bidx explicitly to magic instead of using a mapping? + */ + +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) +DUK_INTERNAL duk_ret_t duk_bi_typedarray_constructor(duk_hthread *thr) { + duk_tval *tv; + duk_hobject *h_obj; + duk_hbufobj *h_bufobj = NULL; + duk_hbufobj *h_bufarg = NULL; + duk_hbuffer *h_val; + duk_small_uint_t magic; + duk_small_uint_t shift; + duk_small_uint_t elem_type; + duk_small_uint_t elem_size; + duk_small_uint_t class_num; + duk_small_uint_t proto_bidx; + duk_uint_t align_mask; + duk_uint_t elem_length; + duk_int_t elem_length_signed; + duk_uint_t byte_length; + duk_small_uint_t copy_mode; + + /* XXX: The same copy helpers could be shared with at least some + * buffer functions. + */ + + duk_require_constructor_call(thr); + + /* We could fit built-in index into magic but that'd make the magic + * number dependent on built-in numbering (genbuiltins.py doesn't + * handle that yet). So map both class and prototype from the + * element type. + */ + magic = (duk_small_uint_t) duk_get_current_magic(thr); + shift = magic & 0x03U; /* bits 0...1: shift */ + elem_type = (magic >> 2) & 0x0fU; /* bits 2...5: type */ + elem_size = 1U << shift; + align_mask = elem_size - 1; + DUK_ASSERT(elem_type < sizeof(duk__buffer_proto_from_elemtype) / sizeof(duk_uint8_t)); + proto_bidx = duk__buffer_proto_from_elemtype[elem_type]; + DUK_ASSERT(proto_bidx < DUK_NUM_BUILTINS); + DUK_ASSERT(elem_type < sizeof(duk__buffer_class_from_elemtype) / sizeof(duk_uint8_t)); + class_num = duk__buffer_class_from_elemtype[elem_type]; + + DUK_DD(DUK_DDPRINT("typedarray constructor, magic=%d, shift=%d, elem_type=%d, " + "elem_size=%d, proto_bidx=%d, class_num=%d", + (int) magic, (int) shift, (int) elem_type, (int) elem_size, + (int) proto_bidx, (int) class_num)); + + /* Argument variants. When the argument is an ArrayBuffer a view to + * the same buffer is created; otherwise a new ArrayBuffer is always + * created. + */ + + /* XXX: initial iteration to treat a plain buffer like an ArrayBuffer: + * coerce to an ArrayBuffer object and use that as .buffer. The underlying + * buffer will be the same but result .buffer !== inputPlainBuffer. + */ + duk_hbufobj_promote_plain(thr, 0); + + tv = duk_get_tval(thr, 0); + DUK_ASSERT(tv != NULL); /* arg count */ + if (DUK_TVAL_IS_OBJECT(tv)) { + h_obj = DUK_TVAL_GET_OBJECT(tv); + DUK_ASSERT(h_obj != NULL); + + if (DUK_HOBJECT_GET_CLASS_NUMBER(h_obj) == DUK_HOBJECT_CLASS_ARRAYBUFFER) { + /* ArrayBuffer: unlike any other argument variant, create + * a view into the existing buffer. + */ + + duk_int_t byte_offset_signed; + duk_uint_t byte_offset; + + h_bufarg = (duk_hbufobj *) h_obj; + + byte_offset_signed = duk_to_int(thr, 1); + if (byte_offset_signed < 0) { + goto fail_arguments; + } + byte_offset = (duk_uint_t) byte_offset_signed; + if (byte_offset > h_bufarg->length || + (byte_offset & align_mask) != 0) { + /* Must be >= 0 and multiple of element size. */ + goto fail_arguments; + } + if (duk_is_undefined(thr, 2)) { + DUK_ASSERT(h_bufarg->length >= byte_offset); + byte_length = h_bufarg->length - byte_offset; + if ((byte_length & align_mask) != 0) { + /* Must be element size multiple from + * start offset to end of buffer. + */ + goto fail_arguments; + } + elem_length = (byte_length >> shift); + } else { + elem_length_signed = duk_to_int(thr, 2); + if (elem_length_signed < 0) { + goto fail_arguments; + } + elem_length = (duk_uint_t) elem_length_signed; + byte_length = elem_length << shift; + if ((byte_length >> shift) != elem_length) { + /* Byte length would overflow. */ + /* XXX: easier check with less code? */ + goto fail_arguments; + } + DUK_ASSERT(h_bufarg->length >= byte_offset); + if (byte_length > h_bufarg->length - byte_offset) { + /* Not enough data. */ + goto fail_arguments; + } + } + DUK_UNREF(elem_length); + DUK_ASSERT_DISABLE(byte_offset >= 0); + DUK_ASSERT(byte_offset <= h_bufarg->length); + DUK_ASSERT_DISABLE(byte_length >= 0); + DUK_ASSERT(byte_offset + byte_length <= h_bufarg->length); + DUK_ASSERT((elem_length << shift) == byte_length); + + h_bufobj = duk_push_bufobj_raw(thr, + DUK_HOBJECT_FLAG_EXTENSIBLE | + DUK_HOBJECT_FLAG_BUFOBJ | + DUK_HOBJECT_CLASS_AS_FLAGS(class_num), + (duk_small_int_t) proto_bidx); + h_val = h_bufarg->buf; + if (h_val == NULL) { + DUK_DCERROR_TYPE_INVALID_ARGS(thr); + } + h_bufobj->buf = h_val; + DUK_HBUFFER_INCREF(thr, h_val); + h_bufobj->offset = h_bufarg->offset + byte_offset; + h_bufobj->length = byte_length; + h_bufobj->shift = (duk_uint8_t) shift; + h_bufobj->elem_type = (duk_uint8_t) elem_type; + h_bufobj->is_typedarray = 1; + DUK_HBUFOBJ_ASSERT_VALID(h_bufobj); + + /* Set .buffer to the argument ArrayBuffer. */ + DUK_ASSERT(h_bufobj->buf_prop == NULL); + h_bufobj->buf_prop = (duk_hobject *) h_bufarg; + DUK_ASSERT(h_bufarg != NULL); + DUK_HBUFOBJ_INCREF(thr, h_bufarg); + return 1; + } else if (DUK_HOBJECT_IS_BUFOBJ(h_obj)) { + /* TypedArray (or other non-ArrayBuffer duk_hbufobj). + * Conceptually same behavior as for an Array-like argument, + * with a few fast paths. + */ + + h_bufarg = (duk_hbufobj *) h_obj; + DUK_HBUFOBJ_ASSERT_VALID(h_bufarg); + elem_length_signed = (duk_int_t) (h_bufarg->length >> h_bufarg->shift); + if (h_bufarg->buf == NULL) { + DUK_DCERROR_TYPE_INVALID_ARGS(thr); + } + + /* Select copy mode. Must take into account element + * compatibility and validity of the underlying source + * buffer. + */ + + DUK_DDD(DUK_DDDPRINT("selecting copy mode for bufobj arg, " + "src byte_length=%ld, src shift=%d, " + "src/dst elem_length=%ld; " + "dst shift=%d -> dst byte_length=%ld", + (long) h_bufarg->length, (int) h_bufarg->shift, + (long) elem_length_signed, (int) shift, + (long) (elem_length_signed << shift))); + + copy_mode = 2; /* default is explicit index read/write copy */ +#if !defined(DUK_USE_PREFER_SIZE) + /* With a size optimized build copy_mode 2 is enough. + * Modes 0 and 1 are faster but conceptually the same. + */ + DUK_ASSERT(elem_type < sizeof(duk__buffer_elemtype_copy_compatible) / sizeof(duk_uint16_t)); + if (DUK_HBUFOBJ_VALID_SLICE(h_bufarg)) { + if ((duk__buffer_elemtype_copy_compatible[elem_type] & (1 << h_bufarg->elem_type)) != 0) { + DUK_DDD(DUK_DDDPRINT("source/target are copy compatible, memcpy")); + DUK_ASSERT(shift == h_bufarg->shift); /* byte sizes will match */ + copy_mode = 0; + } else { + DUK_DDD(DUK_DDDPRINT("source/target not copy compatible but valid, fast copy")); + copy_mode = 1; + } + } +#endif /* !DUK_USE_PREFER_SIZE */ + } else { + /* Array or Array-like */ + elem_length_signed = (duk_int_t) duk_get_length(thr, 0); + copy_mode = 2; + } + } else { + /* Non-object argument is simply int coerced, matches + * V8 behavior (except for "null", which we coerce to + * 0 but V8 TypeErrors). + */ + elem_length_signed = duk_to_int(thr, 0); + copy_mode = 3; + } + if (elem_length_signed < 0) { + goto fail_arguments; + } + elem_length = (duk_uint_t) elem_length_signed; + byte_length = (duk_uint_t) (elem_length << shift); + if ((byte_length >> shift) != elem_length) { + /* Byte length would overflow. */ + /* XXX: easier check with less code? */ + goto fail_arguments; + } + + DUK_DDD(DUK_DDDPRINT("elem_length=%ld, byte_length=%ld", + (long) elem_length, (long) byte_length)); + + /* ArrayBuffer argument is handled specially above; the rest of the + * argument variants are handled by shared code below. + * + * ArrayBuffer in h_bufobj->buf_prop is intentionally left unset. + * It will be automatically created by the .buffer accessor on + * first access. + */ + + /* Push the resulting view object on top of a plain fixed buffer. */ + (void) duk_push_fixed_buffer(thr, byte_length); + h_val = duk_known_hbuffer(thr, -1); + DUK_ASSERT(h_val != NULL); + + h_bufobj = duk_push_bufobj_raw(thr, + DUK_HOBJECT_FLAG_EXTENSIBLE | + DUK_HOBJECT_FLAG_BUFOBJ | + DUK_HOBJECT_CLASS_AS_FLAGS(class_num), + (duk_small_int_t) proto_bidx); + + h_bufobj->buf = h_val; + DUK_HBUFFER_INCREF(thr, h_val); + DUK_ASSERT(h_bufobj->offset == 0); + h_bufobj->length = byte_length; + h_bufobj->shift = (duk_uint8_t) shift; + h_bufobj->elem_type = (duk_uint8_t) elem_type; + h_bufobj->is_typedarray = 1; + DUK_HBUFOBJ_ASSERT_VALID(h_bufobj); + + /* Copy values, the copy method depends on the arguments. + * + * Copy mode decision may depend on the validity of the underlying + * buffer of the source argument; there must be no harmful side effects + * from there to here for copy_mode to still be valid. + */ + DUK_DDD(DUK_DDDPRINT("copy mode: %d", (int) copy_mode)); + switch (copy_mode) { + /* Copy modes 0 and 1 can be omitted in size optimized build, + * copy mode 2 handles them (but more slowly). + */ +#if !defined(DUK_USE_PREFER_SIZE) + case 0: { + /* Use byte copy. */ + + duk_uint8_t *p_src; + duk_uint8_t *p_dst; + + DUK_ASSERT(h_bufobj != NULL); + DUK_ASSERT(h_bufobj->buf != NULL); + DUK_ASSERT(DUK_HBUFOBJ_VALID_SLICE(h_bufobj)); + DUK_ASSERT(h_bufarg != NULL); + DUK_ASSERT(h_bufarg->buf != NULL); + DUK_ASSERT(DUK_HBUFOBJ_VALID_SLICE(h_bufarg)); + + p_dst = DUK_HBUFOBJ_GET_SLICE_BASE(thr->heap, h_bufobj); + p_src = DUK_HBUFOBJ_GET_SLICE_BASE(thr->heap, h_bufarg); + + DUK_DDD(DUK_DDDPRINT("using memcpy: p_src=%p, p_dst=%p, byte_length=%ld", + (void *) p_src, (void *) p_dst, (long) byte_length)); + + duk_memcpy_unsafe((void *) p_dst, (const void *) p_src, (size_t) byte_length); + break; + } + case 1: { + /* Copy values through direct validated reads and writes. */ + + duk_small_uint_t src_elem_size; + duk_small_uint_t dst_elem_size; + duk_uint8_t *p_src; + duk_uint8_t *p_src_end; + duk_uint8_t *p_dst; + + DUK_ASSERT(h_bufobj != NULL); + DUK_ASSERT(h_bufobj->buf != NULL); + DUK_ASSERT(DUK_HBUFOBJ_VALID_SLICE(h_bufobj)); + DUK_ASSERT(h_bufarg != NULL); + DUK_ASSERT(h_bufarg->buf != NULL); + DUK_ASSERT(DUK_HBUFOBJ_VALID_SLICE(h_bufarg)); + + src_elem_size = (duk_small_uint_t) (1U << h_bufarg->shift); + dst_elem_size = elem_size; + + p_src = DUK_HBUFOBJ_GET_SLICE_BASE(thr->heap, h_bufarg); + p_dst = DUK_HBUFOBJ_GET_SLICE_BASE(thr->heap, h_bufobj); + p_src_end = p_src + h_bufarg->length; + + DUK_DDD(DUK_DDDPRINT("using fast copy: p_src=%p, p_src_end=%p, p_dst=%p, " + "src_elem_size=%d, dst_elem_size=%d", + (void *) p_src, (void *) p_src_end, (void *) p_dst, + (int) src_elem_size, (int) dst_elem_size)); + + while (p_src != p_src_end) { + DUK_DDD(DUK_DDDPRINT("fast path per element copy loop: " + "p_src=%p, p_src_end=%p, p_dst=%p", + (void *) p_src, (void *) p_src_end, (void *) p_dst)); + /* A validated read() is always a number, so it's write coercion + * is always side effect free an won't invalidate pointers etc. + */ + duk_hbufobj_push_validated_read(thr, h_bufarg, p_src, src_elem_size); + duk_hbufobj_validated_write(thr, h_bufobj, p_dst, dst_elem_size); + duk_pop(thr); + p_src += src_elem_size; + p_dst += dst_elem_size; + } + break; + } +#endif /* !DUK_USE_PREFER_SIZE */ + case 2: { + /* Copy values by index reads and writes. Let virtual + * property handling take care of coercion. + */ + duk_uint_t i; + + DUK_DDD(DUK_DDDPRINT("using slow copy")); + + for (i = 0; i < elem_length; i++) { + duk_get_prop_index(thr, 0, (duk_uarridx_t) i); + duk_put_prop_index(thr, -2, (duk_uarridx_t) i); + } + break; + } + default: + case 3: { + /* No copy, leave zero bytes in the buffer. There's no + * ambiguity with Float32/Float64 because zero bytes also + * represent 0.0. + */ + + DUK_DDD(DUK_DDDPRINT("using no copy")); + break; + } + } + + return 1; + + fail_arguments: + DUK_DCERROR_RANGE_INVALID_ARGS(thr); +} +#else /* DUK_USE_BUFFEROBJECT_SUPPORT */ +/* When bufferobject support is disabled, new Uint8Array() could still be + * supported to create a plain fixed buffer. Disabled for now. + */ +#if 0 +DUK_INTERNAL duk_ret_t duk_bi_typedarray_constructor(duk_hthread *thr) { + duk_int_t elem_length_signed; + duk_uint_t byte_length; + + /* XXX: The same copy helpers could be shared with at least some + * buffer functions. + */ + + duk_require_constructor_call(thr); + + elem_length_signed = duk_require_int(thr, 0); + if (elem_length_signed < 0) { + goto fail_arguments; + } + byte_length = (duk_uint_t) elem_length_signed; + + (void) duk_push_fixed_buffer_zero(thr, (duk_size_t) byte_length); + return 1; + + fail_arguments: + DUK_DCERROR_RANGE_INVALID_ARGS(thr); +} +#endif /* 0 */ +#endif /* DUK_USE_BUFFEROBJECT_SUPPORT */ + +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) +DUK_INTERNAL duk_ret_t duk_bi_dataview_constructor(duk_hthread *thr) { + duk_hbufobj *h_bufarg; + duk_hbufobj *h_bufobj; + duk_hbuffer *h_val; + duk_uint_t offset; + duk_uint_t length; + + duk_require_constructor_call(thr); + + h_bufarg = duk__require_bufobj_value(thr, 0); + DUK_ASSERT(h_bufarg != NULL); + if (DUK_HOBJECT_GET_CLASS_NUMBER((duk_hobject *) h_bufarg) != DUK_HOBJECT_CLASS_ARRAYBUFFER) { + DUK_DCERROR_TYPE_INVALID_ARGS(thr); + } + + duk__resolve_offset_opt_length(thr, h_bufarg, 1, 2, &offset, &length, 1 /*throw_flag*/); + DUK_ASSERT(offset <= h_bufarg->length); + DUK_ASSERT(offset + length <= h_bufarg->length); + + h_bufobj = duk_push_bufobj_raw(thr, + DUK_HOBJECT_FLAG_EXTENSIBLE | + DUK_HOBJECT_FLAG_BUFOBJ | + DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_DATAVIEW), + DUK_BIDX_DATAVIEW_PROTOTYPE); + + h_val = h_bufarg->buf; + if (h_val == NULL) { + DUK_DCERROR_TYPE_INVALID_ARGS(thr); + } + h_bufobj->buf = h_val; + DUK_HBUFFER_INCREF(thr, h_val); + h_bufobj->offset = h_bufarg->offset + offset; + h_bufobj->length = length; + DUK_ASSERT(h_bufobj->shift == 0); + DUK_ASSERT(h_bufobj->elem_type == DUK_HBUFOBJ_ELEM_UINT8); + DUK_ASSERT(h_bufobj->is_typedarray == 0); + + DUK_ASSERT(h_bufobj->buf_prop == NULL); + h_bufobj->buf_prop = (duk_hobject *) h_bufarg; + DUK_ASSERT(h_bufarg != NULL); + DUK_HBUFOBJ_INCREF(thr, h_bufarg); + + DUK_HBUFOBJ_ASSERT_VALID(h_bufobj); + return 1; +} +#endif /* DUK_USE_BUFFEROBJECT_SUPPORT */ + +/* + * ArrayBuffer.isView() + */ + +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) +DUK_INTERNAL duk_ret_t duk_bi_arraybuffer_isview(duk_hthread *thr) { + duk_hobject *h_obj; + duk_bool_t ret = 0; + + if (duk_is_buffer(thr, 0)) { + ret = 1; + } else { + h_obj = duk_get_hobject(thr, 0); + if (h_obj != NULL && DUK_HOBJECT_IS_BUFOBJ(h_obj)) { + /* DataView needs special casing: ArrayBuffer.isView() is + * true, but ->is_typedarray is 0. + */ + ret = ((duk_hbufobj *) h_obj)->is_typedarray || + (DUK_HOBJECT_GET_CLASS_NUMBER(h_obj) == DUK_HOBJECT_CLASS_DATAVIEW); + } + } + duk_push_boolean(thr, ret); + return 1; +} +#endif /* DUK_USE_BUFFEROBJECT_SUPPORT */ + +/* + * Uint8Array.allocPlain() + */ + +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) +DUK_INTERNAL duk_ret_t duk_bi_uint8array_allocplain(duk_hthread *thr) { + duk__hbufobj_fixed_from_argvalue(thr); + return 1; +} +#endif /* DUK_USE_BUFFEROBJECT_SUPPORT */ + +/* + * Uint8Array.plainOf() + */ + +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) +DUK_INTERNAL duk_ret_t duk_bi_uint8array_plainof(duk_hthread *thr) { + duk_hbufobj *h_bufobj; + +#if !defined(DUK_USE_PREFER_SIZE) + /* Avoid churn if argument is already a plain buffer. */ + if (duk_is_buffer(thr, 0)) { + return 1; + } +#endif + + /* Promotes plain buffers to ArrayBuffers, so for a plain buffer + * argument we'll create a pointless temporary (but still work + * correctly). + */ + h_bufobj = duk__require_bufobj_value(thr, 0); + if (h_bufobj->buf == NULL) { + duk_push_undefined(thr); + } else { + duk_push_hbuffer(thr, h_bufobj->buf); + } + return 1; +} +#endif /* DUK_USE_BUFFEROBJECT_SUPPORT */ + +/* + * Node.js Buffer: toString([encoding], [start], [end]) + */ + +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) +DUK_INTERNAL duk_ret_t duk_bi_nodejs_buffer_tostring(duk_hthread *thr) { + duk_hbufobj *h_this; + duk_int_t start_offset, end_offset; + duk_uint8_t *buf_slice; + duk_size_t slice_length; + + h_this = duk__get_bufobj_this(thr); + if (h_this == NULL) { + /* XXX: happens e.g. when evaluating: String(Buffer.prototype). */ + duk_push_literal(thr, "[object Object]"); + return 1; + } + DUK_HBUFOBJ_ASSERT_VALID(h_this); + + /* Ignore encoding for now. */ + + duk__clamp_startend_nonegidx_noshift(thr, + (duk_int_t) h_this->length, + 1 /*idx_start*/, + 2 /*idx_end*/, + &start_offset, + &end_offset); + + slice_length = (duk_size_t) (end_offset - start_offset); + buf_slice = (duk_uint8_t *) duk_push_fixed_buffer_nozero(thr, slice_length); /* all bytes initialized below */ + DUK_ASSERT(buf_slice != NULL); + + /* Neutered or uncovered, TypeError. */ + if (h_this->buf == NULL || + !DUK_HBUFOBJ_VALID_BYTEOFFSET_EXCL(h_this, (duk_size_t) start_offset + slice_length)) { + DUK_DCERROR_TYPE_INVALID_ARGS(thr); + } + + /* XXX: ideally we wouldn't make a copy but a view into the buffer for the + * decoding process. Or the decoding helper could be changed to accept + * the slice info (a buffer pointer is NOT a good approach because guaranteeing + * its stability is difficult). + */ + + DUK_ASSERT(DUK_HBUFOBJ_VALID_BYTEOFFSET_EXCL(h_this, (duk_size_t) start_offset + slice_length)); + duk_memcpy_unsafe((void *) buf_slice, + (const void *) (DUK_HBUFOBJ_GET_SLICE_BASE(thr->heap, h_this) + start_offset), + (size_t) slice_length); + + /* Use the equivalent of: new TextEncoder().encode(this) to convert the + * string. Result will be valid UTF-8; non-CESU-8 inputs are currently + * interpreted loosely. Value stack convention is a bit odd for now. + */ + duk_replace(thr, 0); + duk_set_top(thr, 1); + return duk_textdecoder_decode_utf8_nodejs(thr); +} +#endif /* DUK_USE_BUFFEROBJECT_SUPPORT */ + +/* + * Node.js Buffer.prototype: toJSON() + */ + +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) +DUK_INTERNAL duk_ret_t duk_bi_nodejs_buffer_tojson(duk_hthread *thr) { + duk_hbufobj *h_this; + duk_uint8_t *buf; + duk_uint_t i, n; + duk_tval *tv; + + h_this = duk__require_bufobj_this(thr); + DUK_ASSERT(h_this != NULL); + + if (h_this->buf == NULL || !DUK_HBUFOBJ_VALID_SLICE(h_this)) { + /* Serialize uncovered backing buffer as a null; doesn't + * really matter as long we're memory safe. + */ + duk_push_null(thr); + return 1; + } + + duk_push_object(thr); + duk_push_hstring_stridx(thr, DUK_STRIDX_UC_BUFFER); + duk_put_prop_stridx_short(thr, -2, DUK_STRIDX_TYPE); + + /* XXX: uninitialized would be OK */ + DUK_ASSERT_DISABLE((duk_size_t) h_this->length <= (duk_size_t) DUK_UINT32_MAX); + tv = duk_push_harray_with_size_outptr(thr, (duk_uint32_t) h_this->length); /* XXX: needs revision with >4G buffers */ + DUK_ASSERT(!duk_is_bare_object(thr, -1)); + + DUK_ASSERT(h_this->buf != NULL); + buf = DUK_HBUFOBJ_GET_SLICE_BASE(thr->heap, h_this); + for (i = 0, n = h_this->length; i < n; i++) { + DUK_TVAL_SET_U32(tv + i, (duk_uint32_t) buf[i]); /* no need for decref or incref */ + } + duk_put_prop_stridx_short(thr, -2, DUK_STRIDX_DATA); + + return 1; +} +#endif /* DUK_USE_BUFFEROBJECT_SUPPORT */ + +/* + * Node.js Buffer.prototype.equals() + * Node.js Buffer.prototype.compare() + * Node.js Buffer.compare() + */ + +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) +DUK_INTERNAL duk_ret_t duk_bi_buffer_compare_shared(duk_hthread *thr) { + duk_small_uint_t magic; + duk_hbufobj *h_bufarg1; + duk_hbufobj *h_bufarg2; + duk_small_int_t comp_res; + + /* XXX: keep support for plain buffers and non-Node.js buffers? */ + + magic = (duk_small_uint_t) duk_get_current_magic(thr); + if (magic & 0x02U) { + /* Static call style. */ + h_bufarg1 = duk__require_bufobj_value(thr, 0); + h_bufarg2 = duk__require_bufobj_value(thr, 1); + } else { + h_bufarg1 = duk__require_bufobj_this(thr); + h_bufarg2 = duk__require_bufobj_value(thr, 0); + } + DUK_ASSERT(h_bufarg1 != NULL); + DUK_ASSERT(h_bufarg2 != NULL); + + /* We want to compare the slice/view areas of the arguments. + * If either slice/view is invalid (underlying buffer is shorter) + * ensure equals() is false, but otherwise the only thing that + * matters is to be memory safe. + */ + + if (DUK_HBUFOBJ_VALID_SLICE(h_bufarg1) && + DUK_HBUFOBJ_VALID_SLICE(h_bufarg2)) { + comp_res = duk_js_data_compare((const duk_uint8_t *) DUK_HBUFFER_GET_DATA_PTR(thr->heap, h_bufarg1->buf) + h_bufarg1->offset, + (const duk_uint8_t *) DUK_HBUFFER_GET_DATA_PTR(thr->heap, h_bufarg2->buf) + h_bufarg2->offset, + (duk_size_t) h_bufarg1->length, + (duk_size_t) h_bufarg2->length); + } else { + comp_res = -1; /* either nonzero value is ok */ + } + + if (magic & 0x01U) { + /* compare: similar to string comparison but for buffer data. */ + duk_push_int(thr, comp_res); + } else { + /* equals */ + duk_push_boolean(thr, (comp_res == 0)); + } + + return 1; +} +#endif /* DUK_USE_BUFFEROBJECT_SUPPORT */ + +/* + * Node.js Buffer.prototype.fill() + */ + +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) +DUK_INTERNAL duk_ret_t duk_bi_nodejs_buffer_fill(duk_hthread *thr) { + duk_hbufobj *h_this; + const duk_uint8_t *fill_str_ptr; + duk_size_t fill_str_len; + duk_uint8_t fill_value; + duk_int_t fill_offset; + duk_int_t fill_end; + duk_size_t fill_length; + duk_uint8_t *p; + + h_this = duk__require_bufobj_this(thr); + DUK_ASSERT(h_this != NULL); + if (h_this->buf == NULL) { + DUK_DCERROR_TYPE_INVALID_ARGS(thr); + } + + /* [ value offset end ] */ + + if (duk_is_string_notsymbol(thr, 0)) { + fill_str_ptr = (const duk_uint8_t *) duk_get_lstring(thr, 0, &fill_str_len); + DUK_ASSERT(fill_str_ptr != NULL); + } else { + /* Symbols get ToNumber() coerced and cause TypeError. */ + fill_value = (duk_uint8_t) duk_to_uint32(thr, 0); + fill_str_ptr = (const duk_uint8_t *) &fill_value; + fill_str_len = 1; + } + + /* Fill offset handling is more lenient than in Node.js. */ + + duk__clamp_startend_nonegidx_noshift(thr, + (duk_int_t) h_this->length, + 1 /*idx_start*/, + 2 /*idx_end*/, + &fill_offset, + &fill_end); + + DUK_DDD(DUK_DDDPRINT("fill: fill_value=%02x, fill_offset=%ld, fill_end=%ld, view length=%ld", + (unsigned int) fill_value, (long) fill_offset, (long) fill_end, (long) h_this->length)); + + DUK_ASSERT(fill_end - fill_offset >= 0); + DUK_ASSERT(h_this->buf != NULL); + + p = (DUK_HBUFOBJ_GET_SLICE_BASE(thr->heap, h_this) + fill_offset); + fill_length = (duk_size_t) (fill_end - fill_offset); + if (fill_str_len == 1) { + /* Handle single character fills as memset() even when + * the fill data comes from a one-char argument. + */ + duk_memset_unsafe((void *) p, (int) fill_str_ptr[0], (size_t) fill_length); + } else if (fill_str_len > 1) { + duk_size_t i, n, t; + + for (i = 0, n = (duk_size_t) (fill_end - fill_offset), t = 0; i < n; i++) { + p[i] = fill_str_ptr[t++]; + if (t >= fill_str_len) { + t = 0; + } + } + } else { + DUK_DDD(DUK_DDDPRINT("zero size fill pattern, ignore silently")); + } + + /* Return the Buffer to allow chaining: b.fill(0x11).fill(0x22, 3, 5).toString() */ + duk_push_this(thr); + return 1; +} +#endif /* DUK_USE_BUFFEROBJECT_SUPPORT */ + +/* + * Node.js Buffer.prototype.write(string, [offset], [length], [encoding]) + */ + +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) +DUK_INTERNAL duk_ret_t duk_bi_nodejs_buffer_write(duk_hthread *thr) { + duk_hbufobj *h_this; + duk_uint_t offset; + duk_uint_t length; + const duk_uint8_t *str_data; + duk_size_t str_len; + + /* XXX: very inefficient support for plain buffers */ + h_this = duk__require_bufobj_this(thr); + DUK_ASSERT(h_this != NULL); + + /* Argument must be a string, e.g. a buffer is not allowed. */ + str_data = (const duk_uint8_t *) duk_require_lstring_notsymbol(thr, 0, &str_len); + + duk__resolve_offset_opt_length(thr, h_this, 1, 2, &offset, &length, 0 /*throw_flag*/); + DUK_ASSERT(offset <= h_this->length); + DUK_ASSERT(offset + length <= h_this->length); + + /* XXX: encoding is ignored now. */ + + if (length > str_len) { + length = (duk_uint_t) str_len; + } + + if (DUK_HBUFOBJ_VALID_SLICE(h_this)) { + /* Cannot overlap. */ + duk_memcpy_unsafe((void *) (DUK_HBUFOBJ_GET_SLICE_BASE(thr->heap, h_this) + offset), + (const void *) str_data, + (size_t) length); + } else { + DUK_DDD(DUK_DDDPRINT("write() target buffer is not covered, silent ignore")); + } + + duk_push_uint(thr, length); + return 1; +} +#endif /* DUK_USE_BUFFEROBJECT_SUPPORT */ + +/* + * Node.js Buffer.prototype.copy() + */ + +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) +DUK_INTERNAL duk_ret_t duk_bi_nodejs_buffer_copy(duk_hthread *thr) { + duk_hbufobj *h_this; + duk_hbufobj *h_bufarg; + duk_int_t source_length; + duk_int_t target_length; + duk_int_t target_start, source_start, source_end; + duk_uint_t target_ustart, source_ustart, source_uend; + duk_uint_t copy_size = 0; + + /* [ targetBuffer targetStart sourceStart sourceEnd ] */ + + h_this = duk__require_bufobj_this(thr); + h_bufarg = duk__require_bufobj_value(thr, 0); + DUK_ASSERT(h_this != NULL); + DUK_ASSERT(h_bufarg != NULL); + source_length = (duk_int_t) h_this->length; + target_length = (duk_int_t) h_bufarg->length; + + target_start = duk_to_int(thr, 1); + source_start = duk_to_int(thr, 2); + if (duk_is_undefined(thr, 3)) { + source_end = source_length; + } else { + source_end = duk_to_int(thr, 3); + } + + DUK_DDD(DUK_DDDPRINT("checking copy args: target_start=%ld, target_length=%ld, " + "source_start=%ld, source_end=%ld, source_length=%ld", + (long) target_start, (long) h_bufarg->length, + (long) source_start, (long) source_end, (long) source_length)); + + /* This behavior mostly mimics Node.js now. */ + + if (source_start < 0 || source_end < 0 || target_start < 0) { + /* Negative offsets cause a RangeError. */ + goto fail_bounds; + } + source_ustart = (duk_uint_t) source_start; + source_uend = (duk_uint_t) source_end; + target_ustart = (duk_uint_t) target_start; + if (source_ustart >= source_uend || /* crossed offsets or zero size */ + source_ustart >= (duk_uint_t) source_length || /* source out-of-bounds (but positive) */ + target_ustart >= (duk_uint_t) target_length) { /* target out-of-bounds (but positive) */ + goto silent_ignore; + } + if (source_uend >= (duk_uint_t) source_length) { + /* Source end clamped silently to available length. */ + source_uend = (duk_uint_t) source_length; + } + copy_size = source_uend - source_ustart; + if (target_ustart + copy_size > (duk_uint_t) target_length) { + /* Clamp to target's end if too long. + * + * NOTE: there's no overflow possibility in the comparison; + * both target_ustart and copy_size are >= 0 and based on + * values in duk_int_t range. Adding them as duk_uint_t + * values is then guaranteed not to overflow. + */ + DUK_ASSERT(target_ustart + copy_size >= target_ustart); /* no overflow */ + DUK_ASSERT(target_ustart + copy_size >= copy_size); /* no overflow */ + copy_size = (duk_uint_t) target_length - target_ustart; + } + + DUK_DDD(DUK_DDDPRINT("making copy: target_ustart=%lu source_ustart=%lu copy_size=%lu", + (unsigned long) target_ustart, (unsigned long) source_ustart, + (unsigned long) copy_size)); + + DUK_ASSERT(copy_size >= 1); + DUK_ASSERT(source_ustart <= (duk_uint_t) source_length); + DUK_ASSERT(source_ustart + copy_size <= (duk_uint_t) source_length); + DUK_ASSERT(target_ustart <= (duk_uint_t) target_length); + DUK_ASSERT(target_ustart + copy_size <= (duk_uint_t) target_length); + + /* Ensure copy is covered by underlying buffers. */ + DUK_ASSERT(h_bufarg->buf != NULL); /* length check */ + DUK_ASSERT(h_this->buf != NULL); /* length check */ + if (DUK_HBUFOBJ_VALID_BYTEOFFSET_EXCL(h_bufarg, target_ustart + copy_size) && + DUK_HBUFOBJ_VALID_BYTEOFFSET_EXCL(h_this, source_ustart + copy_size)) { + /* Must use memmove() because copy area may overlap (source and target + * buffer may be the same, or from different slices. + */ + duk_memmove_unsafe((void *) (DUK_HBUFOBJ_GET_SLICE_BASE(thr->heap, h_bufarg) + target_ustart), + (const void *) (DUK_HBUFOBJ_GET_SLICE_BASE(thr->heap, h_this) + source_ustart), + (size_t) copy_size); + } else { + DUK_DDD(DUK_DDDPRINT("buffer copy not covered by underlying buffer(s), ignoring")); + } + + silent_ignore: + /* Return value is like write(), number of bytes written. + * The return value matters because of code like: + * "off += buf.copy(...)". + */ + duk_push_uint(thr, copy_size); + return 1; + + fail_bounds: + DUK_DCERROR_RANGE_INVALID_ARGS(thr); +} +#endif /* DUK_USE_BUFFEROBJECT_SUPPORT */ + +/* + * TypedArray.prototype.set() + * + * TypedArray set() is pretty interesting to implement because: + * + * - The source argument may be a plain array or a typedarray. If the + * source is a TypedArray, values are decoded and re-encoded into the + * target (not as a plain byte copy). This may happen even when the + * element byte size is the same, e.g. integer values may be re-encoded + * into floats. + * + * - Source and target may refer to the same underlying buffer, so that + * the set() operation may overlap. The specification requires that this + * must work as if a copy was made before the operation. Note that this + * is NOT a simple memmove() situation because the source and target + * byte sizes may be different -- e.g. a 4-byte source (Int8Array) may + * expand to a 16-byte target (Uint32Array) so that the target overlaps + * the source both from beginning and the end (unlike in typical memmove). + * + * - Even if 'buf' pointers of the source and target differ, there's no + * guarantee that their memory areas don't overlap. This may be the + * case with external buffers. + * + * Even so, it is nice to optimize for the common case: + * + * - Source and target separate buffers or non-overlapping. + * + * - Source and target have a compatible type so that a plain byte copy + * is possible. Note that while e.g. uint8 and int8 are compatible + * (coercion one way or another doesn't change the byte representation), + * e.g. int8 and uint8clamped are NOT compatible when writing int8 + * values into uint8clamped typedarray (-1 would clamp to 0 for instance). + * + * See test-bi-typedarray-proto-set.js. + */ + +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) +DUK_INTERNAL duk_ret_t duk_bi_typedarray_set(duk_hthread *thr) { + duk_hbufobj *h_this; + duk_hobject *h_obj; + duk_uarridx_t i, n; + duk_int_t offset_signed; + duk_uint_t offset_elems; + duk_uint_t offset_bytes; + + h_this = duk__require_bufobj_this(thr); + DUK_ASSERT(h_this != NULL); + DUK_HBUFOBJ_ASSERT_VALID(h_this); + + if (h_this->buf == NULL) { + DUK_DDD(DUK_DDDPRINT("source neutered, skip copy")); + return 0; + } + + duk_hbufobj_promote_plain(thr, 0); + h_obj = duk_require_hobject(thr, 0); + + /* XXX: V8 throws a TypeError for negative values. Would it + * be more useful to interpret negative offsets here from the + * end of the buffer too? + */ + offset_signed = duk_to_int(thr, 1); + if (offset_signed < 0) { + /* For some reason this is a TypeError (at least in V8). */ + DUK_DCERROR_TYPE_INVALID_ARGS(thr); + } + offset_elems = (duk_uint_t) offset_signed; + offset_bytes = offset_elems << h_this->shift; + if ((offset_bytes >> h_this->shift) != offset_elems) { + /* Byte length would overflow. */ + /* XXX: easier check with less code? */ + goto fail_args; + } + if (offset_bytes > h_this->length) { + /* Equality may be OK but >length not. Checking + * this explicitly avoids some overflow cases + * below. + */ + goto fail_args; + } + DUK_ASSERT(offset_bytes <= h_this->length); + + /* Fast path: source is a TypedArray (or any bufobj). */ + + if (DUK_HOBJECT_IS_BUFOBJ(h_obj)) { + duk_hbufobj *h_bufarg; +#if !defined(DUK_USE_PREFER_SIZE) + duk_uint16_t comp_mask; +#endif + duk_small_int_t no_overlap = 0; + duk_uint_t src_length; + duk_uint_t dst_length; + duk_uint_t dst_length_elems; + duk_uint8_t *p_src_base; + duk_uint8_t *p_src_end; + duk_uint8_t *p_src; + duk_uint8_t *p_dst_base; + duk_uint8_t *p_dst; + duk_small_uint_t src_elem_size; + duk_small_uint_t dst_elem_size; + + h_bufarg = (duk_hbufobj *) h_obj; + DUK_HBUFOBJ_ASSERT_VALID(h_bufarg); + + if (h_bufarg->buf == NULL) { + DUK_DDD(DUK_DDDPRINT("target neutered, skip copy")); + return 0; + } + + /* Nominal size check. */ + src_length = h_bufarg->length; /* bytes in source */ + dst_length_elems = (src_length >> h_bufarg->shift); /* elems in source and dest */ + dst_length = dst_length_elems << h_this->shift; /* bytes in dest */ + if ((dst_length >> h_this->shift) != dst_length_elems) { + /* Byte length would overflow. */ + /* XXX: easier check with less code? */ + goto fail_args; + } + DUK_DDD(DUK_DDDPRINT("nominal size check: src_length=%ld, dst_length=%ld", + (long) src_length, (long) dst_length)); + DUK_ASSERT(offset_bytes <= h_this->length); + if (dst_length > h_this->length - offset_bytes) { + /* Overflow not an issue because subtraction is used on the right + * side and guaranteed to be >= 0. + */ + DUK_DDD(DUK_DDDPRINT("copy exceeds target buffer nominal length")); + goto fail_args; + } + if (!DUK_HBUFOBJ_VALID_BYTEOFFSET_EXCL(h_this, offset_bytes + dst_length)) { + DUK_DDD(DUK_DDDPRINT("copy not covered by underlying target buffer, ignore")); + return 0; + } + + p_src_base = DUK_HBUFOBJ_GET_SLICE_BASE(thr->heap, h_bufarg); + p_dst_base = DUK_HBUFOBJ_GET_SLICE_BASE(thr->heap, h_this) + offset_bytes; + + /* Check actual underlying buffers for validity and that they + * cover the copy. No side effects are allowed after the check + * so that the validity status doesn't change. + */ + if (!DUK_HBUFOBJ_VALID_SLICE(h_this) || + !DUK_HBUFOBJ_VALID_SLICE(h_bufarg)) { + /* The condition could be more narrow and check for the + * copy area only, but there's no need for fine grained + * behavior when the underlying buffer is misconfigured. + */ + DUK_DDD(DUK_DDDPRINT("source and/or target not covered by underlying buffer, skip copy")); + return 0; + } + + /* We want to do a straight memory copy if possible: this is + * an important operation because .set() is the TypedArray + * way to copy chunks of memory. However, because set() + * conceptually works in terms of elements, not all views are + * compatible with direct byte copying. + * + * If we do manage a direct copy, the "overlap issue" handled + * below can just be solved using memmove() because the source + * and destination element sizes are necessarily equal. + */ + +#if !defined(DUK_USE_PREFER_SIZE) + DUK_ASSERT(h_this->elem_type < sizeof(duk__buffer_elemtype_copy_compatible) / sizeof(duk_uint16_t)); + comp_mask = duk__buffer_elemtype_copy_compatible[h_this->elem_type]; + if (comp_mask & (1 << h_bufarg->elem_type)) { + DUK_ASSERT(src_length == dst_length); + + DUK_DDD(DUK_DDDPRINT("fast path: able to use memmove() because views are compatible")); + duk_memmove_unsafe((void *) p_dst_base, (const void *) p_src_base, (size_t) dst_length); + return 0; + } + DUK_DDD(DUK_DDDPRINT("fast path: views are not compatible with a byte copy, copy by item")); +#endif /* !DUK_USE_PREFER_SIZE */ + + /* We want to avoid making a copy to process set() but that's + * not always possible: the source and the target may overlap + * and because element sizes are different, the overlap cannot + * always be handled with a memmove() or choosing the copy + * direction in a certain way. For example, if source type is + * uint8 and target type is uint32, the target area may exceed + * the source area from both ends! + * + * Note that because external buffers may point to the same + * memory areas, we must ultimately make this check using + * pointers. + * + * NOTE: careful with side effects: any side effect may cause + * a buffer resize (or external buffer pointer/length update)! + */ + + DUK_DDD(DUK_DDDPRINT("overlap check: p_src_base=%p, src_length=%ld, " + "p_dst_base=%p, dst_length=%ld", + (void *) p_src_base, (long) src_length, + (void *) p_dst_base, (long) dst_length)); + + if (p_src_base >= p_dst_base + dst_length || /* source starts after dest ends */ + p_src_base + src_length <= p_dst_base) { /* source ends before dest starts */ + no_overlap = 1; + } + + if (!no_overlap) { + /* There's overlap: the desired end result is that + * conceptually a copy is made to avoid "trampling" + * of source data by destination writes. We make + * an actual temporary copy to handle this case. + */ + duk_uint8_t *p_src_copy; + + DUK_DDD(DUK_DDDPRINT("there is overlap, make a copy of the source")); + p_src_copy = (duk_uint8_t *) duk_push_fixed_buffer_nozero(thr, src_length); + DUK_ASSERT(p_src_copy != NULL); + duk_memcpy_unsafe((void *) p_src_copy, (const void *) p_src_base, (size_t) src_length); + + p_src_base = p_src_copy; /* use p_src_base from now on */ + } + /* Value stack intentionally mixed size here. */ + + DUK_DDD(DUK_DDDPRINT("after overlap check: p_src_base=%p, src_length=%ld, " + "p_dst_base=%p, dst_length=%ld, valstack top=%ld", + (void *) p_src_base, (long) src_length, + (void *) p_dst_base, (long) dst_length, + (long) duk_get_top(thr))); + + /* Ready to make the copy. We must proceed element by element + * and must avoid any side effects that might cause the buffer + * validity check above to become invalid. + * + * Although we work through the value stack here, only plain + * numbers are handled which should be side effect safe. + */ + + src_elem_size = (duk_small_uint_t) (1U << h_bufarg->shift); + dst_elem_size = (duk_small_uint_t) (1U << h_this->shift); + p_src = p_src_base; + p_dst = p_dst_base; + p_src_end = p_src_base + src_length; + + while (p_src != p_src_end) { + DUK_DDD(DUK_DDDPRINT("fast path per element copy loop: " + "p_src=%p, p_src_end=%p, p_dst=%p", + (void *) p_src, (void *) p_src_end, (void *) p_dst)); + /* A validated read() is always a number, so it's write coercion + * is always side effect free an won't invalidate pointers etc. + */ + duk_hbufobj_push_validated_read(thr, h_bufarg, p_src, src_elem_size); + duk_hbufobj_validated_write(thr, h_this, p_dst, dst_elem_size); + duk_pop(thr); + p_src += src_elem_size; + p_dst += dst_elem_size; + } + + return 0; + } else { + /* Slow path: quite slow, but we save space by using the property code + * to write coerce target values. We don't need to worry about overlap + * here because the source is not a TypedArray. + * + * We could use the bufobj write coercion helper but since the + * property read may have arbitrary side effects, full validity checks + * would be needed for every element anyway. + */ + + n = (duk_uarridx_t) duk_get_length(thr, 0); + DUK_ASSERT(offset_bytes <= h_this->length); + if ((n << h_this->shift) > h_this->length - offset_bytes) { + /* Overflow not an issue because subtraction is used on the right + * side and guaranteed to be >= 0. + */ + DUK_DDD(DUK_DDDPRINT("copy exceeds target buffer nominal length")); + goto fail_args; + } + + /* There's no need to check for buffer validity status for the + * target here: the property access code will do that for each + * element. Moreover, if we did check the validity here, side + * effects from reading the source argument might invalidate + * the results anyway. + */ + + DUK_ASSERT_TOP(thr, 2); + duk_push_this(thr); + + for (i = 0; i < n; i++) { + duk_get_prop_index(thr, 0, i); + duk_put_prop_index(thr, 2, offset_elems + i); + } + } + + return 0; + + fail_args: + DUK_DCERROR_RANGE_INVALID_ARGS(thr); +} +#endif /* DUK_USE_BUFFEROBJECT_SUPPORT */ + +/* + * Node.js Buffer.prototype.slice([start], [end]) + * ArrayBuffer.prototype.slice(begin, [end]) + * TypedArray.prototype.subarray(begin, [end]) + * + * The API calls are almost identical; negative indices are counted from end + * of buffer, and final indices are clamped (allowing crossed indices). Main + * differences: + * + * - Copy/view behavior; Node.js .slice() and TypedArray .subarray() create + * views, ArrayBuffer .slice() creates a copy + * + * - Resulting object has a different class and prototype depending on the + * call (or 'this' argument) + * + * - TypedArray .subarray() arguments are element indices, not byte offsets + * + * - Plain buffer argument creates a plain buffer slice + */ + +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) +DUK_LOCAL void duk__arraybuffer_plain_slice(duk_hthread *thr, duk_hbuffer *h_val) { + duk_int_t start_offset, end_offset; + duk_uint_t slice_length; + duk_uint8_t *p_copy; + duk_size_t copy_length; + + duk__clamp_startend_negidx_shifted(thr, + (duk_int_t) DUK_HBUFFER_GET_SIZE(h_val), + 0 /*buffer_shift*/, + 0 /*idx_start*/, + 1 /*idx_end*/, + &start_offset, + &end_offset); + DUK_ASSERT(end_offset <= (duk_int_t) DUK_HBUFFER_GET_SIZE(h_val)); + DUK_ASSERT(start_offset >= 0); + DUK_ASSERT(end_offset >= start_offset); + slice_length = (duk_uint_t) (end_offset - start_offset); + + p_copy = (duk_uint8_t *) duk_push_fixed_buffer_nozero(thr, (duk_size_t) slice_length); + DUK_ASSERT(p_copy != NULL); + copy_length = slice_length; + + duk_memcpy_unsafe((void *) p_copy, + (const void *) ((duk_uint8_t *) DUK_HBUFFER_GET_DATA_PTR(thr->heap, h_val) + start_offset), + copy_length); +} +#endif /* DUK_USE_BUFFEROBJECT_SUPPORT */ + +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) +/* Shared helper for slice/subarray operation. + * Magic: 0x01=isView, 0x02=copy, 0x04=Node.js Buffer special handling. + */ +DUK_INTERNAL duk_ret_t duk_bi_buffer_slice_shared(duk_hthread *thr) { + duk_small_int_t magic; + duk_small_uint_t res_class_num; + duk_small_int_t res_proto_bidx; + duk_hbufobj *h_this; + duk_hbufobj *h_bufobj; + duk_hbuffer *h_val; + duk_int_t start_offset, end_offset; + duk_uint_t slice_length; + duk_tval *tv; + + /* [ start end ] */ + + magic = duk_get_current_magic(thr); + + tv = duk_get_borrowed_this_tval(thr); + DUK_ASSERT(tv != NULL); + + if (DUK_TVAL_IS_BUFFER(tv)) { + /* For plain buffers return a plain buffer slice. */ + h_val = DUK_TVAL_GET_BUFFER(tv); + DUK_ASSERT(h_val != NULL); + + if (magic & 0x02) { + /* Make copy: ArrayBuffer.prototype.slice() uses this. */ + duk__arraybuffer_plain_slice(thr, h_val); + return 1; + } else { + /* View into existing buffer: cannot be done if the + * result is a plain buffer because there's no slice + * info. So return an ArrayBuffer instance; coerce + * the 'this' binding into an object and behave as if + * the original call was for an Object-coerced plain + * buffer (handled automatically by duk__require_bufobj_this()). + */ + + DUK_DDD(DUK_DDDPRINT("slice() doesn't handle view into plain buffer, coerce 'this' to ArrayBuffer object")); + /* fall through */ + } + } + tv = NULL; /* No longer valid nor needed. */ + + h_this = duk__require_bufobj_this(thr); + + /* Slice offsets are element (not byte) offsets, which only matters + * for TypedArray views, Node.js Buffer and ArrayBuffer have shift + * zero so byte and element offsets are the same. Negative indices + * are counted from end of slice, crossed indices are allowed (and + * result in zero length result), and final values are clamped + * against the current slice. There's intentionally no check + * against the underlying buffer here. + */ + + duk__clamp_startend_negidx_shifted(thr, + (duk_int_t) h_this->length, + (duk_uint8_t) h_this->shift, + 0 /*idx_start*/, + 1 /*idx_end*/, + &start_offset, + &end_offset); + DUK_ASSERT(end_offset >= start_offset); + DUK_ASSERT(start_offset >= 0); + DUK_ASSERT(end_offset >= 0); + slice_length = (duk_uint_t) (end_offset - start_offset); + + /* The resulting buffer object gets the same class and prototype as + * the buffer in 'this', e.g. if the input is a Uint8Array the + * result is a Uint8Array; if the input is a Float32Array, the + * result is a Float32Array. The result internal prototype should + * be the default prototype for the class (e.g. initial value of + * Uint8Array.prototype), not copied from the argument (Duktape 1.x + * did that). + * + * Node.js Buffers have special handling: they're Uint8Arrays as far + * as the internal class is concerned, so the new Buffer should also + * be an Uint8Array but inherit from Buffer.prototype. + */ + res_class_num = DUK_HOBJECT_GET_CLASS_NUMBER((duk_hobject *) h_this); + DUK_ASSERT(res_class_num >= DUK_HOBJECT_CLASS_BUFOBJ_MIN); /* type check guarantees */ + DUK_ASSERT(res_class_num <= DUK_HOBJECT_CLASS_BUFOBJ_MAX); + res_proto_bidx = duk__buffer_proto_from_classnum[res_class_num - DUK_HOBJECT_CLASS_BUFOBJ_MIN]; + if (magic & 0x04) { + res_proto_bidx = DUK_BIDX_NODEJS_BUFFER_PROTOTYPE; + } + h_bufobj = duk_push_bufobj_raw(thr, + DUK_HOBJECT_FLAG_EXTENSIBLE | + DUK_HOBJECT_FLAG_BUFOBJ | + DUK_HOBJECT_CLASS_AS_FLAGS(res_class_num), + res_proto_bidx); + DUK_ASSERT(h_bufobj != NULL); + + DUK_ASSERT(h_bufobj->length == 0); + h_bufobj->shift = h_this->shift; /* inherit */ + h_bufobj->elem_type = h_this->elem_type; /* inherit */ + h_bufobj->is_typedarray = magic & 0x01; + DUK_ASSERT(h_bufobj->is_typedarray == 0 || h_bufobj->is_typedarray == 1); + + h_val = h_this->buf; + if (h_val == NULL) { + DUK_DCERROR_TYPE_INVALID_ARGS(thr); + } + + if (magic & 0x02) { + /* non-zero: make copy */ + duk_uint8_t *p_copy; + duk_size_t copy_length; + + p_copy = (duk_uint8_t *) duk_push_fixed_buffer_zero(thr, (duk_size_t) slice_length); /* must be zeroed, not all bytes always copied */ + DUK_ASSERT(p_copy != NULL); + + /* Copy slice, respecting underlying buffer limits; remainder + * is left as zero. + */ + copy_length = DUK_HBUFOBJ_CLAMP_BYTELENGTH(h_this, slice_length); + duk_memcpy_unsafe((void *) p_copy, + (const void *) (DUK_HBUFOBJ_GET_SLICE_BASE(thr->heap, h_this) + start_offset), + copy_length); + + h_val = duk_known_hbuffer(thr, -1); + + h_bufobj->buf = h_val; + DUK_HBUFFER_INCREF(thr, h_val); + h_bufobj->length = slice_length; + DUK_ASSERT(h_bufobj->offset == 0); + + duk_pop(thr); /* reachable so pop OK */ + } else { + h_bufobj->buf = h_val; + DUK_HBUFFER_INCREF(thr, h_val); + h_bufobj->length = slice_length; + h_bufobj->offset = h_this->offset + (duk_uint_t) start_offset; + + /* Copy the .buffer property, needed for TypedArray.prototype.subarray(). + * + * XXX: limit copy only for TypedArray classes specifically? + */ + + DUK_ASSERT(h_bufobj->buf_prop == NULL); + h_bufobj->buf_prop = h_this->buf_prop; /* may be NULL */ + DUK_HOBJECT_INCREF_ALLOWNULL(thr, (duk_hobject *) h_bufobj->buf_prop); + } + /* unbalanced stack on purpose */ + + DUK_HBUFOBJ_ASSERT_VALID(h_bufobj); + return 1; +} +#endif /* DUK_USE_BUFFEROBJECT_SUPPORT */ + +/* + * Node.js Buffer.isEncoding() + */ + +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) +DUK_INTERNAL duk_ret_t duk_bi_nodejs_buffer_is_encoding(duk_hthread *thr) { + const char *encoding; + + /* only accept lowercase 'utf8' now. */ + + encoding = duk_to_string(thr, 0); + DUK_ASSERT(duk_is_string(thr, 0)); /* guaranteed by duk_to_string() */ + duk_push_boolean(thr, DUK_STRCMP(encoding, "utf8") == 0); + return 1; +} +#endif /* DUK_USE_BUFFEROBJECT_SUPPORT */ + +/* + * Node.js Buffer.isBuffer() + */ + +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) +DUK_INTERNAL duk_ret_t duk_bi_nodejs_buffer_is_buffer(duk_hthread *thr) { + duk_hobject *h; + duk_hobject *h_proto; + duk_bool_t ret = 0; + + DUK_ASSERT(duk_get_top(thr) >= 1); /* nargs */ + h = duk_get_hobject(thr, 0); + if (h != NULL) { + h_proto = thr->builtins[DUK_BIDX_NODEJS_BUFFER_PROTOTYPE]; + DUK_ASSERT(h_proto != NULL); + + h = DUK_HOBJECT_GET_PROTOTYPE(thr->heap, h); + if (h != NULL) { + ret = duk_hobject_prototype_chain_contains(thr, h, h_proto, 0 /*ignore_loop*/); + } + } + + duk_push_boolean(thr, ret); + return 1; +} +#endif /* DUK_USE_BUFFEROBJECT_SUPPORT */ + +/* + * Node.js Buffer.byteLength() + */ + +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) +DUK_INTERNAL duk_ret_t duk_bi_nodejs_buffer_byte_length(duk_hthread *thr) { + const char *str; + duk_size_t len; + + /* At the moment Buffer() will just use the string bytes as + * is (ignoring encoding), so we return the string length here + * unconditionally. + */ + + /* XXX: to be revised; Old Node.js behavior just coerces any buffer + * values to string: + * $ node + * > Buffer.byteLength(new Uint32Array(10)) + * 20 + * > Buffer.byteLength(new Uint32Array(100)) + * 20 + * (The 20 comes from '[object Uint32Array]'.length + */ + + str = duk_to_lstring(thr, 0, &len); + DUK_UNREF(str); + duk_push_size_t(thr, len); + return 1; +} +#endif /* DUK_USE_BUFFEROBJECT_SUPPORT */ + +/* + * Node.js Buffer.concat() + */ + +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) +DUK_INTERNAL duk_ret_t duk_bi_nodejs_buffer_concat(duk_hthread *thr) { + duk_hobject *h_arg; + duk_uint_t total_length; + duk_hbufobj *h_bufobj; + duk_hbufobj *h_bufres; + duk_hbuffer *h_val; + duk_uint_t i, n; + duk_uint8_t *p; + duk_size_t space_left; + duk_size_t copy_size; + + /* Node.js accepts only actual Arrays. */ + h_arg = duk_require_hobject(thr, 0); + if (DUK_HOBJECT_GET_CLASS_NUMBER(h_arg) != DUK_HOBJECT_CLASS_ARRAY) { + DUK_DCERROR_TYPE_INVALID_ARGS(thr); + } + + /* Compute result length and validate argument buffers. */ + n = (duk_uint_t) duk_get_length(thr, 0); + total_length = 0; + for (i = 0; i < n; i++) { + /* Neutered checks not necessary here: neutered buffers have + * zero 'length' so we'll effectively skip them. + */ + DUK_ASSERT_TOP(thr, 2); /* [ array totalLength ] */ + duk_get_prop_index(thr, 0, (duk_uarridx_t) i); /* -> [ array totalLength buf ] */ + h_bufobj = duk__require_bufobj_value(thr, 2); + DUK_ASSERT(h_bufobj != NULL); + total_length += h_bufobj->length; + if (DUK_UNLIKELY(total_length < h_bufobj->length)) { + DUK_DCERROR_RANGE_INVALID_ARGS(thr); /* Wrapped. */ + } + duk_pop(thr); + } + /* In Node.js v0.12.1 a 1-element array is special and won't create a + * copy, this was fixed later so an explicit check no longer needed. + */ + + /* User totalLength overrides a computed length, but we'll check + * every copy in the copy loop. Note that duk_to_int() can + * technically have arbitrary side effects so we need to recheck + * the buffers in the copy loop. + */ + if (!duk_is_undefined(thr, 1) && n > 0) { + /* For n == 0, Node.js ignores totalLength argument and + * returns a zero length buffer. + */ + duk_int_t total_length_signed; + total_length_signed = duk_to_int(thr, 1); + if (total_length_signed < 0) { + DUK_DCERROR_RANGE_INVALID_ARGS(thr); + } + total_length = (duk_uint_t) total_length_signed; + } + + h_bufres = duk_push_bufobj_raw(thr, + DUK_HOBJECT_FLAG_EXTENSIBLE | + DUK_HOBJECT_FLAG_BUFOBJ | + DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_UINT8ARRAY), + DUK_BIDX_NODEJS_BUFFER_PROTOTYPE); + DUK_ASSERT(h_bufres != NULL); + + p = (duk_uint8_t *) duk_push_fixed_buffer_zero(thr, total_length); /* must be zeroed, all bytes not necessarily written over */ + DUK_ASSERT(p != NULL); + space_left = (duk_size_t) total_length; + + for (i = 0; i < n; i++) { + DUK_ASSERT_TOP(thr, 4); /* [ array totalLength bufres buf ] */ + + duk_get_prop_index(thr, 0, (duk_uarridx_t) i); + h_bufobj = duk__require_bufobj_value(thr, 4); + DUK_ASSERT(h_bufobj != NULL); + + copy_size = h_bufobj->length; + if (copy_size > space_left) { + copy_size = space_left; + } + + if (h_bufobj->buf != NULL && + DUK_HBUFOBJ_VALID_SLICE(h_bufobj)) { + duk_memcpy_unsafe((void *) p, + (const void *) DUK_HBUFOBJ_GET_SLICE_BASE(thr->heap, h_bufobj), + copy_size); + } else { + /* Just skip, leaving zeroes in the result. */ + ; + } + p += copy_size; + space_left -= copy_size; + + duk_pop(thr); + } + + h_val = duk_known_hbuffer(thr, -1); + + duk__set_bufobj_buffer(thr, h_bufres, h_val); + h_bufres->is_typedarray = 1; + DUK_HBUFOBJ_ASSERT_VALID(h_bufres); + + duk_pop(thr); /* pop plain buffer, now reachable through h_bufres */ + + return 1; /* return h_bufres */ +} +#endif /* DUK_USE_BUFFEROBJECT_SUPPORT */ + +/* + * Shared readfield and writefield methods + * + * The readfield/writefield methods need support for endianness and field + * types. All offsets are byte based so no offset shifting is needed. + */ + +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) +/* Format of magic, bits: + * 0...1: field type; 0=uint8, 1=uint16, 2=uint32, 3=float, 4=double, 5=unused, 6=unused, 7=unused + * 3: endianness: 0=little, 1=big + * 4: signed: 1=yes, 0=no + * 5: typedarray: 1=yes, 0=no + */ +#define DUK__FLD_8BIT 0 +#define DUK__FLD_16BIT 1 +#define DUK__FLD_32BIT 2 +#define DUK__FLD_FLOAT 3 +#define DUK__FLD_DOUBLE 4 +#define DUK__FLD_VARINT 5 +#define DUK__FLD_BIGENDIAN (1 << 3) +#define DUK__FLD_SIGNED (1 << 4) +#define DUK__FLD_TYPEDARRAY (1 << 5) + +/* XXX: split into separate functions for each field type? */ +DUK_INTERNAL duk_ret_t duk_bi_buffer_readfield(duk_hthread *thr) { + duk_small_uint_t magic = (duk_small_uint_t) duk_get_current_magic(thr); + duk_small_uint_t magic_ftype; + duk_small_uint_t magic_bigendian; + duk_small_uint_t magic_signed; + duk_small_uint_t magic_typedarray; + duk_small_uint_t endswap; + duk_hbufobj *h_this; + duk_bool_t no_assert; + duk_int_t offset_signed; + duk_uint_t offset; + duk_uint_t buffer_length; + duk_uint_t check_length; + duk_uint8_t *buf; + duk_double_union du; + + magic_ftype = magic & 0x0007U; + magic_bigendian = magic & 0x0008U; + magic_signed = magic & 0x0010U; + magic_typedarray = magic & 0x0020U; + + h_this = duk__require_bufobj_this(thr); /* XXX: very inefficient for plain buffers */ + DUK_ASSERT(h_this != NULL); + buffer_length = h_this->length; + + /* [ offset noAssert ], when ftype != DUK__FLD_VARINT */ + /* [ offset fieldByteLength noAssert ], when ftype == DUK__FLD_VARINT */ + /* [ offset littleEndian ], when DUK__FLD_TYPEDARRAY (regardless of ftype) */ + + /* Handle TypedArray vs. Node.js Buffer arg differences */ + if (magic_typedarray) { + no_assert = 0; +#if defined(DUK_USE_INTEGER_LE) + endswap = !duk_to_boolean(thr, 1); /* 1=little endian */ +#else + endswap = duk_to_boolean(thr, 1); /* 1=little endian */ +#endif + } else { + no_assert = duk_to_boolean(thr, (magic_ftype == DUK__FLD_VARINT) ? 2 : 1); +#if defined(DUK_USE_INTEGER_LE) + endswap = magic_bigendian; +#else + endswap = !magic_bigendian; +#endif + } + + /* Offset is coerced first to signed integer range and then to unsigned. + * This ensures we can add a small byte length (1-8) to the offset in + * bound checks and not wrap. + */ + offset_signed = duk_to_int(thr, 0); + offset = (duk_uint_t) offset_signed; + if (offset_signed < 0) { + goto fail_bounds; + } + + DUK_DDD(DUK_DDDPRINT("readfield, buffer_length=%ld, offset=%ld, no_assert=%d, " + "magic=%04x, magic_fieldtype=%d, magic_bigendian=%d, magic_signed=%d, " + "endswap=%u", + (long) buffer_length, (long) offset, (int) no_assert, + (unsigned int) magic, (int) magic_ftype, (int) (magic_bigendian >> 3), + (int) (magic_signed >> 4), (int) endswap)); + + /* Update 'buffer_length' to be the effective, safe limit which + * takes into account the underlying buffer. This value will be + * potentially invalidated by any side effect. + */ + check_length = DUK_HBUFOBJ_CLAMP_BYTELENGTH(h_this, buffer_length); + DUK_DDD(DUK_DDDPRINT("buffer_length=%ld, check_length=%ld", + (long) buffer_length, (long) check_length)); + + if (h_this->buf) { + buf = DUK_HBUFOBJ_GET_SLICE_BASE(thr->heap, h_this); + } else { + /* Neutered. We could go into the switch-case safely with + * buf == NULL because check_length == 0. To avoid scanbuild + * warnings, fail directly instead. + */ + DUK_ASSERT(check_length == 0); + goto fail_neutered; + } + DUK_ASSERT(buf != NULL); + + switch (magic_ftype) { + case DUK__FLD_8BIT: { + duk_uint8_t tmp; + if (offset + 1U > check_length) { + goto fail_bounds; + } + tmp = buf[offset]; + if (magic_signed) { + duk_push_int(thr, (duk_int_t) ((duk_int8_t) tmp)); + } else { + duk_push_uint(thr, (duk_uint_t) tmp); + } + break; + } + case DUK__FLD_16BIT: { + duk_uint16_t tmp; + if (offset + 2U > check_length) { + goto fail_bounds; + } + duk_memcpy((void *) du.uc, (const void *) (buf + offset), 2); + tmp = du.us[0]; + if (endswap) { + tmp = DUK_BSWAP16(tmp); + } + if (magic_signed) { + duk_push_int(thr, (duk_int_t) ((duk_int16_t) tmp)); + } else { + duk_push_uint(thr, (duk_uint_t) tmp); + } + break; + } + case DUK__FLD_32BIT: { + duk_uint32_t tmp; + if (offset + 4U > check_length) { + goto fail_bounds; + } + duk_memcpy((void *) du.uc, (const void *) (buf + offset), 4); + tmp = du.ui[0]; + if (endswap) { + tmp = DUK_BSWAP32(tmp); + } + if (magic_signed) { + duk_push_int(thr, (duk_int_t) ((duk_int32_t) tmp)); + } else { + duk_push_uint(thr, (duk_uint_t) tmp); + } + break; + } + case DUK__FLD_FLOAT: { + duk_uint32_t tmp; + if (offset + 4U > check_length) { + goto fail_bounds; + } + duk_memcpy((void *) du.uc, (const void *) (buf + offset), 4); + if (endswap) { + tmp = du.ui[0]; + tmp = DUK_BSWAP32(tmp); + du.ui[0] = tmp; + } + duk_push_number(thr, (duk_double_t) du.f[0]); + break; + } + case DUK__FLD_DOUBLE: { + if (offset + 8U > check_length) { + goto fail_bounds; + } + duk_memcpy((void *) du.uc, (const void *) (buf + offset), 8); + if (endswap) { + DUK_DBLUNION_BSWAP64(&du); + } + duk_push_number(thr, (duk_double_t) du.d); + break; + } + case DUK__FLD_VARINT: { + /* Node.js Buffer variable width integer field. We don't really + * care about speed here, so aim for shortest algorithm. + */ + duk_int_t field_bytelen; + duk_int_t i, i_step, i_end; +#if defined(DUK_USE_64BIT_OPS) + duk_int64_t tmp; + duk_small_uint_t shift_tmp; +#else + duk_double_t tmp; + duk_small_int_t highbyte; +#endif + const duk_uint8_t *p; + + field_bytelen = duk_get_int(thr, 1); /* avoid side effects! */ + if (field_bytelen < 1 || field_bytelen > 6) { + goto fail_field_length; + } + if (offset + (duk_uint_t) field_bytelen > check_length) { + goto fail_bounds; + } + p = (const duk_uint8_t *) (buf + offset); + + /* Slow gathering of value using either 64-bit arithmetic + * or IEEE doubles if 64-bit types not available. Handling + * of negative numbers is a bit non-obvious in both cases. + */ + + if (magic_bigendian) { + /* Gather in big endian */ + i = 0; + i_step = 1; + i_end = field_bytelen; /* one i_step over */ + } else { + /* Gather in little endian */ + i = field_bytelen - 1; + i_step = -1; + i_end = -1; /* one i_step over */ + } + +#if defined(DUK_USE_64BIT_OPS) + tmp = 0; + do { + DUK_ASSERT(i >= 0 && i < field_bytelen); + tmp = (tmp << 8) + (duk_int64_t) p[i]; + i += i_step; + } while (i != i_end); + + if (magic_signed) { + /* Shift to sign extend. Left shift must be unsigned + * to avoid undefined behavior; right shift must be + * signed to sign extend properly. + */ + shift_tmp = (duk_small_uint_t) (64U - (duk_small_uint_t) field_bytelen * 8U); + tmp = (duk_int64_t) ((duk_uint64_t) tmp << shift_tmp) >> shift_tmp; + } + + duk_push_i64(thr, tmp); +#else + highbyte = p[i]; + if (magic_signed && (highbyte & 0x80) != 0) { + /* 0xff => 255 - 256 = -1; 0x80 => 128 - 256 = -128 */ + tmp = (duk_double_t) (highbyte - 256); + } else { + tmp = (duk_double_t) highbyte; + } + for (;;) { + i += i_step; + if (i == i_end) { + break; + } + DUK_ASSERT(i >= 0 && i < field_bytelen); + tmp = (tmp * 256.0) + (duk_double_t) p[i]; + } + + duk_push_number(thr, tmp); +#endif + break; + } + default: { /* should never happen but default here */ + goto fail_bounds; + } + } + + return 1; + + fail_neutered: + fail_field_length: + fail_bounds: + if (no_assert) { + /* Node.js return value for noAssert out-of-bounds reads is + * usually (but not always) NaN. Return NaN consistently. + */ + duk_push_nan(thr); + return 1; + } + DUK_DCERROR_RANGE_INVALID_ARGS(thr); +} +#endif /* DUK_USE_BUFFEROBJECT_SUPPORT */ + +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) +/* XXX: split into separate functions for each field type? */ +DUK_INTERNAL duk_ret_t duk_bi_buffer_writefield(duk_hthread *thr) { + duk_small_uint_t magic = (duk_small_uint_t) duk_get_current_magic(thr); + duk_small_uint_t magic_ftype; + duk_small_uint_t magic_bigendian; + duk_small_uint_t magic_signed; + duk_small_uint_t magic_typedarray; + duk_small_uint_t endswap; + duk_hbufobj *h_this; + duk_bool_t no_assert; + duk_int_t offset_signed; + duk_uint_t offset; + duk_uint_t buffer_length; + duk_uint_t check_length; + duk_uint8_t *buf; + duk_double_union du; + duk_int_t nbytes = 0; + + magic_ftype = magic & 0x0007U; + magic_bigendian = magic & 0x0008U; + magic_signed = magic & 0x0010U; + magic_typedarray = magic & 0x0020U; + DUK_UNREF(magic_signed); + + h_this = duk__require_bufobj_this(thr); /* XXX: very inefficient for plain buffers */ + DUK_ASSERT(h_this != NULL); + buffer_length = h_this->length; + + /* [ value offset noAssert ], when ftype != DUK__FLD_VARINT */ + /* [ value offset fieldByteLength noAssert ], when ftype == DUK__FLD_VARINT */ + /* [ offset value littleEndian ], when DUK__FLD_TYPEDARRAY (regardless of ftype) */ + + /* Handle TypedArray vs. Node.js Buffer arg differences */ + if (magic_typedarray) { + no_assert = 0; +#if defined(DUK_USE_INTEGER_LE) + endswap = !duk_to_boolean(thr, 2); /* 1=little endian */ +#else + endswap = duk_to_boolean(thr, 2); /* 1=little endian */ +#endif + duk_swap(thr, 0, 1); /* offset/value order different from Node.js */ + } else { + no_assert = duk_to_boolean(thr, (magic_ftype == DUK__FLD_VARINT) ? 3 : 2); +#if defined(DUK_USE_INTEGER_LE) + endswap = magic_bigendian; +#else + endswap = !magic_bigendian; +#endif + } + + /* Offset is coerced first to signed integer range and then to unsigned. + * This ensures we can add a small byte length (1-8) to the offset in + * bound checks and not wrap. + */ + offset_signed = duk_to_int(thr, 1); + offset = (duk_uint_t) offset_signed; + + /* We need 'nbytes' even for a failed offset; return value must be + * (offset + nbytes) even when write fails due to invalid offset. + */ + if (magic_ftype != DUK__FLD_VARINT) { + DUK_ASSERT(magic_ftype < (duk_small_uint_t) (sizeof(duk__buffer_nbytes_from_fldtype) / sizeof(duk_uint8_t))); + nbytes = duk__buffer_nbytes_from_fldtype[magic_ftype]; + } else { + nbytes = duk_get_int(thr, 2); + if (nbytes < 1 || nbytes > 6) { + goto fail_field_length; + } + } + DUK_ASSERT(nbytes >= 1 && nbytes <= 8); + + /* Now we can check offset validity. */ + if (offset_signed < 0) { + goto fail_bounds; + } + + DUK_DDD(DUK_DDDPRINT("writefield, value=%!T, buffer_length=%ld, offset=%ld, no_assert=%d, " + "magic=%04x, magic_fieldtype=%d, magic_bigendian=%d, magic_signed=%d, " + "endswap=%u", + duk_get_tval(thr, 0), (long) buffer_length, (long) offset, (int) no_assert, + (unsigned int) magic, (int) magic_ftype, (int) (magic_bigendian >> 3), + (int) (magic_signed >> 4), (int) endswap)); + + /* Coerce value to a number before computing check_length, so that + * the field type specific coercion below can't have side effects + * that would invalidate check_length. + */ + duk_to_number(thr, 0); + + /* Update 'buffer_length' to be the effective, safe limit which + * takes into account the underlying buffer. This value will be + * potentially invalidated by any side effect. + */ + check_length = DUK_HBUFOBJ_CLAMP_BYTELENGTH(h_this, buffer_length); + DUK_DDD(DUK_DDDPRINT("buffer_length=%ld, check_length=%ld", + (long) buffer_length, (long) check_length)); + + if (h_this->buf) { + buf = DUK_HBUFOBJ_GET_SLICE_BASE(thr->heap, h_this); + } else { + /* Neutered. We could go into the switch-case safely with + * buf == NULL because check_length == 0. To avoid scanbuild + * warnings, fail directly instead. + */ + DUK_ASSERT(check_length == 0); + goto fail_neutered; + } + DUK_ASSERT(buf != NULL); + + switch (magic_ftype) { + case DUK__FLD_8BIT: { + if (offset + 1U > check_length) { + goto fail_bounds; + } + /* sign doesn't matter when writing */ + buf[offset] = (duk_uint8_t) duk_to_uint32(thr, 0); + break; + } + case DUK__FLD_16BIT: { + duk_uint16_t tmp; + if (offset + 2U > check_length) { + goto fail_bounds; + } + tmp = (duk_uint16_t) duk_to_uint32(thr, 0); + if (endswap) { + tmp = DUK_BSWAP16(tmp); + } + du.us[0] = tmp; + /* sign doesn't matter when writing */ + duk_memcpy((void *) (buf + offset), (const void *) du.uc, 2); + break; + } + case DUK__FLD_32BIT: { + duk_uint32_t tmp; + if (offset + 4U > check_length) { + goto fail_bounds; + } + tmp = (duk_uint32_t) duk_to_uint32(thr, 0); + if (endswap) { + tmp = DUK_BSWAP32(tmp); + } + du.ui[0] = tmp; + /* sign doesn't matter when writing */ + duk_memcpy((void *) (buf + offset), (const void *) du.uc, 4); + break; + } + case DUK__FLD_FLOAT: { + duk_uint32_t tmp; + if (offset + 4U > check_length) { + goto fail_bounds; + } + du.f[0] = (duk_float_t) duk_to_number(thr, 0); + if (endswap) { + tmp = du.ui[0]; + tmp = DUK_BSWAP32(tmp); + du.ui[0] = tmp; + } + /* sign doesn't matter when writing */ + duk_memcpy((void *) (buf + offset), (const void *) du.uc, 4); + break; + } + case DUK__FLD_DOUBLE: { + if (offset + 8U > check_length) { + goto fail_bounds; + } + du.d = (duk_double_t) duk_to_number(thr, 0); + if (endswap) { + DUK_DBLUNION_BSWAP64(&du); + } + /* sign doesn't matter when writing */ + duk_memcpy((void *) (buf + offset), (const void *) du.uc, 8); + break; + } + case DUK__FLD_VARINT: { + /* Node.js Buffer variable width integer field. We don't really + * care about speed here, so aim for shortest algorithm. + */ + duk_int_t field_bytelen; + duk_int_t i, i_step, i_end; +#if defined(DUK_USE_64BIT_OPS) + duk_int64_t tmp; +#else + duk_double_t tmp; +#endif + duk_uint8_t *p; + + field_bytelen = (duk_int_t) nbytes; + if (offset + (duk_uint_t) field_bytelen > check_length) { + goto fail_bounds; + } + + /* Slow writing of value using either 64-bit arithmetic + * or IEEE doubles if 64-bit types not available. There's + * no special sign handling when writing varints. + */ + + if (magic_bigendian) { + /* Write in big endian */ + i = field_bytelen; /* one i_step added at top of loop */ + i_step = -1; + i_end = 0; + } else { + /* Write in little endian */ + i = -1; /* one i_step added at top of loop */ + i_step = 1; + i_end = field_bytelen - 1; + } + + /* XXX: The duk_to_number() cast followed by integer coercion + * is platform specific so NaN, +/- Infinity, and out-of-bounds + * values result in platform specific output now. + * See: test-bi-nodejs-buffer-proto-varint-special.js + */ + +#if defined(DUK_USE_64BIT_OPS) + tmp = (duk_int64_t) duk_to_number(thr, 0); + p = (duk_uint8_t *) (buf + offset); + do { + i += i_step; + DUK_ASSERT(i >= 0 && i < field_bytelen); + p[i] = (duk_uint8_t) (tmp & 0xff); + tmp = tmp >> 8; /* unnecessary shift for last byte */ + } while (i != i_end); +#else + tmp = duk_to_number(thr, 0); + p = (duk_uint8_t *) (buf + offset); + do { + i += i_step; + tmp = DUK_FLOOR(tmp); + DUK_ASSERT(i >= 0 && i < field_bytelen); + p[i] = (duk_uint8_t) (DUK_FMOD(tmp, 256.0)); + tmp = tmp / 256.0; /* unnecessary div for last byte */ + } while (i != i_end); +#endif + break; + } + default: { /* should never happen but default here */ + goto fail_bounds; + } + } + + /* Node.js Buffer: return offset + #bytes written (i.e. next + * write offset). + */ + if (magic_typedarray) { + /* For TypedArrays 'undefined' return value is specified + * by ES2015 (matches V8). + */ + return 0; + } + duk_push_uint(thr, offset + (duk_uint_t) nbytes); + return 1; + + fail_neutered: + fail_field_length: + fail_bounds: + if (no_assert) { + /* Node.js return value for failed writes is offset + #bytes + * that would have been written. + */ + /* XXX: for negative input offsets, 'offset' will be a large + * positive value so the result here is confusing. + */ + if (magic_typedarray) { + return 0; + } + duk_push_uint(thr, offset + (duk_uint_t) nbytes); + return 1; + } + DUK_DCERROR_RANGE_INVALID_ARGS(thr); +} +#endif /* DUK_USE_BUFFEROBJECT_SUPPORT */ + +/* + * Accessors for .buffer, .byteLength, .byteOffset + */ + +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) +DUK_LOCAL duk_hbufobj *duk__autospawn_arraybuffer(duk_hthread *thr, duk_hbuffer *h_buf) { + duk_hbufobj *h_res; + + h_res = duk_push_bufobj_raw(thr, + DUK_HOBJECT_FLAG_EXTENSIBLE | + DUK_HOBJECT_FLAG_BUFOBJ | + DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_ARRAYBUFFER), + DUK_BIDX_ARRAYBUFFER_PROTOTYPE); + DUK_ASSERT(h_res != NULL); + DUK_UNREF(h_res); + + duk__set_bufobj_buffer(thr, h_res, h_buf); + DUK_HBUFOBJ_ASSERT_VALID(h_res); + DUK_ASSERT(h_res->buf_prop == NULL); + return h_res; +} + +DUK_INTERNAL duk_ret_t duk_bi_typedarray_buffer_getter(duk_hthread *thr) { + duk_hbufobj *h_bufobj; + + h_bufobj = (duk_hbufobj *) duk__getrequire_bufobj_this(thr, DUK__BUFOBJ_FLAG_THROW /*flags*/); + DUK_ASSERT(h_bufobj != NULL); + if (DUK_HEAPHDR_IS_BUFFER((duk_heaphdr *) h_bufobj)) { + DUK_DD(DUK_DDPRINT("autospawn ArrayBuffer for plain buffer")); + (void) duk__autospawn_arraybuffer(thr, (duk_hbuffer *) h_bufobj); + return 1; + } else { + if (h_bufobj->buf_prop == NULL && + DUK_HOBJECT_GET_CLASS_NUMBER((duk_hobject *) h_bufobj) != DUK_HOBJECT_CLASS_ARRAYBUFFER && + h_bufobj->buf != NULL) { + duk_hbufobj *h_arrbuf; + + DUK_DD(DUK_DDPRINT("autospawn ArrayBuffer for typed array or DataView")); + h_arrbuf = duk__autospawn_arraybuffer(thr, h_bufobj->buf); + + if (h_bufobj->buf_prop == NULL) { + /* Must recheck buf_prop, in case ArrayBuffer + * alloc had a side effect which already filled + * it! + */ + + /* Set ArrayBuffer's .byteOffset and .byteLength based + * on the view so that Arraybuffer[view.byteOffset] + * matches view[0]. + */ + h_arrbuf->offset = 0; + DUK_ASSERT(h_bufobj->offset + h_bufobj->length >= h_bufobj->offset); /* Wrap check on creation. */ + h_arrbuf->length = h_bufobj->offset + h_bufobj->length; + DUK_ASSERT(h_arrbuf->buf_prop == NULL); + + DUK_ASSERT(h_bufobj->buf_prop == NULL); + h_bufobj->buf_prop = (duk_hobject *) h_arrbuf; + DUK_HBUFOBJ_INCREF(thr, h_arrbuf); /* Now reachable and accounted for. */ + } + + /* Left on stack; pushed for the second time below (OK). */ + } + if (h_bufobj->buf_prop) { + duk_push_hobject(thr, h_bufobj->buf_prop); + return 1; + } + } + return 0; +} + +DUK_INTERNAL duk_ret_t duk_bi_typedarray_byteoffset_getter(duk_hthread *thr) { + duk_hbufobj *h_bufobj; + + h_bufobj = (duk_hbufobj *) duk__getrequire_bufobj_this(thr, DUK__BUFOBJ_FLAG_THROW /*flags*/); + DUK_ASSERT(h_bufobj != NULL); + if (DUK_HEAPHDR_IS_BUFFER((duk_heaphdr *) h_bufobj)) { + duk_push_uint(thr, 0); + } else { + /* If neutered must return 0; offset is zeroed during + * neutering. + */ + duk_push_uint(thr, h_bufobj->offset); + } + return 1; +} + +DUK_INTERNAL duk_ret_t duk_bi_typedarray_bytelength_getter(duk_hthread *thr) { + duk_hbufobj *h_bufobj; + + h_bufobj = (duk_hbufobj *) duk__getrequire_bufobj_this(thr, DUK__BUFOBJ_FLAG_THROW /*flags*/); + DUK_ASSERT(h_bufobj != NULL); + if (DUK_HEAPHDR_IS_BUFFER((duk_heaphdr *) h_bufobj)) { + duk_hbuffer *h_buf; + + h_buf = (duk_hbuffer *) h_bufobj; + DUK_ASSERT(DUK_HBUFFER_GET_SIZE(h_buf) <= DUK_UINT_MAX); /* Buffer limits. */ + duk_push_uint(thr, (duk_uint_t) DUK_HBUFFER_GET_SIZE(h_buf)); + } else { + /* If neutered must return 0; length is zeroed during + * neutering. + */ + duk_push_uint(thr, h_bufobj->length); + } + return 1; +} +#else /* DUK_USE_BUFFEROBJECT_SUPPORT */ +/* No .buffer getter without ArrayBuffer support. */ +#if 0 +DUK_INTERNAL duk_ret_t duk_bi_typedarray_buffer_getter(duk_hthread *thr) { + return 0; +} +#endif + +DUK_INTERNAL duk_ret_t duk_bi_typedarray_byteoffset_getter(duk_hthread *thr) { + duk_push_uint(thr, 0); + return 1; +} + +DUK_INTERNAL duk_ret_t duk_bi_typedarray_bytelength_getter(duk_hthread *thr) { + duk_hbuffer *h_buf; + + /* XXX: helper? */ + duk_push_this(thr); + h_buf = duk_require_hbuffer(thr, -1); + duk_push_uint(thr, DUK_HBUFFER_GET_SIZE(h_buf)); + return 1; +} +#endif /* DUK_USE_BUFFEROBJECT_SUPPORT */ + +/* automatic undefs */ +#undef DUK__BUFOBJ_FLAG_PROMOTE +#undef DUK__BUFOBJ_FLAG_THROW +#undef DUK__FLD_16BIT +#undef DUK__FLD_32BIT +#undef DUK__FLD_8BIT +#undef DUK__FLD_BIGENDIAN +#undef DUK__FLD_DOUBLE +#undef DUK__FLD_FLOAT +#undef DUK__FLD_SIGNED +#undef DUK__FLD_TYPEDARRAY +#undef DUK__FLD_VARINT +#line 1 "duk_bi_cbor.c" +/* + * CBOR bindings. + * + * http://cbor.io/ + * https://tools.ietf.org/html/rfc7049 + */ + +/* #include duk_internal.h -> already included */ + +#if defined(DUK_USE_CBOR_SUPPORT) + +/* #define DUK_CBOR_STRESS */ + +/* Default behavior for encoding strings: use CBOR text string if string + * is UTF-8 compatible, otherwise use CBOR byte string. These defines + * can be used to force either type for all strings. Using text strings + * for non-UTF-8 data is technically invalid CBOR. + */ +/* #define DUK_CBOR_TEXT_STRINGS */ +/* #define DUK_CBOR_BYTE_STRINGS */ + +/* Misc. defines. */ +/* #define DUK_CBOR_PREFER_SIZE */ +/* #define DUK_CBOR_DOUBLE_AS_IS */ +/* #define DUK_CBOR_DECODE_FASTPATH */ + +typedef struct { + duk_hthread *thr; + duk_uint8_t *ptr; + duk_uint8_t *buf; + duk_uint8_t *buf_end; + duk_size_t len; + duk_idx_t idx_buf; +} duk_cbor_encode_context; + +typedef struct { + duk_hthread *thr; + const duk_uint8_t *buf; + duk_size_t off; + duk_size_t len; +} duk_cbor_decode_context; + +DUK_LOCAL void duk__cbor_encode_value(duk_cbor_encode_context *enc_ctx); +DUK_LOCAL void duk__cbor_decode_value(duk_cbor_decode_context *dec_ctx); + +/* + * Misc + */ + +DUK_LOCAL duk_uint32_t duk__cbor_double_to_uint32(double d) { + /* Out of range casts are undefined behavior, so caller must avoid. */ + DUK_ASSERT(d >= 0.0 && d <= 4294967295.0); + return (duk_uint32_t) d; +} + +/* + * Encoding + */ + +DUK_LOCAL void duk__cbor_encode_error(duk_cbor_encode_context *enc_ctx) { + (void) duk_type_error(enc_ctx->thr, "cbor encode error"); +} + +/* Check that a size_t is in uint32 range to avoid out-of-range casts. */ +DUK_LOCAL void duk__cbor_encode_sizet_uint32_check(duk_cbor_encode_context *enc_ctx, duk_size_t len) { + if (DUK_UNLIKELY(sizeof(duk_size_t) > sizeof(duk_uint32_t) && len > (duk_size_t) DUK_UINT32_MAX)) { + duk__cbor_encode_error(enc_ctx); + } +} + +DUK_LOCAL DUK_NOINLINE void duk__cbor_encode_ensure_slowpath(duk_cbor_encode_context *enc_ctx, duk_size_t len) { + duk_size_t oldlen; + duk_size_t minlen; + duk_size_t newlen; + duk_uint8_t *p_new; + duk_size_t old_data_len; + + DUK_ASSERT(enc_ctx->ptr >= enc_ctx->buf); + DUK_ASSERT(enc_ctx->buf_end >= enc_ctx->ptr); + DUK_ASSERT(enc_ctx->buf_end >= enc_ctx->buf); + + /* Overflow check. + * + * Limit example: 0xffffffffUL / 2U = 0x7fffffffUL, we reject >= 0x80000000UL. + */ + oldlen = enc_ctx->len; + minlen = oldlen + len; + if (DUK_UNLIKELY(oldlen > DUK_SIZE_MAX / 2U || minlen < oldlen)) { + duk__cbor_encode_error(enc_ctx); + } + +#if defined(DUK_CBOR_STRESS) + newlen = oldlen + 1U; +#else + newlen = oldlen * 2U; +#endif + DUK_ASSERT(newlen >= oldlen); + + if (minlen > newlen) { + newlen = minlen; + } + DUK_ASSERT(newlen >= oldlen); + DUK_ASSERT(newlen >= minlen); + DUK_ASSERT(newlen > 0U); + + DUK_DD(DUK_DDPRINT("cbor encode buffer resized to %ld", (long) newlen)); + + p_new = (duk_uint8_t *) duk_resize_buffer(enc_ctx->thr, enc_ctx->idx_buf, newlen); + DUK_ASSERT(p_new != NULL); + old_data_len = (duk_size_t) (enc_ctx->ptr - enc_ctx->buf); + enc_ctx->buf = p_new; + enc_ctx->buf_end = p_new + newlen; + enc_ctx->ptr = p_new + old_data_len; + enc_ctx->len = newlen; +} + +DUK_LOCAL DUK_INLINE void duk__cbor_encode_ensure(duk_cbor_encode_context *enc_ctx, duk_size_t len) { + if (DUK_LIKELY((duk_size_t) (enc_ctx->buf_end - enc_ctx->ptr) >= len)) { + return; + } + duk__cbor_encode_ensure_slowpath(enc_ctx, len); +} + +DUK_LOCAL duk_size_t duk__cbor_get_reserve(duk_cbor_encode_context *enc_ctx) { + DUK_ASSERT(enc_ctx->ptr >= enc_ctx->buf); + DUK_ASSERT(enc_ctx->ptr <= enc_ctx->buf_end); + return (duk_size_t) (enc_ctx->buf_end - enc_ctx->ptr); +} + +DUK_LOCAL void duk__cbor_encode_uint32(duk_cbor_encode_context *enc_ctx, duk_uint32_t u, duk_uint8_t base) { + duk_uint8_t *p; + + /* Caller must ensure space. */ + DUK_ASSERT(duk__cbor_get_reserve(enc_ctx) >= 1 + 4); + + p = enc_ctx->ptr; + if (DUK_LIKELY(u <= 23U)) { + *p++ = (duk_uint8_t) (base + (duk_uint8_t) u); + } else if (u <= 0xffUL) { + *p++ = base + 0x18U; + *p++ = (duk_uint8_t) u; + } else if (u <= 0xffffUL) { + *p++ = base + 0x19U; + DUK_RAW_WRITEINC_U16_BE(p, (duk_uint16_t) u); + } else { + *p++ = base + 0x1aU; + DUK_RAW_WRITEINC_U32_BE(p, u); + } + enc_ctx->ptr = p; +} + +#if defined(DUK_CBOR_DOUBLE_AS_IS) +DUK_LOCAL void duk__cbor_encode_double(duk_cbor_encode_context *enc_ctx, double d) { + duk_uint8_t *p; + + /* Caller must ensure space. */ + DUK_ASSERT(duk__cbor_get_reserve(enc_ctx) >= 1 + 8); + + p = enc_ctx->ptr; + *p++ = 0xfbU; + DUK_RAW_WRITEINC_DOUBLE_BE(p, d); + p += 8; + enc_ctx->ptr = p; +} +#else /* DUK_CBOR_DOUBLE_AS_IS */ +DUK_LOCAL void duk__cbor_encode_double_fp(duk_cbor_encode_context *enc_ctx, double d) { + duk_double_union u; + duk_uint16_t u16; + duk_int16_t expt; + duk_uint8_t *p; + + DUK_ASSERT(DUK_FPCLASSIFY(d) != DUK_FP_ZERO); + + /* Caller must ensure space. */ + DUK_ASSERT(duk__cbor_get_reserve(enc_ctx) >= 1 + 8); + + /* Organize into little endian (no-op if platform is little endian). */ + u.d = d; + duk_dblunion_host_to_little(&u); + + /* Check if 'd' can represented as a normal half-float. + * Denormal half-floats could also be used, but that check + * isn't done now (denormal half-floats are decoded of course). + * So just check exponent range and that at most 10 significant + * bits (excluding implicit leading 1) are used in 'd'. + */ + u16 = (((duk_uint16_t) u.uc[7]) << 8) | ((duk_uint16_t) u.uc[6]); + expt = (duk_int16_t) ((u16 & 0x7ff0U) >> 4) - 1023; + + if (expt >= -14 && expt <= 15) { + /* Half-float normal exponents (excl. denormals). + * + * 7 6 5 4 3 2 1 0 (LE index) + * double: seeeeeee eeeemmmm mmmmmmmm mmmmmmmm mmmmmmmm mmmmmmmm mmmmmmmm mmmmmmmm + * half: seeeee mmmm mmmmmm00 00000000 00000000 00000000 00000000 00000000 + */ + duk_bool_t use_half_float; + + use_half_float = + (u.uc[0] == 0 && u.uc[1] == 0 && u.uc[2] == 0 && u.uc[3] == 0 && + u.uc[4] == 0 && (u.uc[5] & 0x03U) == 0); + + if (use_half_float) { + duk_uint32_t t; + + expt += 15; + t = (duk_uint32_t) (u.uc[7] & 0x80U) << 8; + t += (duk_uint32_t) expt << 10; + t += ((duk_uint32_t) u.uc[6] & 0x0fU) << 6; + t += ((duk_uint32_t) u.uc[5]) >> 2; + + /* seeeeemm mmmmmmmm */ + p = enc_ctx->ptr; + *p++ = 0xf9U; + DUK_RAW_WRITEINC_U16_BE(p, (duk_uint16_t) t); + enc_ctx->ptr = p; + return; + } + } + + /* Same check for plain float. Also no denormal support here. */ + if (expt >= -126 && expt <= 127) { + /* Float normal exponents (excl. denormals). + * + * double: seeeeeee eeeemmmm mmmmmmmm mmmmmmmm mmmmmmmm mmmmmmmm mmmmmmmm mmmmmmmm + * float: seeee eeeemmmm mmmmmmmm mmmmmmmm mmm00000 00000000 00000000 00000000 + */ + duk_bool_t use_float; + duk_float_t d_float; + + /* We could do this explicit mantissa check, but doing + * a double-float-double cast is fine because we've + * already verified that the exponent is in range so + * that the narrower cast is not undefined behavior. + */ +#if 0 + use_float = + (u.uc[0] == 0 && u.uc[1] == 0 && u.uc[2] == 0 && (u.uc[3] & 0xe0U) == 0); +#endif + d_float = (duk_float_t) d; + use_float = duk_double_equals((duk_double_t) d_float, d); + if (use_float) { + p = enc_ctx->ptr; + *p++ = 0xfaU; + DUK_RAW_WRITEINC_FLOAT_BE(p, d_float); + enc_ctx->ptr = p; + return; + } + } + + /* Special handling for NaN and Inf which we want to encode as + * half-floats. They share the same (maximum) exponent. + */ + if (expt == 1024) { + DUK_ASSERT(DUK_ISNAN(d) || DUK_ISINF(d)); + p = enc_ctx->ptr; + *p++ = 0xf9U; + if (DUK_ISNAN(d)) { + /* Shortest NaN encoding is using a half-float. Lose the + * exact NaN bits in the process. IEEE double would be + * 7ff8 0000 0000 0000, i.e. a quiet NaN in most architectures + * (https://en.wikipedia.org/wiki/NaN#Encoding). The + * equivalent half float is 7e00. + */ + *p++ = 0x7eU; + } else { + /* Shortest +/- Infinity encoding is using a half-float. */ + if (DUK_SIGNBIT(d)) { + *p++ = 0xfcU; + } else { + *p++ = 0x7cU; + } + } + *p++ = 0x00U; + enc_ctx->ptr = p; + return; + } + + /* Cannot use half-float or float, encode as full IEEE double. */ + p = enc_ctx->ptr; + *p++ = 0xfbU; + DUK_RAW_WRITEINC_DOUBLE_BE(p, d); + enc_ctx->ptr = p; +} + +DUK_LOCAL void duk__cbor_encode_double(duk_cbor_encode_context *enc_ctx, double d) { + duk_uint8_t *p; + double d_floor; + + /* Integers and floating point values of all types are conceptually + * equivalent in CBOR. Try to always choose the shortest encoding + * which is not always immediately obvious. For example, NaN and Inf + * can be most compactly represented as a half-float (assuming NaN + * bits are not preserved), and 0x1'0000'0000 as a single precision + * float. Shortest forms in preference order (prefer integer over + * float when equal length): + * + * uint 1 byte [0,23] (not -0) + * sint 1 byte [-24,-1] + * uint+1 2 bytes [24,255] + * sint+1 2 bytes [-256,-25] + * uint+2 3 bytes [256,65535] + * sint+2 3 bytes [-65536,-257] + * half-float 3 bytes -0, NaN, +/- Infinity, range [-65504,65504] + * uint+4 5 bytes [65536,4294967295] + * sint+4 5 bytes [-4294967296,-258] + * float 5 bytes range [-(1 - 2^(-24)) * 2^128, (1 - 2^(-24)) * 2^128] + * uint+8 9 bytes [4294967296,18446744073709551615] + * sint+8 9 bytes [-18446744073709551616,-4294967297] + * double 9 bytes + * + * For whole numbers (compatible with integers): + * - 1-byte or 2-byte uint/sint representation is preferred for + * [-256,255]. + * - 3-byte uint/sint is preferred for [-65536,65535]. Half floats + * are never preferred because they have the same length. + * - 5-byte uint/sint is preferred for [-4294967296,4294967295]. + * Single precision floats are never preferred, and half-floats + * don't reach above the 3-byte uint/sint range so they're never + * preferred. + * - So, for all integers up to signed/unsigned 32-bit range the + * preferred encoding is always an integer uint/sint. + * - For integers above 32 bits the situation is more complicated. + * Half-floats are never useful for them because of their limited + * range, but IEEE single precision floats (5 bytes encoded) can + * represent some integers between the 32-bit and 64-bit ranges + * which require 9 bytes as a uint/sint. + * + * For floating point values not compatible with integers, the + * preferred encoding is quite clear: + * - For +Inf/-Inf use half-float. + * - For NaN use a half-float, assuming NaN bits ("payload") is + * not worth preserving. Duktape doesn't in general guarantee + * preservation of the NaN payload so using a half-float seems + * consistent with that. + * - For remaining values, prefer the shortest form which doesn't + * lose any precision. For normal half-floats and single precision + * floats this is simple: just check exponent and mantissa bits + * using a fixed mask. For denormal half-floats and single + * precision floats the check is a bit more complicated: a normal + * IEEE double can sometimes be represented as a denormal + * half-float or single precision float. + * + * https://en.wikipedia.org/wiki/Half-precision_floating-point_format#IEEE_754_half-precision_binary_floating-point_format:_binary16 + */ + + /* Caller must ensure space. */ + DUK_ASSERT(duk__cbor_get_reserve(enc_ctx) >= 1 + 8); + + /* Most important path is integers. The floor() test will be true + * for Inf too (but not NaN). + */ + d_floor = DUK_FLOOR(d); /* identity if d is +/- 0.0, NaN, or +/- Infinity */ + if (DUK_LIKELY(duk_double_equals(d_floor, d) != 0)) { + DUK_ASSERT(!DUK_ISNAN(d)); /* NaN == NaN compares false. */ + if (DUK_SIGNBIT(d)) { + if (d >= -4294967296.0) { + d = -1.0 - d; + if (d >= 0.0) { + DUK_ASSERT(d >= 0.0); + duk__cbor_encode_uint32(enc_ctx, duk__cbor_double_to_uint32(d), 0x20U); + return; + } + + /* Input was negative zero, d == -1.0 < 0.0. + * Shortest -0 is using half-float. + */ + p = enc_ctx->ptr; + *p++ = 0xf9U; + *p++ = 0x80U; + *p++ = 0x00U; + enc_ctx->ptr = p; + return; + } + } else { + if (d <= 4294967295.0) { + /* Positive zero needs no special handling. */ + DUK_ASSERT(d >= 0.0); + duk__cbor_encode_uint32(enc_ctx, duk__cbor_double_to_uint32(d), 0x00U); + return; + } + } + } + + /* 64-bit integers are not supported at present. So + * we also don't need to deal with choosing between a + * 64-bit uint/sint representation vs. IEEE double or + * float. + */ + + DUK_ASSERT(DUK_FPCLASSIFY(d) != DUK_FP_ZERO); + duk__cbor_encode_double_fp(enc_ctx, d); +} +#endif /* DUK_CBOR_DOUBLE_AS_IS */ + +DUK_LOCAL void duk__cbor_encode_string_top(duk_cbor_encode_context *enc_ctx) { + const duk_uint8_t *str; + duk_size_t len; + duk_uint8_t *p; + + /* CBOR differentiates between UTF-8 text strings and byte strings. + * Text strings MUST be valid UTF-8, so not all Duktape strings can + * be encoded as valid CBOR text strings. Possible behaviors: + * + * 1. Use text string when input is valid UTF-8, otherwise use + * byte string (maybe tagged to indicate it was an extended + * UTF-8 string). + * 2. Always use text strings, but sanitize input string so that + * invalid UTF-8 is replaced with U+FFFD for example. Combine + * surrogates whenever possible. + * 3. Always use byte strings. This is simple and produces valid + * CBOR, but isn't ideal for interoperability. + * 4. Always use text strings, even for invalid UTF-8 such as + * codepoints in the surrogate pair range. This is simple but + * produces technically invalid CBOR for non-UTF-8 strings which + * may affect interoperability. + * + * Current default is 1; can be changed with defines. + */ + + /* Caller must ensure space. */ + DUK_ASSERT(duk__cbor_get_reserve(enc_ctx) >= 1 + 8); + + str = (const duk_uint8_t *) duk_require_lstring(enc_ctx->thr, -1, &len); + if (duk_is_symbol(enc_ctx->thr, -1)) { + /* Symbols, encode as an empty table for now. This matches + * the behavior of cbor-js. + * + * XXX: Maybe encode String() coercion with a tag? + * XXX: Option to keep enough information to recover + * Symbols when decoding (this is not always desirable). + */ + p = enc_ctx->ptr; + *p++ = 0xa0U; + enc_ctx->ptr = p; + return; + } + + duk__cbor_encode_sizet_uint32_check(enc_ctx, len); +#if defined(DUK_CBOR_TEXT_STRINGS) + duk__cbor_encode_uint32(enc_ctx, (duk_uint32_t) len, 0x60U); +#elif defined(DUK_CBOR_BYTE_STRINGS) + duk__cbor_encode_uint32(enc_ctx, (duk_uint32_t) len, 0x40U); +#else + duk__cbor_encode_uint32(enc_ctx, (duk_uint32_t) len, + (DUK_LIKELY(duk_unicode_is_utf8_compatible(str, len) != 0) ? 0x60U : 0x40U)); +#endif + duk__cbor_encode_ensure(enc_ctx, len); + p = enc_ctx->ptr; + duk_memcpy((void *) p, (const void *) str, len); + p += len; + enc_ctx->ptr = p; +} + +DUK_LOCAL void duk__cbor_encode_object(duk_cbor_encode_context *enc_ctx) { + duk_uint8_t *buf; + duk_size_t len; + duk_uint8_t *p; + duk_size_t i; + duk_size_t off_ib; + duk_uint32_t count; + + /* Caller must ensure space. */ + DUK_ASSERT(duk__cbor_get_reserve(enc_ctx) >= 1 + 8); + + /* XXX: Support for specific built-ins like Date and RegExp. */ + if (duk_is_array(enc_ctx->thr, -1)) { + /* Shortest encoding for arrays >= 256 in length is actually + * the indefinite length one (3 or more bytes vs. 2 bytes). + * We still use the definite length version because it is + * more decoding friendly. + */ + len = duk_get_length(enc_ctx->thr, -1); + duk__cbor_encode_sizet_uint32_check(enc_ctx, len); + duk__cbor_encode_uint32(enc_ctx, (duk_uint32_t) len, 0x80U); + for (i = 0; i < len; i++) { + duk_get_prop_index(enc_ctx->thr, -1, (duk_uarridx_t) i); + duk__cbor_encode_value(enc_ctx); + } + } else if (duk_is_buffer_data(enc_ctx->thr, -1)) { + /* XXX: Tag buffer data? + * XXX: Encode typed arrays as integer arrays rather + * than buffer data as is? + */ + buf = (duk_uint8_t *) duk_require_buffer_data(enc_ctx->thr, -1, &len); + duk__cbor_encode_sizet_uint32_check(enc_ctx, len); + duk__cbor_encode_uint32(enc_ctx, (duk_uint32_t) len, 0x40U); + duk__cbor_encode_ensure(enc_ctx, len); + p = enc_ctx->ptr; + duk_memcpy((void *) p, (const void *) buf, len); + p += len; + enc_ctx->ptr = p; + } else { + /* We don't know the number of properties in advance + * but would still like to encode at least small + * objects without indefinite length. Emit an + * indefinite length byte initially, and if the final + * property count is small enough to also fit in one + * byte, backpatch it later. Otherwise keep the + * indefinite length. This works well up to 23 + * properties which is practical and good enough. + */ + off_ib = (duk_size_t) (enc_ctx->ptr - enc_ctx->buf); /* XXX: get_offset? */ + count = 0U; + p = enc_ctx->ptr; + *p++ = 0xa0U + 0x1fU; /* indefinite length */ + enc_ctx->ptr = p; + duk_enum(enc_ctx->thr, -1, DUK_ENUM_OWN_PROPERTIES_ONLY); + while (duk_next(enc_ctx->thr, -1, 1 /*get_value*/)) { + duk_insert(enc_ctx->thr, -2); /* [ ... key value ] -> [ ... value key ] */ + duk__cbor_encode_value(enc_ctx); + duk__cbor_encode_value(enc_ctx); + count++; + if (count == 0U) { + duk__cbor_encode_error(enc_ctx); + } + } + duk_pop(enc_ctx->thr); + if (count <= 0x17U) { + DUK_ASSERT(off_ib < enc_ctx->len); + enc_ctx->buf[off_ib] = 0xa0U + (duk_uint8_t) count; + } else { + duk__cbor_encode_ensure(enc_ctx, 1); + p = enc_ctx->ptr; + *p++ = 0xffU; /* break */ + enc_ctx->ptr = p; + } + } +} + +DUK_LOCAL void duk__cbor_encode_buffer(duk_cbor_encode_context *enc_ctx) { + duk_uint8_t *buf; + duk_size_t len; + duk_uint8_t *p; + + /* Caller must ensure space. */ + DUK_ASSERT(duk__cbor_get_reserve(enc_ctx) >= 1 + 8); + + /* Tag buffer data? */ + buf = (duk_uint8_t *) duk_require_buffer(enc_ctx->thr, -1, &len); + duk__cbor_encode_sizet_uint32_check(enc_ctx, len); + duk__cbor_encode_uint32(enc_ctx, (duk_uint32_t) len, 0x40U); + duk__cbor_encode_ensure(enc_ctx, len); + p = enc_ctx->ptr; + duk_memcpy((void *) p, (const void *) buf, len); + p += len; + enc_ctx->ptr = p; +} + +DUK_LOCAL void duk__cbor_encode_pointer(duk_cbor_encode_context *enc_ctx) { + /* Pointers (void *) are challenging to encode. They can't + * be relied to be even 64-bit integer compatible (there are + * pointer models larger than that), nor can floats encode + * them. They could be encoded as strings (%p format) but + * that's not portable. They could be encoded as direct memory + * representations. Recovering pointers is non-portable in any + * case but it would be nice to be able to detect and recover + * compatible pointers. + * + * For now, encode as "(%p)" string, matching JX. There doesn't + * seem to be an appropriate tag, so pointers don't currently + * survive a CBOR encode/decode roundtrip intact. + */ + const char *ptr; + + ptr = duk_to_string(enc_ctx->thr, -1); + DUK_ASSERT(ptr != NULL); + duk_push_sprintf(enc_ctx->thr, "(%s)", ptr); + duk_remove(enc_ctx->thr, -2); + duk__cbor_encode_string_top(enc_ctx); +} + +DUK_LOCAL void duk__cbor_encode_lightfunc(duk_cbor_encode_context *enc_ctx) { + duk_uint8_t *p; + + /* Caller must ensure space. */ + DUK_ASSERT(duk__cbor_get_reserve(enc_ctx) >= 1 + 8); + + /* For now encode as an empty object. */ + p = enc_ctx->ptr; + *p++ = 0xa0U; + enc_ctx->ptr = p; +} + +DUK_LOCAL void duk__cbor_encode_value(duk_cbor_encode_context *enc_ctx) { + duk_uint8_t *p; + + /* Encode/decode cycle currently loses some type information. + * This can be improved by registering custom tags with IANA. + */ + + /* When working with deeply recursive structures, this is important + * to ensure there's no effective depth limit. + */ + duk_require_stack(enc_ctx->thr, 4); + + /* Reserve space for up to 64-bit types (1 initial byte + 8 + * followup bytes). This allows encoding of integers, floats, + * string/buffer length fields, etc without separate checks + * in each code path. + */ + duk__cbor_encode_ensure(enc_ctx, 1 + 8); + + switch (duk_get_type(enc_ctx->thr, -1)) { + case DUK_TYPE_UNDEFINED: { + p = enc_ctx->ptr; + *p++ = 0xf7; + enc_ctx->ptr = p; + break; + } + case DUK_TYPE_NULL: { + p = enc_ctx->ptr; + *p++ = 0xf6; + enc_ctx->ptr = p; + break; + } + case DUK_TYPE_BOOLEAN: { + duk_uint8_t u8 = duk_get_boolean(enc_ctx->thr, -1) ? 0xf5U : 0xf4U; + p = enc_ctx->ptr; + *p++ = u8; + enc_ctx->ptr = p; + break; + } + case DUK_TYPE_NUMBER: { + duk__cbor_encode_double(enc_ctx, duk_get_number(enc_ctx->thr, -1)); + break; + } + case DUK_TYPE_STRING: { + duk__cbor_encode_string_top(enc_ctx); + break; + } + case DUK_TYPE_OBJECT: { + duk__cbor_encode_object(enc_ctx); + break; + } + case DUK_TYPE_BUFFER: { + duk__cbor_encode_buffer(enc_ctx); + break; + } + case DUK_TYPE_POINTER: { + duk__cbor_encode_pointer(enc_ctx); + break; + } + case DUK_TYPE_LIGHTFUNC: { + duk__cbor_encode_lightfunc(enc_ctx); + break; + } + case DUK_TYPE_NONE: + default: + goto fail; + } + + duk_pop(enc_ctx->thr); + return; + + fail: + duk__cbor_encode_error(enc_ctx); +} + +/* + * Decoding + */ + +DUK_LOCAL void duk__cbor_req_stack(duk_cbor_decode_context *dec_ctx) { + duk_require_stack(dec_ctx->thr, 4); +} + +DUK_LOCAL void duk__cbor_decode_error(duk_cbor_decode_context *dec_ctx) { + (void) duk_type_error(dec_ctx->thr, "cbor decode error"); +} + +DUK_LOCAL duk_uint8_t duk__cbor_decode_readbyte(duk_cbor_decode_context *dec_ctx) { + DUK_ASSERT(dec_ctx->off <= dec_ctx->len); + if (DUK_UNLIKELY(dec_ctx->len - dec_ctx->off < 1U)) { + duk__cbor_decode_error(dec_ctx); + } + return dec_ctx->buf[dec_ctx->off++]; +} + +DUK_LOCAL duk_uint16_t duk__cbor_decode_read_u16(duk_cbor_decode_context *dec_ctx) { + duk_uint16_t res; + + DUK_ASSERT(dec_ctx->off <= dec_ctx->len); + if (DUK_UNLIKELY(dec_ctx->len - dec_ctx->off < 2U)) { + duk__cbor_decode_error(dec_ctx); + } + res = DUK_RAW_READ_U16_BE(dec_ctx->buf + dec_ctx->off); + dec_ctx->off += 2; + return res; +} + +DUK_LOCAL duk_uint32_t duk__cbor_decode_read_u32(duk_cbor_decode_context *dec_ctx) { + duk_uint32_t res; + + DUK_ASSERT(dec_ctx->off <= dec_ctx->len); + if (DUK_UNLIKELY(dec_ctx->len - dec_ctx->off < 4U)) { + duk__cbor_decode_error(dec_ctx); + } + res = DUK_RAW_READ_U32_BE(dec_ctx->buf + dec_ctx->off); + dec_ctx->off += 4; + return res; +} + +DUK_LOCAL duk_uint8_t duk__cbor_decode_peekbyte(duk_cbor_decode_context *dec_ctx) { + if (DUK_UNLIKELY(dec_ctx->off >= dec_ctx->len)) { + duk__cbor_decode_error(dec_ctx); + } + return dec_ctx->buf[dec_ctx->off]; +} + +DUK_LOCAL void duk__cbor_decode_rewind(duk_cbor_decode_context *dec_ctx, duk_size_t len) { + DUK_ASSERT(len <= dec_ctx->off); /* Caller must ensure. */ + dec_ctx->off -= len; +} + +#if 0 +DUK_LOCAL void duk__cbor_decode_ensure(duk_cbor_decode_context *dec_ctx, duk_size_t len) { + if (dec_ctx->off + len > dec_ctx->len) { + duk__cbor_decode_error(dec_ctx); + } +} +#endif + +DUK_LOCAL const duk_uint8_t *duk__cbor_decode_consume(duk_cbor_decode_context *dec_ctx, duk_size_t len) { + DUK_ASSERT(dec_ctx->off <= dec_ctx->len); + if (DUK_LIKELY(dec_ctx->len - dec_ctx->off >= len)) { + const duk_uint8_t *res = dec_ctx->buf + dec_ctx->off; + dec_ctx->off += len; + return res; + } + + duk__cbor_decode_error(dec_ctx); /* Not enough input. */ + return NULL; +} + +DUK_LOCAL int duk__cbor_decode_checkbreak(duk_cbor_decode_context *dec_ctx) { + if (duk__cbor_decode_peekbyte(dec_ctx) == 0xffU) { + DUK_ASSERT(dec_ctx->off < dec_ctx->len); + dec_ctx->off++; +#if 0 + (void) duk__cbor_decode_readbyte(dec_ctx); +#endif + return 1; + } + return 0; +} + +DUK_LOCAL void duk__cbor_decode_push_aival_int(duk_cbor_decode_context *dec_ctx, duk_uint8_t ib, duk_bool_t negative) { + duk_uint8_t ai; + duk_uint32_t t, t1, t2; +#if 0 + duk_uint64_t t3; +#endif + duk_double_t d1, d2; + duk_double_t d; + + ai = ib & 0x1fU; + if (ai <= 0x17U) { + t = ai; + goto shared_exit; + } + + switch (ai) { + case 0x18U: /* 1 byte */ + t = (duk_uint32_t) duk__cbor_decode_readbyte(dec_ctx); + goto shared_exit; + case 0x19U: /* 2 byte */ + t = (duk_uint32_t) duk__cbor_decode_read_u16(dec_ctx); + goto shared_exit; + case 0x1aU: /* 4 byte */ + t = (duk_uint32_t) duk__cbor_decode_read_u32(dec_ctx); + goto shared_exit; + case 0x1bU: /* 8 byte */ + /* For uint64 it's important to handle the -1.0 part before + * casting to double: otherwise the adjustment might be lost + * in the cast. Uses: -1.0 - d <=> -(d + 1.0). + */ + t = (duk_uint32_t) duk__cbor_decode_read_u32(dec_ctx); + t2 = t; + t = (duk_uint32_t) duk__cbor_decode_read_u32(dec_ctx); + t1 = t; +#if 0 + t3 = (duk_uint64_t) t2 * DUK_U64_CONSTANT(0x100000000) + (duk_uint64_t) t1; + if (negative) { + if (t3 == DUK_UINT64_MAX) { + /* -(0xffff'ffff'ffff'ffffULL + 1) = + * -0x1'0000'0000'0000'0000 + * + * >>> -0x10000000000000000 + * -18446744073709551616L + */ + return -18446744073709551616.0; + } else { + return -((duk_double_t) (t3 + DUK_U64_CONSTANT(1))); + } + } else { + return (duk_double_t) t3; /* XXX: cast helper */ + } +#endif +#if 0 + t3 = (duk_uint64_t) t2 * DUK_U64_CONSTANT(0x100000000) + (duk_uint64_t) t1; + if (negative) { + /* Simpler version: take advantage of the fact that + * 0xffff'ffff'ffff'ffff and 0x1'0000'0000'0000'0000 + * both round to 0x1'0000'0000'0000'0000: + * > (0xffffffffffffffff).toString(16) + * '10000000000000000' + * > (0x10000000000000000).toString(16) + * '10000000000000000' + * + * For the DUK_UINT64_MAX case we just skip the +1 + * increment to avoid wrapping; the result still + * comes out right for an IEEE double cast. + */ + if (t3 != DUK_UINT64_MAX) { + t3++; + } + return -((duk_double_t) t3); + } else { + return (duk_double_t) t3; /* XXX: cast helper */ + } +#endif +#if 1 + /* Use two double parts, avoids dependency on 64-bit type. + * Avoid precision loss carefully, especially when dealing + * with the required +1 for negative values. + * + * No fastint check for this path at present. + */ + d1 = (duk_double_t) t1; /* XXX: cast helpers */ + d2 = (duk_double_t) t2 * 4294967296.0; + if (negative) { + d1 += 1.0; + } + d = d2 + d1; + if (negative) { + d = -d; + } +#endif + /* XXX: a push and check for fastint API would be nice */ + duk_push_number(dec_ctx->thr, d); + return; + } + + duk__cbor_decode_error(dec_ctx); + return; + + shared_exit: + if (negative) { + /* XXX: a push and check for fastint API would be nice */ + if ((duk_uint_t) t <= (duk_uint_t) -(DUK_INT_MIN + 1)) { + duk_push_int(dec_ctx->thr, -1 - ((duk_int_t) t)); + } else { + duk_push_number(dec_ctx->thr, -1.0 - (duk_double_t) t); + } + } else { + duk_push_uint(dec_ctx->thr, (duk_uint_t) t); + } +} + +DUK_LOCAL void duk__cbor_decode_skip_aival_int(duk_cbor_decode_context *dec_ctx, duk_uint8_t ib) { + const duk_int8_t skips[32] = { + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, + 0, 0, 0, 0, 0, 0, 0, 0, 1, 2, 4, 8, -1, -1, -1, -1 + }; + duk_uint8_t ai; + duk_int8_t skip; + + ai = ib & 0x1fU; + skip = skips[ai]; + if (DUK_UNLIKELY(skip < 0)) { + duk__cbor_decode_error(dec_ctx); + } + duk__cbor_decode_consume(dec_ctx, (duk_size_t) skip); + return; +} + +DUK_LOCAL duk_uint32_t duk__cbor_decode_aival_uint32(duk_cbor_decode_context *dec_ctx, duk_uint8_t ib) { + duk_uint8_t ai; + duk_uint32_t t; + + ai = ib & 0x1fU; + if (ai <= 0x17U) { + return (duk_uint32_t) ai; + } + + switch (ai) { + case 0x18U: /* 1 byte */ + t = (duk_uint32_t) duk__cbor_decode_readbyte(dec_ctx); + return t; + case 0x19U: /* 2 byte */ + t = (duk_uint32_t) duk__cbor_decode_read_u16(dec_ctx); + return t; + case 0x1aU: /* 4 byte */ + t = (duk_uint32_t) duk__cbor_decode_read_u32(dec_ctx); + return t; + case 0x1bU: /* 8 byte */ + t = (duk_uint32_t) duk__cbor_decode_read_u32(dec_ctx); + if (t != 0U) { + break; + } + t = (duk_uint32_t) duk__cbor_decode_read_u32(dec_ctx); + return t; + } + + duk__cbor_decode_error(dec_ctx); + return 0U; +} + +DUK_LOCAL void duk__cbor_decode_buffer(duk_cbor_decode_context *dec_ctx, duk_uint8_t expected_base) { + duk_uint32_t len; + duk_uint8_t *buf; + const duk_uint8_t *inp; + duk_uint8_t ib; + + ib = duk__cbor_decode_readbyte(dec_ctx); + if ((ib & 0xe0U) != expected_base) { + duk__cbor_decode_error(dec_ctx); + } + /* Indefinite format is rejected by the following on purpose. */ + len = duk__cbor_decode_aival_uint32(dec_ctx, ib); + inp = duk__cbor_decode_consume(dec_ctx, len); + /* XXX: duk_push_fixed_buffer_with_data() would be a nice API addition. */ + buf = (duk_uint8_t *) duk_push_fixed_buffer(dec_ctx->thr, (duk_size_t) len); + duk_memcpy((void *) buf, (const void *) inp, (size_t) len); +} + +DUK_LOCAL void duk__cbor_decode_join_buffers(duk_cbor_decode_context *dec_ctx, duk_idx_t count) { + duk_size_t total_size = 0; + duk_idx_t top = duk_get_top(dec_ctx->thr); + duk_idx_t base = top - count; /* count is >= 1 */ + duk_idx_t idx; + duk_uint8_t *p = NULL; + + DUK_ASSERT(count >= 1); + DUK_ASSERT(top >= count); + + for (;;) { + /* First round: compute total size. + * Second round: copy into place. + */ + for (idx = base; idx < top; idx++) { + duk_uint8_t *buf_data; + duk_size_t buf_size; + + buf_data = (duk_uint8_t *) duk_require_buffer(dec_ctx->thr, idx, &buf_size); + if (p != NULL) { + if (buf_size > 0U) { + duk_memcpy((void *) p, (const void *) buf_data, buf_size); + } + p += buf_size; + } else { + total_size += buf_size; + if (DUK_UNLIKELY(total_size < buf_size)) { /* Wrap check. */ + duk__cbor_decode_error(dec_ctx); + } + } + } + + if (p != NULL) { + break; + } else { + p = (duk_uint8_t *) duk_push_fixed_buffer(dec_ctx->thr, total_size); + DUK_ASSERT(p != NULL); + } + } + + duk_replace(dec_ctx->thr, base); + duk_pop_n(dec_ctx->thr, count - 1); +} + +DUK_LOCAL void duk__cbor_decode_and_join_strbuf(duk_cbor_decode_context *dec_ctx, duk_uint8_t expected_base) { + duk_idx_t count = 0; + for (;;) { + if (duk__cbor_decode_checkbreak(dec_ctx)) { + break; + } + duk_require_stack(dec_ctx->thr, 1); + duk__cbor_decode_buffer(dec_ctx, expected_base); + count++; + if (DUK_UNLIKELY(count <= 0)) { /* Wrap check. */ + duk__cbor_decode_error(dec_ctx); + } + } + if (count == 0) { + (void) duk_push_fixed_buffer(dec_ctx->thr, 0); + } else if (count > 1) { + duk__cbor_decode_join_buffers(dec_ctx, count); + } +} + +DUK_LOCAL duk_double_t duk__cbor_decode_half_float(duk_cbor_decode_context *dec_ctx) { + duk_double_union u; + const duk_uint8_t *inp; + duk_int_t expt; + duk_uint_t u16; + duk_uint_t tmp; + duk_double_t res; + + inp = duk__cbor_decode_consume(dec_ctx, 2); + u16 = ((duk_uint_t) inp[0] << 8) + (duk_uint_t) inp[1]; + expt = (duk_int_t) ((u16 >> 10) & 0x1fU) - 15; + + /* Reconstruct IEEE double into little endian order first, then convert + * to host order. + */ + + duk_memzero((void *) &u, sizeof(u)); + + if (expt == -15) { + /* Zero or denormal; but note that half float + * denormals become double normals. + */ + if ((u16 & 0x03ffU) == 0) { + u.uc[7] = inp[0] & 0x80U; + } else { + /* Create denormal by first creating a double that + * contains the denormal bits and a leading implicit + * 1-bit. Then subtract away the implicit 1-bit. + * + * 0.mmmmmmmmmm * 2^-14 + * 1.mmmmmmmmmm 0.... * 2^-14 + * -1.0000000000 0.... * 2^-14 + * + * Double exponent: -14 + 1023 = 0x3f1 + */ + u.uc[7] = 0x3fU; + u.uc[6] = 0x10U + (duk_uint8_t) ((u16 >> 6) & 0x0fU); + u.uc[5] = (duk_uint8_t) ((u16 << 2) & 0xffU); /* Mask is really 0xfcU */ + + duk_dblunion_little_to_host(&u); + res = u.d - 0.00006103515625; /* 2^(-14) */ + if (u16 & 0x8000U) { + res = -res; + } + return res; + } + } else if (expt == 16) { + /* +/- Inf or NaN. */ + if ((u16 & 0x03ffU) == 0) { + u.uc[7] = (inp[0] & 0x80U) + 0x7fU; + u.uc[6] = 0xf0U; + } else { + /* Create a 'quiet NaN' with highest + * bit set (there are some platforms + * where the NaN payload convention is + * the opposite). Keep sign. + */ + u.uc[7] = (inp[0] & 0x80U) + 0x7fU; + u.uc[6] = 0xf8U; + } + } else { + /* Normal. */ + tmp = (inp[0] & 0x80U) ? 0x80000000UL : 0UL; + tmp += (duk_uint_t) (expt + 1023) << 20; + tmp += (duk_uint_t) (inp[0] & 0x03U) << 18; + tmp += (duk_uint_t) (inp[1] & 0xffU) << 10; + u.uc[7] = (tmp >> 24) & 0xffU; + u.uc[6] = (tmp >> 16) & 0xffU; + u.uc[5] = (tmp >> 8) & 0xffU; + u.uc[4] = (tmp >> 0) & 0xffU; + } + + duk_dblunion_little_to_host(&u); + return u.d; +} + +DUK_LOCAL void duk__cbor_decode_string(duk_cbor_decode_context *dec_ctx, duk_uint8_t ib, duk_uint8_t ai) { + /* If the CBOR string data is not valid UTF-8 it is technically + * invalid CBOR. Possible behaviors at least: + * + * 1. Reject the input, i.e. throw TypeError. + * + * 2. Accept the input, but sanitize non-UTF-8 data into UTF-8 + * using U+FFFD replacements. Also it might make sense to + * decode non-BMP codepoints into surrogates for better + * ECMAScript compatibility. + * + * 3. Accept the input as a Duktape string (which are not always + * valid UTF-8), but reject any input that would create a + * Symbol representation. + * + * Current behavior is 3. + */ + + if (ai == 0x1fU) { + duk_uint8_t *buf_data; + duk_size_t buf_size; + + duk__cbor_decode_and_join_strbuf(dec_ctx, 0x60U); + buf_data = (duk_uint8_t *) duk_require_buffer(dec_ctx->thr, -1, &buf_size); + (void) duk_push_lstring(dec_ctx->thr, (const char *) buf_data, buf_size); + duk_remove(dec_ctx->thr, -2); + } else { + duk_uint32_t len; + const duk_uint8_t *inp; + + len = duk__cbor_decode_aival_uint32(dec_ctx, ib); + inp = duk__cbor_decode_consume(dec_ctx, len); + (void) duk_push_lstring(dec_ctx->thr, (const char *) inp, (duk_size_t) len); + } + if (duk_is_symbol(dec_ctx->thr, -1)) { + /* Refuse to create Symbols when decoding. */ + duk__cbor_decode_error(dec_ctx); + } + + /* XXX: Here a Duktape API call to convert input -> utf-8 with + * replacements would be nice. + */ +} + +DUK_LOCAL duk_bool_t duk__cbor_decode_array(duk_cbor_decode_context *dec_ctx, duk_uint8_t ib, duk_uint8_t ai) { + duk_uint32_t idx, len; + + duk__cbor_req_stack(dec_ctx); + + /* Support arrays up to 0xfffffffeU in length. 0xffffffff is + * used as an indefinite length marker. + */ + if (ai == 0x1fU) { + len = 0xffffffffUL; + } else { + len = duk__cbor_decode_aival_uint32(dec_ctx, ib); + if (len == 0xffffffffUL) { + return 0; + } + } + + /* XXX: use bare array? */ + duk_push_array(dec_ctx->thr); + for (idx = 0U; ;) { + if (len == 0xffffffffUL && duk__cbor_decode_checkbreak(dec_ctx)) { + break; + } + if (idx == len) { + if (ai == 0x1fU) { + return 0; + } + break; + } + duk__cbor_decode_value(dec_ctx); + duk_put_prop_index(dec_ctx->thr, -2, (duk_uarridx_t) idx); + idx++; + if (idx == 0U) { + return 0; /* wrapped */ + } + } + + return 1; +} + +DUK_LOCAL duk_bool_t duk__cbor_decode_map(duk_cbor_decode_context *dec_ctx, duk_uint8_t ib, duk_uint8_t ai) { + duk_uint32_t count; + + duk__cbor_req_stack(dec_ctx); + + if (ai == 0x1fU) { + count = 0xffffffffUL; + } else { + count = duk__cbor_decode_aival_uint32(dec_ctx, ib); + if (count == 0xffffffffUL) { + return 0; + } + } + + /* XXX: use bare object? */ + duk_push_object(dec_ctx->thr); + for (;;) { + if (count == 0xffffffffUL) { + if (duk__cbor_decode_checkbreak(dec_ctx)) { + break; + } + } else { + if (count == 0UL) { + break; + } + count--; + } + + /* Non-string keys are coerced to strings, + * possibly leading to overwriting previous + * keys. Last key of a certain coerced name + * wins. If key is an object, it will coerce + * to '[object Object]' which is consistent + * but potentially misleading. One alternative + * would be to skip non-string keys. + */ + duk__cbor_decode_value(dec_ctx); + duk__cbor_decode_value(dec_ctx); + duk_put_prop(dec_ctx->thr, -3); + } + + return 1; +} + +DUK_LOCAL duk_double_t duk__cbor_decode_float(duk_cbor_decode_context *dec_ctx) { + duk_float_union u; + const duk_uint8_t *inp; + inp = duk__cbor_decode_consume(dec_ctx, 4); + duk_memcpy((void *) u.uc, (const void *) inp, 4); + duk_fltunion_big_to_host(&u); + return (duk_double_t) u.f; +} + +DUK_LOCAL duk_double_t duk__cbor_decode_double(duk_cbor_decode_context *dec_ctx) { + duk_double_union u; + const duk_uint8_t *inp; + inp = duk__cbor_decode_consume(dec_ctx, 8); + duk_memcpy((void *) u.uc, (const void *) inp, 8); + duk_dblunion_big_to_host(&u); + return u.d; +} + +#if defined(DUK_CBOR_DECODE_FASTPATH) +#define DUK__CBOR_AI (ib & 0x1fU) + +DUK_LOCAL void duk__cbor_decode_value(duk_cbor_decode_context *dec_ctx) { + duk_uint8_t ib; + + /* Any paths potentially recursing back to duk__cbor_decode_value() + * must perform a Duktape value stack growth check. Avoid the check + * here for simple paths like primitive values. + */ + + reread_initial_byte: + DUK_DDD(DUK_DDDPRINT("cbor decode off=%ld len=%ld", (long) dec_ctx->off, (long) dec_ctx->len)); + + ib = duk__cbor_decode_readbyte(dec_ctx); + + /* Full initial byte switch, footprint cost over baseline is ~+1kB. */ + /* XXX: Force full switch with no range check. */ + + switch (ib) { + case 0x00U: case 0x01U: case 0x02U: case 0x03U: case 0x04U: case 0x05U: case 0x06U: case 0x07U: + case 0x08U: case 0x09U: case 0x0aU: case 0x0bU: case 0x0cU: case 0x0dU: case 0x0eU: case 0x0fU: + case 0x10U: case 0x11U: case 0x12U: case 0x13U: case 0x14U: case 0x15U: case 0x16U: case 0x17U: + duk_push_uint(dec_ctx->thr, ib); + break; + case 0x18U: case 0x19U: case 0x1aU: case 0x1bU: + duk__cbor_decode_push_aival_int(dec_ctx, ib, 0 /*negative*/); + break; + case 0x1cU: case 0x1dU: case 0x1eU: case 0x1fU: + goto format_error; + case 0x20U: case 0x21U: case 0x22U: case 0x23U: case 0x24U: case 0x25U: case 0x26U: case 0x27U: + case 0x28U: case 0x29U: case 0x2aU: case 0x2bU: case 0x2cU: case 0x2dU: case 0x2eU: case 0x2fU: + case 0x30U: case 0x31U: case 0x32U: case 0x33U: case 0x34U: case 0x35U: case 0x36U: case 0x37U: + duk_push_int(dec_ctx->thr, -((duk_int_t) ((ib - 0x20U) + 1U))); + break; + case 0x38U: case 0x39U: case 0x3aU: case 0x3bU: + duk__cbor_decode_push_aival_int(dec_ctx, ib, 1 /*negative*/); + break; + case 0x3cU: case 0x3dU: case 0x3eU: case 0x3fU: + goto format_error; + case 0x40U: case 0x41U: case 0x42U: case 0x43U: case 0x44U: case 0x45U: case 0x46U: case 0x47U: + case 0x48U: case 0x49U: case 0x4aU: case 0x4bU: case 0x4cU: case 0x4dU: case 0x4eU: case 0x4fU: + case 0x50U: case 0x51U: case 0x52U: case 0x53U: case 0x54U: case 0x55U: case 0x56U: case 0x57U: + /* XXX: Avoid rewind, we know the length already. */ + DUK_ASSERT(dec_ctx->off > 0U); + dec_ctx->off--; + duk__cbor_decode_buffer(dec_ctx, 0x40U); + break; + case 0x58U: case 0x59U: case 0x5aU: case 0x5bU: + /* XXX: Avoid rewind, decode length inline. */ + DUK_ASSERT(dec_ctx->off > 0U); + dec_ctx->off--; + duk__cbor_decode_buffer(dec_ctx, 0x40U); + break; + case 0x5cU: case 0x5dU: case 0x5eU: + goto format_error; + case 0x5fU: + duk__cbor_decode_and_join_strbuf(dec_ctx, 0x40U); + break; + case 0x60U: case 0x61U: case 0x62U: case 0x63U: case 0x64U: case 0x65U: case 0x66U: case 0x67U: + case 0x68U: case 0x69U: case 0x6aU: case 0x6bU: case 0x6cU: case 0x6dU: case 0x6eU: case 0x6fU: + case 0x70U: case 0x71U: case 0x72U: case 0x73U: case 0x74U: case 0x75U: case 0x76U: case 0x77U: + /* XXX: Avoid double decode of length. */ + duk__cbor_decode_string(dec_ctx, ib, DUK__CBOR_AI); + break; + case 0x78U: case 0x79U: case 0x7aU: case 0x7bU: + /* XXX: Avoid double decode of length. */ + duk__cbor_decode_string(dec_ctx, ib, DUK__CBOR_AI); + break; + case 0x7cU: case 0x7dU: case 0x7eU: + goto format_error; + case 0x7fU: + duk__cbor_decode_string(dec_ctx, ib, DUK__CBOR_AI); + break; + case 0x80U: case 0x81U: case 0x82U: case 0x83U: case 0x84U: case 0x85U: case 0x86U: case 0x87U: + case 0x88U: case 0x89U: case 0x8aU: case 0x8bU: case 0x8cU: case 0x8dU: case 0x8eU: case 0x8fU: + case 0x90U: case 0x91U: case 0x92U: case 0x93U: case 0x94U: case 0x95U: case 0x96U: case 0x97U: + if (DUK_UNLIKELY(duk__cbor_decode_array(dec_ctx, ib, DUK__CBOR_AI) == 0)) { + goto format_error; + } + break; + case 0x98U: case 0x99U: case 0x9aU: case 0x9bU: + if (DUK_UNLIKELY(duk__cbor_decode_array(dec_ctx, ib, DUK__CBOR_AI) == 0)) { + goto format_error; + } + break; + case 0x9cU: case 0x9dU: case 0x9eU: + goto format_error; + case 0x9fU: + if (DUK_UNLIKELY(duk__cbor_decode_array(dec_ctx, ib, DUK__CBOR_AI) == 0)) { + goto format_error; + } + break; + case 0xa0U: case 0xa1U: case 0xa2U: case 0xa3U: case 0xa4U: case 0xa5U: case 0xa6U: case 0xa7U: + case 0xa8U: case 0xa9U: case 0xaaU: case 0xabU: case 0xacU: case 0xadU: case 0xaeU: case 0xafU: + case 0xb0U: case 0xb1U: case 0xb2U: case 0xb3U: case 0xb4U: case 0xb5U: case 0xb6U: case 0xb7U: + if (DUK_UNLIKELY(duk__cbor_decode_map(dec_ctx, ib, DUK__CBOR_AI) == 0)) { + goto format_error; + } + break; + case 0xb8U: case 0xb9U: case 0xbaU: case 0xbbU: + if (DUK_UNLIKELY(duk__cbor_decode_map(dec_ctx, ib, DUK__CBOR_AI) == 0)) { + goto format_error; + } + break; + case 0xbcU: case 0xbdU: case 0xbeU: + goto format_error; + case 0xbfU: + if (DUK_UNLIKELY(duk__cbor_decode_map(dec_ctx, ib, DUK__CBOR_AI) == 0)) { + goto format_error; + } + break; + case 0xc0U: case 0xc1U: case 0xc2U: case 0xc3U: case 0xc4U: case 0xc5U: case 0xc6U: case 0xc7U: + case 0xc8U: case 0xc9U: case 0xcaU: case 0xcbU: case 0xccU: case 0xcdU: case 0xceU: case 0xcfU: + case 0xd0U: case 0xd1U: case 0xd2U: case 0xd3U: case 0xd4U: case 0xd5U: case 0xd6U: case 0xd7U: + /* Tag 0-23: drop. */ + goto reread_initial_byte; + case 0xd8U: case 0xd9U: case 0xdaU: case 0xdbU: + duk__cbor_decode_skip_aival_int(dec_ctx, ib); + goto reread_initial_byte; + case 0xdcU: case 0xddU: case 0xdeU: case 0xdfU: + goto format_error; + case 0xe0U: + goto format_error; + case 0xe1U: + goto format_error; + case 0xe2U: + goto format_error; + case 0xe3U: + goto format_error; + case 0xe4U: + goto format_error; + case 0xe5U: + goto format_error; + case 0xe6U: + goto format_error; + case 0xe7U: + goto format_error; + case 0xe8U: + goto format_error; + case 0xe9U: + goto format_error; + case 0xeaU: + goto format_error; + case 0xebU: + goto format_error; + case 0xecU: + goto format_error; + case 0xedU: + goto format_error; + case 0xeeU: + goto format_error; + case 0xefU: + goto format_error; + case 0xf0U: + goto format_error; + case 0xf1U: + goto format_error; + case 0xf2U: + goto format_error; + case 0xf3U: + goto format_error; + case 0xf4U: + duk_push_false(dec_ctx->thr); + break; + case 0xf5U: + duk_push_true(dec_ctx->thr); + break; + case 0xf6U: + duk_push_null(dec_ctx->thr); + break; + case 0xf7U: + duk_push_undefined(dec_ctx->thr); + break; + case 0xf8U: + /* Simple value 32-255, nothing defined yet, so reject. */ + goto format_error; + case 0xf9U: { + duk_double_t d; + d = duk__cbor_decode_half_float(dec_ctx); + duk_push_number(dec_ctx->thr, d); + break; + } + case 0xfaU: { + duk_double_t d; + d = duk__cbor_decode_float(dec_ctx); + duk_push_number(dec_ctx->thr, d); + break; + } + case 0xfbU: { + duk_double_t d; + d = duk__cbor_decode_double(dec_ctx); + duk_push_number(dec_ctx->thr, d); + break; + } + case 0xfcU: + case 0xfdU: + case 0xfeU: + case 0xffU: + goto format_error; + } /* end switch */ + + return; + + format_error: + duk__cbor_decode_error(dec_ctx); +} +#else /* DUK_CBOR_DECODE_FASTPATH */ +DUK_LOCAL void duk__cbor_decode_value(duk_cbor_decode_context *dec_ctx) { + duk_uint8_t ib, mt, ai; + + /* Any paths potentially recursing back to duk__cbor_decode_value() + * must perform a Duktape value stack growth check. Avoid the check + * here for simple paths like primitive values. + */ + + reread_initial_byte: + DUK_DDD(DUK_DDDPRINT("cbor decode off=%ld len=%ld", (long) dec_ctx->off, (long) dec_ctx->len)); + + ib = duk__cbor_decode_readbyte(dec_ctx); + mt = ib >> 5U; + ai = ib & 0x1fU; + + /* Additional information in [24,27] = [0x18,0x1b] has relatively + * uniform handling for all major types: read 1/2/4/8 additional + * bytes. For major type 7 the 1-byte value is a 'simple type', and + * 2/4/8-byte values are floats. For other major types the 1/2/4/8 + * byte values are integers. The lengths are uniform, but the typing + * is not. + */ + + switch (mt) { + case 0U: { /* unsigned integer */ + duk__cbor_decode_push_aival_int(dec_ctx, ib, 0 /*negative*/); + break; + } + case 1U: { /* negative integer */ + duk__cbor_decode_push_aival_int(dec_ctx, ib, 1 /*negative*/); + break; + } + case 2U: { /* byte string */ + if (ai == 0x1fU) { + duk__cbor_decode_and_join_strbuf(dec_ctx, 0x40U); + } else { + duk__cbor_decode_rewind(dec_ctx, 1U); + duk__cbor_decode_buffer(dec_ctx, 0x40U); + } + break; + } + case 3U: { /* text string */ + duk__cbor_decode_string(dec_ctx, ib, ai); + break; + } + case 4U: { /* array of data items */ + if (DUK_UNLIKELY(duk__cbor_decode_array(dec_ctx, ib, ai) == 0)) { + goto format_error; + } + break; + } + case 5U: { /* map of pairs of data items */ + if (DUK_UNLIKELY(duk__cbor_decode_map(dec_ctx, ib, ai) == 0)) { + goto format_error; + } + break; + } + case 6U: { /* semantic tagging */ + /* Tags are ignored now, re-read initial byte. A tagged + * value may itself be tagged (an unlimited number of times) + * so keep on peeling away tags. + */ + duk__cbor_decode_skip_aival_int(dec_ctx, ib); + goto reread_initial_byte; + } + case 7U: { /* floating point numbers, simple data types, break; other */ + switch (ai) { + case 0x14U: { + duk_push_false(dec_ctx->thr); + break; + } + case 0x15U: { + duk_push_true(dec_ctx->thr); + break; + } + case 0x16U: { + duk_push_null(dec_ctx->thr); + break; + } + case 0x17U: { + duk_push_undefined(dec_ctx->thr); + break; + } + case 0x18U: { /* more simple values (1 byte) */ + /* Simple value encoded in additional byte (none + * are defined so far). RFC 7049 states that the + * follow-up byte must be 32-255 to minimize + * confusion. So, a non-shortest encoding like + * f815 (= true, shortest encoding f5) must be + * rejected. cbor.me tester rejects f815, but + * e.g. Python CBOR binding decodes it as true. + */ + goto format_error; + } + case 0x19U: { /* half-float (2 bytes) */ + duk_double_t d; + d = duk__cbor_decode_half_float(dec_ctx); + duk_push_number(dec_ctx->thr, d); + break; + } + case 0x1aU: { /* float (4 bytes) */ + duk_double_t d; + d = duk__cbor_decode_float(dec_ctx); + duk_push_number(dec_ctx->thr, d); + break; + } + case 0x1bU: { /* double (8 bytes) */ + duk_double_t d; + d = duk__cbor_decode_double(dec_ctx); + duk_push_number(dec_ctx->thr, d); + break; + } + case 0xffU: /* unexpected break */ + default: { + goto format_error; + } + } /* end switch */ + break; + } + default: { + goto format_error; /* will never actually occur */ + } + } /* end switch */ + + return; + + format_error: + duk__cbor_decode_error(dec_ctx); +} +#endif /* DUK_CBOR_DECODE_FASTPATH */ + +DUK_LOCAL void duk__cbor_encode(duk_hthread *thr, duk_idx_t idx, duk_uint_t encode_flags) { + duk_cbor_encode_context enc_ctx; + duk_uint8_t *buf; + + DUK_UNREF(encode_flags); + + idx = duk_require_normalize_index(thr, idx); + + enc_ctx.thr = thr; + enc_ctx.idx_buf = duk_get_top(thr); + + enc_ctx.len = 64; + buf = (duk_uint8_t *) duk_push_dynamic_buffer(thr, enc_ctx.len); + enc_ctx.ptr = buf; + enc_ctx.buf = buf; + enc_ctx.buf_end = buf + enc_ctx.len; + + duk_dup(thr, idx); + duk__cbor_encode_value(&enc_ctx); + duk_resize_buffer(enc_ctx.thr, enc_ctx.idx_buf, (duk_size_t) (enc_ctx.ptr - enc_ctx.buf)); + duk_replace(thr, idx); +} + +DUK_LOCAL void duk__cbor_decode(duk_hthread *thr, duk_idx_t idx, duk_uint_t decode_flags) { + duk_cbor_decode_context dec_ctx; + + DUK_UNREF(decode_flags); + + /* Suppress compile warnings for functions only needed with e.g. + * asserts enabled. + */ + DUK_UNREF(duk__cbor_get_reserve); + + idx = duk_require_normalize_index(thr, idx); + + dec_ctx.thr = thr; + dec_ctx.buf = (const duk_uint8_t *) duk_require_buffer_data(thr, idx, &dec_ctx.len); + dec_ctx.off = 0; + /* dec_ctx.len: set above */ + + duk__cbor_req_stack(&dec_ctx); + duk__cbor_decode_value(&dec_ctx); + if (dec_ctx.off != dec_ctx.len) { + (void) duk_type_error(thr, "trailing garbage"); + } + + duk_replace(thr, idx); +} + +#else /* DUK_USE_CBOR_SUPPORT */ + +DUK_LOCAL void duk__cbor_encode(duk_hthread *thr, duk_idx_t idx, duk_uint_t encode_flags) { + DUK_UNREF(idx); + DUK_UNREF(encode_flags); + DUK_ERROR_UNSUPPORTED(thr); +} + +DUK_LOCAL void duk__cbor_decode(duk_hthread *thr, duk_idx_t idx, duk_uint_t decode_flags) { + DUK_UNREF(idx); + DUK_UNREF(decode_flags); + DUK_ERROR_UNSUPPORTED(thr); +} + +#endif /* DUK_USE_CBOR_SUPPORT */ + +/* + * Public APIs + */ + +DUK_EXTERNAL void duk_cbor_encode(duk_hthread *thr, duk_idx_t idx, duk_uint_t encode_flags) { + DUK_ASSERT_API_ENTRY(thr); + duk__cbor_encode(thr, idx, encode_flags); +} +DUK_EXTERNAL void duk_cbor_decode(duk_hthread *thr, duk_idx_t idx, duk_uint_t decode_flags) { + DUK_ASSERT_API_ENTRY(thr); + duk__cbor_decode(thr, idx, decode_flags); +} + +#if defined(DUK_USE_CBOR_BUILTIN) +#if defined(DUK_USE_CBOR_SUPPORT) +DUK_INTERNAL duk_ret_t duk_bi_cbor_encode(duk_hthread *thr) { + DUK_ASSERT_TOP(thr, 1); + + duk__cbor_encode(thr, -1, 0 /*flags*/); + + /* Produce an ArrayBuffer by first decoding into a plain buffer which + * mimics a Uint8Array and gettings its .buffer property. + */ + /* XXX: shortcut */ + (void) duk_get_prop_stridx(thr, -1, DUK_STRIDX_LC_BUFFER); + return 1; +} + +DUK_INTERNAL duk_ret_t duk_bi_cbor_decode(duk_hthread *thr) { + DUK_ASSERT_TOP(thr, 1); + + duk__cbor_decode(thr, -1, 0 /*flags*/); + return 1; +} +#else /* DUK_USE_CBOR_SUPPORT */ +DUK_INTERNAL duk_ret_t duk_bi_cbor_encode(duk_hthread *thr) { + DUK_ERROR_UNSUPPORTED(thr); + DUK_WO_NORETURN(return 0;); +} +DUK_INTERNAL duk_ret_t duk_bi_cbor_decode(duk_hthread *thr) { + DUK_ERROR_UNSUPPORTED(thr); + DUK_WO_NORETURN(return 0;); +} +#endif /* DUK_USE_CBOR_SUPPORT */ +#endif /* DUK_USE_CBOR_BUILTIN */ + +/* automatic undefs */ +#undef DUK__CBOR_AI +#line 1 "duk_bi_date.c" +/* + * Date built-ins + * + * Unlike most built-ins, Date has some platform dependencies for getting + * UTC time, converting between UTC and local time, and parsing and + * formatting time values. These are all abstracted behind DUK_USE_xxx + * config options. There are built-in platform specific providers for + * POSIX and Windows, but external providers can also be used. + * + * See doc/datetime.rst. + * + */ + +/* #include duk_internal.h -> already included */ + +/* XXX: currently defines unnecessary symbols when DUK_USE_DATE_BUILTIN is disabled. */ + +/* + * Forward declarations + */ + +DUK_LOCAL_DECL duk_double_t duk__push_this_get_timeval_tzoffset(duk_hthread *thr, duk_small_uint_t flags, duk_int_t *out_tzoffset); +DUK_LOCAL_DECL duk_double_t duk__push_this_get_timeval(duk_hthread *thr, duk_small_uint_t flags); +DUK_LOCAL_DECL void duk__twodigit_year_fixup(duk_hthread *thr, duk_idx_t idx_val); +DUK_LOCAL_DECL duk_ret_t duk__set_this_timeval_from_dparts(duk_hthread *thr, duk_double_t *dparts, duk_small_uint_t flags); + +/* + * Other file level defines + */ + +/* Debug macro to print all parts and dparts (used manually because of debug level). */ +#define DUK__DPRINT_PARTS_AND_DPARTS(parts,dparts) do { \ + DUK_D(DUK_DPRINT("parts: %ld %ld %ld %ld %ld %ld %ld %ld, dparts: %lf %lf %lf %lf %lf %lf %lf %lf", \ + (long) (parts)[0], (long) (parts)[1], \ + (long) (parts)[2], (long) (parts)[3], \ + (long) (parts)[4], (long) (parts)[5], \ + (long) (parts)[6], (long) (parts)[7], \ + (double) (dparts)[0], (double) (dparts)[1], \ + (double) (dparts)[2], (double) (dparts)[3], \ + (double) (dparts)[4], (double) (dparts)[5], \ + (double) (dparts)[6], (double) (dparts)[7])); \ + } while (0) +#define DUK__DPRINT_PARTS(parts) do { \ + DUK_D(DUK_DPRINT("parts: %ld %ld %ld %ld %ld %ld %ld %ld", \ + (long) (parts)[0], (long) (parts)[1], \ + (long) (parts)[2], (long) (parts)[3], \ + (long) (parts)[4], (long) (parts)[5], \ + (long) (parts)[6], (long) (parts)[7])); \ + } while (0) +#define DUK__DPRINT_DPARTS(dparts) do { \ + DUK_D(DUK_DPRINT("dparts: %lf %lf %lf %lf %lf %lf %lf %lf", \ + (double) (dparts)[0], (double) (dparts)[1], \ + (double) (dparts)[2], (double) (dparts)[3], \ + (double) (dparts)[4], (double) (dparts)[5], \ + (double) (dparts)[6], (double) (dparts)[7])); \ + } while (0) + +/* Equivalent year for DST calculations outside [1970,2038[ range, see + * E5 Section 15.9.1.8. Equivalent year has the same leap-year-ness and + * starts with the same weekday on Jan 1. + * https://bugzilla.mozilla.org/show_bug.cgi?id=351066 + */ +#define DUK__YEAR(x) ((duk_uint8_t) ((x) - 1970)) +DUK_LOCAL duk_uint8_t duk__date_equivyear[14] = { +#if 1 + /* This is based on V8 EquivalentYear() algorithm (see util/genequivyear.py): + * http://code.google.com/p/v8/source/browse/trunk/src/date.h#146 + */ + + /* non-leap year: sunday, monday, ... */ + DUK__YEAR(2023), DUK__YEAR(2035), DUK__YEAR(2019), DUK__YEAR(2031), + DUK__YEAR(2015), DUK__YEAR(2027), DUK__YEAR(2011), + + /* leap year: sunday, monday, ... */ + DUK__YEAR(2012), DUK__YEAR(2024), DUK__YEAR(2008), DUK__YEAR(2020), + DUK__YEAR(2032), DUK__YEAR(2016), DUK__YEAR(2028) +#endif + +#if 0 + /* This is based on Rhino EquivalentYear() algorithm: + * https://github.com/mozilla/rhino/blob/f99cc11d616f0cdda2c42bde72b3484df6182947/src/org/mozilla/javascript/NativeDate.java + */ + + /* non-leap year: sunday, monday, ... */ + DUK__YEAR(1978), DUK__YEAR(1973), DUK__YEAR(1985), DUK__YEAR(1986), + DUK__YEAR(1981), DUK__YEAR(1971), DUK__YEAR(1977), + + /* leap year: sunday, monday, ... */ + DUK__YEAR(1984), DUK__YEAR(1996), DUK__YEAR(1980), DUK__YEAR(1992), + DUK__YEAR(1976), DUK__YEAR(1988), DUK__YEAR(1972) +#endif +}; + +/* + * ISO 8601 subset parser. + */ + +/* Parser part count. */ +#define DUK__NUM_ISO8601_PARSER_PARTS 9 + +/* Parser part indices. */ +#define DUK__PI_YEAR 0 +#define DUK__PI_MONTH 1 +#define DUK__PI_DAY 2 +#define DUK__PI_HOUR 3 +#define DUK__PI_MINUTE 4 +#define DUK__PI_SECOND 5 +#define DUK__PI_MILLISECOND 6 +#define DUK__PI_TZHOUR 7 +#define DUK__PI_TZMINUTE 8 + +/* Parser part masks. */ +#define DUK__PM_YEAR (1 << DUK__PI_YEAR) +#define DUK__PM_MONTH (1 << DUK__PI_MONTH) +#define DUK__PM_DAY (1 << DUK__PI_DAY) +#define DUK__PM_HOUR (1 << DUK__PI_HOUR) +#define DUK__PM_MINUTE (1 << DUK__PI_MINUTE) +#define DUK__PM_SECOND (1 << DUK__PI_SECOND) +#define DUK__PM_MILLISECOND (1 << DUK__PI_MILLISECOND) +#define DUK__PM_TZHOUR (1 << DUK__PI_TZHOUR) +#define DUK__PM_TZMINUTE (1 << DUK__PI_TZMINUTE) + +/* Parser separator indices. */ +#define DUK__SI_PLUS 0 +#define DUK__SI_MINUS 1 +#define DUK__SI_T 2 +#define DUK__SI_SPACE 3 +#define DUK__SI_COLON 4 +#define DUK__SI_PERIOD 5 +#define DUK__SI_Z 6 +#define DUK__SI_NUL 7 + +/* Parser separator masks. */ +#define DUK__SM_PLUS (1 << DUK__SI_PLUS) +#define DUK__SM_MINUS (1 << DUK__SI_MINUS) +#define DUK__SM_T (1 << DUK__SI_T) +#define DUK__SM_SPACE (1 << DUK__SI_SPACE) +#define DUK__SM_COLON (1 << DUK__SI_COLON) +#define DUK__SM_PERIOD (1 << DUK__SI_PERIOD) +#define DUK__SM_Z (1 << DUK__SI_Z) +#define DUK__SM_NUL (1 << DUK__SI_NUL) + +/* Rule control flags. */ +#define DUK__CF_NEG (1 << 0) /* continue matching, set neg_tzoffset flag */ +#define DUK__CF_ACCEPT (1 << 1) /* accept string */ +#define DUK__CF_ACCEPT_NUL (1 << 2) /* accept string if next char is NUL (otherwise reject) */ + +#define DUK__PACK_RULE(partmask,sepmask,nextpart,flags) \ + ((duk_uint32_t) (partmask) + \ + (((duk_uint32_t) (sepmask)) << 9) + \ + (((duk_uint32_t) (nextpart)) << 17) + \ + (((duk_uint32_t) (flags)) << 21)) + +#define DUK__UNPACK_RULE(rule,var_nextidx,var_flags) do { \ + (var_nextidx) = (duk_small_uint_t) (((rule) >> 17) & 0x0f); \ + (var_flags) = (duk_small_uint_t) ((rule) >> 21); \ + } while (0) + +#define DUK__RULE_MASK_PART_SEP 0x1ffffUL + +/* Matching separator index is used in the control table */ +DUK_LOCAL const duk_uint8_t duk__parse_iso8601_seps[] = { + DUK_ASC_PLUS /*0*/, DUK_ASC_MINUS /*1*/, DUK_ASC_UC_T /*2*/, DUK_ASC_SPACE /*3*/, + DUK_ASC_COLON /*4*/, DUK_ASC_PERIOD /*5*/, DUK_ASC_UC_Z /*6*/, DUK_ASC_NUL /*7*/ +}; + +/* Rule table: first matching rule is used to determine what to do next. */ +DUK_LOCAL const duk_uint32_t duk__parse_iso8601_control[] = { + DUK__PACK_RULE(DUK__PM_YEAR, DUK__SM_MINUS, DUK__PI_MONTH, 0), + DUK__PACK_RULE(DUK__PM_MONTH, DUK__SM_MINUS, DUK__PI_DAY, 0), + DUK__PACK_RULE(DUK__PM_YEAR | DUK__PM_MONTH | DUK__PM_DAY, DUK__SM_T | DUK__SM_SPACE, DUK__PI_HOUR, 0), + DUK__PACK_RULE(DUK__PM_HOUR, DUK__SM_COLON, DUK__PI_MINUTE, 0), + DUK__PACK_RULE(DUK__PM_MINUTE, DUK__SM_COLON, DUK__PI_SECOND, 0), + DUK__PACK_RULE(DUK__PM_SECOND, DUK__SM_PERIOD, DUK__PI_MILLISECOND, 0), + DUK__PACK_RULE(DUK__PM_TZHOUR, DUK__SM_COLON, DUK__PI_TZMINUTE, 0), + DUK__PACK_RULE(DUK__PM_YEAR | DUK__PM_MONTH | DUK__PM_DAY | DUK__PM_HOUR /*Note1*/ | DUK__PM_MINUTE | DUK__PM_SECOND | DUK__PM_MILLISECOND, DUK__SM_PLUS, DUK__PI_TZHOUR, 0), + DUK__PACK_RULE(DUK__PM_YEAR | DUK__PM_MONTH | DUK__PM_DAY | DUK__PM_HOUR /*Note1*/ | DUK__PM_MINUTE | DUK__PM_SECOND | DUK__PM_MILLISECOND, DUK__SM_MINUS, DUK__PI_TZHOUR, DUK__CF_NEG), + DUK__PACK_RULE(DUK__PM_YEAR | DUK__PM_MONTH | DUK__PM_DAY | DUK__PM_HOUR /*Note1*/ | DUK__PM_MINUTE | DUK__PM_SECOND | DUK__PM_MILLISECOND, DUK__SM_Z, 0, DUK__CF_ACCEPT_NUL), + DUK__PACK_RULE(DUK__PM_YEAR | DUK__PM_MONTH | DUK__PM_DAY | DUK__PM_HOUR /*Note1*/ | DUK__PM_MINUTE | DUK__PM_SECOND | DUK__PM_MILLISECOND | DUK__PM_TZHOUR /*Note2*/ | DUK__PM_TZMINUTE, DUK__SM_NUL, 0, DUK__CF_ACCEPT) + + /* Note1: the specification doesn't require matching a time form with + * just hours ("HH"), but we accept it here, e.g. "2012-01-02T12Z". + * + * Note2: the specification doesn't require matching a timezone offset + * with just hours ("HH"), but accept it here, e.g. "2012-01-02T03:04:05+02" + */ +}; + +DUK_LOCAL duk_bool_t duk__parse_string_iso8601_subset(duk_hthread *thr, const char *str) { + duk_int_t parts[DUK__NUM_ISO8601_PARSER_PARTS]; + duk_double_t dparts[DUK_DATE_IDX_NUM_PARTS]; + duk_double_t d; + const duk_uint8_t *p; + duk_small_uint_t part_idx = 0; + duk_int_t accum = 0; + duk_small_uint_t ndigits = 0; + duk_bool_t neg_year = 0; + duk_bool_t neg_tzoffset = 0; + duk_uint_fast8_t ch; + duk_small_uint_t i; + + /* During parsing, month and day are one-based; set defaults here. */ + duk_memzero(parts, sizeof(parts)); + DUK_ASSERT(parts[DUK_DATE_IDX_YEAR] == 0); /* don't care value, year is mandatory */ + parts[DUK_DATE_IDX_MONTH] = 1; + parts[DUK_DATE_IDX_DAY] = 1; + + /* Special handling for year sign. */ + p = (const duk_uint8_t *) str; + ch = p[0]; + if (ch == DUK_ASC_PLUS) { + p++; + } else if (ch == DUK_ASC_MINUS) { + neg_year = 1; + p++; + } + + for (;;) { + ch = *p++; + DUK_DDD(DUK_DDDPRINT("parsing, part_idx=%ld, char=%ld ('%c')", + (long) part_idx, (long) ch, + (int) ((ch >= 0x20 && ch <= 0x7e) ? ch : DUK_ASC_QUESTION))); + + if (ch >= DUK_ASC_0 && ch <= DUK_ASC_9) { + if (ndigits >= 9) { + DUK_DDD(DUK_DDDPRINT("too many digits -> reject")); + goto reject; + } + if (part_idx == DUK__PI_MILLISECOND && ndigits >= 3) { + /* ignore millisecond fractions after 3 */ + } else { + accum = accum * 10 + ((duk_int_t) ch) - ((duk_int_t) DUK_ASC_0) + 0x00; + ndigits++; + } + } else { + duk_uint_fast32_t match_val; + duk_small_uint_t sep_idx; + + if (ndigits <= 0) { + goto reject; + } + if (part_idx == DUK__PI_MILLISECOND) { + /* complete the millisecond field */ + while (ndigits < 3) { + accum *= 10; + ndigits++; + } + } + parts[part_idx] = accum; + DUK_DDD(DUK_DDDPRINT("wrote part %ld -> value %ld", (long) part_idx, (long) accum)); + + accum = 0; + ndigits = 0; + + for (i = 0; i < (duk_small_uint_t) (sizeof(duk__parse_iso8601_seps) / sizeof(duk_uint8_t)); i++) { + if (duk__parse_iso8601_seps[i] == ch) { + break; + } + } + if (i == (duk_small_uint_t) (sizeof(duk__parse_iso8601_seps) / sizeof(duk_uint8_t))) { + DUK_DDD(DUK_DDDPRINT("separator character doesn't match -> reject")); + goto reject; + } + + sep_idx = i; + match_val = (1UL << part_idx) + (1UL << (sep_idx + 9)); /* match against rule part/sep bits */ + + for (i = 0; i < (duk_small_uint_t) (sizeof(duk__parse_iso8601_control) / sizeof(duk_uint32_t)); i++) { + duk_uint_fast32_t rule = duk__parse_iso8601_control[i]; + duk_small_uint_t nextpart; + duk_small_uint_t cflags; + + DUK_DDD(DUK_DDDPRINT("part_idx=%ld, sep_idx=%ld, match_val=0x%08lx, considering rule=0x%08lx", + (long) part_idx, (long) sep_idx, + (unsigned long) match_val, (unsigned long) rule)); + + if ((rule & match_val) != match_val) { + continue; + } + + DUK__UNPACK_RULE(rule, nextpart, cflags); + + DUK_DDD(DUK_DDDPRINT("rule match -> part_idx=%ld, sep_idx=%ld, match_val=0x%08lx, " + "rule=0x%08lx -> nextpart=%ld, cflags=0x%02lx", + (long) part_idx, (long) sep_idx, + (unsigned long) match_val, (unsigned long) rule, + (long) nextpart, (unsigned long) cflags)); + + if (cflags & DUK__CF_NEG) { + neg_tzoffset = 1; + } + + if (cflags & DUK__CF_ACCEPT) { + goto accept; + } + + if (cflags & DUK__CF_ACCEPT_NUL) { + DUK_ASSERT(*(p - 1) != (char) 0); + if (*p == DUK_ASC_NUL) { + goto accept; + } + goto reject; + } + + part_idx = nextpart; + break; + } /* rule match */ + + if (i == (duk_small_uint_t) (sizeof(duk__parse_iso8601_control) / sizeof(duk_uint32_t))) { + DUK_DDD(DUK_DDDPRINT("no rule matches -> reject")); + goto reject; + } + + if (ch == 0) { + /* This shouldn't be necessary, but check just in case + * to avoid any chance of overruns. + */ + DUK_DDD(DUK_DDDPRINT("NUL after rule matching (should not happen) -> reject")); + goto reject; + } + } /* if-digit-else-ctrl */ + } /* char loop */ + + /* We should never exit the loop above. */ + DUK_UNREACHABLE(); + + reject: + DUK_DDD(DUK_DDDPRINT("reject")); + return 0; + + accept: + DUK_DDD(DUK_DDDPRINT("accept")); + + /* Apply timezone offset to get the main parts in UTC */ + if (neg_year) { + parts[DUK__PI_YEAR] = -parts[DUK__PI_YEAR]; + } + if (neg_tzoffset) { + parts[DUK__PI_HOUR] += parts[DUK__PI_TZHOUR]; + parts[DUK__PI_MINUTE] += parts[DUK__PI_TZMINUTE]; + } else { + parts[DUK__PI_HOUR] -= parts[DUK__PI_TZHOUR]; + parts[DUK__PI_MINUTE] -= parts[DUK__PI_TZMINUTE]; + } + parts[DUK__PI_MONTH] -= 1; /* zero-based month */ + parts[DUK__PI_DAY] -= 1; /* zero-based day */ + + /* Use double parts, they tolerate unnormalized time. + * + * Note: DUK_DATE_IDX_WEEKDAY is initialized with a bogus value (DUK__PI_TZHOUR) + * on purpose. It won't be actually used by duk_bi_date_get_timeval_from_dparts(), + * but will make the value initialized just in case, and avoid any + * potential for Valgrind issues. + */ + for (i = 0; i < DUK_DATE_IDX_NUM_PARTS; i++) { + DUK_DDD(DUK_DDDPRINT("part[%ld] = %ld", (long) i, (long) parts[i])); + dparts[i] = parts[i]; + } + + d = duk_bi_date_get_timeval_from_dparts(dparts, 0 /*flags*/); + duk_push_number(thr, d); + return 1; +} + +/* + * Date/time parsing helper. + * + * Parse a datetime string into a time value. We must first try to parse + * the input according to the standard format in E5.1 Section 15.9.1.15. + * If that fails, we can try to parse using custom parsing, which can + * either be platform neutral (custom code) or platform specific (using + * existing platform API calls). + * + * Note in particular that we must parse whatever toString(), toUTCString(), + * and toISOString() can produce; see E5.1 Section 15.9.4.2. + * + * Returns 1 to allow tail calling. + * + * There is much room for improvement here with respect to supporting + * alternative datetime formats. For instance, V8 parses '2012-01-01' as + * UTC and '2012/01/01' as local time. + */ + +DUK_LOCAL duk_ret_t duk__parse_string(duk_hthread *thr, const char *str) { + /* XXX: there is a small risk here: because the ISO 8601 parser is + * very loose, it may end up parsing some datetime values which + * would be better parsed with a platform specific parser. + */ + + DUK_ASSERT(str != NULL); + DUK_DDD(DUK_DDDPRINT("parse datetime from string '%s'", (const char *) str)); + + if (duk__parse_string_iso8601_subset(thr, str) != 0) { + return 1; + } + +#if defined(DUK_USE_DATE_PARSE_STRING) + /* Contract, either: + * - Push value on stack and return 1 + * - Don't push anything on stack and return 0 + */ + + if (DUK_USE_DATE_PARSE_STRING(thr, str) != 0) { + return 1; + } +#else + /* No platform-specific parsing, this is not an error. */ +#endif + + duk_push_nan(thr); + return 1; +} + +/* + * Calendar helpers + * + * Some helpers are used for getters and can operate on normalized values + * which can be represented with 32-bit signed integers. Other helpers are + * needed by setters and operate on un-normalized double values, must watch + * out for non-finite numbers etc. + */ + +DUK_LOCAL duk_uint8_t duk__days_in_month[12] = { + (duk_uint8_t) 31, (duk_uint8_t) 28, (duk_uint8_t) 31, (duk_uint8_t) 30, + (duk_uint8_t) 31, (duk_uint8_t) 30, (duk_uint8_t) 31, (duk_uint8_t) 31, + (duk_uint8_t) 30, (duk_uint8_t) 31, (duk_uint8_t) 30, (duk_uint8_t) 31 +}; + +/* Maximum iteration count for computing UTC-to-local time offset when + * creating an ECMAScript time value from local parts. + */ +#define DUK__LOCAL_TZOFFSET_MAXITER 4 + +/* Because 'day since epoch' can be negative and is used to compute weekday + * using a modulo operation, add this multiple of 7 to avoid negative values + * when year is below 1970 epoch. ECMAScript time values are restricted to + * +/- 100 million days from epoch, so this adder fits nicely into 32 bits. + * Round to a multiple of 7 (= floor(100000000 / 7) * 7) and add margin. + */ +#define DUK__WEEKDAY_MOD_ADDER (20000000 * 7) /* 0x08583b00 */ + +DUK_INTERNAL duk_bool_t duk_bi_date_is_leap_year(duk_int_t year) { + if ((year % 4) != 0) { + return 0; + } + if ((year % 100) != 0) { + return 1; + } + if ((year % 400) != 0) { + return 0; + } + return 1; +} + +DUK_INTERNAL duk_bool_t duk_bi_date_timeval_in_valid_range(duk_double_t x) { + return (x >= -DUK_DATE_MSEC_100M_DAYS && x <= DUK_DATE_MSEC_100M_DAYS); +} + +DUK_INTERNAL duk_bool_t duk_bi_date_timeval_in_leeway_range(duk_double_t x) { + return (x >= -DUK_DATE_MSEC_100M_DAYS_LEEWAY && x <= DUK_DATE_MSEC_100M_DAYS_LEEWAY); +} + +DUK_INTERNAL duk_bool_t duk_bi_date_year_in_valid_range(duk_double_t x) { + return (x >= DUK_DATE_MIN_ECMA_YEAR && x <= DUK_DATE_MAX_ECMA_YEAR); +} + +DUK_LOCAL duk_double_t duk__timeclip(duk_double_t x) { + if (!DUK_ISFINITE(x)) { + return DUK_DOUBLE_NAN; + } + + if (!duk_bi_date_timeval_in_valid_range(x)) { + return DUK_DOUBLE_NAN; + } + + x = duk_js_tointeger_number(x); + + /* Here we'd have the option to normalize -0 to +0. */ + return x; +} + +/* Integer division which floors also negative values correctly. */ +DUK_LOCAL duk_int_t duk__div_floor(duk_int_t a, duk_int_t b) { + DUK_ASSERT(b > 0); + if (a >= 0) { + return a / b; + } else { + /* e.g. a = -4, b = 5 --> -4 - 5 + 1 / 5 --> -8 / 5 --> -1 + * a = -5, b = 5 --> -5 - 5 + 1 / 5 --> -9 / 5 --> -1 + * a = -6, b = 5 --> -6 - 5 + 1 / 5 --> -10 / 5 --> -2 + */ + return (a - b + 1) / b; + } +} + +/* Compute day number of the first day of a given year. */ +DUK_LOCAL duk_int_t duk__day_from_year(duk_int_t year) { + /* Note: in integer arithmetic, (x / 4) is same as floor(x / 4) for non-negative + * values, but is incorrect for negative ones. + */ + return 365 * (year - 1970) + + duk__div_floor(year - 1969, 4) + - duk__div_floor(year - 1901, 100) + + duk__div_floor(year - 1601, 400); +} + +/* Given a day number, determine year and day-within-year. */ +DUK_LOCAL duk_int_t duk__year_from_day(duk_int_t day, duk_small_int_t *out_day_within_year) { + duk_int_t year; + duk_int_t diff_days; + + /* estimate year upwards (towards positive infinity), then back down; + * two iterations should be enough + */ + + if (day >= 0) { + year = 1970 + day / 365; + } else { + year = 1970 + day / 366; + } + + for (;;) { + diff_days = duk__day_from_year(year) - day; + DUK_DDD(DUK_DDDPRINT("year=%ld day=%ld, diff_days=%ld", (long) year, (long) day, (long) diff_days)); + if (diff_days <= 0) { + DUK_ASSERT(-diff_days < 366); /* fits into duk_small_int_t */ + *out_day_within_year = -diff_days; + DUK_DDD(DUK_DDDPRINT("--> year=%ld, day-within-year=%ld", + (long) year, (long) *out_day_within_year)); + DUK_ASSERT(*out_day_within_year >= 0); + DUK_ASSERT(*out_day_within_year < (duk_bi_date_is_leap_year(year) ? 366 : 365)); + return year; + } + + /* Note: this is very tricky; we must never 'overshoot' the + * correction downwards. + */ + year -= 1 + (diff_days - 1) / 366; /* conservative */ + } +} + +/* Given a (year, month, day-within-month) triple, compute day number. + * The input triple is un-normalized and may contain non-finite values. + */ +DUK_LOCAL duk_double_t duk__make_day(duk_double_t year, duk_double_t month, duk_double_t day) { + duk_int_t day_num; + duk_bool_t is_leap; + duk_small_int_t i, n; + + /* Assume that year, month, day are all coerced to whole numbers. + * They may also be NaN or infinity, in which case this function + * must return NaN or infinity to ensure time value becomes NaN. + * If 'day' is NaN, the final return will end up returning a NaN, + * so it doesn't need to be checked here. + */ + + if (!DUK_ISFINITE(year) || !DUK_ISFINITE(month)) { + return DUK_DOUBLE_NAN; + } + + year += DUK_FLOOR(month / 12.0); + + month = DUK_FMOD(month, 12.0); + if (month < 0.0) { + /* handle negative values */ + month += 12.0; + } + + /* The algorithm in E5.1 Section 15.9.1.12 normalizes month, but + * does not normalize the day-of-month (nor check whether or not + * it is finite) because it's not necessary for finding the day + * number which matches the (year,month) pair. + * + * We assume that duk__day_from_year() is exact here. + * + * Without an explicit infinity / NaN check in the beginning, + * day_num would be a bogus integer here. + * + * It's possible for 'year' to be out of integer range here. + * If so, we need to return NaN without integer overflow. + * This fixes test-bug-setyear-overflow.js. + */ + + if (!duk_bi_date_year_in_valid_range(year)) { + DUK_DD(DUK_DDPRINT("year not in ecmascript valid range, avoid integer overflow: %lf", (double) year)); + return DUK_DOUBLE_NAN; + } + day_num = duk__day_from_year((duk_int_t) year); + is_leap = duk_bi_date_is_leap_year((duk_int_t) year); + + n = (duk_small_int_t) month; + for (i = 0; i < n; i++) { + day_num += duk__days_in_month[i]; + if (i == 1 && is_leap) { + day_num++; + } + } + + /* If 'day' is NaN, returns NaN. */ + return (duk_double_t) day_num + day; +} + +/* Split time value into parts. The time value may contain fractions (it may + * come from duk_time_to_components() API call) which are truncated. Possible + * local time adjustment has already been applied when reading the time value. + */ +DUK_INTERNAL void duk_bi_date_timeval_to_parts(duk_double_t d, duk_int_t *parts, duk_double_t *dparts, duk_small_uint_t flags) { + duk_double_t d1, d2; + duk_int_t t1, t2; + duk_int_t day_since_epoch; + duk_int_t year; /* does not fit into 16 bits */ + duk_small_int_t day_in_year; + duk_small_int_t month; + duk_small_int_t day; + duk_small_int_t dim; + duk_int_t jan1_since_epoch; + duk_small_int_t jan1_weekday; + duk_int_t equiv_year; + duk_small_uint_t i; + duk_bool_t is_leap; + duk_small_int_t arridx; + + DUK_ASSERT(DUK_ISFINITE(d)); /* caller checks */ + d = DUK_FLOOR(d); /* remove fractions if present */ + DUK_ASSERT(duk_double_equals(DUK_FLOOR(d), d)); + + /* The timevalue must be in valid ECMAScript range, but since a local + * time offset can be applied, we need to allow a +/- 24h leeway to + * the value. In other words, although the UTC time is within the + * ECMAScript range, the local part values can be just outside of it. + */ + DUK_UNREF(duk_bi_date_timeval_in_leeway_range); + DUK_ASSERT(duk_bi_date_timeval_in_leeway_range(d)); + + /* These computations are guaranteed to be exact for the valid + * E5 time value range, assuming milliseconds without fractions. + */ + d1 = (duk_double_t) DUK_FMOD(d, (double) DUK_DATE_MSEC_DAY); + if (d1 < 0.0) { + /* deal with negative values */ + d1 += (duk_double_t) DUK_DATE_MSEC_DAY; + } + d2 = DUK_FLOOR((double) (d / (duk_double_t) DUK_DATE_MSEC_DAY)); + DUK_ASSERT(duk_double_equals(d2 * ((duk_double_t) DUK_DATE_MSEC_DAY) + d1, d)); + /* now expected to fit into a 32-bit integer */ + t1 = (duk_int_t) d1; + t2 = (duk_int_t) d2; + day_since_epoch = t2; + DUK_ASSERT(duk_double_equals((duk_double_t) t1, d1)); + DUK_ASSERT(duk_double_equals((duk_double_t) t2, d2)); + + /* t1 = milliseconds within day (fits 32 bit) + * t2 = day number from epoch (fits 32 bit, may be negative) + */ + + parts[DUK_DATE_IDX_MILLISECOND] = t1 % 1000; t1 /= 1000; + parts[DUK_DATE_IDX_SECOND] = t1 % 60; t1 /= 60; + parts[DUK_DATE_IDX_MINUTE] = t1 % 60; t1 /= 60; + parts[DUK_DATE_IDX_HOUR] = t1; + DUK_ASSERT(parts[DUK_DATE_IDX_MILLISECOND] >= 0 && parts[DUK_DATE_IDX_MILLISECOND] <= 999); + DUK_ASSERT(parts[DUK_DATE_IDX_SECOND] >= 0 && parts[DUK_DATE_IDX_SECOND] <= 59); + DUK_ASSERT(parts[DUK_DATE_IDX_MINUTE] >= 0 && parts[DUK_DATE_IDX_MINUTE] <= 59); + DUK_ASSERT(parts[DUK_DATE_IDX_HOUR] >= 0 && parts[DUK_DATE_IDX_HOUR] <= 23); + + DUK_DDD(DUK_DDDPRINT("d=%lf, d1=%lf, d2=%lf, t1=%ld, t2=%ld, parts: hour=%ld min=%ld sec=%ld msec=%ld", + (double) d, (double) d1, (double) d2, (long) t1, (long) t2, + (long) parts[DUK_DATE_IDX_HOUR], + (long) parts[DUK_DATE_IDX_MINUTE], + (long) parts[DUK_DATE_IDX_SECOND], + (long) parts[DUK_DATE_IDX_MILLISECOND])); + + /* This assert depends on the input parts representing time inside + * the ECMAScript range. + */ + DUK_ASSERT(t2 + DUK__WEEKDAY_MOD_ADDER >= 0); + parts[DUK_DATE_IDX_WEEKDAY] = (t2 + 4 + DUK__WEEKDAY_MOD_ADDER) % 7; /* E5.1 Section 15.9.1.6 */ + DUK_ASSERT(parts[DUK_DATE_IDX_WEEKDAY] >= 0 && parts[DUK_DATE_IDX_WEEKDAY] <= 6); + + year = duk__year_from_day(t2, &day_in_year); + day = day_in_year; + is_leap = duk_bi_date_is_leap_year(year); + for (month = 0; month < 12; month++) { + dim = duk__days_in_month[month]; + if (month == 1 && is_leap) { + dim++; + } + DUK_DDD(DUK_DDDPRINT("month=%ld, dim=%ld, day=%ld", + (long) month, (long) dim, (long) day)); + if (day < dim) { + break; + } + day -= dim; + } + DUK_DDD(DUK_DDDPRINT("final month=%ld", (long) month)); + DUK_ASSERT(month >= 0 && month <= 11); + DUK_ASSERT(day >= 0 && day <= 31); + + /* Equivalent year mapping, used to avoid DST trouble when platform + * may fail to provide reasonable DST answers for dates outside the + * ordinary range (e.g. 1970-2038). An equivalent year has the same + * leap-year-ness as the original year and begins on the same weekday + * (Jan 1). + * + * The year 2038 is avoided because there seem to be problems with it + * on some platforms. The year 1970 is also avoided as there were + * practical problems with it; an equivalent year is used for it too, + * which breaks some DST computations for 1970 right now, see e.g. + * test-bi-date-tzoffset-brute-fi.js. + */ + if ((flags & DUK_DATE_FLAG_EQUIVYEAR) && (year < 1971 || year > 2037)) { + DUK_ASSERT(is_leap == 0 || is_leap == 1); + + jan1_since_epoch = day_since_epoch - day_in_year; /* day number for Jan 1 since epoch */ + DUK_ASSERT(jan1_since_epoch + DUK__WEEKDAY_MOD_ADDER >= 0); + jan1_weekday = (jan1_since_epoch + 4 + DUK__WEEKDAY_MOD_ADDER) % 7; /* E5.1 Section 15.9.1.6 */ + DUK_ASSERT(jan1_weekday >= 0 && jan1_weekday <= 6); + arridx = jan1_weekday; + if (is_leap) { + arridx += 7; + } + DUK_ASSERT(arridx >= 0 && arridx < (duk_small_int_t) (sizeof(duk__date_equivyear) / sizeof(duk_uint8_t))); + + equiv_year = (duk_int_t) duk__date_equivyear[arridx] + 1970; + year = equiv_year; + DUK_DDD(DUK_DDDPRINT("equiv year mapping, year=%ld, day_in_year=%ld, day_since_epoch=%ld, " + "jan1_since_epoch=%ld, jan1_weekday=%ld -> equiv year %ld", + (long) year, (long) day_in_year, (long) day_since_epoch, + (long) jan1_since_epoch, (long) jan1_weekday, (long) equiv_year)); + } + + parts[DUK_DATE_IDX_YEAR] = year; + parts[DUK_DATE_IDX_MONTH] = month; + parts[DUK_DATE_IDX_DAY] = day; + + if (flags & DUK_DATE_FLAG_ONEBASED) { + parts[DUK_DATE_IDX_MONTH]++; /* zero-based -> one-based */ + parts[DUK_DATE_IDX_DAY]++; /* -""- */ + } + + if (dparts != NULL) { + for (i = 0; i < DUK_DATE_IDX_NUM_PARTS; i++) { + dparts[i] = (duk_double_t) parts[i]; + } + } +} + +/* Compute time value from (double) parts. The parts can be either UTC + * or local time; if local, they need to be (conceptually) converted into + * UTC time. The parts may represent valid or invalid time, and may be + * wildly out of range (but may cancel each other and still come out in + * the valid Date range). + */ +DUK_INTERNAL duk_double_t duk_bi_date_get_timeval_from_dparts(duk_double_t *dparts, duk_small_uint_t flags) { +#if defined(DUK_USE_PARANOID_DATE_COMPUTATION) + /* See comments below on MakeTime why these are volatile. */ + volatile duk_double_t tmp_time; + volatile duk_double_t tmp_day; + volatile duk_double_t d; +#else + duk_double_t tmp_time; + duk_double_t tmp_day; + duk_double_t d; +#endif + duk_small_uint_t i; + duk_int_t tzoff, tzoffprev1, tzoffprev2; + + /* Expects 'this' at top of stack on entry. */ + + /* Coerce all finite parts with ToInteger(). ToInteger() must not + * be called for NaN/Infinity because it will convert e.g. NaN to + * zero. If ToInteger() has already been called, this has no side + * effects and is idempotent. + * + * Don't read dparts[DUK_DATE_IDX_WEEKDAY]; it will cause Valgrind + * issues if the value is uninitialized. + */ + for (i = 0; i <= DUK_DATE_IDX_MILLISECOND; i++) { + /* SCANBUILD: scan-build complains here about assigned value + * being garbage or undefined. This is correct but operating + * on undefined values has no ill effect and is ignored by the + * caller in the case where this happens. + */ + d = dparts[i]; + if (DUK_ISFINITE(d)) { + dparts[i] = duk_js_tointeger_number(d); + } + } + + /* Use explicit steps in computation to try to ensure that + * computation happens with intermediate results coerced to + * double values (instead of using something more accurate). + * E.g. E5.1 Section 15.9.1.11 requires use of IEEE 754 + * rules (= ECMAScript '+' and '*' operators). + * + * Without 'volatile' even this approach fails on some platform + * and compiler combinations. For instance, gcc 4.8.1 on Ubuntu + * 64-bit, with -m32 and without -std=c99, test-bi-date-canceling.js + * would fail because of some optimizations when computing tmp_time + * (MakeTime below). Adding 'volatile' to tmp_time solved this + * particular problem (annoyingly, also adding debug prints or + * running the executable under valgrind hides it). + */ + + /* MakeTime */ + tmp_time = 0.0; + tmp_time += dparts[DUK_DATE_IDX_HOUR] * ((duk_double_t) DUK_DATE_MSEC_HOUR); + tmp_time += dparts[DUK_DATE_IDX_MINUTE] * ((duk_double_t) DUK_DATE_MSEC_MINUTE); + tmp_time += dparts[DUK_DATE_IDX_SECOND] * ((duk_double_t) DUK_DATE_MSEC_SECOND); + tmp_time += dparts[DUK_DATE_IDX_MILLISECOND]; + + /* MakeDay */ + tmp_day = duk__make_day(dparts[DUK_DATE_IDX_YEAR], dparts[DUK_DATE_IDX_MONTH], dparts[DUK_DATE_IDX_DAY]); + + /* MakeDate */ + d = tmp_day * ((duk_double_t) DUK_DATE_MSEC_DAY) + tmp_time; + + DUK_DDD(DUK_DDDPRINT("time=%lf day=%lf --> timeval=%lf", + (double) tmp_time, (double) tmp_day, (double) d)); + + /* Optional UTC conversion. */ + if (flags & DUK_DATE_FLAG_LOCALTIME) { + /* DUK_USE_DATE_GET_LOCAL_TZOFFSET() needs to be called with a + * time value computed from UTC parts. At this point we only + * have 'd' which is a time value computed from local parts, so + * it is off by the UTC-to-local time offset which we don't know + * yet. The current solution for computing the UTC-to-local + * time offset is to iterate a few times and detect a fixed + * point or a two-cycle loop (or a sanity iteration limit), + * see test-bi-date-local-parts.js and test-bi-date-tzoffset-basic-fi.js. + * + * E5.1 Section 15.9.1.9: + * UTC(t) = t - LocalTZA - DaylightSavingTA(t - LocalTZA) + * + * For NaN/inf, DUK_USE_DATE_GET_LOCAL_TZOFFSET() returns 0. + */ + +#if 0 + /* Old solution: don't iterate, incorrect */ + tzoff = DUK_USE_DATE_GET_LOCAL_TZOFFSET(d); + DUK_DDD(DUK_DDDPRINT("tzoffset w/o iteration, tzoff=%ld", (long) tzoff)); + d -= tzoff * 1000L; + DUK_UNREF(tzoffprev1); + DUK_UNREF(tzoffprev2); +#endif + + /* Iteration solution */ + tzoff = 0; + tzoffprev1 = 999999999L; /* invalid value which never matches */ + for (i = 0; i < DUK__LOCAL_TZOFFSET_MAXITER; i++) { + tzoffprev2 = tzoffprev1; + tzoffprev1 = tzoff; + tzoff = DUK_USE_DATE_GET_LOCAL_TZOFFSET(d - tzoff * 1000L); + DUK_DDD(DUK_DDDPRINT("tzoffset iteration, i=%d, tzoff=%ld, tzoffprev1=%ld tzoffprev2=%ld", + (int) i, (long) tzoff, (long) tzoffprev1, (long) tzoffprev2)); + if (tzoff == tzoffprev1) { + DUK_DDD(DUK_DDDPRINT("tzoffset iteration finished, i=%d, tzoff=%ld, tzoffprev1=%ld, tzoffprev2=%ld", + (int) i, (long) tzoff, (long) tzoffprev1, (long) tzoffprev2)); + break; + } else if (tzoff == tzoffprev2) { + /* Two value cycle, see e.g. test-bi-date-tzoffset-basic-fi.js. + * In these cases, favor a higher tzoffset to get a consistent + * result which is independent of iteration count. Not sure if + * this is a generically correct solution. + */ + DUK_DDD(DUK_DDDPRINT("tzoffset iteration two-value cycle, i=%d, tzoff=%ld, tzoffprev1=%ld, tzoffprev2=%ld", + (int) i, (long) tzoff, (long) tzoffprev1, (long) tzoffprev2)); + if (tzoffprev1 > tzoff) { + tzoff = tzoffprev1; + } + break; + } + } + DUK_DDD(DUK_DDDPRINT("tzoffset iteration, tzoff=%ld", (long) tzoff)); + d -= tzoff * 1000L; + } + + /* TimeClip(), which also handles Infinity -> NaN conversion */ + d = duk__timeclip(d); + + return d; +} + +/* + * API oriented helpers + */ + +/* Push 'this' binding, check that it is a Date object; then push the + * internal time value. At the end, stack is: [ ... this timeval ]. + * Returns the time value. Local time adjustment is done if requested. + */ +DUK_LOCAL duk_double_t duk__push_this_get_timeval_tzoffset(duk_hthread *thr, duk_small_uint_t flags, duk_int_t *out_tzoffset) { + duk_hobject *h; + duk_double_t d; + duk_int_t tzoffset = 0; + + duk_push_this(thr); + h = duk_get_hobject(thr, -1); /* XXX: getter with class check, useful in built-ins */ + if (h == NULL || DUK_HOBJECT_GET_CLASS_NUMBER(h) != DUK_HOBJECT_CLASS_DATE) { + DUK_ERROR_TYPE(thr, "expected Date"); + DUK_WO_NORETURN(return 0.0;); + } + + duk_xget_owndataprop_stridx_short(thr, -1, DUK_STRIDX_INT_VALUE); + d = duk_to_number_m1(thr); + duk_pop(thr); + + if (DUK_ISNAN(d)) { + if (flags & DUK_DATE_FLAG_NAN_TO_ZERO) { + d = 0.0; + } + if (flags & DUK_DATE_FLAG_NAN_TO_RANGE_ERROR) { + DUK_ERROR_RANGE(thr, "Invalid Date"); + DUK_WO_NORETURN(return 0.0;); + } + } + /* if no NaN handling flag, may still be NaN here, but not Inf */ + DUK_ASSERT(!DUK_ISINF(d)); + + if (flags & DUK_DATE_FLAG_LOCALTIME) { + /* Note: DST adjustment is determined using UTC time. + * If 'd' is NaN, tzoffset will be 0. + */ + tzoffset = DUK_USE_DATE_GET_LOCAL_TZOFFSET(d); /* seconds */ + d += tzoffset * 1000L; + } + if (out_tzoffset) { + *out_tzoffset = tzoffset; + } + + /* [ ... this ] */ + return d; +} + +DUK_LOCAL duk_double_t duk__push_this_get_timeval(duk_hthread *thr, duk_small_uint_t flags) { + return duk__push_this_get_timeval_tzoffset(thr, flags, NULL); +} + +/* Set timeval to 'this' from dparts, push the new time value onto the + * value stack and return 1 (caller can then tail call us). Expects + * the value stack to contain 'this' on the stack top. + */ +DUK_LOCAL duk_ret_t duk__set_this_timeval_from_dparts(duk_hthread *thr, duk_double_t *dparts, duk_small_uint_t flags) { + duk_double_t d; + + /* [ ... this ] */ + + d = duk_bi_date_get_timeval_from_dparts(dparts, flags); + duk_push_number(thr, d); /* -> [ ... this timeval_new ] */ + duk_dup_top(thr); /* -> [ ... this timeval_new timeval_new ] */ + + /* Must force write because e.g. .setYear() must work even when + * the Date instance is frozen. + */ + duk_xdef_prop_stridx_short(thr, -3, DUK_STRIDX_INT_VALUE, DUK_PROPDESC_FLAGS_W); + + /* Stack top: new time value, return 1 to allow tail calls. */ + return 1; +} + +/* 'out_buf' must be at least DUK_BI_DATE_ISO8601_BUFSIZE long. */ +DUK_LOCAL void duk__format_parts_iso8601(duk_int_t *parts, duk_int_t tzoffset, duk_small_uint_t flags, duk_uint8_t *out_buf) { + char yearstr[8]; /* "-123456\0" */ + char tzstr[8]; /* "+11:22\0" */ + char sep = (flags & DUK_DATE_FLAG_SEP_T) ? DUK_ASC_UC_T : DUK_ASC_SPACE; + + DUK_ASSERT(parts[DUK_DATE_IDX_MONTH] >= 1 && parts[DUK_DATE_IDX_MONTH] <= 12); + DUK_ASSERT(parts[DUK_DATE_IDX_DAY] >= 1 && parts[DUK_DATE_IDX_DAY] <= 31); + DUK_ASSERT(parts[DUK_DATE_IDX_YEAR] >= -999999 && parts[DUK_DATE_IDX_YEAR] <= 999999); + + /* Note: %06d for positive value, %07d for negative value to include + * sign and 6 digits. + */ + DUK_SNPRINTF(yearstr, + sizeof(yearstr), + (parts[DUK_DATE_IDX_YEAR] >= 0 && parts[DUK_DATE_IDX_YEAR] <= 9999) ? "%04ld" : + ((parts[DUK_DATE_IDX_YEAR] >= 0) ? "+%06ld" : "%07ld"), + (long) parts[DUK_DATE_IDX_YEAR]); + yearstr[sizeof(yearstr) - 1] = (char) 0; + + if (flags & DUK_DATE_FLAG_LOCALTIME) { + /* tzoffset seconds are dropped; 16 bits suffice for + * time offset in minutes + */ + const char *fmt; + duk_small_int_t tmp, arg_hours, arg_minutes; + + if (tzoffset >= 0) { + tmp = tzoffset; + fmt = "+%02d:%02d"; + } else { + tmp = -tzoffset; + fmt = "-%02d:%02d"; + } + tmp = tmp / 60; + arg_hours = tmp / 60; + arg_minutes = tmp % 60; + DUK_ASSERT(arg_hours <= 24); /* Even less is actually guaranteed for a valid tzoffset. */ + arg_hours = arg_hours & 0x3f; /* For [0,24] this is a no-op, but fixes GCC 7 warning, see https://github.com/svaarala/duktape/issues/1602. */ + + DUK_SNPRINTF(tzstr, sizeof(tzstr), fmt, (int) arg_hours, (int) arg_minutes); + tzstr[sizeof(tzstr) - 1] = (char) 0; + } else { + tzstr[0] = DUK_ASC_UC_Z; + tzstr[1] = (char) 0; + } + + /* Unlike year, the other parts fit into 16 bits so %d format + * is portable. + */ + if ((flags & DUK_DATE_FLAG_TOSTRING_DATE) && (flags & DUK_DATE_FLAG_TOSTRING_TIME)) { + DUK_SPRINTF((char *) out_buf, "%s-%02d-%02d%c%02d:%02d:%02d.%03d%s", + (const char *) yearstr, (int) parts[DUK_DATE_IDX_MONTH], (int) parts[DUK_DATE_IDX_DAY], (int) sep, + (int) parts[DUK_DATE_IDX_HOUR], (int) parts[DUK_DATE_IDX_MINUTE], + (int) parts[DUK_DATE_IDX_SECOND], (int) parts[DUK_DATE_IDX_MILLISECOND], (const char *) tzstr); + } else if (flags & DUK_DATE_FLAG_TOSTRING_DATE) { + DUK_SPRINTF((char *) out_buf, "%s-%02d-%02d", + (const char *) yearstr, (int) parts[DUK_DATE_IDX_MONTH], (int) parts[DUK_DATE_IDX_DAY]); + } else { + DUK_ASSERT(flags & DUK_DATE_FLAG_TOSTRING_TIME); + DUK_SPRINTF((char *) out_buf, "%02d:%02d:%02d.%03d%s", + (int) parts[DUK_DATE_IDX_HOUR], (int) parts[DUK_DATE_IDX_MINUTE], + (int) parts[DUK_DATE_IDX_SECOND], (int) parts[DUK_DATE_IDX_MILLISECOND], + (const char *) tzstr); + } +} + +/* Helper for string conversion calls: check 'this' binding, get the + * internal time value, and format date and/or time in a few formats. + * Return value allows tail calls. + */ +DUK_LOCAL duk_ret_t duk__to_string_helper(duk_hthread *thr, duk_small_uint_t flags) { + duk_double_t d; + duk_int_t parts[DUK_DATE_IDX_NUM_PARTS]; + duk_int_t tzoffset; /* seconds, doesn't fit into 16 bits */ + duk_bool_t rc; + duk_uint8_t buf[DUK_BI_DATE_ISO8601_BUFSIZE]; + + DUK_UNREF(rc); /* unreferenced with some options */ + + d = duk__push_this_get_timeval_tzoffset(thr, flags, &tzoffset); + if (DUK_ISNAN(d)) { + duk_push_hstring_stridx(thr, DUK_STRIDX_INVALID_DATE); + return 1; + } + DUK_ASSERT(DUK_ISFINITE(d)); + + /* formatters always get one-based month/day-of-month */ + duk_bi_date_timeval_to_parts(d, parts, NULL, DUK_DATE_FLAG_ONEBASED); + DUK_ASSERT(parts[DUK_DATE_IDX_MONTH] >= 1 && parts[DUK_DATE_IDX_MONTH] <= 12); + DUK_ASSERT(parts[DUK_DATE_IDX_DAY] >= 1 && parts[DUK_DATE_IDX_DAY] <= 31); + + if (flags & DUK_DATE_FLAG_TOSTRING_LOCALE) { + /* try locale specific formatter; if it refuses to format the + * string, fall back to an ISO 8601 formatted value in local + * time. + */ +#if defined(DUK_USE_DATE_FORMAT_STRING) + /* Contract, either: + * - Push string to value stack and return 1 + * - Don't push anything and return 0 + */ + + rc = DUK_USE_DATE_FORMAT_STRING(thr, parts, tzoffset, flags); + if (rc != 0) { + return 1; + } +#else + /* No locale specific formatter; this is OK, we fall back + * to ISO 8601. + */ +#endif + } + + /* Different calling convention than above used because the helper + * is shared. + */ + duk__format_parts_iso8601(parts, tzoffset, flags, buf); + duk_push_string(thr, (const char *) buf); + return 1; +} + +/* Helper for component getter calls: check 'this' binding, get the + * internal time value, split it into parts (either as UTC time or + * local time), push a specified component as a return value to the + * value stack and return 1 (caller can then tail call us). + */ +DUK_LOCAL duk_ret_t duk__get_part_helper(duk_hthread *thr, duk_small_uint_t flags_and_idx) { + duk_double_t d; + duk_int_t parts[DUK_DATE_IDX_NUM_PARTS]; + duk_small_uint_t idx_part = (duk_small_uint_t) (flags_and_idx >> DUK_DATE_FLAG_VALUE_SHIFT); /* unpack args */ + + DUK_ASSERT_DISABLE(idx_part >= 0); /* unsigned */ + DUK_ASSERT(idx_part < DUK_DATE_IDX_NUM_PARTS); + + d = duk__push_this_get_timeval(thr, flags_and_idx); + if (DUK_ISNAN(d)) { + duk_push_nan(thr); + return 1; + } + DUK_ASSERT(DUK_ISFINITE(d)); + + duk_bi_date_timeval_to_parts(d, parts, NULL, flags_and_idx); /* no need to mask idx portion */ + + /* Setter APIs detect special year numbers (0...99) and apply a +1900 + * only in certain cases. The legacy getYear() getter applies -1900 + * unconditionally. + */ + duk_push_int(thr, (flags_and_idx & DUK_DATE_FLAG_SUB1900) ? parts[idx_part] - 1900 : parts[idx_part]); + return 1; +} + +/* Helper for component setter calls: check 'this' binding, get the + * internal time value, split it into parts (either as UTC time or + * local time), modify one or more components as specified, recompute + * the time value, set it as the internal value. Finally, push the + * new time value as a return value to the value stack and return 1 + * (caller can then tail call us). + */ +DUK_LOCAL duk_ret_t duk__set_part_helper(duk_hthread *thr, duk_small_uint_t flags_and_maxnargs) { + duk_double_t d; + duk_int_t parts[DUK_DATE_IDX_NUM_PARTS]; + duk_double_t dparts[DUK_DATE_IDX_NUM_PARTS]; + duk_idx_t nargs; + duk_small_uint_t maxnargs = (duk_small_uint_t) (flags_and_maxnargs >> DUK_DATE_FLAG_VALUE_SHIFT); /* unpack args */ + duk_small_uint_t idx_first, idx; + duk_small_uint_t i; + + nargs = duk_get_top(thr); + d = duk__push_this_get_timeval(thr, flags_and_maxnargs); + DUK_ASSERT(DUK_ISFINITE(d) || DUK_ISNAN(d)); + + if (DUK_ISFINITE(d)) { + duk_bi_date_timeval_to_parts(d, parts, dparts, flags_and_maxnargs); + } else { + /* NaN timevalue: we need to coerce the arguments, but + * the resulting internal timestamp needs to remain NaN. + * This works but is not pretty: parts and dparts will + * be partially uninitialized, but we only write to them. + */ + } + + /* + * Determining which datetime components to overwrite based on + * stack arguments is a bit complicated, but important to factor + * out from setters themselves for compactness. + * + * If DUK_DATE_FLAG_TIMESETTER, maxnargs indicates setter type: + * + * 1 -> millisecond + * 2 -> second, [millisecond] + * 3 -> minute, [second], [millisecond] + * 4 -> hour, [minute], [second], [millisecond] + * + * Else: + * + * 1 -> date + * 2 -> month, [date] + * 3 -> year, [month], [date] + * + * By comparing nargs and maxnargs (and flags) we know which + * components to override. We rely on part index ordering. + */ + + if (flags_and_maxnargs & DUK_DATE_FLAG_TIMESETTER) { + DUK_ASSERT(maxnargs >= 1 && maxnargs <= 4); + idx_first = DUK_DATE_IDX_MILLISECOND - (maxnargs - 1); + } else { + DUK_ASSERT(maxnargs >= 1 && maxnargs <= 3); + idx_first = DUK_DATE_IDX_DAY - (maxnargs - 1); + } + DUK_ASSERT_DISABLE(idx_first >= 0); /* unsigned */ + DUK_ASSERT(idx_first < DUK_DATE_IDX_NUM_PARTS); + + for (i = 0; i < maxnargs; i++) { + if ((duk_idx_t) i >= nargs) { + /* no argument given -> leave components untouched */ + break; + } + idx = idx_first + i; + DUK_ASSERT_DISABLE(idx >= 0); /* unsigned */ + DUK_ASSERT(idx < DUK_DATE_IDX_NUM_PARTS); + + if (idx == DUK_DATE_IDX_YEAR && (flags_and_maxnargs & DUK_DATE_FLAG_YEAR_FIXUP)) { + duk__twodigit_year_fixup(thr, (duk_idx_t) i); + } + + dparts[idx] = duk_to_number(thr, (duk_idx_t) i); + + if (idx == DUK_DATE_IDX_DAY) { + /* Day-of-month is one-based in the API, but zero-based + * internally, so fix here. Note that month is zero-based + * both in the API and internally. + */ + /* SCANBUILD: complains about use of uninitialized values. + * The complaint is correct, but operating in undefined + * values here is intentional in some cases and the caller + * ignores the results. + */ + dparts[idx] -= 1.0; + } + } + + /* Leaves new timevalue on stack top and returns 1, which is correct + * for part setters. + */ + if (DUK_ISFINITE(d)) { + return duk__set_this_timeval_from_dparts(thr, dparts, flags_and_maxnargs); + } else { + /* Internal timevalue is already NaN, so don't touch it. */ + duk_push_nan(thr); + return 1; + } +} + +/* Apply ToNumber() to specified index; if ToInteger(val) in [0,99], add + * 1900 and replace value at idx_val. + */ +DUK_LOCAL void duk__twodigit_year_fixup(duk_hthread *thr, duk_idx_t idx_val) { + duk_double_t d; + + /* XXX: idx_val would fit into 16 bits, but using duk_small_uint_t + * might not generate better code due to casting. + */ + + /* E5 Sections 15.9.3.1, B.2.4, B.2.5 */ + duk_to_number(thr, idx_val); + if (duk_is_nan(thr, idx_val)) { + return; + } + duk_dup(thr, idx_val); + duk_to_int(thr, -1); + d = duk_get_number(thr, -1); /* get as double to handle huge numbers correctly */ + if (d >= 0.0 && d <= 99.0) { + d += 1900.0; + duk_push_number(thr, d); + duk_replace(thr, idx_val); + } + duk_pop(thr); +} + +/* Set datetime parts from stack arguments, defaulting any missing values. + * Day-of-week is not set; it is not required when setting the time value. + */ +DUK_LOCAL void duk__set_parts_from_args(duk_hthread *thr, duk_double_t *dparts, duk_idx_t nargs) { + duk_double_t d; + duk_small_uint_t i; + duk_small_uint_t idx; + + /* Causes a ToNumber() coercion, but doesn't break coercion order since + * year is coerced first anyway. + */ + duk__twodigit_year_fixup(thr, 0); + + /* There are at most 7 args, but we use 8 here so that also + * DUK_DATE_IDX_WEEKDAY gets initialized (to zero) to avoid the potential + * for any Valgrind gripes later. + */ + for (i = 0; i < 8; i++) { + /* Note: rely on index ordering */ + idx = DUK_DATE_IDX_YEAR + i; + if ((duk_idx_t) i < nargs) { + d = duk_to_number(thr, (duk_idx_t) i); + if (idx == DUK_DATE_IDX_DAY) { + /* Convert day from one-based to zero-based (internal). This may + * cause the day part to be negative, which is OK. + */ + d -= 1.0; + } + } else { + /* All components default to 0 except day-of-month which defaults + * to 1. However, because our internal day-of-month is zero-based, + * it also defaults to zero here. + */ + d = 0.0; + } + dparts[idx] = d; + } + + DUK_DDD(DUK_DDDPRINT("parts from args -> %lf %lf %lf %lf %lf %lf %lf %lf", + (double) dparts[0], (double) dparts[1], + (double) dparts[2], (double) dparts[3], + (double) dparts[4], (double) dparts[5], + (double) dparts[6], (double) dparts[7])); +} + +/* + * Indirect magic value lookup for Date methods. + * + * Date methods don't put their control flags into the function magic value + * because they wouldn't fit into a LIGHTFUNC's magic field. Instead, the + * magic value is set to an index pointing to the array of control flags + * below. + * + * This must be kept in strict sync with genbuiltins.py! + */ + +static duk_uint16_t duk__date_magics[] = { + /* 0: toString */ + DUK_DATE_FLAG_TOSTRING_DATE + DUK_DATE_FLAG_TOSTRING_TIME + DUK_DATE_FLAG_LOCALTIME, + + /* 1: toDateString */ + DUK_DATE_FLAG_TOSTRING_DATE + DUK_DATE_FLAG_LOCALTIME, + + /* 2: toTimeString */ + DUK_DATE_FLAG_TOSTRING_TIME + DUK_DATE_FLAG_LOCALTIME, + + /* 3: toLocaleString */ + DUK_DATE_FLAG_TOSTRING_DATE + DUK_DATE_FLAG_TOSTRING_TIME + DUK_DATE_FLAG_TOSTRING_LOCALE + DUK_DATE_FLAG_LOCALTIME, + + /* 4: toLocaleDateString */ + DUK_DATE_FLAG_TOSTRING_DATE + DUK_DATE_FLAG_TOSTRING_LOCALE + DUK_DATE_FLAG_LOCALTIME, + + /* 5: toLocaleTimeString */ + DUK_DATE_FLAG_TOSTRING_TIME + DUK_DATE_FLAG_TOSTRING_LOCALE + DUK_DATE_FLAG_LOCALTIME, + + /* 6: toUTCString */ + DUK_DATE_FLAG_TOSTRING_DATE + DUK_DATE_FLAG_TOSTRING_TIME, + + /* 7: toISOString */ + DUK_DATE_FLAG_TOSTRING_DATE + DUK_DATE_FLAG_TOSTRING_TIME + DUK_DATE_FLAG_NAN_TO_RANGE_ERROR + DUK_DATE_FLAG_SEP_T, + + /* 8: getFullYear */ + DUK_DATE_FLAG_LOCALTIME + (DUK_DATE_IDX_YEAR << DUK_DATE_FLAG_VALUE_SHIFT), + + /* 9: getUTCFullYear */ + 0 + (DUK_DATE_IDX_YEAR << DUK_DATE_FLAG_VALUE_SHIFT), + + /* 10: getMonth */ + DUK_DATE_FLAG_LOCALTIME + (DUK_DATE_IDX_MONTH << DUK_DATE_FLAG_VALUE_SHIFT), + + /* 11: getUTCMonth */ + 0 + (DUK_DATE_IDX_MONTH << DUK_DATE_FLAG_VALUE_SHIFT), + + /* 12: getDate */ + DUK_DATE_FLAG_ONEBASED + DUK_DATE_FLAG_LOCALTIME + (DUK_DATE_IDX_DAY << DUK_DATE_FLAG_VALUE_SHIFT), + + /* 13: getUTCDate */ + DUK_DATE_FLAG_ONEBASED + (DUK_DATE_IDX_DAY << DUK_DATE_FLAG_VALUE_SHIFT), + + /* 14: getDay */ + DUK_DATE_FLAG_LOCALTIME + (DUK_DATE_IDX_WEEKDAY << DUK_DATE_FLAG_VALUE_SHIFT), + + /* 15: getUTCDay */ + 0 + (DUK_DATE_IDX_WEEKDAY << DUK_DATE_FLAG_VALUE_SHIFT), + + /* 16: getHours */ + DUK_DATE_FLAG_LOCALTIME + (DUK_DATE_IDX_HOUR << DUK_DATE_FLAG_VALUE_SHIFT), + + /* 17: getUTCHours */ + 0 + (DUK_DATE_IDX_HOUR << DUK_DATE_FLAG_VALUE_SHIFT), + + /* 18: getMinutes */ + DUK_DATE_FLAG_LOCALTIME + (DUK_DATE_IDX_MINUTE << DUK_DATE_FLAG_VALUE_SHIFT), + + /* 19: getUTCMinutes */ + 0 + (DUK_DATE_IDX_MINUTE << DUK_DATE_FLAG_VALUE_SHIFT), + + /* 20: getSeconds */ + DUK_DATE_FLAG_LOCALTIME + (DUK_DATE_IDX_SECOND << DUK_DATE_FLAG_VALUE_SHIFT), + + /* 21: getUTCSeconds */ + 0 + (DUK_DATE_IDX_SECOND << DUK_DATE_FLAG_VALUE_SHIFT), + + /* 22: getMilliseconds */ + DUK_DATE_FLAG_LOCALTIME + (DUK_DATE_IDX_MILLISECOND << DUK_DATE_FLAG_VALUE_SHIFT), + + /* 23: getUTCMilliseconds */ + 0 + (DUK_DATE_IDX_MILLISECOND << DUK_DATE_FLAG_VALUE_SHIFT), + + /* 24: setMilliseconds */ + DUK_DATE_FLAG_TIMESETTER + DUK_DATE_FLAG_LOCALTIME + (1 << DUK_DATE_FLAG_VALUE_SHIFT), + + /* 25: setUTCMilliseconds */ + DUK_DATE_FLAG_TIMESETTER + (1 << DUK_DATE_FLAG_VALUE_SHIFT), + + /* 26: setSeconds */ + DUK_DATE_FLAG_TIMESETTER + DUK_DATE_FLAG_LOCALTIME + (2 << DUK_DATE_FLAG_VALUE_SHIFT), + + /* 27: setUTCSeconds */ + DUK_DATE_FLAG_TIMESETTER + (2 << DUK_DATE_FLAG_VALUE_SHIFT), + + /* 28: setMinutes */ + DUK_DATE_FLAG_TIMESETTER + DUK_DATE_FLAG_LOCALTIME + (3 << DUK_DATE_FLAG_VALUE_SHIFT), + + /* 29: setUTCMinutes */ + DUK_DATE_FLAG_TIMESETTER + (3 << DUK_DATE_FLAG_VALUE_SHIFT), + + /* 30: setHours */ + DUK_DATE_FLAG_TIMESETTER + DUK_DATE_FLAG_LOCALTIME + (4 << DUK_DATE_FLAG_VALUE_SHIFT), + + /* 31: setUTCHours */ + DUK_DATE_FLAG_TIMESETTER + (4 << DUK_DATE_FLAG_VALUE_SHIFT), + + /* 32: setDate */ + DUK_DATE_FLAG_LOCALTIME + (1 << DUK_DATE_FLAG_VALUE_SHIFT), + + /* 33: setUTCDate */ + 0 + (1 << DUK_DATE_FLAG_VALUE_SHIFT), + + /* 34: setMonth */ + DUK_DATE_FLAG_LOCALTIME + (2 << DUK_DATE_FLAG_VALUE_SHIFT), + + /* 35: setUTCMonth */ + 0 + (2 << DUK_DATE_FLAG_VALUE_SHIFT), + + /* 36: setFullYear */ + DUK_DATE_FLAG_NAN_TO_ZERO + DUK_DATE_FLAG_LOCALTIME + (3 << DUK_DATE_FLAG_VALUE_SHIFT), + + /* 37: setUTCFullYear */ + DUK_DATE_FLAG_NAN_TO_ZERO + (3 << DUK_DATE_FLAG_VALUE_SHIFT), + + /* 38: getYear */ + DUK_DATE_FLAG_LOCALTIME + DUK_DATE_FLAG_SUB1900 + (DUK_DATE_IDX_YEAR << DUK_DATE_FLAG_VALUE_SHIFT), + + /* 39: setYear */ + DUK_DATE_FLAG_NAN_TO_ZERO + DUK_DATE_FLAG_YEAR_FIXUP + (3 << DUK_DATE_FLAG_VALUE_SHIFT), +}; + +DUK_LOCAL duk_small_uint_t duk__date_get_indirect_magic(duk_hthread *thr) { + duk_small_uint_t magicidx = (duk_small_uint_t) duk_get_current_magic(thr); + DUK_ASSERT(magicidx < (duk_small_int_t) (sizeof(duk__date_magics) / sizeof(duk_uint16_t))); + return (duk_small_uint_t) duk__date_magics[magicidx]; +} + +#if defined(DUK_USE_DATE_BUILTIN) +/* + * Constructor calls + */ + +DUK_INTERNAL duk_ret_t duk_bi_date_constructor(duk_hthread *thr) { + duk_idx_t nargs = duk_get_top(thr); + duk_bool_t is_cons = duk_is_constructor_call(thr); + duk_double_t dparts[DUK_DATE_IDX_NUM_PARTS]; + duk_double_t d; + + DUK_DDD(DUK_DDDPRINT("Date constructor, nargs=%ld, is_cons=%ld", (long) nargs, (long) is_cons)); + + (void) duk_push_object_helper(thr, + DUK_HOBJECT_FLAG_EXTENSIBLE | + DUK_HOBJECT_FLAG_FASTREFS | + DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_DATE), + DUK_BIDX_DATE_PROTOTYPE); + + /* Unlike most built-ins, the internal [[PrimitiveValue]] of a Date + * is mutable. + */ + + if (nargs == 0 || !is_cons) { + d = duk__timeclip(duk_time_get_ecmascript_time_nofrac(thr)); + duk_push_number(thr, d); + duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_INT_VALUE, DUK_PROPDESC_FLAGS_W); + if (!is_cons) { + /* called as a normal function: return new Date().toString() */ + duk_to_string(thr, -1); + } + return 1; + } else if (nargs == 1) { + const char *str; + duk_to_primitive(thr, 0, DUK_HINT_NONE); + str = duk_get_string_notsymbol(thr, 0); + if (str) { + duk__parse_string(thr, str); + duk_replace(thr, 0); /* may be NaN */ + } + d = duk__timeclip(duk_to_number(thr, 0)); /* symbols fail here */ + duk_push_number(thr, d); + duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_INT_VALUE, DUK_PROPDESC_FLAGS_W); + return 1; + } + + duk__set_parts_from_args(thr, dparts, nargs); + + /* Parts are in local time, convert when setting. */ + + (void) duk__set_this_timeval_from_dparts(thr, dparts, DUK_DATE_FLAG_LOCALTIME /*flags*/); /* -> [ ... this timeval ] */ + duk_pop(thr); /* -> [ ... this ] */ + return 1; +} + +DUK_INTERNAL duk_ret_t duk_bi_date_constructor_parse(duk_hthread *thr) { + return duk__parse_string(thr, duk_to_string(thr, 0)); +} + +DUK_INTERNAL duk_ret_t duk_bi_date_constructor_utc(duk_hthread *thr) { + duk_idx_t nargs = duk_get_top(thr); + duk_double_t dparts[DUK_DATE_IDX_NUM_PARTS]; + duk_double_t d; + + /* Behavior for nargs < 2 is implementation dependent: currently we'll + * set a NaN time value (matching V8 behavior) in this case. + */ + + if (nargs < 2) { + duk_push_nan(thr); + } else { + duk__set_parts_from_args(thr, dparts, nargs); + d = duk_bi_date_get_timeval_from_dparts(dparts, 0 /*flags*/); + duk_push_number(thr, d); + } + return 1; +} + +DUK_INTERNAL duk_ret_t duk_bi_date_constructor_now(duk_hthread *thr) { + duk_double_t d; + + d = duk_time_get_ecmascript_time_nofrac(thr); + DUK_ASSERT(duk_double_equals(duk__timeclip(d), d)); /* TimeClip() should never be necessary */ + duk_push_number(thr, d); + return 1; +} + +/* + * String/JSON conversions + * + * Human readable conversions are now basically ISO 8601 with a space + * (instead of 'T') as the date/time separator. This is a good baseline + * and is platform independent. + * + * A shared native helper to provide many conversions. Magic value contains + * a set of flags. The helper provides: + * + * toString() + * toDateString() + * toTimeString() + * toLocaleString() + * toLocaleDateString() + * toLocaleTimeString() + * toUTCString() + * toISOString() + * + * Notes: + * + * - Date.prototype.toGMTString() and Date.prototype.toUTCString() are + * required to be the same ECMAScript function object (!), so it is + * omitted from here. + * + * - Date.prototype.toUTCString(): E5.1 specification does not require a + * specific format, but result should be human readable. The + * specification suggests using ISO 8601 format with a space (instead + * of 'T') separator if a more human readable format is not available. + * + * - Date.prototype.toISOString(): unlike other conversion functions, + * toISOString() requires a RangeError for invalid date values. + */ + +DUK_INTERNAL duk_ret_t duk_bi_date_prototype_tostring_shared(duk_hthread *thr) { + duk_small_uint_t flags = duk__date_get_indirect_magic(thr); + return duk__to_string_helper(thr, flags); +} + +DUK_INTERNAL duk_ret_t duk_bi_date_prototype_value_of(duk_hthread *thr) { + /* This native function is also used for Date.prototype.getTime() + * as their behavior is identical. + */ + + duk_double_t d = duk__push_this_get_timeval(thr, 0 /*flags*/); /* -> [ this ] */ + DUK_ASSERT(DUK_ISFINITE(d) || DUK_ISNAN(d)); + duk_push_number(thr, d); + return 1; +} + +DUK_INTERNAL duk_ret_t duk_bi_date_prototype_to_json(duk_hthread *thr) { + /* Note: toJSON() is a generic function which works even if 'this' + * is not a Date. The sole argument is ignored. + */ + + duk_push_this(thr); + duk_to_object(thr, -1); + + duk_dup_top(thr); + duk_to_primitive(thr, -1, DUK_HINT_NUMBER); + if (duk_is_number(thr, -1)) { + duk_double_t d = duk_get_number(thr, -1); + if (!DUK_ISFINITE(d)) { + duk_push_null(thr); + return 1; + } + } + duk_pop(thr); + + duk_get_prop_stridx_short(thr, -1, DUK_STRIDX_TO_ISO_STRING); + duk_dup_m2(thr); /* -> [ O toIsoString O ] */ + duk_call_method(thr, 0); + return 1; +} + +/* + * Getters. + * + * Implementing getters is quite easy. The internal time value is either + * NaN, or represents milliseconds (without fractions) from Jan 1, 1970. + * The internal time value can be converted to integer parts, and each + * part will be normalized and will fit into a 32-bit signed integer. + * + * A shared native helper to provide all getters. Magic value contains + * a set of flags and also packs the date component index argument. The + * helper provides: + * + * getFullYear() + * getUTCFullYear() + * getMonth() + * getUTCMonth() + * getDate() + * getUTCDate() + * getDay() + * getUTCDay() + * getHours() + * getUTCHours() + * getMinutes() + * getUTCMinutes() + * getSeconds() + * getUTCSeconds() + * getMilliseconds() + * getUTCMilliseconds() + * getYear() + * + * Notes: + * + * - Date.prototype.getDate(): 'date' means day-of-month, and is + * zero-based in internal calculations but public API expects it to + * be one-based. + * + * - Date.prototype.getTime() and Date.prototype.valueOf() have identical + * behavior. They have separate function objects, but share the same C + * function (duk_bi_date_prototype_value_of). + */ + +DUK_INTERNAL duk_ret_t duk_bi_date_prototype_get_shared(duk_hthread *thr) { + duk_small_uint_t flags_and_idx = duk__date_get_indirect_magic(thr); + return duk__get_part_helper(thr, flags_and_idx); +} + +DUK_INTERNAL duk_ret_t duk_bi_date_prototype_get_timezone_offset(duk_hthread *thr) { + /* + * Return (t - LocalTime(t)) in minutes: + * + * t - LocalTime(t) = t - (t + LocalTZA + DaylightSavingTA(t)) + * = -(LocalTZA + DaylightSavingTA(t)) + * + * where DaylightSavingTA() is checked for time 't'. + * + * Note that the sign of the result is opposite to common usage, + * e.g. for EE(S)T which normally is +2h or +3h from UTC, this + * function returns -120 or -180. + * + */ + + duk_double_t d; + duk_int_t tzoffset; + + /* Note: DST adjustment is determined using UTC time. */ + d = duk__push_this_get_timeval(thr, 0 /*flags*/); + DUK_ASSERT(DUK_ISFINITE(d) || DUK_ISNAN(d)); + if (DUK_ISNAN(d)) { + duk_push_nan(thr); + } else { + DUK_ASSERT(DUK_ISFINITE(d)); + tzoffset = DUK_USE_DATE_GET_LOCAL_TZOFFSET(d); + duk_push_int(thr, -tzoffset / 60); + } + return 1; +} + +/* + * Setters. + * + * Setters are a bit more complicated than getters. Component setters + * break down the current time value into its (normalized) component + * parts, replace one or more components with -unnormalized- new values, + * and the components are then converted back into a time value. As an + * example of using unnormalized values: + * + * var d = new Date(1234567890); + * + * is equivalent to: + * + * var d = new Date(0); + * d.setUTCMilliseconds(1234567890); + * + * A shared native helper to provide almost all setters. Magic value + * contains a set of flags and also packs the "maxnargs" argument. The + * helper provides: + * + * setMilliseconds() + * setUTCMilliseconds() + * setSeconds() + * setUTCSeconds() + * setMinutes() + * setUTCMinutes() + * setHours() + * setUTCHours() + * setDate() + * setUTCDate() + * setMonth() + * setUTCMonth() + * setFullYear() + * setUTCFullYear() + * setYear() + * + * Notes: + * + * - Date.prototype.setYear() (Section B addition): special year check + * is omitted. NaN / Infinity will just flow through and ultimately + * result in a NaN internal time value. + * + * - Date.prototype.setYear() does not have optional arguments for + * setting month and day-in-month (like setFullYear()), but we indicate + * 'maxnargs' to be 3 to get the year written to the correct component + * index in duk__set_part_helper(). The function has nargs == 1, so only + * the year will be set regardless of actual argument count. + */ + +DUK_INTERNAL duk_ret_t duk_bi_date_prototype_set_shared(duk_hthread *thr) { + duk_small_uint_t flags_and_maxnargs = duk__date_get_indirect_magic(thr); + return duk__set_part_helper(thr, flags_and_maxnargs); +} + +DUK_INTERNAL duk_ret_t duk_bi_date_prototype_set_time(duk_hthread *thr) { + duk_double_t d; + + (void) duk__push_this_get_timeval(thr, 0 /*flags*/); /* -> [ timeval this ] */ + d = duk__timeclip(duk_to_number(thr, 0)); + duk_push_number(thr, d); + duk_dup_top(thr); + /* Must force write because .setTime() must work even when + * the Date instance is frozen. + */ + duk_xdef_prop_stridx_short(thr, -3, DUK_STRIDX_INT_VALUE, DUK_PROPDESC_FLAGS_W); + /* -> [ timeval this timeval ] */ + + return 1; +} + +/* + * Misc. + */ + +#if defined(DUK_USE_SYMBOL_BUILTIN) +DUK_INTERNAL duk_ret_t duk_bi_date_prototype_toprimitive(duk_hthread *thr) { + duk_size_t hintlen; + const char *hintstr; + duk_int_t hint; + + /* Invokes OrdinaryToPrimitive() with suitable hint. Note that the + * method is generic, and works on non-Date arguments too. + * + * https://www.ecma-international.org/ecma-262/6.0/#sec-date.prototype-@@toprimitive + */ + + duk_push_this(thr); + duk_require_object(thr, -1); + DUK_ASSERT_TOP(thr, 2); + + hintstr = duk_require_lstring(thr, 0, &hintlen); + if ((hintlen == 6 && DUK_STRCMP(hintstr, "string") == 0) || + (hintlen == 7 && DUK_STRCMP(hintstr, "default") == 0)) { + hint = DUK_HINT_STRING; + } else if (hintlen == 6 && DUK_STRCMP(hintstr, "number") == 0) { + hint = DUK_HINT_NUMBER; + } else { + DUK_DCERROR_TYPE_INVALID_ARGS(thr); + } + + duk_to_primitive_ordinary(thr, -1, hint); + return 1; +} +#endif /* DUK_USE_SYMBOL_BUILTIN */ + +#endif /* DUK_USE_DATE_BUILTIN */ + +/* automatic undefs */ +#undef DUK__CF_ACCEPT +#undef DUK__CF_ACCEPT_NUL +#undef DUK__CF_NEG +#undef DUK__DPRINT_DPARTS +#undef DUK__DPRINT_PARTS +#undef DUK__DPRINT_PARTS_AND_DPARTS +#undef DUK__LOCAL_TZOFFSET_MAXITER +#undef DUK__NUM_ISO8601_PARSER_PARTS +#undef DUK__PACK_RULE +#undef DUK__PI_DAY +#undef DUK__PI_HOUR +#undef DUK__PI_MILLISECOND +#undef DUK__PI_MINUTE +#undef DUK__PI_MONTH +#undef DUK__PI_SECOND +#undef DUK__PI_TZHOUR +#undef DUK__PI_TZMINUTE +#undef DUK__PI_YEAR +#undef DUK__PM_DAY +#undef DUK__PM_HOUR +#undef DUK__PM_MILLISECOND +#undef DUK__PM_MINUTE +#undef DUK__PM_MONTH +#undef DUK__PM_SECOND +#undef DUK__PM_TZHOUR +#undef DUK__PM_TZMINUTE +#undef DUK__PM_YEAR +#undef DUK__RULE_MASK_PART_SEP +#undef DUK__SI_COLON +#undef DUK__SI_MINUS +#undef DUK__SI_NUL +#undef DUK__SI_PERIOD +#undef DUK__SI_PLUS +#undef DUK__SI_SPACE +#undef DUK__SI_T +#undef DUK__SI_Z +#undef DUK__SM_COLON +#undef DUK__SM_MINUS +#undef DUK__SM_NUL +#undef DUK__SM_PERIOD +#undef DUK__SM_PLUS +#undef DUK__SM_SPACE +#undef DUK__SM_T +#undef DUK__SM_Z +#undef DUK__UNPACK_RULE +#undef DUK__WEEKDAY_MOD_ADDER +#undef DUK__YEAR +#line 1 "duk_bi_date_unix.c" +/* + * Unix-like Date providers + * + * Generally useful Unix / POSIX / ANSI Date providers. + */ + +/* #include duk_internal.h -> already included */ + +/* The necessary #includes are in place in duk_config.h. */ + +/* Buffer sizes for some UNIX calls. Larger than strictly necessary + * to avoid Valgrind errors. + */ +#define DUK__STRPTIME_BUF_SIZE 64 +#define DUK__STRFTIME_BUF_SIZE 64 + +#if defined(DUK_USE_DATE_NOW_GETTIMEOFDAY) +/* Get current ECMAScript time (= UNIX/Posix time, but in milliseconds). */ +DUK_INTERNAL duk_double_t duk_bi_date_get_now_gettimeofday(void) { + struct timeval tv; + duk_double_t d; + + if (gettimeofday(&tv, NULL) != 0) { + DUK_D(DUK_DPRINT("gettimeofday() failed")); + return 0.0; + } + + /* As of Duktape 2.2.0 allow fractions. */ + d = ((duk_double_t) tv.tv_sec) * 1000.0 + + ((duk_double_t) tv.tv_usec) / 1000.0; + + return d; +} +#endif /* DUK_USE_DATE_NOW_GETTIMEOFDAY */ + +#if defined(DUK_USE_DATE_NOW_TIME) +/* Not a very good provider: only full seconds are available. */ +DUK_INTERNAL duk_double_t duk_bi_date_get_now_time(void) { + time_t t; + + t = time(NULL); + if (t == (time_t) -1) { + DUK_D(DUK_DPRINT("time() failed")); + return 0.0; + } + return ((duk_double_t) t) * 1000.0; +} +#endif /* DUK_USE_DATE_NOW_TIME */ + +#if defined(DUK_USE_DATE_TZO_GMTIME) || defined(DUK_USE_DATE_TZO_GMTIME_R) || defined(DUK_USE_DATE_TZO_GMTIME_S) +/* Get local time offset (in seconds) for a certain (UTC) instant 'd'. */ +DUK_INTERNAL duk_int_t duk_bi_date_get_local_tzoffset_gmtime(duk_double_t d) { + time_t t, t1, t2; + duk_int_t parts[DUK_DATE_IDX_NUM_PARTS]; + duk_double_t dparts[DUK_DATE_IDX_NUM_PARTS]; + struct tm tms[2]; +#if defined(DUK_USE_DATE_TZO_GMTIME) + struct tm *tm_ptr; +#endif + + /* For NaN/inf, the return value doesn't matter. */ + if (!DUK_ISFINITE(d)) { + return 0; + } + + /* If not within ECMAScript range, some integer time calculations + * won't work correctly (and some asserts will fail), so bail out + * if so. This fixes test-bug-date-insane-setyear.js. There is + * a +/- 24h leeway in this range check to avoid a test262 corner + * case documented in test-bug-date-timeval-edges.js. + */ + if (!duk_bi_date_timeval_in_leeway_range(d)) { + DUK_DD(DUK_DDPRINT("timeval not within valid range, skip tzoffset computation to avoid integer overflows")); + return 0; + } + + /* + * This is a bit tricky to implement portably. The result depends + * on the timestamp (specifically, DST depends on the timestamp). + * If e.g. UNIX APIs are used, they'll have portability issues with + * very small and very large years. + * + * Current approach: + * + * - Stay within portable UNIX limits by using equivalent year mapping. + * Avoid year 1970 and 2038 as some conversions start to fail, at + * least on some platforms. Avoiding 1970 means that there are + * currently DST discrepancies for 1970. + * + * - Create a UTC and local time breakdowns from 't'. Then create + * a time_t using gmtime() and localtime() and compute the time + * difference between the two. + * + * Equivalent year mapping (E5 Section 15.9.1.8): + * + * If the host environment provides functionality for determining + * daylight saving time, the implementation of ECMAScript is free + * to map the year in question to an equivalent year (same + * leap-year-ness and same starting week day for the year) for which + * the host environment provides daylight saving time information. + * The only restriction is that all equivalent years should produce + * the same result. + * + * This approach is quite reasonable but not entirely correct, e.g. + * the specification also states (E5 Section 15.9.1.8): + * + * The implementation of ECMAScript should not try to determine + * whether the exact time was subject to daylight saving time, but + * just whether daylight saving time would have been in effect if + * the _current daylight saving time algorithm_ had been used at the + * time. This avoids complications such as taking into account the + * years that the locale observed daylight saving time year round. + * + * Since we rely on the platform APIs for conversions between local + * time and UTC, we can't guarantee the above. Rather, if the platform + * has historical DST rules they will be applied. This seems to be the + * general preferred direction in ECMAScript standardization (or at least + * implementations) anyway, and even the equivalent year mapping should + * be disabled if the platform is known to handle DST properly for the + * full ECMAScript range. + * + * The following has useful discussion and links: + * + * https://bugzilla.mozilla.org/show_bug.cgi?id=351066 + */ + + duk_bi_date_timeval_to_parts(d, parts, dparts, DUK_DATE_FLAG_EQUIVYEAR /*flags*/); + DUK_ASSERT(parts[DUK_DATE_IDX_YEAR] >= 1970 && parts[DUK_DATE_IDX_YEAR] <= 2038); + + d = duk_bi_date_get_timeval_from_dparts(dparts, 0 /*flags*/); + DUK_ASSERT(d >= 0 && d < 2147483648.0 * 1000.0); /* unsigned 31-bit range */ + t = (time_t) (d / 1000.0); + DUK_DDD(DUK_DDDPRINT("timeval: %lf -> time_t %ld", (double) d, (long) t)); + + duk_memzero((void *) tms, sizeof(struct tm) * 2); + +#if defined(DUK_USE_DATE_TZO_GMTIME_R) + (void) gmtime_r(&t, &tms[0]); + (void) localtime_r(&t, &tms[1]); +#elif defined(DUK_USE_DATE_TZO_GMTIME_S) + (void) gmtime_s(&t, &tms[0]); + (void) localtime_s(&t, &tms[1]); +#elif defined(DUK_USE_DATE_TZO_GMTIME) + tm_ptr = gmtime(&t); + duk_memcpy((void *) &tms[0], tm_ptr, sizeof(struct tm)); + tm_ptr = localtime(&t); + duk_memcpy((void *) &tms[1], tm_ptr, sizeof(struct tm)); +#else +#error internal error +#endif + DUK_DDD(DUK_DDDPRINT("gmtime result: tm={sec:%ld,min:%ld,hour:%ld,mday:%ld,mon:%ld,year:%ld," + "wday:%ld,yday:%ld,isdst:%ld}", + (long) tms[0].tm_sec, (long) tms[0].tm_min, (long) tms[0].tm_hour, + (long) tms[0].tm_mday, (long) tms[0].tm_mon, (long) tms[0].tm_year, + (long) tms[0].tm_wday, (long) tms[0].tm_yday, (long) tms[0].tm_isdst)); + DUK_DDD(DUK_DDDPRINT("localtime result: tm={sec:%ld,min:%ld,hour:%ld,mday:%ld,mon:%ld,year:%ld," + "wday:%ld,yday:%ld,isdst:%ld}", + (long) tms[1].tm_sec, (long) tms[1].tm_min, (long) tms[1].tm_hour, + (long) tms[1].tm_mday, (long) tms[1].tm_mon, (long) tms[1].tm_year, + (long) tms[1].tm_wday, (long) tms[1].tm_yday, (long) tms[1].tm_isdst)); + + /* tm_isdst is both an input and an output to mktime(), use 0 to + * avoid DST handling in mktime(): + * - https://github.com/svaarala/duktape/issues/406 + * - http://stackoverflow.com/questions/8558919/mktime-and-tm-isdst + */ + tms[0].tm_isdst = 0; + tms[1].tm_isdst = 0; + t1 = mktime(&tms[0]); /* UTC */ + t2 = mktime(&tms[1]); /* local */ + if (t1 == (time_t) -1 || t2 == (time_t) -1) { + /* This check used to be for (t < 0) but on some platforms + * time_t is unsigned and apparently the proper way to detect + * an mktime() error return is the cast above. See e.g.: + * http://pubs.opengroup.org/onlinepubs/009695299/functions/mktime.html + */ + goto mktime_error; + } + DUK_DDD(DUK_DDDPRINT("t1=%ld (utc), t2=%ld (local)", (long) t1, (long) t2)); + + /* Compute final offset in seconds, positive if local time ahead of + * UTC (returned value is UTC-to-local offset). + * + * difftime() returns a double, so coercion to int generates quite + * a lot of code. Direct subtraction is not portable, however. + * XXX: allow direct subtraction on known platforms. + */ +#if 0 + return (duk_int_t) (t2 - t1); +#endif + return (duk_int_t) difftime(t2, t1); + + mktime_error: + /* XXX: return something more useful, so that caller can throw? */ + DUK_D(DUK_DPRINT("mktime() failed, d=%lf", (double) d)); + return 0; +} +#endif /* DUK_USE_DATE_TZO_GMTIME */ + +#if defined(DUK_USE_DATE_PRS_STRPTIME) +DUK_INTERNAL duk_bool_t duk_bi_date_parse_string_strptime(duk_hthread *thr, const char *str) { + struct tm tm; + time_t t; + char buf[DUK__STRPTIME_BUF_SIZE]; + + /* Copy to buffer with slack to avoid Valgrind gripes from strptime. */ + DUK_ASSERT(str != NULL); + duk_memzero(buf, sizeof(buf)); /* valgrind whine without this */ + DUK_SNPRINTF(buf, sizeof(buf), "%s", (const char *) str); + buf[sizeof(buf) - 1] = (char) 0; + + DUK_DDD(DUK_DDDPRINT("parsing: '%s'", (const char *) buf)); + + duk_memzero(&tm, sizeof(tm)); + if (strptime((const char *) buf, "%c", &tm) != NULL) { + DUK_DDD(DUK_DDDPRINT("before mktime: tm={sec:%ld,min:%ld,hour:%ld,mday:%ld,mon:%ld,year:%ld," + "wday:%ld,yday:%ld,isdst:%ld}", + (long) tm.tm_sec, (long) tm.tm_min, (long) tm.tm_hour, + (long) tm.tm_mday, (long) tm.tm_mon, (long) tm.tm_year, + (long) tm.tm_wday, (long) tm.tm_yday, (long) tm.tm_isdst)); + tm.tm_isdst = -1; /* negative: dst info not available */ + + t = mktime(&tm); + DUK_DDD(DUK_DDDPRINT("mktime() -> %ld", (long) t)); + if (t >= 0) { + duk_push_number(thr, ((duk_double_t) t) * 1000.0); + return 1; + } + } + + return 0; +} +#endif /* DUK_USE_DATE_PRS_STRPTIME */ + +#if defined(DUK_USE_DATE_PRS_GETDATE) +DUK_INTERNAL duk_bool_t duk_bi_date_parse_string_getdate(duk_hthread *thr, const char *str) { + struct tm tm; + duk_small_int_t rc; + time_t t; + + /* For this to work, DATEMSK must be set, so this is not very + * convenient for an embeddable interpreter. + */ + + duk_memzero(&tm, sizeof(struct tm)); + rc = (duk_small_int_t) getdate_r(str, &tm); + DUK_DDD(DUK_DDDPRINT("getdate_r() -> %ld", (long) rc)); + + if (rc == 0) { + t = mktime(&tm); + DUK_DDD(DUK_DDDPRINT("mktime() -> %ld", (long) t)); + if (t >= 0) { + duk_push_number(thr, (duk_double_t) t); + return 1; + } + } + + return 0; +} +#endif /* DUK_USE_DATE_PRS_GETDATE */ + +#if defined(DUK_USE_DATE_FMT_STRFTIME) +DUK_INTERNAL duk_bool_t duk_bi_date_format_parts_strftime(duk_hthread *thr, duk_int_t *parts, duk_int_t tzoffset, duk_small_uint_t flags) { + char buf[DUK__STRFTIME_BUF_SIZE]; + struct tm tm; + const char *fmt; + + DUK_UNREF(tzoffset); + + /* If the platform doesn't support the entire ECMAScript range, we need + * to return 0 so that the caller can fall back to the default formatter. + * + * For now, assume that if time_t is 8 bytes or more, the whole ECMAScript + * range is supported. For smaller time_t values (4 bytes in practice), + * assumes that the signed 32-bit range is supported. + * + * XXX: detect this more correctly per platform. The size of time_t is + * probably not an accurate guarantee of strftime() supporting or not + * supporting a large time range (the full ECMAScript range). + */ + if (sizeof(time_t) < 8 && + (parts[DUK_DATE_IDX_YEAR] < 1970 || parts[DUK_DATE_IDX_YEAR] > 2037)) { + /* be paranoid for 32-bit time values (even avoiding negative ones) */ + return 0; + } + + duk_memzero(&tm, sizeof(tm)); + tm.tm_sec = parts[DUK_DATE_IDX_SECOND]; + tm.tm_min = parts[DUK_DATE_IDX_MINUTE]; + tm.tm_hour = parts[DUK_DATE_IDX_HOUR]; + tm.tm_mday = parts[DUK_DATE_IDX_DAY]; /* already one-based */ + tm.tm_mon = parts[DUK_DATE_IDX_MONTH] - 1; /* one-based -> zero-based */ + tm.tm_year = parts[DUK_DATE_IDX_YEAR] - 1900; + tm.tm_wday = parts[DUK_DATE_IDX_WEEKDAY]; + tm.tm_isdst = 0; + + duk_memzero(buf, sizeof(buf)); + if ((flags & DUK_DATE_FLAG_TOSTRING_DATE) && (flags & DUK_DATE_FLAG_TOSTRING_TIME)) { + fmt = "%c"; + } else if (flags & DUK_DATE_FLAG_TOSTRING_DATE) { + fmt = "%x"; + } else { + DUK_ASSERT(flags & DUK_DATE_FLAG_TOSTRING_TIME); + fmt = "%X"; + } + (void) strftime(buf, sizeof(buf) - 1, fmt, &tm); + DUK_ASSERT(buf[sizeof(buf) - 1] == 0); + + duk_push_string(thr, buf); + return 1; +} +#endif /* DUK_USE_DATE_FMT_STRFTIME */ + +#if defined(DUK_USE_GET_MONOTONIC_TIME_CLOCK_GETTIME) +DUK_INTERNAL duk_double_t duk_bi_date_get_monotonic_time_clock_gettime(void) { + struct timespec ts; + + if (clock_gettime(CLOCK_MONOTONIC, &ts) == 0) { + return (duk_double_t) ts.tv_sec * 1000.0 + (duk_double_t) ts.tv_nsec / 1000000.0; + } else { + DUK_D(DUK_DPRINT("clock_gettime(CLOCK_MONOTONIC) failed")); + return 0.0; + } +} +#endif + +/* automatic undefs */ +#undef DUK__STRFTIME_BUF_SIZE +#undef DUK__STRPTIME_BUF_SIZE +#line 1 "duk_bi_date_windows.c" +/* + * Windows Date providers + * + * Platform specific links: + * + * - http://msdn.microsoft.com/en-us/library/windows/desktop/ms725473(v=vs.85).aspx + */ + +/* #include duk_internal.h -> already included */ + +/* The necessary #includes are in place in duk_config.h. */ + +#if defined(DUK_USE_DATE_NOW_WINDOWS) || defined(DUK_USE_DATE_TZO_WINDOWS) +/* Shared Windows helpers. */ +DUK_LOCAL void duk__convert_systime_to_ularge(const SYSTEMTIME *st, ULARGE_INTEGER *res) { + FILETIME ft; + if (SystemTimeToFileTime(st, &ft) == 0) { + DUK_D(DUK_DPRINT("SystemTimeToFileTime() failed, returning 0")); + res->QuadPart = 0; + } else { + res->LowPart = ft.dwLowDateTime; + res->HighPart = ft.dwHighDateTime; + } +} + +#if defined(DUK_USE_DATE_NOW_WINDOWS_SUBMS) +DUK_LOCAL void duk__convert_filetime_to_ularge(const FILETIME *ft, ULARGE_INTEGER *res) { + res->LowPart = ft->dwLowDateTime; + res->HighPart = ft->dwHighDateTime; +} +#endif /* DUK_USE_DATE_NOW_WINDOWS_SUBMS */ + +DUK_LOCAL void duk__set_systime_jan1970(SYSTEMTIME *st) { + duk_memzero((void *) st, sizeof(*st)); + st->wYear = 1970; + st->wMonth = 1; + st->wDayOfWeek = 4; /* not sure whether or not needed; Thursday */ + st->wDay = 1; + DUK_ASSERT(st->wHour == 0); + DUK_ASSERT(st->wMinute == 0); + DUK_ASSERT(st->wSecond == 0); + DUK_ASSERT(st->wMilliseconds == 0); +} +#endif /* defined(DUK_USE_DATE_NOW_WINDOWS) || defined(DUK_USE_DATE_TZO_WINDOWS) */ + +#if defined(DUK_USE_DATE_NOW_WINDOWS) +DUK_INTERNAL duk_double_t duk_bi_date_get_now_windows(void) { + /* Suggested step-by-step method from documentation of RtlTimeToSecondsSince1970: + * http://msdn.microsoft.com/en-us/library/windows/desktop/ms724928(v=vs.85).aspx + */ + SYSTEMTIME st1, st2; + ULARGE_INTEGER tmp1, tmp2; + + GetSystemTime(&st1); + duk__convert_systime_to_ularge((const SYSTEMTIME *) &st1, &tmp1); + + duk__set_systime_jan1970(&st2); + duk__convert_systime_to_ularge((const SYSTEMTIME *) &st2, &tmp2); + + /* Difference is in 100ns units, convert to milliseconds, keeping + * fractions since Duktape 2.2.0. This is only theoretical because + * SYSTEMTIME is limited to milliseconds. + */ + return (duk_double_t) ((LONGLONG) tmp1.QuadPart - (LONGLONG) tmp2.QuadPart) / 10000.0; +} +#endif /* DUK_USE_DATE_NOW_WINDOWS */ + +#if defined(DUK_USE_DATE_NOW_WINDOWS_SUBMS) +DUK_INTERNAL duk_double_t duk_bi_date_get_now_windows_subms(void) { + /* Variant of the basic algorithm using GetSystemTimePreciseAsFileTime() + * for more accuracy. + */ + FILETIME ft1; + SYSTEMTIME st2; + ULARGE_INTEGER tmp1, tmp2; + + GetSystemTimePreciseAsFileTime(&ft1); + duk__convert_filetime_to_ularge((const FILETIME *) &ft1, &tmp1); + + duk__set_systime_jan1970(&st2); + duk__convert_systime_to_ularge((const SYSTEMTIME *) &st2, &tmp2); + + /* Difference is in 100ns units, convert to milliseconds, keeping + * fractions since Duktape 2.2.0. + */ + return (duk_double_t) ((LONGLONG) tmp1.QuadPart - (LONGLONG) tmp2.QuadPart) / 10000.0; +} +#endif /* DUK_USE_DATE_NOW_WINDOWS */ + +#if defined(DUK_USE_DATE_TZO_WINDOWS) +DUK_INTERNAL duk_int_t duk_bi_date_get_local_tzoffset_windows(duk_double_t d) { + SYSTEMTIME st1; + SYSTEMTIME st2; + SYSTEMTIME st3; + ULARGE_INTEGER tmp1; + ULARGE_INTEGER tmp2; + ULARGE_INTEGER tmp3; + FILETIME ft1; + + /* XXX: handling of timestamps outside Windows supported range. + * How does Windows deal with dates before 1600? Does windows + * support all ECMAScript years (like -200000 and +200000)? + * Should equivalent year mapping be used here too? If so, use + * a shared helper (currently integrated into timeval-to-parts). + */ + + /* Use the approach described in "Remarks" of FileTimeToLocalFileTime: + * http://msdn.microsoft.com/en-us/library/windows/desktop/ms724277(v=vs.85).aspx + */ + + duk__set_systime_jan1970(&st1); + duk__convert_systime_to_ularge((const SYSTEMTIME *) &st1, &tmp1); + tmp2.QuadPart = (ULONGLONG) (d * 10000.0); /* millisec -> 100ns units since jan 1, 1970 */ + tmp2.QuadPart += tmp1.QuadPart; /* input 'd' in Windows UTC, 100ns units */ + + ft1.dwLowDateTime = tmp2.LowPart; + ft1.dwHighDateTime = tmp2.HighPart; + if (FileTimeToSystemTime((const FILETIME *) &ft1, &st2) == 0) { + DUK_D(DUK_DPRINT("FileTimeToSystemTime() failed, return tzoffset 0")); + return 0; + } + if (SystemTimeToTzSpecificLocalTime((LPTIME_ZONE_INFORMATION) NULL, &st2, &st3) == 0) { + DUK_D(DUK_DPRINT("SystemTimeToTzSpecificLocalTime() failed, return tzoffset 0")); + return 0; + } + duk__convert_systime_to_ularge((const SYSTEMTIME *) &st3, &tmp3); + + /* Positive if local time ahead of UTC. */ + return (duk_int_t) (((LONGLONG) tmp3.QuadPart - (LONGLONG) tmp2.QuadPart) / DUK_I64_CONSTANT(10000000)); /* seconds */ +} +#endif /* DUK_USE_DATE_TZO_WINDOWS */ + +#if defined(DUK_USE_DATE_TZO_WINDOWS_NO_DST) +DUK_INTERNAL duk_int_t duk_bi_date_get_local_tzoffset_windows_no_dst(duk_double_t d) { + SYSTEMTIME st1; + SYSTEMTIME st2; + FILETIME ft1; + FILETIME ft2; + ULARGE_INTEGER tmp1; + ULARGE_INTEGER tmp2; + + /* Do a similar computation to duk_bi_date_get_local_tzoffset_windows + * but without accounting for daylight savings time. Use this on + * Windows platforms (like Durango) that don't support the + * SystemTimeToTzSpecificLocalTime() call. + */ + + /* current time not needed for this computation */ + DUK_UNREF(d); + + duk__set_systime_jan1970(&st1); + duk__convert_systime_to_ularge((const SYSTEMTIME *) &st1, &tmp1); + + ft1.dwLowDateTime = tmp1.LowPart; + ft1.dwHighDateTime = tmp1.HighPart; + if (FileTimeToLocalFileTime((const FILETIME *) &ft1, &ft2) == 0) { + DUK_D(DUK_DPRINT("FileTimeToLocalFileTime() failed, return tzoffset 0")); + return 0; + } + if (FileTimeToSystemTime((const FILETIME *) &ft2, &st2) == 0) { + DUK_D(DUK_DPRINT("FileTimeToSystemTime() failed, return tzoffset 0")); + return 0; + } + duk__convert_systime_to_ularge((const SYSTEMTIME *) &st2, &tmp2); + + return (duk_int_t) (((LONGLONG) tmp2.QuadPart - (LONGLONG) tmp1.QuadPart) / DUK_I64_CONSTANT(10000000)); /* seconds */ +} +#endif /* DUK_USE_DATE_TZO_WINDOWS_NO_DST */ + +#if defined(DUK_USE_GET_MONOTONIC_TIME_WINDOWS_QPC) +DUK_INTERNAL duk_double_t duk_bi_date_get_monotonic_time_windows_qpc(void) { + LARGE_INTEGER count, freq; + + /* There are legacy issues with QueryPerformanceCounter(): + * - Potential jumps: https://support.microsoft.com/en-us/help/274323/performance-counter-value-may-unexpectedly-leap-forward + * - Differences between cores (XP): https://msdn.microsoft.com/en-us/library/windows/desktop/dn553408(v=vs.85).aspx#qpc_support_in_windows_versions + * + * We avoid these by enabling QPC by default only for Vista or later. + */ + + if (QueryPerformanceCounter(&count) && QueryPerformanceFrequency(&freq)) { + /* XXX: QueryPerformanceFrequency() can be cached */ + return (duk_double_t) count.QuadPart / (duk_double_t) freq.QuadPart * 1000.0; + } else { + /* MSDN: "On systems that run Windows XP or later, the function + * will always succeed and will thus never return zero." + * Provide minimal error path just in case user enables this + * feature in pre-XP Windows. + */ + return 0.0; + } +} +#endif /* DUK_USE_GET_MONOTONIC_TIME_WINDOWS_QPC */ +#line 1 "duk_bi_duktape.c" +/* + * Duktape built-ins + * + * Size optimization note: it might seem that vararg multipurpose functions + * like fin(), enc(), and dec() are not very size optimal, but using a single + * user-visible ECMAScript function saves a lot of run-time footprint; each + * Function instance takes >100 bytes. Using a shared native helper and a + * 'magic' value won't save much if there are multiple Function instances + * anyway. + */ + +/* #include duk_internal.h -> already included */ + +#if defined(DUK_USE_DUKTAPE_BUILTIN) + +DUK_INTERNAL duk_ret_t duk_bi_duktape_object_info(duk_hthread *thr) { + duk_inspect_value(thr, -1); + return 1; +} + +DUK_INTERNAL duk_ret_t duk_bi_duktape_object_act(duk_hthread *thr) { + duk_int_t level; + + level = duk_to_int(thr, 0); + duk_inspect_callstack_entry(thr, level); + return 1; +} + +DUK_INTERNAL duk_ret_t duk_bi_duktape_object_gc(duk_hthread *thr) { + duk_small_uint_t flags; + + flags = (duk_small_uint_t) duk_get_uint(thr, 0); + duk_heap_mark_and_sweep(thr->heap, flags); + + /* XXX: Not sure what the best return value would be in the API. + * Return true for now. + */ + duk_push_true(thr); + return 1; +} + +#if defined(DUK_USE_FINALIZER_SUPPORT) +DUK_INTERNAL duk_ret_t duk_bi_duktape_object_fin(duk_hthread *thr) { + (void) duk_require_hobject(thr, 0); + if (duk_get_top(thr) >= 2) { + /* Set: currently a finalizer is disabled by setting it to + * undefined; this does not remove the property at the moment. + * The value could be type checked to be either a function + * or something else; if something else, the property could + * be deleted. Must use duk_set_finalizer() to keep + * DUK_HOBJECT_FLAG_HAVE_FINALIZER in sync. + */ + duk_set_top(thr, 2); + duk_set_finalizer(thr, 0); + return 0; + } else { + /* Get. */ + DUK_ASSERT(duk_get_top(thr) == 1); + duk_get_finalizer(thr, 0); + return 1; + } +} +#endif /* DUK_USE_FINALIZER_SUPPORT */ + +DUK_INTERNAL duk_ret_t duk_bi_duktape_object_enc(duk_hthread *thr) { + duk_hstring *h_str; + + /* Vararg function: must be careful to check/require arguments. + * The JSON helpers accept invalid indices and treat them like + * non-existent optional parameters. + */ + + h_str = duk_require_hstring(thr, 0); /* Could reject symbols, but no point: won't match comparisons. */ + duk_require_valid_index(thr, 1); + + if (h_str == DUK_HTHREAD_STRING_HEX(thr)) { + duk_set_top(thr, 2); + duk_hex_encode(thr, 1); + DUK_ASSERT_TOP(thr, 2); + } else if (h_str == DUK_HTHREAD_STRING_BASE64(thr)) { + duk_set_top(thr, 2); + duk_base64_encode(thr, 1); + DUK_ASSERT_TOP(thr, 2); +#if defined(DUK_USE_JSON_SUPPORT) && defined(DUK_USE_JX) + } else if (h_str == DUK_HTHREAD_STRING_JX(thr)) { + duk_bi_json_stringify_helper(thr, + 1 /*idx_value*/, + 2 /*idx_replacer*/, + 3 /*idx_space*/, + DUK_JSON_FLAG_EXT_CUSTOM | + DUK_JSON_FLAG_ASCII_ONLY | + DUK_JSON_FLAG_AVOID_KEY_QUOTES /*flags*/); +#endif +#if defined(DUK_USE_JSON_SUPPORT) && defined(DUK_USE_JC) + } else if (h_str == DUK_HTHREAD_STRING_JC(thr)) { + duk_bi_json_stringify_helper(thr, + 1 /*idx_value*/, + 2 /*idx_replacer*/, + 3 /*idx_space*/, + DUK_JSON_FLAG_EXT_COMPATIBLE | + DUK_JSON_FLAG_ASCII_ONLY /*flags*/); +#endif + } else { + DUK_DCERROR_TYPE_INVALID_ARGS(thr); + } + return 1; +} + +DUK_INTERNAL duk_ret_t duk_bi_duktape_object_dec(duk_hthread *thr) { + duk_hstring *h_str; + + /* Vararg function: must be careful to check/require arguments. + * The JSON helpers accept invalid indices and treat them like + * non-existent optional parameters. + */ + + h_str = duk_require_hstring(thr, 0); /* Could reject symbols, but no point: won't match comparisons */ + duk_require_valid_index(thr, 1); + + if (h_str == DUK_HTHREAD_STRING_HEX(thr)) { + duk_set_top(thr, 2); + duk_hex_decode(thr, 1); + DUK_ASSERT_TOP(thr, 2); + } else if (h_str == DUK_HTHREAD_STRING_BASE64(thr)) { + duk_set_top(thr, 2); + duk_base64_decode(thr, 1); + DUK_ASSERT_TOP(thr, 2); +#if defined(DUK_USE_JSON_SUPPORT) && defined(DUK_USE_JX) + } else if (h_str == DUK_HTHREAD_STRING_JX(thr)) { + duk_bi_json_parse_helper(thr, + 1 /*idx_value*/, + 2 /*idx_replacer*/, + DUK_JSON_FLAG_EXT_CUSTOM /*flags*/); +#endif +#if defined(DUK_USE_JSON_SUPPORT) && defined(DUK_USE_JC) + } else if (h_str == DUK_HTHREAD_STRING_JC(thr)) { + duk_bi_json_parse_helper(thr, + 1 /*idx_value*/, + 2 /*idx_replacer*/, + DUK_JSON_FLAG_EXT_COMPATIBLE /*flags*/); +#endif + } else { + DUK_DCERROR_TYPE_INVALID_ARGS(thr); + } + return 1; +} + +/* + * Compact an object + */ + +DUK_INTERNAL duk_ret_t duk_bi_duktape_object_compact(duk_hthread *thr) { + DUK_ASSERT_TOP(thr, 1); + duk_compact(thr, 0); + return 1; /* return the argument object */ +} + +#endif /* DUK_USE_DUKTAPE_BUILTIN */ +#line 1 "duk_bi_encoding.c" +/* + * WHATWG Encoding API built-ins + * + * API specification: https://encoding.spec.whatwg.org/#api + * Web IDL: https://www.w3.org/TR/WebIDL/ + */ + +/* #include duk_internal.h -> already included */ + +/* + * Data structures for encoding/decoding + */ + +typedef struct { + duk_uint8_t *out; /* where to write next byte(s) */ + duk_codepoint_t lead; /* lead surrogate */ +} duk__encode_context; + +typedef struct { + /* UTF-8 decoding state */ + duk_codepoint_t codepoint; /* built up incrementally */ + duk_uint8_t upper; /* max value of next byte (decode error otherwise) */ + duk_uint8_t lower; /* min value of next byte (ditto) */ + duk_uint8_t needed; /* how many more bytes we need */ + duk_uint8_t bom_handled; /* BOM seen or no longer expected */ + + /* Decoder configuration */ + duk_uint8_t fatal; + duk_uint8_t ignore_bom; +} duk__decode_context; + +/* The signed duk_codepoint_t type is used to signal a decoded codepoint + * (>= 0) or various other states using negative values. + */ +#define DUK__CP_CONTINUE (-1) /* continue to next byte, no completed codepoint */ +#define DUK__CP_ERROR (-2) /* decoding error */ +#define DUK__CP_RETRY (-3) /* decoding error; retry last byte */ + +/* + * Raw helpers for encoding/decoding + */ + +/* Emit UTF-8 (= CESU-8) encoded U+FFFD (replacement char), i.e. ef bf bd. */ +DUK_LOCAL duk_uint8_t *duk__utf8_emit_repl(duk_uint8_t *ptr) { + *ptr++ = 0xef; + *ptr++ = 0xbf; + *ptr++ = 0xbd; + return ptr; +} + +DUK_LOCAL void duk__utf8_decode_init(duk__decode_context *dec_ctx) { + /* (Re)init the decoding state of 'dec_ctx' but leave decoder + * configuration fields untouched. + */ + dec_ctx->codepoint = 0x0000L; + dec_ctx->upper = 0xbf; + dec_ctx->lower = 0x80; + dec_ctx->needed = 0; + dec_ctx->bom_handled = 0; +} + +DUK_LOCAL duk_codepoint_t duk__utf8_decode_next(duk__decode_context *dec_ctx, duk_uint8_t x) { + /* + * UTF-8 algorithm based on the Encoding specification: + * https://encoding.spec.whatwg.org/#utf-8-decoder + * + * Two main states: decoding initial byte vs. decoding continuation + * bytes. Shortest length encoding is validated by restricting the + * allowed range of first continuation byte using 'lower' and 'upper'. + */ + + if (dec_ctx->needed == 0) { + /* process initial byte */ + if (x <= 0x7f) { + /* U+0000-U+007F, 1 byte (ASCII) */ + return (duk_codepoint_t) x; + } else if (x >= 0xc2 && x <= 0xdf) { + /* U+0080-U+07FF, 2 bytes */ + dec_ctx->needed = 1; + dec_ctx->codepoint = x & 0x1f; + DUK_ASSERT(dec_ctx->lower == 0x80); + DUK_ASSERT(dec_ctx->upper == 0xbf); + return DUK__CP_CONTINUE; + } else if (x >= 0xe0 && x <= 0xef) { + /* U+0800-U+FFFF, 3 bytes */ + if (x == 0xe0) { + dec_ctx->lower = 0xa0; + DUK_ASSERT(dec_ctx->upper == 0xbf); + } else if (x == 0xed) { + DUK_ASSERT(dec_ctx->lower == 0x80); + dec_ctx->upper = 0x9f; + } + dec_ctx->needed = 2; + dec_ctx->codepoint = x & 0x0f; + return DUK__CP_CONTINUE; + } else if (x >= 0xf0 && x <= 0xf4) { + /* U+010000-U+10FFFF, 4 bytes */ + if (x == 0xf0) { + dec_ctx->lower = 0x90; + DUK_ASSERT(dec_ctx->upper == 0xbf); + } else if (x == 0xf4) { + DUK_ASSERT(dec_ctx->lower == 0x80); + dec_ctx->upper = 0x8f; + } + dec_ctx->needed = 3; + dec_ctx->codepoint = x & 0x07; + return DUK__CP_CONTINUE; + } else { + /* not a legal initial byte */ + return DUK__CP_ERROR; + } + } else { + /* process continuation byte */ + if (x >= dec_ctx->lower && x <= dec_ctx->upper) { + dec_ctx->lower = 0x80; + dec_ctx->upper = 0xbf; + dec_ctx->codepoint = (dec_ctx->codepoint << 6) | (x & 0x3f); + if (--dec_ctx->needed > 0) { + /* need more bytes */ + return DUK__CP_CONTINUE; + } else { + /* got a codepoint */ + duk_codepoint_t ret; + DUK_ASSERT(dec_ctx->codepoint <= 0x10ffffL); /* Decoding rules guarantee. */ + ret = dec_ctx->codepoint; + dec_ctx->codepoint = 0x0000L; + dec_ctx->needed = 0; + return ret; + } + } else { + /* We just encountered an illegal UTF-8 continuation byte. This might + * be the initial byte of the next character; if we return a plain + * error status and the decoder is in replacement mode, the character + * will be masked. We still need to alert the caller to the error + * though. + */ + dec_ctx->codepoint = 0x0000L; + dec_ctx->needed = 0; + dec_ctx->lower = 0x80; + dec_ctx->upper = 0xbf; + return DUK__CP_RETRY; + } + } +} + +#if defined(DUK_USE_ENCODING_BUILTINS) +DUK_LOCAL void duk__utf8_encode_char(void *udata, duk_codepoint_t codepoint) { + duk__encode_context *enc_ctx; + + DUK_ASSERT(codepoint >= 0); + enc_ctx = (duk__encode_context *) udata; + DUK_ASSERT(enc_ctx != NULL); + +#if !defined(DUK_USE_PREFER_SIZE) + if (codepoint <= 0x7f && enc_ctx->lead == 0x0000L) { + /* Fast path for ASCII. */ + *enc_ctx->out++ = (duk_uint8_t) codepoint; + return; + } +#endif + + if (DUK_UNLIKELY(codepoint > 0x10ffffL)) { + /* cannot legally encode in UTF-8 */ + codepoint = DUK_UNICODE_CP_REPLACEMENT_CHARACTER; + } else if (codepoint >= 0xd800L && codepoint <= 0xdfffL) { + if (codepoint <= 0xdbffL) { + /* high surrogate */ + duk_codepoint_t prev_lead = enc_ctx->lead; + enc_ctx->lead = codepoint; + if (prev_lead == 0x0000L) { + /* high surrogate, no output */ + return; + } else { + /* consecutive high surrogates, consider first one unpaired */ + codepoint = DUK_UNICODE_CP_REPLACEMENT_CHARACTER; + } + } else { + /* low surrogate */ + if (enc_ctx->lead != 0x0000L) { + codepoint = (duk_codepoint_t) (0x010000L + ((enc_ctx->lead - 0xd800L) << 10) + (codepoint - 0xdc00L)); + enc_ctx->lead = 0x0000L; + } else { + /* unpaired low surrogate */ + DUK_ASSERT(enc_ctx->lead == 0x0000L); + codepoint = DUK_UNICODE_CP_REPLACEMENT_CHARACTER; + } + } + } else { + if (enc_ctx->lead != 0x0000L) { + /* unpaired high surrogate: emit replacement character and the input codepoint */ + enc_ctx->lead = 0x0000L; + enc_ctx->out = duk__utf8_emit_repl(enc_ctx->out); + } + } + + /* Codepoint may be original input, a decoded surrogate pair, or may + * have been replaced with U+FFFD. + */ + enc_ctx->out += duk_unicode_encode_xutf8((duk_ucodepoint_t) codepoint, enc_ctx->out); +} +#endif /* DUK_USE_ENCODING_BUILTINS */ + +/* Shared helper for buffer-to-string using a TextDecoder() compatible UTF-8 + * decoder. + */ +DUK_LOCAL duk_ret_t duk__decode_helper(duk_hthread *thr, duk__decode_context *dec_ctx) { + const duk_uint8_t *input; + duk_size_t len = 0; + duk_size_t len_tmp; + duk_bool_t stream = 0; + duk_codepoint_t codepoint; + duk_uint8_t *output; + const duk_uint8_t *in; + duk_uint8_t *out; + + DUK_ASSERT(dec_ctx != NULL); + + /* Careful with input buffer pointer: any side effects involving + * code execution (e.g. getters, coercion calls, and finalizers) + * may cause a resize and invalidate a pointer we've read. This + * is why the pointer is actually looked up at the last minute. + * Argument validation must still happen first to match WHATWG + * required side effect order. + */ + + if (duk_is_undefined(thr, 0)) { + duk_push_fixed_buffer_nozero(thr, 0); + duk_replace(thr, 0); + } + (void) duk_require_buffer_data(thr, 0, &len); /* Need 'len', avoid pointer. */ + + if (duk_check_type_mask(thr, 1, DUK_TYPE_MASK_UNDEFINED | + DUK_TYPE_MASK_NULL | + DUK_TYPE_MASK_NONE)) { + /* Use defaults, treat missing value like undefined. */ + } else { + duk_require_type_mask(thr, 1, DUK_TYPE_MASK_UNDEFINED | + DUK_TYPE_MASK_NULL | + DUK_TYPE_MASK_LIGHTFUNC | + DUK_TYPE_MASK_BUFFER | + DUK_TYPE_MASK_OBJECT); + if (duk_get_prop_literal(thr, 1, "stream")) { + stream = duk_to_boolean(thr, -1); + } + } + + /* Allowance is 3*len in the general case because all bytes may potentially + * become U+FFFD. If the first byte completes a non-BMP codepoint it will + * decode to a CESU-8 surrogate pair (6 bytes) so we allow 3 extra bytes to + * compensate: (1*3)+3 = 6. Non-BMP codepoints are safe otherwise because + * the 4->6 expansion is well under the 3x allowance. + * + * XXX: As with TextEncoder, need a better buffer allocation strategy here. + */ + if (len >= (DUK_HBUFFER_MAX_BYTELEN / 3) - 3) { + DUK_ERROR_TYPE(thr, DUK_STR_RESULT_TOO_LONG); + DUK_WO_NORETURN(return 0;); + } + output = (duk_uint8_t *) duk_push_fixed_buffer_nozero(thr, 3 + (3 * len)); /* used parts will be always manually written over */ + + input = (const duk_uint8_t *) duk_get_buffer_data(thr, 0, &len_tmp); + DUK_ASSERT(input != NULL || len == 0); + if (DUK_UNLIKELY(len != len_tmp)) { + /* Very unlikely but possible: source buffer was resized by + * a side effect when fixed buffer was pushed. Output buffer + * may not be large enough to hold output, so just fail if + * length has changed. + */ + DUK_D(DUK_DPRINT("input buffer resized by side effect, fail")); + goto fail_type; + } + + /* From this point onwards it's critical that no side effect occur + * which may disturb 'input': finalizer execution, property accesses, + * active coercions, etc. Even an allocation related mark-and-sweep + * may affect the pointer because it may trigger a pending finalizer. + */ + + in = input; + out = output; + while (in < input + len) { + codepoint = duk__utf8_decode_next(dec_ctx, *in++); + if (codepoint < 0) { + if (codepoint == DUK__CP_CONTINUE) { + continue; + } + + /* Decoding error with or without retry. */ + DUK_ASSERT(codepoint == DUK__CP_ERROR || codepoint == DUK__CP_RETRY); + if (codepoint == DUK__CP_RETRY) { + --in; /* retry last byte */ + } + /* replacement mode: replace with U+FFFD */ + codepoint = DUK_UNICODE_CP_REPLACEMENT_CHARACTER; + if (dec_ctx->fatal) { + /* fatal mode: throw a TypeError */ + goto fail_type; + } + /* Continue with 'codepoint', Unicode replacement. */ + } + DUK_ASSERT(codepoint >= 0x0000L && codepoint <= 0x10ffffL); + + if (!dec_ctx->bom_handled) { + dec_ctx->bom_handled = 1; + if (codepoint == 0xfeffL && !dec_ctx->ignore_bom) { + continue; + } + } + + out += duk_unicode_encode_cesu8((duk_ucodepoint_t) codepoint, out); + DUK_ASSERT(out <= output + (3 + (3 * len))); + } + + if (!stream) { + if (dec_ctx->needed != 0) { + /* truncated sequence at end of buffer */ + if (dec_ctx->fatal) { + goto fail_type; + } else { + out += duk_unicode_encode_cesu8(DUK_UNICODE_CP_REPLACEMENT_CHARACTER, out); + DUK_ASSERT(out <= output + (3 + (3 * len))); + } + } + duk__utf8_decode_init(dec_ctx); /* Initialize decoding state for potential reuse. */ + } + + /* Output buffer is fixed and thus stable even if there had been + * side effects (which there shouldn't be). + */ + duk_push_lstring(thr, (const char *) output, (duk_size_t) (out - output)); + return 1; + + fail_type: + DUK_ERROR_TYPE(thr, DUK_STR_UTF8_DECODE_FAILED); + DUK_WO_NORETURN(return 0;); +} + +/* + * Built-in bindings + */ + +#if defined(DUK_USE_ENCODING_BUILTINS) +DUK_INTERNAL duk_ret_t duk_bi_textencoder_constructor(duk_hthread *thr) { + /* TextEncoder currently requires no persistent state, so the constructor + * does nothing on purpose. + */ + + duk_require_constructor_call(thr); + return 0; +} + +DUK_INTERNAL duk_ret_t duk_bi_textencoder_prototype_encoding_getter(duk_hthread *thr) { + duk_push_literal(thr, "utf-8"); + return 1; +} + +DUK_INTERNAL duk_ret_t duk_bi_textencoder_prototype_encode(duk_hthread *thr) { + duk__encode_context enc_ctx; + duk_size_t len; + duk_size_t final_len; + duk_uint8_t *output; + + DUK_ASSERT_TOP(thr, 1); + if (duk_is_undefined(thr, 0)) { + len = 0; + } else { + duk_hstring *h_input; + + h_input = duk_to_hstring(thr, 0); + DUK_ASSERT(h_input != NULL); + + len = (duk_size_t) DUK_HSTRING_GET_CHARLEN(h_input); + if (len >= DUK_HBUFFER_MAX_BYTELEN / 3) { + DUK_ERROR_TYPE(thr, DUK_STR_RESULT_TOO_LONG); + DUK_WO_NORETURN(return 0;); + } + } + + /* Allowance is 3*len because all bytes can potentially be replaced with + * U+FFFD -- which rather inconveniently encodes to 3 bytes in UTF-8. + * Rely on dynamic buffer data pointer stability: no other code has + * access to the data pointer. + * + * XXX: The buffer allocation strategy used here is rather inefficient. + * Maybe switch to a chunk-based strategy, or preprocess the string to + * figure out the space needed ahead of time? + */ + DUK_ASSERT(3 * len >= len); + output = (duk_uint8_t *) duk_push_dynamic_buffer(thr, 3 * len); + + if (len > 0) { + DUK_ASSERT(duk_is_string(thr, 0)); /* True if len > 0. */ + + /* XXX: duk_decode_string() is used to process the input + * string. For standard ECMAScript strings, represented + * internally as CESU-8, this is fine. However, behavior + * beyond CESU-8 is not very strict: codepoints using an + * extended form of UTF-8 are also accepted, and invalid + * codepoint sequences (which are allowed in Duktape strings) + * are not handled as well as they could (e.g. invalid + * continuation bytes may mask following codepoints). + * This is how ECMAScript code would also see such strings. + * Maybe replace duk_decode_string() with an explicit strict + * CESU-8 decoder here? + */ + enc_ctx.lead = 0x0000L; + enc_ctx.out = output; + duk_decode_string(thr, 0, duk__utf8_encode_char, (void *) &enc_ctx); + if (enc_ctx.lead != 0x0000L) { + /* unpaired high surrogate at end of string */ + enc_ctx.out = duk__utf8_emit_repl(enc_ctx.out); + DUK_ASSERT(enc_ctx.out <= output + (3 * len)); + } + + /* The output buffer is usually very much oversized, so shrink it to + * actually needed size. Pointer stability assumed up to this point. + */ + DUK_ASSERT_TOP(thr, 2); + DUK_ASSERT(output == (duk_uint8_t *) duk_get_buffer_data(thr, -1, NULL)); + + final_len = (duk_size_t) (enc_ctx.out - output); + duk_resize_buffer(thr, -1, final_len); + /* 'output' and 'enc_ctx.out' are potentially invalidated by the resize. */ + } else { + final_len = 0; + } + + /* Standard WHATWG output is a Uint8Array. Here the Uint8Array will + * be backed by a dynamic buffer which differs from e.g. Uint8Arrays + * created as 'new Uint8Array(N)'. ECMAScript code won't see the + * difference but C code will. When bufferobjects are not supported, + * returns a plain dynamic buffer. + */ +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) + duk_push_buffer_object(thr, -1, 0, final_len, DUK_BUFOBJ_UINT8ARRAY); +#endif + return 1; +} + +DUK_INTERNAL duk_ret_t duk_bi_textdecoder_constructor(duk_hthread *thr) { + duk__decode_context *dec_ctx; + duk_bool_t fatal = 0; + duk_bool_t ignore_bom = 0; + + DUK_ASSERT_TOP(thr, 2); + duk_require_constructor_call(thr); + if (!duk_is_undefined(thr, 0)) { + /* XXX: For now ignore 'label' (encoding identifier). */ + duk_to_string(thr, 0); + } + if (!duk_is_null_or_undefined(thr, 1)) { + if (duk_get_prop_literal(thr, 1, "fatal")) { + fatal = duk_to_boolean(thr, -1); + } + if (duk_get_prop_literal(thr, 1, "ignoreBOM")) { + ignore_bom = duk_to_boolean(thr, -1); + } + } + + duk_push_this(thr); + + /* The decode context is not assumed to be zeroed; all fields are + * initialized explicitly. + */ + dec_ctx = (duk__decode_context *) duk_push_fixed_buffer(thr, sizeof(duk__decode_context)); + dec_ctx->fatal = (duk_uint8_t) fatal; + dec_ctx->ignore_bom = (duk_uint8_t) ignore_bom; + duk__utf8_decode_init(dec_ctx); /* Initializes remaining fields. */ + + duk_put_prop_literal(thr, -2, DUK_INTERNAL_SYMBOL("Context")); + return 0; +} + +/* Get TextDecoder context from 'this'; leaves garbage on stack. */ +DUK_LOCAL duk__decode_context *duk__get_textdecoder_context(duk_hthread *thr) { + duk__decode_context *dec_ctx; + duk_push_this(thr); + duk_get_prop_literal(thr, -1, DUK_INTERNAL_SYMBOL("Context")); + dec_ctx = (duk__decode_context *) duk_require_buffer(thr, -1, NULL); + DUK_ASSERT(dec_ctx != NULL); + return dec_ctx; +} + +DUK_INTERNAL duk_ret_t duk_bi_textdecoder_prototype_shared_getter(duk_hthread *thr) { + duk__decode_context *dec_ctx; + duk_int_t magic; + + dec_ctx = duk__get_textdecoder_context(thr); + magic = duk_get_current_magic(thr); + switch (magic) { + case 0: + /* Encoding is now fixed, so _Context lookup is only needed to + * validate the 'this' binding (TypeError if not TextDecoder-like). + */ + duk_push_literal(thr, "utf-8"); + break; + case 1: + duk_push_boolean(thr, dec_ctx->fatal); + break; + default: + duk_push_boolean(thr, dec_ctx->ignore_bom); + break; + } + + return 1; +} + +DUK_INTERNAL duk_ret_t duk_bi_textdecoder_prototype_decode(duk_hthread *thr) { + duk__decode_context *dec_ctx; + + dec_ctx = duk__get_textdecoder_context(thr); + return duk__decode_helper(thr, dec_ctx); +} +#endif /* DUK_USE_ENCODING_BUILTINS */ + +/* + * Internal helper for Node.js Buffer + */ + +/* Internal helper used for Node.js Buffer .toString(). Value stack convention + * is currently odd: it mimics TextDecoder .decode() so that argument must be at + * index 0, and decode options (not present for Buffer) at index 1. Return value + * is a Duktape/C function return value. + */ +DUK_INTERNAL duk_ret_t duk_textdecoder_decode_utf8_nodejs(duk_hthread *thr) { + duk__decode_context dec_ctx; + + dec_ctx.fatal = 0; /* use replacement chars */ + dec_ctx.ignore_bom = 1; /* ignore BOMs (matches Node.js Buffer .toString()) */ + duk__utf8_decode_init(&dec_ctx); + + return duk__decode_helper(thr, &dec_ctx); +} + +/* automatic undefs */ +#undef DUK__CP_CONTINUE +#undef DUK__CP_ERROR +#undef DUK__CP_RETRY +#line 1 "duk_bi_error.c" +/* + * Error built-ins + */ + +/* #include duk_internal.h -> already included */ + +DUK_INTERNAL duk_ret_t duk_bi_error_constructor_shared(duk_hthread *thr) { + /* Behavior for constructor and non-constructor call is + * the same except for augmenting the created error. When + * called as a constructor, the caller (duk_new()) will handle + * augmentation; when called as normal function, we need to do + * it here. + */ + + duk_small_int_t bidx_prototype = duk_get_current_magic(thr); + + /* same for both error and each subclass like TypeError */ + duk_uint_t flags_and_class = DUK_HOBJECT_FLAG_EXTENSIBLE | + DUK_HOBJECT_FLAG_FASTREFS | + DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_ERROR); + + (void) duk_push_object_helper(thr, flags_and_class, bidx_prototype); + + /* If message is undefined, the own property 'message' is not set at + * all to save property space. An empty message is inherited anyway. + */ + if (!duk_is_undefined(thr, 0)) { + duk_to_string(thr, 0); + duk_dup_0(thr); /* [ message error message ] */ + duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_MESSAGE, DUK_PROPDESC_FLAGS_WC); + } + + /* Augment the error if called as a normal function. __FILE__ and __LINE__ + * are not desirable in this case. + */ + +#if defined(DUK_USE_AUGMENT_ERROR_CREATE) + if (!duk_is_constructor_call(thr)) { + duk_err_augment_error_create(thr, thr, NULL, 0, DUK_AUGMENT_FLAG_NOBLAME_FILELINE); + } +#endif + + return 1; +} + +DUK_INTERNAL duk_ret_t duk_bi_error_prototype_to_string(duk_hthread *thr) { + /* XXX: optimize with more direct internal access */ + + duk_push_this(thr); + (void) duk_require_hobject_promote_mask(thr, -1, DUK_TYPE_MASK_LIGHTFUNC | DUK_TYPE_MASK_BUFFER); + + /* [ ... this ] */ + + duk_get_prop_stridx_short(thr, -1, DUK_STRIDX_NAME); + if (duk_is_undefined(thr, -1)) { + duk_pop(thr); + duk_push_literal(thr, "Error"); + } else { + duk_to_string(thr, -1); + } + + /* [ ... this name ] */ + + /* XXX: Are steps 6 and 7 in E5 Section 15.11.4.4 duplicated by + * accident or are they actually needed? The first ToString() + * could conceivably return 'undefined'. + */ + duk_get_prop_stridx_short(thr, -2, DUK_STRIDX_MESSAGE); + if (duk_is_undefined(thr, -1)) { + duk_pop(thr); + duk_push_hstring_empty(thr); + } else { + duk_to_string(thr, -1); + } + + /* [ ... this name message ] */ + + if (duk_get_length(thr, -2) == 0) { + /* name is empty -> return message */ + return 1; + } + if (duk_get_length(thr, -1) == 0) { + /* message is empty -> return name */ + duk_pop(thr); + return 1; + } + duk_push_literal(thr, ": "); + duk_insert(thr, -2); /* ... name ': ' message */ + duk_concat(thr, 3); + + return 1; +} + +#if defined(DUK_USE_TRACEBACKS) + +/* + * Traceback handling + * + * The unified helper decodes the traceback and produces various requested + * outputs. It should be optimized for size, and may leave garbage on stack, + * only the topmost return value matters. For instance, traceback separator + * and decoded strings are pushed even when looking for filename only. + * + * NOTE: although _Tracedata is an internal property, user code can currently + * write to the array (or replace it with something other than an array). + * The code below must tolerate arbitrary _Tracedata. It can throw errors + * etc, but cannot cause a segfault or memory unsafe behavior. + */ + +/* constants arbitrary, chosen for small loads */ +#define DUK__OUTPUT_TYPE_TRACEBACK (-1) +#define DUK__OUTPUT_TYPE_FILENAME 0 +#define DUK__OUTPUT_TYPE_LINENUMBER 1 + +DUK_LOCAL duk_ret_t duk__error_getter_helper(duk_hthread *thr, duk_small_int_t output_type) { + duk_idx_t idx_td; + duk_small_int_t i; /* traceback depth fits into 16 bits */ + duk_small_int_t t; /* stack type fits into 16 bits */ + duk_small_int_t count_func = 0; /* traceback depth ensures fits into 16 bits */ + const char *str_tailcall = " tailcall"; + const char *str_strict = " strict"; + const char *str_construct = " construct"; + const char *str_prevyield = " preventsyield"; + const char *str_directeval = " directeval"; + const char *str_empty = ""; + + DUK_ASSERT_TOP(thr, 0); /* fixed arg count */ + + duk_push_this(thr); + duk_xget_owndataprop_stridx_short(thr, -1, DUK_STRIDX_INT_TRACEDATA); + idx_td = duk_get_top_index(thr); + + duk_push_hstring_stridx(thr, DUK_STRIDX_NEWLINE_4SPACE); + duk_push_this(thr); + + /* [ ... this tracedata sep this ] */ + + /* XXX: skip null filename? */ + + if (duk_check_type(thr, idx_td, DUK_TYPE_OBJECT)) { + /* Current tracedata contains 2 entries per callstack entry. */ + for (i = 0; ; i += 2) { + duk_int_t pc; + duk_uint_t line; + duk_uint_t flags; + duk_double_t d; + const char *funcname; + const char *filename; + duk_hobject *h_func; + duk_hstring *h_name; + + duk_require_stack(thr, 5); + duk_get_prop_index(thr, idx_td, (duk_uarridx_t) i); + duk_get_prop_index(thr, idx_td, (duk_uarridx_t) (i + 1)); + d = duk_to_number_m1(thr); + pc = duk_double_to_int_t(DUK_FMOD(d, DUK_DOUBLE_2TO32)); + flags = duk_double_to_uint_t(DUK_FLOOR(d / DUK_DOUBLE_2TO32)); + t = (duk_small_int_t) duk_get_type(thr, -2); + + if (t == DUK_TYPE_OBJECT || t == DUK_TYPE_LIGHTFUNC) { + /* + * ECMAScript/native function call or lightfunc call + */ + + count_func++; + + /* [ ... v1(func) v2(pc+flags) ] */ + + /* These may be systematically omitted by Duktape + * with certain config options, but allow user to + * set them on a case-by-case basis. + */ + duk_get_prop_stridx_short(thr, -2, DUK_STRIDX_NAME); + duk_get_prop_stridx_short(thr, -3, DUK_STRIDX_FILE_NAME); + +#if defined(DUK_USE_PC2LINE) + line = (duk_uint_t) duk_hobject_pc2line_query(thr, -4, (duk_uint_fast32_t) pc); +#else + line = 0; +#endif + + /* [ ... v1 v2 name filename ] */ + + /* When looking for .fileName/.lineNumber, blame first + * function which has a .fileName. + */ + if (duk_is_string_notsymbol(thr, -1)) { + if (output_type == DUK__OUTPUT_TYPE_FILENAME) { + return 1; + } else if (output_type == DUK__OUTPUT_TYPE_LINENUMBER) { + duk_push_uint(thr, line); + return 1; + } + } + + /* XXX: Change 'anon' handling here too, to use empty string for anonymous functions? */ + /* XXX: Could be improved by coercing to a readable duk_tval (especially string escaping) */ + h_name = duk_get_hstring_notsymbol(thr, -2); /* may be NULL */ + funcname = (h_name == NULL || h_name == DUK_HTHREAD_STRING_EMPTY_STRING(thr)) ? + "[anon]" : (const char *) DUK_HSTRING_GET_DATA(h_name); + filename = duk_get_string_notsymbol(thr, -1); + filename = filename ? filename : ""; + DUK_ASSERT(funcname != NULL); + DUK_ASSERT(filename != NULL); + + h_func = duk_get_hobject(thr, -4); /* NULL for lightfunc */ + + if (h_func == NULL) { + duk_push_sprintf(thr, "at %s light%s%s%s%s%s", + (const char *) funcname, + (const char *) ((flags & DUK_ACT_FLAG_STRICT) ? str_strict : str_empty), + (const char *) ((flags & DUK_ACT_FLAG_TAILCALLED) ? str_tailcall : str_empty), + (const char *) ((flags & DUK_ACT_FLAG_CONSTRUCT) ? str_construct : str_empty), + (const char *) ((flags & DUK_ACT_FLAG_DIRECT_EVAL) ? str_directeval : str_empty), + (const char *) ((flags & DUK_ACT_FLAG_PREVENT_YIELD) ? str_prevyield : str_empty)); + } else if (DUK_HOBJECT_HAS_NATFUNC(h_func)) { + duk_push_sprintf(thr, "at %s (%s) native%s%s%s%s%s", + (const char *) funcname, + (const char *) filename, + (const char *) ((flags & DUK_ACT_FLAG_STRICT) ? str_strict : str_empty), + (const char *) ((flags & DUK_ACT_FLAG_TAILCALLED) ? str_tailcall : str_empty), + (const char *) ((flags & DUK_ACT_FLAG_CONSTRUCT) ? str_construct : str_empty), + (const char *) ((flags & DUK_ACT_FLAG_DIRECT_EVAL) ? str_directeval : str_empty), + (const char *) ((flags & DUK_ACT_FLAG_PREVENT_YIELD) ? str_prevyield : str_empty)); + } else { + duk_push_sprintf(thr, "at %s (%s:%lu)%s%s%s%s%s", + (const char *) funcname, + (const char *) filename, + (unsigned long) line, + (const char *) ((flags & DUK_ACT_FLAG_STRICT) ? str_strict : str_empty), + (const char *) ((flags & DUK_ACT_FLAG_TAILCALLED) ? str_tailcall : str_empty), + (const char *) ((flags & DUK_ACT_FLAG_CONSTRUCT) ? str_construct : str_empty), + (const char *) ((flags & DUK_ACT_FLAG_DIRECT_EVAL) ? str_directeval : str_empty), + (const char *) ((flags & DUK_ACT_FLAG_PREVENT_YIELD) ? str_prevyield : str_empty)); + } + duk_replace(thr, -5); /* [ ... v1 v2 name filename str ] -> [ ... str v2 name filename ] */ + duk_pop_3(thr); /* -> [ ... str ] */ + } else if (t == DUK_TYPE_STRING) { + const char *str_file; + + /* + * __FILE__ / __LINE__ entry, here 'pc' is line number directly. + * Sometimes __FILE__ / __LINE__ is reported as the source for + * the error (fileName, lineNumber), sometimes not. + */ + + /* [ ... v1(filename) v2(line+flags) ] */ + + /* When looking for .fileName/.lineNumber, blame compilation + * or C call site unless flagged not to do so. + */ + if (!(flags & DUK_TB_FLAG_NOBLAME_FILELINE)) { + if (output_type == DUK__OUTPUT_TYPE_FILENAME) { + duk_pop(thr); + return 1; + } else if (output_type == DUK__OUTPUT_TYPE_LINENUMBER) { + duk_push_int(thr, pc); + return 1; + } + } + + /* Tracedata is trusted but avoid any risk of using a NULL + * for %s format because it has undefined behavior. Symbols + * don't need to be explicitly rejected as they pose no memory + * safety issues. + */ + str_file = (const char *) duk_get_string(thr, -2); + duk_push_sprintf(thr, "at [anon] (%s:%ld) internal", + (const char *) (str_file ? str_file : "null"), (long) pc); + duk_replace(thr, -3); /* [ ... v1 v2 str ] -> [ ... str v2 ] */ + duk_pop(thr); /* -> [ ... str ] */ + } else { + /* unknown, ignore */ + duk_pop_2(thr); + break; + } + } + + if (count_func >= DUK_USE_TRACEBACK_DEPTH) { + /* Possibly truncated; there is no explicit truncation + * marker so this is the best we can do. + */ + + duk_push_hstring_stridx(thr, DUK_STRIDX_BRACKETED_ELLIPSIS); + } + } + + /* [ ... this tracedata sep this str1 ... strN ] */ + + if (output_type != DUK__OUTPUT_TYPE_TRACEBACK) { + return 0; + } else { + /* The 'this' after 'sep' will get ToString() coerced by + * duk_join() automatically. We don't want to do that + * coercion when providing .fileName or .lineNumber (GH-254). + */ + duk_join(thr, duk_get_top(thr) - (idx_td + 2) /*count, not including sep*/); + return 1; + } +} + +/* XXX: Output type could be encoded into native function 'magic' value to + * save space. For setters the stridx could be encoded into 'magic'. + */ + +DUK_INTERNAL duk_ret_t duk_bi_error_prototype_stack_getter(duk_hthread *thr) { + return duk__error_getter_helper(thr, DUK__OUTPUT_TYPE_TRACEBACK); +} + +DUK_INTERNAL duk_ret_t duk_bi_error_prototype_filename_getter(duk_hthread *thr) { + return duk__error_getter_helper(thr, DUK__OUTPUT_TYPE_FILENAME); +} + +DUK_INTERNAL duk_ret_t duk_bi_error_prototype_linenumber_getter(duk_hthread *thr) { + return duk__error_getter_helper(thr, DUK__OUTPUT_TYPE_LINENUMBER); +} + +#else /* DUK_USE_TRACEBACKS */ + +/* + * Traceback handling when tracebacks disabled. + * + * The fileName / lineNumber stubs are now necessary because built-in + * data will include the accessor properties in Error.prototype. If those + * are removed for builds without tracebacks, these can also be removed. + * 'stack' should still be present and produce a ToString() equivalent: + * this is useful for user code which prints a stacktrace and expects to + * see something useful. A normal stacktrace also begins with a ToString() + * of the error so this makes sense. + */ + +DUK_INTERNAL duk_ret_t duk_bi_error_prototype_stack_getter(duk_hthread *thr) { + /* XXX: remove this native function and map 'stack' accessor + * to the toString() implementation directly. + */ + return duk_bi_error_prototype_to_string(thr); +} + +DUK_INTERNAL duk_ret_t duk_bi_error_prototype_filename_getter(duk_hthread *thr) { + DUK_UNREF(thr); + return 0; +} + +DUK_INTERNAL duk_ret_t duk_bi_error_prototype_linenumber_getter(duk_hthread *thr) { + DUK_UNREF(thr); + return 0; +} + +#endif /* DUK_USE_TRACEBACKS */ + +DUK_LOCAL duk_ret_t duk__error_setter_helper(duk_hthread *thr, duk_small_uint_t stridx_key) { + /* Attempt to write 'stack', 'fileName', 'lineNumber' works as if + * user code called Object.defineProperty() to create an overriding + * own property. This allows user code to overwrite .fileName etc + * intuitively as e.g. "err.fileName = 'dummy'" as one might expect. + * See https://github.com/svaarala/duktape/issues/387. + */ + + DUK_ASSERT_TOP(thr, 1); /* fixed arg count: value */ + + duk_push_this(thr); + duk_push_hstring_stridx(thr, stridx_key); + duk_dup_0(thr); + + /* [ ... obj key value ] */ + + DUK_DD(DUK_DDPRINT("error setter: %!T %!T %!T", + duk_get_tval(thr, -3), duk_get_tval(thr, -2), duk_get_tval(thr, -1))); + + duk_def_prop(thr, -3, DUK_DEFPROP_HAVE_VALUE | + DUK_DEFPROP_HAVE_WRITABLE | DUK_DEFPROP_WRITABLE | + DUK_DEFPROP_HAVE_ENUMERABLE | /*not enumerable*/ + DUK_DEFPROP_HAVE_CONFIGURABLE | DUK_DEFPROP_CONFIGURABLE); + return 0; +} + +DUK_INTERNAL duk_ret_t duk_bi_error_prototype_stack_setter(duk_hthread *thr) { + return duk__error_setter_helper(thr, DUK_STRIDX_STACK); +} + +DUK_INTERNAL duk_ret_t duk_bi_error_prototype_filename_setter(duk_hthread *thr) { + return duk__error_setter_helper(thr, DUK_STRIDX_FILE_NAME); +} + +DUK_INTERNAL duk_ret_t duk_bi_error_prototype_linenumber_setter(duk_hthread *thr) { + return duk__error_setter_helper(thr, DUK_STRIDX_LINE_NUMBER); +} + +/* automatic undefs */ +#undef DUK__OUTPUT_TYPE_FILENAME +#undef DUK__OUTPUT_TYPE_LINENUMBER +#undef DUK__OUTPUT_TYPE_TRACEBACK +#line 1 "duk_bi_function.c" +/* + * Function built-ins + */ + +/* #include duk_internal.h -> already included */ + +/* Needed even when Function built-in is disabled. */ +DUK_INTERNAL duk_ret_t duk_bi_function_prototype(duk_hthread *thr) { + /* ignore arguments, return undefined (E5 Section 15.3.4) */ + DUK_UNREF(thr); + return 0; +} + +#if defined(DUK_USE_FUNCTION_BUILTIN) +DUK_INTERNAL duk_ret_t duk_bi_function_constructor(duk_hthread *thr) { + duk_hstring *h_sourcecode; + duk_idx_t nargs; + duk_idx_t i; + duk_small_uint_t comp_flags; + duk_hcompfunc *func; + duk_hobject *outer_lex_env; + duk_hobject *outer_var_env; + + /* normal and constructor calls have identical semantics */ + + nargs = duk_get_top(thr); + for (i = 0; i < nargs; i++) { + duk_to_string(thr, i); /* Rejects Symbols during coercion. */ + } + + if (nargs == 0) { + duk_push_hstring_empty(thr); + duk_push_hstring_empty(thr); + } else if (nargs == 1) { + /* XXX: cover this with the generic >1 case? */ + duk_push_hstring_empty(thr); + } else { + duk_insert(thr, 0); /* [ arg1 ... argN-1 body] -> [body arg1 ... argN-1] */ + duk_push_literal(thr, ","); + duk_insert(thr, 1); + duk_join(thr, nargs - 1); + } + + /* [ body formals ], formals is comma separated list that needs to be parsed */ + + DUK_ASSERT_TOP(thr, 2); + + /* XXX: this placeholder is not always correct, but use for now. + * It will fail in corner cases; see test-dev-func-cons-args.js. + */ + duk_push_literal(thr, "function("); + duk_dup_1(thr); + duk_push_literal(thr, "){"); + duk_dup_0(thr); + duk_push_literal(thr, "\n}"); /* Newline is important to handle trailing // comment. */ + duk_concat(thr, 5); + + /* [ body formals source ] */ + + DUK_ASSERT_TOP(thr, 3); + + /* strictness is not inherited, intentional */ + comp_flags = DUK_COMPILE_FUNCEXPR; + + duk_push_hstring_stridx(thr, DUK_STRIDX_COMPILE); /* XXX: copy from caller? */ /* XXX: ignored now */ + h_sourcecode = duk_require_hstring(thr, -2); /* no symbol check needed; -2 is concat'd code */ + duk_js_compile(thr, + (const duk_uint8_t *) DUK_HSTRING_GET_DATA(h_sourcecode), + (duk_size_t) DUK_HSTRING_GET_BYTELEN(h_sourcecode), + comp_flags); + + /* Force .name to 'anonymous' (ES2015). */ + duk_push_literal(thr, "anonymous"); + duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_NAME, DUK_PROPDESC_FLAGS_C); + + func = (duk_hcompfunc *) duk_known_hobject(thr, -1); + DUK_ASSERT(DUK_HOBJECT_IS_COMPFUNC((duk_hobject *) func)); + DUK_ASSERT(DUK_HOBJECT_HAS_CONSTRUCTABLE((duk_hobject *) func)); + + /* [ body formals source template ] */ + + /* only outer_lex_env matters, as functions always get a new + * variable declaration environment. + */ + + outer_lex_env = thr->builtins[DUK_BIDX_GLOBAL_ENV]; + outer_var_env = thr->builtins[DUK_BIDX_GLOBAL_ENV]; + + duk_js_push_closure(thr, func, outer_var_env, outer_lex_env, 1 /*add_auto_proto*/); + + /* [ body formals source template closure ] */ + + return 1; +} +#endif /* DUK_USE_FUNCTION_BUILTIN */ + +#if defined(DUK_USE_FUNCTION_BUILTIN) +DUK_INTERNAL duk_ret_t duk_bi_function_prototype_to_string(duk_hthread *thr) { + duk_tval *tv; + + /* + * E5 Section 15.3.4.2 places few requirements on the output of + * this function: the result is implementation dependent, must + * follow FunctionDeclaration syntax (in particular, must have a + * name even for anonymous functions or functions with empty name). + * The output does NOT need to compile into anything useful. + * + * E6 Section 19.2.3.5 changes the requirements completely: the + * result must either eval() to a functionally equivalent object + * OR eval() to a SyntaxError. + * + * We opt for the SyntaxError approach for now, with a syntax that + * mimics V8's native function syntax: + * + * 'function cos() { [native code] }' + * + * but extended with [ecmascript code], [bound code], and + * [lightfunc code]. + */ + + duk_push_this(thr); + tv = DUK_GET_TVAL_NEGIDX(thr, -1); + DUK_ASSERT(tv != NULL); + + if (DUK_TVAL_IS_OBJECT(tv)) { + duk_hobject *obj = DUK_TVAL_GET_OBJECT(tv); + const char *func_name; + + /* Function name: missing/undefined is mapped to empty string, + * otherwise coerce to string. No handling for invalid identifier + * characters or e.g. '{' in the function name. This doesn't + * really matter as long as a SyntaxError results. Technically + * if the name contained a suitable prefix followed by '//' it + * might cause the result to parse without error. + */ + duk_get_prop_stridx_short(thr, -1, DUK_STRIDX_NAME); + if (duk_is_undefined(thr, -1)) { + func_name = ""; + } else { + func_name = duk_to_string(thr, -1); + DUK_ASSERT(func_name != NULL); + } + + if (DUK_HOBJECT_IS_COMPFUNC(obj)) { + duk_push_sprintf(thr, "function %s() { [ecmascript code] }", (const char *) func_name); + } else if (DUK_HOBJECT_IS_NATFUNC(obj)) { + duk_push_sprintf(thr, "function %s() { [native code] }", (const char *) func_name); + } else if (DUK_HOBJECT_IS_BOUNDFUNC(obj)) { + duk_push_sprintf(thr, "function %s() { [bound code] }", (const char *) func_name); + } else { + goto type_error; + } + } else if (DUK_TVAL_IS_LIGHTFUNC(tv)) { + duk_push_lightfunc_tostring(thr, tv); + } else { + goto type_error; + } + + return 1; + + type_error: + DUK_DCERROR_TYPE_INVALID_ARGS(thr); +} +#endif + +/* Always present because the native function pointer is needed in call + * handling. + */ +DUK_INTERNAL duk_ret_t duk_bi_function_prototype_call(duk_hthread *thr) { + /* .call() is dealt with in call handling by simulating its + * effects so this function is actually never called. + */ + DUK_UNREF(thr); + return DUK_RET_TYPE_ERROR; +} + +DUK_INTERNAL duk_ret_t duk_bi_function_prototype_apply(duk_hthread *thr) { + /* Like .call(), never actually called. */ + DUK_UNREF(thr); + return DUK_RET_TYPE_ERROR; +} + +DUK_INTERNAL duk_ret_t duk_bi_reflect_apply(duk_hthread *thr) { + /* Like .call(), never actually called. */ + DUK_UNREF(thr); + return DUK_RET_TYPE_ERROR; +} + +DUK_INTERNAL duk_ret_t duk_bi_reflect_construct(duk_hthread *thr) { + /* Like .call(), never actually called. */ + DUK_UNREF(thr); + return DUK_RET_TYPE_ERROR; +} + +#if defined(DUK_USE_FUNCTION_BUILTIN) +/* Create a bound function which points to a target function which may + * be bound or non-bound. If the target is bound, the argument lists + * and 'this' binding of the functions are merged and the resulting + * function points directly to the non-bound target. + */ +DUK_INTERNAL duk_ret_t duk_bi_function_prototype_bind(duk_hthread *thr) { + duk_hboundfunc *h_bound; + duk_idx_t nargs; /* bound args, not counting 'this' binding */ + duk_idx_t bound_nargs; + duk_int_t bound_len; + duk_tval *tv_prevbound; + duk_idx_t n_prevbound; + duk_tval *tv_res; + duk_tval *tv_tmp; + + /* XXX: C API call, e.g. duk_push_bound_function(thr, target_idx, nargs); */ + + /* Vararg function, careful arg handling, e.g. thisArg may not + * be present. + */ + nargs = duk_get_top(thr) - 1; /* actual args, not counting 'this' binding */ + if (nargs < 0) { + nargs++; + duk_push_undefined(thr); + } + DUK_ASSERT(nargs >= 0); + + /* Limit 'nargs' for bound functions to guarantee arithmetic + * below will never wrap. + */ + if (nargs > (duk_idx_t) DUK_HBOUNDFUNC_MAX_ARGS) { + DUK_DCERROR_RANGE_INVALID_COUNT(thr); + } + + duk_push_this(thr); + duk_require_callable(thr, -1); + + /* [ thisArg arg1 ... argN func ] (thisArg+args == nargs+1 total) */ + DUK_ASSERT_TOP(thr, nargs + 2); + + /* Create bound function object. */ + h_bound = duk_push_hboundfunc(thr); + DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(&h_bound->target)); + DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(&h_bound->this_binding)); + DUK_ASSERT(h_bound->args == NULL); + DUK_ASSERT(h_bound->nargs == 0); + DUK_ASSERT(DUK_HOBJECT_GET_PROTOTYPE(thr->heap, (duk_hobject *) h_bound) == NULL); + + /* [ thisArg arg1 ... argN func boundFunc ] */ + + /* If the target is a bound function, argument lists must be + * merged. The 'this' binding closest to the target function + * wins because in call handling the 'this' gets replaced over + * and over again until we call the non-bound function. + */ + tv_prevbound = NULL; + n_prevbound = 0; + tv_tmp = DUK_GET_TVAL_POSIDX(thr, 0); + DUK_TVAL_SET_TVAL(&h_bound->this_binding, tv_tmp); + tv_tmp = DUK_GET_TVAL_NEGIDX(thr, -2); + DUK_TVAL_SET_TVAL(&h_bound->target, tv_tmp); + + if (DUK_TVAL_IS_OBJECT(tv_tmp)) { + duk_hobject *h_target; + duk_hobject *bound_proto; + + h_target = DUK_TVAL_GET_OBJECT(tv_tmp); + DUK_ASSERT(DUK_HOBJECT_IS_CALLABLE(h_target)); + + /* Internal prototype must be copied from the target. + * For lightfuncs Function.prototype is used and is already + * in place. + */ + bound_proto = DUK_HOBJECT_GET_PROTOTYPE(thr->heap, h_target); + DUK_HOBJECT_SET_PROTOTYPE_INIT_INCREF(thr, (duk_hobject *) h_bound, bound_proto); + + /* The 'strict' flag is copied to get the special [[Get]] of E5.1 + * Section 15.3.5.4 to apply when a 'caller' value is a strict bound + * function. Not sure if this is correct, because the specification + * is a bit ambiguous on this point but it would make sense. + */ + /* Strictness is inherited from target. */ + if (DUK_HOBJECT_HAS_STRICT(h_target)) { + DUK_HOBJECT_SET_STRICT((duk_hobject *) h_bound); + } + + if (DUK_HOBJECT_HAS_BOUNDFUNC(h_target)) { + duk_hboundfunc *h_boundtarget; + + h_boundtarget = (duk_hboundfunc *) (void *) h_target; + + /* The final function should always be non-bound, unless + * there's a bug in the internals. Assert for it. + */ + DUK_ASSERT(DUK_TVAL_IS_LIGHTFUNC(&h_boundtarget->target) || + (DUK_TVAL_IS_OBJECT(&h_boundtarget->target) && + DUK_HOBJECT_IS_CALLABLE(DUK_TVAL_GET_OBJECT(&h_boundtarget->target)) && + !DUK_HOBJECT_IS_BOUNDFUNC(DUK_TVAL_GET_OBJECT(&h_boundtarget->target)))); + + DUK_TVAL_SET_TVAL(&h_bound->target, &h_boundtarget->target); + DUK_TVAL_SET_TVAL(&h_bound->this_binding, &h_boundtarget->this_binding); + + tv_prevbound = h_boundtarget->args; + n_prevbound = h_boundtarget->nargs; + } + } else { + /* Lightfuncs are always strict. */ + duk_hobject *bound_proto; + + DUK_ASSERT(DUK_TVAL_IS_LIGHTFUNC(tv_tmp)); + DUK_HOBJECT_SET_STRICT((duk_hobject *) h_bound); + bound_proto = thr->builtins[DUK_BIDX_FUNCTION_PROTOTYPE]; + DUK_HOBJECT_SET_PROTOTYPE_INIT_INCREF(thr, (duk_hobject *) h_bound, bound_proto); + } + + DUK_TVAL_INCREF(thr, &h_bound->target); /* old values undefined, no decref needed */ + DUK_TVAL_INCREF(thr, &h_bound->this_binding); + + bound_nargs = n_prevbound + nargs; + if (bound_nargs > (duk_idx_t) DUK_HBOUNDFUNC_MAX_ARGS) { + DUK_DCERROR_RANGE_INVALID_COUNT(thr); + } + tv_res = (duk_tval *) DUK_ALLOC_CHECKED(thr, ((duk_size_t) bound_nargs) * sizeof(duk_tval)); + DUK_ASSERT(tv_res != NULL || bound_nargs == 0); + DUK_ASSERT(h_bound->args == NULL); + DUK_ASSERT(h_bound->nargs == 0); + h_bound->args = tv_res; + h_bound->nargs = bound_nargs; + + DUK_ASSERT(n_prevbound >= 0); + duk_copy_tvals_incref(thr, tv_res, tv_prevbound, (duk_size_t) n_prevbound); + DUK_ASSERT(nargs >= 0); + duk_copy_tvals_incref(thr, tv_res + n_prevbound, DUK_GET_TVAL_POSIDX(thr, 1), (duk_size_t) nargs); + + /* [ thisArg arg1 ... argN func boundFunc ] */ + + /* Bound function 'length' property is interesting. + * For lightfuncs, simply read the virtual property. + */ + duk_get_prop_stridx_short(thr, -2, DUK_STRIDX_LENGTH); + bound_len = duk_get_int(thr, -1); /* ES2015: no coercion */ + if (bound_len < nargs) { + bound_len = 0; + } else { + bound_len -= nargs; + } + if (sizeof(duk_int_t) > 4 && bound_len > (duk_int_t) DUK_UINT32_MAX) { + bound_len = (duk_int_t) DUK_UINT32_MAX; + } + duk_pop(thr); + DUK_ASSERT(bound_len >= 0); + tv_tmp = thr->valstack_top++; + DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(tv_tmp)); + DUK_ASSERT(!DUK_TVAL_NEEDS_REFCOUNT_UPDATE(tv_tmp)); + DUK_TVAL_SET_U32(tv_tmp, (duk_uint32_t) bound_len); /* in-place update, fastint */ + duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_LENGTH, DUK_PROPDESC_FLAGS_C); /* attrs in E6 Section 9.2.4 */ + + /* XXX: could these be virtual? */ + /* Caller and arguments must use the same thrower, [[ThrowTypeError]]. */ + duk_xdef_prop_stridx_thrower(thr, -1, DUK_STRIDX_CALLER); + duk_xdef_prop_stridx_thrower(thr, -1, DUK_STRIDX_LC_ARGUMENTS); + + /* Function name and fileName (non-standard). */ + duk_push_literal(thr, "bound "); /* ES2015 19.2.3.2. */ + duk_get_prop_stridx(thr, -3, DUK_STRIDX_NAME); + if (!duk_is_string_notsymbol(thr, -1)) { + /* ES2015 has requirement to check that .name of target is a string + * (also must check for Symbol); if not, targetName should be the + * empty string. ES2015 19.2.3.2. + */ + duk_pop(thr); + duk_push_hstring_empty(thr); + } + duk_concat(thr, 2); + duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_NAME, DUK_PROPDESC_FLAGS_C); +#if defined(DUK_USE_FUNC_FILENAME_PROPERTY) + duk_get_prop_stridx_short(thr, -2, DUK_STRIDX_FILE_NAME); + duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_FILE_NAME, DUK_PROPDESC_FLAGS_C); +#endif + + DUK_DDD(DUK_DDDPRINT("created bound function: %!iT", (duk_tval *) duk_get_tval(thr, -1))); + + return 1; +} +#endif /* DUK_USE_FUNCTION_BUILTIN */ + +/* %NativeFunctionPrototype% .length getter. */ +DUK_INTERNAL duk_ret_t duk_bi_native_function_length(duk_hthread *thr) { + duk_tval *tv; + duk_hnatfunc *h; + duk_int16_t func_nargs; + + tv = duk_get_borrowed_this_tval(thr); + DUK_ASSERT(tv != NULL); + + if (DUK_TVAL_IS_OBJECT(tv)) { + h = (duk_hnatfunc *) DUK_TVAL_GET_OBJECT(tv); + DUK_ASSERT(h != NULL); + if (!DUK_HOBJECT_IS_NATFUNC((duk_hobject *) h)) { + goto fail_type; + } + func_nargs = h->nargs; + duk_push_int(thr, func_nargs == DUK_HNATFUNC_NARGS_VARARGS ? 0 : func_nargs); + } else if (DUK_TVAL_IS_LIGHTFUNC(tv)) { + duk_small_uint_t lf_flags; + duk_small_uint_t lf_len; + + lf_flags = DUK_TVAL_GET_LIGHTFUNC_FLAGS(tv); + lf_len = DUK_LFUNC_FLAGS_GET_LENGTH(lf_flags); + duk_push_uint(thr, lf_len); + } else { + goto fail_type; + } + return 1; + + fail_type: + DUK_DCERROR_TYPE_INVALID_ARGS(thr); +} + +/* %NativeFunctionPrototype% .name getter. */ +DUK_INTERNAL duk_ret_t duk_bi_native_function_name(duk_hthread *thr) { + duk_tval *tv; + duk_hnatfunc *h; + + tv = duk_get_borrowed_this_tval(thr); + DUK_ASSERT(tv != NULL); + + if (DUK_TVAL_IS_OBJECT(tv)) { + h = (duk_hnatfunc *) DUK_TVAL_GET_OBJECT(tv); + DUK_ASSERT(h != NULL); + if (!DUK_HOBJECT_IS_NATFUNC((duk_hobject *) h)) { + goto fail_type; + } +#if 0 + duk_push_hnatfunc_name(thr, h); +#endif + duk_push_hstring_empty(thr); + } else if (DUK_TVAL_IS_LIGHTFUNC(tv)) { + duk_push_lightfunc_name(thr, tv); + } else { + goto fail_type; + } + return 1; + + fail_type: + DUK_DCERROR_TYPE_INVALID_ARGS(thr); +} + +#if defined(DUK_USE_SYMBOL_BUILTIN) +DUK_INTERNAL duk_ret_t duk_bi_function_prototype_hasinstance(duk_hthread *thr) { + /* This binding: RHS, stack index 0: LHS. */ + duk_bool_t ret; + + ret = duk_js_instanceof_ordinary(thr, DUK_GET_TVAL_POSIDX(thr, 0), DUK_GET_THIS_TVAL_PTR(thr)); + duk_push_boolean(thr, ret); + return 1; +} +#endif /* DUK_USE_SYMBOL_BUILTIN */ +#line 1 "duk_bi_global.c" +/* + * Global object built-ins + */ + +/* #include duk_internal.h -> already included */ + +/* + * Encoding/decoding helpers + */ + +/* XXX: Could add fast path (for each transform callback) with direct byte + * lookups (no shifting) and no explicit check for x < 0x80 before table + * lookup. + */ + +/* Macros for creating and checking bitmasks for character encoding. + * Bit number is a bit counterintuitive, but minimizes code size. + */ +#define DUK__MKBITS(a,b,c,d,e,f,g,h) ((duk_uint8_t) ( \ + ((a) << 0) | ((b) << 1) | ((c) << 2) | ((d) << 3) | \ + ((e) << 4) | ((f) << 5) | ((g) << 6) | ((h) << 7) \ + )) +#define DUK__CHECK_BITMASK(table,cp) ((table)[(cp) >> 3] & (1 << ((cp) & 0x07))) + +/* E5.1 Section 15.1.3.3: uriReserved + uriUnescaped + '#' */ +DUK_LOCAL const duk_uint8_t duk__encode_uriunescaped_table[16] = { + DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), /* 0x00-0x0f */ + DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), /* 0x10-0x1f */ + DUK__MKBITS(0, 1, 0, 1, 1, 0, 1, 1), DUK__MKBITS(1, 1, 1, 1, 1, 1, 1, 1), /* 0x20-0x2f */ + DUK__MKBITS(1, 1, 1, 1, 1, 1, 1, 1), DUK__MKBITS(1, 1, 1, 1, 0, 1, 0, 1), /* 0x30-0x3f */ + DUK__MKBITS(1, 1, 1, 1, 1, 1, 1, 1), DUK__MKBITS(1, 1, 1, 1, 1, 1, 1, 1), /* 0x40-0x4f */ + DUK__MKBITS(1, 1, 1, 1, 1, 1, 1, 1), DUK__MKBITS(1, 1, 1, 0, 0, 0, 0, 1), /* 0x50-0x5f */ + DUK__MKBITS(0, 1, 1, 1, 1, 1, 1, 1), DUK__MKBITS(1, 1, 1, 1, 1, 1, 1, 1), /* 0x60-0x6f */ + DUK__MKBITS(1, 1, 1, 1, 1, 1, 1, 1), DUK__MKBITS(1, 1, 1, 0, 0, 0, 1, 0), /* 0x70-0x7f */ +}; + +/* E5.1 Section 15.1.3.4: uriUnescaped */ +DUK_LOCAL const duk_uint8_t duk__encode_uricomponent_unescaped_table[16] = { + DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), /* 0x00-0x0f */ + DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), /* 0x10-0x1f */ + DUK__MKBITS(0, 1, 0, 0, 0, 0, 0, 1), DUK__MKBITS(1, 1, 1, 0, 0, 1, 1, 0), /* 0x20-0x2f */ + DUK__MKBITS(1, 1, 1, 1, 1, 1, 1, 1), DUK__MKBITS(1, 1, 0, 0, 0, 0, 0, 0), /* 0x30-0x3f */ + DUK__MKBITS(0, 1, 1, 1, 1, 1, 1, 1), DUK__MKBITS(1, 1, 1, 1, 1, 1, 1, 1), /* 0x40-0x4f */ + DUK__MKBITS(1, 1, 1, 1, 1, 1, 1, 1), DUK__MKBITS(1, 1, 1, 0, 0, 0, 0, 1), /* 0x50-0x5f */ + DUK__MKBITS(0, 1, 1, 1, 1, 1, 1, 1), DUK__MKBITS(1, 1, 1, 1, 1, 1, 1, 1), /* 0x60-0x6f */ + DUK__MKBITS(1, 1, 1, 1, 1, 1, 1, 1), DUK__MKBITS(1, 1, 1, 0, 0, 0, 1, 0), /* 0x70-0x7f */ +}; + +/* E5.1 Section 15.1.3.1: uriReserved + '#' */ +DUK_LOCAL const duk_uint8_t duk__decode_uri_reserved_table[16] = { + DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), /* 0x00-0x0f */ + DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), /* 0x10-0x1f */ + DUK__MKBITS(0, 0, 0, 1, 1, 0, 1, 0), DUK__MKBITS(0, 0, 0, 1, 1, 0, 0, 1), /* 0x20-0x2f */ + DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), DUK__MKBITS(0, 0, 1, 1, 0, 1, 0, 1), /* 0x30-0x3f */ + DUK__MKBITS(1, 0, 0, 0, 0, 0, 0, 0), DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), /* 0x40-0x4f */ + DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), /* 0x50-0x5f */ + DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), /* 0x60-0x6f */ + DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), /* 0x70-0x7f */ +}; + +/* E5.1 Section 15.1.3.2: empty */ +DUK_LOCAL const duk_uint8_t duk__decode_uri_component_reserved_table[16] = { + DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), /* 0x00-0x0f */ + DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), /* 0x10-0x1f */ + DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), /* 0x20-0x2f */ + DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), /* 0x30-0x3f */ + DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), /* 0x40-0x4f */ + DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), /* 0x50-0x5f */ + DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), /* 0x60-0x6f */ + DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), /* 0x70-0x7f */ +}; + +#if defined(DUK_USE_SECTION_B) +/* E5.1 Section B.2.2, step 7. */ +DUK_LOCAL const duk_uint8_t duk__escape_unescaped_table[16] = { + DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), /* 0x00-0x0f */ + DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), /* 0x10-0x1f */ + DUK__MKBITS(0, 0, 0, 0, 0, 0, 0, 0), DUK__MKBITS(0, 0, 1, 1, 0, 1, 1, 1), /* 0x20-0x2f */ + DUK__MKBITS(1, 1, 1, 1, 1, 1, 1, 1), DUK__MKBITS(1, 1, 0, 0, 0, 0, 0, 0), /* 0x30-0x3f */ + DUK__MKBITS(1, 1, 1, 1, 1, 1, 1, 1), DUK__MKBITS(1, 1, 1, 1, 1, 1, 1, 1), /* 0x40-0x4f */ + DUK__MKBITS(1, 1, 1, 1, 1, 1, 1, 1), DUK__MKBITS(1, 1, 1, 0, 0, 0, 0, 1), /* 0x50-0x5f */ + DUK__MKBITS(0, 1, 1, 1, 1, 1, 1, 1), DUK__MKBITS(1, 1, 1, 1, 1, 1, 1, 1), /* 0x60-0x6f */ + DUK__MKBITS(1, 1, 1, 1, 1, 1, 1, 1), DUK__MKBITS(1, 1, 1, 0, 0, 0, 0, 0) /* 0x70-0x7f */ +}; +#endif /* DUK_USE_SECTION_B */ + +typedef struct { + duk_hthread *thr; + duk_hstring *h_str; + duk_bufwriter_ctx bw; + const duk_uint8_t *p; + const duk_uint8_t *p_start; + const duk_uint8_t *p_end; +} duk__transform_context; + +typedef void (*duk__transform_callback)(duk__transform_context *tfm_ctx, const void *udata, duk_codepoint_t cp); + +/* XXX: refactor and share with other code */ +DUK_LOCAL duk_small_int_t duk__decode_hex_escape(const duk_uint8_t *p, duk_small_int_t n) { + duk_small_int_t ch; + duk_small_int_t t = 0; + + while (n > 0) { + t = t * 16; + ch = (duk_small_int_t) duk_hex_dectab[*p++]; + if (DUK_LIKELY(ch >= 0)) { + t += ch; + } else { + return -1; + } + n--; + } + return t; +} + +DUK_LOCAL int duk__transform_helper(duk_hthread *thr, duk__transform_callback callback, const void *udata) { + duk__transform_context tfm_ctx_alloc; + duk__transform_context *tfm_ctx = &tfm_ctx_alloc; + duk_codepoint_t cp; + + tfm_ctx->thr = thr; + + tfm_ctx->h_str = duk_to_hstring(thr, 0); + DUK_ASSERT(tfm_ctx->h_str != NULL); + + DUK_BW_INIT_PUSHBUF(thr, &tfm_ctx->bw, DUK_HSTRING_GET_BYTELEN(tfm_ctx->h_str)); /* initial size guess */ + + tfm_ctx->p_start = DUK_HSTRING_GET_DATA(tfm_ctx->h_str); + tfm_ctx->p_end = tfm_ctx->p_start + DUK_HSTRING_GET_BYTELEN(tfm_ctx->h_str); + tfm_ctx->p = tfm_ctx->p_start; + + while (tfm_ctx->p < tfm_ctx->p_end) { + cp = (duk_codepoint_t) duk_unicode_decode_xutf8_checked(thr, &tfm_ctx->p, tfm_ctx->p_start, tfm_ctx->p_end); + callback(tfm_ctx, udata, cp); + } + + DUK_BW_COMPACT(thr, &tfm_ctx->bw); + + (void) duk_buffer_to_string(thr, -1); /* Safe if transform is safe. */ + return 1; +} + +DUK_LOCAL void duk__transform_callback_encode_uri(duk__transform_context *tfm_ctx, const void *udata, duk_codepoint_t cp) { + duk_uint8_t xutf8_buf[DUK_UNICODE_MAX_XUTF8_LENGTH]; + duk_small_int_t len; + duk_codepoint_t cp1, cp2; + duk_small_int_t i, t; + const duk_uint8_t *unescaped_table = (const duk_uint8_t *) udata; + + /* UTF-8 encoded bytes escaped as %xx%xx%xx... -> 3 * nbytes. + * Codepoint range is restricted so this is a slightly too large + * but doesn't matter. + */ + DUK_BW_ENSURE(tfm_ctx->thr, &tfm_ctx->bw, 3 * DUK_UNICODE_MAX_XUTF8_LENGTH); + + if (cp < 0) { + goto uri_error; + } else if ((cp < 0x80L) && DUK__CHECK_BITMASK(unescaped_table, cp)) { + DUK_BW_WRITE_RAW_U8(tfm_ctx->thr, &tfm_ctx->bw, (duk_uint8_t) cp); + return; + } else if (cp >= 0xdc00L && cp <= 0xdfffL) { + goto uri_error; + } else if (cp >= 0xd800L && cp <= 0xdbffL) { + /* Needs lookahead */ + if (duk_unicode_decode_xutf8(tfm_ctx->thr, &tfm_ctx->p, tfm_ctx->p_start, tfm_ctx->p_end, (duk_ucodepoint_t *) &cp2) == 0) { + goto uri_error; + } + if (!(cp2 >= 0xdc00L && cp2 <= 0xdfffL)) { + goto uri_error; + } + cp1 = cp; + cp = (duk_codepoint_t) (((cp1 - 0xd800L) << 10) + (cp2 - 0xdc00L) + 0x10000L); + } else if (cp > 0x10ffffL) { + /* Although we can allow non-BMP characters (they'll decode + * back into surrogate pairs), we don't allow extended UTF-8 + * characters; they would encode to URIs which won't decode + * back because of strict UTF-8 checks in URI decoding. + * (However, we could just as well allow them here.) + */ + goto uri_error; + } else { + /* Non-BMP characters within valid UTF-8 range: encode as is. + * They'll decode back into surrogate pairs if the escaped + * output is decoded. + */ + ; + } + + len = duk_unicode_encode_xutf8((duk_ucodepoint_t) cp, xutf8_buf); + for (i = 0; i < len; i++) { + t = (duk_small_int_t) xutf8_buf[i]; + DUK_BW_WRITE_RAW_U8_3(tfm_ctx->thr, + &tfm_ctx->bw, + DUK_ASC_PERCENT, + (duk_uint8_t) duk_uc_nybbles[t >> 4], + (duk_uint8_t) duk_uc_nybbles[t & 0x0f]); + } + + return; + + uri_error: + DUK_ERROR_URI(tfm_ctx->thr, DUK_STR_INVALID_INPUT); + DUK_WO_NORETURN(return;); +} + +DUK_LOCAL void duk__transform_callback_decode_uri(duk__transform_context *tfm_ctx, const void *udata, duk_codepoint_t cp) { + const duk_uint8_t *reserved_table = (const duk_uint8_t *) udata; + duk_small_uint_t utf8_blen; + duk_codepoint_t min_cp; + duk_small_int_t t; /* must be signed */ + duk_small_uint_t i; + + /* Maximum write size: XUTF8 path writes max DUK_UNICODE_MAX_XUTF8_LENGTH, + * percent escape path writes max two times CESU-8 encoded BMP length. + */ + DUK_BW_ENSURE(tfm_ctx->thr, + &tfm_ctx->bw, + (DUK_UNICODE_MAX_XUTF8_LENGTH >= 2 * DUK_UNICODE_MAX_CESU8_BMP_LENGTH ? + DUK_UNICODE_MAX_XUTF8_LENGTH : DUK_UNICODE_MAX_CESU8_BMP_LENGTH)); + + if (cp == (duk_codepoint_t) '%') { + const duk_uint8_t *p = tfm_ctx->p; + duk_size_t left = (duk_size_t) (tfm_ctx->p_end - p); /* bytes left */ + + DUK_DDD(DUK_DDDPRINT("percent encoding, left=%ld", (long) left)); + + if (left < 2) { + goto uri_error; + } + + t = duk__decode_hex_escape(p, 2); + DUK_DDD(DUK_DDDPRINT("first byte: %ld", (long) t)); + if (t < 0) { + goto uri_error; + } + + if (t < 0x80) { + if (DUK__CHECK_BITMASK(reserved_table, t)) { + /* decode '%xx' to '%xx' if decoded char in reserved set */ + DUK_ASSERT(tfm_ctx->p - 1 >= tfm_ctx->p_start); + DUK_BW_WRITE_RAW_U8_3(tfm_ctx->thr, + &tfm_ctx->bw, + DUK_ASC_PERCENT, + p[0], + p[1]); + } else { + DUK_BW_WRITE_RAW_U8(tfm_ctx->thr, &tfm_ctx->bw, (duk_uint8_t) t); + } + tfm_ctx->p += 2; + return; + } + + /* Decode UTF-8 codepoint from a sequence of hex escapes. The + * first byte of the sequence has been decoded to 't'. + * + * Note that UTF-8 validation must be strict according to the + * specification: E5.1 Section 15.1.3, decode algorithm step + * 4.d.vii.8. URIError from non-shortest encodings is also + * specifically noted in the spec. + */ + + DUK_ASSERT(t >= 0x80); + if (t < 0xc0) { + /* continuation byte */ + goto uri_error; + } else if (t < 0xe0) { + /* 110x xxxx; 2 bytes */ + utf8_blen = 2; + min_cp = 0x80L; + cp = t & 0x1f; + } else if (t < 0xf0) { + /* 1110 xxxx; 3 bytes */ + utf8_blen = 3; + min_cp = 0x800L; + cp = t & 0x0f; + } else if (t < 0xf8) { + /* 1111 0xxx; 4 bytes */ + utf8_blen = 4; + min_cp = 0x10000L; + cp = t & 0x07; + } else { + /* extended utf-8 not allowed for URIs */ + goto uri_error; + } + + if (left < utf8_blen * 3 - 1) { + /* '%xx%xx...%xx', p points to char after first '%' */ + goto uri_error; + } + + p += 3; + for (i = 1; i < utf8_blen; i++) { + /* p points to digit part ('%xy', p points to 'x') */ + t = duk__decode_hex_escape(p, 2); + DUK_DDD(DUK_DDDPRINT("i=%ld utf8_blen=%ld cp=%ld t=0x%02lx", + (long) i, (long) utf8_blen, (long) cp, (unsigned long) t)); + if (t < 0) { + goto uri_error; + } + if ((t & 0xc0) != 0x80) { + goto uri_error; + } + cp = (cp << 6) + (t & 0x3f); + p += 3; + } + p--; /* p overshoots */ + tfm_ctx->p = p; + + DUK_DDD(DUK_DDDPRINT("final cp=%ld, min_cp=%ld", (long) cp, (long) min_cp)); + + if (cp < min_cp || cp > 0x10ffffL || (cp >= 0xd800L && cp <= 0xdfffL)) { + goto uri_error; + } + + /* The E5.1 algorithm checks whether or not a decoded codepoint + * is below 0x80 and perhaps may be in the "reserved" set. + * This seems pointless because the single byte UTF-8 case is + * handled separately, and non-shortest encodings are rejected. + * So, 'cp' cannot be below 0x80 here, and thus cannot be in + * the reserved set. + */ + + /* utf-8 validation ensures these */ + DUK_ASSERT(cp >= 0x80L && cp <= 0x10ffffL); + + if (cp >= 0x10000L) { + cp -= 0x10000L; + DUK_ASSERT(cp < 0x100000L); + + DUK_BW_WRITE_RAW_XUTF8(tfm_ctx->thr, &tfm_ctx->bw, ((cp >> 10) + 0xd800L)); + DUK_BW_WRITE_RAW_XUTF8(tfm_ctx->thr, &tfm_ctx->bw, ((cp & 0x03ffL) + 0xdc00L)); + } else { + DUK_BW_WRITE_RAW_XUTF8(tfm_ctx->thr, &tfm_ctx->bw, cp); + } + } else { + DUK_BW_WRITE_RAW_XUTF8(tfm_ctx->thr, &tfm_ctx->bw, cp); + } + return; + + uri_error: + DUK_ERROR_URI(tfm_ctx->thr, DUK_STR_INVALID_INPUT); + DUK_WO_NORETURN(return;); +} + +#if defined(DUK_USE_SECTION_B) +DUK_LOCAL void duk__transform_callback_escape(duk__transform_context *tfm_ctx, const void *udata, duk_codepoint_t cp) { + DUK_UNREF(udata); + + DUK_BW_ENSURE(tfm_ctx->thr, &tfm_ctx->bw, 6); + + if (cp < 0) { + goto esc_error; + } else if ((cp < 0x80L) && DUK__CHECK_BITMASK(duk__escape_unescaped_table, cp)) { + DUK_BW_WRITE_RAW_U8(tfm_ctx->thr, &tfm_ctx->bw, (duk_uint8_t) cp); + } else if (cp < 0x100L) { + DUK_BW_WRITE_RAW_U8_3(tfm_ctx->thr, + &tfm_ctx->bw, + (duk_uint8_t) DUK_ASC_PERCENT, + (duk_uint8_t) duk_uc_nybbles[cp >> 4], + (duk_uint8_t) duk_uc_nybbles[cp & 0x0f]); + } else if (cp < 0x10000L) { + DUK_BW_WRITE_RAW_U8_6(tfm_ctx->thr, + &tfm_ctx->bw, + (duk_uint8_t) DUK_ASC_PERCENT, + (duk_uint8_t) DUK_ASC_LC_U, + (duk_uint8_t) duk_uc_nybbles[cp >> 12], + (duk_uint8_t) duk_uc_nybbles[(cp >> 8) & 0x0f], + (duk_uint8_t) duk_uc_nybbles[(cp >> 4) & 0x0f], + (duk_uint8_t) duk_uc_nybbles[cp & 0x0f]); + } else { + /* Characters outside BMP cannot be escape()'d. We could + * encode them as surrogate pairs (for codepoints inside + * valid UTF-8 range, but not extended UTF-8). Because + * escape() and unescape() are legacy functions, we don't. + */ + goto esc_error; + } + + return; + + esc_error: + DUK_ERROR_TYPE(tfm_ctx->thr, DUK_STR_INVALID_INPUT); + DUK_WO_NORETURN(return;); +} + +DUK_LOCAL void duk__transform_callback_unescape(duk__transform_context *tfm_ctx, const void *udata, duk_codepoint_t cp) { + duk_small_int_t t; + + DUK_UNREF(udata); + + if (cp == (duk_codepoint_t) '%') { + const duk_uint8_t *p = tfm_ctx->p; + duk_size_t left = (duk_size_t) (tfm_ctx->p_end - p); /* bytes left */ + + if (left >= 5 && p[0] == 'u' && + ((t = duk__decode_hex_escape(p + 1, 4)) >= 0)) { + cp = (duk_codepoint_t) t; + tfm_ctx->p += 5; + } else if (left >= 2 && + ((t = duk__decode_hex_escape(p, 2)) >= 0)) { + cp = (duk_codepoint_t) t; + tfm_ctx->p += 2; + } + } + + DUK_BW_WRITE_ENSURE_XUTF8(tfm_ctx->thr, &tfm_ctx->bw, cp); +} +#endif /* DUK_USE_SECTION_B */ + +/* + * Eval + * + * Eval needs to handle both a "direct eval" and an "indirect eval". + * Direct eval handling needs access to the caller's activation so that its + * lexical environment can be accessed. A direct eval is only possible from + * ECMAScript code; an indirect eval call is possible also from C code. + * When an indirect eval call is made from C code, there may not be a + * calling activation at all which needs careful handling. + */ + +DUK_INTERNAL duk_ret_t duk_bi_global_object_eval(duk_hthread *thr) { + duk_hstring *h; + duk_activation *act_caller; + duk_activation *act_eval; + duk_hcompfunc *func; + duk_hobject *outer_lex_env; + duk_hobject *outer_var_env; + duk_bool_t this_to_global = 1; + duk_small_uint_t comp_flags; + duk_int_t level = -2; + duk_small_uint_t call_flags; + + DUK_ASSERT(duk_get_top(thr) == 1 || duk_get_top(thr) == 2); /* 2 when called by debugger */ + DUK_ASSERT(thr->callstack_top >= 1); /* at least this function exists */ + DUK_ASSERT(thr->callstack_curr != NULL); + DUK_ASSERT((thr->callstack_curr->flags & DUK_ACT_FLAG_DIRECT_EVAL) == 0 || /* indirect eval */ + (thr->callstack_top >= 2)); /* if direct eval, calling activation must exist */ + + /* + * callstack_top - 1 --> this function + * callstack_top - 2 --> caller (may not exist) + * + * If called directly from C, callstack_top might be 1. If calling + * activation doesn't exist, call must be indirect. + */ + + h = duk_get_hstring_notsymbol(thr, 0); + if (!h) { + /* Symbol must be returned as is, like any non-string values. */ + return 1; /* return arg as-is */ + } + +#if defined(DUK_USE_DEBUGGER_SUPPORT) + /* NOTE: level is used only by the debugger and should never be present + * for an ECMAScript eval(). + */ + DUK_ASSERT(level == -2); /* by default, use caller's environment */ + if (duk_get_top(thr) >= 2 && duk_is_number(thr, 1)) { + level = duk_get_int(thr, 1); + } + DUK_ASSERT(level <= -2); /* This is guaranteed by debugger code. */ +#endif + + /* [ source ] */ + + comp_flags = DUK_COMPILE_EVAL; + act_eval = thr->callstack_curr; /* this function */ + DUK_ASSERT(act_eval != NULL); + act_caller = duk_hthread_get_activation_for_level(thr, level); + if (act_caller != NULL) { + /* Have a calling activation, check for direct eval (otherwise + * assume indirect eval. + */ + if ((act_caller->flags & DUK_ACT_FLAG_STRICT) && + (act_eval->flags & DUK_ACT_FLAG_DIRECT_EVAL)) { + /* Only direct eval inherits strictness from calling code + * (E5.1 Section 10.1.1). + */ + comp_flags |= DUK_COMPILE_STRICT; + } + } else { + DUK_ASSERT((act_eval->flags & DUK_ACT_FLAG_DIRECT_EVAL) == 0); + } + + duk_push_hstring_stridx(thr, DUK_STRIDX_INPUT); /* XXX: copy from caller? */ + duk_js_compile(thr, + (const duk_uint8_t *) DUK_HSTRING_GET_DATA(h), + (duk_size_t) DUK_HSTRING_GET_BYTELEN(h), + comp_flags); + func = (duk_hcompfunc *) duk_known_hobject(thr, -1); + DUK_ASSERT(DUK_HOBJECT_IS_COMPFUNC((duk_hobject *) func)); + + /* [ source template ] */ + + /* E5 Section 10.4.2 */ + + if (act_eval->flags & DUK_ACT_FLAG_DIRECT_EVAL) { + DUK_ASSERT(thr->callstack_top >= 2); + DUK_ASSERT(act_caller != NULL); + if (act_caller->lex_env == NULL) { + DUK_ASSERT(act_caller->var_env == NULL); + DUK_DDD(DUK_DDDPRINT("delayed environment initialization")); + + /* this may have side effects, so re-lookup act */ + duk_js_init_activation_environment_records_delayed(thr, act_caller); + } + DUK_ASSERT(act_caller->lex_env != NULL); + DUK_ASSERT(act_caller->var_env != NULL); + + this_to_global = 0; + + if (DUK_HOBJECT_HAS_STRICT((duk_hobject *) func)) { + duk_hdecenv *new_env; + duk_hobject *act_lex_env; + + DUK_DDD(DUK_DDDPRINT("direct eval call to a strict function -> " + "var_env and lex_env to a fresh env, " + "this_binding to caller's this_binding")); + + act_lex_env = act_caller->lex_env; + + new_env = duk_hdecenv_alloc(thr, + DUK_HOBJECT_FLAG_EXTENSIBLE | + DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_DECENV)); + DUK_ASSERT(new_env != NULL); + duk_push_hobject(thr, (duk_hobject *) new_env); + + DUK_ASSERT(DUK_HOBJECT_GET_PROTOTYPE(thr->heap, (duk_hobject *) new_env) == NULL); + DUK_HOBJECT_SET_PROTOTYPE(thr->heap, (duk_hobject *) new_env, act_lex_env); + DUK_HOBJECT_INCREF_ALLOWNULL(thr, act_lex_env); + DUK_DDD(DUK_DDDPRINT("new_env allocated: %!iO", (duk_heaphdr *) new_env)); + + outer_lex_env = (duk_hobject *) new_env; + outer_var_env = (duk_hobject *) new_env; + + duk_insert(thr, 0); /* stash to bottom of value stack to keep new_env reachable for duration of eval */ + + /* compiler's responsibility */ + DUK_ASSERT(DUK_HOBJECT_HAS_NEWENV((duk_hobject *) func)); + } else { + DUK_DDD(DUK_DDDPRINT("direct eval call to a non-strict function -> " + "var_env and lex_env to caller's envs, " + "this_binding to caller's this_binding")); + + outer_lex_env = act_caller->lex_env; + outer_var_env = act_caller->var_env; + + /* compiler's responsibility */ + DUK_ASSERT(!DUK_HOBJECT_HAS_NEWENV((duk_hobject *) func)); + } + } else { + DUK_DDD(DUK_DDDPRINT("indirect eval call -> var_env and lex_env to " + "global object, this_binding to global object")); + + this_to_global = 1; + outer_lex_env = thr->builtins[DUK_BIDX_GLOBAL_ENV]; + outer_var_env = thr->builtins[DUK_BIDX_GLOBAL_ENV]; + } + + /* Eval code doesn't need an automatic .prototype object. */ + duk_js_push_closure(thr, func, outer_var_env, outer_lex_env, 0 /*add_auto_proto*/); + + /* [ env? source template closure ] */ + + if (this_to_global) { + DUK_ASSERT(thr->builtins[DUK_BIDX_GLOBAL] != NULL); + duk_push_hobject_bidx(thr, DUK_BIDX_GLOBAL); + } else { + duk_tval *tv; + DUK_ASSERT(thr->callstack_top >= 2); + DUK_ASSERT(act_caller != NULL); + tv = (duk_tval *) (void *) ((duk_uint8_t *) thr->valstack + act_caller->bottom_byteoff - sizeof(duk_tval)); /* this is just beneath bottom */ + DUK_ASSERT(tv >= thr->valstack); + duk_push_tval(thr, tv); + } + + DUK_DDD(DUK_DDDPRINT("eval -> lex_env=%!iO, var_env=%!iO, this_binding=%!T", + (duk_heaphdr *) outer_lex_env, + (duk_heaphdr *) outer_var_env, + duk_get_tval(thr, -1))); + + /* [ env? source template closure this ] */ + + call_flags = 0; + if (act_eval->flags & DUK_ACT_FLAG_DIRECT_EVAL) { + /* Set DIRECT_EVAL flag for the call; it's not strictly + * needed for the 'inner' eval call (the eval body) but + * current new.target implementation expects to find it + * so it can traverse direct eval chains up to the real + * calling function. + */ + call_flags |= DUK_CALL_FLAG_DIRECT_EVAL; + } + duk_handle_call_unprotected_nargs(thr, 0, call_flags); + + /* [ env? source template result ] */ + + return 1; +} + +/* + * Parsing of ints and floats + */ + +#if defined(DUK_USE_GLOBAL_BUILTIN) +DUK_INTERNAL duk_ret_t duk_bi_global_object_parse_int(duk_hthread *thr) { + duk_int32_t radix; + duk_small_uint_t s2n_flags; + + DUK_ASSERT_TOP(thr, 2); + duk_to_string(thr, 0); /* Reject symbols. */ + + radix = duk_to_int32(thr, 1); + + /* While parseInt() recognizes 0xdeadbeef, it doesn't recognize + * ES2015 0o123 or 0b10001. + */ + s2n_flags = DUK_S2N_FLAG_TRIM_WHITE | + DUK_S2N_FLAG_ALLOW_GARBAGE | + DUK_S2N_FLAG_ALLOW_PLUS | + DUK_S2N_FLAG_ALLOW_MINUS | + DUK_S2N_FLAG_ALLOW_LEADING_ZERO | + DUK_S2N_FLAG_ALLOW_AUTO_HEX_INT; + + /* Specification stripPrefix maps to DUK_S2N_FLAG_ALLOW_AUTO_HEX_INT. + * + * Don't autodetect octals (from leading zeroes), require user code to + * provide an explicit radix 8 for parsing octal. See write-up from Mozilla: + * https://developer.mozilla.org/en-US/docs/Web/JavaScript/Reference/Global_Objects/parseInt#ECMAScript_5_Removes_Octal_Interpretation + */ + + if (radix != 0) { + if (radix < 2 || radix > 36) { + goto ret_nan; + } + if (radix != 16) { + s2n_flags &= ~DUK_S2N_FLAG_ALLOW_AUTO_HEX_INT; + } + } else { + radix = 10; + } + + duk_dup_0(thr); + duk_numconv_parse(thr, (duk_small_int_t) radix, s2n_flags); + return 1; + + ret_nan: + duk_push_nan(thr); + return 1; +} +#endif /* DUK_USE_GLOBAL_BUILTIN */ + +#if defined(DUK_USE_GLOBAL_BUILTIN) +DUK_INTERNAL duk_ret_t duk_bi_global_object_parse_float(duk_hthread *thr) { + duk_small_uint_t s2n_flags; + + DUK_ASSERT_TOP(thr, 1); + duk_to_string(thr, 0); /* Reject symbols. */ + + /* XXX: check flags */ + s2n_flags = DUK_S2N_FLAG_TRIM_WHITE | + DUK_S2N_FLAG_ALLOW_EXP | + DUK_S2N_FLAG_ALLOW_GARBAGE | + DUK_S2N_FLAG_ALLOW_PLUS | + DUK_S2N_FLAG_ALLOW_MINUS | + DUK_S2N_FLAG_ALLOW_INF | + DUK_S2N_FLAG_ALLOW_FRAC | + DUK_S2N_FLAG_ALLOW_NAKED_FRAC | + DUK_S2N_FLAG_ALLOW_EMPTY_FRAC | + DUK_S2N_FLAG_ALLOW_LEADING_ZERO; + + duk_numconv_parse(thr, 10 /*radix*/, s2n_flags); + return 1; +} +#endif /* DUK_USE_GLOBAL_BUILTIN */ + +/* + * Number checkers + */ + +#if defined(DUK_USE_GLOBAL_BUILTIN) +DUK_INTERNAL duk_ret_t duk_bi_global_object_is_nan(duk_hthread *thr) { + duk_double_t d = duk_to_number(thr, 0); + duk_push_boolean(thr, (duk_bool_t) DUK_ISNAN(d)); + return 1; +} +#endif /* DUK_USE_GLOBAL_BUILTIN */ + +#if defined(DUK_USE_GLOBAL_BUILTIN) +DUK_INTERNAL duk_ret_t duk_bi_global_object_is_finite(duk_hthread *thr) { + duk_double_t d = duk_to_number(thr, 0); + duk_push_boolean(thr, (duk_bool_t) DUK_ISFINITE(d)); + return 1; +} +#endif /* DUK_USE_GLOBAL_BUILTIN */ + +/* + * URI handling + */ + +#if defined(DUK_USE_GLOBAL_BUILTIN) +DUK_INTERNAL duk_ret_t duk_bi_global_object_decode_uri(duk_hthread *thr) { + return duk__transform_helper(thr, duk__transform_callback_decode_uri, (const void *) duk__decode_uri_reserved_table); +} + +DUK_INTERNAL duk_ret_t duk_bi_global_object_decode_uri_component(duk_hthread *thr) { + return duk__transform_helper(thr, duk__transform_callback_decode_uri, (const void *) duk__decode_uri_component_reserved_table); +} + +DUK_INTERNAL duk_ret_t duk_bi_global_object_encode_uri(duk_hthread *thr) { + return duk__transform_helper(thr, duk__transform_callback_encode_uri, (const void *) duk__encode_uriunescaped_table); +} + +DUK_INTERNAL duk_ret_t duk_bi_global_object_encode_uri_component(duk_hthread *thr) { + return duk__transform_helper(thr, duk__transform_callback_encode_uri, (const void *) duk__encode_uricomponent_unescaped_table); +} + +#if defined(DUK_USE_SECTION_B) +DUK_INTERNAL duk_ret_t duk_bi_global_object_escape(duk_hthread *thr) { + return duk__transform_helper(thr, duk__transform_callback_escape, (const void *) NULL); +} + +DUK_INTERNAL duk_ret_t duk_bi_global_object_unescape(duk_hthread *thr) { + return duk__transform_helper(thr, duk__transform_callback_unescape, (const void *) NULL); +} +#endif /* DUK_USE_SECTION_B */ +#endif /* DUK_USE_GLOBAL_BUILTIN */ + +/* automatic undefs */ +#undef DUK__CHECK_BITMASK +#undef DUK__MKBITS +#line 1 "duk_bi_json.c" +/* + * JSON built-ins. + * + * See doc/json.rst. + * + * Codepoints are handled as duk_uint_fast32_t to ensure that the full + * unsigned 32-bit range is supported. This matters to e.g. JX. + * + * Input parsing doesn't do an explicit end-of-input check at all. This is + * safe: input string data is always NUL-terminated (0x00) and valid JSON + * inputs never contain plain NUL characters, so that as long as syntax checks + * are correct, we'll never read past the NUL. This approach reduces code size + * and improves parsing performance, but it's critical that syntax checks are + * indeed correct! + */ + +/* #include duk_internal.h -> already included */ + +#if defined(DUK_USE_JSON_SUPPORT) + +/* + * Local defines and forward declarations. + */ + +#define DUK__JSON_DECSTR_BUFSIZE 128 +#define DUK__JSON_DECSTR_CHUNKSIZE 64 +#define DUK__JSON_ENCSTR_CHUNKSIZE 64 +#define DUK__JSON_STRINGIFY_BUFSIZE 128 +#define DUK__JSON_MAX_ESC_LEN 10 /* '\Udeadbeef' */ + +DUK_LOCAL_DECL void duk__dec_syntax_error(duk_json_dec_ctx *js_ctx); +DUK_LOCAL_DECL void duk__dec_eat_white(duk_json_dec_ctx *js_ctx); +#if defined(DUK_USE_JX) +DUK_LOCAL_DECL duk_uint8_t duk__dec_peek(duk_json_dec_ctx *js_ctx); +#endif +DUK_LOCAL_DECL duk_uint8_t duk__dec_get(duk_json_dec_ctx *js_ctx); +DUK_LOCAL_DECL duk_uint8_t duk__dec_get_nonwhite(duk_json_dec_ctx *js_ctx); +DUK_LOCAL_DECL duk_uint_fast32_t duk__dec_decode_hex_escape(duk_json_dec_ctx *js_ctx, duk_small_uint_t n); +DUK_LOCAL_DECL void duk__dec_req_stridx(duk_json_dec_ctx *js_ctx, duk_small_uint_t stridx); +DUK_LOCAL_DECL void duk__dec_string(duk_json_dec_ctx *js_ctx); +#if defined(DUK_USE_JX) +DUK_LOCAL_DECL void duk__dec_plain_string(duk_json_dec_ctx *js_ctx); +DUK_LOCAL_DECL void duk__dec_pointer(duk_json_dec_ctx *js_ctx); +DUK_LOCAL_DECL void duk__dec_buffer(duk_json_dec_ctx *js_ctx); +#endif +DUK_LOCAL_DECL void duk__dec_number(duk_json_dec_ctx *js_ctx); +DUK_LOCAL_DECL void duk__dec_objarr_entry(duk_json_dec_ctx *js_ctx); +DUK_LOCAL_DECL void duk__dec_objarr_exit(duk_json_dec_ctx *js_ctx); +DUK_LOCAL_DECL void duk__dec_object(duk_json_dec_ctx *js_ctx); +DUK_LOCAL_DECL void duk__dec_array(duk_json_dec_ctx *js_ctx); +DUK_LOCAL_DECL void duk__dec_value(duk_json_dec_ctx *js_ctx); +DUK_LOCAL_DECL void duk__dec_reviver_walk(duk_json_dec_ctx *js_ctx); + +DUK_LOCAL_DECL void duk__emit_1(duk_json_enc_ctx *js_ctx, duk_uint_fast8_t ch); +DUK_LOCAL_DECL void duk__emit_2(duk_json_enc_ctx *js_ctx, duk_uint_fast8_t ch1, duk_uint_fast8_t ch2); +DUK_LOCAL_DECL void duk__unemit_1(duk_json_enc_ctx *js_ctx); +DUK_LOCAL_DECL void duk__emit_hstring(duk_json_enc_ctx *js_ctx, duk_hstring *h); +#if defined(DUK_USE_FASTINT) +DUK_LOCAL_DECL void duk__emit_cstring(duk_json_enc_ctx *js_ctx, const char *p); +#endif +DUK_LOCAL_DECL void duk__emit_stridx(duk_json_enc_ctx *js_ctx, duk_small_uint_t stridx); +DUK_LOCAL_DECL duk_uint8_t *duk__emit_esc_auto_fast(duk_json_enc_ctx *js_ctx, duk_uint_fast32_t cp, duk_uint8_t *q); +DUK_LOCAL_DECL void duk__enc_key_autoquote(duk_json_enc_ctx *js_ctx, duk_hstring *k); +DUK_LOCAL_DECL void duk__enc_quote_string(duk_json_enc_ctx *js_ctx, duk_hstring *h_str); +DUK_LOCAL_DECL void duk__enc_objarr_entry(duk_json_enc_ctx *js_ctx, duk_idx_t *entry_top); +DUK_LOCAL_DECL void duk__enc_objarr_exit(duk_json_enc_ctx *js_ctx, duk_idx_t *entry_top); +DUK_LOCAL_DECL void duk__enc_object(duk_json_enc_ctx *js_ctx); +DUK_LOCAL_DECL void duk__enc_array(duk_json_enc_ctx *js_ctx); +DUK_LOCAL_DECL duk_bool_t duk__enc_value(duk_json_enc_ctx *js_ctx, duk_idx_t idx_holder); +DUK_LOCAL_DECL duk_bool_t duk__enc_allow_into_proplist(duk_tval *tv); +DUK_LOCAL_DECL void duk__enc_double(duk_json_enc_ctx *js_ctx); +#if defined(DUK_USE_FASTINT) +DUK_LOCAL_DECL void duk__enc_fastint_tval(duk_json_enc_ctx *js_ctx, duk_tval *tv); +#endif +#if defined(DUK_USE_JX) || defined(DUK_USE_JC) +DUK_LOCAL_DECL void duk__enc_buffer_jx_jc(duk_json_enc_ctx *js_ctx, duk_hbuffer *h); +DUK_LOCAL_DECL void duk__enc_pointer(duk_json_enc_ctx *js_ctx, void *ptr); +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) +DUK_LOCAL_DECL void duk__enc_bufobj(duk_json_enc_ctx *js_ctx, duk_hbufobj *h_bufobj); +#endif +#endif +#if defined(DUK_USE_JSON_STRINGIFY_FASTPATH) +DUK_LOCAL_DECL void duk__enc_buffer_json_fastpath(duk_json_enc_ctx *js_ctx, duk_hbuffer *h); +#endif +DUK_LOCAL_DECL void duk__enc_newline_indent(duk_json_enc_ctx *js_ctx, duk_uint_t depth); + +/* + * Helper tables + */ + +#if defined(DUK_USE_JSON_QUOTESTRING_FASTPATH) +DUK_LOCAL const duk_uint8_t duk__json_quotestr_lookup[256] = { + /* 0x00 ... 0x7f: as is + * 0x80: escape generically + * 0x81: slow path + * 0xa0 ... 0xff: backslash + one char + */ + + 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0xe2, 0xf4, 0xee, 0x80, 0xe6, 0xf2, 0x80, 0x80, + 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, + 0x20, 0x21, 0xa2, 0x23, 0x24, 0x25, 0x26, 0x27, 0x28, 0x29, 0x2a, 0x2b, 0x2c, 0x2d, 0x2e, 0x2f, + 0x30, 0x31, 0x32, 0x33, 0x34, 0x35, 0x36, 0x37, 0x38, 0x39, 0x3a, 0x3b, 0x3c, 0x3d, 0x3e, 0x3f, + 0x40, 0x41, 0x42, 0x43, 0x44, 0x45, 0x46, 0x47, 0x48, 0x49, 0x4a, 0x4b, 0x4c, 0x4d, 0x4e, 0x4f, + 0x50, 0x51, 0x52, 0x53, 0x54, 0x55, 0x56, 0x57, 0x58, 0x59, 0x5a, 0x5b, 0xdc, 0x5d, 0x5e, 0x5f, + 0x60, 0x61, 0x62, 0x63, 0x64, 0x65, 0x66, 0x67, 0x68, 0x69, 0x6a, 0x6b, 0x6c, 0x6d, 0x6e, 0x6f, + 0x70, 0x71, 0x72, 0x73, 0x74, 0x75, 0x76, 0x77, 0x78, 0x79, 0x7a, 0x7b, 0x7c, 0x7d, 0x7e, 0x81, + 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, + 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, + 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, + 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, + 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, + 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, + 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, + 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81 +}; +#else /* DUK_USE_JSON_QUOTESTRING_FASTPATH */ +DUK_LOCAL const duk_uint8_t duk__json_quotestr_esc[14] = { + DUK_ASC_NUL, DUK_ASC_NUL, DUK_ASC_NUL, DUK_ASC_NUL, + DUK_ASC_NUL, DUK_ASC_NUL, DUK_ASC_NUL, DUK_ASC_NUL, + DUK_ASC_LC_B, DUK_ASC_LC_T, DUK_ASC_LC_N, DUK_ASC_NUL, + DUK_ASC_LC_F, DUK_ASC_LC_R +}; +#endif /* DUK_USE_JSON_QUOTESTRING_FASTPATH */ + +#if defined(DUK_USE_JSON_DECSTRING_FASTPATH) +DUK_LOCAL const duk_uint8_t duk__json_decstr_lookup[256] = { + /* 0x00: slow path + * other: as is + */ + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x20, 0x21, 0x00, 0x23, 0x24, 0x25, 0x26, 0x27, 0x28, 0x29, 0x2a, 0x2b, 0x2c, 0x2d, 0x2e, 0x2f, + 0x30, 0x31, 0x32, 0x33, 0x34, 0x35, 0x36, 0x37, 0x38, 0x39, 0x3a, 0x3b, 0x3c, 0x3d, 0x3e, 0x3f, + 0x40, 0x41, 0x42, 0x43, 0x44, 0x45, 0x46, 0x47, 0x48, 0x49, 0x4a, 0x4b, 0x4c, 0x4d, 0x4e, 0x4f, + 0x50, 0x51, 0x52, 0x53, 0x54, 0x55, 0x56, 0x57, 0x58, 0x59, 0x5a, 0x5b, 0x00, 0x5d, 0x5e, 0x5f, + 0x60, 0x61, 0x62, 0x63, 0x64, 0x65, 0x66, 0x67, 0x68, 0x69, 0x6a, 0x6b, 0x6c, 0x6d, 0x6e, 0x6f, + 0x70, 0x71, 0x72, 0x73, 0x74, 0x75, 0x76, 0x77, 0x78, 0x79, 0x7a, 0x7b, 0x7c, 0x7d, 0x7e, 0x7f, + 0x80, 0x81, 0x82, 0x83, 0x84, 0x85, 0x86, 0x87, 0x88, 0x89, 0x8a, 0x8b, 0x8c, 0x8d, 0x8e, 0x8f, + 0x90, 0x91, 0x92, 0x93, 0x94, 0x95, 0x96, 0x97, 0x98, 0x99, 0x9a, 0x9b, 0x9c, 0x9d, 0x9e, 0x9f, + 0xa0, 0xa1, 0xa2, 0xa3, 0xa4, 0xa5, 0xa6, 0xa7, 0xa8, 0xa9, 0xaa, 0xab, 0xac, 0xad, 0xae, 0xaf, + 0xb0, 0xb1, 0xb2, 0xb3, 0xb4, 0xb5, 0xb6, 0xb7, 0xb8, 0xb9, 0xba, 0xbb, 0xbc, 0xbd, 0xbe, 0xbf, + 0xc0, 0xc1, 0xc2, 0xc3, 0xc4, 0xc5, 0xc6, 0xc7, 0xc8, 0xc9, 0xca, 0xcb, 0xcc, 0xcd, 0xce, 0xcf, + 0xd0, 0xd1, 0xd2, 0xd3, 0xd4, 0xd5, 0xd6, 0xd7, 0xd8, 0xd9, 0xda, 0xdb, 0xdc, 0xdd, 0xde, 0xdf, + 0xe0, 0xe1, 0xe2, 0xe3, 0xe4, 0xe5, 0xe6, 0xe7, 0xe8, 0xe9, 0xea, 0xeb, 0xec, 0xed, 0xee, 0xef, + 0xf0, 0xf1, 0xf2, 0xf3, 0xf4, 0xf5, 0xf6, 0xf7, 0xf8, 0xf9, 0xfa, 0xfb, 0xfc, 0xfd, 0xfe, 0xff +}; +#endif /* DUK_USE_JSON_DECSTRING_FASTPATH */ + +#if defined(DUK_USE_JSON_EATWHITE_FASTPATH) +DUK_LOCAL const duk_uint8_t duk__json_eatwhite_lookup[256] = { + /* 0x00: finish (non-white) + * 0x01: continue + */ + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x01, 0x00, 0x00, 0x01, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 +}; +#endif /* DUK_USE_JSON_EATWHITE_FASTPATH */ + +#if defined(DUK_USE_JSON_DECNUMBER_FASTPATH) +DUK_LOCAL const duk_uint8_t duk__json_decnumber_lookup[256] = { + /* 0x00: finish (not part of number) + * 0x01: continue + */ + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x00, 0x01, 0x01, 0x00, + 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 +}; +#endif /* DUK_USE_JSON_DECNUMBER_FASTPATH */ + +/* + * Parsing implementation. + * + * JSON lexer is now separate from duk_lexer.c because there are numerous + * small differences making it difficult to share the lexer. + * + * The parser here works with raw bytes directly; this works because all + * JSON delimiters are ASCII characters. Invalid xUTF-8 encoded values + * inside strings will be passed on without normalization; this is not a + * compliance concern because compliant inputs will always be valid + * CESU-8 encodings. + */ + +DUK_LOCAL void duk__dec_syntax_error(duk_json_dec_ctx *js_ctx) { + /* Shared handler to minimize parser size. Cause will be + * hidden, unfortunately, but we'll have an offset which + * is often quite enough. + */ + DUK_ERROR_FMT1(js_ctx->thr, DUK_ERR_SYNTAX_ERROR, DUK_STR_FMT_INVALID_JSON, + (long) (js_ctx->p - js_ctx->p_start)); + DUK_WO_NORETURN(return;); +} + +DUK_LOCAL void duk__dec_eat_white(duk_json_dec_ctx *js_ctx) { + const duk_uint8_t *p; + duk_uint8_t t; + + p = js_ctx->p; + for (;;) { + DUK_ASSERT(p <= js_ctx->p_end); + t = *p; + +#if defined(DUK_USE_JSON_EATWHITE_FASTPATH) + /* This fast path is pretty marginal in practice. + * XXX: candidate for removal. + */ + DUK_ASSERT(duk__json_eatwhite_lookup[0x00] == 0x00); /* end-of-input breaks */ + if (duk__json_eatwhite_lookup[t] == 0) { + break; + } +#else /* DUK_USE_JSON_EATWHITE_FASTPATH */ + if (!(t == 0x20 || t == 0x0a || t == 0x0d || t == 0x09)) { + /* NUL also comes here. Comparison order matters, 0x20 + * is most common whitespace. + */ + break; + } +#endif /* DUK_USE_JSON_EATWHITE_FASTPATH */ + p++; + } + js_ctx->p = p; +} + +#if defined(DUK_USE_JX) +DUK_LOCAL duk_uint8_t duk__dec_peek(duk_json_dec_ctx *js_ctx) { + DUK_ASSERT(js_ctx->p <= js_ctx->p_end); + return *js_ctx->p; +} +#endif + +DUK_LOCAL duk_uint8_t duk__dec_get(duk_json_dec_ctx *js_ctx) { + DUK_ASSERT(js_ctx->p <= js_ctx->p_end); + return *js_ctx->p++; +} + +DUK_LOCAL duk_uint8_t duk__dec_get_nonwhite(duk_json_dec_ctx *js_ctx) { + duk__dec_eat_white(js_ctx); + return duk__dec_get(js_ctx); +} + +/* For JX, expressing the whole unsigned 32-bit range matters. */ +DUK_LOCAL duk_uint_fast32_t duk__dec_decode_hex_escape(duk_json_dec_ctx *js_ctx, duk_small_uint_t n) { + duk_small_uint_t i; + duk_uint_fast32_t res = 0; + duk_uint8_t x; + duk_small_int_t t; + + for (i = 0; i < n; i++) { + /* XXX: share helper from lexer; duk_lexer.c / hexval(). */ + + x = duk__dec_get(js_ctx); + DUK_DDD(DUK_DDDPRINT("decode_hex_escape: i=%ld, n=%ld, res=%ld, x=%ld", + (long) i, (long) n, (long) res, (long) x)); + + /* x == 0x00 (EOF) causes syntax_error */ + DUK_ASSERT(duk_hex_dectab[0] == -1); + t = duk_hex_dectab[x & 0xff]; + if (DUK_LIKELY(t >= 0)) { + res = (res * 16) + (duk_uint_fast32_t) t; + } else { + /* catches EOF and invalid digits */ + goto syntax_error; + } + } + + DUK_DDD(DUK_DDDPRINT("final hex decoded value: %ld", (long) res)); + return res; + + syntax_error: + duk__dec_syntax_error(js_ctx); + DUK_UNREACHABLE(); + return 0; +} + +DUK_LOCAL void duk__dec_req_stridx(duk_json_dec_ctx *js_ctx, duk_small_uint_t stridx) { + duk_hstring *h; + const duk_uint8_t *p; + duk_uint8_t x, y; + + /* First character has already been eaten and checked by the caller. + * We can scan until a NUL in stridx string because no built-in strings + * have internal NULs. + */ + + DUK_ASSERT_STRIDX_VALID(stridx); + h = DUK_HTHREAD_GET_STRING(js_ctx->thr, stridx); + DUK_ASSERT(h != NULL); + + p = (const duk_uint8_t *) DUK_HSTRING_GET_DATA(h) + 1; + DUK_ASSERT(*(js_ctx->p - 1) == *(p - 1)); /* first character has been matched */ + + for (;;) { + x = *p; + if (x == 0) { + break; + } + y = duk__dec_get(js_ctx); + if (x != y) { + /* Catches EOF of JSON input. */ + goto syntax_error; + } + p++; + } + + return; + + syntax_error: + duk__dec_syntax_error(js_ctx); + DUK_UNREACHABLE(); +} + +DUK_LOCAL duk_small_int_t duk__dec_string_escape(duk_json_dec_ctx *js_ctx, duk_uint8_t **ext_p) { + duk_uint_fast32_t cp; + + /* EOF (-1) will be cast to an unsigned value first + * and then re-cast for the switch. In any case, it + * will match the default case (syntax error). + */ + cp = (duk_uint_fast32_t) duk__dec_get(js_ctx); + switch (cp) { + case DUK_ASC_BACKSLASH: break; + case DUK_ASC_DOUBLEQUOTE: break; + case DUK_ASC_SLASH: break; + case DUK_ASC_LC_T: cp = 0x09; break; + case DUK_ASC_LC_N: cp = 0x0a; break; + case DUK_ASC_LC_R: cp = 0x0d; break; + case DUK_ASC_LC_F: cp = 0x0c; break; + case DUK_ASC_LC_B: cp = 0x08; break; + case DUK_ASC_LC_U: { + cp = duk__dec_decode_hex_escape(js_ctx, 4); + break; + } +#if defined(DUK_USE_JX) + case DUK_ASC_UC_U: { + if (js_ctx->flag_ext_custom) { + cp = duk__dec_decode_hex_escape(js_ctx, 8); + } else { + return 1; /* syntax error */ + } + break; + } + case DUK_ASC_LC_X: { + if (js_ctx->flag_ext_custom) { + cp = duk__dec_decode_hex_escape(js_ctx, 2); + } else { + return 1; /* syntax error */ + } + break; + } +#endif /* DUK_USE_JX */ + default: + /* catches EOF (0x00) */ + return 1; /* syntax error */ + } + + DUK_RAW_WRITEINC_XUTF8(*ext_p, cp); + + return 0; +} + +DUK_LOCAL void duk__dec_string(duk_json_dec_ctx *js_ctx) { + duk_hthread *thr = js_ctx->thr; + duk_bufwriter_ctx bw_alloc; + duk_bufwriter_ctx *bw; + duk_uint8_t *q; + + /* '"' was eaten by caller */ + + /* Note that we currently parse -bytes-, not codepoints. + * All non-ASCII extended UTF-8 will encode to bytes >= 0x80, + * so they'll simply pass through (valid UTF-8 or not). + */ + + bw = &bw_alloc; + DUK_BW_INIT_PUSHBUF(js_ctx->thr, bw, DUK__JSON_DECSTR_BUFSIZE); + q = DUK_BW_GET_PTR(js_ctx->thr, bw); + +#if defined(DUK_USE_JSON_DECSTRING_FASTPATH) + for (;;) { + duk_small_uint_t safe; + duk_uint8_t b, x; + const duk_uint8_t *p; + + /* Select a safe loop count where no output checks are + * needed assuming we won't encounter escapes. Input + * bound checks are not necessary as a NUL (guaranteed) + * will cause a SyntaxError before we read out of bounds. + */ + + safe = DUK__JSON_DECSTR_CHUNKSIZE; + + /* Ensure space for 1:1 output plus one escape. */ + q = DUK_BW_ENSURE_RAW(js_ctx->thr, bw, safe + DUK_UNICODE_MAX_XUTF8_LENGTH, q); + + p = js_ctx->p; /* temp copy, write back for next loop */ + for (;;) { + if (safe == 0) { + js_ctx->p = p; + break; + } + safe--; + + /* End of input (NUL) goes through slow path and causes SyntaxError. */ + DUK_ASSERT(duk__json_decstr_lookup[0] == 0x00); + + b = *p++; + x = (duk_small_int_t) duk__json_decstr_lookup[b]; + if (DUK_LIKELY(x != 0)) { + /* Fast path, decode as is. */ + *q++ = b; + } else if (b == DUK_ASC_DOUBLEQUOTE) { + js_ctx->p = p; + goto found_quote; + } else if (b == DUK_ASC_BACKSLASH) { + /* We've ensured space for one escaped input; then + * bail out and recheck (this makes escape handling + * quite slow but it's uncommon). + */ + js_ctx->p = p; + if (duk__dec_string_escape(js_ctx, &q) != 0) { + goto syntax_error; + } + break; + } else { + js_ctx->p = p; + goto syntax_error; + } + } + } + found_quote: +#else /* DUK_USE_JSON_DECSTRING_FASTPATH */ + for (;;) { + duk_uint8_t x; + + q = DUK_BW_ENSURE_RAW(js_ctx->thr, bw, DUK_UNICODE_MAX_XUTF8_LENGTH, q); + + x = duk__dec_get(js_ctx); + + if (x == DUK_ASC_DOUBLEQUOTE) { + break; + } else if (x == DUK_ASC_BACKSLASH) { + if (duk__dec_string_escape(js_ctx, &q) != 0) { + goto syntax_error; + } + } else if (x < 0x20) { + /* catches EOF (NUL) */ + goto syntax_error; + } else { + *q++ = (duk_uint8_t) x; + } + } +#endif /* DUK_USE_JSON_DECSTRING_FASTPATH */ + + DUK_BW_SETPTR_AND_COMPACT(js_ctx->thr, bw, q); + (void) duk_buffer_to_string(thr, -1); /* Safe if input string is safe. */ + + /* [ ... str ] */ + + return; + + syntax_error: + duk__dec_syntax_error(js_ctx); + DUK_UNREACHABLE(); +} + +#if defined(DUK_USE_JX) +/* Decode a plain string consisting entirely of identifier characters. + * Used to parse plain keys (e.g. "foo: 123"). + */ +DUK_LOCAL void duk__dec_plain_string(duk_json_dec_ctx *js_ctx) { + duk_hthread *thr = js_ctx->thr; + const duk_uint8_t *p; + duk_small_int_t x; + + /* Caller has already eaten the first char so backtrack one byte. */ + + js_ctx->p--; /* safe */ + p = js_ctx->p; + + /* Here again we parse bytes, and non-ASCII UTF-8 will cause end of + * parsing (which is correct except if there are non-shortest encodings). + * There is also no need to check explicitly for end of input buffer as + * the input is NUL padded and NUL will exit the parsing loop. + * + * Because no unescaping takes place, we can just scan to the end of the + * plain string and intern from the input buffer. + */ + + for (;;) { + x = *p; + + /* There is no need to check the first character specially here + * (i.e. reject digits): the caller only accepts valid initial + * characters and won't call us if the first character is a digit. + * This also ensures that the plain string won't be empty. + */ + + if (!duk_unicode_is_identifier_part((duk_codepoint_t) x)) { + break; + } + p++; + } + + duk_push_lstring(thr, (const char *) js_ctx->p, (duk_size_t) (p - js_ctx->p)); + js_ctx->p = p; + + /* [ ... str ] */ +} +#endif /* DUK_USE_JX */ + +#if defined(DUK_USE_JX) +DUK_LOCAL void duk__dec_pointer(duk_json_dec_ctx *js_ctx) { + duk_hthread *thr = js_ctx->thr; + const duk_uint8_t *p; + duk_small_int_t x; + void *voidptr; + + /* Caller has already eaten the first character ('(') which we don't need. */ + + p = js_ctx->p; + + for (;;) { + x = *p; + + /* Assume that the native representation never contains a closing + * parenthesis. + */ + + if (x == DUK_ASC_RPAREN) { + break; + } else if (x <= 0) { + /* NUL term or -1 (EOF), NUL check would suffice */ + goto syntax_error; + } + p++; + } + + /* There is no need to NUL delimit the sscanf() call: trailing garbage is + * ignored and there is always a NUL terminator which will force an error + * if no error is encountered before it. It's possible that the scan + * would scan further than between [js_ctx->p,p[ though and we'd advance + * by less than the scanned value. + * + * Because pointers are platform specific, a failure to scan a pointer + * results in a null pointer which is a better placeholder than a missing + * value or an error. + */ + + voidptr = NULL; + (void) DUK_SSCANF((const char *) js_ctx->p, DUK_STR_FMT_PTR, &voidptr); + duk_push_pointer(thr, voidptr); + js_ctx->p = p + 1; /* skip ')' */ + + /* [ ... ptr ] */ + + return; + + syntax_error: + duk__dec_syntax_error(js_ctx); + DUK_UNREACHABLE(); +} +#endif /* DUK_USE_JX */ + +#if defined(DUK_USE_JX) +DUK_LOCAL void duk__dec_buffer(duk_json_dec_ctx *js_ctx) { + duk_hthread *thr = js_ctx->thr; + const duk_uint8_t *p; + duk_uint8_t *buf; + duk_size_t src_len; + duk_small_int_t x; + + /* Caller has already eaten the first character ('|') which we don't need. */ + + p = js_ctx->p; + + /* XXX: Would be nice to share the fast path loop from duk_hex_decode() + * and avoid creating a temporary buffer. However, there are some + * differences which prevent trivial sharing: + * + * - Pipe char detection + * - EOF detection + * - Unknown length of input and output + * + * The best approach here would be a bufwriter and a reasonaly sized + * safe inner loop (e.g. 64 output bytes at a time). + */ + + for (;;) { + x = *p; + + /* This loop intentionally does not ensure characters are valid + * ([0-9a-fA-F]) because the hex decode call below will do that. + */ + if (x == DUK_ASC_PIPE) { + break; + } else if (x <= 0) { + /* NUL term or -1 (EOF), NUL check would suffice */ + goto syntax_error; + } + p++; + } + + /* XXX: this is not very nice; unnecessary copy is made. */ + src_len = (duk_size_t) (p - js_ctx->p); + buf = (duk_uint8_t *) duk_push_fixed_buffer_nozero(thr, src_len); + DUK_ASSERT(buf != NULL); + duk_memcpy((void *) buf, (const void *) js_ctx->p, src_len); + duk_hex_decode(thr, -1); + + js_ctx->p = p + 1; /* skip '|' */ + + /* [ ... buf ] */ + + return; + + syntax_error: + duk__dec_syntax_error(js_ctx); + DUK_UNREACHABLE(); +} +#endif /* DUK_USE_JX */ + +/* Parse a number, other than NaN or +/- Infinity */ +DUK_LOCAL void duk__dec_number(duk_json_dec_ctx *js_ctx) { + duk_hthread *thr = js_ctx->thr; + const duk_uint8_t *p_start; + const duk_uint8_t *p; + duk_uint8_t x; + duk_small_uint_t s2n_flags; + + DUK_DDD(DUK_DDDPRINT("parse_number")); + + p_start = js_ctx->p; + + /* First pass parse is very lenient (e.g. allows '1.2.3') and extracts a + * string for strict number parsing. + */ + + p = js_ctx->p; + for (;;) { + x = *p; + + DUK_DDD(DUK_DDDPRINT("parse_number: p_start=%p, p=%p, p_end=%p, x=%ld", + (const void *) p_start, (const void *) p, + (const void *) js_ctx->p_end, (long) x)); + +#if defined(DUK_USE_JSON_DECNUMBER_FASTPATH) + /* This fast path is pretty marginal in practice. + * XXX: candidate for removal. + */ + DUK_ASSERT(duk__json_decnumber_lookup[0x00] == 0x00); /* end-of-input breaks */ + if (duk__json_decnumber_lookup[x] == 0) { + break; + } +#else /* DUK_USE_JSON_DECNUMBER_FASTPATH */ + if (!((x >= DUK_ASC_0 && x <= DUK_ASC_9) || + (x == DUK_ASC_PERIOD || x == DUK_ASC_LC_E || + x == DUK_ASC_UC_E || x == DUK_ASC_MINUS || x == DUK_ASC_PLUS))) { + /* Plus sign must be accepted for positive exponents + * (e.g. '1.5e+2'). This clause catches NULs. + */ + break; + } +#endif /* DUK_USE_JSON_DECNUMBER_FASTPATH */ + p++; /* safe, because matched (NUL causes a break) */ + } + js_ctx->p = p; + + DUK_ASSERT(js_ctx->p > p_start); + duk_push_lstring(thr, (const char *) p_start, (duk_size_t) (p - p_start)); + + s2n_flags = DUK_S2N_FLAG_ALLOW_EXP | + DUK_S2N_FLAG_ALLOW_MINUS | /* but don't allow leading plus */ + DUK_S2N_FLAG_ALLOW_FRAC; + + DUK_DDD(DUK_DDDPRINT("parse_number: string before parsing: %!T", + (duk_tval *) duk_get_tval(thr, -1))); + duk_numconv_parse(thr, 10 /*radix*/, s2n_flags); + if (duk_is_nan(thr, -1)) { + duk__dec_syntax_error(js_ctx); + } + DUK_ASSERT(duk_is_number(thr, -1)); + DUK_DDD(DUK_DDDPRINT("parse_number: final number: %!T", + (duk_tval *) duk_get_tval(thr, -1))); + + /* [ ... num ] */ +} + +DUK_LOCAL void duk__dec_objarr_entry(duk_json_dec_ctx *js_ctx) { + duk_hthread *thr = js_ctx->thr; + duk_require_stack(thr, DUK_JSON_DEC_REQSTACK); + + /* c recursion check */ + + DUK_ASSERT_DISABLE(js_ctx->recursion_depth >= 0); /* unsigned */ + DUK_ASSERT(js_ctx->recursion_depth <= js_ctx->recursion_limit); + if (js_ctx->recursion_depth >= js_ctx->recursion_limit) { + DUK_ERROR_RANGE(thr, DUK_STR_JSONDEC_RECLIMIT); + DUK_WO_NORETURN(return;); + } + js_ctx->recursion_depth++; +} + +DUK_LOCAL void duk__dec_objarr_exit(duk_json_dec_ctx *js_ctx) { + /* c recursion check */ + + DUK_ASSERT(js_ctx->recursion_depth > 0); + DUK_ASSERT(js_ctx->recursion_depth <= js_ctx->recursion_limit); + js_ctx->recursion_depth--; +} + +DUK_LOCAL void duk__dec_object(duk_json_dec_ctx *js_ctx) { + duk_hthread *thr = js_ctx->thr; + duk_int_t key_count; /* XXX: a "first" flag would suffice */ + duk_uint8_t x; + + DUK_DDD(DUK_DDDPRINT("parse_object")); + + duk__dec_objarr_entry(js_ctx); + + duk_push_object(thr); + + /* Initial '{' has been checked and eaten by caller. */ + + key_count = 0; + for (;;) { + x = duk__dec_get_nonwhite(js_ctx); + + DUK_DDD(DUK_DDDPRINT("parse_object: obj=%!T, x=%ld, key_count=%ld", + (duk_tval *) duk_get_tval(thr, -1), + (long) x, (long) key_count)); + + /* handle comma and closing brace */ + + if (x == DUK_ASC_COMMA && key_count > 0) { + /* accept comma, expect new value */ + x = duk__dec_get_nonwhite(js_ctx); + } else if (x == DUK_ASC_RCURLY) { + /* eat closing brace */ + break; + } else if (key_count == 0) { + /* accept anything, expect first value (EOF will be + * caught by key parsing below. + */ + ; + } else { + /* catches EOF (NUL) and initial comma */ + goto syntax_error; + } + + /* parse key and value */ + + if (x == DUK_ASC_DOUBLEQUOTE) { + duk__dec_string(js_ctx); +#if defined(DUK_USE_JX) + } else if (js_ctx->flag_ext_custom && + duk_unicode_is_identifier_start((duk_codepoint_t) x)) { + duk__dec_plain_string(js_ctx); +#endif + } else { + goto syntax_error; + } + + /* [ ... obj key ] */ + + x = duk__dec_get_nonwhite(js_ctx); + if (x != DUK_ASC_COLON) { + goto syntax_error; + } + + duk__dec_value(js_ctx); + + /* [ ... obj key val ] */ + + duk_xdef_prop_wec(thr, -3); + + /* [ ... obj ] */ + + key_count++; + } + + /* [ ... obj ] */ + + DUK_DDD(DUK_DDDPRINT("parse_object: final object is %!T", + (duk_tval *) duk_get_tval(thr, -1))); + + duk__dec_objarr_exit(js_ctx); + return; + + syntax_error: + duk__dec_syntax_error(js_ctx); + DUK_UNREACHABLE(); +} + +DUK_LOCAL void duk__dec_array(duk_json_dec_ctx *js_ctx) { + duk_hthread *thr = js_ctx->thr; + duk_uarridx_t arr_idx; + duk_uint8_t x; + + DUK_DDD(DUK_DDDPRINT("parse_array")); + + duk__dec_objarr_entry(js_ctx); + + duk_push_array(thr); + + /* Initial '[' has been checked and eaten by caller. */ + + arr_idx = 0; + for (;;) { + x = duk__dec_get_nonwhite(js_ctx); + + DUK_DDD(DUK_DDDPRINT("parse_array: arr=%!T, x=%ld, arr_idx=%ld", + (duk_tval *) duk_get_tval(thr, -1), + (long) x, (long) arr_idx)); + + /* handle comma and closing bracket */ + + if ((x == DUK_ASC_COMMA) && (arr_idx != 0)) { + /* accept comma, expect new value */ + ; + } else if (x == DUK_ASC_RBRACKET) { + /* eat closing bracket */ + break; + } else if (arr_idx == 0) { + /* accept anything, expect first value (EOF will be + * caught by duk__dec_value() below. + */ + js_ctx->p--; /* backtrack (safe) */ + } else { + /* catches EOF (NUL) and initial comma */ + goto syntax_error; + } + + /* parse value */ + + duk__dec_value(js_ctx); + + /* [ ... arr val ] */ + + duk_xdef_prop_index_wec(thr, -2, arr_idx); + arr_idx++; + } + + /* Must set 'length' explicitly when using duk_xdef_prop_xxx() to + * set the values. + */ + + duk_set_length(thr, -1, arr_idx); + + /* [ ... arr ] */ + + DUK_DDD(DUK_DDDPRINT("parse_array: final array is %!T", + (duk_tval *) duk_get_tval(thr, -1))); + + duk__dec_objarr_exit(js_ctx); + return; + + syntax_error: + duk__dec_syntax_error(js_ctx); + DUK_UNREACHABLE(); +} + +DUK_LOCAL void duk__dec_value(duk_json_dec_ctx *js_ctx) { + duk_hthread *thr = js_ctx->thr; + duk_uint8_t x; + + x = duk__dec_get_nonwhite(js_ctx); + + DUK_DDD(DUK_DDDPRINT("parse_value: initial x=%ld", (long) x)); + + /* Note: duk__dec_req_stridx() backtracks one char */ + + if (x == DUK_ASC_DOUBLEQUOTE) { + duk__dec_string(js_ctx); + } else if ((x >= DUK_ASC_0 && x <= DUK_ASC_9) || (x == DUK_ASC_MINUS)) { +#if defined(DUK_USE_JX) + if (js_ctx->flag_ext_custom && x == DUK_ASC_MINUS && duk__dec_peek(js_ctx) == DUK_ASC_UC_I) { + duk__dec_req_stridx(js_ctx, DUK_STRIDX_MINUS_INFINITY); /* "-Infinity", '-' has been eaten */ + duk_push_number(thr, -DUK_DOUBLE_INFINITY); + } else { +#else + { /* unconditional block */ +#endif + /* We already ate 'x', so backup one byte. */ + js_ctx->p--; /* safe */ + duk__dec_number(js_ctx); + } + } else if (x == DUK_ASC_LC_T) { + duk__dec_req_stridx(js_ctx, DUK_STRIDX_TRUE); + duk_push_true(thr); + } else if (x == DUK_ASC_LC_F) { + duk__dec_req_stridx(js_ctx, DUK_STRIDX_FALSE); + duk_push_false(thr); + } else if (x == DUK_ASC_LC_N) { + duk__dec_req_stridx(js_ctx, DUK_STRIDX_LC_NULL); + duk_push_null(thr); +#if defined(DUK_USE_JX) + } else if (js_ctx->flag_ext_custom && x == DUK_ASC_LC_U) { + duk__dec_req_stridx(js_ctx, DUK_STRIDX_LC_UNDEFINED); + duk_push_undefined(thr); + } else if (js_ctx->flag_ext_custom && x == DUK_ASC_UC_N) { + duk__dec_req_stridx(js_ctx, DUK_STRIDX_NAN); + duk_push_nan(thr); + } else if (js_ctx->flag_ext_custom && x == DUK_ASC_UC_I) { + duk__dec_req_stridx(js_ctx, DUK_STRIDX_INFINITY); + duk_push_number(thr, DUK_DOUBLE_INFINITY); + } else if (js_ctx->flag_ext_custom && x == DUK_ASC_LPAREN) { + duk__dec_pointer(js_ctx); + } else if (js_ctx->flag_ext_custom && x == DUK_ASC_PIPE) { + duk__dec_buffer(js_ctx); +#endif + } else if (x == DUK_ASC_LCURLY) { + duk__dec_object(js_ctx); + } else if (x == DUK_ASC_LBRACKET) { + duk__dec_array(js_ctx); + } else { + /* catches EOF (NUL) */ + goto syntax_error; + } + + duk__dec_eat_white(js_ctx); + + /* [ ... val ] */ + return; + + syntax_error: + duk__dec_syntax_error(js_ctx); + DUK_UNREACHABLE(); +} + +/* Recursive value reviver, implements the Walk() algorithm. No C recursion + * check is done here because the initial parsing step will already ensure + * there is a reasonable limit on C recursion depth and hence object depth. + */ +DUK_LOCAL void duk__dec_reviver_walk(duk_json_dec_ctx *js_ctx) { + duk_hthread *thr = js_ctx->thr; + duk_hobject *h; + duk_uarridx_t i, arr_len; + + DUK_DDD(DUK_DDDPRINT("walk: top=%ld, holder=%!T, name=%!T", + (long) duk_get_top(thr), + (duk_tval *) duk_get_tval(thr, -2), + (duk_tval *) duk_get_tval(thr, -1))); + + duk_dup_top(thr); + duk_get_prop(thr, -3); /* -> [ ... holder name val ] */ + + h = duk_get_hobject(thr, -1); + if (h != NULL) { + if (duk_js_isarray_hobject(h)) { + arr_len = (duk_uarridx_t) duk_get_length(thr, -1); + for (i = 0; i < arr_len; i++) { + /* [ ... holder name val ] */ + + DUK_DDD(DUK_DDDPRINT("walk: array, top=%ld, i=%ld, arr_len=%ld, holder=%!T, name=%!T, val=%!T", + (long) duk_get_top(thr), (long) i, (long) arr_len, + (duk_tval *) duk_get_tval(thr, -3), (duk_tval *) duk_get_tval(thr, -2), + (duk_tval *) duk_get_tval(thr, -1))); + + duk_dup_top(thr); + (void) duk_push_uint_to_hstring(thr, (duk_uint_t) i); /* -> [ ... holder name val val ToString(i) ] */ + duk__dec_reviver_walk(js_ctx); /* -> [ ... holder name val new_elem ] */ + + if (duk_is_undefined(thr, -1)) { + duk_pop(thr); + duk_del_prop_index(thr, -1, i); + } else { + /* XXX: duk_xdef_prop_index_wec() would be more appropriate + * here but it currently makes some assumptions that might + * not hold (e.g. that previous property is not an accessor). + */ + duk_put_prop_index(thr, -2, i); + } + } + } else { + /* [ ... holder name val ] */ + duk_enum(thr, -1, DUK_ENUM_OWN_PROPERTIES_ONLY /*flags*/); + while (duk_next(thr, -1 /*enum_index*/, 0 /*get_value*/)) { + DUK_DDD(DUK_DDDPRINT("walk: object, top=%ld, holder=%!T, name=%!T, val=%!T, enum=%!iT, obj_key=%!T", + (long) duk_get_top(thr), (duk_tval *) duk_get_tval(thr, -5), + (duk_tval *) duk_get_tval(thr, -4), (duk_tval *) duk_get_tval(thr, -3), + (duk_tval *) duk_get_tval(thr, -2), (duk_tval *) duk_get_tval(thr, -1))); + + /* [ ... holder name val enum obj_key ] */ + duk_dup_m3(thr); + duk_dup_m2(thr); + + /* [ ... holder name val enum obj_key val obj_key ] */ + duk__dec_reviver_walk(js_ctx); + + /* [ ... holder name val enum obj_key new_elem ] */ + if (duk_is_undefined(thr, -1)) { + duk_pop(thr); + duk_del_prop(thr, -3); + } else { + /* XXX: duk_xdef_prop_index_wec() would be more appropriate + * here but it currently makes some assumptions that might + * not hold (e.g. that previous property is not an accessor). + * + * Using duk_put_prop() works incorrectly with '__proto__' + * if the own property with that name has been deleted. This + * does not happen normally, but a clever reviver can trigger + * that, see complex reviver case in: test-bug-json-parse-__proto__.js. + */ + duk_put_prop(thr, -4); + } + } + duk_pop(thr); /* pop enum */ + } + } + + /* [ ... holder name val ] */ + + duk_dup(thr, js_ctx->idx_reviver); + duk_insert(thr, -4); /* -> [ ... reviver holder name val ] */ + duk_call_method(thr, 2); /* -> [ ... res ] */ + + DUK_DDD(DUK_DDDPRINT("walk: top=%ld, result=%!T", + (long) duk_get_top(thr), (duk_tval *) duk_get_tval(thr, -1))); +} + +/* + * Stringify implementation. + */ + +#define DUK__EMIT_1(js_ctx,ch) duk__emit_1((js_ctx), (duk_uint_fast8_t) (ch)) +#define DUK__EMIT_2(js_ctx,ch1,ch2) duk__emit_2((js_ctx), (duk_uint_fast8_t) (ch1), (duk_uint_fast8_t) (ch2)) +#define DUK__EMIT_HSTR(js_ctx,h) duk__emit_hstring((js_ctx), (h)) +#if defined(DUK_USE_FASTINT) || defined(DUK_USE_JX) || defined(DUK_USE_JC) +#define DUK__EMIT_CSTR(js_ctx,p) duk__emit_cstring((js_ctx), (p)) +#endif +#define DUK__EMIT_STRIDX(js_ctx,i) duk__emit_stridx((js_ctx), (i)) +#define DUK__UNEMIT_1(js_ctx) duk__unemit_1((js_ctx)) + +DUK_LOCAL void duk__emit_1(duk_json_enc_ctx *js_ctx, duk_uint_fast8_t ch) { + DUK_BW_WRITE_ENSURE_U8(js_ctx->thr, &js_ctx->bw, ch); +} + +DUK_LOCAL void duk__emit_2(duk_json_enc_ctx *js_ctx, duk_uint_fast8_t ch1, duk_uint_fast8_t ch2) { + DUK_BW_WRITE_ENSURE_U8_2(js_ctx->thr, &js_ctx->bw, ch1, ch2); +} + +DUK_LOCAL void duk__emit_hstring(duk_json_enc_ctx *js_ctx, duk_hstring *h) { + DUK_BW_WRITE_ENSURE_HSTRING(js_ctx->thr, &js_ctx->bw, h); +} + +#if defined(DUK_USE_FASTINT) || defined(DUK_USE_JX) || defined(DUK_USE_JC) +DUK_LOCAL void duk__emit_cstring(duk_json_enc_ctx *js_ctx, const char *str) { + DUK_BW_WRITE_ENSURE_CSTRING(js_ctx->thr, &js_ctx->bw, str); +} +#endif + +DUK_LOCAL void duk__emit_stridx(duk_json_enc_ctx *js_ctx, duk_small_uint_t stridx) { + duk_hstring *h; + + DUK_ASSERT_STRIDX_VALID(stridx); + h = DUK_HTHREAD_GET_STRING(js_ctx->thr, stridx); + DUK_ASSERT(h != NULL); + + DUK_BW_WRITE_ENSURE_HSTRING(js_ctx->thr, &js_ctx->bw, h); +} + +DUK_LOCAL void duk__unemit_1(duk_json_enc_ctx *js_ctx) { + DUK_ASSERT(DUK_BW_GET_SIZE(js_ctx->thr, &js_ctx->bw) >= 1); + DUK_BW_ADD_PTR(js_ctx->thr, &js_ctx->bw, -1); +} + +#define DUK__MKESC(nybbles,esc1,esc2) \ + (((duk_uint_fast32_t) (nybbles)) << 16) | \ + (((duk_uint_fast32_t) (esc1)) << 8) | \ + ((duk_uint_fast32_t) (esc2)) + +DUK_LOCAL duk_uint8_t *duk__emit_esc_auto_fast(duk_json_enc_ctx *js_ctx, duk_uint_fast32_t cp, duk_uint8_t *q) { + duk_uint_fast32_t tmp; + duk_small_uint_t dig; + + DUK_UNREF(js_ctx); + + /* Caller ensures space for at least DUK__JSON_MAX_ESC_LEN. */ + + /* Select appropriate escape format automatically, and set 'tmp' to a + * value encoding both the escape format character and the nybble count: + * + * (nybble_count << 16) | (escape_char1) | (escape_char2) + */ + +#if defined(DUK_USE_JX) + if (DUK_LIKELY(cp < 0x100UL)) { + if (DUK_UNLIKELY(js_ctx->flag_ext_custom != 0U)) { + tmp = DUK__MKESC(2, DUK_ASC_BACKSLASH, DUK_ASC_LC_X); + } else { + tmp = DUK__MKESC(4, DUK_ASC_BACKSLASH, DUK_ASC_LC_U); + } + } else +#endif + if (DUK_LIKELY(cp < 0x10000UL)) { + tmp = DUK__MKESC(4, DUK_ASC_BACKSLASH, DUK_ASC_LC_U); + } else { +#if defined(DUK_USE_JX) + if (DUK_LIKELY(js_ctx->flag_ext_custom != 0U)) { + tmp = DUK__MKESC(8, DUK_ASC_BACKSLASH, DUK_ASC_UC_U); + } else +#endif + { + /* In compatible mode and standard JSON mode, output + * something useful for non-BMP characters. This won't + * roundtrip but will still be more or less readable and + * more useful than an error. + */ + tmp = DUK__MKESC(8, DUK_ASC_UC_U, DUK_ASC_PLUS); + } + } + + *q++ = (duk_uint8_t) ((tmp >> 8) & 0xff); + *q++ = (duk_uint8_t) (tmp & 0xff); + + tmp = tmp >> 16; + while (tmp > 0) { + tmp--; + dig = (duk_small_uint_t) ((cp >> (4 * tmp)) & 0x0f); + *q++ = duk_lc_digits[dig]; + } + + return q; +} + +DUK_LOCAL void duk__enc_key_autoquote(duk_json_enc_ctx *js_ctx, duk_hstring *k) { + const duk_int8_t *p, *p_start, *p_end; /* Note: intentionally signed. */ + duk_size_t k_len; + duk_codepoint_t cp; + + DUK_ASSERT(k != NULL); + + /* Accept ASCII strings which conform to identifier requirements + * as being emitted without key quotes. Since we only accept ASCII + * there's no need for actual decoding: 'p' is intentionally signed + * so that bytes >= 0x80 extend to negative values and are rejected + * as invalid identifier codepoints. + */ + + if (js_ctx->flag_avoid_key_quotes) { + k_len = DUK_HSTRING_GET_BYTELEN(k); + p_start = (const duk_int8_t *) DUK_HSTRING_GET_DATA(k); + p_end = p_start + k_len; + p = p_start; + + if (p == p_end) { + /* Zero length string is not accepted without quotes */ + goto quote_normally; + } + cp = (duk_codepoint_t) (*p++); + if (DUK_UNLIKELY(!duk_unicode_is_identifier_start(cp))) { + goto quote_normally; + } + while (p < p_end) { + cp = (duk_codepoint_t) (*p++); + if (DUK_UNLIKELY(!duk_unicode_is_identifier_part(cp))) { + goto quote_normally; + } + } + + /* This seems faster than emitting bytes one at a time and + * then potentially rewinding. + */ + DUK__EMIT_HSTR(js_ctx, k); + return; + } + + quote_normally: + duk__enc_quote_string(js_ctx, k); +} + +/* The Quote(value) operation: quote a string. + * + * Stack policy: [ ] -> [ ]. + */ + +DUK_LOCAL void duk__enc_quote_string(duk_json_enc_ctx *js_ctx, duk_hstring *h_str) { + duk_hthread *thr = js_ctx->thr; + const duk_uint8_t *p, *p_start, *p_end, *p_now, *p_tmp; + duk_uint8_t *q; + duk_ucodepoint_t cp; /* typed for duk_unicode_decode_xutf8() */ + + DUK_DDD(DUK_DDDPRINT("duk__enc_quote_string: h_str=%!O", (duk_heaphdr *) h_str)); + + DUK_ASSERT(h_str != NULL); + p_start = DUK_HSTRING_GET_DATA(h_str); + p_end = p_start + DUK_HSTRING_GET_BYTELEN(h_str); + p = p_start; + + DUK__EMIT_1(js_ctx, DUK_ASC_DOUBLEQUOTE); + + /* Encode string in small chunks, estimating the maximum expansion so that + * there's no need to ensure space while processing the chunk. + */ + + while (p < p_end) { + duk_size_t left, now, space; + + left = (duk_size_t) (p_end - p); + now = (left > DUK__JSON_ENCSTR_CHUNKSIZE ? + DUK__JSON_ENCSTR_CHUNKSIZE : left); + + /* Maximum expansion per input byte is 6: + * - invalid UTF-8 byte causes "\uXXXX" to be emitted (6/1 = 6). + * - 2-byte UTF-8 encodes as "\uXXXX" (6/2 = 3). + * - 4-byte UTF-8 encodes as "\Uxxxxxxxx" (10/4 = 2.5). + */ + space = now * 6; + q = DUK_BW_ENSURE_GETPTR(thr, &js_ctx->bw, space); + + p_now = p + now; + + while (p < p_now) { +#if defined(DUK_USE_JSON_QUOTESTRING_FASTPATH) + duk_uint8_t b; + + b = duk__json_quotestr_lookup[*p++]; + if (DUK_LIKELY(b < 0x80)) { + /* Most input bytes go through here. */ + *q++ = b; + } else if (b >= 0xa0) { + *q++ = DUK_ASC_BACKSLASH; + *q++ = (duk_uint8_t) (b - 0x80); + } else if (b == 0x80) { + cp = (duk_ucodepoint_t) (*(p - 1)); + q = duk__emit_esc_auto_fast(js_ctx, cp, q); + } else if (b == 0x7f && js_ctx->flag_ascii_only) { + /* 0x7F is special */ + DUK_ASSERT(b == 0x81); + cp = (duk_ucodepoint_t) 0x7f; + q = duk__emit_esc_auto_fast(js_ctx, cp, q); + } else { + DUK_ASSERT(b == 0x81); + p--; + + /* slow path is shared */ +#else /* DUK_USE_JSON_QUOTESTRING_FASTPATH */ + cp = *p; + + if (DUK_LIKELY(cp <= 0x7f)) { + /* ascii fast path: avoid decoding utf-8 */ + p++; + if (cp == 0x22 || cp == 0x5c) { + /* double quote or backslash */ + *q++ = DUK_ASC_BACKSLASH; + *q++ = (duk_uint8_t) cp; + } else if (cp < 0x20) { + duk_uint_fast8_t esc_char; + + /* This approach is a bit shorter than a straight + * if-else-ladder and also a bit faster. + */ + if (cp < (sizeof(duk__json_quotestr_esc) / sizeof(duk_uint8_t)) && + (esc_char = duk__json_quotestr_esc[cp]) != 0) { + *q++ = DUK_ASC_BACKSLASH; + *q++ = (duk_uint8_t) esc_char; + } else { + q = duk__emit_esc_auto_fast(js_ctx, cp, q); + } + } else if (cp == 0x7f && js_ctx->flag_ascii_only) { + q = duk__emit_esc_auto_fast(js_ctx, cp, q); + } else { + /* any other printable -> as is */ + *q++ = (duk_uint8_t) cp; + } + } else { + /* slow path is shared */ +#endif /* DUK_USE_JSON_QUOTESTRING_FASTPATH */ + + /* slow path decode */ + + /* If XUTF-8 decoding fails, treat the offending byte as a codepoint directly + * and go forward one byte. This is of course very lossy, but allows some kind + * of output to be produced even for internal strings which don't conform to + * XUTF-8. All standard ECMAScript strings are always CESU-8, so this behavior + * does not violate the ECMAScript specification. The behavior is applied to + * all modes, including ECMAScript standard JSON. Because the current XUTF-8 + * decoding is not very strict, this behavior only really affects initial bytes + * and truncated codepoints. + * + * Another alternative would be to scan forwards to start of next codepoint + * (or end of input) and emit just one replacement codepoint. + */ + + p_tmp = p; + if (!duk_unicode_decode_xutf8(thr, &p, p_start, p_end, &cp)) { + /* Decode failed. */ + cp = *p_tmp; + p = p_tmp + 1; + } + +#if defined(DUK_USE_NONSTD_JSON_ESC_U2028_U2029) + if (js_ctx->flag_ascii_only || cp == 0x2028 || cp == 0x2029) { +#else + if (js_ctx->flag_ascii_only) { +#endif + q = duk__emit_esc_auto_fast(js_ctx, cp, q); + } else { + /* as is */ + DUK_RAW_WRITEINC_XUTF8(q, cp); + } + } + } + + DUK_BW_SET_PTR(thr, &js_ctx->bw, q); + } + + DUK__EMIT_1(js_ctx, DUK_ASC_DOUBLEQUOTE); +} + +/* Encode a double (checked by caller) from stack top. Stack top may be + * replaced by serialized string but is not popped (caller does that). + */ +DUK_LOCAL void duk__enc_double(duk_json_enc_ctx *js_ctx) { + duk_hthread *thr; + duk_tval *tv; + duk_double_t d; + duk_small_int_t c; + duk_small_int_t s; + duk_small_uint_t stridx; + duk_small_uint_t n2s_flags; + duk_hstring *h_str; + + DUK_ASSERT(js_ctx != NULL); + thr = js_ctx->thr; + DUK_ASSERT(thr != NULL); + + /* Caller must ensure 'tv' is indeed a double and not a fastint! */ + tv = DUK_GET_TVAL_NEGIDX(thr, -1); + DUK_ASSERT(DUK_TVAL_IS_DOUBLE(tv)); + d = DUK_TVAL_GET_DOUBLE(tv); + + c = (duk_small_int_t) DUK_FPCLASSIFY(d); + s = (duk_small_int_t) DUK_SIGNBIT(d); + DUK_UNREF(s); + + if (DUK_LIKELY(!(c == DUK_FP_INFINITE || c == DUK_FP_NAN))) { + DUK_ASSERT(DUK_ISFINITE(d)); + +#if defined(DUK_USE_JX) || defined(DUK_USE_JC) + /* Negative zero needs special handling in JX/JC because + * it would otherwise serialize to '0', not '-0'. + */ + if (DUK_UNLIKELY(c == DUK_FP_ZERO && s != 0 && + (js_ctx->flag_ext_custom_or_compatible))) { + duk_push_hstring_stridx(thr, DUK_STRIDX_MINUS_ZERO); /* '-0' */ + } else +#endif /* DUK_USE_JX || DUK_USE_JC */ + { + n2s_flags = 0; + /* [ ... number ] -> [ ... string ] */ + duk_numconv_stringify(thr, 10 /*radix*/, 0 /*digits*/, n2s_flags); + } + h_str = duk_known_hstring(thr, -1); + DUK__EMIT_HSTR(js_ctx, h_str); + return; + } + +#if defined(DUK_USE_JX) || defined(DUK_USE_JC) + if (!(js_ctx->flags & (DUK_JSON_FLAG_EXT_CUSTOM | + DUK_JSON_FLAG_EXT_COMPATIBLE))) { + stridx = DUK_STRIDX_LC_NULL; + } else if (c == DUK_FP_NAN) { + stridx = js_ctx->stridx_custom_nan; + } else if (s == 0) { + stridx = js_ctx->stridx_custom_posinf; + } else { + stridx = js_ctx->stridx_custom_neginf; + } +#else + stridx = DUK_STRIDX_LC_NULL; +#endif + DUK__EMIT_STRIDX(js_ctx, stridx); +} + +#if defined(DUK_USE_FASTINT) +/* Encode a fastint from duk_tval ptr, no value stack effects. */ +DUK_LOCAL void duk__enc_fastint_tval(duk_json_enc_ctx *js_ctx, duk_tval *tv) { + duk_int64_t v; + + /* Fastint range is signed 48-bit so longest value is -2^47 = -140737488355328 + * (16 chars long), longest signed 64-bit value is -2^63 = -9223372036854775808 + * (20 chars long). Alloc space for 64-bit range to be safe. + */ + duk_uint8_t buf[20 + 1]; + + /* Caller must ensure 'tv' is indeed a fastint! */ + DUK_ASSERT(DUK_TVAL_IS_FASTINT(tv)); + v = DUK_TVAL_GET_FASTINT(tv); + + /* XXX: There are no format strings in duk_config.h yet, could add + * one for formatting duk_int64_t. For now, assumes "%lld" and that + * "long long" type exists. Could also rely on C99 directly but that + * won't work for older MSVC. + */ + DUK_SPRINTF((char *) buf, "%lld", (long long) v); + DUK__EMIT_CSTR(js_ctx, (const char *) buf); +} +#endif + +#if defined(DUK_USE_JX) || defined(DUK_USE_JC) +#if defined(DUK_USE_HEX_FASTPATH) +DUK_LOCAL duk_uint8_t *duk__enc_buffer_data_hex(const duk_uint8_t *src, duk_size_t src_len, duk_uint8_t *dst) { + duk_uint8_t *q; + duk_uint16_t *q16; + duk_small_uint_t x; + duk_size_t i, len_safe; +#if !defined(DUK_USE_UNALIGNED_ACCESSES_POSSIBLE) + duk_bool_t shift_dst; +#endif + + /* Unlike in duk_hex_encode() 'dst' is not necessarily aligned by 2. + * For platforms where unaligned accesses are not allowed, shift 'dst' + * ahead by 1 byte to get alignment and then duk_memmove() the result + * in place. The faster encoding loop makes up the difference. + * There's always space for one extra byte because a terminator always + * follows the hex data and that's been accounted for by the caller. + */ + +#if defined(DUK_USE_UNALIGNED_ACCESSES_POSSIBLE) + q16 = (duk_uint16_t *) (void *) dst; +#else + shift_dst = (duk_bool_t) (((duk_size_t) dst) & 0x01U); + if (shift_dst) { + DUK_DD(DUK_DDPRINT("unaligned accesses not possible, dst not aligned -> step to dst + 1")); + q16 = (duk_uint16_t *) (void *) (dst + 1); + } else { + DUK_DD(DUK_DDPRINT("unaligned accesses not possible, dst is aligned")); + q16 = (duk_uint16_t *) (void *) dst; + } + DUK_ASSERT((((duk_size_t) q16) & 0x01U) == 0); +#endif + + len_safe = src_len & ~0x03U; + for (i = 0; i < len_safe; i += 4) { + q16[0] = duk_hex_enctab[src[i]]; + q16[1] = duk_hex_enctab[src[i + 1]]; + q16[2] = duk_hex_enctab[src[i + 2]]; + q16[3] = duk_hex_enctab[src[i + 3]]; + q16 += 4; + } + q = (duk_uint8_t *) q16; + +#if !defined(DUK_USE_UNALIGNED_ACCESSES_POSSIBLE) + if (shift_dst) { + q--; + duk_memmove((void *) dst, (const void *) (dst + 1), 2 * len_safe); + DUK_ASSERT(dst + 2 * len_safe == q); + } +#endif + + for (; i < src_len; i++) { + x = src[i]; + *q++ = duk_lc_digits[x >> 4]; + *q++ = duk_lc_digits[x & 0x0f]; + } + + return q; +} +#else /* DUK_USE_HEX_FASTPATH */ +DUK_LOCAL duk_uint8_t *duk__enc_buffer_data_hex(const duk_uint8_t *src, duk_size_t src_len, duk_uint8_t *dst) { + const duk_uint8_t *p; + const duk_uint8_t *p_end; + duk_uint8_t *q; + duk_small_uint_t x; + + p = src; + p_end = src + src_len; + q = dst; + while (p != p_end) { + x = *p++; + *q++ = duk_lc_digits[x >> 4]; + *q++ = duk_lc_digits[x & 0x0f]; + } + + return q; +} +#endif /* DUK_USE_HEX_FASTPATH */ + +DUK_LOCAL void duk__enc_buffer_data(duk_json_enc_ctx *js_ctx, duk_uint8_t *buf_data, duk_size_t buf_len) { + duk_hthread *thr; + duk_uint8_t *q; + duk_size_t space; + + thr = js_ctx->thr; + + DUK_ASSERT(js_ctx->flag_ext_custom || js_ctx->flag_ext_compatible); /* caller checks */ + DUK_ASSERT(js_ctx->flag_ext_custom_or_compatible); + + /* Buffer values are encoded in (lowercase) hex to make the + * binary data readable. Base64 or similar would be more + * compact but less readable, and the point of JX/JC + * variants is to be as useful to a programmer as possible. + */ + + /* The #if defined() clutter here needs to handle the three + * cases: (1) JX+JC, (2) JX only, (3) JC only. + */ + + /* Note: space must cater for both JX and JC. */ + space = 9 + buf_len * 2 + 2; + DUK_ASSERT(DUK_HBUFFER_MAX_BYTELEN <= 0x7ffffffeUL); + DUK_ASSERT((space - 2) / 2 >= buf_len); /* overflow not possible, buffer limits */ + q = DUK_BW_ENSURE_GETPTR(thr, &js_ctx->bw, space); + +#if defined(DUK_USE_JX) && defined(DUK_USE_JC) + if (js_ctx->flag_ext_custom) +#endif +#if defined(DUK_USE_JX) + { + *q++ = DUK_ASC_PIPE; + q = duk__enc_buffer_data_hex(buf_data, buf_len, q); + *q++ = DUK_ASC_PIPE; + + } +#endif +#if defined(DUK_USE_JX) && defined(DUK_USE_JC) + else +#endif +#if defined(DUK_USE_JC) + { + DUK_ASSERT(js_ctx->flag_ext_compatible); + duk_memcpy((void *) q, (const void *) "{\"_buf\":\"", 9); /* len: 9 */ + q += 9; + q = duk__enc_buffer_data_hex(buf_data, buf_len, q); + *q++ = DUK_ASC_DOUBLEQUOTE; + *q++ = DUK_ASC_RCURLY; + } +#endif + + DUK_BW_SET_PTR(thr, &js_ctx->bw, q); +} + +DUK_LOCAL void duk__enc_buffer_jx_jc(duk_json_enc_ctx *js_ctx, duk_hbuffer *h) { + duk__enc_buffer_data(js_ctx, + (duk_uint8_t *) DUK_HBUFFER_GET_DATA_PTR(js_ctx->thr->heap, h), + (duk_size_t) DUK_HBUFFER_GET_SIZE(h)); +} +#endif /* DUK_USE_JX || DUK_USE_JC */ + +#if defined(DUK_USE_JSON_STRINGIFY_FASTPATH) +DUK_LOCAL void duk__enc_buffer_json_fastpath(duk_json_enc_ctx *js_ctx, duk_hbuffer *h) { + duk_size_t i, n; + const duk_uint8_t *buf; + duk_uint8_t *q; + + n = DUK_HBUFFER_GET_SIZE(h); + if (n == 0) { + DUK__EMIT_2(js_ctx, DUK_ASC_LCURLY, DUK_ASC_RCURLY); + return; + } + + DUK__EMIT_1(js_ctx, DUK_ASC_LCURLY); + + /* Maximum encoded length with 32-bit index: 1 + 10 + 2 + 3 + 1 + 1 = 18, + * with 64-bit index: 1 + 20 + 2 + 3 + 1 + 1 = 28. 32 has some slack. + * + * Note that because the output buffer is reallocated from time to time, + * side effects (such as finalizers) affecting the buffer 'h' must be + * disabled. This is the case in the JSON.stringify() fast path. + */ + + buf = (const duk_uint8_t *) DUK_HBUFFER_GET_DATA_PTR(js_ctx->thr->heap, h); + if (DUK_UNLIKELY(js_ctx->h_gap != NULL)) { + for (i = 0; i < n; i++) { + duk__enc_newline_indent(js_ctx, js_ctx->recursion_depth + 1); + q = DUK_BW_ENSURE_GETPTR(js_ctx->thr, &js_ctx->bw, 32); + q += DUK_SPRINTF((char *) q, "\"%lu\": %u,", (unsigned long) i, (unsigned int) buf[i]); + DUK_BW_SET_PTR(js_ctx->thr, &js_ctx->bw, q); + } + } else { + q = DUK_BW_GET_PTR(js_ctx->thr, &js_ctx->bw); + for (i = 0; i < n; i++) { + q = DUK_BW_ENSURE_RAW(js_ctx->thr, &js_ctx->bw, 32, q); + q += DUK_SPRINTF((char *) q, "\"%lu\":%u,", (unsigned long) i, (unsigned int) buf[i]); + } + DUK_BW_SET_PTR(js_ctx->thr, &js_ctx->bw, q); + } + DUK__UNEMIT_1(js_ctx); /* eat trailing comma */ + + if (DUK_UNLIKELY(js_ctx->h_gap != NULL)) { + duk__enc_newline_indent(js_ctx, js_ctx->recursion_depth); + } + DUK__EMIT_1(js_ctx, DUK_ASC_RCURLY); +} +#endif /* DUK_USE_JSON_STRINGIFY_FASTPATH */ + +#if defined(DUK_USE_JX) || defined(DUK_USE_JC) +DUK_LOCAL void duk__enc_pointer(duk_json_enc_ctx *js_ctx, void *ptr) { + char buf[64]; /* XXX: how to figure correct size? */ + const char *fmt; + + DUK_ASSERT(js_ctx->flag_ext_custom || js_ctx->flag_ext_compatible); /* caller checks */ + DUK_ASSERT(js_ctx->flag_ext_custom_or_compatible); + + duk_memzero(buf, sizeof(buf)); + + /* The #if defined() clutter here needs to handle the three + * cases: (1) JX+JC, (2) JX only, (3) JC only. + */ +#if defined(DUK_USE_JX) && defined(DUK_USE_JC) + if (js_ctx->flag_ext_custom) +#endif +#if defined(DUK_USE_JX) + { + fmt = ptr ? "(%p)" : "(null)"; + } +#endif +#if defined(DUK_USE_JX) && defined(DUK_USE_JC) + else +#endif +#if defined(DUK_USE_JC) + { + DUK_ASSERT(js_ctx->flag_ext_compatible); + fmt = ptr ? "{\"_ptr\":\"%p\"}" : "{\"_ptr\":\"null\"}"; + } +#endif + + /* When ptr == NULL, the format argument is unused. */ + DUK_SNPRINTF(buf, sizeof(buf) - 1, fmt, ptr); /* must not truncate */ + DUK__EMIT_CSTR(js_ctx, buf); +} +#endif /* DUK_USE_JX || DUK_USE_JC */ + +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) +#if defined(DUK_USE_JX) || defined(DUK_USE_JC) +DUK_LOCAL void duk__enc_bufobj(duk_json_enc_ctx *js_ctx, duk_hbufobj *h_bufobj) { + DUK_HBUFOBJ_ASSERT_VALID(h_bufobj); + + if (h_bufobj->buf == NULL || !DUK_HBUFOBJ_VALID_SLICE(h_bufobj)) { + DUK__EMIT_STRIDX(js_ctx, DUK_STRIDX_LC_NULL); + } else { + /* Handle both full and partial slice (as long as covered). */ + duk__enc_buffer_data(js_ctx, + (duk_uint8_t *) DUK_HBUFOBJ_GET_SLICE_BASE(js_ctx->thr->heap, h_bufobj), + (duk_size_t) h_bufobj->length); + } +} +#endif /* DUK_USE_JX || DUK_USE_JC */ +#endif /* DUK_USE_BUFFEROBJECT_SUPPORT */ + +/* Indent helper. Calling code relies on js_ctx->recursion_depth also being + * directly related to indent depth. + */ +#if defined(DUK_USE_PREFER_SIZE) +DUK_LOCAL void duk__enc_newline_indent(duk_json_enc_ctx *js_ctx, duk_uint_t depth) { + DUK_ASSERT(js_ctx->h_gap != NULL); + DUK_ASSERT(DUK_HSTRING_GET_BYTELEN(js_ctx->h_gap) > 0); /* caller guarantees */ + + DUK__EMIT_1(js_ctx, 0x0a); + while (depth-- > 0) { + DUK__EMIT_HSTR(js_ctx, js_ctx->h_gap); + } +} +#else /* DUK_USE_PREFER_SIZE */ +DUK_LOCAL void duk__enc_newline_indent(duk_json_enc_ctx *js_ctx, duk_uint_t depth) { + const duk_uint8_t *gap_data; + duk_size_t gap_len; + duk_size_t avail_bytes; /* bytes of indent available for copying */ + duk_size_t need_bytes; /* bytes of indent still needed */ + duk_uint8_t *p_start; + duk_uint8_t *p; + + DUK_ASSERT(js_ctx->h_gap != NULL); + DUK_ASSERT(DUK_HSTRING_GET_BYTELEN(js_ctx->h_gap) > 0); /* caller guarantees */ + + DUK__EMIT_1(js_ctx, 0x0a); + if (DUK_UNLIKELY(depth == 0)) { + return; + } + + /* To handle deeper indents efficiently, make use of copies we've + * already emitted. In effect we can emit a sequence of 1, 2, 4, + * 8, etc copies, and then finish the last run. Byte counters + * avoid multiply with gap_len on every loop. + */ + + gap_data = (const duk_uint8_t *) DUK_HSTRING_GET_DATA(js_ctx->h_gap); + gap_len = (duk_size_t) DUK_HSTRING_GET_BYTELEN(js_ctx->h_gap); + DUK_ASSERT(gap_len > 0); + + need_bytes = gap_len * depth; + p = DUK_BW_ENSURE_GETPTR(js_ctx->thr, &js_ctx->bw, need_bytes); + p_start = p; + + duk_memcpy((void *) p, (const void *) gap_data, (size_t) gap_len); + p += gap_len; + avail_bytes = gap_len; + DUK_ASSERT(need_bytes >= gap_len); + need_bytes -= gap_len; + + while (need_bytes >= avail_bytes) { + duk_memcpy((void *) p, (const void *) p_start, (size_t) avail_bytes); + p += avail_bytes; + need_bytes -= avail_bytes; + avail_bytes <<= 1; + } + + DUK_ASSERT(need_bytes < avail_bytes); /* need_bytes may be zero */ + duk_memcpy((void *) p, (const void *) p_start, (size_t) need_bytes); + p += need_bytes; + /*avail_bytes += need_bytes*/ + + DUK_BW_SET_PTR(js_ctx->thr, &js_ctx->bw, p); +} +#endif /* DUK_USE_PREFER_SIZE */ + +/* Shared entry handling for object/array serialization. */ +DUK_LOCAL void duk__enc_objarr_entry(duk_json_enc_ctx *js_ctx, duk_idx_t *entry_top) { + duk_hthread *thr = js_ctx->thr; + duk_hobject *h_target; + duk_uint_fast32_t i, n; + + *entry_top = duk_get_top(thr); + + duk_require_stack(thr, DUK_JSON_ENC_REQSTACK); + + /* Loop check using a hybrid approach: a fixed-size visited[] array + * with overflow in a loop check object. + */ + + h_target = duk_known_hobject(thr, -1); /* object or array */ + + n = js_ctx->recursion_depth; + if (DUK_UNLIKELY(n > DUK_JSON_ENC_LOOPARRAY)) { + n = DUK_JSON_ENC_LOOPARRAY; + } + for (i = 0; i < n; i++) { + if (DUK_UNLIKELY(js_ctx->visiting[i] == h_target)) { + DUK_DD(DUK_DDPRINT("slow path loop detect")); + DUK_ERROR_TYPE(thr, DUK_STR_CYCLIC_INPUT); + DUK_WO_NORETURN(return;); + } + } + if (js_ctx->recursion_depth < DUK_JSON_ENC_LOOPARRAY) { + js_ctx->visiting[js_ctx->recursion_depth] = h_target; + } else { + duk_push_sprintf(thr, DUK_STR_FMT_PTR, (void *) h_target); + duk_dup_top(thr); /* -> [ ... voidp voidp ] */ + if (duk_has_prop(thr, js_ctx->idx_loop)) { + DUK_ERROR_TYPE(thr, DUK_STR_CYCLIC_INPUT); + DUK_WO_NORETURN(return;); + } + duk_push_true(thr); /* -> [ ... voidp true ] */ + duk_put_prop(thr, js_ctx->idx_loop); /* -> [ ... ] */ + } + + /* C recursion check. */ + + DUK_ASSERT_DISABLE(js_ctx->recursion_depth >= 0); /* unsigned */ + DUK_ASSERT(js_ctx->recursion_depth <= js_ctx->recursion_limit); + if (js_ctx->recursion_depth >= js_ctx->recursion_limit) { + DUK_ERROR_RANGE(thr, DUK_STR_JSONENC_RECLIMIT); + DUK_WO_NORETURN(return;); + } + js_ctx->recursion_depth++; + + DUK_DDD(DUK_DDDPRINT("shared entry finished: top=%ld, loop=%!T", + (long) duk_get_top(thr), (duk_tval *) duk_get_tval(thr, js_ctx->idx_loop))); +} + +/* Shared exit handling for object/array serialization. */ +DUK_LOCAL void duk__enc_objarr_exit(duk_json_enc_ctx *js_ctx, duk_idx_t *entry_top) { + duk_hthread *thr = js_ctx->thr; + duk_hobject *h_target; + + /* C recursion check. */ + + DUK_ASSERT(js_ctx->recursion_depth > 0); + DUK_ASSERT(js_ctx->recursion_depth <= js_ctx->recursion_limit); + js_ctx->recursion_depth--; + + /* Loop check. */ + + h_target = duk_known_hobject(thr, *entry_top - 1); /* original target at entry_top - 1 */ + + if (js_ctx->recursion_depth < DUK_JSON_ENC_LOOPARRAY) { + /* Previous entry was inside visited[], nothing to do. */ + } else { + duk_push_sprintf(thr, DUK_STR_FMT_PTR, (void *) h_target); + duk_del_prop(thr, js_ctx->idx_loop); /* -> [ ... ] */ + } + + /* Restore stack top after unbalanced code paths. */ + duk_set_top(thr, *entry_top); + + DUK_DDD(DUK_DDDPRINT("shared entry finished: top=%ld, loop=%!T", + (long) duk_get_top(thr), (duk_tval *) duk_get_tval(thr, js_ctx->idx_loop))); +} + +/* The JO(value) operation: encode object. + * + * Stack policy: [ object ] -> [ object ]. + */ +DUK_LOCAL void duk__enc_object(duk_json_enc_ctx *js_ctx) { + duk_hthread *thr = js_ctx->thr; + duk_hstring *h_key; + duk_idx_t entry_top; + duk_idx_t idx_obj; + duk_idx_t idx_keys; + duk_bool_t emitted; + duk_uarridx_t arr_len, i; + duk_size_t prev_size; + + DUK_DDD(DUK_DDDPRINT("duk__enc_object: obj=%!T", (duk_tval *) duk_get_tval(thr, -1))); + + duk__enc_objarr_entry(js_ctx, &entry_top); + + idx_obj = entry_top - 1; + + if (js_ctx->idx_proplist >= 0) { + idx_keys = js_ctx->idx_proplist; + } else { + /* XXX: would be nice to enumerate an object at specified index */ + duk_dup(thr, idx_obj); + (void) duk_hobject_get_enumerated_keys(thr, DUK_ENUM_OWN_PROPERTIES_ONLY /*flags*/); /* [ ... target ] -> [ ... target keys ] */ + idx_keys = duk_require_normalize_index(thr, -1); + /* leave stack unbalanced on purpose */ + } + + DUK_DDD(DUK_DDDPRINT("idx_keys=%ld, h_keys=%!T", + (long) idx_keys, (duk_tval *) duk_get_tval(thr, idx_keys))); + + /* Steps 8-10 have been merged to avoid a "partial" variable. */ + + DUK__EMIT_1(js_ctx, DUK_ASC_LCURLY); + + /* XXX: keys is an internal object with all keys to be processed + * in its (gapless) array part. Because nobody can touch the keys + * object, we could iterate its array part directly (keeping in mind + * that it can be reallocated). + */ + + arr_len = (duk_uarridx_t) duk_get_length(thr, idx_keys); + emitted = 0; + for (i = 0; i < arr_len; i++) { + duk_get_prop_index(thr, idx_keys, i); /* -> [ ... key ] */ + + DUK_DDD(DUK_DDDPRINT("object property loop: holder=%!T, key=%!T", + (duk_tval *) duk_get_tval(thr, idx_obj), + (duk_tval *) duk_get_tval(thr, -1))); + + h_key = duk_known_hstring(thr, -1); + DUK_ASSERT(h_key != NULL); + DUK_ASSERT(!DUK_HSTRING_HAS_SYMBOL(h_key)); /* proplist filtering; enum options */ + + prev_size = DUK_BW_GET_SIZE(js_ctx->thr, &js_ctx->bw); + if (DUK_UNLIKELY(js_ctx->h_gap != NULL)) { + duk__enc_newline_indent(js_ctx, js_ctx->recursion_depth); + duk__enc_key_autoquote(js_ctx, h_key); + DUK__EMIT_2(js_ctx, DUK_ASC_COLON, DUK_ASC_SPACE); + } else { + duk__enc_key_autoquote(js_ctx, h_key); + DUK__EMIT_1(js_ctx, DUK_ASC_COLON); + } + + /* [ ... key ] */ + + if (DUK_UNLIKELY(duk__enc_value(js_ctx, idx_obj) == 0)) { + /* Value would yield 'undefined', so skip key altogether. + * Side effects have already happened. + */ + DUK_BW_SET_SIZE(js_ctx->thr, &js_ctx->bw, prev_size); + } else { + DUK__EMIT_1(js_ctx, DUK_ASC_COMMA); + emitted = 1; + } + + /* [ ... ] */ + } + + if (emitted) { + DUK_ASSERT(*((duk_uint8_t *) DUK_BW_GET_PTR(js_ctx->thr, &js_ctx->bw) - 1) == DUK_ASC_COMMA); + DUK__UNEMIT_1(js_ctx); /* eat trailing comma */ + if (DUK_UNLIKELY(js_ctx->h_gap != NULL)) { + DUK_ASSERT(js_ctx->recursion_depth >= 1); + duk__enc_newline_indent(js_ctx, js_ctx->recursion_depth - 1U); + } + } + DUK__EMIT_1(js_ctx, DUK_ASC_RCURLY); + + duk__enc_objarr_exit(js_ctx, &entry_top); + + DUK_ASSERT_TOP(thr, entry_top); +} + +/* The JA(value) operation: encode array. + * + * Stack policy: [ array ] -> [ array ]. + */ +DUK_LOCAL void duk__enc_array(duk_json_enc_ctx *js_ctx) { + duk_hthread *thr = js_ctx->thr; + duk_idx_t entry_top; + duk_idx_t idx_arr; + duk_bool_t emitted; + duk_uarridx_t i, arr_len; + + DUK_DDD(DUK_DDDPRINT("duk__enc_array: array=%!T", + (duk_tval *) duk_get_tval(thr, -1))); + + duk__enc_objarr_entry(js_ctx, &entry_top); + + idx_arr = entry_top - 1; + + /* Steps 8-10 have been merged to avoid a "partial" variable. */ + + DUK__EMIT_1(js_ctx, DUK_ASC_LBRACKET); + + arr_len = (duk_uarridx_t) duk_get_length(thr, idx_arr); + emitted = 0; + for (i = 0; i < arr_len; i++) { + DUK_DDD(DUK_DDDPRINT("array entry loop: array=%!T, index=%ld, arr_len=%ld", + (duk_tval *) duk_get_tval(thr, idx_arr), + (long) i, (long) arr_len)); + + if (DUK_UNLIKELY(js_ctx->h_gap != NULL)) { + DUK_ASSERT(js_ctx->recursion_depth >= 1); + duk__enc_newline_indent(js_ctx, js_ctx->recursion_depth); + } + + (void) duk_push_uint_to_hstring(thr, (duk_uint_t) i); /* -> [ ... key ] */ + + /* [ ... key ] */ + + if (DUK_UNLIKELY(duk__enc_value(js_ctx, idx_arr) == 0)) { + /* Value would normally be omitted, replace with 'null'. */ + DUK__EMIT_STRIDX(js_ctx, DUK_STRIDX_LC_NULL); + } else { + ; + } + + /* [ ... ] */ + + DUK__EMIT_1(js_ctx, DUK_ASC_COMMA); + emitted = 1; + } + + if (emitted) { + DUK_ASSERT(*((duk_uint8_t *) DUK_BW_GET_PTR(js_ctx->thr, &js_ctx->bw) - 1) == DUK_ASC_COMMA); + DUK__UNEMIT_1(js_ctx); /* eat trailing comma */ + if (DUK_UNLIKELY(js_ctx->h_gap != NULL)) { + DUK_ASSERT(js_ctx->recursion_depth >= 1); + duk__enc_newline_indent(js_ctx, js_ctx->recursion_depth - 1U); + } + } + DUK__EMIT_1(js_ctx, DUK_ASC_RBRACKET); + + duk__enc_objarr_exit(js_ctx, &entry_top); + + DUK_ASSERT_TOP(thr, entry_top); +} + +/* The Str(key, holder) operation. + * + * Stack policy: [ ... key ] -> [ ... ] + */ +DUK_LOCAL duk_bool_t duk__enc_value(duk_json_enc_ctx *js_ctx, duk_idx_t idx_holder) { + duk_hthread *thr = js_ctx->thr; + duk_tval *tv; + duk_tval *tv_holder; + duk_tval *tv_key; + duk_small_int_t c; + + DUK_DDD(DUK_DDDPRINT("duk__enc_value: idx_holder=%ld, holder=%!T, key=%!T", + (long) idx_holder, (duk_tval *) duk_get_tval(thr, idx_holder), + (duk_tval *) duk_get_tval(thr, -1))); + + tv_holder = DUK_GET_TVAL_POSIDX(thr, idx_holder); + DUK_ASSERT(DUK_TVAL_IS_OBJECT(tv_holder)); + tv_key = DUK_GET_TVAL_NEGIDX(thr, -1); + DUK_ASSERT(DUK_TVAL_IS_STRING(tv_key)); + DUK_ASSERT(!DUK_HSTRING_HAS_SYMBOL(DUK_TVAL_GET_STRING(tv_key))); /* Caller responsible. */ + (void) duk_hobject_getprop(thr, tv_holder, tv_key); + + /* -> [ ... key val ] */ + + DUK_DDD(DUK_DDDPRINT("value=%!T", (duk_tval *) duk_get_tval(thr, -1))); + + /* Standard JSON checks for .toJSON() only for actual objects; for + * example, setting Number.prototype.toJSON and then serializing a + * number won't invoke the .toJSON() method. However, lightfuncs and + * plain buffers mimic objects so we check for their .toJSON() method. + */ + if (duk_check_type_mask(thr, -1, DUK_TYPE_MASK_OBJECT | + DUK_TYPE_MASK_LIGHTFUNC | + DUK_TYPE_MASK_BUFFER)) { + duk_get_prop_stridx_short(thr, -1, DUK_STRIDX_TO_JSON); + if (duk_is_callable(thr, -1)) { /* toJSON() can also be a lightfunc */ + DUK_DDD(DUK_DDDPRINT("value is object, has callable toJSON() -> call it")); + /* XXX: duk_dup_unvalidated(thr, -2) etc. */ + duk_dup_m2(thr); /* -> [ ... key val toJSON val ] */ + duk_dup_m4(thr); /* -> [ ... key val toJSON val key ] */ + duk_call_method(thr, 1); /* -> [ ... key val val' ] */ + duk_remove_m2(thr); /* -> [ ... key val' ] */ + } else { + duk_pop(thr); /* -> [ ... key val ] */ + } + } + + /* [ ... key val ] */ + + DUK_DDD(DUK_DDDPRINT("value=%!T", (duk_tval *) duk_get_tval(thr, -1))); + + if (js_ctx->h_replacer) { + /* XXX: Here a "slice copy" would be useful. */ + DUK_DDD(DUK_DDDPRINT("replacer is set, call replacer")); + duk_push_hobject(thr, js_ctx->h_replacer); /* -> [ ... key val replacer ] */ + duk_dup(thr, idx_holder); /* -> [ ... key val replacer holder ] */ + duk_dup_m4(thr); /* -> [ ... key val replacer holder key ] */ + duk_dup_m4(thr); /* -> [ ... key val replacer holder key val ] */ + duk_call_method(thr, 2); /* -> [ ... key val val' ] */ + duk_remove_m2(thr); /* -> [ ... key val' ] */ + } + + /* [ ... key val ] */ + + DUK_DDD(DUK_DDDPRINT("value=%!T", (duk_tval *) duk_get_tval(thr, -1))); + + tv = DUK_GET_TVAL_NEGIDX(thr, -1); + if (DUK_TVAL_IS_OBJECT(tv)) { + duk_hobject *h; + + h = DUK_TVAL_GET_OBJECT(tv); + DUK_ASSERT(h != NULL); + +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) +#if defined(DUK_USE_JX) || defined(DUK_USE_JC) + if (DUK_HOBJECT_IS_BUFOBJ(h) && + js_ctx->flags & (DUK_JSON_FLAG_EXT_CUSTOM | DUK_JSON_FLAG_EXT_COMPATIBLE)) { + /* With JX/JC a bufferobject gets serialized specially. */ + duk_hbufobj *h_bufobj; + h_bufobj = (duk_hbufobj *) h; + DUK_HBUFOBJ_ASSERT_VALID(h_bufobj); + duk__enc_bufobj(js_ctx, h_bufobj); + goto pop2_emitted; + } + /* Otherwise bufferobjects get serialized as normal objects. */ +#endif /* JX || JC */ +#endif /* DUK_USE_BUFFEROBJECT_SUPPORT */ + c = (duk_small_int_t) DUK_HOBJECT_GET_CLASS_NUMBER(h); + switch (c) { + case DUK_HOBJECT_CLASS_NUMBER: { + DUK_DDD(DUK_DDDPRINT("value is a Number object -> coerce with ToNumber()")); + duk_to_number_m1(thr); + /* The coercion potentially invokes user .valueOf() and .toString() + * but can't result in a function value because ToPrimitive() would + * reject such a result: test-dev-json-stringify-coercion-1.js. + */ + DUK_ASSERT(!duk_is_callable(thr, -1)); + break; + } + case DUK_HOBJECT_CLASS_STRING: { + DUK_DDD(DUK_DDDPRINT("value is a String object -> coerce with ToString()")); + duk_to_string(thr, -1); + /* Same coercion behavior as for Number. */ + DUK_ASSERT(!duk_is_callable(thr, -1)); + break; + } +#if defined(DUK_USE_JX) || defined(DUK_USE_JC) + case DUK_HOBJECT_CLASS_POINTER: +#endif + case DUK_HOBJECT_CLASS_BOOLEAN: { + DUK_DDD(DUK_DDDPRINT("value is a Boolean/Buffer/Pointer object -> get internal value")); + duk_xget_owndataprop_stridx_short(thr, -1, DUK_STRIDX_INT_VALUE); + duk_remove_m2(thr); + break; + } + default: { + /* Normal object which doesn't get automatically coerced to a + * primitive value. Functions are checked for specially. The + * primitive value coercions for Number, String, Pointer, and + * Boolean can't result in functions so suffices to check here. + * Symbol objects are handled like plain objects (their primitive + * value is NOT looked up like for e.g. String objects). + */ + DUK_ASSERT(h != NULL); + if (DUK_HOBJECT_IS_CALLABLE(h)) { +#if defined(DUK_USE_JX) || defined(DUK_USE_JC) + if (js_ctx->flags & (DUK_JSON_FLAG_EXT_CUSTOM | + DUK_JSON_FLAG_EXT_COMPATIBLE)) { + /* We only get here when doing non-standard JSON encoding */ + DUK_DDD(DUK_DDDPRINT("-> function allowed, serialize to custom format")); + DUK_ASSERT(js_ctx->flag_ext_custom || js_ctx->flag_ext_compatible); + DUK__EMIT_STRIDX(js_ctx, js_ctx->stridx_custom_function); + goto pop2_emitted; + } else { + DUK_DDD(DUK_DDDPRINT("-> will result in undefined (function)")); + goto pop2_undef; + } +#else /* DUK_USE_JX || DUK_USE_JC */ + DUK_DDD(DUK_DDDPRINT("-> will result in undefined (function)")); + goto pop2_undef; +#endif /* DUK_USE_JX || DUK_USE_JC */ + } + } + } /* end switch */ + } + + /* [ ... key val ] */ + + DUK_DDD(DUK_DDDPRINT("value=%!T", (duk_tval *) duk_get_tval(thr, -1))); + + if (duk_check_type_mask(thr, -1, js_ctx->mask_for_undefined)) { + /* will result in undefined */ + DUK_DDD(DUK_DDDPRINT("-> will result in undefined (type mask check)")); + goto pop2_undef; + } + tv = DUK_GET_TVAL_NEGIDX(thr, -1); + + switch (DUK_TVAL_GET_TAG(tv)) { +#if defined(DUK_USE_JX) || defined(DUK_USE_JC) + /* When JX/JC not in use, the type mask above will avoid this case if needed. */ + case DUK_TAG_UNDEFINED: { + DUK__EMIT_STRIDX(js_ctx, js_ctx->stridx_custom_undefined); + break; + } +#endif + case DUK_TAG_NULL: { + DUK__EMIT_STRIDX(js_ctx, DUK_STRIDX_LC_NULL); + break; + } + case DUK_TAG_BOOLEAN: { + DUK__EMIT_STRIDX(js_ctx, DUK_TVAL_GET_BOOLEAN(tv) ? + DUK_STRIDX_TRUE : DUK_STRIDX_FALSE); + break; + } +#if defined(DUK_USE_JX) || defined(DUK_USE_JC) + /* When JX/JC not in use, the type mask above will avoid this case if needed. */ + case DUK_TAG_POINTER: { + duk__enc_pointer(js_ctx, DUK_TVAL_GET_POINTER(tv)); + break; + } +#endif /* DUK_USE_JX || DUK_USE_JC */ + case DUK_TAG_STRING: { + duk_hstring *h = DUK_TVAL_GET_STRING(tv); + DUK_ASSERT(h != NULL); + if (DUK_UNLIKELY(DUK_HSTRING_HAS_SYMBOL(h))) { + goto pop2_undef; + } + duk__enc_quote_string(js_ctx, h); + break; + } + case DUK_TAG_OBJECT: { + duk_hobject *h = DUK_TVAL_GET_OBJECT(tv); + DUK_ASSERT(h != NULL); + + /* Function values are handled completely above (including + * coercion results): + */ + DUK_ASSERT(!DUK_HOBJECT_IS_CALLABLE(h)); + + if (duk_js_isarray_hobject(h)) { + duk__enc_array(js_ctx); + } else { + duk__enc_object(js_ctx); + } + break; + } + /* Because plain buffers mimics Uint8Array, they have enumerable + * index properties [0,byteLength[. Because JSON only serializes + * enumerable own properties, no properties can be serialized for + * plain buffers (all virtual properties are non-enumerable). However, + * there may be a .toJSON() method which was already handled above. + */ + case DUK_TAG_BUFFER: { +#if defined(DUK_USE_JX) || defined(DUK_USE_JC) + if (js_ctx->flag_ext_custom_or_compatible) { + duk__enc_buffer_jx_jc(js_ctx, DUK_TVAL_GET_BUFFER(tv)); + break; + } +#endif + + /* Could implement a fastpath, but the fast path would need + * to handle realloc side effects correctly. + */ + duk_to_object(thr, -1); + duk__enc_object(js_ctx); + break; + } + case DUK_TAG_LIGHTFUNC: { +#if defined(DUK_USE_JX) || defined(DUK_USE_JC) + /* We only get here when doing non-standard JSON encoding */ + DUK_ASSERT(js_ctx->flag_ext_custom || js_ctx->flag_ext_compatible); + DUK__EMIT_STRIDX(js_ctx, js_ctx->stridx_custom_function); +#else + /* Standard JSON omits functions */ + DUK_UNREACHABLE(); +#endif + break; + } +#if defined(DUK_USE_FASTINT) + case DUK_TAG_FASTINT: + /* Number serialization has a significant impact relative to + * other fast path code, so careful fast path for fastints. + */ + duk__enc_fastint_tval(js_ctx, tv); + break; +#endif + default: { + /* number */ + DUK_ASSERT(!DUK_TVAL_IS_UNUSED(tv)); + DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv)); + /* XXX: A fast path for usual integers would be useful when + * fastint support is not enabled. + */ + duk__enc_double(js_ctx); + break; + } + } + +#if defined(DUK_USE_JX) || defined(DUK_USE_JC) + pop2_emitted: +#endif + duk_pop_2(thr); /* [ ... key val ] -> [ ... ] */ + return 1; /* emitted */ + + pop2_undef: + duk_pop_2(thr); /* [ ... key val ] -> [ ... ] */ + return 0; /* not emitted */ +} + +/* E5 Section 15.12.3, main algorithm, step 4.b.ii steps 1-4. */ +DUK_LOCAL duk_bool_t duk__enc_allow_into_proplist(duk_tval *tv) { + duk_small_int_t c; + + /* XXX: some kind of external internal type checker? + * - type mask; symbol flag; class mask + */ + DUK_ASSERT(tv != NULL); + if (DUK_TVAL_IS_STRING(tv)) { + duk_hstring *h; + h = DUK_TVAL_GET_STRING(tv); + DUK_ASSERT(h != NULL); + if (DUK_UNLIKELY(DUK_HSTRING_HAS_SYMBOL(h))) { + return 0; + } + return 1; + } else if (DUK_TVAL_IS_NUMBER(tv)) { + return 1; + } else if (DUK_TVAL_IS_OBJECT(tv)) { + duk_hobject *h; + h = DUK_TVAL_GET_OBJECT(tv); + DUK_ASSERT(h != NULL); + c = (duk_small_int_t) DUK_HOBJECT_GET_CLASS_NUMBER(h); + if (c == DUK_HOBJECT_CLASS_STRING || c == DUK_HOBJECT_CLASS_NUMBER) { + return 1; + } + } + + return 0; +} + +/* + * JSON.stringify() fast path + * + * Otherwise supports full JSON, JX, and JC features, but bails out on any + * possible side effect which might change the value being serialized. The + * fast path can take advantage of the fact that the value being serialized + * is unchanged so that we can walk directly through property tables etc. + */ + +#if defined(DUK_USE_JSON_STRINGIFY_FASTPATH) +DUK_LOCAL duk_bool_t duk__json_stringify_fast_value(duk_json_enc_ctx *js_ctx, duk_tval *tv) { + duk_uint_fast32_t i, n; + + DUK_DDD(DUK_DDDPRINT("stringify fast: %!T", tv)); + + DUK_ASSERT(js_ctx != NULL); + DUK_ASSERT(js_ctx->thr != NULL); + +#if 0 /* disabled for now */ + restart_match: +#endif + + DUK_ASSERT(tv != NULL); + + switch (DUK_TVAL_GET_TAG(tv)) { + case DUK_TAG_UNDEFINED: { +#if defined(DUK_USE_JX) || defined(DUK_USE_JC) + if (js_ctx->flag_ext_custom || js_ctx->flag_ext_compatible) { + DUK__EMIT_STRIDX(js_ctx, js_ctx->stridx_custom_undefined); + break; + } else { + goto emit_undefined; + } +#else + goto emit_undefined; +#endif + } + case DUK_TAG_NULL: { + DUK__EMIT_STRIDX(js_ctx, DUK_STRIDX_LC_NULL); + break; + } + case DUK_TAG_BOOLEAN: { + DUK__EMIT_STRIDX(js_ctx, DUK_TVAL_GET_BOOLEAN(tv) ? + DUK_STRIDX_TRUE : DUK_STRIDX_FALSE); + break; + } + case DUK_TAG_STRING: { + duk_hstring *h; + h = DUK_TVAL_GET_STRING(tv); + DUK_ASSERT(h != NULL); + if (DUK_UNLIKELY(DUK_HSTRING_HAS_SYMBOL(h))) { + goto emit_undefined; + } + duk__enc_quote_string(js_ctx, h); + break; + } + case DUK_TAG_OBJECT: { + duk_hobject *obj; + duk_tval *tv_val; + duk_bool_t emitted = 0; + duk_uint32_t c_bit, c_all, c_array, c_unbox, c_undef, + c_func, c_bufobj, c_object, c_abort; + + /* For objects JSON.stringify() only looks for own, enumerable + * properties which is nice for the fast path here. + * + * For arrays JSON.stringify() uses [[Get]] so it will actually + * inherit properties during serialization! This fast path + * supports gappy arrays as long as there's no actual inherited + * property (which might be a getter etc). + * + * Since recursion only happens for objects, we can have both + * recursion and loop checks here. We use a simple, depth-limited + * loop check in the fast path because the object-based tracking + * is very slow (when tested, it accounted for 50% of fast path + * execution time for input data with a lot of small objects!). + */ + + /* XXX: for real world code, could just ignore array inheritance + * and only look at array own properties. + */ + + /* We rely on a few object flag / class number relationships here, + * assert for them. + */ + + obj = DUK_TVAL_GET_OBJECT(tv); + DUK_ASSERT(obj != NULL); + DUK_HOBJECT_ASSERT_VALID(obj); + + /* Once recursion depth is increased, exit path must decrease + * it (though it's OK to abort the fast path). + */ + + DUK_ASSERT_DISABLE(js_ctx->recursion_depth >= 0); /* unsigned */ + DUK_ASSERT(js_ctx->recursion_depth <= js_ctx->recursion_limit); + if (js_ctx->recursion_depth >= js_ctx->recursion_limit) { + DUK_DD(DUK_DDPRINT("fast path recursion limit")); + DUK_ERROR_RANGE(js_ctx->thr, DUK_STR_JSONDEC_RECLIMIT); + DUK_WO_NORETURN(return 0;); + } + + for (i = 0, n = (duk_uint_fast32_t) js_ctx->recursion_depth; i < n; i++) { + if (DUK_UNLIKELY(js_ctx->visiting[i] == obj)) { + DUK_DD(DUK_DDPRINT("fast path loop detect")); + DUK_ERROR_TYPE(js_ctx->thr, DUK_STR_CYCLIC_INPUT); + DUK_WO_NORETURN(return 0;); + } + } + + /* Guaranteed by recursion_limit setup so we don't have to + * check twice. + */ + DUK_ASSERT(js_ctx->recursion_depth < DUK_JSON_ENC_LOOPARRAY); + js_ctx->visiting[js_ctx->recursion_depth] = obj; + js_ctx->recursion_depth++; + + /* If object has a .toJSON() property, we can't be certain + * that it wouldn't mutate any value arbitrarily, so bail + * out of the fast path. + * + * If an object is a Proxy we also can't avoid side effects + * so abandon. + */ + /* XXX: non-callable .toJSON() doesn't need to cause an abort + * but does at the moment, probably not worth fixing. + */ + if (duk_hobject_hasprop_raw(js_ctx->thr, obj, DUK_HTHREAD_STRING_TO_JSON(js_ctx->thr)) || + DUK_HOBJECT_IS_PROXY(obj)) { + DUK_DD(DUK_DDPRINT("object has a .toJSON property or object is a Proxy, abort fast path")); + goto abort_fastpath; + } + + /* We could use a switch-case for the class number but it turns out + * a small if-else ladder on class masks is better. The if-ladder + * should be in order of relevancy. + */ + + /* XXX: move masks to js_ctx? they don't change during one + * fast path invocation. + */ + DUK_ASSERT(DUK_HOBJECT_CLASS_MAX <= 31); +#if defined(DUK_USE_JX) || defined(DUK_USE_JC) + if (js_ctx->flag_ext_custom_or_compatible) { + c_all = DUK_HOBJECT_CMASK_ALL; + c_array = DUK_HOBJECT_CMASK_ARRAY; + c_unbox = DUK_HOBJECT_CMASK_NUMBER | + DUK_HOBJECT_CMASK_STRING | + DUK_HOBJECT_CMASK_BOOLEAN | + DUK_HOBJECT_CMASK_POINTER; /* Symbols are not unboxed. */ + c_func = DUK_HOBJECT_CMASK_FUNCTION; + c_bufobj = DUK_HOBJECT_CMASK_ALL_BUFOBJS; + c_undef = 0; + c_abort = 0; + c_object = c_all & ~(c_array | c_unbox | c_func | c_bufobj | c_undef | c_abort); + } + else +#endif + { + c_all = DUK_HOBJECT_CMASK_ALL; + c_array = DUK_HOBJECT_CMASK_ARRAY; + c_unbox = DUK_HOBJECT_CMASK_NUMBER | + DUK_HOBJECT_CMASK_STRING | + DUK_HOBJECT_CMASK_BOOLEAN; /* Symbols are not unboxed. */ + c_func = 0; + c_bufobj = 0; + c_undef = DUK_HOBJECT_CMASK_FUNCTION | + DUK_HOBJECT_CMASK_POINTER; + /* As the fast path doesn't currently properly support + * duk_hbufobj virtual properties, abort fast path if + * we encounter them in plain JSON mode. + */ + c_abort = DUK_HOBJECT_CMASK_ALL_BUFOBJS; + c_object = c_all & ~(c_array | c_unbox | c_func | c_bufobj | c_undef | c_abort); + } + + c_bit = (duk_uint32_t) DUK_HOBJECT_GET_CLASS_MASK(obj); + if (c_bit & c_object) { + /* All other object types. */ + DUK__EMIT_1(js_ctx, DUK_ASC_LCURLY); + + /* A non-Array object should not have an array part in practice. + * But since it is supported internally (and perhaps used at some + * point), check and abandon if that's the case. + */ + if (DUK_HOBJECT_HAS_ARRAY_PART(obj)) { + DUK_DD(DUK_DDPRINT("non-Array object has array part, abort fast path")); + goto abort_fastpath; + } + + for (i = 0; i < (duk_uint_fast32_t) DUK_HOBJECT_GET_ENEXT(obj); i++) { + duk_hstring *k; + duk_size_t prev_size; + + k = DUK_HOBJECT_E_GET_KEY(js_ctx->thr->heap, obj, i); + if (!k) { + continue; + } + if (DUK_HSTRING_HAS_ARRIDX(k)) { + /* If an object has array index keys we would need + * to sort them into the ES2015 enumeration order to + * be consistent with the slow path. Abort the fast + * path and handle in the slow path for now. + */ + DUK_DD(DUK_DDPRINT("property key is an array index, abort fast path")); + goto abort_fastpath; + } + if (!DUK_HOBJECT_E_SLOT_IS_ENUMERABLE(js_ctx->thr->heap, obj, i)) { + continue; + } + if (DUK_HOBJECT_E_SLOT_IS_ACCESSOR(js_ctx->thr->heap, obj, i)) { + /* Getter might have arbitrary side effects, + * so bail out. + */ + DUK_DD(DUK_DDPRINT("property is an accessor, abort fast path")); + goto abort_fastpath; + } + if (DUK_UNLIKELY(DUK_HSTRING_HAS_SYMBOL(k))) { + continue; + } + + tv_val = DUK_HOBJECT_E_GET_VALUE_TVAL_PTR(js_ctx->thr->heap, obj, i); + + prev_size = DUK_BW_GET_SIZE(js_ctx->thr, &js_ctx->bw); + if (DUK_UNLIKELY(js_ctx->h_gap != NULL)) { + duk__enc_newline_indent(js_ctx, js_ctx->recursion_depth); + duk__enc_key_autoquote(js_ctx, k); + DUK__EMIT_2(js_ctx, DUK_ASC_COLON, DUK_ASC_SPACE); + } else { + duk__enc_key_autoquote(js_ctx, k); + DUK__EMIT_1(js_ctx, DUK_ASC_COLON); + } + + if (duk__json_stringify_fast_value(js_ctx, tv_val) == 0) { + DUK_DD(DUK_DDPRINT("prop value not supported, rewind key and colon")); + DUK_BW_SET_SIZE(js_ctx->thr, &js_ctx->bw, prev_size); + } else { + DUK__EMIT_1(js_ctx, DUK_ASC_COMMA); + emitted = 1; + } + } + + /* If any non-Array value had enumerable virtual own + * properties, they should be serialized here (actually, + * before the explicit properties). Standard types don't. + */ + + if (emitted) { + DUK_ASSERT(*((duk_uint8_t *) DUK_BW_GET_PTR(js_ctx->thr, &js_ctx->bw) - 1) == DUK_ASC_COMMA); + DUK__UNEMIT_1(js_ctx); /* eat trailing comma */ + if (DUK_UNLIKELY(js_ctx->h_gap != NULL)) { + DUK_ASSERT(js_ctx->recursion_depth >= 1); + duk__enc_newline_indent(js_ctx, js_ctx->recursion_depth - 1U); + } + } + DUK__EMIT_1(js_ctx, DUK_ASC_RCURLY); + } else if (c_bit & c_array) { + duk_uint_fast32_t arr_len; + duk_uint_fast32_t asize; + + DUK__EMIT_1(js_ctx, DUK_ASC_LBRACKET); + + /* Assume arrays are dense in the fast path. */ + if (!DUK_HOBJECT_HAS_ARRAY_PART(obj)) { + DUK_DD(DUK_DDPRINT("Array object is sparse, abort fast path")); + goto abort_fastpath; + } + + arr_len = (duk_uint_fast32_t) ((duk_harray *) obj)->length; + asize = (duk_uint_fast32_t) DUK_HOBJECT_GET_ASIZE(obj); + /* Array part may be larger than 'length'; if so, iterate + * only up to array 'length'. Array part may also be smaller + * than 'length' in some cases. + */ + for (i = 0; i < arr_len; i++) { + duk_tval *tv_arrval; + duk_hstring *h_tmp; + duk_bool_t has_inherited; + + if (DUK_UNLIKELY(js_ctx->h_gap != NULL)) { + duk__enc_newline_indent(js_ctx, js_ctx->recursion_depth); + } + + if (DUK_LIKELY(i < asize)) { + tv_arrval = DUK_HOBJECT_A_GET_VALUE_PTR(js_ctx->thr->heap, obj, i); + if (DUK_LIKELY(!DUK_TVAL_IS_UNUSED(tv_arrval))) { + /* Expected case: element is present. */ + if (duk__json_stringify_fast_value(js_ctx, tv_arrval) == 0) { + DUK__EMIT_STRIDX(js_ctx, DUK_STRIDX_LC_NULL); + } + goto elem_done; + } + } + + /* Gap in array; check for inherited property, + * bail out if one exists. This should be enough + * to support gappy arrays for all practical code. + */ + + h_tmp = duk_push_uint_to_hstring(js_ctx->thr, (duk_uint_t) i); + has_inherited = duk_hobject_hasprop_raw(js_ctx->thr, obj, h_tmp); + duk_pop(js_ctx->thr); + if (has_inherited) { + DUK_D(DUK_DPRINT("gap in array, conflicting inherited property, abort fast path")); + goto abort_fastpath; + } + + /* Ordinary gap, undefined encodes to 'null' in + * standard JSON, but JX/JC use their form for + * undefined to better preserve the typing. + */ + DUK_D(DUK_DPRINT("gap in array, no conflicting inherited property, remain on fast path")); +#if defined(DUK_USE_JX) + DUK__EMIT_STRIDX(js_ctx, js_ctx->stridx_custom_undefined); +#else + DUK__EMIT_STRIDX(js_ctx, DUK_STRIDX_LC_NULL); +#endif + /* fall through */ + + elem_done: + DUK__EMIT_1(js_ctx, DUK_ASC_COMMA); + emitted = 1; + } + + if (emitted) { + DUK_ASSERT(*((duk_uint8_t *) DUK_BW_GET_PTR(js_ctx->thr, &js_ctx->bw) - 1) == DUK_ASC_COMMA); + DUK__UNEMIT_1(js_ctx); /* eat trailing comma */ + if (DUK_UNLIKELY(js_ctx->h_gap != NULL)) { + DUK_ASSERT(js_ctx->recursion_depth >= 1); + duk__enc_newline_indent(js_ctx, js_ctx->recursion_depth - 1U); + } + } + DUK__EMIT_1(js_ctx, DUK_ASC_RBRACKET); + } else if (c_bit & c_unbox) { + /* Certain boxed types are required to go through + * automatic unboxing. Rely on internal value being + * sane (to avoid infinite recursion). + */ + DUK_ASSERT((c_bit & DUK_HOBJECT_CMASK_SYMBOL) == 0); /* Symbols are not unboxed. */ + +#if 1 + /* The code below is incorrect if .toString() or .valueOf() have + * have been overridden. The correct approach would be to look up + * the method(s) and if they resolve to the built-in function we + * can safely bypass it and look up the internal value directly. + * Unimplemented for now, abort fast path for boxed values. + */ + goto abort_fastpath; +#else /* disabled */ + /* Disabled until fixed, see above. */ + duk_tval *tv_internal; + + DUK_DD(DUK_DDPRINT("auto unboxing in fast path")); + + tv_internal = duk_hobject_get_internal_value_tval_ptr(js_ctx->thr->heap, obj); + DUK_ASSERT(tv_internal != NULL); + DUK_ASSERT(DUK_TVAL_IS_STRING(tv_internal) || + DUK_TVAL_IS_NUMBER(tv_internal) || + DUK_TVAL_IS_BOOLEAN(tv_internal) || + DUK_TVAL_IS_POINTER(tv_internal)); + + tv = tv_internal; + DUK_ASSERT(js_ctx->recursion_depth > 0); + js_ctx->recursion_depth--; /* required to keep recursion depth correct */ + goto restart_match; +#endif /* disabled */ +#if defined(DUK_USE_JX) || defined(DUK_USE_JC) + } else if (c_bit & c_func) { + DUK__EMIT_STRIDX(js_ctx, js_ctx->stridx_custom_function); +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) + } else if (c_bit & c_bufobj) { + duk__enc_bufobj(js_ctx, (duk_hbufobj *) obj); +#endif +#endif + } else if (c_bit & c_abort) { + DUK_DD(DUK_DDPRINT("abort fast path for unsupported type")); + goto abort_fastpath; + } else { + DUK_ASSERT((c_bit & c_undef) != 0); + + /* Must decrease recursion depth before returning. */ + DUK_ASSERT(js_ctx->recursion_depth > 0); + DUK_ASSERT(js_ctx->recursion_depth <= js_ctx->recursion_limit); + js_ctx->recursion_depth--; + goto emit_undefined; + } + + DUK_ASSERT(js_ctx->recursion_depth > 0); + DUK_ASSERT(js_ctx->recursion_depth <= js_ctx->recursion_limit); + js_ctx->recursion_depth--; + break; + } + case DUK_TAG_BUFFER: { + /* Plain buffers are treated like Uint8Arrays: they have + * enumerable indices. Other virtual properties are not + * enumerable, and inherited properties are not serialized. + * However, there can be a replacer (not relevant here) or + * a .toJSON() method (which we need to check for explicitly). + */ + +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) + if (duk_hobject_hasprop_raw(js_ctx->thr, + js_ctx->thr->builtins[DUK_BIDX_UINT8ARRAY_PROTOTYPE], + DUK_HTHREAD_STRING_TO_JSON(js_ctx->thr))) { + DUK_DD(DUK_DDPRINT("value is a plain buffer and there's an inherited .toJSON, abort fast path")); + goto abort_fastpath; + } +#endif + +#if defined(DUK_USE_JX) || defined(DUK_USE_JC) + if (js_ctx->flag_ext_custom_or_compatible) { + duk__enc_buffer_jx_jc(js_ctx, DUK_TVAL_GET_BUFFER(tv)); + break; + } +#endif + + /* Plain buffers mimic Uint8Arrays, and have enumerable index + * properties. + */ + duk__enc_buffer_json_fastpath(js_ctx, DUK_TVAL_GET_BUFFER(tv)); + break; + } + case DUK_TAG_POINTER: { +#if defined(DUK_USE_JX) || defined(DUK_USE_JC) + if (js_ctx->flag_ext_custom_or_compatible) { + duk__enc_pointer(js_ctx, DUK_TVAL_GET_POINTER(tv)); + break; + } else { + goto emit_undefined; + } +#else + goto emit_undefined; +#endif + } + case DUK_TAG_LIGHTFUNC: { + /* A lightfunc might also inherit a .toJSON() so just bail out. */ + /* XXX: Could just lookup .toJSON() and continue in fast path, + * as it would almost never be defined. + */ + DUK_DD(DUK_DDPRINT("value is a lightfunc, abort fast path")); + goto abort_fastpath; + } +#if defined(DUK_USE_FASTINT) + case DUK_TAG_FASTINT: { + /* Number serialization has a significant impact relative to + * other fast path code, so careful fast path for fastints. + */ + duk__enc_fastint_tval(js_ctx, tv); + break; + } +#endif + default: { + /* XXX: A fast path for usual integers would be useful when + * fastint support is not enabled. + */ + DUK_ASSERT(!DUK_TVAL_IS_UNUSED(tv)); + DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv)); + + /* XXX: Stack discipline is annoying, could be changed in numconv. */ + duk_push_tval(js_ctx->thr, tv); + duk__enc_double(js_ctx); + duk_pop(js_ctx->thr); + +#if 0 + /* Could also rely on native sprintf(), but it will handle + * values like NaN, Infinity, -0, exponent notation etc in + * a JSON-incompatible way. + */ + duk_double_t d; + char buf[64]; + + DUK_ASSERT(DUK_TVAL_IS_DOUBLE(tv)); + d = DUK_TVAL_GET_DOUBLE(tv); + DUK_SPRINTF(buf, "%lg", d); + DUK__EMIT_CSTR(js_ctx, buf); +#endif + } + } + return 1; /* not undefined */ + + emit_undefined: + return 0; /* value was undefined/unsupported */ + + abort_fastpath: + /* Error message doesn't matter: the error is ignored anyway. */ + DUK_DD(DUK_DDPRINT("aborting fast path")); + DUK_ERROR_INTERNAL(js_ctx->thr); + DUK_WO_NORETURN(return 0;); +} + +DUK_LOCAL duk_ret_t duk__json_stringify_fast(duk_hthread *thr, void *udata) { + duk_json_enc_ctx *js_ctx; + duk_tval *tv; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(udata != NULL); + + js_ctx = (duk_json_enc_ctx *) udata; + DUK_ASSERT(js_ctx != NULL); + + tv = DUK_GET_TVAL_NEGIDX(thr, -1); + if (duk__json_stringify_fast_value(js_ctx, tv) == 0) { + DUK_DD(DUK_DDPRINT("top level value not supported, fail fast path")); + DUK_DCERROR_TYPE_INVALID_ARGS(thr); /* Error message is ignored, so doesn't matter. */ + } + + return 0; +} +#endif /* DUK_USE_JSON_STRINGIFY_FASTPATH */ + +/* + * Top level wrappers + */ + +DUK_INTERNAL +void duk_bi_json_parse_helper(duk_hthread *thr, + duk_idx_t idx_value, + duk_idx_t idx_reviver, + duk_small_uint_t flags) { + duk_json_dec_ctx js_ctx_alloc; + duk_json_dec_ctx *js_ctx = &js_ctx_alloc; + duk_hstring *h_text; +#if defined(DUK_USE_ASSERTIONS) + duk_idx_t entry_top = duk_get_top(thr); +#endif + + /* negative top-relative indices not allowed now */ + DUK_ASSERT(idx_value == DUK_INVALID_INDEX || idx_value >= 0); + DUK_ASSERT(idx_reviver == DUK_INVALID_INDEX || idx_reviver >= 0); + + DUK_DDD(DUK_DDDPRINT("JSON parse start: text=%!T, reviver=%!T, flags=0x%08lx, stack_top=%ld", + (duk_tval *) duk_get_tval(thr, idx_value), + (duk_tval *) duk_get_tval(thr, idx_reviver), + (unsigned long) flags, + (long) duk_get_top(thr))); + + duk_memzero(&js_ctx_alloc, sizeof(js_ctx_alloc)); + js_ctx->thr = thr; +#if defined(DUK_USE_EXPLICIT_NULL_INIT) + /* nothing now */ +#endif + js_ctx->recursion_limit = DUK_USE_JSON_DEC_RECLIMIT; + DUK_ASSERT(js_ctx->recursion_depth == 0); + + /* Flag handling currently assumes that flags are consistent. This is OK + * because the call sites are now strictly controlled. + */ + + js_ctx->flags = flags; +#if defined(DUK_USE_JX) + js_ctx->flag_ext_custom = flags & DUK_JSON_FLAG_EXT_CUSTOM; +#endif +#if defined(DUK_USE_JC) + js_ctx->flag_ext_compatible = flags & DUK_JSON_FLAG_EXT_COMPATIBLE; +#endif +#if defined(DUK_USE_JX) || defined(DUK_USE_JC) + js_ctx->flag_ext_custom_or_compatible = flags & (DUK_JSON_FLAG_EXT_CUSTOM | DUK_JSON_FLAG_EXT_COMPATIBLE); +#endif + + h_text = duk_to_hstring(thr, idx_value); /* coerce in-place; rejects Symbols */ + DUK_ASSERT(h_text != NULL); + + /* JSON parsing code is allowed to read [p_start,p_end]: p_end is + * valid and points to the string NUL terminator (which is always + * guaranteed for duk_hstrings. + */ + js_ctx->p_start = (const duk_uint8_t *) DUK_HSTRING_GET_DATA(h_text); + js_ctx->p = js_ctx->p_start; + js_ctx->p_end = ((const duk_uint8_t *) DUK_HSTRING_GET_DATA(h_text)) + + DUK_HSTRING_GET_BYTELEN(h_text); + DUK_ASSERT(*(js_ctx->p_end) == 0x00); + + duk__dec_value(js_ctx); /* -> [ ... value ] */ + + /* Trailing whitespace has been eaten by duk__dec_value(), so if + * we're not at end of input here, it's a SyntaxError. + */ + + if (js_ctx->p != js_ctx->p_end) { + duk__dec_syntax_error(js_ctx); + } + + if (duk_is_callable(thr, idx_reviver)) { + DUK_DDD(DUK_DDDPRINT("applying reviver: %!T", + (duk_tval *) duk_get_tval(thr, idx_reviver))); + + js_ctx->idx_reviver = idx_reviver; + + duk_push_object(thr); + duk_dup_m2(thr); /* -> [ ... val root val ] */ + duk_put_prop_stridx_short(thr, -2, DUK_STRIDX_EMPTY_STRING); /* default attrs ok */ + duk_push_hstring_stridx(thr, DUK_STRIDX_EMPTY_STRING); /* -> [ ... val root "" ] */ + + DUK_DDD(DUK_DDDPRINT("start reviver walk, root=%!T, name=%!T", + (duk_tval *) duk_get_tval(thr, -2), + (duk_tval *) duk_get_tval(thr, -1))); + + duk__dec_reviver_walk(js_ctx); /* [ ... val root "" ] -> [ ... val val' ] */ + duk_remove_m2(thr); /* -> [ ... val' ] */ + } else { + DUK_DDD(DUK_DDDPRINT("reviver does not exist or is not callable: %!T", + (duk_tval *) duk_get_tval(thr, idx_reviver))); + } + + /* Final result is at stack top. */ + + DUK_DDD(DUK_DDDPRINT("JSON parse end: text=%!T, reviver=%!T, flags=0x%08lx, result=%!T, stack_top=%ld", + (duk_tval *) duk_get_tval(thr, idx_value), + (duk_tval *) duk_get_tval(thr, idx_reviver), + (unsigned long) flags, + (duk_tval *) duk_get_tval(thr, -1), + (long) duk_get_top(thr))); + + DUK_ASSERT(duk_get_top(thr) == entry_top + 1); +} + +DUK_INTERNAL +void duk_bi_json_stringify_helper(duk_hthread *thr, + duk_idx_t idx_value, + duk_idx_t idx_replacer, + duk_idx_t idx_space, + duk_small_uint_t flags) { + duk_json_enc_ctx js_ctx_alloc; + duk_json_enc_ctx *js_ctx = &js_ctx_alloc; + duk_hobject *h; + duk_idx_t idx_holder; + duk_idx_t entry_top; + + /* negative top-relative indices not allowed now */ + DUK_ASSERT(idx_value == DUK_INVALID_INDEX || idx_value >= 0); + DUK_ASSERT(idx_replacer == DUK_INVALID_INDEX || idx_replacer >= 0); + DUK_ASSERT(idx_space == DUK_INVALID_INDEX || idx_space >= 0); + + DUK_DDD(DUK_DDDPRINT("JSON stringify start: value=%!T, replacer=%!T, space=%!T, flags=0x%08lx, stack_top=%ld", + (duk_tval *) duk_get_tval(thr, idx_value), + (duk_tval *) duk_get_tval(thr, idx_replacer), + (duk_tval *) duk_get_tval(thr, idx_space), + (unsigned long) flags, + (long) duk_get_top(thr))); + + entry_top = duk_get_top(thr); + + /* + * Context init + */ + + duk_memzero(&js_ctx_alloc, sizeof(js_ctx_alloc)); + js_ctx->thr = thr; +#if defined(DUK_USE_EXPLICIT_NULL_INIT) + js_ctx->h_replacer = NULL; + js_ctx->h_gap = NULL; +#endif + js_ctx->idx_proplist = -1; + + /* Flag handling currently assumes that flags are consistent. This is OK + * because the call sites are now strictly controlled. + */ + + js_ctx->flags = flags; + js_ctx->flag_ascii_only = flags & DUK_JSON_FLAG_ASCII_ONLY; + js_ctx->flag_avoid_key_quotes = flags & DUK_JSON_FLAG_AVOID_KEY_QUOTES; +#if defined(DUK_USE_JX) + js_ctx->flag_ext_custom = flags & DUK_JSON_FLAG_EXT_CUSTOM; +#endif +#if defined(DUK_USE_JC) + js_ctx->flag_ext_compatible = flags & DUK_JSON_FLAG_EXT_COMPATIBLE; +#endif +#if defined(DUK_USE_JX) || defined(DUK_USE_JC) + js_ctx->flag_ext_custom_or_compatible = flags & (DUK_JSON_FLAG_EXT_CUSTOM | DUK_JSON_FLAG_EXT_COMPATIBLE); +#endif + + /* The #if defined() clutter here handles the JX/JC enable/disable + * combinations properly. + */ +#if defined(DUK_USE_JX) || defined(DUK_USE_JC) + js_ctx->stridx_custom_undefined = DUK_STRIDX_LC_NULL; /* standard JSON; array gaps */ +#if defined(DUK_USE_JX) + if (flags & DUK_JSON_FLAG_EXT_CUSTOM) { + js_ctx->stridx_custom_undefined = DUK_STRIDX_LC_UNDEFINED; + js_ctx->stridx_custom_nan = DUK_STRIDX_NAN; + js_ctx->stridx_custom_neginf = DUK_STRIDX_MINUS_INFINITY; + js_ctx->stridx_custom_posinf = DUK_STRIDX_INFINITY; + js_ctx->stridx_custom_function = + (flags & DUK_JSON_FLAG_AVOID_KEY_QUOTES) ? + DUK_STRIDX_JSON_EXT_FUNCTION2 : + DUK_STRIDX_JSON_EXT_FUNCTION1; + } +#endif /* DUK_USE_JX */ +#if defined(DUK_USE_JX) && defined(DUK_USE_JC) + else +#endif /* DUK_USE_JX && DUK_USE_JC */ +#if defined(DUK_USE_JC) + if (js_ctx->flags & DUK_JSON_FLAG_EXT_COMPATIBLE) { + js_ctx->stridx_custom_undefined = DUK_STRIDX_JSON_EXT_UNDEFINED; + js_ctx->stridx_custom_nan = DUK_STRIDX_JSON_EXT_NAN; + js_ctx->stridx_custom_neginf = DUK_STRIDX_JSON_EXT_NEGINF; + js_ctx->stridx_custom_posinf = DUK_STRIDX_JSON_EXT_POSINF; + js_ctx->stridx_custom_function = DUK_STRIDX_JSON_EXT_FUNCTION1; + } +#endif /* DUK_USE_JC */ +#endif /* DUK_USE_JX || DUK_USE_JC */ + +#if defined(DUK_USE_JX) || defined(DUK_USE_JC) + if (js_ctx->flags & (DUK_JSON_FLAG_EXT_CUSTOM | + DUK_JSON_FLAG_EXT_COMPATIBLE)) { + DUK_ASSERT(js_ctx->mask_for_undefined == 0); /* already zero */ + } + else +#endif /* DUK_USE_JX || DUK_USE_JC */ + { + /* Plain buffer is treated like ArrayBuffer and serialized. + * Lightfuncs are treated like objects, but JSON explicitly + * skips serializing Function objects so we can just reject + * lightfuncs here. + */ + js_ctx->mask_for_undefined = DUK_TYPE_MASK_UNDEFINED | + DUK_TYPE_MASK_POINTER | + DUK_TYPE_MASK_LIGHTFUNC; + } + + DUK_BW_INIT_PUSHBUF(thr, &js_ctx->bw, DUK__JSON_STRINGIFY_BUFSIZE); + + js_ctx->idx_loop = duk_push_bare_object(thr); + DUK_ASSERT(js_ctx->idx_loop >= 0); + + /* [ ... buf loop ] */ + + /* + * Process replacer/proplist (2nd argument to JSON.stringify) + */ + + h = duk_get_hobject(thr, idx_replacer); + if (h != NULL) { + if (DUK_HOBJECT_IS_CALLABLE(h)) { + js_ctx->h_replacer = h; + } else if (duk_js_isarray_hobject(h)) { + /* Here the specification requires correct array index enumeration + * which is a bit tricky for sparse arrays (it is handled by the + * enum setup code). We now enumerate ancestors too, although the + * specification is not very clear on whether that is required. + */ + + duk_uarridx_t plist_idx = 0; + duk_small_uint_t enum_flags; + + js_ctx->idx_proplist = duk_push_array(thr); /* XXX: array internal? */ + + enum_flags = DUK_ENUM_ARRAY_INDICES_ONLY | + DUK_ENUM_SORT_ARRAY_INDICES; /* expensive flag */ + duk_enum(thr, idx_replacer, enum_flags); + while (duk_next(thr, -1 /*enum_index*/, 1 /*get_value*/)) { + /* [ ... proplist enum_obj key val ] */ + if (duk__enc_allow_into_proplist(duk_get_tval(thr, -1))) { + /* XXX: duplicates should be eliminated here */ + DUK_DDD(DUK_DDDPRINT("proplist enum: key=%!T, val=%!T --> accept", + (duk_tval *) duk_get_tval(thr, -2), + (duk_tval *) duk_get_tval(thr, -1))); + duk_to_string(thr, -1); /* extra coercion of strings is OK */ + duk_put_prop_index(thr, -4, plist_idx); /* -> [ ... proplist enum_obj key ] */ + plist_idx++; + duk_pop(thr); + } else { + DUK_DDD(DUK_DDDPRINT("proplist enum: key=%!T, val=%!T --> reject", + (duk_tval *) duk_get_tval(thr, -2), + (duk_tval *) duk_get_tval(thr, -1))); + duk_pop_2(thr); + } + } + duk_pop(thr); /* pop enum */ + + /* [ ... proplist ] */ + } + } + + /* [ ... buf loop (proplist) ] */ + + /* + * Process space (3rd argument to JSON.stringify) + */ + + h = duk_get_hobject(thr, idx_space); + if (h != NULL) { + duk_small_uint_t c = DUK_HOBJECT_GET_CLASS_NUMBER(h); + if (c == DUK_HOBJECT_CLASS_NUMBER) { + duk_to_number(thr, idx_space); + } else if (c == DUK_HOBJECT_CLASS_STRING) { + duk_to_string(thr, idx_space); + } + } + + if (duk_is_number(thr, idx_space)) { + duk_small_int_t nspace; + /* spaces[] must be static to allow initializer with old compilers like BCC */ + static const char spaces[10] = { + DUK_ASC_SPACE, DUK_ASC_SPACE, DUK_ASC_SPACE, DUK_ASC_SPACE, + DUK_ASC_SPACE, DUK_ASC_SPACE, DUK_ASC_SPACE, DUK_ASC_SPACE, + DUK_ASC_SPACE, DUK_ASC_SPACE + }; /* XXX: helper */ + + /* ToInteger() coercion; NaN -> 0, infinities are clamped to 0 and 10 */ + nspace = (duk_small_int_t) duk_to_int_clamped(thr, idx_space, 0 /*minval*/, 10 /*maxval*/); + DUK_ASSERT(nspace >= 0 && nspace <= 10); + + duk_push_lstring(thr, spaces, (duk_size_t) nspace); + js_ctx->h_gap = duk_known_hstring(thr, -1); + DUK_ASSERT(js_ctx->h_gap != NULL); + } else if (duk_is_string_notsymbol(thr, idx_space)) { + duk_dup(thr, idx_space); + duk_substring(thr, -1, 0, 10); /* clamp to 10 chars */ + js_ctx->h_gap = duk_known_hstring(thr, -1); + } else { + /* nop */ + } + + if (js_ctx->h_gap != NULL) { + /* If gap is empty, behave as if not given at all. Check + * against byte length because character length is more + * expensive. + */ + if (DUK_HSTRING_GET_BYTELEN(js_ctx->h_gap) == 0) { + js_ctx->h_gap = NULL; + } + } + + /* [ ... buf loop (proplist) (gap) ] */ + + /* + * Fast path: assume no mutation, iterate object property tables + * directly; bail out if that assumption doesn't hold. + */ + +#if defined(DUK_USE_JSON_STRINGIFY_FASTPATH) + if (js_ctx->h_replacer == NULL && /* replacer is a mutation risk */ + js_ctx->idx_proplist == -1) { /* proplist is very rare */ + duk_int_t pcall_rc; + duk_small_uint_t prev_ms_base_flags; + + DUK_DD(DUK_DDPRINT("try JSON.stringify() fast path")); + + /* Use recursion_limit to ensure we don't overwrite js_ctx->visiting[] + * array so we don't need two counter checks in the fast path. The + * slow path has a much larger recursion limit which we'll use if + * necessary. + */ + DUK_ASSERT(DUK_USE_JSON_ENC_RECLIMIT >= DUK_JSON_ENC_LOOPARRAY); + js_ctx->recursion_limit = DUK_JSON_ENC_LOOPARRAY; + DUK_ASSERT(js_ctx->recursion_depth == 0); + + /* Execute the fast path in a protected call. If any error is thrown, + * fall back to the slow path. This includes e.g. recursion limit + * because the fast path has a smaller recursion limit (and simpler, + * limited loop detection). + */ + + duk_dup(thr, idx_value); + + /* Must prevent finalizers which may have arbitrary side effects. */ + prev_ms_base_flags = thr->heap->ms_base_flags; + thr->heap->ms_base_flags |= + DUK_MS_FLAG_NO_OBJECT_COMPACTION; /* Avoid attempt to compact any objects. */ + thr->heap->pf_prevent_count++; /* Prevent finalizers. */ + DUK_ASSERT(thr->heap->pf_prevent_count != 0); /* Wrap. */ + + pcall_rc = duk_safe_call(thr, duk__json_stringify_fast, (void *) js_ctx /*udata*/, 1 /*nargs*/, 0 /*nret*/); + + DUK_ASSERT(thr->heap->pf_prevent_count > 0); + thr->heap->pf_prevent_count--; + thr->heap->ms_base_flags = prev_ms_base_flags; + + if (pcall_rc == DUK_EXEC_SUCCESS) { + DUK_DD(DUK_DDPRINT("fast path successful")); + DUK_BW_PUSH_AS_STRING(thr, &js_ctx->bw); + goto replace_finished; + } + + /* We come here for actual aborts (like encountering .toJSON()) + * but also for recursion/loop errors. Bufwriter size can be + * kept because we'll probably need at least as much as we've + * allocated so far. + */ + DUK_D(DUK_DPRINT("fast path failed, serialize using slow path instead")); + DUK_BW_RESET_SIZE(thr, &js_ctx->bw); + js_ctx->recursion_depth = 0; + } +#endif + + /* + * Create wrapper object and serialize + */ + + idx_holder = duk_push_object(thr); + duk_dup(thr, idx_value); + duk_put_prop_stridx_short(thr, -2, DUK_STRIDX_EMPTY_STRING); + + DUK_DDD(DUK_DDDPRINT("before: flags=0x%08lx, loop=%!T, replacer=%!O, " + "proplist=%!T, gap=%!O, holder=%!T", + (unsigned long) js_ctx->flags, + (duk_tval *) duk_get_tval(thr, js_ctx->idx_loop), + (duk_heaphdr *) js_ctx->h_replacer, + (duk_tval *) (js_ctx->idx_proplist >= 0 ? duk_get_tval(thr, js_ctx->idx_proplist) : NULL), + (duk_heaphdr *) js_ctx->h_gap, + (duk_tval *) duk_get_tval(thr, -1))); + + /* serialize the wrapper with empty string key */ + + duk_push_hstring_empty(thr); + + /* [ ... buf loop (proplist) (gap) holder "" ] */ + + js_ctx->recursion_limit = DUK_USE_JSON_ENC_RECLIMIT; + DUK_ASSERT(js_ctx->recursion_depth == 0); + + if (DUK_UNLIKELY(duk__enc_value(js_ctx, idx_holder) == 0)) { /* [ ... holder key ] -> [ ... holder ] */ + /* Result is undefined. */ + duk_push_undefined(thr); + } else { + /* Convert buffer to result string. */ + DUK_BW_PUSH_AS_STRING(thr, &js_ctx->bw); + } + + DUK_DDD(DUK_DDDPRINT("after: flags=0x%08lx, loop=%!T, replacer=%!O, " + "proplist=%!T, gap=%!O, holder=%!T", + (unsigned long) js_ctx->flags, + (duk_tval *) duk_get_tval(thr, js_ctx->idx_loop), + (duk_heaphdr *) js_ctx->h_replacer, + (duk_tval *) (js_ctx->idx_proplist >= 0 ? duk_get_tval(thr, js_ctx->idx_proplist) : NULL), + (duk_heaphdr *) js_ctx->h_gap, + (duk_tval *) duk_get_tval(thr, idx_holder))); + + /* The stack has a variable shape here, so force it to the + * desired one explicitly. + */ + +#if defined(DUK_USE_JSON_STRINGIFY_FASTPATH) + replace_finished: +#endif + duk_replace(thr, entry_top); + duk_set_top(thr, entry_top + 1); + + DUK_DDD(DUK_DDDPRINT("JSON stringify end: value=%!T, replacer=%!T, space=%!T, " + "flags=0x%08lx, result=%!T, stack_top=%ld", + (duk_tval *) duk_get_tval(thr, idx_value), + (duk_tval *) duk_get_tval(thr, idx_replacer), + (duk_tval *) duk_get_tval(thr, idx_space), + (unsigned long) flags, + (duk_tval *) duk_get_tval(thr, -1), + (long) duk_get_top(thr))); + + DUK_ASSERT(duk_get_top(thr) == entry_top + 1); +} + +#if defined(DUK_USE_JSON_BUILTIN) + +/* + * Entry points + */ + +DUK_INTERNAL duk_ret_t duk_bi_json_object_parse(duk_hthread *thr) { + duk_bi_json_parse_helper(thr, + 0 /*idx_value*/, + 1 /*idx_replacer*/, + 0 /*flags*/); + return 1; +} + +DUK_INTERNAL duk_ret_t duk_bi_json_object_stringify(duk_hthread *thr) { + duk_bi_json_stringify_helper(thr, + 0 /*idx_value*/, + 1 /*idx_replacer*/, + 2 /*idx_space*/, + 0 /*flags*/); + return 1; +} + +#endif /* DUK_USE_JSON_BUILTIN */ + +#endif /* DUK_USE_JSON_SUPPORT */ + +/* automatic undefs */ +#undef DUK__EMIT_1 +#undef DUK__EMIT_2 +#undef DUK__EMIT_CSTR +#undef DUK__EMIT_HSTR +#undef DUK__EMIT_STRIDX +#undef DUK__JSON_DECSTR_BUFSIZE +#undef DUK__JSON_DECSTR_CHUNKSIZE +#undef DUK__JSON_ENCSTR_CHUNKSIZE +#undef DUK__JSON_MAX_ESC_LEN +#undef DUK__JSON_STRINGIFY_BUFSIZE +#undef DUK__MKESC +#undef DUK__UNEMIT_1 +#line 1 "duk_bi_math.c" +/* + * Math built-ins + */ + +/* #include duk_internal.h -> already included */ + +#if defined(DUK_USE_MATH_BUILTIN) + +/* + * Use static helpers which can work with math.h functions matching + * the following signatures. This is not portable if any of these math + * functions is actually a macro. + * + * Typing here is intentionally 'double' wherever values interact with + * the standard library APIs. + */ + +typedef double (*duk__one_arg_func)(double); +typedef double (*duk__two_arg_func)(double, double); + +DUK_LOCAL duk_ret_t duk__math_minmax(duk_hthread *thr, duk_double_t initial, duk__two_arg_func min_max) { + duk_idx_t n = duk_get_top(thr); + duk_idx_t i; + duk_double_t res = initial; + duk_double_t t; + + /* + * Note: fmax() does not match the E5 semantics. E5 requires + * that if -any- input to Math.max() is a NaN, the result is a + * NaN. fmax() will return a NaN only if -both- inputs are NaN. + * Same applies to fmin(). + * + * Note: every input value must be coerced with ToNumber(), even + * if we know the result will be a NaN anyway: ToNumber() may have + * side effects for which even order of evaluation matters. + */ + + for (i = 0; i < n; i++) { + t = duk_to_number(thr, i); + if (DUK_FPCLASSIFY(t) == DUK_FP_NAN || DUK_FPCLASSIFY(res) == DUK_FP_NAN) { + /* Note: not normalized, but duk_push_number() will normalize */ + res = (duk_double_t) DUK_DOUBLE_NAN; + } else { + res = (duk_double_t) min_max(res, (double) t); + } + } + + duk_push_number(thr, res); + return 1; +} + +DUK_LOCAL double duk__fmin_fixed(double x, double y) { + /* fmin() with args -0 and +0 is not guaranteed to return + * -0 as ECMAScript requires. + */ + if (duk_double_equals(x, 0.0) && duk_double_equals(y, 0.0)) { + duk_double_union du1, du2; + du1.d = x; + du2.d = y; + + /* Already checked to be zero so these must hold, and allow us + * to check for "x is -0 or y is -0" by ORing the high parts + * for comparison. + */ + DUK_ASSERT(du1.ui[DUK_DBL_IDX_UI0] == 0 || du1.ui[DUK_DBL_IDX_UI0] == 0x80000000UL); + DUK_ASSERT(du2.ui[DUK_DBL_IDX_UI0] == 0 || du2.ui[DUK_DBL_IDX_UI0] == 0x80000000UL); + + /* XXX: what's the safest way of creating a negative zero? */ + if ((du1.ui[DUK_DBL_IDX_UI0] | du2.ui[DUK_DBL_IDX_UI0]) != 0) { + /* Enter here if either x or y (or both) is -0. */ + return -0.0; + } else { + return +0.0; + } + } + return duk_double_fmin(x, y); +} + +DUK_LOCAL double duk__fmax_fixed(double x, double y) { + /* fmax() with args -0 and +0 is not guaranteed to return + * +0 as ECMAScript requires. + */ + if (duk_double_equals(x, 0.0) && duk_double_equals(y, 0.0)) { + if (DUK_SIGNBIT(x) == 0 || DUK_SIGNBIT(y) == 0) { + return +0.0; + } else { + return -0.0; + } + } + return duk_double_fmax(x, y); +} + +#if defined(DUK_USE_ES6) +DUK_LOCAL double duk__cbrt(double x) { + /* cbrt() is C99. To avoid hassling embedders with the need to provide a + * cube root function, we can get by with pow(). The result is not + * identical, but that's OK: ES2015 says it's implementation-dependent. + */ + +#if defined(DUK_CBRT) + /* cbrt() matches ES2015 requirements. */ + return DUK_CBRT(x); +#else + duk_small_int_t c = (duk_small_int_t) DUK_FPCLASSIFY(x); + + /* pow() does not, however. */ + if (c == DUK_FP_NAN || c == DUK_FP_INFINITE || c == DUK_FP_ZERO) { + return x; + } + if (DUK_SIGNBIT(x)) { + return -DUK_POW(-x, 1.0 / 3.0); + } else { + return DUK_POW(x, 1.0 / 3.0); + } +#endif +} + +DUK_LOCAL double duk__log2(double x) { +#if defined(DUK_LOG2) + return DUK_LOG2(x); +#else + return DUK_LOG(x) * DUK_DOUBLE_LOG2E; +#endif +} + +DUK_LOCAL double duk__log10(double x) { +#if defined(DUK_LOG10) + return DUK_LOG10(x); +#else + return DUK_LOG(x) * DUK_DOUBLE_LOG10E; +#endif +} + +DUK_LOCAL double duk__trunc(double x) { +#if defined(DUK_TRUNC) + return DUK_TRUNC(x); +#else + /* Handles -0 correctly: -0.0 matches 'x >= 0.0' but floor() + * is required to return -0 when the argument is -0. + */ + return x >= 0.0 ? DUK_FLOOR(x) : DUK_CEIL(x); +#endif +} +#endif /* DUK_USE_ES6 */ + +DUK_LOCAL double duk__round_fixed(double x) { + /* Numbers half-way between integers must be rounded towards +Infinity, + * e.g. -3.5 must be rounded to -3 (not -4). When rounded to zero, zero + * sign must be set appropriately. E5.1 Section 15.8.2.15. + * + * Note that ANSI C round() is "round to nearest integer, away from zero", + * which is incorrect for negative values. Here we make do with floor(). + */ + + duk_small_int_t c = (duk_small_int_t) DUK_FPCLASSIFY(x); + if (c == DUK_FP_NAN || c == DUK_FP_INFINITE || c == DUK_FP_ZERO) { + return x; + } + + /* + * x is finite and non-zero + * + * -1.6 -> floor(-1.1) -> -2 + * -1.5 -> floor(-1.0) -> -1 (towards +Inf) + * -1.4 -> floor(-0.9) -> -1 + * -0.5 -> -0.0 (special case) + * -0.1 -> -0.0 (special case) + * +0.1 -> +0.0 (special case) + * +0.5 -> floor(+1.0) -> 1 (towards +Inf) + * +1.4 -> floor(+1.9) -> 1 + * +1.5 -> floor(+2.0) -> 2 (towards +Inf) + * +1.6 -> floor(+2.1) -> 2 + */ + + if (x >= -0.5 && x < 0.5) { + /* +0.5 is handled by floor, this is on purpose */ + if (x < 0.0) { + return -0.0; + } else { + return +0.0; + } + } + + return DUK_FLOOR(x + 0.5); +} + +/* Wrappers for calling standard math library methods. These may be required + * on platforms where one or more of the math built-ins are defined as macros + * or inline functions and are thus not suitable to be used as function pointers. + */ +#if defined(DUK_USE_AVOID_PLATFORM_FUNCPTRS) +DUK_LOCAL double duk__fabs(double x) { + return DUK_FABS(x); +} +DUK_LOCAL double duk__acos(double x) { + return DUK_ACOS(x); +} +DUK_LOCAL double duk__asin(double x) { + return DUK_ASIN(x); +} +DUK_LOCAL double duk__atan(double x) { + return DUK_ATAN(x); +} +DUK_LOCAL double duk__ceil(double x) { + return DUK_CEIL(x); +} +DUK_LOCAL double duk__cos(double x) { + return DUK_COS(x); +} +DUK_LOCAL double duk__exp(double x) { + return DUK_EXP(x); +} +DUK_LOCAL double duk__floor(double x) { + return DUK_FLOOR(x); +} +DUK_LOCAL double duk__log(double x) { + return DUK_LOG(x); +} +DUK_LOCAL double duk__sin(double x) { + return DUK_SIN(x); +} +DUK_LOCAL double duk__sqrt(double x) { + return DUK_SQRT(x); +} +DUK_LOCAL double duk__tan(double x) { + return DUK_TAN(x); +} +DUK_LOCAL double duk__atan2_fixed(double x, double y) { +#if defined(DUK_USE_ATAN2_WORKAROUNDS) + /* Specific fixes to common atan2() implementation issues: + * - test-bug-mingw-math-issues.js + */ + if (DUK_ISINF(x) && DUK_ISINF(y)) { + if (DUK_SIGNBIT(x)) { + if (DUK_SIGNBIT(y)) { + return -2.356194490192345; + } else { + return -0.7853981633974483; + } + } else { + if (DUK_SIGNBIT(y)) { + return 2.356194490192345; + } else { + return 0.7853981633974483; + } + } + } +#else + /* Some ISO C assumptions. */ + + DUK_ASSERT(duk_double_equals(DUK_ATAN2(DUK_DOUBLE_INFINITY, DUK_DOUBLE_INFINITY), 0.7853981633974483)); + DUK_ASSERT(duk_double_equals(DUK_ATAN2(-DUK_DOUBLE_INFINITY, DUK_DOUBLE_INFINITY), -0.7853981633974483)); + DUK_ASSERT(duk_double_equals(DUK_ATAN2(DUK_DOUBLE_INFINITY, -DUK_DOUBLE_INFINITY), 2.356194490192345)); + DUK_ASSERT(duk_double_equals(DUK_ATAN2(-DUK_DOUBLE_INFINITY, -DUK_DOUBLE_INFINITY), -2.356194490192345)); +#endif + + return DUK_ATAN2(x, y); +} +#endif /* DUK_USE_AVOID_PLATFORM_FUNCPTRS */ + +/* order must match constants in genbuiltins.py */ +DUK_LOCAL const duk__one_arg_func duk__one_arg_funcs[] = { +#if defined(DUK_USE_AVOID_PLATFORM_FUNCPTRS) + duk__fabs, + duk__acos, + duk__asin, + duk__atan, + duk__ceil, + duk__cos, + duk__exp, + duk__floor, + duk__log, + duk__round_fixed, + duk__sin, + duk__sqrt, + duk__tan, +#if defined(DUK_USE_ES6) + duk__cbrt, + duk__log2, + duk__log10, + duk__trunc +#endif +#else /* DUK_USE_AVOID_PLATFORM_FUNCPTRS */ + DUK_FABS, + DUK_ACOS, + DUK_ASIN, + DUK_ATAN, + DUK_CEIL, + DUK_COS, + DUK_EXP, + DUK_FLOOR, + DUK_LOG, + duk__round_fixed, + DUK_SIN, + DUK_SQRT, + DUK_TAN, +#if defined(DUK_USE_ES6) + duk__cbrt, + duk__log2, + duk__log10, + duk__trunc +#endif +#endif /* DUK_USE_AVOID_PLATFORM_FUNCPTRS */ +}; + +/* order must match constants in genbuiltins.py */ +DUK_LOCAL const duk__two_arg_func duk__two_arg_funcs[] = { +#if defined(DUK_USE_AVOID_PLATFORM_FUNCPTRS) + duk__atan2_fixed, + duk_js_arith_pow +#else + duk__atan2_fixed, + duk_js_arith_pow +#endif +}; + +DUK_INTERNAL duk_ret_t duk_bi_math_object_onearg_shared(duk_hthread *thr) { + duk_small_int_t fun_idx = duk_get_current_magic(thr); + duk__one_arg_func fun; + duk_double_t arg1; + + DUK_ASSERT(fun_idx >= 0); + DUK_ASSERT(fun_idx < (duk_small_int_t) (sizeof(duk__one_arg_funcs) / sizeof(duk__one_arg_func))); + arg1 = duk_to_number(thr, 0); + fun = duk__one_arg_funcs[fun_idx]; + duk_push_number(thr, (duk_double_t) fun((double) arg1)); + return 1; +} + +DUK_INTERNAL duk_ret_t duk_bi_math_object_twoarg_shared(duk_hthread *thr) { + duk_small_int_t fun_idx = duk_get_current_magic(thr); + duk__two_arg_func fun; + duk_double_t arg1; + duk_double_t arg2; + + DUK_ASSERT(fun_idx >= 0); + DUK_ASSERT(fun_idx < (duk_small_int_t) (sizeof(duk__two_arg_funcs) / sizeof(duk__two_arg_func))); + arg1 = duk_to_number(thr, 0); /* explicit ordered evaluation to match coercion semantics */ + arg2 = duk_to_number(thr, 1); + fun = duk__two_arg_funcs[fun_idx]; + duk_push_number(thr, (duk_double_t) fun((double) arg1, (double) arg2)); + return 1; +} + +DUK_INTERNAL duk_ret_t duk_bi_math_object_max(duk_hthread *thr) { + return duk__math_minmax(thr, -DUK_DOUBLE_INFINITY, duk__fmax_fixed); +} + +DUK_INTERNAL duk_ret_t duk_bi_math_object_min(duk_hthread *thr) { + return duk__math_minmax(thr, DUK_DOUBLE_INFINITY, duk__fmin_fixed); +} + +DUK_INTERNAL duk_ret_t duk_bi_math_object_random(duk_hthread *thr) { + duk_push_number(thr, (duk_double_t) DUK_UTIL_GET_RANDOM_DOUBLE(thr)); + return 1; +} + +#if defined(DUK_USE_ES6) +DUK_INTERNAL duk_ret_t duk_bi_math_object_hypot(duk_hthread *thr) { + /* + * E6 Section 20.2.2.18: Math.hypot + * + * - If no arguments are passed, the result is +0. + * - If any argument is +inf, the result is +inf. + * - If any argument is -inf, the result is +inf. + * - If no argument is +inf or -inf, and any argument is NaN, the result is + * NaN. + * - If all arguments are either +0 or -0, the result is +0. + */ + + duk_idx_t nargs; + duk_idx_t i; + duk_bool_t found_nan; + duk_double_t max; + duk_double_t sum, summand; + duk_double_t comp, prelim; + duk_double_t t; + + nargs = duk_get_top(thr); + + /* Find the highest value. Also ToNumber() coerces. */ + max = 0.0; + found_nan = 0; + for (i = 0; i < nargs; i++) { + t = DUK_FABS(duk_to_number(thr, i)); + if (DUK_FPCLASSIFY(t) == DUK_FP_NAN) { + found_nan = 1; + } else { + max = duk_double_fmax(max, t); + } + } + + /* Early return cases. */ + if (duk_double_equals(max, DUK_DOUBLE_INFINITY)) { + duk_push_number(thr, DUK_DOUBLE_INFINITY); + return 1; + } else if (found_nan) { + duk_push_number(thr, DUK_DOUBLE_NAN); + return 1; + } else if (duk_double_equals(max, 0.0)) { + duk_push_number(thr, 0.0); + /* Otherwise we'd divide by zero. */ + return 1; + } + + /* Use Kahan summation and normalize to the highest value to minimize + * floating point rounding error and avoid overflow. + * + * https://en.wikipedia.org/wiki/Kahan_summation_algorithm + */ + sum = 0.0; + comp = 0.0; + for (i = 0; i < nargs; i++) { + t = DUK_FABS(duk_get_number(thr, i)) / max; + summand = (t * t) - comp; + prelim = sum + summand; + comp = (prelim - sum) - summand; + sum = prelim; + } + + duk_push_number(thr, (duk_double_t) DUK_SQRT(sum) * max); + return 1; +} +#endif /* DUK_USE_ES6 */ + +#if defined(DUK_USE_ES6) +DUK_INTERNAL duk_ret_t duk_bi_math_object_sign(duk_hthread *thr) { + duk_double_t d; + + d = duk_to_number(thr, 0); + if (duk_double_is_nan(d)) { + DUK_ASSERT(duk_is_nan(thr, -1)); + return 1; /* NaN input -> return NaN */ + } + if (duk_double_equals(d, 0.0)) { + /* Zero sign kept, i.e. -0 -> -0, +0 -> +0. */ + return 1; + } + duk_push_int(thr, (d > 0.0 ? 1 : -1)); + return 1; +} +#endif /* DUK_USE_ES6 */ + +#if defined(DUK_USE_ES6) +DUK_INTERNAL duk_ret_t duk_bi_math_object_clz32(duk_hthread *thr) { + duk_uint32_t x; + duk_small_uint_t i; + +#if defined(DUK_USE_PREFER_SIZE) + duk_uint32_t mask; + + x = duk_to_uint32(thr, 0); + for (i = 0, mask = 0x80000000UL; mask != 0; mask >>= 1) { + if (x & mask) { + break; + } + i++; + } + DUK_ASSERT(i <= 32); + duk_push_uint(thr, i); + return 1; +#else /* DUK_USE_PREFER_SIZE */ + i = 0; + x = duk_to_uint32(thr, 0); + if (x & 0xffff0000UL) { + x >>= 16; + } else { + i += 16; + } + if (x & 0x0000ff00UL) { + x >>= 8; + } else { + i += 8; + } + if (x & 0x000000f0UL) { + x >>= 4; + } else { + i += 4; + } + if (x & 0x0000000cUL) { + x >>= 2; + } else { + i += 2; + } + if (x & 0x00000002UL) { + x >>= 1; + } else { + i += 1; + } + if (x & 0x00000001UL) { + ; + } else { + i += 1; + } + DUK_ASSERT(i <= 32); + duk_push_uint(thr, i); + return 1; +#endif /* DUK_USE_PREFER_SIZE */ +} +#endif /* DUK_USE_ES6 */ + +#if defined(DUK_USE_ES6) +DUK_INTERNAL duk_ret_t duk_bi_math_object_imul(duk_hthread *thr) { + duk_uint32_t x, y, z; + + x = duk_to_uint32(thr, 0); + y = duk_to_uint32(thr, 1); + z = x * y; + + /* While arguments are ToUint32() coerced and the multiplication + * is unsigned as such, the final result is curiously interpreted + * as a signed 32-bit value. + */ + duk_push_i32(thr, (duk_int32_t) z); + return 1; +} +#endif /* DUK_USE_ES6 */ + +#endif /* DUK_USE_MATH_BUILTIN */ +#line 1 "duk_bi_number.c" +/* + * Number built-ins + */ + +/* #include duk_internal.h -> already included */ + +#if defined(DUK_USE_NUMBER_BUILTIN) + +DUK_LOCAL duk_double_t duk__push_this_number_plain(duk_hthread *thr) { + duk_hobject *h; + + /* Number built-in accepts a plain number or a Number object (whose + * internal value is operated on). Other types cause TypeError. + */ + + duk_push_this(thr); + if (duk_is_number(thr, -1)) { + DUK_DDD(DUK_DDDPRINT("plain number value: %!T", (duk_tval *) duk_get_tval(thr, -1))); + goto done; + } + h = duk_get_hobject(thr, -1); + if (!h || + (DUK_HOBJECT_GET_CLASS_NUMBER(h) != DUK_HOBJECT_CLASS_NUMBER)) { + DUK_DDD(DUK_DDDPRINT("unacceptable this value: %!T", (duk_tval *) duk_get_tval(thr, -1))); + DUK_ERROR_TYPE(thr, "number expected"); + DUK_WO_NORETURN(return 0.0;); + } + duk_xget_owndataprop_stridx_short(thr, -1, DUK_STRIDX_INT_VALUE); + DUK_ASSERT(duk_is_number(thr, -1)); + DUK_DDD(DUK_DDDPRINT("number object: %!T, internal value: %!T", + (duk_tval *) duk_get_tval(thr, -2), (duk_tval *) duk_get_tval(thr, -1))); + duk_remove_m2(thr); + + done: + return duk_get_number(thr, -1); +} + +DUK_INTERNAL duk_ret_t duk_bi_number_constructor(duk_hthread *thr) { + duk_idx_t nargs; + duk_hobject *h_this; + + /* + * The Number constructor uses ToNumber(arg) for number coercion + * (coercing an undefined argument to NaN). However, if the + * argument is not given at all, +0 must be used instead. To do + * this, a vararg function is used. + */ + + nargs = duk_get_top(thr); + if (nargs == 0) { + duk_push_int(thr, 0); + } + duk_to_number(thr, 0); + duk_set_top(thr, 1); + DUK_ASSERT_TOP(thr, 1); + + if (!duk_is_constructor_call(thr)) { + return 1; + } + + /* + * E5 Section 15.7.2.1 requires that the constructed object + * must have the original Number.prototype as its internal + * prototype. However, since Number.prototype is non-writable + * and non-configurable, this doesn't have to be enforced here: + * The default object (bound to 'this') is OK, though we have + * to change its class. + * + * Internal value set to ToNumber(arg) or +0; if no arg given, + * ToNumber(undefined) = NaN, so special treatment is needed + * (above). String internal value is immutable. + */ + + /* XXX: helper */ + duk_push_this(thr); + h_this = duk_known_hobject(thr, -1); + DUK_HOBJECT_SET_CLASS_NUMBER(h_this, DUK_HOBJECT_CLASS_NUMBER); + + DUK_ASSERT(DUK_HOBJECT_GET_PROTOTYPE(thr->heap, h_this) == thr->builtins[DUK_BIDX_NUMBER_PROTOTYPE]); + DUK_ASSERT(DUK_HOBJECT_GET_CLASS_NUMBER(h_this) == DUK_HOBJECT_CLASS_NUMBER); + DUK_ASSERT(DUK_HOBJECT_HAS_EXTENSIBLE(h_this)); + + duk_dup_0(thr); /* -> [ val obj val ] */ + duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_INT_VALUE, DUK_PROPDESC_FLAGS_NONE); + return 0; /* no return value -> don't replace created value */ +} + +DUK_INTERNAL duk_ret_t duk_bi_number_prototype_value_of(duk_hthread *thr) { + (void) duk__push_this_number_plain(thr); + return 1; +} + +DUK_INTERNAL duk_ret_t duk_bi_number_prototype_to_string(duk_hthread *thr) { + duk_small_int_t radix; + duk_small_uint_t n2s_flags; + + (void) duk__push_this_number_plain(thr); + if (duk_is_undefined(thr, 0)) { + radix = 10; + } else { + radix = (duk_small_int_t) duk_to_int_check_range(thr, 0, 2, 36); + } + DUK_DDD(DUK_DDDPRINT("radix=%ld", (long) radix)); + + n2s_flags = 0; + + duk_numconv_stringify(thr, + radix /*radix*/, + 0 /*digits*/, + n2s_flags /*flags*/); + return 1; +} + +DUK_INTERNAL duk_ret_t duk_bi_number_prototype_to_locale_string(duk_hthread *thr) { + /* XXX: just use toString() for now; permitted although not recommended. + * nargs==1, so radix is passed to toString(). + */ + return duk_bi_number_prototype_to_string(thr); +} + +/* + * toFixed(), toExponential(), toPrecision() + */ + +/* XXX: shared helper for toFixed(), toExponential(), toPrecision()? */ + +DUK_INTERNAL duk_ret_t duk_bi_number_prototype_to_fixed(duk_hthread *thr) { + duk_small_int_t frac_digits; + duk_double_t d; + duk_small_int_t c; + duk_small_uint_t n2s_flags; + + /* In ES5.1 frac_digits is coerced first; in ES2015 the 'this number + * value' check is done first. + */ + d = duk__push_this_number_plain(thr); + frac_digits = (duk_small_int_t) duk_to_int_check_range(thr, 0, 0, 20); + + c = (duk_small_int_t) DUK_FPCLASSIFY(d); + if (c == DUK_FP_NAN || c == DUK_FP_INFINITE) { + goto use_to_string; + } + + if (d >= 1.0e21 || d <= -1.0e21) { + goto use_to_string; + } + + n2s_flags = DUK_N2S_FLAG_FIXED_FORMAT | + DUK_N2S_FLAG_FRACTION_DIGITS; + + duk_numconv_stringify(thr, + 10 /*radix*/, + frac_digits /*digits*/, + n2s_flags /*flags*/); + return 1; + + use_to_string: + DUK_ASSERT_TOP(thr, 2); + duk_to_string(thr, -1); + return 1; +} + +DUK_INTERNAL duk_ret_t duk_bi_number_prototype_to_exponential(duk_hthread *thr) { + duk_bool_t frac_undefined; + duk_small_int_t frac_digits; + duk_double_t d; + duk_small_int_t c; + duk_small_uint_t n2s_flags; + + d = duk__push_this_number_plain(thr); + + frac_undefined = duk_is_undefined(thr, 0); + duk_to_int(thr, 0); /* for side effects */ + + c = (duk_small_int_t) DUK_FPCLASSIFY(d); + if (c == DUK_FP_NAN || c == DUK_FP_INFINITE) { + goto use_to_string; + } + + frac_digits = (duk_small_int_t) duk_to_int_check_range(thr, 0, 0, 20); + + n2s_flags = DUK_N2S_FLAG_FORCE_EXP | + (frac_undefined ? 0 : DUK_N2S_FLAG_FIXED_FORMAT); + + duk_numconv_stringify(thr, + 10 /*radix*/, + frac_digits + 1 /*leading digit + fractions*/, + n2s_flags /*flags*/); + return 1; + + use_to_string: + DUK_ASSERT_TOP(thr, 2); + duk_to_string(thr, -1); + return 1; +} + +DUK_INTERNAL duk_ret_t duk_bi_number_prototype_to_precision(duk_hthread *thr) { + /* The specification has quite awkward order of coercion and + * checks for toPrecision(). The operations below are a bit + * reordered, within constraints of observable side effects. + */ + + duk_double_t d; + duk_small_int_t prec; + duk_small_int_t c; + duk_small_uint_t n2s_flags; + + DUK_ASSERT_TOP(thr, 1); + + d = duk__push_this_number_plain(thr); + if (duk_is_undefined(thr, 0)) { + goto use_to_string; + } + DUK_ASSERT_TOP(thr, 2); + + duk_to_int(thr, 0); /* for side effects */ + + c = (duk_small_int_t) DUK_FPCLASSIFY(d); + if (c == DUK_FP_NAN || c == DUK_FP_INFINITE) { + goto use_to_string; + } + + prec = (duk_small_int_t) duk_to_int_check_range(thr, 0, 1, 21); + + n2s_flags = DUK_N2S_FLAG_FIXED_FORMAT | + DUK_N2S_FLAG_NO_ZERO_PAD; + + duk_numconv_stringify(thr, + 10 /*radix*/, + prec /*digits*/, + n2s_flags /*flags*/); + return 1; + + use_to_string: + /* Used when precision is undefined; also used for NaN (-> "NaN"), + * and +/- infinity (-> "Infinity", "-Infinity"). + */ + + DUK_ASSERT_TOP(thr, 2); + duk_to_string(thr, -1); + return 1; +} + +/* + * ES2015 isFinite() etc + */ + +#if defined(DUK_USE_ES6) +DUK_INTERNAL duk_ret_t duk_bi_number_check_shared(duk_hthread *thr) { + duk_int_t magic; + duk_bool_t ret = 0; + + if (duk_is_number(thr, 0)) { + duk_double_t d; + + magic = duk_get_current_magic(thr); + d = duk_get_number(thr, 0); + + switch (magic) { + case 0: /* isFinite() */ + ret = duk_double_is_finite(d); + break; + case 1: /* isInteger() */ + ret = duk_double_is_integer(d); + break; + case 2: /* isNaN() */ + ret = duk_double_is_nan(d); + break; + default: /* isSafeInteger() */ + DUK_ASSERT(magic == 3); + ret = duk_double_is_safe_integer(d); + } + } + + duk_push_boolean(thr, ret); + return 1; +} +#endif /* DUK_USE_ES6 */ + +#endif /* DUK_USE_NUMBER_BUILTIN */ +#line 1 "duk_bi_object.c" +/* + * Object built-ins + */ + +/* #include duk_internal.h -> already included */ + +/* Needed even when Object built-in disabled. */ +DUK_INTERNAL duk_ret_t duk_bi_object_prototype_to_string(duk_hthread *thr) { + duk_tval *tv; + + tv = DUK_HTHREAD_THIS_PTR(thr); + duk_push_class_string_tval(thr, tv, 0 /*avoid_side_effects*/); + return 1; +} + +#if defined(DUK_USE_OBJECT_BUILTIN) +DUK_INTERNAL duk_ret_t duk_bi_object_constructor(duk_hthread *thr) { + duk_uint_t arg_mask; + + arg_mask = duk_get_type_mask(thr, 0); + + if (!duk_is_constructor_call(thr) && /* not a constructor call */ + ((arg_mask & (DUK_TYPE_MASK_NULL | DUK_TYPE_MASK_UNDEFINED)) == 0)) { /* and argument not null or undefined */ + duk_to_object(thr, 0); + return 1; + } + + /* Pointer and buffer primitive values are treated like other + * primitives values which have a fully fledged object counterpart: + * promote to an object value. Lightfuncs and plain buffers are + * coerced with ToObject() even they could also be returned as is. + */ + if (arg_mask & (DUK_TYPE_MASK_OBJECT | + DUK_TYPE_MASK_STRING | + DUK_TYPE_MASK_BOOLEAN | + DUK_TYPE_MASK_NUMBER | + DUK_TYPE_MASK_POINTER | + DUK_TYPE_MASK_BUFFER | + DUK_TYPE_MASK_LIGHTFUNC)) { + /* For DUK_TYPE_OBJECT the coercion is a no-op and could + * be checked for explicitly, but Object(obj) calls are + * not very common so opt for minimal footprint. + */ + duk_to_object(thr, 0); + return 1; + } + + (void) duk_push_object_helper(thr, + DUK_HOBJECT_FLAG_EXTENSIBLE | + DUK_HOBJECT_FLAG_FASTREFS | + DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_OBJECT), + DUK_BIDX_OBJECT_PROTOTYPE); + return 1; +} +#endif /* DUK_USE_OBJECT_BUILTIN */ + +#if defined(DUK_USE_OBJECT_BUILTIN) && defined(DUK_USE_ES6) +DUK_INTERNAL duk_ret_t duk_bi_object_constructor_assign(duk_hthread *thr) { + duk_idx_t nargs; + duk_int_t idx; + + nargs = duk_get_top_require_min(thr, 1 /*min_top*/); + + duk_to_object(thr, 0); + for (idx = 1; idx < nargs; idx++) { + /* E7 19.1.2.1 (step 4a) */ + if (duk_is_null_or_undefined(thr, idx)) { + continue; + } + + /* duk_enum() respects ES2015+ [[OwnPropertyKeys]] ordering, which is + * convenient here. + */ + duk_to_object(thr, idx); + duk_enum(thr, idx, DUK_ENUM_OWN_PROPERTIES_ONLY); + while (duk_next(thr, -1, 1 /*get_value*/)) { + /* [ target ... enum key value ] */ + duk_put_prop(thr, 0); + /* [ target ... enum ] */ + } + /* Could pop enumerator, but unnecessary because of duk_set_top() + * below. + */ + } + + duk_set_top(thr, 1); + return 1; +} +#endif + +#if defined(DUK_USE_OBJECT_BUILTIN) && defined(DUK_USE_ES6) +DUK_INTERNAL duk_ret_t duk_bi_object_constructor_is(duk_hthread *thr) { + DUK_ASSERT_TOP(thr, 2); + duk_push_boolean(thr, duk_samevalue(thr, 0, 1)); + return 1; +} +#endif + +#if defined(DUK_USE_OBJECT_BUILTIN) +DUK_INTERNAL duk_ret_t duk_bi_object_constructor_create(duk_hthread *thr) { + duk_hobject *proto; + + DUK_ASSERT_TOP(thr, 2); + +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) + duk_hbufobj_promote_plain(thr, 0); +#endif + proto = duk_require_hobject_accept_mask(thr, 0, DUK_TYPE_MASK_NULL); + DUK_ASSERT(proto != NULL || duk_is_null(thr, 0)); + + (void) duk_push_object_helper_proto(thr, + DUK_HOBJECT_FLAG_EXTENSIBLE | + DUK_HOBJECT_FLAG_FASTREFS | + DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_OBJECT), + proto); + + if (!duk_is_undefined(thr, 1)) { + /* [ O Properties obj ] */ + + duk_replace(thr, 0); + + /* [ obj Properties ] */ + + /* Just call the "original" Object.defineProperties() to + * finish up. + */ + + return duk_bi_object_constructor_define_properties(thr); + } + + /* [ O Properties obj ] */ + + return 1; +} +#endif /* DUK_USE_OBJECT_BUILTIN */ + +#if defined(DUK_USE_OBJECT_BUILTIN) +DUK_INTERNAL duk_ret_t duk_bi_object_constructor_define_properties(duk_hthread *thr) { + duk_small_uint_t pass; + duk_uint_t defprop_flags; + duk_hobject *obj; + duk_idx_t idx_value; + duk_hobject *get; + duk_hobject *set; + + /* Lightfunc and plain buffer handling by ToObject() coercion. */ + obj = duk_require_hobject_promote_mask(thr, 0, DUK_TYPE_MASK_LIGHTFUNC | DUK_TYPE_MASK_BUFFER); + DUK_ASSERT(obj != NULL); + + duk_to_object(thr, 1); /* properties object */ + + DUK_DDD(DUK_DDDPRINT("target=%!iT, properties=%!iT", + (duk_tval *) duk_get_tval(thr, 0), + (duk_tval *) duk_get_tval(thr, 1))); + + /* + * Two pass approach to processing the property descriptors. + * On first pass validate and normalize all descriptors before + * any changes are made to the target object. On second pass + * make the actual modifications to the target object. + * + * Right now we'll just use the same normalize/validate helper + * on both passes, ignoring its outputs on the first pass. + */ + + for (pass = 0; pass < 2; pass++) { + duk_set_top(thr, 2); /* -> [ hobject props ] */ + duk_enum(thr, 1, DUK_ENUM_OWN_PROPERTIES_ONLY | DUK_ENUM_INCLUDE_SYMBOLS /*enum_flags*/); + + for (;;) { + duk_hstring *key; + + /* [ hobject props enum(props) ] */ + + duk_set_top(thr, 3); + + if (!duk_next(thr, 2, 1 /*get_value*/)) { + break; + } + + DUK_DDD(DUK_DDDPRINT("-> key=%!iT, desc=%!iT", + (duk_tval *) duk_get_tval(thr, -2), + (duk_tval *) duk_get_tval(thr, -1))); + + /* [ hobject props enum(props) key desc ] */ + + duk_hobject_prepare_property_descriptor(thr, + 4 /*idx_desc*/, + &defprop_flags, + &idx_value, + &get, + &set); + + /* [ hobject props enum(props) key desc [multiple values] ] */ + + if (pass == 0) { + continue; + } + + /* This allows symbols on purpose. */ + key = duk_known_hstring(thr, 3); + DUK_ASSERT(key != NULL); + + duk_hobject_define_property_helper(thr, + defprop_flags, + obj, + key, + idx_value, + get, + set, + 1 /*throw_flag*/); + } + } + + /* + * Return target object + */ + + duk_dup_0(thr); + return 1; +} +#endif /* DUK_USE_OBJECT_BUILTIN */ + +#if defined(DUK_USE_OBJECT_BUILTIN) +DUK_INTERNAL duk_ret_t duk_bi_object_constructor_seal_freeze_shared(duk_hthread *thr) { + DUK_ASSERT_TOP(thr, 1); + + duk_seal_freeze_raw(thr, 0, (duk_bool_t) duk_get_current_magic(thr) /*is_freeze*/); + return 1; +} +#endif /* DUK_USE_OBJECT_BUILTIN */ + +#if defined(DUK_USE_OBJECT_BUILTIN) +DUK_INTERNAL duk_ret_t duk_bi_object_constructor_is_sealed_frozen_shared(duk_hthread *thr) { + duk_hobject *h; + duk_bool_t is_frozen; + duk_uint_t mask; + + is_frozen = (duk_bool_t) duk_get_current_magic(thr); + mask = duk_get_type_mask(thr, 0); + if (mask & (DUK_TYPE_MASK_LIGHTFUNC | DUK_TYPE_MASK_BUFFER)) { + DUK_ASSERT(is_frozen == 0 || is_frozen == 1); + duk_push_boolean(thr, (mask & DUK_TYPE_MASK_LIGHTFUNC) ? + 1 : /* lightfunc always frozen and sealed */ + (is_frozen ^ 1)); /* buffer sealed but not frozen (index props writable) */ + } else { + /* ES2015 Sections 19.1.2.12, 19.1.2.13: anything other than an object + * is considered to be already sealed and frozen. + */ + h = duk_get_hobject(thr, 0); + duk_push_boolean(thr, (h == NULL) || + duk_hobject_object_is_sealed_frozen_helper(thr, h, is_frozen /*is_frozen*/)); + } + return 1; +} +#endif /* DUK_USE_OBJECT_BUILTIN */ + +#if defined(DUK_USE_OBJECT_BUILTIN) +DUK_INTERNAL duk_ret_t duk_bi_object_prototype_to_locale_string(duk_hthread *thr) { + DUK_ASSERT_TOP(thr, 0); + (void) duk_push_this_coercible_to_object(thr); + duk_get_prop_stridx_short(thr, 0, DUK_STRIDX_TO_STRING); +#if 0 /* This is mentioned explicitly in the E5.1 spec, but duk_call_method() checks for it in practice. */ + duk_require_callable(thr, 1); +#endif + duk_dup_0(thr); /* -> [ O toString O ] */ + duk_call_method(thr, 0); /* XXX: call method tail call? */ + return 1; +} +#endif /* DUK_USE_OBJECT_BUILTIN */ + +#if defined(DUK_USE_OBJECT_BUILTIN) +DUK_INTERNAL duk_ret_t duk_bi_object_prototype_value_of(duk_hthread *thr) { + /* For lightfuncs and plain buffers, returns Object() coerced. */ + (void) duk_push_this_coercible_to_object(thr); + return 1; +} +#endif /* DUK_USE_OBJECT_BUILTIN */ + +#if defined(DUK_USE_OBJECT_BUILTIN) +DUK_INTERNAL duk_ret_t duk_bi_object_prototype_is_prototype_of(duk_hthread *thr) { + duk_hobject *h_v; + duk_hobject *h_obj; + + DUK_ASSERT_TOP(thr, 1); + + h_v = duk_get_hobject(thr, 0); + if (!h_v) { + duk_push_false(thr); /* XXX: tail call: return duk_push_false(thr) */ + return 1; + } + + h_obj = duk_push_this_coercible_to_object(thr); + DUK_ASSERT(h_obj != NULL); + + /* E5.1 Section 15.2.4.6, step 3.a, lookup proto once before compare. + * Prototype loops should cause an error to be thrown. + */ + duk_push_boolean(thr, duk_hobject_prototype_chain_contains(thr, DUK_HOBJECT_GET_PROTOTYPE(thr->heap, h_v), h_obj, 0 /*ignore_loop*/)); + return 1; +} +#endif /* DUK_USE_OBJECT_BUILTIN */ + +#if defined(DUK_USE_OBJECT_BUILTIN) +DUK_INTERNAL duk_ret_t duk_bi_object_prototype_has_own_property(duk_hthread *thr) { + return (duk_ret_t) duk_hobject_object_ownprop_helper(thr, 0 /*required_desc_flags*/); +} +#endif /* DUK_USE_OBJECT_BUILTIN */ + +#if defined(DUK_USE_OBJECT_BUILTIN) +DUK_INTERNAL duk_ret_t duk_bi_object_prototype_property_is_enumerable(duk_hthread *thr) { + return (duk_ret_t) duk_hobject_object_ownprop_helper(thr, DUK_PROPDESC_FLAG_ENUMERABLE /*required_desc_flags*/); +} +#endif /* DUK_USE_OBJECT_BUILTIN */ + +#if defined(DUK_USE_OBJECT_BUILTIN) || defined(DUK_USE_REFLECT_BUILTIN) +/* Shared helper to implement Object.getPrototypeOf, + * Object.prototype.__proto__ getter, and Reflect.getPrototypeOf. + * + * http://www.ecma-international.org/ecma-262/6.0/index.html#sec-get-object.prototype.__proto__ + */ +DUK_INTERNAL duk_ret_t duk_bi_object_getprototype_shared(duk_hthread *thr) { + /* + * magic = 0: __proto__ getter + * magic = 1: Object.getPrototypeOf() + * magic = 2: Reflect.getPrototypeOf() + */ + + duk_hobject *h; + duk_hobject *proto; + duk_tval *tv; + duk_int_t magic; + + magic = duk_get_current_magic(thr); + + if (magic == 0) { + DUK_ASSERT_TOP(thr, 0); + duk_push_this_coercible_to_object(thr); + } + DUK_ASSERT(duk_get_top(thr) >= 1); + if (magic < 2) { + /* ES2015 Section 19.1.2.9, step 1 */ + duk_to_object(thr, 0); + } + tv = DUK_GET_TVAL_POSIDX(thr, 0); + + switch (DUK_TVAL_GET_TAG(tv)) { + case DUK_TAG_BUFFER: + proto = thr->builtins[DUK_BIDX_UINT8ARRAY_PROTOTYPE]; + break; + case DUK_TAG_LIGHTFUNC: + proto = thr->builtins[DUK_BIDX_FUNCTION_PROTOTYPE]; + break; + case DUK_TAG_OBJECT: + h = DUK_TVAL_GET_OBJECT(tv); + proto = DUK_HOBJECT_GET_PROTOTYPE(thr->heap, h); + break; + default: + /* This implicitly handles CheckObjectCoercible() caused + * TypeError. + */ + DUK_DCERROR_TYPE_INVALID_ARGS(thr); + } + if (proto != NULL) { + duk_push_hobject(thr, proto); + } else { + duk_push_null(thr); + } + return 1; +} +#endif /* DUK_USE_OBJECT_BUILTIN || DUK_USE_REFLECT_BUILTIN */ + +#if defined(DUK_USE_OBJECT_BUILTIN) || defined(DUK_USE_REFLECT_BUILTIN) +/* Shared helper to implement ES2015 Object.setPrototypeOf, + * Object.prototype.__proto__ setter, and Reflect.setPrototypeOf. + * + * http://www.ecma-international.org/ecma-262/6.0/index.html#sec-get-object.prototype.__proto__ + * http://www.ecma-international.org/ecma-262/6.0/index.html#sec-object.setprototypeof + */ +DUK_INTERNAL duk_ret_t duk_bi_object_setprototype_shared(duk_hthread *thr) { + /* + * magic = 0: __proto__ setter + * magic = 1: Object.setPrototypeOf() + * magic = 2: Reflect.setPrototypeOf() + */ + + duk_hobject *h_obj; + duk_hobject *h_new_proto; + duk_hobject *h_curr; + duk_ret_t ret_success = 1; /* retval for success path */ + duk_uint_t mask; + duk_int_t magic; + + /* Preliminaries for __proto__ and setPrototypeOf (E6 19.1.2.18 steps 1-4). */ + magic = duk_get_current_magic(thr); + if (magic == 0) { + duk_push_this_check_object_coercible(thr); + duk_insert(thr, 0); + if (!duk_check_type_mask(thr, 1, DUK_TYPE_MASK_NULL | DUK_TYPE_MASK_OBJECT)) { + return 0; + } + + /* __proto__ setter returns 'undefined' on success unlike the + * setPrototypeOf() call which returns the target object. + */ + ret_success = 0; + } else { + if (magic == 1) { + duk_require_object_coercible(thr, 0); + } else { + duk_require_hobject_accept_mask(thr, 0, + DUK_TYPE_MASK_LIGHTFUNC | + DUK_TYPE_MASK_BUFFER); + } + duk_require_type_mask(thr, 1, DUK_TYPE_MASK_NULL | DUK_TYPE_MASK_OBJECT); + } + + h_new_proto = duk_get_hobject(thr, 1); + /* h_new_proto may be NULL */ + + mask = duk_get_type_mask(thr, 0); + if (mask & (DUK_TYPE_MASK_LIGHTFUNC | DUK_TYPE_MASK_BUFFER)) { + duk_hobject *curr_proto; + curr_proto = thr->builtins[(mask & DUK_TYPE_MASK_LIGHTFUNC) ? + DUK_BIDX_FUNCTION_PROTOTYPE : + DUK_BIDX_UINT8ARRAY_PROTOTYPE]; + if (h_new_proto == curr_proto) { + goto skip; + } + goto fail_nonextensible; + } + h_obj = duk_get_hobject(thr, 0); + if (h_obj == NULL) { + goto skip; + } + DUK_ASSERT(h_obj != NULL); + + /* [[SetPrototypeOf]] standard behavior, E6 9.1.2. */ + /* TODO: implement Proxy object support here */ + + if (h_new_proto == DUK_HOBJECT_GET_PROTOTYPE(thr->heap, h_obj)) { + goto skip; + } + if (!DUK_HOBJECT_HAS_EXTENSIBLE(h_obj)) { + goto fail_nonextensible; + } + for (h_curr = h_new_proto; h_curr != NULL; h_curr = DUK_HOBJECT_GET_PROTOTYPE(thr->heap, h_curr)) { + /* Loop prevention. */ + if (h_curr == h_obj) { + goto fail_loop; + } + } + DUK_HOBJECT_SET_PROTOTYPE_UPDREF(thr, h_obj, h_new_proto); + /* fall thru */ + + skip: + duk_set_top(thr, 1); + if (magic == 2) { + duk_push_true(thr); + } + return ret_success; + + fail_nonextensible: + fail_loop: + if (magic != 2) { + DUK_DCERROR_TYPE_INVALID_ARGS(thr); + } else { + duk_push_false(thr); + return 1; + } +} +#endif /* DUK_USE_OBJECT_BUILTIN || DUK_USE_REFLECT_BUILTIN */ + +#if defined(DUK_USE_OBJECT_BUILTIN) || defined(DUK_USE_REFLECT_BUILTIN) +DUK_INTERNAL duk_ret_t duk_bi_object_constructor_define_property(duk_hthread *thr) { + /* + * magic = 0: Object.defineProperty() + * magic = 1: Reflect.defineProperty() + */ + + duk_hobject *obj; + duk_hstring *key; + duk_hobject *get; + duk_hobject *set; + duk_idx_t idx_value; + duk_uint_t defprop_flags; + duk_small_uint_t magic; + duk_bool_t throw_flag; + duk_bool_t ret; + + DUK_ASSERT(thr != NULL); + + DUK_DDD(DUK_DDDPRINT("Object.defineProperty(): ctx=%p obj=%!T key=%!T desc=%!T", + (void *) thr, + (duk_tval *) duk_get_tval(thr, 0), + (duk_tval *) duk_get_tval(thr, 1), + (duk_tval *) duk_get_tval(thr, 2))); + + /* [ obj key desc ] */ + + magic = (duk_small_uint_t) duk_get_current_magic(thr); + + /* Lightfuncs are currently supported by coercing to a temporary + * Function object; changes will be allowed (the coerced value is + * extensible) but will be lost. Same for plain buffers. + */ + obj = duk_require_hobject_promote_mask(thr, 0, DUK_TYPE_MASK_LIGHTFUNC | DUK_TYPE_MASK_BUFFER); + DUK_ASSERT(obj != NULL); + key = duk_to_property_key_hstring(thr, 1); + (void) duk_require_hobject(thr, 2); + + DUK_ASSERT(obj != NULL); + DUK_ASSERT(key != NULL); + DUK_ASSERT(duk_get_hobject(thr, 2) != NULL); + + /* + * Validate and convert argument property descriptor (an ECMAScript + * object) into a set of defprop_flags and possibly property value, + * getter, and/or setter values on the value stack. + * + * Lightfunc set/get values are coerced to full Functions. + */ + + duk_hobject_prepare_property_descriptor(thr, + 2 /*idx_desc*/, + &defprop_flags, + &idx_value, + &get, + &set); + + /* + * Use Object.defineProperty() helper for the actual operation. + */ + + DUK_ASSERT(magic == 0U || magic == 1U); + throw_flag = magic ^ 1U; + ret = duk_hobject_define_property_helper(thr, + defprop_flags, + obj, + key, + idx_value, + get, + set, + throw_flag); + + /* Ignore the normalize/validate helper outputs on the value stack, + * they're popped automatically. + */ + + if (magic == 0U) { + /* Object.defineProperty(): return target object. */ + duk_push_hobject(thr, obj); + } else { + /* Reflect.defineProperty(): return success/fail. */ + duk_push_boolean(thr, ret); + } + return 1; +} +#endif /* DUK_USE_OBJECT_BUILTIN || DUK_USE_REFLECT_BUILTIN */ + +#if defined(DUK_USE_OBJECT_BUILTIN) || defined(DUK_USE_REFLECT_BUILTIN) +DUK_INTERNAL duk_ret_t duk_bi_object_constructor_get_own_property_descriptor(duk_hthread *thr) { + DUK_ASSERT_TOP(thr, 2); + + /* ES2015 Section 19.1.2.6, step 1 */ + if (duk_get_current_magic(thr) == 0) { + duk_to_object(thr, 0); + } + + /* [ obj key ] */ + + duk_hobject_object_get_own_property_descriptor(thr, -2); + return 1; +} +#endif /* DUK_USE_OBJECT_BUILTIN || DUK_USE_REFLECT_BUILTIN */ + +#if defined(DUK_USE_OBJECT_BUILTIN) || defined(DUK_USE_REFLECT_BUILTIN) +DUK_INTERNAL duk_ret_t duk_bi_object_constructor_is_extensible(duk_hthread *thr) { + /* + * magic = 0: Object.isExtensible() + * magic = 1: Reflect.isExtensible() + */ + + duk_hobject *h; + + if (duk_get_current_magic(thr) == 0) { + h = duk_get_hobject(thr, 0); + } else { + /* Reflect.isExtensible(): throw if non-object, but we accept lightfuncs + * and plain buffers here because they pretend to be objects. + */ + h = duk_require_hobject_accept_mask(thr, 0, DUK_TYPE_MASK_LIGHTFUNC | DUK_TYPE_MASK_BUFFER); + } + + duk_push_boolean(thr, (h != NULL) && DUK_HOBJECT_HAS_EXTENSIBLE(h)); + return 1; +} +#endif /* DUK_USE_OBJECT_BUILTIN || DUK_USE_REFLECT_BUILTIN */ + +#if defined(DUK_USE_OBJECT_BUILTIN) || defined(DUK_USE_REFLECT_BUILTIN) +/* Shared helper for various key/symbol listings, magic: + * 0=Object.keys() + * 1=Object.getOwnPropertyNames(), + * 2=Object.getOwnPropertySymbols(), + * 3=Reflect.ownKeys() + */ +DUK_LOCAL const duk_small_uint_t duk__object_keys_enum_flags[4] = { + /* Object.keys() */ + DUK_ENUM_OWN_PROPERTIES_ONLY | + DUK_ENUM_NO_PROXY_BEHAVIOR, + + /* Object.getOwnPropertyNames() */ + DUK_ENUM_INCLUDE_NONENUMERABLE | + DUK_ENUM_OWN_PROPERTIES_ONLY | + DUK_ENUM_NO_PROXY_BEHAVIOR, + + /* Object.getOwnPropertySymbols() */ + DUK_ENUM_INCLUDE_SYMBOLS | + DUK_ENUM_OWN_PROPERTIES_ONLY | + DUK_ENUM_EXCLUDE_STRINGS | + DUK_ENUM_INCLUDE_NONENUMERABLE | + DUK_ENUM_NO_PROXY_BEHAVIOR, + + /* Reflect.ownKeys() */ + DUK_ENUM_INCLUDE_SYMBOLS | + DUK_ENUM_OWN_PROPERTIES_ONLY | + DUK_ENUM_INCLUDE_NONENUMERABLE | + DUK_ENUM_NO_PROXY_BEHAVIOR +}; + +DUK_INTERNAL duk_ret_t duk_bi_object_constructor_keys_shared(duk_hthread *thr) { + duk_hobject *obj; +#if defined(DUK_USE_ES6_PROXY) + duk_hobject *h_proxy_target; + duk_hobject *h_proxy_handler; + duk_hobject *h_trap_result; +#endif + duk_small_uint_t enum_flags; + duk_int_t magic; + + DUK_ASSERT_TOP(thr, 1); + + magic = duk_get_current_magic(thr); + if (magic == 3) { + /* ES2015 Section 26.1.11 requires a TypeError for non-objects. Lightfuncs + * and plain buffers pretend to be objects, so accept those too. + */ + obj = duk_require_hobject_promote_mask(thr, 0, DUK_TYPE_MASK_LIGHTFUNC | DUK_TYPE_MASK_BUFFER); + } else { + /* ES2015: ToObject coerce. */ + obj = duk_to_hobject(thr, 0); + } + DUK_ASSERT(obj != NULL); + DUK_UNREF(obj); + + /* XXX: proxy chains */ + +#if defined(DUK_USE_ES6_PROXY) + /* XXX: better sharing of code between proxy target call sites */ + if (DUK_LIKELY(!duk_hobject_proxy_check(obj, + &h_proxy_target, + &h_proxy_handler))) { + goto skip_proxy; + } + + duk_push_hobject(thr, h_proxy_handler); + if (!duk_get_prop_stridx_short(thr, -1, DUK_STRIDX_OWN_KEYS)) { + /* Careful with reachability here: don't pop 'obj' before pushing + * proxy target. + */ + DUK_DDD(DUK_DDDPRINT("no ownKeys trap, get keys of target instead")); + duk_pop_2(thr); + duk_push_hobject(thr, h_proxy_target); + duk_replace(thr, 0); + DUK_ASSERT_TOP(thr, 1); + goto skip_proxy; + } + + /* [ obj handler trap ] */ + duk_insert(thr, -2); + duk_push_hobject(thr, h_proxy_target); /* -> [ obj trap handler target ] */ + duk_call_method(thr, 1 /*nargs*/); /* -> [ obj trap_result ] */ + h_trap_result = duk_require_hobject(thr, -1); + DUK_UNREF(h_trap_result); + + magic = duk_get_current_magic(thr); + DUK_ASSERT(magic >= 0 && magic < (duk_int_t) (sizeof(duk__object_keys_enum_flags) / sizeof(duk_small_uint_t))); + enum_flags = duk__object_keys_enum_flags[magic]; + + duk_proxy_ownkeys_postprocess(thr, h_proxy_target, enum_flags); + return 1; + + skip_proxy: +#endif /* DUK_USE_ES6_PROXY */ + + DUK_ASSERT_TOP(thr, 1); + magic = duk_get_current_magic(thr); + DUK_ASSERT(magic >= 0 && magic < (duk_int_t) (sizeof(duk__object_keys_enum_flags) / sizeof(duk_small_uint_t))); + enum_flags = duk__object_keys_enum_flags[magic]; + return duk_hobject_get_enumerated_keys(thr, enum_flags); +} +#endif /* DUK_USE_OBJECT_BUILTIN || DUK_USE_REFLECT_BUILTIN */ + +#if defined(DUK_USE_OBJECT_BUILTIN) || defined(DUK_USE_REFLECT_BUILTIN) +DUK_INTERNAL duk_ret_t duk_bi_object_constructor_prevent_extensions(duk_hthread *thr) { + /* + * magic = 0: Object.preventExtensions() + * magic = 1: Reflect.preventExtensions() + */ + + duk_hobject *h; + duk_uint_t mask; + duk_int_t magic; + + magic = duk_get_current_magic(thr); + + /* Silent success for lightfuncs and plain buffers always. */ + mask = DUK_TYPE_MASK_LIGHTFUNC | DUK_TYPE_MASK_BUFFER; + + /* Object.preventExtensions() silent success for non-object. */ + if (magic == 0) { + mask |= DUK_TYPE_MASK_UNDEFINED | + DUK_TYPE_MASK_NULL | + DUK_TYPE_MASK_BOOLEAN | + DUK_TYPE_MASK_NUMBER | + DUK_TYPE_MASK_STRING | + DUK_TYPE_MASK_POINTER; + } + + if (duk_check_type_mask(thr, 0, mask)) { + /* Not an object, already non-extensible so always success. */ + goto done; + } + h = duk_require_hobject(thr, 0); + DUK_ASSERT(h != NULL); + + DUK_HOBJECT_CLEAR_EXTENSIBLE(h); + + /* A non-extensible object cannot gain any more properties, + * so this is a good time to compact. + */ + duk_hobject_compact_props(thr, h); + + done: + if (magic == 1) { + duk_push_true(thr); + } + return 1; +} +#endif /* DUK_USE_OBJECT_BUILTIN || DUK_USE_REFLECT_BUILTIN */ + +/* + * __defineGetter__, __defineSetter__, __lookupGetter__, __lookupSetter__ + */ + +#if defined(DUK_USE_ES8) +DUK_INTERNAL duk_ret_t duk_bi_object_prototype_defineaccessor(duk_hthread *thr) { + duk_push_this(thr); + duk_insert(thr, 0); + duk_to_object(thr, 0); + duk_require_callable(thr, 2); + + /* [ ToObject(this) key getter/setter ] */ + + /* ToPropertyKey() coercion is not needed, duk_def_prop() does it. */ + duk_def_prop(thr, 0, DUK_DEFPROP_SET_ENUMERABLE | + DUK_DEFPROP_SET_CONFIGURABLE | + (duk_get_current_magic(thr) ? DUK_DEFPROP_HAVE_SETTER : DUK_DEFPROP_HAVE_GETTER)); + return 0; +} +DUK_INTERNAL duk_ret_t duk_bi_object_prototype_lookupaccessor(duk_hthread *thr) { + duk_uint_t sanity; + + duk_push_this(thr); + duk_to_object(thr, -1); + + /* XXX: Prototype walk (with sanity) should be a core property + * operation, could add a flag to e.g. duk_get_prop_desc(). + */ + + /* ToPropertyKey() coercion is not needed, duk_get_prop_desc() does it. */ + sanity = DUK_HOBJECT_PROTOTYPE_CHAIN_SANITY; + while (!duk_is_undefined(thr, -1)) { + /* [ key obj ] */ + duk_dup(thr, 0); + duk_get_prop_desc(thr, 1, 0 /*flags*/); + if (!duk_is_undefined(thr, -1)) { + duk_get_prop_stridx(thr, -1, (duk_get_current_magic(thr) != 0 ? DUK_STRIDX_SET : DUK_STRIDX_GET)); + return 1; + } + duk_pop(thr); + + if (DUK_UNLIKELY(sanity-- == 0)) { + DUK_ERROR_RANGE(thr, DUK_STR_PROTOTYPE_CHAIN_LIMIT); + DUK_WO_NORETURN(return 0;); + } + + duk_get_prototype(thr, -1); + duk_remove(thr, -2); + } + return 1; +} +#endif /* DUK_USE_ES8 */ +#line 1 "duk_bi_performance.c" +/* + * High resolution time API (performance.now() et al) + * + * API specification: https://encoding.spec.whatwg.org/#ap://www.w3.org/TR/hr-time/ + */ + +/* #include duk_internal.h -> already included */ + +#if defined(DUK_USE_PERFORMANCE_BUILTIN) +DUK_INTERNAL duk_ret_t duk_bi_performance_now(duk_hthread *thr) { + /* From API spec: + * The DOMHighResTimeStamp type is used to store a time value in + * milliseconds, measured relative from the time origin, global + * monotonic clock, or a time value that represents a duration + * between two DOMHighResTimeStamp's. + */ + duk_push_number(thr, duk_time_get_monotonic_time(thr)); + return 1; +} + +#if 0 /* Missing until semantics decided. */ +DUK_INTERNAL duk_ret_t duk_bi_performance_timeorigin_getter(duk_hthread *thr) { + /* No decision yet how to handle timeOrigins, e.g. should one be + * initialized per heap, or per global object set. See + * https://www.w3.org/TR/hr-time/#time-origin. + */ + duk_push_uint(thr, 0); + return 1; +} +#endif /* 0 */ +#endif /* DUK_USE_PERFORMANCE_BUILTIN */ +#line 1 "duk_bi_pointer.c" +/* + * Pointer built-ins + */ + +/* #include duk_internal.h -> already included */ + +/* + * Constructor + */ + +DUK_INTERNAL duk_ret_t duk_bi_pointer_constructor(duk_hthread *thr) { + /* XXX: this behavior is quite useless now; it would be nice to be able + * to create pointer values from e.g. numbers or strings. Numbers are + * problematic on 64-bit platforms though. Hex encoded strings? + */ + if (duk_get_top(thr) == 0) { + duk_push_pointer(thr, NULL); + } else { + duk_to_pointer(thr, 0); + } + DUK_ASSERT(duk_is_pointer(thr, 0)); + duk_set_top(thr, 1); + + if (duk_is_constructor_call(thr)) { + (void) duk_push_object_helper(thr, + DUK_HOBJECT_FLAG_EXTENSIBLE | + DUK_HOBJECT_FLAG_FASTREFS | + DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_POINTER), + DUK_BIDX_POINTER_PROTOTYPE); + + /* Pointer object internal value is immutable. */ + duk_dup_0(thr); + duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_INT_VALUE, DUK_PROPDESC_FLAGS_NONE); + } + /* Note: unbalanced stack on purpose */ + + return 1; +} + +/* + * toString(), valueOf() + */ + +DUK_INTERNAL duk_ret_t duk_bi_pointer_prototype_tostring_shared(duk_hthread *thr) { + duk_tval *tv; + duk_small_int_t to_string = duk_get_current_magic(thr); + + duk_push_this(thr); + tv = duk_require_tval(thr, -1); + DUK_ASSERT(tv != NULL); + + if (DUK_TVAL_IS_POINTER(tv)) { + /* nop */ + } else if (DUK_TVAL_IS_OBJECT(tv)) { + duk_hobject *h = DUK_TVAL_GET_OBJECT(tv); + DUK_ASSERT(h != NULL); + + /* Must be a "pointer object", i.e. class "Pointer" */ + if (DUK_HOBJECT_GET_CLASS_NUMBER(h) != DUK_HOBJECT_CLASS_POINTER) { + goto type_error; + } + + duk_xget_owndataprop_stridx_short(thr, -1, DUK_STRIDX_INT_VALUE); + } else { + goto type_error; + } + + if (to_string) { + duk_to_string(thr, -1); + } + return 1; + + type_error: + DUK_DCERROR_TYPE_INVALID_ARGS(thr); +} +#line 1 "duk_bi_promise.c" +/* + * Promise built-in + */ + +/* #include duk_internal.h -> already included */ + +#if defined(DUK_USE_PROMISE_BUILTIN) + +DUK_INTERNAL duk_ret_t duk_bi_promise_constructor(duk_hthread *thr) { + DUK_ERROR_TYPE(thr, "unimplemented"); + DUK_WO_NORETURN(return 0;); +} + +DUK_INTERNAL duk_ret_t duk_bi_promise_all(duk_hthread *thr) { + DUK_ERROR_TYPE(thr, "unimplemented"); + DUK_WO_NORETURN(return 0;); +} + +DUK_INTERNAL duk_ret_t duk_bi_promise_race(duk_hthread *thr) { + DUK_ERROR_TYPE(thr, "unimplemented"); + DUK_WO_NORETURN(return 0;); +} + +DUK_INTERNAL duk_ret_t duk_bi_promise_reject(duk_hthread *thr) { + DUK_ERROR_TYPE(thr, "unimplemented"); + DUK_WO_NORETURN(return 0;); +} + +DUK_INTERNAL duk_ret_t duk_bi_promise_resolve(duk_hthread *thr) { + DUK_ERROR_TYPE(thr, "unimplemented"); + DUK_WO_NORETURN(return 0;); +} + +DUK_INTERNAL duk_ret_t duk_bi_promise_catch(duk_hthread *thr) { + DUK_ERROR_TYPE(thr, "unimplemented"); + DUK_WO_NORETURN(return 0;); +} + +DUK_INTERNAL duk_ret_t duk_bi_promise_then(duk_hthread *thr) { + DUK_ERROR_TYPE(thr, "unimplemented"); + DUK_WO_NORETURN(return 0;); +} + +#endif /* DUK_USE_PROMISE_BUILTIN */ +#line 1 "duk_bi_proxy.c" +/* + * Proxy built-in (ES2015) + */ + +/* #include duk_internal.h -> already included */ + +#if defined(DUK_USE_ES6_PROXY) +/* Post-process a Proxy ownKeys() result at stack top. Push a cleaned up + * array of valid result keys (strings or symbols). TypeError for invalid + * values. Flags are shared with duk_enum(). + */ +DUK_INTERNAL void duk_proxy_ownkeys_postprocess(duk_hthread *thr, duk_hobject *h_proxy_target, duk_uint_t flags) { + duk_uarridx_t i, len, idx; + duk_propdesc desc; + + DUK_CTX_ASSERT_VALID(thr); + DUK_ASSERT(h_proxy_target != NULL); + + len = (duk_uarridx_t) duk_get_length(thr, -1); + idx = 0; + duk_push_array(thr); + /* XXX: preallocated dense array, fill in directly */ + for (i = 0; i < len; i++) { + duk_hstring *h; + + /* [ obj trap_result res_arr ] */ + (void) duk_get_prop_index(thr, -2, i); + h = duk_get_hstring(thr, -1); + if (h == NULL) { + DUK_ERROR_TYPE_INVALID_TRAP_RESULT(thr); + DUK_WO_NORETURN(return;); + } + + if (!(flags & DUK_ENUM_INCLUDE_NONENUMERABLE)) { + /* No support for 'getOwnPropertyDescriptor' trap yet, + * so check enumerability always from target object + * descriptor. + */ + if (duk_hobject_get_own_propdesc(thr, h_proxy_target, duk_known_hstring(thr, -1), &desc, 0 /*flags*/)) { + if ((desc.flags & DUK_PROPDESC_FLAG_ENUMERABLE) == 0) { + DUK_DDD(DUK_DDDPRINT("ignore non-enumerable property: %!T", duk_get_tval(thr, -1))); + goto skip_key; + } + } else { + DUK_DDD(DUK_DDDPRINT("ignore non-existent property: %!T", duk_get_tval(thr, -1))); + goto skip_key; + } + } + if (DUK_UNLIKELY(DUK_HSTRING_HAS_SYMBOL(h))) { + if (!(flags & DUK_ENUM_INCLUDE_SYMBOLS)) { + DUK_DDD(DUK_DDDPRINT("ignore symbol property: %!T", duk_get_tval(thr, -1))); + goto skip_key; + } + if (DUK_HSTRING_HAS_HIDDEN(h) && !(flags & DUK_ENUM_INCLUDE_HIDDEN)) { + DUK_DDD(DUK_DDDPRINT("ignore hidden symbol property: %!T", duk_get_tval(thr, -1))); + goto skip_key; + } + } else { + if (flags & DUK_ENUM_EXCLUDE_STRINGS) { + DUK_DDD(DUK_DDDPRINT("ignore string property: %!T", duk_get_tval(thr, -1))); + goto skip_key; + } + } + + /* [ obj trap_result res_arr propname ] */ + duk_put_prop_index(thr, -2, idx++); + continue; + + skip_key: + duk_pop(thr); + continue; + } + + /* XXX: Missing trap result validation for non-configurable target keys + * (must be present), for non-extensible target all target keys must be + * present and no extra keys can be present. + * http://www.ecma-international.org/ecma-262/6.0/#sec-proxy-object-internal-methods-and-internal-slots-ownpropertykeys + */ + + /* XXX: The key enumerability check should trigger the "getOwnPropertyDescriptor" + * trap which has not yet been implemented. In the absence of such a trap, + * the enumerability should be checked from the target object; this is + * handled above. + */ +} +#endif /* DUK_USE_ES6_PROXY */ + +#if defined(DUK_USE_ES6_PROXY) +DUK_INTERNAL duk_ret_t duk_bi_proxy_constructor(duk_hthread *thr) { + DUK_ASSERT_TOP(thr, 2); /* [ target handler ] */ + + duk_require_constructor_call(thr); + duk_push_proxy(thr, 0 /*flags*/); /* [ target handler ] -> [ proxy ] */ + return 1; /* replacement */ +} +#endif /* DUK_USE_ES6_PROXY */ +#line 1 "duk_bi_reflect.c" +/* + * 'Reflect' built-in (ES2016 Section 26.1) + * http://www.ecma-international.org/ecma-262/7.0/#sec-reflect-object + * + * Many Reflect built-in functions are provided by shared helpers in + * duk_bi_object.c or duk_bi_function.c. + */ + +/* #include duk_internal.h -> already included */ + +#if defined(DUK_USE_REFLECT_BUILTIN) +DUK_INTERNAL duk_ret_t duk_bi_reflect_object_delete_property(duk_hthread *thr) { + duk_tval *tv_obj; + duk_tval *tv_key; + duk_bool_t ret; + + DUK_ASSERT_TOP(thr, 2); + (void) duk_require_hobject(thr, 0); + (void) duk_to_string(thr, 1); + + /* [ target key ] */ + + DUK_ASSERT(thr != NULL); + tv_obj = DUK_GET_TVAL_POSIDX(thr, 0); + tv_key = DUK_GET_TVAL_POSIDX(thr, 1); + ret = duk_hobject_delprop(thr, tv_obj, tv_key, 0 /*throw_flag*/); + duk_push_boolean(thr, ret); + return 1; +} + +DUK_INTERNAL duk_ret_t duk_bi_reflect_object_get(duk_hthread *thr) { + duk_tval *tv_obj; + duk_tval *tv_key; + duk_idx_t nargs; + + DUK_ASSERT(thr != NULL); + nargs = duk_get_top_require_min(thr, 2 /*min_top*/); + (void) duk_require_hobject(thr, 0); + (void) duk_to_string(thr, 1); + if (nargs >= 3 && !duk_strict_equals(thr, 0, 2)) { + /* XXX: [[Get]] receiver currently unsupported */ + DUK_ERROR_UNSUPPORTED(thr); + DUK_WO_NORETURN(return 0;); + } + + /* [ target key receiver? ...? ] */ + + tv_obj = DUK_GET_TVAL_POSIDX(thr, 0); + tv_key = DUK_GET_TVAL_POSIDX(thr, 1); + (void) duk_hobject_getprop(thr, tv_obj, tv_key); /* This could also be a duk_get_prop(). */ + return 1; +} + +DUK_INTERNAL duk_ret_t duk_bi_reflect_object_has(duk_hthread *thr) { + duk_tval *tv_obj; + duk_tval *tv_key; + duk_bool_t ret; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT_TOP(thr, 2); + (void) duk_require_hobject(thr, 0); + (void) duk_to_string(thr, 1); + + /* [ target key ] */ + + tv_obj = DUK_GET_TVAL_POSIDX(thr, 0); + tv_key = DUK_GET_TVAL_POSIDX(thr, 1); + ret = duk_hobject_hasprop(thr, tv_obj, tv_key); + duk_push_boolean(thr, ret); + return 1; +} + +DUK_INTERNAL duk_ret_t duk_bi_reflect_object_set(duk_hthread *thr) { + duk_tval *tv_obj; + duk_tval *tv_key; + duk_tval *tv_val; + duk_idx_t nargs; + duk_bool_t ret; + + DUK_ASSERT(thr != NULL); + nargs = duk_get_top_require_min(thr, 3 /*min_top*/); + (void) duk_require_hobject(thr, 0); + (void) duk_to_string(thr, 1); + if (nargs >= 4 && !duk_strict_equals(thr, 0, 3)) { + /* XXX: [[Set]] receiver currently unsupported */ + DUK_ERROR_UNSUPPORTED(thr); + DUK_WO_NORETURN(return 0;); + } + + /* [ target key value receiver? ...? ] */ + + tv_obj = DUK_GET_TVAL_POSIDX(thr, 0); + tv_key = DUK_GET_TVAL_POSIDX(thr, 1); + tv_val = DUK_GET_TVAL_POSIDX(thr, 2); + ret = duk_hobject_putprop(thr, tv_obj, tv_key, tv_val, 0 /*throw_flag*/); + duk_push_boolean(thr, ret); + return 1; +} +#endif /* DUK_USE_REFLECT_BUILTIN */ +#line 1 "duk_bi_regexp.c" +/* + * RegExp built-ins + */ + +/* #include duk_internal.h -> already included */ + +#if defined(DUK_USE_REGEXP_SUPPORT) + +DUK_LOCAL void duk__get_this_regexp(duk_hthread *thr) { + duk_hobject *h; + + duk_push_this(thr); + h = duk_require_hobject_with_class(thr, -1, DUK_HOBJECT_CLASS_REGEXP); + DUK_ASSERT(h != NULL); + DUK_UNREF(h); + duk_insert(thr, 0); /* prepend regexp to valstack 0 index */ +} + +/* XXX: much to improve (code size) */ +DUK_INTERNAL duk_ret_t duk_bi_regexp_constructor(duk_hthread *thr) { + duk_hobject *h_pattern; + + DUK_ASSERT_TOP(thr, 2); + h_pattern = duk_get_hobject(thr, 0); + + if (!duk_is_constructor_call(thr) && + h_pattern != NULL && + DUK_HOBJECT_GET_CLASS_NUMBER(h_pattern) == DUK_HOBJECT_CLASS_REGEXP && + duk_is_undefined(thr, 1)) { + /* Called as a function, pattern has [[Class]] "RegExp" and + * flags is undefined -> return object as is. + */ + /* XXX: ES2015 has a NewTarget SameValue() check which is not + * yet implemented. + */ + duk_dup_0(thr); + return 1; + } + + /* Else functionality is identical for function call and constructor + * call. + */ + + if (h_pattern != NULL && + DUK_HOBJECT_GET_CLASS_NUMBER(h_pattern) == DUK_HOBJECT_CLASS_REGEXP) { + duk_get_prop_stridx_short(thr, 0, DUK_STRIDX_SOURCE); + if (duk_is_undefined(thr, 1)) { + /* In ES5 one would need to read the flags individually; + * in ES2015 just read .flags. + */ + duk_get_prop_stridx(thr, 0, DUK_STRIDX_FLAGS); + } else { + /* In ES2015 allowed; overrides argument RegExp flags. */ + duk_dup_1(thr); + } + } else { + if (duk_is_undefined(thr, 0)) { + duk_push_hstring_empty(thr); + } else { + duk_dup_0(thr); + duk_to_string(thr, -1); /* Rejects Symbols. */ + } + if (duk_is_undefined(thr, 1)) { + duk_push_hstring_empty(thr); + } else { + duk_dup_1(thr); + duk_to_string(thr, -1); /* Rejects Symbols. */ + } + + /* [ ... pattern flags ] */ + } + + DUK_DDD(DUK_DDDPRINT("RegExp constructor/function call, pattern=%!T, flags=%!T", + (duk_tval *) duk_get_tval(thr, -2), (duk_tval *) duk_get_tval(thr, -1))); + + /* [ ... pattern flags ] (both uncoerced) */ + + duk_to_string(thr, -2); + duk_to_string(thr, -1); + duk_regexp_compile(thr); + + /* [ ... bytecode escaped_source ] */ + + duk_regexp_create_instance(thr); + + /* [ ... RegExp ] */ + + return 1; +} + +DUK_INTERNAL duk_ret_t duk_bi_regexp_prototype_exec(duk_hthread *thr) { + duk__get_this_regexp(thr); + + /* [ regexp input ] */ + + duk_regexp_match(thr); + + /* [ result ] */ + + return 1; +} + +DUK_INTERNAL duk_ret_t duk_bi_regexp_prototype_test(duk_hthread *thr) { + duk__get_this_regexp(thr); + + /* [ regexp input ] */ + + /* result object is created and discarded; wasteful but saves code space */ + duk_regexp_match(thr); + + /* [ result ] */ + + duk_push_boolean(thr, (duk_is_null(thr, -1) ? 0 : 1)); + + return 1; +} + +DUK_INTERNAL duk_ret_t duk_bi_regexp_prototype_tostring(duk_hthread *thr) { + /* This must be generic in ES2015 and later. */ + DUK_ASSERT_TOP(thr, 0); + duk_push_this(thr); + duk_push_literal(thr, "/"); + duk_get_prop_stridx(thr, 0, DUK_STRIDX_SOURCE); + duk_dup_m2(thr); /* another "/" */ + duk_get_prop_stridx(thr, 0, DUK_STRIDX_FLAGS); + duk_concat(thr, 4); + return 1; +} + +DUK_INTERNAL duk_ret_t duk_bi_regexp_prototype_flags(duk_hthread *thr) { + /* .flags is ES2015 but present even when ES2015 bindings are + * disabled because the constructor relies on it. + */ + duk_uint8_t buf[8]; /* enough for all flags + NUL */ + duk_uint8_t *p = buf; + + /* .flags is generic and works on any object. */ + duk_push_this(thr); + (void) duk_require_hobject(thr, -1); + if (duk_get_prop_stridx_boolean(thr, 0, DUK_STRIDX_GLOBAL, NULL)) { + *p++ = DUK_ASC_LC_G; + } + if (duk_get_prop_stridx_boolean(thr, 0, DUK_STRIDX_IGNORE_CASE, NULL)) { + *p++ = DUK_ASC_LC_I; + } + if (duk_get_prop_stridx_boolean(thr, 0, DUK_STRIDX_MULTILINE, NULL)) { + *p++ = DUK_ASC_LC_M; + } + /* .unicode: to be added */ + /* .sticky: to be added */ + *p++ = DUK_ASC_NUL; + DUK_ASSERT((duk_size_t) (p - buf) <= sizeof(buf)); + + duk_push_string(thr, (const char *) buf); + return 1; +} + +/* Shared helper for providing .source, .global, .multiline, etc getters. */ +DUK_INTERNAL duk_ret_t duk_bi_regexp_prototype_shared_getter(duk_hthread *thr) { + duk_hstring *h_bc; + duk_small_uint_t re_flags; + duk_hobject *h; + duk_int_t magic; + + DUK_ASSERT_TOP(thr, 0); + + duk_push_this(thr); + h = duk_require_hobject(thr, -1); + magic = duk_get_current_magic(thr); + + if (DUK_HOBJECT_GET_CLASS_NUMBER(h) == DUK_HOBJECT_CLASS_REGEXP) { + duk_xget_owndataprop_stridx_short(thr, 0, DUK_STRIDX_INT_SOURCE); + duk_xget_owndataprop_stridx_short(thr, 0, DUK_STRIDX_INT_BYTECODE); + h_bc = duk_require_hstring(thr, -1); + re_flags = (duk_small_uint_t) DUK_HSTRING_GET_DATA(h_bc)[0]; /* Safe even if h_bc length is 0 (= NUL) */ + duk_pop(thr); + } else if (h == thr->builtins[DUK_BIDX_REGEXP_PROTOTYPE]) { + /* In ES2015 and ES2016 a TypeError would be thrown here. + * However, this had real world issues so ES2017 draft + * allows RegExp.prototype specifically, returning '(?:)' + * for .source and undefined for all flags. + */ + if (magic != 16 /* .source */) { + return 0; + } + duk_push_literal(thr, "(?:)"); /* .source handled by switch-case */ + re_flags = 0; + } else { + DUK_DCERROR_TYPE_INVALID_ARGS(thr); + } + + /* [ regexp source ] */ + + switch (magic) { + case 0: { /* global */ + duk_push_boolean(thr, (re_flags & DUK_RE_FLAG_GLOBAL)); + break; + } + case 1: { /* ignoreCase */ + duk_push_boolean(thr, (re_flags & DUK_RE_FLAG_IGNORE_CASE)); + break; + } + case 2: { /* multiline */ + duk_push_boolean(thr, (re_flags & DUK_RE_FLAG_MULTILINE)); + break; + } +#if 0 + /* Don't provide until implemented to avoid interfering with feature + * detection in user code. + */ + case 3: /* sticky */ + case 4: { /* unicode */ + duk_push_false(thr); + break; + } +#endif + default: { /* source */ + /* leave 'source' on top */ + break; + } + } + + return 1; +} + +#endif /* DUK_USE_REGEXP_SUPPORT */ +#line 1 "duk_bi_string.c" +/* + * String built-ins + * + * Most String built-ins must only accept strings (or String objects). + * Symbols, represented internally as strings, must be generally rejected. + * The duk_push_this_coercible_to_string() helper does this automatically. + */ + +/* XXX: There are several limitations in the current implementation for + * strings with >= 0x80000000UL characters. In some cases one would need + * to be able to represent the range [-0xffffffff,0xffffffff] and so on. + * Generally character and byte length are assumed to fit into signed 32 + * bits (< 0x80000000UL). Places with issues are not marked explicitly + * below in all cases, look for signed type usage (duk_int_t etc) for + * offsets/lengths. + */ + +/* #include duk_internal.h -> already included */ + +#if defined(DUK_USE_STRING_BUILTIN) + +/* + * Helpers + */ + +DUK_LOCAL duk_hstring *duk__str_tostring_notregexp(duk_hthread *thr, duk_idx_t idx) { + duk_hstring *h; + + if (duk_get_class_number(thr, idx) == DUK_HOBJECT_CLASS_REGEXP) { + DUK_ERROR_TYPE_INVALID_ARGS(thr); + DUK_WO_NORETURN(return NULL;); + } + h = duk_to_hstring(thr, idx); + DUK_ASSERT(h != NULL); + + return h; +} + +DUK_LOCAL duk_int_t duk__str_search_shared(duk_hthread *thr, duk_hstring *h_this, duk_hstring *h_search, duk_int_t start_cpos, duk_bool_t backwards) { + duk_int_t cpos; + duk_int_t bpos; + const duk_uint8_t *p_start, *p_end, *p; + const duk_uint8_t *q_start; + duk_int_t q_blen; + duk_uint8_t firstbyte; + duk_uint8_t t; + + cpos = start_cpos; + + /* Empty searchstring always matches; cpos must be clamped here. + * (If q_blen were < 0 due to clamped coercion, it would also be + * caught here.) + */ + q_start = DUK_HSTRING_GET_DATA(h_search); + q_blen = (duk_int_t) DUK_HSTRING_GET_BYTELEN(h_search); + if (q_blen <= 0) { + return cpos; + } + DUK_ASSERT(q_blen > 0); + + bpos = (duk_int_t) duk_heap_strcache_offset_char2byte(thr, h_this, (duk_uint32_t) cpos); + + p_start = DUK_HSTRING_GET_DATA(h_this); + p_end = p_start + DUK_HSTRING_GET_BYTELEN(h_this); + p = p_start + bpos; + + /* This loop is optimized for size. For speed, there should be + * two separate loops, and we should ensure that memcmp() can be + * used without an extra "will searchstring fit" check. Doing + * the preconditioning for 'p' and 'p_end' is easy but cpos + * must be updated if 'p' is wound back (backward scanning). + */ + + firstbyte = q_start[0]; /* leading byte of match string */ + while (p <= p_end && p >= p_start) { + t = *p; + + /* For ECMAScript strings, this check can only match for + * initial UTF-8 bytes (not continuation bytes). For other + * strings all bets are off. + */ + + if ((t == firstbyte) && ((duk_size_t) (p_end - p) >= (duk_size_t) q_blen)) { + DUK_ASSERT(q_blen > 0); + if (duk_memcmp((const void *) p, (const void *) q_start, (size_t) q_blen) == 0) { + return cpos; + } + } + + /* track cpos while scanning */ + if (backwards) { + /* when going backwards, we decrement cpos 'early'; + * 'p' may point to a continuation byte of the char + * at offset 'cpos', but that's OK because we'll + * backtrack all the way to the initial byte. + */ + if ((t & 0xc0) != 0x80) { + cpos--; + } + p--; + } else { + if ((t & 0xc0) != 0x80) { + cpos++; + } + p++; + } + } + + /* Not found. Empty string case is handled specially above. */ + return -1; +} + +/* + * Constructor + */ + +DUK_INTERNAL duk_ret_t duk_bi_string_constructor(duk_hthread *thr) { + duk_hstring *h; + duk_uint_t flags; + + /* String constructor needs to distinguish between an argument not given at all + * vs. given as 'undefined'. We're a vararg function to handle this properly. + */ + + /* XXX: copy current activation flags to thr, including current magic, + * is_constructor_call etc. This takes a few bytes in duk_hthread but + * makes call sites smaller (there are >30 is_constructor_call and get + * current magic call sites. + */ + + if (duk_get_top(thr) == 0) { + duk_push_hstring_empty(thr); + } else { + h = duk_to_hstring_acceptsymbol(thr, 0); + if (DUK_UNLIKELY(DUK_HSTRING_HAS_SYMBOL(h) && !duk_is_constructor_call(thr))) { + duk_push_symbol_descriptive_string(thr, h); + duk_replace(thr, 0); + } + } + duk_to_string(thr, 0); /* catches symbol argument for constructor call */ + DUK_ASSERT(duk_is_string(thr, 0)); + duk_set_top(thr, 1); /* Top may be 1 or larger. */ + + if (duk_is_constructor_call(thr)) { + /* String object internal value is immutable */ + flags = DUK_HOBJECT_FLAG_EXTENSIBLE | + DUK_HOBJECT_FLAG_FASTREFS | + DUK_HOBJECT_FLAG_EXOTIC_STRINGOBJ | + DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_STRING); + duk_push_object_helper(thr, flags, DUK_BIDX_STRING_PROTOTYPE); + duk_dup_0(thr); + duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_INT_VALUE, DUK_PROPDESC_FLAGS_NONE); + } + /* Note: unbalanced stack on purpose */ + + return 1; +} + +DUK_LOCAL duk_ret_t duk__construct_from_codepoints(duk_hthread *thr, duk_bool_t nonbmp) { + duk_bufwriter_ctx bw_alloc; + duk_bufwriter_ctx *bw; + duk_idx_t i, n; + duk_ucodepoint_t cp; + + /* XXX: It would be nice to build the string directly but ToUint16() + * coercion is needed so a generic helper would not be very + * helpful (perhaps coerce the value stack first here and then + * build a string from a duk_tval number sequence in one go?). + */ + + n = duk_get_top(thr); + + bw = &bw_alloc; + DUK_BW_INIT_PUSHBUF(thr, bw, (duk_size_t) n); /* initial estimate for ASCII only codepoints */ + + for (i = 0; i < n; i++) { + /* XXX: could improve bufwriter handling to write multiple codepoints + * with one ensure call but the relative benefit would be quite small. + */ + + if (nonbmp) { + /* ES2015 requires that (1) SameValue(cp, ToInteger(cp)) and + * (2) cp >= 0 and cp <= 0x10ffff. This check does not + * implement the steps exactly but the outcome should be + * the same. + */ + duk_int32_t i32 = 0; + if (!duk_is_whole_get_int32(duk_to_number(thr, i), &i32) || + i32 < 0 || i32 > 0x10ffffL) { + DUK_DCERROR_RANGE_INVALID_ARGS(thr); + } + DUK_ASSERT(i32 >= 0 && i32 <= 0x10ffffL); + cp = (duk_ucodepoint_t) i32; + DUK_BW_WRITE_ENSURE_CESU8(thr, bw, cp); + } else { +#if defined(DUK_USE_NONSTD_STRING_FROMCHARCODE_32BIT) + /* ToUint16() coercion is mandatory in the E5.1 specification, but + * this non-compliant behavior makes more sense because we support + * non-BMP codepoints. Don't use CESU-8 because that'd create + * surrogate pairs. + */ + cp = (duk_ucodepoint_t) duk_to_uint32(thr, i); + DUK_BW_WRITE_ENSURE_XUTF8(thr, bw, cp); +#else + cp = (duk_ucodepoint_t) duk_to_uint16(thr, i); + DUK_ASSERT(cp >= 0 && cp <= 0x10ffffL); + DUK_BW_WRITE_ENSURE_CESU8(thr, bw, cp); +#endif + } + } + + DUK_BW_COMPACT(thr, bw); + (void) duk_buffer_to_string(thr, -1); /* Safe, extended UTF-8 or CESU-8 encoded. */ + return 1; +} + +DUK_INTERNAL duk_ret_t duk_bi_string_constructor_from_char_code(duk_hthread *thr) { + return duk__construct_from_codepoints(thr, 0 /*nonbmp*/); +} + +#if defined(DUK_USE_ES6) +DUK_INTERNAL duk_ret_t duk_bi_string_constructor_from_code_point(duk_hthread *thr) { + return duk__construct_from_codepoints(thr, 1 /*nonbmp*/); +} +#endif + +/* + * toString(), valueOf() + */ + +DUK_INTERNAL duk_ret_t duk_bi_string_prototype_to_string(duk_hthread *thr) { + duk_tval *tv; + + duk_push_this(thr); + tv = duk_require_tval(thr, -1); + DUK_ASSERT(tv != NULL); + + if (DUK_TVAL_IS_STRING(tv)) { + /* return as is */ + } else if (DUK_TVAL_IS_OBJECT(tv)) { + duk_hobject *h = DUK_TVAL_GET_OBJECT(tv); + DUK_ASSERT(h != NULL); + + /* Must be a "string object", i.e. class "String" */ + if (DUK_HOBJECT_GET_CLASS_NUMBER(h) != DUK_HOBJECT_CLASS_STRING) { + goto type_error; + } + + duk_xget_owndataprop_stridx_short(thr, -1, DUK_STRIDX_INT_VALUE); + DUK_ASSERT(duk_is_string(thr, -1)); + } else { + goto type_error; + } + + (void) duk_require_hstring_notsymbol(thr, -1); /* Reject symbols (and wrapped symbols). */ + return 1; + + type_error: + DUK_DCERROR_TYPE_INVALID_ARGS(thr); +} + +/* + * Character and charcode access + */ + +DUK_INTERNAL duk_ret_t duk_bi_string_prototype_char_at(duk_hthread *thr) { + duk_hstring *h; + duk_int_t pos; + + /* XXX: faster implementation */ + + h = duk_push_this_coercible_to_string(thr); + DUK_ASSERT(h != NULL); + + pos = duk_to_int(thr, 0); + + if (sizeof(duk_size_t) >= sizeof(duk_uint_t)) { + /* Cast to duk_size_t works in this case: + * - If pos < 0, (duk_size_t) pos will always be + * >= max_charlen, and result will be the empty string + * (see duk_substring()). + * - If pos >= 0, pos + 1 cannot wrap. + */ + DUK_ASSERT((duk_size_t) DUK_INT_MIN >= DUK_HSTRING_MAX_BYTELEN); + DUK_ASSERT((duk_size_t) DUK_INT_MAX + 1U > (duk_size_t) DUK_INT_MAX); + duk_substring(thr, -1, (duk_size_t) pos, (duk_size_t) pos + 1U); + } else { + /* If size_t is smaller than int, explicit bounds checks + * are needed because an int may wrap multiple times. + */ + if (DUK_UNLIKELY(pos < 0 || (duk_uint_t) pos >= (duk_uint_t) DUK_HSTRING_GET_CHARLEN(h))) { + duk_push_hstring_empty(thr); + } else { + duk_substring(thr, -1, (duk_size_t) pos, (duk_size_t) pos + 1U); + } + } + + return 1; +} + +/* Magic: 0=charCodeAt, 1=codePointAt */ +DUK_INTERNAL duk_ret_t duk_bi_string_prototype_char_code_at(duk_hthread *thr) { + duk_int_t pos; + duk_hstring *h; + duk_bool_t clamped; + duk_uint32_t cp; + duk_int_t magic; + + /* XXX: faster implementation */ + + DUK_DDD(DUK_DDDPRINT("arg=%!T", (duk_tval *) duk_get_tval(thr, 0))); + + h = duk_push_this_coercible_to_string(thr); + DUK_ASSERT(h != NULL); + + pos = duk_to_int_clamped_raw(thr, + 0 /*index*/, + 0 /*min(incl)*/, + (duk_int_t) DUK_HSTRING_GET_CHARLEN(h) - 1 /*max(incl)*/, + &clamped /*out_clamped*/); +#if defined(DUK_USE_ES6) + magic = duk_get_current_magic(thr); +#else + DUK_ASSERT(duk_get_current_magic(thr) == 0); + magic = 0; +#endif + if (clamped) { + /* For out-of-bounds indices .charCodeAt() returns NaN and + * .codePointAt() returns undefined. + */ + if (magic != 0) { + return 0; + } + duk_push_nan(thr); + } else { + DUK_ASSERT(pos >= 0); + cp = (duk_uint32_t) duk_hstring_char_code_at_raw(thr, h, (duk_uint_t) pos, (duk_bool_t) magic /*surrogate_aware*/); + duk_push_u32(thr, cp); + } + return 1; +} + +/* + * substring(), substr(), slice() + */ + +/* XXX: any chance of merging these three similar but still slightly + * different algorithms so that footprint would be reduced? + */ + +DUK_INTERNAL duk_ret_t duk_bi_string_prototype_substring(duk_hthread *thr) { + duk_hstring *h; + duk_int_t start_pos, end_pos; + duk_int_t len; + + h = duk_push_this_coercible_to_string(thr); + DUK_ASSERT(h != NULL); + len = (duk_int_t) DUK_HSTRING_GET_CHARLEN(h); + + /* [ start end str ] */ + + start_pos = duk_to_int_clamped(thr, 0, 0, len); + if (duk_is_undefined(thr, 1)) { + end_pos = len; + } else { + end_pos = duk_to_int_clamped(thr, 1, 0, len); + } + DUK_ASSERT(start_pos >= 0 && start_pos <= len); + DUK_ASSERT(end_pos >= 0 && end_pos <= len); + + if (start_pos > end_pos) { + duk_int_t tmp = start_pos; + start_pos = end_pos; + end_pos = tmp; + } + + DUK_ASSERT(end_pos >= start_pos); + + duk_substring(thr, -1, (duk_size_t) start_pos, (duk_size_t) end_pos); + return 1; +} + +#if defined(DUK_USE_SECTION_B) +DUK_INTERNAL duk_ret_t duk_bi_string_prototype_substr(duk_hthread *thr) { + duk_hstring *h; + duk_int_t start_pos, end_pos; + duk_int_t len; + + /* Unlike non-obsolete String calls, substr() algorithm in E5.1 + * specification will happily coerce undefined and null to strings + * ("undefined" and "null"). + */ + duk_push_this(thr); + h = duk_to_hstring_m1(thr); /* Reject Symbols. */ + DUK_ASSERT(h != NULL); + len = (duk_int_t) DUK_HSTRING_GET_CHARLEN(h); + + /* [ start length str ] */ + + /* The implementation for computing of start_pos and end_pos differs + * from the standard algorithm, but is intended to result in the exactly + * same behavior. This is not always obvious. + */ + + /* combines steps 2 and 5; -len ensures max() not needed for step 5 */ + start_pos = duk_to_int_clamped(thr, 0, -len, len); + if (start_pos < 0) { + start_pos = len + start_pos; + } + DUK_ASSERT(start_pos >= 0 && start_pos <= len); + + /* combines steps 3, 6; step 7 is not needed */ + if (duk_is_undefined(thr, 1)) { + end_pos = len; + } else { + DUK_ASSERT(start_pos <= len); + end_pos = start_pos + duk_to_int_clamped(thr, 1, 0, len - start_pos); + } + DUK_ASSERT(start_pos >= 0 && start_pos <= len); + DUK_ASSERT(end_pos >= 0 && end_pos <= len); + DUK_ASSERT(end_pos >= start_pos); + + duk_substring(thr, -1, (duk_size_t) start_pos, (duk_size_t) end_pos); + return 1; +} +#endif /* DUK_USE_SECTION_B */ + +DUK_INTERNAL duk_ret_t duk_bi_string_prototype_slice(duk_hthread *thr) { + duk_hstring *h; + duk_int_t start_pos, end_pos; + duk_int_t len; + + h = duk_push_this_coercible_to_string(thr); + DUK_ASSERT(h != NULL); + len = (duk_int_t) DUK_HSTRING_GET_CHARLEN(h); + + /* [ start end str ] */ + + start_pos = duk_to_int_clamped(thr, 0, -len, len); + if (start_pos < 0) { + start_pos = len + start_pos; + } + if (duk_is_undefined(thr, 1)) { + end_pos = len; + } else { + end_pos = duk_to_int_clamped(thr, 1, -len, len); + if (end_pos < 0) { + end_pos = len + end_pos; + } + } + DUK_ASSERT(start_pos >= 0 && start_pos <= len); + DUK_ASSERT(end_pos >= 0 && end_pos <= len); + + if (end_pos < start_pos) { + end_pos = start_pos; + } + + DUK_ASSERT(end_pos >= start_pos); + + duk_substring(thr, -1, (duk_size_t) start_pos, (duk_size_t) end_pos); + return 1; +} + +/* + * Case conversion + */ + +DUK_INTERNAL duk_ret_t duk_bi_string_prototype_caseconv_shared(duk_hthread *thr) { + duk_small_int_t uppercase = duk_get_current_magic(thr); + + (void) duk_push_this_coercible_to_string(thr); + duk_unicode_case_convert_string(thr, (duk_bool_t) uppercase); + return 1; +} + +/* + * indexOf() and lastIndexOf() + */ + +DUK_INTERNAL duk_ret_t duk_bi_string_prototype_indexof_shared(duk_hthread *thr) { + duk_hstring *h_this; + duk_hstring *h_search; + duk_int_t clen_this; + duk_int_t cpos; + duk_small_uint_t is_lastindexof = (duk_small_uint_t) duk_get_current_magic(thr); /* 0=indexOf, 1=lastIndexOf */ + + h_this = duk_push_this_coercible_to_string(thr); + DUK_ASSERT(h_this != NULL); + clen_this = (duk_int_t) DUK_HSTRING_GET_CHARLEN(h_this); + + h_search = duk_to_hstring(thr, 0); + DUK_ASSERT(h_search != NULL); + + duk_to_number(thr, 1); + if (duk_is_nan(thr, 1) && is_lastindexof) { + /* indexOf: NaN should cause pos to be zero. + * lastIndexOf: NaN should cause pos to be +Infinity + * (and later be clamped to len). + */ + cpos = clen_this; + } else { + cpos = duk_to_int_clamped(thr, 1, 0, clen_this); + } + + cpos = duk__str_search_shared(thr, h_this, h_search, cpos, is_lastindexof /*backwards*/); + duk_push_int(thr, cpos); + return 1; +} + +/* + * replace() + */ + +/* XXX: the current implementation works but is quite clunky; it compiles + * to almost 1,4kB of x86 code so it needs to be simplified (better approach, + * shared helpers, etc). Some ideas for refactoring: + * + * - a primitive to convert a string into a regexp matcher (reduces matching + * code at the cost of making matching much slower) + * - use replace() as a basic helper for match() and split(), which are both + * much simpler + * - API call to get_prop and to_boolean + */ + +DUK_INTERNAL duk_ret_t duk_bi_string_prototype_replace(duk_hthread *thr) { + duk_hstring *h_input; + duk_hstring *h_match; + duk_hstring *h_search; + duk_hobject *h_re; + duk_bufwriter_ctx bw_alloc; + duk_bufwriter_ctx *bw; +#if defined(DUK_USE_REGEXP_SUPPORT) + duk_bool_t is_regexp; + duk_bool_t is_global; +#endif + duk_bool_t is_repl_func; + duk_uint32_t match_start_coff, match_start_boff; +#if defined(DUK_USE_REGEXP_SUPPORT) + duk_int_t match_caps; +#endif + duk_uint32_t prev_match_end_boff; + const duk_uint8_t *r_start, *r_end, *r; /* repl string scan */ + duk_size_t tmp_sz; + + DUK_ASSERT_TOP(thr, 2); + h_input = duk_push_this_coercible_to_string(thr); + DUK_ASSERT(h_input != NULL); + + bw = &bw_alloc; + DUK_BW_INIT_PUSHBUF(thr, bw, DUK_HSTRING_GET_BYTELEN(h_input)); /* input size is good output starting point */ + + DUK_ASSERT_TOP(thr, 4); + + /* stack[0] = search value + * stack[1] = replace value + * stack[2] = input string + * stack[3] = result buffer + */ + + h_re = duk_get_hobject_with_class(thr, 0, DUK_HOBJECT_CLASS_REGEXP); + if (h_re) { +#if defined(DUK_USE_REGEXP_SUPPORT) + is_regexp = 1; + is_global = duk_get_prop_stridx_boolean(thr, 0, DUK_STRIDX_GLOBAL, NULL); + + if (is_global) { + /* start match from beginning */ + duk_push_int(thr, 0); + duk_put_prop_stridx_short(thr, 0, DUK_STRIDX_LAST_INDEX); + } +#else /* DUK_USE_REGEXP_SUPPORT */ + DUK_DCERROR_UNSUPPORTED(thr); +#endif /* DUK_USE_REGEXP_SUPPORT */ + } else { + duk_to_string(thr, 0); /* rejects symbols */ +#if defined(DUK_USE_REGEXP_SUPPORT) + is_regexp = 0; + is_global = 0; +#endif + } + + if (duk_is_function(thr, 1)) { + is_repl_func = 1; + r_start = NULL; + r_end = NULL; + } else { + duk_hstring *h_repl; + + is_repl_func = 0; + h_repl = duk_to_hstring(thr, 1); /* reject symbols */ + DUK_ASSERT(h_repl != NULL); + r_start = DUK_HSTRING_GET_DATA(h_repl); + r_end = r_start + DUK_HSTRING_GET_BYTELEN(h_repl); + } + + prev_match_end_boff = 0; + + for (;;) { + /* + * If matching with a regexp: + * - non-global RegExp: lastIndex not touched on a match, zeroed + * on a non-match + * - global RegExp: on match, lastIndex will be updated by regexp + * executor to point to next char after the matching part (so that + * characters in the matching part are not matched again) + * + * If matching with a string: + * - always non-global match, find first occurrence + * + * We need: + * - The character offset of start-of-match for the replacer function + * - The byte offsets for start-of-match and end-of-match to implement + * the replacement values $&, $`, and $', and to copy non-matching + * input string portions (including header and trailer) verbatim. + * + * NOTE: the E5.1 specification is a bit vague how the RegExp should + * behave in the replacement process; e.g. is matching done first for + * all matches (in the global RegExp case) before any replacer calls + * are made? See: test-bi-string-proto-replace.js for discussion. + */ + + DUK_ASSERT_TOP(thr, 4); + +#if defined(DUK_USE_REGEXP_SUPPORT) + if (is_regexp) { + duk_dup_0(thr); + duk_dup_2(thr); + duk_regexp_match(thr); /* [ ... regexp input ] -> [ res_obj ] */ + if (!duk_is_object(thr, -1)) { + duk_pop(thr); + break; + } + + duk_get_prop_stridx_short(thr, -1, DUK_STRIDX_INDEX); + DUK_ASSERT(duk_is_number(thr, -1)); + match_start_coff = duk_get_uint(thr, -1); + duk_pop(thr); + + duk_get_prop_index(thr, -1, 0); + DUK_ASSERT(duk_is_string(thr, -1)); + h_match = duk_known_hstring(thr, -1); + duk_pop(thr); /* h_match is borrowed, remains reachable through match_obj */ + + if (DUK_HSTRING_GET_BYTELEN(h_match) == 0) { + /* This should be equivalent to match() algorithm step 8.f.iii.2: + * detect an empty match and allow it, but don't allow it twice. + */ + duk_uint32_t last_index; + + duk_get_prop_stridx_short(thr, 0, DUK_STRIDX_LAST_INDEX); + last_index = (duk_uint32_t) duk_get_uint(thr, -1); + DUK_DDD(DUK_DDDPRINT("empty match, bump lastIndex: %ld -> %ld", + (long) last_index, (long) (last_index + 1))); + duk_pop(thr); + duk_push_uint(thr, (duk_uint_t) (last_index + 1)); + duk_put_prop_stridx_short(thr, 0, DUK_STRIDX_LAST_INDEX); + } + + DUK_ASSERT(duk_get_length(thr, -1) <= DUK_INT_MAX); /* string limits */ + match_caps = (duk_int_t) duk_get_length(thr, -1); + } else { +#else /* DUK_USE_REGEXP_SUPPORT */ + { /* unconditionally */ +#endif /* DUK_USE_REGEXP_SUPPORT */ + const duk_uint8_t *p_start, *p_end, *p; /* input string scan */ + const duk_uint8_t *q_start; /* match string */ + duk_size_t q_blen; + +#if defined(DUK_USE_REGEXP_SUPPORT) + DUK_ASSERT(!is_global); /* single match always */ +#endif + + p_start = DUK_HSTRING_GET_DATA(h_input); + p_end = p_start + DUK_HSTRING_GET_BYTELEN(h_input); + p = p_start; + + h_search = duk_known_hstring(thr, 0); + q_start = DUK_HSTRING_GET_DATA(h_search); + q_blen = (duk_size_t) DUK_HSTRING_GET_BYTELEN(h_search); + + p_end -= q_blen; /* ensure full memcmp() fits in while */ + + match_start_coff = 0; + + while (p <= p_end) { + DUK_ASSERT(p + q_blen <= DUK_HSTRING_GET_DATA(h_input) + DUK_HSTRING_GET_BYTELEN(h_input)); + if (duk_memcmp((const void *) p, (const void *) q_start, (size_t) q_blen) == 0) { + duk_dup_0(thr); + h_match = duk_known_hstring(thr, -1); +#if defined(DUK_USE_REGEXP_SUPPORT) + match_caps = 0; +#endif + goto found; + } + + /* track utf-8 non-continuation bytes */ + if ((p[0] & 0xc0) != 0x80) { + match_start_coff++; + } + p++; + } + + /* not found */ + break; + } + found: + + /* stack[0] = search value + * stack[1] = replace value + * stack[2] = input string + * stack[3] = result buffer + * stack[4] = regexp match OR match string + */ + + match_start_boff = (duk_uint32_t) duk_heap_strcache_offset_char2byte(thr, h_input, match_start_coff); + + tmp_sz = (duk_size_t) (match_start_boff - prev_match_end_boff); + DUK_BW_WRITE_ENSURE_BYTES(thr, bw, DUK_HSTRING_GET_DATA(h_input) + prev_match_end_boff, tmp_sz); + + prev_match_end_boff = match_start_boff + DUK_HSTRING_GET_BYTELEN(h_match); + + if (is_repl_func) { + duk_idx_t idx_args; + duk_hstring *h_repl; + + /* regexp res_obj is at index 4 */ + + duk_dup_1(thr); + idx_args = duk_get_top(thr); + +#if defined(DUK_USE_REGEXP_SUPPORT) + if (is_regexp) { + duk_int_t idx; + duk_require_stack(thr, match_caps + 2); + for (idx = 0; idx < match_caps; idx++) { + /* match followed by capture(s) */ + duk_get_prop_index(thr, 4, (duk_uarridx_t) idx); + } + } else { +#else /* DUK_USE_REGEXP_SUPPORT */ + { /* unconditionally */ +#endif /* DUK_USE_REGEXP_SUPPORT */ + /* match == search string, by definition */ + duk_dup_0(thr); + } + duk_push_uint(thr, (duk_uint_t) match_start_coff); + duk_dup_2(thr); + + /* [ ... replacer match [captures] match_char_offset input ] */ + + duk_call(thr, duk_get_top(thr) - idx_args); + h_repl = duk_to_hstring_m1(thr); /* -> [ ... repl_value ] */ + DUK_ASSERT(h_repl != NULL); + + DUK_BW_WRITE_ENSURE_HSTRING(thr, bw, h_repl); + + duk_pop(thr); /* repl_value */ + } else { + r = r_start; + + while (r < r_end) { + duk_int_t ch1; + duk_int_t ch2; +#if defined(DUK_USE_REGEXP_SUPPORT) + duk_int_t ch3; +#endif + duk_size_t left; + + ch1 = *r++; + if (ch1 != DUK_ASC_DOLLAR) { + goto repl_write; + } + DUK_ASSERT(r <= r_end); + left = (duk_size_t) (r_end - r); + + if (left <= 0) { + goto repl_write; + } + + ch2 = r[0]; + switch (ch2) { + case DUK_ASC_DOLLAR: { + ch1 = (1 << 8) + DUK_ASC_DOLLAR; + goto repl_write; + } + case DUK_ASC_AMP: { + DUK_BW_WRITE_ENSURE_HSTRING(thr, bw, h_match); + r++; + continue; + } + case DUK_ASC_GRAVE: { + tmp_sz = (duk_size_t) match_start_boff; + DUK_BW_WRITE_ENSURE_BYTES(thr, bw, DUK_HSTRING_GET_DATA(h_input), tmp_sz); + r++; + continue; + } + case DUK_ASC_SINGLEQUOTE: { + duk_uint32_t match_end_boff; + + /* Use match charlen instead of bytelen, just in case the input and + * match codepoint encodings would have different lengths. + */ + /* XXX: charlen computed here, and also in char2byte helper. */ + match_end_boff = (duk_uint32_t) duk_heap_strcache_offset_char2byte(thr, + h_input, + match_start_coff + (duk_uint_fast32_t) DUK_HSTRING_GET_CHARLEN(h_match)); + + tmp_sz = (duk_size_t) (DUK_HSTRING_GET_BYTELEN(h_input) - match_end_boff); + DUK_BW_WRITE_ENSURE_BYTES(thr, bw, DUK_HSTRING_GET_DATA(h_input) + match_end_boff, tmp_sz); + r++; + continue; + } + default: { +#if defined(DUK_USE_REGEXP_SUPPORT) + duk_int_t capnum, captmp, capadv; + /* XXX: optional check, match_caps is zero if no regexp, + * so dollar will be interpreted literally anyway. + */ + + if (!is_regexp) { + goto repl_write; + } + + if (!(ch2 >= DUK_ASC_0 && ch2 <= DUK_ASC_9)) { + goto repl_write; + } + capnum = ch2 - DUK_ASC_0; + capadv = 1; + + if (left >= 2) { + ch3 = r[1]; + if (ch3 >= DUK_ASC_0 && ch3 <= DUK_ASC_9) { + captmp = capnum * 10 + (ch3 - DUK_ASC_0); + if (captmp < match_caps) { + capnum = captmp; + capadv = 2; + } + } + } + + if (capnum > 0 && capnum < match_caps) { + DUK_ASSERT(is_regexp != 0); /* match_caps == 0 without regexps */ + + /* regexp res_obj is at offset 4 */ + duk_get_prop_index(thr, 4, (duk_uarridx_t) capnum); + if (duk_is_string(thr, -1)) { + duk_hstring *h_tmp_str; + + h_tmp_str = duk_known_hstring(thr, -1); + + DUK_BW_WRITE_ENSURE_HSTRING(thr, bw, h_tmp_str); + } else { + /* undefined -> skip (replaced with empty) */ + } + duk_pop(thr); + r += capadv; + continue; + } else { + goto repl_write; + } +#else /* DUK_USE_REGEXP_SUPPORT */ + goto repl_write; /* unconditionally */ +#endif /* DUK_USE_REGEXP_SUPPORT */ + } /* default case */ + } /* switch (ch2) */ + + repl_write: + /* ch1 = (r_increment << 8) + byte */ + + DUK_BW_WRITE_ENSURE_U8(thr, bw, (duk_uint8_t) (ch1 & 0xff)); + r += ch1 >> 8; + } /* while repl */ + } /* if (is_repl_func) */ + + duk_pop(thr); /* pop regexp res_obj or match string */ + +#if defined(DUK_USE_REGEXP_SUPPORT) + if (!is_global) { +#else + { /* unconditionally; is_global==0 */ +#endif + break; + } + } + + /* trailer */ + tmp_sz = (duk_size_t) (DUK_HSTRING_GET_BYTELEN(h_input) - prev_match_end_boff); + DUK_BW_WRITE_ENSURE_BYTES(thr, bw, DUK_HSTRING_GET_DATA(h_input) + prev_match_end_boff, tmp_sz); + + DUK_ASSERT_TOP(thr, 4); + DUK_BW_COMPACT(thr, bw); + (void) duk_buffer_to_string(thr, -1); /* Safe if inputs are safe. */ + return 1; +} + +/* + * split() + */ + +/* XXX: very messy now, but works; clean up, remove unused variables (nomimally + * used so compiler doesn't complain). + */ + +DUK_INTERNAL duk_ret_t duk_bi_string_prototype_split(duk_hthread *thr) { + duk_hstring *h_input; + duk_hstring *h_sep; + duk_uint32_t limit; + duk_uint32_t arr_idx; +#if defined(DUK_USE_REGEXP_SUPPORT) + duk_bool_t is_regexp; +#endif + duk_bool_t matched; /* set to 1 if any match exists (needed for empty input special case) */ + duk_uint32_t prev_match_end_coff, prev_match_end_boff; + duk_uint32_t match_start_boff, match_start_coff; + duk_uint32_t match_end_boff, match_end_coff; + + h_input = duk_push_this_coercible_to_string(thr); + DUK_ASSERT(h_input != NULL); + + duk_push_array(thr); + + if (duk_is_undefined(thr, 1)) { + limit = 0xffffffffUL; + } else { + limit = duk_to_uint32(thr, 1); + } + + if (limit == 0) { + return 1; + } + + /* If the separator is a RegExp, make a "clone" of it. The specification + * algorithm calls [[Match]] directly for specific indices; we emulate this + * by tweaking lastIndex and using a "force global" variant of duk_regexp_match() + * which will use global-style matching even when the RegExp itself is non-global. + */ + + if (duk_is_undefined(thr, 0)) { + /* The spec algorithm first does "R = ToString(separator)" before checking + * whether separator is undefined. Since this is side effect free, we can + * skip the ToString() here. + */ + duk_dup_2(thr); + duk_put_prop_index(thr, 3, 0); + return 1; + } else if (duk_get_hobject_with_class(thr, 0, DUK_HOBJECT_CLASS_REGEXP) != NULL) { +#if defined(DUK_USE_REGEXP_SUPPORT) + duk_push_hobject_bidx(thr, DUK_BIDX_REGEXP_CONSTRUCTOR); + duk_dup_0(thr); + duk_new(thr, 1); /* [ ... RegExp val ] -> [ ... res ] */ + duk_replace(thr, 0); + /* lastIndex is initialized to zero by new RegExp() */ + is_regexp = 1; +#else + DUK_DCERROR_UNSUPPORTED(thr); +#endif + } else { + duk_to_string(thr, 0); +#if defined(DUK_USE_REGEXP_SUPPORT) + is_regexp = 0; +#endif + } + + /* stack[0] = separator (string or regexp) + * stack[1] = limit + * stack[2] = input string + * stack[3] = result array + */ + + prev_match_end_boff = 0; + prev_match_end_coff = 0; + arr_idx = 0; + matched = 0; + + for (;;) { + /* + * The specification uses RegExp [[Match]] to attempt match at specific + * offsets. We don't have such a primitive, so we use an actual RegExp + * and tweak lastIndex. Since the RegExp may be non-global, we use a + * special variant which forces global-like behavior for matching. + */ + + DUK_ASSERT_TOP(thr, 4); + +#if defined(DUK_USE_REGEXP_SUPPORT) + if (is_regexp) { + duk_dup_0(thr); + duk_dup_2(thr); + duk_regexp_match_force_global(thr); /* [ ... regexp input ] -> [ res_obj ] */ + if (!duk_is_object(thr, -1)) { + duk_pop(thr); + break; + } + matched = 1; + + duk_get_prop_stridx_short(thr, -1, DUK_STRIDX_INDEX); + DUK_ASSERT(duk_is_number(thr, -1)); + match_start_coff = duk_get_uint(thr, -1); + match_start_boff = (duk_uint32_t) duk_heap_strcache_offset_char2byte(thr, h_input, match_start_coff); + duk_pop(thr); + + if (match_start_coff == DUK_HSTRING_GET_CHARLEN(h_input)) { + /* don't allow an empty match at the end of the string */ + duk_pop(thr); + break; + } + + duk_get_prop_stridx_short(thr, 0, DUK_STRIDX_LAST_INDEX); + DUK_ASSERT(duk_is_number(thr, -1)); + match_end_coff = duk_get_uint(thr, -1); + match_end_boff = (duk_uint32_t) duk_heap_strcache_offset_char2byte(thr, h_input, match_end_coff); + duk_pop(thr); + + /* empty match -> bump and continue */ + if (prev_match_end_boff == match_end_boff) { + duk_push_uint(thr, (duk_uint_t) (match_end_coff + 1)); + duk_put_prop_stridx_short(thr, 0, DUK_STRIDX_LAST_INDEX); + duk_pop(thr); + continue; + } + } else { +#else /* DUK_USE_REGEXP_SUPPORT */ + { /* unconditionally */ +#endif /* DUK_USE_REGEXP_SUPPORT */ + const duk_uint8_t *p_start, *p_end, *p; /* input string scan */ + const duk_uint8_t *q_start; /* match string */ + duk_size_t q_blen, q_clen; + + p_start = DUK_HSTRING_GET_DATA(h_input); + p_end = p_start + DUK_HSTRING_GET_BYTELEN(h_input); + p = p_start + prev_match_end_boff; + + h_sep = duk_known_hstring(thr, 0); /* symbol already rejected above */ + q_start = DUK_HSTRING_GET_DATA(h_sep); + q_blen = (duk_size_t) DUK_HSTRING_GET_BYTELEN(h_sep); + q_clen = (duk_size_t) DUK_HSTRING_GET_CHARLEN(h_sep); + + p_end -= q_blen; /* ensure full memcmp() fits in while */ + + match_start_coff = prev_match_end_coff; + + if (q_blen == 0) { + /* Handle empty separator case: it will always match, and always + * triggers the check in step 13.c.iii initially. Note that we + * must skip to either end of string or start of first codepoint, + * skipping over any continuation bytes! + * + * Don't allow an empty string to match at the end of the input. + */ + + matched = 1; /* empty separator can always match */ + + match_start_coff++; + p++; + while (p < p_end) { + if ((p[0] & 0xc0) != 0x80) { + goto found; + } + p++; + } + goto not_found; + } + + DUK_ASSERT(q_blen > 0 && q_clen > 0); + while (p <= p_end) { + DUK_ASSERT(p + q_blen <= DUK_HSTRING_GET_DATA(h_input) + DUK_HSTRING_GET_BYTELEN(h_input)); + DUK_ASSERT(q_blen > 0); /* no issues with empty memcmp() */ + if (duk_memcmp((const void *) p, (const void *) q_start, (size_t) q_blen) == 0) { + /* never an empty match, so step 13.c.iii can't be triggered */ + goto found; + } + + /* track utf-8 non-continuation bytes */ + if ((p[0] & 0xc0) != 0x80) { + match_start_coff++; + } + p++; + } + + not_found: + /* not found */ + break; + + found: + matched = 1; + match_start_boff = (duk_uint32_t) (p - p_start); + match_end_coff = (duk_uint32_t) (match_start_coff + q_clen); /* constrained by string length */ + match_end_boff = (duk_uint32_t) (match_start_boff + q_blen); /* ditto */ + + /* empty match (may happen with empty separator) -> bump and continue */ + if (prev_match_end_boff == match_end_boff) { + prev_match_end_boff++; + prev_match_end_coff++; + continue; + } + } /* if (is_regexp) */ + + /* stack[0] = separator (string or regexp) + * stack[1] = limit + * stack[2] = input string + * stack[3] = result array + * stack[4] = regexp res_obj (if is_regexp) + */ + + DUK_DDD(DUK_DDDPRINT("split; match_start b=%ld,c=%ld, match_end b=%ld,c=%ld, prev_end b=%ld,c=%ld", + (long) match_start_boff, (long) match_start_coff, + (long) match_end_boff, (long) match_end_coff, + (long) prev_match_end_boff, (long) prev_match_end_coff)); + + duk_push_lstring(thr, + (const char *) (DUK_HSTRING_GET_DATA(h_input) + prev_match_end_boff), + (duk_size_t) (match_start_boff - prev_match_end_boff)); + duk_put_prop_index(thr, 3, arr_idx); + arr_idx++; + if (arr_idx >= limit) { + goto hit_limit; + } + +#if defined(DUK_USE_REGEXP_SUPPORT) + if (is_regexp) { + duk_size_t i, len; + + len = duk_get_length(thr, 4); + for (i = 1; i < len; i++) { + DUK_ASSERT(i <= DUK_UARRIDX_MAX); /* cannot have >4G captures */ + duk_get_prop_index(thr, 4, (duk_uarridx_t) i); + duk_put_prop_index(thr, 3, arr_idx); + arr_idx++; + if (arr_idx >= limit) { + goto hit_limit; + } + } + + duk_pop(thr); + /* lastIndex already set up for next match */ + } else { +#else /* DUK_USE_REGEXP_SUPPORT */ + { /* unconditionally */ +#endif /* DUK_USE_REGEXP_SUPPORT */ + /* no action */ + } + + prev_match_end_boff = match_end_boff; + prev_match_end_coff = match_end_coff; + continue; + } /* for */ + + /* Combined step 11 (empty string special case) and 14-15. */ + + DUK_DDD(DUK_DDDPRINT("split trailer; prev_end b=%ld,c=%ld", + (long) prev_match_end_boff, (long) prev_match_end_coff)); + + if (DUK_HSTRING_GET_BYTELEN(h_input) > 0 || !matched) { + /* Add trailer if: + * a) non-empty input + * b) empty input and no (zero size) match found (step 11) + */ + + duk_push_lstring(thr, + (const char *) DUK_HSTRING_GET_DATA(h_input) + prev_match_end_boff, + (duk_size_t) (DUK_HSTRING_GET_BYTELEN(h_input) - prev_match_end_boff)); + duk_put_prop_index(thr, 3, arr_idx); + /* No arr_idx update or limit check */ + } + + return 1; + + hit_limit: +#if defined(DUK_USE_REGEXP_SUPPORT) + if (is_regexp) { + duk_pop(thr); + } +#endif + + return 1; +} + +/* + * Various + */ + +#if defined(DUK_USE_REGEXP_SUPPORT) +DUK_LOCAL void duk__to_regexp_helper(duk_hthread *thr, duk_idx_t idx, duk_bool_t force_new) { + duk_hobject *h; + + /* Shared helper for match() steps 3-4, search() steps 3-4. */ + + DUK_ASSERT(idx >= 0); + + if (force_new) { + goto do_new; + } + + h = duk_get_hobject_with_class(thr, idx, DUK_HOBJECT_CLASS_REGEXP); + if (!h) { + goto do_new; + } + return; + + do_new: + duk_push_hobject_bidx(thr, DUK_BIDX_REGEXP_CONSTRUCTOR); + duk_dup(thr, idx); + duk_new(thr, 1); /* [ ... RegExp val ] -> [ ... res ] */ + duk_replace(thr, idx); +} +#endif /* DUK_USE_REGEXP_SUPPORT */ + +#if defined(DUK_USE_REGEXP_SUPPORT) +DUK_INTERNAL duk_ret_t duk_bi_string_prototype_search(duk_hthread *thr) { + /* Easiest way to implement the search required by the specification + * is to do a RegExp test() with lastIndex forced to zero. To avoid + * side effects on the argument, "clone" the RegExp if a RegExp was + * given as input. + * + * The global flag of the RegExp should be ignored; setting lastIndex + * to zero (which happens when "cloning" the RegExp) should have an + * equivalent effect. + */ + + DUK_ASSERT_TOP(thr, 1); + (void) duk_push_this_coercible_to_string(thr); /* at index 1 */ + duk__to_regexp_helper(thr, 0 /*index*/, 1 /*force_new*/); + + /* stack[0] = regexp + * stack[1] = string + */ + + /* Avoid using RegExp.prototype methods, as they're writable and + * configurable and may have been changed. + */ + + duk_dup_0(thr); + duk_dup_1(thr); /* [ ... re_obj input ] */ + duk_regexp_match(thr); /* -> [ ... res_obj ] */ + + if (!duk_is_object(thr, -1)) { + duk_push_int(thr, -1); + return 1; + } + + duk_get_prop_stridx_short(thr, -1, DUK_STRIDX_INDEX); + DUK_ASSERT(duk_is_number(thr, -1)); + return 1; +} +#endif /* DUK_USE_REGEXP_SUPPORT */ + +#if defined(DUK_USE_REGEXP_SUPPORT) +DUK_INTERNAL duk_ret_t duk_bi_string_prototype_match(duk_hthread *thr) { + duk_bool_t global; + duk_int_t prev_last_index; + duk_int_t this_index; + duk_int_t arr_idx; + + DUK_ASSERT_TOP(thr, 1); + (void) duk_push_this_coercible_to_string(thr); + duk__to_regexp_helper(thr, 0 /*index*/, 0 /*force_new*/); + global = duk_get_prop_stridx_boolean(thr, 0, DUK_STRIDX_GLOBAL, NULL); + DUK_ASSERT_TOP(thr, 2); + + /* stack[0] = regexp + * stack[1] = string + */ + + if (!global) { + duk_regexp_match(thr); /* -> [ res_obj ] */ + return 1; /* return 'res_obj' */ + } + + /* Global case is more complex. */ + + /* [ regexp string ] */ + + duk_push_int(thr, 0); + duk_put_prop_stridx_short(thr, 0, DUK_STRIDX_LAST_INDEX); + duk_push_array(thr); + + /* [ regexp string res_arr ] */ + + prev_last_index = 0; + arr_idx = 0; + + for (;;) { + DUK_ASSERT_TOP(thr, 3); + + duk_dup_0(thr); + duk_dup_1(thr); + duk_regexp_match(thr); /* -> [ ... regexp string ] -> [ ... res_obj ] */ + + if (!duk_is_object(thr, -1)) { + duk_pop(thr); + break; + } + + duk_get_prop_stridx_short(thr, 0, DUK_STRIDX_LAST_INDEX); + DUK_ASSERT(duk_is_number(thr, -1)); + this_index = duk_get_int(thr, -1); + duk_pop(thr); + + if (this_index == prev_last_index) { + this_index++; + duk_push_int(thr, this_index); + duk_put_prop_stridx_short(thr, 0, DUK_STRIDX_LAST_INDEX); + } + prev_last_index = this_index; + + duk_get_prop_index(thr, -1, 0); /* match string */ + duk_put_prop_index(thr, 2, (duk_uarridx_t) arr_idx); + arr_idx++; + duk_pop(thr); /* res_obj */ + } + + if (arr_idx == 0) { + duk_push_null(thr); + } + + return 1; /* return 'res_arr' or 'null' */ +} +#endif /* DUK_USE_REGEXP_SUPPORT */ + +DUK_INTERNAL duk_ret_t duk_bi_string_prototype_concat(duk_hthread *thr) { + /* duk_concat() coerces arguments with ToString() in correct order */ + (void) duk_push_this_coercible_to_string(thr); + duk_insert(thr, 0); /* this is relatively expensive */ + duk_concat(thr, duk_get_top(thr)); + return 1; +} + +DUK_INTERNAL duk_ret_t duk_bi_string_prototype_trim(duk_hthread *thr) { + DUK_ASSERT_TOP(thr, 0); + (void) duk_push_this_coercible_to_string(thr); + duk_trim(thr, 0); + DUK_ASSERT_TOP(thr, 1); + return 1; +} + +#if defined(DUK_USE_ES6) +DUK_INTERNAL duk_ret_t duk_bi_string_prototype_repeat(duk_hthread *thr) { + duk_hstring *h_input; + duk_size_t input_blen; + duk_size_t result_len; + duk_int_t count_signed; + duk_uint_t count; + const duk_uint8_t *src; + duk_uint8_t *buf; + duk_uint8_t *p; + duk_double_t d; +#if !defined(DUK_USE_PREFER_SIZE) + duk_size_t copy_size; + duk_uint8_t *p_end; +#endif + + DUK_ASSERT_TOP(thr, 1); + h_input = duk_push_this_coercible_to_string(thr); + DUK_ASSERT(h_input != NULL); + input_blen = DUK_HSTRING_GET_BYTELEN(h_input); + + /* Count is ToNumber() coerced; +Infinity must be always rejected + * (even if input string is zero length), as well as negative values + * and -Infinity. -Infinity doesn't require an explicit check + * because duk_get_int() clamps it to DUK_INT_MIN which gets rejected + * as a negative value (regardless of input string length). + */ + d = duk_to_number(thr, 0); + if (duk_double_is_posinf(d)) { + goto fail_range; + } + count_signed = duk_get_int(thr, 0); + if (count_signed < 0) { + goto fail_range; + } + count = (duk_uint_t) count_signed; + + /* Overflow check for result length. */ + result_len = count * input_blen; + if (count != 0 && result_len / count != input_blen) { + goto fail_range; + } + + /* Temporary fixed buffer, later converted to string. */ + buf = (duk_uint8_t *) duk_push_fixed_buffer_nozero(thr, result_len); + DUK_ASSERT(buf != NULL); + src = (const duk_uint8_t *) DUK_HSTRING_GET_DATA(h_input); + DUK_ASSERT(src != NULL); + +#if defined(DUK_USE_PREFER_SIZE) + p = buf; + while (count-- > 0) { + duk_memcpy((void *) p, (const void *) src, input_blen); /* copy size may be zero, but pointers are valid */ + p += input_blen; + } +#else /* DUK_USE_PREFER_SIZE */ + /* Take advantage of already copied pieces to speed up the process + * especially for small repeated strings. + */ + p = buf; + p_end = p + result_len; + copy_size = input_blen; + for (;;) { + duk_size_t remain = (duk_size_t) (p_end - p); + DUK_DDD(DUK_DDDPRINT("remain=%ld, copy_size=%ld, input_blen=%ld, result_len=%ld", + (long) remain, (long) copy_size, (long) input_blen, + (long) result_len)); + if (remain <= copy_size) { + /* If result_len is zero, this case is taken and does + * a zero size copy (with valid pointers). + */ + duk_memcpy((void *) p, (const void *) src, remain); + break; + } else { + duk_memcpy((void *) p, (const void *) src, copy_size); + p += copy_size; + } + + src = (const duk_uint8_t *) buf; /* Use buf as source for larger copies. */ + copy_size = (duk_size_t) (p - buf); + } +#endif /* DUK_USE_PREFER_SIZE */ + + /* XXX: It would be useful to be able to create a duk_hstring with + * a certain byte size whose data area wasn't initialized and which + * wasn't in the string table yet. This would allow a string to be + * constructed directly without a buffer temporary and when it was + * finished, it could be injected into the string table. Currently + * this isn't possible because duk_hstrings are only tracked by the + * intern table (they are not in heap_allocated). + */ + + duk_buffer_to_string(thr, -1); /* Safe if input is safe. */ + return 1; + + fail_range: + DUK_DCERROR_RANGE_INVALID_ARGS(thr); +} +#endif /* DUK_USE_ES6 */ + +DUK_INTERNAL duk_ret_t duk_bi_string_prototype_locale_compare(duk_hthread *thr) { + duk_hstring *h1; + duk_hstring *h2; + duk_size_t h1_len, h2_len, prefix_len; + duk_small_int_t ret = 0; + duk_small_int_t rc; + + /* The current implementation of localeCompare() is simply a codepoint + * by codepoint comparison, implemented with a simple string compare + * because UTF-8 should preserve codepoint ordering (assuming valid + * shortest UTF-8 encoding). + * + * The specification requires that the return value must be related + * to the sort order: e.g. negative means that 'this' comes before + * 'that' in sort order. We assume an ascending sort order. + */ + + /* XXX: could share code with duk_js_ops.c, duk_js_compare_helper */ + + h1 = duk_push_this_coercible_to_string(thr); + DUK_ASSERT(h1 != NULL); + + h2 = duk_to_hstring(thr, 0); + DUK_ASSERT(h2 != NULL); + + h1_len = (duk_size_t) DUK_HSTRING_GET_BYTELEN(h1); + h2_len = (duk_size_t) DUK_HSTRING_GET_BYTELEN(h2); + prefix_len = (h1_len <= h2_len ? h1_len : h2_len); + + rc = (duk_small_int_t) duk_memcmp((const void *) DUK_HSTRING_GET_DATA(h1), + (const void *) DUK_HSTRING_GET_DATA(h2), + (size_t) prefix_len); + + if (rc < 0) { + ret = -1; + goto done; + } else if (rc > 0) { + ret = 1; + goto done; + } + + /* prefix matches, lengths matter now */ + if (h1_len > h2_len) { + ret = 1; + goto done; + } else if (h1_len == h2_len) { + DUK_ASSERT(ret == 0); + goto done; + } + ret = -1; + goto done; + + done: + duk_push_int(thr, (duk_int_t) ret); + return 1; +} + +#if defined(DUK_USE_ES6) +DUK_INTERNAL duk_ret_t duk_bi_string_prototype_startswith_endswith(duk_hthread *thr) { + duk_int_t magic; + duk_hstring *h; + duk_hstring *h_search; + duk_size_t blen_search; + const duk_uint8_t *p_cmp_start; + duk_bool_t result; + + h = duk_push_this_coercible_to_string(thr); + DUK_ASSERT(h != NULL); + + h_search = duk__str_tostring_notregexp(thr, 0); + DUK_ASSERT(h_search != NULL); + + magic = duk_get_current_magic(thr); + + p_cmp_start = (const duk_uint8_t *) DUK_HSTRING_GET_DATA(h); + blen_search = DUK_HSTRING_GET_BYTELEN(h_search); + + if (duk_is_undefined(thr, 1)) { + if (magic) { + p_cmp_start = p_cmp_start + DUK_HSTRING_GET_BYTELEN(h) - blen_search; + } else { + /* p_cmp_start already OK */ + } + } else { + duk_int_t len; + duk_int_t pos; + + DUK_ASSERT(DUK_HSTRING_MAX_BYTELEN <= DUK_INT_MAX); + len = (duk_int_t) DUK_HSTRING_GET_CHARLEN(h); + pos = duk_to_int_clamped(thr, 1, 0, len); + DUK_ASSERT(pos >= 0 && pos <= len); + + if (magic) { + p_cmp_start -= blen_search; /* Conceptually subtracted last, but do already here. */ + } + DUK_ASSERT(pos >= 0 && pos <= len); + + p_cmp_start += duk_heap_strcache_offset_char2byte(thr, h, (duk_uint_fast32_t) pos); + } + + /* The main comparison can be done using a memcmp() rather than + * doing codepoint comparisons: for CESU-8 strings there is a + * canonical representation for every codepoint. But we do need + * to deal with the char/byte offset translation to find the + * comparison range. + */ + + result = 0; + if (p_cmp_start >= DUK_HSTRING_GET_DATA(h) && + (duk_size_t) (p_cmp_start - (const duk_uint8_t *) DUK_HSTRING_GET_DATA(h)) + blen_search <= DUK_HSTRING_GET_BYTELEN(h)) { + if (duk_memcmp((const void *) p_cmp_start, + (const void *) DUK_HSTRING_GET_DATA(h_search), + (size_t) blen_search) == 0) { + result = 1; + } + } + + duk_push_boolean(thr, result); + return 1; +} +#endif /* DUK_USE_ES6 */ + +#if defined(DUK_USE_ES6) +DUK_INTERNAL duk_ret_t duk_bi_string_prototype_includes(duk_hthread *thr) { + duk_hstring *h; + duk_hstring *h_search; + duk_int_t len; + duk_int_t pos; + + h = duk_push_this_coercible_to_string(thr); + DUK_ASSERT(h != NULL); + + h_search = duk__str_tostring_notregexp(thr, 0); + DUK_ASSERT(h_search != NULL); + + len = (duk_int_t) DUK_HSTRING_GET_CHARLEN(h); + pos = duk_to_int_clamped(thr, 1, 0, len); + DUK_ASSERT(pos >= 0 && pos <= len); + + pos = duk__str_search_shared(thr, h, h_search, pos, 0 /*backwards*/); + duk_push_boolean(thr, pos >= 0); + return 1; +} +#endif /* DUK_USE_ES6 */ +#endif /* DUK_USE_STRING_BUILTIN */ +#line 1 "duk_bi_symbol.c" +/* + * Symbol built-in + */ + +/* #include duk_internal.h -> already included */ + +#if defined(DUK_USE_SYMBOL_BUILTIN) + +/* + * Constructor + */ + +DUK_INTERNAL duk_ret_t duk_bi_symbol_constructor_shared(duk_hthread *thr) { + const duk_uint8_t *desc; + duk_size_t len; + duk_uint8_t *buf; + duk_uint8_t *p; + duk_int_t magic; + + magic = duk_get_current_magic(thr); + if (duk_is_undefined(thr, 0) && (magic == 0)) { + /* Symbol() accepts undefined and empty string, but they are + * treated differently. + */ + desc = NULL; + len = 0; + } else { + /* Symbol.for() coerces undefined to 'undefined' */ + desc = (const duk_uint8_t *) duk_to_lstring(thr, 0, &len); + } + + /* Maximum symbol data length: + * +1 initial byte (0x80 or 0x81) + * +len description + * +1 0xff after description, before unique suffix + * +17 autogenerated unique suffix: 'ffffffff-ffffffff' is longest + * +1 0xff after unique suffix for symbols with undefined description + */ + buf = (duk_uint8_t *) duk_push_fixed_buffer(thr, 1 + len + 1 + 17 + 1); + DUK_ASSERT(buf != NULL); + p = buf + 1; + DUK_ASSERT(desc != NULL || len == 0); /* may be NULL if len is 0 */ + duk_memcpy_unsafe((void *) p, (const void *) desc, len); + p += len; + if (magic == 0) { + /* Symbol(): create unique symbol. Use two 32-bit values + * to avoid dependency on 64-bit types and 64-bit integer + * formatting (at least for now). + */ + if (++thr->heap->sym_counter[0] == 0) { + thr->heap->sym_counter[1]++; + } + p += DUK_SPRINTF((char *) p, "\xFF" "%lx-%lx", + (unsigned long) thr->heap->sym_counter[1], + (unsigned long) thr->heap->sym_counter[0]); + if (desc == NULL) { + /* Special case for 'undefined' description, trailing + * 0xff distinguishes from empty string description, + * but needs minimal special case handling elsewhere. + */ + *p++ = 0xff; + } + buf[0] = 0x81; + } else { + /* Symbol.for(): create a global symbol */ + buf[0] = 0x80; + } + + duk_push_lstring(thr, (const char *) buf, (duk_size_t) (p - buf)); + DUK_DDD(DUK_DDDPRINT("created symbol: %!T", duk_get_tval(thr, -1))); + return 1; +} + +DUK_LOCAL duk_hstring *duk__auto_unbox_symbol(duk_hthread *thr, duk_tval *tv_arg) { + duk_tval *tv; + duk_hobject *h_obj; + duk_hstring *h_str; + + DUK_ASSERT(tv_arg != NULL); + + /* XXX: add internal helper: duk_auto_unbox_tval(thr, tv, mask); */ + /* XXX: add internal helper: duk_auto_unbox(thr, tv, idx); */ + + tv = tv_arg; + if (DUK_TVAL_IS_OBJECT(tv)) { + h_obj = DUK_TVAL_GET_OBJECT(tv); + DUK_ASSERT(h_obj != NULL); + if (DUK_HOBJECT_GET_CLASS_NUMBER(h_obj) == DUK_HOBJECT_CLASS_SYMBOL) { + tv = duk_hobject_get_internal_value_tval_ptr(thr->heap, h_obj); + if (tv == NULL) { + return NULL; + } + } else { + return NULL; + } + } + + if (!DUK_TVAL_IS_STRING(tv)) { + return NULL; + } + h_str = DUK_TVAL_GET_STRING(tv); + DUK_ASSERT(h_str != NULL); + + /* Here symbol is more expected than not. */ + if (DUK_UNLIKELY(!DUK_HSTRING_HAS_SYMBOL(h_str))) { + return NULL; + } + + return h_str; +} + +DUK_INTERNAL duk_ret_t duk_bi_symbol_tostring_shared(duk_hthread *thr) { + duk_hstring *h_str; + + h_str = duk__auto_unbox_symbol(thr, DUK_HTHREAD_THIS_PTR(thr)); + if (h_str == NULL) { + return DUK_RET_TYPE_ERROR; + } + + if (duk_get_current_magic(thr) == 0) { + /* .toString() */ + duk_push_symbol_descriptive_string(thr, h_str); + } else { + /* .valueOf() */ + duk_push_hstring(thr, h_str); + } + return 1; +} + +DUK_INTERNAL duk_ret_t duk_bi_symbol_key_for(duk_hthread *thr) { + duk_hstring *h; + const duk_uint8_t *p; + + /* Argument must be a symbol but not checked here. The initial byte + * check will catch non-symbol strings. + */ + h = duk_require_hstring(thr, 0); + DUK_ASSERT(h != NULL); + + p = (const duk_uint8_t *) DUK_HSTRING_GET_DATA(h); + DUK_ASSERT(p != NULL); + + /* Even for zero length strings there's at least one NUL byte so + * we can safely check the initial byte. + */ + if (p[0] == 0x80) { + /* Global symbol, return its key (bytes just after the initial byte). */ + duk_push_lstring(thr, (const char *) (p + 1), (duk_size_t) (DUK_HSTRING_GET_BYTELEN(h) - 1)); + return 1; + } else if (p[0] == 0x81 || p[0] == 0x82 || p[0] == 0xff) { + /* Local symbol or hidden symbol, return undefined. */ + return 0; + } + + /* Covers normal strings and unknown initial bytes. */ + return DUK_RET_TYPE_ERROR; +} + +DUK_INTERNAL duk_ret_t duk_bi_symbol_toprimitive(duk_hthread *thr) { + duk_hstring *h_str; + + h_str = duk__auto_unbox_symbol(thr, DUK_HTHREAD_THIS_PTR(thr)); + if (h_str == NULL) { + return DUK_RET_TYPE_ERROR; + } + duk_push_hstring(thr, h_str); + return 1; +} + +#endif /* DUK_USE_SYMBOL_BUILTIN */ +#line 1 "duk_bi_thread.c" +/* + * Thread builtins + */ + +/* #include duk_internal.h -> already included */ + +/* + * Constructor + */ + +#if defined(DUK_USE_COROUTINE_SUPPORT) +DUK_INTERNAL duk_ret_t duk_bi_thread_constructor(duk_hthread *thr) { + duk_hthread *new_thr; + duk_hobject *func; + + /* Check that the argument is callable; this is not 100% because we + * don't allow native functions to be a thread's initial function. + * Resume will reject such functions in any case. + */ + /* XXX: need a duk_require_func_promote_lfunc() */ + func = duk_require_hobject_promote_lfunc(thr, 0); + DUK_ASSERT(func != NULL); + duk_require_callable(thr, 0); + + duk_push_thread(thr); + new_thr = (duk_hthread *) duk_known_hobject(thr, -1); + new_thr->state = DUK_HTHREAD_STATE_INACTIVE; + + /* push initial function call to new thread stack; this is + * picked up by resume(). + */ + duk_push_hobject(new_thr, func); + + return 1; /* return thread */ +} +#endif + +/* + * Resume a thread. + * + * The thread must be in resumable state, either (a) new thread which hasn't + * yet started, or (b) a thread which has previously yielded. This method + * must be called from an ECMAScript function. + * + * Args: + * - thread + * - value + * - isError (defaults to false) + * + * Note: yield and resume handling is currently asymmetric. + */ + +#if defined(DUK_USE_COROUTINE_SUPPORT) +DUK_INTERNAL duk_ret_t duk_bi_thread_resume(duk_hthread *ctx) { + duk_hthread *thr = (duk_hthread *) ctx; + duk_hthread *thr_resume; + duk_hobject *caller_func; + duk_small_uint_t is_error; + + DUK_DDD(DUK_DDDPRINT("Duktape.Thread.resume(): thread=%!T, value=%!T, is_error=%!T", + (duk_tval *) duk_get_tval(thr, 0), + (duk_tval *) duk_get_tval(thr, 1), + (duk_tval *) duk_get_tval(thr, 2))); + + DUK_ASSERT(thr->state == DUK_HTHREAD_STATE_RUNNING); + DUK_ASSERT(thr->heap->curr_thread == thr); + + thr_resume = duk_require_hthread(thr, 0); + DUK_ASSERT(duk_get_top(thr) == 3); + is_error = (duk_small_uint_t) duk_to_boolean_top_pop(thr); + DUK_ASSERT(duk_get_top(thr) == 2); + + /* [ thread value ] */ + + /* + * Thread state and calling context checks + */ + + if (thr->callstack_top < 2) { + DUK_DD(DUK_DDPRINT("resume state invalid: callstack should contain at least 2 entries (caller and Duktape.Thread.resume)")); + goto state_error; + } + DUK_ASSERT(thr->callstack_curr != NULL); + DUK_ASSERT(thr->callstack_curr->parent != NULL); + DUK_ASSERT(DUK_ACT_GET_FUNC(thr->callstack_curr) != NULL); /* us */ + DUK_ASSERT(DUK_HOBJECT_IS_NATFUNC(DUK_ACT_GET_FUNC(thr->callstack_curr))); + DUK_ASSERT(DUK_ACT_GET_FUNC(thr->callstack_curr->parent) != NULL); /* caller */ + + caller_func = DUK_ACT_GET_FUNC(thr->callstack_curr->parent); + if (!DUK_HOBJECT_IS_COMPFUNC(caller_func)) { + DUK_DD(DUK_DDPRINT("resume state invalid: caller must be ECMAScript code")); + goto state_error; + } + + /* Note: there is no requirement that: 'thr->callstack_preventcount == 1' + * like for yield. + */ + + if (thr_resume->state != DUK_HTHREAD_STATE_INACTIVE && + thr_resume->state != DUK_HTHREAD_STATE_YIELDED) { + DUK_DD(DUK_DDPRINT("resume state invalid: target thread must be INACTIVE or YIELDED")); + goto state_error; + } + + DUK_ASSERT(thr_resume->state == DUK_HTHREAD_STATE_INACTIVE || + thr_resume->state == DUK_HTHREAD_STATE_YIELDED); + + /* Further state-dependent pre-checks */ + + if (thr_resume->state == DUK_HTHREAD_STATE_YIELDED) { + /* no pre-checks now, assume a previous yield() has left things in + * tip-top shape (longjmp handler will assert for these). + */ + } else { + duk_hobject *h_fun; + + DUK_ASSERT(thr_resume->state == DUK_HTHREAD_STATE_INACTIVE); + + /* The initial function must be an ECMAScript function (but + * can be bound). We must make sure of that before we longjmp + * because an error in the RESUME handler call processing will + * not be handled very cleanly. + */ + if ((thr_resume->callstack_top != 0) || + (thr_resume->valstack_top - thr_resume->valstack != 1)) { + goto state_error; + } + + duk_push_tval(thr, DUK_GET_TVAL_NEGIDX(thr_resume, -1)); + duk_resolve_nonbound_function(thr); + h_fun = duk_require_hobject(thr, -1); /* reject lightfuncs on purpose */ + if (!DUK_HOBJECT_IS_CALLABLE(h_fun) || !DUK_HOBJECT_IS_COMPFUNC(h_fun)) { + goto state_error; + } + duk_pop(thr); + } + +#if 0 + /* This check would prevent a heap destruction time finalizer from + * launching a coroutine, which would ensure that during finalization + * 'thr' would always equal heap_thread. Normal runtime finalizers + * run with ms_running == 0, i.e. outside mark-and-sweep. See GH-2030. + */ + if (thr->heap->ms_running) { + DUK_D(DUK_DPRINT("refuse Duktape.Thread.resume() when ms_running != 0")); + goto state_error; + } +#endif + + /* + * The error object has been augmented with a traceback and other + * info from its creation point -- usually another thread. The + * error handler is called here right before throwing, but it also + * runs in the resumer's thread. It might be nice to get a traceback + * from the resumee but this is not the case now. + */ + +#if defined(DUK_USE_AUGMENT_ERROR_THROW) + if (is_error) { + DUK_ASSERT_TOP(thr, 2); /* value (error) is at stack top */ + duk_err_augment_error_throw(thr); /* in resumer's context */ + } +#endif + +#if defined(DUK_USE_DEBUG) + if (is_error) { + DUK_DDD(DUK_DDDPRINT("RESUME ERROR: thread=%!T, value=%!T", + (duk_tval *) duk_get_tval(thr, 0), + (duk_tval *) duk_get_tval(thr, 1))); + } else if (thr_resume->state == DUK_HTHREAD_STATE_YIELDED) { + DUK_DDD(DUK_DDDPRINT("RESUME NORMAL: thread=%!T, value=%!T", + (duk_tval *) duk_get_tval(thr, 0), + (duk_tval *) duk_get_tval(thr, 1))); + } else { + DUK_DDD(DUK_DDDPRINT("RESUME INITIAL: thread=%!T, value=%!T", + (duk_tval *) duk_get_tval(thr, 0), + (duk_tval *) duk_get_tval(thr, 1))); + } +#endif + + thr->heap->lj.type = DUK_LJ_TYPE_RESUME; + + /* lj value2: thread */ + DUK_ASSERT(thr->valstack_bottom < thr->valstack_top); + DUK_TVAL_SET_TVAL_UPDREF(thr, &thr->heap->lj.value2, &thr->valstack_bottom[0]); /* side effects */ + + /* lj value1: value */ + DUK_ASSERT(thr->valstack_bottom + 1 < thr->valstack_top); + DUK_TVAL_SET_TVAL_UPDREF(thr, &thr->heap->lj.value1, &thr->valstack_bottom[1]); /* side effects */ + DUK_TVAL_CHKFAST_INPLACE_SLOW(&thr->heap->lj.value1); + + thr->heap->lj.iserror = is_error; + + DUK_ASSERT(thr->heap->lj.jmpbuf_ptr != NULL); /* call is from executor, so we know we have a jmpbuf */ + duk_err_longjmp(thr); /* execution resumes in bytecode executor */ + DUK_UNREACHABLE(); + /* Never here, fall through to error (from compiler point of view). */ + + state_error: + DUK_DCERROR_TYPE_INVALID_STATE(thr); +} +#endif + +/* + * Yield the current thread. + * + * The thread must be in yieldable state: it must have a resumer, and there + * must not be any yield-preventing calls (native calls and constructor calls, + * currently) in the thread's call stack (otherwise a resume would not be + * possible later). This method must be called from an ECMAScript function. + * + * Args: + * - value + * - isError (defaults to false) + * + * Note: yield and resume handling is currently asymmetric. + */ + +#if defined(DUK_USE_COROUTINE_SUPPORT) +DUK_INTERNAL duk_ret_t duk_bi_thread_yield(duk_hthread *thr) { + duk_hobject *caller_func; + duk_small_uint_t is_error; + + DUK_DDD(DUK_DDDPRINT("Duktape.Thread.yield(): value=%!T, is_error=%!T", + (duk_tval *) duk_get_tval(thr, 0), + (duk_tval *) duk_get_tval(thr, 1))); + + DUK_ASSERT(thr->state == DUK_HTHREAD_STATE_RUNNING); + DUK_ASSERT(thr->heap->curr_thread == thr); + + DUK_ASSERT(duk_get_top(thr) == 2); + is_error = (duk_small_uint_t) duk_to_boolean_top_pop(thr); + DUK_ASSERT(duk_get_top(thr) == 1); + + /* [ value ] */ + + /* + * Thread state and calling context checks + */ + + if (!thr->resumer) { + DUK_DD(DUK_DDPRINT("yield state invalid: current thread must have a resumer")); + goto state_error; + } + DUK_ASSERT(thr->resumer->state == DUK_HTHREAD_STATE_RESUMED); + + if (thr->callstack_top < 2) { + DUK_DD(DUK_DDPRINT("yield state invalid: callstack should contain at least 2 entries (caller and Duktape.Thread.yield)")); + goto state_error; + } + DUK_ASSERT(thr->callstack_curr != NULL); + DUK_ASSERT(thr->callstack_curr->parent != NULL); + DUK_ASSERT(DUK_ACT_GET_FUNC(thr->callstack_curr) != NULL); /* us */ + DUK_ASSERT(DUK_HOBJECT_IS_NATFUNC(DUK_ACT_GET_FUNC(thr->callstack_curr))); + DUK_ASSERT(DUK_ACT_GET_FUNC(thr->callstack_curr->parent) != NULL); /* caller */ + + caller_func = DUK_ACT_GET_FUNC(thr->callstack_curr->parent); + if (!DUK_HOBJECT_IS_COMPFUNC(caller_func)) { + DUK_DD(DUK_DDPRINT("yield state invalid: caller must be ECMAScript code")); + goto state_error; + } + + DUK_ASSERT(thr->callstack_preventcount >= 1); /* should never be zero, because we (Duktape.Thread.yield) are on the stack */ + if (thr->callstack_preventcount != 1) { + /* Note: the only yield-preventing call is Duktape.Thread.yield(), hence check for 1, not 0 */ + DUK_DD(DUK_DDPRINT("yield state invalid: there must be no yield-preventing calls in current thread callstack (preventcount is %ld)", + (long) thr->callstack_preventcount)); + goto state_error; + } + + /* + * The error object has been augmented with a traceback and other + * info from its creation point -- usually the current thread. + * The error handler, however, is called right before throwing + * and runs in the yielder's thread. + */ + +#if defined(DUK_USE_AUGMENT_ERROR_THROW) + if (is_error) { + DUK_ASSERT_TOP(thr, 1); /* value (error) is at stack top */ + duk_err_augment_error_throw(thr); /* in yielder's context */ + } +#endif + +#if defined(DUK_USE_DEBUG) + if (is_error) { + DUK_DDD(DUK_DDDPRINT("YIELD ERROR: value=%!T", + (duk_tval *) duk_get_tval(thr, 0))); + } else { + DUK_DDD(DUK_DDDPRINT("YIELD NORMAL: value=%!T", + (duk_tval *) duk_get_tval(thr, 0))); + } +#endif + + /* + * Process yield + * + * After longjmp(), processing continues in bytecode executor longjmp + * handler, which will e.g. update thr->resumer to NULL. + */ + + thr->heap->lj.type = DUK_LJ_TYPE_YIELD; + + /* lj value1: value */ + DUK_ASSERT(thr->valstack_bottom < thr->valstack_top); + DUK_TVAL_SET_TVAL_UPDREF(thr, &thr->heap->lj.value1, &thr->valstack_bottom[0]); /* side effects */ + DUK_TVAL_CHKFAST_INPLACE_SLOW(&thr->heap->lj.value1); + + thr->heap->lj.iserror = is_error; + + DUK_ASSERT(thr->heap->lj.jmpbuf_ptr != NULL); /* call is from executor, so we know we have a jmpbuf */ + duk_err_longjmp(thr); /* execution resumes in bytecode executor */ + DUK_UNREACHABLE(); + /* Never here, fall through to error (from compiler point of view). */ + + state_error: + DUK_DCERROR_TYPE_INVALID_STATE(thr); +} +#endif + +#if defined(DUK_USE_COROUTINE_SUPPORT) +DUK_INTERNAL duk_ret_t duk_bi_thread_current(duk_hthread *thr) { + duk_push_current_thread(thr); + return 1; +} +#endif +#line 1 "duk_bi_thrower.c" +/* + * Type error thrower, E5 Section 13.2.3. + */ + +/* #include duk_internal.h -> already included */ + +DUK_INTERNAL duk_ret_t duk_bi_type_error_thrower(duk_hthread *thr) { + DUK_DCERROR_TYPE_INVALID_ARGS(thr); +} +#line 1 "duk_debug_fixedbuffer.c" +/* + * Fixed buffer helper useful for debugging, requires no allocation + * which is critical for debugging. + */ + +/* #include duk_internal.h -> already included */ + +#if defined(DUK_USE_DEBUG) + +DUK_INTERNAL void duk_fb_put_bytes(duk_fixedbuffer *fb, const duk_uint8_t *buffer, duk_size_t length) { + duk_size_t avail; + duk_size_t copylen; + + avail = (fb->offset >= fb->length ? (duk_size_t) 0 : (duk_size_t) (fb->length - fb->offset)); + if (length > avail) { + copylen = avail; + fb->truncated = 1; + } else { + copylen = length; + } + duk_memcpy_unsafe(fb->buffer + fb->offset, buffer, copylen); + fb->offset += copylen; +} + +DUK_INTERNAL void duk_fb_put_byte(duk_fixedbuffer *fb, duk_uint8_t x) { + duk_fb_put_bytes(fb, (const duk_uint8_t *) &x, 1); +} + +DUK_INTERNAL void duk_fb_put_cstring(duk_fixedbuffer *fb, const char *x) { + duk_fb_put_bytes(fb, (const duk_uint8_t *) x, (duk_size_t) DUK_STRLEN(x)); +} + +DUK_INTERNAL void duk_fb_sprintf(duk_fixedbuffer *fb, const char *fmt, ...) { + duk_size_t avail; + va_list ap; + + va_start(ap, fmt); + avail = (fb->offset >= fb->length ? (duk_size_t) 0 : (duk_size_t) (fb->length - fb->offset)); + if (avail > 0) { + duk_int_t res = (duk_int_t) DUK_VSNPRINTF((char *) (fb->buffer + fb->offset), avail, fmt, ap); + if (res < 0) { + /* error */ + } else if ((duk_size_t) res >= avail) { + /* (maybe) truncated */ + fb->offset += avail; + if ((duk_size_t) res > avail) { + /* actual chars dropped (not just NUL term) */ + fb->truncated = 1; + } + } else { + /* normal */ + fb->offset += (duk_size_t) res; + } + } + va_end(ap); +} + +DUK_INTERNAL void duk_fb_put_funcptr(duk_fixedbuffer *fb, duk_uint8_t *fptr, duk_size_t fptr_size) { + char buf[64+1]; + duk_debug_format_funcptr(buf, sizeof(buf), fptr, fptr_size); + buf[sizeof(buf) - 1] = (char) 0; + duk_fb_put_cstring(fb, buf); +} + +DUK_INTERNAL duk_bool_t duk_fb_is_full(duk_fixedbuffer *fb) { + return (fb->offset >= fb->length); +} + +#endif /* DUK_USE_DEBUG */ +#line 1 "duk_debug_vsnprintf.c" +/* + * Custom formatter for debug printing, allowing Duktape specific data + * structures (such as tagged values and heap objects) to be printed with + * a nice format string. Because debug printing should not affect execution + * state, formatting here must be independent of execution (see implications + * below) and must not allocate memory. + * + * Custom format tags begin with a '%!' to safely distinguish them from + * standard format tags. The following conversions are supported: + * + * %!T tagged value (duk_tval *) + * %!O heap object (duk_heaphdr *) + * %!I decoded bytecode instruction + * %!X bytecode instruction opcode name (arg is long) + * %!C catcher (duk_catcher *) + * %!A activation (duk_activation *) + * + * Everything is serialized in a JSON-like manner. The default depth is one + * level, internal prototype is not followed, and internal properties are not + * serialized. The following modifiers change this behavior: + * + * @ print pointers + * # print binary representations (where applicable) + * d deep traversal of own properties (not prototype) + * p follow prototype chain (useless without 'd') + * i include internal properties (other than prototype) + * x hexdump buffers + * h heavy formatting + * + * For instance, the following serializes objects recursively, but does not + * follow the prototype chain nor print internal properties: "%!dO". + * + * Notes: + * + * * Standard snprintf return value semantics seem to vary. This + * implementation returns the number of bytes it actually wrote + * (excluding the null terminator). If retval == buffer size, + * output was truncated (except for corner cases). + * + * * Output format is intentionally different from ECMAScript + * formatting requirements, as formatting here serves debugging + * of internals. + * + * * Depth checking (and updating) is done in each type printer + * separately, to allow them to call each other freely. + * + * * Some pathological structures might take ages to print (e.g. + * self recursion with 100 properties pointing to the object + * itself). To guard against these, each printer also checks + * whether the output buffer is full; if so, early exit. + * + * * Reference loops are detected using a loop stack. + */ + +/* #include duk_internal.h -> already included */ + +#if defined(DUK_USE_DEBUG) + +/* #include stdio.h -> already included */ +/* #include stdarg.h -> already included */ +#include + +/* list of conversion specifiers that terminate a format tag; + * this is unfortunately guesswork. + */ +#define DUK__ALLOWED_STANDARD_SPECIFIERS "diouxXeEfFgGaAcsCSpnm" + +/* maximum length of standard format tag that we support */ +#define DUK__MAX_FORMAT_TAG_LENGTH 32 + +/* heapobj recursion depth when deep printing is selected */ +#define DUK__DEEP_DEPTH_LIMIT 8 + +/* maximum recursion depth for loop detection stacks */ +#define DUK__LOOP_STACK_DEPTH 256 + +/* must match bytecode defines now; build autogenerate? */ +DUK_LOCAL const char * const duk__bc_optab[256] = { + "LDREG", "STREG", "JUMP", "LDCONST", "LDINT", "LDINTX", "LDTHIS", "LDUNDEF", + "LDNULL", "LDTRUE", "LDFALSE", "GETVAR", "BNOT", "LNOT", "UNM", "UNP", + "EQ_RR", "EQ_CR", "EQ_RC", "EQ_CC", "NEQ_RR", "NEQ_CR", "NEQ_RC", "NEQ_CC", + "SEQ_RR", "SEQ_CR", "SEQ_RC", "SEQ_CC", "SNEQ_RR", "SNEQ_CR", "SNEQ_RC", "SNEQ_CC", + + "GT_RR", "GT_CR", "GT_RC", "GT_CC", "GE_RR", "GE_CR", "GE_RC", "GE_CC", + "LT_RR", "LT_CR", "LT_RC", "LT_CC", "LE_RR", "LE_CR", "LE_RC", "LE_CC", + "IFTRUE_R", "IFTRUE_C", "IFFALSE_R", "IFFALSE_C", "ADD_RR", "ADD_CR", "ADD_RC", "ADD_CC", + "SUB_RR", "SUB_CR", "SUB_RC", "SUB_CC", "MUL_RR", "MUL_CR", "MUL_RC", "MUL_CC", + + "DIV_RR", "DIV_CR", "DIV_RC", "DIV_CC", "MOD_RR", "MOD_CR", "MOD_RC", "MOD_CC", + "EXP_RR", "EXP_CR", "EXP_RC", "EXP_CC", "BAND_RR", "BAND_CR", "BAND_RC", "BAND_CC", + "BOR_RR", "BOR_CR", "BOR_RC", "BOR_CC", "BXOR_RR", "BXOR_CR", "BXOR_RC", "BXOR_CC", + "BASL_RR", "BASL_CR", "BASL_RC", "BASL_CC", "BLSR_RR", "BLSR_CR", "BLSR_RC", "BLSR_CC", + + "BASR_RR", "BASR_CR", "BASR_RC", "BASR_CC", "INSTOF_RR", "INSTOF_CR", "INSTOF_RC", "INSTOF_CC", + "IN_RR", "IN_CR", "IN_RC", "IN_CC", "GETPROP_RR", "GETPROP_CR", "GETPROP_RC", "GETPROP_CC", + "PUTPROP_RR", "PUTPROP_CR", "PUTPROP_RC", "PUTPROP_CC", "DELPROP_RR", "DELPROP_CR", "DELPROP_RC", "DELPROP_CC", + "PREINCR", "PREDECR", "POSTINCR", "POSTDECR", "PREINCV", "PREDECV", "POSTINCV", "POSTDECV", + + "PREINCP_RR", "PREINCP_CR", "PREINCP_RC", "PREINCP_CC", "PREDECP_RR", "PREDECP_CR", "PREDECP_RC", "PREDECP_CC", + "POSTINCP_RR", "POSTINCP_CR", "POSTINCP_RC", "POSTINCP_CC", "POSTDECP_RR", "POSTDECP_CR", "POSTDECP_RC", "POSTDECP_CC", + "DECLVAR_RR", "DECLVAR_CR", "DECLVAR_RC", "DECLVAR_CC", "REGEXP_RR", "REGEXP_RC", "REGEXP_CR", "REGEXP_CC", + "CLOSURE", "TYPEOF", "TYPEOFID", "PUTVAR", "DELVAR", "RETREG", "RETUNDEF", "RETCONST", + + "RETCONSTN", "LABEL", "ENDLABEL", "BREAK", "CONTINUE", "TRYCATCH", "ENDTRY", "ENDCATCH", + "ENDFIN", "THROW", "INVLHS", "CSREG", "CSVAR_RR", "CSVAR_CR", "CSVAR_RC", "CSVAR_CC", + "CALL0", "CALL1", "CALL2", "CALL3", "CALL4", "CALL5", "CALL6", "CALL7", + "CALL8", "CALL9", "CALL10", "CALL11", "CALL12", "CALL13", "CALL14", "CALL15", + + "NEWOBJ", "NEWARR", "MPUTOBJ", "MPUTOBJI", "INITSET", "INITGET", "MPUTARR", "MPUTARRI", + "SETALEN", "INITENUM", "NEXTENUM", "NEWTARGET", "DEBUGGER", "NOP", "INVALID", "UNUSED207", + "GETPROPC_RR", "GETPROPC_CR", "GETPROPC_RC", "GETPROPC_CC", "UNUSED212", "UNUSED213", "UNUSED214", "UNUSED215", + "UNUSED216", "UNUSED217", "UNUSED218", "UNUSED219", "UNUSED220", "UNUSED221", "UNUSED222", "UNUSED223", + + "UNUSED224", "UNUSED225", "UNUSED226", "UNUSED227", "UNUSED228", "UNUSED229", "UNUSED230", "UNUSED231", + "UNUSED232", "UNUSED233", "UNUSED234", "UNUSED235", "UNUSED236", "UNUSED237", "UNUSED238", "UNUSED239", + "UNUSED240", "UNUSED241", "UNUSED242", "UNUSED243", "UNUSED244", "UNUSED245", "UNUSED246", "UNUSED247", + "UNUSED248", "UNUSED249", "UNUSED250", "UNUSED251", "UNUSED252", "UNUSED253", "UNUSED254", "UNUSED255" +}; + +typedef struct duk__dprint_state duk__dprint_state; +struct duk__dprint_state { + duk_fixedbuffer *fb; + + /* loop_stack_index could be perhaps be replaced by 'depth', but it's nice + * to not couple these two mechanisms unnecessarily. + */ + duk_hobject *loop_stack[DUK__LOOP_STACK_DEPTH]; + duk_int_t loop_stack_index; + duk_int_t loop_stack_limit; + + duk_int_t depth; + duk_int_t depth_limit; + + duk_bool_t pointer; + duk_bool_t heavy; + duk_bool_t binary; + duk_bool_t follow_proto; + duk_bool_t internal; + duk_bool_t hexdump; +}; + +/* helpers */ +DUK_LOCAL_DECL void duk__print_hstring(duk__dprint_state *st, duk_hstring *k, duk_bool_t quotes); +DUK_LOCAL_DECL void duk__print_hobject(duk__dprint_state *st, duk_hobject *h); +DUK_LOCAL_DECL void duk__print_hbuffer(duk__dprint_state *st, duk_hbuffer *h); +DUK_LOCAL_DECL void duk__print_tval(duk__dprint_state *st, duk_tval *tv); +DUK_LOCAL_DECL void duk__print_instr(duk__dprint_state *st, duk_instr_t ins); +DUK_LOCAL_DECL void duk__print_heaphdr(duk__dprint_state *st, duk_heaphdr *h); +DUK_LOCAL_DECL void duk__print_shared_heaphdr(duk__dprint_state *st, duk_heaphdr *h); +DUK_LOCAL_DECL void duk__print_shared_heaphdr_string(duk__dprint_state *st, duk_heaphdr_string *h); + +DUK_LOCAL void duk__print_shared_heaphdr(duk__dprint_state *st, duk_heaphdr *h) { + duk_fixedbuffer *fb = st->fb; + + if (st->heavy) { + duk_fb_sprintf(fb, "(%p)", (void *) h); + } + + if (!h) { + return; + } + + if (st->binary) { + duk_size_t i; + duk_fb_put_byte(fb, (duk_uint8_t) DUK_ASC_LBRACKET); + for (i = 0; i < (duk_size_t) sizeof(*h); i++) { + duk_fb_sprintf(fb, "%02lx", (unsigned long) ((duk_uint8_t *)h)[i]); + } + duk_fb_put_byte(fb, (duk_uint8_t) DUK_ASC_RBRACKET); + } + +#if defined(DUK_USE_REFERENCE_COUNTING) /* currently implicitly also DUK_USE_DOUBLE_LINKED_HEAP */ + if (st->heavy) { + duk_fb_sprintf(fb, "[h_next=%p,h_prev=%p,h_refcount=%lu,h_flags=%08lx,type=%ld," + "reachable=%ld,temproot=%ld,finalizable=%ld,finalized=%ld]", + (void *) DUK_HEAPHDR_GET_NEXT(NULL, h), + (void *) DUK_HEAPHDR_GET_PREV(NULL, h), + (unsigned long) DUK_HEAPHDR_GET_REFCOUNT(h), + (unsigned long) DUK_HEAPHDR_GET_FLAGS(h), + (long) DUK_HEAPHDR_GET_TYPE(h), + (long) (DUK_HEAPHDR_HAS_REACHABLE(h) ? 1 : 0), + (long) (DUK_HEAPHDR_HAS_TEMPROOT(h) ? 1 : 0), + (long) (DUK_HEAPHDR_HAS_FINALIZABLE(h) ? 1 : 0), + (long) (DUK_HEAPHDR_HAS_FINALIZED(h) ? 1 : 0)); + } +#else + if (st->heavy) { + duk_fb_sprintf(fb, "[h_next=%p,h_flags=%08lx,type=%ld,reachable=%ld,temproot=%ld,finalizable=%ld,finalized=%ld]", + (void *) DUK_HEAPHDR_GET_NEXT(NULL, h), + (unsigned long) DUK_HEAPHDR_GET_FLAGS(h), + (long) DUK_HEAPHDR_GET_TYPE(h), + (long) (DUK_HEAPHDR_HAS_REACHABLE(h) ? 1 : 0), + (long) (DUK_HEAPHDR_HAS_TEMPROOT(h) ? 1 : 0), + (long) (DUK_HEAPHDR_HAS_FINALIZABLE(h) ? 1 : 0), + (long) (DUK_HEAPHDR_HAS_FINALIZED(h) ? 1 : 0)); + } +#endif +} + +DUK_LOCAL void duk__print_shared_heaphdr_string(duk__dprint_state *st, duk_heaphdr_string *h) { + duk_fixedbuffer *fb = st->fb; + + if (st->heavy) { + duk_fb_sprintf(fb, "(%p)", (void *) h); + } + + if (!h) { + return; + } + + if (st->binary) { + duk_size_t i; + duk_fb_put_byte(fb, (duk_uint8_t) DUK_ASC_LBRACKET); + for (i = 0; i < (duk_size_t) sizeof(*h); i++) { + duk_fb_sprintf(fb, "%02lx", (unsigned long) ((duk_uint8_t *)h)[i]); + } + duk_fb_put_byte(fb, (duk_uint8_t) DUK_ASC_RBRACKET); + } + +#if defined(DUK_USE_REFERENCE_COUNTING) + if (st->heavy) { + duk_fb_sprintf(fb, "[h_refcount=%lu,h_flags=%08lx,type=%ld,reachable=%ld,temproot=%ld,finalizable=%ld,finalized=%ld]", + (unsigned long) DUK_HEAPHDR_GET_REFCOUNT((duk_heaphdr *) h), + (unsigned long) DUK_HEAPHDR_GET_FLAGS((duk_heaphdr *) h), + (long) DUK_HEAPHDR_GET_TYPE((duk_heaphdr *) h), + (long) (DUK_HEAPHDR_HAS_REACHABLE((duk_heaphdr *) h) ? 1 : 0), + (long) (DUK_HEAPHDR_HAS_TEMPROOT((duk_heaphdr *) h) ? 1 : 0), + (long) (DUK_HEAPHDR_HAS_FINALIZABLE((duk_heaphdr *) h) ? 1 : 0), + (long) (DUK_HEAPHDR_HAS_FINALIZED((duk_heaphdr *) h) ? 1 : 0)); + } +#else + if (st->heavy) { + duk_fb_sprintf(fb, "[h_flags=%08lx,type=%ld,reachable=%ld,temproot=%ld,finalizable=%ld,finalized=%ld]", + (unsigned long) DUK_HEAPHDR_GET_FLAGS((duk_heaphdr *) h), + (long) DUK_HEAPHDR_GET_TYPE((duk_heaphdr *) h), + (long) (DUK_HEAPHDR_HAS_REACHABLE((duk_heaphdr *) h) ? 1 : 0), + (long) (DUK_HEAPHDR_HAS_TEMPROOT((duk_heaphdr *) h) ? 1 : 0), + (long) (DUK_HEAPHDR_HAS_FINALIZABLE((duk_heaphdr *) h) ? 1 : 0), + (long) (DUK_HEAPHDR_HAS_FINALIZED((duk_heaphdr *) h) ? 1 : 0)); + } +#endif +} + +DUK_LOCAL void duk__print_hstring(duk__dprint_state *st, duk_hstring *h, duk_bool_t quotes) { + duk_fixedbuffer *fb = st->fb; + const duk_uint8_t *p; + const duk_uint8_t *p_end; + + /* terminal type: no depth check */ + + if (duk_fb_is_full(fb)) { + return; + } + + duk__print_shared_heaphdr_string(st, &h->hdr); + + if (!h) { + duk_fb_put_cstring(fb, "NULL"); + return; + } + + p = DUK_HSTRING_GET_DATA(h); + p_end = p + DUK_HSTRING_GET_BYTELEN(h); + + if (p_end > p && p[0] == DUK_ASC_UNDERSCORE) { + /* If property key begins with underscore, encode it with + * forced quotes (e.g. "_Foo") to distinguish it from encoded + * internal properties (e.g. \x82Bar -> _Bar). + */ + quotes = 1; + } + + if (quotes) { + duk_fb_put_byte(fb, (duk_uint8_t) DUK_ASC_DOUBLEQUOTE); + } + while (p < p_end) { + duk_uint8_t ch = *p++; + + /* two special escapes: '\' and '"', other printables as is */ + if (ch == '\\') { + duk_fb_sprintf(fb, "\\\\"); + } else if (ch == '"') { + duk_fb_sprintf(fb, "\\\""); + } else if (ch >= 0x20 && ch <= 0x7e) { + duk_fb_put_byte(fb, ch); + } else if (ch == 0x82 && !quotes) { + /* encode \x82Bar as _Bar if no quotes are + * applied, this is for readable internal keys. + */ + duk_fb_put_byte(fb, (duk_uint8_t) DUK_ASC_UNDERSCORE); + } else { + duk_fb_sprintf(fb, "\\x%02lx", (unsigned long) ch); + } + } + if (quotes) { + duk_fb_put_byte(fb, (duk_uint8_t) DUK_ASC_DOUBLEQUOTE); + } +#if defined(DUK_USE_REFERENCE_COUNTING) + /* XXX: limit to quoted strings only, to save keys from being cluttered? */ + duk_fb_sprintf(fb, "/%lu", (unsigned long) DUK_HEAPHDR_GET_REFCOUNT(&h->hdr)); +#endif +} + +#define DUK__COMMA() do { \ + if (first) { \ + first = 0; \ + } else { \ + duk_fb_put_byte(fb, (duk_uint8_t) DUK_ASC_COMMA); \ + } \ + } while (0) + +DUK_LOCAL void duk__print_hobject(duk__dprint_state *st, duk_hobject *h) { + duk_fixedbuffer *fb = st->fb; + duk_uint_fast32_t i; + duk_tval *tv; + duk_hstring *key; + duk_bool_t first = 1; + const char *brace1 = "{"; + const char *brace2 = "}"; + duk_bool_t pushed_loopstack = 0; + + if (duk_fb_is_full(fb)) { + return; + } + + duk__print_shared_heaphdr(st, &h->hdr); + + if (h && DUK_HOBJECT_HAS_ARRAY_PART(h)) { + brace1 = "["; + brace2 = "]"; + } + + if (!h) { + duk_fb_put_cstring(fb, "NULL"); + goto finished; + } + + if (st->depth >= st->depth_limit) { + const char *subtype = "generic"; + + if (DUK_HOBJECT_IS_COMPFUNC(h)) { + subtype = "compfunc"; + } else if (DUK_HOBJECT_IS_NATFUNC(h)) { + subtype = "natfunc"; + } else if (DUK_HOBJECT_IS_THREAD(h)) { + subtype = "thread"; + } else if (DUK_HOBJECT_IS_BUFOBJ(h)) { + subtype = "bufobj"; + } else if (DUK_HOBJECT_IS_ARRAY(h)) { + subtype = "array"; + } + duk_fb_sprintf(fb, "%sobject/%s %p%s", (const char *) brace1, subtype, (void *) h, (const char *) brace2); + return; + } + + for (i = 0; i < (duk_uint_fast32_t) st->loop_stack_index; i++) { + if (st->loop_stack[i] == h) { + duk_fb_sprintf(fb, "%sLOOP:%p%s", (const char *) brace1, (void *) h, (const char *) brace2); + return; + } + } + + /* after this, return paths should 'goto finished' for decrement */ + st->depth++; + + if (st->loop_stack_index >= st->loop_stack_limit) { + duk_fb_sprintf(fb, "%sOUT-OF-LOOP-STACK%s", (const char *) brace1, (const char *) brace2); + goto finished; + } + st->loop_stack[st->loop_stack_index++] = h; + pushed_loopstack = 1; + + /* + * Notation: double underscore used for internal properties which are not + * stored in the property allocation (e.g. '__valstack'). + */ + + duk_fb_put_cstring(fb, brace1); + + if (DUK_HOBJECT_GET_PROPS(NULL, h)) { + duk_uint32_t a_limit; + + a_limit = DUK_HOBJECT_GET_ASIZE(h); + if (st->internal) { + /* dump all allocated entries, unused entries print as 'unused', + * note that these may extend beyond current 'length' and look + * a bit funny. + */ + } else { + /* leave out trailing 'unused' elements */ + while (a_limit > 0) { + tv = DUK_HOBJECT_A_GET_VALUE_PTR(NULL, h, a_limit - 1); + if (!DUK_TVAL_IS_UNUSED(tv)) { + break; + } + a_limit--; + } + } + + for (i = 0; i < a_limit; i++) { + tv = DUK_HOBJECT_A_GET_VALUE_PTR(NULL, h, i); + DUK__COMMA(); + duk__print_tval(st, tv); + } + for (i = 0; i < DUK_HOBJECT_GET_ENEXT(h); i++) { + key = DUK_HOBJECT_E_GET_KEY(NULL, h, i); + if (!key) { + continue; + } + if (!st->internal && DUK_HSTRING_HAS_HIDDEN(key)) { + continue; + } + DUK__COMMA(); + duk__print_hstring(st, key, 0); + duk_fb_put_byte(fb, (duk_uint8_t) DUK_ASC_COLON); + if (DUK_HOBJECT_E_SLOT_IS_ACCESSOR(NULL, h, i)) { + duk_fb_sprintf(fb, "[get:%p,set:%p]", + (void *) DUK_HOBJECT_E_GET_VALUE(NULL, h, i).a.get, + (void *) DUK_HOBJECT_E_GET_VALUE(NULL, h, i).a.set); + } else { + tv = &DUK_HOBJECT_E_GET_VALUE(NULL, h, i).v; + duk__print_tval(st, tv); + } + if (st->heavy) { + duk_fb_sprintf(fb, "<%02lx>", (unsigned long) DUK_HOBJECT_E_GET_FLAGS(NULL, h, i)); + } + } + } + if (st->internal) { + if (DUK_HOBJECT_IS_ARRAY(h)) { + DUK__COMMA(); duk_fb_sprintf(fb, "__array:true"); + } + if (DUK_HOBJECT_HAS_EXTENSIBLE(h)) { + DUK__COMMA(); duk_fb_sprintf(fb, "__extensible:true"); + } + if (DUK_HOBJECT_HAS_CONSTRUCTABLE(h)) { + DUK__COMMA(); duk_fb_sprintf(fb, "__constructable:true"); + } + if (DUK_HOBJECT_HAS_BOUNDFUNC(h)) { + DUK__COMMA(); duk_fb_sprintf(fb, "__boundfunc:true"); + } + if (DUK_HOBJECT_HAS_COMPFUNC(h)) { + DUK__COMMA(); duk_fb_sprintf(fb, "__compfunc:true"); + } + if (DUK_HOBJECT_HAS_NATFUNC(h)) { + DUK__COMMA(); duk_fb_sprintf(fb, "__natfunc:true"); + } + if (DUK_HOBJECT_HAS_BUFOBJ(h)) { + DUK__COMMA(); duk_fb_sprintf(fb, "__bufobj:true"); + } + if (DUK_HOBJECT_IS_THREAD(h)) { + DUK__COMMA(); duk_fb_sprintf(fb, "__thread:true"); + } + if (DUK_HOBJECT_HAS_ARRAY_PART(h)) { + DUK__COMMA(); duk_fb_sprintf(fb, "__array_part:true"); + } + if (DUK_HOBJECT_HAS_STRICT(h)) { + DUK__COMMA(); duk_fb_sprintf(fb, "__strict:true"); + } + if (DUK_HOBJECT_HAS_NOTAIL(h)) { + DUK__COMMA(); duk_fb_sprintf(fb, "__notail:true"); + } + if (DUK_HOBJECT_HAS_NEWENV(h)) { + DUK__COMMA(); duk_fb_sprintf(fb, "__newenv:true"); + } + if (DUK_HOBJECT_HAS_NAMEBINDING(h)) { + DUK__COMMA(); duk_fb_sprintf(fb, "__namebinding:true"); + } + if (DUK_HOBJECT_HAS_CREATEARGS(h)) { + DUK__COMMA(); duk_fb_sprintf(fb, "__createargs:true"); + } + if (DUK_HOBJECT_HAS_EXOTIC_ARRAY(h)) { + DUK__COMMA(); duk_fb_sprintf(fb, "__exotic_array:true"); + } + if (DUK_HOBJECT_HAS_EXOTIC_STRINGOBJ(h)) { + DUK__COMMA(); duk_fb_sprintf(fb, "__exotic_stringobj:true"); + } + if (DUK_HOBJECT_HAS_EXOTIC_ARGUMENTS(h)) { + DUK__COMMA(); duk_fb_sprintf(fb, "__exotic_arguments:true"); + } + if (DUK_HOBJECT_IS_BUFOBJ(h)) { + DUK__COMMA(); duk_fb_sprintf(fb, "__exotic_bufobj:true"); + } + if (DUK_HOBJECT_HAS_EXOTIC_PROXYOBJ(h)) { + DUK__COMMA(); duk_fb_sprintf(fb, "__exotic_proxyobj:true"); + } + } + + if (st->internal && DUK_HOBJECT_IS_ARRAY(h)) { + duk_harray *a = (duk_harray *) h; + DUK__COMMA(); duk_fb_sprintf(fb, "__length:%ld", (long) a->length); + DUK__COMMA(); duk_fb_sprintf(fb, "__length_nonwritable:%ld", (long) a->length_nonwritable); + } else if (st->internal && DUK_HOBJECT_IS_COMPFUNC(h)) { + duk_hcompfunc *f = (duk_hcompfunc *) h; + DUK__COMMA(); duk_fb_put_cstring(fb, "__data:"); + duk__print_hbuffer(st, (duk_hbuffer *) DUK_HCOMPFUNC_GET_DATA(NULL, f)); + DUK__COMMA(); duk_fb_put_cstring(fb, "__lexenv:"); duk__print_hobject(st, DUK_HCOMPFUNC_GET_LEXENV(NULL, f)); + DUK__COMMA(); duk_fb_put_cstring(fb, "__varenv:"); duk__print_hobject(st, DUK_HCOMPFUNC_GET_VARENV(NULL, f)); + DUK__COMMA(); duk_fb_sprintf(fb, "__nregs:%ld", (long) f->nregs); + DUK__COMMA(); duk_fb_sprintf(fb, "__nargs:%ld", (long) f->nargs); +#if defined(DUK_USE_DEBUGGER_SUPPORT) + DUK__COMMA(); duk_fb_sprintf(fb, "__start_line:%ld", (long) f->start_line); + DUK__COMMA(); duk_fb_sprintf(fb, "__end_line:%ld", (long) f->end_line); +#endif + DUK__COMMA(); duk_fb_put_cstring(fb, "__data:"); + duk__print_hbuffer(st, (duk_hbuffer *) DUK_HCOMPFUNC_GET_DATA(NULL, f)); + } else if (st->internal && DUK_HOBJECT_IS_NATFUNC(h)) { + duk_hnatfunc *f = (duk_hnatfunc *) h; + DUK__COMMA(); duk_fb_sprintf(fb, "__func:"); + duk_fb_put_funcptr(fb, (duk_uint8_t *) &f->func, sizeof(f->func)); + DUK__COMMA(); duk_fb_sprintf(fb, "__nargs:%ld", (long) f->nargs); + DUK__COMMA(); duk_fb_sprintf(fb, "__magic:%ld", (long) f->magic); + } else if (st->internal && DUK_HOBJECT_IS_DECENV(h)) { + duk_hdecenv *e = (duk_hdecenv *) h; + DUK__COMMA(); duk_fb_sprintf(fb, "__thread:"); duk__print_hobject(st, (duk_hobject *) e->thread); + DUK__COMMA(); duk_fb_sprintf(fb, "__varmap:"); duk__print_hobject(st, (duk_hobject *) e->varmap); + DUK__COMMA(); duk_fb_sprintf(fb, "__regbase_byteoff:%ld", (long) e->regbase_byteoff); + } else if (st->internal && DUK_HOBJECT_IS_OBJENV(h)) { + duk_hobjenv *e = (duk_hobjenv *) h; + DUK__COMMA(); duk_fb_sprintf(fb, "__target:"); duk__print_hobject(st, (duk_hobject *) e->target); + DUK__COMMA(); duk_fb_sprintf(fb, "__has_this:%ld", (long) e->has_this); +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) + } else if (st->internal && DUK_HOBJECT_IS_BUFOBJ(h)) { + duk_hbufobj *b = (duk_hbufobj *) h; + DUK__COMMA(); duk_fb_sprintf(fb, "__buf:"); + duk__print_hbuffer(st, (duk_hbuffer *) b->buf); + DUK__COMMA(); duk_fb_sprintf(fb, "__buf_prop:"); + duk__print_hobject(st, (duk_hobject *) b->buf_prop); + DUK__COMMA(); duk_fb_sprintf(fb, "__offset:%ld", (long) b->offset); + DUK__COMMA(); duk_fb_sprintf(fb, "__length:%ld", (long) b->length); + DUK__COMMA(); duk_fb_sprintf(fb, "__shift:%ld", (long) b->shift); + DUK__COMMA(); duk_fb_sprintf(fb, "__elemtype:%ld", (long) b->elem_type); +#endif + } else if (st->internal && DUK_HOBJECT_IS_PROXY(h)) { + duk_hproxy *p = (duk_hproxy *) h; + DUK__COMMA(); duk_fb_sprintf(fb, "__target:"); + duk__print_hobject(st, p->target); + DUK__COMMA(); duk_fb_sprintf(fb, "__handler:"); + duk__print_hobject(st, p->handler); + } else if (st->internal && DUK_HOBJECT_IS_THREAD(h)) { + duk_hthread *t = (duk_hthread *) h; + DUK__COMMA(); duk_fb_sprintf(fb, "__ptr_curr_pc:%p", (void *) t->ptr_curr_pc); + DUK__COMMA(); duk_fb_sprintf(fb, "__heap:%p", (void *) t->heap); + DUK__COMMA(); duk_fb_sprintf(fb, "__strict:%ld", (long) t->strict); + DUK__COMMA(); duk_fb_sprintf(fb, "__state:%ld", (long) t->state); + DUK__COMMA(); duk_fb_sprintf(fb, "__unused1:%ld", (long) t->unused1); + DUK__COMMA(); duk_fb_sprintf(fb, "__unused2:%ld", (long) t->unused2); + DUK__COMMA(); duk_fb_sprintf(fb, "__valstack:%p", (void *) t->valstack); + DUK__COMMA(); duk_fb_sprintf(fb, "__valstack_end:%p/%ld", (void *) t->valstack_end, (long) (t->valstack_end - t->valstack)); + DUK__COMMA(); duk_fb_sprintf(fb, "__valstack_alloc_end:%p/%ld", (void *) t->valstack_alloc_end, (long) (t->valstack_alloc_end - t->valstack)); + DUK__COMMA(); duk_fb_sprintf(fb, "__valstack_bottom:%p/%ld", (void *) t->valstack_bottom, (long) (t->valstack_bottom - t->valstack)); + DUK__COMMA(); duk_fb_sprintf(fb, "__valstack_top:%p/%ld", (void *) t->valstack_top, (long) (t->valstack_top - t->valstack)); + DUK__COMMA(); duk_fb_sprintf(fb, "__callstack_curr:%p", (void *) t->callstack_curr); + DUK__COMMA(); duk_fb_sprintf(fb, "__callstack_top:%ld", (long) t->callstack_top); + DUK__COMMA(); duk_fb_sprintf(fb, "__callstack_preventcount:%ld", (long) t->callstack_preventcount); + DUK__COMMA(); duk_fb_sprintf(fb, "__resumer:"); duk__print_hobject(st, (duk_hobject *) t->resumer); + DUK__COMMA(); duk_fb_sprintf(fb, "__compile_ctx:%p", (void *) t->compile_ctx); +#if defined(DUK_USE_INTERRUPT_COUNTER) + DUK__COMMA(); duk_fb_sprintf(fb, "__interrupt_counter:%ld", (long) t->interrupt_counter); + DUK__COMMA(); duk_fb_sprintf(fb, "__interrupt_init:%ld", (long) t->interrupt_init); +#endif + + /* XXX: print built-ins array? */ + + } +#if defined(DUK_USE_REFERENCE_COUNTING) + if (st->internal) { + DUK__COMMA(); duk_fb_sprintf(fb, "__refcount:%lu", (unsigned long) DUK_HEAPHDR_GET_REFCOUNT((duk_heaphdr *) h)); + } +#endif + if (st->internal) { + DUK__COMMA(); duk_fb_sprintf(fb, "__class:%ld", (long) DUK_HOBJECT_GET_CLASS_NUMBER(h)); + } + + DUK__COMMA(); duk_fb_sprintf(fb, "__heapptr:%p", (void *) h); /* own pointer */ + + /* prototype should be last, for readability */ + if (DUK_HOBJECT_GET_PROTOTYPE(NULL, h)) { + if (st->follow_proto) { + DUK__COMMA(); duk_fb_put_cstring(fb, "__prototype:"); duk__print_hobject(st, DUK_HOBJECT_GET_PROTOTYPE(NULL, h)); + } else { + DUK__COMMA(); duk_fb_sprintf(fb, "__prototype:%p", (void *) DUK_HOBJECT_GET_PROTOTYPE(NULL, h)); + } + } + + duk_fb_put_cstring(fb, brace2); + +#if defined(DUK_USE_HOBJECT_HASH_PART) + if (st->heavy && DUK_HOBJECT_GET_HSIZE(h) > 0) { + duk_fb_put_byte(fb, (duk_uint8_t) DUK_ASC_LANGLE); + for (i = 0; i < DUK_HOBJECT_GET_HSIZE(h); i++) { + duk_uint_t h_idx = DUK_HOBJECT_H_GET_INDEX(NULL, h, i); + if (i > 0) { + duk_fb_put_byte(fb, (duk_uint8_t) DUK_ASC_COMMA); + } + if (h_idx == DUK_HOBJECT_HASHIDX_UNUSED) { + duk_fb_sprintf(fb, "u"); + } else if (h_idx == DUK_HOBJECT_HASHIDX_DELETED) { + duk_fb_sprintf(fb, "d"); + } else { + duk_fb_sprintf(fb, "%ld", (long) h_idx); + } + } + duk_fb_put_byte(fb, (duk_uint8_t) DUK_ASC_RANGLE); + } +#endif + + finished: + st->depth--; + if (pushed_loopstack) { + st->loop_stack_index--; + st->loop_stack[st->loop_stack_index] = NULL; + } +} + +DUK_LOCAL void duk__print_hbuffer(duk__dprint_state *st, duk_hbuffer *h) { + duk_fixedbuffer *fb = st->fb; + duk_size_t i, n; + duk_uint8_t *p; + + if (duk_fb_is_full(fb)) { + return; + } + + /* terminal type: no depth check */ + + if (!h) { + duk_fb_put_cstring(fb, "NULL"); + return; + } + + if (DUK_HBUFFER_HAS_DYNAMIC(h)) { + if (DUK_HBUFFER_HAS_EXTERNAL(h)) { + duk_hbuffer_external *g = (duk_hbuffer_external *) h; + duk_fb_sprintf(fb, "buffer:external:%p:%ld", + (void *) DUK_HBUFFER_EXTERNAL_GET_DATA_PTR(NULL, g), + (long) DUK_HBUFFER_EXTERNAL_GET_SIZE(g)); + } else { + duk_hbuffer_dynamic *g = (duk_hbuffer_dynamic *) h; + duk_fb_sprintf(fb, "buffer:dynamic:%p:%ld", + (void *) DUK_HBUFFER_DYNAMIC_GET_DATA_PTR(NULL, g), + (long) DUK_HBUFFER_DYNAMIC_GET_SIZE(g)); + } + } else { + duk_fb_sprintf(fb, "buffer:fixed:%ld", (long) DUK_HBUFFER_GET_SIZE(h)); + } + +#if defined(DUK_USE_REFERENCE_COUNTING) + duk_fb_sprintf(fb, "/%lu", (unsigned long) DUK_HEAPHDR_GET_REFCOUNT(&h->hdr)); +#endif + + if (st->hexdump) { + duk_fb_sprintf(fb, "=["); + n = DUK_HBUFFER_GET_SIZE(h); + p = (duk_uint8_t *) DUK_HBUFFER_GET_DATA_PTR(NULL, h); + for (i = 0; i < n; i++) { + duk_fb_sprintf(fb, "%02lx", (unsigned long) p[i]); + } + duk_fb_sprintf(fb, "]"); + } +} + +DUK_LOCAL void duk__print_heaphdr(duk__dprint_state *st, duk_heaphdr *h) { + duk_fixedbuffer *fb = st->fb; + + if (duk_fb_is_full(fb)) { + return; + } + + if (!h) { + duk_fb_put_cstring(fb, "NULL"); + return; + } + + switch (DUK_HEAPHDR_GET_TYPE(h)) { + case DUK_HTYPE_STRING: + duk__print_hstring(st, (duk_hstring *) h, 1); + break; + case DUK_HTYPE_OBJECT: + duk__print_hobject(st, (duk_hobject *) h); + break; + case DUK_HTYPE_BUFFER: + duk__print_hbuffer(st, (duk_hbuffer *) h); + break; + default: + duk_fb_sprintf(fb, "[unknown htype %ld]", (long) DUK_HEAPHDR_GET_TYPE(h)); + break; + } +} + +DUK_LOCAL void duk__print_tval(duk__dprint_state *st, duk_tval *tv) { + duk_fixedbuffer *fb = st->fb; + + if (duk_fb_is_full(fb)) { + return; + } + + /* depth check is done when printing an actual type */ + + if (st->heavy) { + duk_fb_sprintf(fb, "(%p)", (void *) tv); + } + + if (!tv) { + duk_fb_put_cstring(fb, "NULL"); + return; + } + + if (st->binary) { + duk_size_t i; + duk_fb_put_byte(fb, (duk_uint8_t) DUK_ASC_LBRACKET); + for (i = 0; i < (duk_size_t) sizeof(*tv); i++) { + duk_fb_sprintf(fb, "%02lx", (unsigned long) ((duk_uint8_t *)tv)[i]); + } + duk_fb_put_byte(fb, (duk_uint8_t) DUK_ASC_RBRACKET); + } + + if (st->heavy) { + duk_fb_put_byte(fb, (duk_uint8_t) DUK_ASC_LANGLE); + } + switch (DUK_TVAL_GET_TAG(tv)) { + case DUK_TAG_UNDEFINED: { + duk_fb_put_cstring(fb, "undefined"); + break; + } + case DUK_TAG_UNUSED: { + duk_fb_put_cstring(fb, "unused"); + break; + } + case DUK_TAG_NULL: { + duk_fb_put_cstring(fb, "null"); + break; + } + case DUK_TAG_BOOLEAN: { + duk_fb_put_cstring(fb, DUK_TVAL_GET_BOOLEAN(tv) ? "true" : "false"); + break; + } + case DUK_TAG_STRING: { + /* Note: string is a terminal heap object, so no depth check here */ + duk__print_hstring(st, DUK_TVAL_GET_STRING(tv), 1); + break; + } + case DUK_TAG_OBJECT: { + duk__print_hobject(st, DUK_TVAL_GET_OBJECT(tv)); + break; + } + case DUK_TAG_BUFFER: { + duk__print_hbuffer(st, DUK_TVAL_GET_BUFFER(tv)); + break; + } + case DUK_TAG_POINTER: { + duk_fb_sprintf(fb, "pointer:%p", (void *) DUK_TVAL_GET_POINTER(tv)); + break; + } + case DUK_TAG_LIGHTFUNC: { + duk_c_function func; + duk_small_uint_t lf_flags; + + DUK_TVAL_GET_LIGHTFUNC(tv, func, lf_flags); + duk_fb_sprintf(fb, "lightfunc:"); + duk_fb_put_funcptr(fb, (duk_uint8_t *) &func, sizeof(func)); + duk_fb_sprintf(fb, ":%04lx", (long) lf_flags); + break; + } +#if defined(DUK_USE_FASTINT) + case DUK_TAG_FASTINT: + DUK_ASSERT(!DUK_TVAL_IS_UNUSED(tv)); + DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv)); + duk_fb_sprintf(fb, "%.18g_F", (double) DUK_TVAL_GET_NUMBER(tv)); + break; +#endif + default: { + /* IEEE double is approximately 16 decimal digits; print a couple extra */ + DUK_ASSERT(!DUK_TVAL_IS_UNUSED(tv)); + DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv)); + duk_fb_sprintf(fb, "%.18g", (double) DUK_TVAL_GET_NUMBER(tv)); + break; + } + } + if (st->heavy) { + duk_fb_put_byte(fb, (duk_uint8_t) DUK_ASC_RANGLE); + } +} + +DUK_LOCAL void duk__print_instr(duk__dprint_state *st, duk_instr_t ins) { + duk_fixedbuffer *fb = st->fb; + duk_small_int_t op; + const char *op_name; + + op = (duk_small_int_t) DUK_DEC_OP(ins); + op_name = duk__bc_optab[op]; + + /* XXX: option to fix opcode length so it lines up nicely */ + + if (op == DUK_OP_JUMP) { + duk_int_t diff1 = (duk_int_t) (DUK_DEC_ABC(ins) - DUK_BC_JUMP_BIAS); /* from next pc */ + duk_int_t diff2 = diff1 + 1; /* from curr pc */ + + duk_fb_sprintf(fb, "%s %ld (to pc%c%ld)", + (const char *) op_name, (long) diff1, + (int) (diff2 >= 0 ? '+' : '-'), /* char format: use int */ + (long) (diff2 >= 0 ? diff2 : -diff2)); + } else { + duk_fb_sprintf(fb, "%s %ld, %ld, %ld", + (const char *) op_name, (long) DUK_DEC_A(ins), + (long) DUK_DEC_B(ins), (long) DUK_DEC_C(ins)); + } +} + +DUK_LOCAL void duk__print_opcode(duk__dprint_state *st, duk_small_int_t opcode) { + duk_fixedbuffer *fb = st->fb; + + if (opcode < DUK_BC_OP_MIN || opcode > DUK_BC_OP_MAX) { + duk_fb_sprintf(fb, "?(%ld)", (long) opcode); + } else { + duk_fb_sprintf(fb, "%s", (const char *) duk__bc_optab[opcode]); + } +} + +DUK_LOCAL void duk__print_catcher(duk__dprint_state *st, duk_catcher *cat) { + duk_fixedbuffer *fb = st->fb; + + if (duk_fb_is_full(fb)) { + return; + } + + if (!cat) { + duk_fb_put_cstring(fb, "NULL"); + return; + } + + duk_fb_sprintf(fb, "[catcher ptr=%p parent=%p varname=%p pc_base=%p, idx_base=%ld, flags=0x%08lx]", + (void *) cat, + (void *) cat->parent, (void *) cat->h_varname, (void *) cat->pc_base, + (long) cat->idx_base, (unsigned long) cat->flags); +} + + +DUK_LOCAL void duk__print_activation(duk__dprint_state *st, duk_activation *act) { + duk_fixedbuffer *fb = st->fb; + + if (duk_fb_is_full(fb)) { + return; + } + + if (!act) { + duk_fb_put_cstring(fb, "NULL"); + return; + } + + /* prev_caller: conditional, omitted on purpose, it's rarely used. */ + /* prev_line: conditional, omitted on purpose (but would be nice). */ + duk_fb_sprintf(fb, "[activation ptr=%p tv_func= func=%p parent=%p var_env=%p lex_env=%p cat=%p curr_pc=%p bottom_byteoff=%ld retval_byteoff=%ld reserve_byteoff=%ld flags=%ld]", + (void *) act, + (void *) act->func, (void *) act->parent, (void *) act->var_env, + (void *) act->lex_env, (void *) act->cat, (void *) act->curr_pc, + (long) act->bottom_byteoff, (long) act->retval_byteoff, (long) act->reserve_byteoff, + (long) act->flags); +} + +DUK_INTERNAL duk_int_t duk_debug_vsnprintf(char *str, duk_size_t size, const char *format, va_list ap) { + duk_fixedbuffer fb; + const char *p = format; + const char *p_end = p + DUK_STRLEN(format); + duk_int_t retval; + + duk_memzero(&fb, sizeof(fb)); + fb.buffer = (duk_uint8_t *) str; + fb.length = size; + fb.offset = 0; + fb.truncated = 0; + + while (p < p_end) { + char ch = *p++; + const char *p_begfmt = NULL; + duk_bool_t got_exclamation = 0; + duk_bool_t got_long = 0; /* %lf, %ld etc */ + duk__dprint_state st; + + if (ch != DUK_ASC_PERCENT) { + duk_fb_put_byte(&fb, (duk_uint8_t) ch); + continue; + } + + /* + * Format tag parsing. Since we don't understand all the + * possible format tags allowed, we just scan for a terminating + * specifier and keep track of relevant modifiers that we do + * understand. See man 3 printf. + */ + + duk_memzero(&st, sizeof(st)); + st.fb = &fb; + st.depth = 0; + st.depth_limit = 1; + st.loop_stack_index = 0; + st.loop_stack_limit = DUK__LOOP_STACK_DEPTH; + + p_begfmt = p - 1; + while (p < p_end) { + ch = *p++; + + if (ch == DUK_ASC_STAR) { + /* unsupported: would consume multiple args */ + goto format_error; + } else if (ch == DUK_ASC_PERCENT) { + duk_fb_put_byte(&fb, (duk_uint8_t) DUK_ASC_PERCENT); + break; + } else if (ch == DUK_ASC_EXCLAMATION) { + got_exclamation = 1; + } else if (!got_exclamation && ch == DUK_ASC_LC_L) { + got_long = 1; + } else if (got_exclamation && ch == DUK_ASC_LC_D) { + st.depth_limit = DUK__DEEP_DEPTH_LIMIT; + } else if (got_exclamation && ch == DUK_ASC_LC_P) { + st.follow_proto = 1; + } else if (got_exclamation && ch == DUK_ASC_LC_I) { + st.internal = 1; + } else if (got_exclamation && ch == DUK_ASC_LC_X) { + st.hexdump = 1; + } else if (got_exclamation && ch == DUK_ASC_LC_H) { + st.heavy = 1; + } else if (got_exclamation && ch == DUK_ASC_ATSIGN) { + st.pointer = 1; + } else if (got_exclamation && ch == DUK_ASC_HASH) { + st.binary = 1; + } else if (got_exclamation && ch == DUK_ASC_UC_T) { + duk_tval *t = va_arg(ap, duk_tval *); + if (st.pointer && !st.heavy) { + duk_fb_sprintf(&fb, "(%p)", (void *) t); + } + duk__print_tval(&st, t); + break; + } else if (got_exclamation && ch == DUK_ASC_UC_O) { + duk_heaphdr *t = va_arg(ap, duk_heaphdr *); + if (st.pointer && !st.heavy) { + duk_fb_sprintf(&fb, "(%p)", (void *) t); + } + duk__print_heaphdr(&st, t); + break; + } else if (got_exclamation && ch == DUK_ASC_UC_I) { + duk_instr_t t = va_arg(ap, duk_instr_t); + duk__print_instr(&st, t); + break; + } else if (got_exclamation && ch == DUK_ASC_UC_X) { + long t = va_arg(ap, long); + duk__print_opcode(&st, (duk_small_int_t) t); + break; + } else if (got_exclamation && ch == DUK_ASC_UC_C) { + duk_catcher *t = va_arg(ap, duk_catcher *); + duk__print_catcher(&st, t); + break; + } else if (got_exclamation && ch == DUK_ASC_UC_A) { + duk_activation *t = va_arg(ap, duk_activation *); + duk__print_activation(&st, t); + break; + } else if (!got_exclamation && strchr(DUK__ALLOWED_STANDARD_SPECIFIERS, (int) ch)) { + char fmtbuf[DUK__MAX_FORMAT_TAG_LENGTH]; + duk_size_t fmtlen; + + DUK_ASSERT(p >= p_begfmt); + fmtlen = (duk_size_t) (p - p_begfmt); + if (fmtlen >= sizeof(fmtbuf)) { + /* format is too large, abort */ + goto format_error; + } + duk_memzero(fmtbuf, sizeof(fmtbuf)); + duk_memcpy(fmtbuf, p_begfmt, fmtlen); + + /* assume exactly 1 arg, which is why '*' is forbidden; arg size still + * depends on type though. + */ + + if (ch == DUK_ASC_LC_F || ch == DUK_ASC_LC_G || ch == DUK_ASC_LC_E) { + /* %f and %lf both consume a 'long' */ + double arg = va_arg(ap, double); + duk_fb_sprintf(&fb, fmtbuf, arg); + } else if (ch == DUK_ASC_LC_D && got_long) { + /* %ld */ + long arg = va_arg(ap, long); + duk_fb_sprintf(&fb, fmtbuf, arg); + } else if (ch == DUK_ASC_LC_D) { + /* %d; only 16 bits are guaranteed */ + int arg = va_arg(ap, int); + duk_fb_sprintf(&fb, fmtbuf, arg); + } else if (ch == DUK_ASC_LC_U && got_long) { + /* %lu */ + unsigned long arg = va_arg(ap, unsigned long); + duk_fb_sprintf(&fb, fmtbuf, arg); + } else if (ch == DUK_ASC_LC_U) { + /* %u; only 16 bits are guaranteed */ + unsigned int arg = va_arg(ap, unsigned int); + duk_fb_sprintf(&fb, fmtbuf, arg); + } else if (ch == DUK_ASC_LC_X && got_long) { + /* %lx */ + unsigned long arg = va_arg(ap, unsigned long); + duk_fb_sprintf(&fb, fmtbuf, arg); + } else if (ch == DUK_ASC_LC_X) { + /* %x; only 16 bits are guaranteed */ + unsigned int arg = va_arg(ap, unsigned int); + duk_fb_sprintf(&fb, fmtbuf, arg); + } else if (ch == DUK_ASC_LC_S) { + /* %s */ + const char *arg = va_arg(ap, const char *); + if (arg == NULL) { + /* '%s' and NULL is not portable, so special case + * it for debug printing. + */ + duk_fb_sprintf(&fb, "NULL"); + } else { + duk_fb_sprintf(&fb, fmtbuf, arg); + } + } else if (ch == DUK_ASC_LC_P) { + /* %p */ + void *arg = va_arg(ap, void *); + if (arg == NULL) { + /* '%p' and NULL is portable, but special case it + * anyway to get a standard NULL marker in logs. + */ + duk_fb_sprintf(&fb, "NULL"); + } else { + duk_fb_sprintf(&fb, fmtbuf, arg); + } + } else if (ch == DUK_ASC_LC_C) { + /* '%c', passed concretely as int */ + int arg = va_arg(ap, int); + duk_fb_sprintf(&fb, fmtbuf, arg); + } else { + /* Should not happen. */ + duk_fb_sprintf(&fb, "INVALID-FORMAT(%s)", (const char *) fmtbuf); + } + break; + } else { + /* ignore */ + } + } + } + goto done; + + format_error: + duk_fb_put_cstring(&fb, "FMTERR"); + /* fall through */ + + done: + retval = (duk_int_t) fb.offset; + duk_fb_put_byte(&fb, (duk_uint8_t) 0); + + /* return total chars written excluding terminator */ + return retval; +} + +#if 0 /*unused*/ +DUK_INTERNAL duk_int_t duk_debug_snprintf(char *str, duk_size_t size, const char *format, ...) { + duk_int_t retval; + va_list ap; + va_start(ap, format); + retval = duk_debug_vsnprintf(str, size, format, ap); + va_end(ap); + return retval; +} +#endif + +/* Formatting function pointers is tricky: there is no standard pointer for + * function pointers and the size of a function pointer may depend on the + * specific pointer type. This helper formats a function pointer based on + * its memory layout to get something useful on most platforms. + */ +DUK_INTERNAL void duk_debug_format_funcptr(char *buf, duk_size_t buf_size, duk_uint8_t *fptr, duk_size_t fptr_size) { + duk_size_t i; + duk_uint8_t *p = (duk_uint8_t *) buf; + duk_uint8_t *p_end = (duk_uint8_t *) (buf + buf_size - 1); + + DUK_ASSERT(buf != NULL); + duk_memzero(buf, buf_size); + + for (i = 0; i < fptr_size; i++) { + duk_int_t left = (duk_int_t) (p_end - p); + duk_uint8_t ch; + if (left <= 0) { + break; + } + + /* Quite approximate but should be useful for little and big endian. */ +#if defined(DUK_USE_INTEGER_BE) + ch = fptr[i]; +#else + ch = fptr[fptr_size - 1 - i]; +#endif + p += DUK_SNPRINTF((char *) p, (duk_size_t) left, "%02lx", (unsigned long) ch); + } +} + +#endif /* DUK_USE_DEBUG */ + +/* automatic undefs */ +#undef DUK__ALLOWED_STANDARD_SPECIFIERS +#undef DUK__COMMA +#undef DUK__DEEP_DEPTH_LIMIT +#undef DUK__LOOP_STACK_DEPTH +#undef DUK__MAX_FORMAT_TAG_LENGTH +#line 1 "duk_debugger.c" +/* + * Duktape debugger + */ + +/* #include duk_internal.h -> already included */ + +#if defined(DUK_USE_DEBUGGER_SUPPORT) + +/* + * Assert helpers + */ + +#if defined(DUK_USE_ASSERTIONS) +#define DUK__DBG_TPORT_ENTER() do { \ + DUK_ASSERT(heap->dbg_calling_transport == 0); \ + heap->dbg_calling_transport = 1; \ + } while (0) +#define DUK__DBG_TPORT_EXIT() do { \ + DUK_ASSERT(heap->dbg_calling_transport == 1); \ + heap->dbg_calling_transport = 0; \ + } while (0) +#else +#define DUK__DBG_TPORT_ENTER() do {} while (0) +#define DUK__DBG_TPORT_EXIT() do {} while (0) +#endif + +/* + * Helper structs + */ + +typedef union { + void *p; + duk_uint_t b[1]; + /* Use b[] to access the size of the union, which is strictly not + * correct. Can't use fixed size unless there's feature detection + * for pointer byte size. + */ +} duk__ptr_union; + +/* + * Detach handling + */ + +#define DUK__SET_CONN_BROKEN(thr,reason) do { \ + /* For now shared handler is fine. */ \ + duk__debug_do_detach1((thr)->heap, (reason)); \ + } while (0) + +DUK_LOCAL void duk__debug_do_detach1(duk_heap *heap, duk_int_t reason) { + /* Can be called multiple times with no harm. Mark the transport + * bad (dbg_read_cb == NULL) and clear state except for the detached + * callback and the udata field. The detached callback is delayed + * to the message loop so that it can be called between messages; + * this avoids corner cases related to immediate debugger reattach + * inside the detached callback. + */ + + if (heap->dbg_detaching) { + DUK_D(DUK_DPRINT("debugger already detaching, ignore detach1")); + return; + } + + DUK_D(DUK_DPRINT("debugger transport detaching, marking transport broken")); + + heap->dbg_detaching = 1; /* prevent multiple in-progress detaches */ + + if (heap->dbg_write_cb != NULL) { + duk_hthread *thr; + + thr = heap->heap_thread; + DUK_ASSERT(thr != NULL); + + duk_debug_write_notify(thr, DUK_DBG_CMD_DETACHING); + duk_debug_write_int(thr, reason); + duk_debug_write_eom(thr); + } + + heap->dbg_read_cb = NULL; + heap->dbg_write_cb = NULL; + heap->dbg_peek_cb = NULL; + heap->dbg_read_flush_cb = NULL; + heap->dbg_write_flush_cb = NULL; + heap->dbg_request_cb = NULL; + /* heap->dbg_detached_cb: keep */ + /* heap->dbg_udata: keep */ + /* heap->dbg_processing: keep on purpose to avoid debugger re-entry in detaching state */ + heap->dbg_state_dirty = 0; + heap->dbg_force_restart = 0; + heap->dbg_pause_flags = 0; + heap->dbg_pause_act = NULL; + heap->dbg_pause_startline = 0; + heap->dbg_have_next_byte = 0; + duk_debug_clear_paused(heap); /* XXX: some overlap with field inits above */ + heap->dbg_state_dirty = 0; /* XXX: clear_paused sets dirty; rework? */ + + /* Ensure there are no stale active breakpoint pointers. + * Breakpoint list is currently kept - we could empty it + * here but we'd need to handle refcounts correctly, and + * we'd need a 'thr' reference for that. + * + * XXX: clear breakpoint on either attach or detach? + */ + heap->dbg_breakpoints_active[0] = (duk_breakpoint *) NULL; +} + +DUK_LOCAL void duk__debug_do_detach2(duk_heap *heap) { + duk_debug_detached_function detached_cb; + void *detached_udata; + duk_hthread *thr; + + thr = heap->heap_thread; + if (thr == NULL) { + DUK_ASSERT(heap->dbg_detached_cb == NULL); + return; + } + + /* Safe to call multiple times. */ + + detached_cb = heap->dbg_detached_cb; + detached_udata = heap->dbg_udata; + heap->dbg_detached_cb = NULL; + heap->dbg_udata = NULL; + + if (detached_cb) { + /* Careful here: state must be wiped before the call + * so that we can cleanly handle a re-attach from + * inside the callback. + */ + DUK_D(DUK_DPRINT("detached during message loop, delayed call to detached_cb")); + detached_cb(thr, detached_udata); + } + + heap->dbg_detaching = 0; +} + +DUK_INTERNAL void duk_debug_do_detach(duk_heap *heap) { + duk__debug_do_detach1(heap, 0); + duk__debug_do_detach2(heap); +} + +/* Called on a read/write error: NULL all callbacks except the detached + * callback so that we never accidentally call them after a read/write + * error has been indicated. This is especially important for the transport + * I/O callbacks to fulfill guaranteed callback semantics. + */ +DUK_LOCAL void duk__debug_null_most_callbacks(duk_hthread *thr) { + duk_heap *heap; + + DUK_ASSERT(thr != NULL); + + heap = thr->heap; + DUK_D(DUK_DPRINT("transport read/write error, NULL all callbacks expected detached")); + heap->dbg_read_cb = NULL; + heap->dbg_write_cb = NULL; /* this is especially critical to avoid another write call in detach1() */ + heap->dbg_peek_cb = NULL; + heap->dbg_read_flush_cb = NULL; + heap->dbg_write_flush_cb = NULL; + heap->dbg_request_cb = NULL; + /* keep heap->dbg_detached_cb */ +} + +/* + * Pause handling + */ + +DUK_LOCAL void duk__debug_set_pause_state(duk_hthread *thr, duk_heap *heap, duk_small_uint_t pause_flags) { + duk_uint_fast32_t line; + + line = duk_debug_curr_line(thr); + if (line == 0) { + /* No line info for current function. */ + duk_small_uint_t updated_flags; + + updated_flags = pause_flags & ~(DUK_PAUSE_FLAG_LINE_CHANGE); + DUK_D(DUK_DPRINT("no line info for current activation, disable line-based pause flags: 0x%08lx -> 0x%08lx", + (long) pause_flags, (long) updated_flags)); + pause_flags = updated_flags; + } + + heap->dbg_pause_flags = pause_flags; + heap->dbg_pause_act = thr->callstack_curr; + heap->dbg_pause_startline = (duk_uint32_t) line; + heap->dbg_state_dirty = 1; + + DUK_D(DUK_DPRINT("set state for automatic pause triggers, flags=0x%08lx, act=%p, startline=%ld", + (long) heap->dbg_pause_flags, (void *) heap->dbg_pause_act, + (long) heap->dbg_pause_startline)); +} + +/* + * Debug connection peek and flush primitives + */ + +DUK_INTERNAL duk_bool_t duk_debug_read_peek(duk_hthread *thr) { + duk_heap *heap; + duk_bool_t ret; + + DUK_ASSERT(thr != NULL); + heap = thr->heap; + DUK_ASSERT(heap != NULL); + + if (heap->dbg_read_cb == NULL) { + DUK_D(DUK_DPRINT("attempt to peek in detached state, return zero (= no data)")); + return 0; + } + if (heap->dbg_peek_cb == NULL) { + DUK_DD(DUK_DDPRINT("no peek callback, return zero (= no data)")); + return 0; + } + + DUK__DBG_TPORT_ENTER(); + ret = (duk_bool_t) (heap->dbg_peek_cb(heap->dbg_udata) > 0); + DUK__DBG_TPORT_EXIT(); + return ret; +} + +DUK_INTERNAL void duk_debug_read_flush(duk_hthread *thr) { + duk_heap *heap; + + DUK_ASSERT(thr != NULL); + heap = thr->heap; + DUK_ASSERT(heap != NULL); + + if (heap->dbg_read_cb == NULL) { + DUK_D(DUK_DPRINT("attempt to read flush in detached state, ignore")); + return; + } + if (heap->dbg_read_flush_cb == NULL) { + DUK_DD(DUK_DDPRINT("no read flush callback, ignore")); + return; + } + + DUK__DBG_TPORT_ENTER(); + heap->dbg_read_flush_cb(heap->dbg_udata); + DUK__DBG_TPORT_EXIT(); +} + +DUK_INTERNAL void duk_debug_write_flush(duk_hthread *thr) { + duk_heap *heap; + + DUK_ASSERT(thr != NULL); + heap = thr->heap; + DUK_ASSERT(heap != NULL); + + if (heap->dbg_read_cb == NULL) { + DUK_D(DUK_DPRINT("attempt to write flush in detached state, ignore")); + return; + } + if (heap->dbg_write_flush_cb == NULL) { + DUK_DD(DUK_DDPRINT("no write flush callback, ignore")); + return; + } + + DUK__DBG_TPORT_ENTER(); + heap->dbg_write_flush_cb(heap->dbg_udata); + DUK__DBG_TPORT_EXIT(); +} + +/* + * Debug connection skip primitives + */ + +/* Skip fully. */ +DUK_INTERNAL void duk_debug_skip_bytes(duk_hthread *thr, duk_size_t length) { + duk_uint8_t dummy[64]; + duk_size_t now; + + DUK_ASSERT(thr != NULL); + + while (length > 0) { + now = (length > sizeof(dummy) ? sizeof(dummy) : length); + duk_debug_read_bytes(thr, dummy, now); + length -= now; + } +} + +DUK_INTERNAL void duk_debug_skip_byte(duk_hthread *thr) { + DUK_ASSERT(thr != NULL); + + (void) duk_debug_read_byte(thr); +} + +/* + * Debug connection read primitives + */ + +/* Peek ahead in the stream one byte. */ +DUK_INTERNAL uint8_t duk_debug_peek_byte(duk_hthread *thr) { + /* It is important not to call this if the last byte read was an EOM. + * Reading ahead in this scenario would cause unnecessary blocking if + * another message is not available. + */ + + duk_uint8_t x; + + x = duk_debug_read_byte(thr); + thr->heap->dbg_have_next_byte = 1; + thr->heap->dbg_next_byte = x; + return x; +} + +/* Read fully. */ +DUK_INTERNAL void duk_debug_read_bytes(duk_hthread *thr, duk_uint8_t *data, duk_size_t length) { + duk_heap *heap; + duk_uint8_t *p; + duk_size_t left; + duk_size_t got; + + DUK_ASSERT(thr != NULL); + heap = thr->heap; + DUK_ASSERT(heap != NULL); + DUK_ASSERT(data != NULL); + + if (heap->dbg_read_cb == NULL) { + DUK_D(DUK_DPRINT("attempt to read %ld bytes in detached state, return zero data", (long) length)); + goto fail; + } + + /* NOTE: length may be zero */ + p = data; + if (length >= 1 && heap->dbg_have_next_byte) { + heap->dbg_have_next_byte = 0; + *p++ = heap->dbg_next_byte; + } + for (;;) { + left = (duk_size_t) ((data + length) - p); + if (left == 0) { + break; + } + DUK_ASSERT(heap->dbg_read_cb != NULL); + DUK_ASSERT(left >= 1); +#if defined(DUK_USE_DEBUGGER_TRANSPORT_TORTURE) + left = 1; +#endif + DUK__DBG_TPORT_ENTER(); + got = heap->dbg_read_cb(heap->dbg_udata, (char *) p, left); + DUK__DBG_TPORT_EXIT(); + + if (got == 0 || got > left) { + DUK_D(DUK_DPRINT("connection error during read, return zero data")); + duk__debug_null_most_callbacks(thr); /* avoid calling write callback in detach1() */ + DUK__SET_CONN_BROKEN(thr, 1); + goto fail; + } + p += got; + } + return; + + fail: + duk_memzero((void *) data, (size_t) length); +} + +DUK_INTERNAL duk_uint8_t duk_debug_read_byte(duk_hthread *thr) { + duk_uint8_t x; + + x = 0; /* just in case callback is broken and won't write 'x' */ + duk_debug_read_bytes(thr, &x, 1); + return x; +} + +DUK_LOCAL duk_uint32_t duk__debug_read_uint32_raw(duk_hthread *thr) { + duk_uint8_t buf[4]; + + DUK_ASSERT(thr != NULL); + + duk_debug_read_bytes(thr, buf, 4); + return ((duk_uint32_t) buf[0] << 24) | + ((duk_uint32_t) buf[1] << 16) | + ((duk_uint32_t) buf[2] << 8) | + (duk_uint32_t) buf[3]; +} + +DUK_LOCAL duk_int32_t duk__debug_read_int32_raw(duk_hthread *thr) { + return (duk_int32_t) duk__debug_read_uint32_raw(thr); +} + +DUK_LOCAL duk_uint16_t duk__debug_read_uint16_raw(duk_hthread *thr) { + duk_uint8_t buf[2]; + + DUK_ASSERT(thr != NULL); + + duk_debug_read_bytes(thr, buf, 2); + return ((duk_uint16_t) buf[0] << 8) | + (duk_uint16_t) buf[1]; +} + +DUK_INTERNAL duk_int32_t duk_debug_read_int(duk_hthread *thr) { + duk_small_uint_t x; + duk_small_uint_t t; + + DUK_ASSERT(thr != NULL); + + x = duk_debug_read_byte(thr); + if (x >= 0xc0) { + t = duk_debug_read_byte(thr); + return (duk_int32_t) (((x - 0xc0) << 8) + t); + } else if (x >= 0x80) { + return (duk_int32_t) (x - 0x80); + } else if (x == DUK_DBG_IB_INT4) { + return (duk_int32_t) duk__debug_read_uint32_raw(thr); + } + + DUK_D(DUK_DPRINT("debug connection error: failed to decode int")); + DUK__SET_CONN_BROKEN(thr, 1); + return 0; +} + +DUK_LOCAL duk_hstring *duk__debug_read_hstring_raw(duk_hthread *thr, duk_uint32_t len) { + duk_uint8_t buf[31]; + duk_uint8_t *p; + + if (len <= sizeof(buf)) { + duk_debug_read_bytes(thr, buf, (duk_size_t) len); + duk_push_lstring(thr, (const char *) buf, (duk_size_t) len); + } else { + p = (duk_uint8_t *) duk_push_fixed_buffer(thr, (duk_size_t) len); /* zero for paranoia */ + DUK_ASSERT(p != NULL); + duk_debug_read_bytes(thr, p, (duk_size_t) len); + (void) duk_buffer_to_string(thr, -1); /* Safety relies on debug client, which is OK. */ + } + + return duk_require_hstring(thr, -1); +} + +DUK_INTERNAL duk_hstring *duk_debug_read_hstring(duk_hthread *thr) { + duk_small_uint_t x; + duk_uint32_t len; + + DUK_ASSERT(thr != NULL); + + x = duk_debug_read_byte(thr); + if (x >= 0x60 && x <= 0x7f) { + /* For short strings, use a fixed temp buffer. */ + len = (duk_uint32_t) (x - 0x60); + } else if (x == DUK_DBG_IB_STR2) { + len = (duk_uint32_t) duk__debug_read_uint16_raw(thr); + } else if (x == DUK_DBG_IB_STR4) { + len = (duk_uint32_t) duk__debug_read_uint32_raw(thr); + } else { + goto fail; + } + + return duk__debug_read_hstring_raw(thr, len); + + fail: + DUK_D(DUK_DPRINT("debug connection error: failed to decode int")); + DUK__SET_CONN_BROKEN(thr, 1); + duk_push_hstring_empty(thr); /* always push some string */ + return duk_require_hstring(thr, -1); +} + +DUK_LOCAL duk_hbuffer *duk__debug_read_hbuffer_raw(duk_hthread *thr, duk_uint32_t len) { + duk_uint8_t *p; + + p = (duk_uint8_t *) duk_push_fixed_buffer(thr, (duk_size_t) len); /* zero for paranoia */ + DUK_ASSERT(p != NULL); + duk_debug_read_bytes(thr, p, (duk_size_t) len); + + return duk_require_hbuffer(thr, -1); +} + +DUK_LOCAL void *duk__debug_read_pointer_raw(duk_hthread *thr) { + duk_small_uint_t x; + duk__ptr_union pu; + + DUK_ASSERT(thr != NULL); + + x = duk_debug_read_byte(thr); + if (x != sizeof(pu)) { + goto fail; + } + duk_debug_read_bytes(thr, (duk_uint8_t *) &pu.p, sizeof(pu)); +#if defined(DUK_USE_INTEGER_LE) + duk_byteswap_bytes((duk_uint8_t *) pu.b, sizeof(pu)); +#endif + return (void *) pu.p; + + fail: + DUK_D(DUK_DPRINT("debug connection error: failed to decode pointer")); + DUK__SET_CONN_BROKEN(thr, 1); + return (void *) NULL; +} + +DUK_LOCAL duk_double_t duk__debug_read_double_raw(duk_hthread *thr) { + duk_double_union du; + + DUK_ASSERT(sizeof(du.uc) == 8); + duk_debug_read_bytes(thr, (duk_uint8_t *) du.uc, sizeof(du.uc)); + DUK_DBLUNION_DOUBLE_NTOH(&du); + return du.d; +} + +#if 0 +DUK_INTERNAL duk_heaphdr *duk_debug_read_heapptr(duk_hthread *thr) { + duk_small_uint_t x; + + DUK_ASSERT(thr != NULL); + + x = duk_debug_read_byte(thr); + if (x != DUK_DBG_IB_HEAPPTR) { + goto fail; + } + + return (duk_heaphdr *) duk__debug_read_pointer_raw(thr); + + fail: + DUK_D(DUK_DPRINT("debug connection error: failed to decode heapptr")); + DUK__SET_CONN_BROKEN(thr, 1); + return NULL; +} +#endif + +DUK_INTERNAL duk_heaphdr *duk_debug_read_any_ptr(duk_hthread *thr) { + duk_small_uint_t x; + + DUK_ASSERT(thr != NULL); + + x = duk_debug_read_byte(thr); + switch (x) { + case DUK_DBG_IB_OBJECT: + case DUK_DBG_IB_POINTER: + case DUK_DBG_IB_HEAPPTR: + /* Accept any pointer-like value; for 'object' dvalue, read + * and ignore the class number. + */ + if (x == DUK_DBG_IB_OBJECT) { + duk_debug_skip_byte(thr); + } + break; + default: + goto fail; + } + + return (duk_heaphdr *) duk__debug_read_pointer_raw(thr); + + fail: + DUK_D(DUK_DPRINT("debug connection error: failed to decode any pointer (object, pointer, heapptr)")); + DUK__SET_CONN_BROKEN(thr, 1); + return NULL; +} + +DUK_INTERNAL duk_tval *duk_debug_read_tval(duk_hthread *thr) { + duk_uint8_t x; + duk_uint_t t; + duk_uint32_t len; + + DUK_ASSERT(thr != NULL); + + x = duk_debug_read_byte(thr); + + if (x >= 0xc0) { + t = (duk_uint_t) (x - 0xc0); + t = (t << 8) + duk_debug_read_byte(thr); + duk_push_uint(thr, (duk_uint_t) t); + goto return_ptr; + } + if (x >= 0x80) { + duk_push_uint(thr, (duk_uint_t) (x - 0x80)); + goto return_ptr; + } + if (x >= 0x60) { + len = (duk_uint32_t) (x - 0x60); + duk__debug_read_hstring_raw(thr, len); + goto return_ptr; + } + + switch (x) { + case DUK_DBG_IB_INT4: { + duk_int32_t i = duk__debug_read_int32_raw(thr); + duk_push_i32(thr, i); + break; + } + case DUK_DBG_IB_STR4: { + len = duk__debug_read_uint32_raw(thr); + duk__debug_read_hstring_raw(thr, len); + break; + } + case DUK_DBG_IB_STR2: { + len = duk__debug_read_uint16_raw(thr); + duk__debug_read_hstring_raw(thr, len); + break; + } + case DUK_DBG_IB_BUF4: { + len = duk__debug_read_uint32_raw(thr); + duk__debug_read_hbuffer_raw(thr, len); + break; + } + case DUK_DBG_IB_BUF2: { + len = duk__debug_read_uint16_raw(thr); + duk__debug_read_hbuffer_raw(thr, len); + break; + } + case DUK_DBG_IB_UNDEFINED: { + duk_push_undefined(thr); + break; + } + case DUK_DBG_IB_NULL: { + duk_push_null(thr); + break; + } + case DUK_DBG_IB_TRUE: { + duk_push_true(thr); + break; + } + case DUK_DBG_IB_FALSE: { + duk_push_false(thr); + break; + } + case DUK_DBG_IB_NUMBER: { + duk_double_t d; + d = duk__debug_read_double_raw(thr); + duk_push_number(thr, d); + break; + } + case DUK_DBG_IB_OBJECT: { + duk_heaphdr *h; + duk_debug_skip_byte(thr); + h = (duk_heaphdr *) duk__debug_read_pointer_raw(thr); + duk_push_heapptr(thr, (void *) h); + break; + } + case DUK_DBG_IB_POINTER: { + void *ptr; + ptr = duk__debug_read_pointer_raw(thr); + duk_push_pointer(thr, ptr); + break; + } + case DUK_DBG_IB_LIGHTFUNC: { + /* XXX: Not needed for now, so not implemented. Note that + * function pointers may have different size/layout than + * a void pointer. + */ + DUK_D(DUK_DPRINT("reading lightfunc values unimplemented")); + goto fail; + } + case DUK_DBG_IB_HEAPPTR: { + duk_heaphdr *h; + h = (duk_heaphdr *) duk__debug_read_pointer_raw(thr); + duk_push_heapptr(thr, (void *) h); + break; + } + case DUK_DBG_IB_UNUSED: /* unused: not accepted in inbound messages */ + default: + goto fail; + } + + return_ptr: + return DUK_GET_TVAL_NEGIDX(thr, -1); + + fail: + DUK_D(DUK_DPRINT("debug connection error: failed to decode tval")); + DUK__SET_CONN_BROKEN(thr, 1); + return NULL; +} + +/* + * Debug connection write primitives + */ + +/* Write fully. */ +DUK_INTERNAL void duk_debug_write_bytes(duk_hthread *thr, const duk_uint8_t *data, duk_size_t length) { + duk_heap *heap; + const duk_uint8_t *p; + duk_size_t left; + duk_size_t got; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(length == 0 || data != NULL); + heap = thr->heap; + DUK_ASSERT(heap != NULL); + + if (heap->dbg_write_cb == NULL) { + DUK_D(DUK_DPRINT("attempt to write %ld bytes in detached state, ignore", (long) length)); + return; + } + if (length == 0) { + /* Avoid doing an actual write callback with length == 0, + * because that's reserved for a write flush. + */ + return; + } + DUK_ASSERT(data != NULL); + + p = data; + for (;;) { + left = (duk_size_t) ((data + length) - p); + if (left == 0) { + break; + } + DUK_ASSERT(heap->dbg_write_cb != NULL); + DUK_ASSERT(left >= 1); +#if defined(DUK_USE_DEBUGGER_TRANSPORT_TORTURE) + left = 1; +#endif + DUK__DBG_TPORT_ENTER(); + got = heap->dbg_write_cb(heap->dbg_udata, (const char *) p, left); + DUK__DBG_TPORT_EXIT(); + + if (got == 0 || got > left) { + duk__debug_null_most_callbacks(thr); /* avoid calling write callback in detach1() */ + DUK_D(DUK_DPRINT("connection error during write")); + DUK__SET_CONN_BROKEN(thr, 1); + return; + } + p += got; + } +} + +DUK_INTERNAL void duk_debug_write_byte(duk_hthread *thr, duk_uint8_t x) { + duk_debug_write_bytes(thr, (const duk_uint8_t *) &x, 1); +} + +DUK_INTERNAL void duk_debug_write_unused(duk_hthread *thr) { + duk_debug_write_byte(thr, DUK_DBG_IB_UNUSED); +} + +DUK_INTERNAL void duk_debug_write_undefined(duk_hthread *thr) { + duk_debug_write_byte(thr, DUK_DBG_IB_UNDEFINED); +} + +#if defined(DUK_USE_DEBUGGER_INSPECT) +DUK_INTERNAL void duk_debug_write_null(duk_hthread *thr) { + duk_debug_write_byte(thr, DUK_DBG_IB_NULL); +} +#endif + +DUK_INTERNAL void duk_debug_write_boolean(duk_hthread *thr, duk_uint_t val) { + duk_debug_write_byte(thr, val ? DUK_DBG_IB_TRUE : DUK_DBG_IB_FALSE); +} + +/* Write signed 32-bit integer. */ +DUK_INTERNAL void duk_debug_write_int(duk_hthread *thr, duk_int32_t x) { + duk_uint8_t buf[5]; + duk_size_t len; + + DUK_ASSERT(thr != NULL); + + if (x >= 0 && x <= 0x3fL) { + buf[0] = (duk_uint8_t) (0x80 + x); + len = 1; + } else if (x >= 0 && x <= 0x3fffL) { + buf[0] = (duk_uint8_t) (0xc0 + (x >> 8)); + buf[1] = (duk_uint8_t) (x & 0xff); + len = 2; + } else { + /* Signed integers always map to 4 bytes now. */ + buf[0] = (duk_uint8_t) DUK_DBG_IB_INT4; + buf[1] = (duk_uint8_t) ((x >> 24) & 0xff); + buf[2] = (duk_uint8_t) ((x >> 16) & 0xff); + buf[3] = (duk_uint8_t) ((x >> 8) & 0xff); + buf[4] = (duk_uint8_t) (x & 0xff); + len = 5; + } + duk_debug_write_bytes(thr, buf, len); +} + +/* Write unsigned 32-bit integer. */ +DUK_INTERNAL void duk_debug_write_uint(duk_hthread *thr, duk_uint32_t x) { + /* The debugger protocol doesn't support a plain integer encoding for + * the full 32-bit unsigned range (only 32-bit signed). For now, + * unsigned 32-bit values simply written as signed ones. This is not + * a concrete issue except for 32-bit heaphdr fields. Proper solutions + * would be to (a) write such integers as IEEE doubles or (b) add an + * unsigned 32-bit dvalue. + */ + if (x >= 0x80000000UL) { + DUK_D(DUK_DPRINT("writing unsigned integer 0x%08lx as signed integer", + (long) x)); + } + duk_debug_write_int(thr, (duk_int32_t) x); +} + +DUK_INTERNAL void duk_debug_write_strbuf(duk_hthread *thr, const char *data, duk_size_t length, duk_uint8_t marker_base) { + duk_uint8_t buf[5]; + duk_size_t buflen; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(length == 0 || data != NULL); + + if (length <= 0x1fUL && marker_base == DUK_DBG_IB_STR4) { + /* For strings, special form for short lengths. */ + buf[0] = (duk_uint8_t) (0x60 + length); + buflen = 1; + } else if (length <= 0xffffUL) { + buf[0] = (duk_uint8_t) (marker_base + 1); + buf[1] = (duk_uint8_t) (length >> 8); + buf[2] = (duk_uint8_t) (length & 0xff); + buflen = 3; + } else { + buf[0] = (duk_uint8_t) marker_base; + buf[1] = (duk_uint8_t) (length >> 24); + buf[2] = (duk_uint8_t) ((length >> 16) & 0xff); + buf[3] = (duk_uint8_t) ((length >> 8) & 0xff); + buf[4] = (duk_uint8_t) (length & 0xff); + buflen = 5; + } + + duk_debug_write_bytes(thr, (const duk_uint8_t *) buf, buflen); + duk_debug_write_bytes(thr, (const duk_uint8_t *) data, length); +} + +DUK_INTERNAL void duk_debug_write_string(duk_hthread *thr, const char *data, duk_size_t length) { + duk_debug_write_strbuf(thr, data, length, DUK_DBG_IB_STR4); +} + +DUK_INTERNAL void duk_debug_write_cstring(duk_hthread *thr, const char *data) { + DUK_ASSERT(thr != NULL); + + duk_debug_write_string(thr, + data, + data ? DUK_STRLEN(data) : 0); +} + +DUK_INTERNAL void duk_debug_write_hstring(duk_hthread *thr, duk_hstring *h) { + DUK_ASSERT(thr != NULL); + + /* XXX: differentiate null pointer from empty string? */ + duk_debug_write_string(thr, + (h != NULL ? (const char *) DUK_HSTRING_GET_DATA(h) : NULL), + (h != NULL ? (duk_size_t) DUK_HSTRING_GET_BYTELEN(h) : 0)); +} + +DUK_LOCAL void duk__debug_write_hstring_safe_top(duk_hthread *thr) { + duk_debug_write_hstring(thr, duk_safe_to_hstring(thr, -1)); +} + +DUK_INTERNAL void duk_debug_write_buffer(duk_hthread *thr, const char *data, duk_size_t length) { + duk_debug_write_strbuf(thr, data, length, DUK_DBG_IB_BUF4); +} + +DUK_INTERNAL void duk_debug_write_hbuffer(duk_hthread *thr, duk_hbuffer *h) { + DUK_ASSERT(thr != NULL); + + duk_debug_write_buffer(thr, + (h != NULL ? (const char *) DUK_HBUFFER_GET_DATA_PTR(thr->heap, h) : NULL), + (h != NULL ? (duk_size_t) DUK_HBUFFER_GET_SIZE(h) : 0)); +} + +DUK_LOCAL void duk__debug_write_pointer_raw(duk_hthread *thr, void *ptr, duk_uint8_t ibyte) { + duk_uint8_t buf[2]; + duk__ptr_union pu; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(sizeof(ptr) >= 1 && sizeof(ptr) <= 16); + /* ptr may be NULL */ + + buf[0] = ibyte; + buf[1] = sizeof(pu); + duk_debug_write_bytes(thr, buf, 2); + pu.p = (void *) ptr; +#if defined(DUK_USE_INTEGER_LE) + duk_byteswap_bytes((duk_uint8_t *) pu.b, sizeof(pu)); +#endif + duk_debug_write_bytes(thr, (const duk_uint8_t *) &pu.p, (duk_size_t) sizeof(pu)); +} + +DUK_INTERNAL void duk_debug_write_pointer(duk_hthread *thr, void *ptr) { + duk__debug_write_pointer_raw(thr, ptr, DUK_DBG_IB_POINTER); +} + +#if defined(DUK_USE_DEBUGGER_DUMPHEAP) || defined(DUK_USE_DEBUGGER_INSPECT) +DUK_INTERNAL void duk_debug_write_heapptr(duk_hthread *thr, duk_heaphdr *h) { + duk__debug_write_pointer_raw(thr, (void *) h, DUK_DBG_IB_HEAPPTR); +} +#endif /* DUK_USE_DEBUGGER_DUMPHEAP || DUK_USE_DEBUGGER_INSPECT */ + +DUK_INTERNAL void duk_debug_write_hobject(duk_hthread *thr, duk_hobject *obj) { + duk_uint8_t buf[3]; + duk__ptr_union pu; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(sizeof(obj) >= 1 && sizeof(obj) <= 16); + DUK_ASSERT(obj != NULL); + + buf[0] = DUK_DBG_IB_OBJECT; + buf[1] = (duk_uint8_t) DUK_HOBJECT_GET_CLASS_NUMBER(obj); + buf[2] = sizeof(pu); + duk_debug_write_bytes(thr, buf, 3); + pu.p = (void *) obj; +#if defined(DUK_USE_INTEGER_LE) + duk_byteswap_bytes((duk_uint8_t *) pu.b, sizeof(pu)); +#endif + duk_debug_write_bytes(thr, (const duk_uint8_t *) &pu.p, (duk_size_t) sizeof(pu)); +} + +DUK_INTERNAL void duk_debug_write_tval(duk_hthread *thr, duk_tval *tv) { + duk_c_function lf_func; + duk_small_uint_t lf_flags; + duk_uint8_t buf[4]; + duk_double_union du1; + duk_double_union du2; + duk_int32_t i32; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(tv != NULL); + + switch (DUK_TVAL_GET_TAG(tv)) { + case DUK_TAG_UNDEFINED: + duk_debug_write_byte(thr, DUK_DBG_IB_UNDEFINED); + break; + case DUK_TAG_UNUSED: + duk_debug_write_byte(thr, DUK_DBG_IB_UNUSED); + break; + case DUK_TAG_NULL: + duk_debug_write_byte(thr, DUK_DBG_IB_NULL); + break; + case DUK_TAG_BOOLEAN: + DUK_ASSERT(DUK_TVAL_GET_BOOLEAN(tv) == 0 || + DUK_TVAL_GET_BOOLEAN(tv) == 1); + duk_debug_write_boolean(thr, DUK_TVAL_GET_BOOLEAN(tv)); + break; + case DUK_TAG_POINTER: + duk_debug_write_pointer(thr, (void *) DUK_TVAL_GET_POINTER(tv)); + break; + case DUK_TAG_LIGHTFUNC: + DUK_TVAL_GET_LIGHTFUNC(tv, lf_func, lf_flags); + buf[0] = DUK_DBG_IB_LIGHTFUNC; + buf[1] = (duk_uint8_t) (lf_flags >> 8); + buf[2] = (duk_uint8_t) (lf_flags & 0xff); + buf[3] = sizeof(lf_func); + duk_debug_write_bytes(thr, buf, 4); + duk_debug_write_bytes(thr, (const duk_uint8_t *) &lf_func, sizeof(lf_func)); + break; + case DUK_TAG_STRING: + duk_debug_write_hstring(thr, DUK_TVAL_GET_STRING(tv)); + break; + case DUK_TAG_OBJECT: + duk_debug_write_hobject(thr, DUK_TVAL_GET_OBJECT(tv)); + break; + case DUK_TAG_BUFFER: + duk_debug_write_hbuffer(thr, DUK_TVAL_GET_BUFFER(tv)); + break; +#if defined(DUK_USE_FASTINT) + case DUK_TAG_FASTINT: +#endif + default: + /* Numbers are normalized to big (network) endian. We can + * (but are not required) to use integer dvalues when there's + * no loss of precision. + * + * XXX: share check with other code; this check is slow but + * reliable and doesn't require careful exponent/mantissa + * mask tricks as in the fastint downgrade code. + */ + DUK_ASSERT(!DUK_TVAL_IS_UNUSED(tv)); + DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv)); + du1.d = DUK_TVAL_GET_NUMBER(tv); + i32 = (duk_int32_t) du1.d; + du2.d = (duk_double_t) i32; + + DUK_DD(DUK_DDPRINT("i32=%ld du1=%02x%02x%02x%02x%02x%02x%02x%02x " + "du2=%02x%02x%02x%02x%02x%02x%02x%02x", + (long) i32, + (unsigned int) du1.uc[0], (unsigned int) du1.uc[1], + (unsigned int) du1.uc[2], (unsigned int) du1.uc[3], + (unsigned int) du1.uc[4], (unsigned int) du1.uc[5], + (unsigned int) du1.uc[6], (unsigned int) du1.uc[7], + (unsigned int) du2.uc[0], (unsigned int) du2.uc[1], + (unsigned int) du2.uc[2], (unsigned int) du2.uc[3], + (unsigned int) du2.uc[4], (unsigned int) du2.uc[5], + (unsigned int) du2.uc[6], (unsigned int) du2.uc[7])); + + if (duk_memcmp((const void *) du1.uc, (const void *) du2.uc, sizeof(du1.uc)) == 0) { + duk_debug_write_int(thr, i32); + } else { + DUK_DBLUNION_DOUBLE_HTON(&du1); + duk_debug_write_byte(thr, DUK_DBG_IB_NUMBER); + duk_debug_write_bytes(thr, (const duk_uint8_t *) du1.uc, sizeof(du1.uc)); + } + } +} + +#if defined(DUK_USE_DEBUGGER_DUMPHEAP) +/* Variant for writing duk_tvals so that any heap allocated values are + * written out as tagged heap pointers. + */ +DUK_LOCAL void duk__debug_write_tval_heapptr(duk_hthread *thr, duk_tval *tv) { + if (DUK_TVAL_IS_HEAP_ALLOCATED(tv)) { + duk_heaphdr *h = DUK_TVAL_GET_HEAPHDR(tv); + duk_debug_write_heapptr(thr, h); + } else { + duk_debug_write_tval(thr, tv); + } +} +#endif /* DUK_USE_DEBUGGER_DUMPHEAP */ + +/* + * Debug connection message write helpers + */ + +#if 0 /* unused */ +DUK_INTERNAL void duk_debug_write_request(duk_hthread *thr, duk_small_uint_t command) { + duk_debug_write_byte(thr, DUK_DBG_IB_REQUEST); + duk_debug_write_int(thr, command); +} +#endif + +DUK_INTERNAL void duk_debug_write_reply(duk_hthread *thr) { + duk_debug_write_byte(thr, DUK_DBG_IB_REPLY); +} + +DUK_INTERNAL void duk_debug_write_error_eom(duk_hthread *thr, duk_small_uint_t err_code, const char *msg) { + /* Allow NULL 'msg' */ + duk_debug_write_byte(thr, DUK_DBG_IB_ERROR); + duk_debug_write_int(thr, (duk_int32_t) err_code); + duk_debug_write_cstring(thr, msg); + duk_debug_write_eom(thr); +} + +DUK_INTERNAL void duk_debug_write_notify(duk_hthread *thr, duk_small_uint_t command) { + duk_debug_write_byte(thr, DUK_DBG_IB_NOTIFY); + duk_debug_write_int(thr, (duk_int32_t) command); +} + +DUK_INTERNAL void duk_debug_write_eom(duk_hthread *thr) { + duk_debug_write_byte(thr, DUK_DBG_IB_EOM); + + /* As an initial implementation, write flush after every EOM (and the + * version identifier). A better implementation would flush only when + * Duktape is finished processing messages so that a flush only happens + * after all outbound messages are finished on that occasion. + */ + duk_debug_write_flush(thr); +} + +/* + * Status message and helpers + */ + +DUK_INTERNAL duk_uint_fast32_t duk_debug_curr_line(duk_hthread *thr) { + duk_activation *act; + duk_uint_fast32_t line; + duk_uint_fast32_t pc; + + act = thr->callstack_curr; + if (act == NULL) { + return 0; + } + + /* We're conceptually between two opcodes; act->pc indicates the next + * instruction to be executed. This is usually the correct pc/line to + * indicate in Status. (For the 'debugger' statement this now reports + * the pc/line after the debugger statement because the debugger opcode + * has already been executed.) + */ + + pc = duk_hthread_get_act_curr_pc(thr, act); + + /* XXX: this should be optimized to be a raw query and avoid valstack + * operations if possible. + */ + duk_push_tval(thr, &act->tv_func); + line = duk_hobject_pc2line_query(thr, -1, pc); + duk_pop(thr); + return line; +} + +DUK_INTERNAL void duk_debug_send_status(duk_hthread *thr) { + duk_activation *act; + + duk_debug_write_notify(thr, DUK_DBG_CMD_STATUS); + duk_debug_write_int(thr, (DUK_HEAP_HAS_DEBUGGER_PAUSED(thr->heap) ? 1 : 0)); + + act = thr->callstack_curr; + if (act == NULL) { + duk_debug_write_undefined(thr); + duk_debug_write_undefined(thr); + duk_debug_write_int(thr, 0); + duk_debug_write_int(thr, 0); + } else { + duk_push_tval(thr, &act->tv_func); + duk_get_prop_literal(thr, -1, "fileName"); + duk__debug_write_hstring_safe_top(thr); + duk_get_prop_literal(thr, -2, "name"); + duk__debug_write_hstring_safe_top(thr); + duk_pop_3(thr); + /* Report next pc/line to be executed. */ + duk_debug_write_uint(thr, (duk_uint32_t) duk_debug_curr_line(thr)); + duk_debug_write_uint(thr, (duk_uint32_t) duk_hthread_get_act_curr_pc(thr, act)); + } + + duk_debug_write_eom(thr); +} + +#if defined(DUK_USE_DEBUGGER_THROW_NOTIFY) +DUK_INTERNAL void duk_debug_send_throw(duk_hthread *thr, duk_bool_t fatal) { + /* + * NFY EOM + */ + + duk_activation *act; + duk_uint32_t pc; + + DUK_ASSERT(thr->valstack_top > thr->valstack); /* At least: ... [err] */ + + duk_debug_write_notify(thr, DUK_DBG_CMD_THROW); + duk_debug_write_int(thr, (duk_int32_t) fatal); + + /* Report thrown value to client coerced to string */ + duk_dup_top(thr); + duk__debug_write_hstring_safe_top(thr); + duk_pop(thr); + + if (duk_is_error(thr, -1)) { + /* Error instance, use augmented error data directly */ + duk_get_prop_stridx_short(thr, -1, DUK_STRIDX_FILE_NAME); + duk__debug_write_hstring_safe_top(thr); + duk_get_prop_stridx_short(thr, -2, DUK_STRIDX_LINE_NUMBER); + duk_debug_write_uint(thr, duk_get_uint(thr, -1)); + duk_pop_2(thr); + } else { + /* For anything other than an Error instance, we calculate the + * error location directly from the current activation if one + * exists. + */ + act = thr->callstack_curr; + if (act != NULL) { + duk_push_tval(thr, &act->tv_func); + duk_get_prop_literal(thr, -1, "fileName"); + duk__debug_write_hstring_safe_top(thr); + pc = (duk_uint32_t) duk_hthread_get_act_prev_pc(thr, act); + duk_debug_write_uint(thr, (duk_uint32_t) duk_hobject_pc2line_query(thr, -2, pc)); + duk_pop_2(thr); + } else { + /* Can happen if duk_throw() is called on an empty + * callstack. + */ + duk_debug_write_cstring(thr, ""); + duk_debug_write_uint(thr, 0); + } + } + + duk_debug_write_eom(thr); +} +#endif /* DUK_USE_DEBUGGER_THROW_NOTIFY */ + +/* + * Debug message processing + */ + +/* Skip dvalue. */ +DUK_LOCAL duk_bool_t duk__debug_skip_dvalue(duk_hthread *thr) { + duk_uint8_t x; + duk_uint32_t len; + + x = duk_debug_read_byte(thr); + + if (x >= 0xc0) { + duk_debug_skip_byte(thr); + return 0; + } + if (x >= 0x80) { + return 0; + } + if (x >= 0x60) { + duk_debug_skip_bytes(thr, (duk_size_t) (x - 0x60)); + return 0; + } + switch(x) { + case DUK_DBG_IB_EOM: + return 1; /* Return 1: got EOM */ + case DUK_DBG_IB_REQUEST: + case DUK_DBG_IB_REPLY: + case DUK_DBG_IB_ERROR: + case DUK_DBG_IB_NOTIFY: + break; + case DUK_DBG_IB_INT4: + (void) duk__debug_read_uint32_raw(thr); + break; + case DUK_DBG_IB_STR4: + case DUK_DBG_IB_BUF4: + len = duk__debug_read_uint32_raw(thr); + duk_debug_skip_bytes(thr, len); + break; + case DUK_DBG_IB_STR2: + case DUK_DBG_IB_BUF2: + len = duk__debug_read_uint16_raw(thr); + duk_debug_skip_bytes(thr, len); + break; + case DUK_DBG_IB_UNUSED: + case DUK_DBG_IB_UNDEFINED: + case DUK_DBG_IB_NULL: + case DUK_DBG_IB_TRUE: + case DUK_DBG_IB_FALSE: + break; + case DUK_DBG_IB_NUMBER: + duk_debug_skip_bytes(thr, 8); + break; + case DUK_DBG_IB_OBJECT: + duk_debug_skip_byte(thr); + len = duk_debug_read_byte(thr); + duk_debug_skip_bytes(thr, len); + break; + case DUK_DBG_IB_POINTER: + case DUK_DBG_IB_HEAPPTR: + len = duk_debug_read_byte(thr); + duk_debug_skip_bytes(thr, len); + break; + case DUK_DBG_IB_LIGHTFUNC: + duk_debug_skip_bytes(thr, 2); + len = duk_debug_read_byte(thr); + duk_debug_skip_bytes(thr, len); + break; + default: + goto fail; + } + + return 0; + + fail: + DUK__SET_CONN_BROKEN(thr, 1); + return 1; /* Pretend like we got EOM */ +} + +/* Skip dvalues to EOM. */ +DUK_LOCAL void duk__debug_skip_to_eom(duk_hthread *thr) { + for (;;) { + if (duk__debug_skip_dvalue(thr)) { + break; + } + } +} + +/* Read and validate a call stack index. If index is invalid, write out an + * error message and return zero. + */ +DUK_LOCAL duk_int32_t duk__debug_read_validate_csindex(duk_hthread *thr) { + duk_int32_t level; + level = duk_debug_read_int(thr); + if (level >= 0 || -level > (duk_int32_t) thr->callstack_top) { + duk_debug_write_error_eom(thr, DUK_DBG_ERR_NOTFOUND, "invalid callstack index"); + return 0; /* zero indicates failure */ + } + return level; +} + +/* Read a call stack index and lookup the corresponding duk_activation. + * If index is invalid, write out an error message and return NULL. + */ +DUK_LOCAL duk_activation *duk__debug_read_level_get_activation(duk_hthread *thr) { + duk_activation *act; + duk_int32_t level; + + level = duk_debug_read_int(thr); + act = duk_hthread_get_activation_for_level(thr, level); + if (act == NULL) { + duk_debug_write_error_eom(thr, DUK_DBG_ERR_NOTFOUND, "invalid callstack index"); + } + return act; +} + +/* + * Simple commands + */ + +DUK_LOCAL void duk__debug_handle_basic_info(duk_hthread *thr, duk_heap *heap) { + DUK_UNREF(heap); + DUK_D(DUK_DPRINT("debug command Version")); + + duk_debug_write_reply(thr); + duk_debug_write_int(thr, DUK_VERSION); + duk_debug_write_cstring(thr, DUK_GIT_DESCRIBE); + duk_debug_write_cstring(thr, DUK_USE_TARGET_INFO); +#if defined(DUK_USE_DOUBLE_LE) + duk_debug_write_int(thr, 1); +#elif defined(DUK_USE_DOUBLE_ME) + duk_debug_write_int(thr, 2); +#elif defined(DUK_USE_DOUBLE_BE) + duk_debug_write_int(thr, 3); +#else + duk_debug_write_int(thr, 0); +#endif + duk_debug_write_int(thr, (duk_int_t) sizeof(void *)); + duk_debug_write_eom(thr); +} + +DUK_LOCAL void duk__debug_handle_trigger_status(duk_hthread *thr, duk_heap *heap) { + DUK_UNREF(heap); + DUK_D(DUK_DPRINT("debug command TriggerStatus")); + + duk_debug_write_reply(thr); + duk_debug_write_eom(thr); + heap->dbg_state_dirty = 1; +} + +DUK_LOCAL void duk__debug_handle_pause(duk_hthread *thr, duk_heap *heap) { + DUK_D(DUK_DPRINT("debug command Pause")); + duk_debug_set_paused(heap); + duk_debug_write_reply(thr); + duk_debug_write_eom(thr); +} + +DUK_LOCAL void duk__debug_handle_resume(duk_hthread *thr, duk_heap *heap) { + duk_small_uint_t pause_flags; + + DUK_D(DUK_DPRINT("debug command Resume")); + + duk_debug_clear_paused(heap); + + pause_flags = 0; +#if 0 /* manual testing */ + pause_flags |= DUK_PAUSE_FLAG_ONE_OPCODE; + pause_flags |= DUK_PAUSE_FLAG_CAUGHT_ERROR; + pause_flags |= DUK_PAUSE_FLAG_UNCAUGHT_ERROR; +#endif +#if defined(DUK_USE_DEBUGGER_PAUSE_UNCAUGHT) + pause_flags |= DUK_PAUSE_FLAG_UNCAUGHT_ERROR; +#endif + + duk__debug_set_pause_state(thr, heap, pause_flags); + + duk_debug_write_reply(thr); + duk_debug_write_eom(thr); +} + +DUK_LOCAL void duk__debug_handle_step(duk_hthread *thr, duk_heap *heap, duk_int32_t cmd) { + duk_small_uint_t pause_flags; + + DUK_D(DUK_DPRINT("debug command StepInto/StepOver/StepOut: %d", (int) cmd)); + + if (cmd == DUK_DBG_CMD_STEPINTO) { + pause_flags = DUK_PAUSE_FLAG_LINE_CHANGE | + DUK_PAUSE_FLAG_FUNC_ENTRY | + DUK_PAUSE_FLAG_FUNC_EXIT; + } else if (cmd == DUK_DBG_CMD_STEPOVER) { + pause_flags = DUK_PAUSE_FLAG_LINE_CHANGE | + DUK_PAUSE_FLAG_FUNC_EXIT; + } else { + DUK_ASSERT(cmd == DUK_DBG_CMD_STEPOUT); + pause_flags = DUK_PAUSE_FLAG_FUNC_EXIT; + } +#if defined(DUK_USE_DEBUGGER_PAUSE_UNCAUGHT) + pause_flags |= DUK_PAUSE_FLAG_UNCAUGHT_ERROR; +#endif + + /* If current activation doesn't have line information, line-based + * pause flags are automatically disabled. As a result, e.g. + * StepInto will then pause on (native) function entry or exit. + */ + duk_debug_clear_paused(heap); + duk__debug_set_pause_state(thr, heap, pause_flags); + + duk_debug_write_reply(thr); + duk_debug_write_eom(thr); +} + +DUK_LOCAL void duk__debug_handle_list_break(duk_hthread *thr, duk_heap *heap) { + duk_small_int_t i; + + DUK_D(DUK_DPRINT("debug command ListBreak")); + duk_debug_write_reply(thr); + for (i = 0; i < (duk_small_int_t) heap->dbg_breakpoint_count; i++) { + duk_debug_write_hstring(thr, heap->dbg_breakpoints[i].filename); + duk_debug_write_uint(thr, (duk_uint32_t) heap->dbg_breakpoints[i].line); + } + duk_debug_write_eom(thr); +} + +DUK_LOCAL void duk__debug_handle_add_break(duk_hthread *thr, duk_heap *heap) { + duk_hstring *filename; + duk_uint32_t linenumber; + duk_small_int_t idx; + + DUK_UNREF(heap); + + filename = duk_debug_read_hstring(thr); + linenumber = (duk_uint32_t) duk_debug_read_int(thr); + DUK_D(DUK_DPRINT("debug command AddBreak: %!O:%ld", (duk_hobject *) filename, (long) linenumber)); + idx = duk_debug_add_breakpoint(thr, filename, linenumber); + if (idx >= 0) { + duk_debug_write_reply(thr); + duk_debug_write_int(thr, (duk_int32_t) idx); + duk_debug_write_eom(thr); + } else { + duk_debug_write_error_eom(thr, DUK_DBG_ERR_TOOMANY, "no space for breakpoint"); + } +} + +DUK_LOCAL void duk__debug_handle_del_break(duk_hthread *thr, duk_heap *heap) { + duk_small_uint_t idx; + + DUK_UNREF(heap); + + DUK_D(DUK_DPRINT("debug command DelBreak")); + idx = (duk_small_uint_t) duk_debug_read_int(thr); + if (duk_debug_remove_breakpoint(thr, idx)) { + duk_debug_write_reply(thr); + duk_debug_write_eom(thr); + } else { + duk_debug_write_error_eom(thr, DUK_DBG_ERR_NOTFOUND, "invalid breakpoint index"); + } +} + +DUK_LOCAL void duk__debug_handle_get_var(duk_hthread *thr, duk_heap *heap) { + duk_activation *act; + duk_hstring *str; + duk_bool_t rc; + + DUK_UNREF(heap); + DUK_D(DUK_DPRINT("debug command GetVar")); + + act = duk__debug_read_level_get_activation(thr); + if (act == NULL) { + return; + } + str = duk_debug_read_hstring(thr); /* push to stack */ + DUK_ASSERT(str != NULL); + + rc = duk_js_getvar_activation(thr, act, str, 0); + + duk_debug_write_reply(thr); + if (rc) { + duk_debug_write_int(thr, 1); + DUK_ASSERT(duk_get_tval(thr, -2) != NULL); + duk_debug_write_tval(thr, duk_get_tval(thr, -2)); + } else { + duk_debug_write_int(thr, 0); + duk_debug_write_unused(thr); + } + duk_debug_write_eom(thr); +} + +DUK_LOCAL void duk__debug_handle_put_var(duk_hthread *thr, duk_heap *heap) { + duk_activation *act; + duk_hstring *str; + duk_tval *tv; + + DUK_UNREF(heap); + DUK_D(DUK_DPRINT("debug command PutVar")); + + act = duk__debug_read_level_get_activation(thr); + if (act == NULL) { + return; + } + str = duk_debug_read_hstring(thr); /* push to stack */ + DUK_ASSERT(str != NULL); + tv = duk_debug_read_tval(thr); + if (tv == NULL) { + /* detached */ + return; + } + + duk_js_putvar_activation(thr, act, str, tv, 0); + + /* XXX: Current putvar implementation doesn't have a success flag, + * add one and send to debug client? + */ + duk_debug_write_reply(thr); + duk_debug_write_eom(thr); +} + +DUK_LOCAL void duk__debug_handle_get_call_stack(duk_hthread *thr, duk_heap *heap) { + duk_hthread *curr_thr = thr; + duk_activation *curr_act; + duk_uint_fast32_t pc; + duk_uint_fast32_t line; + + DUK_ASSERT(thr != NULL); + DUK_UNREF(heap); + + duk_debug_write_reply(thr); + while (curr_thr != NULL) { + for (curr_act = curr_thr->callstack_curr; curr_act != NULL; curr_act = curr_act->parent) { + /* PC/line semantics here are: + * - For callstack top we're conceptually between two + * opcodes and current PC indicates next line to + * execute, so report that (matches Status). + * - For other activations we're conceptually still + * executing the instruction at PC-1, so report that + * (matches error stacktrace behavior). + * - See: https://github.com/svaarala/duktape/issues/281 + */ + + /* XXX: optimize to use direct reads, i.e. avoid + * value stack operations. + */ + duk_push_tval(thr, &curr_act->tv_func); + duk_get_prop_stridx_short(thr, -1, DUK_STRIDX_FILE_NAME); + duk__debug_write_hstring_safe_top(thr); + duk_get_prop_stridx_short(thr, -2, DUK_STRIDX_NAME); + duk__debug_write_hstring_safe_top(thr); + pc = duk_hthread_get_act_curr_pc(thr, curr_act); + if (curr_act != curr_thr->callstack_curr && pc > 0) { + pc--; + } + line = duk_hobject_pc2line_query(thr, -3, pc); + duk_debug_write_uint(thr, (duk_uint32_t) line); + duk_debug_write_uint(thr, (duk_uint32_t) pc); + duk_pop_3(thr); + } + curr_thr = curr_thr->resumer; + } + /* SCANBUILD: warning about 'thr' potentially being NULL here, + * warning is incorrect because thr != NULL always here. + */ + duk_debug_write_eom(thr); +} + +DUK_LOCAL void duk__debug_handle_get_locals(duk_hthread *thr, duk_heap *heap) { + duk_activation *act; + duk_hstring *varname; + + DUK_UNREF(heap); + + act = duk__debug_read_level_get_activation(thr); + if (act == NULL) { + return; + } + + duk_debug_write_reply(thr); + + /* XXX: several nice-to-have improvements here: + * - Use direct reads avoiding value stack operations + * - Avoid triggering getters, indicate getter values to debug client + * - If side effects are possible, add error catching + */ + + if (DUK_TVAL_IS_OBJECT(&act->tv_func)) { + duk_hobject *h_func = DUK_TVAL_GET_OBJECT(&act->tv_func); + duk_hobject *h_varmap; + + h_varmap = duk_hobject_get_varmap(thr, h_func); + if (h_varmap != NULL) { + duk_push_hobject(thr, h_varmap); + duk_enum(thr, -1, 0 /*enum_flags*/); + while (duk_next(thr, -1 /*enum_index*/, 0 /*get_value*/)) { + varname = duk_known_hstring(thr, -1); + + duk_js_getvar_activation(thr, act, varname, 0 /*throw_flag*/); + /* [ ... func varmap enum key value this ] */ + duk_debug_write_hstring(thr, duk_get_hstring(thr, -3)); + duk_debug_write_tval(thr, duk_get_tval(thr, -2)); + duk_pop_3(thr); /* -> [ ... func varmap enum ] */ + } + } else { + DUK_D(DUK_DPRINT("varmap missing in GetLocals, ignore")); + } + } else { + DUK_D(DUK_DPRINT("varmap is not an object in GetLocals, ignore")); + } + + duk_debug_write_eom(thr); +} + +DUK_LOCAL void duk__debug_handle_eval(duk_hthread *thr, duk_heap *heap) { + duk_small_uint_t call_flags; + duk_int_t call_ret; + duk_small_int_t eval_err; + duk_bool_t direct_eval; + duk_int32_t level; + duk_idx_t idx_func; + + DUK_UNREF(heap); + + DUK_D(DUK_DPRINT("debug command Eval")); + + /* The eval code is executed within the lexical environment of a specified + * activation. For now, use global object eval() function, with the eval + * considered a 'direct call to eval'. + * + * Callstack index for debug commands only affects scope -- the callstack + * as seen by, e.g. Duktape.act() will be the same regardless. + */ + + /* nargs == 2 so we can pass a callstack index to eval(). */ + idx_func = duk_get_top(thr); + duk_push_c_function(thr, duk_bi_global_object_eval, 2 /*nargs*/); + duk_push_undefined(thr); /* 'this' binding shouldn't matter here */ + + /* Read callstack index, if non-null. */ + if (duk_debug_peek_byte(thr) == DUK_DBG_IB_NULL) { + direct_eval = 0; + level = -1; /* Not needed, but silences warning. */ + (void) duk_debug_read_byte(thr); + } else { + direct_eval = 1; + level = duk__debug_read_validate_csindex(thr); + if (level == 0) { + return; + } + } + + DUK_ASSERT(!direct_eval || + (level < 0 && -level <= (duk_int32_t) thr->callstack_top)); + + (void) duk_debug_read_hstring(thr); + if (direct_eval) { + duk_push_int(thr, level - 1); /* compensate for eval() call */ + } + + /* [ ... eval "eval" eval_input level? ] */ + + call_flags = 0; + if (direct_eval) { + duk_activation *act; + duk_hobject *fun; + + act = duk_hthread_get_activation_for_level(thr, level); + if (act != NULL) { + fun = DUK_ACT_GET_FUNC(act); + if (fun != NULL && DUK_HOBJECT_IS_COMPFUNC(fun)) { + /* Direct eval requires that there's a current + * activation and it is an ECMAScript function. + * When Eval is executed from e.g. cooperate API + * call we'll need to do an indirect eval instead. + */ + call_flags |= DUK_CALL_FLAG_DIRECT_EVAL; + } + } + } + + call_ret = duk_pcall_method_flags(thr, duk_get_top(thr) - (idx_func + 2), call_flags); + + if (call_ret == DUK_EXEC_SUCCESS) { + eval_err = 0; + /* Use result value as is. */ + } else { + /* For errors a string coerced result is most informative + * right now, as the debug client doesn't have the capability + * to traverse the error object. + */ + eval_err = 1; + duk_safe_to_string(thr, -1); + } + + /* [ ... result ] */ + + duk_debug_write_reply(thr); + duk_debug_write_int(thr, (duk_int32_t) eval_err); + DUK_ASSERT(duk_get_tval(thr, -1) != NULL); + duk_debug_write_tval(thr, duk_get_tval(thr, -1)); + duk_debug_write_eom(thr); +} + +DUK_LOCAL void duk__debug_handle_detach(duk_hthread *thr, duk_heap *heap) { + DUK_UNREF(heap); + DUK_D(DUK_DPRINT("debug command Detach")); + + duk_debug_write_reply(thr); + duk_debug_write_eom(thr); + + DUK_D(DUK_DPRINT("debug connection detached, mark broken")); + DUK__SET_CONN_BROKEN(thr, 0); /* not an error */ +} + +DUK_LOCAL void duk__debug_handle_apprequest(duk_hthread *thr, duk_heap *heap) { + duk_idx_t old_top; + + DUK_D(DUK_DPRINT("debug command AppRequest")); + + old_top = duk_get_top(thr); /* save stack top */ + + if (heap->dbg_request_cb != NULL) { + duk_idx_t nrets; + duk_idx_t nvalues = 0; + duk_idx_t top, idx; + + /* Read tvals from the message and push them onto the valstack, + * then call the request callback to process the request. + */ + while (duk_debug_peek_byte(thr) != DUK_DBG_IB_EOM) { + duk_tval *tv; + if (!duk_check_stack(thr, 1)) { + DUK_D(DUK_DPRINT("failed to allocate space for request dvalue(s)")); + goto fail; + } + tv = duk_debug_read_tval(thr); /* push to stack */ + if (tv == NULL) { + /* detached */ + return; + } + nvalues++; + } + DUK_ASSERT(duk_get_top(thr) == old_top + nvalues); + + /* Request callback should push values for reply to client onto valstack */ + DUK_D(DUK_DPRINT("calling into AppRequest request_cb with nvalues=%ld, old_top=%ld, top=%ld", + (long) nvalues, (long) old_top, (long) duk_get_top(thr))); + nrets = heap->dbg_request_cb(thr, heap->dbg_udata, nvalues); + DUK_D(DUK_DPRINT("returned from AppRequest request_cb; nvalues=%ld -> nrets=%ld, old_top=%ld, top=%ld", + (long) nvalues, (long) nrets, (long) old_top, (long) duk_get_top(thr))); + if (nrets >= 0) { + DUK_ASSERT(duk_get_top(thr) >= old_top + nrets); + if (duk_get_top(thr) < old_top + nrets) { + DUK_D(DUK_DPRINT("AppRequest callback doesn't match value stack configuration, " + "top=%ld < old_top=%ld + nrets=%ld; " + "this might mean it's unsafe to continue!", + (long) duk_get_top(thr), (long) old_top, (long) nrets)); + goto fail; + } + + /* Reply with tvals pushed by request callback */ + duk_debug_write_byte(thr, DUK_DBG_IB_REPLY); + top = duk_get_top(thr); + for (idx = top - nrets; idx < top; idx++) { + duk_debug_write_tval(thr, DUK_GET_TVAL_POSIDX(thr, idx)); + } + duk_debug_write_eom(thr); + } else { + DUK_ASSERT(duk_get_top(thr) >= old_top + 1); + if (duk_get_top(thr) < old_top + 1) { + DUK_D(DUK_DPRINT("request callback return value doesn't match value stack configuration")); + goto fail; + } + duk_debug_write_error_eom(thr, DUK_DBG_ERR_APPLICATION, duk_get_string(thr, -1)); + } + + duk_set_top(thr, old_top); /* restore stack top */ + } else { + DUK_D(DUK_DPRINT("no request callback, treat AppRequest as unsupported")); + duk_debug_write_error_eom(thr, DUK_DBG_ERR_UNSUPPORTED, "AppRequest unsupported by target"); + } + + return; + + fail: + duk_set_top(thr, old_top); /* restore stack top */ + DUK__SET_CONN_BROKEN(thr, 1); +} + +/* + * DumpHeap command + */ + +#if defined(DUK_USE_DEBUGGER_DUMPHEAP) +/* XXX: this has some overlap with object inspection; remove this and make + * DumpHeap return lists of heapptrs instead? + */ +DUK_LOCAL void duk__debug_dump_heaphdr(duk_hthread *thr, duk_heap *heap, duk_heaphdr *hdr) { + DUK_UNREF(heap); + + duk_debug_write_heapptr(thr, hdr); + duk_debug_write_uint(thr, (duk_uint32_t) DUK_HEAPHDR_GET_TYPE(hdr)); + duk_debug_write_uint(thr, (duk_uint32_t) DUK_HEAPHDR_GET_FLAGS_RAW(hdr)); +#if defined(DUK_USE_REFERENCE_COUNTING) + duk_debug_write_uint(thr, (duk_uint32_t) DUK_HEAPHDR_GET_REFCOUNT(hdr)); +#else + duk_debug_write_int(thr, (duk_int32_t) -1); +#endif + + switch (DUK_HEAPHDR_GET_TYPE(hdr)) { + case DUK_HTYPE_STRING: { + duk_hstring *h = (duk_hstring *) hdr; + + duk_debug_write_uint(thr, (duk_uint32_t) DUK_HSTRING_GET_BYTELEN(h)); + duk_debug_write_uint(thr, (duk_uint32_t) DUK_HSTRING_GET_CHARLEN(h)); + duk_debug_write_uint(thr, (duk_uint32_t) DUK_HSTRING_GET_HASH(h)); + duk_debug_write_hstring(thr, h); + break; + } + case DUK_HTYPE_OBJECT: { + duk_hobject *h = (duk_hobject *) hdr; + duk_hstring *k; + duk_uint_fast32_t i; + + duk_debug_write_uint(thr, (duk_uint32_t) DUK_HOBJECT_GET_CLASS_NUMBER(h)); + duk_debug_write_heapptr(thr, (duk_heaphdr *) DUK_HOBJECT_GET_PROTOTYPE(heap, h)); + duk_debug_write_uint(thr, (duk_uint32_t) DUK_HOBJECT_GET_ESIZE(h)); + duk_debug_write_uint(thr, (duk_uint32_t) DUK_HOBJECT_GET_ENEXT(h)); + duk_debug_write_uint(thr, (duk_uint32_t) DUK_HOBJECT_GET_ASIZE(h)); + duk_debug_write_uint(thr, (duk_uint32_t) DUK_HOBJECT_GET_HSIZE(h)); + + for (i = 0; i < (duk_uint_fast32_t) DUK_HOBJECT_GET_ENEXT(h); i++) { + duk_debug_write_uint(thr, (duk_uint32_t) DUK_HOBJECT_E_GET_FLAGS(heap, h, i)); + k = DUK_HOBJECT_E_GET_KEY(heap, h, i); + duk_debug_write_heapptr(thr, (duk_heaphdr *) k); + if (k == NULL) { + duk_debug_write_int(thr, 0); /* isAccessor */ + duk_debug_write_unused(thr); + continue; + } + if (DUK_HOBJECT_E_SLOT_IS_ACCESSOR(heap, h, i)) { + duk_debug_write_int(thr, 1); /* isAccessor */ + duk_debug_write_heapptr(thr, (duk_heaphdr *) DUK_HOBJECT_E_GET_VALUE_PTR(heap, h, i)->a.get); + duk_debug_write_heapptr(thr, (duk_heaphdr *) DUK_HOBJECT_E_GET_VALUE_PTR(heap, h, i)->a.set); + } else { + duk_debug_write_int(thr, 0); /* isAccessor */ + + duk__debug_write_tval_heapptr(thr, &DUK_HOBJECT_E_GET_VALUE_PTR(heap, h, i)->v); + } + } + + for (i = 0; i < (duk_uint_fast32_t) DUK_HOBJECT_GET_ASIZE(h); i++) { + /* Note: array dump will include elements beyond + * 'length'. + */ + duk__debug_write_tval_heapptr(thr, DUK_HOBJECT_A_GET_VALUE_PTR(heap, h, i)); + } + break; + } + case DUK_HTYPE_BUFFER: { + duk_hbuffer *h = (duk_hbuffer *) hdr; + + duk_debug_write_uint(thr, (duk_uint32_t) DUK_HBUFFER_GET_SIZE(h)); + duk_debug_write_buffer(thr, (const char *) DUK_HBUFFER_GET_DATA_PTR(heap, h), (duk_size_t) DUK_HBUFFER_GET_SIZE(h)); + break; + } + default: { + DUK_D(DUK_DPRINT("invalid htype: %d", (int) DUK_HEAPHDR_GET_TYPE(hdr))); + } + } +} + +DUK_LOCAL void duk__debug_dump_heap_allocated(duk_hthread *thr, duk_heap *heap) { + duk_heaphdr *hdr; + + hdr = heap->heap_allocated; + while (hdr != NULL) { + duk__debug_dump_heaphdr(thr, heap, hdr); + hdr = DUK_HEAPHDR_GET_NEXT(heap, hdr); + } +} + +DUK_LOCAL void duk__debug_dump_strtab(duk_hthread *thr, duk_heap *heap) { + duk_uint32_t i; + duk_hstring *h; + + for (i = 0; i < heap->st_size; i++) { +#if defined(DUK_USE_STRTAB_PTRCOMP) + h = DUK_USE_HEAPPTR_DEC16((heap)->heap_udata, heap->strtable16[i]); +#else + h = heap->strtable[i]; +#endif + while (h != NULL) { + duk__debug_dump_heaphdr(thr, heap, (duk_heaphdr *) h); + h = h->hdr.h_next; + } + } +} + +DUK_LOCAL void duk__debug_handle_dump_heap(duk_hthread *thr, duk_heap *heap) { + DUK_D(DUK_DPRINT("debug command DumpHeap")); + + duk_debug_write_reply(thr); + duk__debug_dump_heap_allocated(thr, heap); + duk__debug_dump_strtab(thr, heap); + duk_debug_write_eom(thr); +} +#endif /* DUK_USE_DEBUGGER_DUMPHEAP */ + +DUK_LOCAL void duk__debug_handle_get_bytecode(duk_hthread *thr, duk_heap *heap) { + duk_activation *act; + duk_hcompfunc *fun = NULL; + duk_size_t i, n; + duk_tval *tv; + duk_hobject **fn; + duk_int32_t level = -1; + duk_uint8_t ibyte; + + DUK_UNREF(heap); + + DUK_D(DUK_DPRINT("debug command GetBytecode")); + + ibyte = duk_debug_peek_byte(thr); + if (ibyte != DUK_DBG_IB_EOM) { + tv = duk_debug_read_tval(thr); + if (tv == NULL) { + /* detached */ + return; + } + if (DUK_TVAL_IS_OBJECT(tv)) { + /* tentative, checked later */ + fun = (duk_hcompfunc *) DUK_TVAL_GET_OBJECT(tv); + DUK_ASSERT(fun != NULL); + } else if (DUK_TVAL_IS_NUMBER(tv)) { + level = (duk_int32_t) DUK_TVAL_GET_NUMBER(tv); + } else { + DUK_D(DUK_DPRINT("invalid argument to GetBytecode: %!T", tv)); + goto fail_args; + } + } + + if (fun == NULL) { + act = duk_hthread_get_activation_for_level(thr, level); + if (act == NULL) { + goto fail_index; + } + fun = (duk_hcompfunc *) DUK_ACT_GET_FUNC(act); + } + + if (fun == NULL || !DUK_HOBJECT_IS_COMPFUNC((duk_hobject *) fun)) { + DUK_D(DUK_DPRINT("invalid argument to GetBytecode: %!O", fun)); + goto fail_args; + } + DUK_ASSERT(fun != NULL && DUK_HOBJECT_IS_COMPFUNC((duk_hobject *) fun)); + + duk_debug_write_reply(thr); + n = DUK_HCOMPFUNC_GET_CONSTS_COUNT(heap, fun); + duk_debug_write_int(thr, (duk_int32_t) n); + tv = DUK_HCOMPFUNC_GET_CONSTS_BASE(heap, fun); + for (i = 0; i < n; i++) { + duk_debug_write_tval(thr, tv); + tv++; + } + n = DUK_HCOMPFUNC_GET_FUNCS_COUNT(heap, fun); + duk_debug_write_int(thr, (duk_int32_t) n); + fn = DUK_HCOMPFUNC_GET_FUNCS_BASE(heap, fun); + for (i = 0; i < n; i++) { + duk_debug_write_hobject(thr, *fn); + fn++; + } + duk_debug_write_string(thr, + (const char *) DUK_HCOMPFUNC_GET_CODE_BASE(heap, fun), + (duk_size_t) DUK_HCOMPFUNC_GET_CODE_SIZE(heap, fun)); + duk_debug_write_eom(thr); + return; + + fail_args: + duk_debug_write_error_eom(thr, DUK_DBG_ERR_UNKNOWN, "invalid argument"); + return; + + fail_index: + duk_debug_write_error_eom(thr, DUK_DBG_ERR_NOTFOUND, "invalid callstack index"); + return; +} + +/* + * Object inspection commands: GetHeapObjInfo, GetObjPropDesc, + * GetObjPropDescRange + */ + +#if defined(DUK_USE_DEBUGGER_INSPECT) + +#if 0 /* pruned */ +DUK_LOCAL const char * const duk__debug_getinfo_heaphdr_keys[] = { + "reachable", + "temproot", + "finalizable", + "finalized", + "readonly" + /* NULL not needed here */ +}; +DUK_LOCAL duk_uint_t duk__debug_getinfo_heaphdr_masks[] = { + DUK_HEAPHDR_FLAG_REACHABLE, + DUK_HEAPHDR_FLAG_TEMPROOT, + DUK_HEAPHDR_FLAG_FINALIZABLE, + DUK_HEAPHDR_FLAG_FINALIZED, + DUK_HEAPHDR_FLAG_READONLY, + 0 /* terminator */ +}; +#endif +DUK_LOCAL const char * const duk__debug_getinfo_hstring_keys[] = { +#if 0 + "arridx", + "symbol", + "hidden", + "reserved_word", + "strict_reserved_word", + "eval_or_arguments", +#endif + "extdata" + /* NULL not needed here */ +}; +DUK_LOCAL duk_uint_t duk__debug_getinfo_hstring_masks[] = { +#if 0 + DUK_HSTRING_FLAG_ARRIDX, + DUK_HSTRING_FLAG_SYMBOL, + DUK_HSTRING_FLAG_HIDDEN, + DUK_HSTRING_FLAG_RESERVED_WORD, + DUK_HSTRING_FLAG_STRICT_RESERVED_WORD, + DUK_HSTRING_FLAG_EVAL_OR_ARGUMENTS, +#endif + DUK_HSTRING_FLAG_EXTDATA, + 0 /* terminator */ +}; +DUK_LOCAL const char * const duk__debug_getinfo_hobject_keys[] = { + "extensible", + "constructable", + "callable", + "boundfunc", + "compfunc", + "natfunc", + "bufobj", + "fastrefs", + "array_part", + "strict", + "notail", + "newenv", + "namebinding", + "createargs", + "have_finalizer", + "exotic_array", + "exotic_stringobj", + "exotic_arguments", + "exotic_proxyobj", + "special_call" + /* NULL not needed here */ +}; +DUK_LOCAL duk_uint_t duk__debug_getinfo_hobject_masks[] = { + DUK_HOBJECT_FLAG_EXTENSIBLE, + DUK_HOBJECT_FLAG_CONSTRUCTABLE, + DUK_HOBJECT_FLAG_CALLABLE, + DUK_HOBJECT_FLAG_BOUNDFUNC, + DUK_HOBJECT_FLAG_COMPFUNC, + DUK_HOBJECT_FLAG_NATFUNC, + DUK_HOBJECT_FLAG_BUFOBJ, + DUK_HOBJECT_FLAG_FASTREFS, + DUK_HOBJECT_FLAG_ARRAY_PART, + DUK_HOBJECT_FLAG_STRICT, + DUK_HOBJECT_FLAG_NOTAIL, + DUK_HOBJECT_FLAG_NEWENV, + DUK_HOBJECT_FLAG_NAMEBINDING, + DUK_HOBJECT_FLAG_CREATEARGS, + DUK_HOBJECT_FLAG_HAVE_FINALIZER, + DUK_HOBJECT_FLAG_EXOTIC_ARRAY, + DUK_HOBJECT_FLAG_EXOTIC_STRINGOBJ, + DUK_HOBJECT_FLAG_EXOTIC_ARGUMENTS, + DUK_HOBJECT_FLAG_EXOTIC_PROXYOBJ, + DUK_HOBJECT_FLAG_SPECIAL_CALL, + 0 /* terminator */ +}; +DUK_LOCAL const char * const duk__debug_getinfo_hbuffer_keys[] = { + "dynamic", + "external" + /* NULL not needed here */ +}; +DUK_LOCAL duk_uint_t duk__debug_getinfo_hbuffer_masks[] = { + DUK_HBUFFER_FLAG_DYNAMIC, + DUK_HBUFFER_FLAG_EXTERNAL, + 0 /* terminator */ +}; + +DUK_LOCAL void duk__debug_getinfo_flags_key(duk_hthread *thr, const char *key) { + duk_debug_write_uint(thr, 0); + duk_debug_write_cstring(thr, key); +} + +DUK_LOCAL void duk__debug_getinfo_prop_uint(duk_hthread *thr, const char *key, duk_uint_t val) { + duk_debug_write_uint(thr, 0); + duk_debug_write_cstring(thr, key); + duk_debug_write_uint(thr, val); +} + +DUK_LOCAL void duk__debug_getinfo_prop_int(duk_hthread *thr, const char *key, duk_int_t val) { + duk_debug_write_uint(thr, 0); + duk_debug_write_cstring(thr, key); + duk_debug_write_int(thr, val); +} + +DUK_LOCAL void duk__debug_getinfo_prop_bool(duk_hthread *thr, const char *key, duk_bool_t val) { + duk_debug_write_uint(thr, 0); + duk_debug_write_cstring(thr, key); + duk_debug_write_boolean(thr, val); +} + +DUK_LOCAL void duk__debug_getinfo_bitmask(duk_hthread *thr, const char * const * keys, duk_uint_t *masks, duk_uint_t flags) { + const char *key; + duk_uint_t mask; + + for (;;) { + mask = *masks++; + if (mask == 0) { + break; + } + key = *keys++; + DUK_ASSERT(key != NULL); + + DUK_DD(DUK_DDPRINT("inspect bitmask: key=%s, mask=0x%08lx, flags=0x%08lx", key, (unsigned long) mask, (unsigned long) flags)); + duk__debug_getinfo_prop_bool(thr, key, flags & mask); + } +} + +/* Inspect a property using a virtual index into a conceptual property list + * consisting of (1) all array part items from [0,a_size[ (even when above + * .length) and (2) all entry part items from [0,e_next[. Unused slots are + * indicated using dvalue 'unused'. + */ +DUK_LOCAL duk_bool_t duk__debug_getprop_index(duk_hthread *thr, duk_heap *heap, duk_hobject *h_obj, duk_uint_t idx) { + duk_uint_t a_size; + duk_tval *tv; + duk_hstring *h_key; + duk_hobject *h_getset; + duk_uint_t flags; + + DUK_UNREF(heap); + + a_size = DUK_HOBJECT_GET_ASIZE(h_obj); + if (idx < a_size) { + duk_debug_write_uint(thr, DUK_PROPDESC_FLAGS_WEC); + duk_debug_write_uint(thr, idx); + tv = DUK_HOBJECT_A_GET_VALUE_PTR(heap, h_obj, idx); + duk_debug_write_tval(thr, tv); + return 1; + } + + idx -= a_size; + if (idx >= DUK_HOBJECT_GET_ENEXT(h_obj)) { + return 0; + } + + h_key = DUK_HOBJECT_E_GET_KEY(heap, h_obj, idx); + if (h_key == NULL) { + duk_debug_write_uint(thr, 0); + duk_debug_write_null(thr); + duk_debug_write_unused(thr); + return 1; + } + + flags = DUK_HOBJECT_E_GET_FLAGS(heap, h_obj, idx); + if (DUK_HSTRING_HAS_SYMBOL(h_key)) { + flags |= DUK_DBG_PROPFLAG_SYMBOL; + } + if (DUK_HSTRING_HAS_HIDDEN(h_key)) { + flags |= DUK_DBG_PROPFLAG_HIDDEN; + } + duk_debug_write_uint(thr, flags); + duk_debug_write_hstring(thr, h_key); + if (flags & DUK_PROPDESC_FLAG_ACCESSOR) { + h_getset = DUK_HOBJECT_E_GET_VALUE_GETTER(heap, h_obj, idx); + if (h_getset) { + duk_debug_write_hobject(thr, h_getset); + } else { + duk_debug_write_null(thr); + } + h_getset = DUK_HOBJECT_E_GET_VALUE_SETTER(heap, h_obj, idx); + if (h_getset) { + duk_debug_write_hobject(thr, h_getset); + } else { + duk_debug_write_null(thr); + } + } else { + tv = DUK_HOBJECT_E_GET_VALUE_TVAL_PTR(heap, h_obj, idx); + duk_debug_write_tval(thr, tv); + } + return 1; +} + +DUK_LOCAL void duk__debug_handle_get_heap_obj_info(duk_hthread *thr, duk_heap *heap) { + duk_heaphdr *h; + + DUK_D(DUK_DPRINT("debug command GetHeapObjInfo")); + DUK_UNREF(heap); + + DUK_ASSERT(sizeof(duk__debug_getinfo_hstring_keys) / sizeof(const char *) == sizeof(duk__debug_getinfo_hstring_masks) / sizeof(duk_uint_t) - 1); + DUK_ASSERT(sizeof(duk__debug_getinfo_hobject_keys) / sizeof(const char *) == sizeof(duk__debug_getinfo_hobject_masks) / sizeof(duk_uint_t) - 1); + DUK_ASSERT(sizeof(duk__debug_getinfo_hbuffer_keys) / sizeof(const char *) == sizeof(duk__debug_getinfo_hbuffer_masks) / sizeof(duk_uint_t) - 1); + + h = duk_debug_read_any_ptr(thr); + if (!h) { + duk_debug_write_error_eom(thr, DUK_DBG_ERR_UNKNOWN, "invalid target"); + return; + } + + duk_debug_write_reply(thr); + + /* As with all inspection code, we rely on the debug client providing + * a valid, non-stale pointer: there's no portable way to safely + * validate the pointer here. + */ + + duk__debug_getinfo_flags_key(thr, "heapptr"); + duk_debug_write_heapptr(thr, h); + + /* XXX: comes out as signed now */ + duk__debug_getinfo_prop_uint(thr, "heaphdr_flags", (duk_uint_t) DUK_HEAPHDR_GET_FLAGS(h)); + duk__debug_getinfo_prop_uint(thr, "heaphdr_type", (duk_uint_t) DUK_HEAPHDR_GET_TYPE(h)); +#if defined(DUK_USE_REFERENCE_COUNTING) + duk__debug_getinfo_prop_uint(thr, "refcount", (duk_uint_t) DUK_HEAPHDR_GET_REFCOUNT(h)); +#endif +#if 0 /* pruned */ + duk__debug_getinfo_bitmask(thr, + duk__debug_getinfo_heaphdr_keys, + duk__debug_getinfo_heaphdr_masks, + DUK_HEAPHDR_GET_FLAGS_RAW(h)); +#endif + + switch (DUK_HEAPHDR_GET_TYPE(h)) { + case DUK_HTYPE_STRING: { + duk_hstring *h_str; + + h_str = (duk_hstring *) h; + duk__debug_getinfo_bitmask(thr, + duk__debug_getinfo_hstring_keys, + duk__debug_getinfo_hstring_masks, + DUK_HEAPHDR_GET_FLAGS_RAW(h)); + duk__debug_getinfo_prop_uint(thr, "bytelen", (duk_uint_t) DUK_HSTRING_GET_BYTELEN(h_str)); + duk__debug_getinfo_prop_uint(thr, "charlen", (duk_uint_t) DUK_HSTRING_GET_CHARLEN(h_str)); + duk__debug_getinfo_prop_uint(thr, "hash", (duk_uint_t) DUK_HSTRING_GET_HASH(h_str)); + duk__debug_getinfo_flags_key(thr, "data"); + duk_debug_write_hstring(thr, h_str); + break; + } + case DUK_HTYPE_OBJECT: { + duk_hobject *h_obj; + duk_hobject *h_proto; + + h_obj = (duk_hobject *) h; + h_proto = DUK_HOBJECT_GET_PROTOTYPE(heap, h_obj); + + /* duk_hobject specific fields. */ + duk__debug_getinfo_bitmask(thr, + duk__debug_getinfo_hobject_keys, + duk__debug_getinfo_hobject_masks, + DUK_HEAPHDR_GET_FLAGS_RAW(h)); + duk__debug_getinfo_prop_uint(thr, "class_number", DUK_HOBJECT_GET_CLASS_NUMBER(h_obj)); + duk__debug_getinfo_flags_key(thr, "class_name"); + duk_debug_write_hstring(thr, DUK_HOBJECT_GET_CLASS_STRING(heap, h_obj)); + duk__debug_getinfo_flags_key(thr, "prototype"); + if (h_proto != NULL) { + duk_debug_write_hobject(thr, h_proto); + } else { + duk_debug_write_null(thr); + } + duk__debug_getinfo_flags_key(thr, "props"); + duk_debug_write_pointer(thr, (void *) DUK_HOBJECT_GET_PROPS(heap, h_obj)); + duk__debug_getinfo_prop_uint(thr, "e_size", (duk_uint_t) DUK_HOBJECT_GET_ESIZE(h_obj)); + duk__debug_getinfo_prop_uint(thr, "e_next", (duk_uint_t) DUK_HOBJECT_GET_ENEXT(h_obj)); + duk__debug_getinfo_prop_uint(thr, "a_size", (duk_uint_t) DUK_HOBJECT_GET_ASIZE(h_obj)); + duk__debug_getinfo_prop_uint(thr, "h_size", (duk_uint_t) DUK_HOBJECT_GET_HSIZE(h_obj)); + + if (DUK_HOBJECT_IS_ARRAY(h_obj)) { + duk_harray *h_arr; + h_arr = (duk_harray *) h_obj; + + duk__debug_getinfo_prop_uint(thr, "length", (duk_uint_t) h_arr->length); + duk__debug_getinfo_prop_bool(thr, "length_nonwritable", h_arr->length_nonwritable); + } + + if (DUK_HOBJECT_IS_NATFUNC(h_obj)) { + duk_hnatfunc *h_fun; + h_fun = (duk_hnatfunc *) h_obj; + + duk__debug_getinfo_prop_int(thr, "nargs", h_fun->nargs); + duk__debug_getinfo_prop_int(thr, "magic", h_fun->magic); + duk__debug_getinfo_prop_bool(thr, "varargs", h_fun->magic == DUK_HNATFUNC_NARGS_VARARGS); + /* Native function pointer may be different from a void pointer, + * and we serialize it from memory directly now (no byte swapping etc). + */ + duk__debug_getinfo_flags_key(thr, "funcptr"); + duk_debug_write_buffer(thr, (const char *) &h_fun->func, sizeof(h_fun->func)); + } + + if (DUK_HOBJECT_IS_COMPFUNC(h_obj)) { + duk_hcompfunc *h_fun; + duk_hbuffer *h_buf; + duk_hobject *h_lexenv; + duk_hobject *h_varenv; + h_fun = (duk_hcompfunc *) h_obj; + + duk__debug_getinfo_prop_int(thr, "nregs", h_fun->nregs); + duk__debug_getinfo_prop_int(thr, "nargs", h_fun->nargs); + + duk__debug_getinfo_flags_key(thr, "lex_env"); + h_lexenv = DUK_HCOMPFUNC_GET_LEXENV(thr->heap, h_fun); + if (h_lexenv != NULL) { + duk_debug_write_hobject(thr, h_lexenv); + } else { + duk_debug_write_null(thr); + } + duk__debug_getinfo_flags_key(thr, "var_env"); + h_varenv = DUK_HCOMPFUNC_GET_VARENV(thr->heap, h_fun); + if (h_varenv != NULL) { + duk_debug_write_hobject(thr, h_varenv); + } else { + duk_debug_write_null(thr); + } + + duk__debug_getinfo_prop_uint(thr, "start_line", h_fun->start_line); + duk__debug_getinfo_prop_uint(thr, "end_line", h_fun->end_line); + h_buf = (duk_hbuffer *) DUK_HCOMPFUNC_GET_DATA(thr->heap, h_fun); + if (h_buf != NULL) { + duk__debug_getinfo_flags_key(thr, "data"); + duk_debug_write_heapptr(thr, (duk_heaphdr *) h_buf); + } + } + + if (DUK_HOBJECT_IS_BOUNDFUNC(h_obj)) { + duk_hboundfunc *h_bfun; + h_bfun = (duk_hboundfunc *) (void *) h_obj; + + duk__debug_getinfo_flags_key(thr, "target"); + duk_debug_write_tval(thr, &h_bfun->target); + duk__debug_getinfo_flags_key(thr, "this_binding"); + duk_debug_write_tval(thr, &h_bfun->this_binding); + duk__debug_getinfo_flags_key(thr, "nargs"); + duk_debug_write_int(thr, h_bfun->nargs); + /* h_bfun->args not exposed now */ + } + + if (DUK_HOBJECT_IS_THREAD(h_obj)) { + /* XXX: Currently no inspection of threads, e.g. value stack, call + * stack, catch stack, etc. + */ + duk_hthread *h_thr; + h_thr = (duk_hthread *) h_obj; + DUK_UNREF(h_thr); + } + + if (DUK_HOBJECT_IS_DECENV(h_obj)) { + duk_hdecenv *h_env; + h_env = (duk_hdecenv *) h_obj; + + duk__debug_getinfo_flags_key(thr, "thread"); + duk_debug_write_heapptr(thr, (duk_heaphdr *) (h_env->thread)); + duk__debug_getinfo_flags_key(thr, "varmap"); + duk_debug_write_heapptr(thr, (duk_heaphdr *) (h_env->varmap)); + duk__debug_getinfo_prop_uint(thr, "regbase", (duk_uint_t) h_env->regbase_byteoff); + } + + if (DUK_HOBJECT_IS_OBJENV(h_obj)) { + duk_hobjenv *h_env; + h_env = (duk_hobjenv *) h_obj; + + duk__debug_getinfo_flags_key(thr, "target"); + duk_debug_write_heapptr(thr, (duk_heaphdr *) (h_env->target)); + duk__debug_getinfo_prop_bool(thr, "has_this", h_env->has_this); + } + +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) + if (DUK_HOBJECT_IS_BUFOBJ(h_obj)) { + duk_hbufobj *h_bufobj; + h_bufobj = (duk_hbufobj *) h_obj; + + duk__debug_getinfo_prop_uint(thr, "slice_offset", h_bufobj->offset); + duk__debug_getinfo_prop_uint(thr, "slice_length", h_bufobj->length); + duk__debug_getinfo_prop_uint(thr, "elem_shift", (duk_uint_t) h_bufobj->shift); + duk__debug_getinfo_prop_uint(thr, "elem_type", (duk_uint_t) h_bufobj->elem_type); + duk__debug_getinfo_prop_bool(thr, "is_typedarray", (duk_uint_t) h_bufobj->is_typedarray); + if (h_bufobj->buf != NULL) { + duk__debug_getinfo_flags_key(thr, "buffer"); + duk_debug_write_heapptr(thr, (duk_heaphdr *) h_bufobj->buf); + } + } +#endif /* DUK_USE_BUFFEROBJECT_SUPPORT */ + break; + } + case DUK_HTYPE_BUFFER: { + duk_hbuffer *h_buf; + + h_buf = (duk_hbuffer *) h; + duk__debug_getinfo_bitmask(thr, + duk__debug_getinfo_hbuffer_keys, + duk__debug_getinfo_hbuffer_masks, + DUK_HEAPHDR_GET_FLAGS_RAW(h)); + duk__debug_getinfo_prop_uint(thr, "size", (duk_uint_t) DUK_HBUFFER_GET_SIZE(h_buf)); + duk__debug_getinfo_flags_key(thr, "dataptr"); + duk_debug_write_pointer(thr, (void *) DUK_HBUFFER_GET_DATA_PTR(thr->heap, h_buf)); + duk__debug_getinfo_flags_key(thr, "data"); + duk_debug_write_hbuffer(thr, h_buf); /* tolerates NULL h_buf */ + break; + } + default: { + /* Since we already started writing the reply, just emit nothing. */ + DUK_D(DUK_DPRINT("inspect target pointer has invalid heaphdr type")); + } + } + + duk_debug_write_eom(thr); +} + +DUK_LOCAL void duk__debug_handle_get_obj_prop_desc(duk_hthread *thr, duk_heap *heap) { + duk_heaphdr *h; + duk_hobject *h_obj; + duk_hstring *h_key; + duk_propdesc desc; + + DUK_D(DUK_DPRINT("debug command GetObjPropDesc")); + DUK_UNREF(heap); + + h = duk_debug_read_any_ptr(thr); + if (!h) { + duk_debug_write_error_eom(thr, DUK_DBG_ERR_UNKNOWN, "invalid target"); + return; + } + h_key = duk_debug_read_hstring(thr); + if (h == NULL || DUK_HEAPHDR_GET_TYPE(h) != DUK_HTYPE_OBJECT || h_key == NULL) { + goto fail_args; + } + h_obj = (duk_hobject *) h; + + if (duk_hobject_get_own_propdesc(thr, h_obj, h_key, &desc, 0 /*flags*/)) { + duk_int_t virtual_idx; + duk_bool_t rc; + + /* To use the shared helper need the virtual index. */ + DUK_ASSERT(desc.e_idx >= 0 || desc.a_idx >= 0); + virtual_idx = (desc.a_idx >= 0 ? desc.a_idx : + (duk_int_t) DUK_HOBJECT_GET_ASIZE(h_obj) + desc.e_idx); + + duk_debug_write_reply(thr); + rc = duk__debug_getprop_index(thr, heap, h_obj, (duk_uint_t) virtual_idx); + DUK_ASSERT(rc == 1); + DUK_UNREF(rc); + duk_debug_write_eom(thr); + } else { + duk_debug_write_error_eom(thr, DUK_DBG_ERR_NOTFOUND, "not found"); + } + return; + + fail_args: + duk_debug_write_error_eom(thr, DUK_DBG_ERR_UNKNOWN, "invalid args"); +} + +DUK_LOCAL void duk__debug_handle_get_obj_prop_desc_range(duk_hthread *thr, duk_heap *heap) { + duk_heaphdr *h; + duk_hobject *h_obj; + duk_uint_t idx, idx_start, idx_end; + + DUK_D(DUK_DPRINT("debug command GetObjPropDescRange")); + DUK_UNREF(heap); + + h = duk_debug_read_any_ptr(thr); + idx_start = (duk_uint_t) duk_debug_read_int(thr); + idx_end = (duk_uint_t) duk_debug_read_int(thr); + if (h == NULL || DUK_HEAPHDR_GET_TYPE(h) != DUK_HTYPE_OBJECT) { + goto fail_args; + } + h_obj = (duk_hobject *) h; + + /* The index range space is conceptually the array part followed by the + * entry part. Unlike normal enumeration all slots are exposed here as + * is and return 'unused' if the slots are not in active use. In particular + * the array part is included for the full a_size regardless of what the + * array .length is. + */ + + duk_debug_write_reply(thr); + for (idx = idx_start; idx < idx_end; idx++) { + if (!duk__debug_getprop_index(thr, heap, h_obj, idx)) { + break; + } + } + duk_debug_write_eom(thr); + return; + + fail_args: + duk_debug_write_error_eom(thr, DUK_DBG_ERR_UNKNOWN, "invalid args"); +} + +#endif /* DUK_USE_DEBUGGER_INSPECT */ + +/* + * Process incoming debug requests + * + * Individual request handlers can push temporaries on the value stack and + * rely on duk__debug_process_message() to restore the value stack top + * automatically. + */ + +/* Process one debug message. Automatically restore value stack top to its + * entry value, so that individual message handlers don't need exact value + * stack handling which is convenient. + */ +DUK_LOCAL void duk__debug_process_message(duk_hthread *thr) { + duk_heap *heap; + duk_uint8_t x; + duk_int32_t cmd; + duk_idx_t entry_top; + + DUK_ASSERT(thr != NULL); + heap = thr->heap; + DUK_ASSERT(heap != NULL); + + entry_top = duk_get_top(thr); + + x = duk_debug_read_byte(thr); + switch (x) { + case DUK_DBG_IB_REQUEST: { + cmd = duk_debug_read_int(thr); + switch (cmd) { + case DUK_DBG_CMD_BASICINFO: { + duk__debug_handle_basic_info(thr, heap); + break; + } + case DUK_DBG_CMD_TRIGGERSTATUS: { + duk__debug_handle_trigger_status(thr, heap); + break; + } + case DUK_DBG_CMD_PAUSE: { + duk__debug_handle_pause(thr, heap); + break; + } + case DUK_DBG_CMD_RESUME: { + duk__debug_handle_resume(thr, heap); + break; + } + case DUK_DBG_CMD_STEPINTO: + case DUK_DBG_CMD_STEPOVER: + case DUK_DBG_CMD_STEPOUT: { + duk__debug_handle_step(thr, heap, cmd); + break; + } + case DUK_DBG_CMD_LISTBREAK: { + duk__debug_handle_list_break(thr, heap); + break; + } + case DUK_DBG_CMD_ADDBREAK: { + duk__debug_handle_add_break(thr, heap); + break; + } + case DUK_DBG_CMD_DELBREAK: { + duk__debug_handle_del_break(thr, heap); + break; + } + case DUK_DBG_CMD_GETVAR: { + duk__debug_handle_get_var(thr, heap); + break; + } + case DUK_DBG_CMD_PUTVAR: { + duk__debug_handle_put_var(thr, heap); + break; + } + case DUK_DBG_CMD_GETCALLSTACK: { + duk__debug_handle_get_call_stack(thr, heap); + break; + } + case DUK_DBG_CMD_GETLOCALS: { + duk__debug_handle_get_locals(thr, heap); + break; + } + case DUK_DBG_CMD_EVAL: { + duk__debug_handle_eval(thr, heap); + break; + } + case DUK_DBG_CMD_DETACH: { + /* The actual detached_cb call is postponed to message loop so + * we don't need any special precautions here (just skip to EOM + * on the already closed connection). + */ + duk__debug_handle_detach(thr, heap); + break; + } +#if defined(DUK_USE_DEBUGGER_DUMPHEAP) + case DUK_DBG_CMD_DUMPHEAP: { + duk__debug_handle_dump_heap(thr, heap); + break; + } +#endif /* DUK_USE_DEBUGGER_DUMPHEAP */ + case DUK_DBG_CMD_GETBYTECODE: { + duk__debug_handle_get_bytecode(thr, heap); + break; + } + case DUK_DBG_CMD_APPREQUEST: { + duk__debug_handle_apprequest(thr, heap); + break; + } +#if defined(DUK_USE_DEBUGGER_INSPECT) + case DUK_DBG_CMD_GETHEAPOBJINFO: { + duk__debug_handle_get_heap_obj_info(thr, heap); + break; + } + case DUK_DBG_CMD_GETOBJPROPDESC: { + duk__debug_handle_get_obj_prop_desc(thr, heap); + break; + } + case DUK_DBG_CMD_GETOBJPROPDESCRANGE: { + duk__debug_handle_get_obj_prop_desc_range(thr, heap); + break; + } +#endif /* DUK_USE_DEBUGGER_INSPECT */ + default: { + DUK_D(DUK_DPRINT("debug command unsupported: %d", (int) cmd)); + duk_debug_write_error_eom(thr, DUK_DBG_ERR_UNSUPPORTED, "unsupported command"); + } + } /* switch cmd */ + break; + } + case DUK_DBG_IB_REPLY: { + DUK_D(DUK_DPRINT("debug reply, skipping")); + break; + } + case DUK_DBG_IB_ERROR: { + DUK_D(DUK_DPRINT("debug error, skipping")); + break; + } + case DUK_DBG_IB_NOTIFY: { + DUK_D(DUK_DPRINT("debug notify, skipping")); + break; + } + default: { + DUK_D(DUK_DPRINT("invalid initial byte, drop connection: %d", (int) x)); + goto fail; + } + } /* switch initial byte */ + + DUK_ASSERT(duk_get_top(thr) >= entry_top); + duk_set_top(thr, entry_top); + duk__debug_skip_to_eom(thr); + return; + + fail: + DUK_ASSERT(duk_get_top(thr) >= entry_top); + duk_set_top(thr, entry_top); + DUK__SET_CONN_BROKEN(thr, 1); + return; +} + +DUK_LOCAL void duk__check_resend_status(duk_hthread *thr) { + if (thr->heap->dbg_read_cb != NULL && thr->heap->dbg_state_dirty) { + duk_debug_send_status(thr); + thr->heap->dbg_state_dirty = 0; + } +} + +DUK_INTERNAL duk_bool_t duk_debug_process_messages(duk_hthread *thr, duk_bool_t no_block) { +#if defined(DUK_USE_ASSERTIONS) + duk_idx_t entry_top; +#endif + duk_bool_t retval = 0; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(thr->heap != NULL); +#if defined(DUK_USE_ASSERTIONS) + entry_top = duk_get_top(thr); +#endif + + DUK_D(DUK_DPRINT("process debug messages: read_cb=%s, no_block=%ld, detaching=%ld, processing=%ld", + thr->heap->dbg_read_cb ? "not NULL" : "NULL", (long) no_block, + (long) thr->heap->dbg_detaching, (long) thr->heap->dbg_processing)); + DUK_DD(DUK_DDPRINT("top at entry: %ld", (long) duk_get_top(thr))); + + /* thr->heap->dbg_detaching may be != 0 if a debugger write outside + * the message loop caused a transport error and detach1() to run. + */ + DUK_ASSERT(thr->heap->dbg_detaching == 0 || thr->heap->dbg_detaching == 1); + DUK_ASSERT(thr->heap->dbg_processing == 0); + thr->heap->dbg_processing = 1; + + /* Ensure dirty state causes a Status even if never process any + * messages. This is expected by the bytecode executor when in + * the running state. + */ + duk__check_resend_status(thr); + + for (;;) { + /* Process messages until we're no longer paused or we peek + * and see there's nothing to read right now. + */ + DUK_DD(DUK_DDPRINT("top at loop top: %ld", (long) duk_get_top(thr))); + DUK_ASSERT(thr->heap->dbg_processing == 1); + + while (thr->heap->dbg_read_cb == NULL && thr->heap->dbg_detaching) { + /* Detach is pending; can be triggered from outside the + * debugger loop (e.g. Status notify write error) or by + * previous message handling. Call detached callback + * here, in a controlled state, to ensure a possible + * reattach inside the detached_cb is handled correctly. + * + * Recheck for detach in a while loop: an immediate + * reattach involves a call to duk_debugger_attach() + * which writes a debugger handshake line immediately + * inside the API call. If the transport write fails + * for that handshake, we can immediately end up in a + * "transport broken, detaching" case several times here. + * Loop back until we're either cleanly attached or + * fully detached. + * + * NOTE: Reset dbg_processing = 1 forcibly, in case we + * re-attached; duk_debugger_attach() sets dbg_processing + * to 0 at the moment. + */ + + DUK_D(DUK_DPRINT("detach pending (dbg_read_cb == NULL, dbg_detaching != 0), call detach2")); + + duk__debug_do_detach2(thr->heap); + thr->heap->dbg_processing = 1; /* may be set to 0 by duk_debugger_attach() inside callback */ + + DUK_D(DUK_DPRINT("after detach2 (and possible reattach): dbg_read_cb=%s, dbg_detaching=%ld", + thr->heap->dbg_read_cb ? "not NULL" : "NULL", (long) thr->heap->dbg_detaching)); + } + DUK_ASSERT(thr->heap->dbg_detaching == 0); /* true even with reattach */ + DUK_ASSERT(thr->heap->dbg_processing == 1); /* even after a detach and possible reattach */ + + if (thr->heap->dbg_read_cb == NULL) { + DUK_D(DUK_DPRINT("debug connection broken (and not detaching), stop processing messages")); + break; + } + + if (!DUK_HEAP_HAS_DEBUGGER_PAUSED(thr->heap) || no_block) { + if (!duk_debug_read_peek(thr)) { + /* Note: peek cannot currently trigger a detach + * so the dbg_detaching == 0 assert outside the + * loop is correct. + */ + DUK_D(DUK_DPRINT("processing debug message, peek indicated no data, stop processing messages")); + break; + } + DUK_D(DUK_DPRINT("processing debug message, peek indicated there is data, handle it")); + } else { + DUK_D(DUK_DPRINT("paused, process debug message, blocking if necessary")); + } + + duk__check_resend_status(thr); + duk__debug_process_message(thr); + duk__check_resend_status(thr); + + retval = 1; /* processed one or more messages */ + } + + DUK_ASSERT(thr->heap->dbg_detaching == 0); + DUK_ASSERT(thr->heap->dbg_processing == 1); + thr->heap->dbg_processing = 0; + + /* As an initial implementation, read flush after exiting the message + * loop. If transport is broken, this is a no-op (with debug logs). + */ + duk_debug_read_flush(thr); /* this cannot initiate a detach */ + DUK_ASSERT(thr->heap->dbg_detaching == 0); + + DUK_DD(DUK_DDPRINT("top at exit: %ld", (long) duk_get_top(thr))); + +#if defined(DUK_USE_ASSERTIONS) + /* Easy to get wrong, so assert for it. */ + DUK_ASSERT(entry_top == duk_get_top(thr)); +#endif + + return retval; +} + +/* + * Halt execution helper + */ + +/* Halt execution and enter a debugger message loop until execution is resumed + * by the client. PC for the current activation may be temporarily decremented + * so that the "current" instruction will be shown by the client. This helper + * is callable from anywhere, also outside bytecode executor. + */ + +DUK_INTERNAL void duk_debug_halt_execution(duk_hthread *thr, duk_bool_t use_prev_pc) { + duk_activation *act; + duk_hcompfunc *fun; + duk_instr_t *old_pc = NULL; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(thr->heap != NULL); + DUK_ASSERT(duk_debug_is_attached(thr->heap)); + DUK_ASSERT(thr->heap->dbg_processing == 0); + DUK_ASSERT(!duk_debug_is_paused(thr->heap)); + + duk_debug_set_paused(thr->heap); + + act = thr->callstack_curr; + + /* NOTE: act may be NULL if an error is thrown outside of any activation, + * which may happen in the case of, e.g. syntax errors. + */ + + /* Decrement PC if that was requested, this requires a PC sync. */ + if (act != NULL) { + duk_hthread_sync_currpc(thr); + old_pc = act->curr_pc; + fun = (duk_hcompfunc *) DUK_ACT_GET_FUNC(act); + + /* Short circuit if is safe: if act->curr_pc != NULL, 'fun' is + * guaranteed to be a non-NULL ECMAScript function. + */ + DUK_ASSERT(act->curr_pc == NULL || + (fun != NULL && DUK_HOBJECT_IS_COMPFUNC((duk_hobject *) fun))); + if (use_prev_pc && + act->curr_pc != NULL && + act->curr_pc > DUK_HCOMPFUNC_GET_CODE_BASE(thr->heap, fun)) { + act->curr_pc--; + } + } + + /* Process debug messages until we are no longer paused. */ + + /* NOTE: This is a bit fragile. It's important to ensure that + * duk_debug_process_messages() never throws an error or + * act->curr_pc will never be reset. + */ + + thr->heap->dbg_state_dirty = 1; + while (DUK_HEAP_HAS_DEBUGGER_PAUSED(thr->heap)) { + DUK_ASSERT(duk_debug_is_attached(thr->heap)); + DUK_ASSERT(thr->heap->dbg_processing == 0); + duk_debug_process_messages(thr, 0 /*no_block*/); + } + + /* XXX: Decrementing and restoring act->curr_pc works now, but if the + * debugger message loop gains the ability to adjust the current PC + * (e.g. a forced jump) restoring the PC here will break. Another + * approach would be to use a state flag for the "decrement 1 from + * topmost activation's PC" and take it into account whenever dealing + * with PC values. + */ + if (act != NULL) { + act->curr_pc = old_pc; /* restore PC */ + } +} + +/* + * Breakpoint management + */ + +DUK_INTERNAL duk_small_int_t duk_debug_add_breakpoint(duk_hthread *thr, duk_hstring *filename, duk_uint32_t line) { + duk_heap *heap; + duk_breakpoint *b; + + /* Caller must trigger recomputation of active breakpoint list. To + * ensure stale values are not used if that doesn't happen, clear the + * active breakpoint list here. + */ + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(filename != NULL); + heap = thr->heap; + DUK_ASSERT(heap != NULL); + + if (heap->dbg_breakpoint_count >= DUK_HEAP_MAX_BREAKPOINTS) { + DUK_D(DUK_DPRINT("failed to add breakpoint for %O:%ld, all breakpoint slots used", + (duk_heaphdr *) filename, (long) line)); + return -1; + } + heap->dbg_breakpoints_active[0] = (duk_breakpoint *) NULL; + b = heap->dbg_breakpoints + (heap->dbg_breakpoint_count++); + b->filename = filename; + b->line = line; + DUK_HSTRING_INCREF(thr, filename); + + return (duk_small_int_t) (heap->dbg_breakpoint_count - 1); /* index */ +} + +DUK_INTERNAL duk_bool_t duk_debug_remove_breakpoint(duk_hthread *thr, duk_small_uint_t breakpoint_index) { + duk_heap *heap; + duk_hstring *h; + duk_breakpoint *b; + duk_size_t move_size; + + /* Caller must trigger recomputation of active breakpoint list. To + * ensure stale values are not used if that doesn't happen, clear the + * active breakpoint list here. + */ + + DUK_ASSERT(thr != NULL); + heap = thr->heap; + DUK_ASSERT(heap != NULL); + DUK_ASSERT(duk_debug_is_attached(thr->heap)); + DUK_ASSERT_DISABLE(breakpoint_index >= 0); /* unsigned */ + + if (breakpoint_index >= heap->dbg_breakpoint_count) { + DUK_D(DUK_DPRINT("invalid breakpoint index: %ld", (long) breakpoint_index)); + return 0; + } + b = heap->dbg_breakpoints + breakpoint_index; + + h = b->filename; + DUK_ASSERT(h != NULL); + + move_size = sizeof(duk_breakpoint) * (heap->dbg_breakpoint_count - breakpoint_index - 1); + duk_memmove((void *) b, + (const void *) (b + 1), + (size_t) move_size); + + heap->dbg_breakpoint_count--; + heap->dbg_breakpoints_active[0] = (duk_breakpoint *) NULL; + + DUK_HSTRING_DECREF(thr, h); /* side effects */ + DUK_UNREF(h); /* w/o refcounting */ + + /* Breakpoint entries above the used area are left as garbage. */ + + return 1; +} + +/* + * Misc state management + */ + +DUK_INTERNAL duk_bool_t duk_debug_is_attached(duk_heap *heap) { + return (heap->dbg_read_cb != NULL); +} + +DUK_INTERNAL duk_bool_t duk_debug_is_paused(duk_heap *heap) { + return (DUK_HEAP_HAS_DEBUGGER_PAUSED(heap) != 0); +} + +DUK_INTERNAL void duk_debug_set_paused(duk_heap *heap) { + if (duk_debug_is_paused(heap)) { + DUK_D(DUK_DPRINT("trying to set paused state when already paused, ignoring")); + } else { + DUK_HEAP_SET_DEBUGGER_PAUSED(heap); + heap->dbg_state_dirty = 1; + duk_debug_clear_pause_state(heap); + DUK_ASSERT(heap->ms_running == 0); /* debugger can't be triggered within mark-and-sweep */ + heap->ms_running = 2; /* prevent mark-and-sweep, prevent refzero queueing */ + heap->ms_prevent_count++; + DUK_ASSERT(heap->ms_prevent_count != 0); /* Wrap. */ + DUK_ASSERT(heap->heap_thread != NULL); + } +} + +DUK_INTERNAL void duk_debug_clear_paused(duk_heap *heap) { + if (duk_debug_is_paused(heap)) { + DUK_HEAP_CLEAR_DEBUGGER_PAUSED(heap); + heap->dbg_state_dirty = 1; + duk_debug_clear_pause_state(heap); + DUK_ASSERT(heap->ms_running == 2); + DUK_ASSERT(heap->ms_prevent_count > 0); + heap->ms_prevent_count--; + heap->ms_running = 0; + DUK_ASSERT(heap->heap_thread != NULL); + } else { + DUK_D(DUK_DPRINT("trying to clear paused state when not paused, ignoring")); + } +} + +DUK_INTERNAL void duk_debug_clear_pause_state(duk_heap *heap) { + heap->dbg_pause_flags = 0; + heap->dbg_pause_act = NULL; + heap->dbg_pause_startline = 0; +} + +#else /* DUK_USE_DEBUGGER_SUPPORT */ + +/* No debugger support. */ + +#endif /* DUK_USE_DEBUGGER_SUPPORT */ + +/* automatic undefs */ +#undef DUK__DBG_TPORT_ENTER +#undef DUK__DBG_TPORT_EXIT +#undef DUK__SET_CONN_BROKEN +#line 1 "duk_error_augment.c" +/* + * Augmenting errors at their creation site and their throw site. + * + * When errors are created, traceback data is added by built-in code + * and a user error handler (if defined) can process or replace the + * error. Similarly, when errors are thrown, a user error handler + * (if defined) can process or replace the error. + * + * Augmentation and other processing at error creation time is nice + * because an error is only created once, but it may be thrown and + * rethrown multiple times. User error handler registered for processing + * an error at its throw site must be careful to handle rethrowing in + * a useful manner. + * + * Error augmentation may throw an internal error (e.g. alloc error). + * + * ECMAScript allows throwing any values, so all values cannot be + * augmented. Currently, the built-in augmentation at error creation + * only augments error values which are Error instances (= have the + * built-in Error.prototype in their prototype chain) and are also + * extensible. User error handlers have no limitations in this respect. + */ + +/* #include duk_internal.h -> already included */ + +/* + * Helper for calling a user error handler. + * + * 'thr' must be the currently active thread; the error handler is called + * in its context. The valstack of 'thr' must have the error value on + * top, and will be replaced by another error value based on the return + * value of the error handler. + * + * The helper calls duk_handle_call() recursively in protected mode. + * Before that call happens, no longjmps should happen; as a consequence, + * we must assume that the valstack contains enough temporary space for + * arguments and such. + * + * While the error handler runs, any errors thrown will not trigger a + * recursive error handler call (this is implemented using a heap level + * flag which will "follow" through any coroutines resumed inside the + * error handler). If the error handler is not callable or throws an + * error, the resulting error replaces the original error (for Duktape + * internal errors, duk_error_throw.c further substitutes this error with + * a DoubleError which is not ideal). This would be easy to change and + * even signal to the caller. + * + * The user error handler is stored in 'Duktape.errCreate' or + * 'Duktape.errThrow' depending on whether we're augmenting the error at + * creation or throw time. There are several alternatives to this approach, + * see doc/error-objects.rst for discussion. + * + * Note: since further longjmp()s may occur while calling the error handler + * (for many reasons, e.g. a labeled 'break' inside the handler), the + * caller can make no assumptions on the thr->heap->lj state after the + * call (this affects especially duk_error_throw.c). This is not an issue + * as long as the caller writes to the lj state only after the error handler + * finishes. + */ + +#if defined(DUK_USE_ERRTHROW) || defined(DUK_USE_ERRCREATE) +DUK_LOCAL void duk__err_augment_user(duk_hthread *thr, duk_small_uint_t stridx_cb) { + duk_tval *tv_hnd; + duk_int_t rc; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(thr->heap != NULL); + DUK_ASSERT_STRIDX_VALID(stridx_cb); + + if (thr->heap->augmenting_error) { + DUK_D(DUK_DPRINT("recursive call to error augmentation, ignore")); + return; + } + + /* + * Check whether or not we have an error handler. + * + * We must be careful of not triggering an error when looking up the + * property. For instance, if the property is a getter, we don't want + * to call it, only plain values are allowed. The value, if it exists, + * is not checked. If the value is not a function, a TypeError happens + * when it is called and that error replaces the original one. + */ + + DUK_ASSERT_VALSTACK_SPACE(thr, 4); /* 3 entries actually needed below */ + + /* [ ... errval ] */ + + if (thr->builtins[DUK_BIDX_DUKTAPE] == NULL) { + /* When creating built-ins, some of the built-ins may not be set + * and we want to tolerate that when throwing errors. + */ + DUK_DD(DUK_DDPRINT("error occurred when DUK_BIDX_DUKTAPE is NULL, ignoring")); + return; + } + tv_hnd = duk_hobject_find_entry_tval_ptr_stridx(thr->heap, + thr->builtins[DUK_BIDX_DUKTAPE], + stridx_cb); + if (tv_hnd == NULL) { + DUK_DD(DUK_DDPRINT("error handler does not exist or is not a plain value: %!T", + (duk_tval *) tv_hnd)); + return; + } + DUK_DDD(DUK_DDDPRINT("error handler dump (callability not checked): %!T", + (duk_tval *) tv_hnd)); + duk_push_tval(thr, tv_hnd); + + /* [ ... errval errhandler ] */ + + duk_insert(thr, -2); /* -> [ ... errhandler errval ] */ + duk_push_undefined(thr); + duk_insert(thr, -2); /* -> [ ... errhandler undefined(= this) errval ] */ + + /* [ ... errhandler undefined errval ] */ + + /* + * heap->augmenting_error prevents recursive re-entry and also causes + * call handling to use a larger (but not unbounded) call stack limit + * for the duration of error augmentation. + * + * We ignore errors now: a success return and an error value both + * replace the original error value. (This would be easy to change.) + */ + + DUK_ASSERT(thr->heap->augmenting_error == 0); + thr->heap->augmenting_error = 1; + + rc = duk_pcall_method(thr, 1); + DUK_UNREF(rc); /* no need to check now: both success and error are OK */ + + DUK_ASSERT(thr->heap->augmenting_error == 1); + thr->heap->augmenting_error = 0; + + /* [ ... errval ] */ +} +#endif /* DUK_USE_ERRTHROW || DUK_USE_ERRCREATE */ + +/* + * Add ._Tracedata to an error on the stack top. + */ + +#if defined(DUK_USE_TRACEBACKS) +DUK_LOCAL void duk__add_traceback(duk_hthread *thr, duk_hthread *thr_callstack, const char *c_filename, duk_int_t c_line, duk_small_uint_t flags) { + duk_activation *act; + duk_int_t depth; + duk_int_t arr_size; + duk_tval *tv; + duk_hstring *s; + duk_uint32_t u32; + duk_double_t d; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(thr_callstack != NULL); + + /* [ ... error ] */ + + /* + * The traceback format is pretty arcane in an attempt to keep it compact + * and cheap to create. It may change arbitrarily from version to version. + * It should be decoded/accessed through version specific accessors only. + * + * See doc/error-objects.rst. + */ + + DUK_DDD(DUK_DDDPRINT("adding traceback to object: %!T", + (duk_tval *) duk_get_tval(thr, -1))); + + /* Preallocate array to correct size, so that we can just write out + * the _Tracedata values into the array part. + */ + act = thr->callstack_curr; + depth = DUK_USE_TRACEBACK_DEPTH; + DUK_ASSERT(thr_callstack->callstack_top <= DUK_INT_MAX); /* callstack limits */ + if (depth > (duk_int_t) thr_callstack->callstack_top) { + depth = (duk_int_t) thr_callstack->callstack_top; + } + if (depth > 0) { + if (flags & DUK_AUGMENT_FLAG_SKIP_ONE) { + DUK_ASSERT(act != NULL); + act = act->parent; + depth--; + } + } + arr_size = depth * 2; + if (thr->compile_ctx != NULL && thr->compile_ctx->h_filename != NULL) { + arr_size += 2; + } + if (c_filename) { + /* We need the C filename to be interned before getting the + * array part pointer to avoid any GC interference while the + * array part is populated. + */ + duk_push_string(thr, c_filename); + arr_size += 2; + } + + /* XXX: Uninitialized would be OK. Maybe add internal primitive to + * push bare duk_harray with size? + */ + DUK_D(DUK_DPRINT("preallocated _Tracedata to %ld items", (long) arr_size)); + tv = duk_push_harray_with_size_outptr(thr, (duk_uint32_t) arr_size); + duk_clear_prototype(thr, -1); + DUK_ASSERT(duk_is_bare_object(thr, -1)); + DUK_ASSERT(arr_size == 0 || tv != NULL); + + /* Compiler SyntaxErrors (and other errors) come first, and are + * blamed by default (not flagged "noblame"). + */ + if (thr->compile_ctx != NULL && thr->compile_ctx->h_filename != NULL) { + s = thr->compile_ctx->h_filename; + DUK_TVAL_SET_STRING(tv, s); + DUK_HSTRING_INCREF(thr, s); + tv++; + + u32 = (duk_uint32_t) thr->compile_ctx->curr_token.start_line; /* (flags<<32) + (line), flags = 0 */ + DUK_TVAL_SET_U32(tv, u32); + tv++; + } + + /* Filename/line from C macros (__FILE__, __LINE__) are added as an + * entry with a special format: (string, number). The number contains + * the line and flags. + */ + + /* [ ... error c_filename? arr ] */ + + if (c_filename) { + DUK_ASSERT(DUK_TVAL_IS_STRING(thr->valstack_top - 2)); + s = DUK_TVAL_GET_STRING(thr->valstack_top - 2); /* interned c_filename */ + DUK_ASSERT(s != NULL); + DUK_TVAL_SET_STRING(tv, s); + DUK_HSTRING_INCREF(thr, s); + tv++; + + d = ((flags & DUK_AUGMENT_FLAG_NOBLAME_FILELINE) ? ((duk_double_t) DUK_TB_FLAG_NOBLAME_FILELINE) * DUK_DOUBLE_2TO32 : 0.0) + + (duk_double_t) c_line; + DUK_TVAL_SET_DOUBLE(tv, d); + tv++; + } + + /* Traceback depth doesn't take into account the filename/line + * special handling above (intentional). + */ + for (; depth-- > 0; act = act->parent) { + duk_uint32_t pc; + duk_tval *tv_src; + + /* [... arr] */ + + DUK_ASSERT(act != NULL); /* depth check above, assumes book-keeping is correct */ + DUK_ASSERT_DISABLE(act->pc >= 0); /* unsigned */ + + /* Add function object. */ + tv_src = &act->tv_func; /* object (function) or lightfunc */ + DUK_ASSERT(DUK_TVAL_IS_OBJECT(tv_src) || DUK_TVAL_IS_LIGHTFUNC(tv_src)); + DUK_TVAL_SET_TVAL(tv, tv_src); + DUK_TVAL_INCREF(thr, tv); + tv++; + + /* Add a number containing: pc, activation flags. + * + * PC points to next instruction, find offending PC. Note that + * PC == 0 for native code. + */ + pc = (duk_uint32_t) duk_hthread_get_act_prev_pc(thr_callstack, act); + DUK_ASSERT_DISABLE(pc >= 0); /* unsigned */ + DUK_ASSERT((duk_double_t) pc < DUK_DOUBLE_2TO32); /* assume PC is at most 32 bits and non-negative */ + d = ((duk_double_t) act->flags) * DUK_DOUBLE_2TO32 + (duk_double_t) pc; + DUK_TVAL_SET_DOUBLE(tv, d); + tv++; + } + +#if defined(DUK_USE_ASSERTIONS) + { + duk_harray *a; + a = (duk_harray *) duk_known_hobject(thr, -1); + DUK_ASSERT(a != NULL); + DUK_ASSERT((duk_uint32_t) (tv - DUK_HOBJECT_A_GET_BASE(thr->heap, (duk_hobject *) a)) == a->length); + DUK_ASSERT(a->length == (duk_uint32_t) arr_size); + DUK_ASSERT(duk_is_bare_object(thr, -1)); + } +#endif + + /* [ ... error c_filename? arr ] */ + + if (c_filename) { + duk_remove_m2(thr); + } + + /* [ ... error arr ] */ + + duk_xdef_prop_stridx_short_wec(thr, -2, DUK_STRIDX_INT_TRACEDATA); /* -> [ ... error ] */ +} +#endif /* DUK_USE_TRACEBACKS */ + +/* + * Add .fileName and .lineNumber to an error on the stack top. + */ + +#if defined(DUK_USE_AUGMENT_ERROR_CREATE) && !defined(DUK_USE_TRACEBACKS) +DUK_LOCAL void duk__add_fileline(duk_hthread *thr, duk_hthread *thr_callstack, const char *c_filename, duk_int_t c_line, duk_small_uint_t flags) { +#if defined(DUK_USE_ASSERTIONS) + duk_int_t entry_top; +#endif + +#if defined(DUK_USE_ASSERTIONS) + entry_top = duk_get_top(thr); +#endif + + /* + * If tracebacks are disabled, 'fileName' and 'lineNumber' are added + * as plain own properties. Since Error.prototype has accessors of + * the same name, we need to define own properties directly (cannot + * just use e.g. duk_put_prop_stridx). Existing properties are not + * overwritten in case they already exist. + */ + + if (thr->compile_ctx != NULL && thr->compile_ctx->h_filename != NULL) { + /* Compiler SyntaxError (or other error) gets the primary blame. + * Currently no flag to prevent blaming. + */ + duk_push_uint(thr, (duk_uint_t) thr->compile_ctx->curr_token.start_line); + duk_push_hstring(thr, thr->compile_ctx->h_filename); + } else if (c_filename && (flags & DUK_AUGMENT_FLAG_NOBLAME_FILELINE) == 0) { + /* C call site gets blamed next, unless flagged not to do so. + * XXX: file/line is disabled in minimal builds, so disable this + * too when appropriate. + */ + duk_push_int(thr, c_line); + duk_push_string(thr, c_filename); + } else { + /* Finally, blame the innermost callstack entry which has a + * .fileName property. + */ + duk_small_uint_t depth; + duk_uint32_t ecma_line; + duk_activation *act; + + DUK_ASSERT(thr_callstack->callstack_top <= DUK_INT_MAX); /* callstack limits */ + depth = DUK_USE_TRACEBACK_DEPTH; + if (depth > thr_callstack->callstack_top) { + depth = thr_callstack->callstack_top; + } + for (act = thr_callstack->callstack_curr; depth-- > 0; act = act->parent) { + duk_hobject *func; + duk_uint32_t pc; + + DUK_ASSERT(act != NULL); + func = DUK_ACT_GET_FUNC(act); + if (func == NULL) { + /* Lightfunc, not blamed now. */ + continue; + } + + /* PC points to next instruction, find offending PC, + * PC == 0 for native code. + */ + pc = duk_hthread_get_act_prev_pc(thr, act); /* thr argument only used for thr->heap, so specific thread doesn't matter */ + DUK_UNREF(pc); + DUK_ASSERT_DISABLE(pc >= 0); /* unsigned */ + DUK_ASSERT((duk_double_t) pc < DUK_DOUBLE_2TO32); /* assume PC is at most 32 bits and non-negative */ + + duk_push_hobject(thr, func); + + /* [ ... error func ] */ + + duk_get_prop_stridx_short(thr, -1, DUK_STRIDX_FILE_NAME); + if (!duk_is_string_notsymbol(thr, -1)) { + duk_pop_2(thr); + continue; + } + + /* [ ... error func fileName ] */ + + ecma_line = 0; +#if defined(DUK_USE_PC2LINE) + if (DUK_HOBJECT_IS_COMPFUNC(func)) { + ecma_line = duk_hobject_pc2line_query(thr, -2, (duk_uint_fast32_t) pc); + } else { + /* Native function, no relevant lineNumber. */ + } +#endif /* DUK_USE_PC2LINE */ + duk_push_u32(thr, ecma_line); + + /* [ ... error func fileName lineNumber ] */ + + duk_replace(thr, -3); + + /* [ ... error lineNumber fileName ] */ + goto define_props; + } + + /* No activation matches, use undefined for both .fileName and + * .lineNumber (matches what we do with a _Tracedata based + * no-match lookup. + */ + duk_push_undefined(thr); + duk_push_undefined(thr); + } + + define_props: + /* [ ... error lineNumber fileName ] */ +#if defined(DUK_USE_ASSERTIONS) + DUK_ASSERT(duk_get_top(thr) == entry_top + 2); +#endif + duk_xdef_prop_stridx_short(thr, -3, DUK_STRIDX_FILE_NAME, DUK_PROPDESC_FLAGS_C | DUK_PROPDESC_FLAG_NO_OVERWRITE); + duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_LINE_NUMBER, DUK_PROPDESC_FLAGS_C | DUK_PROPDESC_FLAG_NO_OVERWRITE); +} +#endif /* DUK_USE_AUGMENT_ERROR_CREATE && !DUK_USE_TRACEBACKS */ + +/* + * Add line number to a compiler error. + */ + +#if defined(DUK_USE_AUGMENT_ERROR_CREATE) +DUK_LOCAL void duk__add_compiler_error_line(duk_hthread *thr) { + + /* Append a "(line NNN)" to the "message" property of any error + * thrown during compilation. Usually compilation errors are + * SyntaxErrors but they can also be out-of-memory errors and + * the like. + */ + + /* [ ... error ] */ + + DUK_ASSERT(duk_is_object(thr, -1)); + + if (!(thr->compile_ctx != NULL && thr->compile_ctx->h_filename != NULL)) { + return; + } + + DUK_DDD(DUK_DDDPRINT("compile error, before adding line info: %!T", + (duk_tval *) duk_get_tval(thr, -1))); + + if (duk_get_prop_stridx_short(thr, -1, DUK_STRIDX_MESSAGE)) { + duk_bool_t at_end; + + /* Best guesstimate that error occurred at end of input, token + * truncated by end of input, etc. + */ +#if 0 + at_end = (thr->compile_ctx->curr_token.start_offset + 1 >= thr->compile_ctx->lex.input_length); + at_end = (thr->compile_ctx->lex.window[0].codepoint < 0 || thr->compile_ctx->lex.window[1].codepoint < 0); +#endif + at_end = (thr->compile_ctx->lex.window[0].codepoint < 0); + + DUK_D(DUK_DPRINT("syntax error, determined at_end=%ld; curr_token.start_offset=%ld, " + "lex.input_length=%ld, window[0].codepoint=%ld, window[1].codepoint=%ld", + (long) at_end, + (long) thr->compile_ctx->curr_token.start_offset, + (long) thr->compile_ctx->lex.input_length, + (long) thr->compile_ctx->lex.window[0].codepoint, + (long) thr->compile_ctx->lex.window[1].codepoint)); + + duk_push_sprintf(thr, " (line %ld%s)", + (long) thr->compile_ctx->curr_token.start_line, + at_end ? ", end of input" : ""); + duk_concat(thr, 2); + duk_put_prop_stridx_short(thr, -2, DUK_STRIDX_MESSAGE); + } else { + duk_pop(thr); + } + + DUK_DDD(DUK_DDDPRINT("compile error, after adding line info: %!T", + (duk_tval *) duk_get_tval(thr, -1))); +} +#endif /* DUK_USE_AUGMENT_ERROR_CREATE */ + +/* + * Augment an error being created using Duktape specific properties + * like _Tracedata or .fileName/.lineNumber. + */ + +#if defined(DUK_USE_AUGMENT_ERROR_CREATE) +DUK_LOCAL void duk__err_augment_builtin_create(duk_hthread *thr, duk_hthread *thr_callstack, const char *c_filename, duk_int_t c_line, duk_hobject *obj, duk_small_uint_t flags) { +#if defined(DUK_USE_ASSERTIONS) + duk_int_t entry_top; +#endif + +#if defined(DUK_USE_ASSERTIONS) + entry_top = duk_get_top(thr); +#endif + DUK_ASSERT(obj != NULL); + + DUK_UNREF(obj); /* unreferenced w/o tracebacks */ + + duk__add_compiler_error_line(thr); + +#if defined(DUK_USE_TRACEBACKS) + /* If tracebacks are enabled, the '_Tracedata' property is the only + * thing we need: 'fileName' and 'lineNumber' are virtual properties + * which use '_Tracedata'. (Check _Tracedata only as own property.) + */ + if (duk_hobject_find_entry_tval_ptr_stridx(thr->heap, obj, DUK_STRIDX_INT_TRACEDATA) != NULL) { + DUK_DDD(DUK_DDDPRINT("error value already has a '_Tracedata' property, not modifying it")); + } else { + duk__add_traceback(thr, thr_callstack, c_filename, c_line, flags); + } +#else + /* Without tracebacks the concrete .fileName and .lineNumber need + * to be added directly. + */ + duk__add_fileline(thr, thr_callstack, c_filename, c_line, flags); +#endif + +#if defined(DUK_USE_ASSERTIONS) + DUK_ASSERT(duk_get_top(thr) == entry_top); +#endif +} +#endif /* DUK_USE_AUGMENT_ERROR_CREATE */ + +/* + * Augment an error at creation time with _Tracedata/fileName/lineNumber + * and allow a user error handler (if defined) to process/replace the error. + * The error to be augmented is at the stack top. + * + * thr: thread containing the error value + * thr_callstack: thread which should be used for generating callstack etc. + * c_filename: C __FILE__ related to the error + * c_line: C __LINE__ related to the error + * flags & DUK_AUGMENT_FLAG_NOBLAME_FILELINE: + * if true, don't fileName/line as error source, otherwise use traceback + * (needed because user code filename/line are reported but internal ones + * are not) + */ + +#if defined(DUK_USE_AUGMENT_ERROR_CREATE) +DUK_INTERNAL void duk_err_augment_error_create(duk_hthread *thr, duk_hthread *thr_callstack, const char *c_filename, duk_int_t c_line, duk_small_uint_t flags) { + duk_hobject *obj; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(thr_callstack != NULL); + + /* [ ... error ] */ + + /* + * Criteria for augmenting: + * + * - augmentation enabled in build (naturally) + * - error value internal prototype chain contains the built-in + * Error prototype object (i.e. 'val instanceof Error') + * + * Additional criteria for built-in augmenting: + * + * - error value is an extensible object + */ + + obj = duk_get_hobject(thr, -1); + if (!obj) { + DUK_DDD(DUK_DDDPRINT("value is not an object, skip both built-in and user augment")); + return; + } + if (!duk_hobject_prototype_chain_contains(thr, obj, thr->builtins[DUK_BIDX_ERROR_PROTOTYPE], 1 /*ignore_loop*/)) { + /* If the value has a prototype loop, it's critical not to + * throw here. Instead, assume the value is not to be + * augmented. + */ + DUK_DDD(DUK_DDDPRINT("value is not an error instance, skip both built-in and user augment")); + return; + } + if (DUK_HOBJECT_HAS_EXTENSIBLE(obj)) { + DUK_DDD(DUK_DDDPRINT("error meets criteria, built-in augment")); + duk__err_augment_builtin_create(thr, thr_callstack, c_filename, c_line, obj, flags); + } else { + DUK_DDD(DUK_DDDPRINT("error does not meet criteria, no built-in augment")); + } + + /* [ ... error ] */ + +#if defined(DUK_USE_ERRCREATE) + duk__err_augment_user(thr, DUK_STRIDX_ERR_CREATE); +#endif +} +#endif /* DUK_USE_AUGMENT_ERROR_CREATE */ + +/* + * Augment an error at throw time; allow a user error handler (if defined) + * to process/replace the error. The error to be augmented is at the + * stack top. + */ + +#if defined(DUK_USE_AUGMENT_ERROR_THROW) +DUK_INTERNAL void duk_err_augment_error_throw(duk_hthread *thr) { +#if defined(DUK_USE_ERRTHROW) + duk__err_augment_user(thr, DUK_STRIDX_ERR_THROW); +#endif /* DUK_USE_ERRTHROW */ +} +#endif /* DUK_USE_AUGMENT_ERROR_THROW */ +#line 1 "duk_error_longjmp.c" +/* + * Do a longjmp call, calling the fatal error handler if no + * catchpoint exists. + */ + +/* #include duk_internal.h -> already included */ + +#if defined(DUK_USE_PREFER_SIZE) +DUK_NORETURN(DUK_LOCAL_DECL void duk__uncaught_minimal(duk_hthread *thr)); +DUK_LOCAL void duk__uncaught_minimal(duk_hthread *thr) { + (void) duk_fatal(thr, "uncaught error"); + DUK_WO_NORETURN(return;); +} +#endif + +#if 0 +DUK_NORETURN(DUK_LOCAL_DECL void duk__uncaught_readable(duk_hthread *thr)); +DUK_LOCAL void duk__uncaught_readable(duk_hthread *thr) { + const char *summary; + char buf[DUK_USE_FATAL_MAXLEN]; + + summary = duk_push_string_tval_readable(thr, &thr->heap->lj.value1); + DUK_SNPRINTF(buf, sizeof(buf), "uncaught: %s", summary); + buf[sizeof(buf) - 1] = (char) 0; + (void) duk_fatal(thr, (const char *) buf); + DUK_WO_NORETURN(return;); +} +#endif + +#if !defined(DUK_USE_PREFER_SIZE) +DUK_NORETURN(DUK_LOCAL_DECL void duk__uncaught_error_aware(duk_hthread *thr)); +DUK_LOCAL void duk__uncaught_error_aware(duk_hthread *thr) { + const char *summary; + char buf[DUK_USE_FATAL_MAXLEN]; + + summary = duk_push_string_tval_readable_error(thr, &thr->heap->lj.value1); + DUK_ASSERT(summary != NULL); + DUK_SNPRINTF(buf, sizeof(buf), "uncaught: %s", summary); + buf[sizeof(buf) - 1] = (char) 0; + (void) duk_fatal(thr, (const char *) buf); + DUK_WO_NORETURN(return;); +} +#endif + +DUK_INTERNAL void duk_err_longjmp(duk_hthread *thr) { + DUK_ASSERT(thr != NULL); + DUK_ASSERT(thr->heap != NULL); + + DUK_DD(DUK_DDPRINT("longjmp error: type=%d iserror=%d value1=%!T value2=%!T", + (int) thr->heap->lj.type, (int) thr->heap->lj.iserror, + &thr->heap->lj.value1, &thr->heap->lj.value2)); + + /* Prevent finalizer execution during error handling. All error + * handling sites will process pending finalizers once error handling + * is complete and we're ready for the side effects. Does not prevent + * refzero freeing or mark-and-sweep during error handling. + * + * NOTE: when we come here some calling code may have used DECREF + * NORZ macros without an explicit DUK_REFZERO_CHECK_xxx() call. + * We don't want to do it here because it would just check for + * pending finalizers and we prevent that explicitly. Instead, + * the error catcher will run the finalizers once error handling + * is complete. + */ + + DUK_ASSERT_LJSTATE_SET(thr->heap); + + thr->heap->pf_prevent_count++; + DUK_ASSERT(thr->heap->pf_prevent_count != 0); /* Wrap. */ + +#if defined(DUK_USE_ASSERTIONS) + /* XXX: set this immediately when longjmp state is set */ + DUK_ASSERT(thr->heap->error_not_allowed == 0); /* Detect error within critical section. */ + thr->heap->error_not_allowed = 1; +#endif + + DUK_DD(DUK_DDPRINT("about to longjmp, pf_prevent_count=%ld", (long) thr->heap->pf_prevent_count)); + + /* If we don't have a jmpbuf_ptr, there is little we can do except + * cause a fatal error. The caller's expectation is that we never + * return. + */ + if (!thr->heap->lj.jmpbuf_ptr) { + DUK_D(DUK_DPRINT("uncaught error: type=%d iserror=%d value1=%!T value2=%!T", + (int) thr->heap->lj.type, (int) thr->heap->lj.iserror, + &thr->heap->lj.value1, &thr->heap->lj.value2)); + +#if defined(DUK_USE_PREFER_SIZE) + duk__uncaught_minimal(thr); +#else + duk__uncaught_error_aware(thr); +#endif + DUK_UNREACHABLE(); + } + +#if defined(DUK_USE_CPP_EXCEPTIONS) + throw duk_internal_exception(); /* dummy */ +#else + DUK_LONGJMP(thr->heap->lj.jmpbuf_ptr->jb); +#endif + + DUK_UNREACHABLE(); +} +#line 1 "duk_error_misc.c" +/* + * Error helpers + */ + +/* #include duk_internal.h -> already included */ + +/* + * Helper to walk the thread chain and see if there is an active error + * catcher. Protected calls or finally blocks aren't considered catching. + */ + +#if defined(DUK_USE_DEBUGGER_SUPPORT) +DUK_LOCAL duk_bool_t duk__have_active_catcher(duk_hthread *thr) { + /* As noted above, a protected API call won't be counted as a + * catcher. This is usually convenient, e.g. in the case of a top- + * level duk_pcall(), but may not always be desirable. Perhaps add + * an argument to treat them as catchers? + */ + + duk_activation *act; + duk_catcher *cat; + + DUK_ASSERT(thr != NULL); + + for (; thr != NULL; thr = thr->resumer) { + for (act = thr->callstack_curr; act != NULL; act = act->parent) { + for (cat = act->cat; cat != NULL; cat = cat->parent) { + if (DUK_CAT_HAS_CATCH_ENABLED(cat)) { + return 1; /* all we need to know */ + } + } + } + } + return 0; +} +#endif /* DUK_USE_DEBUGGER_SUPPORT */ + +/* + * Get prototype object for an integer error code. + */ + +DUK_INTERNAL duk_hobject *duk_error_prototype_from_code(duk_hthread *thr, duk_errcode_t code) { + switch (code) { + case DUK_ERR_EVAL_ERROR: + return thr->builtins[DUK_BIDX_EVAL_ERROR_PROTOTYPE]; + case DUK_ERR_RANGE_ERROR: + return thr->builtins[DUK_BIDX_RANGE_ERROR_PROTOTYPE]; + case DUK_ERR_REFERENCE_ERROR: + return thr->builtins[DUK_BIDX_REFERENCE_ERROR_PROTOTYPE]; + case DUK_ERR_SYNTAX_ERROR: + return thr->builtins[DUK_BIDX_SYNTAX_ERROR_PROTOTYPE]; + case DUK_ERR_TYPE_ERROR: + return thr->builtins[DUK_BIDX_TYPE_ERROR_PROTOTYPE]; + case DUK_ERR_URI_ERROR: + return thr->builtins[DUK_BIDX_URI_ERROR_PROTOTYPE]; + case DUK_ERR_ERROR: + default: + return thr->builtins[DUK_BIDX_ERROR_PROTOTYPE]; + } +} + +/* + * Helper for debugger throw notify and pause-on-uncaught integration. + */ + +#if defined(DUK_USE_DEBUGGER_SUPPORT) +DUK_INTERNAL void duk_err_check_debugger_integration(duk_hthread *thr) { + duk_bool_t uncaught; + duk_tval *tv_obj; + + /* If something is thrown with the debugger attached and nobody will + * catch it, execution is paused before the longjmp, turning over + * control to the debug client. This allows local state to be examined + * before the stack is unwound. Errors are not intercepted when debug + * message loop is active (e.g. for Eval). + */ + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(thr->heap != NULL); + + /* XXX: Allow customizing the pause and notify behavior at runtime + * using debugger runtime flags. For now the behavior is fixed using + * config options. + */ + + if (!duk_debug_is_attached(thr->heap) || + thr->heap->dbg_processing || + thr->heap->lj.type != DUK_LJ_TYPE_THROW || + thr->heap->creating_error) { + DUK_D(DUK_DPRINT("skip debugger error integration; not attached, debugger processing, not THROW, or error thrown while creating error")); + return; + } + + /* Don't intercept a DoubleError, we may have caused the initial double + * fault and attempting to intercept it will cause us to be called + * recursively and exhaust the C stack. (This should no longer happen + * for the initial throw because DoubleError path doesn't do a debugger + * integration check, but it might happen for rethrows.) + */ + tv_obj = &thr->heap->lj.value1; + if (DUK_TVAL_IS_OBJECT(tv_obj) && DUK_TVAL_GET_OBJECT(tv_obj) == thr->builtins[DUK_BIDX_DOUBLE_ERROR]) { + DUK_D(DUK_DPRINT("built-in DoubleError instance (re)thrown, not intercepting")); + return; + } + + uncaught = !duk__have_active_catcher(thr); + + /* Debugger code expects the value at stack top. This also serves + * as a backup: we need to store/restore the longjmp state because + * when the debugger is paused Eval commands may be executed and + * they can arbitrarily clobber the longjmp state. + */ + duk_push_tval(thr, tv_obj); + + /* Store and reset longjmp state. */ + DUK_ASSERT_LJSTATE_SET(thr->heap); + DUK_TVAL_DECREF_NORZ(thr, tv_obj); + DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(&thr->heap->lj.value2)); /* Always for THROW type. */ + DUK_TVAL_SET_UNDEFINED(tv_obj); + thr->heap->lj.type = DUK_LJ_TYPE_UNKNOWN; + DUK_ASSERT_LJSTATE_UNSET(thr->heap); + +#if defined(DUK_USE_DEBUGGER_THROW_NOTIFY) + /* Report it to the debug client */ + DUK_D(DUK_DPRINT("throw with debugger attached, report to client")); + duk_debug_send_throw(thr, uncaught); +#endif + + if (uncaught) { + if (thr->heap->dbg_pause_flags & DUK_PAUSE_FLAG_UNCAUGHT_ERROR) { + DUK_D(DUK_DPRINT("PAUSE TRIGGERED by uncaught error")); + duk_debug_halt_execution(thr, 1 /*use_prev_pc*/); + } + } else { + if (thr->heap->dbg_pause_flags & DUK_PAUSE_FLAG_CAUGHT_ERROR) { + DUK_D(DUK_DPRINT("PAUSE TRIGGERED by caught error")); + duk_debug_halt_execution(thr, 1 /*use_prev_pc*/); + } + } + + /* Restore longjmp state. */ + DUK_ASSERT_LJSTATE_UNSET(thr->heap); + thr->heap->lj.type = DUK_LJ_TYPE_THROW; + tv_obj = DUK_GET_TVAL_NEGIDX(thr, -1); + DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(&thr->heap->lj.value1)); + DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(&thr->heap->lj.value2)); + DUK_TVAL_SET_TVAL(&thr->heap->lj.value1, tv_obj); + DUK_TVAL_INCREF(thr, tv_obj); + DUK_ASSERT_LJSTATE_SET(thr->heap); + + duk_pop(thr); +} +#endif /* DUK_USE_DEBUGGER_SUPPORT */ + +/* + * Helpers for setting up heap longjmp state. + */ + +DUK_INTERNAL void duk_err_setup_ljstate1(duk_hthread *thr, duk_small_uint_t lj_type, duk_tval *tv_val) { + duk_heap *heap; + + DUK_ASSERT(thr != NULL); + heap = thr->heap; + DUK_ASSERT(heap != NULL); + DUK_ASSERT(tv_val != NULL); + + DUK_ASSERT_LJSTATE_UNSET(heap); + + heap->lj.type = lj_type; + DUK_TVAL_SET_TVAL(&heap->lj.value1, tv_val); + DUK_TVAL_INCREF(thr, tv_val); + + DUK_ASSERT_LJSTATE_SET(heap); +} +#line 1 "duk_error_throw.c" +/* + * Create and throw an ECMAScript error object based on a code and a message. + * + * Used when we throw errors internally. ECMAScript generated error objects + * are created by ECMAScript code, and the throwing is handled by the bytecode + * executor. + */ + +/* #include duk_internal.h -> already included */ + +/* + * Create and throw an error (originating from Duktape internally) + * + * Push an error object on top of the stack, possibly throw augmenting + * the error, and finally longjmp. + * + * If an error occurs while we're dealing with the current error, we might + * enter an infinite recursion loop. This is prevented by detecting a + * "double fault" through the heap->creating_error flag; the recursion + * then stops at the second level. + */ + +#if defined(DUK_USE_VERBOSE_ERRORS) +DUK_INTERNAL void duk_err_create_and_throw(duk_hthread *thr, duk_errcode_t code, const char *msg, const char *filename, duk_int_t line) { +#else +DUK_INTERNAL void duk_err_create_and_throw(duk_hthread *thr, duk_errcode_t code) { +#endif +#if defined(DUK_USE_VERBOSE_ERRORS) + DUK_DD(DUK_DDPRINT("duk_err_create_and_throw(): code=%ld, msg=%s, filename=%s, line=%ld", + (long) code, (const char *) msg, + (const char *) filename, (long) line)); +#else + DUK_DD(DUK_DDPRINT("duk_err_create_and_throw(): code=%ld", (long) code)); +#endif + + DUK_ASSERT(thr != NULL); + + /* Even though nested call is possible because we throw an error when + * trying to create an error, the potential errors must happen before + * the longjmp state is configured. + */ + DUK_ASSERT_LJSTATE_UNSET(thr->heap); + + /* Sync so that augmentation sees up-to-date activations, NULL + * thr->ptr_curr_pc so that it's not used if side effects occur + * in augmentation or longjmp handling. + */ + duk_hthread_sync_and_null_currpc(thr); + + /* + * Create and push an error object onto the top of stack. + * The error is potentially augmented before throwing. + * + * If a "double error" occurs, use a fixed error instance + * to avoid further trouble. + */ + + if (thr->heap->creating_error) { + duk_tval tv_val; + duk_hobject *h_err; + + thr->heap->creating_error = 0; + + h_err = thr->builtins[DUK_BIDX_DOUBLE_ERROR]; + if (h_err != NULL) { + DUK_D(DUK_DPRINT("double fault detected -> use built-in fixed 'double error' instance")); + DUK_TVAL_SET_OBJECT(&tv_val, h_err); + } else { + DUK_D(DUK_DPRINT("double fault detected; there is no built-in fixed 'double error' instance " + "-> use the error code as a number")); + DUK_TVAL_SET_I32(&tv_val, (duk_int32_t) code); + } + + duk_err_setup_ljstate1(thr, DUK_LJ_TYPE_THROW, &tv_val); + + /* No augmentation to avoid any allocations or side effects. */ + } else { + /* Prevent infinite recursion. Extra call stack and C + * recursion headroom (see GH-191) is added for augmentation. + * That is now signalled by heap->augmenting error and taken + * into account in call handling without an explicit limit bump. + */ + thr->heap->creating_error = 1; + + duk_require_stack(thr, 1); + + /* XXX: usually unnecessary '%s' formatting here, but cannot + * use 'msg' as a format string directly. + */ +#if defined(DUK_USE_VERBOSE_ERRORS) + duk_push_error_object_raw(thr, + code | DUK_ERRCODE_FLAG_NOBLAME_FILELINE, + filename, + line, + "%s", + (const char *) msg); +#else + duk_push_error_object_raw(thr, + code | DUK_ERRCODE_FLAG_NOBLAME_FILELINE, + NULL, + 0, + NULL); +#endif + + /* Note that an alloc error may happen during error augmentation. + * This may happen both when the original error is an alloc error + * and when it's something else. Because any error in augmentation + * must be handled correctly anyway, there's no special check for + * avoiding it for alloc errors (this differs from Duktape 1.x). + */ +#if defined(DUK_USE_AUGMENT_ERROR_THROW) + DUK_DDD(DUK_DDDPRINT("THROW ERROR (INTERNAL): %!iT (before throw augment)", + (duk_tval *) duk_get_tval(thr, -1))); + duk_err_augment_error_throw(thr); +#endif + + duk_err_setup_ljstate1(thr, DUK_LJ_TYPE_THROW, DUK_GET_TVAL_NEGIDX(thr, -1)); + thr->heap->creating_error = 0; + + /* Error is now created and we assume no errors can occur any + * more. Check for debugger Throw integration only when the + * error is complete. If we enter debugger message loop, + * creating_error must be 0 so that errors can be thrown in + * the paused state, e.g. in Eval commands. + */ +#if defined(DUK_USE_DEBUGGER_SUPPORT) + duk_err_check_debugger_integration(thr); +#endif + } + + /* + * Finally, longjmp + */ + + DUK_DDD(DUK_DDDPRINT("THROW ERROR (INTERNAL): %!iT, %!iT (after throw augment)", + (duk_tval *) &thr->heap->lj.value1, (duk_tval *) &thr->heap->lj.value2)); + + duk_err_longjmp(thr); + DUK_UNREACHABLE(); +} + +/* + * Helper for C function call negative return values. + */ + +DUK_INTERNAL void duk_error_throw_from_negative_rc(duk_hthread *thr, duk_ret_t rc) { + DUK_ASSERT(thr != NULL); + DUK_ASSERT(rc < 0); + + /* + * The __FILE__ and __LINE__ information is intentionally not used in the + * creation of the error object, as it isn't useful in the tracedata. The + * tracedata still contains the function which returned the negative return + * code, and having the file/line of this function isn't very useful. + * + * The error messages for DUK_RET_xxx shorthand are intentionally very + * minimal: they're only really useful for low memory targets. + */ + + duk_error_raw(thr, -rc, NULL, 0, "error (rc %ld)", (long) rc); + DUK_WO_NORETURN(return;); +} +#line 1 "duk_hbuffer_alloc.c" +/* + * duk_hbuffer allocation and freeing. + */ + +/* #include duk_internal.h -> already included */ + +/* Allocate a new duk_hbuffer of a certain type and return a pointer to it + * (NULL on error). Write buffer data pointer to 'out_bufdata' (only if + * allocation successful). + */ +DUK_INTERNAL duk_hbuffer *duk_hbuffer_alloc(duk_heap *heap, duk_size_t size, duk_small_uint_t flags, void **out_bufdata) { + duk_hbuffer *res = NULL; + duk_size_t header_size; + duk_size_t alloc_size; + + DUK_ASSERT(heap != NULL); + DUK_ASSERT(out_bufdata != NULL); + + DUK_DDD(DUK_DDDPRINT("allocate hbuffer")); + + /* Size sanity check. Should not be necessary because caller is + * required to check this, but we don't want to cause a segfault + * if the size wraps either in duk_size_t computation or when + * storing the size in a 16-bit field. + */ + if (size > DUK_HBUFFER_MAX_BYTELEN) { + DUK_D(DUK_DPRINT("hbuffer alloc failed: size too large: %ld", (long) size)); + return NULL; /* no need to write 'out_bufdata' */ + } + + if (flags & DUK_BUF_FLAG_EXTERNAL) { + header_size = sizeof(duk_hbuffer_external); + alloc_size = sizeof(duk_hbuffer_external); + } else if (flags & DUK_BUF_FLAG_DYNAMIC) { + header_size = sizeof(duk_hbuffer_dynamic); + alloc_size = sizeof(duk_hbuffer_dynamic); + } else { + header_size = sizeof(duk_hbuffer_fixed); + alloc_size = sizeof(duk_hbuffer_fixed) + size; + DUK_ASSERT(alloc_size >= sizeof(duk_hbuffer_fixed)); /* no wrapping */ + } + + res = (duk_hbuffer *) DUK_ALLOC(heap, alloc_size); + if (DUK_UNLIKELY(res == NULL)) { + goto alloc_error; + } + + /* zero everything unless requested not to do so */ +#if defined(DUK_USE_ZERO_BUFFER_DATA) + duk_memzero((void *) res, + (flags & DUK_BUF_FLAG_NOZERO) ? header_size : alloc_size); +#else + duk_memzero((void *) res, header_size); +#endif + + if (flags & DUK_BUF_FLAG_EXTERNAL) { + duk_hbuffer_external *h; + h = (duk_hbuffer_external *) res; + DUK_UNREF(h); + *out_bufdata = NULL; +#if defined(DUK_USE_EXPLICIT_NULL_INIT) +#if defined(DUK_USE_HEAPPTR16) +/* the compressed pointer is zeroed which maps to NULL, so nothing to do. */ +#else + DUK_HBUFFER_EXTERNAL_SET_DATA_PTR(heap, h, NULL); +#endif +#endif + DUK_ASSERT(DUK_HBUFFER_EXTERNAL_GET_DATA_PTR(heap, h) == NULL); + } else if (flags & DUK_BUF_FLAG_DYNAMIC) { + duk_hbuffer_dynamic *h = (duk_hbuffer_dynamic *) res; + void *ptr; + + if (size > 0) { + DUK_ASSERT(!(flags & DUK_BUF_FLAG_EXTERNAL)); /* alloc external with size zero */ + DUK_DDD(DUK_DDDPRINT("dynamic buffer with nonzero size, alloc actual buffer")); +#if defined(DUK_USE_ZERO_BUFFER_DATA) + ptr = DUK_ALLOC_ZEROED(heap, size); +#else + ptr = DUK_ALLOC(heap, size); +#endif + if (DUK_UNLIKELY(ptr == NULL)) { + /* Because size > 0, NULL check is correct */ + goto alloc_error; + } + *out_bufdata = ptr; + + DUK_HBUFFER_DYNAMIC_SET_DATA_PTR(heap, h, ptr); + } else { + *out_bufdata = NULL; +#if defined(DUK_USE_EXPLICIT_NULL_INIT) +#if defined(DUK_USE_HEAPPTR16) +/* the compressed pointer is zeroed which maps to NULL, so nothing to do. */ +#else + DUK_HBUFFER_DYNAMIC_SET_DATA_PTR(heap, h, NULL); +#endif +#endif + DUK_ASSERT(DUK_HBUFFER_DYNAMIC_GET_DATA_PTR(heap, h) == NULL); + } + } else { + *out_bufdata = (void *) ((duk_hbuffer_fixed *) (void *) res + 1); + } + + DUK_HBUFFER_SET_SIZE(res, size); + + DUK_HEAPHDR_SET_TYPE(&res->hdr, DUK_HTYPE_BUFFER); + if (flags & DUK_BUF_FLAG_DYNAMIC) { + DUK_HBUFFER_SET_DYNAMIC(res); + if (flags & DUK_BUF_FLAG_EXTERNAL) { + DUK_HBUFFER_SET_EXTERNAL(res); + } + } else { + DUK_ASSERT(!(flags & DUK_BUF_FLAG_EXTERNAL)); + } + DUK_HEAP_INSERT_INTO_HEAP_ALLOCATED(heap, &res->hdr); + + DUK_DDD(DUK_DDDPRINT("allocated hbuffer: %p", (void *) res)); + return res; + + alloc_error: + DUK_DD(DUK_DDPRINT("hbuffer allocation failed")); + + DUK_FREE(heap, res); + return NULL; /* no need to write 'out_bufdata' */ +} + +/* For indirect allocs. */ + +DUK_INTERNAL void *duk_hbuffer_get_dynalloc_ptr(duk_heap *heap, void *ud) { + duk_hbuffer_dynamic *buf = (duk_hbuffer_dynamic *) ud; + DUK_UNREF(heap); + return (void *) DUK_HBUFFER_DYNAMIC_GET_DATA_PTR(heap, buf); +} +#line 1 "duk_hbuffer_assert.c" +/* + * duk_hbuffer assertion helpers + */ + +/* #include duk_internal.h -> already included */ + +#if defined(DUK_USE_ASSERTIONS) + +DUK_INTERNAL void duk_hbuffer_assert_valid(duk_hbuffer *h) { + DUK_ASSERT(h != NULL); +} + +#endif /* DUK_USE_ASSERTIONS */ +#line 1 "duk_hbuffer_ops.c" +/* + * duk_hbuffer operations such as resizing and inserting/appending data to + * a dynamic buffer. + */ + +/* #include duk_internal.h -> already included */ + +/* + * Resizing + */ + +DUK_INTERNAL void duk_hbuffer_resize(duk_hthread *thr, duk_hbuffer_dynamic *buf, duk_size_t new_size) { + void *res; + duk_size_t prev_size; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(buf != NULL); + DUK_ASSERT(DUK_HBUFFER_HAS_DYNAMIC(buf)); + DUK_ASSERT(!DUK_HBUFFER_HAS_EXTERNAL(buf)); + + /* + * Maximum size check + */ + + if (new_size > DUK_HBUFFER_MAX_BYTELEN) { + DUK_ERROR_RANGE(thr, "buffer too long"); + DUK_WO_NORETURN(return;); + } + + /* + * Note: use indirect realloc variant just in case mark-and-sweep + * (finalizers) might resize this same buffer during garbage + * collection. + */ + + res = DUK_REALLOC_INDIRECT(thr->heap, duk_hbuffer_get_dynalloc_ptr, (void *) buf, new_size); + if (DUK_LIKELY(res != NULL || new_size == 0)) { + /* 'res' may be NULL if new allocation size is 0. */ + + DUK_DDD(DUK_DDDPRINT("resized dynamic buffer %p:%ld -> %p:%ld", + (void *) DUK_HBUFFER_DYNAMIC_GET_DATA_PTR(thr->heap, buf), + (long) DUK_HBUFFER_DYNAMIC_GET_SIZE(buf), + (void *) res, + (long) new_size)); + + /* + * The entire allocated buffer area, regardless of actual used + * size, is kept zeroed in resizes for simplicity. If the buffer + * is grown, zero the new part. + */ + + prev_size = DUK_HBUFFER_DYNAMIC_GET_SIZE(buf); + if (new_size > prev_size) { + DUK_ASSERT(new_size - prev_size > 0); +#if defined(DUK_USE_ZERO_BUFFER_DATA) + duk_memzero((void *) ((char *) res + prev_size), + (duk_size_t) (new_size - prev_size)); +#endif + } + + DUK_HBUFFER_DYNAMIC_SET_SIZE(buf, new_size); + DUK_HBUFFER_DYNAMIC_SET_DATA_PTR(thr->heap, buf, res); + } else { + DUK_ERROR_ALLOC_FAILED(thr); + DUK_WO_NORETURN(return;); + } + + DUK_ASSERT(res != NULL || new_size == 0); +} + +DUK_INTERNAL void duk_hbuffer_reset(duk_hthread *thr, duk_hbuffer_dynamic *buf) { + DUK_ASSERT(thr != NULL); + DUK_ASSERT(buf != NULL); + DUK_ASSERT(DUK_HBUFFER_HAS_DYNAMIC(buf)); + DUK_ASSERT(!DUK_HBUFFER_HAS_EXTERNAL(buf)); + + duk_hbuffer_resize(thr, buf, 0); +} +/* #include duk_internal.h -> already included */ +#line 2 "duk_hbufobj_misc.c" + +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) +DUK_INTERNAL duk_uint_t duk_hbufobj_clamp_bytelength(duk_hbufobj *h_bufobj, duk_uint_t len) { + duk_uint_t buf_size; + duk_uint_t buf_avail; + + DUK_ASSERT(h_bufobj != NULL); + DUK_ASSERT(h_bufobj->buf != NULL); + + buf_size = (duk_uint_t) DUK_HBUFFER_GET_SIZE(h_bufobj->buf); + if (h_bufobj->offset > buf_size) { + /* Slice starting point is beyond current length. */ + return 0; + } + buf_avail = buf_size - h_bufobj->offset; + + return buf_avail >= len ? len : buf_avail; +} +#endif /* DUK_USE_BUFFEROBJECT_SUPPORT */ +#line 1 "duk_heap_alloc.c" +/* + * duk_heap allocation and freeing. + */ + +/* #include duk_internal.h -> already included */ + +#if defined(DUK_USE_ROM_STRINGS) +/* Fixed seed value used with ROM strings. */ +#define DUK__FIXED_HASH_SEED 0xabcd1234 +#endif + +/* + * Free a heap object. + * + * Free heap object and its internal (non-heap) pointers. Assumes that + * caller has removed the object from heap allocated list or the string + * intern table, and any weak references (which strings may have) have + * been already dealt with. + */ + +DUK_INTERNAL void duk_free_hobject(duk_heap *heap, duk_hobject *h) { + DUK_ASSERT(heap != NULL); + DUK_ASSERT(h != NULL); + + DUK_FREE(heap, DUK_HOBJECT_GET_PROPS(heap, h)); + + if (DUK_HOBJECT_IS_COMPFUNC(h)) { + duk_hcompfunc *f = (duk_hcompfunc *) h; + DUK_UNREF(f); + /* Currently nothing to free; 'data' is a heap object */ + } else if (DUK_HOBJECT_IS_NATFUNC(h)) { + duk_hnatfunc *f = (duk_hnatfunc *) h; + DUK_UNREF(f); + /* Currently nothing to free */ + } else if (DUK_HOBJECT_IS_THREAD(h)) { + duk_hthread *t = (duk_hthread *) h; + duk_activation *act; + + DUK_FREE(heap, t->valstack); + + /* Don't free h->resumer because it exists in the heap. + * Callstack entries also contain function pointers which + * are not freed for the same reason. They are decref + * finalized and the targets are freed if necessary based + * on their refcount (or reachability). + */ + for (act = t->callstack_curr; act != NULL;) { + duk_activation *act_next; + duk_catcher *cat; + + for (cat = act->cat; cat != NULL;) { + duk_catcher *cat_next; + + cat_next = cat->parent; + DUK_FREE(heap, (void *) cat); + cat = cat_next; + } + + act_next = act->parent; + DUK_FREE(heap, (void *) act); + act = act_next; + } + + /* XXX: with 'caller' property the callstack would need + * to be unwound to update the 'caller' properties of + * functions in the callstack. + */ + } else if (DUK_HOBJECT_IS_BOUNDFUNC(h)) { + duk_hboundfunc *f = (duk_hboundfunc *) (void *) h; + + DUK_FREE(heap, f->args); + } + + DUK_FREE(heap, (void *) h); +} + +DUK_INTERNAL void duk_free_hbuffer(duk_heap *heap, duk_hbuffer *h) { + DUK_ASSERT(heap != NULL); + DUK_ASSERT(h != NULL); + + if (DUK_HBUFFER_HAS_DYNAMIC(h) && !DUK_HBUFFER_HAS_EXTERNAL(h)) { + duk_hbuffer_dynamic *g = (duk_hbuffer_dynamic *) h; + DUK_DDD(DUK_DDDPRINT("free dynamic buffer %p", (void *) DUK_HBUFFER_DYNAMIC_GET_DATA_PTR(heap, g))); + DUK_FREE(heap, DUK_HBUFFER_DYNAMIC_GET_DATA_PTR(heap, g)); + } + DUK_FREE(heap, (void *) h); +} + +DUK_INTERNAL void duk_free_hstring(duk_heap *heap, duk_hstring *h) { + DUK_ASSERT(heap != NULL); + DUK_ASSERT(h != NULL); + + DUK_UNREF(heap); + DUK_UNREF(h); + +#if defined(DUK_USE_HSTRING_EXTDATA) && defined(DUK_USE_EXTSTR_FREE) + if (DUK_HSTRING_HAS_EXTDATA(h)) { + DUK_DDD(DUK_DDDPRINT("free extstr: hstring %!O, extdata: %p", + h, DUK_HSTRING_GET_EXTDATA((duk_hstring_external *) h))); + DUK_USE_EXTSTR_FREE(heap->heap_udata, (const void *) DUK_HSTRING_GET_EXTDATA((duk_hstring_external *) h)); + } +#endif + DUK_FREE(heap, (void *) h); +} + +DUK_INTERNAL void duk_heap_free_heaphdr_raw(duk_heap *heap, duk_heaphdr *hdr) { + DUK_ASSERT(heap); + DUK_ASSERT(hdr); + + DUK_DDD(DUK_DDDPRINT("free heaphdr %p, htype %ld", (void *) hdr, (long) DUK_HEAPHDR_GET_TYPE(hdr))); + + switch (DUK_HEAPHDR_GET_TYPE(hdr)) { + case DUK_HTYPE_STRING: + duk_free_hstring(heap, (duk_hstring *) hdr); + break; + case DUK_HTYPE_OBJECT: + duk_free_hobject(heap, (duk_hobject *) hdr); + break; + default: + DUK_ASSERT(DUK_HEAPHDR_GET_TYPE(hdr) == DUK_HTYPE_BUFFER); + duk_free_hbuffer(heap, (duk_hbuffer *) hdr); + } + +} + +/* + * Free the heap. + * + * Frees heap-related non-heap-tracked allocations such as the + * string intern table; then frees the heap allocated objects; + * and finally frees the heap structure itself. Reference counts + * and GC markers are ignored (and not updated) in this process, + * and finalizers won't be called. + * + * The heap pointer and heap object pointers must not be used + * after this call. + */ + +#if defined(DUK_USE_CACHE_ACTIVATION) +DUK_LOCAL duk_size_t duk__heap_free_activation_freelist(duk_heap *heap) { + duk_activation *act; + duk_activation *act_next; + duk_size_t count_act = 0; + + for (act = heap->activation_free; act != NULL;) { + act_next = act->parent; + DUK_FREE(heap, (void *) act); + act = act_next; +#if defined(DUK_USE_DEBUG) + count_act++; +#endif + } + heap->activation_free = NULL; /* needed when called from mark-and-sweep */ + return count_act; +} +#endif /* DUK_USE_CACHE_ACTIVATION */ + +#if defined(DUK_USE_CACHE_CATCHER) +DUK_LOCAL duk_size_t duk__heap_free_catcher_freelist(duk_heap *heap) { + duk_catcher *cat; + duk_catcher *cat_next; + duk_size_t count_cat = 0; + + for (cat = heap->catcher_free; cat != NULL;) { + cat_next = cat->parent; + DUK_FREE(heap, (void *) cat); + cat = cat_next; +#if defined(DUK_USE_DEBUG) + count_cat++; +#endif + } + heap->catcher_free = NULL; /* needed when called from mark-and-sweep */ + + return count_cat; +} +#endif /* DUK_USE_CACHE_CATCHER */ + +DUK_INTERNAL void duk_heap_free_freelists(duk_heap *heap) { + duk_size_t count_act = 0; + duk_size_t count_cat = 0; + +#if defined(DUK_USE_CACHE_ACTIVATION) + count_act = duk__heap_free_activation_freelist(heap); +#endif +#if defined(DUK_USE_CACHE_CATCHER) + count_cat = duk__heap_free_catcher_freelist(heap); +#endif + DUK_UNREF(heap); + DUK_UNREF(count_act); + DUK_UNREF(count_cat); + + DUK_D(DUK_DPRINT("freed %ld activation freelist entries, %ld catcher freelist entries", + (long) count_act, (long) count_cat)); +} + +DUK_LOCAL void duk__free_allocated(duk_heap *heap) { + duk_heaphdr *curr; + duk_heaphdr *next; + + curr = heap->heap_allocated; + while (curr) { + /* We don't log or warn about freeing zero refcount objects + * because they may happen with finalizer processing. + */ + + DUK_DDD(DUK_DDDPRINT("FINALFREE (allocated): %!iO", + (duk_heaphdr *) curr)); + next = DUK_HEAPHDR_GET_NEXT(heap, curr); + duk_heap_free_heaphdr_raw(heap, curr); + curr = next; + } +} + +#if defined(DUK_USE_FINALIZER_SUPPORT) +DUK_LOCAL void duk__free_finalize_list(duk_heap *heap) { + duk_heaphdr *curr; + duk_heaphdr *next; + + curr = heap->finalize_list; + while (curr) { + DUK_DDD(DUK_DDDPRINT("FINALFREE (finalize_list): %!iO", + (duk_heaphdr *) curr)); + next = DUK_HEAPHDR_GET_NEXT(heap, curr); + duk_heap_free_heaphdr_raw(heap, curr); + curr = next; + } +} +#endif /* DUK_USE_FINALIZER_SUPPORT */ + +DUK_LOCAL void duk__free_stringtable(duk_heap *heap) { + /* strings are only tracked by stringtable */ + duk_heap_strtable_free(heap); +} + +#if defined(DUK_USE_FINALIZER_SUPPORT) +DUK_LOCAL void duk__free_run_finalizers(duk_heap *heap) { + duk_heaphdr *curr; + duk_uint_t round_no; + duk_size_t count_all; + duk_size_t count_finalized; + duk_size_t curr_limit; + + DUK_ASSERT(heap != NULL); + +#if defined(DUK_USE_REFERENCE_COUNTING) + DUK_ASSERT(heap->refzero_list == NULL); /* refzero not running -> must be empty */ +#endif + DUK_ASSERT(heap->finalize_list == NULL); /* mark-and-sweep last pass */ + + if (heap->heap_thread == NULL) { + /* May happen when heap allocation fails right off. There + * cannot be any finalizable objects in this case. + */ + DUK_D(DUK_DPRINT("no heap_thread in heap destruct, assume no finalizable objects")); + return; + } + + /* Prevent finalize_list processing and mark-and-sweep entirely. + * Setting ms_running != 0 also prevents refzero handling from moving + * objects away from the heap_allocated list. The flag name is a bit + * misleading here. + * + * Use a distinct value for ms_running here (== 2) so that assertions + * can detect this situation separate from the normal runtime + * mark-and-sweep case. This allows better assertions (GH-2030). + */ + DUK_ASSERT(heap->pf_prevent_count == 0); + DUK_ASSERT(heap->ms_running == 0); + DUK_ASSERT(heap->ms_prevent_count == 0); + heap->pf_prevent_count = 1; + heap->ms_running = 2; /* Use distinguishable value. */ + heap->ms_prevent_count = 1; /* Bump, because mark-and-sweep assumes it's bumped when ms_running is set. */ + + curr_limit = 0; /* suppress warning, not used */ + for (round_no = 0; ; round_no++) { + curr = heap->heap_allocated; + count_all = 0; + count_finalized = 0; + while (curr) { + count_all++; + if (DUK_HEAPHDR_IS_OBJECT(curr)) { + /* Only objects in heap_allocated may have finalizers. Check that + * the object itself has a _Finalizer property (own or inherited) + * so that we don't execute finalizers for e.g. Proxy objects. + */ + DUK_ASSERT(curr != NULL); + + if (DUK_HOBJECT_HAS_FINALIZER_FAST(heap, (duk_hobject *) curr)) { + if (!DUK_HEAPHDR_HAS_FINALIZED((duk_heaphdr *) curr)) { + DUK_ASSERT(DUK_HEAP_HAS_FINALIZER_NORESCUE(heap)); /* maps to finalizer 2nd argument */ + duk_heap_run_finalizer(heap, (duk_hobject *) curr); + count_finalized++; + } + } + } + curr = DUK_HEAPHDR_GET_NEXT(heap, curr); + } + + /* Each round of finalizer execution may spawn new finalizable objects + * which is normal behavior for some applications. Allow multiple + * rounds of finalization, but use a shrinking limit based on the + * first round to detect the case where a runaway finalizer creates + * an unbounded amount of new finalizable objects. Finalizer rescue + * is not supported: the semantics are unclear because most of the + * objects being finalized here are already reachable. The finalizer + * is given a boolean to indicate that rescue is not possible. + * + * See discussion in: https://github.com/svaarala/duktape/pull/473 + */ + + if (round_no == 0) { + /* Cannot wrap: each object is at least 8 bytes so count is + * at most 1/8 of that. + */ + curr_limit = count_all * 2; + } else { + curr_limit = (curr_limit * 3) / 4; /* Decrease by 25% every round */ + } + DUK_D(DUK_DPRINT("finalizer round %ld complete, %ld objects, tried to execute %ld finalizers, current limit is %ld", + (long) round_no, (long) count_all, (long) count_finalized, (long) curr_limit)); + + if (count_finalized == 0) { + DUK_D(DUK_DPRINT("no more finalizable objects, forced finalization finished")); + break; + } + if (count_finalized >= curr_limit) { + DUK_D(DUK_DPRINT("finalizer count above limit, potentially runaway finalizer; skip remaining finalizers")); + break; + } + } + + DUK_ASSERT(heap->ms_running == 2); + DUK_ASSERT(heap->pf_prevent_count == 1); + heap->ms_running = 0; + heap->pf_prevent_count = 0; +} +#endif /* DUK_USE_FINALIZER_SUPPORT */ + +DUK_INTERNAL void duk_heap_free(duk_heap *heap) { + DUK_D(DUK_DPRINT("free heap: %p", (void *) heap)); + +#if defined(DUK_USE_DEBUG) + duk_heap_strtable_dump(heap); +#endif + +#if defined(DUK_USE_DEBUGGER_SUPPORT) + /* Detach a debugger if attached (can be called multiple times) + * safely. + */ + /* XXX: Add a flag to reject an attempt to re-attach? Otherwise + * the detached callback may immediately reattach. + */ + duk_debug_do_detach(heap); +#endif + + /* Execute finalizers before freeing the heap, even for reachable + * objects. This gives finalizers the chance to free any native + * resources like file handles, allocations made outside Duktape, + * etc. This is quite tricky to get right, so that all finalizer + * guarantees are honored. + * + * Run mark-and-sweep a few times just in case (unreachable object + * finalizers run already here). The last round must rescue objects + * from the previous round without running any more finalizers. This + * ensures rescued objects get their FINALIZED flag cleared so that + * their finalizer is called once more in forced finalization to + * satisfy finalizer guarantees. However, we don't want to run any + * more finalizers because that'd required one more loop, and so on. + * + * XXX: this perhaps requires an execution time limit. + */ + DUK_D(DUK_DPRINT("execute finalizers before freeing heap")); + DUK_ASSERT(heap->pf_skip_finalizers == 0); + DUK_D(DUK_DPRINT("forced gc #1 in heap destruction")); + duk_heap_mark_and_sweep(heap, 0); + DUK_D(DUK_DPRINT("forced gc #2 in heap destruction")); + duk_heap_mark_and_sweep(heap, 0); + DUK_D(DUK_DPRINT("forced gc #3 in heap destruction (don't run finalizers)")); + heap->pf_skip_finalizers = 1; + duk_heap_mark_and_sweep(heap, 0); /* Skip finalizers; queue finalizable objects to heap_allocated. */ + + /* There are never objects in refzero_list at this point, or at any + * point beyond a DECREF (even a DECREF_NORZ). Since Duktape 2.1 + * refzero_list processing is side effect free, so it is always + * processed to completion by a DECREF initially triggering a zero + * refcount. + */ +#if defined(DUK_USE_REFERENCE_COUNTING) + DUK_ASSERT(heap->refzero_list == NULL); /* Always processed to completion inline. */ +#endif +#if defined(DUK_USE_FINALIZER_SUPPORT) + DUK_ASSERT(heap->finalize_list == NULL); /* Last mark-and-sweep with skip_finalizers. */ +#endif + +#if defined(DUK_USE_FINALIZER_SUPPORT) + DUK_D(DUK_DPRINT("run finalizers for remaining finalizable objects")); + DUK_HEAP_SET_FINALIZER_NORESCUE(heap); /* Rescue no longer supported. */ + duk__free_run_finalizers(heap); +#endif /* DUK_USE_FINALIZER_SUPPORT */ + + /* Note: heap->heap_thread, heap->curr_thread, and heap->heap_object + * are on the heap allocated list. + */ + + DUK_D(DUK_DPRINT("freeing temporary freelists")); + duk_heap_free_freelists(heap); + + DUK_D(DUK_DPRINT("freeing heap_allocated of heap: %p", (void *) heap)); + duk__free_allocated(heap); + +#if defined(DUK_USE_REFERENCE_COUNTING) + DUK_ASSERT(heap->refzero_list == NULL); /* Always processed to completion inline. */ +#endif + +#if defined(DUK_USE_FINALIZER_SUPPORT) + DUK_D(DUK_DPRINT("freeing finalize_list of heap: %p", (void *) heap)); + duk__free_finalize_list(heap); +#endif + + DUK_D(DUK_DPRINT("freeing string table of heap: %p", (void *) heap)); + duk__free_stringtable(heap); + + DUK_D(DUK_DPRINT("freeing heap structure: %p", (void *) heap)); + heap->free_func(heap->heap_udata, heap); +} + +/* + * Allocate a heap. + * + * String table is initialized with built-in strings from genbuiltins.py, + * either by dynamically creating the strings or by referring to ROM strings. + */ + +#if defined(DUK_USE_ROM_STRINGS) +DUK_LOCAL duk_bool_t duk__init_heap_strings(duk_heap *heap) { +#if defined(DUK_USE_ASSERTIONS) + duk_small_uint_t i; +#endif + + DUK_UNREF(heap); + + /* With ROM-based strings, heap->strs[] and thr->strs[] are omitted + * so nothing to initialize for strs[]. + */ + +#if defined(DUK_USE_ASSERTIONS) + for (i = 0; i < sizeof(duk_rom_strings_lookup) / sizeof(const duk_hstring *); i++) { + const duk_hstring *h; + duk_uint32_t hash; + + h = duk_rom_strings_lookup[i]; + while (h != NULL) { + hash = duk_heap_hashstring(heap, (const duk_uint8_t *) DUK_HSTRING_GET_DATA(h), DUK_HSTRING_GET_BYTELEN(h)); + DUK_DD(DUK_DDPRINT("duk_rom_strings_lookup[%d] -> hash 0x%08lx, computed 0x%08lx", + (int) i, (unsigned long) DUK_HSTRING_GET_HASH(h), (unsigned long) hash)); + DUK_ASSERT(hash == (duk_uint32_t) DUK_HSTRING_GET_HASH(h)); + + h = (const duk_hstring *) h->hdr.h_next; + } + } +#endif + return 1; +} +#else /* DUK_USE_ROM_STRINGS */ + +DUK_LOCAL duk_bool_t duk__init_heap_strings(duk_heap *heap) { + duk_bitdecoder_ctx bd_ctx; + duk_bitdecoder_ctx *bd = &bd_ctx; /* convenience */ + duk_small_uint_t i; + + duk_memzero(&bd_ctx, sizeof(bd_ctx)); + bd->data = (const duk_uint8_t *) duk_strings_data; + bd->length = (duk_size_t) DUK_STRDATA_DATA_LENGTH; + + for (i = 0; i < DUK_HEAP_NUM_STRINGS; i++) { + duk_uint8_t tmp[DUK_STRDATA_MAX_STRLEN]; + duk_small_uint_t len; + duk_hstring *h; + + len = duk_bd_decode_bitpacked_string(bd, tmp); + + /* No need to length check string: it will never exceed even + * the 16-bit length maximum. + */ + DUK_ASSERT(len <= 0xffffUL); + DUK_DDD(DUK_DDDPRINT("intern built-in string %ld", (long) i)); + h = duk_heap_strtable_intern(heap, tmp, len); + if (!h) { + goto failed; + } + DUK_ASSERT(!DUK_HEAPHDR_HAS_READONLY((duk_heaphdr *) h)); + + /* Special flags checks. Since these strings are always + * reachable and a string cannot appear twice in the string + * table, there's no need to check/set these flags elsewhere. + * The 'internal' flag is set by string intern code. + */ + if (i == DUK_STRIDX_EVAL || i == DUK_STRIDX_LC_ARGUMENTS) { + DUK_HSTRING_SET_EVAL_OR_ARGUMENTS(h); + } + if (i >= DUK_STRIDX_START_RESERVED && i < DUK_STRIDX_END_RESERVED) { + DUK_HSTRING_SET_RESERVED_WORD(h); + if (i >= DUK_STRIDX_START_STRICT_RESERVED) { + DUK_HSTRING_SET_STRICT_RESERVED_WORD(h); + } + } + + DUK_DDD(DUK_DDDPRINT("interned: %!O", (duk_heaphdr *) h)); + + /* XXX: The incref macro takes a thread pointer but doesn't + * use it right now. + */ + DUK_HSTRING_INCREF(_never_referenced_, h); + +#if defined(DUK_USE_HEAPPTR16) + heap->strs16[i] = DUK_USE_HEAPPTR_ENC16(heap->heap_udata, (void *) h); +#else + heap->strs[i] = h; +#endif + } + + return 1; + + failed: + return 0; +} +#endif /* DUK_USE_ROM_STRINGS */ + +DUK_LOCAL duk_bool_t duk__init_heap_thread(duk_heap *heap) { + duk_hthread *thr; + + DUK_D(DUK_DPRINT("heap init: alloc heap thread")); + thr = duk_hthread_alloc_unchecked(heap, + DUK_HOBJECT_FLAG_EXTENSIBLE | + DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_THREAD)); + if (thr == NULL) { + DUK_D(DUK_DPRINT("failed to alloc heap_thread")); + return 0; + } + thr->state = DUK_HTHREAD_STATE_INACTIVE; +#if defined(DUK_USE_ROM_STRINGS) + /* No strs[] pointer. */ +#else /* DUK_USE_ROM_STRINGS */ +#if defined(DUK_USE_HEAPPTR16) + thr->strs16 = heap->strs16; +#else + thr->strs = heap->strs; +#endif +#endif /* DUK_USE_ROM_STRINGS */ + + heap->heap_thread = thr; + DUK_HTHREAD_INCREF(thr, thr); /* Note: first argument not really used */ + + /* 'thr' is now reachable */ + + DUK_D(DUK_DPRINT("heap init: init heap thread stacks")); + if (!duk_hthread_init_stacks(heap, thr)) { + return 0; + } + + /* XXX: this may now fail, and is not handled correctly */ + duk_hthread_create_builtin_objects(thr); + + /* default prototype */ + DUK_HOBJECT_SET_PROTOTYPE_INIT_INCREF(thr, (duk_hobject *) thr, thr->builtins[DUK_BIDX_THREAD_PROTOTYPE]); + + return 1; +} + +#if defined(DUK_USE_DEBUG) +#define DUK__DUMPSZ(t) do { \ + DUK_D(DUK_DPRINT("" #t "=%ld", (long) sizeof(t))); \ + } while (0) + +/* These is not 100% because format would need to be non-portable "long long". + * Also print out as doubles to catch cases where the "long" type is not wide + * enough; the limits will then not be printed accurately but the magnitude + * will be correct. + */ +#define DUK__DUMPLM_SIGNED_RAW(t,a,b) do { \ + DUK_D(DUK_DPRINT(t "=[%ld,%ld]=[%lf,%lf]", \ + (long) (a), (long) (b), \ + (double) (a), (double) (b))); \ + } while (0) +#define DUK__DUMPLM_UNSIGNED_RAW(t,a,b) do { \ + DUK_D(DUK_DPRINT(t "=[%lu,%lu]=[%lf,%lf]", \ + (unsigned long) (a), (unsigned long) (b), \ + (double) (a), (double) (b))); \ + } while (0) +#define DUK__DUMPLM_SIGNED(t) do { \ + DUK__DUMPLM_SIGNED_RAW("DUK_" #t "_{MIN,MAX}", DUK_##t##_MIN, DUK_##t##_MAX); \ + } while (0) +#define DUK__DUMPLM_UNSIGNED(t) do { \ + DUK__DUMPLM_UNSIGNED_RAW("DUK_" #t "_{MIN,MAX}", DUK_##t##_MIN, DUK_##t##_MAX); \ + } while (0) + +DUK_LOCAL void duk__dump_type_sizes(void) { + DUK_D(DUK_DPRINT("sizeof()")); + + /* basic platform types */ + DUK__DUMPSZ(char); + DUK__DUMPSZ(short); + DUK__DUMPSZ(int); + DUK__DUMPSZ(long); + DUK__DUMPSZ(double); + DUK__DUMPSZ(void *); + DUK__DUMPSZ(size_t); + + /* basic types from duk_features.h */ + DUK__DUMPSZ(duk_uint8_t); + DUK__DUMPSZ(duk_int8_t); + DUK__DUMPSZ(duk_uint16_t); + DUK__DUMPSZ(duk_int16_t); + DUK__DUMPSZ(duk_uint32_t); + DUK__DUMPSZ(duk_int32_t); + DUK__DUMPSZ(duk_uint64_t); + DUK__DUMPSZ(duk_int64_t); + DUK__DUMPSZ(duk_uint_least8_t); + DUK__DUMPSZ(duk_int_least8_t); + DUK__DUMPSZ(duk_uint_least16_t); + DUK__DUMPSZ(duk_int_least16_t); + DUK__DUMPSZ(duk_uint_least32_t); + DUK__DUMPSZ(duk_int_least32_t); +#if defined(DUK_USE_64BIT_OPS) + DUK__DUMPSZ(duk_uint_least64_t); + DUK__DUMPSZ(duk_int_least64_t); +#endif + DUK__DUMPSZ(duk_uint_fast8_t); + DUK__DUMPSZ(duk_int_fast8_t); + DUK__DUMPSZ(duk_uint_fast16_t); + DUK__DUMPSZ(duk_int_fast16_t); + DUK__DUMPSZ(duk_uint_fast32_t); + DUK__DUMPSZ(duk_int_fast32_t); +#if defined(DUK_USE_64BIT_OPS) + DUK__DUMPSZ(duk_uint_fast64_t); + DUK__DUMPSZ(duk_int_fast64_t); +#endif + DUK__DUMPSZ(duk_uintptr_t); + DUK__DUMPSZ(duk_intptr_t); + DUK__DUMPSZ(duk_uintmax_t); + DUK__DUMPSZ(duk_intmax_t); + DUK__DUMPSZ(duk_double_t); + + /* important chosen base types */ + DUK__DUMPSZ(duk_int_t); + DUK__DUMPSZ(duk_uint_t); + DUK__DUMPSZ(duk_int_fast_t); + DUK__DUMPSZ(duk_uint_fast_t); + DUK__DUMPSZ(duk_small_int_t); + DUK__DUMPSZ(duk_small_uint_t); + DUK__DUMPSZ(duk_small_int_fast_t); + DUK__DUMPSZ(duk_small_uint_fast_t); + + /* some derived types */ + DUK__DUMPSZ(duk_codepoint_t); + DUK__DUMPSZ(duk_ucodepoint_t); + DUK__DUMPSZ(duk_idx_t); + DUK__DUMPSZ(duk_errcode_t); + DUK__DUMPSZ(duk_uarridx_t); + + /* tval */ + DUK__DUMPSZ(duk_double_union); + DUK__DUMPSZ(duk_tval); + + /* structs from duk_forwdecl.h */ + DUK__DUMPSZ(duk_jmpbuf); /* just one 'int' for C++ exceptions */ + DUK__DUMPSZ(duk_heaphdr); + DUK__DUMPSZ(duk_heaphdr_string); + DUK__DUMPSZ(duk_hstring); + DUK__DUMPSZ(duk_hstring_external); + DUK__DUMPSZ(duk_hobject); + DUK__DUMPSZ(duk_harray); + DUK__DUMPSZ(duk_hcompfunc); + DUK__DUMPSZ(duk_hnatfunc); + DUK__DUMPSZ(duk_hdecenv); + DUK__DUMPSZ(duk_hobjenv); + DUK__DUMPSZ(duk_hthread); +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) + DUK__DUMPSZ(duk_hbufobj); +#endif + DUK__DUMPSZ(duk_hproxy); + DUK__DUMPSZ(duk_hbuffer); + DUK__DUMPSZ(duk_hbuffer_fixed); + DUK__DUMPSZ(duk_hbuffer_dynamic); + DUK__DUMPSZ(duk_hbuffer_external); + DUK__DUMPSZ(duk_propaccessor); + DUK__DUMPSZ(duk_propvalue); + DUK__DUMPSZ(duk_propdesc); + DUK__DUMPSZ(duk_heap); + DUK__DUMPSZ(duk_activation); + DUK__DUMPSZ(duk_catcher); + DUK__DUMPSZ(duk_strcache_entry); + DUK__DUMPSZ(duk_litcache_entry); + DUK__DUMPSZ(duk_ljstate); + DUK__DUMPSZ(duk_fixedbuffer); + DUK__DUMPSZ(duk_bitdecoder_ctx); + DUK__DUMPSZ(duk_bitencoder_ctx); + DUK__DUMPSZ(duk_token); + DUK__DUMPSZ(duk_re_token); + DUK__DUMPSZ(duk_lexer_point); + DUK__DUMPSZ(duk_lexer_ctx); + DUK__DUMPSZ(duk_compiler_instr); + DUK__DUMPSZ(duk_compiler_func); + DUK__DUMPSZ(duk_compiler_ctx); + DUK__DUMPSZ(duk_re_matcher_ctx); + DUK__DUMPSZ(duk_re_compiler_ctx); +} +DUK_LOCAL void duk__dump_type_limits(void) { + DUK_D(DUK_DPRINT("limits")); + + /* basic types */ + DUK__DUMPLM_SIGNED(INT8); + DUK__DUMPLM_UNSIGNED(UINT8); + DUK__DUMPLM_SIGNED(INT_FAST8); + DUK__DUMPLM_UNSIGNED(UINT_FAST8); + DUK__DUMPLM_SIGNED(INT_LEAST8); + DUK__DUMPLM_UNSIGNED(UINT_LEAST8); + DUK__DUMPLM_SIGNED(INT16); + DUK__DUMPLM_UNSIGNED(UINT16); + DUK__DUMPLM_SIGNED(INT_FAST16); + DUK__DUMPLM_UNSIGNED(UINT_FAST16); + DUK__DUMPLM_SIGNED(INT_LEAST16); + DUK__DUMPLM_UNSIGNED(UINT_LEAST16); + DUK__DUMPLM_SIGNED(INT32); + DUK__DUMPLM_UNSIGNED(UINT32); + DUK__DUMPLM_SIGNED(INT_FAST32); + DUK__DUMPLM_UNSIGNED(UINT_FAST32); + DUK__DUMPLM_SIGNED(INT_LEAST32); + DUK__DUMPLM_UNSIGNED(UINT_LEAST32); +#if defined(DUK_USE_64BIT_OPS) + DUK__DUMPLM_SIGNED(INT64); + DUK__DUMPLM_UNSIGNED(UINT64); + DUK__DUMPLM_SIGNED(INT_FAST64); + DUK__DUMPLM_UNSIGNED(UINT_FAST64); + DUK__DUMPLM_SIGNED(INT_LEAST64); + DUK__DUMPLM_UNSIGNED(UINT_LEAST64); +#endif + DUK__DUMPLM_SIGNED(INTPTR); + DUK__DUMPLM_UNSIGNED(UINTPTR); + DUK__DUMPLM_SIGNED(INTMAX); + DUK__DUMPLM_UNSIGNED(UINTMAX); + + /* derived types */ + DUK__DUMPLM_SIGNED(INT); + DUK__DUMPLM_UNSIGNED(UINT); + DUK__DUMPLM_SIGNED(INT_FAST); + DUK__DUMPLM_UNSIGNED(UINT_FAST); + DUK__DUMPLM_SIGNED(SMALL_INT); + DUK__DUMPLM_UNSIGNED(SMALL_UINT); + DUK__DUMPLM_SIGNED(SMALL_INT_FAST); + DUK__DUMPLM_UNSIGNED(SMALL_UINT_FAST); +} + +DUK_LOCAL void duk__dump_misc_options(void) { + DUK_D(DUK_DPRINT("DUK_VERSION: %ld", (long) DUK_VERSION)); + DUK_D(DUK_DPRINT("DUK_GIT_DESCRIBE: %s", DUK_GIT_DESCRIBE)); + DUK_D(DUK_DPRINT("OS string: %s", DUK_USE_OS_STRING)); + DUK_D(DUK_DPRINT("architecture string: %s", DUK_USE_ARCH_STRING)); + DUK_D(DUK_DPRINT("compiler string: %s", DUK_USE_COMPILER_STRING)); + DUK_D(DUK_DPRINT("debug level: %ld", (long) DUK_USE_DEBUG_LEVEL)); +#if defined(DUK_USE_PACKED_TVAL) + DUK_D(DUK_DPRINT("DUK_USE_PACKED_TVAL: yes")); +#else + DUK_D(DUK_DPRINT("DUK_USE_PACKED_TVAL: no")); +#endif +#if defined(DUK_USE_VARIADIC_MACROS) + DUK_D(DUK_DPRINT("DUK_USE_VARIADIC_MACROS: yes")); +#else + DUK_D(DUK_DPRINT("DUK_USE_VARIADIC_MACROS: no")); +#endif +#if defined(DUK_USE_INTEGER_LE) + DUK_D(DUK_DPRINT("integer endianness: little")); +#elif defined(DUK_USE_INTEGER_ME) + DUK_D(DUK_DPRINT("integer endianness: mixed")); +#elif defined(DUK_USE_INTEGER_BE) + DUK_D(DUK_DPRINT("integer endianness: big")); +#else + DUK_D(DUK_DPRINT("integer endianness: ???")); +#endif +#if defined(DUK_USE_DOUBLE_LE) + DUK_D(DUK_DPRINT("IEEE double endianness: little")); +#elif defined(DUK_USE_DOUBLE_ME) + DUK_D(DUK_DPRINT("IEEE double endianness: mixed")); +#elif defined(DUK_USE_DOUBLE_BE) + DUK_D(DUK_DPRINT("IEEE double endianness: big")); +#else + DUK_D(DUK_DPRINT("IEEE double endianness: ???")); +#endif +} +#endif /* DUK_USE_DEBUG */ + +DUK_INTERNAL +duk_heap *duk_heap_alloc(duk_alloc_function alloc_func, + duk_realloc_function realloc_func, + duk_free_function free_func, + void *heap_udata, + duk_fatal_function fatal_func) { + duk_heap *res = NULL; + duk_uint32_t st_initsize; + + DUK_D(DUK_DPRINT("allocate heap")); + + /* + * Random config sanity asserts + */ + + DUK_ASSERT(DUK_USE_STRTAB_MINSIZE >= 64); + + DUK_ASSERT((DUK_HTYPE_STRING & 0x01U) == 0); + DUK_ASSERT((DUK_HTYPE_BUFFER & 0x01U) == 0); + DUK_ASSERT((DUK_HTYPE_OBJECT & 0x01U) == 1); /* DUK_HEAPHDR_IS_OBJECT() relies ont his. */ + + /* + * Debug dump type sizes + */ + +#if defined(DUK_USE_DEBUG) + duk__dump_misc_options(); + duk__dump_type_sizes(); + duk__dump_type_limits(); +#endif + + /* + * If selftests enabled, run them as early as possible. + */ + +#if defined(DUK_USE_SELF_TESTS) + DUK_D(DUK_DPRINT("run self tests")); + if (duk_selftest_run_tests(alloc_func, realloc_func, free_func, heap_udata) > 0) { + fatal_func(heap_udata, "self test(s) failed"); + } + DUK_D(DUK_DPRINT("self tests passed")); +#endif + + /* + * Important assert-like checks that should be enabled even + * when assertions are otherwise not enabled. + */ + +#if defined(DUK_USE_EXEC_REGCONST_OPTIMIZE) + /* Can't check sizeof() using preprocessor so explicit check. + * This will be optimized away in practice; unfortunately a + * warning is generated on some compilers as a result. + */ +#if defined(DUK_USE_PACKED_TVAL) + if (sizeof(duk_tval) != 8) { +#else + if (sizeof(duk_tval) != 16) { +#endif + fatal_func(heap_udata, "sizeof(duk_tval) not 8 or 16, cannot use DUK_USE_EXEC_REGCONST_OPTIMIZE option"); + } +#endif /* DUK_USE_EXEC_REGCONST_OPTIMIZE */ + + /* + * Computed values (e.g. INFINITY) + */ + +#if defined(DUK_USE_COMPUTED_NAN) + do { + /* Workaround for some exotic platforms where NAN is missing + * and the expression (0.0 / 0.0) does NOT result in a NaN. + * Such platforms use the global 'duk_computed_nan' which must + * be initialized at runtime. Use 'volatile' to ensure that + * the compiler will actually do the computation and not try + * to do constant folding which might result in the original + * problem. + */ + volatile double dbl1 = 0.0; + volatile double dbl2 = 0.0; + duk_computed_nan = dbl1 / dbl2; + } while (0); +#endif + +#if defined(DUK_USE_COMPUTED_INFINITY) + do { + /* Similar workaround for INFINITY. */ + volatile double dbl1 = 1.0; + volatile double dbl2 = 0.0; + duk_computed_infinity = dbl1 / dbl2; + } while (0); +#endif + + /* + * Allocate heap struct + * + * Use a raw call, all macros expect the heap to be initialized + */ + +#if defined(DUK_USE_INJECT_HEAP_ALLOC_ERROR) && (DUK_USE_INJECT_HEAP_ALLOC_ERROR == 1) + goto failed; +#endif + DUK_D(DUK_DPRINT("alloc duk_heap object")); + res = (duk_heap *) alloc_func(heap_udata, sizeof(duk_heap)); + if (!res) { + goto failed; + } + + /* + * Zero the struct, and start initializing roughly in order + */ + + duk_memzero(res, sizeof(*res)); +#if defined(DUK_USE_ASSERTIONS) + res->heap_initializing = 1; +#endif + + /* explicit NULL inits */ +#if defined(DUK_USE_EXPLICIT_NULL_INIT) + res->heap_udata = NULL; + res->heap_allocated = NULL; +#if defined(DUK_USE_REFERENCE_COUNTING) + res->refzero_list = NULL; +#endif +#if defined(DUK_USE_FINALIZER_SUPPORT) + res->finalize_list = NULL; +#if defined(DUK_USE_ASSERTIONS) + res->currently_finalizing = NULL; +#endif +#endif +#if defined(DUK_USE_CACHE_ACTIVATION) + res->activation_free = NULL; +#endif +#if defined(DUK_USE_CACHE_CATCHER) + res->catcher_free = NULL; +#endif + res->heap_thread = NULL; + res->curr_thread = NULL; + res->heap_object = NULL; +#if defined(DUK_USE_STRTAB_PTRCOMP) + res->strtable16 = NULL; +#else + res->strtable = NULL; +#endif +#if defined(DUK_USE_ROM_STRINGS) + /* no res->strs[] */ +#else /* DUK_USE_ROM_STRINGS */ +#if defined(DUK_USE_HEAPPTR16) + /* res->strs16[] is zeroed and zero decodes to NULL, so no NULL inits. */ +#else + { + duk_small_uint_t i; + for (i = 0; i < DUK_HEAP_NUM_STRINGS; i++) { + res->strs[i] = NULL; + } + } +#endif +#endif /* DUK_USE_ROM_STRINGS */ +#if defined(DUK_USE_DEBUGGER_SUPPORT) + res->dbg_read_cb = NULL; + res->dbg_write_cb = NULL; + res->dbg_peek_cb = NULL; + res->dbg_read_flush_cb = NULL; + res->dbg_write_flush_cb = NULL; + res->dbg_request_cb = NULL; + res->dbg_udata = NULL; + res->dbg_pause_act = NULL; +#endif +#endif /* DUK_USE_EXPLICIT_NULL_INIT */ + + res->alloc_func = alloc_func; + res->realloc_func = realloc_func; + res->free_func = free_func; + res->heap_udata = heap_udata; + res->fatal_func = fatal_func; + + /* XXX: for now there's a pointer packing zero assumption, i.e. + * NULL <=> compressed pointer 0. If this is removed, may need + * to precompute e.g. null16 here. + */ + + /* res->ms_trigger_counter == 0 -> now causes immediate GC; which is OK */ + + /* Prevent mark-and-sweep and finalizer execution until heap is completely + * initialized. + */ + DUK_ASSERT(res->ms_prevent_count == 0); + DUK_ASSERT(res->pf_prevent_count == 0); + res->ms_prevent_count = 1; + res->pf_prevent_count = 1; + DUK_ASSERT(res->ms_running == 0); + + res->call_recursion_depth = 0; + res->call_recursion_limit = DUK_USE_NATIVE_CALL_RECLIMIT; + + /* XXX: use the pointer as a seed for now: mix in time at least */ + + /* The casts through duk_uintptr_t is to avoid the following GCC warning: + * + * warning: cast from pointer to integer of different size [-Wpointer-to-int-cast] + * + * This still generates a /Wp64 warning on VS2010 when compiling for x86. + */ +#if defined(DUK_USE_ROM_STRINGS) + /* XXX: make a common DUK_USE_ option, and allow custom fixed seed? */ + DUK_D(DUK_DPRINT("using rom strings, force heap hash_seed to fixed value 0x%08lx", (long) DUK__FIXED_HASH_SEED)); + res->hash_seed = (duk_uint32_t) DUK__FIXED_HASH_SEED; +#else /* DUK_USE_ROM_STRINGS */ + res->hash_seed = (duk_uint32_t) (duk_uintptr_t) res; +#if !defined(DUK_USE_STRHASH_DENSE) + res->hash_seed ^= 5381; /* Bernstein hash init value is normally 5381; XOR it in in case pointer low bits are 0 */ +#endif +#endif /* DUK_USE_ROM_STRINGS */ + +#if defined(DUK_USE_EXPLICIT_NULL_INIT) + res->lj.jmpbuf_ptr = NULL; +#endif + DUK_ASSERT(res->lj.type == DUK_LJ_TYPE_UNKNOWN); /* zero */ + DUK_ASSERT(res->lj.iserror == 0); + DUK_TVAL_SET_UNDEFINED(&res->lj.value1); + DUK_TVAL_SET_UNDEFINED(&res->lj.value2); + + DUK_ASSERT_LJSTATE_UNSET(res); + + /* + * Init stringtable: fixed variant + */ + + st_initsize = DUK_USE_STRTAB_MINSIZE; +#if defined(DUK_USE_STRTAB_PTRCOMP) + res->strtable16 = (duk_uint16_t *) alloc_func(heap_udata, sizeof(duk_uint16_t) * st_initsize); + if (res->strtable16 == NULL) { + goto failed; + } +#else + res->strtable = (duk_hstring **) alloc_func(heap_udata, sizeof(duk_hstring *) * st_initsize); + if (res->strtable == NULL) { + goto failed; + } +#endif + res->st_size = st_initsize; + res->st_mask = st_initsize - 1; +#if (DUK_USE_STRTAB_MINSIZE != DUK_USE_STRTAB_MAXSIZE) + DUK_ASSERT(res->st_count == 0); +#endif + +#if defined(DUK_USE_STRTAB_PTRCOMP) + /* zero assumption */ + duk_memzero(res->strtable16, sizeof(duk_uint16_t) * st_initsize); +#else +#if defined(DUK_USE_EXPLICIT_NULL_INIT) + { + duk_uint32_t i; + for (i = 0; i < st_initsize; i++) { + res->strtable[i] = NULL; + } + } +#else + duk_memzero(res->strtable, sizeof(duk_hstring *) * st_initsize); +#endif /* DUK_USE_EXPLICIT_NULL_INIT */ +#endif /* DUK_USE_STRTAB_PTRCOMP */ + + /* + * Init stringcache + */ + +#if defined(DUK_USE_EXPLICIT_NULL_INIT) + { + duk_uint_t i; + for (i = 0; i < DUK_HEAP_STRCACHE_SIZE; i++) { + res->strcache[i].h = NULL; + } + } +#endif + + /* + * Init litcache + */ +#if defined(DUK_USE_LITCACHE_SIZE) + DUK_ASSERT(DUK_USE_LITCACHE_SIZE > 0); + DUK_ASSERT(DUK_IS_POWER_OF_TWO((duk_uint_t) DUK_USE_LITCACHE_SIZE)); +#if defined(DUK_USE_EXPLICIT_NULL_INIT) + { + duk_uint_t i; + for (i = 0; i < DUK_USE_LITCACHE_SIZE; i++) { + res->litcache[i].addr = NULL; + res->litcache[i].h = NULL; + } + } +#endif +#endif /* DUK_USE_LITCACHE_SIZE */ + + /* XXX: error handling is incomplete. It would be cleanest if + * there was a setjmp catchpoint, so that all init code could + * freely throw errors. If that were the case, the return code + * passing here could be removed. + */ + + /* + * Init built-in strings + */ + +#if defined(DUK_USE_INJECT_HEAP_ALLOC_ERROR) && (DUK_USE_INJECT_HEAP_ALLOC_ERROR == 2) + goto failed; +#endif + DUK_D(DUK_DPRINT("heap init: initialize heap strings")); + if (!duk__init_heap_strings(res)) { + goto failed; + } + + /* + * Init the heap thread + */ + +#if defined(DUK_USE_INJECT_HEAP_ALLOC_ERROR) && (DUK_USE_INJECT_HEAP_ALLOC_ERROR == 3) + goto failed; +#endif + DUK_D(DUK_DPRINT("heap init: initialize heap thread")); + if (!duk__init_heap_thread(res)) { + goto failed; + } + + /* + * Init the heap object + */ + +#if defined(DUK_USE_INJECT_HEAP_ALLOC_ERROR) && (DUK_USE_INJECT_HEAP_ALLOC_ERROR == 4) + goto failed; +#endif + DUK_D(DUK_DPRINT("heap init: initialize heap object")); + DUK_ASSERT(res->heap_thread != NULL); + res->heap_object = duk_hobject_alloc_unchecked(res, DUK_HOBJECT_FLAG_EXTENSIBLE | + DUK_HOBJECT_FLAG_FASTREFS | + DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_OBJECT)); + if (res->heap_object == NULL) { + goto failed; + } + DUK_HOBJECT_INCREF(res->heap_thread, res->heap_object); + + /* + * Odds and ends depending on the heap thread + */ + +#if !defined(DUK_USE_GET_RANDOM_DOUBLE) +#if defined(DUK_USE_PREFER_SIZE) || !defined(DUK_USE_64BIT_OPS) + res->rnd_state = (duk_uint32_t) duk_time_get_ecmascript_time(res->heap_thread); + duk_util_tinyrandom_prepare_seed(res->heap_thread); +#else + res->rnd_state[0] = (duk_uint64_t) duk_time_get_ecmascript_time(res->heap_thread); + DUK_ASSERT(res->rnd_state[1] == 0); /* Not filled here, filled in by seed preparation. */ +#if 0 /* Manual test values matching misc/xoroshiro128plus_test.c. */ + res->rnd_state[0] = DUK_U64_CONSTANT(0xdeadbeef12345678); + res->rnd_state[1] = DUK_U64_CONSTANT(0xcafed00d12345678); +#endif + duk_util_tinyrandom_prepare_seed(res->heap_thread); + /* Mix in heap pointer: this ensures that if two Duktape heaps are + * created on the same millisecond, they get a different PRNG + * sequence (unless e.g. virtual memory addresses cause also the + * heap object pointer to be the same). + */ + { + duk_uint64_t tmp_u64; + tmp_u64 = 0; + duk_memcpy((void *) &tmp_u64, + (const void *) &res, + (size_t) (sizeof(void *) >= sizeof(duk_uint64_t) ? sizeof(duk_uint64_t) : sizeof(void *))); + res->rnd_state[1] ^= tmp_u64; + } + do { + duk_small_uint_t i; + for (i = 0; i < 10; i++) { + /* Throw away a few initial random numbers just in + * case. Probably unnecessary due to SplitMix64 + * preparation. + */ + (void) duk_util_tinyrandom_get_double(res->heap_thread); + } + } while (0); +#endif +#endif + + /* + * Allow finalizer and mark-and-sweep processing. + */ + + DUK_D(DUK_DPRINT("heap init: allow finalizer/mark-and-sweep processing")); + DUK_ASSERT(res->ms_prevent_count == 1); + DUK_ASSERT(res->pf_prevent_count == 1); + res->ms_prevent_count = 0; + res->pf_prevent_count = 0; + DUK_ASSERT(res->ms_running == 0); +#if defined(DUK_USE_ASSERTIONS) + res->heap_initializing = 0; +#endif + + /* + * All done. + */ + + DUK_D(DUK_DPRINT("allocated heap: %p", (void *) res)); + return res; + + failed: + DUK_D(DUK_DPRINT("heap allocation failed")); + + if (res != NULL) { + /* Assumes that allocated pointers and alloc funcs are valid + * if res exists. + */ + DUK_ASSERT(res->ms_prevent_count == 1); + DUK_ASSERT(res->pf_prevent_count == 1); + DUK_ASSERT(res->ms_running == 0); + if (res->heap_thread != NULL) { + res->ms_prevent_count = 0; + res->pf_prevent_count = 0; + } +#if defined(DUK_USE_ASSERTIONS) + res->heap_initializing = 0; +#endif + + DUK_ASSERT(res->alloc_func != NULL); + DUK_ASSERT(res->realloc_func != NULL); + DUK_ASSERT(res->free_func != NULL); + duk_heap_free(res); + } + + return NULL; +} + +/* automatic undefs */ +#undef DUK__DUMPLM_SIGNED +#undef DUK__DUMPLM_SIGNED_RAW +#undef DUK__DUMPLM_UNSIGNED +#undef DUK__DUMPLM_UNSIGNED_RAW +#undef DUK__DUMPSZ +#undef DUK__FIXED_HASH_SEED +#line 1 "duk_heap_finalize.c" +/* + * Finalizer handling. + */ + +/* #include duk_internal.h -> already included */ + +#if defined(DUK_USE_FINALIZER_SUPPORT) + +/* + * Fake torture finalizer. + */ + +#if defined(DUK_USE_FINALIZER_TORTURE) +DUK_LOCAL duk_ret_t duk__fake_global_finalizer(duk_hthread *thr) { + DUK_DD(DUK_DDPRINT("fake global torture finalizer executed")); + + /* Require a lot of stack to force a value stack grow/shrink. */ + duk_require_stack(thr, 100000); + + /* Force a reallocation with pointer change for value stack + * to maximize side effects. + */ + duk_hthread_valstack_torture_realloc(thr); + + /* Inner function call, error throw. */ + duk_eval_string_noresult(thr, + "(function dummy() {\n" + " dummy.prototype = null; /* break reference loop */\n" + " try {\n" + " throw 'fake-finalizer-dummy-error';\n" + " } catch (e) {\n" + " void e;\n" + " }\n" + "})()"); + + /* The above creates garbage (e.g. a function instance). Because + * the function/prototype reference loop is broken, it gets collected + * immediately by DECREF. If Function.prototype has a _Finalizer + * property (happens in some test cases), the garbage gets queued to + * finalize_list. This still won't cause an infinite loop because + * the torture finalizer is called once per finalize_list run and + * the garbage gets handled in the same run. (If the garbage needs + * mark-and-sweep collection, an infinite loop might ensue.) + */ + return 0; +} + +DUK_LOCAL void duk__run_global_torture_finalizer(duk_hthread *thr) { + DUK_ASSERT(thr != NULL); + + /* Avoid fake finalization when callstack limit is near. Otherwise + * a callstack limit error will be created, then refzero'ed. The + * +5 headroom is conservative. + */ + if (thr->heap->call_recursion_depth + 5 >= thr->heap->call_recursion_limit || + thr->callstack_top + 5 >= DUK_USE_CALLSTACK_LIMIT) { + DUK_D(DUK_DPRINT("skip global torture finalizer, too little headroom for call recursion or call stack size")); + return; + } + + /* Run fake finalizer. Avoid creating unnecessary garbage. */ + duk_push_c_function(thr, duk__fake_global_finalizer, 0 /*nargs*/); + (void) duk_pcall(thr, 0 /*nargs*/); + duk_pop(thr); +} +#endif /* DUK_USE_FINALIZER_TORTURE */ + +/* + * Process the finalize_list to completion. + * + * An object may be placed on finalize_list by either refcounting or + * mark-and-sweep. The refcount of objects placed by refcounting will be + * zero; the refcount of objects placed by mark-and-sweep is > 0. In both + * cases the refcount is bumped by 1 artificially so that a REFZERO event + * can never happen while an object is waiting for finalization. Without + * this bump a REFZERO could now happen because user code may call + * duk_push_heapptr() and then pop a value even when it's on finalize_list. + * + * List processing assumes refcounts are kept up-to-date at all times, so + * that once the finalizer returns, a zero refcount is a reliable reason to + * free the object immediately rather than place it back to the heap. This + * is the case because we run outside of refzero_list processing so that + * DECREF cascades are handled fully inline. + * + * For mark-and-sweep queued objects (had_zero_refcount false) the object + * may be freed immediately if its refcount is zero after the finalizer call + * (i.e. finalizer removed the reference loop for the object). If not, the + * next mark-and-sweep will collect the object unless it has become reachable + * (i.e. rescued) by that time and its refcount hasn't fallen to zero before + * that. Mark-and-sweep detects these objects because their FINALIZED flag + * is set. + * + * There's an inherent limitation for mark-and-sweep finalizer rescuing: an + * object won't get refinalized if (1) it's rescued, but (2) becomes + * unreachable before mark-and-sweep has had time to notice it. The next + * mark-and-sweep round simply doesn't have any information of whether the + * object has been unreachable the whole time or not (the only way to get + * that information would be a mark-and-sweep pass for *every finalized + * object*). This is awkward for the application because the mark-and-sweep + * round is not generally visible or under full application control. + * + * For refcount queued objects (had_zero_refcount true) the object is either + * immediately freed or rescued, and waiting for a mark-and-sweep round is not + * necessary (or desirable); FINALIZED is cleared when a rescued object is + * queued back to heap_allocated. The object is eligible for finalization + * again (either via refcounting or mark-and-sweep) immediately after being + * rescued. If a refcount finalized object is placed into an unreachable + * reference loop by its finalizer, it will get collected by mark-and-sweep + * and currently the finalizer will execute again. + * + * There's a special case where: + * + * - Mark-and-sweep queues an object to finalize_list for finalization. + * - The finalizer is executed, FINALIZED is set, and object is queued + * back to heap_allocated, waiting for a new mark-and-sweep round. + * - The object's refcount drops to zero before mark-and-sweep has a + * chance to run another round and make a rescue/free decision. + * + * This is now handled by refzero code: if an object has a finalizer but + * FINALIZED is already set, the object is freed without finalizer processing. + * The outcome is the same as if mark-and-sweep was executed at that point; + * mark-and-sweep would also free the object without another finalizer run. + * This could also be changed so that the refzero-triggered finalizer *IS* + * executed: being refzero collected implies someone has operated on the + * object so it hasn't been totally unreachable the whole time. This would + * risk a finalizer loop however. + */ + +DUK_INTERNAL void duk_heap_process_finalize_list(duk_heap *heap) { + duk_heaphdr *curr; +#if defined(DUK_USE_DEBUG) + duk_size_t count = 0; +#endif + + DUK_DDD(DUK_DDDPRINT("duk_heap_process_finalize_list: %p", (void *) heap)); + + if (heap->pf_prevent_count != 0) { + DUK_DDD(DUK_DDDPRINT("skip finalize_list processing: pf_prevent_count != 0")); + return; + } + + /* Heap alloc prevents mark-and-sweep before heap_thread is ready. */ + DUK_ASSERT(heap != NULL); + DUK_ASSERT(heap->heap_thread != NULL); + DUK_ASSERT(heap->heap_thread->valstack != NULL); +#if defined(DUK_USE_REFERENCE_COUNTING) + DUK_ASSERT(heap->refzero_list == NULL); +#endif + + DUK_ASSERT(heap->pf_prevent_count == 0); + heap->pf_prevent_count = 1; + + /* Mark-and-sweep no longer needs to be prevented when running + * finalizers: mark-and-sweep skips any rescue decisions if there + * are any objects in finalize_list when mark-and-sweep is entered. + * This protects finalized objects from incorrect rescue decisions + * caused by finalize_list being a reachability root and only + * partially processed. Freeing decisions are not postponed. + */ + + /* When finalizer torture is enabled, make a fake finalizer call with + * maximum side effects regardless of whether finalize_list is empty. + */ +#if defined(DUK_USE_FINALIZER_TORTURE) + duk__run_global_torture_finalizer(heap->heap_thread); +#endif + + /* Process finalize_list until it becomes empty. There's currently no + * protection against a finalizer always creating more garbage. + */ + while ((curr = heap->finalize_list) != NULL) { +#if defined(DUK_USE_REFERENCE_COUNTING) + duk_bool_t queue_back; +#endif + + DUK_DD(DUK_DDPRINT("processing finalize_list entry: %p -> %!iO", (void *) curr, curr)); + + DUK_ASSERT(DUK_HEAPHDR_GET_TYPE(curr) == DUK_HTYPE_OBJECT); /* Only objects have finalizers. */ + DUK_ASSERT(!DUK_HEAPHDR_HAS_REACHABLE(curr)); + DUK_ASSERT(!DUK_HEAPHDR_HAS_TEMPROOT(curr)); + DUK_ASSERT(DUK_HEAPHDR_HAS_FINALIZABLE(curr)); /* All objects on finalize_list will have this flag (except object being finalized right now). */ + DUK_ASSERT(!DUK_HEAPHDR_HAS_FINALIZED(curr)); /* Queueing code ensures. */ + DUK_ASSERT(!DUK_HEAPHDR_HAS_READONLY(curr)); /* ROM objects never get freed (or finalized). */ + +#if defined(DUK_USE_ASSERTIONS) + DUK_ASSERT(heap->currently_finalizing == NULL); + heap->currently_finalizing = curr; +#endif + + /* Clear FINALIZABLE for object being finalized, so that + * duk_push_heapptr() can properly ignore the object. + */ + DUK_HEAPHDR_CLEAR_FINALIZABLE(curr); + + if (DUK_LIKELY(!heap->pf_skip_finalizers)) { + /* Run the finalizer, duk_heap_run_finalizer() sets + * and checks for FINALIZED to prevent the finalizer + * from executing multiple times per finalization cycle. + * (This safeguard shouldn't be actually needed anymore). + */ + +#if defined(DUK_USE_REFERENCE_COUNTING) + duk_bool_t had_zero_refcount; +#endif + + /* The object's refcount is >0 throughout so it won't be + * refzero processed prematurely. + */ +#if defined(DUK_USE_REFERENCE_COUNTING) + DUK_ASSERT(DUK_HEAPHDR_GET_REFCOUNT(curr) >= 1); + had_zero_refcount = (DUK_HEAPHDR_GET_REFCOUNT(curr) == 1); /* Preincremented on finalize_list insert. */ +#endif + + DUK_ASSERT(!DUK_HEAPHDR_HAS_FINALIZED(curr)); + duk_heap_run_finalizer(heap, (duk_hobject *) curr); /* must never longjmp */ + DUK_ASSERT(DUK_HEAPHDR_HAS_FINALIZED(curr)); + /* XXX: assert that object is still in finalize_list + * when duk_push_heapptr() allows automatic rescue. + */ + +#if defined(DUK_USE_REFERENCE_COUNTING) + DUK_DD(DUK_DDPRINT("refcount after finalizer (includes bump): %ld", (long) DUK_HEAPHDR_GET_REFCOUNT(curr))); + if (DUK_HEAPHDR_GET_REFCOUNT(curr) == 1) { /* Only artificial bump in refcount? */ +#if defined(DUK_USE_DEBUG) + if (had_zero_refcount) { + DUK_DD(DUK_DDPRINT("finalized object's refcount is zero -> free immediately (refcount queued)")); + } else { + DUK_DD(DUK_DDPRINT("finalized object's refcount is zero -> free immediately (mark-and-sweep queued)")); + } +#endif + queue_back = 0; + } else +#endif + { +#if defined(DUK_USE_REFERENCE_COUNTING) + queue_back = 1; + if (had_zero_refcount) { + /* When finalization is triggered + * by refzero and we queue the object + * back, clear FINALIZED right away + * so that the object can be refinalized + * immediately if necessary. + */ + DUK_HEAPHDR_CLEAR_FINALIZED(curr); + } +#endif + } + } else { + /* Used during heap destruction: don't actually run finalizers + * because we're heading into forced finalization. Instead, + * queue finalizable objects back to the heap_allocated list. + */ + DUK_D(DUK_DPRINT("skip finalizers flag set, queue object to heap_allocated without finalizing")); + DUK_ASSERT(!DUK_HEAPHDR_HAS_FINALIZED(curr)); +#if defined(DUK_USE_REFERENCE_COUNTING) + queue_back = 1; +#endif + } + + /* Dequeue object from finalize_list. Note that 'curr' may no + * longer be finalize_list head because new objects may have + * been queued to the list. As a result we can't optimize for + * the single-linked heap case and must scan the list for + * removal, typically the scan is very short however. + */ + DUK_HEAP_REMOVE_FROM_FINALIZE_LIST(heap, curr); + + /* Queue back to heap_allocated or free immediately. */ +#if defined(DUK_USE_REFERENCE_COUNTING) + if (queue_back) { + /* FINALIZED is only cleared if object originally + * queued for finalization by refcounting. For + * mark-and-sweep FINALIZED is left set, so that + * next mark-and-sweep round can make a rescue/free + * decision. + */ + DUK_ASSERT(DUK_HEAPHDR_GET_REFCOUNT(curr) >= 1); + DUK_HEAPHDR_PREDEC_REFCOUNT(curr); /* Remove artificial refcount bump. */ + DUK_HEAPHDR_CLEAR_FINALIZABLE(curr); + DUK_HEAP_INSERT_INTO_HEAP_ALLOCATED(heap, curr); + } else { + /* No need to remove the refcount bump here. */ + DUK_ASSERT(DUK_HEAPHDR_GET_TYPE(curr) == DUK_HTYPE_OBJECT); /* currently, always the case */ + DUK_DD(DUK_DDPRINT("refcount finalize after finalizer call: %!O", curr)); + duk_hobject_refcount_finalize_norz(heap, (duk_hobject *) curr); + duk_free_hobject(heap, (duk_hobject *) curr); + DUK_DD(DUK_DDPRINT("freed hobject after finalization: %p", (void *) curr)); + } +#else /* DUK_USE_REFERENCE_COUNTING */ + DUK_HEAPHDR_CLEAR_FINALIZABLE(curr); + DUK_HEAP_INSERT_INTO_HEAP_ALLOCATED(heap, curr); +#endif /* DUK_USE_REFERENCE_COUNTING */ + +#if defined(DUK_USE_DEBUG) + count++; +#endif + +#if defined(DUK_USE_ASSERTIONS) + DUK_ASSERT(heap->currently_finalizing != NULL); + heap->currently_finalizing = NULL; +#endif + } + + /* finalize_list will always be processed completely. */ + DUK_ASSERT(heap->finalize_list == NULL); + +#if 0 + /* While NORZ macros are used above, this is unnecessary because the + * only pending side effects are now finalizers, and finalize_list is + * empty. + */ + DUK_REFZERO_CHECK_SLOW(heap->heap_thread); +#endif + + /* Prevent count may be bumped while finalizers run, but should always + * be reliably unbumped by the time we get here. + */ + DUK_ASSERT(heap->pf_prevent_count == 1); + heap->pf_prevent_count = 0; + +#if defined(DUK_USE_DEBUG) + DUK_DD(DUK_DDPRINT("duk_heap_process_finalize_list: %ld finalizers called", (long) count)); +#endif +} + +/* + * Run an duk_hobject finalizer. Must never throw an uncaught error + * (but may throw caught errors). + * + * There is no return value. Any return value or error thrown by + * the finalizer is ignored (although errors are debug logged). + * + * Notes: + * + * - The finalizer thread 'top' assertions are there because it is + * critical that strict stack policy is observed (i.e. no cruft + * left on the finalizer stack). + */ + +DUK_LOCAL duk_ret_t duk__finalize_helper(duk_hthread *thr, void *udata) { + DUK_ASSERT(thr != NULL); + DUK_UNREF(udata); + + DUK_DDD(DUK_DDDPRINT("protected finalization helper running")); + + /* [... obj] */ + + /* _Finalizer property is read without checking if the value is + * callable or even exists. This is intentional, and handled + * by throwing an error which is caught by the safe call wrapper. + * + * XXX: Finalizer lookup should traverse the prototype chain (to allow + * inherited finalizers) but should not invoke accessors or proxy object + * behavior. At the moment this lookup will invoke proxy behavior, so + * caller must ensure that this function is not called if the target is + * a Proxy. + */ + duk_get_prop_stridx_short(thr, -1, DUK_STRIDX_INT_FINALIZER); /* -> [... obj finalizer] */ + duk_dup_m2(thr); + duk_push_boolean(thr, DUK_HEAP_HAS_FINALIZER_NORESCUE(thr->heap)); + DUK_DDD(DUK_DDDPRINT("calling finalizer")); + duk_call(thr, 2); /* [ ... obj finalizer obj heapDestruct ] -> [ ... obj retval ] */ + DUK_DDD(DUK_DDDPRINT("finalizer returned successfully")); + return 0; + + /* Note: we rely on duk_safe_call() to fix up the stack for the caller, + * so we don't need to pop stuff here. There is no return value; + * caller determines rescued status based on object refcount. + */ +} + +DUK_INTERNAL void duk_heap_run_finalizer(duk_heap *heap, duk_hobject *obj) { + duk_hthread *thr; + duk_ret_t rc; +#if defined(DUK_USE_ASSERTIONS) + duk_idx_t entry_top; +#endif + + DUK_DD(DUK_DDPRINT("running duk_hobject finalizer for object: %p", (void *) obj)); + + DUK_ASSERT(heap != NULL); + DUK_ASSERT(heap->heap_thread != NULL); + thr = heap->heap_thread; + DUK_ASSERT(obj != NULL); + DUK_ASSERT_VALSTACK_SPACE(heap->heap_thread, 1); + +#if defined(DUK_USE_ASSERTIONS) + entry_top = duk_get_top(thr); +#endif + /* + * Get and call the finalizer. All of this must be wrapped + * in a protected call, because even getting the finalizer + * may trigger an error (getter may throw one, for instance). + */ + + /* ROM objects could inherit a finalizer, but they are never deemed + * unreachable by mark-and-sweep, and their refcount never falls to 0. + */ + DUK_ASSERT(!DUK_HEAPHDR_HAS_READONLY((duk_heaphdr *) obj)); + + /* Duktape 2.1: finalize_list never contains objects with FINALIZED + * set, so no need to check here. + */ + DUK_ASSERT(!DUK_HEAPHDR_HAS_FINALIZED((duk_heaphdr *) obj)); +#if 0 + if (DUK_HEAPHDR_HAS_FINALIZED((duk_heaphdr *) obj)) { + DUK_D(DUK_DPRINT("object already finalized, avoid running finalizer twice: %!O", obj)); + return; + } +#endif + DUK_HEAPHDR_SET_FINALIZED((duk_heaphdr *) obj); /* ensure never re-entered until rescue cycle complete */ + +#if defined(DUK_USE_ES6_PROXY) + if (DUK_HOBJECT_IS_PROXY(obj)) { + /* This may happen if duk_set_finalizer() or Duktape.fin() is + * called for a Proxy object. In such cases the fast finalizer + * flag will be set on the Proxy, not the target, and neither + * will be finalized. + */ + DUK_D(DUK_DPRINT("object is a Proxy, skip finalizer call")); + return; + } +#endif /* DUK_USE_ES6_PROXY */ + + duk_push_hobject(thr, obj); /* this also increases refcount by one */ + rc = duk_safe_call(thr, duk__finalize_helper, NULL /*udata*/, 0 /*nargs*/, 1 /*nrets*/); /* -> [... obj retval/error] */ + DUK_ASSERT_TOP(thr, entry_top + 2); /* duk_safe_call discipline */ + + if (rc != DUK_EXEC_SUCCESS) { + /* Note: we ask for one return value from duk_safe_call to get this + * error debugging here. + */ + DUK_D(DUK_DPRINT("wrapped finalizer call failed for object %p (ignored); error: %!T", + (void *) obj, (duk_tval *) duk_get_tval(thr, -1))); + } + duk_pop_2(thr); /* -> [...] */ + + DUK_ASSERT_TOP(thr, entry_top); +} + +#else /* DUK_USE_FINALIZER_SUPPORT */ + +/* nothing */ + +#endif /* DUK_USE_FINALIZER_SUPPORT */ +#line 1 "duk_heap_hashstring.c" +/* + * String hash computation (interning). + * + * String hashing is performance critical because a string hash is computed + * for all new strings which are candidates to be added to the string table. + * However, strings actually added to the string table go through a codepoint + * length calculation which dominates performance because it goes through + * every byte of the input string (but only for strings added). + * + * The string hash algorithm should be fast, but on the other hand provide + * good enough hashes to ensure both string table and object property table + * hash tables work reasonably well (i.e., there aren't too many collisions + * with real world inputs). Unless the hash is cryptographic, it's always + * possible to craft inputs with maximal hash collisions. + * + * NOTE: The hash algorithms must match tools/dukutil.py:duk_heap_hashstring() + * for ROM string support! + */ + +/* #include duk_internal.h -> already included */ + +#if defined(DUK_USE_STRHASH_DENSE) +/* Constants for duk_hashstring(). */ +#define DUK__STRHASH_SHORTSTRING 4096L +#define DUK__STRHASH_MEDIUMSTRING (256L * 1024L) +#define DUK__STRHASH_BLOCKSIZE 256L + +DUK_INTERNAL duk_uint32_t duk_heap_hashstring(duk_heap *heap, const duk_uint8_t *str, duk_size_t len) { + duk_uint32_t hash; + + /* Use Murmurhash2 directly for short strings, and use "block skipping" + * for long strings: hash an initial part and then sample the rest of + * the string with reasonably sized chunks. An initial offset for the + * sampling is computed based on a hash of the initial part of the string; + * this is done to (usually) avoid the case where all long strings have + * certain offset ranges which are never sampled. + * + * Skip should depend on length and bound the total time to roughly + * logarithmic. With current values: + * + * 1M string => 256 * 241 = 61696 bytes (0.06M) of hashing + * 1G string => 256 * 16321 = 4178176 bytes (3.98M) of hashing + * + * XXX: It would be better to compute the skip offset more "smoothly" + * instead of having a few boundary values. + */ + + /* note: mixing len into seed improves hashing when skipping */ + duk_uint32_t str_seed = heap->hash_seed ^ ((duk_uint32_t) len); + + if (len <= DUK__STRHASH_SHORTSTRING) { + hash = duk_util_hashbytes(str, len, str_seed); + } else { + duk_size_t off; + duk_size_t skip; + + if (len <= DUK__STRHASH_MEDIUMSTRING) { + skip = (duk_size_t) (16 * DUK__STRHASH_BLOCKSIZE + DUK__STRHASH_BLOCKSIZE); + } else { + skip = (duk_size_t) (256 * DUK__STRHASH_BLOCKSIZE + DUK__STRHASH_BLOCKSIZE); + } + + hash = duk_util_hashbytes(str, (duk_size_t) DUK__STRHASH_SHORTSTRING, str_seed); + off = DUK__STRHASH_SHORTSTRING + (skip * (hash % 256)) / 256; + + /* XXX: inefficient loop */ + while (off < len) { + duk_size_t left = len - off; + duk_size_t now = (duk_size_t) (left > DUK__STRHASH_BLOCKSIZE ? DUK__STRHASH_BLOCKSIZE : left); + hash ^= duk_util_hashbytes(str + off, now, str_seed); + off += skip; + } + } + +#if defined(DUK_USE_STRHASH16) + /* Truncate to 16 bits here, so that a computed hash can be compared + * against a hash stored in a 16-bit field. + */ + hash &= 0x0000ffffUL; +#endif + return hash; +} +#else /* DUK_USE_STRHASH_DENSE */ +DUK_INTERNAL duk_uint32_t duk_heap_hashstring(duk_heap *heap, const duk_uint8_t *str, duk_size_t len) { + duk_uint32_t hash; + duk_size_t step; + duk_size_t off; + + /* Slightly modified "Bernstein hash" from: + * + * http://eternallyconfuzzled.com/tuts/algorithms/jsw_tut_hashing.aspx + * + * Modifications: string skipping and reverse direction similar to + * Lua 5.1.5, and different hash initializer. + * + * The reverse direction ensures last byte it always included in the + * hash which is a good default as changing parts of the string are + * more often in the suffix than in the prefix. + */ + + hash = heap->hash_seed ^ ((duk_uint32_t) len); /* Bernstein hash init value is normally 5381 */ + step = (len >> DUK_USE_STRHASH_SKIP_SHIFT) + 1; + for (off = len; off >= step; off -= step) { + DUK_ASSERT(off >= 1); /* off >= step, and step >= 1 */ + hash = (hash * 33) + str[off - 1]; + } + +#if defined(DUK_USE_STRHASH16) + /* Truncate to 16 bits here, so that a computed hash can be compared + * against a hash stored in a 16-bit field. + */ + hash &= 0x0000ffffUL; +#endif + return hash; +} +#endif /* DUK_USE_STRHASH_DENSE */ + +/* automatic undefs */ +#undef DUK__STRHASH_BLOCKSIZE +#undef DUK__STRHASH_MEDIUMSTRING +#undef DUK__STRHASH_SHORTSTRING +#line 1 "duk_heap_markandsweep.c" +/* + * Mark-and-sweep garbage collection. + */ + +/* #include duk_internal.h -> already included */ + +DUK_LOCAL_DECL void duk__mark_heaphdr(duk_heap *heap, duk_heaphdr *h); +DUK_LOCAL_DECL void duk__mark_heaphdr_nonnull(duk_heap *heap, duk_heaphdr *h); +DUK_LOCAL_DECL void duk__mark_tval(duk_heap *heap, duk_tval *tv); +DUK_LOCAL_DECL void duk__mark_tvals(duk_heap *heap, duk_tval *tv, duk_idx_t count); + +/* + * Marking functions for heap types: mark children recursively. + */ + +DUK_LOCAL void duk__mark_hstring(duk_heap *heap, duk_hstring *h) { + DUK_UNREF(heap); + DUK_UNREF(h); + + DUK_DDD(DUK_DDDPRINT("duk__mark_hstring: %p", (void *) h)); + DUK_ASSERT(h); + DUK_HSTRING_ASSERT_VALID(h); + + /* nothing to process */ +} + +DUK_LOCAL void duk__mark_hobject(duk_heap *heap, duk_hobject *h) { + duk_uint_fast32_t i; + + DUK_DDD(DUK_DDDPRINT("duk__mark_hobject: %p", (void *) h)); + + DUK_ASSERT(h); + DUK_HOBJECT_ASSERT_VALID(h); + + /* XXX: use advancing pointers instead of index macros -> faster and smaller? */ + + for (i = 0; i < (duk_uint_fast32_t) DUK_HOBJECT_GET_ENEXT(h); i++) { + duk_hstring *key = DUK_HOBJECT_E_GET_KEY(heap, h, i); + if (key == NULL) { + continue; + } + duk__mark_heaphdr_nonnull(heap, (duk_heaphdr *) key); + if (DUK_HOBJECT_E_SLOT_IS_ACCESSOR(heap, h, i)) { + duk__mark_heaphdr(heap, (duk_heaphdr *) DUK_HOBJECT_E_GET_VALUE_PTR(heap, h, i)->a.get); + duk__mark_heaphdr(heap, (duk_heaphdr *) DUK_HOBJECT_E_GET_VALUE_PTR(heap, h, i)->a.set); + } else { + duk__mark_tval(heap, &DUK_HOBJECT_E_GET_VALUE_PTR(heap, h, i)->v); + } + } + + for (i = 0; i < (duk_uint_fast32_t) DUK_HOBJECT_GET_ASIZE(h); i++) { + duk__mark_tval(heap, DUK_HOBJECT_A_GET_VALUE_PTR(heap, h, i)); + } + + /* Hash part is a 'weak reference' and does not contribute. */ + + duk__mark_heaphdr(heap, (duk_heaphdr *) DUK_HOBJECT_GET_PROTOTYPE(heap, h)); + + /* Fast path for objects which don't have a subclass struct, or have a + * subclass struct but nothing that needs marking in the subclass struct. + */ + if (DUK_HOBJECT_HAS_FASTREFS(h)) { + DUK_ASSERT(DUK_HOBJECT_ALLOWS_FASTREFS(h)); + return; + } + DUK_ASSERT(DUK_HOBJECT_PROHIBITS_FASTREFS(h)); + + /* XXX: reorg, more common first */ + if (DUK_HOBJECT_IS_COMPFUNC(h)) { + duk_hcompfunc *f = (duk_hcompfunc *) h; + duk_tval *tv, *tv_end; + duk_hobject **fn, **fn_end; + + DUK_HCOMPFUNC_ASSERT_VALID(f); + + /* 'data' is reachable through every compiled function which + * contains a reference. + */ + + duk__mark_heaphdr(heap, (duk_heaphdr *) DUK_HCOMPFUNC_GET_DATA(heap, f)); + duk__mark_heaphdr(heap, (duk_heaphdr *) DUK_HCOMPFUNC_GET_LEXENV(heap, f)); + duk__mark_heaphdr(heap, (duk_heaphdr *) DUK_HCOMPFUNC_GET_VARENV(heap, f)); + + if (DUK_HCOMPFUNC_GET_DATA(heap, f) != NULL) { + tv = DUK_HCOMPFUNC_GET_CONSTS_BASE(heap, f); + tv_end = DUK_HCOMPFUNC_GET_CONSTS_END(heap, f); + while (tv < tv_end) { + duk__mark_tval(heap, tv); + tv++; + } + + fn = DUK_HCOMPFUNC_GET_FUNCS_BASE(heap, f); + fn_end = DUK_HCOMPFUNC_GET_FUNCS_END(heap, f); + while (fn < fn_end) { + duk__mark_heaphdr_nonnull(heap, (duk_heaphdr *) *fn); + fn++; + } + } else { + /* May happen in some out-of-memory corner cases. */ + DUK_D(DUK_DPRINT("duk_hcompfunc 'data' is NULL, skipping marking")); + } + } else if (DUK_HOBJECT_IS_DECENV(h)) { + duk_hdecenv *e = (duk_hdecenv *) h; + DUK_HDECENV_ASSERT_VALID(e); + duk__mark_heaphdr(heap, (duk_heaphdr *) e->thread); + duk__mark_heaphdr(heap, (duk_heaphdr *) e->varmap); + } else if (DUK_HOBJECT_IS_OBJENV(h)) { + duk_hobjenv *e = (duk_hobjenv *) h; + DUK_HOBJENV_ASSERT_VALID(e); + duk__mark_heaphdr_nonnull(heap, (duk_heaphdr *) e->target); +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) + } else if (DUK_HOBJECT_IS_BUFOBJ(h)) { + duk_hbufobj *b = (duk_hbufobj *) h; + DUK_HBUFOBJ_ASSERT_VALID(b); + duk__mark_heaphdr(heap, (duk_heaphdr *) b->buf); + duk__mark_heaphdr(heap, (duk_heaphdr *) b->buf_prop); +#endif /* DUK_USE_BUFFEROBJECT_SUPPORT */ + } else if (DUK_HOBJECT_IS_BOUNDFUNC(h)) { + duk_hboundfunc *f = (duk_hboundfunc *) (void *) h; + DUK_HBOUNDFUNC_ASSERT_VALID(f); + duk__mark_tval(heap, &f->target); + duk__mark_tval(heap, &f->this_binding); + duk__mark_tvals(heap, f->args, f->nargs); +#if defined(DUK_USE_ES6_PROXY) + } else if (DUK_HOBJECT_IS_PROXY(h)) { + duk_hproxy *p = (duk_hproxy *) h; + DUK_HPROXY_ASSERT_VALID(p); + duk__mark_heaphdr_nonnull(heap, (duk_heaphdr *) p->target); + duk__mark_heaphdr_nonnull(heap, (duk_heaphdr *) p->handler); +#endif /* DUK_USE_ES6_PROXY */ + } else if (DUK_HOBJECT_IS_THREAD(h)) { + duk_hthread *t = (duk_hthread *) h; + duk_activation *act; + duk_tval *tv; + + DUK_HTHREAD_ASSERT_VALID(t); + + tv = t->valstack; + while (tv < t->valstack_top) { + duk__mark_tval(heap, tv); + tv++; + } + + for (act = t->callstack_curr; act != NULL; act = act->parent) { + duk__mark_heaphdr(heap, (duk_heaphdr *) DUK_ACT_GET_FUNC(act)); + duk__mark_heaphdr(heap, (duk_heaphdr *) act->var_env); + duk__mark_heaphdr(heap, (duk_heaphdr *) act->lex_env); +#if defined(DUK_USE_NONSTD_FUNC_CALLER_PROPERTY) + duk__mark_heaphdr(heap, (duk_heaphdr *) act->prev_caller); +#endif +#if 0 /* nothing now */ + for (cat = act->cat; cat != NULL; cat = cat->parent) { + } +#endif + } + + duk__mark_heaphdr(heap, (duk_heaphdr *) t->resumer); + + for (i = 0; i < DUK_NUM_BUILTINS; i++) { + duk__mark_heaphdr(heap, (duk_heaphdr *) t->builtins[i]); + } + } else { + /* We may come here if the object should have a FASTREFS flag + * but it's missing for some reason. Assert for never getting + * here; however, other than performance, this is harmless. + */ + DUK_D(DUK_DPRINT("missing FASTREFS flag for: %!iO", h)); + DUK_ASSERT(0); + } +} + +/* Mark any duk_heaphdr type. Recursion tracking happens only here. */ +DUK_LOCAL void duk__mark_heaphdr(duk_heap *heap, duk_heaphdr *h) { + DUK_DDD(DUK_DDDPRINT("duk__mark_heaphdr %p, type %ld", + (void *) h, + (h != NULL ? (long) DUK_HEAPHDR_GET_TYPE(h) : (long) -1))); + + /* XXX: add non-null variant? */ + if (h == NULL) { + return; + } + + DUK_HEAPHDR_ASSERT_VALID(h); + DUK_ASSERT(!DUK_HEAPHDR_HAS_READONLY(h) || DUK_HEAPHDR_HAS_REACHABLE(h)); + +#if defined(DUK_USE_ASSERTIONS) && defined(DUK_USE_REFERENCE_COUNTING) + if (!DUK_HEAPHDR_HAS_READONLY(h)) { + h->h_assert_refcount++; /* Comparison refcount: bump even if already reachable. */ + } +#endif + if (DUK_HEAPHDR_HAS_REACHABLE(h)) { + DUK_DDD(DUK_DDDPRINT("already marked reachable, skip")); + return; + } +#if defined(DUK_USE_ROM_OBJECTS) + /* READONLY objects always have REACHABLE set, so the check above + * will prevent READONLY objects from being marked here. + */ + DUK_ASSERT(!DUK_HEAPHDR_HAS_READONLY(h)); +#endif + + DUK_HEAPHDR_SET_REACHABLE(h); + + if (heap->ms_recursion_depth >= DUK_USE_MARK_AND_SWEEP_RECLIMIT) { + DUK_D(DUK_DPRINT("mark-and-sweep recursion limit reached, marking as temproot: %p", (void *) h)); + DUK_HEAP_SET_MARKANDSWEEP_RECLIMIT_REACHED(heap); + DUK_HEAPHDR_SET_TEMPROOT(h); + return; + } + + heap->ms_recursion_depth++; + DUK_ASSERT(heap->ms_recursion_depth != 0); /* Wrap. */ + + switch (DUK_HEAPHDR_GET_TYPE(h)) { + case DUK_HTYPE_STRING: + duk__mark_hstring(heap, (duk_hstring *) h); + break; + case DUK_HTYPE_OBJECT: + duk__mark_hobject(heap, (duk_hobject *) h); + break; + case DUK_HTYPE_BUFFER: + /* nothing to mark */ + break; + default: + DUK_D(DUK_DPRINT("attempt to mark heaphdr %p with invalid htype %ld", (void *) h, (long) DUK_HEAPHDR_GET_TYPE(h))); + DUK_UNREACHABLE(); + } + + DUK_ASSERT(heap->ms_recursion_depth > 0); + heap->ms_recursion_depth--; +} + +DUK_LOCAL void duk__mark_tval(duk_heap *heap, duk_tval *tv) { + DUK_DDD(DUK_DDDPRINT("duk__mark_tval %p", (void *) tv)); + if (tv == NULL) { + return; + } + DUK_TVAL_ASSERT_VALID(tv); + if (DUK_TVAL_IS_HEAP_ALLOCATED(tv)) { + duk_heaphdr *h; + h = DUK_TVAL_GET_HEAPHDR(tv); + DUK_ASSERT(h != NULL); + duk__mark_heaphdr_nonnull(heap, h); + } +} + +DUK_LOCAL void duk__mark_tvals(duk_heap *heap, duk_tval *tv, duk_idx_t count) { + DUK_ASSERT(count == 0 || tv != NULL); + + while (count-- > 0) { + DUK_TVAL_ASSERT_VALID(tv); + if (DUK_TVAL_IS_HEAP_ALLOCATED(tv)) { + duk_heaphdr *h; + h = DUK_TVAL_GET_HEAPHDR(tv); + DUK_ASSERT(h != NULL); + duk__mark_heaphdr_nonnull(heap, h); + } + tv++; + } +} + +/* Mark any duk_heaphdr type, caller guarantees a non-NULL pointer. */ +DUK_LOCAL void duk__mark_heaphdr_nonnull(duk_heap *heap, duk_heaphdr *h) { + /* For now, just call the generic handler. Change when call sites + * are changed too. + */ + duk__mark_heaphdr(heap, h); +} + +/* + * Mark the heap. + */ + +DUK_LOCAL void duk__mark_roots_heap(duk_heap *heap) { + duk_small_uint_t i; + + DUK_DD(DUK_DDPRINT("duk__mark_roots_heap: %p", (void *) heap)); + + duk__mark_heaphdr(heap, (duk_heaphdr *) heap->heap_thread); + duk__mark_heaphdr(heap, (duk_heaphdr *) heap->heap_object); + + for (i = 0; i < DUK_HEAP_NUM_STRINGS; i++) { + duk_hstring *h = DUK_HEAP_GET_STRING(heap, i); + duk__mark_heaphdr(heap, (duk_heaphdr *) h); + } + + duk__mark_tval(heap, &heap->lj.value1); + duk__mark_tval(heap, &heap->lj.value2); + +#if defined(DUK_USE_DEBUGGER_SUPPORT) + for (i = 0; i < heap->dbg_breakpoint_count; i++) { + duk__mark_heaphdr(heap, (duk_heaphdr *) heap->dbg_breakpoints[i].filename); + } +#endif +} + +/* + * Mark unreachable, finalizable objects. + * + * Such objects will be moved aside and their finalizers run later. They + * have to be treated as reachability roots for their properties etc to + * remain allocated. This marking is only done for unreachable values which + * would be swept later. + * + * Objects are first marked FINALIZABLE and only then marked as reachability + * roots; otherwise circular references might be handled inconsistently. + */ + +#if defined(DUK_USE_FINALIZER_SUPPORT) +DUK_LOCAL void duk__mark_finalizable(duk_heap *heap) { + duk_heaphdr *hdr; + duk_size_t count_finalizable = 0; + + DUK_DD(DUK_DDPRINT("duk__mark_finalizable: %p", (void *) heap)); + + DUK_ASSERT(heap->heap_thread != NULL); + + hdr = heap->heap_allocated; + while (hdr != NULL) { + /* A finalizer is looked up from the object and up its + * prototype chain (which allows inherited finalizers). + * The finalizer is checked for using a duk_hobject flag + * which is kept in sync with the presence and callability + * of a _Finalizer hidden symbol. + */ + + if (!DUK_HEAPHDR_HAS_REACHABLE(hdr) && + DUK_HEAPHDR_IS_OBJECT(hdr) && + !DUK_HEAPHDR_HAS_FINALIZED(hdr) && + DUK_HOBJECT_HAS_FINALIZER_FAST(heap, (duk_hobject *) hdr)) { + /* heaphdr: + * - is not reachable + * - is an object + * - is not a finalized object waiting for rescue/keep decision + * - has a finalizer + */ + + DUK_DD(DUK_DDPRINT("unreachable heap object will be " + "finalized -> mark as finalizable " + "and treat as a reachability root: %p", + (void *) hdr)); + DUK_ASSERT(!DUK_HEAPHDR_HAS_READONLY(hdr)); + DUK_HEAPHDR_SET_FINALIZABLE(hdr); + count_finalizable++; + } + + hdr = DUK_HEAPHDR_GET_NEXT(heap, hdr); + } + + if (count_finalizable == 0) { + return; + } + + DUK_DD(DUK_DDPRINT("marked %ld heap objects as finalizable, now mark them reachable", + (long) count_finalizable)); + + hdr = heap->heap_allocated; + while (hdr != NULL) { + if (DUK_HEAPHDR_HAS_FINALIZABLE(hdr)) { + duk__mark_heaphdr_nonnull(heap, hdr); + } + + hdr = DUK_HEAPHDR_GET_NEXT(heap, hdr); + } + + /* Caller will finish the marking process if we hit a recursion limit. */ +} +#endif /* DUK_USE_FINALIZER_SUPPORT */ + +/* + * Mark objects on finalize_list. + */ + +#if defined(DUK_USE_FINALIZER_SUPPORT) +DUK_LOCAL void duk__mark_finalize_list(duk_heap *heap) { + duk_heaphdr *hdr; +#if defined(DUK_USE_DEBUG) + duk_size_t count_finalize_list = 0; +#endif + + DUK_DD(DUK_DDPRINT("duk__mark_finalize_list: %p", (void *) heap)); + + hdr = heap->finalize_list; + while (hdr != NULL) { + duk__mark_heaphdr_nonnull(heap, hdr); + hdr = DUK_HEAPHDR_GET_NEXT(heap, hdr); +#if defined(DUK_USE_DEBUG) + count_finalize_list++; +#endif + } + +#if defined(DUK_USE_DEBUG) + if (count_finalize_list > 0) { + DUK_D(DUK_DPRINT("marked %ld objects on the finalize_list as reachable (previous finalizer run skipped)", + (long) count_finalize_list)); + } +#endif +} +#endif /* DUK_USE_FINALIZER_SUPPORT */ + +/* + * Fallback marking handler if recursion limit is reached. + * + * Iterates 'temproots' until recursion limit is no longer hit. Temproots + * can be in heap_allocated or finalize_list; refzero_list is now always + * empty for mark-and-sweep. A temproot may occur in finalize_list now if + * there are objects on the finalize_list and user code creates a reference + * from an object in heap_allocated to the object in finalize_list (which is + * now allowed), and it happened to coincide with the recursion depth limit. + * + * This is a slow scan, but guarantees that we finish with a bounded C stack. + * + * Note that nodes may have been marked as temproots before this scan begun, + * OR they may have been marked during the scan (as we process nodes + * recursively also during the scan). This is intended behavior. + */ + +#if defined(DUK_USE_DEBUG) +DUK_LOCAL void duk__handle_temproot(duk_heap *heap, duk_heaphdr *hdr, duk_size_t *count) { +#else +DUK_LOCAL void duk__handle_temproot(duk_heap *heap, duk_heaphdr *hdr) { +#endif + DUK_ASSERT(hdr != NULL); + + if (!DUK_HEAPHDR_HAS_TEMPROOT(hdr)) { + DUK_DDD(DUK_DDDPRINT("not a temp root: %p", (void *) hdr)); + return; + } + + DUK_DDD(DUK_DDDPRINT("found a temp root: %p", (void *) hdr)); + DUK_HEAPHDR_CLEAR_TEMPROOT(hdr); + DUK_HEAPHDR_CLEAR_REACHABLE(hdr); /* Done so that duk__mark_heaphdr() works correctly. */ +#if defined(DUK_USE_ASSERTIONS) && defined(DUK_USE_REFERENCE_COUNTING) + hdr->h_assert_refcount--; /* Same node visited twice. */ +#endif + duk__mark_heaphdr_nonnull(heap, hdr); + +#if defined(DUK_USE_DEBUG) + (*count)++; +#endif +} + +DUK_LOCAL void duk__mark_temproots_by_heap_scan(duk_heap *heap) { + duk_heaphdr *hdr; +#if defined(DUK_USE_DEBUG) + duk_size_t count; +#endif + + DUK_DD(DUK_DDPRINT("duk__mark_temproots_by_heap_scan: %p", (void *) heap)); + + while (DUK_HEAP_HAS_MARKANDSWEEP_RECLIMIT_REACHED(heap)) { + DUK_DD(DUK_DDPRINT("recursion limit reached, doing heap scan to continue from temproots")); + +#if defined(DUK_USE_DEBUG) + count = 0; +#endif + DUK_HEAP_CLEAR_MARKANDSWEEP_RECLIMIT_REACHED(heap); + + hdr = heap->heap_allocated; + while (hdr) { +#if defined(DUK_USE_DEBUG) + duk__handle_temproot(heap, hdr, &count); +#else + duk__handle_temproot(heap, hdr); +#endif + hdr = DUK_HEAPHDR_GET_NEXT(heap, hdr); + } + +#if defined(DUK_USE_FINALIZER_SUPPORT) + hdr = heap->finalize_list; + while (hdr) { +#if defined(DUK_USE_DEBUG) + duk__handle_temproot(heap, hdr, &count); +#else + duk__handle_temproot(heap, hdr); +#endif + hdr = DUK_HEAPHDR_GET_NEXT(heap, hdr); + } +#endif + +#if defined(DUK_USE_DEBUG) + DUK_DD(DUK_DDPRINT("temproot mark heap scan processed %ld temp roots", (long) count)); +#endif + } +} + +/* + * Finalize refcounts for heap elements just about to be freed. + * This must be done for all objects before freeing to avoid any + * stale pointer dereferences. + * + * Note that this must deduce the set of objects to be freed + * identically to duk__sweep_heap(). + */ + +#if defined(DUK_USE_REFERENCE_COUNTING) +DUK_LOCAL void duk__finalize_refcounts(duk_heap *heap) { + duk_heaphdr *hdr; + + DUK_ASSERT(heap->heap_thread != NULL); + + DUK_DD(DUK_DDPRINT("duk__finalize_refcounts: heap=%p", (void *) heap)); + + hdr = heap->heap_allocated; + while (hdr) { + if (!DUK_HEAPHDR_HAS_REACHABLE(hdr)) { + /* + * Unreachable object about to be swept. Finalize target refcounts + * (objects which the unreachable object points to) without doing + * refzero processing. Recursive decrefs are also prevented when + * refzero processing is disabled. + * + * Value cannot be a finalizable object, as they have been made + * temporarily reachable for this round. + */ + + DUK_DDD(DUK_DDDPRINT("unreachable object, refcount finalize before sweeping: %p", (void *) hdr)); + + /* Finalize using heap->heap_thread; DECREF has a + * suppress check for mark-and-sweep which is based + * on heap->ms_running. + */ + duk_heaphdr_refcount_finalize_norz(heap, hdr); + } + + hdr = DUK_HEAPHDR_GET_NEXT(heap, hdr); + } +} +#endif /* DUK_USE_REFERENCE_COUNTING */ + +/* + * Clear (reachable) flags of finalize_list. + * + * We could mostly do in the sweep phase when we move objects from the + * heap into the finalize_list. However, if a finalizer run is skipped + * during a mark-and-sweep, the objects on the finalize_list will be marked + * reachable during the next mark-and-sweep. Since they're already on the + * finalize_list, no-one will be clearing their REACHABLE flag so we do it + * here. (This now overlaps with the sweep handling in a harmless way.) + */ + +#if defined(DUK_USE_FINALIZER_SUPPORT) +DUK_LOCAL void duk__clear_finalize_list_flags(duk_heap *heap) { + duk_heaphdr *hdr; + + DUK_DD(DUK_DDPRINT("duk__clear_finalize_list_flags: %p", (void *) heap)); + + hdr = heap->finalize_list; + while (hdr) { + DUK_HEAPHDR_CLEAR_REACHABLE(hdr); +#if defined(DUK_USE_ASSERTIONS) + DUK_ASSERT(DUK_HEAPHDR_HAS_FINALIZABLE(hdr) || \ + (heap->currently_finalizing == hdr)); +#endif + /* DUK_HEAPHDR_FLAG_FINALIZED may be set. */ + DUK_ASSERT(!DUK_HEAPHDR_HAS_TEMPROOT(hdr)); + hdr = DUK_HEAPHDR_GET_NEXT(heap, hdr); + } +} +#endif /* DUK_USE_FINALIZER_SUPPORT */ + +/* + * Sweep stringtable. + */ + +DUK_LOCAL void duk__sweep_stringtable(duk_heap *heap, duk_size_t *out_count_keep) { + duk_hstring *h; + duk_hstring *prev; + duk_uint32_t i; +#if defined(DUK_USE_DEBUG) + duk_size_t count_free = 0; +#endif + duk_size_t count_keep = 0; + + DUK_DD(DUK_DDPRINT("duk__sweep_stringtable: %p", (void *) heap)); + +#if defined(DUK_USE_STRTAB_PTRCOMP) + if (heap->strtable16 == NULL) { +#else + if (heap->strtable == NULL) { +#endif + goto done; + } + + for (i = 0; i < heap->st_size; i++) { +#if defined(DUK_USE_STRTAB_PTRCOMP) + h = DUK_USE_HEAPPTR_DEC16(heap->heap_udata, heap->strtable16[i]); +#else + h = heap->strtable[i]; +#endif + prev = NULL; + while (h != NULL) { + duk_hstring *next; + next = h->hdr.h_next; + + if (DUK_HEAPHDR_HAS_REACHABLE((duk_heaphdr *) h)) + { + DUK_HEAPHDR_CLEAR_REACHABLE((duk_heaphdr *) h); + count_keep++; + prev = h; + } else { +#if defined(DUK_USE_DEBUG) + count_free++; +#endif + + /* For pinned strings the refcount has been + * bumped. We could unbump it here before + * freeing, but that's actually not necessary + * except for assertions. + */ +#if 0 + if (DUK_HSTRING_HAS_PINNED_LITERAL(h)) { + DUK_ASSERT(DUK_HEAPHDR_GET_REFCOUNT((duk_heaphdr *) h) > 0U); + DUK_HSTRING_DECREF_NORZ(heap->heap_thread, h); + DUK_HSTRING_CLEAR_PINNED_LITERAL(h); + } +#endif +#if defined(DUK_USE_REFERENCE_COUNTING) + /* Non-zero refcounts should not happen for unreachable strings, + * because we refcount finalize all unreachable objects which + * should have decreased unreachable string refcounts to zero + * (even for cycles). However, pinned strings have a +1 bump. + */ + DUK_ASSERT(DUK_HEAPHDR_GET_REFCOUNT((duk_heaphdr *) h) == + DUK_HSTRING_HAS_PINNED_LITERAL(h) ? 1U : 0U); +#endif + + /* Deal with weak references first. */ + duk_heap_strcache_string_remove(heap, (duk_hstring *) h); + + /* Remove the string from the string table. */ + duk_heap_strtable_unlink_prev(heap, (duk_hstring *) h, (duk_hstring *) prev); + + /* Free inner references (these exist e.g. when external + * strings are enabled) and the struct itself. + */ + duk_free_hstring(heap, (duk_hstring *) h); + + /* Don't update 'prev'; it should be last string kept. */ + } + + h = next; + } + } + + done: +#if defined(DUK_USE_DEBUG) + DUK_D(DUK_DPRINT("mark-and-sweep sweep stringtable: %ld freed, %ld kept", + (long) count_free, (long) count_keep)); +#endif + *out_count_keep = count_keep; +} + +/* + * Sweep heap. + */ + +DUK_LOCAL void duk__sweep_heap(duk_heap *heap, duk_small_uint_t flags, duk_size_t *out_count_keep) { + duk_heaphdr *prev; /* last element that was left in the heap */ + duk_heaphdr *curr; + duk_heaphdr *next; +#if defined(DUK_USE_DEBUG) + duk_size_t count_free = 0; + duk_size_t count_finalize = 0; + duk_size_t count_rescue = 0; +#endif + duk_size_t count_keep = 0; + + DUK_DD(DUK_DDPRINT("duk__sweep_heap: %p", (void *) heap)); + + prev = NULL; + curr = heap->heap_allocated; + heap->heap_allocated = NULL; + while (curr) { + /* Strings and ROM objects are never placed on the heap allocated list. */ + DUK_ASSERT(DUK_HEAPHDR_GET_TYPE(curr) != DUK_HTYPE_STRING); + DUK_ASSERT(!DUK_HEAPHDR_HAS_READONLY(curr)); + + next = DUK_HEAPHDR_GET_NEXT(heap, curr); + + if (DUK_HEAPHDR_HAS_REACHABLE(curr)) { + /* + * Reachable object: + * - If FINALIZABLE -> actually unreachable (but marked + * artificially reachable), queue to finalize_list. + * - If !FINALIZABLE but FINALIZED -> rescued after + * finalizer execution. + * - Otherwise just a normal, reachable object. + * + * Objects which are kept are queued to heap_allocated + * tail (we're essentially filtering heap_allocated in + * practice). + */ + +#if defined(DUK_USE_FINALIZER_SUPPORT) + if (DUK_UNLIKELY(DUK_HEAPHDR_HAS_FINALIZABLE(curr))) { + DUK_ASSERT(!DUK_HEAPHDR_HAS_FINALIZED(curr)); + DUK_ASSERT(DUK_HEAPHDR_GET_TYPE(curr) == DUK_HTYPE_OBJECT); + DUK_DD(DUK_DDPRINT("sweep; reachable, finalizable --> move to finalize_list: %p", (void *) curr)); + +#if defined(DUK_USE_REFERENCE_COUNTING) + DUK_HEAPHDR_PREINC_REFCOUNT(curr); /* Bump refcount so that refzero never occurs when pending a finalizer call. */ +#endif + DUK_HEAP_INSERT_INTO_FINALIZE_LIST(heap, curr); +#if defined(DUK_USE_DEBUG) + count_finalize++; +#endif + } + else +#endif /* DUK_USE_FINALIZER_SUPPORT */ + { + if (DUK_UNLIKELY(DUK_HEAPHDR_HAS_FINALIZED(curr))) { + DUK_ASSERT(!DUK_HEAPHDR_HAS_FINALIZABLE(curr)); + DUK_ASSERT(DUK_HEAPHDR_GET_TYPE(curr) == DUK_HTYPE_OBJECT); + + if (flags & DUK_MS_FLAG_POSTPONE_RESCUE) { + DUK_DD(DUK_DDPRINT("sweep; reachable, finalized, but postponing rescue decisions --> keep object (with FINALIZED set): %!iO", curr)); + count_keep++; + } else { + DUK_DD(DUK_DDPRINT("sweep; reachable, finalized --> rescued after finalization: %p", (void *) curr)); +#if defined(DUK_USE_FINALIZER_SUPPORT) + DUK_HEAPHDR_CLEAR_FINALIZED(curr); +#endif +#if defined(DUK_USE_DEBUG) + count_rescue++; +#endif + } + } else { + DUK_DD(DUK_DDPRINT("sweep; reachable --> keep: %!iO", curr)); + count_keep++; + } + + if (prev != NULL) { + DUK_ASSERT(heap->heap_allocated != NULL); + DUK_HEAPHDR_SET_NEXT(heap, prev, curr); + } else { + DUK_ASSERT(heap->heap_allocated == NULL); + heap->heap_allocated = curr; + } +#if defined(DUK_USE_DOUBLE_LINKED_HEAP) + DUK_HEAPHDR_SET_PREV(heap, curr, prev); +#endif + DUK_HEAPHDR_ASSERT_LINKS(heap, prev); + DUK_HEAPHDR_ASSERT_LINKS(heap, curr); + prev = curr; + } + + /* + * Shrink check for value stacks here. We're inside + * ms_prevent_count protection which prevents recursive + * mark-and-sweep and refzero finalizers, so there are + * no side effects that would affect the heap lists. + */ + if (DUK_HEAPHDR_IS_OBJECT(curr) && DUK_HOBJECT_IS_THREAD((duk_hobject *) curr)) { + duk_hthread *thr_curr = (duk_hthread *) curr; + DUK_DD(DUK_DDPRINT("value stack shrink check for thread: %!O", curr)); + duk_valstack_shrink_check_nothrow(thr_curr, flags & DUK_MS_FLAG_EMERGENCY /*snug*/); + } + + DUK_HEAPHDR_CLEAR_REACHABLE(curr); + /* Keep FINALIZED if set, used if rescue decisions are postponed. */ + /* Keep FINALIZABLE for objects on finalize_list. */ + DUK_ASSERT(!DUK_HEAPHDR_HAS_REACHABLE(curr)); + } else { + /* + * Unreachable object: + * - If FINALIZED, object was finalized but not + * rescued. This doesn't affect freeing. + * - Otherwise normal unreachable object. + * + * There's no guard preventing a FINALIZED object + * from being freed while finalizers execute: the + * artificial finalize_list reachability roots can't + * cause an incorrect free decision (but can cause + * an incorrect rescue decision). + */ + +#if defined(DUK_USE_REFERENCE_COUNTING) + /* Non-zero refcounts should not happen because we refcount + * finalize all unreachable objects which should cancel out + * refcounts (even for cycles). + */ + DUK_ASSERT(DUK_HEAPHDR_GET_REFCOUNT(curr) == 0); +#endif + DUK_ASSERT(!DUK_HEAPHDR_HAS_FINALIZABLE(curr)); + +#if defined(DUK_USE_DEBUG) + if (DUK_HEAPHDR_HAS_FINALIZED(curr)) { + DUK_DD(DUK_DDPRINT("sweep; unreachable, finalized --> finalized object not rescued: %p", (void *) curr)); + } else { + DUK_DD(DUK_DDPRINT("sweep; not reachable --> free: %p", (void *) curr)); + } + +#endif + + /* Note: object cannot be a finalizable unreachable object, as + * they have been marked temporarily reachable for this round, + * and are handled above. + */ + +#if defined(DUK_USE_DEBUG) + count_free++; +#endif + + /* Weak refs should be handled here, but no weak refs for + * any non-string objects exist right now. + */ + + /* Free object and all auxiliary (non-heap) allocs. */ + duk_heap_free_heaphdr_raw(heap, curr); + } + + curr = next; + } + + if (prev != NULL) { + DUK_HEAPHDR_SET_NEXT(heap, prev, NULL); + } + DUK_HEAPHDR_ASSERT_LINKS(heap, prev); + +#if defined(DUK_USE_DEBUG) + DUK_D(DUK_DPRINT("mark-and-sweep sweep objects (non-string): %ld freed, %ld kept, %ld rescued, %ld queued for finalization", + (long) count_free, (long) count_keep, (long) count_rescue, (long) count_finalize)); +#endif + *out_count_keep = count_keep; +} + +/* + * Litcache helpers. + */ + +#if defined(DUK_USE_LITCACHE_SIZE) +DUK_LOCAL void duk__wipe_litcache(duk_heap *heap) { + duk_uint_t i; + duk_litcache_entry *e; + + e = heap->litcache; + for (i = 0; i < DUK_USE_LITCACHE_SIZE; i++) { + e->addr = NULL; + /* e->h does not need to be invalidated: when e->addr is + * NULL, e->h is considered garbage. + */ + e++; + } +} +#endif /* DUK_USE_LITCACHE_SIZE */ + +/* + * Object compaction. + * + * Compaction is assumed to never throw an error. + */ + +DUK_LOCAL int duk__protected_compact_object(duk_hthread *thr, void *udata) { + duk_hobject *obj; + /* XXX: for threads, compact stacks? */ + + DUK_UNREF(udata); + obj = duk_known_hobject(thr, -1); + duk_hobject_compact_props(thr, obj); + return 0; +} + +#if defined(DUK_USE_DEBUG) +DUK_LOCAL void duk__compact_object_list(duk_heap *heap, duk_hthread *thr, duk_heaphdr *start, duk_size_t *p_count_check, duk_size_t *p_count_compact, duk_size_t *p_count_bytes_saved) { +#else +DUK_LOCAL void duk__compact_object_list(duk_heap *heap, duk_hthread *thr, duk_heaphdr *start) { +#endif + duk_heaphdr *curr; +#if defined(DUK_USE_DEBUG) + duk_size_t old_size, new_size; +#endif + duk_hobject *obj; + + DUK_UNREF(heap); + + curr = start; + while (curr) { + DUK_DDD(DUK_DDDPRINT("mark-and-sweep compact: %p", (void *) curr)); + + if (DUK_HEAPHDR_GET_TYPE(curr) != DUK_HTYPE_OBJECT) { + goto next; + } + obj = (duk_hobject *) curr; + +#if defined(DUK_USE_DEBUG) + old_size = DUK_HOBJECT_P_COMPUTE_SIZE(DUK_HOBJECT_GET_ESIZE(obj), + DUK_HOBJECT_GET_ASIZE(obj), + DUK_HOBJECT_GET_HSIZE(obj)); +#endif + + DUK_DD(DUK_DDPRINT("compact object: %p", (void *) obj)); + duk_push_hobject(thr, obj); + /* XXX: disable error handlers for duration of compaction? */ + duk_safe_call(thr, duk__protected_compact_object, NULL, 1, 0); + +#if defined(DUK_USE_DEBUG) + new_size = DUK_HOBJECT_P_COMPUTE_SIZE(DUK_HOBJECT_GET_ESIZE(obj), + DUK_HOBJECT_GET_ASIZE(obj), + DUK_HOBJECT_GET_HSIZE(obj)); +#endif + +#if defined(DUK_USE_DEBUG) + (*p_count_compact)++; + (*p_count_bytes_saved) += (duk_size_t) (old_size - new_size); +#endif + + next: + curr = DUK_HEAPHDR_GET_NEXT(heap, curr); +#if defined(DUK_USE_DEBUG) + (*p_count_check)++; +#endif + } +} + +DUK_LOCAL void duk__compact_objects(duk_heap *heap) { + /* XXX: which lists should participate? to be finalized? */ +#if defined(DUK_USE_DEBUG) + duk_size_t count_check = 0; + duk_size_t count_compact = 0; + duk_size_t count_bytes_saved = 0; +#endif + + DUK_DD(DUK_DDPRINT("duk__compact_objects: %p", (void *) heap)); + + DUK_ASSERT(heap->heap_thread != NULL); + +#if defined(DUK_USE_DEBUG) + duk__compact_object_list(heap, heap->heap_thread, heap->heap_allocated, &count_check, &count_compact, &count_bytes_saved); +#if defined(DUK_USE_FINALIZER_SUPPORT) + duk__compact_object_list(heap, heap->heap_thread, heap->finalize_list, &count_check, &count_compact, &count_bytes_saved); +#endif +#else + duk__compact_object_list(heap, heap->heap_thread, heap->heap_allocated); +#if defined(DUK_USE_FINALIZER_SUPPORT) + duk__compact_object_list(heap, heap->heap_thread, heap->finalize_list); +#endif +#endif +#if defined(DUK_USE_REFERENCE_COUNTING) + DUK_ASSERT(heap->refzero_list == NULL); /* Always handled to completion inline in DECREF. */ +#endif + +#if defined(DUK_USE_DEBUG) + DUK_D(DUK_DPRINT("mark-and-sweep compact objects: %ld checked, %ld compaction attempts, %ld bytes saved by compaction", + (long) count_check, (long) count_compact, (long) count_bytes_saved)); +#endif +} + +/* + * Assertion helpers. + */ + +#if defined(DUK_USE_ASSERTIONS) +typedef void (*duk__gc_heaphdr_assert)(duk_heap *heap, duk_heaphdr *h); +typedef void (*duk__gc_hstring_assert)(duk_heap *heap, duk_hstring *h); + +DUK_LOCAL void duk__assert_walk_list(duk_heap *heap, duk_heaphdr *start, duk__gc_heaphdr_assert func) { + duk_heaphdr *curr; + for (curr = start; curr != NULL; curr = DUK_HEAPHDR_GET_NEXT(heap, curr)) { + func(heap, curr); + } +} + +DUK_LOCAL void duk__assert_walk_strtable(duk_heap *heap, duk__gc_hstring_assert func) { + duk_uint32_t i; + + for (i = 0; i < heap->st_size; i++) { + duk_hstring *h; + +#if defined(DUK_USE_STRTAB_PTRCOMP) + h = DUK_USE_HEAPPTR_DEC16(heap->heap_udata, heap->strtable16[i]); +#else + h = heap->strtable[i]; +#endif + while (h != NULL) { + func(heap, h); + h = h->hdr.h_next; + } + } +} + +DUK_LOCAL void duk__assert_heaphdr_flags_cb(duk_heap *heap, duk_heaphdr *h) { + DUK_UNREF(heap); + DUK_ASSERT(!DUK_HEAPHDR_HAS_REACHABLE(h)); + DUK_ASSERT(!DUK_HEAPHDR_HAS_TEMPROOT(h)); + DUK_ASSERT(!DUK_HEAPHDR_HAS_FINALIZABLE(h)); + /* may have FINALIZED */ +} +DUK_LOCAL void duk__assert_heaphdr_flags(duk_heap *heap) { + duk__assert_walk_list(heap, heap->heap_allocated, duk__assert_heaphdr_flags_cb); +#if defined(DUK_USE_REFERENCE_COUNTING) + DUK_ASSERT(heap->refzero_list == NULL); /* Always handled to completion inline in DECREF. */ +#endif + /* XXX: Assertions for finalize_list? */ +} + +DUK_LOCAL void duk__assert_validity_cb1(duk_heap *heap, duk_heaphdr *h) { + DUK_UNREF(heap); + DUK_ASSERT(DUK_HEAPHDR_IS_OBJECT(h) || DUK_HEAPHDR_IS_BUFFER(h)); + duk_heaphdr_assert_valid_subclassed(h); +} +DUK_LOCAL void duk__assert_validity_cb2(duk_heap *heap, duk_hstring *h) { + DUK_UNREF(heap); + DUK_ASSERT(DUK_HEAPHDR_IS_STRING((duk_heaphdr *) h)); + duk_heaphdr_assert_valid_subclassed((duk_heaphdr *) h); +} +DUK_LOCAL void duk__assert_validity(duk_heap *heap) { + duk__assert_walk_list(heap, heap->heap_allocated, duk__assert_validity_cb1); +#if defined(DUK_USE_FINALIZER_SUPPORT) + duk__assert_walk_list(heap, heap->finalize_list, duk__assert_validity_cb1); +#endif +#if defined(DUK_USE_REFERENCE_COUNTING) + duk__assert_walk_list(heap, heap->refzero_list, duk__assert_validity_cb1); +#endif + duk__assert_walk_strtable(heap, duk__assert_validity_cb2); +} + +#if defined(DUK_USE_REFERENCE_COUNTING) +DUK_LOCAL void duk__assert_valid_refcounts_cb(duk_heap *heap, duk_heaphdr *h) { + /* Cannot really assert much w.r.t. refcounts now. */ + + DUK_UNREF(heap); + if (DUK_HEAPHDR_GET_REFCOUNT(h) == 0 && + DUK_HEAPHDR_HAS_FINALIZED(h)) { + /* An object may be in heap_allocated list with a zero + * refcount if it has just been finalized and is waiting + * to be collected by the next cycle. + * (This doesn't currently happen however.) + */ + } else if (DUK_HEAPHDR_GET_REFCOUNT(h) == 0) { + /* An object may be in heap_allocated list with a zero + * refcount also if it is a temporary object created + * during debugger paused state. It will get collected + * by mark-and-sweep based on its reachability status + * (presumably not reachable because refcount is 0). + */ + } + DUK_ASSERT_DISABLE(DUK_HEAPHDR_GET_REFCOUNT(h) >= 0); /* Unsigned. */ +} +DUK_LOCAL void duk__assert_valid_refcounts(duk_heap *heap) { + duk__assert_walk_list(heap, heap->heap_allocated, duk__assert_valid_refcounts_cb); +} + +DUK_LOCAL void duk__clear_assert_refcounts_cb1(duk_heap *heap, duk_heaphdr *h) { + DUK_UNREF(heap); + h->h_assert_refcount = 0; +} +DUK_LOCAL void duk__clear_assert_refcounts_cb2(duk_heap *heap, duk_hstring *h) { + DUK_UNREF(heap); + ((duk_heaphdr *) h)->h_assert_refcount = 0; +} +DUK_LOCAL void duk__clear_assert_refcounts(duk_heap *heap) { + duk__assert_walk_list(heap, heap->heap_allocated, duk__clear_assert_refcounts_cb1); +#if defined(DUK_USE_FINALIZER_SUPPORT) + duk__assert_walk_list(heap, heap->finalize_list, duk__clear_assert_refcounts_cb1); +#endif +#if defined(DUK_USE_REFERENCE_COUNTING) + duk__assert_walk_list(heap, heap->refzero_list, duk__clear_assert_refcounts_cb1); +#endif + duk__assert_walk_strtable(heap, duk__clear_assert_refcounts_cb2); +} + +DUK_LOCAL void duk__check_refcount_heaphdr(duk_heaphdr *hdr) { + duk_bool_t count_ok; + duk_size_t expect_refc; + + /* The refcount check only makes sense for reachable objects on + * heap_allocated or string table, after the sweep phase. Prior to + * sweep phase refcounts will include references that are not visible + * via reachability roots. + * + * Because we're called after the sweep phase, all heap objects on + * heap_allocated are reachable. REACHABLE flags have already been + * cleared so we can't check them. + */ + + /* ROM objects have intentionally incorrect refcount (1), but we won't + * check them. + */ + DUK_ASSERT(!DUK_HEAPHDR_HAS_READONLY(hdr)); + + expect_refc = hdr->h_assert_refcount; + if (DUK_HEAPHDR_IS_STRING(hdr) && DUK_HSTRING_HAS_PINNED_LITERAL((duk_hstring *) hdr)) { + expect_refc++; + } + count_ok = ((duk_size_t) DUK_HEAPHDR_GET_REFCOUNT(hdr) == expect_refc); + if (!count_ok) { + DUK_D(DUK_DPRINT("refcount mismatch for: %p: header=%ld counted=%ld --> %!iO", + (void *) hdr, (long) DUK_HEAPHDR_GET_REFCOUNT(hdr), + (long) hdr->h_assert_refcount, hdr)); + DUK_ASSERT(0); + } +} + +DUK_LOCAL void duk__check_assert_refcounts_cb1(duk_heap *heap, duk_heaphdr *h) { + DUK_UNREF(heap); + duk__check_refcount_heaphdr(h); +} +DUK_LOCAL void duk__check_assert_refcounts_cb2(duk_heap *heap, duk_hstring *h) { + DUK_UNREF(heap); + duk__check_refcount_heaphdr((duk_heaphdr *) h); +} +DUK_LOCAL void duk__check_assert_refcounts(duk_heap *heap) { + duk__assert_walk_list(heap, heap->heap_allocated, duk__check_assert_refcounts_cb1); +#if defined(DUK_USE_FINALIZER_SUPPORT) + duk__assert_walk_list(heap, heap->finalize_list, duk__check_assert_refcounts_cb1); +#endif + /* XXX: Assert anything for refzero_list? */ + duk__assert_walk_strtable(heap, duk__check_assert_refcounts_cb2); +} +#endif /* DUK_USE_REFERENCE_COUNTING */ + +#if defined(DUK_USE_LITCACHE_SIZE) +DUK_LOCAL void duk__assert_litcache_nulls(duk_heap *heap) { + duk_uint_t i; + duk_litcache_entry *e; + + e = heap->litcache; + for (i = 0; i < DUK_USE_LITCACHE_SIZE; i++) { + /* Entry addresses were NULLed before mark-and-sweep, check + * that they're still NULL afterwards to ensure no pointers + * were recorded through any side effects. + */ + DUK_ASSERT(e->addr == NULL); + } +} +#endif /* DUK_USE_LITCACHE_SIZE */ +#endif /* DUK_USE_ASSERTIONS */ + +/* + * Stats dump. + */ + +#if defined(DUK_USE_DEBUG) +DUK_LOCAL void duk__dump_stats(duk_heap *heap) { + DUK_D(DUK_DPRINT("stats executor: opcodes=%ld, interrupt=%ld, throw=%ld", + (long) heap->stats_exec_opcodes, (long) heap->stats_exec_interrupt, + (long) heap->stats_exec_throw)); + DUK_D(DUK_DPRINT("stats call: all=%ld, tailcall=%ld, ecmatoecma=%ld", + (long) heap->stats_call_all, (long) heap->stats_call_tailcall, + (long) heap->stats_call_ecmatoecma)); + DUK_D(DUK_DPRINT("stats safecall: all=%ld, nothrow=%ld, throw=%ld", + (long) heap->stats_safecall_all, (long) heap->stats_safecall_nothrow, + (long) heap->stats_safecall_throw)); + DUK_D(DUK_DPRINT("stats mark-and-sweep: try_count=%ld, skip_count=%ld, emergency_count=%ld", + (long) heap->stats_ms_try_count, (long) heap->stats_ms_skip_count, + (long) heap->stats_ms_emergency_count)); + DUK_D(DUK_DPRINT("stats stringtable: intern_hit=%ld, intern_miss=%ld, " + "resize_check=%ld, resize_grow=%ld, resize_shrink=%ld, " + "litcache_hit=%ld, litcache_miss=%ld, litcache_pin=%ld", + (long) heap->stats_strtab_intern_hit, (long) heap->stats_strtab_intern_miss, + (long) heap->stats_strtab_resize_check, (long) heap->stats_strtab_resize_grow, + (long) heap->stats_strtab_resize_shrink, (long) heap->stats_strtab_litcache_hit, + (long) heap->stats_strtab_litcache_miss, (long) heap->stats_strtab_litcache_pin)); + DUK_D(DUK_DPRINT("stats object: realloc_props=%ld, abandon_array=%ld", + (long) heap->stats_object_realloc_props, (long) heap->stats_object_abandon_array)); + DUK_D(DUK_DPRINT("stats getownpropdesc: count=%ld, hit=%ld, miss=%ld", + (long) heap->stats_getownpropdesc_count, (long) heap->stats_getownpropdesc_hit, + (long) heap->stats_getownpropdesc_miss)); + DUK_D(DUK_DPRINT("stats getpropdesc: count=%ld, hit=%ld, miss=%ld", + (long) heap->stats_getpropdesc_count, (long) heap->stats_getpropdesc_hit, + (long) heap->stats_getpropdesc_miss)); + DUK_D(DUK_DPRINT("stats getprop: all=%ld, arrayidx=%ld, bufobjidx=%ld, " + "bufferidx=%ld, bufferlen=%ld, stringidx=%ld, stringlen=%ld, " + "proxy=%ld, arguments=%ld", + (long) heap->stats_getprop_all, (long) heap->stats_getprop_arrayidx, + (long) heap->stats_getprop_bufobjidx, (long) heap->stats_getprop_bufferidx, + (long) heap->stats_getprop_bufferlen, (long) heap->stats_getprop_stringidx, + (long) heap->stats_getprop_stringlen, (long) heap->stats_getprop_proxy, + (long) heap->stats_getprop_arguments)); + DUK_D(DUK_DPRINT("stats putprop: all=%ld, arrayidx=%ld, bufobjidx=%ld, " + "bufferidx=%ld, proxy=%ld", + (long) heap->stats_putprop_all, (long) heap->stats_putprop_arrayidx, + (long) heap->stats_putprop_bufobjidx, (long) heap->stats_putprop_bufferidx, + (long) heap->stats_putprop_proxy)); + DUK_D(DUK_DPRINT("stats getvar: all=%ld", + (long) heap->stats_getvar_all)); + DUK_D(DUK_DPRINT("stats putvar: all=%ld", + (long) heap->stats_putvar_all)); + DUK_D(DUK_DPRINT("stats envrec: delayedcreate=%ld, create=%ld, newenv=%ld, oldenv=%ld, pushclosure=%ld", + (long) heap->stats_envrec_delayedcreate, + (long) heap->stats_envrec_create, + (long) heap->stats_envrec_newenv, + (long) heap->stats_envrec_oldenv, + (long) heap->stats_envrec_pushclosure)); +} +#endif /* DUK_USE_DEBUG */ + +/* + * Main mark-and-sweep function. + * + * 'flags' represents the features requested by the caller. The current + * heap->ms_base_flags is ORed automatically into the flags; the base flags + * mask typically prevents certain mark-and-sweep operation to avoid trouble. + */ + +DUK_INTERNAL void duk_heap_mark_and_sweep(duk_heap *heap, duk_small_uint_t flags) { + duk_size_t count_keep_obj; + duk_size_t count_keep_str; +#if defined(DUK_USE_VOLUNTARY_GC) + duk_size_t tmp; +#endif + + DUK_STATS_INC(heap, stats_ms_try_count); +#if defined(DUK_USE_DEBUG) + if (flags & DUK_MS_FLAG_EMERGENCY) { + DUK_STATS_INC(heap, stats_ms_emergency_count); + } +#endif + + /* If debugger is paused, garbage collection is disabled by default. + * This is achieved by bumping ms_prevent_count when becoming paused. + */ + DUK_ASSERT(!DUK_HEAP_HAS_DEBUGGER_PAUSED(heap) || heap->ms_prevent_count > 0); + + /* Prevention/recursion check as soon as possible because we may + * be called a number of times when voluntary mark-and-sweep is + * pending. + */ + if (heap->ms_prevent_count != 0) { + DUK_DD(DUK_DDPRINT("reject recursive mark-and-sweep")); + DUK_STATS_INC(heap, stats_ms_skip_count); + return; + } + DUK_ASSERT(heap->ms_running == 0); /* ms_prevent_count is bumped when ms_running is set */ + + /* Heap_thread is used during mark-and-sweep for refcount finalization + * (it's also used for finalizer execution once mark-and-sweep is + * complete). Heap allocation code ensures heap_thread is set and + * properly initialized before setting ms_prevent_count to 0. + */ + DUK_ASSERT(heap->heap_thread != NULL); + DUK_ASSERT(heap->heap_thread->valstack != NULL); + + DUK_D(DUK_DPRINT("garbage collect (mark-and-sweep) starting, requested flags: 0x%08lx, effective flags: 0x%08lx", + (unsigned long) flags, (unsigned long) (flags | heap->ms_base_flags))); + + flags |= heap->ms_base_flags; +#if defined(DUK_USE_FINALIZER_SUPPORT) + if (heap->finalize_list != NULL) { + flags |= DUK_MS_FLAG_POSTPONE_RESCUE; + } +#endif + + /* + * Assertions before + */ + +#if defined(DUK_USE_ASSERTIONS) + DUK_ASSERT(heap->ms_prevent_count == 0); + DUK_ASSERT(heap->ms_running == 0); + DUK_ASSERT(!DUK_HEAP_HAS_DEBUGGER_PAUSED(heap)); + DUK_ASSERT(!DUK_HEAP_HAS_MARKANDSWEEP_RECLIMIT_REACHED(heap)); + DUK_ASSERT(heap->ms_recursion_depth == 0); + duk__assert_heaphdr_flags(heap); + duk__assert_validity(heap); +#if defined(DUK_USE_REFERENCE_COUNTING) + /* Note: heap->refzero_free_running may be true; a refcount + * finalizer may trigger a mark-and-sweep. + */ + duk__assert_valid_refcounts(heap); +#endif /* DUK_USE_REFERENCE_COUNTING */ +#endif /* DUK_USE_ASSERTIONS */ + + /* + * Begin + */ + + DUK_ASSERT(heap->ms_prevent_count == 0); + DUK_ASSERT(heap->ms_running == 0); + heap->ms_prevent_count = 1; + heap->ms_running = 1; + + /* + * Free activation/catcher freelists on every mark-and-sweep for now. + * This is an initial rough draft; ideally we'd keep count of the + * freelist size and free only excess entries. + */ + + DUK_D(DUK_DPRINT("freeing temporary freelists")); + duk_heap_free_freelists(heap); + + /* + * Mark roots, hoping that recursion limit is not normally hit. + * If recursion limit is hit, run additional reachability rounds + * starting from "temproots" until marking is complete. + * + * Marking happens in two phases: first we mark actual reachability + * roots (and run "temproots" to complete the process). Then we + * check which objects are unreachable and are finalizable; such + * objects are marked as FINALIZABLE and marked as reachability + * (and "temproots" is run again to complete the process). + * + * The heap finalize_list must also be marked as a reachability root. + * There may be objects on the list from a previous round if the + * previous run had finalizer skip flag. + */ + +#if defined(DUK_USE_ASSERTIONS) && defined(DUK_USE_REFERENCE_COUNTING) + duk__clear_assert_refcounts(heap); +#endif +#if defined(DUK_USE_LITCACHE_SIZE) + duk__wipe_litcache(heap); +#endif + duk__mark_roots_heap(heap); /* Mark main reachability roots. */ +#if defined(DUK_USE_REFERENCE_COUNTING) + DUK_ASSERT(heap->refzero_list == NULL); /* Always handled to completion inline in DECREF. */ +#endif + duk__mark_temproots_by_heap_scan(heap); /* Temproots. */ + +#if defined(DUK_USE_FINALIZER_SUPPORT) + duk__mark_finalizable(heap); /* Mark finalizable as reachability roots. */ + duk__mark_finalize_list(heap); /* Mark finalizer work list as reachability roots. */ +#endif + duk__mark_temproots_by_heap_scan(heap); /* Temproots. */ + + /* + * Sweep garbage and remove marking flags, and move objects with + * finalizers to the finalizer work list. + * + * Objects to be swept need to get their refcounts finalized before + * they are swept. In other words, their target object refcounts + * need to be decreased. This has to be done before freeing any + * objects to avoid decref'ing dangling pointers (which may happen + * even without bugs, e.g. with reference loops) + * + * Because strings don't point to other heap objects, similar + * finalization is not necessary for strings. + */ + + /* XXX: more emergency behavior, e.g. find smaller hash sizes etc */ + +#if defined(DUK_USE_REFERENCE_COUNTING) + duk__finalize_refcounts(heap); +#endif + duk__sweep_heap(heap, flags, &count_keep_obj); + duk__sweep_stringtable(heap, &count_keep_str); +#if defined(DUK_USE_ASSERTIONS) && defined(DUK_USE_REFERENCE_COUNTING) + duk__check_assert_refcounts(heap); +#endif +#if defined(DUK_USE_REFERENCE_COUNTING) + DUK_ASSERT(heap->refzero_list == NULL); /* Always handled to completion inline in DECREF. */ +#endif +#if defined(DUK_USE_FINALIZER_SUPPORT) + duk__clear_finalize_list_flags(heap); +#endif + + /* + * Object compaction (emergency only). + * + * Object compaction is a separate step after sweeping, as there is + * more free memory for it to work with. Also, currently compaction + * may insert new objects into the heap allocated list and the string + * table which we don't want to do during a sweep (the reachability + * flags of such objects would be incorrect). The objects inserted + * are currently: + * + * - a temporary duk_hbuffer for a new properties allocation + * - if array part is abandoned, string keys are interned + * + * The object insertions go to the front of the list, so they do not + * cause an infinite loop (they are not compacted). + * + * At present compaction is not allowed when mark-and-sweep runs + * during error handling because it involves a duk_safe_call() + * interfering with error state. + */ + + if ((flags & DUK_MS_FLAG_EMERGENCY) && + !(flags & DUK_MS_FLAG_NO_OBJECT_COMPACTION)) { + if (heap->lj.type != DUK_LJ_TYPE_UNKNOWN) { + DUK_D(DUK_DPRINT("lj.type (%ld) not DUK_LJ_TYPE_UNKNOWN, skip object compaction", (long) heap->lj.type)); + } else { + DUK_D(DUK_DPRINT("object compaction")); + duk__compact_objects(heap); + } + } + + /* + * String table resize check. + * + * This is mainly useful in emergency GC: if the string table load + * factor is really low for some reason, we can shrink the string + * table to a smaller size and free some memory in the process. + * Only execute in emergency GC. String table has internal flags + * to protect against recursive resizing if this mark-and-sweep pass + * was triggered by a string table resize. + */ + + if (flags & DUK_MS_FLAG_EMERGENCY) { + DUK_D(DUK_DPRINT("stringtable resize check in emergency gc")); + duk_heap_strtable_force_resize(heap); + } + + /* + * Finish + */ + + DUK_ASSERT(heap->ms_prevent_count == 1); + DUK_ASSERT(heap->ms_running == 1); + heap->ms_prevent_count = 0; + heap->ms_running = 0; + + /* + * Assertions after + */ + +#if defined(DUK_USE_ASSERTIONS) + DUK_ASSERT(heap->ms_prevent_count == 0); + DUK_ASSERT(!DUK_HEAP_HAS_MARKANDSWEEP_RECLIMIT_REACHED(heap)); + DUK_ASSERT(heap->ms_recursion_depth == 0); + duk__assert_heaphdr_flags(heap); + duk__assert_validity(heap); +#if defined(DUK_USE_REFERENCE_COUNTING) + /* Note: heap->refzero_free_running may be true; a refcount + * finalizer may trigger a mark-and-sweep. + */ + duk__assert_valid_refcounts(heap); +#endif /* DUK_USE_REFERENCE_COUNTING */ +#if defined(DUK_USE_LITCACHE_SIZE) + duk__assert_litcache_nulls(heap); +#endif /* DUK_USE_LITCACHE_SIZE */ +#endif /* DUK_USE_ASSERTIONS */ + + /* + * Reset trigger counter + */ + +#if defined(DUK_USE_VOLUNTARY_GC) + tmp = (count_keep_obj + count_keep_str) / 256; + heap->ms_trigger_counter = (duk_int_t) ( + (tmp * DUK_HEAP_MARK_AND_SWEEP_TRIGGER_MULT) + + DUK_HEAP_MARK_AND_SWEEP_TRIGGER_ADD); + DUK_D(DUK_DPRINT("garbage collect (mark-and-sweep) finished: %ld objects kept, %ld strings kept, trigger reset to %ld", + (long) count_keep_obj, (long) count_keep_str, (long) heap->ms_trigger_counter)); +#else + DUK_D(DUK_DPRINT("garbage collect (mark-and-sweep) finished: %ld objects kept, %ld strings kept, no voluntary trigger", + (long) count_keep_obj, (long) count_keep_str)); +#endif + + /* + * Stats dump + */ + +#if defined(DUK_USE_DEBUG) + duk__dump_stats(heap); +#endif + + /* + * Finalize objects in the finalization work list. Finalized + * objects are queued back to heap_allocated with FINALIZED set. + * + * Since finalizers may cause arbitrary side effects, they are + * prevented e.g. during string table and object property allocation + * resizing using heap->pf_prevent_count. In this case the objects + * remain in the finalization work list after mark-and-sweep exits + * and they may be finalized on the next pass or any DECREF checking + * for finalize_list. + * + * As of Duktape 2.1 finalization happens outside mark-and-sweep + * protection. Mark-and-sweep is allowed while the finalize_list + * is being processed, but no rescue decisions are done while the + * process is on-going. This avoids incorrect rescue decisions + * if an object is considered reachable (and thus rescued) because + * of a reference via finalize_list (which is considered a reachability + * root). When finalize_list is being processed, reachable objects + * with FINALIZED set will just keep their FINALIZED flag for later + * mark-and-sweep processing. + * + * This could also be handled (a bit better) by having a more refined + * notion of reachability for rescue/free decisions. + * + * XXX: avoid finalizer execution when doing emergency GC? + */ + +#if defined(DUK_USE_FINALIZER_SUPPORT) + /* Attempt to process finalize_list, pf_prevent_count check + * is inside the target. + */ + duk_heap_process_finalize_list(heap); +#endif /* DUK_USE_FINALIZER_SUPPORT */ +} +#line 1 "duk_heap_memory.c" +/* + * Memory allocation handling. + */ + +/* #include duk_internal.h -> already included */ + +/* + * Allocate memory with garbage collection. + */ + +/* Slow path: voluntary GC triggered, first alloc attempt failed, or zero size. */ +DUK_LOCAL DUK_NOINLINE_PERF DUK_COLD void *duk__heap_mem_alloc_slowpath(duk_heap *heap, duk_size_t size) { + void *res; + duk_small_int_t i; + + DUK_ASSERT(heap != NULL); + DUK_ASSERT(heap->alloc_func != NULL); + DUK_ASSERT_DISABLE(size >= 0); + + if (size == 0) { + DUK_D(DUK_DPRINT("zero size alloc in slow path, return NULL")); + return NULL; + } + + DUK_D(DUK_DPRINT("first alloc attempt failed or voluntary GC limit reached, attempt to gc and retry")); + +#if 0 + /* + * If GC is already running there is no point in attempting a GC + * because it will be skipped. This could be checked for explicitly, + * but it isn't actually needed: the loop below will eventually + * fail resulting in a NULL. + */ + + if (heap->ms_prevent_count != 0) { + DUK_D(DUK_DPRINT("duk_heap_mem_alloc() failed, gc in progress (gc skipped), alloc size %ld", (long) size)); + return NULL; + } +#endif + + /* + * Retry with several GC attempts. Initial attempts are made without + * emergency mode; later attempts use emergency mode which minimizes + * memory allocations forcibly. + */ + + for (i = 0; i < DUK_HEAP_ALLOC_FAIL_MARKANDSWEEP_LIMIT; i++) { + duk_small_uint_t flags; + + flags = 0; + if (i >= DUK_HEAP_ALLOC_FAIL_MARKANDSWEEP_EMERGENCY_LIMIT - 1) { + flags |= DUK_MS_FLAG_EMERGENCY; + } + + duk_heap_mark_and_sweep(heap, flags); + + DUK_ASSERT(size > 0); + res = heap->alloc_func(heap->heap_udata, size); + if (res != NULL) { + DUK_D(DUK_DPRINT("duk_heap_mem_alloc() succeeded after gc (pass %ld), alloc size %ld", + (long) (i + 1), (long) size)); + return res; + } + } + + DUK_D(DUK_DPRINT("duk_heap_mem_alloc() failed even after gc, alloc size %ld", (long) size)); + return NULL; +} + +DUK_INTERNAL DUK_INLINE_PERF DUK_HOT void *duk_heap_mem_alloc(duk_heap *heap, duk_size_t size) { + void *res; + + DUK_ASSERT(heap != NULL); + DUK_ASSERT(heap->alloc_func != NULL); + DUK_ASSERT_DISABLE(size >= 0); + +#if defined(DUK_USE_VOLUNTARY_GC) + /* Voluntary periodic GC (if enabled). */ + if (DUK_UNLIKELY(--(heap)->ms_trigger_counter < 0)) { + goto slowpath; + } +#endif + +#if defined(DUK_USE_GC_TORTURE) + /* Simulate alloc failure on every alloc, except when mark-and-sweep + * is running. + */ + if (heap->ms_prevent_count == 0) { + DUK_DDD(DUK_DDDPRINT("gc torture enabled, pretend that first alloc attempt fails")); + res = NULL; + DUK_UNREF(res); + goto slowpath; + } +#endif + + /* Zero-size allocation should happen very rarely (if at all), so + * don't check zero size on NULL; handle it in the slow path + * instead. This reduces size of inlined code. + */ + res = heap->alloc_func(heap->heap_udata, size); + if (DUK_LIKELY(res != NULL)) { + return res; + } + + slowpath: + + if (size == 0) { + DUK_D(DUK_DPRINT("first alloc attempt returned NULL for zero size alloc, use slow path to deal with it")); + } else { + DUK_D(DUK_DPRINT("first alloc attempt failed, attempt to gc and retry")); + } + return duk__heap_mem_alloc_slowpath(heap, size); +} + +DUK_INTERNAL DUK_INLINE_PERF DUK_HOT void *duk_heap_mem_alloc_zeroed(duk_heap *heap, duk_size_t size) { + void *res; + + DUK_ASSERT(heap != NULL); + DUK_ASSERT(heap->alloc_func != NULL); + DUK_ASSERT_DISABLE(size >= 0); + + res = DUK_ALLOC(heap, size); + if (DUK_LIKELY(res != NULL)) { + duk_memzero(res, size); + } + return res; +} + +DUK_INTERNAL DUK_INLINE_PERF DUK_HOT void *duk_heap_mem_alloc_checked(duk_hthread *thr, duk_size_t size) { + void *res; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(thr->heap != NULL); + DUK_ASSERT(thr->heap->alloc_func != NULL); + + res = duk_heap_mem_alloc(thr->heap, size); + if (DUK_LIKELY(res != NULL)) { + return res; + } else if (size == 0) { + DUK_ASSERT(res == NULL); + return res; + } + DUK_ERROR_ALLOC_FAILED(thr); + DUK_WO_NORETURN(return NULL;); +} + +DUK_INTERNAL DUK_INLINE_PERF DUK_HOT void *duk_heap_mem_alloc_checked_zeroed(duk_hthread *thr, duk_size_t size) { + void *res; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(thr->heap != NULL); + DUK_ASSERT(thr->heap->alloc_func != NULL); + + res = duk_heap_mem_alloc(thr->heap, size); + if (DUK_LIKELY(res != NULL)) { + duk_memzero(res, size); + return res; + } else if (size == 0) { + DUK_ASSERT(res == NULL); + return res; + } + DUK_ERROR_ALLOC_FAILED(thr); + DUK_WO_NORETURN(return NULL;); +} + +/* + * Reallocate memory with garbage collection. + */ + +/* Slow path: voluntary GC triggered, first realloc attempt failed, or zero size. */ +DUK_LOCAL DUK_NOINLINE_PERF DUK_COLD void *duk__heap_mem_realloc_slowpath(duk_heap *heap, void *ptr, duk_size_t newsize) { + void *res; + duk_small_int_t i; + + DUK_ASSERT(heap != NULL); + DUK_ASSERT(heap->realloc_func != NULL); + /* ptr may be NULL */ + DUK_ASSERT_DISABLE(newsize >= 0); + + /* Newsize was 0 and realloc() returned NULL, this has the semantics + * of free(oldptr), i.e. memory was successfully freed. + */ + if (newsize == 0) { + DUK_D(DUK_DPRINT("zero size realloc in slow path, return NULL")); + return NULL; + } + + DUK_D(DUK_DPRINT("first realloc attempt failed, attempt to gc and retry")); + +#if 0 + /* + * Avoid a GC if GC is already running. See duk_heap_mem_alloc(). + */ + + if (heap->ms_prevent_count != 0) { + DUK_D(DUK_DPRINT("duk_heap_mem_realloc() failed, gc in progress (gc skipped), alloc size %ld", (long) newsize)); + return NULL; + } +#endif + + /* + * Retry with several GC attempts. Initial attempts are made without + * emergency mode; later attempts use emergency mode which minimizes + * memory allocations forcibly. + */ + + for (i = 0; i < DUK_HEAP_ALLOC_FAIL_MARKANDSWEEP_LIMIT; i++) { + duk_small_uint_t flags; + + flags = 0; + if (i >= DUK_HEAP_ALLOC_FAIL_MARKANDSWEEP_EMERGENCY_LIMIT - 1) { + flags |= DUK_MS_FLAG_EMERGENCY; + } + + duk_heap_mark_and_sweep(heap, flags); + + DUK_ASSERT(newsize > 0); + res = heap->realloc_func(heap->heap_udata, ptr, newsize); + if (res || newsize == 0) { + DUK_D(DUK_DPRINT("duk_heap_mem_realloc() succeeded after gc (pass %ld), alloc size %ld", + (long) (i + 1), (long) newsize)); + return res; + } + } + + DUK_D(DUK_DPRINT("duk_heap_mem_realloc() failed even after gc, alloc size %ld", (long) newsize)); + return NULL; +} + +DUK_INTERNAL DUK_INLINE_PERF DUK_HOT void *duk_heap_mem_realloc(duk_heap *heap, void *ptr, duk_size_t newsize) { + void *res; + + DUK_ASSERT(heap != NULL); + DUK_ASSERT(heap->realloc_func != NULL); + /* ptr may be NULL */ + DUK_ASSERT_DISABLE(newsize >= 0); + +#if defined(DUK_USE_VOLUNTARY_GC) + /* Voluntary periodic GC (if enabled). */ + if (DUK_UNLIKELY(--(heap)->ms_trigger_counter < 0)) { + goto slowpath; + } +#endif + +#if defined(DUK_USE_GC_TORTURE) + /* Simulate alloc failure on every realloc, except when mark-and-sweep + * is running. + */ + if (heap->ms_prevent_count == 0) { + DUK_DDD(DUK_DDDPRINT("gc torture enabled, pretend that first realloc attempt fails")); + res = NULL; + DUK_UNREF(res); + goto slowpath; + } +#endif + + res = heap->realloc_func(heap->heap_udata, ptr, newsize); + if (DUK_LIKELY(res != NULL)) { + return res; + } + + slowpath: + + if (newsize == 0) { + DUK_D(DUK_DPRINT("first realloc attempt returned NULL for zero size realloc, use slow path to deal with it")); + } else { + DUK_D(DUK_DPRINT("first realloc attempt failed, attempt to gc and retry")); + } + return duk__heap_mem_realloc_slowpath(heap, ptr, newsize); +} + +/* + * Reallocate memory with garbage collection, using a callback to provide + * the current allocated pointer. This variant is used when a mark-and-sweep + * (e.g. finalizers) might change the original pointer. + */ + +/* Slow path: voluntary GC triggered, first realloc attempt failed, or zero size. */ +DUK_LOCAL DUK_NOINLINE_PERF DUK_COLD void *duk__heap_mem_realloc_indirect_slowpath(duk_heap *heap, duk_mem_getptr cb, void *ud, duk_size_t newsize) { + void *res; + duk_small_int_t i; + + DUK_ASSERT(heap != NULL); + DUK_ASSERT(heap->realloc_func != NULL); + DUK_ASSERT_DISABLE(newsize >= 0); + + if (newsize == 0) { + DUK_D(DUK_DPRINT("zero size indirect realloc in slow path, return NULL")); + return NULL; + } + + DUK_D(DUK_DPRINT("first indirect realloc attempt failed, attempt to gc and retry")); + +#if 0 + /* + * Avoid a GC if GC is already running. See duk_heap_mem_alloc(). + */ + + if (heap->ms_prevent_count != 0) { + DUK_D(DUK_DPRINT("duk_heap_mem_realloc_indirect() failed, gc in progress (gc skipped), alloc size %ld", (long) newsize)); + return NULL; + } +#endif + + /* + * Retry with several GC attempts. Initial attempts are made without + * emergency mode; later attempts use emergency mode which minimizes + * memory allocations forcibly. + */ + + for (i = 0; i < DUK_HEAP_ALLOC_FAIL_MARKANDSWEEP_LIMIT; i++) { + duk_small_uint_t flags; + +#if defined(DUK_USE_DEBUG) + void *ptr_pre; + void *ptr_post; +#endif + +#if defined(DUK_USE_DEBUG) + ptr_pre = cb(heap, ud); +#endif + flags = 0; + if (i >= DUK_HEAP_ALLOC_FAIL_MARKANDSWEEP_EMERGENCY_LIMIT - 1) { + flags |= DUK_MS_FLAG_EMERGENCY; + } + + duk_heap_mark_and_sweep(heap, flags); +#if defined(DUK_USE_DEBUG) + ptr_post = cb(heap, ud); + if (ptr_pre != ptr_post) { + DUK_DD(DUK_DDPRINT("realloc base pointer changed by mark-and-sweep: %p -> %p", + (void *) ptr_pre, (void *) ptr_post)); + } +#endif + + /* Note: key issue here is to re-lookup the base pointer on every attempt. + * The pointer being reallocated may change after every mark-and-sweep. + */ + + DUK_ASSERT(newsize > 0); + res = heap->realloc_func(heap->heap_udata, cb(heap, ud), newsize); + if (res || newsize == 0) { + DUK_D(DUK_DPRINT("duk_heap_mem_realloc_indirect() succeeded after gc (pass %ld), alloc size %ld", + (long) (i + 1), (long) newsize)); + return res; + } + } + + DUK_D(DUK_DPRINT("duk_heap_mem_realloc_indirect() failed even after gc, alloc size %ld", (long) newsize)); + return NULL; +} + +DUK_INTERNAL DUK_INLINE_PERF DUK_HOT void *duk_heap_mem_realloc_indirect(duk_heap *heap, duk_mem_getptr cb, void *ud, duk_size_t newsize) { + void *res; + + DUK_ASSERT(heap != NULL); + DUK_ASSERT(heap->realloc_func != NULL); + DUK_ASSERT_DISABLE(newsize >= 0); + +#if defined(DUK_USE_VOLUNTARY_GC) + /* Voluntary periodic GC (if enabled). */ + if (DUK_UNLIKELY(--(heap)->ms_trigger_counter < 0)) { + goto slowpath; + } +#endif + +#if defined(DUK_USE_GC_TORTURE) + /* Simulate alloc failure on every realloc, except when mark-and-sweep + * is running. + */ + if (heap->ms_prevent_count == 0) { + DUK_DDD(DUK_DDDPRINT("gc torture enabled, pretend that first indirect realloc attempt fails")); + res = NULL; + DUK_UNREF(res); + goto slowpath; + } +#endif + + res = heap->realloc_func(heap->heap_udata, cb(heap, ud), newsize); + if (DUK_LIKELY(res != NULL)) { + return res; + } + + slowpath: + + if (newsize == 0) { + DUK_D(DUK_DPRINT("first indirect realloc attempt returned NULL for zero size realloc, use slow path to deal with it")); + } else { + DUK_D(DUK_DPRINT("first indirect realloc attempt failed, attempt to gc and retry")); + } + return duk__heap_mem_realloc_indirect_slowpath(heap, cb, ud, newsize); +} + +/* + * Free memory + */ + +DUK_INTERNAL DUK_INLINE_PERF DUK_HOT void duk_heap_mem_free(duk_heap *heap, void *ptr) { + DUK_ASSERT(heap != NULL); + DUK_ASSERT(heap->free_func != NULL); + /* ptr may be NULL */ + + /* Must behave like a no-op with NULL and any pointer returned from + * malloc/realloc with zero size. + */ + heap->free_func(heap->heap_udata, ptr); + + /* Never perform a GC (even voluntary) in a memory free, otherwise + * all call sites doing frees would need to deal with the side effects. + * No need to update voluntary GC counter either. + */ +} +#line 1 "duk_heap_misc.c" +/* + * Support functions for duk_heap. + */ + +/* #include duk_internal.h -> already included */ + +DUK_INTERNAL void duk_heap_insert_into_heap_allocated(duk_heap *heap, duk_heaphdr *hdr) { + duk_heaphdr *root; + + DUK_ASSERT(DUK_HEAPHDR_GET_TYPE(hdr) != DUK_HTYPE_STRING); + + root = heap->heap_allocated; +#if defined(DUK_USE_DOUBLE_LINKED_HEAP) + if (root != NULL) { + DUK_ASSERT(DUK_HEAPHDR_GET_PREV(heap, root) == NULL); + DUK_HEAPHDR_SET_PREV(heap, root, hdr); + } + DUK_HEAPHDR_SET_PREV(heap, hdr, NULL); +#endif + DUK_HEAPHDR_SET_NEXT(heap, hdr, root); + DUK_HEAPHDR_ASSERT_LINKS(heap, hdr); + DUK_HEAPHDR_ASSERT_LINKS(heap, root); + heap->heap_allocated = hdr; +} + +#if defined(DUK_USE_REFERENCE_COUNTING) +DUK_INTERNAL void duk_heap_remove_from_heap_allocated(duk_heap *heap, duk_heaphdr *hdr) { + duk_heaphdr *prev; + duk_heaphdr *next; + + /* Strings are in string table. */ + DUK_ASSERT(hdr != NULL); + DUK_ASSERT(DUK_HEAPHDR_GET_TYPE(hdr) != DUK_HTYPE_STRING); + + /* Target 'hdr' must be in heap_allocated (not e.g. finalize_list). + * If not, heap lists will become corrupted so assert early for it. + */ +#if defined(DUK_USE_ASSERTIONS) + { + duk_heaphdr *tmp; + for (tmp = heap->heap_allocated; tmp != NULL; tmp = DUK_HEAPHDR_GET_NEXT(heap, tmp)) { + if (tmp == hdr) { + break; + } + } + DUK_ASSERT(tmp == hdr); + } +#endif + + /* Read/write only once to minimize pointer compression calls. */ + prev = DUK_HEAPHDR_GET_PREV(heap, hdr); + next = DUK_HEAPHDR_GET_NEXT(heap, hdr); + + if (prev != NULL) { + DUK_ASSERT(heap->heap_allocated != hdr); + DUK_HEAPHDR_SET_NEXT(heap, prev, next); + } else { + DUK_ASSERT(heap->heap_allocated == hdr); + heap->heap_allocated = next; + } + if (next != NULL) { + DUK_HEAPHDR_SET_PREV(heap, next, prev); + } else { + ; + } +} +#endif /* DUK_USE_REFERENCE_COUNTING */ + +#if defined(DUK_USE_FINALIZER_SUPPORT) +DUK_INTERNAL void duk_heap_insert_into_finalize_list(duk_heap *heap, duk_heaphdr *hdr) { + duk_heaphdr *root; + + root = heap->finalize_list; +#if defined(DUK_USE_DOUBLE_LINKED_HEAP) + DUK_HEAPHDR_SET_PREV(heap, hdr, NULL); + if (root != NULL) { + DUK_ASSERT(DUK_HEAPHDR_GET_PREV(heap, root) == NULL); + DUK_HEAPHDR_SET_PREV(heap, root, hdr); + } +#endif + DUK_HEAPHDR_SET_NEXT(heap, hdr, root); + DUK_HEAPHDR_ASSERT_LINKS(heap, hdr); + DUK_HEAPHDR_ASSERT_LINKS(heap, root); + heap->finalize_list = hdr; +} +#endif /* DUK_USE_FINALIZER_SUPPORT */ + +#if defined(DUK_USE_FINALIZER_SUPPORT) +DUK_INTERNAL void duk_heap_remove_from_finalize_list(duk_heap *heap, duk_heaphdr *hdr) { +#if defined(DUK_USE_DOUBLE_LINKED_HEAP) + duk_heaphdr *next; + duk_heaphdr *prev; + + next = DUK_HEAPHDR_GET_NEXT(heap, hdr); + prev = DUK_HEAPHDR_GET_PREV(heap, hdr); + if (next != NULL) { + DUK_ASSERT(DUK_HEAPHDR_GET_PREV(heap, next) == hdr); + DUK_HEAPHDR_SET_PREV(heap, next, prev); + } + if (prev == NULL) { + DUK_ASSERT(hdr == heap->finalize_list); + heap->finalize_list = next; + } else { + DUK_ASSERT(hdr != heap->finalize_list); + DUK_HEAPHDR_SET_NEXT(heap, prev, next); + } +#else + duk_heaphdr *next; + duk_heaphdr *curr; + + /* Random removal is expensive: we need to locate the previous element + * because we don't have a 'prev' pointer. + */ + curr = heap->finalize_list; + if (curr == hdr) { + heap->finalize_list = DUK_HEAPHDR_GET_NEXT(heap, curr); + } else { + DUK_ASSERT(hdr != heap->finalize_list); + for (;;) { + DUK_ASSERT(curr != NULL); /* Caller responsibility. */ + + next = DUK_HEAPHDR_GET_NEXT(heap, curr); + if (next == hdr) { + next = DUK_HEAPHDR_GET_NEXT(heap, hdr); + DUK_HEAPHDR_SET_NEXT(heap, curr, next); + break; + } + } + } +#endif +} +#endif /* DUK_USE_FINALIZER_SUPPORT */ + +#if defined(DUK_USE_ASSERTIONS) +DUK_INTERNAL duk_bool_t duk_heap_in_heap_allocated(duk_heap *heap, duk_heaphdr *ptr) { + duk_heaphdr *curr; + DUK_ASSERT(heap != NULL); + + for (curr = heap->heap_allocated; curr != NULL; curr = DUK_HEAPHDR_GET_NEXT(heap, curr)) { + if (curr == ptr) { + return 1; + } + } + return 0; +} +#endif /* DUK_USE_ASSERTIONS */ + +#if defined(DUK_USE_INTERRUPT_COUNTER) +DUK_INTERNAL void duk_heap_switch_thread(duk_heap *heap, duk_hthread *new_thr) { + duk_hthread *curr_thr; + + DUK_ASSERT(heap != NULL); + + if (new_thr != NULL) { + curr_thr = heap->curr_thread; + if (curr_thr == NULL) { + /* For initial entry use default value; zero forces an + * interrupt before executing the first insturction. + */ + DUK_DD(DUK_DDPRINT("switch thread, initial entry, init default interrupt counter")); + new_thr->interrupt_counter = 0; + new_thr->interrupt_init = 0; + } else { + /* Copy interrupt counter/init value state to new thread (if any). + * It's OK for new_thr to be the same as curr_thr. + */ +#if defined(DUK_USE_DEBUG) + if (new_thr != curr_thr) { + DUK_DD(DUK_DDPRINT("switch thread, not initial entry, copy interrupt counter")); + } +#endif + new_thr->interrupt_counter = curr_thr->interrupt_counter; + new_thr->interrupt_init = curr_thr->interrupt_init; + } + } else { + DUK_DD(DUK_DDPRINT("switch thread, new thread is NULL, no interrupt counter changes")); + } + + heap->curr_thread = new_thr; /* may be NULL */ +} +#endif /* DUK_USE_INTERRUPT_COUNTER */ + +#if defined(DUK_USE_ASSERTIONS) +DUK_INTERNAL void duk_heap_assert_valid(duk_heap *heap) { + DUK_ASSERT(heap != NULL); +} +#endif +#line 1 "duk_heap_refcount.c" +/* + * Reference counting implementation. + * + * INCREF/DECREF, finalization and freeing of objects whose refcount reaches + * zero (refzero). These operations are very performance sensitive, so + * various small tricks are used in an attempt to maximize speed. + */ + +/* #include duk_internal.h -> already included */ + +#if defined(DUK_USE_REFERENCE_COUNTING) + +#if !defined(DUK_USE_DOUBLE_LINKED_HEAP) +#error internal error, reference counting requires a double linked heap +#endif + +/* + * Heap object refcount finalization. + * + * When an object is about to be freed, all other objects it refers to must + * be decref'd. Refcount finalization does NOT free the object or its inner + * allocations (mark-and-sweep shares these helpers), it just manipulates + * the refcounts. + * + * Note that any of the DECREFs may cause a refcount to drop to zero. If so, + * the object won't be refzero processed inline, but will just be queued to + * refzero_list and processed by an earlier caller working on refzero_list, + * eliminating C recursion from even long refzero cascades. If refzero + * finalization is triggered by mark-and-sweep, refzero conditions are ignored + * (objects are not even queued to refzero_list) because mark-and-sweep deals + * with them; refcounts are still updated so that they remain in sync with + * actual references. + */ + +DUK_LOCAL void duk__decref_tvals_norz(duk_hthread *thr, duk_tval *tv, duk_idx_t count) { + DUK_ASSERT(count == 0 || tv != NULL); + + while (count-- > 0) { + DUK_TVAL_DECREF_NORZ(thr, tv); + tv++; + } +} + +DUK_INTERNAL void duk_hobject_refcount_finalize_norz(duk_heap *heap, duk_hobject *h) { + duk_hthread *thr; + duk_uint_fast32_t i; + duk_uint_fast32_t n; + duk_propvalue *p_val; + duk_tval *p_tv; + duk_hstring **p_key; + duk_uint8_t *p_flag; + duk_hobject *h_proto; + + DUK_ASSERT(heap != NULL); + DUK_ASSERT(heap->heap_thread != NULL); + DUK_ASSERT(h); + DUK_ASSERT(DUK_HEAPHDR_GET_TYPE((duk_heaphdr *) h) == DUK_HTYPE_OBJECT); + + thr = heap->heap_thread; + DUK_ASSERT(thr != NULL); + + p_key = DUK_HOBJECT_E_GET_KEY_BASE(heap, h); + p_val = DUK_HOBJECT_E_GET_VALUE_BASE(heap, h); + p_flag = DUK_HOBJECT_E_GET_FLAGS_BASE(heap, h); + n = DUK_HOBJECT_GET_ENEXT(h); + while (n-- > 0) { + duk_hstring *key; + + key = p_key[n]; + if (DUK_UNLIKELY(key == NULL)) { + continue; + } + DUK_HSTRING_DECREF_NORZ(thr, key); + if (DUK_UNLIKELY(p_flag[n] & DUK_PROPDESC_FLAG_ACCESSOR)) { + duk_hobject *h_getset; + h_getset = p_val[n].a.get; + DUK_ASSERT(h_getset == NULL || DUK_HEAPHDR_IS_OBJECT((duk_heaphdr *) h_getset)); + DUK_HOBJECT_DECREF_NORZ_ALLOWNULL(thr, h_getset); + h_getset = p_val[n].a.set; + DUK_ASSERT(h_getset == NULL || DUK_HEAPHDR_IS_OBJECT((duk_heaphdr *) h_getset)); + DUK_HOBJECT_DECREF_NORZ_ALLOWNULL(thr, h_getset); + } else { + duk_tval *tv_val; + tv_val = &p_val[n].v; + DUK_TVAL_DECREF_NORZ(thr, tv_val); + } + } + + p_tv = DUK_HOBJECT_A_GET_BASE(heap, h); + n = DUK_HOBJECT_GET_ASIZE(h); + while (n-- > 0) { + duk_tval *tv_val; + tv_val = p_tv + n; + DUK_TVAL_DECREF_NORZ(thr, tv_val); + } + + /* Hash part is a 'weak reference' and doesn't contribute to refcounts. */ + + h_proto = (duk_hobject *) DUK_HOBJECT_GET_PROTOTYPE(heap, h); + DUK_ASSERT(h_proto == NULL || DUK_HEAPHDR_IS_OBJECT((duk_heaphdr *) h_proto)); + DUK_HOBJECT_DECREF_NORZ_ALLOWNULL(thr, h_proto); + + /* XXX: Object subclass tests are quite awkward at present, ideally + * we should be able to switch-case here with a dense index (subtype + * number or something). For now, fast path plain objects and arrays + * and bit test the rest individually. + */ + + if (DUK_HOBJECT_HAS_FASTREFS(h)) { + /* Plain object or array, nothing more to do. While a + * duk_harray has additional fields, none of them need + * DECREF updates. + */ + DUK_ASSERT(DUK_HOBJECT_ALLOWS_FASTREFS(h)); + return; + } + DUK_ASSERT(DUK_HOBJECT_PROHIBITS_FASTREFS(h)); + + /* Slow path: special object, start bit checks from most likely. */ + + /* XXX: reorg, more common first */ + if (DUK_HOBJECT_IS_COMPFUNC(h)) { + duk_hcompfunc *f = (duk_hcompfunc *) h; + duk_tval *tv, *tv_end; + duk_hobject **funcs, **funcs_end; + + DUK_HCOMPFUNC_ASSERT_VALID(f); + + if (DUK_LIKELY(DUK_HCOMPFUNC_GET_DATA(heap, f) != NULL)) { + tv = DUK_HCOMPFUNC_GET_CONSTS_BASE(heap, f); + tv_end = DUK_HCOMPFUNC_GET_CONSTS_END(heap, f); + while (tv < tv_end) { + DUK_TVAL_DECREF_NORZ(thr, tv); + tv++; + } + + funcs = DUK_HCOMPFUNC_GET_FUNCS_BASE(heap, f); + funcs_end = DUK_HCOMPFUNC_GET_FUNCS_END(heap, f); + while (funcs < funcs_end) { + duk_hobject *h_func; + h_func = *funcs; + DUK_ASSERT(h_func != NULL); + DUK_ASSERT(DUK_HEAPHDR_IS_OBJECT((duk_heaphdr *) h_func)); + DUK_HCOMPFUNC_DECREF_NORZ(thr, (duk_hcompfunc *) h_func); + funcs++; + } + } else { + /* May happen in some out-of-memory corner cases. */ + DUK_D(DUK_DPRINT("duk_hcompfunc 'data' is NULL, skipping decref")); + } + + DUK_HEAPHDR_DECREF_ALLOWNULL(thr, (duk_heaphdr *) DUK_HCOMPFUNC_GET_LEXENV(heap, f)); + DUK_HEAPHDR_DECREF_ALLOWNULL(thr, (duk_heaphdr *) DUK_HCOMPFUNC_GET_VARENV(heap, f)); + DUK_HEAPHDR_DECREF_ALLOWNULL(thr, (duk_hbuffer *) DUK_HCOMPFUNC_GET_DATA(heap, f)); + } else if (DUK_HOBJECT_IS_DECENV(h)) { + duk_hdecenv *e = (duk_hdecenv *) h; + DUK_HDECENV_ASSERT_VALID(e); + DUK_HTHREAD_DECREF_NORZ_ALLOWNULL(thr, e->thread); + DUK_HOBJECT_DECREF_NORZ_ALLOWNULL(thr, e->varmap); + } else if (DUK_HOBJECT_IS_OBJENV(h)) { + duk_hobjenv *e = (duk_hobjenv *) h; + DUK_HOBJENV_ASSERT_VALID(e); + DUK_ASSERT(e->target != NULL); /* Required for object environments. */ + DUK_HOBJECT_DECREF_NORZ(thr, e->target); +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) + } else if (DUK_HOBJECT_IS_BUFOBJ(h)) { + duk_hbufobj *b = (duk_hbufobj *) h; + DUK_HBUFOBJ_ASSERT_VALID(b); + DUK_HBUFFER_DECREF_NORZ_ALLOWNULL(thr, (duk_hbuffer *) b->buf); + DUK_HOBJECT_DECREF_NORZ_ALLOWNULL(thr, (duk_hobject *) b->buf_prop); +#endif /* DUK_USE_BUFFEROBJECT_SUPPORT */ + } else if (DUK_HOBJECT_IS_BOUNDFUNC(h)) { + duk_hboundfunc *f = (duk_hboundfunc *) (void *) h; + DUK_HBOUNDFUNC_ASSERT_VALID(f); + DUK_TVAL_DECREF_NORZ(thr, &f->target); + DUK_TVAL_DECREF_NORZ(thr, &f->this_binding); + duk__decref_tvals_norz(thr, f->args, f->nargs); +#if defined(DUK_USE_ES6_PROXY) + } else if (DUK_HOBJECT_IS_PROXY(h)) { + duk_hproxy *p = (duk_hproxy *) h; + DUK_HPROXY_ASSERT_VALID(p); + DUK_HOBJECT_DECREF_NORZ(thr, p->target); + DUK_HOBJECT_DECREF_NORZ(thr, p->handler); +#endif /* DUK_USE_ES6_PROXY */ + } else if (DUK_HOBJECT_IS_THREAD(h)) { + duk_hthread *t = (duk_hthread *) h; + duk_activation *act; + duk_tval *tv; + + DUK_HTHREAD_ASSERT_VALID(t); + + tv = t->valstack; + while (tv < t->valstack_top) { + DUK_TVAL_DECREF_NORZ(thr, tv); + tv++; + } + + for (act = t->callstack_curr; act != NULL; act = act->parent) { + DUK_HOBJECT_DECREF_NORZ_ALLOWNULL(thr, (duk_hobject *) DUK_ACT_GET_FUNC(act)); + DUK_HOBJECT_DECREF_NORZ_ALLOWNULL(thr, (duk_hobject *) act->var_env); + DUK_HOBJECT_DECREF_NORZ_ALLOWNULL(thr, (duk_hobject *) act->lex_env); +#if defined(DUK_USE_NONSTD_FUNC_CALLER_PROPERTY) + DUK_HOBJECT_DECREF_NORZ_ALLOWNULL(thr, (duk_hobject *) act->prev_caller); +#endif +#if 0 /* nothing now */ + for (cat = act->cat; cat != NULL; cat = cat->parent) { + } +#endif + } + + + for (i = 0; i < DUK_NUM_BUILTINS; i++) { + DUK_HOBJECT_DECREF_NORZ_ALLOWNULL(thr, (duk_hobject *) t->builtins[i]); + } + + DUK_HTHREAD_DECREF_NORZ_ALLOWNULL(thr, (duk_hthread *) t->resumer); + } else { + /* We may come here if the object should have a FASTREFS flag + * but it's missing for some reason. Assert for never getting + * here; however, other than performance, this is harmless. + */ + DUK_D(DUK_DPRINT("missing FASTREFS flag for: %!iO", h)); + DUK_ASSERT(0); + } +} + +DUK_INTERNAL void duk_heaphdr_refcount_finalize_norz(duk_heap *heap, duk_heaphdr *hdr) { + DUK_ASSERT(heap != NULL); + DUK_ASSERT(heap->heap_thread != NULL); + DUK_ASSERT(hdr != NULL); + + if (DUK_HEAPHDR_IS_OBJECT(hdr)) { + duk_hobject_refcount_finalize_norz(heap, (duk_hobject *) hdr); + } + /* DUK_HTYPE_BUFFER: nothing to finalize */ + /* DUK_HTYPE_STRING: nothing to finalize */ +} + +/* + * Refzero processing for duk_hobject: queue a refzero'ed object to either + * finalize_list or refzero_list and process the relevent list(s) if + * necessary. + * + * Refzero_list is single linked, with only 'prev' pointers set and valid. + * All 'next' pointers are intentionally left as garbage. This doesn't + * matter because refzero_list is processed to completion before any other + * code (like mark-and-sweep) might walk the list. + * + * In more detail: + * + * - On first insert refzero_list is NULL and the new object becomes the + * first and only element on the list; duk__refcount_free_pending() is + * called and it starts processing the list from the initial element, + * i.e. the list tail. + * + * - As each object is refcount finalized, new objects may be queued to + * refzero_list head. Their 'next' pointers are left as garbage, but + * 'prev' points are set correctly, with the element at refzero_list + * having a NULL 'prev' pointer. The fact that refzero_list is non-NULL + * is used to reject (1) recursive duk__refcount_free_pending() and + * (2) finalize_list processing calls. + * + * - When we're done with the current object, read its 'prev' pointer and + * free the object. If 'prev' is NULL, we've reached head of list and are + * done: set refzero_list to NULL and process pending finalizers. Otherwise + * continue processing the list. + * + * A refzero cascade is free of side effects because it only involves + * queueing more objects and freeing memory; finalizer execution is blocked + * in the code path queueing objects to finalize_list. As a result the + * initial refzero call (which triggers duk__refcount_free_pending()) must + * check finalize_list so that finalizers are executed snappily. + * + * If finalize_list processing starts first, refzero may occur while we're + * processing finalizers. That's fine: that particular refzero cascade is + * handled to completion without side effects. Once the cascade is complete, + * we'll run pending finalizers but notice that we're already doing that and + * return. + * + * This could be expanded to allow incremental freeing: just bail out + * early and resume at a future alloc/decref/refzero. However, if that + * were done, the list structure would need to be kept consistent at all + * times, mark-and-sweep would need to handle refzero_list, etc. + */ + +DUK_LOCAL void duk__refcount_free_pending(duk_heap *heap) { + duk_heaphdr *curr; +#if defined(DUK_USE_DEBUG) + duk_int_t count = 0; +#endif + + DUK_ASSERT(heap != NULL); + + curr = heap->refzero_list; + DUK_ASSERT(curr != NULL); + DUK_ASSERT(DUK_HEAPHDR_GET_PREV(heap, curr) == NULL); /* We're called on initial insert only. */ + /* curr->next is GARBAGE. */ + + do { + duk_heaphdr *prev; + + DUK_DDD(DUK_DDDPRINT("refzero processing %p: %!O", (void *) curr, (duk_heaphdr *) curr)); + +#if defined(DUK_USE_DEBUG) + count++; +#endif + + DUK_ASSERT(curr != NULL); + DUK_ASSERT(DUK_HEAPHDR_GET_TYPE(curr) == DUK_HTYPE_OBJECT); /* currently, always the case */ + /* FINALIZED may be set; don't care about flags here. */ + + /* Refcount finalize 'curr'. Refzero_list must be non-NULL + * here to prevent recursive entry to duk__refcount_free_pending(). + */ + DUK_ASSERT(heap->refzero_list != NULL); + duk_hobject_refcount_finalize_norz(heap, (duk_hobject *) curr); + + prev = DUK_HEAPHDR_GET_PREV(heap, curr); + DUK_ASSERT((prev == NULL && heap->refzero_list == curr) || \ + (prev != NULL && heap->refzero_list != curr)); + /* prev->next is intentionally not updated and is garbage. */ + + duk_free_hobject(heap, (duk_hobject *) curr); /* Invalidates 'curr'. */ + + curr = prev; + } while (curr != NULL); + + heap->refzero_list = NULL; + + DUK_DD(DUK_DDPRINT("refzero processed %ld objects", (long) count)); +} + +DUK_LOCAL DUK_INLINE void duk__refcount_refzero_hobject(duk_heap *heap, duk_hobject *obj, duk_bool_t skip_free_pending) { + duk_heaphdr *hdr; + duk_heaphdr *root; + + DUK_ASSERT(heap != NULL); + DUK_ASSERT(heap->heap_thread != NULL); + DUK_ASSERT(obj != NULL); + DUK_ASSERT(DUK_HEAPHDR_GET_TYPE((duk_heaphdr *) obj) == DUK_HTYPE_OBJECT); + + hdr = (duk_heaphdr *) obj; + + /* Refzero'd objects must be in heap_allocated. They can't be in + * finalize_list because all objects on finalize_list have an + * artificial +1 refcount bump. + */ +#if defined(DUK_USE_ASSERTIONS) + DUK_ASSERT(duk_heap_in_heap_allocated(heap, (duk_heaphdr *) obj)); +#endif + + DUK_HEAP_REMOVE_FROM_HEAP_ALLOCATED(heap, hdr); + +#if defined(DUK_USE_FINALIZER_SUPPORT) + /* This finalizer check MUST BE side effect free. It should also be + * as fast as possible because it's applied to every object freed. + */ + if (DUK_UNLIKELY(DUK_HOBJECT_HAS_FINALIZER_FAST(heap, (duk_hobject *) hdr) != 0U)) { + /* Special case: FINALIZED may be set if mark-and-sweep queued + * object for finalization, the finalizer was executed (and + * FINALIZED set), mark-and-sweep hasn't yet processed the + * object again, but its refcount drops to zero. Free without + * running the finalizer again. + */ + if (DUK_HEAPHDR_HAS_FINALIZED(hdr)) { + DUK_D(DUK_DPRINT("refzero'd object has finalizer and FINALIZED is set -> free")); + } else { + /* Set FINALIZABLE flag so that all objects on finalize_list + * will have it set and are thus detectable based on the + * flag alone. + */ + DUK_HEAPHDR_SET_FINALIZABLE(hdr); + DUK_ASSERT(!DUK_HEAPHDR_HAS_FINALIZED(hdr)); + +#if defined(DUK_USE_REFERENCE_COUNTING) + /* Bump refcount on finalize_list insert so that a + * refzero can never occur when an object is waiting + * for its finalizer call. Refzero might otherwise + * now happen because we allow duk_push_heapptr() for + * objects pending finalization. + */ + DUK_HEAPHDR_PREINC_REFCOUNT(hdr); +#endif + DUK_HEAP_INSERT_INTO_FINALIZE_LIST(heap, hdr); + + /* Process finalizers unless skipping is explicitly + * requested (NORZ) or refzero_list is being processed + * (avoids side effects during a refzero cascade). + * If refzero_list is processed, the initial refzero + * call will run pending finalizers when refzero_list + * is done. + */ + if (!skip_free_pending && heap->refzero_list == NULL) { + duk_heap_process_finalize_list(heap); + } + return; + } + } +#endif /* DUK_USE_FINALIZER_SUPPORT */ + + /* No need to finalize, free object via refzero_list. */ + + root = heap->refzero_list; + + DUK_HEAPHDR_SET_PREV(heap, hdr, NULL); + /* 'next' is left as GARBAGE. */ + heap->refzero_list = hdr; + + if (root == NULL) { + /* Object is now queued. Refzero_list was NULL so + * no-one is currently processing it; do it here. + * With refzero processing just doing a cascade of + * free calls, we can process it directly even when + * NORZ macros are used: there are no side effects. + */ + duk__refcount_free_pending(heap); + DUK_ASSERT(heap->refzero_list == NULL); + + /* Process finalizers only after the entire cascade + * is finished. In most cases there's nothing to + * finalize, so fast path check to avoid a call. + */ +#if defined(DUK_USE_FINALIZER_SUPPORT) + if (!skip_free_pending && DUK_UNLIKELY(heap->finalize_list != NULL)) { + duk_heap_process_finalize_list(heap); + } +#endif + } else { + DUK_ASSERT(DUK_HEAPHDR_GET_PREV(heap, root) == NULL); + DUK_HEAPHDR_SET_PREV(heap, root, hdr); + + /* Object is now queued. Because refzero_list was + * non-NULL, it's already being processed by someone + * in the C call stack, so we're done. + */ + } +} + +#if defined(DUK_USE_FINALIZER_SUPPORT) +DUK_INTERNAL DUK_ALWAYS_INLINE void duk_refzero_check_fast(duk_hthread *thr) { + DUK_ASSERT(thr != NULL); + DUK_ASSERT(thr->heap != NULL); + DUK_ASSERT(thr->heap->refzero_list == NULL); /* Processed to completion inline. */ + + if (DUK_UNLIKELY(thr->heap->finalize_list != NULL)) { + duk_heap_process_finalize_list(thr->heap); + } +} + +DUK_INTERNAL void duk_refzero_check_slow(duk_hthread *thr) { + DUK_ASSERT(thr != NULL); + DUK_ASSERT(thr->heap != NULL); + DUK_ASSERT(thr->heap->refzero_list == NULL); /* Processed to completion inline. */ + + if (DUK_UNLIKELY(thr->heap->finalize_list != NULL)) { + duk_heap_process_finalize_list(thr->heap); + } +} +#endif /* DUK_USE_FINALIZER_SUPPORT */ + +/* + * Refzero processing for duk_hstring. + */ + +DUK_LOCAL DUK_INLINE void duk__refcount_refzero_hstring(duk_heap *heap, duk_hstring *str) { + DUK_ASSERT(heap != NULL); + DUK_ASSERT(heap->heap_thread != NULL); + DUK_ASSERT(str != NULL); + DUK_ASSERT(DUK_HEAPHDR_GET_TYPE((duk_heaphdr *) str) == DUK_HTYPE_STRING); + + duk_heap_strcache_string_remove(heap, str); + duk_heap_strtable_unlink(heap, str); + duk_free_hstring(heap, str); +} + +/* + * Refzero processing for duk_hbuffer. + */ + +DUK_LOCAL DUK_INLINE void duk__refcount_refzero_hbuffer(duk_heap *heap, duk_hbuffer *buf) { + DUK_ASSERT(heap != NULL); + DUK_ASSERT(heap->heap_thread != NULL); + DUK_ASSERT(buf != NULL); + DUK_ASSERT(DUK_HEAPHDR_GET_TYPE((duk_heaphdr *) buf) == DUK_HTYPE_BUFFER); + + DUK_HEAP_REMOVE_FROM_HEAP_ALLOCATED(heap, (duk_heaphdr *) buf); + duk_free_hbuffer(heap, buf); +} + +/* + * Incref and decref functions. + * + * Decref may trigger immediate refzero handling, which may free and finalize + * an arbitrary number of objects (a "DECREF cascade"). + * + * Refzero handling is skipped entirely if (1) mark-and-sweep is running or + * (2) execution is paused in the debugger. The objects are left in the heap, + * and will be freed by mark-and-sweep or eventual heap destruction. + * + * This is necessary during mark-and-sweep because refcounts are also updated + * during the sweep phase (otherwise objects referenced by a swept object + * would have incorrect refcounts) which then calls here. This could be + * avoided by using separate decref macros in mark-and-sweep; however, + * mark-and-sweep also calls finalizers which would use the ordinary decref + * macros anyway. + * + * We can't process refzeros (= free objects) when the debugger is running + * as the debugger might make an object unreachable but still continue + * inspecting it (or even cause it to be pushed back). So we must rely on + * mark-and-sweep to collect them. + * + * The DUK__RZ_SUPPRESS_CHECK() condition is also used in heap destruction + * when running finalizers for remaining objects: the flag prevents objects + * from being moved around in heap linked lists while that's being done. + * + * The suppress condition is important to performance. + */ + +#define DUK__RZ_SUPPRESS_ASSERT1() do { \ + DUK_ASSERT(thr != NULL); \ + DUK_ASSERT(thr->heap != NULL); \ + /* When mark-and-sweep runs, heap_thread must exist. */ \ + DUK_ASSERT(thr->heap->ms_running == 0 || thr->heap->heap_thread != NULL); \ + /* In normal operation finalizers are executed with ms_running == 0 \ + * so we should never see ms_running == 1 and thr != heap_thread. \ + * In heap destruction finalizers are executed with ms_running != 0 \ + * to e.g. prevent refzero; a special value ms_running == 2 is used \ + * in that case so it can be distinguished from the normal runtime \ + * case, and allows a stronger assertion here (GH-2030). \ + */ \ + DUK_ASSERT(!(thr->heap->ms_running == 1 && thr != thr->heap->heap_thread)); \ + /* We may be called when the heap is initializing and we process \ + * refzeros normally, but mark-and-sweep and finalizers are prevented \ + * if that's the case. \ + */ \ + DUK_ASSERT(thr->heap->heap_initializing == 0 || thr->heap->ms_prevent_count > 0); \ + DUK_ASSERT(thr->heap->heap_initializing == 0 || thr->heap->pf_prevent_count > 0); \ + } while (0) + +#if defined(DUK_USE_DEBUGGER_SUPPORT) +#define DUK__RZ_SUPPRESS_ASSERT2() do { \ + /* When debugger is paused, ms_running is set. */ \ + DUK_ASSERT(!DUK_HEAP_HAS_DEBUGGER_PAUSED(thr->heap) || thr->heap->ms_running != 0); \ + } while (0) +#define DUK__RZ_SUPPRESS_COND() (heap->ms_running != 0) +#else +#define DUK__RZ_SUPPRESS_ASSERT2() do { } while (0) +#define DUK__RZ_SUPPRESS_COND() (heap->ms_running != 0) +#endif /* DUK_USE_DEBUGGER_SUPPORT */ + +#define DUK__RZ_SUPPRESS_CHECK() do { \ + DUK__RZ_SUPPRESS_ASSERT1(); \ + DUK__RZ_SUPPRESS_ASSERT2(); \ + if (DUK_UNLIKELY(DUK__RZ_SUPPRESS_COND())) { \ + DUK_DDD(DUK_DDDPRINT("refzero handling suppressed (not even queued) when mark-and-sweep running, object: %p", (void *) h)); \ + return; \ + } \ + } while (0) + +#define DUK__RZ_STRING() do { \ + duk__refcount_refzero_hstring(heap, (duk_hstring *) h); \ + } while (0) +#define DUK__RZ_BUFFER() do { \ + duk__refcount_refzero_hbuffer(heap, (duk_hbuffer *) h); \ + } while (0) +#define DUK__RZ_OBJECT() do { \ + duk__refcount_refzero_hobject(heap, (duk_hobject *) h, skip_free_pending); \ + } while (0) + +/* XXX: test the effect of inlining here vs. NOINLINE in refzero helpers */ +#if defined(DUK_USE_FAST_REFCOUNT_DEFAULT) +#define DUK__RZ_INLINE DUK_ALWAYS_INLINE +#else +#define DUK__RZ_INLINE /*nop*/ +#endif + +DUK_LOCAL DUK__RZ_INLINE void duk__hstring_refzero_helper(duk_hthread *thr, duk_hstring *h) { + duk_heap *heap; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(h != NULL); + heap = thr->heap; + + DUK__RZ_SUPPRESS_CHECK(); + DUK__RZ_STRING(); +} + +DUK_LOCAL DUK__RZ_INLINE void duk__hbuffer_refzero_helper(duk_hthread *thr, duk_hbuffer *h) { + duk_heap *heap; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(h != NULL); + heap = thr->heap; + + DUK__RZ_SUPPRESS_CHECK(); + DUK__RZ_BUFFER(); +} + +DUK_LOCAL DUK__RZ_INLINE void duk__hobject_refzero_helper(duk_hthread *thr, duk_hobject *h, duk_bool_t skip_free_pending) { + duk_heap *heap; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(h != NULL); + heap = thr->heap; + + DUK__RZ_SUPPRESS_CHECK(); + DUK__RZ_OBJECT(); +} + +DUK_LOCAL DUK__RZ_INLINE void duk__heaphdr_refzero_helper(duk_hthread *thr, duk_heaphdr *h, duk_bool_t skip_free_pending) { + duk_heap *heap; + duk_small_uint_t htype; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(h != NULL); + heap = thr->heap; + + htype = (duk_small_uint_t) DUK_HEAPHDR_GET_TYPE(h); + DUK_DDD(DUK_DDDPRINT("ms_running=%ld, heap_thread=%p", (long) thr->heap->ms_running, thr->heap->heap_thread)); + DUK__RZ_SUPPRESS_CHECK(); + + switch (htype) { + case DUK_HTYPE_STRING: + /* Strings have no internal references but do have "weak" + * references in the string cache. Also note that strings + * are not on the heap_allocated list like other heap + * elements. + */ + + DUK__RZ_STRING(); + break; + + case DUK_HTYPE_OBJECT: + /* Objects have internal references. Must finalize through + * the "refzero" work list. + */ + + DUK__RZ_OBJECT(); + break; + + default: + /* Buffers have no internal references. However, a dynamic + * buffer has a separate allocation for the buffer. This is + * freed by duk_heap_free_heaphdr_raw(). + */ + + DUK_ASSERT(DUK_HEAPHDR_GET_TYPE(h) == DUK_HTYPE_BUFFER); + DUK__RZ_BUFFER(); + break; + } +} + +DUK_INTERNAL DUK_NOINLINE void duk_heaphdr_refzero(duk_hthread *thr, duk_heaphdr *h) { + duk__heaphdr_refzero_helper(thr, h, 0 /*skip_free_pending*/); +} + +DUK_INTERNAL DUK_NOINLINE void duk_heaphdr_refzero_norz(duk_hthread *thr, duk_heaphdr *h) { + duk__heaphdr_refzero_helper(thr, h, 1 /*skip_free_pending*/); +} + +DUK_INTERNAL DUK_NOINLINE void duk_hstring_refzero(duk_hthread *thr, duk_hstring *h) { + duk__hstring_refzero_helper(thr, h); +} + +DUK_INTERNAL DUK_NOINLINE void duk_hbuffer_refzero(duk_hthread *thr, duk_hbuffer *h) { + duk__hbuffer_refzero_helper(thr, h); +} + +DUK_INTERNAL DUK_NOINLINE void duk_hobject_refzero(duk_hthread *thr, duk_hobject *h) { + duk__hobject_refzero_helper(thr, h, 0 /*skip_free_pending*/); +} + +DUK_INTERNAL DUK_NOINLINE void duk_hobject_refzero_norz(duk_hthread *thr, duk_hobject *h) { + duk__hobject_refzero_helper(thr, h, 1 /*skip_free_pending*/); +} + +#if !defined(DUK_USE_FAST_REFCOUNT_DEFAULT) +DUK_INTERNAL void duk_tval_incref(duk_tval *tv) { + DUK_ASSERT(tv != NULL); + + if (DUK_TVAL_NEEDS_REFCOUNT_UPDATE(tv)) { + duk_heaphdr *h = DUK_TVAL_GET_HEAPHDR(tv); + DUK_ASSERT(h != NULL); + DUK_ASSERT(DUK_HEAPHDR_HTYPE_VALID(h)); + DUK_ASSERT_DISABLE(h->h_refcount >= 0); + DUK_HEAPHDR_PREINC_REFCOUNT(h); + DUK_ASSERT(DUK_HEAPHDR_GET_REFCOUNT(h) != 0); /* No wrapping. */ + } +} + +DUK_INTERNAL void duk_tval_decref(duk_hthread *thr, duk_tval *tv) { + DUK_ASSERT(thr != NULL); + DUK_ASSERT(tv != NULL); + + if (DUK_TVAL_NEEDS_REFCOUNT_UPDATE(tv)) { + duk_heaphdr *h = DUK_TVAL_GET_HEAPHDR(tv); + DUK_ASSERT(h != NULL); + DUK_ASSERT(DUK_HEAPHDR_HTYPE_VALID(h)); + DUK_ASSERT(DUK_HEAPHDR_GET_REFCOUNT(h) >= 1); +#if 0 + if (DUK_HEAPHDR_PREDEC_REFCOUNT(h) != 0) { + return; + } + duk_heaphdr_refzero(thr, h); +#else + duk_heaphdr_decref(thr, h); +#endif + } +} + +DUK_INTERNAL void duk_tval_decref_norz(duk_hthread *thr, duk_tval *tv) { + DUK_ASSERT(thr != NULL); + DUK_ASSERT(tv != NULL); + + if (DUK_TVAL_NEEDS_REFCOUNT_UPDATE(tv)) { + duk_heaphdr *h = DUK_TVAL_GET_HEAPHDR(tv); + DUK_ASSERT(h != NULL); + DUK_ASSERT(DUK_HEAPHDR_HTYPE_VALID(h)); + DUK_ASSERT(DUK_HEAPHDR_GET_REFCOUNT(h) >= 1); +#if 0 + if (DUK_HEAPHDR_PREDEC_REFCOUNT(h) != 0) { + return; + } + duk_heaphdr_refzero_norz(thr, h); +#else + duk_heaphdr_decref_norz(thr, h); +#endif + } +} +#endif /* !DUK_USE_FAST_REFCOUNT_DEFAULT */ + +#define DUK__DECREF_ASSERTS() do { \ + DUK_ASSERT(thr != NULL); \ + DUK_ASSERT(thr->heap != NULL); \ + DUK_ASSERT(h != NULL); \ + DUK_ASSERT(DUK_HEAPHDR_HTYPE_VALID((duk_heaphdr *) h)); \ + DUK_ASSERT(DUK_HEAPHDR_GET_REFCOUNT((duk_heaphdr *) h) >= 1); \ + } while (0) +#if defined(DUK_USE_ROM_OBJECTS) +#define DUK__INCREF_SHARED() do { \ + if (DUK_HEAPHDR_HAS_READONLY((duk_heaphdr *) h)) { \ + return; \ + } \ + DUK_HEAPHDR_PREINC_REFCOUNT((duk_heaphdr *) h); \ + DUK_ASSERT(DUK_HEAPHDR_GET_REFCOUNT((duk_heaphdr *) h) != 0); /* No wrapping. */ \ + } while (0) +#define DUK__DECREF_SHARED() do { \ + if (DUK_HEAPHDR_HAS_READONLY((duk_heaphdr *) h)) { \ + return; \ + } \ + if (DUK_HEAPHDR_PREDEC_REFCOUNT((duk_heaphdr *) h) != 0) { \ + return; \ + } \ + } while (0) +#else +#define DUK__INCREF_SHARED() do { \ + DUK_HEAPHDR_PREINC_REFCOUNT((duk_heaphdr *) h); \ + DUK_ASSERT(DUK_HEAPHDR_GET_REFCOUNT((duk_heaphdr *) h) != 0); /* No wrapping. */ \ + } while (0) +#define DUK__DECREF_SHARED() do { \ + if (DUK_HEAPHDR_PREDEC_REFCOUNT((duk_heaphdr *) h) != 0) { \ + return; \ + } \ + } while (0) +#endif + +#if !defined(DUK_USE_FAST_REFCOUNT_DEFAULT) +/* This will in practice be inlined because it's just an INC instructions + * and a bit test + INC when ROM objects are enabled. + */ +DUK_INTERNAL void duk_heaphdr_incref(duk_heaphdr *h) { + DUK_ASSERT(h != NULL); + DUK_ASSERT(DUK_HEAPHDR_HTYPE_VALID(h)); + DUK_ASSERT_DISABLE(DUK_HEAPHDR_GET_REFCOUNT(h) >= 0); + + DUK__INCREF_SHARED(); +} + +DUK_INTERNAL void duk_heaphdr_decref(duk_hthread *thr, duk_heaphdr *h) { + DUK__DECREF_ASSERTS(); + DUK__DECREF_SHARED(); + duk_heaphdr_refzero(thr, h); + + /* Forced mark-and-sweep when GC torture enabled; this could happen + * on any DECREF (but not DECREF_NORZ). + */ + DUK_GC_TORTURE(thr->heap); +} +DUK_INTERNAL void duk_heaphdr_decref_norz(duk_hthread *thr, duk_heaphdr *h) { + DUK__DECREF_ASSERTS(); + DUK__DECREF_SHARED(); + duk_heaphdr_refzero_norz(thr, h); +} +#endif /* !DUK_USE_FAST_REFCOUNT_DEFAULT */ + +#if 0 /* Not needed. */ +DUK_INTERNAL void duk_hstring_decref(duk_hthread *thr, duk_hstring *h) { + DUK__DECREF_ASSERTS(); + DUK__DECREF_SHARED(); + duk_hstring_refzero(thr, h); +} +DUK_INTERNAL void duk_hstring_decref_norz(duk_hthread *thr, duk_hstring *h) { + DUK__DECREF_ASSERTS(); + DUK__DECREF_SHARED(); + duk_hstring_refzero_norz(thr, h); +} +DUK_INTERNAL void duk_hbuffer_decref(duk_hthread *thr, duk_hbuffer *h) { + DUK__DECREF_ASSERTS(); + DUK__DECREF_SHARED(); + duk_hbuffer_refzero(thr, h); +} +DUK_INTERNAL void duk_hbuffer_decref_norz(duk_hthread *thr, duk_hbuffer *h) { + DUK__DECREF_ASSERTS(); + DUK__DECREF_SHARED(); + duk_hbuffer_refzero_norz(thr, h); +} +DUK_INTERNAL void duk_hobject_decref(duk_hthread *thr, duk_hobject *h) { + DUK__DECREF_ASSERTS(); + DUK__DECREF_SHARED(); + duk_hobject_refzero(thr, h); +} +DUK_INTERNAL void duk_hobject_decref_norz(duk_hthread *thr, duk_hobject *h) { + DUK__DECREF_ASSERTS(); + DUK__DECREF_SHARED(); + duk_hobject_refzero_norz(thr, h); +} +#endif + +#else /* DUK_USE_REFERENCE_COUNTING */ + +/* no refcounting */ + +#endif /* DUK_USE_REFERENCE_COUNTING */ + +/* automatic undefs */ +#undef DUK__DECREF_ASSERTS +#undef DUK__DECREF_SHARED +#undef DUK__INCREF_SHARED +#undef DUK__RZ_BUFFER +#undef DUK__RZ_INLINE +#undef DUK__RZ_OBJECT +#undef DUK__RZ_STRING +#undef DUK__RZ_SUPPRESS_ASSERT1 +#undef DUK__RZ_SUPPRESS_ASSERT2 +#undef DUK__RZ_SUPPRESS_CHECK +#undef DUK__RZ_SUPPRESS_COND +#line 1 "duk_heap_stringcache.c" +/* + * String cache. + * + * Provides a cache to optimize indexed string lookups. The cache keeps + * track of (byte offset, char offset) states for a fixed number of strings. + * Otherwise we'd need to scan from either end of the string, as we store + * strings in (extended) UTF-8. + */ + +/* #include duk_internal.h -> already included */ + +/* + * Delete references to given hstring from the heap string cache. + * + * String cache references are 'weak': they are not counted towards + * reference counts, nor serve as roots for mark-and-sweep. When an + * object is about to be freed, such references need to be removed. + */ + +DUK_INTERNAL void duk_heap_strcache_string_remove(duk_heap *heap, duk_hstring *h) { + duk_uint_t i; + for (i = 0; i < DUK_HEAP_STRCACHE_SIZE; i++) { + duk_strcache_entry *c = heap->strcache + i; + if (c->h == h) { + DUK_DD(DUK_DDPRINT("deleting weak strcache reference to hstring %p from heap %p", + (void *) h, (void *) heap)); + c->h = NULL; + + /* XXX: the string shouldn't appear twice, but we now loop to the + * end anyway; if fixed, add a looping assertion to ensure there + * is no duplicate. + */ + } + } +} + +/* + * String scanning helpers + * + * All bytes other than UTF-8 continuation bytes ([0x80,0xbf]) are + * considered to contribute a character. This must match how string + * character length is computed. + */ + +DUK_LOCAL const duk_uint8_t *duk__scan_forwards(const duk_uint8_t *p, const duk_uint8_t *q, duk_uint_fast32_t n) { + while (n > 0) { + for (;;) { + p++; + if (p >= q) { + return NULL; + } + if ((*p & 0xc0) != 0x80) { + break; + } + } + n--; + } + return p; +} + +DUK_LOCAL const duk_uint8_t *duk__scan_backwards(const duk_uint8_t *p, const duk_uint8_t *q, duk_uint_fast32_t n) { + while (n > 0) { + for (;;) { + p--; + if (p < q) { + return NULL; + } + if ((*p & 0xc0) != 0x80) { + break; + } + } + n--; + } + return p; +} + +/* + * Convert char offset to byte offset + * + * Avoid using the string cache if possible: for ASCII strings byte and + * char offsets are equal and for short strings direct scanning may be + * better than using the string cache (which may evict a more important + * entry). + * + * Typing now assumes 32-bit string byte/char offsets (duk_uint_fast32_t). + * Better typing might be to use duk_size_t. + * + * Caller should ensure 'char_offset' is within the string bounds [0,charlen] + * (endpoint is inclusive). If this is not the case, no memory unsafe + * behavior will happen but an error will be thrown. + */ + +DUK_INTERNAL duk_uint_fast32_t duk_heap_strcache_offset_char2byte(duk_hthread *thr, duk_hstring *h, duk_uint_fast32_t char_offset) { + duk_heap *heap; + duk_strcache_entry *sce; + duk_uint_fast32_t byte_offset; + duk_uint_t i; + duk_bool_t use_cache; + duk_uint_fast32_t dist_start, dist_end, dist_sce; + duk_uint_fast32_t char_length; + const duk_uint8_t *p_start; + const duk_uint8_t *p_end; + const duk_uint8_t *p_found; + + /* + * For ASCII strings, the answer is simple. + */ + + if (DUK_LIKELY(DUK_HSTRING_IS_ASCII(h))) { + return char_offset; + } + + char_length = (duk_uint_fast32_t) DUK_HSTRING_GET_CHARLEN(h); + DUK_ASSERT(char_offset <= char_length); + + if (DUK_LIKELY(DUK_HSTRING_IS_ASCII(h))) { + /* Must recheck because the 'is ascii' flag may be set + * lazily. Alternatively, we could just compare charlen + * to bytelen. + */ + return char_offset; + } + + /* + * For non-ASCII strings, we need to scan forwards or backwards + * from some starting point. The starting point may be the start + * or end of the string, or some cached midpoint in the string + * cache. + * + * For "short" strings we simply scan without checking or updating + * the cache. For longer strings we check and update the cache as + * necessary, inserting a new cache entry if none exists. + */ + + DUK_DDD(DUK_DDDPRINT("non-ascii string %p, char_offset=%ld, clen=%ld, blen=%ld", + (void *) h, (long) char_offset, + (long) DUK_HSTRING_GET_CHARLEN(h), + (long) DUK_HSTRING_GET_BYTELEN(h))); + + heap = thr->heap; + sce = NULL; + use_cache = (char_length > DUK_HEAP_STRINGCACHE_NOCACHE_LIMIT); + + if (use_cache) { +#if defined(DUK_USE_DEBUG_LEVEL) && (DUK_USE_DEBUG_LEVEL >= 2) + DUK_DDD(DUK_DDDPRINT("stringcache before char2byte (using cache):")); + for (i = 0; i < DUK_HEAP_STRCACHE_SIZE; i++) { + duk_strcache_entry *c = heap->strcache + i; + DUK_DDD(DUK_DDDPRINT(" [%ld] -> h=%p, cidx=%ld, bidx=%ld", + (long) i, (void *) c->h, (long) c->cidx, (long) c->bidx)); + } +#endif + + for (i = 0; i < DUK_HEAP_STRCACHE_SIZE; i++) { + duk_strcache_entry *c = heap->strcache + i; + + if (c->h == h) { + sce = c; + break; + } + } + } + + /* + * Scan from shortest distance: + * - start of string + * - end of string + * - cache entry (if exists) + */ + + DUK_ASSERT(DUK_HSTRING_GET_CHARLEN(h) >= char_offset); + dist_start = char_offset; + dist_end = char_length - char_offset; + dist_sce = 0; DUK_UNREF(dist_sce); /* initialize for debug prints, needed if sce==NULL */ + + p_start = (const duk_uint8_t *) DUK_HSTRING_GET_DATA(h); + p_end = (const duk_uint8_t *) (p_start + DUK_HSTRING_GET_BYTELEN(h)); + p_found = NULL; + + if (sce) { + if (char_offset >= sce->cidx) { + dist_sce = char_offset - sce->cidx; + if ((dist_sce <= dist_start) && (dist_sce <= dist_end)) { + DUK_DDD(DUK_DDDPRINT("non-ascii string, use_cache=%ld, sce=%p:%ld:%ld, " + "dist_start=%ld, dist_end=%ld, dist_sce=%ld => " + "scan forwards from sce", + (long) use_cache, (void *) (sce ? sce->h : NULL), + (sce ? (long) sce->cidx : (long) -1), + (sce ? (long) sce->bidx : (long) -1), + (long) dist_start, (long) dist_end, (long) dist_sce)); + + p_found = duk__scan_forwards(p_start + sce->bidx, + p_end, + dist_sce); + goto scan_done; + } + } else { + dist_sce = sce->cidx - char_offset; + if ((dist_sce <= dist_start) && (dist_sce <= dist_end)) { + DUK_DDD(DUK_DDDPRINT("non-ascii string, use_cache=%ld, sce=%p:%ld:%ld, " + "dist_start=%ld, dist_end=%ld, dist_sce=%ld => " + "scan backwards from sce", + (long) use_cache, (void *) (sce ? sce->h : NULL), + (sce ? (long) sce->cidx : (long) -1), + (sce ? (long) sce->bidx : (long) -1), + (long) dist_start, (long) dist_end, (long) dist_sce)); + + p_found = duk__scan_backwards(p_start + sce->bidx, + p_start, + dist_sce); + goto scan_done; + } + } + } + + /* no sce, or sce scan not best */ + + if (dist_start <= dist_end) { + DUK_DDD(DUK_DDDPRINT("non-ascii string, use_cache=%ld, sce=%p:%ld:%ld, " + "dist_start=%ld, dist_end=%ld, dist_sce=%ld => " + "scan forwards from string start", + (long) use_cache, (void *) (sce ? sce->h : NULL), + (sce ? (long) sce->cidx : (long) -1), + (sce ? (long) sce->bidx : (long) -1), + (long) dist_start, (long) dist_end, (long) dist_sce)); + + p_found = duk__scan_forwards(p_start, + p_end, + dist_start); + } else { + DUK_DDD(DUK_DDDPRINT("non-ascii string, use_cache=%ld, sce=%p:%ld:%ld, " + "dist_start=%ld, dist_end=%ld, dist_sce=%ld => " + "scan backwards from string end", + (long) use_cache, (void *) (sce ? sce->h : NULL), + (sce ? (long) sce->cidx : (long) -1), + (sce ? (long) sce->bidx : (long) -1), + (long) dist_start, (long) dist_end, (long) dist_sce)); + + p_found = duk__scan_backwards(p_end, + p_start, + dist_end); + } + + scan_done: + + if (DUK_UNLIKELY(p_found == NULL)) { + /* Scan error: this shouldn't normally happen; it could happen if + * string is not valid UTF-8 data, and clen/blen are not consistent + * with the scanning algorithm. + */ + goto scan_error; + } + + DUK_ASSERT(p_found >= p_start); + DUK_ASSERT(p_found <= p_end); /* may be equal */ + byte_offset = (duk_uint32_t) (p_found - p_start); + + DUK_DDD(DUK_DDDPRINT("-> string %p, cidx %ld -> bidx %ld", + (void *) h, (long) char_offset, (long) byte_offset)); + + /* + * Update cache entry (allocating if necessary), and move the + * cache entry to the first place (in an "LRU" policy). + */ + + if (use_cache) { + /* update entry, allocating if necessary */ + if (!sce) { + sce = heap->strcache + DUK_HEAP_STRCACHE_SIZE - 1; /* take last entry */ + sce->h = h; + } + DUK_ASSERT(sce != NULL); + sce->bidx = (duk_uint32_t) (p_found - p_start); + sce->cidx = (duk_uint32_t) char_offset; + + /* LRU: move our entry to first */ + if (sce > &heap->strcache[0]) { + /* + * A C + * B A + * C <- sce ==> B + * D D + */ + duk_strcache_entry tmp; + + tmp = *sce; + duk_memmove((void *) (&heap->strcache[1]), + (const void *) (&heap->strcache[0]), + (size_t) (((char *) sce) - ((char *) &heap->strcache[0]))); + heap->strcache[0] = tmp; + + /* 'sce' points to the wrong entry here, but is no longer used */ + } +#if defined(DUK_USE_DEBUG_LEVEL) && (DUK_USE_DEBUG_LEVEL >= 2) + DUK_DDD(DUK_DDDPRINT("stringcache after char2byte (using cache):")); + for (i = 0; i < DUK_HEAP_STRCACHE_SIZE; i++) { + duk_strcache_entry *c = heap->strcache + i; + DUK_DDD(DUK_DDDPRINT(" [%ld] -> h=%p, cidx=%ld, bidx=%ld", + (long) i, (void *) c->h, (long) c->cidx, (long) c->bidx)); + } +#endif + } + + return byte_offset; + + scan_error: + DUK_ERROR_INTERNAL(thr); + DUK_WO_NORETURN(return 0;); +} +#line 1 "duk_heap_stringtable.c" +/* + * Heap string table handling, string interning. + */ + +/* #include duk_internal.h -> already included */ + +/* Resize checks not needed if minsize == maxsize, typical for low memory + * targets. + */ +#define DUK__STRTAB_RESIZE_CHECK +#if (DUK_USE_STRTAB_MINSIZE == DUK_USE_STRTAB_MAXSIZE) +#undef DUK__STRTAB_RESIZE_CHECK +#endif + +#if defined(DUK_USE_STRTAB_PTRCOMP) +#define DUK__HEAPPTR_ENC16(heap,ptr) DUK_USE_HEAPPTR_ENC16((heap)->heap_udata, (ptr)) +#define DUK__HEAPPTR_DEC16(heap,val) DUK_USE_HEAPPTR_DEC16((heap)->heap_udata, (val)) +#define DUK__GET_STRTABLE(heap) ((heap)->strtable16) +#else +#define DUK__HEAPPTR_ENC16(heap,ptr) (ptr) +#define DUK__HEAPPTR_DEC16(heap,val) (val) +#define DUK__GET_STRTABLE(heap) ((heap)->strtable) +#endif + +#define DUK__STRTAB_U32_MAX_STRLEN 10 /* 4'294'967'295 */ + +/* + * Debug dump stringtable. + */ + +#if defined(DUK_USE_DEBUG) +DUK_INTERNAL void duk_heap_strtable_dump(duk_heap *heap) { +#if defined(DUK_USE_STRTAB_PTRCOMP) + duk_uint16_t *strtable; +#else + duk_hstring **strtable; +#endif + duk_uint32_t i; + duk_hstring *h; + duk_size_t count_total = 0; + duk_size_t count_chain; + duk_size_t count_chain_min = DUK_SIZE_MAX; + duk_size_t count_chain_max = 0; + duk_size_t count_len[8]; /* chain lengths from 0 to 7 */ + + if (heap == NULL) { + DUK_D(DUK_DPRINT("string table, heap=NULL")); + return; + } + + strtable = DUK__GET_STRTABLE(heap); + if (strtable == NULL) { + DUK_D(DUK_DPRINT("string table, strtab=NULL")); + return; + } + + duk_memzero((void *) count_len, sizeof(count_len)); + for (i = 0; i < heap->st_size; i++) { + h = DUK__HEAPPTR_DEC16(heap, strtable[i]); + count_chain = 0; + while (h != NULL) { + count_chain++; + h = h->hdr.h_next; + } + if (count_chain < sizeof(count_len) / sizeof(duk_size_t)) { + count_len[count_chain]++; + } + count_chain_max = (count_chain > count_chain_max ? count_chain : count_chain_max); + count_chain_min = (count_chain < count_chain_min ? count_chain : count_chain_min); + count_total += count_chain; + } + + DUK_D(DUK_DPRINT("string table, strtab=%p, count=%lu, chain min=%lu max=%lu avg=%lf: " + "counts: %lu %lu %lu %lu %lu %lu %lu %lu ...", + (void *) heap->strtable, (unsigned long) count_total, + (unsigned long) count_chain_min, (unsigned long) count_chain_max, + (double) count_total / (double) heap->st_size, + (unsigned long) count_len[0], (unsigned long) count_len[1], + (unsigned long) count_len[2], (unsigned long) count_len[3], + (unsigned long) count_len[4], (unsigned long) count_len[5], + (unsigned long) count_len[6], (unsigned long) count_len[7])); +} +#endif /* DUK_USE_DEBUG */ + +/* + * Assertion helper to ensure strtable is populated correctly. + */ + +#if defined(DUK_USE_ASSERTIONS) +DUK_LOCAL void duk__strtable_assert_checks(duk_heap *heap) { +#if defined(DUK_USE_STRTAB_PTRCOMP) + duk_uint16_t *strtable; +#else + duk_hstring **strtable; +#endif + duk_uint32_t i; + duk_hstring *h; + duk_size_t count = 0; + + DUK_ASSERT(heap != NULL); + + strtable = DUK__GET_STRTABLE(heap); + if (strtable != NULL) { + DUK_ASSERT(heap->st_size != 0); + DUK_ASSERT(heap->st_mask == heap->st_size - 1); + + for (i = 0; i < heap->st_size; i++) { + h = DUK__HEAPPTR_DEC16(heap, strtable[i]); + while (h != NULL) { + DUK_ASSERT((DUK_HSTRING_GET_HASH(h) & heap->st_mask) == i); + count++; + h = h->hdr.h_next; + } + } + } else { + DUK_ASSERT(heap->st_size == 0); + DUK_ASSERT(heap->st_mask == 0); + } + +#if defined(DUK__STRTAB_RESIZE_CHECK) + DUK_ASSERT(count == (duk_size_t) heap->st_count); +#endif +} +#endif /* DUK_USE_ASSERTIONS */ + +/* + * Allocate and initialize a duk_hstring. + * + * Returns a NULL if allocation or initialization fails for some reason. + * + * The string won't be inserted into the string table and isn't tracked in + * any way (link pointers will be NULL). The caller must place the string + * into the string table without any risk of a longjmp, otherwise the string + * is leaked. + */ + +DUK_LOCAL duk_hstring *duk__strtable_alloc_hstring(duk_heap *heap, + const duk_uint8_t *str, + duk_uint32_t blen, + duk_uint32_t strhash, + const duk_uint8_t *extdata) { + duk_hstring *res; + const duk_uint8_t *data; +#if !defined(DUK_USE_HSTRING_ARRIDX) + duk_uarridx_t dummy; +#endif + + DUK_ASSERT(heap != NULL); + DUK_UNREF(extdata); + +#if defined(DUK_USE_STRLEN16) + /* If blen <= 0xffffUL, clen is also guaranteed to be <= 0xffffUL. */ + if (blen > 0xffffUL) { + DUK_D(DUK_DPRINT("16-bit string blen/clen active and blen over 16 bits, reject intern")); + goto alloc_error; + } +#endif + + /* XXX: Memzeroing the allocated structure is not really necessary + * because we could just initialize all fields explicitly (almost + * all fields are initialized explicitly anyway). + */ +#if defined(DUK_USE_HSTRING_EXTDATA) && defined(DUK_USE_EXTSTR_INTERN_CHECK) + if (extdata) { + res = (duk_hstring *) DUK_ALLOC(heap, sizeof(duk_hstring_external)); + if (DUK_UNLIKELY(res == NULL)) { + goto alloc_error; + } + duk_memzero(res, sizeof(duk_hstring_external)); +#if defined(DUK_USE_EXPLICIT_NULL_INIT) + DUK_HEAPHDR_STRING_INIT_NULLS(&res->hdr); +#endif + DUK_HEAPHDR_SET_TYPE_AND_FLAGS(&res->hdr, DUK_HTYPE_STRING, DUK_HSTRING_FLAG_EXTDATA); + + DUK_ASSERT(extdata[blen] == 0); /* Application responsibility. */ + data = extdata; + ((duk_hstring_external *) res)->extdata = extdata; + } else +#endif /* DUK_USE_HSTRING_EXTDATA && DUK_USE_EXTSTR_INTERN_CHECK */ + { + duk_uint8_t *data_tmp; + + /* NUL terminate for convenient C access */ + DUK_ASSERT(sizeof(duk_hstring) + blen + 1 > blen); /* No wrap, limits ensure. */ + res = (duk_hstring *) DUK_ALLOC(heap, sizeof(duk_hstring) + blen + 1); + if (DUK_UNLIKELY(res == NULL)) { + goto alloc_error; + } + duk_memzero(res, sizeof(duk_hstring)); +#if defined(DUK_USE_EXPLICIT_NULL_INIT) + DUK_HEAPHDR_STRING_INIT_NULLS(&res->hdr); +#endif + DUK_HEAPHDR_SET_TYPE_AND_FLAGS(&res->hdr, DUK_HTYPE_STRING, 0); + + data_tmp = (duk_uint8_t *) (res + 1); + duk_memcpy(data_tmp, str, blen); + data_tmp[blen] = (duk_uint8_t) 0; + data = (const duk_uint8_t *) data_tmp; + } + + DUK_HSTRING_SET_BYTELEN(res, blen); + DUK_HSTRING_SET_HASH(res, strhash); + + DUK_ASSERT(!DUK_HSTRING_HAS_ARRIDX(res)); +#if defined(DUK_USE_HSTRING_ARRIDX) + res->arridx = duk_js_to_arrayindex_string(data, blen); + if (res->arridx != DUK_HSTRING_NO_ARRAY_INDEX) { +#else + dummy = duk_js_to_arrayindex_string(data, blen); + if (dummy != DUK_HSTRING_NO_ARRAY_INDEX) { +#endif + /* Array index strings cannot be symbol strings, + * and they're always pure ASCII so blen == clen. + */ + DUK_HSTRING_SET_ARRIDX(res); + DUK_HSTRING_SET_ASCII(res); + DUK_ASSERT(duk_unicode_unvalidated_utf8_length(data, (duk_size_t) blen) == blen); + } else { + /* Because 'data' is NUL-terminated, we don't need a + * blen > 0 check here. For NUL (0x00) the symbol + * checks will be false. + */ + if (DUK_UNLIKELY(data[0] >= 0x80U)) { + if (data[0] <= 0x81) { + DUK_HSTRING_SET_SYMBOL(res); + } else if (data[0] == 0x82U || data[0] == 0xffU) { + DUK_HSTRING_SET_HIDDEN(res); + DUK_HSTRING_SET_SYMBOL(res); + } + } + + /* Using an explicit 'ASCII' flag has larger footprint (one call site + * only) but is quite useful for the case when there's no explicit + * 'clen' in duk_hstring. + * + * The flag is set lazily for RAM strings. + */ + DUK_ASSERT(!DUK_HSTRING_HAS_ASCII(res)); + +#if defined(DUK_USE_HSTRING_LAZY_CLEN) + /* Charlen initialized to 0, updated on-the-fly. */ +#else + duk_hstring_init_charlen(res); /* Also sets ASCII flag. */ +#endif + } + + DUK_DDD(DUK_DDDPRINT("interned string, hash=0x%08lx, blen=%ld, has_arridx=%ld, has_extdata=%ld", + (unsigned long) DUK_HSTRING_GET_HASH(res), + (long) DUK_HSTRING_GET_BYTELEN(res), + (long) (DUK_HSTRING_HAS_ARRIDX(res) ? 1 : 0), + (long) (DUK_HSTRING_HAS_EXTDATA(res) ? 1 : 0))); + + DUK_ASSERT(res != NULL); + return res; + + alloc_error: + return NULL; +} + +/* + * Grow strtable allocation in-place. + */ + +#if defined(DUK__STRTAB_RESIZE_CHECK) +DUK_LOCAL void duk__strtable_grow_inplace(duk_heap *heap) { + duk_uint32_t new_st_size; + duk_uint32_t old_st_size; + duk_uint32_t i; + duk_hstring *h; + duk_hstring *next; + duk_hstring *prev; +#if defined(DUK_USE_STRTAB_PTRCOMP) + duk_uint16_t *new_ptr; + duk_uint16_t *new_ptr_high; +#else + duk_hstring **new_ptr; + duk_hstring **new_ptr_high; +#endif + + DUK_DD(DUK_DDPRINT("grow in-place: %lu -> %lu", (unsigned long) heap->st_size, (unsigned long) heap->st_size * 2)); + + DUK_ASSERT(heap != NULL); + DUK_ASSERT(heap->st_resizing == 1); + DUK_ASSERT(heap->st_size >= 2); + DUK_ASSERT((heap->st_size & (heap->st_size - 1)) == 0); /* 2^N */ + DUK_ASSERT(DUK__GET_STRTABLE(heap) != NULL); + + DUK_STATS_INC(heap, stats_strtab_resize_grow); + + new_st_size = heap->st_size << 1U; + DUK_ASSERT(new_st_size > heap->st_size); /* No overflow. */ + + /* Reallocate the strtable first and then work in-place to rehash + * strings. We don't need an indirect allocation here: even if GC + * is triggered to satisfy the allocation, recursive strtable resize + * is prevented by flags. This is also why we don't need to use + * DUK_REALLOC_INDIRECT(). + */ + +#if defined(DUK_USE_STRTAB_PTRCOMP) + new_ptr = (duk_uint16_t *) DUK_REALLOC(heap, heap->strtable16, sizeof(duk_uint16_t) * new_st_size); +#else + new_ptr = (duk_hstring **) DUK_REALLOC(heap, heap->strtable, sizeof(duk_hstring *) * new_st_size); +#endif + if (DUK_UNLIKELY(new_ptr == NULL)) { + /* If realloc fails we can continue normally: the string table + * won't "fill up" although chains will gradually get longer. + * When string insertions continue, we'll quite soon try again + * with no special handling. + */ + DUK_D(DUK_DPRINT("string table grow failed, ignoring")); + return; + } +#if defined(DUK_USE_STRTAB_PTRCOMP) + heap->strtable16 = new_ptr; +#else + heap->strtable = new_ptr; +#endif + + /* Rehash a single bucket into two separate ones. When we grow + * by x2 the highest 'new' bit determines whether a string remains + * in its old position (bit is 0) or goes to a new one (bit is 1). + */ + + old_st_size = heap->st_size; + new_ptr_high = new_ptr + old_st_size; + for (i = 0; i < old_st_size; i++) { + duk_hstring *new_root; + duk_hstring *new_root_high; + + h = DUK__HEAPPTR_DEC16(heap, new_ptr[i]); + new_root = h; + new_root_high = NULL; + + prev = NULL; + while (h != NULL) { + duk_uint32_t mask; + + DUK_ASSERT((DUK_HSTRING_GET_HASH(h) & heap->st_mask) == i); + next = h->hdr.h_next; + + /* Example: if previous size was 256, previous mask is 0xFF + * and size is 0x100 which corresponds to the new bit that + * comes into play. + */ + DUK_ASSERT(heap->st_mask == old_st_size - 1); + mask = old_st_size; + if (DUK_HSTRING_GET_HASH(h) & mask) { + if (prev != NULL) { + prev->hdr.h_next = h->hdr.h_next; + } else { + DUK_ASSERT(h == new_root); + new_root = h->hdr.h_next; + } + + h->hdr.h_next = new_root_high; + new_root_high = h; + } else { + prev = h; + } + h = next; + } + + new_ptr[i] = DUK__HEAPPTR_ENC16(heap, new_root); + new_ptr_high[i] = DUK__HEAPPTR_ENC16(heap, new_root_high); + } + + heap->st_size = new_st_size; + heap->st_mask = new_st_size - 1; + +#if defined(DUK_USE_ASSERTIONS) + duk__strtable_assert_checks(heap); +#endif +} +#endif /* DUK__STRTAB_RESIZE_CHECK */ + +/* + * Shrink strtable allocation in-place. + */ + +#if defined(DUK__STRTAB_RESIZE_CHECK) +DUK_LOCAL void duk__strtable_shrink_inplace(duk_heap *heap) { + duk_uint32_t new_st_size; + duk_uint32_t i; + duk_hstring *h; + duk_hstring *other; + duk_hstring *root; +#if defined(DUK_USE_STRTAB_PTRCOMP) + duk_uint16_t *old_ptr; + duk_uint16_t *old_ptr_high; + duk_uint16_t *new_ptr; +#else + duk_hstring **old_ptr; + duk_hstring **old_ptr_high; + duk_hstring **new_ptr; +#endif + + DUK_DD(DUK_DDPRINT("shrink in-place: %lu -> %lu", (unsigned long) heap->st_size, (unsigned long) heap->st_size / 2)); + + DUK_ASSERT(heap != NULL); + DUK_ASSERT(heap->st_resizing == 1); + DUK_ASSERT(heap->st_size >= 2); + DUK_ASSERT((heap->st_size & (heap->st_size - 1)) == 0); /* 2^N */ + DUK_ASSERT(DUK__GET_STRTABLE(heap) != NULL); + + DUK_STATS_INC(heap, stats_strtab_resize_shrink); + + new_st_size = heap->st_size >> 1U; + + /* Combine two buckets into a single one. When we shrink, one hash + * bit (highest) disappears. + */ + old_ptr = DUK__GET_STRTABLE(heap); + old_ptr_high = old_ptr + new_st_size; + for (i = 0; i < new_st_size; i++) { + h = DUK__HEAPPTR_DEC16(heap, old_ptr[i]); + other = DUK__HEAPPTR_DEC16(heap, old_ptr_high[i]); + + if (h == NULL) { + /* First chain is empty, so use second one as is. */ + root = other; + } else { + /* Find end of first chain, and link in the second. */ + root = h; + while (h->hdr.h_next != NULL) { + h = h->hdr.h_next; + } + h->hdr.h_next = other; + } + + old_ptr[i] = DUK__HEAPPTR_ENC16(heap, root); + } + + heap->st_size = new_st_size; + heap->st_mask = new_st_size - 1; + + /* The strtable is now consistent and we can realloc safely. Even + * if side effects cause string interning or removal the strtable + * updates are safe. Recursive resize has been prevented by caller. + * This is also why we don't need to use DUK_REALLOC_INDIRECT(). + * + * We assume a realloc() to a smaller size is guaranteed to succeed. + * It would be relatively straightforward to handle the error by + * essentially performing a "grow" step to recover. + */ + +#if defined(DUK_USE_STRTAB_PTRCOMP) + new_ptr = (duk_uint16_t *) DUK_REALLOC(heap, heap->strtable16, sizeof(duk_uint16_t) * new_st_size); + DUK_ASSERT(new_ptr != NULL); + heap->strtable16 = new_ptr; +#else + new_ptr = (duk_hstring **) DUK_REALLOC(heap, heap->strtable, sizeof(duk_hstring *) * new_st_size); + DUK_ASSERT(new_ptr != NULL); + heap->strtable = new_ptr; +#endif + +#if defined(DUK_USE_ASSERTIONS) + duk__strtable_assert_checks(heap); +#endif +} +#endif /* DUK__STRTAB_RESIZE_CHECK */ + +/* + * Grow/shrink check. + */ + +#if defined(DUK__STRTAB_RESIZE_CHECK) +DUK_LOCAL DUK_COLD DUK_NOINLINE void duk__strtable_resize_check(duk_heap *heap) { + duk_uint32_t load_factor; /* fixed point */ + + DUK_ASSERT(heap != NULL); +#if defined(DUK_USE_STRTAB_PTRCOMP) + DUK_ASSERT(heap->strtable16 != NULL); +#else + DUK_ASSERT(heap->strtable != NULL); +#endif + + DUK_STATS_INC(heap, stats_strtab_resize_check); + + /* Prevent recursive resizing. */ + if (DUK_UNLIKELY(heap->st_resizing != 0U)) { + DUK_D(DUK_DPRINT("prevent recursive strtable resize")); + return; + } + + heap->st_resizing = 1; + + DUK_ASSERT(heap->st_size >= 16U); + DUK_ASSERT((heap->st_size >> 4U) >= 1); + load_factor = heap->st_count / (heap->st_size >> 4U); + + DUK_DD(DUK_DDPRINT("resize check string table: size=%lu, count=%lu, load_factor=%lu (fixed point .4; float %lf)", + (unsigned long) heap->st_size, (unsigned long) heap->st_count, + (unsigned long) load_factor, + (double) heap->st_count / (double) heap->st_size)); + + if (load_factor >= DUK_USE_STRTAB_GROW_LIMIT) { + if (heap->st_size >= DUK_USE_STRTAB_MAXSIZE) { + DUK_DD(DUK_DDPRINT("want to grow strtable (based on load factor) but already maximum size")); + } else { + DUK_D(DUK_DPRINT("grow string table: %lu -> %lu", (unsigned long) heap->st_size, (unsigned long) heap->st_size * 2)); +#if defined(DUK_USE_DEBUG) + duk_heap_strtable_dump(heap); +#endif + duk__strtable_grow_inplace(heap); + } + } else if (load_factor <= DUK_USE_STRTAB_SHRINK_LIMIT) { + if (heap->st_size <= DUK_USE_STRTAB_MINSIZE) { + DUK_DD(DUK_DDPRINT("want to shrink strtable (based on load factor) but already minimum size")); + } else { + DUK_D(DUK_DPRINT("shrink string table: %lu -> %lu", (unsigned long) heap->st_size, (unsigned long) heap->st_size / 2)); +#if defined(DUK_USE_DEBUG) + duk_heap_strtable_dump(heap); +#endif + duk__strtable_shrink_inplace(heap); + } + } else { + DUK_DD(DUK_DDPRINT("no need for strtable resize")); + } + + heap->st_resizing = 0; +} +#endif /* DUK__STRTAB_RESIZE_CHECK */ + +/* + * Torture grow/shrink: unconditionally grow and shrink back. + */ + +#if defined(DUK_USE_STRTAB_TORTURE) && defined(DUK__STRTAB_RESIZE_CHECK) +DUK_LOCAL void duk__strtable_resize_torture(duk_heap *heap) { + duk_uint32_t old_st_size; + + DUK_ASSERT(heap != NULL); + + old_st_size = heap->st_size; + if (old_st_size >= DUK_USE_STRTAB_MAXSIZE) { + return; + } + + heap->st_resizing = 1; + duk__strtable_grow_inplace(heap); + if (heap->st_size > old_st_size) { + duk__strtable_shrink_inplace(heap); + } + heap->st_resizing = 0; +} +#endif /* DUK_USE_STRTAB_TORTURE && DUK__STRTAB_RESIZE_CHECK */ + +/* + * Raw intern; string already checked not to be present. + */ + +DUK_LOCAL duk_hstring *duk__strtable_do_intern(duk_heap *heap, const duk_uint8_t *str, duk_uint32_t blen, duk_uint32_t strhash) { + duk_hstring *res; + const duk_uint8_t *extdata; +#if defined(DUK_USE_STRTAB_PTRCOMP) + duk_uint16_t *slot; +#else + duk_hstring **slot; +#endif + + DUK_DDD(DUK_DDDPRINT("do_intern: heap=%p, str=%p, blen=%lu, strhash=%lx, st_size=%lu, st_count=%lu, load=%lf", + (void *) heap, (const void *) str, (unsigned long) blen, (unsigned long) strhash, + (unsigned long) heap->st_size, (unsigned long) heap->st_count, + (double) heap->st_count / (double) heap->st_size)); + + DUK_ASSERT(heap != NULL); + + /* Prevent any side effects on the string table and the caller provided + * str/blen arguments while interning is in progress. For example, if + * the caller provided str/blen from a dynamic buffer, a finalizer + * might resize or modify that dynamic buffer, invalidating the call + * arguments. + * + * While finalizers must be prevented, mark-and-sweep itself is fine. + * Recursive string table resize is prevented explicitly here. + */ + + heap->pf_prevent_count++; + DUK_ASSERT(heap->pf_prevent_count != 0); /* Wrap. */ + +#if defined(DUK_USE_STRTAB_TORTURE) && defined(DUK__STRTAB_RESIZE_CHECK) + duk__strtable_resize_torture(heap); +#endif + + /* String table grow/shrink check. Because of chaining (and no + * accumulation issues as with hash probe chains and DELETED + * markers) there's never a mandatory need to resize right now. + * Check for the resize only periodically, based on st_count + * bit pattern. Because string table removal doesn't do a shrink + * check, we do that also here. + * + * Do the resize and possible grow/shrink before the new duk_hstring + * has been allocated. Otherwise we may trigger a GC when the result + * duk_hstring is not yet strongly referenced. + */ + +#if defined(DUK__STRTAB_RESIZE_CHECK) + if (DUK_UNLIKELY((heap->st_count & DUK_USE_STRTAB_RESIZE_CHECK_MASK) == 0)) { + duk__strtable_resize_check(heap); + } +#endif + + /* External string check (low memory optimization). */ + +#if defined(DUK_USE_HSTRING_EXTDATA) && defined(DUK_USE_EXTSTR_INTERN_CHECK) + extdata = (const duk_uint8_t *) DUK_USE_EXTSTR_INTERN_CHECK(heap->heap_udata, (void *) DUK_LOSE_CONST(str), (duk_size_t) blen); +#else + extdata = (const duk_uint8_t *) NULL; +#endif + + /* Allocate and initialize string, not yet linked. This may cause a + * GC which may cause other strings to be interned and inserted into + * the string table before we insert our string. Finalizer execution + * is disabled intentionally to avoid a finalizer from e.g. resizing + * a buffer used as a data area for 'str'. + */ + + res = duk__strtable_alloc_hstring(heap, str, blen, strhash, extdata); + + /* Allow side effects again: GC must be avoided until duk_hstring + * result (if successful) has been INCREF'd. + */ + DUK_ASSERT(heap->pf_prevent_count > 0); + heap->pf_prevent_count--; + + /* Alloc error handling. */ + + if (DUK_UNLIKELY(res == NULL)) { +#if defined(DUK_USE_HSTRING_EXTDATA) && defined(DUK_USE_EXTSTR_INTERN_CHECK) + if (extdata != NULL) { + DUK_USE_EXTSTR_FREE(heap->heap_udata, (const void *) extdata); + } +#endif + return NULL; + } + + /* Insert into string table. */ + +#if defined(DUK_USE_STRTAB_PTRCOMP) + slot = heap->strtable16 + (strhash & heap->st_mask); +#else + slot = heap->strtable + (strhash & heap->st_mask); +#endif + DUK_ASSERT(res->hdr.h_next == NULL); /* This is the case now, but unnecessary zeroing/NULLing. */ + res->hdr.h_next = DUK__HEAPPTR_DEC16(heap, *slot); + *slot = DUK__HEAPPTR_ENC16(heap, res); + + /* Update string count only for successful inserts. */ + +#if defined(DUK__STRTAB_RESIZE_CHECK) + heap->st_count++; +#endif + + /* The duk_hstring is in the string table but is not yet strongly + * reachable. Calling code MUST NOT make any allocations or other + * side effects before the duk_hstring has been INCREF'd and made + * reachable. + */ + + return res; +} + +/* + * Intern a string from str/blen, returning either an existing duk_hstring + * or adding a new one into the string table. The input string does -not- + * need to be NUL terminated. + * + * The input 'str' argument may point to a Duktape managed data area such as + * the data area of a dynamic buffer. It's crucial to avoid any side effects + * that might affect the data area (e.g. resize the dynamic buffer, or write + * to the buffer) before the string is fully interned. + */ + +#if defined(DUK_USE_ROM_STRINGS) +DUK_LOCAL duk_hstring *duk__strtab_romstring_lookup(duk_heap *heap, const duk_uint8_t *str, duk_size_t blen, duk_uint32_t strhash) { + duk_size_t lookup_hash; + duk_hstring *curr; + + DUK_ASSERT(heap != NULL); + DUK_UNREF(heap); + + lookup_hash = (blen << 4); + if (blen > 0) { + lookup_hash += str[0]; + } + lookup_hash &= 0xff; + + curr = (duk_hstring *) DUK_LOSE_CONST(duk_rom_strings_lookup[lookup_hash]); + while (curr != NULL) { + /* Unsafe memcmp() because for zero blen, str may be NULL. */ + if (strhash == DUK_HSTRING_GET_HASH(curr) && + blen == DUK_HSTRING_GET_BYTELEN(curr) && + duk_memcmp_unsafe((const void *) str, (const void *) DUK_HSTRING_GET_DATA(curr), blen) == 0) { + DUK_DDD(DUK_DDDPRINT("intern check: rom string: %!O, computed hash 0x%08lx, rom hash 0x%08lx", + curr, (unsigned long) strhash, (unsigned long) DUK_HSTRING_GET_HASH(curr))); + return curr; + } + curr = curr->hdr.h_next; + } + + return NULL; +} +#endif /* DUK_USE_ROM_STRINGS */ + +DUK_INTERNAL duk_hstring *duk_heap_strtable_intern(duk_heap *heap, const duk_uint8_t *str, duk_uint32_t blen) { + duk_uint32_t strhash; + duk_hstring *h; + + DUK_DDD(DUK_DDDPRINT("intern check: heap=%p, str=%p, blen=%lu", (void *) heap, (const void *) str, (unsigned long) blen)); + + /* Preliminaries. */ + + /* XXX: maybe just require 'str != NULL' even for zero size? */ + DUK_ASSERT(heap != NULL); + DUK_ASSERT(blen == 0 || str != NULL); + DUK_ASSERT(blen <= DUK_HSTRING_MAX_BYTELEN); /* Caller is responsible for ensuring this. */ + strhash = duk_heap_hashstring(heap, str, (duk_size_t) blen); + + /* String table lookup. */ + + DUK_ASSERT(DUK__GET_STRTABLE(heap) != NULL); + DUK_ASSERT(heap->st_size > 0); + DUK_ASSERT(heap->st_size == heap->st_mask + 1); +#if defined(DUK_USE_STRTAB_PTRCOMP) + h = DUK__HEAPPTR_DEC16(heap, heap->strtable16[strhash & heap->st_mask]); +#else + h = heap->strtable[strhash & heap->st_mask]; +#endif + while (h != NULL) { + if (DUK_HSTRING_GET_HASH(h) == strhash && + DUK_HSTRING_GET_BYTELEN(h) == blen && + duk_memcmp_unsafe((const void *) str, (const void *) DUK_HSTRING_GET_DATA(h), (size_t) blen) == 0) { + /* Found existing entry. */ + DUK_STATS_INC(heap, stats_strtab_intern_hit); + return h; + } + h = h->hdr.h_next; + } + + /* ROM table lookup. Because this lookup is slower, do it only after + * RAM lookup. This works because no ROM string is ever interned into + * the RAM string table. + */ + +#if defined(DUK_USE_ROM_STRINGS) + h = duk__strtab_romstring_lookup(heap, str, blen, strhash); + if (h != NULL) { + DUK_STATS_INC(heap, stats_strtab_intern_hit); + return h; + } +#endif + + /* Not found in string table; insert. */ + + DUK_STATS_INC(heap, stats_strtab_intern_miss); + h = duk__strtable_do_intern(heap, str, blen, strhash); + return h; /* may be NULL */ +} + +/* + * Intern a string from u32. + */ + +/* XXX: Could arrange some special handling because we know that the result + * will have an arridx flag and an ASCII flag, won't need a clen check, etc. + */ + +DUK_INTERNAL duk_hstring *duk_heap_strtable_intern_u32(duk_heap *heap, duk_uint32_t val) { + duk_uint8_t buf[DUK__STRTAB_U32_MAX_STRLEN]; + duk_uint8_t *p; + + DUK_ASSERT(heap != NULL); + + /* This is smaller and faster than a %lu sprintf. */ + p = buf + sizeof(buf); + do { + p--; + *p = duk_lc_digits[val % 10]; + val = val / 10; + } while (val != 0); /* For val == 0, emit exactly one '0'. */ + DUK_ASSERT(p >= buf); + + return duk_heap_strtable_intern(heap, (const duk_uint8_t *) p, (duk_uint32_t) ((buf + sizeof(buf)) - p)); +} + +/* + * Checked convenience variants. + * + * XXX: Because the main use case is for the checked variants, make them the + * main functionality and provide a safe variant separately (it is only needed + * during heap init). The problem with that is that longjmp state and error + * creation must already be possible to throw. + */ + +DUK_INTERNAL duk_hstring *duk_heap_strtable_intern_checked(duk_hthread *thr, const duk_uint8_t *str, duk_uint32_t blen) { + duk_hstring *res; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(thr->heap != NULL); + DUK_ASSERT(blen == 0 || str != NULL); + + res = duk_heap_strtable_intern(thr->heap, str, blen); + if (DUK_UNLIKELY(res == NULL)) { + DUK_ERROR_ALLOC_FAILED(thr); + DUK_WO_NORETURN(return NULL;); + } + return res; +} + +#if defined(DUK_USE_LITCACHE_SIZE) +DUK_LOCAL duk_uint_t duk__strtable_litcache_key(const duk_uint8_t *str, duk_uint32_t blen) { + duk_uintptr_t key; + + DUK_ASSERT(DUK_USE_LITCACHE_SIZE > 0); + DUK_ASSERT(DUK_IS_POWER_OF_TWO((duk_uint_t) DUK_USE_LITCACHE_SIZE)); + + key = (duk_uintptr_t) blen ^ (duk_uintptr_t) str; + key &= (duk_uintptr_t) (DUK_USE_LITCACHE_SIZE - 1); /* Assumes size is power of 2. */ + /* Due to masking, cast is in 32-bit range. */ + DUK_ASSERT(key <= DUK_UINT_MAX); + return (duk_uint_t) key; +} + +DUK_INTERNAL duk_hstring *duk_heap_strtable_intern_literal_checked(duk_hthread *thr, const duk_uint8_t *str, duk_uint32_t blen) { + duk_uint_t key; + duk_litcache_entry *ent; + duk_hstring *h; + + /* Fast path check: literal exists in literal cache. */ + key = duk__strtable_litcache_key(str, blen); + ent = thr->heap->litcache + key; + if (ent->addr == str) { + DUK_DD(DUK_DDPRINT("intern check for cached, pinned literal: str=%p, blen=%ld -> duk_hstring %!O", + (const void *) str, (long) blen, (duk_heaphdr *) ent->h)); + DUK_ASSERT(ent->h != NULL); + DUK_ASSERT(DUK_HSTRING_HAS_PINNED_LITERAL(ent->h)); + DUK_STATS_INC(thr->heap, stats_strtab_litcache_hit); + return ent->h; + } + + /* Intern and update (overwrite) cache entry. */ + h = duk_heap_strtable_intern_checked(thr, str, blen); + ent->addr = str; + ent->h = h; + DUK_STATS_INC(thr->heap, stats_strtab_litcache_miss); + + /* Pin the duk_hstring until the next mark-and-sweep. This means + * litcache entries don't need to be invalidated until the next + * mark-and-sweep as their target duk_hstring is not freed before + * the mark-and-sweep happens. The pin remains even if the literal + * cache entry is overwritten, and is still useful to avoid string + * table traffic. + */ + if (!DUK_HSTRING_HAS_PINNED_LITERAL(h)) { + DUK_DD(DUK_DDPRINT("pin duk_hstring because it is a literal: %!O", (duk_heaphdr *) h)); + DUK_ASSERT(!DUK_HEAPHDR_HAS_READONLY((duk_heaphdr *) h)); + DUK_HSTRING_INCREF(thr, h); + DUK_HSTRING_SET_PINNED_LITERAL(h); + DUK_STATS_INC(thr->heap, stats_strtab_litcache_pin); + } + + return h; +} +#endif /* DUK_USE_LITCACHE_SIZE */ + +DUK_INTERNAL duk_hstring *duk_heap_strtable_intern_u32_checked(duk_hthread *thr, duk_uint32_t val) { + duk_hstring *res; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(thr->heap != NULL); + + res = duk_heap_strtable_intern_u32(thr->heap, val); + if (DUK_UNLIKELY(res == NULL)) { + DUK_ERROR_ALLOC_FAILED(thr); + DUK_WO_NORETURN(return NULL;); + } + return res; +} + +/* + * Remove (unlink) a string from the string table. + * + * Just unlinks the duk_hstring, leaving link pointers as garbage. + * Caller must free the string itself. + */ + +#if defined(DUK_USE_REFERENCE_COUNTING) +/* Unlink without a 'prev' pointer. */ +DUK_INTERNAL void duk_heap_strtable_unlink(duk_heap *heap, duk_hstring *h) { +#if defined(DUK_USE_STRTAB_PTRCOMP) + duk_uint16_t *slot; +#else + duk_hstring **slot; +#endif + duk_hstring *other; + duk_hstring *prev; + + DUK_DDD(DUK_DDDPRINT("remove: heap=%p, h=%p, blen=%lu, strhash=%lx", + (void *) heap, (void *) h, + (unsigned long) (h != NULL ? DUK_HSTRING_GET_BYTELEN(h) : 0), + (unsigned long) (h != NULL ? DUK_HSTRING_GET_HASH(h) : 0))); + + DUK_ASSERT(heap != NULL); + DUK_ASSERT(h != NULL); + +#if defined(DUK__STRTAB_RESIZE_CHECK) + DUK_ASSERT(heap->st_count > 0); + heap->st_count--; +#endif + +#if defined(DUK_USE_STRTAB_PTRCOMP) + slot = heap->strtable16 + (DUK_HSTRING_GET_HASH(h) & heap->st_mask); +#else + slot = heap->strtable + (DUK_HSTRING_GET_HASH(h) & heap->st_mask); +#endif + other = DUK__HEAPPTR_DEC16(heap, *slot); + DUK_ASSERT(other != NULL); /* At least argument string is in the chain. */ + + prev = NULL; + while (other != h) { + prev = other; + other = other->hdr.h_next; + DUK_ASSERT(other != NULL); /* We'll eventually find 'h'. */ + } + if (prev != NULL) { + /* Middle of list. */ + prev->hdr.h_next = h->hdr.h_next; + } else { + /* Head of list. */ + *slot = DUK__HEAPPTR_ENC16(heap, h->hdr.h_next); + } + + /* There's no resize check on a string free. The next string + * intern will do one. + */ +} +#endif /* DUK_USE_REFERENCE_COUNTING */ + +/* Unlink with a 'prev' pointer. */ +DUK_INTERNAL void duk_heap_strtable_unlink_prev(duk_heap *heap, duk_hstring *h, duk_hstring *prev) { +#if defined(DUK_USE_STRTAB_PTRCOMP) + duk_uint16_t *slot; +#else + duk_hstring **slot; +#endif + + DUK_DDD(DUK_DDDPRINT("remove: heap=%p, prev=%p, h=%p, blen=%lu, strhash=%lx", + (void *) heap, (void *) prev, (void *) h, + (unsigned long) (h != NULL ? DUK_HSTRING_GET_BYTELEN(h) : 0), + (unsigned long) (h != NULL ? DUK_HSTRING_GET_HASH(h) : 0))); + + DUK_ASSERT(heap != NULL); + DUK_ASSERT(h != NULL); + DUK_ASSERT(prev == NULL || prev->hdr.h_next == h); + +#if defined(DUK__STRTAB_RESIZE_CHECK) + DUK_ASSERT(heap->st_count > 0); + heap->st_count--; +#endif + + if (prev != NULL) { + /* Middle of list. */ + prev->hdr.h_next = h->hdr.h_next; + } else { + /* Head of list. */ +#if defined(DUK_USE_STRTAB_PTRCOMP) + slot = heap->strtable16 + (DUK_HSTRING_GET_HASH(h) & heap->st_mask); +#else + slot = heap->strtable + (DUK_HSTRING_GET_HASH(h) & heap->st_mask); +#endif + DUK_ASSERT(DUK__HEAPPTR_DEC16(heap, *slot) == h); + *slot = DUK__HEAPPTR_ENC16(heap, h->hdr.h_next); + } +} + +/* + * Force string table resize check in mark-and-sweep. + */ + +DUK_INTERNAL void duk_heap_strtable_force_resize(duk_heap *heap) { + /* Does only one grow/shrink step if needed. The heap->st_resizing + * flag protects against recursive resizing. + */ + + DUK_ASSERT(heap != NULL); + DUK_UNREF(heap); + +#if defined(DUK__STRTAB_RESIZE_CHECK) +#if defined(DUK_USE_STRTAB_PTRCOMP) + if (heap->strtable16 != NULL) { +#else + if (heap->strtable != NULL) { +#endif + duk__strtable_resize_check(heap); + } +#endif +} + +/* + * Free strings in the string table and the string table itself. + */ + +DUK_INTERNAL void duk_heap_strtable_free(duk_heap *heap) { +#if defined(DUK_USE_STRTAB_PTRCOMP) + duk_uint16_t *strtable; + duk_uint16_t *st; +#else + duk_hstring **strtable; + duk_hstring **st; +#endif + duk_hstring *h; + + DUK_ASSERT(heap != NULL); + +#if defined(DUK_USE_ASSERTIONS) + duk__strtable_assert_checks(heap); +#endif + + /* Strtable can be NULL if heap init fails. However, in that case + * heap->st_size is 0, so strtable == strtable_end and we skip the + * loop without a special check. + */ + strtable = DUK__GET_STRTABLE(heap); + st = strtable + heap->st_size; + DUK_ASSERT(strtable != NULL || heap->st_size == 0); + + while (strtable != st) { + --st; + h = DUK__HEAPPTR_DEC16(heap, *st); + while (h) { + duk_hstring *h_next; + h_next = h->hdr.h_next; + + /* Strings may have inner refs (extdata) in some cases. */ + duk_free_hstring(heap, h); + + h = h_next; + } + } + + DUK_FREE(heap, strtable); +} + +/* automatic undefs */ +#undef DUK__GET_STRTABLE +#undef DUK__HEAPPTR_DEC16 +#undef DUK__HEAPPTR_ENC16 +#undef DUK__STRTAB_U32_MAX_STRLEN +#line 1 "duk_heaphdr_assert.c" +/* + * duk_heaphdr assertion helpers + */ + +/* #include duk_internal.h -> already included */ + +#if defined(DUK_USE_ASSERTIONS) + +#if defined(DUK_USE_DOUBLE_LINKED_HEAP) +DUK_INTERNAL void duk_heaphdr_assert_links(duk_heap *heap, duk_heaphdr *h) { + DUK_UNREF(heap); + if (h != NULL) { + duk_heaphdr *h_prev, *h_next; + h_prev = DUK_HEAPHDR_GET_PREV(heap, h); + h_next = DUK_HEAPHDR_GET_NEXT(heap, h); + DUK_ASSERT(h_prev == NULL || (DUK_HEAPHDR_GET_NEXT(heap, h_prev) == h)); + DUK_ASSERT(h_next == NULL || (DUK_HEAPHDR_GET_PREV(heap, h_next) == h)); + } +} +#else +DUK_INTERNAL void duk_heaphdr_assert_links(duk_heap *heap, duk_heaphdr *h) { + DUK_UNREF(heap); + DUK_UNREF(h); +} +#endif + +DUK_INTERNAL void duk_heaphdr_assert_valid(duk_heaphdr *h) { + DUK_ASSERT(h != NULL); + DUK_ASSERT(DUK_HEAPHDR_HTYPE_VALID(h)); +} + +/* Assert validity of a heaphdr, including all subclasses. */ +DUK_INTERNAL void duk_heaphdr_assert_valid_subclassed(duk_heaphdr *h) { + switch (DUK_HEAPHDR_GET_TYPE(h)) { + case DUK_HTYPE_OBJECT: { + duk_hobject *h_obj = (duk_hobject *) h; + DUK_HOBJECT_ASSERT_VALID(h_obj); + if (DUK_HOBJECT_IS_COMPFUNC(h_obj)) { + DUK_HCOMPFUNC_ASSERT_VALID((duk_hcompfunc *) h_obj); + } else if (DUK_HOBJECT_IS_NATFUNC(h_obj)) { + DUK_HNATFUNC_ASSERT_VALID((duk_hnatfunc *) h_obj); + } else if (DUK_HOBJECT_IS_DECENV(h_obj)) { + DUK_HDECENV_ASSERT_VALID((duk_hdecenv *) h_obj); + } else if (DUK_HOBJECT_IS_OBJENV(h_obj)) { + DUK_HOBJENV_ASSERT_VALID((duk_hobjenv *) h_obj); + } else if (DUK_HOBJECT_IS_BUFOBJ(h_obj)) { +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) + DUK_HBUFOBJ_ASSERT_VALID((duk_hbufobj *) h_obj); +#endif + } else if (DUK_HOBJECT_IS_BOUNDFUNC(h_obj)) { + DUK_HBOUNDFUNC_ASSERT_VALID((duk_hboundfunc *) h_obj); + } else if (DUK_HOBJECT_IS_PROXY(h_obj)) { + DUK_HPROXY_ASSERT_VALID((duk_hproxy *) h_obj); + } else if (DUK_HOBJECT_IS_THREAD(h_obj)) { + DUK_HTHREAD_ASSERT_VALID((duk_hthread *) h_obj); + } else { + /* Just a plain object. */ + ; + } + break; + } + case DUK_HTYPE_STRING: { + duk_hstring *h_str = (duk_hstring *) h; + DUK_HSTRING_ASSERT_VALID(h_str); + break; + } + case DUK_HTYPE_BUFFER: { + duk_hbuffer *h_buf = (duk_hbuffer *) h; + DUK_HBUFFER_ASSERT_VALID(h_buf); + break; + } + default: { + DUK_ASSERT(0); + } + } +} + +#endif /* DUK_USE_ASSERTIONS */ +#line 1 "duk_hobject_alloc.c" +/* + * Hobject allocation. + * + * Provides primitive allocation functions for all object types (plain object, + * compiled function, native function, thread). The object return is not yet + * in "heap allocated" list and has a refcount of zero, so caller must careful. + */ + +/* XXX: In most cases there's no need for plain allocation without pushing + * to the value stack. Maybe rework contract? + */ + +/* #include duk_internal.h -> already included */ + +/* + * Helpers. + */ + +DUK_LOCAL void duk__init_object_parts(duk_heap *heap, duk_uint_t hobject_flags, duk_hobject *obj) { + DUK_ASSERT(obj != NULL); + /* Zeroed by caller. */ + + obj->hdr.h_flags = hobject_flags | DUK_HTYPE_OBJECT; + DUK_ASSERT(DUK_HEAPHDR_GET_TYPE(&obj->hdr) == DUK_HTYPE_OBJECT); /* Assume zero shift. */ + +#if defined(DUK_USE_EXPLICIT_NULL_INIT) + DUK_HOBJECT_SET_PROTOTYPE(heap, obj, NULL); + DUK_HOBJECT_SET_PROPS(heap, obj, NULL); +#endif +#if defined(DUK_USE_HEAPPTR16) + /* Zero encoded pointer is required to match NULL. */ + DUK_HEAPHDR_SET_NEXT(heap, &obj->hdr, NULL); +#if defined(DUK_USE_DOUBLE_LINKED_HEAP) + DUK_HEAPHDR_SET_PREV(heap, &obj->hdr, NULL); +#endif +#endif + DUK_HEAPHDR_ASSERT_LINKS(heap, &obj->hdr); + DUK_HEAP_INSERT_INTO_HEAP_ALLOCATED(heap, &obj->hdr); + + /* obj->props is intentionally left as NULL, and duk_hobject_props.c must deal + * with this properly. This is intentional: empty objects consume a minimum + * amount of memory. Further, an initial allocation might fail and cause + * 'obj' to "leak" (require a mark-and-sweep) since it is not reachable yet. + */ +} + +DUK_LOCAL void *duk__hobject_alloc_init(duk_hthread *thr, duk_uint_t hobject_flags, duk_size_t size) { + void *res; + + res = (void *) DUK_ALLOC_CHECKED_ZEROED(thr, size); + DUK_ASSERT(res != NULL); + duk__init_object_parts(thr->heap, hobject_flags, (duk_hobject *) res); + return res; +} + +/* + * Allocate an duk_hobject. + * + * The allocated object has no allocation for properties; the caller may + * want to force a resize if a desired size is known. + * + * The allocated object has zero reference count and is not reachable. + * The caller MUST make the object reachable and increase its reference + * count before invoking any operation that might require memory allocation. + */ + +DUK_INTERNAL duk_hobject *duk_hobject_alloc_unchecked(duk_heap *heap, duk_uint_t hobject_flags) { + duk_hobject *res; + + DUK_ASSERT(heap != NULL); + + /* different memory layout, alloc size, and init */ + DUK_ASSERT((hobject_flags & DUK_HOBJECT_FLAG_COMPFUNC) == 0); + DUK_ASSERT((hobject_flags & DUK_HOBJECT_FLAG_NATFUNC) == 0); + DUK_ASSERT((hobject_flags & DUK_HOBJECT_FLAG_BOUNDFUNC) == 0); + + res = (duk_hobject *) DUK_ALLOC_ZEROED(heap, sizeof(duk_hobject)); + if (DUK_UNLIKELY(res == NULL)) { + return NULL; + } + DUK_ASSERT(!DUK_HOBJECT_IS_THREAD(res)); + + duk__init_object_parts(heap, hobject_flags, res); + + DUK_ASSERT(!DUK_HOBJECT_IS_THREAD(res)); + return res; +} + +DUK_INTERNAL duk_hobject *duk_hobject_alloc(duk_hthread *thr, duk_uint_t hobject_flags) { + duk_hobject *res; + + res = (duk_hobject *) duk__hobject_alloc_init(thr, hobject_flags, sizeof(duk_hobject)); + return res; +} + +DUK_INTERNAL duk_hcompfunc *duk_hcompfunc_alloc(duk_hthread *thr, duk_uint_t hobject_flags) { + duk_hcompfunc *res; + + res = (duk_hcompfunc *) duk__hobject_alloc_init(thr, hobject_flags, sizeof(duk_hcompfunc)); +#if defined(DUK_USE_EXPLICIT_NULL_INIT) +#if defined(DUK_USE_HEAPPTR16) + /* NULL pointer is required to encode to zero, so memset is enough. */ +#else + res->data = NULL; + res->funcs = NULL; + res->bytecode = NULL; +#endif + res->lex_env = NULL; + res->var_env = NULL; +#endif + + return res; +} + +DUK_INTERNAL duk_hnatfunc *duk_hnatfunc_alloc(duk_hthread *thr, duk_uint_t hobject_flags) { + duk_hnatfunc *res; + + res = (duk_hnatfunc *) duk__hobject_alloc_init(thr, hobject_flags, sizeof(duk_hnatfunc)); +#if defined(DUK_USE_EXPLICIT_NULL_INIT) + res->func = NULL; +#endif + + return res; +} + +DUK_INTERNAL duk_hboundfunc *duk_hboundfunc_alloc(duk_heap *heap, duk_uint_t hobject_flags) { + duk_hboundfunc *res; + + res = (duk_hboundfunc *) DUK_ALLOC(heap, sizeof(duk_hboundfunc)); + if (!res) { + return NULL; + } + duk_memzero(res, sizeof(duk_hboundfunc)); + + duk__init_object_parts(heap, hobject_flags, &res->obj); + + DUK_TVAL_SET_UNDEFINED(&res->target); + DUK_TVAL_SET_UNDEFINED(&res->this_binding); + +#if defined(DUK_USE_EXPLICIT_NULL_INIT) + res->args = NULL; +#endif + + return res; +} + +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) +DUK_INTERNAL duk_hbufobj *duk_hbufobj_alloc(duk_hthread *thr, duk_uint_t hobject_flags) { + duk_hbufobj *res; + + res = (duk_hbufobj *) duk__hobject_alloc_init(thr, hobject_flags, sizeof(duk_hbufobj)); +#if defined(DUK_USE_EXPLICIT_NULL_INIT) + res->buf = NULL; + res->buf_prop = NULL; +#endif + + DUK_HBUFOBJ_ASSERT_VALID(res); + return res; +} +#endif /* DUK_USE_BUFFEROBJECT_SUPPORT */ + +/* Allocate a new thread. + * + * Leaves the built-ins array uninitialized. The caller must either + * initialize a new global context or share existing built-ins from + * another thread. + */ +DUK_INTERNAL duk_hthread *duk_hthread_alloc_unchecked(duk_heap *heap, duk_uint_t hobject_flags) { + duk_hthread *res; + + res = (duk_hthread *) DUK_ALLOC(heap, sizeof(duk_hthread)); + if (DUK_UNLIKELY(res == NULL)) { + return NULL; + } + duk_memzero(res, sizeof(duk_hthread)); + + duk__init_object_parts(heap, hobject_flags, &res->obj); + +#if defined(DUK_USE_EXPLICIT_NULL_INIT) + res->ptr_curr_pc = NULL; + res->heap = NULL; + res->valstack = NULL; + res->valstack_end = NULL; + res->valstack_alloc_end = NULL; + res->valstack_bottom = NULL; + res->valstack_top = NULL; + res->callstack_curr = NULL; + res->resumer = NULL; + res->compile_ctx = NULL, +#if defined(DUK_USE_HEAPPTR16) + res->strs16 = NULL; +#else + res->strs = NULL; +#endif + { + duk_small_uint_t i; + for (i = 0; i < DUK_NUM_BUILTINS; i++) { + res->builtins[i] = NULL; + } + } +#endif + /* When nothing is running, API calls are in non-strict mode. */ + DUK_ASSERT(res->strict == 0); + + res->heap = heap; + + /* XXX: Any reason not to merge duk_hthread_alloc.c here? */ + return res; +} + +DUK_INTERNAL duk_hthread *duk_hthread_alloc(duk_hthread *thr, duk_uint_t hobject_flags) { + duk_hthread *res; + + res = duk_hthread_alloc_unchecked(thr->heap, hobject_flags); + if (res == NULL) { + DUK_ERROR_ALLOC_FAILED(thr); + DUK_WO_NORETURN(return NULL;); + } + return res; +} + +DUK_INTERNAL duk_harray *duk_harray_alloc(duk_hthread *thr, duk_uint_t hobject_flags) { + duk_harray *res; + + res = (duk_harray *) duk__hobject_alloc_init(thr, hobject_flags, sizeof(duk_harray)); + + DUK_ASSERT(res->length == 0); + + return res; +} + +DUK_INTERNAL duk_hdecenv *duk_hdecenv_alloc(duk_hthread *thr, duk_uint_t hobject_flags) { + duk_hdecenv *res; + + res = (duk_hdecenv *) duk__hobject_alloc_init(thr, hobject_flags, sizeof(duk_hdecenv)); +#if defined(DUK_USE_EXPLICIT_NULL_INIT) + res->thread = NULL; + res->varmap = NULL; +#endif + + DUK_ASSERT(res->thread == NULL); + DUK_ASSERT(res->varmap == NULL); + DUK_ASSERT(res->regbase_byteoff == 0); + + return res; +} + +DUK_INTERNAL duk_hobjenv *duk_hobjenv_alloc(duk_hthread *thr, duk_uint_t hobject_flags) { + duk_hobjenv *res; + + res = (duk_hobjenv *) duk__hobject_alloc_init(thr, hobject_flags, sizeof(duk_hobjenv)); +#if defined(DUK_USE_EXPLICIT_NULL_INIT) + res->target = NULL; +#endif + + DUK_ASSERT(res->target == NULL); + + return res; +} + +DUK_INTERNAL duk_hproxy *duk_hproxy_alloc(duk_hthread *thr, duk_uint_t hobject_flags) { + duk_hproxy *res; + + res = (duk_hproxy *) duk__hobject_alloc_init(thr, hobject_flags, sizeof(duk_hproxy)); + + /* Leave ->target and ->handler uninitialized, as caller will always + * explicitly initialize them before any side effects are possible. + */ + + return res; +} +#line 1 "duk_hobject_assert.c" +/* + * duk_hobject and subclass assertion helpers + */ + +/* #include duk_internal.h -> already included */ + +#if defined(DUK_USE_ASSERTIONS) + +DUK_INTERNAL void duk_hobject_assert_valid(duk_hobject *h) { + DUK_ASSERT(h != NULL); + DUK_ASSERT(!DUK_HOBJECT_IS_CALLABLE(h) || + DUK_HOBJECT_GET_CLASS_NUMBER(h) == DUK_HOBJECT_CLASS_FUNCTION); + DUK_ASSERT(!DUK_HOBJECT_IS_BUFOBJ(h) || + (DUK_HOBJECT_GET_CLASS_NUMBER(h) == DUK_HOBJECT_CLASS_ARRAYBUFFER || + DUK_HOBJECT_GET_CLASS_NUMBER(h) == DUK_HOBJECT_CLASS_DATAVIEW || + DUK_HOBJECT_GET_CLASS_NUMBER(h) == DUK_HOBJECT_CLASS_INT8ARRAY || + DUK_HOBJECT_GET_CLASS_NUMBER(h) == DUK_HOBJECT_CLASS_UINT8ARRAY || + DUK_HOBJECT_GET_CLASS_NUMBER(h) == DUK_HOBJECT_CLASS_UINT8CLAMPEDARRAY || + DUK_HOBJECT_GET_CLASS_NUMBER(h) == DUK_HOBJECT_CLASS_INT16ARRAY || + DUK_HOBJECT_GET_CLASS_NUMBER(h) == DUK_HOBJECT_CLASS_UINT16ARRAY || + DUK_HOBJECT_GET_CLASS_NUMBER(h) == DUK_HOBJECT_CLASS_INT32ARRAY || + DUK_HOBJECT_GET_CLASS_NUMBER(h) == DUK_HOBJECT_CLASS_UINT32ARRAY || + DUK_HOBJECT_GET_CLASS_NUMBER(h) == DUK_HOBJECT_CLASS_FLOAT32ARRAY || + DUK_HOBJECT_GET_CLASS_NUMBER(h) == DUK_HOBJECT_CLASS_FLOAT64ARRAY)); + /* Object is an Array <=> object has exotic array behavior */ + DUK_ASSERT((DUK_HOBJECT_GET_CLASS_NUMBER(h) == DUK_HOBJECT_CLASS_ARRAY && DUK_HOBJECT_HAS_EXOTIC_ARRAY(h)) || + (DUK_HOBJECT_GET_CLASS_NUMBER(h) != DUK_HOBJECT_CLASS_ARRAY && !DUK_HOBJECT_HAS_EXOTIC_ARRAY(h))); +} + +DUK_INTERNAL void duk_harray_assert_valid(duk_harray *h) { + DUK_ASSERT(h != NULL); + DUK_ASSERT(DUK_HOBJECT_IS_ARRAY((duk_hobject *) h)); + DUK_ASSERT(DUK_HOBJECT_HAS_EXOTIC_ARRAY((duk_hobject *) h)); +} + +DUK_INTERNAL void duk_hboundfunc_assert_valid(duk_hboundfunc *h) { + DUK_ASSERT(h != NULL); + DUK_ASSERT(DUK_HOBJECT_IS_BOUNDFUNC((duk_hobject *) h)); + DUK_ASSERT(DUK_TVAL_IS_LIGHTFUNC(&h->target) || + (DUK_TVAL_IS_OBJECT(&h->target) && + DUK_HOBJECT_IS_CALLABLE(DUK_TVAL_GET_OBJECT(&h->target)))); + DUK_ASSERT(!DUK_TVAL_IS_UNUSED(&h->this_binding)); + DUK_ASSERT(h->nargs == 0 || h->args != NULL); +} + +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) +DUK_INTERNAL void duk_hbufobj_assert_valid(duk_hbufobj *h) { + DUK_ASSERT(h != NULL); + DUK_ASSERT(h->shift <= 3); + DUK_ASSERT(h->elem_type <= DUK_HBUFOBJ_ELEM_MAX); + DUK_ASSERT((h->shift == 0 && h->elem_type == DUK_HBUFOBJ_ELEM_UINT8) || + (h->shift == 0 && h->elem_type == DUK_HBUFOBJ_ELEM_UINT8CLAMPED) || + (h->shift == 0 && h->elem_type == DUK_HBUFOBJ_ELEM_INT8) || + (h->shift == 1 && h->elem_type == DUK_HBUFOBJ_ELEM_UINT16) || + (h->shift == 1 && h->elem_type == DUK_HBUFOBJ_ELEM_INT16) || + (h->shift == 2 && h->elem_type == DUK_HBUFOBJ_ELEM_UINT32) || + (h->shift == 2 && h->elem_type == DUK_HBUFOBJ_ELEM_INT32) || + (h->shift == 2 && h->elem_type == DUK_HBUFOBJ_ELEM_FLOAT32) || + (h->shift == 3 && h->elem_type == DUK_HBUFOBJ_ELEM_FLOAT64)); + DUK_ASSERT(h->is_typedarray == 0 || h->is_typedarray == 1); + DUK_ASSERT(DUK_HOBJECT_IS_BUFOBJ((duk_hobject *) h)); + if (h->buf == NULL) { + DUK_ASSERT(h->offset == 0); + DUK_ASSERT(h->length == 0); + } else { + /* No assertions for offset or length; in particular, + * it's OK for length to be longer than underlying + * buffer. Just ensure they don't wrap when added. + */ + DUK_ASSERT(h->offset + h->length >= h->offset); + } +} +#endif /* DUK_USE_BUFFEROBJECT_SUPPORT */ + +DUK_INTERNAL void duk_hcompfunc_assert_valid(duk_hcompfunc *h) { + DUK_ASSERT(h != NULL); +} + +DUK_INTERNAL void duk_hnatfunc_assert_valid(duk_hnatfunc *h) { + DUK_ASSERT(h != NULL); +} + +DUK_INTERNAL void duk_hdecenv_assert_valid(duk_hdecenv *h) { + DUK_ASSERT(h != NULL); + DUK_ASSERT(DUK_HOBJECT_IS_DECENV((duk_hobject *) h)); + DUK_ASSERT(h->thread == NULL || h->varmap != NULL); +} + +DUK_INTERNAL void duk_hobjenv_assert_valid(duk_hobjenv *h) { + DUK_ASSERT(h != NULL); + DUK_ASSERT(DUK_HOBJECT_IS_OBJENV((duk_hobject *) h)); + DUK_ASSERT(h->target != NULL); + DUK_ASSERT(h->has_this == 0 || h->has_this == 1); +} + +DUK_INTERNAL void duk_hproxy_assert_valid(duk_hproxy *h) { + DUK_ASSERT(h != NULL); + DUK_ASSERT(h->target != NULL); + DUK_ASSERT(h->handler != NULL); + DUK_ASSERT(DUK_HOBJECT_HAS_EXOTIC_PROXYOBJ((duk_hobject *) h)); +} + +DUK_INTERNAL void duk_hthread_assert_valid(duk_hthread *thr) { + DUK_ASSERT(thr != NULL); + DUK_ASSERT(DUK_HEAPHDR_GET_TYPE((duk_heaphdr *) thr) == DUK_HTYPE_OBJECT); + DUK_ASSERT(DUK_HOBJECT_IS_THREAD((duk_hobject *) thr)); + DUK_ASSERT(thr->unused1 == 0); + DUK_ASSERT(thr->unused2 == 0); +} + +DUK_INTERNAL void duk_ctx_assert_valid(duk_hthread *thr) { + DUK_ASSERT(thr != NULL); + DUK_HTHREAD_ASSERT_VALID(thr); + DUK_ASSERT(thr->valstack != NULL); + DUK_ASSERT(thr->valstack_bottom != NULL); + DUK_ASSERT(thr->valstack_top != NULL); + DUK_ASSERT(thr->valstack_end != NULL); + DUK_ASSERT(thr->valstack_alloc_end != NULL); + DUK_ASSERT(thr->valstack_alloc_end >= thr->valstack); + DUK_ASSERT(thr->valstack_end >= thr->valstack); + DUK_ASSERT(thr->valstack_top >= thr->valstack); + DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom); + DUK_ASSERT(thr->valstack_end >= thr->valstack_top); + DUK_ASSERT(thr->valstack_alloc_end >= thr->valstack_end); +} + +#endif /* DUK_USE_ASSERTIONS */ +#line 1 "duk_hobject_enum.c" +/* + * Object enumeration support. + * + * Creates an internal enumeration state object to be used e.g. with for-in + * enumeration. The state object contains a snapshot of target object keys + * and internal control state for enumeration. Enumerator flags allow caller + * to e.g. request internal/non-enumerable properties, and to enumerate only + * "own" properties. + * + * Also creates the result value for e.g. Object.keys() based on the same + * internal structure. + * + * This snapshot-based enumeration approach is used to simplify enumeration: + * non-snapshot-based approaches are difficult to reconcile with mutating + * the enumeration target, running multiple long-lived enumerators at the + * same time, garbage collection details, etc. The downside is that the + * enumerator object is memory inefficient especially for iterating arrays. + */ + +/* #include duk_internal.h -> already included */ + +/* XXX: identify enumeration target with an object index (not top of stack) */ + +/* First enumerated key index in enumerator object, must match exactly the + * number of control properties inserted to the enumerator. + */ +#define DUK__ENUM_START_INDEX 2 + +/* Current implementation suffices for ES2015 for now because there's no symbol + * sorting, so commented out for now. + */ + +/* + * Helper to sort enumeration keys using a callback for pairwise duk_hstring + * comparisons. The keys are in the enumeration object entry part, starting + * from DUK__ENUM_START_INDEX, and the entry part is dense. Entry part values + * are all "true", e.g. "1" -> true, "3" -> true, "foo" -> true, "2" -> true, + * so it suffices to just switch keys without switching values. + * + * ES2015 [[OwnPropertyKeys]] enumeration order for ordinary objects: + * (1) array indices in ascending order, + * (2) non-array-index keys in insertion order, and + * (3) symbols in insertion order. + * http://www.ecma-international.org/ecma-262/6.0/#sec-ordinary-object-internal-methods-and-internal-slots-ownpropertykeys. + * + * This rule is applied to "own properties" at each inheritance level; + * non-duplicate parent keys always follow child keys. For example, + * an inherited array index will enumerate -after- a symbol in the + * child. + * + * Insertion sort is used because (1) it's simple and compact, (2) works + * in-place, (3) minimizes operations if data is already nearly sorted, + * (4) doesn't reorder elements considered equal. + * http://en.wikipedia.org/wiki/Insertion_sort + */ + +/* Sort key, must hold array indices, "not array index" marker, and one more + * higher value for symbols. + */ +#if !defined(DUK_USE_SYMBOL_BUILTIN) +typedef duk_uint32_t duk__sort_key_t; +#elif defined(DUK_USE_64BIT_OPS) +typedef duk_uint64_t duk__sort_key_t; +#else +typedef duk_double_t duk__sort_key_t; +#endif + +/* Get sort key for a duk_hstring. */ +DUK_LOCAL duk__sort_key_t duk__hstring_sort_key(duk_hstring *x) { + duk__sort_key_t val; + + /* For array indices [0,0xfffffffe] use the array index as is. + * For strings, use 0xffffffff, the marker 'arridx' already in + * duk_hstring. For symbols, any value above 0xffffffff works, + * as long as it is the same for all symbols; currently just add + * the masked flag field into the arridx temporary. + */ + DUK_ASSERT(x != NULL); + DUK_ASSERT(!DUK_HSTRING_HAS_SYMBOL(x) || DUK_HSTRING_GET_ARRIDX_FAST(x) == DUK_HSTRING_NO_ARRAY_INDEX); + + val = (duk__sort_key_t) DUK_HSTRING_GET_ARRIDX_FAST(x); + +#if defined(DUK_USE_SYMBOL_BUILTIN) + val = val + (duk__sort_key_t) (DUK_HEAPHDR_GET_FLAGS_RAW((duk_heaphdr *) x) & DUK_HSTRING_FLAG_SYMBOL); +#endif + + return (duk__sort_key_t) val; +} + +/* Insert element 'b' after element 'a'? */ +DUK_LOCAL duk_bool_t duk__sort_compare_es6(duk_hstring *a, duk_hstring *b, duk__sort_key_t val_b) { + duk__sort_key_t val_a; + + DUK_ASSERT(a != NULL); + DUK_ASSERT(b != NULL); + DUK_UNREF(b); /* Not actually needed now, val_b suffices. */ + + val_a = duk__hstring_sort_key(a); + + if (val_a > val_b) { + return 0; + } else { + return 1; + } +} + +DUK_LOCAL void duk__sort_enum_keys_es6(duk_hthread *thr, duk_hobject *h_obj, duk_int_fast32_t idx_start, duk_int_fast32_t idx_end) { + duk_hstring **keys; + duk_int_fast32_t idx; + + DUK_ASSERT(h_obj != NULL); + DUK_ASSERT(idx_start >= DUK__ENUM_START_INDEX); + DUK_ASSERT(idx_end >= idx_start); + DUK_UNREF(thr); + + if (idx_end <= idx_start + 1) { + return; /* Zero or one element(s). */ + } + + keys = DUK_HOBJECT_E_GET_KEY_BASE(thr->heap, h_obj); + + for (idx = idx_start + 1; idx < idx_end; idx++) { + duk_hstring *h_curr; + duk_int_fast32_t idx_insert; + duk__sort_key_t val_curr; + + h_curr = keys[idx]; + DUK_ASSERT(h_curr != NULL); + + /* Scan backwards for insertion place. This works very well + * when the elements are nearly in order which is the common + * (and optimized for) case. + */ + + val_curr = duk__hstring_sort_key(h_curr); /* Remains same during scanning. */ + for (idx_insert = idx - 1; idx_insert >= idx_start; idx_insert--) { + duk_hstring *h_insert; + h_insert = keys[idx_insert]; + DUK_ASSERT(h_insert != NULL); + + if (duk__sort_compare_es6(h_insert, h_curr, val_curr)) { + break; + } + } + /* If we're out of indices, idx_insert == idx_start - 1 and idx_insert++ + * brings us back to idx_start. + */ + idx_insert++; + DUK_ASSERT(idx_insert >= 0 && idx_insert <= idx); + + /* .-- p_insert .-- p_curr + * v v + * | ... | insert | ... | curr + */ + + /* This could also done when the keys are in order, i.e. + * idx_insert == idx. The result would be an unnecessary + * memmove() but we use an explicit check because the keys + * are very often in order already. + */ + if (idx != idx_insert) { + duk_memmove((void *) (keys + idx_insert + 1), + (const void *) (keys + idx_insert), + ((size_t) (idx - idx_insert) * sizeof(duk_hstring *))); + keys[idx_insert] = h_curr; + } + } +} + +/* + * Create an internal enumerator object E, which has its keys ordered + * to match desired enumeration ordering. Also initialize internal control + * properties for enumeration. + * + * Note: if an array was used to hold enumeration keys instead, an array + * scan would be needed to eliminate duplicates found in the prototype chain. + */ + +DUK_LOCAL void duk__add_enum_key(duk_hthread *thr, duk_hstring *k) { + /* 'k' may be unreachable on entry so must push without any + * potential for GC. + */ + duk_push_hstring(thr, k); + duk_push_true(thr); + duk_put_prop(thr, -3); +} + +DUK_LOCAL void duk__add_enum_key_stridx(duk_hthread *thr, duk_small_uint_t stridx) { + duk__add_enum_key(thr, DUK_HTHREAD_GET_STRING(thr, stridx)); +} + +DUK_INTERNAL void duk_hobject_enumerator_create(duk_hthread *thr, duk_small_uint_t enum_flags) { + duk_hobject *enum_target; + duk_hobject *curr; + duk_hobject *res; +#if defined(DUK_USE_ES6_PROXY) + duk_hobject *h_proxy_target; + duk_hobject *h_proxy_handler; + duk_hobject *h_trap_result; +#endif + duk_uint_fast32_t i, len; /* used for array, stack, and entry indices */ + duk_uint_fast32_t sort_start_index; + + DUK_ASSERT(thr != NULL); + + enum_target = duk_require_hobject(thr, -1); + DUK_ASSERT(enum_target != NULL); + + duk_push_bare_object(thr); + res = duk_known_hobject(thr, -1); + + /* [enum_target res] */ + + /* Target must be stored so that we can recheck whether or not + * keys still exist when we enumerate. This is not done if the + * enumeration result comes from a proxy trap as there is no + * real object to check against. + */ + duk_push_hobject(thr, enum_target); + duk_put_prop_stridx_short(thr, -2, DUK_STRIDX_INT_TARGET); /* Target is bare, plain put OK. */ + + /* Initialize index so that we skip internal control keys. */ + duk_push_int(thr, DUK__ENUM_START_INDEX); + duk_put_prop_stridx_short(thr, -2, DUK_STRIDX_INT_NEXT); /* Target is bare, plain put OK. */ + + /* + * Proxy object handling + */ + +#if defined(DUK_USE_ES6_PROXY) + if (DUK_LIKELY((enum_flags & DUK_ENUM_NO_PROXY_BEHAVIOR) != 0)) { + goto skip_proxy; + } + if (DUK_LIKELY(!duk_hobject_proxy_check(enum_target, + &h_proxy_target, + &h_proxy_handler))) { + goto skip_proxy; + } + + /* XXX: share code with Object.keys() Proxy handling */ + + /* In ES2015 for-in invoked the "enumerate" trap; in ES2016 "enumerate" + * has been obsoleted and "ownKeys" is used instead. + */ + DUK_DDD(DUK_DDDPRINT("proxy enumeration")); + duk_push_hobject(thr, h_proxy_handler); + if (!duk_get_prop_stridx_short(thr, -1, DUK_STRIDX_OWN_KEYS)) { + /* No need to replace the 'enum_target' value in stack, only the + * enum_target reference. This also ensures that the original + * enum target is reachable, which keeps the proxy and the proxy + * target reachable. We do need to replace the internal _Target. + */ + DUK_DDD(DUK_DDDPRINT("no ownKeys trap, enumerate proxy target instead")); + DUK_DDD(DUK_DDDPRINT("h_proxy_target=%!O", (duk_heaphdr *) h_proxy_target)); + enum_target = h_proxy_target; + + duk_push_hobject(thr, enum_target); /* -> [ ... enum_target res handler undefined target ] */ + duk_put_prop_stridx_short(thr, -4, DUK_STRIDX_INT_TARGET); /* Target is bare, plain put OK. */ + + duk_pop_2(thr); /* -> [ ... enum_target res ] */ + goto skip_proxy; + } + + /* [ ... enum_target res handler trap ] */ + duk_insert(thr, -2); + duk_push_hobject(thr, h_proxy_target); /* -> [ ... enum_target res trap handler target ] */ + duk_call_method(thr, 1 /*nargs*/); /* -> [ ... enum_target res trap_result ] */ + h_trap_result = duk_require_hobject(thr, -1); + DUK_UNREF(h_trap_result); + + duk_proxy_ownkeys_postprocess(thr, h_proxy_target, enum_flags); + /* -> [ ... enum_target res trap_result keys_array ] */ + + /* Copy cleaned up trap result keys into the enumerator object. */ + /* XXX: result is a dense array; could make use of that. */ + DUK_ASSERT(duk_is_array(thr, -1)); + len = (duk_uint_fast32_t) duk_get_length(thr, -1); + for (i = 0; i < len; i++) { + (void) duk_get_prop_index(thr, -1, (duk_uarridx_t) i); + DUK_ASSERT(duk_is_string(thr, -1)); /* postprocess cleaned up */ + /* [ ... enum_target res trap_result keys_array val ] */ + duk_push_true(thr); + /* [ ... enum_target res trap_result keys_array val true ] */ + duk_put_prop(thr, -5); + } + /* [ ... enum_target res trap_result keys_array ] */ + duk_pop_2(thr); + duk_remove_m2(thr); + + /* [ ... res ] */ + + /* The internal _Target property is kept pointing to the original + * enumeration target (the proxy object), so that the enumerator + * 'next' operation can read property values if so requested. The + * fact that the _Target is a proxy disables key existence check + * during enumeration. + */ + DUK_DDD(DUK_DDDPRINT("proxy enumeration, final res: %!O", (duk_heaphdr *) res)); + goto compact_and_return; + + skip_proxy: +#endif /* DUK_USE_ES6_PROXY */ + + curr = enum_target; + sort_start_index = DUK__ENUM_START_INDEX; + DUK_ASSERT(DUK_HOBJECT_GET_ENEXT(res) == DUK__ENUM_START_INDEX); + while (curr) { + duk_uint_fast32_t sort_end_index; +#if !defined(DUK_USE_PREFER_SIZE) + duk_bool_t need_sort = 0; +#endif + duk_bool_t cond; + + /* Enumeration proceeds by inheritance level. Virtual + * properties need to be handled specially, followed by + * array part, and finally entry part. + * + * If there are array index keys in the entry part or any + * other risk of the ES2015 [[OwnPropertyKeys]] order being + * violated, need_sort is set and an explicit ES2015 sort is + * done for the inheritance level. + */ + + /* XXX: inheriting from proxy */ + + /* + * Virtual properties. + * + * String and buffer indices are virtual and always enumerable, + * 'length' is virtual and non-enumerable. Array and arguments + * object props have special behavior but are concrete. + * + * String and buffer objects don't have an array part so as long + * as virtual array index keys are enumerated first, we don't + * need to set need_sort. + */ + +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) + cond = DUK_HOBJECT_HAS_EXOTIC_STRINGOBJ(curr) || DUK_HOBJECT_IS_BUFOBJ(curr); +#else + cond = DUK_HOBJECT_HAS_EXOTIC_STRINGOBJ(curr); +#endif + cond = cond && !(enum_flags & DUK_ENUM_EXCLUDE_STRINGS); + if (cond) { + duk_bool_t have_length = 1; + + /* String and buffer enumeration behavior is identical now, + * so use shared handler. + */ + if (DUK_HOBJECT_HAS_EXOTIC_STRINGOBJ(curr)) { + duk_hstring *h_val; + h_val = duk_hobject_get_internal_value_string(thr->heap, curr); + DUK_ASSERT(h_val != NULL); /* string objects must not created without internal value */ + len = (duk_uint_fast32_t) DUK_HSTRING_GET_CHARLEN(h_val); + } +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) + else { + duk_hbufobj *h_bufobj; + DUK_ASSERT(DUK_HOBJECT_IS_BUFOBJ(curr)); + h_bufobj = (duk_hbufobj *) curr; + + if (h_bufobj == NULL || !h_bufobj->is_typedarray) { + /* Zero length seems like a good behavior for neutered buffers. + * ArrayBuffer (non-view) and DataView don't have index properties + * or .length property. + */ + len = 0; + have_length = 0; + } else { + /* There's intentionally no check for + * current underlying buffer length. + */ + len = (duk_uint_fast32_t) (h_bufobj->length >> h_bufobj->shift); + } + } +#endif /* DUK_USE_BUFFEROBJECT_SUPPORT */ + + for (i = 0; i < len; i++) { + duk_hstring *k; + + /* This is a bit fragile: the string is not + * reachable until it is pushed by the helper. + */ + k = duk_heap_strtable_intern_u32_checked(thr, (duk_uint32_t) i); + DUK_ASSERT(k); + + duk__add_enum_key(thr, k); + + /* [enum_target res] */ + } + + /* 'length' and other virtual properties are not + * enumerable, but are included if non-enumerable + * properties are requested. + */ + + if (have_length && (enum_flags & DUK_ENUM_INCLUDE_NONENUMERABLE)) { + duk__add_enum_key_stridx(thr, DUK_STRIDX_LENGTH); + } + } + + /* + * Array part + */ + + cond = !(enum_flags & DUK_ENUM_EXCLUDE_STRINGS); + if (cond) { + for (i = 0; i < (duk_uint_fast32_t) DUK_HOBJECT_GET_ASIZE(curr); i++) { + duk_hstring *k; + duk_tval *tv; + + tv = DUK_HOBJECT_A_GET_VALUE_PTR(thr->heap, curr, i); + if (DUK_TVAL_IS_UNUSED(tv)) { + continue; + } + k = duk_heap_strtable_intern_u32_checked(thr, (duk_uint32_t) i); /* Fragile reachability. */ + DUK_ASSERT(k); + + duk__add_enum_key(thr, k); + + /* [enum_target res] */ + } + + if (DUK_HOBJECT_HAS_EXOTIC_ARRAY(curr)) { + /* Array .length comes after numeric indices. */ + if (enum_flags & DUK_ENUM_INCLUDE_NONENUMERABLE) { + duk__add_enum_key_stridx(thr, DUK_STRIDX_LENGTH); + } + } + } + + /* + * Entries part + */ + + for (i = 0; i < (duk_uint_fast32_t) DUK_HOBJECT_GET_ENEXT(curr); i++) { + duk_hstring *k; + + k = DUK_HOBJECT_E_GET_KEY(thr->heap, curr, i); + if (!k) { + continue; + } + if (!(enum_flags & DUK_ENUM_INCLUDE_NONENUMERABLE) && + !DUK_HOBJECT_E_SLOT_IS_ENUMERABLE(thr->heap, curr, i)) { + continue; + } + if (DUK_UNLIKELY(DUK_HSTRING_HAS_SYMBOL(k))) { + if (!(enum_flags & DUK_ENUM_INCLUDE_HIDDEN) && + DUK_HSTRING_HAS_HIDDEN(k)) { + continue; + } + if (!(enum_flags & DUK_ENUM_INCLUDE_SYMBOLS)) { + continue; + } +#if !defined(DUK_USE_PREFER_SIZE) + need_sort = 1; +#endif + } else { + DUK_ASSERT(!DUK_HSTRING_HAS_HIDDEN(k)); /* would also have symbol flag */ + if (enum_flags & DUK_ENUM_EXCLUDE_STRINGS) { + continue; + } + } + if (DUK_HSTRING_HAS_ARRIDX(k)) { + /* This in currently only possible if the + * object has no array part: the array part + * is exhaustive when it is present. + */ +#if !defined(DUK_USE_PREFER_SIZE) + need_sort = 1; +#endif + } else { + if (enum_flags & DUK_ENUM_ARRAY_INDICES_ONLY) { + continue; + } + } + + DUK_ASSERT(DUK_HOBJECT_E_SLOT_IS_ACCESSOR(thr->heap, curr, i) || + !DUK_TVAL_IS_UNUSED(&DUK_HOBJECT_E_GET_VALUE_PTR(thr->heap, curr, i)->v)); + + duk__add_enum_key(thr, k); + + /* [enum_target res] */ + } + + /* Sort enumerated keys according to ES2015 requirements for + * the "inheritance level" just processed. This is far from + * optimal, ES2015 semantics could be achieved more efficiently + * by handling array index string keys (and symbol keys) + * specially above in effect doing the sort inline. + * + * Skip the sort if array index sorting is requested because + * we must consider all keys, also inherited, so an explicit + * sort is done for the whole result after we're done with the + * prototype chain. + * + * Also skip the sort if need_sort == 0, i.e. we know for + * certain that the enumerated order is already correct. + */ + sort_end_index = DUK_HOBJECT_GET_ENEXT(res); + + if (!(enum_flags & DUK_ENUM_SORT_ARRAY_INDICES)) { +#if defined(DUK_USE_PREFER_SIZE) + duk__sort_enum_keys_es6(thr, res, (duk_int_fast32_t) sort_start_index, (duk_int_fast32_t) sort_end_index); +#else + if (need_sort) { + DUK_DDD(DUK_DDDPRINT("need to sort")); + duk__sort_enum_keys_es6(thr, res, (duk_int_fast32_t) sort_start_index, (duk_int_fast32_t) sort_end_index); + } else { + DUK_DDD(DUK_DDDPRINT("no need to sort")); + } +#endif + } + + sort_start_index = sort_end_index; + + if (enum_flags & DUK_ENUM_OWN_PROPERTIES_ONLY) { + break; + } + + curr = DUK_HOBJECT_GET_PROTOTYPE(thr->heap, curr); + } + + /* [enum_target res] */ + + duk_remove_m2(thr); + + /* [res] */ + + if (enum_flags & DUK_ENUM_SORT_ARRAY_INDICES) { + /* Some E5/E5.1 algorithms require that array indices are iterated + * in a strictly ascending order. This is the case for e.g. + * Array.prototype.forEach() and JSON.stringify() PropertyList + * handling. The caller can request an explicit sort in these + * cases. + */ + + /* Sort to ES2015 order which works for pure array incides but + * also for mixed keys. + */ + duk__sort_enum_keys_es6(thr, res, (duk_int_fast32_t) DUK__ENUM_START_INDEX, (duk_int_fast32_t) DUK_HOBJECT_GET_ENEXT(res)); + } + +#if defined(DUK_USE_ES6_PROXY) + compact_and_return: +#endif + /* compact; no need to seal because object is internal */ + duk_hobject_compact_props(thr, res); + + DUK_DDD(DUK_DDDPRINT("created enumerator object: %!iT", (duk_tval *) duk_get_tval(thr, -1))); +} + +/* + * Returns non-zero if a key and/or value was enumerated, and: + * + * [enum] -> [key] (get_value == 0) + * [enum] -> [key value] (get_value == 1) + * + * Returns zero without pushing anything on the stack otherwise. + */ +DUK_INTERNAL duk_bool_t duk_hobject_enumerator_next(duk_hthread *thr, duk_bool_t get_value) { + duk_hobject *e; + duk_hobject *enum_target; + duk_hstring *res = NULL; + duk_uint_fast32_t idx; + duk_bool_t check_existence; + + DUK_ASSERT(thr != NULL); + + /* [... enum] */ + + e = duk_require_hobject(thr, -1); + + /* XXX use get tval ptr, more efficient */ + duk_get_prop_stridx_short(thr, -1, DUK_STRIDX_INT_NEXT); + idx = (duk_uint_fast32_t) duk_require_uint(thr, -1); + duk_pop(thr); + DUK_DDD(DUK_DDDPRINT("enumeration: index is: %ld", (long) idx)); + + /* Enumeration keys are checked against the enumeration target (to see + * that they still exist). In the proxy enumeration case _Target will + * be the proxy, and checking key existence against the proxy is not + * required (or sensible, as the keys may be fully virtual). + */ + duk_xget_owndataprop_stridx_short(thr, -1, DUK_STRIDX_INT_TARGET); + enum_target = duk_require_hobject(thr, -1); + DUK_ASSERT(enum_target != NULL); +#if defined(DUK_USE_ES6_PROXY) + check_existence = (!DUK_HOBJECT_IS_PROXY(enum_target)); +#else + check_existence = 1; +#endif + duk_pop(thr); /* still reachable */ + + DUK_DDD(DUK_DDDPRINT("getting next enum value, enum_target=%!iO, enumerator=%!iT", + (duk_heaphdr *) enum_target, (duk_tval *) duk_get_tval(thr, -1))); + + /* no array part */ + for (;;) { + duk_hstring *k; + + if (idx >= DUK_HOBJECT_GET_ENEXT(e)) { + DUK_DDD(DUK_DDDPRINT("enumeration: ran out of elements")); + break; + } + + /* we know these because enum objects are internally created */ + k = DUK_HOBJECT_E_GET_KEY(thr->heap, e, idx); + DUK_ASSERT(k != NULL); + DUK_ASSERT(!DUK_HOBJECT_E_SLOT_IS_ACCESSOR(thr->heap, e, idx)); + DUK_ASSERT(!DUK_TVAL_IS_UNUSED(&DUK_HOBJECT_E_GET_VALUE(thr->heap, e, idx).v)); + + idx++; + + /* recheck that the property still exists */ + if (check_existence && !duk_hobject_hasprop_raw(thr, enum_target, k)) { + DUK_DDD(DUK_DDDPRINT("property deleted during enumeration, skip")); + continue; + } + + DUK_DDD(DUK_DDDPRINT("enumeration: found element, key: %!O", (duk_heaphdr *) k)); + res = k; + break; + } + + DUK_DDD(DUK_DDDPRINT("enumeration: updating next index to %ld", (long) idx)); + + duk_push_u32(thr, (duk_uint32_t) idx); + duk_put_prop_stridx_short(thr, -2, DUK_STRIDX_INT_NEXT); + + /* [... enum] */ + + if (res) { + duk_push_hstring(thr, res); + if (get_value) { + duk_push_hobject(thr, enum_target); + duk_dup_m2(thr); /* -> [... enum key enum_target key] */ + duk_get_prop(thr, -2); /* -> [... enum key enum_target val] */ + duk_remove_m2(thr); /* -> [... enum key val] */ + duk_remove(thr, -3); /* -> [... key val] */ + } else { + duk_remove_m2(thr); /* -> [... key] */ + } + return 1; + } else { + duk_pop(thr); /* -> [...] */ + return 0; + } +} + +/* + * Get enumerated keys in an ECMAScript array. Matches Object.keys() behavior + * described in E5 Section 15.2.3.14. + */ + +DUK_INTERNAL duk_ret_t duk_hobject_get_enumerated_keys(duk_hthread *thr, duk_small_uint_t enum_flags) { + duk_hobject *e; + duk_hstring **keys; + duk_tval *tv; + duk_uint_fast32_t count; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(duk_get_hobject(thr, -1) != NULL); + + /* Create a temporary enumerator to get the (non-duplicated) key list; + * the enumerator state is initialized without being needed, but that + * has little impact. + */ + + duk_hobject_enumerator_create(thr, enum_flags); + e = duk_known_hobject(thr, -1); + + /* [enum_target enum res] */ + + /* Create dense result array to exact size. */ + DUK_ASSERT(DUK_HOBJECT_GET_ENEXT(e) >= DUK__ENUM_START_INDEX); + count = (duk_uint32_t) (DUK_HOBJECT_GET_ENEXT(e) - DUK__ENUM_START_INDEX); + + /* XXX: uninit would be OK */ + tv = duk_push_harray_with_size_outptr(thr, (duk_uint32_t) count); + DUK_ASSERT(count == 0 || tv != NULL); + DUK_ASSERT(!duk_is_bare_object(thr, -1)); + + /* Fill result array, no side effects. */ + + keys = DUK_HOBJECT_E_GET_KEY_BASE(thr->heap, e); + keys += DUK__ENUM_START_INDEX; + + while (count-- > 0) { + duk_hstring *k; + + k = *keys++; + DUK_ASSERT(k != NULL); /* enumerator must have no keys deleted */ + + DUK_TVAL_SET_STRING(tv, k); + tv++; + DUK_HSTRING_INCREF(thr, k); + } + + /* [enum_target enum res] */ + duk_remove_m2(thr); + + /* [enum_target res] */ + + return 1; /* return 1 to allow callers to tail call */ +} + +/* automatic undefs */ +#undef DUK__ENUM_START_INDEX +#line 1 "duk_hobject_misc.c" +/* + * Misc support functions + */ + +/* #include duk_internal.h -> already included */ + +DUK_INTERNAL duk_bool_t duk_hobject_prototype_chain_contains(duk_hthread *thr, duk_hobject *h, duk_hobject *p, duk_bool_t ignore_loop) { + duk_uint_t sanity; + + DUK_ASSERT(thr != NULL); + + /* False if the object is NULL or the prototype 'p' is NULL. + * In particular, false if both are NULL (don't compare equal). + */ + if (h == NULL || p == NULL) { + return 0; + } + + sanity = DUK_HOBJECT_PROTOTYPE_CHAIN_SANITY; + do { + if (h == p) { + return 1; + } + + if (sanity-- == 0) { + if (ignore_loop) { + break; + } else { + DUK_ERROR_RANGE(thr, DUK_STR_PROTOTYPE_CHAIN_LIMIT); + DUK_WO_NORETURN(return 0;); + } + } + h = DUK_HOBJECT_GET_PROTOTYPE(thr->heap, h); + } while (h); + + return 0; +} + +DUK_INTERNAL void duk_hobject_set_prototype_updref(duk_hthread *thr, duk_hobject *h, duk_hobject *p) { +#if defined(DUK_USE_REFERENCE_COUNTING) + duk_hobject *tmp; + + DUK_ASSERT(h); + tmp = DUK_HOBJECT_GET_PROTOTYPE(thr->heap, h); + DUK_HOBJECT_SET_PROTOTYPE(thr->heap, h, p); + DUK_HOBJECT_INCREF_ALLOWNULL(thr, p); /* avoid problems if p == h->prototype */ + DUK_HOBJECT_DECREF_ALLOWNULL(thr, tmp); +#else + DUK_ASSERT(h); + DUK_UNREF(thr); + DUK_HOBJECT_SET_PROTOTYPE(thr->heap, h, p); +#endif +} +#line 1 "duk_hobject_pc2line.c" +/* + * Helpers for creating and querying pc2line debug data, which + * converts a bytecode program counter to a source line number. + * + * The run-time pc2line data is bit-packed, and documented in: + * + * doc/function-objects.rst + */ + +/* #include duk_internal.h -> already included */ + +#if defined(DUK_USE_PC2LINE) + +/* Generate pc2line data for an instruction sequence, leaving a buffer on stack top. */ +DUK_INTERNAL void duk_hobject_pc2line_pack(duk_hthread *thr, duk_compiler_instr *instrs, duk_uint_fast32_t length) { + duk_hbuffer_dynamic *h_buf; + duk_bitencoder_ctx be_ctx_alloc; + duk_bitencoder_ctx *be_ctx = &be_ctx_alloc; + duk_uint32_t *hdr; + duk_size_t new_size; + duk_uint_fast32_t num_header_entries; + duk_uint_fast32_t curr_offset; + duk_int_fast32_t curr_line, next_line, diff_line; + duk_uint_fast32_t curr_pc; + duk_uint_fast32_t hdr_index; + + DUK_ASSERT(length <= DUK_COMPILER_MAX_BYTECODE_LENGTH); + + num_header_entries = (length + DUK_PC2LINE_SKIP - 1) / DUK_PC2LINE_SKIP; + curr_offset = (duk_uint_fast32_t) (sizeof(duk_uint32_t) + num_header_entries * sizeof(duk_uint32_t) * 2); + + duk_push_dynamic_buffer(thr, (duk_size_t) curr_offset); + h_buf = (duk_hbuffer_dynamic *) duk_known_hbuffer(thr, -1); + DUK_ASSERT(DUK_HBUFFER_HAS_DYNAMIC(h_buf) && !DUK_HBUFFER_HAS_EXTERNAL(h_buf)); + + hdr = (duk_uint32_t *) DUK_HBUFFER_DYNAMIC_GET_DATA_PTR(thr->heap, h_buf); + DUK_ASSERT(hdr != NULL); + hdr[0] = (duk_uint32_t) length; /* valid pc range is [0, length[ */ + + curr_pc = 0U; + while (curr_pc < length) { + new_size = (duk_size_t) (curr_offset + DUK_PC2LINE_MAX_DIFF_LENGTH); + duk_hbuffer_resize(thr, h_buf, new_size); + + hdr = (duk_uint32_t *) DUK_HBUFFER_DYNAMIC_GET_DATA_PTR(thr->heap, h_buf); + DUK_ASSERT(hdr != NULL); + DUK_ASSERT(curr_pc < length); + hdr_index = 1 + (curr_pc / DUK_PC2LINE_SKIP) * 2; + curr_line = (duk_int_fast32_t) instrs[curr_pc].line; + hdr[hdr_index + 0] = (duk_uint32_t) curr_line; + hdr[hdr_index + 1] = (duk_uint32_t) curr_offset; + +#if 0 + DUK_DDD(DUK_DDDPRINT("hdr[%ld]: pc=%ld line=%ld offset=%ld", + (long) (curr_pc / DUK_PC2LINE_SKIP), + (long) curr_pc, + (long) hdr[hdr_index + 0], + (long) hdr[hdr_index + 1])); +#endif + + duk_memzero(be_ctx, sizeof(*be_ctx)); + be_ctx->data = ((duk_uint8_t *) hdr) + curr_offset; + be_ctx->length = (duk_size_t) DUK_PC2LINE_MAX_DIFF_LENGTH; + + for (;;) { + curr_pc++; + if ( ((curr_pc % DUK_PC2LINE_SKIP) == 0) || /* end of diff run */ + (curr_pc >= length) ) { /* end of bytecode */ + break; + } + DUK_ASSERT(curr_pc < length); + next_line = (duk_int32_t) instrs[curr_pc].line; + diff_line = next_line - curr_line; + +#if 0 + DUK_DDD(DUK_DDDPRINT("curr_line=%ld, next_line=%ld -> diff_line=%ld", + (long) curr_line, (long) next_line, (long) diff_line)); +#endif + + if (diff_line == 0) { + /* 0 */ + duk_be_encode(be_ctx, 0, 1); + } else if (diff_line >= 1 && diff_line <= 4) { + /* 1 0 <2 bits> */ + duk_be_encode(be_ctx, (duk_uint32_t) ((0x02 << 2) + (diff_line - 1)), 4); + } else if (diff_line >= -0x80 && diff_line <= 0x7f) { + /* 1 1 0 <8 bits> */ + DUK_ASSERT(diff_line + 0x80 >= 0 && diff_line + 0x80 <= 0xff); + duk_be_encode(be_ctx, (duk_uint32_t) ((0x06 << 8) + (diff_line + 0x80)), 11); + } else { + /* 1 1 1 <32 bits> + * Encode in two parts to avoid bitencode 24-bit limitation + */ + duk_be_encode(be_ctx, (duk_uint32_t) ((0x07 << 16) + ((next_line >> 16) & 0xffff)), 19); + duk_be_encode(be_ctx, (duk_uint32_t) (next_line & 0xffff), 16); + } + + curr_line = next_line; + } + + duk_be_finish(be_ctx); + DUK_ASSERT(!be_ctx->truncated); + + /* be_ctx->offset == length of encoded bitstream */ + curr_offset += (duk_uint_fast32_t) be_ctx->offset; + } + + /* compact */ + new_size = (duk_size_t) curr_offset; + duk_hbuffer_resize(thr, h_buf, new_size); + + (void) duk_to_fixed_buffer(thr, -1, NULL); + + DUK_DDD(DUK_DDDPRINT("final pc2line data: pc_limit=%ld, length=%ld, %lf bits/opcode --> %!ixT", + (long) length, (long) new_size, (double) new_size * 8.0 / (double) length, + (duk_tval *) duk_get_tval(thr, -1))); +} + +/* PC is unsigned. If caller does PC arithmetic and gets a negative result, + * it will map to a large PC which is out of bounds and causes a zero to be + * returned. + */ +DUK_LOCAL duk_uint_fast32_t duk__hobject_pc2line_query_raw(duk_hthread *thr, duk_hbuffer_fixed *buf, duk_uint_fast32_t pc) { + duk_bitdecoder_ctx bd_ctx_alloc; + duk_bitdecoder_ctx *bd_ctx = &bd_ctx_alloc; + duk_uint32_t *hdr; + duk_uint_fast32_t start_offset; + duk_uint_fast32_t pc_limit; + duk_uint_fast32_t hdr_index; + duk_uint_fast32_t pc_base; + duk_uint_fast32_t n; + duk_uint_fast32_t curr_line; + + DUK_ASSERT(buf != NULL); + DUK_ASSERT(!DUK_HBUFFER_HAS_DYNAMIC((duk_hbuffer *) buf) && !DUK_HBUFFER_HAS_EXTERNAL((duk_hbuffer *) buf)); + DUK_UNREF(thr); + + /* + * Use the index in the header to find the right starting point + */ + + hdr_index = pc / DUK_PC2LINE_SKIP; + pc_base = hdr_index * DUK_PC2LINE_SKIP; + n = pc - pc_base; + + if (DUK_HBUFFER_FIXED_GET_SIZE(buf) <= sizeof(duk_uint32_t)) { + DUK_DD(DUK_DDPRINT("pc2line lookup failed: buffer is smaller than minimal header")); + goto pc2line_error; + } + + hdr = (duk_uint32_t *) (void *) DUK_HBUFFER_FIXED_GET_DATA_PTR(thr->heap, buf); + pc_limit = hdr[0]; + if (pc >= pc_limit) { + /* Note: pc is unsigned and cannot be negative */ + DUK_DD(DUK_DDPRINT("pc2line lookup failed: pc out of bounds (pc=%ld, limit=%ld)", + (long) pc, (long) pc_limit)); + goto pc2line_error; + } + + curr_line = hdr[1 + hdr_index * 2]; + start_offset = hdr[1 + hdr_index * 2 + 1]; + if ((duk_size_t) start_offset > DUK_HBUFFER_FIXED_GET_SIZE(buf)) { + DUK_DD(DUK_DDPRINT("pc2line lookup failed: start_offset out of bounds (start_offset=%ld, buffer_size=%ld)", + (long) start_offset, (long) DUK_HBUFFER_GET_SIZE((duk_hbuffer *) buf))); + goto pc2line_error; + } + + /* + * Iterate the bitstream (line diffs) until PC is reached + */ + + duk_memzero(bd_ctx, sizeof(*bd_ctx)); + bd_ctx->data = ((duk_uint8_t *) hdr) + start_offset; + bd_ctx->length = (duk_size_t) (DUK_HBUFFER_FIXED_GET_SIZE(buf) - start_offset); + +#if 0 + DUK_DDD(DUK_DDDPRINT("pc2line lookup: pc=%ld -> hdr_index=%ld, pc_base=%ld, n=%ld, start_offset=%ld", + (long) pc, (long) hdr_index, (long) pc_base, (long) n, (long) start_offset)); +#endif + + while (n > 0) { +#if 0 + DUK_DDD(DUK_DDDPRINT("lookup: n=%ld, curr_line=%ld", (long) n, (long) curr_line)); +#endif + + if (duk_bd_decode_flag(bd_ctx)) { + if (duk_bd_decode_flag(bd_ctx)) { + if (duk_bd_decode_flag(bd_ctx)) { + /* 1 1 1 <32 bits> */ + duk_uint_fast32_t t; + t = duk_bd_decode(bd_ctx, 16); /* workaround: max nbits = 24 now */ + t = (t << 16) + duk_bd_decode(bd_ctx, 16); + curr_line = t; + } else { + /* 1 1 0 <8 bits> */ + duk_uint_fast32_t t; + t = duk_bd_decode(bd_ctx, 8); + curr_line = curr_line + t - 0x80; + } + } else { + /* 1 0 <2 bits> */ + duk_uint_fast32_t t; + t = duk_bd_decode(bd_ctx, 2); + curr_line = curr_line + t + 1; + } + } else { + /* 0: no change */ + } + + n--; + } + + DUK_DDD(DUK_DDDPRINT("pc2line lookup result: pc %ld -> line %ld", (long) pc, (long) curr_line)); + return curr_line; + + pc2line_error: + DUK_D(DUK_DPRINT("pc2line conversion failed for pc=%ld", (long) pc)); + return 0; +} + +DUK_INTERNAL duk_uint_fast32_t duk_hobject_pc2line_query(duk_hthread *thr, duk_idx_t idx_func, duk_uint_fast32_t pc) { + duk_hbuffer_fixed *pc2line; + duk_uint_fast32_t line; + + /* XXX: now that pc2line is used by the debugger quite heavily in + * checked execution, this should be optimized to avoid value stack + * and perhaps also implement some form of pc2line caching (see + * future work in debugger.rst). + */ + + duk_xget_owndataprop_stridx_short(thr, idx_func, DUK_STRIDX_INT_PC2LINE); + pc2line = (duk_hbuffer_fixed *) (void *) duk_get_hbuffer(thr, -1); + if (pc2line != NULL) { + DUK_ASSERT(!DUK_HBUFFER_HAS_DYNAMIC((duk_hbuffer *) pc2line) && !DUK_HBUFFER_HAS_EXTERNAL((duk_hbuffer *) pc2line)); + line = duk__hobject_pc2line_query_raw(thr, pc2line, (duk_uint_fast32_t) pc); + } else { + line = 0; + } + duk_pop(thr); + + return line; +} + +#endif /* DUK_USE_PC2LINE */ +#line 1 "duk_hobject_props.c" +/* + * duk_hobject property access functionality. + * + * This is very central functionality for size, performance, and compliance. + * It is also rather intricate; see hobject-algorithms.rst for discussion on + * the algorithms and memory-management.rst for discussion on refcounts and + * side effect issues. + * + * Notes: + * + * - It might be tempting to assert "refcount nonzero" for objects + * being operated on, but that's not always correct: objects with + * a zero refcount may be operated on by the refcount implementation + * (finalization) for instance. Hence, no refcount assertions are made. + * + * - Many operations (memory allocation, identifier operations, etc) + * may cause arbitrary side effects (e.g. through GC and finalization). + * These side effects may invalidate duk_tval pointers which point to + * areas subject to reallocation (like value stack). Heap objects + * themselves have stable pointers. Holding heap object pointers or + * duk_tval copies is not problematic with respect to side effects; + * care must be taken when holding and using argument duk_tval pointers. + * + * - If a finalizer is executed, it may operate on the the same object + * we're currently dealing with. For instance, the finalizer might + * delete a certain property which has already been looked up and + * confirmed to exist. Ideally finalizers would be disabled if GC + * happens during property access. At the moment property table realloc + * disables finalizers, and all DECREFs may cause arbitrary changes so + * handle DECREF carefully. + * + * - The order of operations for a DECREF matters. When DECREF is executed, + * the entire object graph must be consistent; note that a refzero may + * lead to a mark-and-sweep through a refcount finalizer. Use NORZ macros + * and an explicit DUK_REFZERO_CHECK_xxx() if achieving correct order is hard. + */ + +/* + * XXX: array indices are mostly typed as duk_uint32_t here; duk_uarridx_t + * might be more appropriate. + */ + +/* #include duk_internal.h -> already included */ + +/* + * Local defines + */ + +#define DUK__NO_ARRAY_INDEX DUK_HSTRING_NO_ARRAY_INDEX + +/* Marker values for hash part. */ +#define DUK__HASH_UNUSED DUK_HOBJECT_HASHIDX_UNUSED +#define DUK__HASH_DELETED DUK_HOBJECT_HASHIDX_DELETED + +/* Valstack space that suffices for all local calls, excluding any recursion + * into ECMAScript or Duktape/C calls (Proxy, getters, etc). + */ +#define DUK__VALSTACK_SPACE 10 + +/* Valstack space allocated especially for proxy lookup which does a + * recursive property lookup. + */ +#define DUK__VALSTACK_PROXY_LOOKUP 20 + +/* + * Local prototypes + */ + +DUK_LOCAL_DECL duk_bool_t duk__check_arguments_map_for_get(duk_hthread *thr, duk_hobject *obj, duk_hstring *key, duk_propdesc *temp_desc); +DUK_LOCAL_DECL void duk__check_arguments_map_for_put(duk_hthread *thr, duk_hobject *obj, duk_hstring *key, duk_propdesc *temp_desc, duk_bool_t throw_flag); +DUK_LOCAL_DECL void duk__check_arguments_map_for_delete(duk_hthread *thr, duk_hobject *obj, duk_hstring *key, duk_propdesc *temp_desc); + +DUK_LOCAL_DECL duk_bool_t duk__handle_put_array_length_smaller(duk_hthread *thr, duk_hobject *obj, duk_uint32_t old_len, duk_uint32_t new_len, duk_bool_t force_flag, duk_uint32_t *out_result_len); +DUK_LOCAL_DECL duk_bool_t duk__handle_put_array_length(duk_hthread *thr, duk_hobject *obj); + +DUK_LOCAL_DECL duk_bool_t duk__get_propdesc(duk_hthread *thr, duk_hobject *obj, duk_hstring *key, duk_propdesc *out_desc, duk_small_uint_t flags); +DUK_LOCAL_DECL duk_bool_t duk__get_own_propdesc_raw(duk_hthread *thr, duk_hobject *obj, duk_hstring *key, duk_uint32_t arr_idx, duk_propdesc *out_desc, duk_small_uint_t flags); + +DUK_LOCAL_DECL void duk__abandon_array_part(duk_hthread *thr, duk_hobject *obj); +DUK_LOCAL_DECL void duk__grow_props_for_array_item(duk_hthread *thr, duk_hobject *obj, duk_uint32_t highest_arr_idx); + +/* + * Misc helpers + */ + +/* Convert a duk_tval number (caller checks) to a 32-bit index. Returns + * DUK__NO_ARRAY_INDEX if the number is not whole or not a valid array + * index. + */ +/* XXX: for fastints, could use a variant which assumes a double duk_tval + * (and doesn't need to check for fastint again). + */ +DUK_LOCAL duk_uint32_t duk__tval_number_to_arr_idx(duk_tval *tv) { + duk_double_t dbl; + duk_uint32_t idx; + + DUK_ASSERT(tv != NULL); + DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv)); + + /* -0 is accepted here as index 0 because ToString(-0) == "0" which is + * in canonical form and thus an array index. + */ + dbl = DUK_TVAL_GET_NUMBER(tv); + idx = (duk_uint32_t) dbl; + if (duk_double_equals((duk_double_t) idx, dbl)) { + /* Is whole and within 32 bit range. If the value happens to be 0xFFFFFFFF, + * it's not a valid array index but will then match DUK__NO_ARRAY_INDEX. + */ + return idx; + } + return DUK__NO_ARRAY_INDEX; +} + +#if defined(DUK_USE_FASTINT) +/* Convert a duk_tval fastint (caller checks) to a 32-bit index. */ +DUK_LOCAL duk_uint32_t duk__tval_fastint_to_arr_idx(duk_tval *tv) { + duk_int64_t t; + + DUK_ASSERT(tv != NULL); + DUK_ASSERT(DUK_TVAL_IS_FASTINT(tv)); + + t = DUK_TVAL_GET_FASTINT(tv); + if (((duk_uint64_t) t & ~DUK_U64_CONSTANT(0xffffffff)) != 0) { + /* Catches >0x100000000 and negative values. */ + return DUK__NO_ARRAY_INDEX; + } + + /* If the value happens to be 0xFFFFFFFF, it's not a valid array index + * but will then match DUK__NO_ARRAY_INDEX. + */ + return (duk_uint32_t) t; +} +#endif /* DUK_USE_FASTINT */ + +/* Convert a duk_tval on the value stack (in a trusted index we don't validate) + * to a string or symbol using ES2015 ToPropertyKey(): + * http://www.ecma-international.org/ecma-262/6.0/#sec-topropertykey. + * + * Also check if it's a valid array index and return that (or DUK__NO_ARRAY_INDEX + * if not). + */ +DUK_LOCAL duk_uint32_t duk__to_property_key(duk_hthread *thr, duk_idx_t idx, duk_hstring **out_h) { + duk_uint32_t arr_idx; + duk_hstring *h; + duk_tval *tv_dst; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(out_h != NULL); + DUK_ASSERT(duk_is_valid_index(thr, idx)); + DUK_ASSERT(idx < 0); + + /* XXX: The revised ES2015 ToPropertyKey() handling (ES5.1 was just + * ToString()) involves a ToPrimitive(), a symbol check, and finally + * a ToString(). Figure out the best way to have a good fast path + * but still be compliant and share code. + */ + + tv_dst = DUK_GET_TVAL_NEGIDX(thr, idx); /* intentionally unvalidated */ + if (DUK_TVAL_IS_STRING(tv_dst)) { + /* Most important path: strings and plain symbols are used as + * is. For symbols the array index check below is unnecessary + * (they're never valid array indices) but checking that the + * string is a symbol would make the plain string path slower + * unnecessarily. + */ + h = DUK_TVAL_GET_STRING(tv_dst); + } else { + h = duk_to_property_key_hstring(thr, idx); + } + DUK_ASSERT(h != NULL); + *out_h = h; + + arr_idx = DUK_HSTRING_GET_ARRIDX_FAST(h); + return arr_idx; +} + +DUK_LOCAL duk_uint32_t duk__push_tval_to_property_key(duk_hthread *thr, duk_tval *tv_key, duk_hstring **out_h) { + duk_push_tval(thr, tv_key); /* XXX: could use an unsafe push here */ + return duk__to_property_key(thr, -1, out_h); +} + +/* String is an own (virtual) property of a plain buffer. */ +DUK_LOCAL duk_bool_t duk__key_is_plain_buf_ownprop(duk_hthread *thr, duk_hbuffer *buf, duk_hstring *key, duk_uint32_t arr_idx) { + DUK_UNREF(thr); + + /* Virtual index properties. Checking explicitly for + * 'arr_idx != DUK__NO_ARRAY_INDEX' is not necessary + * because DUK__NO_ARRAY_INDEXi is always larger than + * maximum allowed buffer size. + */ + DUK_ASSERT(DUK__NO_ARRAY_INDEX >= DUK_HBUFFER_GET_SIZE(buf)); + if (arr_idx < DUK_HBUFFER_GET_SIZE(buf)) { + return 1; + } + + /* Other virtual properties. */ + return (key == DUK_HTHREAD_STRING_LENGTH(thr)); +} + +/* + * Helpers for managing property storage size + */ + +/* Get default hash part size for a certain entry part size. */ +#if defined(DUK_USE_HOBJECT_HASH_PART) +DUK_LOCAL duk_uint32_t duk__get_default_h_size(duk_uint32_t e_size) { + DUK_ASSERT(e_size <= DUK_HOBJECT_MAX_PROPERTIES); + + if (e_size >= DUK_USE_HOBJECT_HASH_PROP_LIMIT) { + duk_uint32_t res; + duk_uint32_t tmp; + + /* Hash size should be 2^N where N is chosen so that 2^N is + * larger than e_size. Extra shifting is used to ensure hash + * is relatively sparse. + */ + tmp = e_size; + res = 2; /* Result will be 2 ** (N + 1). */ + while (tmp >= 0x40) { + tmp >>= 6; + res <<= 6; + } + while (tmp != 0) { + tmp >>= 1; + res <<= 1; + } + DUK_ASSERT((DUK_HOBJECT_MAX_PROPERTIES << 2U) > DUK_HOBJECT_MAX_PROPERTIES); /* Won't wrap, even shifted by 2. */ + DUK_ASSERT(res > e_size); + return res; + } else { + return 0; + } +} +#endif /* USE_PROP_HASH_PART */ + +/* Get minimum entry part growth for a certain size. */ +DUK_LOCAL duk_uint32_t duk__get_min_grow_e(duk_uint32_t e_size) { + duk_uint32_t res; + + res = (e_size + DUK_USE_HOBJECT_ENTRY_MINGROW_ADD) / DUK_USE_HOBJECT_ENTRY_MINGROW_DIVISOR; + DUK_ASSERT(res >= 1); /* important for callers */ + return res; +} + +/* Get minimum array part growth for a certain size. */ +DUK_LOCAL duk_uint32_t duk__get_min_grow_a(duk_uint32_t a_size) { + duk_uint32_t res; + + res = (a_size + DUK_USE_HOBJECT_ARRAY_MINGROW_ADD) / DUK_USE_HOBJECT_ARRAY_MINGROW_DIVISOR; + DUK_ASSERT(res >= 1); /* important for callers */ + return res; +} + +/* Count actually used entry part entries (non-NULL keys). */ +DUK_LOCAL duk_uint32_t duk__count_used_e_keys(duk_hthread *thr, duk_hobject *obj) { + duk_uint_fast32_t i; + duk_uint_fast32_t n = 0; + duk_hstring **e; + + DUK_ASSERT(obj != NULL); + DUK_UNREF(thr); + + e = DUK_HOBJECT_E_GET_KEY_BASE(thr->heap, obj); + for (i = 0; i < DUK_HOBJECT_GET_ENEXT(obj); i++) { + if (*e++) { + n++; + } + } + return (duk_uint32_t) n; +} + +/* Count actually used array part entries and array minimum size. + * NOTE: 'out_min_size' can be computed much faster by starting from the + * end and breaking out early when finding first used entry, but this is + * not needed now. + */ +DUK_LOCAL void duk__compute_a_stats(duk_hthread *thr, duk_hobject *obj, duk_uint32_t *out_used, duk_uint32_t *out_min_size) { + duk_uint_fast32_t i; + duk_uint_fast32_t used = 0; + duk_uint_fast32_t highest_idx = (duk_uint_fast32_t) -1; /* see below */ + duk_tval *a; + + DUK_ASSERT(obj != NULL); + DUK_ASSERT(out_used != NULL); + DUK_ASSERT(out_min_size != NULL); + DUK_UNREF(thr); + + a = DUK_HOBJECT_A_GET_BASE(thr->heap, obj); + for (i = 0; i < DUK_HOBJECT_GET_ASIZE(obj); i++) { + duk_tval *tv = a++; + if (!DUK_TVAL_IS_UNUSED(tv)) { + used++; + highest_idx = i; + } + } + + /* Initial value for highest_idx is -1 coerced to unsigned. This + * is a bit odd, but (highest_idx + 1) will then wrap to 0 below + * for out_min_size as intended. + */ + + *out_used = (duk_uint32_t) used; + *out_min_size = (duk_uint32_t) (highest_idx + 1); /* 0 if no used entries */ +} + +/* Check array density and indicate whether or not the array part should be abandoned. */ +DUK_LOCAL duk_bool_t duk__abandon_array_density_check(duk_uint32_t a_used, duk_uint32_t a_size) { + /* + * Array abandon check; abandon if: + * + * new_used / new_size < limit + * new_used < limit * new_size || limit is 3 bits fixed point + * new_used < limit' / 8 * new_size || *8 + * 8*new_used < limit' * new_size || :8 + * new_used < limit' * (new_size / 8) + * + * Here, new_used = a_used, new_size = a_size. + * + * Note: some callers use approximate values for a_used and/or a_size + * (e.g. dropping a '+1' term). This doesn't affect the usefulness + * of the check, but may confuse debugging. + */ + + return (a_used < DUK_USE_HOBJECT_ARRAY_ABANDON_LIMIT * (a_size >> 3)); +} + +/* Fast check for extending array: check whether or not a slow density check is required. */ +DUK_LOCAL duk_bool_t duk__abandon_array_slow_check_required(duk_uint32_t arr_idx, duk_uint32_t old_size) { + duk_uint32_t new_size_min; + + /* + * In a fast check we assume old_size equals old_used (i.e., existing + * array is fully dense). + * + * Slow check if: + * + * (new_size - old_size) / old_size > limit + * new_size - old_size > limit * old_size + * new_size > (1 + limit) * old_size || limit' is 3 bits fixed point + * new_size > (1 + (limit' / 8)) * old_size || * 8 + * 8 * new_size > (8 + limit') * old_size || : 8 + * new_size > (8 + limit') * (old_size / 8) + * new_size > limit'' * (old_size / 8) || limit'' = 9 -> max 25% increase + * arr_idx + 1 > limit'' * (old_size / 8) + * + * This check doesn't work well for small values, so old_size is rounded + * up for the check (and the '+ 1' of arr_idx can be ignored in practice): + * + * arr_idx > limit'' * ((old_size + 7) / 8) + */ + + new_size_min = arr_idx + 1; + return (new_size_min >= DUK_USE_HOBJECT_ARRAY_ABANDON_MINSIZE) && + (arr_idx > DUK_USE_HOBJECT_ARRAY_FAST_RESIZE_LIMIT * ((old_size + 7) >> 3)); +} + +DUK_LOCAL duk_bool_t duk__abandon_array_check(duk_hthread *thr, duk_uint32_t arr_idx, duk_hobject *obj) { + duk_uint32_t min_size; + duk_uint32_t old_used; + duk_uint32_t old_size; + + if (!duk__abandon_array_slow_check_required(arr_idx, DUK_HOBJECT_GET_ASIZE(obj))) { + DUK_DDD(DUK_DDDPRINT("=> fast resize is OK")); + return 0; + } + + duk__compute_a_stats(thr, obj, &old_used, &old_size); + + DUK_DDD(DUK_DDDPRINT("abandon check, array stats: old_used=%ld, old_size=%ld, arr_idx=%ld", + (long) old_used, (long) old_size, (long) arr_idx)); + + min_size = arr_idx + 1; +#if defined(DUK_USE_OBJSIZES16) + if (min_size > DUK_UINT16_MAX) { + goto do_abandon; + } +#endif + DUK_UNREF(min_size); + + /* Note: intentionally use approximations to shave a few instructions: + * a_used = old_used (accurate: old_used + 1) + * a_size = arr_idx (accurate: arr_idx + 1) + */ + if (duk__abandon_array_density_check(old_used, arr_idx)) { + DUK_DD(DUK_DDPRINT("write to new array entry beyond current length, " + "decided to abandon array part (would become too sparse)")); + + /* Abandoning requires a props allocation resize and + * 'rechecks' the valstack, invalidating any existing + * valstack value pointers. + */ + goto do_abandon; + } + + DUK_DDD(DUK_DDDPRINT("=> decided to keep array part")); + return 0; + + do_abandon: + duk__abandon_array_part(thr, obj); + DUK_ASSERT(!DUK_HOBJECT_HAS_ARRAY_PART(obj)); + return 1; +} + +DUK_LOCAL duk_tval *duk__obtain_arridx_slot_slowpath(duk_hthread *thr, duk_uint32_t arr_idx, duk_hobject *obj) { + /* + * Array needs to grow, but we don't want it becoming too sparse. + * If it were to become sparse, abandon array part, moving all + * array entries into the entries part (for good). + * + * Since we don't keep track of actual density (used vs. size) of + * the array part, we need to estimate somehow. The check is made + * in two parts: + * + * - Check whether the resize need is small compared to the + * current size (relatively); if so, resize without further + * checking (essentially we assume that the original part is + * "dense" so that the result would be dense enough). + * + * - Otherwise, compute the resize using an actual density + * measurement based on counting the used array entries. + */ + + DUK_DDD(DUK_DDDPRINT("write to new array requires array resize, decide whether to do a " + "fast resize without abandon check (arr_idx=%ld, old_size=%ld)", + (long) arr_idx, (long) DUK_HOBJECT_GET_ASIZE(obj))); + + if (DUK_UNLIKELY(duk__abandon_array_check(thr, arr_idx, obj) != 0)) { + DUK_ASSERT(!DUK_HOBJECT_HAS_ARRAY_PART(obj)); + return NULL; + } + + DUK_DD(DUK_DDPRINT("write to new array entry beyond current length, " + "decided to extend current allocation")); + + /* In principle it's possible to run out of memory extending the + * array but with the allocation going through if we were to abandon + * the array part and try again. In practice this should be rare + * because abandoned arrays have a higher per-entry footprint. + */ + + duk__grow_props_for_array_item(thr, obj, arr_idx); + + DUK_ASSERT(DUK_HOBJECT_HAS_ARRAY_PART(obj)); + DUK_ASSERT(arr_idx < DUK_HOBJECT_GET_ASIZE(obj)); + return DUK_HOBJECT_A_GET_VALUE_PTR(thr->heap, obj, arr_idx); +} + +DUK_LOCAL DUK_INLINE duk_tval *duk__obtain_arridx_slot(duk_hthread *thr, duk_uint32_t arr_idx, duk_hobject *obj) { + if (DUK_LIKELY(arr_idx < DUK_HOBJECT_GET_ASIZE(obj))) { + return DUK_HOBJECT_A_GET_VALUE_PTR(thr->heap, obj, arr_idx); + } else { + return duk__obtain_arridx_slot_slowpath(thr, arr_idx, obj); + } +} + +/* + * Proxy helpers + */ + +#if defined(DUK_USE_ES6_PROXY) +DUK_INTERNAL duk_bool_t duk_hobject_proxy_check(duk_hobject *obj, duk_hobject **out_target, duk_hobject **out_handler) { + duk_hproxy *h_proxy; + + DUK_ASSERT(obj != NULL); + DUK_ASSERT(out_target != NULL); + DUK_ASSERT(out_handler != NULL); + + /* Caller doesn't need to check exotic proxy behavior (but does so for + * some fast paths). + */ + if (DUK_LIKELY(!DUK_HOBJECT_IS_PROXY(obj))) { + return 0; + } + h_proxy = (duk_hproxy *) obj; + DUK_HPROXY_ASSERT_VALID(h_proxy); + + DUK_ASSERT(h_proxy->handler != NULL); + DUK_ASSERT(h_proxy->target != NULL); + *out_handler = h_proxy->handler; + *out_target = h_proxy->target; + + return 1; +} +#endif /* DUK_USE_ES6_PROXY */ + +/* Get Proxy target object. If the argument is not a Proxy, return it as is. + * If a Proxy is revoked, an error is thrown. + */ +#if defined(DUK_USE_ES6_PROXY) +DUK_INTERNAL duk_hobject *duk_hobject_resolve_proxy_target(duk_hobject *obj) { + DUK_ASSERT(obj != NULL); + + /* Resolve Proxy targets until Proxy chain ends. No explicit check for + * a Proxy loop: user code cannot create such a loop (it would only be + * possible by editing duk_hproxy references directly). + */ + + while (DUK_HOBJECT_IS_PROXY(obj)) { + duk_hproxy *h_proxy; + + h_proxy = (duk_hproxy *) obj; + DUK_HPROXY_ASSERT_VALID(h_proxy); + obj = h_proxy->target; + DUK_ASSERT(obj != NULL); + } + + DUK_ASSERT(obj != NULL); + return obj; +} +#endif /* DUK_USE_ES6_PROXY */ + +#if defined(DUK_USE_ES6_PROXY) +DUK_LOCAL duk_bool_t duk__proxy_check_prop(duk_hthread *thr, duk_hobject *obj, duk_small_uint_t stridx_trap, duk_tval *tv_key, duk_hobject **out_target) { + duk_hobject *h_handler; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(obj != NULL); + DUK_ASSERT(tv_key != NULL); + DUK_ASSERT(out_target != NULL); + + if (!duk_hobject_proxy_check(obj, out_target, &h_handler)) { + return 0; + } + DUK_ASSERT(*out_target != NULL); + DUK_ASSERT(h_handler != NULL); + + /* XXX: At the moment Duktape accesses internal keys like _Finalizer using a + * normal property set/get which would allow a proxy handler to interfere with + * such behavior and to get access to internal key strings. This is not a problem + * as such because internal key strings can be created in other ways too (e.g. + * through buffers). The best fix is to change Duktape internal lookups to + * skip proxy behavior. Until that, internal property accesses bypass the + * proxy and are applied to the target (as if the handler did not exist). + * This has some side effects, see test-bi-proxy-internal-keys.js. + */ + + if (DUK_TVAL_IS_STRING(tv_key)) { + duk_hstring *h_key = (duk_hstring *) DUK_TVAL_GET_STRING(tv_key); + DUK_ASSERT(h_key != NULL); + if (DUK_HSTRING_HAS_HIDDEN(h_key)) { + /* Symbol accesses must go through proxy lookup in ES2015. + * Hidden symbols behave like Duktape 1.x internal keys + * and currently won't. + */ + DUK_DDD(DUK_DDDPRINT("hidden key, skip proxy handler and apply to target")); + return 0; + } + } + + /* The handler is looked up with a normal property lookup; it may be an + * accessor or the handler object itself may be a proxy object. If the + * handler is a proxy, we need to extend the valstack as we make a + * recursive proxy check without a function call in between (in fact + * there is no limit to the potential recursion here). + * + * (For sanity, proxy creation rejects another proxy object as either + * the handler or the target at the moment so recursive proxy cases + * are not realized now.) + */ + + /* XXX: C recursion limit if proxies are allowed as handler/target values */ + + duk_require_stack(thr, DUK__VALSTACK_PROXY_LOOKUP); + duk_push_hobject(thr, h_handler); + if (duk_get_prop_stridx_short(thr, -1, stridx_trap)) { + /* -> [ ... handler trap ] */ + duk_insert(thr, -2); /* -> [ ... trap handler ] */ + + /* stack prepped for func call: [ ... trap handler ] */ + return 1; + } else { + duk_pop_2_unsafe(thr); + return 0; + } +} +#endif /* DUK_USE_ES6_PROXY */ + +/* + * Reallocate property allocation, moving properties to the new allocation. + * + * Includes key compaction, rehashing, and can also optionally abandon + * the array part, 'migrating' array entries into the beginning of the + * new entry part. + * + * There is no support for in-place reallocation or just compacting keys + * without resizing the property allocation. This is intentional to keep + * code size minimal, but would be useful future work. + * + * The implementation is relatively straightforward, except for the array + * abandonment process. Array abandonment requires that new string keys + * are interned, which may trigger GC. All keys interned so far must be + * reachable for GC at all times and correctly refcounted for; valstack is + * used for that now. + * + * Also, a GC triggered during this reallocation process must not interfere + * with the object being resized. This is currently controlled by preventing + * finalizers (as they may affect ANY object) and object compaction in + * mark-and-sweep. It would suffice to protect only this particular object + * from compaction, however. DECREF refzero cascades are side effect free + * and OK. + * + * Note: because we need to potentially resize the valstack (as part + * of abandoning the array part), any tval pointers to the valstack + * will become invalid after this call. + */ + +DUK_INTERNAL void duk_hobject_realloc_props(duk_hthread *thr, + duk_hobject *obj, + duk_uint32_t new_e_size, + duk_uint32_t new_a_size, + duk_uint32_t new_h_size, + duk_bool_t abandon_array) { + duk_small_uint_t prev_ms_base_flags; + duk_uint32_t new_alloc_size; + duk_uint32_t new_e_size_adjusted; + duk_uint8_t *new_p; + duk_hstring **new_e_k; + duk_propvalue *new_e_pv; + duk_uint8_t *new_e_f; + duk_tval *new_a; + duk_uint32_t *new_h; + duk_uint32_t new_e_next; + duk_uint_fast32_t i; + duk_size_t array_copy_size; +#if defined(DUK_USE_ASSERTIONS) + duk_bool_t prev_error_not_allowed; +#endif + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(obj != NULL); + DUK_ASSERT(!abandon_array || new_a_size == 0); /* if abandon_array, new_a_size must be 0 */ + DUK_ASSERT(DUK_HOBJECT_GET_PROPS(thr->heap, obj) != NULL || (DUK_HOBJECT_GET_ESIZE(obj) == 0 && DUK_HOBJECT_GET_ASIZE(obj) == 0)); + DUK_ASSERT(new_h_size == 0 || new_h_size >= new_e_size); /* required to guarantee success of rehashing, + * intentionally use unadjusted new_e_size + */ + DUK_ASSERT(!DUK_HEAPHDR_HAS_READONLY((duk_heaphdr *) obj)); + DUK_ASSERT_VALSTACK_SPACE(thr, DUK__VALSTACK_SPACE); + + DUK_STATS_INC(thr->heap, stats_object_realloc_props); + + /* + * Pre resize assertions. + */ + +#if defined(DUK_USE_ASSERTIONS) + /* XXX: pre-checks (such as no duplicate keys) */ +#endif + + /* + * For property layout 1, tweak e_size to ensure that the whole entry + * part (key + val + flags) is a suitable multiple for alignment + * (platform specific). + * + * Property layout 2 does not require this tweaking and is preferred + * on low RAM platforms requiring alignment. + */ + +#if defined(DUK_USE_HOBJECT_LAYOUT_2) || defined(DUK_USE_HOBJECT_LAYOUT_3) + DUK_DDD(DUK_DDDPRINT("using layout 2 or 3, no need to pad e_size: %ld", (long) new_e_size)); + new_e_size_adjusted = new_e_size; +#elif defined(DUK_USE_HOBJECT_LAYOUT_1) && (DUK_HOBJECT_ALIGN_TARGET == 1) + DUK_DDD(DUK_DDDPRINT("using layout 1, but no need to pad e_size: %ld", (long) new_e_size)); + new_e_size_adjusted = new_e_size; +#elif defined(DUK_USE_HOBJECT_LAYOUT_1) && ((DUK_HOBJECT_ALIGN_TARGET == 4) || (DUK_HOBJECT_ALIGN_TARGET == 8)) + new_e_size_adjusted = (new_e_size + (duk_uint32_t) DUK_HOBJECT_ALIGN_TARGET - 1U) & + (~((duk_uint32_t) DUK_HOBJECT_ALIGN_TARGET - 1U)); + DUK_DDD(DUK_DDDPRINT("using layout 1, and alignment target is %ld, adjusted e_size: %ld -> %ld", + (long) DUK_HOBJECT_ALIGN_TARGET, (long) new_e_size, (long) new_e_size_adjusted)); + DUK_ASSERT(new_e_size_adjusted >= new_e_size); +#else +#error invalid hobject layout defines +#endif + + /* + * Debug logging after adjustment. + */ + + DUK_DDD(DUK_DDDPRINT("attempt to resize hobject %p props (%ld -> %ld bytes), from {p=%p,e_size=%ld,e_next=%ld,a_size=%ld,h_size=%ld} to " + "{e_size=%ld,a_size=%ld,h_size=%ld}, abandon_array=%ld, unadjusted new_e_size=%ld", + (void *) obj, + (long) DUK_HOBJECT_P_COMPUTE_SIZE(DUK_HOBJECT_GET_ESIZE(obj), + DUK_HOBJECT_GET_ASIZE(obj), + DUK_HOBJECT_GET_HSIZE(obj)), + (long) DUK_HOBJECT_P_COMPUTE_SIZE(new_e_size_adjusted, new_a_size, new_h_size), + (void *) DUK_HOBJECT_GET_PROPS(thr->heap, obj), + (long) DUK_HOBJECT_GET_ESIZE(obj), + (long) DUK_HOBJECT_GET_ENEXT(obj), + (long) DUK_HOBJECT_GET_ASIZE(obj), + (long) DUK_HOBJECT_GET_HSIZE(obj), + (long) new_e_size_adjusted, + (long) new_a_size, + (long) new_h_size, + (long) abandon_array, + (long) new_e_size)); + + /* + * Property count check. This is the only point where we ensure that + * we don't get more (allocated) property space that we can handle. + * There aren't hard limits as such, but some algorithms may fail + * if we get too close to the 4G property limit. + * + * Since this works based on allocation size (not actually used size), + * the limit is a bit approximate but good enough in practice. + */ + + if (new_e_size_adjusted + new_a_size > DUK_HOBJECT_MAX_PROPERTIES) { + DUK_ERROR_ALLOC_FAILED(thr); + DUK_WO_NORETURN(return;); + } +#if defined(DUK_USE_OBJSIZES16) + if (new_e_size_adjusted > DUK_UINT16_MAX || new_a_size > DUK_UINT16_MAX) { + /* If caller gave us sizes larger than what we can store, + * fail memory safely with an internal error rather than + * truncating the sizes. + */ + DUK_ERROR_INTERNAL(thr); + DUK_WO_NORETURN(return;); + } +#endif + + /* + * Compute new alloc size and alloc new area. + * + * The new area is not tracked in the heap at all, so it's critical + * we get to free/keep it in a controlled manner. + */ + +#if defined(DUK_USE_ASSERTIONS) + /* Whole path must be error throw free, but we may be called from + * within error handling so can't assert for error_not_allowed == 0. + */ + prev_error_not_allowed = thr->heap->error_not_allowed; + thr->heap->error_not_allowed = 1; +#endif + prev_ms_base_flags = thr->heap->ms_base_flags; + thr->heap->ms_base_flags |= + DUK_MS_FLAG_NO_OBJECT_COMPACTION; /* Avoid attempt to compact the current object (all objects really). */ + thr->heap->pf_prevent_count++; /* Avoid finalizers. */ + DUK_ASSERT(thr->heap->pf_prevent_count != 0); /* Wrap. */ + + new_alloc_size = DUK_HOBJECT_P_COMPUTE_SIZE(new_e_size_adjusted, new_a_size, new_h_size); + DUK_DDD(DUK_DDDPRINT("new hobject allocation size is %ld", (long) new_alloc_size)); + if (new_alloc_size == 0) { + DUK_ASSERT(new_e_size_adjusted == 0); + DUK_ASSERT(new_a_size == 0); + DUK_ASSERT(new_h_size == 0); + new_p = NULL; + } else { + /* Alloc may trigger mark-and-sweep but no compaction, and + * cannot throw. + */ +#if 0 /* XXX: inject test */ + if (1) { + new_p = NULL; + goto alloc_failed; + } +#endif + new_p = (duk_uint8_t *) DUK_ALLOC(thr->heap, new_alloc_size); + if (new_p == NULL) { + /* NULL always indicates alloc failure because + * new_alloc_size > 0. + */ + goto alloc_failed; + } + } + + /* Set up pointers to the new property area: this is hidden behind a macro + * because it is memory layout specific. + */ + DUK_HOBJECT_P_SET_REALLOC_PTRS(new_p, new_e_k, new_e_pv, new_e_f, new_a, new_h, + new_e_size_adjusted, new_a_size, new_h_size); + DUK_UNREF(new_h); /* happens when hash part dropped */ + new_e_next = 0; + + /* if new_p == NULL, all of these pointers are NULL */ + DUK_ASSERT((new_p != NULL) || + (new_e_k == NULL && new_e_pv == NULL && new_e_f == NULL && + new_a == NULL && new_h == NULL)); + + DUK_DDD(DUK_DDDPRINT("new alloc size %ld, new_e_k=%p, new_e_pv=%p, new_e_f=%p, new_a=%p, new_h=%p", + (long) new_alloc_size, (void *) new_e_k, (void *) new_e_pv, (void *) new_e_f, + (void *) new_a, (void *) new_h)); + + /* + * Migrate array part to start of entries if requested. + * + * Note: from an enumeration perspective the order of entry keys matters. + * Array keys should appear wherever they appeared before the array abandon + * operation. (This no longer matters much because keys are ES2015 sorted.) + */ + + if (abandon_array) { + /* Assuming new_a_size == 0, and that entry part contains + * no conflicting keys, refcounts do not need to be adjusted for + * the values, as they remain exactly the same. + * + * The keys, however, need to be interned, incref'd, and be + * reachable for GC. Any intern attempt may trigger a GC and + * claim any non-reachable strings, so every key must be reachable + * at all times. Refcounts must be correct to satisfy refcount + * assertions. + * + * A longjmp must not occur here, as the new_p allocation would + * leak. Refcounts would come out correctly as the interned + * strings are valstack tracked. + */ + DUK_ASSERT(new_a_size == 0); + + DUK_STATS_INC(thr->heap, stats_object_abandon_array); + + for (i = 0; i < DUK_HOBJECT_GET_ASIZE(obj); i++) { + duk_tval *tv1; + duk_tval *tv2; + duk_hstring *key; + + DUK_ASSERT(DUK_HOBJECT_GET_PROPS(thr->heap, obj) != NULL); + + tv1 = DUK_HOBJECT_A_GET_VALUE_PTR(thr->heap, obj, i); + if (DUK_TVAL_IS_UNUSED(tv1)) { + continue; + } + + DUK_ASSERT(new_p != NULL && new_e_k != NULL && + new_e_pv != NULL && new_e_f != NULL); + + /* + * Intern key via the valstack to ensure reachability behaves + * properly. We must avoid longjmp's here so use non-checked + * primitives. + * + * Note: duk_check_stack() potentially reallocs the valstack, + * invalidating any duk_tval pointers to valstack. Callers + * must be careful. + */ + +#if 0 /* XXX: inject test */ + if (1) { + goto abandon_error; + } +#endif + /* Never shrinks; auto-adds DUK_VALSTACK_INTERNAL_EXTRA, which + * is generous. + */ + if (!duk_check_stack(thr, 1)) { + goto abandon_error; + } + DUK_ASSERT_VALSTACK_SPACE(thr, 1); + key = duk_heap_strtable_intern_u32(thr->heap, (duk_uint32_t) i); + if (key == NULL) { + goto abandon_error; + } + duk_push_hstring(thr, key); /* keep key reachable for GC etc; guaranteed not to fail */ + + /* Key is now reachable in the valstack, don't INCREF + * the new allocation yet (we'll steal the refcounts + * from the value stack once all keys are done). + */ + + new_e_k[new_e_next] = key; + tv2 = &new_e_pv[new_e_next].v; /* array entries are all plain values */ + DUK_TVAL_SET_TVAL(tv2, tv1); + new_e_f[new_e_next] = DUK_PROPDESC_FLAG_WRITABLE | + DUK_PROPDESC_FLAG_ENUMERABLE | + DUK_PROPDESC_FLAG_CONFIGURABLE; + new_e_next++; + + /* Note: new_e_next matches pushed temp key count, and nothing can + * fail above between the push and this point. + */ + } + + /* Steal refcounts from value stack. */ + DUK_DDD(DUK_DDDPRINT("abandon array: pop %ld key temps from valstack", (long) new_e_next)); + duk_pop_n_nodecref_unsafe(thr, (duk_idx_t) new_e_next); + } + + /* + * Copy keys and values in the entry part (compacting them at the same time). + */ + + for (i = 0; i < DUK_HOBJECT_GET_ENEXT(obj); i++) { + duk_hstring *key; + + DUK_ASSERT(DUK_HOBJECT_GET_PROPS(thr->heap, obj) != NULL); + + key = DUK_HOBJECT_E_GET_KEY(thr->heap, obj, i); + if (key == NULL) { + continue; + } + + DUK_ASSERT(new_p != NULL && new_e_k != NULL && + new_e_pv != NULL && new_e_f != NULL); + + new_e_k[new_e_next] = key; + new_e_pv[new_e_next] = DUK_HOBJECT_E_GET_VALUE(thr->heap, obj, i); + new_e_f[new_e_next] = DUK_HOBJECT_E_GET_FLAGS(thr->heap, obj, i); + new_e_next++; + } + /* the entries [new_e_next, new_e_size_adjusted[ are left uninitialized on purpose (ok, not gc reachable) */ + + /* + * Copy array elements to new array part. If the new array part is + * larger, initialize the unused entries as UNUSED because they are + * GC reachable. + */ + +#if defined(DUK_USE_ASSERTIONS) + /* Caller must have decref'd values above new_a_size (if that is necessary). */ + if (!abandon_array) { + for (i = new_a_size; i < DUK_HOBJECT_GET_ASIZE(obj); i++) { + duk_tval *tv; + tv = DUK_HOBJECT_A_GET_VALUE_PTR(thr->heap, obj, i); + DUK_ASSERT(DUK_TVAL_IS_UNUSED(tv)); + } + } +#endif + if (new_a_size > DUK_HOBJECT_GET_ASIZE(obj)) { + array_copy_size = sizeof(duk_tval) * DUK_HOBJECT_GET_ASIZE(obj); + } else { + array_copy_size = sizeof(duk_tval) * new_a_size; + } + + DUK_ASSERT(new_a != NULL || array_copy_size == 0U); + DUK_ASSERT(DUK_HOBJECT_GET_PROPS(thr->heap, obj) != NULL || array_copy_size == 0U); + DUK_ASSERT(DUK_HOBJECT_GET_ASIZE(obj) > 0 || array_copy_size == 0U); + duk_memcpy_unsafe((void *) new_a, + (const void *) DUK_HOBJECT_A_GET_BASE(thr->heap, obj), + array_copy_size); + + for (i = DUK_HOBJECT_GET_ASIZE(obj); i < new_a_size; i++) { + duk_tval *tv = &new_a[i]; + DUK_TVAL_SET_UNUSED(tv); + } + + /* + * Rebuild the hash part always from scratch (guaranteed to finish + * as long as caller gave consistent parameters). + * + * Any resize of hash part requires rehashing. In addition, by rehashing + * get rid of any elements marked deleted (DUK__HASH_DELETED) which is critical + * to ensuring the hash part never fills up. + */ + +#if defined(DUK_USE_HOBJECT_HASH_PART) + if (new_h_size == 0) { + DUK_DDD(DUK_DDDPRINT("no hash part, no rehash")); + } else { + duk_uint32_t mask; + + DUK_ASSERT(new_h != NULL); + + /* fill new_h with u32 0xff = UNUSED */ + DUK_ASSERT(new_h_size > 0); + duk_memset(new_h, 0xff, sizeof(duk_uint32_t) * new_h_size); + + DUK_ASSERT(new_e_next <= new_h_size); /* equality not actually possible */ + + mask = new_h_size - 1; + for (i = 0; i < new_e_next; i++) { + duk_hstring *key = new_e_k[i]; + duk_uint32_t j, step; + + DUK_ASSERT(key != NULL); + j = DUK_HSTRING_GET_HASH(key) & mask; + step = 1; /* Cache friendly but clustering prone. */ + + for (;;) { + DUK_ASSERT(new_h[j] != DUK__HASH_DELETED); /* should never happen */ + if (new_h[j] == DUK__HASH_UNUSED) { + DUK_DDD(DUK_DDDPRINT("rebuild hit %ld -> %ld", (long) j, (long) i)); + new_h[j] = (duk_uint32_t) i; + break; + } + DUK_DDD(DUK_DDDPRINT("rebuild miss %ld, step %ld", (long) j, (long) step)); + j = (j + step) & mask; + + /* Guaranteed to finish (hash is larger than #props). */ + } + } + } +#endif /* DUK_USE_HOBJECT_HASH_PART */ + + /* + * Nice debug log. + */ + + DUK_DD(DUK_DDPRINT("resized hobject %p props (%ld -> %ld bytes), from {p=%p,e_size=%ld,e_next=%ld,a_size=%ld,h_size=%ld} to " + "{p=%p,e_size=%ld,e_next=%ld,a_size=%ld,h_size=%ld}, abandon_array=%ld, unadjusted new_e_size=%ld", + (void *) obj, + (long) DUK_HOBJECT_P_COMPUTE_SIZE(DUK_HOBJECT_GET_ESIZE(obj), + DUK_HOBJECT_GET_ASIZE(obj), + DUK_HOBJECT_GET_HSIZE(obj)), + (long) new_alloc_size, + (void *) DUK_HOBJECT_GET_PROPS(thr->heap, obj), + (long) DUK_HOBJECT_GET_ESIZE(obj), + (long) DUK_HOBJECT_GET_ENEXT(obj), + (long) DUK_HOBJECT_GET_ASIZE(obj), + (long) DUK_HOBJECT_GET_HSIZE(obj), + (void *) new_p, + (long) new_e_size_adjusted, + (long) new_e_next, + (long) new_a_size, + (long) new_h_size, + (long) abandon_array, + (long) new_e_size)); + + /* + * All done, switch properties ('p') allocation to new one. + */ + + DUK_FREE_CHECKED(thr, DUK_HOBJECT_GET_PROPS(thr->heap, obj)); /* NULL obj->p is OK */ + DUK_HOBJECT_SET_PROPS(thr->heap, obj, new_p); + DUK_HOBJECT_SET_ESIZE(obj, new_e_size_adjusted); + DUK_HOBJECT_SET_ENEXT(obj, new_e_next); + DUK_HOBJECT_SET_ASIZE(obj, new_a_size); + DUK_HOBJECT_SET_HSIZE(obj, new_h_size); + + /* Clear array part flag only after switching. */ + if (abandon_array) { + DUK_HOBJECT_CLEAR_ARRAY_PART(obj); + } + + DUK_DDD(DUK_DDDPRINT("resize result: %!O", (duk_heaphdr *) obj)); + + DUK_ASSERT(thr->heap->pf_prevent_count > 0); + thr->heap->pf_prevent_count--; + thr->heap->ms_base_flags = prev_ms_base_flags; +#if defined(DUK_USE_ASSERTIONS) + DUK_ASSERT(thr->heap->error_not_allowed == 1); + thr->heap->error_not_allowed = prev_error_not_allowed; +#endif + + /* + * Post resize assertions. + */ + +#if defined(DUK_USE_ASSERTIONS) + /* XXX: post-checks (such as no duplicate keys) */ +#endif + return; + + /* + * Abandon array failed. We don't need to DECREF anything + * because the references in the new allocation are not + * INCREF'd until abandon is complete. The string interned + * keys are on the value stack and are handled normally by + * unwind. + */ + + abandon_error: + alloc_failed: + DUK_D(DUK_DPRINT("object property table resize failed")); + + DUK_FREE_CHECKED(thr, new_p); /* OK for NULL. */ + + thr->heap->pf_prevent_count--; + thr->heap->ms_base_flags = prev_ms_base_flags; +#if defined(DUK_USE_ASSERTIONS) + DUK_ASSERT(thr->heap->error_not_allowed == 1); + thr->heap->error_not_allowed = prev_error_not_allowed; +#endif + + DUK_ERROR_ALLOC_FAILED(thr); + DUK_WO_NORETURN(return;); +} + +/* + * Helpers to resize properties allocation on specific needs. + */ + +DUK_INTERNAL void duk_hobject_resize_entrypart(duk_hthread *thr, + duk_hobject *obj, + duk_uint32_t new_e_size) { + duk_uint32_t old_e_size; + duk_uint32_t new_a_size; + duk_uint32_t new_h_size; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(obj != NULL); + + old_e_size = DUK_HOBJECT_GET_ESIZE(obj); + if (old_e_size > new_e_size) { + new_e_size = old_e_size; + } +#if defined(DUK_USE_HOBJECT_HASH_PART) + new_h_size = duk__get_default_h_size(new_e_size); +#else + new_h_size = 0; +#endif + new_a_size = DUK_HOBJECT_GET_ASIZE(obj); + + duk_hobject_realloc_props(thr, obj, new_e_size, new_a_size, new_h_size, 0); +} + +/* Grow entry part allocation for one additional entry. */ +DUK_LOCAL void duk__grow_props_for_new_entry_item(duk_hthread *thr, duk_hobject *obj) { + duk_uint32_t old_e_used; /* actually used, non-NULL entries */ + duk_uint32_t new_e_size_minimum; + duk_uint32_t new_e_size; + duk_uint32_t new_a_size; + duk_uint32_t new_h_size; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(obj != NULL); + + /* Duktape 0.11.0 and prior tried to optimize the resize by not + * counting the number of actually used keys prior to the resize. + * This worked mostly well but also caused weird leak-like behavior + * as in: test-bug-object-prop-alloc-unbounded.js. So, now we count + * the keys explicitly to compute the new entry part size. + */ + + old_e_used = duk__count_used_e_keys(thr, obj); + new_e_size_minimum = old_e_used + 1; + new_e_size = old_e_used + duk__get_min_grow_e(old_e_used); +#if defined(DUK_USE_HOBJECT_HASH_PART) + new_h_size = duk__get_default_h_size(new_e_size); +#else + new_h_size = 0; +#endif + new_a_size = DUK_HOBJECT_GET_ASIZE(obj); + +#if defined(DUK_USE_OBJSIZES16) + if (new_e_size > DUK_UINT16_MAX) { + new_e_size = DUK_UINT16_MAX; + } + if (new_h_size > DUK_UINT16_MAX) { + new_h_size = DUK_UINT16_MAX; + } + if (new_a_size > DUK_UINT16_MAX) { + new_a_size = DUK_UINT16_MAX; + } +#endif + DUK_ASSERT(new_h_size == 0 || new_h_size >= new_e_size); + + if (!(new_e_size >= new_e_size_minimum)) { + DUK_ERROR_ALLOC_FAILED(thr); + DUK_WO_NORETURN(return;); + } + + duk_hobject_realloc_props(thr, obj, new_e_size, new_a_size, new_h_size, 0); +} + +/* Grow array part for a new highest array index. */ +DUK_LOCAL void duk__grow_props_for_array_item(duk_hthread *thr, duk_hobject *obj, duk_uint32_t highest_arr_idx) { + duk_uint32_t new_e_size; + duk_uint32_t new_a_size; + duk_uint32_t new_a_size_minimum; + duk_uint32_t new_h_size; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(obj != NULL); + DUK_ASSERT(highest_arr_idx >= DUK_HOBJECT_GET_ASIZE(obj)); + + new_e_size = DUK_HOBJECT_GET_ESIZE(obj); + new_h_size = DUK_HOBJECT_GET_HSIZE(obj); + new_a_size_minimum = highest_arr_idx + 1; + new_a_size = highest_arr_idx + duk__get_min_grow_a(highest_arr_idx); + DUK_ASSERT(new_a_size >= highest_arr_idx + 1); /* duk__get_min_grow_a() is always >= 1 */ + +#if defined(DUK_USE_OBJSIZES16) + if (new_e_size > DUK_UINT16_MAX) { + new_e_size = DUK_UINT16_MAX; + } + if (new_h_size > DUK_UINT16_MAX) { + new_h_size = DUK_UINT16_MAX; + } + if (new_a_size > DUK_UINT16_MAX) { + new_a_size = DUK_UINT16_MAX; + } +#endif + + if (!(new_a_size >= new_a_size_minimum)) { + DUK_ERROR_ALLOC_FAILED(thr); + DUK_WO_NORETURN(return;); + } + + duk_hobject_realloc_props(thr, obj, new_e_size, new_a_size, new_h_size, 0); +} + +/* Abandon array part, moving array entries into entries part. + * This requires a props resize, which is a heavy operation. + * We also compact the entries part while we're at it, although + * this is not strictly required. + */ +DUK_LOCAL void duk__abandon_array_part(duk_hthread *thr, duk_hobject *obj) { + duk_uint32_t new_e_size_minimum; + duk_uint32_t new_e_size; + duk_uint32_t new_a_size; + duk_uint32_t new_h_size; + duk_uint32_t e_used; /* actually used, non-NULL keys */ + duk_uint32_t a_used; + duk_uint32_t a_size; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(obj != NULL); + + e_used = duk__count_used_e_keys(thr, obj); + duk__compute_a_stats(thr, obj, &a_used, &a_size); + + /* + * Must guarantee all actually used array entries will fit into + * new entry part. Add one growth step to ensure we don't run out + * of space right away. + */ + + new_e_size_minimum = e_used + a_used; + new_e_size = new_e_size_minimum + duk__get_min_grow_e(new_e_size_minimum); + new_a_size = 0; +#if defined(DUK_USE_HOBJECT_HASH_PART) + new_h_size = duk__get_default_h_size(new_e_size); +#else + new_h_size = 0; +#endif + +#if defined(DUK_USE_OBJSIZES16) + if (new_e_size > DUK_UINT16_MAX) { + new_e_size = DUK_UINT16_MAX; + } + if (new_h_size > DUK_UINT16_MAX) { + new_h_size = DUK_UINT16_MAX; + } + if (new_a_size > DUK_UINT16_MAX) { + new_a_size = DUK_UINT16_MAX; + } +#endif + + if (!(new_e_size >= new_e_size_minimum)) { + DUK_ERROR_ALLOC_FAILED(thr); + DUK_WO_NORETURN(return;); + } + + DUK_DD(DUK_DDPRINT("abandon array part for hobject %p, " + "array stats before: e_used=%ld, a_used=%ld, a_size=%ld; " + "resize to e_size=%ld, a_size=%ld, h_size=%ld", + (void *) obj, (long) e_used, (long) a_used, (long) a_size, + (long) new_e_size, (long) new_a_size, (long) new_h_size)); + + duk_hobject_realloc_props(thr, obj, new_e_size, new_a_size, new_h_size, 1); +} + +/* + * Compact an object. Minimizes allocation size for objects which are + * not likely to be extended. This is useful for internal and non- + * extensible objects, but can also be called for non-extensible objects. + * May abandon the array part if it is computed to be too sparse. + * + * This call is relatively expensive, as it needs to scan both the + * entries and the array part. + * + * The call may fail due to allocation error. + */ + +DUK_INTERNAL void duk_hobject_compact_props(duk_hthread *thr, duk_hobject *obj) { + duk_uint32_t e_size; /* currently used -> new size */ + duk_uint32_t a_size; /* currently required */ + duk_uint32_t a_used; /* actually used */ + duk_uint32_t h_size; + duk_bool_t abandon_array; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(obj != NULL); + +#if defined(DUK_USE_ROM_OBJECTS) + if (DUK_HEAPHDR_HAS_READONLY((duk_heaphdr *) obj)) { + DUK_DD(DUK_DDPRINT("ignore attempt to compact a rom object")); + return; + } +#endif + + e_size = duk__count_used_e_keys(thr, obj); + duk__compute_a_stats(thr, obj, &a_used, &a_size); + + DUK_DD(DUK_DDPRINT("compacting hobject, used e keys %ld, used a keys %ld, min a size %ld, " + "resized array density would be: %ld/%ld = %lf", + (long) e_size, (long) a_used, (long) a_size, + (long) a_used, (long) a_size, + (double) a_used / (double) a_size)); + + if (duk__abandon_array_density_check(a_used, a_size)) { + DUK_DD(DUK_DDPRINT("decided to abandon array during compaction, a_used=%ld, a_size=%ld", + (long) a_used, (long) a_size)); + abandon_array = 1; + e_size += a_used; + a_size = 0; + } else { + DUK_DD(DUK_DDPRINT("decided to keep array during compaction")); + abandon_array = 0; + } + +#if defined(DUK_USE_HOBJECT_HASH_PART) + if (e_size >= DUK_USE_HOBJECT_HASH_PROP_LIMIT) { + h_size = duk__get_default_h_size(e_size); + } else { + h_size = 0; + } +#else + h_size = 0; +#endif + + DUK_DD(DUK_DDPRINT("compacting hobject -> new e_size %ld, new a_size=%ld, new h_size=%ld, abandon_array=%ld", + (long) e_size, (long) a_size, (long) h_size, (long) abandon_array)); + + duk_hobject_realloc_props(thr, obj, e_size, a_size, h_size, abandon_array); +} + +/* + * Find an existing key from entry part either by linear scan or by + * using the hash index (if it exists). + * + * Sets entry index (and possibly the hash index) to output variables, + * which allows the caller to update the entry and hash entries in-place. + * If entry is not found, both values are set to -1. If entry is found + * but there is no hash part, h_idx is set to -1. + */ + +DUK_INTERNAL duk_bool_t duk_hobject_find_entry(duk_heap *heap, duk_hobject *obj, duk_hstring *key, duk_int_t *e_idx, duk_int_t *h_idx) { + DUK_ASSERT(obj != NULL); + DUK_ASSERT(key != NULL); + DUK_ASSERT(e_idx != NULL); + DUK_ASSERT(h_idx != NULL); + DUK_UNREF(heap); + + if (DUK_LIKELY(DUK_HOBJECT_GET_HSIZE(obj) == 0)) + { + /* Linear scan: more likely because most objects are small. + * This is an important fast path. + * + * XXX: this might be worth inlining for property lookups. + */ + duk_uint_fast32_t i; + duk_uint_fast32_t n; + duk_hstring **h_keys_base; + DUK_DDD(DUK_DDDPRINT("duk_hobject_find_entry() using linear scan for lookup")); + + h_keys_base = DUK_HOBJECT_E_GET_KEY_BASE(heap, obj); + n = DUK_HOBJECT_GET_ENEXT(obj); + for (i = 0; i < n; i++) { + if (h_keys_base[i] == key) { + *e_idx = (duk_int_t) i; + *h_idx = -1; + return 1; + } + } + } +#if defined(DUK_USE_HOBJECT_HASH_PART) + else + { + /* hash lookup */ + duk_uint32_t n; + duk_uint32_t i, step; + duk_uint32_t *h_base; + duk_uint32_t mask; + + DUK_DDD(DUK_DDDPRINT("duk_hobject_find_entry() using hash part for lookup")); + + h_base = DUK_HOBJECT_H_GET_BASE(heap, obj); + n = DUK_HOBJECT_GET_HSIZE(obj); + mask = n - 1; + i = DUK_HSTRING_GET_HASH(key) & mask; + step = 1; /* Cache friendly but clustering prone. */ + + for (;;) { + duk_uint32_t t; + + DUK_ASSERT_DISABLE(i >= 0); /* unsigned */ + DUK_ASSERT(i < DUK_HOBJECT_GET_HSIZE(obj)); + t = h_base[i]; + DUK_ASSERT(t == DUK__HASH_UNUSED || t == DUK__HASH_DELETED || + (t < DUK_HOBJECT_GET_ESIZE(obj))); /* t >= 0 always true, unsigned */ + + if (t == DUK__HASH_UNUSED) { + break; + } else if (t == DUK__HASH_DELETED) { + DUK_DDD(DUK_DDDPRINT("lookup miss (deleted) i=%ld, t=%ld", + (long) i, (long) t)); + } else { + DUK_ASSERT(t < DUK_HOBJECT_GET_ESIZE(obj)); + if (DUK_HOBJECT_E_GET_KEY(heap, obj, t) == key) { + DUK_DDD(DUK_DDDPRINT("lookup hit i=%ld, t=%ld -> key %p", + (long) i, (long) t, (void *) key)); + *e_idx = (duk_int_t) t; + *h_idx = (duk_int_t) i; + return 1; + } + DUK_DDD(DUK_DDDPRINT("lookup miss i=%ld, t=%ld", + (long) i, (long) t)); + } + i = (i + step) & mask; + + /* Guaranteed to finish (hash is larger than #props). */ + } + } +#endif /* DUK_USE_HOBJECT_HASH_PART */ + + /* Not found, leave e_idx and h_idx unset. */ + return 0; +} + +/* For internal use: get non-accessor entry value */ +DUK_INTERNAL duk_tval *duk_hobject_find_entry_tval_ptr(duk_heap *heap, duk_hobject *obj, duk_hstring *key) { + duk_int_t e_idx; + duk_int_t h_idx; + + DUK_ASSERT(obj != NULL); + DUK_ASSERT(key != NULL); + DUK_UNREF(heap); + + if (duk_hobject_find_entry(heap, obj, key, &e_idx, &h_idx)) { + DUK_ASSERT(e_idx >= 0); + if (!DUK_HOBJECT_E_SLOT_IS_ACCESSOR(heap, obj, e_idx)) { + return DUK_HOBJECT_E_GET_VALUE_TVAL_PTR(heap, obj, e_idx); + } + } + return NULL; +} + +DUK_INTERNAL duk_tval *duk_hobject_find_entry_tval_ptr_stridx(duk_heap *heap, duk_hobject *obj, duk_small_uint_t stridx) { + return duk_hobject_find_entry_tval_ptr(heap, obj, DUK_HEAP_GET_STRING(heap, stridx)); +} + +/* For internal use: get non-accessor entry value and attributes */ +DUK_INTERNAL duk_tval *duk_hobject_find_entry_tval_ptr_and_attrs(duk_heap *heap, duk_hobject *obj, duk_hstring *key, duk_uint_t *out_attrs) { + duk_int_t e_idx; + duk_int_t h_idx; + + DUK_ASSERT(obj != NULL); + DUK_ASSERT(key != NULL); + DUK_ASSERT(out_attrs != NULL); + DUK_UNREF(heap); + + if (duk_hobject_find_entry(heap, obj, key, &e_idx, &h_idx)) { + DUK_ASSERT(e_idx >= 0); + if (!DUK_HOBJECT_E_SLOT_IS_ACCESSOR(heap, obj, e_idx)) { + *out_attrs = DUK_HOBJECT_E_GET_FLAGS(heap, obj, e_idx); + return DUK_HOBJECT_E_GET_VALUE_TVAL_PTR(heap, obj, e_idx); + } + } + /* If not found, out_attrs is left unset. */ + return NULL; +} + +/* For internal use: get array part value */ +DUK_INTERNAL duk_tval *duk_hobject_find_array_entry_tval_ptr(duk_heap *heap, duk_hobject *obj, duk_uarridx_t i) { + duk_tval *tv; + + DUK_ASSERT(obj != NULL); + DUK_UNREF(heap); + + if (!DUK_HOBJECT_HAS_ARRAY_PART(obj)) { + return NULL; + } + if (i >= DUK_HOBJECT_GET_ASIZE(obj)) { + return NULL; + } + tv = DUK_HOBJECT_A_GET_VALUE_PTR(heap, obj, i); + return tv; +} + +/* + * Allocate and initialize a new entry, resizing the properties allocation + * if necessary. Returns entry index (e_idx) or throws an error if alloc fails. + * + * Sets the key of the entry (increasing the key's refcount), and updates + * the hash part if it exists. Caller must set value and flags, and update + * the entry value refcount. A decref for the previous value is not necessary. + */ + +DUK_LOCAL duk_int_t duk__hobject_alloc_entry_checked(duk_hthread *thr, duk_hobject *obj, duk_hstring *key) { + duk_uint32_t idx; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(obj != NULL); + DUK_ASSERT(key != NULL); + DUK_ASSERT(DUK_HOBJECT_GET_ENEXT(obj) <= DUK_HOBJECT_GET_ESIZE(obj)); + +#if defined(DUK_USE_ASSERTIONS) + /* key must not already exist in entry part */ + { + duk_uint_fast32_t i; + for (i = 0; i < DUK_HOBJECT_GET_ENEXT(obj); i++) { + DUK_ASSERT(DUK_HOBJECT_E_GET_KEY(thr->heap, obj, i) != key); + } + } +#endif + + if (DUK_HOBJECT_GET_ENEXT(obj) >= DUK_HOBJECT_GET_ESIZE(obj)) { + /* only need to guarantee 1 more slot, but allocation growth is in chunks */ + DUK_DDD(DUK_DDDPRINT("entry part full, allocate space for one more entry")); + duk__grow_props_for_new_entry_item(thr, obj); + } + DUK_ASSERT(DUK_HOBJECT_GET_ENEXT(obj) < DUK_HOBJECT_GET_ESIZE(obj)); + idx = DUK_HOBJECT_POSTINC_ENEXT(obj); + + /* previous value is assumed to be garbage, so don't touch it */ + DUK_HOBJECT_E_SET_KEY(thr->heap, obj, idx, key); + DUK_HSTRING_INCREF(thr, key); + +#if defined(DUK_USE_HOBJECT_HASH_PART) + if (DUK_UNLIKELY(DUK_HOBJECT_GET_HSIZE(obj) > 0)) { + duk_uint32_t n, mask; + duk_uint32_t i, step; + duk_uint32_t *h_base = DUK_HOBJECT_H_GET_BASE(thr->heap, obj); + + n = DUK_HOBJECT_GET_HSIZE(obj); + mask = n - 1; + i = DUK_HSTRING_GET_HASH(key) & mask; + step = 1; /* Cache friendly but clustering prone. */ + + for (;;) { + duk_uint32_t t = h_base[i]; + if (t == DUK__HASH_UNUSED || t == DUK__HASH_DELETED) { + DUK_DDD(DUK_DDDPRINT("duk__hobject_alloc_entry_checked() inserted key into hash part, %ld -> %ld", + (long) i, (long) idx)); + DUK_ASSERT_DISABLE(i >= 0); /* unsigned */ + DUK_ASSERT(i < DUK_HOBJECT_GET_HSIZE(obj)); + DUK_ASSERT_DISABLE(idx >= 0); + DUK_ASSERT(idx < DUK_HOBJECT_GET_ESIZE(obj)); + h_base[i] = idx; + break; + } + DUK_DDD(DUK_DDDPRINT("duk__hobject_alloc_entry_checked() miss %ld", (long) i)); + i = (i + step) & mask; + + /* Guaranteed to finish (hash is larger than #props). */ + } + } +#endif /* DUK_USE_HOBJECT_HASH_PART */ + + /* Note: we could return the hash index here too, but it's not + * needed right now. + */ + + DUK_ASSERT_DISABLE(idx >= 0); + DUK_ASSERT(idx < DUK_HOBJECT_GET_ESIZE(obj)); + DUK_ASSERT(idx < DUK_HOBJECT_GET_ENEXT(obj)); + return (duk_int_t) idx; +} + +/* + * Object internal value + * + * Returned value is guaranteed to be reachable / incref'd, caller does not need + * to incref OR decref. No proxies or accessors are invoked, no prototype walk. + */ + +DUK_INTERNAL duk_tval *duk_hobject_get_internal_value_tval_ptr(duk_heap *heap, duk_hobject *obj) { + return duk_hobject_find_entry_tval_ptr_stridx(heap, obj, DUK_STRIDX_INT_VALUE); +} + +DUK_LOCAL duk_heaphdr *duk_hobject_get_internal_value_heaphdr(duk_heap *heap, duk_hobject *obj) { + duk_tval *tv; + + DUK_ASSERT(heap != NULL); + DUK_ASSERT(obj != NULL); + + tv = duk_hobject_get_internal_value_tval_ptr(heap, obj); + if (tv != NULL) { + duk_heaphdr *h = DUK_TVAL_GET_HEAPHDR(tv); + DUK_ASSERT(h != NULL); + return h; + } + + return NULL; +} + +DUK_INTERNAL duk_hstring *duk_hobject_get_internal_value_string(duk_heap *heap, duk_hobject *obj) { + duk_hstring *h; + + h = (duk_hstring *) duk_hobject_get_internal_value_heaphdr(heap, obj); + if (h != NULL) { + DUK_ASSERT(DUK_HEAPHDR_IS_STRING((duk_heaphdr *) h)); + } + return h; +} + +DUK_LOCAL duk_hobject *duk__hobject_get_entry_object_stridx(duk_heap *heap, duk_hobject *obj, duk_small_uint_t stridx) { + duk_tval *tv; + duk_hobject *h; + + tv = duk_hobject_find_entry_tval_ptr_stridx(heap, obj, stridx); + if (tv != NULL && DUK_TVAL_IS_OBJECT(tv)) { + h = DUK_TVAL_GET_OBJECT(tv); + DUK_ASSERT(h != NULL); + return h; + } + return NULL; +} + +DUK_INTERNAL duk_harray *duk_hobject_get_formals(duk_hthread *thr, duk_hobject *obj) { + duk_harray *h; + + h = (duk_harray *) duk__hobject_get_entry_object_stridx(thr->heap, obj, DUK_STRIDX_INT_FORMALS); + if (h != NULL) { + DUK_ASSERT(DUK_HOBJECT_IS_ARRAY((duk_hobject *) h)); + DUK_ASSERT(h->length <= DUK_HOBJECT_GET_ASIZE((duk_hobject *) h)); + } + return h; +} + +DUK_INTERNAL duk_hobject *duk_hobject_get_varmap(duk_hthread *thr, duk_hobject *obj) { + duk_hobject *h; + + h = duk__hobject_get_entry_object_stridx(thr->heap, obj, DUK_STRIDX_INT_VARMAP); + return h; +} + +/* + * Arguments handling helpers (argument map mainly). + * + * An arguments object has exotic behavior for some numeric indices. + * Accesses may translate to identifier operations which may have + * arbitrary side effects (potentially invalidating any duk_tval + * pointers). + */ + +/* Lookup 'key' from arguments internal 'map', perform a variable lookup + * if mapped, and leave the result on top of stack (and return non-zero). + * Used in E5 Section 10.6 algorithms [[Get]] and [[GetOwnProperty]]. + */ +DUK_LOCAL +duk_bool_t duk__lookup_arguments_map(duk_hthread *thr, + duk_hobject *obj, + duk_hstring *key, + duk_propdesc *temp_desc, + duk_hobject **out_map, + duk_hobject **out_varenv) { + duk_hobject *map; + duk_hobject *varenv; + duk_bool_t rc; + + DUK_ASSERT_VALSTACK_SPACE(thr, DUK__VALSTACK_SPACE); + + DUK_DDD(DUK_DDDPRINT("arguments map lookup: thr=%p, obj=%p, key=%p, temp_desc=%p " + "(obj -> %!O, key -> %!O)", + (void *) thr, (void *) obj, (void *) key, (void *) temp_desc, + (duk_heaphdr *) obj, (duk_heaphdr *) key)); + + if (!duk_hobject_get_own_propdesc(thr, obj, DUK_HTHREAD_STRING_INT_MAP(thr), temp_desc, DUK_GETDESC_FLAG_PUSH_VALUE)) { + DUK_DDD(DUK_DDDPRINT("-> no 'map'")); + return 0; + } + + map = duk_require_hobject(thr, -1); + DUK_ASSERT(map != NULL); + duk_pop_unsafe(thr); /* map is reachable through obj */ + + if (!duk_hobject_get_own_propdesc(thr, map, key, temp_desc, DUK_GETDESC_FLAG_PUSH_VALUE)) { + DUK_DDD(DUK_DDDPRINT("-> 'map' exists, but key not in map")); + return 0; + } + + /* [... varname] */ + DUK_DDD(DUK_DDDPRINT("-> 'map' exists, and contains key, key is mapped to argument/variable binding %!T", + (duk_tval *) duk_get_tval(thr, -1))); + DUK_ASSERT(duk_is_string(thr, -1)); /* guaranteed when building arguments */ + + /* get varenv for varname (callee's declarative lexical environment) */ + rc = duk_hobject_get_own_propdesc(thr, obj, DUK_HTHREAD_STRING_INT_VARENV(thr), temp_desc, DUK_GETDESC_FLAG_PUSH_VALUE); + DUK_UNREF(rc); + DUK_ASSERT(rc != 0); /* arguments MUST have an initialized lexical environment reference */ + varenv = duk_require_hobject(thr, -1); + DUK_ASSERT(varenv != NULL); + duk_pop_unsafe(thr); /* varenv remains reachable through 'obj' */ + + DUK_DDD(DUK_DDDPRINT("arguments varenv is: %!dO", (duk_heaphdr *) varenv)); + + /* success: leave varname in stack */ + *out_map = map; + *out_varenv = varenv; + return 1; /* [... varname] */ +} + +/* Lookup 'key' from arguments internal 'map', and leave replacement value + * on stack top if mapped (and return non-zero). + * Used in E5 Section 10.6 algorithm for [[GetOwnProperty]] (used by [[Get]]). + */ +DUK_LOCAL duk_bool_t duk__check_arguments_map_for_get(duk_hthread *thr, duk_hobject *obj, duk_hstring *key, duk_propdesc *temp_desc) { + duk_hobject *map; + duk_hobject *varenv; + duk_hstring *varname; + + DUK_ASSERT_VALSTACK_SPACE(thr, DUK__VALSTACK_SPACE); + + if (!duk__lookup_arguments_map(thr, obj, key, temp_desc, &map, &varenv)) { + DUK_DDD(DUK_DDDPRINT("arguments: key not mapped, no exotic get behavior")); + return 0; + } + + /* [... varname] */ + + varname = duk_require_hstring(thr, -1); + DUK_ASSERT(varname != NULL); + duk_pop_unsafe(thr); /* varname is still reachable */ + + DUK_DDD(DUK_DDDPRINT("arguments object automatic getvar for a bound variable; " + "key=%!O, varname=%!O", + (duk_heaphdr *) key, + (duk_heaphdr *) varname)); + + (void) duk_js_getvar_envrec(thr, varenv, varname, 1 /*throw*/); + + /* [... value this_binding] */ + + duk_pop_unsafe(thr); + + /* leave result on stack top */ + return 1; +} + +/* Lookup 'key' from arguments internal 'map', perform a variable write if mapped. + * Used in E5 Section 10.6 algorithm for [[DefineOwnProperty]] (used by [[Put]]). + * Assumes stack top contains 'put' value (which is NOT popped). + */ +DUK_LOCAL void duk__check_arguments_map_for_put(duk_hthread *thr, duk_hobject *obj, duk_hstring *key, duk_propdesc *temp_desc, duk_bool_t throw_flag) { + duk_hobject *map; + duk_hobject *varenv; + duk_hstring *varname; + + DUK_ASSERT_VALSTACK_SPACE(thr, DUK__VALSTACK_SPACE); + + if (!duk__lookup_arguments_map(thr, obj, key, temp_desc, &map, &varenv)) { + DUK_DDD(DUK_DDDPRINT("arguments: key not mapped, no exotic put behavior")); + return; + } + + /* [... put_value varname] */ + + varname = duk_require_hstring(thr, -1); + DUK_ASSERT(varname != NULL); + duk_pop_unsafe(thr); /* varname is still reachable */ + + DUK_DDD(DUK_DDDPRINT("arguments object automatic putvar for a bound variable; " + "key=%!O, varname=%!O, value=%!T", + (duk_heaphdr *) key, + (duk_heaphdr *) varname, + (duk_tval *) duk_require_tval(thr, -1))); + + /* [... put_value] */ + + /* + * Note: although arguments object variable mappings are only established + * for non-strict functions (and a call to a non-strict function created + * the arguments object in question), an inner strict function may be doing + * the actual property write. Hence the throw_flag applied here comes from + * the property write call. + */ + + duk_js_putvar_envrec(thr, varenv, varname, duk_require_tval(thr, -1), throw_flag); + + /* [... put_value] */ +} + +/* Lookup 'key' from arguments internal 'map', delete mapping if found. + * Used in E5 Section 10.6 algorithm for [[Delete]]. Note that the + * variable/argument itself (where the map points) is not deleted. + */ +DUK_LOCAL void duk__check_arguments_map_for_delete(duk_hthread *thr, duk_hobject *obj, duk_hstring *key, duk_propdesc *temp_desc) { + duk_hobject *map; + + DUK_ASSERT_VALSTACK_SPACE(thr, DUK__VALSTACK_SPACE); + + if (!duk_hobject_get_own_propdesc(thr, obj, DUK_HTHREAD_STRING_INT_MAP(thr), temp_desc, DUK_GETDESC_FLAG_PUSH_VALUE)) { + DUK_DDD(DUK_DDDPRINT("arguments: key not mapped, no exotic delete behavior")); + return; + } + + map = duk_require_hobject(thr, -1); + DUK_ASSERT(map != NULL); + duk_pop_unsafe(thr); /* map is reachable through obj */ + + DUK_DDD(DUK_DDDPRINT("-> have 'map', delete key %!O from map (if exists)); ignore result", + (duk_heaphdr *) key)); + + /* Note: no recursion issue, we can trust 'map' to behave */ + DUK_ASSERT(!DUK_HOBJECT_HAS_EXOTIC_BEHAVIOR(map)); + DUK_DDD(DUK_DDDPRINT("map before deletion: %!O", (duk_heaphdr *) map)); + (void) duk_hobject_delprop_raw(thr, map, key, 0); /* ignore result */ + DUK_DDD(DUK_DDDPRINT("map after deletion: %!O", (duk_heaphdr *) map)); +} + +/* + * ECMAScript compliant [[GetOwnProperty]](P), for internal use only. + * + * If property is found: + * - Fills descriptor fields to 'out_desc' + * - If DUK_GETDESC_FLAG_PUSH_VALUE is set, pushes a value related to the + * property onto the stack ('undefined' for accessor properties). + * - Returns non-zero + * + * If property is not found: + * - 'out_desc' is left in untouched state (possibly garbage) + * - Nothing is pushed onto the stack (not even with DUK_GETDESC_FLAG_PUSH_VALUE + * set) + * - Returns zero + * + * Notes: + * + * - Getting a property descriptor may cause an allocation (and hence + * GC) to take place, hence reachability and refcount of all related + * values matter. Reallocation of value stack, properties, etc may + * invalidate many duk_tval pointers (concretely, those which reside + * in memory areas subject to reallocation). However, heap object + * pointers are never affected (heap objects have stable pointers). + * + * - The value of a plain property is always reachable and has a non-zero + * reference count. + * + * - The value of a virtual property is not necessarily reachable from + * elsewhere and may have a refcount of zero. Hence we push it onto + * the valstack for the caller, which ensures it remains reachable + * while it is needed. + * + * - There are no virtual accessor properties. Hence, all getters and + * setters are always related to concretely stored properties, which + * ensures that the get/set functions in the resulting descriptor are + * reachable and have non-zero refcounts. Should there be virtual + * accessor properties later, this would need to change. + */ + +DUK_LOCAL duk_bool_t duk__get_own_propdesc_raw(duk_hthread *thr, duk_hobject *obj, duk_hstring *key, duk_uint32_t arr_idx, duk_propdesc *out_desc, duk_small_uint_t flags) { + duk_tval *tv; + + DUK_DDD(DUK_DDDPRINT("duk_hobject_get_own_propdesc: thr=%p, obj=%p, key=%p, out_desc=%p, flags=%lx, " + "arr_idx=%ld (obj -> %!O, key -> %!O)", + (void *) thr, (void *) obj, (void *) key, (void *) out_desc, + (long) flags, (long) arr_idx, + (duk_heaphdr *) obj, (duk_heaphdr *) key)); + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(thr->heap != NULL); + DUK_ASSERT(obj != NULL); + DUK_ASSERT(key != NULL); + DUK_ASSERT(out_desc != NULL); + DUK_ASSERT_VALSTACK_SPACE(thr, DUK__VALSTACK_SPACE); + + DUK_STATS_INC(thr->heap, stats_getownpropdesc_count); + + /* Each code path returning 1 (= found) must fill in all the output + * descriptor fields. We don't do it beforehand because it'd be + * unnecessary work if the property isn't found and would happen + * multiple times for an inheritance chain. + */ + DUK_ASSERT_SET_GARBAGE(out_desc, sizeof(*out_desc)); +#if 0 + out_desc->flags = 0; + out_desc->get = NULL; + out_desc->set = NULL; + out_desc->e_idx = -1; + out_desc->h_idx = -1; + out_desc->a_idx = -1; +#endif + + /* + * Try entries part first because it's the common case. + * + * Array part lookups are usually handled by the array fast path, and + * are not usually inherited. Array and entry parts never contain the + * same keys so the entry part vs. array part order doesn't matter. + */ + + if (duk_hobject_find_entry(thr->heap, obj, key, &out_desc->e_idx, &out_desc->h_idx)) { + duk_int_t e_idx = out_desc->e_idx; + DUK_ASSERT(out_desc->e_idx >= 0); + out_desc->a_idx = -1; + out_desc->flags = DUK_HOBJECT_E_GET_FLAGS(thr->heap, obj, e_idx); + out_desc->get = NULL; + out_desc->set = NULL; + if (DUK_UNLIKELY(out_desc->flags & DUK_PROPDESC_FLAG_ACCESSOR)) { + DUK_DDD(DUK_DDDPRINT("-> found accessor property in entry part")); + out_desc->get = DUK_HOBJECT_E_GET_VALUE_GETTER(thr->heap, obj, e_idx); + out_desc->set = DUK_HOBJECT_E_GET_VALUE_SETTER(thr->heap, obj, e_idx); + if (flags & DUK_GETDESC_FLAG_PUSH_VALUE) { + /* a dummy undefined value is pushed to make valstack + * behavior uniform for caller + */ + duk_push_undefined(thr); + } + } else { + DUK_DDD(DUK_DDDPRINT("-> found plain property in entry part")); + tv = DUK_HOBJECT_E_GET_VALUE_TVAL_PTR(thr->heap, obj, e_idx); + if (flags & DUK_GETDESC_FLAG_PUSH_VALUE) { + duk_push_tval(thr, tv); + } + } + goto prop_found; + } + + /* + * Try array part. + */ + + if (DUK_HOBJECT_HAS_ARRAY_PART(obj) && arr_idx != DUK__NO_ARRAY_INDEX) { + if (arr_idx < DUK_HOBJECT_GET_ASIZE(obj)) { + tv = DUK_HOBJECT_A_GET_VALUE_PTR(thr->heap, obj, arr_idx); + if (!DUK_TVAL_IS_UNUSED(tv)) { + DUK_DDD(DUK_DDDPRINT("-> found in array part")); + if (flags & DUK_GETDESC_FLAG_PUSH_VALUE) { + duk_push_tval(thr, tv); + } + /* implicit attributes */ + out_desc->flags = DUK_PROPDESC_FLAG_WRITABLE | + DUK_PROPDESC_FLAG_CONFIGURABLE | + DUK_PROPDESC_FLAG_ENUMERABLE; + out_desc->get = NULL; + out_desc->set = NULL; + out_desc->e_idx = -1; + out_desc->h_idx = -1; + out_desc->a_idx = (duk_int_t) arr_idx; /* XXX: limit 2G due to being signed */ + goto prop_found; + } + } + } + + DUK_DDD(DUK_DDDPRINT("-> not found as a concrete property")); + + /* + * Not found as a concrete property, check for virtual properties. + */ + + if (!DUK_HOBJECT_HAS_VIRTUAL_PROPERTIES(obj)) { + /* Quick skip. */ + goto prop_not_found; + } + + if (DUK_HOBJECT_HAS_EXOTIC_ARRAY(obj)) { + duk_harray *a; + + DUK_DDD(DUK_DDDPRINT("array object exotic property get for key: %!O, arr_idx: %ld", + (duk_heaphdr *) key, (long) arr_idx)); + + a = (duk_harray *) obj; + DUK_HARRAY_ASSERT_VALID(a); + + if (key == DUK_HTHREAD_STRING_LENGTH(thr)) { + DUK_DDD(DUK_DDDPRINT("-> found, key is 'length', length exotic behavior")); + + if (flags & DUK_GETDESC_FLAG_PUSH_VALUE) { + duk_push_uint(thr, (duk_uint_t) a->length); + } + out_desc->flags = DUK_PROPDESC_FLAG_VIRTUAL; + if (DUK_HARRAY_LENGTH_WRITABLE(a)) { + out_desc->flags |= DUK_PROPDESC_FLAG_WRITABLE; + } + out_desc->get = NULL; + out_desc->set = NULL; + out_desc->e_idx = -1; + out_desc->h_idx = -1; + out_desc->a_idx = -1; + + DUK_ASSERT(!DUK_HOBJECT_HAS_EXOTIC_ARGUMENTS(obj)); + goto prop_found_noexotic; /* cannot be arguments exotic */ + } + } else if (DUK_HOBJECT_HAS_EXOTIC_STRINGOBJ(obj)) { + DUK_DDD(DUK_DDDPRINT("string object exotic property get for key: %!O, arr_idx: %ld", + (duk_heaphdr *) key, (long) arr_idx)); + + /* XXX: charlen; avoid multiple lookups? */ + + if (arr_idx != DUK__NO_ARRAY_INDEX) { + duk_hstring *h_val; + + DUK_DDD(DUK_DDDPRINT("array index exists")); + + h_val = duk_hobject_get_internal_value_string(thr->heap, obj); + DUK_ASSERT(h_val); + if (arr_idx < DUK_HSTRING_GET_CHARLEN(h_val)) { + DUK_DDD(DUK_DDDPRINT("-> found, array index inside string")); + if (flags & DUK_GETDESC_FLAG_PUSH_VALUE) { + duk_push_hstring(thr, h_val); + duk_substring(thr, -1, arr_idx, arr_idx + 1); /* [str] -> [substr] */ + } + out_desc->flags = DUK_PROPDESC_FLAG_ENUMERABLE | /* E5 Section 15.5.5.2 */ + DUK_PROPDESC_FLAG_VIRTUAL; + out_desc->get = NULL; + out_desc->set = NULL; + out_desc->e_idx = -1; + out_desc->h_idx = -1; + out_desc->a_idx = -1; + + DUK_ASSERT(!DUK_HOBJECT_HAS_EXOTIC_ARGUMENTS(obj)); + goto prop_found_noexotic; /* cannot be arguments exotic */ + } else { + /* index is above internal string length -> property is fully normal */ + DUK_DDD(DUK_DDDPRINT("array index outside string -> normal property")); + } + } else if (key == DUK_HTHREAD_STRING_LENGTH(thr)) { + duk_hstring *h_val; + + DUK_DDD(DUK_DDDPRINT("-> found, key is 'length', length exotic behavior")); + + h_val = duk_hobject_get_internal_value_string(thr->heap, obj); + DUK_ASSERT(h_val != NULL); + if (flags & DUK_GETDESC_FLAG_PUSH_VALUE) { + duk_push_uint(thr, (duk_uint_t) DUK_HSTRING_GET_CHARLEN(h_val)); + } + out_desc->flags = DUK_PROPDESC_FLAG_VIRTUAL; /* E5 Section 15.5.5.1 */ + out_desc->get = NULL; + out_desc->set = NULL; + out_desc->e_idx = -1; + out_desc->h_idx = -1; + out_desc->a_idx = -1; + + DUK_ASSERT(!DUK_HOBJECT_HAS_EXOTIC_ARGUMENTS(obj)); + goto prop_found_noexotic; /* cannot be arguments exotic */ + } + } +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) + else if (DUK_HOBJECT_IS_BUFOBJ(obj)) { + duk_hbufobj *h_bufobj; + duk_uint_t byte_off; + duk_small_uint_t elem_size; + + h_bufobj = (duk_hbufobj *) obj; + DUK_HBUFOBJ_ASSERT_VALID(h_bufobj); + DUK_DDD(DUK_DDDPRINT("bufobj property get for key: %!O, arr_idx: %ld", + (duk_heaphdr *) key, (long) arr_idx)); + + if (arr_idx != DUK__NO_ARRAY_INDEX && DUK_HBUFOBJ_HAS_VIRTUAL_INDICES(h_bufobj)) { + DUK_DDD(DUK_DDDPRINT("array index exists")); + + /* Careful with wrapping: arr_idx upshift may easily wrap, whereas + * length downshift won't. + */ + if (arr_idx < (h_bufobj->length >> h_bufobj->shift)) { + byte_off = arr_idx << h_bufobj->shift; /* no wrap assuming h_bufobj->length is valid */ + elem_size = (duk_small_uint_t) (1U << h_bufobj->shift); + if (flags & DUK_GETDESC_FLAG_PUSH_VALUE) { + duk_uint8_t *data; + + if (h_bufobj->buf != NULL && DUK_HBUFOBJ_VALID_BYTEOFFSET_EXCL(h_bufobj, byte_off + elem_size)) { + data = (duk_uint8_t *) DUK_HBUFFER_GET_DATA_PTR(thr->heap, h_bufobj->buf) + h_bufobj->offset + byte_off; + duk_hbufobj_push_validated_read(thr, h_bufobj, data, elem_size); + } else { + DUK_D(DUK_DPRINT("bufobj access out of underlying buffer, ignoring (read zero)")); + duk_push_uint(thr, 0); + } + } + out_desc->flags = DUK_PROPDESC_FLAG_WRITABLE | + DUK_PROPDESC_FLAG_VIRTUAL; + if (DUK_HOBJECT_GET_CLASS_NUMBER(obj) != DUK_HOBJECT_CLASS_ARRAYBUFFER) { + /* ArrayBuffer indices are non-standard and are + * non-enumerable to avoid their serialization. + */ + out_desc->flags |= DUK_PROPDESC_FLAG_ENUMERABLE; + } + out_desc->get = NULL; + out_desc->set = NULL; + out_desc->e_idx = -1; + out_desc->h_idx = -1; + out_desc->a_idx = -1; + + DUK_ASSERT(!DUK_HOBJECT_HAS_EXOTIC_ARGUMENTS(obj)); + goto prop_found_noexotic; /* cannot be e.g. arguments exotic, since exotic 'traits' are mutually exclusive */ + } else { + /* index is above internal buffer length -> property is fully normal */ + DUK_DDD(DUK_DDDPRINT("array index outside buffer -> normal property")); + } + } else if (key == DUK_HTHREAD_STRING_LENGTH(thr) && DUK_HBUFOBJ_HAS_VIRTUAL_INDICES(h_bufobj)) { + DUK_DDD(DUK_DDDPRINT("-> found, key is 'length', length exotic behavior")); + + if (flags & DUK_GETDESC_FLAG_PUSH_VALUE) { + /* Length in elements: take into account shift, but + * intentionally don't check the underlying buffer here. + */ + duk_push_uint(thr, h_bufobj->length >> h_bufobj->shift); + } + out_desc->flags = DUK_PROPDESC_FLAG_VIRTUAL; + out_desc->get = NULL; + out_desc->set = NULL; + out_desc->e_idx = -1; + out_desc->h_idx = -1; + out_desc->a_idx = -1; + + DUK_ASSERT(!DUK_HOBJECT_HAS_EXOTIC_ARGUMENTS(obj)); + goto prop_found_noexotic; /* cannot be arguments exotic */ + } + } +#endif /* DUK_USE_BUFFEROBJECT_SUPPORT */ + + /* Array properties have exotic behavior but they are concrete, + * so no special handling here. + * + * Arguments exotic behavior (E5 Section 10.6, [[GetOwnProperty]] + * is only relevant as a post-check implemented below; hence no + * check here. + */ + + /* + * Not found as concrete or virtual. + */ + + prop_not_found: + DUK_DDD(DUK_DDDPRINT("-> not found (virtual, entry part, or array part)")); + DUK_STATS_INC(thr->heap, stats_getownpropdesc_miss); + return 0; + + /* + * Found. + * + * Arguments object has exotic post-processing, see E5 Section 10.6, + * description of [[GetOwnProperty]] variant for arguments. + */ + + prop_found: + DUK_DDD(DUK_DDDPRINT("-> property found, checking for arguments exotic post-behavior")); + + /* Notes: + * - Only numbered indices are relevant, so arr_idx fast reject is good + * (this is valid unless there are more than 4**32-1 arguments). + * - Since variable lookup has no side effects, this can be skipped if + * DUK_GETDESC_FLAG_PUSH_VALUE is not set. + */ + + if (DUK_UNLIKELY(DUK_HOBJECT_HAS_EXOTIC_ARGUMENTS(obj) && + arr_idx != DUK__NO_ARRAY_INDEX && + (flags & DUK_GETDESC_FLAG_PUSH_VALUE))) { + duk_propdesc temp_desc; + + /* Magically bound variable cannot be an accessor. However, + * there may be an accessor property (or a plain property) in + * place with magic behavior removed. This happens e.g. when + * a magic property is redefined with defineProperty(). + * Cannot assert for "not accessor" here. + */ + + /* replaces top of stack with new value if necessary */ + DUK_ASSERT((flags & DUK_GETDESC_FLAG_PUSH_VALUE) != 0); + + /* This can perform a variable lookup but only into a declarative + * environment which has no side effects. + */ + if (duk__check_arguments_map_for_get(thr, obj, key, &temp_desc)) { + DUK_DDD(DUK_DDDPRINT("-> arguments exotic behavior overrides result: %!T -> %!T", + (duk_tval *) duk_get_tval(thr, -2), + (duk_tval *) duk_get_tval(thr, -1))); + /* [... old_result result] -> [... result] */ + duk_remove_m2(thr); + } + } + + prop_found_noexotic: + DUK_STATS_INC(thr->heap, stats_getownpropdesc_hit); + return 1; +} + +DUK_INTERNAL duk_bool_t duk_hobject_get_own_propdesc(duk_hthread *thr, duk_hobject *obj, duk_hstring *key, duk_propdesc *out_desc, duk_small_uint_t flags) { + DUK_ASSERT(thr != NULL); + DUK_ASSERT(obj != NULL); + DUK_ASSERT(key != NULL); + DUK_ASSERT(out_desc != NULL); + DUK_ASSERT_VALSTACK_SPACE(thr, DUK__VALSTACK_SPACE); + + return duk__get_own_propdesc_raw(thr, obj, key, DUK_HSTRING_GET_ARRIDX_SLOW(key), out_desc, flags); +} + +/* + * ECMAScript compliant [[GetProperty]](P), for internal use only. + * + * If property is found: + * - Fills descriptor fields to 'out_desc' + * - If DUK_GETDESC_FLAG_PUSH_VALUE is set, pushes a value related to the + * property onto the stack ('undefined' for accessor properties). + * - Returns non-zero + * + * If property is not found: + * - 'out_desc' is left in untouched state (possibly garbage) + * - Nothing is pushed onto the stack (not even with DUK_GETDESC_FLAG_PUSH_VALUE + * set) + * - Returns zero + * + * May cause arbitrary side effects and invalidate (most) duk_tval + * pointers. + */ + +DUK_LOCAL duk_bool_t duk__get_propdesc(duk_hthread *thr, duk_hobject *obj, duk_hstring *key, duk_propdesc *out_desc, duk_small_uint_t flags) { + duk_hobject *curr; + duk_uint32_t arr_idx; + duk_uint_t sanity; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(thr->heap != NULL); + DUK_ASSERT(obj != NULL); + DUK_ASSERT(key != NULL); + DUK_ASSERT(out_desc != NULL); + DUK_ASSERT_VALSTACK_SPACE(thr, DUK__VALSTACK_SPACE); + + DUK_STATS_INC(thr->heap, stats_getpropdesc_count); + + arr_idx = DUK_HSTRING_GET_ARRIDX_FAST(key); + + DUK_DDD(DUK_DDDPRINT("duk__get_propdesc: thr=%p, obj=%p, key=%p, out_desc=%p, flags=%lx, " + "arr_idx=%ld (obj -> %!O, key -> %!O)", + (void *) thr, (void *) obj, (void *) key, (void *) out_desc, + (long) flags, (long) arr_idx, + (duk_heaphdr *) obj, (duk_heaphdr *) key)); + + curr = obj; + DUK_ASSERT(curr != NULL); + sanity = DUK_HOBJECT_PROTOTYPE_CHAIN_SANITY; + do { + if (duk__get_own_propdesc_raw(thr, curr, key, arr_idx, out_desc, flags)) { + /* stack contains value (if requested), 'out_desc' is set */ + DUK_STATS_INC(thr->heap, stats_getpropdesc_hit); + return 1; + } + + /* not found in 'curr', next in prototype chain; impose max depth */ + if (DUK_UNLIKELY(sanity-- == 0)) { + if (flags & DUK_GETDESC_FLAG_IGNORE_PROTOLOOP) { + /* treat like property not found */ + break; + } else { + DUK_ERROR_RANGE(thr, DUK_STR_PROTOTYPE_CHAIN_LIMIT); + DUK_WO_NORETURN(return 0;); + } + } + curr = DUK_HOBJECT_GET_PROTOTYPE(thr->heap, curr); + } while (curr != NULL); + + /* out_desc is left untouched (possibly garbage), caller must use return + * value to determine whether out_desc can be looked up + */ + + DUK_STATS_INC(thr->heap, stats_getpropdesc_miss); + return 0; +} + +/* + * Shallow fast path checks for accessing array elements with numeric + * indices. The goal is to try to avoid coercing an array index to an + * (interned) string for the most common lookups, in particular, for + * standard Array objects. + * + * Interning is avoided but only for a very narrow set of cases: + * - Object has array part, index is within array allocation, and + * value is not unused (= key exists) + * - Object has no interfering exotic behavior (e.g. arguments or + * string object exotic behaviors interfere, array exotic + * behavior does not). + * + * Current shortcoming: if key does not exist (even if it is within + * the array allocation range) a slow path lookup with interning is + * always required. This can probably be fixed so that there is a + * quick fast path for non-existent elements as well, at least for + * standard Array objects. + */ + +#if defined(DUK_USE_ARRAY_PROP_FASTPATH) +DUK_LOCAL duk_tval *duk__getprop_shallow_fastpath_array_tval(duk_hthread *thr, duk_hobject *obj, duk_tval *tv_key) { + duk_tval *tv; + duk_uint32_t idx; + + DUK_UNREF(thr); + + if (!(DUK_HOBJECT_HAS_ARRAY_PART(obj) && + !DUK_HOBJECT_HAS_EXOTIC_ARGUMENTS(obj) && + !DUK_HOBJECT_HAS_EXOTIC_STRINGOBJ(obj) && + !DUK_HOBJECT_IS_BUFOBJ(obj) && + !DUK_HOBJECT_IS_PROXY(obj))) { + /* Must have array part and no conflicting exotic behaviors. + * Doesn't need to have array special behavior, e.g. Arguments + * object has array part. + */ + return NULL; + } + + /* Arrays never have other exotic behaviors. */ + + DUK_DDD(DUK_DDDPRINT("fast path attempt (no exotic string/arguments/buffer " + "behavior, object has array part)")); + +#if defined(DUK_USE_FASTINT) + if (DUK_TVAL_IS_FASTINT(tv_key)) { + idx = duk__tval_fastint_to_arr_idx(tv_key); + } else +#endif + if (DUK_TVAL_IS_DOUBLE(tv_key)) { + idx = duk__tval_number_to_arr_idx(tv_key); + } else { + DUK_DDD(DUK_DDDPRINT("key is not a number")); + return NULL; + } + + /* If index is not valid, idx will be DUK__NO_ARRAY_INDEX which + * is 0xffffffffUL. We don't need to check for that explicitly + * because 0xffffffffUL will never be inside object 'a_size'. + */ + + if (idx >= DUK_HOBJECT_GET_ASIZE(obj)) { + DUK_DDD(DUK_DDDPRINT("key is not an array index or outside array part")); + return NULL; + } + DUK_ASSERT(idx != 0xffffffffUL); + DUK_ASSERT(idx != DUK__NO_ARRAY_INDEX); + + /* XXX: for array instances we could take a shortcut here and assume + * Array.prototype doesn't contain an array index property. + */ + + DUK_DDD(DUK_DDDPRINT("key is a valid array index and inside array part")); + tv = DUK_HOBJECT_A_GET_VALUE_PTR(thr->heap, obj, idx); + if (!DUK_TVAL_IS_UNUSED(tv)) { + DUK_DDD(DUK_DDDPRINT("-> fast path successful")); + return tv; + } + + DUK_DDD(DUK_DDDPRINT("fast path attempt failed, fall back to slow path")); + return NULL; +} + +DUK_LOCAL duk_bool_t duk__putprop_shallow_fastpath_array_tval(duk_hthread *thr, duk_hobject *obj, duk_tval *tv_key, duk_tval *tv_val) { + duk_tval *tv; + duk_harray *a; + duk_uint32_t idx; + duk_uint32_t old_len, new_len; + + if (!(DUK_HOBJECT_HAS_EXOTIC_ARRAY(obj) && + DUK_HOBJECT_HAS_ARRAY_PART(obj) && + DUK_HOBJECT_HAS_EXTENSIBLE(obj))) { + return 0; + } + DUK_ASSERT(!DUK_HEAPHDR_HAS_READONLY((duk_heaphdr *) obj)); /* caller ensures */ + + a = (duk_harray *) obj; + DUK_HARRAY_ASSERT_VALID(a); + +#if defined(DUK_USE_FASTINT) + if (DUK_TVAL_IS_FASTINT(tv_key)) { + idx = duk__tval_fastint_to_arr_idx(tv_key); + } else +#endif + if (DUK_TVAL_IS_DOUBLE(tv_key)) { + idx = duk__tval_number_to_arr_idx(tv_key); + } else { + DUK_DDD(DUK_DDDPRINT("key is not a number")); + return 0; + } + + /* If index is not valid, idx will be DUK__NO_ARRAY_INDEX which + * is 0xffffffffUL. We don't need to check for that explicitly + * because 0xffffffffUL will never be inside object 'a_size'. + */ + + if (idx >= DUK_HOBJECT_GET_ASIZE(obj)) { /* for resizing of array part, use slow path */ + return 0; + } + DUK_ASSERT(idx != 0xffffffffUL); + DUK_ASSERT(idx != DUK__NO_ARRAY_INDEX); + + old_len = a->length; + + if (idx >= old_len) { + DUK_DDD(DUK_DDDPRINT("write new array entry requires length update " + "(arr_idx=%ld, old_len=%ld)", + (long) idx, (long) old_len)); + if (DUK_HARRAY_LENGTH_NONWRITABLE(a)) { + /* The correct behavior here is either a silent error + * or a TypeError, depending on strictness. Fall back + * to the slow path to handle the situation. + */ + return 0; + } + new_len = idx + 1; + + ((duk_harray *) obj)->length = new_len; + } + + tv = DUK_HOBJECT_A_GET_VALUE_PTR(thr->heap, obj, idx); + DUK_TVAL_SET_TVAL_UPDREF(thr, tv, tv_val); /* side effects */ + + DUK_DDD(DUK_DDDPRINT("array fast path success for index %ld", (long) idx)); + return 1; +} +#endif /* DUK_USE_ARRAY_PROP_FASTPATH */ + +/* + * Fast path for bufobj getprop/putprop + */ + +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) +DUK_LOCAL duk_bool_t duk__getprop_fastpath_bufobj_tval(duk_hthread *thr, duk_hobject *obj, duk_tval *tv_key) { + duk_uint32_t idx; + duk_hbufobj *h_bufobj; + duk_uint_t byte_off; + duk_small_uint_t elem_size; + duk_uint8_t *data; + + if (!DUK_HOBJECT_IS_BUFOBJ(obj)) { + return 0; + } + h_bufobj = (duk_hbufobj *) obj; + if (!DUK_HBUFOBJ_HAS_VIRTUAL_INDICES(h_bufobj)) { + return 0; + } + +#if defined(DUK_USE_FASTINT) + if (DUK_TVAL_IS_FASTINT(tv_key)) { + idx = duk__tval_fastint_to_arr_idx(tv_key); + } else +#endif + if (DUK_TVAL_IS_DOUBLE(tv_key)) { + idx = duk__tval_number_to_arr_idx(tv_key); + } else { + return 0; + } + + /* If index is not valid, idx will be DUK__NO_ARRAY_INDEX which + * is 0xffffffffUL. We don't need to check for that explicitly + * because 0xffffffffUL will never be inside bufobj length. + */ + + /* Careful with wrapping (left shifting idx would be unsafe). */ + if (idx >= (h_bufobj->length >> h_bufobj->shift)) { + return 0; + } + DUK_ASSERT(idx != DUK__NO_ARRAY_INDEX); + + byte_off = idx << h_bufobj->shift; /* no wrap assuming h_bufobj->length is valid */ + elem_size = (duk_small_uint_t) (1U << h_bufobj->shift); + + if (h_bufobj->buf != NULL && DUK_HBUFOBJ_VALID_BYTEOFFSET_EXCL(h_bufobj, byte_off + elem_size)) { + data = (duk_uint8_t *) DUK_HBUFFER_GET_DATA_PTR(thr->heap, h_bufobj->buf) + h_bufobj->offset + byte_off; + duk_hbufobj_push_validated_read(thr, h_bufobj, data, elem_size); + } else { + DUK_D(DUK_DPRINT("bufobj access out of underlying buffer, ignoring (read zero)")); + duk_push_uint(thr, 0); + } + + return 1; +} +#endif /* DUK_USE_BUFFEROBJECT_SUPPORT */ + +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) +DUK_LOCAL duk_bool_t duk__putprop_fastpath_bufobj_tval(duk_hthread *thr, duk_hobject *obj, duk_tval *tv_key, duk_tval *tv_val) { + duk_uint32_t idx; + duk_hbufobj *h_bufobj; + duk_uint_t byte_off; + duk_small_uint_t elem_size; + duk_uint8_t *data; + + if (!(DUK_HOBJECT_IS_BUFOBJ(obj) && + DUK_TVAL_IS_NUMBER(tv_val))) { + return 0; + } + DUK_ASSERT(!DUK_HEAPHDR_HAS_READONLY((duk_heaphdr *) obj)); /* caller ensures; rom objects are never bufobjs now */ + + h_bufobj = (duk_hbufobj *) obj; + if (!DUK_HBUFOBJ_HAS_VIRTUAL_INDICES(h_bufobj)) { + return 0; + } + +#if defined(DUK_USE_FASTINT) + if (DUK_TVAL_IS_FASTINT(tv_key)) { + idx = duk__tval_fastint_to_arr_idx(tv_key); + } else +#endif + if (DUK_TVAL_IS_DOUBLE(tv_key)) { + idx = duk__tval_number_to_arr_idx(tv_key); + } else { + return 0; + } + + /* If index is not valid, idx will be DUK__NO_ARRAY_INDEX which + * is 0xffffffffUL. We don't need to check for that explicitly + * because 0xffffffffUL will never be inside bufobj length. + */ + + /* Careful with wrapping (left shifting idx would be unsafe). */ + if (idx >= (h_bufobj->length >> h_bufobj->shift)) { + return 0; + } + DUK_ASSERT(idx != DUK__NO_ARRAY_INDEX); + + byte_off = idx << h_bufobj->shift; /* no wrap assuming h_bufobj->length is valid */ + elem_size = (duk_small_uint_t) (1U << h_bufobj->shift); + + /* Value is required to be a number in the fast path so there + * are no side effects in write coercion. + */ + duk_push_tval(thr, tv_val); + DUK_ASSERT(duk_is_number(thr, -1)); + + if (h_bufobj->buf != NULL && DUK_HBUFOBJ_VALID_BYTEOFFSET_EXCL(h_bufobj, byte_off + elem_size)) { + data = (duk_uint8_t *) DUK_HBUFFER_GET_DATA_PTR(thr->heap, h_bufobj->buf) + h_bufobj->offset + byte_off; + duk_hbufobj_validated_write(thr, h_bufobj, data, elem_size); + } else { + DUK_D(DUK_DPRINT("bufobj access out of underlying buffer, ignoring (write skipped)")); + } + + duk_pop_unsafe(thr); + return 1; +} +#endif /* DUK_USE_BUFFEROBJECT_SUPPORT */ + +/* + * GETPROP: ECMAScript property read. + */ + +DUK_INTERNAL duk_bool_t duk_hobject_getprop(duk_hthread *thr, duk_tval *tv_obj, duk_tval *tv_key) { + duk_tval tv_obj_copy; + duk_tval tv_key_copy; + duk_hobject *curr = NULL; + duk_hstring *key = NULL; + duk_uint32_t arr_idx = DUK__NO_ARRAY_INDEX; + duk_propdesc desc; + duk_uint_t sanity; + + DUK_DDD(DUK_DDDPRINT("getprop: thr=%p, obj=%p, key=%p (obj -> %!T, key -> %!T)", + (void *) thr, (void *) tv_obj, (void *) tv_key, + (duk_tval *) tv_obj, (duk_tval *) tv_key)); + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(thr->heap != NULL); + DUK_ASSERT(tv_obj != NULL); + DUK_ASSERT(tv_key != NULL); + + DUK_ASSERT_VALSTACK_SPACE(thr, DUK__VALSTACK_SPACE); + + DUK_STATS_INC(thr->heap, stats_getprop_all); + + /* + * Make a copy of tv_obj, tv_key, and tv_val to avoid any issues of + * them being invalidated by a valstack resize. + * + * XXX: this is now an overkill for many fast paths. Rework this + * to be faster (although switching to a valstack discipline might + * be a better solution overall). + */ + + DUK_TVAL_SET_TVAL(&tv_obj_copy, tv_obj); + DUK_TVAL_SET_TVAL(&tv_key_copy, tv_key); + tv_obj = &tv_obj_copy; + tv_key = &tv_key_copy; + + /* + * Coercion and fast path processing + */ + + switch (DUK_TVAL_GET_TAG(tv_obj)) { + case DUK_TAG_UNDEFINED: + case DUK_TAG_NULL: { + /* Note: unconditional throw */ + DUK_DDD(DUK_DDDPRINT("base object is undefined or null -> reject")); +#if defined(DUK_USE_PARANOID_ERRORS) + DUK_ERROR_TYPE(thr, DUK_STR_INVALID_BASE); +#else + DUK_ERROR_FMT2(thr, DUK_ERR_TYPE_ERROR, "cannot read property %s of %s", + duk_push_string_tval_readable(thr, tv_key), duk_push_string_tval_readable(thr, tv_obj)); +#endif + DUK_WO_NORETURN(return 0;); + break; + } + + case DUK_TAG_BOOLEAN: { + DUK_DDD(DUK_DDDPRINT("base object is a boolean, start lookup from boolean prototype")); + curr = thr->builtins[DUK_BIDX_BOOLEAN_PROTOTYPE]; + break; + } + + case DUK_TAG_STRING: { + duk_hstring *h = DUK_TVAL_GET_STRING(tv_obj); + duk_int_t pop_count; + + if (DUK_UNLIKELY(DUK_HSTRING_HAS_SYMBOL(h))) { + /* Symbols (ES2015 or hidden) don't have virtual properties. */ + DUK_DDD(DUK_DDDPRINT("base object is a symbol, start lookup from symbol prototype")); + curr = thr->builtins[DUK_BIDX_SYMBOL_PROTOTYPE]; + break; + } + +#if defined(DUK_USE_FASTINT) + if (DUK_TVAL_IS_FASTINT(tv_key)) { + arr_idx = duk__tval_fastint_to_arr_idx(tv_key); + DUK_DDD(DUK_DDDPRINT("base object string, key is a fast-path fastint; arr_idx %ld", (long) arr_idx)); + pop_count = 0; + } else +#endif + if (DUK_TVAL_IS_NUMBER(tv_key)) { + arr_idx = duk__tval_number_to_arr_idx(tv_key); + DUK_DDD(DUK_DDDPRINT("base object string, key is a fast-path number; arr_idx %ld", (long) arr_idx)); + pop_count = 0; + } else { + arr_idx = duk__push_tval_to_property_key(thr, tv_key, &key); + DUK_ASSERT(key != NULL); + DUK_DDD(DUK_DDDPRINT("base object string, key is a non-fast-path number; after " + "coercion key is %!T, arr_idx %ld", + (duk_tval *) duk_get_tval(thr, -1), (long) arr_idx)); + pop_count = 1; + } + + if (arr_idx != DUK__NO_ARRAY_INDEX && + arr_idx < DUK_HSTRING_GET_CHARLEN(h)) { + duk_pop_n_unsafe(thr, pop_count); + duk_push_hstring(thr, h); + duk_substring(thr, -1, arr_idx, arr_idx + 1); /* [str] -> [substr] */ + + DUK_STATS_INC(thr->heap, stats_getprop_stringidx); + DUK_DDD(DUK_DDDPRINT("-> %!T (base is string, key is an index inside string length " + "after coercion -> return char)", + (duk_tval *) duk_get_tval(thr, -1))); + return 1; + } + + if (pop_count == 0) { + /* This is a pretty awkward control flow, but we need to recheck the + * key coercion here. + */ + arr_idx = duk__push_tval_to_property_key(thr, tv_key, &key); + DUK_ASSERT(key != NULL); + DUK_DDD(DUK_DDDPRINT("base object string, key is a non-fast-path number; after " + "coercion key is %!T, arr_idx %ld", + (duk_tval *) duk_get_tval(thr, -1), (long) arr_idx)); + } + + if (key == DUK_HTHREAD_STRING_LENGTH(thr)) { + duk_pop_unsafe(thr); /* [key] -> [] */ + duk_push_uint(thr, (duk_uint_t) DUK_HSTRING_GET_CHARLEN(h)); /* [] -> [res] */ + + DUK_STATS_INC(thr->heap, stats_getprop_stringlen); + DUK_DDD(DUK_DDDPRINT("-> %!T (base is string, key is 'length' after coercion -> " + "return string length)", + (duk_tval *) duk_get_tval(thr, -1))); + return 1; + } + + DUK_DDD(DUK_DDDPRINT("base object is a string, start lookup from string prototype")); + curr = thr->builtins[DUK_BIDX_STRING_PROTOTYPE]; + goto lookup; /* avoid double coercion */ + } + + case DUK_TAG_OBJECT: { +#if defined(DUK_USE_ARRAY_PROP_FASTPATH) + duk_tval *tmp; +#endif + + curr = DUK_TVAL_GET_OBJECT(tv_obj); + DUK_ASSERT(curr != NULL); + + /* XXX: array .length fast path (important in e.g. loops)? */ + +#if defined(DUK_USE_ARRAY_PROP_FASTPATH) + tmp = duk__getprop_shallow_fastpath_array_tval(thr, curr, tv_key); + if (tmp) { + duk_push_tval(thr, tmp); + + DUK_DDD(DUK_DDDPRINT("-> %!T (base is object, key is a number, array part " + "fast path)", + (duk_tval *) duk_get_tval(thr, -1))); + DUK_STATS_INC(thr->heap, stats_getprop_arrayidx); + return 1; + } +#endif + +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) + if (duk__getprop_fastpath_bufobj_tval(thr, curr, tv_key) != 0) { + /* Read value pushed on stack. */ + DUK_DDD(DUK_DDDPRINT("-> %!T (base is bufobj, key is a number, bufobj " + "fast path)", + (duk_tval *) duk_get_tval(thr, -1))); + DUK_STATS_INC(thr->heap, stats_getprop_bufobjidx); + return 1; + } +#endif + +#if defined(DUK_USE_ES6_PROXY) + if (DUK_UNLIKELY(DUK_HOBJECT_IS_PROXY(curr))) { + duk_hobject *h_target; + + if (duk__proxy_check_prop(thr, curr, DUK_STRIDX_GET, tv_key, &h_target)) { + /* -> [ ... trap handler ] */ + DUK_DDD(DUK_DDDPRINT("-> proxy object 'get' for key %!T", (duk_tval *) tv_key)); + DUK_STATS_INC(thr->heap, stats_getprop_proxy); + duk_push_hobject(thr, h_target); /* target */ + duk_push_tval(thr, tv_key); /* P */ + duk_push_tval(thr, tv_obj); /* Receiver: Proxy object */ + duk_call_method(thr, 3 /*nargs*/); + + /* Target object must be checked for a conflicting + * non-configurable property. + */ + arr_idx = duk__push_tval_to_property_key(thr, tv_key, &key); + DUK_ASSERT(key != NULL); + + if (duk__get_own_propdesc_raw(thr, h_target, key, arr_idx, &desc, DUK_GETDESC_FLAG_PUSH_VALUE)) { + duk_tval *tv_hook = duk_require_tval(thr, -3); /* value from hook */ + duk_tval *tv_targ = duk_require_tval(thr, -1); /* value from target */ + duk_bool_t datadesc_reject; + duk_bool_t accdesc_reject; + + DUK_DDD(DUK_DDDPRINT("proxy 'get': target has matching property %!O, check for " + "conflicting property; tv_hook=%!T, tv_targ=%!T, desc.flags=0x%08lx, " + "desc.get=%p, desc.set=%p", + (duk_heaphdr *) key, (duk_tval *) tv_hook, (duk_tval *) tv_targ, + (unsigned long) desc.flags, + (void *) desc.get, (void *) desc.set)); + + datadesc_reject = !(desc.flags & DUK_PROPDESC_FLAG_ACCESSOR) && + !(desc.flags & DUK_PROPDESC_FLAG_CONFIGURABLE) && + !(desc.flags & DUK_PROPDESC_FLAG_WRITABLE) && + !duk_js_samevalue(tv_hook, tv_targ); + accdesc_reject = (desc.flags & DUK_PROPDESC_FLAG_ACCESSOR) && + !(desc.flags & DUK_PROPDESC_FLAG_CONFIGURABLE) && + (desc.get == NULL) && + !DUK_TVAL_IS_UNDEFINED(tv_hook); + if (datadesc_reject || accdesc_reject) { + DUK_ERROR_TYPE(thr, DUK_STR_PROXY_REJECTED); + DUK_WO_NORETURN(return 0;); + } + + duk_pop_2_unsafe(thr); + } else { + duk_pop_unsafe(thr); + } + return 1; /* return value */ + } + + curr = h_target; /* resume lookup from target */ + DUK_TVAL_SET_OBJECT(tv_obj, curr); + } +#endif /* DUK_USE_ES6_PROXY */ + + if (DUK_HOBJECT_HAS_EXOTIC_ARGUMENTS(curr)) { + arr_idx = duk__push_tval_to_property_key(thr, tv_key, &key); + DUK_ASSERT(key != NULL); + + DUK_STATS_INC(thr->heap, stats_getprop_arguments); + if (duk__check_arguments_map_for_get(thr, curr, key, &desc)) { + DUK_DDD(DUK_DDDPRINT("-> %!T (base is object with arguments exotic behavior, " + "key matches magically bound property -> skip standard " + "Get with replacement value)", + (duk_tval *) duk_get_tval(thr, -1))); + + /* no need for 'caller' post-check, because 'key' must be an array index */ + + duk_remove_m2(thr); /* [key result] -> [result] */ + return 1; + } + + goto lookup; /* avoid double coercion */ + } + break; + } + + /* Buffer has virtual properties similar to string, but indexed values + * are numbers, not 1-byte buffers/strings which would perform badly. + */ + case DUK_TAG_BUFFER: { + duk_hbuffer *h = DUK_TVAL_GET_BUFFER(tv_obj); + duk_int_t pop_count; + + /* + * Because buffer values are often looped over, a number fast path + * is important. + */ + +#if defined(DUK_USE_FASTINT) + if (DUK_TVAL_IS_FASTINT(tv_key)) { + arr_idx = duk__tval_fastint_to_arr_idx(tv_key); + DUK_DDD(DUK_DDDPRINT("base object buffer, key is a fast-path fastint; arr_idx %ld", (long) arr_idx)); + pop_count = 0; + } + else +#endif + if (DUK_TVAL_IS_NUMBER(tv_key)) { + arr_idx = duk__tval_number_to_arr_idx(tv_key); + DUK_DDD(DUK_DDDPRINT("base object buffer, key is a fast-path number; arr_idx %ld", (long) arr_idx)); + pop_count = 0; + } else { + arr_idx = duk__push_tval_to_property_key(thr, tv_key, &key); + DUK_ASSERT(key != NULL); + DUK_DDD(DUK_DDDPRINT("base object buffer, key is a non-fast-path number; after " + "coercion key is %!T, arr_idx %ld", + (duk_tval *) duk_get_tval(thr, -1), (long) arr_idx)); + pop_count = 1; + } + + if (arr_idx != DUK__NO_ARRAY_INDEX && + arr_idx < DUK_HBUFFER_GET_SIZE(h)) { + duk_pop_n_unsafe(thr, pop_count); + duk_push_uint(thr, ((duk_uint8_t *) DUK_HBUFFER_GET_DATA_PTR(thr->heap, h))[arr_idx]); + DUK_STATS_INC(thr->heap, stats_getprop_bufferidx); + DUK_DDD(DUK_DDDPRINT("-> %!T (base is buffer, key is an index inside buffer length " + "after coercion -> return byte as number)", + (duk_tval *) duk_get_tval(thr, -1))); + return 1; + } + + if (pop_count == 0) { + /* This is a pretty awkward control flow, but we need to recheck the + * key coercion here. + */ + arr_idx = duk__push_tval_to_property_key(thr, tv_key, &key); + DUK_ASSERT(key != NULL); + DUK_DDD(DUK_DDDPRINT("base object buffer, key is a non-fast-path number; after " + "coercion key is %!T, arr_idx %ld", + (duk_tval *) duk_get_tval(thr, -1), (long) arr_idx)); + } + + if (key == DUK_HTHREAD_STRING_LENGTH(thr)) { + duk_pop_unsafe(thr); /* [key] -> [] */ + duk_push_uint(thr, (duk_uint_t) DUK_HBUFFER_GET_SIZE(h)); /* [] -> [res] */ + DUK_STATS_INC(thr->heap, stats_getprop_bufferlen); + + DUK_DDD(DUK_DDDPRINT("-> %!T (base is buffer, key is 'length' " + "after coercion -> return buffer length)", + (duk_tval *) duk_get_tval(thr, -1))); + return 1; + } + + DUK_DDD(DUK_DDDPRINT("base object is a buffer, start lookup from Uint8Array prototype")); + curr = thr->builtins[DUK_BIDX_UINT8ARRAY_PROTOTYPE]; + goto lookup; /* avoid double coercion */ + } + + case DUK_TAG_POINTER: { + DUK_DDD(DUK_DDDPRINT("base object is a pointer, start lookup from pointer prototype")); + curr = thr->builtins[DUK_BIDX_POINTER_PROTOTYPE]; + break; + } + + case DUK_TAG_LIGHTFUNC: { + /* Lightfuncs inherit getter .name and .length from %NativeFunctionPrototype%. */ + DUK_DDD(DUK_DDDPRINT("base object is a lightfunc, start lookup from function prototype")); + curr = thr->builtins[DUK_BIDX_NATIVE_FUNCTION_PROTOTYPE]; + break; + } + +#if defined(DUK_USE_FASTINT) + case DUK_TAG_FASTINT: +#endif + default: { + /* number */ + DUK_DDD(DUK_DDDPRINT("base object is a number, start lookup from number prototype")); + DUK_ASSERT(!DUK_TVAL_IS_UNUSED(tv_obj)); + DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv_obj)); + curr = thr->builtins[DUK_BIDX_NUMBER_PROTOTYPE]; + break; + } + } + + /* key coercion (unless already coerced above) */ + DUK_ASSERT(key == NULL); + arr_idx = duk__push_tval_to_property_key(thr, tv_key, &key); + DUK_ASSERT(key != NULL); + /* + * Property lookup + */ + + lookup: + /* [key] (coerced) */ + DUK_ASSERT(curr != NULL); + DUK_ASSERT(key != NULL); + + sanity = DUK_HOBJECT_PROTOTYPE_CHAIN_SANITY; + do { + if (!duk__get_own_propdesc_raw(thr, curr, key, arr_idx, &desc, DUK_GETDESC_FLAG_PUSH_VALUE)) { + goto next_in_chain; + } + + if (desc.get != NULL) { + /* accessor with defined getter */ + DUK_ASSERT((desc.flags & DUK_PROPDESC_FLAG_ACCESSOR) != 0); + + duk_pop_unsafe(thr); /* [key undefined] -> [key] */ + duk_push_hobject(thr, desc.get); + duk_push_tval(thr, tv_obj); /* note: original, uncoerced base */ +#if defined(DUK_USE_NONSTD_GETTER_KEY_ARGUMENT) + duk_dup_m3(thr); + duk_call_method(thr, 1); /* [key getter this key] -> [key retval] */ +#else + duk_call_method(thr, 0); /* [key getter this] -> [key retval] */ +#endif + } else { + /* [key value] or [key undefined] */ + + /* data property or accessor without getter */ + DUK_ASSERT(((desc.flags & DUK_PROPDESC_FLAG_ACCESSOR) == 0) || + (desc.get == NULL)); + + /* if accessor without getter, return value is undefined */ + DUK_ASSERT(((desc.flags & DUK_PROPDESC_FLAG_ACCESSOR) == 0) || + duk_is_undefined(thr, -1)); + + /* Note: for an accessor without getter, falling through to + * check for "caller" exotic behavior is unnecessary as + * "undefined" will never activate the behavior. But it does + * no harm, so we'll do it anyway. + */ + } + + goto found; /* [key result] */ + + next_in_chain: + /* XXX: option to pretend property doesn't exist if sanity limit is + * hit might be useful. + */ + if (DUK_UNLIKELY(sanity-- == 0)) { + DUK_ERROR_RANGE(thr, DUK_STR_PROTOTYPE_CHAIN_LIMIT); + DUK_WO_NORETURN(return 0;); + } + curr = DUK_HOBJECT_GET_PROTOTYPE(thr->heap, curr); + } while (curr != NULL); + + /* + * Not found + */ + + duk_to_undefined(thr, -1); /* [key] -> [undefined] (default value) */ + + DUK_DDD(DUK_DDDPRINT("-> %!T (not found)", (duk_tval *) duk_get_tval(thr, -1))); + return 0; + + /* + * Found; post-processing (Function and arguments objects) + */ + + found: + /* [key result] */ + +#if !defined(DUK_USE_NONSTD_FUNC_CALLER_PROPERTY) + /* Special behavior for 'caller' property of (non-bound) function objects + * and non-strict Arguments objects: if 'caller' -value- (!) is a strict + * mode function, throw a TypeError (E5 Sections 15.3.5.4, 10.6). + * Quite interestingly, a non-strict function with no formal arguments + * will get an arguments object -without- special 'caller' behavior! + * + * The E5.1 spec is a bit ambiguous if this special behavior applies when + * a bound function is the base value (not the 'caller' value): Section + * 15.3.4.5 (describing bind()) states that [[Get]] for bound functions + * matches that of Section 15.3.5.4 ([[Get]] for Function instances). + * However, Section 13.3.5.4 has "NOTE: Function objects created using + * Function.prototype.bind use the default [[Get]] internal method." + * The current implementation assumes this means that bound functions + * should not have the special [[Get]] behavior. + * + * The E5.1 spec is also a bit unclear if the TypeError throwing is + * applied if the 'caller' value is a strict bound function. The + * current implementation will throw even for both strict non-bound + * and strict bound functions. + * + * See test-dev-strict-func-as-caller-prop-value.js for quite extensive + * tests. + * + * This exotic behavior is disabled when the non-standard 'caller' property + * is enabled, as it conflicts with the free use of 'caller'. + */ + if (key == DUK_HTHREAD_STRING_CALLER(thr) && + DUK_TVAL_IS_OBJECT(tv_obj)) { + duk_hobject *orig = DUK_TVAL_GET_OBJECT(tv_obj); + DUK_ASSERT(orig != NULL); + + if (DUK_HOBJECT_IS_NONBOUND_FUNCTION(orig) || + DUK_HOBJECT_HAS_EXOTIC_ARGUMENTS(orig)) { + duk_hobject *h; + + /* XXX: The TypeError is currently not applied to bound + * functions because the 'strict' flag is not copied by + * bind(). This may or may not be correct, the specification + * only refers to the value being a "strict mode Function + * object" which is ambiguous. + */ + DUK_ASSERT(!DUK_HOBJECT_HAS_BOUNDFUNC(orig)); + + h = duk_get_hobject(thr, -1); /* NULL if not an object */ + if (h && + DUK_HOBJECT_IS_FUNCTION(h) && + DUK_HOBJECT_HAS_STRICT(h)) { + /* XXX: sufficient to check 'strict', assert for 'is function' */ + DUK_ERROR_TYPE(thr, DUK_STR_STRICT_CALLER_READ); + DUK_WO_NORETURN(return 0;); + } + } + } +#endif /* !DUK_USE_NONSTD_FUNC_CALLER_PROPERTY */ + + duk_remove_m2(thr); /* [key result] -> [result] */ + + DUK_DDD(DUK_DDDPRINT("-> %!T (found)", (duk_tval *) duk_get_tval(thr, -1))); + return 1; +} + +/* + * HASPROP: ECMAScript property existence check ("in" operator). + * + * Interestingly, the 'in' operator does not do any coercion of + * the target object. + */ + +DUK_INTERNAL duk_bool_t duk_hobject_hasprop(duk_hthread *thr, duk_tval *tv_obj, duk_tval *tv_key) { + duk_tval tv_key_copy; + duk_hobject *obj; + duk_hstring *key; + duk_uint32_t arr_idx; + duk_bool_t rc; + duk_propdesc desc; + + DUK_DDD(DUK_DDDPRINT("hasprop: thr=%p, obj=%p, key=%p (obj -> %!T, key -> %!T)", + (void *) thr, (void *) tv_obj, (void *) tv_key, + (duk_tval *) tv_obj, (duk_tval *) tv_key)); + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(thr->heap != NULL); + DUK_ASSERT(tv_obj != NULL); + DUK_ASSERT(tv_key != NULL); + DUK_ASSERT_VALSTACK_SPACE(thr, DUK__VALSTACK_SPACE); + + DUK_TVAL_SET_TVAL(&tv_key_copy, tv_key); + tv_key = &tv_key_copy; + + /* + * The 'in' operator requires an object as its right hand side, + * throwing a TypeError unconditionally if this is not the case. + * + * However, lightfuncs need to behave like fully fledged objects + * here to be maximally transparent, so we need to handle them + * here. Same goes for plain buffers which behave like ArrayBuffers. + */ + + /* XXX: Refactor key coercion so that it's only called once. It can't + * be trivially lifted here because the object must be type checked + * first. + */ + + if (DUK_TVAL_IS_OBJECT(tv_obj)) { + obj = DUK_TVAL_GET_OBJECT(tv_obj); + DUK_ASSERT(obj != NULL); + + arr_idx = duk__push_tval_to_property_key(thr, tv_key, &key); + } else if (DUK_TVAL_IS_BUFFER(tv_obj)) { + arr_idx = duk__push_tval_to_property_key(thr, tv_key, &key); + if (duk__key_is_plain_buf_ownprop(thr, DUK_TVAL_GET_BUFFER(tv_obj), key, arr_idx)) { + rc = 1; + goto pop_and_return; + } + obj = thr->builtins[DUK_BIDX_UINT8ARRAY_PROTOTYPE]; + } else if (DUK_TVAL_IS_LIGHTFUNC(tv_obj)) { + arr_idx = duk__push_tval_to_property_key(thr, tv_key, &key); + + /* If not found, resume existence check from %NativeFunctionPrototype%. + * We can just substitute the value in this case; nothing will + * need the original base value (as would be the case with e.g. + * setters/getters. + */ + obj = thr->builtins[DUK_BIDX_NATIVE_FUNCTION_PROTOTYPE]; + } else { + /* Note: unconditional throw */ + DUK_DDD(DUK_DDDPRINT("base object is not an object -> reject")); + DUK_ERROR_TYPE(thr, DUK_STR_INVALID_BASE); + DUK_WO_NORETURN(return 0;); + } + + /* XXX: fast path for arrays? */ + + DUK_ASSERT(key != NULL); + DUK_ASSERT(obj != NULL); + DUK_UNREF(arr_idx); + +#if defined(DUK_USE_ES6_PROXY) + if (DUK_UNLIKELY(DUK_HOBJECT_IS_PROXY(obj))) { + duk_hobject *h_target; + duk_bool_t tmp_bool; + + /* XXX: the key in 'key in obj' is string coerced before we're called + * (which is the required behavior in E5/E5.1/E6) so the key is a string + * here already. + */ + + if (duk__proxy_check_prop(thr, obj, DUK_STRIDX_HAS, tv_key, &h_target)) { + /* [ ... key trap handler ] */ + DUK_DDD(DUK_DDDPRINT("-> proxy object 'has' for key %!T", (duk_tval *) tv_key)); + duk_push_hobject(thr, h_target); /* target */ + duk_push_tval(thr, tv_key); /* P */ + duk_call_method(thr, 2 /*nargs*/); + tmp_bool = duk_to_boolean_top_pop(thr); + if (!tmp_bool) { + /* Target object must be checked for a conflicting + * non-configurable property. + */ + + if (duk__get_own_propdesc_raw(thr, h_target, key, arr_idx, &desc, 0 /*flags*/)) { /* don't push value */ + DUK_DDD(DUK_DDDPRINT("proxy 'has': target has matching property %!O, check for " + "conflicting property; desc.flags=0x%08lx, " + "desc.get=%p, desc.set=%p", + (duk_heaphdr *) key, (unsigned long) desc.flags, + (void *) desc.get, (void *) desc.set)); + /* XXX: Extensibility check for target uses IsExtensible(). If we + * implemented the isExtensible trap and didn't reject proxies as + * proxy targets, it should be respected here. + */ + if (!((desc.flags & DUK_PROPDESC_FLAG_CONFIGURABLE) && /* property is configurable and */ + DUK_HOBJECT_HAS_EXTENSIBLE(h_target))) { /* ... target is extensible */ + DUK_ERROR_TYPE(thr, DUK_STR_PROXY_REJECTED); + DUK_WO_NORETURN(return 0;); + } + } + } + + duk_pop_unsafe(thr); /* [ key ] -> [] */ + return tmp_bool; + } + + obj = h_target; /* resume check from proxy target */ + } +#endif /* DUK_USE_ES6_PROXY */ + + /* XXX: inline into a prototype walking loop? */ + + rc = duk__get_propdesc(thr, obj, key, &desc, 0 /*flags*/); /* don't push value */ + /* fall through */ + + pop_and_return: + duk_pop_unsafe(thr); /* [ key ] -> [] */ + return rc; +} + +/* + * HASPROP variant used internally. + * + * This primitive must never throw an error, callers rely on this. + * In particular, don't throw an error for prototype loops; instead, + * pretend like the property doesn't exist if a prototype sanity limit + * is reached. + * + * Does not implement proxy behavior: if applied to a proxy object, + * returns key existence on the proxy object itself. + */ + +DUK_INTERNAL duk_bool_t duk_hobject_hasprop_raw(duk_hthread *thr, duk_hobject *obj, duk_hstring *key) { + duk_propdesc dummy; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(thr->heap != NULL); + DUK_ASSERT(obj != NULL); + DUK_ASSERT(key != NULL); + + DUK_ASSERT_VALSTACK_SPACE(thr, DUK__VALSTACK_SPACE); + + return duk__get_propdesc(thr, obj, key, &dummy, DUK_GETDESC_FLAG_IGNORE_PROTOLOOP); /* don't push value */ +} + +/* + * Helper: handle Array object 'length' write which automatically + * deletes properties, see E5 Section 15.4.5.1, step 3. This is + * quite tricky to get right. + * + * Used by duk_hobject_putprop(). + */ + +/* Coerce a new .length candidate to a number and check that it's a valid + * .length. + */ +DUK_LOCAL duk_uint32_t duk__to_new_array_length_checked(duk_hthread *thr, duk_tval *tv) { + duk_uint32_t res; + duk_double_t d; + +#if !defined(DUK_USE_PREFER_SIZE) +#if defined(DUK_USE_FASTINT) + /* When fastints are enabled, the most interesting case is assigning + * a fastint to .length (e.g. arr.length = 0). + */ + if (DUK_TVAL_IS_FASTINT(tv)) { + /* Very common case. */ + duk_int64_t fi; + fi = DUK_TVAL_GET_FASTINT(tv); + if (fi < 0 || fi > DUK_I64_CONSTANT(0xffffffff)) { + goto fail_range; + } + return (duk_uint32_t) fi; + } +#else /* DUK_USE_FASTINT */ + /* When fastints are not enabled, the most interesting case is any + * number. + */ + if (DUK_TVAL_IS_DOUBLE(tv)) { + d = DUK_TVAL_GET_NUMBER(tv); + } +#endif /* DUK_USE_FASTINT */ + else +#endif /* !DUK_USE_PREFER_SIZE */ + { + /* In all other cases, and when doing a size optimized build, + * fall back to the comprehensive handler. + */ + d = duk_js_tonumber(thr, tv); + } + + /* Refuse to update an Array's 'length' to a value outside the + * 32-bit range. Negative zero is accepted as zero. + */ + res = duk_double_to_uint32_t(d); + if (!duk_double_equals((duk_double_t) res, d)) { + goto fail_range; + } + + return res; + + fail_range: + DUK_ERROR_RANGE(thr, DUK_STR_INVALID_ARRAY_LENGTH); + DUK_WO_NORETURN(return 0;); +} + +/* Delete elements required by a smaller length, taking into account + * potentially non-configurable elements. Returns non-zero if all + * elements could be deleted, and zero if all or some elements could + * not be deleted. Also writes final "target length" to 'out_result_len'. + * This is the length value that should go into the 'length' property + * (must be set by the caller). Never throws an error. + */ +DUK_LOCAL +duk_bool_t duk__handle_put_array_length_smaller(duk_hthread *thr, + duk_hobject *obj, + duk_uint32_t old_len, + duk_uint32_t new_len, + duk_bool_t force_flag, + duk_uint32_t *out_result_len) { + duk_uint32_t target_len; + duk_uint_fast32_t i; + duk_uint32_t arr_idx; + duk_hstring *key; + duk_tval *tv; + duk_bool_t rc; + + DUK_DDD(DUK_DDDPRINT("new array length smaller than old (%ld -> %ld), " + "probably need to remove elements", + (long) old_len, (long) new_len)); + + /* + * New length is smaller than old length, need to delete properties above + * the new length. + * + * If array part exists, this is straightforward: array entries cannot + * be non-configurable so this is guaranteed to work. + * + * If array part does not exist, array-indexed values are scattered + * in the entry part, and some may not be configurable (preventing length + * from becoming lower than their index + 1). To handle the algorithm + * in E5 Section 15.4.5.1, step l correctly, we scan the entire property + * set twice. + */ + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(obj != NULL); + DUK_ASSERT(new_len < old_len); + DUK_ASSERT(out_result_len != NULL); + DUK_ASSERT_VALSTACK_SPACE(thr, DUK__VALSTACK_SPACE); + + DUK_ASSERT(DUK_HOBJECT_HAS_EXOTIC_ARRAY(obj)); + DUK_ASSERT(DUK_HOBJECT_IS_ARRAY(obj)); + + if (DUK_HOBJECT_HAS_ARRAY_PART(obj)) { + /* + * All defined array-indexed properties are in the array part + * (we assume the array part is comprehensive), and all array + * entries are writable, configurable, and enumerable. Thus, + * nothing can prevent array entries from being deleted. + */ + + DUK_DDD(DUK_DDDPRINT("have array part, easy case")); + + if (old_len < DUK_HOBJECT_GET_ASIZE(obj)) { + /* XXX: assertion that entries >= old_len are already unused */ + i = old_len; + } else { + i = DUK_HOBJECT_GET_ASIZE(obj); + } + DUK_ASSERT(i <= DUK_HOBJECT_GET_ASIZE(obj)); + + while (i > new_len) { + i--; + tv = DUK_HOBJECT_A_GET_VALUE_PTR(thr->heap, obj, i); + DUK_TVAL_SET_UNUSED_UPDREF(thr, tv); /* side effects */ + } + + *out_result_len = new_len; + return 1; + } else { + /* + * Entries part is a bit more complex. + */ + + /* Stage 1: find highest preventing non-configurable entry (if any). + * When forcing, ignore non-configurability. + */ + + DUK_DDD(DUK_DDDPRINT("no array part, slow case")); + + DUK_DDD(DUK_DDDPRINT("array length write, no array part, stage 1: find target_len " + "(highest preventing non-configurable entry (if any))")); + + target_len = new_len; + if (force_flag) { + DUK_DDD(DUK_DDDPRINT("array length write, no array part; force flag -> skip stage 1")); + goto skip_stage1; + } + for (i = 0; i < DUK_HOBJECT_GET_ENEXT(obj); i++) { + key = DUK_HOBJECT_E_GET_KEY(thr->heap, obj, i); + if (!key) { + DUK_DDD(DUK_DDDPRINT("skip entry index %ld: null key", (long) i)); + continue; + } + if (!DUK_HSTRING_HAS_ARRIDX(key)) { + DUK_DDD(DUK_DDDPRINT("skip entry index %ld: key not an array index", (long) i)); + continue; + } + + DUK_ASSERT(DUK_HSTRING_HAS_ARRIDX(key)); /* XXX: macro checks for array index flag, which is unnecessary here */ + arr_idx = DUK_HSTRING_GET_ARRIDX_SLOW(key); + DUK_ASSERT(arr_idx != DUK__NO_ARRAY_INDEX); + DUK_ASSERT(arr_idx < old_len); /* consistency requires this */ + + if (arr_idx < new_len) { + DUK_DDD(DUK_DDDPRINT("skip entry index %ld: key is array index %ld, below new_len", + (long) i, (long) arr_idx)); + continue; + } + if (DUK_HOBJECT_E_SLOT_IS_CONFIGURABLE(thr->heap, obj, i)) { + DUK_DDD(DUK_DDDPRINT("skip entry index %ld: key is a relevant array index %ld, but configurable", + (long) i, (long) arr_idx)); + continue; + } + + /* relevant array index is non-configurable, blocks write */ + if (arr_idx >= target_len) { + DUK_DDD(DUK_DDDPRINT("entry at index %ld has arr_idx %ld, is not configurable, " + "update target_len %ld -> %ld", + (long) i, (long) arr_idx, (long) target_len, + (long) (arr_idx + 1))); + target_len = arr_idx + 1; + } + } + skip_stage1: + + /* stage 2: delete configurable entries above target length */ + + DUK_DDD(DUK_DDDPRINT("old_len=%ld, new_len=%ld, target_len=%ld", + (long) old_len, (long) new_len, (long) target_len)); + + DUK_DDD(DUK_DDDPRINT("array length write, no array part, stage 2: remove " + "entries >= target_len")); + + for (i = 0; i < DUK_HOBJECT_GET_ENEXT(obj); i++) { + key = DUK_HOBJECT_E_GET_KEY(thr->heap, obj, i); + if (!key) { + DUK_DDD(DUK_DDDPRINT("skip entry index %ld: null key", (long) i)); + continue; + } + if (!DUK_HSTRING_HAS_ARRIDX(key)) { + DUK_DDD(DUK_DDDPRINT("skip entry index %ld: key not an array index", (long) i)); + continue; + } + + DUK_ASSERT(DUK_HSTRING_HAS_ARRIDX(key)); /* XXX: macro checks for array index flag, which is unnecessary here */ + arr_idx = DUK_HSTRING_GET_ARRIDX_SLOW(key); + DUK_ASSERT(arr_idx != DUK__NO_ARRAY_INDEX); + DUK_ASSERT(arr_idx < old_len); /* consistency requires this */ + + if (arr_idx < target_len) { + DUK_DDD(DUK_DDDPRINT("skip entry index %ld: key is array index %ld, below target_len", + (long) i, (long) arr_idx)); + continue; + } + DUK_ASSERT(force_flag || DUK_HOBJECT_E_SLOT_IS_CONFIGURABLE(thr->heap, obj, i)); /* stage 1 guarantees */ + + DUK_DDD(DUK_DDDPRINT("delete entry index %ld: key is array index %ld", + (long) i, (long) arr_idx)); + + /* + * Slow delete, but we don't care as we're already in a very slow path. + * The delete always succeeds: key has no exotic behavior, property + * is configurable, and no resize occurs. + */ + rc = duk_hobject_delprop_raw(thr, obj, key, force_flag ? DUK_DELPROP_FLAG_FORCE : 0); + DUK_UNREF(rc); + DUK_ASSERT(rc != 0); + } + + /* stage 3: update length (done by caller), decide return code */ + + DUK_DDD(DUK_DDDPRINT("array length write, no array part, stage 3: update length (done by caller)")); + + *out_result_len = target_len; + + if (target_len == new_len) { + DUK_DDD(DUK_DDDPRINT("target_len matches new_len, return success")); + return 1; + } + DUK_DDD(DUK_DDDPRINT("target_len does not match new_len (some entry prevented " + "full length adjustment), return error")); + return 0; + } + + DUK_UNREACHABLE(); +} + +/* XXX: is valstack top best place for argument? */ +DUK_LOCAL duk_bool_t duk__handle_put_array_length(duk_hthread *thr, duk_hobject *obj) { + duk_harray *a; + duk_uint32_t old_len; + duk_uint32_t new_len; + duk_uint32_t result_len; + duk_bool_t rc; + + DUK_DDD(DUK_DDDPRINT("handling a put operation to array 'length' exotic property, " + "new val: %!T", + (duk_tval *) duk_get_tval(thr, -1))); + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(obj != NULL); + + DUK_ASSERT_VALSTACK_SPACE(thr, DUK__VALSTACK_SPACE); + + DUK_ASSERT(DUK_HOBJECT_HAS_EXOTIC_ARRAY(obj)); + DUK_ASSERT(DUK_HOBJECT_IS_ARRAY(obj)); + a = (duk_harray *) obj; + DUK_HARRAY_ASSERT_VALID(a); + + DUK_ASSERT(duk_is_valid_index(thr, -1)); + + /* + * Get old and new length + */ + + old_len = a->length; + new_len = duk__to_new_array_length_checked(thr, DUK_GET_TVAL_NEGIDX(thr, -1)); + DUK_DDD(DUK_DDDPRINT("old_len=%ld, new_len=%ld", (long) old_len, (long) new_len)); + + /* + * Writability check + */ + + if (DUK_HARRAY_LENGTH_NONWRITABLE(a)) { + DUK_DDD(DUK_DDDPRINT("length is not writable, fail")); + return 0; + } + + /* + * New length not lower than old length => no changes needed + * (not even array allocation). + */ + + if (new_len >= old_len) { + DUK_DDD(DUK_DDDPRINT("new length is same or higher than old length, just update length, no deletions")); + a->length = new_len; + return 1; + } + + DUK_DDD(DUK_DDDPRINT("new length is lower than old length, probably must delete entries")); + + /* + * New length lower than old length => delete elements, then + * update length. + * + * Note: even though a bunch of elements have been deleted, the 'desc' is + * still valid as properties haven't been resized (and entries compacted). + */ + + rc = duk__handle_put_array_length_smaller(thr, obj, old_len, new_len, 0 /*force_flag*/, &result_len); + DUK_ASSERT(result_len >= new_len && result_len <= old_len); + + a->length = result_len; + + /* XXX: shrink array allocation or entries compaction here? */ + + return rc; +} + +/* + * PUTPROP: ECMAScript property write. + * + * Unlike ECMAScript primitive which returns nothing, returns 1 to indicate + * success and 0 to indicate failure (assuming throw is not set). + * + * This is an extremely tricky function. Some examples: + * + * * Currently a decref may trigger a GC, which may compact an object's + * property allocation. Consequently, any entry indices (e_idx) will + * be potentially invalidated by a decref. + * + * * Exotic behaviors (strings, arrays, arguments object) require, + * among other things: + * + * - Preprocessing before and postprocessing after an actual property + * write. For example, array index write requires pre-checking the + * array 'length' property for access control, and may require an + * array 'length' update after the actual write has succeeded (but + * not if it fails). + * + * - Deletion of multiple entries, as a result of array 'length' write. + * + * * Input values are taken as pointers which may point to the valstack. + * If valstack is resized because of the put (this may happen at least + * when the array part is abandoned), the pointers can be invalidated. + * (We currently make a copy of all of the input values to avoid issues.) + */ + +DUK_INTERNAL duk_bool_t duk_hobject_putprop(duk_hthread *thr, duk_tval *tv_obj, duk_tval *tv_key, duk_tval *tv_val, duk_bool_t throw_flag) { + duk_tval tv_obj_copy; + duk_tval tv_key_copy; + duk_tval tv_val_copy; + duk_hobject *orig = NULL; /* NULL if tv_obj is primitive */ + duk_hobject *curr; + duk_hstring *key = NULL; + duk_propdesc desc; + duk_tval *tv; + duk_uint32_t arr_idx; + duk_bool_t rc; + duk_int_t e_idx; + duk_uint_t sanity; + duk_uint32_t new_array_length = 0; /* 0 = no update */ + + DUK_DDD(DUK_DDDPRINT("putprop: thr=%p, obj=%p, key=%p, val=%p, throw=%ld " + "(obj -> %!T, key -> %!T, val -> %!T)", + (void *) thr, (void *) tv_obj, (void *) tv_key, (void *) tv_val, + (long) throw_flag, (duk_tval *) tv_obj, (duk_tval *) tv_key, (duk_tval *) tv_val)); + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(thr->heap != NULL); + DUK_ASSERT(tv_obj != NULL); + DUK_ASSERT(tv_key != NULL); + DUK_ASSERT(tv_val != NULL); + + DUK_ASSERT_VALSTACK_SPACE(thr, DUK__VALSTACK_SPACE); + + DUK_STATS_INC(thr->heap, stats_putprop_all); + + /* + * Make a copy of tv_obj, tv_key, and tv_val to avoid any issues of + * them being invalidated by a valstack resize. + * + * XXX: this is an overkill for some paths, so optimize this later + * (or maybe switch to a stack arguments model entirely). + */ + + DUK_TVAL_SET_TVAL(&tv_obj_copy, tv_obj); + DUK_TVAL_SET_TVAL(&tv_key_copy, tv_key); + DUK_TVAL_SET_TVAL(&tv_val_copy, tv_val); + tv_obj = &tv_obj_copy; + tv_key = &tv_key_copy; + tv_val = &tv_val_copy; + + /* + * Coercion and fast path processing. + */ + + switch (DUK_TVAL_GET_TAG(tv_obj)) { + case DUK_TAG_UNDEFINED: + case DUK_TAG_NULL: { + /* Note: unconditional throw */ + DUK_DDD(DUK_DDDPRINT("base object is undefined or null -> reject (object=%!iT)", + (duk_tval *) tv_obj)); +#if defined(DUK_USE_PARANOID_ERRORS) + DUK_ERROR_TYPE(thr, DUK_STR_INVALID_BASE); +#else + DUK_ERROR_FMT2(thr, DUK_ERR_TYPE_ERROR, "cannot write property %s of %s", + duk_push_string_tval_readable(thr, tv_key), duk_push_string_tval_readable(thr, tv_obj)); +#endif + DUK_WO_NORETURN(return 0;); + break; + } + + case DUK_TAG_BOOLEAN: { + DUK_DDD(DUK_DDDPRINT("base object is a boolean, start lookup from boolean prototype")); + curr = thr->builtins[DUK_BIDX_BOOLEAN_PROTOTYPE]; + break; + } + + case DUK_TAG_STRING: { + duk_hstring *h = DUK_TVAL_GET_STRING(tv_obj); + + /* + * Note: currently no fast path for array index writes. + * They won't be possible anyway as strings are immutable. + */ + + DUK_ASSERT(key == NULL); + arr_idx = duk__push_tval_to_property_key(thr, tv_key, &key); + DUK_ASSERT(key != NULL); + + if (DUK_UNLIKELY(DUK_HSTRING_HAS_SYMBOL(h))) { + /* Symbols (ES2015 or hidden) don't have virtual properties. */ + curr = thr->builtins[DUK_BIDX_SYMBOL_PROTOTYPE]; + goto lookup; + } + + if (key == DUK_HTHREAD_STRING_LENGTH(thr)) { + goto fail_not_writable; + } + + if (arr_idx != DUK__NO_ARRAY_INDEX && + arr_idx < DUK_HSTRING_GET_CHARLEN(h)) { + goto fail_not_writable; + } + + DUK_DDD(DUK_DDDPRINT("base object is a string, start lookup from string prototype")); + curr = thr->builtins[DUK_BIDX_STRING_PROTOTYPE]; + goto lookup; /* avoid double coercion */ + } + + case DUK_TAG_OBJECT: { + orig = DUK_TVAL_GET_OBJECT(tv_obj); + DUK_ASSERT(orig != NULL); + +#if defined(DUK_USE_ROM_OBJECTS) + /* With this check in place fast paths won't need read-only + * object checks. This is technically incorrect if there are + * setters that cause no writes to ROM objects, but current + * built-ins don't have such setters. + */ + if (DUK_HEAPHDR_HAS_READONLY((duk_heaphdr *) orig)) { + DUK_DD(DUK_DDPRINT("attempt to putprop on read-only target object")); + goto fail_not_writable_no_pop; /* Must avoid duk_pop() in exit path */ + } +#endif + + /* The fast path for array property put is not fully compliant: + * If one places conflicting number-indexed properties into + * Array.prototype (for example, a non-writable Array.prototype[7]) + * the fast path will incorrectly ignore them. + * + * This fast path could be made compliant by falling through + * to the slow path if the previous value was UNUSED. This would + * also remove the need to check for extensibility. Right now a + * non-extensible array is slower than an extensible one as far + * as writes are concerned. + * + * The fast path behavior is documented in more detail here: + * tests/ecmascript/test-misc-array-fast-write.js + */ + + /* XXX: array .length? */ + +#if defined(DUK_USE_ARRAY_PROP_FASTPATH) + if (duk__putprop_shallow_fastpath_array_tval(thr, orig, tv_key, tv_val) != 0) { + DUK_DDD(DUK_DDDPRINT("array fast path success")); + DUK_STATS_INC(thr->heap, stats_putprop_arrayidx); + return 1; + } +#endif + +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) + if (duk__putprop_fastpath_bufobj_tval(thr, orig, tv_key, tv_val) != 0) { + DUK_DDD(DUK_DDDPRINT("base is bufobj, key is a number, bufobj fast path")); + DUK_STATS_INC(thr->heap, stats_putprop_bufobjidx); + return 1; + } +#endif + +#if defined(DUK_USE_ES6_PROXY) + if (DUK_UNLIKELY(DUK_HOBJECT_IS_PROXY(orig))) { + duk_hobject *h_target; + duk_bool_t tmp_bool; + + if (duk__proxy_check_prop(thr, orig, DUK_STRIDX_SET, tv_key, &h_target)) { + /* -> [ ... trap handler ] */ + DUK_DDD(DUK_DDDPRINT("-> proxy object 'set' for key %!T", (duk_tval *) tv_key)); + DUK_STATS_INC(thr->heap, stats_putprop_proxy); + duk_push_hobject(thr, h_target); /* target */ + duk_push_tval(thr, tv_key); /* P */ + duk_push_tval(thr, tv_val); /* V */ + duk_push_tval(thr, tv_obj); /* Receiver: Proxy object */ + duk_call_method(thr, 4 /*nargs*/); + tmp_bool = duk_to_boolean_top_pop(thr); + if (!tmp_bool) { + goto fail_proxy_rejected; + } + + /* Target object must be checked for a conflicting + * non-configurable property. + */ + arr_idx = duk__push_tval_to_property_key(thr, tv_key, &key); + DUK_ASSERT(key != NULL); + + if (duk__get_own_propdesc_raw(thr, h_target, key, arr_idx, &desc, DUK_GETDESC_FLAG_PUSH_VALUE)) { + duk_tval *tv_targ = duk_require_tval(thr, -1); + duk_bool_t datadesc_reject; + duk_bool_t accdesc_reject; + + DUK_DDD(DUK_DDDPRINT("proxy 'set': target has matching property %!O, check for " + "conflicting property; tv_val=%!T, tv_targ=%!T, desc.flags=0x%08lx, " + "desc.get=%p, desc.set=%p", + (duk_heaphdr *) key, (duk_tval *) tv_val, (duk_tval *) tv_targ, + (unsigned long) desc.flags, + (void *) desc.get, (void *) desc.set)); + + datadesc_reject = !(desc.flags & DUK_PROPDESC_FLAG_ACCESSOR) && + !(desc.flags & DUK_PROPDESC_FLAG_CONFIGURABLE) && + !(desc.flags & DUK_PROPDESC_FLAG_WRITABLE) && + !duk_js_samevalue(tv_val, tv_targ); + accdesc_reject = (desc.flags & DUK_PROPDESC_FLAG_ACCESSOR) && + !(desc.flags & DUK_PROPDESC_FLAG_CONFIGURABLE) && + (desc.set == NULL); + if (datadesc_reject || accdesc_reject) { + DUK_ERROR_TYPE(thr, DUK_STR_PROXY_REJECTED); + DUK_WO_NORETURN(return 0;); + } + + duk_pop_2_unsafe(thr); + } else { + duk_pop_unsafe(thr); + } + return 1; /* success */ + } + + orig = h_target; /* resume write to target */ + DUK_TVAL_SET_OBJECT(tv_obj, orig); + } +#endif /* DUK_USE_ES6_PROXY */ + + curr = orig; + break; + } + + case DUK_TAG_BUFFER: { + duk_hbuffer *h = DUK_TVAL_GET_BUFFER(tv_obj); + duk_int_t pop_count = 0; + + /* + * Because buffer values may be looped over and read/written + * from, an array index fast path is important. + */ + +#if defined(DUK_USE_FASTINT) + if (DUK_TVAL_IS_FASTINT(tv_key)) { + arr_idx = duk__tval_fastint_to_arr_idx(tv_key); + DUK_DDD(DUK_DDDPRINT("base object buffer, key is a fast-path fastint; arr_idx %ld", (long) arr_idx)); + pop_count = 0; + } else +#endif + if (DUK_TVAL_IS_NUMBER(tv_key)) { + arr_idx = duk__tval_number_to_arr_idx(tv_key); + DUK_DDD(DUK_DDDPRINT("base object buffer, key is a fast-path number; arr_idx %ld", (long) arr_idx)); + pop_count = 0; + } else { + arr_idx = duk__push_tval_to_property_key(thr, tv_key, &key); + DUK_ASSERT(key != NULL); + DUK_DDD(DUK_DDDPRINT("base object buffer, key is a non-fast-path number; after " + "coercion key is %!T, arr_idx %ld", + (duk_tval *) duk_get_tval(thr, -1), (long) arr_idx)); + pop_count = 1; + } + + if (arr_idx != DUK__NO_ARRAY_INDEX && + arr_idx < DUK_HBUFFER_GET_SIZE(h)) { + duk_uint8_t *data; + DUK_DDD(DUK_DDDPRINT("writing to buffer data at index %ld", (long) arr_idx)); + data = (duk_uint8_t *) DUK_HBUFFER_GET_DATA_PTR(thr->heap, h); + + /* XXX: duk_to_int() ensures we'll get 8 lowest bits as + * as input is within duk_int_t range (capped outside it). + */ +#if defined(DUK_USE_FASTINT) + /* Buffer writes are often integers. */ + if (DUK_TVAL_IS_FASTINT(tv_val)) { + data[arr_idx] = (duk_uint8_t) DUK_TVAL_GET_FASTINT_U32(tv_val); + } + else +#endif + { + duk_push_tval(thr, tv_val); + data[arr_idx] = (duk_uint8_t) duk_to_uint32(thr, -1); + pop_count++; + } + + duk_pop_n_unsafe(thr, pop_count); + DUK_DDD(DUK_DDDPRINT("result: success (buffer data write)")); + DUK_STATS_INC(thr->heap, stats_putprop_bufferidx); + return 1; + } + + if (pop_count == 0) { + /* This is a pretty awkward control flow, but we need to recheck the + * key coercion here. + */ + arr_idx = duk__push_tval_to_property_key(thr, tv_key, &key); + DUK_ASSERT(key != NULL); + DUK_DDD(DUK_DDDPRINT("base object buffer, key is a non-fast-path number; after " + "coercion key is %!T, arr_idx %ld", + (duk_tval *) duk_get_tval(thr, -1), (long) arr_idx)); + } + + if (key == DUK_HTHREAD_STRING_LENGTH(thr)) { + goto fail_not_writable; + } + + DUK_DDD(DUK_DDDPRINT("base object is a buffer, start lookup from Uint8Array prototype")); + curr = thr->builtins[DUK_BIDX_UINT8ARRAY_PROTOTYPE]; + goto lookup; /* avoid double coercion */ + } + + case DUK_TAG_POINTER: { + DUK_DDD(DUK_DDDPRINT("base object is a pointer, start lookup from pointer prototype")); + curr = thr->builtins[DUK_BIDX_POINTER_PROTOTYPE]; + break; + } + + case DUK_TAG_LIGHTFUNC: { + /* Lightfuncs have no own properties and are considered non-extensible. + * However, the write may be captured by an inherited setter which + * means we can't stop the lookup here. + */ + DUK_DDD(DUK_DDDPRINT("base object is a lightfunc, start lookup from function prototype")); + curr = thr->builtins[DUK_BIDX_NATIVE_FUNCTION_PROTOTYPE]; + break; + } + +#if defined(DUK_USE_FASTINT) + case DUK_TAG_FASTINT: +#endif + default: { + /* number */ + DUK_DDD(DUK_DDDPRINT("base object is a number, start lookup from number prototype")); + DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv_obj)); + curr = thr->builtins[DUK_BIDX_NUMBER_PROTOTYPE]; + break; + } + } + + DUK_ASSERT(key == NULL); + arr_idx = duk__push_tval_to_property_key(thr, tv_key, &key); + DUK_ASSERT(key != NULL); + + lookup: + + /* + * Check whether the property already exists in the prototype chain. + * Note that the actual write goes into the original base object + * (except if an accessor property captures the write). + */ + + /* [key] */ + + DUK_ASSERT(curr != NULL); + sanity = DUK_HOBJECT_PROTOTYPE_CHAIN_SANITY; + do { + if (!duk__get_own_propdesc_raw(thr, curr, key, arr_idx, &desc, 0 /*flags*/)) { /* don't push value */ + goto next_in_chain; + } + + if (desc.flags & DUK_PROPDESC_FLAG_ACCESSOR) { + /* + * Found existing accessor property (own or inherited). + * Call setter with 'this' set to orig, and value as the only argument. + * Setter calls are OK even for ROM objects. + * + * Note: no exotic arguments object behavior, because [[Put]] never + * calls [[DefineOwnProperty]] (E5 Section 8.12.5, step 5.b). + */ + + duk_hobject *setter; + + DUK_DD(DUK_DDPRINT("put to an own or inherited accessor, calling setter")); + + setter = DUK_HOBJECT_E_GET_VALUE_SETTER(thr->heap, curr, desc.e_idx); + if (!setter) { + goto fail_no_setter; + } + duk_push_hobject(thr, setter); + duk_push_tval(thr, tv_obj); /* note: original, uncoerced base */ + duk_push_tval(thr, tv_val); /* [key setter this val] */ +#if defined(DUK_USE_NONSTD_SETTER_KEY_ARGUMENT) + duk_dup_m4(thr); + duk_call_method(thr, 2); /* [key setter this val key] -> [key retval] */ +#else + duk_call_method(thr, 1); /* [key setter this val] -> [key retval] */ +#endif + duk_pop_unsafe(thr); /* ignore retval -> [key] */ + goto success_no_arguments_exotic; + } + + if (orig == NULL) { + /* + * Found existing own or inherited plain property, but original + * base is a primitive value. + */ + DUK_DD(DUK_DDPRINT("attempt to create a new property in a primitive base object")); + goto fail_base_primitive; + } + + if (curr != orig) { + /* + * Found existing inherited plain property. + * Do an access control check, and if OK, write + * new property to 'orig'. + */ + if (!DUK_HOBJECT_HAS_EXTENSIBLE(orig)) { + DUK_DD(DUK_DDPRINT("found existing inherited plain property, but original object is not extensible")); + goto fail_not_extensible; + } + if (!(desc.flags & DUK_PROPDESC_FLAG_WRITABLE)) { + DUK_DD(DUK_DDPRINT("found existing inherited plain property, original object is extensible, but inherited property is not writable")); + goto fail_not_writable; + } + DUK_DD(DUK_DDPRINT("put to new property, object extensible, inherited property found and is writable")); + goto create_new; + } else { + /* + * Found existing own (non-inherited) plain property. + * Do an access control check and update in place. + */ + + if (!(desc.flags & DUK_PROPDESC_FLAG_WRITABLE)) { + DUK_DD(DUK_DDPRINT("found existing own (non-inherited) plain property, but property is not writable")); + goto fail_not_writable; + } + if (desc.flags & DUK_PROPDESC_FLAG_VIRTUAL) { + DUK_DD(DUK_DDPRINT("found existing own (non-inherited) virtual property, property is writable")); + + if (DUK_HOBJECT_IS_ARRAY(curr)) { + /* + * Write to 'length' of an array is a very complex case + * handled in a helper which updates both the array elements + * and writes the new 'length'. The write may result in an + * unconditional RangeError or a partial write (indicated + * by a return code). + * + * Note: the helper has an unnecessary writability check + * for 'length', we already know it is writable. + */ + DUK_ASSERT(key == DUK_HTHREAD_STRING_LENGTH(thr)); /* only virtual array property */ + + DUK_DDD(DUK_DDDPRINT("writing existing 'length' property to array exotic, invoke complex helper")); + + /* XXX: the helper currently assumes stack top contains new + * 'length' value and the whole calling convention is not very + * compatible with what we need. + */ + + duk_push_tval(thr, tv_val); /* [key val] */ + rc = duk__handle_put_array_length(thr, orig); + duk_pop_unsafe(thr); /* [key val] -> [key] */ + if (!rc) { + goto fail_array_length_partial; + } + + /* key is 'length', cannot match argument exotic behavior */ + goto success_no_arguments_exotic; + } +#if defined(DUK_USE_BUFFEROBJECT_SUPPORT) + else if (DUK_HOBJECT_IS_BUFOBJ(curr)) { + duk_hbufobj *h_bufobj; + duk_uint_t byte_off; + duk_small_uint_t elem_size; + + h_bufobj = (duk_hbufobj *) curr; + DUK_HBUFOBJ_ASSERT_VALID(h_bufobj); + + DUK_DD(DUK_DDPRINT("writable virtual property is in buffer object")); + + /* Careful with wrapping: arr_idx upshift may easily wrap, whereas + * length downshift won't. + */ + if (arr_idx < (h_bufobj->length >> h_bufobj->shift) && DUK_HBUFOBJ_HAS_VIRTUAL_INDICES(h_bufobj)) { + duk_uint8_t *data; + DUK_DDD(DUK_DDDPRINT("writing to buffer data at index %ld", (long) arr_idx)); + + DUK_ASSERT(arr_idx != DUK__NO_ARRAY_INDEX); /* index/length check guarantees */ + byte_off = arr_idx << h_bufobj->shift; /* no wrap assuming h_bufobj->length is valid */ + elem_size = (duk_small_uint_t) (1U << h_bufobj->shift); + + /* Coerce to number before validating pointers etc so that the + * number coercions in duk_hbufobj_validated_write() are + * guaranteed to be side effect free and not invalidate the + * pointer checks we do here. + */ + duk_push_tval(thr, tv_val); + (void) duk_to_number_m1(thr); + + if (h_bufobj->buf != NULL && DUK_HBUFOBJ_VALID_BYTEOFFSET_EXCL(h_bufobj, byte_off + elem_size)) { + data = (duk_uint8_t *) DUK_HBUFFER_GET_DATA_PTR(thr->heap, h_bufobj->buf) + h_bufobj->offset + byte_off; + duk_hbufobj_validated_write(thr, h_bufobj, data, elem_size); + } else { + DUK_D(DUK_DPRINT("bufobj access out of underlying buffer, ignoring (write skipped)")); + } + duk_pop_unsafe(thr); + goto success_no_arguments_exotic; + } + } +#endif /* DUK_USE_BUFFEROBJECT_SUPPORT */ + + DUK_D(DUK_DPRINT("should not happen, key %!O", key)); + goto fail_internal; /* should not happen */ + } + DUK_DD(DUK_DDPRINT("put to existing own plain property, property is writable")); + goto update_old; + } + DUK_UNREACHABLE(); + + next_in_chain: + /* XXX: option to pretend property doesn't exist if sanity limit is + * hit might be useful. + */ + if (DUK_UNLIKELY(sanity-- == 0)) { + DUK_ERROR_RANGE(thr, DUK_STR_PROTOTYPE_CHAIN_LIMIT); + DUK_WO_NORETURN(return 0;); + } + curr = DUK_HOBJECT_GET_PROTOTYPE(thr->heap, curr); + } while (curr != NULL); + + /* + * Property not found in prototype chain. + */ + + DUK_DDD(DUK_DDDPRINT("property not found in prototype chain")); + + if (orig == NULL) { + DUK_DD(DUK_DDPRINT("attempt to create a new property in a primitive base object")); + goto fail_base_primitive; + } + + if (!DUK_HOBJECT_HAS_EXTENSIBLE(orig)) { + DUK_DD(DUK_DDPRINT("put to a new property (not found in prototype chain), but original object not extensible")); + goto fail_not_extensible; + } + + goto create_new; + + update_old: + + /* + * Update an existing property of the base object. + */ + + /* [key] */ + + DUK_DDD(DUK_DDDPRINT("update an existing property of the original object")); + + DUK_ASSERT(orig != NULL); +#if defined(DUK_USE_ROM_OBJECTS) + /* This should not happen because DUK_TAG_OBJECT case checks + * for this already, but check just in case. + */ + if (DUK_HEAPHDR_HAS_READONLY((duk_heaphdr *) orig)) { + goto fail_not_writable; + } +#endif + + /* Although there are writable virtual properties (e.g. plain buffer + * and buffer object number indices), they are handled before we come + * here. + */ + DUK_ASSERT((desc.flags & DUK_PROPDESC_FLAG_VIRTUAL) == 0); + DUK_ASSERT(desc.a_idx >= 0 || desc.e_idx >= 0); + + /* Array own property .length is handled above. */ + DUK_ASSERT(!(DUK_HOBJECT_IS_ARRAY(orig) && key == DUK_HTHREAD_STRING_LENGTH(thr))); + + if (desc.e_idx >= 0) { + tv = DUK_HOBJECT_E_GET_VALUE_TVAL_PTR(thr->heap, orig, desc.e_idx); + DUK_DDD(DUK_DDDPRINT("previous entry value: %!iT", (duk_tval *) tv)); + DUK_TVAL_SET_TVAL_UPDREF(thr, tv, tv_val); /* side effects; e_idx may be invalidated */ + /* don't touch property attributes or hash part */ + DUK_DD(DUK_DDPRINT("put to an existing entry at index %ld -> new value %!iT", + (long) desc.e_idx, (duk_tval *) tv)); + } else { + /* Note: array entries are always writable, so the writability check + * above is pointless for them. The check could be avoided with some + * refactoring but is probably not worth it. + */ + + DUK_ASSERT(desc.a_idx >= 0); + tv = DUK_HOBJECT_A_GET_VALUE_PTR(thr->heap, orig, desc.a_idx); + DUK_DDD(DUK_DDDPRINT("previous array value: %!iT", (duk_tval *) tv)); + DUK_TVAL_SET_TVAL_UPDREF(thr, tv, tv_val); /* side effects; a_idx may be invalidated */ + DUK_DD(DUK_DDPRINT("put to an existing array entry at index %ld -> new value %!iT", + (long) desc.a_idx, (duk_tval *) tv)); + } + + /* Regardless of whether property is found in entry or array part, + * it may have arguments exotic behavior (array indices may reside + * in entry part for abandoned / non-existent array parts). + */ + goto success_with_arguments_exotic; + + create_new: + + /* + * Create a new property in the original object. + * + * Exotic properties need to be reconsidered here from a write + * perspective (not just property attributes perspective). + * However, the property does not exist in the object already, + * so this limits the kind of exotic properties that apply. + */ + + /* [key] */ + + DUK_DDD(DUK_DDDPRINT("create new property to original object")); + + DUK_ASSERT(orig != NULL); + + /* Array own property .length is handled above. */ + DUK_ASSERT(!(DUK_HOBJECT_IS_ARRAY(orig) && key == DUK_HTHREAD_STRING_LENGTH(thr))); + +#if defined(DUK_USE_ROM_OBJECTS) + /* This should not happen because DUK_TAG_OBJECT case checks + * for this already, but check just in case. + */ + if (DUK_HEAPHDR_HAS_READONLY((duk_heaphdr *) orig)) { + goto fail_not_writable; + } +#endif + + /* Not possible because array object 'length' is present + * from its creation and cannot be deleted, and is thus + * caught as an existing property above. + */ + DUK_ASSERT(!(DUK_HOBJECT_HAS_EXOTIC_ARRAY(orig) && + key == DUK_HTHREAD_STRING_LENGTH(thr))); + + if (DUK_HOBJECT_HAS_EXOTIC_ARRAY(orig) && + arr_idx != DUK__NO_ARRAY_INDEX) { + /* automatic length update */ + duk_uint32_t old_len; + duk_harray *a; + + a = (duk_harray *) orig; + DUK_HARRAY_ASSERT_VALID(a); + + old_len = a->length; + + if (arr_idx >= old_len) { + DUK_DDD(DUK_DDDPRINT("write new array entry requires length update " + "(arr_idx=%ld, old_len=%ld)", + (long) arr_idx, (long) old_len)); + + if (DUK_HARRAY_LENGTH_NONWRITABLE(a)) { + DUK_DD(DUK_DDPRINT("attempt to extend array, but array 'length' is not writable")); + goto fail_not_writable; + } + + /* Note: actual update happens once write has been completed + * without error below. The write should always succeed + * from a specification viewpoint, but we may e.g. run out + * of memory. It's safer in this order. + */ + + DUK_ASSERT(arr_idx != 0xffffffffUL); + new_array_length = arr_idx + 1; /* flag for later write */ + } else { + DUK_DDD(DUK_DDDPRINT("write new array entry does not require length update " + "(arr_idx=%ld, old_len=%ld)", + (long) arr_idx, (long) old_len)); + } + } + + /* write_to_array_part: */ + + /* + * Write to array part? + * + * Note: array abandonding requires a property resize which uses + * 'rechecks' valstack for temporaries and may cause any existing + * valstack pointers to be invalidated. To protect against this, + * tv_obj, tv_key, and tv_val are copies of the original inputs. + */ + + if (arr_idx != DUK__NO_ARRAY_INDEX && DUK_HOBJECT_HAS_ARRAY_PART(orig)) { + tv = duk__obtain_arridx_slot(thr, arr_idx, orig); + if (tv == NULL) { + DUK_ASSERT(!DUK_HOBJECT_HAS_ARRAY_PART(orig)); + goto write_to_entry_part; + } + + /* prev value must be unused, no decref */ + DUK_ASSERT(DUK_TVAL_IS_UNUSED(tv)); + DUK_TVAL_SET_TVAL(tv, tv_val); + DUK_TVAL_INCREF(thr, tv); + DUK_DD(DUK_DDPRINT("put to new array entry: %ld -> %!T", + (long) arr_idx, (duk_tval *) tv)); + + /* Note: array part values are [[Writable]], [[Enumerable]], + * and [[Configurable]] which matches the required attributes + * here. + */ + goto entry_updated; + } + + write_to_entry_part: + + /* + * Write to entry part + */ + + /* entry allocation updates hash part and increases the key + * refcount; may need a props allocation resize but doesn't + * 'recheck' the valstack. + */ + e_idx = duk__hobject_alloc_entry_checked(thr, orig, key); + DUK_ASSERT(e_idx >= 0); + + tv = DUK_HOBJECT_E_GET_VALUE_TVAL_PTR(thr->heap, orig, e_idx); + /* prev value can be garbage, no decref */ + DUK_TVAL_SET_TVAL(tv, tv_val); + DUK_TVAL_INCREF(thr, tv); + DUK_HOBJECT_E_SET_FLAGS(thr->heap, orig, e_idx, DUK_PROPDESC_FLAGS_WEC); + goto entry_updated; + + entry_updated: + + /* + * Possible pending array length update, which must only be done + * if the actual entry write succeeded. + */ + + if (new_array_length > 0) { + /* Note: zero works as a "no update" marker because the new length + * can never be zero after a new property is written. + */ + + DUK_ASSERT(DUK_HOBJECT_HAS_EXOTIC_ARRAY(orig)); + + DUK_DDD(DUK_DDDPRINT("write successful, pending array length update to: %ld", + (long) new_array_length)); + + ((duk_harray *) orig)->length = new_array_length; + } + + /* + * Arguments exotic behavior not possible for new properties: all + * magically bound properties are initially present in the arguments + * object, and if they are deleted, the binding is also removed from + * parameter map. + */ + + goto success_no_arguments_exotic; + + success_with_arguments_exotic: + + /* + * Arguments objects have exotic [[DefineOwnProperty]] which updates + * the internal 'map' of arguments for writes to currently mapped + * arguments. More conretely, writes to mapped arguments generate + * a write to a bound variable. + * + * The [[Put]] algorithm invokes [[DefineOwnProperty]] for existing + * data properties and new properties, but not for existing accessors. + * Hence, in E5 Section 10.6 ([[DefinedOwnProperty]] algorithm), we + * have a Desc with 'Value' (and possibly other properties too), and + * we end up in step 5.b.i. + */ + + if (arr_idx != DUK__NO_ARRAY_INDEX && + DUK_HOBJECT_HAS_EXOTIC_ARGUMENTS(orig)) { + /* Note: only numbered indices are relevant, so arr_idx fast reject + * is good (this is valid unless there are more than 4**32-1 arguments). + */ + + DUK_DDD(DUK_DDDPRINT("putprop successful, arguments exotic behavior needed")); + + /* Note: we can reuse 'desc' here */ + + /* XXX: top of stack must contain value, which helper doesn't touch, + * rework to use tv_val directly? + */ + + duk_push_tval(thr, tv_val); + (void) duk__check_arguments_map_for_put(thr, orig, key, &desc, throw_flag); + duk_pop_unsafe(thr); + } + /* fall thru */ + + success_no_arguments_exotic: + /* shared exit path now */ + DUK_DDD(DUK_DDDPRINT("result: success")); + duk_pop_unsafe(thr); /* remove key */ + return 1; + +#if defined(DUK_USE_ES6_PROXY) + fail_proxy_rejected: + DUK_DDD(DUK_DDDPRINT("result: error, proxy rejects")); + if (throw_flag) { + DUK_ERROR_TYPE(thr, DUK_STR_PROXY_REJECTED); + DUK_WO_NORETURN(return 0;); + } + /* Note: no key on stack */ + return 0; +#endif + + fail_base_primitive: + DUK_DDD(DUK_DDDPRINT("result: error, base primitive")); + if (throw_flag) { +#if defined(DUK_USE_PARANOID_ERRORS) + DUK_ERROR_TYPE(thr, DUK_STR_INVALID_BASE); +#else + DUK_ERROR_FMT2(thr, DUK_ERR_TYPE_ERROR, "cannot write property %s of %s", + duk_push_string_tval_readable(thr, tv_key), duk_push_string_tval_readable(thr, tv_obj)); +#endif + DUK_WO_NORETURN(return 0;); + } + duk_pop_unsafe(thr); /* remove key */ + return 0; + + fail_not_extensible: + DUK_DDD(DUK_DDDPRINT("result: error, not extensible")); + if (throw_flag) { + DUK_ERROR_TYPE(thr, DUK_STR_NOT_EXTENSIBLE); + DUK_WO_NORETURN(return 0;); + } + duk_pop_unsafe(thr); /* remove key */ + return 0; + + fail_not_writable: + DUK_DDD(DUK_DDDPRINT("result: error, not writable")); + if (throw_flag) { + DUK_ERROR_TYPE(thr, DUK_STR_NOT_WRITABLE); + DUK_WO_NORETURN(return 0;); + } + duk_pop_unsafe(thr); /* remove key */ + return 0; + +#if defined(DUK_USE_ROM_OBJECTS) + fail_not_writable_no_pop: + DUK_DDD(DUK_DDDPRINT("result: error, not writable")); + if (throw_flag) { + DUK_ERROR_TYPE(thr, DUK_STR_NOT_WRITABLE); + DUK_WO_NORETURN(return 0;); + } + return 0; +#endif + + fail_array_length_partial: + DUK_DD(DUK_DDPRINT("result: error, array length write only partially successful")); + if (throw_flag) { + DUK_ERROR_TYPE(thr, DUK_STR_NOT_CONFIGURABLE); + DUK_WO_NORETURN(return 0;); + } + duk_pop_unsafe(thr); /* remove key */ + return 0; + + fail_no_setter: + DUK_DDD(DUK_DDDPRINT("result: error, accessor property without setter")); + if (throw_flag) { + DUK_ERROR_TYPE(thr, DUK_STR_SETTER_UNDEFINED); + DUK_WO_NORETURN(return 0;); + } + duk_pop_unsafe(thr); /* remove key */ + return 0; + + fail_internal: + DUK_DDD(DUK_DDDPRINT("result: error, internal")); + if (throw_flag) { + DUK_ERROR_INTERNAL(thr); + DUK_WO_NORETURN(return 0;); + } + duk_pop_unsafe(thr); /* remove key */ + return 0; +} + +/* + * ECMAScript compliant [[Delete]](P, Throw). + */ + +DUK_INTERNAL duk_bool_t duk_hobject_delprop_raw(duk_hthread *thr, duk_hobject *obj, duk_hstring *key, duk_small_uint_t flags) { + duk_propdesc desc; + duk_tval *tv; + duk_uint32_t arr_idx; + duk_bool_t throw_flag; + duk_bool_t force_flag; + + throw_flag = (flags & DUK_DELPROP_FLAG_THROW); + force_flag = (flags & DUK_DELPROP_FLAG_FORCE); + + DUK_DDD(DUK_DDDPRINT("delprop_raw: thr=%p, obj=%p, key=%p, throw=%ld, force=%ld (obj -> %!O, key -> %!O)", + (void *) thr, (void *) obj, (void *) key, (long) throw_flag, (long) force_flag, + (duk_heaphdr *) obj, (duk_heaphdr *) key)); + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(thr->heap != NULL); + DUK_ASSERT(obj != NULL); + DUK_ASSERT(key != NULL); + + DUK_ASSERT_VALSTACK_SPACE(thr, DUK__VALSTACK_SPACE); + + arr_idx = DUK_HSTRING_GET_ARRIDX_FAST(key); + + /* 0 = don't push current value */ + if (!duk__get_own_propdesc_raw(thr, obj, key, arr_idx, &desc, 0 /*flags*/)) { /* don't push value */ + DUK_DDD(DUK_DDDPRINT("property not found, succeed always")); + goto success; + } + +#if defined(DUK_USE_ROM_OBJECTS) + if (DUK_HEAPHDR_HAS_READONLY((duk_heaphdr *) obj)) { + DUK_DD(DUK_DDPRINT("attempt to delprop on read-only target object")); + goto fail_not_configurable; + } +#endif + + if ((desc.flags & DUK_PROPDESC_FLAG_CONFIGURABLE) == 0 && !force_flag) { + goto fail_not_configurable; + } + if (desc.a_idx < 0 && desc.e_idx < 0) { + /* Currently there are no deletable virtual properties, but + * with force_flag we might attempt to delete one. + */ + DUK_DD(DUK_DDPRINT("delete failed: property found, force flag, but virtual (and implicitly non-configurable)")); + goto fail_virtual; + } + + if (desc.a_idx >= 0) { + DUK_ASSERT(desc.e_idx < 0); + + tv = DUK_HOBJECT_A_GET_VALUE_PTR(thr->heap, obj, desc.a_idx); + DUK_TVAL_SET_UNUSED_UPDREF(thr, tv); /* side effects */ + goto success; + } else { + DUK_ASSERT(desc.a_idx < 0); + + /* remove hash entry (no decref) */ +#if defined(DUK_USE_HOBJECT_HASH_PART) + if (desc.h_idx >= 0) { + duk_uint32_t *h_base = DUK_HOBJECT_H_GET_BASE(thr->heap, obj); + + DUK_DDD(DUK_DDDPRINT("removing hash entry at h_idx %ld", (long) desc.h_idx)); + DUK_ASSERT(DUK_HOBJECT_GET_HSIZE(obj) > 0); + DUK_ASSERT((duk_uint32_t) desc.h_idx < DUK_HOBJECT_GET_HSIZE(obj)); + h_base[desc.h_idx] = DUK__HASH_DELETED; + } else { + DUK_ASSERT(DUK_HOBJECT_GET_HSIZE(obj) == 0); + } +#else + DUK_ASSERT(DUK_HOBJECT_GET_HSIZE(obj) == 0); +#endif + + /* Remove value. This requires multiple writes so avoid side + * effects via no-refzero macros so that e_idx is not + * invalidated. + */ + DUK_DDD(DUK_DDDPRINT("before removing value, e_idx %ld, key %p, key at slot %p", + (long) desc.e_idx, (void *) key, (void *) DUK_HOBJECT_E_GET_KEY(thr->heap, obj, desc.e_idx))); + DUK_DDD(DUK_DDDPRINT("removing value at e_idx %ld", (long) desc.e_idx)); + if (DUK_HOBJECT_E_SLOT_IS_ACCESSOR(thr->heap, obj, desc.e_idx)) { + duk_hobject *tmp; + + tmp = DUK_HOBJECT_E_GET_VALUE_GETTER(thr->heap, obj, desc.e_idx); + DUK_HOBJECT_E_SET_VALUE_GETTER(thr->heap, obj, desc.e_idx, NULL); + DUK_UNREF(tmp); + DUK_HOBJECT_DECREF_NORZ_ALLOWNULL(thr, tmp); + + tmp = DUK_HOBJECT_E_GET_VALUE_SETTER(thr->heap, obj, desc.e_idx); + DUK_HOBJECT_E_SET_VALUE_SETTER(thr->heap, obj, desc.e_idx, NULL); + DUK_UNREF(tmp); + DUK_HOBJECT_DECREF_NORZ_ALLOWNULL(thr, tmp); + } else { + tv = DUK_HOBJECT_E_GET_VALUE_TVAL_PTR(thr->heap, obj, desc.e_idx); + DUK_TVAL_SET_UNDEFINED_UPDREF_NORZ(thr, tv); + } +#if 0 + /* Not strictly necessary because if key == NULL, flag MUST be ignored. */ + DUK_HOBJECT_E_SET_FLAGS(thr->heap, obj, desc.e_idx, 0); +#endif + + /* Remove key. */ + DUK_DDD(DUK_DDDPRINT("before removing key, e_idx %ld, key %p, key at slot %p", + (long) desc.e_idx, (void *) key, (void *) DUK_HOBJECT_E_GET_KEY(thr->heap, obj, desc.e_idx))); + DUK_DDD(DUK_DDDPRINT("removing key at e_idx %ld", (long) desc.e_idx)); + DUK_ASSERT(key == DUK_HOBJECT_E_GET_KEY(thr->heap, obj, desc.e_idx)); + DUK_HOBJECT_E_SET_KEY(thr->heap, obj, desc.e_idx, NULL); + DUK_HSTRING_DECREF_NORZ(thr, key); + + /* Trigger refzero side effects only when we're done as a + * finalizer might operate on the object and affect the + * e_idx we're supposed to use. + */ + DUK_REFZERO_CHECK_SLOW(thr); + goto success; + } + + DUK_UNREACHABLE(); + + success: + /* + * Argument exotic [[Delete]] behavior (E5 Section 10.6) is + * a post-check, keeping arguments internal 'map' in sync with + * any successful deletes (note that property does not need to + * exist for delete to 'succeed'). + * + * Delete key from 'map'. Since 'map' only contains array index + * keys, we can use arr_idx for a fast skip. + */ + + DUK_DDD(DUK_DDDPRINT("delete successful, check for arguments exotic behavior")); + + if (arr_idx != DUK__NO_ARRAY_INDEX && DUK_HOBJECT_HAS_EXOTIC_ARGUMENTS(obj)) { + /* Note: only numbered indices are relevant, so arr_idx fast reject + * is good (this is valid unless there are more than 4**32-1 arguments). + */ + + DUK_DDD(DUK_DDDPRINT("delete successful, arguments exotic behavior needed")); + + /* Note: we can reuse 'desc' here */ + (void) duk__check_arguments_map_for_delete(thr, obj, key, &desc); + } + + DUK_DDD(DUK_DDDPRINT("delete successful")); + return 1; + + fail_virtual: /* just use the same "not configurable" error message */ + fail_not_configurable: + DUK_DDD(DUK_DDDPRINT("delete failed: property found, not configurable")); + + if (throw_flag) { + DUK_ERROR_TYPE(thr, DUK_STR_NOT_CONFIGURABLE); + DUK_WO_NORETURN(return 0;); + } + return 0; +} + +/* + * DELPROP: ECMAScript property deletion. + */ + +DUK_INTERNAL duk_bool_t duk_hobject_delprop(duk_hthread *thr, duk_tval *tv_obj, duk_tval *tv_key, duk_bool_t throw_flag) { + duk_hstring *key = NULL; +#if defined(DUK_USE_ES6_PROXY) + duk_propdesc desc; +#endif + duk_int_t entry_top; + duk_uint32_t arr_idx = DUK__NO_ARRAY_INDEX; + duk_bool_t rc; + + DUK_DDD(DUK_DDDPRINT("delprop: thr=%p, obj=%p, key=%p (obj -> %!T, key -> %!T)", + (void *) thr, (void *) tv_obj, (void *) tv_key, + (duk_tval *) tv_obj, (duk_tval *) tv_key)); + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(thr->heap != NULL); + DUK_ASSERT(tv_obj != NULL); + DUK_ASSERT(tv_key != NULL); + + DUK_ASSERT_VALSTACK_SPACE(thr, DUK__VALSTACK_SPACE); + + /* Storing the entry top is cheaper here to ensure stack is correct at exit, + * as there are several paths out. + */ + entry_top = duk_get_top(thr); + + if (DUK_TVAL_IS_UNDEFINED(tv_obj) || + DUK_TVAL_IS_NULL(tv_obj)) { + DUK_DDD(DUK_DDDPRINT("base object is undefined or null -> reject")); + goto fail_invalid_base_uncond; + } + + duk_push_tval(thr, tv_obj); + duk_push_tval(thr, tv_key); + + tv_obj = DUK_GET_TVAL_NEGIDX(thr, -2); + if (DUK_TVAL_IS_OBJECT(tv_obj)) { + duk_hobject *obj = DUK_TVAL_GET_OBJECT(tv_obj); + DUK_ASSERT(obj != NULL); + +#if defined(DUK_USE_ES6_PROXY) + if (DUK_UNLIKELY(DUK_HOBJECT_IS_PROXY(obj))) { + duk_hobject *h_target; + duk_bool_t tmp_bool; + + /* Note: proxy handling must happen before key is string coerced. */ + + if (duk__proxy_check_prop(thr, obj, DUK_STRIDX_DELETE_PROPERTY, tv_key, &h_target)) { + /* -> [ ... obj key trap handler ] */ + DUK_DDD(DUK_DDDPRINT("-> proxy object 'deleteProperty' for key %!T", (duk_tval *) tv_key)); + duk_push_hobject(thr, h_target); /* target */ + duk_dup_m4(thr); /* P */ + duk_call_method(thr, 2 /*nargs*/); + tmp_bool = duk_to_boolean_top_pop(thr); + if (!tmp_bool) { + goto fail_proxy_rejected; /* retval indicates delete failed */ + } + + /* Target object must be checked for a conflicting + * non-configurable property. + */ + tv_key = DUK_GET_TVAL_NEGIDX(thr, -1); + arr_idx = duk__push_tval_to_property_key(thr, tv_key, &key); + DUK_ASSERT(key != NULL); + + if (duk__get_own_propdesc_raw(thr, h_target, key, arr_idx, &desc, 0 /*flags*/)) { /* don't push value */ + duk_small_int_t desc_reject; + + DUK_DDD(DUK_DDDPRINT("proxy 'deleteProperty': target has matching property %!O, check for " + "conflicting property; desc.flags=0x%08lx, " + "desc.get=%p, desc.set=%p", + (duk_heaphdr *) key, (unsigned long) desc.flags, + (void *) desc.get, (void *) desc.set)); + + desc_reject = !(desc.flags & DUK_PROPDESC_FLAG_CONFIGURABLE); + if (desc_reject) { + /* unconditional */ + DUK_ERROR_TYPE(thr, DUK_STR_PROXY_REJECTED); + DUK_WO_NORETURN(return 0;); + } + } + rc = 1; /* success */ + goto done_rc; + } + + obj = h_target; /* resume delete to target */ + } +#endif /* DUK_USE_ES6_PROXY */ + + arr_idx = duk__to_property_key(thr, -1, &key); + DUK_ASSERT(key != NULL); + + rc = duk_hobject_delprop_raw(thr, obj, key, throw_flag ? DUK_DELPROP_FLAG_THROW : 0); + goto done_rc; + } else if (DUK_TVAL_IS_STRING(tv_obj)) { + /* String has .length and array index virtual properties + * which can't be deleted. No need for a symbol check; + * no offending virtual symbols exist. + */ + /* XXX: unnecessary string coercion for array indices, + * intentional to keep small. + */ + duk_hstring *h = DUK_TVAL_GET_STRING(tv_obj); + DUK_ASSERT(h != NULL); + + arr_idx = duk__to_property_key(thr, -1, &key); + DUK_ASSERT(key != NULL); + + if (key == DUK_HTHREAD_STRING_LENGTH(thr)) { + goto fail_not_configurable; + } + + if (arr_idx != DUK__NO_ARRAY_INDEX && + arr_idx < DUK_HSTRING_GET_CHARLEN(h)) { + goto fail_not_configurable; + } + } else if (DUK_TVAL_IS_BUFFER(tv_obj)) { + /* XXX: unnecessary string coercion for array indices, + * intentional to keep small; some overlap with string + * handling. + */ + duk_hbuffer *h = DUK_TVAL_GET_BUFFER(tv_obj); + DUK_ASSERT(h != NULL); + + arr_idx = duk__to_property_key(thr, -1, &key); + DUK_ASSERT(key != NULL); + + if (key == DUK_HTHREAD_STRING_LENGTH(thr)) { + goto fail_not_configurable; + } + + if (arr_idx != DUK__NO_ARRAY_INDEX && + arr_idx < DUK_HBUFFER_GET_SIZE(h)) { + goto fail_not_configurable; + } + } else if (DUK_TVAL_IS_LIGHTFUNC(tv_obj)) { + /* Lightfunc has no virtual properties since Duktape 2.2 + * so success. Still must coerce key for side effects. + */ + + arr_idx = duk__to_property_key(thr, -1, &key); + DUK_ASSERT(key != NULL); + DUK_UNREF(key); + } + + /* non-object base, no offending virtual property */ + rc = 1; + goto done_rc; + + done_rc: + duk_set_top_unsafe(thr, entry_top); + return rc; + + fail_invalid_base_uncond: + /* Note: unconditional throw */ + DUK_ASSERT(duk_get_top(thr) == entry_top); +#if defined(DUK_USE_PARANOID_ERRORS) + DUK_ERROR_TYPE(thr, DUK_STR_INVALID_BASE); +#else + DUK_ERROR_FMT2(thr, DUK_ERR_TYPE_ERROR, "cannot delete property %s of %s", + duk_push_string_tval_readable(thr, tv_key), duk_push_string_tval_readable(thr, tv_obj)); +#endif + DUK_WO_NORETURN(return 0;); + +#if defined(DUK_USE_ES6_PROXY) + fail_proxy_rejected: + if (throw_flag) { + DUK_ERROR_TYPE(thr, DUK_STR_PROXY_REJECTED); + DUK_WO_NORETURN(return 0;); + } + duk_set_top_unsafe(thr, entry_top); + return 0; +#endif + + fail_not_configurable: + if (throw_flag) { + DUK_ERROR_TYPE(thr, DUK_STR_NOT_CONFIGURABLE); + DUK_WO_NORETURN(return 0;); + } + duk_set_top_unsafe(thr, entry_top); + return 0; +} + +/* + * Internal helper to define a property with specific flags, ignoring + * normal semantics such as extensibility, write protection etc. + * Overwrites any existing value and attributes unless caller requests + * that value only be updated if it doesn't already exists. + * + * Does not support: + * - virtual properties (error if write attempted) + * - getter/setter properties (error if write attempted) + * - non-default (!= WEC) attributes for array entries (error if attempted) + * - array abandoning: if array part exists, it is always extended + * - array 'length' updating + * + * Stack: [... in_val] -> [] + * + * Used for e.g. built-in initialization and environment record + * operations. + */ + +DUK_INTERNAL void duk_hobject_define_property_internal(duk_hthread *thr, duk_hobject *obj, duk_hstring *key, duk_small_uint_t flags) { + duk_propdesc desc; + duk_uint32_t arr_idx; + duk_int_t e_idx; + duk_tval *tv1 = NULL; + duk_tval *tv2 = NULL; + duk_small_uint_t propflags = flags & DUK_PROPDESC_FLAGS_MASK; /* mask out flags not actually stored */ + + DUK_DDD(DUK_DDDPRINT("define new property (internal): thr=%p, obj=%!O, key=%!O, flags=0x%02lx, val=%!T", + (void *) thr, (duk_heaphdr *) obj, (duk_heaphdr *) key, + (unsigned long) flags, (duk_tval *) duk_get_tval(thr, -1))); + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(thr->heap != NULL); + DUK_ASSERT(obj != NULL); + DUK_ASSERT(key != NULL); + DUK_ASSERT(!DUK_HEAPHDR_HAS_READONLY((duk_heaphdr *) obj)); + DUK_ASSERT_VALSTACK_SPACE(thr, DUK__VALSTACK_SPACE); + DUK_ASSERT(duk_is_valid_index(thr, -1)); /* contains value */ + + arr_idx = DUK_HSTRING_GET_ARRIDX_SLOW(key); + + if (duk__get_own_propdesc_raw(thr, obj, key, arr_idx, &desc, 0 /*flags*/)) { /* don't push value */ + if (desc.e_idx >= 0) { + if (flags & DUK_PROPDESC_FLAG_NO_OVERWRITE) { + DUK_DDD(DUK_DDDPRINT("property already exists in the entry part -> skip as requested")); + goto pop_exit; + } + DUK_DDD(DUK_DDDPRINT("property already exists in the entry part -> update value and attributes")); + if (DUK_UNLIKELY(DUK_HOBJECT_E_SLOT_IS_ACCESSOR(thr->heap, obj, desc.e_idx))) { + DUK_D(DUK_DPRINT("existing property is an accessor, not supported")); + goto error_internal; + } + + DUK_HOBJECT_E_SET_FLAGS(thr->heap, obj, desc.e_idx, propflags); + tv1 = DUK_HOBJECT_E_GET_VALUE_TVAL_PTR(thr->heap, obj, desc.e_idx); + } else if (desc.a_idx >= 0) { + if (flags & DUK_PROPDESC_FLAG_NO_OVERWRITE) { + DUK_DDD(DUK_DDDPRINT("property already exists in the array part -> skip as requested")); + goto pop_exit; + } + DUK_DDD(DUK_DDDPRINT("property already exists in the array part -> update value (assert attributes)")); + if (propflags != DUK_PROPDESC_FLAGS_WEC) { + DUK_D(DUK_DPRINT("existing property in array part, but propflags not WEC (0x%02lx)", + (unsigned long) propflags)); + goto error_internal; + } + + tv1 = DUK_HOBJECT_A_GET_VALUE_PTR(thr->heap, obj, desc.a_idx); + } else { + if (flags & DUK_PROPDESC_FLAG_NO_OVERWRITE) { + DUK_DDD(DUK_DDDPRINT("property already exists but is virtual -> skip as requested")); + goto pop_exit; + } + if (key == DUK_HTHREAD_STRING_LENGTH(thr) && DUK_HOBJECT_HAS_EXOTIC_ARRAY(obj)) { + duk_uint32_t new_len; +#if defined(DUK_USE_DEBUG) + duk_uint32_t prev_len; + prev_len = ((duk_harray *) obj)->length; +#endif + new_len = duk__to_new_array_length_checked(thr, DUK_GET_TVAL_NEGIDX(thr, -1)); + ((duk_harray *) obj)->length = new_len; + DUK_DD(DUK_DDPRINT("internal define property for array .length: %ld -> %ld", + (long) prev_len, (long) ((duk_harray *) obj)->length)); + goto pop_exit; + } + DUK_DD(DUK_DDPRINT("property already exists but is virtual -> failure")); + goto error_virtual; + } + + goto write_value; + } + + if (DUK_HOBJECT_HAS_ARRAY_PART(obj)) { + if (arr_idx != DUK__NO_ARRAY_INDEX) { + DUK_DDD(DUK_DDDPRINT("property does not exist, object has array part -> possibly extend array part and write value (assert attributes)")); + DUK_ASSERT(propflags == DUK_PROPDESC_FLAGS_WEC); + + tv1 = duk__obtain_arridx_slot(thr, arr_idx, obj); + if (tv1 == NULL) { + DUK_ASSERT(!DUK_HOBJECT_HAS_ARRAY_PART(obj)); + goto write_to_entry_part; + } + + tv1 = DUK_HOBJECT_A_GET_VALUE_PTR(thr->heap, obj, arr_idx); + goto write_value; + } + } + + write_to_entry_part: + DUK_DDD(DUK_DDDPRINT("property does not exist, object belongs in entry part -> allocate new entry and write value and attributes")); + e_idx = duk__hobject_alloc_entry_checked(thr, obj, key); /* increases key refcount */ + DUK_ASSERT(e_idx >= 0); + DUK_HOBJECT_E_SET_FLAGS(thr->heap, obj, e_idx, propflags); + tv1 = DUK_HOBJECT_E_GET_VALUE_TVAL_PTR(thr->heap, obj, e_idx); + /* new entry: previous value is garbage; set to undefined to share write_value */ + DUK_TVAL_SET_UNDEFINED(tv1); + goto write_value; + + write_value: + /* tv1 points to value storage */ + + tv2 = duk_require_tval(thr, -1); /* late lookup, avoid side effects */ + DUK_DDD(DUK_DDDPRINT("writing/updating value: %!T -> %!T", + (duk_tval *) tv1, (duk_tval *) tv2)); + + DUK_TVAL_SET_TVAL_UPDREF(thr, tv1, tv2); /* side effects */ + goto pop_exit; + + pop_exit: + duk_pop_unsafe(thr); /* remove in_val */ + return; + + error_virtual: /* share error message */ + error_internal: + DUK_ERROR_INTERNAL(thr); + DUK_WO_NORETURN(return;); +} + +/* + * Fast path for defining array indexed values without interning the key. + * This is used by e.g. code for Array prototype and traceback creation so + * must avoid interning. + */ + +DUK_INTERNAL void duk_hobject_define_property_internal_arridx(duk_hthread *thr, duk_hobject *obj, duk_uarridx_t arr_idx, duk_small_uint_t flags) { + duk_hstring *key; + duk_tval *tv1, *tv2; + + DUK_DDD(DUK_DDDPRINT("define new property (internal) arr_idx fast path: thr=%p, obj=%!O, " + "arr_idx=%ld, flags=0x%02lx, val=%!T", + (void *) thr, obj, (long) arr_idx, (unsigned long) flags, + (duk_tval *) duk_get_tval(thr, -1))); + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(thr->heap != NULL); + DUK_ASSERT(obj != NULL); + DUK_ASSERT(!DUK_HEAPHDR_HAS_READONLY((duk_heaphdr *) obj)); + + if (DUK_HOBJECT_HAS_ARRAY_PART(obj) && + arr_idx != DUK__NO_ARRAY_INDEX && + flags == DUK_PROPDESC_FLAGS_WEC) { + DUK_ASSERT((flags & DUK_PROPDESC_FLAG_NO_OVERWRITE) == 0); /* covered by comparison */ + + DUK_DDD(DUK_DDDPRINT("define property to array part (property may or may not exist yet)")); + + tv1 = duk__obtain_arridx_slot(thr, arr_idx, obj); + if (tv1 == NULL) { + DUK_ASSERT(!DUK_HOBJECT_HAS_ARRAY_PART(obj)); + goto write_slow; + } + tv2 = duk_require_tval(thr, -1); + + DUK_TVAL_SET_TVAL_UPDREF(thr, tv1, tv2); /* side effects */ + + duk_pop_unsafe(thr); /* [ ...val ] -> [ ... ] */ + return; + } + + write_slow: + DUK_DDD(DUK_DDDPRINT("define property fast path didn't work, use slow path")); + + key = duk_push_uint_to_hstring(thr, (duk_uint_t) arr_idx); + DUK_ASSERT(key != NULL); + duk_insert(thr, -2); /* [ ... val key ] -> [ ... key val ] */ + + duk_hobject_define_property_internal(thr, obj, key, flags); + + duk_pop_unsafe(thr); /* [ ... key ] -> [ ... ] */ +} + +/* + * Internal helpers for managing object 'length' + */ + +DUK_INTERNAL duk_size_t duk_hobject_get_length(duk_hthread *thr, duk_hobject *obj) { + duk_double_t val; + + DUK_CTX_ASSERT_VALID(thr); + DUK_ASSERT(obj != NULL); + + /* Fast path for Arrays. */ + if (DUK_HOBJECT_HAS_EXOTIC_ARRAY(obj)) { + return ((duk_harray *) obj)->length; + } + + /* Slow path, .length can be e.g. accessor, obj can be a Proxy, etc. */ + duk_push_hobject(thr, obj); + duk_push_hstring_stridx(thr, DUK_STRIDX_LENGTH); + (void) duk_hobject_getprop(thr, + DUK_GET_TVAL_NEGIDX(thr, -2), + DUK_GET_TVAL_NEGIDX(thr, -1)); + val = duk_to_number_m1(thr); + duk_pop_3_unsafe(thr); + + /* This isn't part of ECMAScript semantics; return a value within + * duk_size_t range, or 0 otherwise. + */ + if (val >= 0.0 && val <= (duk_double_t) DUK_SIZE_MAX) { + return (duk_size_t) val; + } + return 0; +} + +/* + * Fast finalizer check for an object. Walks the prototype chain, checking + * for finalizer presence using DUK_HOBJECT_FLAG_HAVE_FINALIZER which is kept + * in sync with the actual property when setting/removing the finalizer. + */ + +#if defined(DUK_USE_HEAPPTR16) +DUK_INTERNAL duk_bool_t duk_hobject_has_finalizer_fast_raw(duk_heap *heap, duk_hobject *obj) { +#else +DUK_INTERNAL duk_bool_t duk_hobject_has_finalizer_fast_raw(duk_hobject *obj) { +#endif + duk_uint_t sanity; + + DUK_ASSERT(obj != NULL); + + sanity = DUK_HOBJECT_PROTOTYPE_CHAIN_SANITY; + do { + if (DUK_UNLIKELY(DUK_HOBJECT_HAS_HAVE_FINALIZER(obj))) { + return 1; + } + if (DUK_UNLIKELY(sanity-- == 0)) { + DUK_D(DUK_DPRINT("prototype loop when checking for finalizer existence; returning false")); + return 0; + } +#if defined(DUK_USE_HEAPPTR16) + DUK_ASSERT(heap != NULL); + obj = DUK_HOBJECT_GET_PROTOTYPE(heap, obj); +#else + obj = DUK_HOBJECT_GET_PROTOTYPE(NULL, obj); /* 'heap' arg ignored */ +#endif + } while (obj != NULL); + + return 0; +} + +/* + * Object.getOwnPropertyDescriptor() (E5 Sections 15.2.3.3, 8.10.4) + * + * [ ... key ] -> [ ... desc/undefined ] + */ + +DUK_INTERNAL void duk_hobject_object_get_own_property_descriptor(duk_hthread *thr, duk_idx_t obj_idx) { + duk_hobject *obj; + duk_hstring *key; + duk_propdesc pd; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(thr->heap != NULL); + + obj = duk_require_hobject_promote_mask(thr, obj_idx, DUK_TYPE_MASK_LIGHTFUNC | DUK_TYPE_MASK_BUFFER); + key = duk_to_property_key_hstring(thr, -1); + DUK_ASSERT(key != NULL); + + DUK_ASSERT_VALSTACK_SPACE(thr, DUK__VALSTACK_SPACE); + + if (!duk_hobject_get_own_propdesc(thr, obj, key, &pd, DUK_GETDESC_FLAG_PUSH_VALUE)) { + duk_push_undefined(thr); + duk_remove_m2(thr); + return; + } + + duk_push_object(thr); + + /* [ ... key value desc ] */ + + if (DUK_PROPDESC_IS_ACCESSOR(&pd)) { + /* If a setter/getter is missing (undefined), the descriptor must + * still have the property present with the value 'undefined'. + */ + if (pd.get) { + duk_push_hobject(thr, pd.get); + } else { + duk_push_undefined(thr); + } + duk_put_prop_stridx_short(thr, -2, DUK_STRIDX_GET); + if (pd.set) { + duk_push_hobject(thr, pd.set); + } else { + duk_push_undefined(thr); + } + duk_put_prop_stridx_short(thr, -2, DUK_STRIDX_SET); + } else { + duk_dup_m2(thr); + duk_put_prop_stridx_short(thr, -2, DUK_STRIDX_VALUE); + duk_push_boolean(thr, DUK_PROPDESC_IS_WRITABLE(&pd)); + duk_put_prop_stridx_short(thr, -2, DUK_STRIDX_WRITABLE); + } + duk_push_boolean(thr, DUK_PROPDESC_IS_ENUMERABLE(&pd)); + duk_put_prop_stridx_short(thr, -2, DUK_STRIDX_ENUMERABLE); + duk_push_boolean(thr, DUK_PROPDESC_IS_CONFIGURABLE(&pd)); + duk_put_prop_stridx_short(thr, -2, DUK_STRIDX_CONFIGURABLE); + + /* [ ... key value desc ] */ + + duk_replace(thr, -3); + duk_pop_unsafe(thr); /* -> [ ... desc ] */ +} + +/* + * NormalizePropertyDescriptor() related helper. + * + * Internal helper which validates and normalizes a property descriptor + * represented as an ECMAScript object (e.g. argument to defineProperty()). + * The output of this conversion is a set of defprop_flags and possibly + * some values pushed on the value stack to (1) ensure borrowed pointers + * remain valid, and (2) avoid unnecessary pops for footprint reasons. + * Caller must manage stack top carefully because the number of values + * pushed depends on the input property descriptor. + * + * The original descriptor object must not be altered in the process. + */ + +/* XXX: very basic optimization -> duk_get_prop_stridx_top */ + +DUK_INTERNAL +void duk_hobject_prepare_property_descriptor(duk_hthread *thr, + duk_idx_t idx_in, + duk_uint_t *out_defprop_flags, + duk_idx_t *out_idx_value, + duk_hobject **out_getter, + duk_hobject **out_setter) { + duk_idx_t idx_value = -1; + duk_hobject *getter = NULL; + duk_hobject *setter = NULL; + duk_bool_t is_data_desc = 0; + duk_bool_t is_acc_desc = 0; + duk_uint_t defprop_flags = 0; + + DUK_ASSERT(out_defprop_flags != NULL); + DUK_ASSERT(out_idx_value != NULL); + DUK_ASSERT(out_getter != NULL); + DUK_ASSERT(out_setter != NULL); + DUK_ASSERT(idx_in <= 0x7fffL); /* short variants would be OK, but not used to avoid shifts */ + + /* Must be an object, otherwise TypeError (E5.1 Section 8.10.5, step 1). */ + idx_in = duk_require_normalize_index(thr, idx_in); + (void) duk_require_hobject(thr, idx_in); + + /* The coercion order must match the ToPropertyDescriptor() algorithm + * so that side effects in coercion happen in the correct order. + * (This order also happens to be compatible with duk_def_prop(), + * although it doesn't matter in practice.) + */ + + if (duk_get_prop_stridx(thr, idx_in, DUK_STRIDX_VALUE)) { + is_data_desc = 1; + defprop_flags |= DUK_DEFPROP_HAVE_VALUE; + idx_value = duk_get_top_index(thr); + } + + if (duk_get_prop_stridx(thr, idx_in, DUK_STRIDX_WRITABLE)) { + is_data_desc = 1; + if (duk_to_boolean_top_pop(thr)) { + defprop_flags |= DUK_DEFPROP_HAVE_WRITABLE | DUK_DEFPROP_WRITABLE; + } else { + defprop_flags |= DUK_DEFPROP_HAVE_WRITABLE; + } + } + + if (duk_get_prop_stridx(thr, idx_in, DUK_STRIDX_GET)) { + duk_tval *tv = duk_require_tval(thr, -1); + duk_hobject *h_get; + + if (DUK_TVAL_IS_UNDEFINED(tv)) { + /* undefined is accepted */ + DUK_ASSERT(getter == NULL); + } else { + /* NOTE: lightfuncs are coerced to full functions because + * lightfuncs don't fit into a property value slot. This + * has some side effects, see test-dev-lightfunc-accessor.js. + */ + h_get = duk_get_hobject_promote_lfunc(thr, -1); + if (h_get == NULL || !DUK_HOBJECT_IS_CALLABLE(h_get)) { + goto type_error; + } + getter = h_get; + } + is_acc_desc = 1; + defprop_flags |= DUK_DEFPROP_HAVE_GETTER; + } + + if (duk_get_prop_stridx(thr, idx_in, DUK_STRIDX_SET)) { + duk_tval *tv = duk_require_tval(thr, -1); + duk_hobject *h_set; + + if (DUK_TVAL_IS_UNDEFINED(tv)) { + /* undefined is accepted */ + DUK_ASSERT(setter == NULL); + } else { + /* NOTE: lightfuncs are coerced to full functions because + * lightfuncs don't fit into a property value slot. This + * has some side effects, see test-dev-lightfunc-accessor.js. + */ + h_set = duk_get_hobject_promote_lfunc(thr, -1); + if (h_set == NULL || !DUK_HOBJECT_IS_CALLABLE(h_set)) { + goto type_error; + } + setter = h_set; + } + is_acc_desc = 1; + defprop_flags |= DUK_DEFPROP_HAVE_SETTER; + } + + if (duk_get_prop_stridx(thr, idx_in, DUK_STRIDX_ENUMERABLE)) { + if (duk_to_boolean_top_pop(thr)) { + defprop_flags |= DUK_DEFPROP_HAVE_ENUMERABLE | DUK_DEFPROP_ENUMERABLE; + } else { + defprop_flags |= DUK_DEFPROP_HAVE_ENUMERABLE; + } + } + + if (duk_get_prop_stridx(thr, idx_in, DUK_STRIDX_CONFIGURABLE)) { + if (duk_to_boolean_top_pop(thr)) { + defprop_flags |= DUK_DEFPROP_HAVE_CONFIGURABLE | DUK_DEFPROP_CONFIGURABLE; + } else { + defprop_flags |= DUK_DEFPROP_HAVE_CONFIGURABLE; + } + } + + if (is_data_desc && is_acc_desc) { + goto type_error; + } + + *out_defprop_flags = defprop_flags; + *out_idx_value = idx_value; + *out_getter = getter; + *out_setter = setter; + + /* [ ... [multiple values] ] */ + return; + + type_error: + DUK_ERROR_TYPE(thr, DUK_STR_INVALID_DESCRIPTOR); + DUK_WO_NORETURN(return;); +} + +/* + * Object.defineProperty() related helper (E5 Section 15.2.3.6). + * Also handles ES2015 Reflect.defineProperty(). + * + * Inlines all [[DefineOwnProperty]] exotic behaviors. + * + * Note: ECMAScript compliant [[DefineOwnProperty]](P, Desc, Throw) is not + * implemented directly, but Object.defineProperty() serves its purpose. + * We don't need the [[DefineOwnProperty]] internally and we don't have a + * property descriptor with 'missing values' so it's easier to avoid it + * entirely. + * + * Note: this is only called for actual objects, not primitive values. + * This must support virtual properties for full objects (e.g. Strings) + * but not for plain values (e.g. strings). Lightfuncs, even though + * primitive in a sense, are treated like objects and accepted as target + * values. + */ + +/* XXX: this is a major target for size optimization */ +DUK_INTERNAL +duk_bool_t duk_hobject_define_property_helper(duk_hthread *thr, + duk_uint_t defprop_flags, + duk_hobject *obj, + duk_hstring *key, + duk_idx_t idx_value, + duk_hobject *get, + duk_hobject *set, + duk_bool_t throw_flag) { + duk_uint32_t arr_idx; + duk_tval tv; + duk_bool_t has_enumerable; + duk_bool_t has_configurable; + duk_bool_t has_writable; + duk_bool_t has_value; + duk_bool_t has_get; + duk_bool_t has_set; + duk_bool_t is_enumerable; + duk_bool_t is_configurable; + duk_bool_t is_writable; + duk_bool_t force_flag; + duk_small_uint_t new_flags; + duk_propdesc curr; + duk_uint32_t arridx_new_array_length; /* != 0 => post-update for array 'length' (used when key is an array index) */ + duk_uint32_t arrlen_old_len; + duk_uint32_t arrlen_new_len; + duk_bool_t pending_write_protect; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(thr->heap != NULL); + DUK_ASSERT(obj != NULL); + DUK_ASSERT(key != NULL); + /* idx_value may be < 0 (no value), set and get may be NULL */ + + DUK_ASSERT_VALSTACK_SPACE(thr, DUK__VALSTACK_SPACE); + + /* All the flags fit in 16 bits, so will fit into duk_bool_t. */ + + has_writable = (defprop_flags & DUK_DEFPROP_HAVE_WRITABLE); + has_enumerable = (defprop_flags & DUK_DEFPROP_HAVE_ENUMERABLE); + has_configurable = (defprop_flags & DUK_DEFPROP_HAVE_CONFIGURABLE); + has_value = (defprop_flags & DUK_DEFPROP_HAVE_VALUE); + has_get = (defprop_flags & DUK_DEFPROP_HAVE_GETTER); + has_set = (defprop_flags & DUK_DEFPROP_HAVE_SETTER); + is_writable = (defprop_flags & DUK_DEFPROP_WRITABLE); + is_enumerable = (defprop_flags & DUK_DEFPROP_ENUMERABLE); + is_configurable = (defprop_flags & DUK_DEFPROP_CONFIGURABLE); + force_flag = (defprop_flags & DUK_DEFPROP_FORCE); + + arr_idx = DUK_HSTRING_GET_ARRIDX_SLOW(key); + + arridx_new_array_length = 0; + pending_write_protect = 0; + arrlen_old_len = 0; + arrlen_new_len = 0; + + DUK_DDD(DUK_DDDPRINT("has_enumerable=%ld is_enumerable=%ld " + "has_configurable=%ld is_configurable=%ld " + "has_writable=%ld is_writable=%ld " + "has_value=%ld value=%!T " + "has_get=%ld get=%p=%!O " + "has_set=%ld set=%p=%!O " + "arr_idx=%ld throw_flag=!%ld", + (long) has_enumerable, (long) is_enumerable, + (long) has_configurable, (long) is_configurable, + (long) has_writable, (long) is_writable, + (long) has_value, (duk_tval *) (idx_value >= 0 ? duk_get_tval(thr, idx_value) : NULL), + (long) has_get, (void *) get, (duk_heaphdr *) get, + (long) has_set, (void *) set, (duk_heaphdr *) set, + (long) arr_idx, (long) throw_flag)); + + /* + * Array exotic behaviors can be implemented at this point. The local variables + * are essentially a 'value copy' of the input descriptor (Desc), which is modified + * by the Array [[DefineOwnProperty]] (E5 Section 15.4.5.1). + */ + + if (!DUK_HOBJECT_HAS_EXOTIC_ARRAY(obj)) { + goto skip_array_exotic; + } + + if (key == DUK_HTHREAD_STRING_LENGTH(thr)) { + duk_harray *a; + + /* E5 Section 15.4.5.1, step 3, steps a - i are implemented here, j - n at the end */ + if (!has_value) { + DUK_DDD(DUK_DDDPRINT("exotic array behavior for 'length', but no value in descriptor -> normal behavior")); + goto skip_array_exotic; + } + + DUK_DDD(DUK_DDDPRINT("exotic array behavior for 'length', value present in descriptor -> exotic behavior")); + + /* + * Get old and new length + */ + + a = (duk_harray *) obj; + DUK_HARRAY_ASSERT_VALID(a); + arrlen_old_len = a->length; + + DUK_ASSERT(idx_value >= 0); + arrlen_new_len = duk__to_new_array_length_checked(thr, DUK_GET_TVAL_POSIDX(thr, idx_value)); + duk_push_u32(thr, arrlen_new_len); + duk_replace(thr, idx_value); /* step 3.e: replace 'Desc.[[Value]]' */ + + DUK_DDD(DUK_DDDPRINT("old_len=%ld, new_len=%ld", (long) arrlen_old_len, (long) arrlen_new_len)); + + if (arrlen_new_len >= arrlen_old_len) { + /* standard behavior, step 3.f.i */ + DUK_DDD(DUK_DDDPRINT("new length is same or higher as previous => standard behavior")); + goto skip_array_exotic; + } + DUK_DDD(DUK_DDDPRINT("new length is smaller than previous => exotic post behavior")); + + /* XXX: consolidated algorithm step 15.f -> redundant? */ + if (DUK_HARRAY_LENGTH_NONWRITABLE(a) && !force_flag) { + /* Array .length is always non-configurable; if it's also + * non-writable, don't allow it to be written. + */ + goto fail_not_configurable; + } + + /* steps 3.h and 3.i */ + if (has_writable && !is_writable) { + DUK_DDD(DUK_DDDPRINT("desc writable is false, force it back to true, and flag pending write protect")); + is_writable = 1; + pending_write_protect = 1; + } + + /* remaining actual steps are carried out if standard DefineOwnProperty succeeds */ + } else if (arr_idx != DUK__NO_ARRAY_INDEX) { + /* XXX: any chance of unifying this with the 'length' key handling? */ + + /* E5 Section 15.4.5.1, step 4 */ + duk_uint32_t old_len; + duk_harray *a; + + a = (duk_harray *) obj; + DUK_HARRAY_ASSERT_VALID(a); + + old_len = a->length; + + if (arr_idx >= old_len) { + DUK_DDD(DUK_DDDPRINT("defineProperty requires array length update " + "(arr_idx=%ld, old_len=%ld)", + (long) arr_idx, (long) old_len)); + + if (DUK_HARRAY_LENGTH_NONWRITABLE(a) && !force_flag) { + /* Array .length is always non-configurable, so + * if it's also non-writable, don't allow a value + * write. With force flag allow writing. + */ + goto fail_not_configurable; + } + + /* actual update happens once write has been completed without + * error below. + */ + DUK_ASSERT(arr_idx != 0xffffffffUL); + arridx_new_array_length = arr_idx + 1; + } else { + DUK_DDD(DUK_DDDPRINT("defineProperty does not require length update " + "(arr_idx=%ld, old_len=%ld) -> standard behavior", + (long) arr_idx, (long) old_len)); + } + } + skip_array_exotic: + + /* XXX: There is currently no support for writing buffer object + * indexed elements here. Attempt to do so will succeed and + * write a concrete property into the buffer object. This should + * be fixed at some point but because buffers are a custom feature + * anyway, this is relatively unimportant. + */ + + /* + * Actual Object.defineProperty() default algorithm. + */ + + /* + * First check whether property exists; if not, simple case. This covers + * steps 1-4. + */ + + if (!duk__get_own_propdesc_raw(thr, obj, key, arr_idx, &curr, DUK_GETDESC_FLAG_PUSH_VALUE)) { + DUK_DDD(DUK_DDDPRINT("property does not exist")); + + if (!DUK_HOBJECT_HAS_EXTENSIBLE(obj) && !force_flag) { + goto fail_not_extensible; + } + +#if defined(DUK_USE_ROM_OBJECTS) + /* ROM objects are never extensible but force flag may + * allow us to come here anyway. + */ + DUK_ASSERT(!DUK_HEAPHDR_HAS_READONLY((duk_heaphdr *) obj) || !DUK_HOBJECT_HAS_EXTENSIBLE(obj)); + if (DUK_HEAPHDR_HAS_READONLY((duk_heaphdr *) obj)) { + DUK_D(DUK_DPRINT("attempt to define property on a read-only target object")); + goto fail_not_configurable; + } +#endif + + /* XXX: share final setting code for value and flags? difficult because + * refcount code is different. Share entry allocation? But can't allocate + * until array index checked. + */ + + /* steps 4.a and 4.b are tricky */ + if (has_set || has_get) { + duk_int_t e_idx; + + DUK_DDD(DUK_DDDPRINT("create new accessor property")); + + DUK_ASSERT(has_set || set == NULL); + DUK_ASSERT(has_get || get == NULL); + DUK_ASSERT(!has_value); + DUK_ASSERT(!has_writable); + + new_flags = DUK_PROPDESC_FLAG_ACCESSOR; /* defaults, E5 Section 8.6.1, Table 7 */ + if (has_enumerable && is_enumerable) { + new_flags |= DUK_PROPDESC_FLAG_ENUMERABLE; + } + if (has_configurable && is_configurable) { + new_flags |= DUK_PROPDESC_FLAG_CONFIGURABLE; + } + + if (arr_idx != DUK__NO_ARRAY_INDEX && DUK_HOBJECT_HAS_ARRAY_PART(obj)) { + DUK_DDD(DUK_DDDPRINT("accessor cannot go to array part, abandon array")); + duk__abandon_array_part(thr, obj); + } + + /* write to entry part */ + e_idx = duk__hobject_alloc_entry_checked(thr, obj, key); + DUK_ASSERT(e_idx >= 0); + + DUK_HOBJECT_E_SET_VALUE_GETTER(thr->heap, obj, e_idx, get); + DUK_HOBJECT_E_SET_VALUE_SETTER(thr->heap, obj, e_idx, set); + DUK_HOBJECT_INCREF_ALLOWNULL(thr, get); + DUK_HOBJECT_INCREF_ALLOWNULL(thr, set); + + DUK_HOBJECT_E_SET_FLAGS(thr->heap, obj, e_idx, new_flags); + goto success_exotics; + } else { + duk_int_t e_idx; + duk_tval *tv2; + + DUK_DDD(DUK_DDDPRINT("create new data property")); + + DUK_ASSERT(!has_set); + DUK_ASSERT(!has_get); + + new_flags = 0; /* defaults, E5 Section 8.6.1, Table 7 */ + if (has_writable && is_writable) { + new_flags |= DUK_PROPDESC_FLAG_WRITABLE; + } + if (has_enumerable && is_enumerable) { + new_flags |= DUK_PROPDESC_FLAG_ENUMERABLE; + } + if (has_configurable && is_configurable) { + new_flags |= DUK_PROPDESC_FLAG_CONFIGURABLE; + } + if (has_value) { + duk_tval *tv_tmp = duk_require_tval(thr, idx_value); + DUK_TVAL_SET_TVAL(&tv, tv_tmp); + } else { + DUK_TVAL_SET_UNDEFINED(&tv); /* default value */ + } + + if (arr_idx != DUK__NO_ARRAY_INDEX && DUK_HOBJECT_HAS_ARRAY_PART(obj)) { + if (new_flags == DUK_PROPDESC_FLAGS_WEC) { + DUK_DDD(DUK_DDDPRINT("new data property attributes match array defaults, attempt to write to array part")); + tv2 = duk__obtain_arridx_slot(thr, arr_idx, obj); + if (tv2 == NULL) { + DUK_DDD(DUK_DDDPRINT("failed writing to array part, abandoned array")); + } else { + DUK_DDD(DUK_DDDPRINT("success in writing to array part")); + DUK_ASSERT(DUK_HOBJECT_HAS_ARRAY_PART(obj)); + DUK_ASSERT(DUK_TVAL_IS_UNUSED(tv2)); + DUK_TVAL_SET_TVAL(tv2, &tv); + DUK_TVAL_INCREF(thr, tv2); + goto success_exotics; + } + } else { + DUK_DDD(DUK_DDDPRINT("new data property cannot go to array part, abandon array")); + duk__abandon_array_part(thr, obj); + } + /* fall through */ + } + + /* write to entry part */ + e_idx = duk__hobject_alloc_entry_checked(thr, obj, key); + DUK_ASSERT(e_idx >= 0); + tv2 = DUK_HOBJECT_E_GET_VALUE_TVAL_PTR(thr->heap, obj, e_idx); + DUK_TVAL_SET_TVAL(tv2, &tv); + DUK_TVAL_INCREF(thr, tv2); + + DUK_HOBJECT_E_SET_FLAGS(thr->heap, obj, e_idx, new_flags); + goto success_exotics; + } + DUK_UNREACHABLE(); + } + + /* we currently assume virtual properties are not configurable (as none of them are) */ + DUK_ASSERT((curr.e_idx >= 0 || curr.a_idx >= 0) || !(curr.flags & DUK_PROPDESC_FLAG_CONFIGURABLE)); + + /* [obj key desc value get set curr_value] */ + + /* + * Property already exists. Steps 5-6 detect whether any changes need + * to be made. + */ + + if (has_enumerable) { + if (is_enumerable) { + if (!(curr.flags & DUK_PROPDESC_FLAG_ENUMERABLE)) { + goto need_check; + } + } else { + if (curr.flags & DUK_PROPDESC_FLAG_ENUMERABLE) { + goto need_check; + } + } + } + if (has_configurable) { + if (is_configurable) { + if (!(curr.flags & DUK_PROPDESC_FLAG_CONFIGURABLE)) { + goto need_check; + } + } else { + if (curr.flags & DUK_PROPDESC_FLAG_CONFIGURABLE) { + goto need_check; + } + } + } + if (has_value) { + duk_tval *tmp1; + duk_tval *tmp2; + + /* attempt to change from accessor to data property */ + if (curr.flags & DUK_PROPDESC_FLAG_ACCESSOR) { + goto need_check; + } + + tmp1 = duk_require_tval(thr, -1); /* curr value */ + tmp2 = duk_require_tval(thr, idx_value); /* new value */ + if (!duk_js_samevalue(tmp1, tmp2)) { + goto need_check; + } + } + if (has_writable) { + /* attempt to change from accessor to data property */ + if (curr.flags & DUK_PROPDESC_FLAG_ACCESSOR) { + goto need_check; + } + + if (is_writable) { + if (!(curr.flags & DUK_PROPDESC_FLAG_WRITABLE)) { + goto need_check; + } + } else { + if (curr.flags & DUK_PROPDESC_FLAG_WRITABLE) { + goto need_check; + } + } + } + if (has_set) { + if (curr.flags & DUK_PROPDESC_FLAG_ACCESSOR) { + if (set != curr.set) { + goto need_check; + } + } else { + goto need_check; + } + } + if (has_get) { + if (curr.flags & DUK_PROPDESC_FLAG_ACCESSOR) { + if (get != curr.get) { + goto need_check; + } + } else { + goto need_check; + } + } + + /* property exists, either 'desc' is empty, or all values + * match (SameValue) + */ + goto success_no_exotics; + + need_check: + + /* + * Some change(s) need to be made. Steps 7-11. + */ + + /* shared checks for all descriptor types */ + if (!(curr.flags & DUK_PROPDESC_FLAG_CONFIGURABLE) && !force_flag) { + if (has_configurable && is_configurable) { + goto fail_not_configurable; + } + if (has_enumerable) { + if (curr.flags & DUK_PROPDESC_FLAG_ENUMERABLE) { + if (!is_enumerable) { + goto fail_not_configurable; + } + } else { + if (is_enumerable) { + goto fail_not_configurable; + } + } + } + } + + /* Virtual properties don't have backing so they can't mostly be + * edited. Some virtual properties are, however, writable: for + * example, virtual index properties of buffer objects and Array + * instance .length. These are not configurable so the checks + * above mostly cover attempts to change them, except when the + * duk_def_prop() call is used with DUK_DEFPROP_FORCE; even in + * that case we can't forcibly change the property attributes + * because they don't have concrete backing. + */ + + /* XXX: for ROM objects too it'd be best if value modify was + * allowed if the value matches SameValue. + */ + /* Reject attempt to change a read-only object. */ +#if defined(DUK_USE_ROM_OBJECTS) + if (DUK_HEAPHDR_HAS_READONLY((duk_heaphdr *) obj)) { + DUK_DD(DUK_DDPRINT("attempt to define property on read-only target object")); + goto fail_not_configurable; + } +#endif + + /* descriptor type specific checks */ + if (has_set || has_get) { + /* IsAccessorDescriptor(desc) == true */ + DUK_ASSERT(!has_writable); + DUK_ASSERT(!has_value); + + if (curr.flags & DUK_PROPDESC_FLAG_ACCESSOR) { + /* curr and desc are accessors */ + if (!(curr.flags & DUK_PROPDESC_FLAG_CONFIGURABLE) && !force_flag) { + if (has_set && set != curr.set) { + goto fail_not_configurable; + } + if (has_get && get != curr.get) { + goto fail_not_configurable; + } + } + } else { + duk_bool_t rc; + duk_tval *tv1; + + /* curr is data, desc is accessor */ + if (!(curr.flags & DUK_PROPDESC_FLAG_CONFIGURABLE) && !force_flag) { + goto fail_not_configurable; + } + + DUK_DDD(DUK_DDDPRINT("convert property to accessor property")); + if (curr.a_idx >= 0) { + DUK_DDD(DUK_DDDPRINT("property to convert is stored in an array entry, abandon array and re-lookup")); + duk__abandon_array_part(thr, obj); + duk_pop_unsafe(thr); /* remove old value */ + rc = duk__get_own_propdesc_raw(thr, obj, key, arr_idx, &curr, DUK_GETDESC_FLAG_PUSH_VALUE); + DUK_UNREF(rc); + DUK_ASSERT(rc != 0); + DUK_ASSERT(curr.e_idx >= 0 && curr.a_idx < 0); + } + if (curr.e_idx < 0) { + DUK_ASSERT(curr.a_idx < 0 && curr.e_idx < 0); + goto fail_virtual; /* safeguard for virtual property */ + } + + DUK_ASSERT(curr.e_idx >= 0); + DUK_ASSERT(!DUK_HOBJECT_E_SLOT_IS_ACCESSOR(thr->heap, obj, curr.e_idx)); + + tv1 = DUK_HOBJECT_E_GET_VALUE_TVAL_PTR(thr->heap, obj, curr.e_idx); + DUK_TVAL_SET_UNDEFINED_UPDREF_NORZ(thr, tv1); /* XXX: just decref */ + + DUK_HOBJECT_E_SET_VALUE_GETTER(thr->heap, obj, curr.e_idx, NULL); + DUK_HOBJECT_E_SET_VALUE_SETTER(thr->heap, obj, curr.e_idx, NULL); + DUK_HOBJECT_E_SLOT_CLEAR_WRITABLE(thr->heap, obj, curr.e_idx); + DUK_HOBJECT_E_SLOT_SET_ACCESSOR(thr->heap, obj, curr.e_idx); + + DUK_DDD(DUK_DDDPRINT("flags after data->accessor conversion: 0x%02lx", + (unsigned long) DUK_HOBJECT_E_GET_FLAGS(thr->heap, obj, curr.e_idx))); + /* Update curr.flags; faster than a re-lookup. */ + curr.flags &= ~DUK_PROPDESC_FLAG_WRITABLE; + curr.flags |= DUK_PROPDESC_FLAG_ACCESSOR; + } + } else if (has_value || has_writable) { + /* IsDataDescriptor(desc) == true */ + DUK_ASSERT(!has_set); + DUK_ASSERT(!has_get); + + if (curr.flags & DUK_PROPDESC_FLAG_ACCESSOR) { + duk_hobject *tmp; + + /* curr is accessor, desc is data */ + if (!(curr.flags & DUK_PROPDESC_FLAG_CONFIGURABLE) && !force_flag) { + goto fail_not_configurable; + } + + /* curr is accessor -> cannot be in array part. */ + DUK_ASSERT(curr.a_idx < 0); + if (curr.e_idx < 0) { + goto fail_virtual; /* safeguard; no virtual accessors now */ + } + + DUK_DDD(DUK_DDDPRINT("convert property to data property")); + + DUK_ASSERT(DUK_HOBJECT_E_SLOT_IS_ACCESSOR(thr->heap, obj, curr.e_idx)); + tmp = DUK_HOBJECT_E_GET_VALUE_GETTER(thr->heap, obj, curr.e_idx); + DUK_UNREF(tmp); + DUK_HOBJECT_E_SET_VALUE_GETTER(thr->heap, obj, curr.e_idx, NULL); + DUK_HOBJECT_DECREF_NORZ_ALLOWNULL(thr, tmp); + tmp = DUK_HOBJECT_E_GET_VALUE_SETTER(thr->heap, obj, curr.e_idx); + DUK_UNREF(tmp); + DUK_HOBJECT_E_SET_VALUE_SETTER(thr->heap, obj, curr.e_idx, NULL); + DUK_HOBJECT_DECREF_NORZ_ALLOWNULL(thr, tmp); + + DUK_TVAL_SET_UNDEFINED(DUK_HOBJECT_E_GET_VALUE_TVAL_PTR(thr->heap, obj, curr.e_idx)); + DUK_HOBJECT_E_SLOT_CLEAR_WRITABLE(thr->heap, obj, curr.e_idx); + DUK_HOBJECT_E_SLOT_CLEAR_ACCESSOR(thr->heap, obj, curr.e_idx); + + DUK_DDD(DUK_DDDPRINT("flags after accessor->data conversion: 0x%02lx", + (unsigned long) DUK_HOBJECT_E_GET_FLAGS(thr->heap, obj, curr.e_idx))); + + /* Update curr.flags; faster than a re-lookup. */ + curr.flags &= ~(DUK_PROPDESC_FLAG_WRITABLE | DUK_PROPDESC_FLAG_ACCESSOR); + } else { + /* curr and desc are data */ + if (!(curr.flags & DUK_PROPDESC_FLAG_CONFIGURABLE) && !force_flag) { + if (!(curr.flags & DUK_PROPDESC_FLAG_WRITABLE) && has_writable && is_writable) { + goto fail_not_configurable; + } + /* Note: changing from writable to non-writable is OK */ + if (!(curr.flags & DUK_PROPDESC_FLAG_WRITABLE) && has_value) { + duk_tval *tmp1 = duk_require_tval(thr, -1); /* curr value */ + duk_tval *tmp2 = duk_require_tval(thr, idx_value); /* new value */ + if (!duk_js_samevalue(tmp1, tmp2)) { + goto fail_not_configurable; + } + } + } + } + } else { + /* IsGenericDescriptor(desc) == true; this means in practice that 'desc' + * only has [[Enumerable]] or [[Configurable]] flag updates, which are + * allowed at this point. + */ + + DUK_ASSERT(!has_value && !has_writable && !has_get && !has_set); + } + + /* + * Start doing property attributes updates. Steps 12-13. + * + * Start by computing new attribute flags without writing yet. + * Property type conversion is done above if necessary. + */ + + new_flags = curr.flags; + + if (has_enumerable) { + if (is_enumerable) { + new_flags |= DUK_PROPDESC_FLAG_ENUMERABLE; + } else { + new_flags &= ~DUK_PROPDESC_FLAG_ENUMERABLE; + } + } + if (has_configurable) { + if (is_configurable) { + new_flags |= DUK_PROPDESC_FLAG_CONFIGURABLE; + } else { + new_flags &= ~DUK_PROPDESC_FLAG_CONFIGURABLE; + } + } + if (has_writable) { + if (is_writable) { + new_flags |= DUK_PROPDESC_FLAG_WRITABLE; + } else { + new_flags &= ~DUK_PROPDESC_FLAG_WRITABLE; + } + } + + /* XXX: write protect after flag? -> any chance of handling it here? */ + + DUK_DDD(DUK_DDDPRINT("new flags that we want to write: 0x%02lx", + (unsigned long) new_flags)); + + /* + * Check whether we need to abandon an array part (if it exists) + */ + + if (curr.a_idx >= 0) { + duk_bool_t rc; + + DUK_ASSERT(curr.e_idx < 0); + + if (new_flags == DUK_PROPDESC_FLAGS_WEC) { + duk_tval *tv1, *tv2; + + DUK_DDD(DUK_DDDPRINT("array index, new property attributes match array defaults, update in-place")); + + DUK_ASSERT(curr.flags == DUK_PROPDESC_FLAGS_WEC); /* must have been, since in array part */ + DUK_ASSERT(!has_set); + DUK_ASSERT(!has_get); + DUK_ASSERT(idx_value >= 0); /* must be: if attributes match and we get here the value must differ (otherwise no change) */ + + tv2 = duk_require_tval(thr, idx_value); + tv1 = DUK_HOBJECT_A_GET_VALUE_PTR(thr->heap, obj, curr.a_idx); + DUK_TVAL_SET_TVAL_UPDREF(thr, tv1, tv2); /* side effects; may invalidate a_idx */ + goto success_exotics; + } + + DUK_DDD(DUK_DDDPRINT("array index, new property attributes do not match array defaults, abandon array and re-lookup")); + duk__abandon_array_part(thr, obj); + duk_pop_unsafe(thr); /* remove old value */ + rc = duk__get_own_propdesc_raw(thr, obj, key, arr_idx, &curr, DUK_GETDESC_FLAG_PUSH_VALUE); + DUK_UNREF(rc); + DUK_ASSERT(rc != 0); + DUK_ASSERT(curr.e_idx >= 0 && curr.a_idx < 0); + } + + DUK_DDD(DUK_DDDPRINT("updating existing property in entry part")); + + /* Array case is handled comprehensively above: either in entry + * part or a virtual property. + */ + DUK_ASSERT(curr.a_idx < 0); + + DUK_DDD(DUK_DDDPRINT("update existing property attributes")); + if (curr.e_idx >= 0) { + DUK_HOBJECT_E_SET_FLAGS(thr->heap, obj, curr.e_idx, new_flags); + } else { + /* For Array .length the only allowed transition is for .length + * to become non-writable. + */ + if (key == DUK_HTHREAD_STRING_LENGTH(thr) && DUK_HOBJECT_HAS_EXOTIC_ARRAY(obj)) { + duk_harray *a; + a = (duk_harray *) obj; + DUK_DD(DUK_DDPRINT("Object.defineProperty() attribute update for duk_harray .length -> %02lx", (unsigned long) new_flags)); + DUK_HARRAY_ASSERT_VALID(a); + if ((new_flags & DUK_PROPDESC_FLAGS_EC) != (curr.flags & DUK_PROPDESC_FLAGS_EC)) { + DUK_D(DUK_DPRINT("Object.defineProperty() attempt to change virtual array .length enumerable or configurable attribute, fail")); + goto fail_virtual; + } + if (new_flags & DUK_PROPDESC_FLAG_WRITABLE) { + DUK_HARRAY_SET_LENGTH_WRITABLE(a); + } else { + DUK_HARRAY_SET_LENGTH_NONWRITABLE(a); + } + } + } + + if (has_set) { + duk_hobject *tmp; + + /* Virtual properties are non-configurable but with a 'force' + * flag we might come here so check explicitly for virtual. + */ + if (curr.e_idx < 0) { + goto fail_virtual; + } + + DUK_DDD(DUK_DDDPRINT("update existing property setter")); + DUK_ASSERT(DUK_HOBJECT_E_SLOT_IS_ACCESSOR(thr->heap, obj, curr.e_idx)); + + tmp = DUK_HOBJECT_E_GET_VALUE_SETTER(thr->heap, obj, curr.e_idx); + DUK_UNREF(tmp); + DUK_HOBJECT_E_SET_VALUE_SETTER(thr->heap, obj, curr.e_idx, set); + DUK_HOBJECT_INCREF_ALLOWNULL(thr, set); + DUK_HOBJECT_DECREF_ALLOWNULL(thr, tmp); /* side effects; may invalidate e_idx */ + } + if (has_get) { + duk_hobject *tmp; + + if (curr.e_idx < 0) { + goto fail_virtual; + } + + DUK_DDD(DUK_DDDPRINT("update existing property getter")); + DUK_ASSERT(DUK_HOBJECT_E_SLOT_IS_ACCESSOR(thr->heap, obj, curr.e_idx)); + + tmp = DUK_HOBJECT_E_GET_VALUE_GETTER(thr->heap, obj, curr.e_idx); + DUK_UNREF(tmp); + DUK_HOBJECT_E_SET_VALUE_GETTER(thr->heap, obj, curr.e_idx, get); + DUK_HOBJECT_INCREF_ALLOWNULL(thr, get); + DUK_HOBJECT_DECREF_ALLOWNULL(thr, tmp); /* side effects; may invalidate e_idx */ + } + if (has_value) { + duk_tval *tv1, *tv2; + + DUK_DDD(DUK_DDDPRINT("update existing property value")); + + if (curr.e_idx >= 0) { + DUK_ASSERT(!DUK_HOBJECT_E_SLOT_IS_ACCESSOR(thr->heap, obj, curr.e_idx)); + tv2 = duk_require_tval(thr, idx_value); + tv1 = DUK_HOBJECT_E_GET_VALUE_TVAL_PTR(thr->heap, obj, curr.e_idx); + DUK_TVAL_SET_TVAL_UPDREF(thr, tv1, tv2); /* side effects; may invalidate e_idx */ + } else { + DUK_ASSERT(curr.a_idx < 0); /* array part case handled comprehensively previously */ + + DUK_DD(DUK_DDPRINT("Object.defineProperty(), value update for virtual property")); + /* XXX: Uint8Array and other typed array virtual writes not currently + * handled. + */ + if (key == DUK_HTHREAD_STRING_LENGTH(thr) && DUK_HOBJECT_HAS_EXOTIC_ARRAY(obj)) { + duk_harray *a; + a = (duk_harray *) obj; + DUK_DD(DUK_DDPRINT("Object.defineProperty() value update for duk_harray .length -> %ld", (long) arrlen_new_len)); + DUK_HARRAY_ASSERT_VALID(a); + a->length = arrlen_new_len; + } else { + goto fail_virtual; /* should not happen */ + } + } + } + + /* + * Standard algorithm succeeded without errors, check for exotic post-behaviors. + * + * Arguments exotic behavior in E5 Section 10.6 occurs after the standard + * [[DefineOwnProperty]] has completed successfully. + * + * Array exotic behavior in E5 Section 15.4.5.1 is implemented partly + * prior to the default [[DefineOwnProperty]], but: + * - for an array index key (e.g. "10") the final 'length' update occurs here + * - for 'length' key the element deletion and 'length' update occurs here + */ + + success_exotics: + + /* curr.a_idx or curr.e_idx may have been invalidated by side effects + * above. + */ + + /* [obj key desc value get set curr_value] */ + + if (DUK_HOBJECT_HAS_EXOTIC_ARRAY(obj)) { + duk_harray *a; + + a = (duk_harray *) obj; + DUK_HARRAY_ASSERT_VALID(a); + + if (arridx_new_array_length > 0) { + /* + * Note: zero works as a "no update" marker because the new length + * can never be zero after a new property is written. + */ + + /* E5 Section 15.4.5.1, steps 4.e.i - 4.e.ii */ + + DUK_DDD(DUK_DDDPRINT("defineProperty successful, pending array length update to: %ld", + (long) arridx_new_array_length)); + + a->length = arridx_new_array_length; + } + + if (key == DUK_HTHREAD_STRING_LENGTH(thr) && arrlen_new_len < arrlen_old_len) { + /* + * E5 Section 15.4.5.1, steps 3.k - 3.n. The order at the end combines + * the error case 3.l.iii and the success case 3.m-3.n. + */ + + /* XXX: investigate whether write protect can be handled above, if we + * just update length here while ignoring its protected status + */ + + duk_uint32_t result_len; + duk_bool_t rc; + + DUK_DDD(DUK_DDDPRINT("defineProperty successful, key is 'length', exotic array behavior, " + "doing array element deletion and length update")); + + rc = duk__handle_put_array_length_smaller(thr, obj, arrlen_old_len, arrlen_new_len, force_flag, &result_len); + + /* update length (curr points to length, and we assume it's still valid) */ + DUK_ASSERT(result_len >= arrlen_new_len && result_len <= arrlen_old_len); + + a->length = result_len; + + if (pending_write_protect) { + DUK_DDD(DUK_DDDPRINT("setting array length non-writable (pending writability update)")); + DUK_HARRAY_SET_LENGTH_NONWRITABLE(a); + } + + /* XXX: shrink array allocation or entries compaction here? */ + if (!rc) { + DUK_DD(DUK_DDPRINT("array length write only partially successful")); + goto fail_not_configurable; + } + } + } else if (arr_idx != DUK__NO_ARRAY_INDEX && DUK_HOBJECT_HAS_EXOTIC_ARGUMENTS(obj)) { + duk_hobject *map; + duk_hobject *varenv; + + DUK_ASSERT(arridx_new_array_length == 0); + DUK_ASSERT(!DUK_HOBJECT_HAS_EXOTIC_ARRAY(obj)); /* traits are separate; in particular, arguments not an array */ + + map = NULL; + varenv = NULL; + if (!duk__lookup_arguments_map(thr, obj, key, &curr, &map, &varenv)) { + goto success_no_exotics; + } + DUK_ASSERT(map != NULL); + DUK_ASSERT(varenv != NULL); + + /* [obj key desc value get set curr_value varname] */ + + if (has_set || has_get) { + /* = IsAccessorDescriptor(Desc) */ + DUK_DDD(DUK_DDDPRINT("defineProperty successful, key mapped to arguments 'map' " + "changed to an accessor, delete arguments binding")); + + (void) duk_hobject_delprop_raw(thr, map, key, 0); /* ignore result */ + } else { + /* Note: this order matters (final value before deleting map entry must be done) */ + DUK_DDD(DUK_DDDPRINT("defineProperty successful, key mapped to arguments 'map', " + "check for value update / binding deletion")); + + if (has_value) { + duk_hstring *varname; + + DUK_DDD(DUK_DDDPRINT("defineProperty successful, key mapped to arguments 'map', " + "update bound value (variable/argument)")); + + varname = duk_require_hstring(thr, -1); + DUK_ASSERT(varname != NULL); + + DUK_DDD(DUK_DDDPRINT("arguments object automatic putvar for a bound variable; " + "key=%!O, varname=%!O, value=%!T", + (duk_heaphdr *) key, + (duk_heaphdr *) varname, + (duk_tval *) duk_require_tval(thr, idx_value))); + + /* strict flag for putvar comes from our caller (currently: fixed) */ + duk_js_putvar_envrec(thr, varenv, varname, duk_require_tval(thr, idx_value), 1 /*throw_flag*/); + } + if (has_writable && !is_writable) { + DUK_DDD(DUK_DDDPRINT("defineProperty successful, key mapped to arguments 'map', " + "changed to non-writable, delete arguments binding")); + + (void) duk_hobject_delprop_raw(thr, map, key, 0); /* ignore result */ + } + } + + /* 'varname' is in stack in this else branch, leaving an unbalanced stack below, + * but this doesn't matter now. + */ + } + + success_no_exotics: + /* Some code paths use NORZ macros for simplicity, ensure refzero + * handling is completed. + */ + DUK_REFZERO_CHECK_SLOW(thr); + return 1; + + fail_not_extensible: + if (throw_flag) { + DUK_ERROR_TYPE(thr, DUK_STR_NOT_EXTENSIBLE); + DUK_WO_NORETURN(return 0;); + } + return 0; + + fail_virtual: /* just use the same "not configurable" error message" */ + fail_not_configurable: + if (throw_flag) { + DUK_ERROR_TYPE(thr, DUK_STR_NOT_CONFIGURABLE); + DUK_WO_NORETURN(return 0;); + } + return 0; +} + +/* + * Object.prototype.hasOwnProperty() and Object.prototype.propertyIsEnumerable(). + */ + +DUK_INTERNAL duk_bool_t duk_hobject_object_ownprop_helper(duk_hthread *thr, duk_small_uint_t required_desc_flags) { + duk_hstring *h_v; + duk_hobject *h_obj; + duk_propdesc desc; + duk_bool_t ret; + + /* coercion order matters */ + h_v = duk_to_hstring_acceptsymbol(thr, 0); + DUK_ASSERT(h_v != NULL); + + h_obj = duk_push_this_coercible_to_object(thr); + DUK_ASSERT(h_obj != NULL); + + ret = duk_hobject_get_own_propdesc(thr, h_obj, h_v, &desc, 0 /*flags*/); /* don't push value */ + + duk_push_boolean(thr, ret && ((desc.flags & required_desc_flags) == required_desc_flags)); + return 1; +} + +/* + * Object.seal() and Object.freeze() (E5 Sections 15.2.3.8 and 15.2.3.9) + * + * Since the algorithms are similar, a helper provides both functions. + * Freezing is essentially sealing + making plain properties non-writable. + * + * Note: virtual (non-concrete) properties which are non-configurable but + * writable would pose some problems, but such properties do not currently + * exist (all virtual properties are non-configurable and non-writable). + * If they did exist, the non-configurability does NOT prevent them from + * becoming non-writable. However, this change should be recorded somehow + * so that it would turn up (e.g. when getting the property descriptor), + * requiring some additional flags in the object. + */ + +DUK_INTERNAL void duk_hobject_object_seal_freeze_helper(duk_hthread *thr, duk_hobject *obj, duk_bool_t is_freeze) { + duk_uint_fast32_t i; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(thr->heap != NULL); + DUK_ASSERT(obj != NULL); + + DUK_ASSERT_VALSTACK_SPACE(thr, DUK__VALSTACK_SPACE); + +#if defined(DUK_USE_ROM_OBJECTS) + if (DUK_HEAPHDR_HAS_READONLY((duk_heaphdr *) obj)) { + DUK_DD(DUK_DDPRINT("attempt to seal/freeze a readonly object, reject")); + DUK_ERROR_TYPE(thr, DUK_STR_NOT_CONFIGURABLE); + DUK_WO_NORETURN(return;); + } +#endif + + /* + * Abandon array part because all properties must become non-configurable. + * Note that this is now done regardless of whether this is always the case + * (skips check, but performance problem if caller would do this many times + * for the same object; not likely). + */ + + duk__abandon_array_part(thr, obj); + DUK_ASSERT(DUK_HOBJECT_GET_ASIZE(obj) == 0); + + for (i = 0; i < DUK_HOBJECT_GET_ENEXT(obj); i++) { + duk_uint8_t *fp; + + /* since duk__abandon_array_part() causes a resize, there should be no gaps in keys */ + DUK_ASSERT(DUK_HOBJECT_E_GET_KEY(thr->heap, obj, i) != NULL); + + /* avoid multiple computations of flags address; bypasses macros */ + fp = DUK_HOBJECT_E_GET_FLAGS_PTR(thr->heap, obj, i); + if (is_freeze && !((*fp) & DUK_PROPDESC_FLAG_ACCESSOR)) { + *fp &= ~(DUK_PROPDESC_FLAG_WRITABLE | DUK_PROPDESC_FLAG_CONFIGURABLE); + } else { + *fp &= ~DUK_PROPDESC_FLAG_CONFIGURABLE; + } + } + + DUK_HOBJECT_CLEAR_EXTENSIBLE(obj); + + /* no need to compact since we already did that in duk__abandon_array_part() + * (regardless of whether an array part existed or not. + */ + + return; +} + +/* + * Object.isSealed() and Object.isFrozen() (E5 Sections 15.2.3.11, 15.2.3.13) + * + * Since the algorithms are similar, a helper provides both functions. + * Freezing is essentially sealing + making plain properties non-writable. + * + * Note: all virtual (non-concrete) properties are currently non-configurable + * and non-writable (and there are no accessor virtual properties), so they don't + * need to be considered here now. + */ + +DUK_INTERNAL duk_bool_t duk_hobject_object_is_sealed_frozen_helper(duk_hthread *thr, duk_hobject *obj, duk_bool_t is_frozen) { + duk_uint_fast32_t i; + + DUK_ASSERT(obj != NULL); + DUK_UNREF(thr); + + /* Note: no allocation pressure, no need to check refcounts etc */ + + /* must not be extensible */ + if (DUK_HOBJECT_HAS_EXTENSIBLE(obj)) { + return 0; + } + + /* all virtual properties are non-configurable and non-writable */ + + /* entry part must not contain any configurable properties, or + * writable properties (if is_frozen). + */ + for (i = 0; i < DUK_HOBJECT_GET_ENEXT(obj); i++) { + duk_small_uint_t flags; + + if (!DUK_HOBJECT_E_GET_KEY(thr->heap, obj, i)) { + continue; + } + + /* avoid multiple computations of flags address; bypasses macros */ + flags = (duk_small_uint_t) DUK_HOBJECT_E_GET_FLAGS(thr->heap, obj, i); + + if (flags & DUK_PROPDESC_FLAG_CONFIGURABLE) { + return 0; + } + if (is_frozen && + !(flags & DUK_PROPDESC_FLAG_ACCESSOR) && + (flags & DUK_PROPDESC_FLAG_WRITABLE)) { + return 0; + } + } + + /* array part must not contain any non-unused properties, as they would + * be configurable and writable. + */ + for (i = 0; i < DUK_HOBJECT_GET_ASIZE(obj); i++) { + duk_tval *tv = DUK_HOBJECT_A_GET_VALUE_PTR(thr->heap, obj, i); + if (!DUK_TVAL_IS_UNUSED(tv)) { + return 0; + } + } + + return 1; +} + +/* + * Object.preventExtensions() and Object.isExtensible() (E5 Sections 15.2.3.10, 15.2.3.13) + * + * Not needed, implemented by macros DUK_HOBJECT_{HAS,CLEAR,SET}_EXTENSIBLE + * and the Object built-in bindings. + */ + +/* automatic undefs */ +#undef DUK__HASH_DELETED +#undef DUK__HASH_UNUSED +#undef DUK__NO_ARRAY_INDEX +#undef DUK__VALSTACK_PROXY_LOOKUP +#undef DUK__VALSTACK_SPACE +#line 1 "duk_hstring_assert.c" +/* + * duk_hstring assertion helpers. + */ + +/* #include duk_internal.h -> already included */ + +#if defined(DUK_USE_ASSERTIONS) + +DUK_INTERNAL void duk_hstring_assert_valid(duk_hstring *h) { + DUK_ASSERT(h != NULL); +} + +#endif /* DUK_USE_ASSERTIONS */ +#line 1 "duk_hstring_misc.c" +/* + * Misc support functions + */ + +/* #include duk_internal.h -> already included */ + +/* + * duk_hstring charCodeAt, with and without surrogate awareness + */ + +DUK_INTERNAL duk_ucodepoint_t duk_hstring_char_code_at_raw(duk_hthread *thr, duk_hstring *h, duk_uint_t pos, duk_bool_t surrogate_aware) { + duk_uint32_t boff; + const duk_uint8_t *p, *p_start, *p_end; + duk_ucodepoint_t cp1; + duk_ucodepoint_t cp2; + + /* Caller must check character offset to be inside the string. */ + DUK_ASSERT(thr != NULL); + DUK_ASSERT(h != NULL); + DUK_ASSERT_DISABLE(pos >= 0); /* unsigned */ + DUK_ASSERT(pos < (duk_uint_t) DUK_HSTRING_GET_CHARLEN(h)); + + boff = (duk_uint32_t) duk_heap_strcache_offset_char2byte(thr, h, (duk_uint32_t) pos); + DUK_DDD(DUK_DDDPRINT("charCodeAt: pos=%ld -> boff=%ld, str=%!O", + (long) pos, (long) boff, (duk_heaphdr *) h)); + DUK_ASSERT_DISABLE(boff >= 0); + DUK_ASSERT(boff < DUK_HSTRING_GET_BYTELEN(h)); + + p_start = DUK_HSTRING_GET_DATA(h); + p_end = p_start + DUK_HSTRING_GET_BYTELEN(h); + p = p_start + boff; + DUK_DDD(DUK_DDDPRINT("p_start=%p, p_end=%p, p=%p", + (const void *) p_start, (const void *) p_end, + (const void *) p)); + + /* For invalid UTF-8 (never happens for standard ECMAScript strings) + * return U+FFFD replacement character. + */ + if (duk_unicode_decode_xutf8(thr, &p, p_start, p_end, &cp1)) { + if (surrogate_aware && cp1 >= 0xd800UL && cp1 <= 0xdbffUL) { + /* The decode helper is memory safe even if 'cp1' was + * decoded at the end of the string and 'p' is no longer + * within string memory range. + */ + cp2 = 0; /* If call fails, this is left untouched and won't match cp2 check. */ + (void) duk_unicode_decode_xutf8(thr, &p, p_start, p_end, &cp2); + if (cp2 >= 0xdc00UL && cp2 <= 0xdfffUL) { + cp1 = (duk_ucodepoint_t) (((cp1 - 0xd800UL) << 10) + (cp2 - 0xdc00UL) + 0x10000UL); + } + } + } else { + cp1 = DUK_UNICODE_CP_REPLACEMENT_CHARACTER; + } + + return cp1; +} + +/* + * duk_hstring charlen, when lazy charlen disabled + */ + +#if !defined(DUK_USE_HSTRING_LAZY_CLEN) +#if !defined(DUK_USE_HSTRING_CLEN) +#error non-lazy duk_hstring charlen but DUK_USE_HSTRING_CLEN not set +#endif +DUK_INTERNAL void duk_hstring_init_charlen(duk_hstring *h) { + duk_uint32_t clen; + + DUK_ASSERT(h != NULL); + DUK_ASSERT(!DUK_HSTRING_HAS_ASCII(h)); + DUK_ASSERT(!DUK_HEAPHDR_HAS_READONLY((duk_heaphdr *) h)); + + clen = duk_unicode_unvalidated_utf8_length(DUK_HSTRING_GET_DATA(h), DUK_HSTRING_GET_BYTELEN(h)); +#if defined(DUK_USE_STRLEN16) + DUK_ASSERT(clen <= 0xffffUL); /* Bytelength checked during interning. */ + h->clen16 = (duk_uint16_t) clen; +#else + h->clen = (duk_uint32_t) clen; +#endif + if (DUK_LIKELY(clen == DUK_HSTRING_GET_BYTELEN(h))) { + DUK_HSTRING_SET_ASCII(h); + } +} + +DUK_INTERNAL DUK_HOT duk_size_t duk_hstring_get_charlen(duk_hstring *h) { +#if defined(DUK_USE_STRLEN16) + return h->clen16; +#else + return h->clen; +#endif +} +#endif /* !DUK_USE_HSTRING_LAZY_CLEN */ + +/* + * duk_hstring charlen, when lazy charlen enabled + */ + +#if defined(DUK_USE_HSTRING_LAZY_CLEN) +#if defined(DUK_USE_HSTRING_CLEN) +DUK_LOCAL DUK_COLD duk_size_t duk__hstring_get_charlen_slowpath(duk_hstring *h) { + duk_size_t res; + + DUK_ASSERT(h->clen == 0); /* Checked by caller. */ + +#if defined(DUK_USE_ROM_STRINGS) + /* ROM strings have precomputed clen, but if the computed clen is zero + * we can still come here and can't write anything. + */ + if (DUK_HEAPHDR_HAS_READONLY((duk_heaphdr *) h)) { + return 0; + } +#endif + + res = duk_unicode_unvalidated_utf8_length(DUK_HSTRING_GET_DATA(h), DUK_HSTRING_GET_BYTELEN(h)); +#if defined(DUK_USE_STRLEN16) + DUK_ASSERT(res <= 0xffffUL); /* Bytelength checked during interning. */ + h->clen16 = (duk_uint16_t) res; +#else + h->clen = (duk_uint32_t) res; +#endif + if (DUK_LIKELY(res == DUK_HSTRING_GET_BYTELEN(h))) { + DUK_HSTRING_SET_ASCII(h); + } + return res; +} +#else /* DUK_USE_HSTRING_CLEN */ +DUK_LOCAL duk_size_t duk__hstring_get_charlen_slowpath(duk_hstring *h) { + if (DUK_LIKELY(DUK_HSTRING_HAS_ASCII(h))) { + /* Most practical strings will go here. */ + return DUK_HSTRING_GET_BYTELEN(h); + } else { + /* ASCII flag is lazy, so set it here. */ + duk_size_t res; + + /* XXX: here we could use the strcache to speed up the + * computation (matters for 'i < str.length' loops). + */ + + res = duk_unicode_unvalidated_utf8_length(DUK_HSTRING_GET_DATA(h), DUK_HSTRING_GET_BYTELEN(h)); + +#if defined(DUK_USE_ROM_STRINGS) + if (DUK_HEAPHDR_HAS_READONLY((duk_heaphdr *) h)) { + /* For ROM strings, can't write anything; ASCII flag + * is preset so we don't need to update it. + */ + return res; + } +#endif + if (DUK_LIKELY(res == DUK_HSTRING_GET_BYTELEN(h))) { + DUK_HSTRING_SET_ASCII(h); + } + return res; + } +} +#endif /* DUK_USE_HSTRING_CLEN */ + +#if defined(DUK_USE_HSTRING_CLEN) +DUK_INTERNAL DUK_HOT duk_size_t duk_hstring_get_charlen(duk_hstring *h) { +#if defined(DUK_USE_STRLEN16) + if (DUK_LIKELY(h->clen16 != 0)) { + return h->clen16; + } +#else + if (DUK_LIKELY(h->clen != 0)) { + return h->clen; + } +#endif + return duk__hstring_get_charlen_slowpath(h); +} +#else /* DUK_USE_HSTRING_CLEN */ +DUK_INTERNAL DUK_HOT duk_size_t duk_hstring_get_charlen(duk_hstring *h) { + /* Always use slow path. */ + return duk__hstring_get_charlen_slowpath(h); +} +#endif /* DUK_USE_HSTRING_CLEN */ +#endif /* DUK_USE_HSTRING_LAZY_CLEN */ + +/* + * Compare duk_hstring to an ASCII cstring. + */ + +DUK_INTERNAL duk_bool_t duk_hstring_equals_ascii_cstring(duk_hstring *h, const char *cstr) { + duk_size_t len; + + DUK_ASSERT(h != NULL); + DUK_ASSERT(cstr != NULL); + + len = DUK_STRLEN(cstr); + if (len != DUK_HSTRING_GET_BYTELEN(h)) { + return 0; + } + if (duk_memcmp((const void *) cstr, (const void *) DUK_HSTRING_GET_DATA(h), len) == 0) { + return 1; + } + return 0; +} +#line 1 "duk_hthread_alloc.c" +/* + * duk_hthread allocation and freeing. + */ + +/* #include duk_internal.h -> already included */ + +/* + * Allocate initial stacks for a thread. Note that 'thr' must be reachable + * as a garbage collection may be triggered by the allocation attempts. + * Returns zero (without leaking memory) if init fails. + */ + +DUK_INTERNAL duk_bool_t duk_hthread_init_stacks(duk_heap *heap, duk_hthread *thr) { + duk_size_t alloc_size; + duk_size_t i; + + DUK_ASSERT(heap != NULL); + DUK_ASSERT(thr != NULL); + DUK_ASSERT(thr->valstack == NULL); + DUK_ASSERT(thr->valstack_end == NULL); + DUK_ASSERT(thr->valstack_alloc_end == NULL); + DUK_ASSERT(thr->valstack_bottom == NULL); + DUK_ASSERT(thr->valstack_top == NULL); + DUK_ASSERT(thr->callstack_curr == NULL); + + /* valstack */ + DUK_ASSERT(DUK_VALSTACK_API_ENTRY_MINIMUM <= DUK_VALSTACK_INITIAL_SIZE); + alloc_size = sizeof(duk_tval) * DUK_VALSTACK_INITIAL_SIZE; + thr->valstack = (duk_tval *) DUK_ALLOC(heap, alloc_size); + if (!thr->valstack) { + goto fail; + } + duk_memzero(thr->valstack, alloc_size); + thr->valstack_end = thr->valstack + DUK_VALSTACK_API_ENTRY_MINIMUM; + thr->valstack_alloc_end = thr->valstack + DUK_VALSTACK_INITIAL_SIZE; + thr->valstack_bottom = thr->valstack; + thr->valstack_top = thr->valstack; + + for (i = 0; i < DUK_VALSTACK_INITIAL_SIZE; i++) { + DUK_TVAL_SET_UNDEFINED(&thr->valstack[i]); + } + + return 1; + + fail: + DUK_FREE(heap, thr->valstack); + DUK_ASSERT(thr->callstack_curr == NULL); + + thr->valstack = NULL; + return 0; +} + +/* For indirect allocs. */ + +DUK_INTERNAL void *duk_hthread_get_valstack_ptr(duk_heap *heap, void *ud) { + duk_hthread *thr = (duk_hthread *) ud; + DUK_UNREF(heap); + return (void *) thr->valstack; +} +#line 1 "duk_hthread_builtins.c" +/* + * Initialize built-in objects. Current thread must have a valstack + * and initialization errors may longjmp, so a setjmp() catch point + * must exist. + */ + +/* #include duk_internal.h -> already included */ + +/* + * Encoding constants, must match genbuiltins.py + */ + +#define DUK__PROP_FLAGS_BITS 3 +#define DUK__LENGTH_PROP_BITS 3 +#define DUK__NARGS_BITS 3 +#define DUK__PROP_TYPE_BITS 3 + +#define DUK__NARGS_VARARGS_MARKER 0x07 + +#define DUK__PROP_TYPE_DOUBLE 0 +#define DUK__PROP_TYPE_STRING 1 +#define DUK__PROP_TYPE_STRIDX 2 +#define DUK__PROP_TYPE_BUILTIN 3 +#define DUK__PROP_TYPE_UNDEFINED 4 +#define DUK__PROP_TYPE_BOOLEAN_TRUE 5 +#define DUK__PROP_TYPE_BOOLEAN_FALSE 6 +#define DUK__PROP_TYPE_ACCESSOR 7 + +/* + * Create built-in objects by parsing an init bitstream generated + * by genbuiltins.py. + */ + +#if defined(DUK_USE_ROM_OBJECTS) +#if defined(DUK_USE_ROM_GLOBAL_CLONE) || defined(DUK_USE_ROM_GLOBAL_INHERIT) +DUK_LOCAL void duk__duplicate_ram_global_object(duk_hthread *thr) { + duk_hobject *h_global; +#if defined(DUK_USE_ROM_GLOBAL_CLONE) + duk_hobject *h_oldglobal; + duk_uint8_t *props; + duk_size_t alloc_size; +#endif + duk_hobject *h_objenv; + + /* XXX: refactor into internal helper, duk_clone_hobject() */ + +#if defined(DUK_USE_ROM_GLOBAL_INHERIT) + /* Inherit from ROM-based global object: less RAM usage, less transparent. */ + h_global = duk_push_object_helper(thr, + DUK_HOBJECT_FLAG_EXTENSIBLE | + DUK_HOBJECT_FLAG_FASTREFS | + DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_GLOBAL), + DUK_BIDX_GLOBAL); + DUK_ASSERT(h_global != NULL); +#elif defined(DUK_USE_ROM_GLOBAL_CLONE) + /* Clone the properties of the ROM-based global object to create a + * fully RAM-based global object. Uses more memory than the inherit + * model but more compliant. + */ + h_global = duk_push_object_helper(thr, + DUK_HOBJECT_FLAG_EXTENSIBLE | + DUK_HOBJECT_FLAG_FASTREFS | + DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_GLOBAL), + DUK_BIDX_OBJECT_PROTOTYPE); + DUK_ASSERT(h_global != NULL); + h_oldglobal = thr->builtins[DUK_BIDX_GLOBAL]; + DUK_ASSERT(h_oldglobal != NULL); + + /* Copy the property table verbatim; this handles attributes etc. + * For ROM objects it's not necessary (or possible) to update + * refcounts so leave them as is. + */ + alloc_size = DUK_HOBJECT_P_ALLOC_SIZE(h_oldglobal); + DUK_ASSERT(alloc_size > 0); + props = DUK_ALLOC_CHECKED(thr, alloc_size); + DUK_ASSERT(props != NULL); + DUK_ASSERT(DUK_HOBJECT_GET_PROPS(thr->heap, h_oldglobal) != NULL); + duk_memcpy((void *) props, (const void *) DUK_HOBJECT_GET_PROPS(thr->heap, h_oldglobal), alloc_size); + + /* XXX: keep property attributes or tweak them here? + * Properties will now be non-configurable even when they're + * normally configurable for the global object. + */ + + DUK_ASSERT(DUK_HOBJECT_GET_PROPS(thr->heap, h_global) == NULL); + DUK_HOBJECT_SET_PROPS(thr->heap, h_global, props); + DUK_HOBJECT_SET_ESIZE(h_global, DUK_HOBJECT_GET_ESIZE(h_oldglobal)); + DUK_HOBJECT_SET_ENEXT(h_global, DUK_HOBJECT_GET_ENEXT(h_oldglobal)); + DUK_HOBJECT_SET_ASIZE(h_global, DUK_HOBJECT_GET_ASIZE(h_oldglobal)); + DUK_HOBJECT_SET_HSIZE(h_global, DUK_HOBJECT_GET_HSIZE(h_oldglobal)); +#else +#error internal error in config defines +#endif + + duk_hobject_compact_props(thr, h_global); + DUK_ASSERT(thr->builtins[DUK_BIDX_GLOBAL] != NULL); + DUK_ASSERT(!DUK_HEAPHDR_NEEDS_REFCOUNT_UPDATE((duk_heaphdr *) thr->builtins[DUK_BIDX_GLOBAL])); /* no need to decref: ROM object */ + thr->builtins[DUK_BIDX_GLOBAL] = h_global; + DUK_HOBJECT_INCREF(thr, h_global); + DUK_D(DUK_DPRINT("duplicated global object: %!O", h_global)); + + /* Create a fresh object environment for the global scope. This is + * needed so that the global scope points to the newly created RAM-based + * global object. + */ + h_objenv = (duk_hobject *) duk_hobjenv_alloc(thr, + DUK_HOBJECT_FLAG_EXTENSIBLE | + DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_OBJENV)); + DUK_ASSERT(h_objenv != NULL); + DUK_ASSERT(DUK_HOBJECT_GET_PROTOTYPE(thr->heap, h_objenv) == NULL); + duk_push_hobject(thr, h_objenv); + + DUK_ASSERT(h_global != NULL); + ((duk_hobjenv *) h_objenv)->target = h_global; + DUK_HOBJECT_INCREF(thr, h_global); + DUK_ASSERT(((duk_hobjenv *) h_objenv)->has_this == 0); + + DUK_ASSERT(thr->builtins[DUK_BIDX_GLOBAL_ENV] != NULL); + DUK_ASSERT(!DUK_HEAPHDR_NEEDS_REFCOUNT_UPDATE((duk_heaphdr *) thr->builtins[DUK_BIDX_GLOBAL_ENV])); /* no need to decref: ROM object */ + thr->builtins[DUK_BIDX_GLOBAL_ENV] = h_objenv; + DUK_HOBJECT_INCREF(thr, h_objenv); + DUK_D(DUK_DPRINT("duplicated global env: %!O", h_objenv)); + + DUK_HOBJENV_ASSERT_VALID((duk_hobjenv *) h_objenv); + + duk_pop_2(thr); /* Pop global object and global env. */ +} +#endif /* DUK_USE_ROM_GLOBAL_CLONE || DUK_USE_ROM_GLOBAL_INHERIT */ + +DUK_INTERNAL void duk_hthread_create_builtin_objects(duk_hthread *thr) { + /* Setup builtins from ROM objects. All heaps/threads will share + * the same readonly objects. + */ + duk_small_uint_t i; + + for (i = 0; i < DUK_NUM_BUILTINS; i++) { + duk_hobject *h; + h = (duk_hobject *) DUK_LOSE_CONST(duk_rom_builtins_bidx[i]); + DUK_ASSERT(h != NULL); + thr->builtins[i] = h; + } + +#if defined(DUK_USE_ROM_GLOBAL_CLONE) || defined(DUK_USE_ROM_GLOBAL_INHERIT) + /* By default the global object is read-only which is often much + * more of an issue than having read-only built-in objects (like + * RegExp, Date, etc). Use a RAM-based copy of the global object + * and the global environment object for convenience. + */ + duk__duplicate_ram_global_object(thr); +#endif +} +#else /* DUK_USE_ROM_OBJECTS */ +DUK_LOCAL void duk__push_stridx(duk_hthread *thr, duk_bitdecoder_ctx *bd) { + duk_small_uint_t n; + + n = (duk_small_uint_t) duk_bd_decode_varuint(bd); + DUK_ASSERT_DISABLE(n >= 0); /* unsigned */ + DUK_ASSERT(n < DUK_HEAP_NUM_STRINGS); + duk_push_hstring_stridx(thr, n); +} +DUK_LOCAL void duk__push_string(duk_hthread *thr, duk_bitdecoder_ctx *bd) { + /* XXX: built-ins data could provide a maximum length that is + * actually needed; bitpacked max length is now 256 bytes. + */ + duk_uint8_t tmp[DUK_BD_BITPACKED_STRING_MAXLEN]; + duk_small_uint_t len; + + len = duk_bd_decode_bitpacked_string(bd, tmp); + duk_push_lstring(thr, (const char *) tmp, (duk_size_t) len); +} +DUK_LOCAL void duk__push_stridx_or_string(duk_hthread *thr, duk_bitdecoder_ctx *bd) { + duk_small_uint_t n; + + n = (duk_small_uint_t) duk_bd_decode_varuint(bd); + if (n == 0) { + duk__push_string(thr, bd); + } else { + n--; + DUK_ASSERT(n < DUK_HEAP_NUM_STRINGS); + duk_push_hstring_stridx(thr, n); + } +} +DUK_LOCAL void duk__push_double(duk_hthread *thr, duk_bitdecoder_ctx *bd) { + duk_double_union du; + duk_small_uint_t i; + + for (i = 0; i < 8; i++) { + /* Encoding endianness must match target memory layout, + * build scripts and genbuiltins.py must ensure this. + */ + du.uc[i] = (duk_uint8_t) duk_bd_decode(bd, 8); + } + + duk_push_number(thr, du.d); /* push operation normalizes NaNs */ +} + +DUK_INTERNAL void duk_hthread_create_builtin_objects(duk_hthread *thr) { + duk_bitdecoder_ctx bd_ctx; + duk_bitdecoder_ctx *bd = &bd_ctx; /* convenience */ + duk_hobject *h; + duk_small_uint_t i, j; + + DUK_D(DUK_DPRINT("INITBUILTINS BEGIN: DUK_NUM_BUILTINS=%d, DUK_NUM_BUILTINS_ALL=%d", (int) DUK_NUM_BUILTINS, (int) DUK_NUM_ALL_BUILTINS)); + + duk_memzero(&bd_ctx, sizeof(bd_ctx)); + bd->data = (const duk_uint8_t *) duk_builtins_data; + bd->length = (duk_size_t) DUK_BUILTINS_DATA_LENGTH; + + /* + * First create all built-in bare objects on the empty valstack. + * + * Built-ins in the index range [0,DUK_NUM_BUILTINS-1] have value + * stack indices matching their eventual thr->builtins[] index. + * + * Built-ins in the index range [DUK_NUM_BUILTINS,DUK_NUM_ALL_BUILTINS] + * will exist on the value stack during init but won't be placed + * into thr->builtins[]. These are objects referenced in some way + * from thr->builtins[] roots but which don't need to be indexed by + * Duktape through thr->builtins[] (e.g. user custom objects). + * + * Internal prototypes will be incorrect (NULL) at this stage. + */ + + duk_require_stack(thr, DUK_NUM_ALL_BUILTINS); + + DUK_DD(DUK_DDPRINT("create empty built-ins")); + DUK_ASSERT_TOP(thr, 0); + for (i = 0; i < DUK_NUM_ALL_BUILTINS; i++) { + duk_small_uint_t class_num; + duk_small_int_t len = -1; /* must be signed */ + + class_num = (duk_small_uint_t) duk_bd_decode_varuint(bd); + len = (duk_small_int_t) duk_bd_decode_flagged_signed(bd, DUK__LENGTH_PROP_BITS, (duk_int32_t) -1 /*def_value*/); + + if (class_num == DUK_HOBJECT_CLASS_FUNCTION) { + duk_small_uint_t natidx; + duk_small_int_t c_nargs; /* must hold DUK_VARARGS */ + duk_c_function c_func; + duk_int16_t magic; + + DUK_DDD(DUK_DDDPRINT("len=%ld", (long) len)); + DUK_ASSERT(len >= 0); + + natidx = (duk_small_uint_t) duk_bd_decode_varuint(bd); + DUK_ASSERT(natidx != 0); + c_func = duk_bi_native_functions[natidx]; + DUK_ASSERT(c_func != NULL); + + c_nargs = (duk_small_int_t) duk_bd_decode_flagged_signed(bd, DUK__NARGS_BITS, len /*def_value*/); + if (c_nargs == DUK__NARGS_VARARGS_MARKER) { + c_nargs = DUK_VARARGS; + } + + /* XXX: set magic directly here? (it could share the c_nargs arg) */ + (void) duk_push_c_function_builtin(thr, c_func, c_nargs); + h = duk_known_hobject(thr, -1); + + /* Currently all built-in native functions are strict. + * duk_push_c_function() now sets strict flag, so + * assert for it. + */ + DUK_ASSERT(DUK_HOBJECT_HAS_STRICT(h)); + + /* XXX: function properties */ + + duk__push_stridx_or_string(thr, bd); +#if defined(DUK_USE_FUNC_NAME_PROPERTY) + duk_xdef_prop_stridx_short(thr, + -2, + DUK_STRIDX_NAME, + DUK_PROPDESC_FLAGS_C); +#else + duk_pop(thr); /* Not very ideal but good enough for now. */ +#endif + + /* Almost all global level Function objects are constructable + * but not all: Function.prototype is a non-constructable, + * callable Function. + */ + if (duk_bd_decode_flag(bd)) { + DUK_ASSERT(DUK_HOBJECT_HAS_CONSTRUCTABLE(h)); + } else { + DUK_HOBJECT_CLEAR_CONSTRUCTABLE(h); + } + + /* Cast converts magic to 16-bit signed value */ + magic = (duk_int16_t) duk_bd_decode_varuint(bd); + ((duk_hnatfunc *) h)->magic = magic; + } else if (class_num == DUK_HOBJECT_CLASS_ARRAY) { + duk_push_array(thr); + } else if (class_num == DUK_HOBJECT_CLASS_OBJENV) { + duk_hobjenv *env; + duk_hobject *global; + + DUK_ASSERT(i == DUK_BIDX_GLOBAL_ENV); + DUK_ASSERT(DUK_BIDX_GLOBAL_ENV > DUK_BIDX_GLOBAL); + + env = duk_hobjenv_alloc(thr, + DUK_HOBJECT_FLAG_EXTENSIBLE | + DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_OBJENV)); + DUK_ASSERT(env->target == NULL); + duk_push_hobject(thr, (duk_hobject *) env); + + global = duk_known_hobject(thr, DUK_BIDX_GLOBAL); + DUK_ASSERT(global != NULL); + env->target = global; + DUK_HOBJECT_INCREF(thr, global); + DUK_ASSERT(env->has_this == 0); + + DUK_HOBJENV_ASSERT_VALID(env); + } else { + DUK_ASSERT(class_num != DUK_HOBJECT_CLASS_DECENV); + + (void) duk_push_object_helper(thr, + DUK_HOBJECT_FLAG_FASTREFS | + DUK_HOBJECT_FLAG_EXTENSIBLE, + -1); /* no prototype or class yet */ + + } + + h = duk_known_hobject(thr, -1); + DUK_HOBJECT_SET_CLASS_NUMBER(h, class_num); + + if (i < DUK_NUM_BUILTINS) { + thr->builtins[i] = h; + DUK_HOBJECT_INCREF(thr, &h->hdr); + } + + if (len >= 0) { + /* In ES2015+ built-in function object .length property + * has property attributes C (configurable only): + * http://www.ecma-international.org/ecma-262/7.0/#sec-ecmascript-standard-built-in-objects + * + * Array.prototype remains an Array instance in ES2015+ + * and its length has attributes W (writable only). + * Because .length is now virtual for duk_harray, it is + * not encoded explicitly in init data. + */ + + DUK_ASSERT(class_num != DUK_HOBJECT_CLASS_ARRAY); /* .length is virtual */ + duk_push_int(thr, len); + duk_xdef_prop_stridx_short(thr, + -2, + DUK_STRIDX_LENGTH, + DUK_PROPDESC_FLAGS_C); + } + + /* enable exotic behaviors last */ + + if (class_num == DUK_HOBJECT_CLASS_ARRAY) { + DUK_ASSERT(DUK_HOBJECT_HAS_EXOTIC_ARRAY(h)); /* set by duk_push_array() */ + } + if (class_num == DUK_HOBJECT_CLASS_STRING) { + DUK_HOBJECT_SET_EXOTIC_STRINGOBJ(h); + } + + /* some assertions */ + + DUK_ASSERT(DUK_HOBJECT_HAS_EXTENSIBLE(h)); + /* DUK_HOBJECT_FLAG_CONSTRUCTABLE varies */ + DUK_ASSERT(!DUK_HOBJECT_HAS_BOUNDFUNC(h)); + DUK_ASSERT(!DUK_HOBJECT_HAS_COMPFUNC(h)); + /* DUK_HOBJECT_FLAG_NATFUNC varies */ + DUK_ASSERT(!DUK_HOBJECT_IS_THREAD(h)); + DUK_ASSERT(!DUK_HOBJECT_IS_PROXY(h)); + DUK_ASSERT(!DUK_HOBJECT_HAS_ARRAY_PART(h) || class_num == DUK_HOBJECT_CLASS_ARRAY); + /* DUK_HOBJECT_FLAG_STRICT varies */ + DUK_ASSERT(!DUK_HOBJECT_HAS_NATFUNC(h) || /* all native functions have NEWENV */ + DUK_HOBJECT_HAS_NEWENV(h)); + DUK_ASSERT(!DUK_HOBJECT_HAS_NAMEBINDING(h)); + DUK_ASSERT(!DUK_HOBJECT_HAS_CREATEARGS(h)); + /* DUK_HOBJECT_FLAG_EXOTIC_ARRAY varies */ + /* DUK_HOBJECT_FLAG_EXOTIC_STRINGOBJ varies */ + DUK_ASSERT(!DUK_HOBJECT_HAS_EXOTIC_ARGUMENTS(h)); + + DUK_DDD(DUK_DDDPRINT("created built-in %ld, class=%ld, length=%ld", (long) i, (long) class_num, (long) len)); + } + + /* + * Then decode the builtins init data (see genbuiltins.py) to + * init objects. Internal prototypes are set at this stage, + * with thr->builtins[] populated. + */ + + DUK_DD(DUK_DDPRINT("initialize built-in object properties")); + for (i = 0; i < DUK_NUM_ALL_BUILTINS; i++) { + duk_small_uint_t t; + duk_small_uint_t num; + + DUK_DDD(DUK_DDDPRINT("initializing built-in object at index %ld", (long) i)); + h = duk_known_hobject(thr, (duk_idx_t) i); + + t = (duk_small_uint_t) duk_bd_decode_varuint(bd); + if (t > 0) { + t--; + DUK_DDD(DUK_DDDPRINT("set internal prototype: built-in %ld", (long) t)); + DUK_HOBJECT_SET_PROTOTYPE_UPDREF(thr, h, duk_known_hobject(thr, (duk_idx_t) t)); + } else if (DUK_HOBJECT_IS_NATFUNC(h)) { + /* Standard native built-ins cannot inherit from + * %NativeFunctionPrototype%, they are required to + * inherit from Function.prototype directly. + */ + DUK_ASSERT(thr->builtins[DUK_BIDX_FUNCTION_PROTOTYPE] != NULL); + DUK_HOBJECT_SET_PROTOTYPE_UPDREF(thr, h, thr->builtins[DUK_BIDX_FUNCTION_PROTOTYPE]); + } + + t = (duk_small_uint_t) duk_bd_decode_varuint(bd); + if (t > 0) { + /* 'prototype' property for all built-in objects (which have it) has attributes: + * [[Writable]] = false, + * [[Enumerable]] = false, + * [[Configurable]] = false + */ + t--; + DUK_DDD(DUK_DDDPRINT("set external prototype: built-in %ld", (long) t)); + duk_dup(thr, (duk_idx_t) t); + duk_xdef_prop_stridx(thr, (duk_idx_t) i, DUK_STRIDX_PROTOTYPE, DUK_PROPDESC_FLAGS_NONE); + } + + t = (duk_small_uint_t) duk_bd_decode_varuint(bd); + if (t > 0) { + /* 'constructor' property for all built-in objects (which have it) has attributes: + * [[Writable]] = true, + * [[Enumerable]] = false, + * [[Configurable]] = true + */ + t--; + DUK_DDD(DUK_DDDPRINT("set external constructor: built-in %ld", (long) t)); + duk_dup(thr, (duk_idx_t) t); + duk_xdef_prop_stridx(thr, (duk_idx_t) i, DUK_STRIDX_CONSTRUCTOR, DUK_PROPDESC_FLAGS_WC); + } + + /* normal valued properties */ + num = (duk_small_uint_t) duk_bd_decode_varuint(bd); + DUK_DDD(DUK_DDDPRINT("built-in object %ld, %ld normal valued properties", (long) i, (long) num)); + for (j = 0; j < num; j++) { + duk_small_uint_t defprop_flags; + + duk__push_stridx_or_string(thr, bd); + + /* + * Property attribute defaults are defined in E5 Section 15 (first + * few pages); there is a default for all properties and a special + * default for 'length' properties. Variation from the defaults is + * signaled using a single flag bit in the bitstream. + */ + + defprop_flags = (duk_small_uint_t) duk_bd_decode_flagged(bd, + DUK__PROP_FLAGS_BITS, + (duk_uint32_t) DUK_PROPDESC_FLAGS_WC); + defprop_flags |= DUK_DEFPROP_FORCE | + DUK_DEFPROP_HAVE_VALUE | + DUK_DEFPROP_HAVE_WRITABLE | + DUK_DEFPROP_HAVE_ENUMERABLE | + DUK_DEFPROP_HAVE_CONFIGURABLE; /* Defaults for data properties. */ + + /* The writable, enumerable, configurable flags in prop_flags + * match both duk_def_prop() and internal property flags. + */ + DUK_ASSERT(DUK_PROPDESC_FLAG_WRITABLE == DUK_DEFPROP_WRITABLE); + DUK_ASSERT(DUK_PROPDESC_FLAG_ENUMERABLE == DUK_DEFPROP_ENUMERABLE); + DUK_ASSERT(DUK_PROPDESC_FLAG_CONFIGURABLE == DUK_DEFPROP_CONFIGURABLE); + + t = (duk_small_uint_t) duk_bd_decode(bd, DUK__PROP_TYPE_BITS); + + DUK_DDD(DUK_DDDPRINT("built-in %ld, normal-valued property %ld, key %!T, flags 0x%02lx, type %ld", + (long) i, (long) j, duk_get_tval(thr, -1), (unsigned long) defprop_flags, (long) t)); + + switch (t) { + case DUK__PROP_TYPE_DOUBLE: { + duk__push_double(thr, bd); + break; + } + case DUK__PROP_TYPE_STRING: { + duk__push_string(thr, bd); + break; + } + case DUK__PROP_TYPE_STRIDX: { + duk__push_stridx(thr, bd); + break; + } + case DUK__PROP_TYPE_BUILTIN: { + duk_small_uint_t bidx; + + bidx = (duk_small_uint_t) duk_bd_decode_varuint(bd); + duk_dup(thr, (duk_idx_t) bidx); + break; + } + case DUK__PROP_TYPE_UNDEFINED: { + duk_push_undefined(thr); + break; + } + case DUK__PROP_TYPE_BOOLEAN_TRUE: { + duk_push_true(thr); + break; + } + case DUK__PROP_TYPE_BOOLEAN_FALSE: { + duk_push_false(thr); + break; + } + case DUK__PROP_TYPE_ACCESSOR: { + duk_small_uint_t natidx_getter = (duk_small_uint_t) duk_bd_decode_varuint(bd); + duk_small_uint_t natidx_setter = (duk_small_uint_t) duk_bd_decode_varuint(bd); + duk_small_uint_t accessor_magic = (duk_small_uint_t) duk_bd_decode_varuint(bd); + duk_c_function c_func_getter; + duk_c_function c_func_setter; + + DUK_DDD(DUK_DDDPRINT("built-in accessor property: objidx=%ld, key=%!T, getteridx=%ld, setteridx=%ld, flags=0x%04lx", + (long) i, duk_get_tval(thr, -1), (long) natidx_getter, (long) natidx_setter, (unsigned long) defprop_flags)); + + c_func_getter = duk_bi_native_functions[natidx_getter]; + if (c_func_getter != NULL) { + duk_push_c_function_builtin_noconstruct(thr, c_func_getter, 0); /* always 0 args */ + duk_set_magic(thr, -1, (duk_int_t) accessor_magic); + defprop_flags |= DUK_DEFPROP_HAVE_GETTER; + } + c_func_setter = duk_bi_native_functions[natidx_setter]; + if (c_func_setter != NULL) { + duk_push_c_function_builtin_noconstruct(thr, c_func_setter, 1); /* always 1 arg */ + duk_set_magic(thr, -1, (duk_int_t) accessor_magic); + defprop_flags |= DUK_DEFPROP_HAVE_SETTER; + } + + /* Writable flag doesn't make sense for an accessor. */ + DUK_ASSERT((defprop_flags & DUK_PROPDESC_FLAG_WRITABLE) == 0); /* genbuiltins.py ensures */ + + defprop_flags &= ~(DUK_DEFPROP_HAVE_VALUE | DUK_DEFPROP_HAVE_WRITABLE); + defprop_flags |= DUK_DEFPROP_HAVE_ENUMERABLE | DUK_DEFPROP_HAVE_CONFIGURABLE; + break; + } + default: { + /* exhaustive */ + DUK_UNREACHABLE(); + } + } + + duk_def_prop(thr, (duk_idx_t) i, defprop_flags); + DUK_ASSERT_TOP(thr, DUK_NUM_ALL_BUILTINS); + } + + /* native function properties */ + num = (duk_small_uint_t) duk_bd_decode_varuint(bd); + DUK_DDD(DUK_DDDPRINT("built-in object %ld, %ld function valued properties", (long) i, (long) num)); + for (j = 0; j < num; j++) { + duk_hstring *h_key; + duk_small_uint_t natidx; + duk_int_t c_nargs; /* must hold DUK_VARARGS */ + duk_small_uint_t c_length; + duk_int16_t magic; + duk_c_function c_func; + duk_hnatfunc *h_func; +#if defined(DUK_USE_LIGHTFUNC_BUILTINS) + duk_small_int_t lightfunc_eligible; +#endif + duk_small_uint_t defprop_flags; + + duk__push_stridx_or_string(thr, bd); + h_key = duk_known_hstring(thr, -1); + DUK_UNREF(h_key); + natidx = (duk_small_uint_t) duk_bd_decode_varuint(bd); + + c_length = (duk_small_uint_t) duk_bd_decode(bd, DUK__LENGTH_PROP_BITS); + c_nargs = (duk_int_t) duk_bd_decode_flagged(bd, DUK__NARGS_BITS, (duk_uint32_t) c_length /*def_value*/); + if (c_nargs == DUK__NARGS_VARARGS_MARKER) { + c_nargs = DUK_VARARGS; + } + + c_func = duk_bi_native_functions[natidx]; + + DUK_DDD(DUK_DDDPRINT("built-in %ld, function-valued property %ld, key %!O, natidx %ld, length %ld, nargs %ld", + (long) i, (long) j, (duk_heaphdr *) h_key, (long) natidx, (long) c_length, + (c_nargs == DUK_VARARGS ? (long) -1 : (long) c_nargs))); + + /* Cast converts magic to 16-bit signed value */ + magic = (duk_int16_t) duk_bd_decode_varuint(bd); + +#if defined(DUK_USE_LIGHTFUNC_BUILTINS) + lightfunc_eligible = + ((c_nargs >= DUK_LFUNC_NARGS_MIN && c_nargs <= DUK_LFUNC_NARGS_MAX) || (c_nargs == DUK_VARARGS)) && + (c_length <= DUK_LFUNC_LENGTH_MAX) && + (magic >= DUK_LFUNC_MAGIC_MIN && magic <= DUK_LFUNC_MAGIC_MAX); + + /* These functions have trouble working as lightfuncs. + * Some of them have specific asserts and some may have + * additional properties (e.g. 'require.id' may be written). + */ + if (c_func == duk_bi_global_object_eval) { + lightfunc_eligible = 0; + } +#if defined(DUK_USE_COROUTINE_SUPPORT) + if (c_func == duk_bi_thread_yield || + c_func == duk_bi_thread_resume) { + lightfunc_eligible = 0; + } +#endif + if (c_func == duk_bi_function_prototype_call || + c_func == duk_bi_function_prototype_apply || + c_func == duk_bi_reflect_apply || + c_func == duk_bi_reflect_construct) { + lightfunc_eligible = 0; + } + + if (lightfunc_eligible) { + duk_tval tv_lfunc; + duk_small_uint_t lf_nargs = (duk_small_uint_t) (c_nargs == DUK_VARARGS ? DUK_LFUNC_NARGS_VARARGS : c_nargs); + duk_small_uint_t lf_flags = DUK_LFUNC_FLAGS_PACK(magic, c_length, lf_nargs); + DUK_TVAL_SET_LIGHTFUNC(&tv_lfunc, c_func, lf_flags); + duk_push_tval(thr, &tv_lfunc); + DUK_D(DUK_DPRINT("built-in function eligible as light function: i=%d, j=%d c_length=%ld, c_nargs=%ld, magic=%ld -> %!iT", (int) i, (int) j, (long) c_length, (long) c_nargs, (long) magic, duk_get_tval(thr, -1))); + goto lightfunc_skip; + } + + DUK_D(DUK_DPRINT("built-in function NOT ELIGIBLE as light function: i=%d, j=%d c_length=%ld, c_nargs=%ld, magic=%ld", (int) i, (int) j, (long) c_length, (long) c_nargs, (long) magic)); +#endif /* DUK_USE_LIGHTFUNC_BUILTINS */ + + /* [ (builtin objects) name ] */ + + duk_push_c_function_builtin_noconstruct(thr, c_func, c_nargs); + h_func = duk_known_hnatfunc(thr, -1); + DUK_UNREF(h_func); + + /* XXX: add into init data? */ + + /* Special call handling, not described in init data. */ + if (c_func == duk_bi_global_object_eval || + c_func == duk_bi_function_prototype_call || + c_func == duk_bi_function_prototype_apply || + c_func == duk_bi_reflect_apply || + c_func == duk_bi_reflect_construct) { + DUK_HOBJECT_SET_SPECIAL_CALL((duk_hobject *) h_func); + } + + /* Currently all built-in native functions are strict. + * This doesn't matter for many functions, but e.g. + * String.prototype.charAt (and other string functions) + * rely on being strict so that their 'this' binding is + * not automatically coerced. + */ + DUK_HOBJECT_SET_STRICT((duk_hobject *) h_func); + + /* No built-in functions are constructable except the top + * level ones (Number, etc). + */ + DUK_ASSERT(!DUK_HOBJECT_HAS_CONSTRUCTABLE((duk_hobject *) h_func)); + + /* XXX: any way to avoid decoding magic bit; there are quite + * many function properties and relatively few with magic values. + */ + h_func->magic = magic; + + /* [ (builtin objects) name func ] */ + + duk_push_uint(thr, c_length); + duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_LENGTH, DUK_PROPDESC_FLAGS_C); + + duk_dup_m2(thr); + duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_NAME, DUK_PROPDESC_FLAGS_C); + + /* XXX: other properties of function instances; 'arguments', 'caller'. */ + + DUK_DD(DUK_DDPRINT("built-in object %ld, function property %ld -> %!T", + (long) i, (long) j, (duk_tval *) duk_get_tval(thr, -1))); + + /* [ (builtin objects) name func ] */ + + /* + * The default property attributes are correct for all + * function valued properties of built-in objects now. + */ + +#if defined(DUK_USE_LIGHTFUNC_BUILTINS) + lightfunc_skip: +#endif + + defprop_flags = (duk_small_uint_t) duk_bd_decode_flagged(bd, + DUK__PROP_FLAGS_BITS, + (duk_uint32_t) DUK_PROPDESC_FLAGS_WC); + defprop_flags |= DUK_DEFPROP_FORCE | + DUK_DEFPROP_HAVE_VALUE | + DUK_DEFPROP_HAVE_WRITABLE | + DUK_DEFPROP_HAVE_ENUMERABLE | + DUK_DEFPROP_HAVE_CONFIGURABLE; + DUK_ASSERT(DUK_PROPDESC_FLAG_WRITABLE == DUK_DEFPROP_WRITABLE); + DUK_ASSERT(DUK_PROPDESC_FLAG_ENUMERABLE == DUK_DEFPROP_ENUMERABLE); + DUK_ASSERT(DUK_PROPDESC_FLAG_CONFIGURABLE == DUK_DEFPROP_CONFIGURABLE); + + duk_def_prop(thr, (duk_idx_t) i, defprop_flags); + + /* [ (builtin objects) ] */ + } + } + + /* + * Special post-tweaks, for cases not covered by the init data format. + * + * - Set Date.prototype.toGMTString to Date.prototype.toUTCString. + * toGMTString is required to have the same Function object as + * toUTCString in E5 Section B.2.6. Note that while Smjs respects + * this, V8 does not (the Function objects are distinct). + * + * - Make DoubleError non-extensible. + * + * - Add info about most important effective compile options to Duktape. + * + * - Possibly remove some properties (values or methods) which are not + * desirable with current feature options but are not currently + * conditional in init data. + */ + +#if defined(DUK_USE_DATE_BUILTIN) + duk_get_prop_stridx_short(thr, DUK_BIDX_DATE_PROTOTYPE, DUK_STRIDX_TO_UTC_STRING); + duk_xdef_prop_stridx_short(thr, DUK_BIDX_DATE_PROTOTYPE, DUK_STRIDX_TO_GMT_STRING, DUK_PROPDESC_FLAGS_WC); +#endif + + h = duk_known_hobject(thr, DUK_BIDX_DOUBLE_ERROR); + DUK_HOBJECT_CLEAR_EXTENSIBLE(h); + +#if !defined(DUK_USE_ES6_OBJECT_PROTO_PROPERTY) + DUK_DD(DUK_DDPRINT("delete Object.prototype.__proto__ built-in which is not enabled in features")); + (void) duk_hobject_delprop_raw(thr, thr->builtins[DUK_BIDX_OBJECT_PROTOTYPE], DUK_HTHREAD_STRING___PROTO__(thr), DUK_DELPROP_FLAG_THROW); +#endif + +#if !defined(DUK_USE_ES6_OBJECT_SETPROTOTYPEOF) + DUK_DD(DUK_DDPRINT("delete Object.setPrototypeOf built-in which is not enabled in features")); + (void) duk_hobject_delprop_raw(thr, thr->builtins[DUK_BIDX_OBJECT_CONSTRUCTOR], DUK_HTHREAD_STRING_SET_PROTOTYPE_OF(thr), DUK_DELPROP_FLAG_THROW); +#endif + + /* XXX: relocate */ + duk_push_string(thr, + /* Endianness indicator */ +#if defined(DUK_USE_INTEGER_LE) + "l" +#elif defined(DUK_USE_INTEGER_BE) + "b" +#elif defined(DUK_USE_INTEGER_ME) /* integer mixed endian not really used now */ + "m" +#else + "?" +#endif +#if defined(DUK_USE_DOUBLE_LE) + "l" +#elif defined(DUK_USE_DOUBLE_BE) + "b" +#elif defined(DUK_USE_DOUBLE_ME) + "m" +#else + "?" +#endif + " " + /* Packed or unpacked tval */ +#if defined(DUK_USE_PACKED_TVAL) + "p" +#else + "u" +#endif +#if defined(DUK_USE_FASTINT) + "f" +#endif + " " + /* Low memory/performance options */ +#if defined(DUK_USE_STRTAB_PTRCOMP) + "s" +#endif +#if !defined(DUK_USE_HEAPPTR16) && !defined(DUK_DATAPTR16) && !defined(DUK_FUNCPTR16) + "n" +#endif +#if defined(DUK_USE_HEAPPTR16) + "h" +#endif +#if defined(DUK_USE_DATAPTR16) + "d" +#endif +#if defined(DUK_USE_FUNCPTR16) + "f" +#endif +#if defined(DUK_USE_REFCOUNT16) + "R" +#endif +#if defined(DUK_USE_STRHASH16) + "H" +#endif +#if defined(DUK_USE_STRLEN16) + "S" +#endif +#if defined(DUK_USE_BUFLEN16) + "B" +#endif +#if defined(DUK_USE_OBJSIZES16) + "O" +#endif +#if defined(DUK_USE_LIGHTFUNC_BUILTINS) + "L" +#endif +#if defined(DUK_USE_ROM_STRINGS) || defined(DUK_USE_ROM_OBJECTS) + /* XXX: This won't be shown in practice now + * because this code is not run when builtins + * are in ROM. + */ + "Z" +#endif +#if defined(DUK_USE_LITCACHE_SIZE) + "l" +#endif + " " + /* Object property allocation layout */ +#if defined(DUK_USE_HOBJECT_LAYOUT_1) + "p1" +#elif defined(DUK_USE_HOBJECT_LAYOUT_2) + "p2" +#elif defined(DUK_USE_HOBJECT_LAYOUT_3) + "p3" +#else + "p?" +#endif + " " + /* Alignment guarantee */ +#if (DUK_USE_ALIGN_BY == 4) + "a4" +#elif (DUK_USE_ALIGN_BY == 8) + "a8" +#elif (DUK_USE_ALIGN_BY == 1) + "a1" +#else +#error invalid DUK_USE_ALIGN_BY +#endif + " " + /* Architecture, OS, and compiler strings */ + DUK_USE_ARCH_STRING + " " + DUK_USE_OS_STRING + " " + DUK_USE_COMPILER_STRING); + duk_xdef_prop_stridx_short(thr, DUK_BIDX_DUKTAPE, DUK_STRIDX_ENV, DUK_PROPDESC_FLAGS_WC); + + /* + * Since built-ins are not often extended, compact them. + */ + + DUK_DD(DUK_DDPRINT("compact built-ins")); + for (i = 0; i < DUK_NUM_ALL_BUILTINS; i++) { + duk_hobject_compact_props(thr, duk_known_hobject(thr, (duk_idx_t) i)); + } + + DUK_D(DUK_DPRINT("INITBUILTINS END")); + +#if defined(DUK_USE_DEBUG_LEVEL) && (DUK_USE_DEBUG_LEVEL >= 1) + for (i = 0; i < DUK_NUM_ALL_BUILTINS; i++) { + DUK_DD(DUK_DDPRINT("built-in object %ld after initialization and compacting: %!@iO", + (long) i, (duk_heaphdr *) duk_require_hobject(thr, (duk_idx_t) i))); + } +#endif + + /* + * Pop built-ins from stack: they are now INCREF'd and + * reachable from the builtins[] array or indirectly + * through builtins[]. + */ + + duk_set_top(thr, 0); + DUK_ASSERT_TOP(thr, 0); +} +#endif /* DUK_USE_ROM_OBJECTS */ + +DUK_INTERNAL void duk_hthread_copy_builtin_objects(duk_hthread *thr_from, duk_hthread *thr_to) { + duk_small_uint_t i; + + for (i = 0; i < DUK_NUM_BUILTINS; i++) { + thr_to->builtins[i] = thr_from->builtins[i]; + DUK_HOBJECT_INCREF_ALLOWNULL(thr_to, thr_to->builtins[i]); /* side effect free */ + } +} + +/* automatic undefs */ +#undef DUK__LENGTH_PROP_BITS +#undef DUK__NARGS_BITS +#undef DUK__NARGS_VARARGS_MARKER +#undef DUK__PROP_FLAGS_BITS +#undef DUK__PROP_TYPE_ACCESSOR +#undef DUK__PROP_TYPE_BITS +#undef DUK__PROP_TYPE_BOOLEAN_FALSE +#undef DUK__PROP_TYPE_BOOLEAN_TRUE +#undef DUK__PROP_TYPE_BUILTIN +#undef DUK__PROP_TYPE_DOUBLE +#undef DUK__PROP_TYPE_STRIDX +#undef DUK__PROP_TYPE_STRING +#undef DUK__PROP_TYPE_UNDEFINED +#line 1 "duk_hthread_misc.c" +/* + * Thread support. + */ + +/* #include duk_internal.h -> already included */ + +DUK_INTERNAL void duk_hthread_terminate(duk_hthread *thr) { + DUK_ASSERT(thr != NULL); + + while (thr->callstack_curr != NULL) { + duk_hthread_activation_unwind_norz(thr); + } + + thr->valstack_bottom = thr->valstack; + duk_set_top(thr, 0); /* unwinds valstack, updating refcounts */ + + thr->state = DUK_HTHREAD_STATE_TERMINATED; + + /* Here we could remove references to built-ins, but it may not be + * worth the effort because built-ins are quite likely to be shared + * with another (unterminated) thread, and terminated threads are also + * usually garbage collected quite quickly. + * + * We could also shrink the value stack here, but that also may not + * be worth the effort for the same reason. + */ + + DUK_REFZERO_CHECK_SLOW(thr); +} + +#if defined(DUK_USE_DEBUGGER_SUPPORT) +DUK_INTERNAL duk_uint_fast32_t duk_hthread_get_act_curr_pc(duk_hthread *thr, duk_activation *act) { + duk_instr_t *bcode; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(act != NULL); + DUK_UNREF(thr); + + /* XXX: store 'bcode' pointer to activation for faster lookup? */ + if (act->func && DUK_HOBJECT_IS_COMPFUNC(act->func)) { + bcode = DUK_HCOMPFUNC_GET_CODE_BASE(thr->heap, (duk_hcompfunc *) (act->func)); + return (duk_uint_fast32_t) (act->curr_pc - bcode); + } + return 0; +} +#endif /* DUK_USE_DEBUGGER_SUPPORT */ + +DUK_INTERNAL duk_uint_fast32_t duk_hthread_get_act_prev_pc(duk_hthread *thr, duk_activation *act) { + duk_instr_t *bcode; + duk_uint_fast32_t ret; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(act != NULL); + DUK_UNREF(thr); + + if (act->func && DUK_HOBJECT_IS_COMPFUNC(act->func)) { + bcode = DUK_HCOMPFUNC_GET_CODE_BASE(thr->heap, (duk_hcompfunc *) (act->func)); + ret = (duk_uint_fast32_t) (act->curr_pc - bcode); + if (ret > 0) { + ret--; + } + return ret; + } + return 0; +} + +/* Write bytecode executor's curr_pc back to topmost activation (if any). */ +DUK_INTERNAL void duk_hthread_sync_currpc(duk_hthread *thr) { + duk_activation *act; + + DUK_ASSERT(thr != NULL); + + if (thr->ptr_curr_pc != NULL) { + /* ptr_curr_pc != NULL only when bytecode executor is active. */ + DUK_ASSERT(thr->callstack_top > 0); + DUK_ASSERT(thr->callstack_curr != NULL); + act = thr->callstack_curr; + DUK_ASSERT(act != NULL); + act->curr_pc = *thr->ptr_curr_pc; + } +} + +DUK_INTERNAL void duk_hthread_sync_and_null_currpc(duk_hthread *thr) { + duk_activation *act; + + DUK_ASSERT(thr != NULL); + + if (thr->ptr_curr_pc != NULL) { + /* ptr_curr_pc != NULL only when bytecode executor is active. */ + DUK_ASSERT(thr->callstack_top > 0); + DUK_ASSERT(thr->callstack_curr != NULL); + act = thr->callstack_curr; + DUK_ASSERT(act != NULL); + act->curr_pc = *thr->ptr_curr_pc; + thr->ptr_curr_pc = NULL; + } +} +#line 1 "duk_hthread_stacks.c" +/* + * Thread stack (mainly call stack) primitives: allocation of activations, + * unwinding catchers and activations, etc. + * + * Value stack handling is a part of the API implementation. + */ + +/* #include duk_internal.h -> already included */ + +/* Unwind the topmost catcher of the current activation (caller must check that + * both exist) without side effects. + */ +DUK_INTERNAL void duk_hthread_catcher_unwind_norz(duk_hthread *thr, duk_activation *act) { + duk_catcher *cat; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(act != NULL); + DUK_ASSERT(act->cat != NULL); /* caller must check */ + cat = act->cat; + DUK_ASSERT(cat != NULL); + + DUK_DDD(DUK_DDDPRINT("unwinding catch stack entry %p (lexenv check is done)", (void *) cat)); + + if (DUK_CAT_HAS_LEXENV_ACTIVE(cat)) { + duk_hobject *env; + + env = act->lex_env; /* current lex_env of the activation (created for catcher) */ + DUK_ASSERT(env != NULL); /* must be, since env was created when catcher was created */ + act->lex_env = DUK_HOBJECT_GET_PROTOTYPE(thr->heap, env); /* prototype is lex_env before catcher created */ + DUK_HOBJECT_INCREF(thr, act->lex_env); + DUK_HOBJECT_DECREF_NORZ(thr, env); + + /* There is no need to decref anything else than 'env': if 'env' + * becomes unreachable, refzero will handle decref'ing its prototype. + */ + } + + act->cat = cat->parent; + duk_hthread_catcher_free(thr, cat); +} + +/* Same as above, but caller is certain no catcher-related lexenv may exist. */ +DUK_INTERNAL void duk_hthread_catcher_unwind_nolexenv_norz(duk_hthread *thr, duk_activation *act) { + duk_catcher *cat; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(act != NULL); + DUK_ASSERT(act->cat != NULL); /* caller must check */ + cat = act->cat; + DUK_ASSERT(cat != NULL); + + DUK_DDD(DUK_DDDPRINT("unwinding catch stack entry %p (lexenv check is not done)", (void *) cat)); + + DUK_ASSERT(!DUK_CAT_HAS_LEXENV_ACTIVE(cat)); + + act->cat = cat->parent; + duk_hthread_catcher_free(thr, cat); +} + +DUK_LOCAL +#if defined(DUK_USE_CACHE_CATCHER) +DUK_NOINLINE +#endif +duk_catcher *duk__hthread_catcher_alloc_slow(duk_hthread *thr) { + duk_catcher *cat; + + cat = (duk_catcher *) DUK_ALLOC_CHECKED(thr, sizeof(duk_catcher)); + DUK_ASSERT(cat != NULL); + return cat; +} + +#if defined(DUK_USE_CACHE_CATCHER) +DUK_INTERNAL DUK_INLINE duk_catcher *duk_hthread_catcher_alloc(duk_hthread *thr) { + duk_catcher *cat; + + DUK_ASSERT(thr != NULL); + + cat = thr->heap->catcher_free; + if (DUK_LIKELY(cat != NULL)) { + thr->heap->catcher_free = cat->parent; + return cat; + } + + return duk__hthread_catcher_alloc_slow(thr); +} +#else /* DUK_USE_CACHE_CATCHER */ +DUK_INTERNAL duk_catcher *duk_hthread_catcher_alloc(duk_hthread *thr) { + return duk__hthread_catcher_alloc_slow(thr); +} +#endif /* DUK_USE_CACHE_CATCHER */ + +DUK_INTERNAL void duk_hthread_catcher_free(duk_hthread *thr, duk_catcher *cat) { + DUK_ASSERT(thr != NULL); + DUK_ASSERT(cat != NULL); + +#if defined(DUK_USE_CACHE_CATCHER) + /* Unconditional caching for now; freed in mark-and-sweep. */ + cat->parent = thr->heap->catcher_free; + thr->heap->catcher_free = cat; +#else + DUK_FREE_CHECKED(thr, (void *) cat); +#endif +} + +DUK_LOCAL +#if defined(DUK_USE_CACHE_ACTIVATION) +DUK_NOINLINE +#endif +duk_activation *duk__hthread_activation_alloc_slow(duk_hthread *thr) { + duk_activation *act; + + act = (duk_activation *) DUK_ALLOC_CHECKED(thr, sizeof(duk_activation)); + DUK_ASSERT(act != NULL); + return act; +} + +#if defined(DUK_USE_CACHE_ACTIVATION) +DUK_INTERNAL DUK_INLINE duk_activation *duk_hthread_activation_alloc(duk_hthread *thr) { + duk_activation *act; + + DUK_ASSERT(thr != NULL); + + act = thr->heap->activation_free; + if (DUK_LIKELY(act != NULL)) { + thr->heap->activation_free = act->parent; + return act; + } + + return duk__hthread_activation_alloc_slow(thr); +} +#else /* DUK_USE_CACHE_ACTIVATION */ +DUK_INTERNAL duk_activation *duk_hthread_activation_alloc(duk_hthread *thr) { + return duk__hthread_activation_alloc_slow(thr); +} +#endif /* DUK_USE_CACHE_ACTIVATION */ + + +DUK_INTERNAL void duk_hthread_activation_free(duk_hthread *thr, duk_activation *act) { + DUK_ASSERT(thr != NULL); + DUK_ASSERT(act != NULL); + +#if defined(DUK_USE_CACHE_ACTIVATION) + /* Unconditional caching for now; freed in mark-and-sweep. */ + act->parent = thr->heap->activation_free; + thr->heap->activation_free = act; +#else + DUK_FREE_CHECKED(thr, (void *) act); +#endif +} + +/* Internal helper: process the unwind for the topmost activation of a thread, + * but leave the duk_activation in place for possible tailcall reuse. + */ +DUK_LOCAL void duk__activation_unwind_nofree_norz(duk_hthread *thr) { +#if defined(DUK_USE_DEBUGGER_SUPPORT) + duk_heap *heap; +#endif + duk_activation *act; + duk_hobject *func; + duk_hobject *tmp; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(thr->callstack_curr != NULL); /* caller must check */ + DUK_ASSERT(thr->callstack_top > 0); + act = thr->callstack_curr; + DUK_ASSERT(act != NULL); + /* With lightfuncs, act 'func' may be NULL. */ + + /* With duk_activation records allocated separately, 'act' is a stable + * pointer and not affected by side effects. + */ + +#if defined(DUK_USE_NONSTD_FUNC_CALLER_PROPERTY) + /* + * Restore 'caller' property for non-strict callee functions. + */ + + func = DUK_ACT_GET_FUNC(act); + if (func != NULL && !DUK_HOBJECT_HAS_STRICT(func)) { + duk_tval *tv_caller; + duk_tval tv_tmp; + duk_hobject *h_tmp; + + tv_caller = duk_hobject_find_entry_tval_ptr_stridx(thr->heap, func, DUK_STRIDX_CALLER); + + /* The act->prev_caller should only be set if the entry for 'caller' + * exists (as it is only set in that case, and the property is not + * configurable), but handle all the cases anyway. + */ + + if (tv_caller) { + DUK_TVAL_SET_TVAL(&tv_tmp, tv_caller); + if (act->prev_caller) { + /* Just transfer the refcount from act->prev_caller to tv_caller, + * so no need for a refcount update. This is the expected case. + */ + DUK_TVAL_SET_OBJECT(tv_caller, act->prev_caller); + act->prev_caller = NULL; + } else { + DUK_TVAL_SET_NULL(tv_caller); /* no incref needed */ + DUK_ASSERT(act->prev_caller == NULL); + } + DUK_TVAL_DECREF_NORZ(thr, &tv_tmp); + } else { + h_tmp = act->prev_caller; + if (h_tmp) { + act->prev_caller = NULL; + DUK_HOBJECT_DECREF_NORZ(thr, h_tmp); + } + } + DUK_ASSERT(act->prev_caller == NULL); + } +#endif + + /* + * Unwind debugger state. If we unwind while stepping + * (for any step type), pause execution. This is the + * only place explicitly handling a step out. + */ + +#if defined(DUK_USE_DEBUGGER_SUPPORT) + heap = thr->heap; + if (heap->dbg_pause_act == thr->callstack_curr) { + if (heap->dbg_pause_flags & DUK_PAUSE_FLAG_FUNC_EXIT) { + DUK_D(DUK_DPRINT("PAUSE TRIGGERED by function exit")); + duk_debug_set_paused(heap); + } else { + DUK_D(DUK_DPRINT("unwound past dbg_pause_act, set to NULL")); + heap->dbg_pause_act = NULL; /* avoid stale pointers */ + } + DUK_ASSERT(heap->dbg_pause_act == NULL); + } +#endif + + /* + * Unwind catchers. + * + * Since there are no references in the catcher structure, + * unwinding is quite simple. The only thing we need to + * look out for is popping a possible lexical environment + * established for an active catch clause. + */ + + while (act->cat != NULL) { + duk_hthread_catcher_unwind_norz(thr, act); + } + + /* + * Close environment record(s) if they exist. + * + * Only variable environments are closed. If lex_env != var_env, it + * cannot currently contain any register bound declarations. + * + * Only environments created for a NEWENV function are closed. If an + * environment is created for e.g. an eval call, it must not be closed. + */ + + func = DUK_ACT_GET_FUNC(act); + if (func != NULL && !DUK_HOBJECT_HAS_NEWENV(func)) { + DUK_DDD(DUK_DDDPRINT("skip closing environments, envs not owned by this activation")); + goto skip_env_close; + } + /* func is NULL for lightfunc */ + + /* Catch sites are required to clean up their environments + * in FINALLY part before propagating, so this should + * always hold here. + */ + DUK_ASSERT(act->lex_env == act->var_env); + + /* XXX: Closing the environment record copies values from registers + * into the scope object. It's side effect free as such, but may + * currently run out of memory which causes an error throw. This is + * an actual sandboxing problem for error unwinds, and needs to be + * fixed e.g. by preallocating the scope property slots. + */ + if (act->var_env != NULL) { + DUK_DDD(DUK_DDDPRINT("closing var_env record %p -> %!O", + (void *) act->var_env, (duk_heaphdr *) act->var_env)); + duk_js_close_environment_record(thr, act->var_env); + } + + skip_env_close: + + /* + * Update preventcount + */ + + if (act->flags & DUK_ACT_FLAG_PREVENT_YIELD) { + DUK_ASSERT(thr->callstack_preventcount >= 1); + thr->callstack_preventcount--; + } + + /* + * Reference count updates, using NORZ macros so we don't + * need to handle side effects. + * + * duk_activation pointers like act->var_env are intentionally + * left as garbage and not NULLed. Without side effects they + * can't be used when the values are dangling/garbage. + */ + + DUK_HOBJECT_DECREF_NORZ_ALLOWNULL(thr, act->var_env); + DUK_HOBJECT_DECREF_NORZ_ALLOWNULL(thr, act->lex_env); + tmp = DUK_ACT_GET_FUNC(act); + DUK_HOBJECT_DECREF_NORZ_ALLOWNULL(thr, tmp); + DUK_UNREF(tmp); +} + +/* Unwind topmost duk_activation of a thread, caller must ensure that an + * activation exists. The call is side effect free, except that scope + * closure may currently throw an out-of-memory error. + */ +DUK_INTERNAL void duk_hthread_activation_unwind_norz(duk_hthread *thr) { + duk_activation *act; + + duk__activation_unwind_nofree_norz(thr); + + DUK_ASSERT(thr->callstack_curr != NULL); + DUK_ASSERT(thr->callstack_top > 0); + act = thr->callstack_curr; + thr->callstack_curr = act->parent; + thr->callstack_top--; + + /* Ideally we'd restore value stack reserve here to caller's value. + * This doesn't work for current unwind call sites however, because + * the current (unwound) value stack top may be above the reserve. + * Thus value stack reserve is restored by the call sites. + */ + + /* XXX: inline for performance builds? */ + duk_hthread_activation_free(thr, act); + + /* We could clear the book-keeping variables like retval_byteoff for + * the topmost activation, but don't do so now as it's not necessary. + */ +} + +DUK_INTERNAL void duk_hthread_activation_unwind_reuse_norz(duk_hthread *thr) { + duk__activation_unwind_nofree_norz(thr); +} + +/* Get duk_activation for given callstack level or NULL if level is invalid + * or deeper than the call stack. Level -1 refers to current activation, -2 + * to its caller, etc. Starting from Duktape 2.2 finding the activation is + * a linked list scan which gets more expensive the deeper the lookup is. + */ +DUK_INTERNAL duk_activation *duk_hthread_get_activation_for_level(duk_hthread *thr, duk_int_t level) { + duk_activation *act; + + if (level >= 0) { + return NULL; + } + act = thr->callstack_curr; + for (;;) { + if (act == NULL) { + return act; + } + if (level == -1) { + return act; + } + level++; + act = act->parent; + } + /* never here */ +} + +#if defined(DUK_USE_FINALIZER_TORTURE) +DUK_INTERNAL void duk_hthread_valstack_torture_realloc(duk_hthread *thr) { + duk_size_t alloc_size; + duk_tval *new_ptr; + duk_ptrdiff_t alloc_end_off; + duk_ptrdiff_t end_off; + duk_ptrdiff_t bottom_off; + duk_ptrdiff_t top_off; + + if (thr->valstack == NULL) { + DUK_D(DUK_DPRINT("skip valstack torture realloc, valstack is NULL")); + return; + } + + alloc_end_off = (duk_ptrdiff_t) ((duk_uint8_t *) thr->valstack_alloc_end - (duk_uint8_t *) thr->valstack); + end_off = (duk_ptrdiff_t) ((duk_uint8_t *) thr->valstack_end - (duk_uint8_t *) thr->valstack); + bottom_off = (duk_ptrdiff_t) ((duk_uint8_t *) thr->valstack_bottom - (duk_uint8_t *) thr->valstack); + top_off = (duk_ptrdiff_t) ((duk_uint8_t *) thr->valstack_top - (duk_uint8_t *) thr->valstack); + alloc_size = (duk_size_t) alloc_end_off; + if (alloc_size == 0) { + DUK_D(DUK_DPRINT("skip valstack torture realloc, alloc_size is zero")); + return; + } + + /* Use DUK_ALLOC_RAW() to avoid side effects. */ + new_ptr = (duk_tval *) DUK_ALLOC_RAW(thr->heap, alloc_size); + if (new_ptr != NULL) { + duk_memcpy((void *) new_ptr, (const void *) thr->valstack, alloc_size); + duk_memset((void *) thr->valstack, 0x55, alloc_size); + DUK_FREE_CHECKED(thr, (void *) thr->valstack); + thr->valstack = new_ptr; + thr->valstack_alloc_end = (duk_tval *) ((duk_uint8_t *) new_ptr + alloc_end_off); + thr->valstack_end = (duk_tval *) ((duk_uint8_t *) new_ptr + end_off); + thr->valstack_bottom = (duk_tval *) ((duk_uint8_t *) new_ptr + bottom_off); + thr->valstack_top = (duk_tval *) ((duk_uint8_t *) new_ptr + top_off); + } else { + DUK_D(DUK_DPRINT("failed to realloc valstack for torture, ignore")); + } +} +#endif /* DUK_USE_FINALIZER_TORTURE */ +#line 1 "duk_js_arith.c" +/* + * Shared helpers for arithmetic operations + */ + +/* #include duk_internal.h -> already included */ + +/* ECMAScript modulus ('%') does not match IEEE 754 "remainder" operation + * (implemented by remainder() in C99) but does seem to match ANSI C fmod(). + * Compare E5 Section 11.5.3 and "man fmod". + */ +DUK_INTERNAL double duk_js_arith_mod(double d1, double d2) { +#if defined(DUK_USE_POW_WORKAROUNDS) + /* Specific fixes to common fmod() implementation issues: + * - test-bug-mingw-math-issues.js + */ + if (DUK_ISINF(d2)) { + if (DUK_ISINF(d1)) { + return DUK_DOUBLE_NAN; + } else { + return d1; + } + } else if (duk_double_equals(d1, 0.0)) { + /* d1 +/-0 is returned as is (preserving sign) except when + * d2 is zero or NaN. + */ + if (duk_double_equals(d2, 0.0) || DUK_ISNAN(d2)) { + return DUK_DOUBLE_NAN; + } else { + return d1; + } + } +#else + /* Some ISO C assumptions. */ + DUK_ASSERT(duk_double_equals(DUK_FMOD(1.0, DUK_DOUBLE_INFINITY), 1.0)); + DUK_ASSERT(duk_double_equals(DUK_FMOD(-1.0, DUK_DOUBLE_INFINITY), -1.0)); + DUK_ASSERT(duk_double_equals(DUK_FMOD(1.0, -DUK_DOUBLE_INFINITY), 1.0)); + DUK_ASSERT(duk_double_equals(DUK_FMOD(-1.0, -DUK_DOUBLE_INFINITY), -1.0)); + DUK_ASSERT(DUK_ISNAN(DUK_FMOD(DUK_DOUBLE_INFINITY, DUK_DOUBLE_INFINITY))); + DUK_ASSERT(DUK_ISNAN(DUK_FMOD(DUK_DOUBLE_INFINITY, -DUK_DOUBLE_INFINITY))); + DUK_ASSERT(DUK_ISNAN(DUK_FMOD(-DUK_DOUBLE_INFINITY, DUK_DOUBLE_INFINITY))); + DUK_ASSERT(DUK_ISNAN(DUK_FMOD(-DUK_DOUBLE_INFINITY, -DUK_DOUBLE_INFINITY))); + DUK_ASSERT(duk_double_equals(DUK_FMOD(0.0, 1.0), 0.0) && DUK_SIGNBIT(DUK_FMOD(0.0, 1.0)) == 0); + DUK_ASSERT(duk_double_equals(DUK_FMOD(-0.0, 1.0), 0.0) && DUK_SIGNBIT(DUK_FMOD(-0.0, 1.0)) != 0); + DUK_ASSERT(duk_double_equals(DUK_FMOD(0.0, DUK_DOUBLE_INFINITY), 0.0) && DUK_SIGNBIT(DUK_FMOD(0.0, DUK_DOUBLE_INFINITY)) == 0); + DUK_ASSERT(duk_double_equals(DUK_FMOD(-0.0, DUK_DOUBLE_INFINITY), 0.0) && DUK_SIGNBIT(DUK_FMOD(-0.0, DUK_DOUBLE_INFINITY)) != 0); + DUK_ASSERT(duk_double_equals(DUK_FMOD(0.0, -DUK_DOUBLE_INFINITY), 0.0) && DUK_SIGNBIT(DUK_FMOD(0.0, DUK_DOUBLE_INFINITY)) == 0); + DUK_ASSERT(duk_double_equals(DUK_FMOD(-0.0, -DUK_DOUBLE_INFINITY), 0.0) && DUK_SIGNBIT(DUK_FMOD(-0.0, -DUK_DOUBLE_INFINITY)) != 0); + DUK_ASSERT(DUK_ISNAN(DUK_FMOD(0.0, 0.0))); + DUK_ASSERT(DUK_ISNAN(DUK_FMOD(-0.0, 0.0))); + DUK_ASSERT(DUK_ISNAN(DUK_FMOD(0.0, -0.0))); + DUK_ASSERT(DUK_ISNAN(DUK_FMOD(-0.0, -0.0))); + DUK_ASSERT(DUK_ISNAN(DUK_FMOD(0.0, DUK_DOUBLE_NAN))); + DUK_ASSERT(DUK_ISNAN(DUK_FMOD(-0.0, DUK_DOUBLE_NAN))); +#endif + + return (duk_double_t) DUK_FMOD((double) d1, (double) d2); +} + +/* Shared helper for Math.pow() and exponentiation operator. */ +DUK_INTERNAL double duk_js_arith_pow(double x, double y) { + /* The ANSI C pow() semantics differ from ECMAScript. + * + * E.g. when x==1 and y is +/- infinite, the ECMAScript required + * result is NaN, while at least Linux pow() returns 1. + */ + + duk_small_int_t cx, cy, sx; + + DUK_UNREF(cx); + DUK_UNREF(sx); + cy = (duk_small_int_t) DUK_FPCLASSIFY(y); + + if (cy == DUK_FP_NAN) { + goto ret_nan; + } + if (duk_double_equals(DUK_FABS(x), 1.0) && cy == DUK_FP_INFINITE) { + goto ret_nan; + } + +#if defined(DUK_USE_POW_WORKAROUNDS) + /* Specific fixes to common pow() implementation issues: + * - test-bug-netbsd-math-pow.js: NetBSD 6.0 on x86 (at least) + * - test-bug-mingw-math-issues.js + */ + cx = (duk_small_int_t) DUK_FPCLASSIFY(x); + if (cx == DUK_FP_ZERO && y < 0.0) { + sx = (duk_small_int_t) DUK_SIGNBIT(x); + if (sx == 0) { + /* Math.pow(+0,y) should be Infinity when y<0. NetBSD pow() + * returns -Infinity instead when y is <0 and finite. The + * if-clause also catches y == -Infinity (which works even + * without the fix). + */ + return DUK_DOUBLE_INFINITY; + } else { + /* Math.pow(-0,y) where y<0 should be: + * - -Infinity if y<0 and an odd integer + * - Infinity if y<0 but not an odd integer + * NetBSD pow() returns -Infinity for all finite y<0. The + * if-clause also catches y == -Infinity (which works even + * without the fix). + */ + + /* fmod() return value has same sign as input (negative) so + * the result here will be in the range ]-2,0], -1 indicates + * odd. If x is -Infinity, NaN is returned and the odd check + * always concludes "not odd" which results in desired outcome. + */ + double tmp = DUK_FMOD(y, 2); + if (tmp == -1.0) { + return -DUK_DOUBLE_INFINITY; + } else { + /* Not odd, or y == -Infinity */ + return DUK_DOUBLE_INFINITY; + } + } + } else if (cx == DUK_FP_NAN) { + if (duk_double_equals(y, 0.0)) { + /* NaN ** +/- 0 should always be 1, but is NaN on + * at least some Cygwin/MinGW versions. + */ + return 1.0; + } + } +#else + /* Some ISO C assumptions. */ + DUK_ASSERT(duk_double_equals(DUK_POW(DUK_DOUBLE_NAN, 0.0), 1.0)); + DUK_ASSERT(DUK_ISINF(DUK_POW(0.0, -1.0)) && DUK_SIGNBIT(DUK_POW(0.0, -1.0)) == 0); + DUK_ASSERT(DUK_ISINF(DUK_POW(-0.0, -2.0)) && DUK_SIGNBIT(DUK_POW(-0.0, -2.0)) == 0); + DUK_ASSERT(DUK_ISINF(DUK_POW(-0.0, -3.0)) && DUK_SIGNBIT(DUK_POW(-0.0, -3.0)) != 0); +#endif + + return DUK_POW(x, y); + + ret_nan: + return DUK_DOUBLE_NAN; +} +#line 1 "duk_js_call.c" +/* + * Call handling. + * + * duk_handle_call_unprotected(): + * + * - Unprotected call to ECMAScript or Duktape/C function, from native + * code or bytecode executor. + * + * - Also handles Ecma-to-Ecma calls which reuses a currently running + * executor instance to avoid native recursion. Call setup is done + * normally, but just before calling the bytecode executor a special + * return code is used to indicate that a calling executor is reused. + * + * - Also handles tailcalls, i.e. reuse of current duk_activation. + * + * - Also handles setup for initial Duktape.Thread.resume(). + * + * duk_handle_safe_call(): + * + * - Protected C call within current activation. + * + * setjmp() and local variables have a nasty interaction, see execution.rst; + * non-volatile locals modified after setjmp() call are not guaranteed to + * keep their value and can cause compiler or compiler version specific + * difficult to replicate issues. + * + * See 'execution.rst'. + */ + +/* #include duk_internal.h -> already included */ + +/* XXX: heap->error_not_allowed for success path too? */ + +/* + * Limit check helpers. + */ + +/* Check native stack space if DUK_USE_NATIVE_STACK_CHECK() defined. */ +DUK_INTERNAL void duk_native_stack_check(duk_hthread *thr) { +#if defined(DUK_USE_NATIVE_STACK_CHECK) + if (DUK_USE_NATIVE_STACK_CHECK() != 0) { + DUK_ERROR_RANGE(thr, DUK_STR_NATIVE_STACK_LIMIT); + } +#else + DUK_UNREF(thr); +#endif +} + +/* Allow headroom for calls during error augmentation (see GH-191). + * We allow space for 10 additional recursions, with one extra + * for, e.g. a print() call at the deepest level, and an extra + * +1 for protected call wrapping. + */ +#define DUK__AUGMENT_CALL_RELAX_COUNT (10 + 2) + +/* Stack space required by call handling entry. */ +#define DUK__CALL_HANDLING_REQUIRE_STACK 8 + +DUK_LOCAL DUK_NOINLINE void duk__call_c_recursion_limit_check_slowpath(duk_hthread *thr) { + /* When augmenting an error, the effective limit is a bit higher. + * Check for it only if the fast path check fails. + */ +#if defined(DUK_USE_AUGMENT_ERROR_THROW) || defined(DUK_USE_AUGMENT_ERROR_CREATE) + if (thr->heap->augmenting_error) { + if (thr->heap->call_recursion_depth < thr->heap->call_recursion_limit + DUK__AUGMENT_CALL_RELAX_COUNT) { + DUK_D(DUK_DPRINT("C recursion limit reached but augmenting error and within relaxed limit")); + return; + } + } +#endif + + DUK_D(DUK_DPRINT("call prevented because C recursion limit reached")); + DUK_ERROR_RANGE(thr, DUK_STR_NATIVE_STACK_LIMIT); + DUK_WO_NORETURN(return;); +} + +DUK_LOCAL DUK_ALWAYS_INLINE void duk__call_c_recursion_limit_check(duk_hthread *thr) { + DUK_ASSERT(thr->heap->call_recursion_depth >= 0); + DUK_ASSERT(thr->heap->call_recursion_depth <= thr->heap->call_recursion_limit); + + duk_native_stack_check(thr); + + /* This check is forcibly inlined because it's very cheap and almost + * always passes. The slow path is forcibly noinline. + */ + if (DUK_LIKELY(thr->heap->call_recursion_depth < thr->heap->call_recursion_limit)) { + return; + } + + duk__call_c_recursion_limit_check_slowpath(thr); +} + +DUK_LOCAL DUK_NOINLINE void duk__call_callstack_limit_check_slowpath(duk_hthread *thr) { + /* When augmenting an error, the effective limit is a bit higher. + * Check for it only if the fast path check fails. + */ +#if defined(DUK_USE_AUGMENT_ERROR_THROW) || defined(DUK_USE_AUGMENT_ERROR_CREATE) + if (thr->heap->augmenting_error) { + if (thr->callstack_top < DUK_USE_CALLSTACK_LIMIT + DUK__AUGMENT_CALL_RELAX_COUNT) { + DUK_D(DUK_DPRINT("call stack limit reached but augmenting error and within relaxed limit")); + return; + } + } +#endif + + /* XXX: error message is a bit misleading: we reached a recursion + * limit which is also essentially the same as a C callstack limit + * (except perhaps with some relaxed threading assumptions). + */ + DUK_D(DUK_DPRINT("call prevented because call stack limit reached")); + DUK_ERROR_RANGE(thr, DUK_STR_CALLSTACK_LIMIT); + DUK_WO_NORETURN(return;); +} + +DUK_LOCAL DUK_ALWAYS_INLINE void duk__call_callstack_limit_check(duk_hthread *thr) { + /* This check is forcibly inlined because it's very cheap and almost + * always passes. The slow path is forcibly noinline. + */ + if (DUK_LIKELY(thr->callstack_top < DUK_USE_CALLSTACK_LIMIT)) { + return; + } + + duk__call_callstack_limit_check_slowpath(thr); +} + +/* + * Interrupt counter fixup (for development only). + */ + +#if defined(DUK_USE_INTERRUPT_COUNTER) && defined(DUK_USE_DEBUG) +DUK_LOCAL void duk__interrupt_fixup(duk_hthread *thr, duk_hthread *entry_curr_thread) { + /* Currently the bytecode executor and executor interrupt + * instruction counts are off because we don't execute the + * interrupt handler when we're about to exit from the initial + * user call into Duktape. + * + * If we were to execute the interrupt handler here, the counts + * would match. You can enable this block manually to check + * that this is the case. + */ + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(thr->heap != NULL); + +#if defined(DUK_USE_INTERRUPT_DEBUG_FIXUP) + if (entry_curr_thread == NULL) { + thr->interrupt_init = thr->interrupt_init - thr->interrupt_counter; + thr->heap->inst_count_interrupt += thr->interrupt_init; + DUK_DD(DUK_DDPRINT("debug test: updated interrupt count on exit to " + "user code, instruction counts: executor=%ld, interrupt=%ld", + (long) thr->heap->inst_count_exec, (long) thr->heap->inst_count_interrupt)); + DUK_ASSERT(thr->heap->inst_count_exec == thr->heap->inst_count_interrupt); + } +#else + DUK_UNREF(thr); + DUK_UNREF(entry_curr_thread); +#endif +} +#endif + +/* + * Arguments object creation. + * + * Creating arguments objects involves many small details, see E5 Section + * 10.6 for the specific requirements. Much of the arguments object exotic + * behavior is implemented in duk_hobject_props.c, and is enabled by the + * object flag DUK_HOBJECT_FLAG_EXOTIC_ARGUMENTS. + */ + +DUK_LOCAL void duk__create_arguments_object(duk_hthread *thr, + duk_hobject *func, + duk_hobject *varenv, + duk_idx_t idx_args) { + duk_hobject *arg; /* 'arguments' */ + duk_hobject *formals; /* formals for 'func' (may be NULL if func is a C function) */ + duk_idx_t i_arg; + duk_idx_t i_map; + duk_idx_t i_mappednames; + duk_idx_t i_formals; + duk_idx_t i_argbase; + duk_idx_t n_formals; + duk_idx_t idx; + duk_idx_t num_stack_args; + duk_bool_t need_map; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(func != NULL); + DUK_ASSERT(DUK_HOBJECT_IS_NONBOUND_FUNCTION(func)); + DUK_ASSERT(varenv != NULL); + + /* [ ... func this arg1(@idx_args) ... argN envobj ] + * [ arg1(@idx_args) ... argN envobj ] (for tailcalls) + */ + + need_map = 0; + + i_argbase = idx_args; + num_stack_args = duk_get_top(thr) - i_argbase - 1; + DUK_ASSERT(i_argbase >= 0); + DUK_ASSERT(num_stack_args >= 0); + + formals = (duk_hobject *) duk_hobject_get_formals(thr, (duk_hobject *) func); + if (formals) { + n_formals = (duk_idx_t) ((duk_harray *) formals)->length; + duk_push_hobject(thr, formals); + } else { + /* This shouldn't happen without tampering of internal + * properties: if a function accesses 'arguments', _Formals + * is kept. Check for the case anyway in case internal + * properties have been modified manually. + */ + DUK_D(DUK_DPRINT("_Formals is undefined when creating arguments, use n_formals == 0")); + n_formals = 0; + duk_push_undefined(thr); + } + i_formals = duk_require_top_index(thr); + + DUK_ASSERT(n_formals >= 0); + DUK_ASSERT(formals != NULL || n_formals == 0); + + DUK_DDD(DUK_DDDPRINT("func=%!O, formals=%!O, n_formals=%ld", + (duk_heaphdr *) func, (duk_heaphdr *) formals, + (long) n_formals)); + + /* [ ... formals ] */ + + /* + * Create required objects: + * - 'arguments' object: array-like, but not an array + * - 'map' object: internal object, tied to 'arguments' (bare) + * - 'mappedNames' object: temporary value used during construction (bare) + */ + + arg = duk_push_object_helper(thr, + DUK_HOBJECT_FLAG_EXTENSIBLE | + DUK_HOBJECT_FLAG_FASTREFS | + DUK_HOBJECT_FLAG_ARRAY_PART | + DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_ARGUMENTS), + DUK_BIDX_OBJECT_PROTOTYPE); + DUK_ASSERT(arg != NULL); + (void) duk_push_object_helper(thr, + DUK_HOBJECT_FLAG_EXTENSIBLE | + DUK_HOBJECT_FLAG_FASTREFS | + DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_OBJECT), + -1); /* no prototype */ + (void) duk_push_object_helper(thr, + DUK_HOBJECT_FLAG_EXTENSIBLE | + DUK_HOBJECT_FLAG_FASTREFS | + DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_OBJECT), + -1); /* no prototype */ + i_arg = duk_get_top(thr) - 3; + i_map = i_arg + 1; + i_mappednames = i_arg + 2; + DUK_ASSERT(!duk_is_bare_object(thr, -3)); /* arguments */ + DUK_ASSERT(duk_is_bare_object(thr, -2)); /* map */ + DUK_ASSERT(duk_is_bare_object(thr, -1)); /* mappedNames */ + + /* [ ... formals arguments map mappedNames ] */ + + DUK_DDD(DUK_DDDPRINT("created arguments related objects: " + "arguments at index %ld -> %!O " + "map at index %ld -> %!O " + "mappednames at index %ld -> %!O", + (long) i_arg, (duk_heaphdr *) duk_get_hobject(thr, i_arg), + (long) i_map, (duk_heaphdr *) duk_get_hobject(thr, i_map), + (long) i_mappednames, (duk_heaphdr *) duk_get_hobject(thr, i_mappednames))); + + /* + * Init arguments properties, map, etc. + */ + + duk_push_int(thr, num_stack_args); + duk_xdef_prop_stridx(thr, i_arg, DUK_STRIDX_LENGTH, DUK_PROPDESC_FLAGS_WC); + + /* + * Init argument related properties. + */ + + /* step 11 */ + idx = num_stack_args - 1; + while (idx >= 0) { + DUK_DDD(DUK_DDDPRINT("arg idx %ld, argbase=%ld, argidx=%ld", + (long) idx, (long) i_argbase, (long) (i_argbase + idx))); + + DUK_DDD(DUK_DDDPRINT("define arguments[%ld]=arg", (long) idx)); + duk_dup(thr, i_argbase + idx); + duk_xdef_prop_index_wec(thr, i_arg, (duk_uarridx_t) idx); + DUK_DDD(DUK_DDDPRINT("defined arguments[%ld]=arg", (long) idx)); + + /* step 11.c is relevant only if non-strict (checked in 11.c.ii) */ + if (!DUK_HOBJECT_HAS_STRICT(func) && idx < n_formals) { + DUK_ASSERT(formals != NULL); + + DUK_DDD(DUK_DDDPRINT("strict function, index within formals (%ld < %ld)", + (long) idx, (long) n_formals)); + + duk_get_prop_index(thr, i_formals, (duk_uarridx_t) idx); + DUK_ASSERT(duk_is_string(thr, -1)); + + duk_dup_top(thr); /* [ ... name name ] */ + + if (!duk_has_prop(thr, i_mappednames)) { + /* steps 11.c.ii.1 - 11.c.ii.4, but our internal book-keeping + * differs from the reference model + */ + + /* [ ... name ] */ + + need_map = 1; + + DUK_DDD(DUK_DDDPRINT("set mappednames[%s]=%ld", + (const char *) duk_get_string(thr, -1), + (long) idx)); + duk_dup_top(thr); /* name */ + (void) duk_push_uint_to_hstring(thr, (duk_uint_t) idx); /* index */ + duk_xdef_prop_wec(thr, i_mappednames); /* out of spec, must be configurable */ + + DUK_DDD(DUK_DDDPRINT("set map[%ld]=%s", + (long) idx, + duk_get_string(thr, -1))); + duk_dup_top(thr); /* name */ + duk_xdef_prop_index_wec(thr, i_map, (duk_uarridx_t) idx); /* out of spec, must be configurable */ + } else { + /* duk_has_prop() popped the second 'name' */ + } + + /* [ ... name ] */ + duk_pop(thr); /* pop 'name' */ + } + + idx--; + } + + DUK_DDD(DUK_DDDPRINT("actual arguments processed")); + + /* step 12 */ + if (need_map) { + DUK_DDD(DUK_DDDPRINT("adding 'map' and 'varenv' to arguments object")); + + /* should never happen for a strict callee */ + DUK_ASSERT(!DUK_HOBJECT_HAS_STRICT(func)); + + duk_dup(thr, i_map); + duk_xdef_prop_stridx(thr, i_arg, DUK_STRIDX_INT_MAP, DUK_PROPDESC_FLAGS_NONE); /* out of spec, don't care */ + + /* The variable environment for magic variable bindings needs to be + * given by the caller and recorded in the arguments object. + * + * See E5 Section 10.6, the creation of setters/getters. + * + * The variable environment also provides access to the callee, so + * an explicit (internal) callee property is not needed. + */ + + duk_push_hobject(thr, varenv); + duk_xdef_prop_stridx(thr, i_arg, DUK_STRIDX_INT_VARENV, DUK_PROPDESC_FLAGS_NONE); /* out of spec, don't care */ + } + + /* steps 13-14 */ + if (DUK_HOBJECT_HAS_STRICT(func)) { + /* Callee/caller are throwers and are not deletable etc. They + * could be implemented as virtual properties, but currently + * there is no support for virtual properties which are accessors + * (only plain virtual properties). This would not be difficult + * to change in duk_hobject_props, but we can make the throwers + * normal, concrete properties just as easily. + * + * Note that the specification requires that the *same* thrower + * built-in object is used here! See E5 Section 10.6 main + * algoritm, step 14, and Section 13.2.3 which describes the + * thrower. See test case test-arguments-throwers.js. + */ + + DUK_DDD(DUK_DDDPRINT("strict function, setting caller/callee to throwers")); + + /* In ES2017 .caller is no longer set at all. */ + duk_xdef_prop_stridx_thrower(thr, i_arg, DUK_STRIDX_CALLEE); + } else { + DUK_DDD(DUK_DDDPRINT("non-strict function, setting callee to actual value")); + duk_push_hobject(thr, func); + duk_xdef_prop_stridx(thr, i_arg, DUK_STRIDX_CALLEE, DUK_PROPDESC_FLAGS_WC); + } + + /* set exotic behavior only after we're done */ + if (need_map) { + /* Exotic behaviors are only enabled for arguments objects + * which have a parameter map (see E5 Section 10.6 main + * algorithm, step 12). + * + * In particular, a non-strict arguments object with no + * mapped formals does *NOT* get exotic behavior, even + * for e.g. "caller" property. This seems counterintuitive + * but seems to be the case. + */ + + /* cannot be strict (never mapped variables) */ + DUK_ASSERT(!DUK_HOBJECT_HAS_STRICT(func)); + + DUK_DDD(DUK_DDDPRINT("enabling exotic behavior for arguments object")); + DUK_HOBJECT_SET_EXOTIC_ARGUMENTS(arg); + } else { + DUK_DDD(DUK_DDDPRINT("not enabling exotic behavior for arguments object")); + } + + DUK_DDD(DUK_DDDPRINT("final arguments related objects: " + "arguments at index %ld -> %!O " + "map at index %ld -> %!O " + "mappednames at index %ld -> %!O", + (long) i_arg, (duk_heaphdr *) duk_get_hobject(thr, i_arg), + (long) i_map, (duk_heaphdr *) duk_get_hobject(thr, i_map), + (long) i_mappednames, (duk_heaphdr *) duk_get_hobject(thr, i_mappednames))); + + /* [ args(n) envobj formals arguments map mappednames ] */ + + duk_pop_2(thr); + duk_remove_m2(thr); + + /* [ args(n) envobj arguments ] */ +} + +/* Helper for creating the arguments object and adding it to the env record + * on top of the value stack. + */ +DUK_LOCAL void duk__handle_createargs_for_call(duk_hthread *thr, + duk_hobject *func, + duk_hobject *env, + duk_idx_t idx_args) { + DUK_DDD(DUK_DDDPRINT("creating arguments object for function call")); + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(func != NULL); + DUK_ASSERT(env != NULL); + DUK_ASSERT(DUK_HOBJECT_HAS_CREATEARGS(func)); + + /* [ ... arg1 ... argN envobj ] */ + + duk__create_arguments_object(thr, + func, + env, + idx_args); + + /* [ ... arg1 ... argN envobj argobj ] */ + + duk_xdef_prop_stridx_short(thr, + -2, + DUK_STRIDX_LC_ARGUMENTS, + DUK_HOBJECT_HAS_STRICT(func) ? DUK_PROPDESC_FLAGS_E : /* strict: non-deletable, non-writable */ + DUK_PROPDESC_FLAGS_WE); /* non-strict: non-deletable, writable */ + /* [ ... arg1 ... argN envobj ] */ +} + +/* + * Helpers for constructor call handling. + * + * There are two [[Construct]] operations in the specification: + * + * - E5 Section 13.2.2: for Function objects + * - E5 Section 15.3.4.5.2: for "bound" Function objects + * + * The chain of bound functions is resolved in Section 15.3.4.5.2, + * with arguments "piling up" until the [[Construct]] internal + * method is called on the final, actual Function object. Note + * that the "prototype" property is looked up *only* from the + * final object, *before* calling the constructor. + * + * Since Duktape 2.2 bound functions are represented with the + * duk_hboundfunc internal type, and bound function chains are + * collapsed when a bound function is created. As a result, the + * direct target of a duk_hboundfunc is always non-bound and the + * this/argument lists have been resolved. + * + * When constructing new Array instances, an unnecessary object is + * created and discarded now: the standard [[Construct]] creates an + * object, and calls the Array constructor. The Array constructor + * returns an Array instance, which is used as the result value for + * the "new" operation; the object created before the Array constructor + * call is discarded. + * + * This would be easy to fix, e.g. by knowing that the Array constructor + * will always create a replacement object and skip creating the fallback + * object in that case. + */ + +/* Update default instance prototype for constructor call. */ +DUK_LOCAL void duk__update_default_instance_proto(duk_hthread *thr, duk_idx_t idx_func) { + duk_hobject *proto; + duk_hobject *fallback; + + DUK_ASSERT(duk_is_constructable(thr, idx_func)); + + duk_get_prop_stridx_short(thr, idx_func, DUK_STRIDX_PROTOTYPE); + proto = duk_get_hobject(thr, -1); + if (proto == NULL) { + DUK_DDD(DUK_DDDPRINT("constructor has no 'prototype' property, or value not an object " + "-> leave standard Object prototype as fallback prototype")); + } else { + DUK_DDD(DUK_DDDPRINT("constructor has 'prototype' property with object value " + "-> set fallback prototype to that value: %!iO", (duk_heaphdr *) proto)); + /* Original fallback (default instance) is untouched when + * resolving bound functions etc. + */ + fallback = duk_known_hobject(thr, idx_func + 1); + DUK_ASSERT(fallback != NULL); + DUK_HOBJECT_SET_PROTOTYPE_UPDREF(thr, fallback, proto); + } + duk_pop(thr); +} + +/* Postprocess: return value special handling, error augmentation. */ +DUK_INTERNAL void duk_call_construct_postprocess(duk_hthread *thr, duk_small_uint_t proxy_invariant) { + /* Use either fallback (default instance) or retval depending + * on retval type. Needs to be called before unwind because + * the default instance is read from the current (immutable) + * 'this' binding. + * + * For Proxy 'construct' calls the return value must be an + * Object (we accept object-like values like buffers and + * lightfuncs too). If not, TypeError. + */ + if (duk_check_type_mask(thr, -1, DUK_TYPE_MASK_OBJECT | + DUK_TYPE_MASK_BUFFER | + DUK_TYPE_MASK_LIGHTFUNC)) { + DUK_DDD(DUK_DDDPRINT("replacement value")); + } else { + if (DUK_UNLIKELY(proxy_invariant != 0U)) { + /* Proxy 'construct' return value invariant violated. */ + DUK_ERROR_TYPE_INVALID_TRAP_RESULT(thr); + DUK_WO_NORETURN(return;); + } + /* XXX: direct value stack access */ + duk_pop(thr); + duk_push_this(thr); + } + +#if defined(DUK_USE_AUGMENT_ERROR_CREATE) + /* Augment created errors upon creation, not when they are thrown or + * rethrown. __FILE__ and __LINE__ are not desirable here; the call + * stack reflects the caller which is correct. Skip topmost, unwound + * activation when creating a traceback. If thr->ptr_curr_pc was != + * NULL we'd need to sync the current PC so that the traceback comes + * out right; however it is always synced here so just assert for it. + */ + DUK_ASSERT(thr->ptr_curr_pc == NULL); + duk_err_augment_error_create(thr, thr, NULL, 0, DUK_AUGMENT_FLAG_NOBLAME_FILELINE | + DUK_AUGMENT_FLAG_SKIP_ONE); +#endif +} + +/* + * Helper for handling a bound function when a call is being made. + * + * Assumes that bound function chains have been "collapsed" so that either + * the target is non-bound or there is one bound function that points to a + * nonbound target. + * + * Prepends the bound arguments to the value stack (at idx_func + 2). + * The 'this' binding is also updated if necessary (at idx_func + 1). + * Note that for constructor calls the 'this' binding is never updated by + * [[BoundThis]]. + */ + +DUK_LOCAL void duk__handle_bound_chain_for_call(duk_hthread *thr, + duk_idx_t idx_func, + duk_bool_t is_constructor_call) { + duk_tval *tv_func; + duk_hobject *func; + duk_idx_t len; + + DUK_ASSERT(thr != NULL); + + /* On entry, item at idx_func is a bound, non-lightweight function, + * but we don't rely on that below. + */ + + DUK_ASSERT(duk_get_top(thr) >= idx_func + 2); + + tv_func = duk_require_tval(thr, idx_func); + DUK_ASSERT(tv_func != NULL); + + if (DUK_TVAL_IS_OBJECT(tv_func)) { + func = DUK_TVAL_GET_OBJECT(tv_func); + + /* XXX: separate helper function, out of fast path? */ + if (DUK_HOBJECT_HAS_BOUNDFUNC(func)) { + duk_hboundfunc *h_bound; + duk_tval *tv_args; + duk_tval *tv_gap; + + h_bound = (duk_hboundfunc *) (void *) func; + tv_args = h_bound->args; + len = h_bound->nargs; + DUK_ASSERT(len == 0 || tv_args != NULL); + + DUK_DDD(DUK_DDDPRINT("bound function encountered, ptr=%p: %!T", + (void *) DUK_TVAL_GET_OBJECT(tv_func), tv_func)); + + /* [ ... func this arg1 ... argN ] */ + + if (is_constructor_call) { + /* See: tests/ecmascript/test-spec-bound-constructor.js */ + DUK_DDD(DUK_DDDPRINT("constructor call: don't update this binding")); + } else { + /* XXX: duk_replace_tval */ + duk_push_tval(thr, &h_bound->this_binding); + duk_replace(thr, idx_func + 1); /* idx_this = idx_func + 1 */ + } + + /* [ ... func this arg1 ... argN ] */ + + duk_require_stack(thr, len); + + tv_gap = duk_reserve_gap(thr, idx_func + 2, len); + duk_copy_tvals_incref(thr, tv_gap, tv_args, (duk_size_t) len); + + /* [ ... func this arg1 ... argN ] */ + + duk_push_tval(thr, &h_bound->target); + duk_replace(thr, idx_func); /* replace in stack */ + + DUK_DDD(DUK_DDDPRINT("bound function handled, idx_func=%ld, curr func=%!T", + (long) idx_func, duk_get_tval(thr, idx_func))); + } + } else if (DUK_TVAL_IS_LIGHTFUNC(tv_func)) { + /* Lightweight function: never bound, so terminate. */ + ; + } else { + /* Shouldn't happen, so ugly error is enough. */ + DUK_ERROR_INTERNAL(thr); + DUK_WO_NORETURN(return;); + } + + DUK_ASSERT(duk_get_top(thr) >= idx_func + 2); + + DUK_DDD(DUK_DDDPRINT("final non-bound function is: %!T", duk_get_tval(thr, idx_func))); + +#if defined(DUK_USE_ASSERTIONS) + tv_func = duk_require_tval(thr, idx_func); + DUK_ASSERT(DUK_TVAL_IS_LIGHTFUNC(tv_func) || DUK_TVAL_IS_OBJECT(tv_func)); + if (DUK_TVAL_IS_OBJECT(tv_func)) { + func = DUK_TVAL_GET_OBJECT(tv_func); + DUK_ASSERT(func != NULL); + DUK_ASSERT(!DUK_HOBJECT_HAS_BOUNDFUNC(func)); + DUK_ASSERT(DUK_HOBJECT_HAS_COMPFUNC(func) || + DUK_HOBJECT_HAS_NATFUNC(func) || + DUK_HOBJECT_IS_PROXY(func)); + } +#endif +} + +/* + * Helper for inline handling of .call(), .apply(), and .construct(). + */ + +DUK_LOCAL duk_bool_t duk__handle_specialfuncs_for_call(duk_hthread *thr, duk_idx_t idx_func, duk_hobject *func, duk_small_uint_t *call_flags, duk_bool_t first) { +#if defined(DUK_USE_ASSERTIONS) + duk_c_function natfunc; +#endif + duk_tval *tv_args; + + DUK_ASSERT(func != NULL); + DUK_ASSERT((*call_flags & DUK_CALL_FLAG_CONSTRUCT) == 0); /* Caller. */ + +#if defined(DUK_USE_ASSERTIONS) + natfunc = ((duk_hnatfunc *) func)->func; + DUK_ASSERT(natfunc != NULL); +#endif + + /* On every round of function resolution at least target function and + * 'this' binding are set. We can assume that here, and must guarantee + * it on exit. Value stack reserve is extended for bound function and + * .apply() unpacking so we don't need to extend it here when we need a + * few slots. + */ + DUK_ASSERT(duk_get_top(thr) >= idx_func + 2); + + /* Handle native 'eval' specially. A direct eval check is only made + * for the first resolution attempt; e.g. a bound eval call is -not- + * a direct eval call. + */ + if (DUK_UNLIKELY(((duk_hnatfunc *) func)->magic == 15)) { + /* For now no special handling except for direct eval + * detection. + */ + DUK_ASSERT(((duk_hnatfunc *) func)->func == duk_bi_global_object_eval); + if (first && (*call_flags & DUK_CALL_FLAG_CALLED_AS_EVAL)) { + *call_flags = (*call_flags & ~DUK_CALL_FLAG_CALLED_AS_EVAL) | DUK_CALL_FLAG_DIRECT_EVAL; + } + DUK_ASSERT(duk_get_top(thr) >= idx_func + 2); + return 1; /* stop resolving */ + } + + /* Handle special functions based on the DUK_HOBJECT_FLAG_SPECIAL_CALL + * flag; their magic value is used for switch-case. + * + * NOTE: duk_unpack_array_like() reserves value stack space + * for the result values (unlike most other value stack calls). + */ + switch (((duk_hnatfunc *) func)->magic) { + case 0: { /* 0=Function.prototype.call() */ + /* Value stack: + * idx_func + 0: Function.prototype.call() [removed] + * idx_func + 1: this binding for .call (target function) + * idx_func + 2: 1st argument to .call, desired 'this' binding + * idx_func + 3: 2nd argument to .call, desired 1st argument for ultimate target + * ... + * + * Remove idx_func + 0 to get: + * idx_func + 0: target function + * idx_func + 1: this binding + * idx_func + 2: call arguments + * ... + */ + DUK_ASSERT(natfunc == duk_bi_function_prototype_call); + duk_remove_unsafe(thr, idx_func); + tv_args = thr->valstack_bottom + idx_func + 2; + if (thr->valstack_top < tv_args) { + DUK_ASSERT(tv_args <= thr->valstack_end); + thr->valstack_top = tv_args; /* at least target function and 'this' binding present */ + } + break; + } + case 1: { /* 1=Function.prototype.apply() */ + /* Value stack: + * idx_func + 0: Function.prototype.apply() [removed] + * idx_func + 1: this binding for .apply (target function) + * idx_func + 2: 1st argument to .apply, desired 'this' binding + * idx_func + 3: 2nd argument to .apply, argArray + * [anything after this MUST be ignored] + * + * Remove idx_func + 0 and unpack the argArray to get: + * idx_func + 0: target function + * idx_func + 1: this binding + * idx_func + 2: call arguments + * ... + */ + DUK_ASSERT(natfunc == duk_bi_function_prototype_apply); + duk_remove_unsafe(thr, idx_func); + goto apply_shared; + } +#if defined(DUK_USE_REFLECT_BUILTIN) + case 2: { /* 2=Reflect.apply() */ + /* Value stack: + * idx_func + 0: Reflect.apply() [removed] + * idx_func + 1: this binding for .apply (ignored, usually Reflect) [removed] + * idx_func + 2: 1st argument to .apply, target function + * idx_func + 3: 2nd argument to .apply, desired 'this' binding + * idx_func + 4: 3rd argument to .apply, argArray + * [anything after this MUST be ignored] + * + * Remove idx_func + 0 and idx_func + 1, and unpack the argArray to get: + * idx_func + 0: target function + * idx_func + 1: this binding + * idx_func + 2: call arguments + * ... + */ + DUK_ASSERT(natfunc == duk_bi_reflect_apply); + duk_remove_n_unsafe(thr, idx_func, 2); + goto apply_shared; + } + case 3: { /* 3=Reflect.construct() */ + /* Value stack: + * idx_func + 0: Reflect.construct() [removed] + * idx_func + 1: this binding for .construct (ignored, usually Reflect) [removed] + * idx_func + 2: 1st argument to .construct, target function + * idx_func + 3: 2nd argument to .construct, argArray + * idx_func + 4: 3rd argument to .construct, newTarget + * [anything after this MUST be ignored] + * + * Remove idx_func + 0 and idx_func + 1, unpack the argArray, + * and insert default instance (prototype not yet updated), to get: + * idx_func + 0: target function + * idx_func + 1: this binding (default instance) + * idx_func + 2: constructor call arguments + * ... + * + * Call flags must be updated to reflect the fact that we're + * now dealing with a constructor call, and e.g. the 'this' + * binding cannot be overwritten if the target is bound. + * + * newTarget is checked but not yet passed onwards. + */ + + duk_idx_t top; + + DUK_ASSERT(natfunc == duk_bi_reflect_construct); + *call_flags |= DUK_CALL_FLAG_CONSTRUCT; + duk_remove_n_unsafe(thr, idx_func, 2); + top = duk_get_top(thr); + if (!duk_is_constructable(thr, idx_func)) { + /* Target constructability must be checked before + * unpacking argArray (which may cause side effects). + * Just return; caller will throw the error. + */ + duk_set_top_unsafe(thr, idx_func + 2); /* satisfy asserts */ + break; + } + duk_push_object(thr); + duk_insert(thr, idx_func + 1); /* default instance */ + + /* [ ... func default_instance argArray newTarget? ] */ + + top = duk_get_top(thr); + if (top < idx_func + 3) { + /* argArray is a mandatory argument for Reflect.construct(). */ + DUK_ERROR_TYPE_INVALID_ARGS(thr); + DUK_WO_NORETURN(return 0;); + } + if (top > idx_func + 3) { + if (!duk_strict_equals(thr, idx_func, idx_func + 3)) { + /* XXX: [[Construct]] newTarget currently unsupported */ + DUK_ERROR_UNSUPPORTED(thr); + DUK_WO_NORETURN(return 0;); + } + duk_set_top_unsafe(thr, idx_func + 3); /* remove any args beyond argArray */ + } + DUK_ASSERT(duk_get_top(thr) == idx_func + 3); + DUK_ASSERT(duk_is_valid_index(thr, idx_func + 2)); + (void) duk_unpack_array_like(thr, idx_func + 2); /* XXX: should also remove target to be symmetric with duk_pack()? */ + duk_remove(thr, idx_func + 2); + DUK_ASSERT(duk_get_top(thr) >= idx_func + 2); + break; + } +#endif /* DUK_USE_REFLECT_BUILTIN */ + default: { + DUK_ASSERT(0); + DUK_UNREACHABLE(); + } + } + + DUK_ASSERT(duk_get_top(thr) >= idx_func + 2); + return 0; /* keep resolving */ + + apply_shared: + tv_args = thr->valstack_bottom + idx_func + 2; + if (thr->valstack_top <= tv_args) { + DUK_ASSERT(tv_args <= thr->valstack_end); + thr->valstack_top = tv_args; /* at least target func and 'this' binding present */ + /* No need to check for argArray. */ + } else { + DUK_ASSERT(duk_get_top(thr) >= idx_func + 3); /* idx_func + 2 covered above */ + if (thr->valstack_top > tv_args + 1) { + duk_set_top_unsafe(thr, idx_func + 3); /* remove any args beyond argArray */ + } + DUK_ASSERT(duk_is_valid_index(thr, idx_func + 2)); + if (!duk_is_callable(thr, idx_func)) { + /* Avoid unpack side effects if the target isn't callable. + * Calling code will throw the actual error. + */ + } else { + (void) duk_unpack_array_like(thr, idx_func + 2); + duk_remove(thr, idx_func + 2); + } + } + DUK_ASSERT(duk_get_top(thr) >= idx_func + 2); + return 0; /* keep resolving */ +} + +/* + * Helper for Proxy handling. + */ + +#if defined(DUK_USE_ES6_PROXY) +DUK_LOCAL void duk__handle_proxy_for_call(duk_hthread *thr, duk_idx_t idx_func, duk_hproxy *h_proxy, duk_small_uint_t *call_flags) { + duk_bool_t rc; + + /* Value stack: + * idx_func + 0: Proxy object + * idx_func + 1: this binding for call + * idx_func + 2: 1st argument for call + * idx_func + 3: 2nd argument for call + * ... + * + * If Proxy doesn't have a trap for the call ('apply' or 'construct'), + * replace Proxy object with target object. + * + * If we're dealing with a normal call and the Proxy has an 'apply' + * trap, manipulate value stack to: + * + * idx_func + 0: trap + * idx_func + 1: Proxy's handler + * idx_func + 2: Proxy's target + * idx_func + 3: this binding for call (from idx_func + 1) + * idx_func + 4: call arguments packed to an array + * + * If we're dealing with a constructor call and the Proxy has a + * 'construct' trap, manipulate value stack to: + * + * idx_func + 0: trap + * idx_func + 1: Proxy's handler + * idx_func + 2: Proxy's target + * idx_func + 3: call arguments packed to an array + * idx_func + 4: newTarget == Proxy object here + * + * As we don't yet have proper newTarget support, the newTarget at + * idx_func + 3 is just the original constructor being called, i.e. + * the Proxy object (not the target). Note that the default instance + * (original 'this' binding) is dropped and ignored. + */ + + duk_push_hobject(thr, h_proxy->handler); + rc = duk_get_prop_stridx_short(thr, -1, (*call_flags & DUK_CALL_FLAG_CONSTRUCT) ? DUK_STRIDX_CONSTRUCT : DUK_STRIDX_APPLY); + if (rc == 0) { + /* Not found, continue to target. If this is a construct + * call, update default instance prototype using the Proxy, + * not the target. + */ + if (*call_flags & DUK_CALL_FLAG_CONSTRUCT) { + if (!(*call_flags & DUK_CALL_FLAG_DEFAULT_INSTANCE_UPDATED)) { + *call_flags |= DUK_CALL_FLAG_DEFAULT_INSTANCE_UPDATED; + duk__update_default_instance_proto(thr, idx_func); + } + } + duk_pop_2(thr); + duk_push_hobject(thr, h_proxy->target); + duk_replace(thr, idx_func); + return; + } + + /* Here we must be careful not to replace idx_func while + * h_proxy is still needed, otherwise h_proxy may become + * dangling. This could be improved e.g. using a + * duk_pack_slice() with a freeform slice. + */ + + /* Here: + * idx_func + 0: Proxy object + * idx_func + 1: this binding for call + * idx_func + 2: 1st argument for call + * idx_func + 3: 2nd argument for call + * ... + * idx_func + N: handler + * idx_func + N + 1: trap + */ + + duk_insert(thr, idx_func + 1); + duk_insert(thr, idx_func + 2); + duk_push_hobject(thr, h_proxy->target); + duk_insert(thr, idx_func + 3); + duk_pack(thr, duk_get_top(thr) - (idx_func + 5)); + DUK_ASSERT(!duk_is_bare_object(thr, -1)); + + /* Here: + * idx_func + 0: Proxy object + * idx_func + 1: trap + * idx_func + 2: Proxy's handler + * idx_func + 3: Proxy's target + * idx_func + 4: this binding for call + * idx_func + 5: arguments array + */ + DUK_ASSERT(duk_get_top(thr) == idx_func + 6); + + if (*call_flags & DUK_CALL_FLAG_CONSTRUCT) { + *call_flags |= DUK_CALL_FLAG_CONSTRUCT_PROXY; /* Enable 'construct' trap return invariant check. */ + *call_flags &= ~(DUK_CALL_FLAG_CONSTRUCT); /* Resume as non-constructor call to the trap. */ + + /* 'apply' args: target, thisArg, argArray + * 'construct' args: target, argArray, newTarget + */ + duk_remove(thr, idx_func + 4); + duk_push_hobject(thr, (duk_hobject *) h_proxy); + } + + /* Finalize value stack layout by removing Proxy reference. */ + duk_remove(thr, idx_func); + h_proxy = NULL; /* invalidated */ + DUK_ASSERT(duk_get_top(thr) == idx_func + 5); +} +#endif /* DUK_USE_ES6_PROXY */ + +/* + * Helper for setting up var_env and lex_env of an activation, + * assuming it does NOT have the DUK_HOBJECT_FLAG_NEWENV flag. + */ + +DUK_LOCAL void duk__handle_oldenv_for_call(duk_hthread *thr, + duk_hobject *func, + duk_activation *act) { + duk_hcompfunc *f; + duk_hobject *h_lex; + duk_hobject *h_var; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(func != NULL); + DUK_ASSERT(act != NULL); + DUK_ASSERT(!DUK_HOBJECT_HAS_NEWENV(func)); + DUK_ASSERT(!DUK_HOBJECT_HAS_CREATEARGS(func)); + DUK_ASSERT(DUK_HOBJECT_IS_COMPFUNC(func)); + DUK_UNREF(thr); + + f = (duk_hcompfunc *) func; + h_lex = DUK_HCOMPFUNC_GET_LEXENV(thr->heap, f); + h_var = DUK_HCOMPFUNC_GET_VARENV(thr->heap, f); + DUK_ASSERT(h_lex != NULL); /* Always true for closures (not for templates) */ + DUK_ASSERT(h_var != NULL); + act->lex_env = h_lex; + act->var_env = h_var; + DUK_HOBJECT_INCREF(thr, h_lex); + DUK_HOBJECT_INCREF(thr, h_var); +} + +/* + * Helper for updating callee 'caller' property. + */ + +#if defined(DUK_USE_NONSTD_FUNC_CALLER_PROPERTY) +DUK_LOCAL void duk__update_func_caller_prop(duk_hthread *thr, duk_hobject *func) { + duk_tval *tv_caller; + duk_hobject *h_tmp; + duk_activation *act_callee; + duk_activation *act_caller; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(func != NULL); + DUK_ASSERT(!DUK_HOBJECT_HAS_BOUNDFUNC(func)); /* bound chain resolved */ + DUK_ASSERT(thr->callstack_top >= 1); + + if (DUK_HOBJECT_HAS_STRICT(func)) { + /* Strict functions don't get their 'caller' updated. */ + return; + } + + DUK_ASSERT(thr->callstack_top > 0); + act_callee = thr->callstack_curr; + DUK_ASSERT(act_callee != NULL); + act_caller = (thr->callstack_top >= 2 ? act_callee->parent : NULL); + + /* XXX: check .caller writability? */ + + /* Backup 'caller' property and update its value. */ + tv_caller = duk_hobject_find_entry_tval_ptr_stridx(thr->heap, func, DUK_STRIDX_CALLER); + if (tv_caller) { + /* If caller is global/eval code, 'caller' should be set to + * 'null'. + * + * XXX: there is no exotic flag to infer this correctly now. + * The NEWENV flag is used now which works as intended for + * everything (global code, non-strict eval code, and functions) + * except strict eval code. Bound functions are never an issue + * because 'func' has been resolved to a non-bound function. + */ + + if (act_caller != NULL) { + /* act_caller->func may be NULL in some finalization cases, + * just treat like we don't know the caller. + */ + if (act_caller->func && !DUK_HOBJECT_HAS_NEWENV(act_caller->func)) { + /* Setting to NULL causes 'caller' to be set to + * 'null' as desired. + */ + act_caller = NULL; + } + } + + if (DUK_TVAL_IS_OBJECT(tv_caller)) { + h_tmp = DUK_TVAL_GET_OBJECT(tv_caller); + DUK_ASSERT(h_tmp != NULL); + act_callee->prev_caller = h_tmp; + + /* Previous value doesn't need refcount changes because its ownership + * is transferred to prev_caller. + */ + + if (act_caller != NULL) { + DUK_ASSERT(act_caller->func != NULL); + DUK_TVAL_SET_OBJECT(tv_caller, act_caller->func); + DUK_TVAL_INCREF(thr, tv_caller); + } else { + DUK_TVAL_SET_NULL(tv_caller); /* no incref */ + } + } else { + /* 'caller' must only take on 'null' or function value */ + DUK_ASSERT(!DUK_TVAL_IS_HEAP_ALLOCATED(tv_caller)); + DUK_ASSERT(act_callee->prev_caller == NULL); + if (act_caller != NULL && act_caller->func) { + /* Tolerate act_caller->func == NULL which happens in + * some finalization cases; treat like unknown caller. + */ + DUK_TVAL_SET_OBJECT(tv_caller, act_caller->func); + DUK_TVAL_INCREF(thr, tv_caller); + } else { + DUK_TVAL_SET_NULL(tv_caller); /* no incref */ + } + } + } +} +#endif /* DUK_USE_NONSTD_FUNC_CALLER_PROPERTY */ + +/* + * Shared helpers for resolving the final, non-bound target function of the + * call and the effective 'this' binding. Resolves bound functions and + * applies .call(), .apply(), and .construct() inline. + * + * Proxy traps are also handled inline so that if the target is a Proxy with + * a 'call' or 'construct' trap, the trap handler is called with a modified + * argument list. + * + * Once the bound function / .call() / .apply() / .construct() sequence has + * been resolved, the value at idx_func + 1 may need coercion described in + * E5 Section 10.4.3. + * + * A call that begins as a non-constructor call may be converted into a + * constructor call during the resolution process if Reflect.construct() + * is invoked. This is handled by updating the caller's call_flags. + * + * For global and eval code (E5 Sections 10.4.1 and 10.4.2), we assume + * that the caller has provided the correct 'this' binding explicitly + * when calling, i.e.: + * + * - global code: this=global object + * - direct eval: this=copy from eval() caller's this binding + * - other eval: this=global object + * + * The 'this' coercion may cause a recursive function call with arbitrary + * side effects, because ToObject() may be called. + */ + +DUK_LOCAL DUK_INLINE void duk__coerce_nonstrict_this_binding(duk_hthread *thr, duk_idx_t idx_this) { + duk_tval *tv_this; + duk_hobject *obj_global; + + tv_this = thr->valstack_bottom + idx_this; + switch (DUK_TVAL_GET_TAG(tv_this)) { + case DUK_TAG_OBJECT: + DUK_DDD(DUK_DDDPRINT("this binding: non-strict, object -> use directly")); + break; + case DUK_TAG_UNDEFINED: + case DUK_TAG_NULL: + DUK_DDD(DUK_DDDPRINT("this binding: non-strict, undefined/null -> use global object")); + obj_global = thr->builtins[DUK_BIDX_GLOBAL]; + /* XXX: avoid this check somehow */ + if (DUK_LIKELY(obj_global != NULL)) { + DUK_ASSERT(!DUK_TVAL_IS_HEAP_ALLOCATED(tv_this)); /* no need to decref previous value */ + DUK_TVAL_SET_OBJECT(tv_this, obj_global); + DUK_HOBJECT_INCREF(thr, obj_global); + } else { + /* This may only happen if built-ins are being "torn down". + * This behavior is out of specification scope. + */ + DUK_D(DUK_DPRINT("this binding: wanted to use global object, but it is NULL -> using undefined instead")); + DUK_ASSERT(!DUK_TVAL_IS_HEAP_ALLOCATED(tv_this)); /* no need to decref previous value */ + DUK_TVAL_SET_UNDEFINED(tv_this); /* nothing to incref */ + } + break; + default: + /* Plain buffers and lightfuncs are object coerced. Lightfuncs + * very rarely come here however, because the call target would + * need to be a non-strict non-lightfunc (lightfuncs are considered + * strict) with an explicit lightfunc 'this' binding. + */ + DUK_ASSERT(!DUK_TVAL_IS_UNUSED(tv_this)); + DUK_DDD(DUK_DDDPRINT("this binding: non-strict, not object/undefined/null -> use ToObject(value)")); + duk_to_object(thr, idx_this); /* may have side effects */ + break; + } +} + +DUK_LOCAL DUK_ALWAYS_INLINE duk_bool_t duk__resolve_target_fastpath_check(duk_hthread *thr, duk_idx_t idx_func, duk_hobject **out_func, duk_small_uint_t call_flags) { +#if defined(DUK_USE_PREFER_SIZE) + DUK_UNREF(thr); + DUK_UNREF(idx_func); + DUK_UNREF(out_func); + DUK_UNREF(call_flags); +#else /* DUK_USE_PREFER_SIZE */ + duk_tval *tv_func; + duk_hobject *func; + + if (DUK_UNLIKELY(call_flags & DUK_CALL_FLAG_CONSTRUCT)) { + return 0; + } + + tv_func = DUK_GET_TVAL_POSIDX(thr, idx_func); + DUK_ASSERT(tv_func != NULL); + + if (DUK_LIKELY(DUK_TVAL_IS_OBJECT(tv_func))) { + func = DUK_TVAL_GET_OBJECT(tv_func); + if (DUK_HOBJECT_IS_CALLABLE(func) && + !DUK_HOBJECT_HAS_BOUNDFUNC(func) && + !DUK_HOBJECT_HAS_SPECIAL_CALL(func)) { + *out_func = func; + + if (DUK_HOBJECT_HAS_STRICT(func)) { + /* Strict function: no 'this' coercion. */ + return 1; + } + + duk__coerce_nonstrict_this_binding(thr, idx_func + 1); + return 1; + } + } else if (DUK_TVAL_IS_LIGHTFUNC(tv_func)) { + *out_func = NULL; + + /* Lightfuncs are considered strict, so 'this' binding is + * used as is. They're never bound, always constructable, + * and never special functions. + */ + return 1; + } +#endif /* DUK_USE_PREFER_SIZE */ + return 0; /* let slow path deal with it */ +} + +DUK_LOCAL duk_hobject *duk__resolve_target_func_and_this_binding(duk_hthread *thr, + duk_idx_t idx_func, + duk_small_uint_t *call_flags) { + duk_tval *tv_func; + duk_hobject *func; + duk_bool_t first; + + DUK_ASSERT(duk_get_top(thr) >= idx_func + 2); + + for (first = 1;; first = 0) { + DUK_ASSERT(duk_get_top(thr) >= idx_func + 2); + + tv_func = DUK_GET_TVAL_POSIDX(thr, idx_func); + DUK_ASSERT(tv_func != NULL); + + DUK_DD(DUK_DDPRINT("target func: %!iT", tv_func)); + + if (DUK_TVAL_IS_OBJECT(tv_func)) { + func = DUK_TVAL_GET_OBJECT(tv_func); + + if (*call_flags & DUK_CALL_FLAG_CONSTRUCT) { + if (DUK_UNLIKELY(!DUK_HOBJECT_HAS_CONSTRUCTABLE(func))) { + goto not_constructable; + } + } else { + if (DUK_UNLIKELY(!DUK_HOBJECT_IS_CALLABLE(func))) { + goto not_callable; + } + } + + if (DUK_LIKELY(!DUK_HOBJECT_HAS_BOUNDFUNC(func) && + !DUK_HOBJECT_HAS_SPECIAL_CALL(func) && + !DUK_HOBJECT_HAS_EXOTIC_PROXYOBJ(func))) { + /* Common case, so test for using a single bitfield test. + * Break out to handle this coercion etc. + */ + break; + } + + /* XXX: could set specialcall for boundfuncs too, simplify check above */ + + if (DUK_HOBJECT_HAS_BOUNDFUNC(func)) { + DUK_ASSERT(!DUK_HOBJECT_HAS_SPECIAL_CALL(func)); + DUK_ASSERT(!DUK_HOBJECT_IS_NATFUNC(func)); + + /* Callable/constructable flags are the same + * for the bound function and its target, so + * we don't need to check them here, we can + * check them from the target only. + */ + duk__handle_bound_chain_for_call(thr, idx_func, *call_flags & DUK_CALL_FLAG_CONSTRUCT); + + DUK_ASSERT(DUK_TVAL_IS_OBJECT(duk_require_tval(thr, idx_func)) || + DUK_TVAL_IS_LIGHTFUNC(duk_require_tval(thr, idx_func))); + } else { + DUK_ASSERT(DUK_HOBJECT_HAS_SPECIAL_CALL(func)); + +#if defined(DUK_USE_ES6_PROXY) + if (DUK_HOBJECT_HAS_EXOTIC_PROXYOBJ(func)) { + /* If no trap, resume processing from Proxy trap. + * If trap exists, helper converts call into a trap + * call; this may change a constructor call into a + * normal (non-constructor) trap call. We must + * continue processing even when a trap is found as + * the trap may be bound. + */ + duk__handle_proxy_for_call(thr, idx_func, (duk_hproxy *) func, call_flags); + } + else +#endif + { + DUK_ASSERT(DUK_HOBJECT_IS_NATFUNC(func)); + DUK_ASSERT(DUK_HOBJECT_HAS_CALLABLE(func)); + DUK_ASSERT(!DUK_HOBJECT_HAS_CONSTRUCTABLE(func)); + /* Constructable check already done above. */ + + if (duk__handle_specialfuncs_for_call(thr, idx_func, func, call_flags, first) != 0) { + /* Encountered native eval call, normal call + * context. Break out, handle this coercion etc. + */ + break; + } + } + } + /* Retry loop. */ + } else if (DUK_TVAL_IS_LIGHTFUNC(tv_func)) { + /* Lightfuncs are: + * - Always strict, so no 'this' coercion. + * - Always callable. + * - Always constructable. + * - Never specialfuncs. + */ + func = NULL; + goto finished; + } else { + goto not_callable; + } + } + + DUK_ASSERT(func != NULL); + + if (!DUK_HOBJECT_HAS_STRICT(func)) { + /* Non-strict target needs 'this' coercion. + * This has potential side effects invalidating + * 'tv_func'. + */ + duk__coerce_nonstrict_this_binding(thr, idx_func + 1); + } + if (*call_flags & DUK_CALL_FLAG_CONSTRUCT) { + if (!(*call_flags & DUK_CALL_FLAG_DEFAULT_INSTANCE_UPDATED)) { + *call_flags |= DUK_CALL_FLAG_DEFAULT_INSTANCE_UPDATED; + duk__update_default_instance_proto(thr, idx_func); + } + } + + finished: + +#if defined(DUK_USE_ASSERTIONS) + { + duk_tval *tv_tmp; + + tv_tmp = duk_get_tval(thr, idx_func); + DUK_ASSERT(tv_tmp != NULL); + + DUK_ASSERT((DUK_TVAL_IS_OBJECT(tv_tmp) && DUK_HOBJECT_IS_CALLABLE(DUK_TVAL_GET_OBJECT(tv_tmp))) || + DUK_TVAL_IS_LIGHTFUNC(tv_tmp)); + DUK_ASSERT(func == NULL || !DUK_HOBJECT_HAS_BOUNDFUNC(func)); + DUK_ASSERT(func == NULL || (DUK_HOBJECT_IS_COMPFUNC(func) || + DUK_HOBJECT_IS_NATFUNC(func))); + DUK_ASSERT(func == NULL || (DUK_HOBJECT_HAS_CONSTRUCTABLE(func) || + (*call_flags & DUK_CALL_FLAG_CONSTRUCT) == 0)); + } +#endif + + return func; + + not_callable: + DUK_ASSERT(tv_func != NULL); + +#if defined(DUK_USE_VERBOSE_ERRORS) + /* GETPROPC delayed error handling: when target is not callable, + * GETPROPC replaces idx_func+0 with a non-callable wrapper object + * with a hidden Symbol to signify it's to be handled here. If + * found, unwrap the original Error and throw it as is here. The + * hidden Symbol is only checked as an own property, not inherited + * (which would be dangerous). + */ + if (DUK_TVAL_IS_OBJECT(tv_func)) { + duk_tval *tv_wrap = duk_hobject_find_entry_tval_ptr_stridx(thr->heap, DUK_TVAL_GET_OBJECT(tv_func), DUK_STRIDX_INT_TARGET); + if (tv_wrap != NULL) { + DUK_DD(DUK_DDPRINT("delayed error from GETPROPC: %!T", tv_wrap)); + duk_push_tval(thr, tv_wrap); + (void) duk_throw(thr); + DUK_WO_NORETURN(return NULL;); + } + } +#endif + +#if defined(DUK_USE_VERBOSE_ERRORS) +#if defined(DUK_USE_PARANOID_ERRORS) + DUK_ERROR_FMT1(thr, DUK_ERR_TYPE_ERROR, "%s not callable", duk_get_type_name(thr, idx_func)); +#else + DUK_ERROR_FMT1(thr, DUK_ERR_TYPE_ERROR, "%s not callable", duk_push_string_tval_readable(thr, tv_func)); +#endif +#else + DUK_ERROR_TYPE(thr, DUK_STR_NOT_CALLABLE); +#endif + DUK_WO_NORETURN(return NULL;); + + not_constructable: + /* For now GETPROPC delayed error not needed for constructor calls. */ +#if defined(DUK_USE_VERBOSE_ERRORS) +#if defined(DUK_USE_PARANOID_ERRORS) + DUK_ERROR_FMT1(thr, DUK_ERR_TYPE_ERROR, "%s not constructable", duk_get_type_name(thr, idx_func)); +#else + DUK_ERROR_FMT1(thr, DUK_ERR_TYPE_ERROR, "%s not constructable", duk_push_string_tval_readable(thr, tv_func)); +#endif +#else + DUK_ERROR_TYPE(thr, DUK_STR_NOT_CONSTRUCTABLE); +#endif + DUK_WO_NORETURN(return NULL;); +} + +/* + * Manipulate value stack so that exactly 'num_stack_rets' return + * values are at 'idx_retbase' in every case, assuming there are + * 'rc' return values on top of stack. + * + * This is a bit tricky, because the called C function operates in + * the same activation record and may have e.g. popped the stack + * empty (below idx_retbase). + */ + +DUK_LOCAL void duk__safe_call_adjust_valstack(duk_hthread *thr, duk_idx_t idx_retbase, duk_idx_t num_stack_rets, duk_idx_t num_actual_rets) { + duk_idx_t idx_rcbase; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(idx_retbase >= 0); + DUK_ASSERT(num_stack_rets >= 0); + DUK_ASSERT(num_actual_rets >= 0); + + idx_rcbase = duk_get_top(thr) - num_actual_rets; /* base of known return values */ + if (DUK_UNLIKELY(idx_rcbase < 0)) { + DUK_ERROR_TYPE(thr, DUK_STR_INVALID_CFUNC_RC); + DUK_WO_NORETURN(return;); + } + + DUK_DDD(DUK_DDDPRINT("adjust valstack after func call: " + "num_stack_rets=%ld, num_actual_rets=%ld, stack_top=%ld, idx_retbase=%ld, idx_rcbase=%ld", + (long) num_stack_rets, (long) num_actual_rets, (long) duk_get_top(thr), + (long) idx_retbase, (long) idx_rcbase)); + + DUK_ASSERT(idx_rcbase >= 0); /* caller must check */ + + /* Space for num_stack_rets was reserved before the safe call. + * Because value stack reserve cannot shrink except in call returns, + * the reserve is still in place. Adjust valstack, carefully + * ensuring we don't overstep the reserve. + */ + + /* Match idx_rcbase with idx_retbase so that the return values + * start at the correct index. + */ + if (idx_rcbase > idx_retbase) { + duk_idx_t count = idx_rcbase - idx_retbase; + + DUK_DDD(DUK_DDDPRINT("elements at/after idx_retbase have enough to cover func retvals " + "(idx_retbase=%ld, idx_rcbase=%ld)", (long) idx_retbase, (long) idx_rcbase)); + + /* Remove values between irc_rcbase (start of intended return + * values) and idx_retbase to lower return values to idx_retbase. + */ + DUK_ASSERT(count > 0); + duk_remove_n(thr, idx_retbase, count); /* may be NORZ */ + } else { + duk_idx_t count = idx_retbase - idx_rcbase; + + DUK_DDD(DUK_DDDPRINT("not enough elements at/after idx_retbase to cover func retvals " + "(idx_retbase=%ld, idx_rcbase=%ld)", (long) idx_retbase, (long) idx_rcbase)); + + /* Insert 'undefined' at idx_rcbase (start of intended return + * values) to lift return values to idx_retbase. + */ + DUK_ASSERT(count >= 0); + DUK_ASSERT(thr->valstack_end - thr->valstack_top >= count); /* reserve cannot shrink */ + duk_insert_undefined_n(thr, idx_rcbase, count); + } + + /* Chop extra retvals away / extend with undefined. */ + duk_set_top_unsafe(thr, idx_retbase + num_stack_rets); +} + +/* + * Activation setup for tailcalls and non-tailcalls. + */ + +#if defined(DUK_USE_TAILCALL) +DUK_LOCAL duk_small_uint_t duk__call_setup_act_attempt_tailcall(duk_hthread *thr, + duk_small_uint_t call_flags, + duk_idx_t idx_func, + duk_hobject *func, + duk_size_t entry_valstack_bottom_byteoff, + duk_size_t entry_valstack_end_byteoff, + duk_idx_t *out_nargs, + duk_idx_t *out_nregs, + duk_size_t *out_vs_min_bytes, + duk_activation **out_act) { + duk_activation *act; + duk_tval *tv1, *tv2; + duk_idx_t idx_args; + duk_small_uint_t flags1, flags2; +#if defined(DUK_USE_DEBUGGER_SUPPORT) + duk_activation *prev_pause_act; +#endif + + DUK_UNREF(entry_valstack_end_byteoff); + + /* Tailcall cannot be flagged to resume calls, and a + * previous frame must exist. + */ + DUK_ASSERT(thr->callstack_top >= 1); + + act = thr->callstack_curr; + DUK_ASSERT(act != NULL); + *out_act = act; + + if (func == NULL || !DUK_HOBJECT_IS_COMPFUNC(func)) { + DUK_DDD(DUK_DDDPRINT("tail call prevented by target not being ecma function")); + return 0; + } + if (act->flags & DUK_ACT_FLAG_PREVENT_YIELD) { + DUK_DDD(DUK_DDDPRINT("tail call prevented by current activation having DUK_ACT_FLAG_PREVENT_YIELD")); + return 0; + } + /* Tailcall is only allowed if current and candidate + * function have identical return value handling. There + * are three possible return value handling cases: + * 1. Normal function call, no special return value handling. + * 2. Constructor call, return value replacement object check. + * 3. Proxy 'construct' trap call, return value invariant check. + */ + flags1 = (duk_small_uint_t) ((act->flags & DUK_ACT_FLAG_CONSTRUCT) ? 1 : 0) +#if defined(DUK_USE_ES6_PROXY) + | (duk_small_uint_t) ((act->flags & DUK_ACT_FLAG_CONSTRUCT_PROXY) ? 2 : 0) +#endif + ; + flags2 = (duk_small_uint_t) ((call_flags & DUK_CALL_FLAG_CONSTRUCT) ? 1 : 0) +#if defined(DUK_USE_ES6_PROXY) + | (duk_small_uint_t) ((call_flags & DUK_CALL_FLAG_CONSTRUCT_PROXY) ? 2 : 0); +#endif + ; + if (flags1 != flags2) { + DUK_DDD(DUK_DDDPRINT("tail call prevented by incompatible return value handling")); + return 0; + } + DUK_ASSERT(((act->flags & DUK_ACT_FLAG_CONSTRUCT) && (call_flags & DUK_CALL_FLAG_CONSTRUCT)) || + (!(act->flags & DUK_ACT_FLAG_CONSTRUCT) && !(call_flags & DUK_CALL_FLAG_CONSTRUCT))); + DUK_ASSERT(((act->flags & DUK_ACT_FLAG_CONSTRUCT_PROXY) && (call_flags & DUK_CALL_FLAG_CONSTRUCT_PROXY)) || + (!(act->flags & DUK_ACT_FLAG_CONSTRUCT_PROXY) && !(call_flags & DUK_CALL_FLAG_CONSTRUCT_PROXY))); + if (DUK_HOBJECT_HAS_NOTAIL(func)) { + /* See: test-bug-tailcall-preventyield-assert.c. */ + DUK_DDD(DUK_DDDPRINT("tail call prevented by function having a notail flag")); + return 0; + } + + /* + * Tailcall handling + * + * Although the callstack entry is reused, we need to explicitly unwind + * the current activation (or simulate an unwind). In particular, the + * current activation must be closed, otherwise something like + * test-bug-reduce-judofyr.js results. Also catchers need to be unwound + * because there may be non-error-catching label entries in valid tail calls. + * + * Special attention is needed for debugger and pause behavior when + * reusing an activation. + * - Disable StepOut processing for the activation unwind because + * we reuse the activation, see: + * https://github.com/svaarala/duktape/issues/1684. + * - Disable line change pause flag permanently if act == dbg_pause_act + * (if set) because it would no longer be relevant, see: + * https://github.com/svaarala/duktape/issues/1726, + * https://github.com/svaarala/duktape/issues/1786. + * - Check for function entry (e.g. StepInto) pause flag here, because + * the executor pause check won't trigger due to shared activation, see: + * https://github.com/svaarala/duktape/issues/1726. + */ + + DUK_DDD(DUK_DDDPRINT("is tail call, reusing activation at callstack top, at index %ld", + (long) (thr->callstack_top - 1))); + + DUK_ASSERT(!DUK_HOBJECT_HAS_BOUNDFUNC(func)); + DUK_ASSERT(!DUK_HOBJECT_HAS_NATFUNC(func)); + DUK_ASSERT(DUK_HOBJECT_HAS_COMPFUNC(func)); + DUK_ASSERT((act->flags & DUK_ACT_FLAG_PREVENT_YIELD) == 0); + DUK_ASSERT(call_flags & DUK_CALL_FLAG_ALLOW_ECMATOECMA); + + /* Unwind the topmost callstack entry before reusing it. This + * also unwinds the catchers related to the topmost entry. + */ + DUK_ASSERT(thr->callstack_top > 0); + DUK_ASSERT(thr->callstack_curr != NULL); +#if defined(DUK_USE_DEBUGGER_SUPPORT) + if (act == thr->heap->dbg_pause_act) { + thr->heap->dbg_pause_flags &= ~DUK_PAUSE_FLAG_LINE_CHANGE; + } + + prev_pause_act = thr->heap->dbg_pause_act; + thr->heap->dbg_pause_act = NULL; + if (thr->heap->dbg_pause_flags & DUK_PAUSE_FLAG_FUNC_ENTRY) { + DUK_D(DUK_DPRINT("PAUSE TRIGGERED by function entry (tailcall)")); + duk_debug_set_paused(thr->heap); + } +#endif + duk_hthread_activation_unwind_reuse_norz(thr); +#if defined(DUK_USE_DEBUGGER_SUPPORT) + thr->heap->dbg_pause_act = prev_pause_act; +#endif + DUK_ASSERT(act == thr->callstack_curr); + + /* XXX: We could restore the caller's value stack reserve + * here, as if we did an actual unwind-and-call. Without + * the restoration, value stack reserve may remain higher + * than would otherwise be possible until we return to a + * non-tailcall. + */ + + /* Then reuse the unwound activation. */ + act->cat = NULL; + act->var_env = NULL; + act->lex_env = NULL; + DUK_ASSERT(func != NULL); + DUK_ASSERT(DUK_HOBJECT_HAS_COMPFUNC(func)); + act->func = func; /* don't want an intermediate exposed state with func == NULL */ +#if defined(DUK_USE_NONSTD_FUNC_CALLER_PROPERTY) + act->prev_caller = NULL; +#endif + /* don't want an intermediate exposed state with invalid pc */ + act->curr_pc = DUK_HCOMPFUNC_GET_CODE_BASE(thr->heap, (duk_hcompfunc *) func); +#if defined(DUK_USE_DEBUGGER_SUPPORT) + act->prev_line = 0; +#endif + DUK_TVAL_SET_OBJECT(&act->tv_func, func); /* borrowed, no refcount */ + DUK_HOBJECT_INCREF(thr, func); + + act->flags = DUK_ACT_FLAG_TAILCALLED; + if (DUK_HOBJECT_HAS_STRICT(func)) { + act->flags |= DUK_ACT_FLAG_STRICT; + } + if (call_flags & DUK_CALL_FLAG_CONSTRUCT) { + act->flags |= DUK_ACT_FLAG_CONSTRUCT; + } +#if defined(DUK_USE_ES6_PROXY) + if (call_flags & DUK_CALL_FLAG_CONSTRUCT_PROXY) { + act->flags |= DUK_ACT_FLAG_CONSTRUCT_PROXY; + } +#endif + + DUK_ASSERT(DUK_ACT_GET_FUNC(act) == func); /* already updated */ + DUK_ASSERT(act->var_env == NULL); + DUK_ASSERT(act->lex_env == NULL); + act->bottom_byteoff = entry_valstack_bottom_byteoff; /* tail call -> reuse current "frame" */ +#if 0 + /* Topmost activation retval_byteoff is considered garbage, no need to init. */ + act->retval_byteoff = 0; +#endif + /* Filled in when final reserve is known, dummy value doesn't matter + * even in error unwind because reserve_byteoff is only used when + * returning to -this- activation. + */ + act->reserve_byteoff = 0; + + /* + * Manipulate valstack so that args are on the current bottom and the + * previous caller's 'this' binding (which is the value preceding the + * current bottom) is replaced with the new 'this' binding: + * + * [ ... this_old | (crud) func this_new arg1 ... argN ] + * --> [ ... this_new | arg1 ... argN ] + * + * For tail calling to work properly, the valstack bottom must not grow + * here; otherwise crud would accumulate on the valstack. + */ + + tv1 = thr->valstack_bottom - 1; + tv2 = thr->valstack_bottom + idx_func + 1; + DUK_ASSERT(tv1 >= thr->valstack && tv1 < thr->valstack_top); /* tv1 is -below- valstack_bottom */ + DUK_ASSERT(tv2 >= thr->valstack_bottom && tv2 < thr->valstack_top); + DUK_TVAL_SET_TVAL_UPDREF(thr, tv1, tv2); /* side effects */ + + idx_args = idx_func + 2; + duk_remove_n(thr, 0, idx_args); /* may be NORZ */ + + idx_func = 0; DUK_UNREF(idx_func); /* really 'not applicable' anymore, should not be referenced after this */ + idx_args = 0; + + *out_nargs = ((duk_hcompfunc *) func)->nargs; + *out_nregs = ((duk_hcompfunc *) func)->nregs; + DUK_ASSERT(*out_nregs >= 0); + DUK_ASSERT(*out_nregs >= *out_nargs); + *out_vs_min_bytes = entry_valstack_bottom_byteoff + sizeof(duk_tval) * ((duk_size_t) *out_nregs + DUK_VALSTACK_INTERNAL_EXTRA); + + +#if defined(DUK_USE_NONSTD_FUNC_CALLER_PROPERTY) +#if defined(DUK_USE_TAILCALL) +#error incorrect options: tail calls enabled with function caller property +#endif + /* XXX: This doesn't actually work properly for tail calls, so + * tail calls are disabled when DUK_USE_NONSTD_FUNC_CALLER_PROPERTY + * is in use. + */ + duk__update_func_caller_prop(thr, func); +#endif + + /* [ ... this_new | arg1 ... argN ] */ + + return 1; +} +#endif /* DUK_USE_TAILCALL */ + +DUK_LOCAL void duk__call_setup_act_not_tailcall(duk_hthread *thr, + duk_small_uint_t call_flags, + duk_idx_t idx_func, + duk_hobject *func, + duk_size_t entry_valstack_bottom_byteoff, + duk_size_t entry_valstack_end_byteoff, + duk_idx_t *out_nargs, + duk_idx_t *out_nregs, + duk_size_t *out_vs_min_bytes, + duk_activation **out_act) { + duk_activation *act; + duk_activation *new_act; + + DUK_UNREF(entry_valstack_end_byteoff); + + DUK_DDD(DUK_DDDPRINT("not a tail call, pushing a new activation to callstack, to index %ld", + (long) (thr->callstack_top))); + + duk__call_callstack_limit_check(thr); + new_act = duk_hthread_activation_alloc(thr); + DUK_ASSERT(new_act != NULL); + + act = thr->callstack_curr; + if (act != NULL) { + /* + * Update return value stack index of current activation (if any). + * + * Although it might seem this is not necessary (bytecode executor + * does this for ECMAScript-to-ECMAScript calls; other calls are + * handled here), this turns out to be necessary for handling yield + * and resume. For them, an ECMAScript-to-native call happens, and + * the ECMAScript call's retval_byteoff must be set for things to work. + */ + + act->retval_byteoff = entry_valstack_bottom_byteoff + (duk_size_t) idx_func * sizeof(duk_tval); + } + + new_act->parent = act; + thr->callstack_curr = new_act; + thr->callstack_top++; + act = new_act; + *out_act = act; + + DUK_ASSERT(thr->valstack_top > thr->valstack_bottom); /* at least effective 'this' */ + DUK_ASSERT(func == NULL || !DUK_HOBJECT_HAS_BOUNDFUNC(func)); + + act->cat = NULL; + + act->flags = 0; + if (call_flags & DUK_CALL_FLAG_CONSTRUCT) { + act->flags |= DUK_ACT_FLAG_CONSTRUCT; + } +#if defined(DUK_USE_ES6_PROXY) + if (call_flags & DUK_CALL_FLAG_CONSTRUCT_PROXY) { + act->flags |= DUK_ACT_FLAG_CONSTRUCT_PROXY; + } +#endif + if (call_flags & DUK_CALL_FLAG_DIRECT_EVAL) { + act->flags |= DUK_ACT_FLAG_DIRECT_EVAL; + } + + /* start of arguments: idx_func + 2. */ + act->func = func; /* NULL for lightfunc */ + if (DUK_LIKELY(func != NULL)) { + DUK_TVAL_SET_OBJECT(&act->tv_func, func); /* borrowed, no refcount */ + if (DUK_HOBJECT_HAS_STRICT(func)) { + act->flags |= DUK_ACT_FLAG_STRICT; + } + if (DUK_HOBJECT_IS_COMPFUNC(func)) { + *out_nargs = ((duk_hcompfunc *) func)->nargs; + *out_nregs = ((duk_hcompfunc *) func)->nregs; + DUK_ASSERT(*out_nregs >= 0); + DUK_ASSERT(*out_nregs >= *out_nargs); + *out_vs_min_bytes = entry_valstack_bottom_byteoff + + sizeof(duk_tval) * ((duk_size_t) idx_func + 2U + (duk_size_t) *out_nregs + DUK_VALSTACK_INTERNAL_EXTRA); + } else { + /* True because of call target lookup checks. */ + DUK_ASSERT(DUK_HOBJECT_IS_NATFUNC(func)); + + *out_nargs = ((duk_hnatfunc *) func)->nargs; + *out_nregs = *out_nargs; + if (*out_nargs >= 0) { + *out_vs_min_bytes = entry_valstack_bottom_byteoff + + sizeof(duk_tval) * ((duk_size_t) idx_func + 2U + (duk_size_t) *out_nregs + DUK_VALSTACK_API_ENTRY_MINIMUM + DUK_VALSTACK_INTERNAL_EXTRA); + } else { + /* Vararg function. */ + duk_size_t valstack_top_byteoff = (duk_size_t) ((duk_uint8_t *) thr->valstack_top - ((duk_uint8_t *) thr->valstack)); + *out_vs_min_bytes = valstack_top_byteoff + + sizeof(duk_tval) * (DUK_VALSTACK_API_ENTRY_MINIMUM + DUK_VALSTACK_INTERNAL_EXTRA); + } + } + } else { + duk_small_uint_t lf_flags; + duk_tval *tv_func; + + act->flags |= DUK_ACT_FLAG_STRICT; + + tv_func = DUK_GET_TVAL_POSIDX(thr, idx_func); + DUK_ASSERT(DUK_TVAL_IS_LIGHTFUNC(tv_func)); + DUK_TVAL_SET_TVAL(&act->tv_func, tv_func); /* borrowed, no refcount */ + + lf_flags = DUK_TVAL_GET_LIGHTFUNC_FLAGS(tv_func); + *out_nargs = DUK_LFUNC_FLAGS_GET_NARGS(lf_flags); + if (*out_nargs != DUK_LFUNC_NARGS_VARARGS) { + *out_vs_min_bytes = entry_valstack_bottom_byteoff + + sizeof(duk_tval) * ((duk_size_t) idx_func + 2U + (duk_size_t) *out_nargs + DUK_VALSTACK_API_ENTRY_MINIMUM + DUK_VALSTACK_INTERNAL_EXTRA); + } else { + duk_size_t valstack_top_byteoff = (duk_size_t) ((duk_uint8_t *) thr->valstack_top - ((duk_uint8_t *) thr->valstack)); + *out_vs_min_bytes = valstack_top_byteoff + + sizeof(duk_tval) * (DUK_VALSTACK_API_ENTRY_MINIMUM + DUK_VALSTACK_INTERNAL_EXTRA); + *out_nargs = -1; /* vararg */ + } + *out_nregs = *out_nargs; + } + + act->var_env = NULL; + act->lex_env = NULL; +#if defined(DUK_USE_NONSTD_FUNC_CALLER_PROPERTY) + act->prev_caller = NULL; +#endif + act->curr_pc = NULL; +#if defined(DUK_USE_DEBUGGER_SUPPORT) + act->prev_line = 0; +#endif + act->bottom_byteoff = entry_valstack_bottom_byteoff + sizeof(duk_tval) * ((duk_size_t) idx_func + 2U); +#if 0 + act->retval_byteoff = 0; /* topmost activation retval_byteoff is considered garbage, no need to init */ +#endif + /* Filled in when final reserve is known, dummy value doesn't matter + * even in error unwind because reserve_byteoff is only used when + * returning to -this- activation. + */ + act->reserve_byteoff = 0; /* filled in by caller */ + + /* XXX: Is this INCREF necessary? 'func' is always a borrowed + * reference reachable through the value stack? If changed, stack + * unwind code also needs to be fixed to match. + */ + DUK_HOBJECT_INCREF_ALLOWNULL(thr, func); /* act->func */ + +#if defined(DUK_USE_NONSTD_FUNC_CALLER_PROPERTY) + if (func) { + duk__update_func_caller_prop(thr, func); + } +#endif +} + +/* + * Environment setup. + */ + +DUK_LOCAL void duk__call_env_setup(duk_hthread *thr, duk_hobject *func, duk_activation *act, duk_idx_t idx_args) { + duk_hobject *env; + + DUK_ASSERT(func == NULL || !DUK_HOBJECT_HAS_BOUNDFUNC(func)); /* bound function has already been resolved */ + + if (DUK_LIKELY(func != NULL)) { + if (DUK_LIKELY(DUK_HOBJECT_HAS_NEWENV(func))) { + DUK_STATS_INC(thr->heap, stats_envrec_newenv); + if (DUK_LIKELY(!DUK_HOBJECT_HAS_CREATEARGS(func))) { + /* Use a new environment but there's no 'arguments' object; + * delayed environment initialization. This is the most + * common case. + */ + DUK_ASSERT(act->lex_env == NULL); + DUK_ASSERT(act->var_env == NULL); + } else { + /* Use a new environment and there's an 'arguments' object. + * We need to initialize it right now. + */ + + /* third arg: absolute index (to entire valstack) of bottom_byteoff of new activation */ + env = duk_create_activation_environment_record(thr, func, act->bottom_byteoff); + DUK_ASSERT(env != NULL); + + /* [ ... func this arg1 ... argN envobj ] */ + + DUK_ASSERT(DUK_HOBJECT_HAS_CREATEARGS(func)); + duk__handle_createargs_for_call(thr, func, env, idx_args); + + /* [ ... func this arg1 ... argN envobj ] */ + + act->lex_env = env; + act->var_env = env; + DUK_HOBJECT_INCREF(thr, env); + DUK_HOBJECT_INCREF(thr, env); /* XXX: incref by count (2) directly */ + duk_pop(thr); + } + } else { + /* Use existing env (e.g. for non-strict eval); cannot have + * an own 'arguments' object (but can refer to an existing one). + */ + + DUK_ASSERT(!DUK_HOBJECT_HAS_CREATEARGS(func)); + + DUK_STATS_INC(thr->heap, stats_envrec_oldenv); + duk__handle_oldenv_for_call(thr, func, act); + + DUK_ASSERT(act->lex_env != NULL); + DUK_ASSERT(act->var_env != NULL); + } + } else { + /* Lightfuncs are always native functions and have "newenv". */ + DUK_ASSERT(act->lex_env == NULL); + DUK_ASSERT(act->var_env == NULL); + DUK_STATS_INC(thr->heap, stats_envrec_newenv); + } +} + +/* + * Misc shared helpers. + */ + +/* Check thread state, update current thread. */ +DUK_LOCAL void duk__call_thread_state_update(duk_hthread *thr) { + DUK_ASSERT(thr != NULL); + + if (DUK_LIKELY(thr == thr->heap->curr_thread)) { + if (DUK_UNLIKELY(thr->state != DUK_HTHREAD_STATE_RUNNING)) { + /* Should actually never happen, but check anyway. */ + goto thread_state_error; + } + } else { + DUK_ASSERT(thr->heap->curr_thread == NULL || + thr->heap->curr_thread->state == DUK_HTHREAD_STATE_RUNNING); + if (DUK_UNLIKELY(thr->state != DUK_HTHREAD_STATE_INACTIVE)) { + goto thread_state_error; + } + DUK_HEAP_SWITCH_THREAD(thr->heap, thr); + thr->state = DUK_HTHREAD_STATE_RUNNING; + + /* Multiple threads may be simultaneously in the RUNNING + * state, but not in the same "resume chain". + */ + } + DUK_ASSERT(thr->heap->curr_thread == thr); + DUK_ASSERT(thr->state == DUK_HTHREAD_STATE_RUNNING); + return; + + thread_state_error: + DUK_ERROR_FMT1(thr, DUK_ERR_TYPE_ERROR, "invalid thread state (%ld)", (long) thr->state); + DUK_WO_NORETURN(return;); +} + +/* + * Main unprotected call handler, handles: + * + * - All combinations of native/ECMAScript caller and native/ECMAScript + * target. + * + * - Optimized ECMAScript-to-ECMAScript call where call handling only + * sets up a new duk_activation but reuses an existing bytecode executor + * (the caller) without native recursion. + * + * - Tailcalls, where an activation is reused without increasing call + * stack (duk_activation) depth. + * + * - Setup for an initial Duktape.Thread.resume(). + * + * The call handler doesn't provide any protection guarantees, protected calls + * must be implemented e.g. by wrapping the call in a duk_safe_call(). + * Call setup may fail at any stage, even when the new activation is in + * place; the only guarantee is that the state is consistent for unwinding. + */ + +DUK_LOCAL duk_int_t duk__handle_call_raw(duk_hthread *thr, + duk_idx_t idx_func, + duk_small_uint_t call_flags) { +#if defined(DUK_USE_ASSERTIONS) + duk_activation *entry_act; + duk_size_t entry_callstack_top; +#endif + duk_size_t entry_valstack_bottom_byteoff; + duk_size_t entry_valstack_end_byteoff; + duk_int_t entry_call_recursion_depth; + duk_hthread *entry_curr_thread; + duk_uint_fast8_t entry_thread_state; + duk_instr_t **entry_ptr_curr_pc; + duk_idx_t idx_args; + duk_idx_t nargs; /* # argument registers target function wants (< 0 => "as is") */ + duk_idx_t nregs; /* # total registers target function wants on entry (< 0 => "as is") */ + duk_size_t vs_min_bytes; /* minimum value stack size (bytes) for handling call */ + duk_hobject *func; /* 'func' on stack (borrowed reference) */ + duk_activation *act; + duk_ret_t rc; + duk_small_uint_t use_tailcall; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(thr->heap != NULL); + /* Asserts for heap->curr_thread omitted: it may be NULL, 'thr', or + * any other thread (e.g. when heap thread is used to run finalizers). + */ + DUK_CTX_ASSERT_VALID(thr); + DUK_ASSERT(duk_is_valid_index(thr, idx_func)); + DUK_ASSERT(idx_func >= 0); + + DUK_STATS_INC(thr->heap, stats_call_all); + + /* If a tail call: + * - an ECMAScript activation must be on top of the callstack + * - there cannot be any catch stack entries that would catch + * a return + */ +#if defined(DUK_USE_ASSERTIONS) + if (call_flags & DUK_CALL_FLAG_TAILCALL) { + duk_activation *tmp_act; + duk_catcher *tmp_cat; + + DUK_ASSERT(thr->callstack_top >= 1); + DUK_ASSERT(DUK_ACT_GET_FUNC(thr->callstack_curr) != NULL); + DUK_ASSERT(DUK_HOBJECT_IS_COMPFUNC(DUK_ACT_GET_FUNC(thr->callstack_curr))); + + /* No entry in the catch stack which would actually catch a + * throw can refer to the callstack entry being reused. + * There *can* be catch stack entries referring to the current + * callstack entry as long as they don't catch (e.g. label sites). + */ + + tmp_act = thr->callstack_curr; + for (tmp_cat = tmp_act->cat; tmp_cat != NULL; tmp_cat = tmp_cat->parent) { + DUK_ASSERT(DUK_CAT_GET_TYPE(tmp_cat) == DUK_CAT_TYPE_LABEL); /* a non-catching entry */ + } + } +#endif /* DUK_USE_ASSERTIONS */ + + /* + * Store entry state. + */ + +#if defined(DUK_USE_ASSERTIONS) + entry_act = thr->callstack_curr; + entry_callstack_top = thr->callstack_top; +#endif + entry_valstack_bottom_byteoff = (duk_size_t) ((duk_uint8_t *) thr->valstack_bottom - (duk_uint8_t *) thr->valstack); + entry_valstack_end_byteoff = (duk_size_t) ((duk_uint8_t *) thr->valstack_end - (duk_uint8_t *) thr->valstack); + entry_call_recursion_depth = thr->heap->call_recursion_depth; + entry_curr_thread = thr->heap->curr_thread; /* may be NULL if first call */ + entry_thread_state = thr->state; + entry_ptr_curr_pc = thr->ptr_curr_pc; /* may be NULL */ + + /* If thr->ptr_curr_pc is set, sync curr_pc to act->pc. Then NULL + * thr->ptr_curr_pc so that it's not accidentally used with an incorrect + * activation when side effects occur. + */ + duk_hthread_sync_and_null_currpc(thr); + DUK_ASSERT(thr->ptr_curr_pc == NULL); + + DUK_DD(DUK_DDPRINT("duk__handle_call_raw: thr=%p, idx_func=%ld, " + "call_flags=0x%08lx (constructor=%ld), " + "valstack_top=%ld, idx_func=%ld, idx_args=%ld, rec_depth=%ld/%ld, " + "entry_valstack_bottom_byteoff=%ld, entry_valstack_end_byteoff=%ld, " + "entry_call_recursion_depth=%ld, " + "entry_curr_thread=%p, entry_thread_state=%ld", + (void *) thr, + (long) idx_func, + (unsigned long) call_flags, + (long) ((call_flags & DUK_CALL_FLAG_CONSTRUCT) != 0 ? 1 : 0), + (long) duk_get_top(thr), + (long) idx_func, + (long) (idx_func + 2), + (long) thr->heap->call_recursion_depth, + (long) thr->heap->call_recursion_limit, + (long) entry_valstack_bottom_byteoff, + (long) entry_valstack_end_byteoff, + (long) entry_call_recursion_depth, + (void *) entry_curr_thread, + (long) entry_thread_state)); + + /* + * Thread state check and book-keeping. + */ + + duk__call_thread_state_update(thr); + + /* + * Increase call recursion depth as early as possible so that if we + * enter a recursive call for any reason there's a backstop to native + * recursion. This can happen e.g. for almost any property read + * because it may cause a getter call or a Proxy trap (GC and finalizers + * are not an issue because they are not recursive). If we end up + * doing an Ecma-to-Ecma call, revert the increase. (See GH-2032.) + * + * For similar reasons, ensure there is a known value stack spare + * even before we actually prepare the value stack for the target + * function. If this isn't done, early recursion may consume the + * value stack space. + * + * XXX: Should bump yield preventcount early, for the same reason. + */ + + duk__call_c_recursion_limit_check(thr); + thr->heap->call_recursion_depth++; + duk_require_stack(thr, DUK__CALL_HANDLING_REQUIRE_STACK); + + /* + * Resolve final target function; handle bound functions and special + * functions like .call() and .apply(). Also figure out the effective + * 'this' binding, which replaces the current value at idx_func + 1. + */ + + if (DUK_LIKELY(duk__resolve_target_fastpath_check(thr, idx_func, &func, call_flags) != 0U)) { + DUK_DDD(DUK_DDDPRINT("fast path target resolve")); + } else { + DUK_DDD(DUK_DDDPRINT("slow path target resolve")); + func = duk__resolve_target_func_and_this_binding(thr, idx_func, &call_flags); + } + DUK_ASSERT(duk_get_top(thr) - idx_func >= 2); /* at least func and this present */ + + DUK_ASSERT(func == NULL || !DUK_HOBJECT_HAS_BOUNDFUNC(func)); + DUK_ASSERT(func == NULL || (DUK_HOBJECT_IS_COMPFUNC(func) || + DUK_HOBJECT_IS_NATFUNC(func))); + + /* [ ... func this arg1 ... argN ] */ + + /* + * Setup a preliminary activation and figure out nargs/nregs and + * value stack minimum size. + * + * Don't touch valstack_bottom or valstack_top yet so that Duktape API + * calls work normally. + * + * Because 'act' is not zeroed, all fields must be filled in. + */ + + /* Should not be necessary, but initialize to silence warnings. */ + act = NULL; + nargs = 0; + nregs = 0; + vs_min_bytes = 0; + +#if defined(DUK_USE_TAILCALL) + use_tailcall = (call_flags & DUK_CALL_FLAG_TAILCALL); + if (use_tailcall) { + use_tailcall = duk__call_setup_act_attempt_tailcall(thr, + call_flags, + idx_func, + func, + entry_valstack_bottom_byteoff, + entry_valstack_end_byteoff, + &nargs, + &nregs, + &vs_min_bytes, + &act); + } +#else + DUK_ASSERT((call_flags & DUK_CALL_FLAG_TAILCALL) == 0); /* compiler ensures this */ + use_tailcall = 0; +#endif + + if (use_tailcall) { + idx_args = 0; + DUK_STATS_INC(thr->heap, stats_call_tailcall); + } else { + duk__call_setup_act_not_tailcall(thr, + call_flags, + idx_func, + func, + entry_valstack_bottom_byteoff, + entry_valstack_end_byteoff, + &nargs, + &nregs, + &vs_min_bytes, + &act); + idx_args = idx_func + 2; + } + /* After this point idx_func is no longer valid for tailcalls. */ + + DUK_ASSERT(act != NULL); + + /* [ ... func this arg1 ... argN ] */ + + /* + * Environment record creation and 'arguments' object creation. + * Named function expression name binding is handled by the + * compiler; the compiled function's parent env will contain + * the (immutable) binding already. + * + * This handling is now identical for C and ECMAScript functions. + * C functions always have the 'NEWENV' flag set, so their + * environment record initialization is delayed (which is good). + * + * Delayed creation (on demand) is handled in duk_js_var.c. + */ + + duk__call_env_setup(thr, func, act, idx_args); + + /* [ ... func this arg1 ... argN ] */ + + /* + * Setup value stack: clamp to 'nargs', fill up to 'nregs', + * ensure value stack size matches target requirements, and + * switch value stack bottom. Valstack top is kept. + * + * Value stack can only grow here. + */ + + duk_valstack_grow_check_throw(thr, vs_min_bytes); + act->reserve_byteoff = (duk_size_t) ((duk_uint8_t *) thr->valstack_end - (duk_uint8_t *) thr->valstack); + + if (use_tailcall) { + DUK_ASSERT(nregs >= 0); + DUK_ASSERT(nregs >= nargs); + duk_set_top_and_wipe(thr, nregs, nargs); + } else { + if (nregs >= 0) { + DUK_ASSERT(nregs >= nargs); + duk_set_top_and_wipe(thr, idx_func + 2 + nregs, idx_func + 2 + nargs); + } else { + ; + } + thr->valstack_bottom = thr->valstack_bottom + idx_func + 2; + } + DUK_ASSERT(thr->valstack_bottom >= thr->valstack); + DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom); + DUK_ASSERT(thr->valstack_end >= thr->valstack_top); + + /* + * Make the actual call. For Ecma-to-Ecma calls detect that + * setup is complete, then return with a status code that allows + * the caller to reuse the running executor. + */ + + if (func != NULL && DUK_HOBJECT_IS_COMPFUNC(func)) { + /* + * ECMAScript call. + */ + + DUK_ASSERT(func != NULL); + DUK_ASSERT(DUK_HOBJECT_HAS_COMPFUNC(func)); + act->curr_pc = DUK_HCOMPFUNC_GET_CODE_BASE(thr->heap, (duk_hcompfunc *) func); + + if (call_flags & DUK_CALL_FLAG_ALLOW_ECMATOECMA) { + DUK_DD(DUK_DDPRINT("avoid native call, use existing executor")); + DUK_STATS_INC(thr->heap, stats_call_ecmatoecma); + DUK_ASSERT((act->flags & DUK_ACT_FLAG_PREVENT_YIELD) == 0); + DUK_REFZERO_CHECK_FAST(thr); + DUK_ASSERT(thr->ptr_curr_pc == NULL); + thr->heap->call_recursion_depth--; /* No recursion increase for this case. */ + return 1; /* 1=reuse executor */ + } + DUK_ASSERT(use_tailcall == 0); + + /* duk_hthread_activation_unwind_norz() will decrease this on unwind */ + DUK_ASSERT((act->flags & DUK_ACT_FLAG_PREVENT_YIELD) == 0); + act->flags |= DUK_ACT_FLAG_PREVENT_YIELD; + thr->callstack_preventcount++; + + /* [ ... func this | arg1 ... argN ] ('this' must precede new bottom) */ + + /* + * Bytecode executor call. + * + * Execute bytecode, handling any recursive function calls and + * thread resumptions. Returns when execution would return from + * the entry level activation. When the executor returns, a + * single return value is left on the stack top. + * + * The only possible longjmp() is an error (DUK_LJ_TYPE_THROW), + * other types are handled internally by the executor. + */ + + /* thr->ptr_curr_pc is set by bytecode executor early on entry */ + DUK_ASSERT(thr->ptr_curr_pc == NULL); + DUK_DDD(DUK_DDDPRINT("entering bytecode execution")); + duk_js_execute_bytecode(thr); + DUK_DDD(DUK_DDDPRINT("returned from bytecode execution")); + } else { + /* + * Native call. + */ + + DUK_ASSERT(func == NULL || ((duk_hnatfunc *) func)->func != NULL); + DUK_ASSERT(use_tailcall == 0); + + /* [ ... func this | arg1 ... argN ] ('this' must precede new bottom) */ + + /* duk_hthread_activation_unwind_norz() will decrease this on unwind */ + DUK_ASSERT((act->flags & DUK_ACT_FLAG_PREVENT_YIELD) == 0); + act->flags |= DUK_ACT_FLAG_PREVENT_YIELD; + thr->callstack_preventcount++; + + /* For native calls must be NULL so we don't sync back */ + DUK_ASSERT(thr->ptr_curr_pc == NULL); + + /* XXX: native funcptr could come out of call setup. */ + if (func) { + rc = ((duk_hnatfunc *) func)->func(thr); + } else { + duk_tval *tv_func; + duk_c_function funcptr; + + tv_func = &act->tv_func; + DUK_ASSERT(DUK_TVAL_IS_LIGHTFUNC(tv_func)); + funcptr = DUK_TVAL_GET_LIGHTFUNC_FUNCPTR(tv_func); + rc = funcptr(thr); + } + + /* Automatic error throwing, retval check. */ + + if (rc == 0) { + DUK_ASSERT(thr->valstack < thr->valstack_end); + DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(thr->valstack_top)); + thr->valstack_top++; + } else if (rc == 1) { + ; + } else if (rc < 0) { + duk_error_throw_from_negative_rc(thr, rc); + DUK_WO_NORETURN(return 0;); + } else { + DUK_ERROR_TYPE(thr, DUK_STR_INVALID_CFUNC_RC); + DUK_WO_NORETURN(return 0;); + } + } + DUK_ASSERT(thr->ptr_curr_pc == NULL); + DUK_ASSERT(use_tailcall == 0); + + /* + * Constructor call post processing. + */ + +#if defined(DUK_USE_ES6_PROXY) + if (call_flags & (DUK_CALL_FLAG_CONSTRUCT | DUK_CALL_FLAG_CONSTRUCT_PROXY)) { + duk_call_construct_postprocess(thr, call_flags & DUK_CALL_FLAG_CONSTRUCT_PROXY); + } +#else + if (call_flags & DUK_CALL_FLAG_CONSTRUCT) { + duk_call_construct_postprocess(thr, 0); + } +#endif + + /* + * Unwind, restore valstack bottom and other book-keeping. + */ + + DUK_ASSERT(thr->callstack_curr != NULL); + DUK_ASSERT(thr->callstack_curr->parent == entry_act); + DUK_ASSERT(thr->callstack_top == entry_callstack_top + 1); + duk_hthread_activation_unwind_norz(thr); + DUK_ASSERT(thr->callstack_curr == entry_act); + DUK_ASSERT(thr->callstack_top == entry_callstack_top); + + thr->valstack_bottom = (duk_tval *) (void *) ((duk_uint8_t *) thr->valstack + entry_valstack_bottom_byteoff); + /* keep current valstack_top */ + DUK_ASSERT(thr->valstack_bottom >= thr->valstack); + DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom); + DUK_ASSERT(thr->valstack_end >= thr->valstack_top); + DUK_ASSERT(thr->valstack_top - thr->valstack_bottom >= idx_func + 1); + + /* Return value handling. */ + + /* [ ... func this (crud) retval ] */ + + { + duk_tval *tv_ret; + duk_tval *tv_funret; + + tv_ret = thr->valstack_bottom + idx_func; + tv_funret = thr->valstack_top - 1; +#if defined(DUK_USE_FASTINT) + /* Explicit check for fastint downgrade. */ + DUK_TVAL_CHKFAST_INPLACE_FAST(tv_funret); +#endif + DUK_TVAL_SET_TVAL_UPDREF(thr, tv_ret, tv_funret); /* side effects */ + } + + duk_set_top_unsafe(thr, idx_func + 1); + + /* [ ... retval ] */ + + /* Restore caller's value stack reserve (cannot fail). */ + DUK_ASSERT((duk_uint8_t *) thr->valstack + entry_valstack_end_byteoff >= (duk_uint8_t *) thr->valstack_top); + DUK_ASSERT((duk_uint8_t *) thr->valstack + entry_valstack_end_byteoff <= (duk_uint8_t *) thr->valstack_alloc_end); + thr->valstack_end = (duk_tval *) (void *) ((duk_uint8_t *) thr->valstack + entry_valstack_end_byteoff); + + /* XXX: Trial value stack shrink would be OK here, but we'd need + * to prevent side effects of the potential realloc. + */ + + /* Restore entry thread executor curr_pc stack frame pointer. */ + thr->ptr_curr_pc = entry_ptr_curr_pc; + + DUK_HEAP_SWITCH_THREAD(thr->heap, entry_curr_thread); /* may be NULL */ + thr->state = (duk_uint8_t) entry_thread_state; + + /* Disabled assert: triggered with some torture tests. */ +#if 0 + DUK_ASSERT((thr->state == DUK_HTHREAD_STATE_INACTIVE && thr->heap->curr_thread == NULL) || /* first call */ + (thr->state == DUK_HTHREAD_STATE_INACTIVE && thr->heap->curr_thread != NULL) || /* other call */ + (thr->state == DUK_HTHREAD_STATE_RUNNING && thr->heap->curr_thread == thr)); /* current thread */ +#endif + + thr->heap->call_recursion_depth = entry_call_recursion_depth; + + /* If the debugger is active we need to force an interrupt so that + * debugger breakpoints are rechecked. This is important for function + * calls caused by side effects (e.g. when doing a DUK_OP_GETPROP), see + * GH-303. Only needed for success path, error path always causes a + * breakpoint recheck in the executor. It would be enough to set this + * only when returning to an ECMAScript activation, but setting the flag + * on every return should have no ill effect. + */ +#if defined(DUK_USE_DEBUGGER_SUPPORT) + if (duk_debug_is_attached(thr->heap)) { + DUK_DD(DUK_DDPRINT("returning with debugger enabled, force interrupt")); + DUK_ASSERT(thr->interrupt_counter <= thr->interrupt_init); + thr->interrupt_init -= thr->interrupt_counter; + thr->interrupt_counter = 0; + thr->heap->dbg_force_restart = 1; + } +#endif + +#if defined(DUK_USE_INTERRUPT_COUNTER) && defined(DUK_USE_DEBUG) + duk__interrupt_fixup(thr, entry_curr_thread); +#endif + + /* Restored by success path. */ + DUK_ASSERT(thr->heap->call_recursion_depth == entry_call_recursion_depth); + DUK_ASSERT(thr->ptr_curr_pc == entry_ptr_curr_pc); + DUK_ASSERT_LJSTATE_UNSET(thr->heap); + + DUK_REFZERO_CHECK_FAST(thr); + + return 0; /* 0=call handled inline */ +} + +DUK_INTERNAL duk_int_t duk_handle_call_unprotected_nargs(duk_hthread *thr, + duk_idx_t nargs, + duk_small_uint_t call_flags) { + duk_idx_t idx_func; + DUK_ASSERT(duk_get_top(thr) >= nargs + 2); + idx_func = duk_get_top(thr) - (nargs + 2); + DUK_ASSERT(idx_func >= 0); + return duk_handle_call_unprotected(thr, idx_func, call_flags); +} + +DUK_INTERNAL duk_int_t duk_handle_call_unprotected(duk_hthread *thr, + duk_idx_t idx_func, + duk_small_uint_t call_flags) { + DUK_ASSERT(duk_is_valid_index(thr, idx_func)); + DUK_ASSERT(idx_func >= 0); + return duk__handle_call_raw(thr, idx_func, call_flags); +} + +/* + * duk_handle_safe_call(): make a "C protected call" within the + * current activation. + * + * The allowed thread states for making a call are the same as for + * duk_handle_call_protected(). + * + * Even though this call is protected, errors are thrown for insane arguments + * and may result in a fatal error unless there's another protected call which + * catches such errors. + * + * The error handling path should be error free, even for out-of-memory + * errors, to ensure safe sandboxing. (As of Duktape 2.2.0 this is not + * yet the case for environment closing which may run out of memory, see + * XXX notes below.) + */ + +DUK_LOCAL void duk__handle_safe_call_inner(duk_hthread *thr, + duk_safe_call_function func, + void *udata, +#if defined(DUK_USE_ASSERTIONS) + duk_size_t entry_valstack_bottom_byteoff, + duk_size_t entry_callstack_top, +#endif + duk_hthread *entry_curr_thread, + duk_uint_fast8_t entry_thread_state, + duk_idx_t idx_retbase, + duk_idx_t num_stack_rets) { + duk_ret_t rc; + + DUK_ASSERT(thr != NULL); + DUK_CTX_ASSERT_VALID(thr); + + /* + * Thread state check and book-keeping. + */ + + duk__call_thread_state_update(thr); + + /* + * Recursion limit check. + */ + + duk__call_c_recursion_limit_check(thr); + thr->heap->call_recursion_depth++; + + /* + * Make the C call. + */ + + rc = func(thr, udata); + + DUK_DDD(DUK_DDDPRINT("safe_call, func rc=%ld", (long) rc)); + + /* + * Valstack manipulation for results. + */ + + /* we're running inside the caller's activation, so no change in call/catch stack or valstack bottom */ + DUK_ASSERT(thr->callstack_top == entry_callstack_top); + DUK_ASSERT(thr->valstack_bottom >= thr->valstack); + DUK_ASSERT((duk_size_t) ((duk_uint8_t *) thr->valstack_bottom - (duk_uint8_t *) thr->valstack) == entry_valstack_bottom_byteoff); + DUK_ASSERT(thr->valstack_top >= thr->valstack_bottom); + DUK_ASSERT(thr->valstack_end >= thr->valstack_top); + + if (DUK_UNLIKELY(rc < 0)) { + duk_error_throw_from_negative_rc(thr, rc); + DUK_WO_NORETURN(return;); + } + DUK_ASSERT(rc >= 0); + + duk__safe_call_adjust_valstack(thr, idx_retbase, num_stack_rets, rc); /* throws for insane rc */ + + DUK_HEAP_SWITCH_THREAD(thr->heap, entry_curr_thread); /* may be NULL */ + thr->state = (duk_uint8_t) entry_thread_state; +} + +DUK_LOCAL void duk__handle_safe_call_error(duk_hthread *thr, + duk_activation *entry_act, +#if defined(DUK_USE_ASSERTIONS) + duk_size_t entry_callstack_top, +#endif + duk_hthread *entry_curr_thread, + duk_uint_fast8_t entry_thread_state, + duk_idx_t idx_retbase, + duk_idx_t num_stack_rets, + duk_size_t entry_valstack_bottom_byteoff, + duk_jmpbuf *old_jmpbuf_ptr) { + DUK_ASSERT(thr != NULL); + DUK_CTX_ASSERT_VALID(thr); + + /* + * Error during call. The error value is at heap->lj.value1. + * + * The very first thing we do is restore the previous setjmp catcher. + * This means that any error in error handling will propagate outwards + * instead of causing a setjmp() re-entry above. + */ + + DUK_DDD(DUK_DDDPRINT("error caught during protected duk_handle_safe_call()")); + + /* Other longjmp types are handled by executor before propagating + * the error here. + */ + DUK_ASSERT(thr->heap->lj.type == DUK_LJ_TYPE_THROW); + DUK_ASSERT_LJSTATE_SET(thr->heap); + + /* Either pointer may be NULL (at entry), so don't assert. */ + thr->heap->lj.jmpbuf_ptr = old_jmpbuf_ptr; + + /* XXX: callstack unwind may now throw an error when closing + * scopes; this is a sandboxing issue, described in: + * https://github.com/svaarala/duktape/issues/476 + */ + /* XXX: "unwind to" primitive? */ + + DUK_ASSERT(thr->callstack_top >= entry_callstack_top); + while (thr->callstack_curr != entry_act) { + DUK_ASSERT(thr->callstack_curr != NULL); + duk_hthread_activation_unwind_norz(thr); + } + DUK_ASSERT(thr->callstack_top == entry_callstack_top); + + /* Switch active thread before any side effects to avoid a + * dangling curr_thread pointer. + */ + DUK_HEAP_SWITCH_THREAD(thr->heap, entry_curr_thread); /* may be NULL */ + thr->state = (duk_uint8_t) entry_thread_state; + + DUK_ASSERT(thr->heap->curr_thread == entry_curr_thread); + DUK_ASSERT(thr->state == entry_thread_state); + + /* Restore valstack bottom. */ + thr->valstack_bottom = (duk_tval *) (void *) ((duk_uint8_t *) thr->valstack + entry_valstack_bottom_byteoff); + + /* [ ... | (crud) ] */ + + /* XXX: ensure space in valstack (now relies on internal reserve)? */ + duk_push_tval(thr, &thr->heap->lj.value1); + + /* [ ... | (crud) errobj ] */ + + DUK_ASSERT(duk_get_top(thr) >= 1); /* at least errobj must be on stack */ + + duk__safe_call_adjust_valstack(thr, idx_retbase, num_stack_rets, 1); /* 1 = num actual 'return values' */ + + /* [ ... | ] or [ ... | errobj (M * undefined)] where M = num_stack_rets - 1 */ + + /* Reset longjmp state. */ + thr->heap->lj.type = DUK_LJ_TYPE_UNKNOWN; + thr->heap->lj.iserror = 0; + DUK_TVAL_SET_UNDEFINED_UPDREF_NORZ(thr, &thr->heap->lj.value1); + DUK_TVAL_SET_UNDEFINED_UPDREF_NORZ(thr, &thr->heap->lj.value2); + + /* Error handling complete, remove side effect protections. Caller + * will process pending finalizers. + */ +#if defined(DUK_USE_ASSERTIONS) + DUK_ASSERT(thr->heap->error_not_allowed == 1); + thr->heap->error_not_allowed = 0; +#endif + DUK_ASSERT(thr->heap->pf_prevent_count > 0); + thr->heap->pf_prevent_count--; + DUK_DD(DUK_DDPRINT("safe call error handled, pf_prevent_count updated to %ld", (long) thr->heap->pf_prevent_count)); + + /* thr->ptr_curr_pc is restored by + * duk__handle_safe_call_shared_unwind() which is also used for + * success path. + */ +} + +DUK_LOCAL void duk__handle_safe_call_shared_unwind(duk_hthread *thr, + duk_idx_t idx_retbase, + duk_idx_t num_stack_rets, +#if defined(DUK_USE_ASSERTIONS) + duk_size_t entry_callstack_top, +#endif + duk_int_t entry_call_recursion_depth, + duk_hthread *entry_curr_thread, + duk_instr_t **entry_ptr_curr_pc) { + DUK_ASSERT(thr != NULL); + DUK_CTX_ASSERT_VALID(thr); + DUK_UNREF(idx_retbase); + DUK_UNREF(num_stack_rets); + DUK_UNREF(entry_curr_thread); + + DUK_ASSERT(thr->callstack_top == entry_callstack_top); + + /* Restore entry thread executor curr_pc stack frame pointer. + * XXX: would be enough to do in error path only, should nest + * cleanly in success path. + */ + thr->ptr_curr_pc = entry_ptr_curr_pc; + + thr->heap->call_recursion_depth = entry_call_recursion_depth; + + /* stack discipline consistency check */ + DUK_ASSERT(duk_get_top(thr) == idx_retbase + num_stack_rets); + + /* A debugger forced interrupt check is not needed here, as + * problematic safe calls are not caused by side effects. + */ + +#if defined(DUK_USE_INTERRUPT_COUNTER) && defined(DUK_USE_DEBUG) + duk__interrupt_fixup(thr, entry_curr_thread); +#endif +} + +DUK_INTERNAL duk_int_t duk_handle_safe_call(duk_hthread *thr, + duk_safe_call_function func, + void *udata, + duk_idx_t num_stack_args, + duk_idx_t num_stack_rets) { + duk_activation *entry_act; + duk_size_t entry_valstack_bottom_byteoff; +#if defined(DUK_USE_ASSERTIONS) + duk_size_t entry_valstack_end_byteoff; + duk_size_t entry_callstack_top; + duk_size_t entry_callstack_preventcount; +#endif + duk_int_t entry_call_recursion_depth; + duk_hthread *entry_curr_thread; + duk_uint_fast8_t entry_thread_state; + duk_instr_t **entry_ptr_curr_pc; + duk_jmpbuf *old_jmpbuf_ptr = NULL; + duk_jmpbuf our_jmpbuf; + duk_idx_t idx_retbase; + duk_int_t retval; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(duk_get_top(thr) >= num_stack_args); /* Caller ensures. */ + + DUK_STATS_INC(thr->heap, stats_safecall_all); + + /* Value stack reserve handling: safe call assumes caller has reserved + * space for nrets (assuming optimal unwind processing). Value stack + * reserve is not stored/restored as for normal calls because a safe + * call conceptually happens in the same activation. + */ + + /* Careful with indices like '-x'; if 'x' is zero, it refers to bottom */ + entry_act = thr->callstack_curr; + entry_valstack_bottom_byteoff = (duk_size_t) ((duk_uint8_t *) thr->valstack_bottom - (duk_uint8_t *) thr->valstack); +#if defined(DUK_USE_ASSERTIONS) + entry_valstack_end_byteoff = (duk_size_t) ((duk_uint8_t *) thr->valstack_end - (duk_uint8_t *) thr->valstack); + entry_callstack_top = thr->callstack_top; + entry_callstack_preventcount = thr->callstack_preventcount; +#endif + entry_call_recursion_depth = thr->heap->call_recursion_depth; + entry_curr_thread = thr->heap->curr_thread; /* may be NULL if first call */ + entry_thread_state = thr->state; + entry_ptr_curr_pc = thr->ptr_curr_pc; /* may be NULL */ + idx_retbase = duk_get_top(thr) - num_stack_args; /* not a valid stack index if num_stack_args == 0 */ + DUK_ASSERT(idx_retbase >= 0); + + DUK_ASSERT((duk_idx_t) (thr->valstack_top - thr->valstack_bottom) >= num_stack_args); /* Caller ensures. */ + DUK_ASSERT((duk_idx_t) (thr->valstack_end - (thr->valstack_bottom + idx_retbase)) >= num_stack_rets); /* Caller ensures. */ + + /* Cannot portably debug print a function pointer, hence 'func' not printed! */ + DUK_DD(DUK_DDPRINT("duk_handle_safe_call: thr=%p, num_stack_args=%ld, num_stack_rets=%ld, " + "valstack_top=%ld, idx_retbase=%ld, rec_depth=%ld/%ld, " + "entry_act=%p, entry_valstack_bottom_byteoff=%ld, entry_call_recursion_depth=%ld, " + "entry_curr_thread=%p, entry_thread_state=%ld", + (void *) thr, + (long) num_stack_args, + (long) num_stack_rets, + (long) duk_get_top(thr), + (long) idx_retbase, + (long) thr->heap->call_recursion_depth, + (long) thr->heap->call_recursion_limit, + (void *) entry_act, + (long) entry_valstack_bottom_byteoff, + (long) entry_call_recursion_depth, + (void *) entry_curr_thread, + (long) entry_thread_state)); + + /* Setjmp catchpoint setup. */ + old_jmpbuf_ptr = thr->heap->lj.jmpbuf_ptr; + thr->heap->lj.jmpbuf_ptr = &our_jmpbuf; + + /* Prevent yields for the duration of the safe call. This only + * matters if the executor makes safe calls to functions that + * yield, this doesn't currently happen. + */ + thr->callstack_preventcount++; + +#if defined(DUK_USE_CPP_EXCEPTIONS) + try { +#else + DUK_ASSERT(thr->heap->lj.jmpbuf_ptr == &our_jmpbuf); + if (DUK_SETJMP(our_jmpbuf.jb) == 0) { + /* Success path. */ +#endif + DUK_DDD(DUK_DDDPRINT("safe_call setjmp catchpoint setup complete")); + + duk__handle_safe_call_inner(thr, + func, + udata, +#if defined(DUK_USE_ASSERTIONS) + entry_valstack_bottom_byteoff, + entry_callstack_top, +#endif + entry_curr_thread, + entry_thread_state, + idx_retbase, + num_stack_rets); + + DUK_STATS_INC(thr->heap, stats_safecall_nothrow); + + /* Either pointer may be NULL (at entry), so don't assert */ + thr->heap->lj.jmpbuf_ptr = old_jmpbuf_ptr; + + /* If calls happen inside the safe call, these are restored by + * whatever calls are made. Reserve cannot decrease. + */ + DUK_ASSERT(thr->callstack_curr == entry_act); + DUK_ASSERT((duk_size_t) ((duk_uint8_t *) thr->valstack_end - (duk_uint8_t *) thr->valstack) >= entry_valstack_end_byteoff); + + retval = DUK_EXEC_SUCCESS; +#if defined(DUK_USE_CPP_EXCEPTIONS) + } catch (duk_internal_exception &exc) { + DUK_UNREF(exc); +#else + } else { + /* Error path. */ +#endif + DUK_ASSERT((duk_size_t) ((duk_uint8_t *) thr->valstack_end - (duk_uint8_t *) thr->valstack) >= entry_valstack_end_byteoff); + + DUK_STATS_INC(thr->heap, stats_safecall_throw); + + duk__handle_safe_call_error(thr, + entry_act, +#if defined(DUK_USE_ASSERTIONS) + entry_callstack_top, +#endif + entry_curr_thread, + entry_thread_state, + idx_retbase, + num_stack_rets, + entry_valstack_bottom_byteoff, + old_jmpbuf_ptr); + + retval = DUK_EXEC_ERROR; + } +#if defined(DUK_USE_CPP_EXCEPTIONS) + catch (duk_fatal_exception &exc) { + DUK_D(DUK_DPRINT("rethrow duk_fatal_exception")); + DUK_UNREF(exc); + throw; + } catch (std::exception &exc) { + const char *what = exc.what(); + DUK_ASSERT((duk_size_t) ((duk_uint8_t *) thr->valstack_end - (duk_uint8_t *) thr->valstack) >= entry_valstack_end_byteoff); + DUK_STATS_INC(thr->heap, stats_safecall_throw); + if (!what) { + what = "unknown"; + } + DUK_D(DUK_DPRINT("unexpected c++ std::exception (perhaps thrown by user code)")); + try { + DUK_ERROR_FMT1(thr, DUK_ERR_TYPE_ERROR, "caught invalid c++ std::exception '%s' (perhaps thrown by user code)", what); + DUK_WO_NORETURN(return 0;); + } catch (duk_internal_exception exc) { + DUK_D(DUK_DPRINT("caught api error thrown from unexpected c++ std::exception")); + DUK_UNREF(exc); + duk__handle_safe_call_error(thr, + entry_act, +#if defined(DUK_USE_ASSERTIONS) + entry_callstack_top, +#endif + entry_curr_thread, + entry_thread_state, + idx_retbase, + num_stack_rets, + entry_valstack_bottom_byteoff, + old_jmpbuf_ptr); + retval = DUK_EXEC_ERROR; + } + } catch (...) { + DUK_D(DUK_DPRINT("unexpected c++ exception (perhaps thrown by user code)")); + DUK_ASSERT((duk_size_t) ((duk_uint8_t *) thr->valstack_end - (duk_uint8_t *) thr->valstack) >= entry_valstack_end_byteoff); + DUK_STATS_INC(thr->heap, stats_safecall_throw); + try { + DUK_ERROR_TYPE(thr, "caught invalid c++ exception (perhaps thrown by user code)"); + DUK_WO_NORETURN(return 0;); + } catch (duk_internal_exception exc) { + DUK_D(DUK_DPRINT("caught api error thrown from unexpected c++ exception")); + DUK_UNREF(exc); + duk__handle_safe_call_error(thr, + entry_act, +#if defined(DUK_USE_ASSERTIONS) + entry_callstack_top, +#endif + entry_curr_thread, + entry_thread_state, + idx_retbase, + num_stack_rets, + entry_valstack_bottom_byteoff, + old_jmpbuf_ptr); + retval = DUK_EXEC_ERROR; + } + } +#endif + + DUK_ASSERT(thr->heap->lj.jmpbuf_ptr == old_jmpbuf_ptr); /* success/error path both do this */ + + DUK_ASSERT_LJSTATE_UNSET(thr->heap); + + DUK_ASSERT((duk_size_t) ((duk_uint8_t *) thr->valstack_end - (duk_uint8_t *) thr->valstack) >= entry_valstack_end_byteoff); + duk__handle_safe_call_shared_unwind(thr, + idx_retbase, + num_stack_rets, +#if defined(DUK_USE_ASSERTIONS) + entry_callstack_top, +#endif + entry_call_recursion_depth, + entry_curr_thread, + entry_ptr_curr_pc); + + /* Restore preventcount. */ + thr->callstack_preventcount--; + DUK_ASSERT(thr->callstack_preventcount == entry_callstack_preventcount); + + /* Final asserts. */ + DUK_ASSERT(thr->callstack_curr == entry_act); + DUK_ASSERT((duk_size_t) ((duk_uint8_t *) thr->valstack_bottom - (duk_uint8_t *) thr->valstack) == entry_valstack_bottom_byteoff); + DUK_ASSERT((duk_size_t) ((duk_uint8_t *) thr->valstack_end - (duk_uint8_t *) thr->valstack) >= entry_valstack_end_byteoff); + DUK_ASSERT(thr->callstack_top == entry_callstack_top); + DUK_ASSERT(thr->heap->call_recursion_depth == entry_call_recursion_depth); + DUK_ASSERT(thr->heap->curr_thread == entry_curr_thread); + DUK_ASSERT(thr->state == entry_thread_state); + DUK_ASSERT(thr->ptr_curr_pc == entry_ptr_curr_pc); + DUK_ASSERT(duk_get_top(thr) == idx_retbase + num_stack_rets); + DUK_ASSERT_LJSTATE_UNSET(thr->heap); + + /* Pending side effects. */ + DUK_REFZERO_CHECK_FAST(thr); + + return retval; +} + +/* + * Property-based call (foo.noSuch()) error setup: replace target function + * on stack top with a hidden Symbol tagged non-callable wrapper object + * holding the error. The error gets thrown in call handling at the + * proper spot to follow ECMAScript semantics. + */ + +#if defined(DUK_USE_VERBOSE_ERRORS) +DUK_INTERNAL DUK_NOINLINE DUK_COLD void duk_call_setup_propcall_error(duk_hthread *thr, duk_tval *tv_base, duk_tval *tv_key) { + const char *str_targ, *str_key, *str_base; + duk_idx_t entry_top; + + entry_top = duk_get_top(thr); + + /* [ target ] */ + + /* Must stabilize pointers first. tv_targ is already on stack top. */ + duk_push_tval(thr, tv_base); + duk_push_tval(thr, tv_key); + + DUK_GC_TORTURE(thr->heap); + + duk_push_bare_object(thr); + + /* [ target base key {} ] */ + + /* We only push a wrapped error, replacing the call target (at + * idx_func) with the error to ensure side effects come out + * correctly: + * - Property read + * - Call argument evaluation + * - Callability check and error thrown + * + * A hidden Symbol on the wrapper object pushed above is used by + * call handling to figure out the error is to be thrown as is. + * It is CRITICAL that the hidden Symbol can never occur on a + * user visible object that may get thrown. + */ + +#if defined(DUK_USE_PARANOID_ERRORS) + str_targ = duk_get_type_name(thr, -4); + str_key = duk_get_type_name(thr, -2); + str_base = duk_get_type_name(thr, -3); + duk_push_error_object(thr, + DUK_ERR_TYPE_ERROR | DUK_ERRCODE_FLAG_NOBLAME_FILELINE, + "%s not callable (property %s of %s)", str_targ, str_key, str_base); + duk_xdef_prop_stridx(thr, -2, DUK_STRIDX_INT_TARGET, DUK_PROPDESC_FLAGS_NONE); /* Marker property, reuse _Target. */ + /* [ target base key { _Target: error } ] */ + duk_replace(thr, entry_top - 1); +#else + str_targ = duk_push_string_readable(thr, -4); + str_key = duk_push_string_readable(thr, -3); + str_base = duk_push_string_readable(thr, -5); + duk_push_error_object(thr, + DUK_ERR_TYPE_ERROR | DUK_ERRCODE_FLAG_NOBLAME_FILELINE, + "%s not callable (property %s of %s)", str_targ, str_key, str_base); + /* [ target base key {} str_targ str_key str_base error ] */ + duk_xdef_prop_stridx(thr, -5, DUK_STRIDX_INT_TARGET, DUK_PROPDESC_FLAGS_NONE); /* Marker property, reuse _Target. */ + /* [ target base key { _Target: error } str_targ str_key str_base ] */ + duk_swap(thr, -4, entry_top - 1); + /* [ { _Target: error } base key target str_targ str_key str_base ] */ +#endif + + /* [ { _Target: error } */ + duk_set_top(thr, entry_top); + + /* [ { _Target: error } */ + DUK_ASSERT(!duk_is_callable(thr, -1)); /* Critical so that call handling will throw the error. */ +} +#endif /* DUK_USE_VERBOSE_ERRORS */ + +/* automatic undefs */ +#undef DUK__AUGMENT_CALL_RELAX_COUNT +#undef DUK__CALL_HANDLING_REQUIRE_STACK +#line 1 "duk_js_compiler.c" +/* + * ECMAScript compiler. + * + * Parses an input string and generates a function template result. + * Compilation may happen in multiple contexts (global code, eval + * code, function code). + * + * The parser uses a traditional top-down recursive parsing for the + * statement level, and an operator precedence based top-down approach + * for the expression level. The attempt is to minimize the C stack + * depth. Bytecode is generated directly without an intermediate + * representation (tree), at the cost of needing two (and sometimes + * three) passes over each function. + * + * The top-down recursive parser functions are named "duk__parse_XXX". + * + * Recursion limits are in key functions to prevent arbitrary C recursion: + * function body parsing, statement parsing, and expression parsing. + * + * See doc/compiler.rst for discussion on the design. + * + * A few typing notes: + * + * - duk_regconst_t: signed, highest bit set (< 0) means constant, + * some call sites use -1 for "none" (equivalent to constant 0x7fffffff) + * - PC values: duk_int_t, negative values used as markers + */ + +/* #include duk_internal.h -> already included */ + +/* If highest bit of a register number is set, it refers to a constant instead. + * When interpreted as a signed value, this means const values are always + * negative (when interpreted as two's complement). For example DUK__ISREG_TEMP() + * uses this approach to avoid an explicit DUK__ISREG() check (the condition is + * logically "'x' is a register AND 'x' >= temp_first"). + */ +#define DUK__CONST_MARKER DUK_REGCONST_CONST_MARKER +#define DUK__REMOVECONST(x) ((x) & ~DUK__CONST_MARKER) +#define DUK__ISREG(x) ((x) >= 0) +#define DUK__ISCONST(x) ((x) < 0) +#define DUK__ISREG_TEMP(comp_ctx,x) ((duk_int32_t) (x) >= (duk_int32_t) ((comp_ctx)->curr_func.temp_first)) /* Check for x >= temp_first && x >= 0 by comparing as signed. */ +#define DUK__ISREG_NOTTEMP(comp_ctx,x) ((duk_uint32_t) (x) < (duk_uint32_t) ((comp_ctx)->curr_func.temp_first)) /* Check for x >= 0 && x < temp_first by interpreting as unsigned. */ +#define DUK__GETTEMP(comp_ctx) ((comp_ctx)->curr_func.temp_next) +#define DUK__SETTEMP(comp_ctx,x) ((comp_ctx)->curr_func.temp_next = (x)) /* dangerous: must only lower (temp_max not updated) */ +#define DUK__SETTEMP_CHECKMAX(comp_ctx,x) duk__settemp_checkmax((comp_ctx),(x)) +#define DUK__ALLOCTEMP(comp_ctx) duk__alloctemp((comp_ctx)) +#define DUK__ALLOCTEMPS(comp_ctx,count) duk__alloctemps((comp_ctx),(count)) + +/* Init value set size for array and object literals. */ +#define DUK__MAX_ARRAY_INIT_VALUES 20 +#define DUK__MAX_OBJECT_INIT_PAIRS 10 + +/* XXX: hack, remove when const lookup is not O(n) */ +#define DUK__GETCONST_MAX_CONSTS_CHECK 256 + +/* These limits are based on bytecode limits. Max temps is limited + * by duk_hcompfunc nargs/nregs fields being 16 bits. + */ +#define DUK__MAX_CONSTS DUK_BC_BC_MAX +#define DUK__MAX_FUNCS DUK_BC_BC_MAX +#define DUK__MAX_TEMPS 0xffffL + +/* Initial bytecode size allocation. */ +#if defined(DUK_USE_PREFER_SIZE) +#define DUK__BC_INITIAL_INSTS 16 +#else +#define DUK__BC_INITIAL_INSTS 256 +#endif + +#define DUK__RECURSION_INCREASE(comp_ctx,thr) do { \ + DUK_DDD(DUK_DDDPRINT("RECURSION INCREASE: %s:%ld", (const char *) DUK_FILE_MACRO, (long) DUK_LINE_MACRO)); \ + duk__comp_recursion_increase((comp_ctx)); \ + } while (0) + +#define DUK__RECURSION_DECREASE(comp_ctx,thr) do { \ + DUK_DDD(DUK_DDDPRINT("RECURSION DECREASE: %s:%ld", (const char *) DUK_FILE_MACRO, (long) DUK_LINE_MACRO)); \ + duk__comp_recursion_decrease((comp_ctx)); \ + } while (0) + +/* Value stack slot limits: these are quite approximate right now, and + * because they overlap in control flow, some could be eliminated. + */ +#define DUK__COMPILE_ENTRY_SLOTS 8 +#define DUK__FUNCTION_INIT_REQUIRE_SLOTS 16 +#define DUK__FUNCTION_BODY_REQUIRE_SLOTS 16 +#define DUK__PARSE_STATEMENTS_SLOTS 16 +#define DUK__PARSE_EXPR_SLOTS 16 + +/* Temporary structure used to pass a stack allocated region through + * duk_safe_call(). + */ +typedef struct { + duk_small_uint_t flags; + duk_compiler_ctx comp_ctx_alloc; + duk_lexer_point lex_pt_alloc; +} duk__compiler_stkstate; + +/* + * Prototypes + */ + +/* lexing */ +DUK_LOCAL_DECL void duk__advance_helper(duk_compiler_ctx *comp_ctx, duk_small_int_t expect); +DUK_LOCAL_DECL void duk__advance_expect(duk_compiler_ctx *comp_ctx, duk_small_int_t expect); +DUK_LOCAL_DECL void duk__advance(duk_compiler_ctx *ctx); + +/* function helpers */ +DUK_LOCAL_DECL void duk__init_func_valstack_slots(duk_compiler_ctx *comp_ctx); +DUK_LOCAL_DECL void duk__reset_func_for_pass2(duk_compiler_ctx *comp_ctx); +DUK_LOCAL_DECL void duk__init_varmap_and_prologue_for_pass2(duk_compiler_ctx *comp_ctx, duk_regconst_t *out_stmt_value_reg); +DUK_LOCAL_DECL void duk__convert_to_func_template(duk_compiler_ctx *comp_ctx); +DUK_LOCAL_DECL duk_int_t duk__cleanup_varmap(duk_compiler_ctx *comp_ctx); + +/* code emission */ +DUK_LOCAL_DECL duk_int_t duk__get_current_pc(duk_compiler_ctx *comp_ctx); +DUK_LOCAL_DECL duk_compiler_instr *duk__get_instr_ptr(duk_compiler_ctx *comp_ctx, duk_int_t pc); +DUK_LOCAL_DECL void duk__emit(duk_compiler_ctx *comp_ctx, duk_instr_t ins); +DUK_LOCAL_DECL void duk__emit_op_only(duk_compiler_ctx *comp_ctx, duk_small_uint_t op); +DUK_LOCAL_DECL void duk__emit_a_b_c(duk_compiler_ctx *comp_ctx, duk_small_uint_t op_flags, duk_regconst_t a, duk_regconst_t b, duk_regconst_t c); +DUK_LOCAL_DECL void duk__emit_a_b(duk_compiler_ctx *comp_ctx, duk_small_uint_t op_flags, duk_regconst_t a, duk_regconst_t b); +DUK_LOCAL_DECL void duk__emit_b_c(duk_compiler_ctx *comp_ctx, duk_small_uint_t op_flags, duk_regconst_t b, duk_regconst_t c); +#if 0 /* unused */ +DUK_LOCAL_DECL void duk__emit_a(duk_compiler_ctx *comp_ctx, duk_small_uint_t op_flags, duk_regconst_t a); +DUK_LOCAL_DECL void duk__emit_b(duk_compiler_ctx *comp_ctx, duk_small_uint_t op_flags, duk_regconst_t b); +#endif +DUK_LOCAL_DECL void duk__emit_a_bc(duk_compiler_ctx *comp_ctx, duk_small_uint_t op_flags, duk_regconst_t a, duk_regconst_t bc); +DUK_LOCAL_DECL void duk__emit_bc(duk_compiler_ctx *comp_ctx, duk_small_uint_t op, duk_regconst_t bc); +DUK_LOCAL_DECL void duk__emit_abc(duk_compiler_ctx *comp_ctx, duk_small_uint_t op, duk_regconst_t abc); +DUK_LOCAL_DECL void duk__emit_load_int32(duk_compiler_ctx *comp_ctx, duk_regconst_t reg, duk_int32_t val); +DUK_LOCAL_DECL void duk__emit_load_int32_noshuffle(duk_compiler_ctx *comp_ctx, duk_regconst_t reg, duk_int32_t val); +DUK_LOCAL_DECL void duk__emit_jump(duk_compiler_ctx *comp_ctx, duk_int_t target_pc); +DUK_LOCAL_DECL duk_int_t duk__emit_jump_empty(duk_compiler_ctx *comp_ctx); +DUK_LOCAL_DECL void duk__insert_jump_entry(duk_compiler_ctx *comp_ctx, duk_int_t jump_pc); +DUK_LOCAL_DECL void duk__patch_jump(duk_compiler_ctx *comp_ctx, duk_int_t jump_pc, duk_int_t target_pc); +DUK_LOCAL_DECL void duk__patch_jump_here(duk_compiler_ctx *comp_ctx, duk_int_t jump_pc); +DUK_LOCAL_DECL void duk__patch_trycatch(duk_compiler_ctx *comp_ctx, duk_int_t ldconst_pc, duk_int_t trycatch_pc, duk_regconst_t reg_catch, duk_regconst_t const_varname, duk_small_uint_t flags); +DUK_LOCAL_DECL void duk__emit_if_false_skip(duk_compiler_ctx *comp_ctx, duk_regconst_t regconst); +DUK_LOCAL_DECL void duk__emit_if_true_skip(duk_compiler_ctx *comp_ctx, duk_regconst_t regconst); +DUK_LOCAL_DECL void duk__emit_invalid(duk_compiler_ctx *comp_ctx); + +/* ivalue/ispec helpers */ +DUK_LOCAL_DECL void duk__ivalue_regconst(duk_ivalue *x, duk_regconst_t regconst); +DUK_LOCAL_DECL void duk__ivalue_plain_fromstack(duk_compiler_ctx *comp_ctx, duk_ivalue *x); +DUK_LOCAL_DECL void duk__ivalue_var_fromstack(duk_compiler_ctx *comp_ctx, duk_ivalue *x); +DUK_LOCAL_DECL void duk__ivalue_var_hstring(duk_compiler_ctx *comp_ctx, duk_ivalue *x, duk_hstring *h); +DUK_LOCAL_DECL void duk__copy_ispec(duk_compiler_ctx *comp_ctx, duk_ispec *src, duk_ispec *dst); +DUK_LOCAL_DECL void duk__copy_ivalue(duk_compiler_ctx *comp_ctx, duk_ivalue *src, duk_ivalue *dst); +DUK_LOCAL_DECL duk_regconst_t duk__alloctemps(duk_compiler_ctx *comp_ctx, duk_small_int_t num); +DUK_LOCAL_DECL duk_regconst_t duk__alloctemp(duk_compiler_ctx *comp_ctx); +DUK_LOCAL_DECL void duk__settemp_checkmax(duk_compiler_ctx *comp_ctx, duk_regconst_t temp_next); +DUK_LOCAL_DECL duk_regconst_t duk__getconst(duk_compiler_ctx *comp_ctx); +DUK_LOCAL_DECL +duk_regconst_t duk__ispec_toregconst_raw(duk_compiler_ctx *comp_ctx, + duk_ispec *x, + duk_regconst_t forced_reg, + duk_small_uint_t flags); +DUK_LOCAL_DECL void duk__ispec_toforcedreg(duk_compiler_ctx *comp_ctx, duk_ispec *x, duk_regconst_t forced_reg); +DUK_LOCAL_DECL void duk__ivalue_toplain_raw(duk_compiler_ctx *comp_ctx, duk_ivalue *x, duk_regconst_t forced_reg); +DUK_LOCAL_DECL void duk__ivalue_toplain(duk_compiler_ctx *comp_ctx, duk_ivalue *x); +DUK_LOCAL_DECL void duk__ivalue_toplain_ignore(duk_compiler_ctx *comp_ctx, duk_ivalue *x); +DUK_LOCAL_DECL +duk_regconst_t duk__ivalue_toregconst_raw(duk_compiler_ctx *comp_ctx, + duk_ivalue *x, + duk_regconst_t forced_reg, + duk_small_uint_t flags); +DUK_LOCAL_DECL duk_regconst_t duk__ivalue_toreg(duk_compiler_ctx *comp_ctx, duk_ivalue *x); +#if 0 /* unused */ +DUK_LOCAL_DECL duk_regconst_t duk__ivalue_totemp(duk_compiler_ctx *comp_ctx, duk_ivalue *x); +#endif +DUK_LOCAL_DECL void duk__ivalue_toforcedreg(duk_compiler_ctx *comp_ctx, duk_ivalue *x, duk_int_t forced_reg); +DUK_LOCAL_DECL duk_regconst_t duk__ivalue_toregconst(duk_compiler_ctx *comp_ctx, duk_ivalue *x); +DUK_LOCAL_DECL duk_regconst_t duk__ivalue_totempconst(duk_compiler_ctx *comp_ctx, duk_ivalue *x); + +/* identifier handling */ +DUK_LOCAL_DECL duk_regconst_t duk__lookup_active_register_binding(duk_compiler_ctx *comp_ctx); +DUK_LOCAL_DECL duk_bool_t duk__lookup_lhs(duk_compiler_ctx *ctx, duk_regconst_t *out_reg_varbind, duk_regconst_t *out_rc_varname); + +/* label handling */ +DUK_LOCAL_DECL void duk__add_label(duk_compiler_ctx *comp_ctx, duk_hstring *h_label, duk_int_t pc_label, duk_int_t label_id); +DUK_LOCAL_DECL void duk__update_label_flags(duk_compiler_ctx *comp_ctx, duk_int_t label_id, duk_small_uint_t flags); +DUK_LOCAL_DECL void duk__lookup_active_label(duk_compiler_ctx *comp_ctx, duk_hstring *h_label, duk_bool_t is_break, duk_int_t *out_label_id, duk_int_t *out_label_catch_depth, duk_int_t *out_label_pc, duk_bool_t *out_is_closest); +DUK_LOCAL_DECL void duk__reset_labels_to_length(duk_compiler_ctx *comp_ctx, duk_size_t len); + +/* top-down expression parser */ +DUK_LOCAL_DECL void duk__expr_nud(duk_compiler_ctx *comp_ctx, duk_ivalue *res); +DUK_LOCAL_DECL void duk__expr_led(duk_compiler_ctx *comp_ctx, duk_ivalue *left, duk_ivalue *res); +DUK_LOCAL_DECL duk_small_uint_t duk__expr_lbp(duk_compiler_ctx *comp_ctx); +DUK_LOCAL_DECL duk_bool_t duk__expr_is_empty(duk_compiler_ctx *comp_ctx); + +/* exprtop is the top level variant which resets nud/led counts */ +DUK_LOCAL_DECL void duk__expr(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t rbp_flags); +DUK_LOCAL_DECL void duk__exprtop(duk_compiler_ctx *ctx, duk_ivalue *res, duk_small_uint_t rbp_flags); + +/* convenience helpers */ +#if 0 /* unused */ +DUK_LOCAL_DECL duk_regconst_t duk__expr_toreg(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t rbp_flags); +#endif +#if 0 /* unused */ +DUK_LOCAL_DECL duk_regconst_t duk__expr_totemp(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t rbp_flags); +#endif +DUK_LOCAL_DECL void duk__expr_toforcedreg(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t rbp_flags, duk_regconst_t forced_reg); +DUK_LOCAL_DECL duk_regconst_t duk__expr_toregconst(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t rbp_flags); +#if 0 /* unused */ +DUK_LOCAL_DECL duk_regconst_t duk__expr_totempconst(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t rbp_flags); +#endif +DUK_LOCAL_DECL void duk__expr_toplain(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t rbp_flags); +DUK_LOCAL_DECL void duk__expr_toplain_ignore(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t rbp_flags); +DUK_LOCAL_DECL duk_regconst_t duk__exprtop_toreg(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t rbp_flags); +#if 0 /* unused */ +DUK_LOCAL_DECL duk_regconst_t duk__exprtop_totemp(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t rbp_flags); +#endif +DUK_LOCAL_DECL void duk__exprtop_toforcedreg(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t rbp_flags, duk_regconst_t forced_reg); +DUK_LOCAL_DECL duk_regconst_t duk__exprtop_toregconst(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t rbp_flags); +#if 0 /* unused */ +DUK_LOCAL_DECL void duk__exprtop_toplain_ignore(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t rbp_flags); +#endif + +/* expression parsing helpers */ +DUK_LOCAL_DECL duk_int_t duk__parse_arguments(duk_compiler_ctx *comp_ctx, duk_ivalue *res); +DUK_LOCAL_DECL void duk__nud_array_literal(duk_compiler_ctx *comp_ctx, duk_ivalue *res); +DUK_LOCAL_DECL void duk__nud_object_literal(duk_compiler_ctx *comp_ctx, duk_ivalue *res); + +/* statement parsing */ +DUK_LOCAL_DECL void duk__parse_var_decl(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t expr_flags, duk_regconst_t *out_reg_varbind, duk_regconst_t *out_rc_varname); +DUK_LOCAL_DECL void duk__parse_var_stmt(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t expr_flags); +DUK_LOCAL_DECL void duk__parse_for_stmt(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_int_t pc_label_site); +DUK_LOCAL_DECL void duk__parse_switch_stmt(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_int_t pc_label_site); +DUK_LOCAL_DECL void duk__parse_if_stmt(duk_compiler_ctx *comp_ctx, duk_ivalue *res); +DUK_LOCAL_DECL void duk__parse_do_stmt(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_int_t pc_label_site); +DUK_LOCAL_DECL void duk__parse_while_stmt(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_int_t pc_label_site); +DUK_LOCAL_DECL void duk__parse_break_or_continue_stmt(duk_compiler_ctx *comp_ctx, duk_ivalue *res); +DUK_LOCAL_DECL void duk__parse_return_stmt(duk_compiler_ctx *comp_ctx, duk_ivalue *res); +DUK_LOCAL_DECL void duk__parse_throw_stmt(duk_compiler_ctx *comp_ctx, duk_ivalue *res); +DUK_LOCAL_DECL void duk__parse_try_stmt(duk_compiler_ctx *comp_ctx, duk_ivalue *res); +DUK_LOCAL_DECL void duk__parse_with_stmt(duk_compiler_ctx *comp_ctx, duk_ivalue *res); +DUK_LOCAL_DECL void duk__parse_stmt(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_bool_t allow_source_elem); +DUK_LOCAL_DECL duk_int_t duk__stmt_label_site(duk_compiler_ctx *comp_ctx, duk_int_t label_id); +DUK_LOCAL_DECL void duk__parse_stmts(duk_compiler_ctx *comp_ctx, duk_bool_t allow_source_elem, duk_bool_t expect_eof, duk_bool_t regexp_after); + +DUK_LOCAL_DECL void duk__parse_func_body(duk_compiler_ctx *comp_ctx, duk_bool_t expect_eof, duk_bool_t implicit_return_value, duk_bool_t regexp_after, duk_small_int_t expect_token); +DUK_LOCAL_DECL void duk__parse_func_formals(duk_compiler_ctx *comp_ctx); +DUK_LOCAL_DECL void duk__parse_func_like_raw(duk_compiler_ctx *comp_ctx, duk_small_uint_t flags); +DUK_LOCAL_DECL duk_int_t duk__parse_func_like_fnum(duk_compiler_ctx *comp_ctx, duk_small_uint_t flags); + +#define DUK__FUNC_FLAG_DECL (1 << 0) /* Parsing a function declaration. */ +#define DUK__FUNC_FLAG_GETSET (1 << 1) /* Parsing an object literal getter/setter. */ +#define DUK__FUNC_FLAG_METDEF (1 << 2) /* Parsing an object literal method definition shorthand. */ +#define DUK__FUNC_FLAG_PUSHNAME_PASS1 (1 << 3) /* Push function name when creating template (first pass only). */ +#define DUK__FUNC_FLAG_USE_PREVTOKEN (1 << 4) /* Use prev_token to start function parsing (workaround for object literal). */ + +/* + * Parser control values for tokens. The token table is ordered by the + * DUK_TOK_XXX defines. + * + * The binding powers are for lbp() use (i.e. for use in led() context). + * Binding powers are positive for typing convenience, and bits at the + * top should be reserved for flags. Binding power step must be higher + * than 1 so that binding power "lbp - 1" can be used for right associative + * operators. Currently a step of 2 is used (which frees one more bit for + * flags). + */ + +/* XXX: actually single step levels would work just fine, clean up */ + +/* binding power "levels" (see doc/compiler.rst) */ +#define DUK__BP_INVALID 0 /* always terminates led() */ +#define DUK__BP_EOF 2 +#define DUK__BP_CLOSING 4 /* token closes expression, e.g. ')', ']' */ +#define DUK__BP_FOR_EXPR DUK__BP_CLOSING /* bp to use when parsing a top level Expression */ +#define DUK__BP_COMMA 6 +#define DUK__BP_ASSIGNMENT 8 +#define DUK__BP_CONDITIONAL 10 +#define DUK__BP_LOR 12 +#define DUK__BP_LAND 14 +#define DUK__BP_BOR 16 +#define DUK__BP_BXOR 18 +#define DUK__BP_BAND 20 +#define DUK__BP_EQUALITY 22 +#define DUK__BP_RELATIONAL 24 +#define DUK__BP_SHIFT 26 +#define DUK__BP_ADDITIVE 28 +#define DUK__BP_MULTIPLICATIVE 30 +#define DUK__BP_EXPONENTIATION 32 +#define DUK__BP_POSTFIX 34 +#define DUK__BP_CALL 36 +#define DUK__BP_MEMBER 38 + +#define DUK__TOKEN_LBP_BP_MASK 0x1f +#define DUK__TOKEN_LBP_FLAG_NO_REGEXP (1 << 5) /* regexp literal must not follow this token */ +#define DUK__TOKEN_LBP_FLAG_TERMINATES (1 << 6) /* terminates expression; e.g. post-increment/-decrement */ +#define DUK__TOKEN_LBP_FLAG_UNUSED (1 << 7) /* unused */ + +#define DUK__TOKEN_LBP_GET_BP(x) ((duk_small_uint_t) (((x) & DUK__TOKEN_LBP_BP_MASK) * 2)) + +#define DUK__MK_LBP(bp) ((bp) >> 1) /* bp is assumed to be even */ +#define DUK__MK_LBP_FLAGS(bp,flags) (((bp) >> 1) | (flags)) + +DUK_LOCAL const duk_uint8_t duk__token_lbp[] = { + DUK__MK_LBP(DUK__BP_EOF), /* DUK_TOK_EOF */ + DUK__MK_LBP_FLAGS(DUK__BP_INVALID, DUK__TOKEN_LBP_FLAG_NO_REGEXP), /* DUK_TOK_IDENTIFIER */ + DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_BREAK */ + DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_CASE */ + DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_CATCH */ + DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_CONTINUE */ + DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_DEBUGGER */ + DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_DEFAULT */ + DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_DELETE */ + DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_DO */ + DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_ELSE */ + DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_FINALLY */ + DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_FOR */ + DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_FUNCTION */ + DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_IF */ + DUK__MK_LBP(DUK__BP_RELATIONAL), /* DUK_TOK_IN */ + DUK__MK_LBP(DUK__BP_RELATIONAL), /* DUK_TOK_INSTANCEOF */ + DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_NEW */ + DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_RETURN */ + DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_SWITCH */ + DUK__MK_LBP_FLAGS(DUK__BP_INVALID, DUK__TOKEN_LBP_FLAG_NO_REGEXP), /* DUK_TOK_THIS */ + DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_THROW */ + DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_TRY */ + DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_TYPEOF */ + DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_VAR */ + DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_CONST */ + DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_VOID */ + DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_WHILE */ + DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_WITH */ + DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_CLASS */ + DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_ENUM */ + DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_EXPORT */ + DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_EXTENDS */ + DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_IMPORT */ + DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_SUPER */ + DUK__MK_LBP_FLAGS(DUK__BP_INVALID, DUK__TOKEN_LBP_FLAG_NO_REGEXP), /* DUK_TOK_NULL */ + DUK__MK_LBP_FLAGS(DUK__BP_INVALID, DUK__TOKEN_LBP_FLAG_NO_REGEXP), /* DUK_TOK_TRUE */ + DUK__MK_LBP_FLAGS(DUK__BP_INVALID, DUK__TOKEN_LBP_FLAG_NO_REGEXP), /* DUK_TOK_FALSE */ + DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_GET */ + DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_SET */ + DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_IMPLEMENTS */ + DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_INTERFACE */ + DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_LET */ + DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_PACKAGE */ + DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_PRIVATE */ + DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_PROTECTED */ + DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_PUBLIC */ + DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_STATIC */ + DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_YIELD */ + DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_LCURLY */ + DUK__MK_LBP_FLAGS(DUK__BP_INVALID, DUK__TOKEN_LBP_FLAG_NO_REGEXP), /* DUK_TOK_RCURLY */ + DUK__MK_LBP(DUK__BP_MEMBER), /* DUK_TOK_LBRACKET */ + DUK__MK_LBP_FLAGS(DUK__BP_CLOSING, DUK__TOKEN_LBP_FLAG_NO_REGEXP), /* DUK_TOK_RBRACKET */ + DUK__MK_LBP(DUK__BP_CALL), /* DUK_TOK_LPAREN */ + DUK__MK_LBP_FLAGS(DUK__BP_CLOSING, DUK__TOKEN_LBP_FLAG_NO_REGEXP), /* DUK_TOK_RPAREN */ + DUK__MK_LBP(DUK__BP_MEMBER), /* DUK_TOK_PERIOD */ + DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_SEMICOLON */ + DUK__MK_LBP(DUK__BP_COMMA), /* DUK_TOK_COMMA */ + DUK__MK_LBP(DUK__BP_RELATIONAL), /* DUK_TOK_LT */ + DUK__MK_LBP(DUK__BP_RELATIONAL), /* DUK_TOK_GT */ + DUK__MK_LBP(DUK__BP_RELATIONAL), /* DUK_TOK_LE */ + DUK__MK_LBP(DUK__BP_RELATIONAL), /* DUK_TOK_GE */ + DUK__MK_LBP(DUK__BP_EQUALITY), /* DUK_TOK_EQ */ + DUK__MK_LBP(DUK__BP_EQUALITY), /* DUK_TOK_NEQ */ + DUK__MK_LBP(DUK__BP_EQUALITY), /* DUK_TOK_SEQ */ + DUK__MK_LBP(DUK__BP_EQUALITY), /* DUK_TOK_SNEQ */ + DUK__MK_LBP(DUK__BP_ADDITIVE), /* DUK_TOK_ADD */ + DUK__MK_LBP(DUK__BP_ADDITIVE), /* DUK_TOK_SUB */ + DUK__MK_LBP(DUK__BP_MULTIPLICATIVE), /* DUK_TOK_MUL */ + DUK__MK_LBP(DUK__BP_MULTIPLICATIVE), /* DUK_TOK_DIV */ + DUK__MK_LBP(DUK__BP_MULTIPLICATIVE), /* DUK_TOK_MOD */ + DUK__MK_LBP(DUK__BP_EXPONENTIATION), /* DUK_TOK_EXP */ + DUK__MK_LBP_FLAGS(DUK__BP_POSTFIX, DUK__TOKEN_LBP_FLAG_NO_REGEXP), /* DUK_TOK_INCREMENT */ + DUK__MK_LBP_FLAGS(DUK__BP_POSTFIX, DUK__TOKEN_LBP_FLAG_NO_REGEXP), /* DUK_TOK_DECREMENT */ + DUK__MK_LBP(DUK__BP_SHIFT), /* DUK_TOK_ALSHIFT */ + DUK__MK_LBP(DUK__BP_SHIFT), /* DUK_TOK_ARSHIFT */ + DUK__MK_LBP(DUK__BP_SHIFT), /* DUK_TOK_RSHIFT */ + DUK__MK_LBP(DUK__BP_BAND), /* DUK_TOK_BAND */ + DUK__MK_LBP(DUK__BP_BOR), /* DUK_TOK_BOR */ + DUK__MK_LBP(DUK__BP_BXOR), /* DUK_TOK_BXOR */ + DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_LNOT */ + DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_BNOT */ + DUK__MK_LBP(DUK__BP_LAND), /* DUK_TOK_LAND */ + DUK__MK_LBP(DUK__BP_LOR), /* DUK_TOK_LOR */ + DUK__MK_LBP(DUK__BP_CONDITIONAL), /* DUK_TOK_QUESTION */ + DUK__MK_LBP(DUK__BP_INVALID), /* DUK_TOK_COLON */ + DUK__MK_LBP(DUK__BP_ASSIGNMENT), /* DUK_TOK_EQUALSIGN */ + DUK__MK_LBP(DUK__BP_ASSIGNMENT), /* DUK_TOK_ADD_EQ */ + DUK__MK_LBP(DUK__BP_ASSIGNMENT), /* DUK_TOK_SUB_EQ */ + DUK__MK_LBP(DUK__BP_ASSIGNMENT), /* DUK_TOK_MUL_EQ */ + DUK__MK_LBP(DUK__BP_ASSIGNMENT), /* DUK_TOK_DIV_EQ */ + DUK__MK_LBP(DUK__BP_ASSIGNMENT), /* DUK_TOK_MOD_EQ */ + DUK__MK_LBP(DUK__BP_ASSIGNMENT), /* DUK_TOK_EXP_EQ */ + DUK__MK_LBP(DUK__BP_ASSIGNMENT), /* DUK_TOK_ALSHIFT_EQ */ + DUK__MK_LBP(DUK__BP_ASSIGNMENT), /* DUK_TOK_ARSHIFT_EQ */ + DUK__MK_LBP(DUK__BP_ASSIGNMENT), /* DUK_TOK_RSHIFT_EQ */ + DUK__MK_LBP(DUK__BP_ASSIGNMENT), /* DUK_TOK_BAND_EQ */ + DUK__MK_LBP(DUK__BP_ASSIGNMENT), /* DUK_TOK_BOR_EQ */ + DUK__MK_LBP(DUK__BP_ASSIGNMENT), /* DUK_TOK_BXOR_EQ */ + DUK__MK_LBP_FLAGS(DUK__BP_INVALID, DUK__TOKEN_LBP_FLAG_NO_REGEXP), /* DUK_TOK_NUMBER */ + DUK__MK_LBP_FLAGS(DUK__BP_INVALID, DUK__TOKEN_LBP_FLAG_NO_REGEXP), /* DUK_TOK_STRING */ + DUK__MK_LBP_FLAGS(DUK__BP_INVALID, DUK__TOKEN_LBP_FLAG_NO_REGEXP), /* DUK_TOK_REGEXP */ +}; + +/* + * Misc helpers + */ + +DUK_LOCAL void duk__comp_recursion_increase(duk_compiler_ctx *comp_ctx) { + DUK_ASSERT(comp_ctx != NULL); + DUK_ASSERT(comp_ctx->recursion_depth >= 0); + if (comp_ctx->recursion_depth >= comp_ctx->recursion_limit) { + DUK_ERROR_RANGE(comp_ctx->thr, DUK_STR_COMPILER_RECURSION_LIMIT); + DUK_WO_NORETURN(return;); + } + comp_ctx->recursion_depth++; +} + +DUK_LOCAL void duk__comp_recursion_decrease(duk_compiler_ctx *comp_ctx) { + DUK_ASSERT(comp_ctx != NULL); + DUK_ASSERT(comp_ctx->recursion_depth > 0); + comp_ctx->recursion_depth--; +} + +DUK_LOCAL duk_bool_t duk__hstring_is_eval_or_arguments(duk_compiler_ctx *comp_ctx, duk_hstring *h) { + DUK_UNREF(comp_ctx); + DUK_ASSERT(h != NULL); + return DUK_HSTRING_HAS_EVAL_OR_ARGUMENTS(h); +} + +DUK_LOCAL duk_bool_t duk__hstring_is_eval_or_arguments_in_strict_mode(duk_compiler_ctx *comp_ctx, duk_hstring *h) { + DUK_ASSERT(h != NULL); + return (comp_ctx->curr_func.is_strict && + DUK_HSTRING_HAS_EVAL_OR_ARGUMENTS(h)); +} + +/* + * Parser duk__advance() token eating functions + */ + +/* XXX: valstack handling is awkward. Add a valstack helper which + * avoids dup():ing; valstack_copy(src, dst)? + */ + +DUK_LOCAL void duk__advance_helper(duk_compiler_ctx *comp_ctx, duk_small_int_t expect) { + duk_hthread *thr = comp_ctx->thr; + duk_bool_t regexp; + + DUK_ASSERT_DISABLE(comp_ctx->curr_token.t >= 0); /* unsigned */ + DUK_ASSERT(comp_ctx->curr_token.t <= DUK_TOK_MAXVAL); /* MAXVAL is inclusive */ + + /* + * Use current token to decide whether a RegExp can follow. + * + * We can use either 't' or 't_nores'; the latter would not + * recognize keywords. Some keywords can be followed by a + * RegExp (e.g. "return"), so using 't' is better. This is + * not trivial, see doc/compiler.rst. + */ + + regexp = 1; + if (duk__token_lbp[comp_ctx->curr_token.t] & DUK__TOKEN_LBP_FLAG_NO_REGEXP) { + regexp = 0; + } + if (comp_ctx->curr_func.reject_regexp_in_adv) { + comp_ctx->curr_func.reject_regexp_in_adv = 0; + regexp = 0; + } + if (comp_ctx->curr_func.allow_regexp_in_adv) { + comp_ctx->curr_func.allow_regexp_in_adv = 0; + regexp = 1; + } + + if (expect >= 0 && comp_ctx->curr_token.t != (duk_small_uint_t) expect) { + DUK_D(DUK_DPRINT("parse error: expect=%ld, got=%ld", + (long) expect, (long) comp_ctx->curr_token.t)); + DUK_ERROR_SYNTAX(thr, DUK_STR_PARSE_ERROR); + DUK_WO_NORETURN(return;); + } + + /* make current token the previous; need to fiddle with valstack "backing store" */ + duk_memcpy(&comp_ctx->prev_token, &comp_ctx->curr_token, sizeof(duk_token)); + duk_copy(thr, comp_ctx->tok11_idx, comp_ctx->tok21_idx); + duk_copy(thr, comp_ctx->tok12_idx, comp_ctx->tok22_idx); + + /* parse new token */ + duk_lexer_parse_js_input_element(&comp_ctx->lex, + &comp_ctx->curr_token, + comp_ctx->curr_func.is_strict, + regexp); + + DUK_DDD(DUK_DDDPRINT("advance: curr: tok=%ld/%ld,%ld,term=%ld,%!T,%!T " + "prev: tok=%ld/%ld,%ld,term=%ld,%!T,%!T", + (long) comp_ctx->curr_token.t, + (long) comp_ctx->curr_token.t_nores, + (long) comp_ctx->curr_token.start_line, + (long) comp_ctx->curr_token.lineterm, + (duk_tval *) duk_get_tval(thr, comp_ctx->tok11_idx), + (duk_tval *) duk_get_tval(thr, comp_ctx->tok12_idx), + (long) comp_ctx->prev_token.t, + (long) comp_ctx->prev_token.t_nores, + (long) comp_ctx->prev_token.start_line, + (long) comp_ctx->prev_token.lineterm, + (duk_tval *) duk_get_tval(thr, comp_ctx->tok21_idx), + (duk_tval *) duk_get_tval(thr, comp_ctx->tok22_idx))); +} + +/* advance, expecting current token to be a specific token; parse next token in regexp context */ +DUK_LOCAL void duk__advance_expect(duk_compiler_ctx *comp_ctx, duk_small_int_t expect) { + duk__advance_helper(comp_ctx, expect); +} + +/* advance, whatever the current token is; parse next token in regexp context */ +DUK_LOCAL void duk__advance(duk_compiler_ctx *comp_ctx) { + duk__advance_helper(comp_ctx, -1); +} + +/* + * Helpers for duk_compiler_func. + */ + +/* init function state: inits valstack allocations */ +DUK_LOCAL void duk__init_func_valstack_slots(duk_compiler_ctx *comp_ctx) { + duk_compiler_func *func = &comp_ctx->curr_func; + duk_hthread *thr = comp_ctx->thr; + duk_idx_t entry_top; + + entry_top = duk_get_top(thr); + + duk_memzero(func, sizeof(*func)); /* intentional overlap with earlier memzero */ +#if defined(DUK_USE_EXPLICIT_NULL_INIT) + func->h_name = NULL; + func->h_consts = NULL; + func->h_funcs = NULL; + func->h_decls = NULL; + func->h_labelnames = NULL; + func->h_labelinfos = NULL; + func->h_argnames = NULL; + func->h_varmap = NULL; +#endif + + duk_require_stack(thr, DUK__FUNCTION_INIT_REQUIRE_SLOTS); + + DUK_BW_INIT_PUSHBUF(thr, &func->bw_code, DUK__BC_INITIAL_INSTS * sizeof(duk_compiler_instr)); + /* code_idx = entry_top + 0 */ + + duk_push_bare_array(thr); + func->consts_idx = entry_top + 1; + func->h_consts = DUK_GET_HOBJECT_POSIDX(thr, entry_top + 1); + DUK_ASSERT(func->h_consts != NULL); + + duk_push_bare_array(thr); + func->funcs_idx = entry_top + 2; + func->h_funcs = DUK_GET_HOBJECT_POSIDX(thr, entry_top + 2); + DUK_ASSERT(func->h_funcs != NULL); + DUK_ASSERT(func->fnum_next == 0); + + duk_push_bare_array(thr); + func->decls_idx = entry_top + 3; + func->h_decls = DUK_GET_HOBJECT_POSIDX(thr, entry_top + 3); + DUK_ASSERT(func->h_decls != NULL); + + duk_push_bare_array(thr); + func->labelnames_idx = entry_top + 4; + func->h_labelnames = DUK_GET_HOBJECT_POSIDX(thr, entry_top + 4); + DUK_ASSERT(func->h_labelnames != NULL); + + duk_push_dynamic_buffer(thr, 0); + func->labelinfos_idx = entry_top + 5; + func->h_labelinfos = (duk_hbuffer_dynamic *) duk_known_hbuffer(thr, entry_top + 5); + DUK_ASSERT(func->h_labelinfos != NULL); + DUK_ASSERT(DUK_HBUFFER_HAS_DYNAMIC(func->h_labelinfos) && !DUK_HBUFFER_HAS_EXTERNAL(func->h_labelinfos)); + + duk_push_bare_array(thr); + func->argnames_idx = entry_top + 6; + func->h_argnames = DUK_GET_HOBJECT_POSIDX(thr, entry_top + 6); + DUK_ASSERT(func->h_argnames != NULL); + + duk_push_bare_object(thr); + func->varmap_idx = entry_top + 7; + func->h_varmap = DUK_GET_HOBJECT_POSIDX(thr, entry_top + 7); + DUK_ASSERT(func->h_varmap != NULL); +} + +/* reset function state (prepare for pass 2) */ +DUK_LOCAL void duk__reset_func_for_pass2(duk_compiler_ctx *comp_ctx) { + duk_compiler_func *func = &comp_ctx->curr_func; + duk_hthread *thr = comp_ctx->thr; + + /* reset bytecode buffer but keep current size; pass 2 will + * require same amount or more. + */ + DUK_BW_RESET_SIZE(thr, &func->bw_code); + + duk_set_length(thr, func->consts_idx, 0); + /* keep func->h_funcs; inner functions are not reparsed to avoid O(depth^2) parsing */ + func->fnum_next = 0; + /* duk_set_length(thr, func->funcs_idx, 0); */ + duk_set_length(thr, func->labelnames_idx, 0); + duk_hbuffer_reset(thr, func->h_labelinfos); + /* keep func->h_argnames; it is fixed for all passes */ + + /* truncated in case pass 3 needed */ + duk_push_bare_object(thr); + duk_replace(thr, func->varmap_idx); + func->h_varmap = DUK_GET_HOBJECT_POSIDX(thr, func->varmap_idx); + DUK_ASSERT(func->h_varmap != NULL); +} + +/* cleanup varmap from any null entries, compact it, etc; returns number + * of final entries after cleanup. + */ +DUK_LOCAL duk_int_t duk__cleanup_varmap(duk_compiler_ctx *comp_ctx) { + duk_hthread *thr = comp_ctx->thr; + duk_hobject *h_varmap; + duk_hstring *h_key; + duk_tval *tv; + duk_uint32_t i, e_next; + duk_int_t ret; + + /* [ ... varmap ] */ + + h_varmap = DUK_GET_HOBJECT_NEGIDX(thr, -1); + DUK_ASSERT(h_varmap != NULL); + + ret = 0; + e_next = DUK_HOBJECT_GET_ENEXT(h_varmap); + for (i = 0; i < e_next; i++) { + h_key = DUK_HOBJECT_E_GET_KEY(thr->heap, h_varmap, i); + if (!h_key) { + continue; + } + + DUK_ASSERT(!DUK_HOBJECT_E_SLOT_IS_ACCESSOR(thr->heap, h_varmap, i)); + + /* The entries can either be register numbers or 'null' values. + * Thus, no need to DECREF them and get side effects. DECREF'ing + * the keys (strings) can cause memory to be freed but no side + * effects as strings don't have finalizers. This is why we can + * rely on the object properties not changing from underneath us. + */ + + tv = DUK_HOBJECT_E_GET_VALUE_TVAL_PTR(thr->heap, h_varmap, i); + if (!DUK_TVAL_IS_NUMBER(tv)) { + DUK_ASSERT(!DUK_TVAL_IS_HEAP_ALLOCATED(tv)); + DUK_HOBJECT_E_SET_KEY(thr->heap, h_varmap, i, NULL); + DUK_HSTRING_DECREF(thr, h_key); + /* when key is NULL, value is garbage so no need to set */ + } else { + ret++; + } + } + + duk_compact_m1(thr); + + return ret; +} + +/* Convert duk_compiler_func into a function template, leaving the result + * on top of stack. + */ +/* XXX: awkward and bloated asm -- use faster internal accesses */ +DUK_LOCAL void duk__convert_to_func_template(duk_compiler_ctx *comp_ctx) { + duk_compiler_func *func = &comp_ctx->curr_func; + duk_hthread *thr = comp_ctx->thr; + duk_hcompfunc *h_res; + duk_hbuffer_fixed *h_data; + duk_size_t consts_count; + duk_size_t funcs_count; + duk_size_t code_count; + duk_size_t code_size; + duk_size_t data_size; + duk_size_t i; + duk_tval *p_const; + duk_hobject **p_func; + duk_instr_t *p_instr; + duk_compiler_instr *q_instr; + duk_tval *tv; + duk_bool_t keep_varmap; + duk_bool_t keep_formals; +#if !defined(DUK_USE_DEBUGGER_SUPPORT) + duk_size_t formals_length; +#endif + + DUK_DDD(DUK_DDDPRINT("converting duk_compiler_func to function/template")); + + /* + * Push result object and init its flags + */ + + /* Valstack should suffice here, required on function valstack init */ + + h_res = duk_push_hcompfunc(thr); + DUK_ASSERT(h_res != NULL); + DUK_ASSERT(DUK_HOBJECT_GET_PROTOTYPE(thr->heap, (duk_hobject *) h_res) == thr->builtins[DUK_BIDX_FUNCTION_PROTOTYPE]); + DUK_HOBJECT_SET_PROTOTYPE_UPDREF(thr, (duk_hobject *) h_res, NULL); /* Function templates are "bare objects". */ + + if (func->is_function) { + DUK_DDD(DUK_DDDPRINT("function -> set NEWENV")); + DUK_HOBJECT_SET_NEWENV((duk_hobject *) h_res); + + if (!func->is_arguments_shadowed) { + /* arguments object would be accessible; note that shadowing + * bindings are arguments or function declarations, neither + * of which are deletable, so this is safe. + */ + + if (func->id_access_arguments || func->may_direct_eval) { + DUK_DDD(DUK_DDDPRINT("function may access 'arguments' object directly or " + "indirectly -> set CREATEARGS")); + DUK_HOBJECT_SET_CREATEARGS((duk_hobject *) h_res); + } + } + } else if (func->is_eval && func->is_strict) { + DUK_DDD(DUK_DDDPRINT("strict eval code -> set NEWENV")); + DUK_HOBJECT_SET_NEWENV((duk_hobject *) h_res); + } else { + /* non-strict eval: env is caller's env or global env (direct vs. indirect call) + * global code: env is is global env + */ + DUK_DDD(DUK_DDDPRINT("non-strict eval code or global code -> no NEWENV")); + DUK_ASSERT(!DUK_HOBJECT_HAS_NEWENV((duk_hobject *) h_res)); + } + +#if defined(DUK_USE_FUNC_NAME_PROPERTY) + if (func->is_function && func->is_namebinding && func->h_name != NULL) { + /* Object literal set/get functions have a name (property + * name) but must not have a lexical name binding, see + * test-bug-getset-func-name.js. + */ + DUK_DDD(DUK_DDDPRINT("function expression with a name -> set NAMEBINDING")); + DUK_HOBJECT_SET_NAMEBINDING((duk_hobject *) h_res); + } +#endif + + if (func->is_strict) { + DUK_DDD(DUK_DDDPRINT("function is strict -> set STRICT")); + DUK_HOBJECT_SET_STRICT((duk_hobject *) h_res); + } + + if (func->is_notail) { + DUK_DDD(DUK_DDDPRINT("function is notail -> set NOTAIL")); + DUK_HOBJECT_SET_NOTAIL((duk_hobject *) h_res); + } + + if (func->is_constructable) { + DUK_DDD(DUK_DDDPRINT("function is constructable -> set CONSTRUCTABLE")); + DUK_HOBJECT_SET_CONSTRUCTABLE((duk_hobject *) h_res); + } + + /* + * Build function fixed size 'data' buffer, which contains bytecode, + * constants, and inner function references. + * + * During the building phase 'data' is reachable but incomplete. + * Only incref's occur during building (no refzero or GC happens), + * so the building process is atomic. + */ + + consts_count = duk_hobject_get_length(thr, func->h_consts); + funcs_count = duk_hobject_get_length(thr, func->h_funcs) / 3; + code_count = DUK_BW_GET_SIZE(thr, &func->bw_code) / sizeof(duk_compiler_instr); + code_size = code_count * sizeof(duk_instr_t); + + data_size = consts_count * sizeof(duk_tval) + + funcs_count * sizeof(duk_hobject *) + + code_size; + + DUK_DDD(DUK_DDDPRINT("consts_count=%ld, funcs_count=%ld, code_size=%ld -> " + "data_size=%ld*%ld + %ld*%ld + %ld = %ld", + (long) consts_count, (long) funcs_count, (long) code_size, + (long) consts_count, (long) sizeof(duk_tval), + (long) funcs_count, (long) sizeof(duk_hobject *), + (long) code_size, (long) data_size)); + + duk_push_fixed_buffer_nozero(thr, data_size); + h_data = (duk_hbuffer_fixed *) (void *) duk_known_hbuffer(thr, -1); + + DUK_HCOMPFUNC_SET_DATA(thr->heap, h_res, (duk_hbuffer *) h_data); + DUK_HEAPHDR_INCREF(thr, h_data); + + p_const = (duk_tval *) (void *) DUK_HBUFFER_FIXED_GET_DATA_PTR(thr->heap, h_data); + for (i = 0; i < consts_count; i++) { + DUK_ASSERT(i <= DUK_UARRIDX_MAX); /* const limits */ + tv = duk_hobject_find_array_entry_tval_ptr(thr->heap, func->h_consts, (duk_uarridx_t) i); + DUK_ASSERT(tv != NULL); + DUK_TVAL_SET_TVAL(p_const, tv); + p_const++; + DUK_TVAL_INCREF(thr, tv); /* may be a string constant */ + + DUK_DDD(DUK_DDDPRINT("constant: %!T", (duk_tval *) tv)); + } + + p_func = (duk_hobject **) p_const; + DUK_HCOMPFUNC_SET_FUNCS(thr->heap, h_res, p_func); + for (i = 0; i < funcs_count; i++) { + duk_hobject *h; + DUK_ASSERT(i * 3 <= DUK_UARRIDX_MAX); /* func limits */ + tv = duk_hobject_find_array_entry_tval_ptr(thr->heap, func->h_funcs, (duk_uarridx_t) (i * 3)); + DUK_ASSERT(tv != NULL); + DUK_ASSERT(DUK_TVAL_IS_OBJECT(tv)); + h = DUK_TVAL_GET_OBJECT(tv); + DUK_ASSERT(h != NULL); + DUK_ASSERT(DUK_HOBJECT_IS_COMPFUNC(h)); + *p_func++ = h; + DUK_HOBJECT_INCREF(thr, h); + + DUK_DDD(DUK_DDDPRINT("inner function: %p -> %!iO", + (void *) h, (duk_heaphdr *) h)); + } + + p_instr = (duk_instr_t *) p_func; + DUK_HCOMPFUNC_SET_BYTECODE(thr->heap, h_res, p_instr); + + /* copy bytecode instructions one at a time */ + q_instr = (duk_compiler_instr *) (void *) DUK_BW_GET_BASEPTR(thr, &func->bw_code); + for (i = 0; i < code_count; i++) { + p_instr[i] = q_instr[i].ins; + } + /* Note: 'q_instr' is still used below */ + + DUK_ASSERT((duk_uint8_t *) (p_instr + code_count) == DUK_HBUFFER_FIXED_GET_DATA_PTR(thr->heap, h_data) + data_size); + + duk_pop(thr); /* 'data' (and everything in it) is reachable through h_res now */ + + /* + * Init non-property result fields + * + * 'nregs' controls how large a register frame is allocated. + * + * 'nargs' controls how many formal arguments are written to registers: + * r0, ... r(nargs-1). The remaining registers are initialized to + * undefined. + */ + + DUK_ASSERT(func->temp_max >= 0); + h_res->nregs = (duk_uint16_t) func->temp_max; + h_res->nargs = (duk_uint16_t) duk_hobject_get_length(thr, func->h_argnames); + DUK_ASSERT(h_res->nregs >= h_res->nargs); /* pass2 allocation handles this */ +#if defined(DUK_USE_DEBUGGER_SUPPORT) + h_res->start_line = (duk_uint32_t) func->min_line; + h_res->end_line = (duk_uint32_t) func->max_line; +#endif + + /* + * Init object properties + * + * Properties should be added in decreasing order of access frequency. + * (Not very critical for function templates.) + */ + + DUK_DDD(DUK_DDDPRINT("init function properties")); + + /* [ ... res ] */ + + /* _Varmap: omitted if function is guaranteed not to do a slow path + * identifier access that might be caught by locally declared variables. + * The varmap can also be omitted if it turns out empty of actual + * register mappings after a cleanup. When debugging is enabled, we + * always need the varmap to be able to lookup variables at any point. + */ + +#if defined(DUK_USE_DEBUGGER_SUPPORT) + DUK_DD(DUK_DDPRINT("keeping _Varmap because debugger support is enabled")); + keep_varmap = 1; +#else + if (func->id_access_slow_own || /* directly uses slow accesses that may match own variables */ + func->id_access_arguments || /* accesses 'arguments' directly */ + func->may_direct_eval || /* may indirectly slow access through a direct eval */ + funcs_count > 0) { /* has inner functions which may slow access (XXX: this can be optimized by looking at the inner functions) */ + DUK_DD(DUK_DDPRINT("keeping _Varmap because of direct eval, slow path access that may match local variables, or presence of inner functions")); + keep_varmap = 1; + } else { + DUK_DD(DUK_DDPRINT("dropping _Varmap")); + keep_varmap = 0; + } +#endif + + if (keep_varmap) { + duk_int_t num_used; + duk_dup(thr, func->varmap_idx); + num_used = duk__cleanup_varmap(comp_ctx); + DUK_DDD(DUK_DDDPRINT("cleaned up varmap: %!T (num_used=%ld)", + (duk_tval *) duk_get_tval(thr, -1), (long) num_used)); + + if (num_used > 0) { + duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_INT_VARMAP, DUK_PROPDESC_FLAGS_NONE); + } else { + DUK_DD(DUK_DDPRINT("varmap is empty after cleanup -> no need to add")); + duk_pop(thr); + } + } + + /* _Formals: omitted if function is guaranteed not to need a (non-strict) + * arguments object, and _Formals.length matches nargs exactly. + * + * Non-arrow functions can't see an outer function's 'argument' binding + * (because they have their own), but arrow functions can. When arrow + * functions are added, this condition would need to be added: + * inner_arrow_funcs_count > 0 inner arrow functions may access 'arguments' + */ +#if defined(DUK_USE_DEBUGGER_SUPPORT) + DUK_DD(DUK_DDPRINT("keeping _Formals because debugger support is enabled")); + keep_formals = 1; +#else + formals_length = duk_get_length(thr, func->argnames_idx); + if (formals_length != (duk_size_t) h_res->nargs) { + /* Nargs not enough for closure .length: keep _Formals regardless + * of its length. Shouldn't happen in practice at the moment. + */ + DUK_DD(DUK_DDPRINT("keeping _Formals because _Formals.length != nargs")); + keep_formals = 1; + } else if ((func->id_access_arguments || func->may_direct_eval) && + (formals_length > 0)) { + /* Direct eval (may access 'arguments') or accesses 'arguments' + * explicitly: keep _Formals unless it is zero length. + */ + DUK_DD(DUK_DDPRINT("keeping _Formals because of direct eval or explicit access to 'arguments', and _Formals.length != 0")); + keep_formals = 1; + } else { + DUK_DD(DUK_DDPRINT("omitting _Formals, nargs matches _Formals.length, so no properties added")); + keep_formals = 0; + } +#endif + + if (keep_formals) { + duk_dup(thr, func->argnames_idx); + duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_INT_FORMALS, DUK_PROPDESC_FLAGS_NONE); + } + + /* name */ +#if defined(DUK_USE_FUNC_NAME_PROPERTY) + if (func->h_name) { + duk_push_hstring(thr, func->h_name); + DUK_DD(DUK_DDPRINT("setting function template .name to %!T", duk_get_tval(thr, -1))); + duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_NAME, DUK_PROPDESC_FLAGS_NONE); + } +#endif /* DUK_USE_FUNC_NAME_PROPERTY */ + + /* _Source */ +#if defined(DUK_USE_NONSTD_FUNC_SOURCE_PROPERTY) + if (0) { + /* XXX: Currently function source code is not stored, as it is not + * required by the standard. Source code should not be stored by + * default (user should enable it explicitly), and the source should + * probably be compressed with a trivial text compressor; average + * compression of 20-30% is quite easy to achieve even with a trivial + * compressor (RLE + backwards lookup). + * + * Debugging needs source code to be useful: sometimes input code is + * not found in files as it may be generated and then eval()'d, given + * by dynamic C code, etc. + * + * Other issues: + * + * - Need tokenizer indices for start and end to substring + * - Always normalize function declaration part? + * - If we keep _Formals, only need to store body + */ + + /* + * For global or eval code this is straightforward. For functions + * created with the Function constructor we only get the source for + * the body and must manufacture the "function ..." part. + * + * For instance, for constructed functions (v8): + * + * > a = new Function("foo", "bar", "print(foo)"); + * [Function] + * > a.toString() + * 'function anonymous(foo,bar) {\nprint(foo)\n}' + * + * Similarly for e.g. getters (v8): + * + * > x = { get a(foo,bar) { print(foo); } } + * { a: [Getter] } + * > Object.getOwnPropertyDescriptor(x, 'a').get.toString() + * 'function a(foo,bar) { print(foo); }' + */ + +#if 0 + duk_push_literal(thr, "XXX"); + duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_INT_SOURCE, DUK_PROPDESC_FLAGS_NONE); +#endif + } +#endif /* DUK_USE_NONSTD_FUNC_SOURCE_PROPERTY */ + + /* _Pc2line */ +#if defined(DUK_USE_PC2LINE) + if (1) { + /* + * Size-optimized pc->line mapping. + */ + + DUK_ASSERT(code_count <= DUK_COMPILER_MAX_BYTECODE_LENGTH); + duk_hobject_pc2line_pack(thr, q_instr, (duk_uint_fast32_t) code_count); /* -> pushes fixed buffer */ + duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_INT_PC2LINE, DUK_PROPDESC_FLAGS_NONE); + + /* XXX: if assertions enabled, walk through all valid PCs + * and check line mapping. + */ + } +#endif /* DUK_USE_PC2LINE */ + + /* fileName */ +#if defined(DUK_USE_FUNC_FILENAME_PROPERTY) + if (comp_ctx->h_filename) { + /* + * Source filename (or equivalent), for identifying thrown errors. + */ + + duk_push_hstring(thr, comp_ctx->h_filename); + duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_FILE_NAME, DUK_PROPDESC_FLAGS_NONE); + } +#endif + + DUK_DD(DUK_DDPRINT("converted function: %!ixT", + (duk_tval *) duk_get_tval(thr, -1))); + + /* + * Compact the function template. + */ + + duk_compact_m1(thr); + + /* + * Debug dumping + */ + +#if defined(DUK_USE_DEBUG_LEVEL) && (DUK_USE_DEBUG_LEVEL >= 2) + { + duk_hcompfunc *h; + duk_instr_t *p, *p_start, *p_end; + + h = (duk_hcompfunc *) duk_get_hobject(thr, -1); + p_start = (duk_instr_t *) DUK_HCOMPFUNC_GET_CODE_BASE(thr->heap, h); + p_end = (duk_instr_t *) DUK_HCOMPFUNC_GET_CODE_END(thr->heap, h); + + p = p_start; + while (p < p_end) { + DUK_DDD(DUK_DDDPRINT("BC %04ld: %!I ; 0x%08lx op=%ld (%!X) a=%ld b=%ld c=%ld", + (long) (p - p_start), + (duk_instr_t) (*p), + (unsigned long) (*p), + (long) DUK_DEC_OP(*p), + (long) DUK_DEC_OP(*p), + (long) DUK_DEC_A(*p), + (long) DUK_DEC_B(*p), + (long) DUK_DEC_C(*p))); + p++; + } + } +#endif +} + +/* + * Code emission helpers + * + * Some emission helpers understand the range of target and source reg/const + * values and automatically emit shuffling code if necessary. This is the + * case when the slot in question (A, B, C) is used in the standard way and + * for opcodes the emission helpers explicitly understand (like DUK_OP_MPUTOBJ). + * + * The standard way is that: + * - slot A is a target register + * - slot B is a source register/constant + * - slot C is a source register/constant + * + * If a slot is used in a non-standard way the caller must indicate this + * somehow. If a slot is used as a target instead of a source (or vice + * versa), this can be indicated with a flag to trigger proper shuffling + * (e.g. DUK__EMIT_FLAG_B_IS_TARGET). If the value in the slot is not + * register/const related at all, the caller must ensure that the raw value + * fits into the corresponding slot so as to not trigger shuffling. The + * caller must set a "no shuffle" flag to ensure compilation fails if + * shuffling were to be triggered because of an internal error. + * + * For slots B and C the raw slot size is 9 bits but one bit is reserved for + * the reg/const indicator. To use the full 9-bit range for a raw value, + * shuffling must be disabled with the DUK__EMIT_FLAG_NO_SHUFFLE_{B,C} flag. + * Shuffling is only done for A, B, and C slots, not the larger BC or ABC slots. + * + * There is call handling specific understanding in the A-B-C emitter to + * convert call setup and call instructions into indirect ones if necessary. + */ + +/* Code emission flags, passed in the 'opcode' field. Opcode + flags + * fit into 16 bits for now, so use duk_small_uint_t. + */ +#define DUK__EMIT_FLAG_NO_SHUFFLE_A (1 << 8) +#define DUK__EMIT_FLAG_NO_SHUFFLE_B (1 << 9) +#define DUK__EMIT_FLAG_NO_SHUFFLE_C (1 << 10) +#define DUK__EMIT_FLAG_A_IS_SOURCE (1 << 11) /* slot A is a source (default: target) */ +#define DUK__EMIT_FLAG_B_IS_TARGET (1 << 12) /* slot B is a target (default: source) */ +#define DUK__EMIT_FLAG_C_IS_TARGET (1 << 13) /* slot C is a target (default: source) */ +#define DUK__EMIT_FLAG_BC_REGCONST (1 << 14) /* slots B and C are reg/const */ +#define DUK__EMIT_FLAG_RESERVE_JUMPSLOT (1 << 15) /* reserve a jumpslot after instr before target spilling, used for NEXTENUM */ + +/* XXX: macro smaller than call? */ +DUK_LOCAL duk_int_t duk__get_current_pc(duk_compiler_ctx *comp_ctx) { + duk_compiler_func *func; + func = &comp_ctx->curr_func; + return (duk_int_t) (DUK_BW_GET_SIZE(comp_ctx->thr, &func->bw_code) / sizeof(duk_compiler_instr)); +} + +DUK_LOCAL duk_compiler_instr *duk__get_instr_ptr(duk_compiler_ctx *comp_ctx, duk_int_t pc) { + DUK_ASSERT(pc >= 0); + DUK_ASSERT((duk_size_t) pc < (duk_size_t) (DUK_BW_GET_SIZE(comp_ctx->thr, &comp_ctx->curr_func.bw_code) / sizeof(duk_compiler_instr))); + return ((duk_compiler_instr *) (void *) DUK_BW_GET_BASEPTR(comp_ctx->thr, &comp_ctx->curr_func.bw_code)) + pc; +} + +/* emit instruction; could return PC but that's not needed in the majority + * of cases. + */ +DUK_LOCAL void duk__emit(duk_compiler_ctx *comp_ctx, duk_instr_t ins) { +#if defined(DUK_USE_PC2LINE) + duk_int_t line; +#endif + duk_compiler_instr *instr; + + DUK_DDD(DUK_DDDPRINT("duk__emit: 0x%08lx curr_token.start_line=%ld prev_token.start_line=%ld pc=%ld --> %!I", + (unsigned long) ins, + (long) comp_ctx->curr_token.start_line, + (long) comp_ctx->prev_token.start_line, + (long) duk__get_current_pc(comp_ctx), + (duk_instr_t) ins)); + + instr = (duk_compiler_instr *) (void *) DUK_BW_ENSURE_GETPTR(comp_ctx->thr, &comp_ctx->curr_func.bw_code, sizeof(duk_compiler_instr)); + DUK_BW_ADD_PTR(comp_ctx->thr, &comp_ctx->curr_func.bw_code, sizeof(duk_compiler_instr)); + +#if defined(DUK_USE_PC2LINE) + /* The line number tracking is a bit inconsistent right now, which + * affects debugger accuracy. Mostly call sites emit opcodes when + * they have parsed a token (say a terminating semicolon) and called + * duk__advance(). In this case the line number of the previous + * token is the most accurate one (except in prologue where + * prev_token.start_line is 0). This is probably not 100% correct + * right now. + */ + /* approximation, close enough */ + line = comp_ctx->prev_token.start_line; + if (line == 0) { + line = comp_ctx->curr_token.start_line; + } +#endif + + instr->ins = ins; +#if defined(DUK_USE_PC2LINE) + instr->line = (duk_uint32_t) line; +#endif +#if defined(DUK_USE_DEBUGGER_SUPPORT) + if (line < comp_ctx->curr_func.min_line) { + comp_ctx->curr_func.min_line = line; + } + if (line > comp_ctx->curr_func.max_line) { + comp_ctx->curr_func.max_line = line; + } +#endif + + /* Limit checks for bytecode byte size and line number. */ + if (DUK_UNLIKELY(DUK_BW_GET_SIZE(comp_ctx->thr, &comp_ctx->curr_func.bw_code) > DUK_USE_ESBC_MAX_BYTES)) { + goto fail_bc_limit; + } +#if defined(DUK_USE_PC2LINE) && defined(DUK_USE_ESBC_LIMITS) +#if defined(DUK_USE_BUFLEN16) + /* Buffer length is bounded to 0xffff automatically, avoid compile warning. */ + if (DUK_UNLIKELY(line > DUK_USE_ESBC_MAX_LINENUMBER)) { + goto fail_bc_limit; + } +#else + if (DUK_UNLIKELY(line > DUK_USE_ESBC_MAX_LINENUMBER)) { + goto fail_bc_limit; + } +#endif +#endif + + return; + + fail_bc_limit: + DUK_ERROR_RANGE(comp_ctx->thr, DUK_STR_BYTECODE_LIMIT); + DUK_WO_NORETURN(return;); +} + +/* Update function min/max line from current token. Needed to improve + * function line range information for debugging, so that e.g. opening + * curly brace is covered by line range even when no opcodes are emitted + * for the line containing the brace. + */ +DUK_LOCAL void duk__update_lineinfo_currtoken(duk_compiler_ctx *comp_ctx) { +#if defined(DUK_USE_DEBUGGER_SUPPORT) + duk_int_t line; + + line = comp_ctx->curr_token.start_line; + if (line == 0) { + return; + } + if (line < comp_ctx->curr_func.min_line) { + comp_ctx->curr_func.min_line = line; + } + if (line > comp_ctx->curr_func.max_line) { + comp_ctx->curr_func.max_line = line; + } +#else + DUK_UNREF(comp_ctx); +#endif +} + +DUK_LOCAL void duk__emit_op_only(duk_compiler_ctx *comp_ctx, duk_small_uint_t op) { + duk__emit(comp_ctx, DUK_ENC_OP_ABC(op, 0)); +} + +/* Important main primitive. */ +DUK_LOCAL void duk__emit_a_b_c(duk_compiler_ctx *comp_ctx, duk_small_uint_t op_flags, duk_regconst_t a, duk_regconst_t b, duk_regconst_t c) { + duk_instr_t ins = 0; + duk_int_t a_out = -1; + duk_int_t b_out = -1; + duk_int_t c_out = -1; + duk_int_t tmp; + duk_small_uint_t op = op_flags & 0xffU; + + DUK_DDD(DUK_DDDPRINT("emit: op_flags=%04lx, a=%ld, b=%ld, c=%ld", + (unsigned long) op_flags, (long) a, (long) b, (long) c)); + + /* We could rely on max temp/const checks: if they don't exceed BC + * limit, nothing here can either (just asserts would be enough). + * Currently we check for the limits, which provides additional + * protection against creating invalid bytecode due to compiler + * bugs. + */ + + DUK_ASSERT_DISABLE((op_flags & 0xff) >= DUK_BC_OP_MIN); /* unsigned */ + DUK_ASSERT((op_flags & 0xff) <= DUK_BC_OP_MAX); + DUK_ASSERT(DUK__ISREG(a)); + DUK_ASSERT(b != -1); /* Not 'none'. */ + DUK_ASSERT(c != -1); /* Not 'none'. */ + + /* Input shuffling happens before the actual operation, while output + * shuffling happens afterwards. Output shuffling decisions are still + * made at the same time to reduce branch clutter; output shuffle decisions + * are recorded into X_out variables. + */ + + /* Slot A: currently no support for reg/const. */ + +#if defined(DUK_USE_SHUFFLE_TORTURE) + if (a <= DUK_BC_A_MAX && (op_flags & DUK__EMIT_FLAG_NO_SHUFFLE_A)) { +#else + if (a <= DUK_BC_A_MAX) { +#endif + ; + } else if (op_flags & DUK__EMIT_FLAG_NO_SHUFFLE_A) { + DUK_D(DUK_DPRINT("out of regs: 'a' (reg) needs shuffling but shuffle prohibited, a: %ld", (long) a)); + goto error_outofregs; + } else if (a <= DUK_BC_BC_MAX) { + comp_ctx->curr_func.needs_shuffle = 1; + tmp = comp_ctx->curr_func.shuffle1; + if (op_flags & DUK__EMIT_FLAG_A_IS_SOURCE) { + duk__emit(comp_ctx, DUK_ENC_OP_A_BC(DUK_OP_LDREG, tmp, a)); + } else { + /* Output shuffle needed after main operation */ + a_out = a; + + /* The DUK_OP_CSVAR output shuffle assumes shuffle registers are + * consecutive. + */ + DUK_ASSERT((comp_ctx->curr_func.shuffle1 == 0 && comp_ctx->curr_func.shuffle2 == 0) || + (comp_ctx->curr_func.shuffle2 == comp_ctx->curr_func.shuffle1 + 1)); + if (op == DUK_OP_CSVAR) { + /* For CSVAR the limit is one smaller because output shuffle + * must be able to express 'a + 1' in BC. + */ + if (a + 1 > DUK_BC_BC_MAX) { + goto error_outofregs; + } + } + } + a = tmp; + } else { + DUK_D(DUK_DPRINT("out of regs: 'a' (reg) needs shuffling but does not fit into BC, a: %ld", (long) a)); + goto error_outofregs; + } + + /* Slot B: reg/const support, mapped to bit 0 of opcode. */ + + if ((b & DUK__CONST_MARKER) != 0) { + DUK_ASSERT((op_flags & DUK__EMIT_FLAG_NO_SHUFFLE_B) == 0); + DUK_ASSERT((op_flags & DUK__EMIT_FLAG_B_IS_TARGET) == 0); + b = b & ~DUK__CONST_MARKER; +#if defined(DUK_USE_SHUFFLE_TORTURE) + if (0) { +#else + if (b <= 0xff) { +#endif + if (op_flags & DUK__EMIT_FLAG_BC_REGCONST) { + /* Opcode follows B/C reg/const convention. */ + DUK_ASSERT((op & 0x01) == 0); + ins |= DUK_ENC_OP_A_B_C(0x01, 0, 0, 0); /* const flag for B */ + } else { + DUK_D(DUK_DPRINT("B is const, opcode is not B/C reg/const: %x", op_flags)); + } + } else if (b <= DUK_BC_BC_MAX) { + comp_ctx->curr_func.needs_shuffle = 1; + tmp = comp_ctx->curr_func.shuffle2; + duk__emit(comp_ctx, DUK_ENC_OP_A_BC(DUK_OP_LDCONST, tmp, b)); + b = tmp; + } else { + DUK_D(DUK_DPRINT("out of regs: 'b' (const) needs shuffling but does not fit into BC, b: %ld", (long) b)); + goto error_outofregs; + } + } else { +#if defined(DUK_USE_SHUFFLE_TORTURE) + if (b <= 0xff && (op_flags & DUK__EMIT_FLAG_NO_SHUFFLE_B)) { +#else + if (b <= 0xff) { +#endif + ; + } else if (op_flags & DUK__EMIT_FLAG_NO_SHUFFLE_B) { + if (b > DUK_BC_B_MAX) { + /* Note: 0xff != DUK_BC_B_MAX */ + DUK_D(DUK_DPRINT("out of regs: 'b' (reg) needs shuffling but shuffle prohibited, b: %ld", (long) b)); + goto error_outofregs; + } + } else if (b <= DUK_BC_BC_MAX) { + comp_ctx->curr_func.needs_shuffle = 1; + tmp = comp_ctx->curr_func.shuffle2; + if (op_flags & DUK__EMIT_FLAG_B_IS_TARGET) { + /* Output shuffle needed after main operation */ + b_out = b; + } + if (!(op_flags & DUK__EMIT_FLAG_B_IS_TARGET)) { + if (op == DUK_OP_MPUTOBJ || op == DUK_OP_MPUTARR) { + /* Special handling for MPUTOBJ/MPUTARR shuffling. + * For each, slot B identifies the first register of a range + * of registers, so normal shuffling won't work. Instead, + * an indirect version of the opcode is used. + */ + DUK_ASSERT((op_flags & DUK__EMIT_FLAG_B_IS_TARGET) == 0); + duk__emit_load_int32_noshuffle(comp_ctx, tmp, b); + DUK_ASSERT(DUK_OP_MPUTOBJI == DUK_OP_MPUTOBJ + 1); + DUK_ASSERT(DUK_OP_MPUTARRI == DUK_OP_MPUTARR + 1); + op_flags++; /* indirect opcode follows direct */ + } else { + duk__emit(comp_ctx, DUK_ENC_OP_A_BC(DUK_OP_LDREG, tmp, b)); + } + } + b = tmp; + } else { + DUK_D(DUK_DPRINT("out of regs: 'b' (reg) needs shuffling but does not fit into BC, b: %ld", (long) b)); + goto error_outofregs; + } + } + + /* Slot C: reg/const support, mapped to bit 1 of opcode. */ + + if ((c & DUK__CONST_MARKER) != 0) { + DUK_ASSERT((op_flags & DUK__EMIT_FLAG_NO_SHUFFLE_C) == 0); + DUK_ASSERT((op_flags & DUK__EMIT_FLAG_C_IS_TARGET) == 0); + c = c & ~DUK__CONST_MARKER; +#if defined(DUK_USE_SHUFFLE_TORTURE) + if (0) { +#else + if (c <= 0xff) { +#endif + if (op_flags & DUK__EMIT_FLAG_BC_REGCONST) { + /* Opcode follows B/C reg/const convention. */ + DUK_ASSERT((op & 0x02) == 0); + ins |= DUK_ENC_OP_A_B_C(0x02, 0, 0, 0); /* const flag for C */ + } else { + DUK_D(DUK_DPRINT("C is const, opcode is not B/C reg/const: %x", op_flags)); + } + } else if (c <= DUK_BC_BC_MAX) { + comp_ctx->curr_func.needs_shuffle = 1; + tmp = comp_ctx->curr_func.shuffle3; + duk__emit(comp_ctx, DUK_ENC_OP_A_BC(DUK_OP_LDCONST, tmp, c)); + c = tmp; + } else { + DUK_D(DUK_DPRINT("out of regs: 'c' (const) needs shuffling but does not fit into BC, c: %ld", (long) c)); + goto error_outofregs; + } + } else { +#if defined(DUK_USE_SHUFFLE_TORTURE) + if (c <= 0xff && (op_flags & DUK__EMIT_FLAG_NO_SHUFFLE_C)) { +#else + if (c <= 0xff) { +#endif + ; + } else if (op_flags & DUK__EMIT_FLAG_NO_SHUFFLE_C) { + if (c > DUK_BC_C_MAX) { + /* Note: 0xff != DUK_BC_C_MAX */ + DUK_D(DUK_DPRINT("out of regs: 'c' (reg) needs shuffling but shuffle prohibited, c: %ld", (long) c)); + goto error_outofregs; + } + } else if (c <= DUK_BC_BC_MAX) { + comp_ctx->curr_func.needs_shuffle = 1; + tmp = comp_ctx->curr_func.shuffle3; + if (op_flags & DUK__EMIT_FLAG_C_IS_TARGET) { + /* Output shuffle needed after main operation */ + c_out = c; + } else { + duk__emit(comp_ctx, DUK_ENC_OP_A_BC(DUK_OP_LDREG, tmp, c)); + } + c = tmp; + } else { + DUK_D(DUK_DPRINT("out of regs: 'c' (reg) needs shuffling but does not fit into BC, c: %ld", (long) c)); + goto error_outofregs; + } + } + + /* Main operation */ + + DUK_ASSERT(a >= DUK_BC_A_MIN); + DUK_ASSERT(a <= DUK_BC_A_MAX); + DUK_ASSERT(b >= DUK_BC_B_MIN); + DUK_ASSERT(b <= DUK_BC_B_MAX); + DUK_ASSERT(c >= DUK_BC_C_MIN); + DUK_ASSERT(c <= DUK_BC_C_MAX); + + ins |= DUK_ENC_OP_A_B_C(op_flags & 0xff, a, b, c); + duk__emit(comp_ctx, ins); + + /* NEXTENUM needs a jump slot right after the main instruction. + * When the JUMP is taken, output spilling is not needed so this + * workaround is possible. The jump slot PC is exceptionally + * plumbed through comp_ctx to minimize call sites. + */ + if (op_flags & DUK__EMIT_FLAG_RESERVE_JUMPSLOT) { + comp_ctx->emit_jumpslot_pc = duk__get_current_pc(comp_ctx); + duk__emit_abc(comp_ctx, DUK_OP_JUMP, 0); + } + + /* Output shuffling: only one output register is realistically possible. + * + * (Zero would normally be an OK marker value: if the target register + * was zero, it would never be shuffled. But with DUK_USE_SHUFFLE_TORTURE + * this is no longer true, so use -1 as a marker instead.) + */ + + if (a_out >= 0) { + DUK_ASSERT(b_out < 0); + DUK_ASSERT(c_out < 0); + duk__emit(comp_ctx, DUK_ENC_OP_A_BC(DUK_OP_STREG, a, a_out)); + + if (op == DUK_OP_CSVAR) { + /* Special handling for CSVAR shuffling. The variable lookup + * results in a pair in successive + * registers so use two shuffle registers and two output + * loads. (In practice this is dead code because temp/const + * limit is reached first.) + */ + duk__emit(comp_ctx, DUK_ENC_OP_A_BC(DUK_OP_STREG, a + 1, a_out + 1)); + } + } else if (b_out >= 0) { + DUK_ASSERT(a_out < 0); + DUK_ASSERT(c_out < 0); + duk__emit(comp_ctx, DUK_ENC_OP_A_BC(DUK_OP_STREG, b, b_out)); + } else if (c_out >= 0) { + DUK_ASSERT(b_out < 0); + DUK_ASSERT(c_out < 0); + duk__emit(comp_ctx, DUK_ENC_OP_A_BC(DUK_OP_STREG, c, c_out)); + } + + return; + + error_outofregs: + DUK_ERROR_RANGE(comp_ctx->thr, DUK_STR_REG_LIMIT); + DUK_WO_NORETURN(return;); +} + +/* For many of the helpers below it'd be technically correct to add + * "no shuffle" flags for parameters passed in as zero. For example, + * duk__emit_a_b() should call duk__emit_a_b_c() with C set to 0, and + * DUK__EMIT_FLAG_NO_SHUFFLE_C added to op_flags. However, since the + * C value is 0, it'll never get shuffled so adding the flag is just + * unnecessary additional code. This is unfortunately not true for + * "shuffle torture" mode which needs special handling. + */ + +DUK_LOCAL void duk__emit_a_b(duk_compiler_ctx *comp_ctx, duk_small_uint_t op_flags, duk_regconst_t a, duk_regconst_t b) { +#if defined(DUK_USE_SHUFFLE_TORTURE) + op_flags |= DUK__EMIT_FLAG_NO_SHUFFLE_C; +#endif + duk__emit_a_b_c(comp_ctx, op_flags, a, b, 0); +} + +DUK_LOCAL void duk__emit_b_c(duk_compiler_ctx *comp_ctx, duk_small_uint_t op_flags, duk_regconst_t b, duk_regconst_t c) { +#if defined(DUK_USE_SHUFFLE_TORTURE) + op_flags |= DUK__EMIT_FLAG_NO_SHUFFLE_A; +#endif + duk__emit_a_b_c(comp_ctx, op_flags, 0, b, c); +} + +#if 0 /* unused */ +DUK_LOCAL void duk__emit_a(duk_compiler_ctx *comp_ctx, int op_flags, int a) { +#if defined(DUK_USE_SHUFFLE_TORTURE) + op_flags |= DUK__EMIT_FLAG_NO_SHUFFLE_B | DUK__EMIT_FLAG_NO_SHUFFLE_C; +#endif + duk__emit_a_b_c(comp_ctx, op_flags, a, 0, 0); +} +#endif + +#if 0 /* unused */ +DUK_LOCAL void duk__emit_b(duk_compiler_ctx *comp_ctx, duk_small_uint_t op_flags, duk_regconst_t b) { +#if defined(DUK_USE_SHUFFLE_TORTURE) + op_flags |= DUK__EMIT_FLAG_NO_SHUFFLE_A | DUK__EMIT_FLAG_NO_SHUFFLE_C; +#endif + duk__emit_a_b_c(comp_ctx, op_flags, 0, b, 0); +} +#endif + +DUK_LOCAL void duk__emit_a_bc(duk_compiler_ctx *comp_ctx, duk_small_uint_t op_flags, duk_regconst_t a, duk_regconst_t bc) { + duk_instr_t ins; + duk_int_t tmp; + + /* allow caller to give a const number with the DUK__CONST_MARKER */ + DUK_ASSERT(bc != -1); /* Not 'none'. */ + bc = bc & (~DUK__CONST_MARKER); + + DUK_ASSERT_DISABLE((op_flags & 0xff) >= DUK_BC_OP_MIN); /* unsigned */ + DUK_ASSERT((op_flags & 0xff) <= DUK_BC_OP_MAX); + DUK_ASSERT(bc >= DUK_BC_BC_MIN); + DUK_ASSERT(bc <= DUK_BC_BC_MAX); + DUK_ASSERT((bc & DUK__CONST_MARKER) == 0); + + if (bc <= DUK_BC_BC_MAX) { + ; + } else { + /* No BC shuffling now. */ + goto error_outofregs; + } + +#if defined(DUK_USE_SHUFFLE_TORTURE) + if (a <= DUK_BC_A_MAX && (op_flags & DUK__EMIT_FLAG_NO_SHUFFLE_A)) { +#else + if (a <= DUK_BC_A_MAX) { +#endif + ins = DUK_ENC_OP_A_BC(op_flags & 0xff, a, bc); + duk__emit(comp_ctx, ins); + } else if (op_flags & DUK__EMIT_FLAG_NO_SHUFFLE_A) { + goto error_outofregs; + } else if ((op_flags & 0xf0U) == DUK_OP_CALL0) { + comp_ctx->curr_func.needs_shuffle = 1; + tmp = comp_ctx->curr_func.shuffle1; + duk__emit_load_int32_noshuffle(comp_ctx, tmp, a); + op_flags |= DUK_BC_CALL_FLAG_INDIRECT; + ins = DUK_ENC_OP_A_BC(op_flags & 0xff, tmp, bc); + duk__emit(comp_ctx, ins); + } else if (a <= DUK_BC_BC_MAX) { + comp_ctx->curr_func.needs_shuffle = 1; + tmp = comp_ctx->curr_func.shuffle1; + ins = DUK_ENC_OP_A_BC(op_flags & 0xff, tmp, bc); + if (op_flags & DUK__EMIT_FLAG_A_IS_SOURCE) { + duk__emit(comp_ctx, DUK_ENC_OP_A_BC(DUK_OP_LDREG, tmp, a)); + duk__emit(comp_ctx, ins); + } else { + duk__emit(comp_ctx, ins); + duk__emit(comp_ctx, DUK_ENC_OP_A_BC(DUK_OP_STREG, tmp, a)); + } + } else { + goto error_outofregs; + } + return; + + error_outofregs: + DUK_ERROR_RANGE(comp_ctx->thr, DUK_STR_REG_LIMIT); + DUK_WO_NORETURN(return;); +} + +DUK_LOCAL void duk__emit_bc(duk_compiler_ctx *comp_ctx, duk_small_uint_t op, duk_regconst_t bc) { +#if defined(DUK_USE_SHUFFLE_TORTURE) + op |= DUK__EMIT_FLAG_NO_SHUFFLE_A; +#endif + duk__emit_a_bc(comp_ctx, op, 0, bc); +} + +DUK_LOCAL void duk__emit_abc(duk_compiler_ctx *comp_ctx, duk_small_uint_t op, duk_regconst_t abc) { + duk_instr_t ins; + + DUK_ASSERT_DISABLE(op >= DUK_BC_OP_MIN); /* unsigned */ + DUK_ASSERT(op <= DUK_BC_OP_MAX); + DUK_ASSERT_DISABLE(abc >= DUK_BC_ABC_MIN); /* unsigned */ + DUK_ASSERT(abc <= DUK_BC_ABC_MAX); + DUK_ASSERT((abc & DUK__CONST_MARKER) == 0); + DUK_ASSERT(abc != -1); /* Not 'none'. */ + + if (abc <= DUK_BC_ABC_MAX) { + ; + } else { + goto error_outofregs; + } + ins = DUK_ENC_OP_ABC(op, abc); + DUK_DDD(DUK_DDDPRINT("duk__emit_abc: 0x%08lx line=%ld pc=%ld op=%ld (%!X) abc=%ld (%!I)", + (unsigned long) ins, (long) comp_ctx->curr_token.start_line, + (long) duk__get_current_pc(comp_ctx), (long) op, (long) op, + (long) abc, (duk_instr_t) ins)); + duk__emit(comp_ctx, ins); + return; + + error_outofregs: + DUK_ERROR_RANGE(comp_ctx->thr, DUK_STR_REG_LIMIT); + DUK_WO_NORETURN(return;); +} + +DUK_LOCAL void duk__emit_load_int32_raw(duk_compiler_ctx *comp_ctx, duk_regconst_t reg, duk_int32_t val, duk_small_uint_t op_flags) { + /* XXX: Shuffling support could be implemented here so that LDINT+LDINTX + * would only shuffle once (instead of twice). The current code works + * though, and has a smaller compiler footprint. + */ + + if ((val >= (duk_int32_t) DUK_BC_BC_MIN - (duk_int32_t) DUK_BC_LDINT_BIAS) && + (val <= (duk_int32_t) DUK_BC_BC_MAX - (duk_int32_t) DUK_BC_LDINT_BIAS)) { + DUK_DDD(DUK_DDDPRINT("emit LDINT to reg %ld for %ld", (long) reg, (long) val)); + duk__emit_a_bc(comp_ctx, DUK_OP_LDINT | op_flags, reg, (duk_regconst_t) (val + (duk_int32_t) DUK_BC_LDINT_BIAS)); + } else { + duk_int32_t hi = val >> DUK_BC_LDINTX_SHIFT; + duk_int32_t lo = val & ((((duk_int32_t) 1) << DUK_BC_LDINTX_SHIFT) - 1); + DUK_ASSERT(lo >= 0); + DUK_DDD(DUK_DDDPRINT("emit LDINT+LDINTX to reg %ld for %ld -> hi %ld, lo %ld", + (long) reg, (long) val, (long) hi, (long) lo)); + duk__emit_a_bc(comp_ctx, DUK_OP_LDINT | op_flags, reg, (duk_regconst_t) (hi + (duk_int32_t) DUK_BC_LDINT_BIAS)); + duk__emit_a_bc(comp_ctx, DUK_OP_LDINTX | op_flags, reg, (duk_regconst_t) lo); + } +} + +DUK_LOCAL void duk__emit_load_int32(duk_compiler_ctx *comp_ctx, duk_regconst_t reg, duk_int32_t val) { + duk__emit_load_int32_raw(comp_ctx, reg, val, 0 /*op_flags*/); +} + +#if defined(DUK_USE_SHUFFLE_TORTURE) +/* Used by duk__emit*() calls so that we don't shuffle the loadints that + * are needed to handle indirect opcodes. + */ +DUK_LOCAL void duk__emit_load_int32_noshuffle(duk_compiler_ctx *comp_ctx, duk_regconst_t reg, duk_int32_t val) { + duk__emit_load_int32_raw(comp_ctx, reg, val, DUK__EMIT_FLAG_NO_SHUFFLE_A /*op_flags*/); +} +#else +DUK_LOCAL void duk__emit_load_int32_noshuffle(duk_compiler_ctx *comp_ctx, duk_regconst_t reg, duk_int32_t val) { + /* When torture not enabled, can just use the same helper because + * 'reg' won't get spilled. + */ + DUK_ASSERT(reg <= DUK_BC_A_MAX); + duk__emit_load_int32(comp_ctx, reg, val); +} +#endif + +DUK_LOCAL void duk__emit_jump(duk_compiler_ctx *comp_ctx, duk_int_t target_pc) { + duk_int_t curr_pc; + duk_int_t offset; + + curr_pc = (duk_int_t) (DUK_BW_GET_SIZE(comp_ctx->thr, &comp_ctx->curr_func.bw_code) / sizeof(duk_compiler_instr)); + offset = (duk_int_t) target_pc - (duk_int_t) curr_pc - 1; + DUK_ASSERT(offset + DUK_BC_JUMP_BIAS >= DUK_BC_ABC_MIN); + DUK_ASSERT(offset + DUK_BC_JUMP_BIAS <= DUK_BC_ABC_MAX); + duk__emit_abc(comp_ctx, DUK_OP_JUMP, (duk_regconst_t) (offset + DUK_BC_JUMP_BIAS)); +} + +DUK_LOCAL duk_int_t duk__emit_jump_empty(duk_compiler_ctx *comp_ctx) { + duk_int_t ret; + + ret = duk__get_current_pc(comp_ctx); /* useful for patching jumps later */ + duk__emit_op_only(comp_ctx, DUK_OP_JUMP); + return ret; +} + +/* Insert an empty jump in the middle of code emitted earlier. This is + * currently needed for compiling for-in. + */ +DUK_LOCAL void duk__insert_jump_entry(duk_compiler_ctx *comp_ctx, duk_int_t jump_pc) { +#if defined(DUK_USE_PC2LINE) + duk_int_t line; +#endif + duk_compiler_instr *instr; + duk_size_t offset; + + DUK_ASSERT(jump_pc >= 0); + offset = (duk_size_t) jump_pc * sizeof(duk_compiler_instr); + instr = (duk_compiler_instr *) (void *) + DUK_BW_INSERT_ENSURE_AREA(comp_ctx->thr, + &comp_ctx->curr_func.bw_code, + offset, + sizeof(duk_compiler_instr)); + +#if defined(DUK_USE_PC2LINE) + line = comp_ctx->curr_token.start_line; /* approximation, close enough */ +#endif + instr->ins = DUK_ENC_OP_ABC(DUK_OP_JUMP, 0); +#if defined(DUK_USE_PC2LINE) + instr->line = (duk_uint32_t) line; +#endif + + DUK_BW_ADD_PTR(comp_ctx->thr, &comp_ctx->curr_func.bw_code, sizeof(duk_compiler_instr)); + if (DUK_UNLIKELY(DUK_BW_GET_SIZE(comp_ctx->thr, &comp_ctx->curr_func.bw_code) > DUK_USE_ESBC_MAX_BYTES)) { + goto fail_bc_limit; + } + return; + + fail_bc_limit: + DUK_ERROR_RANGE(comp_ctx->thr, DUK_STR_BYTECODE_LIMIT); + DUK_WO_NORETURN(return;); +} + +/* Does not assume that jump_pc contains a DUK_OP_JUMP previously; this is intentional + * to allow e.g. an INVALID opcode be overwritten with a JUMP (label management uses this). + */ +DUK_LOCAL void duk__patch_jump(duk_compiler_ctx *comp_ctx, duk_int_t jump_pc, duk_int_t target_pc) { + duk_compiler_instr *instr; + duk_int_t offset; + + /* allow negative PCs, behave as a no-op */ + if (jump_pc < 0) { + DUK_DDD(DUK_DDDPRINT("duk__patch_jump(): nop call, jump_pc=%ld (<0), target_pc=%ld", + (long) jump_pc, (long) target_pc)); + return; + } + DUK_ASSERT(jump_pc >= 0); + + /* XXX: range assert */ + instr = duk__get_instr_ptr(comp_ctx, jump_pc); + DUK_ASSERT(instr != NULL); + + /* XXX: range assert */ + offset = target_pc - jump_pc - 1; + + instr->ins = DUK_ENC_OP_ABC(DUK_OP_JUMP, offset + DUK_BC_JUMP_BIAS); + DUK_DDD(DUK_DDDPRINT("duk__patch_jump(): jump_pc=%ld, target_pc=%ld, offset=%ld", + (long) jump_pc, (long) target_pc, (long) offset)); +} + +DUK_LOCAL void duk__patch_jump_here(duk_compiler_ctx *comp_ctx, duk_int_t jump_pc) { + duk__patch_jump(comp_ctx, jump_pc, duk__get_current_pc(comp_ctx)); +} + +DUK_LOCAL void duk__patch_trycatch(duk_compiler_ctx *comp_ctx, duk_int_t ldconst_pc, duk_int_t trycatch_pc, duk_regconst_t reg_catch, duk_regconst_t const_varname, duk_small_uint_t flags) { + duk_compiler_instr *instr; + + DUK_ASSERT(DUK__ISREG(reg_catch)); + + instr = duk__get_instr_ptr(comp_ctx, ldconst_pc); + DUK_ASSERT(DUK_DEC_OP(instr->ins) == DUK_OP_LDCONST); + DUK_ASSERT(instr != NULL); + if (const_varname & DUK__CONST_MARKER) { + /* Have a catch variable. */ + const_varname = const_varname & (~DUK__CONST_MARKER); + if (reg_catch > DUK_BC_BC_MAX || const_varname > DUK_BC_BC_MAX) { + /* Catch attempts to use out-of-range reg/const. Without this + * check Duktape 0.12.0 could generate invalid code which caused + * an assert failure on execution. This error is triggered e.g. + * for functions with a lot of constants and a try-catch statement. + * Shuffling or opcode semantics change is needed to fix the issue. + * See: test-bug-trycatch-many-constants.js. + */ + DUK_D(DUK_DPRINT("failed to patch trycatch: flags=%ld, reg_catch=%ld, const_varname=%ld (0x%08lx)", + (long) flags, (long) reg_catch, (long) const_varname, (long) const_varname)); + DUK_ERROR_RANGE(comp_ctx->thr, DUK_STR_REG_LIMIT); + DUK_WO_NORETURN(return;); + } + instr->ins |= DUK_ENC_OP_A_BC(0, 0, const_varname); + } else { + /* No catch variable, e.g. a try-finally; replace LDCONST with + * NOP to avoid a bogus LDCONST. + */ + instr->ins = DUK_ENC_OP(DUK_OP_NOP); + } + + instr = duk__get_instr_ptr(comp_ctx, trycatch_pc); + DUK_ASSERT(instr != NULL); + DUK_ASSERT_DISABLE(flags >= DUK_BC_A_MIN); + DUK_ASSERT(flags <= DUK_BC_A_MAX); + instr->ins = DUK_ENC_OP_A_BC(DUK_OP_TRYCATCH, flags, reg_catch); +} + +DUK_LOCAL void duk__emit_if_false_skip(duk_compiler_ctx *comp_ctx, duk_regconst_t regconst) { + duk_small_uint_t op; + + op = DUK__ISREG(regconst) ? DUK_OP_IFFALSE_R : DUK_OP_IFFALSE_C; + duk__emit_bc(comp_ctx, op, regconst); /* helper will remove const flag */ +} + +DUK_LOCAL void duk__emit_if_true_skip(duk_compiler_ctx *comp_ctx, duk_regconst_t regconst) { + duk_small_uint_t op; + + op = DUK__ISREG(regconst) ? DUK_OP_IFTRUE_R : DUK_OP_IFTRUE_C; + duk__emit_bc(comp_ctx, op, regconst); /* helper will remove const flag */ +} + +DUK_LOCAL void duk__emit_invalid(duk_compiler_ctx *comp_ctx) { + duk__emit_op_only(comp_ctx, DUK_OP_INVALID); +} + +/* + * Peephole optimizer for finished bytecode. + * + * Does not remove opcodes; currently only straightens out unconditional + * jump chains which are generated by several control structures. + */ + +DUK_LOCAL void duk__peephole_optimize_bytecode(duk_compiler_ctx *comp_ctx) { + duk_compiler_instr *bc; + duk_small_uint_t iter; + duk_int_t i, n; + duk_int_t count_opt; + + bc = (duk_compiler_instr *) (void *) DUK_BW_GET_BASEPTR(comp_ctx->thr, &comp_ctx->curr_func.bw_code); +#if defined(DUK_USE_BUFLEN16) + /* No need to assert, buffer size maximum is 0xffff. */ +#else + DUK_ASSERT((duk_size_t) DUK_BW_GET_SIZE(comp_ctx->thr, &comp_ctx->curr_func.bw_code) / sizeof(duk_compiler_instr) <= (duk_size_t) DUK_INT_MAX); /* bytecode limits */ +#endif + n = (duk_int_t) (DUK_BW_GET_SIZE(comp_ctx->thr, &comp_ctx->curr_func.bw_code) / sizeof(duk_compiler_instr)); + + for (iter = 0; iter < DUK_COMPILER_PEEPHOLE_MAXITER; iter++) { + count_opt = 0; + + for (i = 0; i < n; i++) { + duk_instr_t ins; + duk_int_t target_pc1; + duk_int_t target_pc2; + + ins = bc[i].ins; + if (DUK_DEC_OP(ins) != DUK_OP_JUMP) { + continue; + } + + target_pc1 = i + 1 + (duk_int_t) DUK_DEC_ABC(ins) - (duk_int_t) DUK_BC_JUMP_BIAS; + DUK_DDD(DUK_DDDPRINT("consider jump at pc %ld; target_pc=%ld", (long) i, (long) target_pc1)); + DUK_ASSERT(target_pc1 >= 0); + DUK_ASSERT(target_pc1 < n); + + /* Note: if target_pc1 == i, we'll optimize a jump to itself. + * This does not need to be checked for explicitly; the case + * is rare and max iter breaks us out. + */ + + ins = bc[target_pc1].ins; + if (DUK_DEC_OP(ins) != DUK_OP_JUMP) { + continue; + } + + target_pc2 = target_pc1 + 1 + (duk_int_t) DUK_DEC_ABC(ins) - (duk_int_t) DUK_BC_JUMP_BIAS; + + DUK_DDD(DUK_DDDPRINT("optimizing jump at pc %ld; old target is %ld -> new target is %ld", + (long) i, (long) target_pc1, (long) target_pc2)); + + bc[i].ins = DUK_ENC_OP_ABC(DUK_OP_JUMP, target_pc2 - (i + 1) + DUK_BC_JUMP_BIAS); + + count_opt++; + } + + DUK_DD(DUK_DDPRINT("optimized %ld jumps on peephole round %ld", (long) count_opt, (long) (iter + 1))); + + if (count_opt == 0) { + break; + } + } +} + +/* + * Intermediate value helpers + */ + +/* Flags for intermediate value coercions. A flag for using a forced reg + * is not needed, the forced_reg argument suffices and generates better + * code (it is checked as it is used). + */ +/* XXX: DUK__IVAL_FLAG_REQUIRE_SHORT is passed but not currently implemented + * by ispec/ivalue operations. + */ +#define DUK__IVAL_FLAG_ALLOW_CONST (1 << 0) /* allow a constant to be returned */ +#define DUK__IVAL_FLAG_REQUIRE_TEMP (1 << 1) /* require a (mutable) temporary as a result (or a const if allowed) */ +#define DUK__IVAL_FLAG_REQUIRE_SHORT (1 << 2) /* require a short (8-bit) reg/const which fits into bytecode B/C slot */ + +/* XXX: some code might benefit from DUK__SETTEMP_IFTEMP(thr,x) */ + +#if 0 /* enable manually for dumping */ +#define DUK__DUMP_ISPEC(compctx,ispec) do { duk__dump_ispec((compctx), (ispec)); } while (0) +#define DUK__DUMP_IVALUE(compctx,ivalue) do { duk__dump_ivalue((compctx), (ivalue)); } while (0) + +DUK_LOCAL void duk__dump_ispec(duk_compiler_ctx *comp_ctx, duk_ispec *x) { + DUK_D(DUK_DPRINT("ispec dump: t=%ld regconst=0x%08lx, valstack_idx=%ld, value=%!T", + (long) x->t, (unsigned long) x->regconst, (long) x->valstack_idx, + duk_get_tval(comp_ctx->thr, x->valstack_idx))); +} +DUK_LOCAL void duk__dump_ivalue(duk_compiler_ctx *comp_ctx, duk_ivalue *x) { + DUK_D(DUK_DPRINT("ivalue dump: t=%ld op=%ld " + "x1={t=%ld regconst=0x%08lx valstack_idx=%ld value=%!T} " + "x2={t=%ld regconst=0x%08lx valstack_idx=%ld value=%!T}", + (long) x->t, (long) x->op, + (long) x->x1.t, (unsigned long) x->x1.regconst, (long) x->x1.valstack_idx, + duk_get_tval(comp_ctx->thr, x->x1.valstack_idx), + (long) x->x2.t, (unsigned long) x->x2.regconst, (long) x->x2.valstack_idx, + duk_get_tval(comp_ctx->thr, x->x2.valstack_idx))); +} +#else +#define DUK__DUMP_ISPEC(comp_ctx,x) do {} while (0) +#define DUK__DUMP_IVALUE(comp_ctx,x) do {} while (0) +#endif + +DUK_LOCAL void duk__ivalue_regconst(duk_ivalue *x, duk_regconst_t regconst) { + x->t = DUK_IVAL_PLAIN; + x->x1.t = DUK_ISPEC_REGCONST; + x->x1.regconst = regconst; +} + +DUK_LOCAL void duk__ivalue_plain_fromstack(duk_compiler_ctx *comp_ctx, duk_ivalue *x) { + x->t = DUK_IVAL_PLAIN; + x->x1.t = DUK_ISPEC_VALUE; + duk_replace(comp_ctx->thr, x->x1.valstack_idx); +} + +DUK_LOCAL void duk__ivalue_var_fromstack(duk_compiler_ctx *comp_ctx, duk_ivalue *x) { + x->t = DUK_IVAL_VAR; + x->x1.t = DUK_ISPEC_VALUE; + duk_replace(comp_ctx->thr, x->x1.valstack_idx); +} + +DUK_LOCAL_DECL void duk__ivalue_var_hstring(duk_compiler_ctx *comp_ctx, duk_ivalue *x, duk_hstring *h) { + DUK_ASSERT(h != NULL); + duk_push_hstring(comp_ctx->thr, h); + duk__ivalue_var_fromstack(comp_ctx, x); +} + +DUK_LOCAL void duk__copy_ispec(duk_compiler_ctx *comp_ctx, duk_ispec *src, duk_ispec *dst) { + dst->t = src->t; + dst->regconst = src->regconst; + duk_copy(comp_ctx->thr, src->valstack_idx, dst->valstack_idx); +} + +DUK_LOCAL void duk__copy_ivalue(duk_compiler_ctx *comp_ctx, duk_ivalue *src, duk_ivalue *dst) { + dst->t = src->t; + dst->op = src->op; + dst->x1.t = src->x1.t; + dst->x1.regconst = src->x1.regconst; + dst->x2.t = src->x2.t; + dst->x2.regconst = src->x2.regconst; + duk_copy(comp_ctx->thr, src->x1.valstack_idx, dst->x1.valstack_idx); + duk_copy(comp_ctx->thr, src->x2.valstack_idx, dst->x2.valstack_idx); +} + +DUK_LOCAL duk_regconst_t duk__alloctemps(duk_compiler_ctx *comp_ctx, duk_small_int_t num) { + duk_regconst_t res; + + res = comp_ctx->curr_func.temp_next; + comp_ctx->curr_func.temp_next += num; + + if (comp_ctx->curr_func.temp_next > DUK__MAX_TEMPS) { /* == DUK__MAX_TEMPS is OK */ + DUK_ERROR_RANGE(comp_ctx->thr, DUK_STR_TEMP_LIMIT); + DUK_WO_NORETURN(return 0;); + } + + /* maintain highest 'used' temporary, needed to figure out nregs of function */ + if (comp_ctx->curr_func.temp_next > comp_ctx->curr_func.temp_max) { + comp_ctx->curr_func.temp_max = comp_ctx->curr_func.temp_next; + } + + return res; +} + +DUK_LOCAL duk_regconst_t duk__alloctemp(duk_compiler_ctx *comp_ctx) { + return duk__alloctemps(comp_ctx, 1); +} + +DUK_LOCAL void duk__settemp_checkmax(duk_compiler_ctx *comp_ctx, duk_regconst_t temp_next) { + comp_ctx->curr_func.temp_next = temp_next; + if (temp_next > comp_ctx->curr_func.temp_max) { + comp_ctx->curr_func.temp_max = temp_next; + } +} + +/* get const for value at valstack top */ +DUK_LOCAL duk_regconst_t duk__getconst(duk_compiler_ctx *comp_ctx) { + duk_hthread *thr = comp_ctx->thr; + duk_compiler_func *f = &comp_ctx->curr_func; + duk_tval *tv1; + duk_int_t i, n, n_check; + + n = (duk_int_t) duk_get_length(thr, f->consts_idx); + + tv1 = DUK_GET_TVAL_NEGIDX(thr, -1); + DUK_ASSERT(tv1 != NULL); + +#if defined(DUK_USE_FASTINT) + /* Explicit check for fastint downgrade. */ + DUK_TVAL_CHKFAST_INPLACE_SLOW(tv1); +#endif + + /* Sanity workaround for handling functions with a large number of + * constants at least somewhat reasonably. Otherwise checking whether + * we already have the constant would grow very slow (as it is O(N^2)). + */ + n_check = (n > DUK__GETCONST_MAX_CONSTS_CHECK ? DUK__GETCONST_MAX_CONSTS_CHECK : n); + for (i = 0; i < n_check; i++) { + duk_tval *tv2 = DUK_HOBJECT_A_GET_VALUE_PTR(thr->heap, f->h_consts, i); + + /* Strict equality is NOT enough, because we cannot use the same + * constant for e.g. +0 and -0. + */ + if (duk_js_samevalue(tv1, tv2)) { + DUK_DDD(DUK_DDDPRINT("reused existing constant for %!T -> const index %ld", + (duk_tval *) tv1, (long) i)); + duk_pop(thr); + return (duk_regconst_t) i | (duk_regconst_t) DUK__CONST_MARKER; + } + } + + if (n > DUK__MAX_CONSTS) { + DUK_ERROR_RANGE(comp_ctx->thr, DUK_STR_CONST_LIMIT); + DUK_WO_NORETURN(return 0;); + } + + DUK_DDD(DUK_DDDPRINT("allocating new constant for %!T -> const index %ld", + (duk_tval *) tv1, (long) n)); + (void) duk_put_prop_index(thr, f->consts_idx, (duk_uarridx_t) n); /* invalidates tv1, tv2 */ + return (duk_regconst_t) n | (duk_regconst_t) DUK__CONST_MARKER; +} + +DUK_LOCAL duk_bool_t duk__const_needs_refcount(duk_compiler_ctx *comp_ctx, duk_regconst_t rc) { +#if defined(DUK_USE_REFERENCE_COUNTING) + duk_compiler_func *f = &comp_ctx->curr_func; + duk_bool_t ret; + + DUK_ASSERT((rc & DUK__CONST_MARKER) == 0); /* caller removes const marker */ + (void) duk_get_prop_index(comp_ctx->thr, f->consts_idx, (duk_uarridx_t) rc); + ret = !duk_is_number(comp_ctx->thr, -1); /* now only number/string, so conservative check */ + duk_pop(comp_ctx->thr); + return ret; +#else + DUK_UNREF(comp_ctx); + DUK_UNREF(rc); + DUK_ASSERT((rc & DUK__CONST_MARKER) == 0); /* caller removes const marker */ + return 0; +#endif +} + +/* Get the value represented by an duk_ispec to a register or constant. + * The caller can control the result by indicating whether or not: + * + * (1) a constant is allowed (sometimes the caller needs the result to + * be in a register) + * + * (2) a temporary register is required (usually when caller requires + * the register to be safely mutable; normally either a bound + * register or a temporary register are both OK) + * + * (3) a forced register target needs to be used + * + * Bytecode may be emitted to generate the necessary value. The return + * value is either a register or a constant. + */ + +DUK_LOCAL +duk_regconst_t duk__ispec_toregconst_raw(duk_compiler_ctx *comp_ctx, + duk_ispec *x, + duk_regconst_t forced_reg, + duk_small_uint_t flags) { + duk_hthread *thr = comp_ctx->thr; + + DUK_DDD(DUK_DDDPRINT("duk__ispec_toregconst_raw(): x={%ld:%ld:%!T}, " + "forced_reg=%ld, flags 0x%08lx: allow_const=%ld require_temp=%ld require_short=%ld", + (long) x->t, + (long) x->regconst, + (duk_tval *) duk_get_tval(thr, x->valstack_idx), + (long) forced_reg, + (unsigned long) flags, + (long) ((flags & DUK__IVAL_FLAG_ALLOW_CONST) ? 1 : 0), + (long) ((flags & DUK__IVAL_FLAG_REQUIRE_TEMP) ? 1 : 0), + (long) ((flags & DUK__IVAL_FLAG_REQUIRE_SHORT) ? 1 : 0))); + + switch (x->t) { + case DUK_ISPEC_VALUE: { + duk_tval *tv; + + tv = DUK_GET_TVAL_POSIDX(thr, x->valstack_idx); + DUK_ASSERT(tv != NULL); + + switch (DUK_TVAL_GET_TAG(tv)) { + case DUK_TAG_UNDEFINED: { + /* Note: although there is no 'undefined' literal, undefined + * values can occur during compilation as a result of e.g. + * the 'void' operator. + */ + duk_regconst_t dest = (forced_reg >= 0 ? forced_reg : DUK__ALLOCTEMP(comp_ctx)); + duk__emit_bc(comp_ctx, DUK_OP_LDUNDEF, dest); + return dest; + } + case DUK_TAG_NULL: { + duk_regconst_t dest = (forced_reg >= 0 ? forced_reg : DUK__ALLOCTEMP(comp_ctx)); + duk__emit_bc(comp_ctx, DUK_OP_LDNULL, dest); + return dest; + } + case DUK_TAG_BOOLEAN: { + duk_regconst_t dest = (forced_reg >= 0 ? forced_reg : DUK__ALLOCTEMP(comp_ctx)); + duk__emit_bc(comp_ctx, + (DUK_TVAL_GET_BOOLEAN(tv) ? DUK_OP_LDTRUE : DUK_OP_LDFALSE), + dest); + return dest; + } + case DUK_TAG_POINTER: { + DUK_UNREACHABLE(); + break; + } + case DUK_TAG_STRING: { + duk_hstring *h; + duk_regconst_t dest; + duk_regconst_t constidx; + + h = DUK_TVAL_GET_STRING(tv); + DUK_UNREF(h); + DUK_ASSERT(h != NULL); + +#if 0 /* XXX: to be implemented? */ + /* Use special opcodes to load short strings */ + if (DUK_HSTRING_GET_BYTELEN(h) <= 2) { + /* Encode into a single opcode (18 bits can encode 1-2 bytes + length indicator) */ + } else if (DUK_HSTRING_GET_BYTELEN(h) <= 6) { + /* Encode into a double constant (53 bits can encode 6*8 = 48 bits + 3-bit length */ + } +#endif + duk_dup(thr, x->valstack_idx); + constidx = duk__getconst(comp_ctx); + + if (flags & DUK__IVAL_FLAG_ALLOW_CONST) { + return constidx; + } + + dest = (forced_reg >= 0 ? forced_reg : DUK__ALLOCTEMP(comp_ctx)); + duk__emit_a_bc(comp_ctx, DUK_OP_LDCONST, dest, constidx); + return dest; + } + case DUK_TAG_OBJECT: { + DUK_UNREACHABLE(); + break; + } + case DUK_TAG_BUFFER: { + DUK_UNREACHABLE(); + break; + } + case DUK_TAG_LIGHTFUNC: { + DUK_UNREACHABLE(); + break; + } +#if defined(DUK_USE_FASTINT) + case DUK_TAG_FASTINT: +#endif + default: { + /* number */ + duk_regconst_t dest; + duk_regconst_t constidx; + duk_double_t dval; + duk_int32_t ival; + + DUK_ASSERT(!DUK_TVAL_IS_UNUSED(tv)); + DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv)); + dval = DUK_TVAL_GET_NUMBER(tv); + + if (!(flags & DUK__IVAL_FLAG_ALLOW_CONST)) { + /* A number can be loaded either through a constant, using + * LDINT, or using LDINT+LDINTX. LDINT is always a size win, + * LDINT+LDINTX is not if the constant is used multiple times. + * Currently always prefer LDINT+LDINTX over a double constant. + */ + + if (duk_is_whole_get_int32_nonegzero(dval, &ival)) { + dest = (forced_reg >= 0 ? forced_reg : DUK__ALLOCTEMP(comp_ctx)); + duk__emit_load_int32(comp_ctx, dest, ival); + return dest; + } + } + + duk_dup(thr, x->valstack_idx); + constidx = duk__getconst(comp_ctx); + + if (flags & DUK__IVAL_FLAG_ALLOW_CONST) { + return constidx; + } else { + dest = (forced_reg >= 0 ? forced_reg : DUK__ALLOCTEMP(comp_ctx)); + duk__emit_a_bc(comp_ctx, DUK_OP_LDCONST, dest, constidx); + return dest; + } + } + } /* end switch */ + goto fail_internal; /* never here */ + } + case DUK_ISPEC_REGCONST: { + if (forced_reg >= 0) { + if (DUK__ISCONST(x->regconst)) { + duk__emit_a_bc(comp_ctx, DUK_OP_LDCONST, forced_reg, x->regconst); + } else if (x->regconst != forced_reg) { + duk__emit_a_bc(comp_ctx, DUK_OP_LDREG, forced_reg, x->regconst); + } else { + ; /* already in correct reg */ + } + return forced_reg; + } + + DUK_ASSERT(forced_reg < 0); + if (DUK__ISCONST(x->regconst)) { + if (!(flags & DUK__IVAL_FLAG_ALLOW_CONST)) { + duk_regconst_t dest = DUK__ALLOCTEMP(comp_ctx); + duk__emit_a_bc(comp_ctx, DUK_OP_LDCONST, dest, x->regconst); + return dest; + } + return x->regconst; + } + + DUK_ASSERT(forced_reg < 0 && !DUK__ISCONST(x->regconst)); + if ((flags & DUK__IVAL_FLAG_REQUIRE_TEMP) && !DUK__ISREG_TEMP(comp_ctx, x->regconst)) { + duk_regconst_t dest = DUK__ALLOCTEMP(comp_ctx); + duk__emit_a_bc(comp_ctx, DUK_OP_LDREG, dest, x->regconst); + return dest; + } + return x->regconst; + } + default: { + break; /* never here */ + } + } + + fail_internal: + DUK_ERROR_INTERNAL(thr); + DUK_WO_NORETURN(return 0;); +} + +DUK_LOCAL void duk__ispec_toforcedreg(duk_compiler_ctx *comp_ctx, duk_ispec *x, duk_regconst_t forced_reg) { + DUK_ASSERT(forced_reg >= 0); + (void) duk__ispec_toregconst_raw(comp_ctx, x, forced_reg, 0 /*flags*/); +} + +/* Coerce an duk_ivalue to a 'plain' value by generating the necessary + * arithmetic operations, property access, or variable access bytecode. + * The duk_ivalue argument ('x') is converted into a plain value as a + * side effect. + */ +DUK_LOCAL void duk__ivalue_toplain_raw(duk_compiler_ctx *comp_ctx, duk_ivalue *x, duk_regconst_t forced_reg) { + duk_hthread *thr = comp_ctx->thr; + + DUK_DDD(DUK_DDDPRINT("duk__ivalue_toplain_raw(): x={t=%ld,op=%ld,x1={%ld:%ld:%!T},x2={%ld:%ld:%!T}}, " + "forced_reg=%ld", + (long) x->t, (long) x->op, + (long) x->x1.t, (long) x->x1.regconst, + (duk_tval *) duk_get_tval(thr, x->x1.valstack_idx), + (long) x->x2.t, (long) x->x2.regconst, + (duk_tval *) duk_get_tval(thr, x->x2.valstack_idx), + (long) forced_reg)); + + switch (x->t) { + case DUK_IVAL_PLAIN: { + return; + } + /* XXX: support unary arithmetic ivalues (useful?) */ + case DUK_IVAL_ARITH: { + duk_regconst_t arg1; + duk_regconst_t arg2; + duk_regconst_t dest; + duk_tval *tv1; + duk_tval *tv2; + + DUK_DDD(DUK_DDDPRINT("arith to plain conversion")); + + /* inline arithmetic check for constant values */ + /* XXX: use the exactly same arithmetic function here as in executor */ + if (x->x1.t == DUK_ISPEC_VALUE && x->x2.t == DUK_ISPEC_VALUE && x->t == DUK_IVAL_ARITH) { + tv1 = DUK_GET_TVAL_POSIDX(thr, x->x1.valstack_idx); + tv2 = DUK_GET_TVAL_POSIDX(thr, x->x2.valstack_idx); + DUK_ASSERT(tv1 != NULL); + DUK_ASSERT(tv2 != NULL); + + DUK_DDD(DUK_DDDPRINT("arith: tv1=%!T, tv2=%!T", + (duk_tval *) tv1, + (duk_tval *) tv2)); + + if (DUK_TVAL_IS_NUMBER(tv1) && DUK_TVAL_IS_NUMBER(tv2)) { + duk_double_t d1 = DUK_TVAL_GET_NUMBER(tv1); + duk_double_t d2 = DUK_TVAL_GET_NUMBER(tv2); + duk_double_t d3; + duk_bool_t accept_fold = 1; + + DUK_DDD(DUK_DDDPRINT("arith inline check: d1=%lf, d2=%lf, op=%ld", + (double) d1, (double) d2, (long) x->op)); + switch (x->op) { + case DUK_OP_ADD: { + d3 = d1 + d2; + break; + } + case DUK_OP_SUB: { + d3 = d1 - d2; + break; + } + case DUK_OP_MUL: { + d3 = d1 * d2; + break; + } + case DUK_OP_DIV: { + /* Division-by-zero is undefined + * behavior, so rely on a helper. + */ + d3 = duk_double_div(d1, d2); + break; + } + case DUK_OP_EXP: { + d3 = (duk_double_t) duk_js_arith_pow((double) d1, (double) d2); + break; + } + default: { + d3 = 0.0; /* Won't be used, but silence MSVC /W4 warning. */ + accept_fold = 0; + break; + } + } + + if (accept_fold) { + duk_double_union du; + du.d = d3; + DUK_DBLUNION_NORMALIZE_NAN_CHECK(&du); + d3 = du.d; + + x->t = DUK_IVAL_PLAIN; + DUK_ASSERT(x->x1.t == DUK_ISPEC_VALUE); + DUK_TVAL_SET_NUMBER(tv1, d3); /* old value is number: no refcount */ + return; + } + } else if (x->op == DUK_OP_ADD && DUK_TVAL_IS_STRING(tv1) && DUK_TVAL_IS_STRING(tv2)) { + /* Inline string concatenation. No need to check for + * symbols, as all inputs are valid ECMAScript strings. + */ + duk_dup(thr, x->x1.valstack_idx); + duk_dup(thr, x->x2.valstack_idx); + duk_concat(thr, 2); + duk_replace(thr, x->x1.valstack_idx); + x->t = DUK_IVAL_PLAIN; + DUK_ASSERT(x->x1.t == DUK_ISPEC_VALUE); + return; + } + } + + arg1 = duk__ispec_toregconst_raw(comp_ctx, &x->x1, -1, DUK__IVAL_FLAG_ALLOW_CONST | DUK__IVAL_FLAG_REQUIRE_SHORT /*flags*/); + arg2 = duk__ispec_toregconst_raw(comp_ctx, &x->x2, -1, DUK__IVAL_FLAG_ALLOW_CONST | DUK__IVAL_FLAG_REQUIRE_SHORT /*flags*/); + + /* If forced reg, use it as destination. Otherwise try to + * use either coerced ispec if it is a temporary. + */ + if (forced_reg >= 0) { + dest = forced_reg; + } else if (DUK__ISREG_TEMP(comp_ctx, arg1)) { + dest = arg1; + } else if (DUK__ISREG_TEMP(comp_ctx, arg2)) { + dest = arg2; + } else { + dest = DUK__ALLOCTEMP(comp_ctx); + } + + DUK_ASSERT(DUK__ISREG(dest)); + duk__emit_a_b_c(comp_ctx, x->op | DUK__EMIT_FLAG_BC_REGCONST, dest, arg1, arg2); + + duk__ivalue_regconst(x, dest); + return; + } + case DUK_IVAL_PROP: { + /* XXX: very similar to DUK_IVAL_ARITH - merge? */ + duk_regconst_t arg1; + duk_regconst_t arg2; + duk_regconst_t dest; + + /* Need a short reg/const, does not have to be a mutable temp. */ + arg1 = duk__ispec_toregconst_raw(comp_ctx, &x->x1, -1, DUK__IVAL_FLAG_ALLOW_CONST | DUK__IVAL_FLAG_REQUIRE_SHORT /*flags*/); + arg2 = duk__ispec_toregconst_raw(comp_ctx, &x->x2, -1, DUK__IVAL_FLAG_ALLOW_CONST | DUK__IVAL_FLAG_REQUIRE_SHORT /*flags*/); + + /* Pick a destination register. If either base value or key + * happens to be a temp value, reuse it as the destination. + * + * XXX: The temp must be a "mutable" one, i.e. such that no + * other expression is using it anymore. Here this should be + * the case because the value of a property access expression + * is neither the base nor the key, but the lookup result. + */ + + if (forced_reg >= 0) { + dest = forced_reg; + } else if (DUK__ISREG_TEMP(comp_ctx, arg1)) { + dest = arg1; + } else if (DUK__ISREG_TEMP(comp_ctx, arg2)) { + dest = arg2; + } else { + dest = DUK__ALLOCTEMP(comp_ctx); + } + + duk__emit_a_b_c(comp_ctx, + DUK_OP_GETPROP | DUK__EMIT_FLAG_BC_REGCONST, + dest, + arg1, + arg2); + + duk__ivalue_regconst(x, dest); + return; + } + case DUK_IVAL_VAR: { + /* x1 must be a string */ + duk_regconst_t dest; + duk_regconst_t reg_varbind; + duk_regconst_t rc_varname; + + DUK_ASSERT(x->x1.t == DUK_ISPEC_VALUE); + + duk_dup(thr, x->x1.valstack_idx); + if (duk__lookup_lhs(comp_ctx, ®_varbind, &rc_varname)) { + duk__ivalue_regconst(x, reg_varbind); + } else { + dest = (forced_reg >= 0 ? forced_reg : DUK__ALLOCTEMP(comp_ctx)); + duk__emit_a_bc(comp_ctx, DUK_OP_GETVAR, dest, rc_varname); + duk__ivalue_regconst(x, dest); + } + return; + } + case DUK_IVAL_NONE: + default: { + DUK_D(DUK_DPRINT("invalid ivalue type: %ld", (long) x->t)); + break; + } + } + + DUK_ERROR_INTERNAL(thr); + DUK_WO_NORETURN(return;); +} + +/* evaluate to plain value, no forced register (temp/bound reg both ok) */ +DUK_LOCAL void duk__ivalue_toplain(duk_compiler_ctx *comp_ctx, duk_ivalue *x) { + duk__ivalue_toplain_raw(comp_ctx, x, -1 /*forced_reg*/); +} + +/* evaluate to final form (e.g. coerce GETPROP to code), throw away temp */ +DUK_LOCAL void duk__ivalue_toplain_ignore(duk_compiler_ctx *comp_ctx, duk_ivalue *x) { + duk_regconst_t temp; + + /* If duk__ivalue_toplain_raw() allocates a temp, forget it and + * restore next temp state. + */ + temp = DUK__GETTEMP(comp_ctx); + duk__ivalue_toplain_raw(comp_ctx, x, -1 /*forced_reg*/); + DUK__SETTEMP(comp_ctx, temp); +} + +/* Coerce an duk_ivalue to a register or constant; result register may + * be a temp or a bound register. + * + * The duk_ivalue argument ('x') is converted into a regconst as a + * side effect. + */ +DUK_LOCAL +duk_regconst_t duk__ivalue_toregconst_raw(duk_compiler_ctx *comp_ctx, + duk_ivalue *x, + duk_regconst_t forced_reg, + duk_small_uint_t flags) { + duk_hthread *thr = comp_ctx->thr; + duk_regconst_t reg; + DUK_UNREF(thr); + + DUK_DDD(DUK_DDDPRINT("duk__ivalue_toregconst_raw(): x={t=%ld,op=%ld,x1={%ld:%ld:%!T},x2={%ld:%ld:%!T}}, " + "forced_reg=%ld, flags 0x%08lx: allow_const=%ld require_temp=%ld require_short=%ld", + (long) x->t, (long) x->op, + (long) x->x1.t, (long) x->x1.regconst, + (duk_tval *) duk_get_tval(thr, x->x1.valstack_idx), + (long) x->x2.t, (long) x->x2.regconst, + (duk_tval *) duk_get_tval(thr, x->x2.valstack_idx), + (long) forced_reg, + (unsigned long) flags, + (long) ((flags & DUK__IVAL_FLAG_ALLOW_CONST) ? 1 : 0), + (long) ((flags & DUK__IVAL_FLAG_REQUIRE_TEMP) ? 1 : 0), + (long) ((flags & DUK__IVAL_FLAG_REQUIRE_SHORT) ? 1 : 0))); + + /* first coerce to a plain value */ + duk__ivalue_toplain_raw(comp_ctx, x, forced_reg); + DUK_ASSERT(x->t == DUK_IVAL_PLAIN); + + /* then to a register */ + reg = duk__ispec_toregconst_raw(comp_ctx, &x->x1, forced_reg, flags); + duk__ivalue_regconst(x, reg); + + return reg; +} + +DUK_LOCAL duk_regconst_t duk__ivalue_toreg(duk_compiler_ctx *comp_ctx, duk_ivalue *x) { + return duk__ivalue_toregconst_raw(comp_ctx, x, -1, 0 /*flags*/); +} + +#if 0 /* unused */ +DUK_LOCAL duk_regconst_t duk__ivalue_totemp(duk_compiler_ctx *comp_ctx, duk_ivalue *x) { + return duk__ivalue_toregconst_raw(comp_ctx, x, -1, DUK__IVAL_FLAG_REQUIRE_TEMP /*flags*/); +} +#endif + +DUK_LOCAL void duk__ivalue_toforcedreg(duk_compiler_ctx *comp_ctx, duk_ivalue *x, duk_int_t forced_reg) { + DUK_ASSERT(forced_reg >= 0); + (void) duk__ivalue_toregconst_raw(comp_ctx, x, forced_reg, 0 /*flags*/); +} + +DUK_LOCAL duk_regconst_t duk__ivalue_toregconst(duk_compiler_ctx *comp_ctx, duk_ivalue *x) { + return duk__ivalue_toregconst_raw(comp_ctx, x, -1, DUK__IVAL_FLAG_ALLOW_CONST /*flags*/); +} + +DUK_LOCAL duk_regconst_t duk__ivalue_totempconst(duk_compiler_ctx *comp_ctx, duk_ivalue *x) { + return duk__ivalue_toregconst_raw(comp_ctx, x, -1, DUK__IVAL_FLAG_ALLOW_CONST | DUK__IVAL_FLAG_REQUIRE_TEMP /*flags*/); +} + +/* The issues below can be solved with better flags */ + +/* XXX: many operations actually want toforcedtemp() -- brand new temp? */ +/* XXX: need a toplain_ignore() which will only coerce a value to a temp + * register if it might have a side effect. Side-effect free values do not + * need to be coerced. + */ + +/* + * Identifier handling + */ + +DUK_LOCAL duk_regconst_t duk__lookup_active_register_binding(duk_compiler_ctx *comp_ctx) { + duk_hthread *thr = comp_ctx->thr; + duk_hstring *h_varname; + duk_regconst_t ret; + + DUK_DDD(DUK_DDDPRINT("resolving identifier reference to '%!T'", + (duk_tval *) duk_get_tval(thr, -1))); + + /* + * Special name handling + */ + + h_varname = duk_known_hstring(thr, -1); + + if (h_varname == DUK_HTHREAD_STRING_LC_ARGUMENTS(thr)) { + DUK_DDD(DUK_DDDPRINT("flagging function as accessing 'arguments'")); + comp_ctx->curr_func.id_access_arguments = 1; + } + + /* + * Inside one or more 'with' statements fall back to slow path always. + * (See e.g. test-stmt-with.js.) + */ + + if (comp_ctx->curr_func.with_depth > 0) { + DUK_DDD(DUK_DDDPRINT("identifier lookup inside a 'with' -> fall back to slow path")); + goto slow_path_own; + } + + /* + * Any catch bindings ("catch (e)") also affect identifier binding. + * + * Currently, the varmap is modified for the duration of the catch + * clause to ensure any identifier accesses with the catch variable + * name will use slow path. + */ + + duk_get_prop(thr, comp_ctx->curr_func.varmap_idx); + if (duk_is_number(thr, -1)) { + ret = duk_to_int(thr, -1); + duk_pop(thr); + } else { + duk_pop(thr); + if (comp_ctx->curr_func.catch_depth > 0 || comp_ctx->curr_func.with_depth > 0) { + DUK_DDD(DUK_DDDPRINT("slow path access from inside a try-catch or with needs _Varmap")); + goto slow_path_own; + } else { + /* In this case we're doing a variable lookup that doesn't + * match our own variables, so _Varmap won't be needed at + * run time. + */ + DUK_DDD(DUK_DDDPRINT("slow path access outside of try-catch and with, no need for _Varmap")); + goto slow_path_notown; + } + } + + DUK_DDD(DUK_DDDPRINT("identifier lookup -> reg %ld", (long) ret)); + return ret; + + slow_path_notown: + DUK_DDD(DUK_DDDPRINT("identifier lookup -> slow path, not own variable")); + + comp_ctx->curr_func.id_access_slow = 1; + return (duk_regconst_t) -1; + + slow_path_own: + DUK_DDD(DUK_DDDPRINT("identifier lookup -> slow path, may be own variable")); + + comp_ctx->curr_func.id_access_slow = 1; + comp_ctx->curr_func.id_access_slow_own = 1; + return (duk_regconst_t) -1; +} + +/* Lookup an identifier name in the current varmap, indicating whether the + * identifier is register-bound and if not, allocating a constant for the + * identifier name. Returns 1 if register-bound, 0 otherwise. Caller can + * also check (out_reg_varbind >= 0) to check whether or not identifier is + * register bound. The caller must NOT use out_rc_varname at all unless + * return code is 0 or out_reg_varbind is < 0; this is becuase out_rc_varname + * is unsigned and doesn't have a "unused" / none value. + */ +DUK_LOCAL duk_bool_t duk__lookup_lhs(duk_compiler_ctx *comp_ctx, duk_regconst_t *out_reg_varbind, duk_regconst_t *out_rc_varname) { + duk_hthread *thr = comp_ctx->thr; + duk_regconst_t reg_varbind; + duk_regconst_t rc_varname; + + /* [ ... varname ] */ + + duk_dup_top(thr); + reg_varbind = duk__lookup_active_register_binding(comp_ctx); + + if (reg_varbind >= 0) { + *out_reg_varbind = reg_varbind; + *out_rc_varname = 0; /* duk_regconst_t is unsigned, so use 0 as dummy value (ignored by caller) */ + duk_pop(thr); + return 1; + } else { + rc_varname = duk__getconst(comp_ctx); + *out_reg_varbind = -1; + *out_rc_varname = rc_varname; + return 0; + } +} + +/* + * Label handling + * + * Labels are initially added with flags prohibiting both break and continue. + * When the statement type is finally uncovered (after potentially multiple + * labels), all the labels are updated to allow/prohibit break and continue. + */ + +DUK_LOCAL void duk__add_label(duk_compiler_ctx *comp_ctx, duk_hstring *h_label, duk_int_t pc_label, duk_int_t label_id) { + duk_hthread *thr = comp_ctx->thr; + duk_size_t n; + duk_size_t new_size; + duk_uint8_t *p; + duk_labelinfo *li_start, *li; + + /* Duplicate (shadowing) labels are not allowed, except for the empty + * labels (which are used as default labels for switch and iteration + * statements). + * + * We could also allow shadowing of non-empty pending labels without any + * other issues than breaking the required label shadowing requirements + * of the E5 specification, see Section 12.12. + */ + + p = (duk_uint8_t *) DUK_HBUFFER_DYNAMIC_GET_DATA_PTR(thr->heap, comp_ctx->curr_func.h_labelinfos); + li_start = (duk_labelinfo *) (void *) p; + li = (duk_labelinfo *) (void *) (p + DUK_HBUFFER_GET_SIZE(comp_ctx->curr_func.h_labelinfos)); + n = (duk_size_t) (li - li_start); + + while (li > li_start) { + li--; + + if (li->h_label == h_label && h_label != DUK_HTHREAD_STRING_EMPTY_STRING(thr)) { + DUK_ERROR_SYNTAX(thr, DUK_STR_DUPLICATE_LABEL); + DUK_WO_NORETURN(return;); + } + } + + duk_push_hstring(thr, h_label); + DUK_ASSERT(n <= DUK_UARRIDX_MAX); /* label limits */ + (void) duk_put_prop_index(thr, comp_ctx->curr_func.labelnames_idx, (duk_uarridx_t) n); + + new_size = (n + 1) * sizeof(duk_labelinfo); + duk_hbuffer_resize(thr, comp_ctx->curr_func.h_labelinfos, new_size); + /* XXX: slack handling, slow now */ + + /* relookup after possible realloc */ + p = (duk_uint8_t *) DUK_HBUFFER_DYNAMIC_GET_DATA_PTR(thr->heap, comp_ctx->curr_func.h_labelinfos); + li_start = (duk_labelinfo *) (void *) p; + DUK_UNREF(li_start); /* silence scan-build warning */ + li = (duk_labelinfo *) (void *) (p + DUK_HBUFFER_GET_SIZE(comp_ctx->curr_func.h_labelinfos)); + li--; + + /* Labels can be used for iteration statements but also for other statements, + * in particular a label can be used for a block statement. All cases of a + * named label accept a 'break' so that flag is set here. Iteration statements + * also allow 'continue', so that flag is updated when we figure out the + * statement type. + */ + + li->flags = DUK_LABEL_FLAG_ALLOW_BREAK; + li->label_id = label_id; + li->h_label = h_label; + li->catch_depth = comp_ctx->curr_func.catch_depth; /* catch depth from current func */ + li->pc_label = pc_label; + + DUK_DDD(DUK_DDDPRINT("registered label: flags=0x%08lx, id=%ld, name=%!O, catch_depth=%ld, pc_label=%ld", + (unsigned long) li->flags, (long) li->label_id, (duk_heaphdr *) li->h_label, + (long) li->catch_depth, (long) li->pc_label)); +} + +/* Update all labels with matching label_id. */ +DUK_LOCAL void duk__update_label_flags(duk_compiler_ctx *comp_ctx, duk_int_t label_id, duk_small_uint_t flags) { + duk_uint8_t *p; + duk_labelinfo *li_start, *li; + + p = (duk_uint8_t *) DUK_HBUFFER_DYNAMIC_GET_DATA_PTR(comp_ctx->thr->heap, comp_ctx->curr_func.h_labelinfos); + li_start = (duk_labelinfo *) (void *) p; + li = (duk_labelinfo *) (void *) (p + DUK_HBUFFER_GET_SIZE(comp_ctx->curr_func.h_labelinfos)); + + /* Match labels starting from latest; once label_id no longer matches, we can + * safely exit without checking the rest of the labels (only the topmost labels + * are ever updated). + */ + while (li > li_start) { + li--; + + if (li->label_id != label_id) { + break; + } + + DUK_DDD(DUK_DDDPRINT("updating (overwriting) label flags for li=%p, label_id=%ld, flags=%ld", + (void *) li, (long) label_id, (long) flags)); + + li->flags = flags; + } +} + +/* Lookup active label information. Break/continue distinction is necessary to handle switch + * statement related labels correctly: a switch will only catch a 'break', not a 'continue'. + * + * An explicit label cannot appear multiple times in the active set, but empty labels (unlabelled + * iteration and switch statements) can. A break will match the closest unlabelled or labelled + * statement. A continue will match the closest unlabelled or labelled iteration statement. It is + * a syntax error if a continue matches a labelled switch statement; because an explicit label cannot + * be duplicated, the continue cannot match any valid label outside the switch. + * + * A side effect of these rules is that a LABEL statement related to a switch should never actually + * catch a continue abrupt completion at run-time. Hence an INVALID opcode can be placed in the + * continue slot of the switch's LABEL statement. + */ + +/* XXX: awkward, especially the bunch of separate output values -> output struct? */ +DUK_LOCAL void duk__lookup_active_label(duk_compiler_ctx *comp_ctx, duk_hstring *h_label, duk_bool_t is_break, duk_int_t *out_label_id, duk_int_t *out_label_catch_depth, duk_int_t *out_label_pc, duk_bool_t *out_is_closest) { + duk_hthread *thr = comp_ctx->thr; + duk_uint8_t *p; + duk_labelinfo *li_start, *li_end, *li; + duk_bool_t match = 0; + + DUK_DDD(DUK_DDDPRINT("looking up active label: label='%!O', is_break=%ld", + (duk_heaphdr *) h_label, (long) is_break)); + + DUK_UNREF(thr); + + p = (duk_uint8_t *) DUK_HBUFFER_DYNAMIC_GET_DATA_PTR(thr->heap, comp_ctx->curr_func.h_labelinfos); + li_start = (duk_labelinfo *) (void *) p; + li_end = (duk_labelinfo *) (void *) (p + DUK_HBUFFER_GET_SIZE(comp_ctx->curr_func.h_labelinfos)); + li = li_end; + + /* Match labels starting from latest label because there can be duplicate empty + * labels in the label set. + */ + while (li > li_start) { + li--; + + if (li->h_label != h_label) { + DUK_DDD(DUK_DDDPRINT("labelinfo[%ld] ->'%!O' != %!O", + (long) (li - li_start), + (duk_heaphdr *) li->h_label, + (duk_heaphdr *) h_label)); + continue; + } + + DUK_DDD(DUK_DDDPRINT("labelinfo[%ld] -> '%!O' label name matches (still need to check type)", + (long) (li - li_start), (duk_heaphdr *) h_label)); + + /* currently all labels accept a break, so no explicit check for it now */ + DUK_ASSERT(li->flags & DUK_LABEL_FLAG_ALLOW_BREAK); + + if (is_break) { + /* break matches always */ + match = 1; + break; + } else if (li->flags & DUK_LABEL_FLAG_ALLOW_CONTINUE) { + /* iteration statements allow continue */ + match = 1; + break; + } else { + /* continue matched this label -- we can only continue if this is the empty + * label, for which duplication is allowed, and thus there is hope of + * finding a match deeper in the label stack. + */ + if (h_label != DUK_HTHREAD_STRING_EMPTY_STRING(thr)) { + DUK_ERROR_SYNTAX(thr, DUK_STR_INVALID_LABEL); + DUK_WO_NORETURN(return;); + } else { + DUK_DDD(DUK_DDDPRINT("continue matched an empty label which does not " + "allow a continue -> continue lookup deeper in label stack")); + } + } + } + /* XXX: match flag is awkward, rework */ + if (!match) { + DUK_ERROR_SYNTAX(thr, DUK_STR_INVALID_LABEL); + DUK_WO_NORETURN(return;); + } + + DUK_DDD(DUK_DDDPRINT("label match: %!O -> label_id %ld, catch_depth=%ld, pc_label=%ld", + (duk_heaphdr *) h_label, (long) li->label_id, + (long) li->catch_depth, (long) li->pc_label)); + + *out_label_id = li->label_id; + *out_label_catch_depth = li->catch_depth; + *out_label_pc = li->pc_label; + *out_is_closest = (li == li_end - 1); +} + +DUK_LOCAL void duk__reset_labels_to_length(duk_compiler_ctx *comp_ctx, duk_size_t len) { + duk_hthread *thr = comp_ctx->thr; + + duk_set_length(thr, comp_ctx->curr_func.labelnames_idx, len); + duk_hbuffer_resize(thr, comp_ctx->curr_func.h_labelinfos, sizeof(duk_labelinfo) * len); +} + +/* + * Expression parsing: duk__expr_nud(), duk__expr_led(), duk__expr_lbp(), and helpers. + * + * - duk__expr_nud(): ("null denotation"): process prev_token as a "start" of an expression (e.g. literal) + * - duk__expr_led(): ("left denotation"): process prev_token in the "middle" of an expression (e.g. operator) + * - duk__expr_lbp(): ("left-binding power"): return left-binding power of curr_token + */ + +/* object literal key tracking flags */ +#define DUK__OBJ_LIT_KEY_PLAIN (1 << 0) /* key encountered as a plain property */ +#define DUK__OBJ_LIT_KEY_GET (1 << 1) /* key encountered as a getter */ +#define DUK__OBJ_LIT_KEY_SET (1 << 2) /* key encountered as a setter */ + +DUK_LOCAL void duk__nud_array_literal(duk_compiler_ctx *comp_ctx, duk_ivalue *res) { + duk_hthread *thr = comp_ctx->thr; + duk_regconst_t reg_obj; /* result reg */ + duk_regconst_t reg_temp; /* temp reg */ + duk_regconst_t temp_start; /* temp reg value for start of loop */ + duk_small_uint_t max_init_values; /* max # of values initialized in one MPUTARR set */ + duk_small_uint_t num_values; /* number of values in current MPUTARR set */ + duk_uarridx_t curr_idx; /* current (next) array index */ + duk_uarridx_t start_idx; /* start array index of current MPUTARR set */ + duk_uarridx_t init_idx; /* last array index explicitly initialized, +1 */ + duk_bool_t require_comma; /* next loop requires a comma */ +#if !defined(DUK_USE_PREFER_SIZE) + duk_int_t pc_newarr; + duk_compiler_instr *instr; +#endif + + /* DUK_TOK_LBRACKET already eaten, current token is right after that */ + DUK_ASSERT(comp_ctx->prev_token.t == DUK_TOK_LBRACKET); + + max_init_values = DUK__MAX_ARRAY_INIT_VALUES; /* XXX: depend on available temps? */ + + reg_obj = DUK__ALLOCTEMP(comp_ctx); +#if !defined(DUK_USE_PREFER_SIZE) + pc_newarr = duk__get_current_pc(comp_ctx); +#endif + duk__emit_bc(comp_ctx, DUK_OP_NEWARR, reg_obj); /* XXX: patch initial size hint afterwards? */ + temp_start = DUK__GETTEMP(comp_ctx); + + /* + * Emit initializers in sets of maximum max_init_values. + * Corner cases such as single value initializers do not have + * special handling now. + * + * Elided elements must not be emitted as 'undefined' values, + * because such values would be enumerable (which is incorrect). + * Also note that trailing elisions must be reflected in the + * length of the final array but cause no elements to be actually + * inserted. + */ + + curr_idx = 0; + init_idx = 0; /* tracks maximum initialized index + 1 */ + start_idx = 0; + require_comma = 0; + + for (;;) { + num_values = 0; + DUK__SETTEMP(comp_ctx, temp_start); + + if (comp_ctx->curr_token.t == DUK_TOK_RBRACKET) { + break; + } + + for (;;) { + if (comp_ctx->curr_token.t == DUK_TOK_RBRACKET) { + /* the outer loop will recheck and exit */ + break; + } + + /* comma check */ + if (require_comma) { + if (comp_ctx->curr_token.t == DUK_TOK_COMMA) { + /* comma after a value, expected */ + duk__advance(comp_ctx); + require_comma = 0; + continue; + } else { + goto syntax_error; + } + } else { + if (comp_ctx->curr_token.t == DUK_TOK_COMMA) { + /* elision - flush */ + curr_idx++; + duk__advance(comp_ctx); + /* if num_values > 0, MPUTARR emitted by outer loop after break */ + break; + } + } + /* else an array initializer element */ + + /* initial index */ + if (num_values == 0) { + start_idx = curr_idx; + reg_temp = DUK__ALLOCTEMP(comp_ctx); + duk__emit_load_int32(comp_ctx, reg_temp, (duk_int32_t) start_idx); + } + + reg_temp = DUK__ALLOCTEMP(comp_ctx); /* alloc temp just in case, to update max temp */ + DUK__SETTEMP(comp_ctx, reg_temp); + duk__expr_toforcedreg(comp_ctx, res, DUK__BP_COMMA /*rbp_flags*/, reg_temp /*forced_reg*/); + DUK__SETTEMP(comp_ctx, reg_temp + 1); + + num_values++; + curr_idx++; + require_comma = 1; + + if (num_values >= max_init_values) { + /* MPUTARR emitted by outer loop */ + break; + } + } + + if (num_values > 0) { + /* - A is a source register (it's not a write target, but used + * to identify the target object) but can be shuffled. + * - B cannot be shuffled normally because it identifies a range + * of registers, the emitter has special handling for this + * (the "no shuffle" flag must not be set). + * - C is a non-register number and cannot be shuffled, but + * never needs to be. + */ + duk__emit_a_b_c(comp_ctx, + DUK_OP_MPUTARR | + DUK__EMIT_FLAG_NO_SHUFFLE_C | + DUK__EMIT_FLAG_A_IS_SOURCE, + reg_obj, + temp_start, + (duk_regconst_t) (num_values + 1)); + init_idx = start_idx + num_values; + + /* num_values and temp_start reset at top of outer loop */ + } + } + + /* Update initil size for NEWARR, doesn't need to be exact and is + * capped at A field limit. + */ +#if !defined(DUK_USE_PREFER_SIZE) + instr = duk__get_instr_ptr(comp_ctx, pc_newarr); + instr->ins |= DUK_ENC_OP_A(0, curr_idx > DUK_BC_A_MAX ? DUK_BC_A_MAX : curr_idx); +#endif + + DUK_ASSERT(comp_ctx->curr_token.t == DUK_TOK_RBRACKET); + duk__advance(comp_ctx); + + DUK_DDD(DUK_DDDPRINT("array literal done, curridx=%ld, initidx=%ld", + (long) curr_idx, (long) init_idx)); + + /* trailing elisions? */ + if (curr_idx > init_idx) { + /* yes, must set array length explicitly */ + DUK_DDD(DUK_DDDPRINT("array literal has trailing elisions which affect its length")); + reg_temp = DUK__ALLOCTEMP(comp_ctx); + duk__emit_load_int32(comp_ctx, reg_temp, (duk_int_t) curr_idx); + duk__emit_a_bc(comp_ctx, + DUK_OP_SETALEN | DUK__EMIT_FLAG_A_IS_SOURCE, + reg_obj, + reg_temp); + } + + DUK__SETTEMP(comp_ctx, temp_start); + + duk__ivalue_regconst(res, reg_obj); + return; + + syntax_error: + DUK_ERROR_SYNTAX(thr, DUK_STR_INVALID_ARRAY_LITERAL); + DUK_WO_NORETURN(return;); +} + +typedef struct { + duk_regconst_t reg_obj; + duk_regconst_t temp_start; + duk_small_uint_t num_pairs; + duk_small_uint_t num_total_pairs; +} duk__objlit_state; + +DUK_LOCAL void duk__objlit_flush_keys(duk_compiler_ctx *comp_ctx, duk__objlit_state *st) { + if (st->num_pairs > 0) { + /* - A is a source register (it's not a write target, but used + * to identify the target object) but can be shuffled. + * - B cannot be shuffled normally because it identifies a range + * of registers, the emitter has special handling for this + * (the "no shuffle" flag must not be set). + * - C is a non-register number and cannot be shuffled, but + * never needs to be. + */ + DUK_ASSERT(st->num_pairs > 0); + duk__emit_a_b_c(comp_ctx, + DUK_OP_MPUTOBJ | + DUK__EMIT_FLAG_NO_SHUFFLE_C | + DUK__EMIT_FLAG_A_IS_SOURCE, + st->reg_obj, + st->temp_start, + (duk_regconst_t) (st->num_pairs * 2)); + st->num_total_pairs += st->num_pairs; + st->num_pairs = 0; + } + DUK__SETTEMP(comp_ctx, st->temp_start); +} + +DUK_LOCAL duk_bool_t duk__objlit_load_key(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_token *tok, duk_regconst_t reg_temp) { + if (tok->t_nores == DUK_TOK_IDENTIFIER || tok->t_nores == DUK_TOK_STRING) { + /* same handling for identifiers and strings */ + DUK_ASSERT(tok->str1 != NULL); + duk_push_hstring(comp_ctx->thr, tok->str1); + } else if (tok->t == DUK_TOK_NUMBER) { + /* numbers can be loaded as numbers and coerced on the fly */ + duk_push_number(comp_ctx->thr, tok->num); + } else { + return 1; /* error */ + } + + duk__ivalue_plain_fromstack(comp_ctx, res); + DUK__SETTEMP(comp_ctx, reg_temp + 1); + duk__ivalue_toforcedreg(comp_ctx, res, reg_temp); + DUK__SETTEMP(comp_ctx, reg_temp + 1); + return 0; +} + +DUK_LOCAL void duk__nud_object_literal(duk_compiler_ctx *comp_ctx, duk_ivalue *res) { + duk_hthread *thr = comp_ctx->thr; + duk__objlit_state st; + duk_regconst_t reg_temp; /* temp reg */ + duk_small_uint_t max_init_pairs; /* max # of key-value pairs initialized in one MPUTOBJ set */ + duk_bool_t first; /* first value: comma must not precede the value */ + duk_bool_t is_set, is_get; /* temps */ +#if !defined(DUK_USE_PREFER_SIZE) + duk_int_t pc_newobj; + duk_compiler_instr *instr; +#endif + + DUK_ASSERT(comp_ctx->prev_token.t == DUK_TOK_LCURLY); + + max_init_pairs = DUK__MAX_OBJECT_INIT_PAIRS; /* XXX: depend on available temps? */ + + st.reg_obj = DUK__ALLOCTEMP(comp_ctx); /* target object */ + st.temp_start = DUK__GETTEMP(comp_ctx); /* start of MPUTOBJ argument list */ + st.num_pairs = 0; /* number of key/value pairs emitted for current MPUTOBJ set */ + st.num_total_pairs = 0; /* number of key/value pairs emitted overall */ + +#if !defined(DUK_USE_PREFER_SIZE) + pc_newobj = duk__get_current_pc(comp_ctx); +#endif + duk__emit_bc(comp_ctx, DUK_OP_NEWOBJ, st.reg_obj); + + /* + * Emit initializers in sets of maximum max_init_pairs keys. + * Setter/getter is handled separately and terminates the + * current set of initializer values. Corner cases such as + * single value initializers do not have special handling now. + */ + + first = 1; + for (;;) { + /* + * ES5 and ES2015+ provide a lot of different PropertyDefinition + * formats, see http://www.ecma-international.org/ecma-262/6.0/#sec-object-initializer. + * + * PropertyName can be IdentifierName (includes reserved words), a string + * literal, or a number literal. Note that IdentifierName allows 'get' and + * 'set' too, so we need to look ahead to the next token to distinguish: + * + * { get : 1 } + * + * and + * + * { get foo() { return 1 } } + * { get get() { return 1 } } // 'get' as getter propertyname + * + * Finally, a trailing comma is allowed. + * + * Key name is coerced to string at compile time (and ends up as a + * a string constant) even for numeric keys (e.g. "{1:'foo'}"). + * These could be emitted using e.g. LDINT, but that seems hardly + * worth the effort and would increase code size. + */ + + DUK_DDD(DUK_DDDPRINT("object literal loop, curr_token->t = %ld", + (long) comp_ctx->curr_token.t)); + + if (comp_ctx->curr_token.t == DUK_TOK_RCURLY) { + break; + } + + if (first) { + first = 0; + } else { + if (comp_ctx->curr_token.t != DUK_TOK_COMMA) { + goto syntax_error; + } + duk__advance(comp_ctx); + if (comp_ctx->curr_token.t == DUK_TOK_RCURLY) { + /* trailing comma followed by rcurly */ + break; + } + } + + /* Advance to get one step of lookup. */ + duk__advance(comp_ctx); + + /* Flush current MPUTOBJ if enough many pairs gathered. */ + if (st.num_pairs >= max_init_pairs) { + duk__objlit_flush_keys(comp_ctx, &st); + DUK_ASSERT(st.num_pairs == 0); + } + + /* Reset temp register state and reserve reg_temp and + * reg_temp + 1 for handling the current property. + */ + DUK__SETTEMP(comp_ctx, st.temp_start + 2 * (duk_regconst_t) st.num_pairs); + reg_temp = DUK__ALLOCTEMPS(comp_ctx, 2); + + /* NOTE: "get" and "set" are not officially ReservedWords and the lexer + * currently treats them always like ordinary identifiers (DUK_TOK_GET + * and DUK_TOK_SET are unused). They need to be detected based on the + * identifier string content. + */ + + is_get = (comp_ctx->prev_token.t == DUK_TOK_IDENTIFIER && + comp_ctx->prev_token.str1 == DUK_HTHREAD_STRING_GET(thr)); + is_set = (comp_ctx->prev_token.t == DUK_TOK_IDENTIFIER && + comp_ctx->prev_token.str1 == DUK_HTHREAD_STRING_SET(thr)); + if ((is_get || is_set) && comp_ctx->curr_token.t != DUK_TOK_COLON) { + /* getter/setter */ + duk_int_t fnum; + + duk__objlit_flush_keys(comp_ctx, &st); + DUK_ASSERT(DUK__GETTEMP(comp_ctx) == st.temp_start); /* 2 regs are guaranteed to be allocated w.r.t. temp_max */ + reg_temp = DUK__ALLOCTEMPS(comp_ctx, 2); + + if (duk__objlit_load_key(comp_ctx, res, &comp_ctx->curr_token, reg_temp) != 0) { + goto syntax_error; + } + + /* curr_token = get/set name */ + fnum = duk__parse_func_like_fnum(comp_ctx, DUK__FUNC_FLAG_GETSET); + + duk__emit_a_bc(comp_ctx, + DUK_OP_CLOSURE, + st.temp_start + 1, + (duk_regconst_t) fnum); + + /* Slot C is used in a non-standard fashion (range of regs), + * emitter code has special handling for it (must not set the + * "no shuffle" flag). + */ + duk__emit_a_bc(comp_ctx, + (is_get ? DUK_OP_INITGET : DUK_OP_INITSET) | DUK__EMIT_FLAG_A_IS_SOURCE, + st.reg_obj, + st.temp_start); /* temp_start+0 = key, temp_start+1 = closure */ + + DUK_ASSERT(st.num_pairs == 0); /* temp state is reset on next loop */ +#if defined(DUK_USE_ES6) + } else if (comp_ctx->prev_token.t == DUK_TOK_IDENTIFIER && + (comp_ctx->curr_token.t == DUK_TOK_COMMA || comp_ctx->curr_token.t == DUK_TOK_RCURLY)) { + duk_bool_t load_rc; + + load_rc = duk__objlit_load_key(comp_ctx, res, &comp_ctx->prev_token, reg_temp); + DUK_UNREF(load_rc); + DUK_ASSERT(load_rc == 0); /* always succeeds because token is identifier */ + + duk__ivalue_var_hstring(comp_ctx, res, comp_ctx->prev_token.str1); + DUK_ASSERT(DUK__GETTEMP(comp_ctx) == reg_temp + 1); + duk__ivalue_toforcedreg(comp_ctx, res, reg_temp + 1); + + st.num_pairs++; + } else if ((comp_ctx->prev_token.t == DUK_TOK_IDENTIFIER || + comp_ctx->prev_token.t == DUK_TOK_STRING || + comp_ctx->prev_token.t == DUK_TOK_NUMBER) && + comp_ctx->curr_token.t == DUK_TOK_LPAREN) { + duk_int_t fnum; + + /* Parsing-wise there's a small hickup here: the token parsing + * state is one step too advanced for the function parse helper + * compared to other cases. The current solution is an extra + * flag to indicate whether function parsing should use the + * current or the previous token to starting parsing from. + */ + + if (duk__objlit_load_key(comp_ctx, res, &comp_ctx->prev_token, reg_temp) != 0) { + goto syntax_error; + } + + fnum = duk__parse_func_like_fnum(comp_ctx, DUK__FUNC_FLAG_USE_PREVTOKEN | DUK__FUNC_FLAG_METDEF); + + duk__emit_a_bc(comp_ctx, + DUK_OP_CLOSURE, + reg_temp + 1, + (duk_regconst_t) fnum); + + st.num_pairs++; +#endif /* DUK_USE_ES6 */ + } else { +#if defined(DUK_USE_ES6) + if (comp_ctx->prev_token.t == DUK_TOK_LBRACKET) { + /* ES2015 computed property name. Executor ToPropertyKey() + * coerces the key at runtime. + */ + DUK__SETTEMP(comp_ctx, reg_temp); + duk__expr_toforcedreg(comp_ctx, res, DUK__BP_FOR_EXPR, reg_temp); + duk__advance_expect(comp_ctx, DUK_TOK_RBRACKET); + + /* XXX: If next token is '(' we're dealing with + * the method shorthand with a computed name, + * e.g. { [Symbol.for('foo')](a,b) {} }. This + * form is not yet supported and causes a + * SyntaxError on the DUK_TOK_COLON check below. + */ + } + else +#endif /* DUK_USE_ES6 */ + { + if (duk__objlit_load_key(comp_ctx, res, &comp_ctx->prev_token, reg_temp) != 0) { + goto syntax_error; + } + } + + duk__advance_expect(comp_ctx, DUK_TOK_COLON); + + DUK__SETTEMP(comp_ctx, reg_temp + 1); + duk__expr_toforcedreg(comp_ctx, res, DUK__BP_COMMA /*rbp_flags*/, reg_temp + 1 /*forced_reg*/); + + st.num_pairs++; + } + } /* property loop */ + + /* Flush remaining properties. */ + duk__objlit_flush_keys(comp_ctx, &st); + DUK_ASSERT(st.num_pairs == 0); + DUK_ASSERT(DUK__GETTEMP(comp_ctx) == st.temp_start); + + /* Update initial size for NEWOBJ. The init size doesn't need to be + * exact as the purpose is just to avoid object resizes in common + * cases. The size is capped to field A limit, and will be too high + * if the object literal contains duplicate keys (this is harmless but + * increases memory traffic if the object is compacted later on). + */ +#if !defined(DUK_USE_PREFER_SIZE) + instr = duk__get_instr_ptr(comp_ctx, pc_newobj); + instr->ins |= DUK_ENC_OP_A(0, st.num_total_pairs > DUK_BC_A_MAX ? DUK_BC_A_MAX : st.num_total_pairs); +#endif + + DUK_ASSERT(comp_ctx->curr_token.t == DUK_TOK_RCURLY); + duk__advance(comp_ctx); /* No RegExp after object literal. */ + + duk__ivalue_regconst(res, st.reg_obj); + return; + + syntax_error: + DUK_ERROR_SYNTAX(thr, DUK_STR_INVALID_OBJECT_LITERAL); + DUK_WO_NORETURN(return;); +} + +/* Parse argument list. Arguments are written to temps starting from + * "next temp". Returns number of arguments parsed. Expects left paren + * to be already eaten, and eats the right paren before returning. + */ +DUK_LOCAL duk_int_t duk__parse_arguments(duk_compiler_ctx *comp_ctx, duk_ivalue *res) { + duk_int_t nargs = 0; + duk_regconst_t reg_temp; + + /* Note: expect that caller has already eaten the left paren */ + + DUK_DDD(DUK_DDDPRINT("start parsing arguments, prev_token.t=%ld, curr_token.t=%ld", + (long) comp_ctx->prev_token.t, (long) comp_ctx->curr_token.t)); + + for (;;) { + if (comp_ctx->curr_token.t == DUK_TOK_RPAREN) { + break; + } + if (nargs > 0) { + duk__advance_expect(comp_ctx, DUK_TOK_COMMA); + } + + /* We want the argument expression value to go to "next temp" + * without additional moves. That should almost always be the + * case, but we double check after expression parsing. + * + * This is not the cleanest possible approach. + */ + + reg_temp = DUK__ALLOCTEMP(comp_ctx); /* bump up "allocated" reg count, just in case */ + DUK__SETTEMP(comp_ctx, reg_temp); + + /* binding power must be high enough to NOT allow comma expressions directly */ + duk__expr_toforcedreg(comp_ctx, res, DUK__BP_COMMA /*rbp_flags*/, reg_temp); /* always allow 'in', coerce to 'tr' just in case */ + + DUK__SETTEMP(comp_ctx, reg_temp + 1); + nargs++; + + DUK_DDD(DUK_DDDPRINT("argument #%ld written into reg %ld", (long) nargs, (long) reg_temp)); + } + + /* eat the right paren */ + duk__advance_expect(comp_ctx, DUK_TOK_RPAREN); /* RegExp mode does not matter. */ + + DUK_DDD(DUK_DDDPRINT("end parsing arguments")); + + return nargs; +} + +DUK_LOCAL duk_bool_t duk__expr_is_empty(duk_compiler_ctx *comp_ctx) { + /* empty expressions can be detected conveniently with nud/led counts */ + return (comp_ctx->curr_func.nud_count == 0) && + (comp_ctx->curr_func.led_count == 0); +} + +DUK_LOCAL void duk__expr_nud(duk_compiler_ctx *comp_ctx, duk_ivalue *res) { + duk_hthread *thr = comp_ctx->thr; + duk_token *tk; + duk_regconst_t temp_at_entry; + duk_small_uint_t tok; + duk_uint32_t args; /* temp variable to pass constants and flags to shared code */ + + /* + * ctx->prev_token token to process with duk__expr_nud() + * ctx->curr_token updated by caller + * + * Note: the token in the switch below has already been eaten. + */ + + temp_at_entry = DUK__GETTEMP(comp_ctx); + + comp_ctx->curr_func.nud_count++; + + tk = &comp_ctx->prev_token; + tok = tk->t; + res->t = DUK_IVAL_NONE; + + DUK_DDD(DUK_DDDPRINT("duk__expr_nud(), prev_token.t=%ld, allow_in=%ld, paren_level=%ld", + (long) tk->t, (long) comp_ctx->curr_func.allow_in, (long) comp_ctx->curr_func.paren_level)); + + switch (tok) { + + /* PRIMARY EXPRESSIONS */ + + case DUK_TOK_THIS: { + duk_regconst_t reg_temp; + reg_temp = DUK__ALLOCTEMP(comp_ctx); + duk__emit_bc(comp_ctx, + DUK_OP_LDTHIS, + reg_temp); + duk__ivalue_regconst(res, reg_temp); + return; + } + case DUK_TOK_IDENTIFIER: { + duk__ivalue_var_hstring(comp_ctx, res, tk->str1); + return; + } + case DUK_TOK_NULL: { + duk_push_null(thr); + goto plain_value; + } + case DUK_TOK_TRUE: { + duk_push_true(thr); + goto plain_value; + } + case DUK_TOK_FALSE: { + duk_push_false(thr); + goto plain_value; + } + case DUK_TOK_NUMBER: { + duk_push_number(thr, tk->num); + goto plain_value; + } + case DUK_TOK_STRING: { + DUK_ASSERT(tk->str1 != NULL); + duk_push_hstring(thr, tk->str1); + goto plain_value; + } + case DUK_TOK_REGEXP: { +#if defined(DUK_USE_REGEXP_SUPPORT) + duk_regconst_t reg_temp; + duk_regconst_t rc_re_bytecode; /* const */ + duk_regconst_t rc_re_source; /* const */ + + DUK_ASSERT(tk->str1 != NULL); + DUK_ASSERT(tk->str2 != NULL); + + DUK_DDD(DUK_DDDPRINT("emitting regexp op, str1=%!O, str2=%!O", + (duk_heaphdr *) tk->str1, + (duk_heaphdr *) tk->str2)); + + reg_temp = DUK__ALLOCTEMP(comp_ctx); + duk_push_hstring(thr, tk->str1); + duk_push_hstring(thr, tk->str2); + + /* [ ... pattern flags ] */ + + duk_regexp_compile(thr); + + /* [ ... escaped_source bytecode ] */ + + rc_re_bytecode = duk__getconst(comp_ctx); + rc_re_source = duk__getconst(comp_ctx); + + duk__emit_a_b_c(comp_ctx, + DUK_OP_REGEXP | DUK__EMIT_FLAG_BC_REGCONST, + reg_temp /*a*/, + rc_re_bytecode /*b*/, + rc_re_source /*c*/); + + duk__ivalue_regconst(res, reg_temp); + return; +#else /* DUK_USE_REGEXP_SUPPORT */ + goto syntax_error; +#endif /* DUK_USE_REGEXP_SUPPORT */ + } + case DUK_TOK_LBRACKET: { + DUK_DDD(DUK_DDDPRINT("parsing array literal")); + duk__nud_array_literal(comp_ctx, res); + return; + } + case DUK_TOK_LCURLY: { + DUK_DDD(DUK_DDDPRINT("parsing object literal")); + duk__nud_object_literal(comp_ctx, res); + return; + } + case DUK_TOK_LPAREN: { + duk_bool_t prev_allow_in; + + comp_ctx->curr_func.paren_level++; + prev_allow_in = comp_ctx->curr_func.allow_in; + comp_ctx->curr_func.allow_in = 1; /* reset 'allow_in' for parenthesized expression */ + + duk__expr(comp_ctx, res, DUK__BP_FOR_EXPR /*rbp_flags*/); /* Expression, terminates at a ')' */ + + duk__advance_expect(comp_ctx, DUK_TOK_RPAREN); /* No RegExp after parenthesized expression. */ + comp_ctx->curr_func.allow_in = prev_allow_in; + comp_ctx->curr_func.paren_level--; + return; + } + + /* MEMBER/NEW/CALL EXPRESSIONS */ + + case DUK_TOK_NEW: { + /* + * Parsing an expression starting with 'new' is tricky because + * there are multiple possible productions deriving from + * LeftHandSideExpression which begin with 'new'. + * + * We currently resort to one-token lookahead to distinguish the + * cases. Hopefully this is correct. The binding power must be + * such that parsing ends at an LPAREN (CallExpression) but not at + * a PERIOD or LBRACKET (MemberExpression). + * + * See doc/compiler.rst for discussion on the parsing approach, + * and testcases/test-dev-new.js for a bunch of documented tests. + */ + + duk_regconst_t reg_target; + duk_int_t nargs; + + DUK_DDD(DUK_DDDPRINT("begin parsing new expression")); + + reg_target = DUK__ALLOCTEMPS(comp_ctx, 2); + +#if defined(DUK_USE_ES6) + if (comp_ctx->curr_token.t == DUK_TOK_PERIOD) { + /* new.target */ + DUK_DDD(DUK_DDDPRINT("new.target")); + duk__advance(comp_ctx); + if (comp_ctx->curr_token.t_nores != DUK_TOK_IDENTIFIER || + !duk_hstring_equals_ascii_cstring(comp_ctx->curr_token.str1, "target")) { + goto syntax_error_newtarget; + } + if (comp_ctx->curr_func.is_global) { + goto syntax_error_newtarget; + } + duk__advance(comp_ctx); + duk__emit_bc(comp_ctx, + DUK_OP_NEWTARGET, + reg_target); + duk__ivalue_regconst(res, reg_target); + return; + } +#endif /* DUK_USE_ES6 */ + + duk__expr_toforcedreg(comp_ctx, res, DUK__BP_CALL /*rbp_flags*/, reg_target /*forced_reg*/); + duk__emit_bc(comp_ctx, DUK_OP_NEWOBJ, reg_target + 1); /* default instance */ + DUK__SETTEMP(comp_ctx, reg_target + 2); + + /* XXX: 'new obj.noSuch()' doesn't use GETPROPC now which + * makes the error message worse than for obj.noSuch(). + */ + + if (comp_ctx->curr_token.t == DUK_TOK_LPAREN) { + /* 'new' MemberExpression Arguments */ + DUK_DDD(DUK_DDDPRINT("new expression has argument list")); + duk__advance(comp_ctx); + nargs = duk__parse_arguments(comp_ctx, res); /* parse args starting from "next temp", reg_target + 1 */ + /* right paren eaten */ + } else { + /* 'new' MemberExpression */ + DUK_DDD(DUK_DDDPRINT("new expression has no argument list")); + nargs = 0; + } + + duk__emit_a_bc(comp_ctx, + DUK_OP_CALL0 | DUK_BC_CALL_FLAG_CONSTRUCT, + nargs /*num_args*/, + reg_target /*target*/); + + DUK_DDD(DUK_DDDPRINT("end parsing new expression")); + + duk__ivalue_regconst(res, reg_target); + return; + } + + /* FUNCTION EXPRESSIONS */ + + case DUK_TOK_FUNCTION: { + /* Function expression. Note that any statement beginning with 'function' + * is handled by the statement parser as a function declaration, or a + * non-standard function expression/statement (or a SyntaxError). We only + * handle actual function expressions (occurring inside an expression) here. + * + * O(depth^2) parse count for inner functions is handled by recording a + * lexer offset on the first compilation pass, so that the function can + * be efficiently skipped on the second pass. This is encapsulated into + * duk__parse_func_like_fnum(). + */ + + duk_regconst_t reg_temp; + duk_int_t fnum; + + reg_temp = DUK__ALLOCTEMP(comp_ctx); + + /* curr_token follows 'function' */ + fnum = duk__parse_func_like_fnum(comp_ctx, 0 /*flags*/); + DUK_DDD(DUK_DDDPRINT("parsed inner function -> fnum %ld", (long) fnum)); + + duk__emit_a_bc(comp_ctx, + DUK_OP_CLOSURE, + reg_temp /*a*/, + (duk_regconst_t) fnum /*bc*/); + + duk__ivalue_regconst(res, reg_temp); + return; + } + + /* UNARY EXPRESSIONS */ + + case DUK_TOK_DELETE: { + /* Delete semantics are a bit tricky. The description in E5 specification + * is kind of confusing, because it distinguishes between resolvability of + * a reference (which is only known at runtime) seemingly at compile time + * (= SyntaxError throwing). + */ + duk__expr(comp_ctx, res, DUK__BP_MULTIPLICATIVE /*rbp_flags*/); /* UnaryExpression */ + if (res->t == DUK_IVAL_VAR) { + /* not allowed in strict mode, regardless of whether resolves; + * in non-strict mode DELVAR handles both non-resolving and + * resolving cases (the specification description is a bit confusing). + */ + + duk_regconst_t reg_temp; + duk_regconst_t reg_varbind; + duk_regconst_t rc_varname; + + if (comp_ctx->curr_func.is_strict) { + DUK_ERROR_SYNTAX(thr, DUK_STR_CANNOT_DELETE_IDENTIFIER); + DUK_WO_NORETURN(return;); + } + + DUK__SETTEMP(comp_ctx, temp_at_entry); + reg_temp = DUK__ALLOCTEMP(comp_ctx); + + duk_dup(thr, res->x1.valstack_idx); + if (duk__lookup_lhs(comp_ctx, ®_varbind, &rc_varname)) { + /* register bound variables are non-configurable -> always false */ + duk__emit_bc(comp_ctx, + DUK_OP_LDFALSE, + reg_temp); + } else { + duk_dup(thr, res->x1.valstack_idx); + rc_varname = duk__getconst(comp_ctx); + duk__emit_a_bc(comp_ctx, + DUK_OP_DELVAR, + reg_temp, + rc_varname); + } + duk__ivalue_regconst(res, reg_temp); + } else if (res->t == DUK_IVAL_PROP) { + duk_regconst_t reg_temp; + duk_regconst_t reg_obj; + duk_regconst_t rc_key; + + DUK__SETTEMP(comp_ctx, temp_at_entry); + reg_temp = DUK__ALLOCTEMP(comp_ctx); + reg_obj = duk__ispec_toregconst_raw(comp_ctx, &res->x1, -1 /*forced_reg*/, 0 /*flags*/); /* don't allow const */ + rc_key = duk__ispec_toregconst_raw(comp_ctx, &res->x2, -1 /*forced_reg*/, DUK__IVAL_FLAG_ALLOW_CONST /*flags*/); + duk__emit_a_b_c(comp_ctx, + DUK_OP_DELPROP | DUK__EMIT_FLAG_BC_REGCONST, + reg_temp, + reg_obj, + rc_key); + + duk__ivalue_regconst(res, reg_temp); + } else { + /* non-Reference deletion is always 'true', even in strict mode */ + duk_push_true(thr); + goto plain_value; + } + return; + } + case DUK_TOK_VOID: { + duk__expr_toplain_ignore(comp_ctx, res, DUK__BP_MULTIPLICATIVE /*rbp_flags*/); /* UnaryExpression */ + duk_push_undefined(thr); + goto plain_value; + } + case DUK_TOK_TYPEOF: { + /* 'typeof' must handle unresolvable references without throwing + * a ReferenceError (E5 Section 11.4.3). Register mapped values + * will never be unresolvable so special handling is only required + * when an identifier is a "slow path" one. + */ + duk__expr(comp_ctx, res, DUK__BP_MULTIPLICATIVE /*rbp_flags*/); /* UnaryExpression */ + + if (res->t == DUK_IVAL_VAR) { + duk_regconst_t reg_varbind; + duk_regconst_t rc_varname; + duk_regconst_t reg_temp; + + duk_dup(thr, res->x1.valstack_idx); + if (!duk__lookup_lhs(comp_ctx, ®_varbind, &rc_varname)) { + DUK_DDD(DUK_DDDPRINT("typeof for an identifier name which could not be resolved " + "at compile time, need to use special run-time handling")); + reg_temp = DUK__ALLOCTEMP(comp_ctx); + duk__emit_a_bc(comp_ctx, + DUK_OP_TYPEOFID, + reg_temp, + rc_varname); + duk__ivalue_regconst(res, reg_temp); + return; + } + } + + args = DUK_OP_TYPEOF; + goto unary; + } + case DUK_TOK_INCREMENT: { + args = (DUK_OP_PREINCP << 8) + DUK_OP_PREINCR; + goto preincdec; + } + case DUK_TOK_DECREMENT: { + args = (DUK_OP_PREDECP << 8) + DUK_OP_PREDECR; + goto preincdec; + } + case DUK_TOK_ADD: { + /* unary plus */ + duk__expr(comp_ctx, res, DUK__BP_MULTIPLICATIVE /*rbp_flags*/); /* UnaryExpression */ + if (res->t == DUK_IVAL_PLAIN && res->x1.t == DUK_ISPEC_VALUE && + duk_is_number(thr, res->x1.valstack_idx)) { + /* unary plus of a number is identity */ + return; + } + args = DUK_OP_UNP; + goto unary; + } + case DUK_TOK_SUB: { + /* unary minus */ + duk__expr(comp_ctx, res, DUK__BP_MULTIPLICATIVE /*rbp_flags*/); /* UnaryExpression */ + if (res->t == DUK_IVAL_PLAIN && res->x1.t == DUK_ISPEC_VALUE && + duk_is_number(thr, res->x1.valstack_idx)) { + /* this optimization is important to handle negative literals + * (which are not directly provided by the lexical grammar) + */ + duk_tval *tv_num; + duk_double_union du; + + tv_num = DUK_GET_TVAL_POSIDX(thr, res->x1.valstack_idx); + DUK_ASSERT(tv_num != NULL); + DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv_num)); + du.d = DUK_TVAL_GET_NUMBER(tv_num); + du.d = -du.d; + DUK_DBLUNION_NORMALIZE_NAN_CHECK(&du); + DUK_TVAL_SET_NUMBER(tv_num, du.d); + return; + } + args = DUK_OP_UNM; + goto unary; + } + case DUK_TOK_BNOT: { + duk__expr(comp_ctx, res, DUK__BP_MULTIPLICATIVE /*rbp_flags*/); /* UnaryExpression */ + args = DUK_OP_BNOT; + goto unary; + } + case DUK_TOK_LNOT: { + duk__expr(comp_ctx, res, DUK__BP_MULTIPLICATIVE /*rbp_flags*/); /* UnaryExpression */ + if (res->t == DUK_IVAL_PLAIN && res->x1.t == DUK_ISPEC_VALUE) { + /* Very minimal inlining to handle common idioms '!0' and '!1', + * and also boolean arguments like '!false' and '!true'. + */ + duk_tval *tv_val; + + tv_val = DUK_GET_TVAL_POSIDX(thr, res->x1.valstack_idx); + DUK_ASSERT(tv_val != NULL); + if (DUK_TVAL_IS_NUMBER(tv_val)) { + duk_double_t d; + d = DUK_TVAL_GET_NUMBER(tv_val); + if (duk_double_equals(d, 0.0)) { + /* Matches both +0 and -0 on purpose. */ + DUK_DDD(DUK_DDDPRINT("inlined lnot: !0 -> true")); + DUK_TVAL_SET_BOOLEAN_TRUE(tv_val); + return; + } else if (duk_double_equals(d, 1.0)) { + DUK_DDD(DUK_DDDPRINT("inlined lnot: !1 -> false")); + DUK_TVAL_SET_BOOLEAN_FALSE(tv_val); + return; + } + } else if (DUK_TVAL_IS_BOOLEAN(tv_val)) { + duk_small_uint_t v; + v = DUK_TVAL_GET_BOOLEAN(tv_val); + DUK_DDD(DUK_DDDPRINT("inlined lnot boolean: %ld", (long) v)); + DUK_ASSERT(v == 0 || v == 1); + DUK_TVAL_SET_BOOLEAN(tv_val, v ^ 0x01); + return; + } + } + args = DUK_OP_LNOT; + goto unary; + } + + } /* end switch */ + + DUK_ERROR_SYNTAX(thr, DUK_STR_PARSE_ERROR); + DUK_WO_NORETURN(return;); + + unary: + { + /* Unary opcodes use just the 'BC' register source because it + * matches current shuffle limits, and maps cleanly to 16 high + * bits of the opcode. + */ + + duk_regconst_t reg_src, reg_res; + + reg_src = duk__ivalue_toregconst_raw(comp_ctx, res, -1 /*forced_reg*/, 0 /*flags*/); + if (DUK__ISREG_TEMP(comp_ctx, reg_src)) { + reg_res = reg_src; + } else { + reg_res = DUK__ALLOCTEMP(comp_ctx); + } + duk__emit_a_bc(comp_ctx, + args, + reg_res, + reg_src); + duk__ivalue_regconst(res, reg_res); + return; + } + + preincdec: + { + /* preincrement and predecrement */ + duk_regconst_t reg_res; + duk_small_uint_t args_op1 = args & 0xff; /* DUK_OP_PREINCR/DUK_OP_PREDECR */ + duk_small_uint_t args_op2 = args >> 8; /* DUK_OP_PREINCP_RR/DUK_OP_PREDECP_RR */ + + /* Specific assumptions for opcode numbering. */ + DUK_ASSERT(DUK_OP_PREINCR + 4 == DUK_OP_PREINCV); + DUK_ASSERT(DUK_OP_PREDECR + 4 == DUK_OP_PREDECV); + + reg_res = DUK__ALLOCTEMP(comp_ctx); + + duk__expr(comp_ctx, res, DUK__BP_MULTIPLICATIVE /*rbp_flags*/); /* UnaryExpression */ + if (res->t == DUK_IVAL_VAR) { + duk_hstring *h_varname; + duk_regconst_t reg_varbind; + duk_regconst_t rc_varname; + + h_varname = duk_known_hstring(thr, res->x1.valstack_idx); + + if (duk__hstring_is_eval_or_arguments_in_strict_mode(comp_ctx, h_varname)) { + goto syntax_error; + } + + duk_dup(thr, res->x1.valstack_idx); + if (duk__lookup_lhs(comp_ctx, ®_varbind, &rc_varname)) { + duk__emit_a_bc(comp_ctx, + args_op1, /* e.g. DUK_OP_PREINCR */ + reg_res, + reg_varbind); + } else { + duk__emit_a_bc(comp_ctx, + args_op1 + 4, /* e.g. DUK_OP_PREINCV */ + reg_res, + rc_varname); + } + + DUK_DDD(DUK_DDDPRINT("preincdec to '%!O' -> reg_varbind=%ld, rc_varname=%ld", + (duk_heaphdr *) h_varname, (long) reg_varbind, (long) rc_varname)); + } else if (res->t == DUK_IVAL_PROP) { + duk_regconst_t reg_obj; /* allocate to reg only (not const) */ + duk_regconst_t rc_key; + reg_obj = duk__ispec_toregconst_raw(comp_ctx, &res->x1, -1 /*forced_reg*/, 0 /*flags*/); /* don't allow const */ + rc_key = duk__ispec_toregconst_raw(comp_ctx, &res->x2, -1 /*forced_reg*/, DUK__IVAL_FLAG_ALLOW_CONST /*flags*/); + duk__emit_a_b_c(comp_ctx, + args_op2 | DUK__EMIT_FLAG_BC_REGCONST, /* e.g. DUK_OP_PREINCP */ + reg_res, + reg_obj, + rc_key); + } else { + /* Technically return value is not needed because INVLHS will + * unconditially throw a ReferenceError. Coercion is necessary + * for proper semantics (consider ToNumber() called for an object). + * Use DUK_OP_UNP with a dummy register to get ToNumber(). + */ + + duk__ivalue_toforcedreg(comp_ctx, res, reg_res); + duk__emit_bc(comp_ctx, + DUK_OP_UNP, + reg_res); /* for side effects, result ignored */ + duk__emit_op_only(comp_ctx, + DUK_OP_INVLHS); + } + DUK__SETTEMP(comp_ctx, reg_res + 1); + duk__ivalue_regconst(res, reg_res); + return; + } + + plain_value: + { + /* Stack top contains plain value */ + duk__ivalue_plain_fromstack(comp_ctx, res); + return; + } + +#if defined(DUK_USE_ES6) + syntax_error_newtarget: + DUK_ERROR_SYNTAX(thr, DUK_STR_INVALID_NEWTARGET); + DUK_WO_NORETURN(return;); +#endif + + syntax_error: + DUK_ERROR_SYNTAX(thr, DUK_STR_INVALID_EXPRESSION); + DUK_WO_NORETURN(return;); +} + +/* XXX: add flag to indicate whether caller cares about return value; this + * affects e.g. handling of assignment expressions. This change needs API + * changes elsewhere too. + */ +DUK_LOCAL void duk__expr_led(duk_compiler_ctx *comp_ctx, duk_ivalue *left, duk_ivalue *res) { + duk_hthread *thr = comp_ctx->thr; + duk_token *tk; + duk_small_uint_t tok; + duk_uint32_t args; /* temp variable to pass constants and flags to shared code */ + + /* + * ctx->prev_token token to process with duk__expr_led() + * ctx->curr_token updated by caller + */ + + comp_ctx->curr_func.led_count++; + + /* The token in the switch has already been eaten here */ + tk = &comp_ctx->prev_token; + tok = tk->t; + + DUK_DDD(DUK_DDDPRINT("duk__expr_led(), prev_token.t=%ld, allow_in=%ld, paren_level=%ld", + (long) tk->t, (long) comp_ctx->curr_func.allow_in, (long) comp_ctx->curr_func.paren_level)); + + /* XXX: default priority for infix operators is duk__expr_lbp(tok) -> get it here? */ + + switch (tok) { + + /* PRIMARY EXPRESSIONS */ + + case DUK_TOK_PERIOD: { + /* Property access expressions are critical for correct LHS ordering, + * see comments in duk__expr()! + * + * A conservative approach would be to use duk__ivalue_totempconst() + * for 'left'. However, allowing a reg-bound variable seems safe here + * and is nice because "foo.bar" is a common expression. If the ivalue + * is used in an expression a GETPROP will occur before any changes to + * the base value can occur. If the ivalue is used as an assignment + * LHS, the assignment code will ensure the base value is safe from + * RHS mutation. + */ + + /* XXX: This now coerces an identifier into a GETVAR to a temp, which + * causes an extra LDREG in call setup. It's sufficient to coerce to a + * unary ivalue? + */ + duk__ivalue_toplain(comp_ctx, left); + + /* NB: must accept reserved words as property name */ + if (comp_ctx->curr_token.t_nores != DUK_TOK_IDENTIFIER) { + DUK_ERROR_SYNTAX(thr, DUK_STR_EXPECTED_IDENTIFIER); + DUK_WO_NORETURN(return;); + } + + res->t = DUK_IVAL_PROP; + duk__copy_ispec(comp_ctx, &left->x1, &res->x1); /* left.x1 -> res.x1 */ + DUK_ASSERT(comp_ctx->curr_token.str1 != NULL); + duk_push_hstring(thr, comp_ctx->curr_token.str1); + duk_replace(thr, res->x2.valstack_idx); + res->x2.t = DUK_ISPEC_VALUE; + + /* special RegExp literal handling after IdentifierName */ + comp_ctx->curr_func.reject_regexp_in_adv = 1; + + duk__advance(comp_ctx); + return; + } + case DUK_TOK_LBRACKET: { + /* Property access expressions are critical for correct LHS ordering, + * see comments in duk__expr()! + */ + + /* XXX: optimize temp reg use */ + /* XXX: similar coercion issue as in DUK_TOK_PERIOD */ + /* XXX: coerce to regs? it might be better for enumeration use, where the + * same PROP ivalue is used multiple times. Or perhaps coerce PROP further + * there? + */ + /* XXX: for simple cases like x['y'] an unnecessary LDREG is + * emitted for the base value; could avoid it if we knew that + * the key expression is safe (e.g. just a single literal). + */ + + /* The 'left' value must not be a register bound variable + * because it may be mutated during the rest of the expression + * and E5.1 Section 11.2.1 specifies the order of evaluation + * so that the base value is evaluated first. + * See: test-bug-nested-prop-mutate.js. + */ + duk__ivalue_totempconst(comp_ctx, left); + duk__expr_toplain(comp_ctx, res, DUK__BP_FOR_EXPR /*rbp_flags*/); /* Expression, ']' terminates */ + duk__advance_expect(comp_ctx, DUK_TOK_RBRACKET); + + res->t = DUK_IVAL_PROP; + duk__copy_ispec(comp_ctx, &res->x1, &res->x2); /* res.x1 -> res.x2 */ + duk__copy_ispec(comp_ctx, &left->x1, &res->x1); /* left.x1 -> res.x1 */ + return; + } + case DUK_TOK_LPAREN: { + /* function call */ + duk_regconst_t reg_cs = DUK__ALLOCTEMPS(comp_ctx, 2); + duk_int_t nargs; + duk_small_uint_t call_op = DUK_OP_CALL0; + + /* XXX: attempt to get the call result to "next temp" whenever + * possible to avoid unnecessary register shuffles. + */ + + /* + * Setup call: target and 'this' binding. Three cases: + * + * 1. Identifier base (e.g. "foo()") + * 2. Property base (e.g. "foo.bar()") + * 3. Register base (e.g. "foo()()"; i.e. when a return value is a function) + */ + + if (left->t == DUK_IVAL_VAR) { + duk_hstring *h_varname; + duk_regconst_t reg_varbind; + duk_regconst_t rc_varname; + + DUK_DDD(DUK_DDDPRINT("function call with identifier base")); + + h_varname = duk_known_hstring(thr, left->x1.valstack_idx); + if (h_varname == DUK_HTHREAD_STRING_EVAL(thr)) { + /* Potential direct eval call detected, flag the CALL + * so that a run-time "direct eval" check is made and + * special behavior may be triggered. Note that this + * does not prevent 'eval' from being register bound. + */ + DUK_DDD(DUK_DDDPRINT("function call with identifier 'eval' " + "-> using EVALCALL, marking function " + "as may_direct_eval")); + call_op |= DUK_BC_CALL_FLAG_CALLED_AS_EVAL; + comp_ctx->curr_func.may_direct_eval = 1; + } + + duk_dup(thr, left->x1.valstack_idx); + if (duk__lookup_lhs(comp_ctx, ®_varbind, &rc_varname)) { + duk__emit_a_bc(comp_ctx, + DUK_OP_CSREG | DUK__EMIT_FLAG_A_IS_SOURCE, + reg_varbind, + reg_cs + 0); + } else { + /* XXX: expand target register or constant field to + * reduce shuffling. + */ + DUK_ASSERT(DUK__ISCONST(rc_varname)); + duk__emit_a_b(comp_ctx, + DUK_OP_CSVAR | DUK__EMIT_FLAG_BC_REGCONST, + reg_cs + 0, + rc_varname); + } + } else if (left->t == DUK_IVAL_PROP) { + /* Call through a property lookup, E5 Section 11.2.3, step 6.a.i, + * E5 Section 10.4.3. There used to be a separate CSPROP opcode + * but a typical call setup took 3 opcodes (e.g. LDREG, LDCONST, + * CSPROP) and the same can be achieved with ordinary loads. + */ +#if defined(DUK_USE_VERBOSE_ERRORS) + duk_regconst_t reg_key; +#endif + + DUK_DDD(DUK_DDDPRINT("function call with property base")); + + /* XXX: For Math.sin() this generates: LDCONST + LDREG + + * GETPROPC + call. The LDREG is unnecessary because LDCONST + * could be loaded directly into reg_cs + 1. This doesn't + * happen now because a variable cannot be in left->x1 of a + * DUK_IVAL_PROP. We could notice that left->x1 is a temp + * and reuse, but it would still be in the wrong position + * (reg_cs + 0 rather than reg_cs + 1). + */ + duk__ispec_toforcedreg(comp_ctx, &left->x1, reg_cs + 1); /* base */ +#if defined(DUK_USE_VERBOSE_ERRORS) + reg_key = duk__ispec_toregconst_raw(comp_ctx, &left->x2, -1, DUK__IVAL_FLAG_ALLOW_CONST /*flags*/); + duk__emit_a_b_c(comp_ctx, + DUK_OP_GETPROPC | DUK__EMIT_FLAG_BC_REGCONST, + reg_cs + 0, + reg_cs + 1, + reg_key); +#else + duk__ivalue_toforcedreg(comp_ctx, left, reg_cs + 0); /* base[key] */ +#endif + } else { + DUK_DDD(DUK_DDDPRINT("function call with register base")); + + duk__ivalue_toforcedreg(comp_ctx, left, reg_cs + 0); +#if 0 + duk__emit_a_bc(comp_ctx, + DUK_OP_CSREG | DUK__EMIT_FLAG_A_IS_SOURCE, + reg_cs + 0, + reg_cs + 0); /* in-place setup */ +#endif + /* Because of in-place setup, REGCS is equivalent to + * just this LDUNDEF. + */ + duk__emit_bc(comp_ctx, DUK_OP_LDUNDEF, reg_cs + 1); + } + + DUK__SETTEMP(comp_ctx, reg_cs + 2); + nargs = duk__parse_arguments(comp_ctx, res); /* parse args starting from "next temp" */ + + /* Tailcalls are handled by back-patching the already emitted opcode + * later in return statement parser. + */ + + duk__emit_a_bc(comp_ctx, + call_op, + (duk_regconst_t) nargs /*numargs*/, + reg_cs /*basereg*/); + DUK__SETTEMP(comp_ctx, reg_cs + 1); /* result in csreg */ + + duk__ivalue_regconst(res, reg_cs); + return; + } + + /* POSTFIX EXPRESSION */ + + case DUK_TOK_INCREMENT: { + args = (DUK_OP_POSTINCP_RR << 16) + (DUK_OP_POSTINCR << 8) + 0; + goto postincdec; + } + case DUK_TOK_DECREMENT: { + args = (DUK_OP_POSTDECP_RR << 16) + (DUK_OP_POSTDECR << 8) + 0; + goto postincdec; + } + + /* EXPONENTIATION EXPRESSION */ + +#if defined(DUK_USE_ES7_EXP_OPERATOR) + case DUK_TOK_EXP: { + args = (DUK_OP_EXP << 8) + DUK__BP_EXPONENTIATION - 1; /* UnaryExpression */ + goto binary; + } +#endif + + /* MULTIPLICATIVE EXPRESSION */ + + case DUK_TOK_MUL: { + args = (DUK_OP_MUL << 8) + DUK__BP_MULTIPLICATIVE; /* ExponentiationExpression */ + goto binary; + } + case DUK_TOK_DIV: { + args = (DUK_OP_DIV << 8) + DUK__BP_MULTIPLICATIVE; /* ExponentiationExpression */ + goto binary; + } + case DUK_TOK_MOD: { + args = (DUK_OP_MOD << 8) + DUK__BP_MULTIPLICATIVE; /* ExponentiationExpression */ + goto binary; + } + + /* ADDITIVE EXPRESSION */ + + case DUK_TOK_ADD: { + args = (DUK_OP_ADD << 8) + DUK__BP_ADDITIVE; /* MultiplicativeExpression */ + goto binary; + } + case DUK_TOK_SUB: { + args = (DUK_OP_SUB << 8) + DUK__BP_ADDITIVE; /* MultiplicativeExpression */ + goto binary; + } + + /* SHIFT EXPRESSION */ + + case DUK_TOK_ALSHIFT: { + /* << */ + args = (DUK_OP_BASL << 8) + DUK__BP_SHIFT; + goto binary; + } + case DUK_TOK_ARSHIFT: { + /* >> */ + args = (DUK_OP_BASR << 8) + DUK__BP_SHIFT; + goto binary; + } + case DUK_TOK_RSHIFT: { + /* >>> */ + args = (DUK_OP_BLSR << 8) + DUK__BP_SHIFT; + goto binary; + } + + /* RELATIONAL EXPRESSION */ + + case DUK_TOK_LT: { + /* < */ + args = (DUK_OP_LT << 8) + DUK__BP_RELATIONAL; + goto binary; + } + case DUK_TOK_GT: { + args = (DUK_OP_GT << 8) + DUK__BP_RELATIONAL; + goto binary; + } + case DUK_TOK_LE: { + args = (DUK_OP_LE << 8) + DUK__BP_RELATIONAL; + goto binary; + } + case DUK_TOK_GE: { + args = (DUK_OP_GE << 8) + DUK__BP_RELATIONAL; + goto binary; + } + case DUK_TOK_INSTANCEOF: { + args = (DUK_OP_INSTOF << 8) + DUK__BP_RELATIONAL; + goto binary; + } + case DUK_TOK_IN: { + args = (DUK_OP_IN << 8) + DUK__BP_RELATIONAL; + goto binary; + } + + /* EQUALITY EXPRESSION */ + + case DUK_TOK_EQ: { + args = (DUK_OP_EQ << 8) + DUK__BP_EQUALITY; + goto binary; + } + case DUK_TOK_NEQ: { + args = (DUK_OP_NEQ << 8) + DUK__BP_EQUALITY; + goto binary; + } + case DUK_TOK_SEQ: { + args = (DUK_OP_SEQ << 8) + DUK__BP_EQUALITY; + goto binary; + } + case DUK_TOK_SNEQ: { + args = (DUK_OP_SNEQ << 8) + DUK__BP_EQUALITY; + goto binary; + } + + /* BITWISE EXPRESSIONS */ + + case DUK_TOK_BAND: { + args = (DUK_OP_BAND << 8) + DUK__BP_BAND; + goto binary; + } + case DUK_TOK_BXOR: { + args = (DUK_OP_BXOR << 8) + DUK__BP_BXOR; + goto binary; + } + case DUK_TOK_BOR: { + args = (DUK_OP_BOR << 8) + DUK__BP_BOR; + goto binary; + } + + /* LOGICAL EXPRESSIONS */ + + case DUK_TOK_LAND: { + /* syntactically left-associative but parsed as right-associative */ + args = (1 << 8) + DUK__BP_LAND - 1; + goto binary_logical; + } + case DUK_TOK_LOR: { + /* syntactically left-associative but parsed as right-associative */ + args = (0 << 8) + DUK__BP_LOR - 1; + goto binary_logical; + } + + /* CONDITIONAL EXPRESSION */ + + case DUK_TOK_QUESTION: { + /* XXX: common reg allocation need is to reuse a sub-expression's temp reg, + * but only if it really is a temp. Nothing fancy here now. + */ + duk_regconst_t reg_temp; + duk_int_t pc_jump1; + duk_int_t pc_jump2; + + reg_temp = DUK__ALLOCTEMP(comp_ctx); + duk__ivalue_toforcedreg(comp_ctx, left, reg_temp); + duk__emit_if_true_skip(comp_ctx, reg_temp); + pc_jump1 = duk__emit_jump_empty(comp_ctx); /* jump to false */ + duk__expr_toforcedreg(comp_ctx, res, DUK__BP_COMMA /*rbp_flags*/, reg_temp /*forced_reg*/); /* AssignmentExpression */ + duk__advance_expect(comp_ctx, DUK_TOK_COLON); + pc_jump2 = duk__emit_jump_empty(comp_ctx); /* jump to end */ + duk__patch_jump_here(comp_ctx, pc_jump1); + duk__expr_toforcedreg(comp_ctx, res, DUK__BP_COMMA /*rbp_flags*/, reg_temp /*forced_reg*/); /* AssignmentExpression */ + duk__patch_jump_here(comp_ctx, pc_jump2); + + DUK__SETTEMP(comp_ctx, reg_temp + 1); + duk__ivalue_regconst(res, reg_temp); + return; + } + + /* ASSIGNMENT EXPRESSION */ + + case DUK_TOK_EQUALSIGN: { + /* + * Assignments are right associative, allows e.g. + * a = 5; + * a += b = 9; // same as a += (b = 9) + * -> expression value 14, a = 14, b = 9 + * + * Right associativiness is reflected in the BP for recursion, + * "-1" ensures assignment operations are allowed. + * + * XXX: just use DUK__BP_COMMA (i.e. no need for 2-step bp levels)? + */ + args = (DUK_OP_NONE << 8) + DUK__BP_ASSIGNMENT - 1; /* DUK_OP_NONE marks a 'plain' assignment */ + goto assign; + } + case DUK_TOK_ADD_EQ: { + /* right associative */ + args = (DUK_OP_ADD << 8) + DUK__BP_ASSIGNMENT - 1; + goto assign; + } + case DUK_TOK_SUB_EQ: { + /* right associative */ + args = (DUK_OP_SUB << 8) + DUK__BP_ASSIGNMENT - 1; + goto assign; + } + case DUK_TOK_MUL_EQ: { + /* right associative */ + args = (DUK_OP_MUL << 8) + DUK__BP_ASSIGNMENT - 1; + goto assign; + } + case DUK_TOK_DIV_EQ: { + /* right associative */ + args = (DUK_OP_DIV << 8) + DUK__BP_ASSIGNMENT - 1; + goto assign; + } + case DUK_TOK_MOD_EQ: { + /* right associative */ + args = (DUK_OP_MOD << 8) + DUK__BP_ASSIGNMENT - 1; + goto assign; + } +#if defined(DUK_USE_ES7_EXP_OPERATOR) + case DUK_TOK_EXP_EQ: { + /* right associative */ + args = (DUK_OP_EXP << 8) + DUK__BP_ASSIGNMENT - 1; + goto assign; + } +#endif + case DUK_TOK_ALSHIFT_EQ: { + /* right associative */ + args = (DUK_OP_BASL << 8) + DUK__BP_ASSIGNMENT - 1; + goto assign; + } + case DUK_TOK_ARSHIFT_EQ: { + /* right associative */ + args = (DUK_OP_BASR << 8) + DUK__BP_ASSIGNMENT - 1; + goto assign; + } + case DUK_TOK_RSHIFT_EQ: { + /* right associative */ + args = (DUK_OP_BLSR << 8) + DUK__BP_ASSIGNMENT - 1; + goto assign; + } + case DUK_TOK_BAND_EQ: { + /* right associative */ + args = (DUK_OP_BAND << 8) + DUK__BP_ASSIGNMENT - 1; + goto assign; + } + case DUK_TOK_BOR_EQ: { + /* right associative */ + args = (DUK_OP_BOR << 8) + DUK__BP_ASSIGNMENT - 1; + goto assign; + } + case DUK_TOK_BXOR_EQ: { + /* right associative */ + args = (DUK_OP_BXOR << 8) + DUK__BP_ASSIGNMENT - 1; + goto assign; + } + + /* COMMA */ + + case DUK_TOK_COMMA: { + /* right associative */ + + duk__ivalue_toplain_ignore(comp_ctx, left); /* need side effects, not value */ + duk__expr_toplain(comp_ctx, res, DUK__BP_COMMA - 1 /*rbp_flags*/); + + /* return 'res' (of right part) as our result */ + return; + } + + default: { + break; + } + } + + DUK_D(DUK_DPRINT("parse error: unexpected token: %ld", (long) tok)); + DUK_ERROR_SYNTAX(thr, DUK_STR_PARSE_ERROR); + DUK_WO_NORETURN(return;); + +#if 0 + /* XXX: shared handling for 'duk__expr_lhs'? */ + if (comp_ctx->curr_func.paren_level == 0 && XXX) { + comp_ctx->curr_func.duk__expr_lhs = 0; + } +#endif + + binary: + /* + * Shared handling of binary operations + * + * args = (opcode << 8) + rbp + */ + { + duk__ivalue_toplain(comp_ctx, left); + duk__expr_toplain(comp_ctx, res, args & 0xff /*rbp_flags*/); + + /* combine left->x1 and res->x1 (right->x1, really) -> (left->x1 OP res->x1) */ + DUK_ASSERT(left->t == DUK_IVAL_PLAIN); + DUK_ASSERT(res->t == DUK_IVAL_PLAIN); + + res->t = DUK_IVAL_ARITH; + res->op = (args >> 8) & 0xff; + + res->x2.t = res->x1.t; + res->x2.regconst = res->x1.regconst; + duk_copy(thr, res->x1.valstack_idx, res->x2.valstack_idx); + + res->x1.t = left->x1.t; + res->x1.regconst = left->x1.regconst; + duk_copy(thr, left->x1.valstack_idx, res->x1.valstack_idx); + + DUK_DDD(DUK_DDDPRINT("binary op, res: t=%ld, x1.t=%ld, x1.regconst=0x%08lx, x2.t=%ld, x2.regconst=0x%08lx", + (long) res->t, (long) res->x1.t, (unsigned long) res->x1.regconst, (long) res->x2.t, (unsigned long) res->x2.regconst)); + return; + } + + binary_logical: + /* + * Shared handling for logical AND and logical OR. + * + * args = (truthval << 8) + rbp + * + * Truthval determines when to skip right-hand-side. + * For logical AND truthval=1, for logical OR truthval=0. + * + * See doc/compiler.rst for discussion on compiling logical + * AND and OR expressions. The approach here is very simplistic, + * generating extra jumps and multiple evaluations of truth values, + * but generates code on-the-fly with only local back-patching. + * + * Both logical AND and OR are syntactically left-associated. + * However, logical ANDs are compiled as right associative + * expressions, i.e. "A && B && C" as "A && (B && C)", to allow + * skip jumps to skip over the entire tail. Similarly for logical OR. + */ + + { + duk_regconst_t reg_temp; + duk_int_t pc_jump; + duk_small_uint_t args_truthval = args >> 8; + duk_small_uint_t args_rbp = args & 0xff; + + /* XXX: unoptimal use of temps, resetting */ + + reg_temp = DUK__ALLOCTEMP(comp_ctx); + + duk__ivalue_toforcedreg(comp_ctx, left, reg_temp); + DUK_ASSERT(DUK__ISREG(reg_temp)); + duk__emit_bc(comp_ctx, + (args_truthval ? DUK_OP_IFTRUE_R : DUK_OP_IFFALSE_R), + reg_temp); /* skip jump conditionally */ + pc_jump = duk__emit_jump_empty(comp_ctx); + duk__expr_toforcedreg(comp_ctx, res, args_rbp /*rbp_flags*/, reg_temp /*forced_reg*/); + duk__patch_jump_here(comp_ctx, pc_jump); + + duk__ivalue_regconst(res, reg_temp); + return; + } + + assign: + /* + * Shared assignment expression handling + * + * args = (opcode << 8) + rbp + * + * If 'opcode' is DUK_OP_NONE, plain assignment without arithmetic. + * Syntactically valid left-hand-side forms which are not accepted as + * left-hand-side values (e.g. as in "f() = 1") must NOT cause a + * SyntaxError, but rather a run-time ReferenceError. + * + * When evaluating X = Y, the LHS (X) is conceptually evaluated + * to a temporary first. The RHS is then evaluated. Finally, the + * is applied to the initial value of RHS (not the value after + * RHS evaluation), and written to X. Doing so concretely generates + * inefficient code so we'd like to avoid the temporary when possible. + * See: https://github.com/svaarala/duktape/pull/992. + * + * The expression value (final LHS value, written to RHS) is + * conceptually copied into a fresh temporary so that it won't + * change even if the LHS/RHS values change in outer expressions. + * For example, it'd be generally incorrect for the expression value + * to be the RHS register binding, unless there's a guarantee that it + * won't change during further expression evaluation. Using the + * temporary concretely produces inefficient bytecode, so we try to + * avoid the extra temporary for some known-to-be-safe cases. + * Currently the only safe case we detect is a "top level assignment", + * for example "x = y + z;", where the assignment expression value is + * ignored. + * See: test-dev-assign-expr.js and test-bug-assign-mutate-gh381.js. + */ + + { + duk_small_uint_t args_op = args >> 8; + duk_small_uint_t args_rbp = args & 0xff; + duk_bool_t toplevel_assign; + + /* XXX: here we need to know if 'left' is left-hand-side compatible. + * That information is no longer available from current expr parsing + * state; it would need to be carried into the 'left' ivalue or by + * some other means. + */ + + /* A top-level assignment is e.g. "x = y;". For these it's safe + * to use the RHS as-is as the expression value, even if the RHS + * is a reg-bound identifier. The RHS ('res') is right associative + * so it has consumed all other assignment level operations; the + * only relevant lower binding power construct is comma operator + * which will ignore the expression value provided here. Usually + * the top level assignment expression value is ignored, but it + * is relevant for e.g. eval code. + */ + toplevel_assign = (comp_ctx->curr_func.nud_count == 1 && /* one token before */ + comp_ctx->curr_func.led_count == 1); /* one operator (= assign) */ + DUK_DDD(DUK_DDDPRINT("assignment: nud_count=%ld, led_count=%ld, toplevel_assign=%ld", + (long) comp_ctx->curr_func.nud_count, + (long) comp_ctx->curr_func.led_count, + (long) toplevel_assign)); + + if (left->t == DUK_IVAL_VAR) { + duk_hstring *h_varname; + duk_regconst_t reg_varbind; + duk_regconst_t rc_varname; + + DUK_ASSERT(left->x1.t == DUK_ISPEC_VALUE); /* LHS is already side effect free */ + + h_varname = duk_known_hstring(thr, left->x1.valstack_idx); + if (duk__hstring_is_eval_or_arguments_in_strict_mode(comp_ctx, h_varname)) { + /* E5 Section 11.13.1 (and others for other assignments), step 4. */ + goto syntax_error_lvalue; + } + duk_dup(thr, left->x1.valstack_idx); + (void) duk__lookup_lhs(comp_ctx, ®_varbind, &rc_varname); + + if (args_op == DUK_OP_NONE) { + duk__expr(comp_ctx, res, args_rbp /*rbp_flags*/); + if (toplevel_assign) { + /* Any 'res' will do. */ + DUK_DDD(DUK_DDDPRINT("plain assignment, toplevel assign, use as is")); + } else { + /* 'res' must be a plain ivalue, and not register-bound variable. */ + DUK_DDD(DUK_DDDPRINT("plain assignment, not toplevel assign, ensure not a reg-bound identifier")); + if (res->t != DUK_IVAL_PLAIN || (res->x1.t == DUK_ISPEC_REGCONST && + DUK__ISREG_NOTTEMP(comp_ctx, res->x1.regconst))) { + duk__ivalue_totempconst(comp_ctx, res); + } + } + } else { + /* For X = Y we need to evaluate the pre-op + * value of X before evaluating the RHS: the RHS + * can change X, but when we do we must use + * the pre-op value. + */ + duk_regconst_t reg_temp; + + reg_temp = DUK__ALLOCTEMP(comp_ctx); + + if (reg_varbind >= 0) { + duk_regconst_t reg_res; + duk_regconst_t reg_src; + duk_int_t pc_temp_load; + duk_int_t pc_before_rhs; + duk_int_t pc_after_rhs; + + if (toplevel_assign) { + /* 'reg_varbind' is the operation result and can also + * become the expression value for top level assignments + * such as: "var x; x += y;". + */ + DUK_DD(DUK_DDPRINT("= expression is top level, write directly to reg_varbind")); + reg_res = reg_varbind; + } else { + /* Not safe to use 'reg_varbind' as assignment expression + * value, so go through a temp. + */ + DUK_DD(DUK_DDPRINT("= expression is not top level, write to reg_temp")); + reg_res = reg_temp; /* reg_res should be smallest possible */ + reg_temp = DUK__ALLOCTEMP(comp_ctx); + } + + /* Try to optimize X = Y for reg-bound + * variables. Detect side-effect free RHS + * narrowly by seeing whether it emits code. + * If not, rewind the code emitter and overwrite + * the unnecessary temp reg load. + */ + + pc_temp_load = duk__get_current_pc(comp_ctx); + duk__emit_a_bc(comp_ctx, + DUK_OP_LDREG, + reg_temp, + reg_varbind); + + pc_before_rhs = duk__get_current_pc(comp_ctx); + duk__expr_toregconst(comp_ctx, res, args_rbp /*rbp_flags*/); + DUK_ASSERT(res->t == DUK_IVAL_PLAIN && res->x1.t == DUK_ISPEC_REGCONST); + pc_after_rhs = duk__get_current_pc(comp_ctx); + + DUK_DD(DUK_DDPRINT("pc_temp_load=%ld, pc_before_rhs=%ld, pc_after_rhs=%ld", + (long) pc_temp_load, (long) pc_before_rhs, + (long) pc_after_rhs)); + + if (pc_after_rhs == pc_before_rhs) { + /* Note: if the reg_temp load generated shuffling + * instructions, we may need to rewind more than + * one instruction, so use explicit PC computation. + */ + DUK_DD(DUK_DDPRINT("rhs is side effect free, rewind and avoid unnecessary temp for reg-based =")); + DUK_BW_ADD_PTR(comp_ctx->thr, &comp_ctx->curr_func.bw_code, (pc_temp_load - pc_before_rhs) * (duk_int_t) sizeof(duk_compiler_instr)); + reg_src = reg_varbind; + } else { + DUK_DD(DUK_DDPRINT("rhs evaluation emitted code, not sure if rhs is side effect free; use temp reg for LHS")); + reg_src = reg_temp; + } + + duk__emit_a_b_c(comp_ctx, + args_op | DUK__EMIT_FLAG_BC_REGCONST, + reg_res, + reg_src, + res->x1.regconst); + + res->x1.regconst = reg_res; + + /* Ensure compact use of temps. */ + if (DUK__ISREG_TEMP(comp_ctx, reg_res)) { + DUK__SETTEMP(comp_ctx, reg_res + 1); + } + } else { + /* When LHS is not register bound, always go through a + * temporary. No optimization for top level assignment. + */ + + duk__emit_a_bc(comp_ctx, + DUK_OP_GETVAR, + reg_temp, + rc_varname); + + duk__expr_toregconst(comp_ctx, res, args_rbp /*rbp_flags*/); + DUK_ASSERT(res->t == DUK_IVAL_PLAIN && res->x1.t == DUK_ISPEC_REGCONST); + + duk__emit_a_b_c(comp_ctx, + args_op | DUK__EMIT_FLAG_BC_REGCONST, + reg_temp, + reg_temp, + res->x1.regconst); + res->x1.regconst = reg_temp; + } + + DUK_ASSERT(res->t == DUK_IVAL_PLAIN && res->x1.t == DUK_ISPEC_REGCONST); + } + + /* At this point 'res' holds the potential expression value. + * It can be basically any ivalue here, including a reg-bound + * identifier (if code above deems it safe) or a unary/binary + * operation. Operations must be resolved to a side effect free + * plain value, and the side effects must happen exactly once. + */ + + if (reg_varbind >= 0) { + if (res->t != DUK_IVAL_PLAIN) { + /* Resolve 'res' directly into the LHS binding, and use + * that as the expression value if safe. If not safe, + * resolve to a temp/const and copy to LHS. + */ + if (toplevel_assign) { + duk__ivalue_toforcedreg(comp_ctx, res, (duk_int_t) reg_varbind); + } else { + duk__ivalue_totempconst(comp_ctx, res); + duk__copy_ivalue(comp_ctx, res, left); /* use 'left' as a temp */ + duk__ivalue_toforcedreg(comp_ctx, left, (duk_int_t) reg_varbind); + } + } else { + /* Use 'res' as the expression value (it's side effect + * free and may be a plain value, a register, or a + * constant) and write it to the LHS binding too. + */ + duk__copy_ivalue(comp_ctx, res, left); /* use 'left' as a temp */ + duk__ivalue_toforcedreg(comp_ctx, left, (duk_int_t) reg_varbind); + } + } else { + /* Only a reg fits into 'A' so coerce 'res' into a register + * for PUTVAR. + * + * XXX: here the current A/B/C split is suboptimal: we could + * just use 9 bits for reg_res (and support constants) and 17 + * instead of 18 bits for the varname const index. + */ + + duk__ivalue_toreg(comp_ctx, res); + duk__emit_a_bc(comp_ctx, + DUK_OP_PUTVAR | DUK__EMIT_FLAG_A_IS_SOURCE, + res->x1.regconst, + rc_varname); + } + + /* 'res' contains expression value */ + } else if (left->t == DUK_IVAL_PROP) { + /* E5 Section 11.13.1 (and others) step 4 never matches for prop writes -> no check */ + duk_regconst_t reg_obj; + duk_regconst_t rc_key; + duk_regconst_t rc_res; + duk_regconst_t reg_temp; + + /* Property access expressions ('a[b]') are critical to correct + * LHS evaluation ordering, see test-dev-assign-eval-order*.js. + * We must make sure that the LHS target slot (base object and + * key) don't change during RHS evaluation. The only concrete + * problem is a register reference to a variable-bound register + * (i.e., non-temp). Require temp regs for both key and base. + * + * Don't allow a constant for the object (even for a number + * etc), as it goes into the 'A' field of the opcode. + */ + + reg_obj = duk__ispec_toregconst_raw(comp_ctx, + &left->x1, + -1 /*forced_reg*/, + DUK__IVAL_FLAG_REQUIRE_TEMP /*flags*/); + + rc_key = duk__ispec_toregconst_raw(comp_ctx, + &left->x2, + -1 /*forced_reg*/, + DUK__IVAL_FLAG_REQUIRE_TEMP | DUK__IVAL_FLAG_ALLOW_CONST /*flags*/); + + /* Evaluate RHS only when LHS is safe. */ + + if (args_op == DUK_OP_NONE) { + duk__expr_toregconst(comp_ctx, res, args_rbp /*rbp_flags*/); + DUK_ASSERT(res->t == DUK_IVAL_PLAIN && res->x1.t == DUK_ISPEC_REGCONST); + rc_res = res->x1.regconst; + } else { + reg_temp = DUK__ALLOCTEMP(comp_ctx); + duk__emit_a_b_c(comp_ctx, + DUK_OP_GETPROP | DUK__EMIT_FLAG_BC_REGCONST, + reg_temp, + reg_obj, + rc_key); + + duk__expr_toregconst(comp_ctx, res, args_rbp /*rbp_flags*/); + DUK_ASSERT(res->t == DUK_IVAL_PLAIN && res->x1.t == DUK_ISPEC_REGCONST); + + duk__emit_a_b_c(comp_ctx, + args_op | DUK__EMIT_FLAG_BC_REGCONST, + reg_temp, + reg_temp, + res->x1.regconst); + rc_res = reg_temp; + } + + duk__emit_a_b_c(comp_ctx, + DUK_OP_PUTPROP | DUK__EMIT_FLAG_A_IS_SOURCE | DUK__EMIT_FLAG_BC_REGCONST, + reg_obj, + rc_key, + rc_res); + + duk__ivalue_regconst(res, rc_res); + } else { + /* No support for lvalues returned from new or function call expressions. + * However, these must NOT cause compile-time SyntaxErrors, but run-time + * ReferenceErrors. Both left and right sides of the assignment must be + * evaluated before throwing a ReferenceError. For instance: + * + * f() = g(); + * + * must result in f() being evaluated, then g() being evaluated, and + * finally, a ReferenceError being thrown. See E5 Section 11.13.1. + */ + + duk_regconst_t rc_res; + + /* First evaluate LHS fully to ensure all side effects are out. */ + duk__ivalue_toplain_ignore(comp_ctx, left); + + /* Then evaluate RHS fully (its value becomes the expression value too). + * Technically we'd need the side effect safety check here too, but because + * we always throw using INVLHS the result doesn't matter. + */ + rc_res = duk__expr_toregconst(comp_ctx, res, args_rbp /*rbp_flags*/); + + duk__emit_op_only(comp_ctx, DUK_OP_INVLHS); + + duk__ivalue_regconst(res, rc_res); + } + + return; + } + + postincdec: + { + /* + * Post-increment/decrement will return the original value as its + * result value. However, even that value will be coerced using + * ToNumber() which is quite awkward. Specific bytecode opcodes + * are used to handle these semantics. + * + * Note that post increment/decrement has a "no LineTerminator here" + * restriction. This is handled by duk__expr_lbp(), which forcibly terminates + * the previous expression if a LineTerminator occurs before '++'/'--'. + */ + + duk_regconst_t reg_res; + duk_small_uint_t args_op1 = (args >> 8) & 0xff; /* DUK_OP_POSTINCR/DUK_OP_POSTDECR */ + duk_small_uint_t args_op2 = args >> 16; /* DUK_OP_POSTINCP_RR/DUK_OP_POSTDECP_RR */ + + /* Specific assumptions for opcode numbering. */ + DUK_ASSERT(DUK_OP_POSTINCR + 4 == DUK_OP_POSTINCV); + DUK_ASSERT(DUK_OP_POSTDECR + 4 == DUK_OP_POSTDECV); + + reg_res = DUK__ALLOCTEMP(comp_ctx); + + if (left->t == DUK_IVAL_VAR) { + duk_hstring *h_varname; + duk_regconst_t reg_varbind; + duk_regconst_t rc_varname; + + h_varname = duk_known_hstring(thr, left->x1.valstack_idx); + + if (duk__hstring_is_eval_or_arguments_in_strict_mode(comp_ctx, h_varname)) { + goto syntax_error; + } + + duk_dup(thr, left->x1.valstack_idx); + if (duk__lookup_lhs(comp_ctx, ®_varbind, &rc_varname)) { + duk__emit_a_bc(comp_ctx, + args_op1, /* e.g. DUK_OP_POSTINCR */ + reg_res, + reg_varbind); + } else { + duk__emit_a_bc(comp_ctx, + args_op1 + 4, /* e.g. DUK_OP_POSTINCV */ + reg_res, + rc_varname); + } + + DUK_DDD(DUK_DDDPRINT("postincdec to '%!O' -> reg_varbind=%ld, rc_varname=%ld", + (duk_heaphdr *) h_varname, (long) reg_varbind, (long) rc_varname)); + } else if (left->t == DUK_IVAL_PROP) { + duk_regconst_t reg_obj; /* allocate to reg only (not const) */ + duk_regconst_t rc_key; + + reg_obj = duk__ispec_toregconst_raw(comp_ctx, &left->x1, -1 /*forced_reg*/, 0 /*flags*/); /* don't allow const */ + rc_key = duk__ispec_toregconst_raw(comp_ctx, &left->x2, -1 /*forced_reg*/, DUK__IVAL_FLAG_ALLOW_CONST /*flags*/); + duk__emit_a_b_c(comp_ctx, + args_op2 | DUK__EMIT_FLAG_BC_REGCONST, /* e.g. DUK_OP_POSTINCP */ + reg_res, + reg_obj, + rc_key); + } else { + /* Technically return value is not needed because INVLHS will + * unconditially throw a ReferenceError. Coercion is necessary + * for proper semantics (consider ToNumber() called for an object). + * Use DUK_OP_UNP with a dummy register to get ToNumber(). + */ + duk__ivalue_toforcedreg(comp_ctx, left, reg_res); + duk__emit_bc(comp_ctx, + DUK_OP_UNP, + reg_res); /* for side effects, result ignored */ + duk__emit_op_only(comp_ctx, + DUK_OP_INVLHS); + } + + DUK__SETTEMP(comp_ctx, reg_res + 1); + duk__ivalue_regconst(res, reg_res); + return; + } + + syntax_error: + DUK_ERROR_SYNTAX(thr, DUK_STR_INVALID_EXPRESSION); + DUK_WO_NORETURN(return;); + + syntax_error_lvalue: + DUK_ERROR_SYNTAX(thr, DUK_STR_INVALID_LVALUE); + DUK_WO_NORETURN(return;); +} + +DUK_LOCAL duk_small_uint_t duk__expr_lbp(duk_compiler_ctx *comp_ctx) { + duk_small_uint_t tok = comp_ctx->curr_token.t; + + DUK_ASSERT_DISABLE(tok >= DUK_TOK_MINVAL); /* unsigned */ + DUK_ASSERT(tok <= DUK_TOK_MAXVAL); + DUK_ASSERT(sizeof(duk__token_lbp) == DUK_TOK_MAXVAL + 1); + + /* XXX: integrate support for this into led() instead? + * Similar issue as post-increment/post-decrement. + */ + + /* prevent duk__expr_led() by using a binding power less than anything valid */ + if (tok == DUK_TOK_IN && !comp_ctx->curr_func.allow_in) { + return 0; + } + + if ((tok == DUK_TOK_DECREMENT || tok == DUK_TOK_INCREMENT) && + (comp_ctx->curr_token.lineterm)) { + /* '++' or '--' in a post-increment/decrement position, + * and a LineTerminator occurs between the operator and + * the preceding expression. Force the previous expr + * to terminate, in effect treating e.g. "a,b\n++" as + * "a,b;++" (= SyntaxError). + */ + return 0; + } + + return DUK__TOKEN_LBP_GET_BP(duk__token_lbp[tok]); /* format is bit packed */ +} + +/* + * Expression parsing. + * + * Upon entry to 'expr' and its variants, 'curr_tok' is assumed to be the + * first token of the expression. Upon exit, 'curr_tok' will be the first + * token not part of the expression (e.g. semicolon terminating an expression + * statement). + */ + +#define DUK__EXPR_RBP_MASK 0xff +#define DUK__EXPR_FLAG_REJECT_IN (1 << 8) /* reject 'in' token (used for for-in) */ +#define DUK__EXPR_FLAG_ALLOW_EMPTY (1 << 9) /* allow empty expression */ +#define DUK__EXPR_FLAG_REQUIRE_INIT (1 << 10) /* require initializer for var/const */ + +/* main expression parser function */ +DUK_LOCAL void duk__expr(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t rbp_flags) { + duk_hthread *thr = comp_ctx->thr; + duk_ivalue tmp_alloc; /* 'res' is used for "left", and 'tmp' for "right" */ + duk_ivalue *tmp = &tmp_alloc; + duk_small_uint_t rbp; + + DUK__RECURSION_INCREASE(comp_ctx, thr); + + duk_require_stack(thr, DUK__PARSE_EXPR_SLOTS); + + /* filter out flags from exprtop rbp_flags here to save space */ + rbp = rbp_flags & DUK__EXPR_RBP_MASK; + + DUK_DDD(DUK_DDDPRINT("duk__expr(), rbp_flags=%ld, rbp=%ld, allow_in=%ld, paren_level=%ld", + (long) rbp_flags, (long) rbp, (long) comp_ctx->curr_func.allow_in, + (long) comp_ctx->curr_func.paren_level)); + + duk_memzero(&tmp_alloc, sizeof(tmp_alloc)); + tmp->x1.valstack_idx = duk_get_top(thr); + tmp->x2.valstack_idx = tmp->x1.valstack_idx + 1; + duk_push_undefined(thr); + duk_push_undefined(thr); + + /* XXX: where to release temp regs in intermediate expressions? + * e.g. 1+2+3 -> don't inflate temp register count when parsing this. + * that particular expression temp regs can be forced here. + */ + + /* XXX: increase ctx->expr_tokens here for every consumed token + * (this would be a nice statistic)? + */ + + if (comp_ctx->curr_token.t == DUK_TOK_SEMICOLON || comp_ctx->curr_token.t == DUK_TOK_RPAREN) { + /* XXX: possibly incorrect handling of empty expression */ + DUK_DDD(DUK_DDDPRINT("empty expression")); + if (!(rbp_flags & DUK__EXPR_FLAG_ALLOW_EMPTY)) { + DUK_ERROR_SYNTAX(thr, DUK_STR_EMPTY_EXPR_NOT_ALLOWED); + DUK_WO_NORETURN(return;); + } + duk_push_undefined(thr); + duk__ivalue_plain_fromstack(comp_ctx, res); + goto cleanup; + } + + duk__advance(comp_ctx); + duk__expr_nud(comp_ctx, res); /* reuse 'res' as 'left' */ + while (rbp < duk__expr_lbp(comp_ctx)) { + duk__advance(comp_ctx); + duk__expr_led(comp_ctx, res, tmp); + duk__copy_ivalue(comp_ctx, tmp, res); /* tmp -> res */ + } + + cleanup: + /* final result is already in 'res' */ + + duk_pop_2(thr); + + DUK__RECURSION_DECREASE(comp_ctx, thr); +} + +DUK_LOCAL void duk__exprtop(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t rbp_flags) { + duk_hthread *thr = comp_ctx->thr; + + /* Note: these variables must reside in 'curr_func' instead of the global + * context: when parsing function expressions, expression parsing is nested. + */ + comp_ctx->curr_func.nud_count = 0; + comp_ctx->curr_func.led_count = 0; + comp_ctx->curr_func.paren_level = 0; + comp_ctx->curr_func.expr_lhs = 1; + comp_ctx->curr_func.allow_in = (rbp_flags & DUK__EXPR_FLAG_REJECT_IN ? 0 : 1); + + duk__expr(comp_ctx, res, rbp_flags); + + if (!(rbp_flags & DUK__EXPR_FLAG_ALLOW_EMPTY) && duk__expr_is_empty(comp_ctx)) { + DUK_ERROR_SYNTAX(thr, DUK_STR_EMPTY_EXPR_NOT_ALLOWED); + DUK_WO_NORETURN(return;); + } +} + +/* A bunch of helpers (for size optimization) that combine duk__expr()/duk__exprtop() + * and result conversions. + * + * Each helper needs at least 2-3 calls to make it worth while to wrap. + */ + +#if 0 /* unused */ +DUK_LOCAL duk_regconst_t duk__expr_toreg(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t rbp_flags) { + duk__expr(comp_ctx, res, rbp_flags); + return duk__ivalue_toreg(comp_ctx, res); +} +#endif + +#if 0 /* unused */ +DUK_LOCAL duk_regconst_t duk__expr_totemp(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t rbp_flags) { + duk__expr(comp_ctx, res, rbp_flags); + return duk__ivalue_totemp(comp_ctx, res); +} +#endif + +DUK_LOCAL void duk__expr_toforcedreg(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t rbp_flags, duk_regconst_t forced_reg) { + DUK_ASSERT(forced_reg >= 0); + duk__expr(comp_ctx, res, rbp_flags); + duk__ivalue_toforcedreg(comp_ctx, res, forced_reg); +} + +DUK_LOCAL duk_regconst_t duk__expr_toregconst(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t rbp_flags) { + duk__expr(comp_ctx, res, rbp_flags); + return duk__ivalue_toregconst(comp_ctx, res); +} + +#if 0 /* unused */ +DUK_LOCAL duk_regconst_t duk__expr_totempconst(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t rbp_flags) { + duk__expr(comp_ctx, res, rbp_flags); + return duk__ivalue_totempconst(comp_ctx, res); +} +#endif + +DUK_LOCAL void duk__expr_toplain(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t rbp_flags) { + duk__expr(comp_ctx, res, rbp_flags); + duk__ivalue_toplain(comp_ctx, res); +} + +DUK_LOCAL void duk__expr_toplain_ignore(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t rbp_flags) { + duk__expr(comp_ctx, res, rbp_flags); + duk__ivalue_toplain_ignore(comp_ctx, res); +} + +DUK_LOCAL duk_regconst_t duk__exprtop_toreg(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t rbp_flags) { + duk__exprtop(comp_ctx, res, rbp_flags); + return duk__ivalue_toreg(comp_ctx, res); +} + +#if 0 /* unused */ +DUK_LOCAL duk_regconst_t duk__exprtop_totemp(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t rbp_flags) { + duk__exprtop(comp_ctx, res, rbp_flags); + return duk__ivalue_totemp(comp_ctx, res); +} +#endif + +DUK_LOCAL void duk__exprtop_toforcedreg(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t rbp_flags, duk_regconst_t forced_reg) { + DUK_ASSERT(forced_reg >= 0); + duk__exprtop(comp_ctx, res, rbp_flags); + duk__ivalue_toforcedreg(comp_ctx, res, forced_reg); +} + +DUK_LOCAL duk_regconst_t duk__exprtop_toregconst(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t rbp_flags) { + duk__exprtop(comp_ctx, res, rbp_flags); + return duk__ivalue_toregconst(comp_ctx, res); +} + +#if 0 /* unused */ +DUK_LOCAL void duk__exprtop_toplain_ignore(duk_compiler_ctx *comp_ctx, duk_ivalue *res, int rbp_flags) { + duk__exprtop(comp_ctx, res, rbp_flags); + duk__ivalue_toplain_ignore(comp_ctx, res); +} +#endif + +/* + * Parse an individual source element (top level statement) or a statement. + * + * Handles labeled statements automatically (peeling away labels before + * parsing an expression that follows the label(s)). + * + * Upon entry, 'curr_tok' contains the first token of the statement (parsed + * in "allow regexp literal" mode). Upon exit, 'curr_tok' contains the first + * token following the statement (if the statement has a terminator, this is + * the token after the terminator). + */ + +#define DUK__HAS_VAL (1 << 0) /* stmt has non-empty value */ +#define DUK__HAS_TERM (1 << 1) /* stmt has explicit/implicit semicolon terminator */ +#define DUK__ALLOW_AUTO_SEMI_ALWAYS (1 << 2) /* allow automatic semicolon even without lineterm (compatibility) */ +#define DUK__STILL_PROLOGUE (1 << 3) /* statement does not terminate directive prologue */ +#define DUK__IS_TERMINAL (1 << 4) /* statement is guaranteed to be terminal (control doesn't flow to next statement) */ + +/* Parse a single variable declaration (e.g. "i" or "i=10"). A leading 'var' + * has already been eaten. These is no return value in 'res', it is used only + * as a temporary. + * + * When called from 'for-in' statement parser, the initializer expression must + * not allow the 'in' token. The caller supply additional expression parsing + * flags (like DUK__EXPR_FLAG_REJECT_IN) in 'expr_flags'. + * + * Finally, out_rc_varname and out_reg_varbind are updated to reflect where + * the identifier is bound: + * + * If register bound: out_reg_varbind >= 0, out_rc_varname == 0 (ignore) + * If not register bound: out_reg_varbind < 0, out_rc_varname >= 0 + * + * These allow the caller to use the variable for further assignment, e.g. + * as is done in 'for-in' parsing. + */ + +DUK_LOCAL void duk__parse_var_decl(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t expr_flags, duk_regconst_t *out_reg_varbind, duk_regconst_t *out_rc_varname) { + duk_hthread *thr = comp_ctx->thr; + duk_hstring *h_varname; + duk_regconst_t reg_varbind; + duk_regconst_t rc_varname; + + /* assume 'var' has been eaten */ + + /* Note: Identifier rejects reserved words */ + if (comp_ctx->curr_token.t != DUK_TOK_IDENTIFIER) { + goto syntax_error; + } + h_varname = comp_ctx->curr_token.str1; + + DUK_ASSERT(h_varname != NULL); + + /* strict mode restrictions (E5 Section 12.2.1) */ + if (duk__hstring_is_eval_or_arguments_in_strict_mode(comp_ctx, h_varname)) { + goto syntax_error; + } + + /* register declarations in first pass */ + if (comp_ctx->curr_func.in_scanning) { + duk_uarridx_t n; + DUK_DDD(DUK_DDDPRINT("register variable declaration %!O in pass 1", + (duk_heaphdr *) h_varname)); + n = (duk_uarridx_t) duk_get_length(thr, comp_ctx->curr_func.decls_idx); + duk_push_hstring(thr, h_varname); + duk_put_prop_index(thr, comp_ctx->curr_func.decls_idx, n); + duk_push_int(thr, DUK_DECL_TYPE_VAR + (0 << 8)); + duk_put_prop_index(thr, comp_ctx->curr_func.decls_idx, n + 1); + } + + duk_push_hstring(thr, h_varname); /* push before advancing to keep reachable */ + + /* register binding lookup is based on varmap (even in first pass) */ + duk_dup_top(thr); + (void) duk__lookup_lhs(comp_ctx, ®_varbind, &rc_varname); + + duk__advance(comp_ctx); /* eat identifier */ + + if (comp_ctx->curr_token.t == DUK_TOK_EQUALSIGN) { + duk__advance(comp_ctx); + + DUK_DDD(DUK_DDDPRINT("vardecl, assign to '%!O' -> reg_varbind=%ld, rc_varname=%ld", + (duk_heaphdr *) h_varname, (long) reg_varbind, (long) rc_varname)); + + duk__exprtop(comp_ctx, res, DUK__BP_COMMA | expr_flags /*rbp_flags*/); /* AssignmentExpression */ + + if (reg_varbind >= 0) { + duk__ivalue_toforcedreg(comp_ctx, res, reg_varbind); + } else { + duk_regconst_t reg_val; + reg_val = duk__ivalue_toreg(comp_ctx, res); + duk__emit_a_bc(comp_ctx, + DUK_OP_PUTVAR | DUK__EMIT_FLAG_A_IS_SOURCE, + reg_val, + rc_varname); + } + } else { + if (expr_flags & DUK__EXPR_FLAG_REQUIRE_INIT) { + /* Used for minimal 'const': initializer required. */ + goto syntax_error; + } + } + + duk_pop(thr); /* pop varname */ + + *out_rc_varname = rc_varname; + *out_reg_varbind = reg_varbind; + + return; + + syntax_error: + DUK_ERROR_SYNTAX(thr, DUK_STR_INVALID_VAR_DECLARATION); + DUK_WO_NORETURN(return;); +} + +DUK_LOCAL void duk__parse_var_stmt(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_small_uint_t expr_flags) { + duk_regconst_t reg_varbind; + duk_regconst_t rc_varname; + + duk__advance(comp_ctx); /* eat 'var' */ + + for (;;) { + /* rc_varname and reg_varbind are ignored here */ + duk__parse_var_decl(comp_ctx, res, 0 | expr_flags, ®_varbind, &rc_varname); + + if (comp_ctx->curr_token.t != DUK_TOK_COMMA) { + break; + } + duk__advance(comp_ctx); + } +} + +DUK_LOCAL void duk__parse_for_stmt(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_int_t pc_label_site) { + duk_hthread *thr = comp_ctx->thr; + duk_int_t pc_v34_lhs; /* start variant 3/4 left-hand-side code (L1 in doc/compiler.rst example) */ + duk_regconst_t temp_reset; /* knock back "next temp" to this whenever possible */ + duk_regconst_t reg_temps; /* preallocated temporaries (2) for variants 3 and 4 */ + + DUK_DDD(DUK_DDDPRINT("start parsing a for/for-in statement")); + + /* Two temporaries are preallocated here for variants 3 and 4 which need + * registers which are never clobbered by expressions in the loop + * (concretely: for the enumerator object and the next enumerated value). + * Variants 1 and 2 "release" these temps. + */ + + reg_temps = DUK__ALLOCTEMPS(comp_ctx, 2); + + temp_reset = DUK__GETTEMP(comp_ctx); + + /* + * For/for-in main variants are: + * + * 1. for (ExpressionNoIn_opt; Expression_opt; Expression_opt) Statement + * 2. for (var VariableDeclarationNoIn; Expression_opt; Expression_opt) Statement + * 3. for (LeftHandSideExpression in Expression) Statement + * 4. for (var VariableDeclarationNoIn in Expression) Statement + * + * Parsing these without arbitrary lookahead or backtracking is relatively + * tricky but we manage to do so for now. + * + * See doc/compiler.rst for a detailed discussion of control flow + * issues, evaluation order issues, etc. + */ + + duk__advance(comp_ctx); /* eat 'for' */ + duk__advance_expect(comp_ctx, DUK_TOK_LPAREN); + + DUK_DDD(DUK_DDDPRINT("detecting for/for-in loop variant, pc=%ld", (long) duk__get_current_pc(comp_ctx))); + + /* a label site has been emitted by duk__parse_stmt() automatically + * (it will also emit the ENDLABEL). + */ + + if (comp_ctx->curr_token.t == DUK_TOK_VAR) { + /* + * Variant 2 or 4 + */ + + duk_regconst_t reg_varbind; /* variable binding register if register-bound (otherwise < 0) */ + duk_regconst_t rc_varname; /* variable name reg/const, if variable not register-bound */ + + duk__advance(comp_ctx); /* eat 'var' */ + duk__parse_var_decl(comp_ctx, res, DUK__EXPR_FLAG_REJECT_IN, ®_varbind, &rc_varname); + DUK__SETTEMP(comp_ctx, temp_reset); + + if (comp_ctx->curr_token.t == DUK_TOK_IN) { + /* + * Variant 4 + */ + + DUK_DDD(DUK_DDDPRINT("detected for variant 4: for (var VariableDeclarationNoIn in Expression) Statement")); + pc_v34_lhs = duk__get_current_pc(comp_ctx); /* jump is inserted here */ + if (reg_varbind >= 0) { + duk__emit_a_bc(comp_ctx, + DUK_OP_LDREG, + reg_varbind, + reg_temps + 0); + } else { + duk__emit_a_bc(comp_ctx, + DUK_OP_PUTVAR | DUK__EMIT_FLAG_A_IS_SOURCE, + reg_temps + 0, + rc_varname); + } + goto parse_3_or_4; + } else { + /* + * Variant 2 + */ + + DUK_DDD(DUK_DDDPRINT("detected for variant 2: for (var VariableDeclarationNoIn; Expression_opt; Expression_opt) Statement")); + for (;;) { + /* more initializers */ + if (comp_ctx->curr_token.t != DUK_TOK_COMMA) { + break; + } + DUK_DDD(DUK_DDDPRINT("variant 2 has another variable initializer")); + + duk__advance(comp_ctx); /* eat comma */ + duk__parse_var_decl(comp_ctx, res, DUK__EXPR_FLAG_REJECT_IN, ®_varbind, &rc_varname); + } + goto parse_1_or_2; + } + } else { + /* + * Variant 1 or 3 + */ + + pc_v34_lhs = duk__get_current_pc(comp_ctx); /* jump is inserted here (variant 3) */ + + /* Note that duk__exprtop() here can clobber any reg above current temp_next, + * so any loop variables (e.g. enumerator) must be "preallocated". + */ + + /* don't coerce yet to a plain value (variant 3 needs special handling) */ + duk__exprtop(comp_ctx, res, DUK__BP_FOR_EXPR | DUK__EXPR_FLAG_REJECT_IN | DUK__EXPR_FLAG_ALLOW_EMPTY /*rbp_flags*/); /* Expression */ + if (comp_ctx->curr_token.t == DUK_TOK_IN) { + /* + * Variant 3 + */ + + /* XXX: need to determine LHS type, and check that it is LHS compatible */ + DUK_DDD(DUK_DDDPRINT("detected for variant 3: for (LeftHandSideExpression in Expression) Statement")); + if (duk__expr_is_empty(comp_ctx)) { + goto syntax_error; /* LeftHandSideExpression does not allow empty expression */ + } + + if (res->t == DUK_IVAL_VAR) { + duk_regconst_t reg_varbind; + duk_regconst_t rc_varname; + + duk_dup(thr, res->x1.valstack_idx); + if (duk__lookup_lhs(comp_ctx, ®_varbind, &rc_varname)) { + duk__emit_a_bc(comp_ctx, + DUK_OP_LDREG, + reg_varbind, + reg_temps + 0); + } else { + duk__emit_a_bc(comp_ctx, + DUK_OP_PUTVAR | DUK__EMIT_FLAG_A_IS_SOURCE, + reg_temps + 0, + rc_varname); + } + } else if (res->t == DUK_IVAL_PROP) { + /* Don't allow a constant for the object (even for a number etc), as + * it goes into the 'A' field of the opcode. + */ + duk_regconst_t reg_obj; + duk_regconst_t rc_key; + reg_obj = duk__ispec_toregconst_raw(comp_ctx, &res->x1, -1 /*forced_reg*/, 0 /*flags*/); /* don't allow const */ + rc_key = duk__ispec_toregconst_raw(comp_ctx, &res->x2, -1 /*forced_reg*/, DUK__IVAL_FLAG_ALLOW_CONST /*flags*/); + duk__emit_a_b_c(comp_ctx, + DUK_OP_PUTPROP | DUK__EMIT_FLAG_A_IS_SOURCE | DUK__EMIT_FLAG_BC_REGCONST, + reg_obj, + rc_key, + reg_temps + 0); + } else { + duk__ivalue_toplain_ignore(comp_ctx, res); /* just in case */ + duk__emit_op_only(comp_ctx, + DUK_OP_INVLHS); + } + goto parse_3_or_4; + } else { + /* + * Variant 1 + */ + + DUK_DDD(DUK_DDDPRINT("detected for variant 1: for (ExpressionNoIn_opt; Expression_opt; Expression_opt) Statement")); + duk__ivalue_toplain_ignore(comp_ctx, res); + goto parse_1_or_2; + } + } + + parse_1_or_2: + /* + * Parse variant 1 or 2. The first part expression (which differs + * in the variants) has already been parsed and its code emitted. + * + * reg_temps + 0: unused + * reg_temps + 1: unused + */ + { + duk_regconst_t rc_cond; + duk_int_t pc_l1, pc_l2, pc_l3, pc_l4; + duk_int_t pc_jumpto_l3, pc_jumpto_l4; + duk_bool_t expr_c_empty; + + DUK_DDD(DUK_DDDPRINT("shared code for parsing variants 1 and 2")); + + /* "release" preallocated temps since we won't need them */ + temp_reset = reg_temps + 0; + DUK__SETTEMP(comp_ctx, temp_reset); + + duk__advance_expect(comp_ctx, DUK_TOK_SEMICOLON); + + pc_l1 = duk__get_current_pc(comp_ctx); + duk__exprtop(comp_ctx, res, DUK__BP_FOR_EXPR | DUK__EXPR_FLAG_ALLOW_EMPTY /*rbp_flags*/); /* Expression_opt */ + if (duk__expr_is_empty(comp_ctx)) { + /* no need to coerce */ + pc_jumpto_l3 = duk__emit_jump_empty(comp_ctx); /* to body */ + pc_jumpto_l4 = -1; /* omitted */ + } else { + rc_cond = duk__ivalue_toregconst(comp_ctx, res); + duk__emit_if_false_skip(comp_ctx, rc_cond); + pc_jumpto_l3 = duk__emit_jump_empty(comp_ctx); /* to body */ + pc_jumpto_l4 = duk__emit_jump_empty(comp_ctx); /* to exit */ + } + DUK__SETTEMP(comp_ctx, temp_reset); + + duk__advance_expect(comp_ctx, DUK_TOK_SEMICOLON); + + pc_l2 = duk__get_current_pc(comp_ctx); + duk__exprtop(comp_ctx, res, DUK__BP_FOR_EXPR | DUK__EXPR_FLAG_ALLOW_EMPTY /*rbp_flags*/); /* Expression_opt */ + if (duk__expr_is_empty(comp_ctx)) { + /* no need to coerce */ + expr_c_empty = 1; + /* JUMP L1 omitted */ + } else { + duk__ivalue_toplain_ignore(comp_ctx, res); + expr_c_empty = 0; + duk__emit_jump(comp_ctx, pc_l1); + } + DUK__SETTEMP(comp_ctx, temp_reset); + + comp_ctx->curr_func.allow_regexp_in_adv = 1; + duk__advance_expect(comp_ctx, DUK_TOK_RPAREN); /* Allow RegExp as part of next stmt. */ + + pc_l3 = duk__get_current_pc(comp_ctx); + duk__parse_stmt(comp_ctx, res, 0 /*allow_source_elem*/); + if (expr_c_empty) { + duk__emit_jump(comp_ctx, pc_l1); + } else { + duk__emit_jump(comp_ctx, pc_l2); + } + /* temp reset is not necessary after duk__parse_stmt(), which already does it */ + + pc_l4 = duk__get_current_pc(comp_ctx); + + DUK_DDD(DUK_DDDPRINT("patching jumps: jumpto_l3: %ld->%ld, jumpto_l4: %ld->%ld, " + "break: %ld->%ld, continue: %ld->%ld", + (long) pc_jumpto_l3, (long) pc_l3, (long) pc_jumpto_l4, (long) pc_l4, + (long) (pc_label_site + 1), (long) pc_l4, (long) (pc_label_site + 2), (long) pc_l2)); + + duk__patch_jump(comp_ctx, pc_jumpto_l3, pc_l3); + duk__patch_jump(comp_ctx, pc_jumpto_l4, pc_l4); + duk__patch_jump(comp_ctx, + pc_label_site + 1, + pc_l4); /* break jump */ + duk__patch_jump(comp_ctx, + pc_label_site + 2, + expr_c_empty ? pc_l1 : pc_l2); /* continue jump */ + } + goto finished; + + parse_3_or_4: + /* + * Parse variant 3 or 4. + * + * For variant 3 (e.g. "for (A in C) D;") the code for A (except the + * final property/variable write) has already been emitted. The first + * instruction of that code is at pc_v34_lhs; a JUMP needs to be inserted + * there to satisfy control flow needs. + * + * For variant 4, if the variable declaration had an initializer + * (e.g. "for (var A = B in C) D;") the code for the assignment + * (B) has already been emitted. + * + * Variables set before entering here: + * + * pc_v34_lhs: insert a "JUMP L2" here (see doc/compiler.rst example). + * reg_temps + 0: iteration target value (written to LHS) + * reg_temps + 1: enumerator object + */ + { + duk_int_t pc_l1, pc_l2, pc_l3, pc_l4, pc_l5; + duk_int_t pc_jumpto_l2, pc_jumpto_l3, pc_jumpto_l4, pc_jumpto_l5; + duk_regconst_t reg_target; + + DUK_DDD(DUK_DDDPRINT("shared code for parsing variants 3 and 4, pc_v34_lhs=%ld", (long) pc_v34_lhs)); + + DUK__SETTEMP(comp_ctx, temp_reset); + + /* First we need to insert a jump in the middle of previously + * emitted code to get the control flow right. No jumps can + * cross the position where the jump is inserted. See doc/compiler.rst + * for discussion on the intricacies of control flow and side effects + * for variants 3 and 4. + */ + + duk__insert_jump_entry(comp_ctx, pc_v34_lhs); + pc_jumpto_l2 = pc_v34_lhs; /* inserted jump */ + pc_l1 = pc_v34_lhs + 1; /* +1, right after inserted jump */ + + /* The code for writing reg_temps + 0 to the left hand side has already + * been emitted. + */ + + pc_jumpto_l3 = duk__emit_jump_empty(comp_ctx); /* -> loop body */ + + duk__advance(comp_ctx); /* eat 'in' */ + + /* Parse enumeration target and initialize enumerator. For 'null' and 'undefined', + * INITENUM will creates a 'null' enumerator which works like an empty enumerator + * (E5 Section 12.6.4, step 3). Note that INITENUM requires the value to be in a + * register (constant not allowed). + */ + + pc_l2 = duk__get_current_pc(comp_ctx); + reg_target = duk__exprtop_toreg(comp_ctx, res, DUK__BP_FOR_EXPR /*rbp_flags*/); /* Expression */ + duk__emit_b_c(comp_ctx, + DUK_OP_INITENUM | DUK__EMIT_FLAG_B_IS_TARGET, + reg_temps + 1, + reg_target); + pc_jumpto_l4 = duk__emit_jump_empty(comp_ctx); + DUK__SETTEMP(comp_ctx, temp_reset); + + comp_ctx->curr_func.allow_regexp_in_adv = 1; + duk__advance_expect(comp_ctx, DUK_TOK_RPAREN); /* Allow RegExp as part of next stmt. */ + + pc_l3 = duk__get_current_pc(comp_ctx); + duk__parse_stmt(comp_ctx, res, 0 /*allow_source_elem*/); + /* temp reset is not necessary after duk__parse_stmt(), which already does it */ + + /* NEXTENUM needs a jump slot right after the main opcode. + * We need the code emitter to reserve the slot: if there's + * target shuffling, the target shuffle opcodes must happen + * after the jump slot (for NEXTENUM the shuffle opcodes are + * not needed if the enum is finished). + */ + pc_l4 = duk__get_current_pc(comp_ctx); + duk__emit_b_c(comp_ctx, + DUK_OP_NEXTENUM | DUK__EMIT_FLAG_B_IS_TARGET | DUK__EMIT_FLAG_RESERVE_JUMPSLOT, + reg_temps + 0, + reg_temps + 1); + pc_jumpto_l5 = comp_ctx->emit_jumpslot_pc; /* NEXTENUM jump slot: executed when enum finished */ + duk__emit_jump(comp_ctx, pc_l1); /* jump to next loop, using reg_v34_iter as iterated value */ + + pc_l5 = duk__get_current_pc(comp_ctx); + + /* XXX: since the enumerator may be a memory expensive object, + * perhaps clear it explicitly here? If so, break jump must + * go through this clearing operation. + */ + + DUK_DDD(DUK_DDDPRINT("patching jumps: jumpto_l2: %ld->%ld, jumpto_l3: %ld->%ld, " + "jumpto_l4: %ld->%ld, jumpto_l5: %ld->%ld, " + "break: %ld->%ld, continue: %ld->%ld", + (long) pc_jumpto_l2, (long) pc_l2, (long) pc_jumpto_l3, (long) pc_l3, + (long) pc_jumpto_l4, (long) pc_l4, (long) pc_jumpto_l5, (long) pc_l5, + (long) (pc_label_site + 1), (long) pc_l5, (long) (pc_label_site + 2), (long) pc_l4)); + + duk__patch_jump(comp_ctx, pc_jumpto_l2, pc_l2); + duk__patch_jump(comp_ctx, pc_jumpto_l3, pc_l3); + duk__patch_jump(comp_ctx, pc_jumpto_l4, pc_l4); + duk__patch_jump(comp_ctx, pc_jumpto_l5, pc_l5); + duk__patch_jump(comp_ctx, pc_label_site + 1, pc_l5); /* break jump */ + duk__patch_jump(comp_ctx, pc_label_site + 2, pc_l4); /* continue jump */ + } + goto finished; + + finished: + DUK_DDD(DUK_DDDPRINT("end parsing a for/for-in statement")); + return; + + syntax_error: + DUK_ERROR_SYNTAX(thr, DUK_STR_INVALID_FOR); + DUK_WO_NORETURN(return;); +} + +DUK_LOCAL void duk__parse_switch_stmt(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_int_t pc_label_site) { + duk_hthread *thr = comp_ctx->thr; + duk_regconst_t temp_at_loop; + duk_regconst_t rc_switch; /* reg/const for switch value */ + duk_regconst_t rc_case; /* reg/const for case value */ + duk_regconst_t reg_temp; /* general temp register */ + duk_int_t pc_prevcase = -1; + duk_int_t pc_prevstmt = -1; + duk_int_t pc_default = -1; /* -1 == not set, -2 == pending (next statement list) */ + + /* Note: negative pc values are ignored when patching jumps, so no explicit checks needed */ + + /* + * Switch is pretty complicated because of several conflicting concerns: + * + * - Want to generate code without an intermediate representation, + * i.e., in one go + * + * - Case selectors are expressions, not values, and may thus e.g. throw + * exceptions (which causes evaluation order concerns) + * + * - Evaluation semantics of case selectors and default clause need to be + * carefully implemented to provide correct behavior even with case value + * side effects + * + * - Fall through case and default clauses; avoiding dead JUMPs if case + * ends with an unconditional jump (a break or a continue) + * + * - The same case value may occur multiple times, but evaluation rules + * only process the first match before switching to a "propagation" mode + * where case values are no longer evaluated + * + * See E5 Section 12.11. Also see doc/compiler.rst for compilation + * discussion. + */ + + duk__advance(comp_ctx); + duk__advance_expect(comp_ctx, DUK_TOK_LPAREN); + rc_switch = duk__exprtop_toregconst(comp_ctx, res, DUK__BP_FOR_EXPR /*rbp_flags*/); + duk__advance_expect(comp_ctx, DUK_TOK_RPAREN); /* RegExp mode does not matter. */ + duk__advance_expect(comp_ctx, DUK_TOK_LCURLY); + + DUK_DDD(DUK_DDDPRINT("switch value in register %ld", (long) rc_switch)); + + temp_at_loop = DUK__GETTEMP(comp_ctx); + + for (;;) { + duk_int_t num_stmts; + duk_small_uint_t tok; + + /* sufficient for keeping temp reg numbers in check */ + DUK__SETTEMP(comp_ctx, temp_at_loop); + + if (comp_ctx->curr_token.t == DUK_TOK_RCURLY) { + break; + } + + /* + * Parse a case or default clause. + */ + + if (comp_ctx->curr_token.t == DUK_TOK_CASE) { + /* + * Case clause. + * + * Note: cannot use reg_case as a temp register (for SEQ target) + * because it may be a constant. + */ + + duk__patch_jump_here(comp_ctx, pc_prevcase); /* chain jumps for case + * evaluation and checking + */ + + duk__advance(comp_ctx); + rc_case = duk__exprtop_toregconst(comp_ctx, res, DUK__BP_FOR_EXPR /*rbp_flags*/); + duk__advance_expect(comp_ctx, DUK_TOK_COLON); + + reg_temp = DUK__ALLOCTEMP(comp_ctx); + duk__emit_a_b_c(comp_ctx, + DUK_OP_SEQ | DUK__EMIT_FLAG_BC_REGCONST, + reg_temp, + rc_switch, + rc_case); + duk__emit_if_true_skip(comp_ctx, reg_temp); + + /* jump to next case clause */ + pc_prevcase = duk__emit_jump_empty(comp_ctx); /* no match, next case */ + + /* statements go here (if any) on next loop */ + } else if (comp_ctx->curr_token.t == DUK_TOK_DEFAULT) { + /* + * Default clause. + */ + + if (pc_default >= 0) { + goto syntax_error; + } + duk__advance(comp_ctx); + duk__advance_expect(comp_ctx, DUK_TOK_COLON); + + /* Fix for https://github.com/svaarala/duktape/issues/155: + * If 'default' is first clause (detected by pc_prevcase < 0) + * we need to ensure we stay in the matching chain. + */ + if (pc_prevcase < 0) { + DUK_DD(DUK_DDPRINT("default clause is first, emit prevcase jump")); + pc_prevcase = duk__emit_jump_empty(comp_ctx); + } + + /* default clause matches next statement list (if any) */ + pc_default = -2; + } else { + /* Code is not accepted before the first case/default clause */ + goto syntax_error; + } + + /* + * Parse code after the clause. Possible terminators are + * 'case', 'default', and '}'. + * + * Note that there may be no code at all, not even an empty statement, + * between case clauses. This must be handled just like an empty statement + * (omitting seemingly pointless JUMPs), to avoid situations like + * test-bug-case-fallthrough.js. + */ + + num_stmts = 0; + if (pc_default == -2) { + pc_default = duk__get_current_pc(comp_ctx); + } + + /* Note: this is correct even for default clause statements: + * they participate in 'fall-through' behavior even if the + * default clause is in the middle. + */ + duk__patch_jump_here(comp_ctx, pc_prevstmt); /* chain jumps for 'fall-through' + * after a case matches. + */ + + for (;;) { + tok = comp_ctx->curr_token.t; + if (tok == DUK_TOK_CASE || tok == DUK_TOK_DEFAULT || + tok == DUK_TOK_RCURLY) { + break; + } + num_stmts++; + duk__parse_stmt(comp_ctx, res, 0 /*allow_source_elem*/); + } + + /* fall-through jump to next code of next case (backpatched) */ + pc_prevstmt = duk__emit_jump_empty(comp_ctx); + + /* XXX: would be nice to omit this jump when the jump is not + * reachable, at least in the obvious cases (such as the case + * ending with a 'break'. + * + * Perhaps duk__parse_stmt() could provide some info on whether + * the statement is a "dead end"? + * + * If implemented, just set pc_prevstmt to -1 when not needed. + */ + } + + DUK_ASSERT(comp_ctx->curr_token.t == DUK_TOK_RCURLY); + comp_ctx->curr_func.allow_regexp_in_adv = 1; + duk__advance(comp_ctx); /* Allow RegExp as part of next stmt. */ + + /* default case control flow patchup; note that if pc_prevcase < 0 + * (i.e. no case clauses), control enters default case automatically. + */ + if (pc_default >= 0) { + /* default case exists: go there if no case matches */ + duk__patch_jump(comp_ctx, pc_prevcase, pc_default); + } else { + /* default case does not exist, or no statements present + * after default case: finish case evaluation + */ + duk__patch_jump_here(comp_ctx, pc_prevcase); + } + + /* fall-through control flow patchup; note that pc_prevstmt may be + * < 0 (i.e. no case clauses), in which case this is a no-op. + */ + duk__patch_jump_here(comp_ctx, pc_prevstmt); + + /* continue jump not patched, an INVALID opcode remains there */ + duk__patch_jump_here(comp_ctx, pc_label_site + 1); /* break jump */ + + /* Note: 'fast' breaks will jump to pc_label_site + 1, which will + * then jump here. The double jump will be eliminated by a + * peephole pass, resulting in an optimal jump here. The label + * site jumps will remain in bytecode and will waste code size. + */ + + return; + + syntax_error: + DUK_ERROR_SYNTAX(thr, DUK_STR_INVALID_SWITCH); + DUK_WO_NORETURN(return;); +} + +DUK_LOCAL void duk__parse_if_stmt(duk_compiler_ctx *comp_ctx, duk_ivalue *res) { + duk_regconst_t temp_reset; + duk_regconst_t rc_cond; + duk_int_t pc_jump_false; + + DUK_DDD(DUK_DDDPRINT("begin parsing if statement")); + + temp_reset = DUK__GETTEMP(comp_ctx); + + duk__advance(comp_ctx); /* eat 'if' */ + duk__advance_expect(comp_ctx, DUK_TOK_LPAREN); + + rc_cond = duk__exprtop_toregconst(comp_ctx, res, DUK__BP_FOR_EXPR /*rbp_flags*/); + duk__emit_if_true_skip(comp_ctx, rc_cond); + pc_jump_false = duk__emit_jump_empty(comp_ctx); /* jump to end or else part */ + DUK__SETTEMP(comp_ctx, temp_reset); + + comp_ctx->curr_func.allow_regexp_in_adv = 1; + duk__advance_expect(comp_ctx, DUK_TOK_RPAREN); /* Allow RegExp as part of next stmt. */ + + duk__parse_stmt(comp_ctx, res, 0 /*allow_source_elem*/); + + /* The 'else' ambiguity is resolved by 'else' binding to the innermost + * construct, so greedy matching is correct here. + */ + + if (comp_ctx->curr_token.t == DUK_TOK_ELSE) { + duk_int_t pc_jump_end; + + DUK_DDD(DUK_DDDPRINT("if has else part")); + + duk__advance(comp_ctx); + + pc_jump_end = duk__emit_jump_empty(comp_ctx); /* jump from true part to end */ + duk__patch_jump_here(comp_ctx, pc_jump_false); + + duk__parse_stmt(comp_ctx, res, 0 /*allow_source_elem*/); + + duk__patch_jump_here(comp_ctx, pc_jump_end); + } else { + DUK_DDD(DUK_DDDPRINT("if does not have else part")); + + duk__patch_jump_here(comp_ctx, pc_jump_false); + } + + DUK_DDD(DUK_DDDPRINT("end parsing if statement")); +} + +DUK_LOCAL void duk__parse_do_stmt(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_int_t pc_label_site) { + duk_regconst_t rc_cond; + duk_int_t pc_start; + + DUK_DDD(DUK_DDDPRINT("begin parsing do statement")); + + duk__advance(comp_ctx); /* Eat 'do'; allow RegExp as part of next stmt. */ + + pc_start = duk__get_current_pc(comp_ctx); + duk__parse_stmt(comp_ctx, res, 0 /*allow_source_elem*/); + duk__patch_jump_here(comp_ctx, pc_label_site + 2); /* continue jump */ + + duk__advance_expect(comp_ctx, DUK_TOK_WHILE); + duk__advance_expect(comp_ctx, DUK_TOK_LPAREN); + + rc_cond = duk__exprtop_toregconst(comp_ctx, res, DUK__BP_FOR_EXPR /*rbp_flags*/); + duk__emit_if_false_skip(comp_ctx, rc_cond); + duk__emit_jump(comp_ctx, pc_start); + /* no need to reset temps, as we're finished emitting code */ + + comp_ctx->curr_func.allow_regexp_in_adv = 1; /* Allow RegExp as part of next stmt. */ + duk__advance_expect(comp_ctx, DUK_TOK_RPAREN); + + duk__patch_jump_here(comp_ctx, pc_label_site + 1); /* break jump */ + + DUK_DDD(DUK_DDDPRINT("end parsing do statement")); +} + +DUK_LOCAL void duk__parse_while_stmt(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_int_t pc_label_site) { + duk_regconst_t temp_reset; + duk_regconst_t rc_cond; + duk_int_t pc_start; + duk_int_t pc_jump_false; + + DUK_DDD(DUK_DDDPRINT("begin parsing while statement")); + + temp_reset = DUK__GETTEMP(comp_ctx); + + duk__advance(comp_ctx); /* eat 'while' */ + + duk__advance_expect(comp_ctx, DUK_TOK_LPAREN); + + pc_start = duk__get_current_pc(comp_ctx); + duk__patch_jump_here(comp_ctx, pc_label_site + 2); /* continue jump */ + + rc_cond = duk__exprtop_toregconst(comp_ctx, res, DUK__BP_FOR_EXPR /*rbp_flags*/); + duk__emit_if_true_skip(comp_ctx, rc_cond); + pc_jump_false = duk__emit_jump_empty(comp_ctx); + DUK__SETTEMP(comp_ctx, temp_reset); + + comp_ctx->curr_func.allow_regexp_in_adv = 1; + duk__advance_expect(comp_ctx, DUK_TOK_RPAREN); /* Allow RegExp as part of next stmt. */ + + duk__parse_stmt(comp_ctx, res, 0 /*allow_source_elem*/); + duk__emit_jump(comp_ctx, pc_start); + + duk__patch_jump_here(comp_ctx, pc_jump_false); + duk__patch_jump_here(comp_ctx, pc_label_site + 1); /* break jump */ + + DUK_DDD(DUK_DDDPRINT("end parsing while statement")); +} + +DUK_LOCAL void duk__parse_break_or_continue_stmt(duk_compiler_ctx *comp_ctx, duk_ivalue *res) { + duk_hthread *thr = comp_ctx->thr; + duk_bool_t is_break = (comp_ctx->curr_token.t == DUK_TOK_BREAK); + duk_int_t label_id; + duk_int_t label_catch_depth; + duk_int_t label_pc; /* points to LABEL; pc+1 = jump site for break; pc+2 = jump site for continue */ + duk_bool_t label_is_closest; + + DUK_UNREF(res); + + duk__advance(comp_ctx); /* eat 'break' or 'continue' */ + + if (comp_ctx->curr_token.t == DUK_TOK_SEMICOLON || /* explicit semi follows */ + comp_ctx->curr_token.lineterm || /* automatic semi will be inserted */ + comp_ctx->curr_token.allow_auto_semi) { /* automatic semi will be inserted */ + /* break/continue without label */ + + duk__lookup_active_label(comp_ctx, DUK_HTHREAD_STRING_EMPTY_STRING(thr), is_break, &label_id, &label_catch_depth, &label_pc, &label_is_closest); + } else if (comp_ctx->curr_token.t == DUK_TOK_IDENTIFIER) { + /* break/continue with label (label cannot be a reserved word, production is 'Identifier' */ + DUK_ASSERT(comp_ctx->curr_token.str1 != NULL); + duk__lookup_active_label(comp_ctx, comp_ctx->curr_token.str1, is_break, &label_id, &label_catch_depth, &label_pc, &label_is_closest); + duk__advance(comp_ctx); + } else { + DUK_ERROR_SYNTAX(thr, DUK_STR_INVALID_BREAK_CONT_LABEL); + DUK_WO_NORETURN(return;); + } + + /* Use a fast break/continue when possible. A fast break/continue is + * just a jump to the LABEL break/continue jump slot, which then jumps + * to an appropriate place (for break, going through ENDLABEL correctly). + * The peephole optimizer will optimize the jump to a direct one. + */ + + if (label_catch_depth == comp_ctx->curr_func.catch_depth && + label_is_closest) { + DUK_DDD(DUK_DDDPRINT("break/continue: is_break=%ld, label_id=%ld, label_is_closest=%ld, " + "label_catch_depth=%ld, catch_depth=%ld " + "-> use fast variant (direct jump)", + (long) is_break, (long) label_id, (long) label_is_closest, + (long) label_catch_depth, (long) comp_ctx->curr_func.catch_depth)); + + duk__emit_jump(comp_ctx, label_pc + (is_break ? 1 : 2)); + } else { + DUK_DDD(DUK_DDDPRINT("break/continue: is_break=%ld, label_id=%ld, label_is_closest=%ld, " + "label_catch_depth=%ld, catch_depth=%ld " + "-> use slow variant (longjmp)", + (long) is_break, (long) label_id, (long) label_is_closest, + (long) label_catch_depth, (long) comp_ctx->curr_func.catch_depth)); + + duk__emit_bc(comp_ctx, + is_break ? DUK_OP_BREAK : DUK_OP_CONTINUE, + (duk_regconst_t) label_id); + } +} + +DUK_LOCAL void duk__parse_return_stmt(duk_compiler_ctx *comp_ctx, duk_ivalue *res) { + duk_hthread *thr = comp_ctx->thr; + duk_regconst_t rc_val; + + duk__advance(comp_ctx); /* eat 'return' */ + + /* A 'return' statement is only allowed inside an actual function body, + * not as part of eval or global code. + */ + if (!comp_ctx->curr_func.is_function) { + DUK_ERROR_SYNTAX(thr, DUK_STR_INVALID_RETURN); + DUK_WO_NORETURN(return;); + } + + if (comp_ctx->curr_token.t == DUK_TOK_SEMICOLON || /* explicit semi follows */ + comp_ctx->curr_token.lineterm || /* automatic semi will be inserted */ + comp_ctx->curr_token.allow_auto_semi) { /* automatic semi will be inserted */ + DUK_DDD(DUK_DDDPRINT("empty return value -> undefined")); + duk__emit_op_only(comp_ctx, DUK_OP_RETUNDEF); + } else { + duk_int_t pc_before_expr; + duk_int_t pc_after_expr; + + DUK_DDD(DUK_DDDPRINT("return with a value")); + + DUK_UNREF(pc_before_expr); + DUK_UNREF(pc_after_expr); + + pc_before_expr = duk__get_current_pc(comp_ctx); + rc_val = duk__exprtop_toregconst(comp_ctx, res, DUK__BP_FOR_EXPR /*rbp_flags*/); + pc_after_expr = duk__get_current_pc(comp_ctx); + + /* Tail call check: if last opcode emitted was CALL, and + * the context allows it, add a tailcall flag to the CALL. + * This doesn't guarantee that a tail call will be allowed at + * runtime, so the RETURN must still be emitted. (Duktape + * 0.10.0 avoided this and simulated a RETURN if a tail call + * couldn't be used at runtime; but this didn't work + * correctly with a thread yield/resume, see + * test-bug-tailcall-thread-yield-resume.js for discussion.) + * + * In addition to the last opcode being CALL, we also need to + * be sure that 'rc_val' is the result register of the CALL. + * For instance, for the expression 'return 0, (function () + * { return 1; }), 2' the last opcode emitted is CALL (no + * bytecode is emitted for '2') but 'rc_val' indicates + * constant '2'. Similarly if '2' is replaced by a register + * bound variable, no opcodes are emitted but tail call would + * be incorrect. + * + * This is tricky and easy to get wrong. It would be best to + * track enough expression metadata to check that 'rc_val' came + * from that last CALL instruction. We don't have that metadata + * now, so we check that 'rc_val' is a temporary register result + * (not a constant or a register bound variable). There should + * be no way currently for 'rc_val' to be a temporary for an + * expression following the CALL instruction without emitting + * some opcodes following the CALL. This proxy check is used + * below. + * + * See: test-bug-comma-expr-gh131.js. + * + * The non-standard 'caller' property disables tail calls + * because they pose some special cases which haven't been + * fixed yet. + */ + +#if defined(DUK_USE_TAILCALL) + if (comp_ctx->curr_func.catch_depth == 0 && /* no catchers */ + pc_after_expr > pc_before_expr) { /* at least one opcode emitted */ + duk_compiler_instr *instr; + duk_instr_t ins; + duk_small_uint_t op; + + instr = duk__get_instr_ptr(comp_ctx, pc_after_expr - 1); + DUK_ASSERT(instr != NULL); + + ins = instr->ins; + op = (duk_small_uint_t) DUK_DEC_OP(ins); + if ((op & ~0x0fU) == DUK_OP_CALL0 && + DUK__ISREG_TEMP(comp_ctx, rc_val) /* see above */) { + DUK_DDD(DUK_DDDPRINT("return statement detected a tail call opportunity: " + "catch depth is 0, duk__exprtop() emitted >= 1 instructions, " + "and last instruction is a CALL " + "-> change to TAILCALL")); + ins |= DUK_ENC_OP(DUK_BC_CALL_FLAG_TAILCALL); + instr->ins = ins; + } + } +#endif /* DUK_USE_TAILCALL */ + + if (DUK__ISREG(rc_val)) { + duk__emit_bc(comp_ctx, DUK_OP_RETREG, rc_val); + } else { + rc_val = DUK__REMOVECONST(rc_val); + if (duk__const_needs_refcount(comp_ctx, rc_val)) { + duk__emit_bc(comp_ctx, DUK_OP_RETCONST, rc_val); + } else { + duk__emit_bc(comp_ctx, DUK_OP_RETCONSTN, rc_val); + } + } + } +} + +DUK_LOCAL void duk__parse_throw_stmt(duk_compiler_ctx *comp_ctx, duk_ivalue *res) { + duk_regconst_t reg_val; + + duk__advance(comp_ctx); /* eat 'throw' */ + + /* Unlike break/continue, throw statement does not allow an empty value. */ + + if (comp_ctx->curr_token.lineterm) { + DUK_ERROR_SYNTAX(comp_ctx->thr, DUK_STR_INVALID_THROW); + DUK_WO_NORETURN(return;); + } + + reg_val = duk__exprtop_toreg(comp_ctx, res, DUK__BP_FOR_EXPR /*rbp_flags*/); + duk__emit_bc(comp_ctx, + DUK_OP_THROW, + reg_val); +} + +DUK_LOCAL void duk__parse_try_stmt(duk_compiler_ctx *comp_ctx, duk_ivalue *res) { + duk_hthread *thr = comp_ctx->thr; + duk_regconst_t reg_catch; /* reg_catch+0 and reg_catch+1 are reserved for TRYCATCH */ + duk_regconst_t rc_varname = 0; + duk_small_uint_t trycatch_flags = 0; + duk_int_t pc_ldconst = -1; + duk_int_t pc_trycatch = -1; + duk_int_t pc_catch = -1; + duk_int_t pc_finally = -1; + + DUK_UNREF(res); + + /* + * See the following documentation for discussion: + * + * doc/execution.rst: control flow details + * + * Try, catch, and finally "parts" are Blocks, not Statements, so + * they must always be delimited by curly braces. This is unlike e.g. + * the if statement, which accepts any Statement. This eliminates any + * questions of matching parts of nested try statements. The Block + * parsing is implemented inline here (instead of calling out). + * + * Finally part has a 'let scoped' variable, which requires a few kinks + * here. + */ + + comp_ctx->curr_func.catch_depth++; + + duk__advance(comp_ctx); /* eat 'try' */ + + reg_catch = DUK__ALLOCTEMPS(comp_ctx, 2); + + /* The target for this LDCONST may need output shuffling, but we assume + * that 'pc_ldconst' will be the LDCONST that we can patch later. This + * should be the case because there's no input shuffling. (If there's + * no catch clause, this LDCONST will be replaced with a NOP.) + */ + pc_ldconst = duk__get_current_pc(comp_ctx); + duk__emit_a_bc(comp_ctx, DUK_OP_LDCONST, reg_catch, 0 /*patched later*/); + + pc_trycatch = duk__get_current_pc(comp_ctx); + duk__emit_invalid(comp_ctx); /* TRYCATCH, cannot emit now (not enough info) */ + duk__emit_invalid(comp_ctx); /* jump for 'catch' case */ + duk__emit_invalid(comp_ctx); /* jump for 'finally' case or end (if no finally) */ + + /* try part */ + duk__advance_expect(comp_ctx, DUK_TOK_LCURLY); + duk__parse_stmts(comp_ctx, 0 /*allow_source_elem*/, 0 /*expect_eof*/, 1 /*regexp_after*/); + /* the DUK_TOK_RCURLY is eaten by duk__parse_stmts() */ + duk__emit_op_only(comp_ctx, DUK_OP_ENDTRY); + + if (comp_ctx->curr_token.t == DUK_TOK_CATCH) { + /* + * The catch variable must be updated to reflect the new allocated + * register for the duration of the catch clause. We need to store + * and restore the original value for the varmap entry (if any). + */ + + /* + * Note: currently register bindings must be fixed for the entire + * function. So, even though the catch variable is in a register + * we know, we must use an explicit environment record and slow path + * accesses to read/write the catch binding to make closures created + * within the catch clause work correctly. This restriction should + * be fixable (at least in common cases) later. + * + * See: test-bug-catch-binding-2.js. + * + * XXX: improve to get fast path access to most catch clauses. + */ + + duk_hstring *h_var; + duk_int_t varmap_value; /* for storing/restoring the varmap binding for catch variable */ + + DUK_DDD(DUK_DDDPRINT("stack top at start of catch clause: %ld", (long) duk_get_top(thr))); + + trycatch_flags |= DUK_BC_TRYCATCH_FLAG_HAVE_CATCH; + + pc_catch = duk__get_current_pc(comp_ctx); + + duk__advance(comp_ctx); + duk__advance_expect(comp_ctx, DUK_TOK_LPAREN); + + if (comp_ctx->curr_token.t != DUK_TOK_IDENTIFIER) { + /* Identifier, i.e. don't allow reserved words */ + goto syntax_error; + } + h_var = comp_ctx->curr_token.str1; + DUK_ASSERT(h_var != NULL); + + duk_push_hstring(thr, h_var); /* keep in on valstack, use borrowed ref below */ + + if (comp_ctx->curr_func.is_strict && + ((h_var == DUK_HTHREAD_STRING_EVAL(thr)) || + (h_var == DUK_HTHREAD_STRING_LC_ARGUMENTS(thr)))) { + DUK_DDD(DUK_DDDPRINT("catch identifier 'eval' or 'arguments' in strict mode -> SyntaxError")); + goto syntax_error; + } + + duk_dup_top(thr); + rc_varname = duk__getconst(comp_ctx); + DUK_DDD(DUK_DDDPRINT("catch clause, rc_varname=0x%08lx (%ld)", + (unsigned long) rc_varname, (long) rc_varname)); + + duk__advance(comp_ctx); + duk__advance_expect(comp_ctx, DUK_TOK_RPAREN); + + duk__advance_expect(comp_ctx, DUK_TOK_LCURLY); + + DUK_DDD(DUK_DDDPRINT("varmap before modifying for catch clause: %!iT", + (duk_tval *) duk_get_tval(thr, comp_ctx->curr_func.varmap_idx))); + + duk_dup_top(thr); + duk_get_prop(thr, comp_ctx->curr_func.varmap_idx); + if (duk_is_undefined(thr, -1)) { + varmap_value = -2; + } else if (duk_is_null(thr, -1)) { + varmap_value = -1; + } else { + DUK_ASSERT(duk_is_number(thr, -1)); + varmap_value = duk_get_int(thr, -1); + DUK_ASSERT(varmap_value >= 0); + } + duk_pop(thr); + +#if 0 + /* It'd be nice to do something like this - but it doesn't + * work for closures created inside the catch clause. + */ + duk_dup_top(thr); + duk_push_int(thr, (duk_int_t) (reg_catch + 0)); + duk_put_prop(thr, comp_ctx->curr_func.varmap_idx); +#endif + duk_dup_top(thr); + duk_push_null(thr); + duk_put_prop(thr, comp_ctx->curr_func.varmap_idx); + + duk__emit_a_bc(comp_ctx, + DUK_OP_PUTVAR | DUK__EMIT_FLAG_A_IS_SOURCE, + reg_catch + 0 /*value*/, + rc_varname /*varname*/); + + DUK_DDD(DUK_DDDPRINT("varmap before parsing catch clause: %!iT", + (duk_tval *) duk_get_tval(thr, comp_ctx->curr_func.varmap_idx))); + + duk__parse_stmts(comp_ctx, 0 /*allow_source_elem*/, 0 /*expect_eof*/, 1 /*regexp_after*/); + /* the DUK_TOK_RCURLY is eaten by duk__parse_stmts() */ + + if (varmap_value == -2) { + /* not present */ + duk_del_prop(thr, comp_ctx->curr_func.varmap_idx); + } else { + if (varmap_value == -1) { + duk_push_null(thr); + } else { + DUK_ASSERT(varmap_value >= 0); + duk_push_int(thr, varmap_value); + } + duk_put_prop(thr, comp_ctx->curr_func.varmap_idx); + } + /* varname is popped by above code */ + + DUK_DDD(DUK_DDDPRINT("varmap after restore catch clause: %!iT", + (duk_tval *) duk_get_tval(thr, comp_ctx->curr_func.varmap_idx))); + + duk__emit_op_only(comp_ctx, + DUK_OP_ENDCATCH); + + /* + * XXX: for now, indicate that an expensive catch binding + * declarative environment is always needed. If we don't + * need it, we don't need the const_varname either. + */ + + trycatch_flags |= DUK_BC_TRYCATCH_FLAG_CATCH_BINDING; + + DUK_DDD(DUK_DDDPRINT("stack top at end of catch clause: %ld", (long) duk_get_top(thr))); + } + + if (comp_ctx->curr_token.t == DUK_TOK_FINALLY) { + trycatch_flags |= DUK_BC_TRYCATCH_FLAG_HAVE_FINALLY; + + pc_finally = duk__get_current_pc(comp_ctx); + + duk__advance(comp_ctx); + + duk__advance_expect(comp_ctx, DUK_TOK_LCURLY); + duk__parse_stmts(comp_ctx, 0 /*allow_source_elem*/, 0 /*expect_eof*/, 1 /*regexp_after*/); + /* the DUK_TOK_RCURLY is eaten by duk__parse_stmts() */ + duk__emit_abc(comp_ctx, + DUK_OP_ENDFIN, + reg_catch); /* rethrow */ + } + + if (!(trycatch_flags & DUK_BC_TRYCATCH_FLAG_HAVE_CATCH) && + !(trycatch_flags & DUK_BC_TRYCATCH_FLAG_HAVE_FINALLY)) { + /* must have catch and/or finally */ + goto syntax_error; + } + + /* If there's no catch block, rc_varname will be 0 and duk__patch_trycatch() + * will replace the LDCONST with a NOP. For any actual constant (including + * constant 0) the DUK__CONST_MARKER flag will be set in rc_varname. + */ + + duk__patch_trycatch(comp_ctx, + pc_ldconst, + pc_trycatch, + reg_catch, + rc_varname, + trycatch_flags); + + if (trycatch_flags & DUK_BC_TRYCATCH_FLAG_HAVE_CATCH) { + DUK_ASSERT(pc_catch >= 0); + duk__patch_jump(comp_ctx, pc_trycatch + 1, pc_catch); + } + + if (trycatch_flags & DUK_BC_TRYCATCH_FLAG_HAVE_FINALLY) { + DUK_ASSERT(pc_finally >= 0); + duk__patch_jump(comp_ctx, pc_trycatch + 2, pc_finally); + } else { + /* without finally, the second jump slot is used to jump to end of stmt */ + duk__patch_jump_here(comp_ctx, pc_trycatch + 2); + } + + comp_ctx->curr_func.catch_depth--; + return; + + syntax_error: + DUK_ERROR_SYNTAX(thr, DUK_STR_INVALID_TRY); + DUK_WO_NORETURN(return;); +} + +DUK_LOCAL void duk__parse_with_stmt(duk_compiler_ctx *comp_ctx, duk_ivalue *res) { + duk_int_t pc_trycatch; + duk_int_t pc_finished; + duk_regconst_t reg_catch; + duk_small_uint_t trycatch_flags; + + if (comp_ctx->curr_func.is_strict) { + DUK_ERROR_SYNTAX(comp_ctx->thr, DUK_STR_WITH_IN_STRICT_MODE); + DUK_WO_NORETURN(return;); + } + + comp_ctx->curr_func.catch_depth++; + + duk__advance(comp_ctx); /* eat 'with' */ + + reg_catch = DUK__ALLOCTEMPS(comp_ctx, 2); + + duk__advance_expect(comp_ctx, DUK_TOK_LPAREN); + duk__exprtop_toforcedreg(comp_ctx, res, DUK__BP_FOR_EXPR /*rbp_flags*/, reg_catch); + comp_ctx->curr_func.allow_regexp_in_adv = 1; + duk__advance_expect(comp_ctx, DUK_TOK_RPAREN); /* Allow RegExp as part of next stmt. */ + + pc_trycatch = duk__get_current_pc(comp_ctx); + trycatch_flags = DUK_BC_TRYCATCH_FLAG_WITH_BINDING; + duk__emit_a_bc(comp_ctx, + DUK_OP_TRYCATCH | DUK__EMIT_FLAG_NO_SHUFFLE_A, + (duk_regconst_t) trycatch_flags /*a*/, + reg_catch /*bc*/); + duk__emit_invalid(comp_ctx); /* catch jump */ + duk__emit_invalid(comp_ctx); /* finished jump */ + + duk__parse_stmt(comp_ctx, res, 0 /*allow_source_elem*/); + duk__emit_op_only(comp_ctx, DUK_OP_ENDTRY); + + pc_finished = duk__get_current_pc(comp_ctx); + + duk__patch_jump(comp_ctx, pc_trycatch + 2, pc_finished); + + comp_ctx->curr_func.catch_depth--; +} + +DUK_LOCAL duk_int_t duk__stmt_label_site(duk_compiler_ctx *comp_ctx, duk_int_t label_id) { + /* if a site already exists, nop: max one label site per statement */ + if (label_id >= 0) { + return label_id; + } + + label_id = comp_ctx->curr_func.label_next++; + DUK_DDD(DUK_DDDPRINT("allocated new label id for label site: %ld", (long) label_id)); + + duk__emit_bc(comp_ctx, + DUK_OP_LABEL, + (duk_regconst_t) label_id); + duk__emit_invalid(comp_ctx); + duk__emit_invalid(comp_ctx); + + return label_id; +} + +/* Parse a single statement. + * + * Creates a label site (with an empty label) automatically for iteration + * statements. Also "peels off" any label statements for explicit labels. + */ +DUK_LOCAL void duk__parse_stmt(duk_compiler_ctx *comp_ctx, duk_ivalue *res, duk_bool_t allow_source_elem) { + duk_hthread *thr = comp_ctx->thr; + duk_bool_t dir_prol_at_entry; /* directive prologue status at entry */ + duk_regconst_t temp_at_entry; + duk_size_t labels_len_at_entry; + duk_int_t pc_at_entry; /* assumed to also be PC of "LABEL" */ + duk_int_t stmt_id; + duk_small_uint_t stmt_flags = 0; + duk_int_t label_id = -1; + duk_small_uint_t tok; + duk_bool_t test_func_decl; + + DUK__RECURSION_INCREASE(comp_ctx, thr); + + temp_at_entry = DUK__GETTEMP(comp_ctx); + pc_at_entry = duk__get_current_pc(comp_ctx); + labels_len_at_entry = duk_get_length(thr, comp_ctx->curr_func.labelnames_idx); + stmt_id = comp_ctx->curr_func.stmt_next++; + dir_prol_at_entry = comp_ctx->curr_func.in_directive_prologue; + + DUK_UNREF(stmt_id); + + DUK_DDD(DUK_DDDPRINT("parsing a statement, stmt_id=%ld, temp_at_entry=%ld, labels_len_at_entry=%ld, " + "is_strict=%ld, in_directive_prologue=%ld, catch_depth=%ld", + (long) stmt_id, (long) temp_at_entry, (long) labels_len_at_entry, + (long) comp_ctx->curr_func.is_strict, (long) comp_ctx->curr_func.in_directive_prologue, + (long) comp_ctx->curr_func.catch_depth)); + + /* The directive prologue flag is cleared by default so that it is + * unset for any recursive statement parsing. It is only "revived" + * if a directive is detected. (We could also make directives only + * allowed if 'allow_source_elem' was true.) + */ + comp_ctx->curr_func.in_directive_prologue = 0; + + retry_parse: + + DUK_DDD(DUK_DDDPRINT("try stmt parse, stmt_id=%ld, label_id=%ld, allow_source_elem=%ld, catch_depth=%ld", + (long) stmt_id, (long) label_id, (long) allow_source_elem, + (long) comp_ctx->curr_func.catch_depth)); + + /* + * Detect iteration statements; if encountered, establish an + * empty label. + */ + + tok = comp_ctx->curr_token.t; + if (tok == DUK_TOK_FOR || tok == DUK_TOK_DO || tok == DUK_TOK_WHILE || + tok == DUK_TOK_SWITCH) { + DUK_DDD(DUK_DDDPRINT("iteration/switch statement -> add empty label")); + + label_id = duk__stmt_label_site(comp_ctx, label_id); + duk__add_label(comp_ctx, + DUK_HTHREAD_STRING_EMPTY_STRING(thr), + pc_at_entry /*pc_label*/, + label_id); + } + + /* + * Main switch for statement / source element type. + */ + + switch (comp_ctx->curr_token.t) { + case DUK_TOK_FUNCTION: { + /* + * Function declaration, function expression, or (non-standard) + * function statement. + * + * The E5 specification only allows function declarations at + * the top level (in "source elements"). An ExpressionStatement + * is explicitly not allowed to begin with a "function" keyword + * (E5 Section 12.4). Hence any non-error semantics for such + * non-top-level statements are non-standard. Duktape semantics + * for function statements are modelled after V8, see + * test-dev-func-decl-outside-top.js. + */ + test_func_decl = allow_source_elem; +#if defined(DUK_USE_NONSTD_FUNC_STMT) + /* Lenient: allow function declarations outside top level in + * non-strict mode but reject them in strict mode. + */ + test_func_decl = test_func_decl || !comp_ctx->curr_func.is_strict; +#endif /* DUK_USE_NONSTD_FUNC_STMT */ + /* Strict: never allow function declarations outside top level. */ + if (test_func_decl) { + /* FunctionDeclaration: not strictly a statement but handled as such. + * + * O(depth^2) parse count for inner functions is handled by recording a + * lexer offset on the first compilation pass, so that the function can + * be efficiently skipped on the second pass. This is encapsulated into + * duk__parse_func_like_fnum(). + */ + + duk_int_t fnum; +#if defined(DUK_USE_ASSERTIONS) + duk_idx_t top_before; +#endif + + DUK_DDD(DUK_DDDPRINT("function declaration statement")); + +#if defined(DUK_USE_ASSERTIONS) + top_before = duk_get_top(thr); +#endif + + duk__advance(comp_ctx); /* eat 'function' */ + fnum = duk__parse_func_like_fnum(comp_ctx, DUK__FUNC_FLAG_DECL | DUK__FUNC_FLAG_PUSHNAME_PASS1); + + /* The value stack convention here is a bit odd: the function + * name is only pushed on pass 1 (in_scanning), and is needed + * to process function declarations. + */ + if (comp_ctx->curr_func.in_scanning) { + duk_uarridx_t n; + +#if defined(DUK_USE_ASSERTIONS) + DUK_ASSERT(duk_get_top(thr) == top_before + 1); +#endif + DUK_DDD(DUK_DDDPRINT("register function declaration %!T in pass 1, fnum %ld", + duk_get_tval(thr, -1), (long) fnum)); + n = (duk_uarridx_t) duk_get_length(thr, comp_ctx->curr_func.decls_idx); + /* funcname is at index -1 */ + duk_put_prop_index(thr, comp_ctx->curr_func.decls_idx, n); + duk_push_int(thr, (duk_int_t) (DUK_DECL_TYPE_FUNC + (fnum << 8))); + duk_put_prop_index(thr, comp_ctx->curr_func.decls_idx, n + 1); + } else { +#if defined(DUK_USE_ASSERTIONS) + DUK_ASSERT(duk_get_top(thr) == top_before); +#endif + } + + /* no statement value (unlike function expression) */ + stmt_flags = 0; + break; + } else { + DUK_ERROR_SYNTAX(thr, DUK_STR_FUNC_STMT_NOT_ALLOWED); + DUK_WO_NORETURN(return;); + } + break; + } + case DUK_TOK_LCURLY: { + DUK_DDD(DUK_DDDPRINT("block statement")); + duk__advance(comp_ctx); + duk__parse_stmts(comp_ctx, 0 /*allow_source_elem*/, 0 /*expect_eof*/, 1 /*regexp_after*/); + /* the DUK_TOK_RCURLY is eaten by duk__parse_stmts() */ + if (label_id >= 0) { + duk__patch_jump_here(comp_ctx, pc_at_entry + 1); /* break jump */ + } + stmt_flags = 0; + break; + } + case DUK_TOK_CONST: { + DUK_DDD(DUK_DDDPRINT("constant declaration statement")); + duk__parse_var_stmt(comp_ctx, res, DUK__EXPR_FLAG_REQUIRE_INIT /*expr_flags*/); + stmt_flags = DUK__HAS_TERM; + break; + } + case DUK_TOK_VAR: { + DUK_DDD(DUK_DDDPRINT("variable declaration statement")); + duk__parse_var_stmt(comp_ctx, res, 0 /*expr_flags*/); + stmt_flags = DUK__HAS_TERM; + break; + } + case DUK_TOK_SEMICOLON: { + /* empty statement with an explicit semicolon */ + DUK_DDD(DUK_DDDPRINT("empty statement")); + stmt_flags = DUK__HAS_TERM; + break; + } + case DUK_TOK_IF: { + DUK_DDD(DUK_DDDPRINT("if statement")); + duk__parse_if_stmt(comp_ctx, res); + if (label_id >= 0) { + duk__patch_jump_here(comp_ctx, pc_at_entry + 1); /* break jump */ + } + stmt_flags = 0; + break; + } + case DUK_TOK_DO: { + /* + * Do-while statement is mostly trivial, but there is special + * handling for automatic semicolon handling (triggered by the + * DUK__ALLOW_AUTO_SEMI_ALWAYS) flag related to a bug filed at: + * + * https://bugs.ecmascript.org/show_bug.cgi?id=8 + * + * See doc/compiler.rst for details. + */ + DUK_DDD(DUK_DDDPRINT("do statement")); + DUK_ASSERT(label_id >= 0); + duk__update_label_flags(comp_ctx, + label_id, + DUK_LABEL_FLAG_ALLOW_BREAK | DUK_LABEL_FLAG_ALLOW_CONTINUE); + duk__parse_do_stmt(comp_ctx, res, pc_at_entry); + stmt_flags = DUK__HAS_TERM | DUK__ALLOW_AUTO_SEMI_ALWAYS; /* DUK__ALLOW_AUTO_SEMI_ALWAYS workaround */ + break; + } + case DUK_TOK_WHILE: { + DUK_DDD(DUK_DDDPRINT("while statement")); + DUK_ASSERT(label_id >= 0); + duk__update_label_flags(comp_ctx, + label_id, + DUK_LABEL_FLAG_ALLOW_BREAK | DUK_LABEL_FLAG_ALLOW_CONTINUE); + duk__parse_while_stmt(comp_ctx, res, pc_at_entry); + stmt_flags = 0; + break; + } + case DUK_TOK_FOR: { + /* + * For/for-in statement is complicated to parse because + * determining the statement type (three-part for vs. a + * for-in) requires potential backtracking. + * + * See the helper for the messy stuff. + */ + DUK_DDD(DUK_DDDPRINT("for/for-in statement")); + DUK_ASSERT(label_id >= 0); + duk__update_label_flags(comp_ctx, + label_id, + DUK_LABEL_FLAG_ALLOW_BREAK | DUK_LABEL_FLAG_ALLOW_CONTINUE); + duk__parse_for_stmt(comp_ctx, res, pc_at_entry); + stmt_flags = 0; + break; + } + case DUK_TOK_CONTINUE: + case DUK_TOK_BREAK: { + DUK_DDD(DUK_DDDPRINT("break/continue statement")); + duk__parse_break_or_continue_stmt(comp_ctx, res); + stmt_flags = DUK__HAS_TERM | DUK__IS_TERMINAL; + break; + } + case DUK_TOK_RETURN: { + DUK_DDD(DUK_DDDPRINT("return statement")); + duk__parse_return_stmt(comp_ctx, res); + stmt_flags = DUK__HAS_TERM | DUK__IS_TERMINAL; + break; + } + case DUK_TOK_WITH: { + DUK_DDD(DUK_DDDPRINT("with statement")); + comp_ctx->curr_func.with_depth++; + duk__parse_with_stmt(comp_ctx, res); + if (label_id >= 0) { + duk__patch_jump_here(comp_ctx, pc_at_entry + 1); /* break jump */ + } + comp_ctx->curr_func.with_depth--; + stmt_flags = 0; + break; + } + case DUK_TOK_SWITCH: { + /* + * The switch statement is pretty messy to compile. + * See the helper for details. + */ + DUK_DDD(DUK_DDDPRINT("switch statement")); + DUK_ASSERT(label_id >= 0); + duk__update_label_flags(comp_ctx, + label_id, + DUK_LABEL_FLAG_ALLOW_BREAK); /* don't allow continue */ + duk__parse_switch_stmt(comp_ctx, res, pc_at_entry); + stmt_flags = 0; + break; + } + case DUK_TOK_THROW: { + DUK_DDD(DUK_DDDPRINT("throw statement")); + duk__parse_throw_stmt(comp_ctx, res); + stmt_flags = DUK__HAS_TERM | DUK__IS_TERMINAL; + break; + } + case DUK_TOK_TRY: { + DUK_DDD(DUK_DDDPRINT("try statement")); + duk__parse_try_stmt(comp_ctx, res); + stmt_flags = 0; + break; + } + case DUK_TOK_DEBUGGER: { + duk__advance(comp_ctx); +#if defined(DUK_USE_DEBUGGER_SUPPORT) + DUK_DDD(DUK_DDDPRINT("debugger statement: debugging enabled, emit debugger opcode")); + duk__emit_op_only(comp_ctx, DUK_OP_DEBUGGER); +#else + DUK_DDD(DUK_DDDPRINT("debugger statement: ignored")); +#endif + stmt_flags = DUK__HAS_TERM; + break; + } + default: { + /* + * Else, must be one of: + * - ExpressionStatement, possibly a directive (String) + * - LabelledStatement (Identifier followed by ':') + * + * Expressions beginning with 'function' keyword are covered by a case + * above (such expressions are not allowed in standard E5 anyway). + * Also expressions starting with '{' are interpreted as block + * statements. See E5 Section 12.4. + * + * Directive detection is tricky; see E5 Section 14.1 on directive + * prologue. A directive is an expression statement with a single + * string literal and an explicit or automatic semicolon. Escape + * characters are significant and no parens etc are allowed: + * + * 'use strict'; // valid 'use strict' directive + * 'use\u0020strict'; // valid directive, not a 'use strict' directive + * ('use strict'); // not a valid directive + * + * The expression is determined to consist of a single string literal + * based on duk__expr_nud() and duk__expr_led() call counts. The string literal + * of a 'use strict' directive is determined to lack any escapes based + * num_escapes count from the lexer. Note that other directives may be + * allowed to contain escapes, so a directive with escapes does not + * terminate a directive prologue. + * + * We rely on the fact that the expression parser will not emit any + * code for a single token expression. However, it will generate an + * intermediate value which we will then successfully ignore. + * + * A similar approach is used for labels. + */ + + duk_bool_t single_token; + + DUK_DDD(DUK_DDDPRINT("expression statement")); + duk__exprtop(comp_ctx, res, DUK__BP_FOR_EXPR /*rbp_flags*/); + + single_token = (comp_ctx->curr_func.nud_count == 1 && /* one token */ + comp_ctx->curr_func.led_count == 0); /* no operators */ + + if (single_token && + comp_ctx->prev_token.t == DUK_TOK_IDENTIFIER && + comp_ctx->curr_token.t == DUK_TOK_COLON) { + /* + * Detected label + */ + + duk_hstring *h_lab; + + /* expected ival */ + DUK_ASSERT(res->t == DUK_IVAL_VAR); + DUK_ASSERT(res->x1.t == DUK_ISPEC_VALUE); + DUK_ASSERT(DUK_TVAL_IS_STRING(duk_get_tval(thr, res->x1.valstack_idx))); + h_lab = comp_ctx->prev_token.str1; + DUK_ASSERT(h_lab != NULL); + + DUK_DDD(DUK_DDDPRINT("explicit label site for label '%!O'", + (duk_heaphdr *) h_lab)); + + duk__advance(comp_ctx); /* eat colon */ + + label_id = duk__stmt_label_site(comp_ctx, label_id); + + duk__add_label(comp_ctx, + h_lab, + pc_at_entry /*pc_label*/, + label_id); + + /* a statement following a label cannot be a source element + * (a function declaration). + */ + allow_source_elem = 0; + + DUK_DDD(DUK_DDDPRINT("label handled, retry statement parsing")); + goto retry_parse; + } + + stmt_flags = 0; + + if (dir_prol_at_entry && /* still in prologue */ + single_token && /* single string token */ + comp_ctx->prev_token.t == DUK_TOK_STRING) { + /* + * Detected a directive + */ + duk_hstring *h_dir; + + /* expected ival */ + DUK_ASSERT(res->t == DUK_IVAL_PLAIN); + DUK_ASSERT(res->x1.t == DUK_ISPEC_VALUE); + DUK_ASSERT(DUK_TVAL_IS_STRING(duk_get_tval(thr, res->x1.valstack_idx))); + h_dir = comp_ctx->prev_token.str1; + DUK_ASSERT(h_dir != NULL); + + DUK_DDD(DUK_DDDPRINT("potential directive: %!O", h_dir)); + + stmt_flags |= DUK__STILL_PROLOGUE; + + /* Note: escaped characters differentiate directives */ + + if (comp_ctx->prev_token.num_escapes > 0) { + DUK_DDD(DUK_DDDPRINT("directive contains escapes: valid directive " + "but we ignore such directives")); + } else { + /* + * The length comparisons are present to handle + * strings like "use strict\u0000foo" as required. + */ + + if (DUK_HSTRING_GET_BYTELEN(h_dir) == 10 && + DUK_STRCMP((const char *) DUK_HSTRING_GET_DATA(h_dir), "use strict") == 0) { +#if defined(DUK_USE_STRICT_DECL) + DUK_DDD(DUK_DDDPRINT("use strict directive detected: strict flag %ld -> %ld", + (long) comp_ctx->curr_func.is_strict, (long) 1)); + comp_ctx->curr_func.is_strict = 1; +#else + DUK_DDD(DUK_DDDPRINT("use strict detected but strict declarations disabled, ignoring")); +#endif + } else if (DUK_HSTRING_GET_BYTELEN(h_dir) == 14 && + DUK_STRCMP((const char *) DUK_HSTRING_GET_DATA(h_dir), "use duk notail") == 0) { + DUK_DDD(DUK_DDDPRINT("use duk notail directive detected: notail flag %ld -> %ld", + (long) comp_ctx->curr_func.is_notail, (long) 1)); + comp_ctx->curr_func.is_notail = 1; + } else { + DUK_DD(DUK_DDPRINT("unknown directive: '%!O', ignoring but not terminating " + "directive prologue", (duk_hobject *) h_dir)); + } + } + } else { + DUK_DDD(DUK_DDDPRINT("non-directive expression statement or no longer in prologue; " + "prologue terminated if still active")); + } + + stmt_flags |= DUK__HAS_VAL | DUK__HAS_TERM; + } + } /* end switch (tok) */ + + /* + * Statement value handling. + * + * Global code and eval code has an implicit return value + * which comes from the last statement with a value + * (technically a non-"empty" continuation, which is + * different from an empty statement). + * + * Since we don't know whether a later statement will + * override the value of the current statement, we need + * to coerce the statement value to a register allocated + * for implicit return values. In other cases we need + * to coerce the statement value to a plain value to get + * any side effects out (consider e.g. "foo.bar;"). + */ + + /* XXX: what about statements which leave a half-cooked value in 'res' + * but have no stmt value? Any such statements? + */ + + if (stmt_flags & DUK__HAS_VAL) { + duk_regconst_t reg_stmt_value = comp_ctx->curr_func.reg_stmt_value; + if (reg_stmt_value >= 0) { + duk__ivalue_toforcedreg(comp_ctx, res, reg_stmt_value); + } else { + duk__ivalue_toplain_ignore(comp_ctx, res); + } + } else { + ; + } + + /* + * Statement terminator check, including automatic semicolon + * handling. After this step, 'curr_tok' should be the first + * token after a possible statement terminator. + */ + + if (stmt_flags & DUK__HAS_TERM) { + if (comp_ctx->curr_token.t == DUK_TOK_SEMICOLON) { + DUK_DDD(DUK_DDDPRINT("explicit semicolon terminates statement")); + duk__advance(comp_ctx); + } else { + if (comp_ctx->curr_token.allow_auto_semi) { + DUK_DDD(DUK_DDDPRINT("automatic semicolon terminates statement")); + } else if (stmt_flags & DUK__ALLOW_AUTO_SEMI_ALWAYS) { + /* XXX: make this lenience dependent on flags or strictness? */ + DUK_DDD(DUK_DDDPRINT("automatic semicolon terminates statement (allowed for compatibility " + "even though no lineterm present before next token)")); + } else { + DUK_ERROR_SYNTAX(thr, DUK_STR_UNTERMINATED_STMT); + DUK_WO_NORETURN(return;); + } + } + } else { + DUK_DDD(DUK_DDDPRINT("statement has no terminator")); + } + + /* + * Directive prologue tracking. + */ + + if (stmt_flags & DUK__STILL_PROLOGUE) { + DUK_DDD(DUK_DDDPRINT("setting in_directive_prologue")); + comp_ctx->curr_func.in_directive_prologue = 1; + } + + /* + * Cleanups (all statement parsing flows through here). + * + * Pop label site and reset labels. Reset 'next temp' to value at + * entry to reuse temps. + */ + + if (label_id >= 0) { + duk__emit_bc(comp_ctx, + DUK_OP_ENDLABEL, + (duk_regconst_t) label_id); + } + + DUK__SETTEMP(comp_ctx, temp_at_entry); + + duk__reset_labels_to_length(comp_ctx, labels_len_at_entry); + + /* XXX: return indication of "terminalness" (e.g. a 'throw' is terminal) */ + + DUK__RECURSION_DECREASE(comp_ctx, thr); +} + +/* + * Parse a statement list. + * + * Handles automatic semicolon insertion and implicit return value. + * + * Upon entry, 'curr_tok' should contain the first token of the first + * statement (parsed in the "allow regexp literal" mode). Upon exit, + * 'curr_tok' contains the token following the statement list terminator + * (EOF or closing brace). + */ + +DUK_LOCAL void duk__parse_stmts(duk_compiler_ctx *comp_ctx, duk_bool_t allow_source_elem, duk_bool_t expect_eof, duk_bool_t regexp_after) { + duk_hthread *thr = comp_ctx->thr; + duk_ivalue res_alloc; + duk_ivalue *res = &res_alloc; + + /* Setup state. Initial ivalue is 'undefined'. */ + + duk_require_stack(thr, DUK__PARSE_STATEMENTS_SLOTS); + + /* XXX: 'res' setup can be moved to function body level; in fact, two 'res' + * intermediate values suffice for parsing of each function. Nesting is needed + * for nested functions (which may occur inside expressions). + */ + + duk_memzero(&res_alloc, sizeof(res_alloc)); + res->t = DUK_IVAL_PLAIN; + res->x1.t = DUK_ISPEC_VALUE; + res->x1.valstack_idx = duk_get_top(thr); + res->x2.valstack_idx = res->x1.valstack_idx + 1; + duk_push_undefined(thr); + duk_push_undefined(thr); + + /* Parse statements until a closing token (EOF or '}') is found. */ + + for (;;) { + /* Check whether statement list ends. */ + + if (expect_eof) { + if (comp_ctx->curr_token.t == DUK_TOK_EOF) { + break; + } + } else { + if (comp_ctx->curr_token.t == DUK_TOK_RCURLY) { + break; + } + } + + /* Check statement type based on the first token type. + * + * Note: expression parsing helpers expect 'curr_tok' to + * contain the first token of the expression upon entry. + */ + + DUK_DDD(DUK_DDDPRINT("TOKEN %ld (non-whitespace, non-comment)", (long) comp_ctx->curr_token.t)); + + duk__parse_stmt(comp_ctx, res, allow_source_elem); + } + + /* RegExp is allowed / not allowed depending on context. For function + * declarations RegExp is allowed because it follows a function + * declaration statement and may appear as part of the next statement. + * For function expressions RegExp is not allowed, and it's possible + * to do something like '(function () {} / 123)'. + */ + if (regexp_after) { + comp_ctx->curr_func.allow_regexp_in_adv = 1; + } + duk__advance(comp_ctx); + + /* Tear down state. */ + + duk_pop_2(thr); +} + +/* + * Declaration binding instantiation conceptually happens when calling a + * function; for us it essentially means that function prologue. The + * conceptual process is described in E5 Section 10.5. + * + * We need to keep track of all encountered identifiers to (1) create an + * identifier-to-register map ("varmap"); and (2) detect duplicate + * declarations. Identifiers which are not bound to registers still need + * to be tracked for detecting duplicates. Currently such identifiers + * are put into the varmap with a 'null' value, which is later cleaned up. + * + * To support functions with a large number of variable and function + * declarations, registers are not allocated beyond a certain limit; + * after that limit, variables and functions need slow path access. + * Arguments are currently always register bound, which imposes a hard + * (and relatively small) argument count limit. + * + * Some bindings in E5 are not configurable (= deletable) and almost all + * are mutable (writable). Exceptions are: + * + * - The 'arguments' binding, established only if no shadowing argument + * or function declaration exists. We handle 'arguments' creation + * and binding through an explicit slow path environment record. + * + * - The "name" binding for a named function expression. This is also + * handled through an explicit slow path environment record. + */ + +/* XXX: add support for variables to not be register bound always, to + * handle cases with a very large number of variables? + */ + +DUK_LOCAL void duk__init_varmap_and_prologue_for_pass2(duk_compiler_ctx *comp_ctx, duk_regconst_t *out_stmt_value_reg) { + duk_hthread *thr = comp_ctx->thr; + duk_hstring *h_name; + duk_bool_t configurable_bindings; + duk_uarridx_t num_args; + duk_uarridx_t num_decls; + duk_regconst_t rc_name; + duk_small_uint_t declvar_flags; + duk_uarridx_t i; +#if defined(DUK_USE_ASSERTIONS) + duk_idx_t entry_top; +#endif + +#if defined(DUK_USE_ASSERTIONS) + entry_top = duk_get_top(thr); +#endif + + /* + * Preliminaries + */ + + configurable_bindings = comp_ctx->curr_func.is_eval; + DUK_DDD(DUK_DDDPRINT("configurable_bindings=%ld", (long) configurable_bindings)); + + /* varmap is already in comp_ctx->curr_func.varmap_idx */ + + /* + * Function formal arguments, always bound to registers + * (there's no support for shuffling them now). + */ + + num_args = (duk_uarridx_t) duk_get_length(thr, comp_ctx->curr_func.argnames_idx); + DUK_DDD(DUK_DDDPRINT("num_args=%ld", (long) num_args)); + /* XXX: check num_args */ + + for (i = 0; i < num_args; i++) { + duk_get_prop_index(thr, comp_ctx->curr_func.argnames_idx, i); + h_name = duk_known_hstring(thr, -1); + + if (comp_ctx->curr_func.is_strict) { + if (duk__hstring_is_eval_or_arguments(comp_ctx, h_name)) { + DUK_DDD(DUK_DDDPRINT("arg named 'eval' or 'arguments' in strict mode -> SyntaxError")); + goto error_argname; + } + duk_dup_top(thr); + if (duk_has_prop(thr, comp_ctx->curr_func.varmap_idx)) { + DUK_DDD(DUK_DDDPRINT("duplicate arg name in strict mode -> SyntaxError")); + goto error_argname; + } + + /* Ensure argument name is not a reserved word in current + * (final) strictness. Formal argument parsing may not + * catch reserved names if strictness changes during + * parsing. + * + * We only need to do this in strict mode because non-strict + * keyword are always detected in formal argument parsing. + */ + + if (DUK_HSTRING_HAS_STRICT_RESERVED_WORD(h_name)) { + goto error_argname; + } + } + + /* overwrite any previous binding of the same name; the effect is + * that last argument of a certain name wins. + */ + + /* only functions can have arguments */ + DUK_ASSERT(comp_ctx->curr_func.is_function); + duk_push_uarridx(thr, i); /* -> [ ... name index ] */ + duk_put_prop(thr, comp_ctx->curr_func.varmap_idx); /* -> [ ... ] */ + + /* no code needs to be emitted, the regs already have values */ + } + + /* use temp_next for tracking register allocations */ + DUK__SETTEMP_CHECKMAX(comp_ctx, (duk_regconst_t) num_args); + + /* + * After arguments, allocate special registers (like shuffling temps) + */ + + if (out_stmt_value_reg) { + *out_stmt_value_reg = DUK__ALLOCTEMP(comp_ctx); + } + if (comp_ctx->curr_func.needs_shuffle) { + duk_regconst_t shuffle_base = DUK__ALLOCTEMPS(comp_ctx, 3); + comp_ctx->curr_func.shuffle1 = shuffle_base; + comp_ctx->curr_func.shuffle2 = shuffle_base + 1; + comp_ctx->curr_func.shuffle3 = shuffle_base + 2; + DUK_D(DUK_DPRINT("shuffle registers needed by function, allocated: %ld %ld %ld", + (long) comp_ctx->curr_func.shuffle1, + (long) comp_ctx->curr_func.shuffle2, + (long) comp_ctx->curr_func.shuffle3)); + } + if (comp_ctx->curr_func.temp_next > 0x100) { + DUK_D(DUK_DPRINT("not enough 8-bit regs: temp_next=%ld", (long) comp_ctx->curr_func.temp_next)); + goto error_outofregs; + } + + /* + * Function declarations + */ + + num_decls = (duk_uarridx_t) duk_get_length(thr, comp_ctx->curr_func.decls_idx); + DUK_DDD(DUK_DDDPRINT("num_decls=%ld -> %!T", + (long) num_decls, + (duk_tval *) duk_get_tval(thr, comp_ctx->curr_func.decls_idx))); + for (i = 0; i < num_decls; i += 2) { + duk_int_t decl_type; + duk_int_t fnum; + + duk_get_prop_index(thr, comp_ctx->curr_func.decls_idx, i + 1); /* decl type */ + decl_type = duk_to_int(thr, -1); + fnum = decl_type >> 8; /* XXX: macros */ + decl_type = decl_type & 0xff; + duk_pop(thr); + + if (decl_type != DUK_DECL_TYPE_FUNC) { + continue; + } + + duk_get_prop_index(thr, comp_ctx->curr_func.decls_idx, i); /* decl name */ + + /* XXX: spilling */ + if (comp_ctx->curr_func.is_function) { + duk_regconst_t reg_bind; + duk_dup_top(thr); + if (duk_has_prop(thr, comp_ctx->curr_func.varmap_idx)) { + /* shadowed; update value */ + duk_dup_top(thr); + duk_get_prop(thr, comp_ctx->curr_func.varmap_idx); + reg_bind = duk_to_int(thr, -1); /* [ ... name reg_bind ] */ + duk__emit_a_bc(comp_ctx, + DUK_OP_CLOSURE, + reg_bind, + (duk_regconst_t) fnum); + } else { + /* function: always register bound */ + reg_bind = DUK__ALLOCTEMP(comp_ctx); + duk__emit_a_bc(comp_ctx, + DUK_OP_CLOSURE, + reg_bind, + (duk_regconst_t) fnum); + duk_push_int(thr, (duk_int_t) reg_bind); + } + } else { + /* Function declaration for global/eval code is emitted even + * for duplicates, because of E5 Section 10.5, step 5.e of + * E5.1 (special behavior for variable bound to global object). + * + * DECLVAR will not re-declare a variable as such, but will + * update the binding value. + */ + + duk_regconst_t reg_temp = DUK__ALLOCTEMP(comp_ctx); + duk_dup_top(thr); + rc_name = duk__getconst(comp_ctx); + duk_push_null(thr); + + duk__emit_a_bc(comp_ctx, + DUK_OP_CLOSURE, + reg_temp, + (duk_regconst_t) fnum); + + declvar_flags = DUK_PROPDESC_FLAG_WRITABLE | + DUK_PROPDESC_FLAG_ENUMERABLE | + DUK_BC_DECLVAR_FLAG_FUNC_DECL; + + if (configurable_bindings) { + declvar_flags |= DUK_PROPDESC_FLAG_CONFIGURABLE; + } + + duk__emit_a_b_c(comp_ctx, + DUK_OP_DECLVAR | DUK__EMIT_FLAG_NO_SHUFFLE_A | DUK__EMIT_FLAG_BC_REGCONST, + (duk_regconst_t) declvar_flags /*flags*/, + rc_name /*name*/, + reg_temp /*value*/); + + DUK__SETTEMP(comp_ctx, reg_temp); /* forget temp */ + } + + DUK_DDD(DUK_DDDPRINT("function declaration to varmap: %!T -> %!T", + (duk_tval *) duk_get_tval(thr, -2), + (duk_tval *) duk_get_tval(thr, -1))); + +#if defined(DUK_USE_FASTINT) + DUK_ASSERT(DUK_TVAL_IS_NULL(duk_get_tval(thr, -1)) || DUK_TVAL_IS_FASTINT(duk_get_tval(thr, -1))); +#endif + duk_put_prop(thr, comp_ctx->curr_func.varmap_idx); /* [ ... name reg/null ] -> [ ... ] */ + } + + /* + * 'arguments' binding is special; if a shadowing argument or + * function declaration exists, an arguments object will + * definitely not be needed, regardless of whether the identifier + * 'arguments' is referenced inside the function body. + */ + + if (duk_has_prop_stridx(thr, comp_ctx->curr_func.varmap_idx, DUK_STRIDX_LC_ARGUMENTS)) { + DUK_DDD(DUK_DDDPRINT("'arguments' is shadowed by argument or function declaration " + "-> arguments object creation can be skipped")); + comp_ctx->curr_func.is_arguments_shadowed = 1; + } + + /* + * Variable declarations. + * + * Unlike function declarations, variable declaration values don't get + * assigned on entry. If a binding of the same name already exists, just + * ignore it silently. + */ + + for (i = 0; i < num_decls; i += 2) { + duk_int_t decl_type; + + duk_get_prop_index(thr, comp_ctx->curr_func.decls_idx, i + 1); /* decl type */ + decl_type = duk_to_int(thr, -1); + decl_type = decl_type & 0xff; + duk_pop(thr); + + if (decl_type != DUK_DECL_TYPE_VAR) { + continue; + } + + duk_get_prop_index(thr, comp_ctx->curr_func.decls_idx, i); /* decl name */ + + if (duk_has_prop(thr, comp_ctx->curr_func.varmap_idx)) { + /* shadowed, ignore */ + } else { + duk_get_prop_index(thr, comp_ctx->curr_func.decls_idx, i); /* decl name */ + h_name = duk_known_hstring(thr, -1); + + if (h_name == DUK_HTHREAD_STRING_LC_ARGUMENTS(thr) && + !comp_ctx->curr_func.is_arguments_shadowed) { + /* E5 Section steps 7-8 */ + DUK_DDD(DUK_DDDPRINT("'arguments' not shadowed by a function declaration, " + "but appears as a variable declaration -> treat as " + "a no-op for variable declaration purposes")); + duk_pop(thr); + continue; + } + + /* XXX: spilling */ + if (comp_ctx->curr_func.is_function) { + duk_regconst_t reg_bind = DUK__ALLOCTEMP(comp_ctx); + /* no need to init reg, it will be undefined on entry */ + duk_push_int(thr, (duk_int_t) reg_bind); + } else { + duk_dup_top(thr); + rc_name = duk__getconst(comp_ctx); + duk_push_null(thr); + + declvar_flags = DUK_PROPDESC_FLAG_WRITABLE | + DUK_PROPDESC_FLAG_ENUMERABLE; + if (configurable_bindings) { + declvar_flags |= DUK_PROPDESC_FLAG_CONFIGURABLE; + } + + duk__emit_a_b_c(comp_ctx, + DUK_OP_DECLVAR | DUK__EMIT_FLAG_NO_SHUFFLE_A | DUK__EMIT_FLAG_BC_REGCONST, + (duk_regconst_t) declvar_flags /*flags*/, + rc_name /*name*/, + 0 /*value*/); + } + + duk_put_prop(thr, comp_ctx->curr_func.varmap_idx); /* [ ... name reg/null ] -> [ ... ] */ + } + } + + /* + * Wrap up + */ + + DUK_DDD(DUK_DDDPRINT("varmap: %!T, is_arguments_shadowed=%ld", + (duk_tval *) duk_get_tval(thr, comp_ctx->curr_func.varmap_idx), + (long) comp_ctx->curr_func.is_arguments_shadowed)); + + DUK_ASSERT_TOP(thr, entry_top); + return; + + error_outofregs: + DUK_ERROR_RANGE(thr, DUK_STR_REG_LIMIT); + DUK_WO_NORETURN(return;); + + error_argname: + DUK_ERROR_SYNTAX(thr, DUK_STR_INVALID_ARG_NAME); + DUK_WO_NORETURN(return;); +} + +/* + * Parse a function-body-like expression (FunctionBody or Program + * in E5 grammar) using a two-pass parse. The productions appear + * in the following contexts: + * + * - function expression + * - function statement + * - function declaration + * - getter in object literal + * - setter in object literal + * - global code + * - eval code + * - Function constructor body + * + * This function only parses the statement list of the body; the argument + * list and possible function name must be initialized by the caller. + * For instance, for Function constructor, the argument names are originally + * on the value stack. The parsing of statements ends either at an EOF or + * a closing brace; this is controlled by an input flag. + * + * Note that there are many differences affecting parsing and even code + * generation: + * + * - Global and eval code have an implicit return value generated + * by the last statement; function code does not + * + * - Global code, eval code, and Function constructor body end in + * an EOF, other bodies in a closing brace ('}') + * + * Upon entry, 'curr_tok' is ignored and the function will pull in the + * first token on its own. Upon exit, 'curr_tok' is the terminating + * token (EOF or closing brace). + */ + +DUK_LOCAL void duk__parse_func_body(duk_compiler_ctx *comp_ctx, duk_bool_t expect_eof, duk_bool_t implicit_return_value, duk_bool_t regexp_after, duk_small_int_t expect_token) { + duk_compiler_func *func; + duk_hthread *thr; + duk_regconst_t reg_stmt_value = -1; + duk_lexer_point lex_pt; + duk_regconst_t temp_first; + duk_small_int_t compile_round = 1; + + DUK_ASSERT(comp_ctx != NULL); + + thr = comp_ctx->thr; + DUK_ASSERT(thr != NULL); + + func = &comp_ctx->curr_func; + DUK_ASSERT(func != NULL); + + DUK__RECURSION_INCREASE(comp_ctx, thr); + + duk_require_stack(thr, DUK__FUNCTION_BODY_REQUIRE_SLOTS); + + /* + * Store lexer position for a later rewind + */ + + DUK_LEXER_GETPOINT(&comp_ctx->lex, &lex_pt); + + /* + * Program code (global and eval code) has an implicit return value + * from the last statement value (e.g. eval("1; 2+3;") returns 3). + * This is not the case with functions. If implicit statement return + * value is requested, all statements are coerced to a register + * allocated here, and used in the implicit return statement below. + */ + + /* XXX: this is pointless here because pass 1 is throw-away */ + if (implicit_return_value) { + reg_stmt_value = DUK__ALLOCTEMP(comp_ctx); + + /* If an implicit return value is needed by caller, it must be + * initialized to 'undefined' because we don't know whether any + * non-empty (where "empty" is a continuation type, and different + * from an empty statement) statements will be executed. + * + * However, since 1st pass is a throwaway one, no need to emit + * it here. + */ +#if 0 + duk__emit_bc(comp_ctx, + DUK_OP_LDUNDEF, + 0); +#endif + } + + /* + * First pass. + * + * Gather variable/function declarations needed for second pass. + * Code generated is dummy and discarded. + */ + + func->in_directive_prologue = 1; + func->in_scanning = 1; + func->may_direct_eval = 0; + func->id_access_arguments = 0; + func->id_access_slow = 0; + func->id_access_slow_own = 0; + func->reg_stmt_value = reg_stmt_value; +#if defined(DUK_USE_DEBUGGER_SUPPORT) + func->min_line = DUK_INT_MAX; + func->max_line = 0; +#endif + + /* duk__parse_stmts() expects curr_tok to be set; parse in "allow + * regexp literal" mode with current strictness. + */ + if (expect_token >= 0) { + /* Eating a left curly; regexp mode is allowed by left curly + * based on duk__token_lbp[] automatically. + */ + DUK_ASSERT(expect_token == DUK_TOK_LCURLY); + duk__update_lineinfo_currtoken(comp_ctx); + duk__advance_expect(comp_ctx, expect_token); + } else { + /* Need to set curr_token.t because lexing regexp mode depends on current + * token type. Zero value causes "allow regexp" mode. + */ + comp_ctx->curr_token.t = 0; + duk__advance(comp_ctx); + } + + DUK_DDD(DUK_DDDPRINT("begin 1st pass")); + duk__parse_stmts(comp_ctx, + 1, /* allow source elements */ + expect_eof, /* expect EOF instead of } */ + regexp_after); /* regexp after */ + DUK_DDD(DUK_DDDPRINT("end 1st pass")); + + /* + * Second (and possibly third) pass. + * + * Generate actual code. In most cases the need for shuffle + * registers is detected during pass 1, but in some corner cases + * we'll only detect it during pass 2 and a third pass is then + * needed (see GH-115). + */ + + for (;;) { + duk_bool_t needs_shuffle_before = comp_ctx->curr_func.needs_shuffle; + compile_round++; + + /* + * Rewind lexer. + * + * duk__parse_stmts() expects curr_tok to be set; parse in "allow regexp + * literal" mode with current strictness. + * + * curr_token line number info should be initialized for pass 2 before + * generating prologue, to ensure prologue bytecode gets nice line numbers. + */ + + DUK_DDD(DUK_DDDPRINT("rewind lexer")); + DUK_LEXER_SETPOINT(&comp_ctx->lex, &lex_pt); + comp_ctx->curr_token.t = 0; /* this is needed for regexp mode */ + comp_ctx->curr_token.start_line = 0; /* needed for line number tracking (becomes prev_token.start_line) */ + duk__advance(comp_ctx); + + /* + * Reset function state and perform register allocation, which creates + * 'varmap' for second pass. Function prologue for variable declarations, + * binding value initializations etc is emitted as a by-product. + * + * Strict mode restrictions for duplicate and invalid argument + * names are checked here now that we know whether the function + * is actually strict. See: test-dev-strict-mode-boundary.js. + * + * Inner functions are compiled during pass 1 and are not reset. + */ + + duk__reset_func_for_pass2(comp_ctx); + func->in_directive_prologue = 1; + func->in_scanning = 0; + + /* must be able to emit code, alloc consts, etc. */ + + duk__init_varmap_and_prologue_for_pass2(comp_ctx, + (implicit_return_value ? ®_stmt_value : NULL)); + func->reg_stmt_value = reg_stmt_value; + + temp_first = DUK__GETTEMP(comp_ctx); + + func->temp_first = temp_first; + func->temp_next = temp_first; + func->stmt_next = 0; + func->label_next = 0; + + /* XXX: init or assert catch depth etc -- all values */ + func->id_access_arguments = 0; + func->id_access_slow = 0; + func->id_access_slow_own = 0; + + /* + * Check function name validity now that we know strictness. + * This only applies to function declarations and expressions, + * not setter/getter name. + * + * See: test-dev-strict-mode-boundary.js + */ + + if (func->is_function && !func->is_setget && func->h_name != NULL) { + if (func->is_strict) { + if (duk__hstring_is_eval_or_arguments(comp_ctx, func->h_name)) { + DUK_DDD(DUK_DDDPRINT("func name is 'eval' or 'arguments' in strict mode")); + goto error_funcname; + } + if (DUK_HSTRING_HAS_STRICT_RESERVED_WORD(func->h_name)) { + DUK_DDD(DUK_DDDPRINT("func name is a reserved word in strict mode")); + goto error_funcname; + } + } else { + if (DUK_HSTRING_HAS_RESERVED_WORD(func->h_name) && + !DUK_HSTRING_HAS_STRICT_RESERVED_WORD(func->h_name)) { + DUK_DDD(DUK_DDDPRINT("func name is a reserved word in non-strict mode")); + goto error_funcname; + } + } + } + + /* + * Second pass parsing. + */ + + if (implicit_return_value) { + /* Default implicit return value. */ + duk__emit_bc(comp_ctx, + DUK_OP_LDUNDEF, + 0); + } + + DUK_DDD(DUK_DDDPRINT("begin 2nd pass")); + duk__parse_stmts(comp_ctx, + 1, /* allow source elements */ + expect_eof, /* expect EOF instead of } */ + regexp_after); /* regexp after */ + DUK_DDD(DUK_DDDPRINT("end 2nd pass")); + + duk__update_lineinfo_currtoken(comp_ctx); + + if (needs_shuffle_before == comp_ctx->curr_func.needs_shuffle) { + /* Shuffle decision not changed. */ + break; + } + if (compile_round >= 3) { + /* Should never happen but avoid infinite loop just in case. */ + DUK_D(DUK_DPRINT("more than 3 compile passes needed, should never happen")); + DUK_ERROR_INTERNAL(thr); + DUK_WO_NORETURN(return;); + } + DUK_D(DUK_DPRINT("need additional round to compile function, round now %d", (int) compile_round)); + } + + /* + * Emit a final RETURN. + * + * It would be nice to avoid emitting an unnecessary "return" opcode + * if the current PC is not reachable. However, this cannot be reliably + * detected; even if the previous instruction is an unconditional jump, + * there may be a previous jump which jumps to current PC (which is the + * case for iteration and conditional statements, for instance). + */ + + /* XXX: request a "last statement is terminal" from duk__parse_stmt() and duk__parse_stmts(); + * we could avoid the last RETURN if we could ensure there is no way to get here + * (directly or via a jump) + */ + + DUK_ASSERT(comp_ctx->curr_func.catch_depth == 0); + if (reg_stmt_value >= 0) { + DUK_ASSERT(DUK__ISREG(reg_stmt_value)); + duk__emit_bc(comp_ctx, DUK_OP_RETREG, reg_stmt_value /*reg*/); + } else { + duk__emit_op_only(comp_ctx, DUK_OP_RETUNDEF); + } + + /* + * Peephole optimize JUMP chains. + */ + + duk__peephole_optimize_bytecode(comp_ctx); + + /* + * comp_ctx->curr_func is now ready to be converted into an actual + * function template. + */ + + DUK__RECURSION_DECREASE(comp_ctx, thr); + return; + + error_funcname: + DUK_ERROR_SYNTAX(thr, DUK_STR_INVALID_FUNC_NAME); + DUK_WO_NORETURN(return;); +} + +/* + * Parse a function-like expression: + * + * - function expression + * - function declaration + * - function statement (non-standard) + * - setter/getter + * + * Adds the function to comp_ctx->curr_func function table and returns the + * function number. + * + * On entry, curr_token points to: + * + * - the token after 'function' for function expression/declaration/statement + * - the token after 'set' or 'get' for setter/getter + */ + +/* Parse formals. */ +DUK_LOCAL void duk__parse_func_formals(duk_compiler_ctx *comp_ctx) { + duk_hthread *thr = comp_ctx->thr; + duk_bool_t first = 1; + duk_uarridx_t n; + + for (;;) { + if (comp_ctx->curr_token.t == DUK_TOK_RPAREN) { + break; + } + + if (first) { + /* no comma */ + first = 0; + } else { + duk__advance_expect(comp_ctx, DUK_TOK_COMMA); + } + + /* Note: when parsing a formal list in non-strict context, e.g. + * "implements" is parsed as an identifier. When the function is + * later detected to be strict, the argument list must be rechecked + * against a larger set of reserved words (that of strict mode). + * This is handled by duk__parse_func_body(). Here we recognize + * whatever tokens are considered reserved in current strictness + * (which is not always enough). + */ + + if (comp_ctx->curr_token.t != DUK_TOK_IDENTIFIER) { + DUK_ERROR_SYNTAX(thr, DUK_STR_EXPECTED_IDENTIFIER); + DUK_WO_NORETURN(return;); + } + DUK_ASSERT(comp_ctx->curr_token.t == DUK_TOK_IDENTIFIER); + DUK_ASSERT(comp_ctx->curr_token.str1 != NULL); + DUK_DDD(DUK_DDDPRINT("formal argument: %!O", + (duk_heaphdr *) comp_ctx->curr_token.str1)); + + /* XXX: append primitive */ + duk_push_hstring(thr, comp_ctx->curr_token.str1); + n = (duk_uarridx_t) duk_get_length(thr, comp_ctx->curr_func.argnames_idx); + duk_put_prop_index(thr, comp_ctx->curr_func.argnames_idx, n); + + duk__advance(comp_ctx); /* eat identifier */ + } +} + +/* Parse a function-like expression, assuming that 'comp_ctx->curr_func' is + * correctly set up. Assumes that curr_token is just after 'function' (or + * 'set'/'get' etc). + */ +DUK_LOCAL void duk__parse_func_like_raw(duk_compiler_ctx *comp_ctx, duk_small_uint_t flags) { + duk_hthread *thr = comp_ctx->thr; + duk_token *tok; + duk_bool_t no_advance; + + DUK_ASSERT(comp_ctx->curr_func.num_formals == 0); + DUK_ASSERT(comp_ctx->curr_func.is_function == 1); + DUK_ASSERT(comp_ctx->curr_func.is_eval == 0); + DUK_ASSERT(comp_ctx->curr_func.is_global == 0); + DUK_ASSERT(comp_ctx->curr_func.is_setget == ((flags & DUK__FUNC_FLAG_GETSET) != 0)); + + duk__update_lineinfo_currtoken(comp_ctx); + + /* + * Function name (if any) + * + * We don't check for prohibited names here, because we don't + * yet know whether the function will be strict. Function body + * parsing handles this retroactively. + * + * For function expressions and declarations function name must + * be an Identifer (excludes reserved words). For setter/getter + * it is a PropertyName which allows reserved words and also + * strings and numbers (e.g. "{ get 1() { ... } }"). + * + * Function parsing may start either from prev_token or curr_token + * (object literal method definition uses prev_token for example). + * This is dealt with for the initial token. + */ + + no_advance = (flags & DUK__FUNC_FLAG_USE_PREVTOKEN); + if (no_advance) { + tok = &comp_ctx->prev_token; + } else { + tok = &comp_ctx->curr_token; + } + + if (flags & DUK__FUNC_FLAG_GETSET) { + /* PropertyName -> IdentifierName | StringLiteral | NumericLiteral */ + if (tok->t_nores == DUK_TOK_IDENTIFIER || tok->t == DUK_TOK_STRING) { + duk_push_hstring(thr, tok->str1); /* keep in valstack */ + } else if (tok->t == DUK_TOK_NUMBER) { + duk_push_number(thr, tok->num); + duk_to_string(thr, -1); + } else { + DUK_ERROR_SYNTAX(thr, DUK_STR_INVALID_GETSET_NAME); + DUK_WO_NORETURN(return;); + } + comp_ctx->curr_func.h_name = duk_known_hstring(thr, -1); /* borrowed reference */ + } else { + /* Function name is an Identifier (not IdentifierName), but we get + * the raw name (not recognizing keywords) here and perform the name + * checks only after pass 1. + */ + if (tok->t_nores == DUK_TOK_IDENTIFIER) { + duk_push_hstring(thr, tok->str1); /* keep in valstack */ + comp_ctx->curr_func.h_name = duk_known_hstring(thr, -1); /* borrowed reference */ + } else { + /* valstack will be unbalanced, which is OK */ + DUK_ASSERT((flags & DUK__FUNC_FLAG_GETSET) == 0); + DUK_ASSERT(comp_ctx->curr_func.h_name == NULL); + no_advance = 1; + if (flags & DUK__FUNC_FLAG_DECL) { + DUK_ERROR_SYNTAX(thr, DUK_STR_FUNC_NAME_REQUIRED); + DUK_WO_NORETURN(return;); + } + } + } + + DUK_DD(DUK_DDPRINT("function name: %!O", + (duk_heaphdr *) comp_ctx->curr_func.h_name)); + + if (!no_advance) { + duk__advance(comp_ctx); + } + + /* + * Formal argument list + * + * We don't check for prohibited names or for duplicate argument + * names here, becase we don't yet know whether the function will + * be strict. Function body parsing handles this retroactively. + */ + + duk__advance_expect(comp_ctx, DUK_TOK_LPAREN); + + duk__parse_func_formals(comp_ctx); + + DUK_ASSERT(comp_ctx->curr_token.t == DUK_TOK_RPAREN); + duk__advance(comp_ctx); + + /* + * Parse function body + */ + + duk__parse_func_body(comp_ctx, + 0, /* expect_eof */ + 0, /* implicit_return_value */ + flags & DUK__FUNC_FLAG_DECL, /* regexp_after */ + DUK_TOK_LCURLY); /* expect_token */ + + /* + * Convert duk_compiler_func to a function template and add it + * to the parent function table. + */ + + duk__convert_to_func_template(comp_ctx); /* -> [ ... func ] */ +} + +/* Parse an inner function, adding the function template to the current function's + * function table. Return a function number to be used by the outer function. + * + * Avoiding O(depth^2) inner function parsing is handled here. On the first pass, + * compile and register the function normally into the 'funcs' array, also recording + * a lexer point (offset/line) to the closing brace of the function. On the second + * pass, skip the function and return the same 'fnum' as on the first pass by using + * a running counter. + * + * An unfortunate side effect of this is that when parsing the inner function, almost + * nothing is known of the outer function, i.e. the inner function's scope. We don't + * need that information at the moment, but it would allow some optimizations if it + * were used. + */ +DUK_LOCAL duk_int_t duk__parse_func_like_fnum(duk_compiler_ctx *comp_ctx, duk_small_uint_t flags) { + duk_hthread *thr = comp_ctx->thr; + duk_compiler_func old_func; + duk_idx_t entry_top; + duk_int_t fnum; + + /* + * On second pass, skip the function. + */ + + if (!comp_ctx->curr_func.in_scanning) { + duk_lexer_point lex_pt; + + fnum = comp_ctx->curr_func.fnum_next++; + duk_get_prop_index(thr, comp_ctx->curr_func.funcs_idx, (duk_uarridx_t) (fnum * 3 + 1)); + lex_pt.offset = (duk_size_t) duk_to_uint(thr, -1); + duk_pop(thr); + duk_get_prop_index(thr, comp_ctx->curr_func.funcs_idx, (duk_uarridx_t) (fnum * 3 + 2)); + lex_pt.line = duk_to_int(thr, -1); + duk_pop(thr); + + DUK_DDD(DUK_DDDPRINT("second pass of an inner func, skip the function, reparse closing brace; lex offset=%ld, line=%ld", + (long) lex_pt.offset, (long) lex_pt.line)); + + DUK_LEXER_SETPOINT(&comp_ctx->lex, &lex_pt); + comp_ctx->curr_token.t = 0; /* this is needed for regexp mode */ + comp_ctx->curr_token.start_line = 0; /* needed for line number tracking (becomes prev_token.start_line) */ + duk__advance(comp_ctx); + + /* RegExp is not allowed after a function expression, e.g. in + * (function () {} / 123). A RegExp *is* allowed after a + * function declaration! + */ + if (flags & DUK__FUNC_FLAG_DECL) { + comp_ctx->curr_func.allow_regexp_in_adv = 1; + } + duk__advance_expect(comp_ctx, DUK_TOK_RCURLY); + + return fnum; + } + + /* + * On first pass, perform actual parsing. Remember valstack top on entry + * to restore it later, and switch to using a new function in comp_ctx. + */ + + entry_top = duk_get_top(thr); + DUK_DDD(DUK_DDDPRINT("before func: entry_top=%ld, curr_tok.start_offset=%ld", + (long) entry_top, (long) comp_ctx->curr_token.start_offset)); + + duk_memcpy(&old_func, &comp_ctx->curr_func, sizeof(duk_compiler_func)); + + duk_memzero(&comp_ctx->curr_func, sizeof(duk_compiler_func)); + duk__init_func_valstack_slots(comp_ctx); + DUK_ASSERT(comp_ctx->curr_func.num_formals == 0); + + /* inherit initial strictness from parent */ + comp_ctx->curr_func.is_strict = old_func.is_strict; + + /* XXX: It might be better to just store the flags into the curr_func + * struct and use them as is without this flag interpretation step + * here. + */ + DUK_ASSERT(comp_ctx->curr_func.is_notail == 0); + comp_ctx->curr_func.is_function = 1; + DUK_ASSERT(comp_ctx->curr_func.is_eval == 0); + DUK_ASSERT(comp_ctx->curr_func.is_global == 0); + comp_ctx->curr_func.is_setget = ((flags & DUK__FUNC_FLAG_GETSET) != 0); + comp_ctx->curr_func.is_namebinding = !(flags & (DUK__FUNC_FLAG_GETSET | + DUK__FUNC_FLAG_METDEF | + DUK__FUNC_FLAG_DECL)); /* no name binding for: declarations, objlit getset, objlit method def */ + comp_ctx->curr_func.is_constructable = !(flags & (DUK__FUNC_FLAG_GETSET | + DUK__FUNC_FLAG_METDEF)); /* not constructable: objlit getset, objlit method def */ + + /* + * Parse inner function + */ + + duk__parse_func_like_raw(comp_ctx, flags); /* pushes function template */ + + /* prev_token.start_offset points to the closing brace here; when skipping + * we're going to reparse the closing brace to ensure semicolon insertion + * etc work as expected. + */ + DUK_DDD(DUK_DDDPRINT("after func: prev_tok.start_offset=%ld, curr_tok.start_offset=%ld", + (long) comp_ctx->prev_token.start_offset, (long) comp_ctx->curr_token.start_offset)); + DUK_ASSERT(comp_ctx->lex.input[comp_ctx->prev_token.start_offset] == (duk_uint8_t) DUK_ASC_RCURLY); + + /* XXX: append primitive */ + DUK_ASSERT(duk_get_length(thr, old_func.funcs_idx) == (duk_size_t) (old_func.fnum_next * 3)); + fnum = old_func.fnum_next++; + + if (fnum > DUK__MAX_FUNCS) { + DUK_ERROR_RANGE(comp_ctx->thr, DUK_STR_FUNC_LIMIT); + DUK_WO_NORETURN(return 0;); + } + + /* array writes autoincrement length */ + (void) duk_put_prop_index(thr, old_func.funcs_idx, (duk_uarridx_t) (fnum * 3)); + duk_push_size_t(thr, comp_ctx->prev_token.start_offset); + (void) duk_put_prop_index(thr, old_func.funcs_idx, (duk_uarridx_t) (fnum * 3 + 1)); + duk_push_int(thr, comp_ctx->prev_token.start_line); + (void) duk_put_prop_index(thr, old_func.funcs_idx, (duk_uarridx_t) (fnum * 3 + 2)); + + /* + * Cleanup: restore original function, restore valstack state. + * + * Function declaration handling needs the function name to be pushed + * on the value stack. + */ + + if (flags & DUK__FUNC_FLAG_PUSHNAME_PASS1) { + DUK_ASSERT(comp_ctx->curr_func.h_name != NULL); + duk_push_hstring(thr, comp_ctx->curr_func.h_name); + duk_replace(thr, entry_top); + duk_set_top(thr, entry_top + 1); + } else { + duk_set_top(thr, entry_top); + } + duk_memcpy((void *) &comp_ctx->curr_func, (void *) &old_func, sizeof(duk_compiler_func)); + + return fnum; +} + +/* + * Compile input string into an executable function template without + * arguments. + * + * The string is parsed as the "Program" production of ECMAScript E5. + * Compilation context can be either global code or eval code (see E5 + * Sections 14 and 15.1.2.1). + * + * Input stack: [ ... filename ] + * Output stack: [ ... func_template ] + */ + +/* XXX: source code property */ + +DUK_LOCAL duk_ret_t duk__js_compile_raw(duk_hthread *thr, void *udata) { + duk_hstring *h_filename; + duk__compiler_stkstate *comp_stk; + duk_compiler_ctx *comp_ctx; + duk_lexer_point *lex_pt; + duk_compiler_func *func; + duk_idx_t entry_top; + duk_bool_t is_strict; + duk_bool_t is_eval; + duk_bool_t is_funcexpr; + duk_small_uint_t flags; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(udata != NULL); + + /* + * Arguments check + */ + + entry_top = duk_get_top(thr); + DUK_ASSERT(entry_top >= 1); + + comp_stk = (duk__compiler_stkstate *) udata; + comp_ctx = &comp_stk->comp_ctx_alloc; + lex_pt = &comp_stk->lex_pt_alloc; + DUK_ASSERT(comp_ctx != NULL); + DUK_ASSERT(lex_pt != NULL); + + flags = comp_stk->flags; + is_eval = (flags & DUK_COMPILE_EVAL ? 1 : 0); + is_strict = (flags & DUK_COMPILE_STRICT ? 1 : 0); + is_funcexpr = (flags & DUK_COMPILE_FUNCEXPR ? 1 : 0); + + h_filename = duk_get_hstring(thr, -1); /* may be undefined */ + + /* + * Init compiler and lexer contexts + */ + + func = &comp_ctx->curr_func; +#if defined(DUK_USE_EXPLICIT_NULL_INIT) + comp_ctx->thr = NULL; + comp_ctx->h_filename = NULL; + comp_ctx->prev_token.str1 = NULL; + comp_ctx->prev_token.str2 = NULL; + comp_ctx->curr_token.str1 = NULL; + comp_ctx->curr_token.str2 = NULL; +#endif + + duk_require_stack(thr, DUK__COMPILE_ENTRY_SLOTS); + + duk_push_dynamic_buffer(thr, 0); /* entry_top + 0 */ + duk_push_undefined(thr); /* entry_top + 1 */ + duk_push_undefined(thr); /* entry_top + 2 */ + duk_push_undefined(thr); /* entry_top + 3 */ + duk_push_undefined(thr); /* entry_top + 4 */ + + comp_ctx->thr = thr; + comp_ctx->h_filename = h_filename; + comp_ctx->tok11_idx = entry_top + 1; + comp_ctx->tok12_idx = entry_top + 2; + comp_ctx->tok21_idx = entry_top + 3; + comp_ctx->tok22_idx = entry_top + 4; + comp_ctx->recursion_limit = DUK_USE_COMPILER_RECLIMIT; + + /* comp_ctx->lex has been pre-initialized by caller: it has been + * zeroed and input/input_length has been set. + */ + comp_ctx->lex.thr = thr; + /* comp_ctx->lex.input and comp_ctx->lex.input_length filled by caller */ + comp_ctx->lex.slot1_idx = comp_ctx->tok11_idx; + comp_ctx->lex.slot2_idx = comp_ctx->tok12_idx; + comp_ctx->lex.buf_idx = entry_top + 0; + comp_ctx->lex.buf = (duk_hbuffer_dynamic *) duk_known_hbuffer(thr, entry_top + 0); + DUK_ASSERT(DUK_HBUFFER_HAS_DYNAMIC(comp_ctx->lex.buf) && !DUK_HBUFFER_HAS_EXTERNAL(comp_ctx->lex.buf)); + comp_ctx->lex.token_limit = DUK_COMPILER_TOKEN_LIMIT; + + lex_pt->offset = 0; + lex_pt->line = 1; + DUK_LEXER_SETPOINT(&comp_ctx->lex, lex_pt); /* fills window */ + comp_ctx->curr_token.start_line = 0; /* needed for line number tracking (becomes prev_token.start_line) */ + + /* + * Initialize function state for a zero-argument function + */ + + duk__init_func_valstack_slots(comp_ctx); + DUK_ASSERT(func->num_formals == 0); + + if (is_funcexpr) { + /* Name will be filled from function expression, not by caller. + * This case is used by Function constructor and duk_compile() + * API with the DUK_COMPILE_FUNCTION option. + */ + DUK_ASSERT(func->h_name == NULL); + } else { + duk_push_hstring_stridx(thr, (is_eval ? DUK_STRIDX_EVAL : + DUK_STRIDX_GLOBAL)); + func->h_name = duk_get_hstring(thr, -1); + } + + /* + * Parse a function body or a function-like expression, depending + * on flags. + */ + + DUK_ASSERT(func->is_setget == 0); + func->is_strict = (duk_uint8_t) is_strict; + DUK_ASSERT(func->is_notail == 0); + + if (is_funcexpr) { + func->is_function = 1; + DUK_ASSERT(func->is_eval == 0); + DUK_ASSERT(func->is_global == 0); + func->is_namebinding = 1; + func->is_constructable = 1; + + duk__advance(comp_ctx); /* init 'curr_token' */ + duk__advance_expect(comp_ctx, DUK_TOK_FUNCTION); + (void) duk__parse_func_like_raw(comp_ctx, 0 /*flags*/); + } else { + DUK_ASSERT(func->is_function == 0); + DUK_ASSERT(is_eval == 0 || is_eval == 1); + func->is_eval = (duk_uint8_t) is_eval; + func->is_global = (duk_uint8_t) !is_eval; + DUK_ASSERT(func->is_namebinding == 0); + DUK_ASSERT(func->is_constructable == 0); + + duk__parse_func_body(comp_ctx, + 1, /* expect_eof */ + 1, /* implicit_return_value */ + 1, /* regexp_after (does not matter) */ + -1); /* expect_token */ + } + + /* + * Convert duk_compiler_func to a function template + */ + + duk__convert_to_func_template(comp_ctx); + + /* + * Wrapping duk_safe_call() will mangle the stack, just return stack top + */ + + /* [ ... filename (temps) func ] */ + + return 1; +} + +DUK_INTERNAL void duk_js_compile(duk_hthread *thr, const duk_uint8_t *src_buffer, duk_size_t src_length, duk_small_uint_t flags) { + duk__compiler_stkstate comp_stk; + duk_compiler_ctx *prev_ctx; + duk_ret_t safe_rc; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(src_buffer != NULL); + + /* preinitialize lexer state partially */ + duk_memzero(&comp_stk, sizeof(comp_stk)); + comp_stk.flags = flags; + DUK_LEXER_INITCTX(&comp_stk.comp_ctx_alloc.lex); + comp_stk.comp_ctx_alloc.lex.input = src_buffer; + comp_stk.comp_ctx_alloc.lex.input_length = src_length; + comp_stk.comp_ctx_alloc.lex.flags = flags; /* Forward flags directly for now. */ + + /* [ ... filename ] */ + + prev_ctx = thr->compile_ctx; + thr->compile_ctx = &comp_stk.comp_ctx_alloc; /* for duk_error_augment.c */ + safe_rc = duk_safe_call(thr, duk__js_compile_raw, (void *) &comp_stk /*udata*/, 1 /*nargs*/, 1 /*nrets*/); + thr->compile_ctx = prev_ctx; /* must restore reliably before returning */ + + if (safe_rc != DUK_EXEC_SUCCESS) { + DUK_D(DUK_DPRINT("compilation failed: %!T", duk_get_tval(thr, -1))); + (void) duk_throw(thr); + DUK_WO_NORETURN(return;); + } + + /* [ ... template ] */ +} + +/* automatic undefs */ +#undef DUK__ALLOCTEMP +#undef DUK__ALLOCTEMPS +#undef DUK__ALLOW_AUTO_SEMI_ALWAYS +#undef DUK__BC_INITIAL_INSTS +#undef DUK__BP_ADDITIVE +#undef DUK__BP_ASSIGNMENT +#undef DUK__BP_BAND +#undef DUK__BP_BOR +#undef DUK__BP_BXOR +#undef DUK__BP_CALL +#undef DUK__BP_CLOSING +#undef DUK__BP_COMMA +#undef DUK__BP_CONDITIONAL +#undef DUK__BP_EOF +#undef DUK__BP_EQUALITY +#undef DUK__BP_EXPONENTIATION +#undef DUK__BP_FOR_EXPR +#undef DUK__BP_INVALID +#undef DUK__BP_LAND +#undef DUK__BP_LOR +#undef DUK__BP_MEMBER +#undef DUK__BP_MULTIPLICATIVE +#undef DUK__BP_POSTFIX +#undef DUK__BP_RELATIONAL +#undef DUK__BP_SHIFT +#undef DUK__COMPILE_ENTRY_SLOTS +#undef DUK__CONST_MARKER +#undef DUK__DUMP_ISPEC +#undef DUK__DUMP_IVALUE +#undef DUK__EMIT_FLAG_A_IS_SOURCE +#undef DUK__EMIT_FLAG_BC_REGCONST +#undef DUK__EMIT_FLAG_B_IS_TARGET +#undef DUK__EMIT_FLAG_C_IS_TARGET +#undef DUK__EMIT_FLAG_NO_SHUFFLE_A +#undef DUK__EMIT_FLAG_NO_SHUFFLE_B +#undef DUK__EMIT_FLAG_NO_SHUFFLE_C +#undef DUK__EMIT_FLAG_RESERVE_JUMPSLOT +#undef DUK__EXPR_FLAG_ALLOW_EMPTY +#undef DUK__EXPR_FLAG_REJECT_IN +#undef DUK__EXPR_FLAG_REQUIRE_INIT +#undef DUK__EXPR_RBP_MASK +#undef DUK__FUNCTION_BODY_REQUIRE_SLOTS +#undef DUK__FUNCTION_INIT_REQUIRE_SLOTS +#undef DUK__FUNC_FLAG_DECL +#undef DUK__FUNC_FLAG_GETSET +#undef DUK__FUNC_FLAG_METDEF +#undef DUK__FUNC_FLAG_PUSHNAME_PASS1 +#undef DUK__FUNC_FLAG_USE_PREVTOKEN +#undef DUK__GETCONST_MAX_CONSTS_CHECK +#undef DUK__GETTEMP +#undef DUK__HAS_TERM +#undef DUK__HAS_VAL +#undef DUK__ISCONST +#undef DUK__ISREG +#undef DUK__ISREG_NOTTEMP +#undef DUK__ISREG_TEMP +#undef DUK__IS_TERMINAL +#undef DUK__IVAL_FLAG_ALLOW_CONST +#undef DUK__IVAL_FLAG_REQUIRE_SHORT +#undef DUK__IVAL_FLAG_REQUIRE_TEMP +#undef DUK__MAX_ARRAY_INIT_VALUES +#undef DUK__MAX_CONSTS +#undef DUK__MAX_FUNCS +#undef DUK__MAX_OBJECT_INIT_PAIRS +#undef DUK__MAX_TEMPS +#undef DUK__MK_LBP +#undef DUK__MK_LBP_FLAGS +#undef DUK__OBJ_LIT_KEY_GET +#undef DUK__OBJ_LIT_KEY_PLAIN +#undef DUK__OBJ_LIT_KEY_SET +#undef DUK__PARSE_EXPR_SLOTS +#undef DUK__PARSE_STATEMENTS_SLOTS +#undef DUK__RECURSION_DECREASE +#undef DUK__RECURSION_INCREASE +#undef DUK__REMOVECONST +#undef DUK__SETTEMP +#undef DUK__SETTEMP_CHECKMAX +#undef DUK__STILL_PROLOGUE +#undef DUK__TOKEN_LBP_BP_MASK +#undef DUK__TOKEN_LBP_FLAG_NO_REGEXP +#undef DUK__TOKEN_LBP_FLAG_TERMINATES +#undef DUK__TOKEN_LBP_FLAG_UNUSED +#undef DUK__TOKEN_LBP_GET_BP +#line 1 "duk_js_executor.c" +/* + * ECMAScript bytecode executor. + */ + +/* #include duk_internal.h -> already included */ + +/* + * Local declarations. + */ + +DUK_LOCAL_DECL void duk__js_execute_bytecode_inner(duk_hthread *entry_thread, duk_activation *entry_act); + +/* + * Misc helpers. + */ + +/* Replace value stack top to value at 'tv_ptr'. Optimize for + * performance by only applying the net refcount change. + */ +#define DUK__REPLACE_TO_TVPTR(thr,tv_ptr) do { \ + duk_hthread *duk__thr; \ + duk_tval *duk__tvsrc; \ + duk_tval *duk__tvdst; \ + duk_tval duk__tvtmp; \ + duk__thr = (thr); \ + duk__tvsrc = DUK_GET_TVAL_NEGIDX(duk__thr, -1); \ + duk__tvdst = (tv_ptr); \ + DUK_TVAL_SET_TVAL(&duk__tvtmp, duk__tvdst); \ + DUK_TVAL_SET_TVAL(duk__tvdst, duk__tvsrc); \ + DUK_TVAL_SET_UNDEFINED(duk__tvsrc); /* value stack init policy */ \ + duk__thr->valstack_top = duk__tvsrc; \ + DUK_TVAL_DECREF(duk__thr, &duk__tvtmp); \ + } while (0) + +/* XXX: candidate of being an internal shared API call */ +#if 0 /* unused */ +DUK_LOCAL void duk__push_tvals_incref_only(duk_hthread *thr, duk_tval *tv_src, duk_small_uint_fast_t count) { + duk_tval *tv_dst; + duk_size_t copy_size; + duk_size_t i; + + tv_dst = thr->valstack_top; + copy_size = sizeof(duk_tval) * count; + duk_memcpy((void *) tv_dst, (const void *) tv_src, copy_size); + for (i = 0; i < count; i++) { + DUK_TVAL_INCREF(thr, tv_dst); + tv_dst++; + } + thr->valstack_top = tv_dst; +} +#endif + +/* + * Arithmetic, binary, and logical helpers. + * + * Note: there is no opcode for logical AND or logical OR; this is on + * purpose, because the evalution order semantics for them make such + * opcodes pretty pointless: short circuiting means they are most + * comfortably implemented as jumps. However, a logical NOT opcode + * is useful. + * + * Note: careful with duk_tval pointers here: they are potentially + * invalidated by any DECREF and almost any API call. It's still + * preferable to work without making a copy but that's not always + * possible. + */ + +DUK_LOCAL DUK_EXEC_ALWAYS_INLINE_PERF duk_double_t duk__compute_mod(duk_double_t d1, duk_double_t d2) { + return (duk_double_t) duk_js_arith_mod((double) d1, (double) d2); +} + +#if defined(DUK_USE_ES7_EXP_OPERATOR) +DUK_LOCAL DUK_EXEC_ALWAYS_INLINE_PERF duk_double_t duk__compute_exp(duk_double_t d1, duk_double_t d2) { + return (duk_double_t) duk_js_arith_pow((double) d1, (double) d2); +} +#endif + +DUK_LOCAL DUK_EXEC_ALWAYS_INLINE_PERF void duk__vm_arith_add(duk_hthread *thr, duk_tval *tv_x, duk_tval *tv_y, duk_small_uint_fast_t idx_z) { + /* + * Addition operator is different from other arithmetic + * operations in that it also provides string concatenation. + * Hence it is implemented separately. + * + * There is a fast path for number addition. Other cases go + * through potentially multiple coercions as described in the + * E5 specification. It may be possible to reduce the number + * of coercions, but this must be done carefully to preserve + * the exact semantics. + * + * E5 Section 11.6.1. + * + * Custom types also have special behavior implemented here. + */ + + duk_double_union du; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(tv_x != NULL); /* may be reg or const */ + DUK_ASSERT(tv_y != NULL); /* may be reg or const */ + DUK_ASSERT_DISABLE(idx_z >= 0); /* unsigned */ + DUK_ASSERT((duk_uint_t) idx_z < (duk_uint_t) duk_get_top(thr)); + + /* + * Fast paths + */ + +#if defined(DUK_USE_FASTINT) + if (DUK_TVAL_IS_FASTINT(tv_x) && DUK_TVAL_IS_FASTINT(tv_y)) { + duk_int64_t v1, v2, v3; + duk_int32_t v3_hi; + duk_tval *tv_z; + + /* Input values are signed 48-bit so we can detect overflow + * reliably from high bits or just a comparison. + */ + + v1 = DUK_TVAL_GET_FASTINT(tv_x); + v2 = DUK_TVAL_GET_FASTINT(tv_y); + v3 = v1 + v2; + v3_hi = (duk_int32_t) (v3 >> 32); + if (DUK_LIKELY(v3_hi >= DUK_I64_CONSTANT(-0x8000) && v3_hi <= DUK_I64_CONSTANT(0x7fff))) { + tv_z = thr->valstack_bottom + idx_z; + DUK_TVAL_SET_FASTINT_UPDREF(thr, tv_z, v3); /* side effects */ + return; + } else { + /* overflow, fall through */ + ; + } + } +#endif /* DUK_USE_FASTINT */ + + if (DUK_TVAL_IS_NUMBER(tv_x) && DUK_TVAL_IS_NUMBER(tv_y)) { +#if !defined(DUK_USE_EXEC_PREFER_SIZE) + duk_tval *tv_z; +#endif + + du.d = DUK_TVAL_GET_NUMBER(tv_x) + DUK_TVAL_GET_NUMBER(tv_y); +#if defined(DUK_USE_EXEC_PREFER_SIZE) + duk_push_number(thr, du.d); /* will NaN normalize result */ + duk_replace(thr, (duk_idx_t) idx_z); +#else /* DUK_USE_EXEC_PREFER_SIZE */ + DUK_DBLUNION_NORMALIZE_NAN_CHECK(&du); + DUK_ASSERT(DUK_DBLUNION_IS_NORMALIZED(&du)); + tv_z = thr->valstack_bottom + idx_z; + DUK_TVAL_SET_NUMBER_UPDREF(thr, tv_z, du.d); /* side effects */ +#endif /* DUK_USE_EXEC_PREFER_SIZE */ + return; + } + + /* + * Slow path: potentially requires function calls for coercion + */ + + duk_push_tval(thr, tv_x); + duk_push_tval(thr, tv_y); + duk_to_primitive(thr, -2, DUK_HINT_NONE); /* side effects -> don't use tv_x, tv_y after */ + duk_to_primitive(thr, -1, DUK_HINT_NONE); + + /* Since Duktape 2.x plain buffers are treated like ArrayBuffer. */ + if (duk_is_string(thr, -2) || duk_is_string(thr, -1)) { + /* Symbols shouldn't technically be handled here, but should + * go into the default ToNumber() coercion path instead and + * fail there with a TypeError. However, there's a ToString() + * in duk_concat_2() which also fails with TypeError so no + * explicit check is needed. + */ + duk_concat_2(thr); /* [... s1 s2] -> [... s1+s2] */ + } else { + duk_double_t d1, d2; + + d1 = duk_to_number_m2(thr); + d2 = duk_to_number_m1(thr); + DUK_ASSERT(duk_is_number(thr, -2)); + DUK_ASSERT(duk_is_number(thr, -1)); + DUK_ASSERT_DOUBLE_IS_NORMALIZED(d1); + DUK_ASSERT_DOUBLE_IS_NORMALIZED(d2); + + du.d = d1 + d2; + duk_pop_2_unsafe(thr); + duk_push_number(thr, du.d); /* will NaN normalize result */ + } + duk_replace(thr, (duk_idx_t) idx_z); /* side effects */ +} + +DUK_LOCAL DUK_EXEC_ALWAYS_INLINE_PERF void duk__vm_arith_binary_op(duk_hthread *thr, duk_tval *tv_x, duk_tval *tv_y, duk_uint_fast_t idx_z, duk_small_uint_fast_t opcode) { + /* + * Arithmetic operations other than '+' have number-only semantics + * and are implemented here. The separate switch-case here means a + * "double dispatch" of the arithmetic opcode, but saves code space. + * + * E5 Sections 11.5, 11.5.1, 11.5.2, 11.5.3, 11.6, 11.6.1, 11.6.2, 11.6.3. + */ + + duk_double_t d1, d2; + duk_double_union du; + duk_small_uint_fast_t opcode_shifted; +#if defined(DUK_USE_FASTINT) || !defined(DUK_USE_EXEC_PREFER_SIZE) + duk_tval *tv_z; +#endif + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(tv_x != NULL); /* may be reg or const */ + DUK_ASSERT(tv_y != NULL); /* may be reg or const */ + DUK_ASSERT_DISABLE(idx_z >= 0); /* unsigned */ + DUK_ASSERT((duk_uint_t) idx_z < (duk_uint_t) duk_get_top(thr)); + + opcode_shifted = opcode >> 2; /* Get base opcode without reg/const modifiers. */ + +#if defined(DUK_USE_FASTINT) + if (DUK_TVAL_IS_FASTINT(tv_x) && DUK_TVAL_IS_FASTINT(tv_y)) { + duk_int64_t v1, v2, v3; + duk_int32_t v3_hi; + + v1 = DUK_TVAL_GET_FASTINT(tv_x); + v2 = DUK_TVAL_GET_FASTINT(tv_y); + + switch (opcode_shifted) { + case DUK_OP_SUB >> 2: { + v3 = v1 - v2; + break; + } + case DUK_OP_MUL >> 2: { + /* Must ensure result is 64-bit (no overflow); a + * simple and sufficient fast path is to allow only + * 32-bit inputs. Avoid zero inputs to avoid + * negative zero issues (-1 * 0 = -0, for instance). + */ + if (v1 >= DUK_I64_CONSTANT(-0x80000000) && v1 <= DUK_I64_CONSTANT(0x7fffffff) && v1 != 0 && + v2 >= DUK_I64_CONSTANT(-0x80000000) && v2 <= DUK_I64_CONSTANT(0x7fffffff) && v2 != 0) { + v3 = v1 * v2; + } else { + goto skip_fastint; + } + break; + } + case DUK_OP_DIV >> 2: { + /* Don't allow a zero divisor. Fast path check by + * "verifying" with multiplication. Also avoid zero + * dividend to avoid negative zero issues (0 / -1 = -0 + * for instance). + */ + if (v1 == 0 || v2 == 0) { + goto skip_fastint; + } + v3 = v1 / v2; + if (v3 * v2 != v1) { + goto skip_fastint; + } + break; + } + case DUK_OP_MOD >> 2: { + /* Don't allow a zero divisor. Restrict both v1 and + * v2 to positive values to avoid compiler specific + * behavior. + */ + if (v1 < 1 || v2 < 1) { + goto skip_fastint; + } + v3 = v1 % v2; + DUK_ASSERT(v3 >= 0); + DUK_ASSERT(v3 < v2); + DUK_ASSERT(v1 - (v1 / v2) * v2 == v3); + break; + } + default: { + /* Possible with DUK_OP_EXP. */ + goto skip_fastint; + } + } + + v3_hi = (duk_int32_t) (v3 >> 32); + if (DUK_LIKELY(v3_hi >= DUK_I64_CONSTANT(-0x8000) && v3_hi <= DUK_I64_CONSTANT(0x7fff))) { + tv_z = thr->valstack_bottom + idx_z; + DUK_TVAL_SET_FASTINT_UPDREF(thr, tv_z, v3); /* side effects */ + return; + } + /* fall through if overflow etc */ + } + skip_fastint: +#endif /* DUK_USE_FASTINT */ + + if (DUK_TVAL_IS_NUMBER(tv_x) && DUK_TVAL_IS_NUMBER(tv_y)) { + /* fast path */ + d1 = DUK_TVAL_GET_NUMBER(tv_x); + d2 = DUK_TVAL_GET_NUMBER(tv_y); + } else { + duk_push_tval(thr, tv_x); + duk_push_tval(thr, tv_y); + d1 = duk_to_number_m2(thr); /* side effects */ + d2 = duk_to_number_m1(thr); + DUK_ASSERT(duk_is_number(thr, -2)); + DUK_ASSERT(duk_is_number(thr, -1)); + DUK_ASSERT_DOUBLE_IS_NORMALIZED(d1); + DUK_ASSERT_DOUBLE_IS_NORMALIZED(d2); + duk_pop_2_unsafe(thr); + } + + switch (opcode_shifted) { + case DUK_OP_SUB >> 2: { + du.d = d1 - d2; + break; + } + case DUK_OP_MUL >> 2: { + du.d = d1 * d2; + break; + } + case DUK_OP_DIV >> 2: { + /* Division-by-zero is undefined behavior, so + * rely on a helper. + */ + du.d = duk_double_div(d1, d2); + break; + } + case DUK_OP_MOD >> 2: { + du.d = duk__compute_mod(d1, d2); + break; + } +#if defined(DUK_USE_ES7_EXP_OPERATOR) + case DUK_OP_EXP >> 2: { + du.d = duk__compute_exp(d1, d2); + break; + } +#endif + default: { + DUK_UNREACHABLE(); + du.d = DUK_DOUBLE_NAN; /* should not happen */ + break; + } + } + +#if defined(DUK_USE_EXEC_PREFER_SIZE) + duk_push_number(thr, du.d); /* will NaN normalize result */ + duk_replace(thr, (duk_idx_t) idx_z); +#else /* DUK_USE_EXEC_PREFER_SIZE */ + /* important to use normalized NaN with 8-byte tagged types */ + DUK_DBLUNION_NORMALIZE_NAN_CHECK(&du); + DUK_ASSERT(DUK_DBLUNION_IS_NORMALIZED(&du)); + tv_z = thr->valstack_bottom + idx_z; + DUK_TVAL_SET_NUMBER_UPDREF(thr, tv_z, du.d); /* side effects */ +#endif /* DUK_USE_EXEC_PREFER_SIZE */ +} + +DUK_LOCAL DUK_EXEC_ALWAYS_INLINE_PERF void duk__vm_bitwise_binary_op(duk_hthread *thr, duk_tval *tv_x, duk_tval *tv_y, duk_small_uint_fast_t idx_z, duk_small_uint_fast_t opcode) { + /* + * Binary bitwise operations use different coercions (ToInt32, ToUint32) + * depending on the operation. We coerce the arguments first using + * ToInt32(), and then cast to an 32-bit value if necessary. Note that + * such casts must be correct even if there is no native 32-bit type + * (e.g., duk_int32_t and duk_uint32_t are 64-bit). + * + * E5 Sections 11.10, 11.7.1, 11.7.2, 11.7.3 + */ + + duk_int32_t i1, i2, i3; + duk_uint32_t u1, u2, u3; +#if defined(DUK_USE_FASTINT) + duk_int64_t fi3; +#else + duk_double_t d3; +#endif + duk_small_uint_fast_t opcode_shifted; +#if defined(DUK_USE_FASTINT) || !defined(DUK_USE_EXEC_PREFER_SIZE) + duk_tval *tv_z; +#endif + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(tv_x != NULL); /* may be reg or const */ + DUK_ASSERT(tv_y != NULL); /* may be reg or const */ + DUK_ASSERT_DISABLE(idx_z >= 0); /* unsigned */ + DUK_ASSERT((duk_uint_t) idx_z < (duk_uint_t) duk_get_top(thr)); + + opcode_shifted = opcode >> 2; /* Get base opcode without reg/const modifiers. */ + +#if defined(DUK_USE_FASTINT) + if (DUK_TVAL_IS_FASTINT(tv_x) && DUK_TVAL_IS_FASTINT(tv_y)) { + i1 = (duk_int32_t) DUK_TVAL_GET_FASTINT_I32(tv_x); + i2 = (duk_int32_t) DUK_TVAL_GET_FASTINT_I32(tv_y); + } + else +#endif /* DUK_USE_FASTINT */ + { + duk_push_tval(thr, tv_x); + duk_push_tval(thr, tv_y); + i1 = duk_to_int32(thr, -2); + i2 = duk_to_int32(thr, -1); + duk_pop_2_unsafe(thr); + } + + switch (opcode_shifted) { + case DUK_OP_BAND >> 2: { + i3 = i1 & i2; + break; + } + case DUK_OP_BOR >> 2: { + i3 = i1 | i2; + break; + } + case DUK_OP_BXOR >> 2: { + i3 = i1 ^ i2; + break; + } + case DUK_OP_BASL >> 2: { + /* Signed shift, named "arithmetic" (asl) because the result + * is signed, e.g. 4294967295 << 1 -> -2. Note that result + * must be masked. + */ + + u2 = ((duk_uint32_t) i2) & 0xffffffffUL; + i3 = (duk_int32_t) (((duk_uint32_t) i1) << (u2 & 0x1fUL)); /* E5 Section 11.7.1, steps 7 and 8 */ + i3 = i3 & ((duk_int32_t) 0xffffffffUL); /* Note: left shift, should mask */ + break; + } + case DUK_OP_BASR >> 2: { + /* signed shift */ + + u2 = ((duk_uint32_t) i2) & 0xffffffffUL; + i3 = i1 >> (u2 & 0x1fUL); /* E5 Section 11.7.2, steps 7 and 8 */ + break; + } + case DUK_OP_BLSR >> 2: { + /* unsigned shift */ + + u1 = ((duk_uint32_t) i1) & 0xffffffffUL; + u2 = ((duk_uint32_t) i2) & 0xffffffffUL; + + /* special result value handling */ + u3 = u1 >> (u2 & 0x1fUL); /* E5 Section 11.7.2, steps 7 and 8 */ +#if defined(DUK_USE_FASTINT) + fi3 = (duk_int64_t) u3; + goto fastint_result_set; +#else + d3 = (duk_double_t) u3; + goto result_set; +#endif + } + default: { + DUK_UNREACHABLE(); + i3 = 0; /* should not happen */ + break; + } + } + +#if defined(DUK_USE_FASTINT) + /* Result is always fastint compatible. */ + /* XXX: Set 32-bit result (but must then handle signed and + * unsigned results separately). + */ + fi3 = (duk_int64_t) i3; + + fastint_result_set: + tv_z = thr->valstack_bottom + idx_z; + DUK_TVAL_SET_FASTINT_UPDREF(thr, tv_z, fi3); /* side effects */ +#else /* DUK_USE_FASTINT */ + d3 = (duk_double_t) i3; + + result_set: + DUK_ASSERT(!DUK_ISNAN(d3)); /* 'd3' is never NaN, so no need to normalize */ + DUK_ASSERT_DOUBLE_IS_NORMALIZED(d3); /* always normalized */ + +#if defined(DUK_USE_EXEC_PREFER_SIZE) + duk_push_number(thr, d3); /* would NaN normalize result, but unnecessary */ + duk_replace(thr, (duk_idx_t) idx_z); +#else /* DUK_USE_EXEC_PREFER_SIZE */ + tv_z = thr->valstack_bottom + idx_z; + DUK_TVAL_SET_NUMBER_UPDREF(thr, tv_z, d3); /* side effects */ +#endif /* DUK_USE_EXEC_PREFER_SIZE */ +#endif /* DUK_USE_FASTINT */ +} + +/* In-place unary operation. */ +DUK_LOCAL DUK_EXEC_ALWAYS_INLINE_PERF void duk__vm_arith_unary_op(duk_hthread *thr, duk_uint_fast_t idx_src, duk_uint_fast_t idx_dst, duk_small_uint_fast_t opcode) { + /* + * Arithmetic operations other than '+' have number-only semantics + * and are implemented here. The separate switch-case here means a + * "double dispatch" of the arithmetic opcode, but saves code space. + * + * E5 Sections 11.5, 11.5.1, 11.5.2, 11.5.3, 11.6, 11.6.1, 11.6.2, 11.6.3. + */ + + duk_tval *tv; + duk_double_t d1; + duk_double_union du; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(opcode == DUK_OP_UNM || opcode == DUK_OP_UNP); + DUK_ASSERT_DISABLE(idx_src >= 0); + DUK_ASSERT_DISABLE(idx_dst >= 0); + + tv = DUK_GET_TVAL_POSIDX(thr, (duk_idx_t) idx_src); + +#if defined(DUK_USE_FASTINT) + if (DUK_TVAL_IS_FASTINT(tv)) { + duk_int64_t v1, v2; + + v1 = DUK_TVAL_GET_FASTINT(tv); + if (opcode == DUK_OP_UNM) { + /* The smallest fastint is no longer 48-bit when + * negated. Positive zero becames negative zero + * (cannot be represented) when negated. + */ + if (DUK_LIKELY(v1 != DUK_FASTINT_MIN && v1 != 0)) { + v2 = -v1; + tv = DUK_GET_TVAL_POSIDX(thr, (duk_idx_t) idx_dst); + DUK_TVAL_SET_FASTINT_UPDREF(thr, tv, v2); + return; + } + } else { + /* ToNumber() for a fastint is a no-op. */ + DUK_ASSERT(opcode == DUK_OP_UNP); + v2 = v1; + tv = DUK_GET_TVAL_POSIDX(thr, (duk_idx_t) idx_dst); + DUK_TVAL_SET_FASTINT_UPDREF(thr, tv, v2); + return; + } + /* fall through if overflow etc */ + } +#endif /* DUK_USE_FASTINT */ + + if (DUK_TVAL_IS_NUMBER(tv)) { + d1 = DUK_TVAL_GET_NUMBER(tv); + } else { + d1 = duk_to_number_tval(thr, tv); /* side effects */ + } + + if (opcode == DUK_OP_UNP) { + /* ToNumber() for a double is a no-op, but unary plus is + * used to force a fastint check so do that here. + */ + du.d = d1; + DUK_ASSERT(DUK_DBLUNION_IS_NORMALIZED(&du)); +#if defined(DUK_USE_FASTINT) + tv = DUK_GET_TVAL_POSIDX(thr, (duk_idx_t) idx_dst); + DUK_TVAL_SET_NUMBER_CHKFAST_UPDREF(thr, tv, du.d); /* always 'fast', i.e. inlined */ + return; +#endif + } else { + DUK_ASSERT(opcode == DUK_OP_UNM); + du.d = -d1; + DUK_DBLUNION_NORMALIZE_NAN_CHECK(&du); /* mandatory if du.d is a NaN */ + DUK_ASSERT(DUK_DBLUNION_IS_NORMALIZED(&du)); + } + + /* XXX: size optimize: push+replace? */ + tv = DUK_GET_TVAL_POSIDX(thr, (duk_idx_t) idx_dst); + DUK_TVAL_SET_NUMBER_UPDREF(thr, tv, du.d); +} + +DUK_LOCAL DUK_EXEC_ALWAYS_INLINE_PERF void duk__vm_bitwise_not(duk_hthread *thr, duk_uint_fast_t idx_src, duk_uint_fast_t idx_dst) { + /* + * E5 Section 11.4.8 + */ + + duk_tval *tv; + duk_int32_t i1, i2; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT_DISABLE(idx_src >= 0); + DUK_ASSERT_DISABLE(idx_dst >= 0); + DUK_ASSERT((duk_uint_t) idx_src < (duk_uint_t) duk_get_top(thr)); + DUK_ASSERT((duk_uint_t) idx_dst < (duk_uint_t) duk_get_top(thr)); + + tv = DUK_GET_TVAL_POSIDX(thr, (duk_idx_t) idx_src); + +#if defined(DUK_USE_FASTINT) + if (DUK_TVAL_IS_FASTINT(tv)) { + i1 = (duk_int32_t) DUK_TVAL_GET_FASTINT_I32(tv); + } + else +#endif /* DUK_USE_FASTINT */ + { + duk_push_tval(thr, tv); + i1 = duk_to_int32(thr, -1); /* side effects */ + duk_pop_unsafe(thr); + } + + /* Result is always fastint compatible. */ + i2 = ~i1; + tv = DUK_GET_TVAL_POSIDX(thr, (duk_idx_t) idx_dst); + DUK_TVAL_SET_I32_UPDREF(thr, tv, i2); /* side effects */ +} + +DUK_LOCAL DUK_EXEC_ALWAYS_INLINE_PERF void duk__vm_logical_not(duk_hthread *thr, duk_uint_fast_t idx_src, duk_uint_fast_t idx_dst) { + /* + * E5 Section 11.4.9 + */ + + duk_tval *tv; + duk_bool_t res; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT_DISABLE(idx_src >= 0); + DUK_ASSERT_DISABLE(idx_dst >= 0); + DUK_ASSERT((duk_uint_t) idx_src < (duk_uint_t) duk_get_top(thr)); + DUK_ASSERT((duk_uint_t) idx_dst < (duk_uint_t) duk_get_top(thr)); + + /* ToBoolean() does not require any operations with side effects so + * we can do it efficiently. For footprint it would be better to use + * duk_js_toboolean() and then push+replace to the result slot. + */ + tv = DUK_GET_TVAL_POSIDX(thr, (duk_idx_t) idx_src); + res = duk_js_toboolean(tv); /* does not modify 'tv' */ + DUK_ASSERT(res == 0 || res == 1); + res ^= 1; + tv = DUK_GET_TVAL_POSIDX(thr, (duk_idx_t) idx_dst); + /* XXX: size optimize: push+replace? */ + DUK_TVAL_SET_BOOLEAN_UPDREF(thr, tv, res); /* side effects */ +} + +/* XXX: size optimized variant */ +DUK_LOCAL DUK_EXEC_ALWAYS_INLINE_PERF void duk__prepost_incdec_reg_helper(duk_hthread *thr, duk_tval *tv_dst, duk_tval *tv_src, duk_small_uint_t op) { + duk_double_t x, y, z; + + /* Two lowest bits of opcode are used to distinguish + * variants. Bit 0 = inc(0)/dec(1), bit 1 = pre(0)/post(1). + */ + DUK_ASSERT((DUK_OP_PREINCR & 0x03) == 0x00); + DUK_ASSERT((DUK_OP_PREDECR & 0x03) == 0x01); + DUK_ASSERT((DUK_OP_POSTINCR & 0x03) == 0x02); + DUK_ASSERT((DUK_OP_POSTDECR & 0x03) == 0x03); + +#if defined(DUK_USE_FASTINT) + if (DUK_TVAL_IS_FASTINT(tv_src)) { + duk_int64_t x_fi, y_fi, z_fi; + x_fi = DUK_TVAL_GET_FASTINT(tv_src); + if (op & 0x01) { + if (DUK_UNLIKELY(x_fi == DUK_FASTINT_MIN)) { + goto skip_fastint; + } + y_fi = x_fi - 1; + } else { + if (DUK_UNLIKELY(x_fi == DUK_FASTINT_MAX)) { + goto skip_fastint; + } + y_fi = x_fi + 1; + } + + DUK_TVAL_SET_FASTINT(tv_src, y_fi); /* no need for refcount update */ + + z_fi = (op & 0x02) ? x_fi : y_fi; + DUK_TVAL_SET_FASTINT_UPDREF(thr, tv_dst, z_fi); /* side effects */ + return; + } + skip_fastint: +#endif + if (DUK_TVAL_IS_NUMBER(tv_src)) { + /* Fast path for the case where the register + * is a number (e.g. loop counter). + */ + + x = DUK_TVAL_GET_NUMBER(tv_src); + if (op & 0x01) { + y = x - 1.0; + } else { + y = x + 1.0; + } + + DUK_TVAL_SET_NUMBER(tv_src, y); /* no need for refcount update */ + } else { + /* Preserve duk_tval pointer(s) across a potential valstack + * resize by converting them into offsets temporarily. + */ + duk_idx_t bc; + duk_size_t off_dst; + + off_dst = (duk_size_t) ((duk_uint8_t *) tv_dst - (duk_uint8_t *) thr->valstack_bottom); + bc = (duk_idx_t) (tv_src - thr->valstack_bottom); /* XXX: pass index explicitly? */ + tv_src = NULL; /* no longer referenced */ + + x = duk_to_number(thr, bc); + if (op & 0x01) { + y = x - 1.0; + } else { + y = x + 1.0; + } + + duk_push_number(thr, y); + duk_replace(thr, bc); + + tv_dst = (duk_tval *) (void *) (((duk_uint8_t *) thr->valstack_bottom) + off_dst); + } + + z = (op & 0x02) ? x : y; + DUK_TVAL_SET_NUMBER_UPDREF(thr, tv_dst, z); /* side effects */ +} + +DUK_LOCAL DUK_EXEC_ALWAYS_INLINE_PERF void duk__prepost_incdec_var_helper(duk_hthread *thr, duk_small_uint_t idx_dst, duk_tval *tv_id, duk_small_uint_t op, duk_small_uint_t is_strict) { + duk_activation *act; + duk_double_t x, y; + duk_hstring *name; + + /* XXX: The pre/post inc/dec for an identifier lookup is + * missing the important fast path where the identifier + * has a storage location e.g. in a scope object so that + * it can be updated in-place. In particular, the case + * where the identifier has a storage location AND the + * previous value is a number should be optimized because + * it's side effect free. + */ + + /* Two lowest bits of opcode are used to distinguish + * variants. Bit 0 = inc(0)/dec(1), bit 1 = pre(0)/post(1). + */ + DUK_ASSERT((DUK_OP_PREINCV & 0x03) == 0x00); + DUK_ASSERT((DUK_OP_PREDECV & 0x03) == 0x01); + DUK_ASSERT((DUK_OP_POSTINCV & 0x03) == 0x02); + DUK_ASSERT((DUK_OP_POSTDECV & 0x03) == 0x03); + + DUK_ASSERT(DUK_TVAL_IS_STRING(tv_id)); + name = DUK_TVAL_GET_STRING(tv_id); + DUK_ASSERT(name != NULL); + act = thr->callstack_curr; + (void) duk_js_getvar_activation(thr, act, name, 1 /*throw*/); /* -> [ ... val this ] */ + + /* XXX: Fastint fast path would be useful here. Also fastints + * now lose their fastint status in current handling which is + * not intuitive. + */ + + x = duk_to_number_m2(thr); + if (op & 0x01) { + y = x - 1.0; + } else { + y = x + 1.0; + } + + /* [... x this] */ + + if (op & 0x02) { + duk_push_number(thr, y); /* -> [ ... x this y ] */ + DUK_ASSERT(act == thr->callstack_curr); + duk_js_putvar_activation(thr, act, name, DUK_GET_TVAL_NEGIDX(thr, -1), is_strict); + duk_pop_2_unsafe(thr); /* -> [ ... x ] */ + } else { + duk_pop_2_unsafe(thr); /* -> [ ... ] */ + duk_push_number(thr, y); /* -> [ ... y ] */ + DUK_ASSERT(act == thr->callstack_curr); + duk_js_putvar_activation(thr, act, name, DUK_GET_TVAL_NEGIDX(thr, -1), is_strict); + } + +#if defined(DUK_USE_EXEC_PREFER_SIZE) + duk_replace(thr, (duk_idx_t) idx_dst); +#else /* DUK_USE_EXEC_PREFER_SIZE */ + DUK__REPLACE_TO_TVPTR(thr, DUK_GET_TVAL_POSIDX(thr, (duk_idx_t) idx_dst)); +#endif /* DUK_USE_EXEC_PREFER_SIZE */ +} + +/* + * Longjmp and other control flow transfer for the bytecode executor. + * + * The longjmp handler can handle all longjmp types: error, yield, and + * resume (pseudotypes are never actually thrown). + * + * Error policy for longjmp: should not ordinarily throw errors; if errors + * occur (e.g. due to out-of-memory) they bubble outwards rather than being + * handled recursively. + */ + +#define DUK__LONGJMP_RESTART 0 /* state updated, restart bytecode execution */ +#define DUK__LONGJMP_RETHROW 1 /* exit bytecode executor by rethrowing an error to caller */ + +#define DUK__RETHAND_RESTART 0 /* state updated, restart bytecode execution */ +#define DUK__RETHAND_FINISHED 1 /* exit bytecode execution with return value */ + +/* XXX: optimize reconfig valstack operations so that resize, clamp, and setting + * top are combined into one pass. + */ + +/* Reconfigure value stack for return to an ECMAScript function at + * callstack top (caller unwinds). + */ +DUK_LOCAL void duk__reconfig_valstack_ecma_return(duk_hthread *thr) { + duk_activation *act; + duk_hcompfunc *h_func; + duk_idx_t clamp_top; + + DUK_ASSERT(thr != NULL); + act = thr->callstack_curr; + DUK_ASSERT(act != NULL); + DUK_ASSERT(DUK_ACT_GET_FUNC(act) != NULL); + DUK_ASSERT(DUK_HOBJECT_IS_COMPFUNC(DUK_ACT_GET_FUNC(act))); + + /* Clamp so that values at 'clamp_top' and above are wiped and won't + * retain reachable garbage. Then extend to 'nregs' because we're + * returning to an ECMAScript function. + */ + + h_func = (duk_hcompfunc *) DUK_ACT_GET_FUNC(act); + + thr->valstack_bottom = (duk_tval *) (void *) ((duk_uint8_t *) thr->valstack + act->bottom_byteoff); + DUK_ASSERT(act->retval_byteoff >= act->bottom_byteoff); + clamp_top = (duk_idx_t) ((act->retval_byteoff - act->bottom_byteoff + sizeof(duk_tval)) / sizeof(duk_tval)); /* +1 = one retval */ + duk_set_top_and_wipe(thr, h_func->nregs, clamp_top); + + DUK_ASSERT((duk_uint8_t *) thr->valstack_end >= (duk_uint8_t *) thr->valstack + act->reserve_byteoff); + thr->valstack_end = (duk_tval *) (void *) ((duk_uint8_t *) thr->valstack + act->reserve_byteoff); + + /* XXX: a best effort shrink check would be OK here */ +} + +/* Reconfigure value stack for an ECMAScript catcher. Use topmost catcher + * in 'act'. + */ +DUK_LOCAL void duk__reconfig_valstack_ecma_catcher(duk_hthread *thr, duk_activation *act) { + duk_catcher *cat; + duk_hcompfunc *h_func; + duk_size_t idx_bottom; + duk_idx_t clamp_top; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(act != NULL); + DUK_ASSERT(DUK_ACT_GET_FUNC(act) != NULL); + DUK_ASSERT(DUK_HOBJECT_IS_COMPFUNC(DUK_ACT_GET_FUNC(act))); + cat = act->cat; + DUK_ASSERT(cat != NULL); + + h_func = (duk_hcompfunc *) DUK_ACT_GET_FUNC(act); + + thr->valstack_bottom = (duk_tval *) (void *) ((duk_uint8_t *) thr->valstack + act->bottom_byteoff); + idx_bottom = (duk_size_t) (thr->valstack_bottom - thr->valstack); + DUK_ASSERT(cat->idx_base >= idx_bottom); + clamp_top = (duk_idx_t) (cat->idx_base - idx_bottom + 2); /* +2 = catcher value, catcher lj_type */ + duk_set_top_and_wipe(thr, h_func->nregs, clamp_top); + + DUK_ASSERT((duk_uint8_t *) thr->valstack_end >= (duk_uint8_t *) thr->valstack + act->reserve_byteoff); + thr->valstack_end = (duk_tval *) (void *) ((duk_uint8_t *) thr->valstack + act->reserve_byteoff); + + /* XXX: a best effort shrink check would be OK here */ +} + +/* Set catcher regs: idx_base+0 = value, idx_base+1 = lj_type. + * No side effects. + */ +DUK_LOCAL void duk__set_catcher_regs_norz(duk_hthread *thr, duk_catcher *cat, duk_tval *tv_val_unstable, duk_small_uint_t lj_type) { + duk_tval *tv1; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(tv_val_unstable != NULL); + + tv1 = thr->valstack + cat->idx_base; + DUK_ASSERT(tv1 < thr->valstack_top); + DUK_TVAL_SET_TVAL_UPDREF_NORZ(thr, tv1, tv_val_unstable); + + tv1++; + DUK_ASSERT(tv1 == thr->valstack + cat->idx_base + 1); + DUK_ASSERT(tv1 < thr->valstack_top); + DUK_TVAL_SET_U32_UPDREF_NORZ(thr, tv1, (duk_uint32_t) lj_type); +} + +DUK_LOCAL void duk__handle_catch_part1(duk_hthread *thr, duk_tval *tv_val_unstable, duk_small_uint_t lj_type, volatile duk_bool_t *out_delayed_catch_setup) { + duk_activation *act; + duk_catcher *cat; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(tv_val_unstable != NULL); + + act = thr->callstack_curr; + DUK_ASSERT(act != NULL); + DUK_DD(DUK_DDPRINT("handle catch, part 1; act=%!A, cat=%!C", act, act->cat)); + + DUK_ASSERT(act->cat != NULL); + DUK_ASSERT(DUK_CAT_GET_TYPE(act->cat) == DUK_CAT_TYPE_TCF); + + /* The part1/part2 split could also be made here at the very top + * of catch handling. Value stack would be reconfigured inside + * part2's protection. Value stack reconfiguration should be free + * of allocs, however. + */ + + duk__set_catcher_regs_norz(thr, act->cat, tv_val_unstable, lj_type); + + DUK_ASSERT(thr->callstack_top >= 1); + DUK_ASSERT(thr->callstack_curr != NULL); + DUK_ASSERT(DUK_ACT_GET_FUNC(thr->callstack_curr) != NULL); + DUK_ASSERT(DUK_HOBJECT_IS_COMPFUNC(DUK_ACT_GET_FUNC(thr->callstack_curr))); + + DUK_ASSERT(thr->callstack_top >= 1); + DUK_ASSERT(act == thr->callstack_curr); + DUK_ASSERT(act != NULL); + duk__reconfig_valstack_ecma_catcher(thr, act); + + DUK_ASSERT(thr->callstack_top >= 1); + DUK_ASSERT(act == thr->callstack_curr); + DUK_ASSERT(act != NULL); + cat = act->cat; + DUK_ASSERT(cat != NULL); + + act->curr_pc = cat->pc_base + 0; /* +0 = catch */ + + /* + * If the catch block has an automatic catch variable binding, + * we need to create a lexical environment for it which requires + * allocations. Move out of "error handling state" before the + * allocations to avoid e.g. out-of-memory errors (leading to + * GH-2022 or similar). + */ + + if (DUK_CAT_HAS_CATCH_BINDING_ENABLED(cat)) { + DUK_DDD(DUK_DDDPRINT("catcher has an automatic catch binding, handle in part 2")); + *out_delayed_catch_setup = 1; + } else { + DUK_DDD(DUK_DDDPRINT("catcher has no catch binding")); + } + + DUK_CAT_CLEAR_CATCH_ENABLED(cat); +} + +DUK_LOCAL void duk__handle_catch_part2(duk_hthread *thr) { + duk_activation *act; + duk_catcher *cat; + duk_hdecenv *new_env; + + DUK_ASSERT(thr != NULL); + + act = thr->callstack_curr; + DUK_ASSERT(act != NULL); + DUK_DD(DUK_DDPRINT("handle catch, part 2; act=%!A, cat=%!C", act, act->cat)); + + DUK_ASSERT(act->cat != NULL); + cat = act->cat; + DUK_ASSERT(cat != NULL); + DUK_ASSERT(DUK_CAT_GET_TYPE(cat) == DUK_CAT_TYPE_TCF); + DUK_ASSERT(DUK_CAT_HAS_CATCH_BINDING_ENABLED(cat)); + DUK_ASSERT(thr->valstack + cat->idx_base < thr->valstack_top); + + /* + * Create lexical environment for the catch clause, containing + * a binding for the caught value. + * + * The binding is mutable (= writable) but not deletable. + * Step 4 for the catch production in E5 Section 12.14; + * no value is given for CreateMutableBinding 'D' argument, + * which implies the binding is not deletable. + */ + + if (act->lex_env == NULL) { + DUK_ASSERT(act->var_env == NULL); + DUK_DDD(DUK_DDDPRINT("delayed environment initialization")); + + duk_js_init_activation_environment_records_delayed(thr, act); + DUK_ASSERT(act == thr->callstack_curr); + DUK_ASSERT(act != NULL); + } + DUK_ASSERT(act->lex_env != NULL); + DUK_ASSERT(act->var_env != NULL); + DUK_ASSERT(DUK_ACT_GET_FUNC(act) != NULL); + + new_env = duk_hdecenv_alloc(thr, + DUK_HOBJECT_FLAG_EXTENSIBLE | + DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_DECENV)); + DUK_ASSERT(new_env != NULL); + duk_push_hobject(thr, (duk_hobject *) new_env); + DUK_ASSERT(DUK_HOBJECT_GET_PROTOTYPE(thr->heap, (duk_hobject *) new_env) == NULL); + DUK_DDD(DUK_DDDPRINT("new_env allocated: %!iO", (duk_heaphdr *) new_env)); + + /* Note: currently the catch binding is handled without a register + * binding because we don't support dynamic register bindings (they + * must be fixed for an entire function). So, there is no need to + * record regbases etc. + */ + + /* [ ...env ] */ + + DUK_ASSERT(cat->h_varname != NULL); + duk_push_hstring(thr, cat->h_varname); + DUK_ASSERT(thr->valstack + cat->idx_base < thr->valstack_top); + duk_push_tval(thr, thr->valstack + cat->idx_base); + duk_xdef_prop(thr, -3, DUK_PROPDESC_FLAGS_W); /* writable, not configurable */ + + /* [ ... env ] */ + + DUK_ASSERT(act == thr->callstack_curr); + DUK_ASSERT(act != NULL); + DUK_HOBJECT_SET_PROTOTYPE(thr->heap, (duk_hobject *) new_env, act->lex_env); + act->lex_env = (duk_hobject *) new_env; + DUK_HOBJECT_INCREF(thr, (duk_hobject *) new_env); /* reachable through activation */ + /* Net refcount change to act->lex_env is 0: incref for new_env's + * prototype, decref for act->lex_env overwrite. + */ + + DUK_CAT_SET_LEXENV_ACTIVE(cat); + + duk_pop_unsafe(thr); + + DUK_DDD(DUK_DDDPRINT("new_env finished: %!iO", (duk_heaphdr *) new_env)); +} + +DUK_LOCAL void duk__handle_finally(duk_hthread *thr, duk_tval *tv_val_unstable, duk_small_uint_t lj_type) { + duk_activation *act; + duk_catcher *cat; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(tv_val_unstable != NULL); + + act = thr->callstack_curr; + DUK_ASSERT(act != NULL); + DUK_ASSERT(act->cat != NULL); + DUK_ASSERT(DUK_CAT_GET_TYPE(act->cat) == DUK_CAT_TYPE_TCF); + + duk__set_catcher_regs_norz(thr, act->cat, tv_val_unstable, lj_type); + + DUK_ASSERT(thr->callstack_top >= 1); + DUK_ASSERT(thr->callstack_curr != NULL); + DUK_ASSERT(DUK_ACT_GET_FUNC(thr->callstack_curr) != NULL); + DUK_ASSERT(DUK_HOBJECT_IS_COMPFUNC(DUK_ACT_GET_FUNC(thr->callstack_curr))); + + DUK_ASSERT(thr->callstack_top >= 1); + DUK_ASSERT(act == thr->callstack_curr); + DUK_ASSERT(act != NULL); + duk__reconfig_valstack_ecma_catcher(thr, act); + + DUK_ASSERT(thr->callstack_top >= 1); + DUK_ASSERT(act == thr->callstack_curr); + DUK_ASSERT(act != NULL); + cat = act->cat; + DUK_ASSERT(cat != NULL); + + act->curr_pc = cat->pc_base + 1; /* +1 = finally */ + + DUK_CAT_CLEAR_FINALLY_ENABLED(cat); +} + +DUK_LOCAL void duk__handle_label(duk_hthread *thr, duk_small_uint_t lj_type) { + duk_activation *act; + duk_catcher *cat; + + DUK_ASSERT(thr != NULL); + + DUK_ASSERT(thr->callstack_top >= 1); + act = thr->callstack_curr; + DUK_ASSERT(act != NULL); + DUK_ASSERT(DUK_ACT_GET_FUNC(act) != NULL); + DUK_ASSERT(DUK_HOBJECT_HAS_COMPFUNC(DUK_ACT_GET_FUNC(act))); + + /* +0 = break, +1 = continue */ + cat = act->cat; + DUK_ASSERT(cat != NULL); + DUK_ASSERT(DUK_CAT_GET_TYPE(cat) == DUK_CAT_TYPE_LABEL); + + act->curr_pc = cat->pc_base + (lj_type == DUK_LJ_TYPE_CONTINUE ? 1 : 0); + + /* valstack should not need changes */ +#if defined(DUK_USE_ASSERTIONS) + DUK_ASSERT(thr->callstack_top >= 1); + DUK_ASSERT(act == thr->callstack_curr); + DUK_ASSERT(act != NULL); + DUK_ASSERT((duk_size_t) (thr->valstack_top - thr->valstack_bottom) == + (duk_size_t) ((duk_hcompfunc *) DUK_ACT_GET_FUNC(act))->nregs); +#endif +} + +/* Called for handling both a longjmp() with type DUK_LJ_TYPE_YIELD and + * when a RETURN opcode terminates a thread and yields to the resumer. + * Caller unwinds so that top of callstack is the activation we return to. + */ +#if defined(DUK_USE_COROUTINE_SUPPORT) +DUK_LOCAL void duk__handle_yield(duk_hthread *thr, duk_hthread *resumer, duk_tval *tv_val_unstable) { + duk_activation *act_resumer; + duk_tval *tv1; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(resumer != NULL); + DUK_ASSERT(tv_val_unstable != NULL); + act_resumer = resumer->callstack_curr; + DUK_ASSERT(act_resumer != NULL); + DUK_ASSERT(DUK_ACT_GET_FUNC(act_resumer) != NULL); + DUK_ASSERT(DUK_HOBJECT_IS_COMPFUNC(DUK_ACT_GET_FUNC(act_resumer))); /* resume caller must be an ECMAScript func */ + + tv1 = (duk_tval *) (void *) ((duk_uint8_t *) resumer->valstack + act_resumer->retval_byteoff); /* return value from Duktape.Thread.resume() */ + DUK_TVAL_SET_TVAL_UPDREF(thr, tv1, tv_val_unstable); /* side effects */ /* XXX: avoid side effects */ + + duk__reconfig_valstack_ecma_return(resumer); + + /* caller must change active thread, and set thr->resumer to NULL */ +} +#endif /* DUK_USE_COROUTINE_SUPPORT */ + +DUK_LOCAL duk_small_uint_t duk__handle_longjmp(duk_hthread *thr, duk_activation *entry_act, volatile duk_bool_t *out_delayed_catch_setup) { + duk_small_uint_t retval = DUK__LONGJMP_RESTART; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(entry_act != NULL); + + /* 'thr' is the current thread, as no-one resumes except us and we + * switch 'thr' in that case. + */ + DUK_ASSERT(thr == thr->heap->curr_thread); + + /* + * (Re)try handling the longjmp. + * + * A longjmp handler may convert the longjmp to a different type and + * "virtually" rethrow by goto'ing to 'check_longjmp'. Before the goto, + * the following must be updated: + * - the heap 'lj' state + * - 'thr' must reflect the "throwing" thread + */ + + check_longjmp: + + DUK_DD(DUK_DDPRINT("handling longjmp: type=%ld, value1=%!T, value2=%!T, iserror=%ld, top=%ld", + (long) thr->heap->lj.type, + (duk_tval *) &thr->heap->lj.value1, + (duk_tval *) &thr->heap->lj.value2, + (long) thr->heap->lj.iserror, + (long) duk_get_top(thr))); + + switch (thr->heap->lj.type) { + +#if defined(DUK_USE_COROUTINE_SUPPORT) + case DUK_LJ_TYPE_RESUME: { + /* + * Note: lj.value1 is 'value', lj.value2 is 'resumee'. + * This differs from YIELD. + */ + + duk_tval *tv; + duk_tval *tv2; + duk_hthread *resumee; + + /* duk_bi_duk_object_yield() and duk_bi_duk_object_resume() ensure all of these are met */ + + DUK_ASSERT(thr->state == DUK_HTHREAD_STATE_RUNNING); /* unchanged by Duktape.Thread.resume() */ + DUK_ASSERT(thr->callstack_top >= 2); /* ECMAScript activation + Duktape.Thread.resume() activation */ + DUK_ASSERT(thr->callstack_curr != NULL); + DUK_ASSERT(thr->callstack_curr->parent != NULL); + DUK_ASSERT(DUK_ACT_GET_FUNC(thr->callstack_curr) != NULL && + DUK_HOBJECT_IS_NATFUNC(DUK_ACT_GET_FUNC(thr->callstack_curr)) && + ((duk_hnatfunc *) DUK_ACT_GET_FUNC(thr->callstack_curr))->func == duk_bi_thread_resume); + + tv = &thr->heap->lj.value2; /* resumee */ + DUK_ASSERT(DUK_TVAL_IS_OBJECT(tv)); + DUK_ASSERT(DUK_TVAL_GET_OBJECT(tv) != NULL); + DUK_ASSERT(DUK_HOBJECT_IS_THREAD(DUK_TVAL_GET_OBJECT(tv))); + resumee = (duk_hthread *) DUK_TVAL_GET_OBJECT(tv); + + DUK_ASSERT(resumee != NULL); + DUK_ASSERT(resumee->resumer == NULL); + DUK_ASSERT(resumee->state == DUK_HTHREAD_STATE_INACTIVE || + resumee->state == DUK_HTHREAD_STATE_YIELDED); /* checked by Duktape.Thread.resume() */ + DUK_ASSERT(resumee->state != DUK_HTHREAD_STATE_YIELDED || + resumee->callstack_top >= 2); /* YIELDED: ECMAScript activation + Duktape.Thread.yield() activation */ + DUK_ASSERT(resumee->state != DUK_HTHREAD_STATE_YIELDED || + (DUK_ACT_GET_FUNC(resumee->callstack_curr) != NULL && + DUK_HOBJECT_IS_NATFUNC(DUK_ACT_GET_FUNC(resumee->callstack_curr)) && + ((duk_hnatfunc *) DUK_ACT_GET_FUNC(resumee->callstack_curr))->func == duk_bi_thread_yield)); + DUK_ASSERT(resumee->state != DUK_HTHREAD_STATE_INACTIVE || + resumee->callstack_top == 0); /* INACTIVE: no activation, single function value on valstack */ + + if (thr->heap->lj.iserror) { + /* + * Throw the error in the resumed thread's context; the + * error value is pushed onto the resumee valstack. + * + * Note: the callstack of the target may empty in this case + * too (i.e. the target thread has never been resumed). The + * value stack will contain the initial function in that case, + * which we simply ignore. + */ + + DUK_ASSERT(resumee->resumer == NULL); + resumee->resumer = thr; + DUK_HTHREAD_INCREF(thr, thr); + resumee->state = DUK_HTHREAD_STATE_RUNNING; + thr->state = DUK_HTHREAD_STATE_RESUMED; + DUK_HEAP_SWITCH_THREAD(thr->heap, resumee); + thr = resumee; + + thr->heap->lj.type = DUK_LJ_TYPE_THROW; + + /* thr->heap->lj.value1 is already the value to throw */ + /* thr->heap->lj.value2 is 'thread', will be wiped out at the end */ + + DUK_ASSERT(thr->heap->lj.iserror); /* already set */ + + DUK_DD(DUK_DDPRINT("-> resume with an error, converted to a throw in the resumee, propagate")); + goto check_longjmp; + } else if (resumee->state == DUK_HTHREAD_STATE_YIELDED) { + /* Unwind previous Duktape.Thread.yield() call. The + * activation remaining must always be an ECMAScript + * call now (yield() accepts calls from ECMAScript + * only). + */ + duk_activation *act_resumee; + + DUK_ASSERT(resumee->callstack_top >= 2); + act_resumee = resumee->callstack_curr; /* Duktape.Thread.yield() */ + DUK_ASSERT(act_resumee != NULL); + act_resumee = act_resumee->parent; /* ECMAScript call site for yield() */ + DUK_ASSERT(act_resumee != NULL); + + tv = (duk_tval *) (void *) ((duk_uint8_t *) resumee->valstack + act_resumee->retval_byteoff); /* return value from Duktape.Thread.yield() */ + DUK_ASSERT(tv >= resumee->valstack && tv < resumee->valstack_top); + tv2 = &thr->heap->lj.value1; + DUK_TVAL_SET_TVAL_UPDREF(thr, tv, tv2); /* side effects */ /* XXX: avoid side effects */ + + duk_hthread_activation_unwind_norz(resumee); /* unwind to 'yield' caller */ + /* no need to unwind catch stack */ + + duk__reconfig_valstack_ecma_return(resumee); + + DUK_ASSERT(resumee->resumer == NULL); + resumee->resumer = thr; + DUK_HTHREAD_INCREF(thr, thr); + resumee->state = DUK_HTHREAD_STATE_RUNNING; + thr->state = DUK_HTHREAD_STATE_RESUMED; + DUK_HEAP_SWITCH_THREAD(thr->heap, resumee); +#if 0 + thr = resumee; /* not needed, as we exit right away */ +#endif + DUK_DD(DUK_DDPRINT("-> resume with a value, restart execution in resumee")); + retval = DUK__LONGJMP_RESTART; + goto wipe_and_return; + } else { + /* Initial resume call. */ + duk_small_uint_t call_flags; + duk_int_t setup_rc; + + /* resumee: [... initial_func] (currently actually: [initial_func]) */ + + duk_push_undefined(resumee); + tv = &thr->heap->lj.value1; + duk_push_tval(resumee, tv); + + /* resumee: [... initial_func undefined(= this) resume_value ] */ + + call_flags = DUK_CALL_FLAG_ALLOW_ECMATOECMA; /* not tailcall, ecma-to-ecma (assumed to succeed) */ + + setup_rc = duk_handle_call_unprotected_nargs(resumee, 1 /*nargs*/, call_flags); + if (setup_rc == 0) { + /* This shouldn't happen; Duktape.Thread.resume() + * should make sure of that. If it does happen + * this internal error will propagate out of the + * executor which can be quite misleading. + */ + DUK_ERROR_INTERNAL(thr); + DUK_WO_NORETURN(return 0;); + } + + DUK_ASSERT(resumee->resumer == NULL); + resumee->resumer = thr; + DUK_HTHREAD_INCREF(thr, thr); + resumee->state = DUK_HTHREAD_STATE_RUNNING; + thr->state = DUK_HTHREAD_STATE_RESUMED; + DUK_HEAP_SWITCH_THREAD(thr->heap, resumee); +#if 0 + thr = resumee; /* not needed, as we exit right away */ +#endif + DUK_DD(DUK_DDPRINT("-> resume with a value, restart execution in resumee")); + retval = DUK__LONGJMP_RESTART; + goto wipe_and_return; + } + DUK_UNREACHABLE(); + break; /* never here */ + } + + case DUK_LJ_TYPE_YIELD: { + /* + * Currently only allowed only if yielding thread has only + * ECMAScript activations (except for the Duktape.Thread.yield() + * call at the callstack top) and none of them constructor + * calls. + * + * This excludes the 'entry' thread which will always have + * a preventcount > 0. + */ + + duk_hthread *resumer; + + /* duk_bi_duk_object_yield() and duk_bi_duk_object_resume() ensure all of these are met */ + +#if 0 /* entry_thread not available for assert */ + DUK_ASSERT(thr != entry_thread); /* Duktape.Thread.yield() should prevent */ +#endif + DUK_ASSERT(thr->state == DUK_HTHREAD_STATE_RUNNING); /* unchanged from Duktape.Thread.yield() */ + DUK_ASSERT(thr->callstack_top >= 2); /* ECMAScript activation + Duktape.Thread.yield() activation */ + DUK_ASSERT(thr->callstack_curr != NULL); + DUK_ASSERT(thr->callstack_curr->parent != NULL); + DUK_ASSERT(DUK_ACT_GET_FUNC(thr->callstack_curr) != NULL && + DUK_HOBJECT_IS_NATFUNC(DUK_ACT_GET_FUNC(thr->callstack_curr)) && + ((duk_hnatfunc *) DUK_ACT_GET_FUNC(thr->callstack_curr))->func == duk_bi_thread_yield); + DUK_ASSERT(DUK_ACT_GET_FUNC(thr->callstack_curr->parent) != NULL && + DUK_HOBJECT_IS_COMPFUNC(DUK_ACT_GET_FUNC(thr->callstack_curr->parent))); /* an ECMAScript function */ + + resumer = thr->resumer; + + DUK_ASSERT(resumer != NULL); + DUK_ASSERT(resumer->state == DUK_HTHREAD_STATE_RESUMED); /* written by a previous RESUME handling */ + DUK_ASSERT(resumer->callstack_top >= 2); /* ECMAScript activation + Duktape.Thread.resume() activation */ + DUK_ASSERT(resumer->callstack_curr != NULL); + DUK_ASSERT(resumer->callstack_curr->parent != NULL); + DUK_ASSERT(DUK_ACT_GET_FUNC(resumer->callstack_curr) != NULL && + DUK_HOBJECT_IS_NATFUNC(DUK_ACT_GET_FUNC(resumer->callstack_curr)) && + ((duk_hnatfunc *) DUK_ACT_GET_FUNC(resumer->callstack_curr))->func == duk_bi_thread_resume); + DUK_ASSERT(DUK_ACT_GET_FUNC(resumer->callstack_curr->parent) != NULL && + DUK_HOBJECT_IS_COMPFUNC(DUK_ACT_GET_FUNC(resumer->callstack_curr->parent))); /* an ECMAScript function */ + + if (thr->heap->lj.iserror) { + thr->state = DUK_HTHREAD_STATE_YIELDED; + thr->resumer = NULL; + DUK_HTHREAD_DECREF_NORZ(thr, resumer); + resumer->state = DUK_HTHREAD_STATE_RUNNING; + DUK_HEAP_SWITCH_THREAD(thr->heap, resumer); + thr = resumer; + + thr->heap->lj.type = DUK_LJ_TYPE_THROW; + /* lj.value1 is already set */ + DUK_ASSERT(thr->heap->lj.iserror); /* already set */ + + DUK_DD(DUK_DDPRINT("-> yield an error, converted to a throw in the resumer, propagate")); + goto check_longjmp; + } else { + duk_hthread_activation_unwind_norz(resumer); + duk__handle_yield(thr, resumer, &thr->heap->lj.value1); + + thr->state = DUK_HTHREAD_STATE_YIELDED; + thr->resumer = NULL; + DUK_HTHREAD_DECREF_NORZ(thr, resumer); + resumer->state = DUK_HTHREAD_STATE_RUNNING; + DUK_HEAP_SWITCH_THREAD(thr->heap, resumer); +#if 0 + thr = resumer; /* not needed, as we exit right away */ +#endif + + DUK_DD(DUK_DDPRINT("-> yield a value, restart execution in resumer")); + retval = DUK__LONGJMP_RESTART; + goto wipe_and_return; + } + DUK_UNREACHABLE(); + break; /* never here */ + } +#endif /* DUK_USE_COROUTINE_SUPPORT */ + + case DUK_LJ_TYPE_THROW: { + /* + * Three possible outcomes: + * * A try or finally catcher is found => resume there. + * (or) + * * The error propagates to the bytecode executor entry + * level (and we're in the entry thread) => rethrow + * with a new longjmp(), after restoring the previous + * catchpoint. + * * The error is not caught in the current thread, so + * the thread finishes with an error. This works like + * a yielded error, except that the thread is finished + * and can no longer be resumed. (There is always a + * resumer in this case.) + * + * Note: until we hit the entry level, there can only be + * ECMAScript activations. + */ + + duk_activation *act; + duk_catcher *cat; + duk_hthread *resumer; + + for (;;) { + act = thr->callstack_curr; + if (act == NULL) { + break; + } + + for (;;) { + cat = act->cat; + if (cat == NULL) { + break; + } + + if (DUK_CAT_HAS_CATCH_ENABLED(cat)) { + DUK_ASSERT(DUK_CAT_GET_TYPE(cat) == DUK_CAT_TYPE_TCF); + + DUK_DDD(DUK_DDDPRINT("before catch part 1: thr=%p, act=%p, cat=%p", + (void *) thr, (void *) act, (void *) act->cat)); + duk__handle_catch_part1(thr, + &thr->heap->lj.value1, + DUK_LJ_TYPE_THROW, + out_delayed_catch_setup); + + DUK_DD(DUK_DDPRINT("-> throw caught by a 'catch' clause, restart execution")); + retval = DUK__LONGJMP_RESTART; + goto wipe_and_return; + } + + if (DUK_CAT_HAS_FINALLY_ENABLED(cat)) { + DUK_ASSERT(DUK_CAT_GET_TYPE(cat) == DUK_CAT_TYPE_TCF); + DUK_ASSERT(!DUK_CAT_HAS_CATCH_ENABLED(cat)); + + duk__handle_finally(thr, + &thr->heap->lj.value1, + DUK_LJ_TYPE_THROW); + + DUK_DD(DUK_DDPRINT("-> throw caught by a 'finally' clause, restart execution")); + retval = DUK__LONGJMP_RESTART; + goto wipe_and_return; + } + + duk_hthread_catcher_unwind_norz(thr, act); + } + + if (act == entry_act) { + /* Not caught by anything before entry level; rethrow and let the + * final catcher finish unwinding (esp. value stack). + */ + DUK_D(DUK_DPRINT("-> throw propagated up to entry level, rethrow and exit bytecode executor")); + retval = DUK__LONGJMP_RETHROW; + goto just_return; + } + + duk_hthread_activation_unwind_norz(thr); + } + + DUK_DD(DUK_DDPRINT("-> throw not caught by current thread, yield error to resumer and recheck longjmp")); + + /* Not caught by current thread, thread terminates (yield error to resumer); + * note that this may cause a cascade if the resumer terminates with an uncaught + * exception etc (this is OK, but needs careful testing). + */ + + DUK_ASSERT(thr->resumer != NULL); + DUK_ASSERT(thr->resumer->callstack_top >= 2); /* ECMAScript activation + Duktape.Thread.resume() activation */ + DUK_ASSERT(thr->resumer->callstack_curr != NULL); + DUK_ASSERT(thr->resumer->callstack_curr->parent != NULL); + DUK_ASSERT(DUK_ACT_GET_FUNC(thr->resumer->callstack_curr->parent) != NULL && + DUK_HOBJECT_IS_COMPFUNC(DUK_ACT_GET_FUNC(thr->resumer->callstack_curr->parent))); /* an ECMAScript function */ + + resumer = thr->resumer; + + /* reset longjmp */ + + DUK_ASSERT(thr->heap->lj.type == DUK_LJ_TYPE_THROW); /* already set */ + /* lj.value1 already set */ + + duk_hthread_terminate(thr); /* updates thread state, minimizes its allocations */ + DUK_ASSERT(thr->state == DUK_HTHREAD_STATE_TERMINATED); + + thr->resumer = NULL; + DUK_HTHREAD_DECREF_NORZ(thr, resumer); + resumer->state = DUK_HTHREAD_STATE_RUNNING; + DUK_HEAP_SWITCH_THREAD(thr->heap, resumer); + thr = resumer; + goto check_longjmp; + } + + case DUK_LJ_TYPE_BREAK: /* pseudotypes, not used in actual longjmps */ + case DUK_LJ_TYPE_CONTINUE: + case DUK_LJ_TYPE_RETURN: + case DUK_LJ_TYPE_NORMAL: + default: { + /* should never happen, but be robust */ + DUK_D(DUK_DPRINT("caught unknown longjmp type %ld, treat as internal error", (long) thr->heap->lj.type)); + goto convert_to_internal_error; + } + + } /* end switch */ + + DUK_UNREACHABLE(); + + wipe_and_return: + DUK_DD(DUK_DDPRINT("handling longjmp done, wipe-and-return, top=%ld", + (long) duk_get_top(thr))); + thr->heap->lj.type = DUK_LJ_TYPE_UNKNOWN; + thr->heap->lj.iserror = 0; + + DUK_TVAL_SET_UNDEFINED_UPDREF(thr, &thr->heap->lj.value1); /* side effects */ + DUK_TVAL_SET_UNDEFINED_UPDREF(thr, &thr->heap->lj.value2); /* side effects */ + + DUK_GC_TORTURE(thr->heap); + + just_return: + return retval; + + convert_to_internal_error: + /* This could also be thrown internally (set the error, goto check_longjmp), + * but it's better for internal errors to bubble outwards so that we won't + * infinite loop in this catchpoint. + */ + DUK_ERROR_INTERNAL(thr); + DUK_WO_NORETURN(return 0;); +} + +/* Handle a BREAK/CONTINUE opcode. Avoid using longjmp() for BREAK/CONTINUE + * handling because it has a measurable performance impact in ordinary + * environments and an extreme impact in Emscripten (GH-342). + */ +DUK_LOCAL DUK_EXEC_NOINLINE_PERF void duk__handle_break_or_continue(duk_hthread *thr, + duk_uint_t label_id, + duk_small_uint_t lj_type) { + duk_activation *act; + duk_catcher *cat; + + DUK_ASSERT(thr != NULL); + + /* Find a matching label catcher or 'finally' catcher in + * the same function, unwinding catchers as we go. + * + * A label catcher must always exist and will match unless + * a 'finally' captures the break/continue first. It is the + * compiler's responsibility to ensure that labels are used + * correctly. + */ + + act = thr->callstack_curr; + DUK_ASSERT(act != NULL); + + for (;;) { + cat = act->cat; + if (cat == NULL) { + break; + } + + DUK_DDD(DUK_DDDPRINT("considering catcher %p: type=%ld label=%ld", + (void *) cat, + (long) DUK_CAT_GET_TYPE(cat), + (long) DUK_CAT_GET_LABEL(cat))); + + /* XXX: bit mask test; FINALLY <-> TCF, single bit mask would suffice? */ + + if (DUK_CAT_GET_TYPE(cat) == DUK_CAT_TYPE_TCF && + DUK_CAT_HAS_FINALLY_ENABLED(cat)) { + duk_tval tv_tmp; + + DUK_TVAL_SET_U32(&tv_tmp, (duk_uint32_t) label_id); + duk__handle_finally(thr, &tv_tmp, lj_type); + + DUK_DD(DUK_DDPRINT("-> break/continue caught by 'finally', restart execution")); + return; + } + if (DUK_CAT_GET_TYPE(cat) == DUK_CAT_TYPE_LABEL && + (duk_uint_t) DUK_CAT_GET_LABEL(cat) == label_id) { + duk__handle_label(thr, lj_type); + + DUK_DD(DUK_DDPRINT("-> break/continue caught by a label catcher (in the same function), restart execution")); + return; + } + + duk_hthread_catcher_unwind_norz(thr, act); + } + + /* Should never happen, but be robust. */ + DUK_D(DUK_DPRINT("-> break/continue not caught by anything in the current function (should never happen), throw internal error")); + DUK_ERROR_INTERNAL(thr); + DUK_WO_NORETURN(return;); +} + +/* Handle a RETURN opcode. Avoid using longjmp() for return handling because + * it has a measurable performance impact in ordinary environments and an extreme + * impact in Emscripten (GH-342). Return value is on value stack top. + */ +DUK_LOCAL duk_small_uint_t duk__handle_return(duk_hthread *thr, duk_activation *entry_act) { + duk_tval *tv1; + duk_tval *tv2; +#if defined(DUK_USE_COROUTINE_SUPPORT) + duk_hthread *resumer; +#endif + duk_activation *act; + duk_catcher *cat; + + /* We can directly access value stack here. */ + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(entry_act != NULL); + DUK_ASSERT(thr->valstack_top - 1 >= thr->valstack_bottom); + tv1 = thr->valstack_top - 1; + DUK_TVAL_CHKFAST_INPLACE_FAST(tv1); /* fastint downgrade check for return values */ + + /* + * Four possible outcomes: + * + * 1. A 'finally' in the same function catches the 'return'. + * It may continue to propagate when 'finally' is finished, + * or it may be neutralized by 'finally' (both handled by + * ENDFIN). + * + * 2. The return happens at the entry level of the bytecode + * executor, so return from the executor (in C stack). + * + * 3. There is a calling (ECMAScript) activation in the call + * stack => return to it, in the same executor instance. + * + * 4. There is no calling activation, and the thread is + * terminated. There is always a resumer in this case, + * which gets the return value similarly to a 'yield' + * (except that the current thread can no longer be + * resumed). + */ + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(thr->callstack_top >= 1); + + act = thr->callstack_curr; + DUK_ASSERT(act != NULL); + + for (;;) { + cat = act->cat; + if (cat == NULL) { + break; + } + + if (DUK_CAT_GET_TYPE(cat) == DUK_CAT_TYPE_TCF && + DUK_CAT_HAS_FINALLY_ENABLED(cat)) { + DUK_ASSERT(thr->valstack_top - 1 >= thr->valstack_bottom); + duk__handle_finally(thr, thr->valstack_top - 1, DUK_LJ_TYPE_RETURN); + + DUK_DD(DUK_DDPRINT("-> return caught by 'finally', restart execution")); + return DUK__RETHAND_RESTART; + } + + duk_hthread_catcher_unwind_norz(thr, act); + } + + if (act == entry_act) { + /* Return to the bytecode executor caller who will unwind stacks + * and handle constructor post-processing. + * Return value is already on the stack top: [ ... retval ]. + */ + + DUK_DDD(DUK_DDDPRINT("-> return propagated up to entry level, exit bytecode executor")); + return DUK__RETHAND_FINISHED; + } + + if (thr->callstack_top >= 2) { + /* There is a caller; it MUST be an ECMAScript caller (otherwise it would + * match entry_act check). + */ + DUK_DDD(DUK_DDDPRINT("return to ECMAScript caller, retval_byteoff=%ld, lj_value1=%!T", + (long) (thr->callstack_curr->parent->retval_byteoff), + (duk_tval *) &thr->heap->lj.value1)); + + DUK_ASSERT(thr->callstack_curr != NULL); + DUK_ASSERT(thr->callstack_curr->parent != NULL); + DUK_ASSERT(DUK_HOBJECT_IS_COMPFUNC(DUK_ACT_GET_FUNC(thr->callstack_curr->parent))); /* must be ECMAScript */ + +#if defined(DUK_USE_ES6_PROXY) + if (thr->callstack_curr->flags & (DUK_ACT_FLAG_CONSTRUCT | DUK_ACT_FLAG_CONSTRUCT_PROXY)) { + duk_call_construct_postprocess(thr, thr->callstack_curr->flags & DUK_ACT_FLAG_CONSTRUCT_PROXY); /* side effects */ + } +#else + if (thr->callstack_curr->flags & DUK_ACT_FLAG_CONSTRUCT) { + duk_call_construct_postprocess(thr, 0); /* side effects */ + } +#endif + + tv1 = (duk_tval *) (void *) ((duk_uint8_t *) thr->valstack + thr->callstack_curr->parent->retval_byteoff); + DUK_ASSERT(thr->valstack_top - 1 >= thr->valstack_bottom); + tv2 = thr->valstack_top - 1; + DUK_TVAL_SET_TVAL_UPDREF(thr, tv1, tv2); /* side effects */ + + /* Catch stack unwind happens inline in callstack unwind. */ + duk_hthread_activation_unwind_norz(thr); + + duk__reconfig_valstack_ecma_return(thr); + + DUK_DD(DUK_DDPRINT("-> return not intercepted, restart execution in caller")); + return DUK__RETHAND_RESTART; + } + +#if defined(DUK_USE_COROUTINE_SUPPORT) + DUK_DD(DUK_DDPRINT("no calling activation, thread finishes (similar to yield)")); + + DUK_ASSERT(thr->resumer != NULL); + DUK_ASSERT(thr->resumer->callstack_top >= 2); /* ECMAScript activation + Duktape.Thread.resume() activation */ + DUK_ASSERT(thr->resumer->callstack_curr != NULL); + DUK_ASSERT(thr->resumer->callstack_curr->parent != NULL); + DUK_ASSERT(DUK_ACT_GET_FUNC(thr->resumer->callstack_curr) != NULL && + DUK_HOBJECT_IS_NATFUNC(DUK_ACT_GET_FUNC(thr->resumer->callstack_curr)) && + ((duk_hnatfunc *) DUK_ACT_GET_FUNC(thr->resumer->callstack_curr))->func == duk_bi_thread_resume); /* Duktape.Thread.resume() */ + DUK_ASSERT(DUK_ACT_GET_FUNC(thr->resumer->callstack_curr->parent) != NULL && + DUK_HOBJECT_IS_COMPFUNC(DUK_ACT_GET_FUNC(thr->resumer->callstack_curr->parent))); /* an ECMAScript function */ + DUK_ASSERT(thr->state == DUK_HTHREAD_STATE_RUNNING); + DUK_ASSERT(thr->resumer->state == DUK_HTHREAD_STATE_RESUMED); + + resumer = thr->resumer; + + /* Share yield longjmp handler. + * + * This sequence of steps is a bit fragile (see GH-1845): + * - We need the return value from 'thr' (resumed thread) value stack. + * The termination unwinds its value stack, losing the value. + * - We need a refcounted reference for 'thr', which may only exist + * in the caller value stack. We can't unwind or reconfigure the + * caller's value stack without potentially freeing 'thr'. + * + * Current approach is to capture the 'thr' return value and store + * a reference to 'thr' in the caller value stack temporarily. This + * keeps 'thr' reachable until final yield/return handling which + * removes the references atomatically. + */ + + DUK_ASSERT(thr->valstack_top - 1 >= thr->valstack_bottom); + duk_hthread_activation_unwind_norz(resumer); /* May remove last reference to 'thr', but is NORZ. */ + duk_push_tval(resumer, thr->valstack_top - 1); /* Capture return value, side effect free. */ + duk_push_hthread(resumer, thr); /* Make 'thr' reachable again, before side effects. */ + + duk_hthread_terminate(thr); /* Updates thread state, minimizes its allocations. */ + thr->resumer = NULL; + DUK_HTHREAD_DECREF(thr, resumer); + DUK_ASSERT(thr->state == DUK_HTHREAD_STATE_TERMINATED); + + resumer->state = DUK_HTHREAD_STATE_RUNNING; + DUK_HEAP_SWITCH_THREAD(thr->heap, resumer); + + DUK_ASSERT(resumer->valstack_top - 2 >= resumer->valstack_bottom); + duk__handle_yield(thr, resumer, resumer->valstack_top - 2); + thr = NULL; /* 'thr' invalidated by call */ + +#if 0 + thr = resumer; /* not needed */ +#endif + + DUK_DD(DUK_DDPRINT("-> return not caught, thread terminated; handle like yield, restart execution in resumer")); + return DUK__RETHAND_RESTART; +#else + /* Without coroutine support this case should never happen. */ + DUK_ERROR_INTERNAL(thr); + DUK_WO_NORETURN(return 0;); +#endif +} + +/* + * Executor interrupt handling + * + * The handler is called whenever the interrupt countdown reaches zero + * (or below). The handler must perform whatever checks are activated, + * e.g. check for cumulative step count to impose an execution step + * limit or check for breakpoints or other debugger interaction. + * + * When the actions are done, the handler must reinit the interrupt + * init and counter values. The 'init' value must indicate how many + * bytecode instructions are executed before the next interrupt. The + * counter must interface with the bytecode executor loop. Concretely, + * the new init value is normally one higher than the new counter value. + * For instance, to execute exactly one bytecode instruction the init + * value is set to 1 and the counter to 0. If an error is thrown by the + * interrupt handler, the counters are set to the same value (e.g. both + * to 0 to cause an interrupt when the next bytecode instruction is about + * to be executed after error handling). + * + * Maintaining the init/counter value properly is important for accurate + * behavior. For instance, executor step limit needs a cumulative step + * count which is simply computed as a sum of 'init' values. This must + * work accurately even when single stepping. + */ + +#if defined(DUK_USE_INTERRUPT_COUNTER) + +#define DUK__INT_NOACTION 0 /* no specific action, resume normal execution */ +#define DUK__INT_RESTART 1 /* must "goto restart_execution", e.g. breakpoints changed */ + +#if defined(DUK_USE_DEBUGGER_SUPPORT) +DUK_LOCAL void duk__interrupt_handle_debugger(duk_hthread *thr, duk_bool_t *out_immediate, duk_small_uint_t *out_interrupt_retval) { + duk_activation *act; + duk_breakpoint *bp; + duk_breakpoint **bp_active; + duk_uint_fast32_t line = 0; + duk_bool_t process_messages; + duk_bool_t processed_messages = 0; + + DUK_ASSERT(thr->heap->dbg_processing == 0); /* don't re-enter e.g. during Eval */ + + act = thr->callstack_curr; + DUK_ASSERT(act != NULL); + + /* It might seem that replacing 'thr->heap' with just 'heap' below + * might be a good idea, but it increases code size slightly + * (probably due to unnecessary spilling) at least on x64. + */ + + /* + * Single opcode step check + */ + + if (thr->heap->dbg_pause_flags & DUK_PAUSE_FLAG_ONE_OPCODE_ACTIVE) { + DUK_D(DUK_DPRINT("PAUSE TRIGGERED by one opcode step")); + duk_debug_set_paused(thr->heap); + } + + /* + * Breakpoint and step state checks + */ + + if (act->flags & DUK_ACT_FLAG_BREAKPOINT_ACTIVE || + (thr->heap->dbg_pause_act == thr->callstack_curr)) { + line = duk_debug_curr_line(thr); + + if (act->prev_line != line) { + /* Stepped? Step out is handled by callstack unwind. */ + if ((thr->heap->dbg_pause_flags & DUK_PAUSE_FLAG_LINE_CHANGE) && + (thr->heap->dbg_pause_act == thr->callstack_curr) && + (line != thr->heap->dbg_pause_startline)) { + DUK_D(DUK_DPRINT("PAUSE TRIGGERED by line change, at line %ld", + (long) line)); + duk_debug_set_paused(thr->heap); + } + + /* Check for breakpoints only on line transition. + * Breakpoint is triggered when we enter the target + * line from a different line, and the previous line + * was within the same function. + * + * This condition is tricky: the condition used to be + * that transition to -or across- the breakpoint line + * triggered the breakpoint. This seems intuitively + * better because it handles breakpoints on lines with + * no emitted opcodes; but this leads to the issue + * described in: https://github.com/svaarala/duktape/issues/263. + */ + bp_active = thr->heap->dbg_breakpoints_active; + for (;;) { + bp = *bp_active++; + if (bp == NULL) { + break; + } + + DUK_ASSERT(bp->filename != NULL); + if (act->prev_line != bp->line && line == bp->line) { + DUK_D(DUK_DPRINT("PAUSE TRIGGERED by breakpoint at %!O:%ld", + (duk_heaphdr *) bp->filename, (long) bp->line)); + duk_debug_set_paused(thr->heap); + } + } + } else { + ; + } + + act->prev_line = (duk_uint32_t) line; + } + + /* + * Rate limit check for sending status update or peeking into + * the debug transport. Both can be expensive operations that + * we don't want to do on every opcode. + * + * Making sure the interval remains reasonable on a wide variety + * of targets and bytecode is difficult without a timestamp, so + * we use a Date-provided timestamp for the rate limit check. + * But since it's also expensive to get a timestamp, a bytecode + * counter is used to rate limit getting timestamps. + */ + + process_messages = 0; + if (thr->heap->dbg_state_dirty || DUK_HEAP_HAS_DEBUGGER_PAUSED(thr->heap) || thr->heap->dbg_detaching) { + /* Enter message processing loop for sending Status notifys and + * to finish a pending detach. + */ + process_messages = 1; + } + + /* XXX: remove heap->dbg_exec_counter, use heap->inst_count_interrupt instead? */ + DUK_ASSERT(thr->interrupt_init >= 0); + thr->heap->dbg_exec_counter += (duk_uint_t) thr->interrupt_init; + if (thr->heap->dbg_exec_counter - thr->heap->dbg_last_counter >= DUK_HEAP_DBG_RATELIMIT_OPCODES) { + /* Overflow of the execution counter is fine and doesn't break + * anything here. + */ + + duk_double_t now, diff_last; + + thr->heap->dbg_last_counter = thr->heap->dbg_exec_counter; + now = duk_time_get_monotonic_time(thr); + + diff_last = now - thr->heap->dbg_last_time; + if (diff_last < 0.0 || diff_last >= (duk_double_t) DUK_HEAP_DBG_RATELIMIT_MILLISECS) { + /* Monotonic time should not experience time jumps, + * but the provider may be missing and we're actually + * using ECMAScript time. So, tolerate negative values + * so that a time jump works reasonably. + * + * Same interval is now used for status sending and + * peeking. + */ + + thr->heap->dbg_last_time = now; + thr->heap->dbg_state_dirty = 1; + process_messages = 1; + } + } + + /* + * Process messages and send status if necessary. + * + * If we're paused, we'll block for new messages. If we're not + * paused, we'll process anything we can peek but won't block + * for more. Detach (and re-attach) handling is all localized + * to duk_debug_process_messages() too. + * + * Debugger writes outside the message loop may cause debugger + * detach1 phase to run, after which dbg_read_cb == NULL and + * dbg_detaching != 0. The message loop will finish the detach + * by running detach2 phase, so enter the message loop also when + * detaching. + */ + + if (process_messages) { + DUK_ASSERT(thr->heap->dbg_processing == 0); + processed_messages = duk_debug_process_messages(thr, 0 /*no_block*/); + DUK_ASSERT(thr->heap->dbg_processing == 0); + } + + /* Continue checked execution if there are breakpoints or we're stepping. + * Also use checked execution if paused flag is active - it shouldn't be + * because the debug message loop shouldn't terminate if it was. Step out + * is handled by callstack unwind and doesn't need checked execution. + * Note that debugger may have detached due to error or explicit request + * above, so we must recheck attach status. + */ + + if (duk_debug_is_attached(thr->heap)) { + DUK_ASSERT(act == thr->callstack_curr); + DUK_ASSERT(act != NULL); + if (act->flags & DUK_ACT_FLAG_BREAKPOINT_ACTIVE || + (thr->heap->dbg_pause_flags & DUK_PAUSE_FLAG_ONE_OPCODE) || + ((thr->heap->dbg_pause_flags & DUK_PAUSE_FLAG_LINE_CHANGE) && + thr->heap->dbg_pause_act == thr->callstack_curr) || + DUK_HEAP_HAS_DEBUGGER_PAUSED(thr->heap)) { + *out_immediate = 1; + } + + /* If we processed any debug messages breakpoints may have + * changed; restart execution to re-check active breakpoints. + */ + if (processed_messages) { + DUK_D(DUK_DPRINT("processed debug messages, restart execution to recheck possibly changed breakpoints")); + *out_interrupt_retval = DUK__INT_RESTART; + } else { + if (thr->heap->dbg_pause_flags & DUK_PAUSE_FLAG_ONE_OPCODE) { + /* Set 'pause after one opcode' active only when we're + * actually just about to execute code. + */ + thr->heap->dbg_pause_flags |= DUK_PAUSE_FLAG_ONE_OPCODE_ACTIVE; + } + } + } else { + DUK_D(DUK_DPRINT("debugger became detached, resume normal execution")); + } +} +#endif /* DUK_USE_DEBUGGER_SUPPORT */ + +DUK_LOCAL DUK_EXEC_NOINLINE_PERF DUK_COLD duk_small_uint_t duk__executor_interrupt(duk_hthread *thr) { + duk_int_t ctr; + duk_activation *act; + duk_hcompfunc *fun; + duk_bool_t immediate = 0; + duk_small_uint_t retval; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(thr->heap != NULL); + DUK_ASSERT(thr->callstack_top > 0); + +#if defined(DUK_USE_DEBUG) + thr->heap->inst_count_interrupt += thr->interrupt_init; + DUK_DD(DUK_DDPRINT("execution interrupt, counter=%ld, init=%ld, " + "instruction counts: executor=%ld, interrupt=%ld", + (long) thr->interrupt_counter, (long) thr->interrupt_init, + (long) thr->heap->inst_count_exec, (long) thr->heap->inst_count_interrupt)); +#endif + + retval = DUK__INT_NOACTION; + ctr = DUK_HTHREAD_INTCTR_DEFAULT; + + /* + * Avoid nested calls. Concretely this happens during debugging, e.g. + * when we eval() an expression. + * + * Also don't interrupt if we're currently doing debug processing + * (which can be initiated outside the bytecode executor) as this + * may cause the debugger to be called recursively. Check required + * for correct operation of throw intercept and other "exotic" halting + * scenarios. + */ + +#if defined(DUK_USE_DEBUGGER_SUPPORT) + if (DUK_HEAP_HAS_INTERRUPT_RUNNING(thr->heap) || thr->heap->dbg_processing) { +#else + if (DUK_HEAP_HAS_INTERRUPT_RUNNING(thr->heap)) { +#endif + DUK_DD(DUK_DDPRINT("nested executor interrupt, ignoring")); + + /* Set a high interrupt counter; the original executor + * interrupt invocation will rewrite before exiting. + */ + thr->interrupt_init = ctr; + thr->interrupt_counter = ctr - 1; + return DUK__INT_NOACTION; + } + DUK_HEAP_SET_INTERRUPT_RUNNING(thr->heap); + + act = thr->callstack_curr; + DUK_ASSERT(act != NULL); + + fun = (duk_hcompfunc *) DUK_ACT_GET_FUNC(act); + DUK_ASSERT(DUK_HOBJECT_HAS_COMPFUNC((duk_hobject *) fun)); + + DUK_UNREF(fun); + +#if defined(DUK_USE_EXEC_TIMEOUT_CHECK) + /* + * Execution timeout check + */ + + if (DUK_USE_EXEC_TIMEOUT_CHECK(thr->heap->heap_udata)) { + /* Keep throwing an error whenever we get here. The unusual values + * are set this way because no instruction is ever executed, we just + * throw an error until all try/catch/finally and other catchpoints + * have been exhausted. Duktape/C code gets control at each protected + * call but whenever it enters back into Duktape the RangeError gets + * raised. User exec timeout check must consistently indicate a timeout + * until we've fully bubbled out of Duktape. + */ + DUK_D(DUK_DPRINT("execution timeout, throwing a RangeError")); + thr->interrupt_init = 0; + thr->interrupt_counter = 0; + DUK_HEAP_CLEAR_INTERRUPT_RUNNING(thr->heap); + DUK_ERROR_RANGE(thr, "execution timeout"); + DUK_WO_NORETURN(return 0;); + } +#endif /* DUK_USE_EXEC_TIMEOUT_CHECK */ + +#if defined(DUK_USE_DEBUGGER_SUPPORT) + if (!thr->heap->dbg_processing && + (thr->heap->dbg_read_cb != NULL || thr->heap->dbg_detaching)) { + /* Avoid recursive re-entry; enter when we're attached or + * detaching (to finish off the pending detach). + */ + duk__interrupt_handle_debugger(thr, &immediate, &retval); + DUK_ASSERT(act == thr->callstack_curr); + } +#endif /* DUK_USE_DEBUGGER_SUPPORT */ + + /* + * Update the interrupt counter + */ + + if (immediate) { + /* Cause an interrupt after executing one instruction. */ + ctr = 1; + } + + /* The counter value is one less than the init value: init value should + * indicate how many instructions are executed before interrupt. To + * execute 1 instruction (after interrupt handler return), counter must + * be 0. + */ + DUK_ASSERT(ctr >= 1); + thr->interrupt_init = ctr; + thr->interrupt_counter = ctr - 1; + DUK_HEAP_CLEAR_INTERRUPT_RUNNING(thr->heap); + + return retval; +} +#endif /* DUK_USE_INTERRUPT_COUNTER */ + +/* + * Debugger handling for executor restart + * + * Check for breakpoints, stepping, etc, and figure out if we should execute + * in checked or normal mode. Note that we can't do this when an activation + * is created, because breakpoint status (and stepping status) may change + * later, so we must recheck every time we're executing an activation. + * This primitive should be side effect free to avoid changes during check. + */ + +#if defined(DUK_USE_DEBUGGER_SUPPORT) +DUK_LOCAL void duk__executor_recheck_debugger(duk_hthread *thr, duk_activation *act, duk_hcompfunc *fun) { + duk_heap *heap; + duk_tval *tv_tmp; + duk_hstring *filename; + duk_small_uint_t bp_idx; + duk_breakpoint **bp_active; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(act != NULL); + DUK_ASSERT(fun != NULL); + + heap = thr->heap; + bp_active = heap->dbg_breakpoints_active; + act->flags &= ~DUK_ACT_FLAG_BREAKPOINT_ACTIVE; + + tv_tmp = duk_hobject_find_entry_tval_ptr_stridx(thr->heap, (duk_hobject *) fun, DUK_STRIDX_FILE_NAME); + if (tv_tmp && DUK_TVAL_IS_STRING(tv_tmp)) { + filename = DUK_TVAL_GET_STRING(tv_tmp); + + /* Figure out all active breakpoints. A breakpoint is + * considered active if the current function's fileName + * matches the breakpoint's fileName, AND there is no + * inner function that has matching line numbers + * (otherwise a breakpoint would be triggered both + * inside and outside of the inner function which would + * be confusing). Example: + * + * function foo() { + * print('foo'); + * function bar() { <-. breakpoints in these + * print('bar'); | lines should not affect + * } <-' foo() execution + * bar(); + * } + * + * We need a few things that are only available when + * debugger support is enabled: (1) a line range for + * each function, and (2) access to the function + * template to access the inner functions (and their + * line ranges). + * + * It's important to have a narrow match for active + * breakpoints so that we don't enter checked execution + * when that's not necessary. For instance, if we're + * running inside a certain function and there's + * breakpoint outside in (after the call site), we + * don't want to slow down execution of the function. + */ + + for (bp_idx = 0; bp_idx < heap->dbg_breakpoint_count; bp_idx++) { + duk_breakpoint *bp = heap->dbg_breakpoints + bp_idx; + duk_hobject **funcs, **funcs_end; + duk_hcompfunc *inner_fun; + duk_bool_t bp_match; + + if (bp->filename == filename && + bp->line >= fun->start_line && bp->line <= fun->end_line) { + bp_match = 1; + DUK_DD(DUK_DDPRINT("breakpoint filename and line match: " + "%s:%ld vs. %s (line %ld vs. %ld-%ld)", + DUK_HSTRING_GET_DATA(bp->filename), + (long) bp->line, + DUK_HSTRING_GET_DATA(filename), + (long) bp->line, + (long) fun->start_line, + (long) fun->end_line)); + + funcs = DUK_HCOMPFUNC_GET_FUNCS_BASE(thr->heap, fun); + funcs_end = DUK_HCOMPFUNC_GET_FUNCS_END(thr->heap, fun); + while (funcs != funcs_end) { + inner_fun = (duk_hcompfunc *) *funcs; + DUK_ASSERT(DUK_HOBJECT_IS_COMPFUNC((duk_hobject *) inner_fun)); + if (bp->line >= inner_fun->start_line && bp->line <= inner_fun->end_line) { + DUK_DD(DUK_DDPRINT("inner function masks ('captures') breakpoint")); + bp_match = 0; + break; + } + funcs++; + } + + if (bp_match) { + /* No need to check for size of bp_active list, + * it's always larger than maximum number of + * breakpoints. + */ + act->flags |= DUK_ACT_FLAG_BREAKPOINT_ACTIVE; + *bp_active = heap->dbg_breakpoints + bp_idx; + bp_active++; + } + } + } + } + + *bp_active = NULL; /* terminate */ + + DUK_DD(DUK_DDPRINT("ACTIVE BREAKPOINTS: %ld", (long) (bp_active - thr->heap->dbg_breakpoints_active))); + + /* Force pause if we were doing "step into" in another activation. */ + if ((thr->heap->dbg_pause_flags & DUK_PAUSE_FLAG_FUNC_ENTRY) && + thr->heap->dbg_pause_act != thr->callstack_curr) { + DUK_D(DUK_DPRINT("PAUSE TRIGGERED by function entry")); + duk_debug_set_paused(thr->heap); + } + + /* Force interrupt right away if we're paused or in "checked mode". + * Step out is handled by callstack unwind. + */ + if ((act->flags & DUK_ACT_FLAG_BREAKPOINT_ACTIVE) || + DUK_HEAP_HAS_DEBUGGER_PAUSED(thr->heap) || + ((thr->heap->dbg_pause_flags & DUK_PAUSE_FLAG_LINE_CHANGE) && + thr->heap->dbg_pause_act == thr->callstack_curr)) { + /* We'll need to interrupt early so recompute the init + * counter to reflect the number of bytecode instructions + * executed so that step counts for e.g. debugger rate + * limiting are accurate. + */ + DUK_ASSERT(thr->interrupt_counter <= thr->interrupt_init); + thr->interrupt_init = thr->interrupt_init - thr->interrupt_counter; + thr->interrupt_counter = 0; + } +} +#endif /* DUK_USE_DEBUGGER_SUPPORT */ + +/* + * Opcode handlers for opcodes with a lot of code and which are relatively + * rare; NOINLINE to reduce amount of code in main bytecode dispatcher. + */ + +DUK_LOCAL DUK_EXEC_NOINLINE_PERF void duk__handle_op_initset_initget(duk_hthread *thr, duk_uint_fast32_t ins) { + duk_bool_t is_set = (DUK_DEC_OP(ins) == DUK_OP_INITSET); + duk_uint_fast_t idx; + duk_uint_t defprop_flags; + + /* A -> object register (acts as a source) + * BC -> BC+0 contains key, BC+1 closure (value) + */ + + /* INITSET/INITGET are only used to initialize object literal keys. + * There may be a previous propery in ES2015 because duplicate property + * names are allowed. + */ + + /* This could be made more optimal by accessing internals directly. */ + + idx = (duk_uint_fast_t) DUK_DEC_BC(ins); + duk_dup(thr, (duk_idx_t) (idx + 0)); /* key */ + duk_dup(thr, (duk_idx_t) (idx + 1)); /* getter/setter */ + if (is_set) { + defprop_flags = DUK_DEFPROP_HAVE_SETTER | + DUK_DEFPROP_FORCE | + DUK_DEFPROP_SET_ENUMERABLE | + DUK_DEFPROP_SET_CONFIGURABLE; + } else { + defprop_flags = DUK_DEFPROP_HAVE_GETTER | + DUK_DEFPROP_FORCE | + DUK_DEFPROP_SET_ENUMERABLE | + DUK_DEFPROP_SET_CONFIGURABLE; + } + duk_def_prop(thr, (duk_idx_t) DUK_DEC_A(ins), defprop_flags); +} + +DUK_LOCAL DUK_EXEC_NOINLINE_PERF void duk__handle_op_trycatch(duk_hthread *thr, duk_uint_fast32_t ins, duk_instr_t *curr_pc) { + duk_activation *act; + duk_catcher *cat; + duk_tval *tv1; + duk_small_uint_fast_t a; + duk_small_uint_fast_t bc; + + /* A -> flags + * BC -> reg_catch; base register for two registers used both during + * trycatch setup and when catch is triggered + * + * If DUK_BC_TRYCATCH_FLAG_CATCH_BINDING set: + * reg_catch + 0: catch binding variable name (string). + * Automatic declarative environment is established for + * the duration of the 'catch' clause. + * + * If DUK_BC_TRYCATCH_FLAG_WITH_BINDING set: + * reg_catch + 0: with 'target value', which is coerced to + * an object and then used as a bindind object for an + * environment record. The binding is initialized here, for + * the 'try' clause. + * + * Note that a TRYCATCH generated for a 'with' statement has no + * catch or finally parts. + */ + + /* XXX: TRYCATCH handling should be reworked to avoid creating + * an explicit scope unless it is actually needed (e.g. function + * instances or eval is executed inside the catch block). This + * rework is not trivial because the compiler doesn't have an + * intermediate representation. When the rework is done, the + * opcode format can also be made more straightforward. + */ + + /* XXX: side effect handling is quite awkward here */ + + DUK_DDD(DUK_DDDPRINT("TRYCATCH: reg_catch=%ld, have_catch=%ld, " + "have_finally=%ld, catch_binding=%ld, with_binding=%ld (flags=0x%02lx)", + (long) DUK_DEC_BC(ins), + (long) (DUK_DEC_A(ins) & DUK_BC_TRYCATCH_FLAG_HAVE_CATCH ? 1 : 0), + (long) (DUK_DEC_A(ins) & DUK_BC_TRYCATCH_FLAG_HAVE_FINALLY ? 1 : 0), + (long) (DUK_DEC_A(ins) & DUK_BC_TRYCATCH_FLAG_CATCH_BINDING ? 1 : 0), + (long) (DUK_DEC_A(ins) & DUK_BC_TRYCATCH_FLAG_WITH_BINDING ? 1 : 0), + (unsigned long) DUK_DEC_A(ins))); + + a = DUK_DEC_A(ins); + bc = DUK_DEC_BC(ins); + + /* Registers 'bc' and 'bc + 1' are written in longjmp handling + * and if their previous values (which are temporaries) become + * unreachable -and- have a finalizer, there'll be a function + * call during error handling which is not supported now (GH-287). + * Ensure that both 'bc' and 'bc + 1' have primitive values to + * guarantee no finalizer calls in error handling. Scrubbing also + * ensures finalizers for the previous values run here rather than + * later. Error handling related values are also written to 'bc' + * and 'bc + 1' but those values never become unreachable during + * error handling, so there's no side effect problem even if the + * error value has a finalizer. + */ + duk_dup(thr, (duk_idx_t) bc); /* Stabilize value. */ + duk_to_undefined(thr, (duk_idx_t) bc); + duk_to_undefined(thr, (duk_idx_t) (bc + 1)); + + /* Allocate catcher and populate it. Doesn't have to + * be fully atomic, but the catcher must be in a + * consistent state if side effects (such as finalizer + * calls) occur. + */ + + cat = duk_hthread_catcher_alloc(thr); + DUK_ASSERT(cat != NULL); + + cat->flags = DUK_CAT_TYPE_TCF; + cat->h_varname = NULL; + cat->pc_base = (duk_instr_t *) curr_pc; /* pre-incremented, points to first jump slot */ + cat->idx_base = (duk_size_t) (thr->valstack_bottom - thr->valstack) + bc; + + act = thr->callstack_curr; + DUK_ASSERT(act != NULL); + cat->parent = act->cat; + act->cat = cat; + + if (a & DUK_BC_TRYCATCH_FLAG_HAVE_CATCH) { + cat->flags |= DUK_CAT_FLAG_CATCH_ENABLED; + } + if (a & DUK_BC_TRYCATCH_FLAG_HAVE_FINALLY) { + cat->flags |= DUK_CAT_FLAG_FINALLY_ENABLED; + } + if (a & DUK_BC_TRYCATCH_FLAG_CATCH_BINDING) { + DUK_DDD(DUK_DDDPRINT("catch binding flag set to catcher")); + cat->flags |= DUK_CAT_FLAG_CATCH_BINDING_ENABLED; + tv1 = DUK_GET_TVAL_NEGIDX(thr, -1); + DUK_ASSERT(DUK_TVAL_IS_STRING(tv1)); + + /* borrowed reference; although 'tv1' comes from a register, + * its value was loaded using LDCONST so the constant will + * also exist and be reachable. + */ + cat->h_varname = DUK_TVAL_GET_STRING(tv1); + } else if (a & DUK_BC_TRYCATCH_FLAG_WITH_BINDING) { + duk_hobjenv *env; + duk_hobject *target; + + /* Delayed env initialization for activation (if needed). */ + DUK_ASSERT(thr->callstack_top >= 1); + DUK_ASSERT(act == thr->callstack_curr); + DUK_ASSERT(act != NULL); + if (act->lex_env == NULL) { + DUK_DDD(DUK_DDDPRINT("delayed environment initialization")); + DUK_ASSERT(act->var_env == NULL); + + duk_js_init_activation_environment_records_delayed(thr, act); + DUK_ASSERT(act == thr->callstack_curr); + DUK_UNREF(act); /* 'act' is no longer accessed, scanbuild fix */ + } + DUK_ASSERT(act->lex_env != NULL); + DUK_ASSERT(act->var_env != NULL); + + /* Coerce 'with' target. */ + target = duk_to_hobject(thr, -1); + DUK_ASSERT(target != NULL); + + /* Create an object environment; it is not pushed + * so avoid side effects very carefully until it is + * referenced. + */ + env = duk_hobjenv_alloc(thr, + DUK_HOBJECT_FLAG_EXTENSIBLE | + DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_OBJENV)); + DUK_ASSERT(env != NULL); + DUK_ASSERT(DUK_HOBJECT_GET_PROTOTYPE(thr->heap, (duk_hobject *) env) == NULL); + env->target = target; /* always provideThis=true */ + DUK_HOBJECT_INCREF(thr, target); + env->has_this = 1; + DUK_HOBJENV_ASSERT_VALID(env); + DUK_DDD(DUK_DDDPRINT("environment for with binding: %!iO", env)); + + DUK_ASSERT(act == thr->callstack_curr); + DUK_ASSERT(DUK_HOBJECT_GET_PROTOTYPE(thr->heap, (duk_hobject *) env) == NULL); + DUK_ASSERT(act->lex_env != NULL); + DUK_HOBJECT_SET_PROTOTYPE(thr->heap, (duk_hobject *) env, act->lex_env); + act->lex_env = (duk_hobject *) env; /* Now reachable. */ + DUK_HOBJECT_INCREF(thr, (duk_hobject *) env); + /* Net refcount change to act->lex_env is 0: incref for env's + * prototype, decref for act->lex_env overwrite. + */ + + /* Set catcher lex_env active (affects unwind) + * only when the whole setup is complete. + */ + cat = act->cat; /* XXX: better to relookup? not mandatory because 'cat' is stable */ + cat->flags |= DUK_CAT_FLAG_LEXENV_ACTIVE; + } else { + ; + } + + DUK_DDD(DUK_DDDPRINT("TRYCATCH catcher: flags=0x%08lx, pc_base=%ld, " + "idx_base=%ld, h_varname=%!O", + (unsigned long) cat->flags, + (long) cat->pc_base, (long) cat->idx_base, (duk_heaphdr *) cat->h_varname)); + + duk_pop_unsafe(thr); +} + +DUK_LOCAL DUK_EXEC_NOINLINE_PERF duk_instr_t *duk__handle_op_endtry(duk_hthread *thr, duk_uint_fast32_t ins) { + duk_activation *act; + duk_catcher *cat; + duk_tval *tv1; + duk_instr_t *pc_base; + + DUK_UNREF(ins); + + DUK_ASSERT(thr->callstack_top >= 1); + act = thr->callstack_curr; + DUK_ASSERT(act != NULL); + cat = act->cat; + DUK_ASSERT(cat != NULL); + DUK_ASSERT(DUK_CAT_GET_TYPE(act->cat) == DUK_CAT_TYPE_TCF); + + DUK_DDD(DUK_DDDPRINT("ENDTRY: clearing catch active flag (regardless of whether it was set or not)")); + DUK_CAT_CLEAR_CATCH_ENABLED(cat); + + pc_base = cat->pc_base; + + if (DUK_CAT_HAS_FINALLY_ENABLED(cat)) { + DUK_DDD(DUK_DDDPRINT("ENDTRY: finally part is active, jump through 2nd jump slot with 'normal continuation'")); + + tv1 = thr->valstack + cat->idx_base; + DUK_ASSERT(tv1 >= thr->valstack && tv1 < thr->valstack_top); + DUK_TVAL_SET_UNDEFINED_UPDREF(thr, tv1); /* side effects */ + tv1 = NULL; + + tv1 = thr->valstack + cat->idx_base + 1; + DUK_ASSERT(tv1 >= thr->valstack && tv1 < thr->valstack_top); + DUK_TVAL_SET_U32_UPDREF(thr, tv1, (duk_uint32_t) DUK_LJ_TYPE_NORMAL); /* side effects */ + tv1 = NULL; + + DUK_CAT_CLEAR_FINALLY_ENABLED(cat); + } else { + DUK_DDD(DUK_DDDPRINT("ENDTRY: no finally part, dismantle catcher, jump through 2nd jump slot (to end of statement)")); + + duk_hthread_catcher_unwind_norz(thr, act); /* lexenv may be set for 'with' binding */ + /* no need to unwind callstack */ + } + + return pc_base + 1; /* new curr_pc value */ +} + +DUK_LOCAL DUK_EXEC_NOINLINE_PERF duk_instr_t *duk__handle_op_endcatch(duk_hthread *thr, duk_uint_fast32_t ins) { + duk_activation *act; + duk_catcher *cat; + duk_tval *tv1; + duk_instr_t *pc_base; + + DUK_UNREF(ins); + + DUK_ASSERT(thr->callstack_top >= 1); + act = thr->callstack_curr; + DUK_ASSERT(act != NULL); + cat = act->cat; + DUK_ASSERT(cat != NULL); + DUK_ASSERT(!DUK_CAT_HAS_CATCH_ENABLED(cat)); /* cleared before entering catch part */ + + if (DUK_CAT_HAS_LEXENV_ACTIVE(cat)) { + duk_hobject *prev_env; + + /* 'with' binding has no catch clause, so can't be here unless a normal try-catch */ + DUK_ASSERT(DUK_CAT_HAS_CATCH_BINDING_ENABLED(cat)); + DUK_ASSERT(act->lex_env != NULL); + + DUK_DDD(DUK_DDDPRINT("ENDCATCH: popping catcher part lexical environment")); + + prev_env = act->lex_env; + DUK_ASSERT(prev_env != NULL); + act->lex_env = DUK_HOBJECT_GET_PROTOTYPE(thr->heap, prev_env); + DUK_CAT_CLEAR_LEXENV_ACTIVE(cat); + DUK_HOBJECT_INCREF(thr, act->lex_env); + DUK_HOBJECT_DECREF(thr, prev_env); /* side effects */ + + DUK_ASSERT(act == thr->callstack_curr); + DUK_ASSERT(act != NULL); + } + + pc_base = cat->pc_base; + + if (DUK_CAT_HAS_FINALLY_ENABLED(cat)) { + DUK_DDD(DUK_DDDPRINT("ENDCATCH: finally part is active, jump through 2nd jump slot with 'normal continuation'")); + + tv1 = thr->valstack + cat->idx_base; + DUK_ASSERT(tv1 >= thr->valstack && tv1 < thr->valstack_top); + DUK_TVAL_SET_UNDEFINED_UPDREF(thr, tv1); /* side effects */ + tv1 = NULL; + + tv1 = thr->valstack + cat->idx_base + 1; + DUK_ASSERT(tv1 >= thr->valstack && tv1 < thr->valstack_top); + DUK_TVAL_SET_U32_UPDREF(thr, tv1, (duk_uint32_t) DUK_LJ_TYPE_NORMAL); /* side effects */ + tv1 = NULL; + + DUK_CAT_CLEAR_FINALLY_ENABLED(cat); + } else { + DUK_DDD(DUK_DDDPRINT("ENDCATCH: no finally part, dismantle catcher, jump through 2nd jump slot (to end of statement)")); + + duk_hthread_catcher_unwind_norz(thr, act); + /* no need to unwind callstack */ + } + + return pc_base + 1; /* new curr_pc value */ +} + +DUK_LOCAL DUK_EXEC_NOINLINE_PERF duk_small_uint_t duk__handle_op_endfin(duk_hthread *thr, duk_uint_fast32_t ins, duk_activation *entry_act) { + duk_activation *act; + duk_tval *tv1; + duk_uint_t reg_catch; + duk_small_uint_t cont_type; + duk_small_uint_t ret_result; + + DUK_ASSERT(thr->ptr_curr_pc == NULL); + DUK_ASSERT(thr->callstack_top >= 1); + act = thr->callstack_curr; + DUK_ASSERT(act != NULL); + reg_catch = DUK_DEC_ABC(ins); + + /* CATCH flag may be enabled or disabled here; it may be enabled if + * the statement has a catch block but the try block does not throw + * an error. + */ + + DUK_DDD(DUK_DDDPRINT("ENDFIN: completion value=%!T, type=%!T", + (duk_tval *) (thr->valstack_bottom + reg_catch + 0), + (duk_tval *) (thr->valstack_bottom + reg_catch + 1))); + + tv1 = thr->valstack_bottom + reg_catch + 1; /* type */ + DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv1)); +#if defined(DUK_USE_FASTINT) + DUK_ASSERT(DUK_TVAL_IS_FASTINT(tv1)); + cont_type = (duk_small_uint_t) DUK_TVAL_GET_FASTINT_U32(tv1); +#else + cont_type = (duk_small_uint_t) DUK_TVAL_GET_NUMBER(tv1); +#endif + + tv1--; /* value */ + + switch (cont_type) { + case DUK_LJ_TYPE_NORMAL: { + DUK_DDD(DUK_DDDPRINT("ENDFIN: finally part finishing with 'normal' (non-abrupt) completion -> " + "dismantle catcher, resume execution after ENDFIN")); + + duk_hthread_catcher_unwind_norz(thr, act); + /* no need to unwind callstack */ + return 0; /* restart execution */ + } + case DUK_LJ_TYPE_RETURN: { + DUK_DDD(DUK_DDDPRINT("ENDFIN: finally part finishing with 'return' complation -> dismantle " + "catcher, handle return, lj.value1=%!T", tv1)); + + /* Not necessary to unwind catch stack: return handling will + * do it. The finally flag of 'cat' is no longer set. The + * catch flag may be set, but it's not checked by return handling. + */ + + duk_push_tval(thr, tv1); + ret_result = duk__handle_return(thr, entry_act); + if (ret_result == DUK__RETHAND_RESTART) { + return 0; /* restart execution */ + } + DUK_ASSERT(ret_result == DUK__RETHAND_FINISHED); + + DUK_DDD(DUK_DDDPRINT("exiting executor after ENDFIN and RETURN (pseudo) longjmp type")); + return 1; /* exit executor */ + } + case DUK_LJ_TYPE_BREAK: + case DUK_LJ_TYPE_CONTINUE: { + duk_uint_t label_id; + duk_small_uint_t lj_type; + + /* Not necessary to unwind catch stack: break/continue + * handling will do it. The finally flag of 'cat' is + * no longer set. The catch flag may be set, but it's + * not checked by break/continue handling. + */ + + DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv1)); +#if defined(DUK_USE_FASTINT) + DUK_ASSERT(DUK_TVAL_IS_FASTINT(tv1)); + label_id = (duk_small_uint_t) DUK_TVAL_GET_FASTINT_U32(tv1); +#else + label_id = (duk_small_uint_t) DUK_TVAL_GET_NUMBER(tv1); +#endif + lj_type = cont_type; + duk__handle_break_or_continue(thr, label_id, lj_type); + return 0; /* restart execution */ + } + default: { + DUK_DDD(DUK_DDDPRINT("ENDFIN: finally part finishing with abrupt completion, lj_type=%ld -> " + "dismantle catcher, re-throw error", + (long) cont_type)); + + duk_err_setup_ljstate1(thr, (duk_small_uint_t) cont_type, tv1); + /* No debugger Throw notify check on purpose (rethrow). */ + + DUK_ASSERT(thr->heap->lj.jmpbuf_ptr != NULL); /* always in executor */ + duk_err_longjmp(thr); + DUK_UNREACHABLE(); + } + } + + DUK_UNREACHABLE(); + return 0; +} + +DUK_LOCAL DUK_EXEC_NOINLINE_PERF void duk__handle_op_initenum(duk_hthread *thr, duk_uint_fast32_t ins) { + duk_small_uint_t b; + duk_small_uint_t c; + + /* + * Enumeration semantics come from for-in statement, E5 Section 12.6.4. + * If called with 'null' or 'undefined', this opcode returns 'null' as + * the enumerator, which is special cased in NEXTENUM. This simplifies + * the compiler part + */ + + /* B -> register for writing enumerator object + * C -> value to be enumerated (register) + */ + b = DUK_DEC_B(ins); + c = DUK_DEC_C(ins); + + if (duk_is_null_or_undefined(thr, (duk_idx_t) c)) { + duk_push_null(thr); + duk_replace(thr, (duk_idx_t) b); + } else { + duk_dup(thr, (duk_idx_t) c); + duk_to_object(thr, -1); + duk_hobject_enumerator_create(thr, 0 /*enum_flags*/); /* [ ... val ] --> [ ... enum ] */ + duk_replace(thr, (duk_idx_t) b); + } +} + +DUK_LOCAL DUK_EXEC_NOINLINE_PERF duk_small_uint_t duk__handle_op_nextenum(duk_hthread *thr, duk_uint_fast32_t ins) { + duk_small_uint_t b; + duk_small_uint_t c; + duk_small_uint_t pc_skip = 0; + + /* + * NEXTENUM checks whether the enumerator still has unenumerated + * keys. If so, the next key is loaded to the target register + * and the next instruction is skipped. Otherwise the next instruction + * will be executed, jumping out of the enumeration loop. + */ + + /* B -> target register for next key + * C -> enum register + */ + b = DUK_DEC_B(ins); + c = DUK_DEC_C(ins); + + DUK_DDD(DUK_DDDPRINT("NEXTENUM: b->%!T, c->%!T", + (duk_tval *) duk_get_tval(thr, (duk_idx_t) b), + (duk_tval *) duk_get_tval(thr, (duk_idx_t) c))); + + if (duk_is_object(thr, (duk_idx_t) c)) { + /* XXX: assert 'c' is an enumerator */ + duk_dup(thr, (duk_idx_t) c); + if (duk_hobject_enumerator_next(thr, 0 /*get_value*/)) { + /* [ ... enum ] -> [ ... next_key ] */ + DUK_DDD(DUK_DDDPRINT("enum active, next key is %!T, skip jump slot ", + (duk_tval *) duk_get_tval(thr, -1))); + pc_skip = 1; + } else { + /* [ ... enum ] -> [ ... ] */ + DUK_DDD(DUK_DDDPRINT("enum finished, execute jump slot")); + DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(thr->valstack_top)); /* valstack policy */ + thr->valstack_top++; + } + duk_replace(thr, (duk_idx_t) b); + } else { + /* 'null' enumerator case -> behave as with an empty enumerator */ + DUK_ASSERT(duk_is_null(thr, (duk_idx_t) c)); + DUK_DDD(DUK_DDDPRINT("enum is null, execute jump slot")); + } + + return pc_skip; +} + +/* + * Call handling helpers. + */ + +DUK_LOCAL duk_bool_t duk__executor_handle_call(duk_hthread *thr, duk_idx_t idx, duk_idx_t nargs, duk_small_uint_t call_flags) { + duk_bool_t rc; + + duk_set_top_unsafe(thr, (duk_idx_t) (idx + nargs + 2)); /* [ ... func this arg1 ... argN ] */ + + /* Attempt an Ecma-to-Ecma call setup. If the call + * target is (directly or indirectly) Reflect.construct(), + * the call may change into a constructor call on the fly. + */ + rc = (duk_bool_t) duk_handle_call_unprotected(thr, idx, call_flags); + if (rc != 0) { + /* Ecma-to-ecma call possible, may or may not + * be a tail call. Avoid C recursion by + * reusing current executor instance. + */ + DUK_DDD(DUK_DDDPRINT("ecma-to-ecma call setup possible, restart execution")); + /* curr_pc synced by duk_handle_call_unprotected() */ + DUK_ASSERT(thr->ptr_curr_pc == NULL); + return rc; + } else { + /* Call was handled inline. */ + } + DUK_ASSERT(thr->ptr_curr_pc != NULL); + return rc; +} + +/* + * ECMAScript bytecode executor. + * + * Resume execution for the current thread from its current activation. + * Returns when execution would return from the entry level activation, + * leaving a single return value on top of the stack. Function calls + * and thread resumptions are handled internally. If an error occurs, + * a longjmp() with type DUK_LJ_TYPE_THROW is called on the entry level + * setjmp() jmpbuf. + * + * ECMAScript function calls and coroutine resumptions are handled + * internally (by the outer executor function) without recursive C calls. + * Other function calls are handled using duk_handle_call(), increasing + * C recursion depth. + * + * Abrupt completions (= long control tranfers) are handled either + * directly by reconfiguring relevant stacks and restarting execution, + * or via a longjmp. Longjmp-free handling is preferable for performance + * (especially Emscripten performance), and is used for: break, continue, + * and return. + * + * For more detailed notes, see doc/execution.rst. + * + * Also see doc/code-issues.rst for discussion of setjmp(), longjmp(), + * and volatile. + */ + +/* Presence of 'fun' is config based, there's a marginal performance + * difference and the best option is architecture dependent. + */ +#if defined(DUK_USE_EXEC_FUN_LOCAL) +#define DUK__FUN() fun +#else +#define DUK__FUN() ((duk_hcompfunc *) DUK_ACT_GET_FUNC((thr)->callstack_curr)) +#endif + +/* Strict flag. */ +#define DUK__STRICT() ((duk_small_uint_t) DUK_HOBJECT_HAS_STRICT((duk_hobject *) DUK__FUN())) + +/* Reg/const access macros: these are very footprint and performance sensitive + * so modify with care. Arguments are sometimes evaluated multiple times which + * is not ideal. + */ +#define DUK__REG(x) (*(thr->valstack_bottom + (x))) +#define DUK__REGP(x) (thr->valstack_bottom + (x)) +#define DUK__CONST(x) (*(consts + (x))) +#define DUK__CONSTP(x) (consts + (x)) + +/* Reg/const access macros which take the 32-bit instruction and avoid an + * explicit field decoding step by using shifts and masks. These must be + * kept in sync with duk_js_bytecode.h. The shift/mask values are chosen + * so that 'ins' can be shifted and masked and used as a -byte- offset + * instead of a duk_tval offset which needs further shifting (which is an + * issue on some, but not all, CPUs). + */ +#define DUK__RCBIT_B DUK_BC_REGCONST_B +#define DUK__RCBIT_C DUK_BC_REGCONST_C +#if defined(DUK_USE_EXEC_REGCONST_OPTIMIZE) +#if defined(DUK_USE_PACKED_TVAL) +#define DUK__TVAL_SHIFT 3 /* sizeof(duk_tval) == 8 */ +#else +#define DUK__TVAL_SHIFT 4 /* sizeof(duk_tval) == 16; not always the case so also asserted for */ +#endif +#define DUK__SHIFT_A (DUK_BC_SHIFT_A - DUK__TVAL_SHIFT) +#define DUK__SHIFT_B (DUK_BC_SHIFT_B - DUK__TVAL_SHIFT) +#define DUK__SHIFT_C (DUK_BC_SHIFT_C - DUK__TVAL_SHIFT) +#define DUK__SHIFT_BC (DUK_BC_SHIFT_BC - DUK__TVAL_SHIFT) +#define DUK__MASK_A (DUK_BC_UNSHIFTED_MASK_A << DUK__TVAL_SHIFT) +#define DUK__MASK_B (DUK_BC_UNSHIFTED_MASK_B << DUK__TVAL_SHIFT) +#define DUK__MASK_C (DUK_BC_UNSHIFTED_MASK_C << DUK__TVAL_SHIFT) +#define DUK__MASK_BC (DUK_BC_UNSHIFTED_MASK_BC << DUK__TVAL_SHIFT) +#define DUK__BYTEOFF_A(ins) (((ins) >> DUK__SHIFT_A) & DUK__MASK_A) +#define DUK__BYTEOFF_B(ins) (((ins) >> DUK__SHIFT_B) & DUK__MASK_B) +#define DUK__BYTEOFF_C(ins) (((ins) >> DUK__SHIFT_C) & DUK__MASK_C) +#define DUK__BYTEOFF_BC(ins) (((ins) >> DUK__SHIFT_BC) & DUK__MASK_BC) + +#define DUK__REGP_A(ins) ((duk_tval *) (void *) ((duk_uint8_t *) thr->valstack_bottom + DUK__BYTEOFF_A((ins)))) +#define DUK__REGP_B(ins) ((duk_tval *) (void *) ((duk_uint8_t *) thr->valstack_bottom + DUK__BYTEOFF_B((ins)))) +#define DUK__REGP_C(ins) ((duk_tval *) (void *) ((duk_uint8_t *) thr->valstack_bottom + DUK__BYTEOFF_C((ins)))) +#define DUK__REGP_BC(ins) ((duk_tval *) (void *) ((duk_uint8_t *) thr->valstack_bottom + DUK__BYTEOFF_BC((ins)))) +#define DUK__CONSTP_A(ins) ((duk_tval *) (void *) ((duk_uint8_t *) consts + DUK__BYTEOFF_A((ins)))) +#define DUK__CONSTP_B(ins) ((duk_tval *) (void *) ((duk_uint8_t *) consts + DUK__BYTEOFF_B((ins)))) +#define DUK__CONSTP_C(ins) ((duk_tval *) (void *) ((duk_uint8_t *) consts + DUK__BYTEOFF_C((ins)))) +#define DUK__CONSTP_BC(ins) ((duk_tval *) (void *) ((duk_uint8_t *) consts + DUK__BYTEOFF_BC((ins)))) +#define DUK__REGCONSTP_B(ins) ((duk_tval *) (void *) ((duk_uint8_t *) (((ins) & DUK__RCBIT_B) ? consts : thr->valstack_bottom) + DUK__BYTEOFF_B((ins)))) +#define DUK__REGCONSTP_C(ins) ((duk_tval *) (void *) ((duk_uint8_t *) (((ins) & DUK__RCBIT_C) ? consts : thr->valstack_bottom) + DUK__BYTEOFF_C((ins)))) +#else /* DUK_USE_EXEC_REGCONST_OPTIMIZE */ +/* Safe alternatives, no assumption about duk_tval size. */ +#define DUK__REGP_A(ins) DUK__REGP(DUK_DEC_A((ins))) +#define DUK__REGP_B(ins) DUK__REGP(DUK_DEC_B((ins))) +#define DUK__REGP_C(ins) DUK__REGP(DUK_DEC_C((ins))) +#define DUK__REGP_BC(ins) DUK__REGP(DUK_DEC_BC((ins))) +#define DUK__CONSTP_A(ins) DUK__CONSTP(DUK_DEC_A((ins))) +#define DUK__CONSTP_B(ins) DUK__CONSTP(DUK_DEC_B((ins))) +#define DUK__CONSTP_C(ins) DUK__CONSTP(DUK_DEC_C((ins))) +#define DUK__CONSTP_BC(ins) DUK__CONSTP(DUK_DEC_BC((ins))) +#define DUK__REGCONSTP_B(ins) ((((ins) & DUK__RCBIT_B) ? consts : thr->valstack_bottom) + DUK_DEC_B((ins))) +#define DUK__REGCONSTP_C(ins) ((((ins) & DUK__RCBIT_C) ? consts : thr->valstack_bottom) + DUK_DEC_C((ins))) +#endif /* DUK_USE_EXEC_REGCONST_OPTIMIZE */ + +#if defined(DUK_USE_VERBOSE_EXECUTOR_ERRORS) +#define DUK__INTERNAL_ERROR(msg) do { \ + DUK_ERROR_ERROR(thr, (msg)); \ + DUK_WO_NORETURN(return;); \ + } while (0) +#else +#define DUK__INTERNAL_ERROR(msg) do { \ + goto internal_error; \ + } while (0) +#endif + +#define DUK__SYNC_CURR_PC() do { \ + duk_activation *duk__act; \ + duk__act = thr->callstack_curr; \ + duk__act->curr_pc = curr_pc; \ + } while (0) +#define DUK__SYNC_AND_NULL_CURR_PC() do { \ + duk_activation *duk__act; \ + duk__act = thr->callstack_curr; \ + duk__act->curr_pc = curr_pc; \ + thr->ptr_curr_pc = NULL; \ + } while (0) + +#if defined(DUK_USE_EXEC_PREFER_SIZE) +#define DUK__LOOKUP_INDIRECT(idx) do { \ + (idx) = (duk_uint_fast_t) duk_get_uint(thr, (duk_idx_t) (idx)); \ + } while (0) +#elif defined(DUK_USE_FASTINT) +#define DUK__LOOKUP_INDIRECT(idx) do { \ + duk_tval *tv_ind; \ + tv_ind = DUK__REGP((idx)); \ + DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv_ind)); \ + DUK_ASSERT(DUK_TVAL_IS_FASTINT(tv_ind)); /* compiler guarantees */ \ + (idx) = (duk_uint_fast_t) DUK_TVAL_GET_FASTINT_U32(tv_ind); \ + } while (0) +#else +#define DUK__LOOKUP_INDIRECT(idx) do { \ + duk_tval *tv_ind; \ + tv_ind = DUK__REGP(idx); \ + DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv_ind)); \ + idx = (duk_uint_fast_t) DUK_TVAL_GET_NUMBER(tv_ind); \ + } while (0) +#endif + +DUK_LOCAL void duk__handle_executor_error(duk_heap *heap, + duk_activation *entry_act, + duk_int_t entry_call_recursion_depth, + duk_jmpbuf *entry_jmpbuf_ptr, + volatile duk_bool_t *out_delayed_catch_setup) { + duk_small_uint_t lj_ret; + + /* Longjmp callers are required to sync-and-null thr->ptr_curr_pc + * before longjmp. + */ + DUK_ASSERT(heap->curr_thread != NULL); + DUK_ASSERT(heap->curr_thread->ptr_curr_pc == NULL); + + /* XXX: signalling the need to shrink check (only if unwound) */ + + /* Must be restored here to handle e.g. yields properly. */ + heap->call_recursion_depth = entry_call_recursion_depth; + + /* Switch to caller's setjmp() catcher so that if an error occurs + * during error handling, it is always propagated outwards instead + * of causing an infinite loop in our own handler. + */ + heap->lj.jmpbuf_ptr = (duk_jmpbuf *) entry_jmpbuf_ptr; + + lj_ret = duk__handle_longjmp(heap->curr_thread, entry_act, out_delayed_catch_setup); + + /* Error handling complete, remove side effect protections. + */ +#if defined(DUK_USE_ASSERTIONS) + DUK_ASSERT(heap->error_not_allowed == 1); + heap->error_not_allowed = 0; +#endif + DUK_ASSERT(heap->pf_prevent_count > 0); + heap->pf_prevent_count--; + DUK_DD(DUK_DDPRINT("executor error handled, pf_prevent_count updated to %ld", (long) heap->pf_prevent_count)); + + if (lj_ret == DUK__LONGJMP_RESTART) { + /* Restart bytecode execution, possibly with a changed thread. */ + DUK_REFZERO_CHECK_SLOW(heap->curr_thread); + } else { + /* If an error is propagated, don't run refzero checks here. + * The next catcher will deal with that. Pf_prevent_count + * will be re-bumped by the longjmp. + */ + + DUK_ASSERT(lj_ret == DUK__LONGJMP_RETHROW); /* Rethrow error to calling state. */ + DUK_ASSERT(heap->lj.jmpbuf_ptr == entry_jmpbuf_ptr); /* Longjmp handling has restored jmpbuf_ptr. */ + + /* Thread may have changed, e.g. YIELD converted to THROW. */ + duk_err_longjmp(heap->curr_thread); + DUK_UNREACHABLE(); + } +} + +/* Outer executor with setjmp/longjmp handling. */ +DUK_INTERNAL void duk_js_execute_bytecode(duk_hthread *exec_thr) { + /* Entry level info. */ + duk_hthread *entry_thread; + duk_activation *entry_act; + duk_int_t entry_call_recursion_depth; + duk_jmpbuf *entry_jmpbuf_ptr; + duk_jmpbuf our_jmpbuf; + duk_heap *heap; + volatile duk_bool_t delayed_catch_setup = 0; + + DUK_ASSERT(exec_thr != NULL); + DUK_ASSERT(exec_thr->heap != NULL); + DUK_ASSERT(exec_thr->heap->curr_thread != NULL); + DUK_ASSERT_REFCOUNT_NONZERO_HEAPHDR((duk_heaphdr *) exec_thr); + DUK_ASSERT(exec_thr->callstack_top >= 1); /* at least one activation, ours */ + DUK_ASSERT(exec_thr->callstack_curr != NULL); + DUK_ASSERT(DUK_ACT_GET_FUNC(exec_thr->callstack_curr) != NULL); + DUK_ASSERT(DUK_HOBJECT_IS_COMPFUNC(DUK_ACT_GET_FUNC(exec_thr->callstack_curr))); + + DUK_GC_TORTURE(exec_thr->heap); + + entry_thread = exec_thr; + heap = entry_thread->heap; + entry_act = entry_thread->callstack_curr; + DUK_ASSERT(entry_act != NULL); + entry_call_recursion_depth = entry_thread->heap->call_recursion_depth; + entry_jmpbuf_ptr = entry_thread->heap->lj.jmpbuf_ptr; + + /* + * Note: we currently assume that the setjmp() catchpoint is + * not re-entrant (longjmp() cannot be called more than once + * for a single setjmp()). + * + * See doc/code-issues.rst for notes on variable assignment + * before and after setjmp(). + */ + + for (;;) { + heap->lj.jmpbuf_ptr = &our_jmpbuf; + DUK_ASSERT(heap->lj.jmpbuf_ptr != NULL); + +#if defined(DUK_USE_CPP_EXCEPTIONS) + try { +#else + DUK_ASSERT(heap->lj.jmpbuf_ptr == &our_jmpbuf); + if (DUK_SETJMP(our_jmpbuf.jb) == 0) { +#endif + DUK_DDD(DUK_DDDPRINT("after setjmp, delayed catch setup: %ld\n", (long) delayed_catch_setup)); + + if (DUK_UNLIKELY(delayed_catch_setup != 0)) { + duk_hthread *thr = entry_thread->heap->curr_thread; + + delayed_catch_setup = 0; + duk__handle_catch_part2(thr); + DUK_ASSERT(delayed_catch_setup == 0); + DUK_DDD(DUK_DDDPRINT("top after delayed catch setup: %ld", (long) duk_get_top(entry_thread))); + } + + /* Execute bytecode until returned or longjmp(). */ + duk__js_execute_bytecode_inner(entry_thread, entry_act); + + /* Successful return: restore jmpbuf and return to caller. */ + heap->lj.jmpbuf_ptr = entry_jmpbuf_ptr; + + return; +#if defined(DUK_USE_CPP_EXCEPTIONS) + } catch (duk_internal_exception &exc) { +#else + } else { +#endif +#if defined(DUK_USE_CPP_EXCEPTIONS) + DUK_UNREF(exc); +#endif + DUK_DDD(DUK_DDDPRINT("longjmp caught by bytecode executor")); + DUK_STATS_INC(exec_thr->heap, stats_exec_throw); + + duk__handle_executor_error(heap, + entry_act, + entry_call_recursion_depth, + entry_jmpbuf_ptr, + &delayed_catch_setup); + } +#if defined(DUK_USE_CPP_EXCEPTIONS) + catch (duk_fatal_exception &exc) { + DUK_D(DUK_DPRINT("rethrow duk_fatal_exception")); + DUK_UNREF(exc); + throw; + } catch (std::exception &exc) { + const char *what = exc.what(); + if (!what) { + what = "unknown"; + } + DUK_D(DUK_DPRINT("unexpected c++ std::exception (perhaps thrown by user code)")); + DUK_STATS_INC(exec_thr->heap, stats_exec_throw); + try { + DUK_ASSERT(heap->curr_thread != NULL); + DUK_ERROR_FMT1(heap->curr_thread, DUK_ERR_TYPE_ERROR, "caught invalid c++ std::exception '%s' (perhaps thrown by user code)", what); + DUK_WO_NORETURN(return;); + } catch (duk_internal_exception exc) { + DUK_D(DUK_DPRINT("caught api error thrown from unexpected c++ std::exception")); + DUK_UNREF(exc); + duk__handle_executor_error(heap, + entry_act, + entry_call_recursion_depth, + entry_jmpbuf_ptr, + &delayed_catch_setup); + } + } catch (...) { + DUK_D(DUK_DPRINT("unexpected c++ exception (perhaps thrown by user code)")); + DUK_STATS_INC(exec_thr->heap, stats_exec_throw); + try { + DUK_ASSERT(heap->curr_thread != NULL); + DUK_ERROR_TYPE(heap->curr_thread, "caught invalid c++ exception (perhaps thrown by user code)"); + DUK_WO_NORETURN(return;); + } catch (duk_internal_exception exc) { + DUK_D(DUK_DPRINT("caught api error thrown from unexpected c++ exception")); + DUK_UNREF(exc); + duk__handle_executor_error(heap, + entry_act, + entry_call_recursion_depth, + entry_jmpbuf_ptr, + &delayed_catch_setup); + } + } +#endif + } + + DUK_WO_NORETURN(return;); +} + +/* Inner executor, performance critical. */ +DUK_LOCAL DUK_NOINLINE DUK_HOT void duk__js_execute_bytecode_inner(duk_hthread *entry_thread, duk_activation *entry_act) { + /* Current PC, accessed by other functions through thr->ptr_to_curr_pc. + * Critical for performance. It would be safest to make this volatile, + * but that eliminates performance benefits; aliasing guarantees + * should be enough though. + */ + duk_instr_t *curr_pc; /* bytecode has a stable pointer */ + + /* Hot variables for interpretation. Critical for performance, + * but must add sparingly to minimize register shuffling. + */ + duk_hthread *thr; /* stable */ + duk_tval *consts; /* stable */ + duk_uint_fast32_t ins; + /* 'funcs' is quite rarely used, so no local for it */ +#if defined(DUK_USE_EXEC_FUN_LOCAL) + duk_hcompfunc *fun; +#else + /* 'fun' is quite rarely used, so no local for it */ +#endif + +#if defined(DUK_USE_INTERRUPT_COUNTER) + duk_int_t int_ctr; +#endif + +#if defined(DUK_USE_ASSERTIONS) + duk_size_t valstack_top_base; /* valstack top, should match before interpreting each op (no leftovers) */ +#endif + + /* Optimized reg/const access macros assume sizeof(duk_tval) to be + * either 8 or 16. Heap allocation checks this even without asserts + * enabled now because it can't be autodetected in duk_config.h. + */ +#if 1 +#if defined(DUK_USE_PACKED_TVAL) + DUK_ASSERT(sizeof(duk_tval) == 8); +#else + DUK_ASSERT(sizeof(duk_tval) == 16); +#endif +#endif + + DUK_GC_TORTURE(entry_thread->heap); + + /* + * Restart execution by reloading thread state. + * + * Note that 'thr' and any thread configuration may have changed, + * so all local variables are suspect and we need to reinitialize. + * + * The number of local variables should be kept to a minimum: if + * the variables are spilled, they will need to be loaded from + * memory anyway. + * + * Any 'goto restart_execution;' code path in opcode dispatch must + * ensure 'curr_pc' is synced back to act->curr_pc before the goto + * takes place. + * + * The interpreter must be very careful with memory pointers, as + * many pointers are not guaranteed to be 'stable' and may be + * reallocated and relocated on-the-fly quite easily (e.g. by a + * memory allocation or a property access). + * + * The following are assumed to have stable pointers: + * - the current thread + * - the current function + * - the bytecode, constant table, inner function table of the + * current function (as they are a part of the function allocation) + * + * The following are assumed to have semi-stable pointers: + * - the current activation entry: stable as long as callstack + * is not changed (reallocated by growing or shrinking), or + * by any garbage collection invocation (through finalizers) + * - Note in particular that ANY DECREF can invalidate the + * activation pointer, so for the most part a fresh lookup + * is required + * + * The following are not assumed to have stable pointers at all: + * - the value stack (registers) of the current thread + * + * See execution.rst for discussion. + */ + + restart_execution: + + /* Lookup current thread; use the stable 'entry_thread' for this to + * avoid clobber warnings. Any valid, reachable 'thr' value would be + * fine for this, so using 'entry_thread' is just to silence warnings. + */ + thr = entry_thread->heap->curr_thread; + DUK_ASSERT(thr != NULL); + DUK_ASSERT(thr->callstack_top >= 1); + DUK_ASSERT(thr->callstack_curr != NULL); + DUK_ASSERT(DUK_ACT_GET_FUNC(thr->callstack_curr) != NULL); + DUK_ASSERT(DUK_HOBJECT_IS_COMPFUNC(DUK_ACT_GET_FUNC(thr->callstack_curr))); + + DUK_GC_TORTURE(thr->heap); + + thr->ptr_curr_pc = &curr_pc; + + /* Relookup and initialize dispatch loop variables. Debugger check. */ + { + duk_activation *act; +#if !defined(DUK_USE_EXEC_FUN_LOCAL) + duk_hcompfunc *fun; +#endif + + /* Assume interrupt init/counter are properly initialized here. */ + /* Assume that thr->valstack_bottom has been set-up before getting here. */ + + act = thr->callstack_curr; + DUK_ASSERT(act != NULL); + fun = (duk_hcompfunc *) DUK_ACT_GET_FUNC(act); + DUK_ASSERT(fun != NULL); + DUK_ASSERT(thr->valstack_top - thr->valstack_bottom == fun->nregs); + consts = DUK_HCOMPFUNC_GET_CONSTS_BASE(thr->heap, fun); + DUK_ASSERT(consts != NULL); + +#if defined(DUK_USE_DEBUGGER_SUPPORT) + if (DUK_UNLIKELY(duk_debug_is_attached(thr->heap) && !thr->heap->dbg_processing)) { + duk__executor_recheck_debugger(thr, act, fun); + DUK_ASSERT(act == thr->callstack_curr); + DUK_ASSERT(act != NULL); + } +#endif /* DUK_USE_DEBUGGER_SUPPORT */ + +#if defined(DUK_USE_ASSERTIONS) + valstack_top_base = (duk_size_t) (thr->valstack_top - thr->valstack); +#endif + + /* Set up curr_pc for opcode dispatch. */ + curr_pc = act->curr_pc; + } + + DUK_DD(DUK_DDPRINT("restarting execution, thr %p, act idx %ld, fun %p," + "consts %p, funcs %p, lev %ld, regbot %ld, regtop %ld, " + "preventcount=%ld", + (void *) thr, + (long) (thr->callstack_top - 1), + (void *) DUK__FUN(), + (void *) DUK_HCOMPFUNC_GET_CONSTS_BASE(thr->heap, DUK__FUN()), + (void *) DUK_HCOMPFUNC_GET_FUNCS_BASE(thr->heap, DUK__FUN()), + (long) (thr->callstack_top - 1), + (long) (thr->valstack_bottom - thr->valstack), + (long) (thr->valstack_top - thr->valstack), + (long) thr->callstack_preventcount)); + + /* Dispatch loop. */ + + for (;;) { + duk_uint8_t op; + + DUK_ASSERT(thr->callstack_top >= 1); + DUK_ASSERT(thr->valstack_top - thr->valstack_bottom == DUK__FUN()->nregs); + DUK_ASSERT((duk_size_t) (thr->valstack_top - thr->valstack) == valstack_top_base); + + /* Executor interrupt counter check, used to implement breakpoints, + * debugging interface, execution timeouts, etc. The counter is heap + * specific but is maintained in the current thread to make the check + * as fast as possible. The counter is copied back to the heap struct + * whenever a thread switch occurs by the DUK_HEAP_SWITCH_THREAD() macro. + */ +#if defined(DUK_USE_INTERRUPT_COUNTER) + int_ctr = thr->interrupt_counter; + if (DUK_LIKELY(int_ctr > 0)) { + thr->interrupt_counter = int_ctr - 1; + } else { + /* Trigger at zero or below */ + duk_small_uint_t exec_int_ret; + + DUK_STATS_INC(thr->heap, stats_exec_interrupt); + + /* Write curr_pc back for the debugger. */ + { + duk_activation *act; + DUK_ASSERT(thr->callstack_top > 0); + act = thr->callstack_curr; + DUK_ASSERT(act != NULL); + act->curr_pc = (duk_instr_t *) curr_pc; + } + + /* Forced restart caused by a function return; must recheck + * debugger breakpoints before checking line transitions, + * see GH-303. Restart and then handle interrupt_counter + * zero again. + */ +#if defined(DUK_USE_DEBUGGER_SUPPORT) + if (thr->heap->dbg_force_restart) { + DUK_DD(DUK_DDPRINT("dbg_force_restart flag forced restart execution")); /* GH-303 */ + thr->heap->dbg_force_restart = 0; + goto restart_execution; + } +#endif + + exec_int_ret = duk__executor_interrupt(thr); + if (exec_int_ret == DUK__INT_RESTART) { + /* curr_pc synced back above */ + goto restart_execution; + } + } +#endif /* DUK_USE_INTERRUPT_COUNTER */ +#if defined(DUK_USE_INTERRUPT_COUNTER) && defined(DUK_USE_DEBUG) + /* For cross-checking during development: ensure dispatch count + * matches cumulative interrupt counter init value sums. + */ + thr->heap->inst_count_exec++; +#endif + +#if defined(DUK_USE_ASSERTIONS) || defined(DUK_USE_DEBUG) + { + duk_activation *act; + act = thr->callstack_curr; + DUK_ASSERT(curr_pc >= DUK_HCOMPFUNC_GET_CODE_BASE(thr->heap, DUK__FUN())); + DUK_ASSERT(curr_pc < DUK_HCOMPFUNC_GET_CODE_END(thr->heap, DUK__FUN())); + DUK_UNREF(act); /* if debugging disabled */ + + DUK_DDD(DUK_DDDPRINT("executing bytecode: pc=%ld, ins=0x%08lx, op=%ld, valstack_top=%ld/%ld, nregs=%ld --> %!I", + (long) (curr_pc - DUK_HCOMPFUNC_GET_CODE_BASE(thr->heap, DUK__FUN())), + (unsigned long) *curr_pc, + (long) DUK_DEC_OP(*curr_pc), + (long) (thr->valstack_top - thr->valstack), + (long) (thr->valstack_end - thr->valstack), + (long) (DUK__FUN() ? DUK__FUN()->nregs : -1), + (duk_instr_t) *curr_pc)); + } +#endif + +#if defined(DUK_USE_ASSERTIONS) + /* Quite heavy assert: check valstack policy. Improper + * shuffle instructions can write beyond valstack_top/end + * so this check catches them in the act. + */ + { + duk_tval *tv; + tv = thr->valstack_top; + while (tv != thr->valstack_end) { + DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(tv)); + tv++; + } + } +#endif + + ins = *curr_pc++; + DUK_STATS_INC(thr->heap, stats_exec_opcodes); + + /* Typing: use duk_small_(u)int_fast_t when decoding small + * opcode fields (op, A, B, C, BC) which fit into 16 bits + * and duk_(u)int_fast_t when decoding larger fields (e.g. + * ABC). Use unsigned variant by default, signed when the + * value is used in signed arithmetic. Using variable names + * such as 'a', 'b', 'c', 'bc', etc makes it easier to spot + * typing mismatches. + */ + + /* Switch based on opcode. Cast to 8-bit unsigned value and + * use a fully populated case clauses so that the compiler + * will (at least usually) omit a bounds check. + */ + op = (duk_uint8_t) DUK_DEC_OP(ins); + switch (op) { + + /* Some useful macros. These access inner executor variables + * directly so they only apply within the executor. + */ +#if defined(DUK_USE_EXEC_PREFER_SIZE) +#define DUK__REPLACE_TOP_A_BREAK() { goto replace_top_a; } +#define DUK__REPLACE_TOP_BC_BREAK() { goto replace_top_bc; } +#define DUK__REPLACE_BOOL_A_BREAK(bval) { \ + duk_bool_t duk__bval; \ + duk__bval = (bval); \ + DUK_ASSERT(duk__bval == 0 || duk__bval == 1); \ + duk_push_boolean(thr, duk__bval); \ + DUK__REPLACE_TOP_A_BREAK(); \ + } +#else +#define DUK__REPLACE_TOP_A_BREAK() { DUK__REPLACE_TO_TVPTR(thr, DUK__REGP_A(ins)); break; } +#define DUK__REPLACE_TOP_BC_BREAK() { DUK__REPLACE_TO_TVPTR(thr, DUK__REGP_BC(ins)); break; } +#define DUK__REPLACE_BOOL_A_BREAK(bval) { \ + duk_bool_t duk__bval; \ + duk_tval *duk__tvdst; \ + duk__bval = (bval); \ + DUK_ASSERT(duk__bval == 0 || duk__bval == 1); \ + duk__tvdst = DUK__REGP_A(ins); \ + DUK_TVAL_SET_BOOLEAN_UPDREF(thr, duk__tvdst, duk__bval); \ + break; \ + } +#endif + + /* XXX: 12 + 12 bit variant might make sense too, for both reg and + * const loads. + */ + + /* For LDREG, STREG, LDCONST footprint optimized variants would just + * duk_dup() + duk_replace(), but because they're used quite a lot + * they're currently intentionally not size optimized. + */ + case DUK_OP_LDREG: { + duk_tval *tv1, *tv2; + + tv1 = DUK__REGP_A(ins); + tv2 = DUK__REGP_BC(ins); + DUK_TVAL_SET_TVAL_UPDREF_FAST(thr, tv1, tv2); /* side effects */ + break; + } + + case DUK_OP_STREG: { + duk_tval *tv1, *tv2; + + tv1 = DUK__REGP_A(ins); + tv2 = DUK__REGP_BC(ins); + DUK_TVAL_SET_TVAL_UPDREF_FAST(thr, tv2, tv1); /* side effects */ + break; + } + + case DUK_OP_LDCONST: { + duk_tval *tv1, *tv2; + + tv1 = DUK__REGP_A(ins); + tv2 = DUK__CONSTP_BC(ins); + DUK_TVAL_SET_TVAL_UPDREF_FAST(thr, tv1, tv2); /* side effects */ + break; + } + + /* LDINT and LDINTX are intended to load an arbitrary signed + * 32-bit value. Only an LDINT+LDINTX sequence is supported. + * This also guarantees all values remain fastints. + */ +#if defined(DUK_USE_EXEC_PREFER_SIZE) + case DUK_OP_LDINT: { + duk_int32_t val; + + val = (duk_int32_t) DUK_DEC_BC(ins) - (duk_int32_t) DUK_BC_LDINT_BIAS; + duk_push_int(thr, val); + DUK__REPLACE_TOP_A_BREAK(); + } + case DUK_OP_LDINTX: { + duk_int32_t val; + + val = (duk_int32_t) duk_get_int(thr, DUK_DEC_A(ins)); + val = (val << DUK_BC_LDINTX_SHIFT) + (duk_int32_t) DUK_DEC_BC(ins); /* no bias */ + duk_push_int(thr, val); + DUK__REPLACE_TOP_A_BREAK(); + } +#else /* DUK_USE_EXEC_PREFER_SIZE */ + case DUK_OP_LDINT: { + duk_tval *tv1; + duk_int32_t val; + + val = (duk_int32_t) DUK_DEC_BC(ins) - (duk_int32_t) DUK_BC_LDINT_BIAS; + tv1 = DUK__REGP_A(ins); + DUK_TVAL_SET_I32_UPDREF(thr, tv1, val); /* side effects */ + break; + } + case DUK_OP_LDINTX: { + duk_tval *tv1; + duk_int32_t val; + + tv1 = DUK__REGP_A(ins); + DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv1)); +#if defined(DUK_USE_FASTINT) + DUK_ASSERT(DUK_TVAL_IS_FASTINT(tv1)); + val = DUK_TVAL_GET_FASTINT_I32(tv1); +#else + /* XXX: fast double-to-int conversion, we know number is integer in [-0x80000000,0xffffffff]. */ + val = (duk_int32_t) DUK_TVAL_GET_NUMBER(tv1); +#endif + val = (duk_int32_t) ((duk_uint32_t) val << DUK_BC_LDINTX_SHIFT) + (duk_int32_t) DUK_DEC_BC(ins); /* no bias */ + DUK_TVAL_SET_I32_UPDREF(thr, tv1, val); /* side effects */ + break; + } +#endif /* DUK_USE_EXEC_PREFER_SIZE */ + +#if defined(DUK_USE_EXEC_PREFER_SIZE) + case DUK_OP_LDTHIS: { + duk_push_this(thr); + DUK__REPLACE_TOP_BC_BREAK(); + } + case DUK_OP_LDUNDEF: { + duk_to_undefined(thr, (duk_idx_t) DUK_DEC_BC(ins)); + break; + } + case DUK_OP_LDNULL: { + duk_to_null(thr, (duk_idx_t) DUK_DEC_BC(ins)); + break; + } + case DUK_OP_LDTRUE: { + duk_push_true(thr); + DUK__REPLACE_TOP_BC_BREAK(); + } + case DUK_OP_LDFALSE: { + duk_push_false(thr); + DUK__REPLACE_TOP_BC_BREAK(); + } +#else /* DUK_USE_EXEC_PREFER_SIZE */ + case DUK_OP_LDTHIS: { + /* Note: 'this' may be bound to any value, not just an object */ + duk_tval *tv1, *tv2; + + tv1 = DUK__REGP_BC(ins); + tv2 = thr->valstack_bottom - 1; /* 'this binding' is just under bottom */ + DUK_ASSERT(tv2 >= thr->valstack); + DUK_TVAL_SET_TVAL_UPDREF_FAST(thr, tv1, tv2); /* side effects */ + break; + } + case DUK_OP_LDUNDEF: { + duk_tval *tv1; + + tv1 = DUK__REGP_BC(ins); + DUK_TVAL_SET_UNDEFINED_UPDREF(thr, tv1); /* side effects */ + break; + } + case DUK_OP_LDNULL: { + duk_tval *tv1; + + tv1 = DUK__REGP_BC(ins); + DUK_TVAL_SET_NULL_UPDREF(thr, tv1); /* side effects */ + break; + } + case DUK_OP_LDTRUE: { + duk_tval *tv1; + + tv1 = DUK__REGP_BC(ins); + DUK_TVAL_SET_BOOLEAN_UPDREF(thr, tv1, 1); /* side effects */ + break; + } + case DUK_OP_LDFALSE: { + duk_tval *tv1; + + tv1 = DUK__REGP_BC(ins); + DUK_TVAL_SET_BOOLEAN_UPDREF(thr, tv1, 0); /* side effects */ + break; + } +#endif /* DUK_USE_EXEC_PREFER_SIZE */ + + case DUK_OP_BNOT: { + duk__vm_bitwise_not(thr, DUK_DEC_BC(ins), DUK_DEC_A(ins)); + break; + } + + case DUK_OP_LNOT: { + duk__vm_logical_not(thr, DUK_DEC_BC(ins), DUK_DEC_A(ins)); + break; + } + +#if defined(DUK_USE_EXEC_PREFER_SIZE) + case DUK_OP_UNM: + case DUK_OP_UNP: { + duk__vm_arith_unary_op(thr, DUK_DEC_BC(ins), DUK_DEC_A(ins), op); + break; + } +#else /* DUK_USE_EXEC_PREFER_SIZE */ + case DUK_OP_UNM: { + duk__vm_arith_unary_op(thr, DUK_DEC_BC(ins), DUK_DEC_A(ins), DUK_OP_UNM); + break; + } + case DUK_OP_UNP: { + duk__vm_arith_unary_op(thr, DUK_DEC_BC(ins), DUK_DEC_A(ins), DUK_OP_UNP); + break; + } +#endif /* DUK_USE_EXEC_PREFER_SIZE */ + +#if defined(DUK_USE_EXEC_PREFER_SIZE) + case DUK_OP_TYPEOF: { + duk_small_uint_t stridx; + + stridx = duk_js_typeof_stridx(DUK__REGP_BC(ins)); + DUK_ASSERT_STRIDX_VALID(stridx); + duk_push_hstring_stridx(thr, stridx); + DUK__REPLACE_TOP_A_BREAK(); + } +#else /* DUK_USE_EXEC_PREFER_SIZE */ + case DUK_OP_TYPEOF: { + duk_tval *tv; + duk_small_uint_t stridx; + duk_hstring *h_str; + + tv = DUK__REGP_BC(ins); + stridx = duk_js_typeof_stridx(tv); + DUK_ASSERT_STRIDX_VALID(stridx); + h_str = DUK_HTHREAD_GET_STRING(thr, stridx); + tv = DUK__REGP_A(ins); + DUK_TVAL_SET_STRING_UPDREF(thr, tv, h_str); + break; + } +#endif /* DUK_USE_EXEC_PREFER_SIZE */ + + case DUK_OP_TYPEOFID: { + duk_small_uint_t stridx; +#if !defined(DUK_USE_EXEC_PREFER_SIZE) + duk_hstring *h_str; +#endif + duk_activation *act; + duk_hstring *name; + duk_tval *tv; + + /* A -> target register + * BC -> constant index of identifier name + */ + + tv = DUK__CONSTP_BC(ins); + DUK_ASSERT(DUK_TVAL_IS_STRING(tv)); + name = DUK_TVAL_GET_STRING(tv); + tv = NULL; /* lookup has side effects */ + act = thr->callstack_curr; + if (duk_js_getvar_activation(thr, act, name, 0 /*throw*/)) { + /* -> [... val this] */ + tv = DUK_GET_TVAL_NEGIDX(thr, -2); + stridx = duk_js_typeof_stridx(tv); + tv = NULL; /* no longer needed */ + duk_pop_2_unsafe(thr); + } else { + /* unresolvable, no stack changes */ + stridx = DUK_STRIDX_LC_UNDEFINED; + } + DUK_ASSERT_STRIDX_VALID(stridx); +#if defined(DUK_USE_EXEC_PREFER_SIZE) + duk_push_hstring_stridx(thr, stridx); + DUK__REPLACE_TOP_A_BREAK(); +#else /* DUK_USE_EXEC_PREFER_SIZE */ + h_str = DUK_HTHREAD_GET_STRING(thr, stridx); + tv = DUK__REGP_A(ins); + DUK_TVAL_SET_STRING_UPDREF(thr, tv, h_str); + break; +#endif /* DUK_USE_EXEC_PREFER_SIZE */ + } + + /* Equality: E5 Sections 11.9.1, 11.9.3 */ + +#define DUK__EQ_BODY(barg,carg) { \ + duk_bool_t tmp; \ + tmp = duk_js_equals(thr, (barg), (carg)); \ + DUK_ASSERT(tmp == 0 || tmp == 1); \ + DUK__REPLACE_BOOL_A_BREAK(tmp); \ + } +#define DUK__NEQ_BODY(barg,carg) { \ + duk_bool_t tmp; \ + tmp = duk_js_equals(thr, (barg), (carg)); \ + DUK_ASSERT(tmp == 0 || tmp == 1); \ + tmp ^= 1; \ + DUK__REPLACE_BOOL_A_BREAK(tmp); \ + } +#define DUK__SEQ_BODY(barg,carg) { \ + duk_bool_t tmp; \ + tmp = duk_js_strict_equals((barg), (carg)); \ + DUK_ASSERT(tmp == 0 || tmp == 1); \ + DUK__REPLACE_BOOL_A_BREAK(tmp); \ + } +#define DUK__SNEQ_BODY(barg,carg) { \ + duk_bool_t tmp; \ + tmp = duk_js_strict_equals((barg), (carg)); \ + DUK_ASSERT(tmp == 0 || tmp == 1); \ + tmp ^= 1; \ + DUK__REPLACE_BOOL_A_BREAK(tmp); \ + } +#if defined(DUK_USE_EXEC_PREFER_SIZE) + case DUK_OP_EQ_RR: + case DUK_OP_EQ_CR: + case DUK_OP_EQ_RC: + case DUK_OP_EQ_CC: + DUK__EQ_BODY(DUK__REGCONSTP_B(ins), DUK__REGCONSTP_C(ins)); + case DUK_OP_NEQ_RR: + case DUK_OP_NEQ_CR: + case DUK_OP_NEQ_RC: + case DUK_OP_NEQ_CC: + DUK__NEQ_BODY(DUK__REGCONSTP_B(ins), DUK__REGCONSTP_C(ins)); + case DUK_OP_SEQ_RR: + case DUK_OP_SEQ_CR: + case DUK_OP_SEQ_RC: + case DUK_OP_SEQ_CC: + DUK__SEQ_BODY(DUK__REGCONSTP_B(ins), DUK__REGCONSTP_C(ins)); + case DUK_OP_SNEQ_RR: + case DUK_OP_SNEQ_CR: + case DUK_OP_SNEQ_RC: + case DUK_OP_SNEQ_CC: + DUK__SNEQ_BODY(DUK__REGCONSTP_B(ins), DUK__REGCONSTP_C(ins)); +#else /* DUK_USE_EXEC_PREFER_SIZE */ + case DUK_OP_EQ_RR: + DUK__EQ_BODY(DUK__REGP_B(ins), DUK__REGP_C(ins)); + case DUK_OP_EQ_CR: + DUK__EQ_BODY(DUK__CONSTP_B(ins), DUK__REGP_C(ins)); + case DUK_OP_EQ_RC: + DUK__EQ_BODY(DUK__REGP_B(ins), DUK__CONSTP_C(ins)); + case DUK_OP_EQ_CC: + DUK__EQ_BODY(DUK__CONSTP_B(ins), DUK__CONSTP_C(ins)); + case DUK_OP_NEQ_RR: + DUK__NEQ_BODY(DUK__REGP_B(ins), DUK__REGP_C(ins)); + case DUK_OP_NEQ_CR: + DUK__NEQ_BODY(DUK__CONSTP_B(ins), DUK__REGP_C(ins)); + case DUK_OP_NEQ_RC: + DUK__NEQ_BODY(DUK__REGP_B(ins), DUK__CONSTP_C(ins)); + case DUK_OP_NEQ_CC: + DUK__NEQ_BODY(DUK__CONSTP_B(ins), DUK__CONSTP_C(ins)); + case DUK_OP_SEQ_RR: + DUK__SEQ_BODY(DUK__REGP_B(ins), DUK__REGP_C(ins)); + case DUK_OP_SEQ_CR: + DUK__SEQ_BODY(DUK__CONSTP_B(ins), DUK__REGP_C(ins)); + case DUK_OP_SEQ_RC: + DUK__SEQ_BODY(DUK__REGP_B(ins), DUK__CONSTP_C(ins)); + case DUK_OP_SEQ_CC: + DUK__SEQ_BODY(DUK__CONSTP_B(ins), DUK__CONSTP_C(ins)); + case DUK_OP_SNEQ_RR: + DUK__SNEQ_BODY(DUK__REGP_B(ins), DUK__REGP_C(ins)); + case DUK_OP_SNEQ_CR: + DUK__SNEQ_BODY(DUK__CONSTP_B(ins), DUK__REGP_C(ins)); + case DUK_OP_SNEQ_RC: + DUK__SNEQ_BODY(DUK__REGP_B(ins), DUK__CONSTP_C(ins)); + case DUK_OP_SNEQ_CC: + DUK__SNEQ_BODY(DUK__CONSTP_B(ins), DUK__CONSTP_C(ins)); +#endif /* DUK_USE_EXEC_PREFER_SIZE */ + +#define DUK__COMPARE_BODY(arg1,arg2,flags) { \ + duk_bool_t tmp; \ + tmp = duk_js_compare_helper(thr, (arg1), (arg2), (flags)); \ + DUK_ASSERT(tmp == 0 || tmp == 1); \ + DUK__REPLACE_BOOL_A_BREAK(tmp); \ + } +#define DUK__GT_BODY(barg,carg) DUK__COMPARE_BODY((carg), (barg), 0) +#define DUK__GE_BODY(barg,carg) DUK__COMPARE_BODY((barg), (carg), DUK_COMPARE_FLAG_EVAL_LEFT_FIRST | DUK_COMPARE_FLAG_NEGATE) +#define DUK__LT_BODY(barg,carg) DUK__COMPARE_BODY((barg), (carg), DUK_COMPARE_FLAG_EVAL_LEFT_FIRST) +#define DUK__LE_BODY(barg,carg) DUK__COMPARE_BODY((carg), (barg), DUK_COMPARE_FLAG_NEGATE) +#if defined(DUK_USE_EXEC_PREFER_SIZE) + case DUK_OP_GT_RR: + case DUK_OP_GT_CR: + case DUK_OP_GT_RC: + case DUK_OP_GT_CC: + DUK__GT_BODY(DUK__REGCONSTP_B(ins), DUK__REGCONSTP_C(ins)); + case DUK_OP_GE_RR: + case DUK_OP_GE_CR: + case DUK_OP_GE_RC: + case DUK_OP_GE_CC: + DUK__GE_BODY(DUK__REGCONSTP_B(ins), DUK__REGCONSTP_C(ins)); + case DUK_OP_LT_RR: + case DUK_OP_LT_CR: + case DUK_OP_LT_RC: + case DUK_OP_LT_CC: + DUK__LT_BODY(DUK__REGCONSTP_B(ins), DUK__REGCONSTP_C(ins)); + case DUK_OP_LE_RR: + case DUK_OP_LE_CR: + case DUK_OP_LE_RC: + case DUK_OP_LE_CC: + DUK__LE_BODY(DUK__REGCONSTP_B(ins), DUK__REGCONSTP_C(ins)); +#else /* DUK_USE_EXEC_PREFER_SIZE */ + case DUK_OP_GT_RR: + DUK__GT_BODY(DUK__REGP_B(ins), DUK__REGP_C(ins)); + case DUK_OP_GT_CR: + DUK__GT_BODY(DUK__CONSTP_B(ins), DUK__REGP_C(ins)); + case DUK_OP_GT_RC: + DUK__GT_BODY(DUK__REGP_B(ins), DUK__CONSTP_C(ins)); + case DUK_OP_GT_CC: + DUK__GT_BODY(DUK__CONSTP_B(ins), DUK__CONSTP_C(ins)); + case DUK_OP_GE_RR: + DUK__GE_BODY(DUK__REGP_B(ins), DUK__REGP_C(ins)); + case DUK_OP_GE_CR: + DUK__GE_BODY(DUK__CONSTP_B(ins), DUK__REGP_C(ins)); + case DUK_OP_GE_RC: + DUK__GE_BODY(DUK__REGP_B(ins), DUK__CONSTP_C(ins)); + case DUK_OP_GE_CC: + DUK__GE_BODY(DUK__CONSTP_B(ins), DUK__CONSTP_C(ins)); + case DUK_OP_LT_RR: + DUK__LT_BODY(DUK__REGP_B(ins), DUK__REGP_C(ins)); + case DUK_OP_LT_CR: + DUK__LT_BODY(DUK__CONSTP_B(ins), DUK__REGP_C(ins)); + case DUK_OP_LT_RC: + DUK__LT_BODY(DUK__REGP_B(ins), DUK__CONSTP_C(ins)); + case DUK_OP_LT_CC: + DUK__LT_BODY(DUK__CONSTP_B(ins), DUK__CONSTP_C(ins)); + case DUK_OP_LE_RR: + DUK__LE_BODY(DUK__REGP_B(ins), DUK__REGP_C(ins)); + case DUK_OP_LE_CR: + DUK__LE_BODY(DUK__CONSTP_B(ins), DUK__REGP_C(ins)); + case DUK_OP_LE_RC: + DUK__LE_BODY(DUK__REGP_B(ins), DUK__CONSTP_C(ins)); + case DUK_OP_LE_CC: + DUK__LE_BODY(DUK__CONSTP_B(ins), DUK__CONSTP_C(ins)); +#endif /* DUK_USE_EXEC_PREFER_SIZE */ + + /* No size optimized variant at present for IF. */ + case DUK_OP_IFTRUE_R: { + if (duk_js_toboolean(DUK__REGP_BC(ins)) != 0) { + curr_pc++; + } + break; + } + case DUK_OP_IFTRUE_C: { + if (duk_js_toboolean(DUK__CONSTP_BC(ins)) != 0) { + curr_pc++; + } + break; + } + case DUK_OP_IFFALSE_R: { + if (duk_js_toboolean(DUK__REGP_BC(ins)) == 0) { + curr_pc++; + } + break; + } + case DUK_OP_IFFALSE_C: { + if (duk_js_toboolean(DUK__CONSTP_BC(ins)) == 0) { + curr_pc++; + } + break; + } + +#if defined(DUK_USE_EXEC_PREFER_SIZE) + case DUK_OP_ADD_RR: + case DUK_OP_ADD_CR: + case DUK_OP_ADD_RC: + case DUK_OP_ADD_CC: { + /* XXX: could leave value on stack top and goto replace_top_a; */ + duk__vm_arith_add(thr, DUK__REGCONSTP_B(ins), DUK__REGCONSTP_C(ins), DUK_DEC_A(ins)); + break; + } +#else /* DUK_USE_EXEC_PREFER_SIZE */ + case DUK_OP_ADD_RR: { + duk__vm_arith_add(thr, DUK__REGP_B(ins), DUK__REGP_C(ins), DUK_DEC_A(ins)); + break; + } + case DUK_OP_ADD_CR: { + duk__vm_arith_add(thr, DUK__CONSTP_B(ins), DUK__REGP_C(ins), DUK_DEC_A(ins)); + break; + } + case DUK_OP_ADD_RC: { + duk__vm_arith_add(thr, DUK__REGP_B(ins), DUK__CONSTP_C(ins), DUK_DEC_A(ins)); + break; + } + case DUK_OP_ADD_CC: { + duk__vm_arith_add(thr, DUK__CONSTP_B(ins), DUK__CONSTP_C(ins), DUK_DEC_A(ins)); + break; + } +#endif /* DUK_USE_EXEC_PREFER_SIZE */ + +#if defined(DUK_USE_EXEC_PREFER_SIZE) + case DUK_OP_SUB_RR: + case DUK_OP_SUB_CR: + case DUK_OP_SUB_RC: + case DUK_OP_SUB_CC: + case DUK_OP_MUL_RR: + case DUK_OP_MUL_CR: + case DUK_OP_MUL_RC: + case DUK_OP_MUL_CC: + case DUK_OP_DIV_RR: + case DUK_OP_DIV_CR: + case DUK_OP_DIV_RC: + case DUK_OP_DIV_CC: + case DUK_OP_MOD_RR: + case DUK_OP_MOD_CR: + case DUK_OP_MOD_RC: + case DUK_OP_MOD_CC: +#if defined(DUK_USE_ES7_EXP_OPERATOR) + case DUK_OP_EXP_RR: + case DUK_OP_EXP_CR: + case DUK_OP_EXP_RC: + case DUK_OP_EXP_CC: +#endif /* DUK_USE_ES7_EXP_OPERATOR */ + { + /* XXX: could leave value on stack top and goto replace_top_a; */ + duk__vm_arith_binary_op(thr, DUK__REGCONSTP_B(ins), DUK__REGCONSTP_C(ins), DUK_DEC_A(ins), op); + break; + } +#else /* DUK_USE_EXEC_PREFER_SIZE */ + case DUK_OP_SUB_RR: { + duk__vm_arith_binary_op(thr, DUK__REGP_B(ins), DUK__REGP_C(ins), DUK_DEC_A(ins), DUK_OP_SUB); + break; + } + case DUK_OP_SUB_CR: { + duk__vm_arith_binary_op(thr, DUK__CONSTP_B(ins), DUK__REGP_C(ins), DUK_DEC_A(ins), DUK_OP_SUB); + break; + } + case DUK_OP_SUB_RC: { + duk__vm_arith_binary_op(thr, DUK__REGP_B(ins), DUK__CONSTP_C(ins), DUK_DEC_A(ins), DUK_OP_SUB); + break; + } + case DUK_OP_SUB_CC: { + duk__vm_arith_binary_op(thr, DUK__CONSTP_B(ins), DUK__CONSTP_C(ins), DUK_DEC_A(ins), DUK_OP_SUB); + break; + } + case DUK_OP_MUL_RR: { + duk__vm_arith_binary_op(thr, DUK__REGP_B(ins), DUK__REGP_C(ins), DUK_DEC_A(ins), DUK_OP_MUL); + break; + } + case DUK_OP_MUL_CR: { + duk__vm_arith_binary_op(thr, DUK__CONSTP_B(ins), DUK__REGP_C(ins), DUK_DEC_A(ins), DUK_OP_MUL); + break; + } + case DUK_OP_MUL_RC: { + duk__vm_arith_binary_op(thr, DUK__REGP_B(ins), DUK__CONSTP_C(ins), DUK_DEC_A(ins), DUK_OP_MUL); + break; + } + case DUK_OP_MUL_CC: { + duk__vm_arith_binary_op(thr, DUK__CONSTP_B(ins), DUK__CONSTP_C(ins), DUK_DEC_A(ins), DUK_OP_MUL); + break; + } + case DUK_OP_DIV_RR: { + duk__vm_arith_binary_op(thr, DUK__REGP_B(ins), DUK__REGP_C(ins), DUK_DEC_A(ins), DUK_OP_DIV); + break; + } + case DUK_OP_DIV_CR: { + duk__vm_arith_binary_op(thr, DUK__CONSTP_B(ins), DUK__REGP_C(ins), DUK_DEC_A(ins), DUK_OP_DIV); + break; + } + case DUK_OP_DIV_RC: { + duk__vm_arith_binary_op(thr, DUK__REGP_B(ins), DUK__CONSTP_C(ins), DUK_DEC_A(ins), DUK_OP_DIV); + break; + } + case DUK_OP_DIV_CC: { + duk__vm_arith_binary_op(thr, DUK__CONSTP_B(ins), DUK__CONSTP_C(ins), DUK_DEC_A(ins), DUK_OP_DIV); + break; + } + case DUK_OP_MOD_RR: { + duk__vm_arith_binary_op(thr, DUK__REGP_B(ins), DUK__REGP_C(ins), DUK_DEC_A(ins), DUK_OP_MOD); + break; + } + case DUK_OP_MOD_CR: { + duk__vm_arith_binary_op(thr, DUK__CONSTP_B(ins), DUK__REGP_C(ins), DUK_DEC_A(ins), DUK_OP_MOD); + break; + } + case DUK_OP_MOD_RC: { + duk__vm_arith_binary_op(thr, DUK__REGP_B(ins), DUK__CONSTP_C(ins), DUK_DEC_A(ins), DUK_OP_MOD); + break; + } + case DUK_OP_MOD_CC: { + duk__vm_arith_binary_op(thr, DUK__CONSTP_B(ins), DUK__CONSTP_C(ins), DUK_DEC_A(ins), DUK_OP_MOD); + break; + } +#if defined(DUK_USE_ES7_EXP_OPERATOR) + case DUK_OP_EXP_RR: { + duk__vm_arith_binary_op(thr, DUK__REGP_B(ins), DUK__REGP_C(ins), DUK_DEC_A(ins), DUK_OP_EXP); + break; + } + case DUK_OP_EXP_CR: { + duk__vm_arith_binary_op(thr, DUK__CONSTP_B(ins), DUK__REGP_C(ins), DUK_DEC_A(ins), DUK_OP_EXP); + break; + } + case DUK_OP_EXP_RC: { + duk__vm_arith_binary_op(thr, DUK__REGP_B(ins), DUK__CONSTP_C(ins), DUK_DEC_A(ins), DUK_OP_EXP); + break; + } + case DUK_OP_EXP_CC: { + duk__vm_arith_binary_op(thr, DUK__CONSTP_B(ins), DUK__CONSTP_C(ins), DUK_DEC_A(ins), DUK_OP_EXP); + break; + } +#endif /* DUK_USE_ES7_EXP_OPERATOR */ +#endif /* DUK_USE_EXEC_PREFER_SIZE */ + +#if defined(DUK_USE_EXEC_PREFER_SIZE) + case DUK_OP_BAND_RR: + case DUK_OP_BAND_CR: + case DUK_OP_BAND_RC: + case DUK_OP_BAND_CC: + case DUK_OP_BOR_RR: + case DUK_OP_BOR_CR: + case DUK_OP_BOR_RC: + case DUK_OP_BOR_CC: + case DUK_OP_BXOR_RR: + case DUK_OP_BXOR_CR: + case DUK_OP_BXOR_RC: + case DUK_OP_BXOR_CC: + case DUK_OP_BASL_RR: + case DUK_OP_BASL_CR: + case DUK_OP_BASL_RC: + case DUK_OP_BASL_CC: + case DUK_OP_BLSR_RR: + case DUK_OP_BLSR_CR: + case DUK_OP_BLSR_RC: + case DUK_OP_BLSR_CC: + case DUK_OP_BASR_RR: + case DUK_OP_BASR_CR: + case DUK_OP_BASR_RC: + case DUK_OP_BASR_CC: { + /* XXX: could leave value on stack top and goto replace_top_a; */ + duk__vm_bitwise_binary_op(thr, DUK__REGCONSTP_B(ins), DUK__REGCONSTP_C(ins), DUK_DEC_A(ins), op); + break; + } +#else /* DUK_USE_EXEC_PREFER_SIZE */ + case DUK_OP_BAND_RR: { + duk__vm_bitwise_binary_op(thr, DUK__REGP_B(ins), DUK__REGP_C(ins), DUK_DEC_A(ins), DUK_OP_BAND); + break; + } + case DUK_OP_BAND_CR: { + duk__vm_bitwise_binary_op(thr, DUK__CONSTP_B(ins), DUK__REGP_C(ins), DUK_DEC_A(ins), DUK_OP_BAND); + break; + } + case DUK_OP_BAND_RC: { + duk__vm_bitwise_binary_op(thr, DUK__REGP_B(ins), DUK__CONSTP_C(ins), DUK_DEC_A(ins), DUK_OP_BAND); + break; + } + case DUK_OP_BAND_CC: { + duk__vm_bitwise_binary_op(thr, DUK__CONSTP_B(ins), DUK__CONSTP_C(ins), DUK_DEC_A(ins), DUK_OP_BAND); + break; + } + case DUK_OP_BOR_RR: { + duk__vm_bitwise_binary_op(thr, DUK__REGP_B(ins), DUK__REGP_C(ins), DUK_DEC_A(ins), DUK_OP_BOR); + break; + } + case DUK_OP_BOR_CR: { + duk__vm_bitwise_binary_op(thr, DUK__CONSTP_B(ins), DUK__REGP_C(ins), DUK_DEC_A(ins), DUK_OP_BOR); + break; + } + case DUK_OP_BOR_RC: { + duk__vm_bitwise_binary_op(thr, DUK__REGP_B(ins), DUK__CONSTP_C(ins), DUK_DEC_A(ins), DUK_OP_BOR); + break; + } + case DUK_OP_BOR_CC: { + duk__vm_bitwise_binary_op(thr, DUK__CONSTP_B(ins), DUK__CONSTP_C(ins), DUK_DEC_A(ins), DUK_OP_BOR); + break; + } + case DUK_OP_BXOR_RR: { + duk__vm_bitwise_binary_op(thr, DUK__REGP_B(ins), DUK__REGP_C(ins), DUK_DEC_A(ins), DUK_OP_BXOR); + break; + } + case DUK_OP_BXOR_CR: { + duk__vm_bitwise_binary_op(thr, DUK__CONSTP_B(ins), DUK__REGP_C(ins), DUK_DEC_A(ins), DUK_OP_BXOR); + break; + } + case DUK_OP_BXOR_RC: { + duk__vm_bitwise_binary_op(thr, DUK__REGP_B(ins), DUK__CONSTP_C(ins), DUK_DEC_A(ins), DUK_OP_BXOR); + break; + } + case DUK_OP_BXOR_CC: { + duk__vm_bitwise_binary_op(thr, DUK__CONSTP_B(ins), DUK__CONSTP_C(ins), DUK_DEC_A(ins), DUK_OP_BXOR); + break; + } + case DUK_OP_BASL_RR: { + duk__vm_bitwise_binary_op(thr, DUK__REGP_B(ins), DUK__REGP_C(ins), DUK_DEC_A(ins), DUK_OP_BASL); + break; + } + case DUK_OP_BASL_CR: { + duk__vm_bitwise_binary_op(thr, DUK__CONSTP_B(ins), DUK__REGP_C(ins), DUK_DEC_A(ins), DUK_OP_BASL); + break; + } + case DUK_OP_BASL_RC: { + duk__vm_bitwise_binary_op(thr, DUK__REGP_B(ins), DUK__CONSTP_C(ins), DUK_DEC_A(ins), DUK_OP_BASL); + break; + } + case DUK_OP_BASL_CC: { + duk__vm_bitwise_binary_op(thr, DUK__CONSTP_B(ins), DUK__CONSTP_C(ins), DUK_DEC_A(ins), DUK_OP_BASL); + break; + } + case DUK_OP_BLSR_RR: { + duk__vm_bitwise_binary_op(thr, DUK__REGP_B(ins), DUK__REGP_C(ins), DUK_DEC_A(ins), DUK_OP_BLSR); + break; + } + case DUK_OP_BLSR_CR: { + duk__vm_bitwise_binary_op(thr, DUK__CONSTP_B(ins), DUK__REGP_C(ins), DUK_DEC_A(ins), DUK_OP_BLSR); + break; + } + case DUK_OP_BLSR_RC: { + duk__vm_bitwise_binary_op(thr, DUK__REGP_B(ins), DUK__CONSTP_C(ins), DUK_DEC_A(ins), DUK_OP_BLSR); + break; + } + case DUK_OP_BLSR_CC: { + duk__vm_bitwise_binary_op(thr, DUK__CONSTP_B(ins), DUK__CONSTP_C(ins), DUK_DEC_A(ins), DUK_OP_BLSR); + break; + } + case DUK_OP_BASR_RR: { + duk__vm_bitwise_binary_op(thr, DUK__REGP_B(ins), DUK__REGP_C(ins), DUK_DEC_A(ins), DUK_OP_BASR); + break; + } + case DUK_OP_BASR_CR: { + duk__vm_bitwise_binary_op(thr, DUK__CONSTP_B(ins), DUK__REGP_C(ins), DUK_DEC_A(ins), DUK_OP_BASR); + break; + } + case DUK_OP_BASR_RC: { + duk__vm_bitwise_binary_op(thr, DUK__REGP_B(ins), DUK__CONSTP_C(ins), DUK_DEC_A(ins), DUK_OP_BASR); + break; + } + case DUK_OP_BASR_CC: { + duk__vm_bitwise_binary_op(thr, DUK__CONSTP_B(ins), DUK__CONSTP_C(ins), DUK_DEC_A(ins), DUK_OP_BASR); + break; + } +#endif /* DUK_USE_EXEC_PREFER_SIZE */ + + /* For INSTOF and IN, B is always a register. */ +#define DUK__INSTOF_BODY(barg,carg) { \ + duk_bool_t tmp; \ + tmp = duk_js_instanceof(thr, (barg), (carg)); \ + DUK_ASSERT(tmp == 0 || tmp == 1); \ + DUK__REPLACE_BOOL_A_BREAK(tmp); \ + } +#define DUK__IN_BODY(barg,carg) { \ + duk_bool_t tmp; \ + tmp = duk_js_in(thr, (barg), (carg)); \ + DUK_ASSERT(tmp == 0 || tmp == 1); \ + DUK__REPLACE_BOOL_A_BREAK(tmp); \ + } +#if defined(DUK_USE_EXEC_PREFER_SIZE) + case DUK_OP_INSTOF_RR: + case DUK_OP_INSTOF_CR: + case DUK_OP_INSTOF_RC: + case DUK_OP_INSTOF_CC: + DUK__INSTOF_BODY(DUK__REGCONSTP_B(ins), DUK__REGCONSTP_C(ins)); + case DUK_OP_IN_RR: + case DUK_OP_IN_CR: + case DUK_OP_IN_RC: + case DUK_OP_IN_CC: + DUK__IN_BODY(DUK__REGCONSTP_B(ins), DUK__REGCONSTP_C(ins)); +#else /* DUK_USE_EXEC_PREFER_SIZE */ + case DUK_OP_INSTOF_RR: + DUK__INSTOF_BODY(DUK__REGP_B(ins), DUK__REGP_C(ins)); + case DUK_OP_INSTOF_CR: + DUK__INSTOF_BODY(DUK__CONSTP_B(ins), DUK__REGP_C(ins)); + case DUK_OP_INSTOF_RC: + DUK__INSTOF_BODY(DUK__REGP_B(ins), DUK__CONSTP_C(ins)); + case DUK_OP_INSTOF_CC: + DUK__INSTOF_BODY(DUK__CONSTP_B(ins), DUK__CONSTP_C(ins)); + case DUK_OP_IN_RR: + DUK__IN_BODY(DUK__REGP_B(ins), DUK__REGP_C(ins)); + case DUK_OP_IN_CR: + DUK__IN_BODY(DUK__CONSTP_B(ins), DUK__REGP_C(ins)); + case DUK_OP_IN_RC: + DUK__IN_BODY(DUK__REGP_B(ins), DUK__CONSTP_C(ins)); + case DUK_OP_IN_CC: + DUK__IN_BODY(DUK__CONSTP_B(ins), DUK__CONSTP_C(ins)); +#endif /* DUK_USE_EXEC_PREFER_SIZE */ + + /* Pre/post inc/dec for register variables, important for loops. */ +#if defined(DUK_USE_EXEC_PREFER_SIZE) + case DUK_OP_PREINCR: + case DUK_OP_PREDECR: + case DUK_OP_POSTINCR: + case DUK_OP_POSTDECR: { + duk__prepost_incdec_reg_helper(thr, DUK__REGP_A(ins), DUK__REGP_BC(ins), op); + break; + } + case DUK_OP_PREINCV: + case DUK_OP_PREDECV: + case DUK_OP_POSTINCV: + case DUK_OP_POSTDECV: { + duk__prepost_incdec_var_helper(thr, DUK_DEC_A(ins), DUK__CONSTP_BC(ins), op, DUK__STRICT()); + break; + } +#else /* DUK_USE_EXEC_PREFER_SIZE */ + case DUK_OP_PREINCR: { + duk__prepost_incdec_reg_helper(thr, DUK__REGP_A(ins), DUK__REGP_BC(ins), DUK_OP_PREINCR); + break; + } + case DUK_OP_PREDECR: { + duk__prepost_incdec_reg_helper(thr, DUK__REGP_A(ins), DUK__REGP_BC(ins), DUK_OP_PREDECR); + break; + } + case DUK_OP_POSTINCR: { + duk__prepost_incdec_reg_helper(thr, DUK__REGP_A(ins), DUK__REGP_BC(ins), DUK_OP_POSTINCR); + break; + } + case DUK_OP_POSTDECR: { + duk__prepost_incdec_reg_helper(thr, DUK__REGP_A(ins), DUK__REGP_BC(ins), DUK_OP_POSTDECR); + break; + } + case DUK_OP_PREINCV: { + duk__prepost_incdec_var_helper(thr, DUK_DEC_A(ins), DUK__CONSTP_BC(ins), DUK_OP_PREINCV, DUK__STRICT()); + break; + } + case DUK_OP_PREDECV: { + duk__prepost_incdec_var_helper(thr, DUK_DEC_A(ins), DUK__CONSTP_BC(ins), DUK_OP_PREDECV, DUK__STRICT()); + break; + } + case DUK_OP_POSTINCV: { + duk__prepost_incdec_var_helper(thr, DUK_DEC_A(ins), DUK__CONSTP_BC(ins), DUK_OP_POSTINCV, DUK__STRICT()); + break; + } + case DUK_OP_POSTDECV: { + duk__prepost_incdec_var_helper(thr, DUK_DEC_A(ins), DUK__CONSTP_BC(ins), DUK_OP_POSTDECV, DUK__STRICT()); + break; + } +#endif /* DUK_USE_EXEC_PREFER_SIZE */ + + /* XXX: Move to separate helper, optimize for perf/size separately. */ + /* Preinc/predec for object properties. */ + case DUK_OP_PREINCP_RR: + case DUK_OP_PREINCP_CR: + case DUK_OP_PREINCP_RC: + case DUK_OP_PREINCP_CC: + case DUK_OP_PREDECP_RR: + case DUK_OP_PREDECP_CR: + case DUK_OP_PREDECP_RC: + case DUK_OP_PREDECP_CC: + case DUK_OP_POSTINCP_RR: + case DUK_OP_POSTINCP_CR: + case DUK_OP_POSTINCP_RC: + case DUK_OP_POSTINCP_CC: + case DUK_OP_POSTDECP_RR: + case DUK_OP_POSTDECP_CR: + case DUK_OP_POSTDECP_RC: + case DUK_OP_POSTDECP_CC: { + duk_tval *tv_obj; + duk_tval *tv_key; + duk_tval *tv_val; + duk_bool_t rc; + duk_double_t x, y, z; +#if !defined(DUK_USE_EXEC_PREFER_SIZE) + duk_tval *tv_dst; +#endif /* DUK_USE_EXEC_PREFER_SIZE */ + + /* A -> target reg + * B -> object reg/const (may be const e.g. in "'foo'[1]") + * C -> key reg/const + */ + + /* Opcode bits 0-1 are used to distinguish reg/const variants. + * Opcode bits 2-3 are used to distinguish inc/dec variants: + * Bit 2 = inc(0)/dec(1), bit 3 = pre(0)/post(1). + */ + DUK_ASSERT((DUK_OP_PREINCP_RR & 0x0c) == 0x00); + DUK_ASSERT((DUK_OP_PREDECP_RR & 0x0c) == 0x04); + DUK_ASSERT((DUK_OP_POSTINCP_RR & 0x0c) == 0x08); + DUK_ASSERT((DUK_OP_POSTDECP_RR & 0x0c) == 0x0c); + + tv_obj = DUK__REGCONSTP_B(ins); + tv_key = DUK__REGCONSTP_C(ins); + rc = duk_hobject_getprop(thr, tv_obj, tv_key); /* -> [val] */ + DUK_UNREF(rc); /* ignore */ + tv_obj = NULL; /* invalidated */ + tv_key = NULL; /* invalidated */ + + /* XXX: Fastint fast path would be useful here. Also fastints + * now lose their fastint status in current handling which is + * not intuitive. + */ + + x = duk_to_number_m1(thr); + duk_pop_unsafe(thr); + if (ins & DUK_BC_INCDECP_FLAG_DEC) { + y = x - 1.0; + } else { + y = x + 1.0; + } + + duk_push_number(thr, y); + tv_val = DUK_GET_TVAL_NEGIDX(thr, -1); + DUK_ASSERT(tv_val != NULL); + tv_obj = DUK__REGCONSTP_B(ins); + tv_key = DUK__REGCONSTP_C(ins); + rc = duk_hobject_putprop(thr, tv_obj, tv_key, tv_val, DUK__STRICT()); + DUK_UNREF(rc); /* ignore */ + tv_obj = NULL; /* invalidated */ + tv_key = NULL; /* invalidated */ + duk_pop_unsafe(thr); + + z = (ins & DUK_BC_INCDECP_FLAG_POST) ? x : y; +#if defined(DUK_USE_EXEC_PREFER_SIZE) + duk_push_number(thr, z); + DUK__REPLACE_TOP_A_BREAK(); +#else + tv_dst = DUK__REGP_A(ins); + DUK_TVAL_SET_NUMBER_UPDREF(thr, tv_dst, z); + break; +#endif + } + + /* XXX: GETPROP where object is 'this', GETPROPT? + * Occurs relatively often in object oriented code. + */ + +#define DUK__GETPROP_BODY(barg,carg) { \ + /* A -> target reg \ + * B -> object reg/const (may be const e.g. in "'foo'[1]") \ + * C -> key reg/const \ + */ \ + (void) duk_hobject_getprop(thr, (barg), (carg)); \ + DUK__REPLACE_TOP_A_BREAK(); \ + } +#define DUK__GETPROPC_BODY(barg,carg) { \ + /* Same as GETPROP but callability check for property-based calls. */ \ + duk_tval *tv__targ; \ + (void) duk_hobject_getprop(thr, (barg), (carg)); \ + DUK_GC_TORTURE(thr->heap); \ + tv__targ = DUK_GET_TVAL_NEGIDX(thr, -1); \ + if (DUK_UNLIKELY(!duk_is_callable_tval(thr, tv__targ))) { \ + /* Here we intentionally re-evaluate the macro \ + * arguments to deal with potentially changed \ + * valstack base pointer! \ + */ \ + duk_call_setup_propcall_error(thr, (barg), (carg)); \ + } \ + DUK__REPLACE_TOP_A_BREAK(); \ + } +#define DUK__PUTPROP_BODY(aarg,barg,carg) { \ + /* A -> object reg \ + * B -> key reg/const \ + * C -> value reg/const \ + * \ + * Note: intentional difference to register arrangement \ + * of e.g. GETPROP; 'A' must contain a register-only value. \ + */ \ + (void) duk_hobject_putprop(thr, (aarg), (barg), (carg), DUK__STRICT()); \ + break; \ + } +#define DUK__DELPROP_BODY(barg,carg) { \ + /* A -> result reg \ + * B -> object reg \ + * C -> key reg/const \ + */ \ + duk_bool_t rc; \ + rc = duk_hobject_delprop(thr, (barg), (carg), DUK__STRICT()); \ + DUK_ASSERT(rc == 0 || rc == 1); \ + DUK__REPLACE_BOOL_A_BREAK(rc); \ + } +#if defined(DUK_USE_EXEC_PREFER_SIZE) + case DUK_OP_GETPROP_RR: + case DUK_OP_GETPROP_CR: + case DUK_OP_GETPROP_RC: + case DUK_OP_GETPROP_CC: + DUK__GETPROP_BODY(DUK__REGCONSTP_B(ins), DUK__REGCONSTP_C(ins)); +#if defined(DUK_USE_VERBOSE_ERRORS) + case DUK_OP_GETPROPC_RR: + case DUK_OP_GETPROPC_CR: + case DUK_OP_GETPROPC_RC: + case DUK_OP_GETPROPC_CC: + DUK__GETPROPC_BODY(DUK__REGCONSTP_B(ins), DUK__REGCONSTP_C(ins)); +#endif + case DUK_OP_PUTPROP_RR: + case DUK_OP_PUTPROP_CR: + case DUK_OP_PUTPROP_RC: + case DUK_OP_PUTPROP_CC: + DUK__PUTPROP_BODY(DUK__REGP_A(ins), DUK__REGCONSTP_B(ins), DUK__REGCONSTP_C(ins)); + case DUK_OP_DELPROP_RR: + case DUK_OP_DELPROP_RC: /* B is always reg */ + DUK__DELPROP_BODY(DUK__REGP_B(ins), DUK__REGCONSTP_C(ins)); +#else /* DUK_USE_EXEC_PREFER_SIZE */ + case DUK_OP_GETPROP_RR: + DUK__GETPROP_BODY(DUK__REGP_B(ins), DUK__REGP_C(ins)); + case DUK_OP_GETPROP_CR: + DUK__GETPROP_BODY(DUK__CONSTP_B(ins), DUK__REGP_C(ins)); + case DUK_OP_GETPROP_RC: + DUK__GETPROP_BODY(DUK__REGP_B(ins), DUK__CONSTP_C(ins)); + case DUK_OP_GETPROP_CC: + DUK__GETPROP_BODY(DUK__CONSTP_B(ins), DUK__CONSTP_C(ins)); +#if defined(DUK_USE_VERBOSE_ERRORS) + case DUK_OP_GETPROPC_RR: + DUK__GETPROPC_BODY(DUK__REGP_B(ins), DUK__REGP_C(ins)); + case DUK_OP_GETPROPC_CR: + DUK__GETPROPC_BODY(DUK__CONSTP_B(ins), DUK__REGP_C(ins)); + case DUK_OP_GETPROPC_RC: + DUK__GETPROPC_BODY(DUK__REGP_B(ins), DUK__CONSTP_C(ins)); + case DUK_OP_GETPROPC_CC: + DUK__GETPROPC_BODY(DUK__CONSTP_B(ins), DUK__CONSTP_C(ins)); +#endif + case DUK_OP_PUTPROP_RR: + DUK__PUTPROP_BODY(DUK__REGP_A(ins), DUK__REGP_B(ins), DUK__REGP_C(ins)); + case DUK_OP_PUTPROP_CR: + DUK__PUTPROP_BODY(DUK__REGP_A(ins), DUK__CONSTP_B(ins), DUK__REGP_C(ins)); + case DUK_OP_PUTPROP_RC: + DUK__PUTPROP_BODY(DUK__REGP_A(ins), DUK__REGP_B(ins), DUK__CONSTP_C(ins)); + case DUK_OP_PUTPROP_CC: + DUK__PUTPROP_BODY(DUK__REGP_A(ins), DUK__CONSTP_B(ins), DUK__CONSTP_C(ins)); + case DUK_OP_DELPROP_RR: /* B is always reg */ + DUK__DELPROP_BODY(DUK__REGP_B(ins), DUK__REGP_C(ins)); + case DUK_OP_DELPROP_RC: + DUK__DELPROP_BODY(DUK__REGP_B(ins), DUK__CONSTP_C(ins)); +#endif /* DUK_USE_EXEC_PREFER_SIZE */ + + /* No fast path for DECLVAR now, it's quite a rare instruction. */ + case DUK_OP_DECLVAR_RR: + case DUK_OP_DECLVAR_CR: + case DUK_OP_DECLVAR_RC: + case DUK_OP_DECLVAR_CC: { + duk_activation *act; + duk_small_uint_fast_t a = DUK_DEC_A(ins); + duk_tval *tv1; + duk_hstring *name; + duk_small_uint_t prop_flags; + duk_bool_t is_func_decl; + + tv1 = DUK__REGCONSTP_B(ins); + DUK_ASSERT(DUK_TVAL_IS_STRING(tv1)); + name = DUK_TVAL_GET_STRING(tv1); + DUK_ASSERT(name != NULL); + + is_func_decl = ((a & DUK_BC_DECLVAR_FLAG_FUNC_DECL) != 0); + + /* XXX: declvar takes an duk_tval pointer, which is awkward and + * should be reworked. + */ + + /* Compiler is responsible for selecting property flags (configurability, + * writability, etc). + */ + prop_flags = a & DUK_PROPDESC_FLAGS_MASK; + + if (is_func_decl) { + duk_push_tval(thr, DUK__REGCONSTP_C(ins)); + } else { + DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(thr->valstack_top)); /* valstack policy */ + thr->valstack_top++; + } + tv1 = DUK_GET_TVAL_NEGIDX(thr, -1); + + act = thr->callstack_curr; + if (duk_js_declvar_activation(thr, act, name, tv1, prop_flags, is_func_decl)) { + if (is_func_decl) { + /* Already declared, update value. */ + tv1 = DUK_GET_TVAL_NEGIDX(thr, -1); + duk_js_putvar_activation(thr, act, name, tv1, DUK__STRICT()); + } else { + /* Already declared but no initializer value + * (e.g. 'var xyz;'), no-op. + */ + } + } + + duk_pop_unsafe(thr); + break; + } + +#if defined(DUK_USE_REGEXP_SUPPORT) + /* The compiler should never emit DUK_OP_REGEXP if there is no + * regexp support. + */ + case DUK_OP_REGEXP_RR: + case DUK_OP_REGEXP_CR: + case DUK_OP_REGEXP_RC: + case DUK_OP_REGEXP_CC: { + /* A -> target register + * B -> bytecode (also contains flags) + * C -> escaped source + */ + + duk_push_tval(thr, DUK__REGCONSTP_C(ins)); + duk_push_tval(thr, DUK__REGCONSTP_B(ins)); /* -> [ ... escaped_source bytecode ] */ + duk_regexp_create_instance(thr); /* -> [ ... regexp_instance ] */ + DUK__REPLACE_TOP_A_BREAK(); + } +#endif /* DUK_USE_REGEXP_SUPPORT */ + + /* XXX: 'c' is unused, use whole BC, etc. */ + case DUK_OP_CSVAR_RR: + case DUK_OP_CSVAR_CR: + case DUK_OP_CSVAR_RC: + case DUK_OP_CSVAR_CC: { + /* The speciality of calling through a variable binding is that the + * 'this' value may be provided by the variable lookup: E5 Section 6.b.i. + * + * The only (standard) case where the 'this' binding is non-null is when + * (1) the variable is found in an object environment record, and + * (2) that object environment record is a 'with' block. + */ + + duk_activation *act; + duk_uint_fast_t idx; + duk_tval *tv1; + duk_hstring *name; + + /* A -> target registers (A, A + 1) for call setup + * B -> identifier name, usually constant but can be a register due to shuffling + */ + + tv1 = DUK__REGCONSTP_B(ins); + DUK_ASSERT(DUK_TVAL_IS_STRING(tv1)); + name = DUK_TVAL_GET_STRING(tv1); + DUK_ASSERT(name != NULL); + act = thr->callstack_curr; + (void) duk_js_getvar_activation(thr, act, name, 1 /*throw*/); /* -> [... val this] */ + + idx = (duk_uint_fast_t) DUK_DEC_A(ins); + + /* Could add direct value stack handling. */ + duk_replace(thr, (duk_idx_t) (idx + 1)); /* 'this' binding */ + duk_replace(thr, (duk_idx_t) idx); /* variable value (function, we hope, not checked here) */ + break; + } + + case DUK_OP_CLOSURE: { + duk_activation *act; + duk_hcompfunc *fun_act; + duk_small_uint_fast_t bc = DUK_DEC_BC(ins); + duk_hobject *fun_temp; + + /* A -> target reg + * BC -> inner function index + */ + + DUK_DDD(DUK_DDDPRINT("CLOSURE to target register %ld, fnum %ld (count %ld)", + (long) DUK_DEC_A(ins), (long) DUK_DEC_BC(ins), (long) DUK_HCOMPFUNC_GET_FUNCS_COUNT(thr->heap, DUK__FUN()))); + + DUK_ASSERT_DISABLE(bc >= 0); /* unsigned */ + DUK_ASSERT((duk_uint_t) bc < (duk_uint_t) DUK_HCOMPFUNC_GET_FUNCS_COUNT(thr->heap, DUK__FUN())); + + act = thr->callstack_curr; + fun_act = (duk_hcompfunc *) DUK_ACT_GET_FUNC(act); + fun_temp = DUK_HCOMPFUNC_GET_FUNCS_BASE(thr->heap, fun_act)[bc]; + DUK_ASSERT(fun_temp != NULL); + DUK_ASSERT(DUK_HOBJECT_IS_COMPFUNC(fun_temp)); + + DUK_DDD(DUK_DDDPRINT("CLOSURE: function template is: %p -> %!O", + (void *) fun_temp, (duk_heaphdr *) fun_temp)); + + if (act->lex_env == NULL) { + DUK_ASSERT(act->var_env == NULL); + duk_js_init_activation_environment_records_delayed(thr, act); + act = thr->callstack_curr; + } + DUK_ASSERT(act->lex_env != NULL); + DUK_ASSERT(act->var_env != NULL); + + /* functions always have a NEWENV flag, i.e. they get a + * new variable declaration environment, so only lex_env + * matters here. + */ + duk_js_push_closure(thr, + (duk_hcompfunc *) fun_temp, + act->var_env, + act->lex_env, + 1 /*add_auto_proto*/); + DUK__REPLACE_TOP_A_BREAK(); + } + + case DUK_OP_GETVAR: { + duk_activation *act; + duk_tval *tv1; + duk_hstring *name; + + tv1 = DUK__CONSTP_BC(ins); + DUK_ASSERT(DUK_TVAL_IS_STRING(tv1)); + name = DUK_TVAL_GET_STRING(tv1); + DUK_ASSERT(name != NULL); + act = thr->callstack_curr; + DUK_ASSERT(act != NULL); + (void) duk_js_getvar_activation(thr, act, name, 1 /*throw*/); /* -> [... val this] */ + duk_pop_unsafe(thr); /* 'this' binding is not needed here */ + DUK__REPLACE_TOP_A_BREAK(); + } + + case DUK_OP_PUTVAR: { + duk_activation *act; + duk_tval *tv1; + duk_hstring *name; + + tv1 = DUK__CONSTP_BC(ins); + DUK_ASSERT(DUK_TVAL_IS_STRING(tv1)); + name = DUK_TVAL_GET_STRING(tv1); + DUK_ASSERT(name != NULL); + + /* XXX: putvar takes a duk_tval pointer, which is awkward and + * should be reworked. + */ + + tv1 = DUK__REGP_A(ins); /* val */ + act = thr->callstack_curr; + duk_js_putvar_activation(thr, act, name, tv1, DUK__STRICT()); + break; + } + + case DUK_OP_DELVAR: { + duk_activation *act; + duk_tval *tv1; + duk_hstring *name; + duk_bool_t rc; + + tv1 = DUK__CONSTP_BC(ins); + DUK_ASSERT(DUK_TVAL_IS_STRING(tv1)); + name = DUK_TVAL_GET_STRING(tv1); + DUK_ASSERT(name != NULL); + act = thr->callstack_curr; + rc = duk_js_delvar_activation(thr, act, name); + DUK__REPLACE_BOOL_A_BREAK(rc); + } + + case DUK_OP_JUMP: { + /* Note: without explicit cast to signed, MSVC will + * apparently generate a large positive jump when the + * bias-corrected value would normally be negative. + */ + curr_pc += (duk_int_fast_t) DUK_DEC_ABC(ins) - (duk_int_fast_t) DUK_BC_JUMP_BIAS; + break; + } + +#define DUK__RETURN_SHARED() do { \ + duk_small_uint_t ret_result; \ + /* duk__handle_return() is guaranteed never to throw, except \ + * for potential out-of-memory situations which will then \ + * propagate out of the executor longjmp handler. \ + */ \ + DUK_ASSERT(thr->ptr_curr_pc == NULL); \ + ret_result = duk__handle_return(thr, entry_act); \ + if (ret_result == DUK__RETHAND_RESTART) { \ + goto restart_execution; \ + } \ + DUK_ASSERT(ret_result == DUK__RETHAND_FINISHED); \ + return; \ + } while (0) +#if defined(DUK_USE_EXEC_PREFER_SIZE) + case DUK_OP_RETREG: + case DUK_OP_RETCONST: + case DUK_OP_RETCONSTN: + case DUK_OP_RETUNDEF: { + /* BC -> return value reg/const */ + + DUK__SYNC_AND_NULL_CURR_PC(); + + if (op == DUK_OP_RETREG) { + duk_push_tval(thr, DUK__REGP_BC(ins)); + } else if (op == DUK_OP_RETUNDEF) { + DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(thr->valstack_top)); /* valstack policy */ + thr->valstack_top++; + } else { + DUK_ASSERT(op == DUK_OP_RETCONST || op == DUK_OP_RETCONSTN); + duk_push_tval(thr, DUK__CONSTP_BC(ins)); + } + + DUK__RETURN_SHARED(); + } +#else /* DUK_USE_EXEC_PREFER_SIZE */ + case DUK_OP_RETREG: { + duk_tval *tv; + + DUK__SYNC_AND_NULL_CURR_PC(); + tv = DUK__REGP_BC(ins); + DUK_TVAL_SET_TVAL(thr->valstack_top, tv); + DUK_TVAL_INCREF(thr, tv); + thr->valstack_top++; + DUK__RETURN_SHARED(); + } + /* This will be unused without refcounting. */ + case DUK_OP_RETCONST: { + duk_tval *tv; + + DUK__SYNC_AND_NULL_CURR_PC(); + tv = DUK__CONSTP_BC(ins); + DUK_TVAL_SET_TVAL(thr->valstack_top, tv); + DUK_TVAL_INCREF(thr, tv); + thr->valstack_top++; + DUK__RETURN_SHARED(); + } + case DUK_OP_RETCONSTN: { + duk_tval *tv; + + DUK__SYNC_AND_NULL_CURR_PC(); + tv = DUK__CONSTP_BC(ins); + DUK_TVAL_SET_TVAL(thr->valstack_top, tv); +#if defined(DUK_USE_REFERENCE_COUNTING) + /* Without refcounting only RETCONSTN is used. */ + DUK_ASSERT(!DUK_TVAL_IS_HEAP_ALLOCATED(tv)); /* no INCREF for this constant */ +#endif + thr->valstack_top++; + DUK__RETURN_SHARED(); + } + case DUK_OP_RETUNDEF: { + DUK__SYNC_AND_NULL_CURR_PC(); + thr->valstack_top++; /* value at valstack top is already undefined by valstack policy */ + DUK_ASSERT(DUK_TVAL_IS_UNDEFINED(thr->valstack_top)); + DUK__RETURN_SHARED(); + } +#endif /* DUK_USE_EXEC_PREFER_SIZE */ + + case DUK_OP_LABEL: { + duk_activation *act; + duk_catcher *cat; + duk_small_uint_fast_t bc = DUK_DEC_BC(ins); + + /* Allocate catcher and populate it (must be atomic). */ + + cat = duk_hthread_catcher_alloc(thr); + DUK_ASSERT(cat != NULL); + + cat->flags = (duk_uint32_t) (DUK_CAT_TYPE_LABEL | (bc << DUK_CAT_LABEL_SHIFT)); + cat->pc_base = (duk_instr_t *) curr_pc; /* pre-incremented, points to first jump slot */ + cat->idx_base = 0; /* unused for label */ + cat->h_varname = NULL; + + act = thr->callstack_curr; + DUK_ASSERT(act != NULL); + cat->parent = act->cat; + act->cat = cat; + + DUK_DDD(DUK_DDDPRINT("LABEL catcher: flags=0x%08lx, pc_base=%ld, " + "idx_base=%ld, h_varname=%!O, label_id=%ld", + (long) cat->flags, (long) cat->pc_base, + (long) cat->idx_base, (duk_heaphdr *) cat->h_varname, (long) DUK_CAT_GET_LABEL(cat))); + + curr_pc += 2; /* skip jump slots */ + break; + } + + case DUK_OP_ENDLABEL: { + duk_activation *act; +#if (defined(DUK_USE_DEBUG_LEVEL) && (DUK_USE_DEBUG_LEVEL >= 2)) || defined(DUK_USE_ASSERTIONS) + duk_small_uint_fast_t bc = DUK_DEC_BC(ins); +#endif +#if defined(DUK_USE_DEBUG_LEVEL) && (DUK_USE_DEBUG_LEVEL >= 2) + DUK_DDD(DUK_DDDPRINT("ENDLABEL %ld", (long) bc)); +#endif + + act = thr->callstack_curr; + DUK_ASSERT(act->cat != NULL); + DUK_ASSERT(DUK_CAT_GET_TYPE(act->cat) == DUK_CAT_TYPE_LABEL); + DUK_ASSERT((duk_uint_fast_t) DUK_CAT_GET_LABEL(act->cat) == bc); + duk_hthread_catcher_unwind_nolexenv_norz(thr, act); + + /* no need to unwind callstack */ + break; + } + + case DUK_OP_BREAK: { + duk_small_uint_fast_t bc = DUK_DEC_BC(ins); + + DUK__SYNC_AND_NULL_CURR_PC(); + duk__handle_break_or_continue(thr, (duk_uint_t) bc, DUK_LJ_TYPE_BREAK); + goto restart_execution; + } + + case DUK_OP_CONTINUE: { + duk_small_uint_fast_t bc = DUK_DEC_BC(ins); + + DUK__SYNC_AND_NULL_CURR_PC(); + duk__handle_break_or_continue(thr, (duk_uint_t) bc, DUK_LJ_TYPE_CONTINUE); + goto restart_execution; + } + + /* XXX: move to helper, too large to be inline here */ + case DUK_OP_TRYCATCH: { + duk__handle_op_trycatch(thr, ins, curr_pc); + curr_pc += 2; /* skip jump slots */ + break; + } + + case DUK_OP_ENDTRY: { + curr_pc = duk__handle_op_endtry(thr, ins); + break; + } + + case DUK_OP_ENDCATCH: { + duk__handle_op_endcatch(thr, ins); + break; + } + + case DUK_OP_ENDFIN: { + /* Sync and NULL early. */ + DUK__SYNC_AND_NULL_CURR_PC(); + + if (duk__handle_op_endfin(thr, ins, entry_act) != 0) { + return; + } + + /* Must restart because we NULLed out curr_pc. */ + goto restart_execution; + } + + case DUK_OP_THROW: { + duk_small_uint_fast_t bc = DUK_DEC_BC(ins); + + /* Note: errors are augmented when they are created, not + * when they are thrown. So, don't augment here, it would + * break re-throwing for instance. + */ + + /* Sync so that augmentation sees up-to-date activations, NULL + * thr->ptr_curr_pc so that it's not used if side effects occur + * in augmentation or longjmp handling. + */ + DUK__SYNC_AND_NULL_CURR_PC(); + + duk_dup(thr, (duk_idx_t) bc); + DUK_DDD(DUK_DDDPRINT("THROW ERROR (BYTECODE): %!dT (before throw augment)", + (duk_tval *) duk_get_tval(thr, -1))); +#if defined(DUK_USE_AUGMENT_ERROR_THROW) + duk_err_augment_error_throw(thr); + DUK_DDD(DUK_DDDPRINT("THROW ERROR (BYTECODE): %!dT (after throw augment)", + (duk_tval *) duk_get_tval(thr, -1))); +#endif + + duk_err_setup_ljstate1(thr, DUK_LJ_TYPE_THROW, DUK_GET_TVAL_NEGIDX(thr, -1)); +#if defined(DUK_USE_DEBUGGER_SUPPORT) + duk_err_check_debugger_integration(thr); +#endif + + DUK_ASSERT(thr->heap->lj.jmpbuf_ptr != NULL); /* always in executor */ + duk_err_longjmp(thr); + DUK_UNREACHABLE(); + break; + } + + case DUK_OP_CSREG: { + /* + * Assuming a register binds to a variable declared within this + * function (a declarative binding), the 'this' for the call + * setup is always 'undefined'. E5 Section 10.2.1.1.6. + */ + + duk_small_uint_fast_t a = DUK_DEC_A(ins); + duk_small_uint_fast_t bc = DUK_DEC_BC(ins); + + /* A -> register containing target function (not type checked here) + * BC -> target registers (BC, BC + 1) for call setup + */ + +#if defined(DUK_USE_PREFER_SIZE) + duk_dup(thr, (duk_idx_t) a); + duk_replace(thr, (duk_idx_t) bc); + duk_to_undefined(thr, (duk_idx_t) (bc + 1)); +#else + duk_tval *tv1; + duk_tval *tv2; + duk_tval *tv3; + duk_tval tv_tmp1; + duk_tval tv_tmp2; + + tv1 = DUK__REGP(bc); + tv2 = tv1 + 1; + DUK_TVAL_SET_TVAL(&tv_tmp1, tv1); + DUK_TVAL_SET_TVAL(&tv_tmp2, tv2); + tv3 = DUK__REGP(a); + DUK_TVAL_SET_TVAL(tv1, tv3); + DUK_TVAL_INCREF(thr, tv1); /* no side effects */ + DUK_TVAL_SET_UNDEFINED(tv2); /* no need for incref */ + DUK_TVAL_DECREF(thr, &tv_tmp1); + DUK_TVAL_DECREF(thr, &tv_tmp2); +#endif + break; + } + + + /* XXX: in some cases it's faster NOT to reuse the value + * stack but rather copy the arguments on top of the stack + * (mainly when the calling value stack is large and the value + * stack resize would be large). + */ + + case DUK_OP_CALL0: + case DUK_OP_CALL1: + case DUK_OP_CALL2: + case DUK_OP_CALL3: + case DUK_OP_CALL4: + case DUK_OP_CALL5: + case DUK_OP_CALL6: + case DUK_OP_CALL7: { + /* Opcode packs 4 flag bits: 1 for indirect, 3 map + * 1:1 to three lowest call handling flags. + * + * A -> nargs or register with nargs (indirect) + * BC -> base register for call (base -> func, base+1 -> this, base+2 -> arg1 ... base+2+N-1 -> argN) + */ + + duk_idx_t nargs; + duk_idx_t idx; + duk_small_uint_t call_flags; +#if !defined(DUK_USE_EXEC_FUN_LOCAL) + duk_hcompfunc *fun; +#endif + + DUK_ASSERT((DUK_OP_CALL0 & 0x0fU) == 0); + DUK_ASSERT((ins & DUK_BC_CALL_FLAG_INDIRECT) == 0); + + nargs = (duk_idx_t) DUK_DEC_A(ins); + call_flags = (ins & 0x07U) | DUK_CALL_FLAG_ALLOW_ECMATOECMA; + idx = (duk_idx_t) DUK_DEC_BC(ins); + + if (duk__executor_handle_call(thr, idx, nargs, call_flags)) { + /* curr_pc synced by duk_handle_call_unprotected() */ + DUK_ASSERT(thr->ptr_curr_pc == NULL); + goto restart_execution; + } + DUK_ASSERT(thr->ptr_curr_pc != NULL); + + /* duk_js_call.c is required to restore the stack reserve + * so we only need to reset the top. + */ +#if !defined(DUK_USE_EXEC_FUN_LOCAL) + fun = DUK__FUN(); +#endif + duk_set_top_unsafe(thr, (duk_idx_t) fun->nregs); + + /* No need to reinit setjmp() catchpoint, as call handling + * will store and restore our state. + * + * When debugger is enabled, we need to recheck the activation + * status after returning. This is now handled by call handling + * and heap->dbg_force_restart. + */ + break; + } + + case DUK_OP_CALL8: + case DUK_OP_CALL9: + case DUK_OP_CALL10: + case DUK_OP_CALL11: + case DUK_OP_CALL12: + case DUK_OP_CALL13: + case DUK_OP_CALL14: + case DUK_OP_CALL15: { + /* Indirect variant. */ + duk_uint_fast_t nargs; + duk_idx_t idx; + duk_small_uint_t call_flags; +#if !defined(DUK_USE_EXEC_FUN_LOCAL) + duk_hcompfunc *fun; +#endif + + DUK_ASSERT((DUK_OP_CALL0 & 0x0fU) == 0); + DUK_ASSERT((ins & DUK_BC_CALL_FLAG_INDIRECT) != 0); + + nargs = (duk_uint_fast_t) DUK_DEC_A(ins); + DUK__LOOKUP_INDIRECT(nargs); + call_flags = (ins & 0x07U) | DUK_CALL_FLAG_ALLOW_ECMATOECMA; + idx = (duk_idx_t) DUK_DEC_BC(ins); + + if (duk__executor_handle_call(thr, idx, (duk_idx_t) nargs, call_flags)) { + DUK_ASSERT(thr->ptr_curr_pc == NULL); + goto restart_execution; + } + DUK_ASSERT(thr->ptr_curr_pc != NULL); + +#if !defined(DUK_USE_EXEC_FUN_LOCAL) + fun = DUK__FUN(); +#endif + duk_set_top_unsafe(thr, (duk_idx_t) fun->nregs); + break; + } + + case DUK_OP_NEWOBJ: { + duk_push_object(thr); +#if defined(DUK_USE_ASSERTIONS) + { + duk_hobject *h; + h = duk_require_hobject(thr, -1); + DUK_ASSERT(DUK_HOBJECT_GET_ESIZE(h) == 0); + DUK_ASSERT(DUK_HOBJECT_GET_ENEXT(h) == 0); + DUK_ASSERT(DUK_HOBJECT_GET_ASIZE(h) == 0); + DUK_ASSERT(DUK_HOBJECT_GET_HSIZE(h) == 0); + } +#endif +#if !defined(DUK_USE_PREFER_SIZE) + /* XXX: could do a direct props realloc, but need hash size */ + duk_hobject_resize_entrypart(thr, duk_known_hobject(thr, -1), DUK_DEC_A(ins)); +#endif + DUK__REPLACE_TOP_BC_BREAK(); + } + + case DUK_OP_NEWARR: { + duk_push_array(thr); +#if defined(DUK_USE_ASSERTIONS) + { + duk_hobject *h; + h = duk_require_hobject(thr, -1); + DUK_ASSERT(DUK_HOBJECT_GET_ESIZE(h) == 0); + DUK_ASSERT(DUK_HOBJECT_GET_ENEXT(h) == 0); + DUK_ASSERT(DUK_HOBJECT_GET_ASIZE(h) == 0); + DUK_ASSERT(DUK_HOBJECT_GET_HSIZE(h) == 0); + DUK_ASSERT(DUK_HOBJECT_HAS_ARRAY_PART(h)); + } +#endif +#if !defined(DUK_USE_PREFER_SIZE) + duk_hobject_realloc_props(thr, + duk_known_hobject(thr, -1), + 0 /*new_e_size*/, + DUK_DEC_A(ins) /*new_a_size*/, + 0 /*new_h_size*/, + 0 /*abandon_array*/); +#if 0 + duk_hobject_resize_arraypart(thr, duk_known_hobject(thr, -1), DUK_DEC_A(ins)); +#endif +#endif + DUK__REPLACE_TOP_BC_BREAK(); + } + + case DUK_OP_MPUTOBJ: + case DUK_OP_MPUTOBJI: { + duk_idx_t obj_idx; + duk_uint_fast_t idx, idx_end; + duk_small_uint_fast_t count; + + /* A -> register of target object + * B -> first register of key/value pair list + * or register containing first register number if indirect + * C -> number of key/value pairs * 2 + * (= number of value stack indices used starting from 'B') + */ + + obj_idx = DUK_DEC_A(ins); + DUK_ASSERT(duk_is_object(thr, obj_idx)); + + idx = (duk_uint_fast_t) DUK_DEC_B(ins); + if (DUK_DEC_OP(ins) == DUK_OP_MPUTOBJI) { + DUK__LOOKUP_INDIRECT(idx); + } + + count = (duk_small_uint_fast_t) DUK_DEC_C(ins); + DUK_ASSERT(count > 0); /* compiler guarantees */ + idx_end = idx + count; + +#if defined(DUK_USE_EXEC_INDIRECT_BOUND_CHECK) + if (DUK_UNLIKELY(idx_end > (duk_uint_fast_t) duk_get_top(thr))) { + /* XXX: use duk_is_valid_index() instead? */ + /* XXX: improve check; check against nregs, not against top */ + DUK__INTERNAL_ERROR("MPUTOBJ out of bounds"); + } +#endif + + /* Use 'force' flag to duk_def_prop() to ensure that any + * inherited properties don't prevent the operation. + * With ES2015 duplicate properties are allowed, so that we + * must overwrite any previous data or accessor property. + * + * With ES2015 computed property names the literal keys + * may be arbitrary values and need to be ToPropertyKey() + * coerced at runtime. + */ + do { + /* XXX: faster initialization (direct access or better primitives) */ + duk_dup(thr, (duk_idx_t) idx); + duk_dup(thr, (duk_idx_t) (idx + 1)); + duk_def_prop(thr, obj_idx, DUK_DEFPROP_HAVE_VALUE | + DUK_DEFPROP_FORCE | + DUK_DEFPROP_SET_WRITABLE | + DUK_DEFPROP_SET_ENUMERABLE | + DUK_DEFPROP_SET_CONFIGURABLE); + idx += 2; + } while (idx < idx_end); + break; + } + + case DUK_OP_INITSET: + case DUK_OP_INITGET: { + duk__handle_op_initset_initget(thr, ins); + break; + } + + case DUK_OP_MPUTARR: + case DUK_OP_MPUTARRI: { + duk_idx_t obj_idx; + duk_uint_fast_t idx, idx_end; + duk_small_uint_fast_t count; + duk_tval *tv1; + duk_uint32_t arr_idx; + + /* A -> register of target object + * B -> first register of value data (start_index, value1, value2, ..., valueN) + * or register containing first register number if indirect + * C -> number of key/value pairs (N) + */ + + obj_idx = DUK_DEC_A(ins); + DUK_ASSERT(duk_is_object(thr, obj_idx)); + + idx = (duk_uint_fast_t) DUK_DEC_B(ins); + if (DUK_DEC_OP(ins) == DUK_OP_MPUTARRI) { + DUK__LOOKUP_INDIRECT(idx); + } + + count = (duk_small_uint_fast_t) DUK_DEC_C(ins); + DUK_ASSERT(count > 0 + 1); /* compiler guarantees */ + idx_end = idx + count; + +#if defined(DUK_USE_EXEC_INDIRECT_BOUND_CHECK) + if (idx_end > (duk_uint_fast_t) duk_get_top(thr)) { + /* XXX: use duk_is_valid_index() instead? */ + /* XXX: improve check; check against nregs, not against top */ + DUK__INTERNAL_ERROR("MPUTARR out of bounds"); + } +#endif + + tv1 = DUK__REGP(idx); + DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv1)); +#if defined(DUK_USE_FASTINT) + DUK_ASSERT(DUK_TVAL_IS_FASTINT(tv1)); + arr_idx = (duk_uint32_t) DUK_TVAL_GET_FASTINT_U32(tv1); +#else + arr_idx = (duk_uint32_t) DUK_TVAL_GET_NUMBER(tv1); +#endif + idx++; + + do { + /* duk_xdef_prop() will define an own property without any array + * special behaviors. We'll need to set the array length explicitly + * in the end. For arrays with elisions, the compiler will emit an + * explicit SETALEN which will update the length. + */ + + /* XXX: because we're dealing with 'own' properties of a fresh array, + * the array initializer should just ensure that the array has a large + * enough array part and write the values directly into array part, + * and finally set 'length' manually in the end (as already happens now). + */ + + duk_dup(thr, (duk_idx_t) idx); + duk_xdef_prop_index_wec(thr, obj_idx, arr_idx); + + idx++; + arr_idx++; + } while (idx < idx_end); + + /* XXX: E5.1 Section 11.1.4 coerces the final length through + * ToUint32() which is odd but happens now as a side effect of + * 'arr_idx' type. + */ + duk_set_length(thr, obj_idx, (duk_size_t) (duk_uarridx_t) arr_idx); + break; + } + + case DUK_OP_SETALEN: { + duk_tval *tv1; + duk_hobject *h; + duk_uint32_t len; + + tv1 = DUK__REGP_A(ins); + DUK_ASSERT(DUK_TVAL_IS_OBJECT(tv1)); + h = DUK_TVAL_GET_OBJECT(tv1); + DUK_ASSERT(DUK_HOBJECT_IS_ARRAY(h)); + + tv1 = DUK__REGP_BC(ins); + DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv1)); +#if defined(DUK_USE_FASTINT) + DUK_ASSERT(DUK_TVAL_IS_FASTINT(tv1)); + len = (duk_uint32_t) DUK_TVAL_GET_FASTINT_U32(tv1); +#else + len = (duk_uint32_t) DUK_TVAL_GET_NUMBER(tv1); +#endif + ((duk_harray *) h)->length = len; + break; + } + + case DUK_OP_INITENUM: { + duk__handle_op_initenum(thr, ins); + break; + } + + case DUK_OP_NEXTENUM: { + curr_pc += duk__handle_op_nextenum(thr, ins); + break; + } + + case DUK_OP_INVLHS: { + DUK_ERROR_REFERENCE(thr, DUK_STR_INVALID_LVALUE); + DUK_WO_NORETURN(return;); + break; + } + + case DUK_OP_DEBUGGER: { + /* Opcode only emitted by compiler when debugger + * support is enabled. Ignore it silently without + * debugger support, in case it has been loaded + * from precompiled bytecode. + */ +#if defined(DUK_USE_DEBUGGER_SUPPORT) + if (duk_debug_is_attached(thr->heap)) { + DUK_D(DUK_DPRINT("DEBUGGER statement encountered, halt execution")); + DUK__SYNC_AND_NULL_CURR_PC(); + duk_debug_halt_execution(thr, 1 /*use_prev_pc*/); + DUK_D(DUK_DPRINT("DEBUGGER statement finished, resume execution")); + goto restart_execution; + } else { + DUK_D(DUK_DPRINT("DEBUGGER statement ignored, debugger not attached")); + } +#else + DUK_D(DUK_DPRINT("DEBUGGER statement ignored, no debugger support")); +#endif + break; + } + + case DUK_OP_NOP: { + /* Nop, ignored, but ABC fields may carry a value e.g. + * for indirect opcode handling. + */ + break; + } + + case DUK_OP_INVALID: { + DUK_ERROR_FMT1(thr, DUK_ERR_ERROR, "INVALID opcode (%ld)", (long) DUK_DEC_ABC(ins)); + DUK_WO_NORETURN(return;); + break; + } + +#if defined(DUK_USE_ES6) + case DUK_OP_NEWTARGET: { + duk_push_new_target(thr); + DUK__REPLACE_TOP_BC_BREAK(); + } +#endif /* DUK_USE_ES6 */ + +#if !defined(DUK_USE_EXEC_PREFER_SIZE) +#if !defined(DUK_USE_ES7_EXP_OPERATOR) + case DUK_OP_EXP_RR: + case DUK_OP_EXP_CR: + case DUK_OP_EXP_RC: + case DUK_OP_EXP_CC: +#endif +#if !defined(DUK_USE_ES6) + case DUK_OP_NEWTARGET: +#endif +#if !defined(DUK_USE_VERBOSE_ERRORS) + case DUK_OP_GETPROPC_RR: + case DUK_OP_GETPROPC_CR: + case DUK_OP_GETPROPC_RC: + case DUK_OP_GETPROPC_CC: +#endif + case DUK_OP_UNUSED207: + case DUK_OP_UNUSED212: + case DUK_OP_UNUSED213: + case DUK_OP_UNUSED214: + case DUK_OP_UNUSED215: + case DUK_OP_UNUSED216: + case DUK_OP_UNUSED217: + case DUK_OP_UNUSED218: + case DUK_OP_UNUSED219: + case DUK_OP_UNUSED220: + case DUK_OP_UNUSED221: + case DUK_OP_UNUSED222: + case DUK_OP_UNUSED223: + case DUK_OP_UNUSED224: + case DUK_OP_UNUSED225: + case DUK_OP_UNUSED226: + case DUK_OP_UNUSED227: + case DUK_OP_UNUSED228: + case DUK_OP_UNUSED229: + case DUK_OP_UNUSED230: + case DUK_OP_UNUSED231: + case DUK_OP_UNUSED232: + case DUK_OP_UNUSED233: + case DUK_OP_UNUSED234: + case DUK_OP_UNUSED235: + case DUK_OP_UNUSED236: + case DUK_OP_UNUSED237: + case DUK_OP_UNUSED238: + case DUK_OP_UNUSED239: + case DUK_OP_UNUSED240: + case DUK_OP_UNUSED241: + case DUK_OP_UNUSED242: + case DUK_OP_UNUSED243: + case DUK_OP_UNUSED244: + case DUK_OP_UNUSED245: + case DUK_OP_UNUSED246: + case DUK_OP_UNUSED247: + case DUK_OP_UNUSED248: + case DUK_OP_UNUSED249: + case DUK_OP_UNUSED250: + case DUK_OP_UNUSED251: + case DUK_OP_UNUSED252: + case DUK_OP_UNUSED253: + case DUK_OP_UNUSED254: + case DUK_OP_UNUSED255: + /* Force all case clauses to map to an actual handler + * so that the compiler can emit a jump without a bounds + * check: the switch argument is a duk_uint8_t so that + * the compiler may be able to figure it out. This is + * a small detail and obviously compiler dependent. + */ + /* default: clause omitted on purpose */ +#else /* DUK_USE_EXEC_PREFER_SIZE */ + default: +#endif /* DUK_USE_EXEC_PREFER_SIZE */ + { + /* Default case catches invalid/unsupported opcodes. */ + DUK_D(DUK_DPRINT("invalid opcode: %ld - %!I", (long) op, ins)); + DUK__INTERNAL_ERROR("invalid opcode"); + break; + } + + } /* end switch */ + + continue; + + /* Some shared exit paths for opcode handling below. These + * are mostly useful to reduce code footprint when multiple + * opcodes have a similar epilogue (like replacing stack top + * with index 'a'). + */ + +#if defined(DUK_USE_EXEC_PREFER_SIZE) + replace_top_a: + DUK__REPLACE_TO_TVPTR(thr, DUK__REGP_A(ins)); + continue; + replace_top_bc: + DUK__REPLACE_TO_TVPTR(thr, DUK__REGP_BC(ins)); + continue; +#endif + } + DUK_WO_NORETURN(return;); + +#if !defined(DUK_USE_VERBOSE_EXECUTOR_ERRORS) + internal_error: + DUK_ERROR_INTERNAL(thr); + DUK_WO_NORETURN(return;); +#endif +} + +/* automatic undefs */ +#undef DUK__BYTEOFF_A +#undef DUK__BYTEOFF_B +#undef DUK__BYTEOFF_BC +#undef DUK__BYTEOFF_C +#undef DUK__COMPARE_BODY +#undef DUK__CONST +#undef DUK__CONSTP +#undef DUK__CONSTP_A +#undef DUK__CONSTP_B +#undef DUK__CONSTP_BC +#undef DUK__CONSTP_C +#undef DUK__DELPROP_BODY +#undef DUK__EQ_BODY +#undef DUK__FUN +#undef DUK__GETPROPC_BODY +#undef DUK__GETPROP_BODY +#undef DUK__GE_BODY +#undef DUK__GT_BODY +#undef DUK__INSTOF_BODY +#undef DUK__INTERNAL_ERROR +#undef DUK__INT_NOACTION +#undef DUK__INT_RESTART +#undef DUK__IN_BODY +#undef DUK__LE_BODY +#undef DUK__LONGJMP_RESTART +#undef DUK__LONGJMP_RETHROW +#undef DUK__LOOKUP_INDIRECT +#undef DUK__LT_BODY +#undef DUK__MASK_A +#undef DUK__MASK_B +#undef DUK__MASK_BC +#undef DUK__MASK_C +#undef DUK__NEQ_BODY +#undef DUK__PUTPROP_BODY +#undef DUK__RCBIT_B +#undef DUK__RCBIT_C +#undef DUK__REG +#undef DUK__REGCONSTP_B +#undef DUK__REGCONSTP_C +#undef DUK__REGP +#undef DUK__REGP_A +#undef DUK__REGP_B +#undef DUK__REGP_BC +#undef DUK__REGP_C +#undef DUK__REPLACE_BOOL_A_BREAK +#undef DUK__REPLACE_TOP_A_BREAK +#undef DUK__REPLACE_TOP_BC_BREAK +#undef DUK__REPLACE_TO_TVPTR +#undef DUK__RETHAND_FINISHED +#undef DUK__RETHAND_RESTART +#undef DUK__RETURN_SHARED +#undef DUK__SEQ_BODY +#undef DUK__SHIFT_A +#undef DUK__SHIFT_B +#undef DUK__SHIFT_BC +#undef DUK__SHIFT_C +#undef DUK__SNEQ_BODY +#undef DUK__STRICT +#undef DUK__SYNC_AND_NULL_CURR_PC +#undef DUK__SYNC_CURR_PC +#undef DUK__TVAL_SHIFT +#line 1 "duk_js_ops.c" +/* + * ECMAScript specification algorithm and conversion helpers. + * + * These helpers encapsulate the primitive ECMAScript operation semantics, + * and are used by the bytecode executor and the API (among other places). + * Some primitives are only implemented as part of the API and have no + * "internal" helper. This is the case when an internal helper would not + * really be useful; e.g. the operation is rare, uses value stack heavily, + * etc. + * + * The operation arguments depend on what is required to implement + * the operation: + * + * - If an operation is simple and stateless, and has no side + * effects, it won't take an duk_hthread argument and its + * arguments may be duk_tval pointers (which are safe as long + * as no side effects take place). + * + * - If complex coercions are required (e.g. a "ToNumber" coercion) + * or errors may be thrown, the operation takes an duk_hthread + * argument. This also implies that the operation may have + * arbitrary side effects, invalidating any duk_tval pointers. + * + * - For operations with potential side effects, arguments can be + * taken in several ways: + * + * a) as duk_tval pointers, which makes sense if the "common case" + * can be resolved without side effects (e.g. coercion); the + * arguments are pushed to the valstack for coercion if + * necessary + * + * b) as duk_tval values + * + * c) implicitly on value stack top + * + * d) as indices to the value stack + * + * Future work: + * + * - Argument styles may not be the most sensible in every case now. + * + * - In-place coercions might be useful for several operations, if + * in-place coercion is OK for the bytecode executor and the API. + */ + +/* #include duk_internal.h -> already included */ + +/* + * ToPrimitive() (E5 Section 9.1) + * + * ==> implemented in the API. + */ + +/* + * ToBoolean() (E5 Section 9.2) + */ + +DUK_INTERNAL duk_bool_t duk_js_toboolean(duk_tval *tv) { + switch (DUK_TVAL_GET_TAG(tv)) { + case DUK_TAG_UNDEFINED: + case DUK_TAG_NULL: + return 0; + case DUK_TAG_BOOLEAN: + DUK_ASSERT(DUK_TVAL_GET_BOOLEAN(tv) == 0 || DUK_TVAL_GET_BOOLEAN(tv) == 1); + return DUK_TVAL_GET_BOOLEAN(tv); + case DUK_TAG_STRING: { + /* Symbols ToBoolean() coerce to true, regardless of their + * description. This happens with no explicit check because + * of the symbol representation byte prefix. + */ + duk_hstring *h = DUK_TVAL_GET_STRING(tv); + DUK_ASSERT(h != NULL); + return (DUK_HSTRING_GET_BYTELEN(h) > 0 ? 1 : 0); + } + case DUK_TAG_OBJECT: { + return 1; + } + case DUK_TAG_BUFFER: { + /* Mimic Uint8Array semantics: objects coerce true, regardless + * of buffer length (zero or not) or context. + */ + return 1; + } + case DUK_TAG_POINTER: { + void *p = DUK_TVAL_GET_POINTER(tv); + return (p != NULL ? 1 : 0); + } + case DUK_TAG_LIGHTFUNC: { + return 1; + } +#if defined(DUK_USE_FASTINT) + case DUK_TAG_FASTINT: + if (DUK_TVAL_GET_FASTINT(tv) != 0) { + return 1; + } else { + return 0; + } +#endif + default: { + /* number */ + duk_double_t d; +#if defined(DUK_USE_PREFER_SIZE) + int c; +#endif + DUK_ASSERT(!DUK_TVAL_IS_UNUSED(tv)); + DUK_ASSERT(DUK_TVAL_IS_DOUBLE(tv)); + d = DUK_TVAL_GET_DOUBLE(tv); +#if defined(DUK_USE_PREFER_SIZE) + c = DUK_FPCLASSIFY((double) d); + if (c == DUK_FP_ZERO || c == DUK_FP_NAN) { + return 0; + } else { + return 1; + } +#else + DUK_ASSERT(duk_double_is_nan_or_zero(d) == 0 || duk_double_is_nan_or_zero(d) == 1); + return duk_double_is_nan_or_zero(d) ^ 1; +#endif + } + } + DUK_UNREACHABLE(); + DUK_WO_UNREACHABLE(return 0;); +} + +/* + * ToNumber() (E5 Section 9.3) + * + * Value to convert must be on stack top, and is popped before exit. + * + * See: http://www.cs.indiana.edu/~burger/FP-Printing-PLDI96.pdf + * http://www.cs.indiana.edu/~burger/fp/index.html + * + * Notes on the conversion: + * + * - There are specific requirements on the accuracy of the conversion + * through a "Mathematical Value" (MV), so this conversion is not + * trivial. + * + * - Quick rejects (e.g. based on first char) are difficult because + * the grammar allows leading and trailing white space. + * + * - Quick reject based on string length is difficult even after + * accounting for white space; there may be arbitrarily many + * decimal digits. + * + * - Standard grammar allows decimal values ("123"), hex values + * ("0x123") and infinities + * + * - Unlike source code literals, ToNumber() coerces empty strings + * and strings with only whitespace to zero (not NaN). However, + * while '' coerces to 0, '+' and '-' coerce to NaN. + */ + +/* E5 Section 9.3.1 */ +DUK_LOCAL duk_double_t duk__tonumber_string_raw(duk_hthread *thr) { + duk_small_uint_t s2n_flags; + duk_double_t d; + + DUK_ASSERT(duk_is_string(thr, -1)); + + /* Quite lenient, e.g. allow empty as zero, but don't allow trailing + * garbage. + */ + s2n_flags = DUK_S2N_FLAG_TRIM_WHITE | + DUK_S2N_FLAG_ALLOW_EXP | + DUK_S2N_FLAG_ALLOW_PLUS | + DUK_S2N_FLAG_ALLOW_MINUS | + DUK_S2N_FLAG_ALLOW_INF | + DUK_S2N_FLAG_ALLOW_FRAC | + DUK_S2N_FLAG_ALLOW_NAKED_FRAC | + DUK_S2N_FLAG_ALLOW_EMPTY_FRAC | + DUK_S2N_FLAG_ALLOW_EMPTY_AS_ZERO | + DUK_S2N_FLAG_ALLOW_LEADING_ZERO | + DUK_S2N_FLAG_ALLOW_AUTO_HEX_INT | + DUK_S2N_FLAG_ALLOW_AUTO_OCT_INT | + DUK_S2N_FLAG_ALLOW_AUTO_BIN_INT; + + duk_numconv_parse(thr, 10 /*radix*/, s2n_flags); + +#if defined(DUK_USE_PREFER_SIZE) + d = duk_get_number(thr, -1); + duk_pop_unsafe(thr); +#else + thr->valstack_top--; + DUK_ASSERT(DUK_TVAL_IS_NUMBER(thr->valstack_top)); + DUK_ASSERT(DUK_TVAL_IS_DOUBLE(thr->valstack_top)); /* no fastint conversion in numconv now */ + DUK_ASSERT(!DUK_TVAL_NEEDS_REFCOUNT_UPDATE(thr->valstack_top)); + d = DUK_TVAL_GET_DOUBLE(thr->valstack_top); /* assumes not a fastint */ + DUK_TVAL_SET_UNDEFINED(thr->valstack_top); +#endif + + return d; +} + +DUK_INTERNAL duk_double_t duk_js_tonumber(duk_hthread *thr, duk_tval *tv) { + DUK_ASSERT(thr != NULL); + DUK_ASSERT(tv != NULL); + + switch (DUK_TVAL_GET_TAG(tv)) { + case DUK_TAG_UNDEFINED: { + /* return a specific NaN (although not strictly necessary) */ + duk_double_union du; + DUK_DBLUNION_SET_NAN(&du); + DUK_ASSERT(DUK_DBLUNION_IS_NORMALIZED(&du)); + return du.d; + } + case DUK_TAG_NULL: { + /* +0.0 */ + return 0.0; + } + case DUK_TAG_BOOLEAN: { + if (DUK_TVAL_IS_BOOLEAN_TRUE(tv)) { + return 1.0; + } + return 0.0; + } + case DUK_TAG_STRING: { + /* For Symbols ToNumber() is always a TypeError. */ + duk_hstring *h = DUK_TVAL_GET_STRING(tv); + if (DUK_UNLIKELY(DUK_HSTRING_HAS_SYMBOL(h))) { + DUK_ERROR_TYPE(thr, DUK_STR_CANNOT_NUMBER_COERCE_SYMBOL); + DUK_WO_NORETURN(return 0.0;); + } + duk_push_hstring(thr, h); + return duk__tonumber_string_raw(thr); + } + case DUK_TAG_BUFFER: /* plain buffer treated like object */ + case DUK_TAG_OBJECT: { + duk_double_t d; + duk_push_tval(thr, tv); + duk_to_primitive(thr, -1, DUK_HINT_NUMBER); /* 'tv' becomes invalid */ + + /* recursive call for a primitive value (guaranteed not to cause second + * recursion). + */ + DUK_ASSERT(duk_get_tval(thr, -1) != NULL); + d = duk_js_tonumber(thr, duk_get_tval(thr, -1)); + + duk_pop_unsafe(thr); + return d; + } + case DUK_TAG_POINTER: { + /* Coerce like boolean */ + void *p = DUK_TVAL_GET_POINTER(tv); + return (p != NULL ? 1.0 : 0.0); + } + case DUK_TAG_LIGHTFUNC: { + /* +(function(){}) -> NaN */ + return DUK_DOUBLE_NAN; + } +#if defined(DUK_USE_FASTINT) + case DUK_TAG_FASTINT: + return (duk_double_t) DUK_TVAL_GET_FASTINT(tv); +#endif + default: { + /* number */ + DUK_ASSERT(!DUK_TVAL_IS_UNUSED(tv)); + DUK_ASSERT(DUK_TVAL_IS_DOUBLE(tv)); + return DUK_TVAL_GET_DOUBLE(tv); + } + } + + DUK_UNREACHABLE(); + DUK_WO_UNREACHABLE(return 0.0;); +} + +/* + * ToInteger() (E5 Section 9.4) + */ + +/* exposed, used by e.g. duk_bi_date.c */ +DUK_INTERNAL duk_double_t duk_js_tointeger_number(duk_double_t x) { +#if defined(DUK_USE_PREFER_SIZE) + duk_small_int_t c = (duk_small_int_t) DUK_FPCLASSIFY(x); + + if (DUK_UNLIKELY(c == DUK_FP_NAN)) { + return 0.0; + } else if (DUK_UNLIKELY(c == DUK_FP_INFINITE)) { + return x; + } else { + /* Finite, including neg/pos zero. Neg zero sign must be + * preserved. + */ + return duk_double_trunc_towards_zero(x); + } +#else /* DUK_USE_PREFER_SIZE */ + /* NaN and Infinity have the same exponent so it's a cheap + * initial check for the rare path. + */ + if (DUK_UNLIKELY(duk_double_is_nan_or_inf(x) != 0U)) { + if (duk_double_is_nan(x)) { + return 0.0; + } else { + return x; + } + } else { + return duk_double_trunc_towards_zero(x); + } +#endif /* DUK_USE_PREFER_SIZE */ +} + +DUK_INTERNAL duk_double_t duk_js_tointeger(duk_hthread *thr, duk_tval *tv) { + /* XXX: fastint */ + duk_double_t d = duk_js_tonumber(thr, tv); /* invalidates tv */ + return duk_js_tointeger_number(d); +} + +/* + * ToInt32(), ToUint32(), ToUint16() (E5 Sections 9.5, 9.6, 9.7) + */ + +/* combined algorithm matching E5 Sections 9.5 and 9.6 */ +DUK_LOCAL duk_double_t duk__toint32_touint32_helper(duk_double_t x, duk_bool_t is_toint32) { +#if defined (DUK_USE_PREFER_SIZE) + duk_small_int_t c; +#endif + +#if defined (DUK_USE_PREFER_SIZE) + c = (duk_small_int_t) DUK_FPCLASSIFY(x); + if (c == DUK_FP_NAN || c == DUK_FP_ZERO || c == DUK_FP_INFINITE) { + return 0.0; + } +#else + if (duk_double_is_nan_zero_inf(x)) { + return 0.0; + } +#endif + + /* x = sign(x) * floor(abs(x)), i.e. truncate towards zero, keep sign */ + x = duk_double_trunc_towards_zero(x); + + /* NOTE: fmod(x) result sign is same as sign of x, which + * differs from what Javascript wants (see Section 9.6). + */ + + x = DUK_FMOD(x, DUK_DOUBLE_2TO32); /* -> x in ]-2**32, 2**32[ */ + + if (x < 0.0) { + x += DUK_DOUBLE_2TO32; + } + DUK_ASSERT(x >= 0 && x < DUK_DOUBLE_2TO32); /* -> x in [0, 2**32[ */ + + if (is_toint32) { + if (x >= DUK_DOUBLE_2TO31) { + /* x in [2**31, 2**32[ */ + + x -= DUK_DOUBLE_2TO32; /* -> x in [-2**31,2**31[ */ + } + } + + return x; +} + +DUK_INTERNAL duk_int32_t duk_js_toint32(duk_hthread *thr, duk_tval *tv) { + duk_double_t d; + +#if defined(DUK_USE_FASTINT) + if (DUK_TVAL_IS_FASTINT(tv)) { + return DUK_TVAL_GET_FASTINT_I32(tv); + } +#endif + + d = duk_js_tonumber(thr, tv); /* invalidates tv */ + d = duk__toint32_touint32_helper(d, 1); + DUK_ASSERT(DUK_FPCLASSIFY(d) == DUK_FP_ZERO || DUK_FPCLASSIFY(d) == DUK_FP_NORMAL); + DUK_ASSERT(d >= -2147483648.0 && d <= 2147483647.0); /* [-0x80000000,0x7fffffff] */ + DUK_ASSERT(duk_double_equals(d, (duk_double_t) ((duk_int32_t) d))); /* whole, won't clip */ + return (duk_int32_t) d; +} + + +DUK_INTERNAL duk_uint32_t duk_js_touint32(duk_hthread *thr, duk_tval *tv) { + duk_double_t d; + +#if defined(DUK_USE_FASTINT) + if (DUK_TVAL_IS_FASTINT(tv)) { + return DUK_TVAL_GET_FASTINT_U32(tv); + } +#endif + + d = duk_js_tonumber(thr, tv); /* invalidates tv */ + d = duk__toint32_touint32_helper(d, 0); + DUK_ASSERT(DUK_FPCLASSIFY(d) == DUK_FP_ZERO || DUK_FPCLASSIFY(d) == DUK_FP_NORMAL); + DUK_ASSERT(d >= 0.0 && d <= 4294967295.0); /* [0x00000000, 0xffffffff] */ + DUK_ASSERT(duk_double_equals(d, (duk_double_t) ((duk_uint32_t) d))); /* whole, won't clip */ + return (duk_uint32_t) d; + +} + +DUK_INTERNAL duk_uint16_t duk_js_touint16(duk_hthread *thr, duk_tval *tv) { + /* should be a safe way to compute this */ + return (duk_uint16_t) (duk_js_touint32(thr, tv) & 0x0000ffffU); +} + +/* + * ToString() (E5 Section 9.8) + * ToObject() (E5 Section 9.9) + * CheckObjectCoercible() (E5 Section 9.10) + * IsCallable() (E5 Section 9.11) + * + * ==> implemented in the API. + */ + +/* + * Loose equality, strict equality, and SameValue (E5 Sections 11.9.1, 11.9.4, + * 9.12). These have much in common so they can share some helpers. + * + * Future work notes: + * + * - Current implementation (and spec definition) has recursion; this should + * be fixed if possible. + * + * - String-to-number coercion should be possible without going through the + * value stack (and be more compact) if a shared helper is invoked. + */ + +/* Note that this is the same operation for strict and loose equality: + * - E5 Section 11.9.3, step 1.c (loose) + * - E5 Section 11.9.6, step 4 (strict) + */ + +DUK_LOCAL duk_bool_t duk__js_equals_number(duk_double_t x, duk_double_t y) { +#if defined(DUK_USE_PARANOID_MATH) + /* Straightforward algorithm, makes fewer compiler assumptions. */ + duk_small_int_t cx = (duk_small_int_t) DUK_FPCLASSIFY(x); + duk_small_int_t cy = (duk_small_int_t) DUK_FPCLASSIFY(y); + if (cx == DUK_FP_NAN || cy == DUK_FP_NAN) { + return 0; + } + if (cx == DUK_FP_ZERO && cy == DUK_FP_ZERO) { + return 1; + } + if (x == y) { + return 1; + } + return 0; +#else /* DUK_USE_PARANOID_MATH */ + /* Better equivalent algorithm. If the compiler is compliant, C and + * ECMAScript semantics are identical for this particular comparison. + * In particular, NaNs must never compare equal and zeroes must compare + * equal regardless of sign. Could also use a macro, but this inlines + * already nicely (no difference on gcc, for instance). + */ + if (duk_double_equals(x, y)) { + /* IEEE requires that NaNs compare false */ + DUK_ASSERT(DUK_FPCLASSIFY(x) != DUK_FP_NAN); + DUK_ASSERT(DUK_FPCLASSIFY(y) != DUK_FP_NAN); + return 1; + } else { + /* IEEE requires that zeros compare the same regardless + * of their signed, so if both x and y are zeroes, they + * are caught above. + */ + DUK_ASSERT(!(DUK_FPCLASSIFY(x) == DUK_FP_ZERO && DUK_FPCLASSIFY(y) == DUK_FP_ZERO)); + return 0; + } +#endif /* DUK_USE_PARANOID_MATH */ +} + +DUK_LOCAL duk_bool_t duk__js_samevalue_number(duk_double_t x, duk_double_t y) { +#if defined(DUK_USE_PARANOID_MATH) + duk_small_int_t cx = (duk_small_int_t) DUK_FPCLASSIFY(x); + duk_small_int_t cy = (duk_small_int_t) DUK_FPCLASSIFY(y); + + if (cx == DUK_FP_NAN && cy == DUK_FP_NAN) { + /* SameValue(NaN, NaN) = true, regardless of NaN sign or extra bits */ + return 1; + } + if (cx == DUK_FP_ZERO && cy == DUK_FP_ZERO) { + /* Note: cannot assume that a non-zero return value of signbit() would + * always be the same -- hence cannot (portably) use something like: + * + * signbit(x) == signbit(y) + */ + duk_small_int_t sx = DUK_SIGNBIT(x) ? 1 : 0; + duk_small_int_t sy = DUK_SIGNBIT(y) ? 1 : 0; + return (sx == sy); + } + + /* normal comparison; known: + * - both x and y are not NaNs (but one of them can be) + * - both x and y are not zero (but one of them can be) + * - x and y may be denormal or infinite + */ + + return (x == y); +#else /* DUK_USE_PARANOID_MATH */ + duk_small_int_t cx = (duk_small_int_t) DUK_FPCLASSIFY(x); + duk_small_int_t cy = (duk_small_int_t) DUK_FPCLASSIFY(y); + + if (duk_double_equals(x, y)) { + /* IEEE requires that NaNs compare false */ + DUK_ASSERT(DUK_FPCLASSIFY(x) != DUK_FP_NAN); + DUK_ASSERT(DUK_FPCLASSIFY(y) != DUK_FP_NAN); + + /* Using classification has smaller footprint than direct comparison. */ + if (DUK_UNLIKELY(cx == DUK_FP_ZERO && cy == DUK_FP_ZERO)) { + /* Note: cannot assume that a non-zero return value of signbit() would + * always be the same -- hence cannot (portably) use something like: + * + * signbit(x) == signbit(y) + */ + return duk_double_same_sign(x, y); + } + return 1; + } else { + /* IEEE requires that zeros compare the same regardless + * of their sign, so if both x and y are zeroes, they + * are caught above. + */ + DUK_ASSERT(!(DUK_FPCLASSIFY(x) == DUK_FP_ZERO && DUK_FPCLASSIFY(y) == DUK_FP_ZERO)); + + /* Difference to non-strict/strict comparison is that NaNs compare + * equal and signed zero signs matter. + */ + if (DUK_UNLIKELY(cx == DUK_FP_NAN && cy == DUK_FP_NAN)) { + /* SameValue(NaN, NaN) = true, regardless of NaN sign or extra bits */ + return 1; + } + return 0; + } +#endif /* DUK_USE_PARANOID_MATH */ +} + +DUK_INTERNAL duk_bool_t duk_js_equals_helper(duk_hthread *thr, duk_tval *tv_x, duk_tval *tv_y, duk_small_uint_t flags) { + duk_uint_t type_mask_x; + duk_uint_t type_mask_y; + + /* If flags != 0 (strict or SameValue), thr can be NULL. For loose + * equals comparison it must be != NULL. + */ + DUK_ASSERT(flags != 0 || thr != NULL); + + /* + * Same type? + * + * Note: since number values have no explicit tag in the 8-byte + * representation, need the awkward if + switch. + */ + +#if defined(DUK_USE_FASTINT) + if (DUK_TVAL_IS_FASTINT(tv_x) && DUK_TVAL_IS_FASTINT(tv_y)) { + if (DUK_TVAL_GET_FASTINT(tv_x) == DUK_TVAL_GET_FASTINT(tv_y)) { + return 1; + } else { + return 0; + } + } + else +#endif + if (DUK_TVAL_IS_NUMBER(tv_x) && DUK_TVAL_IS_NUMBER(tv_y)) { + duk_double_t d1, d2; + + /* Catches both doubles and cases where only one argument is + * a fastint so can't assume a double. + */ + d1 = DUK_TVAL_GET_NUMBER(tv_x); + d2 = DUK_TVAL_GET_NUMBER(tv_y); + if (DUK_UNLIKELY((flags & DUK_EQUALS_FLAG_SAMEVALUE) != 0)) { + /* SameValue */ + return duk__js_samevalue_number(d1, d2); + } else { + /* equals and strict equals */ + return duk__js_equals_number(d1, d2); + } + } else if (DUK_TVAL_GET_TAG(tv_x) == DUK_TVAL_GET_TAG(tv_y)) { + switch (DUK_TVAL_GET_TAG(tv_x)) { + case DUK_TAG_UNDEFINED: + case DUK_TAG_NULL: { + return 1; + } + case DUK_TAG_BOOLEAN: { + return DUK_TVAL_GET_BOOLEAN(tv_x) == DUK_TVAL_GET_BOOLEAN(tv_y); + } + case DUK_TAG_POINTER: { + return DUK_TVAL_GET_POINTER(tv_x) == DUK_TVAL_GET_POINTER(tv_y); + } + case DUK_TAG_STRING: + case DUK_TAG_OBJECT: { + /* Heap pointer comparison suffices for strings and objects. + * Symbols compare equal if they have the same internal + * representation; again heap pointer comparison suffices. + */ + return DUK_TVAL_GET_HEAPHDR(tv_x) == DUK_TVAL_GET_HEAPHDR(tv_y); + } + case DUK_TAG_BUFFER: { + /* In Duktape 2.x plain buffers mimic Uint8Array objects + * so always compare by heap pointer. In Duktape 1.x + * strict comparison would compare heap pointers and + * non-strict would compare contents. + */ + return DUK_TVAL_GET_HEAPHDR(tv_x) == DUK_TVAL_GET_HEAPHDR(tv_y); + } + case DUK_TAG_LIGHTFUNC: { + /* At least 'magic' has a significant impact on function + * identity. + */ + duk_small_uint_t lf_flags_x; + duk_small_uint_t lf_flags_y; + duk_c_function func_x; + duk_c_function func_y; + + DUK_TVAL_GET_LIGHTFUNC(tv_x, func_x, lf_flags_x); + DUK_TVAL_GET_LIGHTFUNC(tv_y, func_y, lf_flags_y); + return ((func_x == func_y) && (lf_flags_x == lf_flags_y)) ? 1 : 0; + } +#if defined(DUK_USE_FASTINT) + case DUK_TAG_FASTINT: +#endif + default: { + DUK_ASSERT(!DUK_TVAL_IS_UNUSED(tv_x)); + DUK_ASSERT(!DUK_TVAL_IS_UNUSED(tv_y)); + DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv_x)); + DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv_y)); + DUK_UNREACHABLE(); + DUK_WO_UNREACHABLE(return 0;); + } + } + } + + if ((flags & (DUK_EQUALS_FLAG_STRICT | DUK_EQUALS_FLAG_SAMEVALUE)) != 0) { + return 0; + } + + DUK_ASSERT(flags == 0); /* non-strict equality from here on */ + + /* + * Types are different; various cases for non-strict comparison + * + * Since comparison is symmetric, we use a "swap trick" to reduce + * code size. + */ + + type_mask_x = duk_get_type_mask_tval(tv_x); + type_mask_y = duk_get_type_mask_tval(tv_y); + + /* Undefined/null are considered equal (e.g. "null == undefined" -> true). */ + if ((type_mask_x & (DUK_TYPE_MASK_UNDEFINED | DUK_TYPE_MASK_NULL)) && + (type_mask_y & (DUK_TYPE_MASK_NULL | DUK_TYPE_MASK_UNDEFINED))) { + return 1; + } + + /* Number/string -> coerce string to number (e.g. "'1.5' == 1.5" -> true). */ + if ((type_mask_x & DUK_TYPE_MASK_NUMBER) && (type_mask_y & DUK_TYPE_MASK_STRING)) { + if (!DUK_TVAL_STRING_IS_SYMBOL(tv_y)) { + duk_double_t d1, d2; + d1 = DUK_TVAL_GET_NUMBER(tv_x); + d2 = duk_to_number_tval(thr, tv_y); + return duk__js_equals_number(d1, d2); + } + } + if ((type_mask_x & DUK_TYPE_MASK_STRING) && (type_mask_y & DUK_TYPE_MASK_NUMBER)) { + if (!DUK_TVAL_STRING_IS_SYMBOL(tv_x)) { + duk_double_t d1, d2; + d1 = DUK_TVAL_GET_NUMBER(tv_y); + d2 = duk_to_number_tval(thr, tv_x); + return duk__js_equals_number(d1, d2); + } + } + + /* Boolean/any -> coerce boolean to number and try again. If boolean is + * compared to a pointer, the final comparison after coercion now always + * yields false (as pointer vs. number compares to false), but this is + * not special cased. + * + * ToNumber(bool) is +1.0 or 0.0. Tagged boolean value is always 0 or 1. + */ + if (type_mask_x & DUK_TYPE_MASK_BOOLEAN) { + DUK_ASSERT(DUK_TVAL_GET_BOOLEAN(tv_x) == 0 || DUK_TVAL_GET_BOOLEAN(tv_x) == 1); + duk_push_uint(thr, DUK_TVAL_GET_BOOLEAN(tv_x)); + duk_push_tval(thr, tv_y); + goto recursive_call; + } + if (type_mask_y & DUK_TYPE_MASK_BOOLEAN) { + DUK_ASSERT(DUK_TVAL_GET_BOOLEAN(tv_y) == 0 || DUK_TVAL_GET_BOOLEAN(tv_y) == 1); + duk_push_tval(thr, tv_x); + duk_push_uint(thr, DUK_TVAL_GET_BOOLEAN(tv_y)); + goto recursive_call; + } + + /* String-number-symbol/object -> coerce object to primitive (apparently without hint), then try again. */ + if ((type_mask_x & (DUK_TYPE_MASK_STRING | DUK_TYPE_MASK_NUMBER)) && + (type_mask_y & DUK_TYPE_MASK_OBJECT)) { + /* No symbol check needed because symbols and strings are accepted. */ + duk_push_tval(thr, tv_x); + duk_push_tval(thr, tv_y); + duk_to_primitive(thr, -1, DUK_HINT_NONE); /* apparently no hint? */ + goto recursive_call; + } + if ((type_mask_x & DUK_TYPE_MASK_OBJECT) && + (type_mask_y & (DUK_TYPE_MASK_STRING | DUK_TYPE_MASK_NUMBER))) { + /* No symbol check needed because symbols and strings are accepted. */ + duk_push_tval(thr, tv_x); + duk_push_tval(thr, tv_y); + duk_to_primitive(thr, -2, DUK_HINT_NONE); /* apparently no hint? */ + goto recursive_call; + } + + /* Nothing worked -> not equal. */ + return 0; + + recursive_call: + /* Shared code path to call the helper again with arguments on stack top. */ + { + duk_bool_t rc; + rc = duk_js_equals_helper(thr, + DUK_GET_TVAL_NEGIDX(thr, -2), + DUK_GET_TVAL_NEGIDX(thr, -1), + 0 /*flags:nonstrict*/); + duk_pop_2_unsafe(thr); + return rc; + } +} + +/* + * Comparisons (x >= y, x > y, x <= y, x < y) + * + * E5 Section 11.8.5: implement 'x < y' and then use negate and eval_left_first + * flags to get the rest. + */ + +/* XXX: this should probably just operate on the stack top, because it + * needs to push stuff on the stack anyway... + */ + +DUK_INTERNAL duk_small_int_t duk_js_data_compare(const duk_uint8_t *buf1, const duk_uint8_t *buf2, duk_size_t len1, duk_size_t len2) { + duk_size_t prefix_len; + duk_small_int_t rc; + + prefix_len = (len1 <= len2 ? len1 : len2); + + /* duk_memcmp() is guaranteed to return zero (equal) for zero length + * inputs. + */ + rc = duk_memcmp_unsafe((const void *) buf1, + (const void *) buf2, + (size_t) prefix_len); + + if (rc < 0) { + return -1; + } else if (rc > 0) { + return 1; + } + + /* prefix matches, lengths matter now */ + if (len1 < len2) { + /* e.g. "x" < "xx" */ + return -1; + } else if (len1 > len2) { + return 1; + } + + return 0; +} + +DUK_INTERNAL duk_small_int_t duk_js_string_compare(duk_hstring *h1, duk_hstring *h2) { + /* + * String comparison (E5 Section 11.8.5, step 4), which + * needs to compare codepoint by codepoint. + * + * However, UTF-8 allows us to use strcmp directly: the shared + * prefix will be encoded identically (UTF-8 has unique encoding) + * and the first differing character can be compared with a simple + * unsigned byte comparison (which strcmp does). + * + * This will not work properly for non-xutf-8 strings, but this + * is not an issue for compliance. + */ + + DUK_ASSERT(h1 != NULL); + DUK_ASSERT(h2 != NULL); + + return duk_js_data_compare((const duk_uint8_t *) DUK_HSTRING_GET_DATA(h1), + (const duk_uint8_t *) DUK_HSTRING_GET_DATA(h2), + (duk_size_t) DUK_HSTRING_GET_BYTELEN(h1), + (duk_size_t) DUK_HSTRING_GET_BYTELEN(h2)); +} + +#if 0 /* unused */ +DUK_INTERNAL duk_small_int_t duk_js_buffer_compare(duk_heap *heap, duk_hbuffer *h1, duk_hbuffer *h2) { + /* Similar to String comparison. */ + + DUK_ASSERT(h1 != NULL); + DUK_ASSERT(h2 != NULL); + DUK_UNREF(heap); + + return duk_js_data_compare((const duk_uint8_t *) DUK_HBUFFER_GET_DATA_PTR(heap, h1), + (const duk_uint8_t *) DUK_HBUFFER_GET_DATA_PTR(heap, h2), + (duk_size_t) DUK_HBUFFER_GET_SIZE(h1), + (duk_size_t) DUK_HBUFFER_GET_SIZE(h2)); +} +#endif + +#if defined(DUK_USE_FASTINT) +DUK_LOCAL duk_bool_t duk__compare_fastint(duk_bool_t retval, duk_int64_t v1, duk_int64_t v2) { + DUK_ASSERT(retval == 0 || retval == 1); + if (v1 < v2) { + return retval ^ 1; + } else { + return retval; + } +} +#endif + +#if defined(DUK_USE_PARANOID_MATH) +DUK_LOCAL duk_bool_t duk__compare_number(duk_bool_t retval, duk_double_t d1, duk_double_t d2) { + duk_small_int_t c1, s1, c2, s2; + + DUK_ASSERT(retval == 0 || retval == 1); + c1 = (duk_small_int_t) DUK_FPCLASSIFY(d1); + s1 = (duk_small_int_t) DUK_SIGNBIT(d1); + c2 = (duk_small_int_t) DUK_FPCLASSIFY(d2); + s2 = (duk_small_int_t) DUK_SIGNBIT(d2); + + if (c1 == DUK_FP_NAN || c2 == DUK_FP_NAN) { + return 0; /* Always false, regardless of negation. */ + } + + if (c1 == DUK_FP_ZERO && c2 == DUK_FP_ZERO) { + /* For all combinations: +0 < +0, +0 < -0, -0 < +0, -0 < -0, + * steps e, f, and g. + */ + return retval; /* false */ + } + + if (d1 == d2) { + return retval; /* false */ + } + + if (c1 == DUK_FP_INFINITE && s1 == 0) { + /* x == +Infinity */ + return retval; /* false */ + } + + if (c2 == DUK_FP_INFINITE && s2 == 0) { + /* y == +Infinity */ + return retval ^ 1; /* true */ + } + + if (c2 == DUK_FP_INFINITE && s2 != 0) { + /* y == -Infinity */ + return retval; /* false */ + } + + if (c1 == DUK_FP_INFINITE && s1 != 0) { + /* x == -Infinity */ + return retval ^ 1; /* true */ + } + + if (d1 < d2) { + return retval ^ 1; /* true */ + } + + return retval; /* false */ +} +#else /* DUK_USE_PARANOID_MATH */ +DUK_LOCAL duk_bool_t duk__compare_number(duk_bool_t retval, duk_double_t d1, duk_double_t d2) { + /* This comparison tree relies doesn't match the exact steps in + * E5 Section 11.8.5 but should produce the same results. The + * steps rely on exact IEEE semantics for NaNs, etc. + */ + + DUK_ASSERT(retval == 0 || retval == 1); + if (d1 < d2) { + /* In no case should both (d1 < d2) and (d2 < d1) be true. + * It's possible that neither is true though, and that's + * handled below. + */ + DUK_ASSERT(!(d2 < d1)); + + /* - d1 < d2, both d1/d2 are normals (not Infinity, not NaN) + * - d2 is +Infinity, d1 != +Infinity and NaN + * - d1 is -Infinity, d2 != -Infinity and NaN + */ + return retval ^ 1; + } else { + if (d2 < d1) { + /* - !(d1 < d2), both d1/d2 are normals (not Infinity, not NaN) + * - d1 is +Infinity, d2 != +Infinity and NaN + * - d2 is -Infinity, d1 != -Infinity and NaN + */ + return retval; + } else { + /* - d1 and/or d2 is NaN + * - d1 and d2 are both +/- 0 + * - d1 == d2 (including infinities) + */ + if (duk_double_is_nan(d1) || duk_double_is_nan(d2)) { + /* Note: undefined from Section 11.8.5 always + * results in false return (see e.g. Section + * 11.8.3) - hence special treatment here. + */ + return 0; /* zero regardless of negation */ + } else { + return retval; + } + } + } +} +#endif /* DUK_USE_PARANOID_MATH */ + +DUK_INTERNAL duk_bool_t duk_js_compare_helper(duk_hthread *thr, duk_tval *tv_x, duk_tval *tv_y, duk_small_uint_t flags) { + duk_double_t d1, d2; + duk_small_int_t rc; + duk_bool_t retval; + + DUK_ASSERT(DUK_COMPARE_FLAG_NEGATE == 1); /* Rely on this flag being lowest. */ + retval = flags & DUK_COMPARE_FLAG_NEGATE; + DUK_ASSERT(retval == 0 || retval == 1); + + /* Fast path for fastints */ +#if defined(DUK_USE_FASTINT) + if (DUK_LIKELY(DUK_TVAL_IS_FASTINT(tv_x) && DUK_TVAL_IS_FASTINT(tv_y))) { + return duk__compare_fastint(retval, + DUK_TVAL_GET_FASTINT(tv_x), + DUK_TVAL_GET_FASTINT(tv_y)); + } +#endif /* DUK_USE_FASTINT */ + + /* Fast path for numbers (one of which may be a fastint) */ +#if !defined(DUK_USE_PREFER_SIZE) + if (DUK_LIKELY(DUK_TVAL_IS_NUMBER(tv_x) && DUK_TVAL_IS_NUMBER(tv_y))) { + return duk__compare_number(retval, + DUK_TVAL_GET_NUMBER(tv_x), + DUK_TVAL_GET_NUMBER(tv_y)); + } +#endif + + /* Slow path */ + + duk_push_tval(thr, tv_x); + duk_push_tval(thr, tv_y); + + if (flags & DUK_COMPARE_FLAG_EVAL_LEFT_FIRST) { + duk_to_primitive(thr, -2, DUK_HINT_NUMBER); + duk_to_primitive(thr, -1, DUK_HINT_NUMBER); + } else { + duk_to_primitive(thr, -1, DUK_HINT_NUMBER); + duk_to_primitive(thr, -2, DUK_HINT_NUMBER); + } + + /* Note: reuse variables */ + tv_x = DUK_GET_TVAL_NEGIDX(thr, -2); + tv_y = DUK_GET_TVAL_NEGIDX(thr, -1); + + if (DUK_TVAL_IS_STRING(tv_x) && DUK_TVAL_IS_STRING(tv_y)) { + duk_hstring *h1 = DUK_TVAL_GET_STRING(tv_x); + duk_hstring *h2 = DUK_TVAL_GET_STRING(tv_y); + DUK_ASSERT(h1 != NULL); + DUK_ASSERT(h2 != NULL); + + if (DUK_LIKELY(!DUK_HSTRING_HAS_SYMBOL(h1) && !DUK_HSTRING_HAS_SYMBOL(h2))) { + rc = duk_js_string_compare(h1, h2); + duk_pop_2_unsafe(thr); + if (rc < 0) { + return retval ^ 1; + } else { + return retval; + } + } + + /* One or both are Symbols: fall through to handle in the + * generic path. Concretely, ToNumber() will fail. + */ + } + + /* Ordering should not matter (E5 Section 11.8.5, step 3.a). */ +#if 0 + if (flags & DUK_COMPARE_FLAG_EVAL_LEFT_FIRST) { + d1 = duk_to_number_m2(thr); + d2 = duk_to_number_m1(thr); + } else { + d2 = duk_to_number_m1(thr); + d1 = duk_to_number_m2(thr); + } +#endif + d1 = duk_to_number_m2(thr); + d2 = duk_to_number_m1(thr); + + /* We want to duk_pop_2_unsafe(thr); because the values are numbers + * no decref check is needed. + */ +#if defined(DUK_USE_PREFER_SIZE) + duk_pop_2_nodecref_unsafe(thr); +#else + DUK_ASSERT(!DUK_TVAL_NEEDS_REFCOUNT_UPDATE(duk_get_tval(thr, -2))); + DUK_ASSERT(!DUK_TVAL_NEEDS_REFCOUNT_UPDATE(duk_get_tval(thr, -1))); + DUK_ASSERT(duk_get_top(thr) >= 2); + thr->valstack_top -= 2; + tv_x = thr->valstack_top; + tv_y = tv_x + 1; + DUK_TVAL_SET_UNDEFINED(tv_x); /* Value stack policy */ + DUK_TVAL_SET_UNDEFINED(tv_y); +#endif + + return duk__compare_number(retval, d1, d2); +} + +/* + * instanceof + */ + +/* + * ES2015 Section 7.3.19 describes the OrdinaryHasInstance() algorithm + * which covers both bound and non-bound functions; in effect the algorithm + * includes E5 Sections 11.8.6, 15.3.5.3, and 15.3.4.5.3. + * + * ES2015 Section 12.9.4 describes the instanceof operator which first + * checks @@hasInstance well-known symbol and falls back to + * OrdinaryHasInstance(). + * + * Limited Proxy support: don't support 'getPrototypeOf' trap but + * continue lookup in Proxy target if the value is a Proxy. + */ + +DUK_LOCAL duk_bool_t duk__js_instanceof_helper(duk_hthread *thr, duk_tval *tv_x, duk_tval *tv_y, duk_bool_t skip_sym_check) { + duk_hobject *func; + duk_hobject *val; + duk_hobject *proto; + duk_tval *tv; + duk_bool_t skip_first; + duk_uint_t sanity; + + /* + * Get the values onto the stack first. It would be possible to cover + * some normal cases without resorting to the value stack. + * + * The right hand side could be a light function (as they generally + * behave like objects). Light functions never have a 'prototype' + * property so E5.1 Section 15.3.5.3 step 3 always throws a TypeError. + * Using duk_require_hobject() is thus correct (except for error msg). + */ + + duk_push_tval(thr, tv_x); + duk_push_tval(thr, tv_y); + func = duk_require_hobject(thr, -1); + DUK_ASSERT(func != NULL); + +#if defined(DUK_USE_SYMBOL_BUILTIN) + /* + * @@hasInstance check, ES2015 Section 12.9.4, Steps 2-4. + */ + if (!skip_sym_check) { + if (duk_get_method_stridx(thr, -1, DUK_STRIDX_WELLKNOWN_SYMBOL_HAS_INSTANCE)) { + /* [ ... lhs rhs func ] */ + duk_insert(thr, -3); /* -> [ ... func lhs rhs ] */ + duk_swap_top(thr, -2); /* -> [ ... func rhs(this) lhs ] */ + duk_call_method(thr, 1); + return duk_to_boolean_top_pop(thr); + } + } +#else + DUK_UNREF(skip_sym_check); +#endif + + /* + * For bound objects, [[HasInstance]] just calls the target function + * [[HasInstance]]. If that is again a bound object, repeat until + * we find a non-bound Function object. + * + * The bound function chain is now "collapsed" so there can be only + * one bound function in the chain. + */ + + if (!DUK_HOBJECT_IS_CALLABLE(func)) { + /* + * Note: of native ECMAScript objects, only Function instances + * have a [[HasInstance]] internal property. Custom objects might + * also have it, but not in current implementation. + * + * XXX: add a separate flag, DUK_HOBJECT_FLAG_ALLOW_INSTANCEOF? + */ + goto error_invalid_rval; + } + + if (DUK_HOBJECT_HAS_BOUNDFUNC(func)) { + duk_push_tval(thr, &((duk_hboundfunc *) (void *) func)->target); + duk_replace(thr, -2); + func = duk_require_hobject(thr, -1); /* lightfunc throws */ + + /* Rely on Function.prototype.bind() never creating bound + * functions whose target is not proper. + */ + DUK_ASSERT(func != NULL); + DUK_ASSERT(DUK_HOBJECT_IS_CALLABLE(func)); + } + + /* + * 'func' is now a non-bound object which supports [[HasInstance]] + * (which here just means DUK_HOBJECT_FLAG_CALLABLE). Move on + * to execute E5 Section 15.3.5.3. + */ + + DUK_ASSERT(func != NULL); + DUK_ASSERT(!DUK_HOBJECT_HAS_BOUNDFUNC(func)); + DUK_ASSERT(DUK_HOBJECT_IS_CALLABLE(func)); + + /* [ ... lval rval(func) ] */ + + /* For lightfuncs, buffers, and pointers start the comparison directly + * from the virtual prototype object. + */ + skip_first = 0; + tv = DUK_GET_TVAL_NEGIDX(thr, -2); + switch (DUK_TVAL_GET_TAG(tv)) { + case DUK_TAG_LIGHTFUNC: + val = thr->builtins[DUK_BIDX_FUNCTION_PROTOTYPE]; + DUK_ASSERT(val != NULL); + break; + case DUK_TAG_BUFFER: + val = thr->builtins[DUK_BIDX_UINT8ARRAY_PROTOTYPE]; + DUK_ASSERT(val != NULL); + break; + case DUK_TAG_POINTER: + val = thr->builtins[DUK_BIDX_POINTER_PROTOTYPE]; + DUK_ASSERT(val != NULL); + break; + case DUK_TAG_OBJECT: + skip_first = 1; /* Ignore object itself on first round. */ + val = DUK_TVAL_GET_OBJECT(tv); + DUK_ASSERT(val != NULL); + break; + default: + goto pop2_and_false; + } + DUK_ASSERT(val != NULL); /* Loop doesn't actually rely on this. */ + + /* Look up .prototype of rval. Leave it on the value stack in case it + * has been virtualized (e.g. getter, Proxy trap). + */ + duk_get_prop_stridx_short(thr, -1, DUK_STRIDX_PROTOTYPE); /* -> [ ... lval rval rval.prototype ] */ +#if defined(DUK_USE_VERBOSE_ERRORS) + proto = duk_get_hobject(thr, -1); + if (proto == NULL) { + goto error_invalid_rval_noproto; + } +#else + proto = duk_require_hobject(thr, -1); +#endif + + sanity = DUK_HOBJECT_PROTOTYPE_CHAIN_SANITY; + do { + /* + * Note: prototype chain is followed BEFORE first comparison. This + * means that the instanceof lval is never itself compared to the + * rval.prototype property. This is apparently intentional, see E5 + * Section 15.3.5.3, step 4.a. + * + * Also note: + * + * js> (function() {}) instanceof Function + * true + * js> Function instanceof Function + * true + * + * For the latter, h_proto will be Function.prototype, which is the + * built-in Function prototype. Because Function.[[Prototype]] is + * also the built-in Function prototype, the result is true. + */ + + if (!val) { + goto pop3_and_false; + } + + DUK_ASSERT(val != NULL); +#if defined(DUK_USE_ES6_PROXY) + val = duk_hobject_resolve_proxy_target(val); +#endif + + if (skip_first) { + skip_first = 0; + } else if (val == proto) { + goto pop3_and_true; + } + + DUK_ASSERT(val != NULL); + val = DUK_HOBJECT_GET_PROTOTYPE(thr->heap, val); + } while (--sanity > 0); + + DUK_ASSERT(sanity == 0); + DUK_ERROR_RANGE(thr, DUK_STR_PROTOTYPE_CHAIN_LIMIT); + DUK_WO_NORETURN(return 0;); + + pop2_and_false: + duk_pop_2_unsafe(thr); + return 0; + + pop3_and_false: + duk_pop_3_unsafe(thr); + return 0; + + pop3_and_true: + duk_pop_3_unsafe(thr); + return 1; + + error_invalid_rval: + DUK_ERROR_TYPE(thr, DUK_STR_INVALID_INSTANCEOF_RVAL); + DUK_WO_NORETURN(return 0;); + +#if defined(DUK_USE_VERBOSE_ERRORS) + error_invalid_rval_noproto: + DUK_ERROR_TYPE(thr, DUK_STR_INVALID_INSTANCEOF_RVAL_NOPROTO); + DUK_WO_NORETURN(return 0;); +#endif +} + +#if defined(DUK_USE_SYMBOL_BUILTIN) +DUK_INTERNAL duk_bool_t duk_js_instanceof_ordinary(duk_hthread *thr, duk_tval *tv_x, duk_tval *tv_y) { + return duk__js_instanceof_helper(thr, tv_x, tv_y, 1 /*skip_sym_check*/); +} +#endif + +DUK_INTERNAL duk_bool_t duk_js_instanceof(duk_hthread *thr, duk_tval *tv_x, duk_tval *tv_y) { + return duk__js_instanceof_helper(thr, tv_x, tv_y, 0 /*skip_sym_check*/); +} + +/* + * in + */ + +/* + * E5 Sections 11.8.7, 8.12.6. + * + * Basically just a property existence check using [[HasProperty]]. + */ + +DUK_INTERNAL duk_bool_t duk_js_in(duk_hthread *thr, duk_tval *tv_x, duk_tval *tv_y) { + duk_bool_t retval; + + /* + * Get the values onto the stack first. It would be possible to cover + * some normal cases without resorting to the value stack (e.g. if + * lval is already a string). + */ + + /* XXX: The ES5/5.1/6 specifications require that the key in 'key in obj' + * must be string coerced before the internal HasProperty() algorithm is + * invoked. A fast path skipping coercion could be safely implemented for + * numbers (as number-to-string coercion has no side effects). For ES2015 + * proxy behavior, the trap 'key' argument must be in a string coerced + * form (which is a shame). + */ + + /* TypeError if rval is not an object or object like (e.g. lightfunc + * or plain buffer). + */ + duk_push_tval(thr, tv_x); + duk_push_tval(thr, tv_y); + duk_require_type_mask(thr, -1, DUK_TYPE_MASK_OBJECT | DUK_TYPE_MASK_LIGHTFUNC | DUK_TYPE_MASK_BUFFER); + + (void) duk_to_property_key_hstring(thr, -2); + + retval = duk_hobject_hasprop(thr, + DUK_GET_TVAL_NEGIDX(thr, -1), + DUK_GET_TVAL_NEGIDX(thr, -2)); + + duk_pop_2_unsafe(thr); + return retval; +} + +/* + * typeof + * + * E5 Section 11.4.3. + * + * Very straightforward. The only question is what to return for our + * non-standard tag / object types. + * + * There is an unfortunate string constant define naming problem with + * typeof return values for e.g. "Object" and "object"; careful with + * the built-in string defines. The LC_XXX defines are used for the + * lowercase variants now. + */ + +DUK_INTERNAL duk_small_uint_t duk_js_typeof_stridx(duk_tval *tv_x) { + duk_small_uint_t stridx = 0; + + switch (DUK_TVAL_GET_TAG(tv_x)) { + case DUK_TAG_UNDEFINED: { + stridx = DUK_STRIDX_LC_UNDEFINED; + break; + } + case DUK_TAG_NULL: { + /* Note: not a typo, "object" is returned for a null value. */ + stridx = DUK_STRIDX_LC_OBJECT; + break; + } + case DUK_TAG_BOOLEAN: { + stridx = DUK_STRIDX_LC_BOOLEAN; + break; + } + case DUK_TAG_POINTER: { + /* Implementation specific. */ + stridx = DUK_STRIDX_LC_POINTER; + break; + } + case DUK_TAG_STRING: { + duk_hstring *str; + + /* All internal keys are identified as Symbols. */ + str = DUK_TVAL_GET_STRING(tv_x); + DUK_ASSERT(str != NULL); + if (DUK_UNLIKELY(DUK_HSTRING_HAS_SYMBOL(str))) { + stridx = DUK_STRIDX_LC_SYMBOL; + } else { + stridx = DUK_STRIDX_LC_STRING; + } + break; + } + case DUK_TAG_OBJECT: { + duk_hobject *obj = DUK_TVAL_GET_OBJECT(tv_x); + DUK_ASSERT(obj != NULL); + if (DUK_HOBJECT_IS_CALLABLE(obj)) { + stridx = DUK_STRIDX_LC_FUNCTION; + } else { + stridx = DUK_STRIDX_LC_OBJECT; + } + break; + } + case DUK_TAG_BUFFER: { + /* Implementation specific. In Duktape 1.x this would be + * 'buffer', in Duktape 2.x changed to 'object' because plain + * buffers now mimic Uint8Array objects. + */ + stridx = DUK_STRIDX_LC_OBJECT; + break; + } + case DUK_TAG_LIGHTFUNC: { + stridx = DUK_STRIDX_LC_FUNCTION; + break; + } +#if defined(DUK_USE_FASTINT) + case DUK_TAG_FASTINT: +#endif + default: { + /* number */ + DUK_ASSERT(!DUK_TVAL_IS_UNUSED(tv_x)); + DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv_x)); + stridx = DUK_STRIDX_LC_NUMBER; + break; + } + } + + DUK_ASSERT_STRIDX_VALID(stridx); + return stridx; +} + +/* + * IsArray() + */ + +DUK_INTERNAL duk_bool_t duk_js_isarray_hobject(duk_hobject *h) { + DUK_ASSERT(h != NULL); +#if defined(DUK_USE_ES6_PROXY) + h = duk_hobject_resolve_proxy_target(h); +#endif + return (DUK_HOBJECT_GET_CLASS_NUMBER(h) == DUK_HOBJECT_CLASS_ARRAY ? 1 : 0); +} + +DUK_INTERNAL duk_bool_t duk_js_isarray(duk_tval *tv) { + DUK_ASSERT(tv != NULL); + if (DUK_TVAL_IS_OBJECT(tv)) { + return duk_js_isarray_hobject(DUK_TVAL_GET_OBJECT(tv)); + } + return 0; +} + +/* + * Array index and length + * + * Array index: E5 Section 15.4 + * Array length: E5 Section 15.4.5.1 steps 3.c - 3.d (array length write) + */ + +/* Compure array index from string context, or return a "not array index" + * indicator. + */ +DUK_INTERNAL duk_uarridx_t duk_js_to_arrayindex_string(const duk_uint8_t *str, duk_uint32_t blen) { + duk_uarridx_t res; + + /* Only strings with byte length 1-10 can be 32-bit array indices. + * Leading zeroes (except '0' alone), plus/minus signs are not allowed. + * We could do a lot of prechecks here, but since most strings won't + * start with any digits, it's simpler to just parse the number and + * fail quickly. + */ + + res = 0; + if (blen == 0) { + goto parse_fail; + } + do { + duk_uarridx_t dig; + dig = (duk_uarridx_t) (*str++) - DUK_ASC_0; + + if (dig <= 9U) { + /* Careful overflow handling. When multiplying by 10: + * - 0x19999998 x 10 = 0xfffffff0: no overflow, and adding + * 0...9 is safe. + * - 0x19999999 x 10 = 0xfffffffa: no overflow, adding + * 0...5 is safe, 6...9 overflows. + * - 0x1999999a x 10 = 0x100000004: always overflow. + */ + if (DUK_UNLIKELY(res >= 0x19999999UL)) { + if (res >= 0x1999999aUL) { + /* Always overflow. */ + goto parse_fail; + } + DUK_ASSERT(res == 0x19999999UL); + if (dig >= 6U) { + goto parse_fail; + } + res = 0xfffffffaUL + dig; + DUK_ASSERT(res >= 0xfffffffaUL); + DUK_ASSERT_DISABLE(res <= 0xffffffffUL); /* range */ + } else { + res = res * 10U + dig; + if (DUK_UNLIKELY(res == 0)) { + /* If 'res' is 0, previous 'res' must + * have been 0 and we scanned in a zero. + * This is only allowed if blen == 1, + * i.e. the exact string '0'. + */ + if (blen == (duk_uint32_t) 1) { + return 0; + } + goto parse_fail; + } + } + } else { + /* Because 'dig' is unsigned, catches both values + * above '9' and below '0'. + */ + goto parse_fail; + } + } while (--blen > 0); + + return res; + + parse_fail: + return DUK_HSTRING_NO_ARRAY_INDEX; +} + +#if !defined(DUK_USE_HSTRING_ARRIDX) +/* Get array index for a string which is known to be an array index. This helper + * is needed when duk_hstring doesn't concretely store the array index, but strings + * are flagged as array indices at intern time. + */ +DUK_INTERNAL duk_uarridx_t duk_js_to_arrayindex_hstring_fast_known(duk_hstring *h) { + const duk_uint8_t *p; + duk_uarridx_t res; + duk_uint8_t t; + + DUK_ASSERT(h != NULL); + DUK_ASSERT(DUK_HSTRING_HAS_ARRIDX(h)); + + p = DUK_HSTRING_GET_DATA(h); + res = 0; + for (;;) { + t = *p++; + if (DUK_UNLIKELY(t == 0)) { + /* Scanning to NUL is always safe for interned strings. */ + break; + } + DUK_ASSERT(t >= (duk_uint8_t) DUK_ASC_0 && t <= (duk_uint8_t) DUK_ASC_9); + res = res * 10U + (duk_uarridx_t) t - (duk_uarridx_t) DUK_ASC_0; + } + return res; +} + +DUK_INTERNAL duk_uarridx_t duk_js_to_arrayindex_hstring_fast(duk_hstring *h) { + DUK_ASSERT(h != NULL); + if (!DUK_HSTRING_HAS_ARRIDX(h)) { + return DUK_HSTRING_NO_ARRAY_INDEX; + } + return duk_js_to_arrayindex_hstring_fast_known(h); +} +#endif /* DUK_USE_HSTRING_ARRIDX */ +#line 1 "duk_js_var.c" +/* + * Identifier access and function closure handling. + * + * Provides the primitives for slow path identifier accesses: GETVAR, + * PUTVAR, DELVAR, etc. The fast path, direct register accesses, should + * be used for most identifier accesses. Consequently, these slow path + * primitives should be optimized for maximum compactness. + * + * ECMAScript environment records (declarative and object) are represented + * as internal objects with control keys. Environment records have a + * parent record ("outer environment reference") which is represented by + * the implicit prototype for technical reasons (in other words, it is a + * convenient field). The prototype chain is not followed in the ordinary + * sense for variable lookups. + * + * See identifier-handling.rst for more details on the identifier algorithms + * and the internal representation. See function-objects.rst for details on + * what function templates and instances are expected to look like. + * + * Care must be taken to avoid duk_tval pointer invalidation caused by + * e.g. value stack or object resizing. + * + * TODO: properties for function instances could be initialized much more + * efficiently by creating a property allocation for a certain size and + * filling in keys and values directly (and INCREFing both with "bulk incref" + * primitives. + * + * XXX: duk_hobject_getprop() and duk_hobject_putprop() calls are a bit + * awkward (especially because they follow the prototype chain); rework + * if "raw" own property helpers are added. + */ + +/* #include duk_internal.h -> already included */ + +/* + * Local result type for duk__get_identifier_reference() lookup. + */ + +typedef struct { + duk_hobject *env; + duk_hobject *holder; /* for object-bound identifiers */ + duk_tval *value; /* for register-bound and declarative env identifiers */ + duk_uint_t attrs; /* property attributes for identifier (relevant if value != NULL) */ + duk_bool_t has_this; /* for object-bound identifiers: provide 'this' binding */ +} duk__id_lookup_result; + +/* + * Create a new function object based on a "template function" which contains + * compiled bytecode, constants, etc, but lacks a lexical environment. + * + * ECMAScript requires that each created closure is a separate object, with + * its own set of editable properties. However, structured property values + * (such as the formal arguments list and the variable map) are shared. + * Also the bytecode, constants, and inner functions are shared. + * + * See E5 Section 13.2 for detailed requirements on the function objects; + * there are no similar requirements for function "templates" which are an + * implementation dependent internal feature. Also see function-objects.rst + * for a discussion on the function instance properties provided by this + * implementation. + * + * Notes: + * + * * Order of internal properties should match frequency of use, since the + * properties will be linearly scanned on lookup (functions usually don't + * have enough properties to warrant a hash part). + * + * * The created closure is independent of its template; they do share the + * same 'data' buffer object, but the template object itself can be freed + * even if the closure object remains reachable. + */ + +DUK_LOCAL void duk__inc_data_inner_refcounts(duk_hthread *thr, duk_hcompfunc *f) { + duk_tval *tv, *tv_end; + duk_hobject **funcs, **funcs_end; + + DUK_UNREF(thr); + + /* If function creation fails due to out-of-memory, the data buffer + * pointer may be NULL in some cases. That's actually possible for + * GC code, but shouldn't be possible here because the incomplete + * function will be unwound from the value stack and never instantiated. + */ + DUK_ASSERT(DUK_HCOMPFUNC_GET_DATA(thr->heap, f) != NULL); + + tv = DUK_HCOMPFUNC_GET_CONSTS_BASE(thr->heap, f); + tv_end = DUK_HCOMPFUNC_GET_CONSTS_END(thr->heap, f); + while (tv < tv_end) { + DUK_TVAL_INCREF(thr, tv); + tv++; + } + + funcs = DUK_HCOMPFUNC_GET_FUNCS_BASE(thr->heap, f); + funcs_end = DUK_HCOMPFUNC_GET_FUNCS_END(thr->heap, f); + while (funcs < funcs_end) { + DUK_HEAPHDR_INCREF(thr, (duk_heaphdr *) *funcs); + funcs++; + } +} + +/* Push a new closure on the stack. + * + * Note: if fun_temp has NEWENV, i.e. a new lexical and variable declaration + * is created when the function is called, only outer_lex_env matters + * (outer_var_env is ignored and may or may not be same as outer_lex_env). + */ + +DUK_LOCAL const duk_uint16_t duk__closure_copy_proplist[] = { + /* order: most frequent to least frequent */ + DUK_STRIDX_INT_VARMAP, + DUK_STRIDX_INT_FORMALS, +#if defined(DUK_USE_PC2LINE) + DUK_STRIDX_INT_PC2LINE, +#endif +#if defined(DUK_USE_FUNC_FILENAME_PROPERTY) + DUK_STRIDX_FILE_NAME, +#endif +#if defined(DUK_USE_NONSTD_FUNC_SOURCE_PROPERTY) + DUK_STRIDX_INT_SOURCE +#endif +}; + +DUK_INTERNAL +void duk_js_push_closure(duk_hthread *thr, + duk_hcompfunc *fun_temp, + duk_hobject *outer_var_env, + duk_hobject *outer_lex_env, + duk_bool_t add_auto_proto) { + duk_hcompfunc *fun_clos; + duk_harray *formals; + duk_small_uint_t i; + duk_uint_t len_value; + + DUK_ASSERT(fun_temp != NULL); + DUK_ASSERT(DUK_HCOMPFUNC_GET_DATA(thr->heap, fun_temp) != NULL); + DUK_ASSERT(DUK_HCOMPFUNC_GET_FUNCS(thr->heap, fun_temp) != NULL); + DUK_ASSERT(DUK_HCOMPFUNC_GET_BYTECODE(thr->heap, fun_temp) != NULL); + DUK_ASSERT(outer_var_env != NULL); + DUK_ASSERT(outer_lex_env != NULL); + DUK_UNREF(len_value); + + DUK_STATS_INC(thr->heap, stats_envrec_pushclosure); + + fun_clos = duk_push_hcompfunc(thr); + DUK_ASSERT(fun_clos != NULL); + DUK_ASSERT(DUK_HOBJECT_GET_PROTOTYPE(thr->heap, (duk_hobject *) fun_clos) == thr->builtins[DUK_BIDX_FUNCTION_PROTOTYPE]); + + duk_push_hobject(thr, &fun_temp->obj); /* -> [ ... closure template ] */ + + DUK_ASSERT(DUK_HOBJECT_IS_COMPFUNC((duk_hobject *) fun_clos)); + DUK_ASSERT(DUK_HCOMPFUNC_GET_DATA(thr->heap, fun_clos) == NULL); + DUK_ASSERT(DUK_HCOMPFUNC_GET_FUNCS(thr->heap, fun_clos) == NULL); + DUK_ASSERT(DUK_HCOMPFUNC_GET_BYTECODE(thr->heap, fun_clos) == NULL); + + DUK_HCOMPFUNC_SET_DATA(thr->heap, fun_clos, DUK_HCOMPFUNC_GET_DATA(thr->heap, fun_temp)); + DUK_HCOMPFUNC_SET_FUNCS(thr->heap, fun_clos, DUK_HCOMPFUNC_GET_FUNCS(thr->heap, fun_temp)); + DUK_HCOMPFUNC_SET_BYTECODE(thr->heap, fun_clos, DUK_HCOMPFUNC_GET_BYTECODE(thr->heap, fun_temp)); + + /* Note: all references inside 'data' need to get their refcounts + * upped too. This is the case because refcounts are decreased + * through every function referencing 'data' independently. + */ + + DUK_HBUFFER_INCREF(thr, DUK_HCOMPFUNC_GET_DATA(thr->heap, fun_clos)); + duk__inc_data_inner_refcounts(thr, fun_temp); + + fun_clos->nregs = fun_temp->nregs; + fun_clos->nargs = fun_temp->nargs; +#if defined(DUK_USE_DEBUGGER_SUPPORT) + fun_clos->start_line = fun_temp->start_line; + fun_clos->end_line = fun_temp->end_line; +#endif + + DUK_ASSERT(DUK_HCOMPFUNC_GET_DATA(thr->heap, fun_clos) != NULL); + DUK_ASSERT(DUK_HCOMPFUNC_GET_FUNCS(thr->heap, fun_clos) != NULL); + DUK_ASSERT(DUK_HCOMPFUNC_GET_BYTECODE(thr->heap, fun_clos) != NULL); + + /* XXX: Could also copy from template, but there's no way to have any + * other value here now (used code has no access to the template). + * Prototype is set by duk_push_hcompfunc(). + */ + DUK_ASSERT(DUK_HOBJECT_GET_PROTOTYPE(thr->heap, &fun_clos->obj) == thr->builtins[DUK_BIDX_FUNCTION_PROTOTYPE]); +#if 0 + DUK_HOBJECT_SET_PROTOTYPE_UPDREF(thr, &fun_clos->obj, thr->builtins[DUK_BIDX_FUNCTION_PROTOTYPE]); +#endif + + /* Copy duk_hobject flags as is from the template using a mask. + * Leave out duk_heaphdr owned flags just in case (e.g. if there's + * some GC flag or similar). Some flags can then be adjusted + * separately if necessary. + */ + + /* DUK_HEAPHDR_SET_FLAGS() masks changes to non-duk_heaphdr flags only. */ + DUK_HEAPHDR_SET_FLAGS((duk_heaphdr *) fun_clos, DUK_HEAPHDR_GET_FLAGS_RAW((duk_heaphdr *) fun_temp)); + DUK_DD(DUK_DDPRINT("fun_temp heaphdr flags: 0x%08lx, fun_clos heaphdr flags: 0x%08lx", + (unsigned long) DUK_HEAPHDR_GET_FLAGS_RAW((duk_heaphdr *) fun_temp), + (unsigned long) DUK_HEAPHDR_GET_FLAGS_RAW((duk_heaphdr *) fun_clos))); + + DUK_ASSERT(DUK_HOBJECT_HAS_EXTENSIBLE(&fun_clos->obj)); + DUK_ASSERT(!DUK_HOBJECT_HAS_BOUNDFUNC(&fun_clos->obj)); + DUK_ASSERT(DUK_HOBJECT_HAS_COMPFUNC(&fun_clos->obj)); + DUK_ASSERT(!DUK_HOBJECT_HAS_NATFUNC(&fun_clos->obj)); + DUK_ASSERT(!DUK_HOBJECT_IS_THREAD(&fun_clos->obj)); + /* DUK_HOBJECT_FLAG_ARRAY_PART: don't care */ + /* DUK_HOBJECT_FLAG_NEWENV: handled below */ + DUK_ASSERT(!DUK_HOBJECT_HAS_EXOTIC_ARRAY(&fun_clos->obj)); + DUK_ASSERT(!DUK_HOBJECT_HAS_EXOTIC_STRINGOBJ(&fun_clos->obj)); + DUK_ASSERT(!DUK_HOBJECT_HAS_EXOTIC_ARGUMENTS(&fun_clos->obj)); + + if (!DUK_HOBJECT_HAS_CONSTRUCTABLE(&fun_clos->obj)) { + /* If the template is not constructable don't add an automatic + * .prototype property. This is the case for e.g. ES2015 object + * literal getters/setters and method definitions. + */ + add_auto_proto = 0; + } + + /* + * Setup environment record properties based on the template and + * its flags. + * + * If DUK_HOBJECT_HAS_NEWENV(fun_temp) is true, the environment + * records represent identifiers "outside" the function; the + * "inner" environment records are created on demand. Otherwise, + * the environment records are those that will be directly used + * (e.g. for declarations). + * + * _Lexenv is always set; _Varenv defaults to _Lexenv if missing, + * so _Varenv is only set if _Lexenv != _Varenv. + * + * This is relatively complex, see doc/identifier-handling.rst. + */ + + if (DUK_HOBJECT_HAS_NEWENV(&fun_clos->obj)) { +#if defined(DUK_USE_FUNC_NAME_PROPERTY) + if (DUK_HOBJECT_HAS_NAMEBINDING(&fun_clos->obj)) { + duk_hobject *proto; + duk_hdecenv *new_env; + + /* + * Named function expression, name needs to be bound + * in an intermediate environment record. The "outer" + * lexical/variable environment will thus be: + * + * a) { funcname: , __prototype: outer_lex_env } + * b) { funcname: , __prototype: } (if outer_lex_env missing) + */ + + if (outer_lex_env) { + proto = outer_lex_env; + } else { + proto = thr->builtins[DUK_BIDX_GLOBAL_ENV]; + } + + /* -> [ ... closure template env ] */ + new_env = duk_hdecenv_alloc(thr, + DUK_HOBJECT_FLAG_EXTENSIBLE | + DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_DECENV)); + DUK_ASSERT(new_env != NULL); + duk_push_hobject(thr, (duk_hobject *) new_env); + + DUK_ASSERT(DUK_HOBJECT_GET_PROTOTYPE(thr->heap, (duk_hobject *) new_env) == NULL); + DUK_HOBJECT_SET_PROTOTYPE(thr->heap, (duk_hobject *) new_env, proto); + DUK_HOBJECT_INCREF_ALLOWNULL(thr, proto); + + DUK_ASSERT(new_env->thread == NULL); /* Closed. */ + DUK_ASSERT(new_env->varmap == NULL); + + /* It's important that duk_xdef_prop() is a 'raw define' so that any + * properties in an ancestor are never an issue (they should never be + * e.g. non-writable, but just in case). + * + * Because template objects are not visible to user code, the case + * where .name is missing shouldn't happen in practice. It it does, + * the name 'undefined' gets bound and maps to the closure (which is + * a bit odd, but safe). + */ + (void) duk_get_prop_stridx_short(thr, -2, DUK_STRIDX_NAME); + /* -> [ ... closure template env funcname ] */ + duk_dup_m4(thr); /* -> [ ... closure template env funcname closure ] */ + duk_xdef_prop(thr, -3, DUK_PROPDESC_FLAGS_NONE); /* -> [ ... closure template env ] */ + /* env[funcname] = closure */ + + /* [ ... closure template env ] */ + + DUK_HCOMPFUNC_SET_LEXENV(thr->heap, fun_clos, (duk_hobject *) new_env); + DUK_HCOMPFUNC_SET_VARENV(thr->heap, fun_clos, (duk_hobject *) new_env); + DUK_HOBJECT_INCREF(thr, (duk_hobject *) new_env); + DUK_HOBJECT_INCREF(thr, (duk_hobject *) new_env); + duk_pop_unsafe(thr); + + /* [ ... closure template ] */ + } + else +#endif /* DUK_USE_FUNC_NAME_PROPERTY */ + { + /* + * Other cases (function declaration, anonymous function expression, + * strict direct eval code). The "outer" environment will be whatever + * the caller gave us. + */ + + DUK_HCOMPFUNC_SET_LEXENV(thr->heap, fun_clos, outer_lex_env); + DUK_HCOMPFUNC_SET_VARENV(thr->heap, fun_clos, outer_lex_env); + DUK_HOBJECT_INCREF(thr, outer_lex_env); + DUK_HOBJECT_INCREF(thr, outer_lex_env); + + /* [ ... closure template ] */ + } + } else { + /* + * Function gets no new environment when called. This is the + * case for global code, indirect eval code, and non-strict + * direct eval code. There is no direct correspondence to the + * E5 specification, as global/eval code is not exposed as a + * function. + */ + + DUK_ASSERT(!DUK_HOBJECT_HAS_NAMEBINDING(&fun_temp->obj)); + + DUK_HCOMPFUNC_SET_LEXENV(thr->heap, fun_clos, outer_lex_env); + DUK_HCOMPFUNC_SET_VARENV(thr->heap, fun_clos, outer_var_env); + DUK_HOBJECT_INCREF(thr, outer_lex_env); /* NULLs not allowed; asserted on entry */ + DUK_HOBJECT_INCREF(thr, outer_var_env); + } + DUK_DDD(DUK_DDDPRINT("closure varenv -> %!ipO, lexenv -> %!ipO", + (duk_heaphdr *) fun_clos->var_env, + (duk_heaphdr *) fun_clos->lex_env)); + + /* Call handling assumes this for all callable closures. */ + DUK_ASSERT(DUK_HCOMPFUNC_GET_LEXENV(thr->heap, fun_clos) != NULL); + DUK_ASSERT(DUK_HCOMPFUNC_GET_VARENV(thr->heap, fun_clos) != NULL); + + /* + * Copy some internal properties directly + * + * The properties will be non-writable and non-enumerable, but + * configurable. + * + * Function templates are bare objects, so inheritance of internal + * Symbols is not an issue here even when using ordinary property + * reads. The function instance created is not bare, so internal + * Symbols must be defined without inheritance checks. + */ + + /* [ ... closure template ] */ + + DUK_DDD(DUK_DDDPRINT("copying properties: closure=%!iT, template=%!iT", + (duk_tval *) duk_get_tval(thr, -2), + (duk_tval *) duk_get_tval(thr, -1))); + + for (i = 0; i < (duk_small_uint_t) (sizeof(duk__closure_copy_proplist) / sizeof(duk_uint16_t)); i++) { + duk_small_int_t stridx = (duk_small_int_t) duk__closure_copy_proplist[i]; + if (duk_xget_owndataprop_stridx_short(thr, -1, stridx)) { + /* [ ... closure template val ] */ + DUK_DDD(DUK_DDDPRINT("copying property, stridx=%ld -> found", (long) stridx)); + duk_xdef_prop_stridx_short(thr, -3, stridx, DUK_PROPDESC_FLAGS_C); + } else { + DUK_DDD(DUK_DDDPRINT("copying property, stridx=%ld -> not found", (long) stridx)); + duk_pop_unsafe(thr); + } + } + + /* + * "length" maps to number of formals (E5 Section 13.2) for function + * declarations/expressions (non-bound functions). Note that 'nargs' + * is NOT necessarily equal to the number of arguments. Use length + * of _Formals; if missing, assume nargs matches .length. + */ + + /* [ ... closure template ] */ + + formals = duk_hobject_get_formals(thr, (duk_hobject *) fun_temp); + if (formals) { + len_value = (duk_uint_t) formals->length; + DUK_DD(DUK_DDPRINT("closure length from _Formals -> %ld", (long) len_value)); + } else { + len_value = fun_temp->nargs; + DUK_DD(DUK_DDPRINT("closure length defaulted from nargs -> %ld", (long) len_value)); + } + + duk_push_uint(thr, len_value); /* [ ... closure template len_value ] */ + duk_xdef_prop_stridx_short(thr, -3, DUK_STRIDX_LENGTH, DUK_PROPDESC_FLAGS_C); + + /* + * "prototype" is, by default, a fresh object with the "constructor" + * property. + * + * Note that this creates a circular reference for every function + * instance (closure) which prevents refcount-based collection of + * function instances. + * + * XXX: Try to avoid creating the default prototype object, because + * many functions are not used as constructors and the default + * prototype is unnecessary. Perhaps it could be created on-demand + * when it is first accessed? + */ + + /* [ ... closure template ] */ + + if (add_auto_proto) { + duk_push_object(thr); /* -> [ ... closure template newobj ] */ + duk_dup_m3(thr); /* -> [ ... closure template newobj closure ] */ + duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_CONSTRUCTOR, DUK_PROPDESC_FLAGS_WC); /* -> [ ... closure template newobj ] */ + duk_compact(thr, -1); /* compact the prototype */ + duk_xdef_prop_stridx_short(thr, -3, DUK_STRIDX_PROTOTYPE, DUK_PROPDESC_FLAGS_W); /* -> [ ... closure template ] */ + } + + /* + * "arguments" and "caller" must be mapped to throwers for strict + * mode and bound functions (E5 Section 15.3.5). + * + * XXX: This is expensive to have for every strict function instance. + * Try to implement as virtual properties or on-demand created properties. + */ + + /* [ ... closure template ] */ + + if (DUK_HOBJECT_HAS_STRICT(&fun_clos->obj)) { + duk_xdef_prop_stridx_thrower(thr, -2, DUK_STRIDX_CALLER); + duk_xdef_prop_stridx_thrower(thr, -2, DUK_STRIDX_LC_ARGUMENTS); + } else { +#if defined(DUK_USE_NONSTD_FUNC_CALLER_PROPERTY) + DUK_DDD(DUK_DDDPRINT("function is non-strict and non-standard 'caller' property in use, add initial 'null' value")); + duk_push_null(thr); + duk_xdef_prop_stridx_short(thr, -3, DUK_STRIDX_CALLER, DUK_PROPDESC_FLAGS_NONE); +#else + DUK_DDD(DUK_DDDPRINT("function is non-strict and non-standard 'caller' property not used")); +#endif + } + + /* + * "name" used to be non-standard but is now defined by ES2015. + * In ES2015/ES2016 the .name property is configurable. + */ + + /* [ ... closure template ] */ + +#if defined(DUK_USE_FUNC_NAME_PROPERTY) + /* XXX: Look for own property only; doesn't matter much because + * templates are bare objects. + */ + if (duk_get_prop_stridx_short(thr, -1, DUK_STRIDX_NAME)) { + /* [ ... closure template name ] */ + DUK_ASSERT(duk_is_string(thr, -1)); + DUK_DD(DUK_DDPRINT("setting function instance name to %!T", duk_get_tval(thr, -1))); + duk_xdef_prop_stridx_short(thr, -3, DUK_STRIDX_NAME, DUK_PROPDESC_FLAGS_C); /* -> [ ... closure template ] */ + } else { + /* Anonymous functions don't have a .name in ES2015, so don't set + * it on the instance either. The instance will then inherit + * it from Function.prototype.name. + */ + DUK_DD(DUK_DDPRINT("not setting function instance .name")); + duk_pop_unsafe(thr); + } +#endif + + /* + * Compact the closure, in most cases no properties will be added later. + * Also, without this the closures end up having unused property slots + * (e.g. in Duktape 0.9.0, 8 slots would be allocated and only 7 used). + * A better future solution would be to allocate the closure directly + * to correct size (and setup the properties directly without going + * through the API). + */ + + duk_compact(thr, -2); + + /* + * Some assertions (E5 Section 13.2). + */ + + DUK_ASSERT(DUK_HOBJECT_GET_CLASS_NUMBER(&fun_clos->obj) == DUK_HOBJECT_CLASS_FUNCTION); + DUK_ASSERT(DUK_HOBJECT_GET_PROTOTYPE(thr->heap, &fun_clos->obj) == thr->builtins[DUK_BIDX_FUNCTION_PROTOTYPE]); + DUK_ASSERT(DUK_HOBJECT_HAS_EXTENSIBLE(&fun_clos->obj)); + DUK_ASSERT(duk_has_prop_stridx(thr, -2, DUK_STRIDX_LENGTH) != 0); + DUK_ASSERT(add_auto_proto == 0 || duk_has_prop_stridx(thr, -2, DUK_STRIDX_PROTOTYPE) != 0); + /* May be missing .name */ + DUK_ASSERT(!DUK_HOBJECT_HAS_STRICT(&fun_clos->obj) || + duk_has_prop_stridx(thr, -2, DUK_STRIDX_CALLER) != 0); + DUK_ASSERT(!DUK_HOBJECT_HAS_STRICT(&fun_clos->obj) || + duk_has_prop_stridx(thr, -2, DUK_STRIDX_LC_ARGUMENTS) != 0); + + /* + * Finish + */ + + /* [ ... closure template ] */ + + DUK_DDD(DUK_DDDPRINT("created function instance: template=%!iT -> closure=%!iT", + (duk_tval *) duk_get_tval(thr, -1), + (duk_tval *) duk_get_tval(thr, -2))); + + duk_pop_unsafe(thr); + + /* [ ... closure ] */ +} + +/* + * Delayed activation environment record initialization (for functions + * with NEWENV). + * + * The non-delayed initialization is handled by duk_handle_call(). + */ + +DUK_LOCAL void duk__preallocate_env_entries(duk_hthread *thr, duk_hobject *varmap, duk_hobject *env) { + duk_uint_fast32_t i; + + for (i = 0; i < (duk_uint_fast32_t) DUK_HOBJECT_GET_ENEXT(varmap); i++) { + duk_hstring *key; + + key = DUK_HOBJECT_E_GET_KEY(thr->heap, varmap, i); + DUK_ASSERT(key != NULL); /* assume keys are compact in _Varmap */ + DUK_ASSERT(!DUK_HOBJECT_E_SLOT_IS_ACCESSOR(thr->heap, varmap, i)); /* assume plain values */ + + /* Predefine as 'undefined' to reserve a property slot. + * This makes the unwind process (where register values + * are copied to the env object) safe against throwing. + * + * XXX: This could be made much faster by creating the + * property table directly. + */ + duk_push_undefined(thr); + DUK_DDD(DUK_DDDPRINT("preallocate env entry for key %!O", key)); + duk_hobject_define_property_internal(thr, env, key, DUK_PROPDESC_FLAGS_WE); + } +} + +/* shared helper */ +DUK_INTERNAL +duk_hobject *duk_create_activation_environment_record(duk_hthread *thr, + duk_hobject *func, + duk_size_t bottom_byteoff) { + duk_hdecenv *env; + duk_hobject *parent; + duk_hcompfunc *f; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(func != NULL); + + DUK_STATS_INC(thr->heap, stats_envrec_create); + + f = (duk_hcompfunc *) func; + parent = DUK_HCOMPFUNC_GET_LEXENV(thr->heap, f); + if (!parent) { + parent = thr->builtins[DUK_BIDX_GLOBAL_ENV]; + } + + env = duk_hdecenv_alloc(thr, + DUK_HOBJECT_FLAG_EXTENSIBLE | + DUK_HOBJECT_CLASS_AS_FLAGS(DUK_HOBJECT_CLASS_DECENV)); + DUK_ASSERT(env != NULL); + duk_push_hobject(thr, (duk_hobject *) env); + + DUK_ASSERT(DUK_HOBJECT_GET_PROTOTYPE(thr->heap, (duk_hobject *) env) == NULL); + DUK_HOBJECT_SET_PROTOTYPE(thr->heap, (duk_hobject *) env, parent); + DUK_HOBJECT_INCREF_ALLOWNULL(thr, parent); /* parent env is the prototype */ + + /* open scope information, for compiled functions only */ + + DUK_ASSERT(env->thread == NULL); + DUK_ASSERT(env->varmap == NULL); + DUK_ASSERT(env->regbase_byteoff == 0); + if (DUK_HOBJECT_IS_COMPFUNC(func)) { + duk_hobject *varmap; + + varmap = duk_hobject_get_varmap(thr, func); + if (varmap != NULL) { + env->varmap = varmap; + DUK_HOBJECT_INCREF(thr, varmap); + env->thread = thr; + DUK_HTHREAD_INCREF(thr, thr); + env->regbase_byteoff = bottom_byteoff; + + /* Preallocate env property table to avoid potential + * for out-of-memory on unwind when the env is closed. + */ + duk__preallocate_env_entries(thr, varmap, (duk_hobject *) env); + } else { + /* If function has no _Varmap, leave the environment closed. */ + DUK_ASSERT(env->thread == NULL); + DUK_ASSERT(env->varmap == NULL); + DUK_ASSERT(env->regbase_byteoff == 0); + } + } + + return (duk_hobject *) env; +} + +DUK_INTERNAL +void duk_js_init_activation_environment_records_delayed(duk_hthread *thr, + duk_activation *act) { + duk_hobject *func; + duk_hobject *env; + + DUK_ASSERT(thr != NULL); + func = DUK_ACT_GET_FUNC(act); + DUK_ASSERT(func != NULL); + DUK_ASSERT(!DUK_HOBJECT_HAS_BOUNDFUNC(func)); /* bound functions are never in act 'func' */ + + /* + * Delayed initialization only occurs for 'NEWENV' functions. + */ + + DUK_ASSERT(DUK_HOBJECT_HAS_NEWENV(func)); + DUK_ASSERT(act->lex_env == NULL); + DUK_ASSERT(act->var_env == NULL); + + DUK_STATS_INC(thr->heap, stats_envrec_delayedcreate); + + env = duk_create_activation_environment_record(thr, func, act->bottom_byteoff); + DUK_ASSERT(env != NULL); + /* 'act' is a stable pointer, so still OK. */ + + DUK_DDD(DUK_DDDPRINT("created delayed fresh env: %!ipO", (duk_heaphdr *) env)); +#if defined(DUK_USE_DEBUG_LEVEL) && (DUK_USE_DEBUG_LEVEL >= 2) + { + duk_hobject *p = env; + while (p) { + DUK_DDD(DUK_DDDPRINT(" -> %!ipO", (duk_heaphdr *) p)); + p = DUK_HOBJECT_GET_PROTOTYPE(thr->heap, p); + } + } +#endif + + act->lex_env = env; + act->var_env = env; + DUK_HOBJECT_INCREF(thr, env); /* XXX: incref by count (here 2 times) */ + DUK_HOBJECT_INCREF(thr, env); + + duk_pop_unsafe(thr); +} + +/* + * Closing environment records. + * + * The environment record MUST be closed with the thread where its activation + * is; i.e. if 'env' is open, 'thr' must match env->thread, and the regbase + * and varmap must still be valid. On entry, 'env' must be reachable. + */ + +DUK_INTERNAL void duk_js_close_environment_record(duk_hthread *thr, duk_hobject *env) { + duk_uint_fast32_t i; + duk_hobject *varmap; + duk_hstring *key; + duk_tval *tv; + duk_uint_t regnum; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(env != NULL); + + if (DUK_UNLIKELY(!DUK_HOBJECT_IS_DECENV(env))) { + DUK_DDD(DUK_DDDPRINT("env not a declarative record: %!iO", (duk_heaphdr *) env)); + return; + } + + varmap = ((duk_hdecenv *) env)->varmap; + if (varmap == NULL) { + DUK_DDD(DUK_DDDPRINT("env already closed: %!iO", (duk_heaphdr *) env)); + + return; + } + DUK_ASSERT(((duk_hdecenv *) env)->thread != NULL); + DUK_HDECENV_ASSERT_VALID((duk_hdecenv *) env); + + DUK_DDD(DUK_DDDPRINT("closing env: %!iO", (duk_heaphdr *) env)); + DUK_DDD(DUK_DDDPRINT("varmap: %!O", (duk_heaphdr *) varmap)); + + /* Env must be closed in the same thread as where it runs. */ + DUK_ASSERT(((duk_hdecenv *) env)->thread == thr); + + /* XXX: additional conditions when to close variables? we don't want to do it + * unless the environment may have "escaped" (referenced in a function closure). + * With delayed environments, the existence is probably good enough of a check. + */ + + /* Note: we rely on the _Varmap having a bunch of nice properties, like: + * - being compacted and unmodified during this process + * - not containing an array part + * - having correct value types + */ + + DUK_DDD(DUK_DDDPRINT("copying bound register values, %ld bound regs", (long) DUK_HOBJECT_GET_ENEXT(varmap))); + + /* Copy over current variable values from value stack to the + * environment record. The scope object is empty but may + * inherit from another scope which has conflicting names. + */ + + /* XXX: Do this using a once allocated entry area, no side effects. + * Hash part would need special treatment however (maybe copy, and + * then realloc with hash part if large enough). + */ + for (i = 0; i < (duk_uint_fast32_t) DUK_HOBJECT_GET_ENEXT(varmap); i++) { + duk_size_t regbase_byteoff; + + key = DUK_HOBJECT_E_GET_KEY(thr->heap, varmap, i); + DUK_ASSERT(key != NULL); /* assume keys are compact in _Varmap */ + DUK_ASSERT(!DUK_HOBJECT_E_SLOT_IS_ACCESSOR(thr->heap, varmap, i)); /* assume plain values */ + + tv = DUK_HOBJECT_E_GET_VALUE_TVAL_PTR(thr->heap, varmap, i); + DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv)); + DUK_ASSERT(DUK_TVAL_GET_NUMBER(tv) <= (duk_double_t) DUK_UINT32_MAX); /* limits */ +#if defined(DUK_USE_FASTINT) + DUK_ASSERT(DUK_TVAL_IS_FASTINT(tv)); + regnum = (duk_uint_t) DUK_TVAL_GET_FASTINT_U32(tv); +#else + regnum = (duk_uint_t) DUK_TVAL_GET_NUMBER(tv); +#endif + + regbase_byteoff = ((duk_hdecenv *) env)->regbase_byteoff; + DUK_ASSERT((duk_uint8_t *) thr->valstack + regbase_byteoff + sizeof(duk_tval) * regnum >= (duk_uint8_t *) thr->valstack); + DUK_ASSERT((duk_uint8_t *) thr->valstack + regbase_byteoff + sizeof(duk_tval) * regnum < (duk_uint8_t *) thr->valstack_top); + + /* Write register value into env as named properties. + * If property already exists, overwrites silently. + * Property is writable, but not deletable (not configurable + * in terms of property attributes). + * + * This property write must not throw because we're unwinding + * and unwind code is not allowed to throw at present. The + * call itself has no such guarantees, but we've preallocated + * entries for each property when the env was created, so no + * out-of-memory error should be possible. If this guarantee + * is not provided, problems like GH-476 may happen. + */ + duk_push_tval(thr, (duk_tval *) (void *) ((duk_uint8_t *) thr->valstack + regbase_byteoff + sizeof(duk_tval) * regnum)); + DUK_DDD(DUK_DDDPRINT("closing identifier %!O -> reg %ld, value %!T", + (duk_heaphdr *) key, + (long) regnum, + (duk_tval *) duk_get_tval(thr, -1))); + duk_hobject_define_property_internal(thr, env, key, DUK_PROPDESC_FLAGS_WE); + } + + /* NULL atomically to avoid inconsistent state + side effects. */ + DUK_HOBJECT_DECREF_NORZ(thr, ((duk_hdecenv *) env)->thread); + DUK_HOBJECT_DECREF_NORZ(thr, ((duk_hdecenv *) env)->varmap); + ((duk_hdecenv *) env)->thread = NULL; + ((duk_hdecenv *) env)->varmap = NULL; + + DUK_DDD(DUK_DDDPRINT("env after closing: %!O", (duk_heaphdr *) env)); +} + +/* + * GETIDREF: a GetIdentifierReference-like helper. + * + * Provides a parent traversing lookup and a single level lookup + * (for HasBinding). + * + * Instead of returning the value, returns a bunch of values allowing + * the caller to read, write, or delete the binding. Value pointers + * are duk_tval pointers which can be mutated directly as long as + * refcounts are properly updated. Note that any operation which may + * reallocate valstacks or compact objects may invalidate the returned + * duk_tval (but not object) pointers, so caller must be very careful. + * + * If starting environment record 'env' is given, 'act' is ignored. + * However, if 'env' is NULL, the caller may identify, in 'act', an + * activation which hasn't had its declarative environment initialized + * yet. The activation registers are then looked up, and its parent + * traversed normally. + * + * The 'out' structure values are only valid if the function returns + * success (non-zero). + */ + +/* lookup name from an open declarative record's registers */ +DUK_LOCAL +duk_bool_t duk__getid_open_decl_env_regs(duk_hthread *thr, + duk_hstring *name, + duk_hdecenv *env, + duk__id_lookup_result *out) { + duk_tval *tv; + duk_size_t reg_rel; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(name != NULL); + DUK_ASSERT(env != NULL); + DUK_ASSERT(out != NULL); + + DUK_ASSERT(DUK_HOBJECT_IS_DECENV((duk_hobject *) env)); + DUK_HDECENV_ASSERT_VALID(env); + + if (env->thread == NULL) { + /* already closed */ + return 0; + } + DUK_ASSERT(env->varmap != NULL); + + tv = duk_hobject_find_entry_tval_ptr(thr->heap, env->varmap, name); + if (DUK_UNLIKELY(tv == NULL)) { + return 0; + } + + DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv)); + DUK_ASSERT(DUK_TVAL_GET_NUMBER(tv) <= (duk_double_t) DUK_UINT32_MAX); /* limits */ +#if defined(DUK_USE_FASTINT) + DUK_ASSERT(DUK_TVAL_IS_FASTINT(tv)); + reg_rel = (duk_size_t) DUK_TVAL_GET_FASTINT_U32(tv); +#else + reg_rel = (duk_size_t) DUK_TVAL_GET_NUMBER(tv); +#endif + DUK_ASSERT_DISABLE(reg_rel >= 0); /* unsigned */ + + tv = (duk_tval *) (void *) ((duk_uint8_t *) env->thread->valstack + env->regbase_byteoff + sizeof(duk_tval) * reg_rel); + DUK_ASSERT(tv >= env->thread->valstack && tv < env->thread->valstack_end); /* XXX: more accurate? */ + + out->value = tv; + out->attrs = DUK_PROPDESC_FLAGS_W; /* registers are mutable, non-deletable */ + out->env = (duk_hobject *) env; + out->holder = NULL; + out->has_this = 0; + return 1; +} + +/* lookup name from current activation record's functions' registers */ +DUK_LOCAL +duk_bool_t duk__getid_activation_regs(duk_hthread *thr, + duk_hstring *name, + duk_activation *act, + duk__id_lookup_result *out) { + duk_tval *tv; + duk_hobject *func; + duk_hobject *varmap; + duk_size_t reg_rel; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(name != NULL); + DUK_ASSERT(act != NULL); + DUK_ASSERT(out != NULL); + + func = DUK_ACT_GET_FUNC(act); + DUK_ASSERT(func != NULL); + DUK_ASSERT(DUK_HOBJECT_HAS_NEWENV(func)); + + if (!DUK_HOBJECT_IS_COMPFUNC(func)) { + return 0; + } + + /* XXX: move varmap to duk_hcompfunc struct field? */ + varmap = duk_hobject_get_varmap(thr, func); + if (!varmap) { + return 0; + } + + tv = duk_hobject_find_entry_tval_ptr(thr->heap, varmap, name); + if (!tv) { + return 0; + } + DUK_ASSERT(DUK_TVAL_IS_NUMBER(tv)); + reg_rel = (duk_size_t) DUK_TVAL_GET_NUMBER(tv); + DUK_ASSERT_DISABLE(reg_rel >= 0); + DUK_ASSERT(reg_rel < ((duk_hcompfunc *) func)->nregs); + + tv = (duk_tval *) (void *) ((duk_uint8_t *) thr->valstack + act->bottom_byteoff); + tv += reg_rel; + + out->value = tv; + out->attrs = DUK_PROPDESC_FLAGS_W; /* registers are mutable, non-deletable */ + out->env = NULL; + out->holder = NULL; + out->has_this = 0; + return 1; +} + +DUK_LOCAL +duk_bool_t duk__get_identifier_reference(duk_hthread *thr, + duk_hobject *env, + duk_hstring *name, + duk_activation *act, + duk_bool_t parents, + duk__id_lookup_result *out) { + duk_tval *tv; + duk_uint_t sanity; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(env != NULL || act != NULL); + DUK_ASSERT(name != NULL); + DUK_ASSERT(out != NULL); + + DUK_ASSERT(!env || DUK_HOBJECT_IS_ENV(env)); + DUK_ASSERT(!env || !DUK_HOBJECT_HAS_ARRAY_PART(env)); + + /* + * Conceptually, we look for the identifier binding by starting from + * 'env' and following to chain of environment records (represented + * by the prototype chain). + * + * If 'env' is NULL, the current activation does not yet have an + * allocated declarative environment record; this should be treated + * exactly as if the environment record existed but had no bindings + * other than register bindings. + * + * Note: we assume that with the DUK_HOBJECT_FLAG_NEWENV cleared + * the environment will always be initialized immediately; hence + * a NULL 'env' should only happen with the flag set. This is the + * case for: (1) function calls, and (2) strict, direct eval calls. + */ + + if (env == NULL && act != NULL) { + duk_hobject *func; + duk_hcompfunc *f; + + DUK_DDD(DUK_DDDPRINT("duk__get_identifier_reference: env is NULL, activation is non-NULL -> " + "delayed env case, look up activation regs first")); + + /* + * Try registers + */ + + if (duk__getid_activation_regs(thr, name, act, out)) { + DUK_DDD(DUK_DDDPRINT("duk__get_identifier_reference successful: " + "name=%!O -> value=%!T, attrs=%ld, has_this=%ld, env=%!O, holder=%!O " + "(found from register bindings when env=NULL)", + (duk_heaphdr *) name, (duk_tval *) out->value, + (long) out->attrs, (long) out->has_this, + (duk_heaphdr *) out->env, (duk_heaphdr *) out->holder)); + return 1; + } + + DUK_DDD(DUK_DDDPRINT("not found in current activation regs")); + + /* + * Not found in registers, proceed to the parent record. + * Here we need to determine what the parent would be, + * if 'env' was not NULL (i.e. same logic as when initializing + * the record). + * + * Note that environment initialization is only deferred when + * DUK_HOBJECT_HAS_NEWENV is set, and this only happens for: + * - Function code + * - Strict eval code + * + * We only need to check _Lexenv here; _Varenv exists only if it + * differs from _Lexenv (and thus _Lexenv will also be present). + */ + + if (!parents) { + DUK_DDD(DUK_DDDPRINT("duk__get_identifier_reference failed, no parent traversal " + "(not found from register bindings when env=NULL)")); + goto fail_not_found; + } + + func = DUK_ACT_GET_FUNC(act); + DUK_ASSERT(func != NULL); + DUK_ASSERT(DUK_HOBJECT_HAS_NEWENV(func)); + f = (duk_hcompfunc *) func; + + env = DUK_HCOMPFUNC_GET_LEXENV(thr->heap, f); + if (!env) { + env = thr->builtins[DUK_BIDX_GLOBAL_ENV]; + } + + DUK_DDD(DUK_DDDPRINT("continue lookup from env: %!iO", + (duk_heaphdr *) env)); + } + + /* + * Prototype walking starting from 'env'. + * + * ('act' is not needed anywhere here.) + */ + + sanity = DUK_HOBJECT_PROTOTYPE_CHAIN_SANITY; + while (env != NULL) { + duk_small_uint_t cl; + duk_uint_t attrs; + + DUK_DDD(DUK_DDDPRINT("duk__get_identifier_reference, name=%!O, considering env=%p -> %!iO", + (duk_heaphdr *) name, + (void *) env, + (duk_heaphdr *) env)); + + DUK_ASSERT(env != NULL); + DUK_ASSERT(DUK_HOBJECT_IS_ENV(env)); + DUK_ASSERT(!DUK_HOBJECT_HAS_ARRAY_PART(env)); + + cl = DUK_HOBJECT_GET_CLASS_NUMBER(env); + DUK_ASSERT(cl == DUK_HOBJECT_CLASS_OBJENV || cl == DUK_HOBJECT_CLASS_DECENV); + if (cl == DUK_HOBJECT_CLASS_DECENV) { + /* + * Declarative environment record. + * + * Identifiers can never be stored in ancestors and are + * always plain values, so we can use an internal helper + * and access the value directly with an duk_tval ptr. + * + * A closed environment is only indicated by it missing + * the "book-keeping" properties required for accessing + * register-bound variables. + */ + + DUK_HDECENV_ASSERT_VALID((duk_hdecenv *) env); + if (duk__getid_open_decl_env_regs(thr, name, (duk_hdecenv *) env, out)) { + DUK_DDD(DUK_DDDPRINT("duk__get_identifier_reference successful: " + "name=%!O -> value=%!T, attrs=%ld, has_this=%ld, env=%!O, holder=%!O " + "(declarative environment record, scope open, found in regs)", + (duk_heaphdr *) name, (duk_tval *) out->value, + (long) out->attrs, (long) out->has_this, + (duk_heaphdr *) out->env, (duk_heaphdr *) out->holder)); + return 1; + } + + tv = duk_hobject_find_entry_tval_ptr_and_attrs(thr->heap, env, name, &attrs); + if (tv) { + out->value = tv; + out->attrs = attrs; + out->env = env; + out->holder = env; + out->has_this = 0; + + DUK_DDD(DUK_DDDPRINT("duk__get_identifier_reference successful: " + "name=%!O -> value=%!T, attrs=%ld, has_this=%ld, env=%!O, holder=%!O " + "(declarative environment record, found in properties)", + (duk_heaphdr *) name, (duk_tval *) out->value, + (long) out->attrs, (long) out->has_this, + (duk_heaphdr *) out->env, (duk_heaphdr *) out->holder)); + return 1; + } + } else { + /* + * Object environment record. + * + * Binding (target) object is an external, uncontrolled object. + * Identifier may be bound in an ancestor property, and may be + * an accessor. Target can also be a Proxy which we must support + * here. + */ + + /* XXX: we could save space by using _Target OR _This. If _Target, assume + * this binding is undefined. If _This, assumes this binding is _This, and + * target is also _This. One property would then be enough. + */ + + duk_hobject *target; + duk_bool_t found; + + DUK_ASSERT(cl == DUK_HOBJECT_CLASS_OBJENV); + DUK_HOBJENV_ASSERT_VALID((duk_hobjenv *) env); + + target = ((duk_hobjenv *) env)->target; + DUK_ASSERT(target != NULL); + + /* Target may be a Proxy or property may be an accessor, so we must + * use an actual, Proxy-aware hasprop check here. + * + * out->holder is NOT set to the actual duk_hobject where the + * property is found, but rather the object binding target object. + */ + +#if defined(DUK_USE_ES6_PROXY) + if (DUK_UNLIKELY(DUK_HOBJECT_IS_PROXY(target))) { + duk_tval tv_name; + duk_tval tv_target_tmp; + + DUK_ASSERT(name != NULL); + DUK_TVAL_SET_STRING(&tv_name, name); + DUK_TVAL_SET_OBJECT(&tv_target_tmp, target); + + found = duk_hobject_hasprop(thr, &tv_target_tmp, &tv_name); + } else +#endif /* DUK_USE_ES6_PROXY */ + { + /* XXX: duk_hobject_hasprop() would be correct for + * non-Proxy objects too, but it is about ~20-25% + * slower at present so separate code paths for + * Proxy and non-Proxy now. + */ + found = duk_hobject_hasprop_raw(thr, target, name); + } + + if (found) { + out->value = NULL; /* can't get value, may be accessor */ + out->attrs = 0; /* irrelevant when out->value == NULL */ + out->env = env; + out->holder = target; + out->has_this = ((duk_hobjenv *) env)->has_this; + + DUK_DDD(DUK_DDDPRINT("duk__get_identifier_reference successful: " + "name=%!O -> value=%!T, attrs=%ld, has_this=%ld, env=%!O, holder=%!O " + "(object environment record)", + (duk_heaphdr *) name, (duk_tval *) out->value, + (long) out->attrs, (long) out->has_this, + (duk_heaphdr *) out->env, (duk_heaphdr *) out->holder)); + return 1; + } + } + + if (!parents) { + DUK_DDD(DUK_DDDPRINT("duk__get_identifier_reference failed, no parent traversal " + "(not found from first traversed env)")); + goto fail_not_found; + } + + if (DUK_UNLIKELY(sanity-- == 0)) { + DUK_ERROR_RANGE(thr, DUK_STR_PROTOTYPE_CHAIN_LIMIT); + DUK_WO_NORETURN(return 0;); + } + env = DUK_HOBJECT_GET_PROTOTYPE(thr->heap, env); + } + + /* + * Not found (even in global object) + */ + + fail_not_found: + return 0; +} + +/* + * HASVAR: check identifier binding from a given environment record + * without traversing its parents. + * + * This primitive is not exposed to user code as such, but is used + * internally for e.g. declaration binding instantiation. + * + * See E5 Sections: + * 10.2.1.1.1 HasBinding(N) + * 10.2.1.2.1 HasBinding(N) + * + * Note: strictness has no bearing on this check. Hence we don't take + * a 'strict' parameter. + */ + +#if 0 /*unused*/ +DUK_INTERNAL +duk_bool_t duk_js_hasvar_envrec(duk_hthread *thr, + duk_hobject *env, + duk_hstring *name) { + duk__id_lookup_result ref; + duk_bool_t parents; + + DUK_DDD(DUK_DDDPRINT("hasvar: thr=%p, env=%p, name=%!O " + "(env -> %!dO)", + (void *) thr, (void *) env, (duk_heaphdr *) name, + (duk_heaphdr *) env)); + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(env != NULL); + DUK_ASSERT(name != NULL); + + DUK_ASSERT_REFCOUNT_NONZERO_HEAPHDR(env); + DUK_ASSERT_REFCOUNT_NONZERO_HEAPHDR(name); + + DUK_ASSERT(DUK_HOBJECT_IS_ENV(env)); + DUK_ASSERT(!DUK_HOBJECT_HAS_ARRAY_PART(env)); + + /* lookup results is ignored */ + parents = 0; + return duk__get_identifier_reference(thr, env, name, NULL, parents, &ref); +} +#endif + +/* + * GETVAR + * + * See E5 Sections: + * 11.1.2 Identifier Reference + * 10.3.1 Identifier Resolution + * 11.13.1 Simple Assignment [example of where the Reference is GetValue'd] + * 8.7.1 GetValue (V) + * 8.12.1 [[GetOwnProperty]] (P) + * 8.12.2 [[GetProperty]] (P) + * 8.12.3 [[Get]] (P) + * + * If 'throw' is true, always leaves two values on top of stack: [val this]. + * + * If 'throw' is false, returns 0 if identifier cannot be resolved, and the + * stack will be unaffected in this case. If identifier is resolved, returns + * 1 and leaves [val this] on top of stack. + * + * Note: the 'strict' flag of a reference returned by GetIdentifierReference + * is ignored by GetValue. Hence we don't take a 'strict' parameter. + * + * The 'throw' flag is needed for implementing 'typeof' for an unreferenced + * identifier. An unreference identifier in other contexts generates a + * ReferenceError. + */ + +DUK_LOCAL +duk_bool_t duk__getvar_helper(duk_hthread *thr, + duk_hobject *env, + duk_activation *act, + duk_hstring *name, + duk_bool_t throw_flag) { + duk__id_lookup_result ref; + duk_tval tv_tmp_obj; + duk_tval tv_tmp_key; + duk_bool_t parents; + + DUK_DDD(DUK_DDDPRINT("getvar: thr=%p, env=%p, act=%p, name=%!O " + "(env -> %!dO)", + (void *) thr, (void *) env, (void *) act, + (duk_heaphdr *) name, (duk_heaphdr *) env)); + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(name != NULL); + /* env and act may be NULL */ + + DUK_STATS_INC(thr->heap, stats_getvar_all); + + DUK_ASSERT_REFCOUNT_NONZERO_HEAPHDR(env); + DUK_ASSERT_REFCOUNT_NONZERO_HEAPHDR(name); + + parents = 1; /* follow parent chain */ + if (duk__get_identifier_reference(thr, env, name, act, parents, &ref)) { + if (ref.value) { + duk_push_tval(thr, ref.value); + duk_push_undefined(thr); + } else { + DUK_ASSERT(ref.holder != NULL); + + /* ref.holder is safe across the getprop call (even + * with side effects) because 'env' is reachable and + * ref.holder is a direct heap pointer. + */ + + DUK_TVAL_SET_OBJECT(&tv_tmp_obj, ref.holder); + DUK_TVAL_SET_STRING(&tv_tmp_key, name); + (void) duk_hobject_getprop(thr, &tv_tmp_obj, &tv_tmp_key); /* [value] */ + + if (ref.has_this) { + duk_push_hobject(thr, ref.holder); + } else { + duk_push_undefined(thr); + } + + /* [value this] */ + } + + return 1; + } else { + if (throw_flag) { + DUK_ERROR_FMT1(thr, DUK_ERR_REFERENCE_ERROR, + "identifier '%s' undefined", + (const char *) DUK_HSTRING_GET_DATA(name)); + DUK_WO_NORETURN(return 0;); + } + + return 0; + } +} + +DUK_INTERNAL +duk_bool_t duk_js_getvar_envrec(duk_hthread *thr, + duk_hobject *env, + duk_hstring *name, + duk_bool_t throw_flag) { + return duk__getvar_helper(thr, env, NULL, name, throw_flag); +} + +DUK_INTERNAL +duk_bool_t duk_js_getvar_activation(duk_hthread *thr, + duk_activation *act, + duk_hstring *name, + duk_bool_t throw_flag) { + DUK_ASSERT(act != NULL); + return duk__getvar_helper(thr, act->lex_env, act, name, throw_flag); +} + +/* + * PUTVAR + * + * See E5 Sections: + * 11.1.2 Identifier Reference + * 10.3.1 Identifier Resolution + * 11.13.1 Simple Assignment [example of where the Reference is PutValue'd] + * 8.7.2 PutValue (V,W) [see especially step 3.b, undefined -> automatic global in non-strict mode] + * 8.12.4 [[CanPut]] (P) + * 8.12.5 [[Put]] (P) + * + * Note: may invalidate any valstack (or object) duk_tval pointers because + * putting a value may reallocate any object or any valstack. Caller beware. + */ + +DUK_LOCAL +void duk__putvar_helper(duk_hthread *thr, + duk_hobject *env, + duk_activation *act, + duk_hstring *name, + duk_tval *val, + duk_bool_t strict) { + duk__id_lookup_result ref; + duk_tval tv_tmp_obj; + duk_tval tv_tmp_key; + duk_bool_t parents; + + DUK_STATS_INC(thr->heap, stats_putvar_all); + + DUK_DDD(DUK_DDDPRINT("putvar: thr=%p, env=%p, act=%p, name=%!O, val=%p, strict=%ld " + "(env -> %!dO, val -> %!T)", + (void *) thr, (void *) env, (void *) act, + (duk_heaphdr *) name, (void *) val, (long) strict, + (duk_heaphdr *) env, (duk_tval *) val)); + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(name != NULL); + DUK_ASSERT(val != NULL); + /* env and act may be NULL */ + + DUK_ASSERT_REFCOUNT_NONZERO_HEAPHDR(env); + DUK_ASSERT_REFCOUNT_NONZERO_HEAPHDR(name); + DUK_ASSERT_REFCOUNT_NONZERO_TVAL(val); + + /* + * In strict mode E5 protects 'eval' and 'arguments' from being + * assigned to (or even declared anywhere). Attempt to do so + * should result in a compile time SyntaxError. See the internal + * design documentation for details. + * + * Thus, we should never come here, run-time, for strict code, + * and name 'eval' or 'arguments'. + */ + + DUK_ASSERT(!strict || + (name != DUK_HTHREAD_STRING_EVAL(thr) && + name != DUK_HTHREAD_STRING_LC_ARGUMENTS(thr))); + + /* + * Lookup variable and update in-place if found. + */ + + parents = 1; /* follow parent chain */ + + if (duk__get_identifier_reference(thr, env, name, act, parents, &ref)) { + if (ref.value && (ref.attrs & DUK_PROPDESC_FLAG_WRITABLE)) { + /* Update duk_tval in-place if pointer provided and the + * property is writable. If the property is not writable + * (immutable binding), use duk_hobject_putprop() which + * will respect mutability. + */ + duk_tval *tv_val; + + tv_val = ref.value; + DUK_ASSERT(tv_val != NULL); + DUK_TVAL_SET_TVAL_UPDREF(thr, tv_val, val); /* side effects */ + + /* ref.value invalidated here */ + } else { + DUK_ASSERT(ref.holder != NULL); + + DUK_TVAL_SET_OBJECT(&tv_tmp_obj, ref.holder); + DUK_TVAL_SET_STRING(&tv_tmp_key, name); + (void) duk_hobject_putprop(thr, &tv_tmp_obj, &tv_tmp_key, val, strict); + + /* ref.value invalidated here */ + } + + return; + } + + /* + * Not found: write to global object (non-strict) or ReferenceError + * (strict); see E5 Section 8.7.2, step 3. + */ + + if (strict) { + DUK_DDD(DUK_DDDPRINT("identifier binding not found, strict => reference error")); + DUK_ERROR_FMT1(thr, DUK_ERR_REFERENCE_ERROR, + "identifier '%s' undefined", + (const char *) DUK_HSTRING_GET_DATA(name)); + DUK_WO_NORETURN(return;); + } + + DUK_DDD(DUK_DDDPRINT("identifier binding not found, not strict => set to global")); + + DUK_TVAL_SET_OBJECT(&tv_tmp_obj, thr->builtins[DUK_BIDX_GLOBAL]); + DUK_TVAL_SET_STRING(&tv_tmp_key, name); + (void) duk_hobject_putprop(thr, &tv_tmp_obj, &tv_tmp_key, val, 0); /* 0 = no throw */ + + /* NB: 'val' may be invalidated here because put_value may realloc valstack, + * caller beware. + */ +} + +DUK_INTERNAL +void duk_js_putvar_envrec(duk_hthread *thr, + duk_hobject *env, + duk_hstring *name, + duk_tval *val, + duk_bool_t strict) { + duk__putvar_helper(thr, env, NULL, name, val, strict); +} + +DUK_INTERNAL +void duk_js_putvar_activation(duk_hthread *thr, + duk_activation *act, + duk_hstring *name, + duk_tval *val, + duk_bool_t strict) { + DUK_ASSERT(act != NULL); + duk__putvar_helper(thr, act->lex_env, act, name, val, strict); +} + +/* + * DELVAR + * + * See E5 Sections: + * 11.4.1 The delete operator + * 10.2.1.1.5 DeleteBinding (N) [declarative environment record] + * 10.2.1.2.5 DeleteBinding (N) [object environment record] + * + * Variable bindings established inside eval() are deletable (configurable), + * other bindings are not, including variables declared in global level. + * Registers are always non-deletable, and the deletion of other bindings + * is controlled by the configurable flag. + * + * For strict mode code, the 'delete' operator should fail with a compile + * time SyntaxError if applied to identifiers. Hence, no strict mode + * run-time deletion of identifiers should ever happen. This function + * should never be called from strict mode code! + */ + +DUK_LOCAL +duk_bool_t duk__delvar_helper(duk_hthread *thr, + duk_hobject *env, + duk_activation *act, + duk_hstring *name) { + duk__id_lookup_result ref; + duk_bool_t parents; + + DUK_DDD(DUK_DDDPRINT("delvar: thr=%p, env=%p, act=%p, name=%!O " + "(env -> %!dO)", + (void *) thr, (void *) env, (void *) act, + (duk_heaphdr *) name, (duk_heaphdr *) env)); + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(name != NULL); + /* env and act may be NULL */ + + DUK_ASSERT_REFCOUNT_NONZERO_HEAPHDR(name); + + parents = 1; /* follow parent chain */ + + if (duk__get_identifier_reference(thr, env, name, act, parents, &ref)) { + if (ref.value && !(ref.attrs & DUK_PROPDESC_FLAG_CONFIGURABLE)) { + /* Identifier found in registers (always non-deletable) + * or declarative environment record and non-configurable. + */ + return 0; + } + DUK_ASSERT(ref.holder != NULL); + + return duk_hobject_delprop_raw(thr, ref.holder, name, 0); + } + + /* + * Not found (even in global object). + * + * In non-strict mode this is a silent SUCCESS (!), see E5 Section 11.4.1, + * step 3.b. In strict mode this case is a compile time SyntaxError so + * we should not come here. + */ + + DUK_DDD(DUK_DDDPRINT("identifier to be deleted not found: name=%!O " + "(treated as silent success)", + (duk_heaphdr *) name)); + return 1; +} + +#if 0 /*unused*/ +DUK_INTERNAL +duk_bool_t duk_js_delvar_envrec(duk_hthread *thr, + duk_hobject *env, + duk_hstring *name) { + return duk__delvar_helper(thr, env, NULL, name); +} +#endif + +DUK_INTERNAL +duk_bool_t duk_js_delvar_activation(duk_hthread *thr, + duk_activation *act, + duk_hstring *name) { + DUK_ASSERT(act != NULL); + return duk__delvar_helper(thr, act->lex_env, act, name); +} + +/* + * DECLVAR + * + * See E5 Sections: + * 10.4.3 Entering Function Code + * 10.5 Declaration Binding Instantion + * 12.2 Variable Statement + * 11.1.2 Identifier Reference + * 10.3.1 Identifier Resolution + * + * Variable declaration behavior is mainly discussed in Section 10.5, + * and is not discussed in the execution semantics (Sections 11-13). + * + * Conceptually declarations happen when code (global, eval, function) + * is entered, before any user code is executed. In practice, register- + * bound identifiers are 'declared' automatically (by virtue of being + * allocated to registers with the initial value 'undefined'). Other + * identifiers are declared in the function prologue with this primitive. + * + * Since non-register bindings eventually back to an internal object's + * properties, the 'prop_flags' argument is used to specify binding + * type: + * + * - Immutable binding: set DUK_PROPDESC_FLAG_WRITABLE to false + * - Non-deletable binding: set DUK_PROPDESC_FLAG_CONFIGURABLE to false + * - The flag DUK_PROPDESC_FLAG_ENUMERABLE should be set, although it + * doesn't really matter for internal objects + * + * All bindings are non-deletable mutable bindings except: + * + * - Declarations in eval code (mutable, deletable) + * - 'arguments' binding in strict function code (immutable) + * - Function name binding of a function expression (immutable) + * + * Declarations may go to declarative environment records (always + * so for functions), but may also go to object environment records + * (e.g. global code). The global object environment has special + * behavior when re-declaring a function (but not a variable); see + * E5.1 specification, Section 10.5, step 5.e. + * + * Declarations always go to the 'top-most' environment record, i.e. + * we never check the record chain. It's not an error even if a + * property (even an immutable or non-deletable one) of the same name + * already exists. + * + * If a declared variable already exists, its value needs to be updated + * (if possible). Returns 1 if a PUTVAR needs to be done by the caller; + * otherwise returns 0. + */ + +DUK_LOCAL +duk_bool_t duk__declvar_helper(duk_hthread *thr, + duk_hobject *env, + duk_hstring *name, + duk_tval *val, + duk_small_uint_t prop_flags, + duk_bool_t is_func_decl) { + duk_hobject *holder; + duk_bool_t parents; + duk__id_lookup_result ref; + duk_tval *tv; + + DUK_DDD(DUK_DDDPRINT("declvar: thr=%p, env=%p, name=%!O, val=%!T, prop_flags=0x%08lx, is_func_decl=%ld " + "(env -> %!iO)", + (void *) thr, (void *) env, (duk_heaphdr *) name, + (duk_tval *) val, (unsigned long) prop_flags, + (unsigned int) is_func_decl, (duk_heaphdr *) env)); + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(env != NULL); + DUK_ASSERT(name != NULL); + DUK_ASSERT(val != NULL); + + /* Note: in strict mode the compiler should reject explicit + * declaration of 'eval' or 'arguments'. However, internal + * bytecode may declare 'arguments' in the function prologue. + * We don't bother checking (or asserting) for these now. + */ + + /* Note: val is a stable duk_tval pointer. The caller makes + * a value copy into its stack frame, so 'tv_val' is not subject + * to side effects here. + */ + + /* + * Check whether already declared. + * + * We need to check whether the binding exists in the environment + * without walking its parents. However, we still need to check + * register-bound identifiers and the prototype chain of an object + * environment target object. + */ + + parents = 0; /* just check 'env' */ + if (duk__get_identifier_reference(thr, env, name, NULL, parents, &ref)) { + duk_int_t e_idx; + duk_int_t h_idx; + duk_small_uint_t flags; + + /* + * Variable already declared, ignore re-declaration. + * The only exception is the updated behavior of E5.1 for + * global function declarations, E5.1 Section 10.5, step 5.e. + * This behavior does not apply to global variable declarations. + */ + + if (!(is_func_decl && env == thr->builtins[DUK_BIDX_GLOBAL_ENV])) { + DUK_DDD(DUK_DDDPRINT("re-declare a binding, ignoring")); + return 1; /* 1 -> needs a PUTVAR */ + } + + /* + * Special behavior in E5.1. + * + * Note that even though parents == 0, the conflicting property + * may be an inherited property (currently our global object's + * prototype is Object.prototype). Step 5.e first operates on + * the existing property (which is potentially in an ancestor) + * and then defines a new property in the global object (and + * never modifies the ancestor). + * + * Also note that this logic would become even more complicated + * if the conflicting property might be a virtual one. Object + * prototype has no virtual properties, though. + * + * XXX: this is now very awkward, rework. + */ + + DUK_DDD(DUK_DDDPRINT("re-declare a function binding in global object, " + "updated E5.1 processing")); + + DUK_ASSERT(ref.holder != NULL); + holder = ref.holder; + + /* holder will be set to the target object, not the actual object + * where the property was found (see duk__get_identifier_reference()). + */ + DUK_ASSERT(DUK_HOBJECT_GET_CLASS_NUMBER(holder) == DUK_HOBJECT_CLASS_GLOBAL); + DUK_ASSERT(!DUK_HOBJECT_HAS_EXOTIC_ARRAY(holder)); /* global object doesn't have array part */ + + /* XXX: use a helper for prototype traversal; no loop check here */ + /* must be found: was found earlier, and cannot be inherited */ + for (;;) { + DUK_ASSERT(holder != NULL); + if (duk_hobject_find_entry(thr->heap, holder, name, &e_idx, &h_idx)) { + DUK_ASSERT(e_idx >= 0); + break; + } + /* SCANBUILD: NULL pointer dereference, doesn't actually trigger, + * asserted above. + */ + holder = DUK_HOBJECT_GET_PROTOTYPE(thr->heap, holder); + } + DUK_ASSERT(holder != NULL); + DUK_ASSERT(e_idx >= 0); + /* SCANBUILD: scan-build produces a NULL pointer dereference warning + * below; it never actually triggers because holder is actually never + * NULL. + */ + + /* ref.holder is global object, holder is the object with the + * conflicting property. + */ + + flags = DUK_HOBJECT_E_GET_FLAGS(thr->heap, holder, e_idx); + if (!(flags & DUK_PROPDESC_FLAG_CONFIGURABLE)) { + if (flags & DUK_PROPDESC_FLAG_ACCESSOR) { + DUK_DDD(DUK_DDDPRINT("existing property is a non-configurable " + "accessor -> reject")); + goto fail_existing_attributes; + } + if (!((flags & DUK_PROPDESC_FLAG_WRITABLE) && + (flags & DUK_PROPDESC_FLAG_ENUMERABLE))) { + DUK_DDD(DUK_DDDPRINT("existing property is a non-configurable " + "plain property which is not writable and " + "enumerable -> reject")); + goto fail_existing_attributes; + } + + DUK_DDD(DUK_DDDPRINT("existing property is not configurable but " + "is plain, enumerable, and writable -> " + "allow redeclaration")); + } + + if (holder == ref.holder) { + /* XXX: if duk_hobject_define_property_internal() was updated + * to handle a pre-existing accessor property, this would be + * a simple call (like for the ancestor case). + */ + DUK_DDD(DUK_DDDPRINT("redefine, offending property in global object itself")); + + if (flags & DUK_PROPDESC_FLAG_ACCESSOR) { + duk_hobject *tmp; + + tmp = DUK_HOBJECT_E_GET_VALUE_GETTER(thr->heap, holder, e_idx); + DUK_HOBJECT_E_SET_VALUE_GETTER(thr->heap, holder, e_idx, NULL); + DUK_HOBJECT_DECREF_ALLOWNULL(thr, tmp); + DUK_UNREF(tmp); + tmp = DUK_HOBJECT_E_GET_VALUE_SETTER(thr->heap, holder, e_idx); + DUK_HOBJECT_E_SET_VALUE_SETTER(thr->heap, holder, e_idx, NULL); + DUK_HOBJECT_DECREF_ALLOWNULL(thr, tmp); + DUK_UNREF(tmp); + } else { + tv = DUK_HOBJECT_E_GET_VALUE_TVAL_PTR(thr->heap, holder, e_idx); + DUK_TVAL_SET_UNDEFINED_UPDREF(thr, tv); + } + + /* Here val would be potentially invalid if we didn't make + * a value copy at the caller. + */ + + tv = DUK_HOBJECT_E_GET_VALUE_TVAL_PTR(thr->heap, holder, e_idx); + DUK_TVAL_SET_TVAL(tv, val); + DUK_TVAL_INCREF(thr, tv); + DUK_HOBJECT_E_SET_FLAGS(thr->heap, holder, e_idx, prop_flags); + + DUK_DDD(DUK_DDDPRINT("updated global binding, final result: " + "value -> %!T, prop_flags=0x%08lx", + (duk_tval *) DUK_HOBJECT_E_GET_VALUE_TVAL_PTR(thr->heap, holder, e_idx), + (unsigned long) prop_flags)); + } else { + DUK_DDD(DUK_DDDPRINT("redefine, offending property in ancestor")); + + DUK_ASSERT(ref.holder == thr->builtins[DUK_BIDX_GLOBAL]); + duk_push_tval(thr, val); + duk_hobject_define_property_internal(thr, ref.holder, name, prop_flags); + } + + return 0; + } + + /* + * Not found (in registers or record objects). Declare + * to current variable environment. + */ + + /* + * Get holder object + */ + + if (DUK_HOBJECT_IS_DECENV(env)) { + DUK_HDECENV_ASSERT_VALID((duk_hdecenv *) env); + holder = env; + } else { + DUK_HOBJENV_ASSERT_VALID((duk_hobjenv *) env); + holder = ((duk_hobjenv *) env)->target; + DUK_ASSERT(holder != NULL); + } + + /* + * Define new property + * + * Note: this may fail if the holder is not extensible. + */ + + /* XXX: this is awkward as we use an internal method which doesn't handle + * extensibility etc correctly. Basically we'd want to do a [[DefineOwnProperty]] + * or Object.defineProperty() here. + */ + + if (!DUK_HOBJECT_HAS_EXTENSIBLE(holder)) { + goto fail_not_extensible; + } + + duk_push_hobject(thr, holder); + duk_push_hstring(thr, name); + duk_push_tval(thr, val); + duk_xdef_prop(thr, -3, prop_flags); /* [holder name val] -> [holder] */ + duk_pop_unsafe(thr); + + return 0; + + fail_existing_attributes: + fail_not_extensible: + DUK_ERROR_TYPE(thr, "declaration failed"); + DUK_WO_NORETURN(return 0;); +} + +DUK_INTERNAL +duk_bool_t duk_js_declvar_activation(duk_hthread *thr, + duk_activation *act, + duk_hstring *name, + duk_tval *val, + duk_small_uint_t prop_flags, + duk_bool_t is_func_decl) { + duk_hobject *env; + duk_tval tv_val_copy; + + DUK_ASSERT(act != NULL); + + /* + * Make a value copy of the input val. This ensures that + * side effects cannot invalidate the pointer. + */ + + DUK_TVAL_SET_TVAL(&tv_val_copy, val); + val = &tv_val_copy; + + /* + * Delayed env creation check + */ + + if (!act->var_env) { + DUK_ASSERT(act->lex_env == NULL); + duk_js_init_activation_environment_records_delayed(thr, act); + /* 'act' is a stable pointer, so still OK. */ + } + DUK_ASSERT(act->lex_env != NULL); + DUK_ASSERT(act->var_env != NULL); + + env = act->var_env; + DUK_ASSERT(env != NULL); + DUK_ASSERT(DUK_HOBJECT_IS_ENV(env)); + + return duk__declvar_helper(thr, env, name, val, prop_flags, is_func_decl); +} +#line 1 "duk_lexer.c" +/* + * Lexer for source files, ToNumber() string conversions, RegExp expressions, + * and JSON. + * + * Provides a stream of ECMAScript tokens from an UTF-8/CESU-8 buffer. The + * caller can also rewind the token stream into a certain position which is + * needed by the compiler part for multi-pass scanning. Tokens are + * represented as duk_token structures, and contain line number information. + * Token types are identified with DUK_TOK_* defines. + * + * Characters are decoded into a fixed size lookup window consisting of + * decoded Unicode code points, with window positions past the end of the + * input filled with an invalid codepoint (-1). The tokenizer can thus + * perform multiple character lookups efficiently and with few sanity + * checks (such as access outside the end of the input), which keeps the + * tokenization code small at the cost of performance. + * + * Character data in tokens, such as identifier names and string literals, + * is encoded into CESU-8 format on-the-fly while parsing the token in + * question. The string data is made reachable to garbage collection by + * placing the token-related values in value stack entries allocated for + * this purpose by the caller. The characters exist in Unicode code point + * form only in the fixed size lookup window, which keeps character data + * expansion (of especially ASCII data) low. + * + * Token parsing supports the full range of Unicode characters as described + * in the E5 specification. Parsing has been optimized for ASCII characters + * because ordinary ECMAScript code consists almost entirely of ASCII + * characters. Matching of complex Unicode codepoint sets (such as in the + * IdentifierStart and IdentifierPart productions) is optimized for size, + * and is done using a linear scan of a bit-packed list of ranges. This is + * very slow, but should never be entered unless the source code actually + * contains Unicode characters. + * + * ECMAScript tokenization is partially context sensitive. First, + * additional future reserved words are recognized in strict mode (see E5 + * Section 7.6.1.2). Second, a forward slash character ('/') can be + * recognized either as starting a RegExp literal or as a division operator, + * depending on context. The caller must provide necessary context flags + * when requesting a new token. + * + * Future work: + * + * * Make line number tracking optional, as it consumes space. + * + * * Add a feature flag for disabling UTF-8 decoding of input, as most + * source code is ASCII. Because of Unicode escapes written in ASCII, + * this does not allow Unicode support to be removed from e.g. + * duk_unicode_is_identifier_start() nor does it allow removal of CESU-8 + * encoding of e.g. string literals. + * + * * Add a feature flag for disabling Unicode compliance of e.g. identifier + * names. This allows for a build more than a kilobyte smaller, because + * Unicode ranges needed by duk_unicode_is_identifier_start() and + * duk_unicode_is_identifier_part() can be dropped. String literals + * should still be allowed to contain escaped Unicode, so this still does + * not allow removal of CESU-8 encoding of e.g. string literals. + * + * * Character lookup tables for codepoints above BMP could be stripped. + * + * * Strictly speaking, E5 specification requires that source code consists + * of 16-bit code units, and if not, must be conceptually converted to + * that format first. The current lexer processes Unicode code points + * and allows characters outside the BMP. These should be converted to + * surrogate pairs while reading the source characters into the window, + * not after tokens have been formed (as is done now). However, the fix + * is not trivial because two characters are decoded from one codepoint. + * + * * Optimize for speed as well as size. Large if-else ladders are (at + * least potentially) slow. + */ + +/* #include duk_internal.h -> already included */ + +/* + * Various defines and file specific helper macros + */ + +#define DUK__MAX_RE_DECESC_DIGITS 9 +#define DUK__MAX_RE_QUANT_DIGITS 9 /* Does not allow e.g. 2**31-1, but one more would allow overflows of u32. */ + +/* whether to use macros or helper function depends on call count */ +#define DUK__ISDIGIT(x) ((x) >= DUK_ASC_0 && (x) <= DUK_ASC_9) +#define DUK__ISHEXDIGIT(x) duk__is_hex_digit((x)) +#define DUK__ISOCTDIGIT(x) ((x) >= DUK_ASC_0 && (x) <= DUK_ASC_7) +#define DUK__ISDIGIT03(x) ((x) >= DUK_ASC_0 && (x) <= DUK_ASC_3) +#define DUK__ISDIGIT47(x) ((x) >= DUK_ASC_4 && (x) <= DUK_ASC_7) + +/* lexer character window helpers */ +#define DUK__LOOKUP(lex_ctx,idx) ((lex_ctx)->window[(idx)].codepoint) +#define DUK__ADVANCECHARS(lex_ctx,count) duk__advance_chars((lex_ctx), (count)) +#define DUK__ADVANCEBYTES(lex_ctx,count) duk__advance_bytes((lex_ctx), (count)) +#define DUK__INITBUFFER(lex_ctx) duk__initbuffer((lex_ctx)) +#define DUK__APPENDBUFFER(lex_ctx,x) duk__appendbuffer((lex_ctx), (duk_codepoint_t) (x)) +#define DUK__APPENDBUFFER_ASCII(lex_ctx,x) duk__appendbuffer_ascii((lex_ctx), (duk_codepoint_t) (x)) + +/* lookup shorthands (note: assume context variable is named 'lex_ctx') */ +#define DUK__L0() DUK__LOOKUP(lex_ctx, 0) +#define DUK__L1() DUK__LOOKUP(lex_ctx, 1) +#define DUK__L2() DUK__LOOKUP(lex_ctx, 2) +#define DUK__L3() DUK__LOOKUP(lex_ctx, 3) +#define DUK__L4() DUK__LOOKUP(lex_ctx, 4) +#define DUK__L5() DUK__LOOKUP(lex_ctx, 5) + +/* packed advance/token number macro used by multiple functions */ +#define DUK__ADVTOK(advbytes,tok) ((((advbytes) * sizeof(duk_lexer_codepoint)) << 8) + (tok)) + +/* + * Advance lookup window by N characters, filling in new characters as + * necessary. After returning caller is guaranteed a character window of + * at least DUK_LEXER_WINDOW_SIZE characters. + * + * The main function duk__advance_bytes() is called at least once per every + * token so it has a major lexer/compiler performance impact. There are two + * variants for the main duk__advance_bytes() algorithm: a sliding window + * approach which is slightly faster at the cost of larger code footprint, + * and a simple copying one. + * + * Decoding directly from the source string would be another lexing option. + * But the lookup window based approach has the advantage of hiding the + * source string and its encoding effectively which gives more flexibility + * going forward to e.g. support chunked streaming of source from flash. + * + * Decodes UTF-8/CESU-8 leniently with support for code points from U+0000 to + * U+10FFFF, causing an error if the input is unparseable. Leniency means: + * + * * Unicode code point validation is intentionally not performed, + * except to check that the codepoint does not exceed 0x10ffff. + * + * * In particular, surrogate pairs are allowed and not combined, which + * allows source files to represent all SourceCharacters with CESU-8. + * Broken surrogate pairs are allowed, as ECMAScript does not mandate + * their validation. + * + * * Allow non-shortest UTF-8 encodings. + * + * Leniency here causes few security concerns because all character data is + * decoded into Unicode codepoints before lexer processing, and is then + * re-encoded into CESU-8. The source can be parsed as strict UTF-8 with + * a compiler option. However, ECMAScript source characters include -all- + * 16-bit unsigned integer codepoints, so leniency seems to be appropriate. + * + * Note that codepoints above the BMP are not strictly SourceCharacters, + * but the lexer still accepts them as such. Before ending up in a string + * or an identifier name, codepoints above BMP are converted into surrogate + * pairs and then CESU-8 encoded, resulting in 16-bit Unicode data as + * expected by ECMAScript. + * + * An alternative approach to dealing with invalid or partial sequences + * would be to skip them and replace them with e.g. the Unicode replacement + * character U+FFFD. This has limited utility because a replacement character + * will most likely cause a parse error, unless it occurs inside a string. + * Further, ECMAScript source is typically pure ASCII. + * + * See: + * + * http://en.wikipedia.org/wiki/UTF-8 + * http://en.wikipedia.org/wiki/CESU-8 + * http://tools.ietf.org/html/rfc3629 + * http://en.wikipedia.org/wiki/UTF-8#Invalid_byte_sequences + * + * Future work: + * + * * Reject other invalid Unicode sequences (see Wikipedia entry for examples) + * in strict UTF-8 mode. + * + * * Size optimize. An attempt to use a 16-byte lookup table for the first + * byte resulted in a code increase though. + * + * * Is checking against maximum 0x10ffff really useful? 4-byte encoding + * imposes a certain limit anyway. + * + * * Support chunked streaming of source code. Can be implemented either + * by streaming chunks of bytes or chunks of codepoints. + */ + +#if defined(DUK_USE_LEXER_SLIDING_WINDOW) +DUK_LOCAL void duk__fill_lexer_buffer(duk_lexer_ctx *lex_ctx, duk_small_uint_t start_offset_bytes) { + duk_lexer_codepoint *cp, *cp_end; + duk_ucodepoint_t x; + duk_small_uint_t contlen; + const duk_uint8_t *p, *p_end; +#if defined(DUK_USE_STRICT_UTF8_SOURCE) + duk_ucodepoint_t mincp; +#endif + duk_int_t input_line; + + /* Use temporaries and update lex_ctx only when finished. */ + input_line = lex_ctx->input_line; + p = lex_ctx->input + lex_ctx->input_offset; + p_end = lex_ctx->input + lex_ctx->input_length; + + cp = (duk_lexer_codepoint *) (void *) ((duk_uint8_t *) lex_ctx->buffer + start_offset_bytes); + cp_end = lex_ctx->buffer + DUK_LEXER_BUFFER_SIZE; + + for (; cp != cp_end; cp++) { + cp->offset = (duk_size_t) (p - lex_ctx->input); + cp->line = input_line; + + /* XXX: potential issue with signed pointers, p_end < p. */ + if (DUK_UNLIKELY(p >= p_end)) { + /* If input_offset were assigned a negative value, it would + * result in a large positive value. Most likely it would be + * larger than input_length and be caught here. In any case + * no memory unsafe behavior would happen. + */ + cp->codepoint = -1; + continue; + } + + x = (duk_ucodepoint_t) (*p++); + + /* Fast path. */ + + if (DUK_LIKELY(x < 0x80UL)) { + DUK_ASSERT(x != 0x2028UL && x != 0x2029UL); /* not LS/PS */ + if (DUK_UNLIKELY(x <= 0x000dUL)) { + if ((x == 0x000aUL) || + ((x == 0x000dUL) && (p >= p_end || *p != 0x000aUL))) { + /* lookup for 0x000a above assumes shortest encoding now */ + + /* E5 Section 7.3, treat the following as newlines: + * LF + * CR [not followed by LF] + * LS + * PS + * + * For CR LF, CR is ignored if it is followed by LF, and the LF will bump + * the line number. + */ + input_line++; + } + } + + cp->codepoint = (duk_codepoint_t) x; + continue; + } + + /* Slow path. */ + + if (x < 0xc0UL) { + /* 10xx xxxx -> invalid */ + goto error_encoding; + } else if (x < 0xe0UL) { + /* 110x xxxx 10xx xxxx */ + contlen = 1; +#if defined(DUK_USE_STRICT_UTF8_SOURCE) + mincp = 0x80UL; +#endif + x = x & 0x1fUL; + } else if (x < 0xf0UL) { + /* 1110 xxxx 10xx xxxx 10xx xxxx */ + contlen = 2; +#if defined(DUK_USE_STRICT_UTF8_SOURCE) + mincp = 0x800UL; +#endif + x = x & 0x0fUL; + } else if (x < 0xf8UL) { + /* 1111 0xxx 10xx xxxx 10xx xxxx 10xx xxxx */ + contlen = 3; +#if defined(DUK_USE_STRICT_UTF8_SOURCE) + mincp = 0x10000UL; +#endif + x = x & 0x07UL; + } else { + /* no point in supporting encodings of 5 or more bytes */ + goto error_encoding; + } + + DUK_ASSERT(p_end >= p); + if ((duk_size_t) contlen > (duk_size_t) (p_end - p)) { + goto error_clipped; + } + + while (contlen > 0) { + duk_small_uint_t y; + y = *p++; + if ((y & 0xc0U) != 0x80U) { + /* check that byte has the form 10xx xxxx */ + goto error_encoding; + } + x = x << 6; + x += y & 0x3fUL; + contlen--; + } + + /* check final character validity */ + + if (x > 0x10ffffUL) { + goto error_encoding; + } +#if defined(DUK_USE_STRICT_UTF8_SOURCE) + if (x < mincp || (x >= 0xd800UL && x <= 0xdfffUL) || x == 0xfffeUL) { + goto error_encoding; + } +#endif + + DUK_ASSERT(x != 0x000aUL && x != 0x000dUL); + if ((x == 0x2028UL) || (x == 0x2029UL)) { + input_line++; + } + + cp->codepoint = (duk_codepoint_t) x; + } + + lex_ctx->input_offset = (duk_size_t) (p - lex_ctx->input); + lex_ctx->input_line = input_line; + return; + + error_clipped: /* clipped codepoint */ + error_encoding: /* invalid codepoint encoding or codepoint */ + lex_ctx->input_offset = (duk_size_t) (p - lex_ctx->input); + lex_ctx->input_line = input_line; + + DUK_ERROR_SYNTAX(lex_ctx->thr, DUK_STR_SOURCE_DECODE_FAILED); + DUK_WO_NORETURN(return;); +} + +DUK_LOCAL void duk__advance_bytes(duk_lexer_ctx *lex_ctx, duk_small_uint_t count_bytes) { + duk_small_uint_t used_bytes, avail_bytes; + + DUK_ASSERT_DISABLE(count_bytes >= 0); /* unsigned */ + DUK_ASSERT(count_bytes <= (duk_small_uint_t) (DUK_LEXER_WINDOW_SIZE * sizeof(duk_lexer_codepoint))); + DUK_ASSERT(lex_ctx->window >= lex_ctx->buffer); + DUK_ASSERT(lex_ctx->window < lex_ctx->buffer + DUK_LEXER_BUFFER_SIZE); + DUK_ASSERT((duk_uint8_t *) lex_ctx->window + count_bytes <= (duk_uint8_t *) lex_ctx->buffer + DUK_LEXER_BUFFER_SIZE * sizeof(duk_lexer_codepoint)); + + /* Zero 'count' is also allowed to make call sites easier. + * Arithmetic in bytes generates better code in GCC. + */ + + lex_ctx->window = (duk_lexer_codepoint *) (void *) ((duk_uint8_t *) lex_ctx->window + count_bytes); /* avoid multiply */ + used_bytes = (duk_small_uint_t) ((duk_uint8_t *) lex_ctx->window - (duk_uint8_t *) lex_ctx->buffer); + avail_bytes = DUK_LEXER_BUFFER_SIZE * sizeof(duk_lexer_codepoint) - used_bytes; + if (avail_bytes < (duk_small_uint_t) (DUK_LEXER_WINDOW_SIZE * sizeof(duk_lexer_codepoint))) { + /* Not enough data to provide a full window, so "scroll" window to + * start of buffer and fill up the rest. + */ + duk_memmove((void *) lex_ctx->buffer, + (const void *) lex_ctx->window, + (size_t) avail_bytes); + lex_ctx->window = lex_ctx->buffer; + duk__fill_lexer_buffer(lex_ctx, avail_bytes); + } +} + +DUK_LOCAL void duk__init_lexer_window(duk_lexer_ctx *lex_ctx) { + lex_ctx->window = lex_ctx->buffer; + duk__fill_lexer_buffer(lex_ctx, 0); +} +#else /* DUK_USE_LEXER_SLIDING_WINDOW */ +DUK_LOCAL duk_codepoint_t duk__read_char(duk_lexer_ctx *lex_ctx) { + duk_ucodepoint_t x; + duk_small_uint_t len; + duk_small_uint_t i; + const duk_uint8_t *p; +#if defined(DUK_USE_STRICT_UTF8_SOURCE) + duk_ucodepoint_t mincp; +#endif + duk_size_t input_offset; + + input_offset = lex_ctx->input_offset; + if (DUK_UNLIKELY(input_offset >= lex_ctx->input_length)) { + /* If input_offset were assigned a negative value, it would + * result in a large positive value. Most likely it would be + * larger than input_length and be caught here. In any case + * no memory unsafe behavior would happen. + */ + return -1; + } + + p = lex_ctx->input + input_offset; + x = (duk_ucodepoint_t) (*p); + + if (DUK_LIKELY(x < 0x80UL)) { + /* 0xxx xxxx -> fast path */ + + /* input offset tracking */ + lex_ctx->input_offset++; + + DUK_ASSERT(x != 0x2028UL && x != 0x2029UL); /* not LS/PS */ + if (DUK_UNLIKELY(x <= 0x000dUL)) { + if ((x == 0x000aUL) || + ((x == 0x000dUL) && (lex_ctx->input_offset >= lex_ctx->input_length || + lex_ctx->input[lex_ctx->input_offset] != 0x000aUL))) { + /* lookup for 0x000a above assumes shortest encoding now */ + + /* E5 Section 7.3, treat the following as newlines: + * LF + * CR [not followed by LF] + * LS + * PS + * + * For CR LF, CR is ignored if it is followed by LF, and the LF will bump + * the line number. + */ + lex_ctx->input_line++; + } + } + + return (duk_codepoint_t) x; + } + + /* Slow path. */ + + if (x < 0xc0UL) { + /* 10xx xxxx -> invalid */ + goto error_encoding; + } else if (x < 0xe0UL) { + /* 110x xxxx 10xx xxxx */ + len = 2; +#if defined(DUK_USE_STRICT_UTF8_SOURCE) + mincp = 0x80UL; +#endif + x = x & 0x1fUL; + } else if (x < 0xf0UL) { + /* 1110 xxxx 10xx xxxx 10xx xxxx */ + len = 3; +#if defined(DUK_USE_STRICT_UTF8_SOURCE) + mincp = 0x800UL; +#endif + x = x & 0x0fUL; + } else if (x < 0xf8UL) { + /* 1111 0xxx 10xx xxxx 10xx xxxx 10xx xxxx */ + len = 4; +#if defined(DUK_USE_STRICT_UTF8_SOURCE) + mincp = 0x10000UL; +#endif + x = x & 0x07UL; + } else { + /* no point in supporting encodings of 5 or more bytes */ + goto error_encoding; + } + + DUK_ASSERT(lex_ctx->input_length >= lex_ctx->input_offset); + if ((duk_size_t) len > (duk_size_t) (lex_ctx->input_length - lex_ctx->input_offset)) { + goto error_clipped; + } + + p++; + for (i = 1; i < len; i++) { + duk_small_uint_t y; + y = *p++; + if ((y & 0xc0U) != 0x80U) { + /* check that byte has the form 10xx xxxx */ + goto error_encoding; + } + x = x << 6; + x += y & 0x3fUL; + } + + /* check final character validity */ + + if (x > 0x10ffffUL) { + goto error_encoding; + } +#if defined(DUK_USE_STRICT_UTF8_SOURCE) + if (x < mincp || (x >= 0xd800UL && x <= 0xdfffUL) || x == 0xfffeUL) { + goto error_encoding; + } +#endif + + /* input offset tracking */ + lex_ctx->input_offset += len; + + /* line tracking */ + DUK_ASSERT(x != 0x000aUL && x != 0x000dUL); + if ((x == 0x2028UL) || (x == 0x2029UL)) { + lex_ctx->input_line++; + } + + return (duk_codepoint_t) x; + + error_clipped: /* clipped codepoint */ + error_encoding: /* invalid codepoint encoding or codepoint */ + DUK_ERROR_SYNTAX(lex_ctx->thr, DUK_STR_SOURCE_DECODE_FAILED); + DUK_WO_NORETURN(return 0;); +} + +DUK_LOCAL void duk__advance_bytes(duk_lexer_ctx *lex_ctx, duk_small_uint_t count_bytes) { + duk_small_uint_t keep_bytes; + duk_lexer_codepoint *cp, *cp_end; + + DUK_ASSERT_DISABLE(count_bytes >= 0); /* unsigned */ + DUK_ASSERT(count_bytes <= (duk_small_uint_t) (DUK_LEXER_WINDOW_SIZE * sizeof(duk_lexer_codepoint))); + + /* Zero 'count' is also allowed to make call sites easier. */ + + keep_bytes = DUK_LEXER_WINDOW_SIZE * sizeof(duk_lexer_codepoint) - count_bytes; + duk_memmove((void *) lex_ctx->window, + (const void *) ((duk_uint8_t *) lex_ctx->window + count_bytes), + (size_t) keep_bytes); + + cp = (duk_lexer_codepoint *) ((duk_uint8_t *) lex_ctx->window + keep_bytes); + cp_end = lex_ctx->window + DUK_LEXER_WINDOW_SIZE; + for (; cp != cp_end; cp++) { + cp->offset = lex_ctx->input_offset; + cp->line = lex_ctx->input_line; + cp->codepoint = duk__read_char(lex_ctx); + } +} + +DUK_LOCAL void duk__init_lexer_window(duk_lexer_ctx *lex_ctx) { + /* Call with count == DUK_LEXER_WINDOW_SIZE to fill buffer initially. */ + duk__advance_bytes(lex_ctx, DUK_LEXER_WINDOW_SIZE * sizeof(duk_lexer_codepoint)); /* fill window */ +} +#endif /* DUK_USE_LEXER_SLIDING_WINDOW */ + +DUK_LOCAL void duk__advance_chars(duk_lexer_ctx *lex_ctx, duk_small_uint_t count_chars) { + duk__advance_bytes(lex_ctx, count_chars * sizeof(duk_lexer_codepoint)); +} + +/* + * (Re)initialize the temporary byte buffer. May be called extra times + * with little impact. + */ + +DUK_LOCAL void duk__initbuffer(duk_lexer_ctx *lex_ctx) { + /* Reuse buffer as is unless buffer has grown large. */ + if (DUK_HBUFFER_DYNAMIC_GET_SIZE(lex_ctx->buf) < DUK_LEXER_TEMP_BUF_LIMIT) { + /* Keep current size */ + } else { + duk_hbuffer_resize(lex_ctx->thr, lex_ctx->buf, DUK_LEXER_TEMP_BUF_LIMIT); + } + + DUK_BW_INIT_WITHBUF(lex_ctx->thr, &lex_ctx->bw, lex_ctx->buf); +} + +/* + * Append a Unicode codepoint to the temporary byte buffer. Performs + * CESU-8 surrogate pair encoding for codepoints above the BMP. + * Existing surrogate pairs are allowed and also encoded into CESU-8. + */ + +DUK_LOCAL void duk__appendbuffer(duk_lexer_ctx *lex_ctx, duk_codepoint_t x) { + /* + * Since character data is only generated by decoding the source or by + * the compiler itself, we rely on the input codepoints being correct + * and avoid a check here. + * + * Character data can also come here through decoding of Unicode + * escapes ("\udead\ubeef") so all 16-but unsigned values can be + * present, even when the source file itself is strict UTF-8. + */ + DUK_ASSERT(x >= 0 && x <= 0x10ffffL); + + DUK_BW_WRITE_ENSURE_CESU8(lex_ctx->thr, &lex_ctx->bw, (duk_ucodepoint_t) x); +} + +DUK_LOCAL void duk__appendbuffer_ascii(duk_lexer_ctx *lex_ctx, duk_codepoint_t x) { + /* ASCII characters can be emitted as a single byte without encoding + * which matters for some fast paths. + */ + DUK_ASSERT(x >= 0 && x <= 0x7f); + + DUK_BW_WRITE_ENSURE_U8(lex_ctx->thr, &lex_ctx->bw, (duk_uint8_t) x); +} + +/* + * Intern the temporary byte buffer into a valstack slot + * (in practice, slot1 or slot2). + */ + +DUK_LOCAL duk_hstring *duk__internbuffer(duk_lexer_ctx *lex_ctx, duk_idx_t valstack_idx) { + DUK_ASSERT(valstack_idx == lex_ctx->slot1_idx || valstack_idx == lex_ctx->slot2_idx); + + DUK_BW_PUSH_AS_STRING(lex_ctx->thr, &lex_ctx->bw); + duk_replace(lex_ctx->thr, valstack_idx); + return duk_known_hstring(lex_ctx->thr, valstack_idx); +} + +/* + * Init lexer context + */ + +DUK_INTERNAL void duk_lexer_initctx(duk_lexer_ctx *lex_ctx) { + DUK_ASSERT(lex_ctx != NULL); + + duk_memzero(lex_ctx, sizeof(*lex_ctx)); +#if defined(DUK_USE_EXPLICIT_NULL_INIT) +#if defined(DUK_USE_LEXER_SLIDING_WINDOW) + lex_ctx->window = NULL; +#endif + lex_ctx->thr = NULL; + lex_ctx->input = NULL; + lex_ctx->buf = NULL; +#endif +} + +/* + * Set lexer input position and reinitialize lookup window. + */ + +DUK_INTERNAL void duk_lexer_getpoint(duk_lexer_ctx *lex_ctx, duk_lexer_point *pt) { + pt->offset = lex_ctx->window[0].offset; + pt->line = lex_ctx->window[0].line; +} + +DUK_INTERNAL void duk_lexer_setpoint(duk_lexer_ctx *lex_ctx, duk_lexer_point *pt) { + DUK_ASSERT_DISABLE(pt->offset >= 0); /* unsigned */ + DUK_ASSERT(pt->line >= 1); + lex_ctx->input_offset = pt->offset; + lex_ctx->input_line = pt->line; + duk__init_lexer_window(lex_ctx); +} + +/* + * Lexing helpers + */ + +/* Numeric value of a hex digit (also covers octal and decimal digits) or + * -1 if not a valid hex digit. + */ +DUK_LOCAL duk_codepoint_t duk__hexval_validate(duk_codepoint_t x) { + duk_small_int_t t; + + /* Here 'x' is a Unicode codepoint */ + if (DUK_LIKELY(x >= 0 && x <= 0xff)) { + t = duk_hex_dectab[x]; + if (DUK_LIKELY(t >= 0)) { + return t; + } + } + + return -1; +} + +/* Just a wrapper for call sites where 'x' is known to be valid so + * we assert for it before decoding. + */ +DUK_LOCAL duk_codepoint_t duk__hexval(duk_codepoint_t x) { + duk_codepoint_t ret; + + DUK_ASSERT((x >= DUK_ASC_0 && x <= DUK_ASC_9) || + (x >= DUK_ASC_LC_A && x <= DUK_ASC_LC_F) || + (x >= DUK_ASC_UC_A && x <= DUK_ASC_UC_F)); + ret = duk__hexval_validate(x); + DUK_ASSERT(ret >= 0 && ret <= 15); + return ret; +} + +/* having this as a separate function provided a size benefit */ +DUK_LOCAL duk_bool_t duk__is_hex_digit(duk_codepoint_t x) { + if (DUK_LIKELY(x >= 0 && x <= 0xff)) { + return (duk_hex_dectab[x] >= 0); + } + return 0; +} + +/* Parse a Unicode escape of the form \xHH, \uHHHH, or \u{H+}. Shared by + * source and RegExp parsing. + */ +DUK_LOCAL duk_codepoint_t duk__lexer_parse_escape(duk_lexer_ctx *lex_ctx, duk_bool_t allow_es6) { + duk_small_int_t digits; /* Initial value 2 or 4 for fixed length escapes, 0 for ES2015 \u{H+}. */ + duk_codepoint_t escval; + duk_codepoint_t x; + duk_small_uint_t adv; + + DUK_ASSERT(DUK__L0() == DUK_ASC_BACKSLASH); /* caller responsibilities */ + DUK_ASSERT(DUK__L1() == DUK_ASC_LC_X || DUK__L1() == DUK_ASC_LC_U); + DUK_UNREF(allow_es6); + + adv = 2; + digits = 2; + if (DUK__L1() == DUK_ASC_LC_U) { + digits = 4; +#if defined(DUK_USE_ES6_UNICODE_ESCAPE) + if (DUK__L2() == DUK_ASC_LCURLY && allow_es6) { + digits = 0; + adv = 3; + } +#endif + } + DUK__ADVANCECHARS(lex_ctx, adv); + + escval = 0; + for (;;) { + /* One of the escape forms: \xHH, \uHHHH, \u{H+}. + * The 'digits' variable tracks parsing state and is + * initialized to: + * + * \xHH 2 + * \uHH 4 + * \u{H+} 0 first time, updated to -1 to indicate + * at least one digit has been parsed + * + * Octal parsing is handled separately because it can be + * done with fixed lookahead and also has validation + * rules which depend on the escape length (which is + * variable). + * + * We don't need a specific check for x < 0 (end of + * input) or duk_unicode_is_line_terminator(x) + * because the 'dig' decode will fail and lead to a + * SyntaxError. + */ + duk_codepoint_t dig; + + x = DUK__L0(); + DUK__ADVANCECHARS(lex_ctx, 1); + + dig = duk__hexval_validate(x); + if (digits > 0) { + digits--; + if (dig < 0) { + goto fail_escape; + } + DUK_ASSERT(dig >= 0x00 && dig <= 0x0f); + escval = (escval << 4) + dig; + if (digits == 0) { + DUK_ASSERT(escval >= 0 && escval <= 0xffffL); + break; + } + } else { +#if defined(DUK_USE_ES6_UNICODE_ESCAPE) + DUK_ASSERT(digits == 0 /* first time */ || digits == -1 /* others */); + if (dig >= 0) { + DUK_ASSERT(dig >= 0x00 && dig <= 0x0f); + escval = (escval << 4) + dig; + if (escval > 0x10ffffL) { + goto fail_escape; + } + } else if (x == DUK_ASC_RCURLY) { + if (digits == 0) { + /* Empty escape, \u{}. */ + goto fail_escape; + } + DUK_ASSERT(escval >= 0 && escval <= 0x10ffffL); + break; + } else { + goto fail_escape; + } + digits = -1; /* Indicate we have at least one digit. */ +#else /* DUK_USE_ES6_UNICODE_ESCAPE */ + DUK_ASSERT(0); /* Never happens if \u{H+} support disabled. */ +#endif /* DUK_USE_ES6_UNICODE_ESCAPE */ + } + } + + return escval; + + fail_escape: + DUK_ERROR_SYNTAX(lex_ctx->thr, DUK_STR_INVALID_ESCAPE); + DUK_WO_NORETURN(return 0;); +} + +/* Parse legacy octal escape of the form \N{1,3}, e.g. \0, \5, \0377. Maximum + * allowed value is \0377 (U+00FF), longest match is used. Used for both string + * RegExp octal escape parsing. Window[0] must be the slash '\' and the first + * digit must already be validated to be in [0-9] by the caller. + */ +DUK_LOCAL duk_codepoint_t duk__lexer_parse_legacy_octal(duk_lexer_ctx *lex_ctx, duk_small_uint_t *out_adv, duk_bool_t reject_annex_b) { + duk_codepoint_t cp; + duk_small_uint_t lookup_idx; + duk_small_uint_t adv; + duk_codepoint_t tmp; + + DUK_ASSERT(out_adv != NULL); + DUK_ASSERT(DUK__LOOKUP(lex_ctx, 0) == DUK_ASC_BACKSLASH); + DUK_ASSERT(DUK__LOOKUP(lex_ctx, 1) >= DUK_ASC_0 && DUK__LOOKUP(lex_ctx, 1) <= DUK_ASC_9); + + cp = 0; + tmp = 0; + for (lookup_idx = 1; lookup_idx <= 3; lookup_idx++) { + DUK_DDD(DUK_DDDPRINT("lookup_idx=%ld, cp=%ld", (long) lookup_idx, (long) cp)); + tmp = DUK__LOOKUP(lex_ctx, lookup_idx); + if (tmp < DUK_ASC_0 || tmp > DUK_ASC_7) { + /* No more valid digits. */ + break; + } + tmp = (cp << 3) + (tmp - DUK_ASC_0); + if (tmp > 0xff) { + /* Three digit octal escapes above \377 (= 0xff) + * are not allowed. + */ + break; + } + cp = tmp; + } + DUK_DDD(DUK_DDDPRINT("final lookup_idx=%ld, cp=%ld", (long) lookup_idx, (long) cp)); + + adv = lookup_idx; + if (lookup_idx == 1) { + DUK_DDD(DUK_DDDPRINT("\\8 or \\9 -> treat as literal, accept in strict mode too")); + DUK_ASSERT(tmp == DUK_ASC_8 || tmp == DUK_ASC_9); + cp = tmp; + adv++; /* correction to above, eat offending character */ + } else if (lookup_idx == 2 && cp == 0) { + /* Note: 'foo\0bar' is OK in strict mode, but 'foo\00bar' is not. + * It won't be interpreted as 'foo\u{0}0bar' but as a SyntaxError. + */ + DUK_DDD(DUK_DDDPRINT("\\0 -> accept in strict mode too")); + } else { + /* This clause also handles non-shortest zero, e.g. \00. */ + if (reject_annex_b) { + DUK_DDD(DUK_DDDPRINT("non-zero octal literal %ld -> reject in strict-mode", (long) cp)); + cp = -1; + } else { + DUK_DDD(DUK_DDDPRINT("non-zero octal literal %ld -> accepted", (long) cp)); + DUK_ASSERT(cp >= 0 && cp <= 0xff); + } + } + + *out_adv = adv; + + DUK_ASSERT((cp >= 0 && cp <= 0xff) || (cp == -1 && reject_annex_b)); + return cp; +} + +/* XXX: move strict mode to lex_ctx? */ +DUK_LOCAL void duk__lexer_parse_string_literal(duk_lexer_ctx *lex_ctx, duk_token *out_token, duk_small_int_t quote, duk_bool_t strict_mode) { + duk_small_uint_t adv; + + for (adv = 1 /* initial quote */ ;;) { + duk_codepoint_t x; + + DUK__ADVANCECHARS(lex_ctx, adv); /* eat opening quote on first loop */ + x = DUK__L0(); + + adv = 1; + if (x == quote) { + DUK__ADVANCECHARS(lex_ctx, 1); /* eat closing quote */ + break; + } else if (x == '\\') { + /* DUK__L0 -> '\' char + * DUK__L1 ... DUK__L5 -> more lookup + */ + duk_small_int_t emitcp = -1; + + x = DUK__L1(); + + /* How much to advance before next loop. */ + adv = 2; /* note: long live range */ + + switch (x) { + case '\'': + emitcp = 0x0027; + break; + case '"': + emitcp = 0x0022; + break; + case '\\': + emitcp = 0x005c; + break; + case 'b': + emitcp = 0x0008; + break; + case 'f': + emitcp = 0x000c; + break; + case 'n': + emitcp = 0x000a; + break; + case 'r': + emitcp = 0x000d; + break; + case 't': + emitcp = 0x0009; + break; + case 'v': + emitcp = 0x000b; + break; + case 'x': + case 'u': { + duk_codepoint_t esc_cp; + esc_cp = duk__lexer_parse_escape(lex_ctx, 1 /*allow_es6*/); + DUK__APPENDBUFFER(lex_ctx, esc_cp); + adv = 0; + break; + } + default: { + if (duk_unicode_is_line_terminator(x)) { + /* line continuation */ + if (x == 0x000d && DUK__L2() == 0x000a) { + /* CR LF again a special case */ + adv = 3; /* line terminator, CR, LF */ + } + } else if (DUK__ISDIGIT(x)) { + /* + * Octal escape or zero escape: + * \0 (lookahead not OctalDigit) + * \1 ... \7 (lookahead not OctalDigit) + * \ZeroToThree OctalDigit (lookahead not OctalDigit) + * \FourToSeven OctalDigit (no lookahead restrictions) + * \ZeroToThree OctalDigit OctalDigit (no lookahead restrictions) + * + * Zero escape is part of the standard syntax. Octal escapes are + * defined in E5 Section B.1.2, and are only allowed in non-strict mode. + * Any other productions starting with a decimal digit are invalid + * but are in practice treated like identity escapes. + * + * Parse octal (up to 3 digits) from the lookup window. + */ + + emitcp = duk__lexer_parse_legacy_octal(lex_ctx, &adv, strict_mode /*reject_annex_b*/); + if (emitcp < 0) { + goto fail_escape; + } + } else if (x < 0) { + goto fail_unterminated; + } else { + /* escaped NonEscapeCharacter */ + DUK__APPENDBUFFER(lex_ctx, x); + } + } /* end default clause */ + } /* end switch */ + + /* Shared handling for single codepoint escapes. */ + if (emitcp >= 0) { + DUK__APPENDBUFFER(lex_ctx, emitcp); + } + + /* Track number of escapes; count not really needed but directive + * prologues need to detect whether there were any escapes or line + * continuations or not. + */ + out_token->num_escapes++; + } else if (x >= 0x20 && x <= 0x7f) { + /* Fast path for ASCII case, avoids line terminator + * check and CESU-8 encoding. + */ + DUK_ASSERT(x >= 0); + DUK_ASSERT(!duk_unicode_is_line_terminator(x)); + DUK_ASSERT(x != quote); + DUK_ASSERT(x != DUK_ASC_BACKSLASH); + DUK__APPENDBUFFER_ASCII(lex_ctx, x); + } else if (x < 0 || duk_unicode_is_line_terminator(x)) { + goto fail_unterminated; + } else { + /* Character which is part of the string but wasn't handled + * by the fast path. + */ + DUK__APPENDBUFFER(lex_ctx, x); + } + } /* string parse loop */ + + return; + + fail_escape: + DUK_ERROR_SYNTAX(lex_ctx->thr, DUK_STR_INVALID_ESCAPE); + DUK_WO_NORETURN(return;); + + fail_unterminated: + DUK_ERROR_SYNTAX(lex_ctx->thr, DUK_STR_UNTERMINATED_STRING); + DUK_WO_NORETURN(return;); +} + +/* Skip to end-of-line (or end-of-file), used for single line comments. */ +DUK_LOCAL void duk__lexer_skip_to_endofline(duk_lexer_ctx *lex_ctx) { + for (;;) { + duk_codepoint_t x; + + x = DUK__L0(); + if (x < 0 || duk_unicode_is_line_terminator(x)) { + break; + } + DUK__ADVANCECHARS(lex_ctx, 1); + } +} + +/* + * Parse ECMAScript source InputElementDiv or InputElementRegExp + * (E5 Section 7), skipping whitespace, comments, and line terminators. + * + * Possible results are: + * (1) a token + * (2) a line terminator (skipped) + * (3) a comment (skipped) + * (4) EOF + * + * White space is automatically skipped from the current position (but + * not after the input element). If input has already ended, returns + * DUK_TOK_EOF indefinitely. If a parse error occurs, uses an DUK_ERROR() + * macro call (and hence a longjmp through current heap longjmp context). + * Comments and line terminator tokens are automatically skipped. + * + * The input element being matched is determined by regexp_mode; if set, + * parses a InputElementRegExp, otherwise a InputElementDiv. The + * difference between these are handling of productions starting with a + * forward slash. + * + * If strict_mode is set, recognizes additional future reserved words + * specific to strict mode, and refuses to parse octal literals. + * + * The matching strategy below is to (currently) use a six character + * lookup window to quickly determine which production is the -longest- + * matching one, and then parse that. The top-level if-else clauses + * match the first character, and the code blocks for each clause + * handle -all- alternatives for that first character. ECMAScript + * specification uses the "longest match wins" semantics, so the order + * of the if-clauses matters. + * + * Misc notes: + * + * * ECMAScript numeric literals do not accept a sign character. + * Consequently e.g. "-1.0" is parsed as two tokens: a negative + * sign and a positive numeric literal. The compiler performs + * the negation during compilation, so this has no adverse impact. + * + * * There is no token for "undefined": it is just a value available + * from the global object (or simply established by doing a reference + * to an undefined value). + * + * * Some contexts want Identifier tokens, which are IdentifierNames + * excluding reserved words, while some contexts want IdentifierNames + * directly. In the latter case e.g. "while" is interpreted as an + * identifier name, not a DUK_TOK_WHILE token. The solution here is + * to provide both token types: DUK_TOK_WHILE goes to 't' while + * DUK_TOK_IDENTIFIER goes to 't_nores', and 'slot1' always contains + * the identifier / keyword name. + * + * * Directive prologue needs to identify string literals such as + * "use strict" and 'use strict', which are sensitive to line + * continuations and escape sequences. For instance, "use\u0020strict" + * is a valid directive but is distinct from "use strict". The solution + * here is to decode escapes while tokenizing, but to keep track of the + * number of escapes. Directive detection can then check that the + * number of escapes is zero. + * + * * Multi-line comments with one or more internal LineTerminator are + * treated like a line terminator to comply with automatic semicolon + * insertion. + */ + +DUK_INTERNAL +void duk_lexer_parse_js_input_element(duk_lexer_ctx *lex_ctx, + duk_token *out_token, + duk_bool_t strict_mode, + duk_bool_t regexp_mode) { + duk_codepoint_t x; /* temporary, must be signed and 32-bit to hold Unicode code points */ + duk_small_uint_t advtok = 0; /* (advance << 8) + token_type, updated at function end, + * init is unnecessary but suppresses "may be used uninitialized" warnings. + */ + duk_bool_t got_lineterm = 0; /* got lineterm preceding non-whitespace, non-lineterm token */ + + if (++lex_ctx->token_count >= lex_ctx->token_limit) { + goto fail_token_limit; + } + + out_token->t = DUK_TOK_EOF; + out_token->t_nores = DUK_TOK_INVALID; /* marker: copy t if not changed */ +#if 0 /* not necessary to init, disabled for faster parsing */ + out_token->num = DUK_DOUBLE_NAN; + out_token->str1 = NULL; + out_token->str2 = NULL; +#endif + out_token->num_escapes = 0; + /* out_token->lineterm set by caller */ + + /* This would be nice, but parsing is faster without resetting the + * value slots. The only side effect is that references to temporary + * string values may linger until lexing is finished; they're then + * freed normally. + */ +#if 0 + duk_to_undefined(lex_ctx->thr, lex_ctx->slot1_idx); + duk_to_undefined(lex_ctx->thr, lex_ctx->slot2_idx); +#endif + + /* 'advtok' indicates how much to advance and which token id to assign + * at the end. This shared functionality minimizes code size. All + * code paths are required to set 'advtok' to some value, so no default + * init value is used. Code paths calling DUK_ERROR() never return so + * they don't need to set advtok. + */ + + /* + * Matching order: + * + * Punctuator first chars, also covers comments, regexps + * LineTerminator + * Identifier or reserved word, also covers null/true/false literals + * NumericLiteral + * StringLiteral + * EOF + * + * The order does not matter as long as the longest match is + * always correctly identified. There are order dependencies + * in the clauses, so it's not trivial to convert to a switch. + */ + + restart_lineupdate: + out_token->start_line = lex_ctx->window[0].line; + + restart: + out_token->start_offset = lex_ctx->window[0].offset; + + x = DUK__L0(); + + switch (x) { + case DUK_ASC_SPACE: + case DUK_ASC_HT: /* fast paths for space and tab */ + DUK__ADVANCECHARS(lex_ctx, 1); + goto restart; + case DUK_ASC_LF: /* LF line terminator; CR LF and Unicode lineterms are handled in slow path */ + DUK__ADVANCECHARS(lex_ctx, 1); + got_lineterm = 1; + goto restart_lineupdate; +#if defined(DUK_USE_SHEBANG_COMMENTS) + case DUK_ASC_HASH: /* '#' */ + if (DUK__L1() == DUK_ASC_EXCLAMATION && lex_ctx->window[0].offset == 0 && + (lex_ctx->flags & DUK_COMPILE_SHEBANG)) { + /* "Shebang" comment ('#! ...') on first line. */ + /* DUK__ADVANCECHARS(lex_ctx, 2) would be correct here, but not necessary */ + duk__lexer_skip_to_endofline(lex_ctx); + goto restart; /* line terminator will be handled on next round */ + } + goto fail_token; +#endif /* DUK_USE_SHEBANG_COMMENTS */ + case DUK_ASC_SLASH: /* '/' */ + if (DUK__L1() == DUK_ASC_SLASH) { + /* + * E5 Section 7.4, allow SourceCharacter (which is any 16-bit + * code point). + */ + + /* DUK__ADVANCECHARS(lex_ctx, 2) would be correct here, but not necessary */ + duk__lexer_skip_to_endofline(lex_ctx); + goto restart; /* line terminator will be handled on next round */ + } else if (DUK__L1() == DUK_ASC_STAR) { + /* + * E5 Section 7.4. If the multi-line comment contains a newline, + * it is treated like a single line terminator for automatic + * semicolon insertion. + */ + + duk_bool_t last_asterisk = 0; + DUK__ADVANCECHARS(lex_ctx, 2); + for (;;) { + x = DUK__L0(); + if (x < 0) { + goto fail_unterm_comment; + } + DUK__ADVANCECHARS(lex_ctx, 1); + if (last_asterisk && x == DUK_ASC_SLASH) { + break; + } + if (duk_unicode_is_line_terminator(x)) { + got_lineterm = 1; + } + last_asterisk = (x == DUK_ASC_STAR); + } + goto restart_lineupdate; + } else if (regexp_mode) { +#if defined(DUK_USE_REGEXP_SUPPORT) + /* + * "/" followed by something in regexp mode. See E5 Section 7.8.5. + * + * RegExp parsing is a bit complex. First, the regexp body is delimited + * by forward slashes, but the body may also contain forward slashes as + * part of an escape sequence or inside a character class (delimited by + * square brackets). A mini state machine is used to implement these. + * + * Further, an early (parse time) error must be thrown if the regexp + * would cause a run-time error when used in the expression new RegExp(...). + * Parsing here simply extracts the (candidate) regexp, and also accepts + * invalid regular expressions (which are delimited properly). The caller + * (compiler) must perform final validation and regexp compilation. + * + * RegExp first char may not be '/' (single line comment) or '*' (multi- + * line comment). These have already been checked above, so there is no + * need below for special handling of the first regexp character as in + * the E5 productions. + * + * About unicode escapes within regexp literals: + * + * E5 Section 7.8.5 grammar does NOT accept \uHHHH escapes. + * However, Section 6 states that regexps accept the escapes, + * see paragraph starting with "In string literals...". + * The regexp grammar, which sees the decoded regexp literal + * (after lexical parsing) DOES have a \uHHHH unicode escape. + * So, for instance: + * + * /\u1234/ + * + * should first be parsed by the lexical grammar as: + * + * '\' 'u' RegularExpressionBackslashSequence + * '1' RegularExpressionNonTerminator + * '2' RegularExpressionNonTerminator + * '3' RegularExpressionNonTerminator + * '4' RegularExpressionNonTerminator + * + * and the escape itself is then parsed by the regexp engine. + * This is the current implementation. + * + * Minor spec inconsistency: + * + * E5 Section 7.8.5 RegularExpressionBackslashSequence is: + * + * \ RegularExpressionNonTerminator + * + * while Section A.1 RegularExpressionBackslashSequence is: + * + * \ NonTerminator + * + * The latter is not normative and a typo. + * + */ + + /* first, parse regexp body roughly */ + + duk_small_int_t state = 0; /* 0=base, 1=esc, 2=class, 3=class+esc */ + + DUK__INITBUFFER(lex_ctx); + for (;;) { + DUK__ADVANCECHARS(lex_ctx, 1); /* skip opening slash on first loop */ + x = DUK__L0(); + if (x < 0 || duk_unicode_is_line_terminator(x)) { + goto fail_unterm_regexp; + } + x = DUK__L0(); /* re-read to avoid spill / fetch */ + if (state == 0) { + if (x == DUK_ASC_SLASH) { + DUK__ADVANCECHARS(lex_ctx, 1); /* eat closing slash */ + break; + } else if (x == DUK_ASC_BACKSLASH) { + state = 1; + } else if (x == DUK_ASC_LBRACKET) { + state = 2; + } + } else if (state == 1) { + state = 0; + } else if (state == 2) { + if (x == DUK_ASC_RBRACKET) { + state = 0; + } else if (x == DUK_ASC_BACKSLASH) { + state = 3; + } + } else { /* state == 3 */ + state = 2; + } + DUK__APPENDBUFFER(lex_ctx, x); + } + out_token->str1 = duk__internbuffer(lex_ctx, lex_ctx->slot1_idx); + + /* second, parse flags */ + + DUK__INITBUFFER(lex_ctx); + for (;;) { + x = DUK__L0(); + if (!duk_unicode_is_identifier_part(x)) { + break; + } + x = DUK__L0(); /* re-read to avoid spill / fetch */ + DUK__APPENDBUFFER(lex_ctx, x); + DUK__ADVANCECHARS(lex_ctx, 1); + } + out_token->str2 = duk__internbuffer(lex_ctx, lex_ctx->slot2_idx); + + DUK__INITBUFFER(lex_ctx); /* free some memory */ + + /* validation of the regexp is caller's responsibility */ + + advtok = DUK__ADVTOK(0, DUK_TOK_REGEXP); +#else /* DUK_USE_REGEXP_SUPPORT */ + goto fail_regexp_support; +#endif /* DUK_USE_REGEXP_SUPPORT */ + } else if (DUK__L1() == DUK_ASC_EQUALS) { + /* "/=" and not in regexp mode */ + advtok = DUK__ADVTOK(2, DUK_TOK_DIV_EQ); + } else { + /* "/" and not in regexp mode */ + advtok = DUK__ADVTOK(1, DUK_TOK_DIV); + } + break; + case DUK_ASC_LCURLY: /* '{' */ + advtok = DUK__ADVTOK(1, DUK_TOK_LCURLY); + break; + case DUK_ASC_RCURLY: /* '}' */ + advtok = DUK__ADVTOK(1, DUK_TOK_RCURLY); + break; + case DUK_ASC_LPAREN: /* '(' */ + advtok = DUK__ADVTOK(1, DUK_TOK_LPAREN); + break; + case DUK_ASC_RPAREN: /* ')' */ + advtok = DUK__ADVTOK(1, DUK_TOK_RPAREN); + break; + case DUK_ASC_LBRACKET: /* '[' */ + advtok = DUK__ADVTOK(1, DUK_TOK_LBRACKET); + break; + case DUK_ASC_RBRACKET: /* ']' */ + advtok = DUK__ADVTOK(1, DUK_TOK_RBRACKET); + break; + case DUK_ASC_PERIOD: /* '.' */ + if (DUK__ISDIGIT(DUK__L1())) { + /* Period followed by a digit can only start DecimalLiteral + * (handled in slow path). We could jump straight into the + * DecimalLiteral handling but should avoid goto to inside + * a block. + */ + goto slow_path; + } + advtok = DUK__ADVTOK(1, DUK_TOK_PERIOD); + break; + case DUK_ASC_SEMICOLON: /* ';' */ + advtok = DUK__ADVTOK(1, DUK_TOK_SEMICOLON); + break; + case DUK_ASC_COMMA: /* ',' */ + advtok = DUK__ADVTOK(1, DUK_TOK_COMMA); + break; + case DUK_ASC_LANGLE: /* '<' */ +#if defined(DUK_USE_HTML_COMMENTS) + if (DUK__L1() == DUK_ASC_EXCLAMATION && DUK__L2() == DUK_ASC_MINUS && DUK__L3() == DUK_ASC_MINUS) { + /* + * ES2015: B.1.3, handle "" SingleLineHTMLCloseComment + * Only allowed: + * - on new line + * - preceded only by whitespace + * - preceded by end of multiline comment and optional whitespace + * + * Since whitespace generates no tokens, and multiline comments + * are treated as a line ending, consulting `got_lineterm` is + * sufficient to test for these three options. + */ + + /* DUK__ADVANCECHARS(lex_ctx, 3) would be correct here, but not necessary */ + duk__lexer_skip_to_endofline(lex_ctx); + goto restart; /* line terminator will be handled on next round */ + } else +#endif /* DUK_USE_HTML_COMMENTS */ + if (DUK__L1() == DUK_ASC_MINUS) { + advtok = DUK__ADVTOK(2, DUK_TOK_DECREMENT); + } else if (DUK__L1() == DUK_ASC_EQUALS) { + advtok = DUK__ADVTOK(2, DUK_TOK_SUB_EQ); + } else { + advtok = DUK__ADVTOK(1, DUK_TOK_SUB); + } + break; + case DUK_ASC_STAR: /* '*' */ +#if defined(DUK_USE_ES7_EXP_OPERATOR) + if (DUK__L1() == DUK_ASC_STAR && DUK__L2() == DUK_ASC_EQUALS) { + advtok = DUK__ADVTOK(3, DUK_TOK_EXP_EQ); + } else if (DUK__L1() == DUK_ASC_STAR) { + advtok = DUK__ADVTOK(2, DUK_TOK_EXP); + } else +#endif + if (DUK__L1() == DUK_ASC_EQUALS) { + advtok = DUK__ADVTOK(2, DUK_TOK_MUL_EQ); + } else { + advtok = DUK__ADVTOK(1, DUK_TOK_MUL); + } + break; + case DUK_ASC_PERCENT: /* '%' */ + if (DUK__L1() == DUK_ASC_EQUALS) { + advtok = DUK__ADVTOK(2, DUK_TOK_MOD_EQ); + } else { + advtok = DUK__ADVTOK(1, DUK_TOK_MOD); + } + break; + case DUK_ASC_AMP: /* '&' */ + if (DUK__L1() == DUK_ASC_AMP) { + advtok = DUK__ADVTOK(2, DUK_TOK_LAND); + } else if (DUK__L1() == DUK_ASC_EQUALS) { + advtok = DUK__ADVTOK(2, DUK_TOK_BAND_EQ); + } else { + advtok = DUK__ADVTOK(1, DUK_TOK_BAND); + } + break; + case DUK_ASC_PIPE: /* '|' */ + if (DUK__L1() == DUK_ASC_PIPE) { + advtok = DUK__ADVTOK(2, DUK_TOK_LOR); + } else if (DUK__L1() == DUK_ASC_EQUALS) { + advtok = DUK__ADVTOK(2, DUK_TOK_BOR_EQ); + } else { + advtok = DUK__ADVTOK(1, DUK_TOK_BOR); + } + break; + case DUK_ASC_CARET: /* '^' */ + if (DUK__L1() == DUK_ASC_EQUALS) { + advtok = DUK__ADVTOK(2, DUK_TOK_BXOR_EQ); + } else { + advtok = DUK__ADVTOK(1, DUK_TOK_BXOR); + } + break; + case DUK_ASC_TILDE: /* '~' */ + advtok = DUK__ADVTOK(1, DUK_TOK_BNOT); + break; + case DUK_ASC_QUESTION: /* '?' */ + advtok = DUK__ADVTOK(1, DUK_TOK_QUESTION); + break; + case DUK_ASC_COLON: /* ':' */ + advtok = DUK__ADVTOK(1, DUK_TOK_COLON); + break; + case DUK_ASC_DOUBLEQUOTE: /* '"' */ + case DUK_ASC_SINGLEQUOTE: { /* '\'' */ + DUK__INITBUFFER(lex_ctx); + duk__lexer_parse_string_literal(lex_ctx, out_token, x /*quote*/, strict_mode); + duk__internbuffer(lex_ctx, lex_ctx->slot1_idx); + out_token->str1 = duk_known_hstring(lex_ctx->thr, lex_ctx->slot1_idx); + + DUK__INITBUFFER(lex_ctx); /* free some memory */ + + advtok = DUK__ADVTOK(0, DUK_TOK_STRING); + break; + } + default: + goto slow_path; + } /* switch */ + + goto skip_slow_path; + + slow_path: + if (duk_unicode_is_line_terminator(x)) { + if (x == 0x000d && DUK__L1() == 0x000a) { + /* + * E5 Section 7.3: CR LF is detected as a single line terminator for + * line numbers. Here we also detect it as a single line terminator + * token. + */ + DUK__ADVANCECHARS(lex_ctx, 2); + } else { + DUK__ADVANCECHARS(lex_ctx, 1); + } + got_lineterm = 1; + goto restart_lineupdate; + } else if (duk_unicode_is_identifier_start(x) || x == DUK_ASC_BACKSLASH) { + /* + * Parse an identifier and then check whether it is: + * - reserved word (keyword or other reserved word) + * - "null" (NullLiteral) + * - "true" (BooleanLiteral) + * - "false" (BooleanLiteral) + * - anything else => identifier + * + * This does not follow the E5 productions cleanly, but is + * useful and compact. + * + * Note that identifiers may contain Unicode escapes, + * see E5 Sections 6 and 7.6. They must be decoded first, + * and the result checked against allowed characters. + * The above if-clause accepts an identifier start and an + * '\' character -- no other token can begin with a '\'. + * + * Note that "get" and "set" are not reserved words in E5 + * specification so they are recognized as plain identifiers + * (the tokens DUK_TOK_GET and DUK_TOK_SET are actually not + * used now). The compiler needs to work around this. + * + * Strictly speaking, following ECMAScript longest match + * specification, an invalid escape for the first character + * should cause a syntax error. However, an invalid escape + * for IdentifierParts should just terminate the identifier + * early (longest match), and let the next tokenization + * fail. For instance Rhino croaks with 'foo\z' when + * parsing the identifier. This has little practical impact. + */ + + duk_small_uint_t i, i_end; + duk_bool_t first = 1; + duk_hstring *str; + + DUK__INITBUFFER(lex_ctx); + for (;;) { + /* re-lookup first char on first loop */ + if (DUK__L0() == DUK_ASC_BACKSLASH) { + duk_codepoint_t esc_cp; + if (DUK__L1() != DUK_ASC_LC_U) { + goto fail_escape; + } + esc_cp = duk__lexer_parse_escape(lex_ctx, 1 /*allow_es6*/); + DUK__APPENDBUFFER(lex_ctx, esc_cp); + + /* IdentifierStart is stricter than IdentifierPart, so if the first + * character is escaped, must have a stricter check here. + */ + if (!(first ? duk_unicode_is_identifier_start(esc_cp) : duk_unicode_is_identifier_part(esc_cp))) { + goto fail_escape; + } + + /* Track number of escapes: necessary for proper keyword + * detection. + */ + out_token->num_escapes++; + } else { + /* Note: first character is checked against this. But because + * IdentifierPart includes all IdentifierStart characters, and + * the first character (if unescaped) has already been checked + * in the if condition, this is OK. + */ + if (!duk_unicode_is_identifier_part(DUK__L0())) { + break; + } + DUK__APPENDBUFFER(lex_ctx, DUK__L0()); + DUK__ADVANCECHARS(lex_ctx, 1); + } + first = 0; + } + + out_token->str1 = duk__internbuffer(lex_ctx, lex_ctx->slot1_idx); + str = out_token->str1; + out_token->t_nores = DUK_TOK_IDENTIFIER; + + DUK__INITBUFFER(lex_ctx); /* free some memory */ + + /* + * Interned identifier is compared against reserved words, which are + * currently interned into the heap context. See genbuiltins.py. + * + * Note that an escape in the identifier disables recognition of + * keywords; e.g. "\u0069f = 1;" is a valid statement (assigns to + * identifier named "if"). This is not necessarily compliant, + * see test-dec-escaped-char-in-keyword.js. + * + * Note: "get" and "set" are awkward. They are not officially + * ReservedWords (and indeed e.g. "var set = 1;" is valid), and + * must come out as DUK_TOK_IDENTIFIER. The compiler needs to + * work around this a bit. + */ + + /* XXX: optimize by adding the token numbers directly into the + * always interned duk_hstring objects (there should be enough + * flag bits free for that)? + */ + + i_end = (strict_mode ? DUK_STRIDX_END_RESERVED : DUK_STRIDX_START_STRICT_RESERVED); + + advtok = DUK__ADVTOK(0, DUK_TOK_IDENTIFIER); + if (out_token->num_escapes == 0) { + for (i = DUK_STRIDX_START_RESERVED; i < i_end; i++) { + DUK_ASSERT_DISABLE(i >= 0); /* unsigned */ + DUK_ASSERT(i < DUK_HEAP_NUM_STRINGS); + if (DUK_HTHREAD_GET_STRING(lex_ctx->thr, i) == str) { + advtok = DUK__ADVTOK(0, DUK_STRIDX_TO_TOK(i)); + break; + } + } + } + } else if (DUK__ISDIGIT(x) || (x == DUK_ASC_PERIOD)) { + /* Note: decimal number may start with a period, but must be followed by a digit */ + + /* + * Pre-parsing for decimal, hex, octal (both legacy and ES2015), + * and binary literals, followed by an actual parser step + * provided by numconv. + * + * Note: the leading sign character ('+' or '-') is -not- part of + * the production in E5 grammar, and that the a DecimalLiteral + * starting with a '0' must be followed by a non-digit. + * + * XXX: the two step parsing process is quite awkward, it would + * be more straightforward to allow numconv to parse the longest + * valid prefix (it already does that, it only needs to indicate + * where the input ended). However, the lexer decodes characters + * using a limited lookup window, so this is not a trivial change. + */ + + /* XXX: because of the final check below (that the literal is not + * followed by a digit), this could maybe be simplified, if we bail + * out early from a leading zero (and if there are no periods etc). + * Maybe too complex. + */ + + duk_double_t val; + duk_bool_t legacy_oct = 0; + duk_small_int_t state; /* 0=before period/exp, + * 1=after period, before exp + * 2=after exp, allow '+' or '-' + * 3=after exp and exp sign + */ + duk_small_uint_t s2n_flags; + duk_codepoint_t y, z; + duk_small_int_t s2n_radix = 10; + duk_small_uint_t pre_adv = 0; + + DUK__INITBUFFER(lex_ctx); + y = DUK__L1(); + + if (x == DUK_ASC_0) { + z = DUK_LOWERCASE_CHAR_ASCII(y); + + pre_adv = 2; /* default for 0xNNN, 0oNNN, 0bNNN. */ + if (z == DUK_ASC_LC_X) { + s2n_radix = 16; + } else if (z == DUK_ASC_LC_O) { + s2n_radix = 8; + } else if (z == DUK_ASC_LC_B) { + s2n_radix = 2; + } else { + pre_adv = 0; + if (DUK__ISDIGIT(y)) { + if (strict_mode) { + /* Reject octal like \07 but also octal-lookalike + * decimal like \08 in strict mode. + */ + goto fail_number_literal; + } else { + /* Legacy OctalIntegerLiteral or octal-lookalice + * decimal. Deciding between the two happens below + * in digit scanning. + */ + DUK__APPENDBUFFER(lex_ctx, x); + pre_adv = 1; + legacy_oct = 1; + s2n_radix = 8; /* tentative unless conflicting digits found */ + } + } + } + } + + DUK__ADVANCECHARS(lex_ctx, pre_adv); + + /* XXX: we could parse integers here directly, and fall back + * to numconv only when encountering a fractional expression + * or when an octal literal turned out to be decimal (0778 etc). + */ + state = 0; + for (;;) { + x = DUK__L0(); /* re-lookup curr char on first round */ + if (DUK__ISDIGIT(x)) { + /* Note: intentionally allow leading zeroes here, as the + * actual parser will check for them. + */ + if (state == 0 && legacy_oct && (x == DUK_ASC_8 || x == DUK_ASC_9)) { + /* Started out as an octal-lookalike + * but interpreted as decimal, e.g. + * '0779' -> 779. This also means + * that fractions are allowed, e.g. + * '0779.123' is allowed but '0777.123' + * is not! + */ + s2n_radix = 10; + } + if (state == 2) { + state = 3; + } + } else if (s2n_radix == 16 && DUK__ISHEXDIGIT(x)) { + /* Note: 'e' and 'E' are also accepted here. */ + ; + } else if (x == DUK_ASC_PERIOD) { + if (state >= 1 || s2n_radix != 10) { + break; + } else { + state = 1; + } + } else if (x == DUK_ASC_LC_E || x == DUK_ASC_UC_E) { + if (state >= 2 || s2n_radix != 10) { + break; + } else { + state = 2; + } + } else if (x == DUK_ASC_MINUS || x == DUK_ASC_PLUS) { + if (state != 2) { + break; + } else { + state = 3; + } + } else { + break; + } + DUK__APPENDBUFFER(lex_ctx, x); + DUK__ADVANCECHARS(lex_ctx, 1); + } + + /* XXX: better coercion */ + (void) duk__internbuffer(lex_ctx, lex_ctx->slot1_idx); + + if (s2n_radix != 10) { + /* For bases other than 10, integer only. */ + s2n_flags = DUK_S2N_FLAG_ALLOW_LEADING_ZERO; + } else { + s2n_flags = DUK_S2N_FLAG_ALLOW_EXP | + DUK_S2N_FLAG_ALLOW_FRAC | + DUK_S2N_FLAG_ALLOW_NAKED_FRAC | + DUK_S2N_FLAG_ALLOW_EMPTY_FRAC | + DUK_S2N_FLAG_ALLOW_LEADING_ZERO; + } + + duk_dup(lex_ctx->thr, lex_ctx->slot1_idx); + duk_numconv_parse(lex_ctx->thr, s2n_radix, s2n_flags); + val = duk_to_number_m1(lex_ctx->thr); + if (DUK_ISNAN(val)) { + goto fail_number_literal; + } + duk_replace(lex_ctx->thr, lex_ctx->slot1_idx); /* could also just pop? */ + + DUK__INITBUFFER(lex_ctx); /* free some memory */ + + /* Section 7.8.3 (note): NumericLiteral must be followed by something other than + * IdentifierStart or DecimalDigit. + */ + + if (DUK__ISDIGIT(DUK__L0()) || duk_unicode_is_identifier_start(DUK__L0())) { + goto fail_number_literal; + } + + out_token->num = val; + advtok = DUK__ADVTOK(0, DUK_TOK_NUMBER); + } else if (duk_unicode_is_whitespace(DUK__LOOKUP(lex_ctx, 0))) { + DUK__ADVANCECHARS(lex_ctx, 1); + goto restart; + } else if (x < 0) { + advtok = DUK__ADVTOK(0, DUK_TOK_EOF); + } else { + goto fail_token; + } + skip_slow_path: + + /* + * Shared exit path + */ + + DUK__ADVANCEBYTES(lex_ctx, advtok >> 8); + out_token->t = advtok & 0xff; + if (out_token->t_nores == DUK_TOK_INVALID) { + out_token->t_nores = out_token->t; + } + out_token->lineterm = got_lineterm; + + /* Automatic semicolon insertion is allowed if a token is preceded + * by line terminator(s), or terminates a statement list (right curly + * or EOF). + */ + if (got_lineterm || out_token->t == DUK_TOK_RCURLY || out_token->t == DUK_TOK_EOF) { + out_token->allow_auto_semi = 1; + } else { + out_token->allow_auto_semi = 0; + } + + return; + + fail_token_limit: + DUK_ERROR_RANGE(lex_ctx->thr, DUK_STR_TOKEN_LIMIT); + DUK_WO_NORETURN(return;); + + fail_token: + DUK_ERROR_SYNTAX(lex_ctx->thr, DUK_STR_INVALID_TOKEN); + DUK_WO_NORETURN(return;); + + fail_number_literal: + DUK_ERROR_SYNTAX(lex_ctx->thr, DUK_STR_INVALID_NUMBER_LITERAL); + DUK_WO_NORETURN(return;); + + fail_escape: + DUK_ERROR_SYNTAX(lex_ctx->thr, DUK_STR_INVALID_ESCAPE); + DUK_WO_NORETURN(return;); + + fail_unterm_regexp: + DUK_ERROR_SYNTAX(lex_ctx->thr, DUK_STR_UNTERMINATED_REGEXP); + DUK_WO_NORETURN(return;); + + fail_unterm_comment: + DUK_ERROR_SYNTAX(lex_ctx->thr, DUK_STR_UNTERMINATED_COMMENT); + DUK_WO_NORETURN(return;); + +#if !defined(DUK_USE_REGEXP_SUPPORT) + fail_regexp_support: + DUK_ERROR_SYNTAX(lex_ctx->thr, DUK_STR_REGEXP_SUPPORT_DISABLED); + DUK_WO_NORETURN(return;); +#endif +} + +#if defined(DUK_USE_REGEXP_SUPPORT) + +/* + * Parse a RegExp token. The grammar is described in E5 Section 15.10. + * Terminal constructions (such as quantifiers) are parsed directly here. + * + * 0xffffffffU is used as a marker for "infinity" in quantifiers. Further, + * DUK__MAX_RE_QUANT_DIGITS limits the maximum number of digits that + * will be accepted for a quantifier. + */ + +DUK_INTERNAL void duk_lexer_parse_re_token(duk_lexer_ctx *lex_ctx, duk_re_token *out_token) { + duk_small_uint_t advtok = 0; /* init is unnecessary but suppresses "may be used uninitialized" warnings */ + duk_codepoint_t x, y; + + if (++lex_ctx->token_count >= lex_ctx->token_limit) { + goto fail_token_limit; + } + + duk_memzero(out_token, sizeof(*out_token)); + + x = DUK__L0(); + y = DUK__L1(); + + DUK_DDD(DUK_DDDPRINT("parsing regexp token, L0=%ld, L1=%ld", (long) x, (long) y)); + + switch (x) { + case DUK_ASC_PIPE: { + advtok = DUK__ADVTOK(1, DUK_RETOK_DISJUNCTION); + break; + } + case DUK_ASC_CARET: { + advtok = DUK__ADVTOK(1, DUK_RETOK_ASSERT_START); + break; + } + case DUK_ASC_DOLLAR: { + advtok = DUK__ADVTOK(1, DUK_RETOK_ASSERT_END); + break; + } + case DUK_ASC_QUESTION: { + out_token->qmin = 0; + out_token->qmax = 1; + if (y == DUK_ASC_QUESTION) { + advtok = DUK__ADVTOK(2, DUK_RETOK_QUANTIFIER); + out_token->greedy = 0; + } else { + advtok = DUK__ADVTOK(1, DUK_RETOK_QUANTIFIER); + out_token->greedy = 1; + } + break; + } + case DUK_ASC_STAR: { + out_token->qmin = 0; + out_token->qmax = DUK_RE_QUANTIFIER_INFINITE; + if (y == DUK_ASC_QUESTION) { + advtok = DUK__ADVTOK(2, DUK_RETOK_QUANTIFIER); + out_token->greedy = 0; + } else { + advtok = DUK__ADVTOK(1, DUK_RETOK_QUANTIFIER); + out_token->greedy = 1; + } + break; + } + case DUK_ASC_PLUS: { + out_token->qmin = 1; + out_token->qmax = DUK_RE_QUANTIFIER_INFINITE; + if (y == DUK_ASC_QUESTION) { + advtok = DUK__ADVTOK(2, DUK_RETOK_QUANTIFIER); + out_token->greedy = 0; + } else { + advtok = DUK__ADVTOK(1, DUK_RETOK_QUANTIFIER); + out_token->greedy = 1; + } + break; + } + case DUK_ASC_LCURLY: { + /* Production allows 'DecimalDigits', including leading zeroes */ + duk_uint32_t val1 = 0; + duk_uint32_t val2 = DUK_RE_QUANTIFIER_INFINITE; + duk_small_int_t digits = 0; +#if defined(DUK_USE_ES6_REGEXP_SYNTAX) + duk_lexer_point lex_pt; +#endif + +#if defined(DUK_USE_ES6_REGEXP_SYNTAX) + /* Store lexer position, restoring if quantifier is invalid. */ + DUK_LEXER_GETPOINT(lex_ctx, &lex_pt); +#endif + + for (;;) { + DUK__ADVANCECHARS(lex_ctx, 1); /* eat '{' on entry */ + x = DUK__L0(); + if (DUK__ISDIGIT(x)) { + digits++; + val1 = val1 * 10 + (duk_uint32_t) duk__hexval(x); + } else if (x == DUK_ASC_COMMA) { + if (digits > DUK__MAX_RE_QUANT_DIGITS) { + goto invalid_quantifier; + } + if (val2 != DUK_RE_QUANTIFIER_INFINITE) { + goto invalid_quantifier; + } + if (DUK__L1() == DUK_ASC_RCURLY) { + /* form: { DecimalDigits , }, val1 = min count */ + if (digits == 0) { + goto invalid_quantifier; + } + out_token->qmin = val1; + out_token->qmax = DUK_RE_QUANTIFIER_INFINITE; + DUK__ADVANCECHARS(lex_ctx, 2); + break; + } + val2 = val1; + val1 = 0; + digits = 0; /* not strictly necessary because of lookahead '}' above */ + } else if (x == DUK_ASC_RCURLY) { + if (digits > DUK__MAX_RE_QUANT_DIGITS) { + goto invalid_quantifier; + } + if (digits == 0) { + goto invalid_quantifier; + } + if (val2 != DUK_RE_QUANTIFIER_INFINITE) { + /* val2 = min count, val1 = max count */ + out_token->qmin = val2; + out_token->qmax = val1; + } else { + /* val1 = count */ + out_token->qmin = val1; + out_token->qmax = val1; + } + DUK__ADVANCECHARS(lex_ctx, 1); + break; + } else { + goto invalid_quantifier; + } + } + if (DUK__L0() == DUK_ASC_QUESTION) { + out_token->greedy = 0; + DUK__ADVANCECHARS(lex_ctx, 1); + } else { + out_token->greedy = 1; + } + advtok = DUK__ADVTOK(0, DUK_RETOK_QUANTIFIER); + break; + invalid_quantifier: +#if defined(DUK_USE_ES6_REGEXP_SYNTAX) + /* Failed to match the quantifier, restore lexer and parse + * opening brace as a literal. + */ + DUK_LEXER_SETPOINT(lex_ctx, &lex_pt); + advtok = DUK__ADVTOK(1, DUK_RETOK_ATOM_CHAR); + out_token->num = DUK_ASC_LCURLY; +#else + goto fail_quantifier; +#endif + break; + } + case DUK_ASC_PERIOD: { + advtok = DUK__ADVTOK(1, DUK_RETOK_ATOM_PERIOD); + break; + } + case DUK_ASC_BACKSLASH: { + /* The E5.1 specification does not seem to allow IdentifierPart characters + * to be used as identity escapes. Unfortunately this includes '$', which + * cannot be escaped as '\$'; it needs to be escaped e.g. as '\u0024'. + * Many other implementations (including V8 and Rhino, for instance) do + * accept '\$' as a valid identity escape, which is quite pragmatic, and + * ES2015 Annex B relaxes the rules to allow these (and other) real world forms. + */ + + advtok = DUK__ADVTOK(2, DUK_RETOK_ATOM_CHAR); /* default: char escape (two chars) */ + if (y == DUK_ASC_LC_B) { + advtok = DUK__ADVTOK(2, DUK_RETOK_ASSERT_WORD_BOUNDARY); + } else if (y == DUK_ASC_UC_B) { + advtok = DUK__ADVTOK(2, DUK_RETOK_ASSERT_NOT_WORD_BOUNDARY); + } else if (y == DUK_ASC_LC_F) { + out_token->num = 0x000c; + } else if (y == DUK_ASC_LC_N) { + out_token->num = 0x000a; + } else if (y == DUK_ASC_LC_T) { + out_token->num = 0x0009; + } else if (y == DUK_ASC_LC_R) { + out_token->num = 0x000d; + } else if (y == DUK_ASC_LC_V) { + out_token->num = 0x000b; + } else if (y == DUK_ASC_LC_C) { + x = DUK__L2(); + if ((x >= DUK_ASC_LC_A && x <= DUK_ASC_LC_Z) || + (x >= DUK_ASC_UC_A && x <= DUK_ASC_UC_Z)) { + out_token->num = (duk_uint32_t) (x % 32); + advtok = DUK__ADVTOK(3, DUK_RETOK_ATOM_CHAR); + } else { + goto fail_escape; + } + } else if (y == DUK_ASC_LC_X || y == DUK_ASC_LC_U) { + /* The token value is the Unicode codepoint without + * it being decode into surrogate pair characters + * here. The \u{H+} is only allowed in Unicode mode + * which we don't support yet. + */ + out_token->num = (duk_uint32_t) duk__lexer_parse_escape(lex_ctx, 0 /*allow_es6*/); + advtok = DUK__ADVTOK(0, DUK_RETOK_ATOM_CHAR); + } else if (y == DUK_ASC_LC_D) { + advtok = DUK__ADVTOK(2, DUK_RETOK_ATOM_DIGIT); + } else if (y == DUK_ASC_UC_D) { + advtok = DUK__ADVTOK(2, DUK_RETOK_ATOM_NOT_DIGIT); + } else if (y == DUK_ASC_LC_S) { + advtok = DUK__ADVTOK(2, DUK_RETOK_ATOM_WHITE); + } else if (y == DUK_ASC_UC_S) { + advtok = DUK__ADVTOK(2, DUK_RETOK_ATOM_NOT_WHITE); + } else if (y == DUK_ASC_LC_W) { + advtok = DUK__ADVTOK(2, DUK_RETOK_ATOM_WORD_CHAR); + } else if (y == DUK_ASC_UC_W) { + advtok = DUK__ADVTOK(2, DUK_RETOK_ATOM_NOT_WORD_CHAR); + } else if (DUK__ISDIGIT(y)) { + /* E5 Section 15.10.2.11 */ + if (y == DUK_ASC_0) { + if (DUK__ISDIGIT(DUK__L2())) { + goto fail_escape; + } + out_token->num = 0x0000; + advtok = DUK__ADVTOK(2, DUK_RETOK_ATOM_CHAR); + } else { + /* XXX: shared parsing? */ + duk_uint32_t val = 0; + duk_small_int_t i; + for (i = 0; ; i++) { + if (i >= DUK__MAX_RE_DECESC_DIGITS) { + goto fail_escape; + } + DUK__ADVANCECHARS(lex_ctx, 1); /* eat backslash on entry */ + x = DUK__L0(); + if (!DUK__ISDIGIT(x)) { + break; + } + val = val * 10 + (duk_uint32_t) duk__hexval(x); + } + /* DUK__L0() cannot be a digit, because the loop doesn't terminate if it is */ + advtok = DUK__ADVTOK(0, DUK_RETOK_ATOM_BACKREFERENCE); + out_token->num = val; + } +#if defined(DUK_USE_ES6_REGEXP_SYNTAX) + } else if (y >= 0) { + /* For ES2015 Annex B, accept any source character as identity + * escape except 'c' which is used for control characters. + * http://www.ecma-international.org/ecma-262/6.0/#sec-regular-expressions-patterns + * Careful not to match end-of-buffer (<0) here. + * This is not yet full ES2015 Annex B because cases above + * (like hex escape) won't backtrack. + */ + DUK_ASSERT(y != DUK_ASC_LC_C); /* covered above */ +#else /* DUK_USE_ES6_REGEXP_SYNTAX */ + } else if ((y >= 0 && !duk_unicode_is_identifier_part(y)) || + y == DUK_UNICODE_CP_ZWNJ || + y == DUK_UNICODE_CP_ZWJ) { + /* For ES5.1 identity escapes are not allowed for identifier + * parts. This conflicts with a lot of real world code as this + * doesn't e.g. allow escaping a dollar sign as /\$/, see + * test-regexp-identity-escape-dollar.js. + */ +#endif /* DUK_USE_ES6_REGEXP_SYNTAX */ + out_token->num = (duk_uint32_t) y; + } else { + goto fail_escape; + } + break; + } + case DUK_ASC_LPAREN: { + /* XXX: naming is inconsistent: ATOM_END_GROUP ends an ASSERT_START_LOOKAHEAD */ + + if (y == DUK_ASC_QUESTION) { + if (DUK__L2() == DUK_ASC_EQUALS) { + /* (?= */ + advtok = DUK__ADVTOK(3, DUK_RETOK_ASSERT_START_POS_LOOKAHEAD); + } else if (DUK__L2() == DUK_ASC_EXCLAMATION) { + /* (?! */ + advtok = DUK__ADVTOK(3, DUK_RETOK_ASSERT_START_NEG_LOOKAHEAD); + } else if (DUK__L2() == DUK_ASC_COLON) { + /* (?: */ + advtok = DUK__ADVTOK(3, DUK_RETOK_ATOM_START_NONCAPTURE_GROUP); + } else { + goto fail_group; + } + } else { + /* ( */ + advtok = DUK__ADVTOK(1, DUK_RETOK_ATOM_START_CAPTURE_GROUP); + } + break; + } + case DUK_ASC_RPAREN: { + advtok = DUK__ADVTOK(1, DUK_RETOK_ATOM_END_GROUP); + break; + } + case DUK_ASC_LBRACKET: { + /* + * To avoid creating a heavy intermediate value for the list of ranges, + * only the start token ('[' or '[^') is parsed here. The regexp + * compiler parses the ranges itself. + */ + + /* XXX: with DUK_USE_ES6_REGEXP_SYNTAX we should allow left bracket + * literal too, but it's not easy to parse without backtracking. + */ + + advtok = DUK__ADVTOK(1, DUK_RETOK_ATOM_START_CHARCLASS); + if (y == DUK_ASC_CARET) { + advtok = DUK__ADVTOK(2, DUK_RETOK_ATOM_START_CHARCLASS_INVERTED); + } + break; + } +#if !defined(DUK_USE_ES6_REGEXP_SYNTAX) + case DUK_ASC_RCURLY: + case DUK_ASC_RBRACKET: { + /* Although these could be parsed as PatternCharacters unambiguously (here), + * E5 Section 15.10.1 grammar explicitly forbids these as PatternCharacters. + */ + goto fail_invalid_char; + break; + } +#endif + case -1: { + /* EOF */ + advtok = DUK__ADVTOK(0, DUK_TOK_EOF); + break; + } + default: { + /* PatternCharacter, all excluded characters are matched by cases above */ + advtok = DUK__ADVTOK(1, DUK_RETOK_ATOM_CHAR); + out_token->num = (duk_uint32_t) x; + break; + } + } + + /* + * Shared exit path + */ + + DUK__ADVANCEBYTES(lex_ctx, advtok >> 8); + out_token->t = advtok & 0xff; + return; + + fail_token_limit: + DUK_ERROR_RANGE(lex_ctx->thr, DUK_STR_TOKEN_LIMIT); + DUK_WO_NORETURN(return;); + + fail_escape: + DUK_ERROR_SYNTAX(lex_ctx->thr, DUK_STR_INVALID_REGEXP_ESCAPE); + DUK_WO_NORETURN(return;); + + fail_group: + DUK_ERROR_SYNTAX(lex_ctx->thr, DUK_STR_INVALID_REGEXP_GROUP); + DUK_WO_NORETURN(return;); + +#if !defined(DUK_USE_ES6_REGEXP_SYNTAX) + fail_invalid_char: + DUK_ERROR_SYNTAX(lex_ctx->thr, DUK_STR_INVALID_REGEXP_CHARACTER); + DUK_WO_NORETURN(return;); + + fail_quantifier: + DUK_ERROR_SYNTAX(lex_ctx->thr, DUK_STR_INVALID_QUANTIFIER); + DUK_WO_NORETURN(return;); +#endif +} + +/* + * Special parser for character classes; calls callback for every + * range parsed and returns the number of ranges present. + */ + +/* XXX: this duplicates functionality in duk_regexp.c where a similar loop is + * required anyway. We could use that BUT we need to update the regexp compiler + * 'nranges' too. Work this out a bit more cleanly to save space. + */ + +/* XXX: the handling of character range detection is a bit convoluted. + * Try to simplify and make smaller. + */ + +/* XXX: logic for handling character ranges is now incorrect, it will accept + * e.g. [\d-z] whereas it should croak from it? SMJS accepts this too, though. + * + * Needs a read through and a lot of additional tests. + */ + +DUK_LOCAL +void duk__emit_u16_direct_ranges(duk_lexer_ctx *lex_ctx, + duk_re_range_callback gen_range, + void *userdata, + const duk_uint16_t *ranges, + duk_small_int_t num) { + const duk_uint16_t *ranges_end; + + DUK_UNREF(lex_ctx); + + ranges_end = ranges + num; + while (ranges < ranges_end) { + /* mark range 'direct', bypass canonicalization (see Wiki) */ + gen_range(userdata, (duk_codepoint_t) ranges[0], (duk_codepoint_t) ranges[1], 1); + ranges += 2; + } +} + +DUK_INTERNAL void duk_lexer_parse_re_ranges(duk_lexer_ctx *lex_ctx, duk_re_range_callback gen_range, void *userdata) { + duk_codepoint_t start = -1; + duk_codepoint_t ch; + duk_codepoint_t x; + duk_bool_t dash = 0; + duk_small_uint_t adv = 0; + + DUK_DD(DUK_DDPRINT("parsing regexp ranges")); + + for (;;) { + DUK__ADVANCECHARS(lex_ctx, adv); + adv = 1; + + x = DUK__L0(); + + ch = -1; /* not strictly necessary, but avoids "uninitialized variable" warnings */ + DUK_UNREF(ch); + + if (x < 0) { + goto fail_unterm_charclass; + } else if (x == DUK_ASC_RBRACKET) { + if (start >= 0) { + gen_range(userdata, start, start, 0); + } + DUK__ADVANCECHARS(lex_ctx, 1); /* eat ']' before finishing */ + break; + } else if (x == DUK_ASC_MINUS) { + if (start >= 0 && !dash && DUK__L1() != DUK_ASC_RBRACKET) { + /* '-' as a range indicator */ + dash = 1; + continue; + } else { + /* '-' verbatim */ + ch = x; + } + } else if (x == DUK_ASC_BACKSLASH) { + /* + * The escapes are same as outside a character class, except that \b has a + * different meaning, and \B and backreferences are prohibited (see E5 + * Section 15.10.2.19). However, it's difficult to share code because we + * handle e.g. "\n" very differently: here we generate a single character + * range for it. + */ + + /* XXX: ES2015 surrogate pair handling. */ + + x = DUK__L1(); + + adv = 2; + + if (x == DUK_ASC_LC_B) { + /* Note: '\b' in char class is different than outside (assertion), + * '\B' is not allowed and is caught by the duk_unicode_is_identifier_part() + * check below. + */ + ch = 0x0008; + } else if (x == DUK_ASC_LC_F) { + ch = 0x000c; + } else if (x == DUK_ASC_LC_N) { + ch = 0x000a; + } else if (x == DUK_ASC_LC_T) { + ch = 0x0009; + } else if (x == DUK_ASC_LC_R) { + ch = 0x000d; + } else if (x == DUK_ASC_LC_V) { + ch = 0x000b; + } else if (x == DUK_ASC_LC_C) { + x = DUK__L2(); + adv = 3; + if ((x >= DUK_ASC_LC_A && x <= DUK_ASC_LC_Z) || + (x >= DUK_ASC_UC_A && x <= DUK_ASC_UC_Z)) { + ch = (x % 32); + } else { + goto fail_escape; + } + } else if (x == DUK_ASC_LC_X || x == DUK_ASC_LC_U) { + /* The \u{H+} form is only allowed in Unicode mode which + * we don't support yet. + */ + ch = duk__lexer_parse_escape(lex_ctx, 0 /*allow_es6*/); + adv = 0; + } else if (x == DUK_ASC_LC_D) { + duk__emit_u16_direct_ranges(lex_ctx, + gen_range, + userdata, + duk_unicode_re_ranges_digit, + sizeof(duk_unicode_re_ranges_digit) / sizeof(duk_uint16_t)); + ch = -1; + } else if (x == DUK_ASC_UC_D) { + duk__emit_u16_direct_ranges(lex_ctx, + gen_range, + userdata, + duk_unicode_re_ranges_not_digit, + sizeof(duk_unicode_re_ranges_not_digit) / sizeof(duk_uint16_t)); + ch = -1; + } else if (x == DUK_ASC_LC_S) { + duk__emit_u16_direct_ranges(lex_ctx, + gen_range, + userdata, + duk_unicode_re_ranges_white, + sizeof(duk_unicode_re_ranges_white) / sizeof(duk_uint16_t)); + ch = -1; + } else if (x == DUK_ASC_UC_S) { + duk__emit_u16_direct_ranges(lex_ctx, + gen_range, + userdata, + duk_unicode_re_ranges_not_white, + sizeof(duk_unicode_re_ranges_not_white) / sizeof(duk_uint16_t)); + ch = -1; + } else if (x == DUK_ASC_LC_W) { + duk__emit_u16_direct_ranges(lex_ctx, + gen_range, + userdata, + duk_unicode_re_ranges_wordchar, + sizeof(duk_unicode_re_ranges_wordchar) / sizeof(duk_uint16_t)); + ch = -1; + } else if (x == DUK_ASC_UC_W) { + duk__emit_u16_direct_ranges(lex_ctx, + gen_range, + userdata, + duk_unicode_re_ranges_not_wordchar, + sizeof(duk_unicode_re_ranges_not_wordchar) / sizeof(duk_uint16_t)); + ch = -1; + } else if (DUK__ISDIGIT(x)) { + /* DecimalEscape, only \0 is allowed, no leading + * zeroes are allowed. + * + * ES2015 Annex B also allows (maximal match) legacy + * octal escapes up to \377 and \8 and \9 are + * accepted as literal '8' and '9', also in strict mode. + */ + +#if defined(DUK_USE_ES6_REGEXP_SYNTAX) + ch = duk__lexer_parse_legacy_octal(lex_ctx, &adv, 0 /*reject_annex_b*/); + DUK_ASSERT(ch >= 0); /* no rejections */ +#else + if (x == DUK_ASC_0 && !DUK__ISDIGIT(DUK__L2())) { + ch = 0x0000; + } else { + goto fail_escape; + } +#endif +#if defined(DUK_USE_ES6_REGEXP_SYNTAX) + } else if (x >= 0) { + /* IdentityEscape: ES2015 Annex B allows almost all + * source characters here. Match anything except + * EOF here. + */ + ch = x; +#else /* DUK_USE_ES6_REGEXP_SYNTAX */ + } else if (!duk_unicode_is_identifier_part(x)) { + /* IdentityEscape: ES5.1 doesn't allow identity escape + * for identifier part characters, which conflicts with + * some real world code. For example, it doesn't allow + * /[\$]/ which is awkward. + */ + ch = x; +#endif /* DUK_USE_ES6_REGEXP_SYNTAX */ + } else { + goto fail_escape; + } + } else { + /* character represents itself */ + ch = x; + } + + /* ch is a literal character here or -1 if parsed entity was + * an escape such as "\s". + */ + + if (ch < 0) { + /* multi-character sets not allowed as part of ranges, see + * E5 Section 15.10.2.15, abstract operation CharacterRange. + */ + if (start >= 0) { + if (dash) { + goto fail_range; + } else { + gen_range(userdata, start, start, 0); + start = -1; + /* dash is already 0 */ + } + } + } else { + if (start >= 0) { + if (dash) { + if (start > ch) { + goto fail_range; + } + gen_range(userdata, start, ch, 0); + start = -1; + dash = 0; + } else { + gen_range(userdata, start, start, 0); + start = ch; + /* dash is already 0 */ + } + } else { + start = ch; + } + } + } + + return; + + fail_escape: + DUK_ERROR_SYNTAX(lex_ctx->thr, DUK_STR_INVALID_REGEXP_ESCAPE); + DUK_WO_NORETURN(return;); + + fail_range: + DUK_ERROR_SYNTAX(lex_ctx->thr, DUK_STR_INVALID_RANGE); + DUK_WO_NORETURN(return;); + + fail_unterm_charclass: + DUK_ERROR_SYNTAX(lex_ctx->thr, DUK_STR_UNTERMINATED_CHARCLASS); + DUK_WO_NORETURN(return;); +} + +#endif /* DUK_USE_REGEXP_SUPPORT */ + +/* automatic undefs */ +#undef DUK__ADVANCEBYTES +#undef DUK__ADVANCECHARS +#undef DUK__ADVTOK +#undef DUK__APPENDBUFFER +#undef DUK__APPENDBUFFER_ASCII +#undef DUK__INITBUFFER +#undef DUK__ISDIGIT +#undef DUK__ISDIGIT03 +#undef DUK__ISDIGIT47 +#undef DUK__ISHEXDIGIT +#undef DUK__ISOCTDIGIT +#undef DUK__L0 +#undef DUK__L1 +#undef DUK__L2 +#undef DUK__L3 +#undef DUK__L4 +#undef DUK__L5 +#undef DUK__LOOKUP +#undef DUK__MAX_RE_DECESC_DIGITS +#undef DUK__MAX_RE_QUANT_DIGITS +#line 1 "duk_numconv.c" +/* + * Number-to-string and string-to-number conversions. + * + * Slow path number-to-string and string-to-number conversion is based on + * a Dragon4 variant, with fast paths for small integers. Big integer + * arithmetic is needed for guaranteeing that the conversion is correct + * and uses a minimum number of digits. The big number arithmetic has a + * fixed maximum size and does not require dynamic allocations. + * + * See: doc/number-conversion.rst. + */ + +/* #include duk_internal.h -> already included */ + +#define DUK__IEEE_DOUBLE_EXP_BIAS 1023 +#define DUK__IEEE_DOUBLE_EXP_MIN (-1022) /* biased exp == 0 -> denormal, exp -1022 */ + +#define DUK__DIGITCHAR(x) duk_lc_digits[(x)] + +/* + * Tables generated with util/gennumdigits.py. + * + * duk__str2num_digits_for_radix indicates, for each radix, how many input + * digits should be considered significant for string-to-number conversion. + * The input is also padded to this many digits to give the Dragon4 + * conversion enough (apparent) precision to work with. + * + * duk__str2num_exp_limits indicates, for each radix, the radix-specific + * minimum/maximum exponent values (for a Dragon4 integer mantissa) + * below and above which the number is guaranteed to underflow to zero + * or overflow to Infinity. This allows parsing to keep bigint values + * bounded. + */ + +DUK_LOCAL const duk_uint8_t duk__str2num_digits_for_radix[] = { + 69, 44, 35, 30, 27, 25, 23, 22, 20, 20, /* 2 to 11 */ + 20, 19, 19, 18, 18, 17, 17, 17, 16, 16, /* 12 to 21 */ + 16, 16, 16, 15, 15, 15, 15, 15, 15, 14, /* 22 to 31 */ + 14, 14, 14, 14, 14 /* 31 to 36 */ +}; + +typedef struct { + duk_int16_t upper; + duk_int16_t lower; +} duk__exp_limits; + +DUK_LOCAL const duk__exp_limits duk__str2num_exp_limits[] = { + { 957, -1147 }, { 605, -725 }, { 479, -575 }, { 414, -496 }, + { 372, -446 }, { 342, -411 }, { 321, -384 }, { 304, -364 }, + { 291, -346 }, { 279, -334 }, { 268, -323 }, { 260, -312 }, + { 252, -304 }, { 247, -296 }, { 240, -289 }, { 236, -283 }, + { 231, -278 }, { 227, -273 }, { 223, -267 }, { 220, -263 }, + { 216, -260 }, { 213, -256 }, { 210, -253 }, { 208, -249 }, + { 205, -246 }, { 203, -244 }, { 201, -241 }, { 198, -239 }, + { 196, -237 }, { 195, -234 }, { 193, -232 }, { 191, -230 }, + { 190, -228 }, { 188, -226 }, { 187, -225 }, +}; + +/* + * Limited functionality bigint implementation. + * + * Restricted to non-negative numbers with less than 32 * DUK__BI_MAX_PARTS bits, + * with the caller responsible for ensuring this is never exceeded. No memory + * allocation (except stack) is needed for bigint computation. Operations + * have been tailored for number conversion needs. + * + * Argument order is "assignment order", i.e. target first, then arguments: + * x <- y * z --> duk__bi_mul(x, y, z); + */ + +/* This upper value has been experimentally determined; debug build will check + * bigint size with assertions. + */ +#define DUK__BI_MAX_PARTS 37 /* 37x32 = 1184 bits */ + +#if defined(DUK_USE_DEBUG_LEVEL) && (DUK_USE_DEBUG_LEVEL >= 2) +#define DUK__BI_PRINT(name,x) duk__bi_print((name),(x)) +#else +#define DUK__BI_PRINT(name,x) +#endif + +/* Current size is about 152 bytes. */ +typedef struct { + duk_small_int_t n; + duk_uint32_t v[DUK__BI_MAX_PARTS]; /* low to high */ +} duk__bigint; + +#if defined(DUK_USE_DEBUG_LEVEL) && (DUK_USE_DEBUG_LEVEL >= 2) +DUK_LOCAL void duk__bi_print(const char *name, duk__bigint *x) { + /* Overestimate required size; debug code so not critical to be tight. */ + char buf[DUK__BI_MAX_PARTS * 9 + 64]; + char *p = buf; + duk_small_int_t i; + + /* No NUL term checks in this debug code. */ + p += DUK_SPRINTF(p, "%p n=%ld", (void *) x, (long) x->n); + if (x->n == 0) { + p += DUK_SPRINTF(p, " 0"); + } + for (i = x->n - 1; i >= 0; i--) { + p += DUK_SPRINTF(p, " %08lx", (unsigned long) x->v[i]); + } + + DUK_DDD(DUK_DDDPRINT("%s: %s", (const char *) name, (const char *) buf)); +} +#endif + +#if defined(DUK_USE_ASSERTIONS) +DUK_LOCAL duk_small_int_t duk__bi_is_valid(duk__bigint *x) { + return (duk_small_int_t) + ( ((x->n >= 0) && (x->n <= DUK__BI_MAX_PARTS)) /* is valid size */ && + ((x->n == 0) || (x->v[x->n - 1] != 0)) /* is normalized */ ); +} +#endif + +DUK_LOCAL void duk__bi_normalize(duk__bigint *x) { + duk_small_int_t i; + + for (i = x->n - 1; i >= 0; i--) { + if (x->v[i] != 0) { + break; + } + } + + /* Note: if 'x' is zero, x->n becomes 0 here */ + x->n = i + 1; + DUK_ASSERT(duk__bi_is_valid(x)); +} + +/* x <- y */ +DUK_LOCAL void duk__bi_copy(duk__bigint *x, duk__bigint *y) { + duk_small_int_t n; + + n = y->n; + x->n = n; + /* No need to special case n == 0. */ + duk_memcpy((void *) x->v, (const void *) y->v, (size_t) (sizeof(duk_uint32_t) * (size_t) n)); +} + +DUK_LOCAL void duk__bi_set_small(duk__bigint *x, duk_uint32_t v) { + if (v == 0U) { + x->n = 0; + } else { + x->n = 1; + x->v[0] = v; + } + DUK_ASSERT(duk__bi_is_valid(x)); +} + +/* Return value: <0 <=> x < y + * 0 <=> x == y + * >0 <=> x > y + */ +DUK_LOCAL int duk__bi_compare(duk__bigint *x, duk__bigint *y) { + duk_small_int_t i, nx, ny; + duk_uint32_t tx, ty; + + DUK_ASSERT(duk__bi_is_valid(x)); + DUK_ASSERT(duk__bi_is_valid(y)); + + nx = x->n; + ny = y->n; + if (nx > ny) { + goto ret_gt; + } + if (nx < ny) { + goto ret_lt; + } + for (i = nx - 1; i >= 0; i--) { + tx = x->v[i]; + ty = y->v[i]; + + if (tx > ty) { + goto ret_gt; + } + if (tx < ty) { + goto ret_lt; + } + } + + return 0; + + ret_gt: + return 1; + + ret_lt: + return -1; +} + +/* x <- y + z */ +#if defined(DUK_USE_64BIT_OPS) +DUK_LOCAL void duk__bi_add(duk__bigint *x, duk__bigint *y, duk__bigint *z) { + duk_uint64_t tmp; + duk_small_int_t i, ny, nz; + + DUK_ASSERT(duk__bi_is_valid(y)); + DUK_ASSERT(duk__bi_is_valid(z)); + + if (z->n > y->n) { + duk__bigint *t; + t = y; y = z; z = t; + } + DUK_ASSERT(y->n >= z->n); + + ny = y->n; nz = z->n; + tmp = 0U; + for (i = 0; i < ny; i++) { + DUK_ASSERT(i < DUK__BI_MAX_PARTS); + tmp += y->v[i]; + if (i < nz) { + tmp += z->v[i]; + } + x->v[i] = (duk_uint32_t) (tmp & 0xffffffffUL); + tmp = tmp >> 32; + } + if (tmp != 0U) { + DUK_ASSERT(i < DUK__BI_MAX_PARTS); + x->v[i++] = (duk_uint32_t) tmp; + } + x->n = i; + DUK_ASSERT(x->n <= DUK__BI_MAX_PARTS); + + /* no need to normalize */ + DUK_ASSERT(duk__bi_is_valid(x)); +} +#else /* DUK_USE_64BIT_OPS */ +DUK_LOCAL void duk__bi_add(duk__bigint *x, duk__bigint *y, duk__bigint *z) { + duk_uint32_t carry, tmp1, tmp2; + duk_small_int_t i, ny, nz; + + DUK_ASSERT(duk__bi_is_valid(y)); + DUK_ASSERT(duk__bi_is_valid(z)); + + if (z->n > y->n) { + duk__bigint *t; + t = y; y = z; z = t; + } + DUK_ASSERT(y->n >= z->n); + + ny = y->n; nz = z->n; + carry = 0U; + for (i = 0; i < ny; i++) { + /* Carry is detected based on wrapping which relies on exact 32-bit + * types. + */ + DUK_ASSERT(i < DUK__BI_MAX_PARTS); + tmp1 = y->v[i]; + tmp2 = tmp1; + if (i < nz) { + tmp2 += z->v[i]; + } + + /* Careful with carry condition: + * - If carry not added: 0x12345678 + 0 + 0xffffffff = 0x12345677 (< 0x12345678) + * - If carry added: 0x12345678 + 1 + 0xffffffff = 0x12345678 (== 0x12345678) + */ + if (carry) { + tmp2++; + carry = (tmp2 <= tmp1 ? 1U : 0U); + } else { + carry = (tmp2 < tmp1 ? 1U : 0U); + } + + x->v[i] = tmp2; + } + if (carry) { + DUK_ASSERT(i < DUK__BI_MAX_PARTS); + DUK_ASSERT(carry == 1U); + x->v[i++] = carry; + } + x->n = i; + DUK_ASSERT(x->n <= DUK__BI_MAX_PARTS); + + /* no need to normalize */ + DUK_ASSERT(duk__bi_is_valid(x)); +} +#endif /* DUK_USE_64BIT_OPS */ + +/* x <- y + z */ +DUK_LOCAL void duk__bi_add_small(duk__bigint *x, duk__bigint *y, duk_uint32_t z) { + duk__bigint tmp; + + DUK_ASSERT(duk__bi_is_valid(y)); + + /* XXX: this could be optimized; there is only one call site now though */ + duk__bi_set_small(&tmp, z); + duk__bi_add(x, y, &tmp); + + DUK_ASSERT(duk__bi_is_valid(x)); +} + +#if 0 /* unused */ +/* x <- x + y, use t as temp */ +DUK_LOCAL void duk__bi_add_copy(duk__bigint *x, duk__bigint *y, duk__bigint *t) { + duk__bi_add(t, x, y); + duk__bi_copy(x, t); +} +#endif + +/* x <- y - z, require x >= y => z >= 0, i.e. y >= z */ +#if defined(DUK_USE_64BIT_OPS) +DUK_LOCAL void duk__bi_sub(duk__bigint *x, duk__bigint *y, duk__bigint *z) { + duk_small_int_t i, ny, nz; + duk_uint32_t ty, tz; + duk_int64_t tmp; + + DUK_ASSERT(duk__bi_is_valid(y)); + DUK_ASSERT(duk__bi_is_valid(z)); + DUK_ASSERT(duk__bi_compare(y, z) >= 0); + DUK_ASSERT(y->n >= z->n); + + ny = y->n; nz = z->n; + tmp = 0; + for (i = 0; i < ny; i++) { + ty = y->v[i]; + if (i < nz) { + tz = z->v[i]; + } else { + tz = 0; + } + tmp = (duk_int64_t) ty - (duk_int64_t) tz + tmp; + x->v[i] = (duk_uint32_t) ((duk_uint64_t) tmp & 0xffffffffUL); + tmp = tmp >> 32; /* 0 or -1 */ + } + DUK_ASSERT(tmp == 0); + + x->n = i; + duk__bi_normalize(x); /* need to normalize, may even cancel to 0 */ + DUK_ASSERT(duk__bi_is_valid(x)); +} +#else +DUK_LOCAL void duk__bi_sub(duk__bigint *x, duk__bigint *y, duk__bigint *z) { + duk_small_int_t i, ny, nz; + duk_uint32_t tmp1, tmp2, borrow; + + DUK_ASSERT(duk__bi_is_valid(y)); + DUK_ASSERT(duk__bi_is_valid(z)); + DUK_ASSERT(duk__bi_compare(y, z) >= 0); + DUK_ASSERT(y->n >= z->n); + + ny = y->n; nz = z->n; + borrow = 0U; + for (i = 0; i < ny; i++) { + /* Borrow is detected based on wrapping which relies on exact 32-bit + * types. + */ + tmp1 = y->v[i]; + tmp2 = tmp1; + if (i < nz) { + tmp2 -= z->v[i]; + } + + /* Careful with borrow condition: + * - If borrow not subtracted: 0x12345678 - 0 - 0xffffffff = 0x12345679 (> 0x12345678) + * - If borrow subtracted: 0x12345678 - 1 - 0xffffffff = 0x12345678 (== 0x12345678) + */ + if (borrow) { + tmp2--; + borrow = (tmp2 >= tmp1 ? 1U : 0U); + } else { + borrow = (tmp2 > tmp1 ? 1U : 0U); + } + + x->v[i] = tmp2; + } + DUK_ASSERT(borrow == 0U); + + x->n = i; + duk__bi_normalize(x); /* need to normalize, may even cancel to 0 */ + DUK_ASSERT(duk__bi_is_valid(x)); +} +#endif + +#if 0 /* unused */ +/* x <- y - z */ +DUK_LOCAL void duk__bi_sub_small(duk__bigint *x, duk__bigint *y, duk_uint32_t z) { + duk__bigint tmp; + + DUK_ASSERT(duk__bi_is_valid(y)); + + /* XXX: this could be optimized */ + duk__bi_set_small(&tmp, z); + duk__bi_sub(x, y, &tmp); + + DUK_ASSERT(duk__bi_is_valid(x)); +} +#endif + +/* x <- x - y, use t as temp */ +DUK_LOCAL void duk__bi_sub_copy(duk__bigint *x, duk__bigint *y, duk__bigint *t) { + duk__bi_sub(t, x, y); + duk__bi_copy(x, t); +} + +/* x <- y * z */ +DUK_LOCAL void duk__bi_mul(duk__bigint *x, duk__bigint *y, duk__bigint *z) { + duk_small_int_t i, j, nx, nz; + + DUK_ASSERT(duk__bi_is_valid(y)); + DUK_ASSERT(duk__bi_is_valid(z)); + + nx = y->n + z->n; /* max possible */ + DUK_ASSERT(nx <= DUK__BI_MAX_PARTS); + + if (nx == 0) { + /* Both inputs are zero; cases where only one is zero can go + * through main algorithm. + */ + x->n = 0; + return; + } + + duk_memzero((void *) x->v, (size_t) (sizeof(duk_uint32_t) * (size_t) nx)); + x->n = nx; + + nz = z->n; + for (i = 0; i < y->n; i++) { +#if defined(DUK_USE_64BIT_OPS) + duk_uint64_t tmp = 0U; + for (j = 0; j < nz; j++) { + tmp += (duk_uint64_t) y->v[i] * (duk_uint64_t) z->v[j] + x->v[i+j]; + x->v[i+j] = (duk_uint32_t) (tmp & 0xffffffffUL); + tmp = tmp >> 32; + } + if (tmp > 0) { + DUK_ASSERT(i + j < nx); + DUK_ASSERT(i + j < DUK__BI_MAX_PARTS); + DUK_ASSERT(x->v[i+j] == 0U); + x->v[i+j] = (duk_uint32_t) tmp; + } +#else + /* + * Multiply + add + carry for 32-bit components using only 16x16->32 + * multiplies and carry detection based on unsigned overflow. + * + * 1st mult, 32-bit: (A*2^16 + B) + * 2nd mult, 32-bit: (C*2^16 + D) + * 3rd add, 32-bit: E + * 4th add, 32-bit: F + * + * (AC*2^16 + B) * (C*2^16 + D) + E + F + * = AC*2^32 + AD*2^16 + BC*2^16 + BD + E + F + * = AC*2^32 + (AD + BC)*2^16 + (BD + E + F) + * = AC*2^32 + AD*2^16 + BC*2^16 + (BD + E + F) + */ + duk_uint32_t a, b, c, d, e, f; + duk_uint32_t r, s, t; + + a = y->v[i]; b = a & 0xffffUL; a = a >> 16; + + f = 0; + for (j = 0; j < nz; j++) { + c = z->v[j]; d = c & 0xffffUL; c = c >> 16; + e = x->v[i+j]; + + /* build result as: (r << 32) + s: start with (BD + E + F) */ + r = 0; + s = b * d; + + /* add E */ + t = s + e; + if (t < s) { r++; } /* carry */ + s = t; + + /* add F */ + t = s + f; + if (t < s) { r++; } /* carry */ + s = t; + + /* add BC*2^16 */ + t = b * c; + r += (t >> 16); + t = s + ((t & 0xffffUL) << 16); + if (t < s) { r++; } /* carry */ + s = t; + + /* add AD*2^16 */ + t = a * d; + r += (t >> 16); + t = s + ((t & 0xffffUL) << 16); + if (t < s) { r++; } /* carry */ + s = t; + + /* add AC*2^32 */ + t = a * c; + r += t; + + DUK_DDD(DUK_DDDPRINT("ab=%08lx cd=%08lx ef=%08lx -> rs=%08lx %08lx", + (unsigned long) y->v[i], (unsigned long) z->v[j], + (unsigned long) x->v[i+j], (unsigned long) r, + (unsigned long) s)); + + x->v[i+j] = s; + f = r; + } + if (f > 0U) { + DUK_ASSERT(i + j < nx); + DUK_ASSERT(i + j < DUK__BI_MAX_PARTS); + DUK_ASSERT(x->v[i+j] == 0U); + x->v[i+j] = (duk_uint32_t) f; + } +#endif /* DUK_USE_64BIT_OPS */ + } + + duk__bi_normalize(x); + DUK_ASSERT(duk__bi_is_valid(x)); +} + +/* x <- y * z */ +DUK_LOCAL void duk__bi_mul_small(duk__bigint *x, duk__bigint *y, duk_uint32_t z) { + duk__bigint tmp; + + DUK_ASSERT(duk__bi_is_valid(y)); + + /* XXX: this could be optimized */ + duk__bi_set_small(&tmp, z); + duk__bi_mul(x, y, &tmp); + + DUK_ASSERT(duk__bi_is_valid(x)); +} + +/* x <- x * y, use t as temp */ +DUK_LOCAL void duk__bi_mul_copy(duk__bigint *x, duk__bigint *y, duk__bigint *t) { + duk__bi_mul(t, x, y); + duk__bi_copy(x, t); +} + +/* x <- x * y, use t as temp */ +DUK_LOCAL void duk__bi_mul_small_copy(duk__bigint *x, duk_uint32_t y, duk__bigint *t) { + duk__bi_mul_small(t, x, y); + duk__bi_copy(x, t); +} + +DUK_LOCAL int duk__bi_is_even(duk__bigint *x) { + DUK_ASSERT(duk__bi_is_valid(x)); + return (x->n == 0) || ((x->v[0] & 0x01) == 0); +} + +DUK_LOCAL int duk__bi_is_zero(duk__bigint *x) { + DUK_ASSERT(duk__bi_is_valid(x)); + return (x->n == 0); /* this is the case for normalized numbers */ +} + +/* Bigint is 2^52. Used to detect normalized IEEE double mantissa values + * which are at the lowest edge (next floating point value downwards has + * a different exponent). The lowest mantissa has the form: + * + * 1000........000 (52 zeroes; only "hidden bit" is set) + */ +DUK_LOCAL duk_small_int_t duk__bi_is_2to52(duk__bigint *x) { + DUK_ASSERT(duk__bi_is_valid(x)); + return (duk_small_int_t) + (x->n == 2) && (x->v[0] == 0U) && (x->v[1] == (1U << (52-32))); +} + +/* x <- (1< 0); + r = y % 32; + duk_memzero((void *) x->v, sizeof(duk_uint32_t) * (size_t) n); + x->n = n; + x->v[n - 1] = (((duk_uint32_t) 1) << r); +} + +/* x <- b^y; use t1 and t2 as temps */ +DUK_LOCAL void duk__bi_exp_small(duk__bigint *x, duk_small_int_t b, duk_small_int_t y, duk__bigint *t1, duk__bigint *t2) { + /* Fast path the binary case */ + + DUK_ASSERT(x != t1 && x != t2 && t1 != t2); /* distinct bignums, easy mistake to make */ + DUK_ASSERT(b >= 0); + DUK_ASSERT(y >= 0); + + if (b == 2) { + duk__bi_twoexp(x, y); + return; + } + + /* http://en.wikipedia.org/wiki/Exponentiation_by_squaring */ + + DUK_DDD(DUK_DDDPRINT("exp_small: b=%ld, y=%ld", (long) b, (long) y)); + + duk__bi_set_small(x, 1); + duk__bi_set_small(t1, (duk_uint32_t) b); + for (;;) { + /* Loop structure ensures that we don't compute t1^2 unnecessarily + * on the final round, as that might create a bignum exceeding the + * current DUK__BI_MAX_PARTS limit. + */ + if (y & 0x01) { + duk__bi_mul_copy(x, t1, t2); + } + y = y >> 1; + if (y == 0) { + break; + } + duk__bi_mul_copy(t1, t1, t2); + } + + DUK__BI_PRINT("exp_small result", x); +} + +/* + * A Dragon4 number-to-string variant, based on: + * + * Guy L. Steele Jr., Jon L. White: "How to Print Floating-Point Numbers + * Accurately" + * + * Robert G. Burger, R. Kent Dybvig: "Printing Floating-Point Numbers + * Quickly and Accurately" + * + * The current algorithm is based on Figure 1 of the Burger-Dybvig paper, + * i.e. the base implementation without logarithm estimation speedups + * (these would increase code footprint considerably). Fixed-format output + * does not follow the suggestions in the paper; instead, we generate an + * extra digit and round-with-carry. + * + * The same algorithm is used for number parsing (with b=10 and B=2) + * by generating one extra digit and doing rounding manually. + * + * See doc/number-conversion.rst for limitations. + */ + +/* Maximum number of digits generated. */ +#define DUK__MAX_OUTPUT_DIGITS 1040 /* (Number.MAX_VALUE).toString(2).length == 1024, + slack */ + +/* Maximum number of characters in formatted value. */ +#define DUK__MAX_FORMATTED_LENGTH 1040 /* (-Number.MAX_VALUE).toString(2).length == 1025, + slack */ + +/* Number and (minimum) size of bigints in the nc_ctx structure. */ +#define DUK__NUMCONV_CTX_NUM_BIGINTS 7 +#define DUK__NUMCONV_CTX_BIGINTS_SIZE (sizeof(duk__bigint) * DUK__NUMCONV_CTX_NUM_BIGINTS) + +typedef struct { + /* Currently about 7*152 = 1064 bytes. The space for these + * duk__bigints is used also as a temporary buffer for generating + * the final string. This is a bit awkard; a union would be + * more correct. + */ + duk__bigint f, r, s, mp, mm, t1, t2; + + duk_small_int_t is_s2n; /* if 1, doing a string-to-number; else doing a number-to-string */ + duk_small_int_t is_fixed; /* if 1, doing a fixed format output (not free format) */ + duk_small_int_t req_digits; /* requested number of output digits; 0 = free-format */ + duk_small_int_t abs_pos; /* digit position is absolute, not relative */ + duk_small_int_t e; /* exponent for 'f' */ + duk_small_int_t b; /* input radix */ + duk_small_int_t B; /* output radix */ + duk_small_int_t k; /* see algorithm */ + duk_small_int_t low_ok; /* see algorithm */ + duk_small_int_t high_ok; /* see algorithm */ + duk_small_int_t unequal_gaps; /* m+ != m- (very rarely) */ + + /* Buffer used for generated digits, values are in the range [0,B-1]. */ + duk_uint8_t digits[DUK__MAX_OUTPUT_DIGITS]; + duk_small_int_t count; /* digit count */ +} duk__numconv_stringify_ctx; + +/* Note: computes with 'idx' in assertions, so caller beware. + * 'idx' is preincremented, i.e. '1' on first call, because it + * is more convenient for the caller. + */ +#define DUK__DRAGON4_OUTPUT_PREINC(nc_ctx,preinc_idx,x) do { \ + DUK_ASSERT((preinc_idx) - 1 >= 0); \ + DUK_ASSERT((preinc_idx) - 1 < DUK__MAX_OUTPUT_DIGITS); \ + ((nc_ctx)->digits[(preinc_idx) - 1]) = (duk_uint8_t) (x); \ + } while (0) + +DUK_LOCAL duk_size_t duk__dragon4_format_uint32(duk_uint8_t *buf, duk_uint32_t x, duk_small_int_t radix) { + duk_uint8_t *p; + duk_size_t len; + duk_small_int_t dig; + duk_uint32_t t; + + DUK_ASSERT(buf != NULL); + DUK_ASSERT(radix >= 2 && radix <= 36); + + /* A 32-bit unsigned integer formats to at most 32 digits (the + * worst case happens with radix == 2). Output the digits backwards, + * and use a memmove() to get them in the right place. + */ + + p = buf + 32; + for (;;) { + t = x / (duk_uint32_t) radix; + dig = (duk_small_int_t) (x - t * (duk_uint32_t) radix); + x = t; + + DUK_ASSERT(dig >= 0 && dig < 36); + *(--p) = DUK__DIGITCHAR(dig); + + if (x == 0) { + break; + } + } + len = (duk_size_t) ((buf + 32) - p); + + duk_memmove((void *) buf, (const void *) p, (size_t) len); + + return len; +} + +DUK_LOCAL void duk__dragon4_prepare(duk__numconv_stringify_ctx *nc_ctx) { + duk_small_int_t lowest_mantissa; + +#if 1 + /* Assume IEEE round-to-even, so that shorter encoding can be used + * when round-to-even would produce correct result. By removing + * this check (and having low_ok == high_ok == 0) the results would + * still be accurate but in some cases longer than necessary. + */ + if (duk__bi_is_even(&nc_ctx->f)) { + DUK_DDD(DUK_DDDPRINT("f is even")); + nc_ctx->low_ok = 1; + nc_ctx->high_ok = 1; + } else { + DUK_DDD(DUK_DDDPRINT("f is odd")); + nc_ctx->low_ok = 0; + nc_ctx->high_ok = 0; + } +#else + /* Note: not honoring round-to-even should work but now generates incorrect + * results. For instance, 1e23 serializes to "a000...", i.e. the first digit + * equals the radix (10). Scaling stops one step too early in this case. + * Don't know why this is the case, but since this code path is unused, it + * doesn't matter. + */ + nc_ctx->low_ok = 0; + nc_ctx->high_ok = 0; +#endif + + /* For string-to-number, pretend we never have the lowest mantissa as there + * is no natural "precision" for inputs. Having lowest_mantissa == 0, we'll + * fall into the base cases for both e >= 0 and e < 0. + */ + if (nc_ctx->is_s2n) { + lowest_mantissa = 0; + } else { + lowest_mantissa = duk__bi_is_2to52(&nc_ctx->f); + } + + nc_ctx->unequal_gaps = 0; + if (nc_ctx->e >= 0) { + /* exponent non-negative (and thus not minimum exponent) */ + + if (lowest_mantissa) { + /* (>= e 0) AND (= f (expt b (- p 1))) + * + * be <- (expt b e) == b^e + * be1 <- (* be b) == (expt b (+ e 1)) == b^(e+1) + * r <- (* f be1 2) == 2 * f * b^(e+1) [if b==2 -> f * b^(e+2)] + * s <- (* b 2) [if b==2 -> 4] + * m+ <- be1 == b^(e+1) + * m- <- be == b^e + * k <- 0 + * B <- B + * low_ok <- round + * high_ok <- round + */ + + DUK_DDD(DUK_DDDPRINT("non-negative exponent (not smallest exponent); " + "lowest mantissa value for this exponent -> " + "unequal gaps")); + + duk__bi_exp_small(&nc_ctx->mm, nc_ctx->b, nc_ctx->e, &nc_ctx->t1, &nc_ctx->t2); /* mm <- b^e */ + duk__bi_mul_small(&nc_ctx->mp, &nc_ctx->mm, (duk_uint32_t) nc_ctx->b); /* mp <- b^(e+1) */ + duk__bi_mul_small(&nc_ctx->t1, &nc_ctx->f, 2); + duk__bi_mul(&nc_ctx->r, &nc_ctx->t1, &nc_ctx->mp); /* r <- (2 * f) * b^(e+1) */ + duk__bi_set_small(&nc_ctx->s, (duk_uint32_t) (nc_ctx->b * 2)); /* s <- 2 * b */ + nc_ctx->unequal_gaps = 1; + } else { + /* (>= e 0) AND (not (= f (expt b (- p 1)))) + * + * be <- (expt b e) == b^e + * r <- (* f be 2) == 2 * f * b^e [if b==2 -> f * b^(e+1)] + * s <- 2 + * m+ <- be == b^e + * m- <- be == b^e + * k <- 0 + * B <- B + * low_ok <- round + * high_ok <- round + */ + + DUK_DDD(DUK_DDDPRINT("non-negative exponent (not smallest exponent); " + "not lowest mantissa for this exponent -> " + "equal gaps")); + + duk__bi_exp_small(&nc_ctx->mm, nc_ctx->b, nc_ctx->e, &nc_ctx->t1, &nc_ctx->t2); /* mm <- b^e */ + duk__bi_copy(&nc_ctx->mp, &nc_ctx->mm); /* mp <- b^e */ + duk__bi_mul_small(&nc_ctx->t1, &nc_ctx->f, 2); + duk__bi_mul(&nc_ctx->r, &nc_ctx->t1, &nc_ctx->mp); /* r <- (2 * f) * b^e */ + duk__bi_set_small(&nc_ctx->s, 2); /* s <- 2 */ + } + } else { + /* When doing string-to-number, lowest_mantissa is always 0 so + * the exponent check, while incorrect, won't matter. + */ + if (nc_ctx->e > DUK__IEEE_DOUBLE_EXP_MIN /*not minimum exponent*/ && + lowest_mantissa /* lowest mantissa for this exponent*/) { + /* r <- (* f b 2) [if b==2 -> (* f 4)] + * s <- (* (expt b (- 1 e)) 2) == b^(1-e) * 2 [if b==2 -> b^(2-e)] + * m+ <- b == 2 + * m- <- 1 + * k <- 0 + * B <- B + * low_ok <- round + * high_ok <- round + */ + + DUK_DDD(DUK_DDDPRINT("negative exponent; not minimum exponent and " + "lowest mantissa for this exponent -> " + "unequal gaps")); + + duk__bi_mul_small(&nc_ctx->r, &nc_ctx->f, (duk_uint32_t) (nc_ctx->b * 2)); /* r <- (2 * b) * f */ + duk__bi_exp_small(&nc_ctx->t1, nc_ctx->b, 1 - nc_ctx->e, &nc_ctx->s, &nc_ctx->t2); /* NB: use 's' as temp on purpose */ + duk__bi_mul_small(&nc_ctx->s, &nc_ctx->t1, 2); /* s <- b^(1-e) * 2 */ + duk__bi_set_small(&nc_ctx->mp, 2); + duk__bi_set_small(&nc_ctx->mm, 1); + nc_ctx->unequal_gaps = 1; + } else { + /* r <- (* f 2) + * s <- (* (expt b (- e)) 2) == b^(-e) * 2 [if b==2 -> b^(1-e)] + * m+ <- 1 + * m- <- 1 + * k <- 0 + * B <- B + * low_ok <- round + * high_ok <- round + */ + + DUK_DDD(DUK_DDDPRINT("negative exponent; minimum exponent or not " + "lowest mantissa for this exponent -> " + "equal gaps")); + + duk__bi_mul_small(&nc_ctx->r, &nc_ctx->f, 2); /* r <- 2 * f */ + duk__bi_exp_small(&nc_ctx->t1, nc_ctx->b, -nc_ctx->e, &nc_ctx->s, &nc_ctx->t2); /* NB: use 's' as temp on purpose */ + duk__bi_mul_small(&nc_ctx->s, &nc_ctx->t1, 2); /* s <- b^(-e) * 2 */ + duk__bi_set_small(&nc_ctx->mp, 1); + duk__bi_set_small(&nc_ctx->mm, 1); + } + } +} + +DUK_LOCAL void duk__dragon4_scale(duk__numconv_stringify_ctx *nc_ctx) { + duk_small_int_t k = 0; + + /* This is essentially the 'scale' algorithm, with recursion removed. + * Note that 'k' is either correct immediately, or will move in one + * direction in the loop. There's no need to do the low/high checks + * on every round (like the Scheme algorithm does). + * + * The scheme algorithm finds 'k' and updates 's' simultaneously, + * while the logical algorithm finds 'k' with 's' having its initial + * value, after which 's' is updated separately (see the Burger-Dybvig + * paper, Section 3.1, steps 2 and 3). + * + * The case where m+ == m- (almost always) is optimized for, because + * it reduces the bigint operations considerably and almost always + * applies. The scale loop only needs to work with m+, so this works. + */ + + /* XXX: this algorithm could be optimized quite a lot by using e.g. + * a logarithm based estimator for 'k' and performing B^n multiplication + * using a lookup table or using some bit-representation based exp + * algorithm. Currently we just loop, with significant performance + * impact for very large and very small numbers. + */ + + DUK_DDD(DUK_DDDPRINT("scale: B=%ld, low_ok=%ld, high_ok=%ld", + (long) nc_ctx->B, (long) nc_ctx->low_ok, (long) nc_ctx->high_ok)); + DUK__BI_PRINT("r(init)", &nc_ctx->r); + DUK__BI_PRINT("s(init)", &nc_ctx->s); + DUK__BI_PRINT("mp(init)", &nc_ctx->mp); + DUK__BI_PRINT("mm(init)", &nc_ctx->mm); + + for (;;) { + DUK_DDD(DUK_DDDPRINT("scale loop (inc k), k=%ld", (long) k)); + DUK__BI_PRINT("r", &nc_ctx->r); + DUK__BI_PRINT("s", &nc_ctx->s); + DUK__BI_PRINT("m+", &nc_ctx->mp); + DUK__BI_PRINT("m-", &nc_ctx->mm); + + duk__bi_add(&nc_ctx->t1, &nc_ctx->r, &nc_ctx->mp); /* t1 = (+ r m+) */ + if (duk__bi_compare(&nc_ctx->t1, &nc_ctx->s) >= (nc_ctx->high_ok ? 0 : 1)) { + DUK_DDD(DUK_DDDPRINT("k is too low")); + /* r <- r + * s <- (* s B) + * m+ <- m+ + * m- <- m- + * k <- (+ k 1) + */ + + duk__bi_mul_small_copy(&nc_ctx->s, (duk_uint32_t) nc_ctx->B, &nc_ctx->t1); + k++; + } else { + break; + } + } + + /* k > 0 -> k was too low, and cannot be too high */ + if (k > 0) { + goto skip_dec_k; + } + + for (;;) { + DUK_DDD(DUK_DDDPRINT("scale loop (dec k), k=%ld", (long) k)); + DUK__BI_PRINT("r", &nc_ctx->r); + DUK__BI_PRINT("s", &nc_ctx->s); + DUK__BI_PRINT("m+", &nc_ctx->mp); + DUK__BI_PRINT("m-", &nc_ctx->mm); + + duk__bi_add(&nc_ctx->t1, &nc_ctx->r, &nc_ctx->mp); /* t1 = (+ r m+) */ + duk__bi_mul_small(&nc_ctx->t2, &nc_ctx->t1, (duk_uint32_t) nc_ctx->B); /* t2 = (* (+ r m+) B) */ + if (duk__bi_compare(&nc_ctx->t2, &nc_ctx->s) <= (nc_ctx->high_ok ? -1 : 0)) { + DUK_DDD(DUK_DDDPRINT("k is too high")); + /* r <- (* r B) + * s <- s + * m+ <- (* m+ B) + * m- <- (* m- B) + * k <- (- k 1) + */ + duk__bi_mul_small_copy(&nc_ctx->r, (duk_uint32_t) nc_ctx->B, &nc_ctx->t1); + duk__bi_mul_small_copy(&nc_ctx->mp, (duk_uint32_t) nc_ctx->B, &nc_ctx->t1); + if (nc_ctx->unequal_gaps) { + DUK_DDD(DUK_DDDPRINT("m+ != m- -> need to update m- too")); + duk__bi_mul_small_copy(&nc_ctx->mm, (duk_uint32_t) nc_ctx->B, &nc_ctx->t1); + } + k--; + } else { + break; + } + } + + skip_dec_k: + + if (!nc_ctx->unequal_gaps) { + DUK_DDD(DUK_DDDPRINT("equal gaps, copy m- from m+")); + duk__bi_copy(&nc_ctx->mm, &nc_ctx->mp); /* mm <- mp */ + } + nc_ctx->k = k; + + DUK_DDD(DUK_DDDPRINT("final k: %ld", (long) k)); + DUK__BI_PRINT("r(final)", &nc_ctx->r); + DUK__BI_PRINT("s(final)", &nc_ctx->s); + DUK__BI_PRINT("mp(final)", &nc_ctx->mp); + DUK__BI_PRINT("mm(final)", &nc_ctx->mm); +} + +DUK_LOCAL void duk__dragon4_generate(duk__numconv_stringify_ctx *nc_ctx) { + duk_small_int_t tc1, tc2; /* terminating conditions */ + duk_small_int_t d; /* current digit */ + duk_small_int_t count = 0; /* digit count */ + + /* + * Digit generation loop. + * + * Different termination conditions: + * + * 1. Free format output. Terminate when shortest accurate + * representation found. + * + * 2. Fixed format output, with specific number of digits. + * Ignore termination conditions, terminate when digits + * generated. Caller requests an extra digit and rounds. + * + * 3. Fixed format output, with a specific absolute cut-off + * position (e.g. 10 digits after decimal point). Note + * that we always generate at least one digit, even if + * the digit is below the cut-off point already. + */ + + for (;;) { + DUK_DDD(DUK_DDDPRINT("generate loop, count=%ld, k=%ld, B=%ld, low_ok=%ld, high_ok=%ld", + (long) count, (long) nc_ctx->k, (long) nc_ctx->B, + (long) nc_ctx->low_ok, (long) nc_ctx->high_ok)); + DUK__BI_PRINT("r", &nc_ctx->r); + DUK__BI_PRINT("s", &nc_ctx->s); + DUK__BI_PRINT("m+", &nc_ctx->mp); + DUK__BI_PRINT("m-", &nc_ctx->mm); + + /* (quotient-remainder (* r B) s) using a dummy subtraction loop */ + duk__bi_mul_small(&nc_ctx->t1, &nc_ctx->r, (duk_uint32_t) nc_ctx->B); /* t1 <- (* r B) */ + d = 0; + for (;;) { + if (duk__bi_compare(&nc_ctx->t1, &nc_ctx->s) < 0) { + break; + } + duk__bi_sub_copy(&nc_ctx->t1, &nc_ctx->s, &nc_ctx->t2); /* t1 <- t1 - s */ + d++; + } + duk__bi_copy(&nc_ctx->r, &nc_ctx->t1); /* r <- (remainder (* r B) s) */ + /* d <- (quotient (* r B) s) (in range 0...B-1) */ + DUK_DDD(DUK_DDDPRINT("-> d(quot)=%ld", (long) d)); + DUK__BI_PRINT("r(rem)", &nc_ctx->r); + + duk__bi_mul_small_copy(&nc_ctx->mp, (duk_uint32_t) nc_ctx->B, &nc_ctx->t2); /* m+ <- (* m+ B) */ + duk__bi_mul_small_copy(&nc_ctx->mm, (duk_uint32_t) nc_ctx->B, &nc_ctx->t2); /* m- <- (* m- B) */ + DUK__BI_PRINT("mp(upd)", &nc_ctx->mp); + DUK__BI_PRINT("mm(upd)", &nc_ctx->mm); + + /* Terminating conditions. For fixed width output, we just ignore the + * terminating conditions (and pretend that tc1 == tc2 == false). The + * the current shortcut for fixed-format output is to generate a few + * extra digits and use rounding (with carry) to finish the output. + */ + + if (nc_ctx->is_fixed == 0) { + /* free-form */ + tc1 = (duk__bi_compare(&nc_ctx->r, &nc_ctx->mm) <= (nc_ctx->low_ok ? 0 : -1)); + + duk__bi_add(&nc_ctx->t1, &nc_ctx->r, &nc_ctx->mp); /* t1 <- (+ r m+) */ + tc2 = (duk__bi_compare(&nc_ctx->t1, &nc_ctx->s) >= (nc_ctx->high_ok ? 0 : 1)); + + DUK_DDD(DUK_DDDPRINT("tc1=%ld, tc2=%ld", (long) tc1, (long) tc2)); + } else { + /* fixed-format */ + tc1 = 0; + tc2 = 0; + } + + /* Count is incremented before DUK__DRAGON4_OUTPUT_PREINC() call + * on purpose, which is taken into account by the macro. + */ + count++; + + if (tc1) { + if (tc2) { + /* tc1 = true, tc2 = true */ + duk__bi_mul_small(&nc_ctx->t1, &nc_ctx->r, 2); + if (duk__bi_compare(&nc_ctx->t1, &nc_ctx->s) < 0) { /* (< (* r 2) s) */ + DUK_DDD(DUK_DDDPRINT("tc1=true, tc2=true, 2r > s: output d --> %ld (k=%ld)", + (long) d, (long) nc_ctx->k)); + DUK__DRAGON4_OUTPUT_PREINC(nc_ctx, count, d); + } else { + DUK_DDD(DUK_DDDPRINT("tc1=true, tc2=true, 2r <= s: output d+1 --> %ld (k=%ld)", + (long) (d + 1), (long) nc_ctx->k)); + DUK__DRAGON4_OUTPUT_PREINC(nc_ctx, count, d + 1); + } + break; + } else { + /* tc1 = true, tc2 = false */ + DUK_DDD(DUK_DDDPRINT("tc1=true, tc2=false: output d --> %ld (k=%ld)", + (long) d, (long) nc_ctx->k)); + DUK__DRAGON4_OUTPUT_PREINC(nc_ctx, count, d); + break; + } + } else { + if (tc2) { + /* tc1 = false, tc2 = true */ + DUK_DDD(DUK_DDDPRINT("tc1=false, tc2=true: output d+1 --> %ld (k=%ld)", + (long) (d + 1), (long) nc_ctx->k)); + DUK__DRAGON4_OUTPUT_PREINC(nc_ctx, count, d + 1); + break; + } else { + /* tc1 = false, tc2 = false */ + DUK_DDD(DUK_DDDPRINT("tc1=false, tc2=false: output d --> %ld (k=%ld)", + (long) d, (long) nc_ctx->k)); + DUK__DRAGON4_OUTPUT_PREINC(nc_ctx, count, d); + + /* r <- r (updated above: r <- (remainder (* r B) s) + * s <- s + * m+ <- m+ (updated above: m+ <- (* m+ B) + * m- <- m- (updated above: m- <- (* m- B) + * B, low_ok, high_ok are fixed + */ + + /* fall through and continue for-loop */ + } + } + + /* fixed-format termination conditions */ + if (nc_ctx->is_fixed) { + if (nc_ctx->abs_pos) { + int pos = nc_ctx->k - count + 1; /* count is already incremented, take into account */ + DUK_DDD(DUK_DDDPRINT("fixed format, absolute: abs pos=%ld, k=%ld, count=%ld, req=%ld", + (long) pos, (long) nc_ctx->k, (long) count, (long) nc_ctx->req_digits)); + if (pos <= nc_ctx->req_digits) { + DUK_DDD(DUK_DDDPRINT("digit position reached req_digits, end generate loop")); + break; + } + } else { + DUK_DDD(DUK_DDDPRINT("fixed format, relative: k=%ld, count=%ld, req=%ld", + (long) nc_ctx->k, (long) count, (long) nc_ctx->req_digits)); + if (count >= nc_ctx->req_digits) { + DUK_DDD(DUK_DDDPRINT("digit count reached req_digits, end generate loop")); + break; + } + } + } + } /* for */ + + nc_ctx->count = count; + + DUK_DDD(DUK_DDDPRINT("generate finished")); + +#if defined(DUK_USE_DEBUG_LEVEL) && (DUK_USE_DEBUG_LEVEL >= 2) + { + duk_uint8_t buf[2048]; + duk_small_int_t i, t; + duk_memzero(buf, sizeof(buf)); + for (i = 0; i < nc_ctx->count; i++) { + t = nc_ctx->digits[i]; + if (t < 0 || t > 36) { + buf[i] = (duk_uint8_t) '?'; + } else { + buf[i] = (duk_uint8_t) DUK__DIGITCHAR(t); + } + } + DUK_DDD(DUK_DDDPRINT("-> generated digits; k=%ld, digits='%s'", + (long) nc_ctx->k, (const char *) buf)); + } +#endif +} + +/* Round up digits to a given position. If position is out-of-bounds, + * does nothing. If carry propagates over the first digit, a '1' is + * prepended to digits and 'k' will be updated. Return value indicates + * whether carry propagated over the first digit. + * + * Note that nc_ctx->count is NOT updated based on the rounding position + * (it is updated only if carry overflows over the first digit and an + * extra digit is prepended). + */ +DUK_LOCAL duk_small_int_t duk__dragon4_fixed_format_round(duk__numconv_stringify_ctx *nc_ctx, duk_small_int_t round_idx) { + duk_small_int_t t; + duk_uint8_t *p; + duk_uint8_t roundup_limit; + duk_small_int_t ret = 0; + + /* + * round_idx points to the digit which is considered for rounding; the + * digit to its left is the final digit of the rounded value. If round_idx + * is zero, rounding will be performed; the result will either be an empty + * rounded value or if carry happens a '1' digit is generated. + */ + + if (round_idx >= nc_ctx->count) { + DUK_DDD(DUK_DDDPRINT("round_idx out of bounds (%ld >= %ld (count)) -> no rounding", + (long) round_idx, (long) nc_ctx->count)); + return 0; + } else if (round_idx < 0) { + DUK_DDD(DUK_DDDPRINT("round_idx out of bounds (%ld < 0) -> no rounding", + (long) round_idx)); + return 0; + } + + /* + * Round-up limit. + * + * For even values, divides evenly, e.g. 10 -> roundup_limit=5. + * + * For odd values, rounds up, e.g. 3 -> roundup_limit=2. + * If radix is 3, 0/3 -> down, 1/3 -> down, 2/3 -> up. + */ + roundup_limit = (duk_uint8_t) ((nc_ctx->B + 1) / 2); + + p = &nc_ctx->digits[round_idx]; + if (*p >= roundup_limit) { + DUK_DDD(DUK_DDDPRINT("fixed-format rounding carry required")); + /* carry */ + for (;;) { + *p = 0; + if (p == &nc_ctx->digits[0]) { + DUK_DDD(DUK_DDDPRINT("carry propagated to first digit -> special case handling")); + duk_memmove((void *) (&nc_ctx->digits[1]), + (const void *) (&nc_ctx->digits[0]), + (size_t) (sizeof(char) * (size_t) nc_ctx->count)); + nc_ctx->digits[0] = 1; /* don't increase 'count' */ + nc_ctx->k++; /* position of highest digit changed */ + nc_ctx->count++; /* number of digits changed */ + ret = 1; + break; + } + + DUK_DDD(DUK_DDDPRINT("fixed-format rounding carry: B=%ld, roundup_limit=%ld, p=%p, digits=%p", + (long) nc_ctx->B, (long) roundup_limit, (void *) p, (void *) nc_ctx->digits)); + p--; + t = *p; + DUK_DDD(DUK_DDDPRINT("digit before carry: %ld", (long) t)); + if (++t < nc_ctx->B) { + DUK_DDD(DUK_DDDPRINT("rounding carry terminated")); + *p = (duk_uint8_t) t; + break; + } + + DUK_DDD(DUK_DDDPRINT("wraps, carry to next digit")); + } + } + + return ret; +} + +#define DUK__NO_EXP (65536) /* arbitrary marker, outside valid exp range */ + +DUK_LOCAL void duk__dragon4_convert_and_push(duk__numconv_stringify_ctx *nc_ctx, + duk_hthread *thr, + duk_small_int_t radix, + duk_small_int_t digits, + duk_small_uint_t flags, + duk_small_int_t neg) { + duk_small_int_t k; + duk_small_int_t pos, pos_end; + duk_small_int_t expt; + duk_small_int_t dig; + duk_uint8_t *q; + duk_uint8_t *buf; + + /* + * The string conversion here incorporates all the necessary ECMAScript + * semantics without attempting to be generic. nc_ctx->digits contains + * nc_ctx->count digits (>= 1), with the topmost digit's 'position' + * indicated by nc_ctx->k as follows: + * + * digits="123" count=3 k=0 --> 0.123 + * digits="123" count=3 k=1 --> 1.23 + * digits="123" count=3 k=5 --> 12300 + * digits="123" count=3 k=-1 --> 0.0123 + * + * Note that the identifier names used for format selection are different + * in Burger-Dybvig paper and ECMAScript specification (quite confusingly + * so, because e.g. 'k' has a totally different meaning in each). See + * documentation for discussion. + * + * ECMAScript doesn't specify any specific behavior for format selection + * (e.g. when to use exponent notation) for non-base-10 numbers. + * + * The bigint space in the context is reused for string output, as there + * is more than enough space for that (>1kB at the moment), and we avoid + * allocating even more stack. + */ + + DUK_ASSERT(DUK__NUMCONV_CTX_BIGINTS_SIZE >= DUK__MAX_FORMATTED_LENGTH); + DUK_ASSERT(nc_ctx->count >= 1); + + k = nc_ctx->k; + buf = (duk_uint8_t *) &nc_ctx->f; /* XXX: union would be more correct */ + q = buf; + + /* Exponent handling: if exponent format is used, record exponent value and + * fake k such that one leading digit is generated (e.g. digits=123 -> "1.23"). + * + * toFixed() prevents exponent use; otherwise apply a set of criteria to + * match the other API calls (toString(), toPrecision, etc). + */ + + expt = DUK__NO_EXP; + if (!nc_ctx->abs_pos /* toFixed() */) { + if ((flags & DUK_N2S_FLAG_FORCE_EXP) || /* exponential notation forced */ + ((flags & DUK_N2S_FLAG_NO_ZERO_PAD) && /* fixed precision and zero padding would be required */ + (k - digits >= 1)) || /* (e.g. k=3, digits=2 -> "12X") */ + ((k > 21 || k <= -6) && (radix == 10))) { /* toString() conditions */ + DUK_DDD(DUK_DDDPRINT("use exponential notation: k=%ld -> expt=%ld", + (long) k, (long) (k - 1))); + expt = k - 1; /* e.g. 12.3 -> digits="123" k=2 -> 1.23e1 */ + k = 1; /* generate mantissa with a single leading whole number digit */ + } + } + + if (neg) { + *q++ = '-'; + } + + /* Start position (inclusive) and end position (exclusive) */ + pos = (k >= 1 ? k : 1); + if (nc_ctx->is_fixed) { + if (nc_ctx->abs_pos) { + /* toFixed() */ + pos_end = -digits; + } else { + pos_end = k - digits; + } + } else { + pos_end = k - nc_ctx->count; + } + if (pos_end > 0) { + pos_end = 0; + } + + DUK_DDD(DUK_DDDPRINT("expt=%ld, k=%ld, count=%ld, pos=%ld, pos_end=%ld, is_fixed=%ld, " + "digits=%ld, abs_pos=%ld", + (long) expt, (long) k, (long) nc_ctx->count, (long) pos, (long) pos_end, + (long) nc_ctx->is_fixed, (long) digits, (long) nc_ctx->abs_pos)); + + /* Digit generation */ + while (pos > pos_end) { + DUK_DDD(DUK_DDDPRINT("digit generation: pos=%ld, pos_end=%ld", + (long) pos, (long) pos_end)); + if (pos == 0) { + *q++ = (duk_uint8_t) '.'; + } + if (pos > k) { + *q++ = (duk_uint8_t) '0'; + } else if (pos <= k - nc_ctx->count) { + *q++ = (duk_uint8_t) '0'; + } else { + dig = nc_ctx->digits[k - pos]; + DUK_ASSERT(dig >= 0 && dig < nc_ctx->B); + *q++ = (duk_uint8_t) DUK__DIGITCHAR(dig); + } + + pos--; + } + DUK_ASSERT(pos <= 1); + + /* Exponent */ + if (expt != DUK__NO_EXP) { + /* + * Exponent notation for non-base-10 numbers isn't specified in ECMAScript + * specification, as it never explicitly turns up: non-decimal numbers can + * only be formatted with Number.prototype.toString([radix]) and for that, + * behavior is not explicitly specified. + * + * Logical choices include formatting the exponent as decimal (e.g. binary + * 100000 as 1e+5) or in current radix (e.g. binary 100000 as 1e+101). + * The Dragon4 algorithm (in the original paper) prints the exponent value + * in the target radix B. However, for radix values 15 and above, the + * exponent separator 'e' is no longer easily parseable. Consider, for + * instance, the number "1.faecee+1c". + */ + + duk_size_t len; + char expt_sign; + + *q++ = 'e'; + if (expt >= 0) { + expt_sign = '+'; + } else { + expt_sign = '-'; + expt = -expt; + } + *q++ = (duk_uint8_t) expt_sign; + len = duk__dragon4_format_uint32(q, (duk_uint32_t) expt, radix); + q += len; + } + + duk_push_lstring(thr, (const char *) buf, (size_t) (q - buf)); +} + +/* + * Conversion helpers + */ + +DUK_LOCAL void duk__dragon4_double_to_ctx(duk__numconv_stringify_ctx *nc_ctx, duk_double_t x) { + duk_double_union u; + duk_uint32_t tmp; + duk_small_int_t expt; + + /* + * seeeeeee eeeeffff ffffffff ffffffff ffffffff ffffffff ffffffff ffffffff + * A B C D E F G H + * + * s sign bit + * eee... exponent field + * fff... fraction + * + * ieee value = 1.ffff... * 2^(e - 1023) (normal) + * = 0.ffff... * 2^(-1022) (denormal) + * + * algorithm v = f * b^e + */ + + DUK_DBLUNION_SET_DOUBLE(&u, x); + + nc_ctx->f.n = 2; + + tmp = DUK_DBLUNION_GET_LOW32(&u); + nc_ctx->f.v[0] = tmp; + tmp = DUK_DBLUNION_GET_HIGH32(&u); + nc_ctx->f.v[1] = tmp & 0x000fffffUL; + expt = (duk_small_int_t) ((tmp >> 20) & 0x07ffUL); + + if (expt == 0) { + /* denormal */ + expt = DUK__IEEE_DOUBLE_EXP_MIN - 52; + duk__bi_normalize(&nc_ctx->f); + } else { + /* normal: implicit leading 1-bit */ + nc_ctx->f.v[1] |= 0x00100000UL; + expt = expt - DUK__IEEE_DOUBLE_EXP_BIAS - 52; + DUK_ASSERT(duk__bi_is_valid(&nc_ctx->f)); /* true, because v[1] has at least one bit set */ + } + + DUK_ASSERT(duk__bi_is_valid(&nc_ctx->f)); + + nc_ctx->e = expt; +} + +DUK_LOCAL void duk__dragon4_ctx_to_double(duk__numconv_stringify_ctx *nc_ctx, duk_double_t *x) { + duk_double_union u; + duk_small_int_t expt; + duk_small_int_t i; + duk_small_int_t bitstart; + duk_small_int_t bitround; + duk_small_int_t bitidx; + duk_small_int_t skip_round; + duk_uint32_t t, v; + + DUK_ASSERT(nc_ctx->count == 53 + 1); + + /* Sometimes this assert is not true right now; it will be true after + * rounding. See: test-bug-numconv-mantissa-assert.js. + */ + DUK_ASSERT_DISABLE(nc_ctx->digits[0] == 1); /* zero handled by caller */ + + /* Should not be required because the code below always sets both high + * and low parts, but at least gcc-4.4.5 fails to deduce this correctly + * (perhaps because the low part is set (seemingly) conditionally in a + * loop), so this is here to avoid the bogus warning. + */ + duk_memzero((void *) &u, sizeof(u)); + + /* + * Figure out how generated digits match up with the mantissa, + * and then perform rounding. If mantissa overflows, need to + * recompute the exponent (it is bumped and may overflow to + * infinity). + * + * For normal numbers the leading '1' is hidden and ignored, + * and the last bit is used for rounding: + * + * rounding pt + * <--------52------->| + * 1 x x x x ... x x x x|y ==> x x x x ... x x x x + * + * For denormals, the leading '1' is included in the number, + * and the rounding point is different: + * + * rounding pt + * <--52 or less--->| + * 1 x x x x ... x x|x x y ==> 0 0 ... 1 x x ... x x + * + * The largest denormals will have a mantissa beginning with + * a '1' (the explicit leading bit); smaller denormals will + * have leading zero bits. + * + * If the exponent would become too high, the result becomes + * Infinity. If the exponent is so small that the entire + * mantissa becomes zero, the result becomes zero. + * + * Note: the Dragon4 'k' is off-by-one with respect to the IEEE + * exponent. For instance, k==0 indicates that the leading '1' + * digit is at the first binary fraction position (0.1xxx...); + * the corresponding IEEE exponent would be -1. + */ + + skip_round = 0; + + recheck_exp: + + expt = nc_ctx->k - 1; /* IEEE exp without bias */ + if (expt > 1023) { + /* Infinity */ + bitstart = -255; /* needed for inf: causes mantissa to become zero, + * and rounding to be skipped. + */ + expt = 2047; + } else if (expt >= -1022) { + /* normal */ + bitstart = 1; /* skip leading digit */ + expt += DUK__IEEE_DOUBLE_EXP_BIAS; + DUK_ASSERT(expt >= 1 && expt <= 2046); + } else { + /* denormal or zero */ + bitstart = 1023 + expt; /* expt==-1023 -> bitstart=0 (leading 1); + * expt==-1024 -> bitstart=-1 (one left of leading 1), etc + */ + expt = 0; + } + bitround = bitstart + 52; + + DUK_DDD(DUK_DDDPRINT("ieee expt=%ld, bitstart=%ld, bitround=%ld", + (long) expt, (long) bitstart, (long) bitround)); + + if (!skip_round) { + if (duk__dragon4_fixed_format_round(nc_ctx, bitround)) { + /* Corner case: see test-numconv-parse-mant-carry.js. We could + * just bump the exponent and update bitstart, but it's more robust + * to recompute (but avoid rounding twice). + */ + DUK_DDD(DUK_DDDPRINT("rounding caused exponent to be bumped, recheck exponent")); + skip_round = 1; + goto recheck_exp; + } + } + + /* + * Create mantissa + */ + + t = 0; + for (i = 0; i < 52; i++) { + bitidx = bitstart + 52 - 1 - i; + if (bitidx >= nc_ctx->count) { + v = 0; + } else if (bitidx < 0) { + v = 0; + } else { + v = nc_ctx->digits[bitidx]; + } + DUK_ASSERT(v == 0 || v == 1); + t += v << (i % 32); + if (i == 31) { + /* low 32 bits is complete */ + DUK_DBLUNION_SET_LOW32(&u, t); + t = 0; + } + } + /* t has high mantissa */ + + DUK_DDD(DUK_DDDPRINT("mantissa is complete: %08lx %08lx", + (unsigned long) t, + (unsigned long) DUK_DBLUNION_GET_LOW32(&u))); + + DUK_ASSERT(expt >= 0 && expt <= 0x7ffL); + t += ((duk_uint32_t) expt) << 20; +#if 0 /* caller handles sign change */ + if (negative) { + t |= 0x80000000U; + } +#endif + DUK_DBLUNION_SET_HIGH32(&u, t); + + DUK_DDD(DUK_DDDPRINT("number is complete: %08lx %08lx", + (unsigned long) DUK_DBLUNION_GET_HIGH32(&u), + (unsigned long) DUK_DBLUNION_GET_LOW32(&u))); + + *x = DUK_DBLUNION_GET_DOUBLE(&u); +} + +/* + * Exposed number-to-string API + * + * Input: [ number ] + * Output: [ string ] + */ + +DUK_LOCAL DUK_NOINLINE void duk__numconv_stringify_raw(duk_hthread *thr, duk_small_int_t radix, duk_small_int_t digits, duk_small_uint_t flags) { + duk_double_t x; + duk_small_int_t c; + duk_small_int_t neg; + duk_uint32_t uval; + duk__numconv_stringify_ctx nc_ctx_alloc; /* large context; around 2kB now */ + duk__numconv_stringify_ctx *nc_ctx = &nc_ctx_alloc; + + x = (duk_double_t) duk_require_number(thr, -1); + duk_pop(thr); + + /* + * Handle special cases (NaN, infinity, zero). + */ + + c = (duk_small_int_t) DUK_FPCLASSIFY(x); + if (DUK_SIGNBIT((double) x)) { + x = -x; + neg = 1; + } else { + neg = 0; + } + + /* NaN sign bit is platform specific with unpacked, un-normalized NaNs */ + DUK_ASSERT(c == DUK_FP_NAN || DUK_SIGNBIT((double) x) == 0); + + if (c == DUK_FP_NAN) { + duk_push_hstring_stridx(thr, DUK_STRIDX_NAN); + return; + } else if (c == DUK_FP_INFINITE) { + if (neg) { + /* -Infinity */ + duk_push_hstring_stridx(thr, DUK_STRIDX_MINUS_INFINITY); + } else { + /* Infinity */ + duk_push_hstring_stridx(thr, DUK_STRIDX_INFINITY); + } + return; + } else if (c == DUK_FP_ZERO) { + /* We can't shortcut zero here if it goes through special formatting + * (such as forced exponential notation). + */ + ; + } + + /* + * Handle integers in 32-bit range (that is, [-(2**32-1),2**32-1]) + * specially, as they're very likely for embedded programs. This + * is now done for all radix values. We must be careful not to use + * the fast path when special formatting (e.g. forced exponential) + * is in force. + * + * XXX: could save space by supporting radix 10 only and using + * sprintf "%lu" for the fast path and for exponent formatting. + */ + + uval = duk_double_to_uint32_t(x); + if (duk_double_equals((double) uval, x) && /* integer number in range */ + flags == 0) { /* no special formatting */ + /* use bigint area as a temp */ + duk_uint8_t *buf = (duk_uint8_t *) (&nc_ctx->f); + duk_uint8_t *p = buf; + + DUK_ASSERT(DUK__NUMCONV_CTX_BIGINTS_SIZE >= 32 + 1); /* max size: radix=2 + sign */ + if (neg && uval != 0) { + /* no negative sign for zero */ + *p++ = (duk_uint8_t) '-'; + } + p += duk__dragon4_format_uint32(p, uval, radix); + duk_push_lstring(thr, (const char *) buf, (duk_size_t) (p - buf)); + return; + } + + /* + * Dragon4 setup. + * + * Convert double from IEEE representation for conversion; + * normal finite values have an implicit leading 1-bit. The + * slow path algorithm doesn't handle zero, so zero is special + * cased here but still creates a valid nc_ctx, and goes + * through normal formatting in case special formatting has + * been requested (e.g. forced exponential format: 0 -> "0e+0"). + */ + + /* Would be nice to bulk clear the allocation, but the context + * is 1-2 kilobytes and nothing should rely on it being zeroed. + */ +#if 0 + duk_memzero((void *) nc_ctx, sizeof(*nc_ctx)); /* slow init, do only for slow path cases */ +#endif + + nc_ctx->is_s2n = 0; + nc_ctx->b = 2; + nc_ctx->B = radix; + nc_ctx->abs_pos = 0; + if (flags & DUK_N2S_FLAG_FIXED_FORMAT) { + nc_ctx->is_fixed = 1; + if (flags & DUK_N2S_FLAG_FRACTION_DIGITS) { + /* absolute req_digits; e.g. digits = 1 -> last digit is 0, + * but add an extra digit for rounding. + */ + nc_ctx->abs_pos = 1; + nc_ctx->req_digits = (-digits + 1) - 1; + } else { + nc_ctx->req_digits = digits + 1; + } + } else { + nc_ctx->is_fixed = 0; + nc_ctx->req_digits = 0; + } + + if (c == DUK_FP_ZERO) { + /* Zero special case: fake requested number of zero digits; ensure + * no sign bit is printed. Relative and absolute fixed format + * require separate handling. + */ + duk_small_int_t count; + if (nc_ctx->is_fixed) { + if (nc_ctx->abs_pos) { + count = digits + 2; /* lead zero + 'digits' fractions + 1 for rounding */ + } else { + count = digits + 1; /* + 1 for rounding */ + } + } else { + count = 1; + } + DUK_DDD(DUK_DDDPRINT("count=%ld", (long) count)); + DUK_ASSERT(count >= 1); + duk_memzero((void *) nc_ctx->digits, (size_t) count); + nc_ctx->count = count; + nc_ctx->k = 1; /* 0.000... */ + neg = 0; + goto zero_skip; + } + + duk__dragon4_double_to_ctx(nc_ctx, x); /* -> sets 'f' and 'e' */ + DUK__BI_PRINT("f", &nc_ctx->f); + DUK_DDD(DUK_DDDPRINT("e=%ld", (long) nc_ctx->e)); + + /* + * Dragon4 slow path digit generation. + */ + + duk__dragon4_prepare(nc_ctx); /* setup many variables in nc_ctx */ + + DUK_DDD(DUK_DDDPRINT("after prepare:")); + DUK__BI_PRINT("r", &nc_ctx->r); + DUK__BI_PRINT("s", &nc_ctx->s); + DUK__BI_PRINT("mp", &nc_ctx->mp); + DUK__BI_PRINT("mm", &nc_ctx->mm); + + duk__dragon4_scale(nc_ctx); + + DUK_DDD(DUK_DDDPRINT("after scale; k=%ld", (long) nc_ctx->k)); + DUK__BI_PRINT("r", &nc_ctx->r); + DUK__BI_PRINT("s", &nc_ctx->s); + DUK__BI_PRINT("mp", &nc_ctx->mp); + DUK__BI_PRINT("mm", &nc_ctx->mm); + + duk__dragon4_generate(nc_ctx); + + /* + * Convert and push final string. + */ + + zero_skip: + + if (flags & DUK_N2S_FLAG_FIXED_FORMAT) { + /* Perform fixed-format rounding. */ + duk_small_int_t roundpos; + if (flags & DUK_N2S_FLAG_FRACTION_DIGITS) { + /* 'roundpos' is relative to nc_ctx->k and increases to the right + * (opposite of how 'k' changes). + */ + roundpos = -digits; /* absolute position for digit considered for rounding */ + roundpos = nc_ctx->k - roundpos; + } else { + roundpos = digits; + } + DUK_DDD(DUK_DDDPRINT("rounding: k=%ld, count=%ld, digits=%ld, roundpos=%ld", + (long) nc_ctx->k, (long) nc_ctx->count, (long) digits, (long) roundpos)); + (void) duk__dragon4_fixed_format_round(nc_ctx, roundpos); + + /* Note: 'count' is currently not adjusted by rounding (i.e. the + * digits are not "chopped off". That shouldn't matter because + * the digit position (absolute or relative) is passed on to the + * convert-and-push function. + */ + } + + duk__dragon4_convert_and_push(nc_ctx, thr, radix, digits, flags, neg); +} + +DUK_INTERNAL void duk_numconv_stringify(duk_hthread *thr, duk_small_int_t radix, duk_small_int_t digits, duk_small_uint_t flags) { + duk_native_stack_check(thr); + duk__numconv_stringify_raw(thr, radix, digits, flags); +} + +/* + * Exposed string-to-number API + * + * Input: [ string ] + * Output: [ number ] + * + * If number parsing fails, a NaN is pushed as the result. If number parsing + * fails due to an internal error, an InternalError is thrown. + */ + +DUK_LOCAL DUK_NOINLINE void duk__numconv_parse_raw(duk_hthread *thr, duk_small_int_t radix, duk_small_uint_t flags) { + duk__numconv_stringify_ctx nc_ctx_alloc; /* large context; around 2kB now */ + duk__numconv_stringify_ctx *nc_ctx = &nc_ctx_alloc; + duk_double_t res; + duk_hstring *h_str; + duk_int_t expt; + duk_bool_t expt_neg; + duk_small_int_t expt_adj; + duk_small_int_t neg; + duk_small_int_t dig; + duk_small_int_t dig_whole; + duk_small_int_t dig_lzero; + duk_small_int_t dig_frac; + duk_small_int_t dig_expt; + duk_small_int_t dig_prec; + const duk__exp_limits *explim; + const duk_uint8_t *p; + duk_small_int_t ch; + + DUK_DDD(DUK_DDDPRINT("parse number: %!T, radix=%ld, flags=0x%08lx", + (duk_tval *) duk_get_tval(thr, -1), + (long) radix, (unsigned long) flags)); + + DUK_ASSERT(radix >= 2 && radix <= 36); + DUK_ASSERT(radix - 2 < (duk_small_int_t) sizeof(duk__str2num_digits_for_radix)); + + /* + * Preliminaries: trim, sign, Infinity check + * + * We rely on the interned string having a NUL terminator, which will + * cause a parse failure wherever it is encountered. As a result, we + * don't need separate pointer checks. + * + * There is no special parsing for 'NaN' in the specification although + * 'Infinity' (with an optional sign) is allowed in some contexts. + * Some contexts allow plus/minus sign, while others only allow the + * minus sign (like JSON.parse()). + * + * Automatic hex number detection (leading '0x' or '0X') and octal + * number detection (leading '0' followed by at least one octal digit) + * is done here too. + * + * Symbols are not explicitly rejected here (that's up to the caller). + * If a symbol were passed here, it should ultimately safely fail + * parsing due to a syntax error. + */ + + if (flags & DUK_S2N_FLAG_TRIM_WHITE) { + /* Leading / trailing whitespace is sometimes accepted and + * sometimes not. After white space trimming, all valid input + * characters are pure ASCII. + */ + duk_trim(thr, -1); + } + h_str = duk_require_hstring(thr, -1); + DUK_ASSERT(h_str != NULL); + p = (const duk_uint8_t *) DUK_HSTRING_GET_DATA(h_str); + + neg = 0; + ch = *p; + if (ch == (duk_small_int_t) '+') { + if ((flags & DUK_S2N_FLAG_ALLOW_PLUS) == 0) { + DUK_DDD(DUK_DDDPRINT("parse failed: leading plus sign not allowed")); + goto parse_fail; + } + p++; + } else if (ch == (duk_small_int_t) '-') { + if ((flags & DUK_S2N_FLAG_ALLOW_MINUS) == 0) { + DUK_DDD(DUK_DDDPRINT("parse failed: leading minus sign not allowed")); + goto parse_fail; + } + p++; + neg = 1; + } + + if ((flags & DUK_S2N_FLAG_ALLOW_INF) && DUK_STRNCMP((const char *) p, "Infinity", 8) == 0) { + /* Don't check for Infinity unless the context allows it. + * 'Infinity' is a valid integer literal in e.g. base-36: + * + * parseInt('Infinity', 36) + * 1461559270678 + */ + + if ((flags & DUK_S2N_FLAG_ALLOW_GARBAGE) == 0 && p[8] != DUK_ASC_NUL) { + DUK_DDD(DUK_DDDPRINT("parse failed: trailing garbage after matching 'Infinity' not allowed")); + goto parse_fail; + } else { + res = DUK_DOUBLE_INFINITY; + goto negcheck_and_ret; + } + } + ch = *p; + if (ch == (duk_small_int_t) '0') { + duk_small_int_t detect_radix = 0; + ch = DUK_LOWERCASE_CHAR_ASCII(p[1]); /* 'x' or 'X' -> 'x' */ + if ((flags & DUK_S2N_FLAG_ALLOW_AUTO_HEX_INT) && ch == DUK_ASC_LC_X) { + DUK_DDD(DUK_DDDPRINT("detected 0x/0X hex prefix, changing radix and preventing fractions and exponent")); + detect_radix = 16; +#if 0 + } else if ((flags & DUK_S2N_FLAG_ALLOW_AUTO_LEGACY_OCT_INT) && + (ch >= (duk_small_int_t) '0' && ch <= (duk_small_int_t) '9')) { + DUK_DDD(DUK_DDDPRINT("detected 0n oct prefix, changing radix and preventing fractions and exponent")); + detect_radix = 8; + + /* NOTE: if this legacy octal case is added back, it has + * different flags and 'p' advance so this needs to be + * reworked. + */ + flags |= DUK_S2N_FLAG_ALLOW_EMPTY_AS_ZERO; /* interpret e.g. '09' as '0', not NaN */ + p += 1; +#endif + } else if ((flags & DUK_S2N_FLAG_ALLOW_AUTO_OCT_INT) && ch == DUK_ASC_LC_O) { + DUK_DDD(DUK_DDDPRINT("detected 0o oct prefix, changing radix and preventing fractions and exponent")); + detect_radix = 8; + } else if ((flags & DUK_S2N_FLAG_ALLOW_AUTO_BIN_INT) && ch == DUK_ASC_LC_B) { + DUK_DDD(DUK_DDDPRINT("detected 0b bin prefix, changing radix and preventing fractions and exponent")); + detect_radix = 2; + } + if (detect_radix > 0) { + radix = detect_radix; + /* Clear empty as zero flag: interpret e.g. '0x' and '0xg' as a NaN (= parse error) */ + flags &= ~(DUK_S2N_FLAG_ALLOW_EXP | DUK_S2N_FLAG_ALLOW_EMPTY_FRAC | + DUK_S2N_FLAG_ALLOW_FRAC | DUK_S2N_FLAG_ALLOW_NAKED_FRAC | + DUK_S2N_FLAG_ALLOW_EMPTY_AS_ZERO); + flags |= DUK_S2N_FLAG_ALLOW_LEADING_ZERO; /* allow e.g. '0x0009' and '0b00010001' */ + p += 2; + } + } + + /* + * Scan number and setup for Dragon4. + * + * The fast path case is detected during setup: an integer which + * can be converted without rounding, no net exponent. The fast + * path could be implemented as a separate scan, but may not really + * be worth it: the multiplications for building 'f' are not + * expensive when 'f' is small. + * + * The significand ('f') must contain enough bits of (apparent) + * accuracy, so that Dragon4 will generate enough binary output digits. + * For decimal numbers, this means generating a 20-digit significand, + * which should yield enough practical accuracy to parse IEEE doubles. + * In fact, the ECMAScript specification explicitly allows an + * implementation to treat digits beyond 20 as zeroes (and even + * to round the 20th digit upwards). For non-decimal numbers, the + * appropriate number of digits has been precomputed for comparable + * accuracy. + * + * Digit counts: + * + * [ dig_lzero ] + * | + * .+-..---[ dig_prec ]----. + * | || | + * 0000123.456789012345678901234567890e+123456 + * | | | | | | + * `--+--' `------[ dig_frac ]-------' `-+--' + * | | + * [ dig_whole ] [ dig_expt ] + * + * dig_frac and dig_expt are -1 if not present + * dig_lzero is only computed for whole number part + * + * Parsing state + * + * Parsing whole part dig_frac < 0 AND dig_expt < 0 + * Parsing fraction part dig_frac >= 0 AND dig_expt < 0 + * Parsing exponent part dig_expt >= 0 (dig_frac may be < 0 or >= 0) + * + * Note: in case we hit an implementation limit (like exponent range), + * we should throw an error, NOT return NaN or Infinity. Even with + * very large exponent (or significand) values the final result may be + * finite, so NaN/Infinity would be incorrect. + */ + + duk__bi_set_small(&nc_ctx->f, 0); + dig_prec = 0; + dig_lzero = 0; + dig_whole = 0; + dig_frac = -1; + dig_expt = -1; + expt = 0; + expt_adj = 0; /* essentially tracks digit position of lowest 'f' digit */ + expt_neg = 0; + for (;;) { + ch = *p++; + + DUK_DDD(DUK_DDDPRINT("parse digits: p=%p, ch='%c' (%ld), expt=%ld, expt_adj=%ld, " + "dig_whole=%ld, dig_frac=%ld, dig_expt=%ld, dig_lzero=%ld, dig_prec=%ld", + (const void *) p, (int) ((ch >= 0x20 && ch <= 0x7e) ? ch : '?'), (long) ch, + (long) expt, (long) expt_adj, (long) dig_whole, (long) dig_frac, + (long) dig_expt, (long) dig_lzero, (long) dig_prec)); + DUK__BI_PRINT("f", &nc_ctx->f); + + /* Most common cases first. */ + if (ch >= (duk_small_int_t) '0' && ch <= (duk_small_int_t) '9') { + dig = (duk_small_int_t) ch - '0' + 0; + } else if (ch == (duk_small_int_t) '.') { + /* A leading digit is not required in some cases, e.g. accept ".123". + * In other cases (JSON.parse()) a leading digit is required. This + * is checked for after the loop. + */ + if (dig_frac >= 0 || dig_expt >= 0) { + if (flags & DUK_S2N_FLAG_ALLOW_GARBAGE) { + DUK_DDD(DUK_DDDPRINT("garbage termination (invalid period)")); + break; + } else { + DUK_DDD(DUK_DDDPRINT("parse failed: period not allowed")); + goto parse_fail; + } + } + + if ((flags & DUK_S2N_FLAG_ALLOW_FRAC) == 0) { + /* Some contexts don't allow fractions at all; this can't be a + * post-check because the state ('f' and expt) would be incorrect. + */ + if (flags & DUK_S2N_FLAG_ALLOW_GARBAGE) { + DUK_DDD(DUK_DDDPRINT("garbage termination (invalid first period)")); + break; + } else { + DUK_DDD(DUK_DDDPRINT("parse failed: fraction part not allowed")); + } + } + + DUK_DDD(DUK_DDDPRINT("start fraction part")); + dig_frac = 0; + continue; + } else if (ch == (duk_small_int_t) 0) { + DUK_DDD(DUK_DDDPRINT("NUL termination")); + break; + } else if ((flags & DUK_S2N_FLAG_ALLOW_EXP) && + dig_expt < 0 && (ch == (duk_small_int_t) 'e' || ch == (duk_small_int_t) 'E')) { + /* Note: we don't parse back exponent notation for anything else + * than radix 10, so this is not an ambiguous check (e.g. hex + * exponent values may have 'e' either as a significand digit + * or as an exponent separator). + * + * If the exponent separator occurs twice, 'e' will be interpreted + * as a digit (= 14) and will be rejected as an invalid decimal + * digit. + */ + + DUK_DDD(DUK_DDDPRINT("start exponent part")); + + /* Exponent without a sign or with a +/- sign is accepted + * by all call sites (even JSON.parse()). + */ + ch = *p; + if (ch == (duk_small_int_t) '-') { + expt_neg = 1; + p++; + } else if (ch == (duk_small_int_t) '+') { + p++; + } + dig_expt = 0; + continue; + } else if (ch >= (duk_small_int_t) 'a' && ch <= (duk_small_int_t) 'z') { + dig = (duk_small_int_t) (ch - (duk_small_int_t) 'a' + 0x0a); + } else if (ch >= (duk_small_int_t) 'A' && ch <= (duk_small_int_t) 'Z') { + dig = (duk_small_int_t) (ch - (duk_small_int_t) 'A' + 0x0a); + } else { + dig = 255; /* triggers garbage digit check below */ + } + DUK_ASSERT((dig >= 0 && dig <= 35) || dig == 255); + + if (dig >= radix) { + if (flags & DUK_S2N_FLAG_ALLOW_GARBAGE) { + DUK_DDD(DUK_DDDPRINT("garbage termination")); + break; + } else { + DUK_DDD(DUK_DDDPRINT("parse failed: trailing garbage or invalid digit")); + goto parse_fail; + } + } + + if (dig_expt < 0) { + /* whole or fraction digit */ + + if (dig_prec < duk__str2num_digits_for_radix[radix - 2]) { + /* significant from precision perspective */ + + duk_small_int_t f_zero = duk__bi_is_zero(&nc_ctx->f); + if (f_zero && dig == 0) { + /* Leading zero is not counted towards precision digits; not + * in the integer part, nor in the fraction part. + */ + if (dig_frac < 0) { + dig_lzero++; + } + } else { + /* XXX: join these ops (multiply-accumulate), but only if + * code footprint decreases. + */ + duk__bi_mul_small(&nc_ctx->t1, &nc_ctx->f, (duk_uint32_t) radix); + duk__bi_add_small(&nc_ctx->f, &nc_ctx->t1, (duk_uint32_t) dig); + dig_prec++; + } + } else { + /* Ignore digits beyond a radix-specific limit, but note them + * in expt_adj. + */ + expt_adj++; + } + + if (dig_frac >= 0) { + dig_frac++; + expt_adj--; + } else { + dig_whole++; + } + } else { + /* exponent digit */ + + DUK_ASSERT(radix == 10); + expt = expt * radix + dig; + if (expt > DUK_S2N_MAX_EXPONENT) { + /* Impose a reasonable exponent limit, so that exp + * doesn't need to get tracked using a bigint. + */ + DUK_DDD(DUK_DDDPRINT("parse failed: exponent too large")); + goto parse_explimit_error; + } + dig_expt++; + } + } + + /* Leading zero. */ + + if (dig_lzero > 0 && dig_whole > 1) { + if ((flags & DUK_S2N_FLAG_ALLOW_LEADING_ZERO) == 0) { + DUK_DDD(DUK_DDDPRINT("parse failed: leading zeroes not allowed in integer part")); + goto parse_fail; + } + } + + /* Validity checks for various fraction formats ("0.1", ".1", "1.", "."). */ + + if (dig_whole == 0) { + if (dig_frac == 0) { + /* "." is not accepted in any format */ + DUK_DDD(DUK_DDDPRINT("parse failed: plain period without leading or trailing digits")); + goto parse_fail; + } else if (dig_frac > 0) { + /* ".123" */ + if ((flags & DUK_S2N_FLAG_ALLOW_NAKED_FRAC) == 0) { + DUK_DDD(DUK_DDDPRINT("parse failed: fraction part not allowed without " + "leading integer digit(s)")); + goto parse_fail; + } + } else { + /* Empty ("") is allowed in some formats (e.g. Number(''), as zero, + * but it must not have a leading +/- sign (GH-2019). Note that + * for Number(), h_str is already trimmed so we can check for zero + * length and still get Number(' + ') == NaN. + */ + if ((flags & DUK_S2N_FLAG_ALLOW_EMPTY_AS_ZERO) == 0) { + DUK_DDD(DUK_DDDPRINT("parse failed: empty string not allowed (as zero)")); + goto parse_fail; + } else if (DUK_HSTRING_GET_BYTELEN(h_str) != 0) { + DUK_DDD(DUK_DDDPRINT("parse failed: no digits, but not empty (had a +/- sign)")); + goto parse_fail; + } + } + } else { + if (dig_frac == 0) { + /* "123." is allowed in some formats */ + if ((flags & DUK_S2N_FLAG_ALLOW_EMPTY_FRAC) == 0) { + DUK_DDD(DUK_DDDPRINT("parse failed: empty fractions")); + goto parse_fail; + } + } else if (dig_frac > 0) { + /* "123.456" */ + ; + } else { + /* "123" */ + ; + } + } + + /* Exponent without digits (e.g. "1e" or "1e+"). If trailing garbage is + * allowed, ignore exponent part as garbage (= parse as "1", i.e. exp 0). + */ + + if (dig_expt == 0) { + if ((flags & DUK_S2N_FLAG_ALLOW_GARBAGE) == 0) { + DUK_DDD(DUK_DDDPRINT("parse failed: empty exponent")); + goto parse_fail; + } + DUK_ASSERT(expt == 0); + } + + if (expt_neg) { + expt = -expt; + } + DUK_DDD(DUK_DDDPRINT("expt=%ld, expt_adj=%ld, net exponent -> %ld", + (long) expt, (long) expt_adj, (long) (expt + expt_adj))); + expt += expt_adj; + + /* Fast path check. */ + + if (nc_ctx->f.n <= 1 && /* 32-bit value */ + expt == 0 /* no net exponent */) { + /* Fast path is triggered for no exponent and also for balanced exponent + * and fraction parts, e.g. for "1.23e2" == "123". Remember to respect + * zero sign. + */ + + /* XXX: could accept numbers larger than 32 bits, e.g. up to 53 bits? */ + DUK_DDD(DUK_DDDPRINT("fast path number parse")); + if (nc_ctx->f.n == 1) { + res = (double) nc_ctx->f.v[0]; + } else { + res = 0.0; + } + goto negcheck_and_ret; + } + + /* Significand ('f') padding. */ + + while (dig_prec < duk__str2num_digits_for_radix[radix - 2]) { + /* Pad significand with "virtual" zero digits so that Dragon4 will + * have enough (apparent) precision to work with. + */ + DUK_DDD(DUK_DDDPRINT("dig_prec=%ld, pad significand with zero", (long) dig_prec)); + duk__bi_mul_small_copy(&nc_ctx->f, (duk_uint32_t) radix, &nc_ctx->t1); + DUK__BI_PRINT("f", &nc_ctx->f); + expt--; + dig_prec++; + } + + DUK_DDD(DUK_DDDPRINT("final exponent: %ld", (long) expt)); + + /* Detect zero special case. */ + + if (nc_ctx->f.n == 0) { + /* This may happen even after the fast path check, if exponent is + * not balanced (e.g. "0e1"). Remember to respect zero sign. + */ + DUK_DDD(DUK_DDDPRINT("significand is zero")); + res = 0.0; + goto negcheck_and_ret; + } + + + /* Quick reject of too large or too small exponents. This check + * would be incorrect for zero (e.g. "0e1000" is zero, not Infinity) + * so zero check must be above. + */ + + explim = &duk__str2num_exp_limits[radix - 2]; + if (expt > explim->upper) { + DUK_DDD(DUK_DDDPRINT("exponent too large -> infinite")); + res = (duk_double_t) DUK_DOUBLE_INFINITY; + goto negcheck_and_ret; + } else if (expt < explim->lower) { + DUK_DDD(DUK_DDDPRINT("exponent too small -> zero")); + res = (duk_double_t) 0.0; + goto negcheck_and_ret; + } + + nc_ctx->is_s2n = 1; + nc_ctx->e = expt; + nc_ctx->b = radix; + nc_ctx->B = 2; + nc_ctx->is_fixed = 1; + nc_ctx->abs_pos = 0; + nc_ctx->req_digits = 53 + 1; + + DUK__BI_PRINT("f", &nc_ctx->f); + DUK_DDD(DUK_DDDPRINT("e=%ld", (long) nc_ctx->e)); + + /* + * Dragon4 slow path (binary) digit generation. + * An extra digit is generated for rounding. + */ + + duk__dragon4_prepare(nc_ctx); /* setup many variables in nc_ctx */ + + DUK_DDD(DUK_DDDPRINT("after prepare:")); + DUK__BI_PRINT("r", &nc_ctx->r); + DUK__BI_PRINT("s", &nc_ctx->s); + DUK__BI_PRINT("mp", &nc_ctx->mp); + DUK__BI_PRINT("mm", &nc_ctx->mm); + + duk__dragon4_scale(nc_ctx); + + DUK_DDD(DUK_DDDPRINT("after scale; k=%ld", (long) nc_ctx->k)); + DUK__BI_PRINT("r", &nc_ctx->r); + DUK__BI_PRINT("s", &nc_ctx->s); + DUK__BI_PRINT("mp", &nc_ctx->mp); + DUK__BI_PRINT("mm", &nc_ctx->mm); + + duk__dragon4_generate(nc_ctx); + + DUK_ASSERT(nc_ctx->count == 53 + 1); + + /* + * Convert binary digits into an IEEE double. Need to handle + * denormals and rounding correctly. + * + * Some call sites currently assume the result is always a + * non-fastint double. If this is changed, check all call + * sites. + */ + + duk__dragon4_ctx_to_double(nc_ctx, &res); + goto negcheck_and_ret; + + negcheck_and_ret: + if (neg) { + res = -res; + } + duk_pop(thr); + duk_push_number(thr, (double) res); + DUK_DDD(DUK_DDDPRINT("result: %!T", (duk_tval *) duk_get_tval(thr, -1))); + return; + + parse_fail: + DUK_DDD(DUK_DDDPRINT("parse failed")); + duk_pop(thr); + duk_push_nan(thr); + return; + + parse_explimit_error: + DUK_DDD(DUK_DDDPRINT("parse failed, internal error, can't return a value")); + DUK_ERROR_RANGE(thr, "exponent too large"); + DUK_WO_NORETURN(return;); +} + +DUK_INTERNAL void duk_numconv_parse(duk_hthread *thr, duk_small_int_t radix, duk_small_uint_t flags) { + duk_native_stack_check(thr); + duk__numconv_parse_raw(thr, radix, flags); +} + +/* automatic undefs */ +#undef DUK__BI_MAX_PARTS +#undef DUK__BI_PRINT +#undef DUK__DIGITCHAR +#undef DUK__DRAGON4_OUTPUT_PREINC +#undef DUK__IEEE_DOUBLE_EXP_BIAS +#undef DUK__IEEE_DOUBLE_EXP_MIN +#undef DUK__MAX_FORMATTED_LENGTH +#undef DUK__MAX_OUTPUT_DIGITS +#undef DUK__NO_EXP +#undef DUK__NUMCONV_CTX_BIGINTS_SIZE +#undef DUK__NUMCONV_CTX_NUM_BIGINTS +#line 1 "duk_regexp_compiler.c" +/* + * Regexp compilation. + * + * See doc/regexp.rst for a discussion of the compilation approach and + * current limitations. + * + * Regexp bytecode assumes jumps can be expressed with signed 32-bit + * integers. Consequently the bytecode size must not exceed 0x7fffffffL. + * The implementation casts duk_size_t (buffer size) to duk_(u)int32_t + * in many places. Although this could be changed, the bytecode format + * limit would still prevent regexps exceeding the signed 32-bit limit + * from working. + * + * XXX: The implementation does not prevent bytecode from exceeding the + * maximum supported size. This could be done by limiting the maximum + * input string size (assuming an upper bound can be computed for number + * of bytecode bytes emitted per input byte) or checking buffer maximum + * size when emitting bytecode (slower). + */ + +/* #include duk_internal.h -> already included */ + +#if defined(DUK_USE_REGEXP_SUPPORT) + +/* + * Helper macros + */ + +#define DUK__RE_INITIAL_BUFSIZE 64 + +#define DUK__RE_BUFLEN(re_ctx) \ + DUK_BW_GET_SIZE(re_ctx->thr, &re_ctx->bw) + +/* + * Disjunction struct: result of parsing a disjunction + */ + +typedef struct { + /* Number of characters that the atom matches (e.g. 3 for 'abc'), + * -1 if atom is complex and number of matched characters either + * varies or is not known. + */ + duk_int32_t charlen; + +#if 0 + /* These are not needed to implement quantifier capture handling, + * but might be needed at some point. + */ + + /* re_ctx->captures at start and end of atom parsing. + * Since 'captures' indicates highest capture number emitted + * so far in a DUK_REOP_SAVE, the captures numbers saved by + * the atom are: ]start_captures,end_captures]. + */ + duk_uint32_t start_captures; + duk_uint32_t end_captures; +#endif +} duk__re_disjunction_info; + +/* + * Encoding helpers + * + * Some of the typing is bytecode based, e.g. slice sizes are unsigned 32-bit + * even though the buffer operations will use duk_size_t. + */ + +/* XXX: the insert helpers should ensure that the bytecode result is not + * larger than expected (or at least assert for it). Many things in the + * bytecode, like skip offsets, won't work correctly if the bytecode is + * larger than say 2G. + */ + +DUK_LOCAL duk_uint32_t duk__encode_i32(duk_int32_t x) { + if (x < 0) { + return ((duk_uint32_t) (-x)) * 2 + 1; + } else { + return ((duk_uint32_t) x) * 2; + } +} + +/* XXX: return type should probably be duk_size_t, or explicit checks are needed for + * maximum size. + */ +DUK_LOCAL duk_uint32_t duk__insert_u32(duk_re_compiler_ctx *re_ctx, duk_uint32_t offset, duk_uint32_t x) { + duk_uint8_t buf[DUK_UNICODE_MAX_XUTF8_LENGTH]; + duk_small_int_t len; + + len = duk_unicode_encode_xutf8((duk_ucodepoint_t) x, buf); + DUK_ASSERT(len >= 0); + DUK_BW_INSERT_ENSURE_BYTES(re_ctx->thr, &re_ctx->bw, offset, buf, (duk_size_t) len); + return (duk_uint32_t) len; +} + +DUK_LOCAL void duk__append_u32(duk_re_compiler_ctx *re_ctx, duk_uint32_t x) { + DUK_BW_WRITE_ENSURE_XUTF8(re_ctx->thr, &re_ctx->bw, x); +} + +DUK_LOCAL void duk__append_7bit(duk_re_compiler_ctx *re_ctx, duk_uint32_t x) { +#if defined(DUK_USE_PREFER_SIZE) + duk__append_u32(re_ctx, x); +#else + DUK_ASSERT(x <= 0x7fU); + DUK_BW_WRITE_ENSURE_U8(re_ctx->thr, &re_ctx->bw, (duk_uint8_t) x); +#endif +} + +#if 0 +DUK_LOCAL void duk__append_2bytes(duk_re_compiler_ctx *re_ctx, duk_uint8_t x, duk_uint8_t y) { + DUK_BW_WRITE_ENSURE_U8_2(re_ctx->thr, &re_ctx->bw, x, y); +} +#endif + +DUK_LOCAL duk_uint32_t duk__insert_i32(duk_re_compiler_ctx *re_ctx, duk_uint32_t offset, duk_int32_t x) { + return duk__insert_u32(re_ctx, offset, duk__encode_i32(x)); +} + +DUK_LOCAL void duk__append_reop(duk_re_compiler_ctx *re_ctx, duk_uint32_t reop) { + DUK_ASSERT(reop <= 0x7fU); + (void) duk__append_7bit(re_ctx, reop); +} + +#if 0 /* unused */ +DUK_LOCAL void duk__append_i32(duk_re_compiler_ctx *re_ctx, duk_int32_t x) { + duk__append_u32(re_ctx, duk__encode_i32(x)); +} +#endif + +/* special helper for emitting u16 lists (used for character ranges for built-in char classes) */ +DUK_LOCAL void duk__append_u16_list(duk_re_compiler_ctx *re_ctx, const duk_uint16_t *values, duk_uint32_t count) { + /* Call sites don't need the result length so it's not accumulated. */ + while (count-- > 0) { + duk__append_u32(re_ctx, (duk_uint32_t) (*values++)); + } +} + +DUK_LOCAL void duk__insert_slice(duk_re_compiler_ctx *re_ctx, duk_uint32_t offset, duk_uint32_t data_offset, duk_uint32_t data_length) { + DUK_BW_INSERT_ENSURE_SLICE(re_ctx->thr, &re_ctx->bw, offset, data_offset, data_length); +} + +DUK_LOCAL void duk__append_slice(duk_re_compiler_ctx *re_ctx, duk_uint32_t data_offset, duk_uint32_t data_length) { + DUK_BW_WRITE_ENSURE_SLICE(re_ctx->thr, &re_ctx->bw, data_offset, data_length); +} + +DUK_LOCAL void duk__remove_slice(duk_re_compiler_ctx *re_ctx, duk_uint32_t data_offset, duk_uint32_t data_length) { + DUK_BW_REMOVE_ENSURE_SLICE(re_ctx->thr, &re_ctx->bw, data_offset, data_length); +} + +/* + * Insert a jump offset at 'offset' to complete an instruction + * (the jump offset is always the last component of an instruction). + * The 'skip' argument must be computed relative to 'offset', + * -without- taking into account the skip field being inserted. + * + * ... A B C ins X Y Z ... (ins may be a JUMP, SPLIT1/SPLIT2, etc) + * => ... A B C ins SKIP X Y Z + * + * Computing the final (adjusted) skip value, which is relative to the + * first byte of the next instruction, is a bit tricky because of the + * variable length UTF-8 encoding. See doc/regexp.rst for discussion. + */ +DUK_LOCAL duk_uint32_t duk__insert_jump_offset(duk_re_compiler_ctx *re_ctx, duk_uint32_t offset, duk_int32_t skip) { +#if 0 + /* Iterative solution. */ + if (skip < 0) { + duk_small_int_t len; + /* two encoding attempts suffices */ + len = duk_unicode_get_xutf8_length((duk_codepoint_t) duk__encode_i32(skip)); + len = duk_unicode_get_xutf8_length((duk_codepoint_t) duk__encode_i32(skip - (duk_int32_t) len)); + DUK_ASSERT(duk_unicode_get_xutf8_length(duk__encode_i32(skip - (duk_int32_t) len)) == len); /* no change */ + skip -= (duk_int32_t) len; + } +#endif + +#if defined(DUK_USE_PREFER_SIZE) + /* Closed form solution, this produces smallest code. + * See re_neg_jump_offset (closed2). + */ + if (skip < 0) { + skip--; + if (skip < -0x3fL) { + skip--; + } + if (skip < -0x3ffL) { + skip--; + } + if (skip < -0x7fffL) { + skip--; + } + if (skip < -0xfffffL) { + skip--; + } + if (skip < -0x1ffffffL) { + skip--; + } + if (skip < -0x3fffffffL) { + skip--; + } + } +#else /* DUK_USE_PREFER_SIZE */ + /* Closed form solution, this produces fastest code. + * See re_neg_jump_offset (closed1). + */ + if (skip < 0) { + if (skip >= -0x3eL) { + skip -= 1; + } else if (skip >= -0x3fdL) { + skip -= 2; + } else if (skip >= -0x7ffcL) { + skip -= 3; + } else if (skip >= -0xffffbL) { + skip -= 4; + } else if (skip >= -0x1fffffaL) { + skip -= 5; + } else if (skip >= -0x3ffffff9L) { + skip -= 6; + } else { + skip -= 7; + } + } +#endif /* DUK_USE_PREFER_SIZE */ + + return duk__insert_i32(re_ctx, offset, skip); +} + +DUK_LOCAL duk_uint32_t duk__append_jump_offset(duk_re_compiler_ctx *re_ctx, duk_int32_t skip) { + return (duk_uint32_t) duk__insert_jump_offset(re_ctx, (duk_uint32_t) DUK__RE_BUFLEN(re_ctx), skip); +} + +/* + * duk_re_range_callback for generating character class ranges. + * + * When ignoreCase is false, the range is simply emitted as is. We don't, + * for instance, eliminate duplicates or overlapping ranges in a character + * class. + * + * When ignoreCase is true but the 'direct' flag is set, the caller knows + * that the range canonicalizes to itself for case insensitive matching, + * so the range is emitted as is. This is mainly useful for built-in ranges + * like \W. + * + * Otherwise, when ignoreCase is true, the range needs to be normalized + * through canonicalization. Unfortunately a canonicalized version of a + * continuous range is not necessarily continuous (e.g. [x-{] is continuous + * but [X-{] is not). As a result, a single input range may expand to a lot + * of output ranges. The current algorithm creates the canonicalized ranges + * footprint efficiently at the cost of compile time execution time; see + * doc/regexp.rst for discussion, and some more details below. + * + * Note that the ctx->nranges is a context-wide temporary value. This is OK + * because there cannot be multiple character classes being parsed + * simultaneously. + * + * More detail on canonicalization: + * + * Conceptually, a range is canonicalized by scanning the entire range, + * normalizing each codepoint by converting it to uppercase, and generating + * a set of result ranges. + * + * Ideally a minimal set of output ranges would be emitted by merging all + * possible ranges even if they're emitted out of sequence. Because the + * input string is also case normalized during matching, some codepoints + * never occur at runtime; these "don't care" codepoints can be included or + * excluded from ranges when merging/optimizing ranges. + * + * The current algorithm does not do optimal range merging. Rather, output + * codepoints are generated in sequence, and when the output codepoints are + * continuous (CP, CP+1, CP+2, ...), they are merged locally into as large a + * range as possible. A small canonicalization bitmap is used to reduce + * actual codepoint canonicalizations which are quite slow at present. The + * bitmap provides a "codepoint block is continuous with respect to + * canonicalization" for N-codepoint blocks. This allows blocks to be + * skipped quickly. + * + * There are a number of shortcomings and future work here: + * + * - Individual codepoint normalizations are slow because they involve + * walking bit-packed rules without a lookup index. + * + * - The conceptual algorithm needs to canonicalize every codepoint in the + * input range to figure out the output range(s). Even with the small + * canonicalization bitmap the algorithm runs quite slowly for worst case + * inputs. There are many data structure alternatives to improve this. + * + * - While the current algorithm generates maximal output ranges when the + * output codepoints are emitted linearly, output ranges are not sorted or + * merged otherwise. In the worst case a lot of ranges are emitted when + * most of the ranges could be merged. In this process one could take + * advantage of "don't care" codepoints, which are never matched against at + * runtime due to canonicalization of input codepoints before comparison, + * to merge otherwise discontinuous output ranges. + * + * - The runtime data structure is just a linear list of ranges to match + * against. This can be quite slow if there are a lot of output ranges. + * There are various ways to make matching against the ranges faster, + * e.g. sorting the ranges and using a binary search; skip lists; tree + * based representations; full or approximate codepoint bitmaps, etc. + * + * - Only BMP is supported, codepoints above BMP are assumed to canonicalize + * to themselves. For now this is one place where we don't want to + * support chars outside the BMP, because the exhaustive search would be + * massively larger. It would be possible to support non-BMP with a + * different algorithm, or perhaps doing case normalization only at match + * time. + */ + +DUK_LOCAL void duk__regexp_emit_range(duk_re_compiler_ctx *re_ctx, duk_codepoint_t r1, duk_codepoint_t r2) { + DUK_ASSERT(r2 >= r1); + duk__append_u32(re_ctx, (duk_uint32_t) r1); + duk__append_u32(re_ctx, (duk_uint32_t) r2); + re_ctx->nranges++; +} + +#if defined(DUK_USE_REGEXP_CANON_BITMAP) +/* Find next canonicalization discontinuity (conservative estimate) starting + * from 'start', not exceeding 'end'. If continuity is fine up to 'end' + * inclusive, returns end. Minimum possible return value is start. + */ +DUK_LOCAL duk_codepoint_t duk__re_canon_next_discontinuity(duk_codepoint_t start, duk_codepoint_t end) { + duk_uint_t start_blk; + duk_uint_t end_blk; + duk_uint_t blk; + duk_uint_t offset; + duk_uint8_t mask; + + /* Inclusive block range. */ + DUK_ASSERT(start >= 0); + DUK_ASSERT(end >= 0); + DUK_ASSERT(end >= start); + start_blk = (duk_uint_t) (start >> DUK_CANON_BITMAP_BLKSHIFT); + end_blk = (duk_uint_t) (end >> DUK_CANON_BITMAP_BLKSHIFT); + + for (blk = start_blk; blk <= end_blk; blk++) { + offset = blk >> 3; + mask = 1U << (blk & 0x07); + if (offset >= sizeof(duk_unicode_re_canon_bitmap)) { + /* Reached non-BMP range which is assumed continuous. */ + return end; + } + DUK_ASSERT(offset < sizeof(duk_unicode_re_canon_bitmap)); + if ((duk_unicode_re_canon_bitmap[offset] & mask) == 0) { + /* Block is discontinuous, continuity is guaranteed + * only up to end of previous block (+1 for exclusive + * return value => start of current block). Start + * block requires special handling. + */ + if (blk > start_blk) { + return (duk_codepoint_t) (blk << DUK_CANON_BITMAP_BLKSHIFT); + } else { + return start; + } + } + } + DUK_ASSERT(blk == end_blk + 1); /* Reached end block which is continuous. */ + return end; +} +#else /* DUK_USE_REGEXP_CANON_BITMAP */ +DUK_LOCAL duk_codepoint_t duk__re_canon_next_discontinuity(duk_codepoint_t start, duk_codepoint_t end) { + DUK_ASSERT(start >= 0); + DUK_ASSERT(end >= 0); + DUK_ASSERT(end >= start); + if (start >= 0x10000) { + /* Even without the bitmap, treat non-BMP as continuous. */ + return end; + } + return start; +} +#endif /* DUK_USE_REGEXP_CANON_BITMAP */ + +DUK_LOCAL void duk__regexp_generate_ranges(void *userdata, duk_codepoint_t r1, duk_codepoint_t r2, duk_bool_t direct) { + duk_re_compiler_ctx *re_ctx = (duk_re_compiler_ctx *) userdata; + duk_codepoint_t r_start; + duk_codepoint_t r_end; + duk_codepoint_t i; + duk_codepoint_t t; + duk_codepoint_t r_disc; + + DUK_DD(DUK_DDPRINT("duk__regexp_generate_ranges(): re_ctx=%p, range=[%ld,%ld] direct=%ld", + (void *) re_ctx, (long) r1, (long) r2, (long) direct)); + + DUK_ASSERT(r2 >= r1); /* SyntaxError for out of order range. */ + + if (direct || (re_ctx->re_flags & DUK_RE_FLAG_IGNORE_CASE) == 0) { + DUK_DD(DUK_DDPRINT("direct or not case sensitive, emit range: [%ld,%ld]", (long) r1, (long) r2)); + duk__regexp_emit_range(re_ctx, r1, r2); + return; + } + + DUK_DD(DUK_DDPRINT("case sensitive, process range: [%ld,%ld]", (long) r1, (long) r2)); + + r_start = duk_unicode_re_canonicalize_char(re_ctx->thr, r1); + r_end = r_start; + + for (i = r1 + 1; i <= r2;) { + /* Input codepoint space processed up to i-1, and + * current range in r_{start,end} is up-to-date + * (inclusive) and may either break or continue. + */ + r_disc = duk__re_canon_next_discontinuity(i, r2); + DUK_ASSERT(r_disc >= i); + DUK_ASSERT(r_disc <= r2); + + r_end += r_disc - i; /* May be zero. */ + t = duk_unicode_re_canonicalize_char(re_ctx->thr, r_disc); + if (t == r_end + 1) { + /* Not actually a discontinuity, continue range + * to r_disc and recheck. + */ + r_end = t; + } else { + duk__regexp_emit_range(re_ctx, r_start, r_end); + r_start = t; + r_end = t; + } + i = r_disc + 1; /* Guarantees progress. */ + } + duk__regexp_emit_range(re_ctx, r_start, r_end); + +#if 0 /* Exhaustive search, very slow. */ + r_start = duk_unicode_re_canonicalize_char(re_ctx->thr, r1); + r_end = r_start; + for (i = r1 + 1; i <= r2; i++) { + t = duk_unicode_re_canonicalize_char(re_ctx->thr, i); + if (t == r_end + 1) { + r_end = t; + } else { + DUK_DD(DUK_DDPRINT("canonicalized, emit range: [%ld,%ld]", (long) r_start, (long) r_end)); + duk__append_u32(re_ctx, (duk_uint32_t) r_start); + duk__append_u32(re_ctx, (duk_uint32_t) r_end); + re_ctx->nranges++; + r_start = t; + r_end = t; + } + } + DUK_DD(DUK_DDPRINT("canonicalized, emit range: [%ld,%ld]", (long) r_start, (long) r_end)); + duk__append_u32(re_ctx, (duk_uint32_t) r_start); + duk__append_u32(re_ctx, (duk_uint32_t) r_end); + re_ctx->nranges++; +#endif +} + +/* + * Parse regexp Disjunction. Most of regexp compilation happens here. + * + * Handles Disjunction, Alternative, and Term productions directly without + * recursion. The only constructs requiring recursion are positive/negative + * lookaheads, capturing parentheses, and non-capturing parentheses. + * + * The function determines whether the entire disjunction is a 'simple atom' + * (see doc/regexp.rst discussion on 'simple quantifiers') and if so, + * returns the atom character length which is needed by the caller to keep + * track of its own atom character length. A disjunction with more than one + * alternative is never considered a simple atom (although in some cases + * that might be the case). + * + * Return value: simple atom character length or < 0 if not a simple atom. + * Appends the bytecode for the disjunction matcher to the end of the temp + * buffer. + * + * Regexp top level structure is: + * + * Disjunction = Term* + * | Term* | Disjunction + * + * Term = Assertion + * | Atom + * | Atom Quantifier + * + * An empty Term sequence is a valid disjunction alternative (e.g. /|||c||/). + * + * Notes: + * + * * Tracking of the 'simple-ness' of the current atom vs. the entire + * disjunction are separate matters. For instance, the disjunction + * may be complex, but individual atoms may be simple. Furthermore, + * simple quantifiers are used whenever possible, even if the + * disjunction as a whole is complex. + * + * * The estimate of whether an atom is simple is conservative now, + * and it would be possible to expand it. For instance, captures + * cause the disjunction to be marked complex, even though captures + * -can- be handled by simple quantifiers with some minor modifications. + * + * * Disjunction 'tainting' as 'complex' is handled at the end of the + * main for loop collectively for atoms. Assertions, quantifiers, + * and '|' tokens need to taint the result manually if necessary. + * Assertions cannot add to result char length, only atoms (and + * quantifiers) can; currently quantifiers will taint the result + * as complex though. + */ + +DUK_LOCAL const duk_uint16_t * const duk__re_range_lookup1[3] = { + duk_unicode_re_ranges_digit, + duk_unicode_re_ranges_white, + duk_unicode_re_ranges_wordchar +}; +DUK_LOCAL const duk_uint8_t duk__re_range_lookup2[3] = { + sizeof(duk_unicode_re_ranges_digit) / (2 * sizeof(duk_uint16_t)), + sizeof(duk_unicode_re_ranges_white) / (2 * sizeof(duk_uint16_t)), + sizeof(duk_unicode_re_ranges_wordchar) / (2 * sizeof(duk_uint16_t)) +}; + +DUK_LOCAL void duk__append_range_atom_matcher(duk_re_compiler_ctx *re_ctx, duk_small_uint_t re_op, const duk_uint16_t *ranges, duk_small_uint_t count) { +#if 0 + DUK_ASSERT(re_op <= 0x7fUL); + DUK_ASSERT(count <= 0x7fUL); + duk__append_2bytes(re_ctx, (duk_uint8_t) re_op, (duk_uint8_t) count); +#endif + duk__append_reop(re_ctx, re_op); + duk__append_7bit(re_ctx, count); + duk__append_u16_list(re_ctx, ranges, count * 2); +} + +DUK_LOCAL void duk__parse_disjunction(duk_re_compiler_ctx *re_ctx, duk_bool_t expect_eof, duk__re_disjunction_info *out_atom_info) { + duk_int32_t atom_start_offset = -1; /* negative -> no atom matched on previous round */ + duk_int32_t atom_char_length = 0; /* negative -> complex atom */ + duk_uint32_t atom_start_captures = re_ctx->captures; /* value of re_ctx->captures at start of atom */ + duk_int32_t unpatched_disjunction_split = -1; + duk_int32_t unpatched_disjunction_jump = -1; + duk_uint32_t entry_offset = (duk_uint32_t) DUK__RE_BUFLEN(re_ctx); + duk_int32_t res_charlen = 0; /* -1 if disjunction is complex, char length if simple */ + duk__re_disjunction_info tmp_disj; + + DUK_ASSERT(out_atom_info != NULL); + + duk_native_stack_check(re_ctx->thr); + if (re_ctx->recursion_depth >= re_ctx->recursion_limit) { + DUK_ERROR_RANGE(re_ctx->thr, DUK_STR_REGEXP_COMPILER_RECURSION_LIMIT); + DUK_WO_NORETURN(return;); + } + re_ctx->recursion_depth++; + +#if 0 + out_atom_info->start_captures = re_ctx->captures; +#endif + + for (;;) { + /* atom_char_length, atom_start_offset, atom_start_offset reflect the + * atom matched on the previous loop. If a quantifier is encountered + * on this loop, these are needed to handle the quantifier correctly. + * new_atom_char_length etc are for the atom parsed on this round; + * they're written to atom_char_length etc at the end of the round. + */ + duk_int32_t new_atom_char_length; /* char length of the atom parsed in this loop */ + duk_int32_t new_atom_start_offset; /* bytecode start offset of the atom parsed in this loop + * (allows quantifiers to copy the atom bytecode) + */ + duk_uint32_t new_atom_start_captures; /* re_ctx->captures at the start of the atom parsed in this loop */ + + duk_lexer_parse_re_token(&re_ctx->lex, &re_ctx->curr_token); + + DUK_DD(DUK_DDPRINT("re token: %ld (num=%ld, char=%c)", + (long) re_ctx->curr_token.t, + (long) re_ctx->curr_token.num, + (re_ctx->curr_token.num >= 0x20 && re_ctx->curr_token.num <= 0x7e) ? + (int) re_ctx->curr_token.num : (int) '?')); + + /* set by atom case clauses */ + new_atom_start_offset = -1; + new_atom_char_length = -1; + new_atom_start_captures = re_ctx->captures; + + switch (re_ctx->curr_token.t) { + case DUK_RETOK_DISJUNCTION: { + /* + * The handling here is a bit tricky. If a previous '|' has been processed, + * we have a pending split1 and a pending jump (for a previous match). These + * need to be back-patched carefully. See docs for a detailed example. + */ + + /* patch pending jump and split */ + if (unpatched_disjunction_jump >= 0) { + duk_uint32_t offset; + + DUK_ASSERT(unpatched_disjunction_split >= 0); + offset = (duk_uint32_t) unpatched_disjunction_jump; + offset += duk__insert_jump_offset(re_ctx, + offset, + (duk_int32_t) (DUK__RE_BUFLEN(re_ctx) - offset)); + /* offset is now target of the pending split (right after jump) */ + duk__insert_jump_offset(re_ctx, + (duk_uint32_t) unpatched_disjunction_split, + (duk_int32_t) offset - unpatched_disjunction_split); + } + + /* add a new pending split to the beginning of the entire disjunction */ + (void) duk__insert_u32(re_ctx, + entry_offset, + DUK_REOP_SPLIT1); /* prefer direct execution */ + unpatched_disjunction_split = (duk_int32_t) (entry_offset + 1); /* +1 for opcode */ + + /* add a new pending match jump for latest finished alternative */ + duk__append_reop(re_ctx, DUK_REOP_JUMP); + unpatched_disjunction_jump = (duk_int32_t) DUK__RE_BUFLEN(re_ctx); + + /* 'taint' result as complex */ + res_charlen = -1; + break; + } + case DUK_RETOK_QUANTIFIER: { + if (atom_start_offset < 0) { + DUK_ERROR_SYNTAX(re_ctx->thr, DUK_STR_INVALID_QUANTIFIER_NO_ATOM); + DUK_WO_NORETURN(return;); + } + if (re_ctx->curr_token.qmin > re_ctx->curr_token.qmax) { + DUK_ERROR_SYNTAX(re_ctx->thr, DUK_STR_INVALID_QUANTIFIER_VALUES); + DUK_WO_NORETURN(return;); + } + if (atom_char_length >= 0) { + /* + * Simple atom + * + * If atom_char_length is zero, we'll have unbounded execution time for e.g. + * /()*x/.exec('x'). We can't just skip the match because it might have some + * side effects (for instance, if we allowed captures in simple atoms, the + * capture needs to happen). The simple solution below is to force the + * quantifier to match at most once, since the additional matches have no effect. + * + * With a simple atom there can be no capture groups, so no captures need + * to be reset. + */ + duk_int32_t atom_code_length; + duk_uint32_t offset; + duk_uint32_t qmin, qmax; + + qmin = re_ctx->curr_token.qmin; + qmax = re_ctx->curr_token.qmax; + if (atom_char_length == 0) { + /* qmin and qmax will be 0 or 1 */ + if (qmin > 1) { + qmin = 1; + } + if (qmax > 1) { + qmax = 1; + } + } + + duk__append_reop(re_ctx, DUK_REOP_MATCH); /* complete 'sub atom' */ + atom_code_length = (duk_int32_t) (DUK__RE_BUFLEN(re_ctx) - (duk_size_t) atom_start_offset); + + offset = (duk_uint32_t) atom_start_offset; + if (re_ctx->curr_token.greedy) { + offset += duk__insert_u32(re_ctx, offset, DUK_REOP_SQGREEDY); + offset += duk__insert_u32(re_ctx, offset, qmin); + offset += duk__insert_u32(re_ctx, offset, qmax); + offset += duk__insert_u32(re_ctx, offset, (duk_uint32_t) atom_char_length); + offset += duk__insert_jump_offset(re_ctx, offset, atom_code_length); + } else { + offset += duk__insert_u32(re_ctx, offset, DUK_REOP_SQMINIMAL); + offset += duk__insert_u32(re_ctx, offset, qmin); + offset += duk__insert_u32(re_ctx, offset, qmax); + offset += duk__insert_jump_offset(re_ctx, offset, atom_code_length); + } + DUK_UNREF(offset); /* silence scan-build warning */ + } else { + /* + * Complex atom + * + * The original code is used as a template, and removed at the end + * (this differs from the handling of simple quantifiers). + * + * NOTE: there is no current solution for empty atoms in complex + * quantifiers. This would need some sort of a 'progress' instruction. + * + * XXX: impose limit on maximum result size, i.e. atom_code_len * atom_copies? + */ + duk_int32_t atom_code_length; + duk_uint32_t atom_copies; + duk_uint32_t tmp_qmin, tmp_qmax; + + /* pre-check how many atom copies we're willing to make (atom_copies not needed below) */ + atom_copies = (re_ctx->curr_token.qmax == DUK_RE_QUANTIFIER_INFINITE) ? + re_ctx->curr_token.qmin : re_ctx->curr_token.qmax; + if (atom_copies > DUK_RE_MAX_ATOM_COPIES) { + DUK_ERROR_RANGE(re_ctx->thr, DUK_STR_QUANTIFIER_TOO_MANY_COPIES); + DUK_WO_NORETURN(return;); + } + + /* wipe the capture range made by the atom (if any) */ + DUK_ASSERT(atom_start_captures <= re_ctx->captures); + if (atom_start_captures != re_ctx->captures) { + DUK_ASSERT(atom_start_captures < re_ctx->captures); + DUK_DDD(DUK_DDDPRINT("must wipe ]atom_start_captures,re_ctx->captures]: ]%ld,%ld]", + (long) atom_start_captures, (long) re_ctx->captures)); + + /* insert (DUK_REOP_WIPERANGE, start, count) in reverse order so the order ends up right */ + duk__insert_u32(re_ctx, (duk_uint32_t) atom_start_offset, (re_ctx->captures - atom_start_captures) * 2U); + duk__insert_u32(re_ctx, (duk_uint32_t) atom_start_offset, (atom_start_captures + 1) * 2); + duk__insert_u32(re_ctx, (duk_uint32_t) atom_start_offset, DUK_REOP_WIPERANGE); + } else { + DUK_DDD(DUK_DDDPRINT("no need to wipe captures: atom_start_captures == re_ctx->captures == %ld", + (long) atom_start_captures)); + } + + atom_code_length = (duk_int32_t) DUK__RE_BUFLEN(re_ctx) - atom_start_offset; + + /* insert the required matches (qmin) by copying the atom */ + tmp_qmin = re_ctx->curr_token.qmin; + tmp_qmax = re_ctx->curr_token.qmax; + while (tmp_qmin > 0) { + duk__append_slice(re_ctx, (duk_uint32_t) atom_start_offset, (duk_uint32_t) atom_code_length); + tmp_qmin--; + if (tmp_qmax != DUK_RE_QUANTIFIER_INFINITE) { + tmp_qmax--; + } + } + DUK_ASSERT(tmp_qmin == 0); + + /* insert code for matching the remainder - infinite or finite */ + if (tmp_qmax == DUK_RE_QUANTIFIER_INFINITE) { + /* reuse last emitted atom for remaining 'infinite' quantifier */ + + if (re_ctx->curr_token.qmin == 0) { + /* Special case: original qmin was zero so there is nothing + * to repeat. Emit an atom copy but jump over it here. + */ + duk__append_reop(re_ctx, DUK_REOP_JUMP); + duk__append_jump_offset(re_ctx, atom_code_length); + duk__append_slice(re_ctx, (duk_uint32_t) atom_start_offset, (duk_uint32_t) atom_code_length); + } + if (re_ctx->curr_token.greedy) { + duk__append_reop(re_ctx, DUK_REOP_SPLIT2); /* prefer jump */ + } else { + duk__append_reop(re_ctx, DUK_REOP_SPLIT1); /* prefer direct */ + } + duk__append_jump_offset(re_ctx, -atom_code_length - 1); /* -1 for opcode */ + } else { + /* + * The remaining matches are emitted as sequence of SPLITs and atom + * copies; the SPLITs skip the remaining copies and match the sequel. + * This sequence needs to be emitted starting from the last copy + * because the SPLITs are variable length due to the variable length + * skip offset. This causes a lot of memory copying now. + * + * Example structure (greedy, match maximum # atoms): + * + * SPLIT1 LSEQ + * (atom) + * SPLIT1 LSEQ ; <- the byte length of this instruction is needed + * (atom) ; to encode the above SPLIT1 correctly + * ... + * LSEQ: + */ + duk_uint32_t offset = (duk_uint32_t) DUK__RE_BUFLEN(re_ctx); + while (tmp_qmax > 0) { + duk__insert_slice(re_ctx, offset, (duk_uint32_t) atom_start_offset, (duk_uint32_t) atom_code_length); + if (re_ctx->curr_token.greedy) { + duk__insert_u32(re_ctx, offset, DUK_REOP_SPLIT1); /* prefer direct */ + } else { + duk__insert_u32(re_ctx, offset, DUK_REOP_SPLIT2); /* prefer jump */ + } + duk__insert_jump_offset(re_ctx, + offset + 1, /* +1 for opcode */ + (duk_int32_t) (DUK__RE_BUFLEN(re_ctx) - (offset + 1))); + tmp_qmax--; + } + } + + /* remove the original 'template' atom */ + duk__remove_slice(re_ctx, (duk_uint32_t) atom_start_offset, (duk_uint32_t) atom_code_length); + } + + /* 'taint' result as complex */ + res_charlen = -1; + break; + } + case DUK_RETOK_ASSERT_START: { + duk__append_reop(re_ctx, DUK_REOP_ASSERT_START); + break; + } + case DUK_RETOK_ASSERT_END: { + duk__append_reop(re_ctx, DUK_REOP_ASSERT_END); + break; + } + case DUK_RETOK_ASSERT_WORD_BOUNDARY: { + duk__append_reop(re_ctx, DUK_REOP_ASSERT_WORD_BOUNDARY); + break; + } + case DUK_RETOK_ASSERT_NOT_WORD_BOUNDARY: { + duk__append_reop(re_ctx, DUK_REOP_ASSERT_NOT_WORD_BOUNDARY); + break; + } + case DUK_RETOK_ASSERT_START_POS_LOOKAHEAD: + case DUK_RETOK_ASSERT_START_NEG_LOOKAHEAD: { + duk_uint32_t offset; + duk_uint32_t opcode = (re_ctx->curr_token.t == DUK_RETOK_ASSERT_START_POS_LOOKAHEAD) ? + DUK_REOP_LOOKPOS : DUK_REOP_LOOKNEG; + + offset = (duk_uint32_t) DUK__RE_BUFLEN(re_ctx); + duk__parse_disjunction(re_ctx, 0, &tmp_disj); + duk__append_reop(re_ctx, DUK_REOP_MATCH); + + (void) duk__insert_u32(re_ctx, offset, opcode); + (void) duk__insert_jump_offset(re_ctx, + offset + 1, /* +1 for opcode */ + (duk_int32_t) (DUK__RE_BUFLEN(re_ctx) - (offset + 1))); + + /* 'taint' result as complex -- this is conservative, + * as lookaheads do not backtrack. + */ + res_charlen = -1; + break; + } + case DUK_RETOK_ATOM_PERIOD: { + new_atom_char_length = 1; + new_atom_start_offset = (duk_int32_t) DUK__RE_BUFLEN(re_ctx); + duk__append_reop(re_ctx, DUK_REOP_PERIOD); + break; + } + case DUK_RETOK_ATOM_CHAR: { + /* Note: successive characters could be joined into string matches + * but this is not trivial (consider e.g. '/xyz+/); see docs for + * more discussion. + * + * No support for \u{H+} yet. While only BMP Unicode escapes are + * supported for RegExps at present, 'ch' may still be a non-BMP + * codepoint if it is decoded straight from source text UTF-8. + * There's no non-BMP support yet so this is handled simply by + * matching the non-BMP character (which is custom behavior). + */ + duk_uint32_t ch; + + new_atom_char_length = 1; + new_atom_start_offset = (duk_int32_t) DUK__RE_BUFLEN(re_ctx); + duk__append_reop(re_ctx, DUK_REOP_CHAR); + ch = re_ctx->curr_token.num; + if (re_ctx->re_flags & DUK_RE_FLAG_IGNORE_CASE) { + ch = (duk_uint32_t) duk_unicode_re_canonicalize_char(re_ctx->thr, (duk_codepoint_t) ch); + } + duk__append_u32(re_ctx, ch); + break; + } + case DUK_RETOK_ATOM_DIGIT: + case DUK_RETOK_ATOM_NOT_DIGIT: + case DUK_RETOK_ATOM_WHITE: + case DUK_RETOK_ATOM_NOT_WHITE: + case DUK_RETOK_ATOM_WORD_CHAR: + case DUK_RETOK_ATOM_NOT_WORD_CHAR: { + duk_small_uint_t re_op; + duk_small_uint_t idx; + + new_atom_char_length = 1; + new_atom_start_offset = (duk_int32_t) DUK__RE_BUFLEN(re_ctx); + + DUK_ASSERT((DUK_RETOK_ATOM_DIGIT & 0x01) != 0); + DUK_ASSERT((DUK_RETOK_ATOM_WHITE & 0x01) != 0); + DUK_ASSERT((DUK_RETOK_ATOM_WORD_CHAR & 0x01) != 0); + DUK_ASSERT((DUK_RETOK_ATOM_NOT_DIGIT & 0x01) == 0); + DUK_ASSERT((DUK_RETOK_ATOM_NOT_WHITE & 0x01) == 0); + DUK_ASSERT((DUK_RETOK_ATOM_NOT_WORD_CHAR & 0x01) == 0); + re_op = (re_ctx->curr_token.t & 0x01) ? DUK_REOP_RANGES : DUK_REOP_INVRANGES; + + DUK_ASSERT(DUK_RETOK_ATOM_WHITE == DUK_RETOK_ATOM_DIGIT + 2); + DUK_ASSERT(DUK_RETOK_ATOM_WORD_CHAR == DUK_RETOK_ATOM_DIGIT + 4); + idx = (duk_small_uint_t) ((re_ctx->curr_token.t - DUK_RETOK_ATOM_DIGIT) >> 1U); + DUK_ASSERT(idx <= 2U); /* Assume continuous token numbers; also checks negative underflow. */ + + duk__append_range_atom_matcher(re_ctx, re_op, duk__re_range_lookup1[idx], duk__re_range_lookup2[idx]); + break; + } + case DUK_RETOK_ATOM_BACKREFERENCE: { + duk_uint32_t backref = (duk_uint32_t) re_ctx->curr_token.num; + if (backref > re_ctx->highest_backref) { + re_ctx->highest_backref = backref; + } + new_atom_char_length = -1; /* mark as complex */ + new_atom_start_offset = (duk_int32_t) DUK__RE_BUFLEN(re_ctx); + duk__append_reop(re_ctx, DUK_REOP_BACKREFERENCE); + duk__append_u32(re_ctx, backref); + break; + } + case DUK_RETOK_ATOM_START_CAPTURE_GROUP: { + duk_uint32_t cap; + + new_atom_char_length = -1; /* mark as complex (capture handling) */ + new_atom_start_offset = (duk_int32_t) DUK__RE_BUFLEN(re_ctx); + cap = ++re_ctx->captures; + duk__append_reop(re_ctx, DUK_REOP_SAVE); + duk__append_u32(re_ctx, cap * 2); + duk__parse_disjunction(re_ctx, 0, &tmp_disj); /* retval (sub-atom char length) unused, tainted as complex above */ + duk__append_reop(re_ctx, DUK_REOP_SAVE); + duk__append_u32(re_ctx, cap * 2 + 1); + break; + } + case DUK_RETOK_ATOM_START_NONCAPTURE_GROUP: { + new_atom_start_offset = (duk_int32_t) DUK__RE_BUFLEN(re_ctx); + duk__parse_disjunction(re_ctx, 0, &tmp_disj); + new_atom_char_length = tmp_disj.charlen; + break; + } + case DUK_RETOK_ATOM_START_CHARCLASS: + case DUK_RETOK_ATOM_START_CHARCLASS_INVERTED: { + /* + * Range parsing is done with a special lexer function which calls + * us for every range parsed. This is different from how rest of + * the parsing works, but avoids a heavy, arbitrary size intermediate + * value type to hold the ranges. + * + * Another complication is the handling of character ranges when + * case insensitive matching is used (see docs for discussion). + * The range handler callback given to the lexer takes care of this + * as well. + * + * Note that duplicate ranges are not eliminated when parsing character + * classes, so that canonicalization of + * + * [0-9a-fA-Fx-{] + * + * creates the result (note the duplicate ranges): + * + * [0-9A-FA-FX-Z{-{] + * + * where [x-{] is split as a result of canonicalization. The duplicate + * ranges are not a semantics issue: they work correctly. + */ + + duk_uint32_t offset; + + DUK_DD(DUK_DDPRINT("character class")); + + /* insert ranges instruction, range count patched in later */ + new_atom_char_length = 1; + new_atom_start_offset = (duk_int32_t) DUK__RE_BUFLEN(re_ctx); + duk__append_reop(re_ctx, + (re_ctx->curr_token.t == DUK_RETOK_ATOM_START_CHARCLASS) ? + DUK_REOP_RANGES : DUK_REOP_INVRANGES); + offset = (duk_uint32_t) DUK__RE_BUFLEN(re_ctx); /* patch in range count later */ + + /* parse ranges until character class ends */ + re_ctx->nranges = 0; /* note: ctx-wide temporary */ + duk_lexer_parse_re_ranges(&re_ctx->lex, duk__regexp_generate_ranges, (void *) re_ctx); + + /* insert range count */ + duk__insert_u32(re_ctx, offset, re_ctx->nranges); + break; + } + case DUK_RETOK_ATOM_END_GROUP: { + if (expect_eof) { + DUK_ERROR_SYNTAX(re_ctx->thr, DUK_STR_UNEXPECTED_CLOSING_PAREN); + DUK_WO_NORETURN(return;); + } + goto done; + } + case DUK_RETOK_EOF: { + if (!expect_eof) { + DUK_ERROR_SYNTAX(re_ctx->thr, DUK_STR_UNEXPECTED_END_OF_PATTERN); + DUK_WO_NORETURN(return;); + } + goto done; + } + default: { + DUK_ERROR_SYNTAX(re_ctx->thr, DUK_STR_UNEXPECTED_REGEXP_TOKEN); + DUK_WO_NORETURN(return;); + } + } + + /* a complex (new) atom taints the result */ + if (new_atom_start_offset >= 0) { + if (new_atom_char_length < 0) { + res_charlen = -1; + } else if (res_charlen >= 0) { + /* only advance if not tainted */ + res_charlen += new_atom_char_length; + } + } + + /* record previous atom info in case next token is a quantifier */ + atom_start_offset = new_atom_start_offset; + atom_char_length = new_atom_char_length; + atom_start_captures = new_atom_start_captures; + } + + done: + + /* finish up pending jump and split for last alternative */ + if (unpatched_disjunction_jump >= 0) { + duk_uint32_t offset; + + DUK_ASSERT(unpatched_disjunction_split >= 0); + offset = (duk_uint32_t) unpatched_disjunction_jump; + offset += duk__insert_jump_offset(re_ctx, + offset, + (duk_int32_t) (DUK__RE_BUFLEN(re_ctx) - offset)); + /* offset is now target of the pending split (right after jump) */ + duk__insert_jump_offset(re_ctx, + (duk_uint32_t) unpatched_disjunction_split, + (duk_int32_t) offset - unpatched_disjunction_split); + } + +#if 0 + out_atom_info->end_captures = re_ctx->captures; +#endif + out_atom_info->charlen = res_charlen; + DUK_DDD(DUK_DDDPRINT("parse disjunction finished: charlen=%ld", + (long) out_atom_info->charlen)); + + re_ctx->recursion_depth--; +} + +/* + * Flags parsing (see E5 Section 15.10.4.1). + */ + +DUK_LOCAL duk_uint32_t duk__parse_regexp_flags(duk_hthread *thr, duk_hstring *h) { + const duk_uint8_t *p; + const duk_uint8_t *p_end; + duk_uint32_t flags = 0; + + p = DUK_HSTRING_GET_DATA(h); + p_end = p + DUK_HSTRING_GET_BYTELEN(h); + + /* Note: can be safely scanned as bytes (undecoded) */ + + while (p < p_end) { + duk_uint8_t c = *p++; + switch (c) { + case (duk_uint8_t) 'g': { + if (flags & DUK_RE_FLAG_GLOBAL) { + goto flags_error; + } + flags |= DUK_RE_FLAG_GLOBAL; + break; + } + case (duk_uint8_t) 'i': { + if (flags & DUK_RE_FLAG_IGNORE_CASE) { + goto flags_error; + } + flags |= DUK_RE_FLAG_IGNORE_CASE; + break; + } + case (duk_uint8_t) 'm': { + if (flags & DUK_RE_FLAG_MULTILINE) { + goto flags_error; + } + flags |= DUK_RE_FLAG_MULTILINE; + break; + } + default: { + goto flags_error; + } + } + } + + return flags; + + flags_error: + DUK_ERROR_SYNTAX(thr, DUK_STR_INVALID_REGEXP_FLAGS); + DUK_WO_NORETURN(return 0U;); +} + +/* + * Create escaped RegExp source (E5 Section 15.10.3). + * + * The current approach is to special case the empty RegExp + * ('' -> '(?:)') and otherwise replace unescaped '/' characters + * with '\/' regardless of where they occur in the regexp. + * + * Note that normalization does not seem to be necessary for + * RegExp literals (e.g. '/foo/') because to be acceptable as + * a RegExp literal, the text between forward slashes must + * already match the escaping requirements (e.g. must not contain + * unescaped forward slashes or be empty). Escaping IS needed + * for expressions like 'new Regexp("...", "")' however. + * Currently, we re-escape in either case. + * + * Also note that we process the source here in UTF-8 encoded + * form. This is correct, because any non-ASCII characters are + * passed through without change. + */ + +DUK_LOCAL void duk__create_escaped_source(duk_hthread *thr, int idx_pattern) { + duk_hstring *h; + const duk_uint8_t *p; + duk_bufwriter_ctx bw_alloc; + duk_bufwriter_ctx *bw; + duk_uint8_t *q; + duk_size_t i, n; + duk_uint_fast8_t c_prev, c; + + h = duk_known_hstring(thr, idx_pattern); + p = (const duk_uint8_t *) DUK_HSTRING_GET_DATA(h); + n = (duk_size_t) DUK_HSTRING_GET_BYTELEN(h); + + if (n == 0) { + duk_push_literal(thr, "(?:)"); + return; + } + + bw = &bw_alloc; + DUK_BW_INIT_PUSHBUF(thr, bw, n); + q = DUK_BW_GET_PTR(thr, bw); + + c_prev = (duk_uint_fast8_t) 0; + + for (i = 0; i < n; i++) { + c = p[i]; + + q = DUK_BW_ENSURE_RAW(thr, bw, 2, q); + + if (c == (duk_uint_fast8_t) '/' && c_prev != (duk_uint_fast8_t) '\\') { + /* Unescaped '/' ANYWHERE in the regexp (in disjunction, + * inside a character class, ...) => same escape works. + */ + *q++ = DUK_ASC_BACKSLASH; + } + *q++ = (duk_uint8_t) c; + + c_prev = c; + } + + DUK_BW_SETPTR_AND_COMPACT(thr, bw, q); + (void) duk_buffer_to_string(thr, -1); /* Safe if input is safe. */ + + /* [ ... escaped_source ] */ +} + +/* + * Exposed regexp compilation primitive. + * + * Sets up a regexp compilation context, and calls duk__parse_disjunction() to do the + * actual parsing. Handles generation of the compiled regexp header and the + * "boilerplate" capture of the matching substring (save 0 and 1). Also does some + * global level regexp checks after recursive compilation has finished. + * + * An escaped version of the regexp source, suitable for use as a RegExp instance + * 'source' property (see E5 Section 15.10.3), is also left on the stack. + * + * Input stack: [ pattern flags ] + * Output stack: [ bytecode escaped_source ] (both as strings) + */ + +DUK_INTERNAL void duk_regexp_compile(duk_hthread *thr) { + duk_re_compiler_ctx re_ctx; + duk_lexer_point lex_point; + duk_hstring *h_pattern; + duk_hstring *h_flags; + duk__re_disjunction_info ign_disj; + + DUK_ASSERT(thr != NULL); + + /* + * Args validation + */ + + /* TypeError if fails */ + h_pattern = duk_require_hstring_notsymbol(thr, -2); + h_flags = duk_require_hstring_notsymbol(thr, -1); + + /* + * Create normalized 'source' property (E5 Section 15.10.3). + */ + + /* [ ... pattern flags ] */ + + duk__create_escaped_source(thr, -2); + + /* [ ... pattern flags escaped_source ] */ + + /* + * Init compilation context + */ + + /* [ ... pattern flags escaped_source buffer ] */ + + duk_memzero(&re_ctx, sizeof(re_ctx)); + DUK_LEXER_INITCTX(&re_ctx.lex); /* duplicate zeroing, expect for (possible) NULL inits */ + re_ctx.thr = thr; + re_ctx.lex.thr = thr; + re_ctx.lex.input = DUK_HSTRING_GET_DATA(h_pattern); + re_ctx.lex.input_length = DUK_HSTRING_GET_BYTELEN(h_pattern); + re_ctx.lex.token_limit = DUK_RE_COMPILE_TOKEN_LIMIT; + re_ctx.recursion_limit = DUK_USE_REGEXP_COMPILER_RECLIMIT; + re_ctx.re_flags = duk__parse_regexp_flags(thr, h_flags); + + DUK_BW_INIT_PUSHBUF(thr, &re_ctx.bw, DUK__RE_INITIAL_BUFSIZE); + + DUK_DD(DUK_DDPRINT("regexp compiler ctx initialized, flags=0x%08lx, recursion_limit=%ld", + (unsigned long) re_ctx.re_flags, (long) re_ctx.recursion_limit)); + + /* + * Init lexer + */ + + lex_point.offset = 0; /* expensive init, just want to fill window */ + lex_point.line = 1; + DUK_LEXER_SETPOINT(&re_ctx.lex, &lex_point); + + /* + * Compilation + */ + + DUK_DD(DUK_DDPRINT("starting regexp compilation")); + + duk__append_reop(&re_ctx, DUK_REOP_SAVE); + duk__append_7bit(&re_ctx, 0); + duk__parse_disjunction(&re_ctx, 1 /*expect_eof*/, &ign_disj); + duk__append_reop(&re_ctx, DUK_REOP_SAVE); + duk__append_7bit(&re_ctx, 1); + duk__append_reop(&re_ctx, DUK_REOP_MATCH); + + /* + * Check for invalid backreferences; note that it is NOT an error + * to back-reference a capture group which has not yet been introduced + * in the pattern (as in /\1(foo)/); in fact, the backreference will + * always match! It IS an error to back-reference a capture group + * which will never be introduced in the pattern. Thus, we can check + * for such references only after parsing is complete. + */ + + if (re_ctx.highest_backref > re_ctx.captures) { + DUK_ERROR_SYNTAX(thr, DUK_STR_INVALID_BACKREFS); + DUK_WO_NORETURN(return;); + } + + /* + * Emit compiled regexp header: flags, ncaptures + * (insertion order inverted on purpose) + */ + + duk__insert_u32(&re_ctx, 0, (re_ctx.captures + 1) * 2); + duk__insert_u32(&re_ctx, 0, re_ctx.re_flags); + + /* [ ... pattern flags escaped_source buffer ] */ + + DUK_BW_COMPACT(thr, &re_ctx.bw); + (void) duk_buffer_to_string(thr, -1); /* Safe because flags is at most 7 bit. */ + + /* [ ... pattern flags escaped_source bytecode ] */ + + /* + * Finalize stack + */ + + duk_remove(thr, -4); /* -> [ ... flags escaped_source bytecode ] */ + duk_remove(thr, -3); /* -> [ ... escaped_source bytecode ] */ + + DUK_DD(DUK_DDPRINT("regexp compilation successful, bytecode: %!T, escaped source: %!T", + (duk_tval *) duk_get_tval(thr, -1), (duk_tval *) duk_get_tval(thr, -2))); +} + +/* + * Create a RegExp instance (E5 Section 15.10.7). + * + * Note: the output stack left by duk_regexp_compile() is directly compatible + * with the input here. + * + * Input stack: [ escaped_source bytecode ] (both as strings) + * Output stack: [ RegExp ] + */ + +DUK_INTERNAL void duk_regexp_create_instance(duk_hthread *thr) { + duk_hobject *h; + + /* [ ... escaped_source bytecode ] */ + + duk_push_object(thr); + h = duk_known_hobject(thr, -1); + duk_insert(thr, -3); + + /* [ ... regexp_object escaped_source bytecode ] */ + + DUK_HOBJECT_SET_CLASS_NUMBER(h, DUK_HOBJECT_CLASS_REGEXP); + DUK_HOBJECT_SET_PROTOTYPE_UPDREF(thr, h, thr->builtins[DUK_BIDX_REGEXP_PROTOTYPE]); + + duk_xdef_prop_stridx_short(thr, -3, DUK_STRIDX_INT_BYTECODE, DUK_PROPDESC_FLAGS_NONE); + + /* [ ... regexp_object escaped_source ] */ + + /* In ES2015 .source, and the .global, .multiline, etc flags are + * inherited getters. Store the escaped source as an internal + * property for the getter. + */ + + duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_INT_SOURCE, DUK_PROPDESC_FLAGS_NONE); + + /* [ ... regexp_object ] */ + + duk_push_int(thr, 0); + duk_xdef_prop_stridx_short(thr, -2, DUK_STRIDX_LAST_INDEX, DUK_PROPDESC_FLAGS_W); + + /* [ ... regexp_object ] */ +} + +#else /* DUK_USE_REGEXP_SUPPORT */ + +/* regexp support disabled */ + +#endif /* DUK_USE_REGEXP_SUPPORT */ + +/* automatic undefs */ +#undef DUK__RE_BUFLEN +#undef DUK__RE_INITIAL_BUFSIZE +#line 1 "duk_regexp_executor.c" +/* + * Regexp executor. + * + * Safety: the ECMAScript executor should prevent user from reading and + * replacing regexp bytecode. Even so, the executor must validate all + * memory accesses etc. When an invalid access is detected (e.g. a 'save' + * opcode to invalid, unallocated index) it should fail with an internal + * error but not cause a segmentation fault. + * + * Notes: + * + * - Backtrack counts are limited to unsigned 32 bits but should + * technically be duk_size_t for strings longer than 4G chars. + * This also requires a regexp bytecode change. + */ + +/* #include duk_internal.h -> already included */ + +#if defined(DUK_USE_REGEXP_SUPPORT) + +/* + * Helpers for UTF-8 handling + * + * For bytecode readers the duk_uint32_t and duk_int32_t types are correct + * because they're used for more than just codepoints. + */ + +DUK_LOCAL duk_uint32_t duk__bc_get_u32(duk_re_matcher_ctx *re_ctx, const duk_uint8_t **pc) { + return (duk_uint32_t) duk_unicode_decode_xutf8_checked(re_ctx->thr, pc, re_ctx->bytecode, re_ctx->bytecode_end); +} + +DUK_LOCAL duk_int32_t duk__bc_get_i32(duk_re_matcher_ctx *re_ctx, const duk_uint8_t **pc) { + duk_uint32_t t; + + /* signed integer encoding needed to work with UTF-8 */ + t = (duk_uint32_t) duk_unicode_decode_xutf8_checked(re_ctx->thr, pc, re_ctx->bytecode, re_ctx->bytecode_end); + if (t & 1) { + return -((duk_int32_t) (t >> 1)); + } else { + return (duk_int32_t) (t >> 1); + } +} + +DUK_LOCAL const duk_uint8_t *duk__utf8_backtrack(duk_hthread *thr, const duk_uint8_t **ptr, const duk_uint8_t *ptr_start, const duk_uint8_t *ptr_end, duk_uint_fast32_t count) { + const duk_uint8_t *p; + + /* Note: allow backtracking from p == ptr_end */ + p = *ptr; + if (p < ptr_start || p > ptr_end) { + goto fail; + } + + while (count > 0) { + for (;;) { + p--; + if (p < ptr_start) { + goto fail; + } + if ((*p & 0xc0) != 0x80) { + /* utf-8 continuation bytes have the form 10xx xxxx */ + break; + } + } + count--; + } + *ptr = p; + return p; + + fail: + DUK_ERROR_INTERNAL(thr); + DUK_WO_NORETURN(return NULL;); +} + +DUK_LOCAL const duk_uint8_t *duk__utf8_advance(duk_hthread *thr, const duk_uint8_t **ptr, const duk_uint8_t *ptr_start, const duk_uint8_t *ptr_end, duk_uint_fast32_t count) { + const duk_uint8_t *p; + + p = *ptr; + if (p < ptr_start || p >= ptr_end) { + goto fail; + } + + while (count > 0) { + for (;;) { + p++; + + /* Note: if encoding ends by hitting end of input, we don't check that + * the encoding is valid, we just assume it is. + */ + if (p >= ptr_end || ((*p & 0xc0) != 0x80)) { + /* utf-8 continuation bytes have the form 10xx xxxx */ + break; + } + } + count--; + } + + *ptr = p; + return p; + + fail: + DUK_ERROR_INTERNAL(thr); + DUK_WO_NORETURN(return NULL;); +} + +/* + * Helpers for dealing with the input string + */ + +/* Get a (possibly canonicalized) input character from current sp. The input + * itself is never modified, and captures always record non-canonicalized + * characters even in case-insensitive matching. Return <0 if out of input. + */ +DUK_LOCAL duk_codepoint_t duk__inp_get_cp(duk_re_matcher_ctx *re_ctx, const duk_uint8_t **sp) { + duk_codepoint_t res; + + if (*sp >= re_ctx->input_end) { + return -1; + } + res = (duk_codepoint_t) duk_unicode_decode_xutf8_checked(re_ctx->thr, sp, re_ctx->input, re_ctx->input_end); + if (re_ctx->re_flags & DUK_RE_FLAG_IGNORE_CASE) { + res = duk_unicode_re_canonicalize_char(re_ctx->thr, res); + } + return res; +} + +DUK_LOCAL const duk_uint8_t *duk__inp_backtrack(duk_re_matcher_ctx *re_ctx, const duk_uint8_t **sp, duk_uint_fast32_t count) { + return duk__utf8_backtrack(re_ctx->thr, sp, re_ctx->input, re_ctx->input_end, count); +} + +/* Backtrack utf-8 input and return a (possibly canonicalized) input character. */ +DUK_LOCAL duk_codepoint_t duk__inp_get_prev_cp(duk_re_matcher_ctx *re_ctx, const duk_uint8_t *sp) { + /* note: caller 'sp' is intentionally not updated here */ + (void) duk__inp_backtrack(re_ctx, &sp, (duk_uint_fast32_t) 1); + return duk__inp_get_cp(re_ctx, &sp); +} + +/* + * Regexp recursive matching function. + * + * Returns 'sp' on successful match (points to character after last matched one), + * NULL otherwise. + * + * The C recursion depth limit check is only performed in this function, this + * suffices because the function is present in all true recursion required by + * regexp execution. + */ + +DUK_LOCAL const duk_uint8_t *duk__match_regexp(duk_re_matcher_ctx *re_ctx, const duk_uint8_t *pc, const duk_uint8_t *sp) { + duk_native_stack_check(re_ctx->thr); + if (re_ctx->recursion_depth >= re_ctx->recursion_limit) { + DUK_ERROR_RANGE(re_ctx->thr, DUK_STR_REGEXP_EXECUTOR_RECURSION_LIMIT); + DUK_WO_NORETURN(return NULL;); + } + re_ctx->recursion_depth++; + + for (;;) { + duk_small_int_t op; + + if (re_ctx->steps_count >= re_ctx->steps_limit) { + DUK_ERROR_RANGE(re_ctx->thr, DUK_STR_REGEXP_EXECUTOR_STEP_LIMIT); + DUK_WO_NORETURN(return NULL;); + } + re_ctx->steps_count++; + + /* Opcodes are at most 7 bits now so they encode to one byte. If this + * were not the case or 'pc' is invalid here (due to a bug etc) we'll + * still fail safely through the switch default case. + */ + DUK_ASSERT(pc[0] <= 0x7fU); +#if 0 + op = (duk_small_int_t) duk__bc_get_u32(re_ctx, &pc); +#endif + op = *pc++; + + DUK_DDD(DUK_DDDPRINT("match: rec=%ld, steps=%ld, pc (after op)=%ld, sp=%ld, op=%ld", + (long) re_ctx->recursion_depth, + (long) re_ctx->steps_count, + (long) (pc - re_ctx->bytecode), + (long) (sp - re_ctx->input), + (long) op)); + + switch (op) { + case DUK_REOP_MATCH: { + goto match; + } + case DUK_REOP_CHAR: { + /* + * Byte-based matching would be possible for case-sensitive + * matching but not for case-insensitive matching. So, we + * match by decoding the input and bytecode character normally. + * + * Bytecode characters are assumed to be already canonicalized. + * Input characters are canonicalized automatically by + * duk__inp_get_cp() if necessary. + * + * There is no opcode for matching multiple characters. The + * regexp compiler has trouble joining strings efficiently + * during compilation. See doc/regexp.rst for more discussion. + */ + duk_codepoint_t c1, c2; + + c1 = (duk_codepoint_t) duk__bc_get_u32(re_ctx, &pc); + DUK_ASSERT(!(re_ctx->re_flags & DUK_RE_FLAG_IGNORE_CASE) || + c1 == duk_unicode_re_canonicalize_char(re_ctx->thr, c1)); /* canonicalized by compiler */ + c2 = duk__inp_get_cp(re_ctx, &sp); + /* No need to check for c2 < 0 (end of input): because c1 >= 0, it + * will fail the match below automatically and cause goto fail. + */ +#if 0 + if (c2 < 0) { + goto fail; + } +#endif + DUK_ASSERT(c1 >= 0); + + DUK_DDD(DUK_DDDPRINT("char match, c1=%ld, c2=%ld", (long) c1, (long) c2)); + if (c1 != c2) { + goto fail; + } + break; + } + case DUK_REOP_PERIOD: { + duk_codepoint_t c; + + c = duk__inp_get_cp(re_ctx, &sp); + if (c < 0 || duk_unicode_is_line_terminator(c)) { + /* E5 Sections 15.10.2.8, 7.3 */ + goto fail; + } + break; + } + case DUK_REOP_RANGES: + case DUK_REOP_INVRANGES: { + duk_uint32_t n; + duk_codepoint_t c; + duk_small_int_t match; + + n = duk__bc_get_u32(re_ctx, &pc); + c = duk__inp_get_cp(re_ctx, &sp); + if (c < 0) { + goto fail; + } + + match = 0; + while (n) { + duk_codepoint_t r1, r2; + r1 = (duk_codepoint_t) duk__bc_get_u32(re_ctx, &pc); + r2 = (duk_codepoint_t) duk__bc_get_u32(re_ctx, &pc); + DUK_DDD(DUK_DDDPRINT("matching ranges/invranges, n=%ld, r1=%ld, r2=%ld, c=%ld", + (long) n, (long) r1, (long) r2, (long) c)); + if (c >= r1 && c <= r2) { + /* Note: don't bail out early, we must read all the ranges from + * bytecode. Another option is to skip them efficiently after + * breaking out of here. Prefer smallest code. + */ + match = 1; + } + n--; + } + + if (op == DUK_REOP_RANGES) { + if (!match) { + goto fail; + } + } else { + DUK_ASSERT(op == DUK_REOP_INVRANGES); + if (match) { + goto fail; + } + } + break; + } + case DUK_REOP_ASSERT_START: { + duk_codepoint_t c; + + if (sp <= re_ctx->input) { + break; + } + if (!(re_ctx->re_flags & DUK_RE_FLAG_MULTILINE)) { + goto fail; + } + c = duk__inp_get_prev_cp(re_ctx, sp); + if (duk_unicode_is_line_terminator(c)) { + /* E5 Sections 15.10.2.8, 7.3 */ + break; + } + goto fail; + } + case DUK_REOP_ASSERT_END: { + duk_codepoint_t c; + const duk_uint8_t *tmp_sp; + + tmp_sp = sp; + c = duk__inp_get_cp(re_ctx, &tmp_sp); + if (c < 0) { + break; + } + if (!(re_ctx->re_flags & DUK_RE_FLAG_MULTILINE)) { + goto fail; + } + if (duk_unicode_is_line_terminator(c)) { + /* E5 Sections 15.10.2.8, 7.3 */ + break; + } + goto fail; + } + case DUK_REOP_ASSERT_WORD_BOUNDARY: + case DUK_REOP_ASSERT_NOT_WORD_BOUNDARY: { + /* + * E5 Section 15.10.2.6. The previous and current character + * should -not- be canonicalized as they are now. However, + * canonicalization does not affect the result of IsWordChar() + * (which depends on Unicode characters never canonicalizing + * into ASCII characters) so this does not matter. + */ + duk_small_int_t w1, w2; + + if (sp <= re_ctx->input) { + w1 = 0; /* not a wordchar */ + } else { + duk_codepoint_t c; + c = duk__inp_get_prev_cp(re_ctx, sp); + w1 = duk_unicode_re_is_wordchar(c); + } + if (sp >= re_ctx->input_end) { + w2 = 0; /* not a wordchar */ + } else { + const duk_uint8_t *tmp_sp = sp; /* dummy so sp won't get updated */ + duk_codepoint_t c; + c = duk__inp_get_cp(re_ctx, &tmp_sp); + w2 = duk_unicode_re_is_wordchar(c); + } + + if (op == DUK_REOP_ASSERT_WORD_BOUNDARY) { + if (w1 == w2) { + goto fail; + } + } else { + DUK_ASSERT(op == DUK_REOP_ASSERT_NOT_WORD_BOUNDARY); + if (w1 != w2) { + goto fail; + } + } + break; + } + case DUK_REOP_JUMP: { + duk_int32_t skip; + + skip = duk__bc_get_i32(re_ctx, &pc); + pc += skip; + break; + } + case DUK_REOP_SPLIT1: { + /* split1: prefer direct execution (no jump) */ + const duk_uint8_t *sub_sp; + duk_int32_t skip; + + skip = duk__bc_get_i32(re_ctx, &pc); + sub_sp = duk__match_regexp(re_ctx, pc, sp); + if (sub_sp) { + sp = sub_sp; + goto match; + } + pc += skip; + break; + } + case DUK_REOP_SPLIT2: { + /* split2: prefer jump execution (not direct) */ + const duk_uint8_t *sub_sp; + duk_int32_t skip; + + skip = duk__bc_get_i32(re_ctx, &pc); + sub_sp = duk__match_regexp(re_ctx, pc + skip, sp); + if (sub_sp) { + sp = sub_sp; + goto match; + } + break; + } + case DUK_REOP_SQMINIMAL: { + duk_uint32_t q, qmin, qmax; + duk_int32_t skip; + const duk_uint8_t *sub_sp; + + qmin = duk__bc_get_u32(re_ctx, &pc); + qmax = duk__bc_get_u32(re_ctx, &pc); + skip = duk__bc_get_i32(re_ctx, &pc); + DUK_DDD(DUK_DDDPRINT("minimal quantifier, qmin=%lu, qmax=%lu, skip=%ld", + (unsigned long) qmin, (unsigned long) qmax, (long) skip)); + + q = 0; + while (q <= qmax) { + if (q >= qmin) { + sub_sp = duk__match_regexp(re_ctx, pc + skip, sp); + if (sub_sp) { + sp = sub_sp; + goto match; + } + } + sub_sp = duk__match_regexp(re_ctx, pc, sp); + if (!sub_sp) { + break; + } + sp = sub_sp; + q++; + } + goto fail; + } + case DUK_REOP_SQGREEDY: { + duk_uint32_t q, qmin, qmax, atomlen; + duk_int32_t skip; + const duk_uint8_t *sub_sp; + + qmin = duk__bc_get_u32(re_ctx, &pc); + qmax = duk__bc_get_u32(re_ctx, &pc); + atomlen = duk__bc_get_u32(re_ctx, &pc); + skip = duk__bc_get_i32(re_ctx, &pc); + DUK_DDD(DUK_DDDPRINT("greedy quantifier, qmin=%lu, qmax=%lu, atomlen=%lu, skip=%ld", + (unsigned long) qmin, (unsigned long) qmax, (unsigned long) atomlen, (long) skip)); + + q = 0; + while (q < qmax) { + sub_sp = duk__match_regexp(re_ctx, pc, sp); + if (!sub_sp) { + break; + } + sp = sub_sp; + q++; + } + while (q >= qmin) { + sub_sp = duk__match_regexp(re_ctx, pc + skip, sp); + if (sub_sp) { + sp = sub_sp; + goto match; + } + if (q == qmin) { + break; + } + + /* Note: if atom were to contain e.g. captures, we would need to + * re-match the atom to get correct captures. Simply quantifiers + * do not allow captures in their atom now, so this is not an issue. + */ + + DUK_DDD(DUK_DDDPRINT("greedy quantifier, backtrack %ld characters (atomlen)", + (long) atomlen)); + sp = duk__inp_backtrack(re_ctx, &sp, (duk_uint_fast32_t) atomlen); + q--; + } + goto fail; + } + case DUK_REOP_SAVE: { + duk_uint32_t idx; + const duk_uint8_t *old; + const duk_uint8_t *sub_sp; + + idx = duk__bc_get_u32(re_ctx, &pc); + if (idx >= re_ctx->nsaved) { + /* idx is unsigned, < 0 check is not necessary */ + DUK_D(DUK_DPRINT("internal error, regexp save index insane: idx=%ld", (long) idx)); + goto internal_error; + } + old = re_ctx->saved[idx]; + re_ctx->saved[idx] = sp; + sub_sp = duk__match_regexp(re_ctx, pc, sp); + if (sub_sp) { + sp = sub_sp; + goto match; + } + re_ctx->saved[idx] = old; + goto fail; + } + case DUK_REOP_WIPERANGE: { + /* Wipe capture range and save old values for backtracking. + * + * XXX: this typically happens with a relatively small idx_count. + * It might be useful to handle cases where the count is small + * (say <= 8) by saving the values in stack instead. This would + * reduce memory churn and improve performance, at the cost of a + * slightly higher code footprint. + */ + duk_uint32_t idx_start, idx_count; +#if defined(DUK_USE_EXPLICIT_NULL_INIT) + duk_uint32_t idx_end, idx; +#endif + duk_uint8_t **range_save; + const duk_uint8_t *sub_sp; + + idx_start = duk__bc_get_u32(re_ctx, &pc); + idx_count = duk__bc_get_u32(re_ctx, &pc); + DUK_DDD(DUK_DDDPRINT("wipe saved range: start=%ld, count=%ld -> [%ld,%ld] (captures [%ld,%ld])", + (long) idx_start, (long) idx_count, + (long) idx_start, (long) (idx_start + idx_count - 1), + (long) (idx_start / 2), (long) ((idx_start + idx_count - 1) / 2))); + if (idx_start + idx_count > re_ctx->nsaved || idx_count == 0) { + /* idx is unsigned, < 0 check is not necessary */ + DUK_D(DUK_DPRINT("internal error, regexp wipe indices insane: idx_start=%ld, idx_count=%ld", + (long) idx_start, (long) idx_count)); + goto internal_error; + } + DUK_ASSERT(idx_count > 0); + + duk_require_stack(re_ctx->thr, 1); + range_save = (duk_uint8_t **) duk_push_fixed_buffer_nozero(re_ctx->thr, + sizeof(duk_uint8_t *) * idx_count); + DUK_ASSERT(range_save != NULL); + duk_memcpy(range_save, re_ctx->saved + idx_start, sizeof(duk_uint8_t *) * idx_count); +#if defined(DUK_USE_EXPLICIT_NULL_INIT) + idx_end = idx_start + idx_count; + for (idx = idx_start; idx < idx_end; idx++) { + re_ctx->saved[idx] = NULL; + } +#else + duk_memzero((void *) (re_ctx->saved + idx_start), sizeof(duk_uint8_t *) * idx_count); +#endif + + sub_sp = duk__match_regexp(re_ctx, pc, sp); + if (sub_sp) { + /* match: keep wiped/resaved values */ + DUK_DDD(DUK_DDDPRINT("match: keep wiped/resaved values [%ld,%ld] (captures [%ld,%ld])", + (long) idx_start, (long) (idx_start + idx_count - 1), + (long) (idx_start / 2), (long) ((idx_start + idx_count - 1) / 2))); + duk_pop_unsafe(re_ctx->thr); + sp = sub_sp; + goto match; + } + + /* fail: restore saves */ + DUK_DDD(DUK_DDDPRINT("fail: restore wiped/resaved values [%ld,%ld] (captures [%ld,%ld])", + (long) idx_start, (long) (idx_start + idx_count - 1), + (long) (idx_start / 2), (long) ((idx_start + idx_count - 1) / 2))); + duk_memcpy((void *) (re_ctx->saved + idx_start), + (const void *) range_save, + sizeof(duk_uint8_t *) * idx_count); + duk_pop_unsafe(re_ctx->thr); + goto fail; + } + case DUK_REOP_LOOKPOS: + case DUK_REOP_LOOKNEG: { + /* + * Needs a save of multiple saved[] entries depending on what range + * may be overwritten. Because the regexp parser does no such analysis, + * we currently save the entire saved array here. Lookaheads are thus + * a bit expensive. Note that the saved array is not needed for just + * the lookahead sub-match, but for the matching of the entire sequel. + * + * The temporary save buffer is pushed on to the valstack to handle + * errors correctly. Each lookahead causes a C recursion and pushes + * more stuff on the value stack. If the C recursion limit is less + * than the value stack slack, there is no need to check the stack. + * We do so regardless, just in case. + */ + + duk_int32_t skip; + duk_uint8_t **full_save; + const duk_uint8_t *sub_sp; + + DUK_ASSERT(re_ctx->nsaved > 0); + + duk_require_stack(re_ctx->thr, 1); + full_save = (duk_uint8_t **) duk_push_fixed_buffer_nozero(re_ctx->thr, + sizeof(duk_uint8_t *) * re_ctx->nsaved); + DUK_ASSERT(full_save != NULL); + duk_memcpy(full_save, re_ctx->saved, sizeof(duk_uint8_t *) * re_ctx->nsaved); + + skip = duk__bc_get_i32(re_ctx, &pc); + sub_sp = duk__match_regexp(re_ctx, pc, sp); + if (op == DUK_REOP_LOOKPOS) { + if (!sub_sp) { + goto lookahead_fail; + } + } else { + if (sub_sp) { + goto lookahead_fail; + } + } + sub_sp = duk__match_regexp(re_ctx, pc + skip, sp); + if (sub_sp) { + /* match: keep saves */ + duk_pop_unsafe(re_ctx->thr); + sp = sub_sp; + goto match; + } + + /* fall through */ + + lookahead_fail: + /* fail: restore saves */ + duk_memcpy((void *) re_ctx->saved, + (const void *) full_save, + sizeof(duk_uint8_t *) * re_ctx->nsaved); + duk_pop_unsafe(re_ctx->thr); + goto fail; + } + case DUK_REOP_BACKREFERENCE: { + /* + * Byte matching for back-references would be OK in case- + * sensitive matching. In case-insensitive matching we need + * to canonicalize characters, so back-reference matching needs + * to be done with codepoints instead. So, we just decode + * everything normally here, too. + * + * Note: back-reference index which is 0 or higher than + * NCapturingParens (= number of capturing parens in the + * -entire- regexp) is a compile time error. However, a + * backreference referring to a valid capture which has + * not matched anything always succeeds! See E5 Section + * 15.10.2.9, step 5, sub-step 3. + */ + duk_uint32_t idx; + const duk_uint8_t *p; + + idx = duk__bc_get_u32(re_ctx, &pc); + idx = idx << 1; /* backref n -> saved indices [n*2, n*2+1] */ + if (idx < 2 || idx + 1 >= re_ctx->nsaved) { + /* regexp compiler should catch these */ + DUK_D(DUK_DPRINT("internal error, backreference index insane")); + goto internal_error; + } + if (!re_ctx->saved[idx] || !re_ctx->saved[idx+1]) { + /* capture is 'undefined', always matches! */ + DUK_DDD(DUK_DDDPRINT("backreference: saved[%ld,%ld] not complete, always match", + (long) idx, (long) (idx + 1))); + break; + } + DUK_DDD(DUK_DDDPRINT("backreference: match saved[%ld,%ld]", (long) idx, (long) (idx + 1))); + + p = re_ctx->saved[idx]; + while (p < re_ctx->saved[idx+1]) { + duk_codepoint_t c1, c2; + + /* Note: not necessary to check p against re_ctx->input_end: + * the memory access is checked by duk__inp_get_cp(), while + * valid compiled regexps cannot write a saved[] entry + * which points to outside the string. + */ + c1 = duk__inp_get_cp(re_ctx, &p); + DUK_ASSERT(c1 >= 0); + c2 = duk__inp_get_cp(re_ctx, &sp); + /* No need for an explicit c2 < 0 check: because c1 >= 0, + * the comparison will always fail if c2 < 0. + */ +#if 0 + if (c2 < 0) { + goto fail; + } +#endif + if (c1 != c2) { + goto fail; + } + } + break; + } + default: { + DUK_D(DUK_DPRINT("internal error, regexp opcode error: %ld", (long) op)); + goto internal_error; + } + } + } + + match: + re_ctx->recursion_depth--; + return sp; + + fail: + re_ctx->recursion_depth--; + return NULL; + + internal_error: + DUK_ERROR_INTERNAL(re_ctx->thr); + DUK_WO_NORETURN(return NULL;); +} + +/* + * Exposed matcher function which provides the semantics of RegExp.prototype.exec(). + * + * RegExp.prototype.test() has the same semantics as exec() but does not return the + * result object (which contains the matching string and capture groups). Currently + * there is no separate test() helper, so a temporary result object is created and + * discarded if test() is needed. This is intentional, to save code space. + * + * Input stack: [ ... re_obj input ] + * Output stack: [ ... result ] + */ + +DUK_LOCAL void duk__regexp_match_helper(duk_hthread *thr, duk_small_int_t force_global) { + duk_re_matcher_ctx re_ctx; + duk_hobject *h_regexp; + duk_hstring *h_bytecode; + duk_hstring *h_input; + duk_uint8_t *p_buf; + const duk_uint8_t *pc; + const duk_uint8_t *sp; + duk_small_int_t match = 0; + duk_small_int_t global; + duk_uint_fast32_t i; + double d; + duk_uint32_t char_offset; + + DUK_ASSERT(thr != NULL); + + DUK_DD(DUK_DDPRINT("regexp match: regexp=%!T, input=%!T", + (duk_tval *) duk_get_tval(thr, -2), + (duk_tval *) duk_get_tval(thr, -1))); + + /* + * Regexp instance check, bytecode check, input coercion. + * + * See E5 Section 15.10.6. + */ + + /* TypeError if wrong; class check, see E5 Section 15.10.6 */ + h_regexp = duk_require_hobject_with_class(thr, -2, DUK_HOBJECT_CLASS_REGEXP); + DUK_ASSERT(h_regexp != NULL); + DUK_ASSERT(DUK_HOBJECT_GET_CLASS_NUMBER(h_regexp) == DUK_HOBJECT_CLASS_REGEXP); + DUK_UNREF(h_regexp); + + h_input = duk_to_hstring(thr, -1); + DUK_ASSERT(h_input != NULL); + + duk_xget_owndataprop_stridx_short(thr, -2, DUK_STRIDX_INT_BYTECODE); /* [ ... re_obj input ] -> [ ... re_obj input bc ] */ + h_bytecode = duk_require_hstring(thr, -1); /* no regexp instance should exist without a non-configurable bytecode property */ + DUK_ASSERT(h_bytecode != NULL); + + /* + * Basic context initialization. + * + * Some init values are read from the bytecode header + * whose format is (UTF-8 codepoints): + * + * uint flags + * uint nsaved (even, 2n+2 where n = num captures) + */ + + /* [ ... re_obj input bc ] */ + + duk_memzero(&re_ctx, sizeof(re_ctx)); + + re_ctx.thr = thr; + re_ctx.input = (const duk_uint8_t *) DUK_HSTRING_GET_DATA(h_input); + re_ctx.input_end = re_ctx.input + DUK_HSTRING_GET_BYTELEN(h_input); + re_ctx.bytecode = (const duk_uint8_t *) DUK_HSTRING_GET_DATA(h_bytecode); + re_ctx.bytecode_end = re_ctx.bytecode + DUK_HSTRING_GET_BYTELEN(h_bytecode); + re_ctx.saved = NULL; + re_ctx.recursion_limit = DUK_USE_REGEXP_EXECUTOR_RECLIMIT; + re_ctx.steps_limit = DUK_RE_EXECUTE_STEPS_LIMIT; + + /* read header */ + pc = re_ctx.bytecode; + re_ctx.re_flags = duk__bc_get_u32(&re_ctx, &pc); + re_ctx.nsaved = duk__bc_get_u32(&re_ctx, &pc); + re_ctx.bytecode = pc; + + DUK_ASSERT(DUK_RE_FLAG_GLOBAL < 0x10000UL); /* must fit into duk_small_int_t */ + global = (duk_small_int_t) (force_global | (duk_small_int_t) (re_ctx.re_flags & DUK_RE_FLAG_GLOBAL)); + + DUK_ASSERT(re_ctx.nsaved >= 2); + DUK_ASSERT((re_ctx.nsaved % 2) == 0); + + p_buf = (duk_uint8_t *) duk_push_fixed_buffer(thr, sizeof(duk_uint8_t *) * re_ctx.nsaved); /* rely on zeroing */ + DUK_UNREF(p_buf); + re_ctx.saved = (const duk_uint8_t **) duk_get_buffer(thr, -1, NULL); + DUK_ASSERT(re_ctx.saved != NULL); + + /* [ ... re_obj input bc saved_buf ] */ + +#if defined(DUK_USE_EXPLICIT_NULL_INIT) + for (i = 0; i < re_ctx.nsaved; i++) { + re_ctx.saved[i] = (duk_uint8_t *) NULL; + } +#elif defined(DUK_USE_ZERO_BUFFER_DATA) + /* buffer is automatically zeroed */ +#else + duk_memzero((void *) p_buf, sizeof(duk_uint8_t *) * re_ctx.nsaved); +#endif + + DUK_DDD(DUK_DDDPRINT("regexp ctx initialized, flags=0x%08lx, nsaved=%ld, recursion_limit=%ld, steps_limit=%ld", + (unsigned long) re_ctx.re_flags, (long) re_ctx.nsaved, (long) re_ctx.recursion_limit, + (long) re_ctx.steps_limit)); + + /* + * Get starting character offset for match, and initialize 'sp' based on it. + * + * Note: lastIndex is non-configurable so it must be present (we check the + * internal class of the object above, so we know it is). User code can set + * its value to an arbitrary (garbage) value though; E5 requires that lastIndex + * be coerced to a number before using. The code below works even if the + * property is missing: the value will then be coerced to zero. + * + * Note: lastIndex may be outside Uint32 range even after ToInteger() coercion. + * For instance, ToInteger(+Infinity) = +Infinity. We track the match offset + * as an integer, but pre-check it to be inside the 32-bit range before the loop. + * If not, the check in E5 Section 15.10.6.2, step 9.a applies. + */ + + /* XXX: lastIndex handling produces a lot of asm */ + + /* [ ... re_obj input bc saved_buf ] */ + + duk_get_prop_stridx_short(thr, -4, DUK_STRIDX_LAST_INDEX); /* -> [ ... re_obj input bc saved_buf lastIndex ] */ + (void) duk_to_int(thr, -1); /* ToInteger(lastIndex) */ + d = duk_get_number(thr, -1); /* integer, but may be +/- Infinite, +/- zero (not NaN, though) */ + duk_pop_nodecref_unsafe(thr); + + if (global) { + if (d < 0.0 || d > (double) DUK_HSTRING_GET_CHARLEN(h_input)) { + /* match fail */ + char_offset = 0; /* not really necessary */ + DUK_ASSERT(match == 0); + goto match_over; + } + char_offset = (duk_uint32_t) d; + } else { + /* lastIndex must be ignored for non-global regexps, but get the + * value for (theoretical) side effects. No side effects can + * really occur, because lastIndex is a normal property and is + * always non-configurable for RegExp instances. + */ + char_offset = (duk_uint32_t) 0; + } + + DUK_ASSERT(char_offset <= DUK_HSTRING_GET_CHARLEN(h_input)); + sp = re_ctx.input + duk_heap_strcache_offset_char2byte(thr, h_input, char_offset); + + /* + * Match loop. + * + * Try matching at different offsets until match found or input exhausted. + */ + + /* [ ... re_obj input bc saved_buf ] */ + + DUK_ASSERT(match == 0); + + for (;;) { + /* char offset in [0, h_input->clen] (both ends inclusive), checked before entry */ + DUK_ASSERT_DISABLE(char_offset >= 0); + DUK_ASSERT(char_offset <= DUK_HSTRING_GET_CHARLEN(h_input)); + + /* Note: re_ctx.steps is intentionally not reset, it applies to the entire unanchored match */ + DUK_ASSERT(re_ctx.recursion_depth == 0); + + DUK_DDD(DUK_DDDPRINT("attempt match at char offset %ld; %p [%p,%p]", + (long) char_offset, (const void *) sp, + (const void *) re_ctx.input, (const void *) re_ctx.input_end)); + + /* + * Note: + * + * - duk__match_regexp() is required not to longjmp() in ordinary "non-match" + * conditions; a longjmp() will terminate the entire matching process. + * + * - Clearing saved[] is not necessary because backtracking does it + * + * - Backtracking also rewinds re_ctx.recursion back to zero, unless an + * internal/limit error occurs (which causes a longjmp()) + * + * - If we supported anchored matches, we would break out here + * unconditionally; however, ECMAScript regexps don't have anchored + * matches. It might make sense to implement a fast bail-out if + * the regexp begins with '^' and sp is not 0: currently we'll just + * run through the entire input string, trivially failing the match + * at every non-zero offset. + */ + + if (duk__match_regexp(&re_ctx, re_ctx.bytecode, sp) != NULL) { + DUK_DDD(DUK_DDDPRINT("match at offset %ld", (long) char_offset)); + match = 1; + break; + } + + /* advance by one character (code point) and one char_offset */ + char_offset++; + if (char_offset > DUK_HSTRING_GET_CHARLEN(h_input)) { + /* + * Note: + * + * - Intentionally attempt (empty) match at char_offset == k_input->clen + * + * - Negative char_offsets have been eliminated and char_offset is duk_uint32_t + * -> no need or use for a negative check + */ + + DUK_DDD(DUK_DDDPRINT("no match after trying all sp offsets")); + break; + } + + /* avoid calling at end of input, will DUK_ERROR (above check suffices to avoid this) */ + (void) duk__utf8_advance(thr, &sp, re_ctx.input, re_ctx.input_end, (duk_uint_fast32_t) 1); + } + + match_over: + + /* + * Matching complete, create result array or return a 'null'. Update lastIndex + * if necessary. See E5 Section 15.10.6.2. + * + * Because lastIndex is a character (not byte) offset, we need the character + * length of the match which we conveniently get as a side effect of interning + * the matching substring (0th index of result array). + * + * saved[0] start pointer (~ byte offset) of current match + * saved[1] end pointer (~ byte offset) of current match (exclusive) + * char_offset start character offset of current match (-> .index of result) + * char_end_offset end character offset (computed below) + */ + + /* [ ... re_obj input bc saved_buf ] */ + + if (match) { +#if defined(DUK_USE_ASSERTIONS) + duk_hobject *h_res; +#endif + duk_uint32_t char_end_offset = 0; + + DUK_DDD(DUK_DDDPRINT("regexp matches at char_offset %ld", (long) char_offset)); + + DUK_ASSERT(re_ctx.nsaved >= 2); /* must have start and end */ + DUK_ASSERT((re_ctx.nsaved % 2) == 0); /* and even number */ + + /* XXX: Array size is known before and (2 * re_ctx.nsaved) but not taken + * advantage of now. The array is not compacted either, as regexp match + * objects are usually short lived. + */ + + duk_push_array(thr); + +#if defined(DUK_USE_ASSERTIONS) + h_res = duk_require_hobject(thr, -1); + DUK_ASSERT(DUK_HOBJECT_HAS_EXTENSIBLE(h_res)); + DUK_ASSERT(DUK_HOBJECT_HAS_EXOTIC_ARRAY(h_res)); + DUK_ASSERT(DUK_HOBJECT_GET_CLASS_NUMBER(h_res) == DUK_HOBJECT_CLASS_ARRAY); +#endif + + /* [ ... re_obj input bc saved_buf res_obj ] */ + + duk_push_u32(thr, char_offset); + duk_xdef_prop_stridx_short_wec(thr, -2, DUK_STRIDX_INDEX); + + duk_dup_m4(thr); + duk_xdef_prop_stridx_short_wec(thr, -2, DUK_STRIDX_INPUT); + + for (i = 0; i < re_ctx.nsaved; i += 2) { + /* Captures which are undefined have NULL pointers and are returned + * as 'undefined'. The same is done when saved[] pointers are insane + * (this should, of course, never happen in practice). + */ + if (re_ctx.saved[i] && re_ctx.saved[i + 1] && re_ctx.saved[i + 1] >= re_ctx.saved[i]) { + duk_push_lstring(thr, + (const char *) re_ctx.saved[i], + (duk_size_t) (re_ctx.saved[i+1] - re_ctx.saved[i])); + if (i == 0) { + /* Assumes that saved[0] and saved[1] are always + * set by regexp bytecode (if not, char_end_offset + * will be zero). Also assumes clen reflects the + * correct char length. + */ + char_end_offset = char_offset + (duk_uint32_t) duk_get_length(thr, -1); /* add charlen */ + } + } else { + duk_push_undefined(thr); + } + + /* [ ... re_obj input bc saved_buf res_obj val ] */ + duk_put_prop_index(thr, -2, (duk_uarridx_t) (i / 2)); + } + + /* [ ... re_obj input bc saved_buf res_obj ] */ + + /* NB: 'length' property is automatically updated by the array setup loop */ + + if (global) { + /* global regexp: lastIndex updated on match */ + duk_push_u32(thr, char_end_offset); + duk_put_prop_stridx_short(thr, -6, DUK_STRIDX_LAST_INDEX); + } else { + /* non-global regexp: lastIndex never updated on match */ + ; + } + } else { + /* + * No match, E5 Section 15.10.6.2, step 9.a.i - 9.a.ii apply, regardless + * of 'global' flag of the RegExp. In particular, if lastIndex is invalid + * initially, it is reset to zero. + */ + + DUK_DDD(DUK_DDDPRINT("regexp does not match")); + + duk_push_null(thr); + + /* [ ... re_obj input bc saved_buf res_obj ] */ + + duk_push_int(thr, 0); + duk_put_prop_stridx_short(thr, -6, DUK_STRIDX_LAST_INDEX); + } + + /* [ ... re_obj input bc saved_buf res_obj ] */ + + duk_insert(thr, -5); + + /* [ ... res_obj re_obj input bc saved_buf ] */ + + duk_pop_n_unsafe(thr, 4); + + /* [ ... res_obj ] */ + + /* XXX: these last tricks are unnecessary if the function is made + * a genuine native function. + */ +} + +DUK_INTERNAL void duk_regexp_match(duk_hthread *thr) { + duk__regexp_match_helper(thr, 0 /*force_global*/); +} + +/* This variant is needed by String.prototype.split(); it needs to perform + * global-style matching on a cloned RegExp which is potentially non-global. + */ +DUK_INTERNAL void duk_regexp_match_force_global(duk_hthread *thr) { + duk__regexp_match_helper(thr, 1 /*force_global*/); +} + +#else /* DUK_USE_REGEXP_SUPPORT */ + +/* regexp support disabled */ + +#endif /* DUK_USE_REGEXP_SUPPORT */ +#line 1 "duk_selftest.c" +/* + * Self tests to ensure execution environment is sane. Intended to catch + * compiler/platform problems which cannot be detected at compile time. + */ + +/* #include duk_internal.h -> already included */ + +#if defined(DUK_USE_SELF_TESTS) + +/* + * Unions and structs for self tests + */ + +typedef union { + double d; + duk_uint8_t x[8]; +} duk__test_double_union; + +/* Self test failed. Expects a local variable 'error_count' to exist. */ +#define DUK__FAILED(msg) do { \ + DUK_D(DUK_DPRINT("self test failed: " #msg " at " DUK_FILE_MACRO ":" DUK_MACRO_STRINGIFY(DUK_LINE_MACRO))); \ + error_count++; \ + } while (0) + +#define DUK__DBLUNION_CMP_TRUE(a,b) do { \ + if (duk_memcmp((const void *) (a), (const void *) (b), sizeof(duk__test_double_union)) != 0) { \ + DUK__FAILED("double union compares false (expected true)"); \ + } \ + } while (0) + +#define DUK__DBLUNION_CMP_FALSE(a,b) do { \ + if (duk_memcmp((const void *) (a), (const void *) (b), sizeof(duk__test_double_union)) == 0) { \ + DUK__FAILED("double union compares true (expected false)"); \ + } \ + } while (0) + +typedef union { + duk_uint32_t i; + duk_uint8_t x[8]; +} duk__test_u32_union; + +#if defined(DUK_USE_INTEGER_LE) +#define DUK__U32_INIT(u, a, b, c, d) do { \ + (u)->x[0] = (d); (u)->x[1] = (c); (u)->x[2] = (b); (u)->x[3] = (a); \ + } while (0) +#elif defined(DUK_USE_INTEGER_ME) +#error integer mixed endian not supported now +#elif defined(DUK_USE_INTEGER_BE) +#define DUK__U32_INIT(u, a, b, c, d) do { \ + (u)->x[0] = (a); (u)->x[1] = (b); (u)->x[2] = (c); (u)->x[3] = (d); \ + } while (0) +#else +#error unknown integer endianness +#endif + +#if defined(DUK_USE_DOUBLE_LE) +#define DUK__DOUBLE_INIT(u, a, b, c, d, e, f, g, h) do { \ + (u)->x[0] = (h); (u)->x[1] = (g); (u)->x[2] = (f); (u)->x[3] = (e); \ + (u)->x[4] = (d); (u)->x[5] = (c); (u)->x[6] = (b); (u)->x[7] = (a); \ + } while (0) +#define DUK__DOUBLE_COMPARE(u, a, b, c, d, e, f, g, h) \ + ((u)->x[0] == (h) && (u)->x[1] == (g) && (u)->x[2] == (f) && (u)->x[3] == (e) && \ + (u)->x[4] == (d) && (u)->x[5] == (c) && (u)->x[6] == (b) && (u)->x[7] == (a)) +#elif defined(DUK_USE_DOUBLE_ME) +#define DUK__DOUBLE_INIT(u, a, b, c, d, e, f, g, h) do { \ + (u)->x[0] = (d); (u)->x[1] = (c); (u)->x[2] = (b); (u)->x[3] = (a); \ + (u)->x[4] = (h); (u)->x[5] = (g); (u)->x[6] = (f); (u)->x[7] = (e); \ + } while (0) +#define DUK__DOUBLE_COMPARE(u, a, b, c, d, e, f, g, h) \ + ((u)->x[0] == (d) && (u)->x[1] == (c) && (u)->x[2] == (b) && (u)->x[3] == (a) && \ + (u)->x[4] == (h) && (u)->x[5] == (g) && (u)->x[6] == (f) && (u)->x[7] == (e)) +#elif defined(DUK_USE_DOUBLE_BE) +#define DUK__DOUBLE_INIT(u, a, b, c, d, e, f, g, h) do { \ + (u)->x[0] = (a); (u)->x[1] = (b); (u)->x[2] = (c); (u)->x[3] = (d); \ + (u)->x[4] = (e); (u)->x[5] = (f); (u)->x[6] = (g); (u)->x[7] = (h); \ + } while (0) +#define DUK__DOUBLE_COMPARE(u, a, b, c, d, e, f, g, h) \ + ((u)->x[0] == (a) && (u)->x[1] == (b) && (u)->x[2] == (c) && (u)->x[3] == (d) && \ + (u)->x[4] == (e) && (u)->x[5] == (f) && (u)->x[6] == (g) && (u)->x[7] == (h)) +#else +#error unknown double endianness +#endif + +/* + * Various sanity checks for typing + */ + +DUK_LOCAL duk_uint_t duk__selftest_types(void) { + duk_uint_t error_count = 0; + + if (!(sizeof(duk_int8_t) == 1 && + sizeof(duk_uint8_t) == 1 && + sizeof(duk_int16_t) == 2 && + sizeof(duk_uint16_t) == 2 && + sizeof(duk_int32_t) == 4 && + sizeof(duk_uint32_t) == 4)) { + DUK__FAILED("duk_(u)int{8,16,32}_t size"); + } +#if defined(DUK_USE_64BIT_OPS) + if (!(sizeof(duk_int64_t) == 8 && + sizeof(duk_uint64_t) == 8)) { + DUK__FAILED("duk_(u)int64_t size"); + } +#endif + + if (!(sizeof(duk_size_t) >= sizeof(duk_uint_t))) { + /* Some internal code now assumes that all duk_uint_t values + * can be expressed with a duk_size_t. + */ + DUK__FAILED("duk_size_t is smaller than duk_uint_t"); + } + if (!(sizeof(duk_int_t) >= 4)) { + DUK__FAILED("duk_int_t is not 32 bits"); + } + + return error_count; +} + +/* + * Packed tval sanity + */ + +DUK_LOCAL duk_uint_t duk__selftest_packed_tval(void) { + duk_uint_t error_count = 0; + +#if defined(DUK_USE_PACKED_TVAL) + if (sizeof(void *) > 4) { + DUK__FAILED("packed duk_tval in use but sizeof(void *) > 4"); + } +#endif + + return error_count; +} + +/* + * Two's complement arithmetic. + */ + +DUK_LOCAL duk_uint_t duk__selftest_twos_complement(void) { + duk_uint_t error_count = 0; + volatile int test; + test = -1; + + /* Note that byte order doesn't affect this test: all bytes in + * 'test' will be 0xFF for two's complement. + */ + if (((volatile duk_uint8_t *) &test)[0] != (duk_uint8_t) 0xff) { + DUK__FAILED("two's complement arithmetic"); + } + + return error_count; +} + +/* + * Byte order. Important to self check, because on some exotic platforms + * there is no actual detection but rather assumption based on platform + * defines. + */ + +DUK_LOCAL duk_uint_t duk__selftest_byte_order(void) { + duk_uint_t error_count = 0; + duk__test_u32_union u1; + duk__test_double_union u2; + + /* + * >>> struct.pack('>d', 102030405060).encode('hex') + * '4237c17c6dc40000' + */ + + DUK__U32_INIT(&u1, 0xde, 0xad, 0xbe, 0xef); + DUK__DOUBLE_INIT(&u2, 0x42, 0x37, 0xc1, 0x7c, 0x6d, 0xc4, 0x00, 0x00); + + if (u1.i != (duk_uint32_t) 0xdeadbeefUL) { + DUK__FAILED("duk_uint32_t byte order"); + } + + if (!duk_double_equals(u2.d, 102030405060.0)) { + DUK__FAILED("double byte order"); + } + + return error_count; +} + +/* + * DUK_BSWAP macros + */ + +DUK_LOCAL duk_uint_t duk__selftest_bswap_macros(void) { + duk_uint_t error_count = 0; + volatile duk_uint32_t x32_input, x32_output; + duk_uint32_t x32; + volatile duk_uint16_t x16_input, x16_output; + duk_uint16_t x16; + duk_double_union du; + duk_double_t du_diff; +#if defined(DUK_BSWAP64) + volatile duk_uint64_t x64_input, x64_output; + duk_uint64_t x64; +#endif + + /* Cover both compile time and runtime bswap operations, as these + * may have different bugs. + */ + + x16_input = 0xbeefUL; + x16 = x16_input; + x16 = DUK_BSWAP16(x16); + x16_output = x16; + if (x16_output != (duk_uint16_t) 0xefbeUL) { + DUK__FAILED("DUK_BSWAP16"); + } + + x16 = 0xbeefUL; + x16 = DUK_BSWAP16(x16); + if (x16 != (duk_uint16_t) 0xefbeUL) { + DUK__FAILED("DUK_BSWAP16"); + } + + x32_input = 0xdeadbeefUL; + x32 = x32_input; + x32 = DUK_BSWAP32(x32); + x32_output = x32; + if (x32_output != (duk_uint32_t) 0xefbeaddeUL) { + DUK__FAILED("DUK_BSWAP32"); + } + + x32 = 0xdeadbeefUL; + x32 = DUK_BSWAP32(x32); + if (x32 != (duk_uint32_t) 0xefbeaddeUL) { + DUK__FAILED("DUK_BSWAP32"); + } + +#if defined(DUK_BSWAP64) + x64_input = DUK_U64_CONSTANT(0x8899aabbccddeeff); + x64 = x64_input; + x64 = DUK_BSWAP64(x64); + x64_output = x64; + if (x64_output != (duk_uint64_t) DUK_U64_CONSTANT(0xffeeddccbbaa9988)) { + DUK__FAILED("DUK_BSWAP64"); + } + + x64 = DUK_U64_CONSTANT(0x8899aabbccddeeff); + x64 = DUK_BSWAP64(x64); + if (x64 != (duk_uint64_t) DUK_U64_CONSTANT(0xffeeddccbbaa9988)) { + DUK__FAILED("DUK_BSWAP64"); + } +#endif + + /* >>> struct.unpack('>d', '4000112233445566'.decode('hex')) + * (2.008366013071895,) + */ + + du.uc[0] = 0x40; du.uc[1] = 0x00; du.uc[2] = 0x11; du.uc[3] = 0x22; + du.uc[4] = 0x33; du.uc[5] = 0x44; du.uc[6] = 0x55; du.uc[7] = 0x66; + DUK_DBLUNION_DOUBLE_NTOH(&du); + du_diff = du.d - 2.008366013071895; +#if 0 + DUK_D(DUK_DPRINT("du_diff: %lg\n", (double) du_diff)); +#endif + if (du_diff > 1e-15) { + /* Allow very small lenience because some compilers won't parse + * exact IEEE double constants (happened in matrix testing with + * Linux gcc-4.8 -m32 at least). + */ +#if 0 + DUK_D(DUK_DPRINT("Result of DUK_DBLUNION_DOUBLE_NTOH: %02x %02x %02x %02x %02x %02x %02x %02x\n", + (unsigned int) du.uc[0], (unsigned int) du.uc[1], + (unsigned int) du.uc[2], (unsigned int) du.uc[3], + (unsigned int) du.uc[4], (unsigned int) du.uc[5], + (unsigned int) du.uc[6], (unsigned int) du.uc[7])); +#endif + DUK__FAILED("DUK_DBLUNION_DOUBLE_NTOH"); + } + + return error_count; +} + +/* + * Basic double / byte union memory layout. + */ + +DUK_LOCAL duk_uint_t duk__selftest_double_union_size(void) { + duk_uint_t error_count = 0; + + if (sizeof(duk__test_double_union) != 8) { + DUK__FAILED("invalid union size"); + } + + return error_count; +} + +/* + * Union aliasing, see misc/clang_aliasing.c. + */ + +DUK_LOCAL duk_uint_t duk__selftest_double_aliasing(void) { + /* This testcase fails when Emscripten-generated code runs on Firefox. + * It's not an issue because the failure should only affect packed + * duk_tval representation, which is not used with Emscripten. + */ +#if defined(DUK_USE_PACKED_TVAL) + duk_uint_t error_count = 0; + duk__test_double_union a, b; + + /* Test signaling NaN and alias assignment in all endianness combinations. + */ + + /* little endian */ + a.x[0] = 0x11; a.x[1] = 0x22; a.x[2] = 0x33; a.x[3] = 0x44; + a.x[4] = 0x00; a.x[5] = 0x00; a.x[6] = 0xf1; a.x[7] = 0xff; + b = a; + DUK__DBLUNION_CMP_TRUE(&a, &b); + + /* big endian */ + a.x[0] = 0xff; a.x[1] = 0xf1; a.x[2] = 0x00; a.x[3] = 0x00; + a.x[4] = 0x44; a.x[5] = 0x33; a.x[6] = 0x22; a.x[7] = 0x11; + b = a; + DUK__DBLUNION_CMP_TRUE(&a, &b); + + /* mixed endian */ + a.x[0] = 0x00; a.x[1] = 0x00; a.x[2] = 0xf1; a.x[3] = 0xff; + a.x[4] = 0x11; a.x[5] = 0x22; a.x[6] = 0x33; a.x[7] = 0x44; + b = a; + DUK__DBLUNION_CMP_TRUE(&a, &b); + + return error_count; +#else + DUK_D(DUK_DPRINT("skip double aliasing self test when duk_tval is not packed")); + return 0; +#endif +} + +/* + * Zero sign, see misc/tcc_zerosign2.c. + */ + +DUK_LOCAL duk_uint_t duk__selftest_double_zero_sign(void) { + duk_uint_t error_count = 0; + duk__test_double_union a, b; + + a.d = 0.0; + b.d = -a.d; + DUK__DBLUNION_CMP_FALSE(&a, &b); + + return error_count; +} + +/* + * Rounding mode: Duktape assumes round-to-nearest, check that this is true. + * If we had C99 fenv.h we could check that fegetround() == FE_TONEAREST, + * but we don't want to rely on that header; and even if we did, it's good + * to ensure the rounding actually works. + */ + +DUK_LOCAL duk_uint_t duk__selftest_double_rounding(void) { + duk_uint_t error_count = 0; + duk__test_double_union a, b, c; + +#if 0 + /* Include and test manually; these trigger failures: */ + fesetround(FE_UPWARD); + fesetround(FE_DOWNWARD); + fesetround(FE_TOWARDZERO); + + /* This is the default and passes. */ + fesetround(FE_TONEAREST); +#endif + + /* Rounding tests check that none of the other modes (round to + * +Inf, round to -Inf, round to zero) can be active: + * http://www.gnu.org/software/libc/manual/html_node/Rounding.html + */ + + /* 1.0 + 2^(-53): result is midway between 1.0 and 1.0 + ulp. + * Round to nearest: 1.0 + * Round to +Inf: 1.0 + ulp + * Round to -Inf: 1.0 + * Round to zero: 1.0 + * => Correct result eliminates round to +Inf. + */ + DUK__DOUBLE_INIT(&a, 0xf0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00); + DUK__DOUBLE_INIT(&b, 0x3c, 0xa0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00); + duk_memset((void *) &c, 0, sizeof(c)); + c.d = a.d + b.d; + if (!DUK__DOUBLE_COMPARE(&c, 0xf0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00)) { + DUK_D(DUK_DPRINT("broken result (native endiannesss): %02x %02x %02x %02x %02x %02x %02x %02x", + (unsigned int) c.x[0], (unsigned int) c.x[1], + (unsigned int) c.x[2], (unsigned int) c.x[3], + (unsigned int) c.x[4], (unsigned int) c.x[5], + (unsigned int) c.x[6], (unsigned int) c.x[7])); + DUK__FAILED("invalid result from 1.0 + 0.5ulp"); + } + + /* (1.0 + ulp) + 2^(-53): result is midway between 1.0 + ulp and 1.0 + 2*ulp. + * Round to nearest: 1.0 + 2*ulp (round to even mantissa) + * Round to +Inf: 1.0 + 2*ulp + * Round to -Inf: 1.0 + ulp + * Round to zero: 1.0 + ulp + * => Correct result eliminates round to -Inf and round to zero. + */ + DUK__DOUBLE_INIT(&a, 0x3f, 0xf0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01); + DUK__DOUBLE_INIT(&b, 0x3c, 0xa0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00); + duk_memset((void *) &c, 0, sizeof(c)); + c.d = a.d + b.d; + if (!DUK__DOUBLE_COMPARE(&c, 0x3f, 0xf0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x02)) { + DUK_D(DUK_DPRINT("broken result (native endiannesss): %02x %02x %02x %02x %02x %02x %02x %02x", + (unsigned int) c.x[0], (unsigned int) c.x[1], + (unsigned int) c.x[2], (unsigned int) c.x[3], + (unsigned int) c.x[4], (unsigned int) c.x[5], + (unsigned int) c.x[6], (unsigned int) c.x[7])); + DUK__FAILED("invalid result from (1.0 + ulp) + 0.5ulp"); + } + + /* Could do negative number testing too, but the tests above should + * differentiate between IEEE 754 rounding modes. + */ + return error_count; +} + +/* + * fmod(): often a portability issue in embedded or bare platform targets. + * Check for at least minimally correct behavior. Unlike some other math + * functions (like cos()) Duktape relies on fmod() internally too. + */ + +DUK_LOCAL duk_uint_t duk__selftest_fmod(void) { + duk_uint_t error_count = 0; + duk__test_double_union u1, u2; + volatile duk_double_t t1, t2, t3; + + /* fmod() with integer argument and exponent 2^32 is used by e.g. + * ToUint32() and some Duktape internals. + */ + u1.d = DUK_FMOD(10.0, 4294967296.0); + u2.d = 10.0; + DUK__DBLUNION_CMP_TRUE(&u1, &u2); + + u1.d = DUK_FMOD(4294967306.0, 4294967296.0); + u2.d = 10.0; + DUK__DBLUNION_CMP_TRUE(&u1, &u2); + + u1.d = DUK_FMOD(73014444042.0, 4294967296.0); + u2.d = 10.0; + DUK__DBLUNION_CMP_TRUE(&u1, &u2); + + /* 52-bit integer split into two parts: + * >>> 0x1fedcba9876543 + * 8987183256397123 + * >>> float(0x1fedcba9876543) / float(2**53) + * 0.9977777777777778 + */ + u1.d = DUK_FMOD(8987183256397123.0, 4294967296.0); + u2.d = (duk_double_t) 0xa9876543UL; + DUK__DBLUNION_CMP_TRUE(&u1, &u2); + t1 = 8987183256397123.0; + t2 = 4294967296.0; + t3 = t1 / t2; + u1.d = DUK_FLOOR(t3); + u2.d = (duk_double_t) 0x1fedcbUL; + DUK__DBLUNION_CMP_TRUE(&u1, &u2); + + /* C99 behavior is for fmod() result sign to mathc argument sign. */ + u1.d = DUK_FMOD(-10.0, 4294967296.0); + u2.d = -10.0; + DUK__DBLUNION_CMP_TRUE(&u1, &u2); + + u1.d = DUK_FMOD(-4294967306.0, 4294967296.0); + u2.d = -10.0; + DUK__DBLUNION_CMP_TRUE(&u1, &u2); + + u1.d = DUK_FMOD(-73014444042.0, 4294967296.0); + u2.d = -10.0; + DUK__DBLUNION_CMP_TRUE(&u1, &u2); + + return error_count; +} + +/* + * Struct size/alignment if platform requires it + * + * There are some compiler specific struct padding pragmas etc in use, this + * selftest ensures they're correctly detected and used. + */ + +DUK_LOCAL duk_uint_t duk__selftest_struct_align(void) { + duk_uint_t error_count = 0; + +#if (DUK_USE_ALIGN_BY == 4) + if ((sizeof(duk_hbuffer_fixed) % 4) != 0) { + DUK__FAILED("sizeof(duk_hbuffer_fixed) not aligned to 4"); + } +#elif (DUK_USE_ALIGN_BY == 8) + if ((sizeof(duk_hbuffer_fixed) % 8) != 0) { + DUK__FAILED("sizeof(duk_hbuffer_fixed) not aligned to 8"); + } +#elif (DUK_USE_ALIGN_BY == 1) + /* no check */ +#else +#error invalid DUK_USE_ALIGN_BY +#endif + return error_count; +} + +/* + * 64-bit arithmetic + * + * There are some platforms/compilers where 64-bit types are available + * but don't work correctly. Test for known cases. + */ + +DUK_LOCAL duk_uint_t duk__selftest_64bit_arithmetic(void) { + duk_uint_t error_count = 0; +#if defined(DUK_USE_64BIT_OPS) + volatile duk_int64_t i; + volatile duk_double_t d; + + /* Catch a double-to-int64 cast issue encountered in practice. */ + d = 2147483648.0; + i = (duk_int64_t) d; + if (i != DUK_I64_CONSTANT(0x80000000)) { + DUK__FAILED("casting 2147483648.0 to duk_int64_t failed"); + } +#else + /* nop */ +#endif + return error_count; +} + +/* + * Casting + */ + +DUK_LOCAL duk_uint_t duk__selftest_cast_double_to_small_uint(void) { + /* + * https://github.com/svaarala/duktape/issues/127#issuecomment-77863473 + */ + + duk_uint_t error_count = 0; + + duk_double_t d1, d2; + duk_small_uint_t u; + + duk_double_t d1v, d2v; + duk_small_uint_t uv; + + /* Test without volatiles */ + + d1 = 1.0; + u = (duk_small_uint_t) d1; + d2 = (duk_double_t) u; + + if (!(duk_double_equals(d1, 1.0) && u == 1 && duk_double_equals(d2, 1.0) && duk_double_equals(d1, d2))) { + DUK__FAILED("double to duk_small_uint_t cast failed"); + } + + /* Same test with volatiles */ + + d1v = 1.0; + uv = (duk_small_uint_t) d1v; + d2v = (duk_double_t) uv; + + if (!(duk_double_equals(d1v, 1.0) && uv == 1 && duk_double_equals(d2v, 1.0) && duk_double_equals(d1v, d2v))) { + DUK__FAILED("double to duk_small_uint_t cast failed"); + } + + return error_count; +} + +DUK_LOCAL duk_uint_t duk__selftest_cast_double_to_uint32(void) { + /* + * This test fails on an exotic ARM target; double-to-uint + * cast is incorrectly clamped to -signed- int highest value. + * + * https://github.com/svaarala/duktape/issues/336 + */ + + duk_uint_t error_count = 0; + duk_double_t dv; + duk_uint32_t uv; + + dv = 3735928559.0; /* 0xdeadbeef in decimal */ + uv = (duk_uint32_t) dv; + + if (uv != 0xdeadbeefUL) { + DUK__FAILED("double to duk_uint32_t cast failed"); + } + + return error_count; +} + +/* + * Minimal test of user supplied allocation functions + * + * - Basic alloc + realloc + free cycle + * + * - Realloc to significantly larger size to (hopefully) trigger a + * relocation and check that relocation copying works + */ + +DUK_LOCAL duk_uint_t duk__selftest_alloc_funcs(duk_alloc_function alloc_func, + duk_realloc_function realloc_func, + duk_free_function free_func, + void *udata) { + duk_uint_t error_count = 0; + void *ptr; + void *new_ptr; + duk_small_int_t i, j; + unsigned char x; + + if (alloc_func == NULL || realloc_func == NULL || free_func == NULL) { + return 0; + } + + for (i = 1; i <= 256; i++) { + ptr = alloc_func(udata, (duk_size_t) i); + if (ptr == NULL) { + DUK_D(DUK_DPRINT("alloc failed, ignore")); + continue; /* alloc failed, ignore */ + } + for (j = 0; j < i; j++) { + ((unsigned char *) ptr)[j] = (unsigned char) (0x80 + j); + } + new_ptr = realloc_func(udata, ptr, 1024); + if (new_ptr == NULL) { + DUK_D(DUK_DPRINT("realloc failed, ignore")); + free_func(udata, ptr); + continue; /* realloc failed, ignore */ + } + ptr = new_ptr; + for (j = 0; j < i; j++) { + x = ((unsigned char *) ptr)[j]; + if (x != (unsigned char) (0x80 + j)) { + DUK_D(DUK_DPRINT("byte at index %ld doesn't match after realloc: %02lx", + (long) j, (unsigned long) x)); + DUK__FAILED("byte compare after realloc"); + break; + } + } + free_func(udata, ptr); + } + + return error_count; +} + +/* + * Self test main + */ + +DUK_INTERNAL duk_uint_t duk_selftest_run_tests(duk_alloc_function alloc_func, + duk_realloc_function realloc_func, + duk_free_function free_func, + void *udata) { + duk_uint_t error_count = 0; + + DUK_D(DUK_DPRINT("self test starting")); + + error_count += duk__selftest_types(); + error_count += duk__selftest_packed_tval(); + error_count += duk__selftest_twos_complement(); + error_count += duk__selftest_byte_order(); + error_count += duk__selftest_bswap_macros(); + error_count += duk__selftest_double_union_size(); + error_count += duk__selftest_double_aliasing(); + error_count += duk__selftest_double_zero_sign(); + error_count += duk__selftest_double_rounding(); + error_count += duk__selftest_fmod(); + error_count += duk__selftest_struct_align(); + error_count += duk__selftest_64bit_arithmetic(); + error_count += duk__selftest_cast_double_to_small_uint(); + error_count += duk__selftest_cast_double_to_uint32(); + error_count += duk__selftest_alloc_funcs(alloc_func, realloc_func, free_func, udata); + + DUK_D(DUK_DPRINT("self test complete, total error count: %ld", (long) error_count)); + + return error_count; +} + +#endif /* DUK_USE_SELF_TESTS */ + +/* automatic undefs */ +#undef DUK__DBLUNION_CMP_FALSE +#undef DUK__DBLUNION_CMP_TRUE +#undef DUK__DOUBLE_COMPARE +#undef DUK__DOUBLE_INIT +#undef DUK__FAILED +#undef DUK__U32_INIT +/* #include duk_internal.h -> already included */ +#line 2 "duk_tval.c" + +#if defined(DUK_USE_FASTINT) + +/* + * Manually optimized double-to-fastint downgrade check. + * + * This check has a large impact on performance, especially for fastint + * slow paths, so must be changed carefully. The code should probably be + * optimized for the case where the result does not fit into a fastint, + * to minimize the penalty for "slow path code" dealing with fractions etc. + * + * At least on one tested soft float ARM platform double-to-int64 coercion + * is very slow (and sometimes produces incorrect results, see self tests). + * This algorithm combines a fastint compatibility check and extracting the + * integer value from an IEEE double for setting the tagged fastint. For + * other platforms a more naive approach might be better. + * + * See doc/fastint.rst for details. + */ + +DUK_INTERNAL DUK_ALWAYS_INLINE void duk_tval_set_number_chkfast_fast(duk_tval *tv, duk_double_t x) { + duk_double_union du; + duk_int64_t i; + duk_small_int_t expt; + duk_small_int_t shift; + + /* XXX: optimize for packed duk_tval directly? */ + + du.d = x; + i = (duk_int64_t) DUK_DBLUNION_GET_INT64(&du); + expt = (duk_small_int_t) ((i >> 52) & 0x07ff); + shift = expt - 1023; + + if (shift >= 0 && shift <= 46) { /* exponents 1023 to 1069 */ + duk_int64_t t; + + if (((DUK_I64_CONSTANT(0x000fffffffffffff) >> shift) & i) == 0) { + t = i | DUK_I64_CONSTANT(0x0010000000000000); /* implicit leading one */ + t = t & DUK_I64_CONSTANT(0x001fffffffffffff); + t = t >> (52 - shift); + if (i < 0) { + t = -t; + } + DUK_TVAL_SET_FASTINT(tv, t); + return; + } + } else if (shift == -1023) { /* exponent 0 */ + if (i >= 0 && (i & DUK_I64_CONSTANT(0x000fffffffffffff)) == 0) { + /* Note: reject negative zero. */ + DUK_TVAL_SET_FASTINT(tv, (duk_int64_t) 0); + return; + } + } else if (shift == 47) { /* exponent 1070 */ + if (i < 0 && (i & DUK_I64_CONSTANT(0x000fffffffffffff)) == 0) { + DUK_TVAL_SET_FASTINT(tv, (duk_int64_t) DUK_FASTINT_MIN); + return; + } + } + + DUK_TVAL_SET_DOUBLE(tv, x); + return; +} + +DUK_INTERNAL DUK_NOINLINE void duk_tval_set_number_chkfast_slow(duk_tval *tv, duk_double_t x) { + duk_tval_set_number_chkfast_fast(tv, x); +} + +/* + * Manually optimized number-to-double conversion + */ + +#if defined(DUK_USE_FASTINT) && defined(DUK_USE_PACKED_TVAL) +DUK_INTERNAL DUK_ALWAYS_INLINE duk_double_t duk_tval_get_number_packed(duk_tval *tv) { + duk_double_union du; + duk_uint64_t t; + + t = (duk_uint64_t) DUK_DBLUNION_GET_UINT64(tv); + if ((t >> 48) != DUK_TAG_FASTINT) { + return tv->d; + } else if (t & DUK_U64_CONSTANT(0x0000800000000000)) { + t = (duk_uint64_t) (-((duk_int64_t) t)); /* avoid unary minus on unsigned */ + t = t & DUK_U64_CONSTANT(0x0000ffffffffffff); /* negative */ + t |= DUK_U64_CONSTANT(0xc330000000000000); + DUK_DBLUNION_SET_UINT64(&du, t); + return du.d + 4503599627370496.0; /* 1 << 52 */ + } else if (t != 0) { + t &= DUK_U64_CONSTANT(0x0000ffffffffffff); /* positive */ + t |= DUK_U64_CONSTANT(0x4330000000000000); + DUK_DBLUNION_SET_UINT64(&du, t); + return du.d - 4503599627370496.0; /* 1 << 52 */ + } else { + return 0.0; /* zero */ + } +} +#endif /* DUK_USE_FASTINT && DUK_USE_PACKED_TVAL */ + +#if 0 /* unused */ +#if defined(DUK_USE_FASTINT) && !defined(DUK_USE_PACKED_TVAL) +DUK_INTERNAL DUK_ALWAYS_INLINE duk_double_t duk_tval_get_number_unpacked(duk_tval *tv) { + duk_double_union du; + duk_uint64_t t; + + DUK_ASSERT(tv->t == DUK_TAG_NUMBER || tv->t == DUK_TAG_FASTINT); + + if (tv->t == DUK_TAG_FASTINT) { + if (tv->v.fi >= 0) { + t = DUK_U64_CONSTANT(0x4330000000000000) | (duk_uint64_t) tv->v.fi; + DUK_DBLUNION_SET_UINT64(&du, t); + return du.d - 4503599627370496.0; /* 1 << 52 */ + } else { + t = DUK_U64_CONSTANT(0xc330000000000000) | (duk_uint64_t) (-tv->v.fi); + DUK_DBLUNION_SET_UINT64(&du, t); + return du.d + 4503599627370496.0; /* 1 << 52 */ + } + } else { + return tv->v.d; + } +} +#endif /* DUK_USE_FASTINT && DUK_USE_PACKED_TVAL */ +#endif /* 0 */ + +#if defined(DUK_USE_FASTINT) && !defined(DUK_USE_PACKED_TVAL) +DUK_INTERNAL DUK_ALWAYS_INLINE duk_double_t duk_tval_get_number_unpacked_fastint(duk_tval *tv) { + duk_double_union du; + duk_uint64_t t; + + DUK_ASSERT(tv->t == DUK_TAG_FASTINT); + + if (tv->v.fi >= 0) { + t = DUK_U64_CONSTANT(0x4330000000000000) | (duk_uint64_t) tv->v.fi; + DUK_DBLUNION_SET_UINT64(&du, t); + return du.d - 4503599627370496.0; /* 1 << 52 */ + } else { + t = DUK_U64_CONSTANT(0xc330000000000000) | (duk_uint64_t) (-tv->v.fi); + DUK_DBLUNION_SET_UINT64(&du, t); + return du.d + 4503599627370496.0; /* 1 << 52 */ + } +} +#endif /* DUK_USE_FASTINT && DUK_USE_PACKED_TVAL */ + +#endif /* DUK_USE_FASTINT */ + +/* + * Assertion helpers. + */ + +#if defined(DUK_USE_ASSERTIONS) +DUK_INTERNAL void duk_tval_assert_valid(duk_tval *tv) { + DUK_ASSERT(tv != NULL); +} +#endif +#line 1 "duk_unicode_tables.c" +/* + * Unicode support tables automatically generated during build. + */ + +/* #include duk_internal.h -> already included */ + +/* + * Unicode tables containing ranges of Unicode characters in a + * packed format. These tables are used to match non-ASCII + * characters of complex productions by resorting to a linear + * range-by-range comparison. This is very slow, but is expected + * to be very rare in practical ECMAScript source code, and thus + * compactness is most important. + * + * The tables are matched using uni_range_match() and the format + * is described in tools/extract_chars.py. + */ + +#if defined(DUK_USE_SOURCE_NONBMP) +/* IdentifierStart production with ASCII excluded */ +/* duk_unicode_ids_noa[] */ +/* + * Automatically generated by extract_chars.py, do not edit! + */ + +const duk_uint8_t duk_unicode_ids_noa[1116] = { +249,176,176,80,111,7,47,15,47,254,11,197,191,0,72,2,15,115,66,19,50,7,2,34, +2,240,66,244,50,247,185,249,98,241,99,7,241,159,57,240,181,63,31,241,191, +21,18,245,50,15,1,24,27,35,15,2,2,240,239,15,244,156,15,10,241,26,21,6,240, +101,10,4,15,9,240,152,175,39,240,82,127,56,242,100,15,4,8,159,1,240,5,115, +19,240,98,98,4,52,15,2,14,18,47,0,27,9,85,19,240,98,98,18,18,31,17,50,15,5, +47,2,130,34,240,98,98,18,68,15,4,15,1,31,9,12,115,19,240,98,98,18,68,15,16, +18,47,1,15,3,2,84,34,52,18,2,20,20,36,191,8,15,38,114,34,240,114,240,4,15, +12,38,31,16,5,114,34,240,114,146,68,15,18,2,31,1,31,4,114,34,241,147,15,2, +6,41,47,10,86,240,36,240,130,130,3,111,44,242,2,29,111,44,18,2,66,240,130, +2,146,26,3,66,15,7,63,18,15,49,114,241,79,13,79,101,241,191,6,15,2,85,52,4, +24,37,205,15,3,241,98,6,3,241,178,255,224,63,35,54,32,35,63,25,35,63,17,35, +54,32,35,62,47,41,35,63,51,241,127,0,240,47,70,53,79,254,21,227,240,18,240, +166,243,180,168,194,63,0,240,47,0,240,47,0,194,47,1,242,79,21,5,15,53,244, +152,67,241,34,6,243,107,240,255,35,240,227,76,241,197,240,175,40,240,122, +242,95,68,15,79,241,255,3,111,41,240,238,27,241,207,12,241,79,27,43,241,67, +136,241,179,47,27,50,82,20,6,251,15,50,255,224,8,53,63,22,53,55,32,32,32, +47,15,63,37,38,32,66,38,67,53,92,98,38,246,96,224,240,44,245,112,80,57,32, +68,112,32,32,35,42,51,100,80,240,63,25,255,233,107,241,242,241,242,247,87, +52,29,241,98,6,3,242,136,15,2,240,122,98,98,98,98,98,98,98,111,66,15,254, +12,146,240,184,132,52,95,70,114,47,74,35,111,27,47,78,240,63,11,242,127,0, +255,224,244,255,240,0,138,143,60,255,240,4,14,47,2,255,227,127,243,95,30, +63,253,79,0,177,240,111,31,240,47,15,63,64,241,152,63,87,63,37,52,242,42, +34,35,47,7,240,255,36,240,15,34,243,5,64,33,207,12,191,7,240,191,13,143,31, +240,224,240,36,41,180,47,25,240,146,39,240,111,7,64,79,34,32,65,52,48,32, +240,162,58,130,213,53,53,166,38,47,27,43,159,99,240,255,255,0,26,150,223,7, +95,33,255,240,0,255,143,254,6,3,245,175,24,109,70,2,146,194,66,2,18,18,245, +207,19,255,224,93,240,79,48,63,38,241,171,246,100,47,119,241,111,10,127,10, +207,73,69,53,53,50,241,91,47,10,47,3,33,46,61,241,79,107,243,127,37,255, +223,13,79,33,242,31,16,239,14,111,22,191,14,63,20,87,36,241,207,142,240,79, +20,95,20,95,24,159,36,248,239,254,2,154,240,107,127,138,83,2,241,194,20,3, +240,123,240,122,240,255,51,240,50,27,240,107,240,175,56,242,135,31,50,15,1, +50,34,240,223,28,240,212,240,223,21,114,240,207,13,242,107,240,107,240,62, +240,47,96,243,159,41,242,62,242,62,241,79,254,13,15,13,176,159,6,248,207,7, +223,37,243,223,29,241,47,9,240,207,20,240,240,207,19,64,223,32,240,3,240, +112,32,241,95,2,47,9,244,102,32,35,46,41,143,31,241,135,49,63,6,38,33,36, +64,240,64,212,249,15,37,240,67,240,96,241,47,32,240,97,32,250,175,31,241, +179,241,111,32,240,96,242,223,27,224,243,159,11,253,127,28,246,111,48,241, +16,249,39,63,23,240,32,32,240,224,191,24,128,240,112,207,30,240,80,241,79, +41,255,152,47,21,240,48,242,63,14,246,38,33,47,22,240,112,240,181,33,47,16, +240,0,255,224,59,240,63,254,0,31,254,40,207,88,245,255,3,251,79,254,155,15, +254,50,31,254,236,95,254,19,159,255,0,16,173,255,225,43,143,15,246,63,14, +240,79,32,240,35,241,31,5,111,3,255,225,164,243,15,114,243,182,15,52,207, +50,18,15,14,255,240,0,110,169,255,225,229,255,240,1,64,31,254,1,31,35,47,3, +57,255,224,126,255,231,248,245,182,196,136,159,255,0,6,90,244,82,243,114, +19,3,19,50,178,2,98,243,18,51,114,98,240,194,50,66,4,98,255,224,70,63,9,47, +9,47,15,47,9,47,15,47,9,47,15,47,9,47,15,47,9,39,255,232,40,241,219,111,2, +15,254,6,95,28,255,228,8,251,95,45,243,72,15,254,58,131,47,11,33,32,48,41, +35,32,32,112,80,32,32,34,33,32,48,32,32,32,32,33,32,51,38,35,35,32,41,47,1, +98,36,47,1,255,240,0,3,143,255,0,149,201,241,191,254,242,124,252,227,255, +240,0,87,79,0,255,240,0,194,63,254,177,63,254,17,0, +}; +#else +/* IdentifierStart production with ASCII and non-BMP excluded */ +/* duk_unicode_ids_noabmp[] */ +/* + * Automatically generated by extract_chars.py, do not edit! + */ + +const duk_uint8_t duk_unicode_ids_noabmp[625] = { +249,176,176,80,111,7,47,15,47,254,11,197,191,0,72,2,15,115,66,19,50,7,2,34, +2,240,66,244,50,247,185,249,98,241,99,7,241,159,57,240,181,63,31,241,191, +21,18,245,50,15,1,24,27,35,15,2,2,240,239,15,244,156,15,10,241,26,21,6,240, +101,10,4,15,9,240,152,175,39,240,82,127,56,242,100,15,4,8,159,1,240,5,115, +19,240,98,98,4,52,15,2,14,18,47,0,27,9,85,19,240,98,98,18,18,31,17,50,15,5, +47,2,130,34,240,98,98,18,68,15,4,15,1,31,9,12,115,19,240,98,98,18,68,15,16, +18,47,1,15,3,2,84,34,52,18,2,20,20,36,191,8,15,38,114,34,240,114,240,4,15, +12,38,31,16,5,114,34,240,114,146,68,15,18,2,31,1,31,4,114,34,241,147,15,2, +6,41,47,10,86,240,36,240,130,130,3,111,44,242,2,29,111,44,18,2,66,240,130, +2,146,26,3,66,15,7,63,18,15,49,114,241,79,13,79,101,241,191,6,15,2,85,52,4, +24,37,205,15,3,241,98,6,3,241,178,255,224,63,35,54,32,35,63,25,35,63,17,35, +54,32,35,62,47,41,35,63,51,241,127,0,240,47,70,53,79,254,21,227,240,18,240, +166,243,180,168,194,63,0,240,47,0,240,47,0,194,47,1,242,79,21,5,15,53,244, +152,67,241,34,6,243,107,240,255,35,240,227,76,241,197,240,175,40,240,122, +242,95,68,15,79,241,255,3,111,41,240,238,27,241,207,12,241,79,27,43,241,67, +136,241,179,47,27,50,82,20,6,251,15,50,255,224,8,53,63,22,53,55,32,32,32, +47,15,63,37,38,32,66,38,67,53,92,98,38,246,96,224,240,44,245,112,80,57,32, +68,112,32,32,35,42,51,100,80,240,63,25,255,233,107,241,242,241,242,247,87, +52,29,241,98,6,3,242,136,15,2,240,122,98,98,98,98,98,98,98,111,66,15,254, +12,146,240,184,132,52,95,70,114,47,74,35,111,27,47,78,240,63,11,242,127,0, +255,224,244,255,240,0,138,143,60,255,240,4,14,47,2,255,227,127,243,95,30, +63,253,79,0,177,240,111,31,240,47,15,63,64,241,152,63,87,63,37,52,242,42, +34,35,47,7,240,255,36,240,15,34,243,5,64,33,207,12,191,7,240,191,13,143,31, +240,224,240,36,41,180,47,25,240,146,39,240,111,7,64,79,34,32,65,52,48,32, +240,162,58,130,213,53,53,166,38,47,27,43,159,99,240,255,255,0,26,150,223,7, +95,33,255,240,0,255,143,254,6,3,245,175,24,109,70,2,146,194,66,2,18,18,245, +207,19,255,224,93,240,79,48,63,38,241,171,246,100,47,119,241,111,10,127,10, +207,73,69,53,53,50,0, +}; +#endif + +#if defined(DUK_USE_SOURCE_NONBMP) +/* IdentifierStart production with Letter and ASCII excluded */ +/* duk_unicode_ids_m_let_noa[] */ +/* + * Automatically generated by extract_chars.py, do not edit! + */ + +const duk_uint8_t duk_unicode_ids_m_let_noa[42] = { +255,240,0,94,18,255,233,99,241,51,63,254,215,32,240,184,240,2,255,240,6,89, +249,255,240,4,148,79,37,255,224,192,9,15,120,79,255,0,15,30,245,240, +}; +#else +/* IdentifierStart production with Letter, ASCII, and non-BMP excluded */ +/* duk_unicode_ids_m_let_noabmp[] */ +/* + * Automatically generated by extract_chars.py, do not edit! + */ + +const duk_uint8_t duk_unicode_ids_m_let_noabmp[24] = { +255,240,0,94,18,255,233,99,241,51,63,254,215,32,240,184,240,2,255,240,6,89, +249,0, +}; +#endif + +#if defined(DUK_USE_SOURCE_NONBMP) +/* IdentifierPart production with IdentifierStart and ASCII excluded */ +/* duk_unicode_idp_m_ids_noa[] */ +/* + * Automatically generated by extract_chars.py, do not edit! + */ + +const duk_uint8_t duk_unicode_idp_m_ids_noa[576] = { +255,225,243,246,15,254,0,116,255,191,29,32,33,33,32,243,170,242,47,15,112, +245,118,53,49,35,57,240,144,241,15,11,244,218,240,25,241,56,160,240,163,40, +34,36,241,210,246,158,47,17,242,130,47,2,38,177,57,240,50,242,160,38,49,50, +160,177,57,240,0,50,242,160,36,81,50,64,240,107,64,194,242,160,39,34,34, +240,97,57,181,34,242,160,38,49,50,145,177,57,240,64,242,212,66,35,160,240, +9,240,36,242,182,34,35,129,193,57,240,50,242,160,38,34,35,129,193,57,240, +35,242,145,38,34,35,160,177,57,240,65,243,128,85,32,39,121,49,242,240,54, +215,41,244,144,56,197,57,243,1,121,192,32,32,81,242,63,4,33,106,47,20,160, +245,111,4,41,211,82,34,54,67,235,46,255,225,179,47,254,42,98,240,242,240, +241,241,1,243,47,16,160,57,241,50,57,245,209,241,64,246,139,91,185,247,41, +242,244,242,185,47,13,58,121,240,141,243,68,242,31,1,201,240,56,210,241,12, +57,241,237,242,47,4,153,121,246,130,47,5,80,112,50,251,143,42,36,255,225,0, +31,35,31,5,15,109,197,4,191,254,175,34,247,240,245,47,16,255,225,30,95,91, +31,255,0,100,121,159,55,5,159,18,31,66,31,254,0,64,64,80,240,148,244,161, +242,79,2,185,127,2,234,240,231,240,188,241,227,242,29,240,25,192,185,242, +29,208,145,57,241,50,242,64,34,49,97,32,241,180,97,253,231,33,57,255,240,3, +225,128,255,225,213,240,15,2,240,4,31,10,47,178,159,23,15,254,27,16,253,64, +248,116,255,224,25,159,254,68,178,33,99,241,162,80,249,113,255,225,49,57, +159,254,16,10,250,18,242,126,241,25,240,19,241,250,242,121,114,241,109,41, +97,241,224,210,242,45,147,73,244,75,112,249,43,105,115,242,145,38,49,50, +160,177,54,68,251,47,2,169,80,244,63,4,217,252,118,56,240,209,244,79,1,240, +25,244,60,153,244,94,89,254,78,249,121,253,150,54,64,240,233,241,166,35, +144,170,242,15,0,255,224,137,114,127,2,159,42,240,98,223,108,84,2,18,98,9, +159,34,66,18,73,159,254,3,211,255,240,3,165,217,247,132,242,214,240,185, +255,226,233,2,242,120,63,255,0,59,254,31,255,0,3,186,68,89,115,111,16,63, +134,47,254,71,223,34,255,224,244,242,117,242,41,15,0,15,8,66,239,254,68,70, +47,1,54,33,36,255,118,169,255,224,150,223,254,76,166,245,246,105,255,240, +192,105,175,224,0, +}; +#else +/* IdentifierPart production with IdentifierStart, ASCII, and non-BMP excluded */ +/* duk_unicode_idp_m_ids_noabmp[] */ +/* + * Automatically generated by extract_chars.py, do not edit! + */ + +const duk_uint8_t duk_unicode_idp_m_ids_noabmp[358] = { +255,225,243,246,15,254,0,116,255,191,29,32,33,33,32,243,170,242,47,15,112, +245,118,53,49,35,57,240,144,241,15,11,244,218,240,25,241,56,160,240,163,40, +34,36,241,210,246,158,47,17,242,130,47,2,38,177,57,240,50,242,160,38,49,50, +160,177,57,240,0,50,242,160,36,81,50,64,240,107,64,194,242,160,39,34,34, +240,97,57,181,34,242,160,38,49,50,145,177,57,240,64,242,212,66,35,160,240, +9,240,36,242,182,34,35,129,193,57,240,50,242,160,38,34,35,129,193,57,240, +35,242,145,38,34,35,160,177,57,240,65,243,128,85,32,39,121,49,242,240,54, +215,41,244,144,56,197,57,243,1,121,192,32,32,81,242,63,4,33,106,47,20,160, +245,111,4,41,211,82,34,54,67,235,46,255,225,179,47,254,42,98,240,242,240, +241,241,1,243,47,16,160,57,241,50,57,245,209,241,64,246,139,91,185,247,41, +242,244,242,185,47,13,58,121,240,141,243,68,242,31,1,201,240,56,210,241,12, +57,241,237,242,47,4,153,121,246,130,47,5,80,112,50,251,143,42,36,255,225,0, +31,35,31,5,15,109,197,4,191,254,175,34,247,240,245,47,16,255,225,30,95,91, +31,255,0,100,121,159,55,5,159,18,31,66,31,254,0,64,64,80,240,148,244,161, +242,79,2,185,127,2,234,240,231,240,188,241,227,242,29,240,25,192,185,242, +29,208,145,57,241,50,242,64,34,49,97,32,241,180,97,253,231,33,57,255,240,3, +225,128,255,225,213,240,15,2,240,4,31,10,47,178,159,23,0, +}; +#endif + +/* + * Case conversion tables generated using tools/extract_caseconv.py. + */ + +/* duk_unicode_caseconv_uc[] */ +/* duk_unicode_caseconv_lc[] */ + +/* + * Automatically generated by extract_caseconv.py, do not edit! + */ + +const duk_uint8_t duk_unicode_caseconv_uc[1411] = { +152,3,128,3,0,184,7,192,6,192,112,35,242,199,224,64,74,192,49,32,128,162, +128,108,65,1,189,129,254,131,3,173,3,136,6,7,98,7,34,68,15,12,14,140,72,30, +104,28,112,32,67,0,65,4,0,138,0,128,4,1,88,65,76,83,8,104,14,72,43,16,253, +28,189,6,39,240,39,224,24,114,12,16,132,16,248,0,248,64,129,241,1,241,128, +195,228,3,229,2,7,204,7,206,4,15,160,15,164,6,31,96,31,104,16,62,224,63, +116,8,125,200,127,32,32,251,176,254,208,33,247,129,255,128,67,239,67,253, +64,135,223,7,254,129,15,216,15,220,2,31,208,31,216,4,63,192,63,208,8,133, +192,133,128,129,38,129,37,177,162,195,2,192,5,229,160,2,20,9,170,220,4,232, +40,127,160,255,144,154,136,4,4,4,0,192,9,152,9,144,48,19,160,19,145,0,41, +96,41,69,192,94,128,94,65,128,193,128,193,2,1,161,1,160,6,3,104,3,102,8,7, +56,7,52,64,14,248,14,240,144,31,144,31,130,128,68,96,68,66,64,145,192,145, +130,129,184,129,184,2,3,217,3,216,24,8,194,8,192,68,18,44,18,40,216,38,16, +38,8,112,77,16,77,6,3,192,35,192,18,199,168,71,168,24,15,168,143,172,132, +44,104,44,103,6,89,2,89,0,200,179,176,179,172,21,50,13,50,1,122,104,26,104, +1,212,228,116,228,65,233,204,233,204,143,211,189,83,188,130,167,127,167, +126,11,79,35,79,32,10,158,94,158,88,85,61,173,61,160,97,192,107,64,107,1,0, +226,128,226,3,1,198,1,196,6,3,228,3,226,8,10,0,6,152,16,31,192,31,184,34, +199,50,199,32,65,128,196,0,195,130,1,185,1,184,4,4,205,79,84,8,0,192,143,0, +142,193,1,52,128,203,2,45,39,16,199,5,253,0,11,80,57,192,15,240,23,128,19, +16,4,144,23,240,5,48,24,0,36,48,25,32,25,16,25,80,31,96,25,144,25,128,25, +160,35,208,25,224,34,0,26,128,26,112,27,240,31,112,29,208,24,224,31,48,31, +16,37,2,198,240,37,18,198,208,37,34,199,0,37,48,24,16,37,64,24,96,37,144, +24,240,37,176,25,0,37,202,122,176,38,0,25,48,38,26,122,192,38,48,25,64,38, +90,120,208,38,128,25,112,38,178,198,32,38,202,122,208,39,18,198,224,39,32, +25,208,39,80,25,240,39,210,198,64,40,42,124,80,40,122,123,16,40,128,26,224, +40,144,36,64,40,192,36,80,41,32,27,112,41,218,123,32,41,234,123,0,52,80,57, +144,55,112,55,96,58,192,56,96,60,32,58,48,60,192,56,192,61,0,57,32,61,16, +57,128,61,80,58,96,61,96,58,0,61,112,60,240,63,0,57,160,63,16,58,16,63,32, +63,144,63,48,55,240,63,80,57,80,76,240,76,1,200,0,65,33,200,16,65,65,200, +32,65,225,200,80,66,33,200,96,66,161,200,112,70,33,200,138,100,161,215,154, +119,209,215,210,198,49,216,234,124,97,233,177,230,1,251,224,57,145,254,81, +254,194,20,226,19,34,24,66,24,50,198,18,198,2,198,80,35,162,198,96,35,226, +207,50,207,42,120,202,120,186,121,74,124,74,124,58,124,42,181,58,123,60, +192,27,240,2,152,2,152,10,76,5,120,0,156,3,225,0,37,1,134,1,200,96,115,32, +97,0,96,32,118,24,29,40,24,64,24,8,44,60,10,106,10,164,61,45,0,36,1,152, +143,75,192,10,128,97,3,211,16,2,184,24,80,244,204,0,178,6,20,61,53,0,32, +129,95,15,168,64,116,160,98,99,234,88,29,40,24,152,24,0,250,166,7,74,6,38, +6,2,62,173,129,210,129,137,129,161,15,192,67,225,0,115,35,240,48,248,72,28, +200,252,20,62,20,7,50,63,7,15,133,129,204,143,194,67,225,128,115,35,240, +176,248,104,28,200,252,52,62,28,7,50,63,15,15,135,129,204,143,196,67,225,0, +115,35,241,48,248,72,28,200,252,84,62,20,7,50,63,23,15,133,129,204,143,198, +67,225,128,115,35,241,176,248,104,28,200,252,116,62,28,7,50,63,31,15,135, +129,204,143,200,67,229,0,115,35,242,48,249,72,28,200,252,148,62,84,7,50,63, +39,15,149,129,204,143,202,67,229,128,115,35,242,176,249,104,28,200,252,180, +62,92,7,50,63,47,15,151,129,204,143,204,67,229,0,115,35,243,48,249,72,28, +200,252,212,62,84,7,50,63,55,15,149,129,204,143,206,67,229,128,115,35,243, +176,249,104,28,200,252,244,62,92,7,50,63,63,15,151,129,204,143,208,67,237, +0,115,35,244,48,251,72,28,200,253,20,62,212,7,50,63,71,15,181,129,204,143, +210,67,237,128,115,35,244,176,251,104,28,200,253,52,62,220,7,50,63,79,15, +183,129,204,143,212,67,237,0,115,35,245,48,251,72,28,200,253,84,62,212,7, +50,63,87,15,181,129,204,143,214,67,237,128,115,35,245,176,251,104,28,200, +253,116,62,220,7,50,63,95,15,183,129,204,143,217,67,247,64,115,35,246,112, +28,136,28,200,253,164,7,12,7,50,63,109,1,200,129,161,15,219,224,114,32,104, +64,115,35,247,144,28,136,28,200,254,20,63,148,7,50,63,135,1,203,129,204, +143,226,64,113,32,115,35,248,208,28,184,26,16,254,62,7,46,6,132,7,50,63, +153,1,203,129,204,143,233,96,115,32,97,0,96,3,250,120,28,200,24,64,24,8, +254,180,7,50,6,132,63,175,129,204,129,132,1,161,15,241,96,116,160,97,0,96, +3,252,120,29,40,24,64,24,8,255,36,7,66,6,38,63,205,1,210,129,161,15,243, +224,116,160,97,0,104,67,254,80,255,208,28,200,255,156,7,82,7,50,63,233,1, +199,129,204,143,251,64,117,32,104,67,254,248,29,72,26,16,28,200,255,228,7, +82,7,51,246,1,0,35,0,35,125,128,192,8,192,9,63,96,80,2,48,2,103,216,30,0, +140,0,140,0,147,246,9,128,35,0,35,0,38,125,130,192,10,96,10,159,96,208,2, +152,2,167,216,156,10,136,10,141,246,41,2,162,2,154,253,138,192,168,128,167, +127,98,208,42,112,42,55,216,188,10,136,10,122, +}; +const duk_uint8_t duk_unicode_caseconv_lc[706] = { +160,3,0,3,128,184,6,192,7,192,112,24,144,37,96,64,54,32,81,64,128,226,0, +235,65,129,199,1,230,130,3,145,3,177,34,7,70,7,134,36,15,244,13,236,24,32, +0,34,129,0,65,0,67,4,0,166,32,172,41,132,40,11,64,19,9,208,85,184,80,19, +240,19,248,12,57,32,33,160,172,114,244,67,244,24,248,64,248,0,129,241,129, +241,0,195,229,3,228,2,7,206,7,204,4,15,164,15,160,6,31,104,31,96,16,63,16, +63,0,32,126,96,126,64,64,253,64,253,0,129,251,129,251,0,67,247,67,238,0, +135,242,7,220,130,15,236,15,232,2,31,218,31,118,4,63,208,63,192,8,127,168, +125,232,16,255,192,251,192,33,255,161,247,192,68,44,4,46,4,9,45,137,52,13, +22,0,22,24,47,44,126,2,63,5,254,67,254,130,106,48,16,0,16,19,0,38,64,38,96, +192,78,64,78,132,0,165,0,165,151,1,121,1,122,6,3,4,3,6,8,6,128,6,132,24,13, +152,13,160,32,28,176,28,193,32,59,192,59,226,64,124,128,124,193,0,252,0, +252,148,2,34,2,35,18,4,140,4,142,20,13,192,13,196,16,30,192,30,200,192,70, +0,70,18,32,145,64,145,102,193,48,65,48,131,130,104,2,104,176,30,0,30,1,150, +61,64,61,66,192,125,100,125,68,33,99,57,99,64,50,200,2,200,22,69,157,101, +157,128,169,144,41,144,75,211,64,83,64,142,167,34,167,35,15,78,101,78,102, +126,157,230,157,232,21,59,245,59,248,90,121,10,121,16,84,242,212,242,226, +169,237,41,237,67,12,3,76,5,0,8,6,176,6,180,16,14,32,14,48,48,28,80,28,96, +64,126,224,127,0,139,28,139,28,193,6,3,14,3,16,8,6,224,6,228,21,61,80,19, +48,32,3,1,150,2,105,4,4,118,4,120,8,67,28,180,156,23,240,192,94,0,63,192, +96,64,148,192,97,128,149,0,99,128,119,64,99,192,150,64,100,0,150,192,100, +64,100,128,100,192,152,0,101,0,152,192,101,192,154,0,102,0,102,64,103,64, +156,128,103,192,157,64,105,192,106,0,107,128,162,0,109,192,164,128,124,64, +124,192,125,128,101,64,125,192,111,192,136,0,103,128,142,139,25,64,143,64, +102,128,143,139,25,128,144,192,96,0,145,0,162,64,145,64,163,0,221,128,221, +192,223,192,252,192,225,128,235,0,227,0,243,0,243,192,245,192,253,0,238,0, +254,64,252,129,48,1,51,199,167,128,55,199,239,7,236,199,243,7,240,199,251, +7,249,71,255,7,252,200,73,128,242,72,74,128,26,200,74,192,57,72,76,136,83, +136,96,200,97,11,24,11,24,75,24,128,154,203,24,199,95,75,25,0,159,75,27,64, +148,75,27,128,156,75,27,192,148,11,28,0,148,139,60,139,60,233,223,71,94, +105,226,233,227,41,227,64,153,105,234,192,151,41,235,0,152,105,235,64,155, +41,236,0,167,169,236,64,161,233,236,128,167,105,236,234,212,233,240,169, +240,233,241,41,229,41,241,64,160,169,241,135,99,128,128,152,64,13,32,96, +224, +}; + +#if defined(DUK_USE_REGEXP_CANON_WORKAROUND) +/* + * Automatically generated by extract_caseconv.py, do not edit! + */ + +const duk_uint16_t duk_unicode_re_canon_lookup[65536] = { +0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27, +28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52, +53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77, +78,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,65,66,67,68,69,70, +71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,123,124,125, +126,127,128,129,130,131,132,133,134,135,136,137,138,139,140,141,142,143, +144,145,146,147,148,149,150,151,152,153,154,155,156,157,158,159,160,161, +162,163,164,165,166,167,168,169,170,171,172,173,174,175,176,177,178,179, +180,924,182,183,184,185,186,187,188,189,190,191,192,193,194,195,196,197, +198,199,200,201,202,203,204,205,206,207,208,209,210,211,212,213,214,215, +216,217,218,219,220,221,222,223,192,193,194,195,196,197,198,199,200,201, +202,203,204,205,206,207,208,209,210,211,212,213,214,247,216,217,218,219, +220,221,222,376,256,256,258,258,260,260,262,262,264,264,266,266,268,268, +270,270,272,272,274,274,276,276,278,278,280,280,282,282,284,284,286,286, +288,288,290,290,292,292,294,294,296,296,298,298,300,300,302,302,304,305, +306,306,308,308,310,310,312,313,313,315,315,317,317,319,319,321,321,323, +323,325,325,327,327,329,330,330,332,332,334,334,336,336,338,338,340,340, +342,342,344,344,346,346,348,348,350,350,352,352,354,354,356,356,358,358, +360,360,362,362,364,364,366,366,368,368,370,370,372,372,374,374,376,377, +377,379,379,381,381,383,579,385,386,386,388,388,390,391,391,393,394,395, +395,397,398,399,400,401,401,403,404,502,406,407,408,408,573,411,412,413, +544,415,416,416,418,418,420,420,422,423,423,425,426,427,428,428,430,431, +431,433,434,435,435,437,437,439,440,440,442,443,444,444,446,503,448,449, +450,451,452,452,452,455,455,455,458,458,458,461,461,463,463,465,465,467, +467,469,469,471,471,473,473,475,475,398,478,478,480,480,482,482,484,484, +486,486,488,488,490,490,492,492,494,494,496,497,497,497,500,500,502,503, +504,504,506,506,508,508,510,510,512,512,514,514,516,516,518,518,520,520, +522,522,524,524,526,526,528,528,530,530,532,532,534,534,536,536,538,538, +540,540,542,542,544,545,546,546,548,548,550,550,552,552,554,554,556,556, +558,558,560,560,562,562,564,565,566,567,568,569,570,571,571,573,574,11390, +11391,577,577,579,580,581,582,582,584,584,586,586,588,588,590,590,11375, +11373,11376,385,390,597,393,394,600,399,602,400,42923L,605,606,607,403, +42924L,610,404,612,42893L,42922L,615,407,406,42926L,11362,42925L,621,622, +412,624,11374,413,627,628,415,630,631,632,633,634,635,636,11364,638,639, +422,641,42949L,425,644,645,646,42929L,430,580,433,434,581,653,654,655,656, +657,439,659,660,661,662,663,664,665,666,667,668,42930L,42928L,671,672,673, +674,675,676,677,678,679,680,681,682,683,684,685,686,687,688,689,690,691, +692,693,694,695,696,697,698,699,700,701,702,703,704,705,706,707,708,709, +710,711,712,713,714,715,716,717,718,719,720,721,722,723,724,725,726,727, +728,729,730,731,732,733,734,735,736,737,738,739,740,741,742,743,744,745, +746,747,748,749,750,751,752,753,754,755,756,757,758,759,760,761,762,763, +764,765,766,767,768,769,770,771,772,773,774,775,776,777,778,779,780,781, +782,783,784,785,786,787,788,789,790,791,792,793,794,795,796,797,798,799, +800,801,802,803,804,805,806,807,808,809,810,811,812,813,814,815,816,817, +818,819,820,821,822,823,824,825,826,827,828,829,830,831,832,833,834,835, +836,921,838,839,840,841,842,843,844,845,846,847,848,849,850,851,852,853, +854,855,856,857,858,859,860,861,862,863,864,865,866,867,868,869,870,871, +872,873,874,875,876,877,878,879,880,880,882,882,884,885,886,886,888,889, +890,1021,1022,1023,894,895,896,897,898,899,900,901,902,903,904,905,906,907, +908,909,910,911,912,913,914,915,916,917,918,919,920,921,922,923,924,925, +926,927,928,929,930,931,932,933,934,935,936,937,938,939,902,904,905,906, +944,913,914,915,916,917,918,919,920,921,922,923,924,925,926,927,928,929, +931,931,932,933,934,935,936,937,938,939,908,910,911,975,914,920,978,979, +980,934,928,975,984,984,986,986,988,988,990,990,992,992,994,994,996,996, +998,998,1000,1000,1002,1002,1004,1004,1006,1006,922,929,1017,895,1012,917, +1014,1015,1015,1017,1018,1018,1020,1021,1022,1023,1024,1025,1026,1027,1028, +1029,1030,1031,1032,1033,1034,1035,1036,1037,1038,1039,1040,1041,1042,1043, +1044,1045,1046,1047,1048,1049,1050,1051,1052,1053,1054,1055,1056,1057,1058, +1059,1060,1061,1062,1063,1064,1065,1066,1067,1068,1069,1070,1071,1040,1041, +1042,1043,1044,1045,1046,1047,1048,1049,1050,1051,1052,1053,1054,1055,1056, +1057,1058,1059,1060,1061,1062,1063,1064,1065,1066,1067,1068,1069,1070,1071, +1024,1025,1026,1027,1028,1029,1030,1031,1032,1033,1034,1035,1036,1037,1038, +1039,1120,1120,1122,1122,1124,1124,1126,1126,1128,1128,1130,1130,1132,1132, +1134,1134,1136,1136,1138,1138,1140,1140,1142,1142,1144,1144,1146,1146,1148, +1148,1150,1150,1152,1152,1154,1155,1156,1157,1158,1159,1160,1161,1162,1162, +1164,1164,1166,1166,1168,1168,1170,1170,1172,1172,1174,1174,1176,1176,1178, +1178,1180,1180,1182,1182,1184,1184,1186,1186,1188,1188,1190,1190,1192,1192, +1194,1194,1196,1196,1198,1198,1200,1200,1202,1202,1204,1204,1206,1206,1208, +1208,1210,1210,1212,1212,1214,1214,1216,1217,1217,1219,1219,1221,1221,1223, +1223,1225,1225,1227,1227,1229,1229,1216,1232,1232,1234,1234,1236,1236,1238, +1238,1240,1240,1242,1242,1244,1244,1246,1246,1248,1248,1250,1250,1252,1252, +1254,1254,1256,1256,1258,1258,1260,1260,1262,1262,1264,1264,1266,1266,1268, +1268,1270,1270,1272,1272,1274,1274,1276,1276,1278,1278,1280,1280,1282,1282, +1284,1284,1286,1286,1288,1288,1290,1290,1292,1292,1294,1294,1296,1296,1298, +1298,1300,1300,1302,1302,1304,1304,1306,1306,1308,1308,1310,1310,1312,1312, +1314,1314,1316,1316,1318,1318,1320,1320,1322,1322,1324,1324,1326,1326,1328, +1329,1330,1331,1332,1333,1334,1335,1336,1337,1338,1339,1340,1341,1342,1343, +1344,1345,1346,1347,1348,1349,1350,1351,1352,1353,1354,1355,1356,1357,1358, +1359,1360,1361,1362,1363,1364,1365,1366,1367,1368,1369,1370,1371,1372,1373, +1374,1375,1376,1329,1330,1331,1332,1333,1334,1335,1336,1337,1338,1339,1340, +1341,1342,1343,1344,1345,1346,1347,1348,1349,1350,1351,1352,1353,1354,1355, +1356,1357,1358,1359,1360,1361,1362,1363,1364,1365,1366,1415,1416,1417,1418, +1419,1420,1421,1422,1423,1424,1425,1426,1427,1428,1429,1430,1431,1432,1433, +1434,1435,1436,1437,1438,1439,1440,1441,1442,1443,1444,1445,1446,1447,1448, +1449,1450,1451,1452,1453,1454,1455,1456,1457,1458,1459,1460,1461,1462,1463, +1464,1465,1466,1467,1468,1469,1470,1471,1472,1473,1474,1475,1476,1477,1478, +1479,1480,1481,1482,1483,1484,1485,1486,1487,1488,1489,1490,1491,1492,1493, +1494,1495,1496,1497,1498,1499,1500,1501,1502,1503,1504,1505,1506,1507,1508, +1509,1510,1511,1512,1513,1514,1515,1516,1517,1518,1519,1520,1521,1522,1523, +1524,1525,1526,1527,1528,1529,1530,1531,1532,1533,1534,1535,1536,1537,1538, +1539,1540,1541,1542,1543,1544,1545,1546,1547,1548,1549,1550,1551,1552,1553, +1554,1555,1556,1557,1558,1559,1560,1561,1562,1563,1564,1565,1566,1567,1568, +1569,1570,1571,1572,1573,1574,1575,1576,1577,1578,1579,1580,1581,1582,1583, +1584,1585,1586,1587,1588,1589,1590,1591,1592,1593,1594,1595,1596,1597,1598, +1599,1600,1601,1602,1603,1604,1605,1606,1607,1608,1609,1610,1611,1612,1613, +1614,1615,1616,1617,1618,1619,1620,1621,1622,1623,1624,1625,1626,1627,1628, +1629,1630,1631,1632,1633,1634,1635,1636,1637,1638,1639,1640,1641,1642,1643, +1644,1645,1646,1647,1648,1649,1650,1651,1652,1653,1654,1655,1656,1657,1658, +1659,1660,1661,1662,1663,1664,1665,1666,1667,1668,1669,1670,1671,1672,1673, +1674,1675,1676,1677,1678,1679,1680,1681,1682,1683,1684,1685,1686,1687,1688, +1689,1690,1691,1692,1693,1694,1695,1696,1697,1698,1699,1700,1701,1702,1703, +1704,1705,1706,1707,1708,1709,1710,1711,1712,1713,1714,1715,1716,1717,1718, +1719,1720,1721,1722,1723,1724,1725,1726,1727,1728,1729,1730,1731,1732,1733, +1734,1735,1736,1737,1738,1739,1740,1741,1742,1743,1744,1745,1746,1747,1748, +1749,1750,1751,1752,1753,1754,1755,1756,1757,1758,1759,1760,1761,1762,1763, +1764,1765,1766,1767,1768,1769,1770,1771,1772,1773,1774,1775,1776,1777,1778, +1779,1780,1781,1782,1783,1784,1785,1786,1787,1788,1789,1790,1791,1792,1793, +1794,1795,1796,1797,1798,1799,1800,1801,1802,1803,1804,1805,1806,1807,1808, +1809,1810,1811,1812,1813,1814,1815,1816,1817,1818,1819,1820,1821,1822,1823, +1824,1825,1826,1827,1828,1829,1830,1831,1832,1833,1834,1835,1836,1837,1838, +1839,1840,1841,1842,1843,1844,1845,1846,1847,1848,1849,1850,1851,1852,1853, +1854,1855,1856,1857,1858,1859,1860,1861,1862,1863,1864,1865,1866,1867,1868, +1869,1870,1871,1872,1873,1874,1875,1876,1877,1878,1879,1880,1881,1882,1883, +1884,1885,1886,1887,1888,1889,1890,1891,1892,1893,1894,1895,1896,1897,1898, +1899,1900,1901,1902,1903,1904,1905,1906,1907,1908,1909,1910,1911,1912,1913, +1914,1915,1916,1917,1918,1919,1920,1921,1922,1923,1924,1925,1926,1927,1928, +1929,1930,1931,1932,1933,1934,1935,1936,1937,1938,1939,1940,1941,1942,1943, +1944,1945,1946,1947,1948,1949,1950,1951,1952,1953,1954,1955,1956,1957,1958, +1959,1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973, +1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988, +1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003, +2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018, +2019,2020,2021,2022,2023,2024,2025,2026,2027,2028,2029,2030,2031,2032,2033, +2034,2035,2036,2037,2038,2039,2040,2041,2042,2043,2044,2045,2046,2047,2048, +2049,2050,2051,2052,2053,2054,2055,2056,2057,2058,2059,2060,2061,2062,2063, +2064,2065,2066,2067,2068,2069,2070,2071,2072,2073,2074,2075,2076,2077,2078, +2079,2080,2081,2082,2083,2084,2085,2086,2087,2088,2089,2090,2091,2092,2093, +2094,2095,2096,2097,2098,2099,2100,2101,2102,2103,2104,2105,2106,2107,2108, +2109,2110,2111,2112,2113,2114,2115,2116,2117,2118,2119,2120,2121,2122,2123, +2124,2125,2126,2127,2128,2129,2130,2131,2132,2133,2134,2135,2136,2137,2138, +2139,2140,2141,2142,2143,2144,2145,2146,2147,2148,2149,2150,2151,2152,2153, +2154,2155,2156,2157,2158,2159,2160,2161,2162,2163,2164,2165,2166,2167,2168, +2169,2170,2171,2172,2173,2174,2175,2176,2177,2178,2179,2180,2181,2182,2183, +2184,2185,2186,2187,2188,2189,2190,2191,2192,2193,2194,2195,2196,2197,2198, +2199,2200,2201,2202,2203,2204,2205,2206,2207,2208,2209,2210,2211,2212,2213, +2214,2215,2216,2217,2218,2219,2220,2221,2222,2223,2224,2225,2226,2227,2228, +2229,2230,2231,2232,2233,2234,2235,2236,2237,2238,2239,2240,2241,2242,2243, +2244,2245,2246,2247,2248,2249,2250,2251,2252,2253,2254,2255,2256,2257,2258, +2259,2260,2261,2262,2263,2264,2265,2266,2267,2268,2269,2270,2271,2272,2273, +2274,2275,2276,2277,2278,2279,2280,2281,2282,2283,2284,2285,2286,2287,2288, +2289,2290,2291,2292,2293,2294,2295,2296,2297,2298,2299,2300,2301,2302,2303, +2304,2305,2306,2307,2308,2309,2310,2311,2312,2313,2314,2315,2316,2317,2318, +2319,2320,2321,2322,2323,2324,2325,2326,2327,2328,2329,2330,2331,2332,2333, +2334,2335,2336,2337,2338,2339,2340,2341,2342,2343,2344,2345,2346,2347,2348, +2349,2350,2351,2352,2353,2354,2355,2356,2357,2358,2359,2360,2361,2362,2363, +2364,2365,2366,2367,2368,2369,2370,2371,2372,2373,2374,2375,2376,2377,2378, +2379,2380,2381,2382,2383,2384,2385,2386,2387,2388,2389,2390,2391,2392,2393, +2394,2395,2396,2397,2398,2399,2400,2401,2402,2403,2404,2405,2406,2407,2408, +2409,2410,2411,2412,2413,2414,2415,2416,2417,2418,2419,2420,2421,2422,2423, +2424,2425,2426,2427,2428,2429,2430,2431,2432,2433,2434,2435,2436,2437,2438, +2439,2440,2441,2442,2443,2444,2445,2446,2447,2448,2449,2450,2451,2452,2453, +2454,2455,2456,2457,2458,2459,2460,2461,2462,2463,2464,2465,2466,2467,2468, +2469,2470,2471,2472,2473,2474,2475,2476,2477,2478,2479,2480,2481,2482,2483, +2484,2485,2486,2487,2488,2489,2490,2491,2492,2493,2494,2495,2496,2497,2498, +2499,2500,2501,2502,2503,2504,2505,2506,2507,2508,2509,2510,2511,2512,2513, +2514,2515,2516,2517,2518,2519,2520,2521,2522,2523,2524,2525,2526,2527,2528, +2529,2530,2531,2532,2533,2534,2535,2536,2537,2538,2539,2540,2541,2542,2543, +2544,2545,2546,2547,2548,2549,2550,2551,2552,2553,2554,2555,2556,2557,2558, +2559,2560,2561,2562,2563,2564,2565,2566,2567,2568,2569,2570,2571,2572,2573, +2574,2575,2576,2577,2578,2579,2580,2581,2582,2583,2584,2585,2586,2587,2588, +2589,2590,2591,2592,2593,2594,2595,2596,2597,2598,2599,2600,2601,2602,2603, +2604,2605,2606,2607,2608,2609,2610,2611,2612,2613,2614,2615,2616,2617,2618, +2619,2620,2621,2622,2623,2624,2625,2626,2627,2628,2629,2630,2631,2632,2633, +2634,2635,2636,2637,2638,2639,2640,2641,2642,2643,2644,2645,2646,2647,2648, +2649,2650,2651,2652,2653,2654,2655,2656,2657,2658,2659,2660,2661,2662,2663, +2664,2665,2666,2667,2668,2669,2670,2671,2672,2673,2674,2675,2676,2677,2678, +2679,2680,2681,2682,2683,2684,2685,2686,2687,2688,2689,2690,2691,2692,2693, +2694,2695,2696,2697,2698,2699,2700,2701,2702,2703,2704,2705,2706,2707,2708, +2709,2710,2711,2712,2713,2714,2715,2716,2717,2718,2719,2720,2721,2722,2723, +2724,2725,2726,2727,2728,2729,2730,2731,2732,2733,2734,2735,2736,2737,2738, +2739,2740,2741,2742,2743,2744,2745,2746,2747,2748,2749,2750,2751,2752,2753, +2754,2755,2756,2757,2758,2759,2760,2761,2762,2763,2764,2765,2766,2767,2768, +2769,2770,2771,2772,2773,2774,2775,2776,2777,2778,2779,2780,2781,2782,2783, +2784,2785,2786,2787,2788,2789,2790,2791,2792,2793,2794,2795,2796,2797,2798, +2799,2800,2801,2802,2803,2804,2805,2806,2807,2808,2809,2810,2811,2812,2813, +2814,2815,2816,2817,2818,2819,2820,2821,2822,2823,2824,2825,2826,2827,2828, +2829,2830,2831,2832,2833,2834,2835,2836,2837,2838,2839,2840,2841,2842,2843, +2844,2845,2846,2847,2848,2849,2850,2851,2852,2853,2854,2855,2856,2857,2858, +2859,2860,2861,2862,2863,2864,2865,2866,2867,2868,2869,2870,2871,2872,2873, +2874,2875,2876,2877,2878,2879,2880,2881,2882,2883,2884,2885,2886,2887,2888, +2889,2890,2891,2892,2893,2894,2895,2896,2897,2898,2899,2900,2901,2902,2903, +2904,2905,2906,2907,2908,2909,2910,2911,2912,2913,2914,2915,2916,2917,2918, +2919,2920,2921,2922,2923,2924,2925,2926,2927,2928,2929,2930,2931,2932,2933, +2934,2935,2936,2937,2938,2939,2940,2941,2942,2943,2944,2945,2946,2947,2948, +2949,2950,2951,2952,2953,2954,2955,2956,2957,2958,2959,2960,2961,2962,2963, +2964,2965,2966,2967,2968,2969,2970,2971,2972,2973,2974,2975,2976,2977,2978, +2979,2980,2981,2982,2983,2984,2985,2986,2987,2988,2989,2990,2991,2992,2993, +2994,2995,2996,2997,2998,2999,3000,3001,3002,3003,3004,3005,3006,3007,3008, +3009,3010,3011,3012,3013,3014,3015,3016,3017,3018,3019,3020,3021,3022,3023, +3024,3025,3026,3027,3028,3029,3030,3031,3032,3033,3034,3035,3036,3037,3038, +3039,3040,3041,3042,3043,3044,3045,3046,3047,3048,3049,3050,3051,3052,3053, +3054,3055,3056,3057,3058,3059,3060,3061,3062,3063,3064,3065,3066,3067,3068, +3069,3070,3071,3072,3073,3074,3075,3076,3077,3078,3079,3080,3081,3082,3083, +3084,3085,3086,3087,3088,3089,3090,3091,3092,3093,3094,3095,3096,3097,3098, +3099,3100,3101,3102,3103,3104,3105,3106,3107,3108,3109,3110,3111,3112,3113, +3114,3115,3116,3117,3118,3119,3120,3121,3122,3123,3124,3125,3126,3127,3128, +3129,3130,3131,3132,3133,3134,3135,3136,3137,3138,3139,3140,3141,3142,3143, +3144,3145,3146,3147,3148,3149,3150,3151,3152,3153,3154,3155,3156,3157,3158, +3159,3160,3161,3162,3163,3164,3165,3166,3167,3168,3169,3170,3171,3172,3173, +3174,3175,3176,3177,3178,3179,3180,3181,3182,3183,3184,3185,3186,3187,3188, +3189,3190,3191,3192,3193,3194,3195,3196,3197,3198,3199,3200,3201,3202,3203, +3204,3205,3206,3207,3208,3209,3210,3211,3212,3213,3214,3215,3216,3217,3218, +3219,3220,3221,3222,3223,3224,3225,3226,3227,3228,3229,3230,3231,3232,3233, +3234,3235,3236,3237,3238,3239,3240,3241,3242,3243,3244,3245,3246,3247,3248, +3249,3250,3251,3252,3253,3254,3255,3256,3257,3258,3259,3260,3261,3262,3263, +3264,3265,3266,3267,3268,3269,3270,3271,3272,3273,3274,3275,3276,3277,3278, +3279,3280,3281,3282,3283,3284,3285,3286,3287,3288,3289,3290,3291,3292,3293, +3294,3295,3296,3297,3298,3299,3300,3301,3302,3303,3304,3305,3306,3307,3308, +3309,3310,3311,3312,3313,3314,3315,3316,3317,3318,3319,3320,3321,3322,3323, +3324,3325,3326,3327,3328,3329,3330,3331,3332,3333,3334,3335,3336,3337,3338, +3339,3340,3341,3342,3343,3344,3345,3346,3347,3348,3349,3350,3351,3352,3353, +3354,3355,3356,3357,3358,3359,3360,3361,3362,3363,3364,3365,3366,3367,3368, +3369,3370,3371,3372,3373,3374,3375,3376,3377,3378,3379,3380,3381,3382,3383, +3384,3385,3386,3387,3388,3389,3390,3391,3392,3393,3394,3395,3396,3397,3398, +3399,3400,3401,3402,3403,3404,3405,3406,3407,3408,3409,3410,3411,3412,3413, +3414,3415,3416,3417,3418,3419,3420,3421,3422,3423,3424,3425,3426,3427,3428, +3429,3430,3431,3432,3433,3434,3435,3436,3437,3438,3439,3440,3441,3442,3443, +3444,3445,3446,3447,3448,3449,3450,3451,3452,3453,3454,3455,3456,3457,3458, +3459,3460,3461,3462,3463,3464,3465,3466,3467,3468,3469,3470,3471,3472,3473, +3474,3475,3476,3477,3478,3479,3480,3481,3482,3483,3484,3485,3486,3487,3488, +3489,3490,3491,3492,3493,3494,3495,3496,3497,3498,3499,3500,3501,3502,3503, +3504,3505,3506,3507,3508,3509,3510,3511,3512,3513,3514,3515,3516,3517,3518, +3519,3520,3521,3522,3523,3524,3525,3526,3527,3528,3529,3530,3531,3532,3533, +3534,3535,3536,3537,3538,3539,3540,3541,3542,3543,3544,3545,3546,3547,3548, +3549,3550,3551,3552,3553,3554,3555,3556,3557,3558,3559,3560,3561,3562,3563, +3564,3565,3566,3567,3568,3569,3570,3571,3572,3573,3574,3575,3576,3577,3578, +3579,3580,3581,3582,3583,3584,3585,3586,3587,3588,3589,3590,3591,3592,3593, +3594,3595,3596,3597,3598,3599,3600,3601,3602,3603,3604,3605,3606,3607,3608, +3609,3610,3611,3612,3613,3614,3615,3616,3617,3618,3619,3620,3621,3622,3623, +3624,3625,3626,3627,3628,3629,3630,3631,3632,3633,3634,3635,3636,3637,3638, +3639,3640,3641,3642,3643,3644,3645,3646,3647,3648,3649,3650,3651,3652,3653, +3654,3655,3656,3657,3658,3659,3660,3661,3662,3663,3664,3665,3666,3667,3668, +3669,3670,3671,3672,3673,3674,3675,3676,3677,3678,3679,3680,3681,3682,3683, +3684,3685,3686,3687,3688,3689,3690,3691,3692,3693,3694,3695,3696,3697,3698, +3699,3700,3701,3702,3703,3704,3705,3706,3707,3708,3709,3710,3711,3712,3713, +3714,3715,3716,3717,3718,3719,3720,3721,3722,3723,3724,3725,3726,3727,3728, +3729,3730,3731,3732,3733,3734,3735,3736,3737,3738,3739,3740,3741,3742,3743, +3744,3745,3746,3747,3748,3749,3750,3751,3752,3753,3754,3755,3756,3757,3758, +3759,3760,3761,3762,3763,3764,3765,3766,3767,3768,3769,3770,3771,3772,3773, +3774,3775,3776,3777,3778,3779,3780,3781,3782,3783,3784,3785,3786,3787,3788, +3789,3790,3791,3792,3793,3794,3795,3796,3797,3798,3799,3800,3801,3802,3803, +3804,3805,3806,3807,3808,3809,3810,3811,3812,3813,3814,3815,3816,3817,3818, +3819,3820,3821,3822,3823,3824,3825,3826,3827,3828,3829,3830,3831,3832,3833, +3834,3835,3836,3837,3838,3839,3840,3841,3842,3843,3844,3845,3846,3847,3848, +3849,3850,3851,3852,3853,3854,3855,3856,3857,3858,3859,3860,3861,3862,3863, +3864,3865,3866,3867,3868,3869,3870,3871,3872,3873,3874,3875,3876,3877,3878, +3879,3880,3881,3882,3883,3884,3885,3886,3887,3888,3889,3890,3891,3892,3893, +3894,3895,3896,3897,3898,3899,3900,3901,3902,3903,3904,3905,3906,3907,3908, +3909,3910,3911,3912,3913,3914,3915,3916,3917,3918,3919,3920,3921,3922,3923, +3924,3925,3926,3927,3928,3929,3930,3931,3932,3933,3934,3935,3936,3937,3938, +3939,3940,3941,3942,3943,3944,3945,3946,3947,3948,3949,3950,3951,3952,3953, +3954,3955,3956,3957,3958,3959,3960,3961,3962,3963,3964,3965,3966,3967,3968, +3969,3970,3971,3972,3973,3974,3975,3976,3977,3978,3979,3980,3981,3982,3983, +3984,3985,3986,3987,3988,3989,3990,3991,3992,3993,3994,3995,3996,3997,3998, +3999,4000,4001,4002,4003,4004,4005,4006,4007,4008,4009,4010,4011,4012,4013, +4014,4015,4016,4017,4018,4019,4020,4021,4022,4023,4024,4025,4026,4027,4028, +4029,4030,4031,4032,4033,4034,4035,4036,4037,4038,4039,4040,4041,4042,4043, +4044,4045,4046,4047,4048,4049,4050,4051,4052,4053,4054,4055,4056,4057,4058, +4059,4060,4061,4062,4063,4064,4065,4066,4067,4068,4069,4070,4071,4072,4073, +4074,4075,4076,4077,4078,4079,4080,4081,4082,4083,4084,4085,4086,4087,4088, +4089,4090,4091,4092,4093,4094,4095,4096,4097,4098,4099,4100,4101,4102,4103, +4104,4105,4106,4107,4108,4109,4110,4111,4112,4113,4114,4115,4116,4117,4118, +4119,4120,4121,4122,4123,4124,4125,4126,4127,4128,4129,4130,4131,4132,4133, +4134,4135,4136,4137,4138,4139,4140,4141,4142,4143,4144,4145,4146,4147,4148, +4149,4150,4151,4152,4153,4154,4155,4156,4157,4158,4159,4160,4161,4162,4163, +4164,4165,4166,4167,4168,4169,4170,4171,4172,4173,4174,4175,4176,4177,4178, +4179,4180,4181,4182,4183,4184,4185,4186,4187,4188,4189,4190,4191,4192,4193, +4194,4195,4196,4197,4198,4199,4200,4201,4202,4203,4204,4205,4206,4207,4208, +4209,4210,4211,4212,4213,4214,4215,4216,4217,4218,4219,4220,4221,4222,4223, +4224,4225,4226,4227,4228,4229,4230,4231,4232,4233,4234,4235,4236,4237,4238, +4239,4240,4241,4242,4243,4244,4245,4246,4247,4248,4249,4250,4251,4252,4253, +4254,4255,4256,4257,4258,4259,4260,4261,4262,4263,4264,4265,4266,4267,4268, +4269,4270,4271,4272,4273,4274,4275,4276,4277,4278,4279,4280,4281,4282,4283, +4284,4285,4286,4287,4288,4289,4290,4291,4292,4293,4294,4295,4296,4297,4298, +4299,4300,4301,4302,4303,7312,7313,7314,7315,7316,7317,7318,7319,7320,7321, +7322,7323,7324,7325,7326,7327,7328,7329,7330,7331,7332,7333,7334,7335,7336, +7337,7338,7339,7340,7341,7342,7343,7344,7345,7346,7347,7348,7349,7350,7351, +7352,7353,7354,4347,4348,7357,7358,7359,4352,4353,4354,4355,4356,4357,4358, +4359,4360,4361,4362,4363,4364,4365,4366,4367,4368,4369,4370,4371,4372,4373, +4374,4375,4376,4377,4378,4379,4380,4381,4382,4383,4384,4385,4386,4387,4388, +4389,4390,4391,4392,4393,4394,4395,4396,4397,4398,4399,4400,4401,4402,4403, +4404,4405,4406,4407,4408,4409,4410,4411,4412,4413,4414,4415,4416,4417,4418, +4419,4420,4421,4422,4423,4424,4425,4426,4427,4428,4429,4430,4431,4432,4433, +4434,4435,4436,4437,4438,4439,4440,4441,4442,4443,4444,4445,4446,4447,4448, +4449,4450,4451,4452,4453,4454,4455,4456,4457,4458,4459,4460,4461,4462,4463, +4464,4465,4466,4467,4468,4469,4470,4471,4472,4473,4474,4475,4476,4477,4478, +4479,4480,4481,4482,4483,4484,4485,4486,4487,4488,4489,4490,4491,4492,4493, +4494,4495,4496,4497,4498,4499,4500,4501,4502,4503,4504,4505,4506,4507,4508, +4509,4510,4511,4512,4513,4514,4515,4516,4517,4518,4519,4520,4521,4522,4523, +4524,4525,4526,4527,4528,4529,4530,4531,4532,4533,4534,4535,4536,4537,4538, +4539,4540,4541,4542,4543,4544,4545,4546,4547,4548,4549,4550,4551,4552,4553, +4554,4555,4556,4557,4558,4559,4560,4561,4562,4563,4564,4565,4566,4567,4568, +4569,4570,4571,4572,4573,4574,4575,4576,4577,4578,4579,4580,4581,4582,4583, +4584,4585,4586,4587,4588,4589,4590,4591,4592,4593,4594,4595,4596,4597,4598, +4599,4600,4601,4602,4603,4604,4605,4606,4607,4608,4609,4610,4611,4612,4613, +4614,4615,4616,4617,4618,4619,4620,4621,4622,4623,4624,4625,4626,4627,4628, +4629,4630,4631,4632,4633,4634,4635,4636,4637,4638,4639,4640,4641,4642,4643, +4644,4645,4646,4647,4648,4649,4650,4651,4652,4653,4654,4655,4656,4657,4658, +4659,4660,4661,4662,4663,4664,4665,4666,4667,4668,4669,4670,4671,4672,4673, +4674,4675,4676,4677,4678,4679,4680,4681,4682,4683,4684,4685,4686,4687,4688, +4689,4690,4691,4692,4693,4694,4695,4696,4697,4698,4699,4700,4701,4702,4703, +4704,4705,4706,4707,4708,4709,4710,4711,4712,4713,4714,4715,4716,4717,4718, +4719,4720,4721,4722,4723,4724,4725,4726,4727,4728,4729,4730,4731,4732,4733, +4734,4735,4736,4737,4738,4739,4740,4741,4742,4743,4744,4745,4746,4747,4748, +4749,4750,4751,4752,4753,4754,4755,4756,4757,4758,4759,4760,4761,4762,4763, +4764,4765,4766,4767,4768,4769,4770,4771,4772,4773,4774,4775,4776,4777,4778, +4779,4780,4781,4782,4783,4784,4785,4786,4787,4788,4789,4790,4791,4792,4793, +4794,4795,4796,4797,4798,4799,4800,4801,4802,4803,4804,4805,4806,4807,4808, +4809,4810,4811,4812,4813,4814,4815,4816,4817,4818,4819,4820,4821,4822,4823, +4824,4825,4826,4827,4828,4829,4830,4831,4832,4833,4834,4835,4836,4837,4838, +4839,4840,4841,4842,4843,4844,4845,4846,4847,4848,4849,4850,4851,4852,4853, +4854,4855,4856,4857,4858,4859,4860,4861,4862,4863,4864,4865,4866,4867,4868, +4869,4870,4871,4872,4873,4874,4875,4876,4877,4878,4879,4880,4881,4882,4883, +4884,4885,4886,4887,4888,4889,4890,4891,4892,4893,4894,4895,4896,4897,4898, +4899,4900,4901,4902,4903,4904,4905,4906,4907,4908,4909,4910,4911,4912,4913, +4914,4915,4916,4917,4918,4919,4920,4921,4922,4923,4924,4925,4926,4927,4928, +4929,4930,4931,4932,4933,4934,4935,4936,4937,4938,4939,4940,4941,4942,4943, +4944,4945,4946,4947,4948,4949,4950,4951,4952,4953,4954,4955,4956,4957,4958, +4959,4960,4961,4962,4963,4964,4965,4966,4967,4968,4969,4970,4971,4972,4973, +4974,4975,4976,4977,4978,4979,4980,4981,4982,4983,4984,4985,4986,4987,4988, +4989,4990,4991,4992,4993,4994,4995,4996,4997,4998,4999,5000,5001,5002,5003, +5004,5005,5006,5007,5008,5009,5010,5011,5012,5013,5014,5015,5016,5017,5018, +5019,5020,5021,5022,5023,5024,5025,5026,5027,5028,5029,5030,5031,5032,5033, +5034,5035,5036,5037,5038,5039,5040,5041,5042,5043,5044,5045,5046,5047,5048, +5049,5050,5051,5052,5053,5054,5055,5056,5057,5058,5059,5060,5061,5062,5063, +5064,5065,5066,5067,5068,5069,5070,5071,5072,5073,5074,5075,5076,5077,5078, +5079,5080,5081,5082,5083,5084,5085,5086,5087,5088,5089,5090,5091,5092,5093, +5094,5095,5096,5097,5098,5099,5100,5101,5102,5103,5104,5105,5106,5107,5108, +5109,5110,5111,5104,5105,5106,5107,5108,5109,5118,5119,5120,5121,5122,5123, +5124,5125,5126,5127,5128,5129,5130,5131,5132,5133,5134,5135,5136,5137,5138, +5139,5140,5141,5142,5143,5144,5145,5146,5147,5148,5149,5150,5151,5152,5153, +5154,5155,5156,5157,5158,5159,5160,5161,5162,5163,5164,5165,5166,5167,5168, +5169,5170,5171,5172,5173,5174,5175,5176,5177,5178,5179,5180,5181,5182,5183, +5184,5185,5186,5187,5188,5189,5190,5191,5192,5193,5194,5195,5196,5197,5198, +5199,5200,5201,5202,5203,5204,5205,5206,5207,5208,5209,5210,5211,5212,5213, +5214,5215,5216,5217,5218,5219,5220,5221,5222,5223,5224,5225,5226,5227,5228, +5229,5230,5231,5232,5233,5234,5235,5236,5237,5238,5239,5240,5241,5242,5243, +5244,5245,5246,5247,5248,5249,5250,5251,5252,5253,5254,5255,5256,5257,5258, +5259,5260,5261,5262,5263,5264,5265,5266,5267,5268,5269,5270,5271,5272,5273, +5274,5275,5276,5277,5278,5279,5280,5281,5282,5283,5284,5285,5286,5287,5288, +5289,5290,5291,5292,5293,5294,5295,5296,5297,5298,5299,5300,5301,5302,5303, +5304,5305,5306,5307,5308,5309,5310,5311,5312,5313,5314,5315,5316,5317,5318, +5319,5320,5321,5322,5323,5324,5325,5326,5327,5328,5329,5330,5331,5332,5333, +5334,5335,5336,5337,5338,5339,5340,5341,5342,5343,5344,5345,5346,5347,5348, +5349,5350,5351,5352,5353,5354,5355,5356,5357,5358,5359,5360,5361,5362,5363, +5364,5365,5366,5367,5368,5369,5370,5371,5372,5373,5374,5375,5376,5377,5378, +5379,5380,5381,5382,5383,5384,5385,5386,5387,5388,5389,5390,5391,5392,5393, +5394,5395,5396,5397,5398,5399,5400,5401,5402,5403,5404,5405,5406,5407,5408, +5409,5410,5411,5412,5413,5414,5415,5416,5417,5418,5419,5420,5421,5422,5423, +5424,5425,5426,5427,5428,5429,5430,5431,5432,5433,5434,5435,5436,5437,5438, +5439,5440,5441,5442,5443,5444,5445,5446,5447,5448,5449,5450,5451,5452,5453, +5454,5455,5456,5457,5458,5459,5460,5461,5462,5463,5464,5465,5466,5467,5468, +5469,5470,5471,5472,5473,5474,5475,5476,5477,5478,5479,5480,5481,5482,5483, +5484,5485,5486,5487,5488,5489,5490,5491,5492,5493,5494,5495,5496,5497,5498, +5499,5500,5501,5502,5503,5504,5505,5506,5507,5508,5509,5510,5511,5512,5513, +5514,5515,5516,5517,5518,5519,5520,5521,5522,5523,5524,5525,5526,5527,5528, +5529,5530,5531,5532,5533,5534,5535,5536,5537,5538,5539,5540,5541,5542,5543, +5544,5545,5546,5547,5548,5549,5550,5551,5552,5553,5554,5555,5556,5557,5558, +5559,5560,5561,5562,5563,5564,5565,5566,5567,5568,5569,5570,5571,5572,5573, +5574,5575,5576,5577,5578,5579,5580,5581,5582,5583,5584,5585,5586,5587,5588, +5589,5590,5591,5592,5593,5594,5595,5596,5597,5598,5599,5600,5601,5602,5603, +5604,5605,5606,5607,5608,5609,5610,5611,5612,5613,5614,5615,5616,5617,5618, +5619,5620,5621,5622,5623,5624,5625,5626,5627,5628,5629,5630,5631,5632,5633, +5634,5635,5636,5637,5638,5639,5640,5641,5642,5643,5644,5645,5646,5647,5648, +5649,5650,5651,5652,5653,5654,5655,5656,5657,5658,5659,5660,5661,5662,5663, +5664,5665,5666,5667,5668,5669,5670,5671,5672,5673,5674,5675,5676,5677,5678, +5679,5680,5681,5682,5683,5684,5685,5686,5687,5688,5689,5690,5691,5692,5693, +5694,5695,5696,5697,5698,5699,5700,5701,5702,5703,5704,5705,5706,5707,5708, +5709,5710,5711,5712,5713,5714,5715,5716,5717,5718,5719,5720,5721,5722,5723, +5724,5725,5726,5727,5728,5729,5730,5731,5732,5733,5734,5735,5736,5737,5738, +5739,5740,5741,5742,5743,5744,5745,5746,5747,5748,5749,5750,5751,5752,5753, +5754,5755,5756,5757,5758,5759,5760,5761,5762,5763,5764,5765,5766,5767,5768, +5769,5770,5771,5772,5773,5774,5775,5776,5777,5778,5779,5780,5781,5782,5783, +5784,5785,5786,5787,5788,5789,5790,5791,5792,5793,5794,5795,5796,5797,5798, +5799,5800,5801,5802,5803,5804,5805,5806,5807,5808,5809,5810,5811,5812,5813, +5814,5815,5816,5817,5818,5819,5820,5821,5822,5823,5824,5825,5826,5827,5828, +5829,5830,5831,5832,5833,5834,5835,5836,5837,5838,5839,5840,5841,5842,5843, +5844,5845,5846,5847,5848,5849,5850,5851,5852,5853,5854,5855,5856,5857,5858, +5859,5860,5861,5862,5863,5864,5865,5866,5867,5868,5869,5870,5871,5872,5873, +5874,5875,5876,5877,5878,5879,5880,5881,5882,5883,5884,5885,5886,5887,5888, +5889,5890,5891,5892,5893,5894,5895,5896,5897,5898,5899,5900,5901,5902,5903, +5904,5905,5906,5907,5908,5909,5910,5911,5912,5913,5914,5915,5916,5917,5918, +5919,5920,5921,5922,5923,5924,5925,5926,5927,5928,5929,5930,5931,5932,5933, +5934,5935,5936,5937,5938,5939,5940,5941,5942,5943,5944,5945,5946,5947,5948, +5949,5950,5951,5952,5953,5954,5955,5956,5957,5958,5959,5960,5961,5962,5963, +5964,5965,5966,5967,5968,5969,5970,5971,5972,5973,5974,5975,5976,5977,5978, +5979,5980,5981,5982,5983,5984,5985,5986,5987,5988,5989,5990,5991,5992,5993, +5994,5995,5996,5997,5998,5999,6000,6001,6002,6003,6004,6005,6006,6007,6008, +6009,6010,6011,6012,6013,6014,6015,6016,6017,6018,6019,6020,6021,6022,6023, +6024,6025,6026,6027,6028,6029,6030,6031,6032,6033,6034,6035,6036,6037,6038, +6039,6040,6041,6042,6043,6044,6045,6046,6047,6048,6049,6050,6051,6052,6053, +6054,6055,6056,6057,6058,6059,6060,6061,6062,6063,6064,6065,6066,6067,6068, +6069,6070,6071,6072,6073,6074,6075,6076,6077,6078,6079,6080,6081,6082,6083, +6084,6085,6086,6087,6088,6089,6090,6091,6092,6093,6094,6095,6096,6097,6098, +6099,6100,6101,6102,6103,6104,6105,6106,6107,6108,6109,6110,6111,6112,6113, +6114,6115,6116,6117,6118,6119,6120,6121,6122,6123,6124,6125,6126,6127,6128, +6129,6130,6131,6132,6133,6134,6135,6136,6137,6138,6139,6140,6141,6142,6143, +6144,6145,6146,6147,6148,6149,6150,6151,6152,6153,6154,6155,6156,6157,6158, +6159,6160,6161,6162,6163,6164,6165,6166,6167,6168,6169,6170,6171,6172,6173, +6174,6175,6176,6177,6178,6179,6180,6181,6182,6183,6184,6185,6186,6187,6188, +6189,6190,6191,6192,6193,6194,6195,6196,6197,6198,6199,6200,6201,6202,6203, +6204,6205,6206,6207,6208,6209,6210,6211,6212,6213,6214,6215,6216,6217,6218, +6219,6220,6221,6222,6223,6224,6225,6226,6227,6228,6229,6230,6231,6232,6233, +6234,6235,6236,6237,6238,6239,6240,6241,6242,6243,6244,6245,6246,6247,6248, +6249,6250,6251,6252,6253,6254,6255,6256,6257,6258,6259,6260,6261,6262,6263, +6264,6265,6266,6267,6268,6269,6270,6271,6272,6273,6274,6275,6276,6277,6278, +6279,6280,6281,6282,6283,6284,6285,6286,6287,6288,6289,6290,6291,6292,6293, +6294,6295,6296,6297,6298,6299,6300,6301,6302,6303,6304,6305,6306,6307,6308, +6309,6310,6311,6312,6313,6314,6315,6316,6317,6318,6319,6320,6321,6322,6323, +6324,6325,6326,6327,6328,6329,6330,6331,6332,6333,6334,6335,6336,6337,6338, +6339,6340,6341,6342,6343,6344,6345,6346,6347,6348,6349,6350,6351,6352,6353, +6354,6355,6356,6357,6358,6359,6360,6361,6362,6363,6364,6365,6366,6367,6368, +6369,6370,6371,6372,6373,6374,6375,6376,6377,6378,6379,6380,6381,6382,6383, +6384,6385,6386,6387,6388,6389,6390,6391,6392,6393,6394,6395,6396,6397,6398, +6399,6400,6401,6402,6403,6404,6405,6406,6407,6408,6409,6410,6411,6412,6413, +6414,6415,6416,6417,6418,6419,6420,6421,6422,6423,6424,6425,6426,6427,6428, +6429,6430,6431,6432,6433,6434,6435,6436,6437,6438,6439,6440,6441,6442,6443, +6444,6445,6446,6447,6448,6449,6450,6451,6452,6453,6454,6455,6456,6457,6458, +6459,6460,6461,6462,6463,6464,6465,6466,6467,6468,6469,6470,6471,6472,6473, +6474,6475,6476,6477,6478,6479,6480,6481,6482,6483,6484,6485,6486,6487,6488, +6489,6490,6491,6492,6493,6494,6495,6496,6497,6498,6499,6500,6501,6502,6503, +6504,6505,6506,6507,6508,6509,6510,6511,6512,6513,6514,6515,6516,6517,6518, +6519,6520,6521,6522,6523,6524,6525,6526,6527,6528,6529,6530,6531,6532,6533, +6534,6535,6536,6537,6538,6539,6540,6541,6542,6543,6544,6545,6546,6547,6548, +6549,6550,6551,6552,6553,6554,6555,6556,6557,6558,6559,6560,6561,6562,6563, +6564,6565,6566,6567,6568,6569,6570,6571,6572,6573,6574,6575,6576,6577,6578, +6579,6580,6581,6582,6583,6584,6585,6586,6587,6588,6589,6590,6591,6592,6593, +6594,6595,6596,6597,6598,6599,6600,6601,6602,6603,6604,6605,6606,6607,6608, +6609,6610,6611,6612,6613,6614,6615,6616,6617,6618,6619,6620,6621,6622,6623, +6624,6625,6626,6627,6628,6629,6630,6631,6632,6633,6634,6635,6636,6637,6638, +6639,6640,6641,6642,6643,6644,6645,6646,6647,6648,6649,6650,6651,6652,6653, +6654,6655,6656,6657,6658,6659,6660,6661,6662,6663,6664,6665,6666,6667,6668, +6669,6670,6671,6672,6673,6674,6675,6676,6677,6678,6679,6680,6681,6682,6683, +6684,6685,6686,6687,6688,6689,6690,6691,6692,6693,6694,6695,6696,6697,6698, +6699,6700,6701,6702,6703,6704,6705,6706,6707,6708,6709,6710,6711,6712,6713, +6714,6715,6716,6717,6718,6719,6720,6721,6722,6723,6724,6725,6726,6727,6728, +6729,6730,6731,6732,6733,6734,6735,6736,6737,6738,6739,6740,6741,6742,6743, +6744,6745,6746,6747,6748,6749,6750,6751,6752,6753,6754,6755,6756,6757,6758, +6759,6760,6761,6762,6763,6764,6765,6766,6767,6768,6769,6770,6771,6772,6773, +6774,6775,6776,6777,6778,6779,6780,6781,6782,6783,6784,6785,6786,6787,6788, +6789,6790,6791,6792,6793,6794,6795,6796,6797,6798,6799,6800,6801,6802,6803, +6804,6805,6806,6807,6808,6809,6810,6811,6812,6813,6814,6815,6816,6817,6818, +6819,6820,6821,6822,6823,6824,6825,6826,6827,6828,6829,6830,6831,6832,6833, +6834,6835,6836,6837,6838,6839,6840,6841,6842,6843,6844,6845,6846,6847,6848, +6849,6850,6851,6852,6853,6854,6855,6856,6857,6858,6859,6860,6861,6862,6863, +6864,6865,6866,6867,6868,6869,6870,6871,6872,6873,6874,6875,6876,6877,6878, +6879,6880,6881,6882,6883,6884,6885,6886,6887,6888,6889,6890,6891,6892,6893, +6894,6895,6896,6897,6898,6899,6900,6901,6902,6903,6904,6905,6906,6907,6908, +6909,6910,6911,6912,6913,6914,6915,6916,6917,6918,6919,6920,6921,6922,6923, +6924,6925,6926,6927,6928,6929,6930,6931,6932,6933,6934,6935,6936,6937,6938, +6939,6940,6941,6942,6943,6944,6945,6946,6947,6948,6949,6950,6951,6952,6953, +6954,6955,6956,6957,6958,6959,6960,6961,6962,6963,6964,6965,6966,6967,6968, +6969,6970,6971,6972,6973,6974,6975,6976,6977,6978,6979,6980,6981,6982,6983, +6984,6985,6986,6987,6988,6989,6990,6991,6992,6993,6994,6995,6996,6997,6998, +6999,7000,7001,7002,7003,7004,7005,7006,7007,7008,7009,7010,7011,7012,7013, +7014,7015,7016,7017,7018,7019,7020,7021,7022,7023,7024,7025,7026,7027,7028, +7029,7030,7031,7032,7033,7034,7035,7036,7037,7038,7039,7040,7041,7042,7043, +7044,7045,7046,7047,7048,7049,7050,7051,7052,7053,7054,7055,7056,7057,7058, +7059,7060,7061,7062,7063,7064,7065,7066,7067,7068,7069,7070,7071,7072,7073, +7074,7075,7076,7077,7078,7079,7080,7081,7082,7083,7084,7085,7086,7087,7088, +7089,7090,7091,7092,7093,7094,7095,7096,7097,7098,7099,7100,7101,7102,7103, +7104,7105,7106,7107,7108,7109,7110,7111,7112,7113,7114,7115,7116,7117,7118, +7119,7120,7121,7122,7123,7124,7125,7126,7127,7128,7129,7130,7131,7132,7133, +7134,7135,7136,7137,7138,7139,7140,7141,7142,7143,7144,7145,7146,7147,7148, +7149,7150,7151,7152,7153,7154,7155,7156,7157,7158,7159,7160,7161,7162,7163, +7164,7165,7166,7167,7168,7169,7170,7171,7172,7173,7174,7175,7176,7177,7178, +7179,7180,7181,7182,7183,7184,7185,7186,7187,7188,7189,7190,7191,7192,7193, +7194,7195,7196,7197,7198,7199,7200,7201,7202,7203,7204,7205,7206,7207,7208, +7209,7210,7211,7212,7213,7214,7215,7216,7217,7218,7219,7220,7221,7222,7223, +7224,7225,7226,7227,7228,7229,7230,7231,7232,7233,7234,7235,7236,7237,7238, +7239,7240,7241,7242,7243,7244,7245,7246,7247,7248,7249,7250,7251,7252,7253, +7254,7255,7256,7257,7258,7259,7260,7261,7262,7263,7264,7265,7266,7267,7268, +7269,7270,7271,7272,7273,7274,7275,7276,7277,7278,7279,7280,7281,7282,7283, +7284,7285,7286,7287,7288,7289,7290,7291,7292,7293,7294,7295,1042,1044,1054, +1057,1058,1058,1066,1122,42570L,7305,7306,7307,7308,7309,7310,7311,7312, +7313,7314,7315,7316,7317,7318,7319,7320,7321,7322,7323,7324,7325,7326,7327, +7328,7329,7330,7331,7332,7333,7334,7335,7336,7337,7338,7339,7340,7341,7342, +7343,7344,7345,7346,7347,7348,7349,7350,7351,7352,7353,7354,7355,7356,7357, +7358,7359,7360,7361,7362,7363,7364,7365,7366,7367,7368,7369,7370,7371,7372, +7373,7374,7375,7376,7377,7378,7379,7380,7381,7382,7383,7384,7385,7386,7387, +7388,7389,7390,7391,7392,7393,7394,7395,7396,7397,7398,7399,7400,7401,7402, +7403,7404,7405,7406,7407,7408,7409,7410,7411,7412,7413,7414,7415,7416,7417, +7418,7419,7420,7421,7422,7423,7424,7425,7426,7427,7428,7429,7430,7431,7432, +7433,7434,7435,7436,7437,7438,7439,7440,7441,7442,7443,7444,7445,7446,7447, +7448,7449,7450,7451,7452,7453,7454,7455,7456,7457,7458,7459,7460,7461,7462, +7463,7464,7465,7466,7467,7468,7469,7470,7471,7472,7473,7474,7475,7476,7477, +7478,7479,7480,7481,7482,7483,7484,7485,7486,7487,7488,7489,7490,7491,7492, +7493,7494,7495,7496,7497,7498,7499,7500,7501,7502,7503,7504,7505,7506,7507, +7508,7509,7510,7511,7512,7513,7514,7515,7516,7517,7518,7519,7520,7521,7522, +7523,7524,7525,7526,7527,7528,7529,7530,7531,7532,7533,7534,7535,7536,7537, +7538,7539,7540,7541,7542,7543,7544,42877L,7546,7547,7548,11363,7550,7551, +7552,7553,7554,7555,7556,7557,7558,7559,7560,7561,7562,7563,7564,7565, +42950L,7567,7568,7569,7570,7571,7572,7573,7574,7575,7576,7577,7578,7579, +7580,7581,7582,7583,7584,7585,7586,7587,7588,7589,7590,7591,7592,7593,7594, +7595,7596,7597,7598,7599,7600,7601,7602,7603,7604,7605,7606,7607,7608,7609, +7610,7611,7612,7613,7614,7615,7616,7617,7618,7619,7620,7621,7622,7623,7624, +7625,7626,7627,7628,7629,7630,7631,7632,7633,7634,7635,7636,7637,7638,7639, +7640,7641,7642,7643,7644,7645,7646,7647,7648,7649,7650,7651,7652,7653,7654, +7655,7656,7657,7658,7659,7660,7661,7662,7663,7664,7665,7666,7667,7668,7669, +7670,7671,7672,7673,7674,7675,7676,7677,7678,7679,7680,7680,7682,7682,7684, +7684,7686,7686,7688,7688,7690,7690,7692,7692,7694,7694,7696,7696,7698,7698, +7700,7700,7702,7702,7704,7704,7706,7706,7708,7708,7710,7710,7712,7712,7714, +7714,7716,7716,7718,7718,7720,7720,7722,7722,7724,7724,7726,7726,7728,7728, +7730,7730,7732,7732,7734,7734,7736,7736,7738,7738,7740,7740,7742,7742,7744, +7744,7746,7746,7748,7748,7750,7750,7752,7752,7754,7754,7756,7756,7758,7758, +7760,7760,7762,7762,7764,7764,7766,7766,7768,7768,7770,7770,7772,7772,7774, +7774,7776,7776,7778,7778,7780,7780,7782,7782,7784,7784,7786,7786,7788,7788, +7790,7790,7792,7792,7794,7794,7796,7796,7798,7798,7800,7800,7802,7802,7804, +7804,7806,7806,7808,7808,7810,7810,7812,7812,7814,7814,7816,7816,7818,7818, +7820,7820,7822,7822,7824,7824,7826,7826,7828,7828,7830,7831,7832,7833,7834, +7776,7836,7837,7838,7839,7840,7840,7842,7842,7844,7844,7846,7846,7848,7848, +7850,7850,7852,7852,7854,7854,7856,7856,7858,7858,7860,7860,7862,7862,7864, +7864,7866,7866,7868,7868,7870,7870,7872,7872,7874,7874,7876,7876,7878,7878, +7880,7880,7882,7882,7884,7884,7886,7886,7888,7888,7890,7890,7892,7892,7894, +7894,7896,7896,7898,7898,7900,7900,7902,7902,7904,7904,7906,7906,7908,7908, +7910,7910,7912,7912,7914,7914,7916,7916,7918,7918,7920,7920,7922,7922,7924, +7924,7926,7926,7928,7928,7930,7930,7932,7932,7934,7934,7944,7945,7946,7947, +7948,7949,7950,7951,7944,7945,7946,7947,7948,7949,7950,7951,7960,7961,7962, +7963,7964,7965,7958,7959,7960,7961,7962,7963,7964,7965,7966,7967,7976,7977, +7978,7979,7980,7981,7982,7983,7976,7977,7978,7979,7980,7981,7982,7983,7992, +7993,7994,7995,7996,7997,7998,7999,7992,7993,7994,7995,7996,7997,7998,7999, +8008,8009,8010,8011,8012,8013,8006,8007,8008,8009,8010,8011,8012,8013,8014, +8015,8016,8025,8018,8027,8020,8029,8022,8031,8024,8025,8026,8027,8028,8029, +8030,8031,8040,8041,8042,8043,8044,8045,8046,8047,8040,8041,8042,8043,8044, +8045,8046,8047,8122,8123,8136,8137,8138,8139,8154,8155,8184,8185,8170,8171, +8186,8187,8062,8063,8064,8065,8066,8067,8068,8069,8070,8071,8072,8073,8074, +8075,8076,8077,8078,8079,8080,8081,8082,8083,8084,8085,8086,8087,8088,8089, +8090,8091,8092,8093,8094,8095,8096,8097,8098,8099,8100,8101,8102,8103,8104, +8105,8106,8107,8108,8109,8110,8111,8120,8121,8114,8115,8116,8117,8118,8119, +8120,8121,8122,8123,8124,8125,921,8127,8128,8129,8130,8131,8132,8133,8134, +8135,8136,8137,8138,8139,8140,8141,8142,8143,8152,8153,8146,8147,8148,8149, +8150,8151,8152,8153,8154,8155,8156,8157,8158,8159,8168,8169,8162,8163,8164, +8172,8166,8167,8168,8169,8170,8171,8172,8173,8174,8175,8176,8177,8178,8179, +8180,8181,8182,8183,8184,8185,8186,8187,8188,8189,8190,8191,8192,8193,8194, +8195,8196,8197,8198,8199,8200,8201,8202,8203,8204,8205,8206,8207,8208,8209, +8210,8211,8212,8213,8214,8215,8216,8217,8218,8219,8220,8221,8222,8223,8224, +8225,8226,8227,8228,8229,8230,8231,8232,8233,8234,8235,8236,8237,8238,8239, +8240,8241,8242,8243,8244,8245,8246,8247,8248,8249,8250,8251,8252,8253,8254, +8255,8256,8257,8258,8259,8260,8261,8262,8263,8264,8265,8266,8267,8268,8269, +8270,8271,8272,8273,8274,8275,8276,8277,8278,8279,8280,8281,8282,8283,8284, +8285,8286,8287,8288,8289,8290,8291,8292,8293,8294,8295,8296,8297,8298,8299, +8300,8301,8302,8303,8304,8305,8306,8307,8308,8309,8310,8311,8312,8313,8314, +8315,8316,8317,8318,8319,8320,8321,8322,8323,8324,8325,8326,8327,8328,8329, +8330,8331,8332,8333,8334,8335,8336,8337,8338,8339,8340,8341,8342,8343,8344, +8345,8346,8347,8348,8349,8350,8351,8352,8353,8354,8355,8356,8357,8358,8359, +8360,8361,8362,8363,8364,8365,8366,8367,8368,8369,8370,8371,8372,8373,8374, +8375,8376,8377,8378,8379,8380,8381,8382,8383,8384,8385,8386,8387,8388,8389, +8390,8391,8392,8393,8394,8395,8396,8397,8398,8399,8400,8401,8402,8403,8404, +8405,8406,8407,8408,8409,8410,8411,8412,8413,8414,8415,8416,8417,8418,8419, +8420,8421,8422,8423,8424,8425,8426,8427,8428,8429,8430,8431,8432,8433,8434, +8435,8436,8437,8438,8439,8440,8441,8442,8443,8444,8445,8446,8447,8448,8449, +8450,8451,8452,8453,8454,8455,8456,8457,8458,8459,8460,8461,8462,8463,8464, +8465,8466,8467,8468,8469,8470,8471,8472,8473,8474,8475,8476,8477,8478,8479, +8480,8481,8482,8483,8484,8485,8486,8487,8488,8489,8490,8491,8492,8493,8494, +8495,8496,8497,8498,8499,8500,8501,8502,8503,8504,8505,8506,8507,8508,8509, +8510,8511,8512,8513,8514,8515,8516,8517,8518,8519,8520,8521,8522,8523,8524, +8525,8498,8527,8528,8529,8530,8531,8532,8533,8534,8535,8536,8537,8538,8539, +8540,8541,8542,8543,8544,8545,8546,8547,8548,8549,8550,8551,8552,8553,8554, +8555,8556,8557,8558,8559,8544,8545,8546,8547,8548,8549,8550,8551,8552,8553, +8554,8555,8556,8557,8558,8559,8576,8577,8578,8579,8579,8581,8582,8583,8584, +8585,8586,8587,8588,8589,8590,8591,8592,8593,8594,8595,8596,8597,8598,8599, +8600,8601,8602,8603,8604,8605,8606,8607,8608,8609,8610,8611,8612,8613,8614, +8615,8616,8617,8618,8619,8620,8621,8622,8623,8624,8625,8626,8627,8628,8629, +8630,8631,8632,8633,8634,8635,8636,8637,8638,8639,8640,8641,8642,8643,8644, +8645,8646,8647,8648,8649,8650,8651,8652,8653,8654,8655,8656,8657,8658,8659, +8660,8661,8662,8663,8664,8665,8666,8667,8668,8669,8670,8671,8672,8673,8674, +8675,8676,8677,8678,8679,8680,8681,8682,8683,8684,8685,8686,8687,8688,8689, +8690,8691,8692,8693,8694,8695,8696,8697,8698,8699,8700,8701,8702,8703,8704, +8705,8706,8707,8708,8709,8710,8711,8712,8713,8714,8715,8716,8717,8718,8719, +8720,8721,8722,8723,8724,8725,8726,8727,8728,8729,8730,8731,8732,8733,8734, +8735,8736,8737,8738,8739,8740,8741,8742,8743,8744,8745,8746,8747,8748,8749, +8750,8751,8752,8753,8754,8755,8756,8757,8758,8759,8760,8761,8762,8763,8764, +8765,8766,8767,8768,8769,8770,8771,8772,8773,8774,8775,8776,8777,8778,8779, +8780,8781,8782,8783,8784,8785,8786,8787,8788,8789,8790,8791,8792,8793,8794, +8795,8796,8797,8798,8799,8800,8801,8802,8803,8804,8805,8806,8807,8808,8809, +8810,8811,8812,8813,8814,8815,8816,8817,8818,8819,8820,8821,8822,8823,8824, +8825,8826,8827,8828,8829,8830,8831,8832,8833,8834,8835,8836,8837,8838,8839, +8840,8841,8842,8843,8844,8845,8846,8847,8848,8849,8850,8851,8852,8853,8854, +8855,8856,8857,8858,8859,8860,8861,8862,8863,8864,8865,8866,8867,8868,8869, +8870,8871,8872,8873,8874,8875,8876,8877,8878,8879,8880,8881,8882,8883,8884, +8885,8886,8887,8888,8889,8890,8891,8892,8893,8894,8895,8896,8897,8898,8899, +8900,8901,8902,8903,8904,8905,8906,8907,8908,8909,8910,8911,8912,8913,8914, +8915,8916,8917,8918,8919,8920,8921,8922,8923,8924,8925,8926,8927,8928,8929, +8930,8931,8932,8933,8934,8935,8936,8937,8938,8939,8940,8941,8942,8943,8944, +8945,8946,8947,8948,8949,8950,8951,8952,8953,8954,8955,8956,8957,8958,8959, +8960,8961,8962,8963,8964,8965,8966,8967,8968,8969,8970,8971,8972,8973,8974, +8975,8976,8977,8978,8979,8980,8981,8982,8983,8984,8985,8986,8987,8988,8989, +8990,8991,8992,8993,8994,8995,8996,8997,8998,8999,9000,9001,9002,9003,9004, +9005,9006,9007,9008,9009,9010,9011,9012,9013,9014,9015,9016,9017,9018,9019, +9020,9021,9022,9023,9024,9025,9026,9027,9028,9029,9030,9031,9032,9033,9034, +9035,9036,9037,9038,9039,9040,9041,9042,9043,9044,9045,9046,9047,9048,9049, +9050,9051,9052,9053,9054,9055,9056,9057,9058,9059,9060,9061,9062,9063,9064, +9065,9066,9067,9068,9069,9070,9071,9072,9073,9074,9075,9076,9077,9078,9079, +9080,9081,9082,9083,9084,9085,9086,9087,9088,9089,9090,9091,9092,9093,9094, +9095,9096,9097,9098,9099,9100,9101,9102,9103,9104,9105,9106,9107,9108,9109, +9110,9111,9112,9113,9114,9115,9116,9117,9118,9119,9120,9121,9122,9123,9124, +9125,9126,9127,9128,9129,9130,9131,9132,9133,9134,9135,9136,9137,9138,9139, +9140,9141,9142,9143,9144,9145,9146,9147,9148,9149,9150,9151,9152,9153,9154, +9155,9156,9157,9158,9159,9160,9161,9162,9163,9164,9165,9166,9167,9168,9169, +9170,9171,9172,9173,9174,9175,9176,9177,9178,9179,9180,9181,9182,9183,9184, +9185,9186,9187,9188,9189,9190,9191,9192,9193,9194,9195,9196,9197,9198,9199, +9200,9201,9202,9203,9204,9205,9206,9207,9208,9209,9210,9211,9212,9213,9214, +9215,9216,9217,9218,9219,9220,9221,9222,9223,9224,9225,9226,9227,9228,9229, +9230,9231,9232,9233,9234,9235,9236,9237,9238,9239,9240,9241,9242,9243,9244, +9245,9246,9247,9248,9249,9250,9251,9252,9253,9254,9255,9256,9257,9258,9259, +9260,9261,9262,9263,9264,9265,9266,9267,9268,9269,9270,9271,9272,9273,9274, +9275,9276,9277,9278,9279,9280,9281,9282,9283,9284,9285,9286,9287,9288,9289, +9290,9291,9292,9293,9294,9295,9296,9297,9298,9299,9300,9301,9302,9303,9304, +9305,9306,9307,9308,9309,9310,9311,9312,9313,9314,9315,9316,9317,9318,9319, +9320,9321,9322,9323,9324,9325,9326,9327,9328,9329,9330,9331,9332,9333,9334, +9335,9336,9337,9338,9339,9340,9341,9342,9343,9344,9345,9346,9347,9348,9349, +9350,9351,9352,9353,9354,9355,9356,9357,9358,9359,9360,9361,9362,9363,9364, +9365,9366,9367,9368,9369,9370,9371,9372,9373,9374,9375,9376,9377,9378,9379, +9380,9381,9382,9383,9384,9385,9386,9387,9388,9389,9390,9391,9392,9393,9394, +9395,9396,9397,9398,9399,9400,9401,9402,9403,9404,9405,9406,9407,9408,9409, +9410,9411,9412,9413,9414,9415,9416,9417,9418,9419,9420,9421,9422,9423,9398, +9399,9400,9401,9402,9403,9404,9405,9406,9407,9408,9409,9410,9411,9412,9413, +9414,9415,9416,9417,9418,9419,9420,9421,9422,9423,9450,9451,9452,9453,9454, +9455,9456,9457,9458,9459,9460,9461,9462,9463,9464,9465,9466,9467,9468,9469, +9470,9471,9472,9473,9474,9475,9476,9477,9478,9479,9480,9481,9482,9483,9484, +9485,9486,9487,9488,9489,9490,9491,9492,9493,9494,9495,9496,9497,9498,9499, +9500,9501,9502,9503,9504,9505,9506,9507,9508,9509,9510,9511,9512,9513,9514, +9515,9516,9517,9518,9519,9520,9521,9522,9523,9524,9525,9526,9527,9528,9529, +9530,9531,9532,9533,9534,9535,9536,9537,9538,9539,9540,9541,9542,9543,9544, +9545,9546,9547,9548,9549,9550,9551,9552,9553,9554,9555,9556,9557,9558,9559, +9560,9561,9562,9563,9564,9565,9566,9567,9568,9569,9570,9571,9572,9573,9574, +9575,9576,9577,9578,9579,9580,9581,9582,9583,9584,9585,9586,9587,9588,9589, +9590,9591,9592,9593,9594,9595,9596,9597,9598,9599,9600,9601,9602,9603,9604, +9605,9606,9607,9608,9609,9610,9611,9612,9613,9614,9615,9616,9617,9618,9619, +9620,9621,9622,9623,9624,9625,9626,9627,9628,9629,9630,9631,9632,9633,9634, +9635,9636,9637,9638,9639,9640,9641,9642,9643,9644,9645,9646,9647,9648,9649, +9650,9651,9652,9653,9654,9655,9656,9657,9658,9659,9660,9661,9662,9663,9664, +9665,9666,9667,9668,9669,9670,9671,9672,9673,9674,9675,9676,9677,9678,9679, +9680,9681,9682,9683,9684,9685,9686,9687,9688,9689,9690,9691,9692,9693,9694, +9695,9696,9697,9698,9699,9700,9701,9702,9703,9704,9705,9706,9707,9708,9709, +9710,9711,9712,9713,9714,9715,9716,9717,9718,9719,9720,9721,9722,9723,9724, +9725,9726,9727,9728,9729,9730,9731,9732,9733,9734,9735,9736,9737,9738,9739, +9740,9741,9742,9743,9744,9745,9746,9747,9748,9749,9750,9751,9752,9753,9754, +9755,9756,9757,9758,9759,9760,9761,9762,9763,9764,9765,9766,9767,9768,9769, +9770,9771,9772,9773,9774,9775,9776,9777,9778,9779,9780,9781,9782,9783,9784, +9785,9786,9787,9788,9789,9790,9791,9792,9793,9794,9795,9796,9797,9798,9799, +9800,9801,9802,9803,9804,9805,9806,9807,9808,9809,9810,9811,9812,9813,9814, +9815,9816,9817,9818,9819,9820,9821,9822,9823,9824,9825,9826,9827,9828,9829, +9830,9831,9832,9833,9834,9835,9836,9837,9838,9839,9840,9841,9842,9843,9844, +9845,9846,9847,9848,9849,9850,9851,9852,9853,9854,9855,9856,9857,9858,9859, +9860,9861,9862,9863,9864,9865,9866,9867,9868,9869,9870,9871,9872,9873,9874, +9875,9876,9877,9878,9879,9880,9881,9882,9883,9884,9885,9886,9887,9888,9889, +9890,9891,9892,9893,9894,9895,9896,9897,9898,9899,9900,9901,9902,9903,9904, +9905,9906,9907,9908,9909,9910,9911,9912,9913,9914,9915,9916,9917,9918,9919, +9920,9921,9922,9923,9924,9925,9926,9927,9928,9929,9930,9931,9932,9933,9934, +9935,9936,9937,9938,9939,9940,9941,9942,9943,9944,9945,9946,9947,9948,9949, +9950,9951,9952,9953,9954,9955,9956,9957,9958,9959,9960,9961,9962,9963,9964, +9965,9966,9967,9968,9969,9970,9971,9972,9973,9974,9975,9976,9977,9978,9979, +9980,9981,9982,9983,9984,9985,9986,9987,9988,9989,9990,9991,9992,9993,9994, +9995,9996,9997,9998,9999,10000,10001,10002,10003,10004,10005,10006,10007, +10008,10009,10010,10011,10012,10013,10014,10015,10016,10017,10018,10019, +10020,10021,10022,10023,10024,10025,10026,10027,10028,10029,10030,10031, +10032,10033,10034,10035,10036,10037,10038,10039,10040,10041,10042,10043, +10044,10045,10046,10047,10048,10049,10050,10051,10052,10053,10054,10055, +10056,10057,10058,10059,10060,10061,10062,10063,10064,10065,10066,10067, +10068,10069,10070,10071,10072,10073,10074,10075,10076,10077,10078,10079, +10080,10081,10082,10083,10084,10085,10086,10087,10088,10089,10090,10091, +10092,10093,10094,10095,10096,10097,10098,10099,10100,10101,10102,10103, +10104,10105,10106,10107,10108,10109,10110,10111,10112,10113,10114,10115, +10116,10117,10118,10119,10120,10121,10122,10123,10124,10125,10126,10127, +10128,10129,10130,10131,10132,10133,10134,10135,10136,10137,10138,10139, +10140,10141,10142,10143,10144,10145,10146,10147,10148,10149,10150,10151, +10152,10153,10154,10155,10156,10157,10158,10159,10160,10161,10162,10163, +10164,10165,10166,10167,10168,10169,10170,10171,10172,10173,10174,10175, +10176,10177,10178,10179,10180,10181,10182,10183,10184,10185,10186,10187, +10188,10189,10190,10191,10192,10193,10194,10195,10196,10197,10198,10199, +10200,10201,10202,10203,10204,10205,10206,10207,10208,10209,10210,10211, +10212,10213,10214,10215,10216,10217,10218,10219,10220,10221,10222,10223, +10224,10225,10226,10227,10228,10229,10230,10231,10232,10233,10234,10235, +10236,10237,10238,10239,10240,10241,10242,10243,10244,10245,10246,10247, +10248,10249,10250,10251,10252,10253,10254,10255,10256,10257,10258,10259, +10260,10261,10262,10263,10264,10265,10266,10267,10268,10269,10270,10271, +10272,10273,10274,10275,10276,10277,10278,10279,10280,10281,10282,10283, +10284,10285,10286,10287,10288,10289,10290,10291,10292,10293,10294,10295, +10296,10297,10298,10299,10300,10301,10302,10303,10304,10305,10306,10307, +10308,10309,10310,10311,10312,10313,10314,10315,10316,10317,10318,10319, +10320,10321,10322,10323,10324,10325,10326,10327,10328,10329,10330,10331, +10332,10333,10334,10335,10336,10337,10338,10339,10340,10341,10342,10343, +10344,10345,10346,10347,10348,10349,10350,10351,10352,10353,10354,10355, +10356,10357,10358,10359,10360,10361,10362,10363,10364,10365,10366,10367, +10368,10369,10370,10371,10372,10373,10374,10375,10376,10377,10378,10379, +10380,10381,10382,10383,10384,10385,10386,10387,10388,10389,10390,10391, +10392,10393,10394,10395,10396,10397,10398,10399,10400,10401,10402,10403, +10404,10405,10406,10407,10408,10409,10410,10411,10412,10413,10414,10415, +10416,10417,10418,10419,10420,10421,10422,10423,10424,10425,10426,10427, +10428,10429,10430,10431,10432,10433,10434,10435,10436,10437,10438,10439, +10440,10441,10442,10443,10444,10445,10446,10447,10448,10449,10450,10451, +10452,10453,10454,10455,10456,10457,10458,10459,10460,10461,10462,10463, +10464,10465,10466,10467,10468,10469,10470,10471,10472,10473,10474,10475, +10476,10477,10478,10479,10480,10481,10482,10483,10484,10485,10486,10487, +10488,10489,10490,10491,10492,10493,10494,10495,10496,10497,10498,10499, +10500,10501,10502,10503,10504,10505,10506,10507,10508,10509,10510,10511, +10512,10513,10514,10515,10516,10517,10518,10519,10520,10521,10522,10523, +10524,10525,10526,10527,10528,10529,10530,10531,10532,10533,10534,10535, +10536,10537,10538,10539,10540,10541,10542,10543,10544,10545,10546,10547, +10548,10549,10550,10551,10552,10553,10554,10555,10556,10557,10558,10559, +10560,10561,10562,10563,10564,10565,10566,10567,10568,10569,10570,10571, +10572,10573,10574,10575,10576,10577,10578,10579,10580,10581,10582,10583, +10584,10585,10586,10587,10588,10589,10590,10591,10592,10593,10594,10595, +10596,10597,10598,10599,10600,10601,10602,10603,10604,10605,10606,10607, +10608,10609,10610,10611,10612,10613,10614,10615,10616,10617,10618,10619, +10620,10621,10622,10623,10624,10625,10626,10627,10628,10629,10630,10631, +10632,10633,10634,10635,10636,10637,10638,10639,10640,10641,10642,10643, +10644,10645,10646,10647,10648,10649,10650,10651,10652,10653,10654,10655, +10656,10657,10658,10659,10660,10661,10662,10663,10664,10665,10666,10667, +10668,10669,10670,10671,10672,10673,10674,10675,10676,10677,10678,10679, +10680,10681,10682,10683,10684,10685,10686,10687,10688,10689,10690,10691, +10692,10693,10694,10695,10696,10697,10698,10699,10700,10701,10702,10703, +10704,10705,10706,10707,10708,10709,10710,10711,10712,10713,10714,10715, +10716,10717,10718,10719,10720,10721,10722,10723,10724,10725,10726,10727, +10728,10729,10730,10731,10732,10733,10734,10735,10736,10737,10738,10739, +10740,10741,10742,10743,10744,10745,10746,10747,10748,10749,10750,10751, +10752,10753,10754,10755,10756,10757,10758,10759,10760,10761,10762,10763, +10764,10765,10766,10767,10768,10769,10770,10771,10772,10773,10774,10775, +10776,10777,10778,10779,10780,10781,10782,10783,10784,10785,10786,10787, +10788,10789,10790,10791,10792,10793,10794,10795,10796,10797,10798,10799, +10800,10801,10802,10803,10804,10805,10806,10807,10808,10809,10810,10811, +10812,10813,10814,10815,10816,10817,10818,10819,10820,10821,10822,10823, +10824,10825,10826,10827,10828,10829,10830,10831,10832,10833,10834,10835, +10836,10837,10838,10839,10840,10841,10842,10843,10844,10845,10846,10847, +10848,10849,10850,10851,10852,10853,10854,10855,10856,10857,10858,10859, +10860,10861,10862,10863,10864,10865,10866,10867,10868,10869,10870,10871, +10872,10873,10874,10875,10876,10877,10878,10879,10880,10881,10882,10883, +10884,10885,10886,10887,10888,10889,10890,10891,10892,10893,10894,10895, +10896,10897,10898,10899,10900,10901,10902,10903,10904,10905,10906,10907, +10908,10909,10910,10911,10912,10913,10914,10915,10916,10917,10918,10919, +10920,10921,10922,10923,10924,10925,10926,10927,10928,10929,10930,10931, +10932,10933,10934,10935,10936,10937,10938,10939,10940,10941,10942,10943, +10944,10945,10946,10947,10948,10949,10950,10951,10952,10953,10954,10955, +10956,10957,10958,10959,10960,10961,10962,10963,10964,10965,10966,10967, +10968,10969,10970,10971,10972,10973,10974,10975,10976,10977,10978,10979, +10980,10981,10982,10983,10984,10985,10986,10987,10988,10989,10990,10991, +10992,10993,10994,10995,10996,10997,10998,10999,11000,11001,11002,11003, +11004,11005,11006,11007,11008,11009,11010,11011,11012,11013,11014,11015, +11016,11017,11018,11019,11020,11021,11022,11023,11024,11025,11026,11027, +11028,11029,11030,11031,11032,11033,11034,11035,11036,11037,11038,11039, +11040,11041,11042,11043,11044,11045,11046,11047,11048,11049,11050,11051, +11052,11053,11054,11055,11056,11057,11058,11059,11060,11061,11062,11063, +11064,11065,11066,11067,11068,11069,11070,11071,11072,11073,11074,11075, +11076,11077,11078,11079,11080,11081,11082,11083,11084,11085,11086,11087, +11088,11089,11090,11091,11092,11093,11094,11095,11096,11097,11098,11099, +11100,11101,11102,11103,11104,11105,11106,11107,11108,11109,11110,11111, +11112,11113,11114,11115,11116,11117,11118,11119,11120,11121,11122,11123, +11124,11125,11126,11127,11128,11129,11130,11131,11132,11133,11134,11135, +11136,11137,11138,11139,11140,11141,11142,11143,11144,11145,11146,11147, +11148,11149,11150,11151,11152,11153,11154,11155,11156,11157,11158,11159, +11160,11161,11162,11163,11164,11165,11166,11167,11168,11169,11170,11171, +11172,11173,11174,11175,11176,11177,11178,11179,11180,11181,11182,11183, +11184,11185,11186,11187,11188,11189,11190,11191,11192,11193,11194,11195, +11196,11197,11198,11199,11200,11201,11202,11203,11204,11205,11206,11207, +11208,11209,11210,11211,11212,11213,11214,11215,11216,11217,11218,11219, +11220,11221,11222,11223,11224,11225,11226,11227,11228,11229,11230,11231, +11232,11233,11234,11235,11236,11237,11238,11239,11240,11241,11242,11243, +11244,11245,11246,11247,11248,11249,11250,11251,11252,11253,11254,11255, +11256,11257,11258,11259,11260,11261,11262,11263,11264,11265,11266,11267, +11268,11269,11270,11271,11272,11273,11274,11275,11276,11277,11278,11279, +11280,11281,11282,11283,11284,11285,11286,11287,11288,11289,11290,11291, +11292,11293,11294,11295,11296,11297,11298,11299,11300,11301,11302,11303, +11304,11305,11306,11307,11308,11309,11310,11311,11264,11265,11266,11267, +11268,11269,11270,11271,11272,11273,11274,11275,11276,11277,11278,11279, +11280,11281,11282,11283,11284,11285,11286,11287,11288,11289,11290,11291, +11292,11293,11294,11295,11296,11297,11298,11299,11300,11301,11302,11303, +11304,11305,11306,11307,11308,11309,11310,11359,11360,11360,11362,11363, +11364,570,574,11367,11367,11369,11369,11371,11371,11373,11374,11375,11376, +11377,11378,11378,11380,11381,11381,11383,11384,11385,11386,11387,11388, +11389,11390,11391,11392,11392,11394,11394,11396,11396,11398,11398,11400, +11400,11402,11402,11404,11404,11406,11406,11408,11408,11410,11410,11412, +11412,11414,11414,11416,11416,11418,11418,11420,11420,11422,11422,11424, +11424,11426,11426,11428,11428,11430,11430,11432,11432,11434,11434,11436, +11436,11438,11438,11440,11440,11442,11442,11444,11444,11446,11446,11448, +11448,11450,11450,11452,11452,11454,11454,11456,11456,11458,11458,11460, +11460,11462,11462,11464,11464,11466,11466,11468,11468,11470,11470,11472, +11472,11474,11474,11476,11476,11478,11478,11480,11480,11482,11482,11484, +11484,11486,11486,11488,11488,11490,11490,11492,11493,11494,11495,11496, +11497,11498,11499,11499,11501,11501,11503,11504,11505,11506,11506,11508, +11509,11510,11511,11512,11513,11514,11515,11516,11517,11518,11519,4256, +4257,4258,4259,4260,4261,4262,4263,4264,4265,4266,4267,4268,4269,4270,4271, +4272,4273,4274,4275,4276,4277,4278,4279,4280,4281,4282,4283,4284,4285,4286, +4287,4288,4289,4290,4291,4292,4293,11558,4295,11560,11561,11562,11563, +11564,4301,11566,11567,11568,11569,11570,11571,11572,11573,11574,11575, +11576,11577,11578,11579,11580,11581,11582,11583,11584,11585,11586,11587, +11588,11589,11590,11591,11592,11593,11594,11595,11596,11597,11598,11599, +11600,11601,11602,11603,11604,11605,11606,11607,11608,11609,11610,11611, +11612,11613,11614,11615,11616,11617,11618,11619,11620,11621,11622,11623, +11624,11625,11626,11627,11628,11629,11630,11631,11632,11633,11634,11635, +11636,11637,11638,11639,11640,11641,11642,11643,11644,11645,11646,11647, +11648,11649,11650,11651,11652,11653,11654,11655,11656,11657,11658,11659, +11660,11661,11662,11663,11664,11665,11666,11667,11668,11669,11670,11671, +11672,11673,11674,11675,11676,11677,11678,11679,11680,11681,11682,11683, +11684,11685,11686,11687,11688,11689,11690,11691,11692,11693,11694,11695, +11696,11697,11698,11699,11700,11701,11702,11703,11704,11705,11706,11707, +11708,11709,11710,11711,11712,11713,11714,11715,11716,11717,11718,11719, +11720,11721,11722,11723,11724,11725,11726,11727,11728,11729,11730,11731, +11732,11733,11734,11735,11736,11737,11738,11739,11740,11741,11742,11743, +11744,11745,11746,11747,11748,11749,11750,11751,11752,11753,11754,11755, +11756,11757,11758,11759,11760,11761,11762,11763,11764,11765,11766,11767, +11768,11769,11770,11771,11772,11773,11774,11775,11776,11777,11778,11779, +11780,11781,11782,11783,11784,11785,11786,11787,11788,11789,11790,11791, +11792,11793,11794,11795,11796,11797,11798,11799,11800,11801,11802,11803, +11804,11805,11806,11807,11808,11809,11810,11811,11812,11813,11814,11815, +11816,11817,11818,11819,11820,11821,11822,11823,11824,11825,11826,11827, +11828,11829,11830,11831,11832,11833,11834,11835,11836,11837,11838,11839, +11840,11841,11842,11843,11844,11845,11846,11847,11848,11849,11850,11851, +11852,11853,11854,11855,11856,11857,11858,11859,11860,11861,11862,11863, +11864,11865,11866,11867,11868,11869,11870,11871,11872,11873,11874,11875, +11876,11877,11878,11879,11880,11881,11882,11883,11884,11885,11886,11887, +11888,11889,11890,11891,11892,11893,11894,11895,11896,11897,11898,11899, +11900,11901,11902,11903,11904,11905,11906,11907,11908,11909,11910,11911, +11912,11913,11914,11915,11916,11917,11918,11919,11920,11921,11922,11923, +11924,11925,11926,11927,11928,11929,11930,11931,11932,11933,11934,11935, +11936,11937,11938,11939,11940,11941,11942,11943,11944,11945,11946,11947, +11948,11949,11950,11951,11952,11953,11954,11955,11956,11957,11958,11959, +11960,11961,11962,11963,11964,11965,11966,11967,11968,11969,11970,11971, +11972,11973,11974,11975,11976,11977,11978,11979,11980,11981,11982,11983, +11984,11985,11986,11987,11988,11989,11990,11991,11992,11993,11994,11995, +11996,11997,11998,11999,12000,12001,12002,12003,12004,12005,12006,12007, +12008,12009,12010,12011,12012,12013,12014,12015,12016,12017,12018,12019, +12020,12021,12022,12023,12024,12025,12026,12027,12028,12029,12030,12031, +12032,12033,12034,12035,12036,12037,12038,12039,12040,12041,12042,12043, +12044,12045,12046,12047,12048,12049,12050,12051,12052,12053,12054,12055, +12056,12057,12058,12059,12060,12061,12062,12063,12064,12065,12066,12067, +12068,12069,12070,12071,12072,12073,12074,12075,12076,12077,12078,12079, +12080,12081,12082,12083,12084,12085,12086,12087,12088,12089,12090,12091, +12092,12093,12094,12095,12096,12097,12098,12099,12100,12101,12102,12103, +12104,12105,12106,12107,12108,12109,12110,12111,12112,12113,12114,12115, +12116,12117,12118,12119,12120,12121,12122,12123,12124,12125,12126,12127, +12128,12129,12130,12131,12132,12133,12134,12135,12136,12137,12138,12139, +12140,12141,12142,12143,12144,12145,12146,12147,12148,12149,12150,12151, +12152,12153,12154,12155,12156,12157,12158,12159,12160,12161,12162,12163, +12164,12165,12166,12167,12168,12169,12170,12171,12172,12173,12174,12175, +12176,12177,12178,12179,12180,12181,12182,12183,12184,12185,12186,12187, +12188,12189,12190,12191,12192,12193,12194,12195,12196,12197,12198,12199, +12200,12201,12202,12203,12204,12205,12206,12207,12208,12209,12210,12211, +12212,12213,12214,12215,12216,12217,12218,12219,12220,12221,12222,12223, +12224,12225,12226,12227,12228,12229,12230,12231,12232,12233,12234,12235, +12236,12237,12238,12239,12240,12241,12242,12243,12244,12245,12246,12247, +12248,12249,12250,12251,12252,12253,12254,12255,12256,12257,12258,12259, +12260,12261,12262,12263,12264,12265,12266,12267,12268,12269,12270,12271, +12272,12273,12274,12275,12276,12277,12278,12279,12280,12281,12282,12283, +12284,12285,12286,12287,12288,12289,12290,12291,12292,12293,12294,12295, +12296,12297,12298,12299,12300,12301,12302,12303,12304,12305,12306,12307, +12308,12309,12310,12311,12312,12313,12314,12315,12316,12317,12318,12319, +12320,12321,12322,12323,12324,12325,12326,12327,12328,12329,12330,12331, +12332,12333,12334,12335,12336,12337,12338,12339,12340,12341,12342,12343, +12344,12345,12346,12347,12348,12349,12350,12351,12352,12353,12354,12355, +12356,12357,12358,12359,12360,12361,12362,12363,12364,12365,12366,12367, +12368,12369,12370,12371,12372,12373,12374,12375,12376,12377,12378,12379, +12380,12381,12382,12383,12384,12385,12386,12387,12388,12389,12390,12391, +12392,12393,12394,12395,12396,12397,12398,12399,12400,12401,12402,12403, +12404,12405,12406,12407,12408,12409,12410,12411,12412,12413,12414,12415, +12416,12417,12418,12419,12420,12421,12422,12423,12424,12425,12426,12427, +12428,12429,12430,12431,12432,12433,12434,12435,12436,12437,12438,12439, +12440,12441,12442,12443,12444,12445,12446,12447,12448,12449,12450,12451, +12452,12453,12454,12455,12456,12457,12458,12459,12460,12461,12462,12463, +12464,12465,12466,12467,12468,12469,12470,12471,12472,12473,12474,12475, +12476,12477,12478,12479,12480,12481,12482,12483,12484,12485,12486,12487, +12488,12489,12490,12491,12492,12493,12494,12495,12496,12497,12498,12499, +12500,12501,12502,12503,12504,12505,12506,12507,12508,12509,12510,12511, +12512,12513,12514,12515,12516,12517,12518,12519,12520,12521,12522,12523, +12524,12525,12526,12527,12528,12529,12530,12531,12532,12533,12534,12535, +12536,12537,12538,12539,12540,12541,12542,12543,12544,12545,12546,12547, +12548,12549,12550,12551,12552,12553,12554,12555,12556,12557,12558,12559, +12560,12561,12562,12563,12564,12565,12566,12567,12568,12569,12570,12571, +12572,12573,12574,12575,12576,12577,12578,12579,12580,12581,12582,12583, +12584,12585,12586,12587,12588,12589,12590,12591,12592,12593,12594,12595, +12596,12597,12598,12599,12600,12601,12602,12603,12604,12605,12606,12607, +12608,12609,12610,12611,12612,12613,12614,12615,12616,12617,12618,12619, +12620,12621,12622,12623,12624,12625,12626,12627,12628,12629,12630,12631, +12632,12633,12634,12635,12636,12637,12638,12639,12640,12641,12642,12643, +12644,12645,12646,12647,12648,12649,12650,12651,12652,12653,12654,12655, +12656,12657,12658,12659,12660,12661,12662,12663,12664,12665,12666,12667, +12668,12669,12670,12671,12672,12673,12674,12675,12676,12677,12678,12679, +12680,12681,12682,12683,12684,12685,12686,12687,12688,12689,12690,12691, +12692,12693,12694,12695,12696,12697,12698,12699,12700,12701,12702,12703, +12704,12705,12706,12707,12708,12709,12710,12711,12712,12713,12714,12715, +12716,12717,12718,12719,12720,12721,12722,12723,12724,12725,12726,12727, +12728,12729,12730,12731,12732,12733,12734,12735,12736,12737,12738,12739, +12740,12741,12742,12743,12744,12745,12746,12747,12748,12749,12750,12751, +12752,12753,12754,12755,12756,12757,12758,12759,12760,12761,12762,12763, +12764,12765,12766,12767,12768,12769,12770,12771,12772,12773,12774,12775, +12776,12777,12778,12779,12780,12781,12782,12783,12784,12785,12786,12787, +12788,12789,12790,12791,12792,12793,12794,12795,12796,12797,12798,12799, +12800,12801,12802,12803,12804,12805,12806,12807,12808,12809,12810,12811, +12812,12813,12814,12815,12816,12817,12818,12819,12820,12821,12822,12823, +12824,12825,12826,12827,12828,12829,12830,12831,12832,12833,12834,12835, +12836,12837,12838,12839,12840,12841,12842,12843,12844,12845,12846,12847, +12848,12849,12850,12851,12852,12853,12854,12855,12856,12857,12858,12859, +12860,12861,12862,12863,12864,12865,12866,12867,12868,12869,12870,12871, +12872,12873,12874,12875,12876,12877,12878,12879,12880,12881,12882,12883, +12884,12885,12886,12887,12888,12889,12890,12891,12892,12893,12894,12895, +12896,12897,12898,12899,12900,12901,12902,12903,12904,12905,12906,12907, +12908,12909,12910,12911,12912,12913,12914,12915,12916,12917,12918,12919, +12920,12921,12922,12923,12924,12925,12926,12927,12928,12929,12930,12931, +12932,12933,12934,12935,12936,12937,12938,12939,12940,12941,12942,12943, +12944,12945,12946,12947,12948,12949,12950,12951,12952,12953,12954,12955, +12956,12957,12958,12959,12960,12961,12962,12963,12964,12965,12966,12967, +12968,12969,12970,12971,12972,12973,12974,12975,12976,12977,12978,12979, +12980,12981,12982,12983,12984,12985,12986,12987,12988,12989,12990,12991, +12992,12993,12994,12995,12996,12997,12998,12999,13000,13001,13002,13003, +13004,13005,13006,13007,13008,13009,13010,13011,13012,13013,13014,13015, +13016,13017,13018,13019,13020,13021,13022,13023,13024,13025,13026,13027, +13028,13029,13030,13031,13032,13033,13034,13035,13036,13037,13038,13039, +13040,13041,13042,13043,13044,13045,13046,13047,13048,13049,13050,13051, +13052,13053,13054,13055,13056,13057,13058,13059,13060,13061,13062,13063, +13064,13065,13066,13067,13068,13069,13070,13071,13072,13073,13074,13075, +13076,13077,13078,13079,13080,13081,13082,13083,13084,13085,13086,13087, +13088,13089,13090,13091,13092,13093,13094,13095,13096,13097,13098,13099, +13100,13101,13102,13103,13104,13105,13106,13107,13108,13109,13110,13111, +13112,13113,13114,13115,13116,13117,13118,13119,13120,13121,13122,13123, +13124,13125,13126,13127,13128,13129,13130,13131,13132,13133,13134,13135, +13136,13137,13138,13139,13140,13141,13142,13143,13144,13145,13146,13147, +13148,13149,13150,13151,13152,13153,13154,13155,13156,13157,13158,13159, +13160,13161,13162,13163,13164,13165,13166,13167,13168,13169,13170,13171, +13172,13173,13174,13175,13176,13177,13178,13179,13180,13181,13182,13183, +13184,13185,13186,13187,13188,13189,13190,13191,13192,13193,13194,13195, +13196,13197,13198,13199,13200,13201,13202,13203,13204,13205,13206,13207, +13208,13209,13210,13211,13212,13213,13214,13215,13216,13217,13218,13219, +13220,13221,13222,13223,13224,13225,13226,13227,13228,13229,13230,13231, +13232,13233,13234,13235,13236,13237,13238,13239,13240,13241,13242,13243, +13244,13245,13246,13247,13248,13249,13250,13251,13252,13253,13254,13255, +13256,13257,13258,13259,13260,13261,13262,13263,13264,13265,13266,13267, +13268,13269,13270,13271,13272,13273,13274,13275,13276,13277,13278,13279, +13280,13281,13282,13283,13284,13285,13286,13287,13288,13289,13290,13291, +13292,13293,13294,13295,13296,13297,13298,13299,13300,13301,13302,13303, +13304,13305,13306,13307,13308,13309,13310,13311,13312,13313,13314,13315, +13316,13317,13318,13319,13320,13321,13322,13323,13324,13325,13326,13327, +13328,13329,13330,13331,13332,13333,13334,13335,13336,13337,13338,13339, +13340,13341,13342,13343,13344,13345,13346,13347,13348,13349,13350,13351, +13352,13353,13354,13355,13356,13357,13358,13359,13360,13361,13362,13363, +13364,13365,13366,13367,13368,13369,13370,13371,13372,13373,13374,13375, +13376,13377,13378,13379,13380,13381,13382,13383,13384,13385,13386,13387, +13388,13389,13390,13391,13392,13393,13394,13395,13396,13397,13398,13399, +13400,13401,13402,13403,13404,13405,13406,13407,13408,13409,13410,13411, +13412,13413,13414,13415,13416,13417,13418,13419,13420,13421,13422,13423, +13424,13425,13426,13427,13428,13429,13430,13431,13432,13433,13434,13435, +13436,13437,13438,13439,13440,13441,13442,13443,13444,13445,13446,13447, +13448,13449,13450,13451,13452,13453,13454,13455,13456,13457,13458,13459, +13460,13461,13462,13463,13464,13465,13466,13467,13468,13469,13470,13471, +13472,13473,13474,13475,13476,13477,13478,13479,13480,13481,13482,13483, +13484,13485,13486,13487,13488,13489,13490,13491,13492,13493,13494,13495, +13496,13497,13498,13499,13500,13501,13502,13503,13504,13505,13506,13507, +13508,13509,13510,13511,13512,13513,13514,13515,13516,13517,13518,13519, +13520,13521,13522,13523,13524,13525,13526,13527,13528,13529,13530,13531, +13532,13533,13534,13535,13536,13537,13538,13539,13540,13541,13542,13543, +13544,13545,13546,13547,13548,13549,13550,13551,13552,13553,13554,13555, +13556,13557,13558,13559,13560,13561,13562,13563,13564,13565,13566,13567, +13568,13569,13570,13571,13572,13573,13574,13575,13576,13577,13578,13579, +13580,13581,13582,13583,13584,13585,13586,13587,13588,13589,13590,13591, +13592,13593,13594,13595,13596,13597,13598,13599,13600,13601,13602,13603, +13604,13605,13606,13607,13608,13609,13610,13611,13612,13613,13614,13615, +13616,13617,13618,13619,13620,13621,13622,13623,13624,13625,13626,13627, +13628,13629,13630,13631,13632,13633,13634,13635,13636,13637,13638,13639, +13640,13641,13642,13643,13644,13645,13646,13647,13648,13649,13650,13651, +13652,13653,13654,13655,13656,13657,13658,13659,13660,13661,13662,13663, +13664,13665,13666,13667,13668,13669,13670,13671,13672,13673,13674,13675, +13676,13677,13678,13679,13680,13681,13682,13683,13684,13685,13686,13687, +13688,13689,13690,13691,13692,13693,13694,13695,13696,13697,13698,13699, +13700,13701,13702,13703,13704,13705,13706,13707,13708,13709,13710,13711, +13712,13713,13714,13715,13716,13717,13718,13719,13720,13721,13722,13723, +13724,13725,13726,13727,13728,13729,13730,13731,13732,13733,13734,13735, +13736,13737,13738,13739,13740,13741,13742,13743,13744,13745,13746,13747, +13748,13749,13750,13751,13752,13753,13754,13755,13756,13757,13758,13759, +13760,13761,13762,13763,13764,13765,13766,13767,13768,13769,13770,13771, +13772,13773,13774,13775,13776,13777,13778,13779,13780,13781,13782,13783, +13784,13785,13786,13787,13788,13789,13790,13791,13792,13793,13794,13795, +13796,13797,13798,13799,13800,13801,13802,13803,13804,13805,13806,13807, +13808,13809,13810,13811,13812,13813,13814,13815,13816,13817,13818,13819, +13820,13821,13822,13823,13824,13825,13826,13827,13828,13829,13830,13831, +13832,13833,13834,13835,13836,13837,13838,13839,13840,13841,13842,13843, +13844,13845,13846,13847,13848,13849,13850,13851,13852,13853,13854,13855, +13856,13857,13858,13859,13860,13861,13862,13863,13864,13865,13866,13867, +13868,13869,13870,13871,13872,13873,13874,13875,13876,13877,13878,13879, +13880,13881,13882,13883,13884,13885,13886,13887,13888,13889,13890,13891, +13892,13893,13894,13895,13896,13897,13898,13899,13900,13901,13902,13903, +13904,13905,13906,13907,13908,13909,13910,13911,13912,13913,13914,13915, +13916,13917,13918,13919,13920,13921,13922,13923,13924,13925,13926,13927, +13928,13929,13930,13931,13932,13933,13934,13935,13936,13937,13938,13939, +13940,13941,13942,13943,13944,13945,13946,13947,13948,13949,13950,13951, +13952,13953,13954,13955,13956,13957,13958,13959,13960,13961,13962,13963, +13964,13965,13966,13967,13968,13969,13970,13971,13972,13973,13974,13975, +13976,13977,13978,13979,13980,13981,13982,13983,13984,13985,13986,13987, +13988,13989,13990,13991,13992,13993,13994,13995,13996,13997,13998,13999, +14000,14001,14002,14003,14004,14005,14006,14007,14008,14009,14010,14011, +14012,14013,14014,14015,14016,14017,14018,14019,14020,14021,14022,14023, +14024,14025,14026,14027,14028,14029,14030,14031,14032,14033,14034,14035, +14036,14037,14038,14039,14040,14041,14042,14043,14044,14045,14046,14047, +14048,14049,14050,14051,14052,14053,14054,14055,14056,14057,14058,14059, +14060,14061,14062,14063,14064,14065,14066,14067,14068,14069,14070,14071, +14072,14073,14074,14075,14076,14077,14078,14079,14080,14081,14082,14083, +14084,14085,14086,14087,14088,14089,14090,14091,14092,14093,14094,14095, +14096,14097,14098,14099,14100,14101,14102,14103,14104,14105,14106,14107, +14108,14109,14110,14111,14112,14113,14114,14115,14116,14117,14118,14119, +14120,14121,14122,14123,14124,14125,14126,14127,14128,14129,14130,14131, +14132,14133,14134,14135,14136,14137,14138,14139,14140,14141,14142,14143, +14144,14145,14146,14147,14148,14149,14150,14151,14152,14153,14154,14155, +14156,14157,14158,14159,14160,14161,14162,14163,14164,14165,14166,14167, +14168,14169,14170,14171,14172,14173,14174,14175,14176,14177,14178,14179, +14180,14181,14182,14183,14184,14185,14186,14187,14188,14189,14190,14191, +14192,14193,14194,14195,14196,14197,14198,14199,14200,14201,14202,14203, +14204,14205,14206,14207,14208,14209,14210,14211,14212,14213,14214,14215, +14216,14217,14218,14219,14220,14221,14222,14223,14224,14225,14226,14227, +14228,14229,14230,14231,14232,14233,14234,14235,14236,14237,14238,14239, +14240,14241,14242,14243,14244,14245,14246,14247,14248,14249,14250,14251, +14252,14253,14254,14255,14256,14257,14258,14259,14260,14261,14262,14263, +14264,14265,14266,14267,14268,14269,14270,14271,14272,14273,14274,14275, +14276,14277,14278,14279,14280,14281,14282,14283,14284,14285,14286,14287, +14288,14289,14290,14291,14292,14293,14294,14295,14296,14297,14298,14299, +14300,14301,14302,14303,14304,14305,14306,14307,14308,14309,14310,14311, +14312,14313,14314,14315,14316,14317,14318,14319,14320,14321,14322,14323, +14324,14325,14326,14327,14328,14329,14330,14331,14332,14333,14334,14335, +14336,14337,14338,14339,14340,14341,14342,14343,14344,14345,14346,14347, +14348,14349,14350,14351,14352,14353,14354,14355,14356,14357,14358,14359, +14360,14361,14362,14363,14364,14365,14366,14367,14368,14369,14370,14371, +14372,14373,14374,14375,14376,14377,14378,14379,14380,14381,14382,14383, +14384,14385,14386,14387,14388,14389,14390,14391,14392,14393,14394,14395, +14396,14397,14398,14399,14400,14401,14402,14403,14404,14405,14406,14407, +14408,14409,14410,14411,14412,14413,14414,14415,14416,14417,14418,14419, +14420,14421,14422,14423,14424,14425,14426,14427,14428,14429,14430,14431, +14432,14433,14434,14435,14436,14437,14438,14439,14440,14441,14442,14443, +14444,14445,14446,14447,14448,14449,14450,14451,14452,14453,14454,14455, +14456,14457,14458,14459,14460,14461,14462,14463,14464,14465,14466,14467, +14468,14469,14470,14471,14472,14473,14474,14475,14476,14477,14478,14479, +14480,14481,14482,14483,14484,14485,14486,14487,14488,14489,14490,14491, +14492,14493,14494,14495,14496,14497,14498,14499,14500,14501,14502,14503, +14504,14505,14506,14507,14508,14509,14510,14511,14512,14513,14514,14515, +14516,14517,14518,14519,14520,14521,14522,14523,14524,14525,14526,14527, +14528,14529,14530,14531,14532,14533,14534,14535,14536,14537,14538,14539, +14540,14541,14542,14543,14544,14545,14546,14547,14548,14549,14550,14551, +14552,14553,14554,14555,14556,14557,14558,14559,14560,14561,14562,14563, +14564,14565,14566,14567,14568,14569,14570,14571,14572,14573,14574,14575, +14576,14577,14578,14579,14580,14581,14582,14583,14584,14585,14586,14587, +14588,14589,14590,14591,14592,14593,14594,14595,14596,14597,14598,14599, +14600,14601,14602,14603,14604,14605,14606,14607,14608,14609,14610,14611, +14612,14613,14614,14615,14616,14617,14618,14619,14620,14621,14622,14623, +14624,14625,14626,14627,14628,14629,14630,14631,14632,14633,14634,14635, +14636,14637,14638,14639,14640,14641,14642,14643,14644,14645,14646,14647, +14648,14649,14650,14651,14652,14653,14654,14655,14656,14657,14658,14659, +14660,14661,14662,14663,14664,14665,14666,14667,14668,14669,14670,14671, +14672,14673,14674,14675,14676,14677,14678,14679,14680,14681,14682,14683, +14684,14685,14686,14687,14688,14689,14690,14691,14692,14693,14694,14695, +14696,14697,14698,14699,14700,14701,14702,14703,14704,14705,14706,14707, +14708,14709,14710,14711,14712,14713,14714,14715,14716,14717,14718,14719, +14720,14721,14722,14723,14724,14725,14726,14727,14728,14729,14730,14731, +14732,14733,14734,14735,14736,14737,14738,14739,14740,14741,14742,14743, +14744,14745,14746,14747,14748,14749,14750,14751,14752,14753,14754,14755, +14756,14757,14758,14759,14760,14761,14762,14763,14764,14765,14766,14767, +14768,14769,14770,14771,14772,14773,14774,14775,14776,14777,14778,14779, +14780,14781,14782,14783,14784,14785,14786,14787,14788,14789,14790,14791, +14792,14793,14794,14795,14796,14797,14798,14799,14800,14801,14802,14803, +14804,14805,14806,14807,14808,14809,14810,14811,14812,14813,14814,14815, +14816,14817,14818,14819,14820,14821,14822,14823,14824,14825,14826,14827, +14828,14829,14830,14831,14832,14833,14834,14835,14836,14837,14838,14839, +14840,14841,14842,14843,14844,14845,14846,14847,14848,14849,14850,14851, +14852,14853,14854,14855,14856,14857,14858,14859,14860,14861,14862,14863, +14864,14865,14866,14867,14868,14869,14870,14871,14872,14873,14874,14875, +14876,14877,14878,14879,14880,14881,14882,14883,14884,14885,14886,14887, +14888,14889,14890,14891,14892,14893,14894,14895,14896,14897,14898,14899, +14900,14901,14902,14903,14904,14905,14906,14907,14908,14909,14910,14911, +14912,14913,14914,14915,14916,14917,14918,14919,14920,14921,14922,14923, +14924,14925,14926,14927,14928,14929,14930,14931,14932,14933,14934,14935, +14936,14937,14938,14939,14940,14941,14942,14943,14944,14945,14946,14947, +14948,14949,14950,14951,14952,14953,14954,14955,14956,14957,14958,14959, +14960,14961,14962,14963,14964,14965,14966,14967,14968,14969,14970,14971, +14972,14973,14974,14975,14976,14977,14978,14979,14980,14981,14982,14983, +14984,14985,14986,14987,14988,14989,14990,14991,14992,14993,14994,14995, +14996,14997,14998,14999,15000,15001,15002,15003,15004,15005,15006,15007, +15008,15009,15010,15011,15012,15013,15014,15015,15016,15017,15018,15019, +15020,15021,15022,15023,15024,15025,15026,15027,15028,15029,15030,15031, +15032,15033,15034,15035,15036,15037,15038,15039,15040,15041,15042,15043, +15044,15045,15046,15047,15048,15049,15050,15051,15052,15053,15054,15055, +15056,15057,15058,15059,15060,15061,15062,15063,15064,15065,15066,15067, +15068,15069,15070,15071,15072,15073,15074,15075,15076,15077,15078,15079, +15080,15081,15082,15083,15084,15085,15086,15087,15088,15089,15090,15091, +15092,15093,15094,15095,15096,15097,15098,15099,15100,15101,15102,15103, +15104,15105,15106,15107,15108,15109,15110,15111,15112,15113,15114,15115, +15116,15117,15118,15119,15120,15121,15122,15123,15124,15125,15126,15127, +15128,15129,15130,15131,15132,15133,15134,15135,15136,15137,15138,15139, +15140,15141,15142,15143,15144,15145,15146,15147,15148,15149,15150,15151, +15152,15153,15154,15155,15156,15157,15158,15159,15160,15161,15162,15163, +15164,15165,15166,15167,15168,15169,15170,15171,15172,15173,15174,15175, +15176,15177,15178,15179,15180,15181,15182,15183,15184,15185,15186,15187, +15188,15189,15190,15191,15192,15193,15194,15195,15196,15197,15198,15199, +15200,15201,15202,15203,15204,15205,15206,15207,15208,15209,15210,15211, +15212,15213,15214,15215,15216,15217,15218,15219,15220,15221,15222,15223, +15224,15225,15226,15227,15228,15229,15230,15231,15232,15233,15234,15235, +15236,15237,15238,15239,15240,15241,15242,15243,15244,15245,15246,15247, +15248,15249,15250,15251,15252,15253,15254,15255,15256,15257,15258,15259, +15260,15261,15262,15263,15264,15265,15266,15267,15268,15269,15270,15271, +15272,15273,15274,15275,15276,15277,15278,15279,15280,15281,15282,15283, +15284,15285,15286,15287,15288,15289,15290,15291,15292,15293,15294,15295, +15296,15297,15298,15299,15300,15301,15302,15303,15304,15305,15306,15307, +15308,15309,15310,15311,15312,15313,15314,15315,15316,15317,15318,15319, +15320,15321,15322,15323,15324,15325,15326,15327,15328,15329,15330,15331, +15332,15333,15334,15335,15336,15337,15338,15339,15340,15341,15342,15343, +15344,15345,15346,15347,15348,15349,15350,15351,15352,15353,15354,15355, +15356,15357,15358,15359,15360,15361,15362,15363,15364,15365,15366,15367, +15368,15369,15370,15371,15372,15373,15374,15375,15376,15377,15378,15379, +15380,15381,15382,15383,15384,15385,15386,15387,15388,15389,15390,15391, +15392,15393,15394,15395,15396,15397,15398,15399,15400,15401,15402,15403, +15404,15405,15406,15407,15408,15409,15410,15411,15412,15413,15414,15415, +15416,15417,15418,15419,15420,15421,15422,15423,15424,15425,15426,15427, +15428,15429,15430,15431,15432,15433,15434,15435,15436,15437,15438,15439, +15440,15441,15442,15443,15444,15445,15446,15447,15448,15449,15450,15451, +15452,15453,15454,15455,15456,15457,15458,15459,15460,15461,15462,15463, +15464,15465,15466,15467,15468,15469,15470,15471,15472,15473,15474,15475, +15476,15477,15478,15479,15480,15481,15482,15483,15484,15485,15486,15487, +15488,15489,15490,15491,15492,15493,15494,15495,15496,15497,15498,15499, +15500,15501,15502,15503,15504,15505,15506,15507,15508,15509,15510,15511, +15512,15513,15514,15515,15516,15517,15518,15519,15520,15521,15522,15523, +15524,15525,15526,15527,15528,15529,15530,15531,15532,15533,15534,15535, +15536,15537,15538,15539,15540,15541,15542,15543,15544,15545,15546,15547, +15548,15549,15550,15551,15552,15553,15554,15555,15556,15557,15558,15559, +15560,15561,15562,15563,15564,15565,15566,15567,15568,15569,15570,15571, +15572,15573,15574,15575,15576,15577,15578,15579,15580,15581,15582,15583, +15584,15585,15586,15587,15588,15589,15590,15591,15592,15593,15594,15595, +15596,15597,15598,15599,15600,15601,15602,15603,15604,15605,15606,15607, +15608,15609,15610,15611,15612,15613,15614,15615,15616,15617,15618,15619, +15620,15621,15622,15623,15624,15625,15626,15627,15628,15629,15630,15631, +15632,15633,15634,15635,15636,15637,15638,15639,15640,15641,15642,15643, +15644,15645,15646,15647,15648,15649,15650,15651,15652,15653,15654,15655, +15656,15657,15658,15659,15660,15661,15662,15663,15664,15665,15666,15667, +15668,15669,15670,15671,15672,15673,15674,15675,15676,15677,15678,15679, +15680,15681,15682,15683,15684,15685,15686,15687,15688,15689,15690,15691, +15692,15693,15694,15695,15696,15697,15698,15699,15700,15701,15702,15703, +15704,15705,15706,15707,15708,15709,15710,15711,15712,15713,15714,15715, +15716,15717,15718,15719,15720,15721,15722,15723,15724,15725,15726,15727, +15728,15729,15730,15731,15732,15733,15734,15735,15736,15737,15738,15739, +15740,15741,15742,15743,15744,15745,15746,15747,15748,15749,15750,15751, +15752,15753,15754,15755,15756,15757,15758,15759,15760,15761,15762,15763, +15764,15765,15766,15767,15768,15769,15770,15771,15772,15773,15774,15775, +15776,15777,15778,15779,15780,15781,15782,15783,15784,15785,15786,15787, +15788,15789,15790,15791,15792,15793,15794,15795,15796,15797,15798,15799, +15800,15801,15802,15803,15804,15805,15806,15807,15808,15809,15810,15811, +15812,15813,15814,15815,15816,15817,15818,15819,15820,15821,15822,15823, +15824,15825,15826,15827,15828,15829,15830,15831,15832,15833,15834,15835, +15836,15837,15838,15839,15840,15841,15842,15843,15844,15845,15846,15847, +15848,15849,15850,15851,15852,15853,15854,15855,15856,15857,15858,15859, +15860,15861,15862,15863,15864,15865,15866,15867,15868,15869,15870,15871, +15872,15873,15874,15875,15876,15877,15878,15879,15880,15881,15882,15883, +15884,15885,15886,15887,15888,15889,15890,15891,15892,15893,15894,15895, +15896,15897,15898,15899,15900,15901,15902,15903,15904,15905,15906,15907, +15908,15909,15910,15911,15912,15913,15914,15915,15916,15917,15918,15919, +15920,15921,15922,15923,15924,15925,15926,15927,15928,15929,15930,15931, +15932,15933,15934,15935,15936,15937,15938,15939,15940,15941,15942,15943, +15944,15945,15946,15947,15948,15949,15950,15951,15952,15953,15954,15955, +15956,15957,15958,15959,15960,15961,15962,15963,15964,15965,15966,15967, +15968,15969,15970,15971,15972,15973,15974,15975,15976,15977,15978,15979, +15980,15981,15982,15983,15984,15985,15986,15987,15988,15989,15990,15991, +15992,15993,15994,15995,15996,15997,15998,15999,16000,16001,16002,16003, +16004,16005,16006,16007,16008,16009,16010,16011,16012,16013,16014,16015, +16016,16017,16018,16019,16020,16021,16022,16023,16024,16025,16026,16027, +16028,16029,16030,16031,16032,16033,16034,16035,16036,16037,16038,16039, +16040,16041,16042,16043,16044,16045,16046,16047,16048,16049,16050,16051, +16052,16053,16054,16055,16056,16057,16058,16059,16060,16061,16062,16063, +16064,16065,16066,16067,16068,16069,16070,16071,16072,16073,16074,16075, +16076,16077,16078,16079,16080,16081,16082,16083,16084,16085,16086,16087, +16088,16089,16090,16091,16092,16093,16094,16095,16096,16097,16098,16099, +16100,16101,16102,16103,16104,16105,16106,16107,16108,16109,16110,16111, +16112,16113,16114,16115,16116,16117,16118,16119,16120,16121,16122,16123, +16124,16125,16126,16127,16128,16129,16130,16131,16132,16133,16134,16135, +16136,16137,16138,16139,16140,16141,16142,16143,16144,16145,16146,16147, +16148,16149,16150,16151,16152,16153,16154,16155,16156,16157,16158,16159, +16160,16161,16162,16163,16164,16165,16166,16167,16168,16169,16170,16171, +16172,16173,16174,16175,16176,16177,16178,16179,16180,16181,16182,16183, +16184,16185,16186,16187,16188,16189,16190,16191,16192,16193,16194,16195, +16196,16197,16198,16199,16200,16201,16202,16203,16204,16205,16206,16207, +16208,16209,16210,16211,16212,16213,16214,16215,16216,16217,16218,16219, +16220,16221,16222,16223,16224,16225,16226,16227,16228,16229,16230,16231, +16232,16233,16234,16235,16236,16237,16238,16239,16240,16241,16242,16243, +16244,16245,16246,16247,16248,16249,16250,16251,16252,16253,16254,16255, +16256,16257,16258,16259,16260,16261,16262,16263,16264,16265,16266,16267, +16268,16269,16270,16271,16272,16273,16274,16275,16276,16277,16278,16279, +16280,16281,16282,16283,16284,16285,16286,16287,16288,16289,16290,16291, +16292,16293,16294,16295,16296,16297,16298,16299,16300,16301,16302,16303, +16304,16305,16306,16307,16308,16309,16310,16311,16312,16313,16314,16315, +16316,16317,16318,16319,16320,16321,16322,16323,16324,16325,16326,16327, +16328,16329,16330,16331,16332,16333,16334,16335,16336,16337,16338,16339, +16340,16341,16342,16343,16344,16345,16346,16347,16348,16349,16350,16351, +16352,16353,16354,16355,16356,16357,16358,16359,16360,16361,16362,16363, +16364,16365,16366,16367,16368,16369,16370,16371,16372,16373,16374,16375, +16376,16377,16378,16379,16380,16381,16382,16383,16384,16385,16386,16387, +16388,16389,16390,16391,16392,16393,16394,16395,16396,16397,16398,16399, +16400,16401,16402,16403,16404,16405,16406,16407,16408,16409,16410,16411, +16412,16413,16414,16415,16416,16417,16418,16419,16420,16421,16422,16423, +16424,16425,16426,16427,16428,16429,16430,16431,16432,16433,16434,16435, +16436,16437,16438,16439,16440,16441,16442,16443,16444,16445,16446,16447, +16448,16449,16450,16451,16452,16453,16454,16455,16456,16457,16458,16459, +16460,16461,16462,16463,16464,16465,16466,16467,16468,16469,16470,16471, +16472,16473,16474,16475,16476,16477,16478,16479,16480,16481,16482,16483, +16484,16485,16486,16487,16488,16489,16490,16491,16492,16493,16494,16495, +16496,16497,16498,16499,16500,16501,16502,16503,16504,16505,16506,16507, +16508,16509,16510,16511,16512,16513,16514,16515,16516,16517,16518,16519, +16520,16521,16522,16523,16524,16525,16526,16527,16528,16529,16530,16531, +16532,16533,16534,16535,16536,16537,16538,16539,16540,16541,16542,16543, +16544,16545,16546,16547,16548,16549,16550,16551,16552,16553,16554,16555, +16556,16557,16558,16559,16560,16561,16562,16563,16564,16565,16566,16567, +16568,16569,16570,16571,16572,16573,16574,16575,16576,16577,16578,16579, +16580,16581,16582,16583,16584,16585,16586,16587,16588,16589,16590,16591, +16592,16593,16594,16595,16596,16597,16598,16599,16600,16601,16602,16603, +16604,16605,16606,16607,16608,16609,16610,16611,16612,16613,16614,16615, +16616,16617,16618,16619,16620,16621,16622,16623,16624,16625,16626,16627, +16628,16629,16630,16631,16632,16633,16634,16635,16636,16637,16638,16639, +16640,16641,16642,16643,16644,16645,16646,16647,16648,16649,16650,16651, +16652,16653,16654,16655,16656,16657,16658,16659,16660,16661,16662,16663, +16664,16665,16666,16667,16668,16669,16670,16671,16672,16673,16674,16675, +16676,16677,16678,16679,16680,16681,16682,16683,16684,16685,16686,16687, +16688,16689,16690,16691,16692,16693,16694,16695,16696,16697,16698,16699, +16700,16701,16702,16703,16704,16705,16706,16707,16708,16709,16710,16711, +16712,16713,16714,16715,16716,16717,16718,16719,16720,16721,16722,16723, +16724,16725,16726,16727,16728,16729,16730,16731,16732,16733,16734,16735, +16736,16737,16738,16739,16740,16741,16742,16743,16744,16745,16746,16747, +16748,16749,16750,16751,16752,16753,16754,16755,16756,16757,16758,16759, +16760,16761,16762,16763,16764,16765,16766,16767,16768,16769,16770,16771, +16772,16773,16774,16775,16776,16777,16778,16779,16780,16781,16782,16783, +16784,16785,16786,16787,16788,16789,16790,16791,16792,16793,16794,16795, +16796,16797,16798,16799,16800,16801,16802,16803,16804,16805,16806,16807, +16808,16809,16810,16811,16812,16813,16814,16815,16816,16817,16818,16819, +16820,16821,16822,16823,16824,16825,16826,16827,16828,16829,16830,16831, +16832,16833,16834,16835,16836,16837,16838,16839,16840,16841,16842,16843, +16844,16845,16846,16847,16848,16849,16850,16851,16852,16853,16854,16855, +16856,16857,16858,16859,16860,16861,16862,16863,16864,16865,16866,16867, +16868,16869,16870,16871,16872,16873,16874,16875,16876,16877,16878,16879, +16880,16881,16882,16883,16884,16885,16886,16887,16888,16889,16890,16891, +16892,16893,16894,16895,16896,16897,16898,16899,16900,16901,16902,16903, +16904,16905,16906,16907,16908,16909,16910,16911,16912,16913,16914,16915, +16916,16917,16918,16919,16920,16921,16922,16923,16924,16925,16926,16927, +16928,16929,16930,16931,16932,16933,16934,16935,16936,16937,16938,16939, +16940,16941,16942,16943,16944,16945,16946,16947,16948,16949,16950,16951, +16952,16953,16954,16955,16956,16957,16958,16959,16960,16961,16962,16963, +16964,16965,16966,16967,16968,16969,16970,16971,16972,16973,16974,16975, +16976,16977,16978,16979,16980,16981,16982,16983,16984,16985,16986,16987, +16988,16989,16990,16991,16992,16993,16994,16995,16996,16997,16998,16999, +17000,17001,17002,17003,17004,17005,17006,17007,17008,17009,17010,17011, +17012,17013,17014,17015,17016,17017,17018,17019,17020,17021,17022,17023, +17024,17025,17026,17027,17028,17029,17030,17031,17032,17033,17034,17035, +17036,17037,17038,17039,17040,17041,17042,17043,17044,17045,17046,17047, +17048,17049,17050,17051,17052,17053,17054,17055,17056,17057,17058,17059, +17060,17061,17062,17063,17064,17065,17066,17067,17068,17069,17070,17071, +17072,17073,17074,17075,17076,17077,17078,17079,17080,17081,17082,17083, +17084,17085,17086,17087,17088,17089,17090,17091,17092,17093,17094,17095, +17096,17097,17098,17099,17100,17101,17102,17103,17104,17105,17106,17107, +17108,17109,17110,17111,17112,17113,17114,17115,17116,17117,17118,17119, +17120,17121,17122,17123,17124,17125,17126,17127,17128,17129,17130,17131, +17132,17133,17134,17135,17136,17137,17138,17139,17140,17141,17142,17143, +17144,17145,17146,17147,17148,17149,17150,17151,17152,17153,17154,17155, +17156,17157,17158,17159,17160,17161,17162,17163,17164,17165,17166,17167, +17168,17169,17170,17171,17172,17173,17174,17175,17176,17177,17178,17179, +17180,17181,17182,17183,17184,17185,17186,17187,17188,17189,17190,17191, +17192,17193,17194,17195,17196,17197,17198,17199,17200,17201,17202,17203, +17204,17205,17206,17207,17208,17209,17210,17211,17212,17213,17214,17215, +17216,17217,17218,17219,17220,17221,17222,17223,17224,17225,17226,17227, +17228,17229,17230,17231,17232,17233,17234,17235,17236,17237,17238,17239, +17240,17241,17242,17243,17244,17245,17246,17247,17248,17249,17250,17251, +17252,17253,17254,17255,17256,17257,17258,17259,17260,17261,17262,17263, +17264,17265,17266,17267,17268,17269,17270,17271,17272,17273,17274,17275, +17276,17277,17278,17279,17280,17281,17282,17283,17284,17285,17286,17287, +17288,17289,17290,17291,17292,17293,17294,17295,17296,17297,17298,17299, +17300,17301,17302,17303,17304,17305,17306,17307,17308,17309,17310,17311, +17312,17313,17314,17315,17316,17317,17318,17319,17320,17321,17322,17323, +17324,17325,17326,17327,17328,17329,17330,17331,17332,17333,17334,17335, +17336,17337,17338,17339,17340,17341,17342,17343,17344,17345,17346,17347, +17348,17349,17350,17351,17352,17353,17354,17355,17356,17357,17358,17359, +17360,17361,17362,17363,17364,17365,17366,17367,17368,17369,17370,17371, +17372,17373,17374,17375,17376,17377,17378,17379,17380,17381,17382,17383, +17384,17385,17386,17387,17388,17389,17390,17391,17392,17393,17394,17395, +17396,17397,17398,17399,17400,17401,17402,17403,17404,17405,17406,17407, +17408,17409,17410,17411,17412,17413,17414,17415,17416,17417,17418,17419, +17420,17421,17422,17423,17424,17425,17426,17427,17428,17429,17430,17431, +17432,17433,17434,17435,17436,17437,17438,17439,17440,17441,17442,17443, +17444,17445,17446,17447,17448,17449,17450,17451,17452,17453,17454,17455, +17456,17457,17458,17459,17460,17461,17462,17463,17464,17465,17466,17467, +17468,17469,17470,17471,17472,17473,17474,17475,17476,17477,17478,17479, +17480,17481,17482,17483,17484,17485,17486,17487,17488,17489,17490,17491, +17492,17493,17494,17495,17496,17497,17498,17499,17500,17501,17502,17503, +17504,17505,17506,17507,17508,17509,17510,17511,17512,17513,17514,17515, +17516,17517,17518,17519,17520,17521,17522,17523,17524,17525,17526,17527, +17528,17529,17530,17531,17532,17533,17534,17535,17536,17537,17538,17539, +17540,17541,17542,17543,17544,17545,17546,17547,17548,17549,17550,17551, +17552,17553,17554,17555,17556,17557,17558,17559,17560,17561,17562,17563, +17564,17565,17566,17567,17568,17569,17570,17571,17572,17573,17574,17575, +17576,17577,17578,17579,17580,17581,17582,17583,17584,17585,17586,17587, +17588,17589,17590,17591,17592,17593,17594,17595,17596,17597,17598,17599, +17600,17601,17602,17603,17604,17605,17606,17607,17608,17609,17610,17611, +17612,17613,17614,17615,17616,17617,17618,17619,17620,17621,17622,17623, +17624,17625,17626,17627,17628,17629,17630,17631,17632,17633,17634,17635, +17636,17637,17638,17639,17640,17641,17642,17643,17644,17645,17646,17647, +17648,17649,17650,17651,17652,17653,17654,17655,17656,17657,17658,17659, +17660,17661,17662,17663,17664,17665,17666,17667,17668,17669,17670,17671, +17672,17673,17674,17675,17676,17677,17678,17679,17680,17681,17682,17683, +17684,17685,17686,17687,17688,17689,17690,17691,17692,17693,17694,17695, +17696,17697,17698,17699,17700,17701,17702,17703,17704,17705,17706,17707, +17708,17709,17710,17711,17712,17713,17714,17715,17716,17717,17718,17719, +17720,17721,17722,17723,17724,17725,17726,17727,17728,17729,17730,17731, +17732,17733,17734,17735,17736,17737,17738,17739,17740,17741,17742,17743, +17744,17745,17746,17747,17748,17749,17750,17751,17752,17753,17754,17755, +17756,17757,17758,17759,17760,17761,17762,17763,17764,17765,17766,17767, +17768,17769,17770,17771,17772,17773,17774,17775,17776,17777,17778,17779, +17780,17781,17782,17783,17784,17785,17786,17787,17788,17789,17790,17791, +17792,17793,17794,17795,17796,17797,17798,17799,17800,17801,17802,17803, +17804,17805,17806,17807,17808,17809,17810,17811,17812,17813,17814,17815, +17816,17817,17818,17819,17820,17821,17822,17823,17824,17825,17826,17827, +17828,17829,17830,17831,17832,17833,17834,17835,17836,17837,17838,17839, +17840,17841,17842,17843,17844,17845,17846,17847,17848,17849,17850,17851, +17852,17853,17854,17855,17856,17857,17858,17859,17860,17861,17862,17863, +17864,17865,17866,17867,17868,17869,17870,17871,17872,17873,17874,17875, +17876,17877,17878,17879,17880,17881,17882,17883,17884,17885,17886,17887, +17888,17889,17890,17891,17892,17893,17894,17895,17896,17897,17898,17899, +17900,17901,17902,17903,17904,17905,17906,17907,17908,17909,17910,17911, +17912,17913,17914,17915,17916,17917,17918,17919,17920,17921,17922,17923, +17924,17925,17926,17927,17928,17929,17930,17931,17932,17933,17934,17935, +17936,17937,17938,17939,17940,17941,17942,17943,17944,17945,17946,17947, +17948,17949,17950,17951,17952,17953,17954,17955,17956,17957,17958,17959, +17960,17961,17962,17963,17964,17965,17966,17967,17968,17969,17970,17971, +17972,17973,17974,17975,17976,17977,17978,17979,17980,17981,17982,17983, +17984,17985,17986,17987,17988,17989,17990,17991,17992,17993,17994,17995, +17996,17997,17998,17999,18000,18001,18002,18003,18004,18005,18006,18007, +18008,18009,18010,18011,18012,18013,18014,18015,18016,18017,18018,18019, +18020,18021,18022,18023,18024,18025,18026,18027,18028,18029,18030,18031, +18032,18033,18034,18035,18036,18037,18038,18039,18040,18041,18042,18043, +18044,18045,18046,18047,18048,18049,18050,18051,18052,18053,18054,18055, +18056,18057,18058,18059,18060,18061,18062,18063,18064,18065,18066,18067, +18068,18069,18070,18071,18072,18073,18074,18075,18076,18077,18078,18079, +18080,18081,18082,18083,18084,18085,18086,18087,18088,18089,18090,18091, +18092,18093,18094,18095,18096,18097,18098,18099,18100,18101,18102,18103, +18104,18105,18106,18107,18108,18109,18110,18111,18112,18113,18114,18115, +18116,18117,18118,18119,18120,18121,18122,18123,18124,18125,18126,18127, +18128,18129,18130,18131,18132,18133,18134,18135,18136,18137,18138,18139, +18140,18141,18142,18143,18144,18145,18146,18147,18148,18149,18150,18151, +18152,18153,18154,18155,18156,18157,18158,18159,18160,18161,18162,18163, +18164,18165,18166,18167,18168,18169,18170,18171,18172,18173,18174,18175, +18176,18177,18178,18179,18180,18181,18182,18183,18184,18185,18186,18187, +18188,18189,18190,18191,18192,18193,18194,18195,18196,18197,18198,18199, +18200,18201,18202,18203,18204,18205,18206,18207,18208,18209,18210,18211, +18212,18213,18214,18215,18216,18217,18218,18219,18220,18221,18222,18223, +18224,18225,18226,18227,18228,18229,18230,18231,18232,18233,18234,18235, +18236,18237,18238,18239,18240,18241,18242,18243,18244,18245,18246,18247, +18248,18249,18250,18251,18252,18253,18254,18255,18256,18257,18258,18259, +18260,18261,18262,18263,18264,18265,18266,18267,18268,18269,18270,18271, +18272,18273,18274,18275,18276,18277,18278,18279,18280,18281,18282,18283, +18284,18285,18286,18287,18288,18289,18290,18291,18292,18293,18294,18295, +18296,18297,18298,18299,18300,18301,18302,18303,18304,18305,18306,18307, +18308,18309,18310,18311,18312,18313,18314,18315,18316,18317,18318,18319, +18320,18321,18322,18323,18324,18325,18326,18327,18328,18329,18330,18331, +18332,18333,18334,18335,18336,18337,18338,18339,18340,18341,18342,18343, +18344,18345,18346,18347,18348,18349,18350,18351,18352,18353,18354,18355, +18356,18357,18358,18359,18360,18361,18362,18363,18364,18365,18366,18367, +18368,18369,18370,18371,18372,18373,18374,18375,18376,18377,18378,18379, +18380,18381,18382,18383,18384,18385,18386,18387,18388,18389,18390,18391, +18392,18393,18394,18395,18396,18397,18398,18399,18400,18401,18402,18403, +18404,18405,18406,18407,18408,18409,18410,18411,18412,18413,18414,18415, +18416,18417,18418,18419,18420,18421,18422,18423,18424,18425,18426,18427, +18428,18429,18430,18431,18432,18433,18434,18435,18436,18437,18438,18439, +18440,18441,18442,18443,18444,18445,18446,18447,18448,18449,18450,18451, +18452,18453,18454,18455,18456,18457,18458,18459,18460,18461,18462,18463, +18464,18465,18466,18467,18468,18469,18470,18471,18472,18473,18474,18475, +18476,18477,18478,18479,18480,18481,18482,18483,18484,18485,18486,18487, +18488,18489,18490,18491,18492,18493,18494,18495,18496,18497,18498,18499, +18500,18501,18502,18503,18504,18505,18506,18507,18508,18509,18510,18511, +18512,18513,18514,18515,18516,18517,18518,18519,18520,18521,18522,18523, +18524,18525,18526,18527,18528,18529,18530,18531,18532,18533,18534,18535, +18536,18537,18538,18539,18540,18541,18542,18543,18544,18545,18546,18547, +18548,18549,18550,18551,18552,18553,18554,18555,18556,18557,18558,18559, +18560,18561,18562,18563,18564,18565,18566,18567,18568,18569,18570,18571, +18572,18573,18574,18575,18576,18577,18578,18579,18580,18581,18582,18583, +18584,18585,18586,18587,18588,18589,18590,18591,18592,18593,18594,18595, +18596,18597,18598,18599,18600,18601,18602,18603,18604,18605,18606,18607, +18608,18609,18610,18611,18612,18613,18614,18615,18616,18617,18618,18619, +18620,18621,18622,18623,18624,18625,18626,18627,18628,18629,18630,18631, +18632,18633,18634,18635,18636,18637,18638,18639,18640,18641,18642,18643, +18644,18645,18646,18647,18648,18649,18650,18651,18652,18653,18654,18655, +18656,18657,18658,18659,18660,18661,18662,18663,18664,18665,18666,18667, +18668,18669,18670,18671,18672,18673,18674,18675,18676,18677,18678,18679, +18680,18681,18682,18683,18684,18685,18686,18687,18688,18689,18690,18691, +18692,18693,18694,18695,18696,18697,18698,18699,18700,18701,18702,18703, +18704,18705,18706,18707,18708,18709,18710,18711,18712,18713,18714,18715, +18716,18717,18718,18719,18720,18721,18722,18723,18724,18725,18726,18727, +18728,18729,18730,18731,18732,18733,18734,18735,18736,18737,18738,18739, +18740,18741,18742,18743,18744,18745,18746,18747,18748,18749,18750,18751, +18752,18753,18754,18755,18756,18757,18758,18759,18760,18761,18762,18763, +18764,18765,18766,18767,18768,18769,18770,18771,18772,18773,18774,18775, +18776,18777,18778,18779,18780,18781,18782,18783,18784,18785,18786,18787, +18788,18789,18790,18791,18792,18793,18794,18795,18796,18797,18798,18799, +18800,18801,18802,18803,18804,18805,18806,18807,18808,18809,18810,18811, +18812,18813,18814,18815,18816,18817,18818,18819,18820,18821,18822,18823, +18824,18825,18826,18827,18828,18829,18830,18831,18832,18833,18834,18835, +18836,18837,18838,18839,18840,18841,18842,18843,18844,18845,18846,18847, +18848,18849,18850,18851,18852,18853,18854,18855,18856,18857,18858,18859, +18860,18861,18862,18863,18864,18865,18866,18867,18868,18869,18870,18871, +18872,18873,18874,18875,18876,18877,18878,18879,18880,18881,18882,18883, +18884,18885,18886,18887,18888,18889,18890,18891,18892,18893,18894,18895, +18896,18897,18898,18899,18900,18901,18902,18903,18904,18905,18906,18907, +18908,18909,18910,18911,18912,18913,18914,18915,18916,18917,18918,18919, +18920,18921,18922,18923,18924,18925,18926,18927,18928,18929,18930,18931, +18932,18933,18934,18935,18936,18937,18938,18939,18940,18941,18942,18943, +18944,18945,18946,18947,18948,18949,18950,18951,18952,18953,18954,18955, +18956,18957,18958,18959,18960,18961,18962,18963,18964,18965,18966,18967, +18968,18969,18970,18971,18972,18973,18974,18975,18976,18977,18978,18979, +18980,18981,18982,18983,18984,18985,18986,18987,18988,18989,18990,18991, +18992,18993,18994,18995,18996,18997,18998,18999,19000,19001,19002,19003, +19004,19005,19006,19007,19008,19009,19010,19011,19012,19013,19014,19015, +19016,19017,19018,19019,19020,19021,19022,19023,19024,19025,19026,19027, +19028,19029,19030,19031,19032,19033,19034,19035,19036,19037,19038,19039, +19040,19041,19042,19043,19044,19045,19046,19047,19048,19049,19050,19051, +19052,19053,19054,19055,19056,19057,19058,19059,19060,19061,19062,19063, +19064,19065,19066,19067,19068,19069,19070,19071,19072,19073,19074,19075, +19076,19077,19078,19079,19080,19081,19082,19083,19084,19085,19086,19087, +19088,19089,19090,19091,19092,19093,19094,19095,19096,19097,19098,19099, +19100,19101,19102,19103,19104,19105,19106,19107,19108,19109,19110,19111, +19112,19113,19114,19115,19116,19117,19118,19119,19120,19121,19122,19123, +19124,19125,19126,19127,19128,19129,19130,19131,19132,19133,19134,19135, +19136,19137,19138,19139,19140,19141,19142,19143,19144,19145,19146,19147, +19148,19149,19150,19151,19152,19153,19154,19155,19156,19157,19158,19159, +19160,19161,19162,19163,19164,19165,19166,19167,19168,19169,19170,19171, +19172,19173,19174,19175,19176,19177,19178,19179,19180,19181,19182,19183, +19184,19185,19186,19187,19188,19189,19190,19191,19192,19193,19194,19195, +19196,19197,19198,19199,19200,19201,19202,19203,19204,19205,19206,19207, +19208,19209,19210,19211,19212,19213,19214,19215,19216,19217,19218,19219, +19220,19221,19222,19223,19224,19225,19226,19227,19228,19229,19230,19231, +19232,19233,19234,19235,19236,19237,19238,19239,19240,19241,19242,19243, +19244,19245,19246,19247,19248,19249,19250,19251,19252,19253,19254,19255, +19256,19257,19258,19259,19260,19261,19262,19263,19264,19265,19266,19267, +19268,19269,19270,19271,19272,19273,19274,19275,19276,19277,19278,19279, +19280,19281,19282,19283,19284,19285,19286,19287,19288,19289,19290,19291, +19292,19293,19294,19295,19296,19297,19298,19299,19300,19301,19302,19303, +19304,19305,19306,19307,19308,19309,19310,19311,19312,19313,19314,19315, +19316,19317,19318,19319,19320,19321,19322,19323,19324,19325,19326,19327, +19328,19329,19330,19331,19332,19333,19334,19335,19336,19337,19338,19339, +19340,19341,19342,19343,19344,19345,19346,19347,19348,19349,19350,19351, +19352,19353,19354,19355,19356,19357,19358,19359,19360,19361,19362,19363, +19364,19365,19366,19367,19368,19369,19370,19371,19372,19373,19374,19375, +19376,19377,19378,19379,19380,19381,19382,19383,19384,19385,19386,19387, +19388,19389,19390,19391,19392,19393,19394,19395,19396,19397,19398,19399, +19400,19401,19402,19403,19404,19405,19406,19407,19408,19409,19410,19411, +19412,19413,19414,19415,19416,19417,19418,19419,19420,19421,19422,19423, +19424,19425,19426,19427,19428,19429,19430,19431,19432,19433,19434,19435, +19436,19437,19438,19439,19440,19441,19442,19443,19444,19445,19446,19447, +19448,19449,19450,19451,19452,19453,19454,19455,19456,19457,19458,19459, +19460,19461,19462,19463,19464,19465,19466,19467,19468,19469,19470,19471, +19472,19473,19474,19475,19476,19477,19478,19479,19480,19481,19482,19483, +19484,19485,19486,19487,19488,19489,19490,19491,19492,19493,19494,19495, +19496,19497,19498,19499,19500,19501,19502,19503,19504,19505,19506,19507, +19508,19509,19510,19511,19512,19513,19514,19515,19516,19517,19518,19519, +19520,19521,19522,19523,19524,19525,19526,19527,19528,19529,19530,19531, +19532,19533,19534,19535,19536,19537,19538,19539,19540,19541,19542,19543, +19544,19545,19546,19547,19548,19549,19550,19551,19552,19553,19554,19555, +19556,19557,19558,19559,19560,19561,19562,19563,19564,19565,19566,19567, +19568,19569,19570,19571,19572,19573,19574,19575,19576,19577,19578,19579, +19580,19581,19582,19583,19584,19585,19586,19587,19588,19589,19590,19591, +19592,19593,19594,19595,19596,19597,19598,19599,19600,19601,19602,19603, +19604,19605,19606,19607,19608,19609,19610,19611,19612,19613,19614,19615, +19616,19617,19618,19619,19620,19621,19622,19623,19624,19625,19626,19627, +19628,19629,19630,19631,19632,19633,19634,19635,19636,19637,19638,19639, +19640,19641,19642,19643,19644,19645,19646,19647,19648,19649,19650,19651, +19652,19653,19654,19655,19656,19657,19658,19659,19660,19661,19662,19663, +19664,19665,19666,19667,19668,19669,19670,19671,19672,19673,19674,19675, +19676,19677,19678,19679,19680,19681,19682,19683,19684,19685,19686,19687, +19688,19689,19690,19691,19692,19693,19694,19695,19696,19697,19698,19699, +19700,19701,19702,19703,19704,19705,19706,19707,19708,19709,19710,19711, +19712,19713,19714,19715,19716,19717,19718,19719,19720,19721,19722,19723, +19724,19725,19726,19727,19728,19729,19730,19731,19732,19733,19734,19735, +19736,19737,19738,19739,19740,19741,19742,19743,19744,19745,19746,19747, +19748,19749,19750,19751,19752,19753,19754,19755,19756,19757,19758,19759, +19760,19761,19762,19763,19764,19765,19766,19767,19768,19769,19770,19771, +19772,19773,19774,19775,19776,19777,19778,19779,19780,19781,19782,19783, +19784,19785,19786,19787,19788,19789,19790,19791,19792,19793,19794,19795, +19796,19797,19798,19799,19800,19801,19802,19803,19804,19805,19806,19807, +19808,19809,19810,19811,19812,19813,19814,19815,19816,19817,19818,19819, +19820,19821,19822,19823,19824,19825,19826,19827,19828,19829,19830,19831, +19832,19833,19834,19835,19836,19837,19838,19839,19840,19841,19842,19843, +19844,19845,19846,19847,19848,19849,19850,19851,19852,19853,19854,19855, +19856,19857,19858,19859,19860,19861,19862,19863,19864,19865,19866,19867, +19868,19869,19870,19871,19872,19873,19874,19875,19876,19877,19878,19879, +19880,19881,19882,19883,19884,19885,19886,19887,19888,19889,19890,19891, +19892,19893,19894,19895,19896,19897,19898,19899,19900,19901,19902,19903, +19904,19905,19906,19907,19908,19909,19910,19911,19912,19913,19914,19915, +19916,19917,19918,19919,19920,19921,19922,19923,19924,19925,19926,19927, +19928,19929,19930,19931,19932,19933,19934,19935,19936,19937,19938,19939, +19940,19941,19942,19943,19944,19945,19946,19947,19948,19949,19950,19951, +19952,19953,19954,19955,19956,19957,19958,19959,19960,19961,19962,19963, +19964,19965,19966,19967,19968,19969,19970,19971,19972,19973,19974,19975, +19976,19977,19978,19979,19980,19981,19982,19983,19984,19985,19986,19987, +19988,19989,19990,19991,19992,19993,19994,19995,19996,19997,19998,19999, +20000,20001,20002,20003,20004,20005,20006,20007,20008,20009,20010,20011, +20012,20013,20014,20015,20016,20017,20018,20019,20020,20021,20022,20023, +20024,20025,20026,20027,20028,20029,20030,20031,20032,20033,20034,20035, +20036,20037,20038,20039,20040,20041,20042,20043,20044,20045,20046,20047, +20048,20049,20050,20051,20052,20053,20054,20055,20056,20057,20058,20059, +20060,20061,20062,20063,20064,20065,20066,20067,20068,20069,20070,20071, +20072,20073,20074,20075,20076,20077,20078,20079,20080,20081,20082,20083, +20084,20085,20086,20087,20088,20089,20090,20091,20092,20093,20094,20095, +20096,20097,20098,20099,20100,20101,20102,20103,20104,20105,20106,20107, +20108,20109,20110,20111,20112,20113,20114,20115,20116,20117,20118,20119, +20120,20121,20122,20123,20124,20125,20126,20127,20128,20129,20130,20131, +20132,20133,20134,20135,20136,20137,20138,20139,20140,20141,20142,20143, +20144,20145,20146,20147,20148,20149,20150,20151,20152,20153,20154,20155, +20156,20157,20158,20159,20160,20161,20162,20163,20164,20165,20166,20167, +20168,20169,20170,20171,20172,20173,20174,20175,20176,20177,20178,20179, +20180,20181,20182,20183,20184,20185,20186,20187,20188,20189,20190,20191, +20192,20193,20194,20195,20196,20197,20198,20199,20200,20201,20202,20203, +20204,20205,20206,20207,20208,20209,20210,20211,20212,20213,20214,20215, +20216,20217,20218,20219,20220,20221,20222,20223,20224,20225,20226,20227, +20228,20229,20230,20231,20232,20233,20234,20235,20236,20237,20238,20239, +20240,20241,20242,20243,20244,20245,20246,20247,20248,20249,20250,20251, +20252,20253,20254,20255,20256,20257,20258,20259,20260,20261,20262,20263, +20264,20265,20266,20267,20268,20269,20270,20271,20272,20273,20274,20275, +20276,20277,20278,20279,20280,20281,20282,20283,20284,20285,20286,20287, +20288,20289,20290,20291,20292,20293,20294,20295,20296,20297,20298,20299, +20300,20301,20302,20303,20304,20305,20306,20307,20308,20309,20310,20311, +20312,20313,20314,20315,20316,20317,20318,20319,20320,20321,20322,20323, +20324,20325,20326,20327,20328,20329,20330,20331,20332,20333,20334,20335, +20336,20337,20338,20339,20340,20341,20342,20343,20344,20345,20346,20347, +20348,20349,20350,20351,20352,20353,20354,20355,20356,20357,20358,20359, +20360,20361,20362,20363,20364,20365,20366,20367,20368,20369,20370,20371, +20372,20373,20374,20375,20376,20377,20378,20379,20380,20381,20382,20383, +20384,20385,20386,20387,20388,20389,20390,20391,20392,20393,20394,20395, +20396,20397,20398,20399,20400,20401,20402,20403,20404,20405,20406,20407, +20408,20409,20410,20411,20412,20413,20414,20415,20416,20417,20418,20419, +20420,20421,20422,20423,20424,20425,20426,20427,20428,20429,20430,20431, +20432,20433,20434,20435,20436,20437,20438,20439,20440,20441,20442,20443, +20444,20445,20446,20447,20448,20449,20450,20451,20452,20453,20454,20455, +20456,20457,20458,20459,20460,20461,20462,20463,20464,20465,20466,20467, +20468,20469,20470,20471,20472,20473,20474,20475,20476,20477,20478,20479, +20480,20481,20482,20483,20484,20485,20486,20487,20488,20489,20490,20491, +20492,20493,20494,20495,20496,20497,20498,20499,20500,20501,20502,20503, +20504,20505,20506,20507,20508,20509,20510,20511,20512,20513,20514,20515, +20516,20517,20518,20519,20520,20521,20522,20523,20524,20525,20526,20527, +20528,20529,20530,20531,20532,20533,20534,20535,20536,20537,20538,20539, +20540,20541,20542,20543,20544,20545,20546,20547,20548,20549,20550,20551, +20552,20553,20554,20555,20556,20557,20558,20559,20560,20561,20562,20563, +20564,20565,20566,20567,20568,20569,20570,20571,20572,20573,20574,20575, +20576,20577,20578,20579,20580,20581,20582,20583,20584,20585,20586,20587, +20588,20589,20590,20591,20592,20593,20594,20595,20596,20597,20598,20599, +20600,20601,20602,20603,20604,20605,20606,20607,20608,20609,20610,20611, +20612,20613,20614,20615,20616,20617,20618,20619,20620,20621,20622,20623, +20624,20625,20626,20627,20628,20629,20630,20631,20632,20633,20634,20635, +20636,20637,20638,20639,20640,20641,20642,20643,20644,20645,20646,20647, +20648,20649,20650,20651,20652,20653,20654,20655,20656,20657,20658,20659, +20660,20661,20662,20663,20664,20665,20666,20667,20668,20669,20670,20671, +20672,20673,20674,20675,20676,20677,20678,20679,20680,20681,20682,20683, +20684,20685,20686,20687,20688,20689,20690,20691,20692,20693,20694,20695, +20696,20697,20698,20699,20700,20701,20702,20703,20704,20705,20706,20707, +20708,20709,20710,20711,20712,20713,20714,20715,20716,20717,20718,20719, +20720,20721,20722,20723,20724,20725,20726,20727,20728,20729,20730,20731, +20732,20733,20734,20735,20736,20737,20738,20739,20740,20741,20742,20743, +20744,20745,20746,20747,20748,20749,20750,20751,20752,20753,20754,20755, +20756,20757,20758,20759,20760,20761,20762,20763,20764,20765,20766,20767, +20768,20769,20770,20771,20772,20773,20774,20775,20776,20777,20778,20779, +20780,20781,20782,20783,20784,20785,20786,20787,20788,20789,20790,20791, +20792,20793,20794,20795,20796,20797,20798,20799,20800,20801,20802,20803, +20804,20805,20806,20807,20808,20809,20810,20811,20812,20813,20814,20815, +20816,20817,20818,20819,20820,20821,20822,20823,20824,20825,20826,20827, +20828,20829,20830,20831,20832,20833,20834,20835,20836,20837,20838,20839, +20840,20841,20842,20843,20844,20845,20846,20847,20848,20849,20850,20851, +20852,20853,20854,20855,20856,20857,20858,20859,20860,20861,20862,20863, +20864,20865,20866,20867,20868,20869,20870,20871,20872,20873,20874,20875, +20876,20877,20878,20879,20880,20881,20882,20883,20884,20885,20886,20887, +20888,20889,20890,20891,20892,20893,20894,20895,20896,20897,20898,20899, +20900,20901,20902,20903,20904,20905,20906,20907,20908,20909,20910,20911, +20912,20913,20914,20915,20916,20917,20918,20919,20920,20921,20922,20923, +20924,20925,20926,20927,20928,20929,20930,20931,20932,20933,20934,20935, +20936,20937,20938,20939,20940,20941,20942,20943,20944,20945,20946,20947, +20948,20949,20950,20951,20952,20953,20954,20955,20956,20957,20958,20959, +20960,20961,20962,20963,20964,20965,20966,20967,20968,20969,20970,20971, +20972,20973,20974,20975,20976,20977,20978,20979,20980,20981,20982,20983, +20984,20985,20986,20987,20988,20989,20990,20991,20992,20993,20994,20995, +20996,20997,20998,20999,21000,21001,21002,21003,21004,21005,21006,21007, +21008,21009,21010,21011,21012,21013,21014,21015,21016,21017,21018,21019, +21020,21021,21022,21023,21024,21025,21026,21027,21028,21029,21030,21031, +21032,21033,21034,21035,21036,21037,21038,21039,21040,21041,21042,21043, +21044,21045,21046,21047,21048,21049,21050,21051,21052,21053,21054,21055, +21056,21057,21058,21059,21060,21061,21062,21063,21064,21065,21066,21067, +21068,21069,21070,21071,21072,21073,21074,21075,21076,21077,21078,21079, +21080,21081,21082,21083,21084,21085,21086,21087,21088,21089,21090,21091, +21092,21093,21094,21095,21096,21097,21098,21099,21100,21101,21102,21103, +21104,21105,21106,21107,21108,21109,21110,21111,21112,21113,21114,21115, +21116,21117,21118,21119,21120,21121,21122,21123,21124,21125,21126,21127, +21128,21129,21130,21131,21132,21133,21134,21135,21136,21137,21138,21139, +21140,21141,21142,21143,21144,21145,21146,21147,21148,21149,21150,21151, +21152,21153,21154,21155,21156,21157,21158,21159,21160,21161,21162,21163, +21164,21165,21166,21167,21168,21169,21170,21171,21172,21173,21174,21175, +21176,21177,21178,21179,21180,21181,21182,21183,21184,21185,21186,21187, +21188,21189,21190,21191,21192,21193,21194,21195,21196,21197,21198,21199, +21200,21201,21202,21203,21204,21205,21206,21207,21208,21209,21210,21211, +21212,21213,21214,21215,21216,21217,21218,21219,21220,21221,21222,21223, +21224,21225,21226,21227,21228,21229,21230,21231,21232,21233,21234,21235, +21236,21237,21238,21239,21240,21241,21242,21243,21244,21245,21246,21247, +21248,21249,21250,21251,21252,21253,21254,21255,21256,21257,21258,21259, +21260,21261,21262,21263,21264,21265,21266,21267,21268,21269,21270,21271, +21272,21273,21274,21275,21276,21277,21278,21279,21280,21281,21282,21283, +21284,21285,21286,21287,21288,21289,21290,21291,21292,21293,21294,21295, +21296,21297,21298,21299,21300,21301,21302,21303,21304,21305,21306,21307, +21308,21309,21310,21311,21312,21313,21314,21315,21316,21317,21318,21319, +21320,21321,21322,21323,21324,21325,21326,21327,21328,21329,21330,21331, +21332,21333,21334,21335,21336,21337,21338,21339,21340,21341,21342,21343, +21344,21345,21346,21347,21348,21349,21350,21351,21352,21353,21354,21355, +21356,21357,21358,21359,21360,21361,21362,21363,21364,21365,21366,21367, +21368,21369,21370,21371,21372,21373,21374,21375,21376,21377,21378,21379, +21380,21381,21382,21383,21384,21385,21386,21387,21388,21389,21390,21391, +21392,21393,21394,21395,21396,21397,21398,21399,21400,21401,21402,21403, +21404,21405,21406,21407,21408,21409,21410,21411,21412,21413,21414,21415, +21416,21417,21418,21419,21420,21421,21422,21423,21424,21425,21426,21427, +21428,21429,21430,21431,21432,21433,21434,21435,21436,21437,21438,21439, +21440,21441,21442,21443,21444,21445,21446,21447,21448,21449,21450,21451, +21452,21453,21454,21455,21456,21457,21458,21459,21460,21461,21462,21463, +21464,21465,21466,21467,21468,21469,21470,21471,21472,21473,21474,21475, +21476,21477,21478,21479,21480,21481,21482,21483,21484,21485,21486,21487, +21488,21489,21490,21491,21492,21493,21494,21495,21496,21497,21498,21499, +21500,21501,21502,21503,21504,21505,21506,21507,21508,21509,21510,21511, +21512,21513,21514,21515,21516,21517,21518,21519,21520,21521,21522,21523, +21524,21525,21526,21527,21528,21529,21530,21531,21532,21533,21534,21535, +21536,21537,21538,21539,21540,21541,21542,21543,21544,21545,21546,21547, +21548,21549,21550,21551,21552,21553,21554,21555,21556,21557,21558,21559, +21560,21561,21562,21563,21564,21565,21566,21567,21568,21569,21570,21571, +21572,21573,21574,21575,21576,21577,21578,21579,21580,21581,21582,21583, +21584,21585,21586,21587,21588,21589,21590,21591,21592,21593,21594,21595, +21596,21597,21598,21599,21600,21601,21602,21603,21604,21605,21606,21607, +21608,21609,21610,21611,21612,21613,21614,21615,21616,21617,21618,21619, +21620,21621,21622,21623,21624,21625,21626,21627,21628,21629,21630,21631, +21632,21633,21634,21635,21636,21637,21638,21639,21640,21641,21642,21643, +21644,21645,21646,21647,21648,21649,21650,21651,21652,21653,21654,21655, +21656,21657,21658,21659,21660,21661,21662,21663,21664,21665,21666,21667, +21668,21669,21670,21671,21672,21673,21674,21675,21676,21677,21678,21679, +21680,21681,21682,21683,21684,21685,21686,21687,21688,21689,21690,21691, +21692,21693,21694,21695,21696,21697,21698,21699,21700,21701,21702,21703, +21704,21705,21706,21707,21708,21709,21710,21711,21712,21713,21714,21715, +21716,21717,21718,21719,21720,21721,21722,21723,21724,21725,21726,21727, +21728,21729,21730,21731,21732,21733,21734,21735,21736,21737,21738,21739, +21740,21741,21742,21743,21744,21745,21746,21747,21748,21749,21750,21751, +21752,21753,21754,21755,21756,21757,21758,21759,21760,21761,21762,21763, +21764,21765,21766,21767,21768,21769,21770,21771,21772,21773,21774,21775, +21776,21777,21778,21779,21780,21781,21782,21783,21784,21785,21786,21787, +21788,21789,21790,21791,21792,21793,21794,21795,21796,21797,21798,21799, +21800,21801,21802,21803,21804,21805,21806,21807,21808,21809,21810,21811, +21812,21813,21814,21815,21816,21817,21818,21819,21820,21821,21822,21823, +21824,21825,21826,21827,21828,21829,21830,21831,21832,21833,21834,21835, +21836,21837,21838,21839,21840,21841,21842,21843,21844,21845,21846,21847, +21848,21849,21850,21851,21852,21853,21854,21855,21856,21857,21858,21859, +21860,21861,21862,21863,21864,21865,21866,21867,21868,21869,21870,21871, +21872,21873,21874,21875,21876,21877,21878,21879,21880,21881,21882,21883, +21884,21885,21886,21887,21888,21889,21890,21891,21892,21893,21894,21895, +21896,21897,21898,21899,21900,21901,21902,21903,21904,21905,21906,21907, +21908,21909,21910,21911,21912,21913,21914,21915,21916,21917,21918,21919, +21920,21921,21922,21923,21924,21925,21926,21927,21928,21929,21930,21931, +21932,21933,21934,21935,21936,21937,21938,21939,21940,21941,21942,21943, +21944,21945,21946,21947,21948,21949,21950,21951,21952,21953,21954,21955, +21956,21957,21958,21959,21960,21961,21962,21963,21964,21965,21966,21967, +21968,21969,21970,21971,21972,21973,21974,21975,21976,21977,21978,21979, +21980,21981,21982,21983,21984,21985,21986,21987,21988,21989,21990,21991, +21992,21993,21994,21995,21996,21997,21998,21999,22000,22001,22002,22003, +22004,22005,22006,22007,22008,22009,22010,22011,22012,22013,22014,22015, +22016,22017,22018,22019,22020,22021,22022,22023,22024,22025,22026,22027, +22028,22029,22030,22031,22032,22033,22034,22035,22036,22037,22038,22039, +22040,22041,22042,22043,22044,22045,22046,22047,22048,22049,22050,22051, +22052,22053,22054,22055,22056,22057,22058,22059,22060,22061,22062,22063, +22064,22065,22066,22067,22068,22069,22070,22071,22072,22073,22074,22075, +22076,22077,22078,22079,22080,22081,22082,22083,22084,22085,22086,22087, +22088,22089,22090,22091,22092,22093,22094,22095,22096,22097,22098,22099, +22100,22101,22102,22103,22104,22105,22106,22107,22108,22109,22110,22111, +22112,22113,22114,22115,22116,22117,22118,22119,22120,22121,22122,22123, +22124,22125,22126,22127,22128,22129,22130,22131,22132,22133,22134,22135, +22136,22137,22138,22139,22140,22141,22142,22143,22144,22145,22146,22147, +22148,22149,22150,22151,22152,22153,22154,22155,22156,22157,22158,22159, +22160,22161,22162,22163,22164,22165,22166,22167,22168,22169,22170,22171, +22172,22173,22174,22175,22176,22177,22178,22179,22180,22181,22182,22183, +22184,22185,22186,22187,22188,22189,22190,22191,22192,22193,22194,22195, +22196,22197,22198,22199,22200,22201,22202,22203,22204,22205,22206,22207, +22208,22209,22210,22211,22212,22213,22214,22215,22216,22217,22218,22219, +22220,22221,22222,22223,22224,22225,22226,22227,22228,22229,22230,22231, +22232,22233,22234,22235,22236,22237,22238,22239,22240,22241,22242,22243, +22244,22245,22246,22247,22248,22249,22250,22251,22252,22253,22254,22255, +22256,22257,22258,22259,22260,22261,22262,22263,22264,22265,22266,22267, +22268,22269,22270,22271,22272,22273,22274,22275,22276,22277,22278,22279, +22280,22281,22282,22283,22284,22285,22286,22287,22288,22289,22290,22291, +22292,22293,22294,22295,22296,22297,22298,22299,22300,22301,22302,22303, +22304,22305,22306,22307,22308,22309,22310,22311,22312,22313,22314,22315, +22316,22317,22318,22319,22320,22321,22322,22323,22324,22325,22326,22327, +22328,22329,22330,22331,22332,22333,22334,22335,22336,22337,22338,22339, +22340,22341,22342,22343,22344,22345,22346,22347,22348,22349,22350,22351, +22352,22353,22354,22355,22356,22357,22358,22359,22360,22361,22362,22363, +22364,22365,22366,22367,22368,22369,22370,22371,22372,22373,22374,22375, +22376,22377,22378,22379,22380,22381,22382,22383,22384,22385,22386,22387, +22388,22389,22390,22391,22392,22393,22394,22395,22396,22397,22398,22399, +22400,22401,22402,22403,22404,22405,22406,22407,22408,22409,22410,22411, +22412,22413,22414,22415,22416,22417,22418,22419,22420,22421,22422,22423, +22424,22425,22426,22427,22428,22429,22430,22431,22432,22433,22434,22435, +22436,22437,22438,22439,22440,22441,22442,22443,22444,22445,22446,22447, +22448,22449,22450,22451,22452,22453,22454,22455,22456,22457,22458,22459, +22460,22461,22462,22463,22464,22465,22466,22467,22468,22469,22470,22471, +22472,22473,22474,22475,22476,22477,22478,22479,22480,22481,22482,22483, +22484,22485,22486,22487,22488,22489,22490,22491,22492,22493,22494,22495, +22496,22497,22498,22499,22500,22501,22502,22503,22504,22505,22506,22507, +22508,22509,22510,22511,22512,22513,22514,22515,22516,22517,22518,22519, +22520,22521,22522,22523,22524,22525,22526,22527,22528,22529,22530,22531, +22532,22533,22534,22535,22536,22537,22538,22539,22540,22541,22542,22543, +22544,22545,22546,22547,22548,22549,22550,22551,22552,22553,22554,22555, +22556,22557,22558,22559,22560,22561,22562,22563,22564,22565,22566,22567, +22568,22569,22570,22571,22572,22573,22574,22575,22576,22577,22578,22579, +22580,22581,22582,22583,22584,22585,22586,22587,22588,22589,22590,22591, +22592,22593,22594,22595,22596,22597,22598,22599,22600,22601,22602,22603, +22604,22605,22606,22607,22608,22609,22610,22611,22612,22613,22614,22615, +22616,22617,22618,22619,22620,22621,22622,22623,22624,22625,22626,22627, +22628,22629,22630,22631,22632,22633,22634,22635,22636,22637,22638,22639, +22640,22641,22642,22643,22644,22645,22646,22647,22648,22649,22650,22651, +22652,22653,22654,22655,22656,22657,22658,22659,22660,22661,22662,22663, +22664,22665,22666,22667,22668,22669,22670,22671,22672,22673,22674,22675, +22676,22677,22678,22679,22680,22681,22682,22683,22684,22685,22686,22687, +22688,22689,22690,22691,22692,22693,22694,22695,22696,22697,22698,22699, +22700,22701,22702,22703,22704,22705,22706,22707,22708,22709,22710,22711, +22712,22713,22714,22715,22716,22717,22718,22719,22720,22721,22722,22723, +22724,22725,22726,22727,22728,22729,22730,22731,22732,22733,22734,22735, +22736,22737,22738,22739,22740,22741,22742,22743,22744,22745,22746,22747, +22748,22749,22750,22751,22752,22753,22754,22755,22756,22757,22758,22759, +22760,22761,22762,22763,22764,22765,22766,22767,22768,22769,22770,22771, +22772,22773,22774,22775,22776,22777,22778,22779,22780,22781,22782,22783, +22784,22785,22786,22787,22788,22789,22790,22791,22792,22793,22794,22795, +22796,22797,22798,22799,22800,22801,22802,22803,22804,22805,22806,22807, +22808,22809,22810,22811,22812,22813,22814,22815,22816,22817,22818,22819, +22820,22821,22822,22823,22824,22825,22826,22827,22828,22829,22830,22831, +22832,22833,22834,22835,22836,22837,22838,22839,22840,22841,22842,22843, +22844,22845,22846,22847,22848,22849,22850,22851,22852,22853,22854,22855, +22856,22857,22858,22859,22860,22861,22862,22863,22864,22865,22866,22867, +22868,22869,22870,22871,22872,22873,22874,22875,22876,22877,22878,22879, +22880,22881,22882,22883,22884,22885,22886,22887,22888,22889,22890,22891, +22892,22893,22894,22895,22896,22897,22898,22899,22900,22901,22902,22903, +22904,22905,22906,22907,22908,22909,22910,22911,22912,22913,22914,22915, +22916,22917,22918,22919,22920,22921,22922,22923,22924,22925,22926,22927, +22928,22929,22930,22931,22932,22933,22934,22935,22936,22937,22938,22939, +22940,22941,22942,22943,22944,22945,22946,22947,22948,22949,22950,22951, +22952,22953,22954,22955,22956,22957,22958,22959,22960,22961,22962,22963, +22964,22965,22966,22967,22968,22969,22970,22971,22972,22973,22974,22975, +22976,22977,22978,22979,22980,22981,22982,22983,22984,22985,22986,22987, +22988,22989,22990,22991,22992,22993,22994,22995,22996,22997,22998,22999, +23000,23001,23002,23003,23004,23005,23006,23007,23008,23009,23010,23011, +23012,23013,23014,23015,23016,23017,23018,23019,23020,23021,23022,23023, +23024,23025,23026,23027,23028,23029,23030,23031,23032,23033,23034,23035, +23036,23037,23038,23039,23040,23041,23042,23043,23044,23045,23046,23047, +23048,23049,23050,23051,23052,23053,23054,23055,23056,23057,23058,23059, +23060,23061,23062,23063,23064,23065,23066,23067,23068,23069,23070,23071, +23072,23073,23074,23075,23076,23077,23078,23079,23080,23081,23082,23083, +23084,23085,23086,23087,23088,23089,23090,23091,23092,23093,23094,23095, +23096,23097,23098,23099,23100,23101,23102,23103,23104,23105,23106,23107, +23108,23109,23110,23111,23112,23113,23114,23115,23116,23117,23118,23119, +23120,23121,23122,23123,23124,23125,23126,23127,23128,23129,23130,23131, +23132,23133,23134,23135,23136,23137,23138,23139,23140,23141,23142,23143, +23144,23145,23146,23147,23148,23149,23150,23151,23152,23153,23154,23155, +23156,23157,23158,23159,23160,23161,23162,23163,23164,23165,23166,23167, +23168,23169,23170,23171,23172,23173,23174,23175,23176,23177,23178,23179, +23180,23181,23182,23183,23184,23185,23186,23187,23188,23189,23190,23191, +23192,23193,23194,23195,23196,23197,23198,23199,23200,23201,23202,23203, +23204,23205,23206,23207,23208,23209,23210,23211,23212,23213,23214,23215, +23216,23217,23218,23219,23220,23221,23222,23223,23224,23225,23226,23227, +23228,23229,23230,23231,23232,23233,23234,23235,23236,23237,23238,23239, +23240,23241,23242,23243,23244,23245,23246,23247,23248,23249,23250,23251, +23252,23253,23254,23255,23256,23257,23258,23259,23260,23261,23262,23263, +23264,23265,23266,23267,23268,23269,23270,23271,23272,23273,23274,23275, +23276,23277,23278,23279,23280,23281,23282,23283,23284,23285,23286,23287, +23288,23289,23290,23291,23292,23293,23294,23295,23296,23297,23298,23299, +23300,23301,23302,23303,23304,23305,23306,23307,23308,23309,23310,23311, +23312,23313,23314,23315,23316,23317,23318,23319,23320,23321,23322,23323, +23324,23325,23326,23327,23328,23329,23330,23331,23332,23333,23334,23335, +23336,23337,23338,23339,23340,23341,23342,23343,23344,23345,23346,23347, +23348,23349,23350,23351,23352,23353,23354,23355,23356,23357,23358,23359, +23360,23361,23362,23363,23364,23365,23366,23367,23368,23369,23370,23371, +23372,23373,23374,23375,23376,23377,23378,23379,23380,23381,23382,23383, +23384,23385,23386,23387,23388,23389,23390,23391,23392,23393,23394,23395, +23396,23397,23398,23399,23400,23401,23402,23403,23404,23405,23406,23407, +23408,23409,23410,23411,23412,23413,23414,23415,23416,23417,23418,23419, +23420,23421,23422,23423,23424,23425,23426,23427,23428,23429,23430,23431, +23432,23433,23434,23435,23436,23437,23438,23439,23440,23441,23442,23443, +23444,23445,23446,23447,23448,23449,23450,23451,23452,23453,23454,23455, +23456,23457,23458,23459,23460,23461,23462,23463,23464,23465,23466,23467, +23468,23469,23470,23471,23472,23473,23474,23475,23476,23477,23478,23479, +23480,23481,23482,23483,23484,23485,23486,23487,23488,23489,23490,23491, +23492,23493,23494,23495,23496,23497,23498,23499,23500,23501,23502,23503, +23504,23505,23506,23507,23508,23509,23510,23511,23512,23513,23514,23515, +23516,23517,23518,23519,23520,23521,23522,23523,23524,23525,23526,23527, +23528,23529,23530,23531,23532,23533,23534,23535,23536,23537,23538,23539, +23540,23541,23542,23543,23544,23545,23546,23547,23548,23549,23550,23551, +23552,23553,23554,23555,23556,23557,23558,23559,23560,23561,23562,23563, +23564,23565,23566,23567,23568,23569,23570,23571,23572,23573,23574,23575, +23576,23577,23578,23579,23580,23581,23582,23583,23584,23585,23586,23587, +23588,23589,23590,23591,23592,23593,23594,23595,23596,23597,23598,23599, +23600,23601,23602,23603,23604,23605,23606,23607,23608,23609,23610,23611, +23612,23613,23614,23615,23616,23617,23618,23619,23620,23621,23622,23623, +23624,23625,23626,23627,23628,23629,23630,23631,23632,23633,23634,23635, +23636,23637,23638,23639,23640,23641,23642,23643,23644,23645,23646,23647, +23648,23649,23650,23651,23652,23653,23654,23655,23656,23657,23658,23659, +23660,23661,23662,23663,23664,23665,23666,23667,23668,23669,23670,23671, +23672,23673,23674,23675,23676,23677,23678,23679,23680,23681,23682,23683, +23684,23685,23686,23687,23688,23689,23690,23691,23692,23693,23694,23695, +23696,23697,23698,23699,23700,23701,23702,23703,23704,23705,23706,23707, +23708,23709,23710,23711,23712,23713,23714,23715,23716,23717,23718,23719, +23720,23721,23722,23723,23724,23725,23726,23727,23728,23729,23730,23731, +23732,23733,23734,23735,23736,23737,23738,23739,23740,23741,23742,23743, +23744,23745,23746,23747,23748,23749,23750,23751,23752,23753,23754,23755, +23756,23757,23758,23759,23760,23761,23762,23763,23764,23765,23766,23767, +23768,23769,23770,23771,23772,23773,23774,23775,23776,23777,23778,23779, +23780,23781,23782,23783,23784,23785,23786,23787,23788,23789,23790,23791, +23792,23793,23794,23795,23796,23797,23798,23799,23800,23801,23802,23803, +23804,23805,23806,23807,23808,23809,23810,23811,23812,23813,23814,23815, +23816,23817,23818,23819,23820,23821,23822,23823,23824,23825,23826,23827, +23828,23829,23830,23831,23832,23833,23834,23835,23836,23837,23838,23839, +23840,23841,23842,23843,23844,23845,23846,23847,23848,23849,23850,23851, +23852,23853,23854,23855,23856,23857,23858,23859,23860,23861,23862,23863, +23864,23865,23866,23867,23868,23869,23870,23871,23872,23873,23874,23875, +23876,23877,23878,23879,23880,23881,23882,23883,23884,23885,23886,23887, +23888,23889,23890,23891,23892,23893,23894,23895,23896,23897,23898,23899, +23900,23901,23902,23903,23904,23905,23906,23907,23908,23909,23910,23911, +23912,23913,23914,23915,23916,23917,23918,23919,23920,23921,23922,23923, +23924,23925,23926,23927,23928,23929,23930,23931,23932,23933,23934,23935, +23936,23937,23938,23939,23940,23941,23942,23943,23944,23945,23946,23947, +23948,23949,23950,23951,23952,23953,23954,23955,23956,23957,23958,23959, +23960,23961,23962,23963,23964,23965,23966,23967,23968,23969,23970,23971, +23972,23973,23974,23975,23976,23977,23978,23979,23980,23981,23982,23983, +23984,23985,23986,23987,23988,23989,23990,23991,23992,23993,23994,23995, +23996,23997,23998,23999,24000,24001,24002,24003,24004,24005,24006,24007, +24008,24009,24010,24011,24012,24013,24014,24015,24016,24017,24018,24019, +24020,24021,24022,24023,24024,24025,24026,24027,24028,24029,24030,24031, +24032,24033,24034,24035,24036,24037,24038,24039,24040,24041,24042,24043, +24044,24045,24046,24047,24048,24049,24050,24051,24052,24053,24054,24055, +24056,24057,24058,24059,24060,24061,24062,24063,24064,24065,24066,24067, +24068,24069,24070,24071,24072,24073,24074,24075,24076,24077,24078,24079, +24080,24081,24082,24083,24084,24085,24086,24087,24088,24089,24090,24091, +24092,24093,24094,24095,24096,24097,24098,24099,24100,24101,24102,24103, +24104,24105,24106,24107,24108,24109,24110,24111,24112,24113,24114,24115, +24116,24117,24118,24119,24120,24121,24122,24123,24124,24125,24126,24127, +24128,24129,24130,24131,24132,24133,24134,24135,24136,24137,24138,24139, +24140,24141,24142,24143,24144,24145,24146,24147,24148,24149,24150,24151, +24152,24153,24154,24155,24156,24157,24158,24159,24160,24161,24162,24163, +24164,24165,24166,24167,24168,24169,24170,24171,24172,24173,24174,24175, +24176,24177,24178,24179,24180,24181,24182,24183,24184,24185,24186,24187, +24188,24189,24190,24191,24192,24193,24194,24195,24196,24197,24198,24199, +24200,24201,24202,24203,24204,24205,24206,24207,24208,24209,24210,24211, +24212,24213,24214,24215,24216,24217,24218,24219,24220,24221,24222,24223, +24224,24225,24226,24227,24228,24229,24230,24231,24232,24233,24234,24235, +24236,24237,24238,24239,24240,24241,24242,24243,24244,24245,24246,24247, +24248,24249,24250,24251,24252,24253,24254,24255,24256,24257,24258,24259, +24260,24261,24262,24263,24264,24265,24266,24267,24268,24269,24270,24271, +24272,24273,24274,24275,24276,24277,24278,24279,24280,24281,24282,24283, +24284,24285,24286,24287,24288,24289,24290,24291,24292,24293,24294,24295, +24296,24297,24298,24299,24300,24301,24302,24303,24304,24305,24306,24307, +24308,24309,24310,24311,24312,24313,24314,24315,24316,24317,24318,24319, +24320,24321,24322,24323,24324,24325,24326,24327,24328,24329,24330,24331, +24332,24333,24334,24335,24336,24337,24338,24339,24340,24341,24342,24343, +24344,24345,24346,24347,24348,24349,24350,24351,24352,24353,24354,24355, +24356,24357,24358,24359,24360,24361,24362,24363,24364,24365,24366,24367, +24368,24369,24370,24371,24372,24373,24374,24375,24376,24377,24378,24379, +24380,24381,24382,24383,24384,24385,24386,24387,24388,24389,24390,24391, +24392,24393,24394,24395,24396,24397,24398,24399,24400,24401,24402,24403, +24404,24405,24406,24407,24408,24409,24410,24411,24412,24413,24414,24415, +24416,24417,24418,24419,24420,24421,24422,24423,24424,24425,24426,24427, +24428,24429,24430,24431,24432,24433,24434,24435,24436,24437,24438,24439, +24440,24441,24442,24443,24444,24445,24446,24447,24448,24449,24450,24451, +24452,24453,24454,24455,24456,24457,24458,24459,24460,24461,24462,24463, +24464,24465,24466,24467,24468,24469,24470,24471,24472,24473,24474,24475, +24476,24477,24478,24479,24480,24481,24482,24483,24484,24485,24486,24487, +24488,24489,24490,24491,24492,24493,24494,24495,24496,24497,24498,24499, +24500,24501,24502,24503,24504,24505,24506,24507,24508,24509,24510,24511, +24512,24513,24514,24515,24516,24517,24518,24519,24520,24521,24522,24523, +24524,24525,24526,24527,24528,24529,24530,24531,24532,24533,24534,24535, +24536,24537,24538,24539,24540,24541,24542,24543,24544,24545,24546,24547, +24548,24549,24550,24551,24552,24553,24554,24555,24556,24557,24558,24559, +24560,24561,24562,24563,24564,24565,24566,24567,24568,24569,24570,24571, +24572,24573,24574,24575,24576,24577,24578,24579,24580,24581,24582,24583, +24584,24585,24586,24587,24588,24589,24590,24591,24592,24593,24594,24595, +24596,24597,24598,24599,24600,24601,24602,24603,24604,24605,24606,24607, +24608,24609,24610,24611,24612,24613,24614,24615,24616,24617,24618,24619, +24620,24621,24622,24623,24624,24625,24626,24627,24628,24629,24630,24631, +24632,24633,24634,24635,24636,24637,24638,24639,24640,24641,24642,24643, +24644,24645,24646,24647,24648,24649,24650,24651,24652,24653,24654,24655, +24656,24657,24658,24659,24660,24661,24662,24663,24664,24665,24666,24667, +24668,24669,24670,24671,24672,24673,24674,24675,24676,24677,24678,24679, +24680,24681,24682,24683,24684,24685,24686,24687,24688,24689,24690,24691, +24692,24693,24694,24695,24696,24697,24698,24699,24700,24701,24702,24703, +24704,24705,24706,24707,24708,24709,24710,24711,24712,24713,24714,24715, +24716,24717,24718,24719,24720,24721,24722,24723,24724,24725,24726,24727, +24728,24729,24730,24731,24732,24733,24734,24735,24736,24737,24738,24739, +24740,24741,24742,24743,24744,24745,24746,24747,24748,24749,24750,24751, +24752,24753,24754,24755,24756,24757,24758,24759,24760,24761,24762,24763, +24764,24765,24766,24767,24768,24769,24770,24771,24772,24773,24774,24775, +24776,24777,24778,24779,24780,24781,24782,24783,24784,24785,24786,24787, +24788,24789,24790,24791,24792,24793,24794,24795,24796,24797,24798,24799, +24800,24801,24802,24803,24804,24805,24806,24807,24808,24809,24810,24811, +24812,24813,24814,24815,24816,24817,24818,24819,24820,24821,24822,24823, +24824,24825,24826,24827,24828,24829,24830,24831,24832,24833,24834,24835, +24836,24837,24838,24839,24840,24841,24842,24843,24844,24845,24846,24847, +24848,24849,24850,24851,24852,24853,24854,24855,24856,24857,24858,24859, +24860,24861,24862,24863,24864,24865,24866,24867,24868,24869,24870,24871, +24872,24873,24874,24875,24876,24877,24878,24879,24880,24881,24882,24883, +24884,24885,24886,24887,24888,24889,24890,24891,24892,24893,24894,24895, +24896,24897,24898,24899,24900,24901,24902,24903,24904,24905,24906,24907, +24908,24909,24910,24911,24912,24913,24914,24915,24916,24917,24918,24919, +24920,24921,24922,24923,24924,24925,24926,24927,24928,24929,24930,24931, +24932,24933,24934,24935,24936,24937,24938,24939,24940,24941,24942,24943, +24944,24945,24946,24947,24948,24949,24950,24951,24952,24953,24954,24955, +24956,24957,24958,24959,24960,24961,24962,24963,24964,24965,24966,24967, +24968,24969,24970,24971,24972,24973,24974,24975,24976,24977,24978,24979, +24980,24981,24982,24983,24984,24985,24986,24987,24988,24989,24990,24991, +24992,24993,24994,24995,24996,24997,24998,24999,25000,25001,25002,25003, +25004,25005,25006,25007,25008,25009,25010,25011,25012,25013,25014,25015, +25016,25017,25018,25019,25020,25021,25022,25023,25024,25025,25026,25027, +25028,25029,25030,25031,25032,25033,25034,25035,25036,25037,25038,25039, +25040,25041,25042,25043,25044,25045,25046,25047,25048,25049,25050,25051, +25052,25053,25054,25055,25056,25057,25058,25059,25060,25061,25062,25063, +25064,25065,25066,25067,25068,25069,25070,25071,25072,25073,25074,25075, +25076,25077,25078,25079,25080,25081,25082,25083,25084,25085,25086,25087, +25088,25089,25090,25091,25092,25093,25094,25095,25096,25097,25098,25099, +25100,25101,25102,25103,25104,25105,25106,25107,25108,25109,25110,25111, +25112,25113,25114,25115,25116,25117,25118,25119,25120,25121,25122,25123, +25124,25125,25126,25127,25128,25129,25130,25131,25132,25133,25134,25135, +25136,25137,25138,25139,25140,25141,25142,25143,25144,25145,25146,25147, +25148,25149,25150,25151,25152,25153,25154,25155,25156,25157,25158,25159, +25160,25161,25162,25163,25164,25165,25166,25167,25168,25169,25170,25171, +25172,25173,25174,25175,25176,25177,25178,25179,25180,25181,25182,25183, +25184,25185,25186,25187,25188,25189,25190,25191,25192,25193,25194,25195, +25196,25197,25198,25199,25200,25201,25202,25203,25204,25205,25206,25207, +25208,25209,25210,25211,25212,25213,25214,25215,25216,25217,25218,25219, +25220,25221,25222,25223,25224,25225,25226,25227,25228,25229,25230,25231, +25232,25233,25234,25235,25236,25237,25238,25239,25240,25241,25242,25243, +25244,25245,25246,25247,25248,25249,25250,25251,25252,25253,25254,25255, +25256,25257,25258,25259,25260,25261,25262,25263,25264,25265,25266,25267, +25268,25269,25270,25271,25272,25273,25274,25275,25276,25277,25278,25279, +25280,25281,25282,25283,25284,25285,25286,25287,25288,25289,25290,25291, +25292,25293,25294,25295,25296,25297,25298,25299,25300,25301,25302,25303, +25304,25305,25306,25307,25308,25309,25310,25311,25312,25313,25314,25315, +25316,25317,25318,25319,25320,25321,25322,25323,25324,25325,25326,25327, +25328,25329,25330,25331,25332,25333,25334,25335,25336,25337,25338,25339, +25340,25341,25342,25343,25344,25345,25346,25347,25348,25349,25350,25351, +25352,25353,25354,25355,25356,25357,25358,25359,25360,25361,25362,25363, +25364,25365,25366,25367,25368,25369,25370,25371,25372,25373,25374,25375, +25376,25377,25378,25379,25380,25381,25382,25383,25384,25385,25386,25387, +25388,25389,25390,25391,25392,25393,25394,25395,25396,25397,25398,25399, +25400,25401,25402,25403,25404,25405,25406,25407,25408,25409,25410,25411, +25412,25413,25414,25415,25416,25417,25418,25419,25420,25421,25422,25423, +25424,25425,25426,25427,25428,25429,25430,25431,25432,25433,25434,25435, +25436,25437,25438,25439,25440,25441,25442,25443,25444,25445,25446,25447, +25448,25449,25450,25451,25452,25453,25454,25455,25456,25457,25458,25459, +25460,25461,25462,25463,25464,25465,25466,25467,25468,25469,25470,25471, +25472,25473,25474,25475,25476,25477,25478,25479,25480,25481,25482,25483, +25484,25485,25486,25487,25488,25489,25490,25491,25492,25493,25494,25495, +25496,25497,25498,25499,25500,25501,25502,25503,25504,25505,25506,25507, +25508,25509,25510,25511,25512,25513,25514,25515,25516,25517,25518,25519, +25520,25521,25522,25523,25524,25525,25526,25527,25528,25529,25530,25531, +25532,25533,25534,25535,25536,25537,25538,25539,25540,25541,25542,25543, +25544,25545,25546,25547,25548,25549,25550,25551,25552,25553,25554,25555, +25556,25557,25558,25559,25560,25561,25562,25563,25564,25565,25566,25567, +25568,25569,25570,25571,25572,25573,25574,25575,25576,25577,25578,25579, +25580,25581,25582,25583,25584,25585,25586,25587,25588,25589,25590,25591, +25592,25593,25594,25595,25596,25597,25598,25599,25600,25601,25602,25603, +25604,25605,25606,25607,25608,25609,25610,25611,25612,25613,25614,25615, +25616,25617,25618,25619,25620,25621,25622,25623,25624,25625,25626,25627, +25628,25629,25630,25631,25632,25633,25634,25635,25636,25637,25638,25639, +25640,25641,25642,25643,25644,25645,25646,25647,25648,25649,25650,25651, +25652,25653,25654,25655,25656,25657,25658,25659,25660,25661,25662,25663, +25664,25665,25666,25667,25668,25669,25670,25671,25672,25673,25674,25675, +25676,25677,25678,25679,25680,25681,25682,25683,25684,25685,25686,25687, +25688,25689,25690,25691,25692,25693,25694,25695,25696,25697,25698,25699, +25700,25701,25702,25703,25704,25705,25706,25707,25708,25709,25710,25711, +25712,25713,25714,25715,25716,25717,25718,25719,25720,25721,25722,25723, +25724,25725,25726,25727,25728,25729,25730,25731,25732,25733,25734,25735, +25736,25737,25738,25739,25740,25741,25742,25743,25744,25745,25746,25747, +25748,25749,25750,25751,25752,25753,25754,25755,25756,25757,25758,25759, +25760,25761,25762,25763,25764,25765,25766,25767,25768,25769,25770,25771, +25772,25773,25774,25775,25776,25777,25778,25779,25780,25781,25782,25783, +25784,25785,25786,25787,25788,25789,25790,25791,25792,25793,25794,25795, +25796,25797,25798,25799,25800,25801,25802,25803,25804,25805,25806,25807, +25808,25809,25810,25811,25812,25813,25814,25815,25816,25817,25818,25819, +25820,25821,25822,25823,25824,25825,25826,25827,25828,25829,25830,25831, +25832,25833,25834,25835,25836,25837,25838,25839,25840,25841,25842,25843, +25844,25845,25846,25847,25848,25849,25850,25851,25852,25853,25854,25855, +25856,25857,25858,25859,25860,25861,25862,25863,25864,25865,25866,25867, +25868,25869,25870,25871,25872,25873,25874,25875,25876,25877,25878,25879, +25880,25881,25882,25883,25884,25885,25886,25887,25888,25889,25890,25891, +25892,25893,25894,25895,25896,25897,25898,25899,25900,25901,25902,25903, +25904,25905,25906,25907,25908,25909,25910,25911,25912,25913,25914,25915, +25916,25917,25918,25919,25920,25921,25922,25923,25924,25925,25926,25927, +25928,25929,25930,25931,25932,25933,25934,25935,25936,25937,25938,25939, +25940,25941,25942,25943,25944,25945,25946,25947,25948,25949,25950,25951, +25952,25953,25954,25955,25956,25957,25958,25959,25960,25961,25962,25963, +25964,25965,25966,25967,25968,25969,25970,25971,25972,25973,25974,25975, +25976,25977,25978,25979,25980,25981,25982,25983,25984,25985,25986,25987, +25988,25989,25990,25991,25992,25993,25994,25995,25996,25997,25998,25999, +26000,26001,26002,26003,26004,26005,26006,26007,26008,26009,26010,26011, +26012,26013,26014,26015,26016,26017,26018,26019,26020,26021,26022,26023, +26024,26025,26026,26027,26028,26029,26030,26031,26032,26033,26034,26035, +26036,26037,26038,26039,26040,26041,26042,26043,26044,26045,26046,26047, +26048,26049,26050,26051,26052,26053,26054,26055,26056,26057,26058,26059, +26060,26061,26062,26063,26064,26065,26066,26067,26068,26069,26070,26071, +26072,26073,26074,26075,26076,26077,26078,26079,26080,26081,26082,26083, +26084,26085,26086,26087,26088,26089,26090,26091,26092,26093,26094,26095, +26096,26097,26098,26099,26100,26101,26102,26103,26104,26105,26106,26107, +26108,26109,26110,26111,26112,26113,26114,26115,26116,26117,26118,26119, +26120,26121,26122,26123,26124,26125,26126,26127,26128,26129,26130,26131, +26132,26133,26134,26135,26136,26137,26138,26139,26140,26141,26142,26143, +26144,26145,26146,26147,26148,26149,26150,26151,26152,26153,26154,26155, +26156,26157,26158,26159,26160,26161,26162,26163,26164,26165,26166,26167, +26168,26169,26170,26171,26172,26173,26174,26175,26176,26177,26178,26179, +26180,26181,26182,26183,26184,26185,26186,26187,26188,26189,26190,26191, +26192,26193,26194,26195,26196,26197,26198,26199,26200,26201,26202,26203, +26204,26205,26206,26207,26208,26209,26210,26211,26212,26213,26214,26215, +26216,26217,26218,26219,26220,26221,26222,26223,26224,26225,26226,26227, +26228,26229,26230,26231,26232,26233,26234,26235,26236,26237,26238,26239, +26240,26241,26242,26243,26244,26245,26246,26247,26248,26249,26250,26251, +26252,26253,26254,26255,26256,26257,26258,26259,26260,26261,26262,26263, +26264,26265,26266,26267,26268,26269,26270,26271,26272,26273,26274,26275, +26276,26277,26278,26279,26280,26281,26282,26283,26284,26285,26286,26287, +26288,26289,26290,26291,26292,26293,26294,26295,26296,26297,26298,26299, +26300,26301,26302,26303,26304,26305,26306,26307,26308,26309,26310,26311, +26312,26313,26314,26315,26316,26317,26318,26319,26320,26321,26322,26323, +26324,26325,26326,26327,26328,26329,26330,26331,26332,26333,26334,26335, +26336,26337,26338,26339,26340,26341,26342,26343,26344,26345,26346,26347, +26348,26349,26350,26351,26352,26353,26354,26355,26356,26357,26358,26359, +26360,26361,26362,26363,26364,26365,26366,26367,26368,26369,26370,26371, +26372,26373,26374,26375,26376,26377,26378,26379,26380,26381,26382,26383, +26384,26385,26386,26387,26388,26389,26390,26391,26392,26393,26394,26395, +26396,26397,26398,26399,26400,26401,26402,26403,26404,26405,26406,26407, +26408,26409,26410,26411,26412,26413,26414,26415,26416,26417,26418,26419, +26420,26421,26422,26423,26424,26425,26426,26427,26428,26429,26430,26431, +26432,26433,26434,26435,26436,26437,26438,26439,26440,26441,26442,26443, +26444,26445,26446,26447,26448,26449,26450,26451,26452,26453,26454,26455, +26456,26457,26458,26459,26460,26461,26462,26463,26464,26465,26466,26467, +26468,26469,26470,26471,26472,26473,26474,26475,26476,26477,26478,26479, +26480,26481,26482,26483,26484,26485,26486,26487,26488,26489,26490,26491, +26492,26493,26494,26495,26496,26497,26498,26499,26500,26501,26502,26503, +26504,26505,26506,26507,26508,26509,26510,26511,26512,26513,26514,26515, +26516,26517,26518,26519,26520,26521,26522,26523,26524,26525,26526,26527, +26528,26529,26530,26531,26532,26533,26534,26535,26536,26537,26538,26539, +26540,26541,26542,26543,26544,26545,26546,26547,26548,26549,26550,26551, +26552,26553,26554,26555,26556,26557,26558,26559,26560,26561,26562,26563, +26564,26565,26566,26567,26568,26569,26570,26571,26572,26573,26574,26575, +26576,26577,26578,26579,26580,26581,26582,26583,26584,26585,26586,26587, +26588,26589,26590,26591,26592,26593,26594,26595,26596,26597,26598,26599, +26600,26601,26602,26603,26604,26605,26606,26607,26608,26609,26610,26611, +26612,26613,26614,26615,26616,26617,26618,26619,26620,26621,26622,26623, +26624,26625,26626,26627,26628,26629,26630,26631,26632,26633,26634,26635, +26636,26637,26638,26639,26640,26641,26642,26643,26644,26645,26646,26647, +26648,26649,26650,26651,26652,26653,26654,26655,26656,26657,26658,26659, +26660,26661,26662,26663,26664,26665,26666,26667,26668,26669,26670,26671, +26672,26673,26674,26675,26676,26677,26678,26679,26680,26681,26682,26683, +26684,26685,26686,26687,26688,26689,26690,26691,26692,26693,26694,26695, +26696,26697,26698,26699,26700,26701,26702,26703,26704,26705,26706,26707, +26708,26709,26710,26711,26712,26713,26714,26715,26716,26717,26718,26719, +26720,26721,26722,26723,26724,26725,26726,26727,26728,26729,26730,26731, +26732,26733,26734,26735,26736,26737,26738,26739,26740,26741,26742,26743, +26744,26745,26746,26747,26748,26749,26750,26751,26752,26753,26754,26755, +26756,26757,26758,26759,26760,26761,26762,26763,26764,26765,26766,26767, +26768,26769,26770,26771,26772,26773,26774,26775,26776,26777,26778,26779, +26780,26781,26782,26783,26784,26785,26786,26787,26788,26789,26790,26791, +26792,26793,26794,26795,26796,26797,26798,26799,26800,26801,26802,26803, +26804,26805,26806,26807,26808,26809,26810,26811,26812,26813,26814,26815, +26816,26817,26818,26819,26820,26821,26822,26823,26824,26825,26826,26827, +26828,26829,26830,26831,26832,26833,26834,26835,26836,26837,26838,26839, +26840,26841,26842,26843,26844,26845,26846,26847,26848,26849,26850,26851, +26852,26853,26854,26855,26856,26857,26858,26859,26860,26861,26862,26863, +26864,26865,26866,26867,26868,26869,26870,26871,26872,26873,26874,26875, +26876,26877,26878,26879,26880,26881,26882,26883,26884,26885,26886,26887, +26888,26889,26890,26891,26892,26893,26894,26895,26896,26897,26898,26899, +26900,26901,26902,26903,26904,26905,26906,26907,26908,26909,26910,26911, +26912,26913,26914,26915,26916,26917,26918,26919,26920,26921,26922,26923, +26924,26925,26926,26927,26928,26929,26930,26931,26932,26933,26934,26935, +26936,26937,26938,26939,26940,26941,26942,26943,26944,26945,26946,26947, +26948,26949,26950,26951,26952,26953,26954,26955,26956,26957,26958,26959, +26960,26961,26962,26963,26964,26965,26966,26967,26968,26969,26970,26971, +26972,26973,26974,26975,26976,26977,26978,26979,26980,26981,26982,26983, +26984,26985,26986,26987,26988,26989,26990,26991,26992,26993,26994,26995, +26996,26997,26998,26999,27000,27001,27002,27003,27004,27005,27006,27007, +27008,27009,27010,27011,27012,27013,27014,27015,27016,27017,27018,27019, +27020,27021,27022,27023,27024,27025,27026,27027,27028,27029,27030,27031, +27032,27033,27034,27035,27036,27037,27038,27039,27040,27041,27042,27043, +27044,27045,27046,27047,27048,27049,27050,27051,27052,27053,27054,27055, +27056,27057,27058,27059,27060,27061,27062,27063,27064,27065,27066,27067, +27068,27069,27070,27071,27072,27073,27074,27075,27076,27077,27078,27079, +27080,27081,27082,27083,27084,27085,27086,27087,27088,27089,27090,27091, +27092,27093,27094,27095,27096,27097,27098,27099,27100,27101,27102,27103, +27104,27105,27106,27107,27108,27109,27110,27111,27112,27113,27114,27115, +27116,27117,27118,27119,27120,27121,27122,27123,27124,27125,27126,27127, +27128,27129,27130,27131,27132,27133,27134,27135,27136,27137,27138,27139, +27140,27141,27142,27143,27144,27145,27146,27147,27148,27149,27150,27151, +27152,27153,27154,27155,27156,27157,27158,27159,27160,27161,27162,27163, +27164,27165,27166,27167,27168,27169,27170,27171,27172,27173,27174,27175, +27176,27177,27178,27179,27180,27181,27182,27183,27184,27185,27186,27187, +27188,27189,27190,27191,27192,27193,27194,27195,27196,27197,27198,27199, +27200,27201,27202,27203,27204,27205,27206,27207,27208,27209,27210,27211, +27212,27213,27214,27215,27216,27217,27218,27219,27220,27221,27222,27223, +27224,27225,27226,27227,27228,27229,27230,27231,27232,27233,27234,27235, +27236,27237,27238,27239,27240,27241,27242,27243,27244,27245,27246,27247, +27248,27249,27250,27251,27252,27253,27254,27255,27256,27257,27258,27259, +27260,27261,27262,27263,27264,27265,27266,27267,27268,27269,27270,27271, +27272,27273,27274,27275,27276,27277,27278,27279,27280,27281,27282,27283, +27284,27285,27286,27287,27288,27289,27290,27291,27292,27293,27294,27295, +27296,27297,27298,27299,27300,27301,27302,27303,27304,27305,27306,27307, +27308,27309,27310,27311,27312,27313,27314,27315,27316,27317,27318,27319, +27320,27321,27322,27323,27324,27325,27326,27327,27328,27329,27330,27331, +27332,27333,27334,27335,27336,27337,27338,27339,27340,27341,27342,27343, +27344,27345,27346,27347,27348,27349,27350,27351,27352,27353,27354,27355, +27356,27357,27358,27359,27360,27361,27362,27363,27364,27365,27366,27367, +27368,27369,27370,27371,27372,27373,27374,27375,27376,27377,27378,27379, +27380,27381,27382,27383,27384,27385,27386,27387,27388,27389,27390,27391, +27392,27393,27394,27395,27396,27397,27398,27399,27400,27401,27402,27403, +27404,27405,27406,27407,27408,27409,27410,27411,27412,27413,27414,27415, +27416,27417,27418,27419,27420,27421,27422,27423,27424,27425,27426,27427, +27428,27429,27430,27431,27432,27433,27434,27435,27436,27437,27438,27439, +27440,27441,27442,27443,27444,27445,27446,27447,27448,27449,27450,27451, +27452,27453,27454,27455,27456,27457,27458,27459,27460,27461,27462,27463, +27464,27465,27466,27467,27468,27469,27470,27471,27472,27473,27474,27475, +27476,27477,27478,27479,27480,27481,27482,27483,27484,27485,27486,27487, +27488,27489,27490,27491,27492,27493,27494,27495,27496,27497,27498,27499, +27500,27501,27502,27503,27504,27505,27506,27507,27508,27509,27510,27511, +27512,27513,27514,27515,27516,27517,27518,27519,27520,27521,27522,27523, +27524,27525,27526,27527,27528,27529,27530,27531,27532,27533,27534,27535, +27536,27537,27538,27539,27540,27541,27542,27543,27544,27545,27546,27547, +27548,27549,27550,27551,27552,27553,27554,27555,27556,27557,27558,27559, +27560,27561,27562,27563,27564,27565,27566,27567,27568,27569,27570,27571, +27572,27573,27574,27575,27576,27577,27578,27579,27580,27581,27582,27583, +27584,27585,27586,27587,27588,27589,27590,27591,27592,27593,27594,27595, +27596,27597,27598,27599,27600,27601,27602,27603,27604,27605,27606,27607, +27608,27609,27610,27611,27612,27613,27614,27615,27616,27617,27618,27619, +27620,27621,27622,27623,27624,27625,27626,27627,27628,27629,27630,27631, +27632,27633,27634,27635,27636,27637,27638,27639,27640,27641,27642,27643, +27644,27645,27646,27647,27648,27649,27650,27651,27652,27653,27654,27655, +27656,27657,27658,27659,27660,27661,27662,27663,27664,27665,27666,27667, +27668,27669,27670,27671,27672,27673,27674,27675,27676,27677,27678,27679, +27680,27681,27682,27683,27684,27685,27686,27687,27688,27689,27690,27691, +27692,27693,27694,27695,27696,27697,27698,27699,27700,27701,27702,27703, +27704,27705,27706,27707,27708,27709,27710,27711,27712,27713,27714,27715, +27716,27717,27718,27719,27720,27721,27722,27723,27724,27725,27726,27727, +27728,27729,27730,27731,27732,27733,27734,27735,27736,27737,27738,27739, +27740,27741,27742,27743,27744,27745,27746,27747,27748,27749,27750,27751, +27752,27753,27754,27755,27756,27757,27758,27759,27760,27761,27762,27763, +27764,27765,27766,27767,27768,27769,27770,27771,27772,27773,27774,27775, +27776,27777,27778,27779,27780,27781,27782,27783,27784,27785,27786,27787, +27788,27789,27790,27791,27792,27793,27794,27795,27796,27797,27798,27799, +27800,27801,27802,27803,27804,27805,27806,27807,27808,27809,27810,27811, +27812,27813,27814,27815,27816,27817,27818,27819,27820,27821,27822,27823, +27824,27825,27826,27827,27828,27829,27830,27831,27832,27833,27834,27835, +27836,27837,27838,27839,27840,27841,27842,27843,27844,27845,27846,27847, +27848,27849,27850,27851,27852,27853,27854,27855,27856,27857,27858,27859, +27860,27861,27862,27863,27864,27865,27866,27867,27868,27869,27870,27871, +27872,27873,27874,27875,27876,27877,27878,27879,27880,27881,27882,27883, +27884,27885,27886,27887,27888,27889,27890,27891,27892,27893,27894,27895, +27896,27897,27898,27899,27900,27901,27902,27903,27904,27905,27906,27907, +27908,27909,27910,27911,27912,27913,27914,27915,27916,27917,27918,27919, +27920,27921,27922,27923,27924,27925,27926,27927,27928,27929,27930,27931, +27932,27933,27934,27935,27936,27937,27938,27939,27940,27941,27942,27943, +27944,27945,27946,27947,27948,27949,27950,27951,27952,27953,27954,27955, +27956,27957,27958,27959,27960,27961,27962,27963,27964,27965,27966,27967, +27968,27969,27970,27971,27972,27973,27974,27975,27976,27977,27978,27979, +27980,27981,27982,27983,27984,27985,27986,27987,27988,27989,27990,27991, +27992,27993,27994,27995,27996,27997,27998,27999,28000,28001,28002,28003, +28004,28005,28006,28007,28008,28009,28010,28011,28012,28013,28014,28015, +28016,28017,28018,28019,28020,28021,28022,28023,28024,28025,28026,28027, +28028,28029,28030,28031,28032,28033,28034,28035,28036,28037,28038,28039, +28040,28041,28042,28043,28044,28045,28046,28047,28048,28049,28050,28051, +28052,28053,28054,28055,28056,28057,28058,28059,28060,28061,28062,28063, +28064,28065,28066,28067,28068,28069,28070,28071,28072,28073,28074,28075, +28076,28077,28078,28079,28080,28081,28082,28083,28084,28085,28086,28087, +28088,28089,28090,28091,28092,28093,28094,28095,28096,28097,28098,28099, +28100,28101,28102,28103,28104,28105,28106,28107,28108,28109,28110,28111, +28112,28113,28114,28115,28116,28117,28118,28119,28120,28121,28122,28123, +28124,28125,28126,28127,28128,28129,28130,28131,28132,28133,28134,28135, +28136,28137,28138,28139,28140,28141,28142,28143,28144,28145,28146,28147, +28148,28149,28150,28151,28152,28153,28154,28155,28156,28157,28158,28159, +28160,28161,28162,28163,28164,28165,28166,28167,28168,28169,28170,28171, +28172,28173,28174,28175,28176,28177,28178,28179,28180,28181,28182,28183, +28184,28185,28186,28187,28188,28189,28190,28191,28192,28193,28194,28195, +28196,28197,28198,28199,28200,28201,28202,28203,28204,28205,28206,28207, +28208,28209,28210,28211,28212,28213,28214,28215,28216,28217,28218,28219, +28220,28221,28222,28223,28224,28225,28226,28227,28228,28229,28230,28231, +28232,28233,28234,28235,28236,28237,28238,28239,28240,28241,28242,28243, +28244,28245,28246,28247,28248,28249,28250,28251,28252,28253,28254,28255, +28256,28257,28258,28259,28260,28261,28262,28263,28264,28265,28266,28267, +28268,28269,28270,28271,28272,28273,28274,28275,28276,28277,28278,28279, +28280,28281,28282,28283,28284,28285,28286,28287,28288,28289,28290,28291, +28292,28293,28294,28295,28296,28297,28298,28299,28300,28301,28302,28303, +28304,28305,28306,28307,28308,28309,28310,28311,28312,28313,28314,28315, +28316,28317,28318,28319,28320,28321,28322,28323,28324,28325,28326,28327, +28328,28329,28330,28331,28332,28333,28334,28335,28336,28337,28338,28339, +28340,28341,28342,28343,28344,28345,28346,28347,28348,28349,28350,28351, +28352,28353,28354,28355,28356,28357,28358,28359,28360,28361,28362,28363, +28364,28365,28366,28367,28368,28369,28370,28371,28372,28373,28374,28375, +28376,28377,28378,28379,28380,28381,28382,28383,28384,28385,28386,28387, +28388,28389,28390,28391,28392,28393,28394,28395,28396,28397,28398,28399, +28400,28401,28402,28403,28404,28405,28406,28407,28408,28409,28410,28411, +28412,28413,28414,28415,28416,28417,28418,28419,28420,28421,28422,28423, +28424,28425,28426,28427,28428,28429,28430,28431,28432,28433,28434,28435, +28436,28437,28438,28439,28440,28441,28442,28443,28444,28445,28446,28447, +28448,28449,28450,28451,28452,28453,28454,28455,28456,28457,28458,28459, +28460,28461,28462,28463,28464,28465,28466,28467,28468,28469,28470,28471, +28472,28473,28474,28475,28476,28477,28478,28479,28480,28481,28482,28483, +28484,28485,28486,28487,28488,28489,28490,28491,28492,28493,28494,28495, +28496,28497,28498,28499,28500,28501,28502,28503,28504,28505,28506,28507, +28508,28509,28510,28511,28512,28513,28514,28515,28516,28517,28518,28519, +28520,28521,28522,28523,28524,28525,28526,28527,28528,28529,28530,28531, +28532,28533,28534,28535,28536,28537,28538,28539,28540,28541,28542,28543, +28544,28545,28546,28547,28548,28549,28550,28551,28552,28553,28554,28555, +28556,28557,28558,28559,28560,28561,28562,28563,28564,28565,28566,28567, +28568,28569,28570,28571,28572,28573,28574,28575,28576,28577,28578,28579, +28580,28581,28582,28583,28584,28585,28586,28587,28588,28589,28590,28591, +28592,28593,28594,28595,28596,28597,28598,28599,28600,28601,28602,28603, +28604,28605,28606,28607,28608,28609,28610,28611,28612,28613,28614,28615, +28616,28617,28618,28619,28620,28621,28622,28623,28624,28625,28626,28627, +28628,28629,28630,28631,28632,28633,28634,28635,28636,28637,28638,28639, +28640,28641,28642,28643,28644,28645,28646,28647,28648,28649,28650,28651, +28652,28653,28654,28655,28656,28657,28658,28659,28660,28661,28662,28663, +28664,28665,28666,28667,28668,28669,28670,28671,28672,28673,28674,28675, +28676,28677,28678,28679,28680,28681,28682,28683,28684,28685,28686,28687, +28688,28689,28690,28691,28692,28693,28694,28695,28696,28697,28698,28699, +28700,28701,28702,28703,28704,28705,28706,28707,28708,28709,28710,28711, +28712,28713,28714,28715,28716,28717,28718,28719,28720,28721,28722,28723, +28724,28725,28726,28727,28728,28729,28730,28731,28732,28733,28734,28735, +28736,28737,28738,28739,28740,28741,28742,28743,28744,28745,28746,28747, +28748,28749,28750,28751,28752,28753,28754,28755,28756,28757,28758,28759, +28760,28761,28762,28763,28764,28765,28766,28767,28768,28769,28770,28771, +28772,28773,28774,28775,28776,28777,28778,28779,28780,28781,28782,28783, +28784,28785,28786,28787,28788,28789,28790,28791,28792,28793,28794,28795, +28796,28797,28798,28799,28800,28801,28802,28803,28804,28805,28806,28807, +28808,28809,28810,28811,28812,28813,28814,28815,28816,28817,28818,28819, +28820,28821,28822,28823,28824,28825,28826,28827,28828,28829,28830,28831, +28832,28833,28834,28835,28836,28837,28838,28839,28840,28841,28842,28843, +28844,28845,28846,28847,28848,28849,28850,28851,28852,28853,28854,28855, +28856,28857,28858,28859,28860,28861,28862,28863,28864,28865,28866,28867, +28868,28869,28870,28871,28872,28873,28874,28875,28876,28877,28878,28879, +28880,28881,28882,28883,28884,28885,28886,28887,28888,28889,28890,28891, +28892,28893,28894,28895,28896,28897,28898,28899,28900,28901,28902,28903, +28904,28905,28906,28907,28908,28909,28910,28911,28912,28913,28914,28915, +28916,28917,28918,28919,28920,28921,28922,28923,28924,28925,28926,28927, +28928,28929,28930,28931,28932,28933,28934,28935,28936,28937,28938,28939, +28940,28941,28942,28943,28944,28945,28946,28947,28948,28949,28950,28951, +28952,28953,28954,28955,28956,28957,28958,28959,28960,28961,28962,28963, +28964,28965,28966,28967,28968,28969,28970,28971,28972,28973,28974,28975, +28976,28977,28978,28979,28980,28981,28982,28983,28984,28985,28986,28987, +28988,28989,28990,28991,28992,28993,28994,28995,28996,28997,28998,28999, +29000,29001,29002,29003,29004,29005,29006,29007,29008,29009,29010,29011, +29012,29013,29014,29015,29016,29017,29018,29019,29020,29021,29022,29023, +29024,29025,29026,29027,29028,29029,29030,29031,29032,29033,29034,29035, +29036,29037,29038,29039,29040,29041,29042,29043,29044,29045,29046,29047, +29048,29049,29050,29051,29052,29053,29054,29055,29056,29057,29058,29059, +29060,29061,29062,29063,29064,29065,29066,29067,29068,29069,29070,29071, +29072,29073,29074,29075,29076,29077,29078,29079,29080,29081,29082,29083, +29084,29085,29086,29087,29088,29089,29090,29091,29092,29093,29094,29095, +29096,29097,29098,29099,29100,29101,29102,29103,29104,29105,29106,29107, +29108,29109,29110,29111,29112,29113,29114,29115,29116,29117,29118,29119, +29120,29121,29122,29123,29124,29125,29126,29127,29128,29129,29130,29131, +29132,29133,29134,29135,29136,29137,29138,29139,29140,29141,29142,29143, +29144,29145,29146,29147,29148,29149,29150,29151,29152,29153,29154,29155, +29156,29157,29158,29159,29160,29161,29162,29163,29164,29165,29166,29167, +29168,29169,29170,29171,29172,29173,29174,29175,29176,29177,29178,29179, +29180,29181,29182,29183,29184,29185,29186,29187,29188,29189,29190,29191, +29192,29193,29194,29195,29196,29197,29198,29199,29200,29201,29202,29203, +29204,29205,29206,29207,29208,29209,29210,29211,29212,29213,29214,29215, +29216,29217,29218,29219,29220,29221,29222,29223,29224,29225,29226,29227, +29228,29229,29230,29231,29232,29233,29234,29235,29236,29237,29238,29239, +29240,29241,29242,29243,29244,29245,29246,29247,29248,29249,29250,29251, +29252,29253,29254,29255,29256,29257,29258,29259,29260,29261,29262,29263, +29264,29265,29266,29267,29268,29269,29270,29271,29272,29273,29274,29275, +29276,29277,29278,29279,29280,29281,29282,29283,29284,29285,29286,29287, +29288,29289,29290,29291,29292,29293,29294,29295,29296,29297,29298,29299, +29300,29301,29302,29303,29304,29305,29306,29307,29308,29309,29310,29311, +29312,29313,29314,29315,29316,29317,29318,29319,29320,29321,29322,29323, +29324,29325,29326,29327,29328,29329,29330,29331,29332,29333,29334,29335, +29336,29337,29338,29339,29340,29341,29342,29343,29344,29345,29346,29347, +29348,29349,29350,29351,29352,29353,29354,29355,29356,29357,29358,29359, +29360,29361,29362,29363,29364,29365,29366,29367,29368,29369,29370,29371, +29372,29373,29374,29375,29376,29377,29378,29379,29380,29381,29382,29383, +29384,29385,29386,29387,29388,29389,29390,29391,29392,29393,29394,29395, +29396,29397,29398,29399,29400,29401,29402,29403,29404,29405,29406,29407, +29408,29409,29410,29411,29412,29413,29414,29415,29416,29417,29418,29419, +29420,29421,29422,29423,29424,29425,29426,29427,29428,29429,29430,29431, +29432,29433,29434,29435,29436,29437,29438,29439,29440,29441,29442,29443, +29444,29445,29446,29447,29448,29449,29450,29451,29452,29453,29454,29455, +29456,29457,29458,29459,29460,29461,29462,29463,29464,29465,29466,29467, +29468,29469,29470,29471,29472,29473,29474,29475,29476,29477,29478,29479, +29480,29481,29482,29483,29484,29485,29486,29487,29488,29489,29490,29491, +29492,29493,29494,29495,29496,29497,29498,29499,29500,29501,29502,29503, +29504,29505,29506,29507,29508,29509,29510,29511,29512,29513,29514,29515, +29516,29517,29518,29519,29520,29521,29522,29523,29524,29525,29526,29527, +29528,29529,29530,29531,29532,29533,29534,29535,29536,29537,29538,29539, +29540,29541,29542,29543,29544,29545,29546,29547,29548,29549,29550,29551, +29552,29553,29554,29555,29556,29557,29558,29559,29560,29561,29562,29563, +29564,29565,29566,29567,29568,29569,29570,29571,29572,29573,29574,29575, +29576,29577,29578,29579,29580,29581,29582,29583,29584,29585,29586,29587, +29588,29589,29590,29591,29592,29593,29594,29595,29596,29597,29598,29599, +29600,29601,29602,29603,29604,29605,29606,29607,29608,29609,29610,29611, +29612,29613,29614,29615,29616,29617,29618,29619,29620,29621,29622,29623, +29624,29625,29626,29627,29628,29629,29630,29631,29632,29633,29634,29635, +29636,29637,29638,29639,29640,29641,29642,29643,29644,29645,29646,29647, +29648,29649,29650,29651,29652,29653,29654,29655,29656,29657,29658,29659, +29660,29661,29662,29663,29664,29665,29666,29667,29668,29669,29670,29671, +29672,29673,29674,29675,29676,29677,29678,29679,29680,29681,29682,29683, +29684,29685,29686,29687,29688,29689,29690,29691,29692,29693,29694,29695, +29696,29697,29698,29699,29700,29701,29702,29703,29704,29705,29706,29707, +29708,29709,29710,29711,29712,29713,29714,29715,29716,29717,29718,29719, +29720,29721,29722,29723,29724,29725,29726,29727,29728,29729,29730,29731, +29732,29733,29734,29735,29736,29737,29738,29739,29740,29741,29742,29743, +29744,29745,29746,29747,29748,29749,29750,29751,29752,29753,29754,29755, +29756,29757,29758,29759,29760,29761,29762,29763,29764,29765,29766,29767, +29768,29769,29770,29771,29772,29773,29774,29775,29776,29777,29778,29779, +29780,29781,29782,29783,29784,29785,29786,29787,29788,29789,29790,29791, +29792,29793,29794,29795,29796,29797,29798,29799,29800,29801,29802,29803, +29804,29805,29806,29807,29808,29809,29810,29811,29812,29813,29814,29815, +29816,29817,29818,29819,29820,29821,29822,29823,29824,29825,29826,29827, +29828,29829,29830,29831,29832,29833,29834,29835,29836,29837,29838,29839, +29840,29841,29842,29843,29844,29845,29846,29847,29848,29849,29850,29851, +29852,29853,29854,29855,29856,29857,29858,29859,29860,29861,29862,29863, +29864,29865,29866,29867,29868,29869,29870,29871,29872,29873,29874,29875, +29876,29877,29878,29879,29880,29881,29882,29883,29884,29885,29886,29887, +29888,29889,29890,29891,29892,29893,29894,29895,29896,29897,29898,29899, +29900,29901,29902,29903,29904,29905,29906,29907,29908,29909,29910,29911, +29912,29913,29914,29915,29916,29917,29918,29919,29920,29921,29922,29923, +29924,29925,29926,29927,29928,29929,29930,29931,29932,29933,29934,29935, +29936,29937,29938,29939,29940,29941,29942,29943,29944,29945,29946,29947, +29948,29949,29950,29951,29952,29953,29954,29955,29956,29957,29958,29959, +29960,29961,29962,29963,29964,29965,29966,29967,29968,29969,29970,29971, +29972,29973,29974,29975,29976,29977,29978,29979,29980,29981,29982,29983, +29984,29985,29986,29987,29988,29989,29990,29991,29992,29993,29994,29995, +29996,29997,29998,29999,30000,30001,30002,30003,30004,30005,30006,30007, +30008,30009,30010,30011,30012,30013,30014,30015,30016,30017,30018,30019, +30020,30021,30022,30023,30024,30025,30026,30027,30028,30029,30030,30031, +30032,30033,30034,30035,30036,30037,30038,30039,30040,30041,30042,30043, +30044,30045,30046,30047,30048,30049,30050,30051,30052,30053,30054,30055, +30056,30057,30058,30059,30060,30061,30062,30063,30064,30065,30066,30067, +30068,30069,30070,30071,30072,30073,30074,30075,30076,30077,30078,30079, +30080,30081,30082,30083,30084,30085,30086,30087,30088,30089,30090,30091, +30092,30093,30094,30095,30096,30097,30098,30099,30100,30101,30102,30103, +30104,30105,30106,30107,30108,30109,30110,30111,30112,30113,30114,30115, +30116,30117,30118,30119,30120,30121,30122,30123,30124,30125,30126,30127, +30128,30129,30130,30131,30132,30133,30134,30135,30136,30137,30138,30139, +30140,30141,30142,30143,30144,30145,30146,30147,30148,30149,30150,30151, +30152,30153,30154,30155,30156,30157,30158,30159,30160,30161,30162,30163, +30164,30165,30166,30167,30168,30169,30170,30171,30172,30173,30174,30175, +30176,30177,30178,30179,30180,30181,30182,30183,30184,30185,30186,30187, +30188,30189,30190,30191,30192,30193,30194,30195,30196,30197,30198,30199, +30200,30201,30202,30203,30204,30205,30206,30207,30208,30209,30210,30211, +30212,30213,30214,30215,30216,30217,30218,30219,30220,30221,30222,30223, +30224,30225,30226,30227,30228,30229,30230,30231,30232,30233,30234,30235, +30236,30237,30238,30239,30240,30241,30242,30243,30244,30245,30246,30247, +30248,30249,30250,30251,30252,30253,30254,30255,30256,30257,30258,30259, +30260,30261,30262,30263,30264,30265,30266,30267,30268,30269,30270,30271, +30272,30273,30274,30275,30276,30277,30278,30279,30280,30281,30282,30283, +30284,30285,30286,30287,30288,30289,30290,30291,30292,30293,30294,30295, +30296,30297,30298,30299,30300,30301,30302,30303,30304,30305,30306,30307, +30308,30309,30310,30311,30312,30313,30314,30315,30316,30317,30318,30319, +30320,30321,30322,30323,30324,30325,30326,30327,30328,30329,30330,30331, +30332,30333,30334,30335,30336,30337,30338,30339,30340,30341,30342,30343, +30344,30345,30346,30347,30348,30349,30350,30351,30352,30353,30354,30355, +30356,30357,30358,30359,30360,30361,30362,30363,30364,30365,30366,30367, +30368,30369,30370,30371,30372,30373,30374,30375,30376,30377,30378,30379, +30380,30381,30382,30383,30384,30385,30386,30387,30388,30389,30390,30391, +30392,30393,30394,30395,30396,30397,30398,30399,30400,30401,30402,30403, +30404,30405,30406,30407,30408,30409,30410,30411,30412,30413,30414,30415, +30416,30417,30418,30419,30420,30421,30422,30423,30424,30425,30426,30427, +30428,30429,30430,30431,30432,30433,30434,30435,30436,30437,30438,30439, +30440,30441,30442,30443,30444,30445,30446,30447,30448,30449,30450,30451, +30452,30453,30454,30455,30456,30457,30458,30459,30460,30461,30462,30463, +30464,30465,30466,30467,30468,30469,30470,30471,30472,30473,30474,30475, +30476,30477,30478,30479,30480,30481,30482,30483,30484,30485,30486,30487, +30488,30489,30490,30491,30492,30493,30494,30495,30496,30497,30498,30499, +30500,30501,30502,30503,30504,30505,30506,30507,30508,30509,30510,30511, +30512,30513,30514,30515,30516,30517,30518,30519,30520,30521,30522,30523, +30524,30525,30526,30527,30528,30529,30530,30531,30532,30533,30534,30535, +30536,30537,30538,30539,30540,30541,30542,30543,30544,30545,30546,30547, +30548,30549,30550,30551,30552,30553,30554,30555,30556,30557,30558,30559, +30560,30561,30562,30563,30564,30565,30566,30567,30568,30569,30570,30571, +30572,30573,30574,30575,30576,30577,30578,30579,30580,30581,30582,30583, +30584,30585,30586,30587,30588,30589,30590,30591,30592,30593,30594,30595, +30596,30597,30598,30599,30600,30601,30602,30603,30604,30605,30606,30607, +30608,30609,30610,30611,30612,30613,30614,30615,30616,30617,30618,30619, +30620,30621,30622,30623,30624,30625,30626,30627,30628,30629,30630,30631, +30632,30633,30634,30635,30636,30637,30638,30639,30640,30641,30642,30643, +30644,30645,30646,30647,30648,30649,30650,30651,30652,30653,30654,30655, +30656,30657,30658,30659,30660,30661,30662,30663,30664,30665,30666,30667, +30668,30669,30670,30671,30672,30673,30674,30675,30676,30677,30678,30679, +30680,30681,30682,30683,30684,30685,30686,30687,30688,30689,30690,30691, +30692,30693,30694,30695,30696,30697,30698,30699,30700,30701,30702,30703, +30704,30705,30706,30707,30708,30709,30710,30711,30712,30713,30714,30715, +30716,30717,30718,30719,30720,30721,30722,30723,30724,30725,30726,30727, +30728,30729,30730,30731,30732,30733,30734,30735,30736,30737,30738,30739, +30740,30741,30742,30743,30744,30745,30746,30747,30748,30749,30750,30751, +30752,30753,30754,30755,30756,30757,30758,30759,30760,30761,30762,30763, +30764,30765,30766,30767,30768,30769,30770,30771,30772,30773,30774,30775, +30776,30777,30778,30779,30780,30781,30782,30783,30784,30785,30786,30787, +30788,30789,30790,30791,30792,30793,30794,30795,30796,30797,30798,30799, +30800,30801,30802,30803,30804,30805,30806,30807,30808,30809,30810,30811, +30812,30813,30814,30815,30816,30817,30818,30819,30820,30821,30822,30823, +30824,30825,30826,30827,30828,30829,30830,30831,30832,30833,30834,30835, +30836,30837,30838,30839,30840,30841,30842,30843,30844,30845,30846,30847, +30848,30849,30850,30851,30852,30853,30854,30855,30856,30857,30858,30859, +30860,30861,30862,30863,30864,30865,30866,30867,30868,30869,30870,30871, +30872,30873,30874,30875,30876,30877,30878,30879,30880,30881,30882,30883, +30884,30885,30886,30887,30888,30889,30890,30891,30892,30893,30894,30895, +30896,30897,30898,30899,30900,30901,30902,30903,30904,30905,30906,30907, +30908,30909,30910,30911,30912,30913,30914,30915,30916,30917,30918,30919, +30920,30921,30922,30923,30924,30925,30926,30927,30928,30929,30930,30931, +30932,30933,30934,30935,30936,30937,30938,30939,30940,30941,30942,30943, +30944,30945,30946,30947,30948,30949,30950,30951,30952,30953,30954,30955, +30956,30957,30958,30959,30960,30961,30962,30963,30964,30965,30966,30967, +30968,30969,30970,30971,30972,30973,30974,30975,30976,30977,30978,30979, +30980,30981,30982,30983,30984,30985,30986,30987,30988,30989,30990,30991, +30992,30993,30994,30995,30996,30997,30998,30999,31000,31001,31002,31003, +31004,31005,31006,31007,31008,31009,31010,31011,31012,31013,31014,31015, +31016,31017,31018,31019,31020,31021,31022,31023,31024,31025,31026,31027, +31028,31029,31030,31031,31032,31033,31034,31035,31036,31037,31038,31039, +31040,31041,31042,31043,31044,31045,31046,31047,31048,31049,31050,31051, +31052,31053,31054,31055,31056,31057,31058,31059,31060,31061,31062,31063, +31064,31065,31066,31067,31068,31069,31070,31071,31072,31073,31074,31075, +31076,31077,31078,31079,31080,31081,31082,31083,31084,31085,31086,31087, +31088,31089,31090,31091,31092,31093,31094,31095,31096,31097,31098,31099, +31100,31101,31102,31103,31104,31105,31106,31107,31108,31109,31110,31111, +31112,31113,31114,31115,31116,31117,31118,31119,31120,31121,31122,31123, +31124,31125,31126,31127,31128,31129,31130,31131,31132,31133,31134,31135, +31136,31137,31138,31139,31140,31141,31142,31143,31144,31145,31146,31147, +31148,31149,31150,31151,31152,31153,31154,31155,31156,31157,31158,31159, +31160,31161,31162,31163,31164,31165,31166,31167,31168,31169,31170,31171, +31172,31173,31174,31175,31176,31177,31178,31179,31180,31181,31182,31183, +31184,31185,31186,31187,31188,31189,31190,31191,31192,31193,31194,31195, +31196,31197,31198,31199,31200,31201,31202,31203,31204,31205,31206,31207, +31208,31209,31210,31211,31212,31213,31214,31215,31216,31217,31218,31219, +31220,31221,31222,31223,31224,31225,31226,31227,31228,31229,31230,31231, +31232,31233,31234,31235,31236,31237,31238,31239,31240,31241,31242,31243, +31244,31245,31246,31247,31248,31249,31250,31251,31252,31253,31254,31255, +31256,31257,31258,31259,31260,31261,31262,31263,31264,31265,31266,31267, +31268,31269,31270,31271,31272,31273,31274,31275,31276,31277,31278,31279, +31280,31281,31282,31283,31284,31285,31286,31287,31288,31289,31290,31291, +31292,31293,31294,31295,31296,31297,31298,31299,31300,31301,31302,31303, +31304,31305,31306,31307,31308,31309,31310,31311,31312,31313,31314,31315, +31316,31317,31318,31319,31320,31321,31322,31323,31324,31325,31326,31327, +31328,31329,31330,31331,31332,31333,31334,31335,31336,31337,31338,31339, +31340,31341,31342,31343,31344,31345,31346,31347,31348,31349,31350,31351, +31352,31353,31354,31355,31356,31357,31358,31359,31360,31361,31362,31363, +31364,31365,31366,31367,31368,31369,31370,31371,31372,31373,31374,31375, +31376,31377,31378,31379,31380,31381,31382,31383,31384,31385,31386,31387, +31388,31389,31390,31391,31392,31393,31394,31395,31396,31397,31398,31399, +31400,31401,31402,31403,31404,31405,31406,31407,31408,31409,31410,31411, +31412,31413,31414,31415,31416,31417,31418,31419,31420,31421,31422,31423, +31424,31425,31426,31427,31428,31429,31430,31431,31432,31433,31434,31435, +31436,31437,31438,31439,31440,31441,31442,31443,31444,31445,31446,31447, +31448,31449,31450,31451,31452,31453,31454,31455,31456,31457,31458,31459, +31460,31461,31462,31463,31464,31465,31466,31467,31468,31469,31470,31471, +31472,31473,31474,31475,31476,31477,31478,31479,31480,31481,31482,31483, +31484,31485,31486,31487,31488,31489,31490,31491,31492,31493,31494,31495, +31496,31497,31498,31499,31500,31501,31502,31503,31504,31505,31506,31507, +31508,31509,31510,31511,31512,31513,31514,31515,31516,31517,31518,31519, +31520,31521,31522,31523,31524,31525,31526,31527,31528,31529,31530,31531, +31532,31533,31534,31535,31536,31537,31538,31539,31540,31541,31542,31543, +31544,31545,31546,31547,31548,31549,31550,31551,31552,31553,31554,31555, +31556,31557,31558,31559,31560,31561,31562,31563,31564,31565,31566,31567, +31568,31569,31570,31571,31572,31573,31574,31575,31576,31577,31578,31579, +31580,31581,31582,31583,31584,31585,31586,31587,31588,31589,31590,31591, +31592,31593,31594,31595,31596,31597,31598,31599,31600,31601,31602,31603, +31604,31605,31606,31607,31608,31609,31610,31611,31612,31613,31614,31615, +31616,31617,31618,31619,31620,31621,31622,31623,31624,31625,31626,31627, +31628,31629,31630,31631,31632,31633,31634,31635,31636,31637,31638,31639, +31640,31641,31642,31643,31644,31645,31646,31647,31648,31649,31650,31651, +31652,31653,31654,31655,31656,31657,31658,31659,31660,31661,31662,31663, +31664,31665,31666,31667,31668,31669,31670,31671,31672,31673,31674,31675, +31676,31677,31678,31679,31680,31681,31682,31683,31684,31685,31686,31687, +31688,31689,31690,31691,31692,31693,31694,31695,31696,31697,31698,31699, +31700,31701,31702,31703,31704,31705,31706,31707,31708,31709,31710,31711, +31712,31713,31714,31715,31716,31717,31718,31719,31720,31721,31722,31723, +31724,31725,31726,31727,31728,31729,31730,31731,31732,31733,31734,31735, +31736,31737,31738,31739,31740,31741,31742,31743,31744,31745,31746,31747, +31748,31749,31750,31751,31752,31753,31754,31755,31756,31757,31758,31759, +31760,31761,31762,31763,31764,31765,31766,31767,31768,31769,31770,31771, +31772,31773,31774,31775,31776,31777,31778,31779,31780,31781,31782,31783, +31784,31785,31786,31787,31788,31789,31790,31791,31792,31793,31794,31795, +31796,31797,31798,31799,31800,31801,31802,31803,31804,31805,31806,31807, +31808,31809,31810,31811,31812,31813,31814,31815,31816,31817,31818,31819, +31820,31821,31822,31823,31824,31825,31826,31827,31828,31829,31830,31831, +31832,31833,31834,31835,31836,31837,31838,31839,31840,31841,31842,31843, +31844,31845,31846,31847,31848,31849,31850,31851,31852,31853,31854,31855, +31856,31857,31858,31859,31860,31861,31862,31863,31864,31865,31866,31867, +31868,31869,31870,31871,31872,31873,31874,31875,31876,31877,31878,31879, +31880,31881,31882,31883,31884,31885,31886,31887,31888,31889,31890,31891, +31892,31893,31894,31895,31896,31897,31898,31899,31900,31901,31902,31903, +31904,31905,31906,31907,31908,31909,31910,31911,31912,31913,31914,31915, +31916,31917,31918,31919,31920,31921,31922,31923,31924,31925,31926,31927, +31928,31929,31930,31931,31932,31933,31934,31935,31936,31937,31938,31939, +31940,31941,31942,31943,31944,31945,31946,31947,31948,31949,31950,31951, +31952,31953,31954,31955,31956,31957,31958,31959,31960,31961,31962,31963, +31964,31965,31966,31967,31968,31969,31970,31971,31972,31973,31974,31975, +31976,31977,31978,31979,31980,31981,31982,31983,31984,31985,31986,31987, +31988,31989,31990,31991,31992,31993,31994,31995,31996,31997,31998,31999, +32000,32001,32002,32003,32004,32005,32006,32007,32008,32009,32010,32011, +32012,32013,32014,32015,32016,32017,32018,32019,32020,32021,32022,32023, +32024,32025,32026,32027,32028,32029,32030,32031,32032,32033,32034,32035, +32036,32037,32038,32039,32040,32041,32042,32043,32044,32045,32046,32047, +32048,32049,32050,32051,32052,32053,32054,32055,32056,32057,32058,32059, +32060,32061,32062,32063,32064,32065,32066,32067,32068,32069,32070,32071, +32072,32073,32074,32075,32076,32077,32078,32079,32080,32081,32082,32083, +32084,32085,32086,32087,32088,32089,32090,32091,32092,32093,32094,32095, +32096,32097,32098,32099,32100,32101,32102,32103,32104,32105,32106,32107, +32108,32109,32110,32111,32112,32113,32114,32115,32116,32117,32118,32119, +32120,32121,32122,32123,32124,32125,32126,32127,32128,32129,32130,32131, +32132,32133,32134,32135,32136,32137,32138,32139,32140,32141,32142,32143, +32144,32145,32146,32147,32148,32149,32150,32151,32152,32153,32154,32155, +32156,32157,32158,32159,32160,32161,32162,32163,32164,32165,32166,32167, +32168,32169,32170,32171,32172,32173,32174,32175,32176,32177,32178,32179, +32180,32181,32182,32183,32184,32185,32186,32187,32188,32189,32190,32191, +32192,32193,32194,32195,32196,32197,32198,32199,32200,32201,32202,32203, +32204,32205,32206,32207,32208,32209,32210,32211,32212,32213,32214,32215, +32216,32217,32218,32219,32220,32221,32222,32223,32224,32225,32226,32227, +32228,32229,32230,32231,32232,32233,32234,32235,32236,32237,32238,32239, +32240,32241,32242,32243,32244,32245,32246,32247,32248,32249,32250,32251, +32252,32253,32254,32255,32256,32257,32258,32259,32260,32261,32262,32263, +32264,32265,32266,32267,32268,32269,32270,32271,32272,32273,32274,32275, +32276,32277,32278,32279,32280,32281,32282,32283,32284,32285,32286,32287, +32288,32289,32290,32291,32292,32293,32294,32295,32296,32297,32298,32299, +32300,32301,32302,32303,32304,32305,32306,32307,32308,32309,32310,32311, +32312,32313,32314,32315,32316,32317,32318,32319,32320,32321,32322,32323, +32324,32325,32326,32327,32328,32329,32330,32331,32332,32333,32334,32335, +32336,32337,32338,32339,32340,32341,32342,32343,32344,32345,32346,32347, +32348,32349,32350,32351,32352,32353,32354,32355,32356,32357,32358,32359, +32360,32361,32362,32363,32364,32365,32366,32367,32368,32369,32370,32371, +32372,32373,32374,32375,32376,32377,32378,32379,32380,32381,32382,32383, +32384,32385,32386,32387,32388,32389,32390,32391,32392,32393,32394,32395, +32396,32397,32398,32399,32400,32401,32402,32403,32404,32405,32406,32407, +32408,32409,32410,32411,32412,32413,32414,32415,32416,32417,32418,32419, +32420,32421,32422,32423,32424,32425,32426,32427,32428,32429,32430,32431, +32432,32433,32434,32435,32436,32437,32438,32439,32440,32441,32442,32443, +32444,32445,32446,32447,32448,32449,32450,32451,32452,32453,32454,32455, +32456,32457,32458,32459,32460,32461,32462,32463,32464,32465,32466,32467, +32468,32469,32470,32471,32472,32473,32474,32475,32476,32477,32478,32479, +32480,32481,32482,32483,32484,32485,32486,32487,32488,32489,32490,32491, +32492,32493,32494,32495,32496,32497,32498,32499,32500,32501,32502,32503, +32504,32505,32506,32507,32508,32509,32510,32511,32512,32513,32514,32515, +32516,32517,32518,32519,32520,32521,32522,32523,32524,32525,32526,32527, +32528,32529,32530,32531,32532,32533,32534,32535,32536,32537,32538,32539, +32540,32541,32542,32543,32544,32545,32546,32547,32548,32549,32550,32551, +32552,32553,32554,32555,32556,32557,32558,32559,32560,32561,32562,32563, +32564,32565,32566,32567,32568,32569,32570,32571,32572,32573,32574,32575, +32576,32577,32578,32579,32580,32581,32582,32583,32584,32585,32586,32587, +32588,32589,32590,32591,32592,32593,32594,32595,32596,32597,32598,32599, +32600,32601,32602,32603,32604,32605,32606,32607,32608,32609,32610,32611, +32612,32613,32614,32615,32616,32617,32618,32619,32620,32621,32622,32623, +32624,32625,32626,32627,32628,32629,32630,32631,32632,32633,32634,32635, +32636,32637,32638,32639,32640,32641,32642,32643,32644,32645,32646,32647, +32648,32649,32650,32651,32652,32653,32654,32655,32656,32657,32658,32659, +32660,32661,32662,32663,32664,32665,32666,32667,32668,32669,32670,32671, +32672,32673,32674,32675,32676,32677,32678,32679,32680,32681,32682,32683, +32684,32685,32686,32687,32688,32689,32690,32691,32692,32693,32694,32695, +32696,32697,32698,32699,32700,32701,32702,32703,32704,32705,32706,32707, +32708,32709,32710,32711,32712,32713,32714,32715,32716,32717,32718,32719, +32720,32721,32722,32723,32724,32725,32726,32727,32728,32729,32730,32731, +32732,32733,32734,32735,32736,32737,32738,32739,32740,32741,32742,32743, +32744,32745,32746,32747,32748,32749,32750,32751,32752,32753,32754,32755, +32756,32757,32758,32759,32760,32761,32762,32763,32764,32765,32766,32767, +32768L,32769L,32770L,32771L,32772L,32773L,32774L,32775L,32776L,32777L, +32778L,32779L,32780L,32781L,32782L,32783L,32784L,32785L,32786L,32787L, +32788L,32789L,32790L,32791L,32792L,32793L,32794L,32795L,32796L,32797L, +32798L,32799L,32800L,32801L,32802L,32803L,32804L,32805L,32806L,32807L, +32808L,32809L,32810L,32811L,32812L,32813L,32814L,32815L,32816L,32817L, +32818L,32819L,32820L,32821L,32822L,32823L,32824L,32825L,32826L,32827L, +32828L,32829L,32830L,32831L,32832L,32833L,32834L,32835L,32836L,32837L, +32838L,32839L,32840L,32841L,32842L,32843L,32844L,32845L,32846L,32847L, +32848L,32849L,32850L,32851L,32852L,32853L,32854L,32855L,32856L,32857L, +32858L,32859L,32860L,32861L,32862L,32863L,32864L,32865L,32866L,32867L, +32868L,32869L,32870L,32871L,32872L,32873L,32874L,32875L,32876L,32877L, +32878L,32879L,32880L,32881L,32882L,32883L,32884L,32885L,32886L,32887L, +32888L,32889L,32890L,32891L,32892L,32893L,32894L,32895L,32896L,32897L, +32898L,32899L,32900L,32901L,32902L,32903L,32904L,32905L,32906L,32907L, +32908L,32909L,32910L,32911L,32912L,32913L,32914L,32915L,32916L,32917L, +32918L,32919L,32920L,32921L,32922L,32923L,32924L,32925L,32926L,32927L, +32928L,32929L,32930L,32931L,32932L,32933L,32934L,32935L,32936L,32937L, +32938L,32939L,32940L,32941L,32942L,32943L,32944L,32945L,32946L,32947L, +32948L,32949L,32950L,32951L,32952L,32953L,32954L,32955L,32956L,32957L, +32958L,32959L,32960L,32961L,32962L,32963L,32964L,32965L,32966L,32967L, +32968L,32969L,32970L,32971L,32972L,32973L,32974L,32975L,32976L,32977L, +32978L,32979L,32980L,32981L,32982L,32983L,32984L,32985L,32986L,32987L, +32988L,32989L,32990L,32991L,32992L,32993L,32994L,32995L,32996L,32997L, +32998L,32999L,33000L,33001L,33002L,33003L,33004L,33005L,33006L,33007L, +33008L,33009L,33010L,33011L,33012L,33013L,33014L,33015L,33016L,33017L, +33018L,33019L,33020L,33021L,33022L,33023L,33024L,33025L,33026L,33027L, +33028L,33029L,33030L,33031L,33032L,33033L,33034L,33035L,33036L,33037L, +33038L,33039L,33040L,33041L,33042L,33043L,33044L,33045L,33046L,33047L, +33048L,33049L,33050L,33051L,33052L,33053L,33054L,33055L,33056L,33057L, +33058L,33059L,33060L,33061L,33062L,33063L,33064L,33065L,33066L,33067L, +33068L,33069L,33070L,33071L,33072L,33073L,33074L,33075L,33076L,33077L, +33078L,33079L,33080L,33081L,33082L,33083L,33084L,33085L,33086L,33087L, +33088L,33089L,33090L,33091L,33092L,33093L,33094L,33095L,33096L,33097L, +33098L,33099L,33100L,33101L,33102L,33103L,33104L,33105L,33106L,33107L, +33108L,33109L,33110L,33111L,33112L,33113L,33114L,33115L,33116L,33117L, +33118L,33119L,33120L,33121L,33122L,33123L,33124L,33125L,33126L,33127L, +33128L,33129L,33130L,33131L,33132L,33133L,33134L,33135L,33136L,33137L, +33138L,33139L,33140L,33141L,33142L,33143L,33144L,33145L,33146L,33147L, +33148L,33149L,33150L,33151L,33152L,33153L,33154L,33155L,33156L,33157L, +33158L,33159L,33160L,33161L,33162L,33163L,33164L,33165L,33166L,33167L, +33168L,33169L,33170L,33171L,33172L,33173L,33174L,33175L,33176L,33177L, +33178L,33179L,33180L,33181L,33182L,33183L,33184L,33185L,33186L,33187L, +33188L,33189L,33190L,33191L,33192L,33193L,33194L,33195L,33196L,33197L, +33198L,33199L,33200L,33201L,33202L,33203L,33204L,33205L,33206L,33207L, +33208L,33209L,33210L,33211L,33212L,33213L,33214L,33215L,33216L,33217L, +33218L,33219L,33220L,33221L,33222L,33223L,33224L,33225L,33226L,33227L, +33228L,33229L,33230L,33231L,33232L,33233L,33234L,33235L,33236L,33237L, +33238L,33239L,33240L,33241L,33242L,33243L,33244L,33245L,33246L,33247L, +33248L,33249L,33250L,33251L,33252L,33253L,33254L,33255L,33256L,33257L, +33258L,33259L,33260L,33261L,33262L,33263L,33264L,33265L,33266L,33267L, +33268L,33269L,33270L,33271L,33272L,33273L,33274L,33275L,33276L,33277L, +33278L,33279L,33280L,33281L,33282L,33283L,33284L,33285L,33286L,33287L, +33288L,33289L,33290L,33291L,33292L,33293L,33294L,33295L,33296L,33297L, +33298L,33299L,33300L,33301L,33302L,33303L,33304L,33305L,33306L,33307L, +33308L,33309L,33310L,33311L,33312L,33313L,33314L,33315L,33316L,33317L, +33318L,33319L,33320L,33321L,33322L,33323L,33324L,33325L,33326L,33327L, +33328L,33329L,33330L,33331L,33332L,33333L,33334L,33335L,33336L,33337L, +33338L,33339L,33340L,33341L,33342L,33343L,33344L,33345L,33346L,33347L, +33348L,33349L,33350L,33351L,33352L,33353L,33354L,33355L,33356L,33357L, +33358L,33359L,33360L,33361L,33362L,33363L,33364L,33365L,33366L,33367L, +33368L,33369L,33370L,33371L,33372L,33373L,33374L,33375L,33376L,33377L, +33378L,33379L,33380L,33381L,33382L,33383L,33384L,33385L,33386L,33387L, +33388L,33389L,33390L,33391L,33392L,33393L,33394L,33395L,33396L,33397L, +33398L,33399L,33400L,33401L,33402L,33403L,33404L,33405L,33406L,33407L, +33408L,33409L,33410L,33411L,33412L,33413L,33414L,33415L,33416L,33417L, +33418L,33419L,33420L,33421L,33422L,33423L,33424L,33425L,33426L,33427L, +33428L,33429L,33430L,33431L,33432L,33433L,33434L,33435L,33436L,33437L, +33438L,33439L,33440L,33441L,33442L,33443L,33444L,33445L,33446L,33447L, +33448L,33449L,33450L,33451L,33452L,33453L,33454L,33455L,33456L,33457L, +33458L,33459L,33460L,33461L,33462L,33463L,33464L,33465L,33466L,33467L, +33468L,33469L,33470L,33471L,33472L,33473L,33474L,33475L,33476L,33477L, +33478L,33479L,33480L,33481L,33482L,33483L,33484L,33485L,33486L,33487L, +33488L,33489L,33490L,33491L,33492L,33493L,33494L,33495L,33496L,33497L, +33498L,33499L,33500L,33501L,33502L,33503L,33504L,33505L,33506L,33507L, +33508L,33509L,33510L,33511L,33512L,33513L,33514L,33515L,33516L,33517L, +33518L,33519L,33520L,33521L,33522L,33523L,33524L,33525L,33526L,33527L, +33528L,33529L,33530L,33531L,33532L,33533L,33534L,33535L,33536L,33537L, +33538L,33539L,33540L,33541L,33542L,33543L,33544L,33545L,33546L,33547L, +33548L,33549L,33550L,33551L,33552L,33553L,33554L,33555L,33556L,33557L, +33558L,33559L,33560L,33561L,33562L,33563L,33564L,33565L,33566L,33567L, +33568L,33569L,33570L,33571L,33572L,33573L,33574L,33575L,33576L,33577L, +33578L,33579L,33580L,33581L,33582L,33583L,33584L,33585L,33586L,33587L, +33588L,33589L,33590L,33591L,33592L,33593L,33594L,33595L,33596L,33597L, +33598L,33599L,33600L,33601L,33602L,33603L,33604L,33605L,33606L,33607L, +33608L,33609L,33610L,33611L,33612L,33613L,33614L,33615L,33616L,33617L, +33618L,33619L,33620L,33621L,33622L,33623L,33624L,33625L,33626L,33627L, +33628L,33629L,33630L,33631L,33632L,33633L,33634L,33635L,33636L,33637L, +33638L,33639L,33640L,33641L,33642L,33643L,33644L,33645L,33646L,33647L, +33648L,33649L,33650L,33651L,33652L,33653L,33654L,33655L,33656L,33657L, +33658L,33659L,33660L,33661L,33662L,33663L,33664L,33665L,33666L,33667L, +33668L,33669L,33670L,33671L,33672L,33673L,33674L,33675L,33676L,33677L, +33678L,33679L,33680L,33681L,33682L,33683L,33684L,33685L,33686L,33687L, +33688L,33689L,33690L,33691L,33692L,33693L,33694L,33695L,33696L,33697L, +33698L,33699L,33700L,33701L,33702L,33703L,33704L,33705L,33706L,33707L, +33708L,33709L,33710L,33711L,33712L,33713L,33714L,33715L,33716L,33717L, +33718L,33719L,33720L,33721L,33722L,33723L,33724L,33725L,33726L,33727L, +33728L,33729L,33730L,33731L,33732L,33733L,33734L,33735L,33736L,33737L, +33738L,33739L,33740L,33741L,33742L,33743L,33744L,33745L,33746L,33747L, +33748L,33749L,33750L,33751L,33752L,33753L,33754L,33755L,33756L,33757L, +33758L,33759L,33760L,33761L,33762L,33763L,33764L,33765L,33766L,33767L, +33768L,33769L,33770L,33771L,33772L,33773L,33774L,33775L,33776L,33777L, +33778L,33779L,33780L,33781L,33782L,33783L,33784L,33785L,33786L,33787L, +33788L,33789L,33790L,33791L,33792L,33793L,33794L,33795L,33796L,33797L, +33798L,33799L,33800L,33801L,33802L,33803L,33804L,33805L,33806L,33807L, +33808L,33809L,33810L,33811L,33812L,33813L,33814L,33815L,33816L,33817L, +33818L,33819L,33820L,33821L,33822L,33823L,33824L,33825L,33826L,33827L, +33828L,33829L,33830L,33831L,33832L,33833L,33834L,33835L,33836L,33837L, +33838L,33839L,33840L,33841L,33842L,33843L,33844L,33845L,33846L,33847L, +33848L,33849L,33850L,33851L,33852L,33853L,33854L,33855L,33856L,33857L, +33858L,33859L,33860L,33861L,33862L,33863L,33864L,33865L,33866L,33867L, +33868L,33869L,33870L,33871L,33872L,33873L,33874L,33875L,33876L,33877L, +33878L,33879L,33880L,33881L,33882L,33883L,33884L,33885L,33886L,33887L, +33888L,33889L,33890L,33891L,33892L,33893L,33894L,33895L,33896L,33897L, +33898L,33899L,33900L,33901L,33902L,33903L,33904L,33905L,33906L,33907L, +33908L,33909L,33910L,33911L,33912L,33913L,33914L,33915L,33916L,33917L, +33918L,33919L,33920L,33921L,33922L,33923L,33924L,33925L,33926L,33927L, +33928L,33929L,33930L,33931L,33932L,33933L,33934L,33935L,33936L,33937L, +33938L,33939L,33940L,33941L,33942L,33943L,33944L,33945L,33946L,33947L, +33948L,33949L,33950L,33951L,33952L,33953L,33954L,33955L,33956L,33957L, +33958L,33959L,33960L,33961L,33962L,33963L,33964L,33965L,33966L,33967L, +33968L,33969L,33970L,33971L,33972L,33973L,33974L,33975L,33976L,33977L, +33978L,33979L,33980L,33981L,33982L,33983L,33984L,33985L,33986L,33987L, +33988L,33989L,33990L,33991L,33992L,33993L,33994L,33995L,33996L,33997L, +33998L,33999L,34000L,34001L,34002L,34003L,34004L,34005L,34006L,34007L, +34008L,34009L,34010L,34011L,34012L,34013L,34014L,34015L,34016L,34017L, +34018L,34019L,34020L,34021L,34022L,34023L,34024L,34025L,34026L,34027L, +34028L,34029L,34030L,34031L,34032L,34033L,34034L,34035L,34036L,34037L, +34038L,34039L,34040L,34041L,34042L,34043L,34044L,34045L,34046L,34047L, +34048L,34049L,34050L,34051L,34052L,34053L,34054L,34055L,34056L,34057L, +34058L,34059L,34060L,34061L,34062L,34063L,34064L,34065L,34066L,34067L, +34068L,34069L,34070L,34071L,34072L,34073L,34074L,34075L,34076L,34077L, +34078L,34079L,34080L,34081L,34082L,34083L,34084L,34085L,34086L,34087L, +34088L,34089L,34090L,34091L,34092L,34093L,34094L,34095L,34096L,34097L, +34098L,34099L,34100L,34101L,34102L,34103L,34104L,34105L,34106L,34107L, +34108L,34109L,34110L,34111L,34112L,34113L,34114L,34115L,34116L,34117L, +34118L,34119L,34120L,34121L,34122L,34123L,34124L,34125L,34126L,34127L, +34128L,34129L,34130L,34131L,34132L,34133L,34134L,34135L,34136L,34137L, +34138L,34139L,34140L,34141L,34142L,34143L,34144L,34145L,34146L,34147L, +34148L,34149L,34150L,34151L,34152L,34153L,34154L,34155L,34156L,34157L, +34158L,34159L,34160L,34161L,34162L,34163L,34164L,34165L,34166L,34167L, +34168L,34169L,34170L,34171L,34172L,34173L,34174L,34175L,34176L,34177L, +34178L,34179L,34180L,34181L,34182L,34183L,34184L,34185L,34186L,34187L, +34188L,34189L,34190L,34191L,34192L,34193L,34194L,34195L,34196L,34197L, +34198L,34199L,34200L,34201L,34202L,34203L,34204L,34205L,34206L,34207L, +34208L,34209L,34210L,34211L,34212L,34213L,34214L,34215L,34216L,34217L, +34218L,34219L,34220L,34221L,34222L,34223L,34224L,34225L,34226L,34227L, +34228L,34229L,34230L,34231L,34232L,34233L,34234L,34235L,34236L,34237L, +34238L,34239L,34240L,34241L,34242L,34243L,34244L,34245L,34246L,34247L, +34248L,34249L,34250L,34251L,34252L,34253L,34254L,34255L,34256L,34257L, +34258L,34259L,34260L,34261L,34262L,34263L,34264L,34265L,34266L,34267L, +34268L,34269L,34270L,34271L,34272L,34273L,34274L,34275L,34276L,34277L, +34278L,34279L,34280L,34281L,34282L,34283L,34284L,34285L,34286L,34287L, +34288L,34289L,34290L,34291L,34292L,34293L,34294L,34295L,34296L,34297L, +34298L,34299L,34300L,34301L,34302L,34303L,34304L,34305L,34306L,34307L, +34308L,34309L,34310L,34311L,34312L,34313L,34314L,34315L,34316L,34317L, +34318L,34319L,34320L,34321L,34322L,34323L,34324L,34325L,34326L,34327L, +34328L,34329L,34330L,34331L,34332L,34333L,34334L,34335L,34336L,34337L, +34338L,34339L,34340L,34341L,34342L,34343L,34344L,34345L,34346L,34347L, +34348L,34349L,34350L,34351L,34352L,34353L,34354L,34355L,34356L,34357L, +34358L,34359L,34360L,34361L,34362L,34363L,34364L,34365L,34366L,34367L, +34368L,34369L,34370L,34371L,34372L,34373L,34374L,34375L,34376L,34377L, +34378L,34379L,34380L,34381L,34382L,34383L,34384L,34385L,34386L,34387L, +34388L,34389L,34390L,34391L,34392L,34393L,34394L,34395L,34396L,34397L, +34398L,34399L,34400L,34401L,34402L,34403L,34404L,34405L,34406L,34407L, +34408L,34409L,34410L,34411L,34412L,34413L,34414L,34415L,34416L,34417L, +34418L,34419L,34420L,34421L,34422L,34423L,34424L,34425L,34426L,34427L, +34428L,34429L,34430L,34431L,34432L,34433L,34434L,34435L,34436L,34437L, +34438L,34439L,34440L,34441L,34442L,34443L,34444L,34445L,34446L,34447L, +34448L,34449L,34450L,34451L,34452L,34453L,34454L,34455L,34456L,34457L, +34458L,34459L,34460L,34461L,34462L,34463L,34464L,34465L,34466L,34467L, +34468L,34469L,34470L,34471L,34472L,34473L,34474L,34475L,34476L,34477L, +34478L,34479L,34480L,34481L,34482L,34483L,34484L,34485L,34486L,34487L, +34488L,34489L,34490L,34491L,34492L,34493L,34494L,34495L,34496L,34497L, +34498L,34499L,34500L,34501L,34502L,34503L,34504L,34505L,34506L,34507L, +34508L,34509L,34510L,34511L,34512L,34513L,34514L,34515L,34516L,34517L, +34518L,34519L,34520L,34521L,34522L,34523L,34524L,34525L,34526L,34527L, +34528L,34529L,34530L,34531L,34532L,34533L,34534L,34535L,34536L,34537L, +34538L,34539L,34540L,34541L,34542L,34543L,34544L,34545L,34546L,34547L, +34548L,34549L,34550L,34551L,34552L,34553L,34554L,34555L,34556L,34557L, +34558L,34559L,34560L,34561L,34562L,34563L,34564L,34565L,34566L,34567L, +34568L,34569L,34570L,34571L,34572L,34573L,34574L,34575L,34576L,34577L, +34578L,34579L,34580L,34581L,34582L,34583L,34584L,34585L,34586L,34587L, +34588L,34589L,34590L,34591L,34592L,34593L,34594L,34595L,34596L,34597L, +34598L,34599L,34600L,34601L,34602L,34603L,34604L,34605L,34606L,34607L, +34608L,34609L,34610L,34611L,34612L,34613L,34614L,34615L,34616L,34617L, +34618L,34619L,34620L,34621L,34622L,34623L,34624L,34625L,34626L,34627L, +34628L,34629L,34630L,34631L,34632L,34633L,34634L,34635L,34636L,34637L, +34638L,34639L,34640L,34641L,34642L,34643L,34644L,34645L,34646L,34647L, +34648L,34649L,34650L,34651L,34652L,34653L,34654L,34655L,34656L,34657L, +34658L,34659L,34660L,34661L,34662L,34663L,34664L,34665L,34666L,34667L, +34668L,34669L,34670L,34671L,34672L,34673L,34674L,34675L,34676L,34677L, +34678L,34679L,34680L,34681L,34682L,34683L,34684L,34685L,34686L,34687L, +34688L,34689L,34690L,34691L,34692L,34693L,34694L,34695L,34696L,34697L, +34698L,34699L,34700L,34701L,34702L,34703L,34704L,34705L,34706L,34707L, +34708L,34709L,34710L,34711L,34712L,34713L,34714L,34715L,34716L,34717L, +34718L,34719L,34720L,34721L,34722L,34723L,34724L,34725L,34726L,34727L, +34728L,34729L,34730L,34731L,34732L,34733L,34734L,34735L,34736L,34737L, +34738L,34739L,34740L,34741L,34742L,34743L,34744L,34745L,34746L,34747L, +34748L,34749L,34750L,34751L,34752L,34753L,34754L,34755L,34756L,34757L, +34758L,34759L,34760L,34761L,34762L,34763L,34764L,34765L,34766L,34767L, +34768L,34769L,34770L,34771L,34772L,34773L,34774L,34775L,34776L,34777L, +34778L,34779L,34780L,34781L,34782L,34783L,34784L,34785L,34786L,34787L, +34788L,34789L,34790L,34791L,34792L,34793L,34794L,34795L,34796L,34797L, +34798L,34799L,34800L,34801L,34802L,34803L,34804L,34805L,34806L,34807L, +34808L,34809L,34810L,34811L,34812L,34813L,34814L,34815L,34816L,34817L, +34818L,34819L,34820L,34821L,34822L,34823L,34824L,34825L,34826L,34827L, +34828L,34829L,34830L,34831L,34832L,34833L,34834L,34835L,34836L,34837L, +34838L,34839L,34840L,34841L,34842L,34843L,34844L,34845L,34846L,34847L, +34848L,34849L,34850L,34851L,34852L,34853L,34854L,34855L,34856L,34857L, +34858L,34859L,34860L,34861L,34862L,34863L,34864L,34865L,34866L,34867L, +34868L,34869L,34870L,34871L,34872L,34873L,34874L,34875L,34876L,34877L, +34878L,34879L,34880L,34881L,34882L,34883L,34884L,34885L,34886L,34887L, +34888L,34889L,34890L,34891L,34892L,34893L,34894L,34895L,34896L,34897L, +34898L,34899L,34900L,34901L,34902L,34903L,34904L,34905L,34906L,34907L, +34908L,34909L,34910L,34911L,34912L,34913L,34914L,34915L,34916L,34917L, +34918L,34919L,34920L,34921L,34922L,34923L,34924L,34925L,34926L,34927L, +34928L,34929L,34930L,34931L,34932L,34933L,34934L,34935L,34936L,34937L, +34938L,34939L,34940L,34941L,34942L,34943L,34944L,34945L,34946L,34947L, +34948L,34949L,34950L,34951L,34952L,34953L,34954L,34955L,34956L,34957L, +34958L,34959L,34960L,34961L,34962L,34963L,34964L,34965L,34966L,34967L, +34968L,34969L,34970L,34971L,34972L,34973L,34974L,34975L,34976L,34977L, +34978L,34979L,34980L,34981L,34982L,34983L,34984L,34985L,34986L,34987L, +34988L,34989L,34990L,34991L,34992L,34993L,34994L,34995L,34996L,34997L, +34998L,34999L,35000L,35001L,35002L,35003L,35004L,35005L,35006L,35007L, +35008L,35009L,35010L,35011L,35012L,35013L,35014L,35015L,35016L,35017L, +35018L,35019L,35020L,35021L,35022L,35023L,35024L,35025L,35026L,35027L, +35028L,35029L,35030L,35031L,35032L,35033L,35034L,35035L,35036L,35037L, +35038L,35039L,35040L,35041L,35042L,35043L,35044L,35045L,35046L,35047L, +35048L,35049L,35050L,35051L,35052L,35053L,35054L,35055L,35056L,35057L, +35058L,35059L,35060L,35061L,35062L,35063L,35064L,35065L,35066L,35067L, +35068L,35069L,35070L,35071L,35072L,35073L,35074L,35075L,35076L,35077L, +35078L,35079L,35080L,35081L,35082L,35083L,35084L,35085L,35086L,35087L, +35088L,35089L,35090L,35091L,35092L,35093L,35094L,35095L,35096L,35097L, +35098L,35099L,35100L,35101L,35102L,35103L,35104L,35105L,35106L,35107L, +35108L,35109L,35110L,35111L,35112L,35113L,35114L,35115L,35116L,35117L, +35118L,35119L,35120L,35121L,35122L,35123L,35124L,35125L,35126L,35127L, +35128L,35129L,35130L,35131L,35132L,35133L,35134L,35135L,35136L,35137L, +35138L,35139L,35140L,35141L,35142L,35143L,35144L,35145L,35146L,35147L, +35148L,35149L,35150L,35151L,35152L,35153L,35154L,35155L,35156L,35157L, +35158L,35159L,35160L,35161L,35162L,35163L,35164L,35165L,35166L,35167L, +35168L,35169L,35170L,35171L,35172L,35173L,35174L,35175L,35176L,35177L, +35178L,35179L,35180L,35181L,35182L,35183L,35184L,35185L,35186L,35187L, +35188L,35189L,35190L,35191L,35192L,35193L,35194L,35195L,35196L,35197L, +35198L,35199L,35200L,35201L,35202L,35203L,35204L,35205L,35206L,35207L, +35208L,35209L,35210L,35211L,35212L,35213L,35214L,35215L,35216L,35217L, +35218L,35219L,35220L,35221L,35222L,35223L,35224L,35225L,35226L,35227L, +35228L,35229L,35230L,35231L,35232L,35233L,35234L,35235L,35236L,35237L, +35238L,35239L,35240L,35241L,35242L,35243L,35244L,35245L,35246L,35247L, +35248L,35249L,35250L,35251L,35252L,35253L,35254L,35255L,35256L,35257L, +35258L,35259L,35260L,35261L,35262L,35263L,35264L,35265L,35266L,35267L, +35268L,35269L,35270L,35271L,35272L,35273L,35274L,35275L,35276L,35277L, +35278L,35279L,35280L,35281L,35282L,35283L,35284L,35285L,35286L,35287L, +35288L,35289L,35290L,35291L,35292L,35293L,35294L,35295L,35296L,35297L, +35298L,35299L,35300L,35301L,35302L,35303L,35304L,35305L,35306L,35307L, +35308L,35309L,35310L,35311L,35312L,35313L,35314L,35315L,35316L,35317L, +35318L,35319L,35320L,35321L,35322L,35323L,35324L,35325L,35326L,35327L, +35328L,35329L,35330L,35331L,35332L,35333L,35334L,35335L,35336L,35337L, +35338L,35339L,35340L,35341L,35342L,35343L,35344L,35345L,35346L,35347L, +35348L,35349L,35350L,35351L,35352L,35353L,35354L,35355L,35356L,35357L, +35358L,35359L,35360L,35361L,35362L,35363L,35364L,35365L,35366L,35367L, +35368L,35369L,35370L,35371L,35372L,35373L,35374L,35375L,35376L,35377L, +35378L,35379L,35380L,35381L,35382L,35383L,35384L,35385L,35386L,35387L, +35388L,35389L,35390L,35391L,35392L,35393L,35394L,35395L,35396L,35397L, +35398L,35399L,35400L,35401L,35402L,35403L,35404L,35405L,35406L,35407L, +35408L,35409L,35410L,35411L,35412L,35413L,35414L,35415L,35416L,35417L, +35418L,35419L,35420L,35421L,35422L,35423L,35424L,35425L,35426L,35427L, +35428L,35429L,35430L,35431L,35432L,35433L,35434L,35435L,35436L,35437L, +35438L,35439L,35440L,35441L,35442L,35443L,35444L,35445L,35446L,35447L, +35448L,35449L,35450L,35451L,35452L,35453L,35454L,35455L,35456L,35457L, +35458L,35459L,35460L,35461L,35462L,35463L,35464L,35465L,35466L,35467L, +35468L,35469L,35470L,35471L,35472L,35473L,35474L,35475L,35476L,35477L, +35478L,35479L,35480L,35481L,35482L,35483L,35484L,35485L,35486L,35487L, +35488L,35489L,35490L,35491L,35492L,35493L,35494L,35495L,35496L,35497L, +35498L,35499L,35500L,35501L,35502L,35503L,35504L,35505L,35506L,35507L, +35508L,35509L,35510L,35511L,35512L,35513L,35514L,35515L,35516L,35517L, +35518L,35519L,35520L,35521L,35522L,35523L,35524L,35525L,35526L,35527L, +35528L,35529L,35530L,35531L,35532L,35533L,35534L,35535L,35536L,35537L, +35538L,35539L,35540L,35541L,35542L,35543L,35544L,35545L,35546L,35547L, +35548L,35549L,35550L,35551L,35552L,35553L,35554L,35555L,35556L,35557L, +35558L,35559L,35560L,35561L,35562L,35563L,35564L,35565L,35566L,35567L, +35568L,35569L,35570L,35571L,35572L,35573L,35574L,35575L,35576L,35577L, +35578L,35579L,35580L,35581L,35582L,35583L,35584L,35585L,35586L,35587L, +35588L,35589L,35590L,35591L,35592L,35593L,35594L,35595L,35596L,35597L, +35598L,35599L,35600L,35601L,35602L,35603L,35604L,35605L,35606L,35607L, +35608L,35609L,35610L,35611L,35612L,35613L,35614L,35615L,35616L,35617L, +35618L,35619L,35620L,35621L,35622L,35623L,35624L,35625L,35626L,35627L, +35628L,35629L,35630L,35631L,35632L,35633L,35634L,35635L,35636L,35637L, +35638L,35639L,35640L,35641L,35642L,35643L,35644L,35645L,35646L,35647L, +35648L,35649L,35650L,35651L,35652L,35653L,35654L,35655L,35656L,35657L, +35658L,35659L,35660L,35661L,35662L,35663L,35664L,35665L,35666L,35667L, +35668L,35669L,35670L,35671L,35672L,35673L,35674L,35675L,35676L,35677L, +35678L,35679L,35680L,35681L,35682L,35683L,35684L,35685L,35686L,35687L, +35688L,35689L,35690L,35691L,35692L,35693L,35694L,35695L,35696L,35697L, +35698L,35699L,35700L,35701L,35702L,35703L,35704L,35705L,35706L,35707L, +35708L,35709L,35710L,35711L,35712L,35713L,35714L,35715L,35716L,35717L, +35718L,35719L,35720L,35721L,35722L,35723L,35724L,35725L,35726L,35727L, +35728L,35729L,35730L,35731L,35732L,35733L,35734L,35735L,35736L,35737L, +35738L,35739L,35740L,35741L,35742L,35743L,35744L,35745L,35746L,35747L, +35748L,35749L,35750L,35751L,35752L,35753L,35754L,35755L,35756L,35757L, +35758L,35759L,35760L,35761L,35762L,35763L,35764L,35765L,35766L,35767L, +35768L,35769L,35770L,35771L,35772L,35773L,35774L,35775L,35776L,35777L, +35778L,35779L,35780L,35781L,35782L,35783L,35784L,35785L,35786L,35787L, +35788L,35789L,35790L,35791L,35792L,35793L,35794L,35795L,35796L,35797L, +35798L,35799L,35800L,35801L,35802L,35803L,35804L,35805L,35806L,35807L, +35808L,35809L,35810L,35811L,35812L,35813L,35814L,35815L,35816L,35817L, +35818L,35819L,35820L,35821L,35822L,35823L,35824L,35825L,35826L,35827L, +35828L,35829L,35830L,35831L,35832L,35833L,35834L,35835L,35836L,35837L, +35838L,35839L,35840L,35841L,35842L,35843L,35844L,35845L,35846L,35847L, +35848L,35849L,35850L,35851L,35852L,35853L,35854L,35855L,35856L,35857L, +35858L,35859L,35860L,35861L,35862L,35863L,35864L,35865L,35866L,35867L, +35868L,35869L,35870L,35871L,35872L,35873L,35874L,35875L,35876L,35877L, +35878L,35879L,35880L,35881L,35882L,35883L,35884L,35885L,35886L,35887L, +35888L,35889L,35890L,35891L,35892L,35893L,35894L,35895L,35896L,35897L, +35898L,35899L,35900L,35901L,35902L,35903L,35904L,35905L,35906L,35907L, +35908L,35909L,35910L,35911L,35912L,35913L,35914L,35915L,35916L,35917L, +35918L,35919L,35920L,35921L,35922L,35923L,35924L,35925L,35926L,35927L, +35928L,35929L,35930L,35931L,35932L,35933L,35934L,35935L,35936L,35937L, +35938L,35939L,35940L,35941L,35942L,35943L,35944L,35945L,35946L,35947L, +35948L,35949L,35950L,35951L,35952L,35953L,35954L,35955L,35956L,35957L, +35958L,35959L,35960L,35961L,35962L,35963L,35964L,35965L,35966L,35967L, +35968L,35969L,35970L,35971L,35972L,35973L,35974L,35975L,35976L,35977L, +35978L,35979L,35980L,35981L,35982L,35983L,35984L,35985L,35986L,35987L, +35988L,35989L,35990L,35991L,35992L,35993L,35994L,35995L,35996L,35997L, +35998L,35999L,36000L,36001L,36002L,36003L,36004L,36005L,36006L,36007L, +36008L,36009L,36010L,36011L,36012L,36013L,36014L,36015L,36016L,36017L, +36018L,36019L,36020L,36021L,36022L,36023L,36024L,36025L,36026L,36027L, +36028L,36029L,36030L,36031L,36032L,36033L,36034L,36035L,36036L,36037L, +36038L,36039L,36040L,36041L,36042L,36043L,36044L,36045L,36046L,36047L, +36048L,36049L,36050L,36051L,36052L,36053L,36054L,36055L,36056L,36057L, +36058L,36059L,36060L,36061L,36062L,36063L,36064L,36065L,36066L,36067L, +36068L,36069L,36070L,36071L,36072L,36073L,36074L,36075L,36076L,36077L, +36078L,36079L,36080L,36081L,36082L,36083L,36084L,36085L,36086L,36087L, +36088L,36089L,36090L,36091L,36092L,36093L,36094L,36095L,36096L,36097L, +36098L,36099L,36100L,36101L,36102L,36103L,36104L,36105L,36106L,36107L, +36108L,36109L,36110L,36111L,36112L,36113L,36114L,36115L,36116L,36117L, +36118L,36119L,36120L,36121L,36122L,36123L,36124L,36125L,36126L,36127L, +36128L,36129L,36130L,36131L,36132L,36133L,36134L,36135L,36136L,36137L, +36138L,36139L,36140L,36141L,36142L,36143L,36144L,36145L,36146L,36147L, +36148L,36149L,36150L,36151L,36152L,36153L,36154L,36155L,36156L,36157L, +36158L,36159L,36160L,36161L,36162L,36163L,36164L,36165L,36166L,36167L, +36168L,36169L,36170L,36171L,36172L,36173L,36174L,36175L,36176L,36177L, +36178L,36179L,36180L,36181L,36182L,36183L,36184L,36185L,36186L,36187L, +36188L,36189L,36190L,36191L,36192L,36193L,36194L,36195L,36196L,36197L, +36198L,36199L,36200L,36201L,36202L,36203L,36204L,36205L,36206L,36207L, +36208L,36209L,36210L,36211L,36212L,36213L,36214L,36215L,36216L,36217L, +36218L,36219L,36220L,36221L,36222L,36223L,36224L,36225L,36226L,36227L, +36228L,36229L,36230L,36231L,36232L,36233L,36234L,36235L,36236L,36237L, +36238L,36239L,36240L,36241L,36242L,36243L,36244L,36245L,36246L,36247L, +36248L,36249L,36250L,36251L,36252L,36253L,36254L,36255L,36256L,36257L, +36258L,36259L,36260L,36261L,36262L,36263L,36264L,36265L,36266L,36267L, +36268L,36269L,36270L,36271L,36272L,36273L,36274L,36275L,36276L,36277L, +36278L,36279L,36280L,36281L,36282L,36283L,36284L,36285L,36286L,36287L, +36288L,36289L,36290L,36291L,36292L,36293L,36294L,36295L,36296L,36297L, +36298L,36299L,36300L,36301L,36302L,36303L,36304L,36305L,36306L,36307L, +36308L,36309L,36310L,36311L,36312L,36313L,36314L,36315L,36316L,36317L, +36318L,36319L,36320L,36321L,36322L,36323L,36324L,36325L,36326L,36327L, +36328L,36329L,36330L,36331L,36332L,36333L,36334L,36335L,36336L,36337L, +36338L,36339L,36340L,36341L,36342L,36343L,36344L,36345L,36346L,36347L, +36348L,36349L,36350L,36351L,36352L,36353L,36354L,36355L,36356L,36357L, +36358L,36359L,36360L,36361L,36362L,36363L,36364L,36365L,36366L,36367L, +36368L,36369L,36370L,36371L,36372L,36373L,36374L,36375L,36376L,36377L, +36378L,36379L,36380L,36381L,36382L,36383L,36384L,36385L,36386L,36387L, +36388L,36389L,36390L,36391L,36392L,36393L,36394L,36395L,36396L,36397L, +36398L,36399L,36400L,36401L,36402L,36403L,36404L,36405L,36406L,36407L, +36408L,36409L,36410L,36411L,36412L,36413L,36414L,36415L,36416L,36417L, +36418L,36419L,36420L,36421L,36422L,36423L,36424L,36425L,36426L,36427L, +36428L,36429L,36430L,36431L,36432L,36433L,36434L,36435L,36436L,36437L, +36438L,36439L,36440L,36441L,36442L,36443L,36444L,36445L,36446L,36447L, +36448L,36449L,36450L,36451L,36452L,36453L,36454L,36455L,36456L,36457L, +36458L,36459L,36460L,36461L,36462L,36463L,36464L,36465L,36466L,36467L, +36468L,36469L,36470L,36471L,36472L,36473L,36474L,36475L,36476L,36477L, +36478L,36479L,36480L,36481L,36482L,36483L,36484L,36485L,36486L,36487L, +36488L,36489L,36490L,36491L,36492L,36493L,36494L,36495L,36496L,36497L, +36498L,36499L,36500L,36501L,36502L,36503L,36504L,36505L,36506L,36507L, +36508L,36509L,36510L,36511L,36512L,36513L,36514L,36515L,36516L,36517L, +36518L,36519L,36520L,36521L,36522L,36523L,36524L,36525L,36526L,36527L, +36528L,36529L,36530L,36531L,36532L,36533L,36534L,36535L,36536L,36537L, +36538L,36539L,36540L,36541L,36542L,36543L,36544L,36545L,36546L,36547L, +36548L,36549L,36550L,36551L,36552L,36553L,36554L,36555L,36556L,36557L, +36558L,36559L,36560L,36561L,36562L,36563L,36564L,36565L,36566L,36567L, +36568L,36569L,36570L,36571L,36572L,36573L,36574L,36575L,36576L,36577L, +36578L,36579L,36580L,36581L,36582L,36583L,36584L,36585L,36586L,36587L, +36588L,36589L,36590L,36591L,36592L,36593L,36594L,36595L,36596L,36597L, +36598L,36599L,36600L,36601L,36602L,36603L,36604L,36605L,36606L,36607L, +36608L,36609L,36610L,36611L,36612L,36613L,36614L,36615L,36616L,36617L, +36618L,36619L,36620L,36621L,36622L,36623L,36624L,36625L,36626L,36627L, +36628L,36629L,36630L,36631L,36632L,36633L,36634L,36635L,36636L,36637L, +36638L,36639L,36640L,36641L,36642L,36643L,36644L,36645L,36646L,36647L, +36648L,36649L,36650L,36651L,36652L,36653L,36654L,36655L,36656L,36657L, +36658L,36659L,36660L,36661L,36662L,36663L,36664L,36665L,36666L,36667L, +36668L,36669L,36670L,36671L,36672L,36673L,36674L,36675L,36676L,36677L, +36678L,36679L,36680L,36681L,36682L,36683L,36684L,36685L,36686L,36687L, +36688L,36689L,36690L,36691L,36692L,36693L,36694L,36695L,36696L,36697L, +36698L,36699L,36700L,36701L,36702L,36703L,36704L,36705L,36706L,36707L, +36708L,36709L,36710L,36711L,36712L,36713L,36714L,36715L,36716L,36717L, +36718L,36719L,36720L,36721L,36722L,36723L,36724L,36725L,36726L,36727L, +36728L,36729L,36730L,36731L,36732L,36733L,36734L,36735L,36736L,36737L, +36738L,36739L,36740L,36741L,36742L,36743L,36744L,36745L,36746L,36747L, +36748L,36749L,36750L,36751L,36752L,36753L,36754L,36755L,36756L,36757L, +36758L,36759L,36760L,36761L,36762L,36763L,36764L,36765L,36766L,36767L, +36768L,36769L,36770L,36771L,36772L,36773L,36774L,36775L,36776L,36777L, +36778L,36779L,36780L,36781L,36782L,36783L,36784L,36785L,36786L,36787L, +36788L,36789L,36790L,36791L,36792L,36793L,36794L,36795L,36796L,36797L, +36798L,36799L,36800L,36801L,36802L,36803L,36804L,36805L,36806L,36807L, +36808L,36809L,36810L,36811L,36812L,36813L,36814L,36815L,36816L,36817L, +36818L,36819L,36820L,36821L,36822L,36823L,36824L,36825L,36826L,36827L, +36828L,36829L,36830L,36831L,36832L,36833L,36834L,36835L,36836L,36837L, +36838L,36839L,36840L,36841L,36842L,36843L,36844L,36845L,36846L,36847L, +36848L,36849L,36850L,36851L,36852L,36853L,36854L,36855L,36856L,36857L, +36858L,36859L,36860L,36861L,36862L,36863L,36864L,36865L,36866L,36867L, +36868L,36869L,36870L,36871L,36872L,36873L,36874L,36875L,36876L,36877L, +36878L,36879L,36880L,36881L,36882L,36883L,36884L,36885L,36886L,36887L, +36888L,36889L,36890L,36891L,36892L,36893L,36894L,36895L,36896L,36897L, +36898L,36899L,36900L,36901L,36902L,36903L,36904L,36905L,36906L,36907L, +36908L,36909L,36910L,36911L,36912L,36913L,36914L,36915L,36916L,36917L, +36918L,36919L,36920L,36921L,36922L,36923L,36924L,36925L,36926L,36927L, +36928L,36929L,36930L,36931L,36932L,36933L,36934L,36935L,36936L,36937L, +36938L,36939L,36940L,36941L,36942L,36943L,36944L,36945L,36946L,36947L, +36948L,36949L,36950L,36951L,36952L,36953L,36954L,36955L,36956L,36957L, +36958L,36959L,36960L,36961L,36962L,36963L,36964L,36965L,36966L,36967L, +36968L,36969L,36970L,36971L,36972L,36973L,36974L,36975L,36976L,36977L, +36978L,36979L,36980L,36981L,36982L,36983L,36984L,36985L,36986L,36987L, +36988L,36989L,36990L,36991L,36992L,36993L,36994L,36995L,36996L,36997L, +36998L,36999L,37000L,37001L,37002L,37003L,37004L,37005L,37006L,37007L, +37008L,37009L,37010L,37011L,37012L,37013L,37014L,37015L,37016L,37017L, +37018L,37019L,37020L,37021L,37022L,37023L,37024L,37025L,37026L,37027L, +37028L,37029L,37030L,37031L,37032L,37033L,37034L,37035L,37036L,37037L, +37038L,37039L,37040L,37041L,37042L,37043L,37044L,37045L,37046L,37047L, +37048L,37049L,37050L,37051L,37052L,37053L,37054L,37055L,37056L,37057L, +37058L,37059L,37060L,37061L,37062L,37063L,37064L,37065L,37066L,37067L, +37068L,37069L,37070L,37071L,37072L,37073L,37074L,37075L,37076L,37077L, +37078L,37079L,37080L,37081L,37082L,37083L,37084L,37085L,37086L,37087L, +37088L,37089L,37090L,37091L,37092L,37093L,37094L,37095L,37096L,37097L, +37098L,37099L,37100L,37101L,37102L,37103L,37104L,37105L,37106L,37107L, +37108L,37109L,37110L,37111L,37112L,37113L,37114L,37115L,37116L,37117L, +37118L,37119L,37120L,37121L,37122L,37123L,37124L,37125L,37126L,37127L, +37128L,37129L,37130L,37131L,37132L,37133L,37134L,37135L,37136L,37137L, +37138L,37139L,37140L,37141L,37142L,37143L,37144L,37145L,37146L,37147L, +37148L,37149L,37150L,37151L,37152L,37153L,37154L,37155L,37156L,37157L, +37158L,37159L,37160L,37161L,37162L,37163L,37164L,37165L,37166L,37167L, +37168L,37169L,37170L,37171L,37172L,37173L,37174L,37175L,37176L,37177L, +37178L,37179L,37180L,37181L,37182L,37183L,37184L,37185L,37186L,37187L, +37188L,37189L,37190L,37191L,37192L,37193L,37194L,37195L,37196L,37197L, +37198L,37199L,37200L,37201L,37202L,37203L,37204L,37205L,37206L,37207L, +37208L,37209L,37210L,37211L,37212L,37213L,37214L,37215L,37216L,37217L, +37218L,37219L,37220L,37221L,37222L,37223L,37224L,37225L,37226L,37227L, +37228L,37229L,37230L,37231L,37232L,37233L,37234L,37235L,37236L,37237L, +37238L,37239L,37240L,37241L,37242L,37243L,37244L,37245L,37246L,37247L, +37248L,37249L,37250L,37251L,37252L,37253L,37254L,37255L,37256L,37257L, +37258L,37259L,37260L,37261L,37262L,37263L,37264L,37265L,37266L,37267L, +37268L,37269L,37270L,37271L,37272L,37273L,37274L,37275L,37276L,37277L, +37278L,37279L,37280L,37281L,37282L,37283L,37284L,37285L,37286L,37287L, +37288L,37289L,37290L,37291L,37292L,37293L,37294L,37295L,37296L,37297L, +37298L,37299L,37300L,37301L,37302L,37303L,37304L,37305L,37306L,37307L, +37308L,37309L,37310L,37311L,37312L,37313L,37314L,37315L,37316L,37317L, +37318L,37319L,37320L,37321L,37322L,37323L,37324L,37325L,37326L,37327L, +37328L,37329L,37330L,37331L,37332L,37333L,37334L,37335L,37336L,37337L, +37338L,37339L,37340L,37341L,37342L,37343L,37344L,37345L,37346L,37347L, +37348L,37349L,37350L,37351L,37352L,37353L,37354L,37355L,37356L,37357L, +37358L,37359L,37360L,37361L,37362L,37363L,37364L,37365L,37366L,37367L, +37368L,37369L,37370L,37371L,37372L,37373L,37374L,37375L,37376L,37377L, +37378L,37379L,37380L,37381L,37382L,37383L,37384L,37385L,37386L,37387L, +37388L,37389L,37390L,37391L,37392L,37393L,37394L,37395L,37396L,37397L, +37398L,37399L,37400L,37401L,37402L,37403L,37404L,37405L,37406L,37407L, +37408L,37409L,37410L,37411L,37412L,37413L,37414L,37415L,37416L,37417L, +37418L,37419L,37420L,37421L,37422L,37423L,37424L,37425L,37426L,37427L, +37428L,37429L,37430L,37431L,37432L,37433L,37434L,37435L,37436L,37437L, +37438L,37439L,37440L,37441L,37442L,37443L,37444L,37445L,37446L,37447L, +37448L,37449L,37450L,37451L,37452L,37453L,37454L,37455L,37456L,37457L, +37458L,37459L,37460L,37461L,37462L,37463L,37464L,37465L,37466L,37467L, +37468L,37469L,37470L,37471L,37472L,37473L,37474L,37475L,37476L,37477L, +37478L,37479L,37480L,37481L,37482L,37483L,37484L,37485L,37486L,37487L, +37488L,37489L,37490L,37491L,37492L,37493L,37494L,37495L,37496L,37497L, +37498L,37499L,37500L,37501L,37502L,37503L,37504L,37505L,37506L,37507L, +37508L,37509L,37510L,37511L,37512L,37513L,37514L,37515L,37516L,37517L, +37518L,37519L,37520L,37521L,37522L,37523L,37524L,37525L,37526L,37527L, +37528L,37529L,37530L,37531L,37532L,37533L,37534L,37535L,37536L,37537L, +37538L,37539L,37540L,37541L,37542L,37543L,37544L,37545L,37546L,37547L, +37548L,37549L,37550L,37551L,37552L,37553L,37554L,37555L,37556L,37557L, +37558L,37559L,37560L,37561L,37562L,37563L,37564L,37565L,37566L,37567L, +37568L,37569L,37570L,37571L,37572L,37573L,37574L,37575L,37576L,37577L, +37578L,37579L,37580L,37581L,37582L,37583L,37584L,37585L,37586L,37587L, +37588L,37589L,37590L,37591L,37592L,37593L,37594L,37595L,37596L,37597L, +37598L,37599L,37600L,37601L,37602L,37603L,37604L,37605L,37606L,37607L, +37608L,37609L,37610L,37611L,37612L,37613L,37614L,37615L,37616L,37617L, +37618L,37619L,37620L,37621L,37622L,37623L,37624L,37625L,37626L,37627L, +37628L,37629L,37630L,37631L,37632L,37633L,37634L,37635L,37636L,37637L, +37638L,37639L,37640L,37641L,37642L,37643L,37644L,37645L,37646L,37647L, +37648L,37649L,37650L,37651L,37652L,37653L,37654L,37655L,37656L,37657L, +37658L,37659L,37660L,37661L,37662L,37663L,37664L,37665L,37666L,37667L, +37668L,37669L,37670L,37671L,37672L,37673L,37674L,37675L,37676L,37677L, +37678L,37679L,37680L,37681L,37682L,37683L,37684L,37685L,37686L,37687L, +37688L,37689L,37690L,37691L,37692L,37693L,37694L,37695L,37696L,37697L, +37698L,37699L,37700L,37701L,37702L,37703L,37704L,37705L,37706L,37707L, +37708L,37709L,37710L,37711L,37712L,37713L,37714L,37715L,37716L,37717L, +37718L,37719L,37720L,37721L,37722L,37723L,37724L,37725L,37726L,37727L, +37728L,37729L,37730L,37731L,37732L,37733L,37734L,37735L,37736L,37737L, +37738L,37739L,37740L,37741L,37742L,37743L,37744L,37745L,37746L,37747L, +37748L,37749L,37750L,37751L,37752L,37753L,37754L,37755L,37756L,37757L, +37758L,37759L,37760L,37761L,37762L,37763L,37764L,37765L,37766L,37767L, +37768L,37769L,37770L,37771L,37772L,37773L,37774L,37775L,37776L,37777L, +37778L,37779L,37780L,37781L,37782L,37783L,37784L,37785L,37786L,37787L, +37788L,37789L,37790L,37791L,37792L,37793L,37794L,37795L,37796L,37797L, +37798L,37799L,37800L,37801L,37802L,37803L,37804L,37805L,37806L,37807L, +37808L,37809L,37810L,37811L,37812L,37813L,37814L,37815L,37816L,37817L, +37818L,37819L,37820L,37821L,37822L,37823L,37824L,37825L,37826L,37827L, +37828L,37829L,37830L,37831L,37832L,37833L,37834L,37835L,37836L,37837L, +37838L,37839L,37840L,37841L,37842L,37843L,37844L,37845L,37846L,37847L, +37848L,37849L,37850L,37851L,37852L,37853L,37854L,37855L,37856L,37857L, +37858L,37859L,37860L,37861L,37862L,37863L,37864L,37865L,37866L,37867L, +37868L,37869L,37870L,37871L,37872L,37873L,37874L,37875L,37876L,37877L, +37878L,37879L,37880L,37881L,37882L,37883L,37884L,37885L,37886L,37887L, +37888L,37889L,37890L,37891L,37892L,37893L,37894L,37895L,37896L,37897L, +37898L,37899L,37900L,37901L,37902L,37903L,37904L,37905L,37906L,37907L, +37908L,37909L,37910L,37911L,37912L,37913L,37914L,37915L,37916L,37917L, +37918L,37919L,37920L,37921L,37922L,37923L,37924L,37925L,37926L,37927L, +37928L,37929L,37930L,37931L,37932L,37933L,37934L,37935L,37936L,37937L, +37938L,37939L,37940L,37941L,37942L,37943L,37944L,37945L,37946L,37947L, +37948L,37949L,37950L,37951L,37952L,37953L,37954L,37955L,37956L,37957L, +37958L,37959L,37960L,37961L,37962L,37963L,37964L,37965L,37966L,37967L, +37968L,37969L,37970L,37971L,37972L,37973L,37974L,37975L,37976L,37977L, +37978L,37979L,37980L,37981L,37982L,37983L,37984L,37985L,37986L,37987L, +37988L,37989L,37990L,37991L,37992L,37993L,37994L,37995L,37996L,37997L, +37998L,37999L,38000L,38001L,38002L,38003L,38004L,38005L,38006L,38007L, +38008L,38009L,38010L,38011L,38012L,38013L,38014L,38015L,38016L,38017L, +38018L,38019L,38020L,38021L,38022L,38023L,38024L,38025L,38026L,38027L, +38028L,38029L,38030L,38031L,38032L,38033L,38034L,38035L,38036L,38037L, +38038L,38039L,38040L,38041L,38042L,38043L,38044L,38045L,38046L,38047L, +38048L,38049L,38050L,38051L,38052L,38053L,38054L,38055L,38056L,38057L, +38058L,38059L,38060L,38061L,38062L,38063L,38064L,38065L,38066L,38067L, +38068L,38069L,38070L,38071L,38072L,38073L,38074L,38075L,38076L,38077L, +38078L,38079L,38080L,38081L,38082L,38083L,38084L,38085L,38086L,38087L, +38088L,38089L,38090L,38091L,38092L,38093L,38094L,38095L,38096L,38097L, +38098L,38099L,38100L,38101L,38102L,38103L,38104L,38105L,38106L,38107L, +38108L,38109L,38110L,38111L,38112L,38113L,38114L,38115L,38116L,38117L, +38118L,38119L,38120L,38121L,38122L,38123L,38124L,38125L,38126L,38127L, +38128L,38129L,38130L,38131L,38132L,38133L,38134L,38135L,38136L,38137L, +38138L,38139L,38140L,38141L,38142L,38143L,38144L,38145L,38146L,38147L, +38148L,38149L,38150L,38151L,38152L,38153L,38154L,38155L,38156L,38157L, +38158L,38159L,38160L,38161L,38162L,38163L,38164L,38165L,38166L,38167L, +38168L,38169L,38170L,38171L,38172L,38173L,38174L,38175L,38176L,38177L, +38178L,38179L,38180L,38181L,38182L,38183L,38184L,38185L,38186L,38187L, +38188L,38189L,38190L,38191L,38192L,38193L,38194L,38195L,38196L,38197L, +38198L,38199L,38200L,38201L,38202L,38203L,38204L,38205L,38206L,38207L, +38208L,38209L,38210L,38211L,38212L,38213L,38214L,38215L,38216L,38217L, +38218L,38219L,38220L,38221L,38222L,38223L,38224L,38225L,38226L,38227L, +38228L,38229L,38230L,38231L,38232L,38233L,38234L,38235L,38236L,38237L, +38238L,38239L,38240L,38241L,38242L,38243L,38244L,38245L,38246L,38247L, +38248L,38249L,38250L,38251L,38252L,38253L,38254L,38255L,38256L,38257L, +38258L,38259L,38260L,38261L,38262L,38263L,38264L,38265L,38266L,38267L, +38268L,38269L,38270L,38271L,38272L,38273L,38274L,38275L,38276L,38277L, +38278L,38279L,38280L,38281L,38282L,38283L,38284L,38285L,38286L,38287L, +38288L,38289L,38290L,38291L,38292L,38293L,38294L,38295L,38296L,38297L, +38298L,38299L,38300L,38301L,38302L,38303L,38304L,38305L,38306L,38307L, +38308L,38309L,38310L,38311L,38312L,38313L,38314L,38315L,38316L,38317L, +38318L,38319L,38320L,38321L,38322L,38323L,38324L,38325L,38326L,38327L, +38328L,38329L,38330L,38331L,38332L,38333L,38334L,38335L,38336L,38337L, +38338L,38339L,38340L,38341L,38342L,38343L,38344L,38345L,38346L,38347L, +38348L,38349L,38350L,38351L,38352L,38353L,38354L,38355L,38356L,38357L, +38358L,38359L,38360L,38361L,38362L,38363L,38364L,38365L,38366L,38367L, +38368L,38369L,38370L,38371L,38372L,38373L,38374L,38375L,38376L,38377L, +38378L,38379L,38380L,38381L,38382L,38383L,38384L,38385L,38386L,38387L, +38388L,38389L,38390L,38391L,38392L,38393L,38394L,38395L,38396L,38397L, +38398L,38399L,38400L,38401L,38402L,38403L,38404L,38405L,38406L,38407L, +38408L,38409L,38410L,38411L,38412L,38413L,38414L,38415L,38416L,38417L, +38418L,38419L,38420L,38421L,38422L,38423L,38424L,38425L,38426L,38427L, +38428L,38429L,38430L,38431L,38432L,38433L,38434L,38435L,38436L,38437L, +38438L,38439L,38440L,38441L,38442L,38443L,38444L,38445L,38446L,38447L, +38448L,38449L,38450L,38451L,38452L,38453L,38454L,38455L,38456L,38457L, +38458L,38459L,38460L,38461L,38462L,38463L,38464L,38465L,38466L,38467L, +38468L,38469L,38470L,38471L,38472L,38473L,38474L,38475L,38476L,38477L, +38478L,38479L,38480L,38481L,38482L,38483L,38484L,38485L,38486L,38487L, +38488L,38489L,38490L,38491L,38492L,38493L,38494L,38495L,38496L,38497L, +38498L,38499L,38500L,38501L,38502L,38503L,38504L,38505L,38506L,38507L, +38508L,38509L,38510L,38511L,38512L,38513L,38514L,38515L,38516L,38517L, +38518L,38519L,38520L,38521L,38522L,38523L,38524L,38525L,38526L,38527L, +38528L,38529L,38530L,38531L,38532L,38533L,38534L,38535L,38536L,38537L, +38538L,38539L,38540L,38541L,38542L,38543L,38544L,38545L,38546L,38547L, +38548L,38549L,38550L,38551L,38552L,38553L,38554L,38555L,38556L,38557L, +38558L,38559L,38560L,38561L,38562L,38563L,38564L,38565L,38566L,38567L, +38568L,38569L,38570L,38571L,38572L,38573L,38574L,38575L,38576L,38577L, +38578L,38579L,38580L,38581L,38582L,38583L,38584L,38585L,38586L,38587L, +38588L,38589L,38590L,38591L,38592L,38593L,38594L,38595L,38596L,38597L, +38598L,38599L,38600L,38601L,38602L,38603L,38604L,38605L,38606L,38607L, +38608L,38609L,38610L,38611L,38612L,38613L,38614L,38615L,38616L,38617L, +38618L,38619L,38620L,38621L,38622L,38623L,38624L,38625L,38626L,38627L, +38628L,38629L,38630L,38631L,38632L,38633L,38634L,38635L,38636L,38637L, +38638L,38639L,38640L,38641L,38642L,38643L,38644L,38645L,38646L,38647L, +38648L,38649L,38650L,38651L,38652L,38653L,38654L,38655L,38656L,38657L, +38658L,38659L,38660L,38661L,38662L,38663L,38664L,38665L,38666L,38667L, +38668L,38669L,38670L,38671L,38672L,38673L,38674L,38675L,38676L,38677L, +38678L,38679L,38680L,38681L,38682L,38683L,38684L,38685L,38686L,38687L, +38688L,38689L,38690L,38691L,38692L,38693L,38694L,38695L,38696L,38697L, +38698L,38699L,38700L,38701L,38702L,38703L,38704L,38705L,38706L,38707L, +38708L,38709L,38710L,38711L,38712L,38713L,38714L,38715L,38716L,38717L, +38718L,38719L,38720L,38721L,38722L,38723L,38724L,38725L,38726L,38727L, +38728L,38729L,38730L,38731L,38732L,38733L,38734L,38735L,38736L,38737L, +38738L,38739L,38740L,38741L,38742L,38743L,38744L,38745L,38746L,38747L, +38748L,38749L,38750L,38751L,38752L,38753L,38754L,38755L,38756L,38757L, +38758L,38759L,38760L,38761L,38762L,38763L,38764L,38765L,38766L,38767L, +38768L,38769L,38770L,38771L,38772L,38773L,38774L,38775L,38776L,38777L, +38778L,38779L,38780L,38781L,38782L,38783L,38784L,38785L,38786L,38787L, +38788L,38789L,38790L,38791L,38792L,38793L,38794L,38795L,38796L,38797L, +38798L,38799L,38800L,38801L,38802L,38803L,38804L,38805L,38806L,38807L, +38808L,38809L,38810L,38811L,38812L,38813L,38814L,38815L,38816L,38817L, +38818L,38819L,38820L,38821L,38822L,38823L,38824L,38825L,38826L,38827L, +38828L,38829L,38830L,38831L,38832L,38833L,38834L,38835L,38836L,38837L, +38838L,38839L,38840L,38841L,38842L,38843L,38844L,38845L,38846L,38847L, +38848L,38849L,38850L,38851L,38852L,38853L,38854L,38855L,38856L,38857L, +38858L,38859L,38860L,38861L,38862L,38863L,38864L,38865L,38866L,38867L, +38868L,38869L,38870L,38871L,38872L,38873L,38874L,38875L,38876L,38877L, +38878L,38879L,38880L,38881L,38882L,38883L,38884L,38885L,38886L,38887L, +38888L,38889L,38890L,38891L,38892L,38893L,38894L,38895L,38896L,38897L, +38898L,38899L,38900L,38901L,38902L,38903L,38904L,38905L,38906L,38907L, +38908L,38909L,38910L,38911L,38912L,38913L,38914L,38915L,38916L,38917L, +38918L,38919L,38920L,38921L,38922L,38923L,38924L,38925L,38926L,38927L, +38928L,38929L,38930L,38931L,38932L,38933L,38934L,38935L,38936L,38937L, +38938L,38939L,38940L,38941L,38942L,38943L,38944L,38945L,38946L,38947L, +38948L,38949L,38950L,38951L,38952L,38953L,38954L,38955L,38956L,38957L, +38958L,38959L,38960L,38961L,38962L,38963L,38964L,38965L,38966L,38967L, +38968L,38969L,38970L,38971L,38972L,38973L,38974L,38975L,38976L,38977L, +38978L,38979L,38980L,38981L,38982L,38983L,38984L,38985L,38986L,38987L, +38988L,38989L,38990L,38991L,38992L,38993L,38994L,38995L,38996L,38997L, +38998L,38999L,39000L,39001L,39002L,39003L,39004L,39005L,39006L,39007L, +39008L,39009L,39010L,39011L,39012L,39013L,39014L,39015L,39016L,39017L, +39018L,39019L,39020L,39021L,39022L,39023L,39024L,39025L,39026L,39027L, +39028L,39029L,39030L,39031L,39032L,39033L,39034L,39035L,39036L,39037L, +39038L,39039L,39040L,39041L,39042L,39043L,39044L,39045L,39046L,39047L, +39048L,39049L,39050L,39051L,39052L,39053L,39054L,39055L,39056L,39057L, +39058L,39059L,39060L,39061L,39062L,39063L,39064L,39065L,39066L,39067L, +39068L,39069L,39070L,39071L,39072L,39073L,39074L,39075L,39076L,39077L, +39078L,39079L,39080L,39081L,39082L,39083L,39084L,39085L,39086L,39087L, +39088L,39089L,39090L,39091L,39092L,39093L,39094L,39095L,39096L,39097L, +39098L,39099L,39100L,39101L,39102L,39103L,39104L,39105L,39106L,39107L, +39108L,39109L,39110L,39111L,39112L,39113L,39114L,39115L,39116L,39117L, +39118L,39119L,39120L,39121L,39122L,39123L,39124L,39125L,39126L,39127L, +39128L,39129L,39130L,39131L,39132L,39133L,39134L,39135L,39136L,39137L, +39138L,39139L,39140L,39141L,39142L,39143L,39144L,39145L,39146L,39147L, +39148L,39149L,39150L,39151L,39152L,39153L,39154L,39155L,39156L,39157L, +39158L,39159L,39160L,39161L,39162L,39163L,39164L,39165L,39166L,39167L, +39168L,39169L,39170L,39171L,39172L,39173L,39174L,39175L,39176L,39177L, +39178L,39179L,39180L,39181L,39182L,39183L,39184L,39185L,39186L,39187L, +39188L,39189L,39190L,39191L,39192L,39193L,39194L,39195L,39196L,39197L, +39198L,39199L,39200L,39201L,39202L,39203L,39204L,39205L,39206L,39207L, +39208L,39209L,39210L,39211L,39212L,39213L,39214L,39215L,39216L,39217L, +39218L,39219L,39220L,39221L,39222L,39223L,39224L,39225L,39226L,39227L, +39228L,39229L,39230L,39231L,39232L,39233L,39234L,39235L,39236L,39237L, +39238L,39239L,39240L,39241L,39242L,39243L,39244L,39245L,39246L,39247L, +39248L,39249L,39250L,39251L,39252L,39253L,39254L,39255L,39256L,39257L, +39258L,39259L,39260L,39261L,39262L,39263L,39264L,39265L,39266L,39267L, +39268L,39269L,39270L,39271L,39272L,39273L,39274L,39275L,39276L,39277L, +39278L,39279L,39280L,39281L,39282L,39283L,39284L,39285L,39286L,39287L, +39288L,39289L,39290L,39291L,39292L,39293L,39294L,39295L,39296L,39297L, +39298L,39299L,39300L,39301L,39302L,39303L,39304L,39305L,39306L,39307L, +39308L,39309L,39310L,39311L,39312L,39313L,39314L,39315L,39316L,39317L, +39318L,39319L,39320L,39321L,39322L,39323L,39324L,39325L,39326L,39327L, +39328L,39329L,39330L,39331L,39332L,39333L,39334L,39335L,39336L,39337L, +39338L,39339L,39340L,39341L,39342L,39343L,39344L,39345L,39346L,39347L, +39348L,39349L,39350L,39351L,39352L,39353L,39354L,39355L,39356L,39357L, +39358L,39359L,39360L,39361L,39362L,39363L,39364L,39365L,39366L,39367L, +39368L,39369L,39370L,39371L,39372L,39373L,39374L,39375L,39376L,39377L, +39378L,39379L,39380L,39381L,39382L,39383L,39384L,39385L,39386L,39387L, +39388L,39389L,39390L,39391L,39392L,39393L,39394L,39395L,39396L,39397L, +39398L,39399L,39400L,39401L,39402L,39403L,39404L,39405L,39406L,39407L, +39408L,39409L,39410L,39411L,39412L,39413L,39414L,39415L,39416L,39417L, +39418L,39419L,39420L,39421L,39422L,39423L,39424L,39425L,39426L,39427L, +39428L,39429L,39430L,39431L,39432L,39433L,39434L,39435L,39436L,39437L, +39438L,39439L,39440L,39441L,39442L,39443L,39444L,39445L,39446L,39447L, +39448L,39449L,39450L,39451L,39452L,39453L,39454L,39455L,39456L,39457L, +39458L,39459L,39460L,39461L,39462L,39463L,39464L,39465L,39466L,39467L, +39468L,39469L,39470L,39471L,39472L,39473L,39474L,39475L,39476L,39477L, +39478L,39479L,39480L,39481L,39482L,39483L,39484L,39485L,39486L,39487L, +39488L,39489L,39490L,39491L,39492L,39493L,39494L,39495L,39496L,39497L, +39498L,39499L,39500L,39501L,39502L,39503L,39504L,39505L,39506L,39507L, +39508L,39509L,39510L,39511L,39512L,39513L,39514L,39515L,39516L,39517L, +39518L,39519L,39520L,39521L,39522L,39523L,39524L,39525L,39526L,39527L, +39528L,39529L,39530L,39531L,39532L,39533L,39534L,39535L,39536L,39537L, +39538L,39539L,39540L,39541L,39542L,39543L,39544L,39545L,39546L,39547L, +39548L,39549L,39550L,39551L,39552L,39553L,39554L,39555L,39556L,39557L, +39558L,39559L,39560L,39561L,39562L,39563L,39564L,39565L,39566L,39567L, +39568L,39569L,39570L,39571L,39572L,39573L,39574L,39575L,39576L,39577L, +39578L,39579L,39580L,39581L,39582L,39583L,39584L,39585L,39586L,39587L, +39588L,39589L,39590L,39591L,39592L,39593L,39594L,39595L,39596L,39597L, +39598L,39599L,39600L,39601L,39602L,39603L,39604L,39605L,39606L,39607L, +39608L,39609L,39610L,39611L,39612L,39613L,39614L,39615L,39616L,39617L, +39618L,39619L,39620L,39621L,39622L,39623L,39624L,39625L,39626L,39627L, +39628L,39629L,39630L,39631L,39632L,39633L,39634L,39635L,39636L,39637L, +39638L,39639L,39640L,39641L,39642L,39643L,39644L,39645L,39646L,39647L, +39648L,39649L,39650L,39651L,39652L,39653L,39654L,39655L,39656L,39657L, +39658L,39659L,39660L,39661L,39662L,39663L,39664L,39665L,39666L,39667L, +39668L,39669L,39670L,39671L,39672L,39673L,39674L,39675L,39676L,39677L, +39678L,39679L,39680L,39681L,39682L,39683L,39684L,39685L,39686L,39687L, +39688L,39689L,39690L,39691L,39692L,39693L,39694L,39695L,39696L,39697L, +39698L,39699L,39700L,39701L,39702L,39703L,39704L,39705L,39706L,39707L, +39708L,39709L,39710L,39711L,39712L,39713L,39714L,39715L,39716L,39717L, +39718L,39719L,39720L,39721L,39722L,39723L,39724L,39725L,39726L,39727L, +39728L,39729L,39730L,39731L,39732L,39733L,39734L,39735L,39736L,39737L, +39738L,39739L,39740L,39741L,39742L,39743L,39744L,39745L,39746L,39747L, +39748L,39749L,39750L,39751L,39752L,39753L,39754L,39755L,39756L,39757L, +39758L,39759L,39760L,39761L,39762L,39763L,39764L,39765L,39766L,39767L, +39768L,39769L,39770L,39771L,39772L,39773L,39774L,39775L,39776L,39777L, +39778L,39779L,39780L,39781L,39782L,39783L,39784L,39785L,39786L,39787L, +39788L,39789L,39790L,39791L,39792L,39793L,39794L,39795L,39796L,39797L, +39798L,39799L,39800L,39801L,39802L,39803L,39804L,39805L,39806L,39807L, +39808L,39809L,39810L,39811L,39812L,39813L,39814L,39815L,39816L,39817L, +39818L,39819L,39820L,39821L,39822L,39823L,39824L,39825L,39826L,39827L, +39828L,39829L,39830L,39831L,39832L,39833L,39834L,39835L,39836L,39837L, +39838L,39839L,39840L,39841L,39842L,39843L,39844L,39845L,39846L,39847L, +39848L,39849L,39850L,39851L,39852L,39853L,39854L,39855L,39856L,39857L, +39858L,39859L,39860L,39861L,39862L,39863L,39864L,39865L,39866L,39867L, +39868L,39869L,39870L,39871L,39872L,39873L,39874L,39875L,39876L,39877L, +39878L,39879L,39880L,39881L,39882L,39883L,39884L,39885L,39886L,39887L, +39888L,39889L,39890L,39891L,39892L,39893L,39894L,39895L,39896L,39897L, +39898L,39899L,39900L,39901L,39902L,39903L,39904L,39905L,39906L,39907L, +39908L,39909L,39910L,39911L,39912L,39913L,39914L,39915L,39916L,39917L, +39918L,39919L,39920L,39921L,39922L,39923L,39924L,39925L,39926L,39927L, +39928L,39929L,39930L,39931L,39932L,39933L,39934L,39935L,39936L,39937L, +39938L,39939L,39940L,39941L,39942L,39943L,39944L,39945L,39946L,39947L, +39948L,39949L,39950L,39951L,39952L,39953L,39954L,39955L,39956L,39957L, +39958L,39959L,39960L,39961L,39962L,39963L,39964L,39965L,39966L,39967L, +39968L,39969L,39970L,39971L,39972L,39973L,39974L,39975L,39976L,39977L, +39978L,39979L,39980L,39981L,39982L,39983L,39984L,39985L,39986L,39987L, +39988L,39989L,39990L,39991L,39992L,39993L,39994L,39995L,39996L,39997L, +39998L,39999L,40000L,40001L,40002L,40003L,40004L,40005L,40006L,40007L, +40008L,40009L,40010L,40011L,40012L,40013L,40014L,40015L,40016L,40017L, +40018L,40019L,40020L,40021L,40022L,40023L,40024L,40025L,40026L,40027L, +40028L,40029L,40030L,40031L,40032L,40033L,40034L,40035L,40036L,40037L, +40038L,40039L,40040L,40041L,40042L,40043L,40044L,40045L,40046L,40047L, +40048L,40049L,40050L,40051L,40052L,40053L,40054L,40055L,40056L,40057L, +40058L,40059L,40060L,40061L,40062L,40063L,40064L,40065L,40066L,40067L, +40068L,40069L,40070L,40071L,40072L,40073L,40074L,40075L,40076L,40077L, +40078L,40079L,40080L,40081L,40082L,40083L,40084L,40085L,40086L,40087L, +40088L,40089L,40090L,40091L,40092L,40093L,40094L,40095L,40096L,40097L, +40098L,40099L,40100L,40101L,40102L,40103L,40104L,40105L,40106L,40107L, +40108L,40109L,40110L,40111L,40112L,40113L,40114L,40115L,40116L,40117L, +40118L,40119L,40120L,40121L,40122L,40123L,40124L,40125L,40126L,40127L, +40128L,40129L,40130L,40131L,40132L,40133L,40134L,40135L,40136L,40137L, +40138L,40139L,40140L,40141L,40142L,40143L,40144L,40145L,40146L,40147L, +40148L,40149L,40150L,40151L,40152L,40153L,40154L,40155L,40156L,40157L, +40158L,40159L,40160L,40161L,40162L,40163L,40164L,40165L,40166L,40167L, +40168L,40169L,40170L,40171L,40172L,40173L,40174L,40175L,40176L,40177L, +40178L,40179L,40180L,40181L,40182L,40183L,40184L,40185L,40186L,40187L, +40188L,40189L,40190L,40191L,40192L,40193L,40194L,40195L,40196L,40197L, +40198L,40199L,40200L,40201L,40202L,40203L,40204L,40205L,40206L,40207L, +40208L,40209L,40210L,40211L,40212L,40213L,40214L,40215L,40216L,40217L, +40218L,40219L,40220L,40221L,40222L,40223L,40224L,40225L,40226L,40227L, +40228L,40229L,40230L,40231L,40232L,40233L,40234L,40235L,40236L,40237L, +40238L,40239L,40240L,40241L,40242L,40243L,40244L,40245L,40246L,40247L, +40248L,40249L,40250L,40251L,40252L,40253L,40254L,40255L,40256L,40257L, +40258L,40259L,40260L,40261L,40262L,40263L,40264L,40265L,40266L,40267L, +40268L,40269L,40270L,40271L,40272L,40273L,40274L,40275L,40276L,40277L, +40278L,40279L,40280L,40281L,40282L,40283L,40284L,40285L,40286L,40287L, +40288L,40289L,40290L,40291L,40292L,40293L,40294L,40295L,40296L,40297L, +40298L,40299L,40300L,40301L,40302L,40303L,40304L,40305L,40306L,40307L, +40308L,40309L,40310L,40311L,40312L,40313L,40314L,40315L,40316L,40317L, +40318L,40319L,40320L,40321L,40322L,40323L,40324L,40325L,40326L,40327L, +40328L,40329L,40330L,40331L,40332L,40333L,40334L,40335L,40336L,40337L, +40338L,40339L,40340L,40341L,40342L,40343L,40344L,40345L,40346L,40347L, +40348L,40349L,40350L,40351L,40352L,40353L,40354L,40355L,40356L,40357L, +40358L,40359L,40360L,40361L,40362L,40363L,40364L,40365L,40366L,40367L, +40368L,40369L,40370L,40371L,40372L,40373L,40374L,40375L,40376L,40377L, +40378L,40379L,40380L,40381L,40382L,40383L,40384L,40385L,40386L,40387L, +40388L,40389L,40390L,40391L,40392L,40393L,40394L,40395L,40396L,40397L, +40398L,40399L,40400L,40401L,40402L,40403L,40404L,40405L,40406L,40407L, +40408L,40409L,40410L,40411L,40412L,40413L,40414L,40415L,40416L,40417L, +40418L,40419L,40420L,40421L,40422L,40423L,40424L,40425L,40426L,40427L, +40428L,40429L,40430L,40431L,40432L,40433L,40434L,40435L,40436L,40437L, +40438L,40439L,40440L,40441L,40442L,40443L,40444L,40445L,40446L,40447L, +40448L,40449L,40450L,40451L,40452L,40453L,40454L,40455L,40456L,40457L, +40458L,40459L,40460L,40461L,40462L,40463L,40464L,40465L,40466L,40467L, +40468L,40469L,40470L,40471L,40472L,40473L,40474L,40475L,40476L,40477L, +40478L,40479L,40480L,40481L,40482L,40483L,40484L,40485L,40486L,40487L, +40488L,40489L,40490L,40491L,40492L,40493L,40494L,40495L,40496L,40497L, +40498L,40499L,40500L,40501L,40502L,40503L,40504L,40505L,40506L,40507L, +40508L,40509L,40510L,40511L,40512L,40513L,40514L,40515L,40516L,40517L, +40518L,40519L,40520L,40521L,40522L,40523L,40524L,40525L,40526L,40527L, +40528L,40529L,40530L,40531L,40532L,40533L,40534L,40535L,40536L,40537L, +40538L,40539L,40540L,40541L,40542L,40543L,40544L,40545L,40546L,40547L, +40548L,40549L,40550L,40551L,40552L,40553L,40554L,40555L,40556L,40557L, +40558L,40559L,40560L,40561L,40562L,40563L,40564L,40565L,40566L,40567L, +40568L,40569L,40570L,40571L,40572L,40573L,40574L,40575L,40576L,40577L, +40578L,40579L,40580L,40581L,40582L,40583L,40584L,40585L,40586L,40587L, +40588L,40589L,40590L,40591L,40592L,40593L,40594L,40595L,40596L,40597L, +40598L,40599L,40600L,40601L,40602L,40603L,40604L,40605L,40606L,40607L, +40608L,40609L,40610L,40611L,40612L,40613L,40614L,40615L,40616L,40617L, +40618L,40619L,40620L,40621L,40622L,40623L,40624L,40625L,40626L,40627L, +40628L,40629L,40630L,40631L,40632L,40633L,40634L,40635L,40636L,40637L, +40638L,40639L,40640L,40641L,40642L,40643L,40644L,40645L,40646L,40647L, +40648L,40649L,40650L,40651L,40652L,40653L,40654L,40655L,40656L,40657L, +40658L,40659L,40660L,40661L,40662L,40663L,40664L,40665L,40666L,40667L, +40668L,40669L,40670L,40671L,40672L,40673L,40674L,40675L,40676L,40677L, +40678L,40679L,40680L,40681L,40682L,40683L,40684L,40685L,40686L,40687L, +40688L,40689L,40690L,40691L,40692L,40693L,40694L,40695L,40696L,40697L, +40698L,40699L,40700L,40701L,40702L,40703L,40704L,40705L,40706L,40707L, +40708L,40709L,40710L,40711L,40712L,40713L,40714L,40715L,40716L,40717L, +40718L,40719L,40720L,40721L,40722L,40723L,40724L,40725L,40726L,40727L, +40728L,40729L,40730L,40731L,40732L,40733L,40734L,40735L,40736L,40737L, +40738L,40739L,40740L,40741L,40742L,40743L,40744L,40745L,40746L,40747L, +40748L,40749L,40750L,40751L,40752L,40753L,40754L,40755L,40756L,40757L, +40758L,40759L,40760L,40761L,40762L,40763L,40764L,40765L,40766L,40767L, +40768L,40769L,40770L,40771L,40772L,40773L,40774L,40775L,40776L,40777L, +40778L,40779L,40780L,40781L,40782L,40783L,40784L,40785L,40786L,40787L, +40788L,40789L,40790L,40791L,40792L,40793L,40794L,40795L,40796L,40797L, +40798L,40799L,40800L,40801L,40802L,40803L,40804L,40805L,40806L,40807L, +40808L,40809L,40810L,40811L,40812L,40813L,40814L,40815L,40816L,40817L, +40818L,40819L,40820L,40821L,40822L,40823L,40824L,40825L,40826L,40827L, +40828L,40829L,40830L,40831L,40832L,40833L,40834L,40835L,40836L,40837L, +40838L,40839L,40840L,40841L,40842L,40843L,40844L,40845L,40846L,40847L, +40848L,40849L,40850L,40851L,40852L,40853L,40854L,40855L,40856L,40857L, +40858L,40859L,40860L,40861L,40862L,40863L,40864L,40865L,40866L,40867L, +40868L,40869L,40870L,40871L,40872L,40873L,40874L,40875L,40876L,40877L, +40878L,40879L,40880L,40881L,40882L,40883L,40884L,40885L,40886L,40887L, +40888L,40889L,40890L,40891L,40892L,40893L,40894L,40895L,40896L,40897L, +40898L,40899L,40900L,40901L,40902L,40903L,40904L,40905L,40906L,40907L, +40908L,40909L,40910L,40911L,40912L,40913L,40914L,40915L,40916L,40917L, +40918L,40919L,40920L,40921L,40922L,40923L,40924L,40925L,40926L,40927L, +40928L,40929L,40930L,40931L,40932L,40933L,40934L,40935L,40936L,40937L, +40938L,40939L,40940L,40941L,40942L,40943L,40944L,40945L,40946L,40947L, +40948L,40949L,40950L,40951L,40952L,40953L,40954L,40955L,40956L,40957L, +40958L,40959L,40960L,40961L,40962L,40963L,40964L,40965L,40966L,40967L, +40968L,40969L,40970L,40971L,40972L,40973L,40974L,40975L,40976L,40977L, +40978L,40979L,40980L,40981L,40982L,40983L,40984L,40985L,40986L,40987L, +40988L,40989L,40990L,40991L,40992L,40993L,40994L,40995L,40996L,40997L, +40998L,40999L,41000L,41001L,41002L,41003L,41004L,41005L,41006L,41007L, +41008L,41009L,41010L,41011L,41012L,41013L,41014L,41015L,41016L,41017L, +41018L,41019L,41020L,41021L,41022L,41023L,41024L,41025L,41026L,41027L, +41028L,41029L,41030L,41031L,41032L,41033L,41034L,41035L,41036L,41037L, +41038L,41039L,41040L,41041L,41042L,41043L,41044L,41045L,41046L,41047L, +41048L,41049L,41050L,41051L,41052L,41053L,41054L,41055L,41056L,41057L, +41058L,41059L,41060L,41061L,41062L,41063L,41064L,41065L,41066L,41067L, +41068L,41069L,41070L,41071L,41072L,41073L,41074L,41075L,41076L,41077L, +41078L,41079L,41080L,41081L,41082L,41083L,41084L,41085L,41086L,41087L, +41088L,41089L,41090L,41091L,41092L,41093L,41094L,41095L,41096L,41097L, +41098L,41099L,41100L,41101L,41102L,41103L,41104L,41105L,41106L,41107L, +41108L,41109L,41110L,41111L,41112L,41113L,41114L,41115L,41116L,41117L, +41118L,41119L,41120L,41121L,41122L,41123L,41124L,41125L,41126L,41127L, +41128L,41129L,41130L,41131L,41132L,41133L,41134L,41135L,41136L,41137L, +41138L,41139L,41140L,41141L,41142L,41143L,41144L,41145L,41146L,41147L, +41148L,41149L,41150L,41151L,41152L,41153L,41154L,41155L,41156L,41157L, +41158L,41159L,41160L,41161L,41162L,41163L,41164L,41165L,41166L,41167L, +41168L,41169L,41170L,41171L,41172L,41173L,41174L,41175L,41176L,41177L, +41178L,41179L,41180L,41181L,41182L,41183L,41184L,41185L,41186L,41187L, +41188L,41189L,41190L,41191L,41192L,41193L,41194L,41195L,41196L,41197L, +41198L,41199L,41200L,41201L,41202L,41203L,41204L,41205L,41206L,41207L, +41208L,41209L,41210L,41211L,41212L,41213L,41214L,41215L,41216L,41217L, +41218L,41219L,41220L,41221L,41222L,41223L,41224L,41225L,41226L,41227L, +41228L,41229L,41230L,41231L,41232L,41233L,41234L,41235L,41236L,41237L, +41238L,41239L,41240L,41241L,41242L,41243L,41244L,41245L,41246L,41247L, +41248L,41249L,41250L,41251L,41252L,41253L,41254L,41255L,41256L,41257L, +41258L,41259L,41260L,41261L,41262L,41263L,41264L,41265L,41266L,41267L, +41268L,41269L,41270L,41271L,41272L,41273L,41274L,41275L,41276L,41277L, +41278L,41279L,41280L,41281L,41282L,41283L,41284L,41285L,41286L,41287L, +41288L,41289L,41290L,41291L,41292L,41293L,41294L,41295L,41296L,41297L, +41298L,41299L,41300L,41301L,41302L,41303L,41304L,41305L,41306L,41307L, +41308L,41309L,41310L,41311L,41312L,41313L,41314L,41315L,41316L,41317L, +41318L,41319L,41320L,41321L,41322L,41323L,41324L,41325L,41326L,41327L, +41328L,41329L,41330L,41331L,41332L,41333L,41334L,41335L,41336L,41337L, +41338L,41339L,41340L,41341L,41342L,41343L,41344L,41345L,41346L,41347L, +41348L,41349L,41350L,41351L,41352L,41353L,41354L,41355L,41356L,41357L, +41358L,41359L,41360L,41361L,41362L,41363L,41364L,41365L,41366L,41367L, +41368L,41369L,41370L,41371L,41372L,41373L,41374L,41375L,41376L,41377L, +41378L,41379L,41380L,41381L,41382L,41383L,41384L,41385L,41386L,41387L, +41388L,41389L,41390L,41391L,41392L,41393L,41394L,41395L,41396L,41397L, +41398L,41399L,41400L,41401L,41402L,41403L,41404L,41405L,41406L,41407L, +41408L,41409L,41410L,41411L,41412L,41413L,41414L,41415L,41416L,41417L, +41418L,41419L,41420L,41421L,41422L,41423L,41424L,41425L,41426L,41427L, +41428L,41429L,41430L,41431L,41432L,41433L,41434L,41435L,41436L,41437L, +41438L,41439L,41440L,41441L,41442L,41443L,41444L,41445L,41446L,41447L, +41448L,41449L,41450L,41451L,41452L,41453L,41454L,41455L,41456L,41457L, +41458L,41459L,41460L,41461L,41462L,41463L,41464L,41465L,41466L,41467L, +41468L,41469L,41470L,41471L,41472L,41473L,41474L,41475L,41476L,41477L, +41478L,41479L,41480L,41481L,41482L,41483L,41484L,41485L,41486L,41487L, +41488L,41489L,41490L,41491L,41492L,41493L,41494L,41495L,41496L,41497L, +41498L,41499L,41500L,41501L,41502L,41503L,41504L,41505L,41506L,41507L, +41508L,41509L,41510L,41511L,41512L,41513L,41514L,41515L,41516L,41517L, +41518L,41519L,41520L,41521L,41522L,41523L,41524L,41525L,41526L,41527L, +41528L,41529L,41530L,41531L,41532L,41533L,41534L,41535L,41536L,41537L, +41538L,41539L,41540L,41541L,41542L,41543L,41544L,41545L,41546L,41547L, +41548L,41549L,41550L,41551L,41552L,41553L,41554L,41555L,41556L,41557L, +41558L,41559L,41560L,41561L,41562L,41563L,41564L,41565L,41566L,41567L, +41568L,41569L,41570L,41571L,41572L,41573L,41574L,41575L,41576L,41577L, +41578L,41579L,41580L,41581L,41582L,41583L,41584L,41585L,41586L,41587L, +41588L,41589L,41590L,41591L,41592L,41593L,41594L,41595L,41596L,41597L, +41598L,41599L,41600L,41601L,41602L,41603L,41604L,41605L,41606L,41607L, +41608L,41609L,41610L,41611L,41612L,41613L,41614L,41615L,41616L,41617L, +41618L,41619L,41620L,41621L,41622L,41623L,41624L,41625L,41626L,41627L, +41628L,41629L,41630L,41631L,41632L,41633L,41634L,41635L,41636L,41637L, +41638L,41639L,41640L,41641L,41642L,41643L,41644L,41645L,41646L,41647L, +41648L,41649L,41650L,41651L,41652L,41653L,41654L,41655L,41656L,41657L, +41658L,41659L,41660L,41661L,41662L,41663L,41664L,41665L,41666L,41667L, +41668L,41669L,41670L,41671L,41672L,41673L,41674L,41675L,41676L,41677L, +41678L,41679L,41680L,41681L,41682L,41683L,41684L,41685L,41686L,41687L, +41688L,41689L,41690L,41691L,41692L,41693L,41694L,41695L,41696L,41697L, +41698L,41699L,41700L,41701L,41702L,41703L,41704L,41705L,41706L,41707L, +41708L,41709L,41710L,41711L,41712L,41713L,41714L,41715L,41716L,41717L, +41718L,41719L,41720L,41721L,41722L,41723L,41724L,41725L,41726L,41727L, +41728L,41729L,41730L,41731L,41732L,41733L,41734L,41735L,41736L,41737L, +41738L,41739L,41740L,41741L,41742L,41743L,41744L,41745L,41746L,41747L, +41748L,41749L,41750L,41751L,41752L,41753L,41754L,41755L,41756L,41757L, +41758L,41759L,41760L,41761L,41762L,41763L,41764L,41765L,41766L,41767L, +41768L,41769L,41770L,41771L,41772L,41773L,41774L,41775L,41776L,41777L, +41778L,41779L,41780L,41781L,41782L,41783L,41784L,41785L,41786L,41787L, +41788L,41789L,41790L,41791L,41792L,41793L,41794L,41795L,41796L,41797L, +41798L,41799L,41800L,41801L,41802L,41803L,41804L,41805L,41806L,41807L, +41808L,41809L,41810L,41811L,41812L,41813L,41814L,41815L,41816L,41817L, +41818L,41819L,41820L,41821L,41822L,41823L,41824L,41825L,41826L,41827L, +41828L,41829L,41830L,41831L,41832L,41833L,41834L,41835L,41836L,41837L, +41838L,41839L,41840L,41841L,41842L,41843L,41844L,41845L,41846L,41847L, +41848L,41849L,41850L,41851L,41852L,41853L,41854L,41855L,41856L,41857L, +41858L,41859L,41860L,41861L,41862L,41863L,41864L,41865L,41866L,41867L, +41868L,41869L,41870L,41871L,41872L,41873L,41874L,41875L,41876L,41877L, +41878L,41879L,41880L,41881L,41882L,41883L,41884L,41885L,41886L,41887L, +41888L,41889L,41890L,41891L,41892L,41893L,41894L,41895L,41896L,41897L, +41898L,41899L,41900L,41901L,41902L,41903L,41904L,41905L,41906L,41907L, +41908L,41909L,41910L,41911L,41912L,41913L,41914L,41915L,41916L,41917L, +41918L,41919L,41920L,41921L,41922L,41923L,41924L,41925L,41926L,41927L, +41928L,41929L,41930L,41931L,41932L,41933L,41934L,41935L,41936L,41937L, +41938L,41939L,41940L,41941L,41942L,41943L,41944L,41945L,41946L,41947L, +41948L,41949L,41950L,41951L,41952L,41953L,41954L,41955L,41956L,41957L, +41958L,41959L,41960L,41961L,41962L,41963L,41964L,41965L,41966L,41967L, +41968L,41969L,41970L,41971L,41972L,41973L,41974L,41975L,41976L,41977L, +41978L,41979L,41980L,41981L,41982L,41983L,41984L,41985L,41986L,41987L, +41988L,41989L,41990L,41991L,41992L,41993L,41994L,41995L,41996L,41997L, +41998L,41999L,42000L,42001L,42002L,42003L,42004L,42005L,42006L,42007L, +42008L,42009L,42010L,42011L,42012L,42013L,42014L,42015L,42016L,42017L, +42018L,42019L,42020L,42021L,42022L,42023L,42024L,42025L,42026L,42027L, +42028L,42029L,42030L,42031L,42032L,42033L,42034L,42035L,42036L,42037L, +42038L,42039L,42040L,42041L,42042L,42043L,42044L,42045L,42046L,42047L, +42048L,42049L,42050L,42051L,42052L,42053L,42054L,42055L,42056L,42057L, +42058L,42059L,42060L,42061L,42062L,42063L,42064L,42065L,42066L,42067L, +42068L,42069L,42070L,42071L,42072L,42073L,42074L,42075L,42076L,42077L, +42078L,42079L,42080L,42081L,42082L,42083L,42084L,42085L,42086L,42087L, +42088L,42089L,42090L,42091L,42092L,42093L,42094L,42095L,42096L,42097L, +42098L,42099L,42100L,42101L,42102L,42103L,42104L,42105L,42106L,42107L, +42108L,42109L,42110L,42111L,42112L,42113L,42114L,42115L,42116L,42117L, +42118L,42119L,42120L,42121L,42122L,42123L,42124L,42125L,42126L,42127L, +42128L,42129L,42130L,42131L,42132L,42133L,42134L,42135L,42136L,42137L, +42138L,42139L,42140L,42141L,42142L,42143L,42144L,42145L,42146L,42147L, +42148L,42149L,42150L,42151L,42152L,42153L,42154L,42155L,42156L,42157L, +42158L,42159L,42160L,42161L,42162L,42163L,42164L,42165L,42166L,42167L, +42168L,42169L,42170L,42171L,42172L,42173L,42174L,42175L,42176L,42177L, +42178L,42179L,42180L,42181L,42182L,42183L,42184L,42185L,42186L,42187L, +42188L,42189L,42190L,42191L,42192L,42193L,42194L,42195L,42196L,42197L, +42198L,42199L,42200L,42201L,42202L,42203L,42204L,42205L,42206L,42207L, +42208L,42209L,42210L,42211L,42212L,42213L,42214L,42215L,42216L,42217L, +42218L,42219L,42220L,42221L,42222L,42223L,42224L,42225L,42226L,42227L, +42228L,42229L,42230L,42231L,42232L,42233L,42234L,42235L,42236L,42237L, +42238L,42239L,42240L,42241L,42242L,42243L,42244L,42245L,42246L,42247L, +42248L,42249L,42250L,42251L,42252L,42253L,42254L,42255L,42256L,42257L, +42258L,42259L,42260L,42261L,42262L,42263L,42264L,42265L,42266L,42267L, +42268L,42269L,42270L,42271L,42272L,42273L,42274L,42275L,42276L,42277L, +42278L,42279L,42280L,42281L,42282L,42283L,42284L,42285L,42286L,42287L, +42288L,42289L,42290L,42291L,42292L,42293L,42294L,42295L,42296L,42297L, +42298L,42299L,42300L,42301L,42302L,42303L,42304L,42305L,42306L,42307L, +42308L,42309L,42310L,42311L,42312L,42313L,42314L,42315L,42316L,42317L, +42318L,42319L,42320L,42321L,42322L,42323L,42324L,42325L,42326L,42327L, +42328L,42329L,42330L,42331L,42332L,42333L,42334L,42335L,42336L,42337L, +42338L,42339L,42340L,42341L,42342L,42343L,42344L,42345L,42346L,42347L, +42348L,42349L,42350L,42351L,42352L,42353L,42354L,42355L,42356L,42357L, +42358L,42359L,42360L,42361L,42362L,42363L,42364L,42365L,42366L,42367L, +42368L,42369L,42370L,42371L,42372L,42373L,42374L,42375L,42376L,42377L, +42378L,42379L,42380L,42381L,42382L,42383L,42384L,42385L,42386L,42387L, +42388L,42389L,42390L,42391L,42392L,42393L,42394L,42395L,42396L,42397L, +42398L,42399L,42400L,42401L,42402L,42403L,42404L,42405L,42406L,42407L, +42408L,42409L,42410L,42411L,42412L,42413L,42414L,42415L,42416L,42417L, +42418L,42419L,42420L,42421L,42422L,42423L,42424L,42425L,42426L,42427L, +42428L,42429L,42430L,42431L,42432L,42433L,42434L,42435L,42436L,42437L, +42438L,42439L,42440L,42441L,42442L,42443L,42444L,42445L,42446L,42447L, +42448L,42449L,42450L,42451L,42452L,42453L,42454L,42455L,42456L,42457L, +42458L,42459L,42460L,42461L,42462L,42463L,42464L,42465L,42466L,42467L, +42468L,42469L,42470L,42471L,42472L,42473L,42474L,42475L,42476L,42477L, +42478L,42479L,42480L,42481L,42482L,42483L,42484L,42485L,42486L,42487L, +42488L,42489L,42490L,42491L,42492L,42493L,42494L,42495L,42496L,42497L, +42498L,42499L,42500L,42501L,42502L,42503L,42504L,42505L,42506L,42507L, +42508L,42509L,42510L,42511L,42512L,42513L,42514L,42515L,42516L,42517L, +42518L,42519L,42520L,42521L,42522L,42523L,42524L,42525L,42526L,42527L, +42528L,42529L,42530L,42531L,42532L,42533L,42534L,42535L,42536L,42537L, +42538L,42539L,42540L,42541L,42542L,42543L,42544L,42545L,42546L,42547L, +42548L,42549L,42550L,42551L,42552L,42553L,42554L,42555L,42556L,42557L, +42558L,42559L,42560L,42560L,42562L,42562L,42564L,42564L,42566L,42566L, +42568L,42568L,42570L,42570L,42572L,42572L,42574L,42574L,42576L,42576L, +42578L,42578L,42580L,42580L,42582L,42582L,42584L,42584L,42586L,42586L, +42588L,42588L,42590L,42590L,42592L,42592L,42594L,42594L,42596L,42596L, +42598L,42598L,42600L,42600L,42602L,42602L,42604L,42604L,42606L,42607L, +42608L,42609L,42610L,42611L,42612L,42613L,42614L,42615L,42616L,42617L, +42618L,42619L,42620L,42621L,42622L,42623L,42624L,42624L,42626L,42626L, +42628L,42628L,42630L,42630L,42632L,42632L,42634L,42634L,42636L,42636L, +42638L,42638L,42640L,42640L,42642L,42642L,42644L,42644L,42646L,42646L, +42648L,42648L,42650L,42650L,42652L,42653L,42654L,42655L,42656L,42657L, +42658L,42659L,42660L,42661L,42662L,42663L,42664L,42665L,42666L,42667L, +42668L,42669L,42670L,42671L,42672L,42673L,42674L,42675L,42676L,42677L, +42678L,42679L,42680L,42681L,42682L,42683L,42684L,42685L,42686L,42687L, +42688L,42689L,42690L,42691L,42692L,42693L,42694L,42695L,42696L,42697L, +42698L,42699L,42700L,42701L,42702L,42703L,42704L,42705L,42706L,42707L, +42708L,42709L,42710L,42711L,42712L,42713L,42714L,42715L,42716L,42717L, +42718L,42719L,42720L,42721L,42722L,42723L,42724L,42725L,42726L,42727L, +42728L,42729L,42730L,42731L,42732L,42733L,42734L,42735L,42736L,42737L, +42738L,42739L,42740L,42741L,42742L,42743L,42744L,42745L,42746L,42747L, +42748L,42749L,42750L,42751L,42752L,42753L,42754L,42755L,42756L,42757L, +42758L,42759L,42760L,42761L,42762L,42763L,42764L,42765L,42766L,42767L, +42768L,42769L,42770L,42771L,42772L,42773L,42774L,42775L,42776L,42777L, +42778L,42779L,42780L,42781L,42782L,42783L,42784L,42785L,42786L,42786L, +42788L,42788L,42790L,42790L,42792L,42792L,42794L,42794L,42796L,42796L, +42798L,42798L,42800L,42801L,42802L,42802L,42804L,42804L,42806L,42806L, +42808L,42808L,42810L,42810L,42812L,42812L,42814L,42814L,42816L,42816L, +42818L,42818L,42820L,42820L,42822L,42822L,42824L,42824L,42826L,42826L, +42828L,42828L,42830L,42830L,42832L,42832L,42834L,42834L,42836L,42836L, +42838L,42838L,42840L,42840L,42842L,42842L,42844L,42844L,42846L,42846L, +42848L,42848L,42850L,42850L,42852L,42852L,42854L,42854L,42856L,42856L, +42858L,42858L,42860L,42860L,42862L,42862L,42864L,42865L,42866L,42867L, +42868L,42869L,42870L,42871L,42872L,42873L,42873L,42875L,42875L,42877L, +42878L,42878L,42880L,42880L,42882L,42882L,42884L,42884L,42886L,42886L, +42888L,42889L,42890L,42891L,42891L,42893L,42894L,42895L,42896L,42896L, +42898L,42898L,42948L,42901L,42902L,42902L,42904L,42904L,42906L,42906L, +42908L,42908L,42910L,42910L,42912L,42912L,42914L,42914L,42916L,42916L, +42918L,42918L,42920L,42920L,42922L,42923L,42924L,42925L,42926L,42927L, +42928L,42929L,42930L,42931L,42932L,42932L,42934L,42934L,42936L,42936L, +42938L,42938L,42940L,42940L,42942L,42942L,42944L,42945L,42946L,42946L, +42948L,42949L,42950L,42951L,42952L,42953L,42954L,42955L,42956L,42957L, +42958L,42959L,42960L,42961L,42962L,42963L,42964L,42965L,42966L,42967L, +42968L,42969L,42970L,42971L,42972L,42973L,42974L,42975L,42976L,42977L, +42978L,42979L,42980L,42981L,42982L,42983L,42984L,42985L,42986L,42987L, +42988L,42989L,42990L,42991L,42992L,42993L,42994L,42995L,42996L,42997L, +42998L,42999L,43000L,43001L,43002L,43003L,43004L,43005L,43006L,43007L, +43008L,43009L,43010L,43011L,43012L,43013L,43014L,43015L,43016L,43017L, +43018L,43019L,43020L,43021L,43022L,43023L,43024L,43025L,43026L,43027L, +43028L,43029L,43030L,43031L,43032L,43033L,43034L,43035L,43036L,43037L, +43038L,43039L,43040L,43041L,43042L,43043L,43044L,43045L,43046L,43047L, +43048L,43049L,43050L,43051L,43052L,43053L,43054L,43055L,43056L,43057L, +43058L,43059L,43060L,43061L,43062L,43063L,43064L,43065L,43066L,43067L, +43068L,43069L,43070L,43071L,43072L,43073L,43074L,43075L,43076L,43077L, +43078L,43079L,43080L,43081L,43082L,43083L,43084L,43085L,43086L,43087L, +43088L,43089L,43090L,43091L,43092L,43093L,43094L,43095L,43096L,43097L, +43098L,43099L,43100L,43101L,43102L,43103L,43104L,43105L,43106L,43107L, +43108L,43109L,43110L,43111L,43112L,43113L,43114L,43115L,43116L,43117L, +43118L,43119L,43120L,43121L,43122L,43123L,43124L,43125L,43126L,43127L, +43128L,43129L,43130L,43131L,43132L,43133L,43134L,43135L,43136L,43137L, +43138L,43139L,43140L,43141L,43142L,43143L,43144L,43145L,43146L,43147L, +43148L,43149L,43150L,43151L,43152L,43153L,43154L,43155L,43156L,43157L, +43158L,43159L,43160L,43161L,43162L,43163L,43164L,43165L,43166L,43167L, +43168L,43169L,43170L,43171L,43172L,43173L,43174L,43175L,43176L,43177L, +43178L,43179L,43180L,43181L,43182L,43183L,43184L,43185L,43186L,43187L, +43188L,43189L,43190L,43191L,43192L,43193L,43194L,43195L,43196L,43197L, +43198L,43199L,43200L,43201L,43202L,43203L,43204L,43205L,43206L,43207L, +43208L,43209L,43210L,43211L,43212L,43213L,43214L,43215L,43216L,43217L, +43218L,43219L,43220L,43221L,43222L,43223L,43224L,43225L,43226L,43227L, +43228L,43229L,43230L,43231L,43232L,43233L,43234L,43235L,43236L,43237L, +43238L,43239L,43240L,43241L,43242L,43243L,43244L,43245L,43246L,43247L, +43248L,43249L,43250L,43251L,43252L,43253L,43254L,43255L,43256L,43257L, +43258L,43259L,43260L,43261L,43262L,43263L,43264L,43265L,43266L,43267L, +43268L,43269L,43270L,43271L,43272L,43273L,43274L,43275L,43276L,43277L, +43278L,43279L,43280L,43281L,43282L,43283L,43284L,43285L,43286L,43287L, +43288L,43289L,43290L,43291L,43292L,43293L,43294L,43295L,43296L,43297L, +43298L,43299L,43300L,43301L,43302L,43303L,43304L,43305L,43306L,43307L, +43308L,43309L,43310L,43311L,43312L,43313L,43314L,43315L,43316L,43317L, +43318L,43319L,43320L,43321L,43322L,43323L,43324L,43325L,43326L,43327L, +43328L,43329L,43330L,43331L,43332L,43333L,43334L,43335L,43336L,43337L, +43338L,43339L,43340L,43341L,43342L,43343L,43344L,43345L,43346L,43347L, +43348L,43349L,43350L,43351L,43352L,43353L,43354L,43355L,43356L,43357L, +43358L,43359L,43360L,43361L,43362L,43363L,43364L,43365L,43366L,43367L, +43368L,43369L,43370L,43371L,43372L,43373L,43374L,43375L,43376L,43377L, +43378L,43379L,43380L,43381L,43382L,43383L,43384L,43385L,43386L,43387L, +43388L,43389L,43390L,43391L,43392L,43393L,43394L,43395L,43396L,43397L, +43398L,43399L,43400L,43401L,43402L,43403L,43404L,43405L,43406L,43407L, +43408L,43409L,43410L,43411L,43412L,43413L,43414L,43415L,43416L,43417L, +43418L,43419L,43420L,43421L,43422L,43423L,43424L,43425L,43426L,43427L, +43428L,43429L,43430L,43431L,43432L,43433L,43434L,43435L,43436L,43437L, +43438L,43439L,43440L,43441L,43442L,43443L,43444L,43445L,43446L,43447L, +43448L,43449L,43450L,43451L,43452L,43453L,43454L,43455L,43456L,43457L, +43458L,43459L,43460L,43461L,43462L,43463L,43464L,43465L,43466L,43467L, +43468L,43469L,43470L,43471L,43472L,43473L,43474L,43475L,43476L,43477L, +43478L,43479L,43480L,43481L,43482L,43483L,43484L,43485L,43486L,43487L, +43488L,43489L,43490L,43491L,43492L,43493L,43494L,43495L,43496L,43497L, +43498L,43499L,43500L,43501L,43502L,43503L,43504L,43505L,43506L,43507L, +43508L,43509L,43510L,43511L,43512L,43513L,43514L,43515L,43516L,43517L, +43518L,43519L,43520L,43521L,43522L,43523L,43524L,43525L,43526L,43527L, +43528L,43529L,43530L,43531L,43532L,43533L,43534L,43535L,43536L,43537L, +43538L,43539L,43540L,43541L,43542L,43543L,43544L,43545L,43546L,43547L, +43548L,43549L,43550L,43551L,43552L,43553L,43554L,43555L,43556L,43557L, +43558L,43559L,43560L,43561L,43562L,43563L,43564L,43565L,43566L,43567L, +43568L,43569L,43570L,43571L,43572L,43573L,43574L,43575L,43576L,43577L, +43578L,43579L,43580L,43581L,43582L,43583L,43584L,43585L,43586L,43587L, +43588L,43589L,43590L,43591L,43592L,43593L,43594L,43595L,43596L,43597L, +43598L,43599L,43600L,43601L,43602L,43603L,43604L,43605L,43606L,43607L, +43608L,43609L,43610L,43611L,43612L,43613L,43614L,43615L,43616L,43617L, +43618L,43619L,43620L,43621L,43622L,43623L,43624L,43625L,43626L,43627L, +43628L,43629L,43630L,43631L,43632L,43633L,43634L,43635L,43636L,43637L, +43638L,43639L,43640L,43641L,43642L,43643L,43644L,43645L,43646L,43647L, +43648L,43649L,43650L,43651L,43652L,43653L,43654L,43655L,43656L,43657L, +43658L,43659L,43660L,43661L,43662L,43663L,43664L,43665L,43666L,43667L, +43668L,43669L,43670L,43671L,43672L,43673L,43674L,43675L,43676L,43677L, +43678L,43679L,43680L,43681L,43682L,43683L,43684L,43685L,43686L,43687L, +43688L,43689L,43690L,43691L,43692L,43693L,43694L,43695L,43696L,43697L, +43698L,43699L,43700L,43701L,43702L,43703L,43704L,43705L,43706L,43707L, +43708L,43709L,43710L,43711L,43712L,43713L,43714L,43715L,43716L,43717L, +43718L,43719L,43720L,43721L,43722L,43723L,43724L,43725L,43726L,43727L, +43728L,43729L,43730L,43731L,43732L,43733L,43734L,43735L,43736L,43737L, +43738L,43739L,43740L,43741L,43742L,43743L,43744L,43745L,43746L,43747L, +43748L,43749L,43750L,43751L,43752L,43753L,43754L,43755L,43756L,43757L, +43758L,43759L,43760L,43761L,43762L,43763L,43764L,43765L,43766L,43767L, +43768L,43769L,43770L,43771L,43772L,43773L,43774L,43775L,43776L,43777L, +43778L,43779L,43780L,43781L,43782L,43783L,43784L,43785L,43786L,43787L, +43788L,43789L,43790L,43791L,43792L,43793L,43794L,43795L,43796L,43797L, +43798L,43799L,43800L,43801L,43802L,43803L,43804L,43805L,43806L,43807L, +43808L,43809L,43810L,43811L,43812L,43813L,43814L,43815L,43816L,43817L, +43818L,43819L,43820L,43821L,43822L,43823L,43824L,43825L,43826L,43827L, +43828L,43829L,43830L,43831L,43832L,43833L,43834L,43835L,43836L,43837L, +43838L,43839L,43840L,43841L,43842L,43843L,43844L,43845L,43846L,43847L, +43848L,43849L,43850L,43851L,43852L,43853L,43854L,43855L,43856L,43857L, +43858L,42931L,43860L,43861L,43862L,43863L,43864L,43865L,43866L,43867L, +43868L,43869L,43870L,43871L,43872L,43873L,43874L,43875L,43876L,43877L, +43878L,43879L,43880L,43881L,43882L,43883L,43884L,43885L,43886L,43887L,5024, +5025,5026,5027,5028,5029,5030,5031,5032,5033,5034,5035,5036,5037,5038,5039, +5040,5041,5042,5043,5044,5045,5046,5047,5048,5049,5050,5051,5052,5053,5054, +5055,5056,5057,5058,5059,5060,5061,5062,5063,5064,5065,5066,5067,5068,5069, +5070,5071,5072,5073,5074,5075,5076,5077,5078,5079,5080,5081,5082,5083,5084, +5085,5086,5087,5088,5089,5090,5091,5092,5093,5094,5095,5096,5097,5098,5099, +5100,5101,5102,5103,43968L,43969L,43970L,43971L,43972L,43973L,43974L, +43975L,43976L,43977L,43978L,43979L,43980L,43981L,43982L,43983L,43984L, +43985L,43986L,43987L,43988L,43989L,43990L,43991L,43992L,43993L,43994L, +43995L,43996L,43997L,43998L,43999L,44000L,44001L,44002L,44003L,44004L, +44005L,44006L,44007L,44008L,44009L,44010L,44011L,44012L,44013L,44014L, +44015L,44016L,44017L,44018L,44019L,44020L,44021L,44022L,44023L,44024L, +44025L,44026L,44027L,44028L,44029L,44030L,44031L,44032L,44033L,44034L, +44035L,44036L,44037L,44038L,44039L,44040L,44041L,44042L,44043L,44044L, +44045L,44046L,44047L,44048L,44049L,44050L,44051L,44052L,44053L,44054L, +44055L,44056L,44057L,44058L,44059L,44060L,44061L,44062L,44063L,44064L, +44065L,44066L,44067L,44068L,44069L,44070L,44071L,44072L,44073L,44074L, +44075L,44076L,44077L,44078L,44079L,44080L,44081L,44082L,44083L,44084L, +44085L,44086L,44087L,44088L,44089L,44090L,44091L,44092L,44093L,44094L, +44095L,44096L,44097L,44098L,44099L,44100L,44101L,44102L,44103L,44104L, +44105L,44106L,44107L,44108L,44109L,44110L,44111L,44112L,44113L,44114L, +44115L,44116L,44117L,44118L,44119L,44120L,44121L,44122L,44123L,44124L, +44125L,44126L,44127L,44128L,44129L,44130L,44131L,44132L,44133L,44134L, +44135L,44136L,44137L,44138L,44139L,44140L,44141L,44142L,44143L,44144L, +44145L,44146L,44147L,44148L,44149L,44150L,44151L,44152L,44153L,44154L, +44155L,44156L,44157L,44158L,44159L,44160L,44161L,44162L,44163L,44164L, +44165L,44166L,44167L,44168L,44169L,44170L,44171L,44172L,44173L,44174L, +44175L,44176L,44177L,44178L,44179L,44180L,44181L,44182L,44183L,44184L, +44185L,44186L,44187L,44188L,44189L,44190L,44191L,44192L,44193L,44194L, +44195L,44196L,44197L,44198L,44199L,44200L,44201L,44202L,44203L,44204L, +44205L,44206L,44207L,44208L,44209L,44210L,44211L,44212L,44213L,44214L, +44215L,44216L,44217L,44218L,44219L,44220L,44221L,44222L,44223L,44224L, +44225L,44226L,44227L,44228L,44229L,44230L,44231L,44232L,44233L,44234L, +44235L,44236L,44237L,44238L,44239L,44240L,44241L,44242L,44243L,44244L, +44245L,44246L,44247L,44248L,44249L,44250L,44251L,44252L,44253L,44254L, +44255L,44256L,44257L,44258L,44259L,44260L,44261L,44262L,44263L,44264L, +44265L,44266L,44267L,44268L,44269L,44270L,44271L,44272L,44273L,44274L, +44275L,44276L,44277L,44278L,44279L,44280L,44281L,44282L,44283L,44284L, +44285L,44286L,44287L,44288L,44289L,44290L,44291L,44292L,44293L,44294L, +44295L,44296L,44297L,44298L,44299L,44300L,44301L,44302L,44303L,44304L, +44305L,44306L,44307L,44308L,44309L,44310L,44311L,44312L,44313L,44314L, +44315L,44316L,44317L,44318L,44319L,44320L,44321L,44322L,44323L,44324L, +44325L,44326L,44327L,44328L,44329L,44330L,44331L,44332L,44333L,44334L, +44335L,44336L,44337L,44338L,44339L,44340L,44341L,44342L,44343L,44344L, +44345L,44346L,44347L,44348L,44349L,44350L,44351L,44352L,44353L,44354L, +44355L,44356L,44357L,44358L,44359L,44360L,44361L,44362L,44363L,44364L, +44365L,44366L,44367L,44368L,44369L,44370L,44371L,44372L,44373L,44374L, +44375L,44376L,44377L,44378L,44379L,44380L,44381L,44382L,44383L,44384L, +44385L,44386L,44387L,44388L,44389L,44390L,44391L,44392L,44393L,44394L, +44395L,44396L,44397L,44398L,44399L,44400L,44401L,44402L,44403L,44404L, +44405L,44406L,44407L,44408L,44409L,44410L,44411L,44412L,44413L,44414L, +44415L,44416L,44417L,44418L,44419L,44420L,44421L,44422L,44423L,44424L, +44425L,44426L,44427L,44428L,44429L,44430L,44431L,44432L,44433L,44434L, +44435L,44436L,44437L,44438L,44439L,44440L,44441L,44442L,44443L,44444L, +44445L,44446L,44447L,44448L,44449L,44450L,44451L,44452L,44453L,44454L, +44455L,44456L,44457L,44458L,44459L,44460L,44461L,44462L,44463L,44464L, +44465L,44466L,44467L,44468L,44469L,44470L,44471L,44472L,44473L,44474L, +44475L,44476L,44477L,44478L,44479L,44480L,44481L,44482L,44483L,44484L, +44485L,44486L,44487L,44488L,44489L,44490L,44491L,44492L,44493L,44494L, +44495L,44496L,44497L,44498L,44499L,44500L,44501L,44502L,44503L,44504L, +44505L,44506L,44507L,44508L,44509L,44510L,44511L,44512L,44513L,44514L, +44515L,44516L,44517L,44518L,44519L,44520L,44521L,44522L,44523L,44524L, +44525L,44526L,44527L,44528L,44529L,44530L,44531L,44532L,44533L,44534L, +44535L,44536L,44537L,44538L,44539L,44540L,44541L,44542L,44543L,44544L, +44545L,44546L,44547L,44548L,44549L,44550L,44551L,44552L,44553L,44554L, +44555L,44556L,44557L,44558L,44559L,44560L,44561L,44562L,44563L,44564L, +44565L,44566L,44567L,44568L,44569L,44570L,44571L,44572L,44573L,44574L, +44575L,44576L,44577L,44578L,44579L,44580L,44581L,44582L,44583L,44584L, +44585L,44586L,44587L,44588L,44589L,44590L,44591L,44592L,44593L,44594L, +44595L,44596L,44597L,44598L,44599L,44600L,44601L,44602L,44603L,44604L, +44605L,44606L,44607L,44608L,44609L,44610L,44611L,44612L,44613L,44614L, +44615L,44616L,44617L,44618L,44619L,44620L,44621L,44622L,44623L,44624L, +44625L,44626L,44627L,44628L,44629L,44630L,44631L,44632L,44633L,44634L, +44635L,44636L,44637L,44638L,44639L,44640L,44641L,44642L,44643L,44644L, +44645L,44646L,44647L,44648L,44649L,44650L,44651L,44652L,44653L,44654L, +44655L,44656L,44657L,44658L,44659L,44660L,44661L,44662L,44663L,44664L, +44665L,44666L,44667L,44668L,44669L,44670L,44671L,44672L,44673L,44674L, +44675L,44676L,44677L,44678L,44679L,44680L,44681L,44682L,44683L,44684L, +44685L,44686L,44687L,44688L,44689L,44690L,44691L,44692L,44693L,44694L, +44695L,44696L,44697L,44698L,44699L,44700L,44701L,44702L,44703L,44704L, +44705L,44706L,44707L,44708L,44709L,44710L,44711L,44712L,44713L,44714L, +44715L,44716L,44717L,44718L,44719L,44720L,44721L,44722L,44723L,44724L, +44725L,44726L,44727L,44728L,44729L,44730L,44731L,44732L,44733L,44734L, +44735L,44736L,44737L,44738L,44739L,44740L,44741L,44742L,44743L,44744L, +44745L,44746L,44747L,44748L,44749L,44750L,44751L,44752L,44753L,44754L, +44755L,44756L,44757L,44758L,44759L,44760L,44761L,44762L,44763L,44764L, +44765L,44766L,44767L,44768L,44769L,44770L,44771L,44772L,44773L,44774L, +44775L,44776L,44777L,44778L,44779L,44780L,44781L,44782L,44783L,44784L, +44785L,44786L,44787L,44788L,44789L,44790L,44791L,44792L,44793L,44794L, +44795L,44796L,44797L,44798L,44799L,44800L,44801L,44802L,44803L,44804L, +44805L,44806L,44807L,44808L,44809L,44810L,44811L,44812L,44813L,44814L, +44815L,44816L,44817L,44818L,44819L,44820L,44821L,44822L,44823L,44824L, +44825L,44826L,44827L,44828L,44829L,44830L,44831L,44832L,44833L,44834L, +44835L,44836L,44837L,44838L,44839L,44840L,44841L,44842L,44843L,44844L, +44845L,44846L,44847L,44848L,44849L,44850L,44851L,44852L,44853L,44854L, +44855L,44856L,44857L,44858L,44859L,44860L,44861L,44862L,44863L,44864L, +44865L,44866L,44867L,44868L,44869L,44870L,44871L,44872L,44873L,44874L, +44875L,44876L,44877L,44878L,44879L,44880L,44881L,44882L,44883L,44884L, +44885L,44886L,44887L,44888L,44889L,44890L,44891L,44892L,44893L,44894L, +44895L,44896L,44897L,44898L,44899L,44900L,44901L,44902L,44903L,44904L, +44905L,44906L,44907L,44908L,44909L,44910L,44911L,44912L,44913L,44914L, +44915L,44916L,44917L,44918L,44919L,44920L,44921L,44922L,44923L,44924L, +44925L,44926L,44927L,44928L,44929L,44930L,44931L,44932L,44933L,44934L, +44935L,44936L,44937L,44938L,44939L,44940L,44941L,44942L,44943L,44944L, +44945L,44946L,44947L,44948L,44949L,44950L,44951L,44952L,44953L,44954L, +44955L,44956L,44957L,44958L,44959L,44960L,44961L,44962L,44963L,44964L, +44965L,44966L,44967L,44968L,44969L,44970L,44971L,44972L,44973L,44974L, +44975L,44976L,44977L,44978L,44979L,44980L,44981L,44982L,44983L,44984L, +44985L,44986L,44987L,44988L,44989L,44990L,44991L,44992L,44993L,44994L, +44995L,44996L,44997L,44998L,44999L,45000L,45001L,45002L,45003L,45004L, +45005L,45006L,45007L,45008L,45009L,45010L,45011L,45012L,45013L,45014L, +45015L,45016L,45017L,45018L,45019L,45020L,45021L,45022L,45023L,45024L, +45025L,45026L,45027L,45028L,45029L,45030L,45031L,45032L,45033L,45034L, +45035L,45036L,45037L,45038L,45039L,45040L,45041L,45042L,45043L,45044L, +45045L,45046L,45047L,45048L,45049L,45050L,45051L,45052L,45053L,45054L, +45055L,45056L,45057L,45058L,45059L,45060L,45061L,45062L,45063L,45064L, +45065L,45066L,45067L,45068L,45069L,45070L,45071L,45072L,45073L,45074L, +45075L,45076L,45077L,45078L,45079L,45080L,45081L,45082L,45083L,45084L, +45085L,45086L,45087L,45088L,45089L,45090L,45091L,45092L,45093L,45094L, +45095L,45096L,45097L,45098L,45099L,45100L,45101L,45102L,45103L,45104L, +45105L,45106L,45107L,45108L,45109L,45110L,45111L,45112L,45113L,45114L, +45115L,45116L,45117L,45118L,45119L,45120L,45121L,45122L,45123L,45124L, +45125L,45126L,45127L,45128L,45129L,45130L,45131L,45132L,45133L,45134L, +45135L,45136L,45137L,45138L,45139L,45140L,45141L,45142L,45143L,45144L, +45145L,45146L,45147L,45148L,45149L,45150L,45151L,45152L,45153L,45154L, +45155L,45156L,45157L,45158L,45159L,45160L,45161L,45162L,45163L,45164L, +45165L,45166L,45167L,45168L,45169L,45170L,45171L,45172L,45173L,45174L, +45175L,45176L,45177L,45178L,45179L,45180L,45181L,45182L,45183L,45184L, +45185L,45186L,45187L,45188L,45189L,45190L,45191L,45192L,45193L,45194L, +45195L,45196L,45197L,45198L,45199L,45200L,45201L,45202L,45203L,45204L, +45205L,45206L,45207L,45208L,45209L,45210L,45211L,45212L,45213L,45214L, +45215L,45216L,45217L,45218L,45219L,45220L,45221L,45222L,45223L,45224L, +45225L,45226L,45227L,45228L,45229L,45230L,45231L,45232L,45233L,45234L, +45235L,45236L,45237L,45238L,45239L,45240L,45241L,45242L,45243L,45244L, +45245L,45246L,45247L,45248L,45249L,45250L,45251L,45252L,45253L,45254L, +45255L,45256L,45257L,45258L,45259L,45260L,45261L,45262L,45263L,45264L, +45265L,45266L,45267L,45268L,45269L,45270L,45271L,45272L,45273L,45274L, +45275L,45276L,45277L,45278L,45279L,45280L,45281L,45282L,45283L,45284L, +45285L,45286L,45287L,45288L,45289L,45290L,45291L,45292L,45293L,45294L, +45295L,45296L,45297L,45298L,45299L,45300L,45301L,45302L,45303L,45304L, +45305L,45306L,45307L,45308L,45309L,45310L,45311L,45312L,45313L,45314L, +45315L,45316L,45317L,45318L,45319L,45320L,45321L,45322L,45323L,45324L, +45325L,45326L,45327L,45328L,45329L,45330L,45331L,45332L,45333L,45334L, +45335L,45336L,45337L,45338L,45339L,45340L,45341L,45342L,45343L,45344L, +45345L,45346L,45347L,45348L,45349L,45350L,45351L,45352L,45353L,45354L, +45355L,45356L,45357L,45358L,45359L,45360L,45361L,45362L,45363L,45364L, +45365L,45366L,45367L,45368L,45369L,45370L,45371L,45372L,45373L,45374L, +45375L,45376L,45377L,45378L,45379L,45380L,45381L,45382L,45383L,45384L, +45385L,45386L,45387L,45388L,45389L,45390L,45391L,45392L,45393L,45394L, +45395L,45396L,45397L,45398L,45399L,45400L,45401L,45402L,45403L,45404L, +45405L,45406L,45407L,45408L,45409L,45410L,45411L,45412L,45413L,45414L, +45415L,45416L,45417L,45418L,45419L,45420L,45421L,45422L,45423L,45424L, +45425L,45426L,45427L,45428L,45429L,45430L,45431L,45432L,45433L,45434L, +45435L,45436L,45437L,45438L,45439L,45440L,45441L,45442L,45443L,45444L, +45445L,45446L,45447L,45448L,45449L,45450L,45451L,45452L,45453L,45454L, +45455L,45456L,45457L,45458L,45459L,45460L,45461L,45462L,45463L,45464L, +45465L,45466L,45467L,45468L,45469L,45470L,45471L,45472L,45473L,45474L, +45475L,45476L,45477L,45478L,45479L,45480L,45481L,45482L,45483L,45484L, +45485L,45486L,45487L,45488L,45489L,45490L,45491L,45492L,45493L,45494L, +45495L,45496L,45497L,45498L,45499L,45500L,45501L,45502L,45503L,45504L, +45505L,45506L,45507L,45508L,45509L,45510L,45511L,45512L,45513L,45514L, +45515L,45516L,45517L,45518L,45519L,45520L,45521L,45522L,45523L,45524L, +45525L,45526L,45527L,45528L,45529L,45530L,45531L,45532L,45533L,45534L, +45535L,45536L,45537L,45538L,45539L,45540L,45541L,45542L,45543L,45544L, +45545L,45546L,45547L,45548L,45549L,45550L,45551L,45552L,45553L,45554L, +45555L,45556L,45557L,45558L,45559L,45560L,45561L,45562L,45563L,45564L, +45565L,45566L,45567L,45568L,45569L,45570L,45571L,45572L,45573L,45574L, +45575L,45576L,45577L,45578L,45579L,45580L,45581L,45582L,45583L,45584L, +45585L,45586L,45587L,45588L,45589L,45590L,45591L,45592L,45593L,45594L, +45595L,45596L,45597L,45598L,45599L,45600L,45601L,45602L,45603L,45604L, +45605L,45606L,45607L,45608L,45609L,45610L,45611L,45612L,45613L,45614L, +45615L,45616L,45617L,45618L,45619L,45620L,45621L,45622L,45623L,45624L, +45625L,45626L,45627L,45628L,45629L,45630L,45631L,45632L,45633L,45634L, +45635L,45636L,45637L,45638L,45639L,45640L,45641L,45642L,45643L,45644L, +45645L,45646L,45647L,45648L,45649L,45650L,45651L,45652L,45653L,45654L, +45655L,45656L,45657L,45658L,45659L,45660L,45661L,45662L,45663L,45664L, +45665L,45666L,45667L,45668L,45669L,45670L,45671L,45672L,45673L,45674L, +45675L,45676L,45677L,45678L,45679L,45680L,45681L,45682L,45683L,45684L, +45685L,45686L,45687L,45688L,45689L,45690L,45691L,45692L,45693L,45694L, +45695L,45696L,45697L,45698L,45699L,45700L,45701L,45702L,45703L,45704L, +45705L,45706L,45707L,45708L,45709L,45710L,45711L,45712L,45713L,45714L, +45715L,45716L,45717L,45718L,45719L,45720L,45721L,45722L,45723L,45724L, +45725L,45726L,45727L,45728L,45729L,45730L,45731L,45732L,45733L,45734L, +45735L,45736L,45737L,45738L,45739L,45740L,45741L,45742L,45743L,45744L, +45745L,45746L,45747L,45748L,45749L,45750L,45751L,45752L,45753L,45754L, +45755L,45756L,45757L,45758L,45759L,45760L,45761L,45762L,45763L,45764L, +45765L,45766L,45767L,45768L,45769L,45770L,45771L,45772L,45773L,45774L, +45775L,45776L,45777L,45778L,45779L,45780L,45781L,45782L,45783L,45784L, +45785L,45786L,45787L,45788L,45789L,45790L,45791L,45792L,45793L,45794L, +45795L,45796L,45797L,45798L,45799L,45800L,45801L,45802L,45803L,45804L, +45805L,45806L,45807L,45808L,45809L,45810L,45811L,45812L,45813L,45814L, +45815L,45816L,45817L,45818L,45819L,45820L,45821L,45822L,45823L,45824L, +45825L,45826L,45827L,45828L,45829L,45830L,45831L,45832L,45833L,45834L, +45835L,45836L,45837L,45838L,45839L,45840L,45841L,45842L,45843L,45844L, +45845L,45846L,45847L,45848L,45849L,45850L,45851L,45852L,45853L,45854L, +45855L,45856L,45857L,45858L,45859L,45860L,45861L,45862L,45863L,45864L, +45865L,45866L,45867L,45868L,45869L,45870L,45871L,45872L,45873L,45874L, +45875L,45876L,45877L,45878L,45879L,45880L,45881L,45882L,45883L,45884L, +45885L,45886L,45887L,45888L,45889L,45890L,45891L,45892L,45893L,45894L, +45895L,45896L,45897L,45898L,45899L,45900L,45901L,45902L,45903L,45904L, +45905L,45906L,45907L,45908L,45909L,45910L,45911L,45912L,45913L,45914L, +45915L,45916L,45917L,45918L,45919L,45920L,45921L,45922L,45923L,45924L, +45925L,45926L,45927L,45928L,45929L,45930L,45931L,45932L,45933L,45934L, +45935L,45936L,45937L,45938L,45939L,45940L,45941L,45942L,45943L,45944L, +45945L,45946L,45947L,45948L,45949L,45950L,45951L,45952L,45953L,45954L, +45955L,45956L,45957L,45958L,45959L,45960L,45961L,45962L,45963L,45964L, +45965L,45966L,45967L,45968L,45969L,45970L,45971L,45972L,45973L,45974L, +45975L,45976L,45977L,45978L,45979L,45980L,45981L,45982L,45983L,45984L, +45985L,45986L,45987L,45988L,45989L,45990L,45991L,45992L,45993L,45994L, +45995L,45996L,45997L,45998L,45999L,46000L,46001L,46002L,46003L,46004L, +46005L,46006L,46007L,46008L,46009L,46010L,46011L,46012L,46013L,46014L, +46015L,46016L,46017L,46018L,46019L,46020L,46021L,46022L,46023L,46024L, +46025L,46026L,46027L,46028L,46029L,46030L,46031L,46032L,46033L,46034L, +46035L,46036L,46037L,46038L,46039L,46040L,46041L,46042L,46043L,46044L, +46045L,46046L,46047L,46048L,46049L,46050L,46051L,46052L,46053L,46054L, +46055L,46056L,46057L,46058L,46059L,46060L,46061L,46062L,46063L,46064L, +46065L,46066L,46067L,46068L,46069L,46070L,46071L,46072L,46073L,46074L, +46075L,46076L,46077L,46078L,46079L,46080L,46081L,46082L,46083L,46084L, +46085L,46086L,46087L,46088L,46089L,46090L,46091L,46092L,46093L,46094L, +46095L,46096L,46097L,46098L,46099L,46100L,46101L,46102L,46103L,46104L, +46105L,46106L,46107L,46108L,46109L,46110L,46111L,46112L,46113L,46114L, +46115L,46116L,46117L,46118L,46119L,46120L,46121L,46122L,46123L,46124L, +46125L,46126L,46127L,46128L,46129L,46130L,46131L,46132L,46133L,46134L, +46135L,46136L,46137L,46138L,46139L,46140L,46141L,46142L,46143L,46144L, +46145L,46146L,46147L,46148L,46149L,46150L,46151L,46152L,46153L,46154L, +46155L,46156L,46157L,46158L,46159L,46160L,46161L,46162L,46163L,46164L, +46165L,46166L,46167L,46168L,46169L,46170L,46171L,46172L,46173L,46174L, +46175L,46176L,46177L,46178L,46179L,46180L,46181L,46182L,46183L,46184L, +46185L,46186L,46187L,46188L,46189L,46190L,46191L,46192L,46193L,46194L, +46195L,46196L,46197L,46198L,46199L,46200L,46201L,46202L,46203L,46204L, +46205L,46206L,46207L,46208L,46209L,46210L,46211L,46212L,46213L,46214L, +46215L,46216L,46217L,46218L,46219L,46220L,46221L,46222L,46223L,46224L, +46225L,46226L,46227L,46228L,46229L,46230L,46231L,46232L,46233L,46234L, +46235L,46236L,46237L,46238L,46239L,46240L,46241L,46242L,46243L,46244L, +46245L,46246L,46247L,46248L,46249L,46250L,46251L,46252L,46253L,46254L, +46255L,46256L,46257L,46258L,46259L,46260L,46261L,46262L,46263L,46264L, +46265L,46266L,46267L,46268L,46269L,46270L,46271L,46272L,46273L,46274L, +46275L,46276L,46277L,46278L,46279L,46280L,46281L,46282L,46283L,46284L, +46285L,46286L,46287L,46288L,46289L,46290L,46291L,46292L,46293L,46294L, +46295L,46296L,46297L,46298L,46299L,46300L,46301L,46302L,46303L,46304L, +46305L,46306L,46307L,46308L,46309L,46310L,46311L,46312L,46313L,46314L, +46315L,46316L,46317L,46318L,46319L,46320L,46321L,46322L,46323L,46324L, +46325L,46326L,46327L,46328L,46329L,46330L,46331L,46332L,46333L,46334L, +46335L,46336L,46337L,46338L,46339L,46340L,46341L,46342L,46343L,46344L, +46345L,46346L,46347L,46348L,46349L,46350L,46351L,46352L,46353L,46354L, +46355L,46356L,46357L,46358L,46359L,46360L,46361L,46362L,46363L,46364L, +46365L,46366L,46367L,46368L,46369L,46370L,46371L,46372L,46373L,46374L, +46375L,46376L,46377L,46378L,46379L,46380L,46381L,46382L,46383L,46384L, +46385L,46386L,46387L,46388L,46389L,46390L,46391L,46392L,46393L,46394L, +46395L,46396L,46397L,46398L,46399L,46400L,46401L,46402L,46403L,46404L, +46405L,46406L,46407L,46408L,46409L,46410L,46411L,46412L,46413L,46414L, +46415L,46416L,46417L,46418L,46419L,46420L,46421L,46422L,46423L,46424L, +46425L,46426L,46427L,46428L,46429L,46430L,46431L,46432L,46433L,46434L, +46435L,46436L,46437L,46438L,46439L,46440L,46441L,46442L,46443L,46444L, +46445L,46446L,46447L,46448L,46449L,46450L,46451L,46452L,46453L,46454L, +46455L,46456L,46457L,46458L,46459L,46460L,46461L,46462L,46463L,46464L, +46465L,46466L,46467L,46468L,46469L,46470L,46471L,46472L,46473L,46474L, +46475L,46476L,46477L,46478L,46479L,46480L,46481L,46482L,46483L,46484L, +46485L,46486L,46487L,46488L,46489L,46490L,46491L,46492L,46493L,46494L, +46495L,46496L,46497L,46498L,46499L,46500L,46501L,46502L,46503L,46504L, +46505L,46506L,46507L,46508L,46509L,46510L,46511L,46512L,46513L,46514L, +46515L,46516L,46517L,46518L,46519L,46520L,46521L,46522L,46523L,46524L, +46525L,46526L,46527L,46528L,46529L,46530L,46531L,46532L,46533L,46534L, +46535L,46536L,46537L,46538L,46539L,46540L,46541L,46542L,46543L,46544L, +46545L,46546L,46547L,46548L,46549L,46550L,46551L,46552L,46553L,46554L, +46555L,46556L,46557L,46558L,46559L,46560L,46561L,46562L,46563L,46564L, +46565L,46566L,46567L,46568L,46569L,46570L,46571L,46572L,46573L,46574L, +46575L,46576L,46577L,46578L,46579L,46580L,46581L,46582L,46583L,46584L, +46585L,46586L,46587L,46588L,46589L,46590L,46591L,46592L,46593L,46594L, +46595L,46596L,46597L,46598L,46599L,46600L,46601L,46602L,46603L,46604L, +46605L,46606L,46607L,46608L,46609L,46610L,46611L,46612L,46613L,46614L, +46615L,46616L,46617L,46618L,46619L,46620L,46621L,46622L,46623L,46624L, +46625L,46626L,46627L,46628L,46629L,46630L,46631L,46632L,46633L,46634L, +46635L,46636L,46637L,46638L,46639L,46640L,46641L,46642L,46643L,46644L, +46645L,46646L,46647L,46648L,46649L,46650L,46651L,46652L,46653L,46654L, +46655L,46656L,46657L,46658L,46659L,46660L,46661L,46662L,46663L,46664L, +46665L,46666L,46667L,46668L,46669L,46670L,46671L,46672L,46673L,46674L, +46675L,46676L,46677L,46678L,46679L,46680L,46681L,46682L,46683L,46684L, +46685L,46686L,46687L,46688L,46689L,46690L,46691L,46692L,46693L,46694L, +46695L,46696L,46697L,46698L,46699L,46700L,46701L,46702L,46703L,46704L, +46705L,46706L,46707L,46708L,46709L,46710L,46711L,46712L,46713L,46714L, +46715L,46716L,46717L,46718L,46719L,46720L,46721L,46722L,46723L,46724L, +46725L,46726L,46727L,46728L,46729L,46730L,46731L,46732L,46733L,46734L, +46735L,46736L,46737L,46738L,46739L,46740L,46741L,46742L,46743L,46744L, +46745L,46746L,46747L,46748L,46749L,46750L,46751L,46752L,46753L,46754L, +46755L,46756L,46757L,46758L,46759L,46760L,46761L,46762L,46763L,46764L, +46765L,46766L,46767L,46768L,46769L,46770L,46771L,46772L,46773L,46774L, +46775L,46776L,46777L,46778L,46779L,46780L,46781L,46782L,46783L,46784L, +46785L,46786L,46787L,46788L,46789L,46790L,46791L,46792L,46793L,46794L, +46795L,46796L,46797L,46798L,46799L,46800L,46801L,46802L,46803L,46804L, +46805L,46806L,46807L,46808L,46809L,46810L,46811L,46812L,46813L,46814L, +46815L,46816L,46817L,46818L,46819L,46820L,46821L,46822L,46823L,46824L, +46825L,46826L,46827L,46828L,46829L,46830L,46831L,46832L,46833L,46834L, +46835L,46836L,46837L,46838L,46839L,46840L,46841L,46842L,46843L,46844L, +46845L,46846L,46847L,46848L,46849L,46850L,46851L,46852L,46853L,46854L, +46855L,46856L,46857L,46858L,46859L,46860L,46861L,46862L,46863L,46864L, +46865L,46866L,46867L,46868L,46869L,46870L,46871L,46872L,46873L,46874L, +46875L,46876L,46877L,46878L,46879L,46880L,46881L,46882L,46883L,46884L, +46885L,46886L,46887L,46888L,46889L,46890L,46891L,46892L,46893L,46894L, +46895L,46896L,46897L,46898L,46899L,46900L,46901L,46902L,46903L,46904L, +46905L,46906L,46907L,46908L,46909L,46910L,46911L,46912L,46913L,46914L, +46915L,46916L,46917L,46918L,46919L,46920L,46921L,46922L,46923L,46924L, +46925L,46926L,46927L,46928L,46929L,46930L,46931L,46932L,46933L,46934L, +46935L,46936L,46937L,46938L,46939L,46940L,46941L,46942L,46943L,46944L, +46945L,46946L,46947L,46948L,46949L,46950L,46951L,46952L,46953L,46954L, +46955L,46956L,46957L,46958L,46959L,46960L,46961L,46962L,46963L,46964L, +46965L,46966L,46967L,46968L,46969L,46970L,46971L,46972L,46973L,46974L, +46975L,46976L,46977L,46978L,46979L,46980L,46981L,46982L,46983L,46984L, +46985L,46986L,46987L,46988L,46989L,46990L,46991L,46992L,46993L,46994L, +46995L,46996L,46997L,46998L,46999L,47000L,47001L,47002L,47003L,47004L, +47005L,47006L,47007L,47008L,47009L,47010L,47011L,47012L,47013L,47014L, +47015L,47016L,47017L,47018L,47019L,47020L,47021L,47022L,47023L,47024L, +47025L,47026L,47027L,47028L,47029L,47030L,47031L,47032L,47033L,47034L, +47035L,47036L,47037L,47038L,47039L,47040L,47041L,47042L,47043L,47044L, +47045L,47046L,47047L,47048L,47049L,47050L,47051L,47052L,47053L,47054L, +47055L,47056L,47057L,47058L,47059L,47060L,47061L,47062L,47063L,47064L, +47065L,47066L,47067L,47068L,47069L,47070L,47071L,47072L,47073L,47074L, +47075L,47076L,47077L,47078L,47079L,47080L,47081L,47082L,47083L,47084L, +47085L,47086L,47087L,47088L,47089L,47090L,47091L,47092L,47093L,47094L, +47095L,47096L,47097L,47098L,47099L,47100L,47101L,47102L,47103L,47104L, +47105L,47106L,47107L,47108L,47109L,47110L,47111L,47112L,47113L,47114L, +47115L,47116L,47117L,47118L,47119L,47120L,47121L,47122L,47123L,47124L, +47125L,47126L,47127L,47128L,47129L,47130L,47131L,47132L,47133L,47134L, +47135L,47136L,47137L,47138L,47139L,47140L,47141L,47142L,47143L,47144L, +47145L,47146L,47147L,47148L,47149L,47150L,47151L,47152L,47153L,47154L, +47155L,47156L,47157L,47158L,47159L,47160L,47161L,47162L,47163L,47164L, +47165L,47166L,47167L,47168L,47169L,47170L,47171L,47172L,47173L,47174L, +47175L,47176L,47177L,47178L,47179L,47180L,47181L,47182L,47183L,47184L, +47185L,47186L,47187L,47188L,47189L,47190L,47191L,47192L,47193L,47194L, +47195L,47196L,47197L,47198L,47199L,47200L,47201L,47202L,47203L,47204L, +47205L,47206L,47207L,47208L,47209L,47210L,47211L,47212L,47213L,47214L, +47215L,47216L,47217L,47218L,47219L,47220L,47221L,47222L,47223L,47224L, +47225L,47226L,47227L,47228L,47229L,47230L,47231L,47232L,47233L,47234L, +47235L,47236L,47237L,47238L,47239L,47240L,47241L,47242L,47243L,47244L, +47245L,47246L,47247L,47248L,47249L,47250L,47251L,47252L,47253L,47254L, +47255L,47256L,47257L,47258L,47259L,47260L,47261L,47262L,47263L,47264L, +47265L,47266L,47267L,47268L,47269L,47270L,47271L,47272L,47273L,47274L, +47275L,47276L,47277L,47278L,47279L,47280L,47281L,47282L,47283L,47284L, +47285L,47286L,47287L,47288L,47289L,47290L,47291L,47292L,47293L,47294L, +47295L,47296L,47297L,47298L,47299L,47300L,47301L,47302L,47303L,47304L, +47305L,47306L,47307L,47308L,47309L,47310L,47311L,47312L,47313L,47314L, +47315L,47316L,47317L,47318L,47319L,47320L,47321L,47322L,47323L,47324L, +47325L,47326L,47327L,47328L,47329L,47330L,47331L,47332L,47333L,47334L, +47335L,47336L,47337L,47338L,47339L,47340L,47341L,47342L,47343L,47344L, +47345L,47346L,47347L,47348L,47349L,47350L,47351L,47352L,47353L,47354L, +47355L,47356L,47357L,47358L,47359L,47360L,47361L,47362L,47363L,47364L, +47365L,47366L,47367L,47368L,47369L,47370L,47371L,47372L,47373L,47374L, +47375L,47376L,47377L,47378L,47379L,47380L,47381L,47382L,47383L,47384L, +47385L,47386L,47387L,47388L,47389L,47390L,47391L,47392L,47393L,47394L, +47395L,47396L,47397L,47398L,47399L,47400L,47401L,47402L,47403L,47404L, +47405L,47406L,47407L,47408L,47409L,47410L,47411L,47412L,47413L,47414L, +47415L,47416L,47417L,47418L,47419L,47420L,47421L,47422L,47423L,47424L, +47425L,47426L,47427L,47428L,47429L,47430L,47431L,47432L,47433L,47434L, +47435L,47436L,47437L,47438L,47439L,47440L,47441L,47442L,47443L,47444L, +47445L,47446L,47447L,47448L,47449L,47450L,47451L,47452L,47453L,47454L, +47455L,47456L,47457L,47458L,47459L,47460L,47461L,47462L,47463L,47464L, +47465L,47466L,47467L,47468L,47469L,47470L,47471L,47472L,47473L,47474L, +47475L,47476L,47477L,47478L,47479L,47480L,47481L,47482L,47483L,47484L, +47485L,47486L,47487L,47488L,47489L,47490L,47491L,47492L,47493L,47494L, +47495L,47496L,47497L,47498L,47499L,47500L,47501L,47502L,47503L,47504L, +47505L,47506L,47507L,47508L,47509L,47510L,47511L,47512L,47513L,47514L, +47515L,47516L,47517L,47518L,47519L,47520L,47521L,47522L,47523L,47524L, +47525L,47526L,47527L,47528L,47529L,47530L,47531L,47532L,47533L,47534L, +47535L,47536L,47537L,47538L,47539L,47540L,47541L,47542L,47543L,47544L, +47545L,47546L,47547L,47548L,47549L,47550L,47551L,47552L,47553L,47554L, +47555L,47556L,47557L,47558L,47559L,47560L,47561L,47562L,47563L,47564L, +47565L,47566L,47567L,47568L,47569L,47570L,47571L,47572L,47573L,47574L, +47575L,47576L,47577L,47578L,47579L,47580L,47581L,47582L,47583L,47584L, +47585L,47586L,47587L,47588L,47589L,47590L,47591L,47592L,47593L,47594L, +47595L,47596L,47597L,47598L,47599L,47600L,47601L,47602L,47603L,47604L, +47605L,47606L,47607L,47608L,47609L,47610L,47611L,47612L,47613L,47614L, +47615L,47616L,47617L,47618L,47619L,47620L,47621L,47622L,47623L,47624L, +47625L,47626L,47627L,47628L,47629L,47630L,47631L,47632L,47633L,47634L, +47635L,47636L,47637L,47638L,47639L,47640L,47641L,47642L,47643L,47644L, +47645L,47646L,47647L,47648L,47649L,47650L,47651L,47652L,47653L,47654L, +47655L,47656L,47657L,47658L,47659L,47660L,47661L,47662L,47663L,47664L, +47665L,47666L,47667L,47668L,47669L,47670L,47671L,47672L,47673L,47674L, +47675L,47676L,47677L,47678L,47679L,47680L,47681L,47682L,47683L,47684L, +47685L,47686L,47687L,47688L,47689L,47690L,47691L,47692L,47693L,47694L, +47695L,47696L,47697L,47698L,47699L,47700L,47701L,47702L,47703L,47704L, +47705L,47706L,47707L,47708L,47709L,47710L,47711L,47712L,47713L,47714L, +47715L,47716L,47717L,47718L,47719L,47720L,47721L,47722L,47723L,47724L, +47725L,47726L,47727L,47728L,47729L,47730L,47731L,47732L,47733L,47734L, +47735L,47736L,47737L,47738L,47739L,47740L,47741L,47742L,47743L,47744L, +47745L,47746L,47747L,47748L,47749L,47750L,47751L,47752L,47753L,47754L, +47755L,47756L,47757L,47758L,47759L,47760L,47761L,47762L,47763L,47764L, +47765L,47766L,47767L,47768L,47769L,47770L,47771L,47772L,47773L,47774L, +47775L,47776L,47777L,47778L,47779L,47780L,47781L,47782L,47783L,47784L, +47785L,47786L,47787L,47788L,47789L,47790L,47791L,47792L,47793L,47794L, +47795L,47796L,47797L,47798L,47799L,47800L,47801L,47802L,47803L,47804L, +47805L,47806L,47807L,47808L,47809L,47810L,47811L,47812L,47813L,47814L, +47815L,47816L,47817L,47818L,47819L,47820L,47821L,47822L,47823L,47824L, +47825L,47826L,47827L,47828L,47829L,47830L,47831L,47832L,47833L,47834L, +47835L,47836L,47837L,47838L,47839L,47840L,47841L,47842L,47843L,47844L, +47845L,47846L,47847L,47848L,47849L,47850L,47851L,47852L,47853L,47854L, +47855L,47856L,47857L,47858L,47859L,47860L,47861L,47862L,47863L,47864L, +47865L,47866L,47867L,47868L,47869L,47870L,47871L,47872L,47873L,47874L, +47875L,47876L,47877L,47878L,47879L,47880L,47881L,47882L,47883L,47884L, +47885L,47886L,47887L,47888L,47889L,47890L,47891L,47892L,47893L,47894L, +47895L,47896L,47897L,47898L,47899L,47900L,47901L,47902L,47903L,47904L, +47905L,47906L,47907L,47908L,47909L,47910L,47911L,47912L,47913L,47914L, +47915L,47916L,47917L,47918L,47919L,47920L,47921L,47922L,47923L,47924L, +47925L,47926L,47927L,47928L,47929L,47930L,47931L,47932L,47933L,47934L, +47935L,47936L,47937L,47938L,47939L,47940L,47941L,47942L,47943L,47944L, +47945L,47946L,47947L,47948L,47949L,47950L,47951L,47952L,47953L,47954L, +47955L,47956L,47957L,47958L,47959L,47960L,47961L,47962L,47963L,47964L, +47965L,47966L,47967L,47968L,47969L,47970L,47971L,47972L,47973L,47974L, +47975L,47976L,47977L,47978L,47979L,47980L,47981L,47982L,47983L,47984L, +47985L,47986L,47987L,47988L,47989L,47990L,47991L,47992L,47993L,47994L, +47995L,47996L,47997L,47998L,47999L,48000L,48001L,48002L,48003L,48004L, +48005L,48006L,48007L,48008L,48009L,48010L,48011L,48012L,48013L,48014L, +48015L,48016L,48017L,48018L,48019L,48020L,48021L,48022L,48023L,48024L, +48025L,48026L,48027L,48028L,48029L,48030L,48031L,48032L,48033L,48034L, +48035L,48036L,48037L,48038L,48039L,48040L,48041L,48042L,48043L,48044L, +48045L,48046L,48047L,48048L,48049L,48050L,48051L,48052L,48053L,48054L, +48055L,48056L,48057L,48058L,48059L,48060L,48061L,48062L,48063L,48064L, +48065L,48066L,48067L,48068L,48069L,48070L,48071L,48072L,48073L,48074L, +48075L,48076L,48077L,48078L,48079L,48080L,48081L,48082L,48083L,48084L, +48085L,48086L,48087L,48088L,48089L,48090L,48091L,48092L,48093L,48094L, +48095L,48096L,48097L,48098L,48099L,48100L,48101L,48102L,48103L,48104L, +48105L,48106L,48107L,48108L,48109L,48110L,48111L,48112L,48113L,48114L, +48115L,48116L,48117L,48118L,48119L,48120L,48121L,48122L,48123L,48124L, +48125L,48126L,48127L,48128L,48129L,48130L,48131L,48132L,48133L,48134L, +48135L,48136L,48137L,48138L,48139L,48140L,48141L,48142L,48143L,48144L, +48145L,48146L,48147L,48148L,48149L,48150L,48151L,48152L,48153L,48154L, +48155L,48156L,48157L,48158L,48159L,48160L,48161L,48162L,48163L,48164L, +48165L,48166L,48167L,48168L,48169L,48170L,48171L,48172L,48173L,48174L, +48175L,48176L,48177L,48178L,48179L,48180L,48181L,48182L,48183L,48184L, +48185L,48186L,48187L,48188L,48189L,48190L,48191L,48192L,48193L,48194L, +48195L,48196L,48197L,48198L,48199L,48200L,48201L,48202L,48203L,48204L, +48205L,48206L,48207L,48208L,48209L,48210L,48211L,48212L,48213L,48214L, +48215L,48216L,48217L,48218L,48219L,48220L,48221L,48222L,48223L,48224L, +48225L,48226L,48227L,48228L,48229L,48230L,48231L,48232L,48233L,48234L, +48235L,48236L,48237L,48238L,48239L,48240L,48241L,48242L,48243L,48244L, +48245L,48246L,48247L,48248L,48249L,48250L,48251L,48252L,48253L,48254L, +48255L,48256L,48257L,48258L,48259L,48260L,48261L,48262L,48263L,48264L, +48265L,48266L,48267L,48268L,48269L,48270L,48271L,48272L,48273L,48274L, +48275L,48276L,48277L,48278L,48279L,48280L,48281L,48282L,48283L,48284L, +48285L,48286L,48287L,48288L,48289L,48290L,48291L,48292L,48293L,48294L, +48295L,48296L,48297L,48298L,48299L,48300L,48301L,48302L,48303L,48304L, +48305L,48306L,48307L,48308L,48309L,48310L,48311L,48312L,48313L,48314L, +48315L,48316L,48317L,48318L,48319L,48320L,48321L,48322L,48323L,48324L, +48325L,48326L,48327L,48328L,48329L,48330L,48331L,48332L,48333L,48334L, +48335L,48336L,48337L,48338L,48339L,48340L,48341L,48342L,48343L,48344L, +48345L,48346L,48347L,48348L,48349L,48350L,48351L,48352L,48353L,48354L, +48355L,48356L,48357L,48358L,48359L,48360L,48361L,48362L,48363L,48364L, +48365L,48366L,48367L,48368L,48369L,48370L,48371L,48372L,48373L,48374L, +48375L,48376L,48377L,48378L,48379L,48380L,48381L,48382L,48383L,48384L, +48385L,48386L,48387L,48388L,48389L,48390L,48391L,48392L,48393L,48394L, +48395L,48396L,48397L,48398L,48399L,48400L,48401L,48402L,48403L,48404L, +48405L,48406L,48407L,48408L,48409L,48410L,48411L,48412L,48413L,48414L, +48415L,48416L,48417L,48418L,48419L,48420L,48421L,48422L,48423L,48424L, +48425L,48426L,48427L,48428L,48429L,48430L,48431L,48432L,48433L,48434L, +48435L,48436L,48437L,48438L,48439L,48440L,48441L,48442L,48443L,48444L, +48445L,48446L,48447L,48448L,48449L,48450L,48451L,48452L,48453L,48454L, +48455L,48456L,48457L,48458L,48459L,48460L,48461L,48462L,48463L,48464L, +48465L,48466L,48467L,48468L,48469L,48470L,48471L,48472L,48473L,48474L, +48475L,48476L,48477L,48478L,48479L,48480L,48481L,48482L,48483L,48484L, +48485L,48486L,48487L,48488L,48489L,48490L,48491L,48492L,48493L,48494L, +48495L,48496L,48497L,48498L,48499L,48500L,48501L,48502L,48503L,48504L, +48505L,48506L,48507L,48508L,48509L,48510L,48511L,48512L,48513L,48514L, +48515L,48516L,48517L,48518L,48519L,48520L,48521L,48522L,48523L,48524L, +48525L,48526L,48527L,48528L,48529L,48530L,48531L,48532L,48533L,48534L, +48535L,48536L,48537L,48538L,48539L,48540L,48541L,48542L,48543L,48544L, +48545L,48546L,48547L,48548L,48549L,48550L,48551L,48552L,48553L,48554L, +48555L,48556L,48557L,48558L,48559L,48560L,48561L,48562L,48563L,48564L, +48565L,48566L,48567L,48568L,48569L,48570L,48571L,48572L,48573L,48574L, +48575L,48576L,48577L,48578L,48579L,48580L,48581L,48582L,48583L,48584L, +48585L,48586L,48587L,48588L,48589L,48590L,48591L,48592L,48593L,48594L, +48595L,48596L,48597L,48598L,48599L,48600L,48601L,48602L,48603L,48604L, +48605L,48606L,48607L,48608L,48609L,48610L,48611L,48612L,48613L,48614L, +48615L,48616L,48617L,48618L,48619L,48620L,48621L,48622L,48623L,48624L, +48625L,48626L,48627L,48628L,48629L,48630L,48631L,48632L,48633L,48634L, +48635L,48636L,48637L,48638L,48639L,48640L,48641L,48642L,48643L,48644L, +48645L,48646L,48647L,48648L,48649L,48650L,48651L,48652L,48653L,48654L, +48655L,48656L,48657L,48658L,48659L,48660L,48661L,48662L,48663L,48664L, +48665L,48666L,48667L,48668L,48669L,48670L,48671L,48672L,48673L,48674L, +48675L,48676L,48677L,48678L,48679L,48680L,48681L,48682L,48683L,48684L, +48685L,48686L,48687L,48688L,48689L,48690L,48691L,48692L,48693L,48694L, +48695L,48696L,48697L,48698L,48699L,48700L,48701L,48702L,48703L,48704L, +48705L,48706L,48707L,48708L,48709L,48710L,48711L,48712L,48713L,48714L, +48715L,48716L,48717L,48718L,48719L,48720L,48721L,48722L,48723L,48724L, +48725L,48726L,48727L,48728L,48729L,48730L,48731L,48732L,48733L,48734L, +48735L,48736L,48737L,48738L,48739L,48740L,48741L,48742L,48743L,48744L, +48745L,48746L,48747L,48748L,48749L,48750L,48751L,48752L,48753L,48754L, +48755L,48756L,48757L,48758L,48759L,48760L,48761L,48762L,48763L,48764L, +48765L,48766L,48767L,48768L,48769L,48770L,48771L,48772L,48773L,48774L, +48775L,48776L,48777L,48778L,48779L,48780L,48781L,48782L,48783L,48784L, +48785L,48786L,48787L,48788L,48789L,48790L,48791L,48792L,48793L,48794L, +48795L,48796L,48797L,48798L,48799L,48800L,48801L,48802L,48803L,48804L, +48805L,48806L,48807L,48808L,48809L,48810L,48811L,48812L,48813L,48814L, +48815L,48816L,48817L,48818L,48819L,48820L,48821L,48822L,48823L,48824L, +48825L,48826L,48827L,48828L,48829L,48830L,48831L,48832L,48833L,48834L, +48835L,48836L,48837L,48838L,48839L,48840L,48841L,48842L,48843L,48844L, +48845L,48846L,48847L,48848L,48849L,48850L,48851L,48852L,48853L,48854L, +48855L,48856L,48857L,48858L,48859L,48860L,48861L,48862L,48863L,48864L, +48865L,48866L,48867L,48868L,48869L,48870L,48871L,48872L,48873L,48874L, +48875L,48876L,48877L,48878L,48879L,48880L,48881L,48882L,48883L,48884L, +48885L,48886L,48887L,48888L,48889L,48890L,48891L,48892L,48893L,48894L, +48895L,48896L,48897L,48898L,48899L,48900L,48901L,48902L,48903L,48904L, +48905L,48906L,48907L,48908L,48909L,48910L,48911L,48912L,48913L,48914L, +48915L,48916L,48917L,48918L,48919L,48920L,48921L,48922L,48923L,48924L, +48925L,48926L,48927L,48928L,48929L,48930L,48931L,48932L,48933L,48934L, +48935L,48936L,48937L,48938L,48939L,48940L,48941L,48942L,48943L,48944L, +48945L,48946L,48947L,48948L,48949L,48950L,48951L,48952L,48953L,48954L, +48955L,48956L,48957L,48958L,48959L,48960L,48961L,48962L,48963L,48964L, +48965L,48966L,48967L,48968L,48969L,48970L,48971L,48972L,48973L,48974L, +48975L,48976L,48977L,48978L,48979L,48980L,48981L,48982L,48983L,48984L, +48985L,48986L,48987L,48988L,48989L,48990L,48991L,48992L,48993L,48994L, +48995L,48996L,48997L,48998L,48999L,49000L,49001L,49002L,49003L,49004L, +49005L,49006L,49007L,49008L,49009L,49010L,49011L,49012L,49013L,49014L, +49015L,49016L,49017L,49018L,49019L,49020L,49021L,49022L,49023L,49024L, +49025L,49026L,49027L,49028L,49029L,49030L,49031L,49032L,49033L,49034L, +49035L,49036L,49037L,49038L,49039L,49040L,49041L,49042L,49043L,49044L, +49045L,49046L,49047L,49048L,49049L,49050L,49051L,49052L,49053L,49054L, +49055L,49056L,49057L,49058L,49059L,49060L,49061L,49062L,49063L,49064L, +49065L,49066L,49067L,49068L,49069L,49070L,49071L,49072L,49073L,49074L, +49075L,49076L,49077L,49078L,49079L,49080L,49081L,49082L,49083L,49084L, +49085L,49086L,49087L,49088L,49089L,49090L,49091L,49092L,49093L,49094L, +49095L,49096L,49097L,49098L,49099L,49100L,49101L,49102L,49103L,49104L, +49105L,49106L,49107L,49108L,49109L,49110L,49111L,49112L,49113L,49114L, +49115L,49116L,49117L,49118L,49119L,49120L,49121L,49122L,49123L,49124L, +49125L,49126L,49127L,49128L,49129L,49130L,49131L,49132L,49133L,49134L, +49135L,49136L,49137L,49138L,49139L,49140L,49141L,49142L,49143L,49144L, +49145L,49146L,49147L,49148L,49149L,49150L,49151L,49152L,49153L,49154L, +49155L,49156L,49157L,49158L,49159L,49160L,49161L,49162L,49163L,49164L, +49165L,49166L,49167L,49168L,49169L,49170L,49171L,49172L,49173L,49174L, +49175L,49176L,49177L,49178L,49179L,49180L,49181L,49182L,49183L,49184L, +49185L,49186L,49187L,49188L,49189L,49190L,49191L,49192L,49193L,49194L, +49195L,49196L,49197L,49198L,49199L,49200L,49201L,49202L,49203L,49204L, +49205L,49206L,49207L,49208L,49209L,49210L,49211L,49212L,49213L,49214L, +49215L,49216L,49217L,49218L,49219L,49220L,49221L,49222L,49223L,49224L, +49225L,49226L,49227L,49228L,49229L,49230L,49231L,49232L,49233L,49234L, +49235L,49236L,49237L,49238L,49239L,49240L,49241L,49242L,49243L,49244L, +49245L,49246L,49247L,49248L,49249L,49250L,49251L,49252L,49253L,49254L, +49255L,49256L,49257L,49258L,49259L,49260L,49261L,49262L,49263L,49264L, +49265L,49266L,49267L,49268L,49269L,49270L,49271L,49272L,49273L,49274L, +49275L,49276L,49277L,49278L,49279L,49280L,49281L,49282L,49283L,49284L, +49285L,49286L,49287L,49288L,49289L,49290L,49291L,49292L,49293L,49294L, +49295L,49296L,49297L,49298L,49299L,49300L,49301L,49302L,49303L,49304L, +49305L,49306L,49307L,49308L,49309L,49310L,49311L,49312L,49313L,49314L, +49315L,49316L,49317L,49318L,49319L,49320L,49321L,49322L,49323L,49324L, +49325L,49326L,49327L,49328L,49329L,49330L,49331L,49332L,49333L,49334L, +49335L,49336L,49337L,49338L,49339L,49340L,49341L,49342L,49343L,49344L, +49345L,49346L,49347L,49348L,49349L,49350L,49351L,49352L,49353L,49354L, +49355L,49356L,49357L,49358L,49359L,49360L,49361L,49362L,49363L,49364L, +49365L,49366L,49367L,49368L,49369L,49370L,49371L,49372L,49373L,49374L, +49375L,49376L,49377L,49378L,49379L,49380L,49381L,49382L,49383L,49384L, +49385L,49386L,49387L,49388L,49389L,49390L,49391L,49392L,49393L,49394L, +49395L,49396L,49397L,49398L,49399L,49400L,49401L,49402L,49403L,49404L, +49405L,49406L,49407L,49408L,49409L,49410L,49411L,49412L,49413L,49414L, +49415L,49416L,49417L,49418L,49419L,49420L,49421L,49422L,49423L,49424L, +49425L,49426L,49427L,49428L,49429L,49430L,49431L,49432L,49433L,49434L, +49435L,49436L,49437L,49438L,49439L,49440L,49441L,49442L,49443L,49444L, +49445L,49446L,49447L,49448L,49449L,49450L,49451L,49452L,49453L,49454L, +49455L,49456L,49457L,49458L,49459L,49460L,49461L,49462L,49463L,49464L, +49465L,49466L,49467L,49468L,49469L,49470L,49471L,49472L,49473L,49474L, +49475L,49476L,49477L,49478L,49479L,49480L,49481L,49482L,49483L,49484L, +49485L,49486L,49487L,49488L,49489L,49490L,49491L,49492L,49493L,49494L, +49495L,49496L,49497L,49498L,49499L,49500L,49501L,49502L,49503L,49504L, +49505L,49506L,49507L,49508L,49509L,49510L,49511L,49512L,49513L,49514L, +49515L,49516L,49517L,49518L,49519L,49520L,49521L,49522L,49523L,49524L, +49525L,49526L,49527L,49528L,49529L,49530L,49531L,49532L,49533L,49534L, +49535L,49536L,49537L,49538L,49539L,49540L,49541L,49542L,49543L,49544L, +49545L,49546L,49547L,49548L,49549L,49550L,49551L,49552L,49553L,49554L, +49555L,49556L,49557L,49558L,49559L,49560L,49561L,49562L,49563L,49564L, +49565L,49566L,49567L,49568L,49569L,49570L,49571L,49572L,49573L,49574L, +49575L,49576L,49577L,49578L,49579L,49580L,49581L,49582L,49583L,49584L, +49585L,49586L,49587L,49588L,49589L,49590L,49591L,49592L,49593L,49594L, +49595L,49596L,49597L,49598L,49599L,49600L,49601L,49602L,49603L,49604L, +49605L,49606L,49607L,49608L,49609L,49610L,49611L,49612L,49613L,49614L, +49615L,49616L,49617L,49618L,49619L,49620L,49621L,49622L,49623L,49624L, +49625L,49626L,49627L,49628L,49629L,49630L,49631L,49632L,49633L,49634L, +49635L,49636L,49637L,49638L,49639L,49640L,49641L,49642L,49643L,49644L, +49645L,49646L,49647L,49648L,49649L,49650L,49651L,49652L,49653L,49654L, +49655L,49656L,49657L,49658L,49659L,49660L,49661L,49662L,49663L,49664L, +49665L,49666L,49667L,49668L,49669L,49670L,49671L,49672L,49673L,49674L, +49675L,49676L,49677L,49678L,49679L,49680L,49681L,49682L,49683L,49684L, +49685L,49686L,49687L,49688L,49689L,49690L,49691L,49692L,49693L,49694L, +49695L,49696L,49697L,49698L,49699L,49700L,49701L,49702L,49703L,49704L, +49705L,49706L,49707L,49708L,49709L,49710L,49711L,49712L,49713L,49714L, +49715L,49716L,49717L,49718L,49719L,49720L,49721L,49722L,49723L,49724L, +49725L,49726L,49727L,49728L,49729L,49730L,49731L,49732L,49733L,49734L, +49735L,49736L,49737L,49738L,49739L,49740L,49741L,49742L,49743L,49744L, +49745L,49746L,49747L,49748L,49749L,49750L,49751L,49752L,49753L,49754L, +49755L,49756L,49757L,49758L,49759L,49760L,49761L,49762L,49763L,49764L, +49765L,49766L,49767L,49768L,49769L,49770L,49771L,49772L,49773L,49774L, +49775L,49776L,49777L,49778L,49779L,49780L,49781L,49782L,49783L,49784L, +49785L,49786L,49787L,49788L,49789L,49790L,49791L,49792L,49793L,49794L, +49795L,49796L,49797L,49798L,49799L,49800L,49801L,49802L,49803L,49804L, +49805L,49806L,49807L,49808L,49809L,49810L,49811L,49812L,49813L,49814L, +49815L,49816L,49817L,49818L,49819L,49820L,49821L,49822L,49823L,49824L, +49825L,49826L,49827L,49828L,49829L,49830L,49831L,49832L,49833L,49834L, +49835L,49836L,49837L,49838L,49839L,49840L,49841L,49842L,49843L,49844L, +49845L,49846L,49847L,49848L,49849L,49850L,49851L,49852L,49853L,49854L, +49855L,49856L,49857L,49858L,49859L,49860L,49861L,49862L,49863L,49864L, +49865L,49866L,49867L,49868L,49869L,49870L,49871L,49872L,49873L,49874L, +49875L,49876L,49877L,49878L,49879L,49880L,49881L,49882L,49883L,49884L, +49885L,49886L,49887L,49888L,49889L,49890L,49891L,49892L,49893L,49894L, +49895L,49896L,49897L,49898L,49899L,49900L,49901L,49902L,49903L,49904L, +49905L,49906L,49907L,49908L,49909L,49910L,49911L,49912L,49913L,49914L, +49915L,49916L,49917L,49918L,49919L,49920L,49921L,49922L,49923L,49924L, +49925L,49926L,49927L,49928L,49929L,49930L,49931L,49932L,49933L,49934L, +49935L,49936L,49937L,49938L,49939L,49940L,49941L,49942L,49943L,49944L, +49945L,49946L,49947L,49948L,49949L,49950L,49951L,49952L,49953L,49954L, +49955L,49956L,49957L,49958L,49959L,49960L,49961L,49962L,49963L,49964L, +49965L,49966L,49967L,49968L,49969L,49970L,49971L,49972L,49973L,49974L, +49975L,49976L,49977L,49978L,49979L,49980L,49981L,49982L,49983L,49984L, +49985L,49986L,49987L,49988L,49989L,49990L,49991L,49992L,49993L,49994L, +49995L,49996L,49997L,49998L,49999L,50000L,50001L,50002L,50003L,50004L, +50005L,50006L,50007L,50008L,50009L,50010L,50011L,50012L,50013L,50014L, +50015L,50016L,50017L,50018L,50019L,50020L,50021L,50022L,50023L,50024L, +50025L,50026L,50027L,50028L,50029L,50030L,50031L,50032L,50033L,50034L, +50035L,50036L,50037L,50038L,50039L,50040L,50041L,50042L,50043L,50044L, +50045L,50046L,50047L,50048L,50049L,50050L,50051L,50052L,50053L,50054L, +50055L,50056L,50057L,50058L,50059L,50060L,50061L,50062L,50063L,50064L, +50065L,50066L,50067L,50068L,50069L,50070L,50071L,50072L,50073L,50074L, +50075L,50076L,50077L,50078L,50079L,50080L,50081L,50082L,50083L,50084L, +50085L,50086L,50087L,50088L,50089L,50090L,50091L,50092L,50093L,50094L, +50095L,50096L,50097L,50098L,50099L,50100L,50101L,50102L,50103L,50104L, +50105L,50106L,50107L,50108L,50109L,50110L,50111L,50112L,50113L,50114L, +50115L,50116L,50117L,50118L,50119L,50120L,50121L,50122L,50123L,50124L, +50125L,50126L,50127L,50128L,50129L,50130L,50131L,50132L,50133L,50134L, +50135L,50136L,50137L,50138L,50139L,50140L,50141L,50142L,50143L,50144L, +50145L,50146L,50147L,50148L,50149L,50150L,50151L,50152L,50153L,50154L, +50155L,50156L,50157L,50158L,50159L,50160L,50161L,50162L,50163L,50164L, +50165L,50166L,50167L,50168L,50169L,50170L,50171L,50172L,50173L,50174L, +50175L,50176L,50177L,50178L,50179L,50180L,50181L,50182L,50183L,50184L, +50185L,50186L,50187L,50188L,50189L,50190L,50191L,50192L,50193L,50194L, +50195L,50196L,50197L,50198L,50199L,50200L,50201L,50202L,50203L,50204L, +50205L,50206L,50207L,50208L,50209L,50210L,50211L,50212L,50213L,50214L, +50215L,50216L,50217L,50218L,50219L,50220L,50221L,50222L,50223L,50224L, +50225L,50226L,50227L,50228L,50229L,50230L,50231L,50232L,50233L,50234L, +50235L,50236L,50237L,50238L,50239L,50240L,50241L,50242L,50243L,50244L, +50245L,50246L,50247L,50248L,50249L,50250L,50251L,50252L,50253L,50254L, +50255L,50256L,50257L,50258L,50259L,50260L,50261L,50262L,50263L,50264L, +50265L,50266L,50267L,50268L,50269L,50270L,50271L,50272L,50273L,50274L, +50275L,50276L,50277L,50278L,50279L,50280L,50281L,50282L,50283L,50284L, +50285L,50286L,50287L,50288L,50289L,50290L,50291L,50292L,50293L,50294L, +50295L,50296L,50297L,50298L,50299L,50300L,50301L,50302L,50303L,50304L, +50305L,50306L,50307L,50308L,50309L,50310L,50311L,50312L,50313L,50314L, +50315L,50316L,50317L,50318L,50319L,50320L,50321L,50322L,50323L,50324L, +50325L,50326L,50327L,50328L,50329L,50330L,50331L,50332L,50333L,50334L, +50335L,50336L,50337L,50338L,50339L,50340L,50341L,50342L,50343L,50344L, +50345L,50346L,50347L,50348L,50349L,50350L,50351L,50352L,50353L,50354L, +50355L,50356L,50357L,50358L,50359L,50360L,50361L,50362L,50363L,50364L, +50365L,50366L,50367L,50368L,50369L,50370L,50371L,50372L,50373L,50374L, +50375L,50376L,50377L,50378L,50379L,50380L,50381L,50382L,50383L,50384L, +50385L,50386L,50387L,50388L,50389L,50390L,50391L,50392L,50393L,50394L, +50395L,50396L,50397L,50398L,50399L,50400L,50401L,50402L,50403L,50404L, +50405L,50406L,50407L,50408L,50409L,50410L,50411L,50412L,50413L,50414L, +50415L,50416L,50417L,50418L,50419L,50420L,50421L,50422L,50423L,50424L, +50425L,50426L,50427L,50428L,50429L,50430L,50431L,50432L,50433L,50434L, +50435L,50436L,50437L,50438L,50439L,50440L,50441L,50442L,50443L,50444L, +50445L,50446L,50447L,50448L,50449L,50450L,50451L,50452L,50453L,50454L, +50455L,50456L,50457L,50458L,50459L,50460L,50461L,50462L,50463L,50464L, +50465L,50466L,50467L,50468L,50469L,50470L,50471L,50472L,50473L,50474L, +50475L,50476L,50477L,50478L,50479L,50480L,50481L,50482L,50483L,50484L, +50485L,50486L,50487L,50488L,50489L,50490L,50491L,50492L,50493L,50494L, +50495L,50496L,50497L,50498L,50499L,50500L,50501L,50502L,50503L,50504L, +50505L,50506L,50507L,50508L,50509L,50510L,50511L,50512L,50513L,50514L, +50515L,50516L,50517L,50518L,50519L,50520L,50521L,50522L,50523L,50524L, +50525L,50526L,50527L,50528L,50529L,50530L,50531L,50532L,50533L,50534L, +50535L,50536L,50537L,50538L,50539L,50540L,50541L,50542L,50543L,50544L, +50545L,50546L,50547L,50548L,50549L,50550L,50551L,50552L,50553L,50554L, +50555L,50556L,50557L,50558L,50559L,50560L,50561L,50562L,50563L,50564L, +50565L,50566L,50567L,50568L,50569L,50570L,50571L,50572L,50573L,50574L, +50575L,50576L,50577L,50578L,50579L,50580L,50581L,50582L,50583L,50584L, +50585L,50586L,50587L,50588L,50589L,50590L,50591L,50592L,50593L,50594L, +50595L,50596L,50597L,50598L,50599L,50600L,50601L,50602L,50603L,50604L, +50605L,50606L,50607L,50608L,50609L,50610L,50611L,50612L,50613L,50614L, +50615L,50616L,50617L,50618L,50619L,50620L,50621L,50622L,50623L,50624L, +50625L,50626L,50627L,50628L,50629L,50630L,50631L,50632L,50633L,50634L, +50635L,50636L,50637L,50638L,50639L,50640L,50641L,50642L,50643L,50644L, +50645L,50646L,50647L,50648L,50649L,50650L,50651L,50652L,50653L,50654L, +50655L,50656L,50657L,50658L,50659L,50660L,50661L,50662L,50663L,50664L, +50665L,50666L,50667L,50668L,50669L,50670L,50671L,50672L,50673L,50674L, +50675L,50676L,50677L,50678L,50679L,50680L,50681L,50682L,50683L,50684L, +50685L,50686L,50687L,50688L,50689L,50690L,50691L,50692L,50693L,50694L, +50695L,50696L,50697L,50698L,50699L,50700L,50701L,50702L,50703L,50704L, +50705L,50706L,50707L,50708L,50709L,50710L,50711L,50712L,50713L,50714L, +50715L,50716L,50717L,50718L,50719L,50720L,50721L,50722L,50723L,50724L, +50725L,50726L,50727L,50728L,50729L,50730L,50731L,50732L,50733L,50734L, +50735L,50736L,50737L,50738L,50739L,50740L,50741L,50742L,50743L,50744L, +50745L,50746L,50747L,50748L,50749L,50750L,50751L,50752L,50753L,50754L, +50755L,50756L,50757L,50758L,50759L,50760L,50761L,50762L,50763L,50764L, +50765L,50766L,50767L,50768L,50769L,50770L,50771L,50772L,50773L,50774L, +50775L,50776L,50777L,50778L,50779L,50780L,50781L,50782L,50783L,50784L, +50785L,50786L,50787L,50788L,50789L,50790L,50791L,50792L,50793L,50794L, +50795L,50796L,50797L,50798L,50799L,50800L,50801L,50802L,50803L,50804L, +50805L,50806L,50807L,50808L,50809L,50810L,50811L,50812L,50813L,50814L, +50815L,50816L,50817L,50818L,50819L,50820L,50821L,50822L,50823L,50824L, +50825L,50826L,50827L,50828L,50829L,50830L,50831L,50832L,50833L,50834L, +50835L,50836L,50837L,50838L,50839L,50840L,50841L,50842L,50843L,50844L, +50845L,50846L,50847L,50848L,50849L,50850L,50851L,50852L,50853L,50854L, +50855L,50856L,50857L,50858L,50859L,50860L,50861L,50862L,50863L,50864L, +50865L,50866L,50867L,50868L,50869L,50870L,50871L,50872L,50873L,50874L, +50875L,50876L,50877L,50878L,50879L,50880L,50881L,50882L,50883L,50884L, +50885L,50886L,50887L,50888L,50889L,50890L,50891L,50892L,50893L,50894L, +50895L,50896L,50897L,50898L,50899L,50900L,50901L,50902L,50903L,50904L, +50905L,50906L,50907L,50908L,50909L,50910L,50911L,50912L,50913L,50914L, +50915L,50916L,50917L,50918L,50919L,50920L,50921L,50922L,50923L,50924L, +50925L,50926L,50927L,50928L,50929L,50930L,50931L,50932L,50933L,50934L, +50935L,50936L,50937L,50938L,50939L,50940L,50941L,50942L,50943L,50944L, +50945L,50946L,50947L,50948L,50949L,50950L,50951L,50952L,50953L,50954L, +50955L,50956L,50957L,50958L,50959L,50960L,50961L,50962L,50963L,50964L, +50965L,50966L,50967L,50968L,50969L,50970L,50971L,50972L,50973L,50974L, +50975L,50976L,50977L,50978L,50979L,50980L,50981L,50982L,50983L,50984L, +50985L,50986L,50987L,50988L,50989L,50990L,50991L,50992L,50993L,50994L, +50995L,50996L,50997L,50998L,50999L,51000L,51001L,51002L,51003L,51004L, +51005L,51006L,51007L,51008L,51009L,51010L,51011L,51012L,51013L,51014L, +51015L,51016L,51017L,51018L,51019L,51020L,51021L,51022L,51023L,51024L, +51025L,51026L,51027L,51028L,51029L,51030L,51031L,51032L,51033L,51034L, +51035L,51036L,51037L,51038L,51039L,51040L,51041L,51042L,51043L,51044L, +51045L,51046L,51047L,51048L,51049L,51050L,51051L,51052L,51053L,51054L, +51055L,51056L,51057L,51058L,51059L,51060L,51061L,51062L,51063L,51064L, +51065L,51066L,51067L,51068L,51069L,51070L,51071L,51072L,51073L,51074L, +51075L,51076L,51077L,51078L,51079L,51080L,51081L,51082L,51083L,51084L, +51085L,51086L,51087L,51088L,51089L,51090L,51091L,51092L,51093L,51094L, +51095L,51096L,51097L,51098L,51099L,51100L,51101L,51102L,51103L,51104L, +51105L,51106L,51107L,51108L,51109L,51110L,51111L,51112L,51113L,51114L, +51115L,51116L,51117L,51118L,51119L,51120L,51121L,51122L,51123L,51124L, +51125L,51126L,51127L,51128L,51129L,51130L,51131L,51132L,51133L,51134L, +51135L,51136L,51137L,51138L,51139L,51140L,51141L,51142L,51143L,51144L, +51145L,51146L,51147L,51148L,51149L,51150L,51151L,51152L,51153L,51154L, +51155L,51156L,51157L,51158L,51159L,51160L,51161L,51162L,51163L,51164L, +51165L,51166L,51167L,51168L,51169L,51170L,51171L,51172L,51173L,51174L, +51175L,51176L,51177L,51178L,51179L,51180L,51181L,51182L,51183L,51184L, +51185L,51186L,51187L,51188L,51189L,51190L,51191L,51192L,51193L,51194L, +51195L,51196L,51197L,51198L,51199L,51200L,51201L,51202L,51203L,51204L, +51205L,51206L,51207L,51208L,51209L,51210L,51211L,51212L,51213L,51214L, +51215L,51216L,51217L,51218L,51219L,51220L,51221L,51222L,51223L,51224L, +51225L,51226L,51227L,51228L,51229L,51230L,51231L,51232L,51233L,51234L, +51235L,51236L,51237L,51238L,51239L,51240L,51241L,51242L,51243L,51244L, +51245L,51246L,51247L,51248L,51249L,51250L,51251L,51252L,51253L,51254L, +51255L,51256L,51257L,51258L,51259L,51260L,51261L,51262L,51263L,51264L, +51265L,51266L,51267L,51268L,51269L,51270L,51271L,51272L,51273L,51274L, +51275L,51276L,51277L,51278L,51279L,51280L,51281L,51282L,51283L,51284L, +51285L,51286L,51287L,51288L,51289L,51290L,51291L,51292L,51293L,51294L, +51295L,51296L,51297L,51298L,51299L,51300L,51301L,51302L,51303L,51304L, +51305L,51306L,51307L,51308L,51309L,51310L,51311L,51312L,51313L,51314L, +51315L,51316L,51317L,51318L,51319L,51320L,51321L,51322L,51323L,51324L, +51325L,51326L,51327L,51328L,51329L,51330L,51331L,51332L,51333L,51334L, +51335L,51336L,51337L,51338L,51339L,51340L,51341L,51342L,51343L,51344L, +51345L,51346L,51347L,51348L,51349L,51350L,51351L,51352L,51353L,51354L, +51355L,51356L,51357L,51358L,51359L,51360L,51361L,51362L,51363L,51364L, +51365L,51366L,51367L,51368L,51369L,51370L,51371L,51372L,51373L,51374L, +51375L,51376L,51377L,51378L,51379L,51380L,51381L,51382L,51383L,51384L, +51385L,51386L,51387L,51388L,51389L,51390L,51391L,51392L,51393L,51394L, +51395L,51396L,51397L,51398L,51399L,51400L,51401L,51402L,51403L,51404L, +51405L,51406L,51407L,51408L,51409L,51410L,51411L,51412L,51413L,51414L, +51415L,51416L,51417L,51418L,51419L,51420L,51421L,51422L,51423L,51424L, +51425L,51426L,51427L,51428L,51429L,51430L,51431L,51432L,51433L,51434L, +51435L,51436L,51437L,51438L,51439L,51440L,51441L,51442L,51443L,51444L, +51445L,51446L,51447L,51448L,51449L,51450L,51451L,51452L,51453L,51454L, +51455L,51456L,51457L,51458L,51459L,51460L,51461L,51462L,51463L,51464L, +51465L,51466L,51467L,51468L,51469L,51470L,51471L,51472L,51473L,51474L, +51475L,51476L,51477L,51478L,51479L,51480L,51481L,51482L,51483L,51484L, +51485L,51486L,51487L,51488L,51489L,51490L,51491L,51492L,51493L,51494L, +51495L,51496L,51497L,51498L,51499L,51500L,51501L,51502L,51503L,51504L, +51505L,51506L,51507L,51508L,51509L,51510L,51511L,51512L,51513L,51514L, +51515L,51516L,51517L,51518L,51519L,51520L,51521L,51522L,51523L,51524L, +51525L,51526L,51527L,51528L,51529L,51530L,51531L,51532L,51533L,51534L, +51535L,51536L,51537L,51538L,51539L,51540L,51541L,51542L,51543L,51544L, +51545L,51546L,51547L,51548L,51549L,51550L,51551L,51552L,51553L,51554L, +51555L,51556L,51557L,51558L,51559L,51560L,51561L,51562L,51563L,51564L, +51565L,51566L,51567L,51568L,51569L,51570L,51571L,51572L,51573L,51574L, +51575L,51576L,51577L,51578L,51579L,51580L,51581L,51582L,51583L,51584L, +51585L,51586L,51587L,51588L,51589L,51590L,51591L,51592L,51593L,51594L, +51595L,51596L,51597L,51598L,51599L,51600L,51601L,51602L,51603L,51604L, +51605L,51606L,51607L,51608L,51609L,51610L,51611L,51612L,51613L,51614L, +51615L,51616L,51617L,51618L,51619L,51620L,51621L,51622L,51623L,51624L, +51625L,51626L,51627L,51628L,51629L,51630L,51631L,51632L,51633L,51634L, +51635L,51636L,51637L,51638L,51639L,51640L,51641L,51642L,51643L,51644L, +51645L,51646L,51647L,51648L,51649L,51650L,51651L,51652L,51653L,51654L, +51655L,51656L,51657L,51658L,51659L,51660L,51661L,51662L,51663L,51664L, +51665L,51666L,51667L,51668L,51669L,51670L,51671L,51672L,51673L,51674L, +51675L,51676L,51677L,51678L,51679L,51680L,51681L,51682L,51683L,51684L, +51685L,51686L,51687L,51688L,51689L,51690L,51691L,51692L,51693L,51694L, +51695L,51696L,51697L,51698L,51699L,51700L,51701L,51702L,51703L,51704L, +51705L,51706L,51707L,51708L,51709L,51710L,51711L,51712L,51713L,51714L, +51715L,51716L,51717L,51718L,51719L,51720L,51721L,51722L,51723L,51724L, +51725L,51726L,51727L,51728L,51729L,51730L,51731L,51732L,51733L,51734L, +51735L,51736L,51737L,51738L,51739L,51740L,51741L,51742L,51743L,51744L, +51745L,51746L,51747L,51748L,51749L,51750L,51751L,51752L,51753L,51754L, +51755L,51756L,51757L,51758L,51759L,51760L,51761L,51762L,51763L,51764L, +51765L,51766L,51767L,51768L,51769L,51770L,51771L,51772L,51773L,51774L, +51775L,51776L,51777L,51778L,51779L,51780L,51781L,51782L,51783L,51784L, +51785L,51786L,51787L,51788L,51789L,51790L,51791L,51792L,51793L,51794L, +51795L,51796L,51797L,51798L,51799L,51800L,51801L,51802L,51803L,51804L, +51805L,51806L,51807L,51808L,51809L,51810L,51811L,51812L,51813L,51814L, +51815L,51816L,51817L,51818L,51819L,51820L,51821L,51822L,51823L,51824L, +51825L,51826L,51827L,51828L,51829L,51830L,51831L,51832L,51833L,51834L, +51835L,51836L,51837L,51838L,51839L,51840L,51841L,51842L,51843L,51844L, +51845L,51846L,51847L,51848L,51849L,51850L,51851L,51852L,51853L,51854L, +51855L,51856L,51857L,51858L,51859L,51860L,51861L,51862L,51863L,51864L, +51865L,51866L,51867L,51868L,51869L,51870L,51871L,51872L,51873L,51874L, +51875L,51876L,51877L,51878L,51879L,51880L,51881L,51882L,51883L,51884L, +51885L,51886L,51887L,51888L,51889L,51890L,51891L,51892L,51893L,51894L, +51895L,51896L,51897L,51898L,51899L,51900L,51901L,51902L,51903L,51904L, +51905L,51906L,51907L,51908L,51909L,51910L,51911L,51912L,51913L,51914L, +51915L,51916L,51917L,51918L,51919L,51920L,51921L,51922L,51923L,51924L, +51925L,51926L,51927L,51928L,51929L,51930L,51931L,51932L,51933L,51934L, +51935L,51936L,51937L,51938L,51939L,51940L,51941L,51942L,51943L,51944L, +51945L,51946L,51947L,51948L,51949L,51950L,51951L,51952L,51953L,51954L, +51955L,51956L,51957L,51958L,51959L,51960L,51961L,51962L,51963L,51964L, +51965L,51966L,51967L,51968L,51969L,51970L,51971L,51972L,51973L,51974L, +51975L,51976L,51977L,51978L,51979L,51980L,51981L,51982L,51983L,51984L, +51985L,51986L,51987L,51988L,51989L,51990L,51991L,51992L,51993L,51994L, +51995L,51996L,51997L,51998L,51999L,52000L,52001L,52002L,52003L,52004L, +52005L,52006L,52007L,52008L,52009L,52010L,52011L,52012L,52013L,52014L, +52015L,52016L,52017L,52018L,52019L,52020L,52021L,52022L,52023L,52024L, +52025L,52026L,52027L,52028L,52029L,52030L,52031L,52032L,52033L,52034L, +52035L,52036L,52037L,52038L,52039L,52040L,52041L,52042L,52043L,52044L, +52045L,52046L,52047L,52048L,52049L,52050L,52051L,52052L,52053L,52054L, +52055L,52056L,52057L,52058L,52059L,52060L,52061L,52062L,52063L,52064L, +52065L,52066L,52067L,52068L,52069L,52070L,52071L,52072L,52073L,52074L, +52075L,52076L,52077L,52078L,52079L,52080L,52081L,52082L,52083L,52084L, +52085L,52086L,52087L,52088L,52089L,52090L,52091L,52092L,52093L,52094L, +52095L,52096L,52097L,52098L,52099L,52100L,52101L,52102L,52103L,52104L, +52105L,52106L,52107L,52108L,52109L,52110L,52111L,52112L,52113L,52114L, +52115L,52116L,52117L,52118L,52119L,52120L,52121L,52122L,52123L,52124L, +52125L,52126L,52127L,52128L,52129L,52130L,52131L,52132L,52133L,52134L, +52135L,52136L,52137L,52138L,52139L,52140L,52141L,52142L,52143L,52144L, +52145L,52146L,52147L,52148L,52149L,52150L,52151L,52152L,52153L,52154L, +52155L,52156L,52157L,52158L,52159L,52160L,52161L,52162L,52163L,52164L, +52165L,52166L,52167L,52168L,52169L,52170L,52171L,52172L,52173L,52174L, +52175L,52176L,52177L,52178L,52179L,52180L,52181L,52182L,52183L,52184L, +52185L,52186L,52187L,52188L,52189L,52190L,52191L,52192L,52193L,52194L, +52195L,52196L,52197L,52198L,52199L,52200L,52201L,52202L,52203L,52204L, +52205L,52206L,52207L,52208L,52209L,52210L,52211L,52212L,52213L,52214L, +52215L,52216L,52217L,52218L,52219L,52220L,52221L,52222L,52223L,52224L, +52225L,52226L,52227L,52228L,52229L,52230L,52231L,52232L,52233L,52234L, +52235L,52236L,52237L,52238L,52239L,52240L,52241L,52242L,52243L,52244L, +52245L,52246L,52247L,52248L,52249L,52250L,52251L,52252L,52253L,52254L, +52255L,52256L,52257L,52258L,52259L,52260L,52261L,52262L,52263L,52264L, +52265L,52266L,52267L,52268L,52269L,52270L,52271L,52272L,52273L,52274L, +52275L,52276L,52277L,52278L,52279L,52280L,52281L,52282L,52283L,52284L, +52285L,52286L,52287L,52288L,52289L,52290L,52291L,52292L,52293L,52294L, +52295L,52296L,52297L,52298L,52299L,52300L,52301L,52302L,52303L,52304L, +52305L,52306L,52307L,52308L,52309L,52310L,52311L,52312L,52313L,52314L, +52315L,52316L,52317L,52318L,52319L,52320L,52321L,52322L,52323L,52324L, +52325L,52326L,52327L,52328L,52329L,52330L,52331L,52332L,52333L,52334L, +52335L,52336L,52337L,52338L,52339L,52340L,52341L,52342L,52343L,52344L, +52345L,52346L,52347L,52348L,52349L,52350L,52351L,52352L,52353L,52354L, +52355L,52356L,52357L,52358L,52359L,52360L,52361L,52362L,52363L,52364L, +52365L,52366L,52367L,52368L,52369L,52370L,52371L,52372L,52373L,52374L, +52375L,52376L,52377L,52378L,52379L,52380L,52381L,52382L,52383L,52384L, +52385L,52386L,52387L,52388L,52389L,52390L,52391L,52392L,52393L,52394L, +52395L,52396L,52397L,52398L,52399L,52400L,52401L,52402L,52403L,52404L, +52405L,52406L,52407L,52408L,52409L,52410L,52411L,52412L,52413L,52414L, +52415L,52416L,52417L,52418L,52419L,52420L,52421L,52422L,52423L,52424L, +52425L,52426L,52427L,52428L,52429L,52430L,52431L,52432L,52433L,52434L, +52435L,52436L,52437L,52438L,52439L,52440L,52441L,52442L,52443L,52444L, +52445L,52446L,52447L,52448L,52449L,52450L,52451L,52452L,52453L,52454L, +52455L,52456L,52457L,52458L,52459L,52460L,52461L,52462L,52463L,52464L, +52465L,52466L,52467L,52468L,52469L,52470L,52471L,52472L,52473L,52474L, +52475L,52476L,52477L,52478L,52479L,52480L,52481L,52482L,52483L,52484L, +52485L,52486L,52487L,52488L,52489L,52490L,52491L,52492L,52493L,52494L, +52495L,52496L,52497L,52498L,52499L,52500L,52501L,52502L,52503L,52504L, +52505L,52506L,52507L,52508L,52509L,52510L,52511L,52512L,52513L,52514L, +52515L,52516L,52517L,52518L,52519L,52520L,52521L,52522L,52523L,52524L, +52525L,52526L,52527L,52528L,52529L,52530L,52531L,52532L,52533L,52534L, +52535L,52536L,52537L,52538L,52539L,52540L,52541L,52542L,52543L,52544L, +52545L,52546L,52547L,52548L,52549L,52550L,52551L,52552L,52553L,52554L, +52555L,52556L,52557L,52558L,52559L,52560L,52561L,52562L,52563L,52564L, +52565L,52566L,52567L,52568L,52569L,52570L,52571L,52572L,52573L,52574L, +52575L,52576L,52577L,52578L,52579L,52580L,52581L,52582L,52583L,52584L, +52585L,52586L,52587L,52588L,52589L,52590L,52591L,52592L,52593L,52594L, +52595L,52596L,52597L,52598L,52599L,52600L,52601L,52602L,52603L,52604L, +52605L,52606L,52607L,52608L,52609L,52610L,52611L,52612L,52613L,52614L, +52615L,52616L,52617L,52618L,52619L,52620L,52621L,52622L,52623L,52624L, +52625L,52626L,52627L,52628L,52629L,52630L,52631L,52632L,52633L,52634L, +52635L,52636L,52637L,52638L,52639L,52640L,52641L,52642L,52643L,52644L, +52645L,52646L,52647L,52648L,52649L,52650L,52651L,52652L,52653L,52654L, +52655L,52656L,52657L,52658L,52659L,52660L,52661L,52662L,52663L,52664L, +52665L,52666L,52667L,52668L,52669L,52670L,52671L,52672L,52673L,52674L, +52675L,52676L,52677L,52678L,52679L,52680L,52681L,52682L,52683L,52684L, +52685L,52686L,52687L,52688L,52689L,52690L,52691L,52692L,52693L,52694L, +52695L,52696L,52697L,52698L,52699L,52700L,52701L,52702L,52703L,52704L, +52705L,52706L,52707L,52708L,52709L,52710L,52711L,52712L,52713L,52714L, +52715L,52716L,52717L,52718L,52719L,52720L,52721L,52722L,52723L,52724L, +52725L,52726L,52727L,52728L,52729L,52730L,52731L,52732L,52733L,52734L, +52735L,52736L,52737L,52738L,52739L,52740L,52741L,52742L,52743L,52744L, +52745L,52746L,52747L,52748L,52749L,52750L,52751L,52752L,52753L,52754L, +52755L,52756L,52757L,52758L,52759L,52760L,52761L,52762L,52763L,52764L, +52765L,52766L,52767L,52768L,52769L,52770L,52771L,52772L,52773L,52774L, +52775L,52776L,52777L,52778L,52779L,52780L,52781L,52782L,52783L,52784L, +52785L,52786L,52787L,52788L,52789L,52790L,52791L,52792L,52793L,52794L, +52795L,52796L,52797L,52798L,52799L,52800L,52801L,52802L,52803L,52804L, +52805L,52806L,52807L,52808L,52809L,52810L,52811L,52812L,52813L,52814L, +52815L,52816L,52817L,52818L,52819L,52820L,52821L,52822L,52823L,52824L, +52825L,52826L,52827L,52828L,52829L,52830L,52831L,52832L,52833L,52834L, +52835L,52836L,52837L,52838L,52839L,52840L,52841L,52842L,52843L,52844L, +52845L,52846L,52847L,52848L,52849L,52850L,52851L,52852L,52853L,52854L, +52855L,52856L,52857L,52858L,52859L,52860L,52861L,52862L,52863L,52864L, +52865L,52866L,52867L,52868L,52869L,52870L,52871L,52872L,52873L,52874L, +52875L,52876L,52877L,52878L,52879L,52880L,52881L,52882L,52883L,52884L, +52885L,52886L,52887L,52888L,52889L,52890L,52891L,52892L,52893L,52894L, +52895L,52896L,52897L,52898L,52899L,52900L,52901L,52902L,52903L,52904L, +52905L,52906L,52907L,52908L,52909L,52910L,52911L,52912L,52913L,52914L, +52915L,52916L,52917L,52918L,52919L,52920L,52921L,52922L,52923L,52924L, +52925L,52926L,52927L,52928L,52929L,52930L,52931L,52932L,52933L,52934L, +52935L,52936L,52937L,52938L,52939L,52940L,52941L,52942L,52943L,52944L, +52945L,52946L,52947L,52948L,52949L,52950L,52951L,52952L,52953L,52954L, +52955L,52956L,52957L,52958L,52959L,52960L,52961L,52962L,52963L,52964L, +52965L,52966L,52967L,52968L,52969L,52970L,52971L,52972L,52973L,52974L, +52975L,52976L,52977L,52978L,52979L,52980L,52981L,52982L,52983L,52984L, +52985L,52986L,52987L,52988L,52989L,52990L,52991L,52992L,52993L,52994L, +52995L,52996L,52997L,52998L,52999L,53000L,53001L,53002L,53003L,53004L, +53005L,53006L,53007L,53008L,53009L,53010L,53011L,53012L,53013L,53014L, +53015L,53016L,53017L,53018L,53019L,53020L,53021L,53022L,53023L,53024L, +53025L,53026L,53027L,53028L,53029L,53030L,53031L,53032L,53033L,53034L, +53035L,53036L,53037L,53038L,53039L,53040L,53041L,53042L,53043L,53044L, +53045L,53046L,53047L,53048L,53049L,53050L,53051L,53052L,53053L,53054L, +53055L,53056L,53057L,53058L,53059L,53060L,53061L,53062L,53063L,53064L, +53065L,53066L,53067L,53068L,53069L,53070L,53071L,53072L,53073L,53074L, +53075L,53076L,53077L,53078L,53079L,53080L,53081L,53082L,53083L,53084L, +53085L,53086L,53087L,53088L,53089L,53090L,53091L,53092L,53093L,53094L, +53095L,53096L,53097L,53098L,53099L,53100L,53101L,53102L,53103L,53104L, +53105L,53106L,53107L,53108L,53109L,53110L,53111L,53112L,53113L,53114L, +53115L,53116L,53117L,53118L,53119L,53120L,53121L,53122L,53123L,53124L, +53125L,53126L,53127L,53128L,53129L,53130L,53131L,53132L,53133L,53134L, +53135L,53136L,53137L,53138L,53139L,53140L,53141L,53142L,53143L,53144L, +53145L,53146L,53147L,53148L,53149L,53150L,53151L,53152L,53153L,53154L, +53155L,53156L,53157L,53158L,53159L,53160L,53161L,53162L,53163L,53164L, +53165L,53166L,53167L,53168L,53169L,53170L,53171L,53172L,53173L,53174L, +53175L,53176L,53177L,53178L,53179L,53180L,53181L,53182L,53183L,53184L, +53185L,53186L,53187L,53188L,53189L,53190L,53191L,53192L,53193L,53194L, +53195L,53196L,53197L,53198L,53199L,53200L,53201L,53202L,53203L,53204L, +53205L,53206L,53207L,53208L,53209L,53210L,53211L,53212L,53213L,53214L, +53215L,53216L,53217L,53218L,53219L,53220L,53221L,53222L,53223L,53224L, +53225L,53226L,53227L,53228L,53229L,53230L,53231L,53232L,53233L,53234L, +53235L,53236L,53237L,53238L,53239L,53240L,53241L,53242L,53243L,53244L, +53245L,53246L,53247L,53248L,53249L,53250L,53251L,53252L,53253L,53254L, +53255L,53256L,53257L,53258L,53259L,53260L,53261L,53262L,53263L,53264L, +53265L,53266L,53267L,53268L,53269L,53270L,53271L,53272L,53273L,53274L, +53275L,53276L,53277L,53278L,53279L,53280L,53281L,53282L,53283L,53284L, +53285L,53286L,53287L,53288L,53289L,53290L,53291L,53292L,53293L,53294L, +53295L,53296L,53297L,53298L,53299L,53300L,53301L,53302L,53303L,53304L, +53305L,53306L,53307L,53308L,53309L,53310L,53311L,53312L,53313L,53314L, +53315L,53316L,53317L,53318L,53319L,53320L,53321L,53322L,53323L,53324L, +53325L,53326L,53327L,53328L,53329L,53330L,53331L,53332L,53333L,53334L, +53335L,53336L,53337L,53338L,53339L,53340L,53341L,53342L,53343L,53344L, +53345L,53346L,53347L,53348L,53349L,53350L,53351L,53352L,53353L,53354L, +53355L,53356L,53357L,53358L,53359L,53360L,53361L,53362L,53363L,53364L, +53365L,53366L,53367L,53368L,53369L,53370L,53371L,53372L,53373L,53374L, +53375L,53376L,53377L,53378L,53379L,53380L,53381L,53382L,53383L,53384L, +53385L,53386L,53387L,53388L,53389L,53390L,53391L,53392L,53393L,53394L, +53395L,53396L,53397L,53398L,53399L,53400L,53401L,53402L,53403L,53404L, +53405L,53406L,53407L,53408L,53409L,53410L,53411L,53412L,53413L,53414L, +53415L,53416L,53417L,53418L,53419L,53420L,53421L,53422L,53423L,53424L, +53425L,53426L,53427L,53428L,53429L,53430L,53431L,53432L,53433L,53434L, +53435L,53436L,53437L,53438L,53439L,53440L,53441L,53442L,53443L,53444L, +53445L,53446L,53447L,53448L,53449L,53450L,53451L,53452L,53453L,53454L, +53455L,53456L,53457L,53458L,53459L,53460L,53461L,53462L,53463L,53464L, +53465L,53466L,53467L,53468L,53469L,53470L,53471L,53472L,53473L,53474L, +53475L,53476L,53477L,53478L,53479L,53480L,53481L,53482L,53483L,53484L, +53485L,53486L,53487L,53488L,53489L,53490L,53491L,53492L,53493L,53494L, +53495L,53496L,53497L,53498L,53499L,53500L,53501L,53502L,53503L,53504L, +53505L,53506L,53507L,53508L,53509L,53510L,53511L,53512L,53513L,53514L, +53515L,53516L,53517L,53518L,53519L,53520L,53521L,53522L,53523L,53524L, +53525L,53526L,53527L,53528L,53529L,53530L,53531L,53532L,53533L,53534L, +53535L,53536L,53537L,53538L,53539L,53540L,53541L,53542L,53543L,53544L, +53545L,53546L,53547L,53548L,53549L,53550L,53551L,53552L,53553L,53554L, +53555L,53556L,53557L,53558L,53559L,53560L,53561L,53562L,53563L,53564L, +53565L,53566L,53567L,53568L,53569L,53570L,53571L,53572L,53573L,53574L, +53575L,53576L,53577L,53578L,53579L,53580L,53581L,53582L,53583L,53584L, +53585L,53586L,53587L,53588L,53589L,53590L,53591L,53592L,53593L,53594L, +53595L,53596L,53597L,53598L,53599L,53600L,53601L,53602L,53603L,53604L, +53605L,53606L,53607L,53608L,53609L,53610L,53611L,53612L,53613L,53614L, +53615L,53616L,53617L,53618L,53619L,53620L,53621L,53622L,53623L,53624L, +53625L,53626L,53627L,53628L,53629L,53630L,53631L,53632L,53633L,53634L, +53635L,53636L,53637L,53638L,53639L,53640L,53641L,53642L,53643L,53644L, +53645L,53646L,53647L,53648L,53649L,53650L,53651L,53652L,53653L,53654L, +53655L,53656L,53657L,53658L,53659L,53660L,53661L,53662L,53663L,53664L, +53665L,53666L,53667L,53668L,53669L,53670L,53671L,53672L,53673L,53674L, +53675L,53676L,53677L,53678L,53679L,53680L,53681L,53682L,53683L,53684L, +53685L,53686L,53687L,53688L,53689L,53690L,53691L,53692L,53693L,53694L, +53695L,53696L,53697L,53698L,53699L,53700L,53701L,53702L,53703L,53704L, +53705L,53706L,53707L,53708L,53709L,53710L,53711L,53712L,53713L,53714L, +53715L,53716L,53717L,53718L,53719L,53720L,53721L,53722L,53723L,53724L, +53725L,53726L,53727L,53728L,53729L,53730L,53731L,53732L,53733L,53734L, +53735L,53736L,53737L,53738L,53739L,53740L,53741L,53742L,53743L,53744L, +53745L,53746L,53747L,53748L,53749L,53750L,53751L,53752L,53753L,53754L, +53755L,53756L,53757L,53758L,53759L,53760L,53761L,53762L,53763L,53764L, +53765L,53766L,53767L,53768L,53769L,53770L,53771L,53772L,53773L,53774L, +53775L,53776L,53777L,53778L,53779L,53780L,53781L,53782L,53783L,53784L, +53785L,53786L,53787L,53788L,53789L,53790L,53791L,53792L,53793L,53794L, +53795L,53796L,53797L,53798L,53799L,53800L,53801L,53802L,53803L,53804L, +53805L,53806L,53807L,53808L,53809L,53810L,53811L,53812L,53813L,53814L, +53815L,53816L,53817L,53818L,53819L,53820L,53821L,53822L,53823L,53824L, +53825L,53826L,53827L,53828L,53829L,53830L,53831L,53832L,53833L,53834L, +53835L,53836L,53837L,53838L,53839L,53840L,53841L,53842L,53843L,53844L, +53845L,53846L,53847L,53848L,53849L,53850L,53851L,53852L,53853L,53854L, +53855L,53856L,53857L,53858L,53859L,53860L,53861L,53862L,53863L,53864L, +53865L,53866L,53867L,53868L,53869L,53870L,53871L,53872L,53873L,53874L, +53875L,53876L,53877L,53878L,53879L,53880L,53881L,53882L,53883L,53884L, +53885L,53886L,53887L,53888L,53889L,53890L,53891L,53892L,53893L,53894L, +53895L,53896L,53897L,53898L,53899L,53900L,53901L,53902L,53903L,53904L, +53905L,53906L,53907L,53908L,53909L,53910L,53911L,53912L,53913L,53914L, +53915L,53916L,53917L,53918L,53919L,53920L,53921L,53922L,53923L,53924L, +53925L,53926L,53927L,53928L,53929L,53930L,53931L,53932L,53933L,53934L, +53935L,53936L,53937L,53938L,53939L,53940L,53941L,53942L,53943L,53944L, +53945L,53946L,53947L,53948L,53949L,53950L,53951L,53952L,53953L,53954L, +53955L,53956L,53957L,53958L,53959L,53960L,53961L,53962L,53963L,53964L, +53965L,53966L,53967L,53968L,53969L,53970L,53971L,53972L,53973L,53974L, +53975L,53976L,53977L,53978L,53979L,53980L,53981L,53982L,53983L,53984L, +53985L,53986L,53987L,53988L,53989L,53990L,53991L,53992L,53993L,53994L, +53995L,53996L,53997L,53998L,53999L,54000L,54001L,54002L,54003L,54004L, +54005L,54006L,54007L,54008L,54009L,54010L,54011L,54012L,54013L,54014L, +54015L,54016L,54017L,54018L,54019L,54020L,54021L,54022L,54023L,54024L, +54025L,54026L,54027L,54028L,54029L,54030L,54031L,54032L,54033L,54034L, +54035L,54036L,54037L,54038L,54039L,54040L,54041L,54042L,54043L,54044L, +54045L,54046L,54047L,54048L,54049L,54050L,54051L,54052L,54053L,54054L, +54055L,54056L,54057L,54058L,54059L,54060L,54061L,54062L,54063L,54064L, +54065L,54066L,54067L,54068L,54069L,54070L,54071L,54072L,54073L,54074L, +54075L,54076L,54077L,54078L,54079L,54080L,54081L,54082L,54083L,54084L, +54085L,54086L,54087L,54088L,54089L,54090L,54091L,54092L,54093L,54094L, +54095L,54096L,54097L,54098L,54099L,54100L,54101L,54102L,54103L,54104L, +54105L,54106L,54107L,54108L,54109L,54110L,54111L,54112L,54113L,54114L, +54115L,54116L,54117L,54118L,54119L,54120L,54121L,54122L,54123L,54124L, +54125L,54126L,54127L,54128L,54129L,54130L,54131L,54132L,54133L,54134L, +54135L,54136L,54137L,54138L,54139L,54140L,54141L,54142L,54143L,54144L, +54145L,54146L,54147L,54148L,54149L,54150L,54151L,54152L,54153L,54154L, +54155L,54156L,54157L,54158L,54159L,54160L,54161L,54162L,54163L,54164L, +54165L,54166L,54167L,54168L,54169L,54170L,54171L,54172L,54173L,54174L, +54175L,54176L,54177L,54178L,54179L,54180L,54181L,54182L,54183L,54184L, +54185L,54186L,54187L,54188L,54189L,54190L,54191L,54192L,54193L,54194L, +54195L,54196L,54197L,54198L,54199L,54200L,54201L,54202L,54203L,54204L, +54205L,54206L,54207L,54208L,54209L,54210L,54211L,54212L,54213L,54214L, +54215L,54216L,54217L,54218L,54219L,54220L,54221L,54222L,54223L,54224L, +54225L,54226L,54227L,54228L,54229L,54230L,54231L,54232L,54233L,54234L, +54235L,54236L,54237L,54238L,54239L,54240L,54241L,54242L,54243L,54244L, +54245L,54246L,54247L,54248L,54249L,54250L,54251L,54252L,54253L,54254L, +54255L,54256L,54257L,54258L,54259L,54260L,54261L,54262L,54263L,54264L, +54265L,54266L,54267L,54268L,54269L,54270L,54271L,54272L,54273L,54274L, +54275L,54276L,54277L,54278L,54279L,54280L,54281L,54282L,54283L,54284L, +54285L,54286L,54287L,54288L,54289L,54290L,54291L,54292L,54293L,54294L, +54295L,54296L,54297L,54298L,54299L,54300L,54301L,54302L,54303L,54304L, +54305L,54306L,54307L,54308L,54309L,54310L,54311L,54312L,54313L,54314L, +54315L,54316L,54317L,54318L,54319L,54320L,54321L,54322L,54323L,54324L, +54325L,54326L,54327L,54328L,54329L,54330L,54331L,54332L,54333L,54334L, +54335L,54336L,54337L,54338L,54339L,54340L,54341L,54342L,54343L,54344L, +54345L,54346L,54347L,54348L,54349L,54350L,54351L,54352L,54353L,54354L, +54355L,54356L,54357L,54358L,54359L,54360L,54361L,54362L,54363L,54364L, +54365L,54366L,54367L,54368L,54369L,54370L,54371L,54372L,54373L,54374L, +54375L,54376L,54377L,54378L,54379L,54380L,54381L,54382L,54383L,54384L, +54385L,54386L,54387L,54388L,54389L,54390L,54391L,54392L,54393L,54394L, +54395L,54396L,54397L,54398L,54399L,54400L,54401L,54402L,54403L,54404L, +54405L,54406L,54407L,54408L,54409L,54410L,54411L,54412L,54413L,54414L, +54415L,54416L,54417L,54418L,54419L,54420L,54421L,54422L,54423L,54424L, +54425L,54426L,54427L,54428L,54429L,54430L,54431L,54432L,54433L,54434L, +54435L,54436L,54437L,54438L,54439L,54440L,54441L,54442L,54443L,54444L, +54445L,54446L,54447L,54448L,54449L,54450L,54451L,54452L,54453L,54454L, +54455L,54456L,54457L,54458L,54459L,54460L,54461L,54462L,54463L,54464L, +54465L,54466L,54467L,54468L,54469L,54470L,54471L,54472L,54473L,54474L, +54475L,54476L,54477L,54478L,54479L,54480L,54481L,54482L,54483L,54484L, +54485L,54486L,54487L,54488L,54489L,54490L,54491L,54492L,54493L,54494L, +54495L,54496L,54497L,54498L,54499L,54500L,54501L,54502L,54503L,54504L, +54505L,54506L,54507L,54508L,54509L,54510L,54511L,54512L,54513L,54514L, +54515L,54516L,54517L,54518L,54519L,54520L,54521L,54522L,54523L,54524L, +54525L,54526L,54527L,54528L,54529L,54530L,54531L,54532L,54533L,54534L, +54535L,54536L,54537L,54538L,54539L,54540L,54541L,54542L,54543L,54544L, +54545L,54546L,54547L,54548L,54549L,54550L,54551L,54552L,54553L,54554L, +54555L,54556L,54557L,54558L,54559L,54560L,54561L,54562L,54563L,54564L, +54565L,54566L,54567L,54568L,54569L,54570L,54571L,54572L,54573L,54574L, +54575L,54576L,54577L,54578L,54579L,54580L,54581L,54582L,54583L,54584L, +54585L,54586L,54587L,54588L,54589L,54590L,54591L,54592L,54593L,54594L, +54595L,54596L,54597L,54598L,54599L,54600L,54601L,54602L,54603L,54604L, +54605L,54606L,54607L,54608L,54609L,54610L,54611L,54612L,54613L,54614L, +54615L,54616L,54617L,54618L,54619L,54620L,54621L,54622L,54623L,54624L, +54625L,54626L,54627L,54628L,54629L,54630L,54631L,54632L,54633L,54634L, +54635L,54636L,54637L,54638L,54639L,54640L,54641L,54642L,54643L,54644L, +54645L,54646L,54647L,54648L,54649L,54650L,54651L,54652L,54653L,54654L, +54655L,54656L,54657L,54658L,54659L,54660L,54661L,54662L,54663L,54664L, +54665L,54666L,54667L,54668L,54669L,54670L,54671L,54672L,54673L,54674L, +54675L,54676L,54677L,54678L,54679L,54680L,54681L,54682L,54683L,54684L, +54685L,54686L,54687L,54688L,54689L,54690L,54691L,54692L,54693L,54694L, +54695L,54696L,54697L,54698L,54699L,54700L,54701L,54702L,54703L,54704L, +54705L,54706L,54707L,54708L,54709L,54710L,54711L,54712L,54713L,54714L, +54715L,54716L,54717L,54718L,54719L,54720L,54721L,54722L,54723L,54724L, +54725L,54726L,54727L,54728L,54729L,54730L,54731L,54732L,54733L,54734L, +54735L,54736L,54737L,54738L,54739L,54740L,54741L,54742L,54743L,54744L, +54745L,54746L,54747L,54748L,54749L,54750L,54751L,54752L,54753L,54754L, +54755L,54756L,54757L,54758L,54759L,54760L,54761L,54762L,54763L,54764L, +54765L,54766L,54767L,54768L,54769L,54770L,54771L,54772L,54773L,54774L, +54775L,54776L,54777L,54778L,54779L,54780L,54781L,54782L,54783L,54784L, +54785L,54786L,54787L,54788L,54789L,54790L,54791L,54792L,54793L,54794L, +54795L,54796L,54797L,54798L,54799L,54800L,54801L,54802L,54803L,54804L, +54805L,54806L,54807L,54808L,54809L,54810L,54811L,54812L,54813L,54814L, +54815L,54816L,54817L,54818L,54819L,54820L,54821L,54822L,54823L,54824L, +54825L,54826L,54827L,54828L,54829L,54830L,54831L,54832L,54833L,54834L, +54835L,54836L,54837L,54838L,54839L,54840L,54841L,54842L,54843L,54844L, +54845L,54846L,54847L,54848L,54849L,54850L,54851L,54852L,54853L,54854L, +54855L,54856L,54857L,54858L,54859L,54860L,54861L,54862L,54863L,54864L, +54865L,54866L,54867L,54868L,54869L,54870L,54871L,54872L,54873L,54874L, +54875L,54876L,54877L,54878L,54879L,54880L,54881L,54882L,54883L,54884L, +54885L,54886L,54887L,54888L,54889L,54890L,54891L,54892L,54893L,54894L, +54895L,54896L,54897L,54898L,54899L,54900L,54901L,54902L,54903L,54904L, +54905L,54906L,54907L,54908L,54909L,54910L,54911L,54912L,54913L,54914L, +54915L,54916L,54917L,54918L,54919L,54920L,54921L,54922L,54923L,54924L, +54925L,54926L,54927L,54928L,54929L,54930L,54931L,54932L,54933L,54934L, +54935L,54936L,54937L,54938L,54939L,54940L,54941L,54942L,54943L,54944L, +54945L,54946L,54947L,54948L,54949L,54950L,54951L,54952L,54953L,54954L, +54955L,54956L,54957L,54958L,54959L,54960L,54961L,54962L,54963L,54964L, +54965L,54966L,54967L,54968L,54969L,54970L,54971L,54972L,54973L,54974L, +54975L,54976L,54977L,54978L,54979L,54980L,54981L,54982L,54983L,54984L, +54985L,54986L,54987L,54988L,54989L,54990L,54991L,54992L,54993L,54994L, +54995L,54996L,54997L,54998L,54999L,55000L,55001L,55002L,55003L,55004L, +55005L,55006L,55007L,55008L,55009L,55010L,55011L,55012L,55013L,55014L, +55015L,55016L,55017L,55018L,55019L,55020L,55021L,55022L,55023L,55024L, +55025L,55026L,55027L,55028L,55029L,55030L,55031L,55032L,55033L,55034L, +55035L,55036L,55037L,55038L,55039L,55040L,55041L,55042L,55043L,55044L, +55045L,55046L,55047L,55048L,55049L,55050L,55051L,55052L,55053L,55054L, +55055L,55056L,55057L,55058L,55059L,55060L,55061L,55062L,55063L,55064L, +55065L,55066L,55067L,55068L,55069L,55070L,55071L,55072L,55073L,55074L, +55075L,55076L,55077L,55078L,55079L,55080L,55081L,55082L,55083L,55084L, +55085L,55086L,55087L,55088L,55089L,55090L,55091L,55092L,55093L,55094L, +55095L,55096L,55097L,55098L,55099L,55100L,55101L,55102L,55103L,55104L, +55105L,55106L,55107L,55108L,55109L,55110L,55111L,55112L,55113L,55114L, +55115L,55116L,55117L,55118L,55119L,55120L,55121L,55122L,55123L,55124L, +55125L,55126L,55127L,55128L,55129L,55130L,55131L,55132L,55133L,55134L, +55135L,55136L,55137L,55138L,55139L,55140L,55141L,55142L,55143L,55144L, +55145L,55146L,55147L,55148L,55149L,55150L,55151L,55152L,55153L,55154L, +55155L,55156L,55157L,55158L,55159L,55160L,55161L,55162L,55163L,55164L, +55165L,55166L,55167L,55168L,55169L,55170L,55171L,55172L,55173L,55174L, +55175L,55176L,55177L,55178L,55179L,55180L,55181L,55182L,55183L,55184L, +55185L,55186L,55187L,55188L,55189L,55190L,55191L,55192L,55193L,55194L, +55195L,55196L,55197L,55198L,55199L,55200L,55201L,55202L,55203L,55204L, +55205L,55206L,55207L,55208L,55209L,55210L,55211L,55212L,55213L,55214L, +55215L,55216L,55217L,55218L,55219L,55220L,55221L,55222L,55223L,55224L, +55225L,55226L,55227L,55228L,55229L,55230L,55231L,55232L,55233L,55234L, +55235L,55236L,55237L,55238L,55239L,55240L,55241L,55242L,55243L,55244L, +55245L,55246L,55247L,55248L,55249L,55250L,55251L,55252L,55253L,55254L, +55255L,55256L,55257L,55258L,55259L,55260L,55261L,55262L,55263L,55264L, +55265L,55266L,55267L,55268L,55269L,55270L,55271L,55272L,55273L,55274L, +55275L,55276L,55277L,55278L,55279L,55280L,55281L,55282L,55283L,55284L, +55285L,55286L,55287L,55288L,55289L,55290L,55291L,55292L,55293L,55294L, +55295L,55296L,55297L,55298L,55299L,55300L,55301L,55302L,55303L,55304L, +55305L,55306L,55307L,55308L,55309L,55310L,55311L,55312L,55313L,55314L, +55315L,55316L,55317L,55318L,55319L,55320L,55321L,55322L,55323L,55324L, +55325L,55326L,55327L,55328L,55329L,55330L,55331L,55332L,55333L,55334L, +55335L,55336L,55337L,55338L,55339L,55340L,55341L,55342L,55343L,55344L, +55345L,55346L,55347L,55348L,55349L,55350L,55351L,55352L,55353L,55354L, +55355L,55356L,55357L,55358L,55359L,55360L,55361L,55362L,55363L,55364L, +55365L,55366L,55367L,55368L,55369L,55370L,55371L,55372L,55373L,55374L, +55375L,55376L,55377L,55378L,55379L,55380L,55381L,55382L,55383L,55384L, +55385L,55386L,55387L,55388L,55389L,55390L,55391L,55392L,55393L,55394L, +55395L,55396L,55397L,55398L,55399L,55400L,55401L,55402L,55403L,55404L, +55405L,55406L,55407L,55408L,55409L,55410L,55411L,55412L,55413L,55414L, +55415L,55416L,55417L,55418L,55419L,55420L,55421L,55422L,55423L,55424L, +55425L,55426L,55427L,55428L,55429L,55430L,55431L,55432L,55433L,55434L, +55435L,55436L,55437L,55438L,55439L,55440L,55441L,55442L,55443L,55444L, +55445L,55446L,55447L,55448L,55449L,55450L,55451L,55452L,55453L,55454L, +55455L,55456L,55457L,55458L,55459L,55460L,55461L,55462L,55463L,55464L, +55465L,55466L,55467L,55468L,55469L,55470L,55471L,55472L,55473L,55474L, +55475L,55476L,55477L,55478L,55479L,55480L,55481L,55482L,55483L,55484L, +55485L,55486L,55487L,55488L,55489L,55490L,55491L,55492L,55493L,55494L, +55495L,55496L,55497L,55498L,55499L,55500L,55501L,55502L,55503L,55504L, +55505L,55506L,55507L,55508L,55509L,55510L,55511L,55512L,55513L,55514L, +55515L,55516L,55517L,55518L,55519L,55520L,55521L,55522L,55523L,55524L, +55525L,55526L,55527L,55528L,55529L,55530L,55531L,55532L,55533L,55534L, +55535L,55536L,55537L,55538L,55539L,55540L,55541L,55542L,55543L,55544L, +55545L,55546L,55547L,55548L,55549L,55550L,55551L,55552L,55553L,55554L, +55555L,55556L,55557L,55558L,55559L,55560L,55561L,55562L,55563L,55564L, +55565L,55566L,55567L,55568L,55569L,55570L,55571L,55572L,55573L,55574L, +55575L,55576L,55577L,55578L,55579L,55580L,55581L,55582L,55583L,55584L, +55585L,55586L,55587L,55588L,55589L,55590L,55591L,55592L,55593L,55594L, +55595L,55596L,55597L,55598L,55599L,55600L,55601L,55602L,55603L,55604L, +55605L,55606L,55607L,55608L,55609L,55610L,55611L,55612L,55613L,55614L, +55615L,55616L,55617L,55618L,55619L,55620L,55621L,55622L,55623L,55624L, +55625L,55626L,55627L,55628L,55629L,55630L,55631L,55632L,55633L,55634L, +55635L,55636L,55637L,55638L,55639L,55640L,55641L,55642L,55643L,55644L, +55645L,55646L,55647L,55648L,55649L,55650L,55651L,55652L,55653L,55654L, +55655L,55656L,55657L,55658L,55659L,55660L,55661L,55662L,55663L,55664L, +55665L,55666L,55667L,55668L,55669L,55670L,55671L,55672L,55673L,55674L, +55675L,55676L,55677L,55678L,55679L,55680L,55681L,55682L,55683L,55684L, +55685L,55686L,55687L,55688L,55689L,55690L,55691L,55692L,55693L,55694L, +55695L,55696L,55697L,55698L,55699L,55700L,55701L,55702L,55703L,55704L, +55705L,55706L,55707L,55708L,55709L,55710L,55711L,55712L,55713L,55714L, +55715L,55716L,55717L,55718L,55719L,55720L,55721L,55722L,55723L,55724L, +55725L,55726L,55727L,55728L,55729L,55730L,55731L,55732L,55733L,55734L, +55735L,55736L,55737L,55738L,55739L,55740L,55741L,55742L,55743L,55744L, +55745L,55746L,55747L,55748L,55749L,55750L,55751L,55752L,55753L,55754L, +55755L,55756L,55757L,55758L,55759L,55760L,55761L,55762L,55763L,55764L, +55765L,55766L,55767L,55768L,55769L,55770L,55771L,55772L,55773L,55774L, +55775L,55776L,55777L,55778L,55779L,55780L,55781L,55782L,55783L,55784L, +55785L,55786L,55787L,55788L,55789L,55790L,55791L,55792L,55793L,55794L, +55795L,55796L,55797L,55798L,55799L,55800L,55801L,55802L,55803L,55804L, +55805L,55806L,55807L,55808L,55809L,55810L,55811L,55812L,55813L,55814L, +55815L,55816L,55817L,55818L,55819L,55820L,55821L,55822L,55823L,55824L, +55825L,55826L,55827L,55828L,55829L,55830L,55831L,55832L,55833L,55834L, +55835L,55836L,55837L,55838L,55839L,55840L,55841L,55842L,55843L,55844L, +55845L,55846L,55847L,55848L,55849L,55850L,55851L,55852L,55853L,55854L, +55855L,55856L,55857L,55858L,55859L,55860L,55861L,55862L,55863L,55864L, +55865L,55866L,55867L,55868L,55869L,55870L,55871L,55872L,55873L,55874L, +55875L,55876L,55877L,55878L,55879L,55880L,55881L,55882L,55883L,55884L, +55885L,55886L,55887L,55888L,55889L,55890L,55891L,55892L,55893L,55894L, +55895L,55896L,55897L,55898L,55899L,55900L,55901L,55902L,55903L,55904L, +55905L,55906L,55907L,55908L,55909L,55910L,55911L,55912L,55913L,55914L, +55915L,55916L,55917L,55918L,55919L,55920L,55921L,55922L,55923L,55924L, +55925L,55926L,55927L,55928L,55929L,55930L,55931L,55932L,55933L,55934L, +55935L,55936L,55937L,55938L,55939L,55940L,55941L,55942L,55943L,55944L, +55945L,55946L,55947L,55948L,55949L,55950L,55951L,55952L,55953L,55954L, +55955L,55956L,55957L,55958L,55959L,55960L,55961L,55962L,55963L,55964L, +55965L,55966L,55967L,55968L,55969L,55970L,55971L,55972L,55973L,55974L, +55975L,55976L,55977L,55978L,55979L,55980L,55981L,55982L,55983L,55984L, +55985L,55986L,55987L,55988L,55989L,55990L,55991L,55992L,55993L,55994L, +55995L,55996L,55997L,55998L,55999L,56000L,56001L,56002L,56003L,56004L, +56005L,56006L,56007L,56008L,56009L,56010L,56011L,56012L,56013L,56014L, +56015L,56016L,56017L,56018L,56019L,56020L,56021L,56022L,56023L,56024L, +56025L,56026L,56027L,56028L,56029L,56030L,56031L,56032L,56033L,56034L, +56035L,56036L,56037L,56038L,56039L,56040L,56041L,56042L,56043L,56044L, +56045L,56046L,56047L,56048L,56049L,56050L,56051L,56052L,56053L,56054L, +56055L,56056L,56057L,56058L,56059L,56060L,56061L,56062L,56063L,56064L, +56065L,56066L,56067L,56068L,56069L,56070L,56071L,56072L,56073L,56074L, +56075L,56076L,56077L,56078L,56079L,56080L,56081L,56082L,56083L,56084L, +56085L,56086L,56087L,56088L,56089L,56090L,56091L,56092L,56093L,56094L, +56095L,56096L,56097L,56098L,56099L,56100L,56101L,56102L,56103L,56104L, +56105L,56106L,56107L,56108L,56109L,56110L,56111L,56112L,56113L,56114L, +56115L,56116L,56117L,56118L,56119L,56120L,56121L,56122L,56123L,56124L, +56125L,56126L,56127L,56128L,56129L,56130L,56131L,56132L,56133L,56134L, +56135L,56136L,56137L,56138L,56139L,56140L,56141L,56142L,56143L,56144L, +56145L,56146L,56147L,56148L,56149L,56150L,56151L,56152L,56153L,56154L, +56155L,56156L,56157L,56158L,56159L,56160L,56161L,56162L,56163L,56164L, +56165L,56166L,56167L,56168L,56169L,56170L,56171L,56172L,56173L,56174L, +56175L,56176L,56177L,56178L,56179L,56180L,56181L,56182L,56183L,56184L, +56185L,56186L,56187L,56188L,56189L,56190L,56191L,56192L,56193L,56194L, +56195L,56196L,56197L,56198L,56199L,56200L,56201L,56202L,56203L,56204L, +56205L,56206L,56207L,56208L,56209L,56210L,56211L,56212L,56213L,56214L, +56215L,56216L,56217L,56218L,56219L,56220L,56221L,56222L,56223L,56224L, +56225L,56226L,56227L,56228L,56229L,56230L,56231L,56232L,56233L,56234L, +56235L,56236L,56237L,56238L,56239L,56240L,56241L,56242L,56243L,56244L, +56245L,56246L,56247L,56248L,56249L,56250L,56251L,56252L,56253L,56254L, +56255L,56256L,56257L,56258L,56259L,56260L,56261L,56262L,56263L,56264L, +56265L,56266L,56267L,56268L,56269L,56270L,56271L,56272L,56273L,56274L, +56275L,56276L,56277L,56278L,56279L,56280L,56281L,56282L,56283L,56284L, +56285L,56286L,56287L,56288L,56289L,56290L,56291L,56292L,56293L,56294L, +56295L,56296L,56297L,56298L,56299L,56300L,56301L,56302L,56303L,56304L, +56305L,56306L,56307L,56308L,56309L,56310L,56311L,56312L,56313L,56314L, +56315L,56316L,56317L,56318L,56319L,56320L,56321L,56322L,56323L,56324L, +56325L,56326L,56327L,56328L,56329L,56330L,56331L,56332L,56333L,56334L, +56335L,56336L,56337L,56338L,56339L,56340L,56341L,56342L,56343L,56344L, +56345L,56346L,56347L,56348L,56349L,56350L,56351L,56352L,56353L,56354L, +56355L,56356L,56357L,56358L,56359L,56360L,56361L,56362L,56363L,56364L, +56365L,56366L,56367L,56368L,56369L,56370L,56371L,56372L,56373L,56374L, +56375L,56376L,56377L,56378L,56379L,56380L,56381L,56382L,56383L,56384L, +56385L,56386L,56387L,56388L,56389L,56390L,56391L,56392L,56393L,56394L, +56395L,56396L,56397L,56398L,56399L,56400L,56401L,56402L,56403L,56404L, +56405L,56406L,56407L,56408L,56409L,56410L,56411L,56412L,56413L,56414L, +56415L,56416L,56417L,56418L,56419L,56420L,56421L,56422L,56423L,56424L, +56425L,56426L,56427L,56428L,56429L,56430L,56431L,56432L,56433L,56434L, +56435L,56436L,56437L,56438L,56439L,56440L,56441L,56442L,56443L,56444L, +56445L,56446L,56447L,56448L,56449L,56450L,56451L,56452L,56453L,56454L, +56455L,56456L,56457L,56458L,56459L,56460L,56461L,56462L,56463L,56464L, +56465L,56466L,56467L,56468L,56469L,56470L,56471L,56472L,56473L,56474L, +56475L,56476L,56477L,56478L,56479L,56480L,56481L,56482L,56483L,56484L, +56485L,56486L,56487L,56488L,56489L,56490L,56491L,56492L,56493L,56494L, +56495L,56496L,56497L,56498L,56499L,56500L,56501L,56502L,56503L,56504L, +56505L,56506L,56507L,56508L,56509L,56510L,56511L,56512L,56513L,56514L, +56515L,56516L,56517L,56518L,56519L,56520L,56521L,56522L,56523L,56524L, +56525L,56526L,56527L,56528L,56529L,56530L,56531L,56532L,56533L,56534L, +56535L,56536L,56537L,56538L,56539L,56540L,56541L,56542L,56543L,56544L, +56545L,56546L,56547L,56548L,56549L,56550L,56551L,56552L,56553L,56554L, +56555L,56556L,56557L,56558L,56559L,56560L,56561L,56562L,56563L,56564L, +56565L,56566L,56567L,56568L,56569L,56570L,56571L,56572L,56573L,56574L, +56575L,56576L,56577L,56578L,56579L,56580L,56581L,56582L,56583L,56584L, +56585L,56586L,56587L,56588L,56589L,56590L,56591L,56592L,56593L,56594L, +56595L,56596L,56597L,56598L,56599L,56600L,56601L,56602L,56603L,56604L, +56605L,56606L,56607L,56608L,56609L,56610L,56611L,56612L,56613L,56614L, +56615L,56616L,56617L,56618L,56619L,56620L,56621L,56622L,56623L,56624L, +56625L,56626L,56627L,56628L,56629L,56630L,56631L,56632L,56633L,56634L, +56635L,56636L,56637L,56638L,56639L,56640L,56641L,56642L,56643L,56644L, +56645L,56646L,56647L,56648L,56649L,56650L,56651L,56652L,56653L,56654L, +56655L,56656L,56657L,56658L,56659L,56660L,56661L,56662L,56663L,56664L, +56665L,56666L,56667L,56668L,56669L,56670L,56671L,56672L,56673L,56674L, +56675L,56676L,56677L,56678L,56679L,56680L,56681L,56682L,56683L,56684L, +56685L,56686L,56687L,56688L,56689L,56690L,56691L,56692L,56693L,56694L, +56695L,56696L,56697L,56698L,56699L,56700L,56701L,56702L,56703L,56704L, +56705L,56706L,56707L,56708L,56709L,56710L,56711L,56712L,56713L,56714L, +56715L,56716L,56717L,56718L,56719L,56720L,56721L,56722L,56723L,56724L, +56725L,56726L,56727L,56728L,56729L,56730L,56731L,56732L,56733L,56734L, +56735L,56736L,56737L,56738L,56739L,56740L,56741L,56742L,56743L,56744L, +56745L,56746L,56747L,56748L,56749L,56750L,56751L,56752L,56753L,56754L, +56755L,56756L,56757L,56758L,56759L,56760L,56761L,56762L,56763L,56764L, +56765L,56766L,56767L,56768L,56769L,56770L,56771L,56772L,56773L,56774L, +56775L,56776L,56777L,56778L,56779L,56780L,56781L,56782L,56783L,56784L, +56785L,56786L,56787L,56788L,56789L,56790L,56791L,56792L,56793L,56794L, +56795L,56796L,56797L,56798L,56799L,56800L,56801L,56802L,56803L,56804L, +56805L,56806L,56807L,56808L,56809L,56810L,56811L,56812L,56813L,56814L, +56815L,56816L,56817L,56818L,56819L,56820L,56821L,56822L,56823L,56824L, +56825L,56826L,56827L,56828L,56829L,56830L,56831L,56832L,56833L,56834L, +56835L,56836L,56837L,56838L,56839L,56840L,56841L,56842L,56843L,56844L, +56845L,56846L,56847L,56848L,56849L,56850L,56851L,56852L,56853L,56854L, +56855L,56856L,56857L,56858L,56859L,56860L,56861L,56862L,56863L,56864L, +56865L,56866L,56867L,56868L,56869L,56870L,56871L,56872L,56873L,56874L, +56875L,56876L,56877L,56878L,56879L,56880L,56881L,56882L,56883L,56884L, +56885L,56886L,56887L,56888L,56889L,56890L,56891L,56892L,56893L,56894L, +56895L,56896L,56897L,56898L,56899L,56900L,56901L,56902L,56903L,56904L, +56905L,56906L,56907L,56908L,56909L,56910L,56911L,56912L,56913L,56914L, +56915L,56916L,56917L,56918L,56919L,56920L,56921L,56922L,56923L,56924L, +56925L,56926L,56927L,56928L,56929L,56930L,56931L,56932L,56933L,56934L, +56935L,56936L,56937L,56938L,56939L,56940L,56941L,56942L,56943L,56944L, +56945L,56946L,56947L,56948L,56949L,56950L,56951L,56952L,56953L,56954L, +56955L,56956L,56957L,56958L,56959L,56960L,56961L,56962L,56963L,56964L, +56965L,56966L,56967L,56968L,56969L,56970L,56971L,56972L,56973L,56974L, +56975L,56976L,56977L,56978L,56979L,56980L,56981L,56982L,56983L,56984L, +56985L,56986L,56987L,56988L,56989L,56990L,56991L,56992L,56993L,56994L, +56995L,56996L,56997L,56998L,56999L,57000L,57001L,57002L,57003L,57004L, +57005L,57006L,57007L,57008L,57009L,57010L,57011L,57012L,57013L,57014L, +57015L,57016L,57017L,57018L,57019L,57020L,57021L,57022L,57023L,57024L, +57025L,57026L,57027L,57028L,57029L,57030L,57031L,57032L,57033L,57034L, +57035L,57036L,57037L,57038L,57039L,57040L,57041L,57042L,57043L,57044L, +57045L,57046L,57047L,57048L,57049L,57050L,57051L,57052L,57053L,57054L, +57055L,57056L,57057L,57058L,57059L,57060L,57061L,57062L,57063L,57064L, +57065L,57066L,57067L,57068L,57069L,57070L,57071L,57072L,57073L,57074L, +57075L,57076L,57077L,57078L,57079L,57080L,57081L,57082L,57083L,57084L, +57085L,57086L,57087L,57088L,57089L,57090L,57091L,57092L,57093L,57094L, +57095L,57096L,57097L,57098L,57099L,57100L,57101L,57102L,57103L,57104L, +57105L,57106L,57107L,57108L,57109L,57110L,57111L,57112L,57113L,57114L, +57115L,57116L,57117L,57118L,57119L,57120L,57121L,57122L,57123L,57124L, +57125L,57126L,57127L,57128L,57129L,57130L,57131L,57132L,57133L,57134L, +57135L,57136L,57137L,57138L,57139L,57140L,57141L,57142L,57143L,57144L, +57145L,57146L,57147L,57148L,57149L,57150L,57151L,57152L,57153L,57154L, +57155L,57156L,57157L,57158L,57159L,57160L,57161L,57162L,57163L,57164L, +57165L,57166L,57167L,57168L,57169L,57170L,57171L,57172L,57173L,57174L, +57175L,57176L,57177L,57178L,57179L,57180L,57181L,57182L,57183L,57184L, +57185L,57186L,57187L,57188L,57189L,57190L,57191L,57192L,57193L,57194L, +57195L,57196L,57197L,57198L,57199L,57200L,57201L,57202L,57203L,57204L, +57205L,57206L,57207L,57208L,57209L,57210L,57211L,57212L,57213L,57214L, +57215L,57216L,57217L,57218L,57219L,57220L,57221L,57222L,57223L,57224L, +57225L,57226L,57227L,57228L,57229L,57230L,57231L,57232L,57233L,57234L, +57235L,57236L,57237L,57238L,57239L,57240L,57241L,57242L,57243L,57244L, +57245L,57246L,57247L,57248L,57249L,57250L,57251L,57252L,57253L,57254L, +57255L,57256L,57257L,57258L,57259L,57260L,57261L,57262L,57263L,57264L, +57265L,57266L,57267L,57268L,57269L,57270L,57271L,57272L,57273L,57274L, +57275L,57276L,57277L,57278L,57279L,57280L,57281L,57282L,57283L,57284L, +57285L,57286L,57287L,57288L,57289L,57290L,57291L,57292L,57293L,57294L, +57295L,57296L,57297L,57298L,57299L,57300L,57301L,57302L,57303L,57304L, +57305L,57306L,57307L,57308L,57309L,57310L,57311L,57312L,57313L,57314L, +57315L,57316L,57317L,57318L,57319L,57320L,57321L,57322L,57323L,57324L, +57325L,57326L,57327L,57328L,57329L,57330L,57331L,57332L,57333L,57334L, +57335L,57336L,57337L,57338L,57339L,57340L,57341L,57342L,57343L,57344L, +57345L,57346L,57347L,57348L,57349L,57350L,57351L,57352L,57353L,57354L, +57355L,57356L,57357L,57358L,57359L,57360L,57361L,57362L,57363L,57364L, +57365L,57366L,57367L,57368L,57369L,57370L,57371L,57372L,57373L,57374L, +57375L,57376L,57377L,57378L,57379L,57380L,57381L,57382L,57383L,57384L, +57385L,57386L,57387L,57388L,57389L,57390L,57391L,57392L,57393L,57394L, +57395L,57396L,57397L,57398L,57399L,57400L,57401L,57402L,57403L,57404L, +57405L,57406L,57407L,57408L,57409L,57410L,57411L,57412L,57413L,57414L, +57415L,57416L,57417L,57418L,57419L,57420L,57421L,57422L,57423L,57424L, +57425L,57426L,57427L,57428L,57429L,57430L,57431L,57432L,57433L,57434L, +57435L,57436L,57437L,57438L,57439L,57440L,57441L,57442L,57443L,57444L, +57445L,57446L,57447L,57448L,57449L,57450L,57451L,57452L,57453L,57454L, +57455L,57456L,57457L,57458L,57459L,57460L,57461L,57462L,57463L,57464L, +57465L,57466L,57467L,57468L,57469L,57470L,57471L,57472L,57473L,57474L, +57475L,57476L,57477L,57478L,57479L,57480L,57481L,57482L,57483L,57484L, +57485L,57486L,57487L,57488L,57489L,57490L,57491L,57492L,57493L,57494L, +57495L,57496L,57497L,57498L,57499L,57500L,57501L,57502L,57503L,57504L, +57505L,57506L,57507L,57508L,57509L,57510L,57511L,57512L,57513L,57514L, +57515L,57516L,57517L,57518L,57519L,57520L,57521L,57522L,57523L,57524L, +57525L,57526L,57527L,57528L,57529L,57530L,57531L,57532L,57533L,57534L, +57535L,57536L,57537L,57538L,57539L,57540L,57541L,57542L,57543L,57544L, +57545L,57546L,57547L,57548L,57549L,57550L,57551L,57552L,57553L,57554L, +57555L,57556L,57557L,57558L,57559L,57560L,57561L,57562L,57563L,57564L, +57565L,57566L,57567L,57568L,57569L,57570L,57571L,57572L,57573L,57574L, +57575L,57576L,57577L,57578L,57579L,57580L,57581L,57582L,57583L,57584L, +57585L,57586L,57587L,57588L,57589L,57590L,57591L,57592L,57593L,57594L, +57595L,57596L,57597L,57598L,57599L,57600L,57601L,57602L,57603L,57604L, +57605L,57606L,57607L,57608L,57609L,57610L,57611L,57612L,57613L,57614L, +57615L,57616L,57617L,57618L,57619L,57620L,57621L,57622L,57623L,57624L, +57625L,57626L,57627L,57628L,57629L,57630L,57631L,57632L,57633L,57634L, +57635L,57636L,57637L,57638L,57639L,57640L,57641L,57642L,57643L,57644L, +57645L,57646L,57647L,57648L,57649L,57650L,57651L,57652L,57653L,57654L, +57655L,57656L,57657L,57658L,57659L,57660L,57661L,57662L,57663L,57664L, +57665L,57666L,57667L,57668L,57669L,57670L,57671L,57672L,57673L,57674L, +57675L,57676L,57677L,57678L,57679L,57680L,57681L,57682L,57683L,57684L, +57685L,57686L,57687L,57688L,57689L,57690L,57691L,57692L,57693L,57694L, +57695L,57696L,57697L,57698L,57699L,57700L,57701L,57702L,57703L,57704L, +57705L,57706L,57707L,57708L,57709L,57710L,57711L,57712L,57713L,57714L, +57715L,57716L,57717L,57718L,57719L,57720L,57721L,57722L,57723L,57724L, +57725L,57726L,57727L,57728L,57729L,57730L,57731L,57732L,57733L,57734L, +57735L,57736L,57737L,57738L,57739L,57740L,57741L,57742L,57743L,57744L, +57745L,57746L,57747L,57748L,57749L,57750L,57751L,57752L,57753L,57754L, +57755L,57756L,57757L,57758L,57759L,57760L,57761L,57762L,57763L,57764L, +57765L,57766L,57767L,57768L,57769L,57770L,57771L,57772L,57773L,57774L, +57775L,57776L,57777L,57778L,57779L,57780L,57781L,57782L,57783L,57784L, +57785L,57786L,57787L,57788L,57789L,57790L,57791L,57792L,57793L,57794L, +57795L,57796L,57797L,57798L,57799L,57800L,57801L,57802L,57803L,57804L, +57805L,57806L,57807L,57808L,57809L,57810L,57811L,57812L,57813L,57814L, +57815L,57816L,57817L,57818L,57819L,57820L,57821L,57822L,57823L,57824L, +57825L,57826L,57827L,57828L,57829L,57830L,57831L,57832L,57833L,57834L, +57835L,57836L,57837L,57838L,57839L,57840L,57841L,57842L,57843L,57844L, +57845L,57846L,57847L,57848L,57849L,57850L,57851L,57852L,57853L,57854L, +57855L,57856L,57857L,57858L,57859L,57860L,57861L,57862L,57863L,57864L, +57865L,57866L,57867L,57868L,57869L,57870L,57871L,57872L,57873L,57874L, +57875L,57876L,57877L,57878L,57879L,57880L,57881L,57882L,57883L,57884L, +57885L,57886L,57887L,57888L,57889L,57890L,57891L,57892L,57893L,57894L, +57895L,57896L,57897L,57898L,57899L,57900L,57901L,57902L,57903L,57904L, +57905L,57906L,57907L,57908L,57909L,57910L,57911L,57912L,57913L,57914L, +57915L,57916L,57917L,57918L,57919L,57920L,57921L,57922L,57923L,57924L, +57925L,57926L,57927L,57928L,57929L,57930L,57931L,57932L,57933L,57934L, +57935L,57936L,57937L,57938L,57939L,57940L,57941L,57942L,57943L,57944L, +57945L,57946L,57947L,57948L,57949L,57950L,57951L,57952L,57953L,57954L, +57955L,57956L,57957L,57958L,57959L,57960L,57961L,57962L,57963L,57964L, +57965L,57966L,57967L,57968L,57969L,57970L,57971L,57972L,57973L,57974L, +57975L,57976L,57977L,57978L,57979L,57980L,57981L,57982L,57983L,57984L, +57985L,57986L,57987L,57988L,57989L,57990L,57991L,57992L,57993L,57994L, +57995L,57996L,57997L,57998L,57999L,58000L,58001L,58002L,58003L,58004L, +58005L,58006L,58007L,58008L,58009L,58010L,58011L,58012L,58013L,58014L, +58015L,58016L,58017L,58018L,58019L,58020L,58021L,58022L,58023L,58024L, +58025L,58026L,58027L,58028L,58029L,58030L,58031L,58032L,58033L,58034L, +58035L,58036L,58037L,58038L,58039L,58040L,58041L,58042L,58043L,58044L, +58045L,58046L,58047L,58048L,58049L,58050L,58051L,58052L,58053L,58054L, +58055L,58056L,58057L,58058L,58059L,58060L,58061L,58062L,58063L,58064L, +58065L,58066L,58067L,58068L,58069L,58070L,58071L,58072L,58073L,58074L, +58075L,58076L,58077L,58078L,58079L,58080L,58081L,58082L,58083L,58084L, +58085L,58086L,58087L,58088L,58089L,58090L,58091L,58092L,58093L,58094L, +58095L,58096L,58097L,58098L,58099L,58100L,58101L,58102L,58103L,58104L, +58105L,58106L,58107L,58108L,58109L,58110L,58111L,58112L,58113L,58114L, +58115L,58116L,58117L,58118L,58119L,58120L,58121L,58122L,58123L,58124L, +58125L,58126L,58127L,58128L,58129L,58130L,58131L,58132L,58133L,58134L, +58135L,58136L,58137L,58138L,58139L,58140L,58141L,58142L,58143L,58144L, +58145L,58146L,58147L,58148L,58149L,58150L,58151L,58152L,58153L,58154L, +58155L,58156L,58157L,58158L,58159L,58160L,58161L,58162L,58163L,58164L, +58165L,58166L,58167L,58168L,58169L,58170L,58171L,58172L,58173L,58174L, +58175L,58176L,58177L,58178L,58179L,58180L,58181L,58182L,58183L,58184L, +58185L,58186L,58187L,58188L,58189L,58190L,58191L,58192L,58193L,58194L, +58195L,58196L,58197L,58198L,58199L,58200L,58201L,58202L,58203L,58204L, +58205L,58206L,58207L,58208L,58209L,58210L,58211L,58212L,58213L,58214L, +58215L,58216L,58217L,58218L,58219L,58220L,58221L,58222L,58223L,58224L, +58225L,58226L,58227L,58228L,58229L,58230L,58231L,58232L,58233L,58234L, +58235L,58236L,58237L,58238L,58239L,58240L,58241L,58242L,58243L,58244L, +58245L,58246L,58247L,58248L,58249L,58250L,58251L,58252L,58253L,58254L, +58255L,58256L,58257L,58258L,58259L,58260L,58261L,58262L,58263L,58264L, +58265L,58266L,58267L,58268L,58269L,58270L,58271L,58272L,58273L,58274L, +58275L,58276L,58277L,58278L,58279L,58280L,58281L,58282L,58283L,58284L, +58285L,58286L,58287L,58288L,58289L,58290L,58291L,58292L,58293L,58294L, +58295L,58296L,58297L,58298L,58299L,58300L,58301L,58302L,58303L,58304L, +58305L,58306L,58307L,58308L,58309L,58310L,58311L,58312L,58313L,58314L, +58315L,58316L,58317L,58318L,58319L,58320L,58321L,58322L,58323L,58324L, +58325L,58326L,58327L,58328L,58329L,58330L,58331L,58332L,58333L,58334L, +58335L,58336L,58337L,58338L,58339L,58340L,58341L,58342L,58343L,58344L, +58345L,58346L,58347L,58348L,58349L,58350L,58351L,58352L,58353L,58354L, +58355L,58356L,58357L,58358L,58359L,58360L,58361L,58362L,58363L,58364L, +58365L,58366L,58367L,58368L,58369L,58370L,58371L,58372L,58373L,58374L, +58375L,58376L,58377L,58378L,58379L,58380L,58381L,58382L,58383L,58384L, +58385L,58386L,58387L,58388L,58389L,58390L,58391L,58392L,58393L,58394L, +58395L,58396L,58397L,58398L,58399L,58400L,58401L,58402L,58403L,58404L, +58405L,58406L,58407L,58408L,58409L,58410L,58411L,58412L,58413L,58414L, +58415L,58416L,58417L,58418L,58419L,58420L,58421L,58422L,58423L,58424L, +58425L,58426L,58427L,58428L,58429L,58430L,58431L,58432L,58433L,58434L, +58435L,58436L,58437L,58438L,58439L,58440L,58441L,58442L,58443L,58444L, +58445L,58446L,58447L,58448L,58449L,58450L,58451L,58452L,58453L,58454L, +58455L,58456L,58457L,58458L,58459L,58460L,58461L,58462L,58463L,58464L, +58465L,58466L,58467L,58468L,58469L,58470L,58471L,58472L,58473L,58474L, +58475L,58476L,58477L,58478L,58479L,58480L,58481L,58482L,58483L,58484L, +58485L,58486L,58487L,58488L,58489L,58490L,58491L,58492L,58493L,58494L, +58495L,58496L,58497L,58498L,58499L,58500L,58501L,58502L,58503L,58504L, +58505L,58506L,58507L,58508L,58509L,58510L,58511L,58512L,58513L,58514L, +58515L,58516L,58517L,58518L,58519L,58520L,58521L,58522L,58523L,58524L, +58525L,58526L,58527L,58528L,58529L,58530L,58531L,58532L,58533L,58534L, +58535L,58536L,58537L,58538L,58539L,58540L,58541L,58542L,58543L,58544L, +58545L,58546L,58547L,58548L,58549L,58550L,58551L,58552L,58553L,58554L, +58555L,58556L,58557L,58558L,58559L,58560L,58561L,58562L,58563L,58564L, +58565L,58566L,58567L,58568L,58569L,58570L,58571L,58572L,58573L,58574L, +58575L,58576L,58577L,58578L,58579L,58580L,58581L,58582L,58583L,58584L, +58585L,58586L,58587L,58588L,58589L,58590L,58591L,58592L,58593L,58594L, +58595L,58596L,58597L,58598L,58599L,58600L,58601L,58602L,58603L,58604L, +58605L,58606L,58607L,58608L,58609L,58610L,58611L,58612L,58613L,58614L, +58615L,58616L,58617L,58618L,58619L,58620L,58621L,58622L,58623L,58624L, +58625L,58626L,58627L,58628L,58629L,58630L,58631L,58632L,58633L,58634L, +58635L,58636L,58637L,58638L,58639L,58640L,58641L,58642L,58643L,58644L, +58645L,58646L,58647L,58648L,58649L,58650L,58651L,58652L,58653L,58654L, +58655L,58656L,58657L,58658L,58659L,58660L,58661L,58662L,58663L,58664L, +58665L,58666L,58667L,58668L,58669L,58670L,58671L,58672L,58673L,58674L, +58675L,58676L,58677L,58678L,58679L,58680L,58681L,58682L,58683L,58684L, +58685L,58686L,58687L,58688L,58689L,58690L,58691L,58692L,58693L,58694L, +58695L,58696L,58697L,58698L,58699L,58700L,58701L,58702L,58703L,58704L, +58705L,58706L,58707L,58708L,58709L,58710L,58711L,58712L,58713L,58714L, +58715L,58716L,58717L,58718L,58719L,58720L,58721L,58722L,58723L,58724L, +58725L,58726L,58727L,58728L,58729L,58730L,58731L,58732L,58733L,58734L, +58735L,58736L,58737L,58738L,58739L,58740L,58741L,58742L,58743L,58744L, +58745L,58746L,58747L,58748L,58749L,58750L,58751L,58752L,58753L,58754L, +58755L,58756L,58757L,58758L,58759L,58760L,58761L,58762L,58763L,58764L, +58765L,58766L,58767L,58768L,58769L,58770L,58771L,58772L,58773L,58774L, +58775L,58776L,58777L,58778L,58779L,58780L,58781L,58782L,58783L,58784L, +58785L,58786L,58787L,58788L,58789L,58790L,58791L,58792L,58793L,58794L, +58795L,58796L,58797L,58798L,58799L,58800L,58801L,58802L,58803L,58804L, +58805L,58806L,58807L,58808L,58809L,58810L,58811L,58812L,58813L,58814L, +58815L,58816L,58817L,58818L,58819L,58820L,58821L,58822L,58823L,58824L, +58825L,58826L,58827L,58828L,58829L,58830L,58831L,58832L,58833L,58834L, +58835L,58836L,58837L,58838L,58839L,58840L,58841L,58842L,58843L,58844L, +58845L,58846L,58847L,58848L,58849L,58850L,58851L,58852L,58853L,58854L, +58855L,58856L,58857L,58858L,58859L,58860L,58861L,58862L,58863L,58864L, +58865L,58866L,58867L,58868L,58869L,58870L,58871L,58872L,58873L,58874L, +58875L,58876L,58877L,58878L,58879L,58880L,58881L,58882L,58883L,58884L, +58885L,58886L,58887L,58888L,58889L,58890L,58891L,58892L,58893L,58894L, +58895L,58896L,58897L,58898L,58899L,58900L,58901L,58902L,58903L,58904L, +58905L,58906L,58907L,58908L,58909L,58910L,58911L,58912L,58913L,58914L, +58915L,58916L,58917L,58918L,58919L,58920L,58921L,58922L,58923L,58924L, +58925L,58926L,58927L,58928L,58929L,58930L,58931L,58932L,58933L,58934L, +58935L,58936L,58937L,58938L,58939L,58940L,58941L,58942L,58943L,58944L, +58945L,58946L,58947L,58948L,58949L,58950L,58951L,58952L,58953L,58954L, +58955L,58956L,58957L,58958L,58959L,58960L,58961L,58962L,58963L,58964L, +58965L,58966L,58967L,58968L,58969L,58970L,58971L,58972L,58973L,58974L, +58975L,58976L,58977L,58978L,58979L,58980L,58981L,58982L,58983L,58984L, +58985L,58986L,58987L,58988L,58989L,58990L,58991L,58992L,58993L,58994L, +58995L,58996L,58997L,58998L,58999L,59000L,59001L,59002L,59003L,59004L, +59005L,59006L,59007L,59008L,59009L,59010L,59011L,59012L,59013L,59014L, +59015L,59016L,59017L,59018L,59019L,59020L,59021L,59022L,59023L,59024L, +59025L,59026L,59027L,59028L,59029L,59030L,59031L,59032L,59033L,59034L, +59035L,59036L,59037L,59038L,59039L,59040L,59041L,59042L,59043L,59044L, +59045L,59046L,59047L,59048L,59049L,59050L,59051L,59052L,59053L,59054L, +59055L,59056L,59057L,59058L,59059L,59060L,59061L,59062L,59063L,59064L, +59065L,59066L,59067L,59068L,59069L,59070L,59071L,59072L,59073L,59074L, +59075L,59076L,59077L,59078L,59079L,59080L,59081L,59082L,59083L,59084L, +59085L,59086L,59087L,59088L,59089L,59090L,59091L,59092L,59093L,59094L, +59095L,59096L,59097L,59098L,59099L,59100L,59101L,59102L,59103L,59104L, +59105L,59106L,59107L,59108L,59109L,59110L,59111L,59112L,59113L,59114L, +59115L,59116L,59117L,59118L,59119L,59120L,59121L,59122L,59123L,59124L, +59125L,59126L,59127L,59128L,59129L,59130L,59131L,59132L,59133L,59134L, +59135L,59136L,59137L,59138L,59139L,59140L,59141L,59142L,59143L,59144L, +59145L,59146L,59147L,59148L,59149L,59150L,59151L,59152L,59153L,59154L, +59155L,59156L,59157L,59158L,59159L,59160L,59161L,59162L,59163L,59164L, +59165L,59166L,59167L,59168L,59169L,59170L,59171L,59172L,59173L,59174L, +59175L,59176L,59177L,59178L,59179L,59180L,59181L,59182L,59183L,59184L, +59185L,59186L,59187L,59188L,59189L,59190L,59191L,59192L,59193L,59194L, +59195L,59196L,59197L,59198L,59199L,59200L,59201L,59202L,59203L,59204L, +59205L,59206L,59207L,59208L,59209L,59210L,59211L,59212L,59213L,59214L, +59215L,59216L,59217L,59218L,59219L,59220L,59221L,59222L,59223L,59224L, +59225L,59226L,59227L,59228L,59229L,59230L,59231L,59232L,59233L,59234L, +59235L,59236L,59237L,59238L,59239L,59240L,59241L,59242L,59243L,59244L, +59245L,59246L,59247L,59248L,59249L,59250L,59251L,59252L,59253L,59254L, +59255L,59256L,59257L,59258L,59259L,59260L,59261L,59262L,59263L,59264L, +59265L,59266L,59267L,59268L,59269L,59270L,59271L,59272L,59273L,59274L, +59275L,59276L,59277L,59278L,59279L,59280L,59281L,59282L,59283L,59284L, +59285L,59286L,59287L,59288L,59289L,59290L,59291L,59292L,59293L,59294L, +59295L,59296L,59297L,59298L,59299L,59300L,59301L,59302L,59303L,59304L, +59305L,59306L,59307L,59308L,59309L,59310L,59311L,59312L,59313L,59314L, +59315L,59316L,59317L,59318L,59319L,59320L,59321L,59322L,59323L,59324L, +59325L,59326L,59327L,59328L,59329L,59330L,59331L,59332L,59333L,59334L, +59335L,59336L,59337L,59338L,59339L,59340L,59341L,59342L,59343L,59344L, +59345L,59346L,59347L,59348L,59349L,59350L,59351L,59352L,59353L,59354L, +59355L,59356L,59357L,59358L,59359L,59360L,59361L,59362L,59363L,59364L, +59365L,59366L,59367L,59368L,59369L,59370L,59371L,59372L,59373L,59374L, +59375L,59376L,59377L,59378L,59379L,59380L,59381L,59382L,59383L,59384L, +59385L,59386L,59387L,59388L,59389L,59390L,59391L,59392L,59393L,59394L, +59395L,59396L,59397L,59398L,59399L,59400L,59401L,59402L,59403L,59404L, +59405L,59406L,59407L,59408L,59409L,59410L,59411L,59412L,59413L,59414L, +59415L,59416L,59417L,59418L,59419L,59420L,59421L,59422L,59423L,59424L, +59425L,59426L,59427L,59428L,59429L,59430L,59431L,59432L,59433L,59434L, +59435L,59436L,59437L,59438L,59439L,59440L,59441L,59442L,59443L,59444L, +59445L,59446L,59447L,59448L,59449L,59450L,59451L,59452L,59453L,59454L, +59455L,59456L,59457L,59458L,59459L,59460L,59461L,59462L,59463L,59464L, +59465L,59466L,59467L,59468L,59469L,59470L,59471L,59472L,59473L,59474L, +59475L,59476L,59477L,59478L,59479L,59480L,59481L,59482L,59483L,59484L, +59485L,59486L,59487L,59488L,59489L,59490L,59491L,59492L,59493L,59494L, +59495L,59496L,59497L,59498L,59499L,59500L,59501L,59502L,59503L,59504L, +59505L,59506L,59507L,59508L,59509L,59510L,59511L,59512L,59513L,59514L, +59515L,59516L,59517L,59518L,59519L,59520L,59521L,59522L,59523L,59524L, +59525L,59526L,59527L,59528L,59529L,59530L,59531L,59532L,59533L,59534L, +59535L,59536L,59537L,59538L,59539L,59540L,59541L,59542L,59543L,59544L, +59545L,59546L,59547L,59548L,59549L,59550L,59551L,59552L,59553L,59554L, +59555L,59556L,59557L,59558L,59559L,59560L,59561L,59562L,59563L,59564L, +59565L,59566L,59567L,59568L,59569L,59570L,59571L,59572L,59573L,59574L, +59575L,59576L,59577L,59578L,59579L,59580L,59581L,59582L,59583L,59584L, +59585L,59586L,59587L,59588L,59589L,59590L,59591L,59592L,59593L,59594L, +59595L,59596L,59597L,59598L,59599L,59600L,59601L,59602L,59603L,59604L, +59605L,59606L,59607L,59608L,59609L,59610L,59611L,59612L,59613L,59614L, +59615L,59616L,59617L,59618L,59619L,59620L,59621L,59622L,59623L,59624L, +59625L,59626L,59627L,59628L,59629L,59630L,59631L,59632L,59633L,59634L, +59635L,59636L,59637L,59638L,59639L,59640L,59641L,59642L,59643L,59644L, +59645L,59646L,59647L,59648L,59649L,59650L,59651L,59652L,59653L,59654L, +59655L,59656L,59657L,59658L,59659L,59660L,59661L,59662L,59663L,59664L, +59665L,59666L,59667L,59668L,59669L,59670L,59671L,59672L,59673L,59674L, +59675L,59676L,59677L,59678L,59679L,59680L,59681L,59682L,59683L,59684L, +59685L,59686L,59687L,59688L,59689L,59690L,59691L,59692L,59693L,59694L, +59695L,59696L,59697L,59698L,59699L,59700L,59701L,59702L,59703L,59704L, +59705L,59706L,59707L,59708L,59709L,59710L,59711L,59712L,59713L,59714L, +59715L,59716L,59717L,59718L,59719L,59720L,59721L,59722L,59723L,59724L, +59725L,59726L,59727L,59728L,59729L,59730L,59731L,59732L,59733L,59734L, +59735L,59736L,59737L,59738L,59739L,59740L,59741L,59742L,59743L,59744L, +59745L,59746L,59747L,59748L,59749L,59750L,59751L,59752L,59753L,59754L, +59755L,59756L,59757L,59758L,59759L,59760L,59761L,59762L,59763L,59764L, +59765L,59766L,59767L,59768L,59769L,59770L,59771L,59772L,59773L,59774L, +59775L,59776L,59777L,59778L,59779L,59780L,59781L,59782L,59783L,59784L, +59785L,59786L,59787L,59788L,59789L,59790L,59791L,59792L,59793L,59794L, +59795L,59796L,59797L,59798L,59799L,59800L,59801L,59802L,59803L,59804L, +59805L,59806L,59807L,59808L,59809L,59810L,59811L,59812L,59813L,59814L, +59815L,59816L,59817L,59818L,59819L,59820L,59821L,59822L,59823L,59824L, +59825L,59826L,59827L,59828L,59829L,59830L,59831L,59832L,59833L,59834L, +59835L,59836L,59837L,59838L,59839L,59840L,59841L,59842L,59843L,59844L, +59845L,59846L,59847L,59848L,59849L,59850L,59851L,59852L,59853L,59854L, +59855L,59856L,59857L,59858L,59859L,59860L,59861L,59862L,59863L,59864L, +59865L,59866L,59867L,59868L,59869L,59870L,59871L,59872L,59873L,59874L, +59875L,59876L,59877L,59878L,59879L,59880L,59881L,59882L,59883L,59884L, +59885L,59886L,59887L,59888L,59889L,59890L,59891L,59892L,59893L,59894L, +59895L,59896L,59897L,59898L,59899L,59900L,59901L,59902L,59903L,59904L, +59905L,59906L,59907L,59908L,59909L,59910L,59911L,59912L,59913L,59914L, +59915L,59916L,59917L,59918L,59919L,59920L,59921L,59922L,59923L,59924L, +59925L,59926L,59927L,59928L,59929L,59930L,59931L,59932L,59933L,59934L, +59935L,59936L,59937L,59938L,59939L,59940L,59941L,59942L,59943L,59944L, +59945L,59946L,59947L,59948L,59949L,59950L,59951L,59952L,59953L,59954L, +59955L,59956L,59957L,59958L,59959L,59960L,59961L,59962L,59963L,59964L, +59965L,59966L,59967L,59968L,59969L,59970L,59971L,59972L,59973L,59974L, +59975L,59976L,59977L,59978L,59979L,59980L,59981L,59982L,59983L,59984L, +59985L,59986L,59987L,59988L,59989L,59990L,59991L,59992L,59993L,59994L, +59995L,59996L,59997L,59998L,59999L,60000L,60001L,60002L,60003L,60004L, +60005L,60006L,60007L,60008L,60009L,60010L,60011L,60012L,60013L,60014L, +60015L,60016L,60017L,60018L,60019L,60020L,60021L,60022L,60023L,60024L, +60025L,60026L,60027L,60028L,60029L,60030L,60031L,60032L,60033L,60034L, +60035L,60036L,60037L,60038L,60039L,60040L,60041L,60042L,60043L,60044L, +60045L,60046L,60047L,60048L,60049L,60050L,60051L,60052L,60053L,60054L, +60055L,60056L,60057L,60058L,60059L,60060L,60061L,60062L,60063L,60064L, +60065L,60066L,60067L,60068L,60069L,60070L,60071L,60072L,60073L,60074L, +60075L,60076L,60077L,60078L,60079L,60080L,60081L,60082L,60083L,60084L, +60085L,60086L,60087L,60088L,60089L,60090L,60091L,60092L,60093L,60094L, +60095L,60096L,60097L,60098L,60099L,60100L,60101L,60102L,60103L,60104L, +60105L,60106L,60107L,60108L,60109L,60110L,60111L,60112L,60113L,60114L, +60115L,60116L,60117L,60118L,60119L,60120L,60121L,60122L,60123L,60124L, +60125L,60126L,60127L,60128L,60129L,60130L,60131L,60132L,60133L,60134L, +60135L,60136L,60137L,60138L,60139L,60140L,60141L,60142L,60143L,60144L, +60145L,60146L,60147L,60148L,60149L,60150L,60151L,60152L,60153L,60154L, +60155L,60156L,60157L,60158L,60159L,60160L,60161L,60162L,60163L,60164L, +60165L,60166L,60167L,60168L,60169L,60170L,60171L,60172L,60173L,60174L, +60175L,60176L,60177L,60178L,60179L,60180L,60181L,60182L,60183L,60184L, +60185L,60186L,60187L,60188L,60189L,60190L,60191L,60192L,60193L,60194L, +60195L,60196L,60197L,60198L,60199L,60200L,60201L,60202L,60203L,60204L, +60205L,60206L,60207L,60208L,60209L,60210L,60211L,60212L,60213L,60214L, +60215L,60216L,60217L,60218L,60219L,60220L,60221L,60222L,60223L,60224L, +60225L,60226L,60227L,60228L,60229L,60230L,60231L,60232L,60233L,60234L, +60235L,60236L,60237L,60238L,60239L,60240L,60241L,60242L,60243L,60244L, +60245L,60246L,60247L,60248L,60249L,60250L,60251L,60252L,60253L,60254L, +60255L,60256L,60257L,60258L,60259L,60260L,60261L,60262L,60263L,60264L, +60265L,60266L,60267L,60268L,60269L,60270L,60271L,60272L,60273L,60274L, +60275L,60276L,60277L,60278L,60279L,60280L,60281L,60282L,60283L,60284L, +60285L,60286L,60287L,60288L,60289L,60290L,60291L,60292L,60293L,60294L, +60295L,60296L,60297L,60298L,60299L,60300L,60301L,60302L,60303L,60304L, +60305L,60306L,60307L,60308L,60309L,60310L,60311L,60312L,60313L,60314L, +60315L,60316L,60317L,60318L,60319L,60320L,60321L,60322L,60323L,60324L, +60325L,60326L,60327L,60328L,60329L,60330L,60331L,60332L,60333L,60334L, +60335L,60336L,60337L,60338L,60339L,60340L,60341L,60342L,60343L,60344L, +60345L,60346L,60347L,60348L,60349L,60350L,60351L,60352L,60353L,60354L, +60355L,60356L,60357L,60358L,60359L,60360L,60361L,60362L,60363L,60364L, +60365L,60366L,60367L,60368L,60369L,60370L,60371L,60372L,60373L,60374L, +60375L,60376L,60377L,60378L,60379L,60380L,60381L,60382L,60383L,60384L, +60385L,60386L,60387L,60388L,60389L,60390L,60391L,60392L,60393L,60394L, +60395L,60396L,60397L,60398L,60399L,60400L,60401L,60402L,60403L,60404L, +60405L,60406L,60407L,60408L,60409L,60410L,60411L,60412L,60413L,60414L, +60415L,60416L,60417L,60418L,60419L,60420L,60421L,60422L,60423L,60424L, +60425L,60426L,60427L,60428L,60429L,60430L,60431L,60432L,60433L,60434L, +60435L,60436L,60437L,60438L,60439L,60440L,60441L,60442L,60443L,60444L, +60445L,60446L,60447L,60448L,60449L,60450L,60451L,60452L,60453L,60454L, +60455L,60456L,60457L,60458L,60459L,60460L,60461L,60462L,60463L,60464L, +60465L,60466L,60467L,60468L,60469L,60470L,60471L,60472L,60473L,60474L, +60475L,60476L,60477L,60478L,60479L,60480L,60481L,60482L,60483L,60484L, +60485L,60486L,60487L,60488L,60489L,60490L,60491L,60492L,60493L,60494L, +60495L,60496L,60497L,60498L,60499L,60500L,60501L,60502L,60503L,60504L, +60505L,60506L,60507L,60508L,60509L,60510L,60511L,60512L,60513L,60514L, +60515L,60516L,60517L,60518L,60519L,60520L,60521L,60522L,60523L,60524L, +60525L,60526L,60527L,60528L,60529L,60530L,60531L,60532L,60533L,60534L, +60535L,60536L,60537L,60538L,60539L,60540L,60541L,60542L,60543L,60544L, +60545L,60546L,60547L,60548L,60549L,60550L,60551L,60552L,60553L,60554L, +60555L,60556L,60557L,60558L,60559L,60560L,60561L,60562L,60563L,60564L, +60565L,60566L,60567L,60568L,60569L,60570L,60571L,60572L,60573L,60574L, +60575L,60576L,60577L,60578L,60579L,60580L,60581L,60582L,60583L,60584L, +60585L,60586L,60587L,60588L,60589L,60590L,60591L,60592L,60593L,60594L, +60595L,60596L,60597L,60598L,60599L,60600L,60601L,60602L,60603L,60604L, +60605L,60606L,60607L,60608L,60609L,60610L,60611L,60612L,60613L,60614L, +60615L,60616L,60617L,60618L,60619L,60620L,60621L,60622L,60623L,60624L, +60625L,60626L,60627L,60628L,60629L,60630L,60631L,60632L,60633L,60634L, +60635L,60636L,60637L,60638L,60639L,60640L,60641L,60642L,60643L,60644L, +60645L,60646L,60647L,60648L,60649L,60650L,60651L,60652L,60653L,60654L, +60655L,60656L,60657L,60658L,60659L,60660L,60661L,60662L,60663L,60664L, +60665L,60666L,60667L,60668L,60669L,60670L,60671L,60672L,60673L,60674L, +60675L,60676L,60677L,60678L,60679L,60680L,60681L,60682L,60683L,60684L, +60685L,60686L,60687L,60688L,60689L,60690L,60691L,60692L,60693L,60694L, +60695L,60696L,60697L,60698L,60699L,60700L,60701L,60702L,60703L,60704L, +60705L,60706L,60707L,60708L,60709L,60710L,60711L,60712L,60713L,60714L, +60715L,60716L,60717L,60718L,60719L,60720L,60721L,60722L,60723L,60724L, +60725L,60726L,60727L,60728L,60729L,60730L,60731L,60732L,60733L,60734L, +60735L,60736L,60737L,60738L,60739L,60740L,60741L,60742L,60743L,60744L, +60745L,60746L,60747L,60748L,60749L,60750L,60751L,60752L,60753L,60754L, +60755L,60756L,60757L,60758L,60759L,60760L,60761L,60762L,60763L,60764L, +60765L,60766L,60767L,60768L,60769L,60770L,60771L,60772L,60773L,60774L, +60775L,60776L,60777L,60778L,60779L,60780L,60781L,60782L,60783L,60784L, +60785L,60786L,60787L,60788L,60789L,60790L,60791L,60792L,60793L,60794L, +60795L,60796L,60797L,60798L,60799L,60800L,60801L,60802L,60803L,60804L, +60805L,60806L,60807L,60808L,60809L,60810L,60811L,60812L,60813L,60814L, +60815L,60816L,60817L,60818L,60819L,60820L,60821L,60822L,60823L,60824L, +60825L,60826L,60827L,60828L,60829L,60830L,60831L,60832L,60833L,60834L, +60835L,60836L,60837L,60838L,60839L,60840L,60841L,60842L,60843L,60844L, +60845L,60846L,60847L,60848L,60849L,60850L,60851L,60852L,60853L,60854L, +60855L,60856L,60857L,60858L,60859L,60860L,60861L,60862L,60863L,60864L, +60865L,60866L,60867L,60868L,60869L,60870L,60871L,60872L,60873L,60874L, +60875L,60876L,60877L,60878L,60879L,60880L,60881L,60882L,60883L,60884L, +60885L,60886L,60887L,60888L,60889L,60890L,60891L,60892L,60893L,60894L, +60895L,60896L,60897L,60898L,60899L,60900L,60901L,60902L,60903L,60904L, +60905L,60906L,60907L,60908L,60909L,60910L,60911L,60912L,60913L,60914L, +60915L,60916L,60917L,60918L,60919L,60920L,60921L,60922L,60923L,60924L, +60925L,60926L,60927L,60928L,60929L,60930L,60931L,60932L,60933L,60934L, +60935L,60936L,60937L,60938L,60939L,60940L,60941L,60942L,60943L,60944L, +60945L,60946L,60947L,60948L,60949L,60950L,60951L,60952L,60953L,60954L, +60955L,60956L,60957L,60958L,60959L,60960L,60961L,60962L,60963L,60964L, +60965L,60966L,60967L,60968L,60969L,60970L,60971L,60972L,60973L,60974L, +60975L,60976L,60977L,60978L,60979L,60980L,60981L,60982L,60983L,60984L, +60985L,60986L,60987L,60988L,60989L,60990L,60991L,60992L,60993L,60994L, +60995L,60996L,60997L,60998L,60999L,61000L,61001L,61002L,61003L,61004L, +61005L,61006L,61007L,61008L,61009L,61010L,61011L,61012L,61013L,61014L, +61015L,61016L,61017L,61018L,61019L,61020L,61021L,61022L,61023L,61024L, +61025L,61026L,61027L,61028L,61029L,61030L,61031L,61032L,61033L,61034L, +61035L,61036L,61037L,61038L,61039L,61040L,61041L,61042L,61043L,61044L, +61045L,61046L,61047L,61048L,61049L,61050L,61051L,61052L,61053L,61054L, +61055L,61056L,61057L,61058L,61059L,61060L,61061L,61062L,61063L,61064L, +61065L,61066L,61067L,61068L,61069L,61070L,61071L,61072L,61073L,61074L, +61075L,61076L,61077L,61078L,61079L,61080L,61081L,61082L,61083L,61084L, +61085L,61086L,61087L,61088L,61089L,61090L,61091L,61092L,61093L,61094L, +61095L,61096L,61097L,61098L,61099L,61100L,61101L,61102L,61103L,61104L, +61105L,61106L,61107L,61108L,61109L,61110L,61111L,61112L,61113L,61114L, +61115L,61116L,61117L,61118L,61119L,61120L,61121L,61122L,61123L,61124L, +61125L,61126L,61127L,61128L,61129L,61130L,61131L,61132L,61133L,61134L, +61135L,61136L,61137L,61138L,61139L,61140L,61141L,61142L,61143L,61144L, +61145L,61146L,61147L,61148L,61149L,61150L,61151L,61152L,61153L,61154L, +61155L,61156L,61157L,61158L,61159L,61160L,61161L,61162L,61163L,61164L, +61165L,61166L,61167L,61168L,61169L,61170L,61171L,61172L,61173L,61174L, +61175L,61176L,61177L,61178L,61179L,61180L,61181L,61182L,61183L,61184L, +61185L,61186L,61187L,61188L,61189L,61190L,61191L,61192L,61193L,61194L, +61195L,61196L,61197L,61198L,61199L,61200L,61201L,61202L,61203L,61204L, +61205L,61206L,61207L,61208L,61209L,61210L,61211L,61212L,61213L,61214L, +61215L,61216L,61217L,61218L,61219L,61220L,61221L,61222L,61223L,61224L, +61225L,61226L,61227L,61228L,61229L,61230L,61231L,61232L,61233L,61234L, +61235L,61236L,61237L,61238L,61239L,61240L,61241L,61242L,61243L,61244L, +61245L,61246L,61247L,61248L,61249L,61250L,61251L,61252L,61253L,61254L, +61255L,61256L,61257L,61258L,61259L,61260L,61261L,61262L,61263L,61264L, +61265L,61266L,61267L,61268L,61269L,61270L,61271L,61272L,61273L,61274L, +61275L,61276L,61277L,61278L,61279L,61280L,61281L,61282L,61283L,61284L, +61285L,61286L,61287L,61288L,61289L,61290L,61291L,61292L,61293L,61294L, +61295L,61296L,61297L,61298L,61299L,61300L,61301L,61302L,61303L,61304L, +61305L,61306L,61307L,61308L,61309L,61310L,61311L,61312L,61313L,61314L, +61315L,61316L,61317L,61318L,61319L,61320L,61321L,61322L,61323L,61324L, +61325L,61326L,61327L,61328L,61329L,61330L,61331L,61332L,61333L,61334L, +61335L,61336L,61337L,61338L,61339L,61340L,61341L,61342L,61343L,61344L, +61345L,61346L,61347L,61348L,61349L,61350L,61351L,61352L,61353L,61354L, +61355L,61356L,61357L,61358L,61359L,61360L,61361L,61362L,61363L,61364L, +61365L,61366L,61367L,61368L,61369L,61370L,61371L,61372L,61373L,61374L, +61375L,61376L,61377L,61378L,61379L,61380L,61381L,61382L,61383L,61384L, +61385L,61386L,61387L,61388L,61389L,61390L,61391L,61392L,61393L,61394L, +61395L,61396L,61397L,61398L,61399L,61400L,61401L,61402L,61403L,61404L, +61405L,61406L,61407L,61408L,61409L,61410L,61411L,61412L,61413L,61414L, +61415L,61416L,61417L,61418L,61419L,61420L,61421L,61422L,61423L,61424L, +61425L,61426L,61427L,61428L,61429L,61430L,61431L,61432L,61433L,61434L, +61435L,61436L,61437L,61438L,61439L,61440L,61441L,61442L,61443L,61444L, +61445L,61446L,61447L,61448L,61449L,61450L,61451L,61452L,61453L,61454L, +61455L,61456L,61457L,61458L,61459L,61460L,61461L,61462L,61463L,61464L, +61465L,61466L,61467L,61468L,61469L,61470L,61471L,61472L,61473L,61474L, +61475L,61476L,61477L,61478L,61479L,61480L,61481L,61482L,61483L,61484L, +61485L,61486L,61487L,61488L,61489L,61490L,61491L,61492L,61493L,61494L, +61495L,61496L,61497L,61498L,61499L,61500L,61501L,61502L,61503L,61504L, +61505L,61506L,61507L,61508L,61509L,61510L,61511L,61512L,61513L,61514L, +61515L,61516L,61517L,61518L,61519L,61520L,61521L,61522L,61523L,61524L, +61525L,61526L,61527L,61528L,61529L,61530L,61531L,61532L,61533L,61534L, +61535L,61536L,61537L,61538L,61539L,61540L,61541L,61542L,61543L,61544L, +61545L,61546L,61547L,61548L,61549L,61550L,61551L,61552L,61553L,61554L, +61555L,61556L,61557L,61558L,61559L,61560L,61561L,61562L,61563L,61564L, +61565L,61566L,61567L,61568L,61569L,61570L,61571L,61572L,61573L,61574L, +61575L,61576L,61577L,61578L,61579L,61580L,61581L,61582L,61583L,61584L, +61585L,61586L,61587L,61588L,61589L,61590L,61591L,61592L,61593L,61594L, +61595L,61596L,61597L,61598L,61599L,61600L,61601L,61602L,61603L,61604L, +61605L,61606L,61607L,61608L,61609L,61610L,61611L,61612L,61613L,61614L, +61615L,61616L,61617L,61618L,61619L,61620L,61621L,61622L,61623L,61624L, +61625L,61626L,61627L,61628L,61629L,61630L,61631L,61632L,61633L,61634L, +61635L,61636L,61637L,61638L,61639L,61640L,61641L,61642L,61643L,61644L, +61645L,61646L,61647L,61648L,61649L,61650L,61651L,61652L,61653L,61654L, +61655L,61656L,61657L,61658L,61659L,61660L,61661L,61662L,61663L,61664L, +61665L,61666L,61667L,61668L,61669L,61670L,61671L,61672L,61673L,61674L, +61675L,61676L,61677L,61678L,61679L,61680L,61681L,61682L,61683L,61684L, +61685L,61686L,61687L,61688L,61689L,61690L,61691L,61692L,61693L,61694L, +61695L,61696L,61697L,61698L,61699L,61700L,61701L,61702L,61703L,61704L, +61705L,61706L,61707L,61708L,61709L,61710L,61711L,61712L,61713L,61714L, +61715L,61716L,61717L,61718L,61719L,61720L,61721L,61722L,61723L,61724L, +61725L,61726L,61727L,61728L,61729L,61730L,61731L,61732L,61733L,61734L, +61735L,61736L,61737L,61738L,61739L,61740L,61741L,61742L,61743L,61744L, +61745L,61746L,61747L,61748L,61749L,61750L,61751L,61752L,61753L,61754L, +61755L,61756L,61757L,61758L,61759L,61760L,61761L,61762L,61763L,61764L, +61765L,61766L,61767L,61768L,61769L,61770L,61771L,61772L,61773L,61774L, +61775L,61776L,61777L,61778L,61779L,61780L,61781L,61782L,61783L,61784L, +61785L,61786L,61787L,61788L,61789L,61790L,61791L,61792L,61793L,61794L, +61795L,61796L,61797L,61798L,61799L,61800L,61801L,61802L,61803L,61804L, +61805L,61806L,61807L,61808L,61809L,61810L,61811L,61812L,61813L,61814L, +61815L,61816L,61817L,61818L,61819L,61820L,61821L,61822L,61823L,61824L, +61825L,61826L,61827L,61828L,61829L,61830L,61831L,61832L,61833L,61834L, +61835L,61836L,61837L,61838L,61839L,61840L,61841L,61842L,61843L,61844L, +61845L,61846L,61847L,61848L,61849L,61850L,61851L,61852L,61853L,61854L, +61855L,61856L,61857L,61858L,61859L,61860L,61861L,61862L,61863L,61864L, +61865L,61866L,61867L,61868L,61869L,61870L,61871L,61872L,61873L,61874L, +61875L,61876L,61877L,61878L,61879L,61880L,61881L,61882L,61883L,61884L, +61885L,61886L,61887L,61888L,61889L,61890L,61891L,61892L,61893L,61894L, +61895L,61896L,61897L,61898L,61899L,61900L,61901L,61902L,61903L,61904L, +61905L,61906L,61907L,61908L,61909L,61910L,61911L,61912L,61913L,61914L, +61915L,61916L,61917L,61918L,61919L,61920L,61921L,61922L,61923L,61924L, +61925L,61926L,61927L,61928L,61929L,61930L,61931L,61932L,61933L,61934L, +61935L,61936L,61937L,61938L,61939L,61940L,61941L,61942L,61943L,61944L, +61945L,61946L,61947L,61948L,61949L,61950L,61951L,61952L,61953L,61954L, +61955L,61956L,61957L,61958L,61959L,61960L,61961L,61962L,61963L,61964L, +61965L,61966L,61967L,61968L,61969L,61970L,61971L,61972L,61973L,61974L, +61975L,61976L,61977L,61978L,61979L,61980L,61981L,61982L,61983L,61984L, +61985L,61986L,61987L,61988L,61989L,61990L,61991L,61992L,61993L,61994L, +61995L,61996L,61997L,61998L,61999L,62000L,62001L,62002L,62003L,62004L, +62005L,62006L,62007L,62008L,62009L,62010L,62011L,62012L,62013L,62014L, +62015L,62016L,62017L,62018L,62019L,62020L,62021L,62022L,62023L,62024L, +62025L,62026L,62027L,62028L,62029L,62030L,62031L,62032L,62033L,62034L, +62035L,62036L,62037L,62038L,62039L,62040L,62041L,62042L,62043L,62044L, +62045L,62046L,62047L,62048L,62049L,62050L,62051L,62052L,62053L,62054L, +62055L,62056L,62057L,62058L,62059L,62060L,62061L,62062L,62063L,62064L, +62065L,62066L,62067L,62068L,62069L,62070L,62071L,62072L,62073L,62074L, +62075L,62076L,62077L,62078L,62079L,62080L,62081L,62082L,62083L,62084L, +62085L,62086L,62087L,62088L,62089L,62090L,62091L,62092L,62093L,62094L, +62095L,62096L,62097L,62098L,62099L,62100L,62101L,62102L,62103L,62104L, +62105L,62106L,62107L,62108L,62109L,62110L,62111L,62112L,62113L,62114L, +62115L,62116L,62117L,62118L,62119L,62120L,62121L,62122L,62123L,62124L, +62125L,62126L,62127L,62128L,62129L,62130L,62131L,62132L,62133L,62134L, +62135L,62136L,62137L,62138L,62139L,62140L,62141L,62142L,62143L,62144L, +62145L,62146L,62147L,62148L,62149L,62150L,62151L,62152L,62153L,62154L, +62155L,62156L,62157L,62158L,62159L,62160L,62161L,62162L,62163L,62164L, +62165L,62166L,62167L,62168L,62169L,62170L,62171L,62172L,62173L,62174L, +62175L,62176L,62177L,62178L,62179L,62180L,62181L,62182L,62183L,62184L, +62185L,62186L,62187L,62188L,62189L,62190L,62191L,62192L,62193L,62194L, +62195L,62196L,62197L,62198L,62199L,62200L,62201L,62202L,62203L,62204L, +62205L,62206L,62207L,62208L,62209L,62210L,62211L,62212L,62213L,62214L, +62215L,62216L,62217L,62218L,62219L,62220L,62221L,62222L,62223L,62224L, +62225L,62226L,62227L,62228L,62229L,62230L,62231L,62232L,62233L,62234L, +62235L,62236L,62237L,62238L,62239L,62240L,62241L,62242L,62243L,62244L, +62245L,62246L,62247L,62248L,62249L,62250L,62251L,62252L,62253L,62254L, +62255L,62256L,62257L,62258L,62259L,62260L,62261L,62262L,62263L,62264L, +62265L,62266L,62267L,62268L,62269L,62270L,62271L,62272L,62273L,62274L, +62275L,62276L,62277L,62278L,62279L,62280L,62281L,62282L,62283L,62284L, +62285L,62286L,62287L,62288L,62289L,62290L,62291L,62292L,62293L,62294L, +62295L,62296L,62297L,62298L,62299L,62300L,62301L,62302L,62303L,62304L, +62305L,62306L,62307L,62308L,62309L,62310L,62311L,62312L,62313L,62314L, +62315L,62316L,62317L,62318L,62319L,62320L,62321L,62322L,62323L,62324L, +62325L,62326L,62327L,62328L,62329L,62330L,62331L,62332L,62333L,62334L, +62335L,62336L,62337L,62338L,62339L,62340L,62341L,62342L,62343L,62344L, +62345L,62346L,62347L,62348L,62349L,62350L,62351L,62352L,62353L,62354L, +62355L,62356L,62357L,62358L,62359L,62360L,62361L,62362L,62363L,62364L, +62365L,62366L,62367L,62368L,62369L,62370L,62371L,62372L,62373L,62374L, +62375L,62376L,62377L,62378L,62379L,62380L,62381L,62382L,62383L,62384L, +62385L,62386L,62387L,62388L,62389L,62390L,62391L,62392L,62393L,62394L, +62395L,62396L,62397L,62398L,62399L,62400L,62401L,62402L,62403L,62404L, +62405L,62406L,62407L,62408L,62409L,62410L,62411L,62412L,62413L,62414L, +62415L,62416L,62417L,62418L,62419L,62420L,62421L,62422L,62423L,62424L, +62425L,62426L,62427L,62428L,62429L,62430L,62431L,62432L,62433L,62434L, +62435L,62436L,62437L,62438L,62439L,62440L,62441L,62442L,62443L,62444L, +62445L,62446L,62447L,62448L,62449L,62450L,62451L,62452L,62453L,62454L, +62455L,62456L,62457L,62458L,62459L,62460L,62461L,62462L,62463L,62464L, +62465L,62466L,62467L,62468L,62469L,62470L,62471L,62472L,62473L,62474L, +62475L,62476L,62477L,62478L,62479L,62480L,62481L,62482L,62483L,62484L, +62485L,62486L,62487L,62488L,62489L,62490L,62491L,62492L,62493L,62494L, +62495L,62496L,62497L,62498L,62499L,62500L,62501L,62502L,62503L,62504L, +62505L,62506L,62507L,62508L,62509L,62510L,62511L,62512L,62513L,62514L, +62515L,62516L,62517L,62518L,62519L,62520L,62521L,62522L,62523L,62524L, +62525L,62526L,62527L,62528L,62529L,62530L,62531L,62532L,62533L,62534L, +62535L,62536L,62537L,62538L,62539L,62540L,62541L,62542L,62543L,62544L, +62545L,62546L,62547L,62548L,62549L,62550L,62551L,62552L,62553L,62554L, +62555L,62556L,62557L,62558L,62559L,62560L,62561L,62562L,62563L,62564L, +62565L,62566L,62567L,62568L,62569L,62570L,62571L,62572L,62573L,62574L, +62575L,62576L,62577L,62578L,62579L,62580L,62581L,62582L,62583L,62584L, +62585L,62586L,62587L,62588L,62589L,62590L,62591L,62592L,62593L,62594L, +62595L,62596L,62597L,62598L,62599L,62600L,62601L,62602L,62603L,62604L, +62605L,62606L,62607L,62608L,62609L,62610L,62611L,62612L,62613L,62614L, +62615L,62616L,62617L,62618L,62619L,62620L,62621L,62622L,62623L,62624L, +62625L,62626L,62627L,62628L,62629L,62630L,62631L,62632L,62633L,62634L, +62635L,62636L,62637L,62638L,62639L,62640L,62641L,62642L,62643L,62644L, +62645L,62646L,62647L,62648L,62649L,62650L,62651L,62652L,62653L,62654L, +62655L,62656L,62657L,62658L,62659L,62660L,62661L,62662L,62663L,62664L, +62665L,62666L,62667L,62668L,62669L,62670L,62671L,62672L,62673L,62674L, +62675L,62676L,62677L,62678L,62679L,62680L,62681L,62682L,62683L,62684L, +62685L,62686L,62687L,62688L,62689L,62690L,62691L,62692L,62693L,62694L, +62695L,62696L,62697L,62698L,62699L,62700L,62701L,62702L,62703L,62704L, +62705L,62706L,62707L,62708L,62709L,62710L,62711L,62712L,62713L,62714L, +62715L,62716L,62717L,62718L,62719L,62720L,62721L,62722L,62723L,62724L, +62725L,62726L,62727L,62728L,62729L,62730L,62731L,62732L,62733L,62734L, +62735L,62736L,62737L,62738L,62739L,62740L,62741L,62742L,62743L,62744L, +62745L,62746L,62747L,62748L,62749L,62750L,62751L,62752L,62753L,62754L, +62755L,62756L,62757L,62758L,62759L,62760L,62761L,62762L,62763L,62764L, +62765L,62766L,62767L,62768L,62769L,62770L,62771L,62772L,62773L,62774L, +62775L,62776L,62777L,62778L,62779L,62780L,62781L,62782L,62783L,62784L, +62785L,62786L,62787L,62788L,62789L,62790L,62791L,62792L,62793L,62794L, +62795L,62796L,62797L,62798L,62799L,62800L,62801L,62802L,62803L,62804L, +62805L,62806L,62807L,62808L,62809L,62810L,62811L,62812L,62813L,62814L, +62815L,62816L,62817L,62818L,62819L,62820L,62821L,62822L,62823L,62824L, +62825L,62826L,62827L,62828L,62829L,62830L,62831L,62832L,62833L,62834L, +62835L,62836L,62837L,62838L,62839L,62840L,62841L,62842L,62843L,62844L, +62845L,62846L,62847L,62848L,62849L,62850L,62851L,62852L,62853L,62854L, +62855L,62856L,62857L,62858L,62859L,62860L,62861L,62862L,62863L,62864L, +62865L,62866L,62867L,62868L,62869L,62870L,62871L,62872L,62873L,62874L, +62875L,62876L,62877L,62878L,62879L,62880L,62881L,62882L,62883L,62884L, +62885L,62886L,62887L,62888L,62889L,62890L,62891L,62892L,62893L,62894L, +62895L,62896L,62897L,62898L,62899L,62900L,62901L,62902L,62903L,62904L, +62905L,62906L,62907L,62908L,62909L,62910L,62911L,62912L,62913L,62914L, +62915L,62916L,62917L,62918L,62919L,62920L,62921L,62922L,62923L,62924L, +62925L,62926L,62927L,62928L,62929L,62930L,62931L,62932L,62933L,62934L, +62935L,62936L,62937L,62938L,62939L,62940L,62941L,62942L,62943L,62944L, +62945L,62946L,62947L,62948L,62949L,62950L,62951L,62952L,62953L,62954L, +62955L,62956L,62957L,62958L,62959L,62960L,62961L,62962L,62963L,62964L, +62965L,62966L,62967L,62968L,62969L,62970L,62971L,62972L,62973L,62974L, +62975L,62976L,62977L,62978L,62979L,62980L,62981L,62982L,62983L,62984L, +62985L,62986L,62987L,62988L,62989L,62990L,62991L,62992L,62993L,62994L, +62995L,62996L,62997L,62998L,62999L,63000L,63001L,63002L,63003L,63004L, +63005L,63006L,63007L,63008L,63009L,63010L,63011L,63012L,63013L,63014L, +63015L,63016L,63017L,63018L,63019L,63020L,63021L,63022L,63023L,63024L, +63025L,63026L,63027L,63028L,63029L,63030L,63031L,63032L,63033L,63034L, +63035L,63036L,63037L,63038L,63039L,63040L,63041L,63042L,63043L,63044L, +63045L,63046L,63047L,63048L,63049L,63050L,63051L,63052L,63053L,63054L, +63055L,63056L,63057L,63058L,63059L,63060L,63061L,63062L,63063L,63064L, +63065L,63066L,63067L,63068L,63069L,63070L,63071L,63072L,63073L,63074L, +63075L,63076L,63077L,63078L,63079L,63080L,63081L,63082L,63083L,63084L, +63085L,63086L,63087L,63088L,63089L,63090L,63091L,63092L,63093L,63094L, +63095L,63096L,63097L,63098L,63099L,63100L,63101L,63102L,63103L,63104L, +63105L,63106L,63107L,63108L,63109L,63110L,63111L,63112L,63113L,63114L, +63115L,63116L,63117L,63118L,63119L,63120L,63121L,63122L,63123L,63124L, +63125L,63126L,63127L,63128L,63129L,63130L,63131L,63132L,63133L,63134L, +63135L,63136L,63137L,63138L,63139L,63140L,63141L,63142L,63143L,63144L, +63145L,63146L,63147L,63148L,63149L,63150L,63151L,63152L,63153L,63154L, +63155L,63156L,63157L,63158L,63159L,63160L,63161L,63162L,63163L,63164L, +63165L,63166L,63167L,63168L,63169L,63170L,63171L,63172L,63173L,63174L, +63175L,63176L,63177L,63178L,63179L,63180L,63181L,63182L,63183L,63184L, +63185L,63186L,63187L,63188L,63189L,63190L,63191L,63192L,63193L,63194L, +63195L,63196L,63197L,63198L,63199L,63200L,63201L,63202L,63203L,63204L, +63205L,63206L,63207L,63208L,63209L,63210L,63211L,63212L,63213L,63214L, +63215L,63216L,63217L,63218L,63219L,63220L,63221L,63222L,63223L,63224L, +63225L,63226L,63227L,63228L,63229L,63230L,63231L,63232L,63233L,63234L, +63235L,63236L,63237L,63238L,63239L,63240L,63241L,63242L,63243L,63244L, +63245L,63246L,63247L,63248L,63249L,63250L,63251L,63252L,63253L,63254L, +63255L,63256L,63257L,63258L,63259L,63260L,63261L,63262L,63263L,63264L, +63265L,63266L,63267L,63268L,63269L,63270L,63271L,63272L,63273L,63274L, +63275L,63276L,63277L,63278L,63279L,63280L,63281L,63282L,63283L,63284L, +63285L,63286L,63287L,63288L,63289L,63290L,63291L,63292L,63293L,63294L, +63295L,63296L,63297L,63298L,63299L,63300L,63301L,63302L,63303L,63304L, +63305L,63306L,63307L,63308L,63309L,63310L,63311L,63312L,63313L,63314L, +63315L,63316L,63317L,63318L,63319L,63320L,63321L,63322L,63323L,63324L, +63325L,63326L,63327L,63328L,63329L,63330L,63331L,63332L,63333L,63334L, +63335L,63336L,63337L,63338L,63339L,63340L,63341L,63342L,63343L,63344L, +63345L,63346L,63347L,63348L,63349L,63350L,63351L,63352L,63353L,63354L, +63355L,63356L,63357L,63358L,63359L,63360L,63361L,63362L,63363L,63364L, +63365L,63366L,63367L,63368L,63369L,63370L,63371L,63372L,63373L,63374L, +63375L,63376L,63377L,63378L,63379L,63380L,63381L,63382L,63383L,63384L, +63385L,63386L,63387L,63388L,63389L,63390L,63391L,63392L,63393L,63394L, +63395L,63396L,63397L,63398L,63399L,63400L,63401L,63402L,63403L,63404L, +63405L,63406L,63407L,63408L,63409L,63410L,63411L,63412L,63413L,63414L, +63415L,63416L,63417L,63418L,63419L,63420L,63421L,63422L,63423L,63424L, +63425L,63426L,63427L,63428L,63429L,63430L,63431L,63432L,63433L,63434L, +63435L,63436L,63437L,63438L,63439L,63440L,63441L,63442L,63443L,63444L, +63445L,63446L,63447L,63448L,63449L,63450L,63451L,63452L,63453L,63454L, +63455L,63456L,63457L,63458L,63459L,63460L,63461L,63462L,63463L,63464L, +63465L,63466L,63467L,63468L,63469L,63470L,63471L,63472L,63473L,63474L, +63475L,63476L,63477L,63478L,63479L,63480L,63481L,63482L,63483L,63484L, +63485L,63486L,63487L,63488L,63489L,63490L,63491L,63492L,63493L,63494L, +63495L,63496L,63497L,63498L,63499L,63500L,63501L,63502L,63503L,63504L, +63505L,63506L,63507L,63508L,63509L,63510L,63511L,63512L,63513L,63514L, +63515L,63516L,63517L,63518L,63519L,63520L,63521L,63522L,63523L,63524L, +63525L,63526L,63527L,63528L,63529L,63530L,63531L,63532L,63533L,63534L, +63535L,63536L,63537L,63538L,63539L,63540L,63541L,63542L,63543L,63544L, +63545L,63546L,63547L,63548L,63549L,63550L,63551L,63552L,63553L,63554L, +63555L,63556L,63557L,63558L,63559L,63560L,63561L,63562L,63563L,63564L, +63565L,63566L,63567L,63568L,63569L,63570L,63571L,63572L,63573L,63574L, +63575L,63576L,63577L,63578L,63579L,63580L,63581L,63582L,63583L,63584L, +63585L,63586L,63587L,63588L,63589L,63590L,63591L,63592L,63593L,63594L, +63595L,63596L,63597L,63598L,63599L,63600L,63601L,63602L,63603L,63604L, +63605L,63606L,63607L,63608L,63609L,63610L,63611L,63612L,63613L,63614L, +63615L,63616L,63617L,63618L,63619L,63620L,63621L,63622L,63623L,63624L, +63625L,63626L,63627L,63628L,63629L,63630L,63631L,63632L,63633L,63634L, +63635L,63636L,63637L,63638L,63639L,63640L,63641L,63642L,63643L,63644L, +63645L,63646L,63647L,63648L,63649L,63650L,63651L,63652L,63653L,63654L, +63655L,63656L,63657L,63658L,63659L,63660L,63661L,63662L,63663L,63664L, +63665L,63666L,63667L,63668L,63669L,63670L,63671L,63672L,63673L,63674L, +63675L,63676L,63677L,63678L,63679L,63680L,63681L,63682L,63683L,63684L, +63685L,63686L,63687L,63688L,63689L,63690L,63691L,63692L,63693L,63694L, +63695L,63696L,63697L,63698L,63699L,63700L,63701L,63702L,63703L,63704L, +63705L,63706L,63707L,63708L,63709L,63710L,63711L,63712L,63713L,63714L, +63715L,63716L,63717L,63718L,63719L,63720L,63721L,63722L,63723L,63724L, +63725L,63726L,63727L,63728L,63729L,63730L,63731L,63732L,63733L,63734L, +63735L,63736L,63737L,63738L,63739L,63740L,63741L,63742L,63743L,63744L, +63745L,63746L,63747L,63748L,63749L,63750L,63751L,63752L,63753L,63754L, +63755L,63756L,63757L,63758L,63759L,63760L,63761L,63762L,63763L,63764L, +63765L,63766L,63767L,63768L,63769L,63770L,63771L,63772L,63773L,63774L, +63775L,63776L,63777L,63778L,63779L,63780L,63781L,63782L,63783L,63784L, +63785L,63786L,63787L,63788L,63789L,63790L,63791L,63792L,63793L,63794L, +63795L,63796L,63797L,63798L,63799L,63800L,63801L,63802L,63803L,63804L, +63805L,63806L,63807L,63808L,63809L,63810L,63811L,63812L,63813L,63814L, +63815L,63816L,63817L,63818L,63819L,63820L,63821L,63822L,63823L,63824L, +63825L,63826L,63827L,63828L,63829L,63830L,63831L,63832L,63833L,63834L, +63835L,63836L,63837L,63838L,63839L,63840L,63841L,63842L,63843L,63844L, +63845L,63846L,63847L,63848L,63849L,63850L,63851L,63852L,63853L,63854L, +63855L,63856L,63857L,63858L,63859L,63860L,63861L,63862L,63863L,63864L, +63865L,63866L,63867L,63868L,63869L,63870L,63871L,63872L,63873L,63874L, +63875L,63876L,63877L,63878L,63879L,63880L,63881L,63882L,63883L,63884L, +63885L,63886L,63887L,63888L,63889L,63890L,63891L,63892L,63893L,63894L, +63895L,63896L,63897L,63898L,63899L,63900L,63901L,63902L,63903L,63904L, +63905L,63906L,63907L,63908L,63909L,63910L,63911L,63912L,63913L,63914L, +63915L,63916L,63917L,63918L,63919L,63920L,63921L,63922L,63923L,63924L, +63925L,63926L,63927L,63928L,63929L,63930L,63931L,63932L,63933L,63934L, +63935L,63936L,63937L,63938L,63939L,63940L,63941L,63942L,63943L,63944L, +63945L,63946L,63947L,63948L,63949L,63950L,63951L,63952L,63953L,63954L, +63955L,63956L,63957L,63958L,63959L,63960L,63961L,63962L,63963L,63964L, +63965L,63966L,63967L,63968L,63969L,63970L,63971L,63972L,63973L,63974L, +63975L,63976L,63977L,63978L,63979L,63980L,63981L,63982L,63983L,63984L, +63985L,63986L,63987L,63988L,63989L,63990L,63991L,63992L,63993L,63994L, +63995L,63996L,63997L,63998L,63999L,64000L,64001L,64002L,64003L,64004L, +64005L,64006L,64007L,64008L,64009L,64010L,64011L,64012L,64013L,64014L, +64015L,64016L,64017L,64018L,64019L,64020L,64021L,64022L,64023L,64024L, +64025L,64026L,64027L,64028L,64029L,64030L,64031L,64032L,64033L,64034L, +64035L,64036L,64037L,64038L,64039L,64040L,64041L,64042L,64043L,64044L, +64045L,64046L,64047L,64048L,64049L,64050L,64051L,64052L,64053L,64054L, +64055L,64056L,64057L,64058L,64059L,64060L,64061L,64062L,64063L,64064L, +64065L,64066L,64067L,64068L,64069L,64070L,64071L,64072L,64073L,64074L, +64075L,64076L,64077L,64078L,64079L,64080L,64081L,64082L,64083L,64084L, +64085L,64086L,64087L,64088L,64089L,64090L,64091L,64092L,64093L,64094L, +64095L,64096L,64097L,64098L,64099L,64100L,64101L,64102L,64103L,64104L, +64105L,64106L,64107L,64108L,64109L,64110L,64111L,64112L,64113L,64114L, +64115L,64116L,64117L,64118L,64119L,64120L,64121L,64122L,64123L,64124L, +64125L,64126L,64127L,64128L,64129L,64130L,64131L,64132L,64133L,64134L, +64135L,64136L,64137L,64138L,64139L,64140L,64141L,64142L,64143L,64144L, +64145L,64146L,64147L,64148L,64149L,64150L,64151L,64152L,64153L,64154L, +64155L,64156L,64157L,64158L,64159L,64160L,64161L,64162L,64163L,64164L, +64165L,64166L,64167L,64168L,64169L,64170L,64171L,64172L,64173L,64174L, +64175L,64176L,64177L,64178L,64179L,64180L,64181L,64182L,64183L,64184L, +64185L,64186L,64187L,64188L,64189L,64190L,64191L,64192L,64193L,64194L, +64195L,64196L,64197L,64198L,64199L,64200L,64201L,64202L,64203L,64204L, +64205L,64206L,64207L,64208L,64209L,64210L,64211L,64212L,64213L,64214L, +64215L,64216L,64217L,64218L,64219L,64220L,64221L,64222L,64223L,64224L, +64225L,64226L,64227L,64228L,64229L,64230L,64231L,64232L,64233L,64234L, +64235L,64236L,64237L,64238L,64239L,64240L,64241L,64242L,64243L,64244L, +64245L,64246L,64247L,64248L,64249L,64250L,64251L,64252L,64253L,64254L, +64255L,64256L,64257L,64258L,64259L,64260L,64261L,64262L,64263L,64264L, +64265L,64266L,64267L,64268L,64269L,64270L,64271L,64272L,64273L,64274L, +64275L,64276L,64277L,64278L,64279L,64280L,64281L,64282L,64283L,64284L, +64285L,64286L,64287L,64288L,64289L,64290L,64291L,64292L,64293L,64294L, +64295L,64296L,64297L,64298L,64299L,64300L,64301L,64302L,64303L,64304L, +64305L,64306L,64307L,64308L,64309L,64310L,64311L,64312L,64313L,64314L, +64315L,64316L,64317L,64318L,64319L,64320L,64321L,64322L,64323L,64324L, +64325L,64326L,64327L,64328L,64329L,64330L,64331L,64332L,64333L,64334L, +64335L,64336L,64337L,64338L,64339L,64340L,64341L,64342L,64343L,64344L, +64345L,64346L,64347L,64348L,64349L,64350L,64351L,64352L,64353L,64354L, +64355L,64356L,64357L,64358L,64359L,64360L,64361L,64362L,64363L,64364L, +64365L,64366L,64367L,64368L,64369L,64370L,64371L,64372L,64373L,64374L, +64375L,64376L,64377L,64378L,64379L,64380L,64381L,64382L,64383L,64384L, +64385L,64386L,64387L,64388L,64389L,64390L,64391L,64392L,64393L,64394L, +64395L,64396L,64397L,64398L,64399L,64400L,64401L,64402L,64403L,64404L, +64405L,64406L,64407L,64408L,64409L,64410L,64411L,64412L,64413L,64414L, +64415L,64416L,64417L,64418L,64419L,64420L,64421L,64422L,64423L,64424L, +64425L,64426L,64427L,64428L,64429L,64430L,64431L,64432L,64433L,64434L, +64435L,64436L,64437L,64438L,64439L,64440L,64441L,64442L,64443L,64444L, +64445L,64446L,64447L,64448L,64449L,64450L,64451L,64452L,64453L,64454L, +64455L,64456L,64457L,64458L,64459L,64460L,64461L,64462L,64463L,64464L, +64465L,64466L,64467L,64468L,64469L,64470L,64471L,64472L,64473L,64474L, +64475L,64476L,64477L,64478L,64479L,64480L,64481L,64482L,64483L,64484L, +64485L,64486L,64487L,64488L,64489L,64490L,64491L,64492L,64493L,64494L, +64495L,64496L,64497L,64498L,64499L,64500L,64501L,64502L,64503L,64504L, +64505L,64506L,64507L,64508L,64509L,64510L,64511L,64512L,64513L,64514L, +64515L,64516L,64517L,64518L,64519L,64520L,64521L,64522L,64523L,64524L, +64525L,64526L,64527L,64528L,64529L,64530L,64531L,64532L,64533L,64534L, +64535L,64536L,64537L,64538L,64539L,64540L,64541L,64542L,64543L,64544L, +64545L,64546L,64547L,64548L,64549L,64550L,64551L,64552L,64553L,64554L, +64555L,64556L,64557L,64558L,64559L,64560L,64561L,64562L,64563L,64564L, +64565L,64566L,64567L,64568L,64569L,64570L,64571L,64572L,64573L,64574L, +64575L,64576L,64577L,64578L,64579L,64580L,64581L,64582L,64583L,64584L, +64585L,64586L,64587L,64588L,64589L,64590L,64591L,64592L,64593L,64594L, +64595L,64596L,64597L,64598L,64599L,64600L,64601L,64602L,64603L,64604L, +64605L,64606L,64607L,64608L,64609L,64610L,64611L,64612L,64613L,64614L, +64615L,64616L,64617L,64618L,64619L,64620L,64621L,64622L,64623L,64624L, +64625L,64626L,64627L,64628L,64629L,64630L,64631L,64632L,64633L,64634L, +64635L,64636L,64637L,64638L,64639L,64640L,64641L,64642L,64643L,64644L, +64645L,64646L,64647L,64648L,64649L,64650L,64651L,64652L,64653L,64654L, +64655L,64656L,64657L,64658L,64659L,64660L,64661L,64662L,64663L,64664L, +64665L,64666L,64667L,64668L,64669L,64670L,64671L,64672L,64673L,64674L, +64675L,64676L,64677L,64678L,64679L,64680L,64681L,64682L,64683L,64684L, +64685L,64686L,64687L,64688L,64689L,64690L,64691L,64692L,64693L,64694L, +64695L,64696L,64697L,64698L,64699L,64700L,64701L,64702L,64703L,64704L, +64705L,64706L,64707L,64708L,64709L,64710L,64711L,64712L,64713L,64714L, +64715L,64716L,64717L,64718L,64719L,64720L,64721L,64722L,64723L,64724L, +64725L,64726L,64727L,64728L,64729L,64730L,64731L,64732L,64733L,64734L, +64735L,64736L,64737L,64738L,64739L,64740L,64741L,64742L,64743L,64744L, +64745L,64746L,64747L,64748L,64749L,64750L,64751L,64752L,64753L,64754L, +64755L,64756L,64757L,64758L,64759L,64760L,64761L,64762L,64763L,64764L, +64765L,64766L,64767L,64768L,64769L,64770L,64771L,64772L,64773L,64774L, +64775L,64776L,64777L,64778L,64779L,64780L,64781L,64782L,64783L,64784L, +64785L,64786L,64787L,64788L,64789L,64790L,64791L,64792L,64793L,64794L, +64795L,64796L,64797L,64798L,64799L,64800L,64801L,64802L,64803L,64804L, +64805L,64806L,64807L,64808L,64809L,64810L,64811L,64812L,64813L,64814L, +64815L,64816L,64817L,64818L,64819L,64820L,64821L,64822L,64823L,64824L, +64825L,64826L,64827L,64828L,64829L,64830L,64831L,64832L,64833L,64834L, +64835L,64836L,64837L,64838L,64839L,64840L,64841L,64842L,64843L,64844L, +64845L,64846L,64847L,64848L,64849L,64850L,64851L,64852L,64853L,64854L, +64855L,64856L,64857L,64858L,64859L,64860L,64861L,64862L,64863L,64864L, +64865L,64866L,64867L,64868L,64869L,64870L,64871L,64872L,64873L,64874L, +64875L,64876L,64877L,64878L,64879L,64880L,64881L,64882L,64883L,64884L, +64885L,64886L,64887L,64888L,64889L,64890L,64891L,64892L,64893L,64894L, +64895L,64896L,64897L,64898L,64899L,64900L,64901L,64902L,64903L,64904L, +64905L,64906L,64907L,64908L,64909L,64910L,64911L,64912L,64913L,64914L, +64915L,64916L,64917L,64918L,64919L,64920L,64921L,64922L,64923L,64924L, +64925L,64926L,64927L,64928L,64929L,64930L,64931L,64932L,64933L,64934L, +64935L,64936L,64937L,64938L,64939L,64940L,64941L,64942L,64943L,64944L, +64945L,64946L,64947L,64948L,64949L,64950L,64951L,64952L,64953L,64954L, +64955L,64956L,64957L,64958L,64959L,64960L,64961L,64962L,64963L,64964L, +64965L,64966L,64967L,64968L,64969L,64970L,64971L,64972L,64973L,64974L, +64975L,64976L,64977L,64978L,64979L,64980L,64981L,64982L,64983L,64984L, +64985L,64986L,64987L,64988L,64989L,64990L,64991L,64992L,64993L,64994L, +64995L,64996L,64997L,64998L,64999L,65000L,65001L,65002L,65003L,65004L, +65005L,65006L,65007L,65008L,65009L,65010L,65011L,65012L,65013L,65014L, +65015L,65016L,65017L,65018L,65019L,65020L,65021L,65022L,65023L,65024L, +65025L,65026L,65027L,65028L,65029L,65030L,65031L,65032L,65033L,65034L, +65035L,65036L,65037L,65038L,65039L,65040L,65041L,65042L,65043L,65044L, +65045L,65046L,65047L,65048L,65049L,65050L,65051L,65052L,65053L,65054L, +65055L,65056L,65057L,65058L,65059L,65060L,65061L,65062L,65063L,65064L, +65065L,65066L,65067L,65068L,65069L,65070L,65071L,65072L,65073L,65074L, +65075L,65076L,65077L,65078L,65079L,65080L,65081L,65082L,65083L,65084L, +65085L,65086L,65087L,65088L,65089L,65090L,65091L,65092L,65093L,65094L, +65095L,65096L,65097L,65098L,65099L,65100L,65101L,65102L,65103L,65104L, +65105L,65106L,65107L,65108L,65109L,65110L,65111L,65112L,65113L,65114L, +65115L,65116L,65117L,65118L,65119L,65120L,65121L,65122L,65123L,65124L, +65125L,65126L,65127L,65128L,65129L,65130L,65131L,65132L,65133L,65134L, +65135L,65136L,65137L,65138L,65139L,65140L,65141L,65142L,65143L,65144L, +65145L,65146L,65147L,65148L,65149L,65150L,65151L,65152L,65153L,65154L, +65155L,65156L,65157L,65158L,65159L,65160L,65161L,65162L,65163L,65164L, +65165L,65166L,65167L,65168L,65169L,65170L,65171L,65172L,65173L,65174L, +65175L,65176L,65177L,65178L,65179L,65180L,65181L,65182L,65183L,65184L, +65185L,65186L,65187L,65188L,65189L,65190L,65191L,65192L,65193L,65194L, +65195L,65196L,65197L,65198L,65199L,65200L,65201L,65202L,65203L,65204L, +65205L,65206L,65207L,65208L,65209L,65210L,65211L,65212L,65213L,65214L, +65215L,65216L,65217L,65218L,65219L,65220L,65221L,65222L,65223L,65224L, +65225L,65226L,65227L,65228L,65229L,65230L,65231L,65232L,65233L,65234L, +65235L,65236L,65237L,65238L,65239L,65240L,65241L,65242L,65243L,65244L, +65245L,65246L,65247L,65248L,65249L,65250L,65251L,65252L,65253L,65254L, +65255L,65256L,65257L,65258L,65259L,65260L,65261L,65262L,65263L,65264L, +65265L,65266L,65267L,65268L,65269L,65270L,65271L,65272L,65273L,65274L, +65275L,65276L,65277L,65278L,65279L,65280L,65281L,65282L,65283L,65284L, +65285L,65286L,65287L,65288L,65289L,65290L,65291L,65292L,65293L,65294L, +65295L,65296L,65297L,65298L,65299L,65300L,65301L,65302L,65303L,65304L, +65305L,65306L,65307L,65308L,65309L,65310L,65311L,65312L,65313L,65314L, +65315L,65316L,65317L,65318L,65319L,65320L,65321L,65322L,65323L,65324L, +65325L,65326L,65327L,65328L,65329L,65330L,65331L,65332L,65333L,65334L, +65335L,65336L,65337L,65338L,65339L,65340L,65341L,65342L,65343L,65344L, +65313L,65314L,65315L,65316L,65317L,65318L,65319L,65320L,65321L,65322L, +65323L,65324L,65325L,65326L,65327L,65328L,65329L,65330L,65331L,65332L, +65333L,65334L,65335L,65336L,65337L,65338L,65371L,65372L,65373L,65374L, +65375L,65376L,65377L,65378L,65379L,65380L,65381L,65382L,65383L,65384L, +65385L,65386L,65387L,65388L,65389L,65390L,65391L,65392L,65393L,65394L, +65395L,65396L,65397L,65398L,65399L,65400L,65401L,65402L,65403L,65404L, +65405L,65406L,65407L,65408L,65409L,65410L,65411L,65412L,65413L,65414L, +65415L,65416L,65417L,65418L,65419L,65420L,65421L,65422L,65423L,65424L, +65425L,65426L,65427L,65428L,65429L,65430L,65431L,65432L,65433L,65434L, +65435L,65436L,65437L,65438L,65439L,65440L,65441L,65442L,65443L,65444L, +65445L,65446L,65447L,65448L,65449L,65450L,65451L,65452L,65453L,65454L, +65455L,65456L,65457L,65458L,65459L,65460L,65461L,65462L,65463L,65464L, +65465L,65466L,65467L,65468L,65469L,65470L,65471L,65472L,65473L,65474L, +65475L,65476L,65477L,65478L,65479L,65480L,65481L,65482L,65483L,65484L, +65485L,65486L,65487L,65488L,65489L,65490L,65491L,65492L,65493L,65494L, +65495L,65496L,65497L,65498L,65499L,65500L,65501L,65502L,65503L,65504L, +65505L,65506L,65507L,65508L,65509L,65510L,65511L,65512L,65513L,65514L, +65515L,65516L,65517L,65518L,65519L,65520L,65521L,65522L,65523L,65524L, +65525L,65526L,65527L,65528L,65529L,65530L,65531L,65532L,65533L,65534L, +65535L, +}; +#endif + +#if defined(DUK_USE_REGEXP_CANON_BITMAP) +/* + * Automatically generated by extract_caseconv.py, do not edit! + */ + +const duk_uint8_t duk_unicode_re_canon_bitmap[256] = { +23,0,224,19,1,228,255,255,255,255,255,255,255,255,255,255,63,254,255,127, +255,255,255,255,255,255,255,255,231,231,0,16,255,227,255,255,63,255,255, +255,255,255,255,255,1,252,255,255,255,255,255,255,255,255,255,255,255,255, +255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255, +255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255, +255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255, +255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255, +255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255, +255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255, +227,129,255,255,255,147,255,255,255,255,255,255,255,255,255,255,255,255, +255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255, +255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255, +255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255, +255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,251, +}; +#endif +#line 1 "duk_util_bitdecoder.c" +/* + * Bitstream decoder. + */ + +/* #include duk_internal.h -> already included */ + +/* Decode 'bits' bits from the input stream (bits must be 1...24). + * When reading past bitstream end, zeroes are shifted in. The result + * is signed to match duk_bd_decode_flagged. + */ +DUK_INTERNAL duk_uint32_t duk_bd_decode(duk_bitdecoder_ctx *ctx, duk_small_int_t bits) { + duk_small_int_t shift; + duk_uint32_t mask; + duk_uint32_t tmp; + + /* Note: cannot read more than 24 bits without possibly shifting top bits out. + * Fixable, but adds complexity. + */ + DUK_ASSERT(bits >= 1 && bits <= 24); + + while (ctx->currbits < bits) { +#if 0 + DUK_DDD(DUK_DDDPRINT("decode_bits: shift more data (bits=%ld, currbits=%ld)", + (long) bits, (long) ctx->currbits)); +#endif + ctx->currval <<= 8; + if (ctx->offset < ctx->length) { + /* If ctx->offset >= ctx->length, we "shift zeroes in" + * instead of croaking. + */ + ctx->currval |= ctx->data[ctx->offset++]; + } + ctx->currbits += 8; + } +#if 0 + DUK_DDD(DUK_DDDPRINT("decode_bits: bits=%ld, currbits=%ld, currval=0x%08lx", + (long) bits, (long) ctx->currbits, (unsigned long) ctx->currval)); +#endif + + /* Extract 'top' bits of currval; note that the extracted bits do not need + * to be cleared, we just ignore them on next round. + */ + shift = ctx->currbits - bits; + mask = (((duk_uint32_t) 1U) << bits) - 1U; + tmp = (ctx->currval >> shift) & mask; + ctx->currbits = shift; /* remaining */ + +#if 0 + DUK_DDD(DUK_DDDPRINT("decode_bits: %ld bits -> 0x%08lx (%ld), currbits=%ld, currval=0x%08lx", + (long) bits, (unsigned long) tmp, (long) tmp, (long) ctx->currbits, (unsigned long) ctx->currval)); +#endif + + return tmp; +} + +DUK_INTERNAL duk_small_uint_t duk_bd_decode_flag(duk_bitdecoder_ctx *ctx) { + return (duk_small_uint_t) duk_bd_decode(ctx, 1); +} + +/* Decode a one-bit flag, and if set, decode a value of 'bits', otherwise return + * default value. + */ +DUK_INTERNAL duk_uint32_t duk_bd_decode_flagged(duk_bitdecoder_ctx *ctx, duk_small_int_t bits, duk_uint32_t def_value) { + if (duk_bd_decode_flag(ctx)) { + return duk_bd_decode(ctx, bits); + } else { + return def_value; + } +} + +/* Signed variant, allows negative marker value. */ +DUK_INTERNAL duk_int32_t duk_bd_decode_flagged_signed(duk_bitdecoder_ctx *ctx, duk_small_int_t bits, duk_int32_t def_value) { + return (duk_int32_t) duk_bd_decode_flagged(ctx, bits, (duk_uint32_t) def_value); +} + +/* Shared varint encoding. Match dukutil.py BitEncode.varuint(). */ +DUK_INTERNAL duk_uint32_t duk_bd_decode_varuint(duk_bitdecoder_ctx *ctx) { + duk_small_uint_t t; + + /* The bit encoding choices here are based on manual testing against + * the actual varuints generated by genbuiltins.py. + */ + switch (duk_bd_decode(ctx, 2)) { + case 0: + return 0; /* [0,0] */ + case 1: + return duk_bd_decode(ctx, 2) + 1; /* [1,4] */ + case 2: + return duk_bd_decode(ctx, 5) + 5; /* [5,36] */ + default: + t = duk_bd_decode(ctx, 7); + if (t == 0) { + return duk_bd_decode(ctx, 20); + } + return (t - 1) + 37; /* [37,163] */ + } +} + +/* Decode a bit packed string from a custom format used by genbuiltins.py. + * This function is here because it's used for both heap and thread inits. + * Caller must supply the output buffer whose size is NOT checked! + */ + +#define DUK__BITPACK_LETTER_LIMIT 26 +#define DUK__BITPACK_LOOKUP1 26 +#define DUK__BITPACK_LOOKUP2 27 +#define DUK__BITPACK_SWITCH1 28 +#define DUK__BITPACK_SWITCH 29 +#define DUK__BITPACK_UNUSED1 30 +#define DUK__BITPACK_EIGHTBIT 31 + +DUK_LOCAL const duk_uint8_t duk__bitpacked_lookup[16] = { + DUK_ASC_0, DUK_ASC_1, DUK_ASC_2, DUK_ASC_3, + DUK_ASC_4, DUK_ASC_5, DUK_ASC_6, DUK_ASC_7, + DUK_ASC_8, DUK_ASC_9, DUK_ASC_UNDERSCORE, DUK_ASC_SPACE, + 0x82, 0x80, DUK_ASC_DOUBLEQUOTE, DUK_ASC_LCURLY +}; + +DUK_INTERNAL duk_small_uint_t duk_bd_decode_bitpacked_string(duk_bitdecoder_ctx *bd, duk_uint8_t *out) { + duk_small_uint_t len; + duk_small_uint_t mode; + duk_small_uint_t t; + duk_small_uint_t i; + + len = duk_bd_decode(bd, 5); + if (len == 31) { + len = duk_bd_decode(bd, 8); /* Support up to 256 bytes; rare. */ + } + + mode = 32; /* 0 = uppercase, 32 = lowercase (= 'a' - 'A') */ + for (i = 0; i < len; i++) { + t = duk_bd_decode(bd, 5); + if (t < DUK__BITPACK_LETTER_LIMIT) { + t = t + DUK_ASC_UC_A + mode; + } else if (t == DUK__BITPACK_LOOKUP1) { + t = duk__bitpacked_lookup[duk_bd_decode(bd, 3)]; + } else if (t == DUK__BITPACK_LOOKUP2) { + t = duk__bitpacked_lookup[8 + duk_bd_decode(bd, 3)]; + } else if (t == DUK__BITPACK_SWITCH1) { + t = duk_bd_decode(bd, 5); + DUK_ASSERT_DISABLE(t >= 0); /* unsigned */ + DUK_ASSERT(t <= 25); + t = t + DUK_ASC_UC_A + (mode ^ 32); + } else if (t == DUK__BITPACK_SWITCH) { + mode = mode ^ 32; + t = duk_bd_decode(bd, 5); + DUK_ASSERT_DISABLE(t >= 0); + DUK_ASSERT(t <= 25); + t = t + DUK_ASC_UC_A + mode; + } else if (t == DUK__BITPACK_EIGHTBIT) { + t = duk_bd_decode(bd, 8); + } + out[i] = (duk_uint8_t) t; + } + + return len; +} + +/* automatic undefs */ +#undef DUK__BITPACK_EIGHTBIT +#undef DUK__BITPACK_LETTER_LIMIT +#undef DUK__BITPACK_LOOKUP1 +#undef DUK__BITPACK_LOOKUP2 +#undef DUK__BITPACK_SWITCH +#undef DUK__BITPACK_SWITCH1 +#undef DUK__BITPACK_UNUSED1 +#line 1 "duk_util_bitencoder.c" +/* + * Bitstream encoder. + */ + +/* #include duk_internal.h -> already included */ + +DUK_INTERNAL void duk_be_encode(duk_bitencoder_ctx *ctx, duk_uint32_t data, duk_small_int_t bits) { + duk_uint8_t tmp; + + DUK_ASSERT(ctx != NULL); + DUK_ASSERT(ctx->currbits < 8); + + /* This limitation would be fixable but adds unnecessary complexity. */ + DUK_ASSERT(bits >= 1 && bits <= 24); + + ctx->currval = (ctx->currval << bits) | data; + ctx->currbits += bits; + + while (ctx->currbits >= 8) { + if (ctx->offset < ctx->length) { + tmp = (duk_uint8_t) ((ctx->currval >> (ctx->currbits - 8)) & 0xff); + ctx->data[ctx->offset++] = tmp; + } else { + /* If buffer has been exhausted, truncate bitstream */ + ctx->truncated = 1; + } + + ctx->currbits -= 8; + } +} + +DUK_INTERNAL void duk_be_finish(duk_bitencoder_ctx *ctx) { + duk_small_int_t npad; + + DUK_ASSERT(ctx != NULL); + DUK_ASSERT(ctx->currbits < 8); + + npad = (duk_small_int_t) (8 - ctx->currbits); + if (npad > 0) { + duk_be_encode(ctx, 0, npad); + } + DUK_ASSERT(ctx->currbits == 0); +} +#line 1 "duk_util_bufwriter.c" +/* + * Fast buffer writer with slack management. + */ + +/* #include duk_internal.h -> already included */ + +/* XXX: Avoid duk_{memcmp,memmove}_unsafe() by imposing a minimum length of + * >0 for the underlying dynamic buffer. + */ + +/* + * Macro support functions (use only macros in calling code) + */ + +DUK_LOCAL void duk__bw_update_ptrs(duk_hthread *thr, duk_bufwriter_ctx *bw_ctx, duk_size_t curr_offset, duk_size_t new_length) { + duk_uint8_t *p; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(bw_ctx != NULL); + DUK_UNREF(thr); + + /* 'p' might be NULL when the underlying buffer is zero size. If so, + * the resulting pointers are not used unsafely. + */ + p = (duk_uint8_t *) DUK_HBUFFER_DYNAMIC_GET_DATA_PTR(thr->heap, bw_ctx->buf); + DUK_ASSERT(p != NULL || (DUK_HBUFFER_DYNAMIC_GET_SIZE(bw_ctx->buf) == 0 && curr_offset == 0 && new_length == 0)); + bw_ctx->p = p + curr_offset; + bw_ctx->p_base = p; + bw_ctx->p_limit = p + new_length; +} + +DUK_INTERNAL void duk_bw_init(duk_hthread *thr, duk_bufwriter_ctx *bw_ctx, duk_hbuffer_dynamic *h_buf) { + DUK_ASSERT(thr != NULL); + DUK_ASSERT(bw_ctx != NULL); + DUK_ASSERT(h_buf != NULL); + + bw_ctx->buf = h_buf; + duk__bw_update_ptrs(thr, bw_ctx, 0, DUK_HBUFFER_DYNAMIC_GET_SIZE(h_buf)); +} + +DUK_INTERNAL void duk_bw_init_pushbuf(duk_hthread *thr, duk_bufwriter_ctx *bw_ctx, duk_size_t buf_size) { + DUK_ASSERT(thr != NULL); + DUK_ASSERT(bw_ctx != NULL); + + (void) duk_push_dynamic_buffer(thr, buf_size); + bw_ctx->buf = (duk_hbuffer_dynamic *) duk_known_hbuffer(thr, -1); + DUK_ASSERT(bw_ctx->buf != NULL); + duk__bw_update_ptrs(thr, bw_ctx, 0, buf_size); +} + +/* Resize target buffer for requested size. Called by the macro only when the + * fast path test (= there is space) fails. + */ +DUK_INTERNAL duk_uint8_t *duk_bw_resize(duk_hthread *thr, duk_bufwriter_ctx *bw_ctx, duk_size_t sz) { + duk_size_t curr_off; + duk_size_t add_sz; + duk_size_t new_sz; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(bw_ctx != NULL); + + /* We could do this operation without caller updating bw_ctx->ptr, + * but by writing it back here we can share code better. + */ + + curr_off = (duk_size_t) (bw_ctx->p - bw_ctx->p_base); + add_sz = (curr_off >> DUK_BW_SLACK_SHIFT) + DUK_BW_SLACK_ADD; + new_sz = curr_off + sz + add_sz; + if (DUK_UNLIKELY(new_sz < curr_off)) { + /* overflow */ + DUK_ERROR_RANGE(thr, DUK_STR_BUFFER_TOO_LONG); + DUK_WO_NORETURN(return NULL;); + } +#if 0 /* for manual torture testing: tight allocation, useful with valgrind */ + new_sz = curr_off + sz; +#endif + + /* This is important to ensure dynamic buffer data pointer is not + * NULL (which is possible if buffer size is zero), which in turn + * causes portability issues with e.g. memmove() and memcpy(). + */ + DUK_ASSERT(new_sz >= 1); + + DUK_DD(DUK_DDPRINT("resize bufferwriter from %ld to %ld (add_sz=%ld)", (long) curr_off, (long) new_sz, (long) add_sz)); + + duk_hbuffer_resize(thr, bw_ctx->buf, new_sz); + duk__bw_update_ptrs(thr, bw_ctx, curr_off, new_sz); + return bw_ctx->p; +} + +/* Make buffer compact, matching current written size. */ +DUK_INTERNAL void duk_bw_compact(duk_hthread *thr, duk_bufwriter_ctx *bw_ctx) { + duk_size_t len; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(bw_ctx != NULL); + DUK_UNREF(thr); + + len = (duk_size_t) (bw_ctx->p - bw_ctx->p_base); + duk_hbuffer_resize(thr, bw_ctx->buf, len); + duk__bw_update_ptrs(thr, bw_ctx, len, len); +} + +DUK_INTERNAL void duk_bw_write_raw_slice(duk_hthread *thr, duk_bufwriter_ctx *bw, duk_size_t src_off, duk_size_t len) { + duk_uint8_t *p_base; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(bw != NULL); + DUK_ASSERT(src_off <= DUK_BW_GET_SIZE(thr, bw)); + DUK_ASSERT(len <= DUK_BW_GET_SIZE(thr, bw)); + DUK_ASSERT(src_off + len <= DUK_BW_GET_SIZE(thr, bw)); + DUK_UNREF(thr); + + p_base = bw->p_base; + duk_memcpy_unsafe((void *) bw->p, + (const void *) (p_base + src_off), + (size_t) len); + bw->p += len; +} + +DUK_INTERNAL void duk_bw_write_ensure_slice(duk_hthread *thr, duk_bufwriter_ctx *bw, duk_size_t src_off, duk_size_t len) { + DUK_ASSERT(thr != NULL); + DUK_ASSERT(bw != NULL); + DUK_ASSERT(src_off <= DUK_BW_GET_SIZE(thr, bw)); + DUK_ASSERT(len <= DUK_BW_GET_SIZE(thr, bw)); + DUK_ASSERT(src_off + len <= DUK_BW_GET_SIZE(thr, bw)); + + DUK_BW_ENSURE(thr, bw, len); + duk_bw_write_raw_slice(thr, bw, src_off, len); +} + +DUK_INTERNAL void duk_bw_insert_raw_bytes(duk_hthread *thr, duk_bufwriter_ctx *bw, duk_size_t dst_off, const duk_uint8_t *buf, duk_size_t len) { + duk_uint8_t *p_base; + duk_size_t buf_sz, move_sz; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(bw != NULL); + DUK_ASSERT(dst_off <= DUK_BW_GET_SIZE(thr, bw)); + DUK_ASSERT(buf != NULL); + DUK_UNREF(thr); + + p_base = bw->p_base; + buf_sz = (duk_size_t) (bw->p - p_base); /* constrained by maximum buffer size */ + move_sz = buf_sz - dst_off; + + DUK_ASSERT(p_base != NULL); /* buffer size is >= 1 */ + duk_memmove_unsafe((void *) (p_base + dst_off + len), + (const void *) (p_base + dst_off), + (size_t) move_sz); + duk_memcpy_unsafe((void *) (p_base + dst_off), + (const void *) buf, + (size_t) len); + bw->p += len; +} + +DUK_INTERNAL void duk_bw_insert_ensure_bytes(duk_hthread *thr, duk_bufwriter_ctx *bw, duk_size_t dst_off, const duk_uint8_t *buf, duk_size_t len) { + DUK_ASSERT(thr != NULL); + DUK_ASSERT(bw != NULL); + DUK_ASSERT(dst_off <= DUK_BW_GET_SIZE(thr, bw)); + DUK_ASSERT(buf != NULL); + + DUK_BW_ENSURE(thr, bw, len); + duk_bw_insert_raw_bytes(thr, bw, dst_off, buf, len); +} + +DUK_INTERNAL void duk_bw_insert_raw_slice(duk_hthread *thr, duk_bufwriter_ctx *bw, duk_size_t dst_off, duk_size_t src_off, duk_size_t len) { + duk_uint8_t *p_base; + duk_size_t buf_sz, move_sz; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(bw != NULL); + DUK_ASSERT(dst_off <= DUK_BW_GET_SIZE(thr, bw)); + DUK_ASSERT(src_off <= DUK_BW_GET_SIZE(thr, bw)); + DUK_ASSERT(len <= DUK_BW_GET_SIZE(thr, bw)); + DUK_ASSERT(src_off + len <= DUK_BW_GET_SIZE(thr, bw)); + DUK_UNREF(thr); + + p_base = bw->p_base; + + /* Don't support "straddled" source now. */ + DUK_ASSERT(dst_off <= src_off || dst_off >= src_off + len); + + if (dst_off <= src_off) { + /* Target is before source. Source offset is expressed as + * a "before change" offset. Account for the memmove. + */ + src_off += len; + } + + buf_sz = (duk_size_t) (bw->p - p_base); + move_sz = buf_sz - dst_off; + + DUK_ASSERT(p_base != NULL); /* buffer size is >= 1 */ + duk_memmove_unsafe((void *) (p_base + dst_off + len), + (const void *) (p_base + dst_off), + (size_t) move_sz); + duk_memcpy_unsafe((void *) (p_base + dst_off), + (const void *) (p_base + src_off), + (size_t) len); + bw->p += len; +} + +DUK_INTERNAL void duk_bw_insert_ensure_slice(duk_hthread *thr, duk_bufwriter_ctx *bw, duk_size_t dst_off, duk_size_t src_off, duk_size_t len) { + DUK_ASSERT(thr != NULL); + DUK_ASSERT(bw != NULL); + DUK_ASSERT(dst_off <= DUK_BW_GET_SIZE(thr, bw)); + DUK_ASSERT(src_off <= DUK_BW_GET_SIZE(thr, bw)); + DUK_ASSERT(len <= DUK_BW_GET_SIZE(thr, bw)); + DUK_ASSERT(src_off + len <= DUK_BW_GET_SIZE(thr, bw)); + + /* Don't support "straddled" source now. */ + DUK_ASSERT(dst_off <= src_off || dst_off >= src_off + len); + + DUK_BW_ENSURE(thr, bw, len); + duk_bw_insert_raw_slice(thr, bw, dst_off, src_off, len); +} + +DUK_INTERNAL duk_uint8_t *duk_bw_insert_raw_area(duk_hthread *thr, duk_bufwriter_ctx *bw, duk_size_t off, duk_size_t len) { + duk_uint8_t *p_base, *p_dst, *p_src; + duk_size_t buf_sz, move_sz; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(bw != NULL); + DUK_ASSERT(off <= DUK_BW_GET_SIZE(thr, bw)); + DUK_UNREF(thr); + + p_base = bw->p_base; + buf_sz = (duk_size_t) (bw->p - p_base); + move_sz = buf_sz - off; + p_dst = p_base + off + len; + p_src = p_base + off; + duk_memmove_unsafe((void *) p_dst, (const void *) p_src, (size_t) move_sz); + return p_src; /* point to start of 'reserved area' */ +} + +DUK_INTERNAL duk_uint8_t *duk_bw_insert_ensure_area(duk_hthread *thr, duk_bufwriter_ctx *bw, duk_size_t off, duk_size_t len) { + DUK_ASSERT(thr != NULL); + DUK_ASSERT(bw != NULL); + DUK_ASSERT(off <= DUK_BW_GET_SIZE(thr, bw)); + + DUK_BW_ENSURE(thr, bw, len); + return duk_bw_insert_raw_area(thr, bw, off, len); +} + +DUK_INTERNAL void duk_bw_remove_raw_slice(duk_hthread *thr, duk_bufwriter_ctx *bw, duk_size_t off, duk_size_t len) { + duk_size_t move_sz; + + duk_uint8_t *p_base; + duk_uint8_t *p_src; + duk_uint8_t *p_dst; + + DUK_ASSERT(thr != NULL); + DUK_ASSERT(bw != NULL); + DUK_ASSERT(off <= DUK_BW_GET_SIZE(thr, bw)); + DUK_ASSERT(len <= DUK_BW_GET_SIZE(thr, bw)); + DUK_ASSERT(off + len <= DUK_BW_GET_SIZE(thr, bw)); + DUK_UNREF(thr); + + p_base = bw->p_base; + p_dst = p_base + off; + p_src = p_dst + len; + move_sz = (duk_size_t) (bw->p - p_src); + duk_memmove_unsafe((void *) p_dst, + (const void *) p_src, + (size_t) move_sz); + bw->p -= len; +} + +/* + * Assertion helpers + */ + +#if defined(DUK_USE_ASSERTIONS) +DUK_INTERNAL void duk_bw_assert_valid(duk_hthread *thr, duk_bufwriter_ctx *bw_ctx) { + DUK_UNREF(thr); + DUK_ASSERT(bw_ctx != NULL); + DUK_ASSERT(bw_ctx->buf != NULL); + DUK_ASSERT((DUK_HBUFFER_DYNAMIC_GET_SIZE(bw_ctx->buf) == 0) || + (bw_ctx->p != NULL && + bw_ctx->p_base != NULL && + bw_ctx->p_limit != NULL && + bw_ctx->p_limit >= bw_ctx->p_base && + bw_ctx->p >= bw_ctx->p_base && + bw_ctx->p <= bw_ctx->p_limit)); +} +#endif +#line 1 "duk_util_cast.c" +/* + * Cast helpers. + * + * C99+ coercion is challenging portability-wise because out-of-range casts + * may invoke implementation defined or even undefined behavior. See e.g. + * http://blog.frama-c.com/index.php?post/2013/10/09/Overflow-float-integer. + * + * Provide explicit cast helpers which try to avoid implementation defined + * or undefined behavior. These helpers can then be simplified in the vast + * majority of cases where the implementation defined or undefined behavior + * is not problematic. + */ + +/* #include duk_internal.h -> already included */ + +/* Portable double-to-integer cast which avoids undefined behavior and avoids + * relying on fmin(), fmax(), or other intrinsics. Out-of-range results are + * not assumed by caller, but here value is clamped, NaN converts to minval. + */ +#define DUK__DOUBLE_INT_CAST1(tname,minval,maxval) do { \ + if (DUK_LIKELY(x >= (duk_double_t) (minval))) { \ + DUK_ASSERT(!DUK_ISNAN(x)); \ + if (DUK_LIKELY(x <= (duk_double_t) (maxval))) { \ + return (tname) x; \ + } else { \ + return (tname) (maxval); \ + } \ + } else { \ + /* NaN or below minval. Since we don't care about the result \ + * for out-of-range values, just return the minimum value for \ + * both. \ + */ \ + return (tname) (minval); \ + } \ + } while (0) + +/* Rely on specific NaN behavior for duk_double_{fmin,fmax}(): if either + * argument is a NaN, return the second argument. This avoids a + * NaN-to-integer cast which is undefined behavior. + */ +#define DUK__DOUBLE_INT_CAST2(tname,minval,maxval) do { \ + return (tname) duk_double_fmin(duk_double_fmax(x, (duk_double_t) (minval)), (duk_double_t) (maxval)); \ + } while (0) + +/* Another solution which doesn't need C99+ behavior for fmin() and fmax(). */ +#define DUK__DOUBLE_INT_CAST3(tname,minval,maxval) do { \ + if (DUK_ISNAN(x)) { \ + /* 0 or any other value is fine. */ \ + return (tname) 0; \ + } else \ + return (tname) DUK_FMIN(DUK_FMAX(x, (duk_double_t) (minval)), (duk_double_t) (maxval)); \ + } \ + } while (0) + +/* C99+ solution: relies on specific fmin() and fmax() behavior in C99: if + * one argument is NaN but the other isn't, the non-NaN argument is returned. + * Because the limits are non-NaN values, explicit NaN check is not needed. + * This may not work on all legacy platforms, and also doesn't seem to inline + * the fmin() and fmax() calls (unless one uses -ffast-math which we don't + * support). + */ +#define DUK__DOUBLE_INT_CAST4(tname,minval,maxval) do { \ + return (tname) DUK_FMIN(DUK_FMAX(x, (duk_double_t) (minval)), (duk_double_t) (maxval)); \ + } while (0) + +DUK_INTERNAL duk_int_t duk_double_to_int_t(duk_double_t x) { +#if defined(DUK_USE_ALLOW_UNDEFINED_BEHAVIOR) + /* Real world solution: almost any practical platform will provide + * an integer value without any guarantees what it is (which is fine). + */ + return (duk_int_t) x; +#else + DUK__DOUBLE_INT_CAST1(duk_int_t, DUK_INT_MIN, DUK_INT_MAX); +#endif +} + +DUK_INTERNAL duk_uint_t duk_double_to_uint_t(duk_double_t x) { +#if defined(DUK_USE_ALLOW_UNDEFINED_BEHAVIOR) + return (duk_uint_t) x; +#else + DUK__DOUBLE_INT_CAST1(duk_uint_t, DUK_UINT_MIN, DUK_UINT_MAX); +#endif +} + +DUK_INTERNAL duk_int32_t duk_double_to_int32_t(duk_double_t x) { +#if defined(DUK_USE_ALLOW_UNDEFINED_BEHAVIOR) + return (duk_int32_t) x; +#else + DUK__DOUBLE_INT_CAST1(duk_int32_t, DUK_INT32_MIN, DUK_INT32_MAX); +#endif +} + +DUK_INTERNAL duk_uint32_t duk_double_to_uint32_t(duk_double_t x) { +#if defined(DUK_USE_ALLOW_UNDEFINED_BEHAVIOR) + return (duk_uint32_t) x; +#else + DUK__DOUBLE_INT_CAST1(duk_uint32_t, DUK_UINT32_MIN, DUK_UINT32_MAX); +#endif +} + +/* Largest IEEE double that doesn't round to infinity in the default rounding + * mode. The exact midpoint between (1 - 2^(-24)) * 2^128 and 2^128 rounds to + * infinity, at least on x64. This number is one double unit below that + * midpoint. See misc/float_cast.c. + */ +#define DUK__FLOAT_ROUND_LIMIT 340282356779733623858607532500980858880.0 + +/* Maximum IEEE float. Double-to-float conversion above this would be out of + * range and thus technically undefined behavior. + */ +#define DUK__FLOAT_MAX 340282346638528859811704183484516925440.0 + +DUK_INTERNAL duk_float_t duk_double_to_float_t(duk_double_t x) { + /* Even a double-to-float cast is technically undefined behavior if + * the double is out-of-range. C99 Section 6.3.1.5: + * + * If the value being converted is in the range of values that can + * be represented but cannot be represented exactly, the result is + * either the nearest higher or nearest lower representable value, + * chosen in an implementation-defined manner. If the value being + * converted is outside the range of values that can be represented, + * the behavior is undefined. + */ +#if defined(DUK_USE_ALLOW_UNDEFINED_BEHAVIOR) + return (duk_float_t) x; +#else + duk_double_t t; + + t = DUK_FABS(x); + DUK_ASSERT((DUK_ISNAN(x) && DUK_ISNAN(t)) || + (!DUK_ISNAN(x) && !DUK_ISNAN(t))); + + if (DUK_LIKELY(t <= DUK__FLOAT_MAX)) { + /* Standard in-range case, try to get here with a minimum + * number of checks and branches. + */ + DUK_ASSERT(!DUK_ISNAN(x)); + return (duk_float_t) x; + } else if (t <= DUK__FLOAT_ROUND_LIMIT) { + /* Out-of-range, but rounds to min/max float. */ + DUK_ASSERT(!DUK_ISNAN(x)); + if (x < 0.0) { + return (duk_float_t) -DUK__FLOAT_MAX; + } else { + return (duk_float_t) DUK__FLOAT_MAX; + } + } else if (DUK_ISNAN(x)) { + /* Assumes double NaN -> float NaN considered "in range". */ + DUK_ASSERT(DUK_ISNAN(x)); + return (duk_float_t) x; + } else { + /* Out-of-range, rounds to +/- Infinity. */ + if (x < 0.0) { + return (duk_float_t) -DUK_DOUBLE_INFINITY; + } else { + return (duk_float_t) DUK_DOUBLE_INFINITY; + } + } +#endif +} + +/* automatic undefs */ +#undef DUK__DOUBLE_INT_CAST1 +#undef DUK__DOUBLE_INT_CAST2 +#undef DUK__DOUBLE_INT_CAST3 +#undef DUK__DOUBLE_INT_CAST4 +#undef DUK__FLOAT_MAX +#undef DUK__FLOAT_ROUND_LIMIT +#line 1 "duk_util_double.c" +/* + * IEEE double helpers. + */ + +/* #include duk_internal.h -> already included */ + +DUK_INTERNAL duk_bool_t duk_double_is_anyinf(duk_double_t x) { + duk_double_union du; + du.d = x; + return DUK_DBLUNION_IS_ANYINF(&du); +} + +DUK_INTERNAL duk_bool_t duk_double_is_posinf(duk_double_t x) { + duk_double_union du; + du.d = x; + return DUK_DBLUNION_IS_POSINF(&du); +} + +DUK_INTERNAL duk_bool_t duk_double_is_neginf(duk_double_t x) { + duk_double_union du; + du.d = x; + return DUK_DBLUNION_IS_NEGINF(&du); +} + +DUK_INTERNAL duk_bool_t duk_double_is_nan(duk_double_t x) { + duk_double_union du; + du.d = x; + /* Assumes we're dealing with a Duktape internal NaN which is + * NaN normalized if duk_tval requires it. + */ + DUK_ASSERT(DUK_DBLUNION_IS_NORMALIZED(&du)); + return DUK_DBLUNION_IS_NAN(&du); +} + +DUK_INTERNAL duk_bool_t duk_double_is_nan_or_zero(duk_double_t x) { + duk_double_union du; + du.d = x; + /* Assumes we're dealing with a Duktape internal NaN which is + * NaN normalized if duk_tval requires it. + */ + DUK_ASSERT(DUK_DBLUNION_IS_NORMALIZED(&du)); + return DUK_DBLUNION_IS_NAN(&du) || DUK_DBLUNION_IS_ANYZERO(&du); +} + +DUK_INTERNAL duk_bool_t duk_double_is_nan_or_inf(duk_double_t x) { + duk_double_union du; + du.d = x; + /* If exponent is 0x7FF the argument is either a NaN or an + * infinity. We don't need to check any other fields. + */ +#if defined(DUK_USE_64BIT_OPS) +#if defined(DUK_USE_DOUBLE_ME) + return (du.ull[DUK_DBL_IDX_ULL0] & DUK_U64_CONSTANT(0x000000007ff00000)) == DUK_U64_CONSTANT(0x000000007ff00000); +#else + return (du.ull[DUK_DBL_IDX_ULL0] & DUK_U64_CONSTANT(0x7ff0000000000000)) == DUK_U64_CONSTANT(0x7ff0000000000000); +#endif +#else + return (du.ui[DUK_DBL_IDX_UI0] & 0x7ff00000UL) == 0x7ff00000UL; +#endif +} + +DUK_INTERNAL duk_bool_t duk_double_is_nan_zero_inf(duk_double_t x) { + duk_double_union du; +#if defined(DUK_USE_64BIT_OPS) + duk_uint64_t t; +#else + duk_uint32_t t; +#endif + du.d = x; +#if defined(DUK_USE_64BIT_OPS) +#if defined(DUK_USE_DOUBLE_ME) + t = du.ull[DUK_DBL_IDX_ULL0] & DUK_U64_CONSTANT(0x000000007ff00000); + if (t == DUK_U64_CONSTANT(0x0000000000000000)) { + t = du.ull[DUK_DBL_IDX_ULL0] & DUK_U64_CONSTANT(0x0000000080000000); + return t == 0; + } + if (t == DUK_U64_CONSTANT(0x000000007ff00000)) { + return 1; + } +#else + t = du.ull[DUK_DBL_IDX_ULL0] & DUK_U64_CONSTANT(0x7ff0000000000000); + if (t == DUK_U64_CONSTANT(0x0000000000000000)) { + t = du.ull[DUK_DBL_IDX_ULL0] & DUK_U64_CONSTANT(0x8000000000000000); + return t == 0; + } + if (t == DUK_U64_CONSTANT(0x7ff0000000000000)) { + return 1; + } +#endif +#else + t = du.ui[DUK_DBL_IDX_UI0] & 0x7ff00000UL; + if (t == 0x00000000UL) { + return DUK_DBLUNION_IS_ANYZERO(&du); + } + if (t == 0x7ff00000UL) { + return 1; + } +#endif + return 0; +} + +DUK_INTERNAL duk_small_uint_t duk_double_signbit(duk_double_t x) { + duk_double_union du; + du.d = x; + return (duk_small_uint_t) DUK_DBLUNION_GET_SIGNBIT(&du); +} + +DUK_INTERNAL duk_double_t duk_double_trunc_towards_zero(duk_double_t x) { + /* XXX: optimize */ + duk_small_uint_t s = duk_double_signbit(x); + x = DUK_FLOOR(DUK_FABS(x)); /* truncate towards zero */ + if (s) { + x = -x; + } + return x; +} + +DUK_INTERNAL duk_bool_t duk_double_same_sign(duk_double_t x, duk_double_t y) { + duk_double_union du1; + duk_double_union du2; + du1.d = x; + du2.d = y; + + return (((du1.ui[DUK_DBL_IDX_UI0] ^ du2.ui[DUK_DBL_IDX_UI0]) & 0x80000000UL) == 0); +} + +DUK_INTERNAL duk_double_t duk_double_fmin(duk_double_t x, duk_double_t y) { + /* Doesn't replicate fmin() behavior exactly: for fmin() if one + * argument is a NaN, the other argument should be returned. + * Duktape doesn't rely on this behavior so the replacement can + * be simplified. + */ + return (x < y ? x : y); +} + +DUK_INTERNAL duk_double_t duk_double_fmax(duk_double_t x, duk_double_t y) { + /* Doesn't replicate fmax() behavior exactly: for fmax() if one + * argument is a NaN, the other argument should be returned. + * Duktape doesn't rely on this behavior so the replacement can + * be simplified. + */ + return (x > y ? x : y); +} + +DUK_INTERNAL duk_bool_t duk_double_is_finite(duk_double_t x) { + return !duk_double_is_nan_or_inf(x); +} + +DUK_INTERNAL duk_bool_t duk_double_is_integer(duk_double_t x) { + if (duk_double_is_nan_or_inf(x)) { + return 0; + } else { + return duk_double_equals(duk_js_tointeger_number(x), x); + } +} + +DUK_INTERNAL duk_bool_t duk_double_is_safe_integer(duk_double_t x) { + /* >>> 2**53-1 + * 9007199254740991 + */ + return duk_double_is_integer(x) && DUK_FABS(x) <= 9007199254740991.0; +} + +/* Check whether a duk_double_t is a whole number in the 32-bit range (reject + * negative zero), and if so, return a duk_int32_t. + * For compiler use: don't allow negative zero as it will cause trouble with + * LDINT+LDINTX, positive zero is OK. + */ +DUK_INTERNAL duk_bool_t duk_is_whole_get_int32_nonegzero(duk_double_t x, duk_int32_t *ival) { + duk_int32_t t; + + t = duk_double_to_int32_t(x); + if (!duk_double_equals((duk_double_t) t, x)) { + return 0; + } + if (t == 0) { + duk_double_union du; + du.d = x; + if (DUK_DBLUNION_HAS_SIGNBIT(&du)) { + return 0; + } + } + *ival = t; + return 1; +} + +/* Check whether a duk_double_t is a whole number in the 32-bit range, and if + * so, return a duk_int32_t. + */ +DUK_INTERNAL duk_bool_t duk_is_whole_get_int32(duk_double_t x, duk_int32_t *ival) { + duk_int32_t t; + + t = duk_double_to_int32_t(x); + if (!duk_double_equals((duk_double_t) t, x)) { + return 0; + } + *ival = t; + return 1; +} + +/* Division: division by zero is undefined behavior (and may in fact trap) + * so it needs special handling for portability. + */ + +DUK_INTERNAL DUK_INLINE duk_double_t duk_double_div(duk_double_t x, duk_double_t y) { +#if !defined(DUK_USE_ALLOW_UNDEFINED_BEHAVIOR) + if (DUK_UNLIKELY(duk_double_equals(y, 0.0) != 0)) { + /* In C99+ division by zero is undefined behavior so + * avoid it entirely. Hopefully the compiler is + * smart enough to avoid emitting any actual code + * because almost all practical platforms behave as + * expected. + */ + if (x > 0.0) { + if (DUK_SIGNBIT(y)) { + return -DUK_DOUBLE_INFINITY; + } else { + return DUK_DOUBLE_INFINITY; + } + } else if (x < 0.0) { + if (DUK_SIGNBIT(y)) { + return DUK_DOUBLE_INFINITY; + } else { + return -DUK_DOUBLE_INFINITY; + } + } else { + /* +/- 0, NaN */ + return DUK_DOUBLE_NAN; + } + } +#endif + + return x / y; +} + +/* Double and float byteorder changes. */ + +DUK_INTERNAL DUK_INLINE void duk_dblunion_host_to_little(duk_double_union *u) { +#if defined(DUK_USE_DOUBLE_LE) + /* HGFEDCBA -> HGFEDCBA */ + DUK_UNREF(u); +#elif defined(DUK_USE_DOUBLE_ME) + duk_uint32_t a, b; + + /* DCBAHGFE -> HGFEDCBA */ + a = u->ui[0]; + b = u->ui[1]; + u->ui[0] = b; + u->ui[1] = a; +#elif defined(DUK_USE_DOUBLE_BE) + /* ABCDEFGH -> HGFEDCBA */ +#if defined(DUK_USE_64BIT_OPS) + u->ull[0] = DUK_BSWAP64(u->ull[0]); +#else + duk_uint32_t a, b; + + a = u->ui[0]; + b = u->ui[1]; + u->ui[0] = DUK_BSWAP32(b); + u->ui[1] = DUK_BSWAP32(a); +#endif +#else +#error internal error +#endif +} + +DUK_INTERNAL DUK_INLINE void duk_dblunion_little_to_host(duk_double_union *u) { + duk_dblunion_host_to_little(u); +} + +DUK_INTERNAL DUK_INLINE void duk_dblunion_host_to_big(duk_double_union *u) { +#if defined(DUK_USE_DOUBLE_LE) + /* HGFEDCBA -> ABCDEFGH */ +#if defined(DUK_USE_64BIT_OPS) + u->ull[0] = DUK_BSWAP64(u->ull[0]); +#else + duk_uint32_t a, b; + + a = u->ui[0]; + b = u->ui[1]; + u->ui[0] = DUK_BSWAP32(b); + u->ui[1] = DUK_BSWAP32(a); +#endif +#elif defined(DUK_USE_DOUBLE_ME) + duk_uint32_t a, b; + + /* DCBAHGFE -> ABCDEFGH */ + a = u->ui[0]; + b = u->ui[1]; + u->ui[0] = DUK_BSWAP32(a); + u->ui[1] = DUK_BSWAP32(b); +#elif defined(DUK_USE_DOUBLE_BE) + /* ABCDEFGH -> ABCDEFGH */ + DUK_UNREF(u); +#else +#error internal error +#endif +} + +DUK_INTERNAL DUK_INLINE void duk_dblunion_big_to_host(duk_double_union *u) { + duk_dblunion_host_to_big(u); +} + +DUK_INTERNAL DUK_INLINE void duk_fltunion_host_to_big(duk_float_union *u) { +#if defined(DUK_USE_DOUBLE_LE) || defined(DUK_USE_DOUBLE_ME) + /* DCBA -> ABCD */ + u->ui[0] = DUK_BSWAP32(u->ui[0]); +#elif defined(DUK_USE_DOUBLE_BE) + /* ABCD -> ABCD */ + DUK_UNREF(u); +#else +#error internal error +#endif +} + +DUK_INTERNAL DUK_INLINE void duk_fltunion_big_to_host(duk_float_union *u) { + duk_fltunion_host_to_big(u); +} + +/* Comparison: ensures comparison operates on exactly correct types, avoiding + * some floating point comparison pitfalls (e.g. atan2() assertions failed on + * -m32 with direct comparison, even with explicit casts). + */ +#if defined(DUK_USE_GCC_PRAGMAS) +#pragma GCC diagnostic push +#pragma GCC diagnostic ignored "-Wfloat-equal" +#elif defined(DUK_USE_CLANG_PRAGMAS) +#pragma clang diagnostic push +#pragma clang diagnostic ignored "-Wfloat-equal" +#endif + +DUK_INTERNAL DUK_ALWAYS_INLINE duk_bool_t duk_double_equals(duk_double_t x, duk_double_t y) { + return x == y; +} + +DUK_INTERNAL DUK_ALWAYS_INLINE duk_bool_t duk_float_equals(duk_float_t x, duk_float_t y) { + return x == y; +} +#if defined(DUK_USE_GCC_PRAGMAS) +#pragma GCC diagnostic pop +#elif defined(DUK_USE_CLANG_PRAGMAS) +#pragma clang diagnostic pop +#endif +#line 1 "duk_util_hashbytes.c" +/* + * Hash function duk_util_hashbytes(). + * + * Currently, 32-bit MurmurHash2. + * + * Don't rely on specific hash values; hash function may be endianness + * dependent, for instance. + */ + +/* #include duk_internal.h -> already included */ + +#if defined(DUK_USE_STRHASH_DENSE) +/* 'magic' constants for Murmurhash2 */ +#define DUK__MAGIC_M ((duk_uint32_t) 0x5bd1e995UL) +#define DUK__MAGIC_R 24 + +DUK_INTERNAL duk_uint32_t duk_util_hashbytes(const duk_uint8_t *data, duk_size_t len, duk_uint32_t seed) { + duk_uint32_t h = seed ^ ((duk_uint32_t) len); + + while (len >= 4) { + /* Portability workaround is required for platforms without + * unaligned access. The replacement code emulates little + * endian access even on big endian architectures, which is + * OK as long as it is consistent for a build. + */ +#if defined(DUK_USE_HASHBYTES_UNALIGNED_U32_ACCESS) + duk_uint32_t k = *((const duk_uint32_t *) (const void *) data); +#else + duk_uint32_t k = ((duk_uint32_t) data[0]) | + (((duk_uint32_t) data[1]) << 8) | + (((duk_uint32_t) data[2]) << 16) | + (((duk_uint32_t) data[3]) << 24); +#endif + + k *= DUK__MAGIC_M; + k ^= k >> DUK__MAGIC_R; + k *= DUK__MAGIC_M; + h *= DUK__MAGIC_M; + h ^= k; + data += 4; + len -= 4; + } + + switch (len) { + case 3: h ^= data[2] << 16; + case 2: h ^= data[1] << 8; + case 1: h ^= data[0]; + h *= DUK__MAGIC_M; + } + + h ^= h >> 13; + h *= DUK__MAGIC_M; + h ^= h >> 15; + + return h; +} +#endif /* DUK_USE_STRHASH_DENSE */ + +/* automatic undefs */ +#undef DUK__MAGIC_M +#undef DUK__MAGIC_R +#line 1 "duk_util_memory.c" +/* + * Memory utils. + */ + +/* #include duk_internal.h -> already included */ + +#if defined(DUK_USE_ALLOW_UNDEFINED_BEHAVIOR) +DUK_INTERNAL DUK_INLINE duk_small_int_t duk_memcmp_unsafe(const void *s1, const void *s2, duk_size_t len) { + DUK_ASSERT(s1 != NULL || len == 0U); + DUK_ASSERT(s2 != NULL || len == 0U); + return DUK_MEMCMP(s1, s2, (size_t) len); +} + +DUK_INTERNAL DUK_INLINE duk_small_int_t duk_memcmp(const void *s1, const void *s2, duk_size_t len) { + DUK_ASSERT(s1 != NULL); + DUK_ASSERT(s2 != NULL); + return DUK_MEMCMP(s1, s2, (size_t) len); +} +#else /* DUK_USE_ALLOW_UNDEFINED_BEHAVIOR */ +DUK_INTERNAL DUK_INLINE duk_small_int_t duk_memcmp_unsafe(const void *s1, const void *s2, duk_size_t len) { + DUK_ASSERT(s1 != NULL || len == 0U); + DUK_ASSERT(s2 != NULL || len == 0U); + if (DUK_UNLIKELY(len == 0U)) { + return 0; + } + DUK_ASSERT(s1 != NULL); + DUK_ASSERT(s2 != NULL); + return duk_memcmp(s1, s2, len); +} + +DUK_INTERNAL DUK_INLINE duk_small_int_t duk_memcmp(const void *s1, const void *s2, duk_size_t len) { + DUK_ASSERT(s1 != NULL); + DUK_ASSERT(s2 != NULL); + return DUK_MEMCMP(s1, s2, (size_t) len); +} +#endif /* DUK_USE_ALLOW_UNDEFINED_BEHAVIOR */ +#line 1 "duk_util_tinyrandom.c" +/* + * A tiny random number generator used for Math.random() and other internals. + * + * Default algorithm is xoroshiro128+: http://xoroshiro.di.unimi.it/xoroshiro128plus.c + * with SplitMix64 seed preparation: http://xorshift.di.unimi.it/splitmix64.c. + * + * Low memory targets and targets without 64-bit types use a slightly smaller + * (but slower) algorithm by Adi Shamir: + * http://www.woodmann.com/forum/archive/index.php/t-3100.html. + * + */ + +/* #include duk_internal.h -> already included */ + +#if !defined(DUK_USE_GET_RANDOM_DOUBLE) + +#if defined(DUK_USE_PREFER_SIZE) || !defined(DUK_USE_64BIT_OPS) +#define DUK__RANDOM_SHAMIR3OP +#else +#define DUK__RANDOM_XOROSHIRO128PLUS +#endif + +#if defined(DUK__RANDOM_SHAMIR3OP) +#define DUK__UPDATE_RND(rnd) do { \ + (rnd) += ((rnd) * (rnd)) | 0x05UL; \ + (rnd) = ((rnd) & 0xffffffffUL); /* if duk_uint32_t is exactly 32 bits, this is a NOP */ \ + } while (0) + +#define DUK__RND_BIT(rnd) ((rnd) >> 31) /* only use the highest bit */ + +DUK_INTERNAL void duk_util_tinyrandom_prepare_seed(duk_hthread *thr) { + DUK_UNREF(thr); /* Nothing now. */ +} + +DUK_INTERNAL duk_double_t duk_util_tinyrandom_get_double(duk_hthread *thr) { + duk_double_t t; + duk_small_int_t n; + duk_uint32_t rnd; + + rnd = thr->heap->rnd_state; + + n = 53; /* enough to cover the whole mantissa */ + t = 0.0; + + do { + DUK__UPDATE_RND(rnd); + t += DUK__RND_BIT(rnd); + t /= 2.0; + } while (--n); + + thr->heap->rnd_state = rnd; + + DUK_ASSERT(t >= (duk_double_t) 0.0); + DUK_ASSERT(t < (duk_double_t) 1.0); + + return t; +} +#endif /* DUK__RANDOM_SHAMIR3OP */ + +#if defined(DUK__RANDOM_XOROSHIRO128PLUS) +DUK_LOCAL DUK_ALWAYS_INLINE duk_uint64_t duk__rnd_splitmix64(duk_uint64_t *x) { + duk_uint64_t z; + z = (*x += DUK_U64_CONSTANT(0x9E3779B97F4A7C15)); + z = (z ^ (z >> 30U)) * DUK_U64_CONSTANT(0xBF58476D1CE4E5B9); + z = (z ^ (z >> 27U)) * DUK_U64_CONSTANT(0x94D049BB133111EB); + return z ^ (z >> 31U); +} + +DUK_LOCAL DUK_ALWAYS_INLINE duk_uint64_t duk__rnd_rotl(const duk_uint64_t x, duk_small_uint_t k) { + return (x << k) | (x >> (64U - k)); +} + +DUK_LOCAL DUK_ALWAYS_INLINE duk_uint64_t duk__xoroshiro128plus(duk_uint64_t *s) { + duk_uint64_t s0; + duk_uint64_t s1; + duk_uint64_t res; + + s0 = s[0]; + s1 = s[1]; + res = s0 + s1; + s1 ^= s0; + s[0] = duk__rnd_rotl(s0, 55) ^ s1 ^ (s1 << 14U); + s[1] = duk__rnd_rotl(s1, 36); + + return res; +} + +DUK_INTERNAL void duk_util_tinyrandom_prepare_seed(duk_hthread *thr) { + duk_small_uint_t i; + duk_uint64_t x; + + /* Mix both halves of the initial seed with SplitMix64. The intent + * is to ensure that very similar raw seeds (which is usually the case + * because current seed is Date.now()) result in different xoroshiro128+ + * seeds. + */ + x = thr->heap->rnd_state[0]; /* Only [0] is used as input here. */ + for (i = 0; i < 64; i++) { + thr->heap->rnd_state[i & 0x01] = duk__rnd_splitmix64(&x); /* Keep last 2 values. */ + } +} + +DUK_INTERNAL duk_double_t duk_util_tinyrandom_get_double(duk_hthread *thr) { + duk_uint64_t v; + duk_double_union du; + + /* For big and little endian the integer and IEEE double byte order + * is the same so a direct assignment works. For mixed endian the + * 32-bit parts must be swapped. + */ + v = (DUK_U64_CONSTANT(0x3ff) << 52U) | (duk__xoroshiro128plus((duk_uint64_t *) thr->heap->rnd_state) >> 12U); + du.ull[0] = v; +#if defined(DUK_USE_DOUBLE_ME) + do { + duk_uint32_t tmp; + tmp = du.ui[0]; + du.ui[0] = du.ui[1]; + du.ui[1] = tmp; + } while (0); +#endif + return du.d - 1.0; +} +#endif /* DUK__RANDOM_XOROSHIRO128PLUS */ + +#endif /* !DUK_USE_GET_RANDOM_DOUBLE */ + +/* automatic undefs */ +#undef DUK__RANDOM_SHAMIR3OP +#undef DUK__RANDOM_XOROSHIRO128PLUS +#undef DUK__RND_BIT +#undef DUK__UPDATE_RND diff --git a/core/src/duktape/duktape.h b/core/src/duktape/duktape.h new file mode 100644 index 0000000..7850c99 --- /dev/null +++ b/core/src/duktape/duktape.h @@ -0,0 +1,1450 @@ +/* + * Duktape public API for Duktape 2.5.0. + * + * See the API reference for documentation on call semantics. The exposed, + * supported API is between the "BEGIN PUBLIC API" and "END PUBLIC API" + * comments. Other parts of the header are Duktape internal and related to + * e.g. platform/compiler/feature detection. + * + * Git commit 6001888049cb42656f8649db020e804bcdeca6a7 (v2.5.0). + * Git branch master. + * + * See Duktape AUTHORS.rst and LICENSE.txt for copyright and + * licensing information. + */ + +/* LICENSE.txt */ +/* + * =============== + * Duktape license + * =============== + * + * (http://opensource.org/licenses/MIT) + * + * Copyright (c) 2013-2019 by Duktape authors (see AUTHORS.rst) + * + * Permission is hereby granted, free of charge, to any person obtaining a copy + * of this software and associated documentation files (the "Software"), to deal + * in the Software without restriction, including without limitation the rights + * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell + * copies of the Software, and to permit persons to whom the Software is + * furnished to do so, subject to the following conditions: + * + * The above copyright notice and this permission notice shall be included in + * all copies or substantial portions of the Software. + * + * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR + * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, + * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE + * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER + * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, + * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN + * THE SOFTWARE. + */ + +/* AUTHORS.rst */ +/* + * =============== + * Duktape authors + * =============== + * + * Copyright + * ========= + * + * Duktape copyrights are held by its authors. Each author has a copyright + * to their contribution, and agrees to irrevocably license the contribution + * under the Duktape ``LICENSE.txt``. + * + * Authors + * ======= + * + * Please include an e-mail address, a link to your GitHub profile, or something + * similar to allow your contribution to be identified accurately. + * + * The following people have contributed code, website contents, or Wiki contents, + * and agreed to irrevocably license their contributions under the Duktape + * ``LICENSE.txt`` (in order of appearance): + * + * * Sami Vaarala + * * Niki Dobrev + * * Andreas \u00d6man + * * L\u00e1szl\u00f3 Lang\u00f3 + * * Legimet + * * Karl Skomski + * * Bruce Pascoe + * * Ren\u00e9 Hollander + * * Julien Hamaide (https://github.com/crazyjul) + * * Sebastian G\u00f6tte (https://github.com/jaseg) + * * Tomasz Magulski (https://github.com/magul) + * * \D. Bohdan (https://github.com/dbohdan) + * * Ond\u0159ej Jirman (https://github.com/megous) + * * Sa\u00fal Ibarra Corretg\u00e9 + * * Jeremy HU + * * Ole Andr\u00e9 Vadla Ravn\u00e5s (https://github.com/oleavr) + * * Harold Brenes (https://github.com/harold-b) + * * Oliver Crow (https://github.com/ocrow) + * * Jakub Ch\u0142api\u0144ski (https://github.com/jchlapinski) + * * Brett Vickers (https://github.com/beevik) + * * Dominik Okwieka (https://github.com/okitec) + * * Remko Tron\u00e7on (https://el-tramo.be) + * * Romero Malaquias (rbsm@ic.ufal.br) + * * Michael Drake + * * Steven Don (https://github.com/shdon) + * * Simon Stone (https://github.com/sstone1) + * * \J. McC. (https://github.com/jmhmccr) + * * Jakub Nowakowski (https://github.com/jimvonmoon) + * * Tommy Nguyen (https://github.com/tn0502) + * * Fabrice Fontaine (https://github.com/ffontaine) + * * Christopher Hiller (https://github.com/boneskull) + * * Gonzalo Diethelm (https://github.com/gonzus) + * * Michal Kasperek (https://github.com/michalkas) + * * Andrew Janke (https://github.com/apjanke) + * * Steve Fan (https://github.com/stevefan1999) + * * Edward Betts (https://github.com/edwardbetts) + * * Ozhan Duz (https://github.com/webfolderio) + * * Akos Kiss (https://github.com/akosthekiss) + * * TheBrokenRail (https://github.com/TheBrokenRail) + * * Jesse Doyle (https://github.com/jessedoyle) + * * Gero Kuehn (https://github.com/dc6jgk) + * * James Swift (https://github.com/phraemer) + * * Luis de Bethencourt (https://github.com/luisbg) + * * Ian Whyman (https://github.com/v00d00) + * * Rick Sayre (https://github.com/whorfin) + * + * Other contributions + * =================== + * + * The following people have contributed something other than code (e.g. reported + * bugs, provided ideas, etc; roughly in order of appearance): + * + * * Greg Burns + * * Anthony Rabine + * * Carlos Costa + * * Aur\u00e9lien Bouilland + * * Preet Desai (Pris Matic) + * * judofyr (http://www.reddit.com/user/judofyr) + * * Jason Woofenden + * * Micha\u0142 Przyby\u015b + * * Anthony Howe + * * Conrad Pankoff + * * Jim Schimpf + * * Rajaran Gaunker (https://github.com/zimbabao) + * * Andreas \u00d6man + * * Doug Sanden + * * Josh Engebretson (https://github.com/JoshEngebretson) + * * Remo Eichenberger (https://github.com/remoe) + * * Mamod Mehyar (https://github.com/mamod) + * * David Demelier (https://github.com/markand) + * * Tim Caswell (https://github.com/creationix) + * * Mitchell Blank Jr (https://github.com/mitchblank) + * * https://github.com/yushli + * * Seo Sanghyeon (https://github.com/sanxiyn) + * * Han ChoongWoo (https://github.com/tunz) + * * Joshua Peek (https://github.com/josh) + * * Bruce E. Pascoe (https://github.com/fatcerberus) + * * https://github.com/Kelledin + * * https://github.com/sstruchtrup + * * Michael Drake (https://github.com/tlsa) + * * https://github.com/chris-y + * * Laurent Zubiaur (https://github.com/lzubiaur) + * * Neil Kolban (https://github.com/nkolban) + * * Wilhelm Wanecek (https://github.com/wanecek) + * * Andrew Janke (https://github.com/apjanke) + * * Unamer (https://github.com/unamer) + * * Karl Dahlke (eklhad@gmail.com) + * + * If you are accidentally missing from this list, send me an e-mail + * (``sami.vaarala@iki.fi``) and I'll fix the omission. + */ + +#if !defined(DUKTAPE_H_INCLUDED) +#define DUKTAPE_H_INCLUDED + +#define DUK_SINGLE_FILE + +/* + * BEGIN PUBLIC API + */ + +/* + * Version and Git commit identification + */ + +/* Duktape version, (major * 10000) + (minor * 100) + patch. Allows C code + * to #if (DUK_VERSION >= NNN) against Duktape API version. The same value + * is also available to ECMAScript code in Duktape.version. Unofficial + * development snapshots have 99 for patch level (e.g. 0.10.99 would be a + * development version after 0.10.0 but before the next official release). + */ +#define DUK_VERSION 20500L + +/* Git commit, describe, and branch for Duktape build. Useful for + * non-official snapshot builds so that application code can easily log + * which Duktape snapshot was used. Not available in the ECMAScript + * environment. + */ +#define DUK_GIT_COMMIT "6001888049cb42656f8649db020e804bcdeca6a7" +#define DUK_GIT_DESCRIBE "v2.5.0" +#define DUK_GIT_BRANCH "master" + +/* External duk_config.h provides platform/compiler/OS dependent + * typedefs and macros, and DUK_USE_xxx config options so that + * the rest of Duktape doesn't need to do any feature detection. + * DUK_VERSION is defined before including so that configuration + * snippets can react to it. + */ +#include "duk_config.h" + +/* + * Avoid C++ name mangling + */ + +#if defined(__cplusplus) +extern "C" { +#endif + +/* + * Some defines forwarded from feature detection + */ + +#undef DUK_API_VARIADIC_MACROS +#if defined(DUK_USE_VARIADIC_MACROS) +#define DUK_API_VARIADIC_MACROS +#endif + +#define DUK_API_NORETURN(decl) DUK_NORETURN(decl) + +/* + * Public API specific typedefs + * + * Many types are wrapped by Duktape for portability to rare platforms + * where e.g. 'int' is a 16-bit type. See practical typing discussion + * in Duktape web documentation. + */ + +struct duk_thread_state; +struct duk_memory_functions; +struct duk_function_list_entry; +struct duk_number_list_entry; +struct duk_time_components; + +/* duk_context is now defined in duk_config.h because it may also be + * referenced there by prototypes. + */ +typedef struct duk_thread_state duk_thread_state; +typedef struct duk_memory_functions duk_memory_functions; +typedef struct duk_function_list_entry duk_function_list_entry; +typedef struct duk_number_list_entry duk_number_list_entry; +typedef struct duk_time_components duk_time_components; + +typedef duk_ret_t (*duk_c_function)(duk_context *ctx); +typedef void *(*duk_alloc_function) (void *udata, duk_size_t size); +typedef void *(*duk_realloc_function) (void *udata, void *ptr, duk_size_t size); +typedef void (*duk_free_function) (void *udata, void *ptr); +typedef void (*duk_fatal_function) (void *udata, const char *msg); +typedef void (*duk_decode_char_function) (void *udata, duk_codepoint_t codepoint); +typedef duk_codepoint_t (*duk_map_char_function) (void *udata, duk_codepoint_t codepoint); +typedef duk_ret_t (*duk_safe_call_function) (duk_context *ctx, void *udata); +typedef duk_size_t (*duk_debug_read_function) (void *udata, char *buffer, duk_size_t length); +typedef duk_size_t (*duk_debug_write_function) (void *udata, const char *buffer, duk_size_t length); +typedef duk_size_t (*duk_debug_peek_function) (void *udata); +typedef void (*duk_debug_read_flush_function) (void *udata); +typedef void (*duk_debug_write_flush_function) (void *udata); +typedef duk_idx_t (*duk_debug_request_function) (duk_context *ctx, void *udata, duk_idx_t nvalues); +typedef void (*duk_debug_detached_function) (duk_context *ctx, void *udata); + +struct duk_thread_state { + /* XXX: Enough space to hold internal suspend/resume structure. + * This is rather awkward and to be fixed when the internal + * structure is visible for the public API header. + */ + char data[128]; +}; + +struct duk_memory_functions { + duk_alloc_function alloc_func; + duk_realloc_function realloc_func; + duk_free_function free_func; + void *udata; +}; + +struct duk_function_list_entry { + const char *key; + duk_c_function value; + duk_idx_t nargs; +}; + +struct duk_number_list_entry { + const char *key; + duk_double_t value; +}; + +struct duk_time_components { + duk_double_t year; /* year, e.g. 2016, ECMAScript year range */ + duk_double_t month; /* month: 1-12 */ + duk_double_t day; /* day: 1-31 */ + duk_double_t hours; /* hour: 0-59 */ + duk_double_t minutes; /* minute: 0-59 */ + duk_double_t seconds; /* second: 0-59 (in POSIX time no leap second) */ + duk_double_t milliseconds; /* may contain sub-millisecond fractions */ + duk_double_t weekday; /* weekday: 0-6, 0=Sunday, 1=Monday, ..., 6=Saturday */ +}; + +/* + * Constants + */ + +/* Duktape debug protocol version used by this build. */ +#define DUK_DEBUG_PROTOCOL_VERSION 2 + +/* Used to represent invalid index; if caller uses this without checking, + * this index will map to a non-existent stack entry. Also used in some + * API calls as a marker to denote "no value". + */ +#define DUK_INVALID_INDEX DUK_IDX_MIN + +/* Indicates that a native function does not have a fixed number of args, + * and the argument stack should not be capped/extended at all. + */ +#define DUK_VARARGS ((duk_int_t) (-1)) + +/* Number of value stack entries (in addition to actual call arguments) + * guaranteed to be allocated on entry to a Duktape/C function. + */ +#define DUK_API_ENTRY_STACK 64U + +/* Value types, used by e.g. duk_get_type() */ +#define DUK_TYPE_MIN 0U +#define DUK_TYPE_NONE 0U /* no value, e.g. invalid index */ +#define DUK_TYPE_UNDEFINED 1U /* ECMAScript undefined */ +#define DUK_TYPE_NULL 2U /* ECMAScript null */ +#define DUK_TYPE_BOOLEAN 3U /* ECMAScript boolean: 0 or 1 */ +#define DUK_TYPE_NUMBER 4U /* ECMAScript number: double */ +#define DUK_TYPE_STRING 5U /* ECMAScript string: CESU-8 / extended UTF-8 encoded */ +#define DUK_TYPE_OBJECT 6U /* ECMAScript object: includes objects, arrays, functions, threads */ +#define DUK_TYPE_BUFFER 7U /* fixed or dynamic, garbage collected byte buffer */ +#define DUK_TYPE_POINTER 8U /* raw void pointer */ +#define DUK_TYPE_LIGHTFUNC 9U /* lightweight function pointer */ +#define DUK_TYPE_MAX 9U + +/* Value mask types, used by e.g. duk_get_type_mask() */ +#define DUK_TYPE_MASK_NONE (1U << DUK_TYPE_NONE) +#define DUK_TYPE_MASK_UNDEFINED (1U << DUK_TYPE_UNDEFINED) +#define DUK_TYPE_MASK_NULL (1U << DUK_TYPE_NULL) +#define DUK_TYPE_MASK_BOOLEAN (1U << DUK_TYPE_BOOLEAN) +#define DUK_TYPE_MASK_NUMBER (1U << DUK_TYPE_NUMBER) +#define DUK_TYPE_MASK_STRING (1U << DUK_TYPE_STRING) +#define DUK_TYPE_MASK_OBJECT (1U << DUK_TYPE_OBJECT) +#define DUK_TYPE_MASK_BUFFER (1U << DUK_TYPE_BUFFER) +#define DUK_TYPE_MASK_POINTER (1U << DUK_TYPE_POINTER) +#define DUK_TYPE_MASK_LIGHTFUNC (1U << DUK_TYPE_LIGHTFUNC) +#define DUK_TYPE_MASK_THROW (1U << 10) /* internal flag value: throw if mask doesn't match */ +#define DUK_TYPE_MASK_PROMOTE (1U << 11) /* internal flag value: promote to object if mask matches */ + +/* Coercion hints */ +#define DUK_HINT_NONE 0 /* prefer number, unless input is a Date, in which + * case prefer string (E5 Section 8.12.8) + */ +#define DUK_HINT_STRING 1 /* prefer string */ +#define DUK_HINT_NUMBER 2 /* prefer number */ + +/* Enumeration flags for duk_enum() */ +#define DUK_ENUM_INCLUDE_NONENUMERABLE (1U << 0) /* enumerate non-numerable properties in addition to enumerable */ +#define DUK_ENUM_INCLUDE_HIDDEN (1U << 1) /* enumerate hidden symbols too (in Duktape 1.x called internal properties) */ +#define DUK_ENUM_INCLUDE_SYMBOLS (1U << 2) /* enumerate symbols */ +#define DUK_ENUM_EXCLUDE_STRINGS (1U << 3) /* exclude strings */ +#define DUK_ENUM_OWN_PROPERTIES_ONLY (1U << 4) /* don't walk prototype chain, only check own properties */ +#define DUK_ENUM_ARRAY_INDICES_ONLY (1U << 5) /* only enumerate array indices */ +/* XXX: misleading name */ +#define DUK_ENUM_SORT_ARRAY_INDICES (1U << 6) /* sort array indices (applied to full enumeration result, including inherited array indices); XXX: misleading name */ +#define DUK_ENUM_NO_PROXY_BEHAVIOR (1U << 7) /* enumerate a proxy object itself without invoking proxy behavior */ + +/* Compilation flags for duk_compile() and duk_eval() */ +/* DUK_COMPILE_xxx bits 0-2 are reserved for an internal 'nargs' argument. + */ +#define DUK_COMPILE_EVAL (1U << 3) /* compile eval code (instead of global code) */ +#define DUK_COMPILE_FUNCTION (1U << 4) /* compile function code (instead of global code) */ +#define DUK_COMPILE_STRICT (1U << 5) /* use strict (outer) context for global, eval, or function code */ +#define DUK_COMPILE_SHEBANG (1U << 6) /* allow shebang ('#! ...') comment on first line of source */ +#define DUK_COMPILE_SAFE (1U << 7) /* (internal) catch compilation errors */ +#define DUK_COMPILE_NORESULT (1U << 8) /* (internal) omit eval result */ +#define DUK_COMPILE_NOSOURCE (1U << 9) /* (internal) no source string on stack */ +#define DUK_COMPILE_STRLEN (1U << 10) /* (internal) take strlen() of src_buffer (avoids double evaluation in macro) */ +#define DUK_COMPILE_NOFILENAME (1U << 11) /* (internal) no filename on stack */ +#define DUK_COMPILE_FUNCEXPR (1U << 12) /* (internal) source is a function expression (used for Function constructor) */ + +/* Flags for duk_def_prop() and its variants; base flags + a lot of convenience shorthands */ +#define DUK_DEFPROP_WRITABLE (1U << 0) /* set writable (effective if DUK_DEFPROP_HAVE_WRITABLE set) */ +#define DUK_DEFPROP_ENUMERABLE (1U << 1) /* set enumerable (effective if DUK_DEFPROP_HAVE_ENUMERABLE set) */ +#define DUK_DEFPROP_CONFIGURABLE (1U << 2) /* set configurable (effective if DUK_DEFPROP_HAVE_CONFIGURABLE set) */ +#define DUK_DEFPROP_HAVE_WRITABLE (1U << 3) /* set/clear writable */ +#define DUK_DEFPROP_HAVE_ENUMERABLE (1U << 4) /* set/clear enumerable */ +#define DUK_DEFPROP_HAVE_CONFIGURABLE (1U << 5) /* set/clear configurable */ +#define DUK_DEFPROP_HAVE_VALUE (1U << 6) /* set value (given on value stack) */ +#define DUK_DEFPROP_HAVE_GETTER (1U << 7) /* set getter (given on value stack) */ +#define DUK_DEFPROP_HAVE_SETTER (1U << 8) /* set setter (given on value stack) */ +#define DUK_DEFPROP_FORCE (1U << 9) /* force change if possible, may still fail for e.g. virtual properties */ +#define DUK_DEFPROP_SET_WRITABLE (DUK_DEFPROP_HAVE_WRITABLE | DUK_DEFPROP_WRITABLE) +#define DUK_DEFPROP_CLEAR_WRITABLE DUK_DEFPROP_HAVE_WRITABLE +#define DUK_DEFPROP_SET_ENUMERABLE (DUK_DEFPROP_HAVE_ENUMERABLE | DUK_DEFPROP_ENUMERABLE) +#define DUK_DEFPROP_CLEAR_ENUMERABLE DUK_DEFPROP_HAVE_ENUMERABLE +#define DUK_DEFPROP_SET_CONFIGURABLE (DUK_DEFPROP_HAVE_CONFIGURABLE | DUK_DEFPROP_CONFIGURABLE) +#define DUK_DEFPROP_CLEAR_CONFIGURABLE DUK_DEFPROP_HAVE_CONFIGURABLE +#define DUK_DEFPROP_W DUK_DEFPROP_WRITABLE +#define DUK_DEFPROP_E DUK_DEFPROP_ENUMERABLE +#define DUK_DEFPROP_C DUK_DEFPROP_CONFIGURABLE +#define DUK_DEFPROP_WE (DUK_DEFPROP_WRITABLE | DUK_DEFPROP_ENUMERABLE) +#define DUK_DEFPROP_WC (DUK_DEFPROP_WRITABLE | DUK_DEFPROP_CONFIGURABLE) +#define DUK_DEFPROP_EC (DUK_DEFPROP_ENUMERABLE | DUK_DEFPROP_CONFIGURABLE) +#define DUK_DEFPROP_WEC (DUK_DEFPROP_WRITABLE | DUK_DEFPROP_ENUMERABLE | DUK_DEFPROP_CONFIGURABLE) +#define DUK_DEFPROP_HAVE_W DUK_DEFPROP_HAVE_WRITABLE +#define DUK_DEFPROP_HAVE_E DUK_DEFPROP_HAVE_ENUMERABLE +#define DUK_DEFPROP_HAVE_C DUK_DEFPROP_HAVE_CONFIGURABLE +#define DUK_DEFPROP_HAVE_WE (DUK_DEFPROP_HAVE_WRITABLE | DUK_DEFPROP_HAVE_ENUMERABLE) +#define DUK_DEFPROP_HAVE_WC (DUK_DEFPROP_HAVE_WRITABLE | DUK_DEFPROP_HAVE_CONFIGURABLE) +#define DUK_DEFPROP_HAVE_EC (DUK_DEFPROP_HAVE_ENUMERABLE | DUK_DEFPROP_HAVE_CONFIGURABLE) +#define DUK_DEFPROP_HAVE_WEC (DUK_DEFPROP_HAVE_WRITABLE | DUK_DEFPROP_HAVE_ENUMERABLE | DUK_DEFPROP_HAVE_CONFIGURABLE) +#define DUK_DEFPROP_SET_W DUK_DEFPROP_SET_WRITABLE +#define DUK_DEFPROP_SET_E DUK_DEFPROP_SET_ENUMERABLE +#define DUK_DEFPROP_SET_C DUK_DEFPROP_SET_CONFIGURABLE +#define DUK_DEFPROP_SET_WE (DUK_DEFPROP_SET_WRITABLE | DUK_DEFPROP_SET_ENUMERABLE) +#define DUK_DEFPROP_SET_WC (DUK_DEFPROP_SET_WRITABLE | DUK_DEFPROP_SET_CONFIGURABLE) +#define DUK_DEFPROP_SET_EC (DUK_DEFPROP_SET_ENUMERABLE | DUK_DEFPROP_SET_CONFIGURABLE) +#define DUK_DEFPROP_SET_WEC (DUK_DEFPROP_SET_WRITABLE | DUK_DEFPROP_SET_ENUMERABLE | DUK_DEFPROP_SET_CONFIGURABLE) +#define DUK_DEFPROP_CLEAR_W DUK_DEFPROP_CLEAR_WRITABLE +#define DUK_DEFPROP_CLEAR_E DUK_DEFPROP_CLEAR_ENUMERABLE +#define DUK_DEFPROP_CLEAR_C DUK_DEFPROP_CLEAR_CONFIGURABLE +#define DUK_DEFPROP_CLEAR_WE (DUK_DEFPROP_CLEAR_WRITABLE | DUK_DEFPROP_CLEAR_ENUMERABLE) +#define DUK_DEFPROP_CLEAR_WC (DUK_DEFPROP_CLEAR_WRITABLE | DUK_DEFPROP_CLEAR_CONFIGURABLE) +#define DUK_DEFPROP_CLEAR_EC (DUK_DEFPROP_CLEAR_ENUMERABLE | DUK_DEFPROP_CLEAR_CONFIGURABLE) +#define DUK_DEFPROP_CLEAR_WEC (DUK_DEFPROP_CLEAR_WRITABLE | DUK_DEFPROP_CLEAR_ENUMERABLE | DUK_DEFPROP_CLEAR_CONFIGURABLE) +#define DUK_DEFPROP_ATTR_W (DUK_DEFPROP_HAVE_WEC | DUK_DEFPROP_W) +#define DUK_DEFPROP_ATTR_E (DUK_DEFPROP_HAVE_WEC | DUK_DEFPROP_E) +#define DUK_DEFPROP_ATTR_C (DUK_DEFPROP_HAVE_WEC | DUK_DEFPROP_C) +#define DUK_DEFPROP_ATTR_WE (DUK_DEFPROP_HAVE_WEC | DUK_DEFPROP_WE) +#define DUK_DEFPROP_ATTR_WC (DUK_DEFPROP_HAVE_WEC | DUK_DEFPROP_WC) +#define DUK_DEFPROP_ATTR_EC (DUK_DEFPROP_HAVE_WEC | DUK_DEFPROP_EC) +#define DUK_DEFPROP_ATTR_WEC (DUK_DEFPROP_HAVE_WEC | DUK_DEFPROP_WEC) + +/* Flags for duk_push_thread_raw() */ +#define DUK_THREAD_NEW_GLOBAL_ENV (1U << 0) /* create a new global environment */ + +/* Flags for duk_gc() */ +#define DUK_GC_COMPACT (1U << 0) /* compact heap objects */ + +/* Error codes (must be 8 bits at most, see duk_error.h) */ +#define DUK_ERR_NONE 0 /* no error (e.g. from duk_get_error_code()) */ +#define DUK_ERR_ERROR 1 /* Error */ +#define DUK_ERR_EVAL_ERROR 2 /* EvalError */ +#define DUK_ERR_RANGE_ERROR 3 /* RangeError */ +#define DUK_ERR_REFERENCE_ERROR 4 /* ReferenceError */ +#define DUK_ERR_SYNTAX_ERROR 5 /* SyntaxError */ +#define DUK_ERR_TYPE_ERROR 6 /* TypeError */ +#define DUK_ERR_URI_ERROR 7 /* URIError */ + +/* Return codes for C functions (shortcut for throwing an error) */ +#define DUK_RET_ERROR (-DUK_ERR_ERROR) +#define DUK_RET_EVAL_ERROR (-DUK_ERR_EVAL_ERROR) +#define DUK_RET_RANGE_ERROR (-DUK_ERR_RANGE_ERROR) +#define DUK_RET_REFERENCE_ERROR (-DUK_ERR_REFERENCE_ERROR) +#define DUK_RET_SYNTAX_ERROR (-DUK_ERR_SYNTAX_ERROR) +#define DUK_RET_TYPE_ERROR (-DUK_ERR_TYPE_ERROR) +#define DUK_RET_URI_ERROR (-DUK_ERR_URI_ERROR) + +/* Return codes for protected calls (duk_safe_call(), duk_pcall()) */ +#define DUK_EXEC_SUCCESS 0 +#define DUK_EXEC_ERROR 1 + +/* Debug levels for DUK_USE_DEBUG_WRITE(). */ +#define DUK_LEVEL_DEBUG 0 +#define DUK_LEVEL_DDEBUG 1 +#define DUK_LEVEL_DDDEBUG 2 + +/* + * Macros to create Symbols as C statically constructed strings. + * + * Call e.g. as DUK_HIDDEN_SYMBOL("myProperty") <=> ("\xFF" "myProperty"). + * + * Local symbols have a unique suffix, caller should take care to avoid + * conflicting with the Duktape internal representation by e.g. prepending + * a '!' character: DUK_LOCAL_SYMBOL("myLocal", "!123"). + * + * Note that these can only be used for string constants, not dynamically + * created strings. + * + * You shouldn't normally use DUK_INTERNAL_SYMBOL() at all. It is reserved + * for Duktape internal symbols only. There are no versioning guarantees + * for internal symbols. + */ + +#define DUK_HIDDEN_SYMBOL(x) ("\xFF" x) +#define DUK_GLOBAL_SYMBOL(x) ("\x80" x) +#define DUK_LOCAL_SYMBOL(x,uniq) ("\x81" x "\xff" uniq) +#define DUK_WELLKNOWN_SYMBOL(x) ("\x81" x "\xff") +#define DUK_INTERNAL_SYMBOL(x) ("\x82" x) + +/* + * If no variadic macros, __FILE__ and __LINE__ are passed through globals + * which is ugly and not thread safe. + */ + +#if !defined(DUK_API_VARIADIC_MACROS) +DUK_EXTERNAL_DECL const char *duk_api_global_filename; +DUK_EXTERNAL_DECL duk_int_t duk_api_global_line; +#endif + +/* + * Context management + */ + +DUK_EXTERNAL_DECL +duk_context *duk_create_heap(duk_alloc_function alloc_func, + duk_realloc_function realloc_func, + duk_free_function free_func, + void *heap_udata, + duk_fatal_function fatal_handler); +DUK_EXTERNAL_DECL void duk_destroy_heap(duk_context *ctx); + +DUK_EXTERNAL_DECL void duk_suspend(duk_context *ctx, duk_thread_state *state); +DUK_EXTERNAL_DECL void duk_resume(duk_context *ctx, const duk_thread_state *state); + +#define duk_create_heap_default() \ + duk_create_heap(NULL, NULL, NULL, NULL, NULL) + +/* + * Memory management + * + * Raw functions have no side effects (cannot trigger GC). + */ + +DUK_EXTERNAL_DECL void *duk_alloc_raw(duk_context *ctx, duk_size_t size); +DUK_EXTERNAL_DECL void duk_free_raw(duk_context *ctx, void *ptr); +DUK_EXTERNAL_DECL void *duk_realloc_raw(duk_context *ctx, void *ptr, duk_size_t size); +DUK_EXTERNAL_DECL void *duk_alloc(duk_context *ctx, duk_size_t size); +DUK_EXTERNAL_DECL void duk_free(duk_context *ctx, void *ptr); +DUK_EXTERNAL_DECL void *duk_realloc(duk_context *ctx, void *ptr, duk_size_t size); +DUK_EXTERNAL_DECL void duk_get_memory_functions(duk_context *ctx, duk_memory_functions *out_funcs); +DUK_EXTERNAL_DECL void duk_gc(duk_context *ctx, duk_uint_t flags); + +/* + * Error handling + */ + +DUK_API_NORETURN(DUK_EXTERNAL_DECL void duk_throw_raw(duk_context *ctx)); +#define duk_throw(ctx) \ + (duk_throw_raw((ctx)), (duk_ret_t) 0) +DUK_API_NORETURN(DUK_EXTERNAL_DECL void duk_fatal_raw(duk_context *ctx, const char *err_msg)); +#define duk_fatal(ctx,err_msg) \ + (duk_fatal_raw((ctx), (err_msg)), (duk_ret_t) 0) +DUK_API_NORETURN(DUK_EXTERNAL_DECL void duk_error_raw(duk_context *ctx, duk_errcode_t err_code, const char *filename, duk_int_t line, const char *fmt, ...)); + +#if defined(DUK_API_VARIADIC_MACROS) +#define duk_error(ctx,err_code,...) \ + (duk_error_raw((ctx), (duk_errcode_t) (err_code), (const char *) (DUK_FILE_MACRO), (duk_int_t) (DUK_LINE_MACRO), __VA_ARGS__), (duk_ret_t) 0) +#define duk_generic_error(ctx,...) \ + (duk_error_raw((ctx), (duk_errcode_t) DUK_ERR_ERROR, (const char *) (DUK_FILE_MACRO), (duk_int_t) (DUK_LINE_MACRO), __VA_ARGS__), (duk_ret_t) 0) +#define duk_eval_error(ctx,...) \ + (duk_error_raw((ctx), (duk_errcode_t) DUK_ERR_EVAL_ERROR, (const char *) (DUK_FILE_MACRO), (duk_int_t) (DUK_LINE_MACRO), __VA_ARGS__), (duk_ret_t) 0) +#define duk_range_error(ctx,...) \ + (duk_error_raw((ctx), (duk_errcode_t) DUK_ERR_RANGE_ERROR, (const char *) (DUK_FILE_MACRO), (duk_int_t) (DUK_LINE_MACRO), __VA_ARGS__), (duk_ret_t) 0) +#define duk_reference_error(ctx,...) \ + (duk_error_raw((ctx), (duk_errcode_t) DUK_ERR_REFERENCE_ERROR, (const char *) (DUK_FILE_MACRO), (duk_int_t) (DUK_LINE_MACRO), __VA_ARGS__), (duk_ret_t) 0) +#define duk_syntax_error(ctx,...) \ + (duk_error_raw((ctx), (duk_errcode_t) DUK_ERR_SYNTAX_ERROR, (const char *) (DUK_FILE_MACRO), (duk_int_t) (DUK_LINE_MACRO), __VA_ARGS__), (duk_ret_t) 0) +#define duk_type_error(ctx,...) \ + (duk_error_raw((ctx), (duk_errcode_t) DUK_ERR_TYPE_ERROR, (const char *) (DUK_FILE_MACRO), (duk_int_t) (DUK_LINE_MACRO), __VA_ARGS__), (duk_ret_t) 0) +#define duk_uri_error(ctx,...) \ + (duk_error_raw((ctx), (duk_errcode_t) DUK_ERR_URI_ERROR, (const char *) (DUK_FILE_MACRO), (duk_int_t) (DUK_LINE_MACRO), __VA_ARGS__), (duk_ret_t) 0) +#else /* DUK_API_VARIADIC_MACROS */ +/* For legacy compilers without variadic macros a macro hack is used to allow + * variable arguments. While the macro allows "return duk_error(...)", it + * will fail with e.g. "(void) duk_error(...)". The calls are noreturn but + * with a return value to allow the "return duk_error(...)" idiom. This may + * cause some compiler warnings, but without noreturn the generated code is + * often worse. The same approach as with variadic macros (using + * "(duk_error(...), 0)") won't work due to the macro hack structure. + */ +DUK_API_NORETURN(DUK_EXTERNAL_DECL duk_ret_t duk_error_stash(duk_context *ctx, duk_errcode_t err_code, const char *fmt, ...)); +DUK_API_NORETURN(DUK_EXTERNAL_DECL duk_ret_t duk_generic_error_stash(duk_context *ctx, const char *fmt, ...)); +DUK_API_NORETURN(DUK_EXTERNAL_DECL duk_ret_t duk_eval_error_stash(duk_context *ctx, const char *fmt, ...)); +DUK_API_NORETURN(DUK_EXTERNAL_DECL duk_ret_t duk_range_error_stash(duk_context *ctx, const char *fmt, ...)); +DUK_API_NORETURN(DUK_EXTERNAL_DECL duk_ret_t duk_reference_error_stash(duk_context *ctx, const char *fmt, ...)); +DUK_API_NORETURN(DUK_EXTERNAL_DECL duk_ret_t duk_syntax_error_stash(duk_context *ctx, const char *fmt, ...)); +DUK_API_NORETURN(DUK_EXTERNAL_DECL duk_ret_t duk_type_error_stash(duk_context *ctx, const char *fmt, ...)); +DUK_API_NORETURN(DUK_EXTERNAL_DECL duk_ret_t duk_uri_error_stash(duk_context *ctx, const char *fmt, ...)); +#define duk_error \ + (duk_api_global_filename = (const char *) (DUK_FILE_MACRO), \ + duk_api_global_line = (duk_int_t) (DUK_LINE_MACRO), \ + duk_error_stash) /* last value is func pointer, arguments follow in parens */ +#define duk_generic_error \ + (duk_api_global_filename = (const char *) (DUK_FILE_MACRO), \ + duk_api_global_line = (duk_int_t) (DUK_LINE_MACRO), \ + duk_generic_error_stash) +#define duk_eval_error \ + (duk_api_global_filename = (const char *) (DUK_FILE_MACRO), \ + duk_api_global_line = (duk_int_t) (DUK_LINE_MACRO), \ + duk_eval_error_stash) +#define duk_range_error \ + (duk_api_global_filename = (const char *) (DUK_FILE_MACRO), \ + duk_api_global_line = (duk_int_t) (DUK_LINE_MACRO), \ + duk_range_error_stash) +#define duk_reference_error \ + (duk_api_global_filename = (const char *) (DUK_FILE_MACRO), \ + duk_api_global_line = (duk_int_t) (DUK_LINE_MACRO), \ + duk_reference_error_stash) +#define duk_syntax_error \ + (duk_api_global_filename = (const char *) (DUK_FILE_MACRO), \ + duk_api_global_line = (duk_int_t) (DUK_LINE_MACRO), \ + duk_syntax_error_stash) +#define duk_type_error \ + (duk_api_global_filename = (const char *) (DUK_FILE_MACRO), \ + duk_api_global_line = (duk_int_t) (DUK_LINE_MACRO), \ + duk_type_error_stash) +#define duk_uri_error \ + (duk_api_global_filename = (const char *) (DUK_FILE_MACRO), \ + duk_api_global_line = (duk_int_t) (DUK_LINE_MACRO), \ + duk_uri_error_stash) +#endif /* DUK_API_VARIADIC_MACROS */ + +DUK_API_NORETURN(DUK_EXTERNAL_DECL void duk_error_va_raw(duk_context *ctx, duk_errcode_t err_code, const char *filename, duk_int_t line, const char *fmt, va_list ap)); + +#define duk_error_va(ctx,err_code,fmt,ap) \ + (duk_error_va_raw((ctx), (duk_errcode_t) (err_code), (const char *) (DUK_FILE_MACRO), (duk_int_t) (DUK_LINE_MACRO), (fmt), (ap)), (duk_ret_t) 0) +#define duk_generic_error_va(ctx,fmt,ap) \ + (duk_error_va_raw((ctx), (duk_errcode_t) DUK_ERR_ERROR, (const char *) (DUK_FILE_MACRO), (duk_int_t) (DUK_LINE_MACRO), (fmt), (ap)), (duk_ret_t) 0) +#define duk_eval_error_va(ctx,fmt,ap) \ + (duk_error_va_raw((ctx), (duk_errcode_t) DUK_ERR_EVAL_ERROR, (const char *) (DUK_FILE_MACRO), (duk_int_t) (DUK_LINE_MACRO), (fmt), (ap)), (duk_ret_t) 0) +#define duk_range_error_va(ctx,fmt,ap) \ + (duk_error_va_raw((ctx), (duk_errcode_t) DUK_ERR_RANGE_ERROR, (const char *) (DUK_FILE_MACRO), (duk_int_t) (DUK_LINE_MACRO), (fmt), (ap)), (duk_ret_t) 0) +#define duk_reference_error_va(ctx,fmt,ap) \ + (duk_error_va_raw((ctx), (duk_errcode_t) DUK_ERR_REFERENCE_ERROR, (const char *) (DUK_FILE_MACRO), (duk_int_t) (DUK_LINE_MACRO), (fmt), (ap)), (duk_ret_t) 0) +#define duk_syntax_error_va(ctx,fmt,ap) \ + (duk_error_va_raw((ctx), (duk_errcode_t) DUK_ERR_SYNTAX_ERROR, (const char *) (DUK_FILE_MACRO), (duk_int_t) (DUK_LINE_MACRO), (fmt), (ap)), (duk_ret_t) 0) +#define duk_type_error_va(ctx,fmt,ap) \ + (duk_error_va_raw((ctx), (duk_errcode_t) DUK_ERR_TYPE_ERROR, (const char *) (DUK_FILE_MACRO), (duk_int_t) (DUK_LINE_MACRO), (fmt), (ap)), (duk_ret_t) 0) +#define duk_uri_error_va(ctx,fmt,ap) \ + (duk_error_va_raw((ctx), (duk_errcode_t) DUK_ERR_URI_ERROR, (const char *) (DUK_FILE_MACRO), (duk_int_t) (DUK_LINE_MACRO), (fmt), (ap)), (duk_ret_t) 0) + +/* + * Other state related functions + */ + +DUK_EXTERNAL_DECL duk_bool_t duk_is_strict_call(duk_context *ctx); +DUK_EXTERNAL_DECL duk_bool_t duk_is_constructor_call(duk_context *ctx); + +/* + * Stack management + */ + +DUK_EXTERNAL_DECL duk_idx_t duk_normalize_index(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL duk_idx_t duk_require_normalize_index(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL duk_bool_t duk_is_valid_index(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL void duk_require_valid_index(duk_context *ctx, duk_idx_t idx); + +DUK_EXTERNAL_DECL duk_idx_t duk_get_top(duk_context *ctx); +DUK_EXTERNAL_DECL void duk_set_top(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL duk_idx_t duk_get_top_index(duk_context *ctx); +DUK_EXTERNAL_DECL duk_idx_t duk_require_top_index(duk_context *ctx); + +/* Although extra/top could be an unsigned type here, using a signed type + * makes the API more robust to calling code calculation errors or corner + * cases (where caller might occasionally come up with negative values). + * Negative values are treated as zero, which is better than casting them + * to a large unsigned number. (This principle is used elsewhere in the + * API too.) + */ +DUK_EXTERNAL_DECL duk_bool_t duk_check_stack(duk_context *ctx, duk_idx_t extra); +DUK_EXTERNAL_DECL void duk_require_stack(duk_context *ctx, duk_idx_t extra); +DUK_EXTERNAL_DECL duk_bool_t duk_check_stack_top(duk_context *ctx, duk_idx_t top); +DUK_EXTERNAL_DECL void duk_require_stack_top(duk_context *ctx, duk_idx_t top); + +/* + * Stack manipulation (other than push/pop) + */ + +DUK_EXTERNAL_DECL void duk_swap(duk_context *ctx, duk_idx_t idx1, duk_idx_t idx2); +DUK_EXTERNAL_DECL void duk_swap_top(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL void duk_dup(duk_context *ctx, duk_idx_t from_idx); +DUK_EXTERNAL_DECL void duk_dup_top(duk_context *ctx); +DUK_EXTERNAL_DECL void duk_insert(duk_context *ctx, duk_idx_t to_idx); +DUK_EXTERNAL_DECL void duk_pull(duk_context *ctx, duk_idx_t from_idx); +DUK_EXTERNAL_DECL void duk_replace(duk_context *ctx, duk_idx_t to_idx); +DUK_EXTERNAL_DECL void duk_copy(duk_context *ctx, duk_idx_t from_idx, duk_idx_t to_idx); +DUK_EXTERNAL_DECL void duk_remove(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL void duk_xcopymove_raw(duk_context *to_ctx, duk_context *from_ctx, duk_idx_t count, duk_bool_t is_copy); + +#define duk_xmove_top(to_ctx,from_ctx,count) \ + duk_xcopymove_raw((to_ctx), (from_ctx), (count), 0 /*is_copy*/) +#define duk_xcopy_top(to_ctx,from_ctx,count) \ + duk_xcopymove_raw((to_ctx), (from_ctx), (count), 1 /*is_copy*/) + +/* + * Push operations + * + * Push functions return the absolute (relative to bottom of frame) + * position of the pushed value for convenience. + * + * Note: duk_dup() is technically a push. + */ + +DUK_EXTERNAL_DECL void duk_push_undefined(duk_context *ctx); +DUK_EXTERNAL_DECL void duk_push_null(duk_context *ctx); +DUK_EXTERNAL_DECL void duk_push_boolean(duk_context *ctx, duk_bool_t val); +DUK_EXTERNAL_DECL void duk_push_true(duk_context *ctx); +DUK_EXTERNAL_DECL void duk_push_false(duk_context *ctx); +DUK_EXTERNAL_DECL void duk_push_number(duk_context *ctx, duk_double_t val); +DUK_EXTERNAL_DECL void duk_push_nan(duk_context *ctx); +DUK_EXTERNAL_DECL void duk_push_int(duk_context *ctx, duk_int_t val); +DUK_EXTERNAL_DECL void duk_push_uint(duk_context *ctx, duk_uint_t val); +DUK_EXTERNAL_DECL const char *duk_push_string(duk_context *ctx, const char *str); +DUK_EXTERNAL_DECL const char *duk_push_lstring(duk_context *ctx, const char *str, duk_size_t len); +DUK_EXTERNAL_DECL void duk_push_pointer(duk_context *ctx, void *p); +DUK_EXTERNAL_DECL const char *duk_push_sprintf(duk_context *ctx, const char *fmt, ...); +DUK_EXTERNAL_DECL const char *duk_push_vsprintf(duk_context *ctx, const char *fmt, va_list ap); + +/* duk_push_literal() may evaluate its argument (a C string literal) more than + * once on purpose. When speed is preferred, sizeof() avoids an unnecessary + * strlen() at runtime. Sizeof("foo") == 4, so subtract 1. The argument + * must be non-NULL and should not contain internal NUL characters as the + * behavior will then depend on config options. + */ +#if defined(DUK_USE_PREFER_SIZE) +#define duk_push_literal(ctx,cstring) duk_push_string((ctx), (cstring)) +#else +DUK_EXTERNAL_DECL const char *duk_push_literal_raw(duk_context *ctx, const char *str, duk_size_t len); +#define duk_push_literal(ctx,cstring) duk_push_literal_raw((ctx), (cstring), sizeof((cstring)) - 1U) +#endif + +DUK_EXTERNAL_DECL void duk_push_this(duk_context *ctx); +DUK_EXTERNAL_DECL void duk_push_new_target(duk_context *ctx); +DUK_EXTERNAL_DECL void duk_push_current_function(duk_context *ctx); +DUK_EXTERNAL_DECL void duk_push_current_thread(duk_context *ctx); +DUK_EXTERNAL_DECL void duk_push_global_object(duk_context *ctx); +DUK_EXTERNAL_DECL void duk_push_heap_stash(duk_context *ctx); +DUK_EXTERNAL_DECL void duk_push_global_stash(duk_context *ctx); +DUK_EXTERNAL_DECL void duk_push_thread_stash(duk_context *ctx, duk_context *target_ctx); + +DUK_EXTERNAL_DECL duk_idx_t duk_push_object(duk_context *ctx); +DUK_EXTERNAL_DECL duk_idx_t duk_push_bare_object(duk_context *ctx); +DUK_EXTERNAL_DECL duk_idx_t duk_push_array(duk_context *ctx); +DUK_EXTERNAL_DECL duk_idx_t duk_push_bare_array(duk_context *ctx); +DUK_EXTERNAL_DECL duk_idx_t duk_push_c_function(duk_context *ctx, duk_c_function func, duk_idx_t nargs); +DUK_EXTERNAL_DECL duk_idx_t duk_push_c_lightfunc(duk_context *ctx, duk_c_function func, duk_idx_t nargs, duk_idx_t length, duk_int_t magic); +DUK_EXTERNAL_DECL duk_idx_t duk_push_thread_raw(duk_context *ctx, duk_uint_t flags); +DUK_EXTERNAL_DECL duk_idx_t duk_push_proxy(duk_context *ctx, duk_uint_t proxy_flags); + +#define duk_push_thread(ctx) \ + duk_push_thread_raw((ctx), 0 /*flags*/) + +#define duk_push_thread_new_globalenv(ctx) \ + duk_push_thread_raw((ctx), DUK_THREAD_NEW_GLOBAL_ENV /*flags*/) + +DUK_EXTERNAL_DECL duk_idx_t duk_push_error_object_raw(duk_context *ctx, duk_errcode_t err_code, const char *filename, duk_int_t line, const char *fmt, ...); + +#if defined(DUK_API_VARIADIC_MACROS) +#define duk_push_error_object(ctx,err_code,...) \ + duk_push_error_object_raw((ctx), (err_code), (const char *) (DUK_FILE_MACRO), (duk_int_t) (DUK_LINE_MACRO), __VA_ARGS__) +#else +DUK_EXTERNAL_DECL duk_idx_t duk_push_error_object_stash(duk_context *ctx, duk_errcode_t err_code, const char *fmt, ...); +/* Note: parentheses are required so that the comma expression works in assignments. */ +#define duk_push_error_object \ + (duk_api_global_filename = (const char *) (DUK_FILE_MACRO), \ + duk_api_global_line = (duk_int_t) (DUK_LINE_MACRO), \ + duk_push_error_object_stash) /* last value is func pointer, arguments follow in parens */ +#endif + +DUK_EXTERNAL_DECL duk_idx_t duk_push_error_object_va_raw(duk_context *ctx, duk_errcode_t err_code, const char *filename, duk_int_t line, const char *fmt, va_list ap); +#define duk_push_error_object_va(ctx,err_code,fmt,ap) \ + duk_push_error_object_va_raw((ctx), (err_code), (const char *) (DUK_FILE_MACRO), (duk_int_t) (DUK_LINE_MACRO), (fmt), (ap)) + +#define DUK_BUF_FLAG_DYNAMIC (1 << 0) /* internal flag: dynamic buffer */ +#define DUK_BUF_FLAG_EXTERNAL (1 << 1) /* internal flag: external buffer */ +#define DUK_BUF_FLAG_NOZERO (1 << 2) /* internal flag: don't zero allocated buffer */ + +DUK_EXTERNAL_DECL void *duk_push_buffer_raw(duk_context *ctx, duk_size_t size, duk_small_uint_t flags); + +#define duk_push_buffer(ctx,size,dynamic) \ + duk_push_buffer_raw((ctx), (size), (dynamic) ? DUK_BUF_FLAG_DYNAMIC : 0) +#define duk_push_fixed_buffer(ctx,size) \ + duk_push_buffer_raw((ctx), (size), 0 /*flags*/) +#define duk_push_dynamic_buffer(ctx,size) \ + duk_push_buffer_raw((ctx), (size), DUK_BUF_FLAG_DYNAMIC /*flags*/) +#define duk_push_external_buffer(ctx) \ + ((void) duk_push_buffer_raw((ctx), 0, DUK_BUF_FLAG_DYNAMIC | DUK_BUF_FLAG_EXTERNAL)) + +#define DUK_BUFOBJ_ARRAYBUFFER 0 +#define DUK_BUFOBJ_NODEJS_BUFFER 1 +#define DUK_BUFOBJ_DATAVIEW 2 +#define DUK_BUFOBJ_INT8ARRAY 3 +#define DUK_BUFOBJ_UINT8ARRAY 4 +#define DUK_BUFOBJ_UINT8CLAMPEDARRAY 5 +#define DUK_BUFOBJ_INT16ARRAY 6 +#define DUK_BUFOBJ_UINT16ARRAY 7 +#define DUK_BUFOBJ_INT32ARRAY 8 +#define DUK_BUFOBJ_UINT32ARRAY 9 +#define DUK_BUFOBJ_FLOAT32ARRAY 10 +#define DUK_BUFOBJ_FLOAT64ARRAY 11 + +DUK_EXTERNAL_DECL void duk_push_buffer_object(duk_context *ctx, duk_idx_t idx_buffer, duk_size_t byte_offset, duk_size_t byte_length, duk_uint_t flags); + +DUK_EXTERNAL_DECL duk_idx_t duk_push_heapptr(duk_context *ctx, void *ptr); + +/* + * Pop operations + */ + +DUK_EXTERNAL_DECL void duk_pop(duk_context *ctx); +DUK_EXTERNAL_DECL void duk_pop_n(duk_context *ctx, duk_idx_t count); +DUK_EXTERNAL_DECL void duk_pop_2(duk_context *ctx); +DUK_EXTERNAL_DECL void duk_pop_3(duk_context *ctx); + +/* + * Type checks + * + * duk_is_none(), which would indicate whether index it outside of stack, + * is not needed; duk_is_valid_index() gives the same information. + */ + +DUK_EXTERNAL_DECL duk_int_t duk_get_type(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL duk_bool_t duk_check_type(duk_context *ctx, duk_idx_t idx, duk_int_t type); +DUK_EXTERNAL_DECL duk_uint_t duk_get_type_mask(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL duk_bool_t duk_check_type_mask(duk_context *ctx, duk_idx_t idx, duk_uint_t mask); + +DUK_EXTERNAL_DECL duk_bool_t duk_is_undefined(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL duk_bool_t duk_is_null(duk_context *ctx, duk_idx_t idx); +#define duk_is_null_or_undefined(ctx, idx) \ + ((duk_get_type_mask((ctx), (idx)) & (DUK_TYPE_MASK_NULL | DUK_TYPE_MASK_UNDEFINED)) ? 1 : 0) + +DUK_EXTERNAL_DECL duk_bool_t duk_is_boolean(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL duk_bool_t duk_is_number(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL duk_bool_t duk_is_nan(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL duk_bool_t duk_is_string(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL duk_bool_t duk_is_object(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL duk_bool_t duk_is_buffer(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL duk_bool_t duk_is_buffer_data(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL duk_bool_t duk_is_pointer(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL duk_bool_t duk_is_lightfunc(duk_context *ctx, duk_idx_t idx); + +DUK_EXTERNAL_DECL duk_bool_t duk_is_symbol(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL duk_bool_t duk_is_array(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL duk_bool_t duk_is_function(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL duk_bool_t duk_is_c_function(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL duk_bool_t duk_is_ecmascript_function(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL duk_bool_t duk_is_bound_function(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL duk_bool_t duk_is_thread(duk_context *ctx, duk_idx_t idx); + +#define duk_is_callable(ctx,idx) \ + duk_is_function((ctx), (idx)) +DUK_EXTERNAL_DECL duk_bool_t duk_is_constructable(duk_context *ctx, duk_idx_t idx); + +DUK_EXTERNAL_DECL duk_bool_t duk_is_dynamic_buffer(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL duk_bool_t duk_is_fixed_buffer(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL duk_bool_t duk_is_external_buffer(duk_context *ctx, duk_idx_t idx); + +/* Buffers and lightfuncs are not considered primitive because they mimic + * objects and e.g. duk_to_primitive() will coerce them instead of returning + * them as is. Symbols are represented as strings internally. + */ +#define duk_is_primitive(ctx,idx) \ + duk_check_type_mask((ctx), (idx), DUK_TYPE_MASK_UNDEFINED | \ + DUK_TYPE_MASK_NULL | \ + DUK_TYPE_MASK_BOOLEAN | \ + DUK_TYPE_MASK_NUMBER | \ + DUK_TYPE_MASK_STRING | \ + DUK_TYPE_MASK_POINTER) + +/* Symbols are object coercible, covered by DUK_TYPE_MASK_STRING. */ +#define duk_is_object_coercible(ctx,idx) \ + duk_check_type_mask((ctx), (idx), DUK_TYPE_MASK_BOOLEAN | \ + DUK_TYPE_MASK_NUMBER | \ + DUK_TYPE_MASK_STRING | \ + DUK_TYPE_MASK_OBJECT | \ + DUK_TYPE_MASK_BUFFER | \ + DUK_TYPE_MASK_POINTER | \ + DUK_TYPE_MASK_LIGHTFUNC) + +DUK_EXTERNAL_DECL duk_errcode_t duk_get_error_code(duk_context *ctx, duk_idx_t idx); +#define duk_is_error(ctx,idx) \ + (duk_get_error_code((ctx), (idx)) != 0) +#define duk_is_eval_error(ctx,idx) \ + (duk_get_error_code((ctx), (idx)) == DUK_ERR_EVAL_ERROR) +#define duk_is_range_error(ctx,idx) \ + (duk_get_error_code((ctx), (idx)) == DUK_ERR_RANGE_ERROR) +#define duk_is_reference_error(ctx,idx) \ + (duk_get_error_code((ctx), (idx)) == DUK_ERR_REFERENCE_ERROR) +#define duk_is_syntax_error(ctx,idx) \ + (duk_get_error_code((ctx), (idx)) == DUK_ERR_SYNTAX_ERROR) +#define duk_is_type_error(ctx,idx) \ + (duk_get_error_code((ctx), (idx)) == DUK_ERR_TYPE_ERROR) +#define duk_is_uri_error(ctx,idx) \ + (duk_get_error_code((ctx), (idx)) == DUK_ERR_URI_ERROR) + +/* + * Get operations: no coercion, returns default value for invalid + * indices and invalid value types. + * + * duk_get_undefined() and duk_get_null() would be pointless and + * are not included. + */ + +DUK_EXTERNAL_DECL duk_bool_t duk_get_boolean(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL duk_double_t duk_get_number(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL duk_int_t duk_get_int(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL duk_uint_t duk_get_uint(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL const char *duk_get_string(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL const char *duk_get_lstring(duk_context *ctx, duk_idx_t idx, duk_size_t *out_len); +DUK_EXTERNAL_DECL void *duk_get_buffer(duk_context *ctx, duk_idx_t idx, duk_size_t *out_size); +DUK_EXTERNAL_DECL void *duk_get_buffer_data(duk_context *ctx, duk_idx_t idx, duk_size_t *out_size); +DUK_EXTERNAL_DECL void *duk_get_pointer(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL duk_c_function duk_get_c_function(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL duk_context *duk_get_context(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL void *duk_get_heapptr(duk_context *ctx, duk_idx_t idx); + +/* + * Get-with-explicit default operations: like get operations but with an + * explicit default value. + */ + +DUK_EXTERNAL_DECL duk_bool_t duk_get_boolean_default(duk_context *ctx, duk_idx_t idx, duk_bool_t def_value); +DUK_EXTERNAL_DECL duk_double_t duk_get_number_default(duk_context *ctx, duk_idx_t idx, duk_double_t def_value); +DUK_EXTERNAL_DECL duk_int_t duk_get_int_default(duk_context *ctx, duk_idx_t idx, duk_int_t def_value); +DUK_EXTERNAL_DECL duk_uint_t duk_get_uint_default(duk_context *ctx, duk_idx_t idx, duk_uint_t def_value); +DUK_EXTERNAL_DECL const char *duk_get_string_default(duk_context *ctx, duk_idx_t idx, const char *def_value); +DUK_EXTERNAL_DECL const char *duk_get_lstring_default(duk_context *ctx, duk_idx_t idx, duk_size_t *out_len, const char *def_ptr, duk_size_t def_len); +DUK_EXTERNAL_DECL void *duk_get_buffer_default(duk_context *ctx, duk_idx_t idx, duk_size_t *out_size, void *def_ptr, duk_size_t def_len); +DUK_EXTERNAL_DECL void *duk_get_buffer_data_default(duk_context *ctx, duk_idx_t idx, duk_size_t *out_size, void *def_ptr, duk_size_t def_len); +DUK_EXTERNAL_DECL void *duk_get_pointer_default(duk_context *ctx, duk_idx_t idx, void *def_value); +DUK_EXTERNAL_DECL duk_c_function duk_get_c_function_default(duk_context *ctx, duk_idx_t idx, duk_c_function def_value); +DUK_EXTERNAL_DECL duk_context *duk_get_context_default(duk_context *ctx, duk_idx_t idx, duk_context *def_value); +DUK_EXTERNAL_DECL void *duk_get_heapptr_default(duk_context *ctx, duk_idx_t idx, void *def_value); + +/* + * Opt operations: like require operations but with an explicit default value + * when value is undefined or index is invalid, null and non-matching types + * cause a TypeError. + */ + +DUK_EXTERNAL_DECL duk_bool_t duk_opt_boolean(duk_context *ctx, duk_idx_t idx, duk_bool_t def_value); +DUK_EXTERNAL_DECL duk_double_t duk_opt_number(duk_context *ctx, duk_idx_t idx, duk_double_t def_value); +DUK_EXTERNAL_DECL duk_int_t duk_opt_int(duk_context *ctx, duk_idx_t idx, duk_int_t def_value); +DUK_EXTERNAL_DECL duk_uint_t duk_opt_uint(duk_context *ctx, duk_idx_t idx, duk_uint_t def_value); +DUK_EXTERNAL_DECL const char *duk_opt_string(duk_context *ctx, duk_idx_t idx, const char *def_ptr); +DUK_EXTERNAL_DECL const char *duk_opt_lstring(duk_context *ctx, duk_idx_t idx, duk_size_t *out_len, const char *def_ptr, duk_size_t def_len); +DUK_EXTERNAL_DECL void *duk_opt_buffer(duk_context *ctx, duk_idx_t idx, duk_size_t *out_size, void *def_ptr, duk_size_t def_size); +DUK_EXTERNAL_DECL void *duk_opt_buffer_data(duk_context *ctx, duk_idx_t idx, duk_size_t *out_size, void *def_ptr, duk_size_t def_size); +DUK_EXTERNAL_DECL void *duk_opt_pointer(duk_context *ctx, duk_idx_t idx, void *def_value); +DUK_EXTERNAL_DECL duk_c_function duk_opt_c_function(duk_context *ctx, duk_idx_t idx, duk_c_function def_value); +DUK_EXTERNAL_DECL duk_context *duk_opt_context(duk_context *ctx, duk_idx_t idx, duk_context *def_value); +DUK_EXTERNAL_DECL void *duk_opt_heapptr(duk_context *ctx, duk_idx_t idx, void *def_value); + +/* + * Require operations: no coercion, throw error if index or type + * is incorrect. No defaulting. + */ + +#define duk_require_type_mask(ctx,idx,mask) \ + ((void) duk_check_type_mask((ctx), (idx), (mask) | DUK_TYPE_MASK_THROW)) + +DUK_EXTERNAL_DECL void duk_require_undefined(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL void duk_require_null(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL duk_bool_t duk_require_boolean(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL duk_double_t duk_require_number(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL duk_int_t duk_require_int(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL duk_uint_t duk_require_uint(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL const char *duk_require_string(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL const char *duk_require_lstring(duk_context *ctx, duk_idx_t idx, duk_size_t *out_len); +DUK_EXTERNAL_DECL void duk_require_object(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL void *duk_require_buffer(duk_context *ctx, duk_idx_t idx, duk_size_t *out_size); +DUK_EXTERNAL_DECL void *duk_require_buffer_data(duk_context *ctx, duk_idx_t idx, duk_size_t *out_size); +DUK_EXTERNAL_DECL void *duk_require_pointer(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL duk_c_function duk_require_c_function(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL duk_context *duk_require_context(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL void duk_require_function(duk_context *ctx, duk_idx_t idx); +#define duk_require_callable(ctx,idx) \ + duk_require_function((ctx), (idx)) +DUK_EXTERNAL_DECL void duk_require_constructor_call(duk_context *ctx); +DUK_EXTERNAL_DECL void duk_require_constructable(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL void *duk_require_heapptr(duk_context *ctx, duk_idx_t idx); + +/* Symbols are object coercible and covered by DUK_TYPE_MASK_STRING. */ +#define duk_require_object_coercible(ctx,idx) \ + ((void) duk_check_type_mask((ctx), (idx), DUK_TYPE_MASK_BOOLEAN | \ + DUK_TYPE_MASK_NUMBER | \ + DUK_TYPE_MASK_STRING | \ + DUK_TYPE_MASK_OBJECT | \ + DUK_TYPE_MASK_BUFFER | \ + DUK_TYPE_MASK_POINTER | \ + DUK_TYPE_MASK_LIGHTFUNC | \ + DUK_TYPE_MASK_THROW)) + +/* + * Coercion operations: in-place coercion, return coerced value where + * applicable. If index is invalid, throw error. Some coercions may + * throw an expected error (e.g. from a toString() or valueOf() call) + * or an internal error (e.g. from out of memory). + */ + +DUK_EXTERNAL_DECL void duk_to_undefined(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL void duk_to_null(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL duk_bool_t duk_to_boolean(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL duk_double_t duk_to_number(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL duk_int_t duk_to_int(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL duk_uint_t duk_to_uint(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL duk_int32_t duk_to_int32(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL duk_uint32_t duk_to_uint32(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL duk_uint16_t duk_to_uint16(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL const char *duk_to_string(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL const char *duk_to_lstring(duk_context *ctx, duk_idx_t idx, duk_size_t *out_len); +DUK_EXTERNAL_DECL void *duk_to_buffer_raw(duk_context *ctx, duk_idx_t idx, duk_size_t *out_size, duk_uint_t flags); +DUK_EXTERNAL_DECL void *duk_to_pointer(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL void duk_to_object(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL void duk_to_primitive(duk_context *ctx, duk_idx_t idx, duk_int_t hint); + +#define DUK_BUF_MODE_FIXED 0 /* internal: request fixed buffer result */ +#define DUK_BUF_MODE_DYNAMIC 1 /* internal: request dynamic buffer result */ +#define DUK_BUF_MODE_DONTCARE 2 /* internal: don't care about fixed/dynamic nature */ + +#define duk_to_buffer(ctx,idx,out_size) \ + duk_to_buffer_raw((ctx), (idx), (out_size), DUK_BUF_MODE_DONTCARE) +#define duk_to_fixed_buffer(ctx,idx,out_size) \ + duk_to_buffer_raw((ctx), (idx), (out_size), DUK_BUF_MODE_FIXED) +#define duk_to_dynamic_buffer(ctx,idx,out_size) \ + duk_to_buffer_raw((ctx), (idx), (out_size), DUK_BUF_MODE_DYNAMIC) + +/* safe variants of a few coercion operations */ +DUK_EXTERNAL_DECL const char *duk_safe_to_lstring(duk_context *ctx, duk_idx_t idx, duk_size_t *out_len); +DUK_EXTERNAL_DECL const char *duk_to_stacktrace(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL const char *duk_safe_to_stacktrace(duk_context *ctx, duk_idx_t idx); +#define duk_safe_to_string(ctx,idx) \ + duk_safe_to_lstring((ctx), (idx), NULL) + +/* + * Value length + */ + +DUK_EXTERNAL_DECL duk_size_t duk_get_length(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL void duk_set_length(duk_context *ctx, duk_idx_t idx, duk_size_t len); +#if 0 +/* duk_require_length()? */ +/* duk_opt_length()? */ +#endif + +/* + * Misc conversion + */ + +DUK_EXTERNAL_DECL const char *duk_base64_encode(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL void duk_base64_decode(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL const char *duk_hex_encode(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL void duk_hex_decode(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL const char *duk_json_encode(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL void duk_json_decode(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL void duk_cbor_encode(duk_context *ctx, duk_idx_t idx, duk_uint_t encode_flags); +DUK_EXTERNAL_DECL void duk_cbor_decode(duk_context *ctx, duk_idx_t idx, duk_uint_t decode_flags); + +DUK_EXTERNAL_DECL const char *duk_buffer_to_string(duk_context *ctx, duk_idx_t idx); + +/* + * Buffer + */ + +DUK_EXTERNAL_DECL void *duk_resize_buffer(duk_context *ctx, duk_idx_t idx, duk_size_t new_size); +DUK_EXTERNAL_DECL void *duk_steal_buffer(duk_context *ctx, duk_idx_t idx, duk_size_t *out_size); +DUK_EXTERNAL_DECL void duk_config_buffer(duk_context *ctx, duk_idx_t idx, void *ptr, duk_size_t len); + +/* + * Property access + * + * The basic function assumes key is on stack. The _(l)string variant takes + * a C string as a property name; the _literal variant takes a C literal. + * The _index variant takes an array index as a property name (e.g. 123 is + * equivalent to the key "123"). The _heapptr variant takes a raw, borrowed + * heap pointer. + */ + +DUK_EXTERNAL_DECL duk_bool_t duk_get_prop(duk_context *ctx, duk_idx_t obj_idx); +DUK_EXTERNAL_DECL duk_bool_t duk_get_prop_string(duk_context *ctx, duk_idx_t obj_idx, const char *key); +DUK_EXTERNAL_DECL duk_bool_t duk_get_prop_lstring(duk_context *ctx, duk_idx_t obj_idx, const char *key, duk_size_t key_len); +#if defined(DUK_USE_PREFER_SIZE) +#define duk_get_prop_literal(ctx,obj_idx,key) duk_get_prop_string((ctx), (obj_idx), (key)) +#else +DUK_EXTERNAL_DECL duk_bool_t duk_get_prop_literal_raw(duk_context *ctx, duk_idx_t obj_idx, const char *key, duk_size_t key_len); +#define duk_get_prop_literal(ctx,obj_idx,key) duk_get_prop_literal_raw((ctx), (obj_idx), (key), sizeof((key)) - 1U) +#endif +DUK_EXTERNAL_DECL duk_bool_t duk_get_prop_index(duk_context *ctx, duk_idx_t obj_idx, duk_uarridx_t arr_idx); +DUK_EXTERNAL_DECL duk_bool_t duk_get_prop_heapptr(duk_context *ctx, duk_idx_t obj_idx, void *ptr); +DUK_EXTERNAL_DECL duk_bool_t duk_put_prop(duk_context *ctx, duk_idx_t obj_idx); +DUK_EXTERNAL_DECL duk_bool_t duk_put_prop_string(duk_context *ctx, duk_idx_t obj_idx, const char *key); +DUK_EXTERNAL_DECL duk_bool_t duk_put_prop_lstring(duk_context *ctx, duk_idx_t obj_idx, const char *key, duk_size_t key_len); +#if defined(DUK_USE_PREFER_SIZE) +#define duk_put_prop_literal(ctx,obj_idx,key) duk_put_prop_string((ctx), (obj_idx), (key)) +#else +DUK_EXTERNAL_DECL duk_bool_t duk_put_prop_literal_raw(duk_context *ctx, duk_idx_t obj_idx, const char *key, duk_size_t key_len); +#define duk_put_prop_literal(ctx,obj_idx,key) duk_put_prop_literal_raw((ctx), (obj_idx), (key), sizeof((key)) - 1U) +#endif +DUK_EXTERNAL_DECL duk_bool_t duk_put_prop_index(duk_context *ctx, duk_idx_t obj_idx, duk_uarridx_t arr_idx); +DUK_EXTERNAL_DECL duk_bool_t duk_put_prop_heapptr(duk_context *ctx, duk_idx_t obj_idx, void *ptr); +DUK_EXTERNAL_DECL duk_bool_t duk_del_prop(duk_context *ctx, duk_idx_t obj_idx); +DUK_EXTERNAL_DECL duk_bool_t duk_del_prop_string(duk_context *ctx, duk_idx_t obj_idx, const char *key); +DUK_EXTERNAL_DECL duk_bool_t duk_del_prop_lstring(duk_context *ctx, duk_idx_t obj_idx, const char *key, duk_size_t key_len); +#if defined(DUK_USE_PREFER_SIZE) +#define duk_del_prop_literal(ctx,obj_idx,key) duk_del_prop_string((ctx), (obj_idx), (key)) +#else +DUK_EXTERNAL_DECL duk_bool_t duk_del_prop_literal_raw(duk_context *ctx, duk_idx_t obj_idx, const char *key, duk_size_t key_len); +#define duk_del_prop_literal(ctx,obj_idx,key) duk_del_prop_literal_raw((ctx), (obj_idx), (key), sizeof((key)) - 1U) +#endif +DUK_EXTERNAL_DECL duk_bool_t duk_del_prop_index(duk_context *ctx, duk_idx_t obj_idx, duk_uarridx_t arr_idx); +DUK_EXTERNAL_DECL duk_bool_t duk_del_prop_heapptr(duk_context *ctx, duk_idx_t obj_idx, void *ptr); +DUK_EXTERNAL_DECL duk_bool_t duk_has_prop(duk_context *ctx, duk_idx_t obj_idx); +DUK_EXTERNAL_DECL duk_bool_t duk_has_prop_string(duk_context *ctx, duk_idx_t obj_idx, const char *key); +DUK_EXTERNAL_DECL duk_bool_t duk_has_prop_lstring(duk_context *ctx, duk_idx_t obj_idx, const char *key, duk_size_t key_len); +#if defined(DUK_USE_PREFER_SIZE) +#define duk_has_prop_literal(ctx,obj_idx,key) duk_has_prop_string((ctx), (obj_idx), (key)) +#else +DUK_EXTERNAL_DECL duk_bool_t duk_has_prop_literal_raw(duk_context *ctx, duk_idx_t obj_idx, const char *key, duk_size_t key_len); +#define duk_has_prop_literal(ctx,obj_idx,key) duk_has_prop_literal_raw((ctx), (obj_idx), (key), sizeof((key)) - 1U) +#endif +DUK_EXTERNAL_DECL duk_bool_t duk_has_prop_index(duk_context *ctx, duk_idx_t obj_idx, duk_uarridx_t arr_idx); +DUK_EXTERNAL_DECL duk_bool_t duk_has_prop_heapptr(duk_context *ctx, duk_idx_t obj_idx, void *ptr); + +DUK_EXTERNAL_DECL void duk_get_prop_desc(duk_context *ctx, duk_idx_t obj_idx, duk_uint_t flags); +DUK_EXTERNAL_DECL void duk_def_prop(duk_context *ctx, duk_idx_t obj_idx, duk_uint_t flags); + +DUK_EXTERNAL_DECL duk_bool_t duk_get_global_string(duk_context *ctx, const char *key); +DUK_EXTERNAL_DECL duk_bool_t duk_get_global_lstring(duk_context *ctx, const char *key, duk_size_t key_len); +#if defined(DUK_USE_PREFER_SIZE) +#define duk_get_global_literal(ctx,key) duk_get_global_string((ctx), (key)) +#else +DUK_EXTERNAL_DECL duk_bool_t duk_get_global_literal_raw(duk_context *ctx, const char *key, duk_size_t key_len); +#define duk_get_global_literal(ctx,key) duk_get_global_literal_raw((ctx), (key), sizeof((key)) - 1U) +#endif +DUK_EXTERNAL_DECL duk_bool_t duk_get_global_heapptr(duk_context *ctx, void *ptr); +DUK_EXTERNAL_DECL duk_bool_t duk_put_global_string(duk_context *ctx, const char *key); +DUK_EXTERNAL_DECL duk_bool_t duk_put_global_lstring(duk_context *ctx, const char *key, duk_size_t key_len); +#if defined(DUK_USE_PREFER_SIZE) +#define duk_put_global_literal(ctx,key) duk_put_global_string((ctx), (key)) +#else +DUK_EXTERNAL_DECL duk_bool_t duk_put_global_literal_raw(duk_context *ctx, const char *key, duk_size_t key_len); +#define duk_put_global_literal(ctx,key) duk_put_global_literal_raw((ctx), (key), sizeof((key)) - 1U) +#endif +DUK_EXTERNAL_DECL duk_bool_t duk_put_global_heapptr(duk_context *ctx, void *ptr); + +/* + * Inspection + */ + +DUK_EXTERNAL_DECL void duk_inspect_value(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL void duk_inspect_callstack_entry(duk_context *ctx, duk_int_t level); + +/* + * Object prototype + */ + +DUK_EXTERNAL_DECL void duk_get_prototype(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL void duk_set_prototype(duk_context *ctx, duk_idx_t idx); + +/* + * Object finalizer + */ + +DUK_EXTERNAL_DECL void duk_get_finalizer(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL void duk_set_finalizer(duk_context *ctx, duk_idx_t idx); + +/* + * Global object + */ + +DUK_EXTERNAL_DECL void duk_set_global_object(duk_context *ctx); + +/* + * Duktape/C function magic value + */ + +DUK_EXTERNAL_DECL duk_int_t duk_get_magic(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL void duk_set_magic(duk_context *ctx, duk_idx_t idx, duk_int_t magic); +DUK_EXTERNAL_DECL duk_int_t duk_get_current_magic(duk_context *ctx); + +/* + * Module helpers: put multiple function or constant properties + */ + +DUK_EXTERNAL_DECL void duk_put_function_list(duk_context *ctx, duk_idx_t obj_idx, const duk_function_list_entry *funcs); +DUK_EXTERNAL_DECL void duk_put_number_list(duk_context *ctx, duk_idx_t obj_idx, const duk_number_list_entry *numbers); + +/* + * Object operations + */ + +DUK_EXTERNAL_DECL void duk_compact(duk_context *ctx, duk_idx_t obj_idx); +DUK_EXTERNAL_DECL void duk_enum(duk_context *ctx, duk_idx_t obj_idx, duk_uint_t enum_flags); +DUK_EXTERNAL_DECL duk_bool_t duk_next(duk_context *ctx, duk_idx_t enum_idx, duk_bool_t get_value); +DUK_EXTERNAL_DECL void duk_seal(duk_context *ctx, duk_idx_t obj_idx); +DUK_EXTERNAL_DECL void duk_freeze(duk_context *ctx, duk_idx_t obj_idx); + +/* + * String manipulation + */ + +DUK_EXTERNAL_DECL void duk_concat(duk_context *ctx, duk_idx_t count); +DUK_EXTERNAL_DECL void duk_join(duk_context *ctx, duk_idx_t count); +DUK_EXTERNAL_DECL void duk_decode_string(duk_context *ctx, duk_idx_t idx, duk_decode_char_function callback, void *udata); +DUK_EXTERNAL_DECL void duk_map_string(duk_context *ctx, duk_idx_t idx, duk_map_char_function callback, void *udata); +DUK_EXTERNAL_DECL void duk_substring(duk_context *ctx, duk_idx_t idx, duk_size_t start_char_offset, duk_size_t end_char_offset); +DUK_EXTERNAL_DECL void duk_trim(duk_context *ctx, duk_idx_t idx); +DUK_EXTERNAL_DECL duk_codepoint_t duk_char_code_at(duk_context *ctx, duk_idx_t idx, duk_size_t char_offset); + +/* + * ECMAScript operators + */ + +DUK_EXTERNAL_DECL duk_bool_t duk_equals(duk_context *ctx, duk_idx_t idx1, duk_idx_t idx2); +DUK_EXTERNAL_DECL duk_bool_t duk_strict_equals(duk_context *ctx, duk_idx_t idx1, duk_idx_t idx2); +DUK_EXTERNAL_DECL duk_bool_t duk_samevalue(duk_context *ctx, duk_idx_t idx1, duk_idx_t idx2); +DUK_EXTERNAL_DECL duk_bool_t duk_instanceof(duk_context *ctx, duk_idx_t idx1, duk_idx_t idx2); + +/* + * Random + */ + +DUK_EXTERNAL_DECL duk_double_t duk_random(duk_context *ctx); + +/* + * Function (method) calls + */ + +DUK_EXTERNAL_DECL void duk_call(duk_context *ctx, duk_idx_t nargs); +DUK_EXTERNAL_DECL void duk_call_method(duk_context *ctx, duk_idx_t nargs); +DUK_EXTERNAL_DECL void duk_call_prop(duk_context *ctx, duk_idx_t obj_idx, duk_idx_t nargs); +DUK_EXTERNAL_DECL duk_int_t duk_pcall(duk_context *ctx, duk_idx_t nargs); +DUK_EXTERNAL_DECL duk_int_t duk_pcall_method(duk_context *ctx, duk_idx_t nargs); +DUK_EXTERNAL_DECL duk_int_t duk_pcall_prop(duk_context *ctx, duk_idx_t obj_idx, duk_idx_t nargs); +DUK_EXTERNAL_DECL void duk_new(duk_context *ctx, duk_idx_t nargs); +DUK_EXTERNAL_DECL duk_int_t duk_pnew(duk_context *ctx, duk_idx_t nargs); +DUK_EXTERNAL_DECL duk_int_t duk_safe_call(duk_context *ctx, duk_safe_call_function func, void *udata, duk_idx_t nargs, duk_idx_t nrets); + +/* + * Thread management + */ + +/* There are currently no native functions to yield/resume, due to the internal + * limitations on coroutine handling. These will be added later. + */ + +/* + * Compilation and evaluation + */ + +DUK_EXTERNAL_DECL duk_int_t duk_eval_raw(duk_context *ctx, const char *src_buffer, duk_size_t src_length, duk_uint_t flags); +DUK_EXTERNAL_DECL duk_int_t duk_compile_raw(duk_context *ctx, const char *src_buffer, duk_size_t src_length, duk_uint_t flags); + +/* plain */ +#define duk_eval(ctx) \ + ((void) duk_eval_raw((ctx), NULL, 0, 1 /*args*/ | DUK_COMPILE_EVAL | DUK_COMPILE_NOFILENAME)) + +#define duk_eval_noresult(ctx) \ + ((void) duk_eval_raw((ctx), NULL, 0, 1 /*args*/ | DUK_COMPILE_EVAL | DUK_COMPILE_NORESULT | DUK_COMPILE_NOFILENAME)) + +#define duk_peval(ctx) \ + (duk_eval_raw((ctx), NULL, 0, 1 /*args*/ | DUK_COMPILE_EVAL | DUK_COMPILE_SAFE | DUK_COMPILE_NOFILENAME)) + +#define duk_peval_noresult(ctx) \ + (duk_eval_raw((ctx), NULL, 0, 1 /*args*/ | DUK_COMPILE_EVAL | DUK_COMPILE_SAFE | DUK_COMPILE_NORESULT | DUK_COMPILE_NOFILENAME)) + +#define duk_compile(ctx,flags) \ + ((void) duk_compile_raw((ctx), NULL, 0, 2 /*args*/ | (flags))) + +#define duk_pcompile(ctx,flags) \ + (duk_compile_raw((ctx), NULL, 0, 2 /*args*/ | (flags) | DUK_COMPILE_SAFE)) + +/* string */ +#define duk_eval_string(ctx,src) \ + ((void) duk_eval_raw((ctx), (src), 0, 0 /*args*/ | DUK_COMPILE_EVAL | DUK_COMPILE_NOSOURCE | DUK_COMPILE_STRLEN | DUK_COMPILE_NOFILENAME)) + +#define duk_eval_string_noresult(ctx,src) \ + ((void) duk_eval_raw((ctx), (src), 0, 0 /*args*/ | DUK_COMPILE_EVAL | DUK_COMPILE_NOSOURCE | DUK_COMPILE_STRLEN | DUK_COMPILE_NORESULT | DUK_COMPILE_NOFILENAME)) + +#define duk_peval_string(ctx,src) \ + (duk_eval_raw((ctx), (src), 0, 0 /*args*/ | DUK_COMPILE_EVAL | DUK_COMPILE_SAFE | DUK_COMPILE_NOSOURCE | DUK_COMPILE_STRLEN | DUK_COMPILE_NOFILENAME)) + +#define duk_peval_string_noresult(ctx,src) \ + (duk_eval_raw((ctx), (src), 0, 0 /*args*/ | DUK_COMPILE_EVAL | DUK_COMPILE_SAFE | DUK_COMPILE_NOSOURCE | DUK_COMPILE_STRLEN | DUK_COMPILE_NORESULT | DUK_COMPILE_NOFILENAME)) + +#define duk_compile_string(ctx,flags,src) \ + ((void) duk_compile_raw((ctx), (src), 0, 0 /*args*/ | (flags) | DUK_COMPILE_NOSOURCE | DUK_COMPILE_STRLEN | DUK_COMPILE_NOFILENAME)) + +#define duk_compile_string_filename(ctx,flags,src) \ + ((void) duk_compile_raw((ctx), (src), 0, 1 /*args*/ | (flags) | DUK_COMPILE_NOSOURCE | DUK_COMPILE_STRLEN)) + +#define duk_pcompile_string(ctx,flags,src) \ + (duk_compile_raw((ctx), (src), 0, 0 /*args*/ | (flags) | DUK_COMPILE_SAFE | DUK_COMPILE_NOSOURCE | DUK_COMPILE_STRLEN | DUK_COMPILE_NOFILENAME)) + +#define duk_pcompile_string_filename(ctx,flags,src) \ + (duk_compile_raw((ctx), (src), 0, 1 /*args*/ | (flags) | DUK_COMPILE_SAFE | DUK_COMPILE_NOSOURCE | DUK_COMPILE_STRLEN)) + +/* lstring */ +#define duk_eval_lstring(ctx,buf,len) \ + ((void) duk_eval_raw((ctx), buf, len, 0 /*args*/ | DUK_COMPILE_EVAL | DUK_COMPILE_NOSOURCE | DUK_COMPILE_NOFILENAME)) + +#define duk_eval_lstring_noresult(ctx,buf,len) \ + ((void) duk_eval_raw((ctx), buf, len, 0 /*args*/ | DUK_COMPILE_EVAL | DUK_COMPILE_NOSOURCE | DUK_COMPILE_NORESULT | DUK_COMPILE_NOFILENAME)) + +#define duk_peval_lstring(ctx,buf,len) \ + (duk_eval_raw((ctx), buf, len, 0 /*args*/ | DUK_COMPILE_EVAL | DUK_COMPILE_NOSOURCE | DUK_COMPILE_SAFE | DUK_COMPILE_NOFILENAME)) + +#define duk_peval_lstring_noresult(ctx,buf,len) \ + (duk_eval_raw((ctx), buf, len, 0 /*args*/ | DUK_COMPILE_EVAL | DUK_COMPILE_SAFE | DUK_COMPILE_NOSOURCE | DUK_COMPILE_NORESULT | DUK_COMPILE_NOFILENAME)) + +#define duk_compile_lstring(ctx,flags,buf,len) \ + ((void) duk_compile_raw((ctx), buf, len, 0 /*args*/ | (flags) | DUK_COMPILE_NOSOURCE | DUK_COMPILE_NOFILENAME)) + +#define duk_compile_lstring_filename(ctx,flags,buf,len) \ + ((void) duk_compile_raw((ctx), buf, len, 1 /*args*/ | (flags) | DUK_COMPILE_NOSOURCE)) + +#define duk_pcompile_lstring(ctx,flags,buf,len) \ + (duk_compile_raw((ctx), buf, len, 0 /*args*/ | (flags) | DUK_COMPILE_SAFE | DUK_COMPILE_NOSOURCE | DUK_COMPILE_NOFILENAME)) + +#define duk_pcompile_lstring_filename(ctx,flags,buf,len) \ + (duk_compile_raw((ctx), buf, len, 1 /*args*/ | (flags) | DUK_COMPILE_SAFE | DUK_COMPILE_NOSOURCE)) + +/* + * Bytecode load/dump + */ + +DUK_EXTERNAL_DECL void duk_dump_function(duk_context *ctx); +DUK_EXTERNAL_DECL void duk_load_function(duk_context *ctx); + +/* + * Debugging + */ + +DUK_EXTERNAL_DECL void duk_push_context_dump(duk_context *ctx); + +/* + * Debugger (debug protocol) + */ + +DUK_EXTERNAL_DECL void duk_debugger_attach(duk_context *ctx, + duk_debug_read_function read_cb, + duk_debug_write_function write_cb, + duk_debug_peek_function peek_cb, + duk_debug_read_flush_function read_flush_cb, + duk_debug_write_flush_function write_flush_cb, + duk_debug_request_function request_cb, + duk_debug_detached_function detached_cb, + void *udata); +DUK_EXTERNAL_DECL void duk_debugger_detach(duk_context *ctx); +DUK_EXTERNAL_DECL void duk_debugger_cooperate(duk_context *ctx); +DUK_EXTERNAL_DECL duk_bool_t duk_debugger_notify(duk_context *ctx, duk_idx_t nvalues); +DUK_EXTERNAL_DECL void duk_debugger_pause(duk_context *ctx); + +/* + * Time handling + */ + +DUK_EXTERNAL_DECL duk_double_t duk_get_now(duk_context *ctx); +DUK_EXTERNAL_DECL void duk_time_to_components(duk_context *ctx, duk_double_t timeval, duk_time_components *comp); +DUK_EXTERNAL_DECL duk_double_t duk_components_to_time(duk_context *ctx, duk_time_components *comp); + +/* + * Date provider related constants + * + * NOTE: These are "semi public" - you should only use these if you write + * your own platform specific Date provider, see doc/datetime.rst. + */ + +/* Millisecond count constants. */ +#define DUK_DATE_MSEC_SECOND 1000L +#define DUK_DATE_MSEC_MINUTE (60L * 1000L) +#define DUK_DATE_MSEC_HOUR (60L * 60L * 1000L) +#define DUK_DATE_MSEC_DAY (24L * 60L * 60L * 1000L) + +/* ECMAScript date range is 100 million days from Epoch: + * > 100e6 * 24 * 60 * 60 * 1000 // 100M days in millisecs + * 8640000000000000 + * (= 8.64e15) + */ +#define DUK_DATE_MSEC_100M_DAYS (8.64e15) +#define DUK_DATE_MSEC_100M_DAYS_LEEWAY (8.64e15 + 24 * 3600e3) + +/* ECMAScript year range: + * > new Date(100e6 * 24 * 3600e3).toISOString() + * '+275760-09-13T00:00:00.000Z' + * > new Date(-100e6 * 24 * 3600e3).toISOString() + * '-271821-04-20T00:00:00.000Z' + */ +#define DUK_DATE_MIN_ECMA_YEAR (-271821L) +#define DUK_DATE_MAX_ECMA_YEAR 275760L + +/* Part indices for internal breakdowns. Part order from DUK_DATE_IDX_YEAR + * to DUK_DATE_IDX_MILLISECOND matches argument ordering of ECMAScript API + * calls (like Date constructor call). Some functions in duk_bi_date.c + * depend on the specific ordering, so change with care. 16 bits are not + * enough for all parts (year, specifically). + * + * Must be in-sync with genbuiltins.py. + */ +#define DUK_DATE_IDX_YEAR 0 /* year */ +#define DUK_DATE_IDX_MONTH 1 /* month: 0 to 11 */ +#define DUK_DATE_IDX_DAY 2 /* day within month: 0 to 30 */ +#define DUK_DATE_IDX_HOUR 3 +#define DUK_DATE_IDX_MINUTE 4 +#define DUK_DATE_IDX_SECOND 5 +#define DUK_DATE_IDX_MILLISECOND 6 +#define DUK_DATE_IDX_WEEKDAY 7 /* weekday: 0 to 6, 0=sunday, 1=monday, etc */ +#define DUK_DATE_IDX_NUM_PARTS 8 + +/* Internal API call flags, used for various functions in duk_bi_date.c. + * Certain flags are used by only certain functions, but since the flags + * don't overlap, a single flags value can be passed around to multiple + * functions. + * + * The unused top bits of the flags field are also used to pass values + * to helpers (duk__get_part_helper() and duk__set_part_helper()). + * + * Must be in-sync with genbuiltins.py. + */ + +/* NOTE: when writing a Date provider you only need a few specific + * flags from here, the rest are internal. Avoid using anything you + * don't need. + */ + +#define DUK_DATE_FLAG_NAN_TO_ZERO (1 << 0) /* timeval breakdown: internal time value NaN -> zero */ +#define DUK_DATE_FLAG_NAN_TO_RANGE_ERROR (1 << 1) /* timeval breakdown: internal time value NaN -> RangeError (toISOString) */ +#define DUK_DATE_FLAG_ONEBASED (1 << 2) /* timeval breakdown: convert month and day-of-month parts to one-based (default is zero-based) */ +#define DUK_DATE_FLAG_EQUIVYEAR (1 << 3) /* timeval breakdown: replace year with equivalent year in the [1971,2037] range for DST calculations */ +#define DUK_DATE_FLAG_LOCALTIME (1 << 4) /* convert time value to local time */ +#define DUK_DATE_FLAG_SUB1900 (1 << 5) /* getter: subtract 1900 from year when getting year part */ +#define DUK_DATE_FLAG_TOSTRING_DATE (1 << 6) /* include date part in string conversion result */ +#define DUK_DATE_FLAG_TOSTRING_TIME (1 << 7) /* include time part in string conversion result */ +#define DUK_DATE_FLAG_TOSTRING_LOCALE (1 << 8) /* use locale specific formatting if available */ +#define DUK_DATE_FLAG_TIMESETTER (1 << 9) /* setter: call is a time setter (affects hour, min, sec, ms); otherwise date setter (affects year, month, day-in-month) */ +#define DUK_DATE_FLAG_YEAR_FIXUP (1 << 10) /* setter: perform 2-digit year fixup (00...99 -> 1900...1999) */ +#define DUK_DATE_FLAG_SEP_T (1 << 11) /* string conversion: use 'T' instead of ' ' as a separator */ +#define DUK_DATE_FLAG_VALUE_SHIFT 12 /* additional values begin at bit 12 */ + +/* + * ROM pointer compression + */ + +/* Support array for ROM pointer compression. Only declared when ROM + * pointer compression is active. + */ +#if defined(DUK_USE_ROM_OBJECTS) && defined(DUK_USE_HEAPPTR16) +DUK_EXTERNAL_DECL const void * const duk_rom_compressed_pointers[]; +#endif + +/* + * C++ name mangling + */ + +#if defined(__cplusplus) +/* end 'extern "C"' wrapper */ +} +#endif + +/* + * END PUBLIC API + */ + +#endif /* DUKTAPE_H_INCLUDED */ diff --git a/core/src/gui/main_window.cpp b/core/src/gui/main_window.cpp index f515c0a..dfe641f 100644 --- a/core/src/gui/main_window.cpp +++ b/core/src/gui/main_window.cpp @@ -59,6 +59,7 @@ void windowInit() { gui::menu.registerEntry("Source", sourecmenu::draw, NULL); gui::menu.registerEntry("Audio", audiomenu::draw, NULL); + gui::menu.registerEntry("Scripting", scriptingmenu::draw, NULL); gui::menu.registerEntry("Band Plan", bandplanmenu::draw, NULL); gui::menu.registerEntry("Display", displaymenu::draw, NULL); @@ -76,6 +77,7 @@ void windowInit() { sourecmenu::init(); audiomenu::init(); + scriptingmenu::init(); bandplanmenu::init(); displaymenu::init(); diff --git a/core/src/gui/main_window.h b/core/src/gui/main_window.h index e079f57..035717d 100644 --- a/core/src/gui/main_window.h +++ b/core/src/gui/main_window.h @@ -31,6 +31,7 @@ #include #include #include +#include #include #include diff --git a/core/src/gui/menus/scripting.cpp b/core/src/gui/menus/scripting.cpp new file mode 100644 index 0000000..fc02c8b --- /dev/null +++ b/core/src/gui/menus/scripting.cpp @@ -0,0 +1,21 @@ +#include +#include +#include + +namespace scriptingmenu { + void init() { + + } + + void draw(void* ctx) { + float menuWidth = ImGui::GetContentRegionAvailWidth(); + for (const auto& [name, script] : core::scriptManager.scripts) { + bool running = script->running; + if (running) { style::beginDisabled(); } + if (ImGui::Button(name.c_str(), ImVec2(menuWidth, 0))) { + script->run(); + } + if (running) { style::endDisabled(); } + } + } +} \ No newline at end of file diff --git a/core/src/gui/menus/scripting.h b/core/src/gui/menus/scripting.h new file mode 100644 index 0000000..ad21d49 --- /dev/null +++ b/core/src/gui/menus/scripting.h @@ -0,0 +1,6 @@ +#pragma once + +namespace scriptingmenu { + void init(); + void draw(void* ctx); +} \ No newline at end of file diff --git a/core/src/scripting.cpp b/core/src/scripting.cpp new file mode 100644 index 0000000..f9a769d --- /dev/null +++ b/core/src/scripting.cpp @@ -0,0 +1,75 @@ +#include +#include +#include +#include +#include + +ScriptManager::ScriptManager() { + +} + +ScriptManager::Script* ScriptManager::createScript(std::string name, std::string path) { + ScriptManager::Script* script = new ScriptManager::Script(this, name, path); + scripts[name] = script; + return script; +} + +ScriptManager::Script::Script(ScriptManager* man, std::string name, std::string path) { + this->name = name; + manager = man; + std::ifstream file(path, std::ios::in); + std::stringstream ss; + ss << file.rdbuf(); + code = ss.str(); +} + +void ScriptManager::Script::run() { + ctx = ScriptManager::createContext(manager, name); + running = true; + if (worker.joinable()) { + worker.join(); + } + worker = std::thread(scriptWorker, this); +} + +duk_context* ScriptManager::createContext(ScriptManager* _this, std::string name) { + duk_context* ctx = duk_create_heap_default(); + + duk_console_init(ctx, DUK_CONSOLE_PROXY_WRAPPER); + + duk_push_string(ctx, name.c_str()); + duk_put_global_string(ctx, "SCRIPT_NAME"); + + duk_idx_t sdrppBase = duk_push_object(ctx); + + duk_push_string(ctx, VERSION_STR); + duk_put_prop_string(ctx, sdrppBase, "version"); + + duk_idx_t modObjId = duk_push_object(ctx); + for (const auto& [name, handler] : _this->handlers) { + duk_idx_t objId = duk_push_object(ctx); + handler.handler(handler.ctx, ctx, objId); + duk_put_prop_string(ctx, modObjId, name.c_str()); + } + duk_put_prop_string(ctx, sdrppBase, "modules"); + + duk_put_global_string(ctx, "sdrpp"); + + return ctx; +} + +// TODO: Switch to spdlog + +void ScriptManager::Script::scriptWorker(Script* script) { + if (duk_peval_string(script->ctx, script->code.c_str()) != 0) { + printf("Error: %s\n", duk_safe_to_string(script->ctx, -1)); + //return; + } + duk_destroy_heap(script->ctx); + script->running = false; +} + +void ScriptManager::bindScriptRunHandler(std::string name, ScriptManager::ScriptRunHandler_t handler) { + // TODO: check if it exists and add a "unbind" function + handlers[name] = handler; +} \ No newline at end of file diff --git a/core/src/scripting.h b/core/src/scripting.h new file mode 100644 index 0000000..34c2304 --- /dev/null +++ b/core/src/scripting.h @@ -0,0 +1,48 @@ +#pragma once +#include +#include +#include +#include +#include + +class ScriptManager { +public: + ScriptManager(); + + friend class Script; + + class Script { + public: + Script(ScriptManager* man, std::string name, std::string path); + void run(); + bool running = false; + + private: + static void scriptWorker(Script* _this); + + duk_context* ctx; + std::thread worker; + std::string code; + std::string name; + + + ScriptManager* manager; + + }; + + struct ScriptRunHandler_t { + void (*handler)(void* ctx, duk_context* dukCtx, duk_idx_t objId); + void* ctx; + }; + + void bindScriptRunHandler(std::string name, ScriptManager::ScriptRunHandler_t handler); + ScriptManager::Script* createScript(std::string name, std::string path); + + std::map scripts; + +private: + static duk_context* createContext(ScriptManager* _this, std::string name); + + std::map handlers; + +}; \ No newline at end of file diff --git a/radio/src/main.cpp b/radio/src/main.cpp index ebaba39..feb565b 100644 --- a/radio/src/main.cpp +++ b/radio/src/main.cpp @@ -3,6 +3,7 @@ #include #include #include +#include #define CONCAT(a, b) ((std::string(a) + b).c_str()) #define DEEMP_LIST "50µS\00075µS\000none\000" @@ -26,6 +27,11 @@ public: sigPath.start(); sigPath.setDemodulator(SigPath::DEMOD_FM, bandWidth); gui::menu.registerEntry(name, menuHandler, this); + + ScriptManager::ScriptRunHandler_t handler; + handler.ctx = this; + handler.handler = scriptCreateHandler; + core::scriptManager.bindScriptRunHandler(name, handler); } ~RadioModule() { @@ -117,6 +123,32 @@ private: ImGui::PopItemWidth(); } + static void scriptCreateHandler(void* ctx, duk_context* dukCtx, duk_idx_t objId) { + duk_push_string(dukCtx, "Hello from modules ;)"); + duk_put_prop_string(dukCtx, objId, "test"); + + duk_push_c_function(dukCtx, duk_setDemodulator, 1); + duk_put_prop_string(dukCtx, objId, "setDemodulator"); + + duk_push_pointer(dukCtx, ctx); + duk_put_prop_string(dukCtx, objId, DUK_HIDDEN_SYMBOL("radio_ctx")); + } + + static duk_ret_t duk_setDemodulator(duk_context* dukCtx) { + const char* str = duk_require_string(dukCtx, -1); + std::string modName = str; + + if (modName == "USB") { + _this->demod = 4; + _this->bandWidth = 3000; + _this->bandWidthMin = 1500; + _this->bandWidthMax = 3000; + _this->sigPath.setDemodulator(SigPath::DEMOD_USB, _this->bandWidth); + } + + return 0; + } + std::string name; int demod = 1; int deemp = 0; diff --git a/root_dev/config.json b/root_dev/config.json index d77e7e4..190f7d8 100644 --- a/root_dev/config.json +++ b/root_dev/config.json @@ -11,6 +11,7 @@ "Radio", "Recorder", "Audio", + "Scripting", "Band Plan", "Display" ], @@ -20,7 +21,7 @@ "source": "", "sourceSettings": {}, "windowSize": { - "h": 1053, - "w": 1920 + "h": 720, + "w": 1280 } } \ No newline at end of file diff --git a/root_dev/module_list.json b/root_dev/module_list.json index f026332..a64f080 100644 --- a/root_dev/module_list.json +++ b/root_dev/module_list.json @@ -1,7 +1,7 @@ { - "Radio": "./radio/radio.so", - "Recorder": "./recorder/recorder.so", - "Soapy": "./soapy/soapy.so", - "FileSource": "./file_source/file_source.so", - "RTLTCPSource": "./rtl_tcp_source/rtl_tcp_source.so" + "Radio": "./radio/Release/radio.dll", + "Recorder": "./recorder/Release/recorder.dll", + "Soapy": "./soapy/Release/soapy.dll", + "FileSource": "./file_source/Release/file_source.dll", + "RTLTCPSource": "./rtl_tcp_source/Release/rtl_tcp_source.dll" } From 3b6a3ff94d82a6af592ab8e28ee4a947363e5830 Mon Sep 17 00:00:00 2001 From: AlexandreRouma Date: Wed, 7 Oct 2020 22:44:54 +0200 Subject: [PATCH 23/33] Fixed scripting + cleaner code + fixed RTLTCP --- CMakeLists.txt | 6 ++ core/src/config.cpp | 3 + core/src/config.h | 7 +- core/src/core.cpp | 11 +- core/src/dsp/block.h | 1 + core/src/gui/bandplan.cpp | 5 + core/src/gui/bandplan.h | 6 +- core/src/gui/dialogs/credits.cpp | 1 + core/src/gui/frequency_select.cpp | 1 + core/src/gui/frequency_select.h | 1 - core/src/gui/gui.h | 2 + core/src/gui/icons.cpp | 3 + core/src/gui/icons.h | 3 +- core/src/gui/main_window.cpp | 44 ++++++-- core/src/gui/main_window.h | 38 +------ core/src/gui/menu.cpp | 1 + core/src/gui/menu.h | 1 - core/src/gui/menus/scripting.cpp | 1 + core/src/gui/style.cpp | 3 + core/src/gui/style.h | 3 - core/src/gui/waterfall.cpp | 5 + core/src/gui/waterfall.h | 8 +- core/src/module.cpp | 10 +- core/src/module.h | 7 -- core/src/scripting.cpp | 18 ++++ core/src/scripting.h | 3 + core/src/signal_path/audio.h | 1 - core/src/signal_path/dsp.h | 1 - radio/src/main.cpp | 159 ++++++++++++++++++++++++++++- root_dev/config.json | 6 +- root_dev/module_list.json | 9 +- rtl_tcp_source/src/main.cpp | 4 +- rtl_tcp_source/src/rtltcp_client.h | 2 +- 33 files changed, 274 insertions(+), 100 deletions(-) diff --git a/CMakeLists.txt b/CMakeLists.txt index 49729ac..828e6f2 100644 --- a/CMakeLists.txt +++ b/CMakeLists.txt @@ -10,6 +10,12 @@ add_subdirectory("file_source") add_subdirectory("rtl_tcp_source") add_subdirectory("demo") +if (MSVC) + set(CMAKE_CXX_FLAGS "-O2 /std:c++17") +else() + set(CMAKE_CXX_FLAGS "-O3 -std=c++17") +endif (MSVC) + add_executable(sdrpp "src/main.cpp" "win32/resources.rc") target_link_libraries(sdrpp PRIVATE sdrpp_core) diff --git a/core/src/config.cpp b/core/src/config.cpp index 39ad79f..3c167bb 100644 --- a/core/src/config.cpp +++ b/core/src/config.cpp @@ -1,4 +1,7 @@ #include +#include +#include +#include ConfigManager::ConfigManager() { diff --git a/core/src/config.h b/core/src/config.h index 6a327d8..e5cb96f 100644 --- a/core/src/config.h +++ b/core/src/config.h @@ -1,13 +1,8 @@ #pragma once #include -#include -#include -#include -#include -#include #include -#include #include +#include using nlohmann::json; diff --git a/core/src/core.cpp b/core/src/core.cpp index abc8f94..0e47295 100644 --- a/core/src/core.cpp +++ b/core/src/core.cpp @@ -16,12 +16,11 @@ #include #include #include -#include - -#include #define STB_IMAGE_RESIZE_IMPLEMENTATION #include +#include +#include #ifdef _WIN32 #include @@ -97,9 +96,9 @@ int sdrpp_main() { // duk_pop(ctx); core::scriptManager.createScript("TestScript 1", "test.js"); - core::scriptManager.createScript("TestScript 2", "test.js"); - core::scriptManager.createScript("TestScript 3", "test.js"); - core::scriptManager.createScript("TestScript 4", "test.js"); + //core::scriptManager.createScript("TestScript 2", "test.js"); + //core::scriptManager.createScript("TestScript 3", "test.js"); + //core::scriptManager.createScript("TestScript 4", "test.js"); // TESTING diff --git a/core/src/dsp/block.h b/core/src/dsp/block.h index 644d821..865897c 100644 --- a/core/src/dsp/block.h +++ b/core/src/dsp/block.h @@ -1,6 +1,7 @@ #pragma once #include #include +#include namespace dsp { template diff --git a/core/src/gui/bandplan.cpp b/core/src/gui/bandplan.cpp index 79bfc44..af585b1 100644 --- a/core/src/gui/bandplan.cpp +++ b/core/src/gui/bandplan.cpp @@ -1,4 +1,9 @@ #include +#include +#include +#include +#include +#include namespace bandplan { std::map bandplans; diff --git a/core/src/gui/bandplan.h b/core/src/gui/bandplan.h index 315bc13..f7c46e0 100644 --- a/core/src/gui/bandplan.h +++ b/core/src/gui/bandplan.h @@ -1,11 +1,7 @@ #pragma once #include -#include -#include -#include -#include -#include #include +#include using nlohmann::json; diff --git a/core/src/gui/dialogs/credits.cpp b/core/src/gui/dialogs/credits.cpp index 060fc92..a8fa598 100644 --- a/core/src/gui/dialogs/credits.cpp +++ b/core/src/gui/dialogs/credits.cpp @@ -1,6 +1,7 @@ #include #include #include +#include namespace credits { ImFont* bigFont; diff --git a/core/src/gui/frequency_select.cpp b/core/src/gui/frequency_select.cpp index 711b8f0..25f25f3 100644 --- a/core/src/gui/frequency_select.cpp +++ b/core/src/gui/frequency_select.cpp @@ -1,4 +1,5 @@ #include +#include bool isInArea(ImVec2 val, ImVec2 min, ImVec2 max) { return val.x >= min.x && val.x < max.x && val.y >= min.y && val.y < max.y; diff --git a/core/src/gui/frequency_select.h b/core/src/gui/frequency_select.h index ef94c97..ebbe9ba 100644 --- a/core/src/gui/frequency_select.h +++ b/core/src/gui/frequency_select.h @@ -2,7 +2,6 @@ #include #include #include -#include class FrequencySelect { public: diff --git a/core/src/gui/gui.h b/core/src/gui/gui.h index 32d48b3..aa241d3 100644 --- a/core/src/gui/gui.h +++ b/core/src/gui/gui.h @@ -8,4 +8,6 @@ namespace gui { SDRPP_EXPORT ImGui::WaterFall waterfall; SDRPP_EXPORT FrequencySelect freqSelect; SDRPP_EXPORT Menu menu; + + void selectSource(std::string name); }; \ No newline at end of file diff --git a/core/src/gui/icons.cpp b/core/src/gui/icons.cpp index b6af76d..84b98f9 100644 --- a/core/src/gui/icons.cpp +++ b/core/src/gui/icons.cpp @@ -1,4 +1,7 @@ #include +#include +#include +#include #define STB_IMAGE_IMPLEMENTATION #include diff --git a/core/src/gui/icons.h b/core/src/gui/icons.h index f932c4d..748be74 100644 --- a/core/src/gui/icons.h +++ b/core/src/gui/icons.h @@ -1,8 +1,7 @@ #pragma once #include -#include #include -#include +#include namespace icons { extern ImTextureID LOGO; diff --git a/core/src/gui/main_window.cpp b/core/src/gui/main_window.cpp index dfe641f..3d10ad5 100644 --- a/core/src/gui/main_window.cpp +++ b/core/src/gui/main_window.cpp @@ -1,5 +1,40 @@ #include #include +#include "imgui.h" +#include "imgui_impl_glfw.h" +#include "imgui_impl_opengl3.h" +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include std::thread worker; std::mutex fft_mtx; @@ -106,7 +141,6 @@ void windowInit() { gui::waterfall.setWaterfallMax(fftMax); float frequency = core::configManager.conf["frequency"]; - gui::freqSelect.setFrequency(frequency); gui::freqSelect.frequencyChanged = false; @@ -459,12 +493,4 @@ void drawWindow() { if (showCredits) { credits::show(); } -} - -void bindVolumeVariable(float* vol) { - volume = vol; -} - -void unbindVolumeVariable() { - volume = &dummyVolume; } \ No newline at end of file diff --git a/core/src/gui/main_window.h b/core/src/gui/main_window.h index 035717d..02f6ba6 100644 --- a/core/src/gui/main_window.h +++ b/core/src/gui/main_window.h @@ -1,43 +1,7 @@ #pragma once #include "imgui.h" -#include "imgui_impl_glfw.h" -#include "imgui_impl_opengl3.h" -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include #define WINDOW_FLAGS ImGuiWindowFlags_NoMove | ImGuiWindowFlags_NoCollapse | ImGuiWindowFlags_NoBringToFrontOnFocus | ImGuiWindowFlags_NoTitleBar | ImGuiWindowFlags_NoResize | ImGuiWindowFlags_NoBackground void windowInit(); -void drawWindow(); -void bindVolumeVariable(float* vol); -void unbindVolumeVariable(); \ No newline at end of file +void drawWindow(); \ No newline at end of file diff --git a/core/src/gui/menu.cpp b/core/src/gui/menu.cpp index c5611f7..74feb7e 100644 --- a/core/src/gui/menu.cpp +++ b/core/src/gui/menu.cpp @@ -1,4 +1,5 @@ #include +#include Menu::Menu() { diff --git a/core/src/gui/menu.h b/core/src/gui/menu.h index 1b3c8be..6e7965e 100644 --- a/core/src/gui/menu.h +++ b/core/src/gui/menu.h @@ -1,5 +1,4 @@ #pragma once -#include #include #include #include diff --git a/core/src/gui/menus/scripting.cpp b/core/src/gui/menus/scripting.cpp index fc02c8b..c17812c 100644 --- a/core/src/gui/menus/scripting.cpp +++ b/core/src/gui/menus/scripting.cpp @@ -1,6 +1,7 @@ #include #include #include +#include namespace scriptingmenu { void init() { diff --git a/core/src/gui/style.cpp b/core/src/gui/style.cpp index ea9a6a8..2541bd5 100644 --- a/core/src/gui/style.cpp +++ b/core/src/gui/style.cpp @@ -1,4 +1,7 @@ #include +#include +#include +#include namespace style { void setDefaultStyle() { diff --git a/core/src/gui/style.h b/core/src/gui/style.h index e588539..13e62c9 100644 --- a/core/src/gui/style.h +++ b/core/src/gui/style.h @@ -1,7 +1,4 @@ #pragma once -#include -#include -#include namespace style { void setDefaultStyle(); diff --git a/core/src/gui/waterfall.cpp b/core/src/gui/waterfall.cpp index 18cc1ea..3698bcc 100644 --- a/core/src/gui/waterfall.cpp +++ b/core/src/gui/waterfall.cpp @@ -1,4 +1,9 @@ #include +#include +#include +#include +#include +#include float COLOR_MAP[][3] = { {0x00, 0x00, 0x20}, diff --git a/core/src/gui/waterfall.h b/core/src/gui/waterfall.h index 3bcf830..ac48a66 100644 --- a/core/src/gui/waterfall.h +++ b/core/src/gui/waterfall.h @@ -1,12 +1,10 @@ #pragma once -#include -#include #include #include -#include -#include #include -#include +#include +#include +#include #define WATERFALL_RESOLUTION 1000000 diff --git a/core/src/module.cpp b/core/src/module.cpp index 8417473..05c9ed9 100644 --- a/core/src/module.cpp +++ b/core/src/module.cpp @@ -1,12 +1,14 @@ #include -#include -#include -#include +#include +#include +#include +#include + +using nlohmann::json; namespace mod { std::map modules; std::vector moduleNames; - ImGui::WaterFall* _wtf; void loadModule(std::string path, std::string name) { if (!std::filesystem::exists(path)) { diff --git a/core/src/module.h b/core/src/module.h index d366ad4..807f8b4 100644 --- a/core/src/module.h +++ b/core/src/module.h @@ -1,13 +1,6 @@ #pragma once #include #include -#include -#include -#include -#include -#include -#include -#include #include #ifdef _WIN32 diff --git a/core/src/scripting.cpp b/core/src/scripting.cpp index f9a769d..193b356 100644 --- a/core/src/scripting.cpp +++ b/core/src/scripting.cpp @@ -3,6 +3,8 @@ #include #include #include +#include +#include ScriptManager::ScriptManager() { @@ -42,9 +44,16 @@ duk_context* ScriptManager::createContext(ScriptManager* _this, std::string name duk_idx_t sdrppBase = duk_push_object(ctx); + // API + duk_push_string(ctx, VERSION_STR); duk_put_prop_string(ctx, sdrppBase, "version"); + duk_push_c_function(ctx, ScriptManager::duk_setSource, 1); + duk_put_prop_string(ctx, sdrppBase, "selectSource"); + + // Modules + duk_idx_t modObjId = duk_push_object(ctx); for (const auto& [name, handler] : _this->handlers) { duk_idx_t objId = duk_push_object(ctx); @@ -72,4 +81,13 @@ void ScriptManager::Script::scriptWorker(Script* script) { void ScriptManager::bindScriptRunHandler(std::string name, ScriptManager::ScriptRunHandler_t handler) { // TODO: check if it exists and add a "unbind" function handlers[name] = handler; +} + +duk_ret_t ScriptManager::duk_setSource(duk_context* dukCtx) { + const char* name = duk_require_string(dukCtx, -1); + sigpath::sourceManager.selectSource(name); + + duk_pop_n(dukCtx, 1); // Pop demod name, this and context + + return 0; } \ No newline at end of file diff --git a/core/src/scripting.h b/core/src/scripting.h index 34c2304..dbc6c64 100644 --- a/core/src/scripting.h +++ b/core/src/scripting.h @@ -43,6 +43,9 @@ public: private: static duk_context* createContext(ScriptManager* _this, std::string name); + // API + static duk_ret_t duk_setSource(duk_context* ctx); + std::map handlers; }; \ No newline at end of file diff --git a/core/src/signal_path/audio.h b/core/src/signal_path/audio.h index 8f8fe9a..49ac6a1 100644 --- a/core/src/signal_path/audio.h +++ b/core/src/signal_path/audio.h @@ -3,7 +3,6 @@ #include #include #include -#include namespace audio { enum { diff --git a/core/src/signal_path/dsp.h b/core/src/signal_path/dsp.h index 850f854..215ecb2 100644 --- a/core/src/signal_path/dsp.h +++ b/core/src/signal_path/dsp.h @@ -8,7 +8,6 @@ #include #include #include -#include #include #include diff --git a/radio/src/main.cpp b/radio/src/main.cpp index feb565b..7d4a34c 100644 --- a/radio/src/main.cpp +++ b/radio/src/main.cpp @@ -129,6 +129,21 @@ private: duk_push_c_function(dukCtx, duk_setDemodulator, 1); duk_put_prop_string(dukCtx, objId, "setDemodulator"); + + duk_push_c_function(dukCtx, duk_getDemodulator, 0); + duk_put_prop_string(dukCtx, objId, "getDemodulator"); + + duk_push_c_function(dukCtx, duk_setBandwidth, 1); + duk_put_prop_string(dukCtx, objId, "setBandwidth"); + + duk_push_c_function(dukCtx, duk_getBandwidth, 0); + duk_put_prop_string(dukCtx, objId, "getBandwidth"); + + duk_push_c_function(dukCtx, duk_getMaxBandwidth, 0); + duk_put_prop_string(dukCtx, objId, "getMaxBandwidth"); + + duk_push_c_function(dukCtx, duk_getMinBandwidth, 0); + duk_put_prop_string(dukCtx, objId, "getMinBandwidth"); duk_push_pointer(dukCtx, ctx); duk_put_prop_string(dukCtx, objId, DUK_HIDDEN_SYMBOL("radio_ctx")); @@ -138,17 +153,159 @@ private: const char* str = duk_require_string(dukCtx, -1); std::string modName = str; - if (modName == "USB") { + duk_push_this(dukCtx); + if (!duk_get_prop_literal(dukCtx, -1, DUK_HIDDEN_SYMBOL("radio_ctx"))) { + printf("COULD NOT RETRIEVE POINTER\n"); + } + + RadioModule* _this = (RadioModule*)duk_require_pointer(dukCtx, -1); + + duk_pop_n(dukCtx, 3); // Pop demod name, this and context + + if (modName == "NFM") { + _this->demod = 0; + _this->bandWidth = 16000; + _this->bandWidthMin = 8000; + _this->bandWidthMax = 16000; + _this->sigPath.setDemodulator(SigPath::DEMOD_NFM, _this->bandWidth); + } + else if (modName == "WFM") { + _this->demod = 1; + _this->bandWidth = 200000; + _this->bandWidthMin = 100000; + _this->bandWidthMax = 200000; + _this->sigPath.setDemodulator(SigPath::DEMOD_FM, _this->bandWidth); + } + else if (modName == "AM") { + _this->demod = 2; + _this->bandWidth = 12500; + _this->bandWidthMin = 6250; + _this->bandWidthMax = 12500; + _this->sigPath.setDemodulator(SigPath::DEMOD_AM, _this->bandWidth); + } + else if (modName == "DSB") { + _this->demod = 3; + _this->bandWidth = 6000; + _this->bandWidthMin = 3000; + _this->bandWidthMax = 6000; + _this->sigPath.setDemodulator(SigPath::DEMOD_DSB, _this->bandWidth); + } + else if (modName == "USB") { _this->demod = 4; _this->bandWidth = 3000; _this->bandWidthMin = 1500; _this->bandWidthMax = 3000; _this->sigPath.setDemodulator(SigPath::DEMOD_USB, _this->bandWidth); } + else if (modName == "CW") { _this->demod = 5; } + else if (modName == "LSB") { + _this->demod = 6; + _this->bandWidth = 3000; + _this->bandWidthMin = 1500; + _this->bandWidthMax = 3000; + _this->sigPath.setDemodulator(SigPath::DEMOD_LSB, _this->bandWidth); + } + else if (modName == "RAW") { + _this->demod = 7; + _this->bandWidth = 10000; + _this->bandWidthMin = 3000; + _this->bandWidthMax = 10000; + _this->sigPath.setDemodulator(SigPath::DEMOD_RAW, _this->bandWidth); + } + else { + duk_push_string(dukCtx, "Invalid demodulator name"); + duk_throw(dukCtx); + } return 0; } + static duk_ret_t duk_getDemodulator(duk_context* dukCtx) { + duk_push_this(dukCtx); + if (!duk_get_prop_literal(dukCtx, -1, DUK_HIDDEN_SYMBOL("radio_ctx"))) { + printf("COULD NOT RETRIEVE POINTER\n"); + } + + RadioModule* _this = (RadioModule*)duk_require_pointer(dukCtx, -1); + + duk_pop_n(dukCtx, 2); // Pop demod name, this and context + + const char* demodNames[] = {"NFM", "WFM", "AM", "DSB", "USB", "CW", "LSB", "RAW"}; + + duk_push_string(dukCtx, demodNames[_this->demod]); + + return 1; + } + + static duk_ret_t duk_setBandwidth(duk_context* dukCtx) { + double bandwidth = duk_require_number(dukCtx, -1); + + duk_push_this(dukCtx); + if (!duk_get_prop_literal(dukCtx, -1, DUK_HIDDEN_SYMBOL("radio_ctx"))) { + printf("COULD NOT RETRIEVE POINTER\n"); + } + + RadioModule* _this = (RadioModule*)duk_require_pointer(dukCtx, -1); + + duk_pop_n(dukCtx, 3); // Pop demod name, this and context + + if (bandwidth > _this->bandWidthMax || bandwidth < _this->bandWidthMin) { + duk_push_string(dukCtx, "Bandwidth out of range"); + duk_throw(dukCtx); + } + + _this->bandWidth = bandwidth; + _this->bandWidth = std::clamp(_this->bandWidth, _this->bandWidthMin, _this->bandWidthMax); + _this->sigPath.setBandwidth(_this->bandWidth); + + return 0; + } + + static duk_ret_t duk_getBandwidth(duk_context* dukCtx) { + duk_push_this(dukCtx); + if (!duk_get_prop_literal(dukCtx, -1, DUK_HIDDEN_SYMBOL("radio_ctx"))) { + printf("COULD NOT RETRIEVE POINTER\n"); + } + + RadioModule* _this = (RadioModule*)duk_require_pointer(dukCtx, -1); + + duk_pop_n(dukCtx, 2); // Pop demod name, this and context + + duk_push_number(dukCtx, _this->bandWidth); + + return 1; + } + + static duk_ret_t duk_getMaxBandwidth(duk_context* dukCtx) { + duk_push_this(dukCtx); + if (!duk_get_prop_literal(dukCtx, -1, DUK_HIDDEN_SYMBOL("radio_ctx"))) { + printf("COULD NOT RETRIEVE POINTER\n"); + } + + RadioModule* _this = (RadioModule*)duk_require_pointer(dukCtx, -1); + + duk_pop_n(dukCtx, 2); // Pop demod name, this and context + + duk_push_number(dukCtx, _this->bandWidthMax); + + return 1; + } + + static duk_ret_t duk_getMinBandwidth(duk_context* dukCtx) { + duk_push_this(dukCtx); + if (!duk_get_prop_literal(dukCtx, -1, DUK_HIDDEN_SYMBOL("radio_ctx"))) { + printf("COULD NOT RETRIEVE POINTER\n"); + } + + RadioModule* _this = (RadioModule*)duk_require_pointer(dukCtx, -1); + + duk_pop_n(dukCtx, 2); // Pop demod name, this and context + + duk_push_number(dukCtx, _this->bandWidthMin); + + return 1; + } + std::string name; int demod = 1; int deemp = 0; diff --git a/root_dev/config.json b/root_dev/config.json index 190f7d8..b999d15 100644 --- a/root_dev/config.json +++ b/root_dev/config.json @@ -3,7 +3,7 @@ "bandPlan": "General", "bandPlanEnabled": true, "fftHeight": 300, - "frequency": 96571704, + "frequency": 96035792, "max": 0.0, "maximized": false, "menuOrder": [ @@ -21,7 +21,7 @@ "source": "", "sourceSettings": {}, "windowSize": { - "h": 720, - "w": 1280 + "h": 1053, + "w": 959 } } \ No newline at end of file diff --git a/root_dev/module_list.json b/root_dev/module_list.json index a64f080..5a29e31 100644 --- a/root_dev/module_list.json +++ b/root_dev/module_list.json @@ -1,7 +1,6 @@ { - "Radio": "./radio/Release/radio.dll", - "Recorder": "./recorder/Release/recorder.dll", - "Soapy": "./soapy/Release/soapy.dll", - "FileSource": "./file_source/Release/file_source.dll", - "RTLTCPSource": "./rtl_tcp_source/Release/rtl_tcp_source.dll" + "Radio": "./radio/radio.so", + "Recorder": "./recorder/recorder.so", + "Soapy": "./soapy/soapy.so", + "RTLTCPSource": "./rtl_tcp_source/rtl_tcp_source.so" } diff --git a/rtl_tcp_source/src/main.cpp b/rtl_tcp_source/src/main.cpp index a072432..e247afb 100644 --- a/rtl_tcp_source/src/main.cpp +++ b/rtl_tcp_source/src/main.cpp @@ -10,8 +10,8 @@ #define CONCAT(a, b) ((std::string(a) + b).c_str()) MOD_INFO { - /* Name: */ "fike_source", - /* Description: */ "File input module for SDR++", + /* Name: */ "rtl_tcp_source", + /* Description: */ "RTL-TCP input module for SDR++", /* Author: */ "Ryzerth", /* Version: */ "0.1.0" }; diff --git a/rtl_tcp_source/src/rtltcp_client.h b/rtl_tcp_source/src/rtltcp_client.h index 09d6818..5ffc771 100644 --- a/rtl_tcp_source/src/rtltcp_client.h +++ b/rtl_tcp_source/src/rtltcp_client.h @@ -87,7 +87,7 @@ public: bzero(&serv_addr, sizeof(struct sockaddr_in)); serv_addr.sin_family = AF_INET; bcopy((char *)server->h_addr, (char *)&serv_addr.sin_addr.s_addr, server->h_length); - serv_addr.sin_port = port; + serv_addr.sin_port = htons(port); if (connect(sockfd,(struct sockaddr *)&serv_addr,sizeof(serv_addr)) < 0) { // TODO: log error return false; From 027054b57e025329adb21062a1bb1792a957d945 Mon Sep 17 00:00:00 2001 From: AlexandreRouma Date: Thu, 15 Oct 2020 16:09:01 +0200 Subject: [PATCH 24/33] Fixed waterfall inaccuracies + started adding stepped VFO --- core/src/gui/bandplan.h | 4 +- core/src/gui/main_window.cpp | 104 ++++++------ core/src/gui/waterfall.cpp | 229 ++++++++++++++------------- core/src/gui/waterfall.h | 54 +++---- core/src/io/audio.h | 6 +- core/src/signal_path/audio.cpp | 16 +- core/src/signal_path/audio.h | 20 +-- core/src/signal_path/dsp.cpp | 4 +- core/src/signal_path/dsp.h | 10 +- core/src/signal_path/vfo_manager.cpp | 20 +-- core/src/signal_path/vfo_manager.h | 20 +-- root_dev/config.json | 2 +- 12 files changed, 247 insertions(+), 242 deletions(-) diff --git a/core/src/gui/bandplan.h b/core/src/gui/bandplan.h index f7c46e0..d9107fa 100644 --- a/core/src/gui/bandplan.h +++ b/core/src/gui/bandplan.h @@ -9,8 +9,8 @@ namespace bandplan { struct Band_t { std::string name; std::string type; - float start; - float end; + double start; + double end; }; void to_json(json& j, const Band_t& b); diff --git a/core/src/gui/main_window.cpp b/core/src/gui/main_window.cpp index 3d10ad5..71fb33b 100644 --- a/core/src/gui/main_window.cpp +++ b/core/src/gui/main_window.cpp @@ -52,14 +52,14 @@ void fftHandler(dsp::complex_t* samples) { int half = fftSize / 2; for (int i = 0; i < half; i++) { - _data.push_back(log10(std::abs(std::complex(fft_out[half + i][0], fft_out[half + i][1])) / (float)fftSize) * 10.0f); + _data.push_back(log10(std::abs(std::complex(fft_out[half + i][0], fft_out[half + i][1])) / (float)fftSize) * 10.0); } for (int i = 0; i < half; i++) { - _data.push_back(log10(std::abs(std::complex(fft_out[i][0], fft_out[i][1])) / (float)fftSize) * 10.0f); + _data.push_back(log10(std::abs(std::complex(fft_out[i][0], fft_out[i][1])) / (float)fftSize) * 10.0); } for (int i = 5; i < fftSize; i++) { - _data[i] = (_data[i - 4] + _data[i - 3] + _data[i - 2] + _data[i - 1] + _data[i]) / 5.0f; + _data[i] = (_data[i - 4] + _data[i - 3] + _data[i - 2] + _data[i - 1] + _data[i]) / 5.0; } gui::waterfall.pushFFT(_data, fftSize); @@ -68,13 +68,13 @@ void fftHandler(dsp::complex_t* samples) { dsp::NullSink sink; watcher freq((uint64_t)90500000); -watcher vfoFreq(92000000.0f); -float dummyVolume = 1.0f; +watcher vfoFreq(92000000.0); +float dummyVolume = 1.0; float* volume = &dummyVolume; -float fftMin = -70.0f; -float fftMax = 0.0f; -watcher offset(0.0f, true); -watcher bw(8000000.0f, true); +float fftMin = -70.0; +float fftMax = 0.0; +watcher offset(0.0, true); +watcher bw(8000000.0, true); bool playing = false; watcher dcbias(false, false); bool showCredits = false; @@ -140,7 +140,7 @@ void windowInit() { gui::waterfall.setFFTMax(fftMax); gui::waterfall.setWaterfallMax(fftMax); - float frequency = core::configManager.conf["frequency"]; + double frequency = core::configManager.conf["frequency"]; gui::freqSelect.setFrequency(frequency); gui::freqSelect.frequencyChanged = false; @@ -164,27 +164,27 @@ void windowInit() { core::configManager.release(); } -void setVFO(float freq) { +void setVFO(double freq) { ImGui::WaterfallVFO* vfo = gui::waterfall.vfos[gui::waterfall.selectedVFO]; - float currentOff = vfo->centerOffset; - float currentTune = gui::waterfall.getCenterFrequency() + vfo->generalOffset; - float delta = freq - currentTune; + double currentOff = vfo->centerOffset; + double currentTune = gui::waterfall.getCenterFrequency() + vfo->generalOffset; + double delta = freq - currentTune; - float newVFO = currentOff + delta; - float vfoBW = vfo->bandwidth; - float vfoBottom = newVFO - (vfoBW / 2.0f); - float vfoTop = newVFO + (vfoBW / 2.0f); + double newVFO = currentOff + delta; + double vfoBW = vfo->bandwidth; + double vfoBottom = newVFO - (vfoBW / 2.0); + double vfoTop = newVFO + (vfoBW / 2.0); - float view = gui::waterfall.getViewOffset(); - float viewBW = gui::waterfall.getViewBandwidth(); - float viewBottom = view - (viewBW / 2.0f); - float viewTop = view + (viewBW / 2.0f); + double view = gui::waterfall.getViewOffset(); + double viewBW = gui::waterfall.getViewBandwidth(); + double viewBottom = view - (viewBW / 2.0); + double viewTop = view + (viewBW / 2.0); - float wholeFreq = gui::waterfall.getCenterFrequency(); - float BW = gui::waterfall.getBandwidth(); - float bottom = -(BW / 2.0f); - float top = (BW / 2.0f); + double wholeFreq = gui::waterfall.getCenterFrequency(); + double BW = gui::waterfall.getBandwidth(); + double bottom = -(BW / 2.0); + double top = (BW / 2.0); // VFO still fints in the view if (vfoBottom > viewBottom && vfoTop < viewTop) { @@ -194,8 +194,8 @@ void setVFO(float freq) { // VFO too low for current SDR tuning if (vfoBottom < bottom) { - gui::waterfall.setViewOffset((BW / 2.0f) - (viewBW / 2.0f)); - float newVFOOffset = (BW / 2.0f) - (vfoBW / 2.0f) - (viewBW / 10.0f); + gui::waterfall.setViewOffset((BW / 2.0) - (viewBW / 2.0)); + double newVFOOffset = (BW / 2.0) - (vfoBW / 2.0) - (viewBW / 10.0); sigpath::vfoManager.setCenterOffset(gui::waterfall.selectedVFO, newVFOOffset); gui::waterfall.setCenterFrequency(freq - newVFOOffset); sigpath::sourceManager.tune(freq - newVFOOffset); @@ -204,8 +204,8 @@ void setVFO(float freq) { // VFO too high for current SDR tuning if (vfoTop > top) { - gui::waterfall.setViewOffset((viewBW / 2.0f) - (BW / 2.0f)); - float newVFOOffset = (vfoBW / 2.0f) - (BW / 2.0f) + (viewBW / 10.0f); + gui::waterfall.setViewOffset((viewBW / 2.0) - (BW / 2.0)); + double newVFOOffset = (vfoBW / 2.0) - (BW / 2.0) + (viewBW / 10.0); sigpath::vfoManager.setCenterOffset(gui::waterfall.selectedVFO, newVFOOffset); gui::waterfall.setCenterFrequency(freq - newVFOOffset); sigpath::sourceManager.tune(freq - newVFOOffset); @@ -214,9 +214,9 @@ void setVFO(float freq) { // VFO is still without the SDR's bandwidth if (delta < 0) { - float newViewOff = vfoTop - (viewBW / 2.0f) + (viewBW / 10.0f); - float newViewBottom = newViewOff - (viewBW / 2.0f); - float newViewTop = newViewOff + (viewBW / 2.0f); + double newViewOff = vfoTop - (viewBW / 2.0) + (viewBW / 10.0); + double newViewBottom = newViewOff - (viewBW / 2.0); + double newViewTop = newViewOff + (viewBW / 2.0); if (newViewBottom > bottom) { gui::waterfall.setViewOffset(newViewOff); @@ -224,16 +224,16 @@ void setVFO(float freq) { return; } - gui::waterfall.setViewOffset((BW / 2.0f) - (viewBW / 2.0f)); - float newVFOOffset = (BW / 2.0f) - (vfoBW / 2.0f) - (viewBW / 10.0f); + gui::waterfall.setViewOffset((BW / 2.0) - (viewBW / 2.0)); + double newVFOOffset = (BW / 2.0) - (vfoBW / 2.0) - (viewBW / 10.0); sigpath::vfoManager.setCenterOffset(gui::waterfall.selectedVFO, newVFOOffset); gui::waterfall.setCenterFrequency(freq - newVFOOffset); sigpath::sourceManager.tune(freq - newVFOOffset); } else { - float newViewOff = vfoBottom + (viewBW / 2.0f) - (viewBW / 10.0f); - float newViewBottom = newViewOff - (viewBW / 2.0f); - float newViewTop = newViewOff + (viewBW / 2.0f); + double newViewOff = vfoBottom + (viewBW / 2.0) - (viewBW / 10.0); + double newViewBottom = newViewOff - (viewBW / 2.0); + double newViewTop = newViewOff + (viewBW / 2.0); if (newViewTop < top) { gui::waterfall.setViewOffset(newViewOff); @@ -241,8 +241,8 @@ void setVFO(float freq) { return; } - gui::waterfall.setViewOffset((viewBW / 2.0f) - (BW / 2.0f)); - float newVFOOffset = (vfoBW / 2.0f) - (BW / 2.0f) + (viewBW / 10.0f); + gui::waterfall.setViewOffset((viewBW / 2.0) - (BW / 2.0)); + double newVFOOffset = (vfoBW / 2.0) - (BW / 2.0) + (viewBW / 10.0); sigpath::vfoManager.setCenterOffset(gui::waterfall.selectedVFO, newVFOOffset); gui::waterfall.setCenterFrequency(freq - newVFOOffset); sigpath::sourceManager.tune(freq - newVFOOffset); @@ -341,7 +341,7 @@ void drawWindow() { ImGui::SetCursorPosY(ImGui::GetCursorPosY() + 8); ImGui::SetNextItemWidth(200); - if (ImGui::SliderFloat("##_2_", volume, 0.0f, 1.0f, "")) { + if (ImGui::SliderFloat("##_2_", volume, 0.0, 1.0, "")) { if (audioStreamName != "") { core::configManager.aquire(); if (!core::configManager.conf["audio"].contains(audioStreamName)) { @@ -414,9 +414,9 @@ void drawWindow() { gui::menu.draw(); if(ImGui::CollapsingHeader("Debug")) { - ImGui::Text("Frame time: %.3f ms/frame", 1000.0f / ImGui::GetIO().Framerate); + ImGui::Text("Frame time: %.3f ms/frame", 1000.0 / ImGui::GetIO().Framerate); ImGui::Text("Framerate: %.1f FPS", ImGui::GetIO().Framerate); - ImGui::Text("Center Frequency: %.0f Hz", gui::waterfall.getCenterFrequency()); + ImGui::Text("Center Frequency: %.0 Hz", gui::waterfall.getCenterFrequency()); ImGui::Text("Source name: %s", sourceName.c_str()); ImGui::Spacing(); } @@ -446,17 +446,17 @@ void drawWindow() { ImGui::NextColumn(); ImGui::BeginChild("WaterfallControls"); - ImGui::SetCursorPosX((ImGui::GetWindowSize().x / 2.0f) - (ImGui::CalcTextSize("Zoom").x / 2.0f)); + ImGui::SetCursorPosX((ImGui::GetWindowSize().x / 2.0) - (ImGui::CalcTextSize("Zoom").x / 2.0)); ImGui::Text("Zoom"); - ImGui::SetCursorPosX((ImGui::GetWindowSize().x / 2.0f) - 10); - ImGui::VSliderFloat("##_7_", ImVec2(20.0f, 150.0f), &bw.val, gui::waterfall.getBandwidth(), 1000.0f, ""); + ImGui::SetCursorPosX((ImGui::GetWindowSize().x / 2.0) - 10); + ImGui::VSliderFloat("##_7_", ImVec2(20.0, 150.0), &bw.val, gui::waterfall.getBandwidth(), 1000.0, ""); ImGui::NewLine(); - ImGui::SetCursorPosX((ImGui::GetWindowSize().x / 2.0f) - (ImGui::CalcTextSize("Max").x / 2.0f)); + ImGui::SetCursorPosX((ImGui::GetWindowSize().x / 2.0) - (ImGui::CalcTextSize("Max").x / 2.0)); ImGui::Text("Max"); - ImGui::SetCursorPosX((ImGui::GetWindowSize().x / 2.0f) - 10); - if (ImGui::VSliderFloat("##_8_", ImVec2(20.0f, 150.0f), &fftMax, 0.0f, -100.0f, "")) { + ImGui::SetCursorPosX((ImGui::GetWindowSize().x / 2.0) - 10); + if (ImGui::VSliderFloat("##_8_", ImVec2(20.0, 150.0), &fftMax, 0.0, -100.0, "")) { fftMax = std::max(fftMax, fftMin + 10); core::configManager.aquire(); core::configManager.conf["max"] = fftMax; @@ -465,10 +465,10 @@ void drawWindow() { ImGui::NewLine(); - ImGui::SetCursorPosX((ImGui::GetWindowSize().x / 2.0f) - (ImGui::CalcTextSize("Min").x / 2.0f)); + ImGui::SetCursorPosX((ImGui::GetWindowSize().x / 2.0) - (ImGui::CalcTextSize("Min").x / 2.0)); ImGui::Text("Min"); - ImGui::SetCursorPosX((ImGui::GetWindowSize().x / 2.0f) - 10); - if (ImGui::VSliderFloat("##_9_", ImVec2(20.0f, 150.0f), &fftMin, 0.0f, -100.0f, "")) { + ImGui::SetCursorPosX((ImGui::GetWindowSize().x / 2.0) - 10); + if (ImGui::VSliderFloat("##_9_", ImVec2(20.0, 150.0), &fftMin, 0.0, -100.0, "")) { fftMin = std::min(fftMax - 10, fftMin); core::configManager.aquire(); core::configManager.conf["min"] = fftMin; diff --git a/core/src/gui/waterfall.cpp b/core/src/gui/waterfall.cpp index 3698bcc..5b64e46 100644 --- a/core/src/gui/waterfall.cpp +++ b/core/src/gui/waterfall.cpp @@ -36,38 +36,40 @@ void doZoom(int offset, int width, int outWidth, std::vector data, float* } } -float freq_ranges[] = { - 1.0f, 2.0f, 2.5f, 5.0f, - 10.0f, 20.0f, 25.0f, 50.0f, - 100.0f, 200.0f, 250.0f, 500.0f, - 1000.0f, 2000.0f, 2500.0f, 5000.0f, - 10000.0f, 20000.0f, 25000.0f, 50000.0f, - 100000.0f, 200000.0f, 250000.0f, 500000.0f, - 1000000.0f, 2000000.0f, 2500000.0f, 5000000.0f, - 10000000.0f, 20000000.0f, 25000000.0f, 50000000.0f +// TODO: Fix this hacky BS + +double freq_ranges[] = { + 1.0, 2.0, 2.5, 5.0, + 10.0, 20.0, 25.0, 50.0, + 100.0, 200.0, 250.0, 500.0, + 1000.0, 2000.0, 2500.0, 5000.0, + 10000.0, 20000.0, 25000.0, 50000.0, + 100000.0, 200000.0, 250000.0, 500000.0, + 1000000.0, 2000000.0, 2500000.0, 5000000.0, + 10000000.0, 20000000.0, 25000000.0, 50000000.0 }; -float findBestRange(float bandwidth, int maxSteps) { +double findBestRange(double bandwidth, int maxSteps) { for (int i = 0; i < 32; i++) { - if (bandwidth / freq_ranges[i] < (float)maxSteps) { + if (bandwidth / freq_ranges[i] < (double)maxSteps) { return freq_ranges[i]; } } - return 50000000.0f; + return 50000000.0; } -void printAndScale(float freq, char* buf) { +void printAndScale(double freq, char* buf) { if (freq < 1000) { - sprintf(buf, "%.3f", freq); + sprintf(buf, "%.3lf", freq); } else if (freq < 1000000) { - sprintf(buf, "%.3fK", freq / 1000.0f); + sprintf(buf, "%.3lfK", freq / 1000.0); } else if (freq < 1000000000) { - sprintf(buf, "%.3fM", freq / 1000000.0f); + sprintf(buf, "%.3lfM", freq / 1000000.0); } else if (freq < 1000000000000) { - sprintf(buf, "%.3fG", freq / 1000000000.0f); + sprintf(buf, "%.3lfG", freq / 1000000000.0); } for (int i = strlen(buf) - 2; i >= 0; i--) { if (buf[i] != '0') { @@ -84,10 +86,10 @@ void printAndScale(float freq, char* buf) { namespace ImGui { WaterFall::WaterFall() { - fftMin = -70.0f; - fftMax = 0.0f; - waterfallMin = -70.0f; - waterfallMax = 0.0f; + fftMin = -70.0; + fftMax = 0.0; + waterfallMin = -70.0; + waterfallMax = 0.0; FFTAreaHeight = 300; newFFTAreaHeight = FFTAreaHeight; fftHeight = FFTAreaHeight - 50; @@ -99,8 +101,8 @@ namespace ImGui { latestFFT = new float[1]; waterfallFb = new uint32_t[1]; - viewBandwidth = 1.0f; - wholeBandwidth = 1.0f; + viewBandwidth = 1.0; + wholeBandwidth = 1.0; glGenTextures(1, &textureId); @@ -122,51 +124,51 @@ namespace ImGui { float yPos = widgetPos.y + fftHeight + 10 - ((line - fftMin) * scaleFactor); window->DrawList->AddLine(ImVec2(roundf(widgetPos.x + 50), roundf(yPos)), ImVec2(roundf(widgetPos.x + dataWidth + 50), roundf(yPos)), - IM_COL32(50, 50, 50, 255), 1.0f); + IM_COL32(50, 50, 50, 255), 1.0); sprintf(buf, "%d", (int)line); ImVec2 txtSz = ImGui::CalcTextSize(buf); - window->DrawList->AddText(ImVec2(widgetPos.x + 40 - txtSz.x, roundf(yPos - (txtSz.y / 2))), IM_COL32( 255, 255, 255, 255 ), buf); + window->DrawList->AddText(ImVec2(widgetPos.x + 40 - txtSz.x, roundf(yPos - (txtSz.y / 2.0))), IM_COL32( 255, 255, 255, 255 ), buf); } // Horizontal scale - float startFreq = ceilf(lowerFreq / range) * range; - float horizScale = (float)dataWidth / viewBandwidth; - for (float freq = startFreq; freq < upperFreq; freq += range) { - float xPos = widgetPos.x + 50 + ((freq - lowerFreq) * horizScale); + double startFreq = ceilf(lowerFreq / range) * range; + double horizScale = (double)dataWidth / viewBandwidth; + for (double freq = startFreq; freq < upperFreq; freq += range) { + double xPos = widgetPos.x + 50 + ((freq - lowerFreq) * horizScale); window->DrawList->AddLine(ImVec2(roundf(xPos), widgetPos.y + 10), ImVec2(roundf(xPos), widgetPos.y + fftHeight + 10), - IM_COL32(50, 50, 50, 255), 1.0f); + IM_COL32(50, 50, 50, 255), 1.0); window->DrawList->AddLine(ImVec2(roundf(xPos), widgetPos.y + fftHeight + 10), ImVec2(roundf(xPos), widgetPos.y + fftHeight + 17), - IM_COL32(255, 255, 255, 255), 1.0f); + IM_COL32(255, 255, 255, 255), 1.0); printAndScale(freq, buf); ImVec2 txtSz = ImGui::CalcTextSize(buf); - window->DrawList->AddText(ImVec2(roundf(xPos - (txtSz.x / 2.0f)), widgetPos.y + fftHeight + 10 + txtSz.y), IM_COL32( 255, 255, 255, 255 ), buf); + window->DrawList->AddText(ImVec2(roundf(xPos - (txtSz.x / 2.0)), widgetPos.y + fftHeight + 10 + txtSz.y), IM_COL32( 255, 255, 255, 255 ), buf); } // Data for (int i = 1; i < dataWidth; i++) { - float aPos = widgetPos.y + fftHeight + 10 - ((latestFFT[i - 1] - fftMin) * scaleFactor); - float bPos = widgetPos.y + fftHeight + 10 - ((latestFFT[i] - fftMin) * scaleFactor); + double aPos = widgetPos.y + fftHeight + 10 - ((latestFFT[i - 1] - fftMin) * scaleFactor); + double bPos = widgetPos.y + fftHeight + 10 - ((latestFFT[i] - fftMin) * scaleFactor); if (aPos < fftMin && bPos < fftMin) { continue; } - aPos = std::clamp(aPos, widgetPos.y + 10, widgetPos.y + fftHeight + 10); - bPos = std::clamp(bPos, widgetPos.y + 10, widgetPos.y + fftHeight + 10); + aPos = std::clamp(aPos, widgetPos.y + 10, widgetPos.y + fftHeight + 10); + bPos = std::clamp(bPos, widgetPos.y + 10, widgetPos.y + fftHeight + 10); window->DrawList->AddLine(ImVec2(widgetPos.x + 49 + i, roundf(aPos)), - ImVec2(widgetPos.x + 50 + i, roundf(bPos)), trace, 1.0f); + ImVec2(widgetPos.x + 50 + i, roundf(bPos)), trace, 1.0); window->DrawList->AddLine(ImVec2(widgetPos.x + 50 + i, roundf(bPos)), - ImVec2(widgetPos.x + 50 + i, widgetPos.y + fftHeight + 10), shadow, 1.0f); + ImVec2(widgetPos.x + 50 + i, widgetPos.y + fftHeight + 10), shadow, 1.0); } // X Axis window->DrawList->AddLine(ImVec2(widgetPos.x + 50, widgetPos.y + fftHeight + 10), ImVec2(widgetPos.x + dataWidth + 50, widgetPos.y + fftHeight + 10), - IM_COL32(255, 255, 255, 255), 1.0f); + IM_COL32(255, 255, 255, 255), 1.0); // Y Axis window->DrawList->AddLine(ImVec2(widgetPos.x + 50, widgetPos.y + 9), ImVec2(widgetPos.x + 50, widgetPos.y + fftHeight + 9), - IM_COL32(255, 255, 255, 255), 1.0f); + IM_COL32(255, 255, 255, 255), 1.0); } @@ -227,7 +229,7 @@ namespace ImGui { } int refCenter = mousePos.x - (widgetPos.x + 50); if (refCenter >= 0 && refCenter < dataWidth && mousePos.y > widgetPos.y && mousePos.y < (widgetPos.y + widgetSize.y)) { - vfo->setOffset(((((float)refCenter / ((float)dataWidth / 2.0f)) - 1.0f) * (viewBandwidth / 2.0f)) + viewOffset); + vfo->setOffset(((((double)refCenter / ((double)dataWidth / 2.0)) - 1.0) * (viewBandwidth / 2.0)) + viewOffset); } } @@ -235,33 +237,34 @@ namespace ImGui { if (draging && mouseInFFT) { int refCenter = mousePos.x - (widgetPos.x + 50); if (refCenter >= 0 && refCenter < dataWidth && mousePos.y > widgetPos.y && mousePos.y < (widgetPos.y + widgetSize.y)) { - vfo->setOffset(((((float)refCenter / ((float)dataWidth / 2.0f)) - 1.0f) * (viewBandwidth / 2.0f)) + viewOffset); + double off = ((((double)refCenter / ((double)dataWidth / 2.0)) - 1.0) * (viewBandwidth / 2.0)) + viewOffset; + vfo->setOffset(round(off / vfo->snapInterval) * vfo->snapInterval); } } - // Dragon frequency scale + // Draging frequency scale if (draging && mouseInFreq) { - float deltax = drag.x - lastDrag; + double deltax = drag.x - lastDrag; lastDrag = drag.x; - float viewDelta = deltax * (viewBandwidth / (float)dataWidth); + double viewDelta = deltax * (viewBandwidth / (double)dataWidth); viewOffset -= viewDelta; - if (viewOffset + (viewBandwidth / 2.0f) > wholeBandwidth / 2.0f) { - float freqOffset = (viewOffset + (viewBandwidth / 2.0f)) - (wholeBandwidth / 2.0f); - viewOffset = (wholeBandwidth / 2.0f) - (viewBandwidth / 2.0f); + if (viewOffset + (viewBandwidth / 2.0) > wholeBandwidth / 2.0) { + double freqOffset = (viewOffset + (viewBandwidth / 2.0)) - (wholeBandwidth / 2.0); + viewOffset = (wholeBandwidth / 2.0) - (viewBandwidth / 2.0); centerFreq += freqOffset; centerFreqMoved = true; } - if (viewOffset - (viewBandwidth / 2.0f) < -(wholeBandwidth / 2.0f)) { - float freqOffset = (viewOffset - (viewBandwidth / 2.0f)) + (wholeBandwidth / 2.0f); - viewOffset = (viewBandwidth / 2.0f) - (wholeBandwidth / 2.0f); + if (viewOffset - (viewBandwidth / 2.0) < -(wholeBandwidth / 2.0)) { + double freqOffset = (viewOffset - (viewBandwidth / 2.0)) + (wholeBandwidth / 2.0); + viewOffset = (viewBandwidth / 2.0) - (wholeBandwidth / 2.0); centerFreq += freqOffset; centerFreqMoved = true; } - lowerFreq = (centerFreq + viewOffset) - (viewBandwidth / 2.0f); - upperFreq = (centerFreq + viewOffset) + (viewBandwidth / 2.0f); + lowerFreq = (centerFreq + viewOffset) - (viewBandwidth / 2.0); + upperFreq = (centerFreq + viewOffset) + (viewBandwidth / 2.0); updateWaterfallFb(); } else { @@ -273,7 +276,7 @@ namespace ImGui { if (!waterfallVisible) { return; } - float offsetRatio = viewOffset / (wholeBandwidth / 2.0f); + double offsetRatio = viewOffset / (wholeBandwidth / 2.0); int drawDataSize; int drawDataStart; int count = std::min(waterfallHeight, rawFFTs.size()); @@ -284,7 +287,7 @@ namespace ImGui { for (int i = 0; i < count; i++) { size = rawFFTs[i].size(); drawDataSize = (viewBandwidth / wholeBandwidth) * size; - drawDataStart = (((float)size / 2.0f) * (offsetRatio + 1)) - (drawDataSize / 2); + drawDataStart = (((double)size / 2.0) * (offsetRatio + 1)) - (drawDataSize / 2); doZoom(drawDataStart, drawDataSize, dataWidth, rawFFTs[i], tempData); for (int j = 0; j < dataWidth; j++) { pixel = (std::clamp(tempData[j], waterfallMin, waterfallMax) - waterfallMin) / dataRange; @@ -297,8 +300,8 @@ namespace ImGui { void WaterFall::drawBandPlan() { int count = bandplan->bands.size(); - float horizScale = (float)dataWidth / viewBandwidth; - float start, end, center, aPos, bPos, cPos, width; + double horizScale = (double)dataWidth / viewBandwidth; + double start, end, center, aPos, bPos, cPos, width; ImVec2 txtSz; bool startVis, endVis; uint32_t color, colorTrans; @@ -313,9 +316,9 @@ namespace ImGui { } startVis = (start > lowerFreq); endVis = (end < upperFreq); - start = std::clamp(start, lowerFreq, upperFreq); - end = std::clamp(end, lowerFreq, upperFreq); - center = (start + end) / 2.0f; + start = std::clamp(start, lowerFreq, upperFreq); + end = std::clamp(end, lowerFreq, upperFreq); + center = (start + end) / 2.0; aPos = widgetPos.x + 50 + ((start - lowerFreq) * horizScale); bPos = widgetPos.x + 50 + ((end - lowerFreq) * horizScale); cPos = widgetPos.x + 50 + ((center - lowerFreq) * horizScale); @@ -335,7 +338,7 @@ namespace ImGui { if (bPos <= widgetPos.x + 50) { bPos = widgetPos.x + 51; } - if (width >= 1.0f) { + if (width >= 1.0) { window->DrawList->AddRectFilled(ImVec2(roundf(aPos), widgetPos.y + fftHeight - 25), ImVec2(roundf(bPos), widgetPos.y + fftHeight + 10), colorTrans); if (startVis) { @@ -348,7 +351,7 @@ namespace ImGui { } } if (txtSz.x <= width) { - window->DrawList->AddText(ImVec2(cPos - (txtSz.x / 2.0f), widgetPos.y + fftHeight - 17), + window->DrawList->AddText(ImVec2(cPos - (txtSz.x / 2.0), widgetPos.y + fftHeight - 17), IM_COL32(255, 255, 255, 255), bandplan->bands[i].name.c_str()); } } @@ -380,7 +383,7 @@ namespace ImGui { else { fftHeight = widgetSize.y - 50; } - dataWidth = widgetSize.x - 60.0f; + dataWidth = widgetSize.x - 60.0; delete[] latestFFT; if (waterfallVisible) { @@ -393,7 +396,7 @@ namespace ImGui { memset(waterfallFb, 0, dataWidth * waterfallHeight * sizeof(uint32_t)); } for (int i = 0; i < dataWidth; i++) { - latestFFT[i] = -1000.0f; // Hide everything + latestFFT[i] = -1000.0; // Hide everything } fftAreaMin = ImVec2(widgetPos.x + 50, widgetPos.y + 9); @@ -406,7 +409,7 @@ namespace ImGui { range = findBestRange(viewBandwidth, maxHSteps); vRange = findBestRange(fftMax - fftMin, maxVSteps); - vRange = 10.0f; + vRange = 10.0; updateWaterfallFb(); updateAllVFOs(); @@ -437,7 +440,7 @@ namespace ImGui { window->DrawList->AddRectFilled(widgetPos, widgetEndPos, IM_COL32( 0, 0, 0, 255 )); window->DrawList->AddRect(widgetPos, widgetEndPos, IM_COL32( 50, 50, 50, 255 )); - window->DrawList->AddLine(ImVec2(widgetPos.x, widgetPos.y + fftHeight + 50), ImVec2(widgetPos.x + widgetSize.x, widgetPos.y + fftHeight + 50), IM_COL32(50, 50, 50, 255), 1.0f); + window->DrawList->AddLine(ImVec2(widgetPos.x, widgetPos.y + fftHeight + 50), ImVec2(widgetPos.x + widgetSize.x, widgetPos.y + fftHeight + 50), IM_COL32(50, 50, 50, 255), 1.0); processInputs(); @@ -485,9 +488,9 @@ namespace ImGui { void WaterFall::pushFFT(std::vector data, int n) { buf_mtx.lock(); - float offsetRatio = viewOffset / (wholeBandwidth / 2.0f); + double offsetRatio = viewOffset / (wholeBandwidth / 2.0); int drawDataSize = (viewBandwidth / wholeBandwidth) * data.size(); - int drawDataStart = (((float)data.size() / 2.0f) * (offsetRatio + 1)) - (drawDataSize / 2); + int drawDataStart = (((double)data.size() / 2.0) * (offsetRatio + 1)) - (drawDataSize / 2); doZoom(drawDataStart, drawDataSize, dataWidth, data, latestFFT); rawFFTs.insert(rawFFTs.begin(), data); @@ -517,9 +520,9 @@ namespace ImGui { lowerId = std::clamp(lowerId, 0, colorCount - 1); upperId = std::clamp(upperId, 0, colorCount - 1); float ratio = (((float)i / (float)WATERFALL_RESOLUTION) * colorCount) - lowerId; - float r = (colors[lowerId][0] * (1.0f - ratio)) + (colors[upperId][0] * (ratio)); - float g = (colors[lowerId][1] * (1.0f - ratio)) + (colors[upperId][1] * (ratio)); - float b = (colors[lowerId][2] * (1.0f - ratio)) + (colors[upperId][2] * (ratio)); + float r = (colors[lowerId][0] * (1.0 - ratio)) + (colors[upperId][0] * (ratio)); + float g = (colors[lowerId][1] * (1.0 - ratio)) + (colors[upperId][1] * (ratio)); + float b = (colors[lowerId][2] * (1.0 - ratio)) + (colors[upperId][2] * (ratio)); waterfallPallet[i] = ((uint32_t)255 << 24) | ((uint32_t)b << 16) | ((uint32_t)g << 8) | (uint32_t)r; } } @@ -539,70 +542,70 @@ namespace ImGui { fftMax = max + 5; } - void WaterFall::setCenterFrequency(float freq) { + void WaterFall::setCenterFrequency(double freq) { centerFreq = freq; - lowerFreq = (centerFreq + viewOffset) - (viewBandwidth / 2.0f); - upperFreq = (centerFreq + viewOffset) + (viewBandwidth / 2.0f); + lowerFreq = (centerFreq + viewOffset) - (viewBandwidth / 2.0); + upperFreq = (centerFreq + viewOffset) + (viewBandwidth / 2.0); updateAllVFOs(); } - float WaterFall::getCenterFrequency() { + double WaterFall::getCenterFrequency() { return centerFreq; } - void WaterFall::setBandwidth(float bandWidth) { - float currentRatio = viewBandwidth / wholeBandwidth; + void WaterFall::setBandwidth(double bandWidth) { + double currentRatio = viewBandwidth / wholeBandwidth; wholeBandwidth = bandWidth; setViewBandwidth(bandWidth * currentRatio); updateAllVFOs(); } - float WaterFall::getBandwidth() { + double WaterFall::getBandwidth() { return wholeBandwidth; } - void WaterFall::setViewBandwidth(float bandWidth) { + void WaterFall::setViewBandwidth(double bandWidth) { if (bandWidth == viewBandwidth) { return; } - if (abs(viewOffset) + (bandWidth / 2.0f) > wholeBandwidth / 2.0f) { + if (abs(viewOffset) + (bandWidth / 2.0) > wholeBandwidth / 2.0) { if (viewOffset < 0) { - viewOffset = (bandWidth / 2.0f) - (wholeBandwidth / 2.0f); + viewOffset = (bandWidth / 2.0) - (wholeBandwidth / 2.0); } else { - viewOffset = (wholeBandwidth / 2.0f) - (bandWidth / 2.0f); + viewOffset = (wholeBandwidth / 2.0) - (bandWidth / 2.0); } } viewBandwidth = bandWidth; - lowerFreq = (centerFreq + viewOffset) - (viewBandwidth / 2.0f); - upperFreq = (centerFreq + viewOffset) + (viewBandwidth / 2.0f); + lowerFreq = (centerFreq + viewOffset) - (viewBandwidth / 2.0); + upperFreq = (centerFreq + viewOffset) + (viewBandwidth / 2.0); range = findBestRange(bandWidth, maxHSteps); updateWaterfallFb(); updateAllVFOs(); } - float WaterFall::getViewBandwidth() { + double WaterFall::getViewBandwidth() { return viewBandwidth; } - void WaterFall::setViewOffset(float offset) { + void WaterFall::setViewOffset(double offset) { if (offset == viewOffset) { return; } - if (offset - (viewBandwidth / 2.0f) < -(wholeBandwidth / 2.0f)) { - offset = (viewBandwidth / 2.0f) - (wholeBandwidth / 2.0f); + if (offset - (viewBandwidth / 2.0) < -(wholeBandwidth / 2.0)) { + offset = (viewBandwidth / 2.0) - (wholeBandwidth / 2.0); } - if (offset + (viewBandwidth / 2.0f) > (wholeBandwidth / 2.0f)) { - offset = (wholeBandwidth / 2.0f) - (viewBandwidth / 2.0f); + if (offset + (viewBandwidth / 2.0) > (wholeBandwidth / 2.0)) { + offset = (wholeBandwidth / 2.0) - (viewBandwidth / 2.0); } viewOffset = offset; - lowerFreq = (centerFreq + viewOffset) - (viewBandwidth / 2.0f); - upperFreq = (centerFreq + viewOffset) + (viewBandwidth / 2.0f); + lowerFreq = (centerFreq + viewOffset) - (viewBandwidth / 2.0); + upperFreq = (centerFreq + viewOffset) + (viewBandwidth / 2.0); updateWaterfallFb(); updateAllVFOs(); } - float WaterFall::getViewOffset() { + double WaterFall::getViewOffset() { return viewOffset; } @@ -654,21 +657,21 @@ namespace ImGui { } } - void WaterfallVFO::setOffset(float offset) { + void WaterfallVFO::setOffset(double offset) { generalOffset = offset; if (reference == REF_CENTER) { centerOffset = offset; - lowerOffset = offset - (bandwidth / 2.0f); - upperOffset = offset + (bandwidth / 2.0f); + lowerOffset = offset - (bandwidth / 2.0); + upperOffset = offset + (bandwidth / 2.0); } else if (reference == REF_LOWER) { lowerOffset = offset; - centerOffset = offset + (bandwidth / 2.0f); + centerOffset = offset + (bandwidth / 2.0); upperOffset = offset + bandwidth; } else if (reference == REF_UPPER) { upperOffset = offset; - centerOffset = offset - (bandwidth / 2.0f); + centerOffset = offset - (bandwidth / 2.0); lowerOffset = offset - bandwidth; } centerOffsetChanged = true; @@ -677,41 +680,41 @@ namespace ImGui { redrawRequired = true; } - void WaterfallVFO::setCenterOffset(float offset) { + void WaterfallVFO::setCenterOffset(double offset) { if (reference == REF_CENTER) { generalOffset = offset; } else if (reference == REF_LOWER) { - generalOffset = offset - (bandwidth / 2.0f); + generalOffset = offset - (bandwidth / 2.0); } else if (reference == REF_UPPER) { - generalOffset = offset + (bandwidth / 2.0f); + generalOffset = offset + (bandwidth / 2.0); } centerOffset = offset; - lowerOffset = offset - (bandwidth / 2.0f); - upperOffset = offset + (bandwidth / 2.0f); + lowerOffset = offset - (bandwidth / 2.0); + upperOffset = offset + (bandwidth / 2.0); centerOffsetChanged = true; upperOffsetChanged = true; lowerOffsetChanged = true; redrawRequired = true; } - void WaterfallVFO::setBandwidth(float bw) { + void WaterfallVFO::setBandwidth(double bw) { if (bandwidth == bw || bw < 0) { return; } bandwidth = bw; if (reference == REF_CENTER) { - lowerOffset = centerOffset - (bandwidth / 2.0f); - upperOffset = centerOffset + (bandwidth / 2.0f); + lowerOffset = centerOffset - (bandwidth / 2.0); + upperOffset = centerOffset + (bandwidth / 2.0); } else if (reference == REF_LOWER) { - centerOffset = lowerOffset + (bandwidth / 2.0f); + centerOffset = lowerOffset + (bandwidth / 2.0); upperOffset = lowerOffset + bandwidth; centerOffsetChanged = true; } else if (reference == REF_UPPER) { - centerOffset = upperOffset - (bandwidth / 2.0f); + centerOffset = upperOffset - (bandwidth / 2.0); lowerOffset = upperOffset - bandwidth; centerOffsetChanged = true; } @@ -727,11 +730,11 @@ namespace ImGui { } - void WaterfallVFO::updateDrawingVars(float viewBandwidth, float dataWidth, float viewOffset, ImVec2 widgetPos, int fftHeight) { - float width = (bandwidth / viewBandwidth) * (float)dataWidth; - int center = roundf((((centerOffset - viewOffset) / (viewBandwidth / 2.0f)) + 1.0f) * ((float)dataWidth / 2.0f)); - int left = roundf((((lowerOffset - viewOffset) / (viewBandwidth / 2.0f)) + 1.0f) * ((float)dataWidth / 2.0f)); - int right = roundf((((upperOffset - viewOffset) / (viewBandwidth / 2.0f)) + 1.0f) * ((float)dataWidth / 2.0f)); + void WaterfallVFO::updateDrawingVars(double viewBandwidth, float dataWidth, double viewOffset, ImVec2 widgetPos, int fftHeight) { + double width = (bandwidth / viewBandwidth) * (double)dataWidth; + int center = roundf((((centerOffset - viewOffset) / (viewBandwidth / 2.0)) + 1.0) * ((double)dataWidth / 2.0)); + int left = roundf((((lowerOffset - viewOffset) / (viewBandwidth / 2.0)) + 1.0) * ((double)dataWidth / 2.0)); + int right = roundf((((upperOffset - viewOffset) / (viewBandwidth / 2.0)) + 1.0) * ((double)dataWidth / 2.0)); if (left >= 0 && left < dataWidth && reference == REF_LOWER) { lineMin = ImVec2(widgetPos.x + 50 + left, widgetPos.y + 9); diff --git a/core/src/gui/waterfall.h b/core/src/gui/waterfall.h index ac48a66..9f76662 100644 --- a/core/src/gui/waterfall.h +++ b/core/src/gui/waterfall.h @@ -12,11 +12,11 @@ namespace ImGui { class WaterfallVFO { public: - void setOffset(float offset); - void setCenterOffset(float offset); - void setBandwidth(float bw); + void setOffset(double offset); + void setCenterOffset(double offset); + void setBandwidth(double bw); void setReference(int ref); - void updateDrawingVars(float viewBandwidth, float dataWidth, float viewOffset, ImVec2 widgetPos, int fftHeight); + void updateDrawingVars(double viewBandwidth, float dataWidth, double viewOffset, ImVec2 widgetPos, int fftHeight); // NOTE: Datawidth double??? void draw(ImGuiWindow* window, bool selected); enum { @@ -26,12 +26,12 @@ namespace ImGui { _REF_COUNT }; - float generalOffset; - float centerOffset; - float lowerOffset; - float upperOffset; - float bandwidth; - float snapInterval; + double generalOffset; + double centerOffset; + double lowerOffset; + double upperOffset; + double bandwidth; + double snapInterval = 5000; int reference = REF_CENTER; ImVec2 rectMin; @@ -55,17 +55,17 @@ namespace ImGui { void updatePallette(float colors[][3], int colorCount); - void setCenterFrequency(float freq); - float getCenterFrequency(); + void setCenterFrequency(double freq); + double getCenterFrequency(); - void setBandwidth(float bandWidth); - float getBandwidth(); + void setBandwidth(double bandWidth); + double getBandwidth(); - void setViewBandwidth(float bandWidth); - float getViewBandwidth(); + void setViewBandwidth(double bandWidth); + double getViewBandwidth(); - void setViewOffset(float offset); - float getViewOffset(); + void setViewOffset(double offset); + double getViewOffset(); void setFFTMin(float min); float getFFTMin(); @@ -79,8 +79,8 @@ namespace ImGui { void setWaterfallMax(float max); float getWaterfallMax(); - void setZoom(float zoomLevel); - void setOffset(float zoomOffset); + void setZoom(double zoomLevel); + void setOffset(double zoomOffset); void autoRange(); @@ -157,20 +157,20 @@ namespace ImGui { int fftHeight; // Height of the fft graph int waterfallHeight; // Height of the waterfall - float viewBandwidth; - float viewOffset; + double viewBandwidth; + double viewOffset; - float lowerFreq; - float upperFreq; - float range; + double lowerFreq; + double upperFreq; + double range; float lastDrag; int vfoRef = REF_CENTER; // Absolute values - float centerFreq; - float wholeBandwidth; + double centerFreq; + double wholeBandwidth; // Ranges float fftMin; diff --git a/core/src/io/audio.h b/core/src/io/audio.h index 6527e45..b78d7da 100644 --- a/core/src/io/audio.h +++ b/core/src/io/audio.h @@ -19,7 +19,7 @@ namespace io { std::string name; int index; int channels; - std::vector sampleRates; + std::vector sampleRates; std::string txtSampleRates; }; @@ -323,7 +323,7 @@ namespace io { return 0; } - float POSSIBLE_SAMP_RATE[6] = { + double POSSIBLE_SAMP_RATE[6] = { 48000.0f, 44100.0f, 24000.0f, @@ -336,7 +336,7 @@ namespace io { int devIndex; int devListIndex; int defaultDev; - float _sampleRate; + double _sampleRate; int _bufferSize; dsp::stream* _monoInput; dsp::stream* _stereoInput; diff --git a/core/src/signal_path/audio.cpp b/core/src/signal_path/audio.cpp index 363ef7a..0528994 100644 --- a/core/src/signal_path/audio.cpp +++ b/core/src/signal_path/audio.cpp @@ -3,14 +3,14 @@ namespace audio { std::map streams; - float registerMonoStream(dsp::stream* stream, std::string name, std::string vfoName, int (*sampleRateChangeHandler)(void* ctx, float sampleRate), void* ctx) { + double registerMonoStream(dsp::stream* stream, std::string name, std::string vfoName, int (*sampleRateChangeHandler)(void* ctx, double sampleRate), void* ctx) { AudioStream_t* astr = new AudioStream_t; astr->type = STREAM_TYPE_MONO; astr->ctx = ctx; astr->audio = new io::AudioSink; astr->audio->init(1); astr->deviceId = astr->audio->getDeviceId(); - float sampleRate = astr->audio->devices[astr->deviceId].sampleRates[0]; + double sampleRate = astr->audio->devices[astr->deviceId].sampleRates[0]; int blockSize = sampleRate / 200; // default block size astr->monoAudioStream = new dsp::stream(blockSize * 2); astr->audio->setBlockSize(blockSize); @@ -31,13 +31,13 @@ namespace audio { return sampleRate; } - float registerStereoStream(dsp::stream* stream, std::string name, std::string vfoName, int (*sampleRateChangeHandler)(void* ctx, float sampleRate), void* ctx) { + double registerStereoStream(dsp::stream* stream, std::string name, std::string vfoName, int (*sampleRateChangeHandler)(void* ctx, double sampleRate), void* ctx) { AudioStream_t* astr = new AudioStream_t; astr->type = STREAM_TYPE_STEREO; astr->ctx = ctx; astr->audio = new io::AudioSink; astr->audio->init(1); - float sampleRate = astr->audio->devices[astr->audio->getDeviceId()].sampleRates[0]; + double sampleRate = astr->audio->devices[astr->audio->getDeviceId()].sampleRates[0]; int blockSize = sampleRate / 200; // default block size astr->stereoAudioStream = new dsp::stream(blockSize * 2); astr->audio->setBlockSize(blockSize); @@ -95,7 +95,7 @@ namespace audio { delete astr->monoDynSplit; } - dsp::stream* bindToStreamMono(std::string name, void (*streamRemovedHandler)(void* ctx), void (*sampleRateChangeHandler)(void* ctx, float sampleRate, int blockSize), void* ctx) { + dsp::stream* bindToStreamMono(std::string name, void (*streamRemovedHandler)(void* ctx), void (*sampleRateChangeHandler)(void* ctx, double sampleRate, int blockSize), void* ctx) { AudioStream_t* astr = streams[name]; BoundStream_t bstr; bstr.type = STREAM_TYPE_MONO; @@ -125,7 +125,7 @@ namespace audio { return bstr.monoStream; } - dsp::stream* bindToStreamStereo(std::string name, void (*streamRemovedHandler)(void* ctx), void (*sampleRateChangeHandler)(void* ctx, float sampleRate, int blockSize), void* ctx) { + dsp::stream* bindToStreamStereo(std::string name, void (*streamRemovedHandler)(void* ctx), void (*sampleRateChangeHandler)(void* ctx, double sampleRate, int blockSize), void* ctx) { AudioStream_t* astr = streams[name]; BoundStream_t bstr; bstr.type = STREAM_TYPE_STEREO; @@ -250,7 +250,7 @@ namespace audio { return ""; } - void setSampleRate(std::string name, float sampleRate) { + void setSampleRate(std::string name, double sampleRate) { AudioStream_t* astr = streams[name]; if (astr->running) { return; @@ -288,7 +288,7 @@ namespace audio { } } - void setAudioDevice(std::string name, int deviceId, float sampleRate) { + void setAudioDevice(std::string name, int deviceId, double sampleRate) { AudioStream_t* astr = streams[name]; if (astr->running) { return; diff --git a/core/src/signal_path/audio.h b/core/src/signal_path/audio.h index 49ac6a1..e5d0010 100644 --- a/core/src/signal_path/audio.h +++ b/core/src/signal_path/audio.h @@ -11,13 +11,15 @@ namespace audio { _STREAM_TYPE_COUNT }; + // TODO: Create a manager class and an instance class + struct BoundStream_t { dsp::stream* monoStream; dsp::stream* stereoStream; dsp::StereoToMono* s2m; dsp::MonoToStereo* m2s; void (*streamRemovedHandler)(void* ctx); - void (*sampleRateChangeHandler)(void* ctx, float sampleRate, int blockSize); + void (*sampleRateChangeHandler)(void* ctx, double sampleRate, int blockSize); void* ctx; int type; }; @@ -31,8 +33,8 @@ namespace audio { dsp::DynamicSplitter* monoDynSplit; dsp::stream* stereoStream; dsp::DynamicSplitter* stereoDynSplit; - int (*sampleRateChangeHandler)(void* ctx, float sampleRate); - float sampleRate; + int (*sampleRateChangeHandler)(void* ctx, double sampleRate); + double sampleRate; int blockSize; int type; bool running = false; @@ -45,19 +47,19 @@ namespace audio { extern std::map streams; - float registerMonoStream(dsp::stream* stream, std::string name, std::string vfoName, int (*sampleRateChangeHandler)(void* ctx, float sampleRate), void* ctx); - float registerStereoStream(dsp::stream* stream, std::string name, std::string vfoName, int (*sampleRateChangeHandler)(void* ctx, float sampleRate), void* ctx); + double registerMonoStream(dsp::stream* stream, std::string name, std::string vfoName, int (*sampleRateChangeHandler)(void* ctx, double sampleRate), void* ctx); + double registerStereoStream(dsp::stream* stream, std::string name, std::string vfoName, int (*sampleRateChangeHandler)(void* ctx, double sampleRate), void* ctx); void startStream(std::string name); void stopStream(std::string name); void removeStream(std::string name); - dsp::stream* bindToStreamMono(std::string name, void (*streamRemovedHandler)(void* ctx), void (*sampleRateChangeHandler)(void* ctx, float sampleRate, int blockSize), void* ctx); - dsp::stream* bindToStreamStereo(std::string name, void (*streamRemovedHandler)(void* ctx), void (*sampleRateChangeHandler)(void* ctx, float sampleRate, int blockSize), void* ctx); + dsp::stream* bindToStreamMono(std::string name, void (*streamRemovedHandler)(void* ctx), void (*sampleRateChangeHandler)(void* ctx, double sampleRate, int blockSize), void* ctx); + dsp::stream* bindToStreamStereo(std::string name, void (*streamRemovedHandler)(void* ctx), void (*sampleRateChangeHandler)(void* ctx, double sampleRate, int blockSize), void* ctx); void setBlockSize(std::string name, int blockSize); void unbindFromStreamMono(std::string name, dsp::stream* stream); void unbindFromStreamStereo(std::string name, dsp::stream* stream); std::string getNameFromVFO(std::string vfoName); - void setSampleRate(std::string name, float sampleRate); - void setAudioDevice(std::string name, int deviceId, float sampleRate); + void setSampleRate(std::string name, double sampleRate); + void setAudioDevice(std::string name, int deviceId, double sampleRate); std::vector getStreamNameList(); }; diff --git a/core/src/signal_path/dsp.cpp b/core/src/signal_path/dsp.cpp index 691893f..a218ccb 100644 --- a/core/src/signal_path/dsp.cpp +++ b/core/src/signal_path/dsp.cpp @@ -20,7 +20,7 @@ void SignalPath::init(uint64_t sampleRate, int fftRate, int fftSize, dsp::stream dynSplit.init(&split.output_b, 32000); } -void SignalPath::setSampleRate(float sampleRate) { +void SignalPath::setSampleRate(double sampleRate) { this->sampleRate = sampleRate; inputBlockSize = sampleRate / 200.0f; @@ -68,7 +68,7 @@ void SignalPath::setDCBiasCorrection(bool enabled) { dcBiasRemover.bypass = !enabled; } -dsp::VFO* SignalPath::addVFO(std::string name, float outSampleRate, float bandwidth, float offset) { +dsp::VFO* SignalPath::addVFO(std::string name, double outSampleRate, double bandwidth, double offset) { if (vfos.find(name) != vfos.end()) { return NULL; } diff --git a/core/src/signal_path/dsp.h b/core/src/signal_path/dsp.h index 215ecb2..7ec811d 100644 --- a/core/src/signal_path/dsp.h +++ b/core/src/signal_path/dsp.h @@ -16,10 +16,10 @@ public: SignalPath(); void init(uint64_t sampleRate, int fftRate, int fftSize, dsp::stream* input, dsp::complex_t* fftBuffer, void fftHandler(dsp::complex_t*)); void start(); - void setSampleRate(float sampleRate); + void setSampleRate(double sampleRate); void setDCBiasCorrection(bool enabled); - void setFFTRate(float rate); - dsp::VFO* addVFO(std::string name, float outSampleRate, float bandwidth, float offset); + void setFFTRate(double rate); + dsp::VFO* addVFO(std::string name, double outSampleRate, double bandwidth, double offset); void removeVFO(std::string name); void setInput(dsp::stream* input); @@ -40,8 +40,8 @@ private: dsp::DynamicSplitter dynSplit; std::map vfos; - float sampleRate; - float fftRate; + double sampleRate; + double fftRate; int fftSize; int inputBlockSize; }; \ No newline at end of file diff --git a/core/src/signal_path/vfo_manager.cpp b/core/src/signal_path/vfo_manager.cpp index 0396114..63165a5 100644 --- a/core/src/signal_path/vfo_manager.cpp +++ b/core/src/signal_path/vfo_manager.cpp @@ -1,7 +1,7 @@ #include #include -VFOManager::VFO::VFO(std::string name, int reference, float offset, float bandwidth, float sampleRate, int blockSize) { +VFOManager::VFO::VFO(std::string name, int reference, double offset, double bandwidth, double sampleRate, int blockSize) { this->name = name; dspVFO = sigpath::signalPath.addVFO(name, sampleRate, bandwidth, offset); wtfVFO = new ImGui::WaterfallVFO; @@ -18,22 +18,22 @@ VFOManager::VFO::~VFO() { delete wtfVFO; } -void VFOManager::VFO::setOffset(float offset) { +void VFOManager::VFO::setOffset(double offset) { wtfVFO->setOffset(offset); dspVFO->setOffset(wtfVFO->centerOffset); } -void VFOManager::VFO::setCenterOffset(float offset) { +void VFOManager::VFO::setCenterOffset(double offset) { wtfVFO->setCenterOffset(offset); dspVFO->setOffset(offset); } -void VFOManager::VFO::setBandwidth(float bandwidth) { +void VFOManager::VFO::setBandwidth(double bandwidth) { wtfVFO->setBandwidth(bandwidth); dspVFO->setBandwidth(bandwidth); } -void VFOManager::VFO::setSampleRate(float sampleRate, float bandwidth) { +void VFOManager::VFO::setSampleRate(double sampleRate, double bandwidth) { dspVFO->setOutputSampleRate(sampleRate, bandwidth); wtfVFO->setBandwidth(bandwidth); } @@ -51,7 +51,7 @@ VFOManager::VFOManager() { } -VFOManager::VFO* VFOManager::createVFO(std::string name, int reference, float offset, float bandwidth, float sampleRate, int blockSize) { +VFOManager::VFO* VFOManager::createVFO(std::string name, int reference, double offset, double bandwidth, double sampleRate, int blockSize) { if (vfos.find(name) != vfos.end() || name == "") { return NULL; } @@ -74,28 +74,28 @@ void VFOManager::deleteVFO(VFOManager::VFO* vfo) { vfos.erase(name); } -void VFOManager::setOffset(std::string name, float offset) { +void VFOManager::setOffset(std::string name, double offset) { if (vfos.find(name) == vfos.end()) { return; } vfos[name]->setOffset(offset); } -void VFOManager::setCenterOffset(std::string name, float offset) { +void VFOManager::setCenterOffset(std::string name, double offset) { if (vfos.find(name) == vfos.end()) { return; } vfos[name]->setCenterOffset(offset); } -void VFOManager::setBandwidth(std::string name, float bandwidth) { +void VFOManager::setBandwidth(std::string name, double bandwidth) { if (vfos.find(name) == vfos.end()) { return; } vfos[name]->setBandwidth(bandwidth); } -void VFOManager::setSampleRate(std::string name, float sampleRate, float bandwidth) { +void VFOManager::setSampleRate(std::string name, double sampleRate, double bandwidth) { if (vfos.find(name) == vfos.end()) { return; } diff --git a/core/src/signal_path/vfo_manager.h b/core/src/signal_path/vfo_manager.h index c61ae86..42e490b 100644 --- a/core/src/signal_path/vfo_manager.h +++ b/core/src/signal_path/vfo_manager.h @@ -9,13 +9,13 @@ public: class VFO { public: - VFO(std::string name, int reference, float offset, float bandwidth, float sampleRate, int blockSize); + VFO(std::string name, int reference, double offset, double bandwidth, double sampleRate, int blockSize); ~VFO(); - void setOffset(float offset); - void setCenterOffset(float offset); - void setBandwidth(float bandwidth); - void setSampleRate(float sampleRate, float bandwidth); + void setOffset(double offset); + void setCenterOffset(double offset); + void setBandwidth(double bandwidth); + void setSampleRate(double sampleRate, double bandwidth); void setReference(int ref); int getOutputBlockSize(); @@ -30,13 +30,13 @@ public: }; - VFOManager::VFO* createVFO(std::string name, int reference, float offset, float bandwidth, float sampleRate, int blockSize); + VFOManager::VFO* createVFO(std::string name, int reference, double offset, double bandwidth, double sampleRate, int blockSize); void deleteVFO(VFOManager::VFO* vfo); - void setOffset(std::string name, float offset); - void setCenterOffset(std::string name, float offset); - void setBandwidth(std::string name, float bandwidth); - void setSampleRate(std::string name, float sampleRate, float bandwidth); + void setOffset(std::string name, double offset); + void setCenterOffset(std::string name, double offset); + void setBandwidth(std::string name, double bandwidth); + void setSampleRate(std::string name, double sampleRate, double bandwidth); void setReference(std::string name, int ref); int getOutputBlockSize(std::string name); diff --git a/root_dev/config.json b/root_dev/config.json index b999d15..803e2e0 100644 --- a/root_dev/config.json +++ b/root_dev/config.json @@ -3,7 +3,7 @@ "bandPlan": "General", "bandPlanEnabled": true, "fftHeight": 300, - "frequency": 96035792, + "frequency": 94930000, "max": 0.0, "maximized": false, "menuOrder": [ From 6e5450ed240ffb1097f18971335953c7c699075c Mon Sep 17 00:00:00 2001 From: Ryzerth Date: Tue, 20 Oct 2020 00:32:17 +0200 Subject: [PATCH 25/33] new fixes --- core/src/config.cpp | 1 + core/src/dsp/block.h | 57 +++++++++++++++++++++ core/src/dsp/correction.h | 77 +++++++++++++++++++++++++++-- core/src/gui/main_window.cpp | 17 +++---- core/src/gui/waterfall.cpp | 3 +- file_source/src/main.cpp | 2 +- prepare_root.bat | 6 ++- radio/src/main.cpp | 5 +- radio/src/path.cpp | 33 ++++++++++--- radio/src/path.h | 7 ++- recorder/src/main.cpp | 2 +- root/config.json | 43 +++++++++------- root/module_list.json | 6 ++- root/radio_config.json | 5 ++ root/sdrpp_0.2.5_alpha_preview.zip | Bin 1547126 -> 0 bytes root/soapy_source_config.json | 4 ++ root_dev/config.json | 68 +++++++++++++++---------- root_dev/module_list.json | 9 ++-- root_dev/soapy_source_config.json | 49 ++++++++++-------- 19 files changed, 298 insertions(+), 96 deletions(-) create mode 100644 root/radio_config.json delete mode 100644 root/sdrpp_0.2.5_alpha_preview.zip create mode 100644 root/soapy_source_config.json diff --git a/core/src/config.cpp b/core/src/config.cpp index 3c167bb..896fd78 100644 --- a/core/src/config.cpp +++ b/core/src/config.cpp @@ -63,6 +63,7 @@ void ConfigManager::release(bool changed) { void ConfigManager::autoSaveWorker(ConfigManager* _this) { while (_this->autoSaveEnabled) { if (!_this->mtx.try_lock()) { + spdlog::warn("ConfigManager locked, waiting..."); std::this_thread::sleep_for(std::chrono::milliseconds(1000)); continue; } diff --git a/core/src/dsp/block.h b/core/src/dsp/block.h index 865897c..e4fdfa5 100644 --- a/core/src/dsp/block.h +++ b/core/src/dsp/block.h @@ -119,4 +119,61 @@ namespace dsp { } }; + + class Squelch : public Block { + public: + Squelch() : Block({1}, {1}, this, worker) {} + + void init(stream* input, int blockSize) { + in[0] = input; + inputBlockSize[0] = blockSize; + out[0]->setMaxLatency(blockSize * 2); + outputBlockSize[0] = blockSize; + level = -50.0f; + } + + float level; + int onCount; + int offCount; + + private: + static void worker(Squelch* _this) { + int blockSize = _this->inputBlockSize[0]; + stream* in = _this->in[0]; + stream* out = _this->out[0]; + complex_t* buf = new complex_t[blockSize]; + + int _on = 0, _off = 0; + bool active = false; + + while (true) { + if (in->read(buf, blockSize) < 0) { break; }; + for (int i = 0; i < blockSize; i++) { + if (log10(sqrt((buf[i].i*buf[i].i) + (buf[i].q*buf[i].q))) * 10.0f > _this->level) { + _on++; + _off = 0; + } + else { + _on = 0; + _off++; + } + if (_on >= _this->onCount && !active) { + _on = _this->onCount; + active = true; + } + if (_off >= _this->offCount && active) { + _off = _this->offCount; + active = false; + } + if (!active) { + buf[i].i = 0.0f; + buf[i].q = 0.0f; + } + } + if (out->write(buf, blockSize) < 0) { break; }; + } + delete[] buf; + } + + }; }; \ No newline at end of file diff --git a/core/src/dsp/correction.h b/core/src/dsp/correction.h index af39f77..dc6db7b 100644 --- a/core/src/dsp/correction.h +++ b/core/src/dsp/correction.h @@ -63,26 +63,95 @@ namespace dsp { bool bypass; private: + // static void _worker(DCBiasRemover* _this) { + // complex_t* buf = new complex_t[_this->_bufferSize]; + // float ibias = 0.0f; + // float qbias = 0.0f; + // while (true) { + // if (_this->_in->read(buf, _this->_bufferSize) < 0) { break; }; + // if (_this->bypass) { + // if (_this->output.write(buf, _this->_bufferSize) < 0) { break; }; + // continue; + // } + // for (int i = 0; i < _this->_bufferSize; i++) { + // ibias += buf[i].i; + // qbias += buf[i].q; + // } + // ibias /= _this->_bufferSize; + // qbias /= _this->_bufferSize; + // for (int i = 0; i < _this->_bufferSize; i++) { + // buf[i].i -= ibias; + // buf[i].q -= qbias; + // } + // if (_this->output.write(buf, _this->_bufferSize) < 0) { break; }; + // } + // delete[] buf; + // } + static void _worker(DCBiasRemover* _this) { complex_t* buf = new complex_t[_this->_bufferSize]; - float ibias = 0.0f; - float qbias = 0.0f; + complex_t* mixBuf = new complex_t[_this->_bufferSize]; + + float currentPhase = 0.0f; + float lastPhase = 0.0f; + double phase = 0.0f; + while (true) { + float ibias = 0.0f; + float qbias = 0.0f; if (_this->_in->read(buf, _this->_bufferSize) < 0) { break; }; if (_this->bypass) { if (_this->output.write(buf, _this->_bufferSize) < 0) { break; }; continue; } + + // Detect the frequency of the signal + double avgDiff = 0.0f; + // for (int i = 0; i < _this->_bufferSize; i++) { + // currentPhase = fast_arctan2(buf[i].i, buf[i].q); + // float diff = currentPhase - lastPhase; + // if (diff > 3.1415926535f) { diff -= 2 * 3.1415926535f; } + // else if (diff <= -3.1415926535f) { diff += 2 * 3.1415926535f; } + // avgDiff += diff; + // lastPhase = currentPhase; + // } + // avgDiff /= (double)_this->_bufferSize; + // avgDiff /= (double)_this->_bufferSize; + + // Average the samples to "filter" the signal to the block frequency for (int i = 0; i < _this->_bufferSize; i++) { ibias += buf[i].i; qbias += buf[i].q; } ibias /= _this->_bufferSize; qbias /= _this->_bufferSize; + + // Get the phase difference from the last block + currentPhase = fast_arctan2(ibias, qbias); + float diff = currentPhase - lastPhase; + if (diff > 3.1415926535f) { diff -= 2 * 3.1415926535f; } + else if (diff <= -3.1415926535f) { diff += 2 * 3.1415926535f; } + avgDiff += diff; + lastPhase = currentPhase; + avgDiff /= (double)_this->_bufferSize; + + // Generate a correction signal using the phase difference for (int i = 0; i < _this->_bufferSize; i++) { - buf[i].i -= ibias; - buf[i].q -= qbias; + mixBuf[i].i = sin(phase); + mixBuf[i].q = cos(phase); + phase -= avgDiff; + phase = fmodl(phase, 2.0 * 3.1415926535); } + + // Mix the correction signal with the original signal to shift the unwanted signal + // to the center. Also, null out the real component so that symetric + // frequencies are removed (at least I hope...) + float tq; + for (int i = 0; i < _this->_bufferSize; i++) { + buf[i].i = ((mixBuf[i].i * buf[i].q) + (mixBuf[i].q * buf[i].i)) * 1.4142; + buf[i].q = 0; + } + if (_this->output.write(buf, _this->_bufferSize) < 0) { break; }; } delete[] buf; diff --git a/core/src/gui/main_window.cpp b/core/src/gui/main_window.cpp index 71fb33b..e1071a2 100644 --- a/core/src/gui/main_window.cpp +++ b/core/src/gui/main_window.cpp @@ -92,6 +92,10 @@ void windowInit() { credits::init(); + core::configManager.aquire(); + gui::menu.order = core::configManager.conf["menuOrder"].get>(); + core::configManager.release(); + gui::menu.registerEntry("Source", sourecmenu::draw, NULL); gui::menu.registerEntry("Audio", audiomenu::draw, NULL); gui::menu.registerEntry("Scripting", scriptingmenu::draw, NULL); @@ -117,7 +121,6 @@ void windowInit() { displaymenu::init(); // Load last source configuration - // Also add a loading screen // Adjustable "snap to grid" for each VFO // Finish the recorder module @@ -129,10 +132,9 @@ void windowInit() { // Do VFO in two steps: First sample rate conversion, then filtering // And a module add/remove/change order menu - // get rid of watchers and use if() instead - // Switch to double for all frequecies and bandwidth // Update UI settings + core::configManager.aquire(); fftMin = core::configManager.conf["min"]; fftMax = core::configManager.conf["max"]; gui::waterfall.setFFTMin(fftMin); @@ -159,8 +161,6 @@ void windowInit() { fftHeight = core::configManager.conf["fftHeight"]; gui::waterfall.setFFTHeight(fftHeight); - gui::menu.order = core::configManager.conf["menuOrder"].get>(); - core::configManager.release(); } @@ -297,10 +297,6 @@ void drawWindow() { core::configManager.release(true); } - if (dcbias.changed()) { - sigpath::signalPath.setDCBiasCorrection(dcbias.val); - } - int _fftHeight = gui::waterfall.getFFTHeight(); if (fftHeight != _fftHeight) { fftHeight = _fftHeight; @@ -418,6 +414,9 @@ void drawWindow() { ImGui::Text("Framerate: %.1f FPS", ImGui::GetIO().Framerate); ImGui::Text("Center Frequency: %.0 Hz", gui::waterfall.getCenterFrequency()); ImGui::Text("Source name: %s", sourceName.c_str()); + if (ImGui::Checkbox("Test technique", &dcbias.val)) { + sigpath::signalPath.setDCBiasCorrection(dcbias.val); + } ImGui::Spacing(); } diff --git a/core/src/gui/waterfall.cpp b/core/src/gui/waterfall.cpp index 5b64e46..86c5f64 100644 --- a/core/src/gui/waterfall.cpp +++ b/core/src/gui/waterfall.cpp @@ -229,7 +229,8 @@ namespace ImGui { } int refCenter = mousePos.x - (widgetPos.x + 50); if (refCenter >= 0 && refCenter < dataWidth && mousePos.y > widgetPos.y && mousePos.y < (widgetPos.y + widgetSize.y)) { - vfo->setOffset(((((double)refCenter / ((double)dataWidth / 2.0)) - 1.0) * (viewBandwidth / 2.0)) + viewOffset); + double off = ((((double)refCenter / ((double)dataWidth / 2.0)) - 1.0) * (viewBandwidth / 2.0)) + viewOffset; + vfo->setOffset(round(off / vfo->snapInterval) * vfo->snapInterval); } } diff --git a/file_source/src/main.cpp b/file_source/src/main.cpp index 6aae4b0..7eafb9e 100644 --- a/file_source/src/main.cpp +++ b/file_source/src/main.cpp @@ -32,7 +32,7 @@ public: handler.stream = &stream; sigpath::sourceManager.registerSource("File", &handler); - reader = new WavReader("D:/satpic/raw_recordings/NOAA-18_09-08-2018_21-39-00_baseband_NR.wav"); + reader = new WavReader("D:/Downloads/20120416_glv_594_2.wav"); spdlog::info("Samplerate: {0}, Bit depth: {1}, Channel count: {2}", reader->getSampleRate(), reader->getBitDepth(), reader->getChannelCount()); diff --git a/prepare_root.bat b/prepare_root.bat index 2ed7730..dea9399 100644 --- a/prepare_root.bat +++ b/prepare_root.bat @@ -1,4 +1,6 @@ echo OFF copy /b/v/y build\Release\* root\ -copy /b/v/y build\modules\radio\Release\radio.dll root\modules\radio.dll -copy /b/v/y build\modules\recorder\Release\recorder.dll root\modules\recorder.dll +copy /b/v/y build\radio\Release\radio.dll root\modules\radio.dll +copy /b/v/y build\recorder\Release\recorder.dll root\modules\recorder.dll +copy /b/v/y build\rtl_tcp_source\Release\rtl_tcp_source.dll root\modules\rtl_tcp_source.dll +copy /b/v/y build\soapy\Release\soapy.dll root\modules\soapy.dll \ No newline at end of file diff --git a/radio/src/main.cpp b/radio/src/main.cpp index 7d4a34c..d5f913a 100644 --- a/radio/src/main.cpp +++ b/radio/src/main.cpp @@ -66,7 +66,7 @@ private: if (ImGui::RadioButton(CONCAT("AM##_", _this->name), _this->demod == 2) && _this->demod != 2) { _this->demod = 2; _this->bandWidth = 12500; - _this->bandWidthMin = 6250; + _this->bandWidthMin = 1500; _this->bandWidthMax = 12500; _this->sigPath.setDemodulator(SigPath::DEMOD_AM, _this->bandWidth); } @@ -120,6 +120,9 @@ private: _this->bandWidth = std::clamp(_this->bandWidth, _this->bandWidthMin, _this->bandWidthMax); _this->sigPath.setBandwidth(_this->bandWidth); } + + ImGui::SliderFloat(CONCAT("##_squelch_select_", _this->name), &_this->sigPath.squelch.level, -100, 0); + ImGui::PopItemWidth(); } diff --git a/radio/src/path.cpp b/radio/src/path.cpp index e2a8c87..97f5296 100644 --- a/radio/src/path.cpp +++ b/radio/src/path.cpp @@ -5,7 +5,7 @@ SigPath::SigPath() { } -int SigPath::sampleRateChangeHandler(void* ctx, float sampleRate) { +int SigPath::sampleRateChangeHandler(void* ctx, double sampleRate) { SigPath* _this = (SigPath*)ctx; _this->outputSampleRate = sampleRate; _this->audioResamp.stop(); @@ -29,15 +29,21 @@ void SigPath::init(std::string vfoName, uint64_t sampleRate, int blockSize) { _demod = DEMOD_FM; _deemp = DEEMP_50US; bandwidth = 200000; + demodOutputSamplerate = 200000; // TODO: Set default VFO options // TODO: ajust deemphasis for different output sample rates // TODO: Add a mono to stereo for different modes - demod.init(vfo->output, 100000, 200000, 800); - amDemod.init(vfo->output, 50); - ssbDemod.init(vfo->output, 6000, 3000, 22); - cpx2stereo.init(vfo->output, 22); + squelch.init(vfo->output, 800); + squelch.level = 40; + squelch.onCount = 1; + squelch.offCount = 2560; + + demod.init(squelch.out[0], 100000, 200000, 800); + amDemod.init(squelch.out[0], 50); + ssbDemod.init(squelch.out[0], 6000, 3000, 22); + cpx2stereo.init(squelch.out[0], 22); audioResamp.init(&demod.output, 200000, 48000, 800); deemp.init(&audioResamp.output, 800, 50e-6, 48000); @@ -91,10 +97,13 @@ void SigPath::setDemodulator(int demId, float bandWidth) { spdlog::error("UNIMPLEMENTED DEMODULATOR IN SigPath::setDemodulator (stop)"); } _demod = demId; + + squelch.stop(); // Set input of the audio resampler // TODO: Set bandwidth from argument if (demId == DEMOD_FM) { + demodOutputSamplerate = 200000; vfo->setSampleRate(200000, bandwidth); demod.setBlockSize(vfo->getOutputBlockSize()); demod.setSampleRate(200000); @@ -107,6 +116,7 @@ void SigPath::setDemodulator(int demId, float bandWidth) { demod.start(); } else if (demId == DEMOD_NFM) { + demodOutputSamplerate = 16000; vfo->setSampleRate(16000, bandwidth); demod.setBlockSize(vfo->getOutputBlockSize()); demod.setSampleRate(16000); @@ -119,6 +129,7 @@ void SigPath::setDemodulator(int demId, float bandWidth) { demod.start(); } else if (demId == DEMOD_AM) { + demodOutputSamplerate = 125000; vfo->setSampleRate(12500, bandwidth); amDemod.setBlockSize(vfo->getOutputBlockSize()); audioResamp.setInput(&amDemod.output); @@ -129,6 +140,7 @@ void SigPath::setDemodulator(int demId, float bandWidth) { amDemod.start(); } else if (demId == DEMOD_USB) { + demodOutputSamplerate = 6000; vfo->setSampleRate(6000, bandwidth); ssbDemod.setBlockSize(vfo->getOutputBlockSize()); ssbDemod.setMode(dsp::SSBDemod::MODE_USB); @@ -140,6 +152,7 @@ void SigPath::setDemodulator(int demId, float bandWidth) { ssbDemod.start(); } else if (demId == DEMOD_LSB) { + demodOutputSamplerate = 6000; vfo->setSampleRate(6000, bandwidth); ssbDemod.setBlockSize(vfo->getOutputBlockSize()); ssbDemod.setMode(dsp::SSBDemod::MODE_LSB); @@ -151,6 +164,7 @@ void SigPath::setDemodulator(int demId, float bandWidth) { ssbDemod.start(); } else if (demId == DEMOD_DSB) { + demodOutputSamplerate = 6000; vfo->setSampleRate(6000, bandwidth); ssbDemod.setBlockSize(vfo->getOutputBlockSize()); ssbDemod.setMode(dsp::SSBDemod::MODE_DSB); @@ -162,6 +176,7 @@ void SigPath::setDemodulator(int demId, float bandWidth) { ssbDemod.start(); } else if (demId == DEMOD_RAW) { + demodOutputSamplerate = 10000; vfo->setSampleRate(10000, bandwidth); cpx2stereo.setBlockSize(vfo->getOutputBlockSize()); //audioResamp.setInput(&cpx2stereo.output); @@ -174,6 +189,9 @@ void SigPath::setDemodulator(int demId, float bandWidth) { spdlog::error("UNIMPLEMENTED DEMODULATOR IN SigPath::setDemodulator (start): {0}", demId); } + squelch.setBlockSize(vfo->getOutputBlockSize()); + squelch.start(); + deemp.setBlockSize(audioResamp.getOutputBlockSize()); audioResamp.start(); @@ -242,12 +260,15 @@ void SigPath::setBandwidth(float bandWidth) { if (audioBw != _audioBw) { audioBw = _audioBw; audioResamp.stop(); - audioResamp.setInputSampleRate(6000, vfo->getOutputBlockSize(), audioBw, audioBw); + audioResamp.setFilterParams(audioBw, audioBw); + audioResamp.setBlockSize(vfo->getOutputBlockSize()); + //audioResamp.setInputSampleRate(demodOutputSamplerate, vfo->getOutputBlockSize(), audioBw, audioBw); audioResamp.start(); } } void SigPath::start() { + squelch.start(); demod.start(); audioResamp.start(); deemp.start(); diff --git a/radio/src/path.h b/radio/src/path.h index f3f6b82..fdf0295 100644 --- a/radio/src/path.h +++ b/radio/src/path.h @@ -8,6 +8,7 @@ #include #include #include +#include #include #include #include @@ -44,14 +45,17 @@ public: dsp::FMDeemphasis deemp; + dsp::Squelch squelch; private: - static int sampleRateChangeHandler(void* ctx, float sampleRate); + static int sampleRateChangeHandler(void* ctx, double sampleRate); VFOManager::VFO* vfo; dsp::stream input; + + // Demodulators dsp::FMDemodulator demod; dsp::AMDemodulator amDemod; @@ -66,6 +70,7 @@ private: float sampleRate; float bandwidth; + float demodOutputSamplerate; float outputSampleRate; int blockSize; int _demod; diff --git a/recorder/src/main.cpp b/recorder/src/main.cpp index 60c72ef..e88ef2a 100644 --- a/recorder/src/main.cpp +++ b/recorder/src/main.cpp @@ -25,7 +25,7 @@ void streamRemovedHandler(void* ctx) { } -void sampleRateChanged(void* ctx, float sampleRate, int blockSize) { +void sampleRateChanged(void* ctx, double sampleRate, int blockSize) { } diff --git a/root/config.json b/root/config.json index f96b5c9..2a7a2e9 100644 --- a/root/config.json +++ b/root/config.json @@ -1,34 +1,43 @@ { "audio": { "Radio": { - "device": "Speakers (Realtek High Definiti", + "device": "CABLE Input (VB-Audio Virtual Cable)", "sampleRate": 48000.0, - "volume": 0.4354838728904724 + "volume": 0.42578125 + }, + "Radio 1": { + "device": "CABLE-A Input (VB-Audio Cable A)", + "sampleRate": 48000.0, + "volume": 1.0 + }, + "Radio 2": { + "device": "CABLE Input (VB-Audio Virtual Cable)", + "sampleRate": 48000.0, + "volume": 1.0 } }, "bandPlan": "General", "bandPlanEnabled": true, "fftHeight": 300, - "frequency": 91000000, + "frequency": 98391106, "max": 0.0, "maximized": false, + "menuOrder": [ + "Source", + "Radio", + "Recorder", + "Audio", + "Scripting", + "Band Plan", + "Display" + ], "menuWidth": 300, - "min": -70.0, + "min": -72.05882263183594, "showWaterfall": true, - "source": "HackRF One #0 901868dc282c8f8b", - "sourceSettings": { - "HackRF One #0 901868dc282c8f8b": { - "gains": { - "AMP": 0.0, - "LNA": 0.0, - "VGA": 0.0 - }, - "sampleRate": 8000000 - } - }, + "source": "", + "sourceSettings": {}, "windowSize": { "h": 720, "w": 1280 - }, - "menuOrder": ["Source", "Radio", "Recorder", "Audio", "Band Plan", "Display"] + } } \ No newline at end of file diff --git a/root/module_list.json b/root/module_list.json index f7d192f..6e593fc 100644 --- a/root/module_list.json +++ b/root/module_list.json @@ -1,4 +1,6 @@ { "Radio": "./modules/radio.dll", - "Recorder": "./modules/recorder.dll" -} \ No newline at end of file + "Recorder": "./modules/recorder.dll", + "Soapy": "./modules/soapy.dll", + "RTLTCPSource": "./modules/rtl_tcp_source.dll" +} diff --git a/root/radio_config.json b/root/radio_config.json new file mode 100644 index 0000000..c6ea5a5 --- /dev/null +++ b/root/radio_config.json @@ -0,0 +1,5 @@ +{ + "Radio 1": { + "demodulator":1 + } +} \ No newline at end of file diff --git a/root/sdrpp_0.2.5_alpha_preview.zip b/root/sdrpp_0.2.5_alpha_preview.zip deleted file mode 100644 index 99c3377b9c54bcdcfc3f767e4b27f6c57c43298a..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 1547126 zcmV(>K-j-fO9KQH0000802jW=Q0xj=zdCCM001Hm015yA0A^-%cQa-#WNd8gT77g> zMV7BlH>5*8x>2GTU7^utw-pC_jdL~{W~ZNYq#nFL_z+MS2oquA5g~?TiONDk6Uei8 z12clMuB)8c-H|!tIj}S839KL836O*Y5@96Cs0iZ>^FnlNq6>-2zP-2Vb*DRN2n1%& z{;}_z?y9;~_g4Mxt-AG@|L8ViC4|`EXBdRk67l)S6?_&#GRE!CAaA4`8DDErj*OpM z{P=2DN$IK|mo9zMRkU>F%2j2qA1!m0malX@zS8BNImh+ns>ha1N>3lf}6|gIy5rd1OQAAF?sr6#5-c zZ{*?Z$BT+l?xi3U#4;NTA1AKN=?cbLtaQDq{hN&_q_yhCy!Qg3dWNN z8A%A&-^d7aVFp*GJvRfg3oQ|*NH91pqJ@Xk$z%s1FL$PsH<0K9wPHo#bmE)ZUzQYP zkX@;S?3$5I=90^NGt-IP5|iGWMs``qCBI2!%PPts{LOX~Ct|n7mvKQeCzU?7v}`FM zC+@LunZyer>L%uczT=xDijl@q@OLVm>xvvsA6PCpsYDd?O%+%Pg|KB%Ip3tx)uly* z2%Y#cguF2s3Cb;7v8sr09igrWHtnWCR?%t(MDNn_A&ieAuG^Q_2WF8Zr7*j7-`mjJ|2w6Mts_qP9h9}1FnVjEpZ=Z z2UKd8=0Oc5R9%pjmwle9#bKyKtvJQbDr#|CKGPj{R_u1nH$dE$7;$QuyHHUda~CM; zTDMRC4+$&mb?pCR=IVRd2b4AX*+u=<+mV_qvk$6X`z?2BTR~21!_*bnbBqGJ!cKLa zhN$DtGPl=v{-CdHgv8Ew-vUv4S@OF$n7h*<;R349vEz_&sK?>ldkV;bKfb7Mxo9QJ z9rs*dC)Ld#0WF`MVTb(c8}1rNP<5kwCyMrfXvs0)+2N@65|?@~2+RX9p$L4o%f{EXcwL`%am)=*2-Rfi|r30QY3zrbfMAeVf;) zurqS*$#wg>?S3XG>}7W)1fbXa>OYiC-IoOk{m@HRBJH#A_L{XQEDXxFs|%cZ1<+-6 zrZx#j1x_IvZ^`FaU zVRjZep#BiJo~nP1m@{xDnKG-)PK3^kfu5K08_Z~!vVsT$v*|0Uo5~-8+8otKQ6m?j zP~cDPtUYkpr+)+eodu8s1WZ72z==jrJp{#6o&(Z_obD0qB5(%!k{s0mk)h3k?$iwU zvBx#*uO|{m5{U~uyCSJvg7|(5r=g5Ms}CZqU0;?+j4hEE$`-l3sMZ`*un$#Dai9rx zw)o7k+o}J0Hm^m$Wugs3J{Y?`|JyVYKOO_0fgs7QXwz&88=cQO6jeck9+ug0%BYJ@ zq**l7mz1yBYGig;GG^z1sGRx%{P`M<<-;r6TqRw@@20&2(AZ5p8 z)+`xwuua~D_3?NB2pfHMSnvZT$drvAneCx$7MLsrn`yYB_R*KQ&^R6X=aVr!&S4YD zD9DOh>iEZ2w3Kf?x2Kjl=jAkFWWM>&Y3TEyZpN>P0W(6~yDi>cmjx4b$(&iZlhA z5Z1T4&?Akc4CacX(2PjM$-H7LWQ2^&`(KJ+D7yn1sH>OYdjBKjYQUzLef<*cv15Cj zyghl@LCSh?&eAerdLWWUbMzc8s8_GdMHjuqL%{*6YrL__X%&DGJg=o|?nhkxEsnS9 z6cz$2dL3^y%0{85B|-hdMn#>JeO>j9VHoSn@?aX3SThZsPSWKaR#N@py89Gu>bKcV z`I>F#@_zp>F=xK!`&J!O1G=HP&1?T0qx$UNAUpKqMOT?6TqP~)li4}eAY-TPp<0@c zSKPK8al9+2$!ToLx2hCo{;?2zB?oj% zIrNCS80Da&k8w9RUOb|Yhj=$IoXqd`?gJ$l(4S}s%6ei=*7fZDaqEq!zoKlE?zo9h zK-QRr1B{)n;tPh6u>2R93CfR#9Li?f#gL2jFBRxtVE%vPYW$1fNB20$H-adb1tstd zQWgw)8tO&YQW@tNV(O3gjR}~+vuqgXRxGe{ zzw%QYF<}_3cPZKw0~Tg8z@V|?PV~w7YSZ5UD%_dNu|J#Xq^O z`d>e^{y)-&rT=BuMgKFepZ@O~EGp4_uRzSjEdblC9+`#Ap$3zDpTdGNJBE5|hY1sf zRe&uNwuNuL6mxh|ww(_}P{LkbY>Rs@&xYNz6;??&e{ON_1`;$bN2GR%6hJzGzTSg0 zzMG90>Y;HcxD^bgPv3%F;HYV^GBns)*tSEg7zeeqr0dQtF(w-pz6ZF5!W%ab(7gY` zmcDHQ&=s?Vh-s&Z2{AHlEUU&^}D@M zth-~e?&f2u8L_^ja;*BBJUoJ!BWDt2?h*kP-N+8rN-l4|g3BX*j5qpa6LI*Gh*R|k zOn8lhtr!&We5Mt1kXCCV^G5I|#(ZFG)V@tMQTrBBZdI^v3EH;;02hFLU#q#c{<`MN zE9$QWUk>SCOr+jOA5PqPU+nL^pKTth^B&$D1vgxLFZNs!zLK8ngzv}w_|k^NcXm?( zeEs8duJo`uMoah{-Nl;o*=ci*hP|=AANUn^Tw%T0ALdsdTQ^SDW*dH1Pqi`ImT!ak zd9!Q;)lpQN{cV139qdPo{+_k+{bVKQ3|AZL?pD}#(Sfz822Sy?28AuHA6Iy3KchyS zIlt4~_O+k)3;4k%1gC?5yHKtCoKqX~4(t;QYHf?~{}VOpMg27Q6WkAPbmL8i%-R)m zjN~z!8<*G{-FO8BS}YW)UcyrgL@F#&1tN7yq$ujjht4AhsU2uZp5G?&y?piIVHv!q z=--`ymN_D;c|?Dz8c#%z>W}lVRnZpV{JzjDvnO(7w%RANPtlo3Ka>_N>GD@w$q@D_ zOl+T9s)uWzQyb&#Q+w6+d39r)eLAk#K4B8I&)zuu=y4V~6=#vQgcfOxS|pgzB2T#b zE%He~Sfo7=wMgM5E%NJtl?=xo&jp5SkAlE8+QSj}zi*FcW9%_=gRsZc4Od`~+c#Lr zaQxTTRl~JMu<9E9*ZQhq`LFHVO@W_p?G_UTx--f;;@laZHhRUhQHa`KAV^_BDiEnt zB1L7^ZkowlCU8e);cFt(l<{WTKHgjtfthw!^2Lz8t5TS2XXO<*wAGbXa@G668I{A@ z56*R0;Iz2wtWa0{;R-ATA(QW%*a@+DYQH_Y;A>eQJAV$|FTTFsO0LWK%9Qb!KVOMC z59!}Rmc$*gRK%Wzhy#-NBbRaG2c3vSfvFR09GJ=9cjx(;mG80rpnbp??faakoFw`=|CQynp&$ z)u8()yn2G-dMSEA6k=q4QJF@voA5rVGfr5H{i;0N2X@ljDr{D1p2DWPXdvVfxK)Pv zQY|`8Bl9(oN44o5YHg$}z&TaM(d33oQ)}_EL7Wpi-nCOBNL5~jg#_`k`kIXT^57l$ z&l`olKv(*_@d>r_UgH4mVE>d{j(43KkCl()?WpJVODu#ymj==-9DHvqe;#;8ZyKC`jPWOabe3{cdwie&|bl+TyPjtGSwGIqYYVie9 zcT#pxQi&W0+T=i&rThh%)x|(xzU^P2w)yZ|48LXYTLHh-@OuV+Rq(5U-&Xj&a4#W= z?=QW66nXA^owLj?1sW|A&>^wltxefR)oFZJ z;t}}kONa7-Q#O&65y{HHtPIGSKtQJ=b5tY~|N2JpOz1=irO77+&iNqUf$_Ne#-PL+ zL#NU&v`xSVd{w8>)t6ZVjY-u_QKA;XTLV}I{xk!2Aq7Qtdc zt#NvipxXr976{t}-A06{6jM}+V}Eao$Z`r6mtb+BdO6)^vLu@<$-t5?)1=!t-7e_%K-ex-!CJ~L1f}Lx2f3tFkd#{Wiw>@;upy;}*em$- z!ZAOXvI(hGpCTPR`%iEsCZ%>Rcia%nmqKd9>mn5@O@7Y+ZFMU> zj>YfelOvbIQ>V{enMNF*Fcy3s3hI7HLjfQx_}(*XF@Egfs z2>%#RG%CO+6p+Ocp#tuSD8OYZAPW`XBXSJ>tSiUQXEM3yoLr>q>Va7Niol@0Z#9lO##M6sOoAnWZ4|yH(Bv%Hu?MDi|0qzT6oy0y6TKY#2SbC053&8Vsf4kn z5}eQpCT}3?GEfNssV4?fVm#+y(a(;`Ob1;0zIrS1Yx4}iBvpNV5hOb{|06fuTz7#2 z8Pm12*;Jj|=!C^UBT^Sobyn82BHN3wQnBM6dd3XRwu8f+cu}z)q!T}m*k3LpvT>NQ zS->po)Ul_H?~B!0&S^z{s|^SexDN@XC7aULH(y2*s#x#m;BJcV7x41lA9;*{n*i9c z=x37nkj$ya^)TNmVKKZ=!vlzYNn#g#9~SoVUCNt+f#Q1&*z%3I?HB2UW*@*UjL+N< z!4}NVwwtde#SVuHv&IVZhZWsv`P6BP(*E<^#7O;dNY(pY`ca_2C<>^3mdzS@bgOhxL&w z4n@PmCI0GKi#+PW4Ro4k2`%}N{>+jds_D~eD8<&^%(R>hf?Z84pgt@d7uu@Jt-I;p!+b)NO zXrf82qpz#K|8fV_p!qIvRa9dEB)bENQ>mBFVg*-^ZaVrOws;h+qf*DJ)N;(!iwGqN z$D>u+el1V^=t1FO#m;6Y_O#SL?<}xd3nIi=38F#G~*N50+bI3JQFRqzV3r*E>J3p{CtbtxvrzVB;|2s};w2}pEp&ZYP zAJ~wMu3`yqeZZ(zizNhTE<520N`>lN4xj;c=KgK)VbCLuvz-pkc4T2@()1-HN8ZHy zTd#y~rFMLCr>Fn5jM;8W-Tpy(0eh?kRD8hDu7zKVXpfLeDI}Ui1l)U5{(5WbjhnK} zu?n!Bfcmc1@sq6#^Gcd@hGFoR<{Nw8n(zGs=KJ&aFQ0FBD)Bzgw@$F57Vy1{2$p@z z4(AWHTxotJFYcrufK03^(GyZS>xMI!mV0y)fPbGqc5f^60<%~_ht{KZrRSoVSS7AY zFbG|hK`f)O&oy_LnP__jT&#ElZdVuUb6%k(+1Kh%Y)-9FFI20k=IiQWkn;VzQ!CCe zCN&5q)d7?0DUD~2LZ{?EfCQEb32d{ot2w@iHTk1wHuv}c1^&GK%>OZe{zK#cfIn|M zGdO>K@yuVrpVxgO&7TW5|KIcH1HFHNKfn6K<^1{TGlTNylf8cxe?C_?fImk%|8My7 z&AopmfA&7{QT(}g!Dalpuy;`Yd`<6P$)8U?G#G#W%BKG-{#<6Te}1RtujJ1&+SB~G zkfPFvxdk8U4pN}4HIz6XNE}XmmX}Rl44wOh3@d+(B7t*!bry?m0E<>=5sEVin41lK zjIdb!QZ@P=b1d5diB$+q`#sAxD1N;qOKbviggwMjcxRLOP*>{I@0|{vNkoCHg`6Ii z1o5l=tx9YOCibeGE~K4Kj=P57R&X_^GC?FHy6Nspbt4{7cdJ|I0fK4j)Kw0LB%mo+ zab&Pl-9U7yZcRNXpe_X^AYEWjNNkxjF_1;_PqSG_>{h6CVMBjE8(V6(KK>;x3^G%B zUm~Xrg9a2W;6&D%+M2pFU@hCp+8?z&cUv12P8`MtL53#Z#Rd(#Y=iFi#~??aPs>qk z7m^CqJ4KkT!-P`*Fi(M+VL$qVP{k}-bEo;xGHgtxXIY!GDfCcN>VY**4KZXr4&0Fd z`E2%R0AokCrJl;Ud`AL_t+FE|ko6X(9>{U%9j6_chaDkt%=e|Xy)$4(!in`3rE|(; zVd~niK-_g$;_l(~wjEhgqj%&9d|LMxcZ48mZO35zD@`@b!p@zr1mr;sxR+()Iz}~u zmRd{i_gFeE*U}MUQT?$0drpUjY@!o@7w9or?0?DWu##lADuqQYE0D~)MqOL1Bkby{ zm65k-BlEyLAy3stoo=A6s;`QLrXD%LFs&4rmO}N>I|?W>Tz?n?YiZJ~CFN}$RIp|u z@Zj>5u=tb(u#V#vz<%X$SWro9VL=;wL(T9ZjX<5`;Hx7^wf#k>Bb`36m6k-n*h85o zSSqEo%Q_i0MB^kP2&L50=O0h=(y)3oK96NZ{zJf^=PV5ROp7I!L-+qxV%hp1{6co8 zU^vl1fQ5@F;ERC0!&$^oKH-<5ioCP9T*Q!Y)W;$Nqad2)tG&uM3x_=-clcl(#Wy@ zZi^V(pFbxFAh{1B0VFjaLwPV%w>4C!ZK!wuZLoX|yQ@3#d8CD;%HHblA5bJ}p#J*b z?4_lL9>^>${p=N<`u4wFsk9WYPG|T<0tsut^qSjB};pU*( zw503zlu_nSxJsWbZrR?KbXO7b_BS=o^Hn=Mfo6Z)rDok8jDL|Rt^D#A(uH86$$rg- zPeo>8Xw@^+R$*hkk(x>+Q|&pW&v4I;f%TePADA;t{VdT->Ps;9medU>_31F}p z>PRhYroGO2M}0o+@uFP<0+@DMO}{^9!_z|@JWgj)kMkmpGmgjkkEe(7R5I|Bk|%;S zsiMc7jz#_Tc`yKN*tGf@BBiO-srD$1IW;m`N$^LiQ)}sK{E^6DF-aQm=+)_@Fsc7m zTK$etB50b)VJ!-$LJ5B*6+#mA`1`N7EvoV^D+4YuB{z(;x5lwqo<+M61f5_smODI) zI`Ac!n;QNzC)HUm{4XRlPs%kDwTkn7Xn3Cf56XA>;7N++=GI@UuH`H2LZ%DyzleV( z%f1S&ge|O^kdhj;sp5a85$AqP$E*6=sNP{1uGXJ2lkWGSI;@X49iw+tjaEpJGLsFi zfbmWFS9wh6^Rhtsh|Bub_2S_HhM*2II)4a{!4c$<>ysJN>!sblF}7SYzrhO z=BB=qAWZHHDsiOdQIeWMZ`zpp-J|MH6SCJOk6o=J1W72#c=xrYzIL#`Ka|Y*FVcq_ z!03nFa=+V=YP-?Fxj40zp=71fC+d{AjVLfgBB6LgO)xPn7a^&5b*+5P4^r?hUachG z_S7#MoD{NGi~pLLbX{}W^xUexxR3~Q+7p?ad)nijoU888zkC)o(~2QDH`4Evvo+a} z-<#=5AzdjvI!b|GOdKpg_!XB0E9A(he9YXt?oOw%E;zyZlV90gM?;D4Mktvz@m&*n zXW!6iw*ERu8ug)C&E!LeaOzTObYiA*XA*?fjicWo$_ zbT2~4F3~hCS#XWn+~YEnce+?66z>cs+JY2Z571sTQ=g8A`W|$)(WTlcN!JDkM4Q^7 z^z}Mw)&XU&xLKYq2WKIT`E0idnUtJ#F@$|?PGwUFQ|5tqb?*d^G3WY=y?&2TaJ{E! zL+?b7;k(IG)JY%m{=3%`-K73Irv6*6{yWg?iFEXOV#j+u-YFN=Key6@bFO#MpV;-e zdVm5NKwY}wqn>xEf4-8-1GsqrLl01_XVCajBe-bA(V$@4ymyYf=wdKYrI=)Am>h!j&VsbcKp9Oi8+$g2jCxlyVS? z?`n*z*3aYSGCVFHnzpS-jjTk-ds%b;bmcAKRDYuFQf3;z1k+F|OE4K$TX`-_|KDXc zzwHVq&IHfCrWgpgWw`icxOnH(WS%oz+!ai;28)}5PN>DEn)eoFRBRZBlG85I&&@}( zLt-ndTZzxWR3d{QSiFJeP#NrRo{}uV3)C_nrj7h0FL_25uh}TbQj6_OZ$jtgMlU>3ix=21(KEtJU_8nOmq%ty}clL|T`gU*d+u&+EuShF zcehdYQpJXOXNcCX4kzzc7<_*lJ2HDIm7K0mr;A(Z>$Sm(Q=X?QNEIZ~efogZ_9Q1= z2o~=NDw!Kp<0ZqFg2_p4g$7%vDfyda$zP8V$i8SMD+|qJu!mlx_SR4Qvr?l=#Zj^WP+Fo=!^f z&-i0?VyDdxS^Q0>V~~C|!Rpk%;P$Cz>c{+{lF8x8Z`$pT21Yp=99|{{0c^2L7bfnj?eHu?@oLo%x{0u8J z$X!`WE9W{c_Bbiy>g3Oy4w*&rcA5pQcVZUxA*XdAl;}zMLSl$1wx-^nZzc`~izgTU z8BUyEk$=GRudPZe+-w&2(w;V$&4-<4d=2}n_e`OgJf2S@)-c*6-K!JtD+#fj>yb&f z|05+|bDIpO;z*AdQC@$Xv!^_PQ`G%0i6za<^{>qq2^1k8b>a>q^-c9tI5E9Y`$a>E zc5#XBgh!5DP4gzxV_l?=D7#VFpVUe4?;dpmMNR6_xA06B!!N|6>l8g|J+wK*zCbF< zvXEfx&z$ISc6bHmro*149PS}1P*;nr$kzEum;t@_nR)!)QoQ$@S-hgk)Z0jx2ylS7 z)_gX2_99o;(a7q_$)#wVq+qEa-VyS=u!A5U_Pnqwlq_3J=wT*H=&#}{8>b}8meP(* zNse2Z3a`*e-<|p-oK792n-!5imTYSRnwsO?={X*M1T}`3;d)R|4tehW$lW7{&6=*v z<6q`F;AAyJNiBJZd#R0yH&ljTEY~W{?rwA;ikR_<5tHNiM2zvNHE{g`dE!$W=u0hs zXij%W z&I(_C7SxfZOmzhQqI`fBrZ^a#l=p@b57sIsZYF}tsy#(34kCz6l#^OHnRz<;rOm7i zCzMJ1Bzw-EVSM~oUe*ep37gTAYoq{kdIQLcWDD4|8G_Ya(c^jMhxBxO6*L8f6HiS` zmi#oW4`?TgGMj>lJ-V+Tqw`ksyl_LWz1n>da-KAuDZpI|FonTk=fx1XrQBuGUEQGy z1?tCsX6g(Obw`8@P1ad9rA{KxVRAKDkn|>A8jD6q$U#V|Y7*LP>Q z9V{|ua5>YU@;P@l?`4Ki?){3>F+d)hsq1Fj#ju0EHJ(shAgCajbBZL~Sii#WoR_8% z()kr4?_eI69QMzA$qab{E!s7xE-z7+?H)pSh3+JQd$$s`&mn+lCXV_Oi@DinH@Wue zObRD|;CcD*HQ&0<-?)}M07|0vI~@>JjkhVOdKzCQ8;#}amp9dy#z*tB$Ok&P$RsIv zt$Nz+d7@LEF%w}U^~xd^B8`1no~K{r0dmc;O2|F^?>s_w{by;=v8DBY^8uQS8ui1? zL{$;k&*OMP?bMe3F8cm;d=DF;xR@z|)uF`K6<#HK|%>aQnbXyJcSx7~AU)t%XN%L=(Q2RV-Nt7o2%MHPb?zz{Q z70WO^&%*m5g|?M0yxAqBX)qy zAfd1qaja0HGZc>v0uCE2sxGBrf$3XdpykR+v{0kfoLxpz<}M?gXb0c~63?MurYIEC z3mFWgRNK{w-~4?hBr59dka+n+K;mu|)?b{WIAMf1;rqDzBow1ia#AjYb9|B#*55Wm z@yDvEGiU1LgHDG(F{vy*smx5Y9ev_MIGZ!@Y|#85Vng6)9bD6FCXT`Db7v(<7joe4 zCJr@7K94k!9LUe@_3-{m$V`N>)%d3%kRW#^o3;QJ#@1EvHX*_MR`I#i7ru-Ns`AVV zv&{D?2=AwNB!~HeijPu0?=wzud?*RR>^xpqh(fP;gW4XmXpnj@B|D=g34;ZQl_r0{ z1pEUo3+N0vZ;vP?E*J?VDoY8!)E=X8W;ju4r1t-}(~<5U+2U~gb@k+xA$c3wN#CIT z2qnIuaD1!3v7uaHTV*L?J&9_g{tKx|>xky2D*bJeGf0U}YQWN9V^cPiL$&-xrWkS5 zulL5|pGxK7iHQ`D`hiISsSbLkh#Gm5Zry+5z=TC4HjzD>8F3FK4g}-(8o~JN{9ycB zg?5)qb>nx-6?jfkk`}MzbSQDuv#?ue_axeizY&V7NkvP|iW@wOKA%l2x7o9(D4Xwr zEje}}GC4ept_SyC!>*&`1Se@CM444e61Wt8=2MbaF#brFsg@pWpV&eAJ@psw3?;{r z;UA1oYziwfj(=;dn(^vz{GsRl{nzUNnx=VcxG*Ui zT9u~u>FZt{9rA^ehycxr`7$$wO#KGglzldso9$F@>j;fqi6=da{@amWyIHZpv*_3K zL3ad8R`=70;lx(^6gr84mDAcwNs?iv!k6Ll(v!ANqyDapby~s(JJ;Vd*h(4Lc5Yjm z9ur$Pw`g<|DVNHsy|+A=n5{Vdw@iDdkydMdiDg*-^rUNDNUu)Al3-SRZN?NxUR2Ud z?Qouw%zIhGdH|3YehV`6km-5h;MpfFbAOb-@zHX}T1Pg|fK*~QF+EisP?TF!`FFG7 zKboFjaDm(-j~OyTE^W}w>Ic;D9lgFk!#g^7{`2T}xU~)O@UaiqK6aO44a!=%vjP3d z8kckYrzMbM47~{LiDf#L3hRKE)A>dqOn5<9VqwV@WRDJ>Jv ziXQMX))QSg5L`I1_DTD6U42&&~HNT0y$kf=5l- zyl>)|h@bw6UJ|Z0M{h}e{8MBkF)k$-mlBLi$uHMvioee;pemKEWS2>1;#X{ipNBZ@ zS3tPE4t-l5ZUEjrSQB3Kf#>NRQ25qU#-`BA2Gfd%uQ%x{*h6ujf(kC{Ab_b$U*nu+ zMOb6E&l}nElJ|L{yI^wM-!U3Ew}G92DCfu)YG+I%JpwYNEqCzqrL^ry_tj>yDx0@o zKj&N{yiH9oNbc&VNT|>lR*Izp6VyME-%55*%_XBU15ytwOg4xY(3Vi0bqFv`NXCsg&jl^ksoT z6&A5J}H*a*dw5`dnv9<45(m z!O|_`PqHI&l9P1DQ2ZZj&G-wP5&5t1UM5{toOu2us$1N5J1vi9C^=av;AVa(X)3O_ z!F<*{``uhNQrDBevgR(QBT-eZgPlqNDxxf+L>t`zj?&!YM9NS)B}m;*`Q>Ut7tF@K z+rBd-RB>tERet#C1M%;aAaG0&dbYq!5biQ8+G@x@N%1xvwE*xE{TD!Y3VnO|wU>r212+g(?* zM;9=8on}w2nnOfgywgba{+2}VWHOLeSFnLZO6$a2?aAPPME}PI*s2+Cv-uM%De#7u zL|G4emfgTRlq_i#*Ti%s5Ax=R6V71L{e+o#GOhC_CP%>h_?qZGEI+V!Jm#m790s>P6k%&FMxS@cD^P_a-fs?TRJMXbfo zM?H%Q#l%YK9sw(b2Wbc5-T6W1=7DCGVsc$pC%pK?4xJ#a_+gVW7uT9`4n(4j{KVC2 z-r9mhB6l)p$R)1xVCFGw##lGUT2d3<>+cVe21I#?CWTe1(I6yV8!_AGFLv<%6yQw# zPR+o$G4tfwv>C*ag!toiieWW`;xB+TedBfl_q2RwOKe>+PcoBtlRGZ8ty~Z?&2{aMKh$WC5c7M5B69}g~QkR_S z%*&!P6T z1&dp#3eU6T+HCl6`a_9#hyw}Pu&WCe|e)YVto0w02T1gN1a?>{!TFQE2h7X+GNdKsC zsf{+EP|carD~rs=luL3_!-_#ugbc}?vyo+Yi%ycfT4!=*UojVSqQ~pLn*J@x#sJ7i zz1K=db?G$Aj~sv=@)qHFq@&(z=v>kwdVYeMLDm%qP>;HckTRBq5s;30FS1c5=tNH% zAv@UET6o1&PfG5(iWASm&JCQ6dW@X+Tt18go(P8$>%=0_RXz(vJtqXDf}T*tR!{OV zAaS$W^Z&%2s12mF;iQ{(yB}EMY*thWj0h&wK6RpZl)Ee1?18K zJcgH&P(LD5)t$?!X`MKm>SaAav%gi(G3oRl0jyfxe57$6_-G+>|E)7e5| z(Lw!ZsTWS{Ra($)_)m9ejVVz4?TA`<5jA@Qj{e`HUlXaJTqSnSz>lMJEx{pPffZHnE8t0oL`9~rsl_=Vq4zq4<`NnX8RLbihB$tf|ca+cqim~jOqDiqQ&E#LfyVP zNZ;S*DcX736CM7_=czScbQu4Q+@p}TMg5&%sDJJtd*B|bETFI6I|`4!cM0*E3@BVK z&rYS4vQlUyL;v_875{WoYp+9ZX$3De@jFoLmfg#WU6HzRDV1^Qr%^4q_m8DE#V+Of zj??kc>h9(7^EkmIwP7lqSyw;8Ow6q2jsu<-W>%&?zQU<3D_i{DOgsaHW;G?|wBuJt z<{h^8@e7VFn`-F~HDUp_b#NuYswtAHiy0)psWhFHQZmEY%L&SasSkJTecDSD`m0&{W3EfTQ}p^AqZJjpR6@Zzh)ThD=jP<)Lr z!r!q*S5Kw?Q!A$@^Zv$6%%*}P^3f$4+10^ynluQ1U&2}@QdQ$@$A_tk>{Fm~rPz($ zs1PPjb(!4SIzlU}4OblTB%86Elc8h@m@Q>TGJHhGOl%-4mAD0eJ!U$agUNy?iSdvP zA1Yo4YkEL`KNMzsLcLBg-y4D)RVt)1xsY}=I8Owf2TkW$c&55Y1R!Oo28AOwVF(z(CPd%J=ou6dulIbr#7~7SwS+`*p?e?JfT#DulEmD(OjAi-E6kU z6NtSvaZ1JKqZ6+`w4SZjPs~o+b07imt{?h7I+@MuL1T=S$A>)un#* zNy-KYmnu!=tH2s6g*!<_a;c~5tqQp%?6bSly@8-mG6{T^dtu7XK_TJlZJ z$8<#e*+t*_TUqq2zxA&WeVL0HxVTLDgM6z6^DX{g<8N#zqQn+=SBsY;R-SoH&@aD=Z%-QB2feG>S2ZSqxHjO@o!shpxTyi7;v-Pky|zT z1LOssOJoPeexuN{@T=q%?NjK#5BX2i4Jz;4g3ni(V-?sIH93jLOwA1^Cw2srcNV6u z`X-lo{!;y5&m=ZEci2dM`8L+QY6v+Z^rfQP^K=8hAeXdD-Sp$*p~T&aj#{0e#Pp&- za)OJPhcYi;zsRhtu{GOF`14I$$cT^~CGMr6r0*6=>PZKT#QAZZlSzm9*L2F?RIi~| zm}f7f{TXv4oAL5DD84xwxp1Y{_&mAvJAO?9RMOMtenM#y2E8fuQ^02Kb>`R=oF?$h zf^2wVylPHIS7~6+$+m#~Oii{8*mq`gdbw^EQA4R@G~LwFI)?h^`O#dext2BR)rBbM zh_aJxOAF`}Xxco1GCFPu^N1m9J4PPdGOe{}a4eU;KM`%t|TO*i2N_ zSl%*&yk$QhPw7*W3zeK3LBEpk-t$6LghH6wYhOjIs;ZE0^Lv&lzP%w3pIfF~Yjx?Y z1S{qBa(|R~JpFaH9;0*y2k+{Bc2b=)rN=1OXYACQp&N(zb-F}h|I7wvyO$rYkr|(7 zFB&lEJ_WJ4wPyTL#kz7nH(iJ2Y1{~+fDhAgm7#c5E+X#9h!ZSBaf?vm^^oU~s;MAbN|f3g6{o_S zP_B=JFJf(W1gTZL)8EV`)9}pC5S=TcD1AdVMd=krB@{*_6h5-xNx^J|9fxeLt9VKRLR|o;_Oy#lBScIVnQM0toD`26jIv zwY7oFiutxs@dJNd{Eb#v8z#GYofN3-*Y-|0aVm|+bTT!i{*z_mSExQ60=qnz(9!@+ zK(fEmuaVjx2?_&9{o+%E*Y}bwX`*@dRN(cU)Q&AQx`mu<#Vu*Pp6Lo!G(C#gS!FoU zX2a7tgr^y2_@G(iHbU<2*pPdA8o6nvY4az2KQckotMpKkh+?7{%tX5lHOE5oi5kf# z3X=cnQ%=V~i$STu4OWLiz&rD3l+SovC#{a5^&l56Hb$_YS-ElYHz^ zf1!m;wt9mpit6@rV-SbEF$lf{aeV%>jXhbi!_a_MA}M-J@z13GyV>u-))Q1&P%6b`hmdRou1-(QLmW-bxd7b&1;*5m#5s z=X^NE;?)sFb@9PBUP>3b zPoc?Ng&~jDct*}u%q!<>rWRniL?B_}7f};wKHpH&J0D6s7zriH)x-{RR3Pm5iwR># zJ{-acV`|%u=cZb3AQJ27^%yq>lebe_2(Q;nY*ODpPM@PLDogP^y%3Od{fu1JVa1v} zFSG^E?w^({_&r|iYzsCY$u^5GDGoH6i{jJ>uB*ug>GechH}-nGS?WWVx_YhpOYZ8R zOMTc!x2a!auB)YB)wnk3+^H_)2B|lLH|Qq+RH&kL-fwAsig(q~yzWxtd-Hj2`#`#7 zKVx_LMf2=yQ<7!>;Skzvemk3z3{WX-Hr~cmV@)R}qdZG%yo5=@HT@oVQ%Fa`tE9n9?QivQ@+MA*Nrqq9@&5E7# z{^TjzOf&WrwW-x?QI}i8&P(d!phfX5fn7ZqqAf9qbJng$Mgv67=1BEjQg)>Ez+Vr5k2@ro z5=;cfDmAC7L!gD#~`KdehD`>ddQV#ZB$PkBE7Fyp3Ns6jKz)!*Hzrhjyz zaP)a}ouq7DZM6~o*lJhVMoKl&nFivV5|4Tqxn_G!?$)z~S_(Y%bteL?3x6qftf}%^ zJ?m~Oro(N-W{jliU2R|i-deo?URjZ$zvZF;kS^ttCqo~PjXH(ICXvyE&8gvTYicj~ ziNSHG-A-%7j$-~LVzjU#x{3YYcR1VwO|OF!vemP7ZdCuKjin6pgOHs z(I4wrP`!1N5>(sK6nqZ#B%ywQI=~dKjfCR0HKBNoLc*E3$VW;*>6;8=TG>;Rt5ap4 zb5i~+>9&+lky`dSG9A<37t;4c`|(eZKf0QXnCnLqXtt!T9nB@D*`syCDy^qLSzICJ zJS9|R5YfQ+!<~1{6siP?Pcg!jJhXqoSUP6Lv+xZVLwDpZxQ)M4#4q*qgKS;5bLOpq z(t_E!AyF)u4YXG|NUHhUuckkNv4x(e|B3ErmvlXOdFl*pUyc4?>|BTE>1BZHea6yY z;<{AdXK3w16fhOJJ=T{>(f5kJ$M09K>d&7c z*jz{b>3)ZY+8-Yoe5lI7w}rMCsTJ1PsUPqi^RBLnf5so5>*#MY8(Z@$)O4178;)b} zwDrNpw){Xvp=Sw|u!SG;NO7=QjKA?*zh@y;Hv}KL%h7mVefh1>PQ%osJ7^{+WSNNv zl%+GH)8Hvg&JB&t>+mf6KJJs6t)$--s%WaeE|{!z@i|fz9dmOa`mA#{6U%p@$L`Co z8{Zlgs@PFq)L4-{cLLnw{^DkHImREWUNm=j`V?h`G@_I-2a|32FP|J}+U+3pXT@IXFXjpP#@Qau%3)c@EW(~>@j{Am&h zG82;`DD&b{VOwL1Nj12RlITKWTDTr|o*OoI8S=69RKe>wK^o~Qq;-HyrOt0?`BypJWR1u-~=KTXbzK%z~%AkDG) ze$S7aQlEN&t8SRorRuqiZdP~9E%r+Rj>5mWABXGmllPIS)|dUb2VZ}vznc1K&%!a7 zh#Da|^dSnSkInTg`lL)W^`Jc9dFDEOX=_X_J$=DpwQDS_zs?$Q(d(EUxj?5I#GI>B zQyyTg;|urv71gC-syRm>E_GxqPOBzy`KU?dyoqi76rI?}y}i2pYpE>@-I+oy4DP%$ zgw+fib%Ru%h7*odLtB48cZ29Qlhbl_N5v2_duyvx4dCIeAx`Iwk)kq3pPBr?{jH>2 zyjjdb@?bFu$>Y1!f4i@QuZ869Nsd2qz1#8UYzbT1{C}TN)BEl9x|LfO{oV9>A{IbiV2OKsFcKQo@Fg5H!j{u zJ|wgF&U~}^e0J*jPvBZ9Un|13Wwe?MA8q_*>=!c@L>>Cb$rD3xPf`VC(y zO`ZO}zOIaT`?oH&@N|(L%HMlv(_!TEnGmv$;Pz zHUIlCO7j)o%>BN&Pm{wo8E(o53#jcM8_uWx2=Hb5k+>PoMT7?hVkkhJ=PN?T`u>l7 zq+4uI_|u-9WBz{+lHIvxpK9&9Q=h)Ufo)7L+FR{(48C3+_ACrlpe5 zeeDZX;3$q`Aw?>ls(Q*mSzmu!sAB8fiK(g6z|MkP9Fv6TfoN$JIb*8{U=uyoYF1pD z+m`x44V+YeQZV}mkHXY)!qfv{Fcw=FI;|)=#?b=9Dx6ae`o`5mW8^8~XS(X*TNHvA?0zCeOkiF!gB>O3zs4Pk-Y3teEW%C5F2Gb|_C?S&ymz3TxKw zSrnnHg*Z2c3njnYKPBmYlMQJ;?0{O^)ucvbQO8;(Hg}U}?R_+>JMD>$dFMJsXwQFJ zG2MQv&tjq@`9M~9(HowpNfBIo%~!J2AoG0Hr#;5_4eI`2v6|XR=?9Fi`RHi3(cgc2 zuDXYUQpvBmPJ8Ze`v=cGP2`AiUBdOs)1GL%{d(X-2c_s#9D3ZVEQi<7yTd&Dp|Wa@ zd(p6FFWI0`K&D$K?FB0?&Wmfa*;Aw@cHBiTB)87fNJvv4LMyfn6sWLitjS@2E*pwk zV-kme@NPn~Rre2!L zP<*V~c7u(7N~Zh;pOag(o%Y##!@S`e&~HXm*ZrYHuui?AU?{ve5u#9WxQ~|3DNPY;16rACz&{FjCsF!YG z$hX=I>4Va)fgbt^l$s3V*# zSc9`VTzFi~G7|Vb8dg@}%Mj$K`@)GS%Eb84c zre+iM_rb^F_0+kPk56#D@5s1RsV;rnUb@SmT+bcEoEvEMx_6GUVyZ5R+DIo*=(g0{ zN|^v%GDNNHCTfhTzI>_AQ`AZy?$G^)H*?lGbw`aH@AbqwJTu?L>V{DExq7r@B=RP6 zWrR=Z0bCz7fO?)D^Om3|bqRHzEjXp;kgJDq|D`!lTg#GDy;#HqHN;3ggrSGX3pTbC zrjzHRn+KW65L5w-G@aC11$6*#P%K$+B^k-m=tMN2F#;%1vHQ{c;EAEoNYcHK_mk$6 zYXhopyUb?Bc9+@T@)u?!S^Wx;chCEMFge|YP9DS$l6j1*&fVcet9t4-b?0p~u2cOJ zgOqY|RWd|~RUKAWOBDE(mqB^Od#Fx^epu>HxcZ5qdR_?mO8xOb68I44SCee_%xr@+ zTw+%2f80yeBoumQno|-lET^Y*rvCAZka(tm#jN;n-Y+SrQpAyE5_)w3Pf-9a!{wPB z>h3-I-N$S?wq1X3x=QQsR|PZm_esGF{WaZhKC`ljydD%gOS*T{;n_-^9sN$#=>AlD zUp5(t$uQECmOG?`A(Z?F*Oa8|`E;vXF0Izrkkp-+N?oHiB=5=&CZ~}(lKSpcFr9E> zbGm}t=00DTc3q|(d!KU_pTjXEBvHCZ zv!^=I9-U{}kv=kMr)0NLp2N^9zp&+2r`1?7E6c&BAtPvyA zLTy=|zdn^{9g2S^lIp$@#~CCiW_f0A49?zqo!NLa7vWi@OwOg5 z)0d6v3l0vE;^fG59CJ{ZKE}X1JvV*2!SPSg)PD9sHe3if1<<`yAKt=F@%L|GXLxLY z-|zm6V4D>`hyMtiO$`r z3sg8g$wPF^M&ie${@)NmZ!-i+kdPPUe%cjNn*Vgl8u^aTIQ7{&bxH#qeXPG99wySSvz3){{Tk{8K%TGepm>?s z!_42Mu zX3!{)QQyi?vh0q>{%&d_bT&UVYpByfpD0M0nmLpaP$Arb>(eCHH3=j)?>uJteeA{le(rNosTTFNLO9c;4`gpt(}#TI>L*PqAFoM$=LUNH zbQ4b5wO{-GEho=?@|sE!1BIz>z+jTvl&rZ|n~e>*m5=2K7oTjN_Isj}iim})*|s0O zcq!9iXIlMlwPqj@1QY(PhpQ2&2u8?O%{0OnFS{+-`)fVC6bD`qX zs28S=9>JvRi{Yf}<0eNtwkcrw`*(3uVdueg4_fZMz9qyVRV)9F_DQ74N73g?mxfsM z`ShhBLZ2tTI0${BE%c`MJkqq#r}CAlPwqi#oLgTDpmS>{k;)|~{qBKXF- z7wwqq8QtWMXZhnenCkv}TRl(zOzd3++p!_8NBVBAxv2lKN6q5i#`9To=}ewKAuQV@ z{+PJy<8i0y+=tSd)6xui9{Y63VL>I_(~{%x5aI{Puk?qK-^jQ65hdNDLy1<3ByCMi zr$ivI4u(D-VzLK&`e*^8mSm(MMP5ZB*LO3w0E)AwuXdv(2Y zbWpxT%DP`mR{itp zA9K0-r+TsaXL*BkRHasb>iaBG;YZH#)da{xR~<^0zl<1c?+f|^JXb)XOogxlp7XoKAfYjS5arXS!BbNEl?u5caq1LwTRNa zLOx~6(TOuNd}LD1SmaP6(J2fi3uqJ?f}V06_7wGmXCI)07Ti9%;{G`va+}T_uuqk_ z8l#gvx^cU*$hy>p?I@>KKfA6`HcCqUccwSsi77iQLZ>yjwg>1wb!9iQysA90_tm$^ z2|s0msSi8U7%ep5jQ?;{Av??)@a3udA{)r$^TgWJbG>+fF@E!*#5>lkz9Mss5>^QAH6GqFSMWzb?Jf{qS;eKr=u+4ACwu{t1eRYxe}c;=0&yCb2RQj z^?({Xc2WIK>s(?Db%cK2Oosqr>9J$#yD{uXN)MWv%fvKdvqw?X4oCSiQa*yH-R)=%O*F@imqo|t^4~ERv+#17*LB>jAa+o#>=M0eOK^630doH$ zo3Od`>ZQDyuc?dV1{(iL7AEF(Ev92+sGq@Fav>CuZ|IPE!)xltXp{QzHm&QV>{RS6 z^=z4sK(vq6H*^jU6UFNH_Y!h>j5&lOdw3_*e0F+@wyIyws4+GJ!Hii%2r;t%cVe3q z7R6$|0-Av9&web~>sER${muJ{y08ngQG4;Yx>EME(gEngeiM`z-D^6rCH-ocE}BS> zz**hXOqi@TJl5kWQX3pocoCtKQUr}Wv01*7Ojt#aAi+_*ND5kh0vmy7Jp_TztABiL!TznLv))%4biNZBJ>t_hE3<6$_yYBZ_~kQqUg+-+kf)+DK)&^A z^)HxR5g1<)CxWOC+|FNp5Tn{tv`{?z(i^pCjr8YP2Lp`!M)}gW09CsS*7w-@7b|}M z-TomKzrXLuApG7c-sbLOA#$>BHy6F?d3x@(sBz2<74Iu_n z@4)U|VE3_2W^+%D5UJ9Na6>PN1z$dH%j4U&Fp~#&rdtyDG2buz;WWLrNej~6y0`iG-tOJ;CUYnt}s{Om3Nk}kl88?->J6zBugb)fyj+exQDY0Ff;`*bjCb9kKMoA;ghhHHjBQhtE}CF)B5FA&QOW z`~zQFCL>3O1#uzL<4d&4xPf^LtwoIrHHOfyO3TBo~A7xI_?7Y}Hrp*5fL3#_k|D+LP(H)+8q&huvA-FbA+q4V^X5kpStWdUo|5C3`IhGB#_ zL;v;spcpp)ytN)pH_@C&&JVVvZ{TIa{^cYu$%asbL{Fq&UX91S1?OqA(v$rpkJ`aB zL!gf41tlpXcu#vY$8e*TZQHD>#?Nut<+Q<&kx0gnO@#XRjH`tNgu7%|7qF!O7;2 z>8>Z^R^XqrPk(3i%al-`Fsc&Kh{gOsd9hn4hU zQy(`I+bp#56ukwQ^kEY_M5!7&6az#@43$-p+Ucdwr2IPiut}rdwb2j(Zdm78tSWZW zwpXkY(k@*q%&GY-#vb(|{u0uA3!YFf->*05dA?!zva|fcVUL^@IH)hKc|ErdRO*ZNv^#Bnp(j-7Ks(HBpG_OJaqM0 z8*-3s71^#}@yT}v-|__n?=*ki^nvD=O2)oI6J76_ne)a8%o9}5qOG+Jcs{PguQ#um zQNrw}V;*xJR)d6`2gA;-m>}WK&?pT|`#{(=Y~}~N@S*q1hcRLLz@sh(+)K%N!S~bp>(BNM=C4o+Y_~jIh?c)yNEF#;E_%oF z^b0xA#zy>u8YWb{-;CGghKsk;3%S)UWlgMO6*^v*ABs09J+`h}>9VB8R+1WPk{VmR z942Rh8ikZv=(9!Ibx~v2YPJ3<+O4{;6k6>#D;!>MOE~Geg#w<*yl+EI{gG&gq>xfu zIR{~x+TA?T5hE@Vy1QT;`w`6b=J^O2U+=|{%-|ued}0lx9+NUl$D|f?LPv(F9qWd9 z?x#*~0anZouy4Xk)*a1>l*46!AJpoTdIn9HL6gj&NzY&gsFCzSrGo1@^sXv=x?6wkGe%VbJun;d^iU(b!^^SvkCm#y_1jRqI)Wz7i zEKkuXUWq3{%6F8k$L*|6N464eo@9-kBoOXX*WaNV;dnX9Kr&p73OpZBmPx^UrTt!u zmoFw>;Aew9;$BTOSFoDYc!8Xer!0ub5fJ4t=#18zp_q5!%?1G_L3XF2?_;8%skc22 zPI>UOevWKPvAoq&K0o;})JVJNwLNTkf;K%xdzs2vac3gE79IQ|Tll`?`d&-`>@sb>v+8*?x}`4~tLC{E^HK-;pLaDLFJYt2hdE}}gl-sQ(I01zWn77zFX7FNTWTUxX_7foxeF zEDLWQd7&cBtV;p7*1BRYACf?taaes5++toI0sK9Jm8;n@quh8rzPT5 zP00yrF|=1+mjQ#!>pBmXLQ6OY{uMjPa_ntliFc|mWn zHQ@gD(I3S{pQ*a=zsmjBi4Q}Z3F>>FNP&~g{fVE8|KgAD+4%qV%lW@8w+x3AHm>v0 zsT4{K97gxYW1+-3&(m2{9T$%nq2lut#-PL9>0qOHL-$|sQLDet)$-rxBm8%@DZcB5 zEMfC?1l;lcO537_mz4ut)o8gsf562WiSI1&)u>;lCS9NFrGz(%8m+@6CBWd-EDAec zrQzL*IhDnUO;JHuK^)$JZZkP9h}-f*$-E%(wbh}dn=srMw^YfOAh{FF<~MUpXMbpR zGx%)*e4lxJgp$34U+l2%7ET6~Yr>_)=Io6H#3OwU;ey05zyO)?5exCehy=*{c9MPs zm+isheG0Jy!iKle+m6z28_7A6#o8M=+m6HE7I~L>pSs~N%brLp`=nWujID=ToE^Q~ z$u-i(A~EtNJ(VKnpuRN0qvC_kIrQBj4$ILJAQw%wIIz7TUwQ8&NiCxVz!w_b8%(tO zMO3~=zYtr8gT@mb^XYd$JhATg=wyoHPV^Wv4&sORdnc>UKPJp?;n~FCk$DZX zE@KwhOe4nN$2MZ4h{@2o(?&gpAU}NUG=@w%@KmX%=sdG?Z-|{#p${F*Vbt4CF?1v6 z$?xi;=gMevV>|HdI3!#B-VtCv;;r}5W=1-(=YEmq?O@gzcoE%ss@H<0`ppv|#t}P- zktl{hmhGNiePx3~c-KK5-@s0g!39wat}&{z~tR zj#zUX>TRTNYO>^S0;E7FuvgLKs>lw+jMP5|0;C&|Y$}zYN_6<6$4NyiS`RxY_XKOs zn;`~D=;I}t#VPPngPm-Vx1ovm9EV_5!s8Nc@Iid#?W%`kxKmB>ASP?V3}7dnLS|nt zLlD8DZj$0q;xRccW`LeFgDjJH^h)HyX#tdl-IRfv9*X?81Py{{%Z9X*Cy`qZ0y#eNNt21Pc{F$=MkY%U9s!U58R z8NHl;jWlIQclu{HV7wLsN5?GY7raBXPDBm3n5R21Ikd zPB+rYCrQ`*uyY6DKp`%bRfe4#X10S^oXAgxNYIX%93A3ojJ;@ zqgd1_W+`b$!YfBHDxx9e&po493dl`;Z|9eIaVrJlqGL86WvcHN-;OXAg@A4-GcH8k za_N?Htf$7#(3dyJ8OumZZj4Ab_Eurz+fc*kg^WEdKokTY4nXQJ^y>i7E^&H+Kfehq zq7k}r+dA4T65yYafG%3 zpf)I!=woS$P0m-<95#81D0_GOGQLJ?Y;?qLQcP^8F{3pWiYHP-99o^FZWJqE#+sNU zAza9u-BE&Pb`kpeS#gcQgHJ4lLOP#JyHoN~;_q9pDdOYmiaEQffS_yhV%?a+-gdBh z8_gM#5@*Aqx0w`Z9JR!bo7yC*1t^2V+MvllS2t?lVF6RFP>M!%H#5pLBH|H+?z9ZzE z2t#80qkl_u*=*qPM2ex<$gWWShh`vdmO~SJH$M zoxv&8*BL){fNiZ@V=VCD!3_>H-8?qnA_{Qdn8q#&odRy^ZvmspMoN zeGv5t|HK+UlxIn6m;-55@+5_!d&NflkcJ4(-dmzZIK~Rb2Bi3tQ9YI1ndH$SLmrA@ zz*mOZL&fGLSfu z;+I8Q^o&^_j1Ir;i0E+nU`%XWcp~d{Xc|Jag(Wr%H$pnEE8CuLLa3Fm-Nlh5KrQ@I z2pupFpM91-sGju>Q7_mtm15mW=KTEd5M@TX|KKUwfY(NI{`oKzv!RK@nQ@UP@jcQd zGOvz*-lrpxvBQWRoZ5}M)=R|mZtI~I&I=*<8o=A=@Ui&O>v~EDbqo1I9t92d((Ih+ zIUxMul;L!k@^}wVLV`@)_!?1yY38un-Iu-D54jT^-rU3QP3UOD^L!z%QC%Q~ZCIiw zBMQ4jeN|XcX4jSL_?E-4`)K|AJ>WCc%a8A}zkC<$P*L~1E<+THFVGX@e0j+)dVU^{ z(JgVEF|M8=4!zXe9#KqtUlZ5=2e0u<2+oII8)9ktdtPIK{(+jvmv-T1V@&gF0vgEt z|9*`Yw6z3}S9zj)=pV%WXZQ@sUO^Us4@gUiE0hG0mp_%W2ZlX{;i8mL#m?b()YVZn zeD%X#Kbu=ovfYfK<9WuUvK!;Oc0!SeHhX45+>+A;cR}7)QF@MePUrawM7evP zZrC8&N5C_)9c08pJ9-eosC)#YNOV8Jh8x2!LW(TMOdDnMUO0pqd0jV6C2zMl;26=! zn;P9NnDIlpk{!)eCA$jmkF`GuFhW80@d5gf{8Y`8_Om6YPkOpseSF7 zKoZTl^$_+9FydqmMHu5~Hw}JkH$V=@vO=&Sha}QY(_?R|PYAG?LzOvi9Awh%IjAv1 zn{h1%1v_&UQiOL5MjDvnPjH{twMkQbQe6ll%s`XLmQ;t?2Z?LA{$P*3{-eB9BkXj1 zj~!;VGBkv*7T|_;Y#)R~6aY1;=kZLCsk5EldG>%Nju;2`7nI3e8@@Q=IE$LOSQ-0nZ@XQ>4sEg^5Oup#Qavmb`A!zt-<=Y<5%%Oki;?HcHkH102I7Cor0hF~o zpp?nTYeb8b>7vBk{Gtqmn&MOBb{pYfIZ_`>62q$P3x2I{P&gg$wE<6>ju*&Ke(bkS!>fL zYyN^hNuFEr;65)N+|}g41s9#U4}rY3c2_R6_S^OiaoAJR=G!#Qe^^RdM_ENU>8enO z`#DzL4A(PLIS-?tom5V`$Ja!rwJY@9>F&XmO%JFNp|IIt>uNvHp|v7>`DO~YNzX`1!Eddd~s z#(qKYL`w3Co$wSL!L?eO{|$apQieN}o<`c!hO|rg70Fjd(7D58g}R_g;^Ich*Z`&6 zs2LYz(ToeSut+_y+eZw}Pa=v9^H%vK)}tLQP%I7iKS8ytA{Synd`|mG+Pq5|WiYV~ znnr+qzmbic6k(JgF1iQ1v{Xv~8hv+wbBvY3M^KN@cwP!a1<3guKwcaNw`TZeX!)e< zfFiX`W!mvvLJl|IKd}Q%fhDWniV|qXPUTplms*&BodA2mUjRuOL}v*;T}qCtb?($nSM-rqw_i#qs~^10^K4ESFo;n{8FfYlH5T&uv^V+VqqE)n?<(~YrnjXH-B?}Mj~d~N`GmR^A0 z%7!^)qpf$#vM zN-n1DQg&AvP5ovKZOI^}`G_(~n@kY9NrFwVznIH}e02a(9WA9*!9M5|oZQAM)If&| zznP7vD4gPBo@GTe+RC7Rzn8)goOLQ=Y$d-asLRWI+zZ!9i#VXYE_TJgsPxE&qtGM2 zaa8okeAXk^X?<~x))!Z4eQ~9BOs>$5$z|Fxxy09_b;^^XQ#!Kfuht>g!81v^T(#(w zrs$NFtWy?d*>prq1`0`nHeA z`x;c2B+W3wzRG&|DygBSO>3;NrF;$aPx@{NCi8Al2yqLYyw%*3qpdPZ_E#F?CJLle zaG%KkjN}{>eRL7qg{6b6_-=)N~C)T7>fjlwt?z?ZYoM0}tq&D5N zp05nN%oBN^BfBa5h{BG1R@!1vCC-Ua+bvUS4^Z|}fHi=~2N<}3vjbSuLD-58Xgw{N z0K_a~DA8zD&?@IhGo}!d`Z%fw?48PWCF;j&0caPSvPOYdZ$PVfOvc^B;NFUO9^aiJ z#~VDbk_p#JxpGsv3MJCcdPS^{d$z9+aOuby0_an{T+J3CZwZu|0L#B-R2cqFLzyNE zO{(lAPMSeI|DnR3sX z`K6I_?E0jIdASBtg7(lF_x5Vtv>Xh(TFUkI!!wwxc#~IVb+@5iZ(covqUDa#me-1Un@);-tqGqpzDz$i$q#txri6$ zlK+CkQY{+AjPcX93~^*WADbbiZqg*kdyN&6Jfu{7Q;cSu2`Rj#5aF9P$8voNE3#dv@Q5fL9% z3BqiW(~)BEmNR($0@605bkf{T=?a_Eo#J^p+{rQvR?0jS-g)ynplVlg>X5gD^u5Sg z=Ph?<(Rm9E_!=En+X=gXU5=x^#3S_3 z3g0Axq?{BEWA2mvKg=jbL3pLjRw2F_Im9bvWeyNlrYEsE(h+kBDS!m?;q$K|eHJBV zv)jfoE@3TZFQ?v(qiu@pldwE3dN0E>)LSKv)L}1fB9;Cm!@k<=-v&q4ziy(UD8$vr z{Ad%qozXDtI7-VTY#uo&N+X zwXgvaJ5OJ>@W54o^j_u{q^-mVPl&n>5Dcxt3mx>`Dj}JJz~K3;&rrIlYqu6gPYV{AVNI_szco7Gv+G~HlBBRmVAR8X36heMAH$o`MvBZ z$uhJrF#Fr5Bun_*l%$J08WeX8Jb%_>Ttl(XXC*XmQiVcfJFI}^1WP02Bpvr=5+pyB z+$Gbw2ds#0dKL^Z|rH>F?f4LP@}H$A?J+YT!fD8k9! z6t7R?(>3jBd`kXe@cs=-Bd!&!Y=VRJ9G#a(?P$0tqQ&QreS{C! zq@PGhiJY@KKQv2foOcF%8>lhsL6XLD-V*OT*xCW;K9XQeK;Hz_axwPDtKUCE+~Lv~ zqmr!*mS41;OK>|D6BA!tEsHeh8IgB!*9yK1dp^fkk83z*OcI#cYH48C$9nv{6pt_( zQ}QoabZ(NOu&-$SWcam*=mS;coF$Y|1k>NkbRvdSNvWhpL^jesPURZ6JW_YyX0L)d zsMg&CE4FAe$O>H*n-wKpWi14$D&+ku^U_vBIR^$2Dib-9nesA?w}rjOY&0@5Qjmj^ zf7A9|X@L845aePVObdoKeL~!T#QkS00h5eCsydNqGH*s6bScztYy;dl&xK1IBYOip z&j6=k9_5nlNRK$%rM@#l(MW2Du>ugl&Q}B4n2^WI;j&&HInO6~dK<#Yyb2U;P+I!y zQ`xW~r983|o;%vYh5R6eD6L$s{m` z`0p_OtM*&Rfj{vlj$^inhZ!;3>;EK$j6?r4#KB3eUe^xxaw3Rk?wGo z`>hnfy^FBP2DOeLI$A`@WbIbQ^HsdANZJkVz0F$6QJ%FY#_sQdu0nQ!6PR1red2X{ z8UAE=ki$?rEN5VK6d$84rXnhX-Y=fr4YEXdK<4<|lIEnqYryV}p;)ViCUqUYK>QBrEwuu$~G*07BFC@cxj-a0PR1I~_M%$fL6n2dg!(DmAfFF1tC zh?tH#sNqjDw~H(hF&AS?49NEqjKC*kE!%Cb@HeoI)iO^Yw|lJGu}~V@HKN0nV$q`& ze8`83zkpnynPHz*!dc0k540|~VDEL`2Dm>@@3qHHmiSib$*+B>ilNct|8qNB z`M=mcgv<7Rc1B$JP1=>;rCs?w+7v#iO<_ltn8HSun8JlwVhVGbE2lEkDAnT1uMt!D zIq5{STwMA~*%YpYEC0UC{E%P0oVH)KJbR`5kUBB0n+D4dS@y9j<%fv*QfM<@uIST8 zoO1dfhB&lyA3|UfUx1e%od5HDVYQeyR>nw&&KSx4LuSTEm(AYM`6BL$soYJ#DA+ii z%p6J$S)kO1SCmj80|v>h+o8EoXN1@}X!p6=p$Q~9!kO`%(7*iD+FSi|P|`NuhOWTz zrq~%c!Jp))wy;#7;6+yI+XSuN7Y8oFfmW^v%ptO~Tzk3V71ahv9-%x4sA}^_7#Lra zVz5)((}5gn`!O?q#X)|rO!o}?=30A6@3kh%xh!5t8q$S($zGvXny6;`BYVC%8RA2p zws)RrFGZY@!pffMY?@A5E@ctJd0x^!oy6mwhzkeeAXQ|(#~?vnj^iO=E;2oMhyKO)Wnc) zo>a?4hko!9;`H0335TDv%>xv(Zq-HLUPxy$o9Ho4`yI96B~Djpe#w@k0^RdBFNquZ z7ca4smu9#@60<4f8hM9Jw4*#6g%MV1qkGgh^myaM@}n`~<3*`PPWUC({8*EnX=l(li4Q>@{WcqSCT$NjYE3bBu9C zKK$_q0Qu(_@~!EaxJhI26UhaTDI4j~xhApKI7HCQ>G5JmO7Ni-7l@NeZ$B#Hf?2W7 zfzsp0vBDBcDgIKAW`PmSncTQAqeZsDpYB&wJA zFh$O@38Rvq(2WZHTcPvCwo4&H1XP=wwwX}?AqEbS?gBA94HuJdKBm7!ZWW3p0z*!c zZ=*%MK!Y{<9E$RAqFqr@0IP}wrQL=r7fb>aG=Q3kk}s!Xigt|{wt9%;a%xtKi4g!# zfUJ2_TGO=5jW^h1;f*1-VT>z>I|>|%XkF~~4~WR&K4Ox$h|@;lmy>n7OoS=e&rLa_ zLub9fnMepCoDs&r=-LN2z(Pj0^_*EQgdSjnc%i7M22ESSvfTb?gz*AdRXb5YNIh$Y zU-+$1+8oY?>(B&z?6*R|Z~j*JMZFMx*Ke8VH}f6P0B%5$zsp!112K05BpmY&HUM@f zSCKQF!|O)+4UE1<9(|!r?TsK~O zN~6pZV#N~|*3~`6uuK1G#S+nQ^9YeX+c1bV(_l4t>2e!wH(NG3MRk450AzZreCzo- zqMRIz=_ZE?=-w|ouZW)l&Tk;@0)hvHvlGv|(%0b-(l56>P@*+7vj8E=j))Ta4@L*ytq7HA?!| z9}w`b@_5I>gA*Y8Vu{!nDNd`19ZfeReO+nxN>3YTI-iRfdFUD`xby6buC(S#DD*0h{I<7v`7KL5LvZ^UeU>bDuNggv3EIAIF4&o zqeFMU06}>G)*eX%ZJ^q1IkMVXZ6?o6VspA0buqw~FpMO)slB-W1yHFVMJ3(x0Kci5 z+Wq=D8FS23zAe^CSrg(!S)bh|o2`78Qftg!WRn(fGej>j1w(5?(VXA$AY7e;ikPH~KdNDs zBQlb|@JlKZ%A+#F5g-30WB2tu5)yo|@$0Q{0!?bKNE1ps z8UEHU_^lnlO+T9&DB*E824}a$fWK^wQcx(io-!+Kjp-y$C9<87g5H`BWad6glFM02 zc(4=nA=8mOQkj$2b(8dhwpup8+JYTLg3He;OSjkvTj*`1?MudIYZXhlXwKcg#*Xfk ztb}wYCllm^kZxWs<&cu8=Ebj8PpgoQZy|B}Gt5n3kc_#+#D~(x>wm2gI3GB6h<`&- zW48Rp{Z^&hXLfD+lLn=IlRQFd&YtQ&eB5qOFMTojUWf=pi~2U-9TAtwoXZ4Ey3A)0>YfoVuP?CI^xp5 zGhXOY#5LOTh;;g`E@uJi*V-W*aToaLdgg=h8n)wY*Kz_@!0z}wNbXC`L8&Un-~%|- zlPEzO)&5J0QBV!*_>NyP>?ugBP>~S_JlPB5NWFBOOkq!E@gR3;(9E`u$I&TZ<=FMF z|8j^!_jjF5HxNDQ?lm#eOu%NrRi!&@KHr8rxcjf7gc(GXdBj2u?r^|P9gWMmzho>M zbNm;qUuYKm+Al=vANd8Zl479b;%L>y0Wb0$v37gM)eau!0y~K}i7IzY#54K{!F`ca z@o&Ppza-1M7kpsZ!zMlh3XudN3^`A2q zg2MvO-eGk1rS+0de&BU(sT4)I*kP-ef5=zF5k~m6dqgpTpW>|Imm$Qzem=w@jQ2I{ zt)zMrQHlP1vDYs(Kb^EqQZE{z^swmrh;@id`hXaZk724CiOnbVy>K-odN^yBt zi_5!4T;9)TxV%^TmP?+ExV-DKGAbfN$(-m)TmIJ*gXDkFse*Js8+AijDs48NlYXXr z+}{dV7}Ui>A7NZd8Rvxo&&U9afSf0vgO}P(fofyuTmlHv#agpDU5pO5siAbSP_pbl zC0z`M4~3HB2Ih=q=8O4AtD;jlDI8LUt`0wCoGEygI?F%nDe4MRqE&2H5UEr>V%P4| zwTdTog<_YuiOERy5-o1y!n9)&?j_vxUITuLs)v&0T;A0dcDCd63{I6&|Bl;7xqlx$ zFU&nXIhvW8;Q#jIVwW(vNZaL;!=y%HPCT94cyjz!H95>oO&ind(vxJ@;f7vqhIh$? zV#lo+vQ~GIJ)SL?WO{NmEzA$Ik_lcmIoD4$d>D)nMYlj*YuBBASn((3>o~KDfn8lmSngy;IH zB;n~b6%AZdx9L<`=^@U|D_Bm;T8<1o`{pz7x7o4dqO47pL<_VpYl2?Z1pBh=YvQy% z&og%;auoB`Q9^1d<)#+m*iu9N>-NzxdY2veNauGvXRCjCZ1D3to|7g&J(=fsd@XOV z^Eru<=&dGpna86O6sDyhB!||*${>h_93jIYmoIB0gTRFKbA}MoCh*QBK zg=SQ68l$;v0e9d*_dLWus7UxG(p2CBZl$$&iuy1=J{m`IAy0C;VvNsZYRy<4mzJC+ z`K-%gSRm7ypz1+G_SUmQy{wlqzo`=z6|VR(z-DMfGT(XVc=#qQ{AD>9C2h%usxRrwrICj z%#mh>+@CE{!%kY8HwGsj^l{XrsCCtFkQJp-A(*A)8PZ^DH|=?13U3-To{QHSKtk2k z1oXycc*RnB@qJW3BA|<0(f|j{BI?=QYRGwi72uE}*?|%T?L$|<5ud|)#-0e;xov0M zid~S3DDOh;5Q=OO@NB7)*zbC_o5af#$$(!h4L^Wx4ueqx2q^D~@ zO3gxuoKRjEB?{g|USeB-!i7lHPHHqRZ3=WoWq?B>k$u7)++K5bTZ|u>#IQ+mW3CuM zB$Phn?IxW@%W&s(WZg2=o#2kCGE50Em|lH`+fg--IVLB^sBwDz++c5zly*Q?BIg^^?ItL{28?6nNK#+p`2rW^D*K856Y`j7}Fi)MIz6V`5 z{8j;;D*)u=9qu+~x6M%KP>;U$G`q;FHaSJrNHHn_ikw5)i-j+T)A)j0k=KwP;JTp5 zSxbPSr243>mq9MGxn_=Fc=-T-w)7YB>X2^BN27STSQm~_{teLp{-T{DoSu9@N2_zS zv+j)L));=(PjviCfv_7d1R~PLQ}TvaH=1d)h`J5;N`Pui^N%HZx0!K-a=Lr`+AYMK zC_pYf3D(5kVn2igwFn1LFoh~s7^BEFh_y<-N#r$~EMsQ@_t@FbP6%crXf{B`K7-~2 zUpxdHt(V44vAvl18I9aHL5%tyEQ8Ac6{^Nc2@yp*;Rld(c5Y}uxY{NSEl>r}BuNLY zOcT~gQLW(NRXqO`a~lM}W0EPnMO>#xC3?asi0o%tiU5CJE~6MagBm05T?RkHPITIk z083;AKAE%IBjm3sUnVY)&n?529$|j&i417LzYf&Q-V|akl(tTZ;8f~)+{*Js5y#Nf zkEC2JSNy#sMD>2TIhtkgVJzMPQj~`O_DABJZ$|d?a&e}m%-QV?v~uoema9)BG~}Qk z?Dj?z+g)#(Y4M4x%|%Wnq3n+OwvBQELGUJsh%W%B@__`igqRGD((+E#VLP zjaz@v}#9L4a$z?To3k~HHn8Cj2Xl(_{g*s+XSx>A>4Yb7E$Jl^lq-Djh>J^ z`se}O%8rxBfNF;<48w7JqztdOVHZFvNVScRYS3iGu6e>I;E_4Iy^i4k7!bBeEw7Kb z);N@#EYm^vh0K_^ja@`@C4)->=`y*8*NGT4IJuG&@FQzjJO(HW7!Bb@4QFJI^zc5X zc!-#k-9||N2vF_u4CWlnb@-fE!aABwH;;b^lQ|$P@Ky2m$0*iJUB(Cil(R$=E8`xeE;_bwX*b*b3M48Kji0O}v{EwrPIzEK>uggpgKh4FCHdQg`om7+vX5 zNF7+y91FmZO0~!Zm_@e=4xuW)3)&$c$3YRAZ1fNa5dKRRHc=|+2Zjh`Kb(K#7U&$nP)*5>*fr`Bg7~95Ry*m z>AFQSJh*F12{MZjdb(EFP_}5+8-*9gIFe5Qx<;Z_7SQ2S_j512kgrV5Qz>`nsyN0= z<<#xttOx0Ew-Gy+f*)Ukqq+rOq-%4v$g>cFu`wL1x`{c!89|jD0%>W#9gA_hn`?C_ zKgQ)-#2nb+%xL8!+|*Pr)z!nM;N8)jzhBC#Ws7va{48G|ek;$7dkI8yZsB=%q5t7h zKDkb_*{yJ2fW|##x5P%FWr-D|?dO-PB1H*W!fGp)zXVc@~W?o5L@ z26#~|iMQ+tlRF+qcc_6w3}8MZf^$@6;oe$CV(ui@ByfZ-aGC+zZe5^`U$HZ3z@B3{ zzH=aOuf@#e6dnoDH#1HO#%<8p7Hd&+n}d^j2nzVQS0C47jM(rLHiS|{j8RQbK|O0W z`#bd+apw$upc^==FS%HwHj>~J3$#;6e zT0gBo0e}}b_#*5(!SR?Q7bzaY5+anC<7)^dX8Gz6W;n@lnW@Qf_lAp`71iBgCQCqZ z)6(&oYZ0EoIa7KIOZLmA=B8n>d=OZ?Y{6nJ!vawo(sZ4>2@W`PlllX+r-75XsS`e8 zQ?IzE695i%wd_S=!lW0i27~=wdpII=(3f$P^ z!;{rc-JtdZ{T2&Oifh`n*yNPYyw&VGGzzG^5ABSM5@`OE#bSI4S+(Tk%Igv-Zn)Hy z)9`_7BVmV`fN!jo3UIk9`YkFtg0t-@Pto?NNf4A|t*vpRFxuN@uCECO|u@ zoh_`bdb1>149dVEF4P!bE{`H0xLc?F;4CbJVz1E$guT-%ZKy~>ANPxafePm;Zb{f8 zU8Qze`4Ut+<=QUk5=g^yr;Z zWPO7asqIMiIj2z996e^)v(OQe&x(!^xC9+xoDa=$477?aM62jh9Op+Zq-UUobO;S} z0u;1l;@1rUp$fZvWo9r!nUR#k0;=>Im$sl@VfKT0GZwYXzbS# zU|+i%NkeFJ?1skzhq1ZNtJ&PE#^%)d80yHnrOm;fD%}?v0iY_5fW@|3RfU%b0lBfm zu-hKfDRb0zf=taFBEPrbr~pCOCio#_5en_}X%}i5|4hUs;c{c>TaUsfq>~V!my@Z@ zWfmu_qeuM+?DD|mpeliUM~V=V8(hy4KGX3mh5(KeilgHfKgxN)9cH2xZ8ys*8Z+Eo%n-jGyrnqMza6pGc3)GapKK zDFXyl2m&ev0ab#4szE?CAfP&^(@Z<-q%doZrRjDH4Rs0abcifyVj3b+xZk27>L<0p z*8k`JE69^wpFJSxpPii!^M?Sp zPspLWkTKV1KD?Efhy-T3*hQcNb40o5|HqlpsM0>kv08g5?@cRQdlRQLYIn+&!q?pC zgT&w#{*@-9j`ql^QNcjWxak$;LjCQQD@U5aU}n zLXx0HXr3+)EFxI!qxVR9Uu-> znZsB|DY2+y>4(%SNZMVP7+I)RxG}(mFUw%1>K=pe7ag;LlN?B%*Q-1E=*q7)IWpAC zRq4yD11jx2^{c$-`|R*@w3Z2ShHl zmz#-j&W4fEh}A+NiqzMUpVG^FHwn=`-BrC-qf#Gm0$YYB`CLc5Zb` zx8U5Ei{Bjr*lSiw4QdvWrVBKeF`H}nuCE460GPT4;w4AQb`_eBYBe! zI8#DxETtpY;;OeD5={8pN7*?#$jO-Q1wSTw0taB0WfVxfx>ujj)eBe(foOnDN-xul;g^BoR3M*_Yw z1*VG*ha=<2diKP|TFu#Q^8hvuR#Cbmw1s89g~DViz7%FKgEsVC3-#PLS$Pcm%-LJVDQsA0(J62zK(Q8N{sB339?oI4X$LfJGhUFQ zfK(nv4emMZ)%Dt4Y0i5SZroa6;pI3BFDWUA0s%x0R{8l&)OG=V{K)kh;D%cx->tLsxFLdz4-+1Uj4nb(D?@@k8=HZL zh%Q2`T4>15jAbxdI0JdprD#@r)5l{k^OdnSfwH?8_ilD^^bTBCY8c*DKLFph|v)MA0{gw_XiAchrx-uE(yl>bT zXYFN-lX)hK!`ShGjI)G(0O#iiVfAiJm(p^&VTh+4pj5jKZq1=PGq9&C#tfDiC)Jgz z-I8MQ?Y+cwp{$`9n0iw#ziBHc5b9-f-@h|@Iz?IHD)=35S32!bvJFL>6ke(DEI^YM z`#sjJX0V=d_6>`FQeTOD(kCe=4qA>h*R&4sze)Qbh;q2~s#j|=YO+Anf_yo&7mYB` z`@d7lN)1;62G+xE+_un*=(N*b20Dk17c4$wUF3dw}TDEBU z5u{ct5Um_2&DFK~EQiCEwP-Ap28uD{XQ{Q4<%Ap)#yhO?H`}Fmp{hjcR<+*N5;v z^l9$-T-qezg6d<;*2G<7O9R4lOYP{yI5>xOIrw3a1B(tCdyzB~>$aMU#*l;~Mqq&J z`=vxr63wf);{#5b+{SqVujzgQ;`DA|Iw2mjOQX~}o)V`>r!+>FOXj-;sSd3kEb*

u8$$6ldN~1#b;E$q<)ijp8FF3Qa@=#pmSP;> zgq>!c?x_2opm6~ADnZ&KH$Rn>V5D%!0y(kPkb${_6CYJgGifG32|ll5VAvYJaFQs6 ze5F_r$4=O?C3QETWxh3xDl7SYR#xFPb98y7Arr0Q8NkEdA(4RsIwF=b<50SL0#lf; z6NhP;Ra~OTO8l@@vpLmb2X0&j=Kyl=H(BtIR37|uM({OyMDQ|tjDJJKz@VmLRUGi| zg2K{918B}JN0+~Ec_dD=nv^AK60Lo$mRGsbww}iIa?dwVm+XPU5SbUc0MhuFn=6tHy33l?#-WpPn*{spIiX;uNl=bfucKK0|FOeGfboq?v7CF$uoZU8u zACyB+&M~zRomKJiBk()m7{7NIO^IUF1WM$Pw3WJmI@X%*=Vg)NhZew|x8_7M&ZJB3 zc5~s1bVzwXvb@s)>7E3V>#|N<3-A`9HUTM)=dG0E0N4IXs)&^vf=P!6?>xZgZ`wCF!Juu`QjZ-Z?8)J%pjqArV`ZoH*k&W+Xmn61Q99GEfwH~%P^;RiIzBU^`Cei3+p8lbQf z5=uJ`;mVy6Q!>fs3_3fBH@Eacidy&;VEE~RCc1GAUzcs=qx_{g(lXfQy-4I;BH7mL zx2@6gH9$Q>V{+FrY`ZAiYoMU`(K9Ww3KkhMyEv)x>Rx0d*71|kevO%i=nm4{gLI%X zl2%~V0W6WCuZVa_k;u+~T`0Bo5h;v9C7U1CZe)!Znuj@{-q%Z7pVg0E;eyts+cGk8 z(V?U}BQ;$5I_u<8VxQEG=`AG6Hl?-sH9QFf-*u9I2ZzIqg&Jxxb~D1^uM7 z@pgFK$R5`>`EtdZPA+-%TdySBEfj#n*k1@2g@Wj2kytn_9!Q#5ADl4#d)&Hp0XXq*>zjfd_&>!5?+hTD|wEF zKD9_&=Irp{2f0y@WIS3qX99B^(7r?x$|DE4*Dyhmfb{S-DT^mJOXL97nURgxZp#%7 z5ZCDAM($n|*)Bx9Kw8Xu#{sw-C34AU=8Eq}zuySKN6!UTj3^7)nU=0-if~O4BubS8 z>nKftgW`vfYpwlnE7^|$Vi42n%>Yaj3dlx>e(NE$X+T?suRkP>7(CIOdmkcSG)cPX zh?x%|Jn^1p_Bd7SFo4!2AbwW?O84Km#1y-XW}pu>Sfk6K*69+obx`#^MQ6p`c9v%I z&X-st?WZYpe+kn;3h$WCFVTG7qLhV>FTrjdvzGsk=f6~c5IZF%N_70c^N%?{!e2w& zIaQnyY^>2mS%{sSmh-SsW5NxUqeJhJ0q)^hpr_ZQFG;73D*PDhCZ=fhHs_Na^%+^* zG>8(y85O+l7B0JpY~}o8+$9-~NX(bbSByddlMe-K7VKQ9v2&k1P{r~j_5oo%7L=kJ z#I{!8ChHYR{50JkKFFDpz0`0hoh7LecZKW;hza!_hMaKrI?=bTuTUi0Z#p+3f@Lkh zFReByxdI2Qxi;yw((z7Idk>pRS_zc`p{{yxh$9WBod_du)Gn$P8#Ky@ps3r_(494s z3;po6E)JtHB&@h#6_qVWBuLZVa;7hG{BX&FVFfxO^ALZEj{kNI_bx%^OdlRwp-Hw% zu=k`cZHeYgtQi9Fi5uC)8qN7^4Wn%jq)QbEXr_>eE+SM*&*K6TgIi+oIr%_{*g7i( ze~zz&&p?O{yH-d6%@v~~c0M45MwfUm(O_xRsRtQJ4?f5@9|PBvp5dE%nc>D*;6!s? z;k(EG?!h4rZc8(C6<-?l9R5mowo>5#1E8u@#zMpDqS^sgBV&4x)ZHa~_hBd+c_dKi zr#x+4OD_E1%5-nTUoUR3I<`k}*vTmx?Pk7jjNr*8SQ0MOEtIf?@#?3HC4jKJU?1-e z#es6R*U&1-)*sr2%hBO4xM(h<+q}KO3Tm0?CnejntpYsUKi>;;NaeDJz%WV z>(~U5N3@?ux6I?}vo4`ra@gxSoMx08rF*w+Rj}1`jIj41OV;qIJ4~^DGWeNV<>e$< zB!kL)xLxF4WRKM{XQj>riH>;cK5QZ6GbxBxXgR^Imkz1`*x0uj%{dXn?sSNlF?2;?jC+CcJMr@6 zf{ri8(Ccuceu}B`jQsi>#`Egi`9$dG&;__0>yXA%OzT`Yx5iTLbMED#>A>v~Gx3DM zdOql!{#gZ&IS6`H7L%{^QZKq>oy>WuiZln|2+>hv?`Jwiz;gKK?&mH#lu{3>n);Uu^`x<31+%Ki_8&{40EE)Nk-N#+xY+ z8~P9T+GzfyfbsTwfiR*BuGeP|MMqT94=5fKy3f~ipReiOYA{*Jugw{Uzc_iRijAEm z3`T4QM`U71Bj^>Oj3~hlA>=F`X81d?Ar9UCiaz5V-LXN0vMxgc4zg#Iggnp_$txr5^|)2Wcc()bQ;@r50Io?Bq`;p(hH&#SH-!|$TLAZ zawv=-O)8K+3FM`^-l5CxVWi6W3{NO>1Po$5v#K#UF@8laXWkfS;-Pd!dde#O%9+j+ z88(pzi*#@yXpD@+2p{o2j?_IN@zwV-jjXv>^7I%b^JSG>pu^Txp$0Azm$=UZV%IcI zcXWs&qlkwiFf{a^qL?5b+>Zk0Uq-b^>;^Hq7`yaYJM0X{y>$L46`67Pap-kC+Y#sQ z8KR}{d%WJ9-g|gV$)ZxvDg0W+_*LR5+RWl{Yp+hV*(>&LJymzM*cC%4f2>wg8IL=g zyT@{UJ{GO-MF@_zIdCHKJu9%;yBpXHJHMC2C*_@d1^u6;jIfOBEfd=H$J| zI0;vG+-wFJR)MvopM4@7&VV=`$U2(RqIH29eKXH1WGVU)eKLLwJ@L*m6*aI9Tbm}k zYk?V+8Z#v2&0Cgz8I=wDdu+Nf=8h=0vs@@K3_jpUz4;-mtOFD{kBYHGN3Nd1v3bC~Y69sv{TKwF` zA)51(h+X*U1PFvfd|K_>aW~es45=A}m0NHjI_9p(5Qi0qb7ESXBc@mrs;Uz<-@qF@79IB@C_jeC*WRT`U2B~`Kjr5b& zVr2R`*|tkP*W2V zcGgEys1|mHrqInw0bV$OLe*g6!9(L41gH5dK3Ho9p!;eHeSe^No|{Ref288mD^sUU z3nOQYPya`GJ}C=POVrF}}q8u*3nex;T0 z{W9WGI9zBivXZk+h>-qxC)(d~+S4q79GcJqsEvl^+kISH_(~c&*4mVmhp0zo?S4cS@_=KhI!t{pk#gTo+2VK{V(6I|!H0 z_Y&y{#eS3T&-wlgrYmGr^jTEu1DJg>4;FkiG@D=FA)06m*vEo2rW0$AA~Tue8cX!+ zhdyzKtvf3NmtOq~*6pF61Jj$fD4E_C` zO!!2@$vdU7zk1uxG^85tWGV)|))2i?UmV~!)x-0_p|NdgkJDTFV1>ab8EKnh=^B1< zrs6>)ZP^4ZRiR%lV$}jJGQrN%mTu%tidO2v@HU;x#EA<#H4PiHe7+28R>%g*x*Bx_ zk6M6xbQ(*n$42*?2i0%&iQ^A%lT5hr_uj!M(t@3UfUM$({1TR%+;D<1;Sdq*aNfko zE)eA#Or0w^Kmgi1$&|QJzjPNA(;2`a>Vu6a{|cmF_3D#Ck8`3z7M2x5_v>6rRnodM zgiLH93mr+&Ein+(2M?f9Z*JGJS04#P)LX@eKE}}F_${Dmy-@CZ65)ZF*du*@+bnZ) z^6jj2vskU>#c>OQ#nXp4bhCr+gg@PgMC|ODa-_eVc(vXsW5X|Tx_!~=@Vpn z8jygh{5FGaMCWv&+?MG!%B{v&Lue zhgH5p{;<+l${$wvD*3}QUp0SN;;Z2g3w?Fach~vm-{K+?RO|w3V4h! zaGO!XZDm{fS_5p78aGfm5%Tb!=tYuImB$#@i1-bS(aYW7Vs0wzj^w?>>BM=yD$sR^u-qm;7UL7cz#U>7XHCzeADN>x=9UcD4WIlB_Am=e}LcL+DJ}F?yWac)@$DK>vMiFx0szo8Gj+upnd{&XmESnj0sImFSS+4M%9cz+chAznKE^(r|@ zLC$iC0L0t*jxIS6Av$a`E<|(IRbk%Y+ZdSV0a4G)@#EyexioZlNn(YoCByysSQSI` zW%lYvhds#e>eir8O9NUzacoI;0DrukEF5PF=#;0vixz&T4d6MH|xtQ2iWN zU6(we8xI-dz;wAv(<=eVf+qr;j4v$tteh~<&La1dZ<|1PpJ^x^wQNLHQdxpy#=<6%bFXh;oLnEF~lc0*Uszysn&!r3MeiXb@fJLx2(~SPYV21cQjPuX{|{AT^LfTq zY5M)JaB%&mNk(yG_GkZb&S3h@Nt=GtH-LW0+*|SYLmUI>n8g3E`F!0*(79Pc(3K$Q zQV?{ZouG|D`mq;S<=JJwldRp6mqhc)YtgN`DGHCiw|S&V7~@Wxv)c-&>O``05t~2~ z=01Ckgprq^I&MXihAmM)h8BFrEv9p0Kw5Ba!i&(huot6Q1LgVH9!2YL-zM(8N_qTT zjX;VLwZ}l_R-`*XcnA%wmm6tQK45fPK#oa4&v0ZE@8|9ZUgmPFYvJI>36kb|uvf|! zXdVGR3$nA9Bhl2mz#u2#E`6e5B#(gOdrDe))T5ESjEyw?)0he|FtUIpMRA8{VA1`^ z(n`7?@0Ft5T@p{?5U~p@b8QRs{m!8UoHBnxqQ|FMVL<= zH^gDfW69uBp2k*6Ijg}>1XBI>)wblC7Uuj>gQmD(V;({z(z01w1@wQ zzDd(?HC!E!61~7DyK%ccYNR>-o(j^z4oEbY4%vw9&>1-+#^c9U#yJ!|xLziRezJn! zb&_OUKN75F`P?k((ESCRaoG9WFbQfyp>!Lu;!cA=U&Bw52=qrjK*FGGigdbPNekEM z8LM>A_zbx})RJHF^M?G3UsO;&TsE2$_h&TWEV~A+NN_lqw1_8#lgWmy>L}9adL^;l>pCw<6@hfU2FlOY zWAbstKPSQX79;n4Ve{yOU-pzaddzEgKt1ceL)5beE(n`11e-4fo38|$uLhg10h_Ob zF+1NO#_Uqz^v?;WUoD(IC7ixTbgORR_+8BDo1mf5`8}03{(kf2{N0R4l)6=yj~;e4 z#N{cn9ZsAINjp0;aXOsL>kd}D>PdbthhEOLC}zANmnJ}2M_16#f{9kMxK({r;=ZxZ z~AuY1&#LpObYL^6f%6aN*bb-y@-r;;%RXm zrZ;?a1Vn^ObD!>&W6AP>HBMPHnaN&)SUMxmp>#p7TqKW%mpa>v8A@>>?_@AE%$%0(t@~NDc0O63&onTJS=pOT_;%Z zN+WN|DkIHT+*9=XzoQ_%QdwVm%{1G~koWTET7!)(h1Np%r_p#&3|17JKSWT=y%N-LsIuwYhF52q&h}vAaRs$&(SArVegpbFH{?TazDg1k)n;NIWP;+M ziI}f}c>R1Z&Gj|@`)#_s?oW1Gn%@r{Hh|xU5(n;_sTBHd(Vr=>8BFXWHeSdD3a*f{ zf5)!FFP`Kl!0(qq&o&brS_{T!=Z51C8R7Ws)Rbh&k8ze&{98RC(aXc}N4lpZU3dCD zBfr(5{&{3=m1pF{=hZ(`m#cs7Ts$pVumv|d6$y`2VlSK=H$;6>VlbF=-=ijx9Zvdg zFq;o&PfM2JR<;6y#mCtYK)J$?qgW^*woqJdcs$&E7}F_wR7@LnIq&Zz?q3~0=RA@J@3ng5>-2Tj06L}KU;~FC(TY9tf#{;|;V^mBwa$Z5 zcm(wRIrj^v}OcRm_^{v9`#Q6GI}G+4yV z19OX=P3dkt2Sragg7ie1$kp^OBSAjqVdGjYl8*P9)>C$XU(p*00lfw8K_Anh%a~U7 zjg>kB4k-|0UivJ1@89T^QlY&d&wt{}G`O%uenG?n5ZmX`^})s_!|IfOu$PbU=&&Yt zW7zp2=9d?CzR7J~D=z-;>Db&CQum1riEd4YX7-7$eUf!;;-(MW+bZ#*F}D78o&o%~ z^3J=6{Z_({vI6By;ly_9{LRFEGjUD{&U=GNSCbhJ_zFW62R+Gu%_VJ{&+wcg%q$dN ziMla$caSvl`S66eEYAqlSWHX$e$4l-Le*ZV_((_%Q;xT$Lh*ITikO;oQ*&GPp^RLE zEu?ohXy)q~xsC-u(si>L=PK)|$$}}0vZ;{8EtulH8A`a#{#<&8mSQ-Eek zTSf1zot|{vuEb4J#00y<)DvN63yriG>prcfh_wWjaH02z+@Rwa)gUzric`#Z$X913 zmhdCaj!DcoCk&8*narfDeChUCm{~ow`NANXs|=D9$w4RR=J&E-A|c3? zKT$rIT&OMfhCU=;y*L0po!h6BvK;{>$UPF)%uN}~P$L~+S+to~9^Jr>)BU;;)^U+Y zd$G2UV@?Xwj2iNnM)CxFJQR5*5BfRb6a@<;@n82#O6M+2gq4Pg(11t{QG>WHAB1cl zA2be=!xzyO>**pqoo_`wX5mP>YBv@pivecR4sm$RP_yfydq|HeEG|OseLF`sv zCw*F35g;w7R1VH4&!WGgN+ekQAZxUS56&Q^=7IYz>z6%pR9YW;^s2%9kJW}5H*@_n z{C6qUC?7dFOMH=RQc@0w5=Vp0Z{~!ZDYJqzd_2j*>k&3CRCeTlK#0d{Q^CYWGhWwY z#v8gr@wzUpx`g5l9iEYOYiSvjC*&E~@O(JYPHsvHGnv!}cq#P(o|?>?u0AiX#pklI z>hp8d4|s}rCa7PqiQh^dr=G#(_*^iL`UV%_vr@yfx1;&6i-b#UHmP9l5Bb`g*+FGp zYekDxlTtCN%jt}BXPX&!`RHq@{;C*yFrn<#HoBSJz0LBC_AHoak#DSyw#zq4j0z^2 zukD(cRvs3CX2gzO-9kO6L7oPqzb?_Nd3rIC})>24}OH$Z(5YH9#l#u_ zEL@B+dU)u0A!lDG&Q%*qxBLv0R0(H>i!TxKql2D$g&HGx_E4yJ889{!=P7A_0_l*s z&=g=*UQZeXb&$Rxqm9cA9J!}(MGx0D?iH8gdlGrx2le7(p+p{;sL>{FG@|n(i`ejk zu}#OYrubMiqu>TwDeV+Qwz`scV=!@^RwDh_&>v)uuM#>?Ii~h8t-oY*ju*3i^c>>u z@w_G+i)_>ONX?KboaLIvZF&KxxKU86G%CWOD0w#^sEA{5%WlLZO42J^uUA&4eehNr zVXwUh&O~mC(~W7C_Hwx^FM+3?PY?t578i?vle@Sf0e7!{Z48mDg;H6UUX2DQPa|?# zGDKH#7YyuQFtMLiWZOGliW{}M>HC;kk-#+8sZY@$kkUTo zf){VVWF{+685CZol@)3TpOu9~P7Va|jdCdX8i;}PG7B(!k`Y$(p$srjq$Oo`qFc$8 zNHksG6n9yHfAcj4fligd>E@E7(X8JY@R=G#xxPE*iq3IG?R7ZkDfJ`U|Q1D(F2hzSil}5RE*XELot2xIm+5 z&l7_6-2@8R`qwBOK*0QVIu}r(a}f;kO`5?!vKp_7%1OT|lD0 zcC_@pTpxVgVIBS5@fRktNhZ>)C&HNov#?uBtqoU5PUd2z^pnq1 zNc<``*dS0jvNUcJgu0|Pp%AN$`n;Tud69NqIwUmR!jan7xaOSp@EkYGiRL_a%Md2) z8mZ_0k=*=tZ@N7CJ9JHN{H-!mI&7OAnl!8Hu}Y}}4*6mO8)MzTyG|P7aUPk}=3yiB z+cbWn3mzd}&Q*G5^CX&o?q*pAFAdoN2X7wYkkCWk%`&l-XqzNPsNwsB&b|R7TdZf; zVD1IGK&F2d(`k@wF}#-k`1>#rBf_%66D?xQ1qVU@lG6Q&%GmBW^Z%)ud;^L!;@ zW*pEi*^F@4$HXL1qkS2k(7OuI7-^GL!-47!Bwcin{}wh$9&E7!%mE&byI|G?=axicW-!L;wM`b_mPzc^z5vje)`AR%**y4fsD(akO~6%6Gr~*c<#I>FdS4_Y zsa&-3D}ngR^Y2Bv-X;dI!P*+etrf`cRnz=XAN9(x*Y5aPnCdK;Q@6q_E7nt;gE8g| z*cqBC%eGCt1=LJ7!UfzJ6X&gp%<26*c8+hJyj4fE8EZ{v1vRIf3C+Xn4{r*h&iZ8)SlaxMLF+L;%+<)zwzWfoiCeL3oUB-+R%Hlz`lr+}0D+*I0QtPuS+ zc7!o$B{$2vfR0Kl9D0*h@a0qJq4&I8<{pgz`Avi_10fz;C7G^T_uGW7Y8ypELQel!4D;^^;W=v1wYht`ry{p z`ry_k@k4cqAF4<%faSGXnZk9w!~ z(q;J(!T6m!Kg9y93* zlIH{d5?<$6?V<@LU7y8u{`|MvbEWRNBb^L%j2uWkIJRpQGz0bX{7}-j$ia{0Sx&8F z$;ap(i9T-8uBb|WWCsp7_fKoTnJEEE?U7TzEe$!l$SbIR ziU*sIWa~#c*IsE%F56@XyxDxcn^Gv9&DvYoMKv_e7V#EtpulG_X1*4wJgctN2`3mR56WJEx7n?E{R7{NIK4RF4g}%kv z%p(Z3TO>eqH%z=1)41Ske>9!(19wFq*vz;@C3kA4!7V@)3f`YT<7|)TKo(DQV)QHD0 zs1;+T!1;}Qnu$Z^W6LVQ3<%|L$1;6~deB5X{MKM%JKZv$)oOl_W>ueFKtwN~G(BYB zfVp|Ra)zLr-^h>5@XgVWl=$#s0TZq9bGV@lt1qI57VGyE4g{1Bx0a`;M2OEL%Oq%r zXd?6?_P62Z&(h6ALl|J5oI2yyP$X)%9U{Qqv}NKM;aAVd08?oun3h2SPEU(i689r= z>iN;-j>~|x1Q>`BR%DFOon?Qp=W+}vzz=I}x0T@BJ*=M_%X7Q;!<(~{w4;Vw3)W3;JNHf7|@*Y!|DuTDaDIyp_W#eTr)3-k0)6# zFgSv>%-4yT*JG}W9ciEfJyu%;wNrYvcc=G8T9>bsPV_x#1li_jhk&KBBVH6gi9LfR>9R3++dyG$Q`58V>ekWdzBmlw=JVM^7zj=#gorI8KnA<$2~?hdDrug z%E0&Ll77~eE%%JWJ(Z*g%84`5GpHG=!OCC;#BEN3Z zTtwG982Z_GSqUG>W^d>k@|DA)ki3^Fc2-5u&eK>S%rUY8x{5V^2luygik*=q;fP{B zWoscz(}~FLq4k9Do@z`QRtP=7E=}V>qnFcm*25SP=Np_cI%8Y+sHMe2JR?C){4CT7 zLOR2X_{YHHYoQ=fG_RN5Az9lnuH;M&Pjt+8vk>e#g4)V_^s6pNXLTEMP50VNrK4%$a{WDM7J<@x4j51cQ$JVj>s>N93qYt3{{#?XeIY39&8=slN^z4_63S>DQNM*%wFo zj<@>+3rh7nu#|So-OSbWM>Mfg)eo%_?vQf5^CdiOECJc5Rpbq=;!L~PMf!xMzrE~c zj-dt3F?O8e46VqUSM>~z!!#{er%5luUI-4ie&iz8>P5oN8L*9O2W6aVd@Jnh zWX)KXXz9Ou7%|c>L>3w_`OJ1d?FCY2_3cSclu}os?e52ON$)No4hw9qNR(^97dPb-}gJgs(0@U#XB;W}R( z{wgto2_9GOLp@WH?wR5E?CxnvAD45-ztt5?=6#O>rPGqGnFyAe&b^3{hMg@4 zlOili0ld)c{sJ8vy;5LQ2Sjx+lxi%Aw1Y|4=WH=Uiheo~w#m|wP1j@{zKdAb3N}bM z^Al!#1-KHzG5Q3%q)XzC0bil%+<@Q`t*H%R%VcK zF%Pvte_xuF8Ms|8(+DLCbkwytq^3DPhwpz*qK8znKw%)h{S_UYrjW6E7noKc6T`Hc62+V%>ofSi zm-Tb`JngvtUYRAoXQ3vPwz+whx+~~hZ%SO#z9U8ac(JMDnl?lz$7}QcDd^lW#kR?$ z^ap1*7f`K)sl$lzWzyevhR;y1ztNP4;Z%WA4Nv=HrbPRKvsV~b{gOf z*%tnDl`h|lDKE~pAs|(knS^zG!$_0XBp9dOJwXppF4n;FS7pY!8*=!116_Bv>R5Lj zu?PAZpoVGOJ1CTBGK*Wo#n_&j9F7P^@O*2Kuh!yQvwT~Q7DR3GjoG07_B?)Tmv5`_ zn+}sUsdpfF>7;MW4CGRiT&hlA>X1v3^rbGjRFl5cEthK3mwMz)S z)0fEVpC%kZE|HiCB{s;nTo*sHIQ@(vmzJh4<;$hz=}U!j>ACc!BDwT@`ckP}TAjXB zE|=D(FICE=rt~FKE_I|YRlBg3Ew;5p1@)ybt)`ci{jI+?yS z-$fzm_3~{oZfKEjOXc>y^zF+vln}}82p4x!rp$A=x&&N9EDoS7KkxQj~$xKN2zPQ&M8S@ne zi#yGcD}d07l;|Tu@$@UV$PX1?ppOt;#mDI*O8-Xk*}n9*LH^E{zepPx$zcKdyHx%z zm%q>H`{eIx`Ae8W>Q;FUD-OhQg0%W&zLYGYJezN+%&`_TKYiCp7yoL~uZi6#=jT<+ z4Sh09r3_P@9%gBJ7>D$|X+k*WJQa@B<lg`;R>9A9<0Ez+$#{G(GJ_a3PRjoE$zO-;f3EyB?^0!w0*2&)n`8!|Zq5NH{-y`pb04iPx1r3d36x>3wFS=*BP6fDy>sGpC)SbG2&=7iYA)ixbxKIpbU|bxj!X4^xO3-OJ z(}#Ku#aeBpCv*^pw;o4Wq>xhp`zJu&>2aK9umlz~pK-7a6?t<|*+Vr!SV@;l?mMAl zQXfa0ZU};gE3ipAc#9*2%dKUF60f42AW>)HkcL9DPC?=Fu9L3x?F5CBCPU%0Rc+*? z+sftbC3t8p?3}({K2ATy!Jbw$K1Hb9Iy2q7hK+4~csd#8`ut8>EX9NPTzon6v56BB zyzBVPrvOF8Em%}CEEe*?Y=8w82+NUNPL z!)YIRDcmyYJ{}YFctet$SH81`mZ@JTrTPO zO@Ks9TPT5-7v%^TN}QQ{CsBL_yd_S7zyz+^E1*4TqK9>Yj+>#7 z<8Wjm1p_+A4uxt9zNf8pCp_JdZ9##78lmT|fD}b(q^Ku1C~6Q5_s6+p&yEx&7E+va z3_yyDj?0kZIj2D5jKe-@(n>W%fE42C@5!Kz)oj5xsVy8p8;W~4uS5}_0B$&Ki@$8q zT+=2C2J#2=$t4_@<^Z6V4}$f}<~RVq$a-EPAQw5GUTTxZe=b(_QuzedmdaRqrHvj4 zXeS1&oFzggIjqedlpL04XOKg7COKH-Rc1OQ0*#R;uHO;4sS z|aFB?EdrJTk}OuiC%pHq{F z;5j1Po{0suE(@a;`a&6)@O%bgtn$s!m_SfGnVn{)E39|#V9eKSaIGUvD6~lSi`pSns^!O=jJb0R zs~fr2aQR_o$dAaC ze08~NP<%;c@RGi)E8t71rGz3aYXw{>gX(U@w;=5?!l}qDQ-vDGu>m#{#0epj9IX#&nI9FeRh%(@kdnJxr zWCOx|;V{E}at`vfwOai2Jyx(5eb!bx(S!e~eot(6~#P^)dV?=Mi zj?buw1i073JYSJs94EP!AXYClMV$|6#uO{&?znJmV!w?Ck&RbkH3CFyMhI9^GJ-cWLy5s5OoYr)Yyck#Wqv2);uhv+@8ZXWSg@UcqQpE~e2LFsCdg?smn9ehf zyslT1`RYiPU4W&UXcVSC+9$U7b#vtz+^>0tG~RnXJyA9r2YX3P=1Z^xrFczQ zW=}x-aNV}y(mQ~zishU~Imd6*4@CGlX0x{M(>kxy|WQ{qp2oE8vGj=i3RwDVcMSr!hxW+Bp^jE067|0LEo z*zoi9@X;;O31U5lufy>5>F%SF_zM!Z58Zdgp`XtlZ0ME3-(o9;~=|IXBnoalRQiC3_)2-CGtYY)U z&&!OwPJ`vUu0&wVFMACS_MG(^P}sYf;}zP*%iNqIy*Y-oF_V@VZ)YCVkUq>qL-jd3 zE!I?1cX4YdO>-4@yv{4>yvGFHuNm-zK58Ec@*q%%{mS1sS*2=U74!%0Q{i{UMM~|d& zv(lBxvNJcwv~A8>O^)m6L%MVDU}tdf*iBbvc-4B~D|8&vLv&o3;jOk*Pj0=2gAfj3 zsUjtXIrQQf|AnHRuab?9tkV`Oo4$}xOsFeC8PZN}B~u51k|{}za6ssIg|?H`e!U@| zL~E5PTY0H1ri8~)q~hmVgDBOo8Ka7}U&~t*u(qZ*ARAu8wvE?!IRLunbxjbI$jC-|qW+zkcqJCA;YFC%Eqv4VUc?WBe$NyKO`+HnW&l4r%mY*l5Vi1kb|u zb_PnKinwLh6((3xS++|7b2)kS!!d5Q7s0dT`KS&;6tz20BK%O&eE+z*J>;XCbq4qc zLara~R~an95sfxoG7yR2RB5;;ILZ8WSPOJKoEA^Ubk>VM7_uC$=U_Nh8nxFYn>iCM zgApFLoiaZhA(lo{g28E&cQkR7JTD?)k2c$Je#i~>wIj_4Oy=FMKf1+{Hy+)o;?bSa z_B~2L_|(u5o^d0*hNC+hjxG?9FP2<3s;4ljS~n_cUfXyG7=yJ@t#PB;JA|f-nDtpj z#afg~;~9p6&K+#hkL1%q(0k}d2gma>I)9XAwm z0Cb8(Y|;|gN7dzy&()SY?lwwi=z(x)z5jBRdLplrrsAzEQkVVRQU!zMuhGP36j)re zJfpNc8@W^Cwmg`k;_-24Rhd&fJ2)0wDdou?vXJs~g^a=1#31Wf#D0CXid@a7c$mPY3dsE(FL^kMgzmZiHvIrJu z#zT{F?AlO#?kkAU#x{rSxq&y_b9G@8HXaKbZwz;pCkwfPy=6WRkC&$M!tvq>!X)G< zGM+D#Eso?=ST3zp$YFRCydGcqZ!A}1*&8j_sc^a0h6xM@-MOz*Ks8%A6ic@|O!44& zNr8d9$SIgm?iTPw(Yo1on;-^e5gWEG54z!n17?QD*|1l;3b>1FUUz78_1sT$ zr$AC7r%0(Ir_4%M^Jk%XG5y`_x3|J#9x^KwH&IMrlP#qG6%CjpFmY5pcO)jCs%^hY z`p<1=V%0LIw3T+*j(qKqJU66kiiWfayDr>>o+=fSRL*FXwuT$-Y^b++=I#UCxx?#4 z7x7;n3^{4pcSTFaEoUCT7AIIWB89)-$m(Fya_hKmRLjV3Xa_ak&JngUx4VePx2i(p zK71J{P~NDDH=?{uNO@br?I}y2zb;(ZX-0-hh9uSki=RDLctfq;fGr2oy`vE~<}osq zqRL8?3==1;SjFSk_nogjpX%PQ$1{iU3h@amn6|>UV9`=pgpHOeko2vI7pXA zqm`Im%n*h0d6Hseb;$I+70#4z#w9s$Glw1SbiBMEB^psRYSkR(=SDW^Sm)fb!oYfH z_I^DQD;g8uI{6J3aQ^Et`%qh0NSCfW1cD?))^YX(2}w@eqLpz6t|z~;so&EaOYl~> zl4C3EeDn<59xJ9JFc?HDR*c)B#q@sEa#~;y` zW$_+;SsLG_FH7PF^`$F*N?(G*=?W`K!p~r}udt#d{9F;Az|ZCJ$^2XvPhKH&{WN|q zk7us1UR}X_CS)YtvwBFq%=LwQrsp4eZ9db-K7Lor$6Juibg;z2s7n!Bd=8>) zojX0HJMvhnyP+pNaZgqErYkg!tn*g?LaOub%2fS%6wNFY#dLUwmlelEZqi&<1RXmA zW$MPxLdm+Zb5Oo+EOU{)uhq77*StUY^0D|-)XHwD^4>kQJ8}u-W~X*nqvX2RT8Chj zTdVx)Tvgq=RPIT9kK~f&z`BG(?AnJjU_*d+LZH9fr|=7_5NU+H8ZGfLtZ$*N7=JKpc4&$5(8b! ze*KBv{DT5nAuxRmup@Ae?c*a0&`;d50Jq1#mH%*+U-K=)-1t}n9i_N$2Y#sDP34Jl zfAD8yH=ksw;8iF{?;!tKb$&ZzWuq-2s7tIpUXxH&hu{!kBdk_{Xoq0hKFv~(PhvSx z@tcZXg7rsHbIkj6qp(l-vnxO(kDB?eq;^bEeuv}R4@&l<7;UQY7w|oBCfN6 z&oB@rraxSa@zcQIm56DIQ}EL-7gAMF7cvlv%5Mu`LM^$F4tHU)wcL7pZC;c(_sRi3Bn3pjta3Aa~Ii0zi@-0%D4p>Ej zAMiy0o$#O6*2xPQ;>(MP*20kw5WB`WE|ydaelm$foInofRLIT(E{1>nsl7%|V3n;aqMEi%!-tGge4 z$4c!`=RG0{qCVImln5hq5eLokYLN>Z6iSZyr;YjTQU_gLJ3@!IVxJLh&&ru_UaMkP zp-C!cc#wMSv*hY#HWL##*ch-cnObGIETGS zWx=0FEKDN(<1@wep#N&rl*WBJ+LpbPQy|04xuC>a$eR8nY zZRNXCxyOUEHkErN+52ooTRHTg2xJRV~{19*z!M|}x ze+Z9$ATNX(@8by`2;jVbpZ`ek%MZn*?QG7x!XC45`&ypDwd9BjGFfZLerMdzD>(gR zqtQa0=WM^u4)23@A=c$^K|GY~?dNe19?vdBf5`Jj^_yGdT{PkCLZRMDk^Nc4$>kX;$H3@Wt!a=|s;(HXK@d{ZOrmj-5i<_ZD9KcbbL}XXz z5N$LOuX*jHalXsm~H&AM<8r78WO0sc~r;PmW13OIZwA-udbZV-{U*{E4PXlG%>5lSL% zSbR1dS5xrkW?Z(qs=iYLHrB4@hvMm6!{ifY5q2*A^L3zeQVk} zHa8UZNP92?f!LSo*o=xPe&oFrQr^p1xQR1xlePyGn8;NeIq2mkKHa2vD8KqD%0@Rq zh%`y4FZc=dS6PMpl@Y^qXPDkggEyKO6M7RdBO!wn`Ne zW0tU2!KFN2I*TG{>_e1FFw3nRltXhZ2C9oizD04A^=pGiRZ~6s?NB5MglwLje-A+z zHQs+Hi&LU18)B3}8ery@gxQq4c?n<2s?uijilx7?a8ja9k(l%!r||e}8z5OcA4nD#&YEN~jgrN5N*1$K%E6TsUF?L52c2;7h!ZY)Ot{!)!Ud#= zg5F%H##k#ME`FfoQSKNfm9KU+8b^{Av$GjfWv(K(M$K zf19Q|MhSv@;}Mgh0(v&g?~0!k^g0|BEPL;{e=VyjRTi-3^^MPpYPN*QD@@l0enx3G=l&r_SNLOm`v`3*7V9 zQ2ZW-hW9XT`{HCLLwqcagVau&_$fQGBQI0Ge3?o)%%%rZ9p_LP>!=Pksn>^j)05OQ z2TU8Gw{R6X=cvMAd8BZ)9ajw>k-k&vLEfjQNr97eoS}e!Ou|65Q9d$~7(|H<@~zDS zJS!zic$D;mt4)h}2P6?2VkqJ9(p8F%NehCAmTEjF~6X5$l_*8j3o zRhwaD99PHNW6Lbaj+WwTfDpz{S?Kve7uBjeHkls~hUsUZiM8mgX=jWr3PJ%#G4muZ z)f$i6%|6ueT7%M;J>^ShRiVC-im{^Cc4%z43?#ad_bsQ2yNYeVxRO1^)eXL!u|&ie z@%e-fu5iRD-O&_h%_I1_fy!aGR|4gehLVJWyu6QbQ$0ry;(W76u)f|do~Ky8>D+6r zh6cGRp&H*<;slo%@6J+|lV?7V6cZ%Dj8(hLYkWQ$i)0cy;P9l)js z^Z2+4|01F6u_3!S`?&f4RXdx8B-w?6iJMGh?LZ*Qw_1+IQj0=-g)ut*q-TE#eqKk5 z;$y;lhctd6XmIq#Uk)#^xa$mrFaQC^RvHAL*9;Thc_vOq^R0Sh+!8&aeS{?b1YKs> z5Err8Edpu=4T_m|YH`idIWo!vkY{7e)Q36PY;Qssv{}frjPZB(sK{crmjW2XxNLty z;_b#lrVn^-gqE)>9v)ue6bEn2nP1SD1+lu~;4jc;Pj-+r0ajc={iY|BBKqrr^&W1o;6Vm18hob8A}tWLMc zsh*8jr*dnVt^nI?rY25g6El>eKqH1A1z;M2s$iGOv&bWu0?pQ^Tja0GU;$K|ZRDt* z6Q(#zEx`r&Zl`R?ER?`-gG5G8{~6cLA9J^U^AB5q zQud%dbTfXiGN(2nl~!~(`mp3-ZKeITuhx@%An9Le=F4)cL~%fQXxXiNeQ*Qy16DGh zw11hH%vo(n9h!uGp2IpBS%^8AIq~*%4)R#59phVDNF6BJuBsVqKZ*-sL1N6|p`f?R=5MQ%h~Sn*=CtrfZuw_Q7}ckA!cY2r@OQG@P)K>E z?n1ExTcstu+lU@S^0GRKtcP&;M~a z%GS;1zMim*`@|bvAABL+QK=z|v1X7+C$->sY1RFmXUtJ)`pgQa&n$QP%rd9XsN_0T zoo!ClIp|cKQ>N;u*6IpXXR=D`IKmoBhpIl4OAEHpB=X6m0%b~ztJVejPv^fD=|A`X zC;HFFTJCy{{%pLnfxs#%6KzJIa8oir8A+DbSg9# zdUG=cWyy~mhwMGb*Jho-jcf72ushMqyAxcTo^*!AVsC5k!|Y0Px9VJX0@x;YvY)-E zgPeh$^I~&<-UO;?X)AYMeI{?+K5N>}Dfab@*-+HoSyP~42GUt(wyJ!rWBx9tp)ODf zCpg5Iu-|PR+nb#xx7OJEtL*d4RLAxPIZ*ASivU);=}Pvu(m9B6t@+BZyA5u>4&@%8O*6^G=jk1wx#M4+YIZ~Z4ducT={G0KNA1Mo$xe2omv+T7PLaCV~VLxmt zr6KoPj+{_XD^073Z~>;V;?lHgXOE36l$XJ;{x)B?ko)`F=+a}nGt$gMYSXms>)q7On)ylvi5SSc{TdIsohZ)zTYM_B}sW568=Qq_3qG4 zJZ*;C=aZhux!h2XivDJ2IbkS3?XwBxStsJt+`6=&e+jwzkV2bK zO@D-QkDL2b%G_HMbhAR+%^R#jtjj4C64kH*6hIR3Q3<@y{HWTqS?znGIUO?TAJQlF z@t5JmZIM`>L5KYjB|oL`Fyi7r>g=qh{dS27+cA43Y^E}ZN_og8U}N=0Z1_h$4Uryr z{(i;p{&Bb=YOww6HnW-kNH?OO&$brH*#5YMy2$;y1zmbk%G)4qypLN7^u87e>sk12 zGN(gxZwnrRG$8xz&1S7n2pwY{vu}gpPj=>TLMp&C)#1nAI5OmMD9+4e~f1f3oRB`Z$qwa<*ne+bs(HPXSA}~zdLm0TXMLDmS)DSg zs_OP=zM(zsHU7D+;16o2KPY3{@CjFFAR_}Tb*fAs_evLeotRW+yLKZsC33*IWfz$| zThm1mI|0$!mVx?vi#Tcq5k_e6-7GE5$_;sXAMn#O3z2WdgTYTq2%nn>bL_{Xm(*EgMt09>99m0)aT# z=F<_b;8l%njwctKjZ}3#MpW*eWOog*k8#(6!AP=quq=70r>(nYL9ndv4gS9w$Jliu zXz!yD=TGi*HvjKXe&xT_ouNyWQ9gY%-D3yAxztGxfF1gsV70DImcyNNU9uc3#rq2) zVSY6FUpMc%Wv@ZU{_oyILFl8^Z}=v*pE>B>!50sG%Tf21?B@UUO%%32TJt(@a#M@< z@U6j{QVUkqx?yJf_{RV4+k%w~HuRKNFJ0mm_@=7sx}|NaU(GcPl(5*)MO+m0D0pq< zW#hlu#@~oepht_scn_YPN7$o9ujx^(bte^c=ZjtN@p;&JwLmcq+QQE3t1I5$dmk+9 z?>~O&a(%Ru$lvX8kIHC|L0+kH`v&NxNYhK*yBbO8rjin?dE&mR?w@;7NlVH!6`e~B zIeG`GZxbT8Q?)CAj{9I~aoum(#!)Mnif^Yp0aasHh;5BsX|?FbF0|_OR=hd*qUgfl zi`NnfI0Q~NcBNdJt~5F-MU<8d)n{kd0(hSCJiK^+E0ru& z4#w!soNY=_Gkn~u+Hx;YzJCq@4)~{Rn@!y6@=M17tPT@IOsylNhPy%7hCZlK% z3@O0dXv`j$Vu04522TY6r=MAGagc7YU3kJt=~q#mxr$Qe(hz7f3vm#&B{h-M!xHg1 zW)NFLPYPia5;QIazs+#k_f=F3uF6Z`f)3);u?H8aU_KS5#a;ZP>7$t2hv)N;8vc=- zZaQW_sHmsJK?xytmd(xA_zldLygKMHg&@hrT#a>Ip5ozD!!dl#eW;Nht`iO4>3_YO-AZ- zrrHQCqfnlnv9PI7#L4#1T{%l$zq~ZN4N^#2iH{~*!zy!%@3ye1gu!dZRBN+W^}xZp z3$Ub6z~rS80OxA@0k97;>&*E3q|+)XSW4fUi?{D&w`%$GJbOWPoCFFQTj+rK0tvfX zkZg>mc9nZ#1^6RC060Cvn@s;cwf*3IYoH4c+VAw|&79np6ZKcOm9I~AJT`%i8l+vX z)@5pU%_Uy$GPpmi(@aLW(ntq}h&5X8tXROSB}c##uBV5+zhJ|P4A0Zc8QK75Nmr;I zo)7(=w2fei!^p+&qnYSp#HicGJjHZpXX&Dyr!NfkGh-FH^?i10u}FYX2z01UYgd;J zw{<+$U?dPPBk2t1uH|=hitf`j;iiRk=SPrQxmNJ@K7f{gWxNrZ-5N2H;OgH2Z-(7mmu4U7MrkNXmWTCLaVVg#m8sm; zWbdIXL}_~bW5I6nYD&T5k|96@^ePl521(195Qmv7%b37V&n2u`+7&Jb+ew$Z%J{TG zmO{lA0Lx(wF&doglR0Keeo@AKAH*1~OzSc${_Gi2UkgYSQFFnLZZMxpVoixL@%A-1 z>z<<(hlHM0O;P&Bc5Ai7@}4pF1pXrX)ePEJj^Ic7tcaf*3tyYP5L|o-Ury&+3K^8g ziRYG}9nza24Q_Q_PWs^1;Me__7GMJQw4#)6g4{yxG!;;_+y;S%WfVXGt4n4TgZdS6 z$@6Ew!Bx1Tt^jM0E~X%q8Y?_$(HWi!ue+NvJ6l-DIzvxcY>6SG?=Utvz}bd&RVZd3 zJd@xZs^RWYRD6c++9rk&Hn|uOuU+=0T^5lDukBAdI2U*(VdZ0GP2GbCkr*&pA|OY*}8dgZL=ONv~{huEpfJn^K1ucdJq!tixs zEXrh$5#LxeT=)^eQ(ss_YlTu6pK+-Shl>2pVKxRq z&UhNoeMW0VA8jkwStCzV@9uM%1@E#Hr8M{CKGY*K4v^iND&I*(|Dv;y9R9XOOm}Y0 zMe~}kFY=mWv0`QBHLv)$Zx1gi&UxTodd_9RD2wC>`whQlW=?#1u>+l*4PL*mIIZQ) zVM@sc2A~A}h_U+~XFu+c!LmdKgE1!QO7;bBcnPPK5Q(?b{IrPQWwv4YLyYB1xP4>@iO2pV`KX9tc-pE>?iUn8#Z-wdLT&iPc=| zjQAR_zt_)bfm;yDYjwG_aZSGd9E3t}9;H6@+)}Bjscq6l92y z7K{8F*Z(b5bx&H_OOFPp9H==ImS!=~cPm$7luUgk@<#S^>Vm%{^F4M4mOSyPNV> z8}NY5ch(SwPjJY9IcSOxNrI|j4iGsR=IvdtU;VNIQkOUP{aJ8f0>uk}w95&iMBFm6RgHHZdMuS+*j{rD8$G?$? zWZB&V>9E>)<|NC$E9%3#zCLwd&ja?lUZvc|n zuX8GWom2Ab94w`)RxP`Lix|Y#EDjik>F+@^{XJ}^zemjU_oz&NJv9BT-Zb>Tba%zr z#YOhNPhW2T%LQ6ivNqW{&AYSZ>lt{OY{fkf5V$%}%2 z7Fj;=V#|YiAfwL*llpvkf<7Oq)90gf&pXT$M7x~6Z+Ho+1G1)6?g^MVO3H?oY{Oc7 zW-$b?JL9)^R}X_akRupucjPCy{MFg%?uMV>^4+yzVC6Smm{{bS`PPE<0?(lIAnxv9 zdLVK{y=(12WpG+7q*p(}VsbrZZ}|bK65@Sj=$K^?WTZ0GTklLKoSXkBV-o3Q=}C7y z)ePah1>t~j_t9vcr)K^fL$MOHkJC7EG?c0DoWq;nrBn)P$SzX)UHF&h>v@PXRKvGg z3MySdF2I%XWDtf%&YM46DOoVhRQ!ehYLCxi8e(?41?7(Xn11LojLBHL;smY^d8S`+ z{d@`%n=D@k;v<8r<)ZRNzInc)zo1)tpQ1L+*k~L;6E`Mq|<8uR% zjElDwYxS~uQP%J$^9cJV*|8-h2B(w|!lHL)HJ?j3zdzPIi!f-v`98E`)SK*B4d=;OPK}w`ez3xzy3wz}LRZ4KR#!4qy)t;1cARZ3 z8n7O}a|U#(POAO%r$%t%3o6?&DS>p*P7&{P_OMl|n zuT$JSVSeHxG{#Wgyyok}OH?+>-=DX@D}Q^7(zm6=y&KnGLepoow?;hnHAUi$-262~ z!Xe$vAO9b^oIO`$XMnUm{-5xJ3%IZd5+3^`|L4pbOv2(mIu8hM#ow*UyIk*f?X+MI z&ukGLL1`3b_AA&&&+*4Omhk7VmqBPAep;;^woXLXf^M|Z*|$xmiR^Y~Oz9)7%z*QZ znoElUZ`v8l=G_^wcwSDm-~1!4(vQ>K&3C7Bd6@48Z0)Om4F1hc{3C8!@Npb^q_H}Z z)U+@P;=Hp|+}S`=+qn?*fOg9-%w@XYIg-JHXe8ui^PGM-gCRgJH0XVN_oX`39FgU40!#c3slhCxg*8jU}5N3q$-tTnl$^yK|IWl{ZKQ zy<4H^@6(3-Fn

-jBa3{ey8I~DuWG@o@v zMHei{Cq}e$e?-k!wLN#@L}zij97Bpnzsb6S2&wTeeFX%u1|j?0VF^nV72 z)pzm_4%PeZ;u4GKZ;>6#2Xd0XpF26-u{s^@ z?so>EI}_nP{SMYQ+g)NNu3r3^#-B0d4`NGxN1GNql_7IKSR$6WDsQPaex%NAUoY8R zeK!+0(6+~I42qe_lbUR}F1UDs1o5alrh+(n!#_S*w3%%) zWHuLU*1-xr?yTtA;}SUn(aWFpc$o79AK8q@OA2Y{bQ9d!L}F?*N5x|_@I7MZaP?b4 ztMOY1c5(x^&<)9s{fWYUj&iFlbSBqy#}gT=&#;`rJzKiQoYRqO5dBxrK*4&qPyc?o z_Nj>J8cM?T-0UWR1y6u&LGmVrT$Apu{u1Vy#bwJM3-|QLv(D*J2;=N=Tm#g zg?D49e9@k8gSOyYGmGY4ZF!=`v=RnmllDLMukG$VU!(zU&0@&yn^#N>X?rd5? zgZ;bgi`u`VfBHpdIEzZoCbmkqweS++m==D~v0_H=qe{iLgh>%uYiImjUvxVf`9o+? zFqL@)(#axbWeu~GYQ*Q?^F=cjX5pvXW|kWApT}s#}xraGTxMTkT+HfBkT)O&74iR zJzkmaZn_>1zr~$oc>>kY1USJF9|FpP*}s0ya5J@6yn7B+0_E*dsC+7KX_wwoXK#Rg zB(p#CmtbyfV`t4Ggk+7&au9;X|MUg21Lk@AqgU`R7J!LW4b4FSBGl-mU$8y#y)O)x z<%4FbzGC2f)A3+9IO%c#5PL+|la&+OMeb){E~j|!2ZP=Idxk*$$t9Cq$Cn^AVf@?e z#UtLP{tkpM_bV>^wKm^IGoH5zHVuxu>=tul6MP5^A(nVP%#lE*>}qE%Qij6wyycI| z!SaIbc8T#;vuKH`=0wSO4!vshnlGtWlOFvN4~N?GDL^|A<+QsqWIhInDk@l*OO`;<8}gWeC|lB;neCx&0K&hFc0c}rW( z@NYcCG-`k3FT@K5cvgCfg9C)6U-5T#=Xwhg9I%+p;HTS-8_gxIfP3l+A!+*B|%n9L*DU1{pUqw9@57ky^zc zfi#p5yx)iey26A%f8_7^mp}gh@H4xa{b@%(R`QA!!q|-$eOLD=6Ee)b#afN-aO9t{ zT%Q=*r&}uM#Vq$uZ90GCowyLjs&e_|h(dLliWq(^m>h$-o1=|evHEk?1>8GbLZ@F* z>IOLjHy^g;`X+sO|DtiG@D{9u!KnL0_kTPAOrL6^imF;>=o-6bFIup4ly`!FrNqH;GE;kQ%C8RW&9A?lJi z7!gHQTWkn)JNIBPBroml(067W)ky`&1n!eOyM#z+{6sat!4)+IY+_qi8{ zdSIV^7an|y0%)swF4j7WeXusQQe9)!U2bLol$s$Y1SCJ z5Jz@>UQ^O1UOJb&wBz&IuZ9Kq4EnXp zHdR0kXNBn$WB&9xjd2HA&*IPV%sk4qX<{~a(Cx45`SIW7r>A5@khNcNw;s15 zU?+Hl-f2w^F!TcV&%vKy%oX+O!s7<`=Z`DT( zYPVd%1kSvdom8@OEV7Wz-7hX4F{@;P_xKf)?;XO$HE%64bTD6u1|5(6DrUi3NsYDg zdjM&lLiCe({c|%d*ZkdPw)MyC#-&?WO#_tv9>4)L1NhOK^dB?Da2SqwDR0qY;?F;v zIfOqeyvG~2XeLhx92eP5A*%)}InrXmBwN|rA*^~o;WS!NbqgHz1`1^8Q+?8^Ym>Z3%Z`(MUK--_wObb$-j}a9Zlz)u|2bc`0_@yPr2fV@aVw_ zl)7)Vd17MGom?CpVG&8sF$ezeog30Q7o8}b!i<459`4=bOm0WOqI@(%nV8yD(xDMX5ba_u|;`yrX zJpgL%oD-j$%B{ldShlc!9YKbPF`TFxn}|0C|EA-$!M_SS@BDJ)z<5#NgdXkJ+;B z;~ZevmyMP)V9U#)|K}riqs7QyXN@VFmkNo?o7<>iX@nf}P2KuiAy=u~6SsFa zZ)TE9?#Z_9WMy0Z6K&m*t5W5AQuR-!>v2YVcU(;6h}n6qftz`$`Yp*EBYgknY^ok& zM$+O3!>Yx;mPvdsRc)a`7F6~=@O2JMW$%ZC;QG4a<836B=Y3C1R^fyAyPbG+R0qN z%!7+HNYD`f4=y{)^NNm$e7SumbAdjf3b!9FWXkGkbdUaj zvixQ*WdRLH;Rzl7N|uqqjEOv+rTXyE8l4v2ljlzUm*pQG$=K9}M1$xNgB* zjdEaV{j{U^$c|pf>Df6Xrza5t-u{?Djw}(^Pp!U(aA6oEOB&{qji=!SW^1>l-uChitThO22XBwlN^q$0+;Eze4Vh2g3 zjyIEB-<)?a8)Eh(paG*8AZK}#GgG=77y&jdJEgmc0elZCLiK#I{CUt)s^h}!JVWFd zL!of{E$D3YosXHJGT#vlqB3~9Ca2`;2UAdLs;u6v^|8L3D z2OCgWTgNfR0Spx5ZlJ>74xA^d9Y-uaxT&}pij4??Mze!t6a7Qe8W3b*2Eg^Uv_lt1 zsXkH8YI5k}gv?MSH1-t*KowT1Jw8uMTorPfII&|w;Ih_ z4cM|>xXP}}m*No}w}fih5&Ft8&wKGgN3T2CPMp1s^R_;lLsm*Cq@#;bG^} zVHC>j>C6r+T9?I7D~~RC^&GcpGcY0U!~1{}p=vTMv<@p+s5-{;=vp$fYwbK*8??|= z$kq+m4dVylH_ zAdf8r?LQ0mk+P#_Sdoa8VV*-4XBKK=ZX-~y^Yiit;sptuigo>bg-bI2Wm+{G+Ezph zOZlY4H!z8%Cb_XLosSGV|Dvb}^oU7s>sSjPa%?4wXF?f*+7S$318in0G5Bm-IjpDN zuU$Chw=MS9`{5FoKi+~P+(Bb|B%4}N8=&{S&rWkEi(`C0+(`js_bgak35uEO*wUb| zO0GWHDaOz7G`!34LdKiL-xb0~wI>`q9!tb(x6*yKbjAN-}^C|!J*C`R3_CL&8(`lXO6KN z6&;6g^|gX6gjE+~3#~%DrzB;CP@W)#+qt>Ss{O}i#p^<#9#+;%#1mL8GERf{_m;TW zgls=nb-GOQc_QW@vUjkp9O-5o6jYN@LUkH!{0ZSkXWEIjb4rd0%2mBXssl_LQUPF^ z#Xzb=0MzgsP$;12-Mzso1TQt13@Y|Ey_8nd%x2t$lur2e;FRrmdoZtXHdz}I^60`- z7u=W~L+h?p#fHXW@AeX`m|UHQ37VSohckMb`A?9Re9JowM7+h7795vf>ORX&t=;XXqsu zbT=XX2MEiN4}?NPRjm006S5w)4W{(@gk(8F4S5SG<1xnJ!$dHWFD|=H z>T{T-zTCcG-LPlPkIb`hje>y?%aG7yqwa&kbyqX=%luF)?;u<>30Ltw6%XA(*VLGQ zxWl54mgt_R=t|1j)zM$k7vl8I5ZLctPDL%UgfVGS@v#}aG$EW&6>KAs3bGa^H(u|m zz^Br)$6R;Ea2F2tPW?KrN}rRiun(R)*qPTV>DME48JBzmg%c~DawBeUdS5XRt|b!6 zkM{1i+)fB^l~lqRGO>xhfjRVumIggb=ei_D0JANfGc81!!z(F)i`56abfIxYW}vKe zdVrzHF)V5&MIkbQ+1!PjbdNvjlT*1^b5unox~0W5e~2kr9P@+pA5WY*yrg(auyOje zllN;=&gC#SX!mo>(ZgYpmS;G+>n#-^0}FL5{wlrocH(BwxV=02f>zQW^U^ePk)9{L z8UEHb_!gURaAu*AWyGJV$;;+pi{x&%fVTt!OdZFYg`ei!u3#O;q@@|BHX_4os<#x} zlG4-bMUlilOYoq?z9@Kx|J?TD?f48`_H*(&aj^r}iaf^E>CO=i(||SC=y~Uo?m;(GdSxS1<$^-I)K)OU#}!D2p+_nW|3y zYAQR)Eq~4&`xp#zj1dBwutD8F)!h1X@x_D(MQlaGwBn5}U?uDD6Gf}rjUW?x>6k`t z8PfcFb!qfyHG5EojJ@&-KO@RCzyA|1>$iwL;|2O`bn8%Ayc@B(U=>{DYR$T=(P+$Q z6#Ed9Z&m&_n8|XFT4r0ZrbatkHmN~tK*1D>8t@dNC9IPbE+ef!?@-VWS}6XI?ne~> zr3w}M`Nl>P+dmE^wgdzN5Zjh1uO+qvMZ{)S7Es2It?YwXlgB{1oyHFKh&w#3ClLr2 zd0&A7g9GWkq&ta1viWe}F-K6DfS{l};DBqons|wAMw<7uX=lB23NJWi&2s@o)kTq) zF5EY`{nTx*CC!BvoaitU2yP`0 zu4LCiC%04cM(fcH{LBI`|Ll-~J&|%GUNi~Yb+MOsS~j;Tb>Wya8au!p!bsU&Q}~vV zz4{#U$0=b-MXNhJe>27CdZ{hfdCtUq$(=h$e@`L&svFLXl8GDzXv)>UJo5~9^zJ(h*BxBDNapW2rUubG{ zk|8OVb?QrP>Ig&M!rXg#oJfXX0Ifuw&+JUy*JDYNr1$Kzc>na$BHDJ&D$=-yX2W^| zS}q7tp796*66Q9k8cq)JZ4H%WQ1bomncl+rhj-v3EOm@Hz1Nlrc{ zIHP9rQ(Ls^{v|Hr#9~L}v|_}G+*ozau~p|>U3Jd+Rp;Dcb#joQnNt>VQc@-jdQ=%c z&BK;6k6TV2IO1HE8O~*y;arv(&SjZ!E`yKN=1=_5M~m?P{_HjJCoPCTnF%)=!%9%n zQ+Wl!6n?a=ySax+>~VSqmzsk((k;*6auOA*<#Z~1J=t9?ub}~X+}2&QIRyNJy58L| z0Tr*Nr*j(_zmo258qOFNS6*AOEUDaCg|nbocl`zhwWR6?7|xQcKcA{U)mFdnGmBvv zm|BTa8&KqvJ9s;Qkkc^|Ds&Z=|{pXw~|{n-5m|L z+(B-!=3($6FXr}({vCdU^LReXj&A4vnw_d&&;2z$+1=!}U3+|5Dz_^5l8sNky}Nps zU7itdY^&dnc&t=?FRRklre5C5!n9txeyM@gj%|*^6OH}o5m}AN?9-U7HrsPPlAEx5 zYG^%<+=Sca5(6L_3(atrpAq4m)ig{G(8-E9(Yg1&;QuQN81g6(zR^l)GT*JtAa3L^ zt8so!SgCyhQuR2kuNgMM$b@`iNVFF0Z$PB=8<2cy@Mo?36E-^hltsy(EWAiK04T?2 zo-%!D^cOy)oX7JrA`NI*ui)@({}7MrR}%nnbNTB;X*hwlX!LOQNanZhY%%;p6-cu~ zwBkc1CY5|hsSiD{X3&mc`S7vGO{Q-g`k2c(}*mNT)Pr{(FP(X9nw!rghvjj`c*;syonRA0>?6wvRtULpOma@8Et?<~^q z3X9hIK{69Tg`c9Z;1B^}z8+pmTY;Ycvi7z0P44{oT`cVQ zsIi3-21mYt7eFNkR7hKQLr-$zlU3crA^}Zyc2v3}rLFT*aLT9JI=@g`e3U>npW0pB z+1B~hfwtU17L!ibA1>69cF`(@deUvVy(Hynw|7T*1f_bPim(jH;j*?|o`gL)l{=d3 zjKtgOPX!IUkHp;w&$9J7IAuuZwW<0+mY(+7>d&S-6Yhp z8*nk6?AL;WtH*`oYEw>3<~AnlU6nf=E>}1Y9*&F~Q8*>6)CLNMRpnY*1p}t>2>{%k zA%BNA}6%%6;+Ixff0VF z8VCMCtSTjF07aoDEQJ?!z$~o9*z{JK41!@=nyTOY);#M=s2W^CP*L8eYqja!AQ7;B zicUS$1$i49d4-Iq&bgl7hH?wwKXtCwBkH0NXmA~EIC)UDA^44db|M7$&4N+NBIp_h z_A#3#ieGGKv8VusgzZW#SW_o^K7;%jExw!LYEzAADg5OsP0 zLta_b9X5J}Q{Il=tWf@7Ilz2La^;b@0pxEe!eC**N2&FXb~273@^<#^t;zD5xT@8E zK1G zgXA8*#Y!yUmildwcQcU?&w5%!@<%eFpt#AAVm#~R@d*({qclbo6jv8fP@ET${819I zptw`z78G|-UzWtT>C4i1kG?F6KcX+o;}7afz@+sh;M(N|@)Vh9sQVO*mc(aA@L~tJXJ8ix{;1_ zUTH1~o ziw*Yb3b<78@HD>pzaJ&n6<;dVvnWtbZZYqU*MYxQwsLG?ye6#4zed3b?S?MtPf+Mw zmbz>YWij}s1^1K?0P4bcw6rL0E)18em4p0vi9rrDlCKv{Suk0h8m{;66VR5F4DXkZ zmg+bOdhn3*qbLxCXP9S;*9@lx(z?FiTuQg>Mt9USYBf|)*8BcSD>W-OYwF%!=TV0o zBnH6}As5j4sLQtoS4OL3%Ugj(VE~@C#`on2VFugLaIA_LZ-hDoBwU;@XXtm82`X=h z23g==XO0&1fiL?+{vWz;qt^I&-`3Nww z*0F7$aD02{^qyQgBnZiSXp|o2=Dni^)D)~qYLo$`ct3Kv-(%W7U|B{`Cz1u5hyODB zRat8Nx{T%`f=9!|uE&$y0t_@H-53ZLk|ddR_Whb7`Z=mKDPASpQLq6s1aGdb&r+?= zV7NaDTMJ_FIiA=y7}5ihF%N=h$q3pHYZSMw#S6e2?j#|Ej2|9u_ye}) zs8CJku>VXj3_~kq#LEtg!z0Wk{I!P|cUWfZqZPj>kkH?(esjvSWK3Vh-jb!wduYI& zyTBNkW;?SL>0q`GsS#xMl5LDK=F&Of_{U&j*J8@JBe)a9jXcMVP@*!`(K|cu;L@B) zHW)FFV-n>|BVgf4N3Kx!!wr%u-XPPBw`bk%C=9g)&%WXANZs3OF5_L;C_{HcM!O;0 zGFfdI#*$v%IqeJs<*B~HG|k_DVBGe=ZVBF}=(;V1{ZX`OTHtMSv4UHOL8y^^o_PQY zeR{aCfAU0t)o!^Xs;z=smhl!YL?2{xmmBzuHiA@UtELOVlxvKgkS-mvb7IR)P?Chc zg+XEj2HLBZxUkT}ijbnXG52tfRJ*P5v>68=W3v@h7*w_B_INfdy6$Gvj@hUtT=}A$ z*N}g6hF&0?`gGjdRbbtRrQK%M5_y{l@sieqB{gWng_OP60!q_21~0+OFus0MYI?=!5=M}-{dg!C$yv9!kGLELZyCQ^!t-XTDc*7ytOVumSstgE$DL0YrO*O? zbf(DmPu+($*NXQw(q6JO-lvV-MT}Vs0N7=oI0okmu<}tc)-G)~I#Xf`L!kG~B(N1m z8jONcYdeVDfD0?sKs!tJG3fYy^_(}n4RuN+fh-0RDLk4s2OfVoa z%j;QirOq*<)V-%4C}uuYR{50}S`EY?JP7UWfwGWrgpn7y-cjc)Ic1=!qj}gNWNHBa z0f56DEK%4WR>wRN79TxAUV=#QgW@HKoIFV85l}D#5L)FEo)NDJ8BBwXY@1bv!EABn zBJU56y7!a%xJEc;Q}>=TDdH&Tr>$de#!k4cg<}ry1g9FxWOT0ek#H`Wc_;Eg5#KE; zyK5x?zAq6<$NUGm^jA8TVnJ7@YCjtyYHQ>XrNb{_C#O$8;5~&}=wifLUhO!?s;8cKq-aC)cHN4KeG z%PhDc=0M%O@6T~6Ivb$rGwf$G8CbPAW1|arhWI@s19e^`g6%3^&p#PHygO=tR zkYJ+`{AOkmq8G2L=+#K9hZuivFDK4%j3%xF2XSi1<3klZN31JYyR8>eza;mIp~>?= zu(4?AF6Z8~y4X!HGCZPQN=VlUv##)_W;zcSx|q^c#hniZops99ijopHjKe0|RF=QC z%i&Hal0I6b(`5Us&dF0!ANB|tX;AQ&YlYBy!cgeIEt#g%74Om_GAeOB*LkH#3&l=a z34YUSB?+FRFkUF(L>9fA{wJG5i-887PsCYxsNRpb|2@M?3h9r9U=l0%ZMG%Q8-n*G zCOl{HW2^a^CF<64R}4Vel*-y7J7*rab3CEI%|$}UWS&B_OQ9SpA6)5zzi-N`ZfFd{ zW!(l>WI`jYVKj^Z%CTbk3dSt(KVrvHFs1(k>GQ#UU1(x!V|j_&9k1Orw#BW8 z8xoragYB0vj*~$R=jYjbq3U_Rw5UxKv0KAkp`*ilXuf3?Pc9Dy?NEkkpmnA>l;9VN zC+`b-*=Ox37BJvfvuM{SFV+acrbN|2pQ&2~^OXoyly6Z*nV%2gKZhXYe~b1oC{4Tr zwJCl%xga;J0Y-GtnPuvX<|I+Dy)ZL#RH0AB^1gaz1M3s3c-mN{IbF}V5=)z?m6uD7 z*$~PUJ$7bU6}s#N!daVILN|$fRpxQ)0r7Niu{mXT`o5! zLqrHK&2ZQ-obCywce_f`4(t-!)q@SE4B#v_KjdwWhe@0tJZGDENBO}gk*?uHMr)|Nkh z%sUlxI+CA~KBU3*n3TW@?^W4m-#BW8|q(2dS)q{{EHh4G6fp0)r`lWh~i1@z0ky54*l zO}{t8d$>;CJTR$sJh?M$o$7c%35nnFqy2YspZy+Gp1xP~XXmoFOy+irURXj)Y?VrF z&H_xsQFwxSdiza4c6+C!Y-0})&AcO74DWOq=7Fj`!ZuY4jT^>$eyL2=}N=tI&@-uU~i zQ4K-wM}4Xhywn-5*{6DWjEiS!mreL7uOf`oipm=MA zkqZ;QM6wPVp7~$&6O&Ycl2G0s!Lu z{oGVm^4MEx#ktn0@9Kz~q*;Y-8)OQPkI;cv9o+8KT%XRJuwiHbEH>eXFs7NoFdqlv z!5Rua9xeEp-3b+e$-Eryh-z~=Cs1o-gC!SkQIaJ@p@S4>T!g3v;F%r2i^z7Dd(Y37 zgx>SaR@J2pO(S5cy{7PBCc$_7k)M2q#;pTYXpD?7tbn{R7B2klhos+YNGA=`*^^+3%Ho zc#sX4F=iockbEP9o%eE!CC&) z=O(yc2h@{D_-(P|{Zp77D~d#%X+(85-UJ60nJUp^JX;(X- zm3)v9Y`fH8Fl%W`1Q0M&_7zSU=ldg7v6=>@2nH_*TM+zyjMFanDEt2mYje8UHbTVcJxh z)iJx`&fIpYh*qzJY;(@c|tz+2%@x` z&mYuC{SmiSD+=>5bZb)e@RBf*ssX>a(Cdmn!(Ubhi9;D_L#a>$S>uf>Lr$?%-z=xH zJxtdNCh1vDlA~;xT;T=Tu%IqX|n1>*(0rl zt?;)Py<^19dZTQI0cFWZo>g#I_?85~pslvqpmBkO*>Nqh0bA!}kxsUW477!%%Mt#& z+THXd^R%tT#&%blBfHQgOzz9OjB6mTL+pQwg>?-eW|<7UI#CG0GQf_XaUD1Ryv-+J zL4Ykm&Y>KDb(}SYq3@tysE%}YH#Nr&-w`3YDe?9!HW`4O|{>}4a;e}fh> zCN}-k)gqpsUrh!GVQ=)`@|r5lkLbKwqz%DEI7WWO=k?H-ztnFgY+ZCCl5TBvM~FMY zQN?U37><(_JBk-oo6=&Bu2$pYy{nCj#GO$wZp`|8OsSnO=yS{y`W&~LpP7Tk7q;qh z#cF=i?y#{%=377#WKRjd_eoXWFg&vUAz6&xl5m$N#&NFa4`C7zWM0D~@@~T~5uRMqP{L( zS^$-TpY!jpQfzrc18p2}yyihNnaz21II}hEhZ8_nFz@Olh^OXy=AOz6|Juye>oM%~ zGbJrB#=6LmmoLxse3pC1@>V~{%_x_6<_u365po!sB8c_17S0uGst4;@KSFyE$Ka$# zM-10Vi`FMPy380|B0=;+rWfMa^jQG*AoiMBFZ#K;vf5MYOzK`r-zo_`;ou>R7g#_D z2w7agTWB_~j6)$sD4PGQiX-G(bsT2s$Qe}S0=k2O!5$AuJ#!rDHp|Rm@&8VlUz${-i%%W%d9&(IVYDV%}B82n@Vnrml~k#m~&S%Nao?WCZ)TS0?BkYhCq*Y=0=}XLxs{G~|Cw zEjw!+C}&?-$>-t-o?Tea@n=RjYG=OpUjB(A&L6RB#PHDcieX{jFh5oj>A2tEca*Mz zB=Mjge9kcdy!yQ36HF-U1EY{xAKbzUWHt@u6zvQyh@sA0Ed5G}6CoOl=s<)_ie<@~ zSmY9mAtJ#-l(mMe1z9HaJO_`X+m9CHi5;X25_7$&?22B`Cqw{@q;G|vfnPOtp9?M0KI@PLJcq;<2ncD(h29+DIjWjCxr9{#ILn&uGfa>?2aTy=qI3)e zD%zH8SBnWnTQ4_jYAj8^NS6UJWR+d7BWb%PCirod>y1J^V(kpbSYm-@*(ENz%a9Ps zO#CBC9o-`bOy)3ENd8Tx?7yVVy;U3D8~-m+JAV^G29Hz@2OC&uR`YoIh3Y=mHLzocKRP+W(+$6K?j>~ugqy`Y? zI*je0jjc!2MJEG>Kd9(+${aklZ%{fAUqHjbE}rg*0^wV%Nvs-;??&ScUZJ&b)obWJ zdIMDwRy94q{-dxLA~n28^DDKgz+oEyK_0m)4qYk>;NnB-W4D_blAas|4WUS2SEH3kU5OBd@zs8~rqxfcU}ILWYS^|LahF zus5%xk+9BD{pG^&go5=Rr}E8hIh>V|u^|OwT-lQ$y_@84Af&;UBg3tTP-g9ARPM+sFSyN&BP?%RUBrr4jU7VZ*A)o7j9bEzMU2t`;8^MiJQET)K^hN* z1YYf)5jTlhAJ7?*e9(^?J$c&6-KRvsaNsJw1b0ei-IZ5GJWWKD6EV}|W?*ppC!{Sb zGHoGfZ5}IYt+B$q6yOIfn|b_}NCCDiV?bw;l9w1=XO@Vri(uCJ6Y|s?fFu}l3y(&9 z<_ztmU_B}fZX{CSoP?p)t_};Z`W3hF{p3VvN$WT1!m9?P<&T~a34zi4(Nz&0_(oDS zy1C+PIWMc*6I{2Af0&WuL8l2=jNMZ9%xL)8f+c>byHDJM)ckO{sCjAmaQU({Y*X&P zrC--l8-N&pzq$h$sPUgD7in9MZ`ZvQ|Fhgso~r6L8#Lk8yk$r3G+IC+@hH)V^#5fg zMM^w(5zNxb?&wQk0ap8p2}Y>FZsCs`(zz|}w14cf)7}9RKEchuNE$$wqO?Mepuls& z;FXt@gcZ|_YiG?JF5+>Ssj*01$Oc#eF~YQH3&)F9msZv7!kZ@JLKv4h1hc75#Xa8` zvk6^(#4o5|qy~?4OXvtDj-`%lb z0BUpDv;=vF>W&A~j@G3$c;k0m8fJv;Wm$W#pDfB$hjEVvKa<|6M@V+hEOTiiE)gTM z#Ay}5vRlP)RBz6#bm3F!_*_{HAJ;b9Y{&mDz0p4+#vrb-BtFwMYxxT6!$Z;=-&?{B zx+dfTi`>m!#yaK2o8yK$S8a$NkoJo?1sTCSG6D(ynNStj7#axXyS5gRp^W0eK2^^i+csh4XF6=&oHO=Py0ETgoKFCmasMOuG`Po)>(W|N18%)E zEaVhZE)8=+fIJyDTfg7I$92Zr(eG4&^G+4m8S;hsjxXfF04_gP=Q`4gj&0$A@?S9q z&~7OhgHagR0)@GJFu7s{&O)OX>`(iRDfCJ+VLGxB*Kl^eqF90sW@pHrEPAGMF z58?vJ`+DJyPL~TZA${YB6Q01{fS6DU2)elu6&9LLD1|QCeX8#N-+wZ&xB0|isB>Tp zbq=1P&H(_8Kytq})Hw);ItS`d=U^V{1pI(zN_cb$83LkIT?C(o9FY@}L^5Xx6FEbi z$Qc4fPM{RY`}%-$(UKjC(39@2xc7F#_1 zubRNG=aSvccPD$Fjik!YCMP~o)&0dQFfTJJZ||-)IJfEEZQTu4Cv0Zz)b5&8)!5nn zQ@bO<=iEorxn~kpV<$h{R)0A7Og<3&Gi_1u&jWKWUAlx!O$Y9i>V2xrVL{&39erP_ z_h5O@l~nJcNL&321nHUGmV3_OY!IPmda^SSuWPG68Z>k>@p-1$&!LB_MpNJVgVsX5ia+qF6{pDgVIax|l3Tat-x)3z55(#ZiEn zGs>c{?`kj<{_3}&eM0Uuk78MY93?U)+T0a&5f!iI6%qcq%HRz|H$_0@H4X>|($8vz zb2Y^oHhGP@twAEBi1A=6Dg4^8>fdNVrPif*m~jVqJOAB?he89utx$KW^K?(&QsvcL zqi(k%-q@nmKj$e*9o|XwEn&9Mr^C+qDE%4q&4qMgj_(?OnPH)_YDxpqBE4k}KX}Z} z;Fi#t?g|ORWTIeApbc1%PsKyQt=J!<$VUwWH>|b)Z8TIB8>VCve?$lW&TLEO(iVg0 zSKJ+3tGa9C@j)IVdlh|}3Ckmm_<%h#6d(+hDn>V`pRve090t(Udf_!T)|c~aRFPh= zvE|j4RU)Z)QokSK3%OtK8u_WgqW7^N0Rk=~l`YoaU-Ow*jAz}C)gbMWBmOQw%uuc> zzMJPH!_7bPuX&l0!Dn^(X~sxcUohdH(sio!Q*?cA(3OE_c^SHuKW?I~7bfN%c?u8y z$hYP>4agJq$B%N&CLsJw;FuaGAzBJSw0ND!AYhkHmU;_p*dQXUf`s zMgd)uE^lWnS}gJ=9Q!rHlI7`m9e8LZXu2`EU|pj)=z6E`5BZxyxN`{^cs?m0LztJ85|A!7+zZs^y-RPZAX>IN#1) z8Wx^!&u@SI^R1od+bP4fo6LsK^C;!lL&=UOC#1>;k`rI8>b|?;^0RGb(b+aTINKtf zINPRlM{ma2CSbYA55M+c3qBv5sRJ$*9B^xNz#ZfP2c4p=<8%#Au-QDdrt_$p23)$S z-O-dgWs#NW2`NAnCD;`hg(lu{l4H@x}Mh> z)AdJ_xixJ#>sF=ekK)>dw))_JU)5H>A*I8wHd+7jXBG#W{R`0a@2o*~Wo{l30>YDS zN*ys&+vAlfo^%t)l=-^Rn`ZSF`ZAUWOHlu)cfu>BMt2&UfQS#;_` zXLMZQTsB{5RC3Kqt`zzC4K54w2K29vFMJ;(v){+AxmQ*5FtHRO_Odx1#?IngtYR;# z@;s(_xZTObWM+i8G!Q0o2VKPYk%_#9T}40M6*P2%0yP~#&bu@d{s+*rS~VJ*N7Koj z4UqCpcDR|aEeU33utz%NaF+II48hAd{Sy@L?jv)#FQGHghGO78cSg{J)s71$1^>ox zpmh-qG~!{^xClmpLz)Jjnwx1hS2NHf?~J?iSGnJqpexxiE@CiBEYi^y1x%uJ?ZuEE z60BjN<3`z?K{u;Z+2aiK35NgCxsae~@ChBFrj>Y09rAQ<3r)gi9+@nTn>|84b+bdg z#a^s+iq7^SHp5sT-*2_3TE+suOm*U|!7pXzrfhl_t~1zSmsNbNE=4ECt$SXa6Nfvp zq?J|W&7si6awPLuZL%fd1F?w9eb1_zZGxb5I%up5Iq()k46;R|ODuQJhZ-<8>W#}Jmvr#|=SC=Kr zVSh!{U-IzD;2)LPWl3@lvhRwE#=fVKeNQL*o=ru@823`gxR*G_-Q}vkEHuu&(r{W= zFi;{LY7gS%;NZ35;HSjFvqiXmMf%E*&KLOk=uNNX=gH2Dmkju@(^`70P)+H&Wh zz`(Mb3K)FvvsVDMv;1s2cRCH&>Ytn5lCFQDYV7QRRQ?0}K~ z`#IQp#%2~dxKZjJ)5xwTbH{vNcgzXS!tMsAjRa)R0<=zlpupSKUGx6n%QxzRqvIQt zkf(H4e*=wNF}1t;Kk#L0rIV@`RMo9%%Wb95y&&NI6(q%Pku1Ljo#IWQa$tNT7D3jW z&rWdntl*TY7%cAz zl%BjGu(F0jPD>C~zCmC2Lq5>QoKsxJz^ zy+Hd}iOhwpJjQCBuhNfugn}z0N)<`5CNI1eRpD_+KkqIi%pp>g`b(>&?(avFm>nd! zw9o^enZ<+AAM<)Filf+L7^nHuOfCZdqH+^tUbC0v|ATSz-R z^Ds(}`|hz}C4nMWA(eZIO3&)ooR@p^ zMfy+QE3d)d{@4)v9!|sh&>I#7Imk3;UW z5cU9+=Y2V<^i%IG!4)8*d!LO|u@s{>kJe;}lYU<-ZV$d}XcZShm<|$7eOTJ{PjLKY z^LayXRnq-gV;Vi?V%cc1+YW&%CS#~2kK-;l;SQM-#x4d;uWdDN;Vbk(*uCq_$kMCS zEJgtOXWTPN)}l~r$zq1zVK|Y|xcdpIcKu!*s6v$4j}SEfi4xpnS!lObdC{C+ zyD4u6GovU^NeuR8{EoCnoVyoNxhIn4`vcMBCH&NWKY-Q0bxlAh<2<0<--zC<)?}97+j5T%5fJV z+Rcd`iSwSQMKMT9EkquyG7!wna})qu%p`#9h6{oQ%^r7l;aEIw;5YrQ#`GFcAPuf8 zwwG{N8VlXj?aznmC{z3iU4qFSbLfCPi<^12*~)~Ps{;J(5UTji0h$@NTVSO(Y54(} z@o+x+BYtd6(Z@7;(Sc!#v{xuS!!s+sjEjgy%Q0F<%G*hrA&IR4q}nXzz#EZ1FwB+i zC4McATW|dJ2YBeMp_w^&_9=70S7lLAktep&;t3=l&C#8WI%4~*c!h9&_DJHfG<;=c z23Kl+OMx~!5GJk!EzapK347^!9dwrFS(hoA#lI~KgXpzxSs$4Nfc@QF;yQ+CCChB3 zw>F!OGbJg(Xn;QTDEK>jKcd25dTDVnZ6Iq`YviPQ2uHLMj}a)Hw^F-v;uBon5tmZY zMKI5218T;R{cdE=pe~QP%;{vVLoBjipnb9E4)xb_6$3MYRC!1O21Db6VK;In^XPBQ z+obmUr)?JYxXIn>=0ut4v9^-DLtHv3*rbhlS$Z+Gih^dK74c*q=gc8eYFCNjo zy@2ci2{;%C#{YlL{=c@oI*aSl*IHaZ@jCkY-eU#%<1bgf@;Z3@g5pOF zkm;q8Ko(O1*$dmi1Ju=5x$-`p3Lt2kxT~sr%m~BZFIBOrOsR@YO)E9z{Zd2TFD*vi zUna9dr`RNs_e%|VztoWTrOqo0Ldg62vcwhdS!%T}$1XD?$5^3W!B9FEU7Ab5s6XKf z3ng4dp*EOTyBHI~`adZ5!_wLlf*F4aU#3?kOpwV$OthKi86~W41;@nM8Ep9rRu$8y zWN|XgF+SHSjZmOy1P_@UoV(j7)eI<`YLK}&?In3wUG z4~?MAgoJ8>JFASy`J(DULFcAN=tX4xXPuACJn)i6VLq56N=!1SBY0p`5rg$7v&2Y} z3N4|92V5>pQ7L-RiJ_FWi>t(IG+4XSMbr25j#?e*YB&&1OL5oMDcucsx8*LhV39?RN7YlQo3_qe0H+@`O98d<*{_vRyJA9mqrUOU0eLp7J|7I;k$W}D}_3!bEVx- zk09mow11CI$6Zzq1njcGWu?2P03dA50Rx0<^?hBMUO-0EEeJv4f~w*=RU(fO~ji+JeJrD zicJZc;=TAlUd3I!=z%HSO+SHXacW9;&E2-cpEWKSn-x!*$WB|!NlJPx>Mr}V!3r5G z49eL~!4J2mIxe8Z!a!Tc#%2m1?_qDqL=o3pBk8UE@=n9PZf6yY`td7e#rB`hs~(hu zG?N@#gLb%wtopT~dAb8Zc&DFb89S+LT%W_912>e$hc>evW4zlJi-%DZG? zNC1fSv?Q|N-&vI4=Fm}s5bJm;1x7q@ZJ-3+je$qLsqv)=7lKR#e{!XQo)R)cWzZDu z0e*Yj3m0!8#_qaLu`?OPO1Y_ERF|8N>=Q6WC|fRAnwOQ)nUyS^F&D3sETmjm5f7yt z$E=Pwn?1l=X7YK=>Qb{g23ouq`7xx;W6r-1+mcU8m>Y45j`1vXIMUX!zscFxva~r_ zoA1WIP1h(OY?i4HKG>3iaMSS`LY0Y<=fp>0ffi|jyd|PgCZoV@a5~Vl9%Hjhi1YG8 ziM4*R+IXQ@&U8k7WIPm%vgkchYoM^r=hF)@!sc(g1&f=}1;wbbHgNg)^hRM}`rIm< z6MEzZMRVB%gS!t_ zd{mgdb4bO!B?`i~zf-oKm#sRo{DaIpn_vO-Bi_T_U`aBGcvFaEyv;%wB0DLpAJke2 zu5QH3J7_!FZm|uZ1$x~^?B)+yRoY&^!^J1iUT|8;yZZ$91@%Q0*Jy*A6;C?^K4E-` zN6#aQ-*%bfAeO%iPoOy<7V-p^jGo=%3O;)6L`;E)>{*5Cn^iPcvoJ4I;LKnuw@1?e zk3$xCy}<-EeKVC?M>+IbPIMv^Wuv8v0?Y#G08x3@0)?AVZ$i+bhw79C9b|i2LV6Ok zLmCtY#Y|e&=-)mzti-7(nf1YhAa|J4Lok&AOEuU|5LIlMZ$73_h_5_GZOGqf@WlQO z!(PoWt4uZhVIqt&udfCbTw+mByEo>R$GDO`n!Gw^m+NxWlL0tE0>)qr9D91J=BSd> zhS`5lo*2zMoio(W17!gxb@a*>-R@7?v0X-d#vWE5aPjxChG0~u3|kOm8u>4}QLuJA zF^@aM!%Ttz20rYF%*>_TbV3V`SB0Wx4w?mYhQ01$0j1Tin7Uol)MqFX!m?Iju05LP z=UmzD7RV?Gof4}JabD>KDtEsGCIe^4jV_k?np2o;Q7TZT%LxFnny$PY5wXakJaJ_? zgUzC@$!zf5+);q@j#V#2qYd+0G%u{~XfDx=%wd^%NRjpu)C-x8kpL?Mv@7C=!Mo;D z^xsQuZHBCGbK)}@(M25lk>CEqFzjS$t^PrttmMcvBKa_ z)6p{0(O5nC6RQJ#Z2c1jeeCgnePex$zEi$rDbYI8xeYk3&Qc#+U8Ij4EVX)QZ@)(R z7@((;^&6m)Jz5&pLwm%uvWHD8d+;)?>;X=tu-%}YEi$cawrOS4omMtYUljXKt*lXB zmReHI*k#TmyWHt=D^zo_Q~k#{1n(5Id(hB>Swyx|wU&q2pOZLYz1mj9szY6iP&cF0 zKey5W96l{C&L+|G+E%NAelhrRJYlA0((Yg@Hg^K93RBETE~lhf(XK^VV~50>K&ot) z)`sSv5EV1~N*q3Maywi4a-% zGB;Rf)>8Lo&_wXhsf0zgCOCNlZc!Lcq4x?OSYO-4Z%4_ z&^kkG2CbdR5$**0Yc&BjA-zZ3OgT3|S{>e4G=n_snEn%QF7yH7wD(>*7g~Vr4e1J+ z=X2EgW01~O;3`d+vgmWRM5|0h-4uxUf7_OOL70J4x|>-vIDQ}RNzjVW$6h6f?&3x7 z%hQ+zN3(*KJO(r|j*3Y3XHy-knxO!sdXH4Fx{Tr;qNUVCE3E^)$SMhy&Q^oSqn;GT zJhHybi;!v?u0pJUkkvB1VNvetbK$Y4NP}r=M|G``_m*I65)G-e7Os~Zw-H86m2)yE zzJz2_iHlqKQs%a121|G``2oB zz>9+UZ~ADU4}a8@+8s{A+}_r4Gy$o~YK>8uJ=)fBzJ{s1=*3tGPl32!GZva8&_rBe zsV!iwIAyrsVfDh<)7EjgiKJ0S6{AX(r-FZWCCm4NDfgF{_DC)e=W750>@|}#U_^LqWO)K%USLOP zJ%+;IH^edG>g}3%)tT`TL?vV=D!3Tdb^*nqIu;t3z!`wO1E*}N+wOV?(NbdFgio{<*rG=jAPNmg8t+v;--C&)ZlGhIowJOLA`VqrQJ zczX@qHndAw?kYs&xXdvbRpvtmr1^A2Z_A4-N?Ak7;e;e4sJ85rkdg*1EMZ5g+HxDFcGnObcW$Jud_8GsDHgT*U0mArNL%-7T0WH7XZQWR&vZ?N9<{gtm|Je82Iv#5%@>(V%35nBU^ss+DXB(Bf z_AH-b!S|PRZ06Z+BPsb^>}UKz-^VFKJ{$rL3=Sc&+FX1gImh=nL_72O_Ir!%FrZx*{(# zmOl;uWJa;Pzv6kl=4-|N*QLs3UV?_bx2^m*C!A+kB|&jdOZC7Uq-jc+!f3i+0g?%s zioNPSMGbL1Vza1?cAn{CtawT<>3TT@g2UjF9e<{XnO1M)yZQ4@;K{+k-TArkjU6qA^oSAvS z`~jIQEwU>I546HRWih?tMW;#f;NID11@g5zZ>5~GtbKjZ0XzxGG_y+aPm&AeNu5De zIAQw>j_-XIn>)i$DJDA`4tq14dt zh@qsBY6)shl@n1ia?!=QeeaLz`)=A4E`m!5V*QD{kd@2@8qm?zjA{F%y;TYj{yA3g zFBJQl35z%@K9{4ID-Y>rS?;~%4pb>T1OXKvi|lg?f_nc`4-YwXS3_J`<{%m(|Hj_lY;JQGqH|h3 zH@ErILsr73bsOJOn|EuWc)5)Q;Dn&xJb3iR0|xH8EN->3GArXtUuWv;6eAGM{JVlN zIm-bz(yjK^eH>qu)ZjsXBGIg9fi1vI`>V7fy(gG_h${Vj-4pDsgc?wLRv~`jQdmSo ztofV8OHsUwp!2?FDJH85)^dj+u}oiXu_1)Zavi(f91?P)hKl?Cwm=9-YT3?}`LT8E zNw;5iNVknO+!roK-sttT^-+CWn>JYh-Gxa{P}vz-=Ay9WIYW{<$SBL`SU1a&?{oHk zlr9%`WBSICpV~2usn{^*lp^(dpj7r9mbAD(al)){2b~q}l(WKFOtP~P)j6wCowFm= zIm=SrLaVwg;}cq$ZPvF%mbtLltZ)yQ74AW^!aZzOxJS$i_o%FJEEG~4qnYlm`1g$k zdtBR3UYpO5?o8GuJEwVfB16sWakXWkJr1C~soef#?^6}XQ0rVu#BAE*w!M?t45w&| zn?2Z8zXQ(#q&nF-_h7nn`arsK=C*X_?EZA;+@7kjvmdS+I~OTxlaZpf$f7hC&(!Aw z8B1A9>hs|V`h28LpO20TK8gELCPP|DnO3B(tYGM4SvSmOA^+j4u$6dIAZP+!v)*uL zzYs~7jB_V*%kGZKdEswX1Q$b>p)ww^<7Ta-U<8HH5`$1g_`$PuPqMhcS&BB$3=f&# zXqPilt(IHM^b#1;lrEb!@SNB(PP#=&qBV%oI6GdXfB>D#aq^?)xIWC6B&?8`Umcfm z(8^UqYLnx54x!9iWnvRLDB`GZWui2Lke|vsolcR5Gvs7_GGXqDG{qwL#Qf$sy`(XM zNcSsZ&_EKOQ+%GRkuihhewiJpv0Nqt6P`zI_JTRgHfprf@`BFszFK2|T3cP>moHrL zCz&1y#3$+-QRn}xRD__V{Kg5zwx6(LwmNx|=(pn3rrEABZ zQfXU(cUHTw-d^`t#zt~$)Pi$m<`^a4wHfRB^UnD>-5TF?dw2D);0XCi@buK~hMyoj z7tugrrxF&&GRGc}0^-KMCWM?S3LAFw*vALw*@K&l`W1;6;ZAKS>=|n~ykWj;xNt`} z^(r&;NYSe|7oK+mpKHa;VK&70tz0$@T#SB(-PkL2Dg+()2pjmOrleOz=6zO|Gt}xe zR1#?iT2IB(lQMq6a)f%7jAHgk6&E~5$M{jhJ{f>G&;q9?tUQc4U2EDP_f8+99xxzN z$Qd~GyxC}&XE4~-@l-Qa%GoqFMEQbhXV*2!*V0u`vCXH=>Zn2Kgb_3?L}XziB!r5Q z{=dn&xG8T*l3sAuCS)OJ=ry8h{gKzcBup zp8AdAO0jmTwBc6_{AQTcmC2#9HhL4UW&15FLP&&kZ2J3TNooWondnpi(v zv!QXNu4wa@|A&9$7;ad`pE5J z(7A$gfA$EcYCDUrvQrj4c2%L# z8DPqLH8wEX3UK(e(zoKzpn-06Xu$|raF+dcnSg*Yr{yL=G=_rno5U{}Z8imR9vgzTIX-=QMpBf}s|i|~^|Y+Gd& zh>nGJM;A=Ij{9q=V|5w2e2&nsV2oY|4F0*q(3v0EZtmr2$EboeE}vtf!@u&sz|-Q{ zB3OCyfFCR3!FxjShxs#f%Xx@IvF3CEkxn~!2=c;Fy#n`dXd)vzrR3bNM^SvkzI zeEQAgWLMeV?G^kK18;)!at1dfo}1Ak&!XzopG$QdYghDKUV&`a(Yim@Su8WHiZ4vW z+mp_jz##vOc5yqryMrbJZR18|Ilt#jP@BPs7MjFqN|(Ik)KeXTO( zB}}-OW*hjmJ9qs1e>JQm+`HJgG6L;3u=Ty%$Kn3XV`CbU->K!6ig#?exGa&{PjkUm z6zy%9vl~KZ`?qp%M`2I$|Za^USlQ#_*PWNl{`QfQoFM6wESJsF9ba9i&N!(>JA4jz^Bg9@ zSczNt!enE=x?q5x0!#C)j5&KwmUQR6o5!s>mz&s*yI{KJvVDSqJBMBNabx`1^KMsi zBbp~^AGfx4*L#lwa|&;MZ2M^l@$f!aYGH zKOPU6>Bw>aBCcqVqFCJ#Bkf*_$m8CmRs^|u{+9(T8>R+jPnl3g7pjAd-9R&eB|$Mi zb@MNkpW6FN6EEl*K(pAJ>e!#)vLiLy zi`?LNTurOQ7}?t02ZU_frPe+ky#}$%^-e&LXyANQ{z9j&46x58lAq(w#2@nL?$3}J z-^%P_*T!#peGY(4?j=suKpWZpe>&LWI ziZwses`ma&Zi*_Y>KhDNOr>aO99Fd9N!sraFPQDJ<}-8R6F`amw#|f{wo-pFY;Q(< zGE8TqtZD?OAwz2{7|GAYNCJX*F z|9n_cuy@Q(w;op!$FI0bo%SoXKja$o6vZ?0EkD;j)q(2iph%a)tT5uqpADmNoC;gG ziw^OsDREMDjhqR;aeyodtbt1Ug}De}0?Q9TCpr@Uv+fR7m}@VJLu zoc`!{JmduWfHsHm`exD`6x1;nA2j^K6?rS^G!NmCYx4?jCJ=R)ks44%GG}THU7`7c zJGVM%P9eBzF&=ztn6BJJpBbwHR$s@0KpzJzE~J{oRh+9t1Es|K6(nG_X zWIOr-NUf+SfM4;K<%MF6u3@YCBihy42^Z$#kN%$zk;@`mcFbSv*M7cZri0q7xK+1Mz8G<2se!lS zK(HHe25L0QDRZf;^7i^8o)G0_0ppZ;feQwM+sLC2+Bm_&yO;9iLPiaCWKs;-AG3*f zWjDYf3ZbVUeNr~{NB)2}AZ4Csyg%-*9)znfl9DiL{M(DhU9jokap0b^4dV4cY2fD*fS{}7J+lb<+_ zJZa%iw4h|q-}p&^Bg2e5<}ZGtL-G<`_FazGZgNZ+p6OV6bBS3|(oFD*MHce%{bI%u zv+BGHZDBk=abso(l4h1R3bNp^fOlqx6~tXl0m+Y1@8{R}hzW<%vP2f#OsK6(zNDTP2@iFHqMH^3&pWZ-@jltBDo7SV+qdA4i zn)4qKvViewpWyVnrgT^D*P?F{$ItEyd1V1<;}+(eLDt>LCGq$Q*0Kd}thLB9I#Ld> zU)bDO%j}78MxNDsSSRLrr?2c1I?E=l*zsaM%`zD5G8ShnGm+{DP5}3Fc^BQy$px!x z(>IR3{Ta_+9h_LVZE`;Fkt~H2-LP`(HWLqe~ zqA~+qC^Nu?A)fw~thtW3^9f}JxKL(*3uOklP-cJ&We#w`rS=?jsXg0VYEO?#?Rmtd z_B`lPdlp;h#{(SIPGK#SD%fClse%zurMT*y%;zb?KVOOB-`gUTtAcNTUCF4R;M<>j zl-7`ZV1-5fgRMBAT6HB)>BFU41Aych&O-Ws6i((}vZy--8w5>$wA#tx6l~<=%F>d5 zm?kQ;eUR7=t*Yr0h`2Sa2Bq+$||19zQf-kpJx&ULE+mE~KAhsTD6%-=l#(oXgR-nG(7n8w0VUaJz45514pNUic^PLFB^@-60I98xRE zrR4wlD3|fDijm87P|Imo%PDYq8>*1y%Ol3p-Tk5Std@5z49hUFO7CMz;Wrr}dn$}S zH?O$z{EG?(h0R4=DvE-BXBxzLb=;g(!hpy~1!Uy4E32lU2|_|{u-KODnlNW73|two zxRw@rV>1IT;BR%pz|Qum1d=++gsFWluKS}k642;JyJeJ#Kf&Eyrr7W@?MaG?4S4t{ z`3V#WsB#_|z!G_X?WsVa;_KVpvs|9rYQmJR83exXr&v*~S9>2F6(&1Pw{Y!0uPLNF z^@YFA5V+vRLOPcB7uDgf^HdsVqdeV$BPxVWXalf-&K9?>duqM2it^rWQ5eS@bCTXx;}%E10pFug^~{*(Z3Ja`ZxIqKXT_Vqre<5N;B7Uk zzI7CDvy?Kk3cw9j8Vp|X9~B53NOrpFW&Y|ATcWfGE3Q{rjp`BNH-c5;!(i)p+5r3g zekP$wg%L9gM8(CBhQeme2~M|Rg7LOIt~4W5LDs@g9Dg7$$A&LtO*EP6SUtlbeYChl zHN1W%mw_m!{U*Iz^o-bKOkr|jr431YX2*d|0I)*5G+h%>vH4iwcvEG zsl-6}h@^Ldd&Vm@kEctvVJW*?nGymxhtMr*Gt3y_+aeAJ!*V9VDdRm{|8>D6BrJpL zG{!!?)Gey!zN*dv&TOy%4QAalXvC|YpEr~uM$CM)+TmNUh5H_~a4oirL0=3yHLo!Hl#0y(yqlwc)MAJce1lFW4V&XBEe_4J@NkzT&;_kvrq}i= z0z+`u%0dEDpPq|aGl$V;h%YA_5>qgkVYW;rv|x4`sC>eIa{vSH8 zGlHjUEQ;w6o}OH)$*HzBTBHwVl{&%rnLGmrl3Fz1r%|B@?ez&H;}5iq|ggSgqrx5?i{yp-V@{fY+>qxUA*YSi}^3+EP%Nvw%qWc#+uS_~#b8+EjLRYQ)0X9x78_i}wMo15FY|z3WgyjEF81AD zO6e@r=>28(x4+QcLc8H1%V^K63Df!#FjK%v-qvw!rbFZD(P`0V$+}0Tb~o>5`q$a1 z-SMA*Peu>A(`^G6tXrHL>}aG=E^jhVdY&vOVkw{ow9 zwdA|lZKzg*ZgvGo;Lz2xr}@Y^EuJ2E(A}z@SgVJ?0f$Cn)CjmLvn^zE>xnZYwtq3$ z3^)SAa;;#i0axBXcgP7ufzo*3mQ=@%j0+;(7!rpWL2VlwW#Bw1%gg8GMc<_R!nvz) zVU4bulEmn0?fy|NjclDe#$s9F-fWd6Fim6LJVpqMZ6M_y%q3dxie$(bCw0PNK!?jG zDmjF^hLQxAV=cGT18#238GpL1WAy|~KIfQtY&9WO&eq;ge8~)$aD(NZGvp-db@x^) z)X?gfWVc%}6IY38jmYNP$t?rwSJdD&Ihx1*0#ZVsMhXjXdo`u zaTud=Z*r3|SNY(H_`Ft;@x1svq0Rcr;yM?+Zcg5!4ECT^_lh-z_To3Wp34Kilbtt5 z`!e@s34aaRYXaM{$e1%|GGnQnEo>0s7FB9c5_2ou4~4)8MpjrfN0+;#y32^}&+fN6 zgUe|KVH^aEH}lPsb`BPu*@~j3efYRGzc*%H=PZ9Dmv>Stz^4 z0dV{^b2VwhyG>PQ3Lyu;H?@e|EVX`Rgy)B9p{w*mD{a(>2siv_lkU*k!XjmldgN_U z3lrR#H#ez&Cf%_s&FwJHz(nT6=Q4u(R>V&+CHiJJp>p4zY~c@@Elc*#B*qtPjhsn>PHZj3oBF1;$(w?J~xT z@B}2@%zn$kB}#urr7;nJy+)cix4c}*EUB82l+C?M2Vg#>tnq{ztRvBX&jcCZAj{7kW>Mr}_}T}KwqAk}E0 zGxxU0l5gST&SzuM-xgfL&^ngf*si-FQJhjGo(&;j8jQIO^swDfL_53a6IiK^^@mFo zoKeYKCjb`rB}(^g+5uQ;0+Dk&1@%+o3=*$DZpSaS6R(^I1! zk%U~W8bu<;;tgSUT2$#H+mGu_H)vul#gmikt>Ao4?QUR|btMn~_5J2}Gxxh@%j%aC z@Je7i77Y)8PYBsovSoEKJfBOL-Dr9qb|T%hKnfm5U0h<;t9gfeenAI*pJ}>s4$yrY zhXHfll?~%D%K6?}aL>v&gxp6_LN1{0e{c$Nz=Bb1%ans8>pfU&=qstCiN>70nC4hX7DA z`n~G;X+FpPD5P{!t$x^GMTleeXemD}P=`*JCkygv#j$VNII1P4=XNc=&yvTjD_UXZ;?0roJbMr4V8zGgTTp1iM8b8&b;dU+mIv{ZMjoHgX05p6o5jSm zQ^d51z-Bv*=NzL4nCd#>U+%N9{sSM)(va9AxeV{kYRd$)I>8d>@t#?F&xqOg z5quTU3s%^);uH7DKkVwVfQTpECsFe;QgEx>;d_akWvD(xcI7*aCMOJ`Nfs}93!yPJ z?^?p*9nE_Gj`pUN7SUcAX)oND=q$}>p<<$%P?z`)Noh@2+KIGD?K*FDnX3r}JoN0r zqCO(4mI32CM6N@m)dO_>xjgTr9&w%s;yvANXR7#z?FY!_^R*?7!cJABU)MW&zg{SSVP*K|6{wigeLw`dL6Ojz zf|b${>HTVJ{NH>%B+|durE#D6dJ&Pbm$mbXh?HY_v#w~uGu&0CIiHn*Y-EjfwpN`* zjk{J?kw5x%qtKVNuG#Zp5H%}i_Ba=~XmiBC*H{-gjPXF+bZ`kuJ6`oWF0()8SNzOu z4}&!8WZLqw@j9bb)aTtqYOHfdsD)i@A3~kL+KIrA68)azip@payu}JnQd7Oaqi2x_ z)zoW8s3ne2gXdZ9zlchMhi)Qas^LwdPmdsItWfzZ8)lRMEc=dPVfF3Dn`WZ1*P+~4 zeGPif+wMEm&2X?zGE@nJh&;f5JH2IQkvm zS3JlAE*@ky0~8k0azU~XjWx^6wV-xXdsT_*s+mH78k_4u_Ro~~D43wW(SY6bo^U_K+sdb*b9R;F^;T;AlUqG-M7P4t?> zbnt-|DbxgbrQ7-aEM82+&fR7JVeMiXhjy9E;*5A9V+Z%kf7@Gxdg()SRozF~B|ez9 zWX!zqoW1z<3WP%3gF1zCLW% zPZr{xp8IxD{nw9Qj+b)Z@rR3cVq0!IcK5*0-A#8}_xH*bwDgGWW?~YvvR*XY%}{bu z-Oa;X8JF9-qko6rTs47J! z`A;MHPbc}$cChFU6`hDlB|79D5wU}MhvFms&B6k`kNfCr>sPjQPN_|G-YLNH*%6_8 zKNulV|1B$4288@@M9#KG1~zW1>b~X^O5zbe()F_`N7!ogJMR|i}m z0Bt~$zhhhHr?$0qcJ#M(exV1|Egwd8OVqNw6}2pLKuHQde=t*@KgsCxpOgChUla8C z+d6&zfhb9Vh_R?#fr;}Y=$U%>8Q}7JUuJ^yN2&=@je3?*;T(IPt4yfaiuVEg{6+-e zFvxbWkVW8)_qAGx(q@M_%?hv2v;dtt_=5fZ49nA6CACvZ;Yb(`@evnV_N20EQQ{uF zqm}k#l}$aFw{jc^k7`xDhjXkD7<7Fqv%OVPhgS5ye32nLyOBYZ1(aH0kk4aC8}a8% zS+{y_^w-=)jDubIL=l9@S?NEmDm>A{&O-57MXE3PFbE%W|!8rMG{{-c^6H>%gmA0 z?^@*Qq2UCU*F~|!gOl@tI+@*E!^cHN0yU2MR5VJ+~MZ zdeDw)H7*vfhMJnirklzCYSg%nYUYo{lu}~R*R=M!3QJ@rpRM6oGq|WhDPSb{iCcRX zgJ)v1;^~AeQQ2AXwEFV2k@~E7MAv8NPQX_9pBtq=YTX^UW=%D;nj1|O5P~bybytIf z5QwQViLTDcCzQy))TYLgt7`S^9PYq=7qtxIS2d@o)=IU2H`5`jpi!2nae(OxUrF|E_Fj4yRRI&bIdqCmesi?BJ)Yqeou zZs?qHAw9v^6d*X=HMh)~QxNm)BAOZE6imR1&wjO1@QsDl6cR+$$uO7U8*%0`xSGqJ zrFtX6rquugyR^ntU>pW5U8p=9#+>#D`6eW32kzr))31RIEBsZ5c5r%Ulxg*BQB+2F z8t?3%|wv{gI-4pZw6?rK#?T_WD-V42#doR zSBP;~So^a0EWJXfM_r4H6Nfd+^|9CZ_+~y(?fOJ?)WTh>EKqwHEnML&*t~YpT4N0r zqFH*v`z~r;`mHbSLhxX`G-NMbVE}g6<(a&vuC#~+&B_;+1Qd=N<`f@CHA8M-JjpiR zHB)^wFRHJj!sL;JkYOa>R2H?cu*i>8NT$#@cUpJl>=B^{e0WnyIO%#v*tJ=dXc*Tr z$U`_@G*DTborsfF^2RcY`x(YL>$g!c3Zf@R{wKJd^)Xex;lz2jVfwsJ0x7? zWcYKKP#iYV&c`S4@$C{1ihr)nJ1j38J1#;AXGDlyX}G>sz_M|Vc@6_RbIMIjpKS?B zvh&=~1%By;edY3ac3)S#zi1G>MYRWNi!uT9#s>NT4Q}{gkpPv|HeRkix?*r!!*K-5 zo-E%Gb}^Mh9R8J1Vjh+|@4ZDS0@mMlYr{I5>34&C*uCXJD->k-URvt{+UEmBKYN9r zom>&zF}LWBWbqv<+#P4bJ6v*6#_gypdBcoCv7)JwqF+A}5tWsNKUWpMV6l6_U@(_%7O2Wxb* zO72v7ajz(v`*oLPaV2w$mWk+hm7=yeJW$lfs{J{zrA zV2ppDxEYrj!+-jDz{@A-)p$W)0+BaN(?E&^>jhamdnL)y24jB27mG`&7DYW?o>;Nd zW|y(4B?|Eh4%ReU33Dr|h9*;}=1-g}tW;+zpOy#!7%~KGk$9{g$_o6XaRyIT^GQ_# zofT$QgsBt*;)0sfnd(`()Rq-O;tz|(Z%+c+4#UCh+v^*rZ8F;8I_$CnTCMW@!h)pf# zIe&@@r$D7pkOFqbF;`EQsg0%3+F6EpA+u@?hK#zO#3=b@)=BE24dQ9_3;SXK9(b!+ zbRaLabtzpw=pJ_AX6KjZWn(=a|cEFOYJ$Y z*>g7AQo-uZQGT0JP~7&-C|?749Qjrk>rESi;q3;S4yV2Yd(4u{JXjWzi&x|E2wol5 zai(Qsi_7XkIgGuqO(J8JF#j;;0!`~##nN2J3)gG6mRst9LzM5+{NqBiP3f5YCuF&W zfx#R1{3i@=LRM==2>MDIA-BWUb3KEzWxM%Q{LKzu{6H|oQ|_=0_QXoD7Dn0%{vCh4 zf^l0mRzG=yB_@EKv|0fFlMWR*R2K}EAY?7kqJ6_#1RvWwJ8!YNG0W(0RRVv|pNPdM z_n-&c%G_4b!tUc%f$_!2Ji;AMsM_nSEJmiGi7I!7D6WaIfMb zj%eE)L&ILV6s}{oJywC?o9#ZkpWeZQ>VkMp?3|gZ_-2IIt}{?)NC&J_=EF5dCBupr z5o~j{whXtE_AvL2iZ`?h#UAB$L~%Z^C1 zXs=-|t{^jNRSHDrRpyz40kax6^!@lM$2vwOG>~ZARKbLV@a&;r`K*@f{@ z0tJ^F2qv5;;9ZtAmxoEf$EA4FXezSS?(hwO+ zSP2Dco5%+>$kEkV3k5zZIxIRwwO2jv9_`_Fw_V%a2KEa3b}-zxFSzJt1plrk6twMJ zGOCS*0~Pt=5szOhVe`S3kW{HDn&IAqiy_=kW%ygbKW17*&)_l(HQ-Hd5S4Ba2TKZr zI8b7P&=($%UA)6~oj2*bnPH3xQCOGkJC#;(f1%CbYQreoNK=rm?O;})Gtg9;$9ppg zV1}*X^W4@+@zV{05p6e<@Bx?O&tw}s#aLuU!cfW46mKxgWtYPzD?ndv0;88R438^c zz+?NSJ}YaYPl~wUQ+E~N+{a>xkUnDX8$%r$B}kyRT=XFVI7FrcOEH##>q!D?_q6xM5~4U6*t4Ba@+ z3|2=Y?oQKN@`i}3B5zie1BeXKs=RV9&q+89JsA*hjrFdG&vx8pc7eM9!h-`k4Q>)L znkB|lLiNviInwcD$XXJBnm?Jk_p}p+d-8_X3s<%my$WRcW=Dn7i;lykrA36ev@|3{ zf2rN}Lh9bV1IAw3I`(pmZ(=gRA+ee&KQt;3r)n8B^}H+2zmfa_(e9CJ=$+teofV?y z8sWeSgbR6oVl;LeTLO>4yu6iOx;|Od_B`SqS};#z*|EVv(`s&SXeYt(IInyQ*L|BCd!r7q7uH zWIXU3R_ckW;^Qr5 zPN=g(dYzLi8$3B&mb={CB{bp&6K>A0g+*_7hI2DNyM%e;XWQIy437srKDbWtp13i1 z-VD$h$}Ag!g-Mc`*thKZU@-8jWKNkvkYWEPl#^#L%j|F{3RQxQPA7Dh_NWtP&}>mEPuR&UU?GsrIm3lXLE zV|hjLF5#-0Hkofx6rJkSTC#9o5gc-!Q1$@O59R>pKFRBNLCDC;n5Es}Ep?f+nbm@q z@n#qhBz2p;s+JPd2B1RWeDE-Y%%Q1>D1eLzvSQY0E4k#ho^#U>mSn`3sS47zy&d#! z0^8mqCyq=1G5|QQ={uGQmpPnJIwRu-sXfpaok0SMUoh55X@I&}KsELc*_?Hm80(Rd zXN@%J#nScgh{&#`zA#6po&^V>se2H~?teh;UIN>xU_9wac?B`Fj-#W~@e)3BC1nTc zUUP`+u+)~`BW$6!jJ`B;K!K-RBnAt2l;41pDh?v@Y3(@92OeP#ac`o)ogj_8$R?** zo%hU3w8@oQL_tC@+e>M(H9RP^T~n&JpptZH-Z?y%i^cSnl!P(#8&xhMcmd6)>K>8} z{J6CfG!gZrk)ec=;7GjcZ&JEwMH~u^Kb)Fs%l!2jN%XX$Q}DCWvF7D1-(;C9+H{%& zpId7DA?TcDjY#}28uy%5G-)+9bLwRFc<_X_KeR>Ss}dz_7jyn(zP^AqGR7znc$i(y z**GhbZ72=rtyQ(PYf8f`$Oq-sk9fhl%*eYZ6+sbmKL<3?M39-H*+V}K)3Zs93+KaN zTs;?tp<(n(!dMfolp4;e%6Vpq{jItLq_m~HWYwhh8xY15j&roIz0hB=Ng*sT*YofN z1aus8&y-=3kQi^`&Yq!lw?SJ)u`q&drJ%1eU2{U`U~mFA<+UNQstwkl-xLVNS~hea zC~1$p>G7g7yv30^tQ(;S9t*t^OI%=wt9#&~enyMS_n2m2luOM2<*k&vn&J7#Vp++Q z*mx(QZvF|@)nMbW?!5McN_3jQz1(?EI5}IwiEq32+!FP|;VM1JMRhg6*9jP`t)sUI zvvy0cA#O5t&2I)0{x(Dg@@@yhL?-i4zO~rIpqCdsNlM;eHQ}Jirkl_lQl+xbA+~u@ z#9G0YdNpy`~u zHkRG5gCIamstHOF+M!^lBH>TbS-}9*4S%V9F|*fVV->U`=ru^Ye;Fc2k>X-@>YWPK zaTZAKK0IVaiZ*}(3$_Lk?s^5W1e7;l+Zzdyz0yO%M#3b2J6$~arl)o{e2MY}>sFp2 zS_S*K*=3(7%prTkd=_h3*Q1j5Eua8w<-?5H zx}9NNpJA-TSx1U(_nt7v^C1{m=9de!t@;Kw*x+!WnjP$uRZYwic-e5wSc>LEgRuk{ zFA1>=xo{&IJ*y?mIQ&kaahDo6Tmzx+ZU|we;N}Vaf38H>vM^sh%$ygxMLOOb3}Csj zfB}aUO8}5?1glAB)57?RE(REpG^dprIcCb7MdL(TmIIVaCa5Wj2OLftN-Zvu)$LR3 zM4-AM;TpaehW5L7oC4TQ@H!g7?meMM#H>)c&~m0MoDKHe9T_v(XK|6~&a*btxl*Q= z6||ECb8;_WmT6@{65y*~N5Si$WKgoL!@FkUsiA$BUb&>m`MV@kCKs35C@dH!b1Imk zS5qx`O;M`4+MbQ18f-E#zXGNySS-Za-pci+IS^mLVCNVH_s`@R$jiAnGZjTA7QS zx1>cf_NT#t3;tvS_cOP&H~RA}@;#oEN+=Zl5qG!HY)-t#pbH6gWu!hc{RO!F>(qI} zMg>P4#YdSQvXL?C7ELP%)fQrFx?nEW&fp!N0cF^15}b$SJY*iH;8TaWmOik} zJ=-iZ4;>%O1(lnKYF0MV> zn@~DPcB|>8o?(SzK#RnFpM(R*K@q9qo$3-Y!rj1ah*b!+q|Bhp0cj!s+9Lexxc^LvSC|T3Z#i5?p8oTF#`; zesCDYN<_GrX|s^$+~i8aM;dU?qq>KPLD2>?_-?Wla%LnNP`DIQ=;xVU`%Ipd?$8)V zv?qKkS7W}5=%w(Xh z6I9WX%A7A@+@DWku|5VnWmSG|{O!Rtu7S-U*SuLh5*>s+VrXYD+3_2~#P_sd8ys~u z7Z}`2&0=sznunDXvhvM4(B(K*_EZt6W*54A=0lE4i>Bm0%UU)EsCd8;lHwvxF?-yw zk1_+6&i@5_w0FIymf_L5@hCVklYsn6^=wrWvK^7Msy|FtrRfz6tJ4G_#$ z5=wT7pyCa(Ede@m@m_55X*Y7LTZjX&ZKB@ZH_`9_{KJsh2p1o+00bjKHKRxj>On|hh2v+1IySo?%pqMn$G};mk>^zhGLMrJu z`m(}fwVbN~F2&Fcd)9=oNhtyF6JC72Xz$yG2-?71i_6@eHdHM|lZ40s%WP+6c9Obn z%ep7gf3_?%FXi5wK5xScM=($rK|muTlQ*kCEJ3?QyzgcuWfJ+TqV8rM=TDO1%r}nu z3PWt?qV>lq**g@1r;4WlvdC;lr#BdxTCW6Nf$B&u5r~O(hYBcV7R1!Wm>lk%NA zi;sU!hkkF1X=Ro6qt4_d)a(oqtQqVknLg-3)=_>$eK7%AVNk5H+e1@=oi`^!r!p5J zJax_Bzs!Zt5*8AY%;>+jmEB5R4<>PUw2lAv%@AhJJK&vcBHrxuR;%I7x_=uDSk3RT zL-(xE|NW64yxFQ9-NcsGSJ_(DTz_LQL*6EkU5i{dsjyOG%i_Q2{zlv0cNhq)tfvBOYEaT`b{mxES; zV1*L!A*Aif!=GJ~&Y4#qpw`eOPT4+3DW*x??+5-#L$i$iU=ex|Rd=iD#2oXW-C5&I zakN5#Etap{>!5$O5_GFoXm#1=jYe1n87yGz`-hdd(S10eiVuZ6axPwbJ(2KUEO9VK z^W8GezlMa(`$4lpHVin_^orqt2n>RDZ?F7a2H<@6}!kXzxT9u zzsE{=nJ&jNym_oul$l3tD`sX6Fg;D8IxK=r-a@LON4FsB8LE1@tEn)7C$FUdjWL>zCsl&HCf@J#)~|h<eox}A#|l1P5<;sL(Sx})p#Kw* zAr^U3C9jq$5)IlpPQ!_^w{UNvKb7TS_yn_9>rLSh5RnQUw}kG^TMd&BPck$UBsWpJ zUUsL8L1$kIS(iF3iXMU=bmDU9=H)6YoH#L01ka@wLYR4(1pTO!>k(9`W-aN7uAMoL zb5c)g;M@=^+-b=8@8JAxn8>tTXnq8aQAGzq%0%>rMKNJ{P(?hJ|6Q z_Z$HoS}HV{q$0Dj%UqQQclUBfY2rx3j|kc8;!2&${5)KvJD6NmW70 zhR*3?+p{?koiWmp5Gl*1?M5V-9uY;eO} zRtS8`AQhKHPwLu1Z#0B5D+jdHgUTa(6^x6QcbI zqTgMYi!#_9MV&T#V^Me2O~(wpN$+mtJRU})3|!srQ%Ury(P{^kzEq{D8~G+8;tV*{sz+3ZZZ#rU~dPX zFnr%H>*vv5)&1Fn7Lo%UpfPWu?kbC!MQ!ziT553!by-D^#!OO6kf_2=xJiGxel$dt8~g$XEqi5zHl0H(`*QrQKMxw-2z zdsqfte`HUBVHlg?A%8$TL;U{;&z^>1C6}WjW|p`pZm0+l6Mkj}ZH!yq0zgtV{IdgF(yh2Sd^G#UrccFd7>CM0co zv=4=(UE`i18?pjpUYAjN(22NAS*M*j?v!X2;^z^v0^BKic~@RJRfjDAl?bDu2JwVp za2(~G!8SV~4O@rWphY4m3Jy35tQ$xEZ~J|~(Q-yL_@(b`b2`E%?pqS{vkXLW%t`im@)u?g^&zbjzF^XO>z#AlA3v<#(K`9U`RjDnU&WRV;Fx!me7*n@ zXea;WN2E3lX)>1X)@f`of&%qKAY}G2DcQ6ZTz=LQa18$M$ah@j+e~=gSH+aZ)<-Z< z9rs&heKu9aaFyPOM*x!q3?i9x;d!y@Sim3fnz=gmcN(DhxO?k{m0UhPOM$YiC^mcx z>$$%%#wf`A-xPQkWoYzj$*(5Z9borYlnO0OF?rrHlam9Y9pzpG72iQN)r`#>7Dx7F z!%$Q8z<@Ybs^M6Z7b^FBVZza~R02Y0(X3SJ$Q#8J_?yu=i96wf%DnOI@39F9_}EPH zF_)t^PY~fNDT>;8zAGVF^l<~|J7VqnCyYTXF{L4+;PwQwFIVX}^u~X?j@xieXbM>2 zNW)c)k^w+^Kt>T`mJ)iPh>d`042flnvGXt&x+kSHpf&&p)yNT_6D#v4z3`r4B}3SO z73c6P2Hqp80z(k(zo$U^qkoS-3P8Yr(9IP;<)_83%^-`M?)ZU;`&F5+bXzt)+ahF& zoN?3KO;SS`nUdz(95gw9n~7B|%BdZH-Fu2jyyAxU4C8K_Anjnp+xd5w3z8gp;m_Dd z;yFz!Q^&^~{j*^uuVDg*LM?z=|2)ENAgOv4B!FVd!9FS$3B)6qjI+Us{*V1<>>%dY z!OXJPX9po1N(KNo1oNLAG6G`)p%%c(cE$+iJ4O&3C0~+Tbq}12Lx{har@aBCgJ)4i z>2jeU%yx*9Hl8Hzv5weCox>GgXVi@GK}JEK1gRR0zy_UKu&&PG3W}%C$!i&odR`@}ESss5xUzWvt^kr#$o4zcGAJmtw z_$hr^7%yQASD=9Kb49#1B3RW47O6KmB6!tgM2L&iB0^luLsrFsvQp+a{3DiqS5hGr(W1%t}1O?F1(!R2)B z8C;yumU}LlTa~VVAywbgR=+J>e;Ah=leq+tU5~ca52Wf(rRoRU>id)R7pmTwAYYq} zjE1>DVM30`lX*jSWpuz~fG@(P>Lr0=*ptlFplI|VG+C(}0)G`cmTQk!rt0zM##Z5q zd5!W~#8z-Y7|Z%La13e?s0ijCYe8JNs^ADo^pFB*vW#vYR5a15mI4kkAw(G~=f7yK zr9K#|FBYoo;`n@PK13MGh_86jH{1P;<*~XAYg|fSy_n*0o!K+iW>BEfpYx!9gJ%vpcHg=Vqg zx7dA~5=zOXpv(#}FUr~DU7gGkOOfenD2DO&WG+iANd_%>&2Qr(;o<}Z1X|Hk3lEyC zG5C)=dvJ>)2pM>_+Msk;avUK~=Xt0Z#tHQC3lb5|IINYoVXIh3MD>k$D^P(qSP}0k zzdZPV3Idnx-)nHoWSPCKGEejx3@MDcv;OVjyuHmlhEFQ`PGZSkOqs>y9#$ZssxlDg zZi9<@waDy_>a~QH=q)mDL(zIO5U+#T z0);eMeApfyeeofu*OLzXI+=^c^Tm-`GYASOA%)oXs3r(|Rhd>L7Dwr*EXP7LniURf z1tqY9rEgV$XsKdBW7VY$NkE4HTmmDXQ~w7b2RK}b$6aQyb@FkJr<(CMP_y5Pm@XK? zu2b%RtmeIWmJ4W=lIg=Y=0D?NQ84jxxLw1896c#ZmbWX*^azwCetkU*JhKk2t>MlXcSOc}6WRu`|kQE-BidXO#JBT!q_}mOQSC zo;aIIO6_ba)tNM*RA&op{p+jl|H#`zjNr+4CKnv9P3C(4 zy%ZbprIBw7 zz9w>8@nF!e{@~;sXh3Mw+Ch)M|4aF>lA`wov+t#Yi64~?&c@n1KW?u%pX{C!pB}t! z@GpQHeB*lbp*Echq?aAZT;-*atIHu<^flh|$suEK^RYL%;C$&9hXoU(Vg7q?-j@8I zN{qaID(kOZJ{G8!UY%mO41XHYO(y%zOK1c>X1W5&bA=J$e6Q zbKac1v_3Vl|7*vvIN+V=-#zwK1G#5tZ^QMO756YfqwZ>HZ}}L-kzfQjKHru*)RsGy z%)QWde^1rIVL_KTq?SLj!+38xcNQ?~Vf}zquI6|uw+Dm508&+n#|M+|umNuwY;#{X z4&L&PHyGzz`9ps)cLC!Z2{9pf(_;fHX?w1>1N-nq*nfK{bZc{3^D^P?yqc}p%a{9@-V7jMZ$hIf|XuSn-DkzC}u&Rc@lf7DAZc&_w| z`;rr1o_FQ3o09im`ua`j+{RRQepM6xjhgHgLmO2^}Abgkzt*s z$?jAnx!`E&7f)e?nRNNQ;E79X)8$X4%Lm&go~r8lU@-CNTrjv`)+^Jw87OlR%m5Yv zo82R$!^}=QHd`Mb;77|#JpmU+Oj2^eh2YzF@onOTs{8LR!!*!YT!KMq6^_>GFLoohbeky9GbRZo^Npk4D?dxBvg!{aEj+ z``-@*0o!vErm4F|!?rQ2$<(F(*R;C-wM_=^NtbUA+WJO+xS*QZ2Uz_ic`?PAjq(*K zY|QFEmf&mA%uXI!&*at!-?ld#L%RI2|5w*j*zZ5)*teDZCu1)jZ()oFhm3LF%-f6@ z3*)rGUFv;<@r6AK`tslT&i-x)-u?CX<$VoqLq~Dje(T@yuz%rsk?Tu$CTr83lLNtL znwRWMR-z&fix4bOEOx+BH$W8G#;@C}zKbvi)DU2eoKE0U%^bY(`DEwZgXzxc1L@A0 ztcN&2#x=V?;B@KExjj%`PqA)J&9B(YfWeJw>u!EiI^bxPt^$)&T+^NN0%@T$5_d&M zAbAG^;^knL-e*1&&fkrfk_%o9cGqm4z>=@paxW%xCsVygA~;`qpNX{P&ISCk zt^Ryl?wLT5O}%^|Rlh1#-b?NDw(iLDXi1ma>NiTit>1t$3aSva8v1PRXsUcwTm2w4 z-JsvE=%JqAYPx<$pzc!T#&OX7;fujir+Np=QkQygwJw=Ebz66{1`~{Q8kkxm`FX&H z{|O33WcV$eEHx4NO|DED7g=L)6_V?)fWuw`7?HPhMy>*PCF2C-cjQgbRA?u{3gjZe zD0cHEH<2u&6^r&J%QvTjlj)0HWT|e2!Fxxgb92Ct=Rv{>=GQGYX5bNi+VbX<^p%|W z>by4{`|ITWFI9c_YdUiv$5j2=3dWSL4GxO=!KGByuh%5Y*QC0uzv*TZc7fd5bp1Mw zIv1QzJ8bBs$?}ct;nT0}fV~*I!fhSf73uQR$?j&7UAp{P?XL1c?vr%+d2Tz{ps=$` zxy`EXU-t@*p?UF{824-(MspccX%#sZS@|7R=nyPHAd5d(RE8(~FP%F8GY-r*sm`yC zg83#Cz^0+G2iX0?nC=I;H_y7J)4As`&PRFmG=`}9KQz#>h|iDGxoxRjZ~Df^()Eu8 zV$F>(b)<6J(-XI)tJ>BktJ?Mi|F6*0RJCmm{$I`~Q&nx}+B$DN*p}Op>b!HHEm(=p zDM3>^gMRj>a+`y$_5|I2bny8=u}ODlQK+Y*HkJEAT`Kq0#Gl# z>f3l9(8w?gHeNTfU>4lalesm?AGPKBInD8t>NN|CMgMgKeEt z4sxIv@0M`99UAW!g7JR!(ZN^F|6h(5oVGq$zaiif++u+yGK7C8I-{{f=kP!x<<33z zU&`mYjQ9HPwj4~Ua4Z@#` zW#YD9&^L{G<{S2Z6cw;y{bCv@PTYGDZwU&Zan@J!E&jb+V;RD|%M3hG*;d%aRt-a4Y0$A_; ze?LDyA2R2$&wi}E_S$Q$y&kniI!ukStPeXB61+NpkKydU!%Ej8E)=iLAo`mu*nvnM zRia&XsvMZ=cL5pR#g3K13)s#;JVNx)L6i(IJ_u`s%OYr}7yj>Id}m>(R_z6 z?mk}>wn2Vh3HE@`3E)E82118kx&ykP7sKCoQ0zMnBu$co(iT7}QgyzCSV@BmZi8l9 zbVS5V=iXq{IZ-4kFm^+xE8~GUeJMt76uwAJ@nMq~{```nC#Eod@qp@Z7ZxC^! zxQ%?1WTcO%zpy4ErF-mDW2HM;;u!4k4-%8OMJrwfn=ZTz=yFNw#z>NUU{BGD-(yDf zsP1Y*{#|#yOOnq>Dt4>fZ^L;~{>dZxClBQxxH~&r0NSqeYU~FLCio6WLK9fip2q1D z4L6KoD=H3*{6~N=Bg>#HYlr?YmmG6yR~{>FXT@8fcO_7*Gg~a83gxzC4-Ysy&1#Rj zx)F~(QP&62;BjT~AWV|P2@6m^BH=3l=n}hZ6uRMBmj*U8Ab>At9k#jWj$2mu88DS0 zWqDg@Nc;1HZ1E?h4Q*jVC4(?jgwuH*+*oXQ{z1&sB-uL*NjpJy zoQ`p#d^c=K(@Apz94_=;Yi~Y^SObHAH&J@yY8OKQo=C_a$YR4p&=v5$_Cr*K%Fh9M zUah#5xZDZya7yQB(_Gw)bOk6-3xYT#KV-69WE`1YiTJ(}zTYaoFZ9dLs}Ki}?JAM{ zu|46q#{_Uss?3%DfJr1!oS5sLc!tBMdJIE6nR9D0Ho=HLCN5i4@XH(U^tNi zv8Etm>HmAgf_{#56LLYPRCfl!J~=spVZ#!G2xXL}E?{H3zbzHW0>geMG3+B{$+<*P zcb4u1G!r@`jd zOzAAm)jZM2pTk^hxqDI4{Wu9oAmFZp7h3V!^m8cdf-8^(PM3Fh2|||US{rq>gPbD2 zhw;UKZ%+ooIbg3}Acg?qQUvk0K$we?NU=GJfaITR#b02hQCCW~qPaHP)qTQT&l2!- zm!O?m;KIG$d!N==-wcu;t)OaU!ufrVH zhf8)YYRY5&T3ictxVY*CKiB$o$FomE7H%PRAgljT)Z(_YXHLbNUwV@9 z^dX;41HtiZ>^GikdjG?C`tj4q;ufi>!4SgR3$%oZmD&CZDFuP~=li03ulfD)f@gWr z=2?VDiCiXZmsR+RXh9N_nA$V|Zfco<>3HF)gc-v|{Ts6v>iz(pNK^|Rn_*W-p&lGJRS-l7k6`Oh?uh*RxI^89OiXh9tSJl#rS|b z&mICir$|ZQ6|~4vfWP}Q1MAdyHx4X0P7G|9H$5=Zn>(<*-mHQ3dD8rNc9a9t^p%}j}OX-RK1Szwn_SAOyOpWn^!lVRm` zWVoE_oK%6TEbnr4h56dZ!shrVyrmWE%PdB!f>{@(Oi$)O3hw`yb1(31nmGRgcI;5; zPNai&d&=@@Bg^n8$b~Gk)yfh_JooO-I=vCqY+e}txRm7+2BqHjsHt6^@X%&> z;!I!WWgZS3+7Si@0}8^;fT11m*9|vxF$B=b4b=>_9}KoHJod$KWd5OuVm}yWU*y{t zr$Lc?C~~^}puoQH+81Y_jSUnz(|$0*z9_UW&W0j|P~;r@!CCf&&%XEu3N29NJo~}9 z_Qgp1;({aw^@l9gHmruCZesGa};kPd?g(7|^QfxoC#J&jF7vI8_ z2t_WpA6#Z%jIuATgd(G$NU8nc3j3nOzW6q-Z7A{``@vQA#c2EDYA7-qiUjQk<@QAx zGpV>JH9j;AGd3})8s=Pkg$r9~(VeVcScD1N{bJ#U7!ndef znpvXF9dV^1AZGH8#F3D)_x`IapD7T|D3Z;C1*Q^@WEeK6l37lIPNM@%#?; z8ANWlieEoE&Etg*9#rAu!OWQA?Oq6968#OXWy<7DOi*KauV?P}D_-Y*r7CZ~suVcj zM)Sbk1P|Uaxb&)CxF74q`;Zsk`|!Pw-uqg!zE=wJvOdQHs;sY-g0a~j!&{%62KXEe zUA&qX9(r5XD>F9lXUe6U$YONueq|>1tjdAyIpG;Rpw3k>>LNBblX_PbqCR4SGq1<) zRaH_ar}%Q``zz{qoLE2WUw^27{gwUdFKt$4G-C@XmK+N>H5QNyfiqT?D{W>;74`xZ z-l_1;nfv+4`K@WTg#q$rwZLBiCe#oM`2lLl_?uzg8s>*g1$J~aJor!?)PUT(aFdiH z()u4>_-Z8hma>pUty#lMH%FQ_H(pcP94TF+^X*M*lqFA+JTlHp`i7>R@xdBr9}e2`zDVh2m2cB$hf6 zyeYzWkj`1^{{eh+@o48;ow`b^HpFHEMS~cJ}ubQ@V02zgH4iIg0D4_ zJZlB^ssD4;>S(eaoTJU^iU4HVnK1#FrThu-f1^Cl&TcQCw?m7)+rq)F*m>|NOLY5C z&-CDqleOqPd5gT6fT=us0{{wYKl22DDosJu8RUMb%K8vyr{sUk<2&%fK4vh0sn5Lp zn5d@&v3h&}{+FQqlFbLPrZuq(vMX_ttYB4ok`I-fgl)p|=SZ6(Cl&M|AzXdSQS0RP zQ%#$dg(5cEp}z zHkSHu0CU|^q9;ok9}gUSg@=!azlGL#K+cICvjus4JYq~%fLt<=&GPW@<9f2f2cHul zl5lI`b%P-8Djt4?P+XY~tKXRGUjt&7P@fEVZJ6X6BWE65fU1Z*odXxTFE(VsuMrxS zH6H{^H4rJaxH?zmXl)Sl@DA1LN{*Y$lFtf5IFQd*kk&z{T*!LH1FWsJh-|Bk=s&{A z*HM}`e+Po^D{hB)X#O6?!vCwwzWpiOYCHlr)BmCI4KTU%_&N9{(Ky%5_#!bwk)OsU z!Xm5FjmS^2ta(>~Z8xVh{grB4f`V=O{iLk-PteH66~Rqx0JhQvbvu=X=nW)W(2eL% z;oCo8OB&ybW=*f2juQ5`0OK8Dek+VT@+$F`9J-vv-n6GvhA1E9Kc z8nd!+1OQ>d>u(U@eAuD<=qP%=@%T?w<(1D1yYom@Kh8(>LY)PSPxVsAkOtpk;a*>u z>Ml%1|FGbYr8pdM1$yjK7KY(fH%2XEyuusi%dvs>aTtZhp)UBu;qZbiIo%N+x);X* zEtDXNhLiE1>O9}6!3y$}4^f(GsDfY8xbawphRk2@BGDJbNP@_M-`m&#-@&{{P#_ri zxVcFx&5~3Jf9t&S9~HLn_nJj zjaTp#@WmIl{n3IMj9;blwgvA4GFTVkpJ3{N3$2Oy3%>8QtYy}M30{Yz$bo%~Hd)wb zO^Ljv^TX6Z!(ATc9g*S=HP{?h#&(2*8Xp zM9$^vQiEOh767#PI=Ho(U0vo66a=@WWY!u|S!;;HK{EoMj}RA~<{gJE3$Qa!oHwPF zv%izdT0uzwU(Q5k{m-wHPJ$Aa-=f}h%gs0SBiOn2twp5=fmkud8PZ33!TnCp62~QtrfXl_=vM%{Rz4^=GSmIY?O~Z$pznXc}63Uw7eSS1T zOx{-r|MTJhNR}*3-sdsr;ulD5g(2KY<$WK}Tp+bVvo+v)Pg*r3i0^g=q}I^=HRj_7 z(nJw&mwsVcr3cIJE4%-yw0?vir*|y%DeMjpmGBvb=IvkLMli!8KKeP_S#81l%IUSA!tksH4=v%h7WF~abl~yIAF5Xt3CelZAM*w~mNH&Z z2iQJ8jChXt4#@QW8A{?usH@>)3sv5H5hBnv_$LnZ;LS+s&Ym+-K?G}p(tf%sN_1Z7 z3G=E#SOg&N;n9M+U>5*eK%~E}09YOBg7@(Xk0SV3H!3c89`yAHw2o&OsqQmT@Wmcu zZ=<{=j6!*YuY(R-?Lp}9k7m%h$%wu@v}WD_&(q34K%qNc^<>a$!77}EEHnyDpL&Bh z)Hh!6qazJl@Y(Z(fCK(GP)<~nIOspjjK~-=2ZDWJG~56qun*9k4(p4ceIK;1@lMq` z6DiQIT(p~YnJf2Ywz@9!pL<|ZEw#L{?EY^7J>huZ*@c_E=DN9rPc1Zmwg;zks)tH% zfE%k_4K|kDyOkb13zhLmNqMA8X}Shl;E~bgkvEj4E9kncJhDw`x`?jFlt0m-+rY)&+9{L`}o@cihG=c>AdVYry~QBrXSLN zH`hNmqwhnQsw+ZL<5~rf4IyMTG(blyTVuqfPITXjj27lu65LP-&{vvrh5fUIpAuZf zXoB!cXgTF%{8ls-(v1O|Esq1(Fv%|~%e`Zj<@t`{P4Pj@YHnH+--E^#O`GGxf!Q7M zFC=N*Ymk>|@YguvH^U@^%<(;z72%W0N`Wc^C%z^&KFV(v_F%jnaei!hwXZOK>A3P~ zK5zWO2|Voc=-7I3^GVtRay1L*_|UyA2wih~C#(l=qvcpV!F@LPM_<9OwVgxtek2UwcVK!0VWqGU_V z2jzZ)45rF?=1Gg&QYEvG2gwCcGAcvH|b1LjP?t|Yc z!Q=MJ_dakwER*qp{Yq5=E#TS{7!ntI1CQxR4};pq`{2)H)O0k%|H&TY>foXSZ-`qR zuF?>QrBMR#ykIic$+0T9;bH@=@K9Nj!`p}hT8A7^wKP3MKbRtNz{uIJa5TOshf2K@ z>@G}zE~s`FCQujhMHi4Uw00?hRIb0tjI_LU7g$m@Z!3lUW+D*60gI2oN=rTn zEWv~R1;5=!G;ObC%m9AF#a1}P{l8c;foGY?f07uKnRk}_CrwuJpJWl4d&&ks0_aCN`L!cA^ZnMq&)ec$NZ4cp5rQ^)*tlC0{K~mUdKZ1 z6}m+Ndn;T{qs#V+YWX|c!rv_Cm8|(ZMEulal}D}8oh*4vUGkO&#vjKP%{V+{Nn)Im zzryet<+qgGe=h8ACl6MC3sugnJ}U3|PdS>fj6 zJtULo184o!=QSre?}YJ$`4qs${iU19gmACQyZJ!1cRwHJR;{&`3gh*Mxmv^zmu`l~ z8rcTU?+teV?;b)s_l~eJ!5O=JtWl`&7PS~eg5Xq-GPXsvnj^`IBGjtnhv2j9PvVz4>d}W0r*ZOb;Vi@oo)Wrnd7z5o4;Q_8x%g z3QH(PN;gM%XV|#cY4;~bo&%m3nOrv@Ne2kp2UB^k#J?7ucZKxTDoUAE}(v;tP`KV>}j0V{dWmOjlawx@Z$&%t)TwUg`NH*S(`RZD!kjr(m zD#@}mJ+*$B-wqS9L+9rM%u9FDoE!oW8&RwGOI~45$v#WE_LNt6lqQ3&^UEvp#daL#6AEFP zGm=Uy0H_z?DfPmXltjd45p0f6gNYd~Cx-Q07KT;Hn|r%1Oi7V_!TULL)$zcE5pGu! z1va@r3m0pk$+{FZweQ04Q_zx+Jq|eCNKK%^H%)GWsNUHKo^lI69T#f zmq=Mg@qEJh?+r5q<`bN^>%5$=H79|u+bi-(dAvti_%|{#n(x)gCW3$2I|zw~vJlNb`1rl0oB2c!zuVor zkB|R1EFP-@sMJ&-W-X_Ax(t&v+0g*;0(D3S2m*7YBji8iLAw=T{XB?SvU+Mh%7iC@eeBCDLfVy95>&j4t5?~M2gpl zahEfGeYku%=?t5;5L4$}w2MqOFK@f|J7K=)ZQ{M&K!xO-i|9GMzxVWT@-HS?wf_ZK zjPAuwVGl>KYm&=9qtD!a(iJb!o0^qJf8fkL&&g;2ZPni!`m8>UJGIoO19VqoiN+PF z3%m%`b>dR+R*Ba?6IGZwion<;2JG6w*1UKyL5ffq)pkd}Q5EHm>L>opsFcJ{ky&0u zm1DI{dt$fqn?^?gsmmj9QxN5=&{_t*yXN2MY`g~^FrlwSd!PL%00WDDc_eUuM1zN) zeu`vGgxS;pt%}E$==@8T>Kl-B_AU}kT%IH51__XPq9M>dj>#n<9DLcr3iW20E)qW^6`iLnkAau0)r5# z)I{Ha`wHy#pzx^f=Z_&_KNues3GR+vY`?;}k)~TPR2#DfUt(U2qJ&FBGXAU#`z{W6 zE3@q71X0Oe3SuR|ItW3JHS})z08kq7(OgX@fia~N`noD4>VPT;nUd&?fUXK?Y*+%g zB_t+^V3@@OR>fE27vmAf|F;M>`hx!(g1x=3AA+shcM=3!^szv&hyOEzjh6^^9U8wO zk?r0t5lsE~s}StMj|GCA^D)Y?G}~x-DYgxA5V0k^%ygyw>*W~_>>KgPiIoJhco4vq zByh}VhM{!adsUb(K!};1^9fcY!rXgadm`PTv>Zdipg2zx4;`f4J;@214x4+^n#MC2 zZvo0_yL#(NIHmFC)_9eMUJFawP=-6$?2HdlSL6vvuyv)2tU&t)D~tbty%hQzR5aTD z;)N`c%0mM&G%pP{H-3m!>L{_NT3PRQv}3z7t9-l$ZtP9~Uxn&~f(S?EPg9nyVZjb; zHpacFSE1mSOx-M;|Powtja)tV(=rQhd_--X~rM=1t# z_$u}{25gH?AG4;Njd7NI*)KFS`&d#~U6)#v6_d0^^Q|m>BQOlB(Qj!Z>uoq%gb^Vg z5U&1C-I(OmmB>a-30ur+$I6078rD;APwLyN(k0VwEM@N^sC0Awo|JBsjMg?sUXOik zj2=um;{{@l01M;Sh@$tbu6dBrbiIFidm_ikFy5gm+K?D|8Ms1 zKlLE@AMvv!-(!>xPU~Q}G1f_8hJ-|Yu*Dgl%6Lm=TwNw|wJQhT;dHR#4ybzmnM_$m zLp_28GvDf{-su8Jm*A85QWFwmQwTsUa+$(^}SeJup-t0xY0mlhL-i>lNoy`qlQX@If8WrD1yp+jg!sfHm4IkUEAr zKEsoOYUHpsr~S(}qv>HU2oPP$a`%u&T|hA+fMcKH5drkOhZUPF_+{f+5`SNUY3sCR zc&&|WRvQbhp8vVBd@2xwb>gx3D!47)jrN2!xa^1gM%WY9Y5YcC#x3>3TUzb-a!60f zHGmJ8{#mBq%JMv655BNjS-3Ti;>np>@}XVPF0qM=%l~ds zznZJldS6SldDN92+E>p|S9qyw>&z$6;i-tC94^1XgN0=6`4pt1Q9Nq0l!b30Pq%y! z_IqzX`2qW6%y)_}sZ9K{?sa$yH0v&^pqu;%xV(8N>xLzc!PfsP(jHy2_fwDK#mjD8 zdb0X@So#xS&O9$&ZoeHk=9-uffPjw&?OY#|>d=@qA>$wk#UQ$uiGe_f-BuLi8t|s047OT?RGd2791@?1aPcZxW5O`>w zHpt=V@dM}|`~*NBkn7=O@CSgx)HmHPz3_#H$Eh9gru zAwjez79}1ka?C%U@rnRT0wPZIneK8R1AJY&RQG|hqgMJZ)1O+=D5FEmJGS(llw%SS6C4z zYkfk)o2>W1t|7#gA+V27*H2K9XW+U2CEAFJo%TjFg|2Y_sq(gmd~`5zfL zuNhAZ23opDea)h1n!CbeILMEMjkr?{u8s{1CvW%lxU4B&gKh0i0diaMa}s@*@d{r= z34bYz%<=UM6pMj>iFD6kUBLc4;O40wpTYi>ICRzn0}|$UdWIV8S9o(_!knQh%PdzP z)Pr?+unw!Or%kToww_m;4kjxIjFqHe4Jp4`4WArWlcW5kcNHd(C$~>O<$iklsrS>I zcmNVM%JQpWZrj6t<`7P00GrT4p!LM)T5Y9!LJwOP#b&|ZqWgy!(tU+jcEhp>yjLeK(jhap?T}&ou6l64A9NO*{!WR#l+-E^=x zwGXfR*5EbyS?yVa)=@A>Sc~6o*qk-M{s+J5@nB!d7L;S-7+-wA$;nL z5x;m3m_X=Qjruy`l+{(br~F%uwK$q8W;A+9H3r<<15hsKJPadB=*EEW;rD!UA5`_- z_dH|^6Noe&q-YrHqDrKlj9IMHQSofd_gSlh-)dNu*7raYBdm8k4%!f0Iua3q(1}%L zH{ZytUGV;Ntk%BI!jD-6vBpZN=(KP9U?_8#LC zbCs<3+Q|16`&C|Mzq*yqv2=eW?L!>BD*M-pJ6Dn1xmZbd6FL9BqCHopy@N+jY>$-) zRw&8J@B(myh47;8tGmK-yQ0r>qICZvm;mgS|;lT~RBJWg`7T?%~R zKK=#oEiZ4JAWY|tnI5VCndmXU(}v)|@Q$degGXNG>NC%8Lw*u{AbpzEVNqZl<}z`i zu8|9ME0U{>#}XbQi#6Lld!0ZkNk7Zct}^biRgjEp-b}zo^B=1%>ve%+W_f9233eR_ z)I$M;r(!<6n&f%ZvYxw6(2MynF=nu|VV9s2f?}+;;~r-5B&TfOm(~7vPSJjeXy2D< z{}*fjm+hZ$K1e39+sm(rd&2y9HxeD}3`MXpm#wm_*POK9_u=XHm%-JI0qh6%;>lIi z3k|5|nQL)o`mh_^rCM#_;NFI}k<5f(3mJ{`XU?Y5d&`S4t{uieQp_o<D+?hCP?KC2)Kq^cAxoNz5j zd5w9rVvmUPs3wj$nG#OHhF1T>w2#r+h8_B>K@#1WF*%Ly6SC2r&5|3=Xq|UJ*~@VG z7&k!S2_9BFxmp}C`=x7yp=9#`H1`6@#Wap?BIhJ9KvRmg@2|~?rX#i z>KI)e<}Wc^z^pT&M}l6*N_5@=Ft`NI>(Pm(xC?`_A;DG()QoAS)<=;kKICWWvs`Re zi`bAuPR($q)CGN1)s-6Wh`>NEWyRYv`>Em$yMP%FL46^tFW&{#u|A5j^C2lf)0QtQ zv6?JPo_)QRm5Jxe2b;SvIKZr-Vt}zLb)EvURLqP@==U~T-t@XpC;QTZvDE$3vHKHb z_j6JGB=DOB@UzyK5A-6wHZM3r4V5$A+O)IrN(_2xAa-=!nmxXgf{RgmDt8pO3M{ye zoY5M~N;l)Km~Fob{k6zo0YKGRq$&mB4s=!2J4?`?PwxP9+SIU37@6^A0jiVte>*=6 zP2Shwkd52|>>{?65~dcV=mG!g9t-0K$_rqtct< zHzs&6sNoOe`4w1f5YBk4giATiw~WUll_FmgBvzGOq6jKMgH_%pLzC*DDX2 z`E8`@4pzMGLGOzGmTl6}tZ9w%6FHc#;V*fJxKhny-uEv&f13o&nC5MCjfAAnyiq)d z>%Hb=YW__izBjyC#gRRafZ%pKj^XP_{<34iN1pzHN*4tC4c-6hQ zKM2R>!ARD;7%U>?3!c~TJPIczUsx6&C}#wKQ+Lds4Q5R8SR-D<118$?d0Vc~a%1a% zu#YP;e++a1wmXanW15R#S-v7ql664T`;X9JGVJl@Imhv`6H(cVlQT=fE!z`wm+tJj zUJ{px&es5;xVCgBGZ1`je2ZS(F8AMj2lAsAYg~80uF5>|k$CBaOK-d&&82Q?*!oZV zD7)-)q4@>*u9Z|jyRsU#oW>y_RBy*u# zGl)~2;o>$ka>S+uX*g=hfhUpwa`urF2AMEYFXg`sT@z5*fUycSDrYG?f&tHRPf}gwGe85 zg*8n#x+Oeqi$Zqf(8D?&%+euAI|dIbZqtj~v|w{XISaNoj>hO%B@+$zwd@(4;)r3Y z8dS~WDfhAKg3v zs*}j^`Oq)EEh$o>mF^MzwsHkaeNe=PwgAD1G+B)!RsNpN2MTK$)dCdnamGLA&(cSt zuri~W%6HTc!oUX2J*TlvX5xJ(8=9hf^g2*xtbsjH6zD|X!S=+bPAJBPw&NpoL|CKo z2rQ%OR4#aNkX^Sbm-i`;lwjtGrjOzS(f8thmlD_;DgDSAG4t2|i(sOW+}6Pw}B)EA+SyE>uOHGm%blt3Gr>C~Ju{s`h*Rw&S1d&Lrr+_jWWiQlI+ z28$1#)dNYc^6I?Ohq3;WGL9F@P#B{!AVP%hblD+7xfA2Gr4-|*18_OC>b#d?(kjdL zMvHf0#6esuj|%$|jei*pexVpw5s6+bm(Wi5;2n(Ftt{JvAsd-d;nZAhy5V0i!EjTQ zbIIR>u%;yryOqVlG-_+q7<*JJeiMTUvf?coU(Z}yL6Dkci|iKARSn#3O` zhT6jjf$k@g?kBkFrYM2HGd|&l_im8m;DP3*k38@MZ&e_`nwRMEOLmV@2prTi4#h`} z!~*v>G-%z0rbBN=$^Li&_R6(2TAZThxDy(r7}tj8rpipaGJAx0!07ry!{F_^v|z8Y z*h`cKql$5WAr~;zT&=pR7o*wbK(^_(h)yHi*tb=Rk&mg__yGaZz3|_Jsjv%c{2iKu zBjjAyt`)Cl6rtb1dm~D@zEZo~QNDrE!9ejEMs8_t;i$+{P+x1*nBrtsbCiF;T&scF ze+u)xMWbkw2nC?6ofJ?U%4o$Kn5zv$J~w4muu@UOy(ntjLl%ZIN+Ny&H5{PemYS#{ zim{F{Of$~}DSQ8h`|1(>uKqe~VHp*mlp zI-eJHJ`Z)igmpeI>U=)xYNu*n64kz>xweQ*3u7#C=vj{g3y?fdQ;d$xVylyL6nt;q z&A`7*vNI(h$T7CONGL!-)$j@`?Kv$J|^6{qaSX0 zPKsNBufQ!A?ASo7m-U{AScFimh)|j_(?v+ddu+Vo`v4nzp(LXIPQ)Qbf$a^yNX_8- z7y)jdPt)|hIF`E~t4O+ElsJQ7L-E;@s(hCJqzKCIP?MM+Q3U9Jp1Xer1)kSouA#`! zV6~H4UL~hBk2~#oblOvBGCN>2 zPz2XbB+NJ)ENO?4uEs#Lx05~Svo=>!l4HYrO8=rtn~?#5RWIHrbkx8bYQ?6`Z}#c@ z2Cv4q=x7Cin?yARhFwFl3qTxx-(;?iD9RZFarY?`fyr+OP_S!?^@`sVnTub*^)L>0 zoEv-?V-h4^jc>+MSRdAfkdXCZWmpeY$Zw#a*(KPBsBaq7H-_rF0lD=mc1P3m7C_U~0upGQ;#_1)}^rm0h#T{TuI>dvk&aFY7wz90k# zI$)_q4vrGthya&2w|>p|-LF!Z%P2CB?W9oXR*7>HTl2L@{DUpZ!h6tsKe$;jo~L-; zDfa}KZiBf}QN9cDq)UXNZW3#^dnu+V+N>e(9R(|eLW6J8DGkM&V*h;u zRwU5HQ|-U@xM1In0v&X9>#ja6xL;Z9BThdJ8(OHifL92}X;w?r)olYW>iRGmd{bH6 ziu*5R8coVL!U*`wF{EQwk_Vj5C_kbnNBU*_?45$0=@#*xCm3UXk%{*_TJ%rk+x!q+ zeRwy%ks+5w_~qWW)8U?b-=T=lVm9IFO~Rsc1F%wnlJpemZ|^o>l5&GSX z_l_8GwcjVBHW!IN(OK;Vm>u>RGYb^AF+}z3c+o}pDIPHDlo`|*dsOGJK+;j4Wonls zSuFtdu<0@Gt^0_+V$x{$Zk4--VCufzDkce`Y=lIm_fg3|iV)9~OXN3DRDn{bQ zWR?=8sglNT2hfLs*rB5_UOR@5kZD!M_|ce&a5cCC@b@0%8)L9{PmqC?F)(zLx4?wc zY3}!^j6PYopP&}C`hP#BVMOn&n-?p~R6{|qJ925d z+R_8$ZRy!roi#hr;x>E7X0ErgGuxQynQ$Gj>4@kAO~7AH6_z^vPo5gv@s9WD6xAY~ zJLa$qH>3Njkk(Y1b3Z3FF&T`OQZgcnYf%eS+^H=285Mq33V1^A!i>w>_gPlj9=n}U zwu)zT-f7!UZ$q=h5G{E$S{9Mpw@}uB(lzE;sE)&E!e}Rt`s$75{e((r?^S$+mJ<-^ zEzB7GU)YVtL3FU)^OWsv#H0qu&Y8m&tiryKU>mw&#){{Q91ipJ2kcnMYAWqx@NiKs zP<9oa6eu(H2qIQP`6(C5AjlL1LdIJrI1z|`DnayIkpxi@foRo1;h6k?fX|`NPJqu1 zj;{+J>IRqHKo6lJ;XJS^E+TdmVRV}8^P$9H7{o8J{#;9FV)8=d?|^CgxJk~oz~@aW zLaE{zVclNbB6^Q{v~@H9%D331C%=s*sD0+B&!p~kH50m5PW#C?4=a9;xyE^kQ!+*` z!n}R+eUjzjeP-jf$iX@VJS>bJloTsXtmWWLr^%gq}qN z(WWDo-3ZxAzHcR3%9&#xvoIP0Cg-k&5>;jJzXYu!lT}{yP+fQ?EFHLros~EaTMlWq zjR9xSEqSaPyY+wv*O z>B;#;EcHGJQ{yd)n`lHV+=HIcdM!L^dOAtLPcRlC7Be4BQtQBiABX}cb~$Ai()j^g z4?4$~i(8{WBmo)T73`IkX!B~p-i8l|TOhSSwCSV9Z!*+SOol#h)iLNGr8a6a|LBlm zu<@g}8{Wa33suZG_k27LO5Wmy@qZKOWKRKH93umtL2#8IDW{X7m?o}s#D~DMW%4bl z|C@GZ4!Yt);jK#cq2s-{gwt_MGWlbIpV7oImPzk&Rj{&!bH9%>2mKV!c0_{rRurlKil!CPugs1M9OPR3= z6^tdQnk<6HQ_0i_4^u+oyfg7x6*)T7dc`qA(fvx`2rONw9|i3hA3?V+3;qN(#yfHU zdzkWieD_`QDus(rl>mLV4$5J??7%9xn2pWNTn+zw z;Z*O)8dR%2s6cCf{q0dms@W?-`6vk3BA+5~{LX1<@$w9^;C4 zM3vW7XT}D9HHosqGfP?40c0T0T+k$T(K3pNxkp(tkBAXSw9thyE@k0&iCEq3RF-$3 zs|UvQKpoh^?GAbISGvfH-Hi@}O~Wy=*dYz0UM@isz_4+Tb173^k2+ovo?4rbSaN$g)^&W$n?io%&8Yw07PO>!;URxWjGgzY4gRXdqw!CQY-wiKzqvJEtKP`Av zF@7e)5ohc%l-H-D50~a510!YGTbVk7M;mta%&|)_9ofogfDSv30K)jIwm|1nzFe zlajGEe;I6z`Iv#mjiC}W2l!l2X(GrXlbsVoDNgf{zk;dbZ~GwnG*d7$p0Kh!ue4cx zxX%?EhZ74|&igNgzj?85z+ZQ4IQ*q`&;bMKIh`49#uCl64w`8lG-JX8ScNTatR?>X zsq7W|9i+S$YP{8g5!|x8~X;AZGgp35Wq# zI$-ni!H!8hzaxsFP8ZwqPb7FxS^QQlc#kJuqXlpG#=jd4KIof2P2*DnsQd`N6`KMe zxOz}rrSd=oz6A@LIY+t6COG4xfF2B0m4AftZY>|17eCh?s+MSWt5-W>T|GmfbjVpY z))^Zdg)I7rPgH(TY5EI2L~GjbdJ^SMy;DOQ-rSO!W+9iHCenmA5Is zYR2Gr1K^XMag0xgu0}oPnk`sU{3?7mgqsDSyz!$LIW5ibie zkJ9uS#+sD9b~qie2sVs;iI2pNV2x1^8Bg8%BO0T>`!Sd3q|)>-UfJ)*{YVUEj(liN z$4Hbs>P4tkA=D~`{0E>5p&0XnO_nA5`NJ1I4vuCyod~56EcIII?g#UQ&r*mCu=>m= z=cgrWrYXxXMjdU7cQlG^5rmjdOuN<8M*LqGdGsx&z6n=L#ADoWOvJT|@{rH`Hg%7D zemis?EdmZafNM#diEJ^K{|Lv?6)9b_!XdK!XnX@D;W_%Ey$Rz?)aQxu>exk+fl;P} zISvS08BL@HM4Ma}H96f!Ew-7l1=IpmYd-iQc5xR4x!z8nHTcWOv6Jz6KI#Aq&MN{O zrRrfTRKk1B`?{z;j~!c(k_~Nx3HO>+U05LnVeJqjYe%`4`v10Q7bQ{{ofw#Tan7KA zNy>wW2dk)&fF$%~luR;!)<%fN*seK>+KLnrVomdxm_L6wJ+SANr3bd~8mH)FiFw$0 z)RGyMqebi)Y5)Zv%A1P7*-XQfIat?fLiOLtjL{3AS3aN&6O1vBn)h`QhLPFe_^rY= zk8kWh+&!7zoJPIbOTAep0)*DO0sn^N;o=_Pf)1{vBw|V!Hqa3V{_Js>uLqA36HulZ z)9_%4q~toFt|2{H!}MfbC61&9C}Wk#S3*dToLEE71car@iS^`AfH!*bp<0&YB8cl` zpw<<2=0nd4{s9((jd31;1}>C3bc6qlUbpsqTgC|iAoX}8>h>Z3apOZGu1M>1 zB4Xx0pA+^&e|rw&jM!)1sIn;dfe5VImr1Xjb2OE0kA5=K1+@m_=kf2$9xq@q(7ChManq$42fzOK*QbYg0suM*05iVE_>ceJ#-C+Bw-i>w;6HgBE77Xa{Gvm82y~*l z#4JHSEy|yjcdyJ&lWQFH|78C^`%nMN{ePF-|6fS&|6ODNg-Mc8&B>32`5yibW#fez zeBXR}fJmD%n(S#Nd(5A%752gDJ--S&P>+kU677WluoibOJkK!(l>U!LsuKA|+P5x! z(2~Bk#-uz{=WMUX2ir(rN)tFfKn_z{@%R$i3 zCm8O>@o<$?PeA6BrkClEY`)lowBY;z|5ENgU#>w2&G3YcNFL&0y}kFmy#_%uS?mX4 z%=q4pro)mT2k@CpXZM@=C+tKU&0qXc>_j0V(?55K3Bj-G#o(WjsSxD~vv;KRs0X%r zE8SpD^T*^wxXlcTo{F7b#|}{srr}pJ0(e0?{iuYDV1{{RF%Pd>!?Kov&I$Fc@Q&iV1=Oa+224Jeep2zWtUd|O;*e<}|?%&WxyTzQ^K^&Gx zCNJD*vp&I&^aP1bcng&BiFJn>`F^u>bl!=a&_;T*{}0(ywbyA+RhuqVPGYW*84_I} zQcbd;0!f6^`VoyTO z6fMQI2UCQ`Nq8#1wkA0 zG=gh`Ir?eAhKzdJW<$Cp8}eASU_;78eE(f1WkYiJBT@oj*nd>RWr=WPvb=-wZl&oZ zhb_GQPzZ0oMi%cn5Z(~P2giHhY6)ERjx9qM7ZGL@>3coW_Y&f_%ue$0fDPdOILSNt zy^Cy-Eo5StzsnA}CXl+F)m!MB+_@rSMKQ79m+uV^0gA7hjZ@$p5p z`WyUglHnJ*l>y43Nyex@J97A~4w?Nw?9VVtR%Myc>G3uxNNtrF4vI9_QO)%>@?W|u z1`E%%hoV9vA4XZbgE4447Cwc&H8Q})Wj;?80Qj)zQ%}G ze%4CGRpZgb&+ znd(!6*L#$vnZ$;^EVAGmwJxaYd6xM2sMcQboCxr?I**PwOV`+$S*$zM?s)Mw&ZA@U<~@?Te7df10LAf$|&vA8rCirD_tfu-< zp>GHHdxqh$&~9dob-v?xTX|}&iiY}&DS32+0@Zeurwu%re zqc)_|N857L$fuQ8qq&+yCmQ*`vAhVe)yI%M{mMO{-}&9t={ICs22-kFAW4jPQLP5kPEjHx zJ_jh(eIT_aaFeC;S|^>)s!oh}N=*4PV$X$XF#HB80%#`e(5>mfpnxK6fWDvDIH4CG z$5JbV1z?j6#40?0(~L3SA!b zRHgB8HBmmU9-U$M&9x}a-0sqo5uXM`lO=ERYCtdnxTK%k)JHDvXrCP|V+#%;5xMW1 zFi{E%rXCo=R_wLtpTZKm_L@U0$qr688vK<#`Q~RoApN%w!)-L}RF)_t2d~$Ro6yU+ z18`B=6h{Nn-*z0}$VODrkjzLXL})*~NN8oEusKHPKuCa6Xo`Yw&trBx-UyO3oiyKX z>gc$gwUUs<5DJlvLR$U>(e`z~Afahb3w4W+tLtBb(7#0-h>!hhxRGjz1Yo+$V7g1> zbVo|kv#oJTONLNjsa<)@wU@d2SmI7EO#d*-&^E6OVS29z&q0oKA3?o+h?QgKEJ8;g!Pxp?jnDy^9O5bA)=D@16+^5JHX;g+NOpzn!&8BHKp^t z(I!h-a+{NUp*G-}M6AwCn6!4sXapTpBI`{Db(J1tWCeR4ge}G{r5Arfyf@2UplJ(u zWTa*M6JyNiQ?6GMyp6)Y$n^?!FB7~8WwkZ(OVW!JW@nJSa8I&cvA=dD@JR?ef!~YI zNIg}EbaRkqjLVbQK$X#{%!xHp=C^*!zb0q-*J_C`VE)e~@lt{|v8v9V)U=%~`Cs&N zxTs?MuVTR;()q6iT4?pCDHl5dx`Ql~bMS(23NRY`Sn&(=ENV=0;~-fc-HiDMBae}^ z0X#(`8V~&+c{*BMialzQQRuQQFp1NH>5SrBY^Fhz-^o*AXG=aybj-Z>P8{0!s;Dv9 zZ5yDYdiyCcSg1!*T)lWF_2)QpVZGZBU?IJD3-v_fTgd5|5*3%|(peWhl&BNfwl2jL zJt=B756wlRizrbby*F&q?2)|atlU7$ULu{a&3 zwG4ZI27DGl%MAIA={wm6xT;T<@xS|(W!WkjG*Zhw{t(nu4TSN;0eRx+oq*Mul(0v<$-ReM6xJfCD3dOwidwFip-kZ z1b;|9;$3FR6PA@u(~9hA7e>5C1I$6@XsEGgc)Ag~PrOQXJN`M4x@+_HG~zLjXvXM; z!bv^6&HNHi$kVK77jCpju&FP+jR?58>DJut{CX*VBMzJ~h_RZOS3*--8yl<}1M+&I zMiFA{Z3 zynhs_BaOTLVO+(6)YVq$$@&`Hl00~CbN0#c^_jVQd}&${d>c$Msf6_8G9p~b2N+8} zP>H$Y%nCBU03^|k@gB4V&<$2Z7R*^v;DcTbBb+Z=h3eub8iC#!H+V?VKi*?5KtqkJ z`+MM?U=sTVeDZ}d0|U>0#!?^WVaR~h`<1HkXaS3w`u3i)ZP^oRero~tWuw`-Kq!|5 z8cDZ>TxBu_gM`&khGqrEh`R=&h}RN39j>1|=comspMj_1!It(7>lvN0wDumNfJnwu zg1!swVXgVsKUIgO{nf`Z z@cD+5;8T9)QLB4Bt%m#IySsdZIa!lU(L|ro5FrR#Vd|m!qW|l>letP@rOlWXnV$ZG z6Y~xuG_Uy|n)fhn$C*ig;KtlZ|1@b2Di(zS(Mg>#Vh!vfE2|K({&2=oiZ3b06a{LI zN0(Z1d?oHAT5^6Un!KBtzj^>EMr5>_96uU(i=NZ)Wbo_;aWZ&X0}=1Us`^u~UZ;qM zEbMNG|JV+@4K2`pbYN2vBGa!ok-Fu^>&fWx`|)#hq*x;8yD7~p_NOb3W>vg_6inn{ z-+`aj^bg~PW;Hiw8al~&0lGqMM{joQ@*z<(BcYE*(;+&2(*9<~zXM&!j1kp~J+O83 znbrSoSy|aXWW?QMeUUtB(76V!wxD1PU;Wo&J1%~XJS|O}bUwjDX0jNNO63Pt{<+Er z!@7%~!T4Bjc}eUWrOmea5YAQ88Z;jt>s?SrVa7hdrTVB?s`0zv1$1|Uj|DsKAB-|| z>QG+K5LTQbzbFKO>czxH>={uir=WMyUJ|-0M|lO2oS0Q;YQCiU2E~>cizmD-6~^4Kk8-=EZ2rz^8hN<=kcZh&c8|_{Q>* z#%q~T>D4)g+kNnx3==!`Zo?pp=+%vBl=3L@76y)^TrYcBv8h@qj1(3QDh+LT2uq}8 zq9;sZzLEdD&`G*qG~b&+>kZW+u|<|848PFUb@|_f){J5m)S#kb;g8Viz!>l<8iUso z%Qj-^V;+Zj&gn-f{3NgNgv(3fL$vl#4RWnLFq#l7#ZV2t(s`XPnydo}5bmuGEm_Ba z0-;?&aZ5B=A5t-{9uOdm>gZ81re4}3+HkLSh%93m<ls_e;@$FH=y})L*jKUwO*7d-)&8WdM zr&^8tDj%d%k;zpWW*mA3-9w3Fq0El#r zmb&Q)$1%2w2!NJCXa7lte}k>0shntx8Obn?h42AE*JKRP^eCweMoELb&6v1~#IE8^ zKr*!6cS!>{I-#XLacdxMyVfyd>@oV-81oZS^rCnQyVs$#ehA$?1!32UH=q_lT()AU zh2nKGOa9oSSP8?>3tO@^OGTof+!ER|cV!x1E$=AT1a2iTPCV2OAO=e&P%}bDGEVfk zFJq7i3j~o-P4*c8ge z2OY*KAVB`F@Q@&c-u>UgFae{!gWsNswOpwL(6jywC9ocTF3+lB3tWGORY17{1;4!# z{(K8N;6IPryiztk@(TJ4dv-atOJ`b}@4`_$#T#66o5fQq6UcB7!u%DMP?)lklvPw$#)7wP{=wQHWlZ zF<)Mm)=Dp=qY`C%WNSfFF=E6%Y_)?J0QSHhwOR;VDb~9~E8fXcALQx97^)~S(QyA5 zp?nrX*(adv6;Qt9WKcc}<1#Q;Cj#0Be*(^F& zB&8lArA0(MiG+rVvX0v6Qf$Kg^YN#d41(A_z*x+z6#7^Zs>WK!f?MXPu<`s|5S&&( zlQN9dfkRN1y{iOTnAL&-9$T7h#DVgzG<}$czvSRRNVwIWqxIDB+eypNaGb)dpH$Op^ z05!Z*y!o+Eh*wD4!TCezt}+Lp6A=-wSvc5XdY`70`jrAaCpB-#wr@yc<>o}$S#zwo z5b<5RN8e*vx&F$6|Jwlz06DSs3DhsBRTu?ZXtoyEM->6GB%XiJ|1qLlc4@#z@v=AOmkE06t^+-MP_8J$f+J<$DHs4pZ<0g}SHGF*O}H#V9X zqwmDjKbiR6BhLB}4u7MmQr)qEp@VJC*Z^j=^?aZkajRz#{?+(FSdp|6%)kT;3W@RJ zd7m-CY5IPVj<&lojPVV&nFD?y<)+zmQX^bU%xGLiD2&8nV! z4&RWnFj-ZJx=4^tYEWc+I<14G*(8ml8M_^u78!VfJ}NUdW6-j(^;BVLk$61 zBW(oUFa-anFe7@HxsX+KAo<(`+~*8b7|tk4mv^njH*4U{WMEDUCVTJ=x?!V@0MT5K z;Zf0u@qNd8Q3W|m^`gv?=*|-~S*dCvC1mL~uN;>47Ur1@ z&M4a6NVz8eGF~|8oN=eHk{y1hl?I~eypu8muPANK`7W2fes!oa;4|*2p~M7gJq8@( zx04}X*#t@SDRKZxIY}8^i^yVNJSnPm<4!zVsiip2r50bO{tNxUqfL7n??Q&;c^cMU zq$Oo~abG4stg@_C$_meaR++pU)ev@r}Uh{6#C?P}+RpPfXhMp|%|*{6_?}6z63~32m#*g|eT(0(wg{ z!l6JL>}3O`mO3d4AlHULK4(;7kV{|zha6C54u_3yI0ac<(&@Ctg(|vgKB61r=%9|m zuWdv{HZaJO4fl&6(lt4=;w9Zdp)4!iO5kItb9TW|*jRyIoEdhy@nl<>7$xFRI%q26~RW(B1VLX zA-sY|-i!imuybB5g?`Fkq7|o*J{g6JFiUfBTNLj*1-t4!O>}vbm%1_2?Zx3^qlKqv z(~05t;P(QS*e&AE{hdNjJ_ZOxAYFpS50bqm-hK&u{cZT-+ZrFo1UBjN44x0HNV*qB z`TcboKdzU*K&YxT;Tc`D_&5uS6XAJt(89GyORPSsyFRz$t3jK;1O^XAUlpOKtITTE z5_{Z)fD5&tMXTjF_9PT+wtQI5~^O8swZ7lDzn`(HTW39-xbwYh=(!Ka3HLcCA zsWhji4wN+LtTgzJV!TUy_G$)#qA_MsPJ9OF{~+wXQtkdFYBD_Y#}{a%oUy@{#`k39sm*x$rU~77K1`_#OY8n&&Zq?*>;4Q zF~u3>d!wik8TLO94tDTEQ5@Pv^J7CC_%!{UPG6rTw1rjknjG^eVT zMWJurr2G{auBO*~cR6e^dxV<6xZfhu%a5?8gUS+dkPWQ;3Z%eV@oJs-Dd#za$2%&p z)>%_AG7H?oju-Za_A58H-Ku=InI`51X05j8<`~V5)_WZ1rhtxIF%OjaS5k2S4u9T2 z_VFuh;x8Bh-eG?64~)qTz1MKK!2XtQ%hNdGr@FU)7ohifwOkv4HPP&Hv;leP# zo|I;GP(S{`VMf^kOc&^0A)yG}xU>xVL<2Ag-kyZi>+1 zriSD-V9~E&{5r-fiddrE#S)($C7+c>p^=^FG0i8*Y~W62jL&1`VSi2I_lZXe-E#Ad zt=Qf^osaWs+(GSqr16k!Z+rjtK3_`hrKmA%gR0KAqQl(O;Zwi|atHA5afSjAXCg2hSfOd*M2C4XwlgJdH)jG7q@l<5)>n zlS-u7yzST#>2w3))$Q;z2`2tgM6!uS{&mPkW2S`U3gM$Q-4cldd$+?IyvIP;atl z82_8lD0bo;i&C zM%L)Oq7F9%G^`@yRKAWZQ0*E@>>9F+tj@R|5hj5MMKb8bnoOg1JupkyP%Sk0IK%ZO zp;A#L4~d2Ul>`Wv?u}cC@R7c!E?t!bY~tZuJLYtEW>9zfN3f~9rPcP=@My_7UM+c_ z4PTl!4Y%c_P}gqG1R&b0bF~hS4BIPAv75aGm%9iw$%<{#n;k0bg4+&r=oI8oek^3f z3WmJyGjyoc%u3g?;l6)X$z?vCVu#tm@;^PmbJTVUB1=HnF>Y(K%m z{Ez30NUH|M`cRN_dgMEnjCBIY_C8t{6@Q2U9VaqA4{bNdDK2V<1huBaUbu)BzYAMN zrv4ET*mx1e#5d+Pfrx#yVKvp6oJVnH7@zLYiaVu0-bSbgDuk+JcklI}O6}TL$#}a6 zjkjBhkZSlCj#f4_bvlM16mGzh9Z{Nu3Eo66c>=p=M~>JGg3`2~;vR&`$}0j& z)5i|s2h2pA2MkbTwm&Mgl4}q*Y*yi1WEDcr*oZW%Q2CfB_8UoEDq;J7f$08-pWNjk zyU3!I^@w=)e~ECzSdM!Ee6ZQGTG%ry(P3FPLO}Le6&;lul`vdZL!0hcL{?)G0OGDX zbM*{M##0&xm5ihCw;JrbQ@mPlIa(>hhI>AhA%}vt_Hm;Lv881~;HDc}iDe3iQ`mm; z4(>*kQOw$e4lFx_UV6JcP27CaUC^3JoMFG(PQL!`^f*M~=w%E0t-q{=_jT|EEd#j6 ztSz@u=Jh*IhBB33fifYnvVk`3CofrvFpm<#OcDr#EF1=>N+XO&u0dSo4P{ExjZT3w zm1&fzHJ@4}aN#|Kw<_w?G)q@=5s(k z8a>?wRCvVy%=I{$_K=C`O4@YDd_V~|n*nlXo$Mp_@n#QVQ{tHGfq|&$?{TAbfyg?S z93P^GK6(fY!+1dQ$u&4m-9V%98I|VS7*rBq_q;RaE^Y1^mgUP(;S)UH_j$SmoeN+Lrt`3P^-$u^pA%<4}_iezQ|`!c;2aS3 zqb#*MFD>L-ExO^R;I`TN62>F-;bi`zaB?_v?fYNcVY1GaXs~VGd3FoY;=Q?Lw8ZDm z_-E{7sn*Cl=a$x!uJ?jF?DhVyhyU|>hqb5!=L)Eg--Y>R4HM8478+ARc!DZe;Q(n) zC_hNH{cYmG8a$~z_YN}GMX3mSFz60CR))obcZ2cHDmsb(Htibn82K0hb1W`brHPEJ zDL-k7J(Jkwlq?x)hRLK>o=ra=iVb564xzuTVxVQt^BxT9dC03Q`3upz`vg(ISQNY> z5FGDSns5daeJ*AU`?WY^ehdXkWqb;HdgkpOVccUzz7P_kG6TaVdGut6$x~*)!^%qg z#2K!ufV)pthWKP}l97`WorS<7uM$`*f@lx>!)OdqJafRAx6|+1{UUQ_0rQ?mD1&hie9@qzi`Nk#EAvYrGArIT{6KrFZ)z zVxHrku|!MW0i~)r>S`4UQK~wieuw75L+@sh${~^R zu;5z_opz%Nwx}%mIWbUiX!UKacjp9S^nVK*pf|PDhnPzA4OYBul97L{=6XwAktZ8G z8!LgSTxs{_)@=Q%+l8_@X2WoyejXmpWYB)I2RgG2{%>Nz&W5*?K&$3@7cDo?k)13z zpjS@awGlIGXs#`Ku)X0)31D=!TWc4;z(fmb}>3Us7leaS8t-}E^rDc7feY{ z`FgwE^Td=J|CcF0O-%Vtn(|w}_I$&*tG3g8V+RUo#tY7dN!DCjaNco}pUau#KfRcl z;|I%51;$>KysWn|sI$i}0RW!EG>7{XAGHf)oB)=qCOsJSK0i(^1ESx_#+4!=BNK z*CTAD*K?Lbs}SWkP~@mAFIL+3Is!twT{C%GCsNIE5=>O4;d{u!Yd?@7SoBw?=B2Ltc=j(}iK*E-6pnkL>I5I3bh68NR_9@Ry zOvFd$&$=X~;l%`vS8+eILwlI#6q989Ak>d?o!Z~3N*792IyXy--gm?5fCVt6O5<&I_zsr#k+Zc_u$2^d zrnQ#{T5o*U&Y8h^v|UxQ@I_8~u>4%k+_ z4iTBY>3t977p%&5T+MV0yF~f#DWHW2j)A8bR!7<~-6&jWzCH$9c}k{oULWO6BBGD+ z^a+|zSajrs88yZ{r5Q7hs@8PU^$Pm9H65&juRozTMESC6qu!v$qjHTf+7Xu2laHpq zA<*RWyCS9;%`VBd)8X!$l;sr$?>G%TY433lMF6Vhe>+2wFxH7EGX zrg10C4{JPCx|w`rwIYniqbw8osaWzUDaY+YV{@In!!gbWtwlRVpENkZIN<@ZVpDzL zV42c%4&4X`+}=mh(P_TLq=z^~r@^F#en+Vf!MZM`a8z{ln3n8M7`gMHcU9*9%BZ^y}x_URly+U&@KnlWaf$Vja!;kV5f;$mIM zkYc*9Ktq?b{oizCMSJNozmMJG+o(r>OS{h+1I|87ju0RAS=LIN0qHPXQSEVe3CpL+^~{*$!V@yq{_t}S@sB0zs&r|mCZ=~hY$EwlH(sZM zE{Feia4+<7B)`L=!RBAp-!cm1@~v(VP090S^M-^qQ!$AX=mee19goX$jx?0 z1vz1rG&RRY%c@Z&BWuTFL#!~hE3co5Mtl=jm@)1MNWND;FhCC;oac&^eiTmLM#pm^ z1>bBx%dBABk?pi%7^m8fWz%6^IL@Mk66cH~E4LPsG^^C~S6}IGFOs%*!?ce%3e#Rj zBKRT3PdD|m9BJSAx&TX76(#FS%>Syx#s=J7HJFmQUkoMTTZjFv)pg=0v+6ACWd8Pc z$4<%L)|jTIEVnhdHz_9OnFlB#-`Pt8N*x4NW zVls^E2@~^NFWBvO!u{hhCO%_iQ*R8wU`(uBEraTR6u=#Ifqhm*3NT|tEj?B1NiQOz z^^JIeY=zaTQ}{WvuhQ@CVEm9dbP$eld_9riEw&Zj_*%d!47m5WI3!!cjKTylbyLvf ze8f%E>=tC6(;A5G8XQ2nek^ta6{B`49RJ&PPN;wHP=_POYEl3X;|T3WR)LZFZYHn| zpD+yb4H5~%0N>A`Ufd2FBa==Q?_|j_ejwkwl)!%6`-N5OT#>WgLrGoZd9+Q}+8#rh z@GsMZD~^w%@8sB9*=NMY^~V_Zz-XQjY4Q3j+cxinI`Su^tgglR|e2w3ay}NO^S2i%0gyUp ze%CFtcwVXmHjw|w%=PepH~fDa{-Y$_LnW)xKfoiT=}WZYHTZ2l)+4{a!-EN$0vqIq zb|qh3L1A_U-v2`dBk@BY5JjqmzQ&QYiVw4gf?rqlMtNl)7#$vD=BR zs6{r?DNP;6EHV)Z*=|IXK@3;#i7b_%FTm~?1Ex?z+l>iD=Dt#ss2mE9$4&0i#M(J9op8k)W>-sGhd=(?(1rC(p9EQm)&&x z8vi^R{I_CkMrkS0;ID)|>O2>D*Gf0Fc67>(8WFcGqabr1EjIB@?>6+~f%mL{V=Dq4!t zKB>o}bI~z0fA_n{arP3t&d<2pWSW4RK zs#fxMMHkX_^tu@Tin{WLW90C&@5UV+z;a(bl+gd8Qlgpir zi$%q_BoA^WYQfJGgR%?*`8P%jM8gb2{5?d@;*{3A6OShVL!;=6UicVbbV4G0G4ewB z9^_YW(0(smoh_&8V=+}*vj)DNMu^l@Oj1F_UDNW%c2-8>7VR+Fwm@Qa^ z#8$mIi|LW{_y%!szu+?;mLop@Fj8X*@P1FN;Qldix>lnTHMTeFDRsE8E3+wcQgRt+ zkp~R;l}M4r?uXgAk|L-W2>{D67E|)ZZIf(jlAO~OP0s27irkFqMH!O-sO&jzGUpfc znwvmFk(?q3k&Gg1k90SxEZe5Oip18Yqq^%o5qZrRS&o878NvA0TXX4auVN&KzGC9| z_wur-YuhQQYa3D5iP*$*VYrL>-*wi4s~4x6&%+w zye&GC0QE#eHbGrmp}6j9&84o-+0^y#xzx2ahq|^(>e@n<>@oyGn!2XoflkSgL|}xv z40UbC_4ifOb;T*EYoV9u)FpzbdHt7?8#NMHg`BA?#4=iyp{CVDP4h2-*KgD7OY!eW zg=pUyf~I0^DlO3J6keQ9bs_aU1Emc~J*#20R(*)I;ZbM7`LaKlk$!~z#9Qo^9>i7y# z$Lch7d|5j02uRy;?QpFN>Nq=_I@-*VSSvUXVnKpmD8>^4OM%6fsJ=nxZ<5^HyF=2* z)CYj-tx@zdDdd7cwn_r2(twdn;&^TF+t8N;F-;5w@QEP41wZF&uC+uESDdPcKoBWM z6bR~CVpX1GkkGLbSF;}6r7RwM)S}R-OnxR}No=GuM4`DQhRwVK2j_ZK5|g=5-flGA z7-geMzA8!QV?;V%kfc)tfJAT$M)g?{zi`1Sq?E|n=4P-(QELe%8Yb>G@tF^&4y2(? zK$}ug%%U%1BYq&mo079hC@Rw4drK`m^YZ}tkw+f+zod{`Pxa66hw=07jkQFFs$~{|$2al(X^Ek3Y7KWx~pMKPp?$mj=${!VxHh}6M4)X*2fbz=wgYO%zCRX4o zb1ILQ#LFU9KHe7_0`=r8KRS{pzSeluYyN4X z3|;s!$^7#@lw3(3YO!F4vSfXpsK4Bo6~XWy^l%eOJV+L(sv4|{(zGp>v|$%oWM-82 z&&UKuVs{n~&E3_OMLkv)4tB~YhMqjJT7;A}7ZDl_67r&a6`j6Pa6<|z*TFDVl%032 zhKYn}8yK!#X)d1;=L2XjDYdE7eReF+ZIUsf06%=aeORU`%Vv1(Xtq(=N+2s{U85xFR9`eKE_Jtz?>qY)uFL#_rD!k z_1Y*;(29}eQwgZG^<_??cN!P||(AjbRb!PDsa4Sv;)l*Y|V zY0Sp^(nqVxvNz1y8&5s>&+^lQF9_O$k5$3IF+dC~kRxO5sCJv$QQxsmH!3`O^1cvx zcqi{;z`0i5gn$9{FUOc`rSnSbRm84_kyXJc^2o6C?B8(t2um6QsB6 z$SQXHuR(r_{`+MAOE**J+inq^$J=e@id#SxiSnhe=<{8rW%gS<5&>Q)tNDD8%D1x_r!};nN`K>aG)*w zM2{K$F6w;y^5!da`?`J0>`Ih{=TS>k(R;_JBBg1l?1^c}50uCI9P-iOnex$+k4gJW zO%}z5r)z8yrZ9M-IgwIdh0Obj+*ODylT&@>H$4uAObS>`zA_>_ijW3w@S^kb^`1!S z8j)_HOI;zd$89t(`;M&@joqMAr$^j-og@fR?l50#1)3nT@==UrBLtIOj~V$wELm4+ zzUIg8TXD)lIC*m3V0W()0U=3oc=06`CC5AO5~2v3;Q!`R<4+NqkQ>)r0R4C!Wxamq zL+3#sKfl&C%d4I$&GI%-%Bf%Atufz2Hd9-^#(8GpKUJjFyeW!-d z-eyME%H}tk7huzL z2H$sGYsV22&Oj5q3(6@Z<%JlrF;V7-pAHv3Rz9{UKG>|i!45-?9x<)37yMVt5wc1_ zj%oKb9+7U}Y);XJzzpUw!}dgDA^d9n`V;IayRJ#cKbw-<<$>ugi~bJm*WaQ<(wWlOBN8oEbpk!jldlyZ=?` z{txWe|8Y~&{qK*e`^n(}1osj9;B#~RNc=KV1eC5kf^l_~r&`Ph#6u68RmPgEMnB02 z%(y9V>r#F?V#y6yz_`(kCt zv46b$?@qC-|3t65X&f5#_ogCNyq%?v1! z=hJxy_tMnX5;0pNrt0UqWt}u$kjR^YS&O2Y-E}-EU2RCT9(gpsPW(zeeRdaPz53Yck3A4Lx1de+hdrk?JSfw5Cy0`DS!l zi;yGaKOhfHW^bLAoh@l>&C-DI)U)$qSd1uoaqr$0#TbYHn?moUv z3vOz7-Kemdb^-*y9|Va;nbd*@5SUiMJPUfq*8yi|UOw5fN_T3>ah@>WnG~lvVcuH) zjmA5}d>t}$QR9XHSM>6$=Z{SH@F6RI63v<2+iT#jSYrK;REM@tA3X z7i042PM?-Y`BV!QV7prcdmY&D`><>?I%^$T4F)2?_mm}tOubS<&UP2-FNk0^^p z{ugnchO*{t)D67g7dDy=i28s>h$r8{pr*zo46Y8FS3{mBFMdXtJ5?ie^pA%TJ3MNl zZ$KvqdYW>?5h27?GGEXOe zc5*BxCU7fp8GFsYl0wEla6P@+vgGP*l}q_#92@x>8fh`+&ZD{RODFg{8ZrbmiSPW7 zIR-zFrj6UoU*2d@bdgM>C$!h!f3jbFpB>4rZ_-q(U1#gM? zN~8&Z*R(l4w6s}G3YUOZWyupH0;1_QFV`uOAHTeT@VQ2i}2~vAf+I;KMqzhGH zNcO*E;@|^&L-ml2_#|Vr)bk>@VBGFA?zM94mwBr=$e)GTbzJXKRl5amK~9h-RNBv9 zjdub~X@v2a1!o{IDgwB5p$lavZe6dAz=uv%#-FdqA3qvKQY0QQL3|znjV^v zL+@q23m--^ELQ^*sX#@x_P5_g?>enaMN0{3?BzKzsYQs;Ch=gI3$W#ZD|K>$o8l#v zj&!f}MGe&x;e(km!NX4zc)bW2GG zKBKH@bF3(_+Zh|4*zJm)kvN=3PN+VNJS>ggdxoaX->qgX8QO~qA53F$9|aL0EPkFW z?l9-~I>u)N%%>?d;W~-fHdc2pfMV-Iw&ggY0OCb`l)q2eHvwt(MT2ee0)(q=joke< zT2lra{B;;t^D2+9#}%o5k`yQB3#LTo`s>UeLqUE9#oFHpSl)P-wHCL;8gs}Le4$b* z8H>POPYx%2X5ICuDCk7mGGZDIp${0o#$iJ2G@k@o)I-coAMwzXWdBW;tnipWok1U( z%fiC&r>1AHxdjWsOC*ScrqQ)mX8TT7l;QeL&IyRvKFNoGTF)xdllPS{)ZS(fID74% zNKZm`{&2ousCy2{yyUq#+JAaHo5*yd>VQs9cxxsQY3oVrXS1A9zCBE5-pG<20#0N= zly~%uf*miUCJwtE0ERK#*+*ekFeN5jV~_-QXZne|Q*?!QhS9^83Ev@Ldrj+DcE6^4 zRln?iHoe2dIa3j7V29c#XkNZe^8z;`(QB4Oj}g%$Gn@xKNbjzPrD#khUJ^FCQLOmD z1fx*;^sZr>x|x-Nv)kqYcWQ=*u zVe??d9hPp~TgsHDTKSfwaPu;MtP7$S;#-hbF4Tqc zb{5*iYCsISV3Bw2&DtDTQr&AikztkQlnJs1?4f_6Wl_&NP*aR*VxkRvMhT^N!F?m0 z-o-;a60w%=_%ji4zmQ&^yb}NzAHw+E@ck_Tq|tXn1-F!#?*SOn7M${o6ORhaHae-8 zhO2A?o;`}lY#oHU=JwBz*v;ML&sAO}=9i(N-uO=`2Jee@IC5#FXMPLwKm0YVq0#`@ zq@vQ3HL(5GGEz~UeVVXdB<5Ts8^Q2m=Dh^^Ryx;4ZT54LC$A)vHleA;WpxL!MH|fT zpKcxPB_`e*AWh(h^m#`)Fm7EV^IBMnosBb!6L^vGNXyTs0c)jQs`Y zjIyntZuZprwSCOE?1RfZAd>Jg#TZBAGCM?2en@IQHe$GfWUY_2hl*VIW-Pu*w1Vt$ zB>&!yQ>oTYq!;@y`zm^2`?FXRP`eo%%&69p&OB;6J#JP=!AL# zq4;%yAQZzTp?Ek$C?2*6#eO{5B+}<&>1*QVc{>ensO2=5-M}F3~pg zx5OxIQyyRD%v4X#hsI+6)9JktNWi0#(uZ(IC^L6QsS+%Su-y4Eq1A7JULa0bD@Y&CJ!t!x9ykfyVE>YM0}UX zGe)1q0g&@xli!NCKU~)MsNEZ^_7H_j?qKO0N{FgvV!xH`*kt~;$dcLrV)ww>ed80$ zvQr5>T@34X)}N11HauFlljX9lN3Al`aoNrqZdvv~$$VIhE6P`yE247c&Q9;$bNywu zW2}7)_0nmAN&KJFPFd02QChmo(-Eg{#*e?|`WaH3SwEj#YOkO5V@|bx@~-(>>xXMq zz$Ph8t$?kqS@$1`dl8$cB?@32hVfS~wH2wl$lG@`{ooY(>#?5FgCeIyd5O|=Hip|7 zTbAf^$3~;e-4LgPR+&i8htp+iU+oY+>�EL)xt(F_u)jQjn*3 zC;60u3EuuC=)SZ$JJ|#IKckE5CLHH~q_=XB%nbcgc+fq_O7{r!JG5#K?rexhVSksF zvRZ0)o^97P!5H}yw}_XJr@7D|V~F@UP5hjVKOz7|NAeQp>cE@9**68*H)q*5=spqu zpQusc)__B7;<=?G2=L><0?em4-msvUI3!jwPN(`}o?tnQU>r6G&v^f?{9CpSofc4R79S0JU z5=l9ue4U60@yr0yJ(RVIP>Y*k$aV-swbG7PX8x_`xX`?zaxXyss3NyIY}ED^3588= zmy`YB6N*rkGQp?(q&b~W6a=O2(UmCPKF?o*on;8GCz=88mW zv_ou`#*ntes$nB8W;}PdoMbvM9;z5?z@C_85#O{69 zcsk26}R(Qmyab-o0Pd-fEX@4;Ck4frg3Yc}MrWcLwG9bEo@qI`qX6AI1_7 zhVmK*QuEMstH7sCSdAeOE-p^C{^~}`lxjM1F#*@}Z{U6YRfjnimX$Z3G zyR)mK`k;NRQfa~%+rShi`tllLiRR;x(q?^DM^kg-1*MyzhALcnsFh>o&iFJuTd-gm zrF?k$VQRCw7$!Y4+@Yx9Zh_zHqeec^;ZUVku2#nV_(bD+OTAXERmDfZ3)l+suh+`M zYir^s>;DBaPTv1ZbNZiNzvh(|1x7v(bKFpv9rNLcob93ZY!}HegBhQ&OnWb#qPud0Se*)eK+(-~_(mcby6r3_L$(3ad>ATZ71%RpM}wvJk~E3{f=;6PsvCLHLcj{fd{NN7Ldr$i;XXs#D+tOH_?#P|dzb(An@? z)DIduB~gW$nyF*ZKVyXR0yJoFNk1a^H9!5$5z97i=`+`mspySGdh%BUWDp$8pIn7h zWd;b_`3^HMK=Kdbb3sxT3wV^SH&?D7L>inGF0va%z-7k^pH7Z|8b2g*Atw&!#V25X za-mw5{_7%+jFZVweWYtf3DGu!Q@!apJ5s_2S@Ra;bdw?`UFktqensPaR5b|s;)S#? zS4QO^(>;*t0kugO-=0KqW1>%&_OwE&WQOVBs=~vpHW5Cx!W%V4FJi&chV>*ROSw6d zuML~cijYUWI|=^@tn<0&jTr3s*I+u&gZWudWHZl?UqKrFK8)T*+v8A{#29T8F~%ds zU3u*aIw<#%lB=~pzefHJ*Lx$SYgoG~LU*8>qQ)ZSLmH=R##ql%Em0qG#?NGldXEz@ zFj4Py#s>omYDpIA`KC6DVSc9A<%ofRet7KJRVnZfk3G9;R4c?Nza^sFkcJo2gymH6 z60@R-X}k=xJn|Y3B{`_|hUwG|b);d|WGPD$SsbGUZKzIVW?QF$b9dY-;c`uejV9eMGZ{qyg@Z)SSBOI;oF+)ORDK@c0z38bYR>5 z>R}tdOLFl0Je_M^#tS65Q}Ou5nkH%zNE`E43XGkOl5iF2C=vZ?!p6N8;%9BTzn!|s z-n1IARON4)$$qE_D7jr1s?8WC8JsP`_gC7jtv`u9aTOE!sii&fyS|J)u`!|p@2Kn2 zme?3E;=Eil;`G0hou{TV_w8l;FlO%i6-iYx(BhLsZm##Ll&}x;O7ZIhwsUZtlI=X` z$y1hK(AB2Rv7qwGuKfG168uGD8J+Y9yRR8uG*jiLZ45yf0m74iz$G6q93KD;;Fy5GmXOfcTd!g4W`gr2kIX=z2zE%;4bBZc@NSU^+&$ zpKHrzKl#NGGVs%RGlgu_JUYenoot6}Wb)ca;Tw}xA;nwa5gx4*$)i<-y%hPbP@$Pg z7f3F$lqe8W16CF(fs{4Y!ZSteJ8KQb zomK)ZnuXT!`9Df06hsFVotz}{f28qLG`PKCz1W$_e6)j@hb*}=gsL&oh1;1O?B|}! zDBs5OkeJd*BcEBNCZYMMRy4SFUOj1=qQbEi1Y|$0e_T{mnlYwul5_|G7W%wfG2VfK zKAe~lURkzU38XZuL$gwv3lk<4{z#_E+$1s~c9PrQk3l*?391!W9j#qbLNcv*yB=Ie zaEza(QDUssQ1M3Y{!vBJ%`t9s6eD_Vk>f;lOMemiEA45kYyeEHq&euA_g(1ZxlbP$ zbt@GTaJNW@R%R|q`m|q_G%F)>QD%4utIQRY2NHL93%ipET&De=UurqweBX$Nm z@^>hT)>w#-l0U0rbb4Zph@K_3ihz*4v#klLTC?oWbiZf%)U2Rw##{hvK$O4#`!WZ# z$T+U{(w>2KxjNrX$;aPSn#K>vQpa6AAZr)7Yyc_lbmRMFF!2g`ahyd3rck)+DPE07 zinQX0kFtilnpv<#Y3e0scFkk{Wan{2m;zNs<_h5{*miiUW`*jy5UL1hVnfJ2uDbyK zN@LCq=8mI;yYkgR+Bh+`V6+`gvUJQ~m1yyprw^tV&`7jXzIcmX946c6sAWE}AJHQE z7NUi+>|Jxg{^LR;Px0w_wB5X0l;|YHY3q+>Q$+ds_fy#lD%(LID2|j66oaY8bLr(b z(=SWlWk9~1KZcrbTGLp{`1DTJw7Kz8llNlL>7vc(Tjm_RFK!i?y*kkU@)_29ghH85 zzm0NmZZtoAi>k*2uw%sMw}~@*mW;e-Cgs~?Da$|MZ}qHZq@B z4sk9Uz1#fwyA-$#cEQLX=<^pi7CjliTQ|lmz<_4DF&cg&J`ImEj4?}TfX3)2aFFxf zV|*oYSR{^Mi1MgU9E=b&%pYtgPyiSR$O0Cm zm;2M8EO-cS#f|2hGZ7q-l766Air5ICz+V8v=oJVO0LKafM-C{aU7P_$;IjV+iV^Q* zK+!!g1B#Wz)(oJ8)5eI43t_{fT%G^@W90YZ^I;V#u)2E*H|s*W!9;SVWIeD1(c45~ zhv+{bV#@*yEy{6F1$BCl{A*IZmEQKkdU6w9$MV zeoLEWUhhl@#v9Yo*rYzBU((U+=$i{Z6X$#>3U7j^ocpj$9c3S7Ad=LAL{eYHcqIU! z3iiwwMfp%21yqEExdA7m9#=8S;x!E2>S>=bmu@}|4BZ!aQ>n{Him;f;kVJVLGc5pj z^`(~jBo8OCmh5MuO?!kR3EHZ{4t2L172XUsnMpGG7R3Ytu296g;sXhTlaZq=aU`$t z`&b%wmBL^2p}VGQYuFg;)cLzQ-w-W+4^WN1nqcH#C;1PRyN5EXMNK-RhUVr@=IT_F zc~Rr~qas{$Yr{KCs0*-F(I@w5uv4Q)LW^ePp8?YcO>+05r2BEr_3xpTQ1As%{ez5p>s>&WW6!USLsO`)LVr+T8Ev=9x&zM985WZea*p_Q=y73@_a`H zsxTW*06(f2Un&aK1H@|TbMOSKPUA@}MOzSfQriW@KiI=4*i$;a{$7pmk*E?CsPeIv z`iO!y*WH@sPZP%T(>Be9pzai4f_ccqasZqBNxcm?YU}}aaiZadX>O0hcF_gbg8;>*0gB}>Qj_`r6;6))an$v1 z&GmNFby#zC3p|@9@vN5gq1oQ{b((9Bh=U!Ri-@z95ND%#<+KdqMDZAWp$Hg?7FqTj z{BN-*SH9Rb+?Fry|3*9*f=W2V=*%ej2y#oSZ8MB0uX0B zS<#=jnSY^|s7TntNXG6k&%s`}NLs5!;K*Q9H@Au>ye;S9dYz7*uJoJSZX5ehWnpLq~F_)p5-+)Pz4WT-d7w&}pQ6 ztPc&_>nOfEFzBlClNQvFq2LgvGrR#`9JeyQ(ZWzIUdX4B8K?P=eZq1DNj3j3WIo9s1Bvih1#yh?-r>)WZ-ykXl~m{%P?p5|Ge5Gh?L+e zAm7{l{Z_#tVM2lkq%8hS+!U3ru~$TmE@P-GKS|MQKnpkwZSZA}SPv_aV4ecye<2=v zl>{aoJJ{lh4P$&9HMMX7HHEH1)3A|7L|ouru5bK~#&yeQ{@^3z1a*rRLe)pN`z^ zxa<@&8Ut)r3y1=+afZxY=UeHjTFwH$i=EhY@Cn%MB2;P_Z+hUR)ta~&sN z-%n3r6)8!7>(^Lco~-rdvDeqpGfuU>t~~SWtgqa7BPBY2u$GQ*XUcq8K&fx9BqJ|k z>~M;oX*-UQu097^1wUWt%Ca6j&J#&&k2o8Dz_=j}+tjjX(?M~BQg5FVVelzb@4qMP z>1A0Vi>lVvsC4UJXI}Xlo*%uZB|dY;x8p&cC`a~6v(f#aNu2Dpr(w%da#dW+_YQj@p5I>^CXM<}V*c2sAikCiA9`G*sZSYKr?3%!~G zP(3s%)3HE}f>?1Z#gsfoP0#WTSey;`W?-J!``#|NY6L42st+ei48p3`w}s>JOm z%B$CUqI}v~uZ9U-TeIVZHR~do`ymvin>NSypeFkntycs;!BAePbiw~gkM!2}#7ni{ z_Sm;H8)Oz1)WvktV($P*@shPm&75b$dyHMFS$%kBOuFQJj$}gxt+^^R|LJChFbSGM7PRBw+NVa zjG9WHc}1Ho6qw%@{d!vTD>hm}5Y5(y3Lpa3e_Mu^wV{XFxI4!mu>?8}!P}eRmd*=m zPnD2D?*IKnTk`g}JwzELXEKa_#qX)t`5%QW`(T>D$t1YwYecpN=;3JoF?F2sFNknw zd$r&@%92K+WFkQT?<6e=S}=_kVe|N!iALc!DaJWapr|BTL@71?Z;gM3K?4OnA}G*N zCtHE^Zja_Vs7e2ySEbGWTwz2|gex&%ho#i`BTM^dy$^n_EO8S{+=|xt#jEvVTuAM@ z2(sD+zpWZ&C8k?4+Cm9ks9beCe=A&QuKWjd#E4s%n&{D=&+;OoguG2~`)2sV?Pour|~Gs*C$can)bh7aUUGUPQU`O|+XHj+A$ zVfkF#NMdWf!V$2YfPU~tVpo{Yg2!V&%nbOte2QBUq7^_}7=Z`(8(H}J z_mJW0T8VZtX5>9Oo1i&E>wMf{He$tchtXW?HP=@2bkccReF}mHH5+xe8SxzlwqF8iZGOm3iAxEY=Av7olR{>35Hl(~!_xnz**neX#o@ znzJwZ#dBGW{809Oi)ts6mfjcG22=seT`w8P(57UJr>cd%lLhw*YN2r}+GI6Oj~Wl` z(t^huuOm0%cgeSLdrtifF!wA0WX5}tZtzdckKQ2w$2`pHgr?@diY%Au5S|*9jNG2g ze^DVbR)CXT%dCyKgdcy9bQcZC(!VVAKF`vp(CcXOu6jJtEN+b^e=kCThcUY5zlm({ z&yi$Nu+Irbet_0+m6n`TWd{f~jaQG8<5U$g`kdhT0Tb%b!|?5gOdRa&X5}DEDNCNg z7NjDI0y-@gW8fQ4+-T?s1BGi5|5^yuTY>tlFxwTm;gDy?nt$P4I{dr2hV(u%dTVk) zdK1UvZD!o#AuBxQG2ee1%OP)p1L()T5+lfo}*9pvGt~JC0fbfWM;3))r zk$J~;SuDUt^Tz9rh%=E#QS?563pgcz9uf?|ej&@vOmF$-+Lgyi48@a4vOslz3p0we zp<0h`6{bG#5#R`F*oTYhNSD0)E3+sV+IW%bCYdCi-~9k78Gn2! zS&*1B#NE?$mla##I(WW5_g}g`=;Q*C+h~W#zcb?e!?-mc((!OurkxH575KU+E+evD zJzWRdXTVG)+N6spU=&D{&d#!Y4&rte)ZEqS(eP9lSUBA&L>2EwLd4S zM5!3f$Hg`FN9ffX-|jzPoxeSuEO;t4qXJ_FX~~L?s4>w4w-_}AZeh;$!Cettt}vf< z(iT5NxRjxSPli>S(>KVmQh3BxW6%YM`Mvv(SZo%qP7G01s0ovnX`4K3maUAe4CTHc zJGvQOK<2nanc;||A)#Ug9A(LhN_nI+75?8Sye=y+CAi>+Nxof!3ow=05_e;q>Ey&Z z%<}d(3WAL%u4r{zQG+qlN%~Dz)SB0B!vjbyYbL!!Y=m{DEzu;5s4T+xE5 zh9RPBO`Btdm_t=B*F14ATy;gur+Txj{w8uL|557`F^9|)ysjBtk|onjMZ4dK^& z@xzcl>uS{)e;hMnKXQiC;V4~$dqM=6ltHw|jID~49whERY~1eB4Gd1$e(TcGgQXUg z`WI<7_b_7u1~k=!y~;u~|5X!KUQA*9bQYZIiN|za(bpqlK8ATqlurOUI&*I{xGsJM z<7%IVK+0#_sg>u6G}{cViLU{$^~Jvv#kW^r;WIU!$AV4-T5A^2?!zeND6^F3#Rm%j z4vyVywOJdO)ebzlPq<%L%HnF`abPeo2s*@tO(=wB(56qdHqZ&B)kdS$5-q+cFlCER zvn(q+$(h_mP~s5G`>P}YL!~9iIK4<`goBdbK{f$p=;XI-ovXu1@tJY)#A-0g8Q_0x zhBj*uTJ8|$=dU$?ype2sP@#)&DA0<&$!k8eF|FL)yCq$O%^H{~Qnit6#}p$9UA9#^ zu?wIYokzS>Zq^{d?T0%&T6wt3qcoilW%)o2V?PKReiHHpR}BOTk6V^KE?_ER7qJCF9AM)}?3sD)04dYEpuJ`mT&q030=^(b?tbyOWu1DzqhKW6 ztoSe~;$idLZ_eLv+>Y2}jBGadZWcCj#p0Q`$CBI3=^Ks<>pNxHyKKP`>Jf&b89*(6 z#in%X_>C_e802`}b@KR)jRywF_>IpxbK*C?0A7E$S1}1-~Em6>o+CY@xchiA0t@fB zI~j3v_eM1dHyhn*GUV=2xchZ{>0Sa)mGc}JP7I`|XEeS?>pfya3;MEJ!~9Lf+tMnj z;vPM?f8GGK%{|bm2M^QLASX*8xLNQ$5kGE#mr4Ss}kA6Q0QwF{&16-_*k`mL-$DIE<6}sv7nX&8qfXFGykM)N^_eHpR-S3V~ zx)1X3yY8{c@Ig0}=kCwp(QzLB93LHrN5{GkAIGAOY z(sMbFIA}BxF&LHO?QxZd#7KIEivr8Vi`U5w7ENKw6yx!_5dHYt~vVxLQ{x0WY*(3m%QV%Yug+N?EY8@k(6iTCiiDj|q+W5tvG}yk3o2KZBj~ zKTI#SU}ul};W6hq;?LPLLJ%T0u6qxKd=v5YPRMpm^eB5jHwJ7!J_ygePQ!V<=6@`! zKmQg@P6Xa;qDRDkT=3a*PJsx!$n0?++7g*`i7t@?Fc4NEwM%nRreUBI8i&ruNZ zh5o&0N>luSmb}rcCFktYk`HZ*ChzNF>0DC}b*RcE_pN|G4?Q1IE~$7L{!Dxn{`|Ne za1MTdUMqfoTP1$~#KiC4$}EwGb{j2^3J*N{X8_GolA?peza0oG-b?V$J(!;G9?UcN zJ&zLDh>xaF`U$w0S*QfwIG`#s+rmoV_yMJ0wx6j=U^hP63Ku)^Vq-)Jd;q0qegqfm z@M3)!P2$674-fA#uOOQJ$Nc(%h%)n-ilyK)cm${dcNP@r!;*XOn?Cqc@PhwUN^~1& z!8?(;0={We0v|)+5Ak8xACuVt8~pW9atl6u)xRD~%I@u_9>ZXE!IP@@@$o?@Ro#I_ zg+3myp7Os;)fde5hv2Ws9)x33sy~4y_G1~rNCS|jj8pv3n8GPQFI@u_BR~Bo;@syO*0*AjJ_X1 zf?mp4wjDOwCMyWz=OUfeuV6GIB3Di9lU!&YPnSVE>;N0ELG$ftFF_FN#O# zI6w0(-0{jV<}UO0A}bT6E+-j z%%i>OPGDu101`IiQ~*e;_KIv%0Q~Ci1Bg3?lys!3oo0PD=9};SQV zc(EE^^eBPth~R7B)5CbNjmp%DG($6KHFrrYop}hWkKhBiX(oaQv+KS9Z@Y>7Awfce zBO2O;0yIJ%$N|ll1R7|5E8dPeAG<^MH1XkMHk1UtuHHqc6bNH|FfvT=W+E^m)T9j& zgy{zAeVK|wgpxaiH6D7^Qkf9Ya}Fv7GBZU7&=F@G)gkT&<({@KuEH))YY7e2=h!>9YGtx6>TQAAf27e7ax$2JB2gw12vDi!`-C0AZrXf_}=qNvzOC|K2iF;vK7O3tZ zU%+C-7!|2p7-x9y0abLf`cwMSsS1)K@?-fgK@0}swhbPCm<@gv;Sr$+GcQ{I8c~Fq z=eE8!$dNlKy5CD<%NM<$Mz>+yu&Z`JotvTbo7p3&r;)@6A)4*kh|z4+V~?s=V*?#x z4xtMwE|Li5?Sc;|a?b1x#B-%dBJmYoLH$H0M5r&je+?=jA#|;QaOYu>SPZ~d{eqwr z@VSVQM?2R{nLiC-t;~GcW-+Q>7KIUrd8&<(@+DOJs9kLZp;VZNjaT^hD}hgNAfMtG zkbYDhm%DoP8W>wa^*hvuXK5$H!LC&$fo#URR-BJC(6?n~N#OtQ91{PZPY+t0!cqr+ z=SVLKB%syrWhO(2iP!>=u$jLjRs?%ENKDIO`C#S?q8u)j%jMi4e&D%`Mu)eS$~nZc*s*Gg1P@si}3Q<2~R?zoQWUe%A{Kz7-Jh`}uHjKqjU~R?vHa5;%&#*SisY zRM^qOc!45PLqu#YGdIIW@8AVWB45J$LwIu(xuaEZ*Gn9Ez2FZblmfnrgu}PRiYK9I zz35PNN{DY=V$rP@vZ6z5tgBT)57w*1As~;fimdXhkgiE#4f%$BLUKGRmYc9+!AA=v zX9^7#3W?@@DE)zuPj^Z3x>m@NZ`<+^_JD{NRQ@J?D~LKWC$s&2Axpk&*DL6qcQ!5Q zUDUnm)l#gbhXsNLsS=(jue?Ci8@EH@blzpZY$I;EgoY1LDRX8?cTilwfkFq&G*L{# zy;JbLGe4zIM~N>GYMsQWB8!VvjTZa?Cb8{C+9Ig>E@E261_HhMNQ~tUpP2IB(OEO1 z$w;hg6{3ikb*ON${gGeP+(91%Xsxa$o)P<#PxnY~aGV`E!*t7cD)v>>%2lRr-PPaC5fc4oPN!+wD?%M>~~DA>MZ3+OMK( zuiHaHdG!~#4uu@mMr#IFR5gy0_Is4=<_c*TrK+9udN%TO$PY_(4YpnkA0MXi{mqsw zR|~llMA15l`XEM8zmq5*BR#0X+fgV292Jbd*S#r=r@+LK*-8i$l!qWxRHPy}(zF~5 zb%!Zc>&yQ7JR0q4DI6nTa6s;0UjO?5uaQ)|1S!oH5|Xix(`1~7n7>j=*#(%ObI#E) zQoekT&>xT(_hDMR4@@@Pvk|H_Vh*bg;qz&JozziLS2GRQH`y37n^Mi5H_;e18!0pH z0uvEMpuW+qLI!!;27w~hB6fT)Rggkq7?(NJ+8q{Bdj~V9? z)R6p}1~;0XEqChLEcUPAV)qO}ZQu zxlrINh#_-Tb(r)=mtYIEG|5mZU+8yQ#VnKLT0vS9Lc@A6P z2HyQ)yZgQaC_B{AZIw_`dFhcTK{<67%lEh~6o@xs%PUB~S%pzc{PujVBgwjq_N{6X zxC_E0FJrlae7|7zafBnquCkE0F{-dg(1&S$*y}%~%`HI8sV_p+d67j_aaNRS9XQ+w zZ6847F&!?BeJfQbSWa)4HYM10rZYNpJ4F3Pe+`q?1bzbM< zxP(SRaYVEy6$xoYqqajTEMa3?BqSCoW6w0Bcw`etcJ{;@ho-Vig3>Qd)t0uLQ#)YC zilmstO6$19aTAg{Elu5&BqSw0lDG*FAnpQl5nvmEF$M-~zy^MMJjL0!~GS z8|#^VwVasIt*=?Xt!2+*r&5N?-JO;oy8J4mS()H^^#yh+#@fHSyBm)v&xEbOgOl!Z zF3M8WRC^FHc5q}p;tn$~*p-Nkh}u90c~3mnI1f3BgJt$4NEUBGl*E7b4D6P;{3Hj6 z5Vro(DZNS%bq_iSKO0NfJGemss$<4$&Zq62uz|BuOE!GCPU< zfG>*8<`yk9x9FjW!y}*J-0)X;`~$ecEO{A!2G`o5kJ+Ie=0xx0wrmN3+>+oYZ-+WT zvZfl_Pv8+-B~(l$_4$CEn$euseIoS$w zhw?PCa~B}%^`a3G1Q1Q^c!=Bhdv01baYU9p`7Eaw-_Psjksy*CDTN@ElS0tfTf-gp zbxKIC_{JYGKr4q0n7{puy)L67`z*>P5pG0My(6MYcG<{1!{dV(GF(?o(|((#B|OAz z?Rdo=HHzKs^5}c78INGZORTsxVZ=eab1|zh^lPpiZIIhb#GzLMss1xA!}mcj!95EP zd9vnW)EP+0Bk+KDorBAyMGMHGH_1A#jLUdWDSTEE_TqFn(@y=PjG)tDI;~3+S3R7W zS)8$EMx8XQ;84FNX_@3E{oo%lX{W^2fIS2=8KyC!X#S^5^1s&*XiLkFA|Pq8y2Sz0 zX!lO6@G|IYhu2798_JFO1fJ48X}U94eA7QNP(Kh2en4tcDoVe`bB^X25A+7%aJmwa zJHZH>zvFlZZ0h=LgvAjw(U8v=U;e6Ly(ILC*Jr10=TRE05W#s=)b>|2x#QdJXdC%O0pZ$O_TewmXG6WKj>!a8HBrU&+jMqTA z&he4rmA}^5zK=2mThGH@liNk9kT9$F15RwWe1DmF249ep>Q0LKaV2u7;xe0w4~L=d z;$P?4?p9Tz*wk~yMR?p(G8y@N%688dIfxo%m+VeS$?2pJY2?JxoA<|~0M6GwOeWH_ zNho5@s>TXB^l;a7gBKB!h49}*HnOV=Y+7RoBbmn(uk4lMZP5JN$JEL>ggGwdU+!+s z>Ns@*hUHJQtzh>aO3SFpmsRw|FJN@ldAy8U(<`Q4atc-O^usdzs{6!B>?7C1yG&3d zDm2g!NzW(kZSZwUBHRfMe!TWH=PoU_4Q31zUn|oKLnmJLGA1HMeG^X{qnuV#M%6~h zjn904bb(ENZoK5?-RVC?TFfhC57U-h%Q3Wpp-u!TpoR8j7ru;cHx|wmTHgg z5*;uMcW{wzQm*p+gI869=?sscFTR>3~y}!oH0!#tbZ&J@{6YW25YEfU0YmWQGMoZ;3-2MfC}r+jgO*D*S2qL~ zEF)6zsd1WS7QLK;$5x6ci~n1$l5hcy>}vRv0k~efhvx6_Ce!skG=uooi)jN%G&*qc z_1)Hmd$c5s<=5^=0(Exy^D26xh4$k{{=vfgWHq7?^lY}H2|j;7NC(VeH!^J*O`%0xDJ z5ValfZ9+Ml!ft%wBvBID1V{8%}d?X37Fphus3YIK2y1`~@I4)O-2 z{B$`kf4;G3tKhrRgxZ{vc!hwwwq)k?*3yFAB(758DHu6#%Hy3Cpr5oJSM5)NhoE$+JiNwr<>s*7UChE` zG(Mg;1)tlm@6eoRvKVxaJ-z5$y@DgHgnCtbdAlXfEt{8I@=0CR5UOt@0EKX&hS|z? z=hanZazlb2@E^QBy_ML4Ytjti!&1*(OkpL!qw|h&AA(gaLowNZ&nCzVqUZ8RDQ?NR zS7DONLy7%m86yO~>n8)OW~ruw3@O$dwsLKd70QkI{NEw+w5GiJKwhE-zFgk*cZe=X zcIrHQ$ssk9`{^vy<~0)~?$c>%KRUPFywMD?^b7wE5Hv9|rkwv8YUr&v;Ww;C<#SSU%#B$9|`WBb1Kbg6)kMI=lq~e-$WB-Cj70=OMwqnCO zryF8xVyX-i(h%6u*HcwAVTnj7;!`E_pW!+KNAlNR5@^CtWyzxTHB)$zZ>M?OeD+LgU}P~D{BH=cxp>b(k$)I?_|cMvn7 z?v#jVu6QdC^dBKjtl=O9zqp5Y8S^dt>#wePm@7ES{$tf8Xs*=~0zLklJbdhfPhxSr zB(HrpzVmiNqW%(pxDp;Kdk;fQ#Sc6=x`5%HNgv{|gm=ndFo@yA$~93EU##H_r*A@m%clp(Cfg{7p=WyE6~Ch`gbL4BJODMe77CK4+_oeSDM5NM_E$#Gqu?4E(Vh zAl#3c@sY+Gd8?QpQT3i+{zsd!<9S9Ca;NX=tZ&eVfYsNN=XQ{Lm6*ynaF*P21$zFU z;tKbvYrII!?^Sp}4?^$}xuV88oY7_JmTr@i46`>%BoAzlBi&STNWTM#UgK;av5h-ll~`8=`5=R_QWCvN6L$UXRM zYNrk8?aPkHK7YHv&)?|(->tY&j(oCEpAF~f4n7pTpTMU-B2V+8fudzpp+Eu37A^Jo zq99V88}k+a4_I(1f`HuhLDCJGzYWkRSn9GEia)ss+ty(yzNB7h2;-W-j#TZRzlz>e zN|UFRc?)E@fM+8`2taHMIb%g!$K`j8g)&Rq$NbqQW>Nh;W3qzSci`xloh%{M@n^71 z*K=b_%30WEV!Dyl(1Csi%;m5_l$fHHA4{29?@ofJZbzw9)v|a7)Eiw z#jpJZ8uQ2SjKVM79$coL3w$x>GYO>*MNGwo{u^J zeJBAd>e{gvzR7L)Jx@?ki0L`z;y0ns#M#b`FMDEifxTdX97P%R_w{ee)i)vcC~3h~ z{C@y@u1AIH=5@sWgSRREJNz5(va~kR|5Ai;3_GfaCb#B3OQ z_cy~QnDm8ja{T#pQ$DLVxq&y~<@{lGmSWtJmIalBkMEK<+oo2TuxJaULR_P<`@g|! zy%#Sjo1!P;;2ukHlNodV8=UKD%f2zXfDb%=qkIRWG&kv|{M|dJLZ6%PuX@S9{|1Np zID!PoJ}uGooHvN|gNQ%zYyB8bd3;T(d%%^Cd2i=vLiL%N&J|zm;Qjj2j5m8?!@$y8 zXm~xRNg(U8WqD0v&N<8(i}Llds8d*s{Rh^$=`!D7MvO~V`#*GWWBwNZog)8gRI2!Y z@c!=eNy3hXb>{zs#}+@J&$k6?4l02~30W-j3yA5%`jw}v3QCf4V{X(d{7%Pc7MA`;_!tu$e%@jki>2lPYnpP%5-9Pmz`9;VQP_oyxrA;%NSyYNdRY>3R;2Ypy`Z~? ziqAt{OWt&!9r>IcDKQ6xg`bxHSAI9C7V_@K_5-q>*4r~aY0vmvBv+;*scF#LH3hmZ zOo0jjeX3=tIxN`bo@{IvjW&LCI|ky-NKzGwQJ|vk!oX5&PD~c%vcZzTYXcZIooq&s z(wN2E3Pp_Mtilk%?|9h(xl$I$j@RXW&*OP_Ch2UsmQ(atZV1+a06OWBxlfKGZ#;0L z{`qxM{5GZjYgp|P0nM$UEaya3Z6K%?c@P2f#& z9xeVC06Lh<0F`%M5g$qBPQ|lNK_BI1aiy`>__lf**7ad{24d}FJwJ|b#h}niyHgnKvi65sbStZJ9H}gnlS?er#qe>CQDqyZgpSGzAEbI|s0@=VLQKI14%3DW?Hjn{rc)kYkP%p#DC1wd zld|hl?Blhiko#HG!D+$ACRs1&XqM6c^Dw<+>T-smA3e7D6E35X<5t3uz;5(+t^|>-8FA z#^V~Y>QMA~N}+-xs~x(l0Hyl6+9fY8zzV@OGG*_AAUI|T@8VSpc&i-^?NZO`38d;G z7ey22Pte`xOhajLnsBB#{9_LJ|pFRa)c7+ydp*P$H$4 zr+-YJ{G2Yt@_0QeHK+X6S0H^-oxQ{$_+se`-mCB{qYKQ$@VElh6%kK^cDVnIE8k%4 z&MIWWS<~yt>q#U;Dg~AyFvpNzvxW!O$o~Xjm)k`lUXOdt=Dp}x1tP7i5bNZ_>$tL* zgD_C$%B$@aX=??%>lE=~v_(=3tE(;2N3+x2q4GTTVT$X1>i>teq}w;V(sEPPyug1v zL^Tap>Ci)?ugo}|3-F)O{1oNgFrctLD7bqds*7ZnzHyZddoP--rXZ!@h1h8_l;I_E zO$5$f6n*+E<-$v3pj8_d^i*-GO?H`#+-Lv+Jb6o?)_iepvDl*s@LbiL0)DLsqzDlX z5nAF(U*uZAD$#pIGi+hCE3$9_xHX>O1^oqYQavwxkQKBEk$H;ew$-ecdf%XMUTQkzry+G?n8IMxSCw27wuQ@PJ}Q1`IPYWSEhYh8Zas zrI-Ka5B*tPec;ix59@@ekjjK2Qi`W)x|CV3FZRj%EcAvQAY z@`Za6wSm#Pz*+wn>H>?jF0g21U7!q~EcM%B^8f4Pe_s@?lP{NAEn2r#`R&%2abHSe z;%R&_z~KHY&fvB@OFUYMT}R}9p=l@h0Ri~KxeXSdukW2tjzg)-IU{CZ@L)ztzVdG; z(6QSD&XSYTo*~v-2gA2DKAC-3liAm$PBwZdxX%pC;qE8&A=7EZ9Z zD0fohhQPDE=&PvXa^>N)21NvxA;|=om}!zMbR^~$VL4`j+0X(b2jw5OsbYBEq@UVv zdw$$wxsXKb{pULu94MB*`EEFn@D%!5E5_MQAyr`?BUnkWzEh zpNG|qM=eVvHzTP~ za+O#G>~tiS*aZ2%B@&S$%aHhl@BJ(f+++#5*I9|80TTZ(aU|l))JbuNEC`Qt^s)m4 z3h+v6?IF4nFYuhcq}n2+Sn{+UpHCDhBiz)(v<$%oM8E-snkQ9H4MNoXTRmp(L429= zVtCu~mT)Pr*7{YonEDaF-mA|dHcT)|!y0n3hryT2N%zM_`qlk9WKyF1VnfkBa7<(~ zMSvOfG|X9D&v9L2qawh&9P{MILyS+qsN^cfP)F9mF2g~xD7G7CMOM;=R@bZ0qWyUB z<$Q}%3M=X-R$y^rX<<0|%M#0icU@&)8YC!u*K!kuDAp(ZQQ~O0f9MZb!9{Qj)wM&a;88_GewtWTW%~`&8v#heI6T-Q+6FvZVwaY;Pv?@ z*UD*`;PGS+^1p@2d&nwm9j4i&go^LbzFMACY9ak$srTP$qX1JpNqV^F#5gLo3%=`< zon>F55Dng`9~+7`HWqD^0?dYOS>du1e%bQjdNDl@%H;dk}A~&t^^*u zV`9{Zad>BE^(Pv1~sXJOZLv( z*;&CJN<};PI-l?#TaXm`Qge+cMM$BDJC%X;kE+~{DWwS@m8Yagqn1sS`Nucq(+YtflryU33_EJb|9v*9vL$8?!@})Gn)>GrbIuA1 zRn3Wqij?4m$xu1JF2xce_X5Rv84U7Q!AXkJ8oYv##@T}POcKOIfS>em)>4B}}cIn@G3U>>XB{wB1k{aiixSzXo zgsB}~hz^00O9GET^InrI#qa*Iid@99x1vFJ4KwY9DzmMjTT#62PZ&j#teJN(;zYo$ zaDh=5%a`X`Fh+JA=syXE4jAr{-*cT@#%X(PnJ9lI&3_3iN8Zf^8_f#K4HQrRlhGE4 zb_qRxGLU^8z@Quw@#6Bx3AET zlEG4#9$g9z!BPm%aQkJ=4^#OJiMG;E(ji$Uvg9Xnv49v<`1WLJ+#pYX7zKX1H1?S4 z2v-KYv07UoT0F5*S?GW-J*XB>6X0qRA5_Ai=0s(RP-$;xUiOWkv>RKMl~m_bxqZp^ViM)-d>wUa?#$K|=P`Nn&{iTJ!Ql{jYEA9Hz#_2C`O2Q+j>6S+H- zdtDEC)DS zDS$w&#(A~MMN}O7<8Ud+vT|BjwsM@7CEskbfun?jf@y5EYL6v@jBu`a`Io|L$(nYQ z?@3Wd{y^|@tW-hj9JF>sR$C>waD*Pr(`51%8_uDpvHe6u@=!?nrX?eQSV$8~wv_0G zG_$DA5;KV7@6#gXc)CC;80GF4%wbm^r~`-&FH`g6d5Vb@5g*7$3MmlNK~Nyq#gGgN z&n+sf(1*n#^Z~?{veiG)GFk}RsnECKV#+VKLfPUR%egb{#w%(hAz-7^SHMqL7%JT zA~(etpJ39oFLFm0RHV|K^ihd`-vb3Vxz)a2jwfzF!m;#=X7|?OR%y{L3^W2?xKQh% z&xPBFa+d9+S#|r?T`X64AiAjS8_T{`mR1T~10t)|B z9?(knRVyh!Y>NO9(KOOWxy6wj{zA*)cNt8eFW^NjwLw(mRC8hm-~rWPYCRp;!CiI~ zqpOE7!*zN|V7_qX^rqm{56aI0&Op>^J-4Zq5E!C~bNliNF*{3_9e%}XkqHe*x>E59>DjC6 zvs=aBL_}l+{iy=6BM=J0`Q2CZ_zS)w zCE5~v6EY4_&sK1Miad2wiPjL$kOxl1)x`HnzReoUKg-I*{}dcuPBYGHbnzp)o_kSo zVF(qiNvdV_0*Dy6X}IUht51tlsQe9Hw-(mA;?sMFR2S?}u+OeQHVo6?VR*d={=tK$ z@Is}q$Cmx}e5f3dEAfS3md*YwT&^m>HNe6?hwD-nngbEYEhX`stiT_cFw8Pxz;UAY zekP6aGaoq==}=BTf0u2e~UK=W&XBxH4Fjs@y)^mp0~qAGiw`99nDc z5ru-K$yM6%_S(_gKWGQR=Bb{5X5;rBuh~}((-Ogip={tCImTZ64;u}XtL?!4y2JbeJlT!&@?06X9muZR3SX42MC7_l}>19@1aOLm;j z2+&xRtB*F1raD&#xU4j3<5ExYSroZuU8!8AN;32|ZDiNU?Er+thAWT@4~6s|QL``7 z>Qrt%XUZ@B5L*uGD^dOpHWbbD?9UUa2s+elS}CR>iWp?V(dj>}*kNxg3uJ`!mV7>v zo%4n`{X0YwY`H9nm<|dN>B5(Jg<4c|8W;0du}x``y079TAzkt&yH#Gc2bRPkPVp*D zxrit*6(oFCswgT;?dH$v)Jz_w4}n8OV*2%I{Mk=giT3iS)?v2DztwlZWLa zChd_MnUzpWE2Mhoh}RAq!z07>c$!~;Z;u)ry) z_}O(NP);!xcN!k%WBOFnHS(~Hspi36Cgj>=9s0P^0UC_qm!3sE&R9U_IVZ!_2%1ZI#k`z4!M(K6Sq_Y)I04tcG+-;KCp&C}?=a5Y-?+sL|prah7hvnQEVPQGu2WdzYFK#nUinB9C z9ZFl%!6*-&J6pqVv$srI+NvZsMF1>yz{!_{1U!mIPV6;u8wSJ3+(~j9epmt!5y@=~ zsMKvhr2zvf4JlCRqym)+ij>@@NXc!A2vn*rQgWLjCATS3a+@M0w<#jIjl^Zq7&F^h z{G)G$_@tS?cQrmqC~d4K*nsvOVh^c&rst(tX2F`14Mis#Z{1Vg`2dE>Exofd)=5y% zY^R~K(#f>V8~4f1+Kp(5+cvkVp|ifUeB#{UJ37l6$|uen%(U+iP*Pt*&4B-JW_iQw zyZwJ>JnR3@6}Zx@$AZSgJqJhmU$i8u8fyCd53LEOv1VJgvko96|BL#>h<<>wNdBj< z`VrIl^Rk8-sUUYMKBk>WoEsEB=sXxBv#3-5QTbEsO{YAc{vy2G4&f0jUW_LsTmODG^K9K1-6uYyt z5=$ymvn5-zyK&CCGmSO95dTpAC3c=DYiJkAa73rCM-B=hp9_eXOM&OG-~lRc$<*|K zf#l{eKgKADQ-CyF2vW+uY~6q0b)RKHp+(D)cP_gnNdPKp?<5f8#3rIb5#63@Z$t#V zOnsVdTt3>%=$v6DBqE;{KU<6Zb5bPa9bs83`YQqBKH*%`=mO)|7}glIKz)m!Zz5KB zH-ooWj_E5JN%=SZRe_;NL_*~G-jmmecT)S<37#r%SqYXBL zBAiXS2_vd}Sl2Kfb*((A|K5ktl&H8Qy)WFZuI`z;oe)`?%r1GRu%Mo6hOQ%u0_ zAtWuyiHN^PG>oC+V?dSp=RFXu^ut^s%?7aXZM^B`ynQ)e5XeE-kd$NtCyh+4g1RGH!eci%!i(7g`R1Fp251RCib%ldM2Bgi_MgZW`)w~F4KmW zY`Q9nXL$k9zul^UsEAluCW>fS710nC5!y_6iu(2S(FYz6_0gEASL>rs`|4=2_J|}D ze|JOYColWUyrH493>Ci|YF2PP(`pM2RF88*%PGkG-OxwJwY}>4p+0H~< zRMQ=u6%C@Bd_D33DyOng#kY&Fkn$bna+CB z&-EORHOx6x3AHrW|E0}WLPZ%>Thc1n740?`r9sb2)7}}Gn%&v9)c}Tn z$UD2Dp0(v+`0Wg0n+1Doob&SAifBq52d4R+qi+vJH!UUEqVb` zmSC#nSo={+E_=u%I34n|wLqG@pebk3>Ip_y;`7;jXj7hq`?ulpfV{|2Wl-zhrJyar zjS*4^JZoj7dkNY476+XX4kD;Bi{6{J5v)sKkKV1&KlcE3H1VL)Xqp%g4?pd{llFOX zdo^Q&bk9mj0?|=-5=P37`)!9x>_;FX5`oeXXb||EeO2JoRAebUp_n|(0JK<*MJHk` zY!Z!DQ5Luxpe%>}PoUElo}FFQT0oTV9faz8&!-UE-iJ2)^sJiErYxH%3jo@JhxflO zQ@y)Jh6=eT`QK}Joa?!HN`S9Y=t={o!c&Tse8Zqp*!O^$H~(%NZc>SAm}ErjSK=|o zjpRW_1S}``W4Y~(Bg2*n^S~>}qF>!0ZL^!eb8(zC_4{$&4FOqnEjRCYEjA%U;?LR8 zPR3)@*>g_D?du{t(Aqp>NGaKD5IE0H(#RB{(CqHOGECvUcP~K@Zh)4`7Pa{LYC-on z31HW+$ksIbf3}JG!d~=yZ|Gh$m#&_5s9IEDu3mw;dIjd{6_~46V6L9-PA7GDD$ov9 zj0%FOo`nE6-a%7XHXs-Fu)GQ^;aRYRXTSoUp4Dv!+s$O_HzkcoUb_qZQ=RwSAuVr( ztmo%DLiu)S^@ zSaEZ?b$&)42f7VCQuNIH^xGY!U*%mS(RFhO0H(O88{AH@P z!U5D0ZtBO_G!;-F!%-9z280r^%@~uf15GVK%M=q^VnN5g%GJ7CgQ0YFcPe%TufM*$ z`VA6^fV@REOCiOm6}{U6z#bKs`zG53tVG;PORIC^;|+wToL0}nlUx``UY@5 zax9~Dw=ZURJhFOYc4eS8cLJcscZ!$$cb_TR_JJxuIV71B2aG1yo3=y&njbi0|2{KX z)%#ivIKcycRJ(kP{~P>nEZ)9dVCA>#wfiZvi@n;AEC>FdW7Y>174CvcOnj9<76~qT zCrr3>6q0O+)L}HU7i9p16$(Q0KqT?vXiN`}?Dr&)TW@C`^}x_=J;V{LT22(xk4K z&nCCXeV$;BCJ6%$Wzgq1vEdxOk|)uYdkkZoCizUCP!wxq+m(&q+m5{KWCT}b+-C|n z>w)R-FkLcqU&j~%bK|-7Eam5%!1Xz zAPh)v4izsuMx6VzhN9PT`p+9`E@y9#Ubo@Na0#cwC7c15 za28y`x!8IivaNTKZN1Ov*87}pz1`{!-dcsd^}KA~+|G|R&N<{}{rz>ps%IrYb?eUZ&VLxqz*Ixc z=}g-^C+ly~;@XK{C!}}s{#Q76$j)&2I%Bu;cf5VL)s6@{O}DLfdOIT&`@Kv#YkD{Xk>;flSf!zJDl9zMRBaLFf zXj78o0Kc1fZ4yIL5!gx)FQ}7W#-9EWvi~_v`v?lGvTU~Sta-8*I$$L^2->LXLZxwg zlsgK{U)e-G_64ib2oM>%V|gvTfd_IkEdq(;45pOM@Q^Z-yZfx`4fp_$Ll^mv*ZeE3 zk6NQ7h2k*Qksz>|kGT@B!W|y8dW3YeAhFf*tpY2$!BB|b^`E|Fb2*PT_P%BFzc8Mg zQW~e5e-ZlQsE(oznzX)7iyN7ieZ^ntWoyVag%bOw)ktO4t^s)BwsNm&qtpPo{y$_` zJQ@~Lx&c4Pu7Cuq>oyc1EDbiIy06RiD!xwYbv0MO3mD@JECGl4X(+vaWl@FZj%n2E^CP#MM$Cr@Jo~rw*=O)JOT6b`mp&yZ?KCgsIk&)kX?$YbLN9^*_DiocbXwsd2=P{cQ;#$O&Nn4ZFuWQ zn>P#x8@MSeirB$|T>=PFTZCgtzA|DiZij^>557?!d>pS?`3{o-+BAul?NcF%F(Q#v zIhJUFGwsVCCuR#wUSnr{9HcOOs2%!Xh(HLLi1#KQ@ye(BPdweP^ywz^W_4jv>_&e} zbc13*1T1z0Pl*;w5-j!yOk%~^Tc*AHGh!B;@Xdmo{(H@WrRoL~3M_7ML17pV{#^3@ zq<8;J$xluEs|f$YZ(X~8h?oTTz$D0MWOxz&J!Fif+4iFib9(1y7IZIaDC(A&!@R~@ zca?YUDPuxgKst>z7aH2`D{XA=X=s}>*wFUZ1C4Ee+Gi10X%@0vnuR-V*X$Ukcjk$=}7BL7jX{Xztp5VaS+ggEW1z4i0Qt?;O}z6gy7V7$oF+0YMe8`ePeI5rK#+g9V1F_ zu&f4+Pgqncind?I!jSIfafFF_VM&k~-$NL)Vmp4D%ssD%7KF6B2#f@OQ=Sb|LFzqL zX|c9hSu1u0b@&nHL=PncD-msCd$0k0S%9M z7{KD>-XOc9$n}OG{xB{$ObiAX$ZQVcffKn2Wo}MN#y2({@0;LbIF(EB)DrRiZF~0G z8!|=RY3M^K32SKg)%^KP&yiwT!U-uG^6FOcrDSi?J{=VatYT>?@Vla5npYRd>&i0^ zHO}d-%gkXH^;#G$RdTK7)hvvRixTvY%OhstNO7mEHc<56AlK>%dFej{kiOUhxo(7b zZdCP~+Ynf5)ri&${7sXH1L}~88I~J6^ih(7vw4X;&0ZqCmKic^73>?(X1zgn4_s>t z(YwMm8*urSB~@lp%53|Uj{>ReLEdtc{zCq|-8ZOI{H7AAsCK~{+&R@G>}6k9t*t_M zS2;uxPDLNZ<0(eKQz0ubv4oOsz)%X+Z@dK)pGwRP8k)MjDPz9(9WrMj-&N^R*lu$b z;=N3bSStx9Xg$z_b3KVwk!Z;EG&s}3P_oNzs4x%W1mvv*@J8QOgIUwn_4ULaHk6_v z2<>qy^IGP#k-;lo3iVTQJCq?Aq5bC^xDuQ>8o+`X0oj5hvP$~luI75NzA`L;iorNf zGNGADG)KBnk`7s`;H)B0cwn@#=1Qx+$xUecuxx8tKIP5QykJDDyVvdR&d|H^+WJ?*WSbo*))+R_lZ> zDh&0M^1@tJU~+dT0Eiv2mS5a1w9Wut>VC-(4QlXV{Bu)A7pTRGc0@<>2CUy>Apngv z3?#`&PFVZ7NZiP}ZKCVKVZ_*Bw#E}3nf6WoEprlG_=D*TN9l*eW(x2C{=W2EbV}XjyMQ7!l%t-Dut>}2A zWSqu-vJP|Ht0BUilx+b4m?Pd;OICW>hY7A*3N_MBPAc78LQ1ELj@QbzelF|Wm?O6+ z=OrMQ#oKRD5<<5HJ(Zi-rhGt&vVVFDIgbDB7DP!eQPi>kC*3um5#B2zGE3gHS;J2njG_p> z3UNUjKke)XTomQaeIuUgmS(4$y zHm>|_k(u}1JX)K%<_>E;J@^*}Rg?N-KMRuIVnv^x=ueGCri6yHG!nu@$N+Iqk+In+ zc}$bBDpNG>QTEdS;#~SDi-bLL(+COs@=Zo_*@TAuEs43Rf^uU&i{B(XA;HPwPuw(G zcO>Q`*q~8va*EF61`#k$^d$|dNQC=S36A>qu(g{pK)T0G>FmH1{0paGsYuamd6$-} zr05W`0l9toWJnG*tRkh24sXEZe@HGOk(yi?{E(F@Exm!tx*d8$!gsJ|v_jDt|M{C( znRH6q-678EUbO2cpk%~S_*8u;A$^c3Sgm5C|N2c>nrn<=l37%QKz~XUYKjP0 zWSADnX`ZEe) zRexxiWigjp7ITSZF&A4Fla;6NqE4C@#jrT@m~xdW&1X(lFKTKuZ|QqebLmZG3gJ!7 z^t~y?tA6xLp+EI66>rs#@s84a#HWg2ZHP-biY}G->X`3Q&GS8~$JC>m)p+an^3F%z zO^@m!cvOdckIIoAjO@Mmrvv6rHMaeA-xV&^2u}(gu+0Amm#Xomw|1%I5oTxFdkC*V zgG`Ox7G#z9B->7$K}NZK1i@^cGPC)?5oVq*;t>MbFmIqa?OacB-ZR_i_T`+ z04*8HDxyA9v@z3JiOV(?y_Rji*jRKqQ*<_4v^rC?4`EoKHY&~;-Xzn$8s0{yly|eK zSOj-6Q7|E5RtpNm$y=&)Q$TT#l5KCLVg~2Kn2aSDMeSu0aw@kLbOiD5)bcMOErXKQ zt%65}mVp2A9b5C{-F+x-6er;3? zgp>LgxNa4{jo$67V(Am#B=NiXQ~+Cvq-L4^l|C_Y%UALeq7141iZeHkw)cQ(w!z|^ ztMX(FVyhcZxR9L0GA*JK32vjs8%m-Ge~;r(8#T8E0C1v}@1db&6T^sqR*)xb(n)kk$~FV+i1?y1Lhu#^(E8iK zuKP0gGA*jOl-R^!aXjFKt$!|iz5aC>=h|Bg3eww5dHLNEE=w!69(h7 zdhvA9O4GuCnbJ1a&&wa`Be*-mNJp;ty^}$C=$=V}cyHz(?n>>DfCDaOMQ zd+OtPnxHD0Q04u)Aeq-vnuhd7VZ&3D*og)H0!5zzug#u0!8 zBxB{W18m}ZK0-nRe{Io!*FD>a7PJjf9-POSaTsv3hU*%c3iU%J+V4X}@XliC1`d~?hP9ZWf z1LHF7M+0<)Gxnc;m!N|2-}znEd3NW6x*F+PW|6H_A{H!Zk#?@?JShPj6m^4O#PPtD zhGg^xoL3Pf(7Yo|uw5Zh5n(RhGXt1~ zZ~uS$46Q431;JqkKX?g8zU-|06%679!?8@y@Tkn??#9l_1rL^gFog(a99w@IY&+-I zt!LlY0v0NzZSsZU1O9*4$#ng?{O|6VE*?(X-f+Gnj$K=(2=$7UU(3{N`#-zcXQA%y zF8lxJZrBI!t{AZ>cjz78>2A2mG2Rq6(c6hvKXlEzLHh5m4DZ$;Rjt?BA+Ne)1{mF2 zFA0aaKhuzjub{3fhWT!+S^58VcEe{XeY z;w$}I->I(>*Ub_4z7(}>-Rj_iY4hQ3aW)&i&?{^(jqL}e%B`qd!d=1vp^3wR^3J{S zf&$}h5YBk%Hi-ikqx4$z01CX@mZ6S3qc-lmoKjjlwD3SX_ zDjoj=Sx)>9U5Uy3u-Kr#OROetsnV8DT&9tOi7QxVom-_cpIM1HK_rXXMROlLjQP(%CP#yQ8QHqO~zPrf>E)cKC`V5aDKd9~%> z`dyU;3#!a7!)p>xkL`}Yh~=@!lZ8If!y#UxN8K~h$$J5wSNv5pX_UX6#PdvSgsu|v z65a*8#lPd%R%V`7T7PYqP@*PEsure8ywCr;b{wy*u&XU}Zug0M!iLeoqr=y|ZUh9F zl^?4G1Y!O?(KGb1&z9Bu9dmISugLietnk7dr1^#z+);IfuSxJw! zR*OYi5_KthK9Xhu=*qv;^NmH_cXZbJ$G<7Ii&Ftk!rGPjkY-lidK{fue;=0_kOHkc zd>IgV79kEY$7IKEoby608sSRnLss(#^JHE@x={Ax9qc3R4&&lIDVa$_Sn;W6W4NT~ zalQF`tAn@w1uE=P+6L~JPF-4pmWZKC>antM&VK180B+HiM8;<5R0KBN(7s7{n&s<4 zZ3sJZx{4aw1;8}~GH99Y>MJ^xB5a^C=Wse>3F8rlBMKFTXJ=b@P&IPU1WtwgnZ_dy z2kA##!}Ac4)?TK9DUK_53Nm-MBg`U_FmMHlK0Ia7q=Ia_1uf%Wvmg@S%qJDG7yD0& z1_@rBrdJ9^gp_Jg%9IvoAcZK>N;s<$T!{xAKp@G>cu7P1EyRy1zd+eLMgoNJbB9p| zFbH0UDAP%6A;2h;9fLGtN-Alz7dZMkTb#w~LFR$U#I!6tw9u51dWIuqv`Htj9m;+KWy9jE4`4`X#_}oGI7(|Q|nF=PUv`;?SdtGME5(H7WP3V-t)HKuR zE<0(-)Vb?$nFLAjH z6SUyEkzxe~_4RBlE4nEnguOV^%WJa@7A|HJ)z*ksoYZ&;qm4~+L$`&*d5v1=*pz6> zwznka$+CI?;nJDD``K@6Kg?-JDyJ9eI60|RGk32BdBZ+S>6Yz;x3j~yF-}O(O;X{X zm&Nwk1j2A#Z*k!*xbR#gM8pfO(~GtwnuD|pG38&&wrBaoe}LdduJu~k7iVno`-2$8 zJ_QZ3CL^1eYF+KccaA6Ci;In8X^Atw?|p3Oy8M0g_FCXB=f*z!K1AA9YjzE(*gj_A zBs0be5X3Gw;JM&4dPs9#AQTaOHN@Yv$^mfocVkTK6XN?xLPb?-ww_|3fT zy+Z+}L+TuNaZi@ayBs`P9-6$9QfcE2YGTVsS$1fBz)^1RBg;0>i7+ykg6vCxKR4%L zjNErX{@)ImtjrQBS#y}CPtCtpu|{s^2=iCgP9=PX+*BDXc=cSufi?td5YyB`rg(Ff3=W>P9;4d(-kxB&`BYHqDycc-c+5#ygb6 z$G=yH>O@3g{0EL_+GTGT|E&td1DxNox{z&wa6DhmUh!+JFk}l}GNyr7(FEi2%A_x2 z!YEFz_+u4ha{q7z%R=^qQ(p;XTLqa&kwCP#9EZE?mF~h28McZZ04lVeCtPvc74GV8 z3yVUSDm@kmfI#IFUy%p?2kn67d|L*?=3m-3eEZi3?mWinko^F3$oY^&jb_zKyLmpz zerx;uq2G|!@!5>Kry(CG8vV96=xFw*OlSTC zCp6<^u;Ph$1f(axiz;lmoTYl?Vuy_6Ln{4dR*6n}`n?$NJ&+6R-M6!tw-+L#O^|XE z{`|cV4MtG~k-}JD<*%t6ZRU?a(gbKMA=3A#7tqgo(tAypIcOl4EB=l5jxL}Y@)T?_d`=`f+dFhj>6 zkoxV%R4~86#d(FM87U4T(}FUr1nToswRnK)YYT(vhhUPI@J8{nmoe6*BPY^l_nf5A6+nF%TPfS{%@7S5`Wy9TMaR7OaJLMi@vs{SzP75?z=)e2W1 zr$0>V^MA0WH;wJLBZN?jn9_78nCfh2{Z@FbzsPh}ep9}x9L&lm0jWQk?X38wII)RE zTHGYDFD1$z%(kD-%;~L7gO+Q1gYcvIS05~3q)dr-oU-?@4EhoSM5ye1Q;d1jN~cto zcNxb04WwMfVfTl&muQRlLQtz)dohcIQ1Z3s7aUAsCKA*U;us3Ey>I|oz2cUREJ=W@AhoT^t@Qy zScJMZB%a)g(b+k@;=xr`Bmci8+fEXaQs!I^+jFq%Y%d(tad-hRi?E*~Q3`B62ax)5 zPEcCjn3PiM{n-}3Os^*79Z6uX7_QXVw-fs|Tq-9~%GoQC1K7?a&Rl%i?noz-!Vv^= zMC(B~1VShLCb^AZb4h`ajRwU!0{PICLHZD^#Gs<|c-Om_Or5m#U20w^9}62CavUdH zc?F*LsDu^$cWaUd6~ZI=wq9^6-r69*nJaF?1;s2AJw5HO_~(9LLoHKZMXE`*mY01? zgQ>kl_QgAlm9?7!AgQt9#Jj)*E!)PFO1WyVwTd&pI%yF1M4m9?9y7BQebN*}Ia~r_ zq$nNDH@YB{76@{Cw8P9!gEI?-nA3{RpQt8eu+`Nb8N+34$h4|VHdxu&#_!-)ll~3= zdfG#}_$T~&><{rT>P$QYQUypoeo>i%#@qSxAc`y1|7bz5LmC>z7hC@+S!bv~jnni_ zv5}68v^L7cL~1=Tvmp*k^fkQ}*2GDHhPTBUi;w5+*}Z$r8}DYU zqJ}yG+~*N|o=nasXUx%Jxgv>u#|{?jEoB?qDTYNUMMOe*&V+yC&(f9KsoYs!y*E2& zy@VbQuvMoJ)aB6D`?TPv+l(0`H*G#oT#f1?G;rLDH8W2&f3KEi<)~f&fYO~wqi`1) z%a4XAV_PzvWp{I#&xeMbR#D8VVUTT~%oMFdRQRJ351+Hu#l9+h!22_E$QPXwY2eIB z0nx|uYOkkRz-`FowNU=mh++rrVezivUM2Aw?-U9%nf#NcyP_wj0vUNTtJAgx5p9P$ z&xvieoP$h>v>6)5AwQ@rEVYd!_yE^L|G+d5^hvJtC9u5S1D_j>>TURk{yHdLSwhLaR}FciF;q>nxlq)Ak5=EiOqHQFLP z5-b_>AEUU+dr17EP8ISih_9i(3^A(p+F>Bx3=XT}zZ`|F3WP3W=8mGiBR5;Mg?Yf? z)66#UN#>gdgCeOEnLgOhrc#TIP}<)eNnt>w*p|eLu?~!UX-G3}B4)@#9mH#zkHAJ& zPc=FIeI<-D{dUP{?Fm!-ettFOjpFFeHMW9Z7Y~?15S`Oy+mL^$e6fPFe#|3?EA8OI zZAAzVJNsg|(zx@}WbF`4|W4=P`NI^%m`S!BdF6={r1P{J+H@BLXWN`$$Y5MJ%$#_yZeN zzwT8J@b@e$bfjF~-#c1kMj9hFCNmu^iA?19?bz4x*;%6PnBrY(f$wBwM%k0LlPNDZ z_Ih45H|@ou(FHoWmx^#XnS&`W74fd;ROE9LhKl&g{Y4!8GYZ93?$$)ph*n<#>7s}5 z)|k65msnE~|Engs(5?PgSYKwi$TFC8lYYAe7jB>FV`d?Wu_6fcIA9$0n` zKc4gTwtI25Lpt=Af)L++L~))c_3{%8IXZv;WI^b3YN)R-sHc&9u}0lA(V3*d>5N(a zW(h}SCp*k}SuXw-H0Z;&CF#PkU2j5s(1$(6P&crdJ@Dq!)~Or`BdN%fA%^`+Cpsv; z5=bhVzKX_Z&f^L}K~xMOHo-QV87zb}>sf0KW-!fNI(X38sw$7aQ9|8zgdgBe-UmPE zkZg&FKtLj#PfIPfw?pLT9F;qw%$HULyWEFal(D1(^F) zjc}aMD(hBYU|pGN8RZfgR7yJ-LeZo*Uiq8yz*4gH>6W*?I5rG4Y87ggAS_7G=?DFj zzpqyF6I~F7w}qYFhKG^3=5K=Q*}t`bPLV^rPavn>ws$~d%j+!1)BlIud%50wg=J6# zj;`q}CYc)BMYAonKD?*E2;D)`1<-0O&r+MpJ8R8G5UI@_GW4~^u6JTpNaF0w`4U86 zk#z*|`)gP!)tYx7yX(AYC2@{6sPMW{|2mjgk`adu8dSFTm~5{x*+vFqh*(;BWN#{Y z=!IsQP!7(eRgw(4?icXF=>$vfq2Ygpw(`71?8lcJ*?>kqb&2l#CV#w_s0kviEUKys5g|FUxl;pmCn;Cx!D;!kAT16IUK0nv{Pj=Pa_h54gX7L*noQ%OHgNr%j*xocldm&44_hK6>z z`S%r$@kE%Ai&US!q)TEKL})P%c|8FB7Vv?zrH*VT_f0m@{xoRkHt-GJ5=||mQ;5fT zmpsE#KFjx?wIID?MxF?S>A`4$^g&o)3i`<6sYcO{l6Yg{x)d4Ca}z%LI@F6Zw(fPz zv_M4f1L{MHeW(1o|7}D2R@l)nZPEVB@f`w$DNz9~PnA}(&DO*$K2cgadSW4=v8FG_ zQtus9PsH|@^XN<#B5`C3WA)w&dB;BWIe+?SFh>h~_^Q|iD*fZ|+ReIk|$PrZ~3 zl7b>i4~fAj-EHoZs^CvID-G39M593#uLPgVyvHmZgG*zPF4YVVO75pUdY0N|BSn5W zhaZJ~3lR^J5n9SmB0^;>+I7DFm|jMz;GgKw9MbWtIfz(O;#p2OsIz7=3iUpTqbAu? z1Ie!cuSho62m8=CPb^cxW?-pT-h3dUzB5-!w+L$c8JLdRGd+h`!|QfkNPIcQte4?EOLD;GNT^I9~K*PyP z(O5{cB|}y!O_`T~YJviP1>zQnYfKfaWDlI*pr4MVSp3yIjf_cO(GOGpGG9_~rSAQM ze4u+F!c4DQ%GA4P)jK86pOa}#X{nHm+|@oQ_@ z5tILi0$%#`eBhR>W}!D?Ds0wB(VDWtqs{_HS&1^E-5h0H0_?#C5C4i z-+0=_WtBep)m(4l_*aTn`M$>Xo=_zV%uB?+%{;skZ3@~v81OlAgr7J?9kxCnXyRZ; z$QCi%g*T8)C+Mqg8GGp6>|`Wau|i3Y6=>h1QvBP+mf(*(|AOW^HKDo85}Hdbp}E8o znu`_qUEQTn@M;$7u?d6bIu~iK^BK)`F4r6gze!ns6m-gX6{#Luk1IwU?4CrHe`!-!*E}psoBDp=bPiD1^gs~qOZLh;~@?O zIiKHh0IqoVp6E;Ch2y^=V*x7fSNU>DlJdH1F)aGh&Me>z+={DdNOajAy5*lzpkHNR<&`q9@9N0FHAVo1k27jVGF$xr`v`z9 zVAkaSo>hQ+^^7RDhp%y_2cw|ObbZ$z1=cIQ{KnZJ{xW$(+p{`?)C6~B3BXC*qopt;KaY|SoYBGzTv#cq$wI0`}huW=xqQF+Ta zuWP80LguRI$jU?ngDVMbf7Hgk^U%tcvo09iH!-;9{?7(i_QhY5UF+L&6)vyX$f0$v zJ+%J(W{L!6{((%*CiW;hed+S$tn#%;IoMou33AXSs0uyFCQI$(bYY5|0je+m%Sx%z zn)SITqQ>8E+O7}xoACpeuHt*nwq>d^Z8MxqTc#9*B(p{-#Ut@FrI#;XZWLaU^$lOx zdJY{B2Lx2}B=+4Vp(Pn8@0>m!?9V5qR;z9Ha7LPtwapvMw#^#Iw$1I!w$1A|=`+2%F_IXSj`z+GNK2K_6pJy`K=x3@n`l;r>%LO3=GRaW_SJ5X33cpCa!S-Td zf3b4sCST0hlXK4M`o=kD=VI-ZrkFn^y@H%A1TT$6`x=X$ztdVh&RN|8Tm=L%_MV3J z9S!aKP=aNpqRY@Zv9V~iTtTWrd2unVcZ26n5@8P`w=Fm8lV%V8Wu?D;*>!Tx?BE=! z>hXU<)C+39TYjG${9ayt&i}dAI*-YZv!W*t`M*k7l62AXvs9}p^dASIUC^+=J7hi8 zl{U=T=mpWblVVF%*#+PANu_Y{N9j)e*if{wv1p@I05$X+j7f$S(K>&C>Lsh{iP`V6 z1<+0M>Pi|-?}I!Vmz47)B}r2hP)*x^tfb(Ro%OF2D4F>@CJV)u?U7J{1QHvHF3Q@= zH_lmI$AUCb0|#VfF=@k85=tPD3O$6p;t3IwOi=B!NoJZTBZP3Yrh58z^ z8QwK*cb$sN1h^;CZ08tn1z)98c`2xX!RSx*$Ej5wDJ6*`F&?c>DQhLxG76=nryLbI zt4V~=AhzzH96r6!e#e;p>nD}VMtC2+k{ngX|2bK0q3&B+LB5Z#JwOzpL7v$AWEuEL2N%> zUVYNP<~brN<9&qk_i09m(XPL3>u--)hvtY`J&quk@4vcy?M}0j` zLhS>j0JRy~PI!Qq*=_|gLT%TF^%^V%g9>TLEGaGx`P#t&x)3o;il(W5yic0R#w>wI zL-P8SKSo!2#aaM=K!CrbUMbMkWxZJCA~zaSGt%i|Q{E7qlxFxuA#eCz#9o$xEVCPe z1Fdm8wwtDn7-;G}6nj>NM_QSe-=fSe-i8P+DOdbIUMMMuHa}vKlZdPwHC&)`-bd*X_*wBMUtnyrpIo~G0pqGm z64tK73k3xQ5rixHd3HxQpm9(KwzP1L&fzg73+ze56i;e=Jn3BKdZP+n;;SP(j@_U;~(MswtZUYxLWf4rAb z7#%iskx%K(xh8-$sInVsU#XSa4G@sfgE}Wo%8Hdx;$HumtbHO`ACk5u$^9;1vbs!_ zRgmy2H|9$R5!2sI9c0i{C(j)$zBqB*WP5<(fbHoc2e~A~`0$RZ@yxPt6Mu?0E}``W z5>RzLVAnbl{RIUDSD-HdEh2M3RKGqp)h-2ww>7` z?G|!B${FvS55_Xe)D_uZ=7|xuKB9slF(j4yw7d@5;@(EEgj^leWay8o`_7F))- zJ5s_2`$GYy&WeD~v|kIcScd3Kcx*p2KWmk#R#c57vbef*SpaR_r4q2Rp&h`@=ab~1 z+QPK=Q;KiCU{$XJw8BXTAs{O069Kbsd!AI!Xw(mI`S)mhg9!`^^CW|GhcxMcibpPU zPLdKr>^($^Ayi~Z=H}@8( z+LA#S4AQAnZr-Qq0cX+&_sOyn%)IHqyg(%*m5O2uxonfc`ZSEsgkyVkJ%ZLUsRA}bWzN_q8p!umNRRA(!LZD$J!2EEtvB++ob$3n4wF_c*a z5LB-P@*ohXL+G8ax@=o8gMj(~q4{|UCw#UnjPJ@SeN6X8?aw2;3@puUMR8xRiXg>H za9orA^7%js=BCWXA30Ei_1HbpD#7`z5CYt-kf;f_K3}41e@&Qe%IzPKs1gQ|xCc)0 zrwX zVJQ7?`DzEQz0~xFJVBa0X3-NzZm?Vh<)pPdJPtWX6Z6@pb)YH-VghYb0+j*9vgU)i zCqcNjS>MSCcfL0)H_*|4>bU-ay<;h?v8$Ic@prjH0bw*mLkwS23HYC2SIgc5jdz2{ zhX~1MYp)gmcP9PZW?d)yXfWBYV6p|tbT^Sq{lH=q3~D{S+at>b;er&48yp2lW*IkHMt2W7M_tG@ws5qvQ|L2+aDOGw zK46l7eoFm%IK@`lDqt_?dkiS`6ByxM)QTqrkq1;Fzysi3h_oeOWLc;YjE#GvionY% z4<-V_W{KIy#0#s*=cj`+ekt5*O~YzC%-(D65wdK51P${e;StL#L6}_PvA~?zd`$-V z;M7Vv^(m#7`sS*u7d&!WyKTGQ&gb@J@^^Lz3wg@B@!4O{{k%>JeFXO8l@`+9?E7?f zmcrNK{LM&eHJMV!Hz!Q`~LZ!{e!Cs?8vIyCDN7RSZHgxk4rwZyboq#GxxRLT?}e+9uosA|aFn zdE2MXa0tIA*0*jGbd~zwGAB0T0-u#;0Cxj+bvWqF2>6W5!*+c&RO3wf%&roRX!@gU z<^ih4Wl?!8iRmNtNJN0_o|vM~N@tk6TeY@&YT?Lw%>IZ1ArlMm)l(r@Vp^j|32Xo5 zsG}`vQn5MTFJUUZ`Gj! z`~BWCAppr6h$uKOmS9B*+C2d9_`J-L87Ms(1%sb=mf1|Eoe)`5Z4peG&9=jmD996>IU zDI!2eGF9+WanWoIzm^(LIZ{q8Zw;FNyP~jVAouR8URUSRgcp45u=C`nmUR&q3NTv4gM(N zgl3FVMp-=hD#^VjXO8HHKXFW$zn%G$tMj+_W)>Wuo^5YR%oSqUc@3RkzMSc-`}2m* zx|5C4@qPzJ%q_jMGuFvW>1?N=Xdu%zZ`>z4Ymt}Fw#}_-=&Ua-pE!5;j?S`%@`>{X zGwu5%QQOy0Gl+H*%+qIj4vuQ5k(T*oiN=~e+0Hs-U!(cfQJHo`Q)0KG0MGfoh8n4i zuKTEb3ECHkKjV2{Bgg##OWR-1Qhv=B;gC^ux_0IRPCZG!y^Odfs;OB)DrU*oq+gUs z*}Ye@%dTRO)>lkcvhy} zR~!Nfn2}kqYWkH8o_%@Ay*rebNzYv^FW}7R)@~gqiOLviY(FhbtUWIkHx``)8>?i< zB(eX4B8rcQO{Q(`xQ6yqzUZ9HyuLr%Hfy+{{d~4<_RyW3iB1aAyupU{z0&tN^ZEg4 z{fw5+GV{gf*8z5xL2Jh`NB9?;Kr5%J2gq78AZsm&su8`PojW>X4gRNkpw^~6w@%QD zWla5d*2Xh6yBpfK+}TQCCU=P>MlVHFj3SdMY^sPNjff_oV#sP+F|Bw9IT8)vo}%zQhTa zumQFr(c~=UPNDMxB9brk!2|};e0d%zK6ZT`h%|NZZ~ZH6i!oXG94@Ib;=PFwUz$Ey zZb-MNKHIQhZmd+v9^x(~l|TMZ^bp0#%@xn=6D#gjwu=V*C0;o(uiQ|wl#;rZG``4M zket{W-bt+(5I5L8e9dO5x8~U^HO+^X&T(24gH?hZvH0NHlF0V)l7>f+6g-A~BrQW} z7||qG+XF#wf_p*K2)3W!gwyn2fK}g`4+zU21W@PR$}moOuwlWPDyw#K#(aD&0^j7f z7)e|Hu}0t$;)&XZnpYYChgy6Q3%EXk9tytBoemt&4B&WXVUf?pCRD)P zW08U&p3%(Fv)V-GxdQGU%L}-B&{$mx!#mTiZqCE2;J)5}1^(wpqa*mArB~~NPeUOr zk0^vp`)(le;?Wes-7bCgWmI@{@jdt-vLMi(16u#6X^@#$ zE`R?tCh&N#E_*2WTe;p5<#-YwlYUmPJZumkkqMK>$XEqF+V$lfL z;1_z|R0kOqV}K4$FCvA@63m0b2j}!wrr5rPUh5zLjC!$(QYBq0_O%<3iv%1bO8pxk zmxHXPdkAelinOh={Am37(|Lm66nl9cfE=eXAL*{kYq@ZRJc)5X7oua z<)V9eN0>l(8u^j11|cSwhyAA9B%?%Y%8=j3hHB{4?~hgrU4K?8tvD3GmL!itd7rn} zf0R~&R3aD?(C!oV(1n;5HEp~@A(`$@YeIyYbkyMQ>`^EfI+kvMTI@5{#WJO%=`zOU zZOl_J5ST0eb`MIvUyk5ov~$~PI$Uz^fOFvtFN?nQFeV4=Bpl}zS|;7=;Pm^izJi~~ zeU0hn^*014#ttKjF2l38@J%;sIDO1(-AE(!*v_~xu{2~bXMf`|d6iAw1f`)TAeb1m zKu;#GS)rAPzFovsW-ziJUy-OQR5a?A^6F#${7NlmCGPjCKT856^dOkejtU{Qeb&F+ z7a4|6r4_WSUn!ju@(%B)ob#NV6X7p!VS9rL5jFIeuU?PENJ)}NhquB1iBK7LkKirj zcf~j@j;tzy!}v$`=^~g-fQXZTgvzH{F$>6yIpn`bll&!Z3EWe1{4%1gfx;K?BG!vS

>JknS(=&#fE|pU3|iwC zjw!KLMXBZc4g@P!0_t~lChmsnKImUzYU7*>U|p#LJEnyF{BKiG=0(b3S!mPj%c2(_?YEk!)uIQ>FeT(gSeqv&<*p@3yT8?{6 z*LAIIUd{Qm)^($y?_N2;;g0Jb3{Gcg{2b_Mrjmt>E4m=qzoF%lvUL5o^G}i7Lc1?m%L z#)fNZ{I__y;z#hWaP@e@$zacrX=bo`KV+7D5QSHt!?TZ29cRiXd71II@!u1=&kfqr zz2TR-bjQmFASZ3}n+hU8xl;^x0?pE;U+{V-enAl32BlP518`-MEk|*#f8Ih~YHw`O^GQ>t8oJP-7kox6_V(p+sV$BkYI0vSHqO~I zH!b6%o7bQi^h0XY_Km`61Ev!0=q&rDB9@)wYjbgh z%B#;d7HyRi2MtPnQ}zq|Q9w2bTke#dDA<`%n!_CAX=v^dC(*@)UMRcCsQ!$(Pf&)^ zVd-E>VFw_W+X9f@vVzbMcg9@*bKO!kp`#lGbeeB>gPtZyjZK_MCw^AK1(#(X zmzeIlfY&3CK&*0ofPv2S1dwC$W{OMgp$+d*P2^q7TekQ`RbOzCC1*e3;h&LQix~55 z5=1qdco@RkZ{{?b|B5W1v*owQwAg^@7vP`K7&B0&+6bP;y~|y%3#laV=Wu#GrXd$` z(Ya8Y^U=!)bO}2&ue^?WElJgAIL?>w3`~)&4uSzkBlIP`v?w)NftNd`bPTXw#K8e0iJ)8J&MzxR}P-RO~wrN;10$40V9Zt-@#A|Ypc%))02fBYKJ4FE&QMy*yR7leN6PORApyd_Y>gZ$Tb_J> zCM8tLRQK-jBsUB8JA!%QUpbE|Dqfw&4dD5u7ziQOiAT_g%96W>0X36>@5bHTPJ_ zL*7zIuNHZ6cgyPebPwlWxgRYI_oJh>AFbE@=t7V?l3E|}jExbki+YLs(~H;$TY2Y| z+?k~Nn%;_C-3V(uLgHa=Rbn$LGoVP=T+M@l0H*jG|5`$AqPBmCul7(v5%|;_}kUIjsHBT|&YjGXz zMdL2B4sPTu$tM-1G->CLf!c??F(2)S91k@wi%r%@j!o+!7%9L^UqvWTt7Tgftr*@? z-Jv!qZyn6I+$*}_?qfYxGU&Ggp_Haq&Xn7KOaYJ}ffDNoo=E2yIbK}w`Ml&#LnY#I zd9z?=p)qy$QUkon0q})-HnoULPOv-(sh-sx{4!~k;734uylw_ZMDldxvS5}6=VzS! zniw*abH9l@6OM%%v6Rp+BKxsYt6|UM5(2_5v*v)}G#uv|0fZbVtH*`wP*BRBfn?a~Fd z%VV&v+Sc>7D@Awjg^2_f7B+1{aXs-VgYEx+*(}oxh}t`h7y6fA^gX`Bn4DS?)!_qY zIG4k=*!F@4Wmx$y^6B73;((b%8m@vy7HWOQ+r&>}!Sqq5Kj&x}3s z%lwbauQC(z(12GP2(k@dvQZG*Ku%!1KVlwK(ma4MFv3QdElzGYyK(ZIrO2nIK1OM{ zpW|^B>43nuUnD06L-XtvLlfF@kW!3><|gEDhNy{O!TyQ8)B6$YrG{t<1owT8c0|N3 zE=#C1$w-93Tt2po4cwKLhwc}!8Pr19t`m% zxx$jcj>IYr=3rE;C~V4O&r)^oj~Xcpb>nbDJ$o9z4@Uc}E*WVX#0(0L&6t#9SJ?_# zwM|%-L^`~nX(}p;fgVvS;gaa&v{Ik-nt5Eo>0? z%L&Jz70mGdRE(p=;H*$}#9CSj7R6Z>Cp|S14azJfT?3K9)eBA{MC}+)?3R!RSQZ=ms&#tZxhXfK$1dX%N2k4hb1&uD*4DA zR<0*J9o5~fo<}6No@bwjxiqyftU>_8bcfB-m?xKDY&NiP*9DtnKSUlGM`s!15@LTM zX{Zf=9R`-68ZtJ&K}y7ZRiUX16MOBb7a*PRyFmEfji0C6&rBwXEiE~plTaYQtR7=E z;9=$*L7^UhkALoWnRIdf?oBPB@@-LUFGU4bRt^}Gd3dL*5#mluVsf;+?BfFa zkxQrVjouSr0cAt1@z?Z2um0_ZI7LV$F>W{yz&tT+Qc-mwi}D<5QfBc;(0Q zY;-%Kz~}Wy(JPu~rDRp{nfG&nN{QF2bfanP@3UmcAb|W*OYcg`JzTl|Guem%g^%Tc zu()>9?a(BcvoHvpUcj^0*_b}5AD&(u)Cc6oZ2kulw@g{{53+zyVyGh>@K**^L008) zSY{SA9<{nkA(V@Gf0^i!MP@ErL8Ela+!}zjwEHcpYn=N<7dQ`&yXK@%n(z;is>0jQ zY**o42_S2qwt&^&im(Rw(Q6l!`KN<8b#tbD6HYdYpuepwEQr*U?Y^=sh%#Y3S004} z*OMIbW>~&yCQ2%I<+XHc!k;{YnDA;=esGS|t-(TD99EWky6i$K)a|;qa&NNUPg#j& zItQtydbDWF9ngY7N2i=6BLKJ_g%1z02#QF2L6brDRqjQZc58+?WYo&;8yFh~N>*O8 za_oGxV<{mgtP$E3EiZrB3JFocastm-IQZ$*+#UnM{S(9iu5Ja z{Fqs82J#qIHKzR=`mn1M&>c`Z69|M@rqAm6`bl1Zo4WJEsk+`);*IL{Ko$XBkPIDQ`MPWhF10xXXAmuKF-EO^CM~Z=pK(sUnwPLS?otA@QprD*g z*ZU7GWd5{v1+Wg8Bf*}BLMgDyus~y=U$%&tb8mf6LpXJmZfOqVKimx&Q=-yTo7JVk z9F>?f?UE_4J{_q*E_bFq|1{IDo5G^M6k|-4c#@}=n>4KmrD=ND+GArNKH6$ItW9Rp z$0bLdD=42(bQTuc4*ZyW3QC(`gK+T=f?Pt8P))vtnU*}G$c;u6DyM2?m!x=(q*(R4 z9~)LulzPxXxfNGpoUte5Y;X^TjgWR(sq^~s>Nk?qSZ;SxshPym0Mh=4&+4{tj(d#C z=Tb`DPTjAZWr?zg_&F;A+xherRppT2P_m#{AbZ!Ae zic{PYXouPIX+%fvr2xhSk}}s;ZEK*JToa4i`0Bn~JX4^-9dx4rn>es-w`tw_LIV=* z$F*khqF!R0vHS1SU5xOjA&%WDD@+z=K^Rl$Bs^rB*?eB63-MQ!cq*kQV_3OqpNA{!Cuaw!PlMxv}?>O=iAn-1bGIUo?# z+_ZJy4yx%TaT;t{5h-<5N>xF+0NDRfLkG^3C%z4f=qN0rc|2n=gb3xGqk`ZRG!+>( zkyYNQBOqpTaq`_?E&MCDIl`GkK8OP%O00&K!7Vd`<~#*O5rBCuh?d0TX=s?M zX;gyB_*br^QQ3ag>;oqCL+jE0v}`|b(?lv@MF|V2wQSp4Y@Ki1lUi*{o7X*`A6YVm z%GQ8OVNII%+C^ClOO)w~V2ck7s!AGEkD1(cjIe|EQr@C_lBau8Qlv>!8B%K;m^PZ} z>9QP*7jAm!>F(Lq=MNdVbp|Lc^6Ih+(WesC)QXW*ds%Z#@_@XEK83Zb%>`EY#ymH^ z5rSZ~kdAGTUXv6&o)6^8D(&|`2kHKXr0w&0hJl=?kK6v1m&}XpX%Q+bNR^|ceagh( zbO3-zE8gGj)ar@ose!BbI3yPAzwC0|1}K4%di%qaly14r2;KGIY{*87npN`xvnpaz zf$`+$N$SPGrobue*$@mWU^C(eC)aS_(D1QI9s4)&;_o25w z_EHzFLT~tN7sFi$v%Sy-vk#%4T=AYRp8O_W7%ro-EIS<*P(KBoC~Rxu`gvW(`QsGV z|1BeOXY*vU10&~gHg-C!GJ&02(V0NkTy=jG)cGce{P)|lYJ@7HPN67Hz z3HNLci(s2tXSp%|{4G9!kXB85>RTn&CLOrB6^eM5EGm}C5JQBJEXWvXE8X2`iBF)z zO1%ssX~lD!lf+EtF54v~g5flw1&~l9O`0mV2Lu3J|IoYV4cg|?m9V(%TP5nuMwpVs zToCd)_OINbwCSi-SfWoP&5uNY7U{}6tPPh}$ZQ48gQS$H_(xsXbxt56CW6?k>v-7G z3X%;;(VRGBUbU#E-O8A^3n@C`8*%qTDXIB%O3tBZs1+mnu0FE1l|9AVY3ujw72eP@ zx+tDr5)$e>Ibzvv9Jyg!=?y*oj4jzE;gWqumlb8`=iX+$ z%(LO@>$`-emJGB1Qg6oh}{b^PTs%n1CjT>Uvt9XPDCyev)bJ7;M?mDFWa zNjs<%U?M52;zFWfIjU4`5uyr@3|DDYM#P&+#-F%2s;mCOD^=*z34MtlR?%RPM_oR` z{Ife9*O}4IQ`a;DgHpQ@!6ktK=9JSW=qrVwld8>!Wl+D0=NYp3jWC#W>%=HW3`(;% zbAMT7m-8o^MzBBZ160#v-?PZvADg#GQ(AwlkL#v=iQ3HyOy7iB-1s;#j-|{4navKwT%-IxJt!>x~OfcAmdB5FQhZ=p+zO8 zd3|YQe6WWq)7YWV6#?GS3SegPVzXfhh+T~jws6=LIlegHm>Qp0B(IKkhC_kw_5aA{ zLFd#faYZdk&z%!Z8&$AwU!Y1wk6H}bpl@iE>rD8UVDufJaoolFn88T897&O=K3R+b z@8)r;38>xN^D@xpv(3=gT4`a%4f;6LlTrhg(mwoeiUzgL2m4H25~Ad4tL zsc4&H5aii1o6?DS54Q@h%aY{_t+zmr;@*JD@+het1ehfW*n#45CFKR?GbDx9uo?&1 z>D&Qa?@SP4+$_2~m3d-IU^%#p z^#z2_QO0B~@=z^cb zIay`y_U;gh4?g+RfeP(b6$+r-wiJ`dCsXuIMAE$t5N3i-K+~|Fs5s#e>?iP_@wJVn zcvT@TwI2?J>Jz@+PI<&@*`EcrbYtPtEiL-5DogZe&>Ze>QYnHdMc1$@N4X}TWK3x} zT>%@m7#7YFN&+ECx$SrriBNna@G{?|$~&QEl6xAli@(EjciWOzUdVjdWK3;UL@s9p z>Qv+~>;VqcCX9v4R~WO?ZDdm6$czg{X5$qO{0NnKe1yu}n@__58nMMJG%NF=(8?q* zu>abW7gudk57~<^40T;~Q9;2qlqUo=qA?5QEk{G?PRE3$DAJp_xJ4!q$)b&I$rN9+ zW#y}&esn2oSTKbr3(aFZL)+|yJVGi={N)Y=vpwzWj|3t3oz#N<49BeEPE5gBkCX%! z@mgqj)lNI02XbS6?-9D>8Zjd()!ze>KoRD~fAA3~*khnAN(rD?K~b*oj-KgZ`d&Ly`hl0}Y` zoq352BF^#%6?q~qfX>S8)o{d?Aib>-B!m}ttKZ&d@%`sh3>pS@j*k zV^f4c4l7^8HR!A!q(Ie?-W6)f$)+jmLQOg2zfDuNnx>o^YD)JiP5CwvlKZ70taGnX zzs|ZsM+QDO2p;DV@=Q)ONZDoZJ?dC*lMx7Q`^mU+odw}}<%WmXu(mI^N%&JV!b1Sz zRZRHcnw(dpT$98yRZh*`GWNc2DW_x%ZD^TND}SWomqsT^$n~3CfH zyEri`23j5=)mf>0Jh>Gm0UytpSy%IceJ0tIdHDFS@_|*s5j`(_VAX}J!f)t#A=a>9 z)j(s>5GcXAO2`lxp#yW24y@{v%J`LSn>~z%kaLH!owXkoGO)(>Q_2Gt7ap)XIx8AL z1lI8S{*Wec_^(R}0!A?TX6&ZFmdCFPNWnzP8(!ZHwlLBD&iKq+oYRc{{LX|Q;e?n` z3AWHyp7gi!byy5mSD)|!}}sX?k>%Dw)v*_xhATT8;p)EsTB z*^_BYC8~sUb6iSV?M@E(#L^)1YG{|Rxib@#VnQl#13>wkN%M++%*dp6S)1%7O97U4Y7tFEJEcZe0+n_qPLVrC2{{>Y(!)7{>p$pk9R7Tmcm2 zE*julN~N5!t$&3*{+w=XNcBmVOsDetJXmO;NL$gGv$b59&|gDF~pfHGssDWfbcnjEMv@{{AEc2J+?D8wrSb& zq^bB!J`))yG&J%r6ot&6dRe_5ghI?@6=hb9w%2C-k- zJX{cXLv}6C74O1#?ppu-w`oaYZcpTZprZw1fj^oj%iuHPKl&w}75$N|O~t=ag!24( ze9qOT{EwD@X3FK3@XS@@f^dvV-7O&dM}WTT3IHQ(K`{4;@_0<5V<2x%img!z=&hp` zX$+0#`jPs@j?vKGiv<u( zD%oDa^qR&dU>fOD=HoOA4J%djW*!9@l5V8s+GkQJ7Fuv_Wq1`4`+=Ahv`XY@|1&Q!_ zZy>@fwGBzFeG?K)x~L1Si)p+}wpV8+RPR03<$awzOwjwuSz)>x3S>*3J^8|Nk9gUy z2a#-mYLp_-89VV$sTWQIUMKNi=K-kPnOAGvLlM3G3VkAKU1?$Oo(1w46E+hN!FwVN z**8b}N$FGWN@~NTct-?$KJsy|k325K`kq)wV!W*->?)^-J)SNuQ zr^II|#m8fro)=3p?Rzo{R{L{!zM*Isj?1AEP~VsO_Pno<2YqcU#P-vLvpggEc!ua> z7YyZWTRX9t&clR>e_TReVmeguWaGhyO0GgYZIpk=gNua!KGRwD=OQrqY-icegi7pj zU(d=nWowBT-kWU~=X0o`=TI^1)%HxgF!~4!krJlV{knA_c|jpd6@pY;t0*f?PC!ed zQqqHQzbiXuO{Li1TA%0jXt7nWD7eQf^afEA810SY${6#>)Z1h zEUA=k911+FbXm$KRn5 z4(Ht|ZILJ~1J9G9DmU$4S}a89k3#**pqTn&kuKk9wA}%5qQvKm|Ez^2awv-u0K$|% zYN5fqH*a*3EJD-3J7bTc?BX8EPZt{Houq!fi&_v2^3AG0En#HUcO1r1F#^kwn>MNi zw4AIGy!d5p`h1cfJTNVY#t$mlG>0hIz_a9i*UnY`>AhbLT1Ef-%XBur|7FAw#WbDr zkN6H1F2Om)U%{7Nk1fEN)u+68}k{x9s4Nfia)`7LX!gRy)GYO z5j6MMp^?<}7BUtERy+o0viy=wvb#Bx6Ar+XL|E5XZSm2n9O3@GYSmk?kA9IkqD!JY)yYFkb+Hs)lHL8S_5xo&qLx6QG55%* zJ>Wnc_p2N5lJ2|Mo;>ujg~S8+>Lto7pEB+87ZkmwX+jZvM$R8+nA}&t?c~yPW+GK6 z(|1oyfxlw8+(`XEe`6T=3`e7XL0UAbd(QE3rMiZFp3o zhY7)^%$%%7kiQAaCje2hvM+5Q3IbFx;A(MO89PQKA7)0kRm7#(k{`X4wgm}OOU3O% zDz3n6jj3Thvm{NiyN%;a&n(p%ye-D;pF{=Lp}eAOtZvYU<4d-g=G+Y*3= zvo+7l1qEAMK5-do8Yiwmxt6s6@Hbc1b@?AyUFm=5(!S9X7uz1a#M+4vHI$Oe5u!P9 zg)z-K5;1W80>;x{zTm@4WIl&-a0)D5?P|dOs1-_o!lol!U zRox3|ZByBAupiiA`>}z`PAJt;xr<44#8E+74Y-ivLtn{jt~@M=2W!kS?YEs*Ji=ZNb(1%n> z$}$&@92ug|R3eY(KX^u8&A-89?tHufidzom$;0BGao0E*3%P)>f96)>3?YazingF6 zUKFe5hFWk7;Wg^bc2-EKa&E0}Lfw~b-=NhaO%g)s%gotUX%1v#(K_ru+N@VXZ{)`5 zG8P6=YL(ZE|5mqNZ@Fs(*Y=Y(=2X#LSW8L`m>Y;XtLRN_Je-6D#hVh-_2B^B|JX>V z$9s$~6}7`owv*{dSv|1#ZYB|0Q=&d7I2ViN>!G$fiQ_hzciO{EGAJx(Ejx37wDx9* z$rO-?6OOS4@-iRQJ7Ok^pliW@Kpo+(3b@ULQUPB7)4sj>_mT>G#9xcC`y_Gr9XisF zf(vC2>w=u@KG;4GGl><(_Ootdd*0%-y#d2IYM`9h8pgHXFiBv(_mq0kVDcgR`O7q8 zg}uN(uXS~S4zJ*v$3E2zlzA$VRi}B4(g&op1}^cH5uL}y@G^J&EMD=cJp8p>FJr2} z!4xQM&l-|42ww;usKcr$q{JrnbV}Xv6G6m)uPsF=Kq18*)tigSWYb2V9y*(kB$q+^ za_%F-(CAF-`9s=1$f}S1=RXv?YzGdL;zVzY(uTm_ul<@@z+#<0AXzWVCJVD`kJglJ zHW0>oSd3}*7u-U}I(Hf?z#ruK8x?BlUl`;;-Nd+Px-#}&($zv=h#Rv%uhV|B1#w;o zCVmr#WQUE~*BL|EEDmpEKoC=w9Hx7T1Ty8u_A82ox%7VYG(oG6Dc||LPQ1fcE$;X{ zEbi?o?bRzQa?D?R9wUgp&Evn!KXL+d2dYP4oNq9Qv?Wgj<;j4^R`@lh${A|ex$p)Y z)Xobbvztwf3wrW5X_tD3RvPB~2JG|p1a-dDfWf2mNO8_HYLZdi^AEFJCwfcye`Uv+>MOABS$t+4rP~p zxzLJ7wqer~TQF#o&F;M@8AyS?xa?8BAG#ytf+C}M(<23Hdr7>k>}lRO3lzL^(tSq; z8Id6GrGP-4&jQ8h-(kAtguf2+ze#~v{?yE{(aR8^n+1RLF+5@lezE8$@}r4>&rf93 zpqn&v7K7a>kPRJCK#eb4saYi?n2R@cLa~XPRCY7XVd*w+eg4-eu0|$BmXr5lbiC8N z&xEs|qu@~&}1U1DmoT36{ldr2uL0`ROk(F}X?D>mxQ81>m| zYsV`erM3P%PMd4ovQ3~*d=aNUl}`s{8j?YktF$0M^|XquCgW1D0^()wC4W;+YLtBo zxZ-BJnY7=_wI*7VLP~-PN2OX+VpsT!59y~as{qdlDJt+nO1rZH8b(R^y!B*v6e<;G znJ!7l2Z9#cIKc75*9p*=Z{w4i)yiAt9irEh@r>z5tYlYSeiWW4?1 z;4g$hVdK99RstC?I0YTb^_nv(J9Z3eT3w)FRA{#s<*_b^IPJG3NHZ))%gml~sXgVh zb}fIQpg(^zA}woily;fe1_YFljpi7M!*gvSIIBYo>~dyL>T_)*$!00|Gmx|r&HElB zk@T&A|52b+k_by~z=4&xqL^?EMQ0jnjyEh=TLm(hDgbs8coABX0|F2WM_y~N%0H z{c!Sg$@@RIGVre+T^#yXU;Fq-|H^l*?)^-%DR~bZt07!_G1v+k+s|i|grTwhWuQDp znPc^$?^q3Gi-t4p$1?4wvbP>6?_5$r#|j-qYffj{7K6~Dq2`UOwg<{8cd&RwaKAJM zB#seVoK9Src+MQGXUxG`WDeFt=3vb=2Wu8TkWdK@mJAlU_Q+s;5Wd!zD&+q&9c@zV zJW!?q6z5B&q&$JC@@78G;0Gdty1pOQWO1 z?gErQ@7AIFGPIB_pgmqGkyr2i4@mr zG9d2ba3E_wR;o=Yhbbq*Lbc$-M+WIrltoP|w4YvzSV{?A z`QOF_qo+_smsGXQiK$dG8Ed2`ooAdZCe+=)WN#eqwnN_CfG>uvJ6vJ>#|lrS$lfc5 z1=5rvVK+Q^4S3W>XK|MpV-dMxtwUC#kZ^Nwc$`eR^AnQ;hArRO>oRhA8M0Z#<=A!I zEy}iwO+^fhN&no4oLV-~WWne-ivMZxp1momT*eV8+z)Vm3Mx_o{Q8g zIosQL-9>iY4!f>|bY6!dV~=uy`jtClmSjul6-gRu>^HL|1s2GZZ1H*Sgc8;yEo;um zm`>$s77I4Sq4VeMH$CbLc9VP|o~oqYa>Y}!NOPab6T6%nQ?mYueFeTIjqVJ$;>M(b6``gz!VS3OXJ01~7M!XtsRzRU=w<7Mk9w1IQK zG_f=yBNhF5t2R!Ga*nw2LeHCHvt3+hlqNOQ2S~}YEQ?&KE(T(eH0v*!aefVFZp9*A zp~_967V*S(3%ptd#7>=7@_{!Y0pJVpEX-&|ChMk8GJZ9wnjZ*8-^9QGjRA%RB*`ta z%A%}X@tX}L>T`)=aG<>9q_)TGX((ZzI3PU^|rjXQMJ2WYB!ltFq zriBNFkTs&7(zp~49k4^S(Hx<_A4H5SO_-iHX!qT2_Z_%KsA8|pDR?hsF`78>3xEFh z+7#WUtCLg?NfUE;IwZl*by-8i><*&=^Pk`adjjL(V60;o&A(y2ej50MUW~kXI?}c~ zEv%{=m~)|I%Ko?ri~>}RIs*HJ;BztOBYz^TRbr6il5lz>Q77fld6)+ zWmE!0wBgJ$d{DgIC{qOb^HTj;m3mC$3v70C0;fEcv^yH4vvzTyxxU80X*Gq!F&nHD zA{Me@I32WgwCR}t+c;u;@FSy4Nj3NZ6{iD_U1EIt_e+4{hfVL$y7HEAhc`jH41xHK z-{%7FRvFx67jf57M6B5T9OhjT9L0yzB$3}4h=afti~G||c5PLeI1@5r&JAP&EuT#$ z#C5TWYf7}z>!viI+~KgLzrA4#a?dkIJSu7K_Orv)|{RW|*J==A^G zroY-wt+nZw)4x+-^IxrVnfR{hg={CHcFJoG`iiAI+n3$l*_xq-1*@yLKY&kXp+#sI zHb#sEn}vN^oT!UDTHWKEeLO{`Xc*f6yV;s^*;}SOe!tYRy;@lQ$UVn3R7!Y7wFUI5 zEyP!CLBDDX16EsLu-Za})eAL!#Au>iWuTBzM>HpIXFyW$o@ieF@G6ORCO?;)ne;w) zzeGzdUb^P1VZ8LS6Ql9cY+E)_m2FE29;GSa5UW2pib2yVG*#bib?uGqE2TuBy2yg2 zL&e#mZfVdiXDDbTK% zCkt7RcoNUUH|hwRBxl_73Isx4yqUf#+<&VfW>vCH$tsn~;vj@hqRSETOzfaotNm z_}CKkv050A#R-^$P+K7BR|jr8E+FrZByBPnLixRlzauKi1f)1cJ$lLp#A3;V7$>Ev zUA|je%|tKRi^Eq~AAEuV;~m=6G77B80{5eBRq8PLtvCle(BuGNxHW>W!3p3yjvEE8 zf47B&v=p_kXGiGY=MYOVTV8@5W{&ApI3Ci?6(R|WO34LG83UAn`moPu3XlZw-HKVJ zjori__b#!7KW|gTtT?7_Rpg@aE?TfE{wiiGuy-eeogBvo9q6912})^f!2;I3dE-Cf zdoSUEn}D{Ensy{3{2!E0H}^t56-Kh8S^_8cBvoPb>(nd(b(U3g_TZ^s&>+0lWay(c z@wm;wLj}qRKf9QjA!ZERmo)BuQuWjzq%BT9Q-aEuS&yE8F=IEpp?DX0M|qq0Vr$T$ zEs1iBq0ET9N1yBm1x3)}@oalXKtd$XwIUMxXFwv?O#bhlhB>d*o2RE^1B$TII8iw{ zaiVM+1HofNG7HNs8R~AgTz!*1b(rXJz4P2~-uyH&hB_M!%}ez|j9L;KE5&!J)= zGjEu4LKL@CFWUn%@rZCvLa?zWr9FKFP0aXj>^kj2>aA;NM^+_Mw61Z^eu*ws^xe@} z|L3xO%>PxvT`ZZX{11N{k0G8~Bfr%BhINHIEgQSi5Hi-hZe%T&+^v8iJx;_fSfsaW z7jy(5UbY5^gxGBi8*PZ9n8#7p$fp73-X!nU5yIHw4BTkqU=0_tfgYxvnnp|cbQA|C zQkrGMz@_SPGLw$qPf*pZvb-afA3H)WG+)wy4(o$p@Cdvbr=Kvn4)WiJU3?Ett@^ylu=t1?%fylP(kdCpUFQ& zv2M=u=Kihb(=a@f*LF)%aDl&Di*I&AEuNSMdf!2QI!Z@m1MNu zc5bIo8sj&AjDZD!G*4;kGNeW|&}L+!21 zN2(EoJy$@~)Cc}qGa{Cc7>$Q*(!jiv41$!~@>&;->Ej+pd6TOMF@6y4>QL!o(>QQ* z*FG1?Wsbuu1#){ft7KpK6eFG#sIIV`qc1$QH=^--5i-7z=Jm)ooetJRY`uWMWr01H zm6a$Y4pX^8yu7w4a4MeRO0mU}`lPeF(L0y{;Q0*my;Xgt>IvlK3)a3;Q zaJD4Mv8#o-h)DDWX?SpcDjA@-h5f+K^&ZX%8Q`mx9^AyL}zr+BQKOV42pJZNP zU|GOH9e|K>4&(`{nRfP&!e`DHku0VND4|)PsWu}9SQiQqsyXK~4t*InTWnG>&bFFq zKdCDz2-bum#Pg}3?IhAwl2d$^+l1&sC+Kk7i^TadJ+R9@S=Ub;b@z~=dN*n^ahLWJ z^g#dRz0ueXFmceLQ3UE>i0*#b0N*t8ml~D3<)q_=gNv6KHSa}p2aR3Z%)s1|NXKv| z#Rupy5VfN+gnl!LoAWXu=E{=7Hb0&v+n6P_HY4(wGL|XSG*ppLmilqY419?urmfP&4LxiJz zkCAx2++w5n6s~2P*=Z~~%S5A`_MA-FM{ZO)pby`OOdeZH3Itj$(v_HLcyBUy zwI&@B-z52f8%KeWb*@bK+&9a2Dw0-HP}IK+s)d2~aVFgk<7%ZA2!8 zgM_7YC$(4l5$Fby3$_s1WjiZ7zvUSFv@~Lq&7Jjyi!{n(P>z}5fZW-F@$t%0kct*; zCzS;H8-b}<+*m{8ND66_vR@{{>OY9YqVQ66 z%M~26Lq!4ksfBb!xGaE&uChT zcIU1DS7xeWNjTRs&5D*W-mNY~8|B=wWf94{)f=y3zIfRq!_2cgYBC=;$5$1VxlDq|bUE5t`d zo#CKOtEQ!6iHJzacuA-HoTdSPnqfL5!oIH@t-JQ(#9(xb*c(XL zPE6N78DoXa_Ose%X?5s5MrN+;dvdH`-JZdvUeHS+q#H811!OR0Wd0;mv?bG~yPOE> za~UDq<))ZzSG-31+3YP-_TDPhece@=i5*PjwGU<%5D8J3X*XyD&p_FmL@giLwO`>a z1w>aHwxZh57S)Eos5V4KwP7@>4Yg5C90y3A@h^cMLUZ;k{xv{|0!7*h9FdSdqg<2-kP6lZauV zXjA{+%5TeW!n}$i{dysPc7gI(%~HOknDeP9op9bL8=q8-E14i>{*;g4fFjOfPwB?V zp4+kkFbyF-;2!q(kUNN(94|njp07rFX`m8lEf%eJfbQrCWm2RW;eS4u4|A-m0OwS! zO4*Z|Xx#|V=976NGBl2~HF-7w1?kjv8h8Q*FaCjiS``=fHbDetieTZyzMZYvl&x8l zS+Le=Sa7Vc{E1c~fZep)tm_y;6Qry5-RO$7!G`;gnFOS# z{wn-Q@vD5DvSu7ED1V{v^q6Vm;h?pUS)dik98Gt!0~H9}ACpf2#YjRR@wg#xK|Xpa zQ*%*-Bu%ED9m?656WyOXZ*RgIS87zoeZk6C+1GSy0CMXb)O4HOw~mn-d%VdOso`TN`$CFN%>2YuJV>u> zbLz(XV^xobAUU5>D_oZ;65l5N(QM7e>@CIbzNMsqO8ntBl=*EswD=5Y@mbK~bBVhx zFx)La1l{EgsVmpaNoFw_CKv^Xg~b9l~?e;&5ZEBUA*`<{BOQe zA5f+4K&hi;DCk?;FNAu1tLgP|rq^FCpXPQ|UhUcVK{jc!%-UZ?*izUBJYCMItD)78UhSlu=r=ljQ%=r%mvAYPFPLVQbQdZd}$;><&15&L*fBL_~wK!YzC}2-G$zocnUAYVU zRCwoAnFG0qV*GP}8}tN0Qxv5w1QM7rY7OQR7V&QHpTJGWMoAT&b6bW{4CM2{xZ>)k-ve}6>4fQ4IZ3<1ok;%gJtD*LpzQ4T*S=j>ev*_vCMHuSW~^`#-k`Zy z1-Dz)=*kSrs|YcjGk(mkVcs!&h-t43Ce_eG{M7}0+a8;^2PZew$UNLH%;R}Ndyy22 zY2CH-^>{BsD$}0f2j))GEQFMtM=R>u{iRcdIhW?(5!%*&Wg; zzWcp+?2RE?JDN3BgB8u~V zCm-oC8cbep?TEfiGTdK9N>sM>-^@o^8j6$U+b)@rVTK*SslJ`1l&c?Ttl8x6yHC{E zzI*iie=F%ZH#6CE2ZBv^j=$;tY4wPWcf|gC@4XTK|FvuHzxRG7d2eL*tqPe}9YjY? znj4i_(EV(~oV?2oIa72J`|t0MzQV8SFuzJFS597Y|78mb;UN5Iyd>O*-+uc=qOdq# zQgHP?EPOz|+3)Ya6}S2yK601zbP{OIqte7eHj(Tj;=4DrugeIbr;}K(hB9arH%HJ> zDQ4?(VxqdQsMocbdk38I?c9pI(~*7(t5I0WLR4Rn1YSxwp?Nd z9vIyoG=mqFAn+kI1)W^Ft9ECim*kScRVI>lHgU2z45`&6R{sdVuqk7ZI5*-gZo_Nb7QDxdJiBzud%VO;Si5NUiPfCA2xT)! zCItd^KkS$n@=6mzNGWH<#V+@7DP8rj%HLHvS`BZf${R@r*xKy){A$l`+glyP(J&&VXm z^|SD)QT~090S`RPDV0;S%F_0qN0lqy-4qp>uaG8EhT4pw{&1LI;xOmd7(j(7p#WYq zl-CBsN3aNd+Q>dO#E%#jTAnN z=w$+nprPn8#P5-UhMHHiw~Sf-JGQld{rrD(Ka-Oqw|1rcJDj|KWc}((cZU1FX zS05_4f=qqDc5|y095dtHCEV6Ekh<7*{3St#Y(h1US!!Epue8?sDfn z!rCp-{rWvZAYER4P}rk|wmaLtK^VIQ5`8oFtdD`g3gp~*2L7G0uSdg>NpUFucj&Me zV$`CH*w~b6zZ>vk&$xmYdop;j#d&_3d{A0|rgTKDC=+D^l*FUlsqt7}<#r3FG|3i9 z-nsv`?AI@=T?3YGBfM&bYPvuZKq0$p@$3%9ZcU!$@J?~(yXYE_bnPpQqB@mecagZM zuyL-=Tj!IDc~W4@Y7-Lx{Tg}#Y;}&zXmxl8ZCSG~pugrTTnfmq54;8WwV^K}T+ch` zJOn)76%jHvXnayxr-}A=K12tebB2yFGPG~Vhe53g?x$52Bx9^C#ej@3MyghkI9#H6)Qwqh!}Vr_+zx6J|3Wi#E4-%(z)E@a zrMk9z2{d;*u$I;MkR|S>4~E>nDP(GrDcQVp}F`l#Ky2b)>=dXs~-e;K(yX4K8gK zgZ#nth_xjbew}7OB@M24+0)u4CZ2ejC?ILOLek@zlMN;yxIHzZ_?%bw1p_s9QZ0}N z=E`+iBU`CuEVt0msls_lfx57(O|NN`vYQnZGVS+@5fa;A<4&kKhkT~E+af5=J+MO% zu@FjdP)5PX0$%N9PQ`05p+F7B4sQp@|Y>jD)q;;{9f~)65B429wrnOfc z)bTWT9*C9CqvsEvXIspa)HMhtK~Sby~xA0Hw2{a3x!8mzoEXp$p0O^h(j*MOHj zh9Fd_+K{`zs9wRVcvNpN+4tim_UlN`6xIoB8TX)|XLZm5Z{u59+new(o6zeZKe7Sd zP~h-vQPEceR`d!rmj@z%_sCOx2t(`4bXm&j+~WmlqB8h7+P?CLQl>d$es@%8+P;63 zv5l>2C_2+vb4DL}N9ojA}~^JeCj@q^=x z;ri>ZseL;O_U&9CTGX0dV%DsgaMfniRny*sp*x_4?vNU~FmT(|itJ<`)wkldj>NB0 zp}qT0hokoH^iOBny~K3sX*gN>duFnopT2x&XT<=_*B=T$b^A&&g`G@$Yhp&GW@To< zxmbC}YlZp?x|goZbk_eA%}o~!$1**`qcWGfGo6(S&|fbu+i)Qp^El(^lU%2Xh&@P2 zVE3VpK_g;B3+(~ZZ-_3tg|K2*1h1VF)gFNfn?}uJ7cUOkD zY*^4+^;WlyykiEfCvUlQ`EsV+pKS=nV+vjBjA7avYkGW_Ml27TY$;E1DoVr0Q&S@t zj*2)ITxa0;#=^!OSpE1^0_|;Z|CtU=aNa|xHJiqKfFfbm3&$a+iMa93yLWfTj4r$D%; z!4`c-XXXDw)bJ^>jwMUD*m9mmB;C*s!?H(NsZ%>p%v!(we}`LoZj@Wvy@FPH26ew? zB~e>lpSY4-Iy-_~+5@@t;(%Pb2~YMN&D*x1PsW+IVV6!9T$5coCGp;Cyg~|nelq?FW#0AResMa9rRS9mqOv=en=jb1t=FU}jiwEy0xQtD-% z$}7e6I<3kiy)-^;#angY*;A+y{-x3!rOK=OgQDLTS(y9ddwM zccc}#=(QQ9mluv;n0}@(!Z5wOFv2iR{^n=GXvyl}F#?9^<7AkYRC35O-IEsBmGMlY z5^FuK_1FlWX_mDwF1QBI^g~zhOoP}rpofl&`w@Bel#&p)1}rTj38%r<@1#)X2zXIE z1fL(rFVl^uxSEX-F5^~UbH2nNh(wt41Su>bl04*@o`t(lkBnfPl#SU4lk~xWbQ)I* zSf!sU9KkC6Tw#P&`Veh?JjX!rPHuO|Dy`7|?qEW-*UK8sj|iGYvd3w4{+pClx-K8E zO3N8$6N6Q{htU!FOLNmvPU$tuDQ%R}#F$iKJ{0#aqvZ8OD5a~dj2#VQvWeNO@QLdg z;Z(XLYXd6`P7`WrX2XI*wor>qhFhx))NTsR2K=F(PS)WT;g;LRo>`!%^q;v2y`S>M zK*^8FCzT`Cc~HDv=l-lFv^Bjg`Rsr)I!i+W$@3E+pOah6K)yThEt}ap@4+fuE^*Dv zZ6O1-T@LWOI$W&T`j2KWl1LI8;Qg(*0EM9r6AI|u|GdmtY!bgq4ZP#FNH1)MCz@j?y2}2JQ6vjLrDqt zD9!Lm9T}~?XD|EXghPM;!aWL9i}uys7@}G{a=E#l^)ho0!?L^}|8KsCxxC-Q%ee0V zc>pCeL|`LNLtD*z=Z}CrtQ~<{F;CY)FaZJQ`={cp`Vjem43liMdcP3EGCv54Y{l%( zcA8=8AtTN0hr7AVwf|*cS%{ z;R4KgZUoFFvaGf%Y6)!tkqJJm>*5tr^2ZF&ax5T*hJtmT#?I`2_@NBTh*{njE;JPm zEUVkF9+F7=CN=NNIXb-+AMj&iTTChPaBH@Tx6^M}6Oz`TY&z``T?!nA!i=FI78U{{>WqxuKZaz_5 zV5zuxB|1(%2oDQrvE0s}<_;2FZ1S=%5w_GI{)uCW4j|v7&1x^2pX#C#sh-knF zBmXq%rbQ^mA1@BM<*n2b=xeW&qo{4no%<`oS@-fG^L#M>V1{1zGE{)OXCzVhPhJj$ z;3B42DaE5g;0=tRjaDI0ZE%$H=k>t}=V${~6VLuC*fjQKYlc->9JjsVm}1;G$AKmT@4)^WF7?H`Csk(Otz6tb4Vuu|#Z3a$j3b%m%hKJWY$p^8W zAc_1~5ZF-qXY{7X)(mBDnYJiq^v@qUsr7LhAT;m4+TsD#79ps%m_fBg5vnb&P;HnN zh92Z9(=|l#n5MTMDkLmj3Vt&WuL9ND{Zaa7i?2+M@IP<9_}2W-p8@~#um)KsBb%1;&owwLp=Pj|;=1VPdv&MbxRiJ_LPMgjr&u$J~Kt@WLTv7P{}&WoRH|Vq7T?&;Q_rdZ~Rt`McugS zb;ji-(L<;1);tO?K7lDHhIzjgs=R;$ zJgz5Ys>;xh?q|Fqj$)8aR+Hh1{jU*rvO|y) zn<}xUkvyH{LeeRB40$^JX^{1*ogcI&gM5eJ(Ik(j&`yH+O_@8(-2-W5@LbGCdt2&G zdEz(3u71yOalw^5p4r6gkc<#B^AN4KyqOBQDVvU9>&uPbc%)bl2A?D(3cgPNu)0J*(D{&FVJ`k*TeM0S`XH9r?&y@g_sIiZs6pE_%q_TIW+2u$1f5m-fBgj!7ET98mm=*E@NXJL zuBI5?f_XEP5@Bvc_FxUflk}a^G2!Ms(c<9uRMy20<&E$38l0UW{pgccrgjy5rv`T1 ztr0mE$X`_I5VuSil8!=K3!xQ4&+kBJBgZQTQFZ-mL=xMaoSB_bU&5qi64{)lWm^1)~z#hmbwK#Kr_)uX{Q7mzJS zaqP$7QoT_@b99i;7!~K6d5s@R`p5YJj8(AY z1hKWGMe1Ypq7lR025;J^)G%ZN@T%d^Jm6xAy>}=jyiLhTCw*o=1@LfSU?dq?Lr8)=-QAy4?8k{ft!~iiC58b8pIpeY!&6;K$2OT4=WNHAoA# zCmH;~aDrD+Jo`~nsTm@LFlp2wx7U<$Gc!8PiF!iKYi#2y3R`Vx#2*lyyl^>^e z1{0VH?hvl6EbH6U`O59IXen8hlCn&dXz#TM$0AF1LB-~hhMYud1IQoCtMzMyBuRXr zyM;Bq-fQ_3iPfARu$7I<2^SLzVx3kN3rjIR zHWit}k3&olx||7kpxDVxdy6f869#XbNy)vz!~wSUoW=4JKNFprR2-ypPgd(tOZOIQ z9qJl|!0p%bcLfXl87%N0VpJ^h_brY5i4k`$6oUS|63yqd4NhGk1X>mEH7BN~lsx8n z>KW11B=EFef)oDi`A8&BdsT`(xz#pl$cQ_HOvBG`eeE;9*y2KPHBskvQaiw}*7%!f zvcL$JsW;mW`*Lo(rJas*?q#Nxz!$a}vIqMx8p5v2g-dx7Q8>-QVwHi7DhEVGYr|F# z4R}t54Lf8#M?(KwZFky<>9ZP}$(YDG%wjEsqWYcdR-eo#Er2%@5#oDV0zGfVNh7Bm zIRRO7xW{*%wHaT^8IR8Nn#fG2f|;iC>BbUV+T>HH!Q^q$g87}E?w>^iKX^>MQH%)-=%;(uLbHR zfI-quyD>r51|SwAQ>zq&9X6e#FYs{iE}Zt z_r$K02xn65o*=QY1Wt&_sPtp=e1EJD`^0WK=ybe=R6_|wtE~Ok)$JorYz$kJmAS-I^@o0RNO95nHsST%0NQ3>K?Y zY*cC=Z-;J_1{0SRfJQpXo zzKs|FT+VGGg{c=DKw1p>G%n3cUQeWo|3)e9sK%a2J5Z9(X{Pa=Y4`6c=Dx6JJti zpDxM4hhWB}5_3c9!Aek6JyxI;RZ9wK=qxhc%+|yV@D9#TxB^X|C#9~FL$1vEAi+$5 z1hXvhVEG4AoW|I4@L!fY*D)pKu*Au!Tb@r+ke!d_k@FU=N(uUv{X#-bks8BaDlHkZ zZtKJ&4t!@aR~l=j5mo~DU+&x||NHb?)EFcgeCtzS@*Z6~2!=`b*0SaDRP+s(XKTb} zxled!e&-#R0ICRnOOBUFJcq`0L@YFj4D47e;3S+HvQNId?%zZRMQf4i#Q`f3ilHISdmEx!CnO-2Qipt5IHAaOWdh z;lzpL1YFRs`4W_k7NEW8E^Ml1{OoH8R4f_@r1Ozt9U z-C#iFto@>d0o>yz<9{SF_PL4?xXFE}4un9$WpFQZ3vj0W_5Y8$e-DiEEYrvFKxSHO zC(S!;P}E?fJ7|zl(S}`I!!Btjb%st_thAlCowlqSD;4bWanWU6R4DY2hO}5wYent4 z)vYcnuBcUU&4EKWhjXCNLMbg!puo_UWBI+;b=}W96QJ7NkNfrW`va29;eDU?dG6#cRAfNDhYF*Uj2Op2&O((ZSwTT}fV(h7E~J zvSIVN*zCNKk;Ji1-lyP{-CS8HPh)e`-9n~N$LDxd63KMfwg{sQEJjImtNny`bHq~B z9{MNdjuvXjOPdGWkaV7ts2;Meeg=h))l!SD%ZMMB1w{1Q9Y`R(7=NazvvE1i5?(-(@ z^NHN&ley2QCOq*Y)Lv%1vKNtkkUXs1!6+7&%XC$_SJPHtQ{~>jCivzwhcp)y;=bZq z{HsJT5N4wSLk^%rM=->S)j+z}BrUkkb_bC4w=yen%%U+bD4pWkqP+#5I;r?VTs$>O z)g3A(Tdid-y|(?$P_Alh%%v<5{(p|FlzQzX1_N^&MYI~%0!sV9b5Pr)&6Z@`Ahy-G zd!5nj_K)(Uh>%GuYz;s40TYh|j!?8L~9R!f>ynUX+(A2rV(3tDk}*yCZfk_S?l3fIqXgqH-&y<=J}z zz6Hw7??A5S=9+@BxF$3fH@o3&clnfdjLVU<;y$VmzZr!9cX-MbXLs0Cv=uCejlDHW zFG?dYuzd<#EjQN|6iL27GNk9&3}0W2ouIQPWM5rE7(?vrXAOZj7vL#vn8Q{EV#izwW~iM6bS>DlZ0= zck`2{&-`Kj7|-nEaRvUEF$MmZ@o&f<@Dq+dW}ah=Ti}%D)WoDaXJdc7HPagVE7&iC!4E@2W=pEI;#=U7dB$c7i0{hKnYaP-`~0{&IZhLuUI}(Hma6 z-(`89X0g=OQmZ0-9VcXLmJv;5u)kru<%PV&lF4VRYPf%U3nHPp~53T(GRGck$hb{23D1=z!SF{`y3bKOeE_aWX6akZ&517##j z1t=gzb%s?u13%UoMv8MUyGDqsLr0+j&)gtCoM5yDGWgJIzyUDb+VT@q7krM?Q15l* zxZh#bfO6}E;22j+F%gXlb$}=Mrf>-cst`WMXe%Tf5SeC)CfLsq*sbHR3bu z2)Sj}Fx4Irhpw=B;|;} z=Jo$w8}pUSFTm^2g5(0*MohnadW3t9;H1L{wt6|vGpm=+BrQs#vny7NN$7Sjmd^R$w^)`6_XuXK+)j-wn1XHhU zEd(AK>nuLEl3Rv3iliVajS*4vtwrLd5Zc^ksl6?EYx1hNqh@M3wz!KN#QQi74aUwu z%KAx^I5sA^NNe*hd1-7rm0@8lX)ZRamNnaL{hjKiXtP~be9Q1a1R@!ODMJ!_Ys4K- zV4uw~Ve~$SE%YpxAuDHTYGRC4!64SH`VuiG=8{TojZI|O;EIa^Xsz%ah=h_&_W(rB z_yK`(^LK^q=8*U}ObQQNbF-{#nj)OmoD>{Fz}&5z{u6m?LP!B$6s|$S=4lxZ5YozY zTFBCGcdNkZTwx6Mt8IGN3M{fEWK*d?nN7SBan?_c!=;@Kr3$sQ1Ub*&=@kyG=4w;y3gd_`E zbIXkT#cQl^d{s0EU@qGRA^G#6ypb!5_4x?wMs1Zf*e->YS$yuw(2$Ja5Q}|>^Y&e? z%y)2CaA=c{f`I^fNjupGD!m>Ve@FHjY)=lAJbcExAIzvku%}shzCm93((Y zjC*s=C14md)?mz#sLxeX)f{B+3GPNbBJ+<> z@d66JBvLH(K5VSj8m-kbtF^@754CU%uu+8F%l4)#A6>ymmcL{-qtwe z6vy+S#vw;jR}Or>J8GOi%a58bGKq0`WBYODb+t3Nt3%L+Gs>%-nO;59JYC~`u9k(5 zxce}p{qf$2_9ygDO3y??|KwNSI(_DUga72g`2UOiC!a)74G;?AKdHO|zkcNU){5T~ z0sB>IufWus{I!zMD**Kg?7_LI(sc^jY_t6=R*~+at|(r_7*SU1Xg-?_#Op<1k|Kf0 zw~WAKX5y){STFnK9nVF=dhpNyBHp}iz1U5>ri~@}kYObGH4(4`CNu&BlfPXOvT(xi zopaXs)u#dlm|;#Mk~r%D!lDAlzhaCF6II6FDX+*4o6l7jj(Zr#P1`@1)f|{jSPpbF zu*Hn^1e^^R+ewakl0(@~K3yXI6EZVqT7!j)d^y#=lT;{t*la~r@PDqdik=Kqq}X2S z#W0kuImPP^2)>`IJY`RnRBVRD4hO{5=rt|I#@dM!q=BX-(3XT4p=2L&@!NdTk=WGQ z6m%M`D1_yA6qcu<_<{i?X5sFYvx;g6I?b`kv2;@1DZ3bi8(b_uc;VgWO#jlPx{|`W zK4F%ls83*+IIeLWjq!!tq6L;wLB8mEID&6>{74{}Tshb=n*ejYm`=`A(v6(q)1ilL zwvGivb&Ierj!y^ky0FM?rd@8C64{%R!uOw~tsWd+xw(31mKO06!bZktF+XSwe5;u=nIjz2*1RlweCE** z8Xed;O@S4UkSQxOrY1(|{Eg%b6fYhj)wvvXujK|pG4lp}m}Y{D><<#7iX_GY;X z^6aY|N)0C8x)2jE)`Sto^)YMqw;=ou!NspSc0lZ171Y&O2m0Zge;O?@nSF%?djkmi z9i~z#TN`iq{GUdZ?!uQddA7Om*gB?OVAMSh0g+9TaAmSFnGCb$CC}r76qOh0B8ZwK z3%V%m)d5y4NMLt^xFKIN#`CtkDD&03>Q(Bb0|_0&vlaE78Ppb2;kmAe?1nW=q*5Dsp^$98(jdq$L?rTZjRViM`1+x{Bjc2fGXFT z743C>h?W_o)%43`<>WzZ5uh)5!bu8U}OSIH1Y0hW@i8!4TmghZ!*Z@#|V`iyIetOTvo+$h+T843ej`aXA3EFYx3R334Zijd*x>Mb))#0v#-7W@ah(N! zyt{Lvtj$1T7h4ZFG>nU}PaII?K2=0vTum+tV1Ax2UePUoWI*iixL5;^#uDerI!owQmV|jOio{6Td zsEC5&qSo4esOtiO;=4eAjgnl^Liyyo-b+pFk9<(~QjC9xN)w16C9CC4lkqZI8tfz$ zol}%kaS5Zr9r*DdMun;=BEliW%y9@uKd75nuFVm0NdxC*y5lNqzqy?~Ru#|L_IeoD zt}LcgwtEq`OE84)C!>n6h6HVXbm5ckrWi?sbWK*VNA`FscP+?LmWb?VP^2~6?)spt z&lgo8nSnjl71CjhSsTFhPr4$8{-Zb+KU$}sWy78jJg%2eL{SE=K^CLO0Am2-G&)(>1a(eze`)^bEF%5bhKR;8fC!>w@L0me>1{3^pL zv1-N-_`fj_kqh?jeoj*$-eh~8<Por?OI<>uRd3Y8UT%)@d!0hF(`|L#L&%^i7PXrHDOcY%z(- zL$geY{zMjjdr^b_-E5U^#;f-o18Dl~5`eJ+)$T1mdLEh+UL=H&wK68HlmXDu@zoqBR z@V7kf_*?$@T?PJ@jDf5H-62x6d4VywEKGFwVr~(_G-Po3lQOrkalJuF`;k?q>s&Gy z^2-Qq+nc{7IQgnGtqHO(#}e1KRxmtJ@zr!ocPeD2*yrl}(=A=;35P1v6OPpt(Xt2{ z>{a%?wly+}4Ol9WArDSk_Ed_1bH&RsVu5t7SAh_*!OqB^VIc9`zT!U1UgS!b^W;{n zVCI>;e#aD<=a(<3mvYL+zQU-8}o*LQYir{Z&n=xDjST(Qq zU2=Qj7#}kh66RJBUOA!?)UYxN5#ODLE3!T-v+O-fZo5CNUeRbujX?sf5uzV|LbaPk zIarR{EG6qO(@CqFCH{cmku~BXM=T1896x%IT?qC?|I_~#EeRcX*nWdv`Zsf8HL+GJ z&X!fipz?r;!aPTwkaW(166Gh%cL_lOQ$eqhQ~Q$&rDbwUiwH*9n&zbSK!dxKvkE@C z3eZ0mSn?`s1s#n~R&4Pvt>uoIkB<{Kb5XLA2PT!$VsaFK!`%U!g8#Lh-cq!X@uvo96NNF2VWhbdNn+-Sk@v#^31n8%tCA# zLVh)KERPylMmZ<6^ngu!yvZ8)u&Z6u*NpLH8=WbK_o%es=DNHRMD2Ma7h6=%a34@g z29?dL_uIa3t*dFUgbNsvS8H)u!o9AJ;56zbsYjE6)2w|qO8 z@`VaLM90YNQ2d>ohgW1U_EYpT)2}n z*SFTS1=4$cYbD&%=5y zzvtm^sMgYO>luB=8n;L)b{A`haJ}A4Tav68#V>JJT?`6^kjLVPv7Z9G`ONjLwbSsl zi3Pk6zOQ}TSs*0JZ3&xSuD!lBGVPo#LbBA#4@z>ca!k_eaYVD?mNN~B6;fNlR76hI zFDIU(DVW_~yl1Rkq(M}gM5NL5ixL;ycg67OmX|ZObg2mkYq^nL5^qj(TGd+C?#{qKjvhsWj$Yb4hGJG0E(X-jg(_qi30#(#Pw79;fIr($c4i8c zFtc2wI%B-)2no5~_&QqFa0OPn0aejKHl>(hlg^b^H<;7jWbq}o&Z11AE;lJ(Ch`HJ zJ1}}6ymW=Dmv=P}Y(3V1!gK6`Uj>q=81LcGS?{u2MCK!x)$U`>+agcpory$? z0?p$J6RoCqNh~=&`(NT7$?ga0CuGZoQ$kPwu({JPafluQRZ0^=G%yNV8sKtp%WoJw)hu z-($QA1A>fb0M(~vJ*=f=k{w_7`v2-N1wQr}h$eRsAKfYd989_03{ZJRNN^&dJIqVV zYSoAJHO0_iA>^0zAxqMBtDj|dw{=L`V@UeL3_xs<0FO;1g?SnIUJOcSzc&`aREw>I zEIF2r!MLEo1A*Kx3ES&zN$M_zvi+A0l&tNt-yJuU9|V%bixFqShorfT&00fIaa&{$ zQiQC~XP%g*8l*NkZijX5c8FA%6*M&FxvP&24m?TrIj0}vtFS1OpzCFPt3uW&sEWM>Qi;eI zZGWtA1@&o-{?}tp4k1D+R5)zqp7farj+3)9J)<>FI_ zBbMDJp{U&F@v#t|)}R zLU_D5hr2;F_x^eZ-9i@UTO9m289%4+o!8wIQRNAMe!oh=*307mGVSgto zl-sGimeIL|R+`sDQZAuIk~o|iSgnDT8T9UNXuqmQ+!&RV`$OMqFTcRx z`+`!OXi%nDn0k>v!xJi7{&hQzCRzeCy6Ec)MMr;%Uj#wpvxMfmAAMY($-*WK{RuzX z{Pn0rSn&kzf8*(6lAUU9gEdXKh4@A=l3S|4F5dsIaB=gXxI5e2hU~TzK*>DunJzJ) zh`W+5;qGQHG6EhA?+XVt}F zr}MM<6vL#{3QNH`KR&cY&3VwiBKLn>bM=JmF-MYsE?A5ZHK`#z2!mgfo@lTh5!5P$ zDW6H-&S{K?9-*bX0t5(hl>DJzc!ZNd-dabSr%{GG^b7iL0Ep+7D=w>BZ{>w}v=5o1s z@eXR|8|g5(xkpzz-QbEOI$VDt@3R9;y%3nb%PEvZVS|`9`J*Uwoj?$k74F3G9yEXU zN85_@hl-H=c@~fLpK!l0DXu+g4(ww)!o9jS(;7k5pl_^&etU6u=RcYTLPRni>%)Zg z#nf{jY;3_0AG5RjM~`xdFeVlBPn%tVozz-Z6XFQ(%TxS>B0CW4TJe-nD;YFa}o zAjR-Hjr=iK1|Yd^87KOPPvw%(D{5TU4D}MDn@l0E;S<%oiScaX zczQUVr+K(>C9byO0(Bfcq9Zz|JiWFWw8HbYS30OjhBm{f7Pe?4G0?VS}kQ7`#cAMw3|%Dkfb91H;e-h)4Tntq;*k zI2oqk&3B25pT?W1hy<$p^{z4SI_1&$kZu3eL)0ScLz811$2i**!Qh9Aw1a!md+1z) z!#Iu0jXMl{O>5-!uk}JaCcR1-sLgB#;#TLn%P!||eOkpIL5Q5k>fbvnh$5ax64&?Q0bfj*>_PAEc*P$nB1y!7c{P#JFN^qA}#38AW!A zVPvPMB0B}xW)g{_ejyccqbqs`!V*t0rV1t?FZLUzA&RPJf9(>$yYfcr$e^o?Er55P zbH%WIpuwSe99EPsgXM)uVBYYq)5lNo`Rlk-DNuKt|gqYHdzO^bK*pyoCX?LP;2yrmMcPq+W2_=II zZyehwk291T`wg9hr?4SXrJFKCmKYUMG1<|VM0S)&kVL>Ei9i)e1cs3=Wfbas#(;8Q zT&l&bw?rT{W6`8rI}7sm)s+Q#d*AreXU@xy(q{Z9C4EAEltTr6lzx5Aeg z;<`j_$)Cc;Fm8&;Ll*jfy5X?{TCBw*NQDNM}jGVc%L_h3Qz9?%XD6Y2#Y!RJf zESSTQK#2H03yfDq*$P(E;dWdUIKd{HxwU#ISfIfE8zj~n*ZB;?h_Ul7M3z)zTQ?zZS zXi0R{T3b-Gk2^(c8h4JQF+UvXfCW%Q3#E!c)(6uGQ`fJ16sHK>hnVTD_+&bw zah>ZR_U~6 zMgAIPLxC}kHvNl5jw=ib#Z=%v7AOaAH~fooQ8m^P+!)WJgM-%_fZJ&h>l+h?$PPuz z|3#S|J*eS*{4>lS8YZv*YhUQaXrb)-J|oP_u93cAW;{>UQ--|QTP<2U0)DO$?F!Z0znV4X(F*)O2Xl!mD(?7;vAlAWzvzA zV87&kF3#|A~E9 zdFn+v7Eq4E-k?@p@Vw=M+Z?|PrRW87-H}bpCRuq!-_*W8tMj>PGY;4#Zp(_ZcA`ZA!b#~c|pz|ze!#;3P2zPtJ?PW+Yw&dMi z#VGCoy?b54R#+M*#yZhyPL+_stoeBQAw=7qms8=kxC-o$Zw4~KC-hjFh$cCbyZ ztIMl~N|DJ311K2P-6OOFtQGgw+7M^^bxD^>P+e0+aeT4j{54E&D3}b+1&)}K&%3k& zMjKW#VQ#KN%H#H7a>?$lQOwjucRUVf0Eaf9aP!atwe4f0txe5XlG2Es?D-|9oCr3+Yi=Zgm8~U{VWI{MFN=6Y4Uu2H}nf6fN5vF-(5!i7Y!e-zYO=@#OJE=`p#0|*5vsszuRyg5?Idj;~!f%{vI;&PQv zI)WEd0bM2_XZCAM<%~ML$|i_L7FD87d$pI zs9Wv&ah_o;zNlB`MzAS4Ymk$EGVj&~uikIe^y`IW&+c$%|F1r)W+o@Xy3Q31fJi3= zxWs%D$<|RX4~htA4E0N&H486dGt-&p%=Sj(2=X`Rjv*Nsu76FnJBeqx#o;Q?qAcKi6_VYXO2+-EL{R!iMgK~6uNTFH$5O09aEsNK zs=Uv(hX*aK9Y<`leI95% zW~6T-2CPSPdFos%yeI4mw^Obm58D~WN|qGGKW^`bpn`FPU6+&%bKE%pm=!sq>Hssz zHaX{nG_WVI^33Y0YB{hRM0?t9UC|h^q_VTMm)DVXYkwX)Wi|UQUd7W62ExOHd_08T zC%1ALM$k$quijwN!0;$-u;;Xj749};ge%djs3&<;<03pS#bQJpbZMo>4S;#?a&$N0Vm~Q!Hle zxC6i1nE=%eb}wrIR*xbhvL;~l>?kQ_nc7u<``OimMfT77U()_L_2ii|dq4WI(`U|p z|FT~d#lJt+JKr)a)e@LyX#OxR6Z|$M)B5o<*R@u3lLGhSAo_0(jJb46XBb=`(n;EG zvUaCt9E+6C`YaPtQxhqCY)Eht42~pHGxkJMt#!YEp^|Ff(>HadE!A2%113ypzXV4j z_En(uytkN7hk!QH6yBwbVc@q3er(2!B>*hAe%fF^mYua6`Yms@%O#$NuCaDINw!RWypn;;|?Wc+2?cA8!!A!|3TxMN7`@6mVxzezr#W zSs2@jr6R)MRostL>!VC8q3RTEz1u?uuxY(}XkRGfMjT(+6(R%khFHN8!*wWoLKF(! zL$<0FA4~I=vW&&L1Nbk8l>Elatl-$nywP0S3pw#;yWAJ8u#1=|-Xdd%d>ZUnVCEYW z9BAL=y(MogQr#!R)m>7BbEW%Ul84b8D59ih=9TM%8ke{^+6K zR+RWz8fJU0MJRECvYpJ1?}l14D`cfo;GRQ}uxLW9N}gv{JZ}sQRD8UKkS|MRgRYVQ z=42@nskErb0GUSX1JS9Go0}LUB8AMLCBYv|ny*gH=&UB>^#0V4*E3f}w|&tWCeQt; zIQg}k!EyksQEK|4`9%##3i@R}^~<~+f&N*VD)1S!MwjWGOQCsI72YxZ)3WH}rhRaS zW7I?t2S zsi%DK6tD`6dMfxY^#8`4(sKT!P+dH}a~D(c5)orpA?Y0&Wnnd)JZMCkVHW;?mZndoz?x!CY_R|*| z&a`Ytxgg~ z9{^t1mR}~o#P(|N?aisub-@nAZY7>(r*?)FZsY5AuPylW(vUSNrafM-HV~U2>W;+W zgN3ejC$v5Mk-KiEzGpb(HQCh5?Sxyx2thQc7xS(Zz;dI|M8D& zOI3g|V+BKu;w0g1P)YbSEwBdYH5*zEZB65q(+vL^FU7mdv{jK0PPBxoqQRPciGztj zEA|bmn-5hnBUQRR*r&UhLh<_l_%`ghTTsE4JMow|4g0 zuYdQWqVuo*Jp1(~2R$PL1d|bK(=9z2bm2Rmy7$%chn7XSX9q6-A@(eim4klEU)S?= zY#!&aw>YVK#$)g9$XH!Xuy=bf{(ekQOzH~u?o%))2K-}m+wA~S+r6TIByAZRj5S)>iL#{uFx!yKg{>uK`w z%o=*}Edr*u8Dio!pJ8~yue`VC0l=fu!9AE~F$>`d7s&6<${-9s}JAnx>yaz46g>Mk>vRBY6W>wgNBmM!r{JesZIe@Nn z2WkHjVDT!<-`F9eJB6ZCV-XSzoVM^Lr9?}R?J#{uluY&+M=V9{E*0mQ$SyP3MDv4xoT-d1EflHX$8x^S}ewaU~_n8d{l+NR^%rRAk5hp^6-MUvQa>smLABE)Qq_G@b&~ z%zRUmPw}S;SfHBrn3~)nH3?;R$L+UvQa^t4`vv{@U>%Fqjx;Q+FM6)D52B4v0UB{)Kw?JN{-rhwaJx7C@B zK!0kY$`PlfK-|`wuMEoU^3koa%hMAUA#WAwS48qn-G+SPh)^#=XfMaQqoT8}9V);K zkfkvFOWQ1=01Xja>g<#Ip&eA`v#!9Pz}Ukk-a;l*RZ+N#p%v>FCgqrfxh3umpr^Vy)+FOIMrq!lzKyxS zq`Rg(TL;4~t_4o2eANylH2O)B4ChF_LFYh*k$c(jyK1ySr%5|g8{ZrH$iG3fDz1bs zx*k@d=&MMdWx1-j-GfzxG)<7O_M)GXqag08O^q$=^B#B@;PUYX4*s`jiLW{n01K|SK8`@S z#U8{`#QI_|Wewkxhj^%{dnMuDJr+eVCVIcajLl`{G_L23@EE_O1JF+w%AHA-f{nF7 zv_{}5S&}-lDm3v9@|blAonut`4H{PkD$0Fk=_>E5Cs^oNLxmxM3qoK2Iw|5q= z$H%@~SdZTgKmU1G1XWs)Nb$rw%xd|4flJT`m*6`WxD)RLL|_y?V<#SHL3P>!>M^5czzTggs=T_Wj zCz}^plAf?wy)9D2V|Jv-&lQmKsphsC&tMzu zM6uE?u$?N0716;tPrT{3`e9xA*n?ikuodR*evph%7vD)U$k}N%uXfrsExj0w#jf< zmAuq%3X8Qq?_j`dIiJ5P(cvaSEj%_TowBo#N8`{B zeZ6qhB~@wMoJ@?uSH`(Rk-auY4oLMr6jQEdsI}q>;&zv#q9{b}BlVJ=&`#y&q3$z~ z13NAFAJc(DfB#We@{uKt+~Sh-gtp3}?yICO9SbSK@luI$go^6mGc|%MZgwqop0+G0 zLJM9j_(Xe6p-XM9)3py+1zv6T2@~<8E54{5Y~@hNR&1su&L*ilvJeLPJ(f0PU&Zot zOW-GL4P3w;UMXp)H$@lU)g_9xFP1f6;kf%xRnz z%`||b;P8j82?p5aD$}|U-Xm05_{`-Ye3^@p#Db#er465RtHo8qldDfg7iK>s7$ZgB zgTcGYnDOxHxIo5W6c|NW?G!(Hd4mpM&3d+f1O@q1d!bp$VB1q=6?K{F$?L;IO@)gdJN8b>gS#z@Y)zYj+2m>>rlcD>`V{8h0CG5n0zJB?Op|xH0sOkK#aG)Y!6-A@9jlQP~azP_Sdr-TFf6*c;o+5a_E|<;~QCTTnm7)2pYfN zEbwJ{gTd@IhhZ@dlX?p(^KkY@-Z-0g@9$sDyLYN{?s}ftFU#6zt@K#enGsjnYlPlS z*U0vZj8IIC@z|P&0V;O}dSH)3mE%L3ZS0HQ^s^lURIB);;j2~n=@WiaXrk{L-@<2 zT{F1|x3iu3{su+9-qm2?@ik$qIS{6R1TVKoAk0DUkh1Zj-+oB9U8M~h`39$d1j9hK zcZVL}dw%qX{0ZLS+zu1G|I}NT(Wo~3o-b%Y)H$kF!Eq2`2xGp5Rx}FzY%Gns9 zns{&I1;LQgXP8r+oTz|ZmU0s%VPy%tIHA|VU4>x$RCexijnAV(QTl`v_^|ZdVgbhk zL%&{_Fu#9^o?zg%t2F@^+LJB1T2Hp;>ZmI4HgisD2}SaUeqV2wEtAZ@0?{+s{E6P` z{~&)tm+#aR0IFiAD2<5i#USe)JWWkLHWf+6=DZ>3vrAki9=Y8Mok*;cBp8!OpqO|e zfU>~9v&flwd1FEjmN-*7mAyjaiDv`jcYPMIxILkPcqLWp$VdMMFVnIgG!wr!>pGcc zeGZo8!{c8y3waDJ9nP2|1cxitJl;z+PYNV*O3xd_7~l0b(UM-Cm2;?qpHF7>bAHMktOp$4 zZvV)r+@?vz-qJXH2En^Xl?sbqW)SCQ3RXvfbL3^{A9g|I5rMNYa` zWsio!X|pEOGP>g|%ux=G1ba!w8gb#1aM#oZlv%g2ZiuPUw%&9SKpQR!##o~<8e34! zbOqQ(DTTPpQRe_dctcTFVSGI@6E6x4Ma*&SB1Ov%F))W#(4-zmsOmTm7W#&HxtG8I z?h8g+Tg>*8ZQ}$m*{E*Sm9hj@=qy>BcTKz(=dnNqJB?uwMLVnc%z9dXi!~8ZSD8JU zuQ9=M>nsc0n^EBeOe2CqMU`1J|IhWcbLI9 z+rBZ|UVp{K%oBOX*xk=HcEVKW*rouMZiG)GKB(+#YOl<1?K3Z(7VK17#B1q;Ra%J% zxhCK^UE5mo0a6jg6!sK{1d{bT8e16DPPgxjHnyz4zBO`d;3Zw#T6?Sb7aGV%NxK|$ z6N?eqbuAqb(uL2OeL6kiB$}*7U!K8-9QyAg_;b*+Gh{Yb4p!LU!$|VQRt5bl`FrkAfp`MHfmhr#i);j=#j($|8##R@UYiJ5q8w zu+1g5KhI)FF^nPR7e^;~J|=tI{H0CzrQurjzf22+YOtXfYZWm2>dWp&kJ-fa zl;1pP#QPQEfSEu1X}qBXe7wC=D)vQ3P&ZUxfc~Ticb}X)6_(g(KINP z>xU~Hu+(DtJCz4H2w;TG)}!}e6;K1-fBHRg!pc|4_aNtYlqmSq<;30x7%xM z=}AvmUkk~!k>4;al%MOTNkCq;)w_0D@i3#c(`@n3JoMfY6Hy^5VP{FN_j29IOF`|X|mIs>mPtn%=^S7IvZ8b_Kj5s=U zx+XNvpYh4}I_WK$&SPU89_!dNElA1qs8b4l|Cgr~c$9Wc3y0v3Ts}>L%_q!tJIhyG z3zQpY7gKgxN!2<TGMMhAXo;O~#iT-g)&p{ZtlCUs?Zrr8YaW@l3C zYN>mdl|TH!SIi5YL>5=`Jm)#j^9kp9&UK#W9M{}*mTPXRQZ)FYhs+l(F&~r(nwACh zd4Z}+nNK=OJ}KFu?obO;m%4HO#o8|y{EO2SXZsgt@x2Ak#?7f2`>WuoPRSTYCsH~r zBW{6xAGl59QFc5|r2@gq5BXxWgoOcthX2+e=e>eSHXV4c85AR@ioDmP*YV^rh4>&hQ`P<6ed&2?@Z z(jKh%_nns)=@+P&e)&H*HWBw`_hxX@+?K%aKL7Z;DC5ahb~TnRV)TO^#0r=*MUi&c z;9uc-#%sP|=GBt=@|!`kaUqx+0)u32nsww}RiK9384~p_&RmI3mVx%g@B)>r5%Lj& z;pYW`^j}jjf2EC7qqZ*hyNU+gYrNrL>0ht-9}E^xjPVAu7YzB5B%_r$DX#3n*j=x2 zjutbFv7dj`|2wlxwt*LH&^G>FvwZ8-|HD~+^W%LpgUu}|n(6q37^$1(;BkX-{`{(F zNib|qZC5ZpO!$n0few2A=`&}}KB%aUwon}%Pqo$xp*Ex^P)FPj3=5TxZjF@k0Uy;C z@Bj-h&$GqVD+u{<2L5lv%LO6-sD#ZvOTtR{;HlEp!Gr&%K3Wn!H6HBYk;YCiCes?6 z0BAs$zryL3TZg4vCX8q(ufDoF`0v`b;J=U05B|ILaiT_gF_8ezIHjQP4#fVbz8eL7 z_bByU5A>as+Hu!?4mQ?o(|h9c7BIF~;h}IF)zoD%>awzb9O!h}2mjl;>?}UDL_7Yk z0qw3=`Lt3oUfs7?-BRwA29i<)lFM6BF3RPswWcC?jPUfRo{h;R3cwD-P`$3;cl<(E zgd*<0*n`1}we$SpN>(m+G}USHVniMe{;OLPh;p!!hyIpZtu%$Lc1Xsh#%xc4A?isA z11)+OBh7Z@@;w^&8IIkO@;f+g4Y%!_Ap@wyvYDbG=a$;Av!{y33vD(k7;i95Dcf&n z_()!9Flx-F2JQxzcaMn!v7jil%g~C&J1&_S0uIQ1e=l+UG1~MH@L?b<>ss+tYvi2zkV{TMIxkYuRP3A)-z;G-{M4y>YkWjIqP-!gvI)?miz{(37u0JPeyDsjX#n^ z%H|HSD!X5*r8CvOk_CQ<<4`OJ{lYF?>oydpUA8SN2Qe16L`( z(dkk!VW}U~eFZL(6F0HD6bg^{$p(ugBRHX}<#aWaECt_VgX|R+lg3S2BexdepZBEk zk$QwlLVE6g*SgPuS_T(V(~l%s=aw)4)6WU^2FOFlD?br=8%wp^8^01$~L!d2HP`oma5L*!djnOwp!Tgd4;exOB6xeU{)p^#X zm#K~h1%B2$^5~N;r=>*{oP2Cztb>wGO(er7qn8(JPvdc}vX%Rm(o|S0mAz3s+Ji@~ zag32#KKo#oo{{3wfc#e)pLAEd6&b+ky(;>HD^22+ls!S;Y-Q4J&8r;-*`*@W)A(Ei zYSAclxEND&tPobv&8x+@GHyh-LL8ZmTkYC)RA4w64aa3rj$p2P;bK;3LBRRDoS#x( zs+>A06A~saM6y#MObxGCd78=0AOSIjzZSZ7!QNCtMQ2%0R0%;_p;LUP;mtbup$GH^ z0q{T`x`I%~{y$iy2rUq7=u!~R=ppY($A8F95(G4k|HcDd&+*X7n- z9@W77vNe}m@D5{%SrGa^FIQIQH6b}c4omFcsk}%)`+xItM)_9b{e5{ALik651({6L zH?v9TDv=6uYJulLl-X-<6~4g=>jQ}SJ$4D zLSy$i5!M&BPTm+|4h0t)Z_PDcv)a-G_l!gvh`lsFa)hgQ4RoMmn57bgt&>AyHM`Ya z80GxIb&;p8)U_Hcm5sWBj;_PN z1WzO?RJOX2ZzhBr?I6C@idl?_Orly3(+b)lSd%Fr=482(>lYgPCg-PKHNi$^Y)a@@ zp4r``9nooiKb|33XdIZrYwS>m%eWV<5Nf`OZvVI@6yb!R+XLwWThsDt6>;akgoULqm&qYuAB>8JbO5w(2c7FR6JqukC3Z(^c` zd6@=6E8}w$l@f^@9`YD(9tj0l@@1^fQ}8^yrDcg?wob1DD|G9!7=Kd8j|&ePBC3fE zS?E|erm}(WZlQ0iP`f_Fo5V4xMh_jFXXElAi*$`qOR>RxoFm@LnjH+OUKAQ@k*PFx za`fFV_l9Rb$#M0JZjHQOapJ}4mgTAToflZXedtx6bQR3a*6|jP-XP1=o9jALMnBy| zdyJIOgKiUZ+d9RWpo^U=(%j+-qxo#2NxoMEV$$0;0s8Pdn($&_p-``uQKXQw1arTiX{D4#d8T6Me|oxvwI@uPfu7r zNv6kMqSzn6!-Y)G{MeI9GqvM3nCc3Q`4J2O69l{?9~ck9o>$PHdN-4R5~=GWFpmoO zdt^^Sfn_ECcy*@x%^UgizvmGzK^wmKZPAkJTWi(@heM`$p6!>N*SFR_f<*7Nt+hAg zt+z2%JSqTl%Ni#)M+fnPx%Ebhs7ggbT+$P^W?2j0Z8`fBpRiQzo_gziOcd=>tm0ZB zV%b@vZ0#omYFweO~$UDU5m?Nt( z8CI6-qw!j(b(QWjB}%n~&p_K(l)Bpaczq3vCqP<>S~;@u1>`7xsB3(m1f-^Z=A4ZYCY7wTJL0E z5*S>k%A&>zOVOoiqZT##L#+y{NSZ(44A%aSXer7*|A|mMwmU`CW%BS@eI|Mxf5zEp zGMI2#!`ZcVrD1lZq+Kbj4Z!;M6^gs;a&h_v+YuLxenQUSMwY^9C9-PkMQFw0ztgT- zlPR5-NU6pCpotX{FY3jLsM!{NwC(R~hJXHdI!FFpFL?9lG8Q@^V~O{e#@NHrK~r?p z8yF72nzDbeiO)qTg30*p(m)fz0hiJ44i$3PR+x?wI|~u zu2ptL&GoH`GiE5^nZIA+7;F1quN#+r{0<$Z=(e;jxImLbZEU3dh4Kou+{A@@?83D* z)~#UphRbkBBz|v~x1%t)&REHsR6j-cqrp*CBM~w1*04guHLEt~p}D)TYq#5Lx#t~0 z7ShgGfcMb4!eEIv)dacEvpUxD8kltK)94 zQoI~+#D_vba}u%ZQcXC+2W_Tb{>E1P6L&;Qgyu!r=WC`{GB(`*WMKMb*W34_H@NQyI%)Dyp{SBH z77#s5i(q+ZXGnPXdgM-JlntRR;zvKBNV&g>%%=M@EK>_T<^481A+ANO* zT|c8ux9QQqP&x3*+rrZ+bDLJB>bAn#^XY$Q`=#teP9ku{ZCaL!Ax_V1;3At+S+9>p zFTBkyFSP;n+|ryK99wg?wC^{(?lOIA`1f-~3p+S0c>9iB^pTtv_6WaRT`#M_ANU2m zU-tQ&o~{!nP3`-&RfdHWM1#3_YH-n6t`qT~ZA;AbDD9_ODnj$t=hDXp-$K&0hijnq z5FAOBePoOnezZZ5{j3<$8AZ1ppc3t5InU5#MIAy7gD9?}Q-VUf4l^uOW)zR48XNP7 zfI9N<32Svsrzs1NfHtdTC&P{$$i+t63fE z3{U<^;2v34fOhOK7=n;j$aaEZd8NKYs*^$as_lK!COaw@A`R_%u-#6VF^ zMt5cl3rwZ^HCshvTFb6WS#tm=A|fRFYHP5IT2>ZmZn4XQVX9WT9GNZFkF%^MPMukn zDV@cH6z)6$HGVBhWMM?NW~0PMjndzP{wb@qB;t}6TY@^jtlo~M^i0ER^#B_RB8gkR zix->enCboK+q1pxo8vc|eG|#LJes*(_;KHEaGd&6+xbNHfn9M7q#* z`d{EW{m*lq{-0n$m1-LMxSGa3uBNe%t7)XVQFlh)rR{>Pm+74bjrJ9SQe)!3{d5oCC8S=$J1_!WJv1Z~J# zT)10xc40x9aapIDr&M7)vq&?+>r}QA13M@$qEYvViWU)C-*8hjY(ab$KYX8H(fi;-m4`;R#x6x5a=tu% zZ&(U^K#1HwmDKj}YK|r4#dwivmU8o#FvwX?Y!U0kcigDzp=WW3fUA&dLMpt{f1`2Z*6ZS|KV)*AIft$0B|my&hzS3pzCj(Bd)i#hNqisP+`!xLzL6pI7@FF@ z5eoO_l?c*WJ@?<-$Ze!?h!bImKD9yLRdHfqv4^kw zQ;@y8J_-vHUA_7#%ws$!W%y1bk3PGwA`{N&Me`JQNE9{T<;{DN6 zv_E$IkM_rh#zc$v$J@sI!TmAz`r`f3@ml13`y&wZ*m2+sn43SW4hKlDomf+8Kko#~g#}Ff3K$|ClQwj7RPfLYv{>$TvyXIX#f!ZErUjJ`{*CW%x&bRv8ZD z_lF-V;y-`>)SKx45!eN5+5h8o*#BdT`hRq#tk1{!`hOhyzv=(+7bSnN|3~&rq)2wJ zITQIq{XY=!?!(m4VfOz3JQVUs9S)}H6VPdN1ybxQ&|od%0Z>>YRUIsT1?xy7>^iU} zWz7RBr(LTpQ9GTf8N}jKGZv(X!qu2uJU+z+U&~Zb}(#|*&G}RmyVIj2Vct2hN!jHaEvFY^$dyJ{OIB9zz3O~kEoRKH&pQ*&Jdf8&luHOH!ZUN zjL=GDOAvN|FPj@N-`9>iWvs}8x6R!Xo9G>R*9atbLZ`xmZ)FP*b`?+ykO6%NoSMHof{U{*$-&8Yf*J2qFk5kSD+ z{!t_AxrbY6InA#BL{;4TwX13`W1|l1t%F^4>7Qj+1^ek=uPyASq0gLuKe-NA{rdFU zPm`kVd|F#{K9%$-?4v_P`{>yD_7TJ~`pbinqLQ7aYl};E?$lq}Vgu|v8ko|nu1ntF zYh9PT;$7z1r-$~vHhNaC4sEtOXJcof&lLJmsg*{}&q$V#B3-&yIo+(A6_9yD$5Dtn zL>lfNP9oVC2ni_FjxgmK{BhVg!50N)%^}4q7CYnTuKZY! z$1COe=0kRoc3ou6*%vYH*(4j*#A_4w^~DY4Hy{ZV*; zj>q)r0d ze6X*$i)N3wQQyta<@UG}{7d@YUKg9YGo|aeOWf`Tpuqtnzt26xhf6h z_!;}^_Vr5T54>0(VM9;c{#vxA2|o7HM`<7szxL%+3leN<}M_8*mmQOj&IYV(+ zNUSJEmO31)H|Ve3ht?~+FC0>i9GCIfN!d4nbp;$;?R1`$`1EhBJm}YXVt^a0o#4=2 zqMggV;BFj$H#`ycUV3MS4VGpqzUmEJbIsWu(SCjMf2Dnhv+hGrwM8jrYaeoJSbvnh zrl7w+({mpEePh@UZJz6g#@eva5jV@lKrjp^4RBv$~A!H9}cW_2S$)k`ZKFc~^da-u4 z7xXm8JWG69+HJD6{F5-Bz#Y_K239UlK}~8y94=U49dhm2Uuc`CwNF~RrXA2rjuezs z&P4L(4R0>kh*W!ySeVFcD6t0Cz?qqkSLe&JipRPf``jwMAJ{HOA|*Wi>e*_{JgALm zQPEJIJK9(Z?jvda)4aqCYjX(TsF1fbEHw)+@miulOq7;O1i+v&ageY~r;) z&l_Mqd#16JoF|cKc%$x6u>T?#^|F@^lt293|7K&ev;2Jd^?OpyzCThA zLlyijk%zG`hDz&8dVv)(RG`c1q9uQ*RAxX#r83>T=d8q@(%vO8U46~Miu8WHyYG4S z?=Toy>6VUE`;H4)98i*GZOnyoc-ag9Z}wxQ6t-pXfez%5SQ=y2J}cxBFeYxWx*CSH zI`c3*>`PWGb3s^SR$OVI*V(@&hC4#sma(Qqf#Rjsa_@wC3BF>a=IG7u)s%#IQrHsd zyE>Q_5e#*qWBVoacxGaQ)dE=PEO_N{dw->@G~_vpklWgd>Swi@Dy5DYn)sZ=Wc@Nz zIUDzs7<3UA&Ma0oxduf2(sy-YaDw30_Op7jLrApXi@l~Xs%rwC?&^%rKXsTSFXE=H z%NXC< zw8qR&{A7!N#!#MnN%4TKGCQ+lNl4|@VJhb1Tf&U<&|Smh(+K{N zvR7zeZ?9Qoq2nAfz%YHE6`^xaAD8pZ5)$n9Ul({2uFV87xbb8n2OAMzpDp|iQD_Ja zuw25Aeuv*#4$q~yXbZB*n8RM)E2qVOk&8zJ_enup^c-aF8T#?yQZVzca#zPG zK66}6yjfwx(3(is5f7b>>%E|XudrfHao`XN&|KEGLCRC&hS$#6+y|?rkrQ_xS1ywmV?9{xn@P}niN%}396Ty+ z5X$skeyk)A=Bc(*?&_TBG>@?UB3*Z-KT{#p66G|QC<}57+b;Ne$0F^d<)IueI#-U< zsE#ZWF-dQ5!DLcd12LR0(?!dxp9`+L(Dp`U3Hz5A!ULjP!^(>!YcTHWT=<8?7ZM|+ z$$r(L6;shGD<6t$9Yyjo;e(Yb+nuQ1?+l77KV zP8Mp-k1pFQNo?O6DO7@aPM{`Z>Wc&&-#mM?$Ig+}nzIG;0e8JR4sXAqS;-*-vFk?KMX+SP@menUu4l$4$e^^9%7)p%CLyD6oLG6!u}~ zF?Y*q3g(tjekX?V`@s3-cZ$1kD7eAp9&nfQocvDdCBGxiBfni|%Wv0t<#&WTUDr9K zD@m5HK4nz}l%>&jD@m`G(1xOHXFxBh7*;I96Dh;< zi)1*DH8w%M=0%F&(7$={JOb@;$(s8166iUJIecNQ3A7*Wt7{B8@j}EwuZk43$O2t+x)EZZ!QEl6zcM6q!eR!55* zWxH#&g;bRnn;y(+APf5?vN;x3P9&Hw(Jw3#yQ_1KBx@hPJjx`dhxNos+KOls!6;rZ zhOrpKOA;*>s$E0V{jQFAC54?>#3-9aMWYpJ2KSnWPf6Z8YE0|)B&~n;E?g|ao$+*V z#SKMQ?3SbOYCXcmAK=RAx>>snb3RX8M!}4?f`#k`wL;GAFI4q4SO6gK zl3xhPC=(RiY=$JWg)UIL)y{n2?axy_H^Tr!MC_X9HTHv6qx&~}-;Z9wpJKyza?B)V zCo2{s5YBHCY#BK;| zx7&dBV%A&c`QkdtWTJ@^9DIDLAi{YSeH2>hBt}s;RdU)V^)c~f!yT&&rGYb6WX2WP z8tx>C)?s~mFyni4+BPMI74}egR#aJdxn^fXw(uby8*u&L)B1zn zxij2C>+EcM1@c|W*Zs2m4sM;IZ9}PIZIx{x;d_Xw<%i=>SPk(`4vT;o1Awuf8i<+FE- zf}h&Q!MA4WTj$*~2xCrjJ7;^as@t^3XA;O5iXJGdv4MJbZyyWzK9*3F)^P_`JbMQv zYR&j z^csA@kW)<8yP&@xVf-^0dpTa%4KgX>ux@;2@UL6lE~8#CMMzqd_NA}yw^Tp>9ui+$?NQ6cn*uqoN@V*rI z7b!TlHP>#5l=R+}Gl_lgwJ{(40~>R^J5N#^Xy$*iB?q`INhFQ0Dz*_iAry${8#-dX z0#Y=*2kEGFJOd$y=8 zU-k(GNAs*2@8PwCpLC5{G@z%gsmbnq*iUMCDAo*WqQ}-S2^-tHs5qCLq64)Wi*WPJ9R-*kKI+90mJ&sb#s&UC9ZFCy|SmC7JzvuU7u}9yg@DRv3jdvZrCAv0|%9pyy05F zlHdaKOWc!Evsc*w**an92ZHOR?^>)BkV>Ds_%T&61o~{X)jAai>#wPJz?=APzt2)dW93tQHkILvT`uhtf>qp`;cWAk7_(BQ8 zTJEs5#CY*c+Mfe#87wq=iktjscqh95&P7L$&&|>*`*~a~HV(KWsnRo!9uVKFxq#pP zORo4fw_egh(0s^QM_!j;TYz2C0cVBVnsESb`(rw|feTO^dy7J7Sw*uPfk(HMll-T+ zz()QT8M;6zUG`nQH1t2j33lAlfMLPeObaY*6iGO<@nU^xv*Om{A}1TPu}bwVs{(nl zBAJdV;f`f+cWK-& zzbjh28mO76vP#*pRaPnc6Nk^b%HE0&$1lR71v1oRHw4@w*MS>B4}@1G|6nk*=gs^; z-KZxcI+*9DY;0AMk;4)$+UHetZ4<#AlDPZWb#ze=+x2ERyK!B%AAU z!@0TYHP9@Rmi0Op1fPDw6~{ZpnX@zwgzG*D7j4F1GEP+@nXeN-6pWxkNV|{*HlBv%d$OtW@#jg?uaf!dXfQWG&BE7Ks6|dh04}tru6C7#wu9@IMb; z2^M9%Gu)TUrNPy5)MQW5+{msd7A%T@vp}DdI^AZI-`2NCsT>HE%7&r?qQ_~CCBHPkp^@#Mf($7$rK8M-W@`8i5M7G=9b^?UB9RoUKR zf^s_+_^ypdO?w9G*EnJ0*mDjs6+dUUb0**A1SjqUr_u?|cbwo{WN(!nc&F1J9gTOb z+F&{>eb*`k&DdJ>0xY6v8M4dGGI}Nux?0M~Tltx{x&s7++40It@+^;{WQ{WwudFr) zcnN1}j5`Eehv@zz->#L8U10nMM+$2^$<1q<8M>ASBfY{HF6{h1CasT}jq*As;mK8W zBr^2wVC(cTN#yE2Zm0L4PrjY=u*Wv=i*kzm=R<@=NH2Yoo=+9)snL(;c>1mbGNS$H zM^;5Falc86*~3LoHP3SyketIFFU3k5TU6Q01EM8wWT2Qu5szHq*7X+y(D}E<%uZVF zd@WyJtQ-DqfGzQT1HvUvPdG58SlRp&-}3iyi7`sfhZCeLf<+G=4tv6_J3jNIGd!*c zE|s__kHrZtg{^Cvhe0c&-`Qb$DP?|| z5FREV-PSB|j~!Q8Egjo{jl5$(*nw@7ma8nI6+L;5$ZV3xV6xt8N~SXS>~*aP3QJ?@ zZmNMFI2p;mEn3nzVfVz4Lm=0V;aZ#W<+@NXTlct|90AgAf2$0qW89gGOd$4ha&6hYSz))&nVfJ)iJD-v%o+q=-Gon1vQO6q6LLIwbDllQ`0y%466Hs4>(3df$ved}4R07s z<^;Y-h32~ZRZ9SvXGIg`_fnZuh;;0bb$}Fbt5dm?vBYNkD}tfSm9S^2Y4&6Nosb5q zr55)xG3zm_6+W$<*3S*4p6FDskayZXs)(DD2>vQL*3; z;_vl>!}w*-Y3^x~ZsMo>;T`7yYo9f@f0Ut3uH*>G|54IkBo#b3roAmxpINGo z4lo$nR5EJ>+meM?D0*N^Ph@*?dob)OU4|&);a3=MTUmX79dD6ZLG70WbBkj;bh2mK zn$HfOI=ER5uS{`LP-_QRa0>3;M(uTAp)Jok#%of2jZq5usRhI$1p~n~AjX*qPY{+` z$BSKI@vW-MtkZt*NY8_)LD3(7(2NReWcm3DePRVjrz(&#>teZPgBo@MG`QSi7yG1Q z%05n(FF*PLT_bzA$fOwhUVHOB{ONdp%j0gLg2^AFIowFm$R_p0{y*-Dur+m0sSe}l zlYC(TqcynltS;t+hL5;3Dif{S&b%-44etqy{*pIxuAyFXa~(ORHd8;_Wq;cx`nK>;O1#Qy5d z(x||s&1W`l(m{W%kAsP2p~YSOkvCq(%?`fA;Ugu!*=<&XzCqMN?3*a(WfAkc7y$UU zI#VqUJ13p|k~w~TEf)3x7EtuDfYJwCW`FUeQ5AWZAvkpYr3zEke1H-=&5-CleZr}H zh*IbeeelwP%1a`OS*-W6x{ax>>+LSx5{v$~+D&2~a87mFK4F1;KU#TdVYV%y9LUvJ zr^^J(DOv@Rkl_j`O+tr`W8MTWk1BrjC3wX`DPqn)NZJ^FGK{+MuP6J80>RLfUc$Y(z(AbA)Q=O{4SnEC=p5&%&Bn{Rf_C;teuiH|g54kfN&Vi%ZyVd( zdX^N8)6)wWn0=iS^yNh;SFGOIAU1WjXY|W{TrRudIMsBE{k7TZQ4wHXrLFD{`cgS> zw~y=9#L@Zv2Q4zB$Jp|yg8Y88fgkkCK4w?zVr5;<)ZP%i8~s4J(}~c1n4O7zEg{5U zoz+2FVCX4RGr#VPD1&3Ds(F@d&UTxC&fy3Ap|d-sw%U4q{qw=A^@8H%Izr)V!js(5 zsRa5V=%rA*a1>5UaXvLIesqZ4U<-|lahAjvwLJu3fX20l%BV;+ovoK{E_Zs#ANghe zZhZlAR8D%%IGKdGoo?0q4ZXbFt$v`Tnw*v*wHt!%r;Aioy<_K>n3~SIq+DC*5NoOY zLF+DwmV^v))L?BCFn{>-mlXDvlu5hwwLnfJyPcOEEG8z-MotE~t7xTQw}(0iinE#s zG?;2oHt%OPhGfvE%s?7@iMD*C+SMCgcZs;2`t>ad^+@o6x*{sBB8AeVFQ-}~XYwLw zGTri8S+vAykuzm{z(M&kJs_@B?KH~jGSj(`j*a?*M6>?DUzN#t0_Ut}B}fYmi%&Bt z$Ib*<;|3@Cc^5mmj_0t3K>3h%>)URw=Ufz(8Vcrn)$}1t#tN!QMRqb!44Y zbAYtQD+W_dAm@WGy+FlLkEofOK6;{mb&;m8%01tEE~1jzj0YD38dm|Ry6h5DIJsSX zn7ZJ%%0zE#$JusecV6uJ#6pE+F4ndVd}g${cplT6x|m{34zxk$x*oC zCx6df?5S(NAHDJSkz#E!`uBzx{e3~3kaIG(=qxo77ZoKDD}Mh=e;;u-sTZSo^vr+B zKvJ@GlCYTmz~}!eK^8_5=LN&=RWx zz+-uq2!q3Io3tei?j{m>BfA`W)kRS=i~NzF(9P+-db3pLVi>x3Z8a4U&QhzUfEBdT ztRTPa0uC?xGF3tFAQ$PnowSao6zrd1ph>pL=E^_+7CpYDvHYRGe@nDj?bLA8^X+Vw zFwQYwDO5s}^n9jyroV;F!G8|{!S9@!#i25~+wS)+L_;$pmzYeg^_YFW zO~5zGMPN%@prdxu1y1dR_K2~bN8kNh>Wl4sQbQ^;?!?wZbfuDs0X%np6DbBU07pCU z<=?n6pB{d&g3@RhPU@73UU&OFuYu^CZxg5;HJ-=Z@)eS?` zqkiNZ~;03mS?sXD=@db9ik<>8s--mzTf! z?~gy*f|;r>oAOB6cdaZc9vkMOK_9Yr9_UkYUVn2K1f?u$_6t5ajf5y@do!p{G;}Oy zvEG;V&6-FQZO}o}xx<1CWlJLpEx8(CR{%`gCR3_1S_S|Y_tADE@9Ln-`b60Wnbo*0 zs?OB|q*`1o&%Ccxb2tXCe+$0XYy)u9xP&K?zJo|z_67Q3yj0eCZ2W6X9|!74wM74A zWuzoix_}kHnJf2X(8PTK<0lzVak?^Pd$49b7^yf9cN!Jv4jCE?5{LB5yhKT+9qtYs*@lST~=l}Hj9M!vd|hO2rl_yt+3;WtF6U``1T zZL|WQ9q>;Xp95)Cmaxwzdj)qUMgHO+Q9Q8$X&nM=>qF`ol4Rk#dsw^O!nnYTrQ)Dz zP@EDZq9f1DkCcRT4}*5kr-RD_akt)~G4GeHn9rla8-|y5nB85IU>zGRaKKM;YcR^X z`NT|eFd}J*zGXhoxeY4ah6Jgsr~TU2ig)DMj4R0&C_oQJpZ+O7{VY&jN#ml+i-&F# z;~%+GYOUBQz?UD5mKrawSIX0Q4aa=4Z`6)2e`KD&lR2`(3eEiJa=i$Pt?Ze;(GrIM zh`&?pHnPh7=#iglDqL%b=vuwt_kY5^)nz47*~JaWTqTJ~^QQ9aBPaBg`N{gPpZrt^ zW-Rk@HII=0;^LSN7DH4wI;FhErY+Vn$RGL{-J5hhlsIOg>S+0@1gl>G3*SbhRD*pI zu2*&{3VioClQ5TvSoOvZJ5$vXlBY`%myP=LabNcQB%*^9+wr^nBgQ`leW#Bxo(F35 zL|#pMvMY>32YJL!d3_`{%dG}^NHD5bRgxXA=qxH?&Q46kdL_J&R96)F#R6a7Z?V*> z4d&yXcAqyALN*KOu%2#ZS8CwDCnya`%#&(BMOKi+3=$yV<(5n-YRziz33UILmqgCu zzWLpsll#W>^@mG}_;0>)9({e&&7sC#K;7BcvX;%aPf%~aTK-UZ$YZuO(>%`03|Wr@ z1d21$JRY1kJ2IxfGa%(?5t&h-ue$<$4OKk~syYQqjxp5G)zZ0q{=uA!Vy!G~>>>zG zE9*UW*ajyPN``)WeQWIVtWrJM*c$l=i+=vKym|*JThkMkqLiU>z_naOuVRL)79vu5 zXHt15qC(aNpLqgO8Jiyb)})4Z4c1AaiwM(*;|2I~QmE}YoGRv^xZUx7CtBUMERu{m z-az|a6Uou6LN@ne8e}-xV@5d8d9Ce{iW!2#7(1b>5VAtN4o9#RKSiwv1Th?TC=Lye-ig&$pXQh^Dlz~<>gD65Qsm8$yj z@O@f^kDdf7KlaOX%O;#BsnT^CEds=yMD+Rtn{W-7zlU6q=oTAG#RG!D`Tgs3-yR#= zNE?O)s^4p)aL@9d;O}5C-}){;wW!_#KqpVQZ=F4ay?nt^fYIXvd?)Zmb_jTcs$b0d}yFSq806d1qsU4K-=zs zj(T|4|Bk99vygEg?J-rmqo8W|r}EwfAb;(-Ri4ciW-DslJwK{>3EBSw$VNz}&EGdmSEqIhfuR?n(%xjHN?9UWUs4NKZ{W&9su_Bk zdSWdtY{Xf9hHE}=leUbAzZk=Z_W|OCVui0Cij+7IA5t#jLvRF4iz#}6)=3;@tR<&H zIma-gdJ*2U8Ml-MjtygU$IGi4nFK({-&CZ|SimlpDxHenT*_zt66J7suyytDv>MpZ zCx>cCpQ;q+-Jlm>;7m$Ud?b!MBifj!eSAnET-5 zf`Ra=P4?Dw=_@>?rxUQbHc+(x@mo{0I|5xxV!7i^(N4x^$SMMXP?igp|o?IcDe zrj=M!Vz%kp$4%GHH(lGtpJqH70V7o2A?esI>e$?_i|lPj1(iUp~$8!$(d8`;RQvl{>F>T+Lkg~z;leuxCwEsA2<<2;emC5?7M6P(Wxqi z?5k8v%wdHkb-{<%k$pALoF8dKC?vbRkv95J|3Ji22ykp~K7gaH;+Kp|#6B-YNPhax zki=D;yx5Q|(r%IE%MZu|d^_XX{j9clw@kRBMN#REru3L?M4eOQ8{F&IufH-!)Uh0k zJ#HzDKVB(bi%QJleMQK{QINB0R3-jKf5Kb%+SgU~**jP#?@uy8? zF)6i$^LUt`|MoyL#ea3S3HbX{e|8fv(;96)Tx9=EKU+UFPfQHBDbtckq*5)D6WLVD z#Kf3P%h<$-^o-+?@>%<7b>*NJDt|#FcdLIY)jTyZAl3d--&AWIYY((SWC+DLf!3PGiKL@Y>Y+au8hmZ zXK_|t;G3kXvHL>y5u5}66K>tu;8ZS3AtyjL3cI35zR}2HAUEVbY{yW{>o9&xELQ zAeJA%2exaPUqWChaeZqAJ)IhKT0z0JB0&O$RI`eJ?c|AYIZRz=C8Rl2XJq&B0K^nm z71N=jd?Cq@H96zp@|;n;HpzIVH`NxV(im0vtxSSFT)G;$R5Z!N zM4S~W9>VbA_6*0xy;Yg0SKfj2iHGYg2Bi+CE_$C`Ux-K{sy^`A-L(2M1jhISNAXX; zf8C>enJ{_k@2@hhLG)I3iE}IXUmL$3!}*ZhU1IT$V`7dPx?c=aIQioj!z@~ykLgMD_Jr!%~fS@6Xrt|&A9NqGuh6B(s^ zo}tL#tg%=hQUGs2kiQiKU(n`5qpNOXLEB;TA!nzvP#_;qwlZp#xtBl2exE;@zNVYj zq|dD8gjegvV5r(o60b7>!Ji-AP; z#ZJ6EFb!V)2~2|>G!6DZoj<(jgqa4TXc~;6X)una!6YVB%~27D9$lBmo$E5+Y=kzm z5xUJrs4|yjK%bHl=RX8C0a;FOH>V{ykB;vxoJR-#`P}p9#+&NL*56bQr^Q(rS)NFT z(=B^4Ek`mqk)AJqXv0OyYU6Ck3^|P6ZRsJ0kT_2%aq7`|vD3+&ND%e^*cmA)oJGB4baG7=3V8UnJ0m=;Mmh8V zPc@S9jQrc8ui!JOJDFca9BJ&m$O>JNVy8>5a=QHzYbTF8y;}s9r{x{l@oLu|Ynu_! zjHN;guEUQ7aQ(n_zhfn?P zSAbfN|nM_T|~cFIDv8f+mFkKogJ~EX&hly$w3V zI^IsgcDF>%QtFUDIDGhQMb_6}+gkTGSTI|_MM-5fq7}2{WCGSRu$1@qN51y3tsd6K zr6ZnuSf7NSc(h&yh&Oc6_6Va{u7=`a9iQzFM@ouTj;wF!#f%HA=H7jHJ2Csu=LPF! zYkDZ^fp_bQK-d%-!Tg_x6}XHxxuIcxhcSO5amj7w3bLpDVjc~!Hfp|N$ydg;08ZFi zUVQ{6SUsp5C`ouAfK=JRKgK* z@~|clLg6sSvFlo6G@^rxj<#R1f{mr1npl-C1*l@rb*&Y~jp7ge*&~sX>&$o!d{r>Q zuow9w5rQV*;=b%ckT`U;{^%;>mwoLKC1F1Hh$Vv_wgl2Ry)kese-e$skU{k$maVx} zzwij`N>A8cDeWj4c*Yu*G)~wKt(3SN0>K$WFY(4w@^28TOueD_LKYOtqF56PL} z4*e%;C_j32@N=}ybh?zd?SZ3P=4QOZOtU7ZcSeL|1}!o)kX94u~x0?$gM@w zRM-&la>>97@ks^qTvI$_Se;>5$* zHhB40rC{?0Lpq^d>a@Zx(+X$!GxwT<IJv!=<)#8;bs&*jgWg4f&>tl|{>6tkx(*i`iJd5MCa z6rcMDo|hiTW@q%J&#VkB!cxQ!N+%{#G`G5&b+ixcv|on)vYE42Q6AXGoBj><+qUz?rl)f3^ zv}~qjYGQn*r71BEai%edI5FY|qj1no4+h&~#)(MztXuKGt+$-Y;M?i;m->!wt@#}V z>P+W#t+n6BucO0ITlZ|lr5K!wJ*DiQSNTnzj#2{K8cUZnmaYy9=V?tM{`D3t=g(3& zP~w-WHShnQTn9#WcG;V~PMR^kO|PFhlL;ofs`1`+U;1Qf$lB{#D>DI_M3wI@fd+}W}rHj*NmcP+mApvkkDmEV(U&YsneXi`^k zA0jBpf8G!&Id4BA*M`V-A3D3~5bHvmCp8IMbR0vE^9W}ycBsZVymIl2~@t4_*Kp{c4d1=nq8(Zft%m-6TZOYnolaN$IEr%R*>joy2VCIKe zCAfl0cxP8xd}|-=R*dT_!Jz9bcG|!YY^P(phKUsqR1u%~0U~|rBUu2jlZ>ON55uXy zlke5)p)4P=M+h1q6FOjA2hU#Po{QaQYp0o&zaUri|D$eGHHhM zVm(GM)De!^v^nqiuVILvuxH-jx))KZrUiGBFI>q-wTH}vk2lJQRNX)xae2hOE`mHA zEcgmAq9n~r^m8jygXh^0+@UrM9S1h{KAa{fE|3Mfs<8!$`910O=c6DQw+tUn^xWR- zjBl^8<&{RHmd-SmzUr7&Z!kLZW6Tf|d}eTGB4~5Z@htZME8#+SC?*Bq0brro=j2Ic zdtAjVt} ze`!)ArX&Bp8@73^`A2Z+Mz>a)Pn1(hq?bw52Fjj}k?igf*M%OHH#t#ZL?AhG{9EYN ze=S}5O1gAA!ol?j90Kwv4z297bi(4vR|vHve`)_U!N}7SPLF7uu(398rTQy5`~xL< zYhW0kyqyD>oEYY6&DyQA)^Y`4{Y8xv7T1VCWjBP!HLhi764rg4qncF*PD1(WS-!Nw zG~Y{{z;BmW(UUcgg}A^HeLwE{Tv(5INHvKZ=#NWW+mTA#Ab4qFEB&9+HMCa;y|@~B zY_A-UgK&d3uEskow(7rqb?9R}7Y6Fkw>nRfqp_i14`tGT2nyZ5%;?q_*DIJW!I?Yj z6`}CUHjxo4yE6Xwqd{?Pbz-uB) zBoYxHVTJy!nk9Oo}hV&#_kNb{VJ^n~+~<~ko~PNL0uP2J9G+F@SPA^voj zsD+kbSYQcy*t&~HkeS?c_zz!3eN`Axn0T@E0~sfR^MkD9lU_?Zh~2c8D-OY%0J z4`i6y)^!wO0vYXx0>2@Una2PvkoWNp^J4xVxcdL#(!450g?r$-yn(xJco%nRT{pOv zjv^QsD|z$WHeBS~8>D8u9Qb8lD)!61lp3;pbZgx?ei?_7ZjJmb91CgYITjmLt|wUA zc!s&~1M<*%Kk&-JL&qbJy771#%w{-jkDlLQ3*>d#nu5Ik?)G#2wZPvBgmrusQ5-Y& zkAunpOefv41;`xXs!wFBH!YNdz&vxU=fC0==Qi1IUQ*m-|I7Nz$_qdD&-|;BJ-7$n zy2OPKhLs8>l5YL%sZ{&HzSp%Tgk(9hB!h&U!|NEpCD;j=!o;JP(%Kd}3oB6DryrN|!PW$7mA_S^pSMpWv&p;M`f;Sh@%vfK?XklyAH)?|RekGA>(df(#Let5Hom zk0{ya7pnd|wwBm@p{FBXNteQBtNBK{G;lqmKlzFZ`36uq2Dg4GP?3cvh^^3b6h{8~ z9~$qN%{Uk+ zoJ&qa;VdLsCr&P$i^1+Mf9M&)y^g2Mn@A7o3G~k|oc>8XI=VGd%E#@3dchMvfT2+q zTO;MY#0@KZ{->vg`oCSYlJhQFifXoIcJSN}JXG}Dc)EuX!6D2b)0#_+OSjxQEZs6; zL_>M?)!o5=*R}=!eSCiK->r`ml8|oM1;9Y3)sL(w(trMW&g%g!AKbinIk9P+V!5#FSJEm~a3?Ci*zgX{@&KqE~+oI_+ej(>{i-+pYf?9PLes zG3O|?sfp~lTCJzo`Cjor%6#|QXa4Z9&0lNRUSHOmg zFvB7|10Oec@_+gO_dZA!pqZEIJ8}xD58EX$qQ^9X{$MvX-PVHAI~FRvvz|45hM-!c z9@rAT<^gUPbt=zarH9@TynC6e1_-y0bl%o;7SBz?A6mSAXFYqjJ^O6;>_rcrDcux2 z_^jrl2ggG`{6R*obMPA`CdLzo?I78aL~6#OVNTVpTq%9$FDdA|Rb$^cKA)Pte?(se z=cn|QmP@s)Eq|!|9kT8~UYH)TE-(*|fm9-RWfI$4j6alWp0p>`JY`2zA|)u~1oyt9{n9R^YgwYk4QIg^zAp^$w|KfQS&tn;u(I{>u~NV|j)VAtsW zR%`5X%wY>oT9mb=^L$P3Q$5$!~IfWE&N7OQ3;M8@Xp)l<-4*{dhh68BkJEEzVPU;bFD$0pg(0@VqI0EbLRZx)^n%$w$y_yIPe=0(D<_r* zMHZ+7`QKJ65?ja^gLQmk10@R zL)@!g4AIj)DpFKrAJK4B6+e#4aP|xxWhX4&$RYp+^S2kU|~ss-Jj^Y zdNx&yGqxDF_8IC4>qrB?iDxDABe3&1wp`r=DXo1JZR}N;6`z;rXOX-mEZYT>O`c5n z4Fo};|E;4!>2S@$g*%pQa?OROdYG1xQgn zYT>LiUG@cg)CK|laz}b~$>vAeOyvikn_~1RYbZv>MVLDyiQ9p^Ya!vg(NNq=C>N8| z7BFPB!M*lN>UO%^y{iL0k`LRKIvVV-U9n?DqVOzGf0hPLwNGB5*Lk0by$gV~yRy8< zHhhDEcU0f?YNoMycdPKz1tyw=srfvTCyu*=@|Xx^szz6m*o-wuR2Qc& zVk?SuuHnf+_0nLSYgaSbFrjm@(%?xXF&c0xx`cHK@6{K$*`2;I(vWVpK(>Z1$HD<+ z-1ocl1rcXXECHX^)zqwX;@*~0TjR=p?yNV~&&5WEqVE2VeBw*vjUM8Q_=SmTF56RD ztrbkSM6?88H}qK4Og{Rn`3*mMHGW$C3&}>;JqFPjzFykHANdx$ z!tqbpy(=traOhJJOYK$QPFwV+h}w@^xIj3o8z?c6to@hW1z9$~7fc;sdPe zRTt)vA&YR^X(dLXS5@dzsMLRw{n|G$xd?mEQ&lE*CDVnWa`Kc+5#5cq(3rQ`tvxrE zGT_a#6Hl-aOf#d5`k+^{jfciMP}&psbzT+7U;;9eV|rsz!fZJY2(8P6 z#go|l%dQu*mE!ju6MaST!1C;HV{PPkntNl#vI`)FH}o$sl?Jc(=DOa1*`r!j90Asv z(0_#u9JzFx4C1?$L~s7^bw6cl^BFQORu%OlYf21LGcvUDCw#o#63$30s$(go$@)^h zUX-*XuGe!7)Okd{NSWH8F~%c{oRQX{&T4-2lYcM8-7K@JNO^Oz1QoW%Xs8j}->X#9 zFB|mt%C06B)tfo^B48`XsA8PMU-=2&7Z>0b>-DoiFZ!z_-TO<7Eu?_}Wk0&$CsMaB zIgSw1ei6BRSWuXR5Vt=(+%-JFCzjj?~g(kc~H36QZ z=<`R8{X_&{_#y;7>%bi;$v_Rw?_cu?{W7rpC)j2ilZ_Kr)l%l(;~?*^{MaDxdw$H_ z)y)j?JY;l@9Hngek0T|{_zYIg+EKxd^ht}gks|l_k2PNhnE!ouaCvlIgFlKs{?;3j zc=QV7sZmI=t8v2ivHbWP zu=a!Az{`GYWLSS8-9GU3c^V~7DHSRtW-+R8U>=2iYrfDStTQa!Sl(;(SPQgL5?<-t zGjtGg7@c(K_QnaXWNabx1@^n_!SsYz)S~9SW`o6JbFHL@jm1}i!<79A8myJ)L|6jE zb};jBCOzTwR9?|c4lg4VTZYt|xuuO0PS&_{U3 zM;z7)wnD8($k!yy`4YBVi%C4g?xUA+krLucB1R|jpk{TVd^Q$mjMwwMz!hsy?PzrA z43H%fz zmGa3Vo_%wgo#zbfAtIE(MR$^^-Ojz;n1EIMQrPF2tni$kV+d%OwqWVn`e%#GP%A z_Smys%`y6Af5o4|7bj@jk}hCvucZlh7B$+;e~-8ZPWNJE3-jv&^_pjY(4BhwbwK6R z0>vMCjizoZ0CH$z<}5;&62R@AcG&>T&sH#qlkh-o^1c2o-;X%+bPz~4SWkxF=}7Wyf{ReM|J!PiqQ(QW?#^z}^23Y0KoP^mM3gK(5<;Pf`l$dX<ORM@C-J%+syYHbK)|7vjNC)b63zen|}}@-|ni{ z^CA;r!{lef2&f7tk4r z2D|OYC^3PpEG^etLwG*yCh zU{gG9B+vr83F(GSAaZEMMS@KLxjv_!?yese_QP#|^+)k_V^W5kOSc?$w=jSS@6vJ{ zJLhqO+C6FzyV)4<`S|)PD75{@e>WHe;U+(b7|~MewWm_;dyCK}?Po#gTKRKGPcOc! z2Jl3+pux0P_ke1zz1Vk{G3$aMhDiJ~OoY~3stBUG!>UWz>z;m+7n!E&AB0?M@8dxg zn23T0Jd-Ykz#R^8La1)a?FI`#A?)SYD%VP480uHOv&hdB7~3UM`qhw^LWyTQaeum$ zCCA)tN9=Tve62HAC4Nyz`(_#YdJvBbfl&JCh$e#|W+2C`?29u|G!2|6$MPP`2xbBS zvU4YcbD-%AW`b62c3m(b;Uww#&z+sz?r>H_kojkul>_77cvk8jI9pa+9oPX)mzx=z zt3M_y&-9*yW0`5IclXnr|C#j{W}KW<7iPj7NoHh;=y z#bMriY*xbgsCyus56ps_q8*x;H?wg#jlCviohGtKLhyX&m6EdrM4_}@n4I1Z&pGKO z6!z%Z*EpkT)Osz#gks`2HE%pC?ROT60D4k0_Vy{i_d6$r;h6#q&m^`m`D+rvoe0il z!|)usuC?|Tp(+Z_RAMq>-wc%!W|H%V8OHpPpOcf3ID@sq`~iKB1Z>jFiN0w{9K8-OAK z6<X4|)81MfKmq-n9L8_)l)X^)lOvthIg_XRXmXYrHm6a<y3FQ?E{ zI(x0g*=w=sDQnCUo0e+96no?q3B>8wNmU(?94NQe@C&FiO_AlV0U6+=@wG6hn-pz< z7eW153}R8!PViXlQd@bl(5!|Lh`!IT(i$xA$E{9&YySBn$ap9nYQnNjsV9Y~X%GS- zCPt&>Vus6Y5wZR7zy6qd_nAwljq=pj_9gp!9Ji_lhD9&_m^|+_-=f=x!NlwC zfoW%r%S_BkA7?yG@weBjGt9uR@mul8bVu_r`&$aQ$F}B`+w}*2dkn`Bh*2jXcjRyx zLk<@hat%h{fQYQS7k}TDSNb_#`4}a?BLk+Acx+1`_+R+M**4#RKcmgpaOJXK3;iXV zne;Em78*VD)R{j}|05zY&nk+>k%(-sqomBVoTOXL8u_*z>Gl_+jV*^VrN>e&M*>4I z{gJ23TmLdv5_TQ~d1kZ7Gc!Zzgl9=jrqZVJ!Pe)gHQ|`Vgj5QCaaB=+U7gfmS2;D< z)lv<1)m4LCy%kF2A?g1F7CG;4ld2T-KGl!?lY-rJM?~Eky_-G9l+^%|Mz|q?$fFGt zBDp?E;9piS1xe)wC6EP|An5d?6~Q(Pe0<5;YKAuC>O9RTmt7j<|sC%lq}g3_{7bKS|fGfe+r4_TBKj|wvE)p>3UZ39GQe{qQzRifQmOCv*oDC(vZ;3Ng4_n9D`#=4x@C9leWhIQPIbPL)K)%33+E!0qMtq9Q7*xwmW5v8L!cmV+)5`4NJm2y zdX*@X_7@2)1m;u@uNi5cdokOA=do5A905fi0eqi~`aWqNco=NaD3%Iuy24Vp>dKYj zI-wP2>_aN%UaGEOpfa_ATn{<-KMHh9U7}u46#otubbqDWp`Rii^)DHR2+rx*>Jrlylh=QC<%EH&w)|3d_Ok%8SCcIc?qi{7$3kU}`jt4t* z-=VybiYF6I20Ob1rynp^xu>nu~hNK37~s3zVr^WIjFw zTQ*G9))zJfbAtkwRX|W3=wRUA*9%lZXe$Dq8#D!bT)dJAK4WtnI=r6qHgITtq{KDq zpa8oua0*%lE zo=^vN5vbv*&}mQ2hQnQ?y+}}05thDhl#q6=;do5E4>XywklAv-|1J8AKk{SxB|Dak zui1%gNbVck2Y_6;oPas|@!v`yEvzX{c86hnE*Yh~?J1nbE)9D8Z#7>m1vrE0HEXPc z>00p+D0VC9UdpEcJd?ms#!tk!H;!58CR2ggMWMVcF&~6;Z8_Pb=F)Y+%`6UQpMha$ zK}>MHu|z}ExV7py^UoNn5O{c@_OjG!@yzxTWlI6!noh7lyasE%Pr|DM?U?K4oP~mD zpkdNu8lH%A$0?axnVzw<%4)!mD($bCBclQ(EFRAbuowSJ>lXp0pzLuD^r6NfM=`9{ zlJt=MYWsq#)NM+a9!*_2@IP*hl!(;pdq@A*C=Sd;Xce+1-EwPnx@E$!bjv@EKq%mj z`rGg5?B&mF`qzR#^M$HYXU^`g02+fE>Bx{Rt7R^;OpPtaU90lOmY3*Cg^tYbz>(RJ zDcwWHufv&-JX_v+CN4*&n~uy8B)?`e_;V6ym`5!=^^`d@#f<%MY(|N+E9|N@%k_Mj z;~LJ+<-^mVIpiFg9nPUK??*YNy8iMX#i9#DeSA)z+T)9Y{&w=&;Cz5#@A`r1QuFGUJow+ zjO9eJfesTJ+$P0NwnMTdpUlgl$~`SqF3EVCa00#Hj0Zsy;!}A(AEBjNE$*%-tl4$& zy-2-So%~l3oJtfC_o#8XZ25NDkl1tHXDVnT;|&A1g?Ob!MNWp{sut0osME3Q9-ynp zcj5aX&DE-FTPuH=CpN0J@`~UZ^*9>jztFBepj$jc<3(1(9zF+G?{k$LXN9t0-e(3R z1?pICqgi4IafW&PLrJMTUvxXhEd`#aY+?9xO)>fr4C1VIi9GZg@Fxl`0EN27%6-6d z^#ZQ`NviEVcA*BEA3N+X^uNU+?%x=3bEUGNOu|OIqG%2qcqKVxwS`eMQZ%p3E2xC_ zvo0hxS5$4^|Y>aJAjI@QEb6bJy<=I0~^m#O@)=ANOhW9F`@0~aYiVuSHD=g+k_C{({C%rdf~ z4lQ!Lnhi-ZVF0XQfiT>lVopA+|B^pqns|lwKvUTE%+;_h6Ls+lf>&Lwj{(_d+2F%E zk(r5^t`bOg{49qN@M7z^_qd&WB5nL8bM7ZQ=cS5vb|SA<1o63?UKw9|DJt|?ziN`L z@L4@qB=Y%m3)grZdI6Dd7D4Z&NqMd4tP~rpv-X-`7Cua`3_j%jN!wzpUA$xoX{Q^k z3)^X$lH33v4Q7?%jjPcJS}S@#KF|Pe2pa8TpYwTc2F_t6mPc%Y<<)3G&&CdP&1UX!8U>MUwfWBcHn-<4$eCksnAx0m1idEN?9XlC!TMpkI&MIWkCmUE>pk8lJo zAEU@E5ZsDpo1Y~6;97GfoCC?|DH@#M*|t0CHv%MI5*IMc^*C9$vxivnk)-d;Ow3rp zFrOg<<9KQJDPf^SAmlj%NLAQqrz&J(4f-B0A2BhuU>$RLG>p zCnwdb!i9LJnTc6KtyLuC<%(8#g>_?Z=Z<)Q8)ywjn+VJ5a03V7vg&AZm(NVhb>QlH zMV4nJo-p9^zA*k}ARrsyL|S+=6LZ`*^+m(bVNJL)vApQUa>kDAt93YQyn^K#!7YTG zmG?e&^!C*od~zbgUhSJHleo^svIcdD5xhh#7S~p~vBXI#o$m&iU@uX`k}PxpGcnfK zP5`RX+ad@jFpTtF3qk~51A~wlTa62yHzn%ajca)0I@kLq7%aCm&uree!p0LgZ9Gam z87_WfMS}&Xz6hTku$K4<&v#>%{@>)Tuuw1GjJ#!704 znnHL89?Q!L%CUBGq5_w(i^IpAsoji(Oib%DHc_2av)|yft9QyJNlwjjUq)r#dI$MA z;wgOtJTrM3n?c>==BYaPf0n*vYh){UDN|E$b2jewaMQJrAM^^|YZk1Va zxmDU+&_>x;MQD!=it|u0QYJD&uqzF<>=9KD<=}iGs>ce6ta_^^LpsB(fxWBon0wUN zA+MXU8mvJo43LVY76p7!_L3rjokjqw2F=fr2`=IcEpHAV#YH){S{y`iPR&p^Z&pJ^ z+@L62PJlx4_?7LwLLT^5g$6tZ+OuL>ZIaWumNiXwqa2*q6R4Hul~M)~`uY{ZR6oL> zSw$k$D5ruh*cdoQHFFGl4%)mNga7P$JMIdR?cqveb*27et}yK8NAZg}rfUnK$!&q{ zW#A^eI%M15=SbxzWF zD?4sVjN^0>E1FDY@UKshwI1v0nl|vO}7=GE%NQv|MOZ8%wp^Drq?upiNVS)#M zr4TQb_yx-}nU8A;jJ>w)SGvL<6}-%^u@0&(_UTCpb5Ddy}w{?Z&LmZI+#m+{lW|0ER!4ryn8;uX9QP zC6Br(i6`$>=sqiX7#u>VpR*>yh_rkd@4e4hMT3FQaqBmyL;+=t$0CVJsJ{?WhkELT zi!Z*wd&9U$&sdCASYT9ja{G&xLAy7e_?C%zZf}^L%AT_VwcL5+yo@Yz3gu`x{UgHZ z-^4<-xo+@ttzs?m^URPPoc^z>=F>mYTgXw&+v}MaV05G13&{wDg!aa+;_V0K++T2# zp-jG3VtgUbrAqhk?o081;W0@<5C$5f^h{N#2LBkzeaLL6=s$KM?+Qn0Gj7&s>yiu9rd@>=LAgY6_5Jm!-aU%zOv$Y zRHiwTsLG&?da8MB!uvQm<^^S*OSm{$3uh8}-PqCvpmUb*b}%m0vOd-RTr^cmQc~2} zHGX7!d23IVgku~TZ@NJ03Y2u?ke5=;3kaM}H7`sYB8TY{i9JP;sZ6s0tb_M^EOOOm zsrdOWV)eL-Sj~13t7$G`HOWP+th?7dLw^rm-~wL8O4_U*$AHgQ5kao!nhizV7yo^M zDWlO5EBE$3+ppdt{I_^yzJ}{vZvliI4Qi>!SJ?RL)q=~(-MwKz7{<$q z;r^D&LM(4l_~t0p<*W$#?7dG{*qgJ=dq!?+g#a!P(6Ho~QPN}l;4FS{wOiFK_7FRD zafpKg2!ek#(ZcScT%*vsLo^2v$!AGfB&){11y3j&t;fxpJ$O#UWqd&{OR%it^EUHJ z>GDmJZ((Nxq z!U9=QF{$Tyn?>wQAiV{SokxYjy{PAx*xIcmjD$z9E#f>CeuPoqtHi-E(?v7%#9iS- z0U*p5tKgDu)}PTBV(Bv_T`uaC`wu=xX9bJ*sk!cxKIMOgV zs`bF91G+T$qL3--VuiXcIhc#=B6jCqM+8iGl_wy zK=2g?Y%^5+7;Rt1!9+~eW6?WuU-2@h%LR4OB`wo+6|8odx{PQs;69!n)Fo z@XfR+7|3bj)~@3ho(dO(C>USm>O@z}ah16?lco9`i;;cej&gemTj_J1RpKFB*9ZcS zc2o-vPyzx8Ud4^DOf&2lBXSS{RtzW^w!E39>_WR%1z*l8JY{h?#gu}{*P(dgoK=Cp zoZF~OaF_#bSc}XY#VJY+0$&u;nf~avbFU=uEZE#oAI+P;Uewl zqK(y>ER@QdnV8pm>a&{}=G==$9*R0yGz^FV28fWhNHS936Fd!5z;WJbq7^r%#`|#C zjRtfg6k9}&+$YC!uEvD>W19<@S95|>+Aa#0r(Cp7@akAy(tQ|F4Bv=L)GH=<`3d{m zPtt_inNJ#I4q@X4mFs2~JJ?lQ@u9PT)ryR{C$qcOnV|<#zQY$>r6N2{e+54>Qq%Z!kKgDTx?+Bi9xuWqIl%g zh)-4CdPR67xKzu`0(aa@Yc6PK(?(Q+kFay9m}z4Z;iwnlURNtMOq&5Tafi%u*xUd> z5jQzaFstYf_C%XICYZtQ;Y3eWT5+LS!kU|-Zf*{_?PRH`v55gXk>=2Sp&UG_tJ2KE zY8|SVt7DF!g_DU|XWp<<(*K z_6Wp5qJfT9%4^pV&RqE+x0p}3bu-p6ukyYk?o3)#DSH2-`e{9qXflMGv=$a6KBurK za_iP}LZ8qA@haH?;qtuSfw0F^T4I2n`z%erpQ7W>0OBZoX?Fv{AX*83feZ6e^JVTW zF{{nbk*y(nTmx$2{&z89pUjdBBWwxQ@Qm~wQ@pHr=3h`|Jbbc8FxRk-vd=akIFq#H zRnJz>(VV)Wc*9czA|)XhlV}GTlCs4Wq8NiyH3=%ZZhLKkQm_K2bPL7H<=gc{iemX?hRHeonC2f>@;+;UuP4h<9f--_BkLq{1ws6B$w(!AeW zuaxqvkm~O^-s%!#Rn{^0?No%=QIlY-OI2O4QL$N~5uauB_%fRD8;>Wc^>;#rZOB;?L?o5JGJWbLwIAH>(x0B-Wo5=Eo3YaQaZ%S}v< z6XS)%UnD49U^A0dv4l~fn=ENry}4AYt^n?*6_JvH1`JmFlx~M$mp|~Ex`;UJfIAQxnb~I*9C@>h zxz!&!ULRheG@^vYFS|jn9yJ1!iHVqzC6449espL>q(rvj!1wT1Sf0b*rgw+h&ynT2 z%wgV9&j@+SEjJ2>7cX-iy!}DDE|a2J=e%On3tlGXEM{kab6KP$?DP)LhE&nsRHm?- z68&VQ4g3~A<_~J&PnK8h5Q+ic5{_?jVpyTR+mZi>HHAXZ;&NO^O*&k0@(N1jLpYa0 zgG8mXah$p#eb&#N{9%}z!KYwKaJQ0ohRa54P3J&QO^hl;d`Vh36?VxYm&vTH)Bdn! z^hf^WQZ=;(Esk!Ao9!YZ{sS_|vnT;VYN?~wb5fJy8yAJiqv#WXFC$areB5=*6 zk&*(zji)duVMc)<(VdM)-l4Q6d*l!!fh&6advI0^^xY^)mM}HCz8KnXFG93snI{FQEHVnf$O1k@HQ}}W&1f)-j zD>c1`;E)CZFtR8D@S~YHyNAOZ9l?~&VJeAQ@_;_7!yocCa)`PpE?`6=xOy!;+<~Jm z6MYIPa0mV6WtOq_%Z5lkqnAtej}^A0(Vnhk>hvko-#e_n;}}=MAO1X79oBx?ZoM>g z?WN%^vj_c#7qPA8X5@=rFYc5d=&OSsyHulWSEy5vvRQf*l0!o-ArOSHMm z<9)OzdEVDnSX;t)g9WhSvG>=9sJI3|vAL%!iXNgO0kvNb6DZueALK5a*?SiT57{6x zet+oiE{T-%(m_|K6e`!jr0cy9!7w11MV2afJXXgWTx*AxR*Km&XRN--GAQOphg@>LEr_UDG{ynP`BfrH0wE~jYc6&jJzRF4?dM0g z+RJ;X>pZF*8FU-SU|h#X?dqk7&>z=ZXbze`^5HVulPgO~9OSM4kIDrx;(55xg$w;b z-zm49TCWg~KX6vLw&)c6G*9RlHK)<{FQ>WLb=DUBn7%f=p*-B8f1{U%eyF@?i*hdZ z$BMQnXY4t>(jG!8RysfVm~Em%mqdhe^!snWL_^%EpM%zF$xsB?;CQzeUt(K!zOCm8 z#{-=sJi5)U^)B%XxclLDxJ2C8-hA*)0OU zT~!}v&VMwpI%jeFWl9-1HuV(Ar-p#wC_cHh#Mug|E2GEX9awoomZfGW<=%%EGxoL- z%*ESBn>9`4_kL=JK`KuZHQq?20C!XC1NtcUqUI)!F~0u7#=n3QsC9fPNW zo?&njR1JeOplujD78DMHbD(n=+{AWjz!iD#Lwn5N=RZL8{S#8SUygCNd$C6)wO-;; z2xIU|p9W~CKo1RQP}P7}ZPn}B6{TQYUjR=)u)pn-S4m|s#JWqF%ywqvRBGeXodF^M zfn68HffDx;-^}ytEa&MW8G+7kpm#hHQLa;1f(^OJeX$kAB4J?MF+?-elU-&eBy$dn zdeOr?s&sTe!)IqnRIPGbzJ*2aN+V-m#eQ6tQlEy4^) z&sp_lKbTmMw|DG2c`jeZ`+t+m~m7O4md zUpy+|Bg4iJvQ{25;cK3!)Zbt+s{u;`liP905SwF+7qcAW#n{9o3g9>j;25&fj3OD$ zF!Eub%K7tNsx=0x-7i&K+ZqA(@2yGZ(!JXw%&!E(cO4?Nq|3bq6=aM+e9#Qu4kNQ% z(ZGh}v@D);;uc@v5}eN?e^o0k-K6p$J{(#9X)AR(5c;vFB*z^N=tBd#$Mu?j#T6(O zzy$EdFE`sFZlTqyM5DluLSmfzx0vBT$ozDLGWS!;lRQWLmuUu+P(y_k5DXOc>r)6o z@-AfV4sLP}U3lg*rdyJFtqhyqBo27uc&)mH++&Ay-TfBqW33AjB0Vl^%@0nu_g4~^ zZzWruVZDb=EY391)l3t!KUd}bic<;TVF_fiC=wd|ggceUTrfRfpaKCaqZfA!CDa>l zwF2jhT$shULepF zVPa=u15B=yxnBIVD^fF-AjW#o`dl2M#+puRSd>@Hqj8d(Sj?B*Cf6HQ^ZkU`n|+<2 zK1Hu90<)QMojfeKF1JW)3 zSe0(sbw_8BKK}ftiq8M%PyPY^qChF{Fr{2YrMxFpwk;7G%hgUVKX-xj^00zl z9?*w+8PJ|XrkA@-FH`Zi))w^ge5aRDR&D|4c|UavfP$puMY=Gxlz( zl+lX~8IL3ijgyJ)KEh^>xCPK)SKznFif#a(p~GD}BH!q3 z5U6+O!yah<;NZmzlZYL%M#{S>nN%fB1^JaK!E&&}(YVJ@SQB9a5Zm~snxtX$pl|)L z_rmuuTpcQ3;j8+QdmJOaFa)ma9~I^^;&O^xs+W+;i3zW$xHZ=%z3p_o%4xkXv2q_B zKyG3Y4RCH>Vk^Q8%1{kcj;>0sQi5BSNjgw!csD_x5ZjYv>#P9~76_)yoB z`>^(1z|meISAgY6^D2Q=@4tD zJ358nkGko3Ud&dlPE=PF0C7!RMcHx9mZsv*_(JX(d}p~dgq**)i+6Z)?3e5wmqx(4 zW{(nd13R3hcLtc^6MgaGy|%2r=Z<5Gih-#@EdA$sTnGip`W(0W#w= z^?sZ2snlraFUHW=(#QyE2?ugxe+>Y2$JYvW2h#kixb`rgCJ67E>Q|%6(YS(mO zp`lN8X2JVDWC!hz@SvR#9JK#fT{vvR^Y+ehMgGtB^Pjh*hn~Lwke#-p3QU1GLO}}% z7I_hDJei)5&*}h9l^)`G`~3@b-i~qS?X1KIcit{kgPp-@)r9j_MnYZTylr#m?RA zx2y$+K=6CbY8|e?Z$cb{mnyobkyq;=c1K^G6ftf3if+@$5rSZADPDD(3S2HH++m5x zTE%7_cpDv<7)?d*2BQW0El#z%4t`r6i5npQ$!BY_+4?tTo=VsalSX9pHP@lcV; zGnHY;E_cPrR!=_Q>^ZUd$S~p0&PCUGc+Yj!s(Fa(_5dDxpRi$}ov_0RzynTD9-xRk zL>v2R8xf@;L*oXcorbGc+-H^$GrE=c@g8hEx|QcWic~SD57Yc=<$82mpgFtU^xfTK z+|xx87OU@&(GpH$#E~m34T~+p2d-ss(k(vL_F)(!La`jPAiOR1=ZEDRlt#P>?J=|4 zgD1x`%e;W?5iC6|G;#J>Y&*DOxj(tJ#LYsjlkkTr;e3O|=xzKwUEamC55gy?vnOMR z5|J6oz_iA>ZF-=P_Nj)nPptes6s|Sc9mtkrom5o8s!v#i~TM~aMRm<~a@*qf*o4)(@1 z!F;X)ZCnz

gOlz=~12$rCA0OY&m5N+K{{XQobeZwQDO<aSwMr#o@k%ZL2yiMk=V^|Lw@mS^oG3;?EXU{q z-Ey+XSb@Tir{yqW9@Ky2s`#vP6I_H zXz?>wmX%-R?1ctrFN~qRFpl=ZB=ul%wUD!&$?&){8Rk2aq0LN&ZZjF=LhBfY$#AHo zn3ZdnBj*n7g|BCe>K`|p{O|D#H?|yhhCpM>u_Auq2T~JWnj&W5ROud)3xD#WKP$QL zo$%McID%Za<=%~T8S9(!K}Ws%0qVu2nU?j9G8ZCi>8)?(F~Q#xo9(RTk8shT?3bZ^}kt%Xlj0}=80S`@?$07D*LfKj#w{04*l4#K^hY%&(v%!F+gN^8y>Pru8Ol`Bbdm5 zW7l9SVhrM)Zb<>dYlT&chWE*@JX^Nh6Nrk+O&SaG_-KubR-z4GsAoi`UZY5FmxjKb zCWKnIm&i+3WOLOaN!Sk(YUzjl1LUNf$al;!1FRpb25*Sxct_Ggb0T*yhP=)PG5dDm zBD-up#I@TGpxY0G;g+Bgb%IrmfPD6>SxX5JT5eR<79b@A-oKVTih_}>qIHcoHp!zB zvh4%LL%aT1k)qvG)Y*1uO}i-Ljb-BQ7*5$2avI)Cjg<97jw~BzTuLcqmm9^Xzg(%X zz44zoCjJyc%Al|9djp$nf(`PHhs@o;2MAv9-SU<+FbaHD2}oy4z2eJ`6^Sik+_nCo zMrd9-ilEK$eDCUH<{kETGwB%Za@uB>aqB zfipb@V%cm`u^A3FW`6-8yUmohZiT0^UZW9`{v;j9LCSicA&eo%OiP|Y|8S0>R%#S; zthAes6cvo+p-o6aAjd^3%&x1Bpwp&2!k-f#I#TreNNE+cMN-;tjU}Z;45t+Us-C60T|c(Nsgp8f=m4vlbS@e6siPWt!_?e-bU#h<&w>D*J28}GM#eFv!Igl z<7IEgH~ZtmFw;V0-*@o0H{m|~#J1+m`0K+(%Dd+>;On-+HxLrZ{YpIRNs$ZaD=;<} z-i&otEK%}WghaL6m>kfhxuC3723oBaa}Yyg|7Tdu1-xXmKc9-$-w;yKVn1{khCawe zUx7YGD(gAb$^>SLXsiT=>Gx650?9pSaKJx6MJu+hEGENb%K5obrwR(;hG6`@U&dAW zXnm0x_+z>n@|EwRE#JwGWuR@W782U`UMMPPtUjM!w01tZX#et+{}*u4=Iq~B8uRSm zC&%DZZci^dR+;Ybhv);(dWFa?7w)UH+dYnx7@8fym&=k z*EKBasr+y2zF_ErS$xau7cQhbfvd@{&T;Fe_6uAP0GJa(q)JSKZ0LJ1OO)F$?4*`7cN|A{9Kl>9MCTpje>#s ztEKezx^fK6_ZS27n)nh$mp!UpU;RZ4%u2kx*oc>x8u9XSBVJx%#LFwqGhAh!;cD{? z*Dz7t&RQ1eYks9tD1QY-ac6o~XT|U2wL3Gnbe3I^*NV*T`Jvbn4IRL5z&rF7{0L`k zGf0x0Kc8pCv5h!i0^?DjwXmJVwmgsP#*sk{-jni`8v|$HJSLpH)u!nX;a+NN*;0|F z-b!RLZa*2m-PN#6ug)a}-7byKqMQsd?j4Fe22rdaEu4Q`k^`)gDWysok%5(IMm3Uz zxWz2j+!oA`J>(>p>GqO3t!+Dzi7DG27SZXsfEqWgj!n?NNyg`eW$H#8l4ZR*xj-32 z2LxxqPRoABn&Z=r#qs;{m0LtbE9lpMlyhO0{&DkcIoHJN{a#==HFRu&SNuJtto7zR zD3ldm>x00p;8Ke*1DL;_3`gv0t*bl<+v_9fUl3=a*Tu6F-hrf~?WBKTEbP)Df*ToM z3<3+Ld}R(yl~t`ledM^s`$F+DTuq0$+I!O>xYRS%X_Wk-L@8>2nIU7J&xfuXq03HJ4T+ z3Ud@hVAm1^tviff@0F05^zd2?_W>}4Jf{8xbecX}!gxg=zWEzm?+J9%olzv0WxKFJ z{0(a##uaebo+!YuDGQFX+{g~ago|M}>r=3ocv!C~Mm#D01*aFU^@fZ#FGSW1UyNvD zDxXV!9HNXuK1;cV)mn;=uPaONZT<+nKW4&7=g7i`N@G9B6@s@CqO_d^JqjZBsq8Wz zt=C!@XuP?FMXqO~K61WQ6mW;PrdF-eIuVOat&kP^qk?ezZBFun&D_;%R)nodY9y$ce78|Sk+>sawnr+DlcHZDT>Lv3 zoI?BxAr%CTeaO}RpJlrL?d93;e1AECk6!Y@0$p+O<(l1+<@{iQEw`HGNkL@V3SNNe zl@gEq26Uf9WU?R8!@~LO{9tu+VS_E|2K0SGP>(lY0IYVqD}2Tpi{dTHCN%34tmj8G zsrcC{?X@}F(jtp2q=(P~f#MrgbE{AMD8mx3<(vy+if+HMf4NeC5o1lvmJ|aieqU12 zgL^e*B7iqRm1+_EU|9VXcudDpc?jwRnfnz9g+p&wD(eKnk`yV|NGe@YG@EXvyDlX& zOOY`?+$)#olY~!CCqf1eSwxT6G+$sf10lm0+|%N!A#pDE!Z|H<^JuA=Ys#a+U1>#h zM~%SRsX%r|TwwpHY)Ezoj$6{;)&M3^V{s$dsrVi4JXK8L760vSVqw0ApDtKJ{h>U6 zda9U?I2xT+)R?r!>+|?;cNc{vrp>(6gr?mL`b@l0eo=pS&zth!ZZPY?nfUhIz}&>3 zn-vn^%HTQ@8=<3_Pk@Vb`cW9R=a};HCT-eP1o}$c){%gh{y1~#hPDs!?mm5OtLx>*C4#OfN?36LQpo4<)8HcZB#D_afq3A5ZS*h;RLS3zQS|s9f5HqTe_{pS_s(7R?)FFApkI z>LqF6#q73MXG6NxHbx$01m~mG^U$YA%OSwxueNi3F9IIYNH7fxRgbiFv2`IyaaCsi zS;H+Ms3RrlV1uPFzz`oMh3ufNW)@zbwt0MJ%shtmix}*>>qg)DDWvF_$;2MqG4hGL-q{Z(1eg6{^J0!hbg-sG;DZC$su9Fhu*K9aQTzC=r?HJ}> z%){Sgsz=6<-)8^NM9(9?)%O0!709P$mOx_wL!KLpkzVs5!%ig0ESs=k(*ar>0kH3NZHdmkZ zp}hFlFV6i({I{nyC{Ul{znz-nzm=M_ba4rS0^3g`6W!BL)FUqVLj}r!>%B|SV}*>F zbS#fgHwN5QtSf6@%{sI8HSysw47e*!4!jQ8T#1yxb>F8_TI23lPRCnzyl&{206*r`ldaUZv^Tu{L%PH42% z8z>6q%Dc=84_Y%-nH2?dlqh54dYZS^K*DIX~}7^ z=F5cMcR16s7bf2}O*v~BjilVfhxA1V)_Fp9ki7BGN##m4o{mmh>uolueN39Vd_An? zWap5lB2U#tL~}m*GF$b$B`qD1DAG4S8s#rK)bePBaG2g1#)9ZEy%UdE$j-*#EVcWt z<|fAyB=rBgaG|1fu#RMlC}-WibH`NkG>b4I@4^xiHafQ}-LhWFCC<|2aPDXm=SG~M zad4N$WjZ6bW!jZHG#IgW$S}Rb)&djkHvrowgCa~aBk0eMz(2aduzlMY7;?AT>e!^< zwqfgeC*@u|Cd$6KoB4Fie(?91RLFsgCCX-_O+-L6=Xzec8No&(N80j+DMm&zAP56HitjE%TjRvV>@nx`!F^%m4jHO+%h~A|g+Ib5 z{SoGraQAyPAJ9#X`F9JA?n+P!3?Y@>OwJDG#MWF;WQ|~77~s5LZiG`Aa>OWqoxkzo z(E;=B9h6T=jvXB=0(mHSCDHryqBd)@IqJswScvp0x$j|zy1OJ?F88CamZw{`)#mmm zB`%O>IBU4cx)_Enc1vgU6?D)w=%8ybST+FvxEhW;WA+7E zA-{hklQ9a1rcQP=1oe0eSM^Rrfp6}`TiYtzVvgC?R{O@SZO%no+mbizXx9J@L}tdh zTx^TALmwRBS;CFNLDyarp3x6V1MDn$kMw9Awazel61yqKH{KJD)E%wFS=W|WfVb>w zg>Of$#vGCJrlv%@ycb_zjL7yq;rP^uNm5>zJKYy!Q@bZ)?7uTh9siVtrT()+(i;xR z5Rt_k2{Nd=fCBBz9{}N!9L;F4Hilz$fdWT@=eSQ}k|-8+{?D*>`kp+Uygn}Iq(p5g z)|DV;{Vdl^6$Jsgp>OB7?9*|%vr?f?XR?G5Kvd+kt(xS19`r-uP<>xRGh6grZ{E)^ z;!rBsgc>@A!V&uZvuZZU0iI$-iN6^m^}pl^a_4BlINZaDH&z7 zO0o%q!I#ED>NyFu8lXMNsB76n*vB5?P?UQ6a$!;%F%dnLiJa`T{i${d3ZDh|wM3#i z!As4Z7V%pVmodsh8$tCHBq-vGR3=gab0Dhie1C_$sU!8-CXQaxc(Mc#iYzn?gUGem zC<`&r_&r`2#%7z7dPqu6NWfwDC~`1ibq)96f$s%vmn4{^KTq4ngTZ;uv~B#g#&G6J z{!ogN4iZR$dPbxqWQ7TP#2yoVeVzCt@KjOH&zbhEe#Gr|ur0mD@VG|lrre_`Dq0Ad z(F3e%*w8?LozyEUqhQjWPmr#%4YGjBR9FhdWJ1ZI(Wv#;hq2oAwDL(PPo&0ykO?v) z_s$2Yuf>JZ8ZI5p=(!O*yzC)W_*L>$y$PcOY7Rl@0)p{hhu7_(Q*%i5KAy;~c41AH zWJ5j+$aV_d*-XM(Hisu75=SAG<0v}?n0Q4>ApwCzJT%#HcH~ht0zXH(MufTq+v%S) z=EiJ@beayxT%B#bU5f2V5TJfKBnfKDg;)Q*uc+Wnh#1{Xzn6JYI;Gq=Dzao?d{gel zF|3OPZ^pVPpZF&7Ze^@pcTjQYtWuUqhyEXmvJ2H11uG;q+}!oXzUZu>*MWRnjx@GQ zszOxeIukFq89h6^F=J2QodQcE7^0Ma+s%ey9A8D3Bo4-3V)`-pyt*4*M$&jpsRdcT zo?~mIj*9;rk*DKl^cEFptkEm3>See+&KJG$@9HJ^?x_6JtEOsCV<=&p6 z9PyMdbBXc&iLLq_{`8;GQlX%Ip{&|Fj=0w{-{UjR|;HhH?r6i!aBqUj{@;RcMpowW?GnS_A z`#oGy@;q(jt_Y_zDt|*^nv7TR@RNGxNhGo&Jy`;~jy1_UW9e&O$F4DGkg@;kl z+8i@_3>QFNg`|rW@iCl>AXC%z+1151tm-N<;>CaEOA~+4RrChpMO&P5>Jc+s8y~YS zfr*Y>Yni62ZF`Pf#J(u2GOZ3sK7C?zazn>@&fd^PH2%fdIQi6W1*Tk( zSNMp}gV@`*Al1pxc3veqEBMN5~ zUh)|y*3k5RRR|ho4IY*kWCMz0(a}cQ0gA!p>g$u4K1M`V5jB5iOZ5RBDz1VP`l`G~LS>+~6b*hkz(Ou3L@)qybC%Aam zJ`pb7-}0p?KYOAmM?`F`{oHTD^_zP#pD%_Q1*f$#+E^8fKmCLrZlA?%AQpQUZ!_UW z{B)LvBUF+N|W)CY1$0^-AOQO5@mI$!KpKyD*nqq;6}DnObR+4&J!6Q7v1-Y~ zI27_QKAFCL!dC{13NqCLLcy3e3PwjM7^{#3GD=3~txE4b`J5*9RG-qaNL7|ssWyi^}-&KHR>CpmZS^C+y977|h7u(|VKz+9$K3|$+q>D}Y zq>J?+U7QNi#Y%AA3DIIjTzDH~)0|bJbc?q~jmO||D}{SJc=^)~;;D}#Xd^FtD64f| zw@clV<8a9ZZhSf8XK$57tMF=siLcXAy4$5dF1@H1QiwIbV#L5J`!x^l$gdI6{FSnm zAG+A^-9*TP93#Sr^E4OQ`7z{)kLSn}B{Al1&>&A9dE&2hZC#cnhSxot&z&gWu6tab zXn&>}cHp>7wZKhc6~9gw?P9rbKWP&y;vnjBK$Tbts>G=v9RcTvAk*iwB4JVA?7Q;$ zxbAy*9{&5GH`Mz|h3_NE3o?vpvDf%Eb!I$pQ)eA!#)!>~h9b_4(Sk6eJ7m0w#)rrQ zQ8KId$ft7rTS-uSWWcS}3~ntSvt|xvO)F+i8)gkED8JzZ6XqSkFCQ(_D$4IEhtl^D zO+x&LQIX8w55TcZ3DuS!4oNPa3twZk}1RyAn`v6X|3Pze8&gHq7B z;P~iO?fSjuGC`R~5;n1j^hC^&D+fkRL;>nNn}reS0CY%G4E*D8jC@Z%d8yp%05LNg z(Mo1QshNqGCC-<~GF^dXgR;azM@M-mwlQCXEb`mrYL+nor~USH(E+(x#r?su433If z>x;C8|I@EwQP#y#!tbDjzY>%`Q^BfNkHy-A#X1{{b)M|>Ob~Htq&tjPPkC$?_C1o% zZffiIz3Yc@5ko-AMdEzXQT;0Sg4S(Y4md_WCAs}n ztEC3p+BdT%sw+`l5WguC8*f-#-vt4kx{% zynF5@Q&2O`0`c^`x56r7Vb&K>9VrPXFUEMa>^t_{fGflyU^r+GPWl<7U+vJ`Z8t>; zGrJuiWhD1ba#+asb~eFyhQC8uIVAVtO5iYbi?$>bCyemz%ZU4e1@QSiQ`g+eSmZvQ z!k6L{=FtoVGrHhBi`DAggB@X^`hfjPYV5uW2k<_Irs*2iithx-Ie9^*#Q!gh^_Sp9 zE<^{0JfJ;)hyv82wxzL4jP}#r5$vWQb3y$AiaoL+BZ|zv{hB=Uu_^CJ7~l|GjEDg5 z#N!eqlA{LQg(vAxSD$(#HRz?J2L0Ar+rz$aUh6U)Y+{wz#HL~stH&nRgiUNVHnDlI zSh;_hhT3YiBUdTKCJQ*<$O~%!C4MyypDXTtJGQi_Y-xYC?A(R_JpYKYma$UpTps_( za6|VC#X@9Obeb$ADATLI;{UG{Bx0t15kRLum49wQY2+89sww9DSqV8Bu+d=J$XO4R z#3otc!B{_?U`^BhlA@_V$H@PA&*>Ht zTVa#{YlUbDqUs4&M7amCEg=JYOL;;z6rFA2Y#&3ygITQ@IgCL12u(UMw}Ka^GAH7K zk#bbQDC_W6IkE20k!^$K>QQ+-<3ipo3kV-U#vs4cajkL- zMaPp$e4^wWKr1|x=`8z`OovFC_cs<8%iCak4y>dd1k3ogM9a} z-cJS00Vf_NOo983XT|bC>*aj=3=*mY!HXAv1vxY1>XFT+NZxAMo$O4$JgC}Z6mLX9 zD7yACqUYq-OEh95feu%N+hIQv2Now~q$l>*(~Rl3VtT2ml+>Wx7T&apo+luLOrej#RWNuscu z9p|+IkiR+IS@uKeWGRwzq!=kl%`GJ-lZ#hm^LR#{DkEBP=J&sEv5 zM<_h*;)zeDTQxEIwK0c})zL5O%4^b#goFepv(8CE1kRoGfFbr?wPw&IHQ6qSrc<2Hb;rXG&LAfetit4R}rmhKew`23yv z>@guTacsJIgha$}4UC)C*JN2Vp`eCV3i@W^%|@&z2<9ZkHc`#d4-|#imI*mwCD>}J zxNCXt#O$63eP@WR(gGd@lR&%}^U)ajWXj|em?#A4ZdI57gT13#I<%8Okf&Mn>&*DX z-y`Zg{-gXULfyr)_`CSwmvDzipsJt#d#qwItjFtwmOv|cQnI`g@Fj5Sz(<#D+*=pw zyFt6n$LjaCFn%jGzZ%bRQMivqHfKY;1v-%$W|BO46<$Ruq!_In|uG|LJjk%0y*aCw^!W|P;^*sud zhm@)?{K;7Z{bN+wWq@V(PS`#mo5C*i#`oz_AP`X|NskG89zp5>jL(rDD;CV{f^pxY z(rPI=r=;HS*yWJk5~P9uGA(-^+q!mRZ9hT;W{+3`tU*-cz}pLznOw3J81v&{-qKBi zOwyATz8(i;$_k&2@63S)wXf$%ic%Eb5f#AkCVljBle;UdPU_IpEv3FWffE;>Aul4zG0bn6qLnJ#uB!@_!&=B0Y_rkKfgf$3W4E+aqIVnnRtT-(Ly zQa+~q#AZL^URc9XIgACji;0Sb8JFW45itmFMZPaFhW$A7xtr%mj8H?nUJ2RZK)44I zlu~iGHY{2v0RySehG4}8t%X`2dg9XPO$CV%OOe82Y;%n=WEo(dwtgR{gZpXjhgS?aB(HU0G?gE33>KUTxkmS<3}8j)?zNfa87!`1Y@f z2m;`pUn^1RH|LHh=Y;cxf&^jZ&R<4SjE8UH^6gKUgii4K%Sk#`!o26bk`+mm6pL{^ z1li8qm9^v=z*odf ztZM&s2`jy6xUDS~1 zYa~Nc4-DMka{kVO@TnwHb%;;4T_y=yK?azqxZ4iwF!zKD>L3{%TyWfrl%Tg!Hy9xx z@Yazh(%Y0JXN^Cg)%v}m*!o&gY-{~_fh=d-Vl@pJ<(fdVeyQ>JomkFV%I%M!b^neX zMLGz!p!CIn^4NHHM5RTkFj#g6{Nz*=MeQC1Nd$f3EwxS47n9W~`z~YVwknenU5Kg* zB4TpEorO6*XnI+PeC=@7XryR|?^O}Apjk;g!cv8dAnG=lqyV!YFPYUDePvc>9Z!Q8b-|rEq-EL>Hm;ZSqsMhn&%zBB&RK7b?&|&gdIa4j+S;q} z24WlRO;WePjTREj6Rf!j>FK>BMLBZkCS}^(VWVvcuRyji{U8pchK^n7?nA{g9m+l^ z4VJnJCw>k5On<#4?&{td{1tzv%!wrNQyF;L!Rb?{XJ9fuN2!B6aBLvXrlSpieT}kA zc#O4p3qZ`GE$XtvXRdrSq_hey;vy7a$3Yo75LlB@n`~00}uaf$c8hIabnI%Uj|$&h@?Q8Vt5X=yx>#w z$kc00U9yR2+K$ws2;FAQ#P?a!_<%73n)3OH!Ds z*|;Q~x9+^~X^w=ai)Skj8WSFDw=0}9Ao%s^k_LyYr!Y)8w)r7bj^ed+ z8ndmBXjV3!uwZb4(O`p}ItY3b*e9g#n_!ZA83Z|7AqRh&Q_VrNP=e&P0o7u?S7q~} zilT+TLfeM|57{~PK;bkP8i;%Cl^B_ouy`SxTQK>Xv41gl9Ib=#;#CHojN^CnF?tH{=J zGlnE11$xHssHw%ahy zgj`Cg`;2*WfK-hg#3}W>1ON!Jw{R0RUmPC)iSD`R^5a8m3Xxj zk)C{2$M>06(MBn1^v=sTY4C5|t3?GC>2c3m${DSV?syYSM)Oz_CXD+6jL9_y{EsW` z;T9a4((7#rF-7G=9h`T}TYD0QJ`d+d9ASyFzAFnXyDRP?mP?v0wpPbDOdTIV5I@6V z%Wx3evS163bFZJRLsiv*nkVp{;StH(zWP`CPD}1x=RkKY&XXe#3p)^7QaGHGLjD=%X!?;(ZJHZhG9BYz%v~sd$qrWu!bz@gnS(| zN^1EQU;hd@%j&*m#N`M^db-&m2k@3xP|xP>V0X>2RT@mons0M~#_MB$|-#^x#~xyXpeBE7aO7i&IyACn8dl&Z;qW)b^d&52M#Jd8A?Qe&@QJS9DS z%7DnA<1OP zBqLh<+(})P742N6Lnp)j(A62cqkzhn$ct|`t}(FK_=oktl&uIYmqFYarm};_uL1M1~!gel)+u!SqiS2SoA$Sj8%1bJ9eR^nd_(h>E9IDx})u%Jn!wrkpR+9AU z^ijpeYmn8Vg;f?mtg?t=mBkpVEb3TgamcF0N_NFirCg;+Lz)jM7-*Sd;2$9d9!cs? zTts>m#$#{K7KQQHS6j|qcyqoh&|Os)GA28_Fh^R|*wHJ6S#t|5AUj-aB?jY^<7#DG zfkyZm>o+7QTaKTrw4h*hyreJ}i50f1fgZY0D>9GTxShv0gLyz>Wx$M zOo(1n;-IKSd5F%5aj|&yQbYjCt$Fgf*Ry1n3YzJXIj2k#7t$aNrF1EDC5_y^TSANk z3q=s_>g8QaxQ?aHHzhH_6h53Jx2^ZALY_Rp0!Z*i-?K?+8l-;GlQ49@1>08hy_7b( z*WBdrJF(R$u1-nfm>od^VI}tL;iFeEL~V7{A$^1N!F*7TpnRNtw2oU~8N%w~(IP0( zLvLh(e5Jm^gcs$U9>|XeGqj5L*5?&`i8myk!0IeLIVQgxLR9s`u@yHFGt-gE+&suVJ%QDSMr9jMpn5A$RiLVMJwby*U9E* z{7c?IUL<;*%C9h(H(kL|8ZlpP)Pn=K34J!POf8qEv2Tl;YSdaq522x#q{@nWnr}Ew z7&C!8!Se8**YEnz5%3pdCQAbZ<_>jhQWxRL7`_=y{4&Ez&}CF>6Qy19rHy&dD*jZD zCMi9r>w#R&pkv09Hua>)jhJ^U;<9v5h{&(@v{Zv0%3JQRPVKgeRo+0(KRk3r> z>5LhbB_N2+D105TRtQTYD&}Kz7;8U`3o|O! z_I0-qu+MQ>=8=0EJ6_XV)FGkq6PL4`m<^304oEz+?kqN;+>{?JP@EK|JPR1li^Y}q zyfR0n4N@(m=*5$=C5&44p`IiKN=oDpngu%6gU9yu30JWSRo&+;jDW~@rBx9XJOfE8 z9-4#gREEQ4(c&mL14j^bJ#P@4VFoL}$>&^}O@!s(*fOT3Kx2;>G4@|fAN&cP6XCTe zRJ@&kh+YzG+#OnGB_7am1fgs3Os(?ObmXSanlH$S*iiIhV~5b$cvGcfut_m=<6Clqj%zlU%I~5~Z4_^jZ9I0?bRt-UB4V+&=Uw92RDO$?U zAbL4lHe#4>?r_e0J4+KTHitqA@wZbNOWBno??ng$8`~!1U_p#VueMmD-Fp#8(GpZ2 z0I{L`&oMsLqoGB+g(eAfAiFi&PEh6?vmg;7{r`%NXggS1}{J=kzKGnc6o7Jr7AIxuJlayq9v9QKqTqsBWUnwlT}J_vHo1 zYK`lktXqVjs_Lyg5Vj>*Qwy?;5hSJm=0jK3TVut{mURnm5uv-k4xO)lUoPxEihW$3 zI|nCQfc~E^jTTuDcYCh8;e=t@9LB{*atxJ}eSB6!y(B*Z{g|X%Mwo4p_G+>PFCS4d z9FUTaB$@qg2I$OdL+lSF9-#c=k(dMsk9h>k=!}}48bZI`V%rCWF3UZfRlMo~c(%gL zcvEMsuCG%!b=LhWe|@c?Wj|DbBx2%3KoAu_&Z+FwozKOa<=qn!#T0{94D?(GGkBzm z%bD8JC}B!W!7yUajI9=N=Mo{Fa<3)jTl$)IxM%T1jo%|JLl87JEHN9f%MFJ88vK1W zN%AP@TbyREDn+UEYbDV_;X&4gX06mFNc>&8vYw%xb?ESVd_+?uvgq71^0d+S7+kU_ z%sFBmN8W}eS!fr>l%#f=!aauZ-(d?}GPGIA0e4hWBpwaHrhEk~lKps^CauZt4^wjf zEBvbFIcUr(oz@;cCUnCj2cZC-9r%n@)jxwE>pZozT#(+M#b}0F5GoRxkerlh!sy3Q z!ulGvfmNywFi68dO$KZ>QBq2%w<(Q4L{jOnj6q*-#AUxg^(N2L1ZK2D4f8swjh6Ev6`JC%z%nk! z{&Nk^yh7>kvdd($<&HLaDo4>lA@DZxNP(WaywKaYj$PhAbk=sS_+ zYR_qiMb2c2ID1VMTyaQJ$~VmILcTK%(-lCTiuSAmQzOel;EF8S`}0@n_XP$Dfd+!I z&!SDMxk?vEWB^@2qQCGsR;ieamRHtyS1Xm72Znz?B#T>YuP;`fDfFD%9p-sQ<;F|$ z3bf?!?-=^}4AFbdK+_Ju)QcN#Xn{hx1;%p@YtH35^RpIW@g#_)xj`kJDbXw;bA#)2 z!AeMNM>zi>ZTKo?>6(I&>?OgRKo90>oa+^IpptoyE#=T?F$Pn5<+ubHxfH}Ml@&^T z=$Zhwt(D%;Z!;$6EjcD<7G9)eo68~i&35Uh-649U8kXIq=|MHG)eEpB3$k3XHOeI# zp6-hg=LtnAky6o4OK=*i5zrj2*$QN@y7Uo|3507WD_81Og|VTrWq%#69vx?$nGx;= z1_PZ)kt~_I%ViG8I;zOCYUSH-0KaA6qmC7a&PPe!xS{e&Bs9tZXD<5?l9jk==>3Sa(G-4r1%4kEo;R_ z5J>yeSUjhV^IulL>F`V)4cEE&%E0O%;5i7BX``-W`HuWfV26HXm33n`v&FtMnUt8j9A6Z#JDT z6V26?Rvvl`h=65}q;o{i1UY+2Ro)2N1Qy0Y?gv48?^DZpg&n0p6me@>l%x_axE6=B z{6DT4=HNMotef_+!}~&DiQo?mh2S2_o$!m*P4iZSB<27>&51i?{@G)xn4~y=NefB~ zKnsgLMc>c`)K)ob+n_{Eb_U~=>`!XM=v75FvZrkqPzj2uTGJKAj_CO_+pN601^!TO_&I$D7sjiZ}{fkTE^OwRSF)tdW|awWU?Z zl7jP2mii%OW%$cTZp4s40MkqY0O}Y-K!W`t5&}(3Nv##(CQv{3!LP+(99DbihN7UD zdiH@5h`Mvcvl?Rd5NL~&p}tSJVTZhFE3l!OjF_`BG#R^C{JRk;a`Ac?fzrTTe^PUZ zS=M=k3`m;eSc+{OkfW4XH?q^BN(Be@q)}-d zWH>2@MIq^-yI297FY64I1@4b(`W5SG3)ry8wd_J)4G37qVF)=Twtt7xGZYVhky(wQ zFH$uqWrVZxPpsnltR|S9@xS3RMzHmb@eU@k^4jk&|o6 z&3o}wvV6Ur`DlK!cvkz-g(qlnyb z8v`Vl_^#Qi)LiOK`)w=l^9#GkTqG*fxRiv*Uj`%EY)w$Pywpf|c+wauTI2-aVLfjbsmh5(Z>2Ig^)eNSP@1SLT8 zZyS=JKg2$DCl$nm@64Hz*u^E9#oVSL>a2#nD}~fXvbj4Bi;x7oGAw`hc~bPq?W-9PkT}Jb6ot+Zemt%@u7ljPf=kp2)wZ+RNV45F1lzPU z+!43e$OXM=fBN~Nf{-6~1=qx3l;nxcC-df$JB!rhb5slq{Nc`wrd{9>+<|jTymV3WX_ zxrWpO3|Pj%LGr>ynJCKydSD-D%yos))^B2bXh)b4aF6ns>;V@b@4gP%9IzyKQ_i3_ z&S{3poA}%g!Vh-hrz8}-8Jl(hp0XnhS$oC5-N7wiH z^k))0j@2&Ds*Gtw2)$x8EVV6D`IX&aX6&_4evDNbZti$nt+DcrAQ|MNVDXgaKalJK zj&3I0m(D4&4Oo_QxknILM)}}rEKoBomdZz8k?l!Vq0)9K3g;SO)~ega9pQq3SxUXl zDG3+pE(f&tD*)sim333LO$IWoZk0LhJPua zcwWLOnUuf*v9L5?NkOY{c0p;6zvHu54F~h!u-prL3fAJgs^PeldxvmhZsj_;lHbNR zpH#f)q)X;vogl5Dr20vD5ak^8lks`%lVn=?$$6ep6L&ppn-FNi-fmb?pTWU|7PS^X z%{EMXia+~uu?;|l`uKA3<6DagG~_j5^;RzDZm#{U`D=e-hkoI^e3`~VJ)@5<9TeBf ztb^X0ZWLyF@^5ZiLkQxa&A92&jhaZq~F9k_uxiP_ZFxo*z~7bId9|B1D%{$JrtV>TPPcaw6Ox zz|e^eBmuIQRYdyYBuI2OrSl19a9qg>>+=p*lF>;Oct<{Vc0 zbS1X;U%q(3)|v_@E2_(}mAo6f5<@(1zJ%qoZ#M`NoXm_7hX$uv!=kQAgYN`gQJAi# zO<$pFx=Xk|ZGQu)PRR-s&GJsFjVucH?QIxmQf)XPnkf>2DRz0mWp#_EVQ?W)JiaqL3 zEYiY0K{zGu?#;(X{d98tN1GMkg(8kH?& zM~W11Kpz4u>mCWSRuAWAtrBd=P$;I{#i-M+q;jnsVjWtq;UD&zjlM}GRJ&C8%3Et} zhTX(y&_aUOK8U8_mfdRR0>yzUTd_6@>4wM3eqbf*J44o@gfa{5#tL{S__P%Fy1nT| z>!4>N-W-G3Cyi%Um|1Da3S&D-AuLkm_6q}J5|>H|=GZzu6FlhZ{S!A=YP@0y!k)#+=VygR~*!Zz*_LrA#q~Io*aX2EqGF8Tft(OafxcA z

r_#)Sln!@3B%bn-uTF~Oozi!C*3vE{Zte5{W-SRbueAE@e_9QYB!vs-$V97Oao z-VU0@;Fpifiukx><8CfNS>4RQu!8gUky59&n`Xnu!B5nKjE5lhk_rhDL;NUAYk_)5 zyfKB4w*ztV9<3H$fhSKW0}tl?L8ZgL+0i&Tc)WVlpG@fTl3Wbz-Vg_91U(3&D;<_o zDxf7)hZoi%(wj1VGFTh@x`gYt!#7ekEqlWW zPmb;c;l6x9n>avI%{6v11FLOR%`Di0LVL-eJ?6cDhjz)@wDQhw7VbK=3-bta4r*t) zsvImswlGVQG{!<+V_35pka_&?tH>C#5L=>dR{G(a+>CaF9rLX*IrJ<) zGN5*pR9GT!JH)D?;NvoyHq^Aw6``HBNKM1I~`Q?I$)BKL+#_lE3ILf^`ApT|xrO!5;RK*rF(xQ|T0U0prmCd3KTf_BkV} zOmId`JM=Mn2B1zU-tjS7>>3R}DB~EC)N`i!i^D9_VZ|q%%j&6eG_Q1)0rvhZDU2t6 z^<#8mza&4!0Q;uKo7ZY2bic6!C8(Mii!M|H>NLoCgxoV$hKS?`|0LerE{ufB{e=slUCS*1Vf>oUH1D@DY{pEOeO`lmO2mz-A zEuv#}kPs>Xfv7louOdE`3+UoVLmUJtPS|r;(c*euN<&x}F$sZ+)qX3Bq?KKORVLp` zSHEVLVCXlxFjEaB=n8aEO;5ULXXg6i4}8hkG{1XRc}S+>xT?o-)r8|}Hjb-#Fz=L~ z#P;+mlfdKlZz9oRwhb$%=HTz;)Xdp$Yjfw>QhJ=U9CS&$0U4IabAU%oL2}92?ei3QJ_n2v{J&fx8C~pmn%452~ZSHT@4RXYZMGk+dmApn5Oa zt325vFse7#?m88-;2Q7S4ubL209!*Z+rfj zC8ZIi&YjSN8{}DtY~2~u!UeZb$R6Y49t$Z;?8w<@TnKe>qTzfPz{GlP<<6NTecZ4r z`nt<8!YSrJB$tMwGzoy}KtVa}xB~555eAgU_BT>|CZ@MPm(`Ne{*)Y9$iSAycoDhq ziL7cz`xLx8fTq-{=!}vHu1it+GYQ#RcS~qof!Q&RW1w8qsxIj#r^@vibicC_pXJ_O zY3HoOQtV?fdmUfCnMLIl#!c!b<5fxPBybI=L>r_JjsOi*1GvUi&HtNHQzeI+RlgA% zcp#1d^jMF63O;pAf!!0LzvBrlriJL0$ca0t`gUeWUifWMfr4pqIj?vtWNrK~3-u)b z#@17O@;1htq?F#9__N7xB6BuCx=DU-l)=}h}+I^RPc_+1}}Fpm4MKC_O7%sOV(Wi1aY?61$8!Nf7!TG`+&DjOog=owa}+r6FP^=se ztc|p~HD^^J48=<$&<8cL@mLKLTMlrc!4h;rFtCRFW0CI?fQ=v%2*aVNhLTknEigNV zXizj1y^fhF6*#e&lEP5E5#4v9v3heBJ(Vi}g;~>Ym4@aN2o5;|0uYbn;{Ha}Dv@n0 zukH|H3EwtOwzUPC4%DK=Cb^PVgu>CF);0?@Q9Q`2x0${o%3QoTDQ-t_ z`9EQ>JhlqY&rocV(6+-39a}@s_f)zl*!Y}3PvQ{Y1*dTk4vEvevmgZN;H>1{?&`)k#wmPq?C zW(anN>`!5IfE*}?b4N#+5pJf$gG7qW`FJI7S!E%w)_6QT>)sdmD^Ur5kylM%Z)qTiJGJS-tZFoJJY++&?llg0jLUd$nb zf%mE&u=fJmEre5@1!^;j-~SynA5?cUOa1tgU;?<2CHQtdOCMn?3V^u=R0*%~5Le<} za2jn7Ly_Or6pknL4wNN^@pA&7|BhM=Ct&qpntqoQu1B+>Hp~`UmCl`Ip}7TbJuuVG zFd%x)i0&4!m~%B2s;ZFEw|BlC<*<4PKc#u_9>~fO%>%@_vjoR3B3Bvh-zQnk6J z17u0|C_((7l4@*H5HAcu4^fS?A(0;adoYZAd@9(-wi}J}&aBv*rxYi1L}AM(lH@lLR#OlX5Q_^b&X<%Ph&afNXc&mGo(~C#HG<+yoOKg5hEca4 z#{pJJgUIFf3HQ6geD4tE!=mirECG*%79(u*G{GA?ar#&xzOX7rzNNOp24kW?YUv)W zF!i6r5f0u^k)|^SI7Hyde6d;Rb01CE6a;lq<5R-tU2^(xlH=L^bsEigH(9{k zX~o3%B%FF$LvDVOir>J2C}*#k$ea?Oq1(U}nkOoa+B=$hZ6G7@vT)>FW^da--zZ=& zOmAb5!Cw7L&J0%sA?sjz65(cHn)fpBLao!vikvy1JtQxrQ4O_8+H}9_6P_Zu#S1WD zOtMAbbI{t3-j}1%Nf|ReVv8_TB3raP?A`*4Y>~{xSsi98H_;3vH0Zk~O)snMGX(%) zVjxoxeu3PtSYkqP-EB5-bV&#diezsHZMj%xCt3IXXk05qViB>?%0MN4KCm5KU~=WJ z=M_(ZXc?R}WRqqrTu#=F=n_2icUUkPt3|IOOR}S}8Z^?o8;UN--J3fDOYG&$_2Z9x z!Yr}jSN{hrG1@kHmY5RSK9l&k&?bcT*V|U-?5}m#{zv*O1xm>PMuCpw7AR`$IGquk z8m+J;>6WAOsmzit8i6>=zRPKa&CZFlROZB4(rSf`suebTu{g`1Sz%pfg*|3g*du0z zsX4aF%&|6@V+-Q5X@3Rh@}GzA1ZO+kW7}hJQK`|96KOl+GYr;&$o{f9L0Yco6{Q`_U03F=lED(SO`5`TFdYOJc~PK@M2}LW zQl9;Ef>t+DG_7E0L=>tOB-3=@=ER%xELvJGsFGp?F@tauIyggDW5y%@j4%Jo2IiWu8)?CtQy)u1mx=2;y(myRK&<+^?+J_0zI`!c{psFDmr0bAm z`#_$oh8aWMCaZB06I-m0Z)rp}r>J3K8`1k@CQ(vDjKG|%hJ2%f2AWHDQ5ee!iLk-i zi~`szrXwbFPIIHz+(bnsN;r%~7*%6bGl(MDauML{0PRac4`C_RAi7v@jQ`(9jL?aO z!g@#rdQXR{665|iLz}zRgU=Jw_}e##X)K*l#9V`5u3g%OvB*zQ50|H^ky3bD@rp;S zG9ag=FiD|hZN=Vd6Q(KJ>_10MF6$>=P%V>9w&E5qrh zce;hu-Ju{llw}XVR_D5UI5)1P{$^gbPx%{_oLVN@(-&!Lh~uHN&_5>=nnc`ktiq9~ zJMadv3~ANooK}XkNtyw&zf(MTlS zS@&~PrFM@LrZ04*J1Z8IUUg3a;rt>q?v#+k!?{{rg>g{U3SRh9#N^H1Dno=rQe(JD&X;Ew1Z6!SJ#aQdt7Unl^hc++!2b+hMSsQ)D}R&TYgp7%`9I&pU~&d)_OGZsEt9oFX0I%OUntnN zGlH4hSlt~s(e^}_=>vT}qMdwo&|HbS*T%we5T~kynfYBbc-HFk>=j>CS%!~@ft629)=ljhbK6#i*u_c<{`~CR z@W%CG#c?tAz=Jh3O@|!gpki1`6i-bYQX!gZX@WU9({eY?SL!uw?A+X}ZTh-nsL5cm zz8*B7u|ur?4I&p}T|N)b-Goa{zv$_4v7|f=9(aeCpA4i(J9er;3$`(7$IgPV?c4Ja zn__F3a~NFl4^tdt< zq$D|WOK0R83U!**8I@F(^MB;@pCzvc`>V?J#)Z8>6rwgsFbUITaR~OANu-n#(%cM= zh%EVla=loXW=PqhXLZSz3=IN|zUme5!qbn zUS@9xZ+(9;--_9{TvdVH$ZpnK6W+5Hi^v>7sr3T(X)hr!KExp}Aamp7(eL5IO-PvO zE|(GR9u`y2H|&Q(RCnYtipG?FJg_o)={L>+*n7PKYwg-7s(MQ4?ng9i5VP7`2spx7 zk#Hp^-=MlZ1V*Ld8ImZsQcE3^@l2AM;HLT@sX?wU9|0TIWmQ@AAQ`jTj31vz4|9xg zmvV?Mhi(fK@E~PhHZB|<$@Dm+H%S6*O+UIs@i8jEyd)$N1%a)JkEBf}RUrqVq=-eS z%h5;$llhpeEOgef_v0Ch@iKSnlG=6yEuT;kvlUeiHs|C599f^Ga}ca>GgMI)fV76v zoI52FfDCC{+%@Ihr&I(;#n+ha^AQ2S*h?&8Gg4%7on2$I3Kr4v*UBW;t_+s!pU5Da`ElEWZF`7Q2`n#E6+mU?Q3_(Xb0BEvA2W*oCsmvmm-Kfdhlr9U)r)xU z`;77J`F^Muu^GRDF#p`OtWW*j_b-zDfB;XP?g!dUosVyQA3@2T(0}07$NxL71BPTN zAh`iq?mRUQetlD(a7RMbbtC7k=Ce<=pg~dQ9ooZZkPUhjYY{#iy%?_FTuf6=Xlql~7xl z^rPkImWlV{r!(WpDusi3yN%JmY=;iB=zI*pAsjp2Q)crb6cLVFc0@Y(ntY89nYjJ| z4E4PQ#>vb&=(jH~Dlm-?0D|T)T@^gQtKVafK9?n@jWPIOEesmQm1TAuG(f{!;|n-K z$xvAYacA;iZo#1Jq>_f}foxaB`LPlbGBVdH*+*l6?n&FjQJl?DoSmTQCpPCS*iabn3lR2|&(V6~OZmlsv8Y-NYXulzd!cag4@uy_|U9_ep(he1P!a z0sfqD{=F>OMud9lScQ*+SQUT&09Vrs^3aASy+H{~a+)4%SP`UB9%$g)2N=748uS56 z=|4HbQ<{<$gD0J?!BW)Ow6gz~u{s5@^g@zh~}O6`zy$bNyDm zSJ!U>n~(~iV-+LXzZy16@bXJKj;Jy1<=B>UX_^d(oW?V88E#^y!0o{E++S)UPAkof zo7Q%}RxzEEulY}?ojcyYA5S3pu8B(~u}9Z&$NWHAJpdPB&Gwtfdn`72kAw^$XSf7ciXT`;s7UR5 z6c#Z4o@J~JJCN>R6rf>Yzw!&Y%Z*&##r%E&@*BhQR3Xuo>gVo|aow9I19J5;j_bsV zWeQYJz|;+8KuFBWeR*RRIp#bOkm@&zfHdD*kf|QYTtDNFXA~7s`y=zR7QAb~*y0*h z7U`(6*hiH`L#ix3Qe_d7s>RBh!=Q>>WvT{W<}1)-o@#$c&3t-cpM-r9AHPWZV@!Pc z(+}k7f4t=n>VJ%C3~8#?u}ihQ5fP?~OAtNUei{VIJrbxHC{P8E*i~91r3xTbssJKY z`l$9D$I|zqabp!gP|e>?u|%n+>QV&|({6^bIeCrAd@MGZkEJH_v0T{%Ca+L_fypaP z;CU6}RP9!&yf|KxrvOr!rvT!p0!V=}7|7!;ljj~F>}H(UmNoHoXU%Qtq8BqAXB&$y zWICjV#JN|-Rw&vNL?=46aJr-5OOBtGX%C8dS@U4xJZ*8RMioeQ;&5Je11NC`oeIH$ z;AjY|fu!_Fc^f}dpXBlf;&HEC?^4F&A)Do>jwiYGMqmM!kOw~(C~GWG8a{8EhK}Yi z3h|i;7w940UiqgFD|gNT`u9pf4`?951D(R6n9rLX1C?Mm9psD3n!1gPeot1PH&Ux0 zf<0Pg1nO+cLOyB(HZ^HuVe_vh2KKCy(fv4_b_a3NLn#jPX!aDubSy zD@?57OpxSxhpOA|%i|D0uPwlbR+z8amWTg@<2;IY%t0~v$KacH&ky>0EiHOTGjCOA z24W&f42#zJ9??cLFct^|3Mwls~6ziv_UeGqY1l z`H6;HgyLDOj0L?sPGT#KK;Mb)APgvG%rZ`7(87hNy{p-pA2Epxj-i;c_)#`L9Ct^h zhU3mM%)yWxGDMB)g{{V(rz&tx&G9UO%1&HM^}!WSCe;P>-vnAUG^Qn^)ET&_vM#G@ z;khtIV-Yq9EKvFx{cotKjY_HIi}i${M+B*inllX;#Z}=cSHTWWd-wuQ=d)uk)~%r{ zma~~2giozn4l8sf+1}Z^5wf zM~r*VM_KkO*qg}2PH$nf(=PKCNgo8xt;AGs#o8GQh=WTVER zgH`i$Io@pv{llOwAvuhkU*>nf;IFW5Q>zCv$r)9RB5`h2d6S0ih+rTXkp=00% zPb5{WW+Yte$HR0$=MGz4WQfoQTZjjf)-UD;AW4UNREHa9a_3Te0BQFP0+)aJ)TXDuG^sZwJGk4x_Ge&P9a8@zk)-EoY?OI)~h{gNM;X+`E0`EF#kLmV=>;IUwknvxB(xrgK z8XIPxVZk~a`X=pyzJ$(Dq$oSn_Hmhk@6n=G=ZO(~PN&7u-z!lFyQ;id*K3xjSJ>rrFtT*d}|HDpg+wBO!rt7CZ7j-Jk*R(0WwnTw4!2_>=|wGrjWy)zXQ3NL@q4&cfBT%7F*x= zCmH`kch5oEY6DUxJ3_H;0e5qqLgSj$Kj?Vd-jwb&xYb-V{G`!CE1!W%V+;Siv%+GM z!P8c$E44M7v}{l$OK^9Lmqv1hlh0@FNwffc3HZhUmz1Q5b_=U}M(H+?Lp})=EMw)L zn`9o;r{aO>_`e>aaWhB*?qmCc)tbi2lQ3r1k}}lvn}?uPpKZJuSdT z_RtE(1%*Zw2q&34t*Qe&s^9C$%LUFi;@-jkh&tX8l{n#lk1=xox3PQzc}06eiW@xg zrBzRd8=vO&yy8#uyW{VQX+ZJa${k;>Qx#c=94gtFa$O7|MwISJd<@%N@w<3$PtA#DMjczc}RO?d zk@kwe^w;dd&;PY%2ZQy)mnPkXm&AJDh#g>rNRS@If5Oj9;7?X;z&hMIrYbZ>PW!>% z&m&*?|Aa?gmWJ~Oc;th(mx!dK+89|Fju-LC$FpOppS4Temv`f~IH({Vx>XIS)vRcdVlZ0(X zED-Te0SQj^B+7JnFW{5a#;uS?5C4cBn{Dx=#jQq6Jy>8_s0%>ye%d>tMFmzY4*{+j zZ{aH}eO4If&I(8+4OJAe(R^=M^CPA376u&^|qhxc~cTVC<{ zuM`!8Z1P_lkJ-10^%gN7)eU~!&+*1fz*noMQEC(lXzdB<2LVvlyBgt zG0Kmh%a@Di;HQ5?%Mf-Lm;6pSzyAxQ@>O}H^68FsZ$?tB=HVMDl|Cf0)D>uo-eVnXM?4o;u4#~buN78l1&Vm;!C*l z7BUwq5e(CH6VPappc;A-L~gGivq?l2jU}g7S7&4liTemP0MgL2U_wC}!Kp4%HzL52 zF6x#XXNfN9$mxq%=Vf)*XLH>1az${@3kkiLC=uYV++DO`@>X$DMPncabpR>xtP;>~ z$#iJEhI#kiu}fRpF;#Ia(K0O{JJir2A@CUNX(`;4w10o5T6VbCg^=EnM;JplpT2&= z&WVy>XHIsU(9DC#y2NTv})ePdNCbl~?(cPhm?}dG%q?Dy6-LRY}PFOps~%f_zMKvYhcMr3&}R$7N3`+nn%go zhHE_d z?e<8hhBs5nnUH$9T+^~n&9C6p2M5{X0D&u+7O>SwNt>kVuP;uoJzi=WtEJAY=o|A1 z=Kzn&LC3e^fHojI8RMN*XN3qq>+;oLNSz^3tOo5nQ}xwWD+s@Ds@?uboe^98o1#u^jPgn9h3o)TTLb`8+Dc_MLrqL0$NxzFp7f{9r z^Y~g$J!h&|1JB8OwZa50o~?72g9vpCdTF0b(S53hx;or&4`(e+dzQ0U_UqeGOF~g~=hG!>SI+|SQ>OoJb=y&> zHh|=W42x2C3;|+5@`54d-kMb@U!j@3j-~~G&F-k_IQIzHFeUYTAQZ<6pM{ttssj!6 zg@4v7nj9!r_}sH12+2Xr>+sdwKQG*dgl7# zinkk^(*x(V(Aq(vbtTxGreb%h$L`dG-Dx&DVKClju~W7j+FZw49r6+Ai~pHPn=&0Y6<3 z%2^ERHuacpQ;%FMXQ5Z@%MWcNU%_t09^De>Mg&j`jdte~5tdrS7)1bC)Iyz$&|r{Yvh&5tT*f?B7FU@g zuZyJsn?pGW5M@e427C0vP?i3hG~%h07u?y=YzT}2Q$l!AHqIP7l|)nu#sQ+5BZVBy zVwblAfDt;teD0Ip`zUMwoLi#G?lzhNU5f6c=pK}weG#x~cu?EuKz~#yYkFZrqmz-g zbZ#kAw#OAFaUh!u74J#Q;(Qdw(ok@tLvkaHF0-~+WeFl-$Owi2az?jI#gkX0WKT{q zkt8Ho&MiWN_oBA>b)^~_|w3ZXWS0q~!1q;t;Oy1uTxQVc-LeU4N+)KS_ z=S~;md5TY*F2sJ7lY!VJXIxI_p}1_01%AMkG$Vq)aR^DWR%W&2nPS>WTIl1}#5H>( zTo|sX_q!st;vRTYK?slnN?cC}3Mbwztqa_|J5Cqoi9>`^6A~4XU-HOqaE^o`5!8o( zZh~x>@WpU$hyCPQ*TpWefSs?D$CpAQLd7De6Y&fH>`~IrKu05(k$MOmc%xp#sc=D$ z|K6+Cz2ckpG553uVh{ioj;TWrd7VrHBCCoJAg~saFo6i0IhI6{#S7N`Piv7MG`+XDk``Os<=fU$*!i~kc)pO@G^t5aOIZ6F(j;#^5L@>dJH+5sY+Gg^1HHMF}N+I!Y5Sl z1o(#ADwM^``;-I`YvYzp-jh}Q#!cm#ZWLmW*b4LUB?9BUGn+)@2k+ki^vF$RSuLCK zhb%To=W#HnABIJRgxdq1WiF;IsuCID2QBnM?WYDqa@!bGlQ=$6j9A7*EwF|#^r z?vh_y_ZN`xOs41BO#1>*77$@Av}4}OIYvAH*g*KQAJ;q0vyVz%GB5WuwqzxnGT7L% zK|t2%;<3#n_{1fxq4dj(gg5vh2*o`HVAA_UCnUJ8up4{l$SbLHROy2QYpP;0dB}Q= zfzpc@pJG(j8Yentu7||Na=c*0tvNewO@xS}+KZT3A zgxz{ABkthV>ql{`$X@XXZv}|uctcBXg#pl_nDG@=%+R6$y%*ndP&FGx;cYa0^d;H6 zMPGskiRR1(B>BZRIv*MVF)DFvA|4g+p$zJ?ktyj%Xjncpmy^XM;vNblPZ2|-tX57` zRR7#_jV({rDyEQhkKntb@EA70pikb49*tl*&C3a`fl}rs>hV-_3ZVKKuTngN%yHmzM>-k?BBy2s6DNTTUAPHX&X$ z+qtDP@;kYb46%$W>52)lPRe~M(4V*q)OH|wJdX-7VD^{T#Q1whVR^cz5YMhlTB+l7q}HvI8it6 z*xd!X2w-f>9*N-SHu48L!mCF(0WM8WK(Qb{pxIVe3bTc>@qKh?9A=+f(mKS-zROUJ zX2eTyg@{t}9=0f}1aSPd>JngdM~TAg(Tbj3Sw)NW;aRI1B+a_c`b9FYLn!H#hFq(f zA&yR@SVZvT(Mu%dSUXu7<#%dE75TbpWiJ&HC{u;j)gWbp`7q_wiXUF*J9#VzZvrC^pI^ z4=9L9QQEO+kq*L>GU#(&!{U_AtyrSm_*zSO4;o#MMkg@?mthYmmtK!zZh*SZ2X}}( zaZJQO5@O-er_YBXI<)1v5HkrLn!7k+O(AW|^7+=nHtHJz3>bWZgNurReD_RZC)#YF$#XiUF;W&UEa7`j6!M(0iAp ziv)fpUH4!x2b#gR3!3yrJ(Zd3C-xK;6=bSg@EJi+&xb2>EbzguIH~zC z^{-YNp`m#WRpv`nnRiiT{zjE~AXSSM39?3gV>&Ie^H*vQ#B7ZUGre|ng^T9 zJXjieu!P?`#$S8V%lT_x*mSYK*0Ha#eO6^d`|VCc`>Ya>t#_%*HmWXLqX^q&y_mUbR}t7aAo#b4`b=$Pd+cI<9wziYIiy=A1K{maAVpEb1q%}`_e zrw1F`TLv22zuc85o&4oTgMa?!p;YPQnM;CyI_6)va3T2ly}A7PLzh2)n&!`cna-d8 zUKRY5Z02crhTXwSzbOx1lChHR{k{H}IA4(@mtWxj$iJT#jW^*ddjTcufh8OU-sQ~9 zIb|uL=EYe6azKs0VpQfdodwlt#zrm6{bf34%wm9`DcBCoh})FNnY^*3$YcW6MaUn@ z!uN8O4Re(#jZ#8tNT|dCFGICBVhiFmbmdrYbb_j5^3vxeG;)?E>`Dw~mR`*>gyd^D z{{(Fqm{YQ1>f&%Mp{+5X^jV;P8I~)kKcpShuf;#`!qj&g$aCjdq8A?4*Ujq0W>nX$ z*MC}dvp-)E#zeNL<1pOB6vEBfZG-$*7F*)>$ zH(;zr?XRdMGdKhMcv7EWuf3tZGzyBrUD2nXxS>QcIl(U|`b2A4SEe%cnwK}!@V^S=kuv*m_Na(s@cV@`Ju|*~vk>amw z4g|bHdpPQgkw?wfC0Ie!PZEAxlINaNp)5@(D9iv}8@<+C!gcmtclSkAi5}Uk0}pSM z3osUnUu;#IIw|g+zUx!4^N8BgUq3c)YdQaeeG`0*wNZG8^Z4E7_A*dWJ zqn#m~@lk9$H1gr+$O@R%Sy6vWXI*_lRkGKiwK50GkVlncH+rQ`^F8=>8O;*%dLwr4 z31>zy9*r%dwVXY2JTuNMX^65P1Ur2sFzzLaHjtkS-9V&@6MZ`h>aXBrNkTj5JUv4$ z5d7f!lewxprFR<^4qWJmb>iHF&)iTV4Z@|bOqy>BfzX<`dMGE@n{*%Pv{%4ONU{O} zT2Dc%>Pl78Z!reQG@3+F&?B`EV0DryPO5ub(QPAJg~$=gb_VIa1$HMi%z~~fLD!Y! z2677nZJgdmki4dGnxg99dTpwsGl{z_OA*#$^H-2I<5-IgHLVK!w5gwEt+_(?xKqL0 z6;ymoDqk223*lvbJagt*?d(z`PgzgOpWu@#bWrz(W)po@0VIay-XVl<=j3kBC|d2JH-%5_@cp@6?& zx@2}@(bsL|R1DnOU@E>U27ME^e6dReG$e_w_(IN3C{?wQq329v%K*x%M;lv)aFAA9 z3Rilvae~#_rKjSGwWbB?gK|P$a+}Q&6SFS_w~rP$_~#O0=PQ@C_c0s@P(drZd{$=^ zOZgf}#4QO69F_Yl2{k13?yD{SQip)cbXzmzx*1kxBE~Mi6r77k80V5AD3}V+8#u?> zVvWo(8v7}yv1KsB(<3nXXJVg})+yx1yRn=r-}?m4>5n2hbxVa}c(xktTc7GJ#26-V zUux(cz9dVngJ*ErD#VbM$Mf{!Isqe=pbWnxH-;Qbn{MJwf8p z4K#Pm9>(!e3*>_VRMxLA+`FY@*^@k??l-)fLuxMnq$zk+AxBuH!hDf9FU68S7vmy#3IN8jSN(Hu{6hU0PZ4xgx5;+g&X!TD$>p8RT;&@VNQd(vPe{c zS8P6>VgAJ=gaZDedO#M6hQZU6GCKhfY-S2aWPy&CK=!=jSwpQScNUmuhy6;R4HZ9t zr4)_@4x*Z^1ks8p)&@QBaU{QVk@D@s(sx$^$F#U09E{aC*aKhZcTipCu}(C*AMD;T z10FXz7H18NS({|igPQ*uhm|ixmKBq!MfIHZ+laByX)h4UG|II0Dl5#ygFl6wJ70;_ z^dNHQh*jmU(j9AqvK4JqBmrgcXae|cq=t+fF_>{wsXdWzlJ=^=a9HZKlD`NJQ!uQt ziYrv4__!V>gIN`{++wZQzK=yO&6^@vu3Xbn5)kag7xjI&oDmZBIjnH%L%8YN`o?MS~LOS7{RaRZF$_PSGeTLOq5)Q)DEUO1I zhyuhSS87*Q2m<(N-iU+%`G^G(i${*(DeY@l9VlCuGUvnI_n*0lN;6Wbl0#A0hw192 z%9r3D5`M2CgpVM`6L}j(H%WX=pyh*MOzryOJ6a$zP#t};*KYD@5Q6`%$JOn6A+Y>#N1 z?NN=hJ*IKC#~Ejn09k_2h)ieko{!|>YvX@?QG6}k(U)mY2hZE&q}$Uaf<6cTSqB+o zB)rzpu{YDPC*A!_aYNCNgx97UtsAhrgQcC*E9Hf`qm9))nUMBv-blKA{&1#!_E4sM z?qH^U-aw{(epl(_d5@M(p8rs?baMTY;GZQDPz!!8o6DaMx%~M^nm-?%&YzD}@#o`+ zqAAB*rd=Boa>)^x_t`wWL#gvOhy~1&Iv&A&R+H|?`LYhg^BuoX{0XVjUM4Wp&wRFQ1Tj(VOKca+~dmFSMgp$uD zQ7hKg3G)|)>Lfu{THQ61ATL8E`j8&@F>DPUQvB;QkVK>UU`Ue_JXnf*G|8xC`^wUaL<3+`GyFl+GO3~_!a`}20ux>z&EfNnij)=y;3KOytdl+se z93CK&^-nOtfm1w28%XN0oWH41<+CmLZW$vC*eik&D_2A-!fO4R^Y+T(CMlRfp{6sd z!qUbL64Xg<*8O2Na=`v5hhMpd&KyQ%v!)ciHrT`i@=1-f3dewVyMu>svd?cwF`wxP z@Y~f37m??jkKxUNL-(QF+cV){ku-cZ?aC*^EcdLEY?#9GFh)j@&A(iIl9_VSSpr81 zCjhgM5S8jI4&aqKz5d2qI%^*YPW=ah3#7Y;B@VfER`8O=q+#*8Vc!tDl1W&cr_$ck zdIwf%Dsmb6DEiethO_jGoAR0|c|Ccr8DTU}rcT}sqaks7c+W`Q5cJ{guDpA0%6&Vp z1Losx0o(r!{gB{*IuQrti~^}v*nBVKVZfk|ox(dyBnw=@f7dMbru_1dClQ({H>W71 zGsMDgGj~PeL|IH(_dr4^%O$E*cEYHlgHgCGOTN4lSrgF)JnB@E8iTTU#pyp%C(%#? ztkzs>p7vTjF%iPUfsXj*5mpc817-RNP?!6-60#AsFsDYK-Z7zOCl82p;*j&iS zije3O|F6x38er5Uk?ei`RwbpFRKD5V9uK+c2}PR=wQ}6(JG|nfn~)&2LPv=hi`d#Q zUIuD-J8!YNU<@OGn1EYyt+ctSTMRh8WL67mL$D? z03p(x7_!S6e`gdX{(wajn=B40JIm>YmLB0`M^*-)D9Bq+`=XkXUNZ%{!w}qmG7DLkrW_Ko(!U5h|dVj{!ohb#m!()@tA?bhh(a8LSvSYBA|^T=mRzf>q4|qy;kBi z<0LxM&~l`i@%^(1Xhy4L^lGlPFZwA$3o}4TAkYZO1fQ9URH;*OrB(PmgE{DOWcbaAhRSHc$`}X2>3$m(ORD1dUIte-c;=LE6B9Il^$=F2=rr zRCL#;$Xme(`wl+9__G6y3QagQfIGWD4jd1o#L5v_DuKJush1Vb$X|ar-6Sk|6k`x7 zCWb_lePKXcY2i0zH8_CsC+~SH_}-G`@{@$BeB?})(Il_O1npb|`0fjh zE$cH_64Uepz_&-fE&tXEoa3cicE~4ZI=Us#l6SmW zI%~o5Ce!2{1UEOwjngoAreVvIIl{o~5q~FE z#yf4RT!1|klXO18{oWkNCiqN(E#US^5_9l)%~;cqt^Sk}N`q)cf{+`yRf9x5iMXb2 z&CdAF;422AJETz>H@C@Rtn+tT8RJ{~IY;F*n^NB&ZlJ;BY}ShSYx{H4*qczN9Z%n9Bqqfpq2h4)T;Qxq^p(n_0T4#GWTqd9`hpny)`=*Sd9 zS+q!U3m#eOIge!-?USbs=eJ!8uBhZg_F-1yl8eoZNJ=hAONzV|;p>ONXRS`Gqgo_G zYA8TMrWeuji9Nm8d9$IpfZ3mKGw39KG2dqBx5Rm9FeE9t9PD)Sc;#uW_zC#BP!CRM z>ecx!Ar=m)Gx5e=-4c+KK-Nv_eYv=5{~3V-#b9;aUb1#+Cc z*h9-LOSQ}`O0}Mh*Q!0+pJ%j6d6uF|V;N+xWe10Y95Wg%XU6w?3JbzIj8n!0Mx}SB zIUX@=>~Ru6x=$LvjxQ%`f+ghc4$iF2c_iFy4*3RyPyA(pst7(~45p~wBKLSmcLbIp z|DXw}?aI@RVq8=lzTyMj7ztD!H5Q0DuX$g7W@DDE0;3d3V8}~`RITwO0f(AmNy(() zwHP5%Aalh`T!Ytq?rH4p;klY57DWe1Z8*!7q{W-?$+g&1hm{!+ zsLfUk9GA9F@~?~{ep_)#IT?y);l9X*2lL#3y_41w6Uv%aY2b|av9-g-;Py%%XXOY5 z;T>~rB}(HJM|c5{(hpK`GGslZ4^;ebedy##oAg4bRo-Hg>8L!WZyd4Axi_J`56=k; zsVAFMC`LmF<)t6`%GH*iD#-dl2@0QcX*_)%A2*zmgZ#DHOdFwtSbHJ*I zBgrA!c~2S*306cU5;K*J9nTrhmGW1~I6YB_R64o*yosBi(4x^Np3vc!9-HxhpC~kL zp~s%!wk*Ps!GzHUzFp+nee$Mv}zIys5e21uFzxmSK1d5 z)0JcfsqG%ibcDnUv9hH%bw*#*=yI@6HxzA>MnP}y@DhM zu}FCJiWIm@QUzkj`a5NEhQ`R?kC}e(PE>Vo^X;1$eUC$)hpj?l!*R>fXu;gg3 z=X}s~n+(IaU^;}i&!cXLUaFZkp_Zu1QvBXGa=}o6z?<-M>=h0XCli1ATU}c&5Kg`p zG-RkUM-JfAAO7;_9jllr($+~u@>4ZelK5^ z7VF{e+rf@ijF^6L#c#1M9z@IL$)cDeMG&AmpmARO+7pEqFqG6w@adCTMzDl*L_YCL ze8Q)QoNO;Y#tYuWpYe@BOJRG(i?J~fmpcy=T(kHn8X7VrnpgZ$-Fwag2*`N+cA5KN zh7-S9KR|{!DZLthW2}jJ;$q|}}N2v6O($?`O*P!(; z5l-z*S^7AhYQ`F_YIh*ru{9ISlqwBFj^DCIM_!&_;;-KQ-cU(Fa>F&rlR)fyTf-Hdo^n`BhSH_KZvC)XJXgg5ckU*g3cZZ3|19K9J=tSKyb zqmHM{$>PiP0RZ?d{yDy#W3JZsf#s%OuWp2tqjkzCZ29`04jpm}>PHfuP<5BlPZb ztXp(I<+9N>3r%ZI{Nyi)nTZsI_{stL19E2F_zRW-?L%uXZv;1G*&ckMFv0W9n=mo> zRAa|h?DNoB!|8hA=Y?Z8aFpJh%vo5Xsc69gspDbLxp>RZ3mL~sA;1b3ZiC6K32!B+ ziNJ;^ zC<)_gwnmS&UiF5aL%&}lPwUL;j69jHUXDxRVDBy^02}c6pFCgpa`oBim=jH@m3fs-g2v$U#hBWRi+BPMn!;E1AYJ$iozBK6}B*> zu!UiTEsQ8^VN_uYrwLamD9q7}Wjc$0@ZKC=;qD*&VZ1_m;W1a?3ilLRHPGHn$NGlu zXNnsMS6Bk10GY@DSD14(<>}_LASm7Lo)+}N|2Sk}nL-wpTm)H=o(}N}sZys%{`niJ zjCN*4Ff~&`t_O@xN+`w@SLqF^%&9jF(f1TzLCU4u>Uo}I#01Od6=T@BU_n+Evs`=`ybS=)7C6t6@d%ob zWO=7a9L+?z_^8&?>_+@f7F<%R2WFNe$)4}QEtQhe7$Ne45EeW`k}ise{8WF4p+FcF z;UZK=9>g|R$>@pIVemr4b+3lGm{4t=b6MGZa`!SMRLoMCz9jmf;cb12A%K+!UB*;m@1b`YaNA_0VFl< zGn%zH*aH1tB%Y^x7hbD`fCfwU)T2~JQ5EYo%CIy(&n)J0Re)%Yr?s4bfhTvpVq<)k zvy|r}Urba=tbGlKVBmT+xhSv3R={hwjOSkTPVm<46(*{kK-8UK!x%w>dJma)2e1oA zu|+%LDJYr!K9)3q1>O0wfKOg#&6yu}?YkJBSrwXZ;+>lrR{GbYp#j|IKAL4*)QZY0 ztMQwe1M$cTw#OOBYpip%M#@Buvn0f>=;kSKp_7bn0*`Ql9pQW+@9He*+Qg5CYg@yS z(URcN1(Ye7uwYVyh?ft)9;l5H$%U$;cvx!$ydi$GGjf}KRdzc0Zn>he2QCh{EPLy5JEj@Eg?pIds+^ocblq6bmhI>UnD7c@?a~(A^2we|w zuQcy&G4G$yGh-vqjx4}5qcGgYEY-L}l`j8$rsa^2?N}8=nUJ5HX*o+dvmuR% zi;%4HKqnaq3*J1BH(#~*tjbBJ0;FHfRG6-Gp_C3TVDrJ$z2M+azax&sc&&UDd>@^haEoTiIj z$#j-I5DZdd(YE|?GHGikzE#QEoZ90UuYGwv>+*m`MG8U*XK7kAXIl2o8#{KQuFE$` z4wD&M1u9GJFy3eid1jJfg8W7)*2*g5%wqI0dkWzcveAgVtBzJ3su$s=bCrNeVaPhy z#dl`2zx$B$(-1oRIC zTXmS+Aq}Emv^??%i9oTM0sOt&g&qTQJ+jDkDPCTWuC15|Fv7U!Rbe?KF>VR!0ngg1Tmwr}H4djuY=T z7!Bo}m+HkmQx5P}!lpFQ^=`%4Fas7`1p=34l#=miN-_)SX_^Z;=yKb!x>a?(IbLBc zEN9A^3yK3mAvoQc`*lcAKuT7zGTEP!26d9Dp0|-@$vx_y*9v(=R#<=^49|RYPkETR z#Z@%n;jfpGs<(2_NFGy?6}Oj2%P??tCBfAwT9!5_bR1))w!eZH`H(PCniN-ATf$zc z%sVuga1ZnBCehLr++;fKm(^+jc%hKNak=PpmOYJx$4Xg=4aP$pqTBNF`iC&0@&>9q zyOG^r!6_348g+@fxHR$$8SP7e!*nNEonfSr%4fu?lU-yCg44f14%_jNK zd<1xz)6;Bi^s;ozQUq^Wb7RMhYKo`rVzy0zed~-VygkW97U8tj- zLRgq`b7#d9l=wzc@p~(+!!q$q&I<{H>NJ24A|8sIzCWavL>H^T4&>91p_n!DC-M-o z#^FsVt|a>5(yC3lh3|vVx1v^FQPSQk5wriWyh8ugeHo7d<@|$qmU{X`k1<%W8&PNE zoK_lE(FbS;BF|H@f2XPKLw~19vo7sIY4ACWpS}__kEuLsAqtkfX~REderLx|8Mv=` zpB9@+xc7PlJmvy*#iSC{URH9a%h5Ivu;Yu*or^tr6PEl`(W+nmDH3kr4LTkM6ePe= zT*XHKpF#$X9Ag;8SK^Vp@o(YJDHk4LW{E$2n|R)&xAO^#--(~@F;nt9gaoBQ#5VD$ zNz$^h5&~?5%khUIYzP0ISL?%1|4gVbiq?Mf5iOif(&HS-7bon*S7H!=7AV}5CA`*z zHv9xScp`sSEc{aA7?F*^56ejRni!UZU4?C9n87=5()<73KnvslNE`aDzh@`Ucq>~x zY=vMj?a!b$nU2t^NcRF$a-_~yn2t=$SL8V)NAWG5;K-teN?N)n2cP?(^t>dIuD3Ew zf4!`Gibea~p{}TaAR`|@Fi<{@a($?f2~TBcI6&-kI>ZCl*xC_)DpvPWZtZ~Mdk3O` zSVIZ@{A{MEq8}3aD#?#%0>eeV=Tw#@Gwyn%V*VFYNmubEIIrYs0TG|L^2eNqz1TMq zzdeD{Sd>37kxo`RaK+6AHkbbW0tCqx0CXFR)T!Wo9~1z=#WtK^I@jTDlj(pw*ka29 z$0C1Io^U5&Bp)tGCihlh5sj@k-*yvdLJ0s-p2aHU&Ly zBd^l`+As5BfzXIhAvW?Mv>Q&A@PJ>7O#{lq>epvg;zM7Ny+|$0^wjL=ZmvAk9MPmQz6->gugFmOdV}-8j=nAGxkEXZ@dy`)Ip<*CT z@fWe_#QBfL^W5z5LqFv9Fo2)_abv~YLb{?!kNq&*lV+^?Vc4X<)34pnw>Od?Q>1%k z?3+X3F45!NuBxS<;ddr|=7)-Z@+N#tFLM(wvsL${=6G$WU&Nr(CI1L^UnP&-1F}C%<^Hfs@~Yw;WjZUiNy-lNfSnZ&NG>oHN80X1u2RU^oTH-pM?E6}6~tFPm7#MQ1=;>*l~1qs0n)|Zck5go=;2sfRlI1)E^Xb`KpDt#&n0D<&ta4hAPI8U`z`9OFm)& zkL@_QHFZRhKcKQ-mKl8s=iijV9~KsjXA@I!?;VsVC5 z#(y2JSqRxH{>npYe0}C2HDMHPUA$QDFzH(l(_DZ|_+U!L4I%Q-3K>?v<`A-rHhs#;ol&j5V4@PraK1H z*H6fI*h&L4i z+9BYKF%lh_&f<3z=kOh0`>QwNJ8nH2vy<;AfMdJlrJ)WX{t;49+6}HfD838q%Fnf;Wn`HdJqDYAOD$9tDQ}dzSEKXy39DI zCZ_5PJ6N;sp`d0{m_A3&5AKqOT29upzmo;&o}?KV;H}ODN%~kZi5(6o;zKYyEEyTB z;N9{;)9hbw=bzW5)MUdjOT`>TnBRRew-3Z3X9+2Ym9Qew{PMh|7}KRyZQB0gX86bQ zmR71j7m$DmE|Yd1!-8ullB(rc&CeRDcQ-8RcN!Lrj4QqOyZ=u$4rN9&bhbv7WoUHD z%!O9h!afjfe*CW9JbvQB+qLe>kFf}vn^M-<%8O+;(#?IQ3VB$VLt25dlGxt%MwlZCt zFkMwY#*f#hyAMSgTMnPZ~iq~@zLo!;-AOtaF&figx z<7T){IsV9sv zkI^oOqB+4f-0cosL{Pv2H==w+PJM~iB{*rE!9ws=rP~wqAsRZc zrvxt@mfb2?Ct~Nns?l2j_C-SU*(?L$-cvkRWygT@;)_`p#`Xi?l_C=g!OySR8q*@Y zejL#=OPz{qr5ON@4~B#~0z3~@oaCY9lgWQzgh^2A1QaRD02ygau1Vipi||Ul8rn!L zy3a9+bVRA9dllR!IjL(At&7<=yxj~UNCoi~;VpSP)r3Woaf`x3mt&HusFLi6!Rfw1 z9&Ea799H2ChCSgJ&Ro)sbs>CqgQ8Ugq;N=S;n4|z?QYSHZyjB5K#30EJ}PDD?-@gSU0Rh@S_DKS zph>-3V>5DzRXPEDsID*^>R*88ULV$^IlOW=ryhf~P#Am$DG2m0R7&J4A!Dd?W(niA z#J7qJ5x*oQ9kvRfL_&3)9VSt0-j@*3kzMB^b?Nb@MQhMqLIhwMuY+LfGAnH?FYw zck})Njgs$G>H=@#``FA0?_FX9sEiOAW+8`bRmg2KBfaE}+LYs>jx8 zJ+=xIgkPc{{OJn9uTl_xB|-Rd0^QXM{Qc?NdA0v@Z#=Kk?XHtcZ)YBt{D6-z}ZduLM8;RH$igDD}#I989^!4#_2W zksmh}iA=6n`xE&${u5anDNuUJZ;hPv!bR=eA(%8FrjTIs7wWMmN;icdBvS7Q6v_Dv zK}0o}_i~&5z!>o&>i}&nmpww-ffm$(BVI6>cSNj#zd(zAnYH9=@ZIPyah+delMLwI zkreeTeER$He#PH1*t1q%s`*=d`1{=IojYm}QIpS#u8~)U;5QbYJo6TOc(cYg2C{?| zxQYPwi4lpCEh0wfybsWSE4eF1=%gvU+|dx?9iVgorjgvxvQobQsUr#Bd=;>IZf=Z2PDAUlZ0nRWsy3lvBL%v;M>ox5ct>TT%QjMl#r7zM@X2Z@nsP1t%o z@+;^*c^QYz9c5%FD!VWE2TJYk0L|69ZwWx|KEb@CNR54mpg2Y~99i~$?o<)c%kauR z82lRlpmvl zFwv@%)@rH!=0A^wrY12k{gzu)?PYPO6Iw2~Sz%gWU+FQ#&O!JW@G0ipV?Kq{V~Hz= zL&VZ@(*OQ`R2!3u*99Z3H%UV3v_^)Ou76X)Ne`1al%{f(bUJ;Z(v&=!WO=c zJy!f2Ui79M{6=BHMdZqYj*tqfEGm2@-}m@83Kin(qSAZDPrkwWvgcGUkzC&;*neNu z*us50N*sYj8TYJ^3%#XOMc03krH-z*PECgmcv7US{#XNhMgp9Y-`H*L)*RuiaCd9N z*7JCi7W8Wiz7@8hj4cq{05#boub>IP)Q50b@-G!~eyb8?P9@+UI10ZF6u}Fyt-wy~ zEv?#_UbGfePEVs}e+>T<3>@WI6E_(hOOT6T>q{5&_v*~^A#WV{zC1a#*_69C9ug?; zL>RZqh|*(`_v10PDATaX3qYfLomD$O$D^JJ+`r8lTsp65`?Mf$BQui95)!y|+LRA! zA>3XxaC1Y^tGMk?8mcd3uAkQPw}k~fNKc>9gR~w8X%i08*>Lpc;S{~cPSIs{iauhe z=wo_{cIhcPsHZ4S&CV4#RU10)s%q$HncmRxOyc98`1r-~%qNfM&dY!O)Em#sJMK(0 zC+;o?em>X zaO8>u_n+|I%vqzCh9x@pYlQ{*?pj7w>9MYE4Bjlg>K@ahYK@l%C+Y?HwJkn9I8%Qo zzXBkNYL+Wl_a%(s4ILNKMHd=6o)&sw8QzG5FT670&TkdrS5I``WUs>&>g*uAUUuJV zlZ6Pj{`6 z%8@x=LyFOLz%yw{K%-@nM7h(8pcR=P5d#WONsr#v2Mh3l?`LsPqw#U3rEvz%#DN`r zkn);Gcv?;62P5o)6Zq6`i9q%iJi#meR{m&{_=bO$XFVzbQNRyP2#1OVukl(nw{%9n z!Col|44~ghZai?RzkzG_i?b__FlTLn^~nM#F(l(G{zI>x%ynnn+^zn+Zd#|ms{rbg zoCc2e6l|WhwQM~=z9(1<#sTS#13*SE-iHO_Z_1lS z8640v&AJgWK%Dh>vrJE5FA1eat#nfY%C+` zA-%|VvY|K>fK_GR$)rlzzUd(34e8#I7u`S!Ch9a< z8=q3g_89~`AVQ?8orEOr&RldOpx0S(~qUlUm!iPx8po@vK)DkNy{ci zRZzc~s39oukCD>Nz*xtsB`uN2bL z@_UuQ>dD}Abh8wP@x|0v*^e%a$8QaxQ~|Yks3K=xE6~VwR^rt+z;uD{{}Dv38>(NF z@78T@EIO6Be#RHSD<;KDfk|=d^#6cwzDj-XHR>R*FyDI=A>+iy6aL5V9%Eh5zBrt- zFB(7g=K7e4=ENOpV@%gj@;&%@NQ@cE2pn!~SwF8~QTMXOqJd0%CO)_EL%T~mABqx5 zF4^M7>a&d3qSiRl5%a?xKF z7KkY3Tzz5UOKo`Jr>c_qFRGIH@2Zmdn<_|RCgbzR=wbdv;Lz9JBfs4m7m+|YWD@DX zBoW2p;9Q>7S%+k5U0ip!W)Z~c&$Lrk%!57-Y|z@(@^8&*`QBewnQ?KeV2qu=sAqZ8 zA)P^Pq3?ADs3o?^}W@i7u1c5&m=R8e@Yu9Yxs z?$zedc}{5J3n{fvHqlcHOQY%JY25^moONg>Z&@d+0MLyLj;www9g_}t0tez*v^6OX zLG2o=rEh)$ShbopSrhrXwK)tdRKuZuPw3-Iu;4v7VXEQfYG~UTCz_4&)kxTR_ZHZp z+?(#>H9I+Qs7W#+E_E1W;6cYinuM2|c9Tqc{Z8MK3CWrpu0*s|u5H z-XmzY4`#u&7_4jL-`Z=$r(F0YIGl%Y-3mf7V}86&kGABC=oE}Z-LYVAn$nCf#8zT` zFyiVpzXxk`r}0vy;^=mv9aVU(MhUbk z;yfy$gr&k#`?Gom?o-<3U`eg|3uz;!P6g=YM`ft3kb^X-ZjRsA`J}{F>Lva+AHw@( zSTlc7LY2Vv4IKlBnj(_7<%QUaKTBmf3p0ji7oUD@g#zHvFAzgG4 z+VS|eu2QD7N!Q0hIdtb%GjL(f*Pg_x7li211-O-iQajq(-AZNrFw z)gddiv1M}w$G0NWA(Wf~EP?lMXRR&1$YkA);#Z@Yld{vyxUZFzum zAtz0L5esKOE+HU zy98V8?y|)u)}2z@`9rWcgRN()k!~Js#X=tc41Z2|x>e(3yYPZPn5Rb8D=$$`HVol_ z{RI}`R6Na84L~6w(Tme|2`@cqL90?vt=67r==mDZ%SCmlZYDh{hT?k^Q?My(q?&TV z2|ww}u(Z?o{1XJ2UoA6_VY;Qg6FQu1g^)H?v!aUB+wd=LBWd1)(2AAHO| zqN%GfH?D>Ce*SZ^oDS=D56fd62SRv)M`SAlz8|VTZ7g9G1Wn*8G|Pv#DAHQ>4>A<8 zpsj{s_32#Fk#Gm|m~D6l3&Vvs@e7~hYWv*hSUQyfv9No9p3(-AV03F3x{us3S@Gb? zxGET{tmsZLgnB9#sZ^85$qY9sET1HAUD$y82Oo^*7*Fu z>YpdCl`YO(U)=spL7L8q&xaGxu;^t7nrX|O2_I(5or%}U5Z>EzQURvw_pCO*XO;Oq zE6wj=AsbwxL34?Q%_SODm#9DirjEKol^3NWr>bi-o37FHaq1e~o$z}VKe|8X56x)2 z*dGd>sWKh>Qz9-=;0~qp+@Z#fJ(3BfJ9MO>rDuM6QP+}&qAq|=8b7q7wDa4S=et9P zfM*c8wz<-rcE%sl?W^g@g&baM&}=DauEI|~R_SCuX6fWL2G3ip0&$bAXC_-;O}5^f zZ2dXedU&$+`DBg)Jf^&O?N_JY(pmRI`R%s4S;FdG>Rd;2*7<_OLK`}cX4)6T=ZQvo zL&v#v(FI|97qda8;R1nbd1d&0&J+e4OrCIXX|XPwE%xB<_^qTXR{ zaL#S5XjEXEeQcf<6*)IF&FZYZOR8pME;qJhNrY3ws#b|EB5?cps>YTLb$Pr5qRy{tSNj1R8WZb#t#^HZ7OWvFo-qASP+Tf8)ai&5=<0F5od-hCr% zY571&7_+^t*`A{W&r#LTvY{e$5pSzy>rZIBy>_y+KZdNg{0b$IQ9Mr2>9>jha~Hm+ zygOdxo269p|Q@5;K=)E zoLD?wOFi#74;BDS%)G0+SCzp)WZH_At(kE(`kzN)no?XT(z|)d2L*d9xZq=YPzzLz zT`Kz78(FOA1LgoUFi--@d>{ifht@?TK|&M141W4%6&3M{E9Mk3h%K!^_#3@w()Y8O zc^2LnFst(NBWnRJ zDij1^bS0%RNV|NU(h&?vZ-nqu(F~WO`hI=V-FVuR zj9&uzE6XPCOt22XMRD1B?Eo&pC};w1gqy{OuIMIRVk~kz(?PH9igZyXJ|8{xAjFKP zYu#$YqMrGg>nDEaD`NTw4gm_wRNr{IRF%y~N!qb-rT6~xssA~HKcfbJCN%ihsKKum zb%$Em9cpne>=XOljDOnyf4w!&{!d(tw^($nD%0V|n;JWtPG>p-cQZHz_cnfLsI+qh z>coO=tD&PS9Zd4s4b{CUi$PV)qSKMmr9x0F@3#B#slmJH&Wa~s;4d19q`OB7(-*oL zJ1Z7RT}+<7u+-3hP>!|t(|)j%x?Sza__txU;NP-#S{G}x)OYLCAuObP!_{j20q7EG zPZtSbIad4abTtmtFCoNvTl7D^gEi~Fd?$w{)bG6$u8;eCQ0}2Ow!0wjFVd=4(?EO` zcYE_YA@+J(#hctopTW}IwcnQ9`J$f6|Ki=!s2Q8}y5M7i@eSt0*S;ROa2Vmn>fYZo zg24?-c=wB1^k)UW+zC(2S}DppFBN_tUWRc|oA&uq@k@4G+z=J~#c_S>C? z_F2MzJ)jP*RBkpb?2_DD!{>UyG}f`Tp{Ps35+K@cPs&3NmUjMyLm#(*{MQW~vz*4@ zqwRN{ZfI{AZD{}UNM6=&xUv1yLyhe%gN^N99%yX;n=Z)$J}Oy2NdV521YpN}rt`ix zmp^}~>As(8y6;~!-S_X3?vq%LrYJcIY>=yG7Gw&ha@Zse!PgN6F~%1e3oEZz?s>`*${d}rByqW zeGP`}J_}HhsUo42OHU%e-i%w-!DLISMO^lFIV9p&sAGVP;2uh2o8Z%0JELMNtg;{Z z{{glE1}!|xi@XbYtu3K0VFdT7xgslJ?>tJlr1rq0OHlV(Ap~O1GP&_BoprZKcP^7N z!WQgdVJ>J_1vyzhN3cflZ;cqX!;LM6M2q`~B5a&xi+NaVOe*yitVV$cIJ2ihTTfb7 zmeh8Z35ygY|GYBLg1v|oP&D-2nrg}FQ+A~cCrI10*dSgiqjsgGlbYrd5r{#PJR z?ujJP$cVBzvu6k2lCsUxs@Ei#Ggy$1jLjnX7+e$Hr-VDby2;^{%d`m(OA~&ORZ;kr zSf04Hqb>SD7T%nEj}?F?)m;QU{56J9SVbsb&FK)9aHoms8^JKlceOyyY4T0VAabQ9 ze9MH=N_s=`YNcu_GStx&wNM9qNFg$fkwV)iMf=eI<;774ge9ms7nUt;0 zg&hapPJVtK+&9z3HEt+XU9AWyvPS8;nHid+R`tnj_Lz?Q-rNWp!=NfnZX%PD%Cjcp zvlC-5^yx5WKndd|iUS$c48%@!@?0ZZa^{tjBG{1%9ms4A!6FgnVW++xN!*|hN*Y_% zGniDb!TBCejky@rilj_tO_Iv&+!~6UE822vF1?CaK~t+H5E%xHUy6CF%dSQ!3?*1- z8)BrfWv}G1hrjAnQQWd z<_&5u$E~Z;sLMsD7L63(=%}UwyvPzfOlO!YZb~LOqfWs^kSI+;0&0{Z5o9BekXn4P zxwAm77KWQ1QCdT186}nbK1PgW z4szMdS_y~rW;$BqQ^QU23le^F?x+Ec+o3RC!zjaH9oDrB&hFD1{*y`2)uVVOR;#v%}DwH z$s6;b?0|%|v)qQ!-JN1pc&rVGRv`^^fG6>d38J|3W+l2=!plJ^xHP8M2o6?doA4%l z8Xu6I+M96K&4>VG4QEINwZWVYq&I0Qo6Er(kVXJq)f?_&jO$1oH zUeL6Ijm(7kPvrJMWtnw~2OE_$M^aF~Ym|2FLEtZ~+4NS~MuX95){4*Af}gYc8Y>D( z=t1n|DS@^i{fynKhce;*94c-32>hVDV?<3Nswdyr$Y968F|{Qw?(D;We_iW4`mx_C zy=19?~`g^EX@V>Mken6J@y5Kq-6Q#>Tp z8%5Va43{uqmNgGS9<9G6Iq!&=<7RK?nN@~*+h<=~6Sfprkiw%nf0#74I9Zd*$J8FA9_y|Gl5YGM(Ev&IPt6qL5wm(#Ae z_jjWjx*N98-Kd4`3XBZOF*2x1BZHc1WKi`+2GyiwP_s33H%~)%OEh%1O!d7U($eBb zG?e$KhVmZMP~PJj%Ijh%Pa+i;!J8$X_qpHZ;vHX@@`v@lJ_?BQh=x2W3({AJ(>`|~(?0LN zPwdMS0%yGPkwU0`Rb8a|B_s0LWe7OMGo7`+6BGXd62#Y_;OeXM(z5MJPPx+X#%2F5 z2TZzqI06Ik-@}+hV0y=YCZGL$8W>&)YdG)E0ojo7!_*f)t~|`WKAlj8cqwf;LnegpYAr0s%;Gg&xBKy0P<4({(6F$v1 zY(o%pQ(E#iGkSvW)}>U6kX|NCF)enItiXhL3P}%k-lxzp?BVUr2pHxWL$-IbP(9~-<-ct_UKofo1{u}b>nI>+L zzrujeJY{M8`3*3K*D1yrMDzXO5p+DOCG6@ziAUgPb8LxQHMZzUeV*47213;8Tdq38 zyAg3o=v+KZ5Qob`1DX2sYBXWCbW0@-E1Y3P1Vl*Hn{#$3hE- z-&TWy|3io($|m^?wm`i1rTO8ky-h?7oS!|Sb9abh1MxUR3L46YR0F0b0sm{och26x ziaW+99$3jqyG>_vf4b$>=1j|l8qB?SW7@qNllSddJa5mTF{H{*&LY#!8pIYMcf3lT zIDRGb%qjdTDh_DYRoRs0AjkiodIfx@IJ=yQ57l$(93p3lw>8N`_zT>Xq(H_n=i->Y zqzTvc2@QI_LW5JoV$EUXT5$ZFwBx7L%h?L^rQIC34J!dN>pQ>~?UoFqA8J*L4>m}sL52L5On4vwGw`Iz{1J>Wyuz*0WuX(E@ zloqxV#uw`#I89L8)gbw zjg)S_diuA@R%<(Ox@EWIl>M`y4^pI(Gd}iVh6$cReE??X*%_pGz@W?Wcqf*}JF!^{ zO=bL@+@KSLt{lR&Oz{=a@d`LXr!-RNFNWJ~DC{qDQN!j422QwVhFStmx|6od$nCbe zm%6%_V#*v3Ype1mX5jW$ZB+xKTWiUfr%5x&6k~XA7v^b_Gm3l>hw-sUme8Bn0;%fs zraV_iv*Dze%f_wxkj~AU5S+t&hqTJH-_)Va&gV-)`{E~$=7Qqfj{7M%fH3r+EkR%K zD=w>j%k4ZqC$sV#=53eF+h|y!&a!3sO#GbHr>`-Wis(DhHrSSKxlnceR0thh_?uR5UtRNDuFB>9Gg zLsMGRC;#S|5oc^Zjx{MX7v-MdVVpvqPN4Em23;jpTN~8Y^Tt2>K@wjLeXy_~XDj4v ziIkBqdK3QjgIXo>sQhAx#Pvz7==l!ccAMi-(=bC&@#`OiZ6esQXon-`5k~1*)f8^>H^V2j{eRd{CEK8&-iHLx-aHiVt8U zpEj_5DeDThlm6E6q3krVW(Ij|7$IPlfslYtdJp%eSmb5)Jt79trFc4rmE3NIL9R$& zo|?{FVEKO;it`WSRg?$LQQn3sj$V(FbkpPm|972^TCE9Ic*Q^AYovS`G6>;c<5izo zp5X7h>v;H&PJ1JVHlV4s#AV*b}#y`&&7Hde&D}LfbELvD&%1_>mUHFVQ<)1&Kc6T>_ zQT(4c3dR2@FXcfgzpkGhe?Q+CCRwv+{;;akEB-UR%2@*IxJ^pH)SEDeUm6ezZfV>y zZCoWD>5S4fLebJIeh)qjhQNaqR+a}F$4k7bMRF_bi6@TgD&Bzob}G`BI;4~E9@7ic z?)hWkd0}~;vZs=yJ#D`7-{aH%QOr*n{)tOJi0@F*w;YXu3X^DKjsJvvJOm%gd@i2H z`yIqdP=gV=^pA1TAw0LL;uR;kL0Cg2+}p!Mv17t|QcvfNFTw|Hl9K8_rj7gMv_jVK zdov!HMk8Yvl&g@dk<;mzs;U5o_^OITjaYiH`1AahqNx@*Tmo8asfW)T3j zCPGUl#bQ)vLVs;x!C30ujfk*n-}u&@F`5I?(#L>rU7GF~z);s{scame&`Ez0TyPeh zcxnYBVz5_TLvTm{)VeE6MOycj9P938Gy|z0DJha#glKn&1D4d8LxS8{oi*Q(&>-ay z`jP9T#j;;I1YVEcI#zat9A6(1{SD-P2Ciq?1D5hIn#4%9e_k4S3>&6!sdxjVm2h8E z)e&TG638`&9mYyqkrwdIYwe*&2B~YfvVu+GQH`94Uknx-R+O*sVh)sf#O8|x1@mvZH`@ywIIhY4zqdk zW`R=di!-b#0pZ1ol_9)cQ<^26jN~Vp^V1tZd+cL4TBgj9Tnvrp+Hf*Z;1FxYLG1`C zZ)be4f7d$+S>%0E=A_+6p;)SA$F_F#OEO%uN!5_>h z%8V)R_1T= z1IXIWArY36o-8YGPvsY$A(4tVv6g?6yO-K3G2x5}KKdFKKPxl!l<~#=J1qP0 zOJ)Fh(|#}&cZ{`xJH{(si|^ss-iu%5ES>Q$wHU9JFpRX)-hl)?G*BMJ+ur#3{5ffH zE%#R>ipM`(%ZJ*o$@8G$-@v7h@Z4_0#@~eR`m7C@FE{;cZT^8FTA9VS^Fsrdo(ZWjqk;~?hebU zBfzj5&6H7`@vZ9%3-sVPbCD*OPQKy=*K1O}`hVrMKZ-ektH+{oDB01>Pl7SW8$X$M zu8U_)08Hmn@gMP9XhFF%iQ+QNHitJhd9sqIT zO!}uOtU7=qQ}pu24&l%!+k-C@nzrS_SZXT9Q}d{b!0+ zAP>~Aut&DkbhT>T2hVpzQ27NM5AUqx`t%&~pOb_i71jKg*|&3KXD3bt%nsc6Hs{Ww zSVZJ(*2%01&z^(1Ru>qkLU59(xC-_o3H-A>$djrg5425(tq1%U0-x$UYu1N&zm2rL z^qw*xm*7SyXesN;H?HCZ>FZ|{e54TB%qmLV&}=Hb_wcit#ne>gYD-nFvQ*_tOI5B= zn!_sASR#u#&$5{JXclvsW-%Yp?B(N{z3kHL<$z`_2Q_Osq*=>hW-Uihf&7VF{lPo_ zK9{e2!nrtK+3v^7Kbl^2Y_=psm#KJ-jW_c%k#xtNOi@?Eht8IEt}d2rU|W1%Lq|_q z#Rk&V>%epjg5zZAKM5cs-p%Xcmdp@UKG;{^L| zFuE0i-Fr32C&t&);g&e{CYiI8xZ9yMRG=I@s)i0uK7^KWBuKESNW~gakU2_pJ-`XI z9a*DM+6IdNdNu166fJ=gwK6uOi}r}Q8U1#;dMnyoh9@r1JzWAa0(iRc+4YgpK}w2u zS?=-d@hkX;Dtu?4MK-vX}9AIn{OG^$sqwt_=>Jcin)NN!=Pz8q&Qcrf zTQ`UDS8eh6H>*5I@E9cxozb_6)K6#GyBj*5YN$St?ySXzk*VH|hdrO}035cGq?2WD zYp4eG**q~rKEQ}j)w`CNr+hF@;B+apr_MC;_AjOO;>NGSj;6-o6-?<6GUMgh{9At6lN-@ zg~2SG7TS{F#frEb5a421)HnMRdN%0!;H}7=4?nu>57+O2qN1r#DJlqODM1C#dh++L zZzviNFKS64K|&#vC0e0G6)fUu?6|$8q2qSp?i+1rZ^^6R`SNf>``-*TwtxD+tAfXh zc7Sei{-_XW78Vn-onz|bf)9D~WipjIw=N(6!1?Rx2sWom9dYaa4WXdmkGBSA<0W!2 zFp=MYGMgKak&<+72?+H|f=emH!QX2znk;y~BnM#2(-HeMyh0r+xN1s*PPq+V4je1_ zu8ITS5C4^9fcEYF+_&Sb|0-d)(iM{R4!L$3kt&z-bjbAaHa_w35cFxSv_Dkf`USnHI{Arp7icY0F6K$70b%lu*3sNU?{e-b~L8wU&tW3ewk zWvvxfNz(mEa#UICoOTK3=rm>rSOE;a#-0%nLkR~c$!v-a#^<}GL?+g*Vbz??lt!?p0 z+dB!DrEB8NgrkF+zKvr?M*>qMdlb5jH!x^84doZr%DKHNIgwRLj>Xt@LrlrrL40uq zhj1!JPiRcQuL3lOJ7j}$t1r^UvVLSwHlUX54qcL7l&LC|7eciXwB&wFBcYx=Zhe3M z3N4uO-|P^*+?ku%Ulf3uLcS(S|)kyCm4!4(3|8TAKU>fw2OyBVrRE97ul@C;Q}Or z{jPzIf1BJrw^A19A_2ZaO3`HdBCx1D+`jN?bZg$~m@nI;?N%Etff;T|`8$nnPuysn zPo`zi6pVe=cy$1*s+HLG{Y$l%r8RiDrdyP$ZI8-?dlYa}W!?FERJUI2;yo%Ds`)nm z_j9(J9>>B*6%kthhc~Nq-e$GjLV9o9uex-m|X>qGd%-=l|R-~PL7e!=cyNNeYfWsJ*xzFl_`9s?UdC3K%(Dc>q=Gepvx3FT&i#^zNR?KBI2FBgEh>YB#fj{{ zBN8wXMPiw~`z4w(mw%wr?fz$pI=W5v6lQ{C#e8nIR06eZYfC9dk`(E3V>H=TRJ@0HbEdCDG zQ{DSH*0LHzWqz&r2y#GSm0Tmt%ITJ+5RYyRF7o&w9|Yc;SM&bh{q4H1%6eJ0L$;OHT#6H=f~MWxIcjaMS*P%$o3#>Dr356C{ode;;SPY@ zhx;;^F5f4ws$aH(dz1u#S)Vx*X74_D%IS80D**i zpg;q?5DIMrLrZ9B^M9Xbt#{7^Xpf%nIp6R9*UzV9X3yU5es62N>-sDXVm5B3!pAnH z@(@NoO)HN>gy*C(tijw={egz`5hef~SN7MFRhvopgY^HHI|&USwJpMY+e~5uG3p~V z47O7NhdSgrX>7E{$A*cErH}p{udux2^_5f%6E6a+4;@jdfFcnt`)Pq6ofVj3Iv{J{ zo_hXlI^p8sYAq{PUUn`WC&RnXF0hFLg+5+$W)o#NIr7S-A7r6z8Omh6M&auASlAp4*WZ@5`)ni^l7e>;ddAajAOgpx90%K5~ zl1E2P;on4C6#G;SDJ>ipOvcRfb!LlLz1*f(%wvl>z;{SPBhQwG`fQZZpiFmi{Hw#* zxxMO&px0t*xI#SBB|XFB@y)tA$0RzZm9Bn6jzb`=ZB24BPmR{2b%aT)LQvdl^CVV_ zS)78YDlr21ZH&4RofLKt1(})QIynW9N*5LOz>HGZK~ixLpqYSa9BoSDCs~D6BLTQ8 zB3etVjqiG|f+dEEiG8(-b@s8_1@nW#@4_YHIi!^tQI!WP&In;_Qyy?6W)8#$8VhH!4!} z>|1@Bo-A;ZBgh67go~w!U*zn*U%ibInn7L%DDCsPqp1vKZ6Q`{JX|hF_8D2C4mO}@K<$(WXTr&d3>jQ z;0e2kf)|5K)bKJhJj0g6DF&G8EZO=;$QozZYAWWHMjZ!xEtzAQi&HgE7JlO_^yWoy zu&+xe#(wTBVL);)YMsC?Cio{uj+dLpk3Y*}o)^ib!uQE@oq`}3;&bNdMlZrHi1H1} zu3ioayTV^}m+zHJ4oQHO#>$|~bT%Ug$y zFmVXe@*;e1aSD9i=&_p*QV{_g785(Cq)2&hO6n6{z$207)Osn-zddRZ6TZrY4+YPp zG(F#Lz;=Q)UWj0DH+?LgsaZ`3fIlN&CT2rSjes)~zUC8T_b8@F>Su&N^q|%+a<;qeOa#(jE zsu=pKu|K~a%1I?x%bp#3f!uD0@`!f0n-ivCPRYVT+<@Qj&?_S^3`sB%j>p7uxvqH~ zD#8qSBFsx%8;yb)b;uDKeAeM0S1KLukjsVZ`8RPaH@17;&aw3knS}4~VxmK-Z-G2r z{(zGU76Pj4QF5T`1&9Et88(N^MdNq+dhyKd$}ym?MI;>ClC8Y2^E5 zD{c_oCA7fW8aGIcn~f_JF7T9MI6QkIy*onWlwan{;T;h?$TcMQGHtRHgv zNk_JqDlk22*su3wnXTT~E>W^30I7~D&Vm!`a%4S3IJ-dY8VJ@T=`!U4FS`(QTJJNMu;cpw>llHT5s z`S-yqGBwwk|NFtjAF)oyW5f}hR&;r$Vx8o%H#)IQ^}F1rS;HoHzUEndvGg$%_l~6x zp}u#l>PeRPc8@;AD&OwW-7NHtg;%Kiim)x~eOV?LGaOXX`W+Bq6q*h~TvK}VJSQRw1E3uE93-Hg^1fcJaNJM5nyrT5sNjTx03P6Vs z*z7t2O$oYGvYHvH!B=h8(N(A+9hgz5#+D|Du3ciNpL7;ykG zC83Hx#;Uf(7#Gm?2KQ`5_^tfg!2b0Dm$1|B@X1b7SNF8Y)t^6kf8Cf@|MtMC_t%_* z%jmcg+lQOpf!zk`Ye;8-t!SpUw;|BqaPf}P%+CXMlLd2|EWH7H%xtK5(-ds4c+<3A zv!Bdn>oMC2b#WUqwMD3ndzm?YPpFTJjiv<{QsFwcWpA)y`u-yK z*7S?Bh><`U(@}ilM&!9W@pYml_gjlC>}waZqUk7=li}nY@NnB^J|SkjkLLEVSQzmR zTucfA(Ow&UaaBds`m|BFJo!~N+Z+)SU-AZN?qgY-uzFRo8h+2tN~M6PMR_xK&t&bC z~p(Ysh}h@sQPY!<4| zWiyLuBZU-sRxe_y)MMz({#?$5U|q0h_3+Ut{(30>1mn|RHrwzZ&bsQ4H3W`J@XB?s zlelZctXAo;TIC29z=kn3Meo8S*0PMVmL-7(BstmwJmcJXSmD+l@yWTf#3$!YuX2MP zVnZK78|FZ97ejpew!VeZGKX?_af&3uzJ#+Nb{=@t~&~Wjl(#(Ex zgG3%TnC48#lx37NjEJSTgC#U%!bRW-hWeZ0z;wyfd<j*jv@6d|IM&3=9x|= zz8^^L15qAWVyFKA{TM(MbZYK0n~6XN7g}_K$ra4@M9Ig~SV94(m_(^*9Te+Bu4X$I zVApK({0P~o7Kr|q)ME)P^-vaqe4zRQ5AzQ_`ylq_1@_#V477%wQCm`lKYloCAzUW2 z;9b8hS;>m9$>2Nd1)wZNgT%AemBfT022fYik$!|zLl{U#noUOXVP8~SM9JcJTdy2Z z72x!FSv?F|QUPO@bWrHdqi**>{3e+rR5R7CLg!j7V3yb=%meVPg;)86Z>)*UT~$eF zym}fqh@7z7E4}ni+;iMU@i6`wb`R4=Jsq#Dq7ERVjph7@zcJ`1W0L5+4@y))sO+vR z^EnIy(Cl$QxOPWW^;#?o!U|`t>bq)Z%9k!w=rpmPqd8A;qFV}F06A2t?U*(Q!WV!6 zeiG%TfC7kDdgZEzh!)lHz#{Hge5-voh3eDdRg%CJV_E&k{{&N6`X)?8)O?0p`$UM% zXDVK}HTX%>b$Rt~pFZ}M_)u3~rB!g{cd_cgxd## z5+7Mf3HLuQCA;Y%Le#8o!&*AxP1F9*V4-ldjooLqMm|2&!$HM|+BoQEdn8{ug+tD@^@Q$Pj?k`D$9~PL=XiA#b`>l zqhkz3KP_wH=*Ec#=3F&9YXj-<2)2_xU(2fGqYdM{iBD<}-DrLAzS*K$_G#^*N(~Za z8FM^Zqwg#Pzj2#v{!1>PPD(_aI-t&a+O#$dw19D5*-#0uQ_$0^YNepa3R?$0I9fDo z!w}1;Xszgk8p{mD}T3r z`kf7N{0W=3(%XHt+CHQ-%nXAP3+SfosFx+kYdt*LTR_&Oja{<})av0I+_#*=JM6jG zdntl3qEZ$19eFM4iq_Z_^}-@Y2XsX>F0x-%G(1|hq)NyrvckK$CGvc;JM$gy8mvIr zrf0-%xJi<<07#@zxT?5>7Foj|IQ3rMvfQ5wt6L%A3yai0vR~iXEu@fG;T0;`N+)@( z+UZwn>=+hdn9ltH5sg)9zkHYtM*WGRo;xEyeB3V^z^6T6)&`L4Wge3+4qcfbSEd*< zIfz?54 zOvN#8mv9yOk*;sHO81bhvQQ9>v-KL^LiyxZ5AbR`G26sc)xqX-UE^zWvD>?{9@z7c z=rXQJD*$onF4h>>d0}~NtHjVSm*^#4*B57*k)+DVeLHo&U+RR}<#9tTHNuTZ0_xM2iqUcL%5fmUwIvGh2e=w!&M0 zlvL*;SIX;FZa7&288+8Y08mILU)K4OpN*1h}&$Yt!4iRH$vUTM8Mp46j)fj*9O=#pdG>DX4HUObZHbJp?H##greXGzAj+2=Z%B9icQE9X04O_ZwLAYIcUjC|5 zQNOQPY=X~AL1~c<>>Puu*ocIg@Q8}^eV@W#!5!GHEE=Fds4rEGc<{t4?7z%D0Iq`e z?NJ~#Cs_a~S-nzG#hm-JAe?if%M;FfkFByyylu0dlHMJf5q25+&*eJl7&Mydc*_@FF4DGq11V(WfFP>UXpaIwHr4pR$LYh2QrPpXUkPCH{|)z}pIDgtJJa z*%Dem76OZ7h7WO)_imQ0ycU$J1+diS^oZ~<=n9GT=`TvjGQP7~hTOQNjAZnga4piI;A zW|z&%@eJ^XiCC@&hSDT=mogMJXwNWDjG=+?3-Q)&CsV*lXUa;#=a`dNHCozpGS! z(diLlwdEi=N}N^j)<+vw;B3wqed5upz`)|Xh#m~aVC>#6IMe52p*Q|$57 zW{X6=UsyYYIXLmyfEG4Q8O7=;sM!tEx6N*t{#32CZ*2!{(4Et8O_%0DBq?$nVsEB- zJY)qYMI`*h^CZh+GLeZ{Eh*|e=9QBf@Sn&{6kqRmir$TiyUFT{2z7V<327SYw5l1y z4abPu`;Lg%M&>h>jf+z&JjP=mM?6J>;#3fY&!m=7qJJnmnc;B^gl|7*k6YefC0v6I zGb4@F>YZ;k4q+A%TfwDzOukT-D=2f{Ov@wc8C8t;D=PgAmb5`x8c;piAc24?J_HT` z!i0NOLzEJoo_=!`vy>X9ud0Y$vu&ZZcUGDkq5KKeC0@YCTBf}Jju9^PWI~oz)aW!u ziCne9EBkbjlzrlonDNA}>Drmk@RoY2j9{H@juHJ>>jq&p#pckQ)j1H}p`mNZ;D^X7 zrfS|TT#L0I$}xted54B_fyBUxBBhpSVxCEl)?!^jkpYiera;giMhVsvJR5)%P|Jsc%*5ad$VQ#E}_vO0fbr@ zmVGvasxP4@kJ`iEb2#N!1w}!aFAYO&k(;Xj?h$s-(ta}hk-RY5;DzjhMB#^KvSe&8 zXG;O*${0a`^YP69#cv?1B zj|?5#M}#K~+GHI&#&)#tWnoeJcpc3&T4mP~(lKlRvEAeixJE~TP2A8Oe44QcNgMnqS5j zwyF8{0Hd6ic@lA_@QjckoY`7Y9eIF;Iu2;FEgI*#Uu;mCkRy!?IZ2;VPg&C~vB(N< z?o);28DUiG`D~{>VpB?vf+!?O)U&Ow!{lBXCa?q=>5>C3}+n7_oR_|*uN8*sXfP+5tQ&j=5aOr9;NHLj=pI(4tYgSN2UNmt5TwIMp%Fgc})(O3T zk#Nvt_`@C|_yv?>=uF)!_vGY_9;hbQ9F>E_G)mjl1zA3IiFMh!*SsWRoB|_1BV4o- zTE_IjnKFi`*6f+hz>~yU&y4ZwUX@eoaoltCl2V0I{EPq`uuFEo@G?PG_#iuQA*nVf z4GEiJA1_oNvcjSWfR|U%E!D0-IBLR}5w2A!WxGWLYmtINE1`MhVeXQIf)o?hSgx^9 zD#1mxj+Bt<9#M62Q0`PirZR=gi3*MC3O?~b4}OX5a0O)H{>RaxNHQ@D9s z22^tX5yf{!X2v&sl7#|8dEpyR`*{bDQ_GLxOFgZZj0)X@@1@C+@>illH5_-P{4`en zYT-L_io_f%~)}MByPVI@#)f1wWJm9wRI2CN}brZ_iIa_{Jho#znHfAD<^?KaXdKJLYq5c z`=_|%2s&CBl@#EbFy5pk@$s(I>v&ghfr$FY^kq@VnS2|y9C>9_PI&;WVk{HwSSAe} zOZdH$s zV>)j=$bG#<`Q<%!AmaaPx9^ff$>bjJ85z%hG&{~VYsbH$1wLVdeDRPY?0(_Ph9-*S@N<4GRoWcp zUa+c1SYm6cZIgKt)&hMcq^zezM0{P#sdNf5x7b1@Q6tf&-V*qa2)H{FH}ndxQ#S-i zrpFUwD8nW;*nkfap9D=-DF28uvUc&5ui?d=!Xv7~S|2g>q{QH*)>&Pd|}u#=6< zI}ArPCNJ=mguWCOm=78ne{?t5P2oQNO>7XeT#C6vEM)Ko8^pfTR-Vu&_%{mmLhC?q zVrJD#6(%W7lR!x8-{+}) z$GlVtnvS!Y2^bM9$%Irh9xW5DMM+9E*;lO_Ey7ZhJ1odP$Ka?>3lN+Og~d54okoBQ z5rwe5Ky(j0l~^qC4N*h`Ve9h6)pF4HVox>8Af32P)Z=-`_!E7EEhGtUhvmb z^K1!DBY7{mnsrIGZ%;;>{z zYOz!~`>1=o#yC*~b+bOE2GFFsy)4Sy1J=KYx<;Ye^KhMkI=s`n>r(La zBe8-TRth0H;~&@sitLo}i$O54PUZk6OUXb(IfUeMLy|KpS^api#OWYF%#39%E;#BM zqhaZ3s(IojNi0;Sj0UI=?dBz#fhMz!%ZPQ+bYI5FZU9QF-%%usb9X)qAVQ1wUCD3UdZW2ked9H??-(j8j0+SwS7|2#-IKt*p%3hIKN` z`Qj$d!}E|_8c8;jt;#rsLwrho?epnw^33BBE3jL{L|ALObSburnAc@Z*^4R2Q8XiO zP!tNQ21YRmwdbsqNn>1fauB=Vf?a+!xZCm0)@gp#77W;_#R%qyXV{K5l0LiZ1ua}E z;0r|eEW6@ryzBx~Hqq;Q;tKQ^nX5u?eGH*kre9+uy-Q#kji zTjc|mA$e3IsJkI4YN_3?%I^$p7+$MidL^gd4t2f^RjVEVd7vUpr9O4Q!>>)2m+s{0 zvr43#QOBPYfqmdfbP5%6#_!@K7yy&QUwG1Q>ti%)^@_sn^1Gn4CJTS}B%aiiQK@JW zl_RA^Heil(AmeyfR^T0mhKjYFZt-WZ!OZKgf3Y&uqGrlxdbzqZb8FCt3%d>)%# z;Z3yoUh$XWux2%t*O{AIz|9JMGw9@ww9=HGW?-}L&w7{=c+FBv3q6)-`3Sk`Gk#BW zIdiL@JWT}0WZ~g0vJ;nvHI4}hrXpj_W=Mk8_Kjj17Aq+(py$0_>RTko{%(uXz@zd( zGnR*O!1m0RyvK!p9fl^J?NQ=a&meyhRuyLeV;9>{XL>@assKkoxWC(+Z^}vC3ea%T z7QYtNDf!?Q62z#pv;0+mqRnd=f1~_b_|46JU*6fjM7h9nSrQ5d zA-+wQS!9)zUFzh>vHI%q;mv-#(C^j8L!13WpeUs30#dnJu+s*(4|JRBoIDHS8mIAQ zJxJ&56)EW{?(y?!&t&Zp8o`K|tws+p&|%D|4oD(Z5o5mESO*s^DzUIG8!1xjIrj-s z7Kgm8vqn--^^B(YCoGx`BVndIB^a&?*$lV}TTx+MWVk1vcAUA<4 z!sG8n+C-Vp-dYGTKc$whMvb|YqD6vEMU2+vQ{U}`HQ6bMbOTzAC4>hqn(Vx}qZi`)% z(5x&ASCx2%1BN4ya)5XwH%om69_fUSYEd6TH-s0j7*F{op`9}}ac*Hp8eX``p7~>6 z*{GEMET=hHzK4HP{i2|cTrZakH_Cmi>F{)(n*qpE2|)^}W%B(v3MJClicD_3XN*K#1)Q-k9tXF<|&7r61!bZ1hZddsK!Pqh0(U|ArQ+8~j

vHRohdhsJWZZ|J|Y&!gjPGIKD&2=m=6!ocDR8z4)7(K)1p9v680r;>C{N6Bl#oE zkzoaC!>9#qmt}&VC+)PG&6JmbEjij7hu|m3u2YMs5*G{n&~>FCfkuGZt1NAwrk6^?p^YAnRc5JvZKzF2iw(sGo0 z6pMzi%xVbBRWMnWKPTi);?^WgoGulHL6cHwvRV&T{E!Gm}x{EDC--zxLribjYSsUF690r%S8kX{QpM?q$fvDvd_KdErCN!woU zafXLTSnrg`veXKNx`6|kn>V$O68}5NKicV8qEL~@Q#}rxI7kWPPAsr+Pgm|Md=7pc&rB3WMk$95j!=#t6tqphNX*zUD-XULLub?!g^q5$nB8JKw z5yFRg1m!_Ho=cTP_B6WSF^=C_xqkhr4HtO$Jv2Bjmrf3~S#0)cJ0J4|DKtM(=}frL zyJP92L}mI|L)skgEmvg9n(}NGjAmaa)+xLWnZ=>%tvuj&YC5{*7$-6dTet{)Bzj-* z`cqjdK(|#9>y8HPUxZeb9VGU|(g*lzXb)q39n?-)0C&Cz+IO4+Xwa|p8l^c&BHW85 zA_8%=q{As$HB`^0D?SvyNNXcb4ad#cQM_`IEpjmGC#(Eo7r-dC%E>LbmyMboiT|`XXzr5Id$h?i)pC*&^oL#9kW=YqnK| zJ{M)EQmZxg-qb;6u);e}!Yg9B3*1rH|Dxt&R@(K`u#Mr5*&O0AMkbLn_^ zzCz2?YAz!JHVvOqCAXL>!ev~ss6SxcDfvl1lcjQU=?wH1-!noox?ygXGv zIDtAi7O2a^3{?mCuw`}W2uP2BENe z^Xahg)CV>Jy0$8Yh)655mUD{FA+<<+4pB2HoU3N<;k*)r2?6Z$)Fe?RLN(~X*el!o zK93*FW>3^nqp={;hBHrHGASwhp$y{Gd|~#wT0(i(!iQge`xdD2=!#i!)-#Z-~o?tLPda6`n;8wAU453lju|0yiqQff4R-C zoCPnOZ(n$ia>Q5FH;!;*Q-CJtF6)%b;s=E zSHv77$G*hRDM``*x7jWC7Phwf86D*D3@RN8ZaG^yNTUA)Ags}(8qh(9s}@f@WX+>^ ztPiD`SW;!PHF%olB|;q;r!BELDg@U5>#qM&N!NQ-qw6P z>RF4&f9&sm@gtn0k>yODqIBP{$N6504gz?wMTp7uEWaTQYMp1HWdb>#bK(Rj2XVx# z87h7#LQkt0c~8MfteCM<1{2ZI48z@8DApN!?Gt|Tr}HHuM*6=pXZa)oi}~3NEGF0l z3Eiz)$}jOT#0vq? zN92o}?1<2}rUA0N*usKnex;5b^Hn z9*G@&YAF6tJQG~u6V#v-YCq4TtPrc}BmU47!VOJCbw~$LM2ZbU%%M8BDH?_@+2ks2 zUKG_LN5?Y3qF8!$JQF^f2pec_ddrc^GG#HhWlzv;*;^2+8ososp*z?56yWU2U_3o3Tx4THSstf)Cqd5YOPw2v@b4G2#Q2|aeAs9#+jxCjPG*lGnIDlDVGh~D4B#XOBBn^X}uMFE^^Ox$d z*PSv=xM<^ZXR>+&%zEvLN1vc|?l`+N4BwGnklJFKWBH5f<6aKal@%B}W@xFMAxzFv zwthxd3g0Em&M>X7m$^lrw1n;?hyQvRdGyN~(nTc~$87ocmiaAE5;fH&yAbO3Wm6#rJIwX}3H!4D))Y=ls4 zsBEd|8N*%aE{r$j*Z*1MimiY4mW*>UYQ>+WCFWwRE1kSGZ!_5SdgDUH=fwl@@CcXqSN_*{u+1ji)l9-&%^=(rS#xEIl^`X`hbP%RK0V1E_Q^>m zNwrI9O@&#bTM@B(6bTD)7#2a_)k+sY#PVt3VHk|Ra5CQJN2_z^+xQ1galV<;&F2@t z)o4B4pgS~7-!v{Zx3!}o&<$K){1m_V$O7RaqdVND8Q~E)0nPbTX--ERdvWu5v_1P8s`_#8H3T-sGu1r!#(4){aSYg@ zEqeku_geM_&9SG)U$;H}jKgh?J<~p2gVXVPCio{Sh3BsFlC;NJgb*etEmuaHV2txMj$}#j zxI$5&F+8pWe`2&^KcU#r7@iuHak3SAZhg8;({`n+ud9*|UYVTnI;kmOb4fm3Y|q^? zzN3aivBwyoWhHC%nj(n~@8r?Nq}ug(D_z^cF+6~6lhrnB_-#DKcyqtPKGcMHSXMH= z9FM+DPCbZUmUL*B1oe)8sn3PO$U6PJXqtPuagg0pmHKb;nkbE)z z{f5uO8TfSAc8|Y&)hCHR+h}pZqKIeqWobKc7!mX~%AB61b{?Zz9s+1rYqPfW*IEsy ztqA9gC9IDgecfj&kMkM{LoM6i=mFH(Sin;wXv2KB~j0U$Zv zhJW)9qC0-=52BlSDw#$_L{N+x3RtBV)&Uk->2lLX^(_?_D-IXa8MfyeB)Zs(cMx^3 z5_j3`8e*#~QVAPd5%}TQ9>hZeAWxz@Hn(LQpC5y-haxlrZh{ea#ug5TVI!#PF#MNG zWFY^sLy!#Q(s`2`uy<2mb))e?%u52y<53^uX6W3jcx5$EeU}XIB8he1vO<-=Kaubr<{F5MDGI~eWJdt9>d5;pka7Gvzz|N?5ny>LpO->&f zO{P8KYxkJN|ArIK6klgP+)x?Ml;OjbW#$BU3{M6u9P!-@3)o6o_HM(M3z=5NTHN8Z zd8AY;_FY+R(UWMmIBe_sZeuI_w`LPl88=yeCJA0w7JDu=L4XR)4m(3LAyVyXB>U<( zdk=9MBohs$!)wXhSBMRYDuQN|lpRH0e%1s2iil0esUMLmvQU#n?%q*N*JU}OE5rH4 z@^2^MVl=n26yjXY!Q8CYIlQu#rfG}aTzqcUGoXdf%@Vg+tMYZwxgh~r&JDwCxk0(N z(N$Fiwq6qkuwj1WzS{f5E7Nf5NiaEOpw*YS(%*P@yoC zh$^aHo7I{OSJv1RQe^cdYlh`b48-W*IL)*v|K@*+gRNgH$#z*q@VH9Xsh2f4Y7Nmx zh%+a7A_)dOw8)^H!b)i=35PUaf2Zl}_|~rBI$UulOKc!$lOSb(^fA zBZbbM9Q3P$OtI8VDXqf?l06~T*pwwxg6Krh$@!*ef z_L<+|UeBMqi(iwYT7D-1U+Q)S{Hda4CN@YLMC?o8JWlRZA*WL@X_8x%&jkM>DKv*f z)(8dvB=d+Mlo~>szmOHHf9iEikxfZ4*T%&HNXV*P8>`ywjv4!qLhYC=;81>DGk@@9Kb-lGTQ!+KCI(F0P{o`nJcJf|Ip*cY$>chOv2>J0zhFU|Q>wS#uMsun0TIC=X;p&4c&&Erjt z{oaY)G^_8wIum{NOdL`)fVS3s609Y%$D2f!8v z+)Nq3uAJ&+I9SYwihJBN!K-TiikXVD)hycfVtzOa;Qb_rfmRm_OhgA7l zrJnpGJ&omO%CjkW3JGwHXvl2>DHkd}Bupd%ACb*8->1f+)k2U*1o9xUNtxz)xtrWU zF&l#|7D9iOnYrt5oX#=-glqs4ICt_z(v6Wqi~o>iZRL6!^pilh))%Hh$Im{`anmbhVnY>>W`|e(f|MC5`$I#Z%S{)4>It*jV+P`5`rR@8 z*m!q;;En%50DcK8cGY5lo!g;U+08;SOMITpXz1mf;d%CeJ5E6_5EX5UQgfrn(2NV3 z87#ePl7vB*f6@%nt%9$8_(#mghN|r#A4@wzFH?pYni&ySS^~|W*Px&O9_?6?k-{5k zFAl*OzlIODuZ9;pc$bwF=IVzPt z3HsTCXdRJ@lKUhjfxw@zfp3pd$FZn)sWvTniFb9&5qqiW-4gTKs0OQbS=dS^d^hfZ zPXy==EE#^ltEEp#vpJ$=hY#|4u_6UQ=zfW@4K`M>!viV?g^D)fgvY7(h(EEQ&3<#3 zIl;dWDq|Qeig#oMRvV{s@(mUY>DNk7Q2=x}!EKsUMI^;$(^@@Z8%?K#m6_CT_Cj+ljZMQm`k%9dCo#FqWBFJW8ckNq26pJFEs~w zL~1goBpFjn&jrI-DW`w5baHv-2O@avFP&U6=LZyvAq5F!I805F#>`4MRIsB^(37Jc zTOy(XMlwRS{;Z<-Yvs-s@pz#ga763d z24BnTcd{_@P8J6&8y2C66`ZQsEgNJO0Yvqx?6~o-KE&>^wq)>cT9TvqXKHddPKicZ z2-VI38LoIpWdCiR2ZWr@^n6u0%P~IZ4z70tuV)#5T*lg`Wzt(pNXe16^ObI^owxHBQpxMfWNXQ5Uk#(|&vYRcS@LoMVoROUma>fYV z0X`qV&t-FCfnA1=Z~K!G29%HYf&t$B=hyz{G?L}&pb_>RR|ibabSFx>Vdve{R8HdO zA1cf7^CxaR1wR*Kojn^WX`wr2gfKUKm_pbKrFXq9VcR2H9lSjC^*k)Db-tj?yCNy6FtTe> z+rjyZZ_C=Uj;}UMUthsffk(n)jK&g|A^nIjD?kzgn_@-cgN&pz+qB|Cps?^`XrCN8hv<6C`C2WnJ1hh@3nuRF>mFAD)AnnRKS8lQ9#5T?C z-zDL0iS2yiOhJ5X(abscQZ`X}2M=a_G{FI4u11UD+!uort$IjkZ7b?ZL9T2Sev=hx z?n#BC8vfIVXuf!cHQL~es`3RbGFf<)z8qak zj;iIe&dhL;Eht@Y4#qsoh4nM2P@8y$%rA!$xGTc?%&F?IuFpH?$$|H5iwIIWY%ey23w|nR{LjIdP-;{;T=DH9ZiZ0*Lj>tpQ;4}>VvLz#@Q9V54rwC{@P@S7Y^cKS0M(*b<;D$2{%0h!R1cL1$V-P^=hzm z{-4OjW`~`4rs7fhl{4Qv?zX&C;ASfROcpn|%5b|U=%%jf&dIAre~bk-rTwLoTOv)q zSb)KI{&)b{IR){+T63Mhn_tZDxGul1{qH~N&V9*$?QL$_^tR#FjW>S8ty*Jy4QrNm znC%a)Ne4rwp-Y>BMW!*^f_dzwr`)tT&nt6WX%Ve{UAP2~ zto^a{KpaQbp$6CuN>67WO5Xk>99c+#9Cf;BIaYNH<@%_Wq^0f(brPiR<>?^L7?s!_ zSDhsVc{<2r@=ebzhOzwqUY=(UXwj{Qr)dqXDRNNFVEn*LNk1BU+r55YUaZ_~M9@XU z;~1*%&o8kR4cC3`9+=~5pPP^gemFLLXNCG9kT^26AuVEcu{qlFN;Z$+n4oMKE2ft_rJR`Si7Ev(FuPdV>6k9aWr!_n3SvdvPY4oog z4?nSGygi+T2iNm_<*zg)Tk1PF757;rRVExp!$sC+)+}cbm8H8*P?lOW9DBX=WS2x{ z(~O@}lc*Y*A(wUYm6iBh(aYD>Kx#H$!wktOWxmIzWR%mo#JtQbXrjOK*zVUE97L#6QUyETdP&bw{w7jY$7{Uld;0kVsz zRkUBOQJ+rG=$GAYruafRz#(Ql5EV}fWMX1c&J0)Mhnk18tX!Rd=ZBSs)?nQAoUCNY z`_C*;V4`GeR8nP=aE7nHEVV`tEulUn0WZ)HNg0=XCVp23pkM^pjB zXtJ>ESgD4h_#sRiCHmQBW7NY+^+_YujL|eLT5^y$P=4LLbSn)1Cjasf-iA)A(`5q= zg7^#6Xy9)eb;+50JCp|}MTijix||sd=3xHJjBqinHZ}vsIkNzP?L;)5XR(cDgoCl^ zD=H%DPJ^v!h6FThkdr&CUZFTd3ml6xv4>MqiJ+oVY+1}oF{Jtf3Cx2aIF&)&sc@wL z>O3deYtB-6G12_d<`Fjr2 zp?hQ%kgun*ta#H1`_P$}zeiDbmBiCKrj*So=kLa9eh1BH*n_Y#0HYD_ou!zSSo@iBckr|v%2IDhM7VcrjcRkDzPlI zQ639yl*fFnOI|ro!#tKN3W6HK0V1Y4Vx>mdjgW8-)^h%09ZWB#!^g&A5W zoVC-me!FSrN?$yq=%BAb=xvz3t->6#|A?ir^`h&1S7eHB0^6OPF&~3BflVVq1W26k zuz=RM^HwZTKdfZ6uxJ6NG0`K|AUctr)hZ(N=QH@OY_1@7CQy(f^$uF$jNVag5fa)I zA;GCxYkkzts3R8t?Are5=4ds#hvg&c$Cj2egUGoSE|K=mfPBxs^I z>M9xk5(hg_#G)OX?L@ax!p+_sDL5blF%w=*hxx1Q zU>o%efniS`6kiIX`JWczkK)~xoE+q_#xrQ@h!|>9gtyr*>-4fzpn!OjsQ#PzH&ymG z&XyTt6k6sMH9A6=Doq^J&P_Z*HJ2hmlpRf$)Nu%}QAe%ewZt1bttsTrJE+b^Q3|_a z6Md_UA$T&%14!{YStt$rDikOFCs(#dlh8sl2vkMJsYMVu?*|29CjlFV*%sC8e^6%g z2oF3QxFa{*CUa^;kTFvA7(gP)l3TNWpN&nwRzAavRDMmC_wT0t^EOf7577|!S@}hP zZ;IrY9hbEziRA4Tb7PwZCJx|DlW!9d;j_2N`N3lckU%SNgrmb4!PM|1nGa1y8!1nf zpL3giYiKGDs~t8Jzv@m^RQDt8O$3gLA}N*R)P|`pQ+6)daI4=IRBydihQ#=sSFpw_ zq2t?#9n>;v5!{Dl$!P_YJh;5$cQvV={9IP;!-**4)R?y@abuKMmNiL-?Otj3iy#K0 z)FGR^(B&`CC=4N#M7QkU6az*oEfn&oANmUfa3@(Zttq!)Q~d>E4}ly$_G*7Yex%1& z^o1L6FgAs_H}G;+#%K&Eg@NW_ztEIZl|f{bzgx`4P4vpE6e>9G--_QwuuKj z@1SUG>n9{jelHgwSncIJ0h+k*mv@Le?rF%jI!)i!M|Vip>UUR^f#{sC$*GJ%9&HT;WG`oaXB8&|A zmdR0n9`yUXp44c%a-2Zrh2OqiwT+6o$Pg*na6Rv3fRP4zym1SSJFqGBXC()8IJn?)f4?%U`q{2acA#1abym5|AGSOn^Nyw)O+V6IlWjlA4{7&oOY~m~I zP;@L(YOCPks^XJu^;+l={>aegc6K}0rNm~H@VASYkH`@*$w8OWa~)@fBV_=Q?Mxh1 z*onn5I5q52L&Q3N{PjFyDYi&%q2k-5P4OwOgB+MboZiD3=4=xw60^E`kFA&ec&KJe9fPiiyhB;KoxFOyaR=weofC$wh}_@VLdj3#?{BMC6gtA zxja;Mc;|W$&lbuQNY0*iab%IaKhZ20IBFC^ms8gCqZsPR!ui5d?8B)Qf`WTc5-*sp zGD+Zkz>hY7Rpw?R(E;^K^TW@&kzL{b3{BGV5JH!02^KVwnR^LFcLsk&XiE@Wu|0lw z-GG^;D{<7i8#trKacDly&&lC`zCopk--z+W9I7M4c91Ojj~kR1KY$NpDhYGPe5Mbev_v|#kb{j;pEse zZ}5vgE3NLLfH#pMqT+0UfsH*dJ8wru)agz&cVy>mIW^ift}U^OiGgX_pbTcIPYpGlA7*p1)E7X%GE<6FOPeHFl_Xvlo-INTa_v6ce` z6Ef8_`Nsy^kPYrm$kfnLVP^Y3)M1h5uQ<~UfLh8Pr{3VaSGVE@H?UrELEAKDV5`P{ zgn|#0PKL896p9C+riO;a11tVN))Ii%0_*?jmL#xw{Tr}j%!J#>Of{S>Q{Ac!6VwmX zP}OmH&e>9YW^8cHo4&c@&EJePS_YO5YY4Q#GxJC6h=~k9LnxX%w|xXnMs2d+e)e*1 zzkTEClkG+ECU=C}G|>?p1MFaT?sB46`x?@HZhA-QUF+V)_^@Ga)f%^{v9FnEveNTrAwr<;0n+`AH;7?~E|-$2^6egL94fE+zW89QacKAi zx#MAL92z-REa5yJiY^43jTAkd$ z_Bh;8y$ylESj#ho?(_kp@jCCPXNE!3Wfev!h-Yf*8UnAlnd+Ne^D#cXyN1q-tkkMb z^u#k2H^(!@NW*bz(;}Hg2*%$+p;^R%;x@%CXq9CSAz!%E3B%yDgPAt8;;iFoTgf9B zusRh7)B*B>uu;l@=AVt$iUcjC_&qiTz#55KwYE#2WHUXlwKAQubE)Zs^Fj(3PxQ3f zc`)>cq%`hS>O@BxcF zgNL8fUIH#LRUI(@Cc*(2Sf#q|8Z968s`eNLmt?aJqk{o+Tt${AFGh^he(2TGy#&X$ z*0WBbhp_TgpDTk9?0hHu5C`c9=#^75Ol7cOI-Zu@$3axXLlTj=`s9|ZAP9BuU3mnXi#9<3BQ7^9nirpIU2*lg``|=+-997j@AZn{S667<*&a2n&?RNmZrPoX z&)ck%Z@W!<@uFwg!#I1`CIt_*kLy$vZniySMr$}Llfd_j#i9?n&dXzLcb?caetik>J?IdV* zq{Oanf7M1!K&`$2Vo~lXYLHtVd0unSs=Ku3~2F;ws3EV;r;rmeA)jpJp(w~=zk_%5IB;HhJlp9%h9BeNU zOie^qV~v_{pblB&j#0BjOUqqSPk2w2_;wiR*%AN+*v^Ocg`d9O7T4=Tr7|2N4lhbBoa>AGsY4;Ys1f z_?YJSm~Kdz56~gp;Wi1IcW+%CZ&E=rE%GNIQSRVh;qRq)-}|x!HWO`fsZ~7}Th()s zRXrD4)pLPWJ?B&P6ks#eK_#(TBX>1wH?A2T1UU06z?lLCP$yO2E`ZMbr+|YYUcmmG zzA*kXZyFy5&2hx!$fO~f>T=ao7pbNSPp;92rp1khGR0F4XS@kBc5{(BQ+p&Jt$s;HdGJ@Y;gnY6!P&! z4|)kiE&kF_a0yd@9>>2<>ExI2_q>JxY#{{=f%X5d-yqHN-2C5ogKbsDf;KsrlwmYm z*gD>n_Xcg;LF4k0^@4-(O{4z;SrMvl>0R6cRcj_>Dt@W4hGs>du(5__DMR^v8s_!s z0rbhxVv(KOP1Ka%WaLA;WqQRf8Py!B@qJK@sf|x$BGD5+k>3(jriUMx#%~0Xb4G5TW+`ZRKw>&#nSVd-w!Byn&x9Wp0$Lewn&n)c zsr|DO(VvxwfUglmen#=VQUJ30evv~zs#tGlE2{5~SO5t5-Lb%+R)W|MuQZh;$zIH= z8uSdscsbru$C;6*^0G)a-4^`)C$1MjDknpju8IX{?T~5|cQgbbuYT0<;Ssbo zJ7+U4rz1Y5=j6^?{gi`9y)2#HFR=&D$uXSGS~bsB#mU+pKl9)1ab9=PSJP$F-EYr< zsd7+yYsMrUKAZhC*H7qtYR8a1cjxt6CU@QcLcdR%Y18e$-t5gX#_~_j^uIRE`CaXn z{!0Hk*faJK{lmD-e3;oXJ(UQ?H#nLTJ6(9Q-{)-$ckYXZ7rpOw@S^462lPO~VN15O zoowmYgiMVXL92S)Otp0d1~(Y$D8&fxk&!xLr7ONyfx|zlgPxEH!p`tAjfDSuTkHW{ zs>-|}#{(i>052fx0b^|Hby^@xKZGCI6cO{w8dZ#(0x8XPb~Yl# zRBG?k_{Jk3R*CaXWMhGCvbb=Fsfz{#@U$5C)(H?`C?L2(p<={drJBW5b1C#Fi83%h zg|TFo8|Z8W;&WQo~ls&tFw99M~x$efpBU^6<~EVdCt-((o*HHHzPdUJ#WAgf7a z?FjbT?!RT%*=gzjDZBnw{WhJxZZ=roHen;m`^<3AaSY{O?>!p(mj>`ZGWWm#{{P|J z+wQKx7;^nq8|b0`=ETdKtdu!P^>Zkv=>4JZfkAXgr-diJaeQ#_L?N9#aW8q|t2v&y zJ)b86>f-FIWKe@N!W|l`QJ^DtP9T~Inc&+bHZ2SHid{Ld(*I)dd_yLo=aiH1z+0`H z5&X>9U%ozX>|~BL${Z(xIZk;i=13ej%NGqloU<#(4@cFXzz^f;oefQwjfgdU)^X5Daezt=h>8k)Y+!zw-n_&mM4 zq3Jsv4Nc!~j+CDFokz?+-+!RK^t?+c{S}U!iU6+j($2aV)`A=75b&Z=Z%oweDfrI4f3|A7*7?VPFiU zdKcif87;>8wHj^Ctd4Q!?s1I1pk*91m}I0*3)&XM!vxRcezlvtVI31|#AG-loXFBD z9g$>_Pm+|mShF6&GLbLva+tPa)`lj_woZvWQUAOcW zS|o1_g<~qM?6=p4>CMG@Gc1x)rme$mvPD_UuUJGFi{y@Er`x1pEA=!=In~P?K@{T1^eyznOnRoIk zYa&E#ZB1BRP_XEVOwBV5(>GVdrth51q%9+B3^YvNS=%tZGsS!$AZ9w%f!OrT@!0gv zYGjd>`MGEpWtlA#&C42XzXJP^*`Um27JwQd73MX4NN4sn&oP9loe|Y-^(?$QImonz z>BkWa%_0UpC(Ute`oXD~;JnGzYRyb+>X3~rA@N)2Px^#7=OlhGgaTQ)S&oM*Xr9Y= zmNbh`Ldt|DI)-|J;70v5+L;t?#C()p$a%&AMwifE7#SIYT|I*EP493VM<1;ma>PX~zGx*?yOlY2$v?37^88 z!E@}ivk)u+Bk4!v+ym4|dCD%&OV?=^LW{O~M{!h^Beaytl&r?oT!|Ls0iNr*=4ieT zo}2R^dE3?|FtfnyYr-jHE}UYNoY@w)l>x<{s0fMQ_TK2eBWziR8HQc?cvNqMB-4P;+(W&y^7d*TQ-7xMe=~nS{|n4 z!=Lj@BSF9JTXq1mv|!Z8X9rIiy($0g?>+Nn2+FJHPok@t$n5 zp$rFxV7okvn1t}@h)JkEU14!9{+wUOm(*GTt(v0LLO9i4pBAA-*T>>%@8*P zoQa`4Y_G$H30xusBeLNd4)9b*+*f^P9NBScVJ=tWURC?{2IA0v0Br+MJZgDmx87wR+BT%3Z#DZN zU^$^;4Rv9=j`T!=RU&#~GD@otQ38^koXbMD_*qYDluK)cLNFFZ6l}lC=9)QBTDix= zh%m@+NneaJCe^NiG>pPwrEzAQCQCkbrQc^>kn)`KxO*k$#>~OXY>ojDQ4+wYDAKGJHul)NukSZR4Setrty_Y!s!IPi8Nz|ACF2=q4Msv zexK#`?Q4}=zoZ{VKDSnA>+f20cSo+$wLsJ*NB&-F->%_{jbhh2Rhh({@@(N-aGY7C^Eny% z{`2+yFRrm2bTBg_I}h;5(OC_`*+Gtk`6}PEMksIF8jsy|%B8|({F~Si@dR&b?IBk6 zYLUs`qQ2V=9yWo{r58oSZWQzE5kVud!EC3gCq9;v^rq1^ch?bdOTdcOXgp1s;RjpI zl*6u*z@8IyB>0psL%fruMsWUsv})dy$kh;rS1f_#p43jhK!Tq_#kY`LTW4t~3Kgb( z`DBIWX}P@DtN3kNo@HB>*e~s}7^&~f3UZ_qC;SG)1j8>A<}Fc6dhHAXvz0t?^hf|4 zZ*WLtol0a`%?9nzC@(aMriXD6Q<4~&5bFf)^*)8F9o{~Sw`74}UejRE$gd>RYp9wIi! zH0<-W6NR*9hNlTDYZRU{RS)1%zniGU_-U!`JLfgY^jqAa^!q`4u<>X6 zwa!ASH%Gy0aw1%3cfDpx7IsQC-sISQx#G9WwfJrKsyxy~W>3jk6TQvnK>B8^p-{jf@1fwyafXu15w7#R)EWcO3i@GPN`pc-05y(M`K6FqmokQ3D)h#F9%GyvO?yrnEdv9TL}*?@)C z`mH{BUTO^8k>d!VYB9Z43XZD7Qu>KF<%5I<9Fu9(%MoZR?`r z=*t=poE-ZJX<^h?+C4g~)u$D^>r!Bq-3JS`344q zm5N9t(@wL!W(uZ4gq2Z}Bj?Ja0vbL(#*(_^WFOZmyIj4)Y6y&x=4|fDolQ)e z&pV(tC?YYlrZ<{hJ9CK0I>M5#+`UH5OoydbQc{06Y>(WvO1JG6n~|KOQes1mY$`C^ zsSZ6wNx?M|kzVFdOh+KIxqVU|{dQ&*Nwx^Af;>kkcaoF~No_rmV4LCr@n3m)o5Nc_ zDf7?#{87t3DS53dFf#Jz`Wp@cr@YhUzAnS@F43_H3-980=vg4xyJR=EruUUCl@~dQNAg7iy6x_k$v5CVe|{o-z?G)p)Z2I5-cBc9&SfZ7~?LUT=tBDZP-TJM$wJGW_?<2E%8vo!`# za1foMZNI5;p!B@PzS8q%^&sp7u_rEKPbMO5Ey0kJ;g^kL$jOvDthtn%g1R<2(Z!Y;^?>Z~0 zV##`S06M`RlLcuSHROumgDf4MIxbEy1lt32kFJIltY!U_XCQwntDtZ;wd!TijfRxb zVtFu9I(ZXvixef zX}f9%$u14i4-KO<6RHMhF08vm=<}GFm77e52rSc@f3&>&5`pAyRU==hcp##3j9{;F z7?Hdi%9a7YKX|htu{}wn(GIS4$Mm>k1_0w9*wPSKiM@39*ZwEUZ7ih;2b--!eSgh9 zp#X{dl*D3%@z2W#KJ-N1{tusW|39Gnzb9}1Ptg4zuiEHpj49AO^Y(v7-v00YXZQaP zBYFGZiu5C|jp+WTo<8d9kz9EibGe4KHu~)LFB+TM@N`9;70U#%--8dhnc~m$n7u>% z9!?pYK}-;-__398&vaSn!KvN>*%+=K zqF;gcsbmrsotcioLlSOK{Rht(!h(sxV=M>rI0C8Dh2th8c%=umV8#q^e?BJrvnI@) z>2PO`;LaS)omt17IgvYa3Ul0TiaWODJ-RKI>9$;=+wu|JmJiFe#3n<$%WwXc7ytLZ zf2m&5BewR-c+^YUAoY?uY|WRxH>sCoYrp&t)_k$mk%-3{KKHT=a$TL^UtJ)dwn{#)m5!2y z|M^$H&qD;i)9hliEBzKAJGCc5pvvUf_gqSTiX87(RjMI;#rV@|$u9?TIk}Ko60fr& zgb{uZlbN|jGKwL8Vdd)XDSH=m)K0cHy)RI zMHS5vtyFgWaT!66y=9+V$e~?bcZpnRw$85AkMlkK_WPs!E=hsr>qUA{C=eXAi4Vwu za^Ny8r36*un~zg#Ump(uJa&Akye3)xW$7bx=Rl>-_-8)GSzt*yl=XWlBBz%m#T`_Y z+dslp2TQTfk5CZ`P_e<>@$HGVBa&4@CX3aLF-Bls+J&;?skAoUijF(iS| z8>+rpU@?J2uT~sZ{iEX{fr1%QN~-1%?yl%>2mmeniqEp{6V4*7`_%CI|D(E3_CG`a zXDrL3|9Ah(_0pt{%nlGeXg?>1k?#Bchw1(Vx~IU^{gJ%#Xz=E~<1*BDs+Xh_))y$g zB`V?F#fMSF(vWiPAGOX?&0&;8qus!=gIf$MxJ;j{roz-`&#K@b71@86NAJ9WPPh&h z_-!Ha8wsVJVPlL*I>3NXbKF*bL?oJL6>qf2p0&91<`hl+0& z-&b;NEG-q=u(PF^dJt8;7WpkcBt{VyW7@1nnAB!N*(mM=-$#pZRI-SArbi|V&(Thn z^RHC15mS})Xdqj!Sv|$gLN{kmWF00gnFhKk|9@F8?aw)SDS6kwL@)b-mR>gG(aZl% zUBNe}mqb+_y_hXN2FE4#hE@)&o$Ce=5b~042&ZN)f^%-s7!jv>ZB$}PoZuQkyG&L8 z)%=4ZnKg7Bh8c-g%-q{Dey;c{{yiTgLGmzLKZuh!5&oMwUqo#v{C*7%u}+-4W`A5; zBiNM+^>|f{*g-zSzaHrII+RHXQ zS8tR{8?+c}nGqS+vn-u?;VonQK5hBm_>m`TT%PFBlln?&d*t{rLuX=?_Ff|c-YvI{ zzd&y5(bvC6E{`geyLr&=yGTa?V~1_-#fylGe;oy$)fZWGF%L1|F+P+W`}d3T7l27+ zqaM=+$!nx$^2j^oez=6n{vg&_7M)}L#uSx>!f#$A@iZ_5*UXW6aL(8%^5kw^y!Nby z&S>kfh_6r%w%)Ffz?UgMkJn3)za)+6imjjM zR*tJ3tcTKqUiMS3xLMd{?}QV}Ouqg2|6_53{Bud3{#$-3JZrDse=^(K|YYs=X z)b=Xb15rVd$nuH>fNm4~L5pUX2;PEk6}JeZxk*FcU{Fc0RzkC)4y{tcAwK&iMX+ua zJFV!rkiyFwE+ld9=HY#dS6@}Fz^g$nLo{Yle7Z$F(OZ#U@DH^DlUog3pi;b8tV58= zR;Z0ORQy*_%oDr#6UByeF#)U*yTY}#!&n9`aoinT*ARG0jl2|=dimU|5~UOhOPLA? zJHV|o&o%_Wa|^$7fjSYtet|*+9}=gJA+EWf8X}XtPMP!ruiy;0m)aX3^HHkZR5p|IXak^uhM~hm3X@KR4FTOk*Z=dRBU3( zkbIQ$FFYY1W%z|BBh+M$d! zFFa5n*(v=2)C=g4Ae__j%MuAWc3^*ngQPEZO$*pajsS31quy0qWaDXYb(+MA6TimD zGB)Sp5eW^K=r4GGD(qAI`GFx%dC3=dNKjbTW;}@7Q-8d9$TQu{s{rDi=Hz(zp(!oN zrvaEl+%o1`wHHav^Cq=gY+?1pv4TY;F<`a&maGh08 zlRC^CBAF?3!z2ymoFASlv7qx5`O~3WCnk9`OS#u=p$W9a3>6t~O_5m*oE*$fDabwC zWE41^gxzkF#nBQ$p$rdo>qF!0L+Wd02yeH!L4u*zXeQBK<_gKZ)d;U>Wb%xCSWWVb zFT)18L!ug51W!l`cQKq*0NU_uk6(ka)oIwG`4@!Zl6;ZAp;;v6%0a&z8bQWQcji_{ z(6z{MZCv(d4Rs97rwdgX{gJH2yxK-9{wacpr`SR^(@u=bmMkugSP_3}TLiHu(Vt7h zNHxc^k_wRvPfeA`=~{W5r0r?5>_;jOYDfZKwR*ln`DtPUH@zQ*%vC~oTxnXYZRlj-3)k~O`0zFIhaQ|2vOJ?bsuO<;;wra$5ZhN&Q-CeG zwAvGkX<910h!;W&>B_?iG_u;p=Au_oMbVXL>1jGyWknKlWL}%{%iKQf*Co=WJS-$I zy=5G^kxdW-)hyHHxaUMVE}5> z&7^voozn`#2jJ|_3YvCkQFxJ!ti%I-jB(zY)y{3!9``D@#s0s|iIpsA`T!zdTV|p|5G@ecl^Ea=W2a977<#-Y!5(C$&a%Ccu++qh zq>KV@>3TJbMhaXY4-PiEk>`HE3uGz%fT*{uobr^orrH=Z#1P%>l2W}->x!19j)GA{ zP`3in@_>j)9rr4wwaO7+uc6o_kB#(`1u~+Bd+iAOsUa+qK{`UBmKd&)mGa2;1j8}k zDqwy|dV0S)((gM}o+W{^d7>DhA*{S*b~tF0Cnbo4LWSmFN&b@v9P3cCMKT42YQ?Ya zMId9xzNqO2{fy(`#vr#V;C)>>nx)i7)s)gH^k1O2Cb)kX#7QDwC0TT`4Vmkb*lAYs zION=Gjv>6bVfy~r4b%73iW$RK5TRS1VX8m_)ouf<|o0Yd?!4!Vi`@$`EZFaqoY>utXM+ zdHee%Lqbcqoc?~Ei-kwuC$67u@oSpF)7|OaGvp{j%j1xp!K}WIX`aY230h3_xzjtU z&6~0?wf*sZ8o~Jo^TEBQd9huQk76M%K|-A}p6 zTq650%2Wk;MM3$?Dl%Mf=neynvf)?4V)#0p-QomGI%W5Jy*zTE$^NsDoVfN z7B6L6Y%bFpOjf!&=_5Ki4v_wg7RJ)~X&N6ZgDEX1wtnGJoqr7)o^M(m+T7~6mf76r#Qtyc32wXb?mKRr31G+w{C zK-2`33*!Z9f>0-5%_$b3YFEKTBUGrmmA`x0BHVKexM+O3#!}W}?-t5hr_SM% zo=nM;6|yZSG3BA~=6CyrNF9#~Qfu_+-=rkA-Lq5a+3YF<;6`7lQwQf_;;7OX0ky)i z!O{9e-qOk2)e6ud+$A($w>yz6!%Dn7+(lmtN`Iq7uwarsyUy3F`ViJTv#6;Us9ltJ6B}FA0b^-v#Nc8vi9mLGSwe}Q8V=)BujAlN{Z*u zV=v5#anG4Oif38B!c*EX!d}b9;g5ed;u_2qI0!L=_iyDTbfZX1p# z-hIB!TV!r(mR*O>+3P6&eWL zSiz0T==pjnuUnYVAIm>mp)nF!BmuLV=j&dP)J0yZv|L?E(Vyorc#WVt1FbN-Hv%HH zWj&;<6yYGbR$P3|+$-7jE^3YkkwK3IWE4sByM$?EAz}2$Hd(|OgrsI|V>WU97%QbB zl1@`=ms?m;Mq|$o$8)L&_r-A$ALp|Za-4@|Gat;s&2kJ-dtwEz55LRrQ}y$xZDgrh zZJe>g&{u))mcoJzu;3OI3VFciC4om#4kgiPiEJ+=#wcA&ND$|F#@O8!IVk(}@TlQw zuzd*WhZa~9-U7|Q6flrFHQ-sa>bMlKnM#Oe-8OK4*4W*gMq=T3%y-wng*$j5$HBrT>3SZ(u@)YG=w5(-m91CtG$;t=DpO` z$61woyClNx=lqi_K8auQEfLRZvNuwcM%^%sTk|))?m6gIl4*J0wKPrYGd92&R zDZmLg{aigjx-E(UU4ivX)}fdgJ6F!Y2L7e^f5cx`}o<)yO#0Slyz7CMjjgb;Mw81TdOAL?9KT-AXut`3j#f6{WUb;SZC-wI0QT z@R(!5BD8{1((OBu=I`*Gisr)tHRd}N%}2wtgy1n}y*Ywkrkn}v3axrHzZ&w2WZrOTSMdeKuRhlb{c~J!?U1MqAl-5NHM!qIQK)*<&H#$%C6TL}?a6hU6p1GUs^Dlcp>Dz+xp zsu)E(*DA6M+~-qg!lDqDCr)!sa{P}%x)uX=8y}Q+N*;{F;tQtJYBJjdAD(0@qippo zas&1`vB7RvbIg7oniS4+u>d7^Ti~{k*9@hzK3B$GFSMdBp0=n1XYC= z7@^Y2O|f*FtS>!auR-(I{7P9AwCD>i1H zm8(UxZGpkp%iL#gHIgf;hw3`GUFv~-k#5Z@A_NW&1)O-6MFc5O|Bx^Jdclyzr; z1v**FEZBPpCES)*#vkOiDt1kq%tmUTUC+;p@mebyCOhr=w8*hy_RV&4*F)M;n2Ch8 zSx5ZV^Te|U=ofs*VQwS~Z+pA2x*Ojv5ET^;Lxxov?I9Kvm{J9wKBx>sKPf=tLXL*R z8t~`Q?*gCYv&of0>l#QzD^aSi9#jvz&xah9-KrfzV5}4B!`iB)dp_-GDoUOvo4fGU zQqlZye5HDA%5QSiVDR-MARa;f}V(v4){*YQDuse!*mAf#mBh!VfgR?1D5pKHFEEe{g%PB5Zg z94qF-T3NJJoP>_;OKP+FQQj^u9sVlTOEK=)n?t&g&&on3nr#Yww_He$--Hi59I@wF zy7M(C!?sF0qn;2bLFlT)S{0<8lQXqdtgK|RUEEu?L`#cW3EL#IG~I?UB+ZpI`&ovX zSRrHrV3_G`jW*@=NuEyJKJ`>B6>B9Wn6HnNB3~3k*(JLowOGl>0}cv>TO=9SENzh_ zrf!rZ^q1LMk+Oo+Dy`9!fRxKnLgFDfg_BE#N3}BZwzY9cdOdhQW!0Jd6RLHh;x0(c z4!dR{c^V0&wJ0RqTFslc2mqhA^P!3Ki4|s6x^>9US~7o#`*(_TeLh|3I*C;OSDI(6 z1^E?D8ccNxMsrQ;659>Q)^#K*MjBIushU=$?9_Izez3*Q8}KY>A}pJyCMFzG-s8B@LLiuM=hfWi*FP4@o&w<#q)^R}U7)02hkS3*-xEeenG&b)DUcR}eR4(WV41t@?KcS@RN5YJjN+zPS6 z(N}{6y>0Z=C&#{V2B~{H&nI>|$@DzhSs~&g(b__Qh*LLN^3fu{)#n)h4H0S-&g5*= zDp+Ba;Lnw-34zhjr2f{d6je+XzIJ*Zu}{p3Az8wC&966{AqQsi3@>kQAg}erG5bJE zu8)KsOP2inbh{WKZxQ4Tg}2K)TjjKF5sSJrp9IWJqQuMF1sx|bPvfI{tV2a=K0^1g zXZ6w|Dei41az&BYt2R(VdPpaR^E&=FMSh>A^qO5Zpln+lFNyVnk8z6BUMCfvBHIyJ zOdIuln=eB%jW6XVvy%tdVosAr4Dfc5P**55XtDo^ur3&4m_>30lVMTzd=V9-p7w9yd7^jkYuH)JdkTaj6 zom~UVidFtFWN&_6Cd3;mL+{3qJKb+jXJ_n%rz>)$*?e^cN{WKx=`6OG?f`%mo!K1T z6aAL@T;1}|kdPONLi@T*c3gf-zG241*E4fd&hU-gq7sX04sar9gj+S_fsqOwvcFeK z^<+T!a&y@VQe9#naumOr_Y19=;T7I!p)`}MTsR=q>&&ykTJvns-9h$yv9dyjj)`_H zb`CSvJA@p$M(b>%UcG4diT*r8NlI)u8WKS_q@6uhT!rDT*Tw{r8ZKdJVy^5f}P(z3v&tN|VVc;ni!J>q zLR=ZL7oHp<$2$vc!QS8;jq(7I>{R{!5Xnb~E+uG`wzlClZHx3K5E|J0GFY3DSql5mW&lFd~pt$ z66y!Hsx$VND3>cIxV34L0L6l52D(|SY?O+V7fCF2lnHC)P^4S+Vkz$n zGx_lM^ARAdIRIx<+}YvduJ-_j{Zhtv=$$S1Fe|HnsFIjR6zoOOT*q`&WMnW)Y*fjB_S#q{- z2Gi2_CJVnSx3+i)uU_qRi}c!^jaVcog2u_##;!)dRo96ppV@Mo?M4;;#d5v7kk%Te zXltIFgbyu*(&45@GEwT~tfJ+o`aF0>L`sM$aPSy}#Mi8BS_)Sga) zmC&Jy5L?Dt5zHe8Rnnlw?{O?ewTmh}|8>ykJ5hG$wwogQ{tqk@dx&TBG=1|Nvtgc> zQ4!@Q0ZHUwZbHn$PNV!&D+2utJ5CS3k6{zug&E?o{)sGD%Raa#HH#j44HX}G5N4NpSW4wk|K#h)@uOC8u zxntww6Z5Q0KpJVfR#02y(ig}V#=xMIj}X5E;;J~Ii)c2~aSh4M_h<4T#ctsA3eIE5UN_KXaoO6i| zoBeD$chkT7m32y*jR?+D?A}%xXh+W3X2CBFHShKUE4Q=bGuiQJGN`qpDw`etu<)3~ zJPjdD?V@O)$zJ3HqITb7-zukf$eXE!HVoFhLxL68f{v{f?)GmBrLWRs@Vnnu@m)mp zvm(?(Gq4_Fv3VE`25)xI`0-1z45xwn6B9TZ6tGI9)W*l~q#pVCtWUry zd)y{*$rG$n^Ka9VcN=dK?|i&TJiVoN|9iWFRr&%7R_Vxx#o-b1VNrOrd{`K+lMf5R z6XnDF@D%wlFWeaL5v=lN{#_crCm@*&lcr~{Hk-5n5ofgb){ z814-)s~QQ?Ll6sq*Y~Yle)aGz1E<34TZSBD5AH?q`YtUbt0+IeAIa4l0NqEtmxUBU z@^Sn6@^Jh5{|Vea53Wx^3uX|sU?xEeX6Jxka@c4!3R4i(l#sI&kFt2Xn}&ww6iB|j zVDdS^2lImcS~Yr=MKL;<3rG-4fGQzt{~>|1WVAh)kfmU@7u>mHsg)tr!Y3O&s4WP~aYy;WLNKsK~?VxJuJ&@)#{8#ez65C2E4`k^^iIgVz z=}8On|ImwK-dfJZQcMja^=Xdj3uw8Tpuodt%B`uxWEbSO5}qO1OOo<|8&+ysRI)Il zj~r9S5`sX*f=^wwpY|!dN+M%Z$W$3sBo8HefQ$o?pq`vOS#r~htZDlXNL>H+BBfFk z$r%2r7bO=Ni&e(Hj-8?}-a^Kn9AAs?rtQRwVi_R(lGf-b){rJy;*b|ir2R;ad_O)= z+~oCxFR-nV{V!;cOxDAaNEYssi^<`C#0MttF(osxn-Y3Oh{BS@D8TGs$u0 zjeSg>T_Lt0vT-I*=a3v&eQS>e;`#au!loWS!NNc5BmFd{(gIp#0p|>BD znJHg*Q08x;UMRU+K8QuT@Mruv)yuOAR%DAb3CEkD;T#s2?-b&a68rKERJkhsHw&D{ zb(&N6@(>-^DgVU*9s!|XzwF#lG0`yOiNq29bh9haN9J=)b3AK>*wc6N-wlf7t4m? zr~d5gIewh!I+-7T_NvK-B{yrEa4|KcH?UastHj}YrSz_M7kapL@un$GylN8xjlnFN zrU5&qmw?CoKC1`k3Tv>P*VtirGB|M^II#;(JdvDugm7XG{ya_uxN;r@mzgM6>)HvI zj%TVp@R+ZC?Q0%>47ldS4VhxXz0@APOc0lxnpIce6G9wszbsSs7{u*ZniW#^1HTSj z7pVcwIsTqm`k9aPB{ zN=#eSECGJJ);l1iTx4QJ>EtzfO+q6uuDO;Sv}UDvA_{x1s>o`pU2vFk;r7dLO2E+w z|E6sviUezM0uw(Xu?zp~6+OvWVCxUOgf~Ydr@|Ta(>|ZiM!qDCVl;WL2<*&pA<*X2 z;uke@BDW?5GX8H;uqPCr%Za0m*vAPbKv5@pq}5-UQ{Sd&htF^caEDF#e}N0KCx0ys<#%mY2xL&n4C*Fr0Nr%Xw@KQSoT@TF;x5-8xk5Yis9tV zWZ(7pS&-Js=+}EkEU?S4-I0TkuKVLa7wQGey8G$>DYm;@%kxV@DrDq-MH=c;_S-9L z7aa79SD%a*`lYYt;UBI!1^>O047f*I8%GAbJ(eDD0pfLtAYS{Z6ig{{tG46KV2ce^ zJ%;%@hWQRd=SJi)-_dW)eCsUpZ6x!ZLgqU$p3i*iaGz_L?`Vq~gf#vUZ7`S)o?6^Pchf z)Dm66gw%?Ai95O>E68q6F~T04TFG-MCU3n>!n4KX5*$tEdPqt(9Rzc=nd5U5|0@M7 z6XF^$NHqb$*Ez#BMhu81OnuwE5`LwO@40?I0KDXAir(z--N zA_YaoXNUWM~wRLufLDK9QcCso`SO=q5Dfdfxf# zT=9wN@ZY~Ars8k%ujwY%vDppGMxB=p8Wp>m z$69IfMQm3Mhoe=Q*mJ!iedCDdsUf;wry7nnaV{PgyN5DnKzo|2)yE7k-F{4YX|G|Y zL~1+xxbo7`j9Ozp#=t|T z6yepvKXd%l$>XQPPRUQX8)xtF`8>ut+A`KDWULd(SnGx`*3mA&+AL!okL?{a1i{f^&61iZ#s33b@s`XT2oIhV)iShxasqk*=>`u5UNfn6^R2C)|Nf9LKkos_s^S+~{f)f7>7+h4+ijo^d9*e>_iUX!g z4I-y!B^8-vk@{?#l0%W$u7=sCo)W>UMQj=)yPgsYH>BmiJtdM*hkBczCu_#ACuEA> zg%@h1qEo>n#;wYzC9thh>3em|BH<^1KuZ5eDA;ECPpG(svUI9bcwLJCQj6mPs;aHQ zH%Qw2nMMe-g35=&EamDIv7l%Q3ww!5wyOYXTKqStsh0^nWL~*UYQpT*Tnm2FPL@_L zYO<9>4UsI~E!F}^^ov9|14KlqY|dq3AxIt^(vM>H!;vA=_Je-BCe2B1%Jb~x9!TF& znh{{;F>{8MTFZq!=(~Tzm}C>q<`F?eket&#^qFy6;)6JGQ-J`teVdYIrls7diZ}KT`8c=DkU!=T_9B)$j zE|kjgr%}x(@~5U5;bB+B)A6wDre}r|ZW^LidQx~?Z0@mO>3qVqG^L>5Ry+z$5X&Tw zyG^sh!`zkw1#YJH&twmSZH80)2ca9QI)>n<8nGo7z;Sn$hVH}yo2W9FH3*`dPRNM| zR{cM@&7FI|UwZ531_uY-GzOG5!)&;9^^J9AEF7y_wZ;tl&pM9cP;78@UYl;9`-CJw*M_k>e^S|M9x%q$e?{8+`=vDj1xKr6THlNbIG5Q4iMrGcSFyg->V!Ll4 zV%t-K;_M&|8iotM_X@~s;Ma!s%5Gv2?tf@5cg^kK?GUIRX8{buXJhFu5e!08!$oe( zoZfb zjdf13`i;cHYy7N!4fa;qN^RCKB4$%~gyUggKl3i=%b0XEy;;~Z# zwY28b2El2eC9)%HK`ko6YUFGa*d29UweVY|=ay2WpLT}!Xh^fv)m}pnq7}~9MP%rS z%`m;tG|c^}U|_{zkxV7(1gKohLbAX?==4ikFZHRYfNC(JAQ}#9oQJKGN5ud_Z{m54 zSKC^z(UGsHO*JC;ODkCe5BSAIldtDN_i7gTDOj(1iEDBS4{nhT@ch8BB!0B<-CL;9 zKbFAOmMAhgLE;sycbH%LCYcQ4crbd-mYG12g}m;qgqIqeqXK z03}y#p~&CCv&}mgD_RtmkjcYLBj1jb4EB-{TOi4;q{+Eh?5wQl@VZ0`C!fxV*i0`%xnEacFJ82RmI<~Sy4Y+0n;yrkKgddD!(?(KMhy0!HMz12YbDp) zNrlVu5iSLtIg23WHiccE8Xm?sVUOwjzJd?E9)wg_UMnG{EJ&DQVZl_tPQ!YAVOHL~ z#^zwm6-?`P&nH|B^_d1Pybb1)KWQ)G*z()6idUWNksfG?F{q9;bICX;mJn$AAUC@h zgUnWr1$K$!p;NQmH$kV)6I0BK;2|xu_P^>m=E(lh3wlELTYF6Swf`j@qDQSVj_MFa ze$fL|m*^d8l`-eVo=JK5&&y6eFRr{QGAVLZ1c$~5ZSxN56o+EzzIgg@JbkR;)@MrZ z`dq0kFm?!N>anVR9u{dSBZ$KRn(kLN`h4CYL9z^e!tcwS7UrJ^W?9_lk8R{}@Gtell+Uba`qd;^UuC4Q~Pl+ z>9UuM%=@T4g=&94LC@(}V8!K`;0r{xp1!3bHhot$dHUI4>49~ZXDYtI-vTQpWXkm8 zu7>owh5+<-r{eBdV2h3UAm@gp>V&&&wA)@m-Du+(Qbb!I&bOx&q#`1qwB5?C85Xfe zv2G>_6|EpkoutNKSRWOe>vphEFZWt_ZSi|bEB8w=hJ&P}6nPc-3-Ta#30~FnLME1A zUJ#8z47-DzgDm7ea!Xnc=(91wx^H zENj)I+s&+V4r6IUd@FE@yMgAYWXz1*TA`%-R|6 z%Ss%Gf+-piWr{52%bIF3GaTg`pQ7FD4zZhU<(~Mx8sadG7wZ6|j(acQ5)>%=ke5E1yRb{Xx|tY9?lQNQK0R?6Yx9$P1#oEP{P{wYm*?3EwN zH?Q+f;i){{c0{xWSo_DcKO?*rT`lq!D^}5{7Cqu&FCV02`qptcAbk-3i4BE=+Ck(!-gSC>5Kh z*i!b*jUqhfoQK{>3ShqxP+B(~((zy_P>Qc@H1ThCaz8`C6m{7yghX?$C9K`O!83{~AC&-U4oOu+la z{qnj^)K4()JghyFG;$%GWcgOmpxvad&|EEU-}NaQVV~NbizQ^5Yb&22qL<7?o947d z8CRMtZ26Smr%FT~_7S5Q3p1Y*3-!@hx|vcAYRfX{bb*Z%Mk2r{|5_Q@eu#)(`S?$C z`SOzI8_dX}6EI2%pC8O(Q zH?Huxgw2SCr-@fB8Xldsm>?yutQI;Z{P%%o@*QvLK%^Qxi!e_atuUXR+9d~j!4~zOWthMlkwVHR8EPrQ|C>t+xJ8lrV zlPZs6pIqz9mD=3MN7(njT*^m!!JGbZsm9;yVE-cDQyn(U=&nnJM=47H+;`W+X_F3>-?TQxlVCQXwgQW>&Wh|tP|!3w{84ZA344`vsTDRc0fmumQEhN z{%^wScWD?})GlZ(+Zsnot|WI%7VdBN`Ka7Ov+8XZhL+9I2BFfWW&%xH<^^NFp)WX$ zUC81^H3CPp0F5CjFoL|Yh^D_X@TWZ@ZU5LgNt?wHl-#YFh@qv)<$w9B&*w3;Q7^P92ear9 zg+Cqb_j#;K-Z}|~Na2gS5cx49JS#q?*&WjzZxT5-KBmuY5lXRn2>IR2;Rb8POb!P5CNFddoC9gmxa>tZbj3MOQ#e@R7cup7Vs^q;|N0b!Hd3fh_`?@~otPB-eYjhnKPF-h&MR zR^J=Z5Lo&Dt)|${x*<)im*(EIsTlnQYu*?fjGN`CYq)jejnmw!4VPysIL!@J9cIQk z&3tJrgTQO2?97wj91E!RXEr@xTi6o|}G$t>Dr*LpKd8lA$)4JGXs= z*@LMs=KMYHy)>`>@2^g_AH|#MhPh1>ozF&4m~Wh4N{E3g`x?^w-Sm#qyAGd0f5Qm3 zYK_~}*w;{H=xtVSylF~Lys6QU;jE6*^BR|xo;T|eY{3z2wDr`{<6L;Ad~;zrx@VRc ziXKpd(ZdNf9J%s$$%*EnvE8leaA-vO!o(BoLWxrui>BoJn=E{+8`$nn?>Az-GbTR0 zyCOclr#7Ccsf(uvVlDd$#RnpYlVq| zQ@*S%o++-=$macSrmUIDvLh$oPP!u8tUz`J59H_Ypw_r}vw1HHh`?6xZh6cW3fZn` zi!`$$vQnTaS}BRb0EW7P!n-AGot+MzYuk*{LPM6G{A^TARshroEK0XnwnI>T1O<9_xYApe ztrB#zMXVnJ(*9GH72W|zEylay#EmiE0c`NA_f5k zvs!LyBZDgyY*0czS=_Qi<->JikxRXxMHJ#RAr^-{cyz5+iI6x+E?F1GM2suIN3KL$ANx>_@YFNjJ^|d34Egz*dK}zkUW|}V%_>)wL7JvX%K&rp`ZCZsp zNjJ|bR0ETMYkE>vN#F!kTk57r!*M9@r+Ou+;#G+y+#~Z0!cU>vGqHQy#8%5dVyrr? zBdermPHtioD+Q`1^;{056NlFt80ir8%k&-Sph0HCc3~a7jZlV%S~br-+@cky%q206 z4S((LA~)j8$i08hsdJ7Pq=>y})X<0^qfR2?K7~wjs${#3veuI6$>SQjla<=*fS_hL zqQGsgQS-bc*SxISHxh8_bq9?6l57XiBXUp7wDn4<`0E)=NO$ILvmCV+fI%$3 zZ30Hd6pk&7ptsWqDV#aPQLqAut>N@l+$lmb77poqsa2fRd%*_6iUAUoK%ABe&jKLu zCsDDLu9fL>6o{TGL5LM&9WfjB%dS!oIH&xUCnOkYjcS^+X#h=_gUt=3!U=VLj{V@@ z$&&L6Sok4 z0#n3{N?X9Nu;#DKsWcs|cALEGX08$cvjOtPr0^7@rNqZ{KsA}-muyO{pQovmv#39a zSQA$Tru6REQT04FQgyl6sxJ3f)#YKUx-7A(OS4s7x~=NctEx*s|JvxF<*LF++Kde& zgep_%mvEEO>W!QxDh;H;$QL|sq{I(>G$&8K@X$Y@&p?++#G$st(^JD!Ah1r1i~MR1 zW>Hoig2yuRJt`|B+?JO-WyKv_Wt9~p3>3|_7u8JfmxXl-uZyhV$9!RlG|Cv0pdIpN!E-Ep1*FR2>oGb zSHQ%4Cv-(MorkeWDxv9&#>N?!uiVIfZ253*KYroCQ{?Y9C5AzHxoUFcDx+FYfdE7> ziuCqeGTN*0v~|_b*U-9!TK`LxZxgBXl%FHtDj@AR!%zQ{ z)yc~Ok{1!n{QGgY<;8+{CM=Oy#=Q6=R>rO{R6bzpgVDiQHn}0qkI7g=o zGwj#NeK{8BVkz6epqX);s5X2;gEv!$)%;CiVZRE|$-{E66O&nl3WQ^%vl81AqLr*- zZ7i@;q~14h#&eY(z`wOU4S{y)4Eoh?xZi|M(|;t6cf`lA>hb-iOB_XMr5#A(W$9{{ z#%FBTuI!{TE$EZ}Vn(XqVq|mQ8nGTH|#WW61Av@%^Wq z;{TKReLC0UQ*8(3QvipKR-H_o<7dV&zGWF+-1$?pU*Ba|9t*o zoceXK^wW{6zj$?()G_6VnWBUs(TfP?>U4*{LmVdxOF+v~Y2btq<*%*4IfKz_aQ%?83DNdGbM zGA9GdgrY|8oN=UqR#*>AX94zhRRbj}H#!gl0mHyg;t_s^yBYs{YHBSIYP%WP)dN z%y&%46rW}$#y4~~Vv1y(y~Hy}?TZbr^(Lj`U)-Ay{x=qLJ2&YG69627vi7_QAP&KK zGzHV)F$3`HGsB~8&P0?+vc)iV*X3BH<(D5CmE)HUcfYy4+i=S{2Yc1rU0Fazc)0Yg zU!Tn|$$r|pr}Y8TrKz#kZJN~sJ;^B`=QEnzv<}1Snhno<#PCeSM%KZ?eTQ1O?@zh6C6dN+v5UHc1VyoWWb%R7}%4 z;W{!wSR?5}muIR!6raATF`jo4}xObFX1?q88#xm&i)O6KDu zta1#^&7;NQEunC;pg7o~4=oDnHX}ScD|TV$?OAJIeZy8gr#VSa=2oqD8k!ew&jaFR zL>lX-m>&esDY1vi3KvOGxl_F|D=~#m%~lqLene@j_Cpem&*6>6sPhB+*9$LEs`2c` zrInp#(r0U0!Etx`HZhmGl3TToHN~etRUyVvtwjpSB|iPBlvl=OD-itSNT$F5Et;A& zYqXN`$Hb?1#W}2JEW8(sKuV2JgmZ@Gd!;t3FLI}M&0wOkjH*#a#hJvQArlBl7w2m# zhD8oBMr`EIao~97KFOL`Ys+&5KLoU&>8luSTQ*t>gCx3#R)CF$C+1koCJBUPS=x35YYb5)2}#&P6mXNRw7gGY7U6kZMijBGq=;wwI_XD-HmZ@Y=2TS0 zryq^-xtZ+s`7B*I--GRuIx8$99jp{!jKn~$Ky{UD<^$QhdZWGS&FhX&AFNS3Df`_@ zb07nHUye`TH&fQNo`znUin%pcyVH+OjXdP8AP zhuJxht8x&C4Mzx?W31US=N3|Y^@kxy-Bzb z^CIA=#C%SPpW*_Uo9FRj7DCq&dGRNF?)08X@#!52-dB|uzGg-g&r~$K)4Qi>o?fRr zyn zd@{)+WIkD4FrVYd~a2XdxUy?G8h8lu$=^*pCxfzWM8OoeJ6U8OKW$(2kF6yMit;w(g- zC;~OK&_7DGt>=MJnYVNj%<+uPscF;vnMFT;=^|O{H>+sv`T|N(K z*nDN+&3;KNvVfcdNsQLoy`q<#f%6o0-PYazBx$xDO-1cgZ(%u+h~yG6h(+G9-7>6* z)^jMIvxsxRJebYGr`sjucjVRlDLLw@MHcyl;i#Mh8}gqVUZ=mdM`5?F7xdd*%9-oM ziK6*0h}*^*cx7*w>&h@atd|}ep$;w+xHICh;Wj{we~MgZ6KA7O7(V!|kzjvpP8s zdhWbX*s*>)&j%VRD^kbaF?r0GL$Lsi`@&Zr4LlN}EyOY(J*)LI2u zS4uB{BWe)-8{#w;7YsK(oGvzNO{!|h%L^lfbn5d!{Cc!HA0o`kcRZ}&aCAMv5EVjF zs3Y=;=hc)TX=gr!mt13ApUG_$TI#jYKp?l$#Jb+Kzw9xk=qmcVOO-#-yT2I}=CjN~Q=XA96#yGm_& zYiSy>rz21QxeRA5C(Hv9PB*I{zFQs05{>6dlw56#`n3(ym6BK};0h{a(Y(lP#F{vs$k^bLXWL%Qe?al_<@Igw({!Ehxxj( zo8@mwH~#{5dxcq~X`=Chf$!8Z0(&ej(k-L`&tRZRV#0dB5aBF-j6PM?k}eD!^NIo1Q1K zVwx1zFrtVyS7=HQm>EH_f(gnpJjc{VHIoffgXRp4ZVoo|)$SI$yOsbg#4o6jtZuR6C(ICDZBu@lJ;ZSaa6|zY z3dXufdBhCnaAM_c-FQcA3jKtGenfB6QXZ7(LL65onZIBsB@6%UC){vdnluo?4=d{> zNiaDwCcpBq?zQ3b?LXCE@KrzMxz{Ot&sKrlqtaY*P7INBEX*h;Q-|!$8F>ssM%E;GM5=|d znB?_x#@)N*mTIdOFzMpeABz;I$q@&BEG<_%^-zGK z06FhedR^{)>fs)&x7En8jsN~*?o5;=DgW@oT#4=T7joy0|H+SKo8KvaN8TbYO3h@} zUUKBSc^}hAljR|PNgU4=Ym=gUDCNM^{+A#LkwFI;ur<|;Ybv#&5tv%6pOn@~j(z+g z9}9(;cl_r=e8(D`3ra-y^HQ?#hrA2?~8o`><)|Y7y|8${N9gzzFc4u)ED_V z(P83EqO_FW{ippF*j-W?B^yG3-Q~j~1`i3ayL?!{$R+`Hmk$#D#MBJUsklc2lOECB ziX|GDv`hn&nl&(~Lj#k#HRqy7;Svy_boG#UkZ+gg+5f+LN<8;RG{B=T56}HS3j`hk zSnlShZi#Zq$8qn;!*TEZCve=ko@;OS`8+^(-MP-l^M1&yGbE~W)LHU%=1_3=0ljt3E= ze)(4EJ+NEEppQD^nt6|V73UJgdXOsDY0XK` zh^^D?*kh_WQ42dF@udtk@3H`}k0ZXb^atcLZFzarNA48@YmJmnwx9|vdJha`p|XBr z_}Wb4_Iv3Axz60qY^K)S(Lpfn;+qv_Or$n#tuS-1*aX(tcdfM;YXs`);-gD|@nwjw z@ZWv|fUhk%-0Z+gx~#tS25F==Ovn(2kRc-o88VuXA$7#{nn(!ODfDAC+AJlTqy&$> zxapT`WRi$v*!s(Svh@k8J*OR;xDD}7XXV8|&HS(9pU}jzTzo)BE#DJ$i`@-!n23R!XrC7gWGah=Z_O$S z5ex8dVvvWm182$McdJykjh@V#K@aApvOCm8aRh}-$mo9}J2O;so4W23eG&-{S1_I> z9DAj>f#3dXD$JiifDgtcK~z$*GPsSi!ujEpSZIlDIyt#1F{8FK!s*~#*osu`5?Y_w zuLHML44P$bvX~dn0Vk2uz=-n1e$3YYwW$dF>ZGYK^B^H*Cr!nh?+%>`S;-Tpg9E~p zNGXF}Rmrz{(;&lVtqX~&&*sLDLF@4IhmJwZ@Hu3~-cRhu?CPv)5$2lPywS_V=$xE1 z6$6X@ga}av*R+~%bG5asf<@SGeE+5RF%QzN)mQKE`A!tQtc*1jKm3zs4@i9- z6twv<1unqb&f%uIMX|RN#lW?5E{aGlRP}?<0E!`prK%Z}&AL1ZN=RKy{@GG5dP?%8 zti{QNF^D-;P8r>vFJlWysgpzy2VJVn$Wdz`vqezZ#wf2Pr}=$wIVyfy;>n2UjN^|N z3Uon_Sl@PH>nK7#E1NgoCHli0H6FrkxI+XfQJH^TC_oX`ko8l3PxOmWg@0|ag2G{J zD=}a-Y=_?wnz>I?eV)VRLb=?n880gp5Q@@ic1PZ6X3fY7_jv$1QHwJ~zFR zAxz1_zhv0j8)hr zgs~pv&(Z+LAX!%Q3u&J5Q{M?CS#E#*|GHc`lwJk1ZUJ>ahUz{gr2&VBHX%v4hsCb~ zPl8wxRd49^vP|{OhE@kILo#jCl>RF+;ih=gw7x4c)iL0cUV-G>rdd62fk|3)Ld_K_ zPD?iCVw|K13l*r$MhSUB2kE=^t3pNnYV4i2L0RsvkkTxq_~{z~4tK1=3z$OpgJE#( zA$Yas-jHN9)cgjPkz?QhK!I$br+iMm5)7T`H*iBNkvS)BH_x3J!(^eQKRPVU?p#N1M?M;V4Ip5sFOiQNe!rC2G1;@jjj2A)@ds^@rIZ1HwkGE z{@k8fYqZ|VO2Op{1$TgZ;isDa6nCmr!3qUi0l!&%ryD2>GhDjqjsLYu7|kjpbSNcs zD<$+RCG;sJXoZX(UmhiR=i5h5AjQe}zklQGPBT+3Wsp0Zh>!4W6 zIRBsHm+g5Lc*&6;S+QQc;lxM#7SQCFBO40tP@~0bf@XIXZW`1>laA5n)(Jh8@0X{T zPf&cP7S}ALWFuc7^~)gzS~|No9u41HV^AblJLeT<)a5`AoN zGbQ(#TlT;AFGmME-MI(Hx#@@-Pj8H;BMI}|nMSaPr(;uMgUvv5s5HMCVRH>jxkLuf za_6>>Ya5zxScH5-m^TClb?(7NbBg}<$0%&pj>o2rd11_8! z{|QBNKWcOcLP(@9apsQmm)@N=U*>+V@{H13=g=1U?V{M+H~gh{eFwyx`P!fn{+Wf(~;98I^n>7Kr4mf^P!bS$3kilZdhNM4fphY zhd*9!gy9a;`YJOyBD-$td;A*jEf+k1oBH_{Rsl8F?tDHwXjbWI^Y!srw84~r(JV*b z-tZBOCf+n9VLDUfrax^2?}-x)yE43~(RI`D@MyQmoq`YJ%!g_CP-i|gx~AW5-$l0{ z9b}b}$<2q|(({|$%oRn4;mDcNclPb*^A%I#nNJmAXl~!Fx5*VZb7c{(_RZ7_vCLI+ z;VZnb>cH9P^KDbjms?+$X?nG;Z-3L#!7;>Y7auFV3$yIb9SoM<^?;bWu8XI)He`ag z#ai|T&DYnD3_^R|?WSLhXRdh74Yb8t_7}vCKIvvYTkIa)6&q|Z+b!dlS40(fywA#OhDMDTO2dm^R-JD zT<>1obwjP2Zi#1##Y$KD`<1aw*=?qSpKz`5)?{u<*VmcNIXH2g`Q$d3b1}V1zQ+SEHw5;%b7zF7D1MHcUW-uw zX^LKRb>s_Jy)W$Fy)QeIeRS4+R#tGk*|r_#w0PVBC4TLX*eu;>#&vVN+c-Eu*Rt<(UlJ~L$q2A++%(i=$rUlcCg{r!P0qeP&+Qf)I5H(u#owK=2br(0T$A4 z*o7HaeNjAf`K);6lZK?OGR(p??Bw!^xNbfVGoKUjrW@{oM&h7QPV_MC%*!1qV0d~f%+F-_eYXPaP zwImkk01IlpEK^qJR&~3Bt@ygy&0H=V$yFZJdYDKtyf&`y+qYn(mrpZYE)oX()Ev1I z%SpO;ZLw|xrs?-xA)FwKXLhl_?XA;WU6H22_B2drN@F}dZI+v^bKNFufiFTEBfLeu^^4$3lAmCH9VoqPv004El{K+k zgIVUdVNsPh%+WW@Wvuk~U6*IVOyNd@qwj$uJ_Avt9^3+Hyw^f!o|*9}6YD6=+`zqI zPO{50#pHH|ft?q}_UNYn$?Vov)AA~$UJkBl2oT!#R-Yo;BLZooN??=L1@R}kj-~^R zBNPCiQ1EW>6v$oogP1N}Gy4}_*Uh3=wV1wK`%W`ucvV)yS0$=8csFuezB`(hWby!P#A#mqNaK@)*gxDwONGcy)A=+0ft zl`=FuU#)D0HFmk0sA+c1#C)#Tw>QW2PQ|~Laid;lM%(x3Eo5b8&lZ09I5B2Svkw|x zHg|8p4S<sM#}~b zNyN?fy3$*3$Y+GY@jl~3(`QEJ9y84Fi_l@x^_7uK-O=B?hIHFo<3nV(kHby;%1VFf zyc%A=a#%e5g%J%GZ@Ts!^|!8``F6urhq)iU#3{YC40p~QD7p3>_|^OnF+W6{()q9X z_`@0Qs%Gy-*0|$1BcO!TN-VNWomEk`||Iws10V$dg4_x!)6VmK-l=SgN+&3*!LO!ZdPu+ z`C*(edK^xDOf!J9gA{I0%Z8FM3M-H46XUKC4r_D$~1s>Ia@j@J|Q<(Kcp`sHok zw!WT6j}kRvG>;o|)}ROGxaoeBJ%~amZb)~ENYHoY7xk>^>buFj*}RYP^HbSD_tqz8 z-ZA%v$}`+dVVK8S;qai(_xK$$@z`=V95a(#d9EHiv!=x}cgS{XD2iw5X2oS#lw=b! zIiE)E-xN19vC-Ub#MgvtRPKp9etH+n@iVdSYqL*v{Fqg(11mb(jRPpqAzcfe@pyrB zXg>~^c%aW6Y(5+-J%0s`m<}E;6H6!a(n=mUiNmFd!plt0`P;ObxD$0Y{Vzw@W<>#`y($S%XI!D8v zFlJ*s^BL3J>;4-*YW9emX?P>nvL|>&CipA(k>Nkilx2LLJRC{;%z@Jsyx$!1@CRM{ zV(h4CqJGdkaY@6i%{P7mA=8=S`^~A*ZW@do-H!GQcZ#+26+p-}yeqFhbGpC?w@rRG z6AQ-X_W7@U3Bqgs(IQ7p8>)cvJIWt7WIhFii+5yU#W2Gf!Lw6xHCh!287EO$TMXxE z7w5?w&1PO+KTZVzYNA$_5-ECXL%PE~x}(7mM$6s;bKt(q4YZZM$0z44%`G$5p|H`U zb;res7ra|Q3X|cx@o)9r=33d^gk2egxiW4Jrz~6!1WKnH7;uv>D7HbU$eb4zGp|J= zpi?Vo(@Qs`krN&&ex$+ZCl{|NoqruOQ)h(7;#4+HWH_J z?ghzQu|8*pt~jd7nqq$wV;cpnx7kEFHv* zwwu1joNmb}@$~hx3{M!uljBGT@g_hOZ5V)(-ZU@VcQPf6fOrLRAQ^Zy!qOd-~b%PrJVdR^&xOEs6m8GG+nxEa>wXkUM2`s9rt#`ex!Hi-S*kY0HLxoCWarI-6WdbuJ~{H}(oH7Im89?rr{ z@qI!o?Xjahv6kK-i6j#lbPd56)+TsAv0&-sl`&L23q_8*pp<>NA~)E-vGk{0OEFi} z8M)~KGxOu(7auLXbro-F9qg_j14<8;&cB{lWR}gX&&B38zh*k}6h>s;8c%PMLG7g4 zoIVgwXQ3k-{rKo^L%&7~S5F<}xgTHB6g-qJXbS$ud^x|#Z~om2q7FV73#=hg@33`v zu!rm77r%Z(t=Ygv`~43kz_xgLg?az&vCOCZoQ$efm<2G0ElvJdU^ScRKTv2m!yqCt zPUBI>BbP!cjO*jvi?@_!N;IyGuFg!YpzWro8UZoAE-nzJZSGOSiML#ysd>Ru!)AmN zh9Rgw(rhPpZu9YYRX;SKxi1#E=@o{YvvKq^a1@&)zrOq#;1A|+YBOEeQ#T(M#~jji zQK_K%HuFyyJHY&{xD8RHslWy9@mhTG-rW51r?72 zk|F$OO$~vr*u@)5=YNNM&CrmY>)bA%uhi6n^XB62Yoi{^=sphd8$9Datb*kkw-05d z!P{}_;^Dy#xh+(7JJ`lFRGn>vVPUkNiy`kv4p1t7XF(;n^-2*K z51#Jx9XQ8)_)eku;Fu3zH@x`3>A>ZtF|T~bODaKk7*>(U9)EEK_`u5pH?-uKZd)K4S3?4WFdT zO=YiEa{j~yvl}HA-MlYk&PKzFXLqr4WXo?)2Y+Z-r8)mPBTd1(SkW6?wi0sL9U_0RH-t^W=G)%xcf z=(}#X^zuxF&fsRFF^q{F-4O?m*_MBv8pgcl(ln}7w;9nQ9Z#>31sZI@a_-74=i3c| zKwMA@_$gNqSkHXD8m~@6H@tml-fZ^ahfF&*9=6m8bNv8D-j$V*At#0Xh-AC!wCu|* za%v~xpWKWM$FS_=E^i~6v$=?SH&k&S80y6xvlrz$4pi@8I=2B$i%fvL3+p|?Jz>!w ze~U%0?#}*G`sftM;iUiT&Bwz+``0AsfoYmYFXWIdfD*&zP#9q`Kvm2h-S_7)qyr6gZPQ!BAp>jYbj0 zGLCLQdE&&gECuq3Gi2|AR=QSOBI+l&s|tSi^8a&9vrk`+dOpqP9c zw%0h1v0xqjn83QyTW_)BjY)=H{5s)*SP>2?C0@fyeE=AEw|rpnDAzc zkmK)&skl>C<4jEHCA3ZlHgcap4g{C#n7u7;6?6gUO1urvyw$Go_!T#`wYXnIYPj#8 zriO9()KJ!`j?%@$W~)+rn7A-c;|hm)DIxP$7c0CGJ(Q7 zf**E0dn)05%9{x9Zx;UmDgL+Dzqwa&R=yNJJzt8y+FH$rxY_7gy!8?Y+x14mFIE%# zhv;&W#15E=`=cV@_uPMyr*X^uZ{lezj(MKOIp6g>jnA!CPvd%X^V}OMi``7&VR1S> zd73&M)dKvTXUu$mAZQ(rMr(E()%-h6Ex&G_<#(c+nK%WO-*iJ|lRJxc-@f~-$o|c* zd3IlwnlCSc1no)JM(l3KKkG#z7ZJMeBMbz&d`ix9_{*=#70-aX;HxKl4(}Nykqc8! z8Mz?;!93%fq2QMr9G<2m3v5!26(6EVUt_k}QhH;64z=kob)8)y0 z1%T$#?N?+fK4B$sIc7DC{}=DOVS@QNmfjYt+HAycnmq^C(7@C3d_i2fA~014 zTN^UP3-au}t&~R%W1IWD|JoPuqK1pt-tdK3y3L5cv8tBX(H<8D-rgWvRaRtvHov)n zEifC1Ez7h!2Uh1H@^V2e&}|PVc?+yt4HvJu;j&n|g>Ps(x$V|dwf(hw-n6|5I%jdi z<{MlZn9=j94QOEy4#}066*Cn^CdI6rG$Z$-=ckyDcvV*n+<9ZpE<1N1SUUec65eh^ z*tq6T%hRX1={L*(?j$_SzCygR0Z@Q7*TqdY0#C-~J|A=guf))Y!B+czGgNfJOh7z< zLLv7KiH|q^X_BxMBLw#}U2^b}bnx`1OZv^Xej`6OU2-IbPWAxHyVA~q>Fy05gnb&5 zYZ{(lMXd*FX5bO=83qHHu$`AYW&l`^!e(?td7k+?k~M7L%z0v`_3HT zzdTNx^-GaV%Rrxn%T7?-EI7_;x_Ju_WvJo*8&_xm9A&fGf9Afp1{l! zTo&;fu7kmnC3p)epfiw|Zs-AIQ4oCKB3!(yC2%udv;cL75klKM%GdR=va5Hud|;_4 z3bNMDWJoe01|hrxsG#ez9fJr#3G(Xu|NlAN)00UMvAmb6F#S5GPoH!C@Bh#LI_8r9 z6=$U&PCX2LjFNiB#ch=73{{K*(-2@T3AhWasRw(a78;(HSqS55lCl~Qa?X7|s*oCTN-p-veIS9o0&P4@NVh*S=r$bjrvHFOB`5shC zJBXxfqeJL-g2)H>$6nL^zsbb$Q z#&XY~RIvziA0n`-+klTRw22fmT8>wrF#eD5{>IT6c>it|-uuU24BpGa7Q%bLed-t+ z?010tCJy;GqMlvd0|U-c4K3wFnMnOw(2#^iGRztAiJE8WoYg82$JP+DSCG>Es0sHI zOfarXgRv(A=o>S^*xcXFDGMnRkFnY`zRy5x>y(3dGElxTn}eA6*Jb?^wEom**z_a}hJ zaqi===2{Kavu@7?dH4jr*RnBap>{?1lzpsq>5ODv@@VEDN!->VtL;*8nt4uCBPVLJL2bHhh=5J|z;EH0sm z()Ccl8?ow?IW(b=AfQIld(d98UC4eV-DWwN-M;rn*{=q?!%Ctb8kD{k zN~^f#S2ubN$~96s>-nSWf7sqdrkY6UDPFOE@}AC?%=0eZ-u38zbiGnuZ(k|@*}hW# zZ`0mou7;QKrL*Ou`T2EhIb6RyYdKuIyo=@Vxsld#c)?t2IlT7+z8t>NX)TAxGW*s# zbckA=UJmct4R7xI-3h)N?&uJ8L0_o4;3PI2L2}8(74q`stgu&4E;AR&^3=|Kb5jbs zLuUHtYPT3lF-ric`NjaxyHODk0L!~^TNFs7K^HEw(}t-`@7xh=@vZN?CDTc2s2<{1 ztTpz~Te8>KLk3*fMAb=rK#<1=pe>4`MbIa=4P9{`p+Q_cPgWxfW%Ug_O{?-yv0Sy3 z+*9PR$A!|ccLaRSShK^6k+HhL3 z2-_s!w3=@jaj*{Z4C&2y-u@6~hzf)7r&F6)PWXau=mjAQ$18RVy-8cI)vJrIFtkJT_e+0S7?jDR}k~V7{mgn7)XI2q=U7D#c<=X2ZD%&};|5j$o^G@07V%qnHi&el!5qU~ei(bJsG*dYC zN!wDyTV2dl#GS^h2naZz#En2+0T~@RHK{|PL@stw9=3fJ2xr_OWcNhPRmyEsw0y6# z+xJw{zNcFDJ+6(%Jr2j5rDOuD;jp(9t;YPD1zuQ+W3v-x|EHVZ4{Iu0c@{PO(0)~7 zn&JW%c~}H+%kQC#D-j11W7E%ZYtRd1AEG@OY?{(vzL%|^&vH#P<8kJN(IxAyX{4c_ z4`}r&HZJXn7@CX6t1Wsn-E1Einx?m%L~l0$T1$*H`iUyiBHxZGKc_8dmHX9 zU?;aHIJs@2UfQZ?73Zbmk0)p_iPQx8C(#uB+!dyHnUH|zNO*9ZL)5HIJj-3NkkU{z zVq}(%=gG0tOwdJg%}Zfnhn;Bh8F?Mgc+@1XefB3MATQlZOM{oJegN_c5lW0dOMKh2 z2HOSl-gge#$T!;IWB_GT!Vk`Yx3lDBgjL z*92cGPCdYU;2%Mm$MhwtN1G_XpA=2x@@Oi!x&t05C!`QirkheU0@h**-r3iNyKzgQ zlQquB)otRmo@a)m_tG>!|NT`f{qnG^DJ1^kPNC?fw4Gc&CeBNHDP7O6FcGjKU%y7l z_EH+`VeE&;suW^r0*eZ{Oae2*ahQ8g^~jCLyVR#G$< zDi@Ansz7VoLd?Umi@C2ha`P{GrS8O}08||@jdqei(S|&hZSGskpWni{%Xj=i%m+~5 zc~*`lFc7WaGBj~0r3b{viwtyE^-;YfV!@?< zfxpQv;x3reo_*I>?Az$OaI>Ud@HgZ!Hk<}=^*i8`8YXD{*M^I?m1_%OB&WJCosb}F z6AjwwK@HKkVC5?9nK4W@P?h5y^&BQ1!8c=;2AqPJ#hyhPP%6@G)B-rDlcUuxIoj%C zNen(=ExfHYonEoP^B5*wMB*`3BwMJhq&V?TN7-hw2fohB?$8%vo{?L(@&t@K{`|&xns-ZX3n%n#UoPHbkb`BocL6xWdT&UBR=)`armTeGvTSY0Yz@3nv-rN zLn9M@2&{+%*zP?1I)WId{WOZPEtN21>8Xo^sDrFpqR{glA*!weM4jUg9_$LDuILn^ z)T9lec$Ob2yw5@_1R%mMG4KseNS0g%ldeo|6+$mmi^_8Dfa9yG1RgsmE<%P-ZR^FGZy2$%7Z2`;s zBGpx6q%kZeDD%r2s=8T!Z~@Ew0s`;Zuuz*${gT3WZNAca*HBvbouYSbX8LFS@&BRh zFW=d+zuXju5&H786J2M2S@^@*UxtTBDLhVd&89XBTToT zo!~Gt#t2R`W6YaaG8+FD6T_g*9Ie9YXDkBlC_ueO5t6dzYv+-0=}a*h_=ypn`@>og z#Oj2k1-;DQGe}uxC4?B?Yhs|9Up<0XC;7;iG?3sIDaE6NTQ>OC%R*E7X-e8Vi6xSG z21DrvqFSXqoi&E*-h5GX7~uxwT3J98g()!kEWAU;5S3cfpB}T*P)3s%`9r6lTh z?1~);)x&1=ts>lA6fnD4L1Xkf8WEo?O?dX4uRDR-}?E>n2GD~eOV!0f4{Gbkgm%vw?evBh1<=Lu5Z`!kS>F{c^27n%M|_|cv3FVA5>H_yx^gMjzN zzuFVfEJA0Z`!Onh^cx>gf_V+FU-)9nFQ^C&q|g@+h|n_#juYjUOrg6mv8eI7v81hqsr3VW8LfE4VfpVSSN$ zuiXW`FJEz>P)gw#x7JxM_wg=V?unYj>G3w)$ZL)`ofbw?^jyx8+s&a-w6SLuA+C*c zcJMcGaBufo^x}x>E*>%)I#2#P6lc%E&0J5A&IVKOXdYNkG%kv>g+)!|m&}uhvfvQ4 zu;i3`6tVqf>_x@d=Gx3hmI*iN-2TY)X!+?2d~Hk{g2Z9CzbY`KhEiBi}aQf z3GbZtgkiKra@vwoqTbt*=gKOXRX%#et5o@l6vW|h$pHmuy-+FM9u~*!oUN$+2YJZ{ zY-ihl_MH=Y^b5zau=c#;m|=u!1-cyhMp2=(iYOl4;%!SZ9uSB%RgR2)<*W?gf4_*H zc2;&z_m%!YuEWvl)+^vgd@oMdWOY0Kwutz?SX_K6q`h@eTtU+}3L!us1PBE8K!D)E zU4lb^KyVEKg1g%;gam@S1=-*v!QGbxcXwG}aa(+mmAlXLzTY3W>igqX-KyEGGc(=4 z?wK=lrq9frX@#G+TnDIk0;su62+3H9^8lcgP2;JKjtWld z5C{!}g%Hi9cmI2+)!sT5M{kE{TdmTLQfDJwZeFDJ^g}B_tIkaiC?EZmNd^M-=-o>G zdp~x39_|6oSOYS_fKxc!c?9W&ZW7|7##29;#v+PJRJQR##R&rBPg&^&?q<_0f2cOT z;Bw-9F#U?tPo|_Q&)2F{PwQ zXD%o8E4h53xT{M0ljb18&%eqyhYYLrZ< z^=Q0?|19ZCg+E&?P5y?&ktu(Sht$Mee~|Zoboet7GJhsFwcw)c>^6km@rQkEP_gR{ z7$iHhfj#m8u6gLmobufan7^GN*}LG{q#h;%sf&3vQES_k64Zn4VB#>1*tEjNk3^G8 zYK2aY?R-x?=Aen#3V3G1M`)jOuLtOM6L00d92A`uH=Yja!r?3gt4Kew3*&-&L*MXn zF{(l*P2qC^Rc%GLA9hfNe$%Nn#a^HjjK4tCYmFUqKO)pFWf$YJ{jFH)+&06zuU3z~ znA3mD$R-G#*oK!hACm^Kw}L&!op(*Mp4n*T5!?!)=tpn<74^ zZJr>ysMB$&&si6T-8rwWpU^#mH``5ikM&qe28`ABeeWMqD|wM;@x+~giWY@ETYmBO z*Y8#5+h%z9ujiS7_yJia2ItN2GYRVP@>lRsr}h52JJHF>o~-Tdare^zU6Dl`|g#=H_7HbOed*-8-H5;`S-q?`f5dX zkY@v-AnvZ9pDqmlBwiYHC2MJ}vfF;uBmC%2qCjnXlV9y?@?XDNTs8;y$LXVa7UGI0MfPDAY#IsNsEn5li!XcDRt4b%ob$s~#H( z_+32xG|#+rk`vby6&WUNKSqG#b%Wg!J>_ub7xQf!_&Ho ze3pBp^EAtT%Jn)-$7)c!Eq#{U$_449oWjiFXg$bU1Yt-t+z$Ojl$n$D{nL_QFJ_l< zqcEuy>Fa-pf!jyPzSvDDWofZRA?T*X*&3?)t@c1E^ZllQD#_aW+?2xCip$w=2imyc zV?-iu)^Z<~CWLRixgWBLfA3APs8TQM zlxt{A=so$P3+??xMoki>i()&}5R{r>T>bR6ATpQIs!b zw+o+9Qw4wRs}4tY*Zb*t3fu{-HJKo`)Bf{MoLw3pl?p|LiPzaCTd+Of);FHjPWGP+ z?!}6$@46 z&4nLH)9$~h$UiA0TQ%Sgp5uu%#y-i*-jg^OwJl9MMYZlJUTz0l=0mc*$8){eC3Mx7 z_I|oFSGep6*hQ66SiEUgIu+?@s=ck0Sw8t}%;qho-vHxbtZ)F@?+zQ2ANfp}-@%v0 zOEY3_LQiV9n&(Hge~%uHtOV%7k$fAMKU5oNsoZ|Ec+BRs z`@5?+W^OrRbp>4F=^5NA)``f6W!CN(QG(Ok!&BYldbr7#R$YNZXZD^uDXm_>Z3~Y# zfdCleNv&7QxXd!^YP)_6Sqk6v#NL=4Do5O39RYlkP&G_=34TciaM#vR%S&GVJV0!eOEFXZrC0&k^{& zjOH79-A%9k>>xVa{SV#3wzSt5v`XppiY#bldbIXB6CohJ_!r3D96)8I!KsUw9~P{N zf7|Np-vry<`UQ*vTC`j{Bz!cJ!(9pYBVQ(6rV@ZKO|3^YVY~9~=7dWVyK*g)XQ5u3 zk_j{6fMg%t2yW9j*r*oYnZ(JR)d~Y}F3<%sESgpi1ZPmj@>Oep-aj$NS|}SOU|}2Lwy$UZc>f8Z=^dPj5iaC>sz)#t83W!PAKW zWM>_6aOJ-wYUHRu%%`ns+r{n|Som_ixozO;c1;1jj&l;hj7!}XAjD}>~ z?8gyB3B2XL&Em+4nK}KR)ts|N`_F=^0b5EeGI_SWZ1BG%2Z*UTq;Su~?iE;qxS>8>)py)qCn->x%$7G=T^}fbB9p1d_IpMob zM(~GRZ%(GnHXrrQ`Xx4P%97?3BIV&7b?BeDqV=WitJdRb+vu*IgVd6k8EAxB2|$an zniF^H#Ho(p!2INu$)GrqwcOF+-~J?Z(4s*8G%|}FQh#!9NztLnKGZxS*+^!x?RAFx9WUg?s8WYx;J5}f$Qi&z@wGp$jAZjVppSHjLO9^#gZ zLqH~?>PHj@-!9%XAnXSIm>yMJ-sZk|m00~NRtF2OlgSB?fNGMiTs@sHqgc+%`SP7L zMa3T)3MaC}xceUQ?%UdN?2JJCAw`WrQ3X8#Qm*}g5Xx&%`aJhl#oNxWztWjLGiHL# zVdu9ao4;GHZs}NhsT-=#6)g}PFpd$;VdQqG`fr_eG+PK6O|{O9o_Fi7_b|16oI-N8 zhi458{F=W1_&E;G;NT4~#p4*lM~IMJQh!gEb{F%LBte2&CKlNaoPniVw!b&z`PlC| zBc;j3nX-RB7EQU@={6W_dkAwK+qBXY}MpS5-bwt zftyE1exDxbu|%2uLm#`a9MEnk54O2{c6%wjF-5n)q(w zajE41!dvfgPGUtc;o^4}8REM?Nx@a&K6G9K(i>P_nG`KJ5+Ovx{;aBCd}5a1dS>9) zTlXkbG|S9U*o^l-JAKVSLZ`Czu@m)s$ac1`dhJ>)bid;O!(bU7UT9S2ADeRo1Nxkk`Ayn zxKB1XP&F)J`oBbC4IF`nB}kL>8+(Ig(0?M8NG+}tM?FXUR1Fy|u5006vopohR_y6F z!oSQj)$iJV81x&|58pZ(9>71RdoET8uK$2SdC7?=l1J^Ex1iw)pIZa(C_H7a1%$mH zkFD^J*}%X7jwOUgo{=Ccg)L@mnvyx}`Z7ZL0nJbjCU#xrg)FJ(S(sYsO$S zI6OP9D2S#0AQkU3>YkE)wsM+iKIO;ifnSyzut+ujbK_C8!`eo zX$NmnjoKL*z5&UZ3@9zEQ&cPREqCX90*lV(u+;CBS-lM6OHf0kq6APMkQ0zkRDkvo z1c?@b_W)P3ht^P*Wuxk`s(pd}zrcNh9$u1Gvn{aYyp>&1E2H)2_Qw*PI?{m7efNUV zd=Rip&h3CG1Jacw=1I)ndL*Ub*~bReO7xdez*!0QrJ)lXs>`2X^6D z0d1P@iX3gS3Ry3+7y`l8gL~rGwU!~~?2(s~!Muf5S(;37&rf+sk1C#1u~X6pJ=0pG9B{i((SR$ z`<&gs#+@ZR3PL9=!W!#*z4hTM`saK8*wJV@vSrs7sBd{ncwXCioAc1uMZdr`<)F5vVu{+- zV90X?hU!8_lT0naKa7J3?-U)`g0=xw%TG~7F+qlNcc#2a3`LRC8drnJwb-EfPQoBc zbDfB0wG)BxV;&Lx-%5$Aut<0}P)$A2NgjP^XDE}z@F!9ub3gf^i2OPZ_WEFrH;3f6 zY9Yre6D`+=Le-m*16Tx_Pg$l8C^}LR#H`~$%Vma1F2kOk>8vhp{-__suE1}ENijo~ zlk3m2K2+2F2bDwPSxM@CGIF6%;5PB~VKQ>jrJ-J>*hq2|F&!1uRFh&EBAaYB*WJID zDILwYl$aihh3bh3vIY9pkN(ELcwAY)myBUI5j!-IeLu%+;N!s91E4N8f};N|y;>t#PxZ)_AgCL*4y7TeQ)?qZbBBYq__EdJw&&acaD zF%bplK1fC`v1J>O982sTJvj`ZxaKLE>bYBfImL?mhd2yfp2D~UR`$$|TxFfkdAVPr zel>`yz6l}BHv*g2EGGUZ=>Z{`19LC!%{ zrY`Xpbuz&53ksLu-d0ve?(1cEVb{~^!4B^uwJWXY1rX?`&MsVZc7Z`}+Py!pn%I|t zb(&v&5-hABheFW(Ju;fLiVV_jm}8yd7sdGVbwk`yUHc?&?m~Jej%FX-DVbEM?m_^w z1S%>Q(gK)f^D6D_1N(=#EySV+_0=bh`@epJD)^J4iArFf7$v4%bwMlT_Y=X!3jAH* z9KLq9YkAphkVt1x7v$j5Xu?MdXRgu@Hhq7%Oqsdz_dZt}D1xr_@oa?HQ>|0Hph}z1 z_(9(|qu~@crV~f0I{r?pqaZAX7|Npt{t{$?dNf56g0HRmh!QK>T5Bx?cJKb*_*7|jEJ-~IIz z(GmWf8H%#$J7>tr4@A#cEdj2FU&H=Xp9FaKK_h33D&+v+^A()skrm;YfB3{e)P6EQ zUWWVaH}Ah7Kcl#u0I#);x%zxYu-`~S6$G?)eYBE?zIMCmf#)Lp&LaB2o#<#=Og?y$NTnC$+OFRZ{xa*th`CTlg#R@wvAJ5i0Qk9h1+1e+J zwQ)-Eas-bquEwS`{Gu_jDVMGk6=L;|W9L_tVrR8`7i5_rD#7ad&M)6EH9x(C&f7CZ zB{jWtq(fX)(XM1)kAHm9)_&(Og}+p9MsQ%;iGNgEYiM*-t4%;gL`+CTZ11g>li_DC zxBhQ0vg>Dtj3abKVD}Q~ViO=$lbgTr#w$Qgt>SH{`(v;eic?vb7)=2k!fZWo^15eV zu`X%z{HsL~O9W_+%2UhCoB{Ydr?PfeLVV97N`*uG>qd9{185JhrR@XfZ3e6;MSnxzOVQ5t^tejkY^{rItc%Pl!CZhTd#{!xc}gYj?8`#wQs zg#{nRe-rX|`JAU<2p%zOls3*lQYQ#!kE!QstlMso!B~g8&i_>nRqK(+2C*LC%^@p1 z1Zy>l-trOsD-`T8qx^hmJG#yWU` z$Mjoe=d!8mR$=SY4s?*;JpVtu>NU|`WUa^m!C(^E|HVaWqK^#R;!E~zRP zC#frl*4-U?9G;o$w*PD0E3g@wmNLr)-sX~S?@_xNR;cFrbP-s0xOC~tO!3M!JD8R0 zN;gxRb6#@iMs1sF`dwv>4)j{N)Xp+xC;IviB1Jgwr4}SruQ=((6&->nQ!f6}zLJr) zGA$42)!zbDMCli$MWgdoO0Jb*nZyL3AwCI_yd-{>D08{x!U}gs21C&0QR;0vh-x0U z7@!^;j1vQO9IU{`7#J4Z@TcP!mzr#ENMETXnUx*Q+{(J=CVEeR&4 znjQRf$A@xiNf6Q$M9=o@Fu-c^Qfk%;$FNzYu=)lEXX-sk%(&XZkPD@FW-WA`@x8P@&JqeSkS?Jd_^8j}?Lg(4Oac)f%w7xtSD({VcZg7i^9mO7($Wreh`gkt znerOdQrs9Ax)Y(D!sNW&6}*?uI{oWIQX0%GBTHf(dSL%I2wj|{A`ogws* zR&$&QicSwtd}i&o7K)yRGqIXVvUM_=sd;vst?>qk#kfmOU7x2uE^gM=r`>Cl-SJ$X z;+TuIimd%Pwd4R_FQK&BxC!V;383;%q*$~Far+ja^HzEU_*GGN_@fFt`JAIYuHkVg4P$FQs>v<*jxoYE= zAgKg>la9`B266T>@hCD>SgFGPEEc5ttt|B8r-x{$NL@f+mv;$A9xL#-hAf$6l|~fm zju=#3hLg!MW6*85efF&T*;jWw;uHiUrhgWZv_##KV8L0A?x&dq3s4`=vdZbDuM}Gu(P|!#lIiB;+-lrZHU7Zhz;KcF->{nsH%s0 zh2g8+op-k}C52AP;cYJ>yD7I58oOhYg6FY=liN{PtC93;*sI^(btWJa>6f3;v%BD& zs?JM<&FI(!$;^{T9O6~I6>Y*6W5!>w2~Fw&Y`FdN$ALdbyUU}mSk1JtKiDVXhg~Kg z)OV|FZ%}S<**bC8Jd@~nHo#PeSwRC1%7lue)b8TDSyE7J9$)u)@e-Z`6*jKw7iIlX za-It~t17;`AeVs*yP#l&nP|AH?O&ZUZf2U=A5=qs0tUb$u~;4Vjcb<3PQ z7(NU@%v`5iCG3PRV8IUn$O?SDOD+e}JmN`IBilP6hAZxe+fbHG9Pr2kd)a2Vm#zRg zidYes{rqV|jvx!m>WZ9m!tIPCKm`{ac746URPzE0y?bu|1=v0F{ETD~>DljEvlil) z__790a7+;1Y4uTu@c7T;o3!pO(~pTGkAlrV8a=*|4VPi5fj>P~R|q9Uuqz`p2;KSr z-f?-42>s}ThO5*EgiJV4CX&;RZF$NSnMjYj2*(a&$A3N#D4OD7v=_w?6=H~TmoP*^ zbYolRW*8!XGlt0hKSUK6qC}A&xF%SibO?^m+1y|sJlY4VUp_tla^y3T!5jP{yi@0+ z&XZ&0qhP&{R~r>-A_irf}_h&}?V+)*gpafuz>l_V^Y z|A!s}>1pzxLSS&o>8m#o{ja_*e|Quu9li4KVzp{8tMdXZK&ao$DWl6OW5Oz9z$(MH zpl0M$%+WdX;IwVjfuz%dX6OG-X4DBPgTG!sn0xfEjF0pqBdKXhD2y!}jGY_BwE$=y<#Osra>rP~#fyBs6GAORu>3kn`hwemcJp0n6(@cu+>-I6-@*hNy@c=1ZxbCi#(pAFhW1de<_Xuf2cR;=LHlS@eC<>akt{;~=c- z|CXcwBU>3GJDwUW-t}*J3KN&^BRbpF#pwR6QAoD&I)44}0?uvhy#++yXtJ!SD;p1Z zz&;8ZxG!ycB-ePY!t(@)eZ5z^UVi$xV}UMkBQxR&cp<2$&F0*aBrVLJYzJ;kqVF%e zeuUkbeVL&PNW7N!E!*p4)^`|E*tIRD8P}|A?@>wD840m4WPpTe&IRcJ8(xGT_7R${%;6a)Jj! z^gF#bW%7@#|5L*Q0hXOOTWfMpyFtV@2-bDvOw%Q1YY165D)GV!wgz;Ove88kVS!)# zy`OMhM-DUzQC)*xp6v<%QZ7#Anxvi<-o!V)MXTQNU%OeYL-MIoRF}(EAC6g%zec_dx5{jT}22 z`3a8_y)9;h_7ImF0{~UD+5*z_swt{5heLL9^oXOad%Rh}e_S&qD^X+x|Jj7oZfI0o z9*4WEzY7iGCMIyP>L?xtE9q|Lx(SK-qW#9X2qie<~le8HrDJXH*oTDHJb_Od;nq*maI z^u!pwRZ~pheIA@(m^lCEX%L`}ee1y60`lwT$%V9ZeJDR^MwyohN1}@%^qb#_Si9SN zS1X*L5_OW<_$w1w)rdGyJc-PdojYC#{CirqoLKVXB#F7|cH`!WAOO$#W)HB?!tB2o z7_@r#O^v4MKyu^^q+8#q3Lv^teeVp3UM zYa;Mo>$<1?bmj)VEwwzG09CpBZ9NcM>nU`&Wq%nL-z@0xW1?@C;qD=KXUK|kkcopy z4j%T~Ii=}f@@K}%gUCq_2e`6R^8AZvNFUvDs(ap~pEN4CQW~M|D=oW!R=;kbt-hi9 z3r{=0W^bY!Sy*^yURJ>g97fW=lb}_&nfffJ{v_aD4cf(b9So5%LM{(G&uwagbU_v~ zKV_N)%PWzI+Lf*jMK_01fhYHkBu=}R++~H&6Zh&XpWmwM!~B`*_a@xE#)>=@P^d!$ z*-7tiX1d6slu4dkB>mmqIGqEa?}u3F@!e%+8)Bpds9ZHpH6V!`qZ&sb=P$!EZgV*3 z?;a}dtOxVKL2|*J{&x>)hb?k;6YiB(zwagy1S^-%GjHi&m>Q_`lwG!)0I!}fVP+TYWN3Q4$ zaNxW=8z|h1e8i{iDUB-*pP<*l$(Q(duA7R+P0$PzVi^ZcZ-XXkXL~$d-VBUjQwir= z;Y-&iLs_~nL=(KjuDQj#@I4N66Q1s#qx;XTXCS`x6IdCi8@G=?7J9rJ-)+g=5+@YD zbQ0RbrB4mG|J*%8kRTLRg5Da?!5Z%zIA{B45_uzb=^lB5pSw0CpdMzue%{OW`a--dPQMG73oKKwozY?RiPN?t-(RMPWic^qE+D&`DI- z$ZH4mgyQ{#Jdi|uX81@IKQ~pJ@exn6cP@^35Wy8ZY^FL4wZ0A7xvhzY;3GSS&`&2J zIU(qOZ%l|o`r!`$JxB!WrN+q8E$Q)smK!P()zjK>)fDTH~ z`GErWdS1~dJoWd=eUuwafB3W}MD7+}IvW?w&WMc;Q|Gu9yPFROc9%>;XA^Ve|TUNdi~n@YOahY}7KwIB^om-WH{Sym}o80xae ze&%wc{I6#7drv~YKs}KH6#G%X315j!6Q0`BUhh>_7nBuL4@H0%2}eQAU6J>b z3;!8|q16S|1+rHn_Zr6TMTqr#+CxRF4_K%xjW~#zm15|=^I+iQIw#t$@z(j!S+JWw zFX}w_$hn*(RO@+wHz)XifO>-@U_`?(j0g-8W?%|_j-ve^q(|%Oap1`RO53*z!wjtd z%ZzR*@g2C%VHI*0b(B!u zr4tX9_#+EJ)pE_seUXz$xczfTwc9l@EK~pVINuLLQb0bcWE^aHpfwRy0ia{cay{xQ434u0c1)di3t9B}U0A)0&b+V*^5682y7N9_e%d}lX^6`L^>jEz>N)K8wO@`fI$J0p(5rOdq`E9;hIXv2y^qD;vhC?d1T*AvWNg0 zgY6 zRpTTYW8nozVvwq^5C@Ia;L|=BcYZ=e1S;|WAkl1O&a?aln9bSmL#pTi(+GZS(K$ecV5utGVj&!v7iZ za+NDFLtT}12>XN=i`6xX4Y3a0cn&m|9?sokUJSgDGT%v7-g(o%N{{c zJI^%nJ28QGa^18`uRgK8&TS8Z10}zT+9GC=0~!hF`ol*5q~gmNfY8TYCv6eU4zTK5 zXWqF7_;ThPaJCeDo!evvG~vz*eHZ*mRsG>FIn3b_h*mv8B+5v?bklah8pg`Gar(QP)0n!#(NH#zD4F+j04tV-Oj;%!`chQ-=2dzn=GfsUZf!kJ zV0{h0&07ArXL2&V)2A%mzetU4_^^gJaW7|DpZk4+9+EH}NoWvlw8>P=l-}8};-(jy z5e2mK-7Vt1L)%xG@x9niG#Xgh|8|2ovbbg?xG)QX7Ce34S?gByP*;fXzUs%7(pj$* zJ0(B6GJr%_dF2k^Z3gG(-SIMb9={Am@wQzCnZ6!`=&awO(hr#c_o@b(3y#+V_`=>@ zgBD-MsJ!>yaDYm<^ScH?Rg1}xQf|JL%RPMa>sora`wYbh-3fFjy{*V1CgKYsqe{Ga z3es{ih{@1dxinh1-fer^k6iKTvx`EPgYWAPVs^Ap{r0MW91P{q|KjDZf9;FUI%zRT zf=p9nirvwvGTgbgeF_v3tuo$Gxx{cwsG|7Mtz>Hbv;q!HEfqzznY3)JASE&4)5Js_2j4k~B$VRA* z5s8)5ru3|*`KoR1r7Y+<>OLY_2JhRJETKe|SGQJ=H{mWIQU0z_03{n6Z>=iBEA}T+ z?jI;m5apLRoZ7~XKE%-m9#notMosNCW;O-g*N0@2)R74AhqnTXU2{3W&*ZA7MU$ES ze5(;Mll4ojhW-?8D`$+Ebhl|g4;no2ONSkYI#B3i<_#{S5oCRVJDo2r=hc%AeKWy& zkZWI2poffl^9D)~v-8F}1bc(6>2eZ&86x!Hxo*rTMFK7C{_W@n1RG64z^A8FVt0qI zU5RW!sda7&WA{k4+y>@bfcp^N4xY|u&<*~|^P{`_X@kctQCv12l5f8_zf5QlIL;R0 z;e~4a`N=sVJwDyPp!6L{PLzaBofsmMMNty}?eOP}D^10^1Ktt2fIS{~fe)~HNatnW zHAKR5C>;hkUx48wx?tWfv&CWa&hGSG2lJtO@$u#pl?`HIxgsrAPtN!~rK`iP&!heo z`-j+m>e!2<<1SrHwXO?G`dz7-5&h4_-@uhT9X}-L5%jRr@AmNgPw;(#cKm}_XI;p% zwGm>87oxid>(6i^WEAP4q;?x<2GZ%96re5S zm_+mJrNTtP72_TH0AN?yc&|(|1n}VD=f3lU_WN0f4Rqnk#l-zgOTwj{sO!s`=wPDM ze$6?wG~4yw@N>=vKu9hosnNw|R_fn5E1HG{SFh3xnlZQxeLn5B6!*Y;0DT@zM-7)A zc2^m!KKvsJfE2u7@!ApB*4YNB4!$rGzxfP55t<%(Ug-Ww93TJo_VHU^wqoJoa1RCo zFe4AI!K*?5HQOI6!sK3$tlT%cs+1F=sdrG`VmpDiv}8}!5_}V+7U2R?=#tCB!H%gQ z9CUPOECn5lca4nBNA>SKH16!0krB2-AIVKp9N09|luP7o7##Hvx8)VXglnqYHn1au z>6RqKlI^1VHG=pi=hc>t*PE2c9Y2_2)q~07>HQz84~Rbqn&H>`a$ag;iwfZKGxu&( zAtGtjIH!yy;O5ME$!S&u_{jzi2ATLq|O;4BjH#|Bli)SZW7M=?&FC*m!*6RY+4SkC% zNWE~{r@^v=EBy)2n0mBSI;jVQs_2hGN!Ynpi~t=B_{$N+d5y|a&I5jaF6}RO;@ZaF zS^&Q#jek3a6TDqV=G4?a7d+M6|$nzfvzkB88Y~4g!FOr&oxh^_}D%h|iIBpmqe@EN~azW?BqC$Wh zI2M$NFqy?LBQ_f%GU{&oGqCiRxQ^)ECprR}RfqE>&y5R#))2#&W|1r3MF+=O-+&qz zKkn(-o`{gKvqH&eJ~>+1I=b>yp2%yqw$AEr?>N})e6+!lD!akat1?AtK9TT>-kC_i zNydt{EdW?;U*}ZKR?n&xH|Iq6E-UN(+bKDDRvg+f{A@y zB{XU5#yMA#nNP!JKYjsV`s6B<*a+&%OBz^$1BoCm!gdE=OUN^{cZx-sYgZZXlFW3OSyfUe@62>X-Lh`^XAKP)DRo~%5&nzw#LNAOm;~g@+;PM(KdzJ z4hcD%Q+uMx$`e1T&Pq(5WE@QYBvY|uofFw1R)J^a! z^Cn|eWKJ9@vwRqV`o~A%an@nj*sNaBU#Opp5FTP-<2@lgr=$>>E3ciS6*-B{aB`aQ z)^pbRkdt4^TM2QmY$U%SUi`3vh6D3q&_DoUzP%0}w6J3VGj*<(34W!kXZTW?pJ+xo zbzh1%QbkURpPUI;3|2PlE`?s+hrDmU5;+qJJQJ!J=vmvvL*C+urt+j0`W@C0GQ_)mC&@?i0Z??os_Qb*e*VipJdNI&_2 z@ZSt6IIm5pbZTxXjXQe&oh0wovqtiq8Vm0B=|W`-w~>hEWKUNOK7QA0QfTC7@Q!nt;M7>{BRI8ThW{j{-oZ1KLzPR*MGBR$zQt@O}bXSi6 z(PBYrBU~>jP*^ySfBJ^-+<;gUi zKY3Qr$uP)zulu~pA{xP~42nZU`evJcq4nKVA)M$5ks49jeEPO+lrL3r))yaP%B%bL zb%k}%%-mr43}9iO{m9WPLt*?w${Tz|kh;o$Lu4hpeZPNSld9O^XH$pI23YaekEb2V zlJO2-svRY>y0*Os5-KxM%0y&}Nr(MwSNv{$YCRfT(C=-GpRc+?!OZ^}J8kQ0br1Dt z7eey$S7FWa*?WPAZwO+K68Vf0a7AmBT51;`jh*}h8$aotd$bFY|KGwB$)fzY_Pg?M z#5193fl)c~kBQcO?-re)xP|9b)P2@Gnd3J)PI}QTkbSXXZzyqE zr9MJa4E_dL#W6i7smW~O6aBR{lDm7;UChIxYF{iXXTFtvK$n#0&RzMoZ1I4Lq~UD3Rzi_OqA_-ibt5JfI2iPvqR5PeB#I1Qkkv@Ur9$GSbWtplq0@NXEu z@-4SxfU&j-lhxN#qWjZ!q8mCml6HM*9aYRowOoixr=GFXo<>;xvQ9I^&AI8`li+=E zqFr*fRbV?z_odcGUf6MZJYS$iILRJ6#qQTIq~9>4 z)Sxc9Z2Mw)+puAXv_aj=pVsAN`a7+fFVfs|%{HspkrKs>jXc-IRtxpA$@6e(M-zKe zUWccpOJnT&Zxl%)@=5mzzA-+%`l>MTexK%%Ohf^`<&~I{Vi;=-hHr)a+a%28wKJKc zmJXJLBu+uk69$FJ=R^$b`vQvi5ecOGPfEhq3@g6j6(Zfk6MX8>$qr9Fw5AF&e4nc{ zSYs)_c=+%*gpG+n2|d!YdJR*m$5t)q(BX~sd@q(86fCcy{xbb4%TbvlA~bTcWB2`! zsgDY%e@S4EZT?4hu}Y}I_xL^U@l9-<7{19SsS{66VgFQ_D$204fCP0``Lj=tGpgiB zDVDeJrcsKTy(h7rBqx@6K1og>qdQ6dOs1$LpM8I5gpGS<$|cNDQ^v`pnfWW_EU8xY z^b}jg)W9bq;U4~M?lg(_x#3$Isfah9O{RSto_TN`l-n)Y*V}^D^3_&?dGx1fRKB@x z)_|Yw@k(f;Jh#ye&q27q1MkNrE`ky_?fz-`JlkNGVBh5EKtWW)TBMNhGf( zt;2|c`%l6WttL5T8-4?51vL}`#?ou_n< z93uIXyqw~MySSc6ektgA%%DD*{Jn#N8FoI~Xr#LN;FD(d64O^KjInm9DG5giOKL_c zWOn9B+Zw|;$I6PfY2{-6On)dI2otH5qY+?ol=#VdslYJz+VR&;muK`tS6Rxz>utE~ zw!hScSr~#(9#F;%CQpLA8FXjAkfOiSf+h5s%Mv#wiWrdhmv-1Xg-{>O^++D-UX|PB z4KZD(DBw|nmVUY|fBIFq^bRH_5Y$8UHq-g-fpPk`)61_@D)!>MM~rHhQg~BW^Uq(b z2FTaGPvT?J13#OW6@4Uh`hHKz-`P{LNw7bw9c!o9Xk6?;l<2r6-`pkXX&|? z9OiQ_&(LV)H&J_u4(KT;(l3RcrYu}t-d66R-gfCmDmTXO#afQlUWu`VRRWU?tE6{(9Rz_?5r|V z_j|=5*`7$t|MSfDDIx7tZS?ey)yd}Um$A+A5X1cy^^;6r+hAf>u;Jl{k+vr?%KPga z^-u4Ki>Jf$OB}#q|J4mL;)E7|raT`a1*+w5Lrk zzw^|BSs$ZW`cX^@5LH{(Dc$FjKld?^HS&Z#i~RGiLn=1BA+5E-R8aJ&HgNdwtsF5F zNZF6JrbgpiBXlYSt$CjTPi?7L1(-%OO86>t-Ft2`H`63B1${|sr%~F)L2N#75in|p zaCEcB8go%ZJNAcEuzYus9Zh$d1pXdP+p>OfKveJ^&Md)hUy?d@thy2&@t^0_$*1y$ zSQ*3Rh}Lg(-m!wCyfJT@jlZ|{>5uaETe~GkxAu9A@(Kzxs~vUW`n@5A-Z2yMj>~si zCnSq}{mqKpXZ>k5Rg&@G<6E1NM#zo$l5D8BAh>UeWl;~-G{W~0SyM8KVG1P_*PyU) zlAv+s<m&~j;J8|ESYtK6~9Nd^sg%W zU)BD9s`oa?6N^n%7`Cf)yxF7uj8lP%cAoNf(&wO#<;3OmtA`Q9`g*XhHDI5~n{#K* zC#aDlQroA0n%vb>e~n(}fsV`}lRsH>flb%MK#(F3Z_=wQozhRINP=O;(e#Lj79yOg z(&}E;uw||>nDebISBqB}a3%*xYq!L-$WPDiOAAI4;pm5=0~B5b{`>whP8*ux7BV~Y zuY%(}Ax=Rb9+yx>eQ>d)o^DKPoKD<*^h~48$%JZOHN1^eBan;I=F#y}?{s9=AD2G! zk{8|-_`6(B1&p%4wQ3OWa*2)_yj)8@o0-~PJ5gnNlp&a1WlA}5 z__mMdw$J)3_TY>py0SUx+e3ecejQ>laTiO1?!RL^TWW}8_5RXx9jOhv=5DdJ4LVqu zdoBS)oS@5-C&Y#_1S)Xb?{nL)6!$B`u+{Rw>AFZk?wl1=sLC6=SKf!i$F`)*_`>SIX>$_fh>&LrKUT3kgeM%sWka#P;`-Htry+Idh4=6^{ECY&W3zE_4 zo=}X#^)CH*Ixds@T5H=~n`-{_kh9u}?t#;Y#5Dq@qsT-H5~g-qSwGCvfk9T3N>&sf zB~6D~ofrOIaY_`!%NSSd|71CYv$gA@C^MY>6`J-Aom9;>ySJKu)TPHeBB=FJ$bIiZ zpDU``{HawdVV9S>H`|!|_rjG;ZjK(Kgz)OouhktCU0zQ@cDfT>G+Y@phqRyq&GaNd z32axvpkx$BBXWq}&&5C7?c0kPEmBh-_UfJ5y%dArB7>p74=qSE)J%2S7`NNj0 z>I?d!8z}L?K^sn#=E*)BAcZjELoD#zRxfcv=$&YOmtps8l$q;+Oy_YAUaL`Q1470w ze57U8RIZHc6Br%NBA8}U%lhSa3{d*}1V2OUna2i#oP$)UOT_+CwG<6zQK_F?UcKypVCpsokcuLi=k^YM;SaWG{-SY{LWUozkXn!zGEB?Gc$H%a1$5lEWhg zpI2{rWK80OvuoECQ|iRAT?OKv4PJVXnifmGg(qNFsc@eV-lPM4J>I%Q1{j3Mou3!J zy^b5D6z>_AXK+i<2;8d7!u$*{*IFdI+0~uXp6q%n$SfSGow_Rjo*a~RCC_%`VQQcr ztQ*fG6*C8J@nddhZ5tLH?Xsqxy<@wfGc)BI@%{RVdQs8S5Os7fhyC0Gu`4V)`H>>S z57km4x%Wm}={Fia!E61pExsKEm4VTw?H3ML8KjJ7wCPIS7$f)0dD7d4ED7(ms>28()?lYdPJ~Z#f zZP4(hnK=lS5KypD_-2I|K7NKtdhqr~fI?=sOc08;*^2rC`3Sy#`&8!_CI^8ef&X51oy=}zcWD2>kDbNKwx zhFGixGoHEA!qpqKbnFX5^06LWp7Qeh(3;xW9(j$B<>B0Xq4Db7pxQnavdW77zm0g( z`;ioExZVbU!`2rwt-byM?uiXLmszkYp=UIZlDQ7v1e5LrP%3JVZ1%`re$xOyGK!

*q6i z*WiPGts=-6u?ZUsZ@M)HG|iobMp6KZN0X&p0{^-6PnxZ^6ryqkag5a3@ItYR#GA)i97v;&g%EzcTlk-U8Cg zVRXJ@%L`!Y@zAkoIj&?l$TayX59CfTDueak|cCpO$(&b z1e)U7y6PNvjlbPJ0Alreu73(6`2|Tlxghh>&kdhwdms92HzlRG;u9;>rPL`IMtr_t z0XX2CDwva0jMdx=ZNdb^T^zFia(WHP{nck#T91qR3P1Bm^`$T|4bu8m8|7HANdDj6 z0i-p?>+8o`S=2pTfn?Y2-&w|_!P_H^MUu+=IQ6Sq5L%FLOn4NYQcgzj-zM^*X1*xi znZ8vfa0&&mRc%)ToKm%K;~bas$ugcja5gg?R!hwcUo$6n}QWe*L<-+yL&>^0EQ==CQ1Eq68O z_PzUUZU&q(5v1hw=-iT048l6IK6{!%?!;jP8^u<94?HB2h2iH|v~q#HaiTzaz0HG@ z7ki0zuf18#h{2Fl-+_WiUg4Rqc5E_Q!Jd5Fqm-7Ei%2%c{N^G94#X;PAoo|_*kF&7 z$3i~)NCLck2xcs&@1Ia79ZZNij>$K?1(nRQIBhe|v`57(r@2ZD!&Ph(OpA$SH zB?eEQ)=ACMUv951e48q>RF93L;Z3w{AfltoPBS7vL&5-WbPV(e80r9dtc1&(V-iEs zVXXrDyc$ovg5|wgswFC?1k{-j|Cpd%IMxmpCqAL~$%Op!!DrN7-g5-%U|Bl=K8ymT zD1W2+qfF3G$&T!uK@L5N(PqeMFv&WW>H|?8HPD3L$Q){oV)IX??J$p?!0^z;L9?>n z{^K`)n=UFy!bJGtT6^5{j~kiDJEnYlmibG#)Vlv6ML)Eo9!hdR1&4&wBl=Wb!(E>) zIe7@~SINQ9=PxLZAES}4!vOrsR{=XBsAlVB3*Hz2nSmFH9bu<8PPPm4+^CJCsFr;+D-(`@E!p76fyfQ>( zukrg){DC5?CF+?RcT+`b2we%gYR~-PAk?Lo?xDA0sXijcErvC*wp%L3ZOo9c&1BU< zhi?@BP$czD=$!8_SsK}(GB1$YV&v9_ZU8|a{?^H>TAKNve(GM2u@B^vY0h~t2i%)C zA8ShyfJh3mp-gEC8--UgVSMNN6C@}y=ROkqHbu(Ld(>x?3- zkpPmuq1cnIOK5pCD``F%-*}WJTVY88?L68;;s{*HiDdcL<*sPx4t-4dWOxGM*@opI?ord+WuS=Z0NPNxLv6&kXp&@sez(M~ z@Uy%p1;Ou=7gBHQWmA9kSzhQ z7A}Kb96vx;g`isj(rtD*Bj6w)I`b6b>9F-Dq}(KaE5A(b-<~7gPFatjJanoPz5z|9 zsxsu~C%cww+L61<|KE+I)9t(6BZGOEd7tsV76`-zl`i4lkZc}lv}b@I_HVnk+)GnN z9$U#p<>UG9r*szY4ddT!aVBQ%@%T)AQpC zNDa&I4EK@&6tq&=Xhs|TzN7++CZD6;9Q9tAw{p2KH$d9y=K9vyf}6w3FQo|fXj`d8 z`wI*g^{uQj|%juLPb~A9S)e z0zs`KvT5ON`B9EGL_fzo!dnc`dlO(bFL< zI>RJelj`5fwZE55X2S8+ERNquQb*D=%^|L6`yqSLKVH~^t@Q=lyX9rr6aZR4%!f-k z;+OKf-T)nlpxW>59UkW;QLic6(OfL&)ZcJt7U)0lpaY7zQkHS%Es^rGLtR&krP|PP zx*wDU6#b6N|K1K(wEN7o*bD4byF7c|_Th&cvf8Ck)5Lt5NUf@6{dy&#Fuq}5w6@PT z;e=V?VuAMWGozEE9x>jHCC&b@amlK3=C>4EKL_hDacr9-L$8o{Pt;#kpC(FD_ck_M zI@=Ah)gq<%TUrD&&t2k6jHWJy${4~&VT4Y$8iaWDYUMuDNKN8(GlGfM66HF!C%8== z4ym0`zr#rqh>xxS;4|tmF+yS=o2Xlz&9rl7_}#vp?fPSDyej`EwXkgM}kbM8t*?;!iAcqxxPHTk7aX}4eeNgz1@v`~>**5^w+ zdjB&{r>eu@HHnY?NAp$7+*Qf1<)XM{SbbLMdV=4h^w!nBNHVcaISocxOj!f12!1u5H~BiNd-y)lwv)inhvy3)q?FDs^G{~%W>a8H7v!)XGj z8IXb(WmH2hD+t1km68ye z?<)jq!x!l@ZZTcDmZ9o@i>B@5z(>-SEzfis#XGnzHCnv=O-oJd#Lsm^Q_B=D3Z z@NT{iIvCDm>1+wkZ3@nfvu)f`sF|reIZc$nclCV`GTDTqgZpxoTok^4TXC@iUkGcw zr)Vumjz;-0@%(Iei-@1L|3IgkrY3yhOW+$dCk^fTF=e$I)nGzk(N5Xt#vby6rjLiL zkEbH|t)0JZYMn2!T}LxpTY!*Jdgx|m8r-(#6>a+e4D0u>!Y@@mjjRcGK2h`KZJ5Sj z>i3hB#g5^;x#bJPGt1S6H?!|3XS)g3ay6QX#41c?TwWOD!05u0;Kk0gz^XNsT$l= zHL@*I5?0))@e!KXVGZNWUJP&TT1{x-Rkq0{-QsIVH&14~krkuYO z;DluA!>0;1(7&;FA;$9x0sKTxja{qaD&NI;RV-7#HL-+wYR4&T2(4>fG=*hJy_jDw zjeR~%Vd#g>X34!Z*Rsmu;&b}4ZY2L!*kKToodmFn=Is?up&jt2F#;H9a(PcY~ew#?e(r!31PyL>CbW9TvoctHtx=#>9X zwVd#f(@$}Rmw~q*^j=5a^?jI6Q5B0vJv8sXY*e>EpbP5TKT^N;aH;*GRKn^qd4Ikv zJ6-O$vM}Um=79O+&$cIOGLvZ~G*6~UBvqQvMk^5dWr*xDguBt=#P_k6HTV1otI+jFI5{LicbQu80dGJE>=5ys zYX!o+qe6Mai+nEES>imDj3}TqE9HWZ5h) z0Kh0T>69SnkU$}(^&UdNQhg|-<3yzZz?1`EDghb`Wxf{4d>#76XsMDy94;2lKdHge>0ZeqSth)a(SrYd8jhmM8};_9%-oZdq{lyPDDz>Nn{3!4xl{4k%gmL?I zyq+UamWeC-?u>l%c2jT8U~&$QJ_HxA1T-p`9s53dE2VwN$s%nVxXZN)&d&NX+~dQz zUuKk@Rc>XTySWRJp-~kvqo+YR^sG{0dg1gNKyflu-SqALIL^`CSoXbT?)~yeT4TIf zWBgQOyuh;3n^S9w({0UVC7x4848Ih-?#2Ng0ZX!<*<{9iyh7II%fj@@q(-P!a^u~` zq>qAhkN-Z|M-Mr?S)>rptv$U@suq~>umj0NfQIy3it67RMyunO-cT}gXK<|wzB$VQ z-X&z5b-v3bwUKPGk^H`HUwAYH7sA@H5*Zy*Pl*1)PdjQY+44@q+G2*EIoTZ9R1HQM z=p@7)>28b(7Sej4IUt6XUtVbBh+YB`1yR}0?)s%)5SrD?hsc)?;V&P0&R;~7=ar$J ztWVInm#HLw6LyC%`X6Y71Od|5K>JC8(qZ}SH(J8)#n zQk4+{uHZDu^Dt?)Nv1f7qy$u}2pCrZMo7ESXCpWZ zyBeJ3sL!^GAV{syf#iluZ*(VTMo=k`mLEMxS#FyC@O^&|SNTyFtqK2ra{mBp8NxjV zxF!#N7EK~}JC9mfAXQnASV_lv>>zyXfPd`3a_oS8%!+esqwriB?>}q9)+C&hF!6YJ z=DaoiJ$#|=@YCd#|98(Nz*wL^;}ek16gy3XZ5k@U$ZoeT7+lPY$k;69atz_vC9 z(3CQCmcEvquiaonhi=#EB9wu6egbgK2pF1gl}e6UOYDU5DUMf6H^c+?8@!XO>g-tPYKQm=!G@K4m$JqL z5>l1_8Hg8SBjodBHtHZE8<=Fm(VM^`RnD)B91BkTrFP|`HirgUuRe9BW*TQgWT(?X zo}3zGbNOr>rwLI6!{qbS@nV+L8kZwBrm8@#_oY_(ZznuhN~YCWoK^6dMKlJo1v41q zE3D2$Xne)L^o*e%;aD!uBRm7XFbh{9{}Ahq+)xdCaA(=kRw+If#30 z*}#GFA>X$4i%%ny42S#*XYw6ksT7Wr7G#N5A=$4fz%5^$#V%wbR(P(<&;|@GO?gSY ztdt&CmH8lWm#9J+2oN|^$!}+vK1n$s+zlkT3SqsHBn#}L3CxEPT)Dhg$eF7@Fk-p} zbFuB1Jkv9^;v!%HFN^j$?RsDOoJ)*0 z{d}?Ha;CN_1tsv^CE9&9s%7REjs1;NsG8v5HGCNA0G1V^^+P%pV}~GsH_?nQ?4=_v zT1M_=w^D~=5vZ(`rL2FImgZbKv3Bx+(4r<(tB1+;!})7FMw3Wi(rgTuTn=--z$!DG zs_o3oG54%!CF!nr|7n6wAkI9=f?f}2n6)~25mnB8DVeK@x~qBL5NO(t`TAM4gQRWT6skZ0rNb=?%&8BQaGp0sR$FZdw0G;;*-?U zte8ZCPe}AncbdA)J?|_o=$(~lAimQmEY~WOCL)Xio6czfCXRb@;sFI?);91*y(?iW zwjriy78v)Ed7}RaFh16v^a_!*$5t>3YmiX_PfkGyHgq&`0Lm&8bkkH0KXjU4t6mgtn!%V2ZSF>lI7)@YxD0zxx9w{_~??k3x6 z0SQL9wNmVBZV|xf}6hZ_VXlT*#-Ln;}=*y!RK9wljvdxeU~Ut<+Pj76=<`B zjVUJ64(;}Vt(EIuyJ9j__cCu?ReY90>2aml$-x`9lgiqum-n0g(y&c}Dt$L=ir0_# z>GM)4O%g0Abxs0y9o}sE52LaC&XjsuxW!;(gFhcaDIYABnW`*k6aj`b3+*b!nS0Is zwh4Rhub$D#LO}=q*{q9MXemw_ug@xV<_yN?{L2RX%Le@iqK{I`AjTvbHE<(P#6x`z zSBx}rJ%_l^)%|-MX$}YP*FV;%7Y<5QN;AScy6+s|gS_k1&ca^>?D`e4>E z3#w6YLf&aG+EANDqpP4x-awmzVd*>p7(nf=|`Ypm$WvI=@a`kX1|J}04li@x2vY&`cFqca(wM($1OEAif zM(Od6+)XgTCynrK@h{&^Ck(uCgRiD}G{Na(u#tC|bMlqptf3zvf=hSpjUq1C$HDv6 zDWHRZKL9GYk@rV%Kz*j(N#rPT1Ie`x)4uS9w(CIlQg&s}KtdqiP*2o!rviV&&lw>H z@Co4%BiiwX@q&oR@4)W-j|N)Cn5s2i43cM>AUFI zD*t07@F*uq=PPXIHQQC`MtL@n@0cTx_DUuMd-I=bjCF`2@0gR0_P!y%kFs8)`s&Gx zx3d9UyiA`F3b$S(;&;#c>U(Hg4L5roirv$I;9*_;h!so!l&Z-r#eWh1)6jop0AqN_ zkI=E0_svQD+l0vR^eqb6BTY`D?h0+|F`qcsA95)gg5%qLG<%au5B5bN&Fo`@>PbjM z`5B0|g}5`Q_Yn++@}K&=I`xr0^$|Js;W+i7J{2PJ6DRh|-EftARwav z@~yP<9a?N(>1;YK-`OFA*`)u?r#*=vl}|@8P5B5ihAG}lCobF@`RPCsI&BJ_cDg7a z+LTf8XPy7`4Oyu4Z`_0MQ)lq&n{oGC!%^!xoDLEM^x9XFr95lI?$|JV0y&(DEf>ok z(j2Dt!`*LW%0p$ZLp~w>ZMDM}oj6P_LhNlwwBH!z#wo0c&+_u!^7x~V<8B$bjrO-l zwlSadoi=->^*AqFMX^sGzbU3Oq3^|Pf~!8$D3)(HtOv$p?K_?Ph7@ut9LfqIt$5x(I|X571BoXvhN+eJh6Q-NMcAzUEum7SO4; z_WwL6rA_48k5T^p=8GfQ+h{Sd+OCWgQ!hV>Q(R~(%O zG1~m~tAWrkS*DtUNjFrn&FgdI9-M|3&F_;H!0m(oWGVvP11FZH(;T&+O51UVOmINc znJ?I{w{+a1wQ@{}-rH>I2yE#@4OQ4$ZhYTJ!2$`y5#}|0lqu1cX)g*JO=jTC^IF81 zPwT%%(395MmsadNLmMFazLk9@dXnGN19ys?QU3X%&AZV*zxwaPxxX=FgL?J9T%A?F z{(K+;Q{>YF%{;oW=>9Uvm+$6qy3hK1f77cqHMV?P)j}&>iz)3Q7P2f4Z4|q(nh!CY zAB;|nAm}EMcHs*#6c5QJk>>j8gnsPFqEx+6QSJ~ij%=!PQ)Oq?m>&V&-N1omDq4pD zAEYNlNbIPho9v2R6tvrJ+yv+FRKWXS(Z-LrH3K&+AMc9Qb(jEj7Joy%E&kpb^WgBmH7+3bP=EB7d{rii)Ja*uihrR91dg-v25O5a4j?{-my(WqrIluRrOfB>{)!-(A{@e-jsr6aN=4 z{%`J7i)Uf{^TIgx!g$ESxbDKZYh@b4`p*kJ&kH?$0e0|B%Z7FFKiTWaPg%;OV9dJ` zuTry^mMo?-CDlj2QYjKAEyWd)QYl;~lN7(ViyuktrVE{8VwLfQZ_g+y?JnzPBvEsk zEM0%Fot)(Z-<2&dYXWOuno}EN#AmKR1R9#qe$HRQ35@GLzYI*1-6L zAPSdp;n_wb7N}ex$XI_0;>td4ctnwK5-t8^W_pX4zn*ujLz-#_W|(lIz+X==+>y`G zm-j>Sl68Acfj!m(zY<%$tCeGlMdS(`wZETghmI?O>zS4Y=Jv17f zMi2T_*`cfzUxVvYF;=jD=^u4f%og#o_+WE;eT=!F^R6>9hs{OIWhXARUTx8J57PH0 z!}`e(E_Fv?TBCkLR#+se(HbKBqyA1&Tfsp{YJ*haG1tb)TY;M7aofpC14W}wtuz*4 zSn8kQ;OgDIVqBYNYY7m~Ne>O5uqOITk_Wqcg;0$;d1t~JV&P#8RS=_Y{H) z&#zmQ>AK51ta@I0E>Yh2uAZ0Dc5Si7>rcZsyMZ$6bK8%qomxw0K%Q zGyUrUTwl|v^7 zyff~6=cq&Jf;fo9Kbq6*5r1hTV5KI6wG-23-0N?9JgYSqMfgu!%+XZa1m>-}AwB{c zjy?mI$KF_d

)`DM}*>nXX^zIKKORmk1x)rAspPG)J9o>}8v7ASsA==j;c$yMtBF zkBCdZ^ec&s5{)Y9I3E*w;dFVEl^%fkWeEqVs7$gYhI~{kwLmoE)~{wRTWl zik?mEx^=mQ@$b;!MMOBqqP(+nOs4)3+w>Q)-!E4i8Qc@<2f(LxTVq7`P728NO7-{9FIsHjb)GzGlJDR^mSFSE@%t~vSEp50X z?Q=nt_iUi7rC$@mVk7oJ%}|&yg1JN=gB}vN<6rpc6K;BhSe?v%OXerRb%N!MjC*I> zzrMO|<*s{64G6CkP4Nu=7ICQ2D*j!cJ7(miAdB$cnQQc2_f(5lbk5queF#F)N&$d{ z!wI#QR`eCc1QOE2#jH8@V^Z>EwITKE_At(wx?LS6@NUp#m>|tM;5n$3I&1WrCUA%% zpm#6zVJU4VIfpVFof)r{Yd&TlJlVs5XH^nAz-B?s95z3#+>F9jgB^H_CaXgKkCuPl zsIb-O_~WE#)eEV{^W=`>9wdG!b`aLb8~BX7#K}6f{rlJ^DQ{fYhSY)L8bI}CqdYak z+xE<=TF^WgB9(Zufo{*f1V`Qi)$G#4>%P@~^pv(P1USwEkZx-Ni+H?k>@gjlQYK99w-%)#hOtm`s2#s_l?7*W1a1#1V{JPdULG-pNQz| z7oL2?M(W9XT18tdSupYw_sgW~ZGs%tYqwW=GPb*61t~jY>fbTe1ql7H4S5dP51Mki z&fiiJ+-=0Yd+Mba-BFbn;~Zsl3oz63X~%0ujMfuK*0>G9AJ#)n1iGSM ziQoYWc&3e7_ZVqBZqL@nm=aD*SjGj-YAUX-u?xu>r$=s^lSf?w&8z*Tq4>Z2FTCNN zG*{=aFZs1NQ1=gS&{se5)*G5)1cV0_zH&_3gHY330LdybD3Rk-#DO@KXw`@tG#4!N zbh4U^gFq=P0ERJ=vjBM`uIv*M+)RTIywOrJWT^8HoTDm1bA*)GE(@VA%?NjnqE8yS zXy57}t;Fz}A>}E2?YD_u4P*rdZQ5;`Z94P=PypzLI3;M7@A&Wxv1>8TQS*__UrD2d zp=L{43z3uK{YJ?|bq1dGOK-lrK)JxWP@zAzQLgHDv=nKiHpDnZ!bdjW6x)>A#Mw*& zUJ@yf%aZa@c_6KZGxdvY(rn6vBZYnAO2+z)u8%^y$-fy`Na2VPgmkU-Q5o?@iVh+} zya3>r{&`uc3-Jr&3-$|>en>^aAkfEBvJr_5*$-JI9DNgYQ*hHCcqBt^giM8KC2l&3 z1fu%DO^wZpes^RAs;gJaK%@T8mYg2s0i=$|VXvNOVjj|G`7BZR=nU~((C+{fUn_2y zq$qwBpkVHxzS8E);Tv)wmM=QIGvxh<)+HFiJ@S#uidKO(-m|aIW$U+gud9% zouz+hb`+T^>J&;kFMP1AkZ?lgE|oM^jCaD?oBw32JXrzM*nI?WJPlV89HKT$Jk-7XJvG>l1QZ{(q)j* za1_tM$!n~q+c%)6zdbvwmri`Q-tMIHKC-(dWT#pH39dmwa@zgnCT}yR9;^Szx zo>C5pXl>u46J2&mrGDQ@b*^uv`BT@Y}N!fR3|AhCzpcEBCstY2TK;XU*DP&0^s> zd=@N1>IVG-D*2-(TCWH1Dz9B@tr9gg|JhbrurJJGdaA#4ksFt~QToB%`c>I6$o+M- zsO#!3&%Z(qgNJ$lF*&UVbYC&hPD6F-#xAyoktn9~0%nh8SugWyqd9R~seD~#R*2r# z;^1v=%*oUmXFa9SnheWzRJOM0uxUG%?}7&5&d(gt#9sc{lhM*|UGIw}MXt+#t|%_K z)h~ybkiP6p*#t`W?eIQd6+e}2moMG>MgwlzAv382T;0$ z`)=>LQMec&k&CtI+z2@-U~!o-|_PwM~lYd(sZzm(77c^Yse^UaYnE~ zpt@F6=kIj=nAEek^1tcaSY6Ksrh3|?k?L(}6;r|OCOuDpiYe>%ik|1^o8E$Nxq}*10fm4G&=VhHi>m@7kgL5S4=>DEbCd(^{5b|;NJ$40W zh|xp0T*?s1#-+DwP)){32=)QzQ|aJeY{;h$^(_O~UQJ0sNNa&)xJbGSo0lt7?k@$Z ziS~3$jkeE!g?vg=i|2&Plxn_5QpHd5Em)4UVhav#>z%vSr|OkaEv4V%vD%dxa?iZY zM{&t?yli3;xT}7pEg-+=$ z)l-e;tbC)uS}-4XNf{Z-T)Es)P7E)%{W~g8Y=2Tc7}shNqdYG0FdP;PE>IJ3W3OW) zyACPlnj+bw`XG7u?|ksD-7gD{+eEiq8ASy;vRG`hvLR6y%Dz^g9gl@M5AC%rJErI) zYMz=-F!%>^B+qTZ;|onm-!Gs)^HGfDObOFlMvc9H8&YG!aYtkzmhZ)9Jr6N@Re zE8tX~f9sb5p2okg)R`Br%Z|&l+_uknc=JuVx{4dESA}kpHFV1h{yIqF92C#*UD5ue z>il8e6m-4P%1qMR`CZUvfJSit+eErAeEQ}3dChdZU|fXLC3KAbor)F2-L^*|rG~`q z<2JX(gfDhG+vRQCTD?aFp~XX6`Uy#SgI$OL2x`dOXFj`B->4Dm-&=F2_s$^J9YO~A zxGlQ$>nf~q5O$fn=nk5ayd1e;jWP#_Of_sxuc{bk#2uxSmb?I7cBcOtTsxfLkazY= z0Ha>1UswP~5yut2mRS@QXuU^*15VE7581ba8JqV^eCG^nC~yU|Sg^>|!HrG$5l&8k zIYP>|XT1n|lM}j1btc!zPQ(mZJt$Lb_;7bbOd8pf;TQ8oEgHK{GBDHK8m6zb} zzgYqK(&FaqWF3ZB*9XTHI~g|v20MGVPhyW-XupF=oB9sUAiTB_tZ%o)^YNkVg=rS3 z`S}P!`}7V(D|K&sdQV0@b?N%x`f^<0cfq_U^W@3HHLMW%DhR$721g3S1BAVl67El5 zwhu0H2dYa>7i2IFJ#~heR^whDJeCXn9>2;C`19gG&y*B<@GPT|wRCX+=iNX&^8gs2 zFLpC`-+cK4q#L)fma$xVO|k!oG88@T428?y^W_|Dgrb)vVyq#?$|b_YB2 zVYDQQr23AS*yozooju_Yx*GeQo+yaJvr=ai#Csj9l-JrC;QWFXC%dsE`qxImmj&RSB*KLi# zq9vf-2}FOvuQVAR4*RE|W0wsnI?IlN?H&O?RD3WCd2xl}R>eccng67BLGw*F)T`pJ zS7lcjS)dO6OOn%@(QXEF7)ie}topLD-hDVmII5VH9j8zlY5WUP6r8L#82~{k_?-z5Sr+tlRN>zOm&p z?n|kGb+v2=R+B`T45FuiQiziJo4>4CI*2L}CHp=vp#0;7=38TV*zprR#+ftcUl)+F zN!v2ac0|TCpweN~bK6Jw@4unQ;v2|`-=xdr8%P71e)aAb#EuaUcm}qUsRq}hvDOXt zpkC^Gz&Xmm;SdYvhAQ+I!gmoqUH#nIDl{g8Xbl5TVgM|nHJw4Qn0-X^V&SPN?}4z| zGq9mH#YrRrP&4cw&h2a`c@WVWH;v(7^=hu;D^_1G@h##MW-kR>A!LCPTK9jje%OQge5?!d7@rW0ruX!|^N z5dh40uicORhwj;vf~W_-5;5o?0Z6_PjWkadvbO>(9aI-QHWBS~KrPcz zG#T_BPy!Z$GTmi7isp{e^|~Gn;QMjE2sbpAOpP^@>;uz&`Ii7xeRFB(oPt` zH0kfA9eVqEOYNd2Y1~UV;-&iQk!SJGB+h4)o<`-xI@G7TG)J7ZRTTJS+C&J1ZFaLn zzy(zziNl5tx~rX|DHX6LsOZ`uit&WVwj)OLluc%H=*7};@y>%g9}9)0fp2 z#&eND)MQ3E(4MdBLhuA6tVh3Rv#O3vs@8ilNoC3OG0)* z2>JkKX^fDE7HaR+fs#MJ!dx*xxawoViJJ|7*sifXzG~$V06|ymaEzxzBcm7d3o-}0 z5DDl%??&c){AGybX(sK^;GL)W|~ zsL8)SFos~(k0ZN>Xy>eYhhaVYzak3hLVgCkB6{Ng2#UahqXZOG5ai!C)p|=n>$B{{ z%`cJ=g0167Z}~y(>p&(a+Y&a*GL{eGbr9r)j&j1MRZanoNoPeJb0*I}qzBPJEKbCH zrgvv1dJ_BCmWl-@X~eLCoERGPX>LDSe#gn1`G$DFYt#8_%|KSTGvc=#9V0UhP&6kgI}=i zJoyG*kWb~Z!xV(j-fde()BzOlJ@^I`!W-VSeQ8HpqE`2K1ScQJvp_lfzcudtFB1#{ z(bHUeW3)U=0QFHNwiN~x>7&jsw3pFZCJV$Z)p6=lv$1xHL{I{~309dE8%S}XGe#gV^@83N_l+8#42N+}}21PC+)<2OQEZr4v#N{AN z@>4=6kq1=z2h^VaKoG+x-Cz)r_J0g9_45dhE9<{vZQM3~t54?}hz{5MN;MEQB>uZ1 zdoyN?p}{I54M}29Z1W6ggGba;r>s&htnTrh47SKOaMb^ZxjJx&2L*1LK0h<$vio8Z)uN);Co&oDnU;dop3I#JF&Uhox`X zM!eWw5rKI3s4eeGXfRj%5qUE-Svu(Fl6o{*0#IkdJ%pi5g{$Le4QiJ|w&7Uj1j}#g z(E*5r7de*K9x@!9b`dt=oR|l|EP{KY>(74xuL(}|B&vdeUeQh@f|PTgZ2wF4o~!YCXSJ7^@gfOPwl>K7Gs(AmENEYK{V zD=O?y(z7Fea&tJAo6BuU51u+=4Zs^T+mw@$gNyPFbR#zNb+L?~Lw97V$2b8*NxIuc zOv6!bn^UmDh}e`na6(qI;>^MYL03%o$}9oc7m|oYWm0xtnFU$_kcW#344laZiG{cm z95<@82_K-OUN8^Xq5z~L>bxPy0 z!tgy9*YNSX6|`u{h@KkFw1Q35FVbWM2NO5J|89$W-$5qkb@Jk|HZX=aBKcpfq1vvE zpv^n&KJc)-Bd?TSM(08Od~O{{LZySoB^3Gg;{e*2 z$lzDS=?3J-UdAE6#&f;i@2p=6dW%_CS$6S4&bW6emOiHChvE9r zuc3s&Tq*7%%pjXx*en4X-Hv2y&RY)E$Pal?(Ty7)wCwmsvM23kE*pse*kcffatQOg z1JvH{1tFCcB-}y#tUf?GIHvC($SVLW#fx_t`coZ@Li_O3Tykj&nHTx92>-zQg8odz zX}q80YuzUAi-OiGw`H*atvvJJPBjBxWWFQ>P`x{Hs1y|?dRnUKSeil`dok6jb7KjB z9#mq85`DkzOqkx<;+^rsG>ACq`?x|ZSz*STKff|?XYniGk2~iU=|!)_1Y&NKSR9XB z_xfGHERII57093!FR^}dMk@o&@DIHEcM;)#H2xn+*B;OG_y4gmBg9B@Csu^qvSlt^ zq*!#5L@r4Zu`Enxb4{gO%XOwJT@mGy8JkbBWUExjWm}e&>uh1m@OytBzkl9)obx_= zUtZ^RUa#lt`Ffvo&=?&2M|P<;>aWw2kYH=fm$)!Xz?tVuPyPsI&j0-jH%hUG1%1z! zUOJzlCKI7JxNh(V{}A4N-W&%D9sUS*lYL}5Bj2+sdo}qVXOUPC!JWV2CWSohQzpPJ z^ekF&GRLm|_}?&9I?_}QC5U~WwD+S0zYSd87|qDU%^v+CTRr1=XOWMggW$Ep^)w4`+%CRGL zm(YS;M*3VY%%z)qP_U-jEf;JH-rNSvL0JQE)aqrw2S+~Ec@m=w3j&{r4bO0r@ocuG zCAiP-0w6n%pbNvRT=?;RIpm1%pGMV79Bzvd>v~JN4aj9g9DFN%N$tN?MgL5!0?oC> zo>m{Rd0Ub*OzM3v)S3Oz_6R4moXAv@dq0a7GERUfDap(6?E1_$am|G!kBkuYA z9_=PG^6Xu{|H}0Qjz*~v7^+9L!?}!ew<{=1pHn)kAi1Tk*StAZcj2Vq?YqYO)~;$9 z`Rj3z9-G3&Q2F}PCiPFjaV*c|q@A?x(!I;7=HeE2p3he(j&8>zLSPgvL}Mn@pj9qv z4#0Py`T5X{5ScoYQN^{3*)Ib7yaW~jd?d%oe|xHqwA4?yCH@{$Us!RKsj9D!ie0 z;M(>hiCMFp!82c)b!q$Ni^6opN3!?K==f!p2VS${AY+H~5(TnmK`OB$x2_bPcgD?Z z$}Dr^r&XqBwwG}d0zVrj+0rW0u4Y-%+=ec0WG}?X>Z0rpE4O|$9k`s_%F3)}zXR*G z+-CyKvfT%*&BfR*yc$gJmA<4c2kIkdZWJT$w!vZU=ZgHcl`#d|(pYd3`{myO{oZxe zs1a+ygmVN%n=)_k75?R^LVc(IwKJTWl!(gaG;E^x3Rf@1P`Y(cncUc8MBrb9up8BY zkVQo=z-;B7R?vyZfAt#{33rwa%*Dl^hRT#OjvHujE-WKc_2-(`S1s{>dxnYAwEJow zP^Y>c8r%V5H$&nlqb0j3TFJh~AkrDHGAyJZm;tuAx_SAe9W6Q?m34;GVtDd{vH^bc zAiEE|lGo)k7m*PHnOU}@83OjXB`w#$!|mC*48H4)#uIildH1b#m(z%{VvBN44=^`# zpBW6VbOB&|r0Pe4fR5Gk)B(;Myr&Rm**equC6Dv}^X|>X-KRl*zzx0}^Y@kbF7O68Bj?!c~C)ZJ0Zskva8w4mfMq z1-RVxN5SJGs&h|EFYRH`wOuS%-snr8Xw*T7N?&KrXTYq($!(R;L>U#JJutgJ)_h3* z3UGx;RIS)daG(FE?jlAaYFKn>RlsZg9_|P8scGVsGEPqVm8=dJ>YzZ(p-4PvdkRNcwZL{IC`dsqx1!(?qjKFjM^uRA>c#P;>UWx zak6iLmPvA1QvZw&mBuyXdh4E&SMs9^c0bOl0YUxqUOu2KIbEYJXaP~i2QXtv!M4{| zk3+)VcL=|i0vwSW8TGQPmBM3iP9)pudTRH9hB?sCc(6GRa1*6aYq=T4 z_AXZHy^n9YSom!#ceL@p_61lo_gFpQcc3wPpI()^mG1gtV)m` z=iLPers>EALjb(KWql?DY2!xucB$H8^?M1xH7)O9f&N*Of1jHw4Y-|dO}PKs`P8!6 z`!}lxArz5!RL)&aZivNTT7BZ?{|thhha{G5@2{j2*DRA$0SHLkvMt38CI#Tg1KNg3|l8xzwn z5%*LNvjDK;QNu!t>OYVSQ9lDmSt2z8wD;-R489$)(chNlogNNg#F4bO7Utq+2jayi zXEU%eBH+F7ItMA$&|s(TYP-3}jIl0NK*8B^kom|AQ(&@u|0)`zA#enuJ0;GKRX`K( zNQxI^&0F;w+`9N3y&w)Q?GUxE`h!7e#-QwNz)x4Emq5xmopFn`&((I)(hZ1>`tGY~ zP9P*u8?Y=sz6ShxBO*SHwF>O_b#F-q2#fL?4MQ_5)1!g-suT1PQqCF7zh|KOKP&c5 zF)6(kb@MHv7u-3uSnC3uJAdz&(Ew?ImAvg!asf2Y4SEKsY)bpJ$6Ra@npzOWoaRgU z+R`X`Cc0tGgZPX9R1NW^&+|XmsM!J6|Gja5R9NroRxRTA7ET(Q<6H}pu0w;tnucd9 zM03a{xBGdjwlrJ!Y2zAXA6b;;_HazimUcY-znrp3X)+VLHt9PIROF^*s@e9p0SMre ze8If2d8^9rR;cxsmSnCGJ5pPErWz+8`=PR(^kd>Pt z8(ltvJwZ!3<&!a2m>!mLy{kK66!|B_vM81#pJJU>=lT)6u6Nz#qeEm7cCFh*_71iT zy30@D$gi*(q&G?A1eg0g6!t%qJP2F^jbZwd_Ew?j;A)w8!>|f$2U5GrQ{ROS1eW_LNV~L@@afaFOV;x!9^}88JXA|0r2Jl>YTE0wy)s7|`tyX^b^+mj46L z3&paYDg&g*j}mfu`s>qaE??{Ux(9_4)pg!P_zCgK~v`*Pt&`1u==oS{P z!O+;)hJWZVCa47RY)AL;wr^$$}>)87@2^%wsSa`pgCYOMLbALJMqfbG<40E8mKAl2&Jb@J_K57Vy! zQd_f%WSR5Ux51>=g2kgXNLGpH`AFgXL$n~poe2maw*Ccj>gXI;A=1K zo3}N`UC^3CzITZ1jZZYBt@f00T-=wAqp=5e@ZDS#MpAA<>r(U*#F_&n$%kb2(ch^z zp{`dqG%o-Zzdj8A@z8he2dCt9`;gC9i2RW))I1cbA52u$!&gKxeSb-(4Z+7|2hf7~ z^t#&eNxc(H?TSyGWm zTsB82AmV}IAdh0jIQXWg9C)e0%QZ;LViD{3?frn z&4GU=KKA3zFCutZs3_F5gP0M;tmg%}&=30i?xgvGz61SWV8(BGufs?LI72X|`dkGT zj&!r99qjS3qcLE&PY{cun7KT?l3Wz&Tm}qzv3!zpkQshnH|mrXOln+kyw8E}7EhQ{ zz0+9&T?=*naIDWE(m8&~%Hh~?E7)j3j@@^={^VPvhkZw@-=HyeJC^}DKkr4}ryrEB z{U3vybTf+S#S3cwc5oIbSEtMOEs7F#| zJ~W^MUN%^8{g;ssWy+7b)*z$vMN=ogW&*xX^|hpIa)S#~60-T}0Dw0X zzOd~2+i+9%B1ET1d8j+U9QUjANlO#jj^hfvD(7MX22W7h zw_d;Y&6Wm9YupWp;x_htz(&78TUrZfe$cjG5=mO0RDCeF+Z=J#eo7!WK#G2!yl(xK zFK;f^3GI=uLDt_A%^N5_$kYauM3%P>v~a0$Exm;uzi%|v)&*9(s<@b32sKbWWdn5O zSrXqs?ZId+8e@ATp)iUmGa)@3zVTb|xr};Q7wz)NAR8usJfqGVEx@|ZnE@Bi6}^}= z`q23w*anmrbhZN9itrWNUO96%V;=m&26(&x(z?)|H=zO3!)Qf3iL9`%N7S$B&)g$J ztwD8P?fa2_r0yNGuP0eRo}`-$i1;yr=weq^#D&Q zNN9If^k5_C8X9B6Ne+lT>mPQ|+ge-=6vB15gnQnc@TTUCt3bt_W@H=mK}jouGC(@E4!3 zgk1d3KcN>1>4y~Rs9oT7P4PdVWlE0di~r{XHg+@*cUmqQTcXPM4^cK}<)Q_F?yEqB zfhvEQun~P5Xz?=b7a-oAYgnOk!>iIV4y`M%6wur)%p`E-?;&qAM)uQ!2B2WwNYf2m z;QZ09zX~g?7jzLq)8^2oZ<0O=52!XGxjn3@e;+j2eiZWI&7#XAh{hXqGuu;lL6+x3?llk)p_ z70&yaBcfEl5P=r|IH>bCZq!jffPLk!oe8UGaz(gNHQ(0lq#Z9U?+=|Wx z{Ou@a6Nl7pIJ>w776W-vZ{OdhN$SzxSvZ?uj@!~Okx+vS$-v6Hsr^ha7suY41kA$o9W<~u=xeV-Kdi~ZC>x$g zWd}(9U2Xp?IS^n!gRW%|uy0M8h}|9vatqDKB*d9?SE8}!W%#8Gv`(BIZC*Aa4iKa) zDP+-pAkV3sGkn$Fuan`x{>R4`ls}z2Y%adc`B8}$y(BX8b1E3pO)wOY`kf9$i>ioB z;?14KvsUIqn%OAII|ueWUr#qjN_hunZ;GoijkE1{T1Kj|9FDIBq6M3~KKJ3g#GQn9l%a}Ze;9&-RpPGXo2fJS?)!FW#2hhUD~0(h<_&qSIuVRIy?3< z;Not-^9!+o%B@e2K%Z0XS;)7W6Bbors4cBaz%3)mBAR1EM^ZUQl%@qldy&!S2tQ~# z(GdnQoO{RYzft-e*p+-~i0)DUc{>_gE-$HkGEhXyiMzH+=>xN5o^1qDV{s*KEod>h zUn68~{OPI<1Ezg*a_hWU$?e3&6m z03S^j*(}jYD#}Aw3B1noD5?#s?O$4Xd__5@55f!h4@h{b_BLKghZvlgfl&k-{~ZMW z6iyb=FFyMA5$rGX28d=@etlP_XtHXS336m{1KJ*fno<8NSuUHb6p|_p9R~*c(E|T8 z^+7@02Z+o0O(L{CZZ`b*YF(ZJ?spoKztmN7DyiE(%nRP(7Q5Rvf%mfc>!BS(7ppjRLllNf^hAY_X!qu*&~>!! z>7xr+kEbb>CZ;tHcy;}sjvb4s-!^va^vTBNbH~|+--u*m*Zym_K3WYQJ9ge`V%-;Q zHR=#OQ6gM4(|Y>7|MBsgVy8~?n!4>fMotv%j-p?mZaL19xk6eVoX#u9r~ZNLb4Iq?$E!clmpJtH>AB4b}anvwe$gc!Q9~ z^&k8vqD603cBh`98W>hNlHZVSyF|N0J6B?NEywf+%m=WC|25r?bY>-1%_6<|G5ki> zFH)Ziumkp5Pnl|$jY<+L41zCX2h zF}p%}T$!r8sJ+G7A@~CIQ~dqey(`&FZo_nSXr zk#{fuAiSNrvigTS@ZDY#X>qiDHd1)BTIEUKt)`_Wzb9{)O`E>nQBL@pU_C+6PdH8t zE(s|)QF3T9c=Gt<6YklGcaym~r7@+AHs6AT!NM~?4RQ9zb$frm!G(7i#652LF!EyMlxK?3z`@brku}4P6XTNl)E-X3rza6h!V_`bm{2XI`UiDu39v9c)7~~M#7<9Aa zoX7Z?QdFshjo+DPCqEn^KII;pcnqvWUHZfNO~@4GYr@l<(&zf&Wnv6zNBOr(?wjPM z4&-=H{aEFE0P*Ad^! zr|cbn+h4jcz_dRTd6ikf`rRZxn|ku=!8{xPzm*ri-eL{TM60jX_Q6xU_J#N|j{Lj1 z8noC}0jQws-%>L6$~bO3W9=tuesA1UR7fgyaB6xbrt05|k>K=|4^At3a_!Zx{UbM)U{&z9K7UCCiJzuznz*)D-ygn{)mKPY$XBZV z;%(L$FU=u|;r0FX3EMgzH8wwET(I6lc_PHY--cl{8O|0VDfS#n{I&5swN zN9r#p_BuPV< z7tFHkxlQtJE1fA7+90iw>qy_2cmLAX=Ed^x_xo9G&DdG~?)ChDz>w-D+Xd*+^6+w- za?qcgM}vi~2d--VaeLHKK;3gyZg~E7?T*^BcgMfquzkosu@==61wZhiWZ+V*J#&b8 z&T``2de!*(eScgUG7h|Mm!Bo&mn=T8+75|6#T~T&w0H4Bu|eF9i|q7&OEgg;jfLYJ z*8SXlYuhW}^G2F!BKdU}=!b{l^Bm%I29bgMwLdwvO!o@;!GMmy+UFxYwaoAexyD|n z%oxE9!Izm{xw%%7X}~}Fe*ZXNe0MWXT41xskG?wkRCajk%w|XgL!W;pwdq~6sKbRh zFxYo`>gvh~pAffaf2N%QqqpKk{jD#dZ+cSo`7g1r9x&36Dl3AJO$4OP|U6T%GPZm7|-@+}^!2A5ew0Fl##57C*|+e$^v> z-!vCb?CsXy6$@2a$=99dJ1_<#U(EO3@G&s$=tz}T9k`t+R1qX@nV|p(+9RC&X z7hP`GSB`!evoL&pw21w@bgen|#Gh($2k)WM&~Rw}r6!jxi>1{w-mZpWqHRZqeb$*F zRSzy5j@9Zbr!4vHOfDfH7~@x3jz-azYG{c>y=bK-r>bYiG-~^sYu0Ky$LYI9Onitj zW}lmFSATu~Li~GTy(qQwdHz(u>7|7?>iu#1a_*l)GfIRyB`iLk2a$fx z+1MjKD9B6x+%tc}`J)|PS;G2Hv;Fyou z!iy!+pQ_N2idg0F{=Sd>s%6D<71}3}yzeoc(QjtoSTK?5p(Arq>(^$h*LuThs@ibG z#F{_>=Vwe{3uk$X#1q$*|Ws~3Xi!+EzngCdyOX*XYn ze@ur|jfOjoV2CrmfdMJiddDkJh`}%8zlO(a-=i+Zxt+%cesH;&waU=WPRbl9B5ul) zb1rg%#(~&v3Tvkka`+PID}lMdN4P?-q}}Hc=+QL$-g@PnjGQ9f^@*h=k;UQQ^@_(G z{;xV#I}F|=C7;(b8RMjGMYCjC8f2L~(|q+Mxt!t@s4tjh+5%fr$TxM;T#`+K`)iQF ziN@?Ag(`(Qw9h88DwCnm17*p;3rw?s+()l>HmEC?(PX$~FhwJoA~=OHjA!>GW;cp` z1qY-}Rtx#W>*AE;z@MzqrGsG)3wF9FQ%(P)LstK;y#A+4a|8S_yCyfbX{WGhJQ9}nVAa%Rt^aNlzt^C%|Ku`*;YSGaV8*hMJI z-OX9zEz*56r;GMwMW^M~#gkxlQ0hSg(;#IjtgW;GgfnZa!uSbd;`ebcate7~^l!Ad zqPQ`qx+K&1MvPg571F2G8ZqINhov())eP_Kz%=4k)}~k}+1J2Es)0kb)nhC%YVii{zv_~E5mgO4jF&=`Ib4g*k z0%x8zec8Mu9viRB4Ge`eKE$XZmhFHw3>+iVh{lmhwP{Yp#aXPhPNR7ZAMi?%KNOz6 zQs@SARU%~T8R@Cj9X7DWZw$gfM-Ss{#2eb~3K9jX!p^LRw7%Y7SxITN#ZAgDl9h+5 z@Lo7eae^?Idk~Wv--^)`hgslW33g#Dk}sxT?g;NSRlYU7s^8`b6x@tkw&P}s&kW9%xkO^Vmay^?Z#2fw(AwFv8z zyf~Z3kbIY)+e=6C5Zr@;3-MXN4KE3gac^_XdBb!r=O%A~?v_F9RGhQaQ*iZ~Gooyu zkY{#Kz*3#zJz{Uc{&?D@=(P<}Yos5}T5Ki^2X^#_hs`leG5R@wdtme zU^`NEaH~>s2?izpku2EE z&E!n*g6S!=%HG+mmP|Leljb;>jIP^CQ5Y@7PuDmSA+h^>s1mWkiSI% zTaC<%kiLyql~|SjtTE;85e9|12`)CaG-xBPqkh*c?53THkL22h+P6IghW+t)74Bt@ z7jMPs)}Uu2D`OyTbA7&^DSUKiu;K8*aY8pP^_+V0FO`V|V?&`-_x-eK2csBhquhZu zi0{Uod7>b(;x2c!Fw-iP)nuzp1~(-_;!NE>+6Swx*hroUWCWV=4+QNT8n22z)>U8F zsXe!WP(nE(b`-1*gc7;mIp>58sEOq6VBtved)94sQHVyJ+S>IX&mnbGMoe*}RFCV$ zd>bp(TR=&82^0M5LY~Xu?P}96MEQCuP_6D6d}Z~ zQJWm{PzuVCTPY4yB!XhS6E#(3or`j@FOi$^d`-l0gd)C#v{kB(gC~~?PGGhr-xW9r zHV7ku4!+Nm33J1E3Nc|e7*MUbFL8b`Y~Hye^R%Q&9RR){3a%w+vsDi1hmgfPs^d?IBL!i?P25z@8{QGF zKF61lP7myY^#;?YyJC5=^yghxy;WJIna_(V6^ZiHHRaZ~0uzi$+s=^+;FbjgS&^Bg z1rvbAul61V1hNKrNm$n<#vVF3)D!TMI|Wq}92y-&i)7T%JGz`1*7Wn3ZEZCTmN}DpLMBNfk6`G^iDY07594F-B?N-Bf4HQD71puxV

qW+^s}4}R;IB$sbg4I^mHc)1#lDoIhv9hl>o^w)P&R)0rlU3hABwZ*)3Il1m+8wiC{K}V zf&nK#6@Ub1g)!V5&LQ4{|E=kVM| z&d1FHI{<2!@_emzd&2dT=@AptamH<(m`y{uqel_Cqs7t;jB2Y{TLng;b&F)qEZRqw zKMM-kTWt8O3ES6^P%l(Lo@s^P%#p_5#3{Aiy(7nOcjgb?pxAvAuhOwR$H~{E z3lvXU6eZQ5X!n+SI^kXKsv3Ii$bLS*I^hksA`4Rrq6+UIm7x22b+*43J&_S!=2~;o zc^A0N9Dha_-6n0iKwJ9opRn!k&sgu&q}qE_atVKIXsq{2=AB_}DA9;$CRN2*OS(H< z9=pxK37gkHFl%*2*0tRF{;6SK!1X`KL!%34vnta?N$J>MS1L1oi&=_J3ZBK`fC=d| zuh*(mARh=e2~tO8q4o_ajHb^>w$fIyDZv7(!>gf@0V#G=2DOCGu8Q&9z691V*g693 z$@DMA+PGfEckaJrUQ*>7LH50FMqMon|Lid>x35s36@N_teE1B!iV7z~pF+)QNoN&w zXA$M*jchi$f`bn%Y30fK!rPVS!R^KEigEItKC#9WgP`ge+(I>rExo+zS-Pl3t-mxE z*S7X>*zFM~vQPkNtil`?1jWZTI{M4z8&|6n(oQFs_9(i6I}Zk1;vrJau(Wl_TyAwn6F4>`_%;l20;bX)J-9%z*#{;%~I9p(+z{ z8{7h0lfjpb9>FQ$tlEkMCj_;;K>n?1mvqt&sq4^fJ@|}l?4G=h21<2a!4@bPe5xg` z8F2plg*a|3$BIX#SJAwC^|L}iD}`0rftf4C`b-^G$d4jr=IJK;p+b^HkRd)&S=`WI zD&CRY7ce2|^NIfr{CICe3SKNoBNT?c#RldY`xv0CxOC?tXDB~Sx1drnGA-9B^SN>@ z;98Vfr$jmeLVN|rM4S>&5vXH~kX~Y$p<>EjoKveM@*qMM4EMlN zc$mEyg$y3jqEzacjT%r$l)bGgxJ}4|twZMzfB@Th%(RFQ&^`@~y;q0=hZBiJ1O8i3SJ@nsl<*h47CeaxxtrP4*TfN9zs z-7s^4aVD!a)2Sd(aV0&Ikw*^>jf-D66m6g~=fTu8P>uEQ(J%lLDk$EqPU6Yk0*f$z z!65(uy`&xG$#4&F>U+Dhqto4tl3>jsHItUzlI4k$!#J%QcNPZ&-ak+BIZL@&5hGbw zE8|ZeG@Ex^omY7mT8DaFxbG;)dZzBT1D~0?HbCK-WE7u zB7}NjAsFTs!G1230~Wf6`C`Bl6>b>k9Zx$Ok^wKQ-ZUpaw~t!-w>9|4ru7e-|C_4c z9_Wiq7yG{&t^Z)(@?h&U{eyAXzkI#Utag3$ zf!X`&8Ebs`0z66Gl_k!>O1euAH!^`3&A#5ndKz9 zhib*&YH$(L4qzG@^u=3;Ls~5mc{79|yngUugRMaZsPfT6t#V@T_;BtqjvB*HwUQ5f z&^>G{LJ>9ro2~x#us?PuKmQZ{*oDt)0XYTvb0zq!hF=$u7&w?|0yq!FMB^1`i%gPv zJJdJQsJGcU0|a;lGan))YPBw7>=|a z3GyE|t7q*RysN}(8=ia{9|@ZFYHq93GjoPk%X${NZE{r#_K7tiL6?j=$(N{xGrk1E zryzel#$Z-B?OU%WU_zA%GV`0()bS;HCQ=Y0o#KwOLKMsxQ#Q1CemDM0QMa5ZFT}^;%Nu`-GadYpOMKk>a2*Mss$gUmPhp`a-h89^A9nX5I z7bNW6-Y#p~a;NWGu~?Q(e>MqoQq#LuXq?mZ)Gl~$bA=6Nhva09r0u7LFp9et8V5jo zSCr{CibN=33pi0dQI21ba=v1v3Y{p0NR)bV4cPY{@VA%a*vg4DOylOAr?C$qnS_1EjEA192i17N3EdI}Il^k+{1G(w`zrK zd<}w3Ebv7X9u`zIYSE7;goLQp1)@9E3i=d7WO9n=|8OA7978H)P(W zr;~4&tdkR-wbl6_v*hx(t|+f$v=@wJ zyUSKI3`jwUhBYMi5S7|f z(UaQZ%z|MsCSuP(4vWZELB9fn2Ny zwenp5IA;qFOUKfDC)1B-M`jR>J(X6{ihC`y;ec};$m+?gEj$D8pE*S-@bZ zqgHDmL~?>GN@|WYYWLpk9RI?$BMOgnL-m(q zrk-YHoq_deRrJn5(aIWU7&>{Ckb&BRC}nj5c*#a2acavHXt}PNJ84iq@Yy`CcYoU* zC5%{6!V7bxzgVG~xRS1>#9xp&Aro8L*bH6*9hm9QLjoE)z+fvH%Bh(Wx8paD-jEgw z)EitRm$)E~f3IKm@vhRy%ysy91&sEG_k3Y;(XO&LCp(;m?Ogz3(1#4&EFw6`l$GyP zuYCbc){G0bIZ`6Mi;)p82XL75bWV)0ePJ>|W2E=n&;IGHB?Tdy#=&dX@ZqIx?2v+d z=)8;*96o1P4|}$Ed>cuIAaKDIVk`hx=`A)w)pHhK7?L!=k)L(LhbCd=|ZBGs{BZieU?*3Jrf+Kt*S6@TCW}~KaM7Er+@)2`y|d9 zx1+6IfCdb2V3;8W7N5#J#EIt#=@Yb;^J#|f0z?M^Mn#@$%+cq8==*5ijHC2!!1ShH zwrMroyfTt_;PXm1Vy@?0x!Y1q97%635KP@W2S=&nlXtgP2@sgwZF@+`dQOFwioP-| zW9|P=H|gRWBo7*#TXm7g#k!bq!0d0v1OR4#ki!Oumn=wT6C?K3Bq7dJ?Uv(m3bgH^ zV4J|{T+S(xRFV;dTza=uipsfndf+CNcNz;KpJT_%&mPPWrP2;(m8Po|g=mxI$Gr#! zm-?vy5{m}-o+M%61ySYz;H9H_r6yjWX#U73DN2AMxnmEN<;mUYu`#FnvgK%H!T(_2SQ=qziz2 zW3A*K0$z1^PAT4*>)rrwOBW~!Wa8zy9-II)d5c4$gkP60$ICBwPESt%u*ZQ`t$lIdMwsmziI5h}Qih0P^dNQ8Oo z{F0Un1iz*28v=iy`P(7z`B-n^TC&RO$kpM0QJk4R^ARzU#$L8QPpT&P_tvLq+cVX= zh&U~KrW38U@eQ+d&T2>wYvR|>Gk0t<)^aY z8;3H2yvt@!nvE!_DY*TWVHfEwf~rjb{0trU7`Ggir(C0W0Erc6p&j>RC|sxs5Vn_k zt)187@2Id1PaY6A9r9QSlqS2Le!uc%t3ymJ-&F26qh6_0Hf}5XPTPXgP(J=*&P%OM zB?FIf(-`GBukjsH{8eKo6B{i8*!u92y0r}dFgSlBVFS}-c_S5)x0Pr_QVZT+XGH=f znwDz1LgzfFO=A_l>6L{nB|`;&lUhYXS@y~%J!8Bk9*BX&n-SMgeqsd9EcuRLPlI+_ zDP}hiLfsYka!&Hz(%ZWndn16{LNy*l?d-2;0TLB_#T>x&{sGKKsBjlIn-j(RMn6v5 z$FK){oIWEwD<@;RXhl&?ZlqvDF$u(fn>h_&VIR{{7(rL>z*_io$3cJ>W+|6~+KZNz z-KtOaRu?5Hu@#&P085$HR}gt=wQ|Md_M+u2*WV}qri713QhpFh7UyFxw6vp}xQanO zgpeWV%pSt=R-0Bgi6hq_)KhqgaUc@oDAeIDaWbHs>g>P_R#A6$Wjd_4FI&GW{ai>` zN`p=EqXzwhYhp0FOCm90Z%$v*tdeI$9kRI1L>t3_2!03_NAk!RR^_>&?opmZKZ-B_v?ZEXh4@ zW1`-MuX)FWR6()%eq`u0wYzPIOYeFOWWYp03~9mt~pJS5T`6c(Z(kcEwVz6uzuU zkf+?8*(Tj!7Gc|#C)n5E+;&Ichlvx8VWO!jgnYcU^xYcUt1M*m-;Zy8FXtfKH28sY z>t{ZXcA9m!tCxALmF^rFJ4o1e<`8(LkO=dU%Qu;aF%^=`<^iTAc0a(ZY!0fBb_jGZ z zXj%YLXwR4@s2Es|s^f2s`nSRm6+reBiIZ=m3PwVG zxeaekfZ(GxBa#Mkscw5t@OFB4T>tUk>gUPT0GpCm9Y>I(Xt0lojV4)f&T~oAKz1z+ zwZGL+tP=0fWpX_C(fYGSGFb)DiY?%I^ASZS5TroV{bE=am5tv!WFXZ-1_1h*M>*7L z(Ygzu!;k`R9)r%}ZxUu3bGY;tnp?3OjH;??+_I6XNcN~R!*7_`+pOgypJdMdaiQOq zqre-WhjEGka{hVOU=vh$p~4vp zynN8@(Lk{ih8Bv6<_>V0fHbu!2OJ*&fFXBb=0CLJNJ*pAMmHNdYP|RRX&+$MJ-E)!`N!{^gD(GuQ3!$yh+Clte4rlh0ucep^jjcA zVs0w}GHJ?N1o2`gwn-R7Q;PAyhFMAr%!Q-|swgR`7Nd{(<^N?)k~kCk|7DIme&8LJ6wfHcbR5t*|9@m$7%HPthPe9R-wj%RDkd)M zds+Ak-cT}YrDziN+@wE?t9oYfHHFl;8F;)RfD9ll#OV_6r1hUH{YIh`%cnXi-mr~Eq-n{_Uuy5+ub{{J(_x~%-|7n1bSl+_uVdg- zl|mz9{j%>9UoO4CM4&05N9xd2T?T$C;QKJmgYbc32M3b$pw-THgH^{`KzWM&hSd)5 zi5kr9TLYJYasx3cH3-eO2qe{t=?l6u-!Sh?gltbfJf>x%6wY+r{KyTtN@RKz<=zxzE-W8f>~HiIDD1GdCxb8XNY(5H3WX6l`_befKFH66w8Ot-bwR2Kp&@;vkys0wm$3mgR0 z7q4N8(6ns|z^wj1Sk4DxvB!vwXFlxexISo09N4%mSkznwRIcbKX<8E%DICZ*NKhf$ z5=I?Y0ckDn8? z@o1Wpc1#ta@<2=O3D{k-ey-lR(L`#gb5gj)IS0(t0$@>YCtJjw5{4t*V`iV zlY!ifP+pr+u#=!OVKt!dsevw+{w$hly#d&efRFU8eR!OSkoF%7RZy{DzHQNEXj5qA zzYPVs!HbEY82vL)eSmPu>s=Ye50?QVxpLr0x2-W{ATQtG@S$`ia#bXvBm!oc#|VtR zX|_IF7#dvlJoPr=n0SiWoJx=wmHSXrj}6B2O|8dWEyxwjjk|a)D8B90dFQ@mR3 zS|NJEsW>zP5?AbQ6$#vyXJ;%M*+-*&K-{&}PuPb5SOT|T>?8vm10cLejo=G;9J7uX z4~qeiz&rNiwAHb~{eQyAiiP6KLYG}*5Z$pzq%_UB{o_oh>il6}fw z1?4+))@ggAWN!nFL9sxK>a&fgsPj^=BDbPy5!g2`J@?~zx|7InYf6d;i0?(;rtQyy z;&|Y~@+^YRx1?vMLgJEyaL=A?*kepltrJdhx>2k@H`6g=?+m#w$Q2&B{X)z}T(AY{ zC>~qed)PrO&<;|&>Hq1;9ynW>+F&9!X0sDAgzI7EGe4zoj#dCA2|f^E`2r5J0ot&A z#WQs#dC4xM;U3siNaGs|(yb@<{Q)WeK$s-cKAyedr2d}%Hzh|BVBhz`f;nW$^6(=!8g56Wps-{%rBa??dEadp<7n(ud&O<=Emd&(bkO$}q zaj%VIxKsqa$x6BP|9g9bt)KN5W;62nmRb1!-sVLs9gqq2%n*pP=u&s%3+keB;8^ff z5>TDZ-rl3=w#3-f2HSnM3D@6Sf15bKOGt)tB?YxeznnG*7*)U(!fs(_YI+=Fe0ALU zxE6AKbF+JU??iL6)ctUMWC(!0On~ad*za>D!qg=|^L^mpck&)9E zHi{kI617GqkVxw_B|LKNzzsYr-vJP>`xfTvf}^lcvC3{ z0nde^NX9!{9Z`=8ww)%w@4Ydfr?>!M+-JZkJ@zJM2jAn}hw3H^^zQ((4q?P36w8Lm zk{AyDnNyGZAb6Yb&F7R}riD33=s42e{9Mpd2!6o~rxwj~yHN#7c|Rz@xfHAnIz4uV z9~Dv#SZVdp`&0}7eu+vAh=>YxO2WsV#-!%lXnb{!2fz9c?f^4|hHcCBs{<``RfJGT z>SzVfNGp$#ht~xck758xH3kq<)`e&#<=|~#Z8#Cs@;>0?Dqm9s5&&~f()OsJ=ZS0- zxVG@v6LfUesX{>9^>r03Fi7MxS{ zcvtsM(Vu!^k3nLIdMRka+qZs8Nu5PF*O?q>EfpErWYJ7A0Xa>K^iyv3=|2M!5jwp8 zFOK&(HyB*WYvKMOQ7LC)XRH_{9Pc#BT2^tL+y2hfe4 z;V(U#X7Qn@ea@&u^nWUo;~uZ)IT0&0)%CLswhgDv(TLu}qsA`sK>4|;@-hE#rm&V& z1N;qaA@*{-4a^|zd}avNYL4t%B)!zPRZRd6dkHXGq#!dn;4y|!EgM}R^OoDjR!rz5 z?ED6K1ICcb2RKV{Fq&^3{3Sq5L1Mi4?DzjY^J|1#Cl98ybGW|KZFOh{A=R@iUB(i*11qT!!0Y)fdOs^qX+WrGLQrq z8xRy`pjXm5U~C|?dj}Q;U``8|H(>82BcA9?(g5uyS|9V!4ljrDxdq4JmIsTD^+#^jcMv3RrkK^`Q`?0I&H66$Ch>s8NCNjpub7 zOC+Z_&B9bwGq<$a!9psA}fKbC8Pm9kR70QsbGnH zabsHHQ6XF@<@h(~HylqofUy0#TGdyzT2K>~v?-3?eO80s)5CF~djI%`DeFVZ=QK4a zt_O>yB%JDe`ikLpNkwLwt$++gDx03m0wG&X?F9PjRvO;~xI{hitu^ce)K0t?BRm6$ zgo-1mLwZ;wN%Qf|lxkU>F?3n|ada_m*q-#JlSe|0Q>XEW(Ry zP1Q~18Tm)`jPX5rUkXOse;qMIX%9@MF7r%38oDF1SEoa(9`WZ0Cv+EqYTdo=1bB6KALV- zuv-^wG!>xMMu4E+C&>q|hxiRw9dN2#0vi{8RM-YvA|=tY7S$E1WAKl++tXY0`QTGC2>8Uw8}DO_aVkL`Ba|c zUcmNdKQXYXB|b3R5`k%f8Zr@pHN*O;d#TQ!!}Ov5wj+R0plBNmv~@0SaA8;%bO31U zWO|QA1tKH?ZzKL_e)~L^qoJiho!Fo0ewb_W;+*W|@rGyX!oGevO~B#D_1mtKPwVkj z&KjA%ry-p`15IXosapnR2guH?%&RBk(*llxqb=7VXFHnyGSS{$dg#*5m9SPGy56j9 zFM#0P*{eU}(3!eklKRMux%j<1nSPaw%7;j7=a$}_tQNeC$*a{b(+h$N@AhTxZ zbppCeJdesMU<7(9|xhyR3gsyId3jYh=jMlFwb%_&4Fk258J-;8&LUH||*XIN+KH>B&B zX45!A=s(+xJwwuqsjf^eNAKWK$8}i!iVP{=GOE43$-9%Bf5sSz?4kI^vZfXQ#Nlal<5crS9pCo^ZuCmsci;_aQ9}ys z3voi4dsB97;`fDG@pd2v}|sPCuh>kmz|Rk239 z4eOVBv0Z^z^`AV8tL^%8C>g|Mix3Ss)*Q6|Bxf^+Rz3xmOpcFqf2Mr(?{}+F8DpGC zPD}gq94k4ay_0yHTi1D2|5}dthUGih^ogk|j+7{L|cvFBylU$IP4= zYqs3P>=~X0=N37+R#yXiL~Qd>XDZYg$koV((yy(b+>CS1_zR93g}QZZA+FF*b<6!~ z|G}hg)M#2vmvT6xB8hpAtzuuV9^VjK=hH-l#%p>inWoAm_AVCfbL}6&+cQZ=@yOkcS2PYIOVn;f%RGkDwZ*yE-Cv>25x&!i*yN<) zkryg$9T|GTqiXirJ?_4jd$i9mBA-||R;20=8&Tjcl#56Z1WE}Da!(rS6TJU^^;{qM zbu;JdOtq3zX7|@HRr->D*he~|cpNlrqIg4ePsW*6l{n?5gp|4lx z6TI_z$?uxKXZBtH`7-QPBJR|Y(a;q(@u5FHHs{lLiqxRgX4JP|%l-XdVGdhoDF~kd zWQW^>T*Kgo*igQo@9>~kPuTVA0;!VFp&v5R++8dm1Y%?!KmLnbHOuM|RwG-w`@Fp8 zL`8DAb4YfPJtRSmyAn{ooETxGR`l2@zaB{DJ1K7&5Nh2oMc)1?$UZ$GYjW&#xMYY* z?B^%5b>}0*iR(4S!M7p5KT@%-m$jK0c7tB^zT)+n0_w+6KaJDJY<>wz8l|FK=?`!X zIoy6?d5wFB?0k+CKEkDQtre>j@q8dQw_`N;u+ZgRHvZ!~*_6IC^98d=81pCr(GTX> zi=?bHyp+E=O24#4)Kw;PxxiG&;}^OeDL*WxpSS6LUF0v|2+#A*PIe-a$vAOx zQlBDMkGz=w)7+Nek>7OxHE7&7nEG+OF?AT8@rCRW&zY`Ntb{1q5oke&}2O z@z>3eW?)L?%-PAoM9UfhA$3hRvDwM3=P%`M4lsTP8zkRKBE!QA66b4_&_XQB=;ku- z-g0>ozUy<9u8Wk&)qBDSLzHxR%aw9BUZ;O}{f_uzzFwaRl?ev9)gTnM#+=??iY8p6 z>FV;u2B!IO4(0w+$$G3Z8-FrAOOHF%=8Ze!K1!xZar=t zQ>0$=n_fEoZ?pY`uJ5)~+~7=j4j;f-#MGCDYK6$*81NDE-v=L&%3s8;zm+7SRL+yr zkdX5x$>`U(rz}a}09f-*94GEua-}m-*jNU)I51GAM!iYFxP+OAx*#6t++or^r&o@_N zW$x1rp)EJr*AGiFYIdoIoz`Obg3Wp!3Palz(A)41UNA2l+|Sr9Csi2b|JUQQEA3O# z7H{C2XBCQzvfhZ?!(Yp9v*XiVNq)M1&~F}lt;#l{H_j7)#g}%OZ&H!-{Kc*2U&VJC zvfAL9Q03qrR+AqVK2W9pw)XpJm-_vmfz4hn87>}+pIGGQTvctnQe*UGLt4ZoAC+?z^8Xk*MtuiwMLz+Wub z-n?p2<(+PFxohY#gU!-ZZhK&*%zxJy`04V#Q`42^DL<99+Xn|x=ZKJ@EsD@~?Tgfg z{Czt;*pA*m_&ZR~OH-k3MVZBKFjsXX)&50XpcB!ICE=08Y2;u;xW1RuT~Qg=lJkbH zgqi5O5?e=cI{mGW^Tw6cv-*gKL+VG2s>CdmbhNbYG#k&$p473qBQh~;0 z^frXm2AS><9gItpak(=IWqlvIees2!9(zZXGKxuC@-&jX!Wb&a;24~jGa))&w&bPJ zx=WjTsWAi2tl`?)OXBbHIkZitlZrA#OJcl9YAVDtig;|S%%5vlZweq8MyOd)nN%D3 zo78#_9rOhSEIwNDn+Em>q5YZqXq`R$^9ES+`LRLpAZhrxcflk7AAQl&3eD#qgA_5^ z?j*Jkh}U&=?|w5rx4t?N*QI>3Usxox*|Uo*rZ0#=UWn88q-{#-KVUy@A2bxzjZKPE zNt@eC-_H9;cI!|ses3@-J$u2Pz#;p#57z4tzC}roeyqG~;Nz(N5`ikE5iurhmO}wQ$URs*PJH$$Urz^@UB{v~a2UmT|#kFmXHyj44)=?@<3` z9?Nh~3KOi=6i{>Vx<;(%poZXeI==agv6(w|ve9km2<-Ki)L_mH6hB&Gfs%n}Mu}?D zZbruoB$o+ zyOv#WMJY~PGEUeiY3iJL^lQ?NHDKDamQK;z&VB8Q{kUfS5iO<>NAev=5YF9iix)^I z6#}31^G0x6NcMA4=Hfc*g6-tG@+B`xk@f8t^c>l+3)1-G+ewJCAY)Pc`f!=-yb*u zph_nDka4$NPE$&&!XGCF6>d#of_JRFtPflw!6b|RQkHu8D@eg~ zY1|)1n11TvLw_dd7CVsS2NjWVwM)#|lw5Pyrynwy;!V(1d$1BfwJ~g#>p@6HboT{) z%wKG(+at=4g_9}rHO{RwQA4$^x?M^8n&8GfGu=`-L{Y5&%cBJBC_R~5DBOouwq}Q~ z=%tR?qeLrd9(XW+Dy956#D5imqe^^0brN3`H&d3iTh0;gpy~XDj9r zCN)Sb)f4BCy50lBx|zHKXZiS-ZLtLp)-fcJys0B&e{15)iAjx4jn<0L7PJf!i6s}A zjwpM7?@DKD!^+$prIIPgXnJ5{M5$7zP|yByMFx#3e{|o@ny{grt7SK|-{Ue=j1$=3knQTM*h@ZF|{V2mai+e#!nO zg+u?F=yvTzm9xLSDuP+|L!9eSWcf05%m~6W#P#;UW!-{>UUv_SFAyj`Bw36!b?_LF zD#>)t#29T0Eb#Pj`Li$5eV4GVUd-llIo&4^-ocmY^^^#zk6+J}og2(VrSh+2e)}3X zH}}yjw>Z^uC3|J!b-K$`7H0{D*!Tx8({MeAZ>94b+uxGOmSpR)o#V12R<~^Di+>8j zckw?FBdiE!SScPO?gIzRp?yiU<^6Fa`#Pbf{oIgYv$QB~^9r1*Ad|fXYNSz)8c0ta zJAc)@niU&)L?xg_s=AiC%`cm(ZHtf(XIizk#3#$2=-)e2M0UHZ*>bVCbHNlSWEqg2 z{n%c0UrCmYlDYjK*-0BeEow|zePp$T<+8f;WY}AEC4fbtefIFsJHM74HGM(9EXZe?)YRo>Wb$I8+V&t2l$}~5Ikj-Cz z+UxR{VLTGgzB$F(9LQv1Lp8*0cf^bcZ>T+(h@##`f@OB`H$SJ+!T&1hPU_P6y}nBh z@)6n>%y#~M&+Pe%v|wUbYi1POX5_?tw@DP2Uru;Q8E4jwF|+Y44#GxuLyj`L@uT~i zUA}2Exv{xzvB&D&{P9BhRaJMa^42MY1u}&oCoQNLx+z5xbE6DHJB5dbvmkfhB66>d z5@fCx3hsY$Z3%qqzGFcwx>)dC-Qpo}U@N~F-;_@W;bibhVSxo6Z0NcKYuhC9 zC!7WwgcS!ZZH0*rard6eEbMpPwf4T9Bsxc&T$D?b+pv}Nz^A6{h+>Ua7JT!{$ohiW zuY_bbWUjRqqEPX00m=u8o*Bt7P}6Bwy?}{OTw3kkNOtv^X32cwNEv8xI5sbs0Z!GAXxHHwfjx%5XzT8<+P-_Ed>C%L`c~P| zo=9>&QANN@mC2jDXzP=g*Vj&u^-y~!oy%zP+T6hxCej?8V@lQ_%=m4#(L5yYx{!dC z_Bw|@#>Nn+HCB8td4}bIlEk=bzq^ir3nS(Nx2FP%2}Oj@QPMxleIsSkhw4QSm*HN< zSdOSK4mEzJ(2o1CY~(hGZ#@)E_a%+3@r+j;lGyzO<4m*`if`qmWt&JyLr@p(yfR?z z{x8nlHXdOrn6yQw&bhmv4GNFBoze4pBNoK?eC9u$Uy@niRPFbJqu%r+E*@AlN(m9^ zb1`45ZP_GUdo@Iz9?#;rIh+eEX4h1Z>56S`Z=b?-`M~6G<8U9E%Sa1qwn$;2*F=_I zzR~xqYg~2o5eC@wlB`Gfle|IvzDn%3-B>npy|&rh5J~)+!l$}n_ue<}N|09gJ2%R; zGHl86r}ok|ytaQ^!L-Ew1GU2}Ls3Nbe!0y#h&mH)OD@yVYZIvDaL%`xFkwJKY%g$Y zvgrf1)86q@rjGFwX!4soV6hb*I@?8do7&77M%Q%@BMiN~Z_L?q{w3>^y>E z#17Tep5E17S+M^jN14jm1-qGIp;Up_M3VLDe9_(<+@K;0U1(c)IrlO?lA+&iKcUs^ z+Y7`lj&zC+DW}0N@!5d7bB#`ilUy)+ye4qf`cm-Vh(WLmrO8DMaBIsM5A}mJ)T)1v z@<9?_9)5Gg=%i?>q8}7F9^fu$avE2x!Qd4^$6I7wBSnATpL_F{GhrhF%p?$qIW%2} zBu{=B_*&|^w5n<~R_XE)vc#5Ck=nyZW=Yb<9kc?Ub35FB34HMVnvqn8qE z)>_Whe&oG7zhYeo4yC@Bl*RAEDra-9TE2{QyzjiKKA7q@CQ0SMUz+MNKo1n7O`;A-QkNcRG<4?=iHh38+G>e$Z{8jf zsaRq3v*0meLC(nFPVLRRk+{Yf%G=y8m9`mA;^$8?mi3xAuI=CAsAbS_ZplQ9&R{VI zrc*t|aTtN~jKOi*4;B@#)*pVrTlqdEoJLus3OrafX!ronDsLB}9&aZW zRBBDsyOAcFCP{b?$AF%Mn^HpPz__sIc-_w*7-8j9-Ux4KV7QR+{?!Aw$|Xcf$NbAYG6M~d#G0M4Jl)>lM{(E7UtN_4MB?fyhlmk zC6}>Z9>0sFmbK=u;@Tf_DneMl&8D%kFWYhY*Rw%Q(%~76a6WcOU#F{R0Sf|#1vRI9 zkOoP^+$OG^b#SPfQ!qZ)iG)b0TA8JmYwZ1Jf>+U(;=?Ron71uB*acoODz5qDx5(39 zJKfsrQd8c%d%i=aI4u7Tvd7jS4&%W?5ra;cyj=OftZ=HMGsZW_LPOJBqSbhKfvq3DhxA+i(Ni>O_zC*ug-9o}Ii>|v;X>Ys%;F_n zNtVR)J`X!^hyX)qldFQQrx;E%v_#;CV(T>SlfHaV2Zx2K|G8j-`Qn}8uZF?du|_cN zNf{l>o>o_)K|ezeeD6@cP&6z_Y^F2U#PU5)f$h#dihj#&1G==1!CR~rP; zITux7WrK2=E4Zjyr1Z>=)YH_3)oSTlkVBivS3#S@l%G+*lb6#$6@Cj-64f^?5*;F? z41xPk#_K%z50(>)VL^E7Ov6-|qj|uYl{V#_J+J4Hx4GAT2?;;Ps!H0#_uh8>CoMn1 z;{F^)k422d_(sYYxS(teXM{(Js+G->2}>Pqg~YWI`X7{zvUeBn8eNdXq*S|$9M0Ka zK3_3jBeDX8abd4d5o09Yq+|G85A>Sv|0A6pNy(O~MEVOxcdr{n2 z2bs`Nh0qD02u^Z;EqJ&SP(E#S>MCwFH9k%IDh!xk3ilbf#)@=vwiFU+Y=F{_cJ)l% zYK>L;+0xqcH6S@4AFNbYpZ>n~=E}$L8hm*V3Ok7KKS#zBbf&L|28@qin0&QP+toA_ zxb4QfMm;8IQ4dx0s@7g{yM_BXCSEV%nnU+r>->_BX||ooVmB)G&+U9Z!^wX*Sfnc) z&aQJwk~g`_f2dV7)Lx_>5V0TV#?!t;w`F+BHqtmrxAhmwcT4Nmmg-uVDr(odAIN(b z8h0uiRm(3)VhMZrvQlfqFnB?E;i}Y zCB=x__of=8(zO?YLR;v=;`IwMEgaoB(-mj8nK^r1L(k~)%U1FV(WdONZINu*_ManD z^gUFFfM3Wj6ldCqL|@zIy1vO2%-vyBPo0awd$gxxA=(B@v|idl2OQee{u(nbjCx+| zD&uc{?tdX;7%E!Po%M{bwST3eUcdjADn4@GM#qaj=F8_97WP-~4So&lM@!hgQ>Svl zok__4!4=b9Z!bsYQp(p(T6Di!x<7sDC3iP|gmChifIP1|@bEG8B56i8lbg&(#S-m0 zS&!jTxKtU7p{e?N%&7RZ!3#+kzQ=rAcrn=DksL!y?0fHU>Uti-Xu6U2D|by?cs4R# zDka&?k-%Hx7e3ip`b?lfJsXGy=73jrVNVB>bh>QUz92D8@J=;N0HqdpgkEKT8cx6% zMSL);Ludb|XmDB4LEhXujq)`?|Ul6+JYt{Re{pw zs5{k~N>M?>e#;2U-QV%{xvWGWn7Hr;f(cup+N^oa(~y?r?1}|#{}?&wdW`(j?y#{} zznbX|mt-Xd;$p(Q^>x>%oYa$e*U6=8JkmoH;mSM0w1Z5Du9F%@c=7~_4)vT3_n<=^ z&&__xc`Q0eD<9-hMag-*@l3EJIryE!va3O_45+E;FZj7itzn^O82+SR-h;&J* zZbH#+-8n8&f8R-Xw-%4t5n(31>7uOD{BS7{pW9ypI{Z?^z!PDK7#yG5X%pj8V}(RRle$Lm``@wE1YV zk>JFg3nlk&ALU29&96{U}+I&7P z&9IsWK4n~G?^LPDkaGnta@_CL^{C5a-q9AFao#2W@e#lB{86VKP{f}{ePMo9be_T1 z!{3=%*FJlc|MKBnFxDKC>u#6F7u6A6cH<<9P`6-r|9*8*P#}`J(DY%7qiNxqJLXS> z?Nnk`WA1jY#vCfWY)aULt8CKoB0yDgVc)oE#y+?1!LPV^?LPKlPHoeJn&J9$pF>8*+(c9OycKSyv9ask`5%}QX{y*e@F4oF&%_$CW& zH(G8GV{6w=@6w{g^T6VCT4b7$BbTeX{h;r~y?~FEh5&!Bz2SEz)gF?&&t)i0Qu$Fk zeJ18Ro}vPRM-Ba;lsmI|YU+R$;7!C)C{z8OY~Al{Htu|lV|8)#OmFVkgzxF$6ywKn>TX)!qvE?1Pu$eEB(qn(WO6O=zF=sC}in$QZwOPFy$CkNmJUw@^V-hpEA{>fB z{^*-maAH5P;mjNC6DyZDqdIiqnZ@wa)!ztF^(*+GN|mpgtivBiQ2m+Ww!Z9Tm%e@$ zRi22pZXV?vtNbr2^0@+sY}?yE|Io|ghP*;D*CP(t=PqC9Fy*}~3vi%ycE~=o&Xk~> zLlcq1pW`h%@XC&iI~W%gejJ?jlG82#^UYzeI}$GTi5-5;l-QO`1-VuCy)c}6TzB*o zj6z}SpG~lS)F3TrjFvqayQRY<;!J3Scudtg%rDOvuYp~XyCl?O@J4)f5Uf6YCdV}t+LC{NF2iWl*n}Ie!|H&Hk`@%(ZJD7W!`ASQ-=3-Z-Y8UI zWVY%@@eYL_3jKGvU%w5S3nQ!zFKd!DWHp`AZ&sgeqSK}hd2Pj1ZNbHr4>CggL1I^Q z=OP91FAHu-xvd&LlQz8_l>Cr(kXw1k`G{9$sy!DXmd93h_UD&pxAj&d>8JeG!p~Dl zj%sg+#|#x|X+ru_pMP_hGRw}RFu6y>B}@GXwjS#OY?%3Wcp0r8CfGJkN-qsCGDht<5) zl>QF=4o{Davc0P4-nq&Aa=Lh=rY?Gs!n1%?+?mAk^}IW*A|aN$ygyOdcg^!7A0oSh zD7^z@Yn^XcTG2$zvqTtk2b9`chI9WbmT)05XRc>+f1SXFBCc0JxDe`M3+m8Uz@~$@ z5-;+n8fedzbgf4}@Ku%Z{*_#yfpsKk>Fay^dGF@nNE5H_;48xd;&nG5Y(YO&Uey@T z385oh`U5xaO^eRs&-rKm*S@kb%IL2IqvK~Smdhy-2kuvNd`DY-H$gAMD;d8iYec`a zYR(cd{wWeZ$nE>&P7qN&@uganDug_yXC7_}WgN5?hhVg#Bd}?^pB<|`OgmSxVEVsM z-hZb_Sg6k-9&U=$<^G`pVhH& zbcbWN9&thBj=jF?_Q*49pkoQT7TWm)AmCRC>7O83&m!EQH=2d1U}_fd|pxia{%`;RHY zXEbbu$1D|64L{ersPJPC-FrXTNL2iT?BC)oeTZ^2xxn5x{k|W*#=dEu z*1q1)v6<&bCVZnkX<4LQ#MUew+Of*IhJI=JdXxT&I4D)NdL>Ry-Iud7gJh>M5ufS7 zee~1ch`5uL+&7Mu@6$QRD=e@$bb1#QbLUZ{Ab4lexnl2n=qdVr zZ~C>4I9w(Rub*Q6a9Ym(S#jQP5PKh1W|m&2zDh7xQG2e>XwZ?vg*SXd6zjf<|Du3u z>qnSyH=@5GOCM+THAHFP()7Ph(}9tY5i+3#(2I>A(&>3P3$%T(SPb%FIji*uzbe_; zM_lb?dv5kcw8tSu-S%D7Zz*1P`YIcGY~@=>;m!k5NL6&|T#d(bX1mBZqevC%jE`%Zy1kuwrZKT@F?kODLVJJ{}1dQ*4qyG0NWaM0x1idT0OfdcdA zCL2S-l4=(**Y7)5s!$~>T|$5KASIJ;yU~0YKAZ_l^<40r!6k7MtX2Yq2%!Pin`Pq8 z4+E#Y88OsOt*js%#HCnO$QN&s=Z8igPXvq&y(9GzrS|^4=E2t;+dDF}-kl(pt2 zenuY5y!?InAC0$+S!hLuLv}&zin}V!Y69%@LZu+LbxWl`DS6K{WL-y<<-R0oKY*K^ zb)n(*1ZP#fQ-1&e@3_ngVNJ&c$R66=`?>BxCMTpZba+rs?7`fEc$1SBB?($IgJ#n* zVm!#WAH1)^Li*5HqZ_@d!m{72ruxpHBzc@>X{Ouv?ERPFXTNxhslNYeTyt;>&UCk( zxTfF_?&1GWm+B|yP{SKy%x+~_^?_Q*lcKErP-Q%cU2(i&=?B9n9+#VP161C@lAPY6 z4F6Ffq(P<=dsyCR-5AG2>$n&I9a|L7wgI+n47eEl~P9itFKzo!gv!SJ*>_A_o(k6XVBOB3bpS4eoRi> zVtEGgNRx+Iz8ahLBGn#=KF|CwaqrHN>`l(&;qI5-x9h~6KtA%~iX14Jh3i&LV zBHy5W$CGlMRFaoBZ@Y>)M_G2z&F(zh&R^6(@h(kO!l^jci&K&-)m)F#a3>VDG?~BUJluPy z5Pe5lbjEszxlf&Q$1>le`6yFV$9X5UAC+~dHoun!J$oua4U(PvVh051o2TE6&#T9w zY;e7iN`*qJ4)PnER?&TX3nW`#tfD2!7>LbDp6QYoX#C1X{74!8dY}GQ+Fv7Hl%#!h z;?|qhv3i>JNHcz&W7|aWsjz~nj}}`qzQ#~RXq*+rZ%N_a)%vpQlL_SvK^ce6oFl)L zfjdP*SNI*;C-c=)jPEb4Y9IMU#&Ed@b?~GwMe%%-pi=x?n6)hOb+8O68qt^=U?xE- zZ}wtV2{y*knQ~I=e^3w!jIRGq#AH{?(wS{|rSUO9k;rp~=*7+AdA_m*fx9SS0k*uV ziSa;kuW_`g7=!{W@4oA)PLC%WiR_LH3y~o!n1f4L1Z@UP*KpcCga##_s3gbVZ@x{A z$F>qwB5xW0Wh)o-C^vL35j}KqmV9PJo#=nm5T;`ONl^T0f`??d~zcan6*#e#I+?)KgN!N)2K0T(wGv znkGErte9b<35S5ywHCJ1dl4NV{vZG!8Qc+*C2qxVPv04f6A+eI8;2~s|Jc3eB1!?1 zXspNMes*KmD3)3XEdN}^N1st?kkSj#}8ZadexrshAW;`_q+2#~ zS;z8SHhC;5%kq_wUqr5oRqwf`WOu`cE4}p>#1b?WS{}IFm1bKwDhe`pH-xp1a>~x; zenBH&)@aNPr@pg9YyS&!5x=Zo7LYa6;@adk^e>dr{_Cymgp3FST z1^=KpKhfo8e{H-o32eWnuZH~xJsqqPdtkWd%CCW)g_y=DG^{Fhc*e7={(h(2nqAB( z!&un!$W172qdZqq$fnSLNvJi4E}X|#X1;5Y=yhCqJz7GqeQuid0Mhg$@waKs`X!Q@ zpCmV%uldNII=uZtbB&`SE)#{RZ#O5lL$l!) zO>t_2w4?6vMDq&yjT=o&hKpE1K^F2rAPxMAT;b0fm^CI5yL_GH9V!*v6Ul^Tz(F*x z&=YbYfi~Uf?5EQ_bJ@kea5>5EEv!UB+pS1@*f%|1&re|azL{1@BYlk|oo!b}w2Uf> zgk3rFx6*3Us~|NCrp<@)1h4{#ZBw0A9?c{M85^01ZdZ#fe>v}n!}s$m%b-mqi|pv& z?~&h(2~#R_&0!Z59n^1pm;>B~L{05mU>B-c5iG2?Cfd$k zilCJfp+R_tE{KPDS_JFr6&XZN7tP9ZnAoaK|$yI}qUkghNsUu7L0~dyN4d#i< zqJe4L2e>|B)D&0}c){>}Qy_(>)w?(+J#Qkjo?Z+%3k^8GnHwDWSk_|xq72>2=nU)2 zsnKnO^%eDU8+Ld{(nh*W4Ko8I0$$<;pOT~KQJ2?2x@}88QUE*L*&dj0ThU|PI3$mZ z^J;4|GDOto*p^<;8TfW-mv^`Bb48uVk=cXx9X&geP4a!mQ3G&HEL~hss}AJ9SM?!Fp*}=!+D_B zgPQ44qMVbTt^*w^t4|%84T6?T6G2>!)o;x-j7zJ-7i1Owm6AmFjt|C(Yj2Qj9?-6% zb%uk(BPE{&sjV6gRE7AHO3uUeppkjbSim}aF(A}*RT!&dnSYazr-<+}sG1^xv@X9)Pi62mMY63gFd>q* zq@+1`y-WzSH21z7NKL+!(`-+awfVl8Gb$HRr}0roWr#-ATR5(LoU`oR)BE#)Z`Ik$ zgk4b;#5?R^Tkpwl6*{kd5q{)Osqvh$L-RVZpK#`)nFhUH#%X9Okrt~y32PpdEB8#y z`;^Fs-l5Gzaa0sVDJ#s*`#0{B>UpVCo!A=wLQp5GHX}5Ddwt84h;T5RyCljG{ZD)D zWAA0rj)!1KMO0>cOa;C+aSh2_nwS7r8J&H5@9Zxg?P9WpLfLeCAMPzH!Y#`(cS%~i zLEfz!httU7(WV09c(28NR~G#6yV8AM1tu({&d}0qVM1`cXDxVA zDMFp8D=lVU*F$WR} zIG58Nu&&nL>$}7dIk|lA-Aq*0p);o{@=z!xbA)&=kaVNpfpvHO^vlHGlg8 zJIrrUpd3LfdrM9$TOw)#LTw#4+x4G6&22y0uD+vS!XYT)w(3UH7oAiut3X;n_}pS3 z!P%L*dSc~HWu;{c5&qX(U!8IrB|D~(M~SmkdyxO%xN&9%Fuc9f+V%3Hx!fsb+%I#v zUw()6QND;`5+iZWs{DUz^cacSTm=x`*T;F{$p!+}rbz#y_8SED-iG z2u=Q4j!i)AI-}rZKYjN(9523W_3ln05x3H@lOcO9N5L`MLq;;Iybn-e)^6WZMT8=M zU}UuJN=#LQRCx6G$)LG4f=RRi$tUAZNL9eG`QYg&q1ztq9Jt3i87(O|OK=B}5FTY# zXE}SI=R;{>A z#t+`i#$rD^aThE;M#O)dc~IODi?A?NdAG>%Xd0yH242@=umFyE?4w_o-LK0FGcn4 z4D>qJ((*&(pTw+dkyis3H8n>cL%)9$(WOf@Qb$UxNzDFwyjC(hC1zDbmUk_||A{Wi zt;@RSiq7BUH%WcV;LDWvd89NqXP2aSq9-ght(-LYQ6ir;ynWEiLtlv>6901i(D+vp zbFayd==(&U>7QGN0D}^G1dsP0B|S1-gZ_zcE|1UX)k>3cM>2=y$nNi-=aYO_4j8jx ziu|`Crv%9yGfw_f(oRhWjRslYC;N;vz0}J|BRvwQiI>dIz4Q~MBxzO2IM1Z!viPj> z<`heO)*mjCDNX*N0lB69^9*6~D+lD(L?0XQ_|blOu6}5d!{k5oM1Kg7U!r-ghpSVH zS94iXb4k|kF2>XHzohJ5@(Yr(%3S1^{#SmbRx+!zQzgii~HwAyoX+__{aABk0#|UY9Go3a52_q-E&Flobc>- zSQi<#irBApB4CDJGn$&EN9^q_e1eB3+iN&^3fb#|?R9AZI9>t1>Op}cCd5kvo)0tc}I?i*8}(SpCDM%Vu(b1N}$ zDgjQ+3-d~6`&-W6g}r$AGD%%JN#LVx;oCm|FF)>f;G~3i zPcdyy2pfFsH~@}NfDJpQu>39a=P<|Zod#hyIV;N?H$^4977lM=eZ!9no9h8_yDPYc z>dBn-EgaE8c&|PtjGuE1;G3Nk{z#n6<&Tk$^M?)s8=RCHq1Z{;nky$E6%y3;i_yIL zK&}g#`nof8?HOk_u-d?y^t3WnV5Y{?^*6NYY=*n z(MVXrl&W4o<}mStkpF^!)jIUU8U?d{qQon$|!%z0REC`nze>pGm#Y^1x3vF`x8FO#sL1eCkayDji{TZS4}j$k#~%4+;*@ol1B4qGun zExsCfcyfGY9YN-|#pbu=<9-Bj3;v7E_cM+m*%WfkSu<*$SU&loeDVX9`Y{lj4r4?= z8S%QMJwfy~{+sYpQA$&@3LohvunhJ_eB=#ay;(#^V7+D7Tb7M~V%Pw=ztboI9h1`3 z%!p?_6FvaPbHHKb?*Q!Y0HQ_!Lk(x5Mu4owHA{y-slRDHZym3m&pnvs1TRr}(dHIJD@4mgPyqo_u$h%E< zF|NOHJYk)XtIl@*w(^}`o$ve+-}wV%)&>*wHP~Rf5oAf>yOLy8zPrmbSVDX!0a%Fv z`*}5nm1NkPmVLjGI0t+e)+d?8cMG)>`SBiJEgbKm)ga!x|3>{jh2(tMM=I-$=0g)( z*x%P26yD#L9R%(#zJnF;q3(~0|HwYy(fojk?}Osa2e{vd0o#GV`pB@qT4D*TzctV0 zOsg8puAdTl_M`g0O4$6*s(|_C+X~Ahj%{jY^UDYxzF5>pLfqKf3eQcmhF{f(O#2t6 zPUP}U*s4llzFAob_{MyT?t7GPdVi?SH}fVsyx(=I1p8eq!3_rX8>+^z*T0B~A57N2 z0@)vo?GGk;1T*wlRe|*gmi73-V*ZteKh3}1W7PAnmKXmh|01vgK3D-CejSP5w{E4#-VkhW2tf~Fp!X!`Au{?EOJ9N>sPN6P(Tskbi64m8I}lhM z$iOWx!MK4kuElcXXN7O?*VjWwv+L^>sT{sV`5sduOt{aM0K)A<6bV=A>$-PU>+79N z{BRs^+YTW3a10+#;KLd4`wn3Ea2fubrRut}@BVD9uLr){a(&&9>hS*8{Q%tmu2b}g z+EMED9tW^i46tfH06hE?*>EV|Mg40O_k2b-iL>9JjpjZ)YoAHn5B8aX1U?k*cPHOr z?{{68_@Oxew(mphABxvMl)vwm?gRU7)itb#Rx+Kp^4`FAT3CNM9tSb?(Gvc{`e>!> znHrn(*8m#lF_w{Rf6MtkVv@uC%;~+LpE>^@Y^S?qy5gtg`>2uZd{1TKyOVtHvlkiY zE@iKE!v?y`Fu$X{USYDFbIuyIeyLwxfV(<>`xxuRDrcv?pkQz%mg(qxH$s2TStGVz z=#2GZo$!J^fUp+*NEw^XldI2)&XWU;^26_W z-mn`Oy1_ywoyLiT7N7n<&iTu!Ne<69pWF@RjGYO%FXRXFTWo%~!Nm8){IF;ja)K{* zf-k>1ShovQ2WzilJ%S|DE6TBiq4OEL73iV90zt-lu~~Y|E-*{)dR5sADn<|{QrQpm zlUW7_8EeHrOLqd$eLpDl_u>e(fpQ!N4-sD1oyfsK*ug=3+cv-D1mo z#SGkh{<4+-y_I|#^#(himQCjHzhpKfm?`}idfU){Yj{56_6GBOW*zhWt;zm!xflVo z#_`me7}}a)Xj3sZw6(0l&z9SbggBIXGV^uSda`6PmoLKJE*9pCjAFnS6B=nallIl% z{JLuYTv+RPJbM;{cy796KR=i;oV~scllk+5k=upm2d3?yuA4yg@K>q;=i%!8jAn|% z^>eH3pqy>GXfwBnnEhG{_nm^Kuos|KYyon&fdxn-3b@g2I_jyD&YB1CTdEJ-5TCdK zU^fP^|28-4(YD2v0DBvg3GlpE)vn)kVVdi0tP?vPTfP+>kInraqx!*lLEBe3^8zNm zAI`U5x1f0Q!|~?FKc@=Z3eKtAi5`KAr*=>t(RTjAgRAp@%=yDT&Gprn@#&3nmy!DpMhUrBJ-W$Vv^VfZS5m@(v3mD!* z;kUmJQ|Gq~CcX!XHxJ--*1d-4B5<$aZv@xVIGOOu`d7I3>k4w1_?`&g6X1I?@V9Tq z_?|NUZEi0ObpW35=)b>9TiF6^8F zKC#YO^Ncv+258<_UBMgi6upt9!mOX} zGT{U0`PWy%7Y^#a0)v9$Gjt>UfOvawt+PguPlfyUx4r@!X95BARpzg?FR9I6^;7x% z-S!Q_^;+WwP_I>;ru7QhKMba$59SlQyAwX&9k&5gDnkgOpE5s)JnF1@$oFSlH-H_o z@jFr(D)-Tn|EbpAjhM=<2g6=kFI*4KTo3BOQQuMCruE=2gVpQ7jHwRuwQfD&>+7co zPfDh>&nbQTgu%>tSK%BczAM6am9q2W?q5XfKkMbhgjui0k%nigbw>yoOn6acKbXp) z3snEC6K;1pehFy9o!IFwnLM17x_|DV7U!3RMN|3b$0OGXpC2z-2cmmIy+U5vL7emB zf@&TZ+d>1`6A=|kh37QV*I`83$PGrCvD2YD9;zU^Ypt@9loCv z@dYRgo4zHq4eOH`1KIV7E{)y(;Qn{5@bT^PwSdhhd`sP+^nU}@^If0ju>Fs%h4!CN z@&NR|1K9mUE!dVM@7jkBMLonm%e1NO0|;}};9&+}&V zXV3RXF!8k{|K3@R4=}I;v_ugtLy?uM-K<9(mXzaUA(Z)xQ-9U@OETa8VV713`#*d& z@c*4-BoAmC9$|XH-v2oNbJ85{|2M3H{XYTrw&wo}-27jh=5RkAwF>lQO?9-Yp!e0f zR{!<;YQpu!_Rm3mF};p@oYrr;erokw37>Baw^j=C&C{O)x4RQ`y}~yOlGOR8mWi)7 z)`?vgDOm}wi_EPhd2TcRNMiHtU0%MU{eOjU{rb#GkoWFHk9Lx&$(r|b6I(pLF3?V6 z>C=wpKUSz6R;V5SBFUF4z(tajqe{8uk;pkOik#-~{gr44+jIoPKl<)r-(R2S3&;QN z&tUu$Wb%E9j6AH;`C*?Qyzm(~KL{XrUNqvv?pE001*zkC8SCXpo3&i{BJ_#n;3D+0 z!!*wc!9_&&<$fPDdYZ%hI&?Wm^svLW{Q6}d{(XfB4)g1&PXWI!KV-wNQJUTtmwj!Xt*?OI7A;?0JBU+-a$BVXD$K$?n}^v z6@PCn5%+g6_V?~jgeMceOTc8}P_<3n5;H8G_dTs9-Qn}P`JaGbA4t%Bm3r;R0~|ha z^uA-zC!k_DanPnwjTsTAc7CBxZ{hr+&tl>8izSOeqxLd^52EwMsNe(k^TkL9Z&P$y z3{Jiqt7wFgajqfxA1d}14oi3Vep_)Nh_0~&HAFd&{5`gX^T<@D0wHL>3;_zTE|$g= zf{Ud;RbmAKmHl#3EWaN~cldtkjsh@5A6rSIjKsHL{XR~7_i*rjR%`(Xuv-<>aLQ*H z1~opb=GlwpANeS}195l<^6f6o2X;>&=n_4rGB_Jl`;o$ibnf|(p>dJ$`B3kCa6WXW zoJKo64>j%;KMxHy){8}Y-69a_)5~e3)B7yCUTXJQbQ$dMt`iII;fp|c`w~^!oB(6dxW(mWUi)EWnG_9pXaS(;%iZSYk}8UV>HuzFh=W4a9b($fpOPg zuMdRlf6w`_{y$**{b5`W)%)nx84iDcxNsgIF2eyOn{HbNxRp<)&bJ|Ks=m>t+GM zN!V#SKaN}b(C5d`%mVxSi5+y#MCXb6t)lZp;rUWc4wx^EBzTfyU&$6x`y^w%SRwIR z4k#pUnQ0;^{oj+SzaJ-)TR()oJySS|&d&r%G=ZQ8TKm5z)%(A@O#DF7|IHBYKi`}Q z`p-MXwEv^uZ<{)+f4{9WapoQP{AY&nSna|L&<>^)(?lZk9m7*a&YFjPpX#F-Ab(to z>3Y-nI<;9ezJ&WB%?z-@i?-Y3PejIM(d&r9`7=KoW%@r1`9BQ6hcV!{m@s^p41dWIOW?h1`k#)R{>Q}G|55*wDSXP=$pq>Ea}m}< z4}K3zOl-#%@6#1%vK+o&uqqSWFX&vPG{Gg2YWFE3d3dP)&p`I;vHg0A%dr0mh-=)m=?h^>2uQFe%eN1h>G&+k@Zz7f}P8YsFVaNc5XXPeZp3wQy z;Kx+wOQ~7>`~1=A!t>e#>7ZKayUFIdqTyHv^?oNO%i-(hiRqxvKe7?yhAREes~uYC zcX+?>=6|%^cR&O@d-<7#jw`j?$YTML<9l5o~}ZD8-7s zMH6E*@rlNcEh;w9*t?k5nwS{P>2tU3_r1s6W%FMAoB1%ad$Yfpot;vyY{Q$QQ()o! zz%5*uXPY(8)Q!^bJ6#N%-tRL7BK`TVxE>NWy?>mm*z|tc{dJU$l3&h%ZczZ6YXkoM zV%7iS{h~oarLvXOK^d@;`p#zk`B`zz#o~$Vem?4*oZQ_1+u0Q_V zS-d~~QZoMrY<##;f8^ZmtA z2eJO*)9h;Ix8@`%p5N-63=>TktWYf0=w(P0gfwic#MrL>DMt%^-+jA;i_+9*tWX|=8- zW^76RZzTwO5?xWOXGASll%c4qDF_P`NsO>z#Tpdflc<~sq9^9jdLf7$66;XdGD6J? zAI!s-L=uYYtKe7jK+%juFBDrCQJWR@P&}~~L|qi=jId?Jt5OhqNZd*U(T@?PtjH_` zkxOD5iiV7+%Zja-#|RRcDDJL=d$kZn3lf7-Y+niYDgng{D?vD-n8t|utQd~sAc;o_ zAOE&L^6sK%OO%( zp|By*8%4=-h*S@jgSc!ihc>2mw{7B+$42Zr< zAr5XuF`L9G6!kHWr6`7xScc;E5}l~YiZm3iB*vrI#t3Uxd@~osZ>ECy1jW=PPzT*G zkNqU9Pz+qc#$`;qh|*pk4{4h%fv4!@QV_u;wxW2lSSOmX;vR|)Br;I!Sq#7S6%=nx z1Tg?b?qY~I2T+_OVUJ?OVt6JtpjblUVKj&qi{ZZB!(Sqj#4Z#sN|>}k_}@J#?OaTI ztOTyW8-+EAF(`^kpe}i!xMVDdwkSeNAac}1v7W^1C=eY>Aj&>p0wRgTaTGO5Ad;7( z=t-gk#pz;v?oim0h(NKd7+R#ID6ZEKL}wJy#c&;SP;4P#hN5dRM70PM=~}@j)5@B< zo4(p_rH?FawE z9D~R2G!Za<=TXGHUvlFq|4~;no>DGZfI11~%3d=wBH%T1OCeJL6`qICNiBIE!X3%% zRm}T+-Eb9iTxCc7<0?f*)52kQFE_RrcKr94RVB*5$0%MeF(Vw-OMJJ8$N>9s=6)WZ@0ftk;`mk*6-)a-fzz}q0IeO=a?Jo z9Rp^=@4p*qBfI~uSFXY9eLe_-aqxhJ>{oo8-*~U4^!!Gj+-mmsIUJ(+tNx}?_^N-Q zfE%vjzIO%I6#d>6kt;u5)iXr#cvag_7_ahYvv=aZcipm<*gs4%e<$7jcY^!xB$4lq z5GG$IZN4|Fu6@Y|%4Z#f{V%Ph>sM*6e7Nit%!SKg7JA{bCcppRrP=>@|3Ag^L#_nF z7Y5TW^)^s-op1H#?fcp9Ff14p73w{b`eRQ&xmFbKZi&X}+F{novXrD%O#^h2(}-y0qV!gExM&DR{`Nuh;wJSmsV z-<*vnN#j&X4;%~%go)cZ^Yr&4w6zf3kMLry{C&V7&L-@lK=@ozTgdi?i>QZupd4Muq~?T7CCzW~L}N6J`e zJ__^ozV5j?n@Q}iVwY#|{(o-+;Om}4K6lw%yxFLdjW@FGr?TnU(*oeSm*;U&mRryG zOWr?U&!~8RJc|Gbw9WJ0JsIjNQ@Q;Yne!6z`Cy&T8 zxP5Cd8rnCHIedSmM=QR4+i5Iw9#)=gf5o9-B-dY2*U;;)@aKPcjxd%z?{CqKXO;BdwB8~2ZZ`HdAbnd`OW=c5D}iO)y5A(_7=xBj0g zfF)A^OZkl%dyIgM8U5G-sQLZ*Zobus?$7r$&*1fi$A?2l?dl9BUn@M%HB_6oM13>L zm%aa&E{2J&i^(p4H2jk7oz{n0UtAe^dGUaKs<(Lq#_97q!oN zkVYfEKViPX{Y4*t=r0Da`C4PVyZ5(7dVE7Ne`}`x9U7{;erx9Xt>st$9P@+KKNZut z{u}@N|1Dbo3cV%sZ^%9WLlw``>gNajI6t-kb%hPfv=!m%YmMyr*}DB_s@X4ayRYK@ z%#TB%cTtul^k-gcWar!G8$92>CuTe_3*Mi#59Fm+8oBm&Qoh0ci^IOqzc@9Gdu`*+ z8yxvcHXbaRm2dEVT77)sy=@Sie=Y3QR{SOXJQT}azpnisqImlE-Y?)jlx6a*{_wvv zGW-Ah3;T6?W4?nj*?5fcu;Qh3Je*a{ey!Vm6wlAyKLp}(*;MX5mWu~pycCZI8}h5! z-=UL_;{6?Z41w3#-c#Yb+rk|9<}vfZ8~!Uv?IG}$q%I>=tVl-TN8-8` z2p1AtQG7iGzQQ|V9?$LzA_GOn6!_X>iefK`0Vw)Ufv<13vO(mNut(8|5lvZf6vZeK z4+n#|p8;1MJ03(U61!0B$bfIZd6>ta_XIHu#qzlg z@a=agiWMX}qi8c3zWpX7f`}nuhT^YuCapjI_a2n?@<2#?G99j58r;_? zELD9HJ5a1l!}*3NZr>I}Hi`*pQ2RVkY$M@|!jln}+;?&mQ%N|Zuug-g=;1UF14%sV z58_fP)WM@D>`ClHu|5@^?XqYPRks8&4@FWcM9!~Jd`}_(MNdY!u;OzpRSpSv6t<}l z)ym^R_>%bha}d`j!FB9J(Tv0i6k8@iExD2j;>k@xEJl$&32Mm!6njWSqUeXE>Vl=p zCD8>%!$~kBFc$L|LBbrx-4v*aLs7IKQPB^?_7onZu@gmpGW>Q| zB0!wJE{GfyqcD#TFpp&alj9w;;up;Y5TKy)Xe=>y`#M98Bt z=3ztPXA~t9;aMsU0&)4OAeNvAp9t;QsSFSsNkpOO#0W?3_dt zEKr}CoJc(C31V|R+^Yj99{nPS-6&Gy;X3xA_>n{| zioWp>+jpjem`!3Niu&=;_Af*+j6^FGx8tBxX((Jty!;Hrwm7J}<52u|Nf1X+OpSxz zqZ^9-BnnXsjDxiwO;F4u5sJb-4zB!p8i+9@K15M90j}dBiZ&!nP<%fDYWq$Ue_a&B z*&ZNrCO{8hA&Mg;R-*95QYD~RL?RAFGc1)4ieM7mQ9Ow?g7J zBL?Q?K1I=!L~9hM$HSFhLt#teuWlfgjfX2Y#k+g`f*_8fh#n91d@<&+g+vjGuH&Je zPePGSA`FH3cxcJ}QS>9x3B`qIh*Y~rgJ?*?6vgUjDAlb<5O>cD;+!Xl_-Lr@7gIoN zC$S1e_h_gkKcSdLA|8cJG~C@aCyDRYA=Z&Q1p*v(%u*aX$vTAKBjeI(~icHgj3oeO#52|lXf_k z;S);R8PgtN(>BNdtERLyG3}BFsH2VXzh6Bgh|3>?h>U=z(+I_85}QzTj({k$6-TO5 zNu;7sMZi1BLKJ;Tc%wKM4$pH|IEeZr8lqSk4n4tfC~lVv;$Bw}6T;zM1)$hQVh0M( zaERf(P)sF}jlwz{o`Vli3?$);;!+s2knOSF*^_Wau|5p$RUaIwt~xDLlrrjP2wf0*SFHQ-< z7{#980C>D??Md1(%@%}?B)mRb}Q2ZJKzg-;^?j*XQ*cAf5 z-Baw>y*?=j8x%7`;K`^!ag4;3k3jf^KpotTqKL$16fPmqLaag&N+J!#vtYP#?@$mO zN%TXpH<(E~0MnXNT1QM<5Da}MXDrW!p9S%#6NtcI`0ZZe*vx7YyHT_Y#_@B15b-2( zQD}l7a(;zlm)%K>L~$Yr?$VbiY)G_1Q4$2#5r^XP2|>L45JY$oJQ+Lj$~TfYf}&Fp z)TkzyM+%8T6edAzdGNpYr?kMY+H{MmHTmvqw| zWae8OEtKESU!7xC!${b!pP5m_t-q+P{nsM%M=lmhPbex^Hlb+!2QZFUj% z|KXu{Thv4Cpq{(31u<1;xts7$@0JT(1(SY$M;BE$KlhscI#=O*z4G9H{d~ROJzxgj z(9z5V)#u~Ijq{@MB0};4>g(b~eaKdFV=NEY80+dNwnE{0*3k1(@uDEJNOr!JL(jH~ z=UcsWhkE7D7Q>p~AN$rh(fOA}^NXsP|JX+H{Kr&xoc}nIoBzn}59a>GD3SfaS{k_D zq=h?7cnlfI&9LI)$J4W7@uRdzW`32jRYC=AVOrJW5yE;}{#oB)_+nII@P6wHongb)tAqK44ik=wbwHbz7`#EO zE9Mt7n7MFg>>s{3BH2ImlFZ(jtN%{AAHbRU0i4-#I7^gcc{8RQ&f0QZtGYXg5A4Dz zoenWas$FjsQX(DRnfD*2INB&b(?~DM^T*@6TON^H&$B45#NhRHKQx7Lm^TCY{^&KK zzRxI=uJ4(W`I|BIJ;YIE#Pmw%8R_*(alFaFwM_E;ahBZmY44wjqvG+VGfr@w4F>Y> zHD&yGQ>W#Js~vADEH06c@4~)U!ix=m{*2dQk?waFm`rOf8aeX#(fco6$b3Q!LzE`IX zR9l~mp3283&ozy?`1DqPy?<*yK1CjojZZHn|9@*;{ca6+xwXV~IyGUgv$ZzoimHHq z`unBS8T}sjOIc?RBO!OZ^~Z1H_KP)tUW*NWpXgu@?-Q|XuJv$z-yi#=$6tIF%kS56 z&Q9@uEt?v{z9ski^5gRh9r?HtyRVx1r8{p&vOFf-`d_9%ChD9|9ch3b_BpWSz;4mN_<#y5TVeirrjX6%)2|7J<%--K=d8tN{u33I=j$ai}_Z3Nw(WVRel z`SAnRCA9 zoFAG$f3bC)-sf3#xa!pE=UMD^f!|&A2||C1)9BoN+WGVI_i;TP%+BA2&;f=zGEQ(Y zl6t=8BOzl~@%cPv`*hDQ-1}bEwfS)KCueB)hIsLClh)4#d-eR@TGzty=KGGVKHlu* z49A-)p&;Vrz#j6w&HmnY`>4&&7dYw!=dBugYkuZwp6{?^kN)R7=sn%gy0hH+tApC|C1eXE}*5bp@L z^=HOGh(HGnT-g0D>4LVsBV5pqkAv`^=R-g&AaTV3gdOH_8O2*9{s+aSSh$G)1Bxyr zvQT^x3*i*+zXjsnHc7mWVpc2!E~H}~`$%*|(LWYKzJ{Y%O5%<^2p3*>2%;~F5hV7Y zxDf+^Bzr?ac#_CLu`34ZVS#zne@1~MDCWjMFw+Fg;}D5%CruRg+o}~mnaU9=z}6D9QLAR zC~`?SqHqo8(|(9)$5GnbmXP*dPw4H}Q3R0q7RA1v&`MD#WF!`$SlScTmtO-woY*9Z zw^5Af3A60|*FhAL@Ic|&6WaA8iewUxEkM+VK|K<@K!lMvgyK*b^!7~5!>bNCI(wgCr)S7#|8XPlyGvl|&?ppitN|yijD4us~seHSdR|iYIa23`9i; zw5~4-I})FvC=P-3-Vw#6Pb4u7#iS5eSq)KqL832;@DN!0E)N7Ti-Z#j(-5fnPktc! zlelgQqB0ovk0Q*&g~TotCBZOC=ApPzEQxt2(t@D}-^EhxA~6_6Ot3J{@!JnyiT6+>20<&W zN3onl0E+gQ$8;3$kdULe6$s;FG>YydDvUvt@uGufe?{@MP!gY@$PR>h1fn=hA_c|Z zKp2Dmz93eTh(h6prK%nPVk`+u6n6t;bQ4Q3=HW-;f)R*40nk?KF^`7zlGuh~NdO$5 ze~jWdiRmbY1;D!ePZaA&C{cJ|sfM8VfP^!ONB%HMB2a{oxWRxpz>6+|=!}9P@imHE ze|RC&CwTmMdYvS)QH=73dR*@hVgrdcQF!}9>;8-)g+vz=&;0nb-(cD}O8dkR(w^{x zb*Tu24T-}j3jLrw^H5Z+mBcC($wGOiVA`FOHW|}K`@yU>1Vt8!o+vE+U{(u6kwn52 z#d%-I00^u;`m zk;p?avQRRf51UhqrlejgBjtdzv(C_eCl@llOp8;MycLcCynJjSyQ(?|?J!Fa)_U5|P6 zA<-Vi>FzM1K1Sg{qUI%t4c%d18ja%03Q6onk%D<7px8lTA&SWEeA;f9Hk;DEgK2HL z!}u^kF_?rGimGnVt}neoxRH4F0>t)iP=l`$K-|rj#8DJ8y1{W>9*RBrTDRuqva&|m zO^klnZ6rqXRBUYS`h4MLJ@F2Fpu?QTfmqW0cv%~py}xGb<~HAtcj7ri7vMhf6svNF z5idX*ZPXd>wntxmxa*JCpE5!K#|MoAILyQ+$EU^{$o_Zn6J}iegc(#!*8}_OpE2~n z{*u>(NLJ1LQBkJx2CaPGi7A(#DdeXsV0Ga$h5}ZDg#64j5xY@adpFLnpU(W)`YFny zwmo55`(gqctmhsNu>-vg#VeTcpS*1T{S2!g>FYo4{)Z=;?pxTT`!Ig)da=&7^ke_!9~T6+BjwXE!_3A56~*_OOdo05vo35ozG#}x@)&96zlV%)!&#*v#bx4qRK)px!}@0D_bfdPUeUS%{Nyn- zbWs;g7?~!%rQ3SF@h!O}ZH_0K{+OY7vW{IE-47hKZJqx3jtwPkzTfTHBZk64i#rSB z4CC26*6EIC+o6BFbufI;>hYHT2*#U}P!20`72LG8`S+)km$W&)`o%+r;xvohwBq@q zJl5*DpQS`^JYN)ZpJ{D8pXwn)@qA8haMZpm3XZXcEv8?~58{9*rr$U8|b!7bOJw|Hzn#mo62}69p$zQAV zzTYIbw9W4q8FCNiiMy`CblvFwpH;f|*A1n5=4KG! zG|O+UtkG=|c6dKe*OfYd-&B;g@V*eEI;OSn3(306P&l{aD`G(NFVgN@w4$Z^c?z!S zERP{Kz6=%fXUiHrXoQj8f4!pF+pkO8{C=)&cNlsvRdjo?4{aR9K0KVSdwspvLjP^P zt?9ohOtXhi;(L3e-pz0Be!$gFOZC5RC;m3m+S^MG*1>Va&~|)1EyVfgN}i7S$aIUY z0$8L~wC)C*0d)-BU~|z$a{#58k0#{losV3$wE6hyms+UzC>PkP9Wfej!^hG*P*@A| zfVT^*!VfXREQQ2G6wjPx6p?WXMI?!E6i1x-w7(cZS{q8Mz_f+VP=i`q5LH=pzVJ4P zWM?=_^#+z_JBiOxggL{xJYN(uNX$ZE>7sKC@iraZ(^yENDM`B-Vw%!KMGe8 zT~TaxgtLYU6t`z8F{ z8OX$WO$dABW;Z(jJ6o#N8@KTMuLHE)aE!NeAmN5$g9Ef&D2gi|N#f6&c>dP`$0dp# zB=(_*bl}s<8^!-o+7+1A#sSVp-^7@f?^nn$tbSbK^|U>;{QlQqS$E%t!sYBnG3{X9KI-UKBDColz{cfmLBWiWAc%aqlXK5jOBEc{++h5PJy9&N5Y~zAkoGjCwZ^ogEa3QKAb$G>5*MpLcw0a}2ck$Ju^q)T zbJ*|Np@<|g6U7m87=2GL+Q6Jde-s7gFv8EEIGZksb|}V~<8^ctTS(lx2qM57R^hcC zATmgNgF=S&7>#+vkywD@gc&D{HT$*+2pbYZP!yU$9^a#=N|S^;iexi*#mza4IoM9( z;U6Hv%wWd(62%M>2T&MeJ@QZ}N#vpU%@kJpi71>%j6t!<6#BefR}j}el!PyeR8ttc z&X~te5)BtXM4Q4Wd5QNeWRdse#rUh#mBd68TTNhnU5$C% zPL)JBicAxjcjlwmO~MRCya~)Z6HzQ6arQh2I}<+bH_zpib_AvU9Mj$~hIyw0e!C}$ zStxcH!%>oYiJ>SK8NsOaMRANoR}@2yV1Knju_i_PjKWz)R^x6YUb$Z+ zUAf=>QA^iv{I<7r{XSfC{XTwKKQ8d(1$PpGD+qTAfr|^%9KGCt7wNS z*`hr$5C_Xm>2W%9W;S!dZS_`t14L04^&Vd!cATVW#tC;{oE=}N7eb+2nii^ZBF%}F z(86O4pcgm31}$7d!VHC<0n8|KP^6JKdj>><99Eo>C}K!_isHB&#&2&F)+91ftdqk` z-5JFn$&yGw@qrxnb~PT!Y)jVaKucEEgviAX^pKugyl;BT&y%nAt&EYn(9uf?{QP;xenEJ91gS-QtCa>~h8YkjD*bWzIY9smghW++s(^j*1-_ z`_AZ5BM%;L^k2-I%6WBe%6U=WRkAaVGUuGiMww$&#{NS&zdYj=bw#a0?fB(1ZqpI9 zV*&T~oCAr^ieaH#)?@e$xh(K#ZJVsL4fviu= zIirmDGd(@<=)n1>0E|F$zcXB76=eo&&)DQfx@B0X_s1#97~AY})%}Qbsy>0Ixg@>V z;To8jQ`Il$z(B9_(s=H}rgTYQsdK!d%rqhUXoht{_`*yBB8UCXRb-n=rm4Z%saz*mz03Yt zvGSnWF;~S8&ZAR>oyR5ng36)RVTZgXu|ch7KhE$UwMAdaSv7$FvXKHQ)(|H9LWTjq z`7M5Pw6J-h*5)Dn=1#)qRISZP{AQW3dAQc*xB1PNGx*JMTAP*p<^#fJFRjh7{N~NV zW(Un?Q?{}UTR8)MG{l_bMnm!pM#guo$yL~Y{{Q=TWaIw*ZFE9jce3kt(g({n~RW`0QW-I+KzFqQoo+Bi3$ZXnd`TXWd!seH%=92X@>#|&{z0z82FPv}wqxMo{f62i9y_{>ajqJ|KmMHVGFyFMH4}GOFiStd% zZQT@pybU}ijyL}_e!QitG~?}Z)&K2yYk7TcCvQ65Ze|GkZ`FUHJzFkM zuB>T$4$Ejd2hSDe;6talHtmxl&cSu5{2ct_Da{=0ox;zb7gL4#Glrc%BiZ>goLydr zKId22YT;we3;v_?Oa5b<@DV61#C5`lO08D&^KRY|Zr(kVuIaGUi*o7w!hd1@ZMnT_ zWKHMaZt24Q`A2j8m)v5RqJ=Vr{zv_nF-|H=0aupdw5ENxOX$0p3a;;#Op?~mDSY3> zR%rSzb&{}tP7(UfmhC&MS}V3AT-E%6Q3=0JcIUq(UPx;-rRg&ID!;j_u(>{^>1J1c zv$3$bI;FW)cJpDbx6gj4>Fs|rcP(&HRa<|CnGpryfG`O7!UQwTBJhE!$q4A6pe1ia z6nvnimNb*u?cwFXr!<#O{l3(+w7%-oUfz7AH%$ab9THShQG?7LrZbM2uS_YOyZ74X z%z4e&83noiell}roxS&3|Nq)+t-a5gGaoler{~PSM06NIbRa^sKMzq^c;-0qd=uk2 zex4|{Jd5m@eHiM$XILz|&IK&z9A>bLe1_mNS6qvH1~5#A=8mV~q)T&L!SMDz48xJ< z7#MaoVyAB#fB#wH@57!0e;?J@7XCg(=m~JOBGG4V+vw9>qR;0~gFe?A+C-n_lKQdt)8ZQBD^i0TtAYGKjg8B}MG%)y z)i81S!c>U0nj#WwlTfVH*>xx`_aSBDCi3z)sUFSbC52Rv4df-CRFCJ#%X286Lo8nn zBmaZ+zhQ>BFnJ5abBK7w3|FDvrxJ(yv9p*^|Ism}VriS?5jA#&TQ% z>$j!Tz;Ac$XZ&_R0XU9v8gZO(`V%acfgf)@5HX8Dq<+8L@QOYzxyAu zo_Tr(iT_7hnvW!OmddmB%<1WF)-zM~VNP~TW;szzCHuYm7*5`u44hmpyyJRi4D@0k z=N>E+$AttCXAto=iFg=@2NCf*g|5QJ(JwI9Vbd9|o9kP0JtGHC(Rya-G#Bfcf9%C} z%*|)9{I&qFtk}z7nVwJZDR8}>DTC&Zl9M(TxPqbXUl@jc+IO~@QTg?BmX|p^?WFR=Dy^lX%odj6@vIe zCWuofx&o?v6YPxUF+jcf)jjSt-Q9dJ6!O=4DW;brBhZ34&kbmw><0cbS^%K35Fd8W3+M;<#K_prvobpnWhA-^OD>O-j&0Pj70l zUP-*|Sgfg-DArp|ZYG!tJx|JD_5LXb^q$7*oj}GsmLpav7aB$q@h*ut4a6EEUMCT! zfcR`Wh?hvjNg%cm@rx4iC=h>0#03)Z2oRSO@t7P}X!ZUK?i0yn(VA@`XzfkFw>ViA zYbIfkk*`(w%|asUrwJIv9{MM{{A|pIvVrrN zl?>Y!Q~Tko?LnJX+}l*2t19F!Jgy#>l6M9?xfq)w~Q1#}aX#OEs;Z zVm0HPYM$Lk)ch|Uqh@cXnsy|z&SgKRoS$FCpJ(c@`hR4JdD>5SS_GO@KgF7GA`?tl z%$l(NDbTSdQ*6Sk&~PykZ<2`TgLoDZua=0P1MwIlrX}K8Anr%Rvol@cQ}YSNr&kt> zPj?2N8S&WOj#(nQ#-LOBL9Y!@vbJ_1wm!_-y7NgGucOQHvSGZfne2Fn_LA|gkHF)t z$#gRhPJfBVEO3swJp;zHe#wkEnvD5jh8Tj2(6A2?FO!IW1#t%=en}#}1mg4KK|D3X zl|hR>#s;0qU=7kT21S8E2Q%C_%r@wG>3G&4e`3&f)}R;2n2vO@N*kbI77<$|;&mX7 zBjT?m;&(tCM#MWL;x|FuJPyR~r@OLurFBr;cT!Z&D| zW=F;^*3_XhdFIy>^GCx#%f>n5S~{4oXU(5aREU;n_yjb}CgL!Ocrb{E5V4m;90%fX zBDSZA#gBpbk5rOJ8F3ggU%OGc7`lr^)dk%8xi@;E8JA|iq^T9~QEV0Yuufl|7ug=) zt{Q;vQw_!UsYdA1bs4%$T~;iD=o>w%b2`Px4KetU{WZ(NVU)sn17SN0cUGYp*Njlu z);|v&ZB*jt8Kj|i$vfG5bHxGi`Ag?X*KpmAs9lu}4xWv_IceBIRpS`yJ3%sKc?b-Nsa?JK;CMs9aMd#Hp1= zAIF|#M-|1y{F2u2IKo{&1%~6C+*NsC7Xd*&AMtO?%PzGQqgU7HSWGD zrC$xd`*7FYYl<5=6Vah@8tPp`TmGOOzQx(GM~I%Oraf*|ZSU;Mx404gF+MP~+2BuY zOTf>32>~1eP@lf>)VBS!8XfA~K1QM!r=N<5tD0RDUcYMONef8R$Ph>v@q z^Wv4dIGxfMoJ?1HCDT=2I(iTK-|S!fk-fdnvB$1TG#$am#$Gzccz=QM{>b=!wB?Fz z%|OQZ{3tNKZX9l{Dd8Xp z4zA-HLn`Ry_>FD-;UuT$(x83!Up_ zd{Kz>0_3>2uA`n+)rKs5mI|GvGNz!jytuQ{^cC6@*Ev2O#Am9}nQCKK#D@m)fuEeD z(ZLgxnggklK!?L&?}0v3+r!Xbl^s84&CBkWWNO58nK50B_#t7&{<@)m7(x+U6gLSF zaS=dVID(hbf!AKPorzWOVgXS2RxhA%{Jwkj-z|PTD*cKJQK#SiAnH_3e}1?>Kj-}O z6S$xsI^9BBuG+$5vHn`BL=)b*3#gTL=sjLY2Hv@c8WNz2WifRatn1i0}w8_Ga-25$O8eSkN_uww#Bb=%5{8 zRLK-)gbTfT2YMlFI(45+@Rz^t?h`lh->4kv|vwMKqc4WXn+VZPy z=_7cU0IK8>C$p7iKC}Gqk2?9SRq*(&@ zMLZ3=B;aZ3y%IH9&k=R*VLXm6_(S4$dHx_N3!`{tAves;(J+iJt_&B#Fy6(}&@g4c z3Wk{>#~yDykhgOnZ^1yz$Uxq-<)*DO4AhY-S?+YaZogv3GpCpi5Xa;EZ74sUU{6Kk zBG*w+Wj&P=fAfVsL+#;BW>KCRQBGd1AT?T}C7 z2gbJ3!GmL)Q5rpc8~Jn;j!JUkP)E+c@q=M|i5|p=*}0Yk>~y3p*K7;=Vs_BXS?OeF z$uB~75*7Ex&xl`Io1aq`;UykqG>BqAeF~ z-}I4`RclC?Ra{`ohy#c$mjwhS##I5a-!3d52pKX8s^0v9iYp-2C4j#ExTboj57sh* zDjDm=`V&><-k)6M7p(T3^2_es()_}h;5NSyA99sn=Is`7O?<~yetAGneu*$XhWQOc zC`ITVH@lpGFN_4hB52F^wi~^jIPK=+bWafNt!zn%UZ}kP5T)xlh#I1pMc@i8ECTcQ z<8+k@j-S%6*5!IFf!e0VC`s0T$tvFZ55>I|&bYVI>JtAE{E!#J4|!42kVlb_mty7N ze_a^z&WS?a5q`+qEev@Zr6F$v33=zwF(Ge}AmqI)2zgZLYvk-N&&dgUE6#Zm_L}ZG z?72xxg(JAI_hTw~+DT8uIhXV#@aY-Er{^IlJwb$?hO<0+nuYY(Mf4o!(_L9Ek`o?L6v|N)>LxQ)4F`%sX^Yi1 z;sMDf&GkT-pFf)KVSZ-$^5&;c@pRPRsGskmKOfwmkF!4Y5oD~J!@v$7+H&1CzbDon zq4fcYoz^qFyvpo1dz4<+pOKYb!$s*eoJ+6a0%cQ)vf;GltnEOAWPP4}hCeT4tk1FD zcUqr&pOLQ5i4F4B=VW%cTAy$DiRa@mBV4V|7yTsiaWWfPe|`S*_a9oJ*V$GP>`rS5o`AXtxm{-a=+8B1jh6odx~at;(E7|4$d6hvEo zu`TM(?KkB8(4zYd>xXd5*of|u{f2Q{T4lfC_suQ2-|*4q`@Y{WFOJ)9uyu8{-%xkD zW%nBtaU4@7a`FB89Zoff$x`p=}Vg_^j4ePr|_8T^Q*OL1UlfP^2 z_3W)va@Vs*PsynoHk@kH{f6ZOx&4L?;Y}2QkDIq)en!lEuYOVY=@RXeVMV)Hx z{N)DcM+R{D>;FQTS-@N0eA{yCn{QivebeO8`ldjHt#*o<>04bTS~mJH&P@nB>lxXqcYDVMx92da(BV!S0wp zZ$8T9&!S*S{`~x8OXkm_ldYXUH7Dif&!!V{0>|ek+BARWJ;DW!uR39ND1QEY@I=ez z&lAU6D}TOnTu%PXIxahZdUXGZ6KBc|&c8hjI8*o*l!8EJ`SO4h=fe#xwm)0i(31PJ zgBoP-&$iT(rM4fpWEm7742LSJq_00tGTmO;?P*9<;V7j--bwD#QPGxLcozuA*O|vW z?aa*<5D9rc{kSb414WiVIKBoRlO12>FZ9>;5{!G5;r($Qyn%ym#FUId~?R@b| zrQCdBu9TB6)>O7>zKHF^<%?AvSyHBa-D2gx_UqOz|F_h8QvR3K%VA}5{rxHb-LSH@ zH^+*~7tfhss-)1FU6LzZ(&Njg=QcmPT$W~+CX!ul@8Z$3M@Y{W5j|`9^q7S7yey?> z0RjB&U2+on3%g_|@(`+|gUm!8%t0OOCOZv?0;q#&%LUt;9fa8lZu#tH-{omMWbXH5 zYm)i!3Ww2 zXB{cwG_@^S!adcKD|R+%nERMkar=rZT>8UEzCR4)`$He8KXfAg@Wu+BKim}h!+DWE zH1PdlkI)~sNc~|WVK`<5;}5U%{edd`8$KjH5yZ53m9$Wh7KTjDC&mhWA{%MmxEz0V zX%9Z}uP^DJyz5K)Zd_tx5AKpar4|R`S;!@FzZAFxbG`LmlI&+x)U;%M zI-;i4?{BlnzQ4^P>;5)No7SgqcjGFdn@VP1(yoMk$+bH~*ZLQV{oyaRC*S9PRR^*D zzfRWI?{BgEkhj0J^F#AKPx3?EJ~_0n+t-=}aDP7S5hB_H@NI%!oV43DWe)g>4$Y`N zO5R;0_$N9dY8>zr9ewbZE2Ht(EaUKZF5}r>>%c$Np{FnODLY~qLZ4R}`rtnybhFan z^Dh{W-rL7)^+Nf;uCX3f<1YzT!Dq>)di-j`zf_Wnz*}AohoP8K@_j}_WB~apV2mB>)?y84R$7A^T5qCo^7_feiIMT~+m-b2uZ!^rW&4oGqNzp)SOsgM8n-Zv zx6W^mj$TDgtpBe9&*`hhFMeIL_;VkHqO8jJko5-@oQ~H0+U8)8+tG_P+Xr_#8+Gc1 zI*pHUyk2X42_@F}QipMbwF>XUn@;NKIE5inZ>q6cKutqvifR82+#uO>NN-Z5nEY1Y zUq^O)?asv@*-G*zlsL$r%55mzOr2b9~{#s`I>xZok zL|bo>K1hqnj1s?UKncBRuf9AxBBeY&wEW2ceYw7UW)=_>pKQ8hYDN^59Whcvv=L~W z*Suq^Y?n~uijfZbhH`$A-lVBQ9)^Fs#K)2t84ZI4JG69=LSZ^tjy}P&2;awrP&1uC zkXhfo<#2GKReaGhCEJR2D2;Kb(*Z~pdj!jjN`=CCkar9FuqKHNZSZFW4y{iR{`RUt zLpxN)cxT5C^Tsqhgj)JCN_VKpRw53f?ZNE14y~mVtA)K?Y!jB6%ow~E5qR;s{K@&| zI?kVgykyf2Q={H=8BG$S#@Yi+vY3wQO^0|+fRVQ?L6e^0Jt9MIxi8&_OIWl%7hg)|YFNu?k3Az5e%lbQpsVk;;?I zI2K^T0`&Coqg99nV>^fTj{t>&iw1T23cn8cnc0r0MkJ`i$2aGy6}I#3Abj3J@6FCv z)SvYnQbkXuK_M(oA z7h_1=*{HPt&crNh5ozmfZAA0I9%dbnj?vUzNIq7_RN1|)3(&zvB{aotPyiaPgaEXh z^vCw~Y&-m^5jW~&EhGot)*ST4eu3BCIvRaq9m#cCS111dHsd5W@q|KtVzX9h{!QKW z#>R16_md?mazs_CYXxrF1Z+SXE>alc-ARyZD-mfjI>w}|(v-lsao2mh!@I5ab~pRy zNUA9sRTdKYKp+KNpeULKHQEmaf+8OZRB>BW65C4hA3%12HfoB-ZSsM(i&hPSppKic z@6F84&dkmpRrFH@n|u5Fz1f|8GxOe?H?w!tGJWX6`#Z9qq@A}lc)c~azIE`^2k?0p z$Cn0k!V+oTOWO; zb?N@`*~i{U9~gXkbndaM@dpP}dv;!(d+bWQr*+}l!|#3@+W6v|OqUnVjn{r1KYbAT z?ru2VL%Z?=8%&Qc+}`}^PPF5okG;=-EBip}iwEC4%f{m`Z{)hZeilvs?R3}kZ)T&L z*LE`dzms=E)-EvS{sqJ~EpxF_(Qor_U~odU*XQp{UcQB1W{f)7`8!(&-x>92UbI@7qab@0Y0 z{X&NH@zw=*{3x*NZ&8*C%?)m}F3pV}qWSpsP5Qf9bK?)=HSxn(H>LB!RI4)wh-a7a$CItTr;=pOV z-ZcIU*vy^%FK*!H7T)xGd)eKNZyo%Py|ibJg68+Ew{~v+)sNBH{NDI296jg%8ddh} zhU~jr>mPZS=FpFQ7Y^^<2T=hk0Lm$FlkA*Rfo7YFq?_+V&{+Ff)R~uW?gI6cd-w9IUPoDqJ6C}u{2X7AU zG;Xe+*fF#B#{QQk&wtMg$n2$E<1>3-fh+Ht9^8h;*mG%dd^9`Ny0GtYxZc)-cRsnb z|Jaq?J8J2}$DZ4LPc8kqV-X%cJo5GT{u{!9v6b=GH+Ix^6jAB@(}R&`yKb*!}){Mh37SZgpnJ~qDl@!eT{ zFcLzU3pe&$ANdvdfPMVZ$YuE`%(J$6#Y9z|2FC0hv?rH{d=E;e}ew) z-it$b1FoC@SYGk_gIjMMKg~jgcV3vMe&E@+Z@s^@^_qY;fBJ`8TQAHXW!#?%4&28( zt-+4L0Xoi5A9L&bKJxvot+~NWG&tRD4d$QQoPTd?>&y7nBhPMNDO#d&^ZZfJ!2c{AI|lstJU>3i`6+&Uh#x<}`5*J+clq%aKfcV5zt4~PzqhWi z^MB{Z+ErfeiYoUpjz7bXzj#&U|Cyh^#E)O*$KT|~K0p4DAOC_M@6+n@Pv8Gq8;`es zz>fdde<$XwGcyZM&pvh1ny~8nxiw*wYiQ?9?fkHEUbhZu=M&0#L*pAIzOJ3C_it+D zn_Bs%R=!y(-_*_zYv)Jkd1LxhOI9!QQ!lZ5kxx)90#Do7@-m5wbF!LdF|nMm7sVt= zyfCmnwX`Vfb8>##YWpN`t)3V3>{V;ocG56b_`EoA;j&NUS2gmJi$*?3NZhwmuTLzO zL}^#Ozf0O##|pDF%2E{vQOoh+L9K*Dc5J6a;bVKnVvn4#hfuG(9NRs@c#CPvio(Q8 zK@Ev4*KqDn%d)$*Mv?*e7-$6h(Z}BSEUv zgElLBDlc%om^i6Yp8y`m>W}~wBE(!auJD_!?XBX;ugQ2Ec0h$z+Y4;C>@&?nhm>;cZd}1(`&ae)mUN!u#P0dfUo0nU zlb#)61*Kk7lxI4$)3E0`(2FwEpA|+-X(hR~?fYR`#>r~rdybb{eG{ zB`FCU&qw(%He4s?`?jAENlKSXW2P@QpkyBIoRISP$S)j%9&FSUTpS>mX#F`K&K*1L z;`4fTV)>z4;`veZyEL|g1bcwBOo-dIowE(ghmb76s@g#Z+JfGuTE409T#x*5eS3|> zL--UegYVm-*Hy^%J+gu-#lBBgh1|*Mg{NkxnMPo&eWhNH#B5xv^4KGw35hEPLzu-5k*<5{6v)}xDsKzkr#0U3Jupo` zhB4k)#v{x1n384r&=2F>!l06gTUcR5E?N^0-m|OG%>PNkp8? zw_#8bM;mvHUke=hJXc+P8Vp0v!*&j$Fr|e|a@3uq*3^lG$)oVEQVs(O+8hcn9Np{RF`X!nO`4gI$5gA)i?+()~VtIJi#!IY2I_+yrFuV;6NCZGAf zWHkkDjHef-xMi-^qZDr&@N#>>gL?dFoGsU1c)1`%ZP-qiHbS+W zJp4_3vT$N5$2%m1xIA9t^=KA&sz*@lpTy?_JjvR{P|0~1@sStz#krWD9agVX%-fcu zBTW-t%;y%Sq)8#OD+b)yFR^}J&?(M&7cFKc>NqJyp8^L_Fgn~Di?D4NUsw3P?R&1B zQnkU+R_lpVGu})f*9m%PwJBdr{~GN+T|GJ{Z*u?=^Ag&``cvKZG->O5O{=@VTUt z$HLf2Bp$;C_1v<1ZI5|?9B28gB4Sl>u7@hTUV)eG9ChAB2B;X{yy00v(aVc+Y?dp| zMJ5WZO&$X&JgYz(n#3b<8K+sDa{UCacd%hR&gmQV+K}ropK9Qx>`rYP-fBmwGmMWr z20k}`6}afK8c%}0WxK8shkLfg$TIP9m?WV1D&7s#hK?_LJ{nFt0FMB(kH}-KU8|5& z^RY6Ip_&0_dDb%C^Wr$<{lH2?i@4@?Vsa3+#UvtjTIMU_nw$?X+ZnE4msz&bl~CuI zpDxl}6}&J*I*)-CP5)N$ohrONamcdknP=wtxI9|M*|fU?-&P;Vig)guUoMXZRgqV- zm<3+SYuC5o8{6tR^(c#@==%&9y#ZDKAo(xD@so?4!~-7nP^M%OrKW+wrB;I?6B3E-4d; zM8XXQxKXR%G4$cXPVh>D@Ptx+GYsFDoH>uPIICyf3q0tvsbeofFC%a*4Qd?>{r}|C6l+Oj5DOrz;?8nlG0-c}AY9^*xt_d@-4=bWpja zMa-KQYb*GV<4<&Cr4~3|n+4mn?gIbJ=`&Vp!-Z2--Ub^epPTaE6wgg%eh%ZF=6AWl z6*w9;mVKt;Do#F^@ko+)D~&hj(KWs(TjKq&1GBy`((xjUQE`~QfFp5I2{+{H5ijN6 zPljUzyO^ebmXFty%=r3+2c10VjGdSp!zE8S4i)A4p`Z0gzD_eX@yNuO9k^pzGzK&I zu^>#xk}N_iOk7c}w|3TM*I9xB_38pzJ*(CSP6ua$a3v5AXOb_HbsCTQ&X74 zZpLXOH&I=V?J9t-b4cU2Sw|3Za-=8Ybe5)W=gE1p%JQ$g4g#mWOt58HcD?%2QAt#x0L3vQ)Bg#p_0Jqf{LsAlVR%)1utf$ zRXF#1X|XXSmouzeFkD`rkmak_Ef`9)k3|lWyc)q+&7tG_NSTNV*V5ZWc zdA?P1eM0bHp>sCTa7?o~A+@!s)$zkNcx*55QV*u}=dinL@@&}PYLhR;*0tJQ$kk19 z#(8JXhbz>PBnF&yb+vwRVI9==r=TUOFwq3bA|6aw@ z-JU~u-yU8*?hNOXhJojK{3={1SmQCzEm`w2AM~qmu`ZzF`nrJ5=Xrk_AC~tw$Q2W2 zo!56UYCJb6B^(AS-F&U%^16VjKIl&-j+AlHVKqDg@0Z2xk{=qDzgPH<8ArcWg>PZc~wOiN2kM&6XCmw4t*%J>S&r-vM;(SmiBtl>)^S$V$8 z^WdU;>2dh#!~|Vi6&)Aw6ALr*Gt-}8K?7(!?qQ-Lq}7r61mBKOk_n7&os!cY`BE!d z+9cyxEJ{G2pXP^TzxK;xvH7Tk3Nd&a*fZqF0*XDsZ|j$gzqI zR2(0+4v4(c?mkR5rM&3u$rB4KEK}_X#n}cu+|YxeEyovU=G4p*tFCvh*or9R^c{ax z+f+p*IS~RrF+Vw}^XM%2Q!2RFQB~+r<)t^0)bYo7G2$IBNtC=K=A^a!tL^sbEO|Q~ zw9_Rq8lvrT+nlF)FX=o8EtW~-=fn1mA%8dfqzXB8pA_PiaY)yV?@G?UOSuH%Ykav+ zia(!RToSni(%~Hl@cEgiCzm8kO^qYR>BN<9eXdFJIH7__x|ks6xE8o$pet{O6>|E* zT#mEt_(cb#YY|J8?N7&dd9_NEEAQi0dCU{>+=y6jLfrQPoUcn(rP%} z=Fd}yhYP%-I~2TbY`5c~<$Rk?$+nS;Xn15t>Oy8Nue~N9<9x4v$b3hc=MjsHyM#pQ zoGZsGUKddK!aJ!r%Zq0L<%uivr2#16BIl{$qOWOqKl9Jp0e>up>u>Mm@|D~8b-t8H zV*GNOYqhlVo%1ALA>-$s?-xOogrh2z2IP3y(H7b`o;zzX{S(6r>p3{%Kl5s63vSC03qI{~$HP6D2^X_$SGVhx%K{3IvleEo1r9C>+ql@v z#Bu#K1%b14e=l@Z9Kt>{6Ldp}g5xWu)Y-v&&5l!!<6K5r<}BfA>nOaT-7s#Y&Xnhv zbbnCh>ncBVPfH<(_NBBAc=Am7wFDLK*$LYh7<;ZZ5V%~`_J1QUbzGmVB{8|HCX`oF`jYyQgz+sZF-mb68rCr+abQPjj%_m*Bj<4%g zN}n?;H-yKusB(RH0_Y8xO;U#^=ap^dxgl5hRs0eU(rbrFQpRHf)ur>G0>{v&RL|0O zbsg8Yt808I%{+up8r$<$7P)pxhTf;2Iwf9812;|e1TTVNyU2p-yc#Q%d3=){-)v{$ zK$$N>v

*kigr>u*(fy#j9(cvZTwl2`4NwoMpMJ>~0MxLn_j?2HY-Fp_ce%ke|_ zx{+s5bv~Jw(v+%Pbv0EvK60w?32VZL*DK`fMHp-38x?r7z^M~(>?qAAA~~*YCpO~s zGA`${pPG4^ev^Z=$&1FtPtDI2={~N`9FGa__52)So6`4AJauNF*r!m1*DLVGS6aL4|?+@9du|qSt;L{Lrj3!NXY-D`<7DnOkNO(4k zzhfwWM0fz$Eu ztDQd{KYsdf|NZ0B)%X8tV_6t~b%Ea$Y~ohl z8~7>{{`vO%uzB00gkCkt8DQh7AhWp#{y-5pEG8OL;YE6THG zddbU;Tgk&Jt84Haks$HOyh%10;D3Ez<4HS~CgF1&hqLkvBL5r@Q0&vf^X**SDx80t z;bAwA$rL_$3}Mu%yTOv*q&;c{$GEg#1>dX>(<1k6{rV$piaUhl+Z<@W`wROu9*bXZ zHs`nX<`5f$F*QQ>@MZE zyUny{j@3v!F3O@mgtU9ZW3Qq3xMAhM1`N198GhQ!`#%Z}j^Q{PrT5zK>2U4P=7XTL z7N17a&5vI#oTn6NVJG$jd;1!SDm2#q4DgUzj@9Fd+^a`7es#lmMv{StX zpyJUJ(jF%z{G|SSGu&0aX!l*7A3&ZPE(NFG=~czk$oaqLb)3&|YGC=I=RUd*PH!;b zW&GuJx4#l;N7B>u4E~wY-f^n0JHSQm{PsK~|1qz(dX)6{fu5k>@>N^~7Y(Q4@tl6l zWb%0wZuk&=rwl(GejQIQVSV`C_uGn3O&SgD;fE+^T53j{WwVPupW}|;jUAcr^ex25 z7dCJIg)3&6t_Q{oeh4qDylG_y-onlKeflt)`q0-@(&y)G7~xZ8a>DS<`1^W~%lKx$ z1o*tN-frV6w85)E!?rmZxe^d$@L-0t0ZWZsoM?!ulAp%8VW;5PVv=}zUqrKpKS$S$ zw0r(SH&DHiqT>32Gr`A;8d89Sj@K_c^S?H4n`fCOZn){tI!%7PWZHqpA3N) zhUY!RG=35sUJIoETz;Oq*9rW|#r}n zpHJuKWt?*`v~z#BeOv$Y7<=zWdVpqsm}H6I{=oC@4_T1zW zuWohR8MtrptjX1F($?hN4DT!dY4_e%J>mDK_4Z3X9{!Me`gWn?eZ(K85k!+$@FE|k z`flP#cePF0DEO%3y&>Nl^1+Y~hWud254yZF^mm5-&d}c(`a45^XXx(?{hgt|H}v<0 z{@&2v8~S@ge{bmT4gI~Le`o058TxmI{+*$JXXxJ<`gex@UDf|7O)xif^CjWean*4X z$9t0gh@mSveRn=?p6CJI{o(GkPgSf=$@X0=1iqE&k*9mX_ao6i4wfI@NI)II#rT=( zU*!!(C{@8n9S??lZRe+ageA3+f41;Z$G3+3){yTF`QDHZhI}yO2Sa`^C*KI(Wd z@MnsYTb+h97P9on)4kw(!3V(y!4HBTIPXRMUexbJ{a)1XMg3mX z??wF{>c8IY!|{*o%bd~^e_ib9{Q>^J1v9OrrwKVhlRc7d)(3Pb=~!Uc#q`JH_K#dT z%-hE-oYPqt)9=8uZ;0aX>c)kT&ni_s)%$xgy2GgB=P(L9_pjw}U0MOsiLT?w`jrUm z4_}Wj1exru6!G+w{NK4p}^g8dT?J1k&IzeVT!3bt5E8tKyRm4`It zxjwgHh-Ue>WYL0RX{5~07l+9DqT+kJAP(&Z#w3s}{uMUeD4v>Vw*{pJii>6f93O6Z z>`(WneS?>N0_9OLia*hN*a;rSoJLKl0u=8@o-Xy$#$mlw;kToX_Xb}2>2g@XVt?QdJ*6S+L(Iele^?KHYxwW4V&2Awzv^Xr})6?p<7@5m3>iD_Z1x@|mrsV`U{-`~04r4oi)AAXf%U=%A5?jFzqXVc z#Qb{>GCk6?6TB0=7rYmIC-^S&?4i*rQ1DU5&%wgAact>~@|{t>Gs<^H`Q9ks8|8bW zd~cNB>Eqb4GwSV(db`2E_4#7i8G3e>p87npECcBNP+c%fa!_S|pe~ro><_CP>--3z z&da#F5B;94x9)04QFUMI>&M?ZP%`sN2)O&Liz9~iytiQtaEQ`apM{jE>zMV zKZGN=)Sl`t0_yn*;w6TuCF0<mBe< zyLU?6pZ0*W_p*em%xFF8d$r`^`(m8(eg#kZC%oTP{!zbvq~*hWl|@UZMWMuho}ldo zp;V3((ktctynZ6J9HU>Lz=eL1B(mQjYBSWwOwVy7V4Uw_verwSGDWR3(JR?CtLd2^ z;P)7TDSnSiq#BaF&`6^mQaHZ{g5SW|foMe}34@P5hD$tH9HJc*xgm>4{!@(AC#9%- z$qjza7-?oz5&8G@3Spxdy9MqS!a0Jcbh!<|1c^y|3EWbtzo4CGVWNm$r_BiB1hhp~B2ygsf$ zvtG=8-|}48_gSkia2<|g4(WXPc?dHgRr`}dMm^io7Ww@XiYu}|5URd0ohMoK{ezs# z*e|Fw)i-gt_NCwH`jrY?Z40OK{bko@+RfcKz!St_~sVpzC;B@HGElpMHLLypDxi z^WF7S-||S0!&~!SBY8m%T1n(c&!5&7|5?YoEwW|_$1YD9ii2hPM(Nfsat|}w<8|#X zq`GM^3fnktQyz;~CF1-3dq+z6d^%E*hF9~m8bk?;g(1g;_6PLq<5CPn;~`BYwlW zeamsOvx|6I?9@yj|N0V1mB-8|f_zyR*K`gstL22(n|yqV`A4JjY5Yr3wKs4V3S?{X zC9aMv9t`|x^&Csh_EPiMh$jUpY^|qLSqcx&Q)zu&{dldfs~@kiUts^9x?Fv(Xur!f zXwv(~Zu7S!iZerhpBLVv@}5b#eVF0L%Y2yOiNBTkUSeyo7{?2|o8kR!dEe&aBj47n z;?BVRZTUX)PJd35XO6E)#viQk_Z<^Qd0gU@G_@`VB8PK8lOHu~ap~P2I8RL?z`1=A z2^i~C`$W>*ZYHncF&Y5b4%@v|jUQ6LI(#?HtE~e|_2=kLN}C_`{5;H{;d8f9{YW3m zr985l8NX9d>Z5PE6|Cz`(5tR?FY?G*{J9ih@vQ#lZE!p-Pl<2sG9MaV*{(5oT`yX- zisyZ$=3|(e;X9OQ@ZW(od9E+{C~(IAtqbEN9@&)?X~ zcOM*r`wTM!FZX%g^FHTPegD3y-PNmmcXj{R)%#l4wbx#2;q`~}zGIfPSG7e~=x#o? z8zP+1Ya(`~8zNSXx&6<+Ov7-419)Gzq*AZVmz-(X5mca#FC) z?u>dn^_{Q4<gi}v+?v_)kkPGZx~y=|-gZw1+~Y?#ch zMH@`2%g5wZC8;()saD#3N!n(d2TH4Gn10(!Q6gJMGtJTVY@>HZ(fx0j8vHQ<5f^R# z+G!~qVVs3TJYpWs+El?z@=NmglelxKJk;oOi15&f4Px+0iloHi*V6MM)*8cV5wp-@ z@!sLtyknpJm$~85M+S z(XW4vO`kfQPcxylnhRC(KRP@cLvxZ{g>oj@MmPWm#LH<4Z3nby&+hd&J+rKu`y4Ql zh&RF^)az(D%6Qj950oXs$#xUJHlGO+wiN--=F5eiNSlix@2(_wgy?{m-0uLCpXutw zAGSw>4ZjfQc!&@Y4W*5gJQaMFO*L0zKgLCf+Cg1^|8sV!YiC(leUqBFHK(xavC7O3 zM>G@1GCcTGm|fpDLANVtj}d~pc*u$ zXqD-CZP2VFCf@L~*I%JS?7_KaCPs86GJE;{n-BaKN%+5f;J--1{pdJE`0{}~NGbe3 zv$YfuT^7*hvca89o=~Jt{|Q_kVWcrod@T}t`dn{;UxWioADd7j!>d*=o%| zt@NQlia~(9AotBB)b_32<&E&I&wsU(Dqeo&6Z#CkTC@P^J zeiw;ox;-8r?QxS*krC|i^=^roPcF7;)ri`eR5nFXsB5J2U}FJ4cUO#dJa zCCl<*gHRx{2TtCA1ke4yt$jtA|C^9Juo6LR$7AMzP9eAQh@hxCGSM~G&a1#q&Fjyo zv)9D_-_Y0lD3te)S!Jb`L|tFKxG!cYymz*eAZ-Y6MCW@t)`Mt$Gt8rSbQZ}lYL&9t zd)_3G)mWZ0>p5T|4KV4@A`mcUSoM}E;_JP*Rs8uF+O$mRe1HCA)uI=X=w(>Wx{YYy z;2Uj>_HGAN-Bo^Cy z>Q?HIQGyq%JC1scG3hstEp`I8XOLf1f)E^|W`grA{1%D2C+<7n!Y@I)xLh?cB1dl) z#RBNbd$vhdV|@N}8G4?@{a6-**Ki(5U&?oRZixYM+Fm2`+MhoUQo5E1-8*+RG@Rqf z*zhSZ`%MYSyr^z?Em zc<Gw2#-p>qd7iL2nvTX~4MjQ=@9SpBSbE&*uH;$c#(^@bhSjhGq2YY_eW( zGl_vkKSGG)UR;Rneo3wa#fu*Vroetl0Eqpn*+Z*46L)bvl^jlW`m$M1h<#lL9_Ab2 zEhz;iAMtv$JnMa=d%s?IoV7-q(ASvJUxf^h#Oz*}xD4WGG$V~9m|mHUD)9`7iKkR7 zBlYknMoC6_xqz|Ww%5}+t#D5+8{Qx5V||)om+$lazmc-ZeDPXc6nG$d3Yv57II}pf zRD%m&NCxkX9IM%0cYO=qM~2n43%p@U2-ZiwFKJn|%bMbpWx+hW+b|}%p%BhOgbjzy z-w=j{`z8q0t2~U7dK?0Dy_Ojs2-5EGz~P28gDtk$ zT)T*Hs=HXQ->qF8^=L4MNn<%}R^{LHD``XUn3m{49l6IBDVNGq*|1HD=kCwTS}f*Z zrES7n4}(JTFepBe0Wl?OPt~XLuBE8oR`$t(Wq+$Dh#WmSd31tvg0n`@fepT* z-vrO4x{n(t8xFRq-;vL zkSQv_@{+qGls6S(7j(3;E)poWRukmZO>S+STb;Dy5{6rKu<8moSvGtfW*xcO%}RvK zrV`a0U$ZEAgj}KeZ-Dy$z@kck4CMA>v!!?|mEgD8z<}uK<4py&E65fh$hY9xt4T@b z=T&wtXTk6&_)@SB+_M@2F_+UJIVN7VlSZt+ByA-w&)x`_ofKbtenqrQ3oK!tHTaG- zxK@;iYyxe-G5jiKdlI3mUzG1Jcz1#p+b>XJaNW28tt41z#Aw*t_1hY&LO(!I7qc#d zpRr&Uc3Ra@?DKo4>rvD6oH{*=HJnYFl*y(mniy*#9`g?XdvT*# zHN=$!QSpzi*ZvQ5Kj?aqDDCZB5}0W4<~%)+Ts+0|EjVp6PvF0v_&NL^ir@bt{QoL` z|AFxTE&KhC0{9qhcihT%=lB6)nurQo@fk#+J_q5hl&?eH1fP@tB{N-ttV`it`Utbz zFEc+WLHN^tP4Nb>C)Vy_y;g5c;CLYqC^hgCT0Z6k`a|Av^vT4&F<*tIU)kE}U`~&f z`~pwuqDjy=f02IDLiszcqvgN7^+wB$1L}1$K#NvWErNMWqS=GYhM=oue!}!!7ow`{ zWGXbGn>{^%rA>U5oM7A3;n-q5-B#UHnNkMQTd!nf!BW2bl|a4uguF+(DIl)K{*;b3 zsTkJ>_m~JIJ3bN-E()|b`v6$2%JGRR)l$Xkxusv8K)hJ}b(;vXU^p<#Hh;*O^GN-? z?BXV_$d>4*{0gHOkXE4i{R?!;CWtl+F|FC83Y`&5kQbMSU+(6-dC*0Ka;v@ zdRn1v!$`t)z^bQ4l7DsNbakg5+QPAWSCEzFQ3a_J`*=ROW0Ly$p~w8x`DF0%LaeE7_Fgv}1l8*0==qRfAWhGw|0Jv@;F?9|TqthQLbggx~7Y zK>8m7A%FG1WE9?LTQP?qi+=~ZYw-@>yAX5h>~#lLek;72J>*V>-@AL)A2@F|NjB=K zh$U)H#*c}*G-UW)X91An4OyqO&{5-tfve{X(ohw?(lroYAZ**;CRoQOA%R{TYl)7(Ld1^&3c#xa*HoLF|M(O>eU zVkpcI`aMr<6xu)B3P)bYA{=8s7hHP5iv;o7mAe8LbF0($(1}edIi9 zuuehK*s#ed;h=w#fcns_4b*s;nte{^%FxD{r7yd&O4j=LSzC)2yGI(@nX7~VvIwV> zT{DF(5w!&XmK?YT)rUeZCjSOzjrcLA@^V_fbGeWU%uLwN{Jfs$vCARO??cF(DwPaN zSsr(mr99~*ZexMowtDXl-z*7qYe;9DS&_GvmZjjCp^|BT{mtlll^cZf7ly33)aqjDejwt!{hqAB( zXa3JmB_M(_Q~o=*OclSBTs=l+F4If-^i2Ei)3@|@GociX6BJHjmb{%HcFkEpe=*dY{e zM3z|~oD2kKsPES$kHAxsoj%{6c|nLB#qx@Y!BL;I8yxvXv z*3F$^8sl78#p&%TB}W@lC$auSDLTs+5F@}vq2PuDQ|iYb<~9!N>bk5Y$m<0H2%p@7 zDBl2p0M#cQZdyb9Gxwj5Edw1nlCw|PWc_2hTFE$ZM$nU`%(hw746%2W!fzUGqy_^d zZbiI-TcTPjER4d)Lj5+5dJ+hMy>av9HDDX|haVFv1Kyh4c z;O3qy13E4b;(pl}e>Xd^CV6Y36m(;Mu%88#;#zfaJDtj7tg^P-UGSw-H}%FXMdC`E zlKd(>=7veP^x^b&6us^N_6U`8Fg9_C=FjwuG&en`YbT^$@; zQ5Nb-6PLVf33|$MfooT?X9-{2@~`KF9$0C;%7Z zuJ0rZ&4{SL!w4tX-xxH-H*xebDv4W$2%PB_Atq3HD-`3J?N&j1Oar~D=Vx28<_)cwKEN+o%3~h;LBg(sXABdO)r0|^>O9%VgAYl;!yZ>5ASs(Bxb&8()T+GvK4*;4W-Ng@SH*!3 zfoNk^egrwAO1rs$0} z>4xxa`#wN;vhZI0G3jE}(1i7qi90I(EU|^uwLVi)7m}N-K5{;b9~QAQqHAyIwxx5Y zNnhV2-=>>FjL=_wgVd|);Dx(Oxd!&(IrK%}pXdDX^*^js7C{bn>A!Lin{Lf`_#sbN z)=U1F+|jddS0)5{&Q2tv>Yn}T9`Q|ZjbncRi3;{L$@6UXHHmY{3|(I(R;Q}q-peRC zP-O+1-0m;?#D{v{u1xVu7>?Jfv#tQ2_2Tfvsy}}al^JcMO3=Fn-vs5f3kFe=w#R0@ zYY9=?gro9@K8VcjyNRkaDEes((}kewDp$-y@$`@Q6O&k6Wx*U|c&x#x;w1B4;`U?7 znS>>+J6~O-+G4RGd5fRoJ>wX5e~6FXyeqm0;4#W=XLC0e)wpFg^gHzeYM*@DK2r>z z)51vERg`JmNARPNYfdP>xMxkU`9Q%j$E!A-F*zBszY+;}lb+gRC4l?gdEl-?D5{;v zHJ8(uQY$Qv&Tf0d@2W~y{4(eusLxtXhvPbt=su5`s0Vhj=d%l)pZ%3gVdDWo&bjp6 zx(8iGrB$26JEP{98+{tZ?oAH+WdeY}+C*(|wUjgQN)RNflX@#O@gfBc0*vH6Nh71~ zj-q7RaoM;P%#^wf!0Vrpu0MDy-*B+j?e?bh6O;%C^2w}y!`I(Jd1lqFo7V27`4wI% zyjps8{rG#8FW6D^e)F1s5SsMnO~}+;9#6P>k!R=?GK)fIK`r)o^7wM)Y61>+dprgB zR`7@NkzriIk#@m$Ouy&45Cc)OfJip`-!(=$#K1Qw9H{?wP+`8QIDIv3v-WD&!oA#7 zo=4U(;*#Cqle@coKJWTV(7c^O&pHHs$G$1HX?e0=$s8$;Vdm0UGiKFf*?T=a2T=Vk(Lbx8if>nK{DMQc`i|G=ap@+ zX8mPf%>*C3A^$?OBGtmy<_hI5$Nu2mq;J%2ZNjeC22UHoe1O+0;uKTtq=M^ ze89hF0sb|~>&AF=g>}%u{C}Df*FN#+Z0n%i`L%zWTt`v2-l)?#R!u!YhahOc8QF%b zk7HUKsp5lp%R8S`Xsj z5d0f<%lzhn7lc1Y^JM8#iPyJet&6Wr4?66f2!D2X=G0NVTcsXt7<4z|8Fnot@b1hO z_&99RZF`V_wH?6tcEgEcoC1~6Z4e%nvrDvM?jeOa*LPS7XJ>?Pz@OcP=Ou97e^{d9 z0;ajsSw7$Isg7c5SnErQ1c`Jv7|6W~it56KS`Ek~dd%KUpMRl0x7Oj@U-xU5wH!=q z;!0RleV&={<~)deeGR!SS@5DVh#_q&@O_HzH7OQeg@g>d88n*W$+AmlkV!{B7T5V) z$xY?61DV2`OE{fB&dsJ6Q>4zGry=Q|Rq=QxsfJijIp56b)IbL~#% zOj(!ZyF~j{c5yEk$xbDA0aq_~i2MN;0qaNBV8N|+06g0c(Pv?~A0T%@d$!T3&!@=8 zP-($`7wSJmEL|l&LhWm&mX{c``;p;-xV-HxSAo!jBb%e_A22R`m1s5p@((rb938JT z$Fg>kTSb01cF$Fy<-jSLtnNN|Ltn{mm#8^Mw6Fob3JEu(0qY8MwlPqI!q+9VWhCi= z@m&E=us@)%v4=prb%vyys+8|RJ3rGBrz|zjd{L3WSi`>4WZo7b6NbvO$Dtz;~7>IpEJ} za0&u(WZ4Bh92Id|DN~OgP;Y1bSC&eL z`-Vdnkd6zyBQIS+p>@zZC3#jyz473oNOFNkql?NmzR|LSHJXb%dwkJs!t&B4e)LMN zn|scwtFseJl71#iu0@yL@vEZ~OAhT#NBh1ViDMk{W7!+6-9-qu6w9%;JN4x59POb_ zxt4Bvr4IKk6Qz#NTT)8kcIHvf#<5#koKm#4k>;j~`7@lL{*yNyl0n}C%HR*XPBx@A zYI??Pq^3M=hCTo9ojz-bq@7PhUS0oxzN^D?E6S<3n;y@Vv29AclG)Z%1Oyg*Hp-mu zO(#< zT^f1zJyT9uNW%t2)@hV`7Q(BZ#pzxkVjf6@$6Gu@fpim)Z8}DA(%&IFfR>M zwbiT!n{>TZ{N4yZ>p0HS68W}T8}gA%7U~|I+ z<~)$XusGPz^5vG)|4{)b(lfMLmXXWAP-130^|Q+}s(iwt(3G)}-fUstRnc-}JB_Ft z!}xhQlp06t$O>>Nm4(wH!OyBt+q7X-t9J_`b&u!O{BdLbdlKy?VL4KCLrZjSJ%5Gw z+zFo$h1?(b5<2WU(|s1m^FX;S?<~4qjOcOpIkXuQhNEJj1}|;Xs-A6!elOFg@G?*0 z-R3!~#6>LVeSwtvMQiSxO7d|voxIHyZ@@=P7ag#qvde)%U&ZpYPFC`LJ>fpXb|^m#2T^KN_PR(4W;?CE z)iLaV>pV7Fb1=V&dZbdj_>43}gsI*aNc{7(e_~DimR>37fg3TREAk+p|KUcX6KfK; zQc6L)d-qtvcEQ$+Z~aZ@+puEwGfWqm!MSC;FHS1l7ZULAW8YKWv#W@Y@D7g~%t(8T z6d}w82X6SXdhIflffe_+iKJJgl;97eJM|d3WS$m1YKP|F?B_KnKT7$tiQ=Z1>hn^pqp|W{m%>-`}(&OBS1T zI}_06fUDEPhUBl8CB6$|cN6yqBJp+aGAw;FmZnmgW_)gI}SIkSbRQ-@7hSe#fqxPM|w+|O7^ z>tN4;Q6@XD$n(+*3{LqeA`lFsT{De7!iYM1_TEWDxANBGBh)gfHTAU30q* zAkPpoft&+}o^(Q`kKV1XSQ`;PO<^7%@1I?2sNg{zm{|hC`o>%WK7hQ>bXM6#E$|_& zG+MuQN>4=c%_rbXU8TKjHjWSqcXx?5Q(nu|2Ea6vc*d~NGP-WVabM>b&tQ4a#ih$ zcC#5s6$m<6ydU!SjZC=DJ{t2)=q@z}YHg<6T;4F;Z;TkzlM9ZW>^H-WKyzceDD}y0 z#2>H^I>#z*M+ZRN8c{5WPzFL;lE&=(m;frQg4g?R)DMRTy?aQEF5e?E76{g~FLy3n z;6&CQK;ie%yK?FcFQl1>tkzFImH40oY{#1C+lmlH&M}0?eSz(30zPO(8Aux9oQ*AK zZK^GxJf!Nk^e`RJR)u8jPw%Cvx^(7&qGfDEPMKGs>H+dd0eyFf+CEyZ23QurH?I#~ z0gC7uvraZ}A!Q-Z#t@S3xv;Dx^r|1a&0ys__m5f|7?HP7_fjO5Rlz(sh;om1cIW2{G* z&`*|6@SZa9F7)s=X$@5&>t1!HJfyJp5<5p54R;mm-JSk+1+U`bpU?GFtq`s-#Xbk~ z*xb1gN(o8k_+yxdBNtC%U)Qu5y^urK@Ee00^r|;xlb8+-nbL07>!~jifEdcXQcsx- z2WT)fwxi`ZlqAGF_?mWe0AJJZZiEjWgbb|0dogRC*O&!4?2b)NfuZ1j|y z(UA+`-SUwOq1p7ad*<%82oZf6>F|tMoD3a%zjR_Tu(~ki4T&0JAN5JQY*}@=DQiV8 zRoz6@xI!e4ecgHPf*CR4OvFzPvD=70r5lHlk>*^oWu8HDzPGYBO-akh2U&~KY}9nT z91rK^G`w%;w`gxHfbSw#L=WFozFZ#QKaA1~p{c~4=pb2sop&Dg*Lny5n&S2tzl!DM z?>?@X@V{e_VP(jn4FNj6pKDLKpGc6I25J)dk#crK&Fu*l+3>!66)*U1z3Us9%3Z=X zg=nC-%^(8*qTmIf19FYm7OOb#m@K5Fp-b%sd@-VC+X3&x3W>FD-j(|-F;8p57gaC1 z&oz$!423l;qJEY!3eu1bZITtJvAJ<)<4GVBO@O@(>M?S9Cx9=ZW%S!x^5t62X~bz4 zDH+QFbv|fn%(pV35eemt8~R@JTsA&GqKYwK6V}y*hX;`By{v`1g)l#2MkjVMP;w}5 zu-&yV(my$TSFS4v-uuB-MvP*JrX%}@Dm_efEWRElvCI~&tO~rS*f(^7uJ-V~@G@Vj zyUQv=fnkk>(+`oIJ`M}J)*Rw*W#6N>gE6yH;*?vUxV&&YKo#Hu#ZU?h<=j&TuLM7Qn8$D zYVXR(5|aip?+zh-+;wJGNY1wKeQ2)B$OQ|zj40D#?l|RpUGcxF@FdkS-jXScVF4IP z&qDR34)wo>1(SdDU3I>Gd-#_`%;Wu!cf=|$A=Ezn-snx?sj!pH3wP$LI~aa%fDzd7 zoWHN^-3y$6WC~ww&C8F*g$9R7%P3rq_C`MwD?th3{KNaR=C)lo>BArutWDO~4HgE? zAQcByGB+4^PcQI6oXw3gr#J>j_tO8hW8vuCQKw^+6#_G$yZ@wHMdhDLu`X#-ljrX~ zBep&o>L-{;D^?a$`jwxnF#~VSb`|B`-_ngu7a86x zKMP)-u&O)}IAsA8`=}IKS+TDG8dhOt-ijUT>*m~BEXJ38YCxeeQJ?%ZO z=(Rg&ML=Db&J-Z~W4VX)xYCPC289F+HNPb!HmlH@rE=0o-u-SDZ@ZaqttEx&40H!v z&DVpD8y2y;$&5EMH-(6o?zgMP+@IAX=o5FA1L_vS&9XkB;sz5QVu3nVvdud>z^8o! z#F1ncq)6(5x2Gyvt2DjIU$$V1dWs)dz6VXe)Ry`-UoO^>F23+$&gbcVk|1L&Uk1F(Y2qbI+LSzSohzGpEcH8#L#iJ~w4hX*{OiiX zw_h9#-wW#N457b`haHu+N{U+T8qWTBwYJ(Bl)(~T2V-DjtqX;OljEoNSVqy{Syziw zxLD(hbp*~ag80N}y=;a?F9aY~~ zMWzA?6uA1algK~ZG9zVsK&PqZVt^`dcEM$-ta)RMe&nwyuO-80yPFc)KYL_;D*%?< z_iva0+|=^>_?-SmlJ3Bu_A8S7iEmbHR^f!=v_8CvBqWgnsfmN^@e@UrjC@^l8N9OT)ItXoF8 z@bKmR+OuohRJPS06%5@h6Zu}HT{p}`m_V>?kXDH@EmQ0A9DE0n?Q9?2SS*d5cv%G$ zSj5ETREI_o^s41PLm{D-G~` zrIVS}OkP+v@tG#Sb2DLhlrV~Jf80c8A4U3yG^4seKujCFAF2r=<98Grxz1Iwd(M*T z%k3N!Q;Alu9TCo*k3_7y`}a7n>D{#Jwz6LT z#R?D{_aUlgSxj_MXd&4bEm#T;3swmAqA=xRV6Oj5vBFlfSn##`sIp$at^T!4!9%9j zBCcV~c3UHF2T=50&B6-N-{WEz%LI_kOy1Izdvh!NmY@T((?RHXkjCPGyR7cZI1`&6 ztuqg(ltYH{el?l-4CfT>^I9dHs%+NOgFFVfxfUm!EIC@SbW+no2)GRW#@}>dRlgN@&9~7<%@RCN16`7&q;vCeZ}ql783@uu45 zXAptr)j#RVQBry(fgXV&rd3>)8Y%fPt|Iq0zx)^<+#eqD{OH^=*QvF7u=01a`U!8j zYvJ)5_;b{U9D;55lTya%&6^2g=bv-p9=B-a8^3f&?(6`&>)FFXshxfEL?1i2FOvGR#)^LF z9CJ_~_;w8Sq9V$+n29gy&&z~QOMtQN9p-VFd!iqMvKH-qGZygy6MMfVd18{MudF50 zOy3723KkHFgcj=vG%^P!|5 z`)m|DWd12u=#cuiYdM>MKjVT+{UdK3yE4rYae+zTbV6{SJ#GB!!0iUR1Da|iOOH4G zQ(x!3A&-^|_|UhW(-&TP)OzhdExMmgc$ra2fo6p%zku1iw-z{XD)xRHy`y9i&+?LK z+|V?AM}!~Z-Re@*SIfV_ok*2kUR6PnFF1gRWXNxPHlA78llOLK#d6uJlj6Idwv}c4jf^!*IQzf&x`~^GUoK)9~h%`yolHfbhox z@e0;QWgf*;erk{3V!gFbORp2f=eQE6&HofN{!-h4Q%{bRcy1q{_t=t(R`vzqt6vD5 z1p_e!bAL@Aq@p{FQ?!BsHAPA`%Fx96&&`pe3_;Z zn+(@sfxnZluAk!qa+{%c1IIWCTdlUmab$Jx6F$M$F6;cU$N$Uq4Vo|dQz>qMQUJ5a zzMilg$W>hXcUP{|B*lIcJ02Lfd|GnmnopJUkG=!1sJxV@dgJBi8b35>aW3xZ#nQXi z04nZ99g*LbO}6fR5T|hq0c^@9Q+_8Ag(`bzo+5{vgg*|*1jao}{5jPw|GUDSZ|Z_| z@3pWmAJ%4`pj;>!ZYIbELNQSrSN81e^a8|L?aNJ*!*N_SMz)InRO2=E-$wL|#jLiM z&_65c@5=%OZVOC02FZ%c(PT+@eBY%f9y6_s_!XClL`yZ!QD!?few+L8m@2!6St#Ji zyXPfZVvF)$VD6t=#sxn=21yiT_tUEFCP;FAv9MIX_ldc^@xy=SlsMbjHEZn&FJs~ilfak6F_W`8@=1pR!VlR92ZmD7sL< zxh83XoP)qn?Cn#r9eT*(xK4zG!*!;!U*h^@DB<#SvpNODOoI9F$4manfm<@`Gw!#{ zzwk0$KTvyrY|n_gVktQk*Tys>1H9l4cG+teTFJ;s)^SWhc=bV}dUmx#In=ev4f?JePmI;yxA%IX3iTo-V(jF@8#ConM1U}DhgTU(f0D*MoH(Xi-qH#n`q0U_noXB)zSrJUV6Wc zP0kGh4#A_atHD2rm497K(Y!p>&Zm9*v3chcwNKpFvaP7DDE2Zn$CuTvJgh&qdP4E{ ziU%kAflr`j1uf4%>1O$Ndz?y%KE}gQ;a7L7YBHxD*CnS~F{M-hklP;N3kJxKabg!) zCNY>PZ)kUH^@uye%4$x7OSl-DFtzH6v5tLm9?A_C#V}_HR~J%8T}bQ=)ll(;UC6e` z9=#uq9>sUB+x;ZmAxKa3$MR;yQ*-vQDLz;@^epUSmerd(0HWs;#_b)zcUx03&@Er2 z_>+s6CM&^ zg|)WQ^eODcM|@7p!RC!o>qd-*A@8H}Ub^EQ8%qDA8a1&A*ox*>nvIHnnhxi`_3=y5 zIgp@WT4{p{wE2-TsPgg31DM2kjQt(urPDri{O)EaeXn60z`=L=VzX39XQ`yp-TWDvS8SbX!vY2_u^rJ>f9)hMi;|wP zAKbhX^u?6=W!+O^;_o$6sBs410=%eAYVH`CIXB5l7*f4`%tfWeNTeU-{ytUom#PFj zIuL7aO>|Zvohfto2JNWqn)3PZjg6}Dv6w9>LDtY*m$kuNNvVMXCvqqyUH1bW;TeKmq^a$CJkPu8iyT{GN@OushQm$!1mA{Jb%!@N`kN{ zb@r7I`^8oCLP*dB)m1^Q{L^Q*YO*uDT3q=Ser<+r3ujxm#0rB>9D{`vUhgY5WgImHi!yUYz)9yQ^4p}F~RP? z6FdHO9Q^g-qAgP4)!|ucpYB)av9LFbU^AwU*g)jyWd-c5)_az0!|%E1U)J;kp@oo= z@9_)`?)swg#5v+u#w}B42HLO*KZ0xK;sXPaBBnQ&XHg0D4x{(Zd2tE9!KJbhq}{0 z=N%VrqQSd`9nZY#!IK;HBpK*(qi% z2P$a2n|R4x+4g<$x*vsqGnI!^XouHH*8L^T(fKFRcE^#657qomHfkcm4JBxw^YRtw zX~jWGrcF*+&Ety$e|vjEt6iN`ewSG}kywa|SFw>rYjhj}XYi!hO(x*HZ2Cje@|jw) z2!DQFT{FIvWFG4v$?wEsR=!L(KkMlr7COHJk{*Hp;W1jnl$ChD7)!#M%qyhJsi0~4 zm%EgMb-HGo+m*7_`8GQ>k*Ot$Jy-y{0rHN9X?I8SnQ52B#j~;jLHbEBW)nW{CuKn- zDC=H2gc%RlRDb5+qwL=rY+6zd=$IoBAW%qsvy=F{Q8PkXr&LzczH`E7mYsMM`?UO-o4xsD{9&~_vt;HX>|i=rWM$!X)$IB$+H3jb!$o08{DqPid#(@8sOrTTq~}jV_`qK(%$Rq@OJXzEACv7i^_&hg$!roolw*!yz+kwe+Mulj+ z4dLhQp1bb~d9@n)M10`vG|#w$$Ggy3!9s;r`IIaQJIDBpE`yeaoLV*9SgOr%uaft_ z%lW{CZ=w38h5O^XDYZoJ_6+fvwz%tMmbzHSYH@AeNtE*CvKu;|{4y)dCVJtri*GF4 zD^FDWIcrh~FRH5NojkOvf8!ffj?1UYpB+n9%hAqJ4fI84=e&}Esed)%wZi4F(frOL zSySF6hIqS={Y9co;_J>z_qQKO3c6gM&nH+4G}cPl-r=WFHaSp@u0DZT1*_;Q_DPn$ z{a9BD>bc&zdso);OPncHr!4{@%ETw3I949dFsBsq$hew#gK>21ZIb}o>R-EowU)W@ z4emetr2|~VLZBdJB6Qm+3BeNcLAu z3FU8G@n;q)*L#}vQH)%?JX|(vi55gsh)Dv9nTE5~d|h_*H|AR{B8wsx^__+~NDUf) zu8<_;&hoWTSNmLSQfCaiUW7tf=f|EKPLIF8_KlDwW6b!X@yNx()jY8Axxh;s-bGRT zFX~b+#28YuW4^miZD+yL)<}m00Qqyj{i(V>Iw&*b9q2gjWn8z7gP3;0h;6*7?H>L7 zRNTNTV`cGI_tnP`=qJLzp2X9oLk8&BmV7L!$iNh!9`>dXNkr2`f=WXdU--V{U+%oo z9E&+EVr*(>Zs_VH)?A#x()kc$R?}z{ZigqY2HsuOJFbyhLD479d+Z{>3XG5Ji!Q`3 zua#q-aHxA)JNJEDUf)1L>fU1)uqWj`SCm1p2Q;&X3!N(l=?2j5uL#scPq|$C0O5I} zEPwK2V#4K_K60a-A7TH-TGEaO^!9&mC4Q|f9?!v;pv@>b5kfz*e*5e`XPP*+*cSYdMJNSc>c>PHRz6)*%Nza~-9%cq8Qis9LR} zKc332(~?|n46H{_uFLM19VK)ucI>$UF7pG&4VEkzj(J@cwPKNepJkpMam^yXT-~j^ zt+_Q>04HVF-NM|OUH~Wi*W9d6^5dG(Y7`Kh!bYN3>FK+Z$5M#`k-2NbT0j9m|li1&&cVW!h z*-?)heeX7MuaBe?-mjP!qAy_9I{oqoufG)=cM!T^-)#nbJ&0&R?K`+*AU@s)tEUX- zWETGZ(GcXKDUDaxNKaQ9=2)Cf3cHK42S7WED!YcGu{}NAsl&&v5?4d^^LWdUbMcb_ zlNz!|p!}7;6W@!M({4q09FIl$AQQSU0wJ*~<4%f=_7=CTy@1)A`yoU78RDuRk z>T1ybWI=w|ORpn#Vbs#^_#45qwt1WcZ-ANWNjHN}#WDFD#MAf?TblUD zYe_+PBbT}%+F5Xf{HQ*djD?YNf@legZXh+ymTu2k~dH&O+~zFJ?zZHD#|%#_#KYowO+)W-W3R=7zb3$*!GsGr2?U*3U3bx(`+*d0i@Q zVq^wKJ}4n)-mG0Dk&^*(|4xAFEzI!+1AA5(Ke)E*9!B^bMIcX{S55=YnjMmsnC}}M z&RT+U3Tt9>Zo2Q8Jtj+6hsDIlDua*=DM&t;h5mxz-Jd%6@3HyI(M-F(k)xH39gnpO z{}{ohV2Hv3m0U)_eQ-+<7^0sesO#S)d>n~9bZP&U-r}NYI=9MQ={O?r5axqvJ~am% z3DWoq#dJkU2kAmyBQ=f|FpnM?t_WOre!i}&6fC@U3G)MRUTX&G{rN!KLWXhcb5mxn zqyFUN9-A3;2b*wCfn21@>jYAUvH3uEJc#6vt|!aHDi1uEuX7a$|7As(u7F?pz5@4%Q8x z3KkCj*g1#!9>Wf^EZ84o7vlzN7UKr<7_W`Mjp_6%SPYv3hQ)&Ah4F#~Ge211C!Qgm zO|UD5G{zn_ZZIng9%V2dCg)GA>EOqf*wqA0`14q%SZz3`alug-t~db{Fz4V#><-#f z{$L-B4yse!9-!e@Gt?7;8vYI!OWO# z)TepD%-C&Yr=ZRRY*`FALFYp+0i3%t3Ijj_r|o19&cQ)3z;-bq7(mL?ufY~r(zrl| zQ>#uvY*{QI)+ui=7bY_fiU-EsS%nG4MM=WMFvc(hut5~3Cc$gCC{maYCIk;o1KSK< z!$V=h$S{K*!L2)UFzzT%`CwxhW0-dgr_{k(7KyM z7>OhQOYzX2Z@$JF$|Thv$tXpqcKFZ5-HM%$RgnM!4KZ!55=KgoNqFvDied*4D4bFS zkgRn!o-ziI0Xl_H_<*jlQz8^0r0YZoE2uN)lo~~H-w8QoR#pOX;E8wPxFpJ9k`=>n znBlA#a_JZca=7JW^qrB_kDZ7!I|~yDGP`!FahwQDx@N0M)We;vq~@8tgYUcIt0~k& zv#qG-sl3BhtjOjmep|k@Q6SywHm?>t#P+QgJj6rxV7jp|JbFlzpdL~pL{iv8oK8^t z6N7M_T%6Ljhv9i>vo>*5mvlNA5zOs*NQ5?_QYV}EllaiQb(-g49>u|`#i5_@JxsBQ zz$KEY3CAU33Fh5|eH`9uNwrLJ)7kFEyi7*c88%Kt*7XTU!xW;l{sPEw3nKtN0f!c? z(*mD@!$3eL^I+#!hy_ zjHN6gmA!JRGfAb4C1xR#kh2;mgBeRh7-Pwj?ep+_zrKIK_lGW*xy(go9LI6L-LAL$ z<9Ixd9*mT~Sb9z!C1j5+J$IIpD3)bPaoXcPMrTm`_MlI#zhxk^xyjNf7D;D3w+X|N zDO-#A2a3m2N;i`?KyE@zH|w&Dpf2i50QZEz`|Oti5)U}02nnsmt4t>-c!1&qRzspj ztLiFy7g4fR@dp0JAR0E9`@uhI0=(((Hv!$jfGB1N4hTB+0gG$E83&BGmf%fuW+8$M zQfU~i@5~z8AO=AtYe|XVsLm|h4MIhk)<}66n+;LhnSIfjxx$(4J74yhXSoI(#MiB2 zzZ#g&$gsG0vRvjv-Mp3M?#UI=%5$F>jWnueQl(hk!jw^NAlMvp|E0tsKn4^C1h+fk zKP04@n`W+94Hd=ZBKf^}DshctY?b&$B%3#<2Oj94#}VHl;oeX^++Cy~na3E(P3CIH zuOY!?&P2QlR)U_DLN&okNoIl@L?yGoGqj9YiU~ms#5P`#A#cRyL_E(>GXftmjJlaL z3HFS0-7K#NOx^6Sh-Z>OGdb;)2v6>HTo*&K8!CmvF!*^00}Reot~xx8!S?@GSzS57 zb7~+_JX}d;Y?^yGC^H9v)f0NoKW&0ZH|MT@&;+Y)uEPY6E=JwoeuC>gI>KKzoO=qt z(+WC-Cgjxk3#{^V;aXZHRv{_4+7h-h8HpHa(H()^;PAKN;gIXN`>n#^yi+)<36b}x zwE*y*)GCJ|UVcJ6fj^d$Fm*bg&s?9CA=T8-w{K-$%rg_ZZzkARFMh3F_`ZdN8fp;< zgFzK>TnPS2syss6G0T;D0RbP$gdhY*vMZ3f)gT%nd5n`rWJAh$vx*YWB9-It!AN~? zW)FfJQpX!42>p07V>3ZwNGek5&7pee%1t@Jpo>3Kj>g_|N9RHY5j=)sBXTtbt;U(1 zDTqay*=C@}uTQBh?Pp<95rKSFq2KN*_X+pzvrUB5j}8=*Ctmfpz`D%I24tl-GA&QMi^I()jBMc4cWcBC zdh*TF$?kJwUCN_vdb)y~#UbvmSLP*;#$JPW2fj>}VmHGdKDC$H0Zk-EeR&(yC6cDR z`)MjKr7+~8F4lNdZq5N#peOA;9we|)ofpYbmAV0|7f6SX&gfL6Je%NaG9q6gzgwYJ z(uU`5J9}F)??z5>f7tsHZ%DHArp-5rbp^D1ZV>VTcN%O|tvI%Hb=a7a!tB<4`A?Sj z}G^#yP!C=EIg;^IM8O7^EQ*6Kxo6gDm`1dF7Ve%(Rh{VI(vXOjjX0l6_r5kO#=F z=!0mt!^-(rm|6ItZ?56+`Q14Pqs!?jIFdc#;p6Tg)wO)nLEubz4xh(rUnL#-ZVKEm zmy9b6>4Q`C6#^>R7R$dzu5MxJ_%8!Kxz|sJIC3e=ZOpDV&RjeBhw9Kn+bD8=`7+N? zvi@?dUFWWx1mAD-Z$T~)YY9|$)j34zZPUzN$)Sl7TfNeobLq0vRz1Ki+HHj{gq6mT z;DXK1zpY%*`_m)wrgV8KrcL>*Mp&pQCb#;wj>Cs*_Iou(9wNWrRBpE4H_)|(OGuOL z`rehrlv+>MSXFZ+wfHJ6CMpD2<*&%kJ+Lu!Gc(jNd!Q0fF@7H+Fv3UO9`hAus6|Xb z3Je^Q#J^R={95E&ydk{iCbj0K{Kj_<;Q*UTey_XvqVWAcks)-@w0FDQifDY%?K11s zNzS*KG-ZV&d+XYQ&dVRfWq3k^=vmDW1IE8u5hfd}e@Dg#{cD+&j3qvODL*c(=i2t6 z&k%J%VorR;c9#FJX!T;J|J0`=nj5&Wc{;9QzZv4a! z*9rDvjM zFY7HmJJdU1?NKYsNM%+=wkWrp*}}Sj&G&bco|Bs%AQkS} zfO1?N#6J-gq`2yNC#`GEF?kZ@mhiX&U5RrXLF&N@WeCT|8V~_@(cLdkx)Tbw8;sZF z)JZWf3p)E_;|oF_uYKkNPFnYR`bkS@%+KyIR5qfZ!@WbJ{|ioi;7i|2VohFG!A_^> zr4By@Do_4vb_a{f{&fR-U4OhJDH*$u-G3ZKP{*l%R2QMn-!EW9f41HuXhvS`<88lu zCk#0iJr!*TRDhv%Qr}zA_CngSNCaeeJv)+Guxa+;m$^yb?^cGrPvO0ba^hRRGzf3>-Cv7kZdcFAIdeW$=h z!#J}htOD82$Vp`3iC?bIE3p+yZ}quZ#gF;2(|r$05bcF+LJ?<3_m&i+53Eh0N86f$ z%3C088PX=1`bIsOq1{$xIot zj5fPK+M}f{s{@M~3BLVH*WJ{9l|B2ntuQQFF@MLo{PF_Zf}QrRvhdOUXH9+ad{qhI z7-Y)x;>C%}LW>2uihg$@`mlC)oRn34EHr*`M7H1RjZU#j<2y1}@K+437Yr_9uv<-O zOxka@WnO^uA87~0vJ3dxNf(suQ@VV=4 zeCk`n151c2(Q3g?WH*OrFehJ&^NsZB7!))Vb$^zBsaTrfids z0BQF&uqCC>^U>_un9QM>Xq@HqvBKFvHHAMuUn>i>jTZ9Han}r9T9&f6>kasNJeQEa zk@GBS3<_!$VGrOy2e3Z1m}3?%;S>xISjg`&LM534lcyMGZqmu3gf`k#K*iJ)SLJsV zV0Q{a8jarNC*=Hbfuwz_a4W|cv^>dPUTUb;t#{mJZsXh^E4(bVUHHaQABOuPYZ4ay zIr&(ZDteGk2%~l0U5P1ek-gk-`KfX6-+tfZ#viXU)jG9-y=^!FyAmNC4W75E!o^qJ zO0hcm65oZD+8BB4usaUm32-s7KI+d99Uaq{^dLyd9743gLIDK~tN(=N-N%(tAkoC_uIt-zDUDLe?BhS>_W{F1AVOx7F{r#4ViB|c^bd<#(Yh%6f)>Y6kUur z>w{m+Yr60-HH$|~Xdm61@by(*@}pZ$3KW}dsmEVLx32y=k*|HpofD`!kMH=d)EyN&h@>wN!A( zu`6LqF46q>>Tz*4M0=orO=#=7i~D9r@mSeK&|?UvVGAi{TA}5+T%$82o-bGT76$Uw z)Vb&OR$iT$#F)Yl^Q(8J{Dniwsy}$%n^f=0FUrADJ7P7?jTxT|) zS=KzB7LI`PY)>fvip|6gGw3Mx()N7d zmrSfso(_oYdn3(xc-=s|QY4H$@UrzVwa+svZiFvLV;q^YJ^J*}zN(%Gf1KuA8iHfm zCw+bj3)w>BwAMO_(x4|_BAJ%2|+53m@q$Agpg@JstX8ml=l z;FUqWU}wF=DHCyZ+^SS23WVy&&siP|ZNVC!T6cH`)gLD2|1tOeql99Ut+DI6G9LL@ zj6}KURx4#%_TEb2C(l!R^sN_GaDn-Fmlo@kJ3d{WQ;&yvr9TtW?>&eLtm2%0+>%eT zA<0aJkN*SulSh*;^_vLEPnrLD`fvV6{_hJP*N>cW>(4x$`XY$x{SgD|18aOMvDg}{ z3t5A#OO7NbkR{2?1W#@Ntst@t z*P!QlekNA*Rf~J{!wFw-@Q+{m;P@J)NtM^`iVHc~EGoTk_iD1L6#wXuQ_1;QHf;Zb z{d2J?3%FGS?_>kWprI}f#ux0+_T{lRLF-Q5n@3-a|A&(f*=mERRHe*7rQDcjD5W-Y z!|iXv`jeLZ6>u448B6)wD8fHmvQ)7)exztiHd)Z&qoUgQJ+j~UCPxi4*0Vyo!~?Bd9=-mwDm{&FiUIN&R|!p1s;u%KeU^-F7V2>+vh%7r`K_ue||NKy?ZP znQLRHomDGJq?)-iX`+$Eo=rl@njf$736JJ>aU~Zoy?7lZn74Cn`)!~P|FkqunTTNj zp{2K_MA}EDjj*PS&?lyUiNOd?jt9IN!;z_O`}u=QlcQ{2VNA zG}w^PQ}O=DUo%&W^&wc#pt~XMKG?x7Yj0#qPGL7FSt3#~67VU*-V~&vm6!1CRge6n z`JK50*>&L^Y#ITQTvsx`GoK*0ZZm^2%O2rhj^fD44G{Sx1N_qc_6lVBw#^qV))_M1N0cNJrugp~_~6&OMHIU-FWO=I%k zBbhwN7N)%}uywBVrfm4@oANsbw`iT# zDHa{K1S4Q^dB)J!$0(D!ghsQr(VT{HMInlaC3?xV?+>W+iW0^kuVCj&+lOzwZg;|x z(JX{d^22U{(-pHdk4*)G{-RGiiGjuxf55GJiwx~n4fEddO-|=y;{!j4E8L@()mO!Q zlN+j1avB34X-V(&`tzZ!^!s&BaSL5~H_xQ49Gf5e>ampYzTM>RJ$hQ;D$D;dlT7jP zyJBo{-f_j|H}xMYeP?okV~MI;u5gs?z28c?=eZ(uZaeMi{@t6m>66AU>|nH#!Ts=UK@Y8~=4Z z|H49N(QE6DTYx*-^f@()7S5Ic7c(cZBLGdN3__&(23*Jk@}3>%DEd9 ztKVVMuqf=&M^tiihU8i-I%+JNgQBC2y1@ZFQ?M;yK!erw} zIQ`n>F3;$v$R@98 z`G(nP_m}i^6(jm5V8G+!nO}=!X9y>oZ1Rv<$Zmnvncbp^nOY=^%DlRXw?sGq#b5e* z#18VYje%s%A62E$!n6yAP8PmJM%?X?b|>JNvx8_bXRPhh+&rnBwDb)Pb_24}>XQlD z{QG?U%n3u$c<*7nb+YgQVX&~@pm|BO|BUJ8yTCQ?;nBWy!J`21?+?7~uB%@8G`?ts zJN&OdO2`|%_Ej23uQ;^0ea$G;@0{qJH*i{gB{#ZYP`6?i2zA?Dn{W_V@%I+Zi`QK6 z@)j+8r>QL|81Jw;Z&vvrr0}=FM+>KJY!gFfbN;ECI)%XG|k;8V_Yx0@LTA-xn+~7LT>$>7z2f%Gv_}NMQ zb1=@|{`VfxkTqw2o}ZHptkW<{l8xv)!$ul+)T(U7x&s+@WWfLhFsEUDn5cu*{d_gS z|KwW~V~k5z)LImyjq_KGfJin154gHFF<|*CzFQSH}7b z#VeEIPhX70m#-MKtY9PO4TgZ1ZaLpo$A!Hl-ss+dd$-3bUsz3LO%+z1{Q-&ILLOMx`94;hm!=E!DRl!B!~6cIQxjx8qPzO`g>U%G4RdejbryDCul5s2 zDG2mc8(}jCqEu@MG_O;Agem{PL3X%?6M9bi6cPpndi$@H-Fn-%m)U)WFW4NruvI^p zAtrJzy*Mvbgx26+GAoXK7}$FT-M7c4XJ2hdnSpD`Ps(eLipC=76;L*39>A$@%<)uu zJ`s+M4{x02kov#hoNY9S0b<|(q}4*A%@UArz^MO^Zp8RPgaDEB_XHksbi?d#&oI7G z)k&QVqcNF}q(Fzu)!^uqzTvh7f$+pnYkS?5I^w z-g$38abyM>3RON_ZR3Mj1e@!qs(AGML({I-S8tJNn0 z%W6M7`yL9H&UlmZ({7d0y>0r_UrxkQJ1?)23eJmqw-=u03N#vu$4sRB?7Teux^K_7 z`s_ld{hf{e2h}T)+9R}1*TMd%(_WwIh?$uwPhN;XG7sq7ZM}_b4bk+y=_13tDQ1=V zZePU>b6uAH!J!7Im#OWb0$0YEz1Th$RFZZ1|Ch6%Y;Te>1Pu>gO#FzRMonQ(Sjg{W zd0Gks)XNDRRKZMsFqb zZG=Q5Duin9d~;}A7s&_X{Y<%*Bx1sHqUJTp`_uA#HTN!lig7;NL)zZ89_ENLr0DF4 zq~^Y9Qyk7Zi-eGYD<>JP`!a9JK{jR*-mHoE>kPwi4wpq3DRQB)?aS z-~yYmwGrbPO5LCg!q3<|xpE6`Z`NG`Qz~~%sagd0ek;crDh$ghiQ1)l1f2J{zk|61 z+>eDGpz!WN76QE{C3jH!t*izO;M&|MT-pP*2;Kv{Hj<0XqKW6*qkS4LLIRfvwuQGB~r!`1r<*$8rjzyq)bpJ{sZTR#9+)W2q-WIB1Ue;;ZfzPt%DOa#k zGdcW&&3~_&XMx^M73vG^Hc#Ww{Om<**{HWqHinHnSirou2DRO@>faYbc4`+ z;vy2-&Ec0lZkxi)=FF=~`723iCQC|MOolgr3&vSUb-;>9W|1hWNE>AdB*z89B`kO* zr#E2hYC%{-gkl%ImTfM72|*;6%=*nbcb>-(@^wVYV0WD@sr&daLcP!$+x z4XHzhf*7E^>w^*x!0Kb1?L>P9o9)YOL8KN8!aK%%I+SdO;400tU#LpA&=p8-Bi?nQ zRLOq|_6KI#--r*9f=0|z#NO7mbCaQ-O#BFVBwEp5{gACnU2#N9;t@4wDVIb^;gGbM z0>%1^dqdjs^9;_tVw#CFhdt%YQmzhzS4q*i*k1+4CW=!@;_qP|tHFu5Du#NJfmn)}_60%* z63T;1Y~6qORI?nPkK{FCmm>7Ge)4J)L~>juDg$E!H6?yj4JG+AU%=-gMZ4KdGk3#* zg59KwA>b`&3>CfyO)$b-$dzkg)5vmTu%xnN;6KvFi;3aSGDQ&FEm;Rt)jg=Laq%WA z#*D+=Ow@>VJ@ZxB0p8(RE(9wenW@7NKjgk%<77fmQvxnz%8=Pc@itm465eLr{u*lN zGKxVGi%BMMY@@|5V;Jk%F&0rgiXoB;o+-Q$>VXhbp;=<%~E+iB6O?S=a-}0FD#M zM&^En3z7D@cx)!(fC`dk2_fo?0dKX}`#NSYV{igkrbtW(HMZmxMV!jy$zgvwA-4mV zdU8wyP^!QID^enOE-Y&#h8Dng%yi<`HmxOolfdr`RV1(><+cfh44Fd?`U_?IR&E$a zzcbrQq$HWki7=(ba~yUfRPh0eTPsToDug1zNN}b58^G9H5Q4WU%3|o3EsGruER&Qo zN$e(>8UBSUHVaFvRe=o)q8I(QR+QUIpf+aQ-b}^}L^r2t);jx;yhE-W6@g`^ zV{{nm*eH2Nq_kS*MTB5W_5p=$PbeLAH}dg}IrCKu)oNxByd^{A4lV~Msgw!PpB87U zIXs9#49P>t%C55%h3NrUr|XD12_d4{6H1XT1yhYB3ZoIc5&Pc&O=^_myg#l zM2aV{`cNrU{Um5Q`}*{oHV`bST@4O#@#OR%s3fuVur-CXWb^#fSF)5=XC3tnM|nw zBG@+M0dsIGt0S75nvf(ildWlX*wN+!w>Mg~ z^~}j-ooa?)xkdrDi20&lnWa5SB3^iwql@LCqbmW6Ftx0f2H&(4bIjGiO8H_m&2HZ} zfhgePo@LHcQ$5*6aUl$7_$F*o>L<LSHX-JO>Veubkkpf`FPdO=`w?Qghq2q`*>1USBjk|L7hnli;Mr;qAT|IHKz9je_Jnma>Oyk= z8)H(X8vM_b_C$Z2WNLG*@}8%1AVl2F6uqIlz#?JiA!M|E!L)I=a!gWyMdynNc);La zQyi~gw&Tix%H|SBm4_;2^0g5w#<-&hPW7n{$3&iIxo@fINxa9|UrYmr*==z7 zNKiLZ9pDIyO~dn4q$hJF9@Wa8p84D4$tnSMD`$(MvByEKbEO3&BA71Kixi<8u@Fg= z9>tK6ZtjzrRu4=#Vkt+0lAgqGl07RuZ$B=zldJE{sR|GVutqiU+E!KI6f=GpcL85Ila_+d9i^z@D-I1ZPW*ZxUw@%dTD@_umBBTUl?Z3ZA^L zaEc7@jdWG}1H20o=FJ8i2?YS(5j;BE03i_x%ttITL(|?6r-l%5M6FPj_gKoM9%K;1 zIq-H!;cZ}4S&q>!(RP*yo`0yYB&M01QL3ruiH+AJ{|>6d8Kj77MCx_3_@QWue~bq) z=MelY=mCEY-Q$Ow?2Sm+Htsw_|4!zK=uZcvRymOi%PyJYK?xZ=tcZcSHn7UJ3bbT_ z{h83XU5RLPDuVsKr6|C(1U+!bREcSe8GOAmowVB<_MIt2S1Q4lEXE__1gx58#D*xa$nf@Dsf>);2Rez^n0p zPD&)TphYNdDg;0grrq8){Z^^r+-nHl$ebpMF+ik$iVaxUoFS*~!;!|&J!CbvD^17* zof>@q7`GJ8RO@SlEf_EB38}=%F*u(&T2F!?SzHK+M&l2~`Z$a53knK<43S&bdyt-eV`5TTgO9(0?suN&=CG zEk0W|0_sZPxRo7ynlTaqVQXo!ts>rd04bDaSEZgwV)DgA$viNxrt&>QCjb(aqel^) z@K2lL<*pY7D9fMskXa(!Ow5@{1}FmHPZK$0kqCcgs}Jm+BQB5eegNnhlq@%-x(Y7z z*9Y_rzr`>)WF7ig&~|o#5CCKw>P=5xO+epSvMvuAA~;0wR}kEtRFnVJh5v`kcEE-` z5i>EzY(R{X1k-c;6&8U7qH}>LKE~^WYog5D+2jG6i#KO}rnu~Jq_Y?AUDR|ydpR?I zrUoX70X8L#&6Qo_u^!_RCDxo$m}z#H{W$BJ09_cbJ%C6;kpQd3@A3bbD$oKDoE_lY z7BraZC6?1G)A~*}0#w$(Cqj6QgvD7vw+WvaCaK&l5kktK_oxr`tk)U@Pszt;PyA3& zI8+b8szQ+mKqm`B6;6WoWSh#gzLbsNJ|Cc6%|s)v0iOXwU# z?PUMw%%(`t0kS2SD81hIK?eMjD1d-QW@0G9dt&LiIQb#>5aC zjB}R=mR@swbn1YMK$I|(>IR-vJB@nJw1Y}+1t#Y+H4>OGv}wSRv2duz1D5}NMp(e< zx6M>7ypS7?5K^Hg0i1|Z1dM|7uuQoN$ux}W2Y`li7yp@|4Did%f5C(c2(CaR#2Z?S zJF^Gz)+bBF_(O91*?^FZ`xl@@7QFYL%fK2j1G1b49>m~E08jIH;h*CWUm3R zoGXkHR4=Q~F2hfyL}mfB322T1AP zTtz?xPDm0w&VoZ9&*t9ti;fypk!B6$bV&mrCWzz_Xth4i#|7vTkK{ zC)@=FA?p=h$G%h-rG{WF%HgPH@vzYB2KIY$+z=|M)Z(^43V4G)FxU^dW-P{G1r3}d zn63aObifBor59SFkC7&1P!#S}>vBVzYb!?)>IEfwk9FZcBhg`?nF6L~dQenLXk+Yn z=2j+IqzIYEiO2^eOQBMd7HG&{*_){ycV3I*1a~v``2jEs|8w>nJ*pyyh^u>m3XIvl z9@K&YmSZaSuYiI!;{~G27#EG8&R|XD$gucnG$bqpa287Sf1-fNkd8H3=D=9+RlEdclfsgAoH_x68uT!D0Y!1jF%;z1+=8pU*+ zTh6Zp0JRL6_Z30wM){Q)f0I6n1z>cUb^b&-+t>%tmq<<{rgfl|u_0?cDRBvqI}`@! zDoN-X3!FH!eh27`cNf@N%YO)|lC&1jv{1qXw+eJpWs<<@Y$sp8**)NThcq$b@guSi zjEUg+$9QU5&zN8?e}3jV#zG?414-__>kc(Mi6tEaR}l)8Y{La3O?hzbe9z>e0e%Rf zp$6WT+yScG9;Djs&Se?yzws8HEKPt>0y%Jip%;GjvI(9C!7f6~M`{Ck2{#2qW|?2Y z3;0yP(sNZ$gC5%KpHo*6Es$na1kwf62wF$*Yqe8fhUT84h5%N=H&YWxCCx?0QU(6n z)m$FLzmmYm=m^3v-e0B-*a@rG&5B~kg~zGIGM$D&0fewd?sck*C&<*&UppCcK%_cD zn~3iiNmnDQk&%rncEP531Pi znB?$tT*OMPvYoFN60tP&=KKHC_a$+d${c82f+B#NN{ax9tprQG!adm|qzmdc(aG?TfG z|IcC)SL@6XJjMzK0xdA%8RiOKkW3jY?57vPkAgG!CMxfQf{VR%_NFbXCRuhMyXDWcV+3VsxV-OI#=Krut(V#PKrpbcJ=qyNKNumX_>A@CSztFRiMDn%XMuk~2@TkHh* zCQxTgiU1vR?-I{5G*Y2-S7lnO1dIb?ezpy-f7&$k@CTYCza8h3Pvew5l?BW8hXS}A zOOxuj<7u)!-<-1owCDtT!0Y0}@%|Y~S?oYwM1uj{Von6ddJLl2oWY8?T%=qxnnaOs z9=ZB79}xbmYo5$LNL3@=D12glwY7e(WdploHqeIj%>{O)-%IC?2@p}sX1|3gtOuXQ zMf*KaYDgKT)ey!rfZIT_HKU6urV~G5L(*4q&jA!?oyF(GDo<(g{-PQs@tLqJ8vTJO zWeFn%yLo!?7i;cF_%r8F<(IMzsrrCCWa0Mj%=`O201puCkm6*{Q39B8o>ik>gK(PF zfmVeO9k|yaZBM*g^j=e|6pTFpKpPw!SR>Hh%w5@WkH2E z2-G-EKu&;eN(w`jRimMrkk!g}rUBGR4e$ibqGFT-2qw-vG6-g%T$ zxIhHN0FHz=qxGl~NIyG6wiJB$GvH4aC$k*^n#3&b;nD*bJMR~y2AQdtAi*#m^w=V| zLWfaWfcWE1y_2matQB=sFLZ{=gFSN_fFMZsboto_EH;)rBj^>XOOix-Hs#&7%LuVc zGAtp4-wd&CP;d5$0ReSHMdsnWfJPDXI)1$s|9d-1i+c!od_=AU@V`Jkxj5c(_yhJ} zAYT(-{%_a_ITD`)2QhN>obCi(09j7EWeRiP1A>t!&l=JM$Y=Ps4Bb?=@h=N9t8B6L z?CwCm5Zwl_ka=ad1OxDXj#xFX9_|TX63`*_1>RLqKd`U>fr6gqFu&HXFSj|hKq>*^ z)lfZRP%Ha!W<(^BT?8+%lo>_^QY_H=N%$pt10RRrdW>ZEW^V`Lg-R+L#3?4T9{_d9`op}CLu5kc6jO{W~!5aj{F`c?{U&^f)lv}re z{0jl#F6YF*Fy)gef=7g?&tPiKs`GzxU>l;88RH4q-{n&|k!w9Z+P2pc{6ztNvpW%J ziOqnO-U1yfz{1%`_%gt;Ijf9qJ)Jpp0Qmsux{INDV|%;@ZN_U24HZH??nK89J! zTqT}c%BgCQ>S3Av>!Y6*s0c0M$!UD5d%%?msB0ue3<2q+M2cmu`=e}@3{SuK7o_%S z5S098(;+&XeF+FUr~`i{pnQUIK)HPAGU_>iTC$6&iX~DWPcQp}C*T0#AanMrYVKLa zT+;ZY{z>4h-<7kk7RnBlU-9;Q&`hjlUY*^wkvB4SGF0d*txfJf2VZw zX1dR@u7ssxvXt9-ft)7E<2`?;rq!z0Bn zl_Itn`?KQ~&#xL-T$6_@!_UIi;c^vri&t{5D!bWzzhe7O>0gZo%4%>`_4~gX*`K=< z*t&$~f0OTjdh@yUUlsQ+MU0;d?TD+6>yFEAvoLV^tJ3kF<9)|c#|pk z-#)Dv|8HD>ykk81N>f}1-_H6d_-OdZ_$d3F^-=eci?=6TBH5Ab z^=$Pn>DlSo8;`4xzZ{PkUmJ&y*Npp&t1L$@OD_8^n=Gd~J`=I(k@q=cXbed9{Jntnb`#RgYOLca2_I|d0mn_FU#!2IP#_8=w~%14k^qftA7kD}vdy1ZfV;6s5tEi_+i+z>y0u3Sum}WZvJV zC#WFkpP)xUok8fJzk}{S!MQ9U`l6o&y$>pSGN?^*Sw#$Mk801p#zkYF^t~Q)`Gp|7 z9*llEuQc$rCr|6nZjod2Y$Lk4~^;^gb2C_xZg7Tky;*Y&x zcn$WlsIf?Q;M_pWKy=YOToK`paExm+bd0H9Mf6AiGk;-Vx#&C$UUVKFqVH}nl2AR5 zAVt?c`8T>}o@F4ns1PP^`ugy@8m3|eBn*RlBMC-Vve zUy39L)Qhge+w~(8$yDsW(Un0J^N|C_MJe!IeR`r1C28#IO48u#$&J=|{(&b&1F&Ml zKQJdmZJg0!(&WaSd9Q)kqV$2SB2k#8fp1LrYEu8kKS8*SNAvLmX9gsS^x#qYGYQS{ z-SbJLjoSIN0dNr%E~U>7mohYoPW`nvywNewJy2OBGvHD53O_05n#qU}t!Lz@`oIv1lw2|zOm00t ztKYBxUH^;zv_4V)U;WQs6ty_XIiqj-Q~Cp53)L%X36ejnY1QlA6eF_NocEGiyd>3o z!Du|WeCrlXd*ob5$6JEea&wHkq2q#1kY}yjPnObrBLZ{2|{u`ugfWFt%e0LE9J+tX8d7G?=PU)OSj#oiqBL{AeqVCO!h8Jsf#kty&XeI2v8M zVl?{Sve9gE)|Lg$dZe(X5}_HNpsyM0OYbHmH*TrWzK?`ePmhGvkn~?A&QQ9)CYNp9 z3@P3cp}icLs%|%2N6svFf9@DcZr_rmeHb~Y-Zhj$nk=oxn=E**rB3YUZMo2bMh0rq zMii@^4C-P`)>1$2H*e{O^ll~7xJN{5H1+)wdgfBU>r+y{?03fA-QuNHjkH%s8IlZU zqkC3TNB4WSKs3xqaW!hBxTX$a8lMh4!E8Tw%br%UrAi}>L{-lk^v0&IAL8{_55Ml0 zZH3S@NBnAf^)nKS5GTmv<-^bW?ORf`-jS1Af8ZKTpBH1gZdA@~Vy{+`7Gw8)m_5dH z@b79>iSK&CKqPd_U2lml-ROv4Lvay5C&}+}!|X}!EiZkhunL{;<0EL3Gw)C<87*)h z!w!XxgoL%Z$?xx~!V*c6Eyg}xEuUJ#J&IIG?<&KhNG2^tq@I=|?}IJ~624?G7~iTo ztJAOZUFVC=v<^|{U!Bix6qPvmoWVDpDV+hgg-0tY3GknfXph#fQ4Gj#bJvzs;^EY5 z3kKuBUY=Vd?Ur*M9WMxO%m2i8W@p$=SL^uJya&7gWL>=rIAAXN-@A|$k6m&fD zQEzc4UGb<2dl=TSf*@_Q2zsk}D|Sx$D0Vm|)XW)tkAJihM-p#=kRG=^BZy zSuq&>zHBfXpS5B^vTiB#sl;l;$9HJN`p`QG@r^4gr0*?Z-qS5%KBSJ8#A!Z94=oA6=o_IDl1?JvJO!|tx|lB!zTy`#E* zbk0P7Sh+p=yJrPN!n727qgsl6>aZs9X+Qsvf9I~)lS)=pNu-u2@7d0t*tGROc%9Wh zUw@aagpf2_{Cs*l(i87ukC8{qe?I?iUy&m9wwx^O!6Tcd78AOH+vj$$ZtbMC*n?^2 z#4%(1hgw78hn^JBE}DLqEYYPG9rbG@F6!qD`9p4s{jNLx<@6L*v9mosiZ(Oz0d2YeQ4S2Pl&e%8`z*L^7_WS=?TC5?C~ zs_%lycv|_vtzB*Uxx|hxg3oeGj7OIx{Y>J^t`T^G)QazFOQIfDVwykk+lRjCg`$qC zX?42$?v=!W{DRO()I&yZo=ktf5wDtqZ-4FBw@@|(D(sYR)Z@S>SmOgQmci^%cL?4(= zqbrh~I_qLg*U~>8H6Q3F_8uhfa??epH9Pzgdgs!=8&lH19CfDLJ>cD~qPLTyx=5X~ z(Y-6_qendlpj`~Tn2e$qPuF2h<1>C9laF!_>~~8JRCh`ADDrG)Z*0c;G2VFf`0G*G zLCCHq-EX?LBO|dGdxAV!KK^{vejv5mOFt3Y(ZA8OdT;uTn(7-H_uyBnWk)e)kRic^ z-wQm+Y002u%VfFapk%>hSAEwRhZ*k~iDEHp;?csY_Pl~NhKPaCw}^zQI9ai~=strQ)^d_KEr(Q(zp!dG5OS?a8mx|Cey zr^T3DZ)J~9-(zfBO2ZZn^wp$PHSe!1vUj)?4Z0-fljR2%ZgyBlR#Xl}Y@SQ*NUcuo zPR;HH_J>ARI^A=+?^Nnk;Z){SIa*@4aDMUaLdE8PoBEp_o5?XvsXeJ#sST;6sjpM> zQ=gO1`YHHn_{sPw`G&q z3pedIKX0mTzSzt>e012^eKFlK-8J1l{kpGeuUxNcuVSxehIEEfhCFmg>T}&--B8`9 zy3c-tenXa<9-E|1z0LN`#LeAJ=w|ETlf$yZw}*v?FAl2?yNqN{WKNV%&Yq~B$epO3 z4AjpyAcQOD+;3RB7!~}JBwRP=!E(v@VSRJc4W$)T2_*>?31tb@Dy1rwheJ1qeh!HY z-5+uv`Z1(CWEFfp*f2OH7`&J8XM zC}7AaxaW z20h+T{k*!d`Ra)Kh|7rEh^s-xRt0xCcST`&VTFCUeTBy2xy6`8uEk4>DvN(Do@u-e z>`ry;@a-_~aOtq?@LG0>bcu9}bdB_&JJYYyued8Gs_rW7s_ZK7szQ~ZDj$X{hyGd& zSma-HS=3&PZgfhvNWPMMDfwFR#bozn$7PRN4_{~BtG-u!-F;nr-Pp@X<)jLoA&H@? zq3c6aL)RAJi$06Si)o9XMaxCGVCQ|$eXISe`wsiw`xg6G#IN*R>2dFI>2d3E?eR!= zMpsBx)Ros&_?7!r%$Cnq@Gn9aofb70qZXwW{T5CCPK6ZzJHLrFeq*zdWc1I#3UKmO zZKmSVLy8x0ERfgi+pG}F(TlZrjjNJ$f8V&RyA@9VkMOoJM0NB>ZG@4a@zm}2TjA^f z;kQgji)w3(%8U$C5;j(U{rBZU25V{T7fc<*7_HbT#bNIJV3S?_|Yj{_U0i!E# zsBM?uE@G%{!j|=iV%un9P7j;NuGHt-SCjuSmT|h<^uv|LnNsvyZRcCc8Kb+kd5XWh z=0Z37jK0*0IK2pY-t^_|@LO_hH7#kBvsSoP(0Hx3%t$fCaijW|{+HNJ8jll(<}m72 zTT%Pgn3gp1yPCGVUA^9ci*2CEj`r8u8&%%!G^$M2*!8A%jK@~c{u8ug}JG|EUi-acI1pV}&>`Hf~c?EQai{bw{>-}?rPf73{a zNQgFC5QOMv^pfapL@%RvGowZ)_~>;AqKzQRj5dQ&qeqVxZDzD6At74SK?weS|Mjf( zym{W7v)`O^pR?B4_r9*{KKr^^D-HcBJd91~2ql%3rlg86&?hp&gRNj#Y-?w0L~BuN zS}U$Kp|t{8;eqz3_9*hG@IZNBJxX+qnvI(cn@t1suFL+E|0&fq2rvoI4=@fe3@|;_ zJ2k4u55by{CF_+T6(Lm@_!#ZVD^DA`?%c{ijxmyB_uLO;# z^{I_rs(kRAe$@~R8~U5!MinK#mq6oJ1gT^z5;90NN;OC|N!1_0zim{)8dc$8pi*La zBP<_al4{IQMS?}mm#g8+TUFc*9ANeH#Z8sk1PQ;~R!ezZd29LCRz(HnO;x-Vyj5l8 zWtC+WWmPWatXsKT=381MHxdiUk|ft?C~wp8sza|sqrD@kVZTG0zF>Yt8*&+ppT6amV zPzCb_&Kx-h&YXIzEKang1vu>SEP*?6m&V%jLYntIHW!E68UvX3RQ8&dcH0+10`{-Q z+e!j>_nz;4Te50z3l2E?^JlTQtxR%6b}nys>|j0k^zhH_;$Ys!;!Im%K=|IRr8^zu zLDVPfA!UJO!DT^ZAufR~!7f3R?J-Nr?Qy{_Asc~7?LHm-OTFz!?MEGy?QtR6?UWs; zC9d|QcJ<)YL$+P{0gH9PQ)#z;LvW`wd#EL$J*TCS4%5JzW9wfX^C5`lg%Iqi%pPfpxm_~Y z^KfZr_h4zYgAkH;>c7XjB-;@XWE!-0vb5GQ6H<5@ws&WVyrW|&uDz;*I)wc|VJmd> z;&b!(Mf9oWp5ani$9P~NNnvC6RADc)`=a=idv9dPw7n*nyuBvK=Ct~t^GE3PMb@eN z9%N5;DWGF7X!$g3<#OU8EnwmTcS^fgwlv;e7}B*Lw#j-J_Um%~0&!}w7qGO~p%@s~ zp%@%~c(rrce^GTRxwp6UWRHDGu_HX_`s8Zua^|AY^icYpZsEwr$&f<-#!WA@n(>XJ zi`$)_JR?2jZDKt`m&rP*LYet zM8Nw!TboYLM9)f3q-U#VtS8zttLBU8Z`r94Ajn0KH~h)urmjx4cx)^rcP4?5@UEcZ;P z8DcmBT|nMpZ>EvNve@$5c#oHH)jRM^1njnPm}k|mwh_JmXA6a-U**uA9n17^q*FGemO<%`7HyMnL8yz zJ^wD9U`ZWoAv321d!ftZoz$W1f5}4GFBA?!w=PCcTlOfIvpYGKO*?Bsm(My$p&J)V zr%|4>rzLy5%j2Ck@4C*zjxPT&A6)*pm_E(k^ITT!3=h5j`@E}n@3`%sN7s(&Ken!| z)AP`9WzaOP{3>!z#S ze+w4@``6=LCE>i+&#%8-S^aA}4>;QUv)tQNrZ}QFSGYTVuyKBRxVO7JSh%q~(^VKA zetqle&L#O@>XVI&va_i#vC@*f>l2=X2SA)%)-0-_a%I zzqkwSf0UP~E3O;ls(zk&$iAyMV6!fKYI^qa()bD%{?%r!hBWiH_sZci>5_Cs7G9#b zntGmnmiJFIyuPb{dCO+Y^GNte_>_G^aVb19Jmy*@yzS4eO-J5%15qD|J9t6|Eu|Hb6RuI z^&@=xI_ui~8gear6>z!tclk7Y<$B^eEqvk{cTIa;b~XO5@SSAQt>?e@OtOE|GMg0@_O&;$u;|x;$`^X>yzuX>zV698w#o0-~M~K^62X= z?v)4Sw>-Zv?33S)u(egP?RceTd-;Vdg6aOtS*DLAFU>vLdjzEy$Z5 z=sa{|o)xMMwT=67eOs2ypF)RXhh>(#7H-@8eUV1AluflA#Y+<$#+hAKYTW4F7PtWuirJj4a+WOn-etIDysmCHE zAR;WHSo_Q?@YC~J5j}tuXYC6w$CdIglMxQLogxljseTgEqbq+DeH#=p|H|qaiKz=}X<0!!On%vcW*g&pJ@sUM}+Y7eR z@MSYX{5ETZ_#KyfCS>0peWaC=^s@dW?iIEY`6VVI={5to&;v`rZwgEL&vIU>E5l!m zBdYGq+-HD3AiMLyz2Gr9MN zTJCY6$OLoXi&~j|ua&efB@u(SQ_0V7zqwoRP>wE8W?yGz?u$>v)t93PhTFnq))eh5 zf!zBr+h_Zb719^v7v>1bJD&HJ9$~23X#*wqtyeC;kVjD8VZTRqhn-yE!8^d2z<$t5 z(wFRrqA#WqHFuWpc2d1#IJe7 z-?_e5`iblJ!`8?@pID3{3qApk$wFU;i#&cv#(Q^$()sQTwa4S{BA@lW)>e4B!BM&0 zW085}&G$W+zVmQmCoj8OMpkyOjNIj}3z^G3%E*{* z<;XZP7xIm}Ns&HL{oTEhN0CQSl#y}d+L4q|sBW&vq)2tLR0=j$IUX~50cw-GFQbgR zw`^aS(PF5G_jqLQLW-LbX~A~eZl*?03Iakf6S+_L~nfE%R{r4Th6gPcO3l9%d! zpKZu~>B>;IVPqNE8_EJUIj-3!a^is|UQYWvE7ILQQ5*MUqc+He?^`przX!uy)Hv1>7^e zxA$m?wp}vNX8&sCPB(c}M|WIgRTMQj`vV2QJAt#nTH!O5{h<}Z?y{)yyMbec_)5mvcJ1BzarZm5Vd!2nL6z8Kan$iFOf6v z{fw2e?(xV%@~-<~Oe_>(bpK?|!21g;0o{91ig)9p6v@IVu2}wYpTYN=SN6KoR@l20 zqr&f9Kf0p*CwXS0hg`{7`M82yDR}lqk0+3)oEEmNtnE{GT3%g~Jv{6@R)DJ&a5*2H zs*BA!U-!Zkb3oXqhVouoz+g(?VDoZp3yROkgbo@n5o3?@D#f`uZ$=K4s2Q&72v=dK zK_=OtXl7>q`C%A;C6WsaA(hYQfnMt}Q%w%o58q}^8ZaxbXe^fg4&bkPq?)(gFu$ee zr0s5Aijtn6!el#`nHZ0kWc4deCZZFat;z{tI_(h}YF2Hz7!!+Wqshlwt|K%R#`K83 zp0Vezb>OBJ1T*@os`5vh1+5bE=^wHP#`u{J1iU&w(*0o%Vl3mdX=XRSiokInM2O>u zXkzt3%Q^6~m?T}f0NPY~56mOUm`dMf_n$?>FlEGZ-B67}mbA*s^Q^!}!q5jG!IzYc zG)=^309a)L5M%^2i5UiPBJ7ma)O!&Kl}Zl$V<-e|2vmh>j@Au(Io$gpG(0vuRY@D5 zjrJ`)G*eEVMuiF(P3pZF;;VvHJOml3s6NFGzY!CCiR7aC!LMbQq|sNW0d%%AGS|0Z zhc@X&&li(^RC@WC!^;ywJ|x^GyaGs=&ki7!5yn4)fACJ>KMs6qEbioX^dx@&pi!@~ zJH_O6VfOXVF5|VjMlwa3IzkUlF$<@b3hPZbS)uvgJH!gr6}5s!uUC#wu&8 zA``V9YjImn9tZhQmhsX&x4!W}MhQF}$+b+Y>(*>y9pas-YM@ef3jI814WFFiN$x@5 zob?fvBm77te^&qTeBei9c^GF@9;fyQCwQL7ZC6rd7@TihVzo$=3(Cj5B@V%a;Z<2? zs@Na;dA(FcXcbn;7bHUzJ>PqTqjiMwVbWg4_ zDa$yHmd{;Jb&CsJ0#4ERqt{pzql;9{M#x*pGa0Z?Ge2iuQ4!iQ260SVtp&VDie1q8 zfuGnXA_n4oMHPkvWB5HjxXO$a3xXSq617Ss!WQaO7=yuv?oQ?&{!Onna8;H>7BLkd zJ(Y1I-c+wksWnWY$dYJ=%1%aGo%jOcVr#!{54e`j&A(V`24;ivL7rM{*BC?}BUb?} z5q8ne(pampXtZX;-~kNOZsI?9sEhUj+)4V9aXxttprPt?ZGHHl4O3ZHshLf6gw7hv zDP*k)Y*@{-gCL!Popk4Z9&dTSTi~Zf7?_vx1fdAVCVff{yV<(0wVC&lGWf95{c-Ui zL4@&or$+f2YRV{S(ulwu%i(QaUOeR7E`n}~S812GeLna7X~oP?BO;>n=V%_RPy?wC zKXe|FaV9a&HUZ<(sq!rh&tPC&Gp8}(A7 zHL;Sv?sXaQ;m+=jJrr~*)t*@=RvcH32v9Xn(=cq*5Z8D2U30=3zl#S+Xw(5Uo6I(S4-Q$( zVNiRaEi&V`JhT-MHxa=0CV-36oWF8wRodRg$>Wx3w?KGtEbIWhc zf333AzoB>#!aoK=XH~LONj7ddI*7M)VEUavlN~8Ta&>+6Vh3m!rWX+#)-@gCiu9jm&i4~1dAdFyun@Gbo zprf-3v0bia4;%Q|WM1>67ahp!lr?VxtHKe>XNxDrMn6rL`wnru{nV*oq=?)resh0& zkC94U**=)g^U(D}ud(QnJk4UNdt55j*gf1)d%C)Eq+LE z8c)4lNl~_j<_LdraROK;s~4vc`fqq3O9uwnMGLyq{&K=(rkMX$QDfe6P!d1S34Swg z{7CAgRz2K+I*z&yjDep{ASL3J+A z7p2_MKa=F~*`;Ox*w_`SD3!H3f=tDCyUHJ{~50=BDX@k$xIfYZe_ycUJV#W zR}cpViv56Fqo`m!Cw>-UqHpD1#(6t4cDT$?Qq^9xu1D8~75WV~MTp*3Www~qc+>No z7f`L`;AD1}2#EJC%;dzi!coxsk|5Rem=cV%0exjP)!c&UBR2|FWuhdGi5pSL+%E=q ztazaTavIa-GLc9qSgP%FCaMb@sVC2`YJbZbhQOh}eq!npcd}|TCCuL(Vf+rrWD&6T z<9Ic4fcaID5m5yuIdxB=2iFr2{Gx)URV#`CD_8! zZ{h?$ljuDE?j_Iqc*urH>~wkm{_?~Q50y^Ut&&6URX0&>qPvRO3uLyc>aw|^M9|wv zv|d%dxkT*HwOZBW(mcLc@E6Arrx+J^zH$>j&fTS1(~onQ9#VN@2Wj%Y0spN5t~6%s zw{7oGU(ofb)<}{nVG~I2?wx{-VC0MOg;*6lXQ)xzL$mG)zQ7C8Kz|Y8mr9ef$eeTu zmBx1o6{{nLT|O?y`YY2C=w zJa^VH5q#S4X=3()YJ+w%CB?MK-+M8!GV&?Ln3e>lDKq3)4ybKsA~MK6LLlvb2l))W zG$kVZ{FA!pkX}NO##^{7u2;<2qV<))0&|mJv@Zn9VH~4(H=hwbxP~=m^$yfD_qq34 z5{{y4h?`%|+TQbyK`$m>qnYAsUhwAGBbgkfiWKFDxFpca13&h)=x~Q{Q%*c~o(g-L>G)4X-DwU#e5I5m|-v_zQ z!q19QjE#ZD@HUS8`Qk>&;riXD3BC8u0V02ddUDdB6CiZLcw}RHdX%xlLDEqh?3nwOLq-%{BQmf_nuSg;^<;un0mMa*!yHtD5BOtrC zyCx8V`!_}8{Q2*|1$U}GzsW3IcSaBu4Bs>0pwymiVyS*XOAUURoQ-x2&oYxu%_S7O zgS2r}qH^VuZ~=bQ;(X^sfBn*M#$siNW%h4|F(#DZ2ZGVUHea|AR{xEq&? zI!;CmD6Rf4LQ2CGaMa(2er;9C=g0@d&wcoAWHUHtGm)2Ez$rF3;QYigLi%OD=1e*@|vIZ+T4|rNyFii>u zntN;>4<)CO(*Yp!AWb7)T(^-Y=&G@KxJjfwhb;xhrMqy@(KVV3ucMxvpKra-^ne=1RKI>4<>B*iM^$=SFgl@gP|I%N6=bX& zs#WRwv67Rps^jPP`x+*k<$OZ53o4M@ZEej*oWz&sgG2kzegFw6p0p!4oM!cO+4Njl zyIHS9^EJ|#f*I%kW4T^Pd+Q)G*3sIB5(-8ys%rv+qOz| z_!uM*JoUM1w&z)AF`5pjHmt-c-dN}Tt?)sHpA0Nh>?wR5Qn9Onu5N|q?`+LX3JsW9 zwY%nMP2NK}jL;WBz)VPShpP_;;At$BFNR-1S+@X39BN_heY<8US1qPb#Td|5l`L=krijs({e#_Q3oIc@EQ+3 zjSTr|E3m4HVQ~3{hLGtWl;K=9MU}H;N7lQlnVr2^M%6VgbYgkXMO}H{79v_7dN}r< zMlq!*Y)!sW&5V^ob!@t^I34K8oy_OgF`Wa%ku6U#&TQ2!wtkz#Y^L(3dy6MpSZpzv z0+DQk|FZP-hd%F7xPk?UXuTODo{Z@&%TWD}#j(eL)6D2%ngs-PR3*oE`bvp{4&c1mMq*yth2Ls{s@y|@G?VX{T@qBe z*PK3?6*t&T(_6g=}zuhcR{KCF4-3e2KyD^72az021qdeE?X7P3eOmT`X@ zvlNUSxp^U%Da-7gnBz<2jR7844N)=c(z-9lM8}0@_p^y=A@|{o*KkF7-yv&!aXN1I zo@o74BGdiEEUqvy6E#d5ETjj0UMEde?@gW<8}K(^vs`pculJA(!zdS-H_U8 zfw5MefTexF7mV9e8`H-Zj0cz$Nf!Oywr8r`+rD2ForsnUd#06$9T+F zUSuOM7?)CMOzW2zVP;c@Non=@O)n_J#e5*2rl;)moL+n+PpPkI_`T53R{3FIt8m{!A~o%WUPu8 zF~upkxfwWGKp$!^`?!pzhMOt*e09SRa%5fnVNQB4-6%Gz{(CP<6uqy#j?&dJqo@}| zZ3p_71e(~b>LoJP_BTv925M)m0wFiqJYEM9PN| zAg>BI(Jf!CIaT+KWzig2Dsz11XspKC@6LMvWZId9-N7WgO7C2*KSk0XwN${0G&B9F zf+~RR>|D~3^C(iR&28Y{kdryl#m#^$W11-%(CDI-E{0pmwd|C1Rq4r9pMKyJ+Gh(6 zt)P*O0VDgzg2WTi+5MGBr6RSe+wzL)GyS85#!`y7N<%(CsJ`tnzbG%US>HRzue`;6 zr%|*+OQ%Jh0pLf`YouRBd*|Ho8j}I%k2Lr2JMEKNFra1ESy+4_jc#r$)KkA%hi>sY zwM=76vwH93N93rL>hrEUwq(hS-FlG!aWc(WDz35tqqHNQd&6zQ0akK?eur8Ix@zw4 zdTwC0MU`en-c%KBTXYl8f#0CY%S^Mp20c@##9-st=?MKLTlM)ltpvqQ_0rV1@&{98QFI-Cwn28P9blR5r5bi2dL zJk+egVExbnP-vcLdPwTgqs#DARuus2?)D)QdDsO6()%@QpoHw=K7}{-PR2Fy_^s5d z6iwQsv0}xfje1S?@Ht6m8s10KxqS_7#(pC@t7n^_4E$Dtj!QBv<#(cl!$zMPLU7D& z8ngr#OjS8<6tpyUVyYJjwS7)P-R{s8s5I*sMB)$ck2N9eDtN*YzJ2`!d>BY$;Ev75 z81^$0xCQBoPsL9-PzQ_u!`*)Zo$^ib1}g)NWapj_5jB4kX{+QNG=*aCC)`R|szp`Y zr2H~sg5mZJaY?r{o3}W1$3+iF{PhJK{QVEeMuk1jk+Ae^w<--YcPQns)VDD)EIC!0 zPdo_0=<+&ozKoSM=Dxu3ctt3w+V5&^Y-o%!x6iyyH4`?VV`HTd0)}nq2~02p{mFxX^x&ez^@(yjK;}t&DwfJ;4(S#8 zB3~0$^2#OiyiOCQl|Kb(&&@QDFcP3I3(V^)e%;Qt)kqH&{5h%O6`Wh%GPL->Le<{$ zRhceE)|HHj@>t0dVE|5HL<#3+_zi+I zhj61g&hLNIXn#Ev?~+?|V0|MI2tN_WEEBZ(cD4H+UgjCdwBS@mUs%~%aVAqNHle@q zTVEpx-^!n*@*4yQj^^r4;bZe&ZmG|JX`N+~<`ZLMDLS6xbL8yar*p3}#17IVp6$}| z8iEUet&@8~ydPA#ou;)xFMrTaxna!$ik)>JtTegSOqB_J(S-yY zTn&q1zdKvJD_Zo}%HcGZO*V8aS?WA_n)#fD-&(oR;ApB#7jE`I@&%2}d&Z2xnUa1^ z-OBs%ik%`Tn5On;KHqXFjGX#MW9t`>gbgtR$M&bSQn*K+PsdY*JLq{o1cU7r19`9! zlhctZGG;@r&AzMYiD)MyVsW}Y)Q|Lzrt&`;u~ef{QysoOOh8y2DIsZ#58;#OGRp5k zVI0?AE6Ed^;{Z{!7tg3aYMC5rcuPe7-&&+UJ!QsCe2=JW(!T{hsrwlPn<|9@y&aB} zR(C%QtmD@t5Imzfx*NFX)^h0hDN*N7p=w1rX@SZX+ti!i&lqiv{#Wccnvkm2aI5c) zEw}pyn4q~aSg*i`9Cj`8hHU*@YS&u}94=1x#-kvYu9duhkck17(gD6o;W=g;Gvt;m zu*%$wGug+OIjB$qE4kNZcCrY*Er!G7J zPpA0@k1*joDnlBjS=}xPt}JM70OCWLmxEus?I<-gQOgprZ1yoT=yWaZp6HB`tXN!A~{ce5k?66O=&7ad8=D6Av6(u^5!s@_;ahJ1VT(MeRhA>oViC zMo%wu?-+6FIAYVo!%cZ=(|4$JGZ2G1P-L{lP8|#Lfs2=B;~jWfD(q+h;5G@xus+2f zZRO9g`eIfMCI>!3{b^?+Mn2RyKT(kP?~NNlg?_4-2J3~)NzAz$yYKv*dfj5kO(%oS zayk#%c$BeMbHn)V%2ir7Ge=MJgFs^jp0xKyUhUo%C*vG|5WN|YlNJj@g15B`pFxsp zu|1Ci^1rQSq5s3&771plIGPtqxU#)^_xo99kTdi!Z7dO48-pPTP+EM29QOo%r0AV5Pt~*#=y!(< z`HI@r2=R*!!E|Wyy8>@R6x&`q#Yd{a)8w47nE~JdLi9AuVj9{DZH)C5qTe>O|IfTo z-~`==Vi0uGAPD4-x(%=OgCy*+vQ45yoRhgRfizelD zhI`eJsO!2>AAKH=o&&O0(^iE48}tElc=OiX7P2VIk_c~nMP_0_@eQk`1XuY}aaDg3 z5`27Fm^u2mb?6(>6>~!f!DSB7o;8n}(bMKZgkc)tq^A;U77f3iapW&dxpC{N3Lq*8 z)(pBOVj(5sSgN^b+4+TWYVL1$p?<4Q{)hzq%$$9*At1KE#4_hB?_RL`>c4-#cchny zx&_r^uG$$p2jI6;$mFK&jF}<+kbDegFDJMX$X^B2l!pV1Wm2W5r^}~81o&|VXd1x| zBF~Ny3_X*wChrm)y!&|x%dYD?15J!3a)wwYee|WThz2a%vqlaTD0KGA+|3XVeMjjo zQejHm=pQ$RG(nrx=IPyb%7;hK_*RFecR{W9e`n6!oU@h;p6He_55nOPr{M7)zOCNv zO=x47yn6QLz@GnGaF|N=W~;Mo%N0*W=cGaTu1Lwq)UOs4F;Lj>QQ6FmZb9jDh;#2d zVe{SmfL;)LQSbhN2wKFjkB6tc_AK}e{m@T0=GVGW8*;a8wk#nKDYab;=Y6x*&*+p# zZ&5SSL>x=G9(ua?fe)o4Zy}TK^tr<2O_}yK$R$`Np9sGxLDEp;`tJksy&WpJ<(n#phAVYjQv-Q%$J zJ{uMtw})`klvS+}1fi54*I~~s{zq*4L&=5cxmkQ(G?mzHShBUlY^Wy1T9gxInxC)l z25a&-*05>Ic(r$L08h7lUp$YKYT9}5`d#gTbu3k0>BMKj5>t4S`M^^_QiXd1%-s`Z z{JV9$&%A84uS|cV@68gLlNZ^%+6U)8C|q5$@?q?bC(I|F2R|tTR^kDzDE}p+msk(? z{+k+_Anpnt+N&gL0&6lZJu2bgO)Ej#$eD62X7W>`Rt=>Wo4U(X6jyaffAOG>3K-|?-V%oFb7<{wKRA^RiKmVOZ z$$%?JJ~%`d6)^6&pl#CB6stnKd4 zSLQZMFxK}>#PYD=1UFvz0oAF|BEn6W>iD2=8L=&Pof8Hx3$z&QMqOM*A z%5>ch-8!@G!JjSP$2~P+$aIZ4=%_!Vf_&3e`o>!nGwO5>Ic_&th z{B>BwU>pj8I#mMvlfN;om!jUI0+WjUYom5 z8$vuEQ0DUosS$kNel4}ob0zkru5iOtA*ib&brLD>boPAnEgg|3ljgH(Vu_aPCn*egVui@ zl~T|wtLOi4;zAN=Oz7A@5X5*G*GY8(#r&g~2#rO#Hv(xac1|A$m7V@HvFFN@Ay6^B zUh!HyD_8tx$ESLZK#yAf;tS5A#s?ycjP_~{tsKz^2}A&MCiI_3iRj{fw^|;ofQHQO zQh2SyP&tkXLGUNP!Wuy@QI9UhYZa@Khu1$T0!AFJG+Us^SUDl_e|U*s4r1U#BMX*4 z>M*JKRL9q5@9vqKei+?=PM04?%$fXQ@-MS<`90o(mW!7ZqNUwDn~7BG$I_8}_=_uq zg48U^E1lfVE1pP>Q-FBYC`&dTHBeXR59+)fdpwQNS%Sj;!LyIJ1i{7}vdr}^i_wHq za4EuESDD2oi|F>#Y%aO_p2g;>kA6q72s-3x2aRxov|)QkPTs$BM>EgoSCQq6(t}-d z$l<9o8AJ{pb2yy&zufN)OXtaVE4?s6owrfBl{}>fwGV$JCsN&dzUtY;Y9+1M?keDV zkS>Da2TXOoPBW>XBu*)1u<>=6-O&oCE{WmDIop)LVJZ|W0W;kG2926LrO1IfnRT@& zqfcq`(A75D*sHfjA2B9G18@V0B2-wW5+iXXaZ%#|dN8U68d#?1!SY1Rm47>K@WVpV z>=6GO+BtIxZ%AOTaG$nJSp>~F^aZ?9w_%-B`J#oT^3y4tg(NJ{WimD#%owk$R4S7| z>z_bcN&kW7i49>E)4`9*j+k}#K)a#6O{a|^Mhj&Pp|37n>O%w;cZJ8ypq(J z3{gi!sZl3*h=I0e7Dq8D=36d_ zH7|LVgC>uyAxUQeEKKF1_^JmpDGop)`5=bMFtj1&TOiO}K+Sw0*t)z}W=t6#_hhp% zYl-&dT8Z$Fei+1%YtYw3mD^vfKg~=E`T;Nr!=zhPW9<)*f&3%t8nF7ZGJVvk6fcP^ zRHpaiCe&zC4uY=O6qK&lZI3DVR&yojSFf=21T}-ERPYe-I8)_r3I?}+W4h$r`JNuM zxrCtP{YHl( zL1WP#ZilvlV3ZKW!kC(GEUWVKCg!LE2JyV@GaY6|XnS+$rtoyiBP*=G(wD#tEM zBP(ErrKsE<-r>(3C;NTPH~YW7vQ(7zsJT7CmO59S0h0;xjll~Gr~^jv5V0_j$_wOx zLa_dHrMpD~vi3FY^*7aWnIM7J*KV3tb>*8+ku{vNLwOW%8w0frY-o5!e;!`+C3d`PpHvlx$7Ia(0#_qYbExZ;V1Z^K%Stj8ZI8^mLEWR zyXhlWUl}mmeo#^RndE?Y1w!(ZM62Tm(tM!9G`dB<-CsvL3^sr0EJK;Zymg!+95yk-@}R3=C2VW+GjXhEKpc;cn;3^$KoyUfGQ^AeZyRTpWzqx;U4B zZacZ#Y9*L2e!ijZ+a;(26xAxx+7SJYR70KSu<(z&x?ypI*|S_a7^aDUpM|+8B}qzU z0WNjhz+VP-1GP&;Lw|fG6I?ULCzmuI7Mew4p^Z=A+PTg%(sZTOEw~0o)0(6YnF$s8 zcmVgtCN$GOKxFLabSTc*NPa2)=e29W37LNhqeYu<^P7 zDhi7VXH%otEy0*p7tk>~=zK$rBowQkVea{(t!0RjVX;Um^iA1JU@|LkfjSO>{4o(vW8wU`-a~uGkx1BsC&2eyAN{Vy#<)5YkR=8J*DMp_eG}s}` z;?>&};4K`C9=Vo1485+(qJ*8N+z6G6a(LD#59dd39U71`OG!??!a=9n{IgY__5ZDM zYsf|R`|!Nn!k^{sHw7mFX^vi31tnJ-%t1DZO757R?Wb9GEugt45M7&enKh#rbOZli zVw4?9BY<<_xw97YW_Y10wY13D2lkvK51q}A0QlHviG z@NC{;9Q1rULJ*=;Bhe>_2tQ3?mq55QVEug`z$~NuCTEAs(&D2<#q0ecZIld&892F3T_tPba18=caNvX0q;4oMs{z1jvDb}GUZ7XaaCW2 zeh}Pj06~3a!b@D9ANvS~Hmus5VlmX*O@VH7!EX-S9StcZ&Q%lijLjadIuB%{lDGPT zg5VWG1X_y4qvtmUroX;vxBrMYWpj7ZO_>2j;<)a_632bBzI;zkJlg(YvgXva**4bXn$Kq%P+scV{%!&CI6O_;=m6&+E1|I8qjiftlRjoP-|_`iLd{ zZ*jUMV-nj`Zx-BjcLPFz4-~7r&my8N20^tHDtYJ7%uV^`QqrPW$|;iQ+uC3~y?C?l zW61fdLWUn1eUST7uJf!#qtt;kLnyVoOhKmHEAh@4g>?xvsHf_MIT5K_Xbm?aCUvpZ zz;BT{(oP!Ein;;D{j#jn14afftr@DPK2E}$+`m7hu%hSj8&I@JpDG2su}TBOs>X@| zFVhI}s^Lz&GtM9SZ`F#XWnR;_{b%8()D$e@Kqc2MN?+~%P!#7TvAYHL3kDx9>RfQy zI7ii@B7U7{C+zCJ(L{z8lzw{~12PAzX(vixwN}Hc{XBs94`)XYT1f(9qF;YL3)uVa z1()f-65pPVx!F}U=RVC7bR*I0CwV?V4XMJbYCDXJ7QxA^ak?}1+g03%<~ahki6Z39 zKx?rfvMR^ieIp3?cN*?~haFT)x%9`bYBvhgM1?^UbUm2O5bn1AxeQIzI?K|?YkM7% z)H%}o_~eI$t4=O}0jVmO6&p*poZeqDVg!LYZ21-mfdSL`jc}HYTC0-H+B|D{|L01= z1%^+s9-su+XmPFn)8*%ck=3M7`X%*Wf_Ad1qvi2<;VRUn`y=&|0VA=|?PIN^=z3kD zq-uHYdf-iNN;gL$0V!%pe>x^x!#x{zSC|bunoxQUEZ5sJ35xM%9Kj94_<$>L>lUyT z32gNOSP3Aixvd-_Q!(?!4~T&iUspfq+qs867i;3F+8o(UIZ9^5GhMf*F4`4(Q#HI+ z;Q|l&JQfEDQ^J28bWtI5-j<3!rp!?z%}x!C!YquD6C{Z&Nwb^(KhqL!rT*aFj>hym zO0?RzKIXlUgI8Q-Zuez#2wE?^dEwkJFn*H2P~N~FSwU^wkdn`xvR9ZutqwEcUNzA_ zV92AgdGT~GajTc$ulPzo$0J&9u|thn{4GKQ%Pdn&;2c==`g00vn77UiajXF5+TD^Tu1B4ydHf zTs`%xshvE||0Rm(FZ(dq`PJ?p7GY-Kc;a{_`#uI2_>k1q@bX~^CwO)q<)&REk(-eu zQ?Xn!R`5;ZBB8&h?-UQzFI=Xf+qEl)v{9QgPQR0TexPjg6zn;flCVRWi;CdkLH`1T zAO=j|R({01p1%)8Cz*&{-hn=CrKx7!@JL@t0$mPBP?z%PlpsCj;WmlF=k^Mu(Zds*u1`VO>Z;rVYJV06E z^;~p>7|yufu@Ra=g_Igi5ldoejfj?jXcP4Lz&W?$0q0{xUpjkEwQk9j3Lb;iESU<% zK-~WA{M?B@xR{;?ILxTc=lkRv;-u!5=~V&XOb%3|5flkW>=_;Jy6;3XNj@C;A24S2 z4;z41yQ5maHk48J<;5o=2TRhc;)EPPIQ&imvWvBp0j-t1``Ym-(iiu1OKI{e)hP(( zyM&R|%j24m*eHC$ODh=CdLs4ct^2f;`3yfG69oM*xB1SQ`5h0nJ#%;&e`fjM&>I@p z45j$SHE;LWl+E&w#KT&IoO61T33r)b8@jwt>7xTTn>!~0M`(N_5jJ>CfQHVPK?OT< z1p1*)NgJB+KA1j-0M<7)?ta1-Qj}N}L&mS~==IikeKVE>q>3O;ro_!!#n*{Iw4csj zH#Nq`RSKeb7V!QVShWq_zs8Z!1jQ+0!>4LKBYoECEJ=70z7VOKJeIM%h)V}sp)cOo z>Xs!82YSj(@DagurykYQCm|aB?>ixFZ$)`O{!5RJ4~7j+ydcVTBuk;ppjPg~?s999^V4&x05vw7d8DPgAV^MIYZAuQbfo7X*a-4$ ze6kQ!{*oV;)ja>AhiK5Y-;0&7m!%ekS73vx5VHfy{*8@zVmm?2ZKG%a0)sF8-=(%0 zc60trS*%T2^D&;M1zNibzOWZOyG z!7HrJh&SUrJL&&7gvbAPh?biW%>Pe_mYWdF|4)crxdwC1B;Mxe-Je;KFTOP$ym#N= z7#vVe$&a&Srf%_POJ1;=XGp@Luvx3Mjrbn3_AocWMu}=%7KAwti=rPuD~eVaIxg_N z6?jTi*B_hDYS=>hw)(R5Zu-)*VVgPB8co7Or^`olOT@YLj8!qx(yW5~qI_Gu^KW9z z7=OToH+<)x(qUi8QY6ahKpCLj{23tA@ryTg5EMUW zRtlT{Om=dh5n4J+d}i!4)7^Ka3so?atA^@pLbONTFffBNk|s7A=h1@$&qLm2d^`XT zfF{B@X9r$ffiZp}qIVttwmNx`TFo1)Gt9?Y&9R2IF)cs*fEI%*ke+Q=v+k_{;(@gN zHlWuGX~C;2&FDK1$Z?zcKMM9A8e|hNGFkKYvM^GTk$K$vX$Q&cDmRE71SrgYS+wz~SEL zAtivma9kt4yz`)|i$6th%V>QZc7JnJ1AAayzm=`Jy}FR+eDp!6Q_PJx7f-_JxV=EN zz2Wb6>%;zE(lPT?=#s{p(N(9G8LnpXzii~YN4tx(#v4F$LEbHV0W{)Th;nY{D~n!e zCSMmZJo1H*?sv6mx%p6PF2d6}^HPPkxJNciW^v;lv!P&z{~u#t85K9wwcD0b+}+*X z9a`Mo-6`(w?yg0PLy^JVwYa+u6t}@0?zHdwee16K>#mi|oa9WlJp0*aC6nar^{;)q z;Vgc#eN8Mgzs0iniUnsiEBG+5u}TR?v@?&d;9=#)Z=%%kYHcN}+`ffY6>}mX+kq2v zxmiobH9vxjI9XtE9p^eWQx*F5cBq>+%|}c46cZ!$&@A$prz+PmtV%eG95*MH8zb@i z3tImrV5!LTGH$v1B z19zswfwd$DD~dydouaEhOI}0OxNw1%RPKA4&dc6)ioEl*(ld{K#nfcX=*`@WW`5Jp z<&1_Hdli$qX}>n{_A=XYJ2?OVMqX;kkIMuM-|# zDjzKEa?iUg?ONsC;nqgvLP?8R&4g(k=LVV0apL#eW&mcx-PzT6ffP0|Xp2SMkH)Ki ztneHw8asx>ZM@1@V)edOHR<RFfJh_I3(n=%u8-pHr0vcPG4^0Us`W}peUv;}nhfkm!jLWe%XNI@6i`)}QQoTLVrJSPY0zzt&I^+A+glYb^2O0{HZ-@9UqO}6k(7M1 zeSgR;H8*2${oH?Z{`KVo-)a%G z9}50os&;_&Pc~)}$J;HOt=Z|yK2-70G-Y1-=dnynx5?KC-l{T?|n4Lodd z#pX=*8%@n~0=aubZeDzH4l_?tzaGXA=SUX{$AGIZ3r9M%b7k6RuD}OMBP$K>4TfO^ z_U54$vp4^HmNz+VS_#{Cq>`hcS0T}-choiZUo%ykr?^?F5AVCpt~vbgLK~OwXX@{z zI+ZfhC&=4vpOeM0WC~|Jb!JhcIO4ltb5DnjGieFtUIaL0@|%7{#J)XJ)QehR>gW1& z3UOKtz0lBj7Imqu)qS4~KGJE`lnM6q=I-RYmAp*Xk}%;mSYp+NRS}5SuSODnQLBaw z{i0;!cwDPeXDXqkYCQWrE~_NOD5t2UKr0)XBPr>6swtFVPH%su=ma6$0xhXl` z6Bz&%PobyAjTy~8=)S96WhzGDWyyL(AIjNOwK$vNT1GposW;O=Kcl6(8o>c$H{Gy0 zV%w<-=A^*C*8KASwpJ*Nb8N4|YzLa|p_~8yYQP43e^2{w=4jKN{juz5SfxD`2>svI z;OT$&@#DlH9j6YuDd^Zd%Z{*^^XBNO(#H|PCO;{vJ#{1ByrZ~t_Qu+15M2DBK)SRQ zhW_#i9tkxp9)`^-G2=s|g?Mf)TD(Mz1$c)2H4~}AYAPAp#`!|5I)`G-h@5nNC0g}O z#l7MvX$rAIC!| z+z8{lm+hP+J1mTf(yJtDJ&HOQS}kd63xYecA%3;GMw+uBb+a0b_x!9rtvTzo#-9)M z9E>qKNLH08n1sMgQ{Q9O{q^9z?nmoX`MauVDRLr%sC`N<>(j=*Sq7>RFpC|~>E%>= z@!gn?a!qeO1nct;bvv@-r+#TI=bD?E&_aPGl^KRwy(#Q|Iuf2!vlGq@=~FZ7gP)tR zax>vw87K->i+vQfo_ZDR1=jsKSwmN<1m}vxynBmtwKleU~J#rbFjKGV$H*t+S*0ug)h_FSCSV{R3h`6*ZoPbJ9wyG z#~)DkAm}>e$wT%_oVIp$M?S~5yIfi4%l_VKx46sYJjLk6YX`U0Dx-PY>%?exHh_Me zL4UNw7AkMg6!+bzFT52!Z;{p-CcW}jCnORJQ`yjR-A{&V`j^blCsTos58dmaQeP~j zuje~tlrHH(8|9)}Fs6{JuZdVs{Z%kYXX*)fwZtjXt_b8?l`eIk&Wy1_j7u3`LKJ$7 z0X?BeJ;nCjp;KMOOkJVzoy8X&3kn@7VSiFhMl&94Ld{Z>bZSorFw!s$REMjJ>TDKw zHwH_W(h|zhGjn6Thi&M~6=l`S&?gC3_<65*B_dm47*q;;`pDpKcOA`qXP-?a~?SPzm;>vk$sj53A34`*=k5OS}}cG$tn%=E%&V zhHCyUrwdQ%h4otW!RoGLEtpqy762SK!^75<9s+4STihr6Cq~JhvS&w)?pTV=m`i13 zCb9E*%Uu^-WW+VWvp||ds&fdCkt-s2C6pfFkOW%Q1Qon;xJnTm)qY!o%|yzIs)YO# z9aRZ6a0gfuXfRzbAU*lmymzumVc=x9#OSTjcG9n461GaKzV1fC$8^CMZfjNe7X5l@7g&AqIhM)r*{x=EoS z5$vP2O){3w=An)^2d5~?*)vrmA0%O*Ez9eB@x2Y{%dW51Hh#T+V5zD#Pn5? z3mCsZie>quxY1~W)O222CU;f+)3T0fCC`e&D`kn+y&E^$(W;W>D&bZ&x*^8alj7#k z5{J+ovY>e-$kswwV+o9qI9g2twFF-22ix!FQhEXA z9cXqxW+BnHJ~i7O)!cY*NwxkOQOCTa+q4u>kzSkp(IvcZZ&IX>ud*M)jiT+ z?-tbX4bJXzO?3?I47W*o>L1y-7jmF>5?ii(_sB`v+09Jp7mJKJr$PXFuK{(onA&sH zn}g#|Q9EZCyodz_`D3Pz34aubr`7w-eNV1Sr9Ro1`C8ZZ{UC*;QT#_|%WVN$a)shB zZ{MLkgbeMP@*hC0%aSMlxWIMW5T7p|7?)>@+ zr9x@i$_s0e7FXRwRwmE*yiG~`W6E5EsTdRJ#eA(vLMX5JKqYczY4n12>KN*xPIvsz zdkJ#Wqt>rsrZeXQVIki}MR6&xY zniLsW6-F^NhnV`huafH3O)C2*tp(-8Xys)uJnFh^MWZn|bS*d#gxKPzHhT;$BxrU$ z1f^dy3nw#bw6ki~q*yWxs#@qA7Og^qCKZb6^{Q^szo=;=RsSPLDN0$zbWrbHqfx_G zX+C?8e(zOygRViO_E~)nLQI`CLpvqq&(O@hr&+qjy~m?E&wdX^i6O8+rFo#+D{b63 zut8>}MahQF`KStaAR|^Hw{mpFo*%W{gp374b9VL?{hvWFBi?nt+MvKg(Qnt^6|TSO zTz{XqItXZ~ZTvO+4{wVVfo?HkwLaA2ACyt;0IG^#-amh92M|%$VNR?4nqD{|=Cb)_ zt7#@FQ^lIVN`rCqi$e)2IJR;oz#QM9i+2icmEdTl`6q&l4jJ)lrg92|dk0f0BHpoV)Ha#+L{q9#?m147@e}SjXG>oRP!=1XwQ{ zp|HE|xOlBjN_``g@O2OK*4Z#H_zw~G;W z0>2aB-hDG7K)eeyB=~eU3BaG)kr0GY*+C;RVX0{5r!BSSoxSa4zJnFFs&E)>KD zi!Ka5e;sKDl!8~lk#vC0|Fh$3e&vz&SGBpu4+`MbV6G}4o(`CfHHu;mp85dMRN%D; znuGIu=mkkpw^n>~NzHY#9#2cO#;v^mB^GnX=(Bpgtv)@p=**RwRpu|!inqWL9hCaw zFG6wVz}j)2Qh}vH4%V|)By$;y63*Rj`0z}2gim|}->90Xm5r&ivgKl4I3?-KWXiRp zENHrlUCxTy-E?fHE~b+rt`6u7|-oj+OZMVc9Jgc4XJzKdE+fD znpk4E=PiQGKd;$2H@^msG(^;KW>j*tNlfYJ&5hI|e!I_W%#xTj z;;5%e1r;wx38anM50C5I(DI9~8?R!XInBfs;Pi7zap(x=A?QuX*mFk3 z8<5j)xbbDHk(tEnc!aW9W91FG1vSt#;mOL0U4Z9LFO!(4({!ZOs&goR66a<~Au>>w zuBV)fcMITp`}PY%mg9ApX;!;%RW=ezLIP?ASOXkwQ$IaLJYAm+&pEX_HNE)*_s%?i zz85`_@%vlGd1h<2P1ADZZ}{W-u{QW{9c7T6Os`Baa-0|5%ymt$*C=ZzP0YU5b+RkE z!V;Un>1t>jFiWYB9)a4qP@u%e!ix(BlRgvOKXKjsn)rH$e4O~icz3Xu>Mml^2yKl> zq&eks0c``D?ko82A*;L&AB@R7@=Rq)5=muG^!I`{O%wX@K4d%`%N{H!0Z*a$Y~hni zsaMtgJ1GjrQab7z*&+)Lf#iD&z4RSY0%1#)O3{oE83lTGYPCN}W-@xg;@8G90yx!{ zt2Wk4pVy!Qt$wkO&Y!!ojXEVB-VqF4*qT9abh$!rR z>Y4dkc6#>BqZQ@AI51popUA&`4K^=ZZFJI`4)nTy@4LF}=P>?Zw4P(n)KW(uo*S_r$kb2@eJR)~r zQR?l-ZEd~4w_YLUj%+*pII4Qjx7RsYS~Z%>1-?8^oe;a#_w`z0wpBVPb7B|RC$Km; zs^HQAaOqbH(DJie`faShF&UP6KPO(t4!(P19IQ>|8kC=@6&?Zagb&OtE^1cFye>*i zX7o+G;5K}^-KYJqxZ|uzCrs!E_Epcfb#EKn&fdgcl&MO)r|q7b?&f#`hE;ZDp?@eh&&*3jP_Ch7m$;4@pOW zhQm=Q4VP~Ca}CneHne^ZUB)xcY#@bZ@GuA+5s0ndzn90M8`xe0`3!=O19FVN;-7t7 z0viPUfCz-_2y4wN<#&KgGyJ8Ka%uQdo85p0U^LAn%_V93dTrI~m@ zrgus5IuM-qn{Wq^aR+jNHUWxEElAG}AHqSOz=krRAl(C5_(MfJJ_3NV0A(c2AdY`X z0k&sZFCDP%wrTMDU^;>(0ZK>@$kqM0{9zE_d8)QC#$VfjzM4S{f6amf!?VTQ0i^*H zJnj96-wV?bHfF&27Xc^*AhP^62e?Y(@kcOvg#9Xi59ZK)W9WBnL5c_azfIxdm*vs& z7XXEA?lu8~(Sr&O1Apj&13bX+oNN?g2`C7*gF7sp`My02 z3CO!14u%KH0eTpOy4kb0Rp{q{)nrJ72$t8k2bgB8K?-;H1a?nj1nImF^R)jXejl6% zWX={B*yO)Pfla16T&E)Zrw0s_2zOws5OW98KY!3X5dR}qh}{PotoZaVJ0u)F*>BGh zB@)v2g5^1L2Tl^r2|8f>lg`E+q%rOJweznN49npb4xgz&xV#31y8mJhhJZT+%>yF+ zJ>;p^_g^;vcqOv4{ZH^;RlM<%e?$1sh1^~k-BC0onHoriZ65r7x(sK83vjsMbp8_U zvwpvBFGx@~^dHXPZkfMgQ?CA^W%55ZF417=hI1^3gSqrqYnRaja+)FB|56d7-y3Xp zKOujh2sjyp3Vr`tE#Ltw0YcRmImk+Z0B6o}_`zRXi-owrko+fz9|1<^OcCJ~e}e|* zFoN!rOn>-aw!rX*|II3UCI1#gZ_wx5ewL1q$!3IfAS`_^m^-B)eElBlmIi6h?SDH0 z|Dp4RQK-b%5T@xb*T8{E&&A#hulSF&U@&Qy93E+IgZ{@!xojR<=|)Dt$chC z$v>d}L$daPe!b2>Cwy){oQHsnMYPK{<7ux7 z7&;IU~NJTQP!1vAe27{=WQDYpmAvGi$Ak=DOffe8p!`!^-e{#x}Hr)`{nN!S|y zp5FN!5clgl9=G6tSnbc{S_5R3uh99_Vqb+(lfFwDqY_7i%GCv?vb!gLSX{0(8SZN5 zJS__-D+9MB#0KLq6jdvIrugr>vo^?~H8-6%FFJs_e)aAbIiBYGX$R-~0oE3>{V3ch zCk|i298eg=RHS_}f|F}uEP$VMqbh3VJeEwydzCBuDYHYJ!Tp06%Rq;neiY3pS8g&40+=Q;Kv8(@k3WKf?GYH38Or@aj$DX zz+E!a_ZidovT$P#8_~oK_d9+f43yYW@?e)2WlA&RQU8fV=ZGpVE<_ltQUhC2`^CBz zF@EsFms&!+8kEu<_UyP};HAeW@Lce~k!5go=yDI-+&GKvA0C*KJ@uFP{8&@{*O#9< zkS%t^JXrLD(s#@}c=QA7LDC(tfFWy;b_XJ07&(juT+Kb!18p;=dE2G~!@hs*60rmA zqOaW%aWnXS$Cn%H0O->}gtZOvKr9#ncWLDFnP^b#0b4LmVLSN&T`+cP+t>#)um9i@ z(g($$FWnKQD+sV-{lME5XuqS=g1$B64${*Ny8u2vd}JI(x+HtS7V1^FWP8Ea*v5LG z@C!BA<$7SK9#Ct+1<%y$i0~F5w4>01=|5xu(s)7e9~N>T$h@pRV}{`pL24SFaD+Pz z(AiOM;jjxPaMW2x!i;>JfBLdl3DV}W2}fs-)e z+&5$-3<@_Uj2rTy?-AyQkFLR%ae$8-bkvO6y>!S1SKUqYKqrhvn~65ljKetWm(C7J zo{1mcMz8F%s_fOS>^ETv_*Oam#b%(K8=-X9(Ssjceqcw+gOw9pSdlh2taKO0gEBXi z4P?U)H8pq*^6B`%H1NX%ML#BeyVwIqKTcztz5^A|S8<8kfeD`3oF&94W*fnSY%_#w zmw_A4esB%s)&X%b&0cKAQ*uJ6!yU;>XmQ=7d(#NMSCC@ z3{}`=Yr)PNJOFw6d^8wH2bt*x0k$h1aJ%B{x3eBF83&s$34E~9f!+^-egR{bA}`QF zLkb|37kHszj0Z@+NCV)~1A<>Pog+r|&;`g_H&|#p{sFCeFz*uU1;f98>k>&feBWWo zEdyM^4{B|9zXj5*hry9<9k;nRu7$xaJjcO%{iFLpj)TQIr2F7x3*LF0_jYaz)_Lsn z&tSb8I&hI02cgrrXA{=Dp4??Pl^U)RV-4Fa9kOl&|p`mt>`JuyinDOJF zcA;g56EgyTWP}zn<2f^9A@z!|AW4`AVj7YVhKXs$P;h@4-r=Sny!7Cf2bV&Z{ae!4f;#f3fSOnH$_Yg0dKydD;W{1sPa`O`^^q^gm^W$WJ z(D^YG`sXg;`O&8Oa6CA3gAaB*Jp}awuy$lSpqYkbK*}BPOv7{znEH_#zy%Kk{pcm& zEp{KXIOt0UihW(rxG7qeby&51j9|VJ8E|8oLT>8%117cV7 z7)Zc}NT_G;fy6I_XqW1N#xE>y7xv{-_W%H7{qm)IFtr6%W7qvbpt_d`B=G{Xv@`Vp z_ZHO+ym)}B7GdjcB%lPEANJn0@Yn?sILNHSHV@g>kl97A8Bwhhy7v$`Qmx~-_v+QM zorksW61GsChkEY{9vWhuMm-yIts}MXzGcJ+)KJ~^p`XT7 z?CZsT)#|%I!}U{OMxfd`eMRjS;tAT?<@;y>6xO8@TEvQX(XaCH-DvYmMDj9Nk%`0e z9$$XrR&7`;&UxIL>VBFV$_X;LTvFdX1K7A<-aYr{n71Lcb%)Rz1(7=2N~FykDrb55?l zG2FFt?`&zEyB?3lYG8axX6IS(a9KD{!|2t=pfi?RKzJEs5uu`6pTV1#>isABlurK! z_c8))%WZ5i^g_9`rT<_&UGt{uPnR3s>_CvMAV>O%It=KJkrSm6%5=IKm5eXAupwbL-11&;CV zTTZItH|aD~*CZU5HKfd`*03D+HKcHZZ}$Po<4bjZP0J^Ekw#q&6ojv~N#z;#!we(3 zbYsQJh>@Oj$>Xut0#;|z&AHYC&ooTP8Y=o^lmMr(MWYmnh-4Zag`#zG#&okIpZHbF z#`ewC*t$lqMm}}dg6kZeCdLG_NuT((nA^p>t@gc1;}zT^fQ<@C*dqB+t&yI%XDc^w znEX1+re4%XElvL3d!ETuD)&NZ?fp+$71W5+rcb;!{TM3Ed-H1x3f0P5V4{wLibWP$ zMC3*D+_R$*-pN^~w-eq;^UXk&O|4&vuidY;z8A{-I0fuFYsSq!{LSjeTYJ4P%cZU= zHgRd)^|Fa6PI7@G=}WCw_tZ3NdEo+d?+&{%QPGms){bYCKL+y1+Lq6vSp~~mhg37Q`M$KtW#SNz88(g=tsGo;dfO~bn*QcoxEiKfTgv+Rn*B|@mx@f& z@Yuz+X(U-g%RIAuY3Z9~zPigex8*`b)hZ@L9i_r1-CW~Gwhb3{9m`i&^R^)_DXZ%A zsw6X8q}sfJL`whr687IkzgK5gAplJY)+N~8LwgzdCA{YZ{--%G`;s(|H}PaukVQE_ z|5jT(&(?WWGpoj>^2!`?nbhhklC#}+B4Iqk-ZB^KCzZm8lt6KOox z10=4wek6eDE;o#=TB*2QJo()+)8fpW>fDpaX~p5>Us-IZD|7c9z$Ie5J3q(m&#V6J zOvkKZhGt2>m4ovz_uOV4kEswRc82bDA#-S1pCLXJS4#t6vOC98tHg79v2<4v!GJsR z%6mziw^#6@bv9|VBstdOml*yZ(F9B5v>qi3H|yOFlFD9EfZFzW-)%T6i2 zn^En25S?>-ez;7Rqp;ho^TlLo=6m+SDp8&zs`-59ljyU-Hzd6B#w3AV3x=}Gg{<;g zw%WZ$(lU*}tL4-_+Zm$vy3fWM;h7>OuR$Wi28ThUK=woh!PE2?dfZ-902FdCp z#1ptZwZQdcXStHfi4+d92@irL{0&->O@u{!XxICP1wJavo;%}lervwMiSBTbJb zqRj-BLz3kI40q{5MV}jC!Hm#WTQz{QMYe8Mb9y5jh>Y0&>Mp2NBR_P zO`20ESyHCI-ArUl(&}BS@FK|oaP$0COiL+>S+T4X)x(_Cv6eG4D2?voe26%d;qG(A zgSs2dqR;4OyVQEgL?>(1Ug_2Kh9}J&7LpB~PovcYWSFCFgOt&iP6v!C!z?1r;|tK> zS7dCx&+g{qiYFSb8m9(v^>Rnndd4v&6|NhFW@-)Iv*Ti7)6Oc+TysaH57YTdIo0u8 z!)PKWlyy#6xxZ|%jL+Q;q8g=jq3M~#C(xS@#|?Stoiu$naola(bWI&C zep)(bXTF}OYj_3bzd$am3u8g;DvAt0lJX6Gole^t7R$+mvwFdS#!UqEe#RIx#YxrF zS)sRRTBU^`!I^i{d3qIFO1`sV4+~+ed3LUnR*A$Z|CrgIy2yss;XAACJ6G9tABibC z_l}*VCSOSTNInT$xWa}|SpnDrGQ0Z-{o#6-+zk^_E+hH^+m*rz{czOyoBj4cJ#p)j z(^T81tj*OSa$oiGIX+cS`g%#9pxQCb&N=7@<73}=rMv(j_xJ} zM!WMpb11jGqgp<@1WYSAE&8R{eHHy!>dXZ(>(_dG;>==CjwkKTXYWYRlrum&*EN`T zai(&3(Yi%; z<1Hk&MXB|SN^q^UwyjlLTDK|NIJ?E-*P*q+ddI?uzS*CVWI5@q$D(#K<|Z?qse3_j zT9#6TV--g=df4tbk+JOhy@z7*Kfp$Y+-ubMvVB5@1(b@o1?xgf0k(4#wQ>bhjvIEt z(yHlh+l`4=e(~$Er)AEpC-jwfL7Y~IP{^fA%yDxxx@Y01F(ny2OMrI7y| zZ79$&4;!EM%Z)Bzp$8qIE@x7Al68Xs-^}jOg(=>p=jQuWtk4*j z_SDyt7?TD+)P%uKx_E`%DA`4S@{^iGn{g_)ceh2O-DSm1;0siJT%37@+!HyY-Y^N( z-AJbEuAt|JgP*a<<2@_7Me-FI-dJ~fJ~!Tvyk+WDUi-Il{9@OQ@+X1D!YzyTEsiC} z?x_PExMvmnwk)^Wi)yx8T;*yDf4x&$qqmuhl2}twf}K^_myqGNWqZ@-(WH`S76Cc$ z6~Xiu%AZ?ps)M(rI`O@ZZ5NIu>6WEi`)ymu&6ATckG^_3Tf%_%=ZkY&AEAw_EX(I) z8(HBsid75mh3du5(!=JLI|KJE?It>6N}<=tI0?B*gL7zkj#r8yRh4{Ojwwr$t*4fy zlf;s5_s#DbUsES7jrzF6Ckk(;Cigzf<*Vs1STyYUv|VBicRAK|#>We(Y!Ox1HoR5A znzS9+o2DS^C?3$iX>QE24YSST!9V>P`&Gg>_p8DxsK1T#vsKvVF{_Du0XL8*!%v^?-c7I<8||&Mmw*J#PTBdlfnkQ7uK;t- zx~8{tzdDO)jZI|GlEOh_CCo#dZGyTFM(9WX!ftStNvxPooOidhH;89c$y~sU#-8d* zcev~A7iVi+>(Yl$dO2UZpZ&8DPPC7zV4vC$iB>HH__(+>EncgT&XSQ&rUh%|$4>Hn z3wC)rm^+yT*x0y)+UMVdP}i0}BDq6n@esbg<~8Qa11F81$GWq!5Zy9`350Wmb428+ zc~UTO(Q#2mVKBm^MbJc&MO^bO^Gl{kz&8^{~j8~7VY8)zFi zO;4IQc!7T$v^^9(M7gPSu^AB*;1v*;LQ6xl`q=u|`s@4hL8qW>P!Om9v;#^4&4R8# zQJ`O-)tX3`2$v|AIPSzhlG>(2$0%d#rJNtiEHc z85wsvL7cq=M$S^)S$jH3y`cob)>6WocREqtrR1wd+e{AOO%Yb-k%+;QQr{=cx`;t~ zBbqVINm%u|sD(-+h7--HFPwFe6Y$HUoK5w?Ij6>4-pgZx;vPLBgqImq{ChZ4p1m^q zmzi80djuDcJraVKKOhVqhur-@$p$a`NdAw*khtiu-Sg-t6cdJVe#@{2ifN@IA zTHhm4@Ep+*yh_a@NB#eTWw|KAF`Y)Zwau-k2rCm2wM6bsRXlNPJqLiGGQgY@_DjBn? zC7iLAau!}}88foxoQCT4KQ{39+0$DmO!TjDf{@mMsq{T|gPHs!Z45>5R+cF_8-GmL8p-Iata3Ir=A4}wO7N|$1nHfbyL&Is z>EAWQ`<_`u!s#B8VzmzxGdj1@=^oK)v=22_J9px(A5wDhIaI8zpCh`rjcuGe0-o_N z1Cf0HnB+aoTL|8VGWqUVZ#^u!cijgQz5cO4^1IF2dIc)@KduSA-R4odyoW&u zLB0*cB454XKk$H_1M@!nC;WKPz<6P>x$*Hc=$zBf$Wn@vq4We5*wfsLr}C{@=O(EF2g;eRo4 zPw_b0kRsxaG2^nI<-OVAdA&c8#l^$LxaWdDEY_=##BIkh{AT7z_0~+}r{@hg8?8FL zxf`tDm~3Vu{1X*qIn)2d6X@3*$aM_AHw? zeFj)Bt=D-P96@POo9vGx2&*wb2X~Yq9TCZBHcDD;43sUwLzLsED;E~m{f(1<8kW;%vJi~h{7SL5Z|fKDq;F_GPgLjgj<-5{ z{#u1qg_S0iCRO&*psA}Wm333B__aZ%Gmb`|TXAfJQgt>RZ-sg|-X)c5_s{2|b^6(IWwy)4S20E#K)5 zg5zCg=XIe#YCBJ}y0$$Q;KCBH68VuxIY7;Ye9A)J|GDBl-e^N!XTxC6l8OQ3Qh82kvdYG#;YSR_KrtavNm|Poi zrB|4qPax?}6s9}H-dnK0S?Pi^`k3VC76RmH)aw8)2 zKm_NTBnUx`Pccpb1~8Hd5MB8nD#>|i-jP)UImYFIy3+uYN&^U_$wT6Y5_V35!*e^L zWyP79jX_=zk&`A>FBLm1#Fm?TT_n`m4oTKSxhsb}cCQK@H~*H^L#E|0#R$z#L?knJ z(4jOl3~5}}Lz-*Qt@+7A)^Tyf%C*K7`@vT|3w(~)i69R3Oa<*XWU7D zF^jnRdDvWp$Xm`CT(et-6ha|NPeeVR8V6}4_yaF*<6@+9mUI5DwuyNZ5?*N1mG5ssA1ypRn=Des~7zRR&7~U{$?TYLw~C{IF=Zg{M%? z_)lg1WwAqHRDxgx>UX)9UoW8eATA5m;DL!k5uPae|3{Pdy#Xhaty?rh({#& z^_iaaW3*2wMx>rBEV`#Jb8U?1cE1!MQ%?$49L^XugyC<|Z}S%ffZfkyUwW-&enXMY z!bPDB^gqB1kla!oa);yw=YJ)cWzntip+k&vijwG18~*tcMms=no(MUY8L~3x1zfTsYs0|$Rf6h zt7r{~elL>ntZcpDS}7=Coo7VG+u#; z2oqz`9`A9SvfRM>y7JyuiyxJ_gmIwK zWkJxS!RP+D;F6N+#8yU$!w4zBpOkvjhr#z130Br=0pKLN^W-tO7 zHDn&=gXHnGCGx+3(Io!wSdwx#ROQK0Y%J(^m*E=a|@kprc z&CeT?h|`m&!}3sK1%1oZr6p$zsJBjdO>p}lErSFbf~)fi5g?RLv&gR<3bCYD88|~2 z==_k82n>`YLy$~4bfv^zav6wx!Uu6rY!J_AbQ+zDn@qndRsQj}vP6uQ&qztDdTWpC z^E$)JW1b<28*_?ihDN+(6ThQcA3qeFy!f6yC;p9}G{XDyCBgS!@6mC%14QX!-^)y{ z^X-5fdWM3~yqXTUx&)Z&(&Ei;Kle?RLW3R{$9>)_=%b%)EB$?fV19=?3JZ9a15Wv( zkFQL-qWOtTo$o`;#6)fkB;+hweQL=lPa<4QACb1AX)M1Oe9n3M5YQkV&6B2tk{~+L z1mcZLlEk9>?4a*~I%U=8d)gFfz#7l}QwiqCnsIUba-D&xO@a-b1Qm@Ixw#?kwMVT#%|x{m3grrQ!k;(CwEWF*^JG#Rr9N z9b`n;WXxqe^Vr{3hhYt*(Ph`=L}6DA{AyXN{WYAltb!jul(m1Zoyl7WM3~K!k(N%m z3yH%5#Ax^)df-ss6LvQR^Xtp)GK)B52i^XD381Q<(##qEIIXBxjZlfstgL`_^1bT& zXsBgQ>hREgILqfpf!<4jpGrgS`1`csx^L0vBtP4xg5`xQRfif`*o#|2`GXqZE#}nK z1xbG~H8Ek!jMaWX47htfPelwI&AXb9j*Vw+tO(Q*rIhh&@0o10E9zK-1vn?B?o9mPJ$5H5nkaK@%UY~~j zd{Gv{O*NhDL4}&q!NN`SkxB^Jr#d8(JHGqvTav>L1@9n3T$pxW$rsH5=yqh+0*e0U zOVw1%z6qm^Em+lY79mq1Ai9u?$Mud=$I2zorqR%hC*sz-fD3$7y{D*~7M8x=*Xo@jE;&fV9F$_gG@T5XWctn?Q;PI=wL z1h_yv>*~Hv!@1HHctWwSZA`#jW3KZVrvg8ym%ZJasbGi?BYOY`N>h$baT=7g^Jvl6 zHTsb;`bdWlS6#4gC1NSkr78E6sY}06h4N_u3CiLld!2(x{AkLXaGIMRq>G1DH6org zh@lH^;_FS1UT9xgL1_W+nGil)n!%ZEN@0i@KxOJbe)R6eZ&Q^ITHEx94IeHmkEyHi z&)Fk7awvSGl7`gliymJv6loWa^4r=WorEM>6R}&Lh561+R`y3GMnaSLD`)Yvq{wJ= zoIMw2u>6=0nl|2sJ^^P;g@fzGT-%mA@klO zsN=hav9*7{2hwy9K-!mJetL;#07k6+cG-xUQ7m;AZb)#6a7enyflOFnY|4S7dytfK zt$OyRJ{0F#yc7>Y9>h$LPf=eF;txbpBE&jo^83(i1tA~l_=^B%tNX60`W(CKy=0BI zz3{Q(*!<{WpzTS07q5RO_=eSoB>i}iR4EDm{>F4$(kuM};q0Q0d*7#*OJ1dO#P=sf zAY2-hPDPwBgj5j!52YotbrOTq4YUuk!D1msWPJjhUoWfXT=7pmaVux=hb67BK1fLP zs$h|MwEtE!swKc>=Z!9iy~MAdnZP(r5VD}-iCxxV3i}VtoaODWL&sh%s($6hsVF}%O1ML{w zS*F1<8@hbpgSBf2N4n4(SO=MdliGF>^kFRQnsBy1-e$VL+B=8}q zxSyD^G%c#GthogaSc9R&0;{7Psg92=3p=kMFRWMIYDRoSlRCmI!jD_L06?bkR{t`2 z0pjUDv#{B$waK*1qsc4m_(MT}nc94lE67(JW`)Pv#+E%9D#rMW68pAD*G8(l>7lmw zWl30Pe+a*e-w6-hE(IRVsP>PXgJU`L@ zc~f#`dB=ROCC~VT2dN-((=$&m$?c8@fwntu{QNb+RC5}^Lh{tPW$*UxbdT{X{9)3(3G2OhXfh-PIb#9#lgv7YG5-icd*57K2nYl4_I<%c^J*b@;Ypa*P2ulo1ceF zZF_LTo@96R2GzR^``e zaS{DQf=|!Wl~LjR0q?`^rt?FGg0L8c%wwwh5pGU9T(`2yK|C(^^1RO^hc@vk9R~yy zUKXE0VdAUfbv1g??N`3S&r^xj*LYeuL^E+A(vt9Lh9j41MqJ-zJ_ie!m8M-|5vCNC z@ME8-M_mxo>kGZVXEFw-7!B&i58m_{8xt!x3Ud2$qH~`27Bh|!Ayj;WG2ny^ZVG@( zJ0W^ta__UB`}p=H_>rh3Vhh?GsdTP4E}u|6 z?G4si(-`_vbNzBP!$ zg)(z)crjL4Y+ZtEb?}R;ka`pvb|RJ^x!jk1SY%kF3ZmTNBB7aHt3n+r zuBQB74Hu#L=mSGf&N#Bxb8L^|#mQ*fU@LR`ak=be41~AN&)pmqoasvDMhoDdwDub}P{<4$%5w=_e4Q6>lndb;4X})mr=8JX8;)v8%p&Ht-UIbOP`$ z`>}a*S^XyEBI+ZPi^fFL%xFH)o#2`nqE=s|(W+BjOIfDZVEelHmY zbfN`)hXW_*b{j4T@1dB-8;#7dSHB7({5LKnX>bg3BilHXd^E!}sF$gUx_lTPxmka- zqkJGleD=rvN?#__`>NQ9jDBV>o7jNzfo(Dq=bsvqEUdNOXlm^x&?s?NXfxxmnLjL` zW*V@WmxnNwR8pY5aw~)Xl=gmRljVJ(0*whx|NIWNBsCIW{h-nmLA>xeK}XwzYv|~} za!|;aBe*ZI?9530GnC?vVI6)FvNj{s1n&&NzkzmbD8q5@U^H0V?*F)o*sxrIcpL{h z)XIU|T?W4QLWTcAkta$uVZS4GBz{6G%jf#kbd+0Kui9T2Y$|!!x!=h^O{^ydY}M_7 zB?p3G{^_7dB+fdAm&?%a&enwph(7q2Bvs9J>42=edt>6xKogMm%X#A96PEzUTHlo8 z3EKd%_S9sn+Oz0if%bR~^Rui%VI9KOD3tD&d9Ry>04#L7Jp(z{xt5(crk{Une04My2a`D;X%>_-(YhM?|ZKXDX)ANL4&hKfrpC`l->@@4Ds&%6A%o&31kANU)3 z-tz;Wzr$X=vogl5w^#37py#jJ+^plTdZ!}Kx-lw4)9gf2c|}NB)fN+!1!SqNDGJE8 z=90|^>v&fmmii(jq~}q~l+?y3B$zQ8>*AOURns4nn|>oTeVNkq$Cal4`IMVJ#=6m# zq0uxC$F^S?Qds1+UoI!_jg3E_+V?ms`XE+TK}BV`e&8aKXZDm*Qr|n%!yjBQ?>q?2(8ztTK~MN^)D)||39Vm zFPvWMqg1Vb;Y6*EQnmht2(5>;y-x4&)b<1}B8$Ik;4w-1fsf1V(x?T(HY*PNsk<7$ z-|*Icly@b4w+?l+l>Oasx$92dTULH$wdtP_2KkOJtneECJ^pi zCwxv}^p(CXwILylpfA{{5cJXhATTh_MS@{s9AYpFHSh#w_Y1E-U>Ybou`bqiN-sz zZD5TKv@+=n)p#>_>91D7tK%0Zg4aJY!{Jq!C&Nq3PHzidTh=QrdE)axEiL5V8LIZo z3Z}%S_+oFy>Pu^}F`jFpIoGFxXp7DYD=KvUXSA6A!6JQw_GMm!JM=4Id(OYfcH&6# zdkorG%@LO!6vT^la$f>e;odr+3h#XuC@xa{PopG8Tpz6d>CZwSEV+zThe<@)!&g;% zT!NiX*O}2i>mJXcIkWcon<^o1BQfUlXLDSn^6gl@`y8e8AyE2iIxV68S>^t9qB0(- z)n6*ot9G%}Xi42eT(p31l z>l5|<>8o;%Q;)wo{j*`|8^Y7O)#+z_qMDDxTF%Fus{`}#Vm2S&9YOQ42jt7ho=)?S zzrVJXNtw1z!GxGk0#${Mf2yiIU+q)1Cjr}2+9)?=eFiqA5p^$nTXs_ahKx{9?(H{~ zik{l1u1MW~b$zq;so^zwKp4F2>hwcG(u-9j=k(q~PIz?+{Zr@fsLG$t@~214@5$Vh zqSBYx@-Zr-Y;JmY4zND|4}IX;u!qm z+8Td#{*J2rSuB561>l zgmt|MmCZ9|yZCB1YN`83XyTpi5`6a{RQ=s6IFf5^2`TdUZ5&s1M2kh*Q7@gpe|^UF zQ}}8Ns{cu-i^WbnZXyXi$~zaP>)g7HsJK&$oUZ#jZ{Cy;)}iW%4hyRY6gHKw{*t4@ zau?37)VZUw7SFC+ID0nuHd<$M3uoU(zT3bzhkSFuHCt*9m=TBpPTDkee{cb}DNup)7>46UvVuV5~zUBe^JGK@m%|?Ea7Y`Qst5V-tt>tDd zAm-R#GbMCAr?tPfxqGAqJTCSL$Y%lH4I819x{7lT@Z;;yHzQV9Bi|xfD2SM+?`~K_ z{TWzxk}MGR>emCW8Ds!}Fag?Jwpz;t=~J*D+x7$w5`*-)>KhZv@GOnY!fQ!@hdwC-Zv6*A!YR@zWQGzQC*QBz_-u3X#9_Vh`e8e;9HVlqiueMj)OUoOQb#-h>MS2nuW#<;@byd2YXFWfc|^$-^C2TB>c9{rnO0RIXeq3|7{bSG7&+d(bm<1~WLi}mu|w0xXnDc@~q z93N+0#&;V8k&fl?ZG!Jw_|Agw9q^qC-}~TuqTu;@A%yLRu>DXFDv zOURW=n205a*6H3s)A^NF*Wy7gLH9AgvI~rI%_YZ?3b9cZd>76%q2xbv$knLbKsyoS z@aU+e#}~*)0B2WKPlROP$MZiEM20W263r4qGgQwSyp7be5D&u?9s#-)r*4SNmn#XAZR-D^Yj#q|)DjbRP8gmi2fyE-9$4{Od7@}~f4 zE~R|7gj@)JS`Nnx7rY!k5yGFB!>2&_(N|gcbO?V*4zGmpuPEHU5Q5iGuzfM=V6f1o z5c+o(`VfR}VWG<)w2p;7hjIxPx*S6P%0gE|=<6)B7DE5VLK`9UZ!8p0rRpsfx*I}Y zVWImVbQ25pL+H~ibU%c?%|Z`B=$}|9fUfEt78(tqJ{B4Wq3^NKcs%cBp+*SZ!$K2r z-_Jr#5c(|(O^481SZEf6e$PS?%Ec@cf&5PviZC9_LJ`EDu+S+m^KZaVpMDUFL^yxJ zA`#3f6k5Y{zp9#WTH+a6&0^AK+4e2c_(Mj%hE6*~m`4j|8~gG#H^L{)D8tdeYGFpv zgvL1`cQYnB`3$KamEBJcF@ilRD?(s$f@;pwl)(Iq! z6bQs^P6%CwoKVl**tlUDR_;noHPD;o$Z+<~;`$~%_Y+^;0Hn+!Ieow~I>dA2J2Axn z(8ZYZ*~J*i(BWIT7r;|=Sa?mBt6kj%slnmd2>89Cb^Bv zwbsQQP`AWLm0MSLMsQ1YlHqU79M^2WW(r?}^wGMpgDzsSyPD;8vskH)#fiHm!wiV3 z{Vb|;y>;W+j5hW^X7Fmk(_iMH32>H@VJVkl;1uswz&uV``qNBx!zO9C;v#*p!< z83lxnUwIdzfzP_`8vU$J3+s%F=^KKp!h)+<@aY4Gd>0G8 zJ1qEa7Q8epcqt3MCoK3L7JP45@VzYfk72=oWWo1^1>eVl?+**Up9Mb<7W@DUelRTf zK^FW_SnxwE_~EeNhgt9=VZo2E;6H^0|A_@Z8W#L03w|st_%RB801pFwgIMr-Vp_a#CaT|$=CBv+*IF7vHHo@CbGE5Hr9uh4X#(X93i@dYqnbv`K zNStZ|B$uyJDiJ>r#HO|R(8M(wj&{6~A%;rY@6C_%R`wKXzC}Us+x}~JB9qcVRway} z4g&n~=rLohqpf3bqwzY)EX5->@dxn-sKajg)_+T9+VSyhzhS-EdeelPZyHzcEF7Jf zQ?rx5>pi+;J0eQ#XcH$yJ4L%u^gF#p2@`GNb>PMsU2;UfRor6} z_lw`#fG}1%Jhkx-&(|8hW+G`T&BYa_2(P@orRp&okESG@T3@_o6VudI^q%~8I&dV0 z3BU(`LB3qcFrWGIC4=h=+F9}4vIY3%L*Nw2Fo8u+mkgtsuTnA$3nZKZze)%MYMw^X zT_i(4@@$a|315WiJF@$=fHl*tsDd*!Az%C&aI)%%2KE>3TSWaMeNc@hRs=_?6$*C< zb)V|I`fB_%Z2O!P$jd3oj+(vh%bkV#QvC7>(ZhXFZyf><`On`$EUE*;z3ELFyri$s z#sV6JLRe+4+1!K-Q`JvesFJTC)7Wd5DlPC(At<^*t+5v;un? zB;|fX0o|3XguM$H2(Z-R6-LWWv6|vhs9=NL&he>Crwr1N&S(~uF)G34FPemC$wEX7 zm~ktoDENq?;r;|2SF>}z4FGX_0(Q1e(dWrXcg3JWcWv~*19QJ`zC_wA6mE1D;?~G( zxEazq>h=Ls5K|}ku8;Qf+d0zE&PBcTtC)V!bf(n#9$wkp!GJ)gs(cMDqe6}3nv2Rs zlZIf{5r8KXKO-OD$r$DXJaK*|5C0IrlOcd7BLGhZuxP-Oe#{4Wa%mtT;K>jG;t0T# zt`yBn20eMU1BOgQb)Ut>Z}q69<3WZ+R(BB^vfn%##BXEv>A+WkvO^^DYWi-?{*r(R9ub zjtiCd{O3ZIyywTp5P6S=+&0Qzb75%tuQ#HG+)kGs#(<^jAXgqZJ^z)>`1V0x0B2#AccWf(N7dUe=tob*kl zLzK$p`jtyV+k2^6@lHcfr9i*JsN=jEn3Yc%RboNb{`=KA9}MR7WX?uGnrlDGi!iGg znmf>cb^fuz{OnxFcSBzk(~O`g&dz%%HdJ06awgrOmn?@mPbpE)N(|zY|1)-b{%bKi z(c4iFvyCB<;pY+4J(;gv5Im2V$R~d9K36IFg^f&@KN0dyA6HLOzuR#4R^!qzQgYQs z-h{Q(QVghYjVVlTynw1}66AoFv z6$i&->iMKUH#Z>{^=)SSMa%ub-+Y|(ZNP8C8+chi*!Vd8hQDY7`ZnU**rKtUeh~O8 z>wJQQ?k31bYBNu5;-HKhHu8zvez5ZSwf_E_P?@K1V~IDWTzU(t9q6z4yNyqTlJV#Q zsI<~XJjZ}PiTKB4gOoPBD2ZCwJy5>*7e&Q)?pu=7e6=UD@O&Kct_l!~G5Au?oQa$} zPPr2Fgq21pR^Bmg@tXu9zLH_VKN-(SOs2@-7&-)FcS4Uv^laz_wEB9%|4|lop$py9 z-Qq7N{8gcujQ{7U@qa_8JiZ{2z05AmFbzvlh&OwEv5O8%l67@FCxd_aheX6-T|Bs#nPBi{C$fUQ zbBrPRv3-aCv*2desH(#qyA*G5*{Ti?xf0xzs>3~#!A+<-ETw|mv+6LHR=k0)`G&R` z`uCsFa?n0~*XNi!=2_;xEW2am@R^vd>TvVhj|}ARUXEB$jp~7(y3VA+ihCJSurNIR zj3kLmZa;+gz;v6XPayBrPq8u-_eR;hS9YJ2-B)Gz1KB+yyO;chxfQbei0rPF-LGZ0 z^V7^tmfbsL_Y%2}uVSB;ehe+!1;6d^Yk=Q6_^pE9EAV?3eviZNLHJFEUpf3{!EXWl z7QyfC8-fHqD{m}AsRMoJ!n!Laptdl9Zhh7-(~=%9j9&CE;!fY`!|v=QdX8%Onodld z{vsq>gV&k;o9mE^cPS_AREpuHWhiZLlnh(nr!roW%b@%Gfvk5!)~08e$Yl$JS~f{L zAaSLf7%9Vtfy9#_ar0cer55p0z@&K168WIXVxxb>PuL2yP;?-W!-P48ip~UKEt+hT z3}g3joSYj)ZQ_2|$3b0C4(w_Cw+4#%Dp16?wRpj8n`G#VS;g4566mgkyhy;3V7%WI4o-#D0HIkQs4tf5}q8XIMk9+2S9!fp&V)-pmIfMf3R(^|Bn5 zMNz!%J8!=Qn7gVTJ0K+e=w2stzf?H1>pqeV#->6lZ)R`!>py>t+%B;}ZdWKh5X4xG z+=q^W)F<=3aQ*ZM`(FoR0370BPv(}Mcqq2@b*6Do&?Pzgru2 z|0;eovx!l)4=w&6UShOX!VUEdx~+^hDP%T85Rame_yX7wE*wd_S>zyXVlBe*ZT~f! z04Ey+X=9ayx7g;t%P`D0uTs`0xK87agG@k&7(V_9Gt>)GgXd_+`Jdq8M(UHfXl~=C zdThTxtiSu!?Y~}i1P<}FVd)z~zq3$$GzQPF4l%17(ab8xu{h=Y3XAt-UfK=s%8B1Q z#ryGYy?8)89CH8V4LWtrMiy7%?mxBh{`0tY|0{wr9&$c zWFi9Lt(;lL!T$oVehb+Nrgb47m$i)V=2!~B%i((&e8Z;Pu^hg4z;`Wt?}P6h@Vy_t z(Z65te64Z61Z6qBun1s*d^ZgwG(uz?e3~F3`b~6V3dk}Mkf#W(uT1g(aXC&4zIwxP zNm{#*Q~(}Lz$0YBaLI6VCoK?kc~V5*bL2@EW3R(x!ZolGIK9)eU|E^&&5lO#j5j+*v@i5#$BFi8Z+1`7zSNr? z-;nLnpo(-ub}lpilASNRC}5NP4-cgk$>jka9B+jy?D9K*rHMXX@XX2LTydUxOE^~| zM)>Q2EMEl4U7YJ&3>Z)dC^a`>F6WBI&qGdmo5cVih(1DT%U1uk_vXZX|OTFxdmFd~1~8WQmSy@mcqSEMI#GQJY|C|tvIB7L#XcSW4h z9{_Z;)LM3e_s4E{pPuP0>5sri316z}_-R_Q-O@3h|?l`yjrw=8R-b8lR4C~PuxW#n=9yN77YyY%MJ6L!V`R6d?8Y&dOevDrcl+^= zu{E9eMb(_#ns~W2%azuMWPnl5%4q}MsGv7G=EvRLn-0IH;Wrz8FTwBc@cSG5ZiinXwE0nRMflxUjFW@oy1?%o_+1RY zzVI6Wzd`WJfnPrS{!^@sX5{hjtQvo4P1DL@9Cy<4u5PMwdi+h1cRfEWOy1?m{GyXu z|7%64yiKKdFY`Z?KEPwHT0wW5^wParE{GYL9FB`9|LdfZ|E)mzUrw0(Pu-res`jXC z#CS5V=%kuoNh?q-es&gMe^yQyv(N0GMXS;ueGTfrEKt8EbB{WH?`whbj1kLwUY-8` zu)K3Z%JZt@MT}1y5sWWY$KMhj?@-4NQ^(8tf6;3Fzt=+G#rRL}J%<#04{Lu@M^*XF zuSybH5x&goIV8D^H9P0)?KQOv&b5n;w1zRg%6SiKxu)7zWzcx9pJ?-1i`<<(v!gk_ zX7TkwI6?o_<%_Rk+t6C`{k2s`I>799M|rJrsF{lXb26;au4$}PYqYyi+|jh@dQ^hd z%ds)85pryd+YYh+N3k8{*q$!49NW`-k5k^N&^K-^c3T*UEUF*Fi1+g1k-d=Z4Au z^=kS5^3d}AtbBhP{rj6b|0-4f{Vf0fR@yfk^V-FC?BecVE8S269;YSZk*Nu=WBy=! z&8GQQ2uk-HI=-MMv&LNZpuAmfvOxxvsN$)w31zE^fPsm2vEJr&^tFqdz1C}*vaTmd z%XtqdnfT?nB@4&@C^i1S0(@8hO}CxvHju2kZdNRRRcxQTU{Sr}yHOm+gsD$IK*H2_ zg2L3MS6{)xJ(&-y%lp$S0s4_UIyf)F_`fK%{_iWH@T_IhZA{vn)^s6xWm3BzqwWhYRvu)tcxq9os+Ii>NfPM2B?tu(; zaXmwgf4>xG zJ8!$teF4+TUO%fl{56aawcM;|K5>0h@fePwIl!%xsLZEzFGiS84{Ox;4{53nYvPb8 zeUq3{RL=BO1(?#FTA2;(wv@4fy((lj&{A8o6IKbY{!dV3ec512{jH5yx zW6mSYd5}5xG3OrU+{GM`Ig6Q7!>QV?`kKv>{6Q5skp+ICBj*_%Yr6^CPHIuri&)!< z8Sl(5x=Ufk#k*MB7q=LN(X7auS&`$Ilh2%DU1;S)R9~5@FAK|HVvboA_oGC|7dmLB zV%~4=QpLRA$QL9jkW!ENE}PDAM{eb~&fwk*zj*kiz;6)za^W`>e#gpLn%ls?5q@vO z?;r5n3%^g{*95=)@cR*d$Kj`kv@!5Ygx^*0%Y@(g@Ouz`f4-HK^)&omgx^~Dy$`>C z!mkm2OW}9>t;$Rb%>UzBx*Zps5{sXQDbb|GUYe?!Bpz+p;azkzzx(3dN`EIoDzy0t zP;ZU{&qtD$84`aF3bd}4NLRE^&-EPFlKvX7&Jg+6^TCsAYcCbirPGiQqNWywXIZ{Q zjc>Gq=oIVFHCcAT-^4XdKS8H_ITG3LlMIjj9Z!}H$@ZZK{87HT-5ep`=^apum8taf%!9_|&qKY9cH30;<2J{2hfmWJUX(dzD&#WGXw7 zVP>t$K2dIX#ap)qMAu|+@_XnNQ~aSCXhN?)>M zmAuc_aUAOgHXp_KSg_I!?7?ksP!IY-u^-=~6q~B_V8uEna?c8@1ih?NSu7|pUgL47 zs=mpMA-U-1N43fwlq?GQKs=1sJ(eV7MUf@qXpZy0^n!8+B#YT5_W$VxZ2XU}bENNY zLP>{Zr;T4#Yh6PkFJCp~hqy$N0ZQHFL6HovzRrbQ5+Efhr3hzOHU^kbU`vL=*D)Qm z1Ya`n84>{`;&y-WGboZ-!unv@>Mwo_`|@bQ^cWJjVP_}Q2kzhGvO5j_Bf-9-dcmqX z)=3jo*Vno_Mnf$zqU0T$n1CwPmc9PRpNEz$*ZK0amQ9l3=vw(pL+5$lD4$XE`Omea zweHL7NFr0o;EKodH2%JN9GoRoFShq@kFs`Z!Y^cy{>Io~n^Rh}*~+il4Gm7f3R3u0 z>n#8<#8K;NF0=!HUVZ(aKZn>@;(atBMMLd`V$#6p8>=k=@6|Z_pih^}ofymd6t8?5 z>9dpEr?HpHeOh)d_9=_MuR&}G?bNS$C>n= zIw}}Hk-^db{Ijxg(qmmwnEFl!2)qAT#6|h& zWJLm+)OS?g%Ya-%4o60zai*O3#s7{BEsk^R*F?{D~ zLT)0*fcu7|RqPw9C3HVu4v10$IzhnNj&ea0VJ1k1Kljv;^7eiWP7N8CM21_aXk#Lm zVF=C$qn0T#3k`M0ki;4EP(bqlz+I~^SLYk5^GC5G&)79=ndpP@=UR3`3g6HU{x8`X zWCx)CJ#?^N8b&7=71;i9D;ebSVTz0p19zbv7bkwu>Ag7HdBR$nhoI7(-}g|R;vA_4+-mP*@JD+_lvO+qTvO~>02n9ZS?A& zh{6e0i34Y4nbq)iNHKwwW7rq9M`8fTwLPup|#Ouml?=+F1tLqoGn@leo)Bw zGLBKvoMkdu9r>h8R-f(^Agk9ti9`aAmAxzIUPO?n>N_e#)zDccssW06P6$P<2~gAp z^I%-FCNc!K6);zr#9U_~b90NBJF1wu`6bL9Kbg4`r!cpul(|#Nm^-zcxzqo^T-P+_ zR<@*<;@?8(WzIsU&%R7e11J5B(aPR!q`CHQj868K>7;$(35lfT)z*k)y?nQnY%_|! zW%4Y(@;-$0qX{^64sl$%L!6VPJhO9C%lFlS@9p?5yc~AEYuTNREi$86u?(kOW~@FC zv)#HHiLF0>89Nz#WRaFzJsQ_6uf97JusT*l{z{k;t2yT10fcJx`ONRc@O0+C7t?1j z{{!eB&HTGD{aEG~FnvDrAHeXA%pZs0Xr>#FC2!?)7{+1PPz`HXw?*v8vVq0z=h(Sv zX9#Z4JK-yXGl38H(N-=GeAVC^#0>}EOz>rMW5AaSJ{va}d{=_c&W!|L7Wjs60{D#J zb8sWTX9C|)ZkU|T$qfWwI{0$9zTi6sd%0Y09QgKu?|N=5_;7zWin{@PQIPINE+2dc zAnbBr92)fBV60|5_?`h@KQ2=a>(5;UzUAP%iPLBr^t~YOlU!f$-40pE`0fRtk&6f4qu{$zlLWpuumzf2 z4FYqkgwWdwf73JrAns=HIW=RzHwsF-KyxGbdV+6+<_7S&AU0c*1-=sSSv7+&9r$b- zJNSl!Z?I-K_|m~QL?eJN8GH^+j%M{RHp<62JOvl{bzMqoHqDPJ@kWh6OBeOpOkA7i zei^Q{446CxDAwEm(kidP<>H$MRd}m0{uNpc4|id!VIMr#s8UwLrw*{y(3y~nv*`1s zL@KA?9;LEMR`&b&Wjau%Z?Aq$7o_s_FH@nPhZH&`Q0Q=Vp?8NAdJ7dYK4Bu2T=Oy! z>_2y*qv*-3f`_PrKd>kdi<-)!YA9+1i<-isZe>vw6qUlFa#++%7BzvQ&SO!@EQ+;5 z@1&^XFHr|)v9K%(`}8I1;JcmKYX|2l?ZakoV{z*`>lCCi2D3sM5;Y zd6e8kKm`Rj6VkyyQ}$;eBm`Xdsn~K>Y$X;;Y?f&IFj0P1;-ltdXhDwB0_RJtpVR`w zaMti4ow4C&R>~mOxNJfJ10_eOd-bJqk8&Vms#4yu7emWS3oY*x7M0ARl2}v>NvF%uvo+a-6&$flzAPVqxn*V&yX{j<%1Su$PlWOl@pRld4}jQfs@w(NCyZ;2Cp z{e=B6C%rS`1z+k-w@H!%m7IN>bk42M z$d7i#N_B#s88&E`|1oMO-?c^FOPDM>Q4(@*H0`Wu<6`4i+7isrO?S1H*mS|4*Nx*S zRBH4b>NsnR@Q}FVjx2nALbna|nPU$CM4AVK=P-IQ!4rKucv8S~E_#x{a~XOr0Z%{l zoOjTckgSETtKiGQ+qRLoZ6thH*K}qJvTO-sRDxjlS&#XzeGJu8YF$0n;_Wx@Lrej` z(cj?-RFd-?jpA=VN)Mc_VAld*>%eUPuORyvcwOKjavzm-_hXlIWGtFl5H-N@_v;j3 zW$7g;-}O;auCbtCTbmE9m6kTL z02;%!xlCC`$`vwWxQ+{59WyTi$DN2dFgRWIw3Z9{IJ(&&4vQxJE#S90=(x!Yrl0I6)k?Uoy-<{P&62M*oCAOVV1pA14QtJuXQBgBl<4cbOz6W};pK=#JmX zc%`MJ{yQ$tAgUMWP%5u7Zy`Bjr;JsxYi2H}>bS`cU>qJnqT7OHUJT9?5xFYmko0$l~kw)l8IO0{5M(>d@Q8T%-a`eL*5UuY;uSjPia1C^%3Ud7Ymj7SRdPRKGy8G6X)aGG#@9; zm*->Ye0e@r&X?!oqWSWCd|6&7ptL5!_#OR zps`3c@hh7Mf4@`anz)!o*1pI$HaEf)wa6)yX&U$l&#s!S{NjNcQmd_Qp!1F&GhQdv z)w|FV1zy4$UXCl&k9arhx&?TGfeM351u?r)basdm3VU{_*~Fes_8ivCcXB<>{RN$j`19cw(>)E z2!-pd;(Lg!HM{(u{z;Oo(p$|L_-$B(Tbf#bN2|EYznWqintS6TFcia&+i4a5@dKa# z{tx`kyZnnN!3Nf3E8gDS7;PK)8uf3<)qq+}@8U%@ajA@q#s>Q?E{+3dFPFtFY_NX} zNTF@8e`bWx2K!eK#z}@X8oG*c4x?(MX}XObu57wfh9nXIejS}p*!U}|6P6Rax6mav zX&Sa&W^<60(RQVLPu*a&+cNg++H9!ljwG84y) z60H0SVTS*i2b9VcO@|c^G7%l!>K+tj9a!s%vL@Bmi<%^Dy_%n;H#`^rL;|ZRq*bBc zwoegQq2)E;U4e}?9R3{H*g5ggxEybxAC{JN{~{K4UygUqZp9wg)tu`hLA;$F&>NT? zKO*e#zU0jRWWvU!UVD(&JiI}BZ%Wcd6^W?Ki9!_g{) zFBbw=Jw?kCC82C|MQhEIOmNhdE<8O2X_|iEST3u03`zS=oCvIa;*Wyvpw%K} z699)8a}d#HE~_T_b- z#&y{-Ft4Y397^$gStM>J$zJ7MA%#1AHCgO5YA&Z?;&VXRMRIAWC|91Pz1&xx=>lrb7+>B^Wj=tg3wNyXx}a98lj+NqWvG>!$vNZ3`I`_ zt6s>As2NcI*}A5;GS`q@L1Tg$fjWO&tf~_T-eSpcC6v_ULnfkd^ip7FZ>M|NIg8mU zC>hp1!DN!KZ?|VzcB0qh^kpZ~VK3T_2^`$pd_yJ4aNA=XC!aZd=T>T-7pdmu%V-rO z`R|;IavioY?m;D0b1re%+*gZvJ<(J|oK4&b1Y2Bht@}E@&L3^_j!H;G!VRU@LFrzy zRh1J5L5+U2oY_2ue>2Cyzd2gq-?R_4foBN(xoI%`?EIVa!0*n+KZD>;jurmcv(R{* z7auBza=fGH(B%O)AT{2lvEh+F{L=AyH$M7n!z-lzH;MH@8+D`OM6^$rlV#J{@3VKOl;uVY736KTG@k+7896$y*U^&!2(bs}LtF`-j*VGp>H{s7rGA$<>^l~3*sEL6b! z4FbO8183nN7@EUFeJQp4N^AUcI=;GsxJzr4Fi`KP&~olx0xJIx)Z6fb7YD`rqH6H2 zNYi#Mkg)bvi0dgQd>ubJ!Z5!aOz;YZohv7J0Y5sgMy{gi&S089g%~)xYN;vGpkB@AKNsgZM;v5?KxEYb^hP<(C}qb5#6anY z2p7=9qA2kSzP7P->q)%7y|x-RP+Qnj*Ua)>V3+HZ?`Yyn*BZ$%mZm%})Cb?<4)7;N zcGVWGDIdU-LvfFCRJ!LQIt)D*7aAli?5)NvlHt%nE!TWC?y&D7O@zj^`P8%BlHs2Z z0)f4e@s)_Ul3@!TUW)HpHlf){$uR0qvSQ(x?j6)4i{NzHAf-2?Tg z2L(W{Z^W)~G~KrQzs1`KB2zvg%p=`bc1bYA;Az%EX7N;5$}FB{En^l>h2_lRX;v+> zcq;5*7EiPGF>9y7euu}eala&pL!!wZEb3DHOf`&%L#-lXROp>Y)qO`{DZB5OwT#_& z6qd95j#;(rzN4^%-FL)$kJf$c-lKBo(Kkp#_E9@9>UY^}jyCnV9hjZe4gt*-HT?t7 zKfIV&kwb)&2NayNe;CBcbcT~A8l9qlD>!-Np)j0u+^@n(6Y$sf2XPWmwDuu}lZ$T+ z;-slHoJ@~|lUXfrlJtv4k3kHKV~4dn-wR+Mhmu^HaWLKf{vn~yTZBun-+8E-nE$18 zayK=h$hsy<762LPqz~rbgB-Q912kul_cLqE`)A{nlSW{IN` zQgWbaI;-~_qIA$Ut(V8v;ziPHlGbB;_tHmJQk_>9*g$oeMH{GmyuUfFUWE?<5Z?U{ z6$qJCls7-5W;yXP^+teSz9$5Jc#Sp$avL9jCRQhGC4i2I186mpcSsDt&Nnt1;&vd# z9uft<-Q?@(e`kdxg#xxXbBLrhMBV#M1&<*4t+I9bmRrvesrjVMDCMm8M+Q^e|o zXbr8MHvfCCp%(Io8NKKCqwAN!`6kqG^Fbm<~O&&}5xtxEKcwHp=_?IB2rZ zs_}Lt<0&y&e7C4=2lzPX3_k9^EzTi+j4K}k5D;NRl>#g8qXa6e_G0ngi6PAMOzI-k66~3WOlEF*VV~0b08_0`44>!1CeFL6;bExsU z5pl&N<4UTFz1NQ;auZv5W%^L{O*&hd*1n@!nW}D!=cobeo#H#LD}dSEG*#i!cg>Zg zP;$C!29=Hl!FsO^u0|-WM&fD{H_Q9eGfLYX_@co}4lyfaaoYT|)F6Z`PG@lKV~dl+ zcQ0H1H!%(%{}0FkbiX@{12~TYV2#PYn^9DRZ0IoLRs@GZ9^O#;WgTTj8n%NC_m=H} z;jV=cXJO{|Ko~3s#pAHuc3t5RxBJFKONN9$Vx0cHcj-7$5DoR@JA_sV{c~^=;e9b- ze+NeS5^&qMBH>U66cXT*qc-tNfA0K%h+NRg3y5VWo;!Rj8D6@Fk&0tv&e?`JRwNW5 zmLA-w;j3RlU){g7IJ_>jEAr#}mYu9u}MiI)shnBndo#Hm=@cdjEKZlA@+XZ@-TE9cqSjLK-Nwv)W1-~k85WkAd z)dN#otF77O{-$Q9E7mHlcSv>4fm`POy*X;AH)Xqh;I6r5v@bbbr`XCTAGRb_g9LRW z+vtgn{#7pmb$e4oR5Z|4>ZSCSKd#jtitouioV=6~k>0Sj)O_o{E!ZtbNPm{f%Xb3n z45ObX)t`&yhXVX0AAwTKLwoW4|DjSQHAx;KX@h^{+?Jzn75{+@(qHdpt?mS*58HYP zJKvA_5oLn0FcnDR=YIr>6{L;Az#ry*N~UR^SSl-Fc3^aIzdQ|UPh}+@~j!fHbHw_NkUZ}$?26n3*&Q0%~&$@fi^aHC^1KTfhkBj)%x36 zY;|>QRjsaQptTcS+!#d+BFr5B^FJc>+(nw`{$4LIvl^GnChsO{7`EgRJ7L)gyoA5& z9AqI@(Au#E+X%Su5H)DL+*+}tm#wIaMfwD&$*e#Id@y=+1C4f;ON zS}Q_?t(04jrSf z_wj46=g@Kb+Kpf7oudbF5(S$0^>6&@K%62)+_3GhFmy=gs?nu0WrgM9G_C5wo~A(xNn28xl+ zP1!gh$3Ma88yw{n-*t#Pa*}qa`A2@0w#4eK?!JR697z>6Q$0|pi3XNxQ`HqB#ascs z2Yh^#XsaGCG>Z4hyOk}dxTIS`BLiNAb=Ph7j!M95%1)eRSx5;Vyfa`>h7c_T!RP*g z5F63gdNUf7Veelxs_t_QnGw8C>#K^>glO@~_rKKX&sC*2snVmqFVZu1{;mH@Ltw%z zmF>hp->0x!Psp0k{tIHOX`8%<_F#f|nC~X<%|-y8Kw-b(pCbI@k_;=oq`{r#^m*6_ z!$uERqmnk)BNABE>~wb(yszV)uvs5?@I*1AKDw0Afz=#=3mYG_A4!x}G912xD!%}Q ztoYDR(|f3@xa&P_&=^gFzVSURBlQjXx4`QUzmyLk`RjWj_gUoo&6vw&kSlr!^=POP z%qba`f2QR`2JVpaFHaq?S2x`u>zp^}7RBHsgQZIqmew{ zUnkauHG-}0kge*7W}=RBcU;RY0E}@|9nrE+4Srr-bwtNLb@-W7btH;?dhxSY)e$}W ztj5pSsv{ln^V+pF3lwH1F>4_4a!yX@Ym4(25q&no| z_0W%*^s&X?;e6(H?ZYtxf(!`iqv1&Q7s+rg$%k^Cutei)Lk2H^)gk(6PK@5ERSdJ@ z>0kc>#b#hinI!p!9BwXV6f1@4I+66~+eZfez%Q^NjeyLFl*v3r>Gl=T$s({!|gSBaX40EOMQF1=8v;Z?|+cM=9waM-Fj@+4wRRDtmQ0{FtA?WZLlcnFaKDpz#i+sgT(PS z<03xT6EY~9a8SIjQz}u+l@oUWI>l1u2Sfhs;ld0)hMwQE;%>Y>r0l;3KNJ&K6}QV% zJ4i3r;O>QUnFIHo4sIl&jZr3`KYpYI)T`{~nVVn&HX-=1th{J#RhK7-vD0>7H$SeT zX@G__|8lc3LSF}s1+R(an1&}T7tg}b; zy~9uE5B_iu(iqW$gi! z7}xBTgPd}ZE}VQQ`x|x?_~5#LeAXn7KgvFF#yF7S`)(n}DN^7>FO`qpzD&Go!iD<9 z0tQ#*q=~)nybY!?zb?vJABz9t5i}#}GhA^KLg;$dj3{O?3)QnT?xc*;h0R6(|cL0E-2|xfGyfAoX))->Kmq*sMoz2yvcyOVq|0;-f@11_m+J?B^}-wyYb3CtIXk@vm?h_*yt2L&GF8u zb@=ig$`KDshO`B^kw7HE31|aC=A;d!MK(fTZnpXu=)M7kTE#aIPMn`OzE%Z0`W9+2#(sZFjRCK0DtbW2j^}@Btb` z+)g#KcQ=e^YxXk;Zg!q>@gXH*X~px|tgI9Qs@F`VGpFWrS7+qae%x*KMkU}&EYtBh zn@$jx^5brN&`o@i45;S-Vt2uVmn4`%R&Pgqxn&BTF<|y5uwd?=0) z>VE~$DM&xpeuD?43K2Cx`}no{dd#?1rk-@LBx~DBhK=)ST3>t+s@J;CN3}Uqa8st= zexp|A_R#8@*RGYng8aM+-x%j^qG?QM_tpI1yfp>qZHkxZfoh4COR?+(%Dx!0v2V65 zmHN2nho67S@j4biIy^orFSyr8e?73*XnAFmMiXK2^*n;bL?(}eB_h2$5C!qVOOQC# z>}4iApMFk~*(c zBfxErvJ~*ub+RGMVK?9<7t}_*{st{cM@enbyMp#6C@#RG9_t(U&^!uDAL7`xbS9n4 z-0(JCO0y+Qgukc9H985rEL2HY= zlu|O3%%vkc=qT1vdmG1vYT;Lo3vBAfwdAK_Z*A1dvU9@9E9Y=rOZ?L?{QK#)R`9bE zi~rl4@c4Gx2U$@m+XvyRcM$-0krfa@w^P31y?0iC-$2dHzl;uf%{VJ)+M{XU8^jq% z20Ax|)Sb{SI;3vSLJK0yWJZ`B5y_B>)nl%?R88zn4Y+1*uOw8y68RgYKK}==Qw3r5 zLf@~SMf^LJ^e(YVFi$G+@7)xpN*_GGRo#xxsHL zQF~zlyNf@7j^P`XxE+-ktbDDnY;!*hJ2zAK?4G1Hbj&dk}BEbh-$Cyj61vjR|4AbkzLvYbh+l-bm<_mG8*Sl_$QjCoelE2`OP_2qu=x>^vc*u-+OM^+OBMvidga@fcXgOR&> zq%v}NdQ6WJQx+vLv@by*B|93i9xNx`KQIMyez``@xz%$-;;XCW_rp*Rx&Chf{vivM zZctxywA@MRwq!8Qk}rPH<`2p1#u%ak*B}*0u_o0b?~o3FFxiqe%kvytq+zO0z(M>p zlOvU*ES%5JjScE3Hzi%5e&5XVjUd-~k7*usBOkQIA-<0W(ckvp1+!pHGIjcp zWY`U{Ys_-eEn!IuWAW%fqZ}O&7rNX3_wZ0U0eCi+X_qn5bAZIcmlA}CCtCXvu?A3M z*N{MVK?O^-`36-7Kz0*&A`6x#j~88cdbdAMEfqAXx|Rg29dj`hNQ!Za+}z6`KSV5GE3R+`yVuL zvV`2fbs5g&1!z9y!&d6_cS6H@%m6+AihAA* zJ^u`Pj(hMHz4qSuT(+owse23$k^omAiL$1#)O87q?p^LO)x^f}U3X{s#Y} ze^aAjUI0xxD`?_ApCHNyAsPYmj=dcT^ZxZVuJb2Xq#D`g-b%>k@Qpp*0^RTmLQAMu zOlJzj3uV5L-NDG|NcSJFC(dgr$L!gUyGcGj#cjqV8CotV2cqqa{Nn%j{8bxg4wVd9 z^aP?9j9%;SVMB8|Xh;uFn9d!p#hnC8f+tHG(PoPByuJy!fDN}Iv<^-WFKIuPq)Pe0 zbX-WXn1<>^AWBUyhurZO55qc{#l{jfikQ;2Ey3yE{F-`1C$v8CFQQTC;aSkymR26z z-dp9tg#|BUbmO)Lx3s5Fd`O8{+P&p$&u+8S(!-OMopSw1RSdGyF&pB$%edgZ?<;d@ z!JNpnfatx#=>V8<^ zjGcfLcw!LH1+SiQK(E{!5zxVtk2O#py0je zV475!slew3PK!;ll>LsN%!WUTp_t#$a28a;6*)o1u~`Tg{w#rkx}!RxvGv z6}xb_`ns4(K6O|SH~aU#EJDZrKb+;$7cwe>yn7DjJ?3tC7QvJn?@*;35*em?!S zZcN^sYuQvnn|l1Hq!R}`l(>|ZO79;6TO!hY1^O|S&7gc_a`pFI$1G$_mkc-mf#a0Z zCz~%D&G&i7%gnIhox!+s_~8~#wh4yTMnV(IPyGaTUz-9cnM|YrH@Ma! z*gD9<8rVYc<7)AVI7aI5&FP8Ob!dT#A9oOSB>b~pqQ=JsWSm_$BAq&fl2a>@Kirp0 z4+uBATZ0s8UAS~}T?mCb)U02J6bev`>Ly8%$=?yJLd&8ZMe1o6w~4!OqibWw7JqyT zXdP>E}RqM4FLC8VG3fPinh=a6RRc%S_+x}$vdW9VM#`AO%} zdw%NRo+xI=BxOe>tq;f`Z`k+)-?vt$)75#iqnoqD?C2z2Qk^&~CMcz(6iJOqo4v!L znlF-5ghlJJqjc-N*)ak7G|$0auEgi0D)CY5tUSAAr&ZkT6hD9sfwZ7z)BMp0%s4Cm z${we?nxU<@nHm!=|KqdaT~dy9gZ+;h&WPS!4fY3hEcB}e`zwG=CU4xe4auM{+bFDq(sXRB1pugpD0XG4pxhlt#xvR@1SX0cZ7haAi)1JiIM9ScKEx&MEh{~m3!U96bGn@f-j@l4*4CxmE8!5JX27-npB(KIz5T5hMw1mh=UQgFmK{Ary z^x0Rz$iMDC`nF5}eWSPg`)|j+*u3pFvH0C)mpC|)sEF4y6}R6Fz@Nu6bXu4(CK2!p zeRQ%sdb@Z??BKQU5(h_l?R)(X09**Qa<(gUCJqS3Li2SRcHHJOq+W+>Ctnn@ z2I>71pCdA^s6N1&v(};|We<&HxU^Qw1tYA!>xZ)NF5%%07XAYsPoOG=I5@@YK@DHN z2F;d=9bk_Mkj3k~1Y8TOE%UZF*uUz_rhPNuOc!vEW(-bo33AcCT&-k?r^(m|Lk(RR zz0SY95$*Pu*>}O8oV`F+`Ei?oG~3s~pPYK6uU<5a(YFq22}t!vZT6$N4C8@)?1 zykDdo_`UcH!Jtpzgg<*7zLKEYxI%_h2yN~j49BqVCxw>!73_Z|q29cGdq|+oJMTN_ zn@%zuEeLM$=&qw-6NTh7cxGS2xw@m+al0P1aZ!07pyY%**B$cC)kp$~oO5xi+Olb? z?v@YW0@E~b9){=H4a-8Ww(gM)EtD3Lgm@g%AK)ZkXZ_BbM7D6;Hsre#NfDU~?H~k7 zhCdgoLQIlj35B2vzt4#&5+F~r)>0d|fBC0DjD5~$2jT(!CBYk;|956gCrdKCH;LMm z7E(Bbt|}niOvbCg)&x)S;kW4k-%Z~IGJ_k7t|F4ZSP{v0K#_cN&j2gp4ZXzE$6yc5Iw8`c*TQwK}8NtB5a#)5D)v!f`ANq?m%VEO?rxC z(549Te3NGl6_463*HWp0La`o|gqzjSFIdCSKn)z!0A!>=f596}iI4239N_!L9)DfS zU`kQ@GRA_6v+hS)2Q7AB-O{A6aYDSBFD9Qra_X2_=zEB8if-%1f>#pYyt)= zU;mmA&JeTr({caz=KwAO3$_Q1nqq%xmB5zEkKJK2Wqry~0b$#OiPYd+I>NUmy#ouQ z6ZeBQ*bmD63y2yKd6`g-(ajlnQVsd0AToAk?}tnuSKo@h$(lH-@a3CPQ*-wk*xqn; z%`hI1L4bJlO+3`}Y}c;oj)$R_Zscu8CByAElYh;4vQFXI7FB{T`~C>?3?kNyBb`rJ zmB(QT$JgL}YR~rQk}kV>$8pJE$Iy@0pa9CVB`!h3+dh^ICTg+^wz*q8n~WGpr&%Vk zuH_b#w5VLTlyY~}duGG>+8tkTA=%$rw!W^fUyaLaedzmVkE--#zZw$yUX7p&Ip$&e z8745dI8I~mJP z|9f-gRh#xKL$=e@F^)t2SEgNE9u3vS*@H+qFhnw7lnezo1+ZHVk!}trSl`|(&t=JQ z+f5u7P}9+0OMT1=B0{J>%xpFrEP$Le8+ds(;GVC`O(BzE%uUKF;xEeY&=Z` z)*qBz?U8lCzFx*|M0A!_?ty#zYBlPE@r&`sy=QJhKF3!-&neFbAorgO94g)^k_=Hd zsymIx^GKKiZxA45(aBfy**fzum0meGRKO@1Jma~@!pn+a1mlmb%cZpv2mcw)rS8JY za0kAl4!ek4219kpSF|X3KPx#tv}Ao$;1bI8alyf$`&?sW31`PgLS=S)*6t5gDOo=b z4H8#ToubrokFE4eFZpt8pHLE-?t($}X^5FpN_eftfSI!v=lJ&0LA2ga*H1j%3thSMz#aZ3uP2B`O$SHmz8P;GeUi&(E|1?jm_xR_##(DfYS7s*O zRdA1TR7pre-Q7_eXRv2Ml-`}?FMUyxnlm6O3ZqOIl|)f}{KH?ymulI-Xdh!j2Zy*- zGWh-mP}cj8Hz1?EJx6R1-=*+*(1xZZq;m2i-448Tqa3Yer0us=r8dscF7(8_yV5;Ld%+B!x|0Ba_anXB?If+aU~u}vgdPw(aIRdSxZSya~i&mcbfcf#B`EkTUvZK@vjK91AB}tfYRW)q~ zifH<5^G{))qtVLMF`(8>84_-H4mv!N#x8zo?A@!6#&- zE_+QYw_x}Y*l%S#Gldda#eZPf*VU2~$Y>Sc$FMJ}vE~N6aSULD^^ji$`?Pv-mw&5A zVm?gvUA5Ao%al?tgm7$^yQBZs!+;F2{ztxHy?7FOZ}Uvmzy5Mtxk)%s^L2;?1?>$AQ|;;kAJ1Tbv7?~yPOSJG=Z-S<=S*O4~3J9y^z zulm7zw;4gCkdZhtcu8rgbn*%W&6nI#=xu|-Cz^#Tarev zvnAQ<#lg9#r_j?gf0X3vs$1_J5-$!PWz{u$NAwa0=gV>9eE1DN_KhD>zI)+HI9Jyq^`UUuK`f?sutjyrqKlCMzmYy!yN_{`bnPGo? z=2e0id){A3e|9V$3_fo4je*VR@Uis73)&H0u7yrL?$sY%j?YOsMg7;y(ZW{F<6isY zRH{-7mHyIbvgk$1_T5YhE0NK*B|U@e zb%~WP!+C)2HrTA}WE+LEvI0*pLLLs4}U?Z{jC`!`k{?SzCn7O1f#VHuC0D#NaS<0M6qtCdaE z!2)IPagiJybe++U0psnIteNe~PYk$z)73G@% z>Z?c7w@}z<=hwYB{JDiXj?tiQZr2*Jn_rXjtgC~~S9(M9bjgrCiUba}fYdK%9j=0Y zSa(Lz-Z2HX(p7Z`tsm=vEJ^N51<$SzBw;>sjRMC!Q*swO#Uff2;vHl8iO>Z*#1XSreY@X*$v}?t|=YE(N z&$@>Q%B_u@bvS3d_6F-4%*F$%1r*oA434KMo|K2?S;uG^?wA-@n6~+2hv3M$pHEdeRX{EXJ-R}T?_ zAHGON@O?6ZFINy;Ktp*;AXNq}lzjCMC?r@wgQ)*=$@mw?n1I)kUfk&`|%Oj`RQJIoxr6XJiv3!%ew>JBz=^L20y! z4f2vXUFR^eTNnb4~8V$5t^)CPS*4-zW9yF=1&B)c#(WX z;Cu2Qa(4|f%}M@3SwJ48B3-P=dGN7@UPAihUbeBi<)A|5#@0f=X|cxj&L;lAcguN2 zUbj2Q!enKAANGGJ*W3nE*Z*_zp9qM zf*EUu;n;75n)q=C!F%Wj{^r!{5@A%vN#M;)0k8k#dx&XC7DvP&Z5$DW8-yXzHnF3k zj1|}&+!fp%T%UtyP`miVZ3yODZiAL2vMTvR)}p5P|40(s${d8 z?avC{n*hakqQZo4^y84oiR5{+liEJ|DTY!xk1LC!f8ij)Tc9<#4%F5VNh4{7I z;kEq-#~0H=HPS|@7OHa$JUACxr-t>w%`q>=uEd;=ogV3h--udyQe?LrgV(wVT z?T|J)2mUbkTZi~IjO%cYqc$BKM(07%u+Vu{vwL4eiFEsEmhAsQlCt-5-0TlHZvP&R z>kaM;A9CD8aQlDCaa+KD4}{+eY04pN6@0%6-&~9)MyrdVe^Gk)(;+7KuVZvfOsANW z_}4k+4XFI-N!*|I;oV`3cA6K|kif?`8PC2ft(RyAZ-3 z`JCg@!G9FUd*WwG8C}@_fc9OqUApL^y68J}Y5kurs$-X5_Fr_D)A-j3ex2D)x`ll* zW=cz+>?Z(tM;Hg>!4M0Dtj%Xpk&f7LOcaY7A?C@;XWDM)c+jfZAz^$zZpbyB1?F%)z zuFBNJLH5r0npVN>uk6vZt;y&10gf=o@s$cON?$2xlJy0<6uIVvcS=ruD-M8do}F)!M4 zMC0y2GOo*&H1|LOVs?yo)RJ7O&Ud{A)8A`E0)JnwZ>YwOPXs7w?=zB$Af~j}Yzl^7 zb`OR-FSnIy3Y9J1Z;L|rH z;f{G&44!+EH#=J3?K^0|{Vp>gP(1W0^8sT=hArPGDcEon%FG<4grC<}d4C((L{>bd zb7Rrj5ZknwU0|Ak{x`V*4oimjo(gR(A#ryF>HN#R&<3(#QuD3rQq=B2%D(d{6qmYt z;Jdy7e6N9|%~SF9%oxS`fcI{)HS3GLA(p-b_O+LN<+87zy3kiX`?@ZMz9zD-zp^;I z_1uiLnXgoCeU3G;Tc1l3_AB-uE@$#Od^b#}+Q0>j43d5$YWD1{4zVrh$$a-oM51`s zRK@lme>u~Jn^2GUJp16bIm%AY=REx+yM1~Y!n=>s>$?}TcF5UxTo%l3xS$V0mM()g zN`|*=SWWEBSd7nbF2(8dpQLwySX4HP>dB()6m>U?N@P*pSX44axmZ*zi|W9ldQ;R5 zEb71$6s2QPF%)$zi`vDa4kb|3;U_TaQWll)M+*Cv!Uhax+H8uQ52GONX9gHG9GPNF z=)?9=q%VajOeJ(q7w@aoNQR|@WHJdU#2xHgzMkz%P+&N05%B>{8o8kHcmwR(C$!3C zDNOxfAoYbT^-9?o%oJ4bsFVzsQF>se`j7`G{Wel^x#$V4VqJbQ!E&)9~e3l)?8?CsHS*&AY_7YQA1c{BQrr$&9?Boct?;CwY{a^ck` zvJqiq3XzHITnEEb@NiCiM>Z_<)t|Kr0&nQ8pwpd9R=Nw#9A@^r*S0%-q7H*j3B4ffrGjHvW;Zh*|Y zFM%rOL6z=K;Hdsr_@!0x!gRU8Abz)+~%efOJL)z`**s|7yerX{2d7;UNM6vYeg{S|amy*7zDl~mGOMgLl`uafn zHLCP6Ed3?n>Hio=?^UIbW9csqPhS{Fe}gK0PnQ0o@bs2I`YTlF<5~LN;pugO^oJLQ zrtihl8^hDTdx4UElPbNDrN1~l{ZoPT53ABAu=EMx>1PDem#Weyvh>}$(mJ_PNZh6C$l@23*@AE`+qp@G#H*3NU^T$vGU{Mm6km<+ ztsks2^40gEz-H|yF%_K-)@AWEc(l0?bqU;a(VW7K-j3*uhY5x5%`j2Wod^>E-N}I1 z=uQEIMYj+T5#1s{Fm#InanLORgh00x2Kr!~HZXn%>okG!5DI|~za@BwWI3b_1Ceen zd7nh;-@0y~MbR$4pTUxvGZZPQ^fo%CjZHVj@LI| z1xcy{Nxq&3NpPR=@OcXVd~P3EMl~iAL5{j}yJ;1DLw+onQGU{`qi=fG9oOn_FChNf zuVHF+<8F#(crqYLtw{_I|3KDn|cS$pM~E4==7jg-qeV(Up&D0LiuiaT87dFrtkBgN|nCP zkCz7YeLQRMt#=mJ8RPZ_;{>s)QX6*VJ5WC}z$D%y3o6)l>#hg1%7y$H@z6B`Q(BqD zf^m?lfs_Kvc7 zoj&zxq{pM~Kk8D(W zI$+H*6C%M41atQUwEqvxaif26EIW<$89qu-s&=vLAL=-6&6AYv5|#~kHI8MwK9FsD zAX_HO_B3S6xbQCkJCWzBdyu)|tyXbE)nOv#N#c+=aRdp3Jo~g&he;q5&A49RUJh$X zK*Wrt;{^&&qb6fQPaAKm6^9rB2vM1)G#+=u?_%0? z6Q-?BNvF|u(!TqSr8u+LD4+jF8s%HMD5KozQbjN`ws$~%-63vpz|f*@c<&7T+IykR z=dMu=PM^`jQ1(jnVW)=KRDQT37Gy8F(CnZk7b@ zm1HTp>K9Z5b=55r0PFy42!xExcbAe-;oldAJfoe6dV40U z1@U8)PUVX~(n5P-GKskm|LESJ@}jo15kEf!p#14V1t@!Z0Ym3Onpn6EA|AO=tBiu^ z+zNZPCsG0HwnNO~3u*IqU!6DBfCY=Omn}s($Z9i*n$Dw^8*ZbP>w8etV=U_U-4s>M zqBx4Woke}dqKa75w|8UIWER!PqHbVOA5fH&MZLtLhO?*!iZZjPds$RAi&{ZZ=dh?* zEGnHvJwZ`NY1YJ!XHlsv>Mn}f$D*t(Dw##ip{Tc5)MYH{Di$?`qF!K8U076K7B!lp z?q*T@@1m%SS=1nkaMDx5fkmxlQC(P6FN(UBMLo` zQP@x5@YUnA6t<8)h7-CP=3oM}p>i#YoI#Oh_EAP33GAbkKF(zyMfA~`eN3Q_pEUGw zBYo^=AEW8xGxm{7AMdk|Vf3+yeGI0LH`s@jK3-uT*U-n48rgE!!x~aV-U(g0-N$e{ zNiwYS5j~6RpwP2xdnw3$447_z1LSIYLPI8<$NJdI2R?(thj0>oT8@=6o0YOzuasg8 zl(G^_K}!}*~KLf7dfS+hf6OFHp9=>TLhSY^z&jD+y+sMcMwdM3wDL%vRMR+f~7AHp=#< zI@`0DZ75}P=}8sDo7o$ZP#Mj30NMS4ZK5Y0PorZ$6q)cZRx(_Hg?TeKi$pq_gAt4S zA+gHbBcjL_m(*MoDCP%99oZ)!QWvlfS|jI%&BadiHt5Sm+0e5XyEGWtuOFFyzD~q2f34{cqIr_2r~H#qY_Cdu$JE-A>7njfEH5(`CC~u5%R}x%XTt zc(EFZ{!R60X&&_o1G(v){ zkRZmo+RPH{TP!E&NC~#$6Vu)yiPnZ8#2h=k6Ve@?2IN>g8>0u#OXrtdiwe4;dxuk; zXR>*Vm%%{W@SRC9C($9k=l?hwqw%IWGvLrs5QQvavouRv$PHT5Pjm?K{fY9WE@p)2d?qOHzr_;~>JnlYJs>hr{i~|uc1V)v za94iOT_mf)_a_$pcw7>f+#cOY!wI_0_l-q_GQ`sZu3!8|N|A9ec6+o->bs{V)C zl;;S7c+W#581pWbUqTdPudG3Yd$EStf?~-qsfO5s*M3rrg+I|vUgMYq=aFu-(EU&y zv|1?{rm^go0UyS)y8_woRA(PY*-+k*&8@VSpRm|#zJKamzjyEOxJaTa(i*A;gxk55o25=@gGc`sw5;6p35(79UlaSU!hB(fJ zoxRhbY}=Rd)LFdpf^TS&nTB1cIzkuItkS#9X`b79v0O_6x&FX%-AnBm)N>7X(JGFN zlg*JAdT>xY&&j)5+`m=^^7iMI{j2_6+^~5)Z0o8YE#k#F58Jxxhp;cUb=A+NLq8AO zy6We!FSd2n$FeWnx(43hz;Q>m>m5BuIv6PHhvi})y}`lkIqGjJ47q6y^x<|^+(kWT z^Llv?)#g>Xs^>aa{Z#FAy=>}{%*FJQ}Z}_CUEM-o-lqNv8+i6$yX?NNIb-5jJ1k4G>iI(MXjT#Cs@>-ENU-{dXb{;z$j1V%qjxE{&8?! zDG=bs0N0h^n?XJlq~A)ubHGvCIB|5Jv!2b5XgxFtQ6PjSzi1rJO5Jf3ffDk*~D%IW8(z6HtN6b zaYS$rL%mwp`E;Y-Hc&*&bI0IO+dy#z&XMbg4hV?-g=i*_-mWafa`;zvNQT~*FjIS3 zq_X0r0&QL@#!CfwNqObJs@ zaOdvDu+nF((s(la-J#{=r`j9z7v8~McJeRLV-D8{|GG}_^*#))|69^JF7GnvBeiauUx3c|f500r$D=vU)29oBbN)#Pwk>{L zN4x=>b?0{fg{-w5!`g#qd~zcOuto?XEaLe_r#CC!n;R#1g=qQx<}8P}Up(SO`^s)U z!_W&Fv;d#;M-5HiAiR<@%Z~4#$FemVIWXGQHusba5B5fz%IxHiucmW-aih4)fp>U; z4-Q5>92#}~O-dBre?!$=lMspWvAtx!8%LBGuv*>ic2X*{4RN%8n@{^SlNwD#KJR|oRf~P1Uooq-< zK@&U^ohViVt{ZOy_;95`ZWE0zjz>oNRmdhacqHxIzv9rzk0i7E2`J{HA<*9kY_afq z@{=F;dpHTHW4+rYc#7lk0%E*m=#N#4_ISZ-j|09EzF-SyMt=hH`*Muz+lAkDybKj5 z)a^407CZjp1WTPjRxR*$sc#3+<#K@~!DvtAh3 z=;~>y-7oNejol5bk^5iCjD9cIH2)~me*ZX@w9cK$~t6!}5AO(K_33Zh|0D+!< z7yIZ0<&=WA`RhCD1N<^8Yhk7USvheJUxU_wV7tmMT7+}{tte_~V$EK60<`u@te^`6 z0k%FFzmKvs!=Ntcw_zo|5|KswQ_sHZk{Sh1qa?iBC|K6xdx?w^e9fF@=6u7PZ<+Hi za5m~!!(YvE4QuBbJ+=h}wm81=PO)xv&W#*blA$+$eq3@_3Wc#n;KB1Pbab1mGIH&} zo=sTYMT^O-@$OO1r1ktNYfr& zpmjA_7p1j<5Y0bJ8_WUg-$ay}7y!djltPzr415o?7N8O6vJ4qE_SyII_tn!S46L+& z4^FXgmehkVGX@|Z?GtqVbtKw;G+~FHqzMSJo9b2eiG3HI+X!XE%A6GPmFfyvV&C!(i^JsP6m^ShT$x56Bmc55ZGFH&CsX^}@$re8TNt;+_ zkrwuPXN5)J%R1O#boKBw8XNRE@TsSWVb`;jEfM)o7lA$w zwtJS^480AaV5z8=`uqXrfYfIy{T)Mp1^Syze^co1UG(=5{e6}GzCnK5Zdkcv=be>yJp%ojK_&Zdo7> zmXxmrQ6t9D+(S4yeX(^1kWaNw7e@n&k~7htaafX;;&$++ddx*RESsv*0Y0cmA=W`S zcUJ$yOO^01UUm~@_gdKyq7S*?mZMUzFYTvilF&jgejD-@PN*_Y1PSQg%1U z?oQeLP^>yBb7gmm?2eM%G}%30c00)KH{+SR zTXt`g%O5PeSITaj(!T4N`?>7yl-)OF_hs3ANOl*??o8SJNNJz^t^7MK!|xl}jk}S# z7u~2%w_`N>-Y2^UWjAJwoL+XXl-+A(cc|>%D7#Z-ccJXwC%ezc?yIu9L3Ve_?mpQ) zAiG`1GWQbMO_yCkc1OwXMAF+D7)+B{#`4(|CYl$Z*)_^;oa`PS#oTXX_kG#jAiFQi z?tQX5S9T}L?kL%H%5IA6J|LH0DZ53oyHkckt^yxr*eJDzakkg=gRJlvYRWr*U0YRF#Nr2ocepG9N$Y0|1d0l zdRY2b|;vLSErj=T3qG| zj}69;m|k2q#A%#aTrmSn=~LRjPichs=@sQArBjR5W#GSTxgBzX8ODN&Vq^9;juqvT+%sHd#WQ9Yr$@zmmi8O6p)#ZwAqmX=p22?O=? z%g(_k%|pJOs&6Cf=j5qFid_yUb8>OTOyxVzRZ&_tnd0qbu8P^l>E)$mSSN%RLpu-- zlPbz@DK6u}dOw45Moh{61?z8LmOe%O>3?NhhL;C2mXx~z&ZT9>h;2A=`W9`#^dpOJ zbr;WY6-UO%zQ)Pru9ip|DW5&BU0FlmP2WSD6RaZ#O(-g!)FwdC94k z7A&t=E)(z*5V&9}H4@-vEC@8aJ;f>I!5~)5HbP8s8I99Pmu3%SEi0G?pku{ODh8Th zES@&qHCv6IA?e$m2kQ2POv+R2ugPMfepQ~wn3V|&n_4t{C~ek8+( zdpi2e)ZiHaoT){{6<1G6W8bb)D$GJ(0P4w;F*3ciZU*xYkOSlbQrKspgp2@KECH~j z^qt`hk_|86f~((F!jVkm8M2P za~KK^h=7903RE%>D9No3t^yBBin)N?G*h}79wo2c681uhqGv?ayHq2;rw z4G5_;gwy~TQsEsoow!eCrGb{fTuqJGK&5?YK&hB7HC5HVNu`q~6_**O&#+7{D1x=Q zxER=|S*MTj|Fff++{S2zz$>j}00Wmv^{?-s3O9_W6ZR2hMWcWdK7G9ZFTtlZ+F)uI ze2UV|jGvkm4xiD32V0#ZjDzxqQYST8Ej^Cn1cIPixlwkIgk&d`)dZNP$mkv5DwY zda+4OKZ7fbF)@G8h5Dzze!X$zVB_e#K}24FOEkh-mUj9a;+Z77r_1)W zz!y`IsRW($aQ<&FmW~3f?DA>T3d*1@#$=N@4R=Fl;})m|yi!gKuhicZpi)nYOt*kn zdTa2?!!{VFm6nwnQ(6El~IHmrk|JVDQacccdZqZ-I z5Mh*K_z+{>C`a}%;~2}Yx3BnbKzdq6TJZqWfYbpgfxfpGUz$(GQTDvkXVzQeIMkgj zNIpSl3sT$1h=%ju$!W=I`3bIxg=dQ8mOH2Bo(fv!obGH*P}KprXrydrh`6gqlp(>QQG z2LDVE{!#n$T;|a`~G+3fhnoxz{!jnKE-9l6{UqZwkiqlSpuUL`v*&y{6;94 zR$$C4EU%beP;|BviwOKdO8EJnP~e*3E-Ns}1;!gVcV3n$dPRfY{8EL1rKS&Lu%6*0Mic({QO;w69F*nb0#n0F8 zGqEt8{w!(%pW>5&Ps%R_pOX*@wka@8Jx%zenA(I7+jQmNrpxlHoHF74O>2P8x^rt8?yevlRSveI0 z`^8j6v&*cK5cL&CT62?)z{%w1U6q%2)$p_w+*Y8}-9;Nn^r?rK%?H|C_aP|xxr?r5W*>oa!<(}053(OA-(=6ivnZ zOi;pP*mRz0Az(%*s8Uawr!kvUph|AX)Jb7VZmoePGJMingAXZMSPM}~bNch-SI6%K z;FI1Od!V_wp)li_LE-}LtPH|5ugA(PV1w0tK3KeHvJ z9q>#3nbBpy&r6U}&iMIX5Ps?HhTqSKeyMGtUpqF_DJM_RQ_l?iOs(M`0FADw1r?Bf z>t|z;;gjAbd{X`k@cD0@jYWh{YD<2q5W!=uC@d%{HmcOujCqJrziBiIhmR%vzDe8g zN&2k=C>%cK2=Jlll{eTiCX|NDaQS&IRfdTJ2DF=Chk)|TD9}fsKWh0|j@6cJ9d#qX zXN(Gm7?iA2r%x$Bvh-`iq11NbP`EtUVxD9Q!=K8M(u(3iQwwe@4#k*L>wWsKOWQ8O z`ItF5e16R?nOZPoih?|Ot*l(?exLmDfTcy(Lc5WQ-AHR=KQ%x;-AhR^x6=Mr?&`_i zILYBY+2wUWtIKO@VBnHZVR>!Yf6Gbq-)Jo=nC^<8=w>=a^f$GI{-#rfS|I<=0K*pN zsY*Z#_~BWw3@ zoNls2?*G`*Qe!swW|S7Tb!-+`H}H5t?kz3~N@wxVfciSg+}_ItKM&v0)+t=;^9wnU zR^c<6w9av&MVMs9M4O{*y4!UI#9qHbdmUzze9zHbtiI1N+@3$`=hRkcaTc3)QisZc z^VlM0sm7eDRP zStBF4mGf3Aqu#P}&Jkx0SYh-~ zUMpE&3tE8{6p$uE3(HDw6JQ0co<~C73w-x+Q5Qm4;*A z+!RUJqQU|-e9C7PS6GQG+bhq;6UMgjX+UZizn+_COdNSdVD|h9VP!rYSSj!+ zmgOB8X{OY0_{fT_uveK`T;Vbn7EGGja^hwDdbI`9+pR4ai9a=&!r)~_Xq|P0sWtet zpx=4PziRlToEi88>_mm{pIcgOY!yuDAz(^5Euxfhx-`kuE_F4PV&BP~2c;Cs`nl<0 z_g5oWxlAE|S;A#glhPD;O&Snn5mRLjF(m-0v@l4?*raszq;((_WReR=ZdC^|0%;;U zc4m@hnj>Ku-<;O2{->DCE&Fdi z)nlfN6G5WA{XX%U6IhRvlM7{^N!?%T@Ih9iZRCjIcB6GbXmRV=Ram1t zR?5KqOExQfml}Q}3vMf}FbcDaDhm4krY%WFzMpRnmoJU9Tb;_nkvnok|Nov<)03TN z?Lvw0{-=lAuOC@lFjbjFxfSL8Q_gM~cMEtG{BOeRzfNdcfmhn^_;qsd`W?Sc3SI+D zC!pUc#xc(P-xdw$+JHxLa$E2K{2B9`R!?tfAFc2N^J&c4O@La!>qPW=%-L<^DO~@s zCI1*uJ39#_x&YMhC5)gFokdZiYpGPzqUY^AD^uDZ5SLjZwSRQpp#FvB)0hrj=zAim za@)g4t{sCDAa0fbq)%X5fs4@I5_4PaWmP9ON z5mfumzI8nSFGb(GILzM6$a2`lXBU(e%~o_sekp4+|C4k({5=W`;zELo6p^2d_xMX2!ilFS7q>hq?&f>KxUEk^ci(&3 zz{25^Y$-`=9X`e}{mo1{^tWccI;EXpYbk#>nIplAS@$U`m|8wrd4Ma-64*(?>epsC ztQGt+6_%7lf>$m+BZ2SO6&8oRTc!e=`J|69+P=b~5=Ndniet@_fuqNjJ5HSZD2goYV?_Wn`Fs0|fr0(W?#kn8V={iO8$q zm2tB0`rm=liBH~JnSbW6`8R{XtAb6v>8h#s3(%_n_S_5EPZQsnoSvc94`UZoC&-r& zCnWa|opxdyaX|erc(xsr~W>4f_So zJC&aFD@Zxr^UsvF@baY3KLhuF!r$M^n_gU8k2#x|(QtW{IW_G4;Zaj6+%sI$ z3TEJy{7?ofIY6G1e`R254X4Z}L7xNiJyToo8VrPah6~DKkfXbaEx?xXv+!N!(}iF1 z$-s{(#F|eGz!vaJIa&A_EoT$r1?2B(@=G`=VfMU6l|m&X0?f_33NM$nVosxPt5;tp znFBDxt2PSAm&v0dHbkYrDb#%2;i06_pH067;gV8EiF}j zpKNs5u(I-5Wxpv|LwkkEq4Ukc-qB6Agx!b1o4{jACsh>C5n(`&HE~eR6=x%p)#AK; zQkcD;F~w!&)56t$e?b+O$S?^3!l~&Oq@*%?6v?I(_4<`>ACVt831yqvw0;rxvcGoR zXwPOg1YYI=?4|LPl(6@j^GgfLb4tTktuyeDhm0Y~rZ#ExnSRovpiL!~6F=z@m`~|x z87R5Kx69S=BBNMsf$9uDSsqbdQjmPQ;*!)eqAnhQS2C_>_)n%o0r_zHpi);+xpBBX z&tgK2jsWQ~oib+qlK9m2^=O7qDPe%hDJV3K$TQ}L@{d8q!;BE<{0^T0eKIA7%@XAAY$vpgTo^cNWPTTLho6o-Y z-PN!;!Tav!v+sTPcEG13!u!gR;d6GW47UW`iSX;h@Jsm}e(ieS+c>0n8nO+>-w`ex zUTH1pS?GKFmMhM7fVF^ET3hfstKRH8S$LUL@EV+(XUuhu&NKdMiP#wdS!?grD|&ow zyjP#1(mW1%jyw4TTl{b^wX}t84%#jx20Jb6U?A9!Hr^9A|F6C$9&G)|yoZhlLCO6J zDobY=)B8PDFeeXC3t~TIf`5iv3!^fP$zJG^L ztN3G5!)LH1_#X7x^Oi|CVLG+<#eaua0A3~Sd2ig9m>-1K*(A<8iTBwRCF!#p$J%(W zo$+VCzt`R_{wl)z?I(cW?|VV~*T(yU=2Liou)VsACj*QDt@b`O(EH@}_C9c)chJB#E_gG0B3ptoaO+M zS<(VnW$v;1lwGhWYG%-yjI1cD@Jk zJG|NhuixJrIaPT5j$du@2N`Dhq_LzZf<5&SWw#X=N7>Ihaaja=^MUIa<`DRdv^s{4 zKI@Sw61*%Xl?7-SUSmtA78Mq_&R%?KhrQL)dDq*b^zI}rtE$@CW_y+W+1Cf^d6l!TyoTLThTxseub~r*VTNcsV=eMC(r~dmld8 zTo7h|i7wjw*Dlz!!OzR>D=(WJd{EMuVjPovHoaY=0#`z&xHnj#*|jLP~W1p8(k;GXZ(7&iy(Xy{kLS3yzZHT@F|{}S6oqA zJi|D=blRjy&#O(!2*Si10ux!tJ1PB_JsvS9pS--YMgPrbwEw4m>0HTno_M1++{im*^eWGTz zaef`aJ{7ezbPLpqYX2#!GbD#1VzTK(2T+l21BA}wtBWn5yDJ!B%34jwr#zZ zAuN&%Cl7uMcFU@ zZr?HpBxh-vyHbWwYxXS_dGT2f9~plN)02x-c=R*kPn(Ja|4lZbEkK2>e+s-z<`dwP z@xO{-1u3Tux75>uTR47MOvw@POJzUxm(c2v+h_`CIVQJBKmXh9`_zw_ z(`mD}3gB9vS1`0pHmT{M^_Eg-&2(e7dxoog+6=Vfmu5;b&NTN=OKYjxlYB;@cBbwc zMxbY=R7H;|h2gb=&(^%rd95nZo$66xT3bjl;G|bdHBzLX)Iw=$8!5uyqe%?SZ><7a8~V*Myl%)HY0u01FX=X` z+8XJ80UPDuJJ@|~6$O*a%SM*YC^kCE3i}&}6qglOloqx)^8Z!Rh1Q;2YMm~$;Lj9R zLzxeDt1)kSd4-EOi!eHHmKdW6LMy`ixv3=sRQMGjnR8@Ik%(Bp#Lf!=*hwzDzpU{T z^_2SEUVGbXO8ERSnZw>k57_@lLs*5Duo-mLZE3>cWwwOFOQy&9{RY9#FA_ri9AGLi zogSD9EN6P-*9v}_OHAhf0eJndp;Zfbm6+K3fraLDi<&-{mlsVccDafxCc(TkI$cFX zq0jn-Eew9i>GHe`s=LeZt0yWPo=ajZS|klG8c-?VY0NbpkelW7t7$vora7Mx`3U^(Rl?0=7yq<_kO zwV|`I15((aC>{E^t5EPz5Y@cGDc`X^{U+L zE0o(gIpsyg5!Ngj02x2u;$=>5b0rR(e`YYt2qmV}RCRxbX0vf0V$HGVT5V_PeoJ}J z!W7iDX7HI(UQrr=N!sbMaN!4I$_`ux)9he>L#Swr8&k=x^`>Qis1vI3#`kivNAx#3 zN7?!t2Rnucqa4GB81qIsvWNZr@8^V!e0vc*qh0tNc#ou@&Hj!oE|{u3UJa~f|CF;x z7b(K(5CMLZehu*ZMF__!!7n+vZTQ)(PNQ{Xw$)}Q_>K9s&A8UygEO1Y#`gqeptR$? zH?#R{d{3}-_=LP~%Fg5E_jwq6aJOvFH;!^wOe!}fpN)KItMs`AKApAixwUUSOKS^W zXO#{A_Q7j_{2dOj5yS0g<2-Ej{WjAH-*1a7iaC=SeeDpEwD$g)`G5HRw$L6Z@}0Dd zw3GqKX(i}d3eqg#D`xF4swgily1MWzc(qDBvSIoZsqFm{bE?Ur9^Yxx3kqEUe6;*V zM5*lYgx2*#ONtcCkpmQXILchb71lzRaY#9G8IFDfFo7{Kz><+L#91)ATz-1O(w8g< zDwE)ZT?@CKpvLvq+8sWgX^LG#OW1rJn%!@-CCzNfG4?asN-K&BUGz#uKmes0WwYsL zSKRgwT%isaL2@TYE`VWVrGQVi-P3j5HT=9D-2#` zKS57Vm5Ru4WPV*V_ARf%z7ApDnw*qKNL4vbl!D zHu>yZqFa4`(`+)Iz3*=Z!PF{zOuxe?B7BOJ_ghoie4n(n_alGn#Ht0niVNj+E;$@t zslUUk4SL>!KB?a)JzL(|49>(8yyq(KyH55!*Ru}4Qd^_%0gs(M^<}gK&!U6duU5Jr zYWa+ycfuZ^;%2_hz&EkLo|Nzq9{HW9Sa^Dgj>Ft8YZ}p_U1w2wLmNw`|9>HUj-I$kz_xXP7+8vSLliq&# zr2IB8uCTc_wP=iAA^$CCcb@XQ6K z{|R7)z)P`*kdk5!hu7?qsRc8pv}Wt$S9WDR(BJe{>_6m`7FIw9i*Gs6Rjf8e5h*9# ztrNUep>&~Dd;2M&?VnLz;*xLtBE>w5Z~e9gue9W3%kS_yF}woym(1Pg&WoO{9MGdFa(=%M1e42)!R>*$FRM9$%D}EblAi8-TJ}RNtKP$pv^-=k)B9{V$jTOgqtB3&o${ zdsfA%rci!oxIKT=&#CR)LRUDgU3^aXcn02u&IlSDVC^pjW~~e@#Lg;p6;6rpGLt;Y zzqKQS6ODXi_*v-xNbn0j)YWbnw#x0NDcrv01VV>k_fHdk$tMlJwzSk+!p~$5b1f0z zhrs)}#Wep#h@FhQ%cSUQTTJTxS zFEy3f-!z*BsL%U`k8#)>*2vTI6cNqR7NpWob4hFYe102fc0%?s0H2gpGxMbf$e9eE z8-|TAW{((Y|4p41w_9)@&MyWO|f^k#D9^qY>Oukzh99i%N+yqp%rxeQfP18-uVeM~W^_L#`H7ob80$0{1r3GljfFOxTl_^9@fI_5&by=PQ$}p(` z&>qcDvud1^Pv!w13lWP{1d=%txd_@T3xf|ZCauBem)%R9!bC_unTc?My;Qh8WJ{X7 zA27F$KWC|GWZU!2{5w9iJ>UK(=uv?=`E&_Vf!T5z6sdK3{X71&J->cm&j>zgCpEu} ziG!xPi(TdAt|?cXb+8JhN2vg@6mx1uswFiA+?14zl#-O<-{I97ycGN@Oi@c%0bVH~ z@H*Sg`Lv){z(g@UIrH!EiU_Z8{3=vl6ijaoUS~ww{A*eRL;tltAAg5ed*-78uMqzH zcX+jHKK@R>+J#>-ynd(mC%ZoWJ|9mGzkY|;$S@c%)%r^2cIsPYOp?#j6nzM#{}lz(r<4`D`oqtdQdT@8 zWd{7g=Xg_FSVss)fwcBCUbPwP8`?>ZhCOo^HB&9(adsR8m%#JSwSHQuV_Z8%{nD0S5@oZGj+y;6!la z7J%y_8U?`oJ`VB`B5)4F#|L?$)o~x{S(G;^W#T->=bZad~Pf`1G7UjhWl% zGB2i9%9FHTRJ>?>>;#_*R;`D|>S4A>>8%=kY|Hr!p9=Z0bpC}ARetXHf#*8u;r%DNX?*TY3z@woKL3-4i{-!7TUm0Wk;VeW?{~KzmFcC|>_sb= zZ(z(SUvDy|u_$E}r%$e!Q~K8Ki|=O{x~J+}dK?84vV)1|c9_(OE=U+c8X`iaKA6TESQ!T{*R-Wxm7B%yB< z&*?DuEJV7Jo0+T4%sg#Y!OM?)7!S4RnT5dAbz0Y|$ z{gq|>&gLdYR zw8fWZo1KnoA2OFbnuB=SQVR#{dV_G@;}D+`W3ad%YQXIoQ}0`PalUadj3-GtauTqV zHB<9L&Cu5J^VOfg9QKhO=217pFlq#;jE~Wpg-_8z(!4Yn6|X6Ivic&X7Ow+d0?k_V z!$spsdPhF(!#yhS(r5O+4Va82DRAM)?L{Yr0qYZc;pWlphViiSW?n?z41G?4o5HW- z>GkrqKMA#)+FI-%(`;gUxdd(sujPy4b!nG275w@hpGO$2>^MS!Uo@hW@1?*4hksD_ zQ+OS*{@-@h_5Xt?!p}WvP`i${I`l_lZEy7r(dMPC300;_<6kxHzZ5r|_{#_{i@Ej~(w4!IE8d`=j&~oP-86L*w>tl-A@^h7z1*LSsKrPB44*1| zjAj1a2wlM^vt{N1>Y3isU&d=$o_F5<46k|cavmP9XR{-ohu3HQv0A>w)#})$J!p4K z-LfnjKR(cE+slX-?vI=oGozVyt2R4}+J{`lNu_GYxp_!tzxz;F}kbFTv_X;YBs7X!37c|ktljH8mu@O*8e`7$ zSq+o-7eg2CoyhvVy}rM@w|%Rp?KNe$xy*+Y*iGBAnqVOr*0SA#|7^QywISTJOfa09 zb9@i%f>_PiR$BU8%p86cIk0CVU){)6R4WzQq#Js1e|ce z^XO(n-O+BVfW1CjIU9DSoz0n$JuCYotEGXERCgw8?VYLTzGO z`TCRc=~1?dV9F|*4{6+*ip^$~tXp%A-eam(n^m@N&6ys3lUula!A_qEnuWRr#wZ)z z8a5lFc>n2GZH(vhsd?s7%a3aAsdOZxbzwm&btJ={`=b@@^ZQTJYufg5(WjApp@H|G zoef`GKgCa0QLkdV-y@hbJxr&%xO>On?VVeHvsC{_UhSz`&0XSWMc>IvwL7TY+IqXy zR^%?j|L#^eo}{^lZF76$&TBcJJAMc)krZl~KkQu8B_LTr3jnB{Zn>`hr2#)st%|a+ z<`Pj7lxk@z<73w2b7x3taOuz~;bYa~!{_MY!|j(3rtDJiYS!bm5g_N!@KW$<)#J71 zgf4sg_L706;A7Y0vpMmh3YSlk6nr`}SeU*$_GyQVnaY1%5wv;xo-pv@l9F zKlD@I3H*1dhcF^tOnIW_PU4t`spf)_Lr+tdz7-w=wWm4p(F9LWWM{q55I`L}G1v|% zjTJihcS0GFn!XEd5e>8v9YygOf36nOuTN-_g8kdw+rlzTLg(1=1E(KQmZ_5Nn8pd7 za#T&<)np4VCS&UQ1K-tX97A~`m(|a!;*0c7TE!CS1S5*?A*0Y}Lxza_CtcAqqZ-zc%y%Nd0s{@7yJ&^!_AGv2vkyBrLO$Gamclk+zU%uP!97 zmFS&QKbb`>(ZDF6eWaCj^C6)=P*h z;gX7B%*pc$`OfnfB3Q2xzh^T2RQy7O98N?xF5rv3eiV6B1z4to3?xxJO|b8rK;$H$ z@NX)_3;Rnl8IPkFWd!2VA;czUATpzJyWOW}+Jc{lIWN(g3x4_e<0xTgw`vOm_`kph z+9LFvI3tv0l3?}UrSk{1M+aGQm% zYugc+i7|t85KTf)mhAZcCQY|OthP({;>hiKUOb)8izsgodWy}V)nx;I>!6%y?4(pC zvspH(44@m+IQ40g^WT8Z4vm{epbbF$=rPsiWkCq3;sZJb)vd^>QJEFg#UxCxL(jZe zzJz7DedF-PTlO$ujd;LV6R|rAY#Ma6pkw6br^&XQkR1MFl^CZkVDj z>}n?tXe6wa!vs>&Wi+T=Qbh}*jLG)vh8kcNGToW@N1+o?uN*%K^OP>)Jc&aXP-5o{ z9-ctmBP|&@LBNKMlqu$95^%lR)rL`$ig7~&qR7q5Ibh%kI*%UvE)KE%Y-Nua6tco9TLzUu^t{djnmu)js=uq=H_ zL!e1m1$TtL#sbK)i()9{?iNO?z&WF_R8V683vrHOwcG)A98bxYiPV&GQ~3|515HFL zsPao4KjoMVwcvt1tv>r_tZDi79V{(SL=Y37_@F5L5OD@jvvC)MV&sGpj09O@{`72& zC_*=N0s!4R<8Zq0_jEn7QN3D|^EMH3tcgw}Y@r|u@!dAn7${sof8vbYq2q@Ia(J9O zqzUgYg5Nk(8PEWZn+9jsa9q$_KnYZN5MXP;VBwYdi~J}C@SO07cg1Al4nb5-9K;iA zm#QVsapb3_u%gJKs_p0b377|G?BUoxPEMFBTpY$258TKggbe}F{E>4+Q5K^~T9yZ4 zC;3U%N?}Jzl*VZ|z@0X@J-y8c{A1@ZfM!2ojil91k}Bux=+h02@cJ z+cNu(kSaUu_O0z3-J1nVOzK^3H)J3)`9apX+EvG@^YUTc@g+Zom8gCiaY@A}H}J8S zq5+%G6qC?IJiNJk$SWwvSCLhWt*2smol2jwAgj`oG)C1@BrDU6z#bhxLa#6r`ovL4T+Z3j}JuWk4N%%;{)S^9d2o$zK9t}?+|8~Z&N zW}vyJ`Hp?YH-x`evl$DN9TGO8m_LGay>})_$^-k*gzKk}1{AWK9y6>vS<%-(*xi)P zu{*0w`Et5bMrRy01*HsIN_hFuIMi8;OgBsP(tzaCcqr|vGj{rZ;G-ff#`jY8Z0`hS zK7Nku+R11OsymW~Hpk1u_>Ewa3`Mmt%#&7vNxVX#-*^HMekDUUifPWb8rK4zI}unG znK~k23Rw#czMlrSY3vWqZu22?D;z`^ze%>q2Dw8tG9r{D@Sj7D;4h7w5TAs^BM~_% z&{;&UmNPyQYC{^}`3NVnF4J^T2m^7ZBnELb(rz7WEOrPXbI_+zPQ8#wtCkRJ$yzcs zmRq~Cxvj0kz1sr`2A%IG6DL^J*0#3^F^CCuXp$DONt<-YD~&HTt~M4Lzufq8%9X) z{;3rH=Ti9NQuu#M;eRQG|FsnU?^0NUy1oqeb8zpGd_Ma9;L7`rOg{PY0m;KfcR9hU z!Yy2k&)lCoU($A(O2^Sn z7`vX6I>HE>rsJ~`LFuZUo6P3Rd>%N1ucD)J?k1^)0ZGo0>uh3;Ukb^^TdsX9=;kTj z<-g@6@s+-8OrQ7G^?ICP9H-gjuH^SDm!VjaDnN=lTc9IhAuSzuSMfboq_CfHVX2uE zf7PcvSRoG{Y{303l=&;7Kl}*XKLq!WiLv%aQO}Ys(u1C|O}gaQ3CZM6+HPn+a?c75 zk_p=YdfTT`4QJ#3AaIVb(3|-E9^d71pxXBez3PQ5=gX#71-wpTKV#^_Ah&?G&kb-Wr~F4gwZ5Oi=s1&Z#mecuXBWFXzps?Sh1CZu9z< z`44=YiUX<7ode~^l<7y#eJa;a+6MW?N+%yiSe+E;y?> zFA={+16mcoNmJ=zW~P22ew7z&ZB-2yctHFP)OD37uyAh(vxaR@8p(9IanvYc$NIN7 z8I8`0m9M~w)v1EA3U`G{f~(Xk^LHmb*2CBD9?VSd?yuC~+hrn|WCU3M6KA}IW({b_ zjIqEOtG>Z%&NKSQA}7@25dJ(IO@h=<9CX8yV*CJy`Tk@upz&b>gC3^Iba=?jbj;5I zJQSeR#UGC2Xy6Al=UYmriJ8;X^FNHEK8*NbE>AUdVRXnXB>6n_&>gzmelOO~je>~3 zA*u3X!gR=mNqLTVzyK%11%`EcW^I*;A|K>t(CuxkF~Wof+}&4{=4yGbBULVzuZxK% zIQA60oLnts;+!d2=47pgwPK-{@fWN_1J1=twsx6ik>7f6K2`c}F{Gdo;P{?5vzm3Oe??m6VUT&Euu8a3hA<0EPQ;=# zmuto|@cY0rx1?o&J!f0&F)OT?0X?Im%&y~A=O!JQichkz=nq+VU3iCBI9sx(JbXao zksmVeKMSuwtMbJ(9#-s7i3>$LpS5mp!aBiJyqY27!v!tNL`!x(<#z3gM2xC-E{1;% zJ)S)=W2QCpiuHDe$eaM_K7`)f8o`U=OX&o_}WDja1{*NBYbPOc9Iurn@4KSGrt*o~aU$I^O-1_%%9ChZXUq zuE*o&?|PCxlObunWipBymQyMG`2=RMU;zv4t2f)oe5#RMnjBP?UlmPK;#V z{8@A!A}Zw|y+i>h*iK@XVxp-GH9nJ9fwSkM8v+e&D4srOCacU~ppHJGGmOTqPxo zF%9k|vCC7I#-13bUlBK6FUg0#064tRAWJA%S4Yec9cvBp=StiGqx(x)HXg_5z6o*v@E=h380)}g`h(|)2w#2o-FLk{4m#SG zuW){G>R#RIGJdZrac?tzdNJ;R({+?MPWL9neIFWN>6AZL|9`@+1vswiJb!oZYPDKv z^_K7ogC*J6!mli1all~XmuwkqvqiP0}JG%MpoQS3qMqxh2%sVpMvfVMl1TD9JCw!n zb2UNKBtqppf|^4j)Biis>*SF{2nG<$e--J4Y|lih%Qjr*A+3Ld80<3n z^y{85>ibzP6{$+(*n#iwG-+yH@~F7;#ETN%ue-xp7lm-q@c>!|ZG=WykG)~^GLAZ? zQO7jux~olHl6!Fl%VnjjF8!SNOH=<-HukeQRa`5UBZh}4J{2FgKF9)x#!v(S7i>#|Jn({Q^{2aWxgsW#fSFZ7f^K$U& z5^j1e?ZR4bI4=i}9=p&+mGv|NaX_`lcG`)KZ~)=_bC_VC{U>5(xox=2vs(X%`0a8N zmtXgUkvvVVqFq{5O5d$(n=ne7FjRvfwzUk~+D(}n+?c9H!%URnBS@|W{*1`1kbXrT zWjs8(wmAo3@-P^{^i{ye#1B?Tx%fD%-bVdkpcF>cFD>)O#D@~UTes>|KVTn7gmgc! zbQsIw15W`CuMleUd+pc{N{+Lq-_oUx@Lv{+Xl zG#O0W@qo4);~eliE)L=1xdfVK*0H{>!G<2-r`tGAt~B}e>P%}+b%=F<&#%R~)+LFc zvC%C-_V*A%=K^t4=M5O&P5VX6sd(zy4)cu&r|LBq*~5fZkzYi+c8WIUc!lQTMDr?> z53kO$&o_F*0%f{8O>0FED-t0+cIfu<65C5Oh$zdsB2kO+8-T}&$5uHuC8G7!N#F^I z&#N;JscLUHz@uByN<=rY2B#}>EcK-7A04$p)Xwo6r)n^{6KL55{Evin>sE6Z&9srt zw2{rscXM}r&Z-TdwmTBn`QuoW`{0*;P3J8jz2tS$XMagqiXc!=Zs&m^o@S2o4# z$Besd<9(rIM?(+|`6@lW*WU(QMs$6_`Nk?A2am4f$yBL$WLya&nFqc_8-G=L=04)L_E{w6R1^!npNVYXFs2 zgASv1OFOQO;M%!*#AjO2k#9z0s)^|~V*C^xzshoxINW+H7C^)u$BGD6%+#Yj--4D* zGa`&5$T-q}1pEo{zQp0yV@oR0m}x;H=S+=OBdVn=)nSR)RSj5iyavk#qgb531dB6E zusE?8i>-xNFxy&ao^G71moojfO1~tMgX3}%(u@>5aM+0#crdOqL zv9iZe+T$AC1{ALjs>Zh0V*A`3=$W|_Yo~^Ad43dKnY&nL!>EV{b)9Ws+m9WO;`q!v zIFkAmS~KsWHBmsT^$XO^Mkk$bnG8AYWfj|2SFvryE$KU%l^FjP@Jph(+vM4;YunWq zh?}vasyKGUI@CCFDeA0FgmabYkd%d5UzYrajo%pU>o=w6N;}ry-$8%Y3WTRaxr%f! zUd&f4jM!WkT4pXq_0)0%Q{9L^3EW6LFL`w9rXH8E9+$EnJB#&*VqbZS-~MLt+uK!{ z91h}e;!U>0zb$dv?*;VRT=YAx>!|`YoD^0Rl;!c2UxImi8W z45D#vIl@ybG&io?9KVCjTJL;@HvDq)ZGPPo2JprWc+$62JNzUNcWhDa4Dj3;uPyR& z@ai&;sDBaI^rFmv)Vf601s-0_Yv$ptwg}p2H`{1W+c=)I(Y>v^wP0*+rC#gAE?}H5 znHJ&Lj#x~&M-dqf>As*2Z|XjCE|4qQm*ybHsT$@nisT!da}(1E^Br#8-PhEisn|sv z%N~umbdHNw6DkW8)5W;EYH0tW=$NYI{HKm>xSn%{25m?1GH?meb%ir8;e3w%kZSO` z1&v!7A27U!gGX0=s>y0pdCHktlWA+}UTb3lp1t?M}??X1-q zMCYLCyJie&E{-9}zL|Eq0MoBB{A=v%YZ%w+2v*NEV(Cm1?SBmQnG5*+t=j#&MAsTg z&!@ZNFm+$Yy02y3M_KnZXnT}(AFxoI7jTY)*?h_s|!`rm6J|s z=&?%G-G%IrgB7TJ&&+Y0I_>BSqc6|8o2%jcGD_RlgydP^USejAQ*Sk9E}pOTxxu6B z_A_eQPrTSRtBY+@+v%|o#`vv~L_H!eh0;ztlJ$Yin9}=i-#Q(2 z*(0_%%z4g*sG9YD_i4b)V`pLrpKrs-pRup~oMW-X>DASGBL?{Wsrl~l2yG6>DRTe) z&p_}>6W*=IhHEf9*M{uW5|bBaMk#rjRQY@$hzByYs*maN=yi?#@ehG_J^}`>ly&?} z9p`sZ%|(9Ad7q@|*WKaF__B=SL%U~uQF}+RWg(7p>vZ2O=1JM(_AuJ#*0Swh&AH1p ztpCkW0q*#i#UW{Ube-Qy)PKtP=%=MMv0IO&Lr7<;u`dx(by}+XOR8{z8f)~5$tfMz z7^voWnL1=Sw}^eh5xG#E>`>$4`5Hu~xJG3AJITKK332KwsWZA^D(c~5`)%w`gms@T zrme@R4vtd`i{sQZoN>2?R)keFYpe-0}Ei~tv(kh&Cd6j;i zY_;%eyOA=-NLp1Estz(uHQtPxvB6SnrbHE@-JxWavTdD!6VDqLTG+YJ!Uyd}Y8#VO z>%j_s=U=n!ojX`-DKJ)tW5D*o=LAL1l2Nz4-MDW*%LuTl+`c9DoTaK57AB%fqH;7 zo=o~`rpL5$B}CUiu@KrZJx& z3dAhAIMPrOJ>j#3}ve2eYl%f#cvGsKUGw~6KOOawOBxQMun=p_yiIpRU$DdIWe`^1lledw}`(d3dC=S$X0$kksvk`dx%lu5#lN0W#aFM_lQ}ddYg@f#1+JL;#T6z z#6!f_iRXza;vM1>qN>-%Vq!g!BGSYO;t}H8#9PF_5dTFqZ@1A+Y$Fa3!^9sGe?|O& z_zCeof$MBE5i5zSiR+02#2v(g#A)Ig;)leKiFdEFwdDxFMi3R8O;jQbuKiJs8bncx zI@F^9jc7tMTF{CMumCZ%;X*9LMYtG?&`wL=iN#ogORyBn(1lB}94oLAtFRhhK)me6 z;Z<0RtJ#g#vCCY`dCo>`!e(qi54K_($KCC?4%cG`c48N9;QZr8^r0Uq?8YAK#Xj7G z{kRzia0_n5Z8Tp4IEX{YAdADeopX*OxC3`$2*Wsv5w4~0!YIa&$1&WEdpP$zfqU^K z+=nmYe*6LFj^+<<>JRMdm;8m?Tm~r-{c=sD%)uN_DI=WoDvIBdJv?x1NbdOd>OW)~ z+Wf7(6r(V%D2wO4`-^{`R`k}9L&wHk-qfGro$DcT(8Zy>2jfdD(@c(xIYjA*po?)1 z1(g{0R~1hQiL$kH(7Rt96%tzBx!g4{?5E5H;u1GJ&^Iuga|nG~Zl}7yQzXn)75Di8 zadKV?-grD)#%ZK@=40l`p}6cF8NG9W?bJuRA~-gdHD%^d=0t+~ zn1|27({2puKKvmL-aAV3Tu&-`96d5TFnU6AR$|Mly-&`Flsy(y^r2q~aQz zJ#@mu?or1k9Y*el`&4hQ+N16lx*KPaC?>tPtVih^Qt}_FdN|*gYR=oajb_g4c)9r+ zk#W)e(cM}MU7i@p8_cT^UeeX93{f7Lzn%567+g8ueu#-3cH1*`l(6_inL@2N9c%lT zmVYydvt5xIg&3k zuzlumcCp+U#%U9M`acwRC)H1bIyf-8d0=QrzwGAX*d)fv_<1aKzhjfVT8}E(vhW_` z?I!#_w~UVD{G7Jge$r>V{m$Ardz7N3?)O{j{*s;aNAr31vtL_Dzi(-%pF__Rhs$*N z1N9$Lx9CM=R`u69sH`iFH5N-`5|8< zWes6)=~E8 z$H|?czq2mxHF9SYzvmF&O~&s6kzFF!i%f~kh|G(8P~>Tm&x?FrPm8=y=l_3 znHG6e@ugmwX7da<7kQ1yT_V#W^CBM*IWF=WB3}`C zR^%@nUeb??Y!_KC^0SnYABuciCImK zoVYI({+B-gSNiLSVGa`Q?@;Z^@BKL^=S6@75B%K*wdK<)FqsXwx&&1ygKL2rF zyx+69HpZ@Zt$FqlysSKF?lu+ilE+rS<>@?$PTHlMUs-w)tAQ zi+c6}n-srgGd|_l4P^($vi#j8FaF797mGEo=6ovC2w3VtVxJ3nYd&6w_+PkOOv()K zuvOY=F?s*Y?XS28^Ovf&4&A92GG?86N{2MnVxBx~vHP<}Go_mPPCzYfOZv}kH4Swt z`x$J>9yZ0SdNbW$cGcZx^<)mYe+=}w8T}=9S-K~m$c|>^VZM!}M^3QT?*BcmE!I}X zGbq(N9@shJ+!qDzu{|ped}Nh29EJuC={J7ag6#fz*y{t^W!H1hkum*Z?d4?j>gbTV zC9z3OsAZ)vk{ZbYJL$fEWMo)f>-l;>-Q_8+zHtN03a<2sPlxSZo^R3T>(^M@%DDHT zw-Q_-6Dp)$({bccA^wlObB~U?y7u@PPSoJznhMoGQAb3{gCr9YAV9zX0h1Om62SOO zVwjL<9@9*K;ESnGv?x*0qQ&cPUM(tOP*7B?Q9-d4jfzUG)>u(#)oZGFjn+!P`)u&zKKr+4pMCZ@zvs+&cBa(~ERt1qE`AYc&d_0|mujDs`cdszHC_Y~R?aEwT=beZGOXi(0Dt&#?vC zR#24Rq&i%u_v;4+%`*j`?B-a)9>m*Jf$UF?tq8lu1RtjecXT6#b2uYYC-wTd3{&#eD+X01AB*e z9$dE6(m|(t*#Jk5Uo9Kh9{7evHS6;4v8FTTbe0_}=eEq+yv0pw1^cl_ol+C}awwhN ze-|8v>t-`fpP0%qD&Q(+xuaO?FC>RpgIcF!KbD_fT*|?wsp6LE#pW(PtKK{-qz_o^ zZdap>WmbJtz0?vt*=$X#sqy++rHNmam&}~qcl(>Ju;1{X{5ad_ZS;Fv<>y;yHNNHY zqb)Q!^i{H|tejEVS5v&wR_j8mQ(*VEE~=E;*Om3Sa947HdZjI{uyDq_1#{<@&Y78; zZ;Ps`o21948ccGEZCl@5S<{SOnktw2r6gIcQpc&9YWtLss%p*M{HX8x`fw?0tyMQj zyc)l+Nv*b#k@&5miAfDtEnXXHk=RYnCl^mer7( zm7B#m{*DJGF4p0o_v^gXz8`AO`f5KA0Z&&A^{vZ)zyn8h-4FHAf+tkmy<=ToO`6x* zz-xZr4+U?EZFY0>#Y=p%mNc0YZDx}xg!rz!!>6JJO|o=QscnZWXtIYYo&n_qfV(YK ztkk9Qe3dr&@zX|Izsq1yApBuQA+2Ztl-^QQt-58~d)W{gCeLO9d z|JPzr|6NNSVy5}!R5gz?4KdH<4Pq!>8AxpX5_@`|DGsd6IICB_(F7qj4 zyfc|6**(v)vz+bb)4qW57V`bGXs=+rbC}1u9OrqKW#==m3oNTDE!(RYr<(m=$T*7_ zmvp=we=YN^V>_~=o_-h6elgoO(7%cE)y({S%;)E9*TQ`K?5CA^EM@-7=-)=aLM?!|iJs=Q?h$v6s(OvZack*u99p)Qko*^>Kej}WZ zsHOY2jJuxw+{1kDWxn?@zYUCYKl|CpIHbFSaW=92gY)BL z%Xsgz9oh2%?fcmNuWbJ}w*QEEeN6vP==Ukd(L?{gTLwO3{LeYw{q*~S+yBY;zht~# z_W!kI(Ld<_jivKX`hQFR1D0;rAnQNKvWM)@mfcB~orhTZ4z)}`Jjz$FLvLH-vsex&32qA4|XEm~X13d$?uUPngdLj^lWa;{@jIX5J?; z?nuTxnQ=$a{}lR}L|&O}1<=Zi=}XUuQ5 zW!D_GKZEVcn9rH)XCD2?o^tvxV4h^pLXNM3an5GH=Wtx-a(>QZyz?2SlKxfnucrTn z+^%8Xi%4+c=KfneSTq-@*RxWWT>={B?|fm!zB@VY-?QI8u-_Nh z?=Eh?$oF4jye`IjneAU;{;#s%-Ii6a(eHJ}dxPWML;p7!_fPESE#~(&{r=4O-HiJ# z+x>;@-eW&|+5Uab%LnZ5L&n+1dHbuS`pDArG5HDSgY5VZ`hUvyJ?!^0_WL>KVL!+B zg=OE%6(g~)_QMA1An5}K0(}k+?MVmOJ7`Zn$lgi&kq6nkXiquF-c9?^gX}%DrzWtE zILNM&tzDK>q=;R`+eam^rzNnDIoQsZtYJIyd+fOh>|+zy^Agze6WGTku#Zn*pOC;_ zkib4MfqhZ}`{V@n!UXmy3G7o7*iTDfFG^samcTwefqg~-dvOB$%mnsX3GAmQu$LsT zmnN|PG=cqR3GA~I*ykj$&rM)I;~@L4^WCr1?mlo}Z0Mb=J2I78vevHma6X z^3Qj#FaO(Ku{EKDy+2ZF=V)!Hk5OtL^c2uN)UMSQ{^L0Kjn?L(C2QF_M(em5Rl;46 ziqYDz2huQF8?G3Jd&FpMxCOFyv^G3`xYgam?OHVHOZdQWTPsA?jLrCo)n)C~htzw( z>9|Oyrs=pkQL#0ogdagJOVft_6XBPp4R3=u(7R8x^{OSNtiM}LJ+`iu@ST(3m!=KB zfE1?bxO!5twWfq4PR4wuX~V$D@;O8s?t%2A>9~40!b?xVxj9A~mYynW1~Cudou}G- z9Pk6`J>a>c(Fc4yX_$Y=80hWkN*$4b@j_1l2WMJ;S(CUCl9I0D>Q)J7K}Mx(!}*Yc zbRAcdDz;vg@Q;wHbZw}zlxj`ahUt*2)3sUKcsA=F#nwU+o|=t(GPU6}$oxzlSJz1R zejbjQOl|ljWKE_v9D*CihD>eNLvF~oF=K0B38ezxnsjZL3t6A84d+0%rR%ubSHf2z zFQjY34{)#ZFmwS zHA5RtfsDz}adonUcS8y@wBdb_vJ7qbEM!rJHfukBRKRl+yoI`~1^tY=-1N?zXmwft z`5g7w+EBvTxCw60)P~KFJ(=391-*lHv}8@_^VDPOYYFowV}E35!y-s$hBiDGvO7bY zb)VZOvn}`)b-9t|6wyXXR1BX?Z8#h^P04ukB>(uTQ^Jz3gtE97J7?s+&*=h^Fw ztV>QU$GEbzS#R7{Zs$|h8xNarby;(KFLhaGypOu9Db8MiZMk-V*DSF6F199CY`v`5 z`dY$`kTF@>@Ks20mNv{i3)hn@ZCDJc%hHAokT&S@|73i8mhDT{3ZGnI^NFoXCA<+b zKU*8_g4AW}xH?qA2xMipHeAQLQ?WIugh!l*zOuDpK4fRMHtWHMpKtf0tm$5LKF1D@ zzJS+r@VX0lzXN}Ffz30vmXt66$$+M9_L*>kB5tt z3SY$I0ep|TtjRw4V(ts@D(bR6`x)x8HhV}TV}j+>WsUZG)Mb5kS~KtCeq0m$>=&FX zHMMedTx~7kp-Zq&bF|?wNIP^lIAW<%dqoGgL%N`Mfx%@sA98eDT`S?nOR!Hp+OYmI zrK+I&z}m~116Z>H=PcU#z{ywI{T^HEO4xce_Nzx5mS2N&)}!OsI2t$klPRuY{N1fOFiV4W-7^9*>TzH6={B3Fk~ zwLLyN!6Vx_&)~w_Fh`OD==~M$1<-xqi@&nZW?kUzc$Tghi~R+jdnfwKgFl$@Yut}v z_khns>Y#Ul&Fe6B=ss}NUAQKU)p2#4gs!{M?^tbE0@(|_3``3`5Z?n9MR3mNYQw7_ zWn*<*%_`yLQOw&|Z8+*TXfsyF)k%u2p%hzRDYo{K@J7gnJZ-oO(wV0X$F0Zllcx>$ zLb~&`q1038$TYn?20JHR;2Zbb{o4(0+K4fZhYnu;fIU_N;KL8tww>T1tl<<}&q>$@ zDazM|4@2hXYr`)g4basl?B7kcFCX|4WE_Ft4|bLyGVG!Bj{_qHmrqI zjn{@QsfRUQ$JNFXz7I*x*M^mkV!Zj<@Cxd}>meTK?cn}LZ9eKT90QM8y$Xyz#%mpT z+T-?_tq6P(l8Ui(gTuGU7bV!I;Ib!hPUY*kT2I2-r*Q6%(}n>^&p2&(!qdo8+JbYR z!83Edj;oI)e0V#K+k9>KJfv6V3OsuU+9FOB7~Em^Q5X2$4qn^A6Q8v?yTKXH^1cS% z^qhPd1RdP;9QQRibEox*t+6B=`#i3n6SU#>mw8@*PrpJPta}w>gpUs#wVTgo;Hup`H^BqD zxgTFs>gSLW_y@pUuUVhinohzkkW~}3;kOV+#`1(MTA<_V zA_-f+#C|EzhBre-OvK!RFMP?*(cp=_yyo=US~8*w*Y@%`98CJk+GA@f39p2VnWznK z6Ca5Wp71qef}ebgvB2H~W+%B+8FUZmPjcDM2r+e%gi{Z5sdW>z;Wd!0(A&YJWS7kW zoJYNEuuH8OY;~#Cvv07CDK&dW9By@~-BU;12M#;J`n$o4s0YA~qg-n5L~VHO(Jp)r z)2bc(htV|d^1s-Iz4GWvN5GzPtq~go&vsejLRI8QqSq1$59pG|ALuwl8ot+AoWKV{^SmZnMmnmTV|wLhz| zzNV$w-&`yIcWC3JYJX$)(%g~m#_Fc}TCcyaB*c`Fx!InPQ;#~_?JjI>S>kV%r5*pp zXnD3BTKc^;OIqq%mvbAI{yz*?)>6N;zQMcL>+gRv_U-Zh5%R5xX0ZFPg+J927aPJ+e*o#!O(y)Y*(*TS6sL1Vixr*A%|mQ5?0 zR$N><_wfqNmAosau=hs@&nU@V>B$BuDJuPB6>hDRU~EDyPozIc-kBS?RPpYaPc~?{qj@ola+`)8*`Ox}AMakJIa@ zU~(`em>P5k(}JF0L9i%T5-bZ=1gnB|L0_;f7znNmwg=Y+o#6UlM{sMfGq^L@72Ff- z4(gz68!3_0h&z%N@k9zDMUj$7S)?LT6{(B(B5jdCWM!m1 zvNqyG)<-%bTO*y3osq7{o=A6OU!*6}8&T2ZXi79S>W-#GJ<)<_QM4pl7OjX@MP)Cv zMFY{5(e~)ts1scu?TBvuS8?#FMG+JQ08kV~Q4~c{6h%=KMNt$*QL*1=Em0It6h%=K z#rqj|W<6HFp6j*V>$AS=w+0YG1TiF#LIyb$P(lSYG|)l^Jq$3y1T!o^u)z)ocsSvL z8y7~e^g zQ!csXkykzmG}K6AO*GX^b1k&gN^5Pj)lPdIbks>_U6gdwT@Uqo>ZP|n`s$~Fg%(+C ziKUiVZiSUrS#6EA)>&_ZjW*eAi;-=%+hN{b3ti%JSGm>=Zg!jV?slIG{_F=(O9KQH z000080G)y+Q7hHUkTd`Q08jt`01yBG0Bvt%b!=r{Y-w|JE^2dcZmZ@}00O0;#FWf@ zB`XCbJ^kGLl+v8kV*MhJkX}koj*<>kO=@y}QA%nNnlh*;SS43208mQ<1QY-O00;mq zlFCp?vmN0VD*^xjHUt0-0001RZ*p{Db!2I8E@W(M+**Bf6jhdg-PIi$LZ}W9i2{>W zTMY!6XoJFJvXg>DUPDL1$3Q?Akj55P2UzGvPaL3bJpXTJ+sGIJ?^eE za+rt?^hbtt5@bkl7(QI(+YaF)CJ+MxwfDZN?yl~95dYmi=k~37b>IE?-COs)>gw{P zJBdIDF##zGA$3Ikl#oGu41|ox+cSdf8v6OYbq3ex_byz$W}|KWhIP+vc;**2_cLqP zuJhVfK5N_HTWedh)>b-qf$bOTRy{j8D{GitQ}Me!w(>J4p8Qdq>OL;dJIDE)yyt;0 z{{5W1Tb$3%yTo~UUOT@&J1@rh+`P+t?%W^E0{*LyX6Iew{K>r2oVz%mzs9{9^{0nW zQAWtBUk)K}4LP+eKGs3*vt=4bj3#G|ggj~BWA*n8+?PRAM63o|Gj!P2?mPvo#20A?g294c9FO z{fI!KrvBw8d!OCp1%C3hQFRDoPm{M1vSRXvRnK^zA*3eLz;%-0z+*;LAXz&llT|T7 z9>4%is?MuIx?FJbdR36x)mX`cSd6A#`j*cxl@>~byoCenO&ohNvA5jh4I4MO2~n}D z*5oGjCHL$L>)eE6iI@@#g3wED2Kj&fq4Lvq3zfZg>tgD^SVG;$oUDU2Q+6YC$`rf& zb3$A!>Y?J=lOFMfvosJCx32_f_Zaxx5|}!zcBWEvTzvf|jQD#@;;UVFP#hLa#3=4K z4=3UTuf0&5P-VAy#C63Nt{TY$PzcpqhA2^g^rjMo(TD3{)LHACCN2(^vPfw`(Bl-h zhU+jP9&zJQ3!X+i;@S=|uY`C!9x-n__aBCuYG)Wd;`&C?C2sxNCC>v-Z#TQ-B^_}7 zXP2A}r%^by(pqPUN1XORi%0A_0`sE&u!+y}h+ll+5s%D!8z+Lb;})EPBmb$BS7qw7 z>qq8ArJ_Ss)nYz`CFVnb)ZOG_hiOssmg$s*Tr5IECrwJ&DTG`Fp)$t_aJdvPb2lkr z3fQ{jN(-$mu{woDD$@?9KW6ZqE*DyzEHp>r0kL4yd0JOq0#g zTILAW&bG#iZz~FAJ&+gg&p)wg`7De*2Cadzqd1)3z;8V&Zvu0(tW=(9rQln`%v^*I ztrUU*+wurye~FFY^CJ3D{(a!UffW0cU8l@xp@By4L)>B_AC%pVS7P-G@VJ=eyenuC@>0N>U%rwrV<;x79V`zF5Wf+hF zST2?E@TFWttPl-OQ$6SPt?Ku0wi0%OvSYq{%H~-BK{hmY^CkiqMWjYDK?qWLjztz| zt)wF5f7wdBj{`Di=c5aUP;Mgl1Q;5)fIJUenwiVJ2*c!D9d?eO?nH~%#iZOaM?>TX%D&0zZlj@dMwh!2?{8bD zXr1~qFy{=NH#z~ZjbjPikk&Ec;zn_4D-~{aiA$rM;*uksVr5IGI4LY=IE8M1MDexY z?PGH>t{Cf`fiVEBaQU*QB8hk^LD~4*9Yz9%ay0(Hk&Zs&lawZiF9HTV;*VQiG>iG+ z_90?^eW&>MAut_;_<7u**LRSIovcSzuOd*vcG-6lLO2M=0^Q>F-TXFMZE?x#tuA>} zu8VzUf19_r^+z%KHQWLd>3megS0LNPqW^)5bF(S8y zuIEZMGYnGAY@0-gha2&R2?kvrGpzB|<8u}jH%{4Y4>RfwTrA-;8q7bqZ$0IO9P9P`7f zFbY-JALLM&AN-)gOz&ThV*eU;DdqkaT6d=RFHf?8osIO@zg7>Tf0YZ}U~%eO7mavN z#&+Gsu@HIVT5_;Utc-%WkSEc#jt{n;w0M?aJU;>L(x=KRBsD5euli|<$5%|M6=lni zI%Mrbq@su<&W%9O0D;!PKG#{(#qYJRPnOE-@%zmsud-K4pP>f`#|ngF^#E`L+KpO^ z`fZL1h#rk}=jy?^dJin0!Y#D~>JuQXMvwrhRcT12u2&=5_4&p-D?Q&egITXu^^#AG*&?lajn@m!x6T&`2{y$Iu(aRKuUV5ddZf4==aurIEwR&?2}(Ixv( znz?@RU6YpYS4dy^PQdZ2Ha#4W?A@b!Cp*+xl_J($5QhBw~>A3+f<#%__4ue9DK3hno+2&84ED1=VCl8Dvz^&s$kDfi%(r2 zLZ4tW#2^czn@x_!c5_j)IJa4<83yrd>%bw(#@WHHB{E>XUrWEg2hR8JzDdjX{_NiQ zHlugoSFo>iM+cei1FY1Z58K>nxYfx0CVjW&+3AtQwQ9c4^9_avHX2=GHs;(PRD35> zz}DB#Pe2naX4)d0xSu3Oa6vLi;_eb-jl{VC`fDU(yo|oo>kR83Ml^pRmEiJ(lop-P zFaD7lL7zvGhe3|e$BTXJcWh7+D-!iN7jsjB38Be0i>axAHp@Z8s?3JxG=??Va$Sgq zu8SUdgjS8GP^JQbrigI~f1*$^PWqdl^jEi@K>QTrmulkfUWy#JlfQFP{N;{vFLk%j zDlx^`F*R{tPxtR@D!v5+`db~UPP%*{?fJ&Vj$sKb$D)dyHIkXNCMT$IxuaNAc$?|< zm0%H2W9XD6Gb)L@2^@fd%qVb=xHh%&Br#iX3CDSz)JM|n6{p)Ny_0@P&Wvk266xjt z6rDcU1jO}GBUg$=hAw7CJvudCr`-@Gixx|ZcmlmVfi6g3w|65x_Lgw^1V|~gh;4I1TQjN z!ZrVX#n*&6u0(|um}82MxjfO*vgONC9n{t5tlHriZMpkcTE5|aiu7Bbea5$;zxa4? zF82-Uj;VMK6yI-#V|-M&h4GD%YBI`&?=ZaP!H1`>=Kq%CsxE$k)-{JDHD_S_hB`LPFa%;tG%!NsYC6jT*D!~|9>RB zeHuL2S0&?q1JSR?y8I^W;|-{f-!MS`(cw4X{K4V(hm%I40RY-ik0kCLEPly}Df!#0 z;+J~|{3fdp(eVeu#P5?01|9@SU4vr1`{5*Yq0#(Kv(Gz0(u1~y2dVkjz)P(^OFDdg z`accv+wgU7{J87>V0Awbe%0Uo{%}%JZ-4xu>J&(0k#v6w?~JFZT8HTQh;Bc&&|awZ zSjvB3{1o>x=#TtUJ7ByI-(2wkg|$NS%^ZNifAJv0#B zNw6>X+Yb}7nz8*~7nu&SU z>V68{NqTc7t^bw5%rVp*j@#dFsHQ?xLeZ;{KChELuTvrDXoY-u3KsSU7_7zs*w`{nzuv*NOz#WY=cxIie_l^Y)?d zOhUMJY^w(D6dILNXiI7G-vC)r;HlZ3eN+?rEG{ImsQ;8v>JA#bBPla`&kH2bNX0Vq zN;rzZ$cDto3LHt3UzNBzUz1;%7^&z(eqrM33{8H1Vx*)G`O?JIM>Y8wiIKuSGv{H}*lA;hRJ=yhAg* zUT3%#h5O*<^U3qL;?3GMSvTfOGxkQ@SX49iq0U$(3g3w*l)dx>S7e&3DvIe8J&uBd z<&Izk?)RrB5b}=`3F!t}S3t;@Kog)0{%I2azaYbyk&z)}s2@{C>c{*p%-II>e-CsD zC>zeDiG!Q_uONr>-vinMbP(wDAm@$+AMXb$0CE7$0(z=oaC6@Rxp#p61L#AbT|m)6 z&NYC{P@rs}yMZs%|GnBPBwKld-mQh6m@$ev|Qe;*3ck~Q_*T+Jse3(*FN|I4Ejwo7r5 z_*mjx&ieIbA^8H2)|%&;P08~$l4i*38K))1~3wY$fdU2Q5-jOVy=1^D&r2-A#_5lZ|e2%A<7poh&G4 zDJKOY=iGvCTAMZOl7Mf1r8@jOOj}i_A>{`nwf_9Y0(yn-mNU6eY7OF>>dd;EiSupK z%N~0u*LMlu;3^e1*l$=V!}syc{5n-uzQh3}eKhz1&c7u!dcgDXR!6dwe! zc9T=4mO!iTQ7TvAyL7lcUbZTWZQz=B1PF>Sq%6*bBQqY2p{z=M$^BG>h0~q(7q?vj zWa6n}=D)#dAh^j=WNw6`Ds$cKlmz>WKS6o#1JrH)P!+wW$owuGZ5fI0>6!VTuV6lg zN0~G(qSlihAAj-Y#QYZ$^Ox!7&rZy@^*Mh!&i@3xg}n8w*Z2{Q zpVxS|#xuUq>}dQ6je9iyOO3y)@vq|7TXf?)BMw5Efer(m06GKI4%7woJ&*uMWde-? z8VhtkPyvtws0e5#&>WxzKu-a=fu0B22=p?LABX|H3G{D3znzl&(b!)+^ir~3x-X{J z3)KHbtj9bkm$5}ze}$7Rqo4}w;Q-Q)X{S&fxDs-C2x{Axy7eHr-Z~)lPd2IRZO>G` z-kzPRl|UVK?MR)Ge+&HE#J~B2%TW+(1v&tsUN|V`Vo@;PvHLN z;2&mjK_ga-8^@pL^1gkEp>s(*!MSOS#$)^|mBq=TF&DQs{#lf~ByNv@%C>s=lE*KF zA$GXIJRdl=ebyz9$77fKyMQ9T{xAHWRo_EbcGeCLQu%I48LfcLu{bRj2#SF@Fp0Wz zMz-PpX80j2nA!f~3{>YE>EAp~@n!fo+Z1nxoYNVDNzyp^5r2>3H4FP?X&fv!i4z-> za)l0q`7nqnVL4|XaH=#oi*AcMUIr`v;*ao(FGK!6=Kepvsrq^x$MdUgfR>v=14Tiq zMy&(28r0T^%cVDP0|`_C!70jyB2JwM36u#)O(VT~62XZ>r<-oNiPH@>owT5mwm{17 z0?H2&!QZz;w1Bn+f%`ez&5~!uT^*h zvFBYY$#Uj)ho8+X6oulMt$z0DU5$MGf0?mfksrz?3S}^B$8=gyY^=wA|6Tqfo}Xk7 zNeQ@$Bp7Ys_**B4OeZ_JHdIOi?pg#9Z;l7dXKmOYGXZFOWbC{RezWZ0Jj< zKG`{coDa`=5yF71H4Mdhk0!((qj3dJo0z}95?mHJp@n8Bq#W@YBfZhYt4KGDU%i_d}9c+d<*dlYB!K89~H0B&%)ga zW-S&ojy*hEj`}`4?ay#A^5Mzsd6xr$SG5k2LA*=6Q=BB;ao3%b8uj&D zM5kaG%Xx3vwZEkrj{DhOSk6mib~53uL1+iq(S&zV=8B#|KyNdEJ`S5wUUxO?3w@l- zUU#8J93jicvx^8oKzW(gvBX|>wNgK~(+v3779s-yB7~xwgWNgzb6W~hIOJa?*EY}RJ-hiY=lH!KTsP+lWCKE+ka!Gd7pi)-W0HZ%#M+TDj?@qw8AHhIy_z8q*IM><$^s3Cvt{LxqH|eO zr{(X+$Nwk!y9aNM-eOB#T1@fBgRwdEfD$eS|VV*01QR zpvmByr&6v*Kag48SV+2obH;CFz|Hg*)5ykVsm_atZN3s8bV5TN{tvhuI0=P>RyzLz zazub}n!J{8JVU=e0Nm;~WM}4MEjqKwjv@vX0{#fq-IiXfcTaZk$Zjlpb!q?NL zj5xjpvM|}ET8<;Tt$Mx@s_UrKA}W2b4J-qhhJq~RPu_q|& zQp&21Nm3P1Yt2JulSwZW07*c$znO0{2~SMGW=7l9`_E_^HtVH=qYDupxolW&nP?ND z@6pb+KYS(jc?tDdMn0^OKNqT3LjrsFFZix)$KACT*4qPzR7yJ$)_uanhji63>`zAo zFrxZ%6Ccx(%rR*=ra$1AHekhh|N0QewA#eSgjv-`4pSXCrss(Hqe78Ka7+BkTlM8E)Lw;m^W43-0o8V%{0_?77gN}L{d~6dN(O(#TToP7nj67Ow3Kg&>oq-5I zbEWXSDLD%M?nFd0DU0ZpkF7_m6xLT*F#(vj5z|H1Bnm5ZK@(IfdEzrZ zWW0pTCQQd(m-^UuQ1n5OwFF|XAkFq$lRkDB&^MtG*t47v&JM*(Y zKELclf=`TzaJ!Z0$B7L4ipbg}CTa)wyod)9|G>nf0aK`(%$8x%X$qz!NIszpyiVq;{9wfcnec0jd3h-@2aV0H;`XT_#uckvy> zPamMG&;40+XXqhBu(iZ{T30L}YmIth!ZYkq*oQv0l@M+&T6(OP5aZamkL)tb{YaZo z!K9DuqP7lDOp>j*qJ$M2WV7uf$#buFMm_JUq<{(+>tsY?JSK<2@zLlY63yDe#BS8LngEtXKL zfvfO*Ej)e?8g-x%b%2{w&vnTulzT!)x#}oVj@Vk%D~az|=*KH42?zs$YFv-PwBOH$ zxZFp|9`eq*o*tsL zW;UTx^fU_*+``!6lQ8vQGCiItB9FVS&XlJg(Hc9LgM8agQ_%Cm*jPv)byWqxo$57I}g#D5z{%b znJ_I)Y5LFjSYmyl-1N@$>IQ>e{RHS$Car>Q97QKW;e;-jlA8SmBD~kfkXBOis1=xiNF^fzdHPZ4hKR_I%ZW)c4l z@&*FfivT9&a3ykE(~<8YClC~#D>{pq5^G@fFp@m?PULUeTU!oyIua%RKY;sn0QHyW z*t93J*GY@z-XCN~gG@yqZYTs>*{AR|L}K5gWQu%N*?B_rLlguv=mDEu==qL~=`WOj z2SNf6f&DEv=t~S280?8IKTEO+1<0v+Ltf~~jS|}dJ-#Bc_GPRg1kBmOm9#ySnnHa= zPtYFD53)(b+j$d`tJF;EBH0qdxfWJz6DfLu1VgzI>hbCIgm28O=PIC>0Qd`KHfB0b zsx>Y$Wc~b1S`WBr+W~!+JoPgUVl}17!94pVOK|10-MDxWoLZciM}uADMLt9dK%L8I zF#I#*)4wMS4!Lgh0n+tvk zs3RNW2wej`xhS$WPP5!k^bEI$d;3`*aV?)d7<0?>G)$t9Elc=X8Ksv955qZ$hpz0j z{{nrhp0rGnGyl@0cV-2+1r^u!z}&>`i$}& z(n`ew+@w(bdtB8MHnI&!h?{iAR4A^`AjzoQMEj)0_*>5bk7cCPvV)EB0xW#+yxBnM zQXjfr*J1Aw6D}nDN~6Oz9UUZ)G`4vrcxQZO^hvUQ0lO&7_Yj5S7@n+kL&Unlw1yL1 zbn&e&0V?6y6rKA(C|AIKdH~6<&Ta%*0?{?2 z?Fx}|Ujge}S4DdK#DT2~z>-?Yxr#WA67lp);1fDM_y`#XwhkEwoKo7o~V7=Ql9p)JJH#Q1L;fWdb(2Ttrpe zc392WY#=sdJ$5T-{m#cm15L`t9*lBP4?qmsE-O9d7&}DehTE}Mgml@G=aK$1{;ao| zeL0B{IHiPY>(g3_u9NyB@LiXJZ*yn(dNbi0K={f(249J7LjVWax=a9f<{uEgQYZL& zJHuB#3%=&ph@p4{ntu2P;49YY01mLk*#H*Vt+0xEVi!iqKMY_g1z_)tKk1ETn_pe` z-vQV=c7iybASyGlzt4RnK<5jn{FyG5-Ips=-(#jzrs{8SMV8&?6{-&q6d!XAOIp(iXbd8;2U5O#QtDeakv1e8xips4^t3i>yzinu{A^j%dQIdguJw^#@3Lm z5h3O*j%+34XK8QH;0oY3KmO*d8fQoaKilJJ63UxM_rW%+e{KUp5^znwJjdE}c{V(q zK1da!59o|s35F258Y(-656T z-#=t$k=J=<>IXUs>HUKa86#qwsh9x8tclEqGJinP$q3-kd67AGt0+9Z-pAIb-?u#6 zis#MB@^oL+E5E`=jKJ051L{0ZZxPx?81($AOM_6J52*@=q;5Mx<(pFF0k)C7>GJfyZT&iUP7Go5dX9trg#6)1TJ-i6o;!VFu)xAH-fGNr$yJmOVG(Gf<4yG>SR0xLLk zx~#mx`Gq&Qt3LW0qQ5putt8+pGi~s)mgiZ?zqk>`8_l!>hcAYDCPz+~$u2cfo=a?t zFrpQT7P9imY}DP!%a!{Jfvt?bZ9y#{NL=mTfjAZYyCqcsk3(lpW*e09N`);U<;Z8k z69uRuc)&G{ZB^&)LrjA8^@N4aUA8LaMe4n&hex0)rQD?hQDX7smaxOyw%!uzF1D?= zg=}J^$s)4%p{9l{xKD1CmGTnxtsPLoBS1IHOGUQ6ULDxp964lG%8N68L|!HuvfjO( zym8nDVJUFakGPcb0#R6T3Pj9`ZU~R^X{2Mn6M9lMvvO9R#1g3SY*H`$jTwe>WX^fR zV!5boH>m@8f$3D>3JX@hrT*hAHHV%PA>gr~glfTpNVX1Rc*)j!cv(xp(S#>@nz{ak zi+kJDpY1h(afpMh5`iSC!&1+is6@4{ZrF{lW%Z5C2o3;$d4>8)GlD~g^u$bP1YpL} z;2`FHz3ARR;P47dfmwN^P?_lfXlMY9VRjk>c8f+3L z)e&Tjk*CRza1M4ZKO7+6@yVSQlrl4y@N)ENO`|#R;Q`0S@a;NMv#somdd*P)Vv~C( zTkj+3V?+BIyBTo3N8+;&$siNm=K&#;iVfY#4k;zK=-F)4& zd<~2&Td&NdM_b`x%ZKn}Z3i7>jGD%e%s$D+PLG<-f4xV)7>$%3H1Y=vQV;&cAJn8C z{E0tkPCZxx4_Kn*7%-G6dgYFn5hDo5-Y#ZK%56kz(%=u!hT!c zAG?W(LiPNGW)ow&Y;+;&Hh31V-Z{!eXMQcMkDE{QS8v_1B$IlWXK%G^>-jq zH`#rjO*3{icCF8QuKM<#RiFNlDiRqoMscG)<;l)Gvdnj?PUBmdF}~=|aCau!6xwkc zl_!^XD*a!Lcjb?acjfi54 z%uWcyTHQy=?(@zP$uc6Xe+OAyuK(2Lw|>ON+GW-QHSnYK0}5fqHrd<*g}*&)A=arM z??2!wjpddoi>a9nNUCHcReDf>%nmZqZf#~_?!^s?NdCg2o!x93#2+-j{)%?YXJ>PA*~5;DPfDztiukNVKT=Zmz3UUxB(2jtmNZ&iDHIKQ7uH{v18XAIEX^zm+TVEH@i7k z8Wd+{@#5w|4V~~iRskfpIh4&^C9raHK=BtUqFoVf!(uicK3BwCd~>ryxw#;-^jY=; z6Lj$iC>UUBD>e-bJ^V((ZG&u`?q38kUQdjVfRX;1Put0F;e^DRK3^2=06H`?IkH zezuJ@2rKrWq%>ux-?|6izX|WzSR32GM&(*}Q`m=#H_>*ajIyNzK!AvHSEm7XwJ5L6 z>1=deYw!FUtv zgs1rdm<*T`azk^+6K1q+ zhDR0VRYF(&P)}++=sS@!+si#?glEZfX7Ig++k`E{VIqhAy6Nxr^!KOyFYL8T)0LfLNc5#Zy5&-w7V3_cg$Ycid~UP)$0MRr1DP3!~p>TSRt$->}qt_on3rz&?^ zrq&;_PF05YoT}Ueq=$!HRc^JRPSG8oDk;Nr;jKft)t+I9w59XE&h3?CwpYK^Xm2t$ z25r`z(M+bPO3%7J7)e1H?GPMUqyA{%{JqDpTMmZm@(T-vq+0)X?Z1KOt@IyiuP2q45Zx&$4?g5$r$zWLJe?4= zgrv;-l&n>rwc!~oo<+yTTT#+4#%&NV8=AwKHRt?i0EHCaHv!fvM>;g2dMXrw!HoWs zg-VvnG2gv(_UMZRi{Qs>SwHTBI*M&{V(V*%ZeB&|mLebtXzYqxl92CfPxx{uzH!3W zgDZm{?5#O3dWO)mdt~0dK%MTH9kTk^=aO>Iy(0S#a?B@w;|x5&IlZEVt>kX2*{pqX1T zn%SS(%)uXN#`43>T$5^Mzm540Vl(SSPeO>k1%+be+N;2WYeICn1%Vm-GN3&8rC6Iq zx^bvcWT(|u3-YDm`(!rhOOOF2Hp+$`n*IQD{sGo^AXZ)&U;};w$qfDalm
kX9M zvDqHZ3zUu9>Ai7u>W$Utje5J@l~z)-1feT_n?EMnapAp3oT2lRKUmI61i-8 zQ8-&Jt1J$=0%etu4wOwV4iyHj{~ks^`;KA{IzmvJzQAZp_|@K$I;aAO>**G zjp)(C)laysU<=eApzf8NM&JpRP8~^Gxm|N!Obv%F!c1knc-ZNVpR0Dj!u9QX!?j1L z3z_fFy?+&w0T?@)uxvd_HdySW=KSbsnBBcYv(4rOJg8+fJ|{f1rzvMa*qIt!g{&(K zyclv@tV4Ym4N78-I1u+v@>ZxbWdw1A74CROhEDQP)eV?iW*>z6YR;oiT1;i-ws5ZIycEWhux>q?mTVGL z{VjBnhN!@LdtWiJ*w2mzruYke?$7*qxNs8CMtm15 z7|HrKp(A&8K$$WzDaf&M(kNlTNg>~aj+wD>IGI~D=O6z?_T;Tg#23abzGnAsPVLo!XWx(MJesI3)N*7YH4o9%gWSC#6cZF zifOgqvyvl-)xr^^7+<0LEZ|1TWIVekR2d@c?l<^Dg7hLiJr4iejekNJSmbVNLHq1P zc>#i)kR$*|^07r&+Te~yHwsV30fgm+HDl+XCH}3cmO0G5(Rk$q;VoRjO_2`!>`}nd z-x$+0`59p9D?$cSk33DXSY#WL7ZZb@>|cv<^OH{6laoDB5xPyC@|}ULh0u{XZ7>)| z=pI0t8|7Hu?_RK?_#sT#>E5Z!E&1h0A4?_7fsdNGeFmUWx2eKan`ZPxam5c=;aC04 zURr}3skcW?=FL5T4olwT!%)R2uTWf{ycg?%k=^L252L@tNJPcEf!j*TnCkUAi%Abm zg5ksKXZ=JMgzDi}mIV1`6=J??mUTtmWS)_ex+^Eji-?6tl$VgIx5CMByBKkM^Y1M5 zqm%==3r_n0r!~N7UlB}*k8qlssv}zOy~j*PcY8Z;k9cmkWakW%X&-z(g3nI<`z!c- zu75Cn7X6=)(kUr+3sTv?EB~GYr7~FQNYN$9z1p zvWEX)cxMkC-K1VD;4hl=7w6H73gd~9i~nHpvx>+0i^{WJRPqmVxy+1bzkB3 zvRSQa<=@Y?>h31)_}L=fIsGqg<+ku`egxTJnH}|&J?s#oe@9McikR!(DB|4^v4RD1 z{U7#o8ptY};kUf|*9LfT>V$n1%ddt@vBi>hVz#InG5IiY3pe z+_`^3j|9#6t@*S>sn6p0LZY{AI8SmcGeoJFsnzNOWl_;@*Kr8O6#1$ z>%Sp>Yk;4fNfz>3Z`gMAujy*6QcX#xaVR%7W&RG74Qax$g?l8*?Z~nKM>Qx zJx`9^ZkZb07;ZgFpC75OXc@68b;8g!!a>XVU#H#?KQn%8XP4zB*tO824t;Zr2-mYr z&+EIF&%vU5Nv=2{vwx!sSeVd8MpCQxiMWv+L+aG3?)e6fbpb5Fm5e-g*)C+%B$nXb zm+GaEfkj`W3gRqQ%XJ3iA{z6pBnt`D3p{XKcof)C88)TK#R!S{P)=C&G&$AAf`=p) z<%btdEZVHIwR#KdzQz{tEFc(r1(&AcTY?7sG2bB&f0x2oo`K4JFD867SaZU+2=D#U zoZ|?aZk>oaE3y%nLCC5>HrY#_t@ykGf0p{$=!s}=P=f4~)s(`h8(!sG>$4`lwN?aU z3yI9coGX@Ci1awvUckBYh$n@&HT-Q=`Yn~yDGO%eNk3a`kh4C)vK3e?JcPdrDl3}E z18Q+iXTk(8YUo9-%Xl!@g)V?W2a@_DcbUnbm1eqX9Zr1OOyl-RjesAw>a2{)S()R{ zrdSz%p4#AJCw#0`jy=gqV+(}{k%8GZE$5IxD-+FmvId72!%SRW1(Xi3ZlZQ`31(Vq zHW{x2u_#e*<$3ORi>!&PyiNNN%pq!Wnh9ez0+Wmk3(lZ!`f<0*OGtw_GlVZ^v*Bj0 zRTLuNh3FBiXw~zs60?rM+i+)ZR|g)^@m6=zsdjmZoNgeCzFj(M-AD92MqP|8rJMxX z=|C-R!V}}YWEIiGv!gqJQQt20o#YRcC5)H|EtYZs)TF_IFbC1QR8{I>4(%%PrkUgx$Fh%IX; znGs7=ogpy%ee4+RMGQ>og?#O3*1uVdoIDfqi3=X7G=;i}th}IXnC;PNMJnx<@U%8>t~rz)sdSiT-GMPae&L_uz*+(z>_%9O8IZ`kNw)tg670sUK%gI?$LR9^J`L zWQm`@RlmOq*r;OxbeP>QRAV#*CfX>57UI;uNtrWph+6|b_laIKeYbc6YzJ(Pg%aDY z`wz&hJ6&xB9k$CJbGSPs9I{8Whk9!XzgCZ1Y0$H2?w*$Ilsj8yHR#x`Zx2gge<<&| zKXfdm{Q;w|4BFMjU+1j-VoHMVT*JKqMQSQa-j8n4Q=#Vt*z@^!K(C9^y4p-z@^W6yn9nmd`a zpjDRc4j7DnCRD#k99Dq~@4yj-+awpzTyL=tNU+Vv#$lij&Lsz!tyzK!(S+q#Kp5Ns zxGGfdz;#h7SBAR#JaU1scn@iwBo|?(44A1qod9+U(JK&tDstJT$j9bTx3Y;2;c@gm z!Shiz(V=j|xwZydNMPOq_r?ILrhy~}i)^Es{UutFRqI1b7V5rM5<8)H5WZgK8{*s` zI<)?d2G&O(*KmDUx7yH%5(iS98q^}PPr`Er6&GN4T7WGZ?LY@hr_BjDe4dKJ`Q2&h zwY*`+0g_*D=n7nUx6{fSpBh)TR5r~q3k|z$5}W40;bg&Zk{60>lPZ3pY018N*I_Oe zQ7`lkK+i+b{qqZa(IfK((Q_cwotAKmm&{q-cF737w_V7lwUxD>v93~(^Uf68rx=Klz z$nA1iwE@Rs#$|Xi0sK(6S_%&XTp*?LF=1lX?_h6+jRY#1j@Rbxaie%TIBw`GG-vQp zJ5nFL3=;fXPOT8i5?zpGsL_WYDwr$71I{FHD9{U102Oco zKE$EFs2ibrzMI*5(AT2pn_0OMJB@d?d?N`XPGjDf?HbXOU}r>OcmnFQZs0{Dnwcep zVe7^EZ*1^>R*vViFzj^FDl*M;V%8{jA~^y}i=OrD3|;zlTh`Ra@fxu)D%1j{CFM1& zN3Z0F4M)%f*)wW7O&yom>#iD|nNR5Ylsgk-`Nc!ia7TI(Ae#G6G>aQ;6IL`a>ZP!v zUSZE5gC0Q^Fw$Y0*M03tT%~_Ht!YE?3~GM&wI}ew5_rI^U6G?A&$AV}dTPQ(RGECa z0MS?rC~NR~Si|yuJCFLBA5n=9wag_&_a*WaYG1}Wur5OZ@~qr`0?^|{GdjFMRWF+L z&0(GH2~jD6gea}ValpPH8N+CjXehWJNlIidvbivrnfhSfI|ccxI&e6%^x@Q>(lmn2 z2Sl8E$~r;E4ag^~g1Q5&qBs?q0JYgb6#cAVC%Qf`0vDuYkiLf7rt+vawoO2sM)aOS*V6E`F-PPGX1 z zVE7NXY&>peZj;RXAWdv~j!P5gnYm|1r8^GfX&qL``C^h465RZ-n8;?etBK2~DdWs7 zz$;g~xG~k+#NTp>^^%WMoIh5BaPzTsG*l6{x&&w|1=ndAhk!<5L-9vIvLhd>rTL? z332O&)RIeHs8g`$V=xz6Su>xDoL6BkZaGQ0NhcT~qj%G+3$U6xsD`l*xhynjo3)-m z0@bw}ww+LBChjn3!dmE#x4cGSs?Mc$d*i=SyS?#4YPUCjNbUB<52@YWz$eiop>Cvl zyNS5`&1&`m{(S*_1NkcEoB)bAGJP-N>?4RY$YBb_ZyN$|MTP)OeyhNP@}{#+{wBqH zP9_-^m9IE&6j>ye_X!Xm&3S4z{B4SKTrm4uoOFDrzWEn3-eVlsZz9SnT413*OxF7_ zt%AfVY^M?R3q@!MQ9#7%^lS?vqYEfW__7Fa&z7(cDcylCRa}x$MWiEZ241h3^)uW*C_gm&7}uKlo_vC@g2m|^Mvmk zJ25%W%(9q7ZUwCP+M!`|h7^1UfPF@@4_=BIMRCHXLE)T)PvC`bhr&<orT@3btrQZ36O!;ac=f0p%W@y3 zVXcMcXHyUpG*E#DAP$aS3%PwUA2O>Y4z5|jEXB}T0BXbiqzG!GnslX9aFvl-j8KUc z9H1kJ2OmdB17%n6gv;g%luauR+W{agW0BqBnc1%TPjb{@k8`bNG|n?zgN7zkHUraN z5@hQQ`88od5m%Yv2q?d_(*!fQc%)KL@5e}}hZh7r^>g>5g-+Rn$@$j=*>^I7sbkxN zERbCkWKuTZKtZ+|{lvhp&A6^M_#+#NJ>lfs9lU6d`PV^F6rG`X-?NKf`k7IDQAY6| zb9Z2CB0GQrPyt4xbbd9H&;S4fyNFnx<#n+=_YfhGb)jtRP{W^YJezE6j1;?O*Fz71;}D z5ZHrnNRc^4hTntr-xDESqNgh$U7)8i&+- zG+7JuM-!ocOS9^yp_Tsg|7EKBu}C?*6d`pWRJL_L*zAfdH-4P#!_` zS2OTH_rZ1qclzl>{YWiy(;ui7OmmV%ZgFZp?f2W&ebAozSsp6O zP&uaW6o*V*A~~k%r6XnUPy%GOs+HDn-mz}Dk=~Zo>(>@i>3QGf>dAe_guxx2GeY3Z zeF=;PE-^H|^8$B6mZWqbt)Q?2za`DN`C(#TFN@u{)~ZciqRU?r+rai{&OgG-p%`>C z^yN@wZbFB2X-soI_i)Am+nw~|4wuYL9QdVrjP-G=B(hR?b$7~Ks@W=hEK?WupS#+vb929?6Y(I&|yuf@n`>dO!L2L<9 z7>1P(i`lw~g1>&yb_z=8sh@wo(X(tV@+P-;s8AwQqF%}70qQzm07@vQn`-QHYf7C7 zu{KgaO}%9s@p1e>(>Xl@x_04O(D8F5tk-BPMc`;ky4&PWMW-XUv0FTx)I_ymoY|-g_5*q)vvE`p9oH{;h6}{e>(Y$|VgyX! z>sR7e3R`;Pud+u9Ll?G1P;X)n!Dg~K5y27ThNG^x7ywAC20{QlGj~xX* zLn4CHXg2X$xwHCeJ5im0Yci~Z>2#_$k<6)KwTyvvNU|s{z$a%}`1fosnKvn{$b$B) zGwn(QQ>+P!-R)_bmHMqY$5D-;Y-LRmk*!E6ZdbaqKM*q;2y^b82pjiC_544WQNvKe zH4LF%s|D;DR&&X(sAG3%&etA9o4~9OXQ9x<3C`p{Xj;bb^UDZXL)}u^5rrPeWoxkJ zP>!rnB4y7sO*dtV6zC>L?sy{N(9;Nh@>bqWUBD1Dij5fS4~tE>V-iV z5M}-J9zi#YKsdNrbGjZxV{hsQMe3j>u)4Mft%C=3Y839l`^fK*AZTN_7R{Oc5HNED zWBg}GB||cRP|T;=Wa_LWG6at_Yz)b$SH_CV=F$fTf{6ff?s%VQn*jN*!y%?N2XP)v z2W<|Y&&AE*sr2UXtuAT2-K>wRr6I>;GVB9Wk!;4N`Q~YV(gXYomruugD*iU#I8_}8 z>@yuh9RL|C+?V2vo$!&>@gCq$eC)K4@5|Bo>TlrbF8FLm))hVnAq^7$gNd?diQ@QR z3{9M4+)u2gz6iq?vPt^~y?{a`km(mt%7(c<4)fdwGrCHp!=Pu|*P{Lc9XGy^%2wcX z%qn3oyh&?%{2ts5_n!b($hQY_K0_3vgSD1XhEPsqF)m;m6r`T?HfreZ^PCddx1tbe zkG2UxeK*v)< zc`MOrC>U&#`8MNFo}s>}-|=yLneNyW8b<;(W5zi2ysz>>98BjO(L}70iBIG-_4+u@ zVQX5(ow)E2%}hRh8+b5`56it%A9H{O4@%H4bmp`!#BsE*T1rq)C^W19%a_^sFHzAX zYQM$(#=xzgvW3k?Rs7f|_zhIGi&ym?RkfF@+O8~nFI81Luj-bGXwrx%_|DUs7FkPx z3g^*S?%zNPt!zf%13_mXipJ}`W>ZF-`BFcd>GiWmWFywR!3mxf4}?_QbEyL#jzxoE ze&C3Kuh6L(yGRzIe&rE|8v~U_FQ#XO+@`&H82l=$a|qS-qVh}kDDyMU{ zphA5ufM+F8Fc{q#>MQB7UfnzWY?Hd!c*lqhaPO4#psu2|o+=To@%A^CrgwRTnnJds zf*kjQY*UK0z}N{^Ufj%(&0!Jz>miP2?nN>yFT%|gX#A*Rty$;9lr;s!g3X(1G4TLd zk#&=AZ&dF&NwfMDJxfH4eT~1(oUdB5*R&whzboHt%lys#nezVr5Gs2XVk=6PeW8`B zDMk~hoi9FQ;k*4^Q@KtcmiKQm!*c!+-(a+0mbdG13_70m9*ObSr83Ut8Dr^;f8!b7 zpp1E`jAMDmx#^5mJmYUE<7f968Gphv-k;7mk!O6EGOkHwH1mwVNN2o?XRM%%zfEP_ zdxkRJmd=>XGhRg*?@MJ|!82B*GaiUi#-5bXdk=xH+v5bj@FO7k&BGE(R$DaXUlzHW z)E#%zi@d+%i&)mJRB_%Ip1X-E&3l&K<=wz@KE;0x=D%Y6*9H97LjKFae^nWcrRJCA zT^r?*lgo+!$D0)fTtlr4aPzMr{Oel&bshh@K8nNoIrdl?aID%&Ojl8=?k$EqF&JI5*VW@ASDmTTvDSL_g|H~AM$$bQ!ou*~;gV5>tUG^IC+o3Xc zy6iP%mu6j+j%P&@6#6^l)@#n8fIqC&Fi+AF9^xox?1LJRr3zh-HQ>seb;VTOUXU%w zDF26hjPmt*`5IoHu|u43;ul*nV!3p4)p)IH<$U884|2ZI(<}s2J_io~k+ zG#-nPbxEyBr&`EPqVvYL1k?xk1tnfgl>}nd^cwB2FgrK(TTSPBNayjaZ|g5CChq&N zyN+xnPCcn<#EiBq=-iI&taiBdPr51Fk2m!TYKj+1F3|x3>+9!O;cNIK5izA0bLBM~ zZ3FrQGJQhXB8~>I<=k=ux5BN==9+2vGUDrw=eI>vkXAD5=bwgAb@3F7iC?G@BPCBrhp_p_A#D12 zm&v?piKZDiC_HvGsdo7o*;CJx9$}l-ASrLWjQhq@#Llc2hHX+9AH^bq7sC3BQV#0{ zRt{?`UF$HZam%^jeRRf;!Mm2=z3qqK9bl2TIb&I-p^tIVM z-{Dtg76Kbnl=6m|tcQ2SW5Ac`a1Jeapb{QYr~~89R|MEe;qtktiaIK>=I9aO34E)Y zQ3PY7iUX{XZB_3krC2jkstZUA-ygcPtvuHpDk>{45FSTCj+Hxb)6POZB%75Nh)Rw- zj&}SGe&2@=gO@noB%ZI<1mxmbR7aMyzwLUFw}_NVKRCbQUJHiSAuXjSynx3%?P4Tu zK|rH{P!lQ|wy77~km?oUZ1OzCtXNVFrdq?&Re!fRH3)-MHS?k?9TmH_0&_sTj+-L`nK9i=@5dXr*#Lrtf1Yu+e z!cGxm7MXNd!qcHi*japRoeoxPXfJ803m)dfI39 z#nJbSiJG;s{iqffJ?lha*t%p zfg?h-2#Gddu0^Q6o~CG05f50ZE9d4Fim`Hy-DUH6J`f%k$R@%rJchoTk)eTKSxpvU z5$eD|+WItdC}*lL{WAc3a;osqSA$gYmCy7q^|4K{v1Z5{*kglgAu%pti;cBPtT9$@ znL14P)g9YyVx+-7RrtjYDK;t#9|gAC@JmYAq*%EP-t3Ju+Vv;!>jSK152Q+mehSGu z=;2S}XpE1)Aa{tpfF8=kGop2F7ecVTM zW*^0m3pM8>6G&s+S98vR6!h=Bfx61Kg#zs;&vQU4ue+95xk&H~#khajH5noOHuryd zlgtM3MlXbapzI$A6rma|IoRVk)QD;hOz9A69`B6bGJ70zj%GtT&~E4+_AWvo@{PIj z7BVI7@706t$SldvPkWHsHc&Rjfo@w*tR!2B5~}Kb;BQUH~{J}^m_^Q`z7jkO-8@x6XC=DF6rFgXa2YTE;zft z@rk^@&8yGR-!-c<`io7gudb&4Vp<=6fazdo`ZO>;IWp5H4aKIvWKM-VWv@`Pki(xJ zrR46#e*RK(od-#Eh0U-w5m`^R#gQ&-dr)ql;LF&Z9fc0f*gd_m{& z{o+T)ckBOce2H;g#@80f7$3H;ep^f9<9&I8oBZ&VL>E|CQ{zpJHO7l34M;D}r}1)6 zjnUK8)o&s}+@?NO%fEkLi2#AyJJo`Mxi}!r+$UOm6gZa?7{{sw* z%Hks1>1Ufkt{jVUr4Nvcp9D!@W4tE+sf?> zMRJ2?yVRyts2v-Jwd4h!M=mio%xpaXjiu`f*W#vL#K>95 zfm?YYUCxUED7yIXM(U7em_oU7RXx&xmhO1}RyQLm7`$JZdXF@*LM@i1tYz18WW|HE@dsO*D&jq6(RrjMU*Da* zuP&L41frEx-RRVSA>$sUCS;GA(Ev3l3|mi4=n*=&ukKCQKy0*DdYc(odULov5X-s+ zxB>UhR6K0qEt{jpmM_O{F;~aKt;t(tZ9TMIkZRi)s>A$$>A~BhEhb^rBG>c0|46#u z)Z>@Vwommmg?fVoxf(CypXzCtoxRe`b|iDIiLWLrv%JGn@lw$0zNb}+|G_` z&iNIzDU3uL7WLVGVOLd|uRC-cW%1Ryamk}EXO-9CTuQVnolJnE*Hsh)!Hwm z?FR8nyo($=(aS>Ie_ zGO54p;CLACf`?5hJT%-#7hFtu*qn)nT)*0BLx0iAowt^78R@Y}DSTW&H|4+Wa$o>C z+?!u_*==;iQ-FPpERGD@H(u@GrGRe_xQe*nk9(*3GDb{)+f`&U>E{=hSxlx>kmN7^ z0ZhCy+)mT`E=@0nPV*`A9T*3EC_v87-j8abB0qy%v0Lm=yQM>pw3x$3k{5K^U(R~p z*60Z3yo)iMl7(%JMUcK5b$_{>jd*P(Du^iRakE+10pf;l_=`>nn%w*SFawBh!6~Qx z^

g=Bm-(NB4&=L_VRMjYnloj>NX{jh?tcH3)N=ybMd*_^w}p`PeqZNzMxB&J9af zpqc1sJ6Zh&Sx>)pJLe#?On9FcTBK8RTF4Ik^eBrdnXNhR9i_AC&glN|5FNa0$mHN| zSOucC9#*bh@;u=33bA7*^4Ke)xx3pXw_J$&hD1cQ3DxN98c{7mHCig*J+t#7JSX>( zh8o{RZj=iIY&-U0l-`H^BZ+A<9HRr=5~P|6k$|u|^Na}4Ar>UtQdo;CW#s>K|HD0E zEND>=%m#Sb2?H?981IBXGT&|r{Y+%T9b9&)6g$s12rmGb^L2^+Ptc=ezjyJ@^yF$F zgb`E9_wA;UXf2gA&uKzftB<~}X+h;zc*_E2xLtF`M$qaUtvT5U3-3Q?;MrcC;457vLB#E6=t6l(bK##wJ z`F_)dXMui&oJPZaC}theQ*~zv(hD-X@ww^hp0ZmV^Ialq%G76)yJ^gC*BSzfWbP0> zw>st~VV%6@xF19uaCVP+oZ~ z_tE-~ZR!_)LmH;i&T=2!Xs^w8$_!>{56C_WZWbk^d_0cryJ6A>+c3|s{jo_7*s=fm zH#|u$=UY=TGJv$v-QNKcnyySh z5<0X-PO%lCs26E05k1=6#S~72A(e})vug>YccN#$Lx|xOI&3aN`vF*AcxPBzghnS1 z05w-2_Jo$)am0OmOrgj4#zkIZTzJN47wKiAFPV8hE=f-|REV#K(v!-zvE6Eqt8f~V z&NX;DEDuT8aV0&n@F+u*bsU^AfP0&C#<>jE6=3f{du9KF(-#mEV>un6T=Z|Qx3Pz-{}|O&2?4cVNOXpDjVJv9?HZ1hI06|$eRe9!*y`B&F>B1 z42JR~&%=fDbNJoHujpOEvQ~C~E_Thwwn6Vs!Q3eiq`Ee*FE`VA7}q>rlH7viBLja~ zm92Api7Hd4-#UKJbvfk79N1-UWOION*$LapH7GbQ;qvSS0d`yAm{{&DTs>k)umcSV zR%?(vduHq+HHjVq9BMQ|UGN|0iuc1q{h&|Rbm4Ly(C6}Z=zbF6@+dd8&9aO`QomkS zqWroC!pI!#uT_FW zpyV_qSfT`humvY7!D1!oB41c?z+=O0Bn1kBB%tT z#2>QCFReF^qhvOqxbW{~)PxHzN}tz|iAB*tV;W zp3f2UfoxQ&McYE|B@&Z%*+e{;SoAKDoZMZ0HUi_BG>Hr51WXtkLWE`eCtUjtp4~IH zvGM&mCn(+vTZS(;a>g7w-@P#nH6>_I-oj~v6>ULa^nKe#r&G4Dc?Ll&}kz z!A~O|0C-qK^VOLE@%xc`8=KqKU>AkA)(KLRGQL<6-uf6p-dl{!GXcq{IfH`i%p$Bq z{9%AE@2dkGm#`9^h+)FIQ~1x8URenCZ4!rjBQW6z_nh-M+`lESLX2wXPTvnI?I!ro z9R{%9odJ8GIoSaF!bdMh9nCn&Cj^eR zasYaFiQVtQ9LYg!v`wA+5)KgytMsss#2ze=*hVFYHe5=uP-68;(7|G;qi(Oyj8t(Q zvUR>2Vy?2!~;_W zWh5b`$0Ur%SVA!$d^TnLU^zCvfZVjBACZMF0u4jE*P#KV+WIHtdeA{L+(YD2&kMxF zg{RB0m6hDAwo;DOE+-a1s(JA%;udQ5a<6_!p;^;vITbcT>4~v2l+kwCIv%8m4a#WP zwnrB#82<%U{}{V61|EzlRK^tHJYEGI@W;kf2*umfmwt)b=6RE02Ji8*Nm8f}{3J1-Wr#e>-Mc!bg#%)ag%?M>RgO zHX1(I8(;zDk0@2Az)KdC`MT3K0_(X2-^`Y+^=-bv_RiV8p*$GZbihzCHrz~{5`u!< zwH-qbm0L`rvT!=B)e#SfY0GY2izwW-aH8(q^0q|IEeVR>0fo@p1`6182Z&HPtZJF< z_VH^n0ca&M3sxi~Izz$nmoi@w0tFyNw>uj<-Pl$g4&e%#0-<^Z*;l({w#R2&LhUOy zYNNGCvKV`CB1It1*fn#Ex`gUq5lqP)K|hKEMtI>37BcPLuD;^}{4x|1D_!_K#*Vop zHo_3b24~6#^q$%FrM>?)-Du%YQSLgV_ILsCEHT2)GYk5uj`IfNRHye1bgDxx5B!F1 z8ALVAmLdOLp1~iE?$X|$slCxgd(Zt5+Z(R8*HdrrFJ(r1FO^Yy619f`Oiht_LrkG= zh*j#ZeveZ5cJ;bH^6$}q#Iqz2i63nI;H;i$?{QS&Zf1ujVaBvkG;OZdvXCA>M!DD{#I12y1&Vmt@+}vN`=jIg;mYS7kVxiG_-YQ;BWJ zjK(i1uA0;nZ?UZOZ_*a>AZgi}w@}tY^oZI9pXWPak%WvKdzog9Obr{6f@F>d)$cGy z7*Hz>Xv6<;K)?Ue7|>l7eL%xuK#@5`8VZ5@qCI^~MP0`<FwMts z-)GhJPTV*sw+YiFanD0amm49O51(6XKT^#@{kf9%KC zZ7grxF`S01E09#hoE!G1{P~k#YZ_&__Mcdsd-cy+*4eB7)@5n0{+}&Nd-dO>r!mjY zS5r>*bW6Ykot*54V9r?9&`;0u>hJz(+N=NTLVDEq0+Y$`>VL#Rk3Q>RG8ta|_We}X zKY#aQ4L1Hx)3}0&sHJ<0dUFqc*le;GK3Dg9{cI-pxx$0zLz&0Tjqe~G?d09Rpgir} z@1pc}HFp^j+vKwUf}Y1sX?l)^1L$(k;njFvr-gfp zWJ@TKK8>}rg}M4AD%YWeywJ|i@h+AlYw7q}sJ?*Q6E>@(zTv)RJ>hptJ8n;rwR8e5 zzKf&-NT5(%MO1scy8QroU4_{T&yZGke{_GyFLCET{rm#Ow~csSPY!=$Vz%3Z)_8{g zO}7uIFEocPL%D4SYC9Sw&;A+fv4sJ}cLyT10wRtrK}Vyn;^#prry7G|vGUHK(@ zp()jso1iPTW}^=vCoYSp`=IylhuhzX)du%;YTw4&e`Sj~4VO@#R8Mk2zSM;3)o9O= zjp=ZAF>(r?ET^sQg_UORGlMeTL=@#@(mgCAaGnoLQ7Q2#6PF^L%cbRrfn3;Tp}19Z z-gb?}q~5rc+-aM*`<<|2!~;Tc6UDR_?$`!f+A=OEK;0E$dn>ny#9WAY8@cBs#;uyT zZO|r9^W5&kVm34$jwfyKw_Xom)Bx}6sg8-{L^<&eY;!$#Cq%Zj{V`n2fWR)fY$5p- z-N$`O)z}m8=7_tkY!x{f-Qu6JArKql4O-iDcuV~LeawtLye|{6U&w9g3R;J;JB~S! zYXw$vwAFTuy|3O5HCmI}1`pLZV{Ho9Q}rghFE*MayU;QIDeF>Ada=Ft%)Gs{rD&&i zup21d=P5Avdwut<;%HmgWpo~cd2d&Lx+^1FB;axpJy@{zD?aw8GDaKzg#m>yUqnyc zrfE|};i@=Wh=D3*m9k|W1cy*R*u%Il*_VSXChjV)P$stc6g|Hlo+nG)`&%kdDYxuf zDwoXVsj_95HKUe4Q7zx5YcaZXeyU6PFt!r*fXgMtD$OnDoupWwE|FhC6?=ilYk~a+ zMW+%}+dhrae%Xkkw5CD#%^icjxj4R0C+cR90oXL%Thy6WzPrawKeW4}Sy?lhmBl;l z^IJOo^bNsl4-_>cF zLPmbux)}L=x;SmRr@gOV8FNXOe1@Ih@J^Xi=6v6nQF(wMt6E3yM0cKb0_Po@_MGVO zbh1_tum(eCz;>iWb~L!ys5xIoB-@Kt^FlSAw?$fPLiH1run5&rN|-})A}9KV9z5I5 z_g7FFYb?bYxyPqr*ZSYs`|c?=?0t2qK6|3>^_lET2U|%8sh5-8YUz|7^=%pExqD41 zM}^M7=mHP*hW{QOH~!@R1s-je|3ASaaak95wB7o@z@tes{V+Vz5l%2hQtSb==bBVO zYJ6qhWPnmbnSOrcE9C64Fd^>4`_gwf6>;Nsd6-s|(2D z|9uK1@#+$a-XtsI?a2_Mh$pNu^IW03TxT477{?2K?EavS5dcL2I{1hi#|sLvNkGht z())pJhhMQZYYm=d_+(~wfcfl6HNYl0xWB-5wSzW2q58Z`F7M{dJytUI*d_nN{_55UOnCvhTeUojCMsHrl^P994bzCFZmgaw4i)JEh0Rg7CIS&!qK zCY`X~&|ME~m*za+PL-K@eGkdrE12u#sfB+x-PPcvf)(|X2mF8_|7{~yJ7zS_x z9E#mj^uzHrI@t$g$ZwIaih}GYzd|j*TJUm#U!v!vB{T)2$4+-^41Fv^GCSB=f9xxy zAW}iLo)uWtz*wB?@KBW3v<<@)n;UbmfYoL_F-!@#ZE~d1E_%M5u|f1aY76z|=f^#n zMO4gem`zkfn>*h5{+DUw4)g>2Sr>mo*xJ}!SE&!LeN`p)0XrJq8P1ksw>Xk>eQcNH zIXElC2E1~umHfd91F@mcK^lZTK*Gz|X2d^{HPB7@!isv)(-7)e&H@W)>+`C8nwUKqAsvHHsT&8U!K-YhZF(R0Rd(Q`%;hPBgu{*aS3)n4NN ztxIe_Bn@g1cc_xJL9ACTlBZr2hBrYjVZ|m<>4wgn8`_ViDy47=2u`$wV(3MB=MTWo zFcry&zx29mGAc}}zIst0>iv^zb?O~m(v!y!W+yPP8-~|efWpmm^`QltmS(_XmMuF3$OOc*4-etxlo_l zf&B1qkU`TO@@BjxY8xaEH8$g!1o__KzXYv5QwH-ZRA-^{-9nOO_XDC|ooTb|0g0trJmz$Ch^Lp3k?D5vU2Z+q zd=a;viY~GJpz)M%$yv5jViE4bz9rDf&K(&(>Ak-E!OdA-;8}wM?LI&fs9G@!`hg-L@#fwj>Ri8R)Zf`!y6YGI6BSJ2}jq9 z+Iq>uarCi!PGf+pEjl))@lxM(V43nmQvTMaAD1Q;+EdSRQ*z42&^?-S+y!(Xce^nW zxffVWDIUu(!A!H{l1o0z3iHGOewHK~T-K5xKTDD|=lcUNK0uogeSq9$7cV!bTK-@_ z=azpv;6Jonakl;EfG)0Fee{+qH0SL`%g6A%Eb?d}tYsc&aq-@CC&qW_MBabu#Kf~Y zak77xqqHXjsiU;r{q;^fh@FTnRLQnrJDo2FVp+2fBUvEjhkK)XU=&7AT*%|e=#gfO zeuex0hki{yt6#s+`!(6<*NIWQUz0WGP4KQ|->I~n(7@X(vkAbIZ>E52KrQ*66Cw=cAiujP87Wbkj8FWO&!| z{r8%dDeb2i)%!EogquXe0Nn~TklKk3rqnD~r~IogVxih z%Ol@s0=Ro7fTIHp0C)cp09(!h;N$0U0K>bM9-SJ<&1~T9{ze12Khl8p91Z+dZvfu4 z{OzQsb@G?Vh~V_e;7$>o$btKWk9{5}`_mzkT%I%;2LpJ&YLz`5)9DcEVmk#$TJNF& zNqaqeg}`3qoY(a;VrUN0S1c!8W^$PMT|bLS*Xv;BWk%*YjHDz9(#I*K&yap-PQC(v zwEUbrssBXU=IU{DY(aah^17=g8}&cjD3m=(Coxl=MKU|6868z0Z^FHp-Er91$bqLmEVA9|zDnG{ zkEb^9x4A};i$GYJx@QhQ%()Alb{X#qx}eZrN@fHY>X7UY*mtpMW&*EA6$0v#K-nu4 zDr=&yFJuRRQy!Jp7mDnC6xgoT6^0_lcd&WW=K&ZSB)7rP82-y_Xbiv9rM9(nD2e?k zTfqVR7g9bQ;LApM{C8db>uLS4Mm@gPd3xxFySs$IY7*b(2%YSAZWrkP5D05s-!8Eq zjt}RtA9$o6wCjT&b5Z+MqsKhr#qTruJ)Kk-{f+h0`}@l-p|n!{eJR~vuBZt7w*j^C z`=$eG8ND7lJTqd&Ll~?mWeg>5n^s;nl*iDyGBv>8<_V2&ew6pXhP(vw2*p=8PGHVg4 z4Qc_T@xs~-+?iCeRhN0+C7rxwxZN)*PMs@a<7BceR*_)W4NdyU#FrQ ztU-gL19LFC!Pn+F3sC|r3NSphh16sezb5K(ZLm=N_Z(b_c$k~;6%w9A)|DbN`JeSe zf4=O0)DN``=&T=FnW-Oovy*;k`G2Dyy8OuhQ9rc&2lPXQ^_}!XeCND5^MFFq2~MVd zDE`0ehis%D>P#HvDK8+sR(pp!%U2otq5n~!^3UudP@PLZ^xm|TNVPXpsN(vexBhib z{m^nlKlD+rAJY$Y@2npxOa3qVp~zRoYTwCv=;va(pS_4q3?g4a4Oy;BQYQr%-9Cs% z1jp#0zECacgAEC2kj9$nwqajP?5m9}#BfgBiKLC6>ZsrKL&Ku1dEM0{rL1!wWur^z z4D?1ed@$YZZ``hdir#*a6Xx(>^<7?U?nUtKM!MI$Q2kp!ihX)xq{Bv*k3w*h0zc75 z3^n)^AC=!lHs^e??lyk!!@phV*y`+a2^kaK%g2j48uI@=Y~oQY_`0k>HGkt-_j9wV z0y>4>2h==E{p?Omvu7;E72N5IuAdx){;kKLKg*vhj?tmGv+ z&T6BBw}Gs&=Df>6vGDEm;}-g{S^f1S-WXaq<7F+_BPgW)gQsiod3KoSH!_dv$q=QR zG0)dLy%*D;U>YwKYMIVMeg8AWzc+?{1_SUZV~GhWp36>F9U3n;w=8 zkL@4_I-%4~Fy$<0`4F>IH9SK#@Cb8(m~XqEZB^S&@mm1rTqf2X?12`-IY{pSksi1R zF$hp;)WsH)dI4ZT%Y)sJjT?2h9D4+>fY}~k8}RzsVxf2&>Dbho-gJIjEGju--Iq|^ zTDwW9fyxGAW!s^$Gmubsz{Io^L1mHoHnR}@HPXMxBj;I!=tG1C+tq<%ksidR!+f^y zJAY^76N^y24_C}#b0`!!356)+-s;wYgBn5;;4>nkT0)mbR9nay=_nMU8wtKy*WV5; zo#N>=6CvG-EKKClo<;EBm$%{byyN&KNcAo6@qC}c@0KQ>-h=74^`;`KIW!voc(JjI zu(5n-EIb+QseT3-pW=lq*wDg^hN>n~L%;kPZz%aIcyGJ3U`u$3bFw85*t5T zj16&MbdjB*yvV#qO`#l-y@gv(v@LuE)Go4m>{$$*#xpFByHo~^9u?Q{n2M*&;Txg4 zu#-J9O<4V9uNk?uul?qNh<50*%i`K6w;%;P9mV zC~GC_uQeB1usLWQ`ydqWpi!{YU2QvbLz)dZj@E!OvjX_C@U?yxCGU1ms}Q@;+^NU) zc*7g^I8Mc&$E~cb*<dJD>IvQplYfbJz;TUM+2$IBX^s*izKgae1c!2Kr|Cq)3>ymYI0#U z(Y;;1L@f6@PrdLM@_c~D?w##z!i1fAuXg}NW#tugwIo)Z0n9EF)EvIVz^{hYh>b9Q zPlFI>=!{~`fKVG57T=UH-zjKrl$B8xI#K}BD+_@pd_rS^-L$8^nmu=xP!oSO~6%q&Ep2H2C z>rNfitRvY&Zwkv*X+2?+5~9x$kfC!`C%nT1lkmiE4EO`umG=iA;_#Z~SXKO;R_*^C za@cPUJ+idBbJJPStCyAXigUsVH_!KQ|9tB^4j`dsG?~JTz1skRNZZs?6uIm6=@?Q_ z8NWvqRv+pmJQl(85=6CM(|sk#44A?XW3Q>hEP{LhV$F(rq#V%6bB@8!o+=~}8^A-@ zOX^ueXHZrRbt(d+)P%(e4fr~9D;=U#(2Q9uSxH@ z1+pdgWZ>Jf(Y(?B0oS4$@-~({YVcd$;F5kiJMs`VI1C${rw>O~de8{$Ecg)GixK7# zR7X{~cmC+MQQv+P4JM*-x)?@~>Xitx8)c*J4rSARQh1^gG9=3s|X*Vj0ZaB=o6nF|cwDP-`hUef{!++gB?8!{Yy(9b7B{$cBs z3I{Tzz>eyd&>W)cI|H#-`E88*WF>qrd}fPfVUrNO4f<8~FfdaUISAIu=0GfOmIIYI zlbfX2aC1PZ#Mu5b9Tp0^hR1on*}Bg3O1s4*zKfp!xHb-vf;2cg5DPAY`j=s8{bs@< zygYdUFpa%qxuwzV;fkS4Y&i=;{+8EynPot8AB8gfzQJOw?YHy>p2k>zIziG<%v~}B zx%%LvnzJFt!b=j+GTS9F3K$gL@;Ms4{s$W!kkM#Xs?qaPjRw!v=)DxJ2OdeWVH(}S zDAc@1w_FGB^|SYls~LrwwOHkS<4u*gl5};_ASWuPBSqc#eMl_xnS{rmvJtO%?Y|4r0(}dHh`H|s4I^gT7>M1tf%zT+3@4*dWds7| z-Tn3V97rEOI25V^Se7v#oG+#2y%}Gze?>TUax*6by`B)}L>g}?1yZYoc zG!x4-XJeMd$R@|0>W>5Ec{FE{m5y1mS$UyS-ajLgIV02emW)hAGJA^8KyF{TssRN| z*}8}NRDylVPInr})T4A7nv=TjtmaD+Qt>uU-*!A7caH8!%pl%4D&+gNrw8|rH8mlt z%_xly?v0U%M%c-n$$Exv-r0l3E7$uI^{BS;YxPsh%ZA9|HXiSm0!x)ppeaHc5{nz4WWXO))fW+zwyS=Xs$Zo!FH2YdB~^cCs`_@Q{>yar|F)zinfbm^s)Z2Y zQt(U7`H7WRf)ug4zRqZk8sO(R6LZ%0u$YW_a75#kgAg%{iL7dv&L=Uz%p$+bbXf+C z)!T;JUVtIEcdG9l;WVs2bxcQw;0uA+W5iTdHPG(I%vhr}p}{5?pL3~!$BF73eEs6% zW>dx^ELale^#H2BLM?kydtP}1fbbOpt=*j6eZ=(H5LA7O{G6v zQ!%j7@CmO#nxm}?C^t4~<%K@aJ$Quiy{6$+48eOlW6Hfql{2Q=9mgXh3R}-!c5&6q z+hih)8|q3^`gTv)PH{68>vqz0tXUQLq-5I%Uu>Id3F0nF2I4=~WWIKbBf4J{q>or* zGFpp!W0(5RwqNQTa%qW)$3t5{UCo-|NNFsmqX%Cr@mtr<>}D~MXF&i%0=V}FnJN?? zm062eHr*yfSCDzW0|UXJ8nFn{vI7m>WHfauGA#Io;@v`iz*VAFcPB&e3xMUKb0gX3 z-iXZDR;{9xdv0T(fA)Qlo#_-GRb&Fy51lBcwy=fb-RcltUr}a#P@5RL*_^78UrFPS zBy17QHsjyWMIZJ#=%6lAzm|yT`Zf+PRo{YA9aK$CsPA>7`uqQI{h^^+qd&627Wv*b zqYkZN(23T)MLqnUiL|2z1}xwhu*B3k78ZJJc?Ad5EI0z_orC)yMrp{GF_eI}$Q@6< zX51f?HE#gF)96lhzm= z+e<%y9WRd_3I8;}Hj@(_A{~ri8wR|({uDWz`HX-u8L#^DS3eQ!;@!y$tZsdGA}+^s zb!q6&ut%zYk)a32bzAJt*Hh?sQCR9p><-$hMnWkml2sBguJd==f?DMSn~_#0JcSsYyQQ-syA4 zV6 zr=di?uLd7SvCmx;ZS-@_V9+M}+FdRM+@I>W1EpgYp!g>0JHz>J#e6MPl8U9<(6tx9fE1 z8ek~Y0TQfZRG%boN_P+G9rSN=fUQsUulj`1zrCFppODRn{HKGBy-i?C`5@iD)s*r< zq9C((c5*@Dv?2XFz&1kt;q2NhjG&F=yb+}~qLqy};tP3{ztE)=zLA3FH8HWEY?$rQ zD`YmTFnKjfQ=|M-VBb0e1;3?&nRyGvGOulZHf;cne&)qUm7%_o($a8lq|$B#&eO9k^i*=keZr~^OpXHqfjn^U#y_E{qVmYQz#x||5|#2eCZ5MXuWQc! z-x@^VhHNAPTaKHN6b(Qgg0*VSQ^$?>*U>A30cl_7_cfv&i+E=v`2dn@ z2@j2o4i<=ExoyL8ZJ}(5{mj7*z{I)Z!m1qrZs1k(y$-+PErMAZX`AX(WD87;+!L|% zq^MNdrbbTKLw(?{BjkvJ=&+j|m@4>oK&FbG(f#3WkSK1!@QR$P5fxKyAG#1g@j8t0 zdDe%!3687~Ff+*5NX7872?Ra0^_rihA5nCgM48!+X@R0*a$n7R~G0+8)we@f**su!kyiqGtr z;=BWT{vZ z2%ib?`8j-kARZ`LE}+HbK3TcXuFn4!=dgDmR&FN)+b52jxp~^PvU0yey^CItvcr4m zV6*1@9bx+@sOx@vClT&`2iw3=miB!#UxTrD&pz)5emkH5iBPbVY&Rq~TIm+ww8we|i@Wls%Y`yR_bYiz2Undwn zLQgRAgnIO(eh3l$H?WZHoaw*-b9g6Evx$cmM>#jteJur?n+w_Mo)CJ{ z+oZ=L5>_7_$QmvIzGFe8$x?L!!6fS=#?W_DvgP|)xjMJng`u8g>p!u#%4=v6r7YEj z_=-Ye88EN|vxv2&q*E&;omwFF5?ToR*%sCGK98tgN;C12iDCpuu3RPZp;=EZH-|1v zL~y#0n-VDiXd?2S8T+MYN#;n5p0MWSj!-`lHs0ds#`%uOiJV7!C~N^iaGWc5$Km#! zkx$IZQo=M0p~%+P;kgAJY48AT)iltu<;5^0kmbu>cVRHlP@f>06pC%onmydDjN@=9 zTX_vjsrz8np^P}NjDQgCi@AGIZf~f272C^wH);%!QS>2Md4n7PVoz}!q0Jz_3i%Oq z96-$lTQ4bZpta~RA%BgGI=ZrI>Wh%i(7ORPU*HmzNCn!?@-?PJ##z#1U<+^zN@OC6 zB_lrM%03@AN1_(#Mr`FZpf0XOUPArb2e6#- zfi~iW*Uc>~ng^YBR*rXosrD=f7Aq4it1Z+#_d_S~QgdiY^MPZZa2rn|t zmg-_479sntnDbw4W)s)cPlvwx#k!$AY3L)*=tHjp7^tVp_|Q>aQdeM%(msHRWe>PQ zLTn1!*&ASa3g4Z~!h=to6tfUT8G{TfNNv^r5{|h3u*JI5+UD6k`y_BUbX9mAx>2jr z7&;cIvFH{pSTBVQ_h7w$&LYylw$U!UVjFJ6YCbQrgck{I)rHUiYm(RoG&DB_iTAw} z>p~t*{RS!FtyvWKtcDYVkitWuC9{Y;knL4Js~$9!jkmK+Xn5{0bJBo1xvt~^$O6(Z zoi1PuIQG8Z`WB}O{V8sCu#m3E!suko+?gE6Y)2rrrh>9w(4Er)ALJ5usA7Aw7&&A{ zbGFLJ$xfu82pcQ=2ho6mDH`BJi{u=!ZA2FmfVtJ(t(*j0P(~vT_rc8hn3*U*k(E;b zvf?Swvy)3ms;YurYr`rL&}gJDY4R$CuN}$dB&Qt=%2Ty7d;XS^yh$u zgTC!RLTapOQh?F#)f@G*%Xhdgo-7w*OQ|lP1|8PU)L;mw2G@VDFNrHp!IEgXE`u68 zzZ=8$raJ_kH>J%a6#z!(9 zo-t?iSSE4kCDt_pacKGId!RWFpjx^WFMur4*?^01BOic-s1Td$jffaIr0*A@+hGab zj+flZ#P}fpK%u0g@w(+EJ-VzQ?LZTI>r$FVya{(H5O+MUP?ICcOtV5L-mczNK-Q6= z3m8KHCHq6wf5E9h_D9WsAEpAm0~x!UXhK`~0?Hj(vmBR5*vSaDF>nbQY|O|azTb$F zCt+}LgFl_=7ctkq*wit9vMOU4-cSJvS{Dhd37%K|_86T>g7>wy%?5{qDGaX5XJ)l z11X|No`-MJ*~IFxoF1$8_duSXflL+NvO(7A822!On@Q4&#tuBbQ#p zo8q+YOi)Gy9|lT%!=bOTLRw`LTcPwLGW?n8O&zKzg)-xODNEo&Zz6p=kHZKO;9f2P zrf;6$|B$MJyfk}Y$Q|7nx-@daGOK6gge?RQ?cu&L(cVZw`WhoAibDCE;D)Ryl%rJF zNHn`kJd^Qsuc*lOqMdgODiiW*b9D_VsvZC>@@h}+O+Q$jr%Qh_3bzy0+j>(-fVn8b zOhldcuL3NAue@xR+MmC?OP&JL;-M&pGkVb_ptav-)G4#YxB;xeBR|h^Vc18;`RRSl zxJyW^QMT^DyP!^OGMT72Yc$F-DdVQmPRf$b_S`3U$FXDTUwToueunal7lT<>1Xv@! zDrI}rY5e6d>~pCnLVb4d?vnUJLXXaX8^?&%W;&rwzpriWoZsjVDQiv{+8H~m!fjr$ zp!Cy?RS`u~On9?jM*mT?bI_&h>?=IHpexo-;*mwTS&jue;CnB84vDc_^Wa;BPphPa zOVoGsd2qVl5SulrgTklHBQm6gyYpL9XCjw_gAbMh5Ac9qViIPW;xmS?hl?kLU#Ee~ zvGL7#w1gH@KnMSD1o{75GX|&Ct*7?l_Q4l=usIO(?KMnZ@J(eHp6-Q84(X@Adxu(0 zISax$Yb;*Vg5(6qF&1(hf^sU_4N&!F%|T_$;EfuH1zTauk&c*+z{pU~GoD%6Al=hRB}SE=)hnZ|GaNtE_2|!9lbXc-#{VXCn&zl)Rh9C+wW+Pos>h^pjwRS*8ue& z)U)id(DZAar@!8Ej_Kc%G5vo`o_qSg;g+Ll!*(!p`h}YJ`J01K(U+Z3pgW;J%bU6x z>gzn?mrwc`iFwpoh)Sy$sx6* z(!ZiMn{-6AXx5e-NR&5OSlbQ1@@u=}SNB>{Em`q;>EJ+U%MNIC5xT?l!9U&c1gXTeCgg zsZW=#ralc^O?@g{O?}E=ol7mQ&eL1m!-5wx-({k5Yc8~12p#PUeKcY>K>`Ep;km8V z#}YnecmYm#r)4p356yF@M+b36J3smor?K;+Z*bN+KWZ22#_{v4&8@V=79FD{Hg7O3 zvGYZOSj$X`fQ#U0nT9u#aGD&v3N@~lw@j&X?u_$o+--${rll7FLkFL+@c9{h?t;%0 z`1}$+55uPtK99oZarngG^BH`S@HqybvWv~8cKAL6pDak{!lyTU&V$c|@F|ARRTpy| zp7&OAy{eSiQM_F>mbd0>vq^IfJ%B#{S=XJh@IcO0oXz~l*Jkc1@8s{lIIX|`Iq@5L z*=OkV?iH%z=!cYNlaXgA&-2M?%JUNC*~;_$!^qQ*=Xsasd4cl0%Jclz$ivA;-tT#y z=O|B<=b2^X*}?P7;(3-)o}cqPKQr?D9rHwnUWjMrLiG#$*ZKU{ll+&H|BCQm0{<1} zzq;{X_mYe3^TZI=l^{t{IH!*s%5=5AHx*fY@ERTwce~ntK0g%GGcsNpd5Gz-Syzg8 z-r4BhDb`YLki996z+Z-}b{(z<^?F&;kaC3orQVS|lM$di^gItv{t*oL9WG<;Rvxm; zEIZ-N%}WO%M|;upO{P>N@`SfP+OkoqNKau1WXSj0VdED@I}Uzk{PJSYu6&<&M2KF3 zg<^T*VH?yhO4Xbt`;D`VE05p=9Qr^%%ZP`5qB)O!pub(pv+qJfP(2Q~Db!89<`Yfx ztPff6F1f5rfZtVC6nE1(@IdU^#tI5zd}?Savho#^Kc`10^hXtP?Ap`((Qf?_aEt?f zouEfkD)i{b7^0aXAOrcm6W?)v=&W9S4J+oDb83^O@vz9R52e!YA37@zbFV|`ILv)` z8;djIFgNz0Twmp<<1jm#DA(mfe=H8OXDG&QZP|VrzYOf?%wIYt7(UTJqwX+F1|lcz zGsnnNHbD#bCM|}wNG>d1`J}}-*}hV9&e*4~>4*2>B;9WO{3RsNdd*{;uOri$K8vT{ zx_u4sl--S|#f_Ttn-i8y|IR`jQ_-z-ttokVR@LB{T$}p{@DV=uXVmj}NC+?mBlyH_ zwfNj|t(o=@bUd#BJQ|v9HZKSjfN-m`jknQd`nt-2ueBxUsYwd>50R+=7*@(1lZZukTy1)7gH9~@T zS&85<^Gxs*PyP4X`|{gP+G z7yKsL$QmpFB!_N&VNc;3Qd@t>HJbX>?x8Xe@%!qGM+ZOCe$NRz(2E(_@NI?h_CtL8 z7=PQOyMEq-f;ie!vZt`sjJjGd_c(I1Ahm~KhNM>InM_8eqnPQcj4C@d*nw~J`P&kV zIuI$a86h;r?j|G68XG5Qy#tIbvGKT8WSn5rn#DTDWn6PZ`mqFsBG8;qQb|@!mk{Au zYT<4(55FNq@g7Txj{>myY2<5jsAts~Gx@2bXLZsKz$NpR&`-OL>a|>bRF{Z#=zyHO z1M-s5PN;V()9Q_l>^M1&7IEvF@Ti#8CWN)sSCIA8aX%hsIN?WJZ)Q!u3iD5v&bCzzh6!<6l*KRHlhiO44~ z&6^_)cCDHAAdJs)hpPgFgAzZxUpH*JgHs*v_^~7x)TNHjX)(hRPWaG=z_iw4;;r=5 zmor(5Xw7U7B6W0+v6Rn;rR<=ktRFYub^D}7s3Wzaxkf@=<1}uF?Mr^IPod)7zh=~J zkC*OV|KJegy69kZXE+O*N?u1Q?3DJJH2}YVUwpyuo-z5`kC9zLqukySU=9BIjvjs% zm+RG^2CQ+3vG*+e(9h=HnY^51K}Ol5sj_nY$sRImz=E>1S@I-gW&A6WFd`9IgUTpV z=q6S^jZD`gHCA3F^sFs8h&5q-_2;TDz>fLrzlM$+OWFb~{0d$&myZ`|b@O>P_=I7t z$sBm(6MU@!d<2z^$>JXx0ox?k zpRmZRo&%)`yYB!h(v2br4r`*`i$EuR?j!D<6#hk09=x~xD8R)RyT^=!ND2~r@Lqf@ zv3u@izIzRt9Mlxwqd=NJE+E%y%^=E=Quql{BvdOY_pH(hGuiv87vfCQ;Na9wTe8h)z`48)Whp8^0pqLz`ao&NqzS zE=w7`{q-{v5*B`eOIw{-L`uy(pruGq9%N?*&0C=(4_aRm>WQ9?8PlNNgSf^owNr_S zV%-ib;fZQ6HES@Nv5N^@#Tv79gL0NZC(yl8FWizth0ho3KIIgq@H3sl%!dA`n+B%G z*a-ry2!Wieb5iNQH~&W}oq|*K1S>(Ui42;n{aoE%Oy``tMRrC~!VhWA`2P_#QHb6dV7B z#9qQlQhaY@no;Ug)8kW`ny&~Z>N^+c)Ta72JkqG!*_SeX@d;%b@i}FB1~RqaZ23Vf zJthsh=MACyCy+g9!}uZ4@N&}4gZ!zC!+2`G*}8sWJohvyf>9_D%teCGlca&8-vIzIP8{uT4@3RGGgJK{HBf2M8<=iMHGt35 zwlf(GynjY-V7f&BctD50Z=i%mH-5X1CGaL+yM|}9^NjcLjH~;j#=+;-^obOW$|;f>-aj6?7S9!;`Db9?{)t%UEyVMkp&fMDRrjoF$vLeVtsB~^^jM82 zEmh{sh2&#rH0P!1%JA@57)S;d1-Mvnq1b`^`q(KNozG48Es+1~W->51W9IjE8oUs{ z20Xov)^J+q))Kxoootc^rxw$@2MLldd`ys>em-AJpuM`69jN5kub8UEP-(h4#`$=D4+HG_YK5;_=W{(zm{EGro@_+xF$$6^z4ln^G!hOuxx;cf z*jm|ZNFGAJ(g~1+u{1dqitALURAy_4zOd~nDm48hr$RkYH8BQ%u=Qy&6sn|ZWQJ{? zg9;_HC`_ZwhTGA%2F8oK8IhnqdiU|6L1@CarTBTx`Hzh$ZhrF_es9tpu8AN3m!LXN ztP3~^QZIZ+klG7aREI9z>S!PxwV3LX|4wI`r2I>)E91o{f2d>MGN?f9g?Bw=7E8@{ zp+4Ut>)`Xvw-p-vVK@0HRv0@Bz~!c)*(RkXEEv}}r+RUm&u`0q>UDR*ef7D%CR3+; zC|Tnfel6~jx^DJx+{gB;*{OUqus#=@`~ z7L#EatN#!2*q(hM6_2eXp!gga@z`##nv4jI#XSBfYtS0xSnhhH9V40T>XC}goDsR- zk^D$zi^=!omSVi+m!ezpFhM~(49+H_ry4L%Hqn!S-*$Lj98exC5<$SicSU-6V3Ue4 z3fP0iYGE;&P8^cUCKZLQ!@Dps0NNXuXqrAm{0(gvxp%7X&{GPP=AdkW^Wedt4k%lU zW$pBE_E}|%p==c|YfqJR=w*3_ME0KgtIIUahwk4!EQn@dum5dBP))^aUQ9dxZp}Go zeTw9A4Gs_b8XJ$YQF?bBo+7l9_Y%7O`~yO_UIiH2jp97jRpwKMpYjaP?4t}vd+R=uR}Lpc=v5cw`^3%h*mJ5pY?yr1#3Cq-s}SDG_#of%_-w!FnbqchHh0lr1} z5E>&fWiJ{UUx(pFv#EXm`SDA*KT}Y~0D2wIVGd3a7^et~Q-s((6yRo@R~B)5muZ5@q-#1il0&F-ego+`i#ewgE=XAu9ud$yr3FLaN7hUy^=I^1 zbJyZOZ7`>vKsCsa@fVk3y^%He0P9BvEA$fb0)KQLVW(x~wHN91<~6!9PxS-1v%0$MOodqT>8tfXbAiRE}{wwX(}YH>&%a^>P0Lo_rV)^s{)1 zC|$vkqLdK#?Ko#|2kZR{k%*$(nU3g5vvh_F4|Mbyx|mLZVOAv8fSSMO;xxrFZ&s-8 zN4FRgkk8KiE1ubFWd4d;O9d?K#T6CMd%IZooC7V(GU6OwmwF3=$tw<8l9%k#m*fLL z_|!en-?e-NZdQMTYU@N&k{P$ORU&--aML;^!WT`1+EyZbr9^6Z&L&HyS_D1W@dPI$ z9xE&d4AfeZy0@6rNEjoG{6hI*4=m&(xK_OEbQ#5fnKg`JNuYej5-9_AJqAf`HV!gh zU!wX`WpK8Z@T?(Yi7hhk1x2yI&UmpvZ#}Mndbs(F5i1vPotwQD>VVBxKir;rt1iHF z?5Xs*_WD_pN@4Ui87Agf2%;|S=!mh~1C+vX?hte+oA>=43jx%nAp~D|wWQvn*s& zX+19_6p1-a8*x4FqZ<#TZ$8!R%CUTQ%d}nL8T0+@EFu2qU8QYPMuVM15X2 zZH&vTg&fX`>2IlzeH>&Rbc8>uLcR6y8BMLfFs0w5Jal_$IiBgD!#*(=;Ub3qf)h6C z5tW+KcI{-oO1CbPQTs7rV!%~$44wXqGj@vqSlxS;v#N7gJ5^VzUs+O2!94>GO^d7{ z*>lza3^#=jzdRpf=WfJwfUSq!yzP92~1;J&S;Uj@Gg|63v-%t*BY}a6{+>krFw)`nx(TYV?%q$RrweVb9&^kC3Jb! z$?r8_tsj+{SSWk4CIi!r7ZHj@@Z)y;kvBCmr&m$31y1^DA8VU^f( zYNW#+8V-LQp&O=R0Lm-jZ&COnBCn0994^XHNI7ybN9dzkBu9<4wzS11x5?bn^?tAl zBmOhU1jMRF|nebSaRq@<1CWyFC#gx7;t|BZAA z^NP~kc!qxC3F60hY0j3q)YdnLNXrwt;tR^Yg_^H~&-4R&uMJy>@qT3+G2WGS{m8J7 zSa%xPQzukMhhx&9uqix^J%Ou&{jQKRXknXsfAT8Hb68~Se~{;9AISCJ_dps#Z1>(B zNg?_Ve%H1b(JbLypIZ}ScbQu-Xoq`$%WwJEbcM3R=lRaZKKBX3zkuGuf}yZ-c;-&B ze`u0ecYZJQ6PF|N9H!7{T2iB@sdx56*7pf+;V>F`X$P#Urb6VU*JHS8$~CR0rs-`- zgH*cN_&uFPM#iTg4R)9fV3uo$S-yrl{Ikva&U|bO?94-RsM{QSWLPHc2h+@QF*3`W zmtYRSSOyr&0ApkKlw|P8kvVspgLpsIMj`qN!9au^__pbO#ndiR*f$}HA^)R0_3QrX zDD0mQt)g&mt3(%?Rac=7txgZXnzvx98NFEI82zta2-J(r-@kJ_OdcB*ZOWUBNU472 zuh63y<|X1h(nY<@0|5G2BozuWSnpRXjs66oR^t{QYXSg{jM+xYo@SpgqA3Vi?n=iW z7gkyPT70S^TIAR*mZ=I*U%xHrsSkg_DN}jO=9OYLQ@~p9_cVomDn}Y1r)W!+e{19! zC~2*cwHo=99P?(wlT$VF$r`yGQm1R=?`z}^SeB=tcz8!+sz1NU=+A}e{xIy0B7#7D zi;X&C$Ii5*$mBW8UzRR^TyS6w$Ax@e2P9IpeA*e<}OTvg9L3Au9 zeS`3pUDo1ajo&QRbPLA(7Bnduw8`(;6#lGni&36;;bs6hbfFnbU#83B!rGA*EGDc) zfZD80(3u@4rizOHOwiL1K9m|r*YWsyWi+0mv*!l~K{et)4yS7w5i9UQhXU3e(8bWb za%`AQcuPJl32%AN2ya!GaYn@YLw2c0ef=kPc-5x=g5=2_JK*mLc-~_N-OzT(F7D_M zSyTN9JB*$Z4za$Y5W(TA5iR~my)_7s_(NvO_r*Unilc z3`G$G4t4=RCOn_afM>Cx-C|Elpnl^+CHmG>{;#-=WT)G!+%*hCmpgZ;R0TRq`eq@F4}_xJ*ApFd{n?%o*i zG#U7IiH>govXN$7eAcENEdX}E25Y_EKd90Fqxh29zl`K2g>ZpQqqKO)K4zNT4EHOuR;Y$*axb(;1>@CAS+fU)**Y6pef!r2FT?HFf`d}s{+oa?BWc2rZBYaOP!r4TfUrzReSJTgWRcq<` zq*4b`zUKVPPP~CCQfV~J%8Rh~xiTA7O#P6xL+9uZ+gEkM3>*8SqeI@R6BwK{G`Q+S ztJ$_7R9JOl0tNbQC2=Y1xp&N_mTVGtvhHet^hy4FCO-d~rx#-S6EuY1FD(8m9dqC< zg0ZSI+N{};j?09FFOlZbdBF;dYQPpf_U0`BK@4gDrSHSiFY}t_Vfq=KeiGA*c=|7x zUcl4;#B_+K*JFAbPw&9=9X$OxrYm^*D5fQzK8@*8p6&-SY0F@qz5>(SnK{dk=>nd< z2h(<*o`dOAh4h;|?ZotQp1u&% z&-3(9Omo-DteY`i&C~ZlI{64BsxdJG5*TtPc^@QJV`4JG0TUA-p<-e*Bs5I;AaMaO z8p#{^JqWiqR<+Op(j{oj-xqD;QAe~Hv-HFGQJ8RGzc7JXBNHUpE-vcd{m~hXyExt6 z*b0C?1t0s(W>W!tir_OCKBe%H;8OvgJK!@7KJ#JXL-4%-K8xV<418XO&r0~b4WB0X zya%5{@c9Zp9eSB_eQfY?z^6ZaE`iUL@VOp7UikRoa|?WKzlGbe8~*}$-vfr+D;mpB z!AkwC6~&xNWTDv!wa15NG=2ifwxQpNaWAxtXFPT}veB%5wjD+HIxdaWrLq7z{wla!yxvAk8lv-@JfUJ}5;>)x4& zVrT$6>GVI>oXS7YO0iXrbZFtcL^d+-?s&_`WJmkFYa%ul^DW1?O?C=vn>B5-nas9K zSw!ZcLf`Ttih#Z?pgb7&vC|1(O%Vx=r{TeidOXz=1V5qrHIrcpEDXfcgBmOs%ld5t z9xWUIDP_6lJiuX{S2pSSkiE_KyiF9O57T-3pq`jAzR5H8WWMJyJl1ks*c#bviH$Jp zeTweKE}?zLCbLQJmf%ZZw^#=VV>mP)+pb>zb>2?>?1rEJ=aq@eb_agM=vQ3B~^A@CA)q9qZT+@ok zmSD^499S39#ps`=_>VLUeo+sr{~(9LKPY#oS7hGvrcf@zi!>IfFiYkCByPZL!RzOO z89H~}X~}Hi#f?UZ(NKaSlLcagJ5eUe(Z`Pa%_>r_> z2YOge#EF^>Gy$79HFDz!Q@Bm` z?3IOKjdEOXafu&M_yx|WKDy2+8G1>Vj6LLPJw2PsDyEl4YOd@oz~ z0|8YJFXle%bP21Q(76caym_iJcR(}DFG8GcQ+Hv^R@PhwQxqN%n6jXR+-kQ6qw)Ed z%d7@jJSldUS!Vf2*7Dde2VH+LtWmNyVNmGcpvLegk~!e=29*MrKeEoAw2InxTnzfU z5ViHREZ9~Z`vK+h60|a2bni5l0^!rV1v;4j{VHFZ-#FL}`A0q9&UNaa z_Tb;#Q+6?G?BK%Mw_F#LE-Gdjex#;kOq8P9$>~f?Q z)hHGrnv0=J>xy|C6OCpWNd^*%qXZ`hIZAwv3&fGNcLTQE4N&J^-SNklgZNM)*6H*W zevTiAL;-)VwwkWu%TmbqII*C;jMWN;jOSB39G_+@Mm5R*k7l+H!5hG6mwqox!Ht~J|;^H zcH977?i14}4rPT)ue<;OE46p|G{U25cI6 z#9|M7sLv7N^o2~a)+l>EntOn_8$X`H_k#6CCslpk!Zp&@_?bgL=@2Z&55e}R$N!Db zkYDL^OBkNFkZq32EpT3b%aR!f5D=}DjOFAhJA>>5azdbWY!+H5`7be?Mx z=9)&i!u?pa3%z}mNC>6z?s%!6!a^1v<%G|VakED>E-E>)ASKa+Fe6N2@Yl2i5LrYL z3Q}$XMAtQC8hH%ti_~GlBrM)(N?BpiVXylL(Oh*M-Ff_)x3h-j4q6=`NW6yIg zDo2&za#%`r)A6Q6<(`#6*2+$*-`Y|U@NQV!p&!k^K(>^ka-&OTK?lNrYbD=wCv#F% zWbP6aJSN+fm4&3rv0+?`+QDR|zgz9VsIxI9r(XGiCVYwy@%|*M?!NUK*d0dJnrY}U z-vYe0-uDb{w)#Fn(?VMX>=`w&euq27)3{SCWxi){vv>+Oi{HXV@g!^%OK_uj0ym097}81! zxTeu&F42!^J4`#W)%B?SGgS zV-KO&*DT~m`eUT&Hhwp2WKE%s@2Lxf>TcZWp_JSFd{5F}&{Y4iRo!TzIAVOw#DT^U zz9jD!Bl9p*+x!vqfZHR&JT2gt7WMMbA>aa_L6S!Unt?7>GNXF@N^Z6m!8?hy4gSam zyXXm<=B|sZsh~w1#aoHQwHje%YOUS{+iY3bG=GF!n|hA*X%n!43+R525`4froUr9& zWP{ZkN$}P-sAe2jg0h)txMWHgJ${NWhF(;x5d#q7>z0;Nn%4O~WJBxPLynZ0fB`(D zXRJ0)0)c!Jwcj>HQhm8Z0@t;`*lBy4#IR-$`UgLt?`j8 z&|sH6dBJzgrtlE_<$zx!@Yki}MYAi_O6UR4pA1D$j;0k%V86Kx2(!ET!hx35DtIYR#n&#z-T0P#Aylcj8ZeMQiJfC{i0anjZA`q*fDRt@c zEU(^gZSZ^0+6#sTSkjH(y!~QU&ez=}aOdYfrI5@i4 zM|>Bp)uKm2g>`0}+EtBH2h~p%JsW0UxWoM9rs$IX;zyFLP;>%n4nZHg;+s z4CABOKZzazJpMVn4#e`N;+Npt2nD7+C6gO3_tzw zd8QT2KOf$8`v72u!O7JZE-~(@=tlPVKPwcX{~%st35ED+7g-I5&SUx}(L~GyTQJvR z_@{3OceA!d&J@l1E@_Llg$vQH3>t86RK-gSd+ygz_FYY~Z#WMvs_i5;$9~mEWLwoa zr_N|>8{4ZMI(@1xj2RTmrc zM<()-T4Mq=Ti8x+^Rb8e0Icgy!u)NA`71h=F@FgTd$yZTU+8<9zHY|!eMj)en4~w9 z=n(%U{5bG^r+L%E;_X(~pUj-L=n*K0leU3RTKiRc6_**4HgE5_CT+z<7`O>oE?@LW zxG!L9Z^-%>WL<+o9Sr%2i?~Y+`c=Ww6&_6AEl|_>J|BY%amUN5@DN3KI^JmfM!gP? z-oGWKkJ3ermFe3)4*%5fKbHV6HX<_(cy18HgtH^C{I0gH2xEGThs4(arInixqR$GH5bSc#J?j8dV zr3(!_EJ8Pg;Q&uD%nib_&?7{a&1u>VB=p5ux)arK@N~Bv3diPKPEW-jcP4_ zEQVYMUZC;PT3BHFg(tS7Y`EF2sTZ}M(G*|xyZl}PU$YXfk*7Ey^`gvV0HJLMpx$z} zWFpat+6tl&i#dgG?Lb#|#Eqae~@3kxDA{FMcOtV@%c#Cy5qvgLiN?*Ot-%9_?jl?28myn zYVB9h$8Zh69CgAl%%%L0a#Gb96a<9o6=-1@T&j+t9{84G7gAJ-?NYCAqqe(aBT)@o zNYf)d(@H!_jOUVC zc^y>c7|Co6LcVV$tKqTdtEmMgSR=CHa?Dpv zoCPFml<`fZp)k}H`q4+j6I>k;A$7#-Pmt1jEepm`74a^rBHlqg#M`KcSOcHc!dvs| zgtx-AsEc?DbrElNQd-a0cDB-b<$qLKKhR%C@~&XK_^75u+X#sE_sn>LBtq7f*B!_r z5Q@5Y`dN%Hj>X0He=j91=K)ai>=x}MKDOgi%1HX7id61 zlgxgf<`CHUC9*PUxi0%7qX5l7@1CI*xtOTH{x@+=9O5M4A|GcYV9@SeW)2vMH6ee0 zJ`8?^U?@o};hwnuyWz@@O+J(CMk`++VElnszePQCoEAJm+sD=!%MDkbI^=k2xtlDR z%YB)#+GQ48j!ThNJzw#Bxo=dBWvKGy{ybmqcNi-&ZsP4vKAypRKnIBO>{9*5(yQHQ zB&uaBcj|)ri%!k(xq5`MGj{7|V&oJo@}scGgN%x!@%T^mWqxAE z4=?irASkxTJ!uB=IofT)N7wemA;nB|>I}j|`@f&3B!JIG&|ZMZ)qYe|D3R<5*u|kk zWdg8Ype6B5P$jV%^J$mC`!#R#I_MHSit&v1ri;qcXw2Ygo?YN)MCn)!*6G>78iZl> z&?3GT6H#=_un-xc>nlQ6=-Gir(BW7eSE2V|BOTF=BBT6*4=ZS*Ey}m|zv#-TbXU}K zbmbK9irsQ{SJWTrirr###ZJ(pdSLUV3#XVqe)fl23iCa0i7>nwmf0aTZ>hw#!?Z8( z@te4&!BdsO@G;^bfWl2g!i+=*s#(Hsp(D>3XyX}vJw*tEa^Hx#>`8i`B-Q}a{x-L6Gc}t{o+cmLCJb-l4I-Ii+n|jK4C$BIh8NqQo4F|ZH_^HU z7y~0o*Ln^8_OHNR>=d5pN8|qkwt(@w+0)B)|C`2R!ku*gs;|_~9xEbzUqG5|)WR+zGQ`%xY9bS(2JQ54!EwaA@Y!hPjf-U5nk zSVIn2u{=v}SO-o>)HyOACwrx;fc`8fn@3%eW8-1Ns-fFGVp)6s0vsIMj&Yj|oK|X{ zA<|4VTitMBDy`30_-f#3Ferc36236o|4n4QiHz}eSWfhna)`E|>x5E=SzBJ>%IU^! zhUR0RQ{R$We%c+u{Z12&I))6Tu;P1BSn&>3y+;+EJ)`N+^()z^7c6|YgHOh|Z8RA% zjC9x0Ej45Sz)u7u3-8p@l%(Nuaeg`z2ShSAHFJLDCNc63Lcko%77sF8$=oQBw|eDFrW*{zmb#XG?j=sJGPol9C`RMl~@&Khi>l%PPs+wMyQDk zI~e;5nv25F_jW>}_cDCnWkq zhdC1}hw{@|bQJ25s`^Hk&%F`59+opar?aAFco(H3VcZPloUXprpH@?j3M0p*XXU8p zIVKu8@PtE*yn~Q|UJc#U7m;=o0)SIe2|Ydu3w-)g@-zWOjTHnnYYIB7VTanInKjg_ z7XD@9Uv~I9S^tfr$4Q{rxG=Ru{U=sHM)k3$N$hJj#J+ji(Bl1+XQE!IdMD4rFHhP_ z*>25FkrJ6b$(O2;D5QC3d2zTuV{Wab_HKoJD5F8PQP^aO+Ma3u^$CAS&Q8R?{v4H3SgqKj+-) zPA5cX=KbF1{r~6pk#yCqyPkXQx#ymHmisxK4Tn@%IA{hP>NW~BYmRGLvV+dH5UNfn z)Szs1w0Y4lZW-{k%W~z(c`as)3e$pd)9?qSo=|0r*PMb@#B|NIY>7O1c}v+Wo^c+} zc$d+T=#Z|`61>REo}gyfAoXv>+?yMq$8($G_;!9)9N!+Y_E1TK6LDK#@4z@s2ORnE zOgv;%ejNV$$ABZ;NOoprf^%rqRzGLbeI*Sj_Ed7;P|((`iMBS{<89@VDrY7-1l8+` z{*J^hz%h%(oZol=^_d)9iSsA`5JPm|c>=Xb5r4eqH*q=;piAyg0;pv#bczo;qeGIX z!iK&bmdp-OYxbHIirXYl1z@krl^5sn5IijtIj|=ZuszP#um=ki;1~2&z*ek|qt_m& z>j}g?b<*R66SZ;l_0ZhYH?N}1i$^GGQE&MS&7sF1A7U`{5aShu*H74pCcl}qyb-q% z#{oOlFCL>N?C~Z(F%xRqOi8HO#Pj5sdQkIqbAm+asL3&t(DHtcmVvW+bA37ukA88q zH?j_|BG^(FWTTf^@(@>H9U3@gqV*`3<@QPG4~ylpJe{gTE`_MMIRmO=m4xDbYFyGM zrC)rP%a-c{O-6aUiKBeOWeJqeZjGa%V_+N&f1O0tGmCVTS9?(Yy1_q!^6HPE{9icA zA8d)Y)sh)+YYf4!fpGo)BwWX-Toe$_=@-9qOdP+TT9q^hgx_{k|M;De7e{XR_hZ&`EIO*@7&vW2{|S}3x*<%8Ryi-FXW!`mtEc$2 z)!Y+0UDJ5lH=vh(X>Jale)-Y2q(cqEQI@sBo_71I$iERQE6N@iSmqYnZXrPd5BIXlK)6>w2 zzn1*1ila(%V;ohUPS;T-W~E(RKh&t>KE~c`Q(t@^MIB09z4I*f&WBIM6I2179bsK| zsrQ}ha@Gh5vd$9%l(0?RdJv_bTrSF*F}M$Rw&>4Af%`Kv6S0;_)_%Iio@@FwN#@{e zFNJm)fZh+QB1rq(GLOKo{s9KyQ|`=Tou1;LL8w8o8!K}cm$`yARNyG33oWw`jy*14 z@w&AXhY%ic41r8mHX8M(-O3yzdLR4@wGl$m%4A>plKR|VPHAfTLDbVrmz3!?H(EP! zHCc>)WLGb4hxsjYyXA$s&N5dZ5ISI%%wdVW*u<~X&1^MJtfbTu%%A&^s&Z(>8xTuY zUXJ?DY%uKa79s+5PZ6hDhj_vExP_Nmd}dF+>gC0>7AF;3zBNR@Mp0PPf*#7!ak$eF z-c?U=e-IhYmx&vHXgu+mJZKu(y}R?!P&}Pg(K)(Pz<4m#c^Ftuhp(;%t_RV_XwK|? z9v7O9rsF>XjQC0qc8OZH*4LNfJm^iF1N8O`IB%~)h;c}1Yf=m%#@;r=xEpZQuAJyo z##BQwuD^ief5(_S{xwPCcaJM9)z(~O=T!gDb#EWoiqve z-v>*Ay~<;6vsd+in(3aJ&wN~;n$K{+!!}SX@G7*_GH<{|Z?3{SU1v)WFUrpIIQGTH zI=YHqrn!2f_+{$*t8qQ)KYVaXi~ZTl-is$(y%VKN9pr8cH8=n`@Et+tq{^ zp+hF2`tS5$3``Fl2VU+A>aEO=_>Uq2_<@RfP?--cxLLhr(7sCnOB_rmbFw1c5fn>$Ngi zo#^tz&zJTDC`GiRHcq1iQMtyf{%{Eufv@l>PR}woqT-NxfPX_5rKv4tg`7ifPWaoH zebWt1$?>xq9h&dX)>-6~ey`75i)^Dn0AGR;_=`6|o6n0(v6+ey+bh8KEF!m4x zHa%ax>;sfYP2fR}5v3`-m>IT)8=EEgkS}TzinLY=#~{iR^0`j4cvDkSe{~h7V%QICvMRm@9CqN;&I|t!O?o`Eq0SVh|KTNj!})6u93GZ_6P|qcDdOjXt2W~VnM`= zr4F-3z`IEj8wdlg$ATi;86S)JSL+Cc!|JVjf&RSope|5)5bMwz{1raKa9~tgD~yE( z+eCJ-{b1|{Rp%H)%(@t<>M1pyOKWuWjyev=4&RB%{F)5rCh8cuCZZ#KwloipH zi9~)eNecsNN!xg)>tX}9H@XpTNuCap9nN4ayAGble-4Pd;S?z=A7fMUQ4{ONyjfaA zo{}F|taA10FmzDgrCQt($zTA`iTP;cozG*eu}106cEV}%YUC4{=+g7cYa+FJcG0D^ z>Lv8?-<6j`YEL~=>~gbvT>u6#^e?mD3=8pDTDUKD^Eu!7l|JhsF5G~*a~-Yk<}>bM z4;oB-#vQwyn<#?egweudjmQDAYh2`M_QpJP`UeY8c(bO}(bG-|<}FQ(opnchSgbevgrw8T%cHa?G9VwfMlk z?q^`HB?eX#9~cd4B9N-UCG1)pQG77(ODt6%j8`5g%GcOLc~OQo5pp9!PRx(p$&_v* z7yK90AZLtiXf=5x@przzU^1XqaR6n^?ZRV?yxyKlSu<2yvr7~_VQ5UI3a|xiDXA5= zOcfHG5&OxJ-suoK4gX=&I}8AFXoUYyN4P`LH~25C0xf&M!qb<4`cq3_aAmJ0@aqNf zCGg;a{+0k?KbtZd2)hk_fR;`fP0OOc6%p50HIm9I^#jHbUn14iZBhkzjHpf-u9dQU z+G7GE;Rj$yXLk-Zfhb}N05_U`R|Acy@P@h&1iKqD3hhBNQ-7lBr_~psD z)2~6LF|LJgU0a>dSmT}#KJY3FbJ#I;&$FjAJrod8{VfTrVX;9&O)uSW_-~IJ$j@#e z+rtkeXaD{b>CaJhz>g1{MEp3mck@l$KN^GfX4xcpo?X{ttmMZzcE~Nyhx658pFF=q zWT&8i;m1s9(}NKE(doM+``r~7IRI5Mp6UnRO!k|^lzLS4{DE|Ec{9Zhw z8s38yP|I(rmcR2{ck^5UKh!WXq}Ol(eq)(eKSr^%3PP0A2X9*TK>q1+{;80EDyC20 z&Zn1g@Uj8fGj-5=r{Ws^KTBx%|L!UZKdL-Ud?OD>c&8qY@TMkpWhDYW6pwDzD#>R< zmkrS6mNJ`Bk4#MVXet)*3Uq~LDJdM1{YJS0=;o`x8W-1H#{(W5FLI=o zGRo^KUYO70!s|})lybY8Q-vd$oR5goK+DZ0u{Hb=_QDy`+&gomny*&odvV$<$CK=t zGSw~HG%b-^YmuBMm+vD>Chl|3S9PlAvz}H|)#I^G;h)qzNb|`H^Ubbw zp-;)wN;n{u%$g4{Vx;v-Cn4A67~YBp1Y7<-4+y4Qdi4jC2qfFOc-N_Tbgan|ykD!o z&w}S0^yhMTzDj?_JpX*}$D&~2)!C((Q?b7FS)yX5hu!+yXQvWjx2Bd*Qo~q7BJ9>f zS5VTQ#`c8WTG~uuw_e$K>L(g}XD1%Tqdz~XX}$L=n8byghH)MFz#NKGr4IfXch#>o)MycbGI< zKDZM#TGr$}f}8|DU&G<6I`3ir@KBz@AJ*hO#2=o{Ls>Qc*3s`9c{2U-v#n77V%`JX zN7$i zr%U=G$GxPnjP{aN^7bD`kG}Kq-ip5Sal=FZ>+`YX7yrq8O!~$D;e34lm;d2>e0cOf znUA&o%*WW${^kSrcb_cfN^-e9?s)?>SLgj6=7jqG0E3SO?|Ges zs=)Jk_Iu?N=J`UDEqTlnlT*;q#67)%(^dPQ00(vf&o`$5M~8~BFH|18okQgzg39vS z|6id}`ojMNDka}*1P*}8+X;w#Ll8O2A#wsBq6OxQY+RnJt9e!6UN58jU7>!KuV!B` zmE0P}203;$;KR{xfxO@T8p_QbyCR>avL?4OK|6XFPWt9BYo$ATcR^$5mwSvJs6H?X zrzBc&62;&(bX9{(p(&QBzmf}&7Br*f_Bc=H*^SBZB1dWF%34#HIwDR>=dCDOK(G9!k~M zrLBvOl`s##U7RqUu?zJkk7J*YZ3YYwH=fc+(+c<)yP-mKHo~(Fy8KrUYl6oNL(y;V zg+&qBh+5_pR$dhBt{frDk_XJgEV?M&EioB+6t>iY;@g`^A8o|CKNu<0X1T;hJWbDJ zuQq0NwUHvRl2dIP-Y^vT*m<9X(6I!@YGq@#|G`Kmy7@l9dR*qYJ~kfj=U4lR=h%ZO zzTzc00lQQ@%g!Br`if`e1ed{kE`FPpA2Dqr;nk$Ejn$%jpquT0(eE%xGZM>zI8YfKcD6NPnoLT)en?HBXfPm)`x zLOR)69}C9aLLmo>H$$?&lWX*u;CSj`U-)EC>jre*BhOqb3Tt4)ThZXgo$N(&B{sCB zM?rte5QAaEZ)p9lqw8vU9V&aaRHEMkOjl#gbPvv1S|~Am2oZtm`;44^dzCj)7saDY z&28}g@T96Yii2dmzy7FWvGSyPgYPtKIUFAyDg-`;76jLY6Bh zkzq-G&*SLC8OT1D`&tnGk;|#i; z=VUs|Wsg7FtzSK7#FX5glx0ry5e9Sc)`qAW_4(o;Pe{?Yh^b_vdg* z_asrc@EkHd-|uGKuwi|S``1Ufe|^Y22XG79hg;YO@NX|{VI8o0y^mYiyQf*6S3Z}p zJa36xp0_7ip5K^PMEZ|`IMG`5HErpg`W(8+2wkI{U7lSD`*_WzgA4|is291XhPZltFTXAAfGj4uVA!9892_%N zRBPF<-pnEN2tnwXoBwwpbkno{C4^>w#UTV>LFgod=Bz9lCro&QTbXR-{E7l}8V%## zR~;84qf?1v=tPA}=4lYw9snR#kz`pbRPVGCwY>rg`jt{U5Zj-@V~@S9lHu|e58oWj z@E6~>*%q{VigN>YtBHzrLGRKVjnpNt@;lsL#0_TZ)s57v z`HOmbW$Ecvgvy#FWqixy7%n7i^RPX-LYv-A`0Qm0CU{$FQ1_fvndCPyd>A_C6drhj zR1rsPz#5o!*6-lQDUJ;0FzXC>c8V7UGlhDq51uQW;zfb^y1Vzx-=SA{G&hA88@vRr z(Z86Jznpp+zLe-+s-8~zvK+sRgcm!!>{t%-So1v&nY)&6ri9Np4_k?M3+R(i)W-l_ zj@d;gy{t?XWqLqqY`1MyR%oeYTb?e46tqXMQ>vX(?TJ(yrRGp-P9oJpsky5zgVfyR zg?gvQJ&kDk1ZD^h()*r|1F?oS8)N3sW|Jt>S2y$e$ilsa$CE-^{^eHZwDOe$MJ)`o zWAQqhmaDNrXkwnpJTJPPVNvjfWzUPuNSkUa%$D0(ZV~QZa7xocD=Gm5A7!Gtis!{p zcP7eCv!8f6uCNh{YMMUF(RvI8VtEj$3qYe%-%)_@Toy>|J~emIt-UYdEs70HSl8G% zfkAQu@IKHFq0wz`CfvZO4dZe0Z}{J#Hl4ruFR9HpYJ%D%Q<`Mneaa@ z<0mTIZwL}VgL2}YP}(7NT`zAaod1?rtkX%ajZRZKIFR1DuTOTFbyCB|YYRmH5fwbiF#lTer1j=JQvP7?dt2Tikua7P)->X8u7|-1rdfUR zO$}`btrfq)SU!k~*17N~du+`53wnS~TW^J@BLEO|DsP<(FBP)qLriE7q1ntW0zrE7 zy+)nRheX$}@jR7AKqe0~@`~rs0S)|nRm<*}#bNzC z!MYLN0M4QA`-Eyd+>AejGhAImXBPjje$pAu>_-9qt94&A!P9-w-2K$)@UQ(T`2X@> z!1}Iuku(Q_orHvVoPU(_I&aVCY<=>6?-{~3d+vS5*zaav3&6;rwfOOA@BrLvy_Un{ zVS>ji*Tx<3bpJn%eZjB(%dy}4`DtV43y|XF3iizKJ#kE^j{B*rB}~BZFN&u#F1p|l z=n>Ju=+im>*QpO503l@gYkNVV@fr?=$GQFAH5>{skiR^Mw%+SKPr4Z{KK~OsAl4ut z9{+b;Anjf09`<$znTCGI?;}H15P`x zK-Q%G@H$2jtc;~%R^c3jS9_^I6alU%%wK5(CO%Ebt`#8KIs$^;gKS z|KDJ$s0jzZiWd>wE7pqgo2UsB?M_F65C-a?PTGjanQl6qtV$(3J@al@_Ort{Q95$c zeD%yrA8JKS8zPE)qQfN8wejwV^KtfUaHlxD|XyeW)6bIy==^_M6>e05I(+@(o&xdX^DI;`D3+%)5&z%W+sN44X=a2oD^zfDgXz=+?FZ7x{q(%!C zBoP2ZUjlHVo+d25p8Kr-QMm5^-FoLb($OI{0?LcrYuh?Jg2};7ea>mF#kY_$c`;P% z_}3T0nm+|P7tM(C6lSQ}q=ivLxQ zLyK=N*M^A=q+OY?kX0fS2;Nzq_BaxvoCYxW`*}uUn)wDLF&k%-YvbE<5H_Y2fQ~DG zUAdr~qvNB5j)TkpchGV7BmX5j?)nI~CFG4+u$p!zJdxA36dWlcWG?nN+LY-=ieKh$ zSMPmICmlhv=6O+TkymtvG?x&%6;2`1*G_7h4oI)E0%cF1+^(M~5PJH`a)c1`);0pMc~|Ca!K^g~?F)i~T_=4K||9ncC! zsQFk6#eP&BuM+g4m%(Qx1LM#e)cvoZEYM@ay_TX~^&!^UIy$?dGD#ds`C3GKeWw(1 z8UmO0bLHN;uHP&7-}{rU>-`Pty{~YUeHrPJrxMayWh1I)@jf`Vs#l%QuQ+PWBv3Cj z_x47Kt}AETWzSk1_Ik7KpPswm^)ipm2N*IbR8nLJ=4}{)TDaf5jKYgn{N|N2Qt_9* z3)L8{eiE}3iEn*Du?8D5Xhp6=8<5^ZcZBsVh)9qELye{Ddr;vknufIFE@s0WWoa_` znF1`pIy_Q)q{u;wWZp>@8qUnEz}f^affw{Y*Mcv3-1(gP$;-U9vvr?y8R&gZ177)tO21Op+H**V zYhK`f;8rH*at2PwDr*&6$~sWU3cnwcC|kb4re&Xy_}m@Wl`rTTReqIUzshgqt<^6# zpQE|mB>f*=ZqBLwA6{-=`#!(ie6B|cgAW9iG5Ec*K2YwB{Dvmhlz7~F8vL)-buC~5 zJ_0_3)Lzz_$=y?#O~U30{CGtizedidM)t-j2ChLqJMyx1bbE~V%6t-*!6Yo2$R{DD zPeQjo2?pIBsGWc>P5eIu{-+Q84}t%|yBzrK$r>Onrl1Cn&s@fI`7Zeb8A-IYHqpJs~iJLm&;`zrl9M-TCCv z5;L30kC!}obX=jmkLvnOWwSq}h-u01O&EmU|qZsag5_ z>TSMoZJYf191@)DBYkBQpj_augmel_z2uHMv~+7v<(_Za?x=es{wmxwNy4zJnYNBT~HQhk(V+g3VB&&KfaTkVu%7A z8KL<_7bW~D=ymY+^|s+q6mOjnVV|3Q1NkIs3#s2M?rdZSdIO!WMo(~ubpjcVYuUGm z6u%3|gG+ZS2S{<_&$(s5Xzu4#$&C4o2CW^X5tKt~l|tPo7iTKhn6&JxATz9xQ50KI z%U)Y*G;9=j>>Vxp6&DYw!BF?S$zz?#Al^%c{^DhAyq<}4&{G1tvqVp%<|W?1^LE?zQxgiWDd?>=tSCrfeqVW zB_92heGrM6VrG%;OSo-VaTOPZN<2~s=P<~=oQ5sR>u_CR1F*W~SrjiW>nbBRBf?FC zd!u}j0w(y_AM>6f%z7hlwUO^1wMKqg9z=nrQm80AJaHw^6wh-o*m9gJsQf8a&pDj* z-BBw%w_DS=%KI7JnikKuR?l~4B478>c)qWXVu(9~-oYYB#G~<2lYzIII>*Exx^6ZZ zqKoK=3&aFBeC~QOGjpJRjB{f&8#reWN=>{HF&3J~V=s5q@CnA4rZ{{au3|*pYpI;0 zU*5+-R!$)Mcsv@xv=e3meS!wY;jR+eIF9sWYqlEW@;wy!Of^zuuRU7!*$Ac%lILN7 zONt&IJX_o_mQWDy2OVL^PI<>t-k4K#zO!%`Z(cXP#W)wx^K(P~)uz}m(Ya~i85Bw_ zD8QM#!1HRT+qlRAA1zw;n0Oc6tP@V`fAq1($lF8Bu7JQ=3-DIj*(!umX}0V5_SF{1 zEPw%t&ae>r8ah^Wf*h7tZ>MJpcwXIzE64fa!fVkzAaqUC9$QPc?ZG(&I2=r2+$uOv z;wy@BvY9V(!(dKA&>WgdXr32Cq2|5emG`iBRxn zDy=sa$YP!~L`Bd8k0&B~){vvdmBrldCA5*#jg-)eHHP2?`g{d*`OHVB0usE1u@vQ3 zaNeW;qEHGr!TkMwdT)h!EHN5%Vr9M(UG!-I8{S~t{oE;z*QovYMjl%6$WJA(srV`E zWN>)#Q`l^9h{Vb%CSy7}gvFSQcp|1e`r|n6sgwC#C_OR`A%+=u-5#e5#JKgfKklQS z*U9zs>|8(Zh(E5McYwI0&wR2c>}JR1nUxYdhHmKGXd30lCm*gE37;ehL(kz;xrcp+ zzcWPkolm}PHT-+ZC;MB~oreLjB{kZaSFMHR=ntI}Wv>3UYtE+8pd8yqe-(n*-P(D*Pu5R3CL#i>j zmo4YOCbxiizfxQV+x4)#w$)9ygBG^nh1hHZD~{#`kk>jo1^fdV(F7Vri4x*(rn?sl*htE()ed%9J573-F|e zLvPV_O~anw4X@gm9y_N>aJLKfM#sJi*ig>x)t>Ou2Pkh5>cfr>$btfwFCChfZSvQA z6&PHxx_Fi?FjYd2{VqF7HNV-ILtA>Q`WTKC$A}U4*ZM%6hc}gd7_n#Lg^YVUYMEjG9F_XMejzNMgN0Ysza$Ug({V>XFl=uN!r z@T^8oAP27{m8mv${5-mM^BF02Q~*Pz_&7K{Pf6svNY6NA9uI#bHgGmjjiq`VUwIUd z(Xk8VW@7QL_)JB~X^PxO1hb+(kH*ogD9_(eDW$=ODZBWfQ~(YL{5H?2P?SAh5^rpNy;@t)O8gw zP;%KrS56Ngb&Cz1#D;&07gUc`;J)_)er6#%RY8%OTAIk*5;cXirixI>EJLtM44pDb z%FK4c60rf%#4WhPLcOQm(T0dJ6bCK}FSVj14iThPs3(bB44_(zP%Q=gkZghUIC30` z6^52rjEgP|A)9OqjNBN%W{?VC&&jyXr&#Y?Y&586WS}}&t7P8m!@0*Cde)5Vyj2m5 z5(QZ$$O;8jH65m6AL%*CoNK{I9~+`4`CTg(bSslJAHRJ$bg9vRV+&ry9zcaUdEyZH z<{YVb_Ub@N@r`-DKpCMGP*#^1T4~dQC8B(jEq0lF^N@G}%>7ir>VYM2Msns1Ehs?d zjMxB7=)q2rJwkrLqQ<}|4EuJy)Ua&GKPDc$ulg!j2)XbtKc4c(t74u6>NJ z$@%IO&nf-sJNGFH&?!kQ_+0El8auU2t32@q3B%Atp|_zB(pP?Azm`XwWxs5I{z+Oh z-v;se3|7iRe?AWA3`ZUzpHp6RrDUKT7WJ?S;ipwDWS;8SKwv$+7*cA7Dm;Q6RdC@W3sGx*KbPl~ zYuV!+6f~1_t%dxBbN!>>g`F(^8=XrFljBjf$InbC3&@D*;oQC*3oLJo^L2hc#gZgt z_!$(ioBAuzs289kLPc~$LX&w5 z#Y0lrEjTKQbco9~l?U)zMm3Z?-dD7l`oH_kTDW^z02kyvXyMK z3xJt8FANo25s##eqG3i72Q7Q>*hJiIE&HuY5}~wX8SG?BC~m=oq7ey)yPStfa`E{% zU0&8-yzfQCZIW*Q`DK0LczaWLmy4^G=M|dqY;bY!VBd=_q3;uWr`pHrA;4o7xmk$V zO(lEFQb@$34UG13V3uQpSk)Zve#*wW<-hQAAam(+m#Jm%EKCemN)8-emP@Ob0*ANL zIgGXNF(VNAxLiq!FP7=L+Qjif%g#hVwpcH`+N5JyrlaR$XCZwY5&sB>!D+hjIcL%K zh`IqiYbV?JEpAqpqehsPFmuO>)N(Ol_pW~D!sjhygdE+oCT@mDUDxLJxUP*L&-@uO)ykCIgd(OK zyd8*((Bc`zH5m%z;9|lRE&Jw+xioq`oh-Z;_b6Weu}AUp*Ie=PY+?P(5qQ@&9PiqO zG0!=8*LD`(wGD-TIl}rCXA1Sf?9=1_-F^Bsn{fIyTl^XV@9GBk+_`=EMqg=v)jI@) zo5@ui^WUys_c(%n_9|qBd4RXU4c({b^xTdB!jbEm(I}DCb&z~`i?Tz#S&y?Az&Tg5 zpkCI}yB6IaMy~D)<2kxAFyU;tIwX01rI#I(=jZs8YLc9{xIQ$-6`kbyc9<5FQwmuw zU>RIoI~hl+&&JL%d^S30HeMftv(ZVj(cCi|uhVQiL{|bR_pN1P?WUqe|P#$n>OXn|7hAyn=+clSMyqvQ6fH#cWmHy zY^^;PZoG8-(g(o3mfxzyQ&>w+TJp2*-{yuKef^MAK^W};x-OgEq0gVA%PTL$1B{<_ zit@q^pWtan!8b<_zdXGbCq=ha_|1hJ{`>U6+zs6R`NB9ci^KoIDh;PII13pO*;I!DGff}Gywjrw24Cf zqLkC-!TO6nM9;$p_P=r{TD4Grw*DZ^qAyX_9Gynm{qDRRLPs)74t-gK zF`r>~Sb|o??3lXc+EW^5Z`gJpYf5+m!kGBF8=w~_qkBJN8ODfCVeH?!^SyUFed zw^%bvOk^_cXlt>abef145uSIm2-<&b5vw}y4%~K^Sao>fZFdLVY!~Zvv?&vfp7d7X zd9muq9e3Y`KEplfo1tclo9%^uBZHk0ESEx=4N#wUUguSsFg~1OGz9X;&q*;E0_TpO zk3VNw*B$#o3w7r%&XYD64Mxre34e$z9O7oynn@-&#IzdSvh_ZAjHN=_z3|Y02A9sx z<>x!vgy+%R`~41glP|gJ9O0fz^8M1JGi}hS5A7_ho7(5}XkDrDuoQXff z7fyldjO|k7lUymioo?|^VwRhiQj!uJ%dD|0OomXat;PBQJfPrTwsyditE(k9FgVnj z+hUEttCc>yeT9jH%lX`e96I!~13v=*&-XL2NMf74Y^REbsXXRj=$(8Xm*2x+^Y}mv zecJ6~ZDN6)%WPe4qge=~ z3+v%GbfD8`ZuL2!nYJ6EBcO?`r~j7}FV>lP3H10#aF7&<*ei}kH0?;xbfig&wArJn zmVQh3Di4U{lZWK_&`+WtPpLBie+%0ELh0_?d~Eo6$Z+|cyN@h9vqG%;#L($ierxE2 z6IZjDl7rv)7?j4qoCv8S2n&Q&&8|Q(y35SRKWAXzfV3WXsrLaI#H{LMRDWL|rZf!5 z4!=>n=fSulPekYyT|enDSOa<<=s>4Dxl0WrcK#jVNT6dnyRc{Q9 ze*%SoLd_<^oEkr0AL<(^SRyc0{U#0GPNCpyL<%v0*OI zw3~e_^LRd-_qCmxb>>79$0-cT#+^y>81&0IS1sPuv;mio`XyAgIv!hi~FGZ?)>cC<={dKImuAtuBGVsKao`7s22|=PmT%4Z>pxwk@gy1*yAS zbvsl)?`>+I{t$1^J8?VjgwAjIWLJ({ZkJ@qru*S@c`+_GOi|6QpirE>WP-`CD%BB= zq7M|M6bOfLu}5OoHRz`ZuU#-uFf}$r%l_hLc-0}3^IM_%Rocp$*&e(de-3ZQ6Q6#a z{Amn&6sAuh%@{0#O2@%BeyN^?5}EkRjU-gC4&_Y;2F5>V*>^+3sDl{N%t2S8;?YTM zVhnog{=0am2Pm_QD9VWqiRaa_3le>gr8xHCSLAzc)GyA7SP!iL-Z>KnKUv4Ty@{E|8SWkOwekv(XU0TebdTf{8m6MvGQ>Kkh-oXq}G9vh^Le ziE_H&xfQ;&Sf7CuY_-Mul$$TK7VGo+Qv+U}OLvBG@%#o$wpfg&Ug<3J7nfqiK1*&q z(FlqDcp?&3^eisE~*oT47* z^LfwJ{bTIavVT7kr|NZ5i2|xyF0maRM_9{#bR@^iu~O*Pydt{anuWJc1mJR zwa)L|-jQ=ro)gkc%U`AzZ@Qt!AB4odc0pJZ6ls-D$_UO&{i$WOMaAJPsKu#64IQq@&A8w~4=R20j=#y8$b z8{ZRQN=($1fvG_(G)SHDb9zZtKZ4ZQmr3Q-i9g3UNEwMrx1JvBoD-*GNXS2sSX3>d zZU)Z?oiGNoh-gY|o5WhQ?8`>-YvoyZSEp00yYh;9eDFr!m_fWozWS}124x2z+b7UW z$9efM6!arsn+^B(ytG`(=_!j z=?Mr7QHyS&mjO`ESCAe%RM(Uc36g<(wuC$GW}h znIx!1hxOI_f~nGj*=M^=y3{NV>%ov>sM{N`RPPFAsJm_^zGHftj)r_*V9jNg!&GB;w@~;whPExgSts0brCf7Y-mR_k5+z()2U@& zGy?JTcPf$GCpzdNYzqU2G=Fn0d)eSl<=?XLaSY2 zO%rMKV52LsQ4GnfW#2iRF26GX@-{^>t8e4B183)UvRr%zK{mT7nP-%g5odmm#mC#> zCpHLG3h7oRd*0b7>uj<~&ixCbNsM2wva!#o>}Q|#E<5^1$~wZu*1{>KL|o<{JC9t8 zj)s8bw0`?nFKfEFsqc3mtkd-Ae?H-*&E8PAU3dV)hE;flyCW6CoUpg58>K3X z?a@0ixu<-WHHt^c;ID)%qt6UyjEG$d9qjZKMEtDP8;Pa{#`~O^&7+~G52AvVaDh>{ zK(tF$5en>kf%qK!Tj$l<;3o|K+Tq`U3i#6*eAgQ~u!`4W2@HdCVc-+p7sOG<+P)i0KebL z(@x+c*AJDa9g(LUhy17Dn;rjE$mO=$^0fGOddGALe@~mgYrL$9&!Cqb`Sy=-J<+W? zJYfEOY!}Yhq8acvchN;s!On%5lNE~{wo2iCRO;3zPk2Bu;e-`kVM70fSEIX;=LEZ{ zRIvL@od8&Xq|ewXu}G3W1-t<~-aiB3@laJcz{6{9(+(!SHwpD=6*BanrAe|4-`v9b zQWGR$4233PeOj%p>099*)3?GZLsP|SA2SK{lWdS_QkqXTRKNkpT`Q$Eu{11wj)75m z3l+COetfUT_X@WR3GsIrFSU=H+-1 zY(HL4eY_rM0xOD-H|aYxcJ;udOzzt9flY$llBKT$v8zb{yv=XL1%c_5C}gGgEDoW% zmal?NSR}u`z+_l-X0(wOSiC)44#EXqDi8CNm9%myA$_%AcV|6^9|*^3IeFJ%Vi*(K z`Kt1^W6A+c=?wlIt3<>X@*}Z~c)z?M)gE7K!;{v7kR?*v@kRFyExOD}ip2=k*#T{& zPR!G@{&0Cge{-s{3@9w<+wTJCcR}BN(=zSVZzzrzWqj54>i_Rx-A0R0mWS&HmL`7d zltNJ&LsvuyoC!$FVcts3XW3wv_ZKw9DbhS3La|J)KZwLgxL^R)f%PAds-il4=L6v8 z;D>Vj;NtKtheQ`97Gh#9q!dC*E~eN8dq!69A6TOf-Z((dN`|KqyNdlnaCQbdfEEOVKED1Fq;u_|@ zl$YlfIUPc%4lfc;NoI|?Pgs1;PT~H)B7@~VVZ)aYDh!5}pRgN*>c{wFhB0s^e9pj) zvCwON$IIT++H1l~R;&zEtuV}8_{#%9IO~nSWH#z;qd)L`cv9yYh>sXZn${BAre$YA zGV`6Vb5#Vdc`H<;eo1Eh6J0*GiOo1+_p)tn=7*2(;+~ujU*cl#f^4YtYt(aTj$Vo! zNjSQR==G{xH%s>x{2)3H3!%T05>JG^F9M5U-o@Oz`4B05fqOR&ap5XAn{5$8pXLVK z9>*>ZbaI@?HcRF<=H6nFoZSmXzyoZ!-3y065qq(Fi#?bIPZ{u(5kNt2nq!AJiy$Jj*U$C4UFdKqFISn9PA__ydb;LK9Dnq)!Zc&jfdL)1PYIMIzcFy5n!O$I!(TGc6{ehll8H?ho*Mwtv~`|H3-9H>q}ky~c#C_G?y zICiNkb=zq;YFIxh!kRkxU9FKnoH2wjoKntRDkh=`N*$yi&^Ik}0-6{q< zltP;|M;Ai!b{x1>Vx6(sEORR4P}BI~dCEp4gUX~T^^%#`DF^QqX3vvYyZR|V%>k?0 z)Ka$O6shffjP+!)%v8t=y$_SR&K7lsi;OC=mt-MJ-`qzE$Its1Llr7fUqyv0Yx77G zdSwWl2XlVtaubH^U&z}V*kbhqAh10+HKnR3EYc+aR1eFn8_7YMp`sRaD03;iYYB|x zuy^dkc;ZkG32rie3;#B6d`I z6l)VaXj}BkTD9yy0L-<__aGH!c7NhD_7ij+=-4rza_KKJPicO3(92Yy?UUIH2}6)!-a!L( zF`tiF?}pDCT?QVU``}dtJL@*1Zp-e?UPt@n2iFitV`HEm4`hrrz(Ywc#`0(+VFMR6 z?B3yZ9H0E)8pZ0Q{)tQ`|gXh-=MA z+Ids$Mnn8LG!R8)dOcK4WR9)`4>kRr*YpppX#q$DJvJarL8BmfPgDNItt!7^9S-HMRK%=<05X*PZTW&06+gz5235 z^+^;3+gJ{5DB}a;P#SH00)Lz>C~rR-o`$taM|Xw}TECV4hSx!G?1Fu*c)ETR&&SN% z4TW7oQUcAqn2wMc#n0l3bp+Md5$s6pyUcoQ1j(E(gilRBbw8L-vJcz?i`*oHz-S{8 z^^gW|6NHs2-CT9k1vS6i-BYt( z?cIrLlj7b;7@b94qTdTL>n#pkYj2xLl{%Q(fNXut>TD5wEz;c9jW)XGErCqxBUf`B zY3pV9cI;}3Y;z$z2QTK?#%Gi4c!zphJZA>x+`)4iFsC)ts>Om5i%H6*Uko>4Jd{@W z@hVdafuL|A{q{9vY0*9wKUfAxuoB3jKOCd;l6^_q>Dm*JrO^pzA+2+k0q8l6-D1HBVE1eI_l6> z{M`)g6>8bPPt!#=p%Xd5osc~jKC7Qj!$~`D@K{q~2gmHN;BJBZ@#op}jO&DSA9_T` z9dOWAx4;-yOKiH0%vOo&UC*Q;ED}*O*BS#;SR~I}VhUQjBH>_~u<>B}0*hvfU5+>8 zl|_c2K*elK9I{h|?C0=T^>d0~tOe)_T{FZ|;WsB_1Dp}m+YoBWi@2w6`u*e_FFTAk zZ)xhZ8-Nv(*oaFm0cgy%j=ThCX&gzrioDK``I#5nV9@|_Xkq2z=NO*kE)dYR0`%2P2yh>6YB2^;w8Nh_t zU)VtP`|G(@45?s+-kC#}inYExn||%$3f-2Ejyv*0x8-7Z`va2fQGJR>g)~?!o=!=b z`58Pzo1SjGhoKuR*>gble5Sq&tyHeC<6Vp3@#N#p&g_0@ATopAA^N~4!@vU*n6qG+ zEi~5-eOm}Q9W~m@vB*vR^>&PbPade=SKpg!FgUvdX`P|TL+rS6vRK)Wh-v~bT028? zhn(zn^R3TaVy`04SX_lO114C#UDL?$jp|5;ItF8d#nhm>=z3cJ7DqT{Mln3c-It9~ z3{<1*ZO(|BMA?5J!Ez@LqQ%qBR+Nv4KZ`naZ}JK_Zc`b1N?x8 ztyKQiVT#ll~cyR^(9q+EaHSa1?EJVtmk51_e#n8V@ z!8H6*1XTpB&F;J+68`4m=lRf`Rx_`04yH;z`8M+BI8S0Vvq*}J78$p#cFVUt1+Con z9Q<47uD$J5pZuo=j0qzDDNH}h@$T@(yd`e=Pwhw`T2NVGZU^?;D|WRQ10!J^K^tmq zRqHpUg|Hh1^K14k$p?OH(Wuxxe#m?q4)@HO@KUS0_Wanuc)mb|yEZRHVhXmVKJQPo z>@K=BZ&o0K2z==G=tAQp3JaA3X08B#@kgW;+G*((ZW#Mw4Q$J$w8VT)?lYecB+uss zFrOFVe4ZD(7w7YK9P-eb@X{1$?);dLn9$qdJ#RvMM%yR<$1^&6-+wrx&(Mq_JXfBI zJ=y-l%@#2*k zVqIjMF?_&kNi{(oqEu^_G_MrfFK`LM3www6Dg-fKKM=#N)Y`q;Bq`SDDJbO-qwZ*>63+d<>(74K`qa-dsvpM?l{Gi-$%|(N^MecsXaKP^1d8Hz$$8uF^d@5 zta;?DSgxp)8b#TNY?|h>a}Lo}TTJf;s7b{5DmGDT@;Ez|zf8>|zida?V7r0;S-a<9 zyDs6aJ$>7*khAb1WH9w@{Ka04_u;FW#T>8a%bT&LPm;=1cjBp!mKTx(a4^Ji9tRC=u`m>Fs{ z$@J1ZF~_LWjFw(E1JlET1I@rsC~Ow%O6vs0`yNLr&;3)h-3SJRKg@x9LO zV@D7gHT!}YYNMMILNqTe;BkFN8Mx&Xo0@~y_AY}|u-&ap7@)p28@2y|1(`^8odeVw zy1JZb4;78X$mPgfJ16EWNP)DRnAtV9E95i;Q)<2nnB)S|6(Ta)Cx))ne=P6b-5i$G zO$TxC&`q%+EvcV{z_v$Cs;6%!50v$EaJh_OhRIUk@C) zY;}i*d~;~SJc{U2y&L(O(9#@3@J#jIvIN^Rq10eVZ;Ad1uPdtNqbcZy`Q*O8`VrEd z7~`30G=%1s!@tpn=yXie;HexeW5MqUN$0 zhFAvnawlDL1SaG0wa!*MS*&goYMw^%8^Bl#(R94dr=tc1*Q_jGpZvSxo4fiaF)^3- zq4c^X_F;c(3eW+)#qR~a0}(=~CgZ;1dvgFCe%@2Xj0u(Hm@wS!LyhPXq<(TKpoCB#sVLY~5$fi60k5Ti7lj-z*mlATNU;Vp_HI${j60WOTxU#y52+30;Gw5&7J4`Iw5lDx3cRlCpym?AGMfu|Xa(&n-mMv1X` zbhr^=V-oE_yQ}EloPbp;%a0Yv%kpFAYltBs%0n9xf7CZ6{sJ4*Iwa>;Bi0G^@M&^s zMGYX{rKGM}mSgIJd4qZ|PwGt>)%>dxm~(PGA>ZEky~Qq!GK+q-peaf3x4W)PO!Pgg za%ql%_dPE(IbVyNjh)v-dt#7T?pjm)MKi(@9HiD?nP~8#@jbU3C|mRiZ+S)7cACW* z1}|$9L&vn`XLy;*hH@un5b86es)L3~QfhCjX+tMkwY`8jm^zdqYAyhz7?Pk%=im$W z$;&ErNV;nW#9uUM#{~;l(!ye`Bzk36PIX&wh&rgJlV6k&-)~B~cdQe|k_o|~T}GQw za}D5Ui#R$}S7MH;u!i}^=VbAEfgAztMgsxpc}Jwr=N48c!Jyh1fvB$fDt z>SytHhER>xYbEmnca{7iaAV0`fpH~)Kwin>z>t#rgqnk>#4MJe=5+Ku{*1?yXd8dV z&P3lN@+#(37TpybC~09y7IPYKBZ*lX$c#oTiT;}BM=iyulE^==CqF6mzen=h*mlT? zx1F&Hc)%gWW=m{ZPMxX55j?ZW3-w}YMW{Ot_9cD5zSoSay*m#0>yiLJp(FwL zVNL@4_ypjg2!Q?_A{E^L{FnI?fd3i(G%v6O{{A9R0e|lbTmgRrfqeM8IB-SiLH{P=X-j?;l| zGD6*sAQZjN#HYlPJS7Ok%lOxEiLZ%S$*TydvntRq>@1=F-%gCwzdy-BSRX(-#J91e zYyA?}YqP}lV#%$mt`Vx=zF*c10~a> zP>YEz949Gv<`*n1_bLBG8dz|&t1%-8Z16TWYknmcFI5YVpnHWfp4P%e=V;`B-a5=%{7_-54ibh`f0dn;kfyP zC4rkW6SyhGaTBjB92#QiIKoZ0a!)QcF*bppY0AVg6=V=Kj8L?p0Q>V*97P9IxKZB= za1?n)al?L;LUFcHtcmo8t%~@z_y#J|V1^`|9f9J*<%Jc_ZGn`E&@nM+7V5vRkORxd z64u^1&ZjKQFSxT@(y{g%#M&%Bst9Zn>)w+9kq&>u(UuZ>(6$i2-6r%#+o3wzCTe&W zbG`IU9B==WiM;aUd@)pPSUxNncL(+~Sow{Pxjta%9b47W&6*ZhuPXAgJK=Ys)LXp@ z_A(Kr8{vt@ zSjsDSl-%W$y^<)@8>)8&a)4Pf?o?w#Bqe*RXf!nNP>jD=)dnq~} zThfh!2iu{Pj zA$c-1)$iT-jl9`%L{GeWLUH2KGjLF1-u|wRVd2n$W1(=SEEdIv2hXZpD&8KjIl}Ne zF_;1C!I-etRhG`OqTZi0w;iu_pNs4M{!5SnsS@JPdGB$eIqZmh9tSqtL7Rd54qohSJy|l~XvILKa!uqhgZirp1 zJia7oao33^FRS8)Y12%Yh*BG1d+UtAi))Q_Cb6#7O^@!nFmStH*OiH*C&J!xX1pJ$ zEi;{ZpuR>iNheEn#*#6?OgP@SpmCh|I^$?>$$5)&q>bl7Q|HEc1Y2ls;nC(YaUp7b zK@*iFS%%5U!YTS!F!M}~8rPZcY~QOy-cdtu7i!QmC5 zrKPtA1~|g_@NaPC7hnAUG_I8XXSfoc^Z#{Rq4RM_oe0#sxnG2-j{P*kjOc?fnTRkA z3n?yGS!pkGSva9GVC8g0w4`!7)Norq7C{C1yr-3-waBq)aYX*ZD}f?4sr}moWx&Q8vrRDiJaK zHDRCN4(pXp&aIo)E!Nsw%E~$JO`e6={wPPGU4TM6C3(7}pL2WpfyhPbjmVlzlana0 zP(Qz0HU3M}^xGrA-iv+c-U#oePKbfZ=|!P~ zN8tnFg!=g>sFl|hv;fNQ$34?sx6Okps$0BHEtrNX7WaRyX|Ysz@MBy=TwSSa5w(|< z8&FGevQ$}I2#snuS(Bw^W1&{2Q&tzU&JxZn7w+h+^Z)TYelR*Qk1rL_JYMwwfAhHM zVDEV}o<5J0KGWwh^V6hx9EJ1PfXpwS%!*=T01o$M(kXhAjsIpg`|xqE^8>&!$#`8Z z=jDJ{JU5#(XUC15z&cZ(f@lQU?bl`l)zSzju zX~Kq)m2PYZPMClh(s078vEAqrCloUVE~LN1;I9eweLo1+NORGUA|;m1Cg#J>K%stO zeg!;O>!#+{4s4$2GWNqM>NLF<87wOjL*0OKQa4`8uVT|n&`BtgD&&)gBcD7XbUaS= z3s0l^XX7@U4&3S=F5}#)cWyh*m+F-8ycGZXM9)`s=LCa6rdi-BM?bs|bi+59!uLFwOiTv}#1DXc?I2Ui1prsMRsHK}FY3}=gEzJ|5E9)jgSA6jdX?g~a zqphZE<=9H6AuvW_6K%r!!DtTv+qp8?2pg28T&y~Pl2B-A3p)Q-t~0uw+m~+_Swx=L zA1B^>-+>*~y8c^Z{MhWOTsnjNQQpnO@|y6<+a-3d>+Hs#ElnTXx;KNJb>ZBNk4vZ(Jz))ufz+g7U#0^;NN0DBXRM$FvW17LwWIZ z$)|Yp(QUGBQJbp{L$6!8r+mcmHB~ zuenoe@v<9!C9z4=MK=I?K!v|{(Z{-|i_Jdh;$&s` zWf=2w@h0qMs$|T8zdq__s@~1ZW0^i@7j#q5VrIAT@}JrlqxE~pA4_!E-ab*gdf6-c z)6oQ_U~^YvY9PPPR2{ChqzTn1=%q{W)<7zJ3H~dVfu?klY)O+sjj&El-jHfrbiQ|k zc8dO6iEg1-yEk-1^E-BWHyF49bd|qmXQ0g+3fqKgMi(tqeRWUuOR7Js%}Wae_18P3 zh-#-?fuHM1*YF(E_1B3#Ib3?uIG*DY{q?*=hI90k!90VVzX~-a6zCMjW8N$|$liB> zrz?^gNCQ^BHVd-E4#W6z7YvmE+2v_4%hOTV3ttCh9$x_ z^oPD6wKfatiG9nB5Bo#q9^qc-3WHb|^)SGf4}#h1vb@BeRzAvLi0(kA_cdLC0ixnM z73vWb)6#4LukY2wl5Z_p^T1{b3;vAtx# z;sGwuO^FNCxTV$-1NI=iGuMoCUrO4qL4 zAGjDsL|VO~;Axh$Hu&IXoz=Sn7Z+s(3e?4;5-{+MME~2ax?-RvP~O}?L04;iWF~;SJc!WZ0xfV^5GK4LS>TRcnE4S5Z;Gt~QNK^!X_``MJ6_*@B}hm**83 ze6kZY5P|ZAo+Ay!xbxN&It?2g;V3!~WG5;7?yAriM)7UD^oJ@eL7_$qOok^@z$H45 zE^>uFH>tCzsgY5 zGiVKb0&Ado!$}Q;dW5!{Dnchg!qFS~=e@%H*W%~-1Cl>S=*q7G3*(h+LnnRh zSeOZ4$KW97E_Opj8t=&c=x$UI(=ZFQ9wBvu4gZRN|IQHqzTki&EuypoJ!xAvRAlHm zH}|BjkLO(9llFW(?fIUxhc}cD)Js2OWXY$mdcxoH-8Stct2ZV_cAaFgj4Yt>8!FTf1&T))csj*v1d1oVfe0zS zjTq@>n}Gmw)LWZ`dRxSTEz!p~)_f?07V@Y4!u=t{5RQBudd3~mI|yx3beLdV14T;H zv2#m7Yt)P1D+cJ_U5W32AL1fP8{Lz(HJ+B!lhzPVv-G6>F`m|GNTjW9;J5{;A0$#? zO&})dxf_$xZ%Ru4Yf}0IoMVn>@MU$xVAYIyI=gX8`i#H5il2tHj+1#YvUV=02>P1gd5h^xM4Np zhV>C_SY3gi{riHnVf`oBnv=Z*Bs>J%c=Jt7{p!rmJ?7ZQjwtsS@j~kYFEdn~M5W}# z>7=z|Su(0ImLFPTGp-x}yw(vvu3<+wmaW$N4e_igLjCY1qdsO$Kc=f6`mzZ1FZ1a% znMQ_ zaA;x;e0nBUPAYF+wiDxQa2q|cY#7g7Tw!Z&3jDAFwawhSVN z{z1MWZbnNn-8R?907l0gZHS&@q=G$wlUG#8sd%%D!Ddn@PSYX$D&S*afKVTSQC57* zEq1*u($wP4!@UMWHrb;rhbAZbwvT>&>;oU$=@IHpe&uQt@L7ZX$_*x9$dG(_6e(9J zecK~UY*i-ZLW0O5K)nhgL8}MQvrYGP5gKnbp`Q2{#M!gdN6$>u((Va*mfrK1HN4~^6p1YGrOUsu+8%YWp z97MY6TT}u48+J!g4^n)KVjL^u9ak6)74Blk!n1_+>0+0As>v7tF7tl8imJ;n3hN`W zK|*~xuH1Yz#b+?+RX3T0dX=4oqL*ROfj?SwATPRQa-wK6Mg=P94q9ry3RWk0@E)?v zTKe+bJ+V*ud?A*b9pNUJue9WO0}cmf$*p*C+T6m#HrjD=6VsONscF+u=A9;e?!1Pi zxqB}=0ph<7>3{C-qq%EKp1Xd|!HHu)+~(~tZy?aqfH&Si^vn1hN;TXa$3DJV`Fu{> z(RV(xePq>%8aQ9#g6)VtL6La*l%6*Sa#eVWuUt4xv@`kUUSpFC3CNc$8gnGG6opdVB?TLY8H zSO%UJW=qU^*FhtEXai~>0rxQ~61xbMVSITmG~+F-ATRQ0tDsCZx>-aWFo}Em6zWkQ zW*fJ5jZ@N}l4Ioh(23GvM;p46XNU0aaVQd-A?jZTCuVZhAf&OeU!pDF7gDh=Z%*KV zSDB@Gg_k~-%pXY3-HRvt*eUPMZvyiW5_4elH+q%DnwM?!3ZA19d=p+eC7Dl3xRK1+ zjynTJ(pm}|*?w=q$FbB&%IM3z?5O07EqaY)*e!h}WB|ljJ>Djo5TD+s#w7Nh7yT*? z*v>bclXx}mITm}pKYjq^ug9f=V`RP1lFGi9BHx%L=VnQmcoLOO&gyYFxM7=t+pTNO zlJjWrU;Xa>J^L)y3zY)fH%zZ1P0J2$<6+fw*M+f9dwIOZxQghF2WB5vJ8O*^al!S= z$FL*pn0nFW6yT8WZbJ2ybb)0f-*i>T+IgX-%wpuALSeht84iByWf96cm;&s%Z0G{L zI)&o@bz6g(K3THCX7EGwdjlmIgEll%{el?NJ8ig0hn84uLd{0HQ;Pu7J&GK8%;uB5 zHu7@l+#LM2sz@;y!fcs6a9>r?!|)imv#RJ3{JpWNXf^)&tBM}Q-z%$%9>d>@tBM}S z-`uLAS55GnRaNvF{IWek*G5$Lja{}8H7R2kZ$#O6EPo@0!HAu^5#^7uvo==I<<~|u zvWR7D43W0##`{rQb-JC{YA*|G*+;iP!ZLfz&Lj(tloCJLf;`rpw&-B;p7moqU0w|&i24ybn3dhH4$mof!$Ry#~m@kNb#yO6W*?bH}%{B)D?56$PgSX zDcN`MoTc!i8c$LbstTTTEhc?UK}E}Kn0;Wg^_5Pe0q-5{%?ABKN&PI1`)+cCtBxUB zqKziO0o`-tV8ndg6F@oJ>jA8ug#CNGmGhS4H*oi{wxC0rE0sv*R^4H2UXR1rp`i^p ze*+iULmN=D!w^V?U7HMP6i-gGCm+p|5BL=SySf_zbT4oKT@L8(1v*H-7{lVpo_A$W zhdL7_04sozP3JT>^iKKgCiDx1>nQH~MO|D*fm#FkuNLxv$X7! z%{Ys#Y`2zO*8-onU~D}Dy3^UW$^6rQ8%H;~eXeuOZ7% z?!~!yVw^)hlRCKRm^bt@gSW+q(7+8I4uNNRL(MkV*sm(D8W|K^)nB>Rk8}xZHc47b z>~gP`iVSaRU23ga(wc;~E{9~;gKNp-L10jy@9@!8-4z%PwFK9>Do^DGQsD1^;2$y5 zfaWsI5QA(xTw}ZHQZbMMMtCX74OmJB1XH1GU25zwCPyeRLsuZxE1!*>^J zjurB0;X0x6*o}ejDvyl}j;n4A4#!qugPv-vEFKxO!Z2e49J?S92GYD!joGzU>_JMi z`9|m^bQ)uKViy7vAXCr=eHdRdAW#ed8G{-5XzEghw_4TTUDq>IttEN1JSF;bJY4YF z4Lmh^HYDKyEZ)%h2JHP$?p!w}?vvxz+~@e%W(l_a@s3^S*V%it(+6)COObx?WK?lrd&WYmi?;%BR;DYjn|g;MC{2MuHMB3jUbEyS=bhcU?abP^w8n1n@V zs4alx%FSoUIqL6V>9Z5jOEIKb6kTd7BYyLxF%gt=x1&vcfOz9er+48s@QBg)1B14@ zimnWrCH5_>Qc03m0Ds~qM3LBPNKYbg^T+k{`vZn&JY@`?!8|S$>W}!#_eO(k{q6U- zBx82~wJ3u2$tvrmNjwZRdav^rsq@n5*oI%#8`IGXWDF=UWM?}h)+iNU0sE)ovY~QV zaZ&I)IddY_Nwvw@rSPJjmsG{jbiM=3VJ!*G@SA%3M0RLW@%U)~&;Ys(k<1h*3b?u_A~72I0R2TWuPQm9bY26twX-VE~tM`<0sBPrJ+4kUmwb+pRWormPr@e z?q|(n-5IgG%H!kdLIyq9Gww!Q3yVeL48fybE$lOg#X5WSu3!g@o#gN8I|JgK4BX{o z-C|uzbvSUd6xxQ)gP`C=!K3g{GCpu=+`*;#=z#cnI&hvJ?-$-fli?REoaqZnUim7F zXsaHCd_ME{vA^Mf+&lu~Hb{#hI>B>f0EcTi`N|7$j(S#)@;x#_dMtCtF7-qz(P^Zv z&Sa*{NGco0(CI|0dN)?7tU|Xr2;?uZ0a}dFCOb?t32Iqq|QMz5g+u!!}swInXgVq@=5p z2KSl%A3I-j031d~nKk=3Z?}VPkFC>p8PO{o9^V{JVnJ@Ok*~K7Y4;XMnMi^k;lXFQ z^Ef~2ggib}vWiKe7`fpFX29%qHV3}(I>J8L0ZfaQUDHUFckM(*Cq>km8@rFCp}D)? z(F%FJyW1eI-?;;5w{ufq9rU!8gD|s^8Q`4O8*5+6>7C7aA5^-BI>Ig7i4^1OAZ@3!eCC4 z2Q{5cB*yv25&vwb_$%sU3t#d7yoUciaxMRLT+e^sKB|}HwBOMdo&7iTL!{S}xe&Sp zW9SqjMr7}SMai7giO%mv4Bd?!=axW*dM!pNl1E6?`yQJ|$a)g^619k;>1H1L266Vh z=r_1YH zPQCCn->d4f{9b-ltJ?x+NTKl`qLVIIeKqS7kb_zm^IGQ*(id0ROimN9o)Z`L_Ro5I zK6ciXqkHMw`Zf?AgNnzX)d}C26sQyVCX~kvs~xI736t?U9*N}~^%od4QV;szV{N{I zNLii5Ce|9gAzr+LeUMP7ZmPAQjhqI)}_x*UaBSVVfKvpG|8GNqIb#^76cZmVLqNxFxb~ zE&H2|+@+JGWq-Jl2MVdtf*GL`8XcfU|Bi=yws7A_;$vv)^K>3U%gb)a_p*hBcujKC z&9mvOG4wN|p})J5LNV^a3WKsVov)wkBv#pA=FgW<_#QX%Ju~uhxsZ-rT0i`T!Eibe zF1#5QM)sjC7?E*{$TmX(pCkJ>p8`QTc$IheW+?3^H^Xo&n&V}S1hUvabfL~R&gYFX z5dOsPSaMPRp&yRb%X@-0C1Nva**iDrC~8ec(K9UuI88}L^_i0x%Q#~L9r!32iGrk^ z_b4R6+1ICJUM!#o*PU))0-b4r0xj${w}-mNEI6WwUxm7}7N<0zb!$^q#Eln?XOPb7 zKv9?wZW5V0Vrkmi=l*5!d7P;mASu>iTj3yYfw|9T9>TNnUF&sS;4*$&qh&X)r;C?mr)cbn^8eOPaOrC&d;1AqH=6teFK9FV zzxWBZkN#0V!RxN;<0tr=dP9<*;A5{DPWKc1#sJtzj~>^w9zVew25>*Y2YG6epWtWf z4M~22Z+Z1(FF(Qd(Mf)S?W2?Z1P@$q=-*H9ZLP+>eu59ZW=Qx6p3rLiNk75sM(cip zN3_#vk(&yl(V==_hzA?AIHHa~HaA3?j$8Zw|tkY`Ux9Gw}S^5;=~TqC4ds z(O@t%oM$p55G}dB7qPw(yuPP-eZRx{)}8#(`nJ{gsgHaMUS-J~gsAedy z=C4@IM?akAyV#Ue%aqp)y?r2mWrupKyq>*ws%HV#^Tg@(Y+T<{PuHu4etaOWwd+2R zCqfk)Qh2S*jxj8M=fjcqX0`=F@!K?*u zs&QM5$HJyN>PufX7*4-5EKk0FV8>xB<8cHensneG&fs%$4m_)`9M>pPJ@R*W3-iIN zWQAQYrPq`s;mQE4;VfRmv4I4cF8ERJIL?7Gum^J=el;%4)Yr{H$hct`FT0bM-Gybx z=w)HDu75SYVB$Wi^FPFl)=NGz>OQJpYBDB#RF91NsOIM@-p}f`;Ki_iPTglb%~7@a zWka%~>aF{X+);JXSt$X#LSig<$j9HpVqN_@Ilj0tFV8vR&b@HV|D`nd1oY?jz1U7h zHy#X4u^CJp!aem4g>7vz|8`6rIEA|pwrJ$m*E%*{h@2s>p^3~K5zqZ0Iit2_;(I8s z+n_bY9^@UVFw>2GF6XPbmVII^i$h?RdE-B$Zls_smc+a^wGL|RteQIn19hPYt_)D$ zESK5&u=`if*CTQ(QmvM~aUI?X?KJmKaCE^SrMcSy@4_Eo!x0o!M7mQXWq6y!N&x@d z`}0XJ3x%a=mA?H&l~Ih}-t69ARK>Q}bOp}fMn}ht8@_|RB$lz^d;GC(=t8k>_R_y2 zqAi@|Rl`y6fR>tsk8%uqjp z9ZB5=HU87cvwRMJ5>XA4WSRQ_WD3V$CoZ`(^=Bv=4&^!dVyilVZbKLBrJk%aCesy) zH*w2H#?#|Xe0PkPpe)V0V84;#O$?-X6BuAIFDc@LG&h1V1|`LM7Lo}CkVHH0;(sLF z(XbJP`;9yn#nBIqy<$)&C9|B_-@_VOST4a?OR+}x z&_N4D+Jx2_ZM;XV(4#SU0(QYEt{gpu`zWxWfyCIL_bly}?qI2-U>NDTQ8&Ve@ zA)QWLE#>q~?=7 zU--?cB+owTW1sruU)KASaba)dhm=XI`e1mB#W0DvJMj+iZ7tjUS04NjdMtZhP>1}T zJNBRD!RWKQeDaEy;NPz#c9c!akZ1nQ>pUrhE~Nl0O>FjW2@Mt;-k9q2S1hL0E?Oyl_&R z#MaP2O6z<_#&<<5fpY;QN3N_qc%s%L@URVaDW$dW5o#4`J@#0>YR<#H!O^y&c!;!O z5X=%y|GP$1_%AiZ%ziGi!1mS6>9kJ^)hN4U{ud<0b0(g*+<9(9>LN*5Y{Z8`58Kh= z&daxwYaQMG?@AQJ?*-gQcVVt4Nc&>NOKf|A|BF&( zc(FYDx5Yr1h5K=Ptz4exN(;KN8c`|Dq^i)djmx8y8ht2gAz2jgxji*vkk1g*U|etm zAeYvJh!2&brj7Iag%c&_`G(E>TXe`tjqtc8ymE|Ga1?l@!GAuf)mg688Yi)bKINFQ z0{~T8>jq4j+vs(Mmmh$IBAPp(I(N~`N4RoRc|xVwqa6|K9#~=imyQTo81)Yx&q2Xc z>na`^6jjWns&|kCB#wMH&2I9r%~H*-m8F18NBykP&)yS5pI_yT98Z~|497KO@S8sp z>nw$$76CNgLkrK`>ea%~xxH6<3BQ(q3;-~H5WN|;x;iAdWq;~HdaViiOe2Bi$g!u= z*E!w-qo7!6TK4QeV?=^qRjzo%5FJG+lX*(f>_?)5aQjTQb-AXY9F75MA&#ry0Fbk@ zH|XT7I?pu(?J;*zNXkZ$MLCVl4B)j2Yye)fN*Yy`$Yj_Gd@RtOkIY!AJkjQJZd!Pc zgi6d3OjTZ83UD+fX~6;7L|d~tQ_`CF?YdH(chwM#=+&`c50`uq%`WI54KNZRZ~>*3 zee{p~)*3BcjT0@-rUe32z2LVoIC|arCm3HU=~F#KoyM6udnFeU;_$re2H4i_)J23h z;n}wz7>r&ShrwA5{|*N8cm5|Z5JLAOGZ}}&B|?1)YS~qUy3>O8&_tVw;+Iv(s5@n< zK#@?B34wB@4wTJFK#_E)NIOpuRLuLh;6=;+@DKfhrWQd{{>OemV_xx7py|gJs$o9D zCu2n%KF8N5;4>!VLB}rjqGF(LD!|R_=z_nFIH=c90lbFCeUojH%sahotGl3C z%U<|A0XoMFOeX+%8*32@TI4bdbUZqaR@%YmkJHeBHN1lrP@-4%qqMAYj!|=vy}VKHPaP_wGL{Y#4KuQ(T&|jf`SBG z9fWA5I}I=XH7fH4&w#8qCuJ=bsv8NZtzJsa0M=w?=OpGkmak=>{Ty!sMJ=f1v%+<1 zyQ}h)QFstdlpI}Cl)TGjp@R^?Q`ykvb-lfBn$?yDbVS4N}E&Iyna5HFUA4gxI0GiuT)yxN| z%-&T8eXrrpXJE5z+y|y&eQ+xu0gUTd(Tb@q;jQi1>#=w&9E!SnOM6%GhvUFazur6T zZzmw_h2Ck4;V=|?oM3{=aE>s#@Hm%b0egUfYnMG8TDIv~I=BtcvTL8^y`J5HJ99hi z${rv@@Gqj~LXKOQ|3FP!;KI-`YjBvl`-=oVuBAtE>e+&aKMCHWZ<6Mq^~Ejvly$kg zi(CO~-XU`ZLp56{vv^{ zKl>M=B6A-3=DwVsQTDQ9C*4Unc4^tepW#yN zcVn5V`mfV3B^J0MWs8Yiy`gyq1>Sg`}V+tWSkqlLF_titfsjI3HISS5l77vg8 zG1_4AE=1%UPkh-Jyoh#$`;~&Cu4EhONzy!2VCXlbq&fvno`&FHyk{SXf(z5RS&ne@ zZQi$lIW$0%s!*b`YS9_$i=Sy){HDM1Q&<;Ia=kSdEYkz(Gtc1ccvR?k)iIi$i-h`_ zMLyJ2r6^f!hq~Rx>ov*dP`5>R_$|cvndmzyC+3tw4cye>mqNX#XoJRy(xM5df<6fK z>M~)TQAE5${dpAtWCV8SLh4TCif&SO^&dzIjMEdf3zr+#l8Ut~t|g7l2`xyo4Y4cZ z5xnpegS{={oB^L8Igpo+2b|?Ft79(V;Xgww@(sZ%eHe~?vHP{`vwn-`ru&2%jFQz) ze_yGD{{9j`_WDQ;KJgO(-vrE@xWgsAU0ONJ`uyJ!soO%`R^g$?Ndz8gKo{_0=)gJN zg0S~!hkw{E->7yki+G*8d_w6iuX(f2*%rvGEHVVpJvOjA!EZ6fNI{#|xml?Bj%sOy z6n{aZH+0~D&m4wxO8c8=6CM)3#A`8+9oTOSw86cK&T=xAYS~4x1e3xdED#VE!23B*eMz1!1;O$ znk1M7$=v8whPZsr&4Cd(6YoTV!Q`p%!c@S=;HOY|c`U6$EFKWRL=y})co-;SG!~zW z=3aw>PC{RV>aB*vpdyCkLH)D$)csEf6%4>&XiNo7FoQ6rPJK+VY??w*2qxwbI&R0& z{EJ325Jw|aqryUbL|;WOz%`NRf57f&>#t#nHU5M>!k33A1Y#1uwg zcc8)_EB_)dFW}l8p#Is!jT#Oe>J#ShN6X*E%TI*X?P#HkF+2yTH|g~}{~y=TpI*jNyUpsiXxq&{&ByiVGFK4Ex6()3X<&a08-b%tqABH?ocODEp|PQ;K!D*3r=cd_uo%*R%x{CYkN#$)H+l71b3C0Q zb;a!qX4%eF~X3yo(vsM>%aQpB>kq zI4jN*sROCLE$W{?)~~Lc;^T#V$)m!URX(2VyABx)y+^7hjSxdJl7?6#as{pGHCP{m z!pu8g_4d5XQcHSX=BO9YU_DfqMrCD{vzWRrN(;R$;^4*M+Aag z9R&FVg7;5S;sHqP=20afvG}B>^^O~<-$froe{W1)ts~87_3;t}(<7AN%$(L@Gz89s z30=FEV^4Z$sofB?s&`#M;m%g;3;+cb-&)-3Iy8Q#kU0;^;?3fP>OT%7%!@~`%<{EH zJTM=m#4YMCPw`*tNAU?d{f=A9-t#y{63>RBtOF}ON4<{9ck37M-CA&=LvwV+=CjOi zUNBOaa&_eax*_>uBL?`R4O{)$hrmr_ZhOHPw_mnHSFVA4z?+8PTWlk`X7y0P;2@Uy zhZm@`Xmz>3%}S!Q9p`)}{3?$1l={=9wI{ejf|j(GQfwV(R)4t$F_CAM3AV1K;( zpZ%G-AEbu1VE4DE8NB;X?Biw`1Ejc0rg|ZE^K{tX@EF4W*MIJT{YM}F80;7RS?|1Q z|7o!Q+XvYBX@Bko`wu>*-lXn}!@lj~c;|n{JKyke66~j*pzIwVBw#=L@i_X$Cm;#( zx=wKvN~uo)g2~ohf5MRDTF^2UT^87JKf%2R>LfoC(cWXlCEM<#8ZUPg!OhXM9t`*q6fk1L8*V zRm9$v8c03Z(77t|iPif$w-^!(p+;crTZ3o1YX^H-ig#3#bhJYn_EpvAr_5+T(QLlN zt1LERI83o_Q;Z^$&5~FxkGW>7Gl;dR{+hFe2hh~gBh)u~H}GZzLyflbBB)ZVYehw2 zsCc(pA)3)MO7S9dg}JddMcW~1&E81VQXz)IKP=r|;i(BPnb@~XsN1$^tfWlQ+;v7# zacx|?KL}vRlC-wiS6=6iz+kbmyEtgAY`h|75tVXdZC1>DO4OkFp>Eb9)}h%D+ppdl z0Gu{|%i-ZEy4WXpPKn{qtYYOm<(}G~`IV_AbO{I(dmc_QYn2MN0h7Bl1vLo@TH(M) zVFCOsqLiBisZp$*X!Jlgs*b4uspW-I!;YiVKmF5h-^ul(UChy_6gi$sSElM!lDS<} zEQ7>aqjX1O4yrVnTm8;RFhvR-yLI`+QbYQlKg=JWw&xF6%)Ao=Z}%-}@WLtJ&c>&c zN~SFzEj8R;!T;k8ntr5M7Zejso5fn2r*@uEWGCHlke|o>qm=8XKlFw&pS9?+(;_ch z=<4Iv|Frc+7Mw4Vz7d^_xuy|XL!e~~JMLCyn!H-0GSldDwtI!rMz37fs=n_ukSZKT zWL=);8sk-U$|)I_YZ4Y} zE9E}TxkRLAnc8a8g!LRwKE?XpA-p90Knfi;O6I*%!3k0wJPAjLAr}M0-&5T?aI+C= z{zzS&Z1PlV0U!k)iA}Io78M4rb+ZW;F{B!oriw>9n#+u1#8CIG%ZD|bQxlse9#td9 ztr!&J9CN#2x(SfhZ4N_*wB^GHT`7Ypk--e;2^rjmGE3+ULLgIcNM&(hP>_^qMv+1X zsTB*zLxN=JEqro>qYopabecZ*E=~IhogEjdpD!WxHmSqU4vVk@3{j|s`3CRYDVD%l zil{l8gM%Gmk!B+-nVTwF+(xa?fC<5rX7d=lTSK+r&`OJ8Ri2Nv@M$u~r)jbgxsDg_ z)wE`FA!LrFdgo5CNal{3u9Zt9Soa5 zY+hkvoi$y7VUpHTS#mLYlb^fYr%W_TW*}Yfsh2=SzPZgr@v!1s?&;Uf1S!}$!bvK& zfU)z)&BRSjz1RFQJ&*w`Z&(&`nd)UK{B-gquPYj|<7^G53AozT%W;_o^4$7W4_8lg zw9(RsUc#~$we7Ut5d()8BL?D5_&CY&0ybFi(Z{({8n@OO>i%K*1ShX##dx=~b45lS zZh+O{;L+N$Q*px3t1&bjBsnA70aPK^sD1_qfLLifFMRGHB0Ca=h?vAFiSaZ_vK2Kt zlUDk2PD#X@`j_F(@uN?nZaQEbM(JUW`dE99WUyifQjX|v=}txqe2V4_ANzDoPz;>1 zQ&$!Z9TNkYiuih{+qB5)8M`lL7XN8PvVxW$U5z##H_gXV-o#zZ%fg&h*(5nP2{kC~ zkT%4(e)zZ%xjSi8BxrH8#l}eb-fctS^3pUEI$0&QIW`2V85JSUpiK%L{DDk?V4LwO zE{o*sUTAGL8)CP4Lv5O;IvmL2YXj1}&SL?z+!lrPyM0Rbqn|_nj~LCnV3RUO{LIqm z)gon;B{o2RKqu!h;mNRDvA`y_$7hZJ4ornCYW-$Tj8OH#0Y#(e8c~WIvV=Y{hBli* zQBkPIOPx^EB2*tj5JioFS@`G7Q1mRJ+8+P5oxo=dl;Fg#<2tf>Op5I~D#$a4b92`M z$q+3XZS8p^V{6Nq-Dj~c9e&ZNR zQ-9Hck{e~jp?cJvyR_`rM)I$mD=F6f^`vwg7%CMz0t0m?O=%bDr-3G0?0qJvD?2o; zujj0-TXl~a3e?a9v<#0gB)jk{lkGsZY`Dz5%Jdur0~`x%>J7c^aMcGpHBAq(RGZMt zMp?%h-*P%#D6xe8aeQnP^o1lURbO(VXf60vT!XEX9g*f9BR5q3R`s_J;L*eA*f*Yh z#AQm%(=IWaP;XfpTP3lX?W`rzZ4*iCgnFLLR8c%!T4AsChdsawxN28KYG*gb(%>QN zVVi4b0~>{!XocMCMYuxte2G_rtTaPpyKqjq37Cx0lW$Dv?lh|*cn2- zM;+CyfAO~_yy*Em@w)xI8~Js6WkP3mAz;KZ#E98(-R}|k>q$Yf_*_6Ha@_25E%rViI`*L=Rj+D_ud^-B;c1FmQ} zQ0st|nu{0jWp6-%klQeX!De;Or?48%K|_~R^|xE#IZFziIIw7p+O;|9#;-?;qh5Iq zE!6#pe+!1uGwj)!zj_TtXx`yxtI=oV zjJ!GGMg#ZFxohEt!um$EX#EQ4xkWSvvWb}!*26ib7HOHVen?i#3-2*^oXsmTa)FhD z%n?y714qvl@qzU_c_Q)+`YtNp`gufLeQVz9ioaMQ(;7H|Ivt0e;cY z;7qCb`kdf|p1hen?*_yMwGe}f$P?|zrylJXw(IDw&?gx{P-}LfBSQ?tFf|9QYuN|U zw+JgH+AHLo*fV0NO@pb=$E!}d9^57>)6&%OXP`DsCm{YATK1YsvKD)yRnt^M8(pfc zz&O}G=ixYeeeD zYuTs+--@SwbbL#0u&3sdL_TW`C0Yh3~ z0#>!)1VnihgQ+=^GrFj>XAX|FP}h)^J-fe-!EU;(?-cwzX$q)YIxZACcHxXrmyinXgBTiD-QVB4ovg1J*dzluPFBxw4fm^>-0uWnY~)Gq)4e! zBx?3Me~^TUJEYKd4T;KmKD>%)CifmCCUox+LI3|gQmFI+kGS6_`^&j;EIH2HuHL#K zA;DcVNg2}VXGbM@W(Nu<<>#-{*(;6$l(r{IEaH?3g55F7W~@6>5el@IbBK1z&~l81g~R0WM?<#ZdSV z+V&Rg2e81{V*1$jql6c@+JWkyH{o2j_?1OA$$299B|4LN3@51>ufm_}M+1eNg)G;d zg+Mb~o9L+dQ}(5W=;Z`>97mTQHO&tB*g;9#LGb8C4z^~=d`LRlE;-djxk_pJ z=^~249zl#>Sz`2=PhwZ^d4~XvPJ@Q}(K*W|FRFC3s_%O^&`>hzFE}+x$#B3IAKT_< z@2DH}kFWD(W^*e`Y(BQw?saY#YA_V7RD5}`KxBIq$)aYwgQ8_gPF3%t#stKPQb`eW zVS!-ee|zkgzJkjWPKZ_^Hu;>Li_eC(z~6Pm6~IG-f7n;>6ZVZd1T>%(?<$t-YCPiGcn)zFFUbhz zxQdqdRmbtLme>{QgPZ8KU|2sH_(F}H(a$FgD5}hS4hL{HS(EwK0fA|+33JIcAiX4b zb^zFs$$5H-fo@yy*5J(Kv7v zD410zV#N8}l8b^VuA-%;z!@+uKOVf^S4YsOpw$~3nyYBVQvn;UzuO~tHkjE?cF^}P zHW>Kq;Nr@p_#&1(FPi~$p`cxg9EW9bByfSZ;C)1JpOX2fE)3X6HhPP$gkBGQwK0o47EEa{xORr6C8f8rq1lpV-OcZXVvq z&^PkHUw(8GhyA-xe9oCjCgz_aGO^l3WMY{dCli%Mat;D#2eHAbJM@^ZWt$f9!;_X> zzKD81?JYEvjPhOM*1S2ym+wu4H#5uIhO;=nu z^qk^;+-5D@N;($i9$gVB6wZNj&{b=VbP%}*xBl7OxW>a;MWuYDU^fU^M!_!Gg)FaK zu)A`FEHM|}3*o&G-d*tSg76!{%i;ci;;ZaWg?mFn! zOK&8)RsFiA@i?aNe->9qF`+ujuz0FsZAX+VHlhN-05$zhEMO*e7`@p2Trg>*w{jg|$>BGRGz(kYY!mEk zTV|1Yv9dBlk|$U;@X*c=Abk_+!|0t{8Q)L~a49%dXE}#kw1mDg29HR}!#JCCaIUiy z*J2b{a+P$XujML1B*_;LuJy`ewAL%>KG*t4O?<7-C)ZPZnb*SgF@@@@^c7#OWmn$I zwaQ6{oUG60lXvi1qZWqNoy`lruXE>JgSoGP)jdBqHqtGuFEtA5TVt8d?F$F8NV7X* zey$b~ovn+$M*S=dw-x+=m09qJKA)5*-Q-U`pS!_RYVdm4(Z-3}#h1bC-J0hj!Qgx- z$z%XfX6H_<}nTXZQ*1Lzl@INU!we zvT_#gtAin3;J!HKHk0YkBZM6^OIAEYUZF>YoP^%4%T;%T?bW^d|JF!uSwAGt68=Kg?c?i6bh<3$QyeeKH{`>J)dq49 z&s`)x!H*w>6j>6Fovac|!GMyC#XbfXNnf*^YAu<5f~N zsSO~*b)Gu2Ax>FBJBXM5uz_<1H|qNvZ2st^)T*8!#WoL$FR{Z(ig3e|l7aeMUBk7S ztmk3h>3CGjVBvb~LJ>95=rIcBL zJ5o_cOz|I(J*xUwSa#4Yq1sF5a!(P`F*&oo+GvPk_#RF-db_KZ*fD1PzRqZ(B6-M>cY`puxIiCYiFR1OAE4hQ7?N9Dg0^!v=kllIeaB#n+ja z{+?V>bcM*F+&K@Bcfb7K)3+@6QGfUVu{ksQ_b5ROzhc~gUZvEr@VD8T4vEHOUvnq+ zVn16YCHwQ|bO2#Mp1;?0TXkLaoa8ePU2$4BR3?I7LVu5_Q2@SUA2&ChZo=DzG5>fF zeQJH{Wt)^cjm1Sm^%OL5HGdELd7&6OWnB=f(o`aYV^C&MzeCG@{4P!ehhsD#B$3YU z;6+HfCHWa7De_G@74l8Pk)UJPC8XyRV`96y^f;V~KGDf(E(QR(Sg-3HZW60Z$3{`{E%5jmmvSWk`Od@A4dr z`J`0vUhq3~3|BNX_%58%&f0Jab!lui$-GG_*cSYrO|eu(|A-iMQ7CE&gn~=9CmdY-c+y9&&ILR+ zs$uRFStsXPmj6<}Wf9izc2zGo4Go@E(}l`}c#%QZB-2JU>wYk-v|sfbtnS91D5ISB zhbG7m5?xzG7jfDHYfQ_2><*k;>py>o?!{K{mw)`uXz0;_t2%ZmVC>>trRrTL;A!`O z#Tnwp7x1_*{GoAyHFWI4;Khzzv4W~&PrVNy&#gN4myZpGMZ>C&{S$vbt2%~jD)6Ch z@?j2rVw1G<((d3smXxX-lcu@ZP9RpI@MM!?pWfcEp7zoer9TowaQ5JaY6B-ziCJgmqT9iwgt8bXyJNAN8_RF|!wgt?p3Qy{u{cg=>1kIeW$JhW>m6_Y(K^%hP(9nz+;tj7WBdw@^@D zTGw-p6cf?BB~8_w*itv3tR@LBeFQ58_x9^P$1#x%_zcN;Vqun4uwPO#ipUyGeZh}k zoBL&Kx5n}Il?sxu0k+zJ$LaBXdS3T$$Y*Nu{bbVKih(9(psYF(Yhu8i7^M~M2b%1X z^W)&>@F#GIGS~2r`^Lr z(`QMntUFQB!|{ro`-A`L<@ZIBGmBvyJ#i6Kls#a0`C2(fwm@QBmI+l*X?S+6%5o1797Ox0JO+xic23;|N(Zc|tdJR3K z2-WxNsuBT*Mz+uDsa+^9Q^~+#yo6}WJ@DS* zvZEs_%rF+X0vnC}fW>R}ASjGIpy2vP&PZT{6q;j0afv+^gA!*f#tBZ1rSPs`|I_$* z)*(xZZt3wz@(@O+fJTO@$52tI+>UH{vyWMCx*bNLwZ{fhg2b}@kf80tA+^$w8slnN zUfE;ADqdFCV--Fag=CNY0b8^wQ_QLh+T$&6{~bVbE7Y}g5kPUX!Us?9FMaa8GDC?WaSt;}soVoDgM>`Mc6YRUz=buDuKJC6F5qbh;k$`#o zfI)icmXq4s7>HW2oFg{Ogoj^y+4h3Qo!zh^{=GOx|E#r!Z`c7D-YjwnJUP z2JW>#{jYI}7T=LweB+DLRs`6jz8jkIGIfX?^-Ip}fk6_UGVb`f!9Wc-PX)im(XRW8 zruDlw_2};Ki#v9>>KI-MEx17aY^|ofK7ecMHN1e=xJkN3z$TRQOS&e9rc6y$pTQ#` z+s~|jU#)8~IXjnM1{nRjhl~bqamoIGDK=7F4a?dqTlQ0&24zV`YzVV1hXSFnOSUe= zl3G(N!kwr+_fMLkI%)1spJKh{Aw0h}qJuE*l8c;#=^n@KxCM1KDBndtmCt(%=Ib+V z@@Xf{-CNVPWPx+U*N+$t3x5F{n@_p)6Gk2&bjKHxQWA!`y3nlOh;I3ocjs$?tJLyK z$+R-~GhnUGDCh{JJ3E5I`f+QAcSzl{QG#RXl0rTxj7mr9iWd@I1+IR990P<}ljn*p z=X?(_WE7X~*eO_w=kvVkm5Ji9DKLVu&dkv`f(xa&=zBGn_4dyb^hos=obmq9?6?LR@au^lduPZl=0DkttSM)3)RyXXYCZLwn~#dy;k)Aeg{S%#<`sk5etIr1dCf|Z*_yNQ%bZfyZ_3A`n>|1QQo9#d$ zqD1O(ty=bDH`4utpk=R{P4^QoLld#x$m~mGR|Rx=H$Ww=j(eJe1|r8&xWl=O*2-IV z7M<+7NYD@a&2&`ad{rSXH9Dr<;vg4Xmc?f=INMWb?W*Gxly2fqGK#N|2jdF4A?e=b zu0C#XUj6oZh_s4{~iKea& z|1h-m_J+b{KikT$8`&N;Ozs8RY2ZO5U$>*}L)9_tg&M8%Rc(=2FdmS!Tk6V?gcIIYaCt(XCp}B za&tG*k-zuoqUEa(JBV98haymIG$s_%{^dvx|7RtgHI9?~K0%tR&-drEHBBiqa-GG& zNvHAa&NEbU2E4y>IKLf;`|ud(g@s0AB&}Cq7%a6}u|r22D*=l1{K?TqLpMC9b7eO1 zm2j;1Xd}*2Fh{xH02|nN)N@`WiKHnezH%To6u%$Pf|nxx*$s=wh{V>2uXOs^-nz!f zp_IIJIC^*93N7sI(C5QR#N&bdJe^hJrNr#g^v`gpel;;H+3A(kD82c6PsPI zL(S!BIY$1P#b4hG@#y2@2mla8h_5QmNm=ik#XX)B0gRsY$>gL~L z(Sd3s{)SemC^=?RyNT1n99DHLeQAaz(UMD-N-rZ3?B|djUHN+?dRTNg+W(?wY-el0 zPPp4CM5-_{zZPzyD5Xu5uaKWp73;EkJ}Z#_Ohy@N!qB@L35HwLyx;d2_>zq_6p{4$ z2Xd)3ue~*1d%_2fQ2iviw`kKk-9~RRc3L38mV}=1ceT&E!I=D>jG<$Gsbgq{j-i+( zjiYF097Xjs9Y@=A991ukpJ;n{W>rMKx0Y<&l?D_A)?|)cXhgRYjP!3ulQ2%L_$#rd z+5f_uP_{!opHRAkfBfBFxe$I}?}N4~{}u}+@#n{}a}yAnqQr(u&JWOzp(S>iBo||) zm;Au%i4iY|N2_IaL+~R2{ElC6J@cLTz{2m^?%GE|M+pMOK*R;NaO!|-18>i2VJE@bZ zzC=;5n`Kd8z{4K&NAwk{A6`+T3DuvX{)x6(nMfuZpOA^(&n=Fx#Ly4M;Q8!23wMhd zidf`}JdQRrnBBM)apwDMRM(FF3Ccs2!OP-V3!i%UPSFk$`p%wQ#QBXl^0p0NECHBYTD!}Hf&PEM!!d)ud`8j@Q?{L9U8rJ zcex8t4c|MrLvrq3?!~T4iUqam41V^pub>0v=}N|<%qSLH(t}x|)+TA2rBKuY`By|^ zXNoK$7KEj_?cTW&=6k>*7Wy2 zf$xEI@%3{M_5~d=vzzS`3--C?r}OX@7mp%EYz=i3R?axOq4TgN zVlTYARkm5$eZZF<7I%LthEAFn_c31gy5k%PJ3^ewP?E*j{C`6+1hnVTTz zqEG!ub^l5lwePvvM>Set3d+LJ3$GMvvIyrGm|0S8uwX?#b9u`#b=JV2qYA?&O_~36tA)4>e&~P z!QU*8Ms9;9R2#DNhkbVaq0LTmRiV1x z-eZZUt$K@s(T5rI4}0BjY4^L#7+9`25Fe) z9koju)s1J7qkD&iJ)S%{&*jG~I zn_Ty(sJx<BGfYd5j$e)l~y+m4vzdB6Ah zKkxVZ-qpi(uIY16IWy*D$)^>oelWdh&R>*mq?8YxfPn+2)mhszz4@XvedX(QZn0&qx$-|G9 zh-HiR%F6fJz(}$H-@;bZODgdUG}-rhvYcb5ToQR%!T+oX|I-++2yf6&kn!7~%~dOH z(7Jr&yt=Z&Du$jve7C`yPp+`;K*to)1QzgS#`8XE{VB}pa-@+&9v)%!HO)PtKdou<@T-&Y=Ey2=r3l|n zGj0w)hMD|+B%Y#HP2xr=%Ytw4_c3!dm%L!~@`tkKq=%ZXwd@@VU z>YN4pH#v?!B#r90&Vr20icp%TWY#xdUeii-7%5RG#3-Guvp43r%9j6Ghv65`& z#8eGk#SI)ZVb#5eH(@X`ZGb|EC7eV>=kZ1NXgnw&Ew{zn}eYUzj?_~gbSBCim>viq~bRDnuQNYd$w{tHWvf%jOC*PHB`1iQ*S> z)I+_zYAaSJMdc|89?r!@@y2S1yr%NHsW-$Usl-`yWbbv=f1<1ESt914`7qHhbX39D zkXaCp4`lq28%Jf(-x{aOc$ix3GPN)Na4UL*fmVd5s*+UPYR|6F5%C@8^A*Gn#-cx? z$`-zsDsJhj=6|hPMyx<==tWgymBKs&-%>-`tt)T{AB*uwDvl6QHL$o|6~x6?5EFs@@YuP&3Sq-iXf@<)^ zi;ikAZ;7KC$oU*pJrC`1tq9LYTUQ`{pRRw!w_lFG4n$%^$+=s2RM!Iy*#fr+DdsJM*%P*jEhyO`v>sZ3_uX5 zu%DIHDHRI-jI*QKt*#~#B;6Oxjf$Y-LPsh|RD-hv`&kioopfN|Iy$gUkb+2lc$K67 z+D}&_I{U9@M9h8j@BiF??QE(4f>EaU;r$ody7ph+{zLzjZSTK!w%C6ycJ^PjuKm}y zE%slXNt;ynEpqF`tfUj$NjovqLyDesU-t(%i+&gsj^)B4N6~MqqD4>oF4}FaA}?8T za0PuQv5a+Gn`p;XLOU)w^jTuFJlF#L(;ZYQr*L*z#-~Y(*Z}6F`mDhlXSemQT0~FM zB6%R@dZJnzGGysaSHzg3nhIC@-`8X@%?< z`$m-CY%Qt87r3^aJAH;KtJ6i~3BH6AbbJ-$@$1(2Q6tQNqr07AAGLIL?`my?S;JdM zji#D&;zhg7$33b&13b*~ zfp{V@JWsbN!W;G8(DoO$=_(iRmqR7lkNeMpYgOSpRg!qT0jDb0~1Q(cz5`+&qOU#rRi=So!@H zaXHzk=4X8e>_(%b6OeUvRgQDF?y?uiXJp~GZlcE*)fmL$nfYO6>m<6?Mzg^Ag8hjX z@CCbd46dhauMEGVZ>z?4gg;v%9)s3PwQyLBeeos#b>j|PP1(lMZ-M=F`}Z3$mfuiYPgUZDyiXD)R1Yl4X1{0zu^8ID%UB8R^X~~GI3Q*qxA)oIn*SFn)rjsGt?xJ znxuirDryozO)|h_1vMG$h)q!bVW`Nukwkmd@q(?$s-m# zs?&s8HHETJ+`*J`$1;(8Vc_v>D$9&Ya<9busq`KjuO+^cc*(%m<3Cv*p#i)>nI8*W zL;}Bep9bzh*d@xAdeEqv$clP?CGJJKTS4wW!TZbfel6agqW8Eqz;c+}J3e269GHYy zpGunvx>SWPU)tuzilwAOJP^xo=MOx3uso-45J$B@m7nmnZL|E=fQsi(AB9htt$9Du zaBy8IzOJl}hI(=twTK1Q8IzRrZsFUn5_pQpB+BrblGe(Nm)UDu)QN84I?}U{sxeD2 zV$kgp@7)VcxPztV+cvv~iFUiV-+w2s-~I8NYjhXG&JfsRDU{-q{{UG}9*Zm3r}d=@ zy!iu`kqu%gBc+RKO?0gLND5)FQe<8$t_!I&pd46Bvof%VLDCt?aq3rm zR|R>wjh}LMse*T?Zb0=(6DiB@_(~QKt$5-0iZv6fhYwcqzmwDIZj?wRy*Q#o@qmio zZtEl)gHsTtB>oST80>AuCu7MmORDfcj6GGse~|ATWP?qc4huayENrdBPonrK`&?}B zeF(qgL$Y`U-?rOm!f=Dbl2Gz7CVy|Jn%}Y)zk)QUVw-NXs`z~{S~~`jPpBRfti;2S zw~~Wq<_?eL_oK3v@Jq%4l3o#*b_Bq1@C`Yf}oej@BR`6w6&Yf8kBhWJ%dygd{G&G zshB2>3QI)-H$u|x=^q7qRrrPC4lecsm_4d~;CCp4_dxZ6?uV51v%%`{3x-bWDkxs4 zx1@M+V=)#!WKmL%sy)=awK)e63=Ey1K|@Wb+T!LE0+Ez&Cr>B z37)nQHBZ|D9%<(9Nk?Ec?Z^lW8z${Q1nUp5X&i>B77mpLDe0es#*UUJ<~qkpZJ)y- zGwV`CE+*8Vt4aGO5&t6{SVeKVZkKgmelJ(~D zCLhUqbw{b>^BR?{W+B|k7Qy7q^t-i}OtQX)^!9L5Uw+(2Sz{3&I#H4ADK+&{+02SX zzKV)^(-FE^EdoUz*OrV+(jf0o zLaHUHM^)8Pwrdg{Jj`ykD>3jDFL*Y1a7yt`TT`yYa71LyK=80mMi5&Q5j?FE5xlH& z1aIqD1Rv{21YheAgjUudgx1#H2!7UX2yLt#5ZYSXAhff3AxI>t=FJk^fGIK7(DOv- z;ZbtQmO3bZlefG&@v60x0(EoMY{FAbRKfV!TPAsV8-56?!KDrOT8&@)LIg?se%o;f z`Id-epm`k$+i=T+WTg2cM#UsU&95=)Nix>FfKie(FY6q<_olhj;k^&dYBt{c()_04 zeJh%2l*_HwH0R^--j8NK4DU&<+gSVKeOoGsNAbQLm4*cG@y`*7RV+!Z$5|bDtqY}- z>YppoZ379_vJ+P#=;K$QO0qc>S~1FOuY6QGOxnLDkK98-S3|)S2$!!RXVsYfq3Hcf z)&w_}-jOAA*KTqSVLg{u;-#c;g>7w!h-?9&FaCDo}jvZLi# zsblE#O$n}>vS#2A@hnaZm2@#$3>|A*tWaHjjP+}u0*nJ^}(@xg0gCQ1dQdCsL&0%(4CR?vAnM`dwNDJ ze@j`F0z-8R5>8(G#{u0f~Z7+K1BQ>mizIu7rBNvdO~&}0Q9tM7OKtXDk&a>hP8{Z6C(hp`Z;W#K2GPV4ZD6#&=l5GuiIyly z#cX_=LI%$Yey@G-ypx?*#{Z<|pW{ddaWp{B6zhb#wzA1K`LRU92)=NvJZDVg6-8(` zP=uS_B`-?V%!xo|M9fIb>=ylsbc{RPSW`Typ>fpyq2q zy3jLddgED!@JDJ<)-vT-8E#W070jx`$V(WQLd7}FhZa*+6|ufJV>;?ZW=zn`pceB` zi>o#M&KVO5(IG+Wt1jWMvfyySy7GZ%GR$eADIOu4$ZwMM|CYyx*lg@H4)U%GM;I{L z1fz|ls_&vI5`JcCk*kPO-wL8r+phR~rCsqizSo78n#Z+pe1cOG?#Xn!{@{~aQGs5C zS+cB#uVMQ;*!uTJEK7`z{v_MrvdIL-4>*BsJ1(87c~IK=;i-LlAFh+>)E=gjDccv% zX2UZ|ZsM`lgVN~k4zjJozS*UfWgka$`?RyPG1_;Ll<%?e63g~I_;SsCIVjsUFiM#X z&oSI?v%x_3$Q&>@w!auF>r2zZJ8hjR;tbFe?S`noN~L=N`EB;?FEj;pkb)4RTD=Ni z&nEXxqk68Zll!JQ)YVF{pp+I|7hrwV63rrf$`PR@Oiy>Z(PJ}R_vdBbg4uo39=1`& zGwi5!ijwyVgw&8t0_8T5sZ~V9Mm!$I)HeKtXGQ?DCik8G_c1YjoH*@El%pAManEjk?h6Asb?8>|Bqi=sSb zd;xUgY zlT^Nd)p{El?T@c%^5z@;8kG3@V3#VqM*ovKe4n8^ra?CFNUp3Z%2Tqw7SUT))uH(= zT^{S4n$OYCmlEAh5{RkU**euehOs?Vd7o1cz&IZ~4%`w9 z#R5fY-}vva=UZ8Fz>1&fY5A~~GjX`v2{%+gb~>SYktf8awt&N*i1H-g9jGo5*Rbd@ z==>4DF(iOdmJ%93U$P997?s1-O9{z&mRhy4eA9~K1mVFLldSCYRTAZpj&-2eQwG-9 zk70<2QieCkP>(}+jlPTB^z!q#EP1Yy-`(5^RUO)m$AhsU7$5vu_n=@+u#DG7XgkRW^IzL@($tTsYA^G(1-+nF}+EJ3ZcQAU2j3<*Cc1INc`5ed(cmH+u?a83OF=bYai%q7UB$4O$I*7kF1-^AS1q1^^* zhwgs^+ymi+1X6cxj~*a+5h8Df$o)NQl+~SHJ3=DsxDEdFYo;#FfY0r4{R9`pssoXe zR~2~tlXE@?9y%Q+9;SIU5lm}H0n#)_Dzq1XyN61GFk#DuX?aHc7dCL&Nax$8XJryE{F;1GhVFpSiZ<*3ppX@&4A3kdl2^Uu966cQjtQ zu;Uii?UN$3JKE`UbaQ7~zp(wp?TGL8quV9aw(SZM!qFZdAs#ne6YV(uV?D-Ix8ums zewV19eyh;W{I6K;-qCFB^cT9nVr_e2AF17wpyuzmHf{Iz8UxgBFz9yx4JOy@xZ~gB z2@K_qe~1Wh`-v-`_UOuPLcZKb1lB}MuabmL2GY2xZu^PjoAyEgZM*NIo|E^XpZd?8 zb@<@VtPbz6ru_s~o4lmNZQ8aSw;VED3Vu5UQ4x5BB3jcLcHDVtH<0=1=>HNg|s+4e5rq*2#@Kj!r%Sc#zy5ntX1@(X`V$j!rv+;_FO8m{tpB zP2jF=@m}CZC-<9+cyh8=F~uHF?IkJP4i|_ft=1)_DAgCy+B&V%0>nnc!Qnfak9In@ z2MZx++m6QDA?;}4|J57;qX|+!OoJf@ZFBdK8uu<(Th4i-dqMMc)IW5cMqQiG^%i&6 zOQBj00Bd7^xbfe^>gVHoX#K1MUs34m1@L9{#P|Cye)oo%VdUKod-7IFo0%NEa}~RC z+2)8c{L&&>17m183{!k%k_|PvvcPS!>IvrD@EY8FjB1RmJ#))%MiAzUO8|0Z;oD%G zu!+o&CGr~FyR@0hfWcbeHsgS?s5-&;=vXcSpe;DvgbQ9JirrTKO}O;a+G-O=^hWZ# zWo+8sSaZ%7S5{kmWPt}EkeU--HBFv=4aBS!8Z?O+YfYF3V}6*}n&viQvm$UenE5sO zHOl-N_-*{|nx@V$8tez*n`@4D^{es2W03cfykb_tj&H;uJj$CyjprbO@)IJ6*RKH$ z#b8KcLE;HSY{q*uZKg@{YvdsvT`^Rr?n0t1Th7CbPX+<^v)RU*Ww<-jED5_V_cQ;1 z0wWRy>&}67vhPry;RlSpWZ`>^?eSn@xn#qBYiHRevYWb{Y*PeIvb+Jy$Vx^c%I{Eo zvdt*Vz#3y8n5uNaMOJ>{HKtCRuo$cXn^5@H)|;>>tYQe0oObQAne(UoX9%m&@`=dg z2@xIxk}LB&1W5)Hu)U84e!qYin2VpOi-RBw)F`sCjHAKq%mta(SiCTF^mq)%YF%^v z$ooHf)=Bd^~5f^)uTz&aVz9nUXcheSK?*ZZ@nBHRrm*Y>N88 zde&%B1lCB_*WuZ59r)4=CicLHE4$|QnD7a{(9|r<3xTBU&|jNmBbSg zB`dG;P*eSP^_nM7X4H5XLM>BH}_{NhczU^&^woY2x4!epUE`N>}Vt?MUrZ$rlDoJL2LVG3to+Z47NU;TA5-pWbM5iLBxXGglrZGh{q`k4=(6Mr4QC zBxQA8y>i}pe1k6;Py}-E+81I!UFi~Pj<`ZZwyCTaHWqwCV(AWH^RemV;}TK7P2`e* zBk%~i&B}5d`fM;YmEcE!^5>rSFa_|6AIh6fg1za>@;Y&q;s-geNLN-fJ>Ee~v$jGf z=l7%VGw6#xqCEDy^)_3D**Lt?W(*|?_G0;+Bu*uN0C2jFPnkic?IiXf_={S1|H7l` zy7LDt-M#2a#t4!V%XBYRl1e2XdkJTeA6&g}lLW0J=h-UfZAV$)OmZsf!DVBAUry;) zhuRa;M8h~dY%Z!rTwm`o-U{gaA-F$)0{o_?2Y+q%pIS@a8&!LqK86Pp zJ?dDP;6*1xqsTn8{Cpl1qeT*Q1)cyfcEqD4jRR$&$ou`0_kF%m88;n)hMbB0`8&y;8eX2ow`f0Cc88uW8YHTE?R2&0KeJ< z?UV#jolkj!JtHqa&eUwbq3ahrVKKe{v(ePq~M+3+4AH7g>EMzl$*M zj7_-WNnSQI@X^*Ag_)T**eYcf&v9D^Zf*+CD|P2gZIAlz7^hk()-qU??LbV@Lpu} z!uvM7sJuyR48``_3;(pkHXNj!=SM~(z0gft_!HdD+5zv|;eA^W-Mm2CyEYq<3dEUE z<&EN$B`B-BU9>Ip&ysJ9(&p z4ws)CZ;8E2UUa*jt>2Y=L2^-0X=#U!F5}k$e$S1@dG*hi*=&Jzfp`24;3oJhkILSbn=h)=iJH`Xa+Uu>4N9uc*>=7oC>x;7aY2 z;O?eF0^ z^OoTpSv1oJ^^%e$R+jnnlz5|rkLX)t>2;%_yh-%nd+m*}Q}Fx{kx8nAlq$tF^F}2o zU|JNg$q!%dJfZAr@+L2zYH30+FMLhqL6aQDWDs4XxB0soLYmG?wwRUTZMEfN`FchzIC5nYBZT)0SQj;NWPt!PX^;iN|2k8MWb1B74_c|jyDJZ>C5n0# zBm~{HwmYsz50&-CLwwDR!+|xny1)kT=5){3z)10XE__=oj2C5Pqd4Pv)bDZKEHRyh z)RGVLGRf#{F2c}Oon0R*u4B}=U4<$nPqgrS3T{-D-}Ke@xnARA?3lZBk!ZAMfN7A@ zR->}jftl%IEUF`D7MptEdqN4dZ$s@(SCmi+kDAL5+iI7BBM;-_N?xQ42NzSJJ^Cuc z`Kj?{7S zZCWcObxKJ+^td$khdzI8P3|@kDYUMhTNF!l^-OPW_vd|^)7X*<_qQvakgBWOo@~BvQ}c=7JU&PVfFJyd2t;5o;SVL z857K|6{D!yU8$=%grvkp)Fc4~J~o@HRV5zk%llHxE!pmt(1ADdzLpWu_-XHfP!&qM zzY3v0@KmO3!4nyxQ$GoAem40yEFO2WaE<2EFI{c;*aT|)@|OY+X?73iv)tnFa>Q}S z%_6Lxnr?M7EqktrvnzM~Age_Q#D-FjUA^7n@pQy9GfN;CT6D%X^G5YRbbrxLo-3}d z-HMvI;QsILZ-1A)Jqg}tX#eH=QJ%(7$#5jY?hHK`o^MU@SB7;Aw=i7G@MDI{7*;SW zVwl4)k)fR7Fot~?c4p|o@XuBhPci(FVI9LQ3_oW02E+Lba~YPh{G1RoxiIwhq}Y*R zABLd}$1#j!n8C1^;e3Y67_MQsnPDBnV+^k|^!B3IjbSK5CBtb9^BK-&xRl{L4A(L= zGyIj|Wrm)t{JSz7#4v(kGQ$jp&oW%X@N0%?OpZ#s{F(gTXZBJbio+SkG0b8(m*LwC z*D~D8@C3uV4BPuse2n2JhH8dW80s0$XZRMwuNm%Uc$MLOhHY3rx-sm_a3n+f@45$z zhvl~;!`B%8%h^m8W}ET_!h&@7;a;DS48n5!zPCN z8LnrzlHtn?D;O3soWd}g;c$jM8Mb41m&JRY;cpCm8QOnAOfI7sPGH!X;WCDwFx+C7 zvxj>)TrUn!NaHdtdk}os&-aFi*thwKx?6d+W%qACOU)M_p%`>iMDU+}BEe-h!xtQ4 zO2=S!nbkOUKgP*XndTodXsHbEMnY|jHPwLKHoPlKym08s8=J=O zBcrVIrQ~2KPDALQ_GOMlaRnO0)Aa3kx;*26uZyWH-> zK3AtN$TX6)8B9e*kXV*7Reru^MrOV=TUU^!EzC4xP9bvDka!lPBYuM^Hy1LXDKtt8 zGzB{SEMguBrjTBvPAARM&T!*~g3SDUd;a2d(rlnvnb|X?dY#FrE!0R2MVf4Fu2z%d znm?mnlUX1w(rF8g8jwzErq(DmY70PU;0xV>aUmqwDR4JA%1NT3uriA?wfUJ@`BY5c z4{`{?*MbQZzbrvzPeHalT5Vyjj=E1`1_rRw6%~;*x|sZ$R2B-+D?$}H?}gvyu+MXT2pNHd+{q-l3^SEAP% zHBbl-b@pI*g(zQ=hr;|>PRGLV3PDB>x)R8jn!Dv85+cf?b;D7%uK6W}2(>UrBMkx* zlSVoN!Z2c0f_5OCtbM%b%fr zjFXE5oD*>AH!(5$vknA&^mEWrPv}in<}T>w$}?0Q7O#HtK)`}U%WjH*SKfZB|2)?$!L%^55+{*fX`#LAc(qmO|>1tWBA}(rjdTf#+io}?zEzHrC z7^HHoUXyK1a#RQx?pD#?dJ}(}#&7IdX?=3z_v6n$iFY-uUu$5zk?|&m9F#`roj-O^)w`r6Ys!pST$n)DjC;99VE3-<5qWdi$XQ+~eO1ifUbOBB)&DQVJp&p2($j6*pl zDx%_JV-<07g*;sqmynX2E>}!aMJZack55TpSCofnX zx$yO-N0;SQMO41<*1-J7rtCPFGwIWguZ@Ub6@9FF{m3q7UKJnPGUW8L(M!f|Pks3% z?clp#EV~*#v|PUGhtQquDWXFjk6x0s|G7=_zvc+rlZSwdTd?@`lUYC>Q3?5(v#^`9msf&bC$;QzzGU<%Q=uZ-w+A(+H!yol{`N!Ym76&$&Z5N-n8*{PV?_L?? z+dpoLA#eVB-z`zw%@yeh@v69FMWTbN;wH(|D!D8%hNM459;J>;PFJMI#V3QEDp>`# zQxtNvbhDSK6BRP~WPux}eQIKSTueGtClXtj_8vW@(1HjN{&xR5QH0< z5*@8bOizxFhh8Z$Mj=dBJk;Cx==AtRxgyckJS8qEB_Sa`5h6;Dj!%r0CA<4$2}w_a zoV1wE^pqsUgXxG*P$bHdRq=7@36NJ+T#PV1$x4(H$xfmoMwJAzSIAxL6=_lGlqA(8 zMS5(!oMv05R>!9b<>8QI6oi+oNRO7O)YOf;yCg*-Nic~pB`%I8$t9dginwH@EKaVb zZWL(=il}6JNDoa{e4Ki+upHzmj;trD;%OcgPo~J!e-~epB3U5!sQAQ0NP=CWqyU`u zE~e><#KibSK{}&MePvXX&;Rxp6loBVE)fBh?q-z~5m6CQx1y~0Th=kAe4B?#3|+bPncX3n9^mC5dU74}zJGD&XY2=F-M0pVnmX1g zfn6NVUupP#Fi$jF`uLvc`bgOw_pf#|*R#x@rvBv8{*XM9nMQToZ|e3QS%2uZpRS>8 zxBq6EIJNuLz0B#S`6FU0YU{mwNLtU$6TnOGzwRMsJC*0EzpJgc-TaPz>_3vBw|$m_t+7A_ z=}hl+TcuTtYQ`m1FTCk})7B#G%ZTllE2Svqx>ZP;irx~iO++xoe|+T<`B}NBtc1DC zJcnvPWG1#Q&UPXz!)AIH9tx9+bda4H?HgQ|3|9`!;S=D0lbW8JozEezk}6^O`K>Lg zJh|^))IqlTk^^t{z3+u%7Z02*D7nhnt(1r=@4#IqwTeyrvOS zkf+oOADbNW4$6J5{aAun+;5ge@}8AscFxjD1yve<%lL=mjg*C=GxrCvkv(4T*_zx9 zDN!z4@^&00io;nIGOf%{RK(hr$~NB&_5XMFl0`mE4xUHjx!LWI{3HAI_Z%7;K5JWO z{5QI%d>Zz`^UQxQmmXt8qqKD=lj&r}jq5q1lqTNgqki`={*n76R^cnJ1vehkk2o3V z%lqV^F7|qPSnP2YB&22MPbFk*04;%PAsG~^;ysUuL}`h~E>cm8x22|!=9&ST{>cGv z_Eg>uGJ#yE{2Up^l5VJiotv6p(l6|rcg@#5bESt|Y@S6%hC*|n$>`cw(n?6lVm%vg zsa@x_wY-eu#Y}9($_r{MnTpCsUdTTc$Wc9Mbx2FcJG}PherH$?n;6$1du&0#4tOO- zXx446;P)m?< zVe{S<+Ivx@Kp%nKmBr=OGc%jO; zHK73Smml(OC{8=lGB1x)EBZH2}?HG@0M~*ZXHu{50^21IaDlubI-=qMtxSoL_e*^$|>2I}ITp=i^H>yWKtJ)0FT4wG|%F@Q|)t3(0B?#lAAS1q@> z9)C`O$KjA3G6r*JRi_6{S{a)`=GT|^1;mn@zt6!_4g&ZNCwu*ICcAP|OeOp(V`~fE z@Dll>dsqvL&_yUWdVk#H8S!PE`>gnnDO~dpu>Rjw{6J`fL>I*Ohvwu;L!8+&lIjxd z?s!e_sPPr*;u|@*^_2fE9;78_$+~stY`FL=S)GCNvm5?JSKzNSO^PcdF9a=r;iKAx zg_@(5;rPP%agf7YI}ysc0+*)_b?U&}R7Xc(XcyZFIZKOJ3k;yOdDm6zXvjo(XR+RH z^PH<=Ya4Es%T<50;{6w$qRiI1iyz`-__TIZpdxFKteU0oDRgFAJgj11{|a2Bcm=2#X86J zl9b#rhDY#%wK(ZZ_R~)%xctX9zcg_DXMII8QrDikCTmKYxsLvS5qzb2`5Y_3C*Q70 ze@*g_|@2j63xd7J|+qQG1s?( z;K=0qA@BD^gNaWie7LN#-kDyPeL=aOrvAdIxziO?W;%$pDC&0H#kvH9HcS9C^;e6` zlLoUZw>n5rR;W4XLbVcejk)*^9li36$x5A=xs8h2Z>9^gWoV41;#{Se`IO;TGig)< z7azi&?DNBTL}l6RD_0=%`8H;c^TtZpc7xxsn&sTomFn~69h9y!n{kyl5F#A3<{~K7 ziY!r;VY+pc_sD#QdI{9j^YT|*M^h*U+l%SDO9ZwLvhqH*JH;NpJ(obNNP@K*Fn2=k zhXs#pKSPN83HrO)5g9t7oF|7L+I8fJg2s%5B5iEsc8G{OQ9<1|XX#ymA3872Li2bK z(s!$JC^q7x_(kwHzYoR~?wcvFa*6nvHXYV4!Yk>iiOgzlFspXb{Y4SfL`Kyk3|hnN zO;^2Xy04?CqQBg1^Y{;BBaCB*%&xJQ37-GbQw1A}mO+WQj)2J@GS+5&uAD!v^XDV2 zR&~`A$@e@&q%2K9lyn0EX80+1F%%~q3*!59g#Va5d9nq4@YX1o>$;`k<}zFTOYb+; zj!a#Fe~~cUm&^W|EE!kj`5=>!=I4P6zF#l-If2#7q8R)^`nQW9DRk1Mt8{xM)~{sI z4Blq`59VM1fI7$so>Z1l&jT05PA-|ynoZ=_;}Ra~I5Yi49;wA58R!?EsWX+a>0^eM zCNmwKX7l)K>O+*lP$lSfm0V!6?31nSqwm(4H?tQ({!Xz1YxNcp0y1FfJf9sKnF;Eg z?H*vBg%sv9E3v7`-JRNswO{crXJ#hH<6&lj#jS2Gh_tEd_M>{;S^=|`w~ajsB4$qR zJ6oB`YhEG(JT6GY;3tyZubsCJix0APEx9a=pL*`tgtun4d7LCjfLhN=A0c@SggMsK z50+NNrwiV=@8~AsPmRy9@A2NA-4BA|=~jcwTg15}TX*!k zo4_?aPd*Ya`wovCvqOosFYJWr;mtcKVqzU*b!{S^34}wAfxj>@(mQiHl46u>~)`Sj&QN>Wk8+S`afLXg^_?6okVJKt-ggxDoPZectf#B@qY z9D;x?DOY1VLmdNW@3ozkkpz{74i+!{4eTIS%sBH_Uq!Tftkq48lD3|HBJKY`jhv2aC{hEMu5gFl+QruQ< zI7-IMYwa(yVLs#4K}$bFs$uN{C*%gof1hl+?+*=xj;NltORJ~TbR^r>ch;*h>o4Vm7sM|5j3I)-fzWg70mDm9YzcNStHf_4E1U0uO zf{m_}gQ^o!11Xv_Ljx(B!J$nLPUlpFJ>Vh47-6EUiDe2{8QB?pZ86`DVmq04 zeeu@RA85B<*j(j_HCB=xoTL!qzD4k9&}N*7$q|pC$XDO}{m4*X*5>qJU%(kPdN{X| zLfMJT&sEHA$`ufM7pB_PPh5aJ2P+%gNZt#&;lB`B;|LVn+~3i=@pAO4r_Bz{BtIaG zY=+4g8d=pfTD-f^oK;8(ks{#1@(fn>*{d04G53_r;U z{ZPQ|2ABb%mi~dIqO9-9v-RqeB!co5 z@&9Zm6z<>(LJ_8cK;JTw`p#?-Cwz#hH9r4|yH(e;7ptl5;(-gdFw!nwkhSL3&h|OU z$tX#?N|yi$mW0Uc(K;nb`|B|g828z661tx& z*gvBazjIQ7@RembuRU1*Jw36=pkoI4!YU=9*3A$ocs`-%ems(Gl_U^yby!%x zzD#a57Wc=niTf}J_AOd`e3M*Y;7e4~_?tP<0Hb1^<5C;IP;s z5_q&^;Lzp~>_5_kD}?wT^?uVzuc<>6jmI!xxK1B7OTWC`#FE@vYJjo?e3 zrYGf@$fN1GNLNyCh5I$K_is|O{W(MklC~v}A2#QmZC(G~Nt(E0s&d`)#TA3NzPEJv zU=IrM-<%?Qc|H7nM`&G_!Y}P-5Qr&0lO|~PtrWOfY&{qiQub=yO!yRpM1~6She3)W z@Ozm#6|l3u^A6(zz*c8-%Rb9+cPMpuR|sydR+|s;V~*o1S$SvN$$0z4=dr1uhwG;I zHX5i=56H2Z`Ho6f_`S$b>d}{+Nzl*#>{Prha({KL6)L{#0)-4CRI2Q(y6j5shd3uu zozoySl>#L1RS6eul^l+qb5@jhlo{i;r)T2qR&L!T2HhN?)xsYh?)F0<&kk9%(*nT1 zgV0Iz%DA%})c#=$Flfm?DB0sE@T`Hi@awYn3|BVF`=+0!jg{w9aW-&&xem15)dl`L zX9{>w=QQnTK-z!(N7luG5bt+XlEuriDL|S+Rp{<2Te2u=$c?s8;Dgfl1fLU4+j4; zAsB!4y6(tA`#ODP7ci#1YG1tHBqOTcZ~$9KQvCQu8<-2Qu6Nn6qhI?1XKSxtOH6*b zHW3Y`RboV5=8rHy(5$8x#|kn@nq?xH9nyo+MfQ3T_9s7hrL4@R%B3Yy?XzV8>r(qI zC5ZOF)nfP#-Cds{tk-ndvt#L4A*LR_>Hu+qH4J3}o0_>vX@7rgg9r|g@{PFN(#mMl zPi0#T5e}G|8BWSOl3X7Yi)oQ^J`u@1ouV{QcJPEpxm$3U23xI_g3|;5HR{_D%r1hE zW!wog*QFBToO9(3Z=VL^KA8l!Z5#Ua&1Lfh*X3%wiQ5{n>?x2FG;$hqZoBz;ZD~|_ za%ckwC46bDLZ0)MA|uwo6H_E(0J@rH`*#F0;W!tO;l5_@YK zhj=n(JQni`X57_{Ik7_9k}%*Ie1kiRnHu(H;??w{9sJC*2Z2vsPz6l9*c{nDBWyXG zUPQww9?=N(2}VHzqJ`MDf8ml!hAR659_?707e+lC+r+m4S2@X_pqxIiQT@nKaT!oO z!>y$XC(Dv=PQECY_!4}jOHk~4{Q#J#ZAz%CxUcXbG-ckM?^QV68;{T9k}pQiVqmpY zZ;WXwiUiRV`F*@E z)`~U@TL_*ZGwW-9%^!XSt9h{Zl48^x_*P`tlV2uV8ILsYaiP#|#05EeKO`$fjY>wP zcat)vy?dUUq*YIr&+lkk%~I@tcCdGVOul!R{`t70`svEgTW^KzlH~hL@-U>`XI9fh zwv9{Jqi4wKaiTTc8*7|DVD3hr-AGYKnle|`7${)Vczfz#Y#YXB2o{JQk^E}AcTuOI ztrJ;gozVHhC@Y&QwJ^mh`Ulx8a*)@aa!Zo8sKi~~A(2mJCe77rrSK587~{@Z+nk4N z&6zawDwQ@%4L1_18;-SW7MR{Sv>i*?{d(@MU`+_o!mYr@|08ms@Eods?U3B~j)Hua zfdY5g7)2ZWlX1z4JIzB`k!0)V3rgc9{*i7q(dbuwoo+xrSg!1yeN|F=NIf9i{-;3Q zOPcR?9{uY*d%KaICIq1*>g=r99(lyn^wZStashLUHdmuX3kgs?``JC}ld^OMht!2g zQ^VS$co)ZzM^#bZ?ba+`)Aux5XxHtlI1hH3WZs_LMqpnwzg+YpUH;EO_*v`Jy7t#u z=6J!f;?fJe44&$y7WXFn@A;`~#+?0sSOx#T&K5rO(c2vRL9b<$a3BV27 z54w0g|Ni|Wwz$i0^~^OE4wTvE1RD!d2TIcV&+9;=W*Fp|*|SI-c!tQ|L5!Qg$9XYY z3p(r!+2jMAH+dyX-Cmva}U_d2dg1p7W{OZGn;Ws7J2bs1^%C^6v@8Mqndw;W` zo(O$vc=;oqCBo`>XZHduFs(Rw*t}$=c~T=Rny&KIQ<7Gj>ksiA!&h8?GzilE#wxb4 z?{h&XuwQC2ay8Dh@*PF;UmZk0{Nc_tFTiOG3VQiaVyFiSKnl?hV=M#}>!;T{htkvq zJ>$+!2Y7MW*Y7@N-FY0?$YMH~)Mls^{y`#6DrUHzV!dNlw(`}TV-5L`AnlF6wy8UR z<5aKm+&mvsKc8YfubGzpefS>}I$)gY4-rTf#kz6uj)Iz>)HkEK6*}fV$C)2?d*YV@#UC;rJL@V!D~gQM<%K_%M9 zPIV(?SXOO@`t>fX_eN`|Re_NlEIu|1`M=UE%pzY>k&02-$mZQ1&|5KUh^9$=6#ppk z#yo3GG+{$Bl7%XcIYZ2N=#)CrktK(P)7EdM0DLz?Insejo2A;?-qzk?5A$S{zxVEK zQBP(@F+r;N2}nFZ|dx70G3W z4A(e{k8<7C-{1d|eNX4@j}E1hGCR2a-*cikaq7kF>$jfaV*JY$U3^L_WV(0DUIqlX zly>ip#7Qk`1+?->XdjX_spUGp;TmZDWCsYdZ*1Y;lfLg z+rPe+X3QmyC7JQ->!baQ-5=w%u+JYeBxw!~nG?$sI4JLRY~;x2w}zKVy?IwIpZvp} zUGCpAS>_Yf^`5|47LB8O9;!pInCBL(5*g2JSV?8cMkxa>TGZAU2bJPNx@PL!B<>%D zZ%~9ek{RPBx%^n~5Gme6LwhbC8ng7bXuygVKqY`8S?#X((YO|>Ak@Cc@qqC?<%_f0 zbLp>jB@%D4Z`ds}!z`cWZFm{P?@)gr@}y^c2W*pjCj4CZ=#oTO{HU(Q$>i6HN=`ml zqHE?4AcnLMie)1R1{oj>dD8uXO;<+sJ_|G30Ktb|W&hZ89>uW#`SlbaVWjusp`;Dt z;(5hzDqi)&_Y=c6DRH?vY0nXNf<2y~mc4s(-R`P|k4D zz7txD*UdlqL^w_xon(0Uby(RuoY7G|Qt#DliDc?_~Cm(;cF-ANW z1QmXvrA55FCL}mkLF#Vl3iXS^zlSblNz+hp*s;a-=igGTrO^KLI!?T*7wzmk#25E7 z2rm}Ygqn!7pRh&jL5qWLUaj~w3MB2l(@S!^7NcgvCU5&K5`2HUGz8Tj!AqT=1t_EVY1X*_{Z--?SKOa}$E z463T?(FgquE$(cF56SR|+zAo=@%(uN2uz!G<7!2p2HFc``-V?u5v;R?x4LlwC`foiOim_i;!Q9660e-!RK!9H3~mA?AGk~ zP($I1k$KZVNnuw^p;rLO1wV}vvsEGNQd9WhsU7`Ov(ZWBokW)5hfNZaom%euxhEU5 zVrZ^|r_y4I>1yvsu&(~&O4wYHrmD5+r?1K&uzVS^=`SOqFU^HjO!BL$m%NRayiL7J zF2k#=PHq2QT8N`<7GfG>D_Lu*R45kXQ(YCuh%$Z`G{eHyfsY7F_ z%%y)%`Rkg`v;B!i9>Pgw%X*McwH;Zs4;3SCpUF{{eY=hdcx^bQ5DyugMsmm5F-WX+ zO*epUJr*AE2TqGQ8gMpU7Q=u^@rcwX4;gp<9C9uA^tSmZC7j>!f*r#3r}UBx@veg zI_`7*^^kRSk|4CP-z@mok{7i7>HG(L0uW)g-MHIB1{G1l;1PIsc9ckOujqx-abzW7 z5_k+`G{Pj0?i>DC0$i8z1xzeh9ubZpY1@xxxTh=#&vDEk2`XbT3&Nb0Z|a>!UZLWO zol`1nTvE)d>7j9tArd|P|5C(~Ya=^^nK@GoPQsAim4eU@H_@*#z9_*fqZ@*_;yk-m z4wn;2^)+-OHv6IRpgMCQE_?6B@r$Xw;ayvK;i&kU8nt&CLYKsnG=X1_-EZnnZ31-a zZ@IDp)2!C+TF=k0NO*HpA+4&Is`p1HzRtbx!`X$i|Jb9}Sh12hReHBqzS$4w=}ppr z?!sH)Y9_CL&GnadC@Mr>^jG9i`hmp zM#89KwMtclKN$@1_9_bNr}px~vzzTZGPFk|3r*hc3ep^tZ_>h8euOTo1PqRyzX?zv zA<$5g4Hnxu5!XZPbr_j)E22WwXl3Ja|3m7E?s$sNPzh`4_4V7awaA)?@y}a(jwL$LP@!dC4tGLwJrC*svphs zZeN~oWLv-G=HXEsv7_^q1kn#wzcPKkUx4j5h40sd#k z570m$J1U75OX-14#m50(PY_%Q`t_&Km43xcU?K1t`i~Hl3FIW4fmXn27y<_Dw2D28 z9bsY=tTOBqsWv^^oX#{2v01DHci;zdU4?*w{R)WcAOwz98N0Wo4+^?jgqu~Fp6@Jy zJMp$FO@}g0u=?vZAtMN(+qmwJ4<<3c?cl%{vDoHH2#XvDj|#!=!_8>8t}pjoAzYZE z{i~SNvbP{PM+ap)CE&(p$*4iKDdrq}DC4r)8Vo<_z(~K{=0;tdp^(o1mcTm8J`V_? zC=Pj_16au+&kE=9YLT6Y142107^5@?u5Z30k@_NfOR(*$VZe7B8-BSi>{xK_B) z4dfKs6rtF}zY!(xr&(Rp`|wL(=0zM{8}KVIiLeO(zO{e+xcBV;x0fYA)9ugt(Wo3v}t5E#ywY0 z2aXZ$kC|!Bjfb0Y9j}PDIGA;<+IhBE;(aX@laLefOk%6)$PWWt7VYs!mv|9t?E8UC z@!KVb3^Stp>h(aNIG%i~<90%64pys8cE`wjOKb(-nx*&yd2awC9+HI&iI)+>GjB28 zTJS|g!Uc%*NJWOldqVX%$I3;v!kN)_FnmItz?Ld=rnqtn^3ed7ono3h=A~T`Gw>Ud zY+z8V+8S2vq!4zSo?&hhSeh_bj72IA9K*#Pin*BieIAija0wT%f^`a8ac|Kxn~hwl z4Xl~NRyz&ET>$aN^aIDZZo>h7vCd@oK#Yupas*O-;8+5DZvbScD3apg)6VIewYZ$r zT_@@S_;kv*b;PWt3F%J^+zuLj+Qg->knZkN^_b~`FzF3H-w=J=$R{w9l}w z$SN$geabmnGMey|EN5R>@aQk;D5vpPOT)rl{qiS;(SyF}AH{W!-i=X?-x+_H)UHxe z^(3iB5Yr+7h8~3|qqev>byp=o*X$B?bs)4I6Eopn^4*?kh*Dn=Dc*$d{i72S{$A+R zRxh;I-_59*ETfy(O(7s?mOx^td_=um8ywioiVAbwps6RAn=Jv|_-}*Vl3AS^0MH7Kr7nNUiljU&rle`U79Imq85@p!62H6q|x2QE|kdapVe!cEq z?Hhi##fWdSV-jT)!xGW#Q}nkPUl+LMZp{f;3h`rf1{_6_-lv8=D20Ccv!U3hwElR3 zUO247TtP6r(!#Zw(S>%tmt$R{Spr4{xjVW_zrutH4_|-b_r#f&or1qte&KH0M%eHB zF61I%M!h>Vq{bwHJyJDH#-zTH;OU#5@p|PN45plxb24ZnqXqzDrTMO8PI5%f-)mZP z?}Q58{nCw2NtyHX^&ZkfK}p$ICy91`daL*H;>wLjNg4JgiFR~%^UBZsB3x;msD@uK zs$<=+SwfM4=G(dbwck&{!ku2;`k;lkqv4ef{%#yXw6s|Uw+VWoB;`;>3*hH_Z5u>0 zw5U+hu7aAp6WYNUTeZOjnsb{X^!7@YRH#!k-icmGwZU6i1hnFyDi_u)8*Ls2!`dw zQzPwZb9Vs4fkW~VFQ;yj$Az2xL2kIu*B^TCQizZE=SD+4(sfafR4{$G>Gwctl*~_n z*Me!(nV=eW?;G`wp?eVh$Z(f?RSm=CyoDmw2gp+kB!Wdvf5eDbc$bc8-v zQ3+aazXz$Q?VeBryc?6@6lh7J^}V47$y0n|AE7TuXRYY;Fp){%*!9Wt?h9O|R`j5@ zduk0Z+AF9|lq>a-vnyjF=n;n*&#VErGeVY@1INTGhlvR~#^=Noo4ri_~*?e9%HQns+JwWr-r8L=beDab5_t)L_`}5rWuW;q`2W-6gaQR;= z@29;j=stz1YYjG$<9=Ly1bmK3mjiz68=4(eON*DdZ8AO1$URsVPMct?aG5tAFJ$b0 z&w{`_T%n>cNVXR7(v9H8p@~%96nxnZlAVyPh4*1%i`0-*qZ-ifKg;^{T_)Tm$+jK} zT-H6fFO7?v+0*8))X0K&Re+FahJr!^ELU?O?CsVYu$+#=wblH765And(jN zTQY4S+UR1iU}V-0Bge! zf2!|EvFZ+@yiBK6#s~=aG~EW@b}xK+3#QyJPxJwrYv=FQ^Ni6sKw_Whjz;Uk<93=! z)Mq!o83|PwAmY2{)|hG8FX77v2*o4()+>rSAeqct?53mJqohjF%5b)F{O+~iT~!~2pMCe~+rM5M+99u`D?=X}`U%7O zcIXc2%HW<7nFda3?cWAAN@_5#r!ImnBLLyJjn~4^m*AuqeN1ltuX6@JR#~4*o*-)c z$F2M3yIHSf^GJcjOx>F653W=fXn;fpy`&q4ex$~Y~}sTpcOX)o}W$nX?oOPdJ6UNnja-l1AHFGh>7|&k7}z z4vhwOxp6Jt|KXztJ^W2__-WK&BRh)@rlw(6(y}ZCLw|UF9#Tn054!t1-b66@N85S$ z`{ZPbs2FP<4*oHE`poLQ*~5h+oC9g&CZ(8RH27j(ZuW6O*G|8KX$PmfL?*fv^wLpH zF=>t#Y2hZZiI~298H1Fu=}K_Jo_~#qV&Z7sjPA`9PXY9gz|X_`#B|X0IqpesN{YT2 zhwIbFE*wNAQ9oa@6B6^byX#uoZ^)X-km#27p!>$(uGkH^`u5>(kD@cX|B2#yk`1#$ z);=la4gJynb@+*u&WuK;_u~3raKat~OrEiIqMr#F0c$03$S2uExE-4AwPwBOOKtWR z^~#SYcE7>qQe{q_t<&xyH>BL?oXXr?R&>ZWhhg%$i8UO^hb}93OaEy}Z6dlGP6_J) zvZOBG4crfX_T)jfef(3mosv1(DcncHuX_T`fqnpXGJ|f4X4bcnkO-+$3l|PL6W_F` zE2HoE^8`9!6)ambJD&CS+f3s&lJ-%s)>4f=gP!r4i{Qu1NiSXWBMr8hCu%i_?xex= zXy4i`#7^cK#c*mX+w#qXza&g&4C_SnUL0YUt~UNzT{3>=6_J(Huz3~lV!VVFqZP-n zO%?z1iR*Z3W8B~9Fn4LDCPkY@MFBDK310`-ut_}ehTiamKhr$q&}7%Y&p(J^*zQd9 zc}n*fn`2CJcIF2)QOzu=_Bn&3y?8aN!f_f#)B(WYeF@RWjST%{`FXdShwsv^^q2M{OlgE8a*) zxkX&9O!6c%+xLBIy)Jv1;6Q~MG&`vdQ|9h2rM2T^k@vDHUaD_s;l&v9}4u#Av4mYN|ws6wa4DzMf2^m+jZrKEqC?x)y5b6@$Vd&%i7Xh zZ70^eU@{-FgQDv~EISAMO=7RL;qdJ~#WY7){Nda`R!iHnd{#@VGw0Wq=4WAsDFfT8 z4ShY^3VFx$f6^yN-IW6P#KipTsS0h+Oy&1)Cf(5-IfP$8x_R(nboOxS{;PYbX0!AH zsleG(c0R&ZJ7>S*uduzWpp5gY&8ph&ep_K-Q`ai$C!pawtkLPiv}{_8sazfffWm}n zKh~J!<<%Y-?HgIMgp|vk%U_vJ3?niU(sTluX1{!?z6SK`%?NxLGswNI1D4i?Cq+~y zWkKCd0fqU;bk5vg`5?~R@_Y~{_r*12&VgW9PR5J#C)LO|!Y*DFbmIcD`9gVwdV=8e zWp8J7E8YaUt=l*6JOgwQ!J801nnD|Z9?ke6h6&fQ^KAY*0`qI13U{mMOwA-y7U${R zl|uF90qkJ4>aAzH1ZTD3Dkf2_EuI37#v}Wjv#b#d zTlTS(+Tg;AzsyF(7*(Ph9)rILa-A15leX=$nL^ssewZ4X^T{(1upzP9=$~(bD6}}} zR?rr4(}W_dD(DAI=q_JF*FTZIh3XJaf9d|<^o0LC*PiVUR{aQv^|XPH7U~T0wv;Nd z**1UBN-+O)fPOLOr3tWXuwHLa$G3W~H4)q56nph^ z#XP8;;8!|tuz#nG=6HTH`!q%=N7s&DJ*1AHa>!3=2!oz*wg#VHOsp^t>yAO@cl*NR zI+kDsosj0i46;GB(Drj$rU9^Aqd~Su#ox0(y`~m_IIX>|4nFoYnj{5?7%Mh>&T~52 zl_HEL9x^#=FV)+Q)u}dW>U7HQeE0?59n?8Hk2~^?$oB>-wn!C|XwVvm`1KqiR3EdY zt;pnaakJqYu2&OEK7rD5;L@G9|NL0TzX%r!%8zCR#qknf&2o2_cLIV&mBWF11S9a( zY*Jm4)6uEk_G3cG2}fN#U4BA7dxsF$f?j8dP5bpu)Eemd$?a83t^H99iN0|jGV>xlzG^kF}>u8u~G=TS$DPZ}qH2B|uZp4>I{?;oZ=-gP-Z2!si?7V*-u6y`lqHzke z55!yR8DSK%k4L^|yYYSwRmS{-i5^qQY^i?v@&O*SeAEBkc)2sM`On@;l6<^;HCvP}1Lie}WHeY>LFIOZ+rgNK67!7F=HAi=a;k%AY(t3pFR=BNl6QCw|sz z%Gl|)FZ+ys-}F(S)Vi5i4dK`2Qk3Zx{i>RoWilv|J0cuUc2XmNvN!RG@$GHl?cH{t z*VI=Y8%fyr_slIjZIA%-e+tNZi(0yJ*0q_2Et-gTE6zFCCvpLQcQ>Tv4&y zirxpP`$)cB_Hr~KJ^6RO`1M9oGlv=WnJsE`*+bIe|rUv*EB9q#~lJDiiYrI`g7h3YsU{|8U((w-AWt z(6=bfk&MP#r(C>iC7M{Jvc6H7C>Z``;c44UL*fu6&DuMC8C%AGqb_OeV5KZs-Ha>$ z*DKjdNhxN)rdIW`(>+Gjq&}~k@9akb9enaY=Z)l_dPE@nENtZzHR2yObD*#T5{0vm z7}a4kLY(3@@5vxd>riD9uKRVil4+~*To-Q68P9!>)=8pR^=^#cb}C}6&mcu@m^UDE z-P)A{IbohAtApy?rZPYLd6AF()=!xcqeb{h2rg-|(WK3UD*rPC+Z~tAkgwsue%)F> zD1o|g^?&mFV4iedxUbs8sbz1f=AfxL9zJ*FB;V!<=YopR)(hhJHc_<>aRWa4%)*Q!O1Gm4LHV|cvHYYl+uo|1urgscbW zLc#$?nGGjbPp!fTi2zTu`mKt>OWO)-&U!5_2dJJF4` zz*}+RwkT+*@|1IdYpt~Xl@&n*FFc|{V`9?LY4Lq0x2>owv%D&9+2_#9{Sbb5 z@weES1gYK=F{|AlVQ3m$TTw8%dK1#ZL%Q*)^*J6blu3hL5r2F-o~4@6O4SR6E@=-+ zuQ|K_+%#0Vt}(ENOMh9V#B5?I`Hik7q|#~H(k8QNa2iKNiGMJz@r$0v#wB(z@Ne2u z++U2EjQu9&OAD8E*&7@C0ahq2%9jNpEc zUo!2Q;{D$>e3F0uAyH@kLN!V? z9{V?bY-Ge~f$rt-0bBaw$4?)Hnk&LI z=Vdl|6vAuD_*!L6bpFT77T>SfPJ>nq`nUYTaq2oW-v_<2bvB#?0iK=?YrFb}N0)65Cf?$7+92wnW@1tQJW$RJORx5@O2GRRlI2Dhw250MLXztS3^ytT?6E zldB-_LrSTz$b#a@zpAAxZ(rNs%m(~`Y9coZjc=cRYC$CXqyU)%w2)mkA zO1u)0%b%$%vDSdV+|h-UDKgKsU-fSl+0q1V8e324zSooCGXCd!p0HVka1A-1iOs_v}U)N$XtGvGM;Tsbd%$`e@?7fLjWuwb$k6u60 zyqo!`&|_ciW3^KB>lIM+0k@i0YV;nbb{=diI&}~dooYwnjvC{eFs+QK^Hp|7`GcCT zoOpzDO#1qL0q&O#_YEKdegD?Jyu*-^ANb%%yw{n#g-+jh|LJ(|Mma(c3xD%1@U-k( z;1G9rN3TtHQF!hMPkq!#QIP^rV>LQkdnWGw%sFuk=dr5C8Z6rXB1hsHnV)~MoNmIf4P3E4Trdxdq zWMOA(&)(UpN#Xt+X1?IK;Aa236HsArLU}u(WTUq+P1~o*8*fFs0$Eed@ioNj)kAcT zI5W>jpDQd0odFm_O>Te}fN&GdB^bEP6$p0@z)cPiniBCwrVYWkP?$F_ZS(KtK442i zM@53kOevnwx>f++a=77ILj$kcpg$l?h~+iV-1d@lPdmov(2VdqVTfbrJ|JPzmhosJ z-`R7=6>lj`ZKv2CELMU~(5-u_Gb*jvFDqxsQ1TXc!utArI#A@@?k=D+W4d+k+{syO`Fx3WBM zQGn6e0wuIWQ9!G4HeqM zrmy!6*M&(ebCD>lVo}v8apCC$*qV=K(8W+n6NB$bp7 zC`VvCV6hZ!IE#*10<3>CHydidwA5uUtr;?mghs9e2Fp&kSi4JF=##Y2MS(2cNz2$9RhV0vMe>M>+ zJVlq3NnF{4^gGO#9c5xUJ~ra4B{D33cBJAh(1{XXOWG*(eFV!p~nQkQZA z2eme_E0?4i=MbRP?Avo#@7bj%FoM2RTqBc(r9lV$3}wnCzWY{otX!*k;8iKJ~bC zrez%%wN8B*H7|}}jCP*LXvuk$(RwbK(KtSbG1v5h;{VEptU1c#%QK^r$Lx;sE%{Er_r;r0?+@r4mOk%p)ZQsZ$Z|R%sE)V}a?@Uy{&dHtk z2rkl>zh0kax%ykw?^i=Qc|7SReXlYbUo0|5P5XWpAp*}WncDEOG-WhrP+@!(p(?rB0Vy1MU(#` zKWW6g+dKs$POIzl?|Lx>FUukun zi+;Cnd#Ob|Xw(3=fzpUGeb0Rx&|Z3HYUbUt&wEPGuCaXlYV+NwH#{bP|L(wUlE3Hj z*v8D8QE3U^sdw(_ByF4+ck^PqE>g{)L61haA1DopOzN?Ae+Mb|kF_1k=XRDFj`hAd zd17~IgJ;+Ju#J9_+c~G#V?Fvv_Y9?5XHM=c&7U?jIN!62G_=>F_i}t%qJ9jm?U5I! zkrrhwd3yRAmMEouf}~NekGoV}?ILYCajiqkV;ZU5kr_R2ooz3D*|6=)OOJX3yGz6P|jxpVaZux7t~M>n#m^YEW8fMX)r(CBtoI z#sDe4^2s|7h4z%<3KRGDUC>+7_S)@RJ0?gP`qN_`pC^S$#X_$&o)PZS(dDmxJY!vm z^v-*aZ|c(jV$`C$&v>1mFG~UQrycWtcYx$MWL|K7x8BmK$8#d{(g#c1OSev1G<&2J zx@_IaMP02?e}s$}^z+0~Qu|jjS2QNIlY$n!)O6|9hol9|p18JoeUwyVdc`_2cDU3t zq2jXlsgcrW!&Hx++C5zQ{>R@f7q5m$m0rD8Pv190`s~v_)3c@ym*St#d!tu`t7LuT zoCkT#lec3pspaKAKI(y8j_Kf)eQOV(eA(`v1H!vVKbAfE&{d^`Afm%BAQ~t-@@+9f{o1L!u`VW=f@hP11LgxWe z$*037WW3Q&I-4Lp`G#|(6d}IinCcN+12rd%mWJpci?u4A#&Qem^2Z#F)>>_zy8-A>6_b};B?$UW{ z+J{St6V7};Z`yBBivA6f@|G3!ojhuov?}VNrKGWsw7pB9^}Fgm(t_EivetIeN*m%o zzmy)6JPxFo&q-gSb<{BUVbzrwHD zdHfYM-YxXPxcDK`b4y%WwC6`k!&8r0e|fuyw5s~m51!jIRH`lSM3y`pA$2|!xH(TA zCcV&SxtC_vL(+92aoh3(Bc-#~znQ5i@|13?H_bDKM@jO+gSnBPjgU&8?)}q4L;Fdp z-~N0%a!nWMygKZ?ANGutbcene>r5i0GmG>+zkaQ+^h@7=_x$C_KGF|qt81q&3zDqK zKEFmy?JS*pV|n(E`WsOXPs=^Da>1Rb^j{VQUw>$rwD?)+s^*h{lD{VDv$VY7Qpn5O z>yoG6j#}FLl@2K{4?#YbbTw?a7xfmAT~;PMBn7?ir@9a{l=q{d(nP&_O{uFab&225 z@MXj($wM3CZT%opn&08*n$crqX=v8)$KB?SkWL4GI`jF_5mM=~9m4t_hf1NZ_ZhJ| zvX`V?-`+dVca(H5ZpkYrqXtRsFLr(L$Ytp1sl{v7KiXSb+iSqw$tS#|-9udZG?g?( zMU3i~XB|CWdi>$*W$#|@BQ@wJKKslgJ*5H5$DAGQ)msv#`m4iwO_FBsKN>h7XQC9l z;P~=6y0KE1y_0`Cyk(NK^T>*MQBU`l{3~|eoby4LbZXiD`C+pMNwK{uuAYCkx3uBn zU(HFAWXb2T#ucCK8ZXt9PPv=1X{5BZc9N#@?td-d5* zK9U(N`2|{bJB{riZHV3Xwc*=nY44C@F#+E{BuyE)c*gqTjHoduV??)GVN&z4b8g00 z2T0>ya$0-6!z0qnEw_G&yDUjx7#fJ%;&FU@m@Mhf4tu^ZEmpD?dNyr0jF+-5#csdr zJ5c)mK=Jb(c1@BD%gXP~uI?dqoEYN%^}ZPC{dc3?=kAS>jJlq+Gl!0o^j*V;)UO;S z9sD#}yR&_F>B^tWpZarMv~+RS$>HhWPnKpidzQWKG)eL-E!lVU*@@C;v%d8*9@R?j zUo`rq{xDW**X`Wv!TqA7(W~eBclo}n^mNwo$1~HkL_|f6Cj>$3##j9#ZbnQ0^gJfa z(i#8$lC7?HglEiu$$qzliqL|;Q&m%McJ#Lb4Wu)B8~d%eeB zvbysM>sPLS$*OhZTE4${Pc~l?K6Kr4PySu_?8)41_vD42Sho&(?VjAAd#fZQ>z#9etuMs{xHoV#+z!!h`~D~HU!Q`E25T{+8~_Ugx;cjfQC96KlN z${pF`UGc@4^>^e8KM8Lx*>y*L?abrO9~R${N56FYv7T%1$f4ga#orzI`3YVJHYD7U ztu5aOugY*Y4H*7$&pWckyh?QSz9X-F<@w9cUb`*daM|!;-&42cr=&c?-QBn4y3f7} zxLJ8y?)Fzu-%fAbme)RXJSz3++p_cJUFXgkZp%|UG=8*d%58a{OZ~*yVYlUDxv9}Z z!*0vPU5^cV#O<~mzP(`Q^H*-kkLPcArt!orxr6cB5aYMERa-Xkh)S~$t`)}OUbS=vu?>D#WDE1C7VLOeW6dkTe9krCvP4Kgu6+= z-!1vrLz*|%UAigvPhQ;q{hx2js)B|o2fn^3AJ@$It^2l{vhqCaru>(Ao!7wUZps-o zo-GZ=oAS0N&Ut)3=ca7Ac=S$n>`nQ6zjvScF5;%#`)u8W+hI55Bl&{gRIi)zt)NY> zes!}&mWMSx8F#)#J`|*VML5(VkN9g|?!GTulcdfc1uO0sH#TD<~kZX%` zR!w^8hV1p-JHG1WH{=htL^PaSctc*2Eqwjs%p3Cf_W#N{Fz$x@%DtFxtr0imou|h? z6W;xX?6zXlk{tgVvT>Ei9E<9P++KerP=DpR{Qa;oi*KB{E+^Km>REc=y4*hXtH9K+ zuFFv&MeY+mxGv{sOg}KH;JR$C%Nz0VYq+1hDlmD~bvb0AF!cSU*X5gCr!BgacwH`< zIP$rvao6RfE*_88j=nCRHosIe^P%f<^gQ8-Tive98@3Hf{xIOW>=KxuU*&vVzSF;V zMAG$Z@`ZMFHM1{VlS|HC`etGMHF=ii^}cyOT$5kB_3(E)Kf5NI9}^ZkS6-7V_H=7X zeD9k4N5U%Y!FAVUy>o&vGxwT2VzF-2A4{*vXX93U_SXDsvhw`%ntX5d=jVGod`auYdQOyYsYKyx4V7MboGH9L@Hvpnt5$9sMp)+`6G3*imk2UfenzkjtX+`cNiZZ8@A>gB7lYD>e;erK=B z-(^?4cI?Pi`NGzxir@I*syw52w`2M*uF3%;Kky&w5a?D=AmymOk&#-S@An@>e;1Z->TRmB;&A zDwmJHD(~1iYj(qktMaXmi~g81@T&Z!rtida-LA_2{{3RY6G2zy`~zAc*z2mSSMBao zD_oV62Nry>=K2-+kpuS%ru=?Iek=D8a}UcE*`(_)xE}%gt(tuMhbyx0u*cTj+;v5c z?kiL|eRM^3{_5)b&@ETw&3+BNV>VxrOPp$EXS{wz_OH(KtIoS3Pu^D$dF$yb@{nGu zYIK=b$O^Jo3-8P4X8L2Q0i+-z0ZjRaoV+ze#@75_+fWw@q^IKgLH-{Jcp%_t}+& zD?VtF-+U@0@zb&0(J#8BHOa!@JGxhrnq;qD*>gM1ZjygEa<}NyX-)FTz3$#~W1Hme4@bP>EjP)& zwL|dNBv+dMcyVpNCix-lzb+(nYm$4$mIZ4=aGzaGa;`?$b=wto>phM2o>eaF@!_pM zu36>$P3IS1yJVGp^{Z#NG+5;~$G=)0cET!;*gRzB*n?JiHH^F`Qu9iG6rt9%4M2l_f@4=@yBiO?_sq1)xBZrH`goC5zO$w2;N*E$`T6V&)8$94vQxy*H{P0N zmA_32+%sWsbKC#MbV z9%Pj@?6S(aL{K@Yt#aGXUsBT-4zhm-jq-7YJcg6~>|=xL8TRu775`m9Uad&-szqXd z&y)WKrxEuW+uWnST}wjXJGghJ+VPVLwLtz;uGj$O{pxM6S|{cE{dJswy9DxIa>Y#_ zJN@a{@ck#Adn0yJzzYrG`<6|jSs628&Wub$M&_KDR71|3W%G@T7tWcNosycAm0>Vs z&M~HEWF=-NrKHcv85+_5iIlXY^d~a=XBbjj?+h>|@h_1dvHP9*mv$dj=`1QTAj^=G z)qM&3x|`0bV!sEmxpmiSi4kr_mCa3gb5yMp>?ui!S&7|;@VaH6d=1cQ=Py`DNWGKD zK3W_wCN92v!Wi}wXN#j7`EIU6;)`~OFP{0+!7UQKV?YKiztSh_RW^I~C!c&WX&(J9p#CQw zUq;sa?h|5Ie8~=OkFofS_HOZtzZ?fQ#a}MmjJ@HOqoiwX7RhdB*bR#Pqgx{T4m@uc z_A|zQw?z`r>c)QB6n)#F{n*cU)WnJ8dfazYesZUAB4OTeQ=%tfot%gz5cYZe-89io zB(^*3M()Ar#D2RwH*Rc9d<^;TUV@8?xC~YqyEvNqE(s8?ybbW@XV$tvR0>`B}kJcx6=JJFy)dO{L- zSbICm<9ZjPv))PDWuzw=nWrM%bI>1>orq_%hNv5Sh*P{b(X=CEAY_9r4tslNHR+5r z{g9>?Pg9R}dor*!O$YlRPcrBq(lNEic+tK!9S8dZ%2tPtdp@W&9S8dWcQOF}Lz=xv zy9R{W&BFu}@>{T77<+rDnuNAV!yH1$(U4aE4)$K|q}Kz|Fn1v2cn7;M_Vx#)Q5{Oi zccHER?d^h-K%7+cykZq`Lhp(0NXQ&Wq*F&o~?CdZ|CEI zR`7Nr-srR5gWZk7Qctq9!I`8cxe-0e)UVlz^vZH4E^#U?YlqQjhX5B6kcEDeR=ZlA>!2}MG%}rOa3LLbyOO{pHT2Dgm@wPcL;4+1@@;Pyg561Q zgoXsiwX^zLeCvG7UPe#72X>fh(k{!5v_l;2;$2C*!M>LJ^8wZ_=OAl%eD-#sn>*NE)bB?$c`XmEhl&!RE1II~3PE-kab+t&^4t0q2iXy10I6Cr@OSzRrx?x`;I zb|SrZ`y$VNM4yZ`6r`A@Ny`}F&+OAv2&v)uXlu6*BWPTRCdrp*A~2`y@Ko}XZ zj_OO!F@b0V-Vd^Rlj@a(9L|N_AL98=_Gk86kgP*WKHJ*u!wAm2zSx}ZMcgwmzlXS! z5cGo(r# z;zYE_U?QZB`?t3T5Ang=gnpFOnRH9)g#Of#bi>#eWDT?g)cKh;yo~gG1i@EDe0O+h z*_?;|lKVD2e+hm2h!U@(9g|~QKdilwpZAdG_gcqhdwcM3U(zcF`AF_eIwwsao#SIk z=ZJ?%XCb;ZPevtAb+q21eX|GVX%NPjgwZJ<|8!ODg9i51Wu!K0(sq{2Vw8-@}VkybrLWl*TIm*{D&5KCShQ%akcPi0jWnyl~ zVD}p#-H+PpAhV4dafl~4(hGChU7=Uf9idmmZK0RYEVQlrd>@pv3&wllN5cA(QE6Y6 zKNp_A_ya_Dfsnq9sBfB1fD;L5K7=*gLFP6QvYV&h*6t9F=DAH=!86>*jI4cRa?)Pn z6|tXqAs;Tf*7Sq>d-dp?r6C=Xd`NqYA^zRGGu*9ei%Xr8*;e}(-sMBA`+rvIrLEmQjFLvk-_oeQ zpGGhV`-qStNMyY&jUZ+(_!w1Ouf*BbZXZVQQxiYzPyFJYu_kdMbgp212z$QjQ-oZE zY~tbU?QA~9{Lv0;rFIc^^C`wSeF-63A%}T5d%G|}Lnh=nk(gv>(lN`Qbi~}!G2WMS zjL?vdJA$q4E$z&~gS<%R3a~cx1Fcx z2g@7Qce%e4^8W8M4!VDFC!Mj*3ph;YMo-L*SgS<1v-?$$HOG|vx3$~HA%uF8&?GMs z8c*jdcdVaUM-VptXYu(%B@h+HlrGT0uE#GxTf`)iaBe(Jp>Z z7vh<;6nbXF{v(|o5Hk#7;&Is9+5C?6l?M8t8SH84;@-MWt}Z9!Jfwk#v$qFFw?=B9&(LWwU(58u91zhBdxsF>ZS}Oc8{PD3o<9A-gE9~IX`P4fug&`r zy&KjYkUOV&9ogA~LtU^A@FiaB*{G+ili0gMpf}hPuvuBJ*1GEWn2I`Y-yBSQu!eQQ z8kXE4M21ZIg~qLBZ9;IL;6C}=ed1sjJe@J_K`+f%In`<{Z; zH68yWJc(zVl6z%L^C0?2=rW{+$7gR>!g$;dBLu2RV0=3gh&^=R6(0-TjSGIRSZf3k zKf$l{`3D=j+7tazf$V~4&hWS$?5OXye%LxFkU0M=kR_1VGc*rqH=!Ltd9+=2yO7;U z!K6B#j-dg>a#$eJ5ww9VzQ4H<2fN_!%JyTf*4A~tvd#)2`3D5D{GdQ~@^JQcrHma= z#sJ4MA|GLg1o9BlXy)PU?ZH~ie-TSDCM|fN?u5~Gjk}8ODYf_alp6%{G(>k+iO=3H z_=uR>1Bv?nvy=c5l+_M{F1-uP5o76+*g4 zbR}Uz2Xg;Oj^0zJv~35aZG-6Zl@OFA3}xv|jGqeREM(F-B~E+0;2~nq6-b=^Ru3U; z9c}$YApfcn$QmBj-mdJMgNgkf;QksM>ut@u7}p_Y9@gF-+==ElnC16=IF@gOOX`fY zJCQotR&QY3+7IJK_Xp|@eFk8gqwD4hXuN3sGtkmE}$%vFGX*uU4K*v$@(0b2S*@%I50e-gJH} zqOqcSn zM-U%De57rBggDq+pBs88&kgOL>+*f5;s^6ugsbxGn(lGq=`(jX;y0MB^YzNJy1w_< zB*A^1NwAPd*b0!ZRkTio@9#VxxW5YybH%t2LRz0Dw61%Er#;Bi&0(ay@{Hf%Ig#>= z)(7*xH|BjW5|qK`eJ>Zf-cg>w($8c@x{#45+fb~*op-BA{u<~rB)n0)zn^h*qvNca zxzlyK<2~YFSLz57fxVxfhmq}1wT@p;V4r*V5#oElj#0l6F076>UJ}@MHTsPne-RIT5_D-$wg;4R+DF(QP01pL={L}1S9`#tjdXqu&eZfQ6M&*(LiT>pflbi zG{b%etAw$Mo0mYmMz`jromC*+Ax+53!&X6g{+tE6sp#iutc7f!N8Km=%meKc44n_g zx;+^696Y$4MetM+&kSdsuaDFH&v9(&eAXh6ZZ}a+O-fz+($Dm;2K7_+!T0Mr0e;9W z59B`MP9lh-L8W>DSa~Du1~T)0Ns!GL?7@VL2(b~ZhYz*#8>)jXij=GQV zaj5tE&j;Ca3U8u8oSOBX7G(_ez!>U|F%)BI9Q~|>uJ^IVicnfyu+=%$sg9ncW0nur zJ>H~aychOpuxGI6R&_$4JJz}ytaZIfV1}PnWAQfAx^&~8H`?lS>p<)yATdn}mAb%K zfcSzUJX^_{iqt@sBW-bniaba+ z`s4mk$Xwp$?3oAR^N(wNBJ$rz-z?b0sgw<6iboqqxVN@5_TV1#$OF?ah*6QPF|Fyl zaXq))zc&_T8mD4r8-oWR4@tX`k8emvVHaUqY|~3;!uPdkW8^g;LanqjbMuCq7u-Ba zzzYhsOpAFcdF)CxJ55`h&jHO;A7xVC&eT zgn?hQRWS5C7PxM{Ip4S7oa&^b?dZ0A&owfd6iE-1MVn2hFmLx4v!G zVzzRwTCXB?5Z^1jErMN?y3SCZ!LfWKH6tHakq_(rd>CCH+_o3jsz}x=t!>-3k8XZP zMLvS`;pzGMs)=ueFY(Q2{d~u^E_r&BibTDqBGKIMc9_4nvp*>P(}=tIowoYtSmyHg zRb&Swk;kLxhuUFXB{02cefFlTz1)@0S|VVM^R?RI^C(b}xB|OzM_C7H**JiCwLQj- z_JjScz80T4FSCb{=?m4pHfu5V9ncCDnE_eO^A_A6x+C0v;AhEZw1E)lMgoPg%I9Nd z+cy>Xp7`(>Qnyt_?o_GB;Va78)7~!7J#9SpDab?6-~fGaf3G2(q2nE(@2-5l&ve!o?WZ9=2R)3)-wcQRP5*oT68=Fio<5=?UmR&2 z(}O#!vG(vGnvB-DlVxLPSV~i3yDW3!B>CTLQMr~_* zKb4j}=SX%Yu3wY;-ydUK4R%nI4p^IYK!5B2-Rv+pK<8%vJrKKm-@1f(^$!(Ue?_6& z19WCD+{tCEVXi2&t&fS_`7wSsMCLB>_fG^}6N%=!NOnTB!?4GNpWUom-8$0}1<_$qLbhqkSN`odjaShQAsNL!FF;Btlj}HbQD3 z`yjtTTw6ra0}=rl14)1^g{+0V2iXSM1vvmY2e}RLyeX0}$RNlgkU5YiAkRVGf_w%! z2Dt#a1M$9vJ^>jD84HPnq|@*9LSBHp0V#w$M23=K7|BPHC^Cu+CnHE8@xwmTlXwvi z;*IeVx<=ed80kQQNhcD*DgxsSQ4^71k4xGUUxM{G@kbvFAnk|~=}20?IG&W6N_2@c zvQkp#PDo41N=ZyjdD4&&IaHULn36UoJ#CpGBg>GHY4bDPkTupYFMFXbBPA_se0JLW ztd#UL+?l7tYJZ7c52r6^o%8mSr51$m!4{Ha2}tLxWtgDGi1c3 zXJ(DgUa-KB;c$Oq;{3&9(zDaD{^mN?kU2ji#psxk_~Z;jViIzho{^HZd~`Y@{imC8 z23khkof|U`)iON`H)}V zE)&ugq;rRH85!vr@rE3m2cD*V817^jXi{P(b7g_;+@~ilF{T=(qh)OltW;x+*^|-} zlN{XaLotUqR8`Ef#FW&;d8v-U<5QM6I?O_K8ru4u3GGpu#?EFd7%zgY^ht)C_;fpq zotOCKM#F@p_;hZ)f4fy_nJrV%xarwOs^W$u#Zk##43u@5!QN$hR=Uxsc$#W7r11t* z?%5n$ZL}s@ZPRU~9-oqyl9_Bs8k3lsIuH8DZl)RxMrO!Lv{xybV5=?Okg+5sEisGb ziB%rIN8g!ouk|-Ho+>A@Q51>U?jX25aLaWPNuHg*&qOB@3x5f>Tiw2Pal#lNl3F`| z4RFhYzi2yuey&arK4FYLi+54pw0FoU@j5CucQh zDdz^xHJnDyB+fX_v7CcByK)9{syLh76gF@k=B(x1$yv&|k#jZY0?r&>p0gsa7fu%^ zg#nyhIklV;=M+vo=Q7UKoEtc|ael^G%XymfI;V@X!Vpd^XDsI&&Q#7PIrBL;b5?Vj zIgfK%Ih}a>2XXe}jOL8z)N`)jT*tYCGlAD*tgZfe{T1^2VXg`zIHz#V<6OzPiL;t> z59e9VJDh%Mg*`bVIVW*G#+kvnn)4mb9h^UMUg5mQ>B-9x!r7g3D5veZuHxzN@&<6e z$$6CDe~jCQijLvy+VsCb{szo&&JmmwIUncD;(VF&9nK2QuQ~4s3NLe7IQMb>o72R( zo^uUn8s}r2<2fTZJ8^n*-r?z9;ylTz=Cobmyj~(XCvpaIZs08E+-a+4m18_Fkt|GE zn1$HPm1nbI!Wolj%%tyEqb{Qj3scgt5J^c-A}=tPacN21UQC`yTxP(Gj$l)=mmp*& zG1_I_K_mZXug(Hn!HFZ|vlDU53G!m|=*;l!Jv3*$Xau%OV3PU3n{Y2<~rGsnVGoI zK;PC#T_&X26`ka_y4^4O`c^l)g1^OGS+U7FZc~cAk=q;#y@|WFE%GbeJtirMuM^+l zE^M+TZ*!Ycyf?YcR*YE_rc9p9R=xRTO!|zpl-BhF(Zj`VJwXy3?BjCi8$!mUPfpCp zOioOlkcM@!vXW%R1&Q-n7L>^y{!sq=H)7I~;tZ*V#QW<>?8U~UkAX1@fzU8%SR0c4 zf-WQ7I5ROLB{2;eVMxrNeRfQGd}8L}$%ZB4GYkfjo@#h#Fw1|GfF($_aV%C(nOPa> z%UhR_lTxtSB{8=9@$`EQ|w8FJlwalCX?jsNySYrp<(O5qN>pu{}b?r;@JJ$C&Jl3`1HL*N7xS4vLe~ z=ko-r1Z7>ywGcHV(=g-GmZfB*r!7G^*6LU_$B^#MsF!ie;D#B;iD@ynop+v#BZS&MdN5DYa6`#LHz?N|Iqra$-h&`eZDvQ${bxAoYPjD`is3yo|(* z<>X^p6KL}J=+GGk`is-uBHfno`!Vz@EWCs)3Zt!z@cE+i^pu5ZiK&VMdKvXdI@+}d zjhIH-Kjajbm5RYTD?7tLb((I@ zj#IZu>FJBJjkaz6IA}Zi?HPJ!W=cj@c4F#`H2QON%(%`o(vn%#B#q0NZ(y5o^d;Ig z$x~Eo{_*xZt@UGTD)OQ@A(LCuGsYVdX}&NwWYSL1>F;fe&Ss^q)0byv8Q88gCX;q# zHp{1qtt0q!Ixx~%gsesi>^a6lLxwHppIIDq3duIoQFInr*|yzh(ciYmW$|L8d5t0) z)}ZT)4N2ouvon)f8bo%U?l5Ky5ynw}W1v(i=pEAy%5xK97AF}nJ^jty7h_DSA?t59 zlI=><<{p%Px-lh9c|cI<9G{xW``|Werk#|wKG{xf(`~jYYGWhRclH{`bYy{3Tw+S5 z;eLZ*-OEQ5o0b{`s>U|k4*Ommla^$E@9DNR$x=vS;cdYSCykk$NH^0M_2BQA(t1gJ&?YmeooT^xqk)tNtZ}GaSu;S(y11|<6Llk2 z+M}TQnV4S3=;${JTJ4k5lW2S_?Kp#ylhgFRk~WPW=|3fmhe{~xnN`d@J|!cQ<$#rS zJ#(9auBFT|>%<9}XoHj_Itu9M%A|(oA%>>DnZ`bK++=G0p5;u(9?P6ma=8Q(99k+3 z!_cWVF0;rL@%}g)pKcp`iPUDcQL;{F>T1?%54!a^4Z|CUmYtAU&eI+0co4PI;^@*- zsCv`!ZWgO2_Na-3DK*UNaTfWny6XH1I|oD)pwPsrX{XT2sSo7t?YTeB{2+yOocdsH z=gbXJXy(*);C4=9sKRQ_=#JdZsqe(?oTM|)2d9qH%t^v{ykU<1tGPX_3%}24=G1rP z<>HL)<`_Pg+s!uj?%ZGZHvZb!%{F@v?w>Q4)67YF^73%zbJq2A^r!8`^Uqn$Ny2&j zoO;e&P7`NcIJy76X%{;^2y#)*gK2bDX#0#r+etY`M)w1c|0SNk?gFDGU!m<%%o_T> z-wG1>?otv|_4Sw?`+UobVNV?=w6Uwq(pKL~Jr4L5*Aw&9uV4Cc_0)N5?CsjhKL^d3 zR_D8=0{#aNtu|B6e+&yG^_y3!=K);l4N`Tw6OOG}{AZ~xzVzwM>(_+bC} zi<6l|8Ow+IsnRfi~<6&g(@kPf6|K0zg`qP%1 z*zc^gh5Y~aCH!|TRhvuXmo5CgHtU@hKCkVG_+P_k_;rWJTNm*k;{Y!A_zSx3m!JHf z>;G4m-I;xq6S2|I?hzTcKw|fZ4(AP0y8B@t@sr3H2HEtJ$k-E7{gdc$_8?^n#Qc-U zxD0amC(+@ILCPbLJ3onx7Kmn#$e4mnPs2~5!})-e8zD)1L`D;2%^uO={6ETHA*MYd z;~$XPJ)*;zf0Xwi^?O7{7i_Lt_J|JW`%$h8!uou#$oM=&yH|8L(~ojWFn!UD$T$976&V*nTK0+# zXY*0^!zNL^Ph^aMgzpm_&g7#khD7fZ8Mi><_lXW?@KH|dgnHg5GCm5)+b24lw@3Lg zq(-8^1NSUoDK=!FFKr|N7=g@^1okX z91Ka=FFKr`N7=gi0Uu56MEEuG?+n+Ha84fOBQhb~>qN$d zkmx#*eGgQMCgh_!k$rFUlW0Z%>Gwx_#wdBC-y?mEo9)l_qs$!*J>M@fZh|yWKVaGz zCC+LvXsi-83|u=NItKTAFg=!#!v~NDaOXtDY=3?mYVPm9*^OUywD(vpxxZ$AG-S ztX)9JiUmqN=YspWS+|go4;CtQYX)`6=+_5Dhx6s^&z_@nS%SWBP-GkgX*eh{j)648 ztOGOC2yr@uw7?1JXaksa;L3EREcu{uDaPl+B4bt-`U}jt;D&5PXH1~!38ZyMWIX=_ zZ}%KRWGttX4vP+Fr%}eNK$ycK<6MXtW<414G}`Wv=x`<+<@%M#=V6ht5E67)bU35V z{`@*h&li!_A(1fvvgwe>C_^e~{9xous5@!~Q(i?Iz-$Ej<)h6Gi4NztQTn__$jQSZ z;}D3ImJ1Bn0NsZFFfi~9UUo2zn~mVox9OqKqQg0Dl;mBcdqiY(fy5pW8M{LgVAg^C z_?d0?=eJQl3rRg9GUmNUUl57*0{6d<@IQ+VXCP7DfFv9j8KnY*JuW(&fkZi>5c+pq zWXz{>Tx6V9f;v4WI-FxgSzn4etQQ%tL+;dz4rd}!K2r{zJT5X8Kn@=l9nL?ZT)qW5 zd0b?C8RB_DbU44w{%kkOZClZPM@7b|Rp_%vMaE)?5$0-e@-~!_)&sb*8uxw{9nO`a z)O~=oj*E=(kbcKShx5lA&L#sdL!9bG#_N!vdXcgHN9Y&zqQkjj_GgY!F8epelzNeI zC1gdt$oM|wWtdH1)Mpq2QP0ufj-6;Pn9X4Jm&gO!*95wo(J$bx0sp9lKET}yj{89= zuMP~_kG6w*7m|y5B6sjQI2;L$cob< z3qT4(C8oZuAt0@s!B;2_z5ZTrYuq=q-?wrybAup)A)R55I_vwUBz4 z>%e$lfmEIr9nO2QKMRU-J*4)O$QTle_)m$9FGDV!5*ashcgjy74ckf4*I!}(

i|B9;5#>X}QO_2U@iOEj)g^GGB#?fn&uDO$ zq|}cYyc+{OIW0PzGiHAVnf>`>lqnF+DUtC>NcU4B<0VMMDUtCH$XJ-IVEeJCtJ8E% zD3Gtl31k!UlRI7@b0?sTa5qj7NZ3>*Ka@XARdl`%d{n2H^h}Z zCCH^;MTfInD9h%eets1h>A5iBzlsj$!`Po4V}Gs;2Wt8O=jH@tfz#;1tb2NBko#KbQ zDv*V*Ds_?zdgVh0sDJRo*HJF$p&1;`&y2D^KZ1HZvIe?eq??OV)! z7evOx-zx5u!QY_{FNhB37Eyk%7w!J5$aovF5oWRv>F&q)gZQh#vO1K7n!%|D6n)Tv ztGU_!{4&bzkh(J>W9LKA$upwES!I-SA?mXt;{izMS<&JAG)n0x>gtTh7zf#SMr3>( zQh7#nIM0o;3DW(H$Vkt1i##JbobN{YHe}8jkYsuvTqzy z=BbU~RY)=1HOB=q2vQBR4lIDwz+4PAA6NWSx}Ss@?w;VQ5T}c%EAX3BNEhba^bDHQ z0^6TDfsv<``lNLG1@!$J%Cvh|79Bwv(c@WKSXh-lhNC3Jb46muiE?k|B*eai=j6BRSB07XH?=3ghUjGN2BAu7cj37+I;%4wpC zRR4~)0QYfo9k|#@rPKqs+*!ruz7=3+7ZsZ~!@xdj6>)<9eqfoq;-?%8^-!_=Q||Uq zvG$@I;-#1)!F}F}xegratHS;a?w~3_MUr980h{j%MTm;ck?yT~|VpwdR8 zKm%kq+>^n55ON9i01ncsm>x!euW6P1Yygu7sn~Nl%8Wruy=8$r2dS8T1`Sq`#|JC! zdhmsZR3r>>9tJ}q6!%atbqLCJNn|`RM8)p){bQ_@}D_{-+4?~QXM8-}dmAVZBpW^0naB&p;(L8`ZL@Dljz&IKCgnK-t ztfWi%U9^hafqO0J7K1#)>b%ix8FRU`@SR&aByimZXz1n!De^v4XkPEh>oz|9ksdNWZs z?oMgpX37~8m2?xpHzumsT680rHc7?COe45!lH$h;ix%nj6 zb&6u{4rWhL@{nWPdV5)O>w6@5(hnjdp+1NUB$*^%FgjBQU~`iP#>?POIaSTgxw9^=H{RoXj4eQ zWsz~nOtc@&k)V1u#=6TQqx&5AgV_`8@h`<34sLuLZFE^=e0DDS70heE$LFCx!>k9N zpU3qLJU@@;AM~5Av~K_?adR}dD@m!hS}0I|fl~FM}fkPl{?gmr1ITbvXiLxNwli(*=Tu;E4mZ7cT{xZ1# z3FtJ;b)afF@(;5Us9pj8w7lRtNPrddFZd(G6XreO?G;KM?to4!p;uOsamGsCFTf4l zOzHiMQg#ja6C?rt8^Om{L5E=0gTJj-@^cBiwg&A1_ZIM(=MfLgx!}4NRcx=c5!~{U ziqyir68v#3%0=@AKK}~pzX|#PI4q zRb)(fT`41F7B^G&e^W(H!jBd#c~iwcH{S`Kc~kKd{T9Z_w^VEmUk@JJsFdp@xb$r$ z4_RRT+lv29VCXwaTT>>y!}}EY>N`pu=7YN-Sxq9N+q>w4FnfX{-c{OV4p{phJqJ!C z;hUjLoB3D`&VFBsa}Kx*(hNUl&|p&XlML2C`dtwj^#y2Cn5)4>g(?yRb1HbIP|0%x zIHrit7vQNPCI5|Jmtqx3hX3y1J0&WtB~eE3XGk8*^kCvmShC4_~W*2O%5aZUN18%37rsoO1xWbX8NaLCVGAHc|CaBmhFUpl6=%gbQ-F(n?#1;>@XmJH?{ zS9Fr{FgH_nKcSed;Jas3Bph+xISV~$KwpEo799F3AFsgoepRv0i%sBT=assh13r5} zMaIIv3Dh)VjBXYgwT;U7O!*xo748<$3dw<4dr?JZL2_YE01cOrSD2H*H!mq=*$94o zNy$SE81VA;bzJk z+h!0}8_udyIc}- zo#@9lq=6qRGAc1M)39V->hiFhC8=qdQC+h$(ne&?Pc|$`%##nQ54x zO@FS=?Qmg-A7o}3=rKB1b8Zz(Sw7)$r2SMqNdnXx|8B)Vi>Hkq(6Ei2IElXc) z$mklDof0#j{s1(p>w?78OhZ>`)WClT+?x2ne@=bWK!?1J8hF3Zu#XyOt4~Q6ql+0k zcEXg06B4-L|Bjvh+Kje&ZE;<(wYa62lmwN8m4uhjmuxlChAdDQXbOS~j1@T*xfS^p z8!Jo|`yC-del0ZfpHk%htxN)~zjDNu|0{QyEklRvBKY zt&FUUu8ghJRVGyGE0ZgYl{uBUm3fuB{tF$z{f}oU+`qyt4eVjb-I!)nzqh=Cazdy0ZE*OIb^qx;&^n ztUSD2TOL_ny`^T0c}wkeSVee+wj#13x+1osdV9@w z^Y+^9b=&K=TedfDw{CCQPG1CflGd?FZPJ*6Okt*QQ@&}V$z&=wRhw!|W>c-H&Qx!* zm>Nx1Q;W&g7GVY91=@nhg6M+S0$o8ufxaNQz*vw|kXw*fkYBK|z*JCPP+d?{U@oXF zs4J*1uoPGeS_(*^x=>RXR2WtmUZ^dMEQ~IUEz}hz6zU6;3yp<2g}H@!h53aW3r&UP zh1G>Mh33NA!n(rxLQ7#|p|!B3kQAwlG(|y0VMXCZ+M>v!=%U!7pzUGX!?$a<=WXA( zy&NU1Md=!8$xxwKA7DICqg>&pNK>pS!IW&uG3B9rYUC&!xrr@GC`vBMDatF_SX5qA zQ&d}2U({ICQlu^pDh@A>ERHQsC{9Kj=M`@(E-$Vrt}U)FZiK$8q3_`(ktMMu2_?xT zIVE`|8%xSdYD#KL>Ps3+T1wQVL8alPk)^Sv38l%UIi-1}8%xVeYf5WN>q{F;TT0bs zL1p1(k!7)E3DBFIvOK0SHPDv&vPP~e;n0)V@`Uo_@|^O#@{Q%?CchHv@?xE*gL8A$@ISiT{U7@ScR~XqiV8R$+M*p{blddXjN5Xz`>tKMebR=3Tv&AN?j z*FX=o+oQMZw(GYWx94up-)`Dojs8}LzGmG{^07~%%L??eFq764ZPJiYlLS( zg8mVPz7budE7BJki*k$di%dn;MdqTqB1@6Ah!ksz!-}=V(Z#xAeX$YaO@6VdxVqSk zvDbppmy~EQ_G(L_OLQgr5@ShjNq&i`q`JghQdeRrv6hfhO=(!Ewlum_SE?^Hmgbh` zmzqkeOUTN3S)a-{zX~{*%V0M%1jjP-8bPHKMLsP+Mx$S5R?2dSXjS z5c*&OdY=isue!96mG(g+yE3lVRn<{9b7XRGa4uzdW$e8Rd=yo(Fy50%$OHmC!63tXlyQxWtI>c4C+c)E zV@{JEhysct5(N>juPjU;$}5;e()ZAct|+>zqV8V3tGlAB5%IxH0(tNZpb&KB<%5oc zil`7!nSa$e-IK|4b+7yVzu)(L`7!k4RM)9fr>aiXc?ND+Ay@@LNQ7TBDhO)@{^u3` z`Jc@q2>nK^>nFUPvh}RB7G>*MlV;yO*I7L0p4;Z!e3x^^&3E5@PtbYGtMHx%%lcfIm42ukzCo_Wmq(Ez5cR8N6O| z`;6I`pIMedzaY$fpqKE~x7SWL-yIds7WyRg69qj*5LR)H9N7x@c6RHv2m-%P5QJXr zRohhvjpIy(KdVr*)cnZ2bbfAkE4;q1kFW(ZaE=q!EQ9N6S*TbX2e4+GPzt1YH})2W z3Z4Io>Us+qc!hMq5}(prSlvhH_V0q=t))S@j{e*zCzd_2J&Y63UNC3o&B2=m;fDSR z45yF|*CQ$I;DBS^3pkjtrucIBFjWx7VM=O8xX=Z~9I#?BFRM@n*KwWTycf)wJ7)&s zTgG`KRKayqS8%u9dCv@i@d$Z^BnsE`?Fg4E{9pb@%8z6at#8SVseKrbRb0_ zYSJz6ij;52Xc_QYim=7}gY>bG-Xa(;;rR)CKKiQh%<)~$@I9J<_)cXDW>__Iy;m9MtXf6zh5uk6)W{`cZ@aa{gcJK=2sVjP}tMU3+grf^i_;!$mh z|30$~-(Gxn#^Lj4g@`tw($*VsxrYGWYx5bUBMupOkF7EB!rTA8Ll#=zztd{syB(lf zn%1=8TZbwG33dR~KmJn+-oI|5dSML*Y|o!J?gCKf<|G7t!USEoCdGViDPGf#|4BiB zU-O&x@Cw4m%JW7tE6;+#P@V^_V&z$4LY^I8p1p|Q-X8zP>F|{>w3lF{v#*Z4l43r$ z9C)Q2{K|Pi&x%(WJ!3y%^?Uz3nSb`iE1l(`65*YXF!_-={2UX$65)}r@V=$=mG(7C z)Eixn$=6;7crs<$O6V~{TS$Fv6#m2!UV%hw%W?(_B_{}-;0RE!ozSrC4iQhYxU2%I zMNxyULRm|65H;Vf&=ZQf&^3jWpR~`hD)dsKC7vOB>gEk8&=PwQ&(Zn)70>bcN&c*8 zq)&jJR@|o}0QQ3%4ar*SaGCDb?_QrG1ZX{>yJfmfzX6^US}SYmBLeRF0xk6lV%@F# z*jva)p^$lGIF^UQkkHF2L%}mZK4yW*6sr^MRmmi3 zCDcRc)i!A@`U*(QWA9;I=Ua(tMS?N`w{v=}fsd$ny6i|gaB-o_DP4>B75Y0ntB%2h zo(xnT4-P<#0a{1sW<4L!$<}>D9Zu*yPEz@0u)kP+okO7;G4(>s%=$5=&d5KXUY9|v zwF(VkeTvnah~|x!9ki5%Gk1JZWh?oT(?jocWfNd3QPf@p`07OprJLFne#^g1@8j?G zMDLP!NbjXR(mNua-b@lla2&nFB$xoj`p>1Oj3zS zs=`TK{x%Y`PexMbJ2BNDm8Aw_si4q4ntwjL1bNUmTqy_!O+ikRS5|vV!-ZO@QY*p%iYE8In!0!m}kn8`{-J zK=a1eN19Y+!wUIKQG3^JQRqKpb*e*F=Q^(=OOLE!pCs)Y2)=682BKEDUSz(VWUu$R zoQP0X^O{+)C7WEIcfi7Y?otQ%6NExzUEx~6P+X>HimS*+r9_%0rum>?s?PJq>WctbUPWIh_Rn6G3 znzLj3nK5>(;_Psk>_A#GIX}Qf@wu`)GK3{FZg_zkHp1Ca+MXT71k#HUxEM33LL8hO z%UQwkC6*DH;yq?^`50m zA@HGofWZeJ%IID~Pk|Azlgh^6Z43^JlHo&+ASaML{>sq3qI9CU&gUBaTb2@W(W_I# zhX#dD4J$uonK!)rRKi;1q_ozJ|BJp*6~LOD6su($mdUB-%@u@5ABi@h0?qmy{CnDm zfFr7kgrdwqiOOC~VJ5#6RHx7=N1J`Tjw|i;_N=HvchX~W_zN(Udwq0!pz@<&i8!K+ z>r0+3m!?*Y*AlB}J>5aXS9Z(dE1O98Yo{Cy6D#CjBdK=KCMU5r5bMc+XY-s!QW*_i zOlX0fXjfZ^XQE?XDxn|%o1=F27O<*0RV13n9|0MBQL@u8hqdio&MjMhrv16vhL(pm z$Zx;&7xp(waf508B0!JI;FOO|Lv(;&Qbso`%PBow*Zjr5f zb;*KxUkB}AJ<8A=Bt@NW>)!U(>VJa>zGHnTE*r3)pt5J2hA2#z(=E&lI8hKm@6w1m z$(5PaNK^tEK{7;pf|%yDi}rDLF%4gh151(1f|#n_008EXWJ8Xmwrl)PoY5YC3NxT$ zby`&+Ao8+c$^4vukD~64AwUtDg3?nY)1$fvsimz9;Vkwwp=UCRiAJ3IA9WUDdATms zBXg!8Uy2|HFGwe$8?KWk0sbivjVkmI@oW++QjoLi6wuV`!G6sKQ7v{T>TF$6iw}S> zD(-I-wY1rv_2sM;qCIbgOt*?@$)derwU`FMojq@jn3nH^=MX$+!gCWmd*S&&Ks|pr zyem{NT)U$+;8{4_Ht!5s8xI1$hgiYWvqbGOh0xTh3~yy|=?D5|2<-!E&TyG3!*!WX z8r~{X-|$sfMrNUSQ-sFW31rCDNszX*zKoRt*uYG-1g3TP0kX7~z19j=$et}?<(0rq z3~ap^*b)U~rjXFrxrK&@Qsh=Ka;<#B6zN8$%fO#tDb@hDKUfVQY^So06S|kh?{uPr zl%KNCIUns=w1zA_h24~Mz*Uf1NqNn=vb%w3c-uN+ekQ1?{+B;u_rYAK`aC8>-l{B8 zUh5>D{UxtqO=Th#+1!{!2W*U|{GSAu!H4AljR1Ri;acorI4Xwo zY~`(%5~pd+Vy{#2b&B!25Ja}#PCTbe*2lSdUD`90mqkFf!43v|3JJ<4+7pbE+L-mn zQ-qj3F3_R02Z(2La1=1BwMPbJAcNFDqzJK^%PS+E`jWRgQWYKW_d_XysV@_+1(}v6 zOV>)Qp9M9?iJB9jI*K^9bSdCZgB;7@(+OzI(b$Ds6Ue$K|GScSYQ%~o*x{m;S^&as zLeK_g8+QP}yd;@MBYlXLW05^kS1IR~lPgZAi}3sEtTn(hC1ZS)$61_Vj%r(lNk z40Po@2TGC@cTHqafNp@RzW=Y-)sklel}HS@H^}sTeG9x=fx-lq_afk!9WyUK^ka;1 z$TVbLJmW4v#uYw^l9e@1OMQ>11vbL3pkH;^(;`imZjz>fSl=`i*cUtq?9(3{-lcu) zk)Pl*oP>r6Bu{pK0}YIoxsr@qR(Y+#&k?dGBvurleb?SKNGGA)r&IQ3F;#Cd0 z_yjPaG8BY%Y|6Q${F4Jj&1;Pei4M5`0Cv+=?hN)Nbd#>HLSLgfl92Tg3UMjXMt>_) zKk%=YLi3@z211<%Jgu?ns>kZed^ts6$=Y~Zz+DeUOds|#t1i)~uIr5IYW?Tc^(>O0 zj)3a=mZ%dz1X72>)lRyqu8sS#y7mw4SY2DtN=m*^<(?u>-xvXu&!I7 zu0dhnVGgvSQzAU}UDXIBRxVqr#k|ErawQDo< zwV#4mY7@Nh;MLs+v6FTow(i%0Yw|i5Ub>BWDg6}BvEX3rcYS>jHctS?l4=ncJ7Aw0 zB%t&RN0VKw(0Ml5voDyA=49k4^a^T=;6=&T2mwqc?#*PaS$&;(t)*W>!iSRDNgmkW zR^r|ZhLlTQHnWDCbr5C&WGaYhDu}0!#G4A* z3UvuS@Sa~JJ)b?=jis3Kk9g^M@6q;_LN5P2q*%X|M7tltowQzX6R^Y0csssw!rfI) ze1|^B_{?}?(!utB@&Y#|VEes>?QeRaOJfr1(U@F>#$?i?%$Shy=e>yaTcXZKdolv; zNtfooki30lQ=+2&Go@NeItVKPgxS?w2+6Ze1l47lCGVvS}E6y@&)ND+X z+Bc?zp5~1y_#IH4r%^YtI*s-;;XI5ejxqxwgKjI<)_``8Q&C^$8m!)lI>-AEP-UO{ zIHrgbZ3^AYf{H$h=MXC3`})X%d@#kyk~SicOtt%{L(WWOKNAc;?*7zRi zu>wY81?+kRYE#XE3P_Tz$HC>X5wI_^^)yizbgfU{?8Q3hGq7D9^vL=EJ)qDpejfL8 z|7YBq5csBP%4U`F8j@K;9EwAn(Z%b^xI^fZPFyT?W#bmn&5zy1J^J zFM>nB>g$yQ;%W!;Vb!x$ziU7j)ie9MUtT?gBDdmlb1&555#?ngrip8M}*x+?i%JNz18L?g~f{d6R<_{T2T3>a0|F8-dPHp z77z?-qz|-~y#pRSAm-|*49z$(K}-A+ouz=M1?^uAw|_MekzCIBGRAzT5ioxZVE#7g zpFhOSUw=g_I#(|L^Z-^^t3T^_z`RV71I@2{f zpe6pOfIu{$25Md#3Pq6->Go38OJr5R5<#1K9aN@BJRg=^$GVtg`Xk0M4r~_Gi-?*G z(Fa5zVH-=0d_w4c-XeSU2OUQ3_Xgl~*rgP;L$hd$?8C?nb8dN=$)n=Rmg#pZFwThK z?M2G#VtBI=?`e!wydd(yVTPG)hZm>-8TCf?VfldW2{tnqqAj)|O@w&%Vg^&E!E&7ak%fK0phDs+cjUYjh3BUY%tfSA7* zyWZ}W%YR6iQy^3DSHi8}LhKEAn&v0To`$)X$aEJ`b6i0DX&#@-<>3Uyv#I0+(b7NQ z{{1O*62mRfYQ3abcM_W83ScD~@KlhaVOdQGXxG@_eaTm#skXMLR8bY)E5JHUieg?b zZ>m`zr$QS^th;yZIU~=m`1Fs*Hgn5Ho8)zWN1mI#2eL-MBJKzd603WYtT2ZXU#a2! zz0sP;-T=KiQyJN$0JK*QA4-&|?2tjV$Bj))3-%pHeQ6*x%s>)D7n&G|C%t#@Eo6-ExeDYS7CB%7jQw93@>YKM#! z0->2~E9nRDP)>)e-k4yEoDXKCBne(c&L%V$K7en>*--oX<9EP@{_v96#;Hnw8}=OT zvRJ^9t0RC!3wE&>{k%mT`>Vk>;{9$mW@LF2SV-!37Lx&Co=#;y)Qbr!rM` z5)Imx@&y_8If>ZJfU7Q-FUBzenf43NtL%y=&slP>Kyav%`BqRMK z3Ld*Q!LDaScmv_ZUb%H%W5&XB|7p~ltR_oXanK62JckBtHnZMheBE8wsqQXoUw8RN z-R1MTgZKjK?tQ2`;u+8C?lLUtICY`3t?n-CP~hcQUAhAs!OK@$t2n1VD^e#(SKwwK)tkQM)6bwcc5+)Jk7FbuU275n-v zWu=1zL_NiZ_Dz)-NuDV-q>tESROLakYKvrGvd4j(j(gi5fb4CL(4aTeNe+1c+E&NeTh=m?Ar;GxukGyhv#c@X_bcHZ%U3eA z&g-yrmGKl?WIm@F$7Qxd$@M#WTNu;u6TG&;^Lr3EJASL;2y#OAl=ebOBmFsvHWW8| zB$1QZo2XYabHl2s;`-Al?#V_M9~ zyEv|kl#PcL*se1Thg_f6#QZXKDoD>)36l!4Wu>j&i8w5Ldi%%`LLX<=7j=k z!CHl;NNX(msGpF$x)z;D6EqIlC0EK?p%Y_{3ofvL{)_7KERBE8do*~cza0=5Q>{Mv zk)wGQK|QS{dBA-z4+T!_MEd-<9M9Bl@NCAZR~*kD3_RCc1i>WZ1@`&9ccSuT;!tF! zp7<4FLg$BNP{|?2DHIZA9P4D*u=+aZ7qmlm`o%^@M={u9CDBJ1uRdnVvj>cuQ+FGr z<1l2*Z=?B4hSABYN1Ix<0L0{M;>oj@3^gEXBcFq~fp2eRGL(cN_Awjl^an;}WGpZa$)0UIpBMj)Gr)jxaMFu>9Vu{zsr}GNVy%-o zG+N8Iv4{WlU>XPbwE;QpCA|+*u2Y~`svZCK)XLwDLCISKQAuxVSm&ko$ zbv?tbr*wsSFox#%k-qLnRH>mn4Nz`SH1LpRIu-o&xj@?|F;^7SyB8CiOl};2QzBZY z-e{58*z;jzpIA8snQgplDc}!n`{f&fk500p9DHg6MszDwBHXC52-BxocHv5N-< z)I0H76il49$|ktHZ3LQ2K;r_mMRwPr*W{@Y@4t$Ub_c7~fR=M6$Q~(g1h#LU zKZ1?q)Wy- z-Shv)B?kZh)II;3m&EuVaGy}rS$1Umc+GVs8@T zR*rV19p2unFo&enlVdrT5_#?b>epbC`Kt|+(=ztIEjCxu7NPFxr!n3TUUmD;u zv7UG&#i%2~CoCf;cpc4TW8N8PU9gVIt*nl`6H)hNP%%$a&!b$r6ksZ6|vEM#TeZe)AE{)5#n)Ls+)L>xoDO9m@CQWTy+@eM}aVALcrr}GlXHa zw+CIyvk&68*b!J97n25P6C3j0gS~5XlcGu4io4OD^^wuuOi*vMG{b+k1CnU>;#|EV zStAXSn3e!9s!Bl(;eMPwpsvDuxxA)GuJ@K=>rvI=fi5yI!mh>tLP*Jrd19K+_9EPpwQ#H0 z)&k60$U4Ncp7J6VtMYQzWm(f!UQ<7sv4alc+FB^FgSf-~tes5$#;cQr*70h(fSKq} zTqhJ)7t^emQ?r;>03|JK#t99O*8!eaVFMs5*%*i^$_x8CD@xb%rHqz(FY8vt4v{ag z*><0jt*ykfz%fr`6BzciP1Lf2?z+D>#B}L{DMH-LAa#Mg(?l)rL}PB;OJDVAn;SQy zk#*wkMe|xLha*?|D?SQZ$%(y+Hpw-HXqSJ#4cC~QoH=JQo0vo18}PUMgZHKXEgw6Z zAoCLk75652M~h+)dD?cEWwQG3!li7^5y3328Vl0 zI&;oMEOcR8p>g6Jt(Q+6z%Kh8EyRjlnZ2O6K6fZjOGo>{>kUdML2+9W;C?XH9F{hW zr7eW&1l+ynrbuO>On;Rn;=nIspBdH7KEky&Ms@G(p}LV7ul*RujB}PSW=yG#)$iMp zI1XU#Vzp|+hHfzg`^HYS%k16%ul2kChqxkLv$(7JW#!AnrozkSonkcX)sLUeW>V`H zRPh<^)E>RYftWJH>SpX=9Ykna^cp)G4pyjOL;(#_)Gk(|oyweQc9`OG!kg6Cp@1aFCHr zBz!0lg^F6p*z0X2=MYbA$(b_isnI)SX z#VM`hZ5{fSV_nM0^Y}#EOtT9{Mi*;g7t2$O_5!S>UW2P8I~jGxugP)aW!lTGCREd< zM>5%5(xi)93_+}PV!xn@Jv^FrfW?~{A9@*ZMN^94&-xS-i-;D0`dt}f009Tl{AB>Y zf;kA2p;oj~xbMM&Z=1afRxMuK_HErN!F`&vSi}|HJ zfxpBsAcIuyEU{^G5+u*o`BsU3PuBB9yHME}?4@Wqmqo08x{+8<`L#7$K_x01={6$z zPLW-QrKPP|i6C6}ABGRIKAN>c%~=IetubLan2epnvm;*+&yB9qd8~)I2sH$JqFqtD z1WuoNBcIG(9U z!)m8?{f)jB0a(*=h6U&8q*d+|)z9Jf#D|P_{jt6{6aY1eD(UfO%{&d9D&ljEM%*oX5|~`a`d@mI@AMAxjdT}+v>3c$ zvd+Z(wmz0NmPzj2`XwLtB=;!vhQNb_h!xziV)9;(doKt*iM%1;u}Wvc-*O9}FbbW& zv85N>fY~jU=swB)kIIk42XSyp%gG|1g;1{HZRMhSc(G<)>0oP(9o!fZ?SLh{UYw`%8wQgf*_S{&I*0|62503MxxLCtxqix zvW~~CPkO3})#v+u_iley2qGiwESuMs&gwglrazoZQ&-8+S_vm~?I7+Zh1TS$=?}|c z{Yt-fjYaW%6ijBBMK<}N9Uf`O3%r0&asdH+lM5dZ@Y8&>2CU>EgRB?_P+Fsnm5q!0 zO657KP|^z@mVB#SZ=pZ@EZ%WZ&(%`1K+YK#qjezN1ze`JiBT@pT+mI?K4(^&Ja&-p zlB-SG{v2g{TU#}A*?t#ZfFg~C+IIRNQYoeyik08`6`ky~Zt{6rf`eHX(pt8fWS z=mfiapPxR1owSm5GkpU~7>+o`p_E5UFWCi zOQAW-+KG%DhE7HX5C-&kb}Z_L!p<$8q_}bcEyU`yG2~~7^-3TfD>7;;bkz z16R-7g4GZwAJ9nT(!~3TmRbgmw3b71)tvj~Xb5dsz!RSHG1##S_)-zJ7HJYlZCabu zVw}q+6Zu@T*^(q^c@!FO#`3$NLw=JTJ!ZELvOAXm0-oFCjCuV`V;8lv_h1KEMt%VC z+Z9i1a9jZDD3)PPeE%8F_31f38NRKImYmP+5ek0G<0lQZXbGO?D>O3NOVrSK&BLgIt_S!;#Hod!Ua_HxmtPoaWazm>E+ z5NmPyTL|UZCq9G|2(qFew~}YCkACYH1K)sMn7$sl!sV9t+)(F%Jsvyr*Mx+^MfnC$c~sU z0XfO|*=TTRT3^l37(RX__xRt%CK&OJ0m_<%E-4$(1KL&cx}(7efNHK=u0m1-PDgf8;FmVTR(8?li?%NVi#khb8VKSc$2i}qgafeEzfAiFyE2g6?^-BB~s=WfV{pdKJGsLzd$>hp}K9=@NuNy1pZw*DTX_g8&w#t$#zn9`9Fg3l zfTu%G5-d=G{B~OhO(R?AaIkX+O+%iRo}$o3EtgShm#Vx_G(7|sHgkOBGw{+qpI8@`LvXe`KK0>W>w1&@BYltm|h6k@5#{fJ# zg8dMSPt9hCqqv00&Zg|TTe0*h_ofJtweK7ODTDmkz~=u_5*{c`5z0@`6w5y{S`^mp zKZR)5MX?v5u>5rIxo3LI>adH$TXiw-*x=J4wH&Zzo3(t-y{ZJP)IvRPD-OO?C!UK{ zT8Mplv@ZUuZtHW?TC+Y0t5CvfbXHr9-svim-!;V*D|j|ka9jJm4S6WjjmX0jpLdjE zR@a1n^D9)g{a@qs(D}b!W&evLJc0dHthTorwLKfhd^%J)`NegT~X>+`0HNgeVzJ_sO2?p>da~h3*0~293Kq-ClWoaT-oCga%?=Cbpu_m81wK_R+eQ z3w!Y?ZQNP9nmJ1rg3c1I2}fVLF42-nz*EW!wIuXneUIMM7wsiOB++hDH2-0`Tg<2v z&kG#Z-?&Q=@8?(MRB7uj`)sFU}!ypQ#UM31at zG$MI{%1}vfh#%%9Nv~PJb-Q?HTR|#AZKX(Jv5~d{%b`wwMjIE!Zu<0bT4E(~1_{@4 zPpkg@5fR?`@tqoA0+AyaIC--zJW5!l{F>336!@{24~_p z^?!})JP!4SVtlO;@Cp5g$*u$N^M9o+v+* zY^@2mTFH!NEp_9|r*UjEB-3~HXWM&2fuN$c%i$Jist*U~4mo_psfe#M1;kf2(>(!t zgunxO#NjWTxV3|i)wZ3BdvHrcms2&5mS|0LRkILb%Fitrf zuzmv;1m|!1zYbWB5|W*V>_BWmDrAB{q$C*c>N4Lpl5=Ken9z60Lwzwzq1=hm{w>}PE;s$FH-HNSMz}gHPUk}=}OfC5uYqShY z6R>`W0g$3jJ1o;$F~fftXM(8y?GlcSx60UmW!)o(zl6(^?mbHl%eOHqYduB9?)PAjyJ6hYG9eZSdT^_y(JOc zSUS0$PFqIkqBniCWKYYd7Wn>j+G13G!BGD5P{``^wYP)v@33&~e!NYu2{rW?nB1lT zWaK7P7-X-Z)v~n_pO{uBF=g;S17$|Z^FQu0L{F}4EJr>b@SJ8|TNShSeAVC8I)$HTd9KazLkPfKz0NrZ{ z7}V-sNZ2IN&1X5CjmKqclN$J1 zMsM4{3{>(kRwY)vMC(p8vkF!HFUWL{Sna1({+INcKDoH-`(E5cK5%by&H4;|7-95 zFK+K1c;f%HcmJEWcc1kB8SUMJ2mh7!F8kL1W7@lSAN!TtyE`BIceQsr6MJm$o}clr zw|9@<_fOipGjII4?VUpZF_A1i65_4f0}Xx5jpW$qAGSApQJ^F>uK}mYA2l|4gvX*c3;cawDq~%P`2yMCd|9A**?-aLxf-UzF8?X6)@p&{Du1LMW&H z%GG>8j1aXCUW@c;lTz5E3%Z;Ugk`&IDsG>%0V$qZ+qVB3DDha_>jQ^v+2}4VDo3H? zeU7*m6&C;{M+maCO>t2NsEOI4vE$LNk8X#HgBfx?mhyaPcY?Hz7T=$7ip`S z#CuhXKsJGUJ7iq-q2@XD8}EV-aaQP(`F;3ySZs}^LA62Ws#W z`^ZcGoZh-;8NIjNWzu_cMvBnZUyU7m#wL`pc~4ved2>Q#o1cDtVlSaz%ey`!^aR=U zrA+s#imNa{574a&Jtk}ZC>eQFUp~$vC^MQAt?!`~(WqZdcTLa|tI67}hJAwegq%2x zvk2+-33U06wYcSL_zSDN>tNY}bRp=Vd3MQKW64XUd8w5l@xh}BI69r~GUmPewHu;- z8kWj`ND-F}WFtWXN+BnCMlD@_{}$w~byM`9k8WIB{@#K9CqDDJYor~z&srme^35iEXF^)pW2*#6!zBr8%l8e* zGt>G*nm1R(v??}^w{h)5Q|N^D8QTG9^#c|Fip*Mj{lGVOm|ypW1pB!HCIr^*3fy8h z6M8{{Ze*0V9dX%;sdy{OZM!Z(+D(OBx6CE z=DZ6SrPDqko~UJQ{o{-{@xeLpWoH5pwA=viOD6!gKuEtqIB8@#kZ0KdSwiW<^OG4{ zBIz>ZbS};tkljs~>k#x*p*WJK9#D#p)<8}0I*9a=*5fy9v_9%%gc-B z!L4;OYWmigrf-sVwD_!>q;Lypdf3qPkK#2Q(*|K0*Yx%AnvQ9p>0v|DpO4pcOao01 z8=Ah16>4it)7vrzO%EHIerrtAF`+Lc7@DrcG#wK_)5C_QXT>xf6O!00Wj!)1rs?<= zHC<(zo&*$ReTgO(Svn(xLw<&e?+Vb0TCU>BGQ^lOCV+~kTB7+j;@K_UpUSj55wtrb zKJ+Bh?(tDRzacOq5fpLgABgoMQ1NO)cVXbP>kDE%F5$lWHJOr{=#oe7MVx@WDxG89 zH+Li3|4B=F4L7ulZelyU9<&m7SfMtE(smHfhjVjQ;9>)Jt?a3rlNrzwhbx|%Iq5Rp zhAR+3-rcph$)+bf=L|%Tt2$`%X~hynu#K#jBpL=>jl{Ee?x;3YBV<5@%jEB`M(5f6 z4RLQ)tl!F>ZQ?RC*q}Qp#8WFSdz|k*qcKf%;|8-W_cM2Uf*mKddv?tAFswDQCxis1 z+XJ2*NMM7E$6Pex!Zz!sI0APX1R|J8AZYE}v)j-N1mf)Y$uPwohC(VZIU1v50{0p7bG@9kJpVTN*0aDneofPCm(*Ay%+?4m3fmzR$+?8mMdx-pyti zd&T$aRko+J;wrA^E(ZR2E28)IWqU6#{4J(;*n0V_F1KD@XdsB+eR;ONaS+(J*@S{u z!lNGS=UT(6YOY<@=2?hmu47&wwwh+Qv6=?wiqEy6%$96wgjv%f2a+EVI2_aJPwIA76H{J&4=FME0X*dTN5Vfe1K=HW`gNhCUQ$ zSB)dz))ueJyKDry2Lmu$9{(QNBQf3|+-8yN5hvYFHk zNB=E0oxerI>AK>3b>*S`<*nC?%f3os%z5Gg_+%CMvI#}dhJu&(db#1{;qojkkgeBe zviM7(0-pE+!P;YNK^>4n#y*A>8$25+0Z>x@04CY=iWdxJe@Z_J{07u0D zCzyZ(Vt{%apd|+Q8x!!zX%lcy9ANWl6Y!@z1F$v*SQiKQN(}IQ6Y$9x;2Uv(55xdp zG68=V1N>7Q;ItUv{U#uZ0scM?aC8jtdJ}L&4DkLqz&aGfcqq zVt_;A00+bXFEas!7+{|`z#~7JfN3V+o*zxXQ-5j$tc?Nck^%U)7+^~r;FB@H^(J6t z46r#4@OLr5$4tN*V}SK>fFuTZmkF2^1FVh%91#QbnSi}xfPanyJpO|TI0OM{Lske) z3^y4Ae$OD;TTyVGVfvWXgKGi10OO}rsUY&toQ@Y2D)4HL`m=^G!VCO*|j0?v|eOy2o>&iKmx|N9z{P-+RDwc#?tV zz10RDf46wv{!RCIo-y&vGx7ZNOm}$Z_Q0R(OgtBuc;4t1PoxJtqKW78XAC@db&F@@ zIo;!_pJ?ED+Qf5Cw|IuQy2rD`#B;5Q=i{e4;Q_!pzw;cHe8sulBfHo{mSQ4X^K^Ga z)eY+&&llGic*0K`cxHEtXYugv@jPeZx!1(w>=sXT5A@t%;o_m4+`Ro!wXk07^W8pas?gvA93tV0B?L7E3z;7kIy9LrI{8AvFdG`xK z1>m?7-do`M9z6E~92deb4EgVbcNf6BAK-dD;2K|!BkPs~>nQw79M#2NQmtn7C2h5NCt;tMIeQ+zS_v996^M|P+9BIU8J;)|~@?G#_MuIwtl zsJpaNd~tYXSMkMDmv)LTcCYLzz6f60DZbdava9%_;L=X<#p^4(iZ9N-v{QWX{K~H4 zi<6ghiZ32n*;RbebV;Z9V(H4R;)@q9=@efSuk0$mSbRyR_+t9XuHuWymvo9R#;@!u zzBvDqPVvR%E4zv>te13(FV0`tRebT`m`?Gi_Iqg}-pmyGEYU+j6btN5btm`?FU-J@N_7oU#q6kojYXjk#Y+oL#Mk+ivkp>;ca* z6VFX1p3i>Y9iF!bcaP^v6VI6@o~OFSGq(r+oX9uuZ2P@|XL7fAB0b=F#l-V~iKlP3 zct#HD9?xwio-0f|8z1Qo&k#rVct)6bjz41HS@cMc@x{I#n7#8V1KEF@$O^k9YE}=* z@t-E1n@v2nZt)CH?;cOCiD!_BC-iW4c&_b%o>P7U&yI%;Jf+>@>DRw|Jg=E}R1;6; z!`;UhiG$k37oX+D#TU(aUB(wz^9-`}44whRvk!L}U!2qg;Z^uOyd3<^2O*BA6okES z|JP;UTfy&Yu(Z#^@ACf?gmm}~R|O#-ekqVv4A)r?ftwBR=TSj;0-k>d*ZTlohIbVJ zvm1UH@ccdeYE;}gT@Y@E{B}cLpFSW6Tj2f8a2*bKW&!?(;CB|JUku+p2ryIO`WE2) z+e80r;tRI*kdw{8UQL!B!DY=vd@o$yS}HDk%!-bC(i?Z<9s$)ALeWYbf?r-nR^s?> z1Nz{b^h+vL`N1^~W{9n>e

7(hq2R0Uhz#PZp2ND+6JDH3v~;WV_e^)#M??O~oh5yx@`J~u^2P)oP;{elVC`h^ z$+ttq!DjgsifMiaG{bgZ)im>9L5O{ta1qq|xcvO*vc*To8GMmwn2rBN!#nhnQ*F%g zsT%qL$R4di;G2+Suyb*{W{|&3p_9uvd-fuGKH=>70od~eV~g}TQE*O z02JxKmR6$rZTc#lPy9!={n{q|qf0D8%R}(ceoES~sTC>hr=;D-wlcl3-ITNym$Na? zXhpjzY5roc)Bz$^`-}CQ1uW+N_$nOm3=q8-zSts;5N-xjx)K_at>8&4hWl!0c|U}E zA?bhmXNlb<#J#n~rMKmgkQhsEKfh(6%fakd8P4Wpy$VUAo-$XC6r(j$Xbm%Hf5H{_ zTHjA^2N%7%!s2~W5a^>zGcc~V?uZ`3vwdF7!Xf8CF%CE9Wb#vy%eZN?gK2Xz(K&R}=Mx;65+y_NeKahoWGL!!Zk5mCkfL6EZO__CH$}sE?lzvc{XIfTbP6P8 zr2#^79n)Rpt14I=!FaL$?2~c9k4e!E?Ltx@g zw&RZC%I4hhGKp@pZ=JZ)&b~3;e8PFtX5cd74P5uUDQ?G`*9_itW#2MTYdLS6isl!9 z3N}rm7&O?ym*|wIKl~ z#?AGL)oh5@Gp)cz$`?4<(KrR{XstrFEFTXq zL%2eK<8zQe$VKryzBw~Wd_GQ{H_j4ZXWU~W=ffQiI6P9s=2dBYIfMRm5I2lEzAz0Z zCTWlIH4b=Qu^o>;NGBStGCpJA7ml^CZ?RPRvHJx)I&L{*GByoojWU`B#`LM+@y^XO zjvts_8~Gq^e%Ivd%p=;rA@qy4G7#OHXR~7#=gr@7cwil$-L{P^-H0sEe={gW@K!A@RJ6qqVJ)6Q=vKHC!EZMF zie>dmSzTg-pIuKLgohRdlRl%cKqOO6z_{dOVlE)Us!49}6otSH@2 zv^=}4-o(1lr^srr*oF$zr`2{kp8*f=GUh*=#rw+77VXJI>$|-o)=P&>Zg>7ZskbtH z=;l!VuJM29Y=?h;*{_WMzV`Uf{k7>I+#dg>|3muY&lksCOWwj+hWZ;L*bxDkPo`+^ z#jtBh1*|N|`m!_en(siws)uwqubbb}w%ohO`k&=Lrpx@x%X$9E|MvXf7~WO>Sw{ZL z2K?L0-(~)PxZf!MzdipqhIN(yuEj?A)Bo+|?=t^BM*hkF_Wa)%+ExBQ-j;#pFjUs#{Xn{`~!b&`Y&sb zKY#JB-Tn<~hyR}Ye(mz+sE9zGUlYaxh+rZD|Gpmv3KpgDE&<+{l`rul&P&)RiTl^oM*$%%r|6j&$ z?uWnkt!zZR6cA@MBI+D=NTN324|5PVu_IdeIpKDeO48YxjUDbb-)i-qI`D`zQa>)yk59wKt6K4H~SQu zuVihl?MQ^!Kdh%pG&IgLIxLBgge7-48uHZ4y#jN0H?alW^c2$AHF0b` zs98ANKlOdKi2*x>Xj_cTn_3P(86(p>dE#|=O2wV7Fj;!!MYhX#bxHuYG&~6suS*Uq=#&c0JJWA+D}s``C)U{fe>DN_?+Rc}q@kOnHkXn1TNd zDL?59_9LGCV#O1z+V@93l5le&A#$d~wpNJrlio|jYcGlI!GNcPD^l6X1!6@DJBLbC zXszO|m&?Oxa(Qdw{9phi*@au3x=+fqsonX6iDH$7;0Ysmw8&9^m6V9{RrV8Yfki4m zomi40;}~tlC3xJUNTt;B14pGkb*hxAP;*zOdP0qIE!}`Dk)}_dIt>?b`J)!To6nf# zcc6;;0qtbmhh!MD&?Vc67C3=>LFsia*3~!WP6h_=CvUIw--i8sBgAU|ZF=w))`vCV z0@lqpLVpq9w_pxmTdMr`Kn8A}!Fu>|JzVQ?dl5jG$ePNMH*wn^{brs?69;`0K;JYn zNoJXdJd-uQWtk-Fd9IX>2c8qUVe-UlrAb7ay$S??ShxUyYy$rmi4{w5&STlh%fyNj z);CsaSJYyMqLwyGn$(n&A}*_A+es_hn0x;N`u;B$prwk-KEjRq zbJk1Zdtnl-)0XI3PATym3#LMD{Wz+5yOy$(1I1;317N7MXdOU^6+hzXG1a|t76olN zmx+~MvXKr4I|NJrX$_WeqQi%KZwFfSt?%H>CP7TgBe+=w9srN~RZPLU<>M~zxJoU2 zgA}iYRWKG=x)FCmk;+;mpnR;jY$LAPMpEAbg7V;JCF1j8vHY)0JWi8nJ@K3hLQN*; z+`KR`=f1^X=16e8Vew}<(}M?dGU0yg;=Mp6REZts3HL@I?m9*DuV!7r*l*~>4m8{- zX0?9ie+fc+vg;YyEk1T$nFEXZ+L;!ks9>c68Tz5OyDng<1D298D{zw~ccDQ^Y8`5Dt zujZa1BcTYffkvl3-ayX!;faB~fg!hWd~QiM49f6*3Y$MiIJRDqXcD)3x4 zDzMj7fqAzv?p-9msD5M}c3JjOr9^hl=j$$e0@n�@sQrt`*H) zXvO#4XvN1|E7oEk8f%#NplW1d3x=w(M*rbCR1H6yFvAOE=LN!zXabq~ zkhlWXw~R9N1z5B642#JcFDQ-v>RQGckjg+2$5hBM6(Oc#eaBmItZByr)S}gvDxd2t zsN+X&UZ%Q zJ*!_r8=@YxFa4Hov~S4W@!FR^gb70RE&p8mzL>&ZY{K1A{Vkku*BCvR6=E^@*xW>M zLRjh@s>(|>0>x6kSCv%OVDZ7*y1Yc8a|*n*(A>lm&5$&>vFxBz>fIn++<-S1H&hj* zb_P#~Y>z`}?SwJ`-uM_5v9}$z%UVA@rTyHbeRp-*M$u|Cw(oP<{*P<|#vh!z8v6FzG2U#i`3wHQPW_|z2Pr2Xl4L_3JQ!iF* zWI`w8ID?nuxPwD-ep@0FZM;K2`e!su{aB3kOnHMnaz1;#H}3T-A= z!4msHBE$V%c|#)NroHOCX_<(BAj5yBtGGiZVs#%ZFGhf@ftWuLPbtxsvp0n9(XUKq zB;#lJ3QZRh9DJ?Jb3sWz1m;o7VTAM42cHzH?PaGH1s`GLgsQH#MV3L7ThhRfHm_h< zI9G#CcFYG491u%`zN3}1+=PRS(#t%HN<=7Gq>}Y5FtUxADX|^*h8?&uPQ1N_6~jp> zTGD4MBDj(J>lwQJOeW(?rlrJBP>I`duQ0ab-rpxONuM;r+C7DAYf+H$yEXE{9br6L?-U@RY4NLmZ(!5vO2d}Ru?n{ z)ENzmc8=plY}T(>Ak*VPr>u>)1n5S^9bUHp>6wdNX!IzXudp5`1$&N*6%LkB-MU5C zi{P%4={CJ!fH|rpRy-yc4d!XFVk+cWcI6_m@*2#XPIurow(idfp1gp(8Lyr1R6KX^ zO=DzsR1KbtcZVHMUdT|ach~}zp9TkJh1jY3yRo^F=~n%#^b{drJ)&syEsA?HRa~710#}f0+c@|sPQP+LqkGfVDVADhw0H)ot^)!@hB%#}V zn%AN)$ALgC-@?kI`b%40<7+v~fUYuDQQP!0zed$LDtk7H6@RyIYqh9k0+us&cqy%e z0%ZWrSWciDLw80yZ>V_@>_!nBfIL&bu&o%E16K47C!>*!)-lYqu8ji{&7V>pI$hq{ zZ$7BufFv)j8Kukb-%w+$6~*a7M4`2~W9)hCaHv^CTpXSy&TY2gT`1Zl(@R@6LqhqV z)6phF8AD}%MiD=q6;dk)8N1_sftYJDg#7&SRGjq@?jwt8w)6*#*XCcY&=hUxAGE1DL~Is08dg+zo}zd*1$%?r zX*oZW#cMyXjZp1`@{ie&QSsDR3&`B*%MVWOw)uNt2KV!f<}XcTtSGy-L-V()UGv90 z>DLv;j>!(Q`8(V%MKJo)u{ZrKX!nk?<|T~h1F3=AaH}-*r@mw?P1ADGqj2z*Nw?|W zv1Jz`>wE~@7P+$Q)B>@xh9h8Kdo~9PLF4O*x~LvL((}G#T6`NWXY$krM~l@aC|I`N z(CeI9ZnV7BCO+^9T8vYoSn(lK&M;^I5@z;jA2!%DY#nZ`took;b$$k}F92Elff=>T z-<|e2c6RGW`!WViXB_oE4xo?M`R~Clwt-@`{~rD60>+gq2eK}UWyC?6Fk& zmp~?8Ph?*%gD;oC^&x=Tj^kaoa9u*Xv|V@cTz)^P-TrDkpD4?xX&lSvcRZh{p4hiz z^weqpO14soPo~7-9jNjdvW@XQV zf>pMFKC9xbpz8-#X|S+Zf@!pQX2{&D}9rt|qb?>lGCdEax+d(QFVLbtbzAlK{n_V z7zZ|>TScC4w#zHC?fEA?eTKCuz2&(%H5q(Ud0vBwoy9?IRUha;L8&kZ`R4>v7z^la z$e;px4sUPW)pXO9`0o{B)wfhLLP8J5PPLX@1<%U`@_XAPWn6(XmCH5!H|EdtcO=`W zoHzfxWE|bOO^uxb-XF0B&AAK zA=|nzI`!6MP}MuQ!qhMq%jMZe8?dzfcB(z+pR2%ZuPRi=>fD#H(`5isX6$SQGOWAS zE*Io01i4R=14#Xr^i&S3ejmy&H+%hcR|r+%{*8M+of?O&ccppivN>Myl4g%|UU_yt zmYn@nE9Q8w8*Ak2F<)%ZR0tluEHD;~Qm2T5Q0w#Riz4kaEg_QJkSqxyK` zJHOxWx^nkybfU+p@6&L;fBc`%G-W z@g}UXDjVi08D^MDVOEe7AwMLU0^YrK7F%x_T#^d^CR0^Xn=)4uJ$~ccRAe=OCv>D3 z^7P%e=5i5+kjyD9@{(VIJ-iMYpnJQ`NV#Q)!@6@VOb;_}QIgD}l94G`_lUgR4;^U| zOw9x*$$sDq&uZkv+o|aJyli|P!nLd&XLGL}Yn0#~^r&n8fsdC1K;&Rhtb|Q-6gg9@ z0uhh|xNV|RV#aKuygf{~t`b%pAl*jQ0iY+=9tU#8sy#R=7I-_%Z~ls%vqvy(k9qBN z3<*ch))qXEG}z>_Y#TCMBXtyU9I{m+^6-_M{lwvIalxb=xonuty2H*(?R?X1#AoB+ zTwS&(8%4P#`rWkXjCLGXWTfKV$ZEOx9^gn_iVb9)DIiw0IOQ~ndV6FlsD0LR0Nam@ zNPJ6n<--1XgDd#!iQ|$(_s7bCI{2msl0;l`(?cbCzA-#;nRoBD6kXye)f!dHL0vut z2M^b6%BiuyWhPe|>`u8BPfP_NTbsJ9*)Vyc;0YM| zHm7{ArNI!i8MsDC{)HK5^6)LJ$ab18i20`}gnU0f%i@rC_wboDXkB_02D!ueyo0zr z=416s*p*eUf7K{jYJkGu+P3noh{L~Yll%?LS|86AL1`HT(*cSH_)YY*52PtW6<+HqOUXsTRdNlL<)-e*ZZS@cO{k&^EP`YGD0WlbnT)79|mDfm+mcs`xevRq5k24QccltS)ypz*kekiZ!x|x~O&CH~i-y1QL*3u}V)Z&yw9{;yEnUMQD z;mi1EPNz`P1AhVBSJh^dpKILsH}t-=X`ee}gKl*0nWt%;Z7D3yu4u1Ao`Q_9%(tGI zV}3`oQ=fw7JiBizdW;5S+rGwg&d7{N*fa5Yx4lV*NV@IyWFY+MyU2ki=+Vxf5oVE1 z4thcc{x5z>UT)F+KM!GmTc9(;F84XCTN;+|X&nFS?e_e0Hm%uN^|jOVrDR=3Uv&yu zH>tS$e6ypdMKtY_e9J&sHQVIa=8`V?yZAD|6Z~akX zs@_#2gtG^OUKREV^mAQ58PxJY?ZxYxy+;Qm8efkv>X_|Odj16q>dC!g;P@OzeQ!;Q zaCX0-1tr;vJQ&2#KaBf}^aaTOAoWM5Xx$QO z9Zu{0*(;%;!=P_OR`U-o5>2<7oxb}mgcdXu2wDIO9>BB-I_gbNl(3eh2pc$~Y%qzj zfrWk)vXuL_<|Jl=N#Df=c`-J?2dTpYQOruhED~c4AIu0&z2TS42xu4F^Hdb86Bo_P z3oK|F!faAG?$u_lW(;=wPF&}=-41F%KA;}F8NP{k;Np6}pbRgu<99o~0250$2hl7l z@s5-5#%%7A8Jw$^YSzp1FdW3&QkyDRcdtki__6>qF1y?~EytLtc1j;kge*bNgKTxm zk6Pv{xs&OwrT2SlBCG5O4Z+ujt=M(J9J%>g6ETGWmmuTYYH(~2e0MdfwHu=i<*1=^ zNs#C87Tw^kcnk48WYP~PbOl4(y2?E-qwI7S?RCG5Hmh&-Mi%*f>(Nl_^HMmb;%&fr zBkkn)w*C^MvDY`!q2D39v+{8r&{zPgu$;ox-FiGjWw-i*CEE7;jEQLz7;S=1+hU!z z*CVuTj-zcO(e@^zZ6gu#CZp{oqHPl$+8U#ci_q4i(}p;e7PWL_l(vu|F>Om2ZA*08 zs&(4li_jK|qiq|}*1~ApMufC5+TJ1B{B&qnjJBM3+AwUQvQYhERFt+!I&GqyiR4Yd z!~^yIn(-woYOXA)=Djb{`JHO!R72#JK8_vQJu!OdD~^2vPWgJL{FoVew~TKp!zYuCSRIAU8!q3Z_3iCoZHw){zRy z29JjK7sG^fd1+ig0U?z#Bqu{UZXl#mbzKB$8zEHyl2Jz@{{=>+T&*Jsu5LW=Kb-6H+}xTC9#jq-Bj2dpWKOHrt0B_uxmMGe2hAynP&J*$?U#wpQ34 zI>2$mK;JrH`xv$)xMooPlh<=QzM-K`4u~2Jlb3OaZc63!G+el1 zy-gxxvnAr$V+nWE5of8Fo|;V;ThRX(^rCAC9U$xKuv|Yc|GU-zy^6r3@C&sAtaTu$y$) zZ2()tU_rfBZbQEogWU}GY-F$$J+kQx!H#0EaJF)D43_KHS|@`&{w=|>7^(fu2i`W7+5Z_ho>2`E@b(Beh>~$@ zt^I=1;6U*$uEw^^Of5dWfIN#S%kG0et(m?sMf^Vb*BIQ@)zO$2i>wzCZ& zU%HV)A=+`KckjM&}tD4eaoR@ zdW@MOL6zjUZzi-bsx-_>r5YL9V+;+BSB7I~?fuYRy@AjKhK6U<_LFAv4UhkX{V`!?oc>5DPpm%{Gw9}-L+g+81qA*= zUrc{Y>Q10P{xoBN{&>fcP=6dcLBR884y8Zp8SHg^G5xXiL<0RWZN>ook>yCJKOSJP z2WAYVKZY~d{|v|U$Lte{^v65X^MRHY{t;~qj3^}PYK8LN8orO{V`{H zoc@?^Ppm(x8Tg^;L+g(b41CMknEtRIPoO_`OdFs-KAM|Qf1Eu=z{{o&r9WQCXYns* zWBOy)u>|@_J^P}5r77@%p1->Hz)mZ?-u7vAv7XrW6gOKkjE}<})$< zv7w9Uk9!Vt+*7bU4O=5@zR%hA#1W1=4clX1U}AHQyXQ-e`w%u8%!B_7+xo*yf0R}( zShy%+Xl-EHqZXGSU%w@H2^mw8|8Psh;L4VEbmPp3ljJ@Yfh+H)jpHq>@Hv~S!c>*d3l@d=rjLu-Q9x^1uU$oHr!MCgO+Nrrymd#g)PQHFp)1qQ zH=UBtyU!b3mUTxk98W%vx8Pwi=bu8COsSSt0Z&-w_1Do#0D+DQTGlK)>IuWm(6?K0 zN~a8e3x2vTgZ($y{%i2lYtJn)U=tp|Ch(3BmR+Qhi=y0$!b2?`&T*ZnJLU2WLAmKn zekv!2B;V_~)zC44!(#(|W4$e|bWcZ*CuH=MXLQ*;eMv4dZBA8g`vxQMcAckOyi#s4 zYYC;lZOXW@ft>R2$;v6v2T5AUm*QEL(c_t)VH6Zch0yE}P6IH;eL0G80y<4n3JRwX z1C>g?M+!?!y!Qh=_^i0zUo!$w{BT<-GruMkH#jP2rHZ6D3+07LxO{~ctniEcr}#UA z>XE}}G;WMkShg>kvhj&IPUS$f-Hsw z&-MvIen9Z};otCh{u#6qsUPk$1COx25@e-9PrCN{r)H|OPrSA6J!CaXxP}W^?DEPa zhqrfCdhy-nniS>>EP?lETlX!-v9Wq1HZ90Et;sFHc9ptYvnAh4xgmH;X#*W}_^H)4 zc|W$+A8GB<$2HB4)&;xVQQF&Vtho#=jq1U>FpFrY%lPJG>kLx9+z4mL`=cBgq8gmt+QusTBE4ho#={8tyrFp)Sd~r!Fbz7-^8?9ZYsR!|Kd~ znpO;N9>@!0fUexiuiqhRYWJ?reRNd~fH$y=U+dhgzWUh^ zvg51le^honjI!fj_au}Z)$RX;>=-jxc36gx9eF{uV0l8h@yZ=PirmmX{vNr}lbt|r z1QW=OH@-`5JV$b4^{4@ILjX=~y}q9`fCI^OGnw2djmnLbBP2Im6WNt4b~sLMY|bIM zaobT{ZhY~%IVv|UL4I64_afy-Md(uG$J8sL^5f>>e@K3`XC;y!+q3$~kLfc>UQC^- z%Z~!KKXK;8$Pa(g0Qup%_R{5t^VAP0KQ`z6K=R|jCqu}OS4RF*@?+7igz}^CqaR&< zd{&)Mek`l}QRK(}?)x73@z%&6Mt;m1F-U&=>bf}jF}o;UegqGa{Fwfe?~xzXV@ZBw zs=EAm>7Y4be0k17JwLBaE;WmCw>*nNR7Xp4k6reQ*6;GHchM8fq>Q;3 zB3v5i7#j$WMcDuyZ*(ni(#lD79LYc5HJlxWBeU^{3}iWpq5+TWG{6G}z8`sNk>7SBhYLRF?eOdU zz)dE>+Wo{Ld_(h;X@v<2&)-6Y=kYC74FhQfay9GcSN$JvR{|bIm94AO38|1^S1^HQ z8`?2QLzp2D9pglXF49SELpKSVfFR@>mFEULAu$0|qD?S0*AmC~WOQ7|4RPV&=pgW^ zLxPh8P}V1c+u&Xy4`g{Ffq{PKoLjx5l1@;b@X@L2s@wOTd;W9JJ$E|?9Tg`kwKhD| z!KcdVdOM*LOTa^)$P(eevX7WJ9FE|?>;^z_UO1>!>%E4v4EGs1$UC#1xqSeVmXw%YLD$C3AZ zB(NR;0Jb~sNST?cDz72mZL!?pS)>6d-2fb8mP0i=3n*MM||#{=hqN6&q6 z@i_CLiO1AoyaeFb6Kx-$yC;USlIxo7i8-|iVBr1Fg+pZg3@e+5^^JqbrR|d1+9C2? z9}6Ofuk8wvuJCy9Jn*=8Z(Ka)?hWIS!@_`6x50y%fG|Mh;Dtlvt?5=akL?o&kw3Oe zI0R)9@lWOV@;!0+efyp;zjMe3X9o;lKJDja_}*)* zTzsx~9EQK#F6pA)R)+suZwtfkxF#OMyV5tWosa(C9bf)Iw&bT`wQhS{to~xY(n}~Lme|c{d`W_K zp;(?Y(aOi;8F5(t(FAMKrVJ~~*JW5({``bEEdROqUG#ojevf#+BYp=jD8C;rwKDPI zc>KPlT~gy>E5G+%Y~lA6rJeBG89wRg^76g`ek8z4Wf8xtu;%0PVF4~dzpC;b-&@qRwuf*X`Q6iSx?VuAeql_SRLSNH00 z{t73rn0ZX8N+5f!Sx6{jAS^s>5@EDlbm+1sl`ReGu>$ zQX-4_4rFlu0B$D#z__9W!`|TpQxg`E2Sv1uN9JZT{ynDIbr{)nQ3?7toMk4%sYrg( zNQJ~K`*4c`--yS?4_jpkf2OD9WA=N;BYUZ`mBQF49u9bw^R zF>^>_`p6WneF2;eE^#f}LKJNQinLUsD9vWhBJFHP)U$7eLI}XaD@sSdK%4m{bdacmSgB5jlHf?UIh3)ABi#p2 z#we_DjFW;HBt*U7N6%AI141WOrzi&uey2KFaIq8aZ&4Q5aStM$4+x%77WQx`$?srZ zP((`=dHf{bq#%tfxZT0>k1|K`QKnyG3ojR3&h)W^S>q=1?v%fkIf|N$<8R0`FNdc- zS#Z-}7Cdl(Y3yW6Mkw?8f63B&cuGXZsI6NdrC%?!k$(X4HaENpCl_zU^Y$QBP88f6 zofWs4Bu5*bleF1fL+K!G>pR$5daPAXS_&oZti z@MWApFR2pWuB2}(a7D%_5%+Z7tN`veNGYSF#$wqs#vvJAs0bMOS~Am0(sFleB^m5` zJaSd1l{kHM2LPF-IgQ0GNz!KbH>NhqW@sSZXx1n$J%4*CmY!8FMd|tbOHq1We+lX7 zxi~`48?SdtkG%~&jSU^s)1iMEo{)P855pW|+RZXX?$d6@n8ZM_oV(k|aH9)7QfLhI zCf;i3Po@Yo%6J97Lx$rOrjLhr^PKQ;!3Rc0MQ~pPa2LV%A{SiUaCI|C10NR?X>#Bh z5LuK5*F0nWWJ%Je$T(ph7$GL9bMV+-*WN$c#ed2@0Zi9MU_G?kWjxDyyMi?`yn}I9 zV6m)UBU8Z6N+1WiYOT`Un2e75j6FG0ly@p$}GDtt2+(0?8oIrY`xh4N3;BWm8GbNCKVw;-54@fPke+SL;3H_E`Vi! zM4iJ9V}8;-801LLT#%ZA zU8%RWT%2}y9mlYoImSdEZu$lu(E)E`QWBouMzMo5|89B$F32;+p^rZD70kDXGQU46 zOEnnyv9=&b&Ht_6GpfB7PnfE>6 zo>BT#_#SNX!1uAhkEb(Iq&dJ4f7r{)<08su@Li8shrMny?#;V4RWejiQ^8SB!fnV= z(+Vi7sC9Q3B`=`3^yqd#mW%;^rTfL0{xwh|&AT97B;F1>Hqa-5?Depv;2L8pYMJg# z8w-z^Y!ubY7ELSub@2N-xr5(#s~7tpDDP-s9;-g0Myv8x3~9m-LNhYvKQBuT#qQ-v zLl%SJfG&y1hIY3?>%IVLK$X9a^loE$|4o0FalD_{=S5pZ&tQ{HOY9TMyzvN#90)ly z7@n98d0XvVirgHIWJZh{ZU_N`S+ds&=6c)8YG8_Wr4m!ZNM!W)k` z>I!7srZIr5wrwFrJWIo8Ddw|M8Gpd90b)-n3x<(f+WN3X0plN)7R7zpO-xs5QM__G z20{Mt6|@cJLG6po+W*?eXUkaf;Fyy8F@7!&a;xp}+!rH66n#v#@D3e81er*Ht8ZN}^d+O-;!>p5d zEZ7H~5_E)qAKwm_$?%y8pBq%I=r-dvbd&pI7+i%6z5~n}JX9NIu($SiFjkFZ;^-=q zT+CzyWwKPk(727oW@{b=UFch(JL5KTuo6;!6ljAHv^!VJ<|;pLu&{=DZvtx7kqA(P zPt-J=67?%`Th^Aa4@#c&c7Jn^S>a$alJZgG%coGqk1rJ#?FaOY+{oZ`T-Kr^!R70Pque!gI-+(}#CUN>LS>gIW~gl8 zZ%0pBgB}^RWMlaWQT!Q-we8m{6{C1nq%zlHWrF0EHFJe6B^r7=@U592+Q)j*K6HVo z-SuCP5A@NV+Pl8>YZa@ox<43~d+-P26sYnlrce3Su(ygLKgE#LOuOzr77o*cjg!uk z97&@cQ}?Ow&>*sAOL>mU8;&^YR8r@cGJf5Cv~*$*DdL6bO}gWcK z9Kvx!U@&g+3%nwet08QaK0YJQ#}|5hdC z$^JWYR_?(53&-<=1k29KLa9!Wac-lPX$cfCUmGJE^>0!hT1ckARX7O7&}+?yLm|s3 zw}bu$^w)!+zbL3bPdd{(tiQ@~H{r-=nuzSL0=3hfG#b*c$fJUi`rt)OFWL%u6Q(a9 z9g1P;fy7$7m~{~w_`D+81`M$3aSkSdPJNj>Z^tNf9*2xUmG7dUU2|~s;WEnqBuOaj zpJ0o|QHdW-QN}0ZL7k-{PKQe}UcFkP(ElzNH18zs-8&hTe3vl>|E{HF4enAx;*kjU8wQ6f_)mqrk=G8D0c ztA#@i)O_rocM$;WbzNM>!c(fqK zYzA5tob0r$kyzHDzsM5SumI{@;DV1ErQ2vgvxbk8H=;izY8lO&A!R7DN3*5LooD%T zJ1&1+xO`8f`~oUpH~xRiKlF5m<-ZUvKQCJUr>Xwd@}YD$&a&!B6Hg1N;OH%CjLY2e zJki-H5$Qk#E?dYm+V)%iTM;mt|#;tAM{-i90HG}0nwv6UA z@!#V#Qu6~HyiaE}yB#%Ofz7u$nm#pbQ?rl@AGgD&53+4C$Rr-?9gaSHP+s){QiwxA z=JPt`gA4f}0W}*v!rPJ%>cdaS5xhozElX|7b1ZwC%rZ`6!G})cy4$!aV}tO-D;@sUt$h_5IHE(zAT?bqbi3oH?}!d1k#=Uy-;+)I=T7AHL))({Ap$P)RD`BZ*gp; zub^S{@js%GG#l)lad}wX41kg4Z*x3cA1ZZ4cC3r;5$N)>E zX49f>j4xHtQQJQmAB`!?KV$iymiGet--YW#hel(vs&1&6TReV@oI&o_(BLjZKk|C! zk`TZPp8#}pZ(i_{wRb&VdX)2`=Zn=H&{MO!{65g& zssn^I8rA^V)j1_2du6njoBwIM0kNOgBMBEV^ito{-o!v-WZARulxPet#wCW2s0~uw znDPMA$2yJY?#E@N@?;?B^ZQZ1j&nBHCF4J$kGIm}g*Ra%csly{b&*;&${&>^46D9? zQY>-tl*70!^a<2s<62Qm!}oBwhCr_`f2U(v3%oI#Zy7BRi-jm3 zKMBp)pIy(wvB!QFok3&a_@SFAQu}K3fSG@ngZ%CI_(imwxz{-J0yg=DHa~ClXN$OM zNbiZrUIHIHY zW;A_;mR;t}YrC649Z$a?OV;rfuYWZ7#Xx&KZwek5Sl61AU2o&aJ1^gdq2~TTmIi6! zg$jvIZph1b;9j%YDjCb(?46E*=m=C+`L-gSSUXnFs8#tUU#M=+0hMpHH>!IKEkOkk z^S3Yfun;gCM1lVG2{v-So)+!|=qco*U0usU1*SEI_}wWwfEk;k^EnavPt@B?tKK;I zP{(VB_|KBQjQDfz>D}bprIYlr_RD_2r~m&E_bkv+6x zsFT=^rjrh-m%IRiASeRINCb((nlvPQG|&WTiwF1{XWf}~&pPgSRz2W&mO*A_=}sUW zKp-FtL_A|ulouL?K$HZ8ysdld^*;$X>p9CgoV>2zy;XH@)xEcF)y26q(@R{hE3}8@ z`Tq5~v9LB|GdTGdg68T$+ifYFS4J41V+E|4t%9jf_$N;P{qVQE9D#2)-f;cR%gOLt zkM#rp?%v>!NBDuSQm&4}xF`<)Zmbu>dck4ZF~QW^d;wu<+NNuoFEv#^1qCkxzHBX* zB_`*=y%Rdgt`9xVzq0h92k|Sl0NnCHxJk|DU-0nyAdD~rC*f5HG|5UB4-Z~7q^;rc z$xTp8jDAlx`aNn>V!wN#Po)2i*V12f$UwpMnx)oXz>K`PF}h=gH!Ikw3~X}^Y^ydV z&(h|p4D0ZXy$);N^xqD1(q6l2WH-bM>q7>gE;)@rSL)R_aQ?$AC7Tr4dwhU)cLNa zHm)<&#xK>MLP19w_@x?E(8IcUQ(Y z7`a>f(@VUq8Ehy$X=tM9CO#YS)d)#$WLIeq?9*E1PuCuho;Li)wl_7tJ=)60?65C9 zX7mO)0;B`kGzt8VWCTUw_GPmU;b*}-oNwsFE=hcZ5zRwPC_mRJN<()tt+kVgclg<~ z*IGNp84cniyCGo@qa{q((<#mlh6^hl=B{yoX<_iiEm!t+fcr2H7&mxoDCK_96? zJVGV9ETJkK-x`W#5hJzyV$70z4ehC=l2(6G*SF`#wqoI}#MaM^>}vL_?Ih!2C-JZ4 zTLO)=ZtY*nVXmQ zYdevVnGixByml-L0n3{KOW(rmL=5xSEwpP_>S68vB0qQ0uKp3;cpfY9%@JgprsUNKo-|k! zL)R;LPERWFIl-4YqX`*uq}G`U7#EZ(@tTgpfyLZ`jAp91h!2d+?^5bFm=SA7@);=>Bk# z8xt@(gD+4GOhm{W#%B;hWCPt)Y-5QN*&v~ulh4;dwydQ?997>$K?xt-yW;&p=pJO$ z_VU%pbvg0o)i`;-7Il`O%ZTSLOIk*4#L_0$3V37<2x_-R)9>QxlJ;#)By9wyiTWdg zc8R5Km$>p2UAx! z^vjB$b%0bk--V)xA@fDBwHCR&XVaP zc7;`gV+MMOI4;UiEudQf_+**YUyk+vf{IWJc+DL=MH~%^)4zmq?v>EM67~KR;=Dq{ zf-A-beGs8M>oA#eF37&6Hum4n{%3*gnOLC znrtPX3v@W2HJ@GPdn%V8r5SNz8a0pAkhBTi$$gDiokn{}&^;!L3!yXE3@m08mio_~ z1Gq2J8njTd8SLP5rRGqeYe4IqL9K)6!~i|DC#{QwF+zrQRq?$ z%Fe~ID;nTwH-F9{;I0Qj3i1_7nDZ!l^fzNL$DBjjXr5=synEyG(s>?$slKx!SZEtR zj?neoo|^NCCamR7WZbm-7(=ou*Ki<%v!QfxtFVsA9JE-#uVJBvD8DIelar~5`0!77 z5rk8w0zn4715Ohs3!V&x{b0L=!laHy$Rtk5Gf?rF!f7mD3V+A&vjXx;L#)2?@E8e& z_{e!wbV_E8nU9xuTJdb!aTf{nShV|YFyZjSyRZr^~D`-x@;OT@XYm(LV+R2@oifEFAk*f-vDEssoF zhNHy;(eC$u`h5#@fBykd~7N*oN75}UBtE1DhybpBJBj|Ab zQ5|#yF7#}FE=F*S&);{9<-gfme!}|Cdshid+9en5Ae4uoP=CW^i5s+keH9O4Z* z@J7`MIw@~vME;VZW^5$R?xhftS@eRhE^+<<%ll=A9Bk+SHdQCt zU4MivRB;?t9AC)6rZxz*=jZ}SQ&z3lyS#o$l&li_9w5#Ph?%Z7_z4b-jv!CyF!BfD zPc!_&FI4vOi=2Vywt@hW?RGYa-h*(jsLAEXIjmjVrD@%`^|FLZ^dk7A_{RF zV96zyd72fXk`HDHDUo8lnw7zqWN*9K^DaZQYMfl|cR4!Xf!Bbek`; zI_|v7#Cyu@Ie~fz*r_Vx+#D0`Pa3=3c^BxRuX388c$digGSbCpHw_|PSU`)Kz8)zU z<(lZ7Ng$HbUm}rskw~VpVn`t^UY(8TVYsMNeAz{t+1L?vx}f{nsJT_E(FrfW#g0s| zvr%LHk+448POirL1p74vY$zjl_rm;K)ZBNyQj zv3{{JC$88z*=5Yh+GI>&GmnGjZLs1z98R8x*!4ATX`K~aTI1$p>Zb5~G==%+fOexV zJRh+<3G?y(Ut{Lu1|Q7BZkUH2HV-zlVbxG4T!z&$S5b=vwk#T}k!w3#j0`WCUE#%v zYHoufVcm?bPdEyt>X5WjH6tauPNj6Z#LRrYP#FU?Q%SKxD!B|497%Pj2#{(@D4Kyq zt#L)IW(LGkrsmtRbuFRF5Ug@Kp$Zo5h%Gl9%Y8?@XV@&?2b%%+Uaf=$e1Fvhxjf)< zoWpf-S4=1Q+9>c2x`l3B9=l^27J&B@W5wKq)50g6L?#_YNw`l4(@jYELrmhjxQ%ZI zLA2s`eI<+eL3je8y9$piv%y&7VA=@naKqi|z(orwZwHf!?|pO-08z6>``LOR5OEz` zr$Te5;(KyTt^)H6lbpr*3*?10+rcw-S1x)}@c zd>1|Aa-6PPKFU-rxTxO#13#vz(MCNTQD0}XPg-TeWGR|l{4_e1WN8-`MAC9tnwu^k zg6Sus>9;@=g~MHrptDIVYs%4C&*W~1&Ha2B;1*u`dhilwpN4&omJWB64sn*+#I04M z#IjNwtGZj1FV^cX+{Dxo&tRfXtsyGK*AiZ4^+JEd*5JYE$Z2 z_ofOE5S9*fG+1^yrb-H1WK`=A@++ttvMA-du;}geeAL{QZ?r$pj||Wy_GwN(+;rDu?zWhtcoUYn-4?GR6h!@NLY6LOV@J2H&xPBM~l49K8u{+i0jkv ziE2(aj3mH&KXGIME{5G0?yyB|-v$!I{KOa>5ef;xKMTCE{D&qO)(TZOAr?BFh`KO8Vk3X4z zEZX4J{qs*#n13wV$yHJQSvfB+K{^xV>jO}O~zt9vW(OTgGpDfUV%P!sTb6w_@ z+)n?BHa8d+F=F#S{Wmswa}qo)3xU%0Bx4&RV{htOl`RY&AR@BHbe$iImPcRKx}(4>1kK%2TXdzEx-9;|vq=`azs* zVloAYmR6&x%h|G`)fkii`LM4s8G{JaZW6QL*%CG|Z!e4tOhi`9p3}a5p!#>qO2m0^Nvcf!A%Xk?Z4=o;fQHO`06YN?cn3}9PCh$>; zpYcY8?m>Nnkq}(tW~7mOvPX|8&`bQ7$d&$9vg-5}ej{I|-0XZ&$y;C(>+ePSa|s`3 z;NIvbq8uQ>0E`K5otlPIhaKj4; zs+>i$+*6N~(OrChhT8}az!6{xwVFgpf;ju<8Bf`1 zv0coZc2vwPJITcQI#$GXUd$}&5;KQ1i>nLYOrYE4OoqBAIBER>PGK=C%%P&xdN&^b0%4}zV*xeU}( z)Vue}&cBLlR>ArqrHNyU-XPTTmO|&fAxZ<;B+K-0g}5jHF-vww!qo?fvqupNg4*e2 zum^ck+3)Is#M_v~8mrC??G&X#iK#y64A)ZodG<9)D#}|VRgZzNCnh|h43bqlVTSqP z1jcSD^4(eFTO>gYlDEw3iWU)d#GnA!or^XTb=qe3_YZhCUQPWscpB9A`0wDlyjHjj zJ)D2fi^3}aziTRb3gVCK5VsaRrJef&x;4Mz#qc9LwA+>mrWkvpA>*;>SYQj&TC3vR zwR9A|i*^NRJ`W%0Vlg-*OwAtxT#FOs*#Dy(a9+KZ0pkoo4RW z==%>~^gRx(`f?Qhu36=n$uW;>*e{*!a~S^4tqt8Z@E* zinrEgt^%9CI?b%Z4KNVvOhL37z`wBLi~aFN^cmj)+0L^o(k#03?8-~f(m_3FN{zG? z<0NuWPj0VziQ$93SF^mvHmEDrvlLn?KBxAed zV*OFR1XkbVqSI$FQm`D-UfT@vS~r9i4p|l7O214e=4#Kr1uQo)mnCeetF@avqqqZQ zAdBQZBvlVkeD@KrOAtcWL3}6e!0sO1Rrmaprt0gk`lQ#P`gFUjPPAc#2gEFhi&WNv zw%?*QF|$NsKRd+C0=6!dWJ6>5GW|q*rx6|!1^?B>;U|z7qeF-#?ah5~$oYx3y4NBJ z-74D*qG|_(jt!;Dw2O75`D1v+MC*D&2tP>j1RI=LjEVS5hL+=6`^?z443E!@zGc|S zzfrq5IrD#6yAt@Os;r-qw!~UU7#pq1Qa{RAzq-^Z<5YsuV3+qG=?0Xl2z81|#RagD zickunNW8}78xWNdbx=V85!6z_(sW;dQWh(R~yZ zj(*_~^qW;G_J`%uoUG?k{DI|cKT`txY?oWi&8nG?xN^em4H$11#7%zq{xlMNQKmyE zImB?B)B+Is<0z?DFaH?(s{PpaKO-6YPIp1P@u8DQz0TaTIC^a>1jfEUAp7bb)~KwP zW3+W&2h#6@ozMtIzj$CV5|9(l{949o#kODsa1A#Rc)13~!Dq^WgJ*G~ z-V8d;kB1M>#tK9d4`<+CFCz~Zvd_rFdGOhG0CCWmd=K{#yk?VCOAkg`bOG0H^F5^jGDHJ{M2F$j^v_7e(j5NzG7M;13hk97F- z2-wRDtk3CGD-%17I@FNXwgs)=C7F|2E+<5N+u)ZFbyr6~LKJ3D3ECxSGt_+PlNFVd zx=2omq928ZU1&Jm|Gb@ha}dB!)pYWD1QB;r>C+aIfWSwx3(h zx}Dn^-ScjhpJ%`gn?l;@8ztWw4Il$ZUNm;@s%iQb!uu%Q(IaGmUOUM8_{Irqj~qw2Ngv-NQYnD4m##q zMSa>9-+UDvD=F!-NIQ$?H2ld#oUqTD(l3izp%Acu4LTU~p(Ynvxk4qigCJyNY162T z_EHU=={(BB24@BwwfF*#3b>jRT&KV+Xk?+OahR+53M?EB$otCt_is|Z+Gnlg>`*W# zMl90787TJYqd3F&Flq1eZc^(oYF}?&I^OqwqqbgUwr9t1nSH!=*Eblvc5&lpZ8Slt zBTjt`>KnybcX>qlmBI@oQha{Z1sfQ3$% zBptcCRL&Prm0Ff^_T0yKl3}usDEXWX>omlTe!mplEm)U{JgYI24q@$nSTWB`&Gr=f z8qTHnuo_=gV3de0QvEQvhAw=d{4Q^cHxW~6mR#X$_aP9HyVVOFXD>?T4gFQ)cru*t z9M14dfUQFQW&O-61HQTu`l9Y7H<+pCu}+=v%>AlgmO+Scb{a_IMeFrPx)|$gC)P?`O!~|!t9Kb)9X|O6(7A{iT=pyy3 zXORlJ2&;}2HfdDCi9(Gk=>AN$Q?h4?+C&mywE`PFmZ)(WT&9Bzd~!eLmm4mdNGmR* zKUj#%=rI)8XLOih;N5}=I*tOq(V_Ut8_#9+3vf(gRbzNIns!dyq{)%{bkqtXA7M>T zvY2Y0iNj2WbI|i6{d$(Sc4+8NmeXcpsW#ibV426yvmAKZ>A%;mxduWO_S-)F3=HPw zsnv@725tQ{wU;Jn>+)h)E;G-Q4Jd(hf*DBl6o2;yxwhmm-dd-qExCxdo2!Lo9d7K1 zMSktVOl|t`?f4Y+*9yp}0#L{=Sv{ejof^XrEYbwm&P->k8}>7qROsCx7Ok>*j2#xNpTApB(zy zX`D9S`DqM-Pto|z9*xR128153HQZ$BrN4-+uI@|+8`?0O>Fu{+%hq6YS1P=gK{4aW zVJx(kvBps~T-XT5=FJu|wDkXqD2kS;_QEVdU+P)m+?MI^RE_}`l`TJoetguHpTybj zpns)to%xv2wk|)}H7rx4Pry=iw?FPdr>?{;qWxA4-IODDlWn z*Sb7;kp6ceR_K$)N)Uf1U2d}>Hx+SqDlCR7B?R0x0RRzu7o&A)dCT;#faGl-G?N?f0-uXWP zjFC**F+E^xYIn8rhHi_%ladUcOiSj*_tAch<?0%z#7T+73bUt0`Z!an9C zXk2=5jbrx9)o@Wf#2jof_@%v22j-wH8LNioW40GBPSXjSc6$~MM})D(U|EgDf}&Na zSwYg?{Oh}W>u%r4W0`joxdgdQhIq?eCPS~~PL7mngu8mcD2=B}3)>>hgRy1c|1Q$; zwx{q5Ld`F&Qx94YOxCL)26u+qizbXAAJ5g+bJypt>8`pN+=tm&3$C{$v;Am>GM!}v z=6Gh~_f=;gSLkM*3M419vnsE*+~~U>Dh4#G`wdgN+nEte=we%<`l>v)=4=Po)SO z;770*|4FqDZySehQOu2bLOvftF3sI4>i53x8OCVeKz70(P+HudTRh1KENlECrq9_x zNy&xtsL}771jp=;c>M-Ww#}3l?V^6kMhzB3&7up5GN=eu4wX?klRa+WV~t9R%QFVsSq=lNqRL@~v`Ez7 zx>2LTb)nZHv#w;HrhExTkf^`vb%+DR9UGwSmL$L|X`2HJ4E=UEy#;J+;rlo7-KWv( zgi|@5ch|vdlb0C0nTLd)namQ#1;eT~=!bb={QeT|t1N+Y9ZKm(QCs&J?ORrD+dkrl z3-s5;Ie4N&+6s#1lp_3mE4`HKjJt*YAN&)#=m>Q#bBm%f|3O+`vI(jPqA_MtPKS+? z2TH2(04|uEQt0GlCWn0HC$l_1@sZ3=ygWbAB~Au6zKgk$NG_dLp44#7e~g7?!U7Yy zH3p*NoVponPv@i-nG9zji?1DOf2rU6O_s)Q?SC9YrC>jYuKl|%!a>MeqyF85ON$=MXTA3^p_vurZUc!<)WhJ zq?YldmA9osoMr)xu5uhu(ptrLzJ~<)kiP^{AmpCoyI) z&l8+S#~J863gvyJ(e^55ZPmGO%XSKWJO$?A0$|TeB^Y#GBo`JjQ6b4D$UvFFs_b*% z_OMGEqafz?y})gh_KQLtB*=bY6WurL*`2LS4{GRQQPk)B3J*BpK*w=-u7c0&9pWpp zlPT*T*^%H0>XW1vua-2aTOiH(kt0%?bM~xKiF#>pD^I?c&dhNF6UsTZm&j!Q`87Kd zaPdPKI3CnwD6 zHmncV>lQQ5xKiQ#uyID14}0HCr!6{hbbzZkX|~6X7JBF<*3&U+SAjkD7d-64=oRXF zneR0Py1N{Y)~P#FodSE1WYL^-s#h9tVD3XsYcIIcS0t&b#*jRnx}A#W40EwARXpPs zoE|q<=XYN~et1PT9EyK>qb4Mt`re>;>ITR2R~t1U@cjDy$nbpoa9BK-9S+3v(Zf;W znR)n%;AtdWQp319SMddB^QAb_(kzTq_bqIh&y%C+T~7A{e#2F{e;cDXV5-1Tb`+!C zTQn+CNzH_d)^<0ZXJ^I&XyjbonVKmQTAo*;y(Bz+h@y4gH6G9!OWLW$4D%4J z;fU4|Kx>|a7O9fYWQ1fzcb z7xo6Y8ef{-k`(an$J4tMNwP)vt5kve3CLnf;CqsOLltGmdGvtN9x{W8<*Yle=ogAt zzggW0{nFo~?3WI?U;5>K87F+v(m`Mtwb?UI5JJq4(@`}Odqa3>SvBtwy1jEGH?sK=kL1; zbSs@|?#mEGAN)LrMx{U>Q2dIaY_?Z4po(yQPv6$segU$w)qOeST)?xyVm75a_=P9u zQ>0A{>1%zEKHcdCH?r#vfcigS;}yl|O*)Bs@E)LePZk;>AWQ+zQD4AHDJIgv-hdnw zR^1_;>6#0;n!UL83Tx?Yt_jB4l@!;pbi^1XCJs7Zdw|6Vx?&2Vvkrabqt5xWRH`t1 zyJ>T@^YOPG;rQ0r;hm3RJPW^@8FJ>ecMOqGMv@KhYaK|mb3bScx||DV`lzJA=DXCl zVZL)mHs5{M9&WyCZ}+@6oGaMxX^-&R8G}teueA?#@?rfQ3;kU+BW!=)`Ri!=`)_UG z`ulL3x4&bdzyGf!WPiWiHpKq+(XY_+l6I{siA=jrVyZG$p%(8hQK`c6<%hR`FP9_Z z%ih*-eA&?I)sHw%J}-_;J5G``U97OWcrapRwf_6WG7_9VCKOAUgy7R3-;9<|@3e&D z(~1@kE>HnSc)KVhoeElpNT)&hlv)%WpM-xDMstH!!M`sHBj8`v8^FJT$oTh*=5YMe zH~aB#VqvuW8y4LiBZZ>{gAw)xhk~%-dU3Fs&@&$<(Oz8D{KRmT%DLI$TOBMUpGR%< z^7)?;@%czoI6m)eQmjuX9;{tLyd$KUwY2Gqtw$vP!r@J!{R?qT(fSvj-xSKf(7qwE z^|1Xw*!A$^2Lji_r3a#3505`^CH)H%UI^`9_@Xgd|HARLq5KP$^^xIuPh(g-Z)gm} zGrlouJdb~MMey{-djOYYHX?y}6p}^NZcze=Cueym>O^04eaE(xM3w9>^+6u2Y{OS> zG3=^21?zBEz}egDJBmgmc;i#G%O}OCIQz;N%Q=%hb`nT*?stok%)~#t@MRkKl z*vm(wJLufIHmVy&3Z)TVFSRI%O;d`bF)R^=GmLZEeu>(_;#1Ixij^7DT@9~+?h8fGdwRJE6~s6!l^nCSW`sR$a3F>EY;tMV1T}#7j`}K@GH^UpW_FXc&di8Z8 z*hQoBLK>il_YTnj4e*BqIzt+!-@i8NoAxIsnkriasP9KFB0bESKhT%*W_@J7l*RSFz7&pp1M~ZsLA@y1^+Wffm`F*o36=mY#s&=Qq#Kh> zTHax{&4|R$H|9$}gA=iaRYjj9t~i;~@-1fD)MRd97r4=#&IY#_c)eqv{CIkOA71YT z{=#2_F~IpwgF;dS@*aDX{Zq;trjS<{C@*_Psgg(~K%|qzL!>eaTxU*dk^C$MqRCba zmL!l0u*~fCLvpl^vgbO^t{+*eQ7K3SJ43o+IBlatbW}Qy#;R1!LLz4v-J<=kX7O-( zm)e;_&JD`5J3kNPS$PniUG=#S&&s7-;*z~?Bw85|ZH$s=UdqgU(0TAPw-_1a6nC`_ zh9?fpbuTLM?DOJToGigUw@6gD&@KieG{l4N&KBu{)E5t8QJLtd0#?xme0X%b-Bc8*q7@ifMMuw;1)1Y{+`79zlf7~@hJR{NPGFYa{7D$g``g|Xp zbM8C;^66b>((L4~Qz-RN@sG6;=<`cK^tq?=Dtn+k9(_J6GJW3tNo4x`y-xyTBk@vf zFpeqOG*`022F#D6U z#~rmLfc;64?_a~#?i{s6O%=;@)ClF9zl$}g2aM@YYX-MRU)dSX9({7BY>#SnTKaqN zmI`@0L;90$-Z?}o)%(vA)piaus8k{C^JZ(b_W8;k;qZ89hu1!r;>yb=g|yJqcMQpw zrqv}3PLLzp1MH(v`yW=zc%(nBfjyg2h&ROkhwWkaKWvYPA3xn5k{`pjUpanQt2K#q zaA;P;b~=6BYOkM6YwmmW)c{W!`PeN+hTq~<(emkzkHg_N;$s;<>q=~Q(JGC^CcB=4 zQb_<9G+lZNKi|R;;owJZF#yo|kFFG;Y=1RRPKkP`hy~UAkK=Y}=P?8>dq$}bP-QR$ zfoi0{i26_HEk^Pb%u$)tw9f37bvfzFAp_Q)82ZMKS7}t*#$#ejPGt)yWh2$fd4|cg zsFjVNmJ#4=Bgykc7}vks!XdnUn}jeOtwwssjUO{AmZLVN$cFwCVnpNC zdrzxRJV%ZUvyhGykDY#3l!2WaqPjsV{PpKyuea;Z)Of}Px>)RS{b0OP3CKgrH>v)Z zzb{J>H!9xh76*+N<qTyS^#fwgVI9Po9^2BHZN8QogF;aLV{0(;frWO8( z)`3Y6BCIu$QtUi=>#}SW?FDx3P6kIF$l5nYvV88I z$V&gja`v(qpGiiIZER&v6DmG%E3@rn`BFw*7CgZWXPh{-Yi^P1nU>*Ez8qO1J&k1( z_d*@NGz>KeUuAk8z9`06yF#y$ys1?`k?L@9qN8?lyvlOHH7wI%Bu~OrB0R5Ar3)B~ z$RR({x#2z|$@RAjdxhQagI!2%H=tDtY3BoD5ih?FCgFF~B)p8%!K1I%F27gdZ@m|G zE5rWB_uW_l4!zOkx&PwrTA-t-(sVVQ&~+eK&5&N(Lx5IWXbnmuI3zY6x=44ZBGnMY zMqDO8=T`6c6 z0y-qTQv3h6s=7N#=QYb&&f%o%ac|xF?|1*ly>-8TwTeDsUGhZUj4!^bZY#6|v2(=*Og8-}z!k$MqdrwDa$A zE4o@Q`}t3Lw!TxcquceJ$9HsG-xIKqE!ODe=aQ?QKL{n?}Tq+jS9(B$$UHb#%UdbX0kFy9VAlAo4+}B3EA9uDJ;- zdnjcbA{4namBF)o$?O9O`3jxM_o3}~RK7xI@;$z!XY$>&ty}pn*_M>A(5-yMZJo(? z)VBY#e92@lCV=62@&3tT|r&1E<7)^+0(an=Xs6Znv9jaxR$Yg zt2PHRr-Q%RcWcl6)iS3mp+X(Hpk^lwQqup@@O4TcH_E1UHvZ87{_K~nYA+lzuX6a8 zX)U3S@1W)exqW0JIzE&p?SdZ}Z(d3uoGRwpcHo}OlSFS|cafvoOw}>$7?DiMi(Sl` zyIxRZ72{d3hhw5rWWXcykkB;ab#6m6_n2CPJ9o?tFeZ-sNC?No$7MJsu2N9ofGE)I zWFS@e@>|;c$#Cq-dwEiurY~Q7%a}X)P9#s~%}p5(kK%Y(tc{09vA+DbP(D*>SIz06 zlLca3h|Op>`%R~4XdBqW6YF?xMxkOLU{33^(M`sPKA0A`9OyQbR!28U7BmhOhp z#m)LK63J8t4x{|7J&j;?ZT>qVn702o>*V6jCm^P5?#1^_qZcOUA7=Jw{^9bbZomKB zl$?K!F=_%%;ke{N9dfH41?LN zNTFRL(k!x)m2g;K$5FFdT{fiotl&A8_G^KM3Qqwp_nGDbaf6uBSnweh0lI<0i$aR#JilqMAfcgG5j3Vr#36+DNp+rCd}} znndHi$k;(Rl>jp3sZf39CLYAPXn1d;N|ftKFg{N}sSaptsqRJa*VV@ilrLbJ8{1@G zm?4m9xI5Vea>lW{p}JK~wU+^!Ht-bE+(wE`qGuYsf=Emh8QQMwB9?o9lAW*0U=bSW zO`wSRR^^GV18tAp#<6#LkeWv{d~~h|H?)70+$a1BDqE1kMauCmHeaAI3xqQO9WjzK zkS^3Fmj&{lvEy!V-i@4ctJh-SS;y0aqXH4#2+3mX5YZFNTYQ&D02+~i1L80eaKn*H zj07FfC$mJ=@5V1A^-oOB{~I!_1>8L-`mkQqs>YNBPKN1au`I>Y^Fj{25UcdrT1Y8t*wHfRqSV)vh?Aiq+G^&>(8GRJj&(R?W*s)`~ z{J_MQ`hf|4wbT9s6J_5`&9_Jdlaz0L4gfDe(7&4fnO$zvD#2mb?Pe|q{jJ6X8UBP< zunf26O~g`HWoDt#g~~Z=fa%2gjCfOP^&M$pPwtu}LlP3*Abjyr&5=2X_(g{;*hwIMge-BSy1*| zc$vV29?;TeV||qCOtraYXiN%j+&zyZ3f}nrc#})exDF)eOx4z3ziB4iv=nbD6(S)? zkV_VD1N(9VreM;yfdsw5GO>xz^tMfz%oo*$~eMCvI4b|c;F&SGk7xE}g%7(n=~ za>#|IC*;zE^v`)n$C3M`V7?@n&rqwzrCK$-$vl-6axY2f@SRZh4PzP2)@^Yj6{xW4 zV1>>!hCBBq^4IApYY(6s;Y0;Z&;b2#9-he7!n_HFJH&a`*VEcstgi= z{|?-GU+N$8bwJ+n4rY9aWbVT37;<>yZ6stPm;CU4$NPi=mO-caUL z=dQ;}^L+B}wCoWPB(Ib!^{ggaDA$A^-|KVL_R@5^Gk^8hRHphpghehE2qp5IrciSt zNvC>P@Wi;vqqLfjoO|`z)M9Ey!S%Ip4^}#(^oeikeq z`40T;Lm9TTb91?sI$H>oK9(rGif%#i>CBr(zHPM@+UAC~AwL{)ba^Q;*8&9A01zeP!0f>F?*M>iT#PU%ZJvF^3U6TbwQMd$A4AYJ4W28wJqe z*`nPFLP1jT3$IgZy|3xi3)+KHAKC*yxr73dZ_Id@_8t= zG6!dXPGG-ym8Jm0tVi+TFhKGN&dTC=vYJzw`(~xObM5)_66`-ueEuFzO<$GB6@zy2 zU8=i&0zT$*))c5fH<%8M%9C0J zTDI`}Ff^eFQU|pm0m4%n3DA9X_?)EatpCBltHJ-Hh)?Wj6tB*;SV>W<=PF$Q$?7Hz?{6j>RuTKy4KLxlw6h)y|uK!{9t z;FIFhdikU*eA0{Xq%o)C8&unGr?6@En zX8x&PfCJQ2Bql9E)Xc^U-)1#k36(epe*%+_ zky$&kj-W>w+R?T(COpd2j_?yFIO?k%;ofgJvS>#b$-)tczLB)@66ESPT#o<@P2bVFFB8krNOju4FGDfI%TNjaOLXHJl5Z!Z`jgugi_ zVCIBuBt9H~4%LSll(#hAXUw$#DYR-6*UJ5Nu#S;JhbS**MY-HAcutm$6jt3f2kvb6^%dHRZUs3*lToQma$ zvfkW{O!iOiz<1~kYUyB*XZSFXV zf{%WF%5p(ogKAjMEA^FexwQ{^5Nl9#*R9c#M^sEuW?r|T$^_+kof0}9RgP{}Rb>*K z_7Mft#8`!=w_KA8U#SDdW1^hzwaAks$)VS1GPd1j^kp<6*~qhI%(~*GJnkRS`{Chc zs6!%3c&XjQtqYnNjh!~M6Uk}oCwDWkwCRF z1R6{zVYuxvcn2+WN+VDF_HaudZt4MeJ=y=EK>Yhbly%CbO{y9o-$;@2Vk1AB|3lP( zUYvlud(2^YH6QWsK^1uw&iGy2KOV<~Gi#NC77KOv2<@O?osb`_FU#VI1rv|^>oVe5 z0nBF_*snY|w^jYl&yBQ5k-$j*>gci}zWHRb{fGDd8Q0yL&&4j9x%X?L=lVpltbGpq z9*Xf5QMbR!f{xiR*XCYG3 z2tqwCa0Mle0Zc1$ijw{wQ9d0+Q?U$X;yF4gwgcCZp<|RG<*oEtM*Ry%3z4Ty=rbp6 z$zpwg)h2DpCNo3v`3M7M^Ej=kARDtLT@%%VVz@3t4BzU@ts6zt!ubL6f&FNU-o1rk z=4zMLWtXXmehe-)qK)p(ehr6bD*IFmgSB%zBiPn$Lv4Weg>XoC`- zHVO@AeJ1rEQRisMiAoO8da*7~;VU7~_fuRc8P;>BIB;$!b|WJ>`y zFideM-@J$uctJL~HxH2v9l&WF(9ERO2hGZWYU+)7h5Q*p*-%MdXodfF7|6|-n86yb zU}6S%pw|%>;DOEXv^+(489^E35?#^Ulde$Fzj^Dng~5hG3+GaQC6%A_s8aq0c&f+o z*P8=VFgUuW7rZe}k^$e(EqdUr za)Uv-#ZmB64Sgv@hRnu008HOJiI^Esp9>+;iB<~|E%wLzUt(A$4PULB@GK^0iiYlv z2qwk(orM9<6AoECw85eBtE(0!zkm((`vBcK#RTU#s~L5RTjoH1nMp1IP3)J^E`0JJ;54b5Y_LMvTY=tDRSP#lnl3%O<&q*5hn|!2%N<;04(9hEq4oaN*SJa!M>tWrVOWm?NjcqqQcD^IbFj*nTZe4l zZaPt~+K!CZVmHjcf_eadKLx+dExf07Vf4a5WCzbHAI(+b8;PXQ1#yI%TSI*=60E{> z1n>+WiRu+jh6-_8ESlMwc!}GyywI!K9)k1So~N91_BN>uZP(oUkIn7hsM=U80h$M@ z@{>Y0*6PbemM2;x-l^KY_vody!!JCvh#QRe`sDp_);Pwy{MuqL+`Y$x0u5B5jHx8S zD#DlyZcM>`XC(VKy-2eE>+2Sclc_1uhkKjwl-3sliJ){)$G%J^1-S^nK~Y9!u}s{GN0JQp*G;se676)SZO8Q?%uhoX{+9NK zAW)uWO_!f$!jtXt)BI+3C;4gS_os6I1D^^&~EN+x9q;ktp6wne2bb}lE@l7s7^10Zx# zw)|_W>aB9eUEvlprj9!!G{nK`DV1!L~et9~$!N)l(%RLBs1=BV{m3%f4?V?<;5r&~C7j2u% zEjmS~&<|n8MyEGGX6+SYii0O7#aNt;{Z~%xW={BKMkoiOdN&%h8o~3a$Q8ygw3G0= z^@jLhf%^Jb%u`biCM4U$|Iy9o*7(Sw)u%%P`0%-_eE3iwA3$k5PKrBlCUQMZDd@w` zs-D6{)_MvuU)4W3OR*_4k*#%smb3cfF=z(2I5#FIs?+c@Qt9oc`YvtO zgCOZN5ypwdhDaS3Mj==lxHcOI`UO*p>yTfngzIGD6gYa;dD)c8>oq2 z`GN{|ozu{Y!J8H)Wkq0jLeN^iDby!8EfpE^eV}a)sZ<@})pSU%h3b$^Q`+f}rAZyK zRQZdK>X4At&>P4V-4=uvI9GV{3~8KL(CI{9=R15J!U1sOcsNN}f8x>Zxk z+cL1u;4t_t5r$Wb!MF!@p<8y3#v3eX6vzzC9|3pqDy~Y7VkG%bP8NxqEAuha2(mee zta8Pysy^=hrb@85_x3?7m5h@JR4;4u>H;YlB|u4Z*T-BVwHRU_qholbl_&M#!zMXY z&Fwp^#^yC3!oW#7I+0}nWDpVhJmX)dI0O6QAI7UuF?`eNCx=9?peB_+8c)Lu4}?eo&m?aH9Ppte0t%obFuUOKbS7SZ^lNya5>v(@?uyKx$cvU?A3+`j7zuJ7= zXFf!x+VT0+AX3fjug8Tq9s);mgHK*jhat)_3Ln-d2afovLXF&mft~s&n3UZ{kNEe1 zeD)yv{fPdHED!MKDgGgrkONzJg#Ta?*lD02kY9`FrxfrF@p~{|kOux(c@_o#9{~I@ z(&Pv5XC=Y!|0Bc@)!=}gh2Db31RCM#=K&FC5fN~$&Q}#|7UYl$=Pl5*z}?F4A4ALs z#|cF1GlOqFFsuh&c8N0a3Qn77K!HLNaM%oOvEXn)q&|zWTD>yzhW-$&{8-1z_oj1W zcBrdx(EK#s9ce{4+`X4{L{i)|AA* zH3k3YsLow!6-m7uS}VX95ZaD_TN8{CAbG|&bT$I!&i#MGe~y8F`bx6DE{T8e?e`%5 z&n57`AMjrf_^&qbZ*PnLogkl`>G8i7@c){D|LQLAU)>}8?*NPg3OE=7jR5~T07D~! z0UB`@pnn-I?*aHXW2R;}rz-c4O`_l0d-VG*Y3R47px^N~ihd=D{vWseedzz;V=U8M zevD`AB54tFZ_qD*|ChaQ0gtM>_Mgcl%n%}HcxhCW5n~Mob!fx}2X%(L&LL+Y3PKQ+ z+y-eZKB6QNg+lBklGELzSZy!uwN`I^-CkZ=r1CT&FbRSQf)5}H_^3T`ssyx9_eBE~Lw8 z-po1_bNmX)XCOkL946{nBJ`7Y__LfJbHhu@CjBF`(u#1OUaZY%)6+F+!rz^Ayi9Zh zz#KWor3~V14{odLDbDHpcWcydcLNJL$cEL)gng8!&TbdgJUh9=>&G3J^^!XK;3rNpt+~IC6OS#QIL#9erNoV98Gss?J=CFz zBFjWG4R@E*CaKfx(77waIak_aPdp~+Q|Kr(htJQmNQ=>|JqdM3QlrB@9)qdIVH>mK zE2qt@0=PI8wI5m|!Rm_R&Pu~TB!2AOR|+wZIy zUD5dQ!~LJSBF)crFLhk^^4nVs-HSetU@g;LJ8W*)o$sU0X9$e%8eCRz-;Vj*Wp(VU znAf8*mkvrWvpX>JWwKJS4DseiD}g=mpck0za>Q;SJmQDPUqICjK@#p33Zp;@6-MP& z%@yw6Y8epW3uS1jwf9a^I#yBLEVmZRUcJ*eYh}UZd>T1`Z!IaZp)Bta+{We^*mf=5 zrx}KI(x-%nxPe7Jh~~rnV*Q6s(J{MH7&JgsLpYzv+(Q_Y?Z%l`C=4p_U`a8Qc(J4m zO8i1P)H5g>#;u?f^&(e@Y)Yl66zSzaTUff16hTeeG7U9zH!Ty@f?{pT5jt*mW$vMx zs530PNbg7v??}2Z$RRokTvjRnG<1MXE`kMCJOMb%FBX;Q(3ss7ZYav!gN4z2*s@J8 zCPKjg;^-J!oEJ_*i!=60)Z!fao0HNgZ9Hg#;@CkfT5D)=3{LXwXU`8t0X%m2Uoz7 zZIYVu5G)j!Y(AhSdQqadA~&NcSW=HCtlH{M=)x2i%TCGI>Ii2{Ns&wH;JKk98zL^p zcOwooqQ*z7QMm@K%5i+Go%f#E+v#vQYCb1If2-L49z9*D9eLL*8x3Xl`KeTV&?+AG z9x8%Up#Lb5IKsa@vCySVNzo2jj~s)`T;E@XUzT)5qXD+vbnGe?Df5iZyU5h0fl^pT z-i={j-zOdftCjM*79P4<&Em1|#^B*_tBHpT-aRcm>}fUe@L#R*cxY|yj)xtsr^Z8= zqPJBHc!Ui53TKNeJ56M<<^II)EbRIB^y{$SP4q0WxTP-{^Tg6GOz2l+9 zdgOxx-w_^S?XN%5B|)7dwGpjh7m!yYK={A zL<8UEDNd9+(hec}KSwN?P^JK@R#TwQ6Fg%5`$-~`?dhKj?lF{mUq}ysF5H@QLxIco zd5$o;Llg8y56o7FUXL~X>2l1Ii>EwH2(WiBFQ}I1LhkHTib`qoi0SbjL|UxpiSeAD z3xmok;XezCa+D>rMCER;to)=<`}6y}ZtT4qs2lcsZ1IFh&rvE}^fj4k&CjZ;^w>~= z=cyPevO-kNn(5*bc)IvxGMCbRo)3$+`Uo~7oIeM~DZdm6B>I}m&!%)&AZC#Xoy_vw z+MEZ_hUsn0Pxf%KO}h!tL6t1YG$fNwZAi8R*WBUnJIMmhu!akS``OOO9Bmxd^7dg| z-guHK7!e`8Jk4vkwU!xHa9DF_o8Pp6iw-+-Y0vzfY}=G++-gl2Rn`Q+7L`&LvOA>` z#FjQ$DLzc7mzBzWfP8Jl;qMIdjrn+JWz%*Y`k%x7=yy%rpAz)5L<98a9qI=9+>Gv^ zcWXB!5w;usrCgmNa6|tGYrhWoeggi6gHDph#WO%Z`Dl=L5=dJ4;%U!=2XgT2{%x8A z>RER%K=*>&s4+DFCq8#a%FU?106?T>on6ZW=u|vhQ<2Mequ>j^wr-BJF(eW zVohs#3G5Bhbz7P#S>4l|_qy4r(Kj0xzl%dP570Xg&^s?{+`QCs5bW1p3}d6`N8L%X z(HUXsGOW6()yeHiCFL#)P_vhnB7C-K-B{S1eqy0`nGF~3yqck`d|=VxftTylW2o4$dP5YXVP zz|v&kjK?%7fH-qkJut^sF+sVxOk{({-CR~aqG|)dvEpnjQ&VOdycJlhN11pBc7qI^ zXQbi#O+tFJHi_)U$o;hxCp5+&FPz(_Ab?yvYM*;^{K?4VhMwqZZb z7hHg}Rd`)8Wszx$8E=L8?{vFhk*I`vv%;*z+Z2UH31M|HW-I3Z{5l&cW5-NJlKv1d zl1xALDywSA99y|tqOg-?h{LwapfjN*#lYY5vrtt|H7hIlailUQt&}|Ag_>;KvmzI- zxIRExef?f3!=Dbb7zFL6n!3g5nR{~7p;zN+P>epD!6PhXH%y!y<%Z#s?~O%&7uodG z%ukUOpi)`q0`qg!w5xM7qXF2)p92j{JO@=FUi#_HQHqCi9f+{FF4SSKpb!w`8TKDT zVL9DciA!2VvhrtK!E=<7;draqjYBd$HM$)+i4Q}mIugPWj9fklXr1lO&uq!7pXU4NS}mVa06PY2J_ zQgbtpL#yHja>^dF$-(<5xPXpQdE?|$UWyMH_Re@su6Eq4#5qlf8e z(${<8RO|g{IbM>i{Im zBbQ*gUL9+SBxLTuGe7PCiNX#HD_Ldu+A(%iKT#PNtf@n`f?Pb}>VOQqRlYCNbj@g?!ZmWdRJ^nKT zPbzOug*gGOxyPN^ss|bDq)1bke;lgIl6`d*W5^GYMp8~om(|3VJy=gh9hJ+DMy=&T zTv&6^tsjUKam!rqAK|WQGg5QdanT2uy)RYNH${QyAbKGOeIwc3srl;ot8qSg1MGz8 z`v-X!;~`lKMzO%klm+CqQ*s;wBHbdh)*#y(tZA*x2(qTR%L2?ERHejhmaMS} zU>6-ArS2Dn?5$Gh6Bvix_a8u&(FA4qa&&FLN~LInSbrF#$%scBuurW2#3TC-E_zNX zIRZ`i*%Dd3ioAdV8)@gA@mY}Vga>|hjjT?KPF9C5i`CyI1l1e=3E!`kqV+wS0H2qA z&5QP73*f5(Wq3cc5utEmw^oRuPwf@I!srw`YIZD!eouFW#{a@r(GPzw`9hsxH$AY~ z-dGyVcC)335eE+!rYwC*pHqGqN32 zKux;zW}JoDE?@|)+zxicc9UHd!sQmb&Vc;vZSBxD^WIh4u_~D?!$h0*o^|KE?X-`& zEt7At3T5Iid`C6xZ`qu4d9;P_MyMlE$ZfAV4(~N zZ!(@LKSV1TF{TaJMQ!2hd^73S_f$Kzp!Ht$Hf}~dlKwVp*Wu@vq>^_>B`M!@6rhdea~;`M&F+|^hw`rtM*w9ebV>*UES&X=~nZ-v<6P!ty?*L4{q&^zEwl| zrmxK2y=l6nViaOLS{BJ(De1cFjiY4`28Atvy?3HSIy( zv>)qDE7Yd(rXBhLHSLuvdDGTF)7;RsH53NHXd1>x$aQ~B(<<>lW!SVbbS6OSz$$2% z9~)Mv{r5A_u$lDe+O(_$?iuMtH?B8!Vf?_`mchST_y>#8a;y@DV*$2H$=wZY+c%gj zJQwY~(}icuL==!PC*xCzo~VyQOxAUc9^+R2R5GQ1Suw(Ap1Tb;pu-YOHg z@K;KIRgax7R)?EO0K_?L#ue20=lV*!F@vRESm*%b{_*T>)-h;94+l8YGJ6zuAj7I zUt|l1D(yX$!rUsAkDsm%KDP|UFYPi@9V}EoiKj+OiV4P9IFOUGw3049kdsBNh}@z_ zoWapi^Ln$@@2|Ixi>Ak1U%&n|j*bW~bP|XG!nyt(u(M!fG#YbW0s_^iW6kg;MLBFM zbrdJx<_mZn^@IFm!=n|x<&4w7=(?#_ad>ttnuMN#|9uX;(U?sdCHTuD$qYdc{2|C{#_BHkY^OFI z7ZW_|#lQ}*Q2hv%7@=+cnGFX1XnyUlm?^SAIw?;iub9y!)^|E!UzjVG>>o8zjsLmz%b}ah4?qkcc)1{IonPmfiOMz|a4K6ujt9Ah%4TiG49r{z~Pj}Na z;?flHbUz2(Gj{^$R$t29nPIX_PL)}{N6x61>O1-cQOH`4Cc4W6_aMO?aHDSeEi{27 zUs|u|`>cFObgLMu_lqT4C12gW@3bi#w05E9T_g|!b@i7>2MlnAzwFUyl#V+%iU)rl zjhY(9+x`hZYNF-&I(I~#xE?)vK4i!Ivz zR}s}y^kW3n)|~1X;Sv1|@(=iCw-F9INc337r*bj(sfYQvmmD=FXQ5x;rCl*S%hL9> zV`q*F)%Q`TlZUAT*Hc>`rVeD%^`uIzAHPV~zIqutP(&SQZo3B0poaappUcRn)XVsN zG%wjk`nEpDZ%gd>(a@Qv3~%)@hw}o^vOb8NYhwm+=$3CfhzB;G?jVZVK5 zYpz{?jH?s%-^{Ju zd@|NXTVyx5L^bKovoX}p9#P2MYOPf<@oEF9XwYFp{)JGiM9nD%xqp#}+<<-M@e*Ji zt{Q)y4P)iq;D$%aG4MKUT^e$0>MHxozJ~dUk}#o8m(3P&0WC`#>%h1X+bU-x$6CP$ zN?EHP<&B~9BbnXjo~Vw_6n%FY@%rE5@%q^$m&_W-Y2z+T0;ZoM7_YD3)luzjUCrqB zPiOJmsZzb*--hwC_(D93hk~T1Msf*KKgh?!d+j&4*HDv^&W`bf_J_G610CHL3G4VT zZCnbiNC)2GD^ihmN3+w`hdrt3pTbVE1NBEnfKcGCj+Q5$*c%0eUY)szHSj2TGF$A9 z*4^I3-Jp`TC%bI*Z7DhIsBd_!Us%^D{A#P@Xw1nt7KnzWlFvkk)+?PPM+*`OztJyj zzZ_N-a>@_0y=Ls<_=I`0+pf8>E81s%b_xb#_*$Gx@#h|Jp>IurI{rt!SR@pfUITD_BML@IXeRZ@UoOo*9L4H=SCA^Kn|F~AEJ%eHcL-8vtU+(3E`Vxwcr&t|>f5(E-k>*mO?QLd zj@3>&{_bJW>oyH~hb|?9-jrSqyqkCG2E8y!1Gr7E+py_fj_+Cq-hbR_8T5`@ZIa}^ z)o7*5DV1&&&t9z?^bWMj3Ra`-FCT!fR$2Pr)ksvgZqRHP^t!b!>ybgLb%Wl)-^if% zd&Jk3RwM6NW#Q{WtN5l>I=&LEvcResd>vb9mXBKXwfNe)(!^JEVUpzRl@`95tm5bj9bc=gvd9Vx zU%$7C-(1ltP|Thmzy7-r2l5ErAw8#~Zi~*3xUdrnwUu6UTUA$j^GT zzl$vX3&oN~(Xm@!zgdH*-WUxX7KC+)u3Db*HIj(IBIkb?xlV8=9~0aY+`=F^&C87i zL^B2iI-b5DR3wKE9}6`lV9W-xASDwwZLii9H6uL!U?Xjaie~r7ZvkuDj9Zg!W-(1j zJatUPunwLnBnf*_{7}hMWxw`X6vNK$py`Xz=Wr==MThPEl0M<>7C;qMzAjz|`Z@CR zVM^JC6Fjp{55uW#TaLtcTZaS$I9ysJ&@|A>h8rjE+{u$ zquE#J0fDkpououv=w{m79K}Z>CXMui*p?;2QZ&<`&^G0`bq?q77&-5t_U^w?CT`Nw z{{!b)JI3L}&_TZT1t2CbOm#ui@M{hcAUrou8DAC|hXC(!z*=mAZ?yu^gJAMFgLU>-ZR zUuF|ry0Prw%sR3x@XjTP>KHbN2P@sF4SSR;`{2hut!M?uA!_*$Egi4WP!{4qQerjq z2kWG*z>i?}(%pgb_b*acP}w*L_RN=xp~HtoMZ^tpdP8(ra;MX_3vc$vg0{O~q{`D9 z`aEyvexxqa*PI()L-(uQ#lf0zaT9|#LWkR6s##ql}@1LyoUn=_ED<4Ynwiph6g9rr` zM?`iZhWFz^L!X#Mvqx42%E}}c{3EaD%jh#?hmX*2*2bLd^jx9J~D z!yJ!LPh=f_3?F50it6YF?R+u;UF^b8JH8|3gRpx}vwMf2d&*s|NR^g-RW$l_^Iai~ zAJb<38tdzz4Zz$+KUrnJEvlkNd%qJMKqiBzKh2{(Q%Q5bkJNP@ z-S`$y?I^K!jXiGm$7A&8Y;N6xol1dDh4cNm;}$dbXrDf4b*qRch=Om;)+fX1(9cKK zxxLZv=?>)hlc0N({k>4GZ+m7S)!2ialtkHMCYqXyn6hPHaNd%wcNtPWWzcEMA5se#)3)T$-t z+9V-2ihHS2SZj6$G1|b{H~}6*qd3KB7EW_x>CdP%->uWL3`uDjXAnK_(Dln0?SOqE z`d;JbrCf!t&Y&bLS?I@;aTMvLPT4K`PNL(+LXG_42g@w`Fyio0^75F}j$ts=DeX{G z`Cxd;Wjy83?uI8Ygg~ef$a0~Z6%2(xLun?e1yJql6;H)jp7X$0jdA8}oSyL+15ipq zs#fxR0S9FEzKo-KQp)HMDYg>}xX_@bz9UiGpu6V_qHn8E{U)Bvs-hibg(4hr<1yAm zobnBL>b|5PYl{q!)zS8#uPrD{Xu~7cCej|gC9z%Fj^`1>?WmR^W3|xV+A05`td4g| z>SQ;zp_CsThtbJ?vI{2CGmC9Jou|a6rU5on(nQ~Zid*=hGwaIDJg&=EK*fuNb@o~( z_5z*Xa%w@IyT=7Y1VYwR?dg$yB0I!K%y$T=u41a6A=>pDh|jqrAGK|yAtlqhXK@MJZK3AlcBEk`pr)UJnlckLnROD74n%1u{Bn}`oGzlN7Z&%# z(QJItE3uO_+NXgauQ>u)aU<~6UyKnj2D)v%jwHXtj-4);{3e*hI50i=7Yj_{*MX_< zv~W~t_M#}R7eD$-Hyjn~IJ)i;3rD4Zqh;N3bouC5xQRJk@W}0E@x1t zyh;hzpD3)Pc2&ZA9XH7mV_U-<9?ttsHOp!zi4)j(S^|9Xl<`<_}?`kg9`PBcP_<8Qh zZ;GFO-!p!Ozxci4XY-nWC4MHa=>tF0YEOZm+)KVkdFij;g}hYq#F@)W!a9UdV(r%p zOT{t5(z0*0a<#1LAuVl)mzI`&tM%*dRsRxk$+fBvaY=aS6yj3X$Y{K{)Dus!Ti_rb zlzbrSlF~^zqf@GnIz&@Ya+p9GK|oqfk$lVSqA4Re;xQz#gOLHEI@~V#4obp=gV?u9 zJ*(icAL8z?-4JUe7PL)NQaUKk2RjGq3HlCKB*__DBNqhOHZ+Y%co9!5@`0+8?V_5} z9L(4zu{X8I8mDcU%yyDe3_Vk{r6ClPoDEWO+yn$w-Z} zM8Z6BX?BASc|-@Ift;}eZXyl3kOt#{23QWQxip7YvCH zHHs2z>`wLQu&EzH!?n9Sr-4UH3rAsiFtwn}2FdKTV8(0GMniEcu?9-wctEWGG9e~` zBa?vZy#{xAW{dhMOG$+~GhGDJM3$aZ6Jc){II7~~M#lib3f z0w~F|Qk?aJ`(F5$CAjl23Y!O>^1@S4mWOdLvgoNi56kl_*?yLnqh#mM`4c)N$*hHx zk%H{|r2Kr~*jm~MUB4l#*`kb=qqtFcT}y%TWu&|0YTy>_Kow0MG*2Pdbv3aGb&7G5 z=(!7xaXb_G1~y;8Q_43jXcB{SNzs{UU+a^M^9oiQyX@x4^#dnnO3FpZmZH%UBdaQw-w1QD}mDzZ?1iz z$6hK+V*luE71HZGwM^6Ye4I>!2M)&SvzUt~c#71^0_2dD?9-BCmOkHo9S!O^N=X!` zU1BXmMZHNg3x*qT`R?)Z#y6ISV^oH}c`Qz4XyBzd*h3x$f(L5PL8YN~&rf?(8Qv^f zDnr!Iej8y}c<#H`7jAs^U#Bme{A^$H@6S#p|DI>aziQGr%!<@F!R4T4Ch%l|=K7%~ z&Cu^Vd%N$yX$mESp>U+!XRMA}?TQs>$jSuk7n6zY^6R8z1IzN4)`IkQ1Yf(rNE)@Es_a z?4FB#@=^*~vXLtS+_<%Vzd#D{+9D2#{Zmx)-ICHzVz*+dLKixXV~6O}l7-ua`fL|Q zU^w51R178aQ$k(#ivD^@p^F?b*zZ@M;mWj!oiUf+8{KfvC|P(qDa9bY-q`V zP4X4FuzjLS!VTBClH!V_<85DR#XwPsDIE+CxvifljfVrNb`0IiL>FAz^h=Qq64?Yd zT1&tmvoEK$Kg^Ap`|{4g2rV&AdYO~p?WocZ;yF%lc}uVQ%EpK9;z z!$q#h0^Vw9BMKq=w1S~LE-k)-f34^FHMg=!;CWRO`fh1IY-waLZ=$Or2^tkiTBC>CPfah=MaN4vfwNBgD z;_ru<^gqY{;qQL|{&o)f-+;eim4v@Z#{qwPYvS-XtC!TZuc*dOhwX2X747sUYY5}>8aW^}X=Xyyk^q?@)^}{II(JFV+J^nhKxbdwn+X)qr$l0vzJ;AG)hmZR9 zRb&IT(NWuj*&){H^<2_dJ-CD7^)S7ji_wNlZ^i<8{r)>dBOQ`gd-E6`&w-R&Pan96 zKQR%*uy`d*N=3EdaP|CNxf?#GjnqH10hMgj6HU;Ip6AEXSqnDcVg2{0*mpdz8KktuQ&Fqhto;|d zI6&8xftX5xk;ZQ=X{#w_XKc2OU8jeajx)i_Pj$R#241o(yfl0HIRCMaac;5jak}y zi?=1;g@CfqR_fjDR~jhGKPAc#INB=~$_VB!oDRw^K0TCSJShWPVxzxF4=6$%Xp* zzRrZs<==~B>8S3n|4xs21@fv#IgB0E2l2oud6 zc@?C0nnGAUO=7tK3U9?Vi2SFzF_mTn5r_ZlTH;Y80&Koh(gNX}G?!gs+bI1{)ncG! z^&e<<-|D8SjaKc>Ai`($T6vDJuFle zjbWdM^S5C5x5?_Pv_c+9)aj0I-qBNzuVbb@zJ)lx zh5Gnj`~RrB7VxI3Y@M_X2`^7NS}F4CIK57lJ6fru<%^GmCgdDVAUp~IM0y2zC_DQY4CdyZ&<-owf@85CBs^tiKK*Ict|`nNel!vI}od%Pw{! z;o(yA2#k{@N;&A)CG-5TqC5~2ig{KW0eAas@-egyBUTd=lfIxf?G7!I*Fy>y(h2Bm zjLGW+hD01&YSgvf9L?xoiwC~)aTa}ETj3@6#w!cn4^KGEom_-ZS_;|lU|3%k2F0L) z@pby~l(_S{apU6;yJKMpFe*mGTxTh+T-MX6ce_OKFp`<4xJVH#CxjKK9;rsr-UE^) zB2+G?h0#$^2&OPZoz&woT^pU6_HbF+T*9z6@`HRZltu|0-Ig;8da2rwcee_PmhM!4 zLuDyiTJd!3OkAU(e$kAJdr?HHqNY3@QxxScelT>yJ8pU>aZnn3gwAmAl>2&{tV5!N z-DzTUKmFRulrwV|^jto|)~@O}6TeeE6W4J1Cp{Pc37(5*K5ZnugwlS6hchtPZFIC7 z=kPz764>5{eU~gv3*bi4Bn@uzT_@|6ewDZCOV5eHai+u@eHg;C5i3u;#=7e@hwLJc z&sdUec3BSKc{U!d9hHP(y8y^?6N>F_VOzRQ*k+n;IXXYvJ-7ir7ycA^@_hXZgl%I} zQl#>5iWsd|%9Nb6(WG@$eBis$#=~4ph&}Tjo{zKjW65% V`gG#BYltFWO?uH!!( z>KyL?J3S^@8hno^_HUw9iFG(D4nC*)V}-_qQ9Eh17~C_WnFlvCvoH2tj>6jH301VyrT;Kbm^<$ zo+>C`qmYa(L*6d5yN3ZJ52_ zqY$OfAol=rG{_AUWWk3Ae)N*hKmmxgpcuX`;$MrD^!Q?3d5qPCG6=!%Rs8pw*zbH@ zQO&KV^a)7cI1oibJ0=3;wMsxPgD7 zIqx&r?MK|fk_LBhaXkit%@Tui;Ym0*6GWvK(v9#Tnem893eGZ1bvA_s;#Oo6f`9pN z-G&Jxv#?+;6wHN!xlk~l7o3%4lWkU{MghZNg}?1Vr@aMZ2e1KH^VHytoomNTD_Oj1 zOt+0i66&S&+ih5gC*j6FCA-@FHVh6Zf+pH9=yn>Ox+wz@p(#;m%GxmybsXw2pjfV` zG-rk8U=&jMFd79P1lnVNH{x`yJ0pgc)wn_n>&4JQvt&8%n<>iUbJQ#>*Urd)qmq$- z>>{*bbF;)cXAW=pb{l!CbhB}H74)K*8-dHs3LA$jw2VQcxsv6AZw53fcD>OTl+-Ux z3#m~$*z9Q3$QvE0Hrg)M8F`y`$WBwx>5-kig3hs$<*!1;Wqfz32BqeXRf1C4i=%Ni ztL{2`aTUb#N57)54D6&;5w2{BxfBl`hb=YgRKM_tr=Snhs<**dyX9T@e7Apq@2JwU zapA1BA85KV)lgzdZs&;yB#TL?_z@1kH^X22h1d}C=O{3j-ipgk+FMkRH)lW$B{`skr+#TQN zz&z2Zj%Q*>^TsVNOkR!GDU_(W3gxGg$vmWFP!}oI9}9S}CQ6ipPQqjb(UVG4DS;KQ zO*VU;nie3~6F-aCO+F)!{$5GF#Hn=QXEc>?7zz9;g=1{Qc)q>kkx_hF8K>icvY~oD zgD@9W@tYtQVSHFri1tCXO>M$5M-v;)E=S8OP!zMMHkEcmMA8aSen3Qy_@Ltg9Tzz; z@1Bt3xPV*3Fy}CKTyUwbW|k(we}O<(`p4LM;~^`o+y!?1Mp}Fz_iP`w;w>DtLvXS>3e#Mk1GD>Bj1 zMRqiysL)SDlH@_S&yvTO*v?jD4>R%uH~7fpU+|c(Nvd;MH zecA<@aLe^58n;ZkV$m!Vio0oth|oDZk5dEi-1n-tpQ2iYV*IT|9Y%P{q{%QjdTx(P zIEWib*adfY$&C(qm#v(o3I0u#!ItTLv*`c1HeAaBesb~FyhgBPCR^D>BPPo_2Pl{1 z-P47M;WnF)o)J%&wlJ)gpPJAncnx>|33;q`cidttYcW7!8`|~t zVX=IdDX-BV#>@eN{Q%ypPf~pv)-6;62!*ppAF(JW)MSZ6_^;=H8|Yble@GU+@Z9x@{@za(1TG#Uip`p zeI>EDDOUEwLAIT^q_@d?-)pv2=t}z|_YNKd)(to5G;dRF4})^@8fzU9)O0f|EYRuv zACx|b(R0#Zr%B>jpwUCT){$$#T*?*u1^){EDjlX##1(SDlE1Ja>M{GnrRmg;(n!lN zT9iOdL!G8l8^BGdb^zer&D36<1G8|$Dz4gW3m~D2Ny78bko!!akipzL!|Ik&sFx#f zOG_JpOKisn-lnplDWzWY7^dAWvgiE}YsRc8m|uICNn1az9L=rWp`Q`f?S1rAbef?? zs*F58pw03YSU-+1wLDK|S4rFwDr6F-AqegyW6Of`@RdEr)Z=lxPR?a@5srMmCOK$( z@07jbZ))Nf!GGp5x}rOazUHWpl9QdY2t=tz?^bvkMo2j|bfGp*cWm8bG_S0MTDZXj zdXx$`M;GDNpn=;B%dZKyhE`LoY$v#-l=e%6o0oTa@}6_}gtGksgKr%Xd%)e`0Kkn* z3b-5trrbur{UQdq22doX6R%GOxQR&4BviW_VyL^%jVI#nNUfs*Wgk&x?+BPQvS)!p zz>R~k!X+`p_0Y!WiAi0Qda{+;caR?k}5A*=|ML7IA8tZ^x1FLMjI{Y>f z{5GrbYepy{wm1xzWP6xlZf6V@9M=&UnuoY@_`MxKTtz^PbO5m-nK0sk7!!uLI01+a za6Q8ASgZmurd8H^YP@|%*OtQZoowJJjSaj=Q3C&3T*jkitDbMQ6@dpGI72CpxAAc! zrPIKS6%pon16B>e$<0=Ov~nky*9S%BdSuVxM#u5J!fu4N7vz58v=;rUse(RkOxqsC_>Fi||^(Xy{#$@>>q$92Qi7*{2t+Q;Qa3rm!A4>i_62)I^(j}q3;Zr z>GQ6D%l6_#Tpsrtb;*cTR>}oGdpTu4|voy8g z?9=#LKJ#f=3ilu?()wD7vf=rovDes0PbJB_Y)XQ~6O_!sg?xr7$g(xhDpYSrGvTn* zKHVL*O@e=*o+rOR0$T!EsP_w)UNpEe+e4AVE3=Wi0Ka>cqDb(<$$7(KXsuEVnMSs- zD5X%Mg7mIi<`q+pUksA7QXpJ0#xoMJmqOwdL<%8d^0H@pv786W@q`>U!7K>3^4IG4 zhQet+C!{OxSRt$mU0Ln&VONNk#~$%l@GFTam;Gbw<*3baen~p9Z>^;tIRh7Z7~K$K z;Nn-<%K3QU#Rtzu?z|jbg)iQT_ABoYTRN4~L6(u6C*??TNv`6gHDyoh``Y~3JcvZ~ zl`V4Q!F-LlWotfQ+9n@?Y14w^_F_r*sIuSH}alsK?}z3-WQRi&DWd zgWwvJfs(?y-BC{#o)36i4ZND*;(S+dSw5PTUJ4y61~}&1gUhTEQp-9;3H>pGPLEK{ z1?Udm?+z|C1)N?nWH|nYQCH`D7@Z94fn`Nd*G%|V4F49ng70v`vv)Y***mNF2N~2l zqA0`TFniz~&dpv~!>@<=M?L?*9dR_{^%rmlZ>qW-JDLjX2jT57=H3ieM(BX@H8d)0 z{ku9Mwekj?RxEfUj);ySEeH76(SgZ}sUa&GeSJka1)Wu=ifLl%0eO_U{G>jb@v~oI zOAnDm%;aBuP`wpI6~ZGTxsG$pJ`t}-buFgyBP!9=NRt@hA+PQ9*f8`ttjxR$npAk^ zJ}FZeA9e>z>hU0DqbvC2%dXIW)cyQY6#lGo42jx=TT5z)xa1=F%Q^f}q2dx$Cp)dt z`ttVPLglIMQ29oiywV@>rRb#8L(vaoEL8VCv14~SdbRH)ukR(bzGDZK`g-tQjh({_tbhV7X1&rttvx$ePYs*`l(c*f z(mf}bxADU$S9U(kbzgRVG^5)Vqi%XdSa@!bfs#S<-!YCjADNdz@W5a5Ni^EBjpvG{ zesf9?X1pZgRp!2`OoKJjLvRXfaNlW=g^nLLs{F||IAZdmEg;c#}p`f*`trpQp!u+%m5QuJA9_zp8slFvsiBoRB_Jq{@f<{Iut!llrFCSrtemyy>kc7G;}#mjPL@u==1N@>LU z;#axQL+$+p+RKk`FC$5N3&*kpg>+jkws-h#BZ?^>+aUiEVfn}1=(I31t}bEue)>7F z|0}Axp;_Oz83vCvE+LY~jK3U5E%Zpxg8T1UEu?9*;O(S^>x+|W;m;3~7V=38&pn%< zh0U9}7CbR6qM|YJbv;Bdm;qWWP4vSK!!Q*8+AyKRnLw+ zhXkcMA>ENFm_@UYj{EnSX0gti$)Dvp*gNP#4q6y&s$GxS<-bJoBQV*Mk#;pl6bj&v zP{z&3ADVi?M!6!;Rp_PZC?rRwJ@ACSHOrxROX#T=y}zg>!DiY*9zAPqxCDrRpB>&E z>oH6RdP6-yb*tThZhE0h(94^tj%8Z8QhKwl@g?-dBQoqwecZd)%P02S#%c#ITdu1?)^@Cc1511NmFbHFSTI;KOGahffxT>x2jc z@d(nVUI9TY1rc;+}s(nY}pNk6&a8_ky25xvih6zvqtGW!!6@< zI(1!$53b{t37Yt59YuQ+T{LtJ;WHn$J<2^H{6GNBp2T~61NC^o8!yERz2ar+{8l1f zYcGlueM=ESm1uORcGwg_|3mIYSnmy!bTJ&)RFiJhS6#j)zVIDV||2TFB2h`!OC-?8p|`S&1`HOkXw6J5>_-$j{pOOVOzQ(BqyyoyYQ zOiwD4e~gaT^zZ#~ViEj(@%2~6>#IRD)@^+Ac=}yvH0Sl~X3!gw|DpFAXOP^iFt>-u z87}V-+c}CH;BW(Po5Is$P5yt*t_8lSBJ1CzO%t9;g+O2hvRI*7T*|8(=n5$4e4md+@v*;8(RJMqS8P$Cwb+)21$;oueju){PKhhk zRcLwiesj*;dvkA^mMXvBCCTl*GiT{`3hC}cjUzrMQPC}`sYuNm=Ygw%X3%24}@R>H%dxMat$3l;el4p~^Oeg)}-LU(1x^u)}K$XnEL;SgxL`jlV zij6?At!ETJ^O{U?$-8PyL8f@0&?%7cMvN2$gE!p4SA_o%2nFK-h*{z9< z=%2pI9n5c8M~CvjN^YdT@$!33aBm*m=_@}~2Y06LHULuFQ{X+oAII)uH;-z3-UmKm zH}pt>^FP+Vgi@!}E9Tl|6rJ z=`P4`t9t(<_#avxk-h)Y^YWnoA58pc&pfD^A0aqV38LIU*PT@deWiYWbSQ(Kz@T^0 zTUV%q-lZAzadS}-HX#*NB{1R>*@%DOCTrL!YJbJ60msfJoxkNn#EX5eebpuW|AK|7)i>acLfWDAcjR7Q9u`CUa97GZSZ?#;4S zG8|iA-%zKSkTonge_G1|?S$ME!GgD!MrFaHUSvTVvS8e!dKRQ@<}9$OENJU73+88V z7Toy;vY_L+2o_kNpXjWGIu^JVVqdnZENJQx3tG~{Ecn--kp)f2X3m1Xrl>4vjqQR3 zCu4yHUu{xD3*7Y{@Q5a^Fz7=iu28%|i7QmfafOD?aRpelZs;PePzmu)h$}F@+7IoC zh%3xpfN_P&sBwiI@HDU<;tJcUmAFDvw{e9g9#^3BF(UJxH7=!C&-$60ei7?01M3$} z=d54xIwL5D^GCY~^_@%O>{q3xvPV+$7Jn@p;~%e~)bLTorRD_8 z@R8o3^|8IiE~Mr~3@7}hLLRs)(G|Dv`&;x0B;{0i;A+ANk)u|+BkHJaAgYt=phXYs zStnM=HgsnL+Bt{MZVl+U4*UJHQ4Q$bIXcd~oP!2*t6Cf^X*WS}$FtCd!f{uyOEd1c z|FoTl0ZjgJecFaFgCDaANI zQ_tc610RPtz`m(G4p3@D*0pN=ES0bAnVdl{qOUz{`qNRTPw_Tg`-*Qf3(=+Swal=X z%y~rqo1-bEkW75tw-0{?%SvFX*G>``ZH}~`gGHn zB@3fAX0*03rwX*)ngT1R_OJaKZ+6Ij?#(XKc(bczZ?+mgvvR?e{eC*SvV}TVw*NY# zK-U_DE9|;~eV@p#>)7=g`#qIin+uG>f(`m>!lOoAK7QML4W2mjX}@4TZ7WW|rW@Z> zd|Ip324INeSy#+}J-Rn9L21>RZ@!yOWlPC56LcKhxS3|Mh)PkMX?bW5# z*0RN{1lY-y1p|iG%HA7zT1ov>4Hw) zc%W5>I3C87COjWBtA+y#iQmI&a{x! zLPtLHX|tIMz5Wv8YQYM~&QVgBAovE*)5&H5pXdh(OxY8V=C{Djlee;ODVTcI3uStX zAgytmLrLLGQmWQvsN+10Zx@}K^Ggg zLSM>4=PLId0A`;T!<78k(cA#i&!?%#7Rsm1pk@ZR+)W+D8_-dI8C@|A}zRe0*Z zWs+G=Ob7>^?k?$&Lch1}nQl?Xue$>2fd3G+rcNnA`%J{2l)^Xb3ZD`Kn-u3dDl#4H zV@O5j5E59TEkr5c$sa0=!p*E(?qpXHyLM`>y#YRlbg}=<3Ax_WWYh#E&elC`?uyAo zJm(eHI1td`#5$&p+CBabOs6{;uspm>4q>OxY@djsn&kQASb z#P{se0T>^F^-gvrvMZTgE_S)uMc9?iu3UC4%cxkN=M7Z7il@#y_feg*nY!*DKY!=+$>W(dl|CP2NdP4AQ z4wr_>uR-+~K>KjUEV7WKq1MvJfxgPHI5%0#H^Z%smr-ISGUCFytPW!?tHyC=C7pkN zZ94yuRkBZAk8a#yx(gnXlheo4a+F&a-_%R&6pU~yE2rA7rU&cc6slXDTJ4;;0 z=pF%eFk|J6Z>XH{%y~(Yv}seEp)X_v-b7v66o*?$o5J;NU9?Q{bmZF|5|>w}nng!6 zP5e_BZpmsh5)MBj9z&F2gz=yUAMTKFFEmVqU^>uuoKRt*0|y+STv%|MG70uGZDRT% zBO#IXO&{0_*qa1qTety{fnmFOjIf|7Ws@1l8W@9bS%gAZ&aU=6E^ee>A9pneHrGj!Fw4AqHdR%sj7Hj~n)#NFsGRxkH;w z>qZM4lLjP{3Dhc>zx)UCmfq31{h%5FS^$qyG;12W^@=1R#&9Nx{0+}@&Ij$^KW=7D zS-Oig$1SJhNl)}@+m`_iWUcXnaw)4;EDJaU#+v2f`jY2U_DI#!OMYh*3NFy&A9hGw zu#)en?JO_WJ&e9~f1AZxF5#@v&vyS+DMKvXcx9VW@W#}nNoTno=pDlta1dcTEj%?q z1N~DxpB)1u2nQfa=HkFDz@hvN`SAd;fxPLTL(A-kBz!JtCy!(5G^~TD(enzdsu#AS z9;=FYe|J(uJ*xu5(Wx%jey6*EU*SEgD#rM$^kZw;Ef}Dfk#81`e8&2r;}1q5nSJK6 z>j1kx(_BxpD{}k|EbDsw-98n^-}-0e@nD`m9vZusi&R~4=ETR z(l%(>DOL@v2g6tq%6LD5)N;Y6hiW036C)e)M>PT|z{nQoC6KV*P41cAty=?nclFKK zo|XBZ;^Tk6(x! zTrd!y0l1oMm;~4ynVy{y5K4-Q1s?!&(v-2dT!K23NH-3?4}DXOJ?2ZWEmRcq#+qt8 zM7a&DBN}o68AYonT!?B9G2e~ZLz#FgBaMhT*%2t7(ecy%D&wckxe39{m}8R9G*mvb zGcpl9^j20t^56bmnf(UPCYu4FtzB$wjgrL=WhN&=MfK_UlMW0y^1!UC!# z%9~_weNgSTsPoHhdC+}w{Ktb+bho`wA@>4dHG@Btp2z*6qGj%iqHN`?3iFC`$hBbO z+)$2yEhu6VP{ew)h!Al=*T-S*z1J*ghP-6I4qF$VpZzsXil@P#6QNOKnERq>Q&c*B z4RjQaMu<#4LD#3Fs;Y~T5iBM9t_L*TsI4#2x+lj;A5Qrtb;fpI=Om?0rM~~Lfa#fn z0kQp{(!~0xS=EaA`XzlIg-Mg12q zN(DV-MKMn($EAcTGo9DsS{{ynUQDtAsLG0Q{w&^)#PQEdu_=6aSETAB+Z9%KD*tbD z0l#EwJ=di6Ua04V1eCF4S;mm!x^(9+kk$nW-AZfuy=EbT-mRSPVUqK%RgniO`qvFu zQ6Zm9G6@r@5?Q3`((?q`Z#dphq_OzLQ~)tfoR4FWn3e;~HIVEV?lB8mdN6+0oB=s9 z4J0_*l2KvwiUw|iK^9AcbAOY2P43HWVA_8~9jZ9Gk`6Avajpm{W2YSRczEz#6mtQa(Ti*2-?;JV*i1 z=mo^1F;6Rt4*qH-bbVh!9{0@=VKd$<)_BF)wln}I^o@ZCAi^2`O3pW$Z7bk;w~nch zhUeICk62yn5qlw`;SgxWwa=lNn2 zNo~j(#cGR9z|{u-0f(mcNO^LG*QpdQllkX|XxtLmX6G9XaEzFk8X#bqEpj&ar z9^|_vVk`Cc!F1K$)U!U17b2@CvXYK?l1_Mzw`Yk5$ni^%s%78HkbA(Fh;(7j38)N+ znkMI=KM90=!;JYBJaU_Q)i){4`i^;(ziqKEj{QHj;6_i<1#-NDOwPAGv;iq6Vl5OA z12%iUZB?M}>d<&k>Q4n$c+&rM2l02r6+1%!N0z6cPH1sflO6>XVl#-q;E%yL3o4 zZUPmTp=|i^*In7M8NtWkYet}SsF!`xZ+^t5^3e4-geL|}A^bRu!2#0=_z{Rv?Auw( z`P$1}X;(;6LknoXNP3ztd|>eP-V51cX~S@HXGNuzFO()!QgksR`;oqv#;zbw_;^|Dc@&C(T71=`~I)HIcrMjNuXX*l+1}wFZ}5!#&y>!sc`*dO1LW zJkj-dmRkw4oOxLHv)t&x@+>zTznHeHRcAT+r*3YyFq6EBJImHF~H^0S^Ez<1s(SD4tLq z+TL0IMCN$3dl9wc6WF=(+;5=a3msaPMoZB#Tu#w3?pI1jDfrqlFY;EH1zr4^Rp(Np z?NyK~iB=Bf%g4;EWS?%I0D&IqcNM`$)r&LwfRlG<&KUaykHFHH8U~C)mib^~4oUhVk^y5L^d1FE2s4 z0Fs3LzKDhsPZX*d8qHczzp(tuFhN`rvP3rPo#iVZAYKpSx+>%=fXMtnVD}18@{my? z_49)BnB`@TjZ{v40yC}l=Sz=ChsnhjQgg}30feTJm}4Y3@MBW*j~If0 z=Mh`7WQ>(|Xx=?MFTA*hHSdh?1|8n|0MI;i`)Ixf!Tw$lBH{?dhR5zr`h+p5wcF;n zNNWBW>xnt<4NSx22$-q{Fyu9hhGUlMV;HOfg%HrHp-xD&4k%0q z3Tx%{4EnrTS-_^9!Jce-CLR?ncbHpVU`h${ zk0gba1O~lNL0j(nLC1bozK-bs!TVDp-;dJ26Gtii`*}e~Q=Cj+a5i`ywEuZYl5?x^ z;8@FhgY^BQe|`=;pRIjd% zz*ZCpT;*YAdFC$o(DqmJtn@TcV&0oRln;BzIgdcT4-88T43cNDivQ- zBU)jFmPhA*&bc#5`a<0O|NfuPpAYHG+`0G8x#!+{?z!il$COkK5BbpNcE5mP^o`8CIc66C=mugy2aqe&akYQ!T&NqIueya5fr>}~$7l?#5&@lSmO?jY{7$*AIIWPhJBs-R?lUkzaw4Ae_i{)W*Jf`gMTu<^qq?@t_;dpwNR~Tp#yWU zPXVJpf{J27F4cAkW)$r;zQGtcD9}!9d^@o5BE}Q4*Z7s%?gwJ98=|gh**!3o)1DEP zEw$RSKDB_oPZ_s7K7JhqYE&?*D#wM2koYncg8jJ9FbW%S3~Rhcz4BWBR1OvlASXAY z#C(Hl;J9NE!zK(O%)4qrC1xoSQTn`O@Ld9XoROo`Ic~Mz8a1I-Xzc3IChZZGNMqTN z7IWY;L!iMJ>Khvv2zNwF2ngUv9Q^O2xIWb~mAr!OO6z&4oUWKv8t0!U(ZE6<^>xCp z+2Gm_!#^l2R5QQ2jpBDytG=6PrV-i3=|;!(6s>_`BuycOrnSGo`YC1u`lc$$#s@rY z!v)fT4^!etZy`-km-5f|0f(Uyn9g%(vvl`eop|=dda3Ed-Qbp5#k?YefN;~KcO6u7jfIe{Icg+gi<;V&lgQQqt2XC#t5U7Ao5KLGaQqh>>v-O$2K~| z%U4RD#5pxFORV1IKUWudPtn*?O}ouQGUWMJXb%0*v7cMo+QrZeG6h%u|Y}HpJ344k1#|Vn&%d zByEkQZDL7^nUvtrBcVZ%IG>gOXOj@(VsG(p(Dh%qz7_PPO=v}6{;=Wx3t%b_uYeh1 zT5G6<$voVj1~2lFEZ2?*cN!m3hz1gXkqSH8YbT|0$*;T8PZ-_uwbRhh6pvOjZ~P64 zk?KUbpA*uQ4^wdk@u#YpizZW?7>o{6OY|~i?|IGD<`1rBMS;ZW8W3oV>amKc+t?@& z&k+RjUbj@56*uKE&Mp8VWpo4ci~=Ft)tShl*e+QaYaDenrLU(1cm`RC{Nq5`yElO}mJdn_^&Vht_&GnE|?-i4Ck2g`^`_tgK$QD-rcrF4X%4wBNOobuyh45q)W zxfMkj_uQeX$?~RJQj}{{+*TSTBi+)CIB>_GR@JJo?_zd-uBqC5$wtzpm|-Yo@P7%r zz=46b6o3Dn-)%ex#qh`K47@86*OC&MA5*49)Mb3lg7LM#GCsbh#q~R+6LCF3B*t|H zNcsV=1`SfUXXEOo+mxdiKL+(5H(6=Egx@A|BJJRvyG7Gvt7y6nK5lAKwk|^BFCN}h z@DE2SM1Jws3VzN$YlWL%99G`>YlrHTOH}grmHFx-7?>|Z5{|GbG{PJnrt-amMwmm9 zw72=3FW)KEq7E?W3GYyTt-UFva@ih<=pieYtxSZsuU~@s?#pJ!%4$!V&oFIWz)i(aMD+*ro@$ z?5^fEgQ+rm(D!bhA+ddPAE%ut#kq{Kom(3Q%sx$qo~_j99+WeNF)9vhah2VVtLjRx zw8MkT(H?TTIW-~YZh7hlRgK3VF16vtc+%wfmeY|GiX0Gs2+0*}#yok~xFa2AB{h{~ zvnWqtt2D-d?9XCXN^MAf>|1@8;^{^zbL&6O>I@n@sB1*(Wf2=&qxSWvUbgW(UA@dJ zZTCubC`FZa#C_xIkzuDoD_;FUO{mg!*ol|Nf5&X&dx79*c!i>7+=zbX}HxI>%}bqpR(u7>AjL&p!(bz)Y!)o?{|U{o>Z z{}DAN-j$f0Ot!1w80kmkS2$6wu1xO}7n&bOdU3rd;SO^Lkn)F6S??*_z1wSjcAXcs zATR3g%XraRzY@C`UjwT;u>%m*QGsl7{|e-ik&hJZ5&sur-lyWulcGH~yHxvB6hD

w1-TX;@j}G>;u2kJ}^zWwEG9* z@Uw3uz;`Hyq|dx{Tve0X(dA2H_tTfIh<|D0`P!FSCZs2X>z()iX~+-UpbMVPvd4jGvEZvBPF7Dh8whPRfuQJ7X^n!CqX*z85XYN~KOIu~lg2GVr-Ip01zk z%HMh?bmeaY-{u1QTKy<2#5bI>bS`&|1gFw|cQI z(As})Dwn8VYxVV_JU*d)y_K}DOU-fZ>jBBy*A!$-&3qTFfN;Z*j%S;Y)-uFQ2*TG1 z_|3b-jci;#W)dUKCb#~PosXmd;~cYU1`7FFz-Bjo`a{zhKV8f|9mY@B)2ClB(L$bE z+ZBH>_BX~=up`apv-PnyhbO?5%T4aLNKbG+)D}Pn6gyT9GB55~kB&}VP$1(cSk9w$4InR*F#d6fl zdqgsB*sVA_ReK#(OVxQoc8^36?q}jzdM%T0#6|na7YwfMP`j;{z+^acvY6E?;ol?O zlO^!$6^}F@HnN-Dc~KfFz_v8a9pRPJ&xJ+R6LQN^QH0Yx8P3W z=s#IEjBnu#-MS%4-EdOx2CqEqT(|TA1#pe`1vD<+7an^v88Kbby)XWCN>#N^7=s<+ z!L44sTOP#`Xj4Tg4|-KOXCN9i9rN|&*W+eO18}^Y@k_lc9!ly8uhtbUqU?%yMGNZP zJf>QxEB1`lx?;?wcBu*??HgH zVctr^d<1naqIRDsPc-1LyY(cZ_HLMmd*O4}c|vp9=jugCQ6dBMFA_}G;ND-(@FO;V z+S*I(u)s=rwMI0ent4$dYp*#j+?zePtn+Z)?kFR%c@cp4jeic?t&p-b%D~wf8&I|m zQM!x8*u4bJn{WtR`gdJn=?+p@Iw?vQP`uqwnIOpCL2@B9N}ZgINImibsV)r?<#CR< zjUq-2Epn0deZT#)U=4omKb_ZLXf!lD4RwNsFr6UZxpeI!w5yNx#bgrNr7sl%%|qOQ zHiKKOhtxS2ch3&=88dl8eLSIJYc0NI&&5`(0A9l@I$!8RF22WG#SNNiYb89v=qd)d zi~_&TipJ7?1MLQXAAAurV`fYTmZSjR4Msz1E2QG0P>X>rDEMoQ2)PrF22^3k3}Uo6 zi+%7 zbw)Eq`k-@Xl1(e)?oidW>>wKBl~Tx!I?n8tL~C;CC16zJ0D>8e11HX zNG;4@KLGY=A(fjUv@7kV*`V`o;O z2|gg+Gm<5-Bp+M)EephwvhKmSB1om?tKx!kldEUfw^r$X=K#FWOADINgYShr+Epn)wHt^ zTX~e*+bvYE5W$~%FB!m1Pn4n`GHk17z&v`$(J9{eQ($h zljq!%%6X+WcW6$%Q#$04esG5tgqeGiI@ek>ewj4`hsqD4>|KkFOu|az$_~{fZ5HLS zwUF4PTum{w+e8xKi?+BJzb}dL`}WBHZs;2q<8x5I@@^j#+TEuYEM0jVBTV9=!D&fwL`3*;jYy~{RL{bZ$|CgFuKtHnmKiu7jCY|grI|UiaI9A*sw+L4>V{)=Yqjb`tnQ6F zS#_mEsHP?A%Rig?K1F@5X;fdCLQXuf>qORGbdjoijcGcY+9+z*IjlA-0yl_&d$0+c z+8lQo(|T4ew6-3ldg`&B9aE{ER;(v(y5e1Xb`);s4M^b@9L0caL)`Kt7+s5Af>GmI z3ADHnX|Zc%K?8;(bEBG-+%JerR|wecejT1v&K0W2f)|}>F-^*RrO<-3qwFQ1zjLlz44BQQ|^F!gb9ZcXlDjn!Lolv`ya~ zjc;=Y!kut>4gi2A;hN~-KKKgI|Dsebsr-FS#4sf`Sz@=Y;jtaM?1bugxTw4QjMXt3NPwbA=c-PG@E~B8>^|h#=@@Eb>*J~sa_zJEv2l*!bz>wVgC)H zeC?}$PUGmDI&%dcO3MA7h6Lqu$Wk5l-N3Xw=&-u8dXFfNo=PR7P;vw-S%M|MRV>;; z_frT`s6apF2KLI@>7d&gGBQ@)ny}|$tY;asCC~#M!b0Wb*B$bN9&GlYwBCuD(8Mp_PjQ#L%}U9a7_n~*u(S%5T4E(5fE*;c zMgCUbCHy*5&_Xuap|QZ$=KyU$lE1-r-b%RxbpW7Wi4DZ(ldTBRrClHzr$hAG7fBF}L7)(zCuwylaS%|K!d8O|T4>V)P`QG+ z-q4KBP}y)hjnx(FAW0=QXW@+Ve3xKj@XkL_v`?}5`;my+K}o*D@DRJ0c2fJCh4-E3 z&(!&Q105#RQ?4Hnr0NGzJXqv!=BxUkpT5wW#7nXK{JOENK@5XAwhfl4ea_%Rt)9?B zFydSazpk`Zl*KkBiyRV_DHJa=@D0FSri_A4WR52m0Z?kA|6i{eCI zltHU&sC3Mx^@ZZOjn%CS?%(fHVO+ZZ4__ndg20ph=bGhD|_mX8Kj%% z-{+C8b4%z@u$->Hm$5IQzh|vW(%+kK7?+=u&cX-I!~L1X6PjhEOFnzB zLHAj)r}%X&I_WP?Y2yk zpoYEum@X$%JsUh4G>gm^zO}$eqmDo3Ujr%k*kBE5Q8DR)9U%`?6+8>7jZb zux-jtGI4_u78~Z4cx49=iB0G+Aa)^rVVm-CE4IEbp-<1hr2W${8$gTVte&@tu!ew|Huu^o{=&elf5zvwoOb5tGkUq#_Vi^f@fm+B!%&(}kc z#%a||Dq3P~C6g=E*!3|_Ja^YB#h-OQ?{bt)Bp;0%VV{V$$QlCl)<4|6^{!tTLav9Y z?Gue!+g-ncJ>kPF^6e-BQ){;DjUuedTd)6gt6ytNYBdI*ZQ>ZU#@Gu=0m>dU1n^aF z5y6|)CRQKgt6sw0!8%JvJ&?lXe}o4oJh|V~hmQbkN5~&72=kM}D94pL#E|zOvaF5d z8`2|r8v`c{K-EI7y|KPD{Jf2@0_=4GH*uAK`qSs4KB&)J&=9+X+zLt@Wxg0yK|E3) zuat&mVgokPu!HIo`sEiD>~c!A7`j2)gCG5#D&%24eUFv;Q()r*gIIDM55(X@fs+QG zRUjSg*Z>cF%L@ZGmdbQa&Jpb$eD#M^?+~YSK)@n40n4Pg?OS73w>=y)dF)&Hr)tpo z#$%+uTuWa(kDAaQJFfak>gm1c*|G^eTi)WRydlju8f!bB01(wk%e6?R17RDsv}Gh| z?0OrOZCj9_cn>0e5Oc6zMOy|TcVKfhdSn+sy5k6MgA8)n6|iUH#n7Tu^y4{1nKcWG zvVL7_Kq^d8HI{D1fp_;EC>y@;YUHz@{WLyM(Hs>9qt#R7w)(BkA|t6lCUhQ|e;62q zZdiRZUpOj?BPLKW6qCA(Zn66NOMQ!=0+MFt-vJe{E7J#>VkL22Xckkd_25bSe)Ktm zLtzRmb>D~~5!kqiSzhSLp$^3he31vJisH`OCPvzgV&t!BSU7;^C zok;P@=0M=HAs!SQk=)fSwYu|;ijfYe>MN+~2QNm&c56|w-93bA*oOjeEh_fl0BNlX zsPd{tk`z|8&%KYM3BHG)Ds;={N>XH{trDrZc2{ZL=Ew2mvrEyqmTC(B&!(7(si?xb zHDpc-ELt&3!7gC+&0?UP5+bo$*s=v8=GfcN1q;f9V)eoqNTWVJ}EJCHx$w2hx+JIx`t8%rdMr*uG!~(mAn*OwJ*L=u4QpRMV zA`=Me@}2&(M{4q&{#_+Z@VWk?35B(X$gBT0rRul^7XAnNCj>kFnP4ZPMFGec-Iw{dKgVH*U35evf<+^u%RL_hgdFNm5 z4Ca#Brkh_}&(t;{2TcAplp{R@aO}i0;A7;5tL*u>C}jCrh(d~#_YY|TpP#KI{NYff zb4w1PJYiCn8%@``=|GRQp{zmEfwpwjfsU1>a!TcoGzN^_bf7;dL(%OH674nIeOeWy zn;n7n{(SXcw1{OH6VL=UigVK~(OT`1qPRRg;|xBy+^vSk77jD|j|0hHuI&4bh8@ZK zOww4rJ~3ABTn>{4u?aVF=9Dt6Q~PV3x*tVPvTHdF*X%CC^-79d;9X9m^}@ULF8$gq z-z;h}UQw6vc9QxjP3QL_dN$I>D^NE2)IpLOz8^38;@K4a z776?92b09AQ$>n!$fr~jxz^hl57hTlKHX6ZxY;4`q~q$Zl7*Ujxv zg^ldsB&FpR3Z{bT!_Vime&_zjuK)L(q^`fJd)N1fqwAGFeZsIEm$xoIJNo!m4x-_1 zDDA5Lg0Hfoh*jFIEWV%NWzyJGE{+gUjXDd575a~pTo1k=H7S=pl7tYYG>(u9&-?!t zLTYFKR|r}0@qdSq7cNDF-1M<7fKEjL^wpn}09xtfJH4|A8jr>k@>KMnF3MLu96}-J z79cC$u_OeY1PRL5yHNLvhd4=WI@Kv$9yAL4IjCvhR=iWNgpeejfD*S(_s-+e)KIX@NFZ))v7-& zrl^^xE+Jp?b(+$2zvn!#{5`&_t2#XJcZ{uj4cI#7aU8rNM(`9Bb}i2&&fs* zU*}ROR^s2-2hcsJONDKe?|e6UV0BAPxcu6@=pbJ9s>-%G=&iNvT+9ahAJvTnJM>%* z#c&I~nM0c4d`UzMy+iu@p3n;n81!3_+@)AyDX^h z5!YY`+?BBdeeXdJUmV8I!sm9v091a2(X3|PeK9IME;Q0>OZKprOm`IyAUf6gim7|L_2GPRENy~fX}r7l#m{%F)4Y}lBctiTEaq|U>jIt zq&B@FpI(FwX=V)x8?}a*|I3DO)R6z%muSeVLg$90@XLN>q=uaQiH4*o_x>6ivVF)| zH6)W7(#jgrM{me*xW=NKHHmU$d`^zqpK~IU-lX~J_@%dHH6%wV=Hi?Y7I$M zo}GmaG5usiq9ia;Gu;=aa(Yv4HE2zlWccrzGV>yA${=Wpi(glV5?}az=z#l3vsLID z7M9j?(>V?v`bGr!3;&&cBYkTGx~UODsjkpCGfp;rvdnB9qR}pc)vleLHG+6bN z2R^VsgRb2Pln;`w#iZOFm~@GjbO|P9QWCEv@t968nSzQ?-YAr;@BqdlC! zH!0e~VSH%Yo{$@oytGSvm;G^bmlT&oA@E5Smh3!w$V6} zCu9RL+baeZ6xwE+$)ljOAm3w0uE5I|*C`@9!_KYZ1{ z(YP$I813&SWn&$appLsR9O+*C44P)~C5>+Tr!ZS`zJaJCy6jmf8tXs*CDM+3 zi4TV0xpJ|?#8=O@V84zP$<`3pmGiorkIcTtEtkRQipE)4ue3xPUC{(9 z`;Hlf_>Icwe_M3TEe)@L>b0)aIARfaLhir^HROJl@{`EDCE*|A?D4C7Mfmsy;&*b7 z`1Pgy9Q>|g^_>Iwoinhd5X#Pfnb7+(AH0&Hp6qD6ozNFz1}yd8;X^TnLi7^ zQ%wxNpX}-ZztfyO;P;IOH2f|#|G&X+@XMdVZ-)8j;J5J0Wc==;7AtT*nc&$8kYV zRgTTTux7BjLXnSllJh*Iu9bx*zWOx^vE{J#0@&L#XdlGK7v|$xu&Mh0JX zA;C97(1RCthHp|5d^aF`z#qtOuO<+Ue06_f4n!-ksGgAjYko31sdw!q9qGIQx@yH> zaYNi@3Kba+YQsyJf|6s|MOL>YR+h`20mkPbJ|yp8l)FF2jAiS|Ja?bcM36K&gFfbX zC!ZbaFISE~p;c&a^W`DTk3=!2YcD^U`Ax&R$64X}HR?zbun0IoGd_xYEf*h;{D(rg z-oKAeLZ)D zdtc7~{>z^=UH`2uHxF&MB+%Hbk;8`3sd20#?1Wk8FEz~WGW{fGZ>{J?56=R>SqFQk zhYY`WnSKs_>pxAVhnI9(Z!*|!IGk9{Po9|^x~Bgu{Q8Uxzx}saH2RW+-(QdF0l#0A zYxtdQ{C|Ys4WIlJeme|52fs5uNycxDAsN4KvfWcy#2AKw8i!IgMg2MW8>ubVI~pvy zXefcdB6|<`d*NOUepi1-qMY#LdyoHE2H^ZA#xp135`O>8M8FfMy7t6=+^=js=ePA2i7HCubgFO;V9IIIFHoHyr z7!>msTVSg}&3vYBDi>Oi5l~g%<)Spv0Z1=&1W|T}mPKif;0;i_HP(j?PLzADR8^@Y zBhc2zpDwB;=!89&sd!D*6)cnOQJGRr+`)#FGSnXTN>K=~dSqWtuB$*r&ojti3)1&+ zI}D9!uvzG$#7xQ8!N;JrCArSR1zA3eGq@ltMll=I%!kr`vW;)_>A8*BJ+v`fSu_;d zh`IatGqH`H(1Kif-1~vHl)2}~;~HXF^0=lzTiV)p6QjkN zubYqbGwM1cD(*Nu(mjRD4WPZ5uX@?Q>4yj6CjA`V#jhKcBUGwG=8h`}!$YG-PMKB2 z{Dx}QUx0YIG)+0@cIFc-mmN41SB~O1|1p%m=92dQ9UW@RaGKm`HaaKEZU1i0CBXF< zn8VLnJrtkG861^c=gc*5Eoqd!M$FrShh6-#>yWjSA2hfrY8)@xk35nhN=ITBlbTMA zxU&VAMnEM??K>V1sO_y?g796T*?Ein*hb}t%@!7Y@84ac?`5EQcRyU4KfpXvTg+IX zGLzRW%$HdsL0lqA1t{_!vd_X{@I8S3>N@AuhGgCAn>2>@2LOW!_Ggd>!X3)LpzhcJ zv}`@N*TN;rhV0#X!mV!h*r(@Y^VKs*zqB?!LZ)nEyxq!V_b+kA?hk#Dv3pAFP`moi z-H)!zxBXU&p4p~muD4M1%z+pxgpHV_kUiTvn~sU(MQgQPBdUt z#Q|P>$6Ry4F;rtY?#??FgPcb_c{Of1eFzLUx3pLJE6L63+|nK-ppVg0?RYukI!|8R zcscz>(X?BcN2v?(3^>ZH^rWesEhM^xyc`lu3$yt3CFUfT>rCw^TT?rNt9FX~_`lF^ z!9G0rpyY1)?~Z~nn(3K{>Bb2v9YLr5eQR)l?9l>nhSG5dHqIvI;g;fYT~&`7jiz#D zC^>`l^-H&6U&C=#2Yh8zFPa8aH~2(cS8!@r zpI6nmUgJLIDC6J1{b>cirY5q8h7V{Kg}KVRO{&^OQ_*pEt+HxE@_NUXlEl_TekG?A zwV{`OyO#LIl*W-7b*x@ZTlD#8p|}&Zou-j>y|59TY3t|Xzyqvy$wEX~8C2DRU3KXH z5TTi(T>TX7+g4L>Nhf-CtY+bKU8~8-jqn;Y=Us))i*W@(-}I8RACP=`Ek%MwW7`|1 zGY>qa1-p>iTtG2y^%J4R(7!&=#tMarR*}xK!sLgqrPdu{pz)E&%`suzgvmKzr~Tz;9spI zhPcZLEBASP^+4nz1E*{n#2SnDVec&7)4PZ*n}#gjos7l9ntYo?Y4imA9!8$t+#9DS zw{q-zjM@7@XZFVIN@n)ZyYBqI5wrKVc?*=OH61Ex1q>qy`#C8PCMuth1DIUW@|87& z(?eM$Irq}GZBprLhQ6MGck_<$Hc!qxeyFPwwINq3_fAvQmV0Rck6w(X znHU3P37~2Tpz05#z3=RTubVY|En)b&Iol)6&3D_6dFcSDPWk0d#u9t%$7WAtF-5RC zz?c2P3*ZyJv4m?3E`sGJGJN-ds1B$ustjV)@z5i4X2$v;OS}YF;`u-(s#|dt&<(B} zn)Y*M@LU{^{np%{#wjEEcMeGc@B958UQk$)UtYuJy`#q=BL-?6+Bbka`p!>60-h{M z+Yk+kFbRc16QFWt{{TD1OU1yuXe)@hZB!qd6MP9hD*agztUN!dh^Q6GXGI)Z5qwk* zlu;3Eb7@kM8CsE2R%Du11Rs@`sEFoMxq4Posi0PB7AsY$mBL45HY>H7m0GElI?u_k zBgs zfrW#B+RCE_d89_P4CSHVuP&mH>{IAcgQG^X3%y3S3w2AMilLP2F#}(6;gE~cxK5^_ zFYT~!b><;lY+#aAC~94tE<6n+8}G^+5!8ND0Y*WEr9X2#LK~>d7W1~c%cEkXJw>!f z_+@t>)5V6kvg9dTq|mP;k$cBhlFF^tVvM-2A~v|+YCTO4hTiWvqRPKpNh;7A)Xcf) zfI~`Ii5J;hDu!I8YNqkDg=FT_lnv)2XpFQ1xnHeCR9G6ZP(+2bB<#5ZHhptCZ~C_D z`@1B094>bG9kkdrvEUAeuF@B~FpY>G$U&Qo%p$TjZ(FFnWb&zg62Heqz4T30tvcZM zDRbZLPz#966%J)&?(i^1=JMkKJb^Aey)r@37YAt(sj2 zRO1NdhcXC8^BmW*$;h!FiZZKkk1_~>47`i1id9S2okEw*68RFALV^b6i8n1=fhsit zC9+F@!jDMXA}xK6MGU@dsTxNi^9Y?H|H2&0VeX()-zIO+gCa3=;B!M@n=#fm5blr; z;;!TOwbi?P{pAw%<>RQeUhOd=1{k=*-%!=SNu%$4<+gWlHug(Fyda*gM4#6mVMm|| zG_(O3i$Pr(3+R2~EUv3W&H}fYK9sO+$YF)vt>+l40JyGZ2+=sNeBm{NBbl*y z3E*ndau+I}-N6_O2V*R1E+DwGh#ovnjD@u`W6{KQVl2?6`p$P5XK@jIv=eKAKp=1N z+mjaL5s0nRJVDGI)}a!Bns^*Np6xEdPhR-#baa8%?@PP@!>0_shA7B~l&sCPeA2L& zQo@)R%0j;sbT$I-a}u6sZi*ZIOV2_4%$fPZxXS) z#;gZW*WIQgc~%{Zbu~?!(DNwHqceS4JW-#~=~Edx-dn-^Le5h&|8|1r^gAbLPNUI- zP0bumt|xXVUk$?V$~56H{_(qPCO378jj|vYX7io3daug;FutPl&sRHbDoFnvC-pqW z!3G%z+wV$!Qd9gDlCiIZiOr@>KBOs!jH;^NU;a`29w+wPwKTCGQ2x9TCiXGnUoK%V zyh$-0{Tt#u%ruRMDa+Spwo@K!u3$FmA^%#K(`(@xh6(M0KLcD2eyBHJ@l&j-M&*-C z*!2(SqtEA7qCk6r059mk>SE06nG3q&^Hi?_~gbj#vrv|920pv>$BHVie0ZBSX~%234i$^|XzV zMZ!JJlTzi=i!i;MFVPQTgqwOqetUXL?$zDp=_WfiKl~(#|g? zhm%xDDO_qk#pw|!PEU^J#C@A6nN%AK;FFFo`ci3fm~BNRwhgpVcqJ!{SKMg}?_Uk* z@uCIR##EdLlk(lT{)XP7c@nLzhYO1*{TA(Us(1MZh@q$PZAIwKGE9r{3_EMdf5Pj? zG5)C@nIo3uk!W}14xF^Yn(yUHwgRV*4yfHyf44LiSqTAN&@=f0-s8!Op!8s;0?d<# zA6JKt@UQpeHN@?))&pg98*y`9A@ELA+N=;l&a@7oMcGWxJG((1V>t9Gk`k`61?qhDeTERK|bHw zU~3R)v*`t7+O&Cr%i>GuRy3W!g``mtwph60;K(tt^Sx4|BdD8o$g@c3zgO80ygKV^ z9TpFJiOdc($HSLsc|SyFc*=+WXQ35qn%*iqIc*C>%wP!V@}R2h>4%`cni9D~eL>HU2Mf zzhXb=^HvCf!W(>PZYb)3qOES&g%rBw(hkx7k?-n?zzxG;B+JF{xX*uSMWArF|H4?7 z82HAB?|FRhOV=L#Ke(kPv`PrQ)r?5m*@lZc8#hW~f?$er^=mk_pKhjperq+$^im?z z%A{GeTAM{HlV%a^4ennX1_K5{{U+a1*tWPLV<~?ysDZ0yCjxHo?ySM66eMa32GinCG`vc9WBQ&F0<1>m1$RrK%lB(morO7kud*Jki z;K&mPd@*LiqM;wS5-!Nb`v#$~5TQFE?(gCAGJ17e$;3?P4<{$i*h12H;8xR1%j0Ab5 z{dMp~WOw-L?VU&xkzP@H7pWbfkv)d|mGBFS0o68VpupQKV$>C6ivG@=S+ONa28z-_ zF|dt?87=bT_K9+de!g&xe!igjnMHT9zkS7`xs&Cq)({j4m$I>Q@T8#+vgqZI4dvQ( z9(kMr`*9Y9OaR{feeBmegShJBR;p6Th|$y!BG8&s03xbqVN_74T#w)oSAO_$#z3GB zf6JscjDLCmQ46Vypy~um9P7v&bz+! zYpj68*b|S$_!5Ly+vu)(oitaGwIy=|<;8yh4@}~RErWq2F8mujqEv!LT)+L8R;8sO zt3x^GVCqAdD&3YdU6j4E6vrQFgV>Dx0(K#KV|FzwLo3M{^Xz&nr@c|ezh~jF+(<~k z9ix)MinhY@zIf4A<+~+R^m3IcdaCV8(F^*&mW5=^EEFS`~w5^hT@R<8a4CT7}OG;5Hb&+ zAeo25WJ{$nf>Hqi{j|{t(x%=FiVB0W9SVX3%)${g@tY@L;9h3LQ$(ry-$lil#Og8q3G; zl-SVK@wr-Q7G78kO|;dSZCtFsnAb!`lG~Jjy?`X9gid(!$;4{eGqip!uo2C^05k1F z;R)-9{3K-qG0?~-xdOMh1L1BL?QL_W=-!PV{wsDbo<;+@1_CND(DK+#78Zg1EThGL z^be%f1?VMNgP^vPPy9aLB~MzEBMwUPNe|ESlb_K)qvo3NFA25z{^#pDc2~PYbDEhm z#(ko60=A{YT-D+EqHuhl)}IX+8SJvN{ zFo4HnsrCIyGw>PaS?IYOl)dBT^F^rO8D;(;Y;)NfG6L02Uv0BBpMe4zh&%(Bco9uQ zo)P8DmoqifR~+Zqt-sxXN9zl03A0xlGkaZ<$-XPdr8Z^PC7li56CaG5y$?&6y(fLL zlg;}@^sP|^v2#1wyrUuX9_3;DL~_NNM~fbec{{aecSaXu-VN)?nD-fIRd-|Fzh}f- zWl&CCtXmbY*Q|=8p3uA`tKveBRMv>*h;9jZ(M73Z-cHme740V;$wf8{eO^XpUx=10 z9@(`XEtjDSfnjp3FW9A=KB%g(Nyz1TSgQ9pl$@JSGJ9&xo$H|`xQV=TeJ7FqkL#!j z>j7EzSVkvjj^6c(>*BaC$0lZGxmN@K>n`A~tY=d7G04PwLF3~1npst=E)6JLn zo{hmV`czZ?@K>_Vs)*7$ry#n*~lPU#0;UY zBK!Qaap9QCsv*m+z6_*iXny`&CGP$$$SiI6i*A*AHN}5=$&##++{qlZH~p||EzaV) zTQbBzq*SSX3n|L=9%-)CZ9m3Wy-cSYYQ@SKg^EA;a7EQGIE!LZ# z-IGmsY(sEUe6yn+s-7rHw`Y^0LpE&_a+R@jG;Iw?3Yr*4sBwb{7vSiFMH#$CjaP&H zM{HW$LwUkGxkL9(UeL)qc?RSkPfp2GyE-Lb_G3p6PRUczDLH*4w+E2OD|zVExHt3d zT6{4L9FJ6^BQGsBMu%ubCx`~t8B^98(C>R!fd0}R2MC6HHgI-zh7@GdD3DhID*%;} zk_LTT zXvF>N5V)V>DK~mdsO3J#re+>FXn`Ggp%iVo60_=#%|mbI(1Bl7Dv1#UEm{`mhbjF# zcDxlrcHJGa=D|XNu}^XPQHmk6CZJjphSho!>vHh#HL96^`_jS@Q)iFxu0|=+@+Q`S z2w~F{kHRS2F(l2?j?p|hf+%YniCj$=!O7esXRDciAw~9i_rsFB__9Eo$v=&Mk37`S zSJljGx_mL_Vu4nu#=O=}@sXzhbD+gXJ|Bt!6X8FHxeqV-wLvU`k4jO$uJFk)gJSe~ zbpHD{rq)LaT1z)$m3Nc>Ia?V!65>=k65`l7?+IS(Ded&W-HlEc-G%(RBc#l=&`4U? zYnc`{`c;<8KbxThsj8$Azv~Do1oOW_HoLMGwwG;lum>uE^2(-`Gm@!;7~ z?t5P*b%kujJxf(v{)iT5_B6k}(>ieDS=W}K*LLz@sLe|UkIS32p;yRH4hNk%_wbV& za6AL;YfSj)cN|6UVx`JCH*16LF@4ar_Du}B`P!gcXrw{+VS3Ml&O4&FLAS5Vpd0vR z4})%=^6_dKbZrCx`j4nwm~#&~fcR@O8*8@sSZh0*vGzKSwRNl5SbNVvW9{xEbcnoK z3@utkqX374^720^wGs!~Jmru0q>t>Yx{vH$2AXG8VxW~8aG>p@fu>MB!r2eBi3f3@ zoqoo`#rgscrU3;J3M~;2RoFcv&RwWt)~=W0E!pM3t|v>L9rhd~l>&4JZ3EKKt*H|ButO9~}uF`Wk0xTzWDx{Ipq!gI^Yb zZ(-2iWb2N`=i@|w`B`u5BTq1wW-yYT5u>i>S#AF1KhMP(oi04Wsv<`|zd4B#Cx4QM zv#UrRayF~Oa8}PjtY-wPhmE^98xlRc)#2LxxH=sCorT35@?MXWIlPLgJu$8BJD_Xl zlKTTje>q^V$N#OT950T2eymzFGh?V-|suGyVF}L$JPjRJKu;-Aap-}as8nzr7TQ#po{jOdlN9=+1mhl~jy zv>z2TKwp?+yGX^nQ^ZWi#7TOH#`!iDl+j~9!7tB4rj%R);#jqR!&jkieLgUl(#gJP ztN4E0b}O$@kHi?^mkpw=^Hvys{Mik^aRxSC*#YyFbif>~!J3&J+g4@hV`RtXo9&Tj zUEvOV)$9(9ZHr~bZP?NtL$jyWmWkW4wx5YQJlil#0b*Bz5OppAhPWUiR}9RjP-Oo5mBCw7b@cZza{O1~6zzwPZ{s76j~$!g@qOGC!45wq8~ERr z7#)(M=}1X#T}hTfB-0M5Bp-2Q6V-Y#RFWS{WjDEj1sST(4Eae$_HZU_iWb;7-$jsq zwLc5f9)QVR73Qm+F|cKF0_2fOGSqOOZ85+65!$dj>*n8^hr*CB$1w$oPJj#y>D{**hG4Ia{BN@dcWlKLGg54 z(|xo3zZB>ol4&$*vC+3F-WCQ*X9u>t_^-K!2JRE&4Ql|e!1`~8i|0W|I|N2{LW}fPdCN? znSZKaO1eeAP1UYe`kTfc`lR8LPIaxl7BRD5648L{zPYT1I`JiWEcwrC1@IvLDZ##6`XcC44 z-N^;A6KLztFZbiA_20Jefte)v0_fHnIt4X`jY+{Ve#jZ%{p+@$g!k+11TRVCRbP${ za?q(kYz-Qd0bU#H4lwTDR?Gz;t5yE7MntfBC0|{EQ1=R%^`{~8ZvQ!$JQo3*kP&F_ zQq-N31_tc#45Yp)$UOI#YNLrB#U8 zX@T~ud;)476G2_KS_+*X_h*_T@j|+157UJqxn_dGFzDhrFk8ForQN zzx+$G*qM-_m6!`9G=F!!`$D+49`LUa{zZxGrX(X7LYTJd_{Ch?eO^mTA$UmK#;9PHRtfKK@NW z)w(MA%d?@7R38X``0{DU=F5-;gyNB0Xwuj1(4_JtXx6ck%8hYo=Q{Owf6(4tqC>i= z18<7>$6xDERXvwa%XR8)2I{9RPqNwmHhzm@wRh!k(CT!Gn)zFpbk0zr5a>wpyS3=8 zjX2hM<_QefcgXg615%AvHS-skzo^iEpBQ=rha5>^SwwVgb|K#f)mi*wd#`SVUR__U zy7Pg^&D&t}!sH6_x3Ntrg%%RJ`Kn(5Cz!(J!tO$ayScaG z>)&m_sWz3b9zp!>Hl>mh{JIOmZ3>Sl!s5A*AP2b|RbASS74XYDfS^Ub?z1$?<*Yts zYKsk!mvcE<_57pXlFi|q(xocSFn&ddqo74!J0(@9{9=p{`Q9Q*JC>>{jQk}7h04aT z01Z$chIR^-+bd(Y2$f%taZ29{k;Ccmwh|LjGahnVgvt+^V;4leKgUto*oy5|3aQwa zW1vcSS&0sCl^jfimuTIV#qLje z;r?8>f1jNFLGkrie0l7B%qtl%l0_r)1NhLBXujo7JZ~HV1G)t|sO6iJDoOcX;NmEVCZV8F zM?sWO(6X_EWq&%6eXo{%NYr(%)(hlcIyLIL;C+(Jxc0Kb3$?;xqVU(<3xD6G@Yk&H z7_D$jwdjS9cQ34VDSVt2HnO#e{|~H9&#+~FBHl~v{{5qHzl7ZfFntcYUxMksf_vJg zwp6gxXEDbu?EVwHcd`46e}wxYcK=JfzlzgIOW@`qyg3hU-ohK;byH5^O)A{jPbaa)9!XoTB<~ftr{1%S zNqU>P?xyM(xUXX6`NbwKAAY0YC&KSG_)UY~O!&=%UlsgT!tXiwy#&8E;TMMAcKGds z-xu&}h2JUoSz*~30KfC$cPada!S7o5-3Y&N@GFJi?eM!7eh8nCKNaDOs2$ zNG)!ul}_~9-9<*fO`xcb$cAx#lc?^{m5h9olz-og>xj=QRv+`H1Wp_9`0{al>BMMX zd(_N8gjCXpX~}f(2>WuDItW?lYi6-CYFHe``NUA)Seh6$q0qG;%p{kzXO5Ow@spYp zvrfM4I-gfkQ!tt&#%?o_H#QAi&0ABxZ;5gt1N)KAP&I~`UmK4!E=!ch%@Q&GQ|M+N zs!hSJ>~VG${LIRP+SE9vHZ_jarf&9;!MqqUA%t;&C)gOYXq&4a4a03gSZn4_H7y~Z zMKKhb<4YlSu-)J*!XwSTUI5zSk_9u$ox^J85Y~>t+6lN*cF?)XhUsd;#GoMI+o}ir zN%LWMv%lb2xAnZc6lU4RpIpqNn=C)WpW*NJcV5g<3WFcW=BpmTZ6ItZs~)7AK77@5 zy6MMP;f}W}p0QzF+t(?cD2t+bBq@+41`#!)4GigWF+DMZM}B+*Qe!=qXeo2el^xWc z9m?r1RaJP+K&3TR&qfl^DokJBJT7J!s*6R{OZ0-@XeI?K5<4-x~wZs(r8Q>A8Kk zZI8Ea<2yaK@6wrx_RY-6N^0LXq{VrYC>3qQu)B)n!+qz6n*X)5_fNw%{oJ}#n2tAF zyDG=rZB_OKy66Pc_e5!4Tjdy||6Ypa9U|9tbFE_0T$^tUo@9@;)>%yGE9t^cU;E>G zr&Td@mlaxWwb2;tUbTm4BGSAEw|A(q{h~BKy9K>bChW*#rG)mS%F~k+z{Xp}tVHGvw3j{*6}mBUm>(l_EMejoOW;rK28F z)t>zK>6CfD4^{{RbHZ4fg<`P5B2({FGi`4pIh)@%u1wR7dTrkxXt(jpF|4Xs9ueit ztKK-JN-LI4^J>RGqMWkzD+`ChiCxW}9T=)%v-xct?8h+QqZw&m#!S81HCF2jzKC{Zu8+crW z_?|CyiAfvNp=#GOsIqZ^63cC(X{Tu4I%fb0a%$f|A1z$V1>~9UeNAcjxg3mZ;_pMK zZaGe>!)z_oREK|J4Gb)q!D(x%f3TW)*GBxvKHQ6wx$@go?Vrhf*rm`XqpnuwmV6(l zW)9y-N?GiPMGq7{pc?h~7qtRO!hrBMqmto1R7ct8kzIJ>+9%4BeIAon(X^0V5zQfv zE3ElXb=7N1$0Oe$rQ?TCTj6oGxqwVXP%+fSSEH((_ARJhaw#HK?~%&tJ$X%DdySVb zZes88``)}7PspXX)$n*ZV}SD8fJJY-npwVqHKiKE^-{ZatwMeoZ9uwe7V^uMQgU~_ zkC|%b==Deg>BG{U3@E6eUd-Dsn)Zp+2Nq}Z?|J&FqPh+Gh5>NN20W@hu-JkbW6k`! zJHsvWX|*)*)eop@9H;xJI{v+^mR~@svg~0XG_|Pd$KrH(+i>SG^$`nM39U{jN#EHM ze?q!@+PKR?t+>RvOXJsR?lzIipr2FV0Myb##ys@JgY5kHd$RIUOS7eDQhM_Emjo2+ z0Z%fG@w2ipLqvDvNW-|=?Opt((wPEmncCPfitk+Q5Nshk1QYHO)yrN+^Jr`U9^#48 z_elGpH5fV;Jy8gyk~L;5Xb{VPK&tx~?iQ;X7Uzog4m{oGJ;yy#ol?2fLh6DZ(=jox zV<_@Sg<^S~XfQyb#kXlH>lngY^q^j&TtYMJ3LtiDW<9yGN2PqNpht?5nmc?^&CEip zs=PL`gBA0>*P28@cJq^(Mri8=ANvR&?LFcn?KQ%OgW-cAJDIU|0V%{f1b7Af}#PThK3mCB;HdU~?43AWsXxEgtuwDCD zJMxZdpw+Q`URsb_ME;xux1b#4H{^Bu2jJ z3z_=N`7o9qh?rujfrv3?R3lC_iXOfHn1%D2wn44aXWz>DJf<3VM6tLZ2u~OD>Vd|{=|E4NMFt@#sO~_dgI{MZ5`qS-Y!0)eCTPzW zq;RLaET7O3vobYGC@uAI%eUIRNFxl`9of3lYpy;SIBsV%g1i5OdciNh??au@uKx0YXq!pN>Iwj;6DM$J%t)MRyU>CTpc zRJW<6ul5bxUncskuUno7{Z@0Pe$)Tad2|wg!4Jg%fe@;czls_D(o2jnEnBTI{fGq0~et>^1EGTO|xaLYb zL$2JAD_gg&=V5>H%}DXmdK@tQ#E>@}b=B`Usj9K_#SOFvg;i2C!P4#u%ga817a>=@ z!1Q0&qPA=ic&4~Z^J43%xbbUxRMT)|p$4B=fXm2H48HG8Xf%^QTZt6N1=cz!$PgaVLx ztpp5+6U7#^B| z(P`FfrvOiYGjFoau78mzg&gWtv zyB?PBB>j6JXFxB51L(jzg}DOx^u<%EQ>t28c)N-7m?DDOOs*!B^M7UG3L40_4{Vjt zWkS6&+kGYAHt;r zM)IeaxN`WdfZvHJCQ8$PA51ZEJ;&$k>Ob_a`>mb)hr%5F0bPici)N4HyC&CLeN5n= z-|Q+l>$93I&*!Qat;QhhW?OKHhgDcLZ;B1 zteD9yeIjD`@`*P51ix$tCx{m~XHHzAKVo zy+D)(B3$P{%7XNON{~{@tyW@m;vOx(yq_7}WSfZX#-WlNbs%Z}Qn2(?M6s!+7AV<( zq?bwjxj~elC0P)2#rbXwheXwRQ^+TzG>x_?0eUJgH9O^HcYsjsO>SfFSP9{ELxo`?r(H4|)cBeO@yb(WwTw0@226xA5 z4ZePxnD^;M<>@Dro$j+or6zomQ(s0X9`Ig$PvOSdT%iL^h#t$MDq7%rQb{%B)@Otjp7FSRb=KV;HmxBO2lGZrOZ zaZ<_$AI2v&N^Oog3a|YepT4l5c=J2|bYIk*~_9+d0i1`PvKV zcELXP`)@q8=W?a*@B!}79aeq_2Nm5874cOEXyA_Cw#AB`(=L2v3sSR`r~gj+#jDVZ z^Rt*Fdso89cLcA!lqcuXp3s9UVWJiW8VzdZ!t$-?4 zshO{!v8{1)6~qn$&xmuvOhYR^{!%Gc*T%Eiy6G8!!75Mg&O74 z!5pVM(qGxxk^V|@cKfFn0Ofets5@)=+cd1&3sBu+#>R-It)f(FRiVw9GuZc5D$krC zW5`uX{|Z$-WBsF{e#JT+HA1Fq{#VKGC~5J^w;`(oq)&HXL0(67U#vd18OlYs@wvoC z9zpL+h3Iv(k{^ohYY)Dqsy*UU{@oPvbIY))?7f!YU9D#R$S}8uu4Q!zXFgi zPJ*PA%HOZz#0To9V`QV_En?)v`Dj}dQO1a-ru%BRt$(m1!7k0K520^R=50&&JW8<= zl&N=HaL`=V4+c&3d#6!O_f8ITCHQ8}J_9>zB!{Nb3prLJ;~ALAvmE9aHJV((JV+Rr z>0dH^(StisTnCz*YCTe-r1=4hA5PFxew`7BZ#&7Q+etwzuMci{@36XI{KIs}hI!Bo z6JQ@qfa%YlQU$5%QQHG1&TXnwn?WU9Wa;d)_p}lrO`&QBc)tj1x;~8|2HclQk(j{$i+neSTit^*={8lvWqLwg^Nz}dw zw$C7jZb^7d64qubi|oZg}`eQdB zy{1Q4p&;e;OUP6l!vFw+qDcMzp2qUZnRCC2hxj7buaL_@s~QFia>6Li7Es{as62sO z1r-sgh%r$FT`s9xD(9WY`L2KmE8h9D$bLh#Pq6{lji&4lO7}rK_QkHiy|J{faz13d zAlcrI_>=vx+Ed;iu;qjR;Ix3LwYTug`luQl>#>Epdv0tsdgzACy*7HSRd4jNFVC{k ze>zPcd%X{mQ|@7_xb`s9l$zG9}W8G!0~0Ep1gnsE$bQ7 zlsKpdzvzN&0@arUD)F$5%8^qH)M2c$q&~Sc-X|F=|G&^5$(?Z{>x>>+P?D;*;KH+Q zLB7@k4U;#K8`)cFR-!d1T#AfI^RnS{ZC+kx(dOmdhNOA<>gQ*imnASSozh{q{lhue zp7p%!tIf-=CaY>370{W17Mp0_@0(fi6Z6qaqZ8YWgAK+QH6K?oJg+{fPq42Kb-@^Z zDo|^q&#`a$e@|JT$69rtZQ8IL=+)-H*yJz47qpMTtH3ulrRGHEp}in^XkS1>d$%^U z?_?eFE-aj{-$6rrk`<`>Dh;cMT}D377Xyk7LwFSH<42!V(8bv2dRtv5IuF)KTKkHv zS`Gd>?0PJTz)~&o8X6UgR$K!thfGV-UcV$>n?4HPH7C!omXoB&mxf1^7(N!q%nQk5 zrs6XkGdrbMv=Q@8@`w>k-;4j%XxUIk(0UlfLZ8Mqw??tt(jbpcvEch1%@!?Quio)D zS()3w^AM|(aPfodjR}1?e%(N9=UXv->_nTpjvc5%WzGkww0}FRv5{X_swxZP1)pf{ zOcN7u@;!n20A=snX^aw$=nwT`bT#E-s5&-?<#tnUb5d@7;JK4&s#m(si{5>^&{QX4 zU(+_u?9)tr)CDyT4K=wMLSFc$^8o9Lgnh|KnEQ>6gm(|d<9~N<)dhO1CVbP0NKw!| zhCeEr5--|s`LjGwu~hvYCOuv z69P~8^lyzD>*Uux#kY!m zU_Jf9*I(KaI5Z~GY>~d{tHk<24{d!{g}QbhzVsV-*p6#ER3k<{GYcr)Gu1=!7Y4Mt zp%bO;Py=7J35{IZ4Zh19I;99)9sv=NZwEMnyh% z`6uKMyumGx1Bmyzd1urkwV~!%nJ7>Cg0$zpMlG}a3PrxbS7}o{pR!+F_M5bxC#!yE#h&+7o?UdyV?S6x3PGKX#BbA zVKV-l_i+65fAKFWqUIq}?}ZNwddXkTlPH{;|4^dJ}a#95)?MY6WO-Z%MNtaO4 z+T^6El!OPqfzv}CxdJhe5;(nN&V`txJD$x$py9D!<4cd6F=Xj!)E%FDk&|Elfk#f^ z55TUNTz*Sil|EnM5pJy|R>H5}0xwT|gzmCnC~b1&!fy4_$VM&)u6YrDeZ90LqV%cA ztHJXzsH=WcKdq82Ur;6Kop3!s$MxRM=yt17uYIwNUp5WEf??yIAyyyYt6rs<(;quI z-a{?Va#}1BPfj81yiLm67clqLg${n*LFKCc9J$lL$eL1{a^qo~x%JQrC$z$ezE$=r zL%%>V)8AI1+h%RR`4$CQ489B;RCeu?+MFHM=@B1v-r=yXNMQCYa^`pYwKa)NHarEH z#=>d9?sooUGFY9V3)s+_hOM)(-ax_FmQD@&=6uw^-=P?P&>F_C%Tmhvb!u0|w|cu~ z?vJRURPXaE*M^1 z=gc?cyXCP)(Nx=6_fEKryhP+zA6tAi)Rl)v;N>SUeqdf$ln2A!VuArJ*(cwN(OkzG z>P*8$Q?v!Cmeamtk+b^P5(g9z0}(_w3R`Di9M>O{DD{SM@HhG*IB54+~4f1;_}Q!p{Z{rQ%DISYD6%@J)bzQv+`^ z*9%gOJMv9-g_~a-t>EYEv$~|?c=ol$9r->RwkuwKO^qP!@k)&%zoyBzF`ZqptSGN4`z9!XGhn0n$^)ot3#+}@dXlM{GRTEUcVOf{nP6mwFD%1wgoazL9S zhqF=V>G&t2RF$Jk{eXdD;fu({Q)wud#WGT^Ae#4F4n>F!Y@XKhQNs4^o$QelLGSdz zg@cOeKQ!p|0ee}N&TO@2k$tO!e34H7UVUwen*HUmP zjNLA5TK%X&OF=px8z*c+=9#4+%O1N{*rb^B6y)?`mj+HxpWXL;6RAf}z9%*?aJmmX z8`-lpW^zh<#q$0IyI?ETC>%dx&X>L^4w{RgL8`?mT_o;41Vc}>@8%!HF3~3VA*ZxU zfJt7hE~#-9>~hPCb^G9(Wpkywyw+<%^7lu#)O53)9)ij|mqx|i-w0|=Wlg?lI#3+U zDD;{d=o21$?c93T&@#?zkMIH9=z7WrCFDJ|?!2(uUN`$U6XXnw+rD#l2CPOD{J8<& zm|*)9dF0NL4$lp$N2qLdb#vlDvAg=mM>9`6^mMR8&oDdm{MS4B`3N4D zk;>vuj46Q;6Vcw#BVYE5V^*M3n}PHdzCl641V~VJIrNYKzgbDDapaZJie*uYQK6H= zvQkvjo27+33%!}sYSd$$VcdlcTKKNDc=lLZf~U-?Q);DvW>EJC$v;inp~XKtUvf>? zgP+Yg5xbNHKQl{5V_A{!%z>{AfgQ$Jzd*P{kd6a4?BIW2$AAvJPC&2t5rDpsfaa?( z(j>}A^6~VckY+5KuGPnUx3Xd$R;&z*eKm#^n-9eT9Z>hvbrg3atC&1D`ma)MoPfDA z`6dgCig-RziQ97WTk6n(>xg5n>SKKMEhbK9V!X4E6S?B44mBBb8lvKOV^QH=F1BzK z6RyB1xuywHy@rxONhtY+Id(Cj#CN_R?MuXhODBx<7~k=A>LO^yEdm91WMQzCIpe9} z(;Ky>TtH3HgI`h@Ozl7hV^T7-vE7>|w5Sw*Q+S&fuhTFV9EO3Lg~2Z=+Q>KzMI|*V zYyNRs#bb{RGzi(SK)R?HS=^Mh?AT+qb_hGoOUE8KWXZ}3z;pc{j9Yu7Z;)nby%!}) z=X#`ZHl_HW=HFhF4r1yMSRNnSfP<@nou^ayMJeS-NON#X{?S~mYUWx@ktoZxw{5Vn zGun_Z-N6!*<0OuvNHA*Vg+V%w`^S3pDYj@krP6`}PZ2e9$8tJW`u>QO#h+#;a)6vB zb|SYKZZ}Y5Opk%%;sGcfT>?-#=*%pQ0LG}op?BlUkVkgSq9S^r%uW%wgW6FP>E$XL z6r9j08vz;?D)X6_C|n|{ekltEs}zHq>l}ld>k=xnR2eZ|Reu7~yMsC+e+q-jZRa!Y zeTte{M5R)0C6szwS)Xiv)WWsYqbGsP0V{yePlo_K`RZBo+3Ax|%nEHfW zRpb7YH2rp9H$3R}e?N;L?UEu=6K=n9Mv*%yzN(6x0O3-~oU5^zAgLIQS#t`cW?uX# zQ?g%5L5AyLf1zeR2x(Oq)hJpr13wg_upglXGt|so)fUYe50YiX>3Os{vZ0y??C&^I zxP*!X)y5dfd`+(&U5dx;ji6ccUc|w^%{Qo1&=GXRsFZz-TvQjlVZk#1I*d+;-dIz{~EY`Uym2-0P=Wa;@y))44IBPV0k!YRN~G2 zBAS8!ZnO{xrDVgTsh?+#-Ef*lSGMv|A*zF$c~@Jt3gsFV0m@Y_gv$Jv;W-X^S99PO z3KdhL^1*s0-$8tbMmxSfq>7*%5G-6=X}6GKwiL$8eNjkC8Ok!cHY$I{uaCa|dux2p z3&=v}x}!s=#)QFz_yH-l@2#`}CVw=N+bXJ;{jyr?3hnt${kb4qCqV9ykPg2L_zi|% z4*Z6}Z=M)h$_$a02H9mLyR2fD)$GEE$WlfimTq8|FuSl|yh~Y>-KG23rI}q6c4=jo zHg=&v`Jts&cCoQb7Q1A#OD? zENcJKRqV2wU0!0Bwd}HiUBc{A&n_&W+R}aO!U7B~RoI0EagDH1U%hMI7&ax#YiL%c zFO>us)r)zxJ|u{BC00$hJ}QXFI;&f;|LcHmC0-@ZCy(^;#N_?q(r?)bO6H|$V{v~e z@I&Xk#1CDVGt0#fEeVR!vdZ((7s5~&g>{wKxdtr_`n%9APp~S_J_u7-UO~pmu=b*x zkdkzzgi>MV=t&vM>T(k~?mf!ersMdX;NWvVKFUv-VuL?-q#xx6;2&FQ#!-H1=7A3^ z93)SKcLVUxlxg^<9NrDUKT|)4oFd-zdyR4qC?5>(CuG4L{+YTJZ?ctBdra`sR+7#S zFUk20@9&2XHh9SWjnQ|`5qtv(L-=x(%03+B9SpCB>3Or^As_Pg!MuYp<1k3>_wjaA zGE@%VL)G^ydJ!K(RXI3DmA#niUQtfDHt zOR~7C!ziMaGnYWcyb~q0?Lmf9QI^_J6YiD)9HGy{o-6o=jx%?@cN}w7sY#0MLF8kc zyz2#m#wBg$bL#*%C4k&1(WB^&JD;#XwCOQ39 zr@h@jDbUe((JfGNPCEN|zrX*>LTIv)tMR~=^!TUYQ`*<5>QMmVY5oos3Lifz@Kaik z;#okU5`+)(>z<;<1)_uS0GM2u2I|bfMK4uxF7qqCB%cK37yb00}Tj(Oy_Kjt{>p<%0$8VK@3 zs=mJhIBm<{ftwLwfxmjmDSUpMqNFV&b?B?3k1T)}*U$FzSMPXa7Mgi@Wm57&PnLDEv)mlDf?mT zijz0qjJ1Y%BM_$N5T_>%-}c}YJD7xkOcvZuIev*_X^VHXA5fbYT)~mq&7%eoa3!NHqV)i zvw~!t{T(&}v5PTJHbHGs>vgp1@V$OQr-|Pi{IBrq-k~9+ZgB^;Slw!!I}o*sFan|N zfwpvh#nIEMdIaZiF?l|+^~0;c=Z2MSUP`#u4GDa1Jq+>^5tZC+qsKHL6*$U&6&Byu zRltw%x7YKN!$(B^O2{(>vR}PpcE2P1)E#&?$AoV3MSfTW$$@B!9P#j1*3VCYFHdQN zuhr8RZ}-xd3L5ZR9;_d0#XJoaPOOhV;=~G_@fzJd*NE-7zg}yHDY@3t|FPC|z1Dwu zl4`x}f2{S@s8;Lb zuhVN)$0yY~Iq`9IeB8@<+v$+gbE=~jC#CH>YBhe&(Vd?| zs>Z9~t_&R)XXv){#?W>1=Mgsx9{+Ou9C{WS!WB;h3nzJ9C?mC|vCXCjM%!B%0zU`9=WQF*-?nx9w;~WI#aOO?qrya9TP@W!Xp~5pzbAQ#JEL?DE zPQC^XR#nKhU1wzr@azJ#1t@_U(VuGQZUE@+Qus}Q-!%BmfZr^vZx#xb`r4T*pGxM+ zC(A88knNV{?FKBOk;B#W|w@6QINvV=G9aP{6lRXxn$waHvSG3#=pYfaX7B8M2wvv zm;4)EGz;=?RQ`@Hh%v-s`}y4MeD1%I&rUxo@BaUIybf4MuS~ z{iLP#erWv>~@k8*+MXLw#}^Hq-IvPJdcJ?c9Lh7!cgg^%flezIy{^ov8sc zyEnj=+<^2R8j#48CP9L+YKaU9Ll#?g22apdc5967SO z45W-6+ECb~4I_JQ!@lG;ptDr_58eBqWSBM;OlN9BCC=w=vtePct;p`uiord!!qKG_ zqk3*db8;&_W<8M>=;+dlV%CcB<}nt( zPVsF$NR12CRce`Xok=!7VG29*!p@N3b4%OYKI@FL&pQ1lvqGk6Ec@AHoqCp8;{Z%K`>eN}eb&;Xtf<2X zSwC~3a$_y!PJhDG;LMA-%j-RP4X#kJ$4%XZVILqb_8qGeM}}2vndl9j-~GJ%wj5iM z69LT=kMxl!`*29LE92*3@S$yF`y)nc>7+~-c#z(c=10JwX1?#E13R&nxxXR(45`Lj z9`;BLy3}1%FPq}Ca9!euYmtZdtC@4iyU;c@^L!sU67dZXrQK4!Zd&K`S-4~-FfOlG zGhd!VN26pkYj8E77@O?7JXWV z3y$%&R5ba<(DnQPZ&(b?1@3ShafgoJ^$PO}Tc$|xCgsk3RxTc6r|InYxShX7K5oI4 zbPUv_Ec>|U#tx*$4(z$H1LKYDi;bN%8qMYA3`{h3AZzU5&3a=8DjQ$y*4UqD>NsOk zQ-8Df=Qs7MS=iK-L$#(pbKrk!Y9Ta6sUFo!Q_oLo>W+W>+@?-7BsKM!JwLyxCm+V9 z{ykS~>MI}pPfh(LZhHP;@1?2ZY7=vslVoun)>F4KfkFqYU-vd$YQb;HyeK* z-f6R8gN+7kI2OQ$<8w{(r+d7&)iD338QA>)qdxyjH4BRUx~ZQ>PN{xdi{J_4>0t{y zU~&~4s}8$)R|g%&iPfq<@0X%vzHAB|h8~mpJ$1yzZOW#WrlSIx6DtXs`?OFPa$CRj z6?kOrdP&$&$&M3J`cO*QO8^D)KIeLgABs^MUHPb9R*&|VD>1TT)b#?EiMsF@hI5Ae zxoVT-&Cl~X4BlLFItfJ~c{LV=`BjwR<7Wneq~98q7dDOgzxL4Q@no zg3e4^WVG_UZv{f%ibso?QdvHu-Fan&nG+sjJKa)J|5r2rdB252{i%(g z^~1-f;Bk{7m*eOe>bM+J|BR_z*VG`S7VO%1Bpn|fz2(EN*iKTIdldm8NAYGPU#ggQAJM(q-lq4 z2cizmTjp(Ojf+YRfzxJw`DjR0E=NlWX%KXBCR!z-x!Mk8fQZgVTF~4}DzC-9yJMKJz>f%inZ=_5#u=*7P< zmX1mto}5AqU)&D>F)d21Zt$Bh_(kZs96TI^iSH?Ir3kFAM=M2+ zc{6s!u%}8CQQaa2YJnGzPIKG8<5yfw_K1T37fxxs8EBeQGC~K;`<1IYJnvp#fAk5n z3=e>CzIahJY94NFZqY}~K^Ht_{&3jE#fjENMyt$C zK>UN~cPo@(z|4A|vJOQhq9B<8Y2!;`;|rBIX;{PbIAmP zG(Uyoy4t;XV0z9&qB<+t-cve{U-OZ`uldAn`V?DI1S5%mjCs6%HB7^WVr9RRgK@em zRyw6$wF%N@r!;0K;IwU_#UqXTB4&oa-!8O>(&TSr&V8zMwYZUVpaz1CluA%|_qaUGdN%@v!dph$CK~phZ zN(^whQmqM=80$(*s@t>=y4h}29^ zHS5~Ue6^Qm6Ha#wky6QgX*!G2_(!J@1Rv_(9|xbjSm4*C7eOb~2U;qnNJO!k@K4ZG z(sO!=0SgQj)Chvv!+WFK^bvsWv|DFCkFaB~0*n#+fkz@xy;77pGLg20NGoVB%sReW z#zj@#1trn;vWVj!{U_>nmw%8H-vU6&$QINvzs_{5iCmN7;&hA0~F$Pnl{X!#A$MH7s{35HNOnT29#U|P8*#m!MNEQNF|Ayf6HFI`CX)9{NE2g#tO-QX@`N)Rv19-T=D>V zh6d0sCl29jXaIep>D%HExdc1q1{V%q7otZ{Yxp%goj}Oo*HBktPy^poN;N`2se}&- zfOu04-0e}IkCGs z&sX#L$iMan7+PbOL6(aX-_wRiU;G4i1IyL|oKim7{HZlaB<(;Xml;l?^NQ&?Q-t>o zoyc~sLt7E=Hx3(sG&k$o;-m{aJM_G@9g&|BmYj zb`Ck0!^XxH#D%-=?t-tGIa!)VkZGQBX4n9DAjk9Hh>)-v6Oi{f0n_S67KZ++%=H!y zk2xIhFj`rM?xKdG_Oz3KIHhR4g()ay<72<^?D4i78$M=kW0?o%;M0X(cnX|I8wkVGd=ZUN zA@W&g!|iYO9Et4#LXTikgt@|KwG;1 zVj#;|iwXp32g&^NU=`0g-r|%F36XDyI8BFQ10jQL(K#;ZD`(yzXI`@qIRy;)7ycr# zTq4a(lSG=CdE3N5OQFa9gKvnG*?1_4U~07T=o$;xasj}OU-a_=>1V1Ko?uZd)*og# z&=-M!8s>G>|T$9%E7zq^$LdfP{H|qad@q%hhL*u z-k@gwbt*0fuC;9I&sVkgp|;w1c{>aOY~L4r)w6IbEIoxvsr=(B%vk>y{9~hOD-Z}X z^)n|1xA2yqV)p-%L@KZL$Q+(uXA@P}m{G>qu%ZR|zRU3Nf8HnY;#&63IgKNB6$fv7 zYu6boDLA`Ic50PalU`khm0X0CeD`s@lFnI-BN~c>p0}C+A?dz+(H_7L%t=qmaRF8` z2rGFRD^WE_=u%wgd~3JrR_na>z0fC4rb;5e$Bxm%%Bs$Xhr^A7;2|8u7 zGq2T|2YVg-;}E1h%4?rfhZy|*oYJL2U~?*raZ~If6chOSVv@R9*!gV?x9e8EI*K}y z(xos2(OfO?g$d18u{d9SHRBW?Lnl8j>01p*;T_!f=uPW_qRRsd@;Qd1tp|F?5%fO4 zZl|-TfPd`o_{0;QH=^}ozq_6yHf~!YnXr2&xG@mGr);J+6(v9{hU@%a<0uZJ~kn+GJ zS@9WkRm-OqhORwuU5Voxn^&Uo?b;W98k{FTIuqJp{}Q2&?BkTeLZF$CC}y#|QIs=u zoMkqt(V+PnyxR$H;t#v@2f|#MSRPfQb>@6nj>a17CcX;oGH^ur-DeG|vcGpwVV#V? z7svk(fCcJ|g#1VcBLCm`#XZeEApduW{Cmia1VJomMuMmf3cOOozm8&hYH|dq{X=OGrTcvm0&YvM)P2J z#lt_g6>7qZ%~S(hF2sj22I_`-1!>pLZz!u)=XCasGuOPW_nN0FUry3$-i3tFlLGRgD^wEcBswh3@tSkE687d0$Ko(560JsBN;J4X? zGLv~m|F|<(e`TWj5xrG!8PO0kzNP}Jm8L=lPZi1xnx zif3tkhNZb>6EQSjU~jD9SZ}~;eH+H)#mS$l?6?N%Pf=bRL33`JRDUTWHX5<{JdrMmaCtgIQ)lcIB=E z_`MBCH{xxvVp~#awcPBqU&^nzlVs5TwaoHrn==0Z(gtS^vZDf^1=8ms7wvS~!~BW` zr&U#2sMR&3TJ>MRuQBOf#LMfe!}I#onXgfSJ2uZh7FbltEq*|nXm%CsI*uVz)x~#8 zeTBST>Q>-f`87LXB?JC-D>9Yv+l#!cR3n=9R5vWX%#&ANv65eB1Q<|WI6w%R2L$_w z@~s958J;MBv#=TJ7StN42Bo=83;zb&gDPNQeV4oJQQyVb0BNsN>I;+}Wu3}JHjdNz zRonrgTV(HskOBUNaU)`&U?SBGz7(m%icfX13R)%pbqlT%U+?L@O60v@;bPZGncI4J z_p9gO-T6}HnjYT8R$DaLiY7sqn@mhF-adc?_LI~`5a&MfC=qmcJ(~KE8C0tYPTsqM`oXglY+0hPKz3QUa#f6eDwhG(L|Q+6u6|2 z&JL6xhqJPWwd2n57FZ7L(GH?8_ z7YUZ@uetq%fy-|<@Q=Q%Wn8TxXO(tcsa=EGwQ@K%HJ7h? zliVg1@>LRtPM)56`FpY)AFb6hMFVDRy5iMuZA!6zo1t8<-)1Sp;P(A=>{{L5!8Roe zU!xVs5kMaXH`=D8Xds-vid}!yu7}}D=esTMXhDh(Xm56F*KOLh7Oql%S!g9-{ab-j z+!|=l_UA>%qW^o9h>|n($ly)L#DpfLZ$zdhbdwDLmd6=drb7K2hH&Wpd?82gn@#$A z2Eh#&hg>!Ji|})|T@}ZH`>Hq&Zp6MBo1HFEv7(#O`D*k4YOm+3uR~wknVGwL87LVr zJzI7mt;_sjS1)<2nCDf>^TDp9JT#V)Grs?PeALkh>)pRdJobOVG4dr+=ahCx9a3G9 zaq)SA>^7_vf-A;wDR{IH7S*U4wi_3IE2t4MP-7MX?Y4#gc9)0U^7E91(Bze$w;~U_ zNBT~bIy}<0;^3Qw_}V4U>R+)^+LBizgi1u9um-^%_LsQj$CDAHZ##05I3=ZZ_=_LMDLI9jFD^zB9~! z5@6dzVk&a8<(3+SXw`DF1*KuCs@#5_g{wZiSai$J;A_Ue@as$%js9|e{S6z@aw$*$ z+U~E>=u<4mMaOMY9sIhwqyLBJZ8b(wt+oHSa0_MBOoL}4@9xVfjmKZFjrW$+&$hF( z4o35{Ob4SN91AD(!6wHI!LR+*a~7^Z{dxRV?RKtLZsvyc>-`srYE%rU)`kCy!>xG} zK_~0U;NH{ZN_w3P_})M2fX6+=J0_NCVda;8YwLqKQ-pbO6$6e^_M=M>5pE^7Ezq8_ zs4v1h=L&e9V8Z~Ek(0RLnP3Yv4-q2Yr8q-#GMw^i1D^FjZXR>HSZ=2@CqsZiE8lWb z2z)gpqND(`5h}@Wh9=rjfXy;zVP;5_CfZPK;GLY(KFD#@i=h=cHY*H|NQ-%#JnC{G zP;<%|nven8TdbhqFlNYt41ut@0&cV6R%#8d$hicq->Wu~Lc=RLQ?MncJ@Qqhf3TpF z7hvS!+onb3z!AlVYWQ%seIklVtB1fMe7NQTlR z+B^6a7HXW-Gt?AV+RFuxpTGnTf}s6K#PLwnZ~N(nPDLXdoXLN!!H< z8Cu(%QVna~I5vN%eKpMbr3fcSC6PizCEy+lrNUDKqX20(V4FpCIdNq8R ziZYD#PG>eSSXt=)Bu&_@wavI_dQZ&}vBCV1pWB|SZtcOof+Es_3@I8>jDfFB0Dd59 zl8ZZ_zp4-ORfn)6%D2Fl?K$(+0B7u;K-&QSPzfeLyNOMXNjWs!wMtBZuT!;3gwwHn zY;-kxI;0Y*tVB+y5~+c&mr#kmve1shM2hBZu}2r)k72>&6*-6=bWbTo1%BObWlV;J zlg(F4ieQiOE81bj@nh`Rk!W8mKSjBfIiKJl@l6n znUs0n_FmSt=HDlnBsMuwZ-eW@*wbI65_^iogvHywGg*n2_|r0Wo|P>~`vpmHN+(2E z%j`A&0jRVGlxqqj!*}0VD{Y|wo&1_wevLC{nw-w5neMR`&O=PPzkpQ7^2Z|cegC#z zz%@J-Kb8Eg30cSkr2plCMOAbbP0g9cKQhTUGybs`Vsv|I?$_nkobpi<98=;JO{B)dD{ zxnur;mQM}wg1Zepe=lAJVYEQG6M6-wuyq~tKWte=8fmPW6`K5%N?^;J_eGd~!g@DC zVtHWag?N9$X{vc(rx*STq$}`^0cvw}%#T8MXWw{AZ7E5r^m?t*B>43D&Aru6!1ef% zQ}b)!BX5s}k9^7{KC+8T*01Odeydi0+Zo`WhE)gRRWDw^59t-&GuL-2(OK_7#i>wn z>?*8u*SyO+^^isHAuDzaKAfUb9|>x$(~fg%#oKrwh|@GwYyqCG&Z9G14lM$1@_eU^ z(BQ#vF{KOphyhr}zeIhS_hwaBuUlF|a6(zOARfW8j4 z!qsQfPS;N2;o7Gt$7|%*Y{LV#ohEW@JgfRJAKa3h^)#Nay@8SZ)_g#RYc2t4U>gZ4 z{>X?L(z7W@EvG^8$1a7$vGT|-k)kKv*%e}Bs(Np$A^#P_HK zwk1Aa*U|hk(R^L!KHY7;qH@Xn`j*R+>N~%Cea7DELvVVkvt$0|mR(6?s*Yp=y~1bK z>O0jNe2*s8^&9Rd;X7k}9dY!BW7jaUbY++RqF&X}Zw9pEeFql#ghTxPIEhdvBeI`%@jeA5_=<{SS~f8m>=7nNM~{*~H00 z8M9<)f<0h9Q!^iZzi!E3Lw2dGQab4*&2s4oDNIODGu6}d*EWA4Cs)%t z&!!`)d1F!ES@89X>m1nYmyAGl19*33wL0%|U%EyrRd|!7>mXb-%0g#l6r8U#mO`G# zoYHQ%cs$ZcF?44T4cd>dM1ujZQf7D{W4x?a%J+O@QmQ5Sly z;>Jpz(JKY10pA^lccDAOV$`)6UlmKv(QEVS@z76@IJG|NYDN!?rbyKF1y&~<{{d@i za!Sonmx3vX<>^>s6CDRZMJVgwqAsgJdpni3dInZ`Yr!r-63z69X@V@MrU=vt4?d|C z^P%OaAWg9X>LsS8E7eMJkYlHNQvib>qgp=ekbJa#pr9)Jntg%V)W}Jb3heHufUSkf z98Db*HGlEYnhu_h@sF)X9sCAC+6?Ono_JuKLsH^c!m(q5sjxi4RGKbL&6xq~P8}>d zs;B(8(}cbs@JNndb1=dGxSI3s8yI^+RnlK_zo%Vf8iUr^z_%)3%`L2gN1@Xyu z5+>hetYX|Wky*hX3R!pMpn|Uka?IkwfmFTjug&`4*{aY3?T& zMk1m%V`Q4ZcLu&{D~YW7)#sm5V|(KAS|Mn@2sP4K9@MdpwZz-o?fs*j-=hF6&)6xC zucGUFeAA>DOH?7~yhx=y#j!8x`|v&^595n8D4*TUah+@Of98RKnh#^s!)OT`t=gDC z8k3EtR&5;N+CRx<|Iuf4lb3%^b(e1e#yM6&>}GH6@okD7?xOGA8G`R)t6)9#pNCba zR+L1|sVY#*nK?ObX){piSUQmzsU8oMb3{}7P4Y;qHv6sP<-uesHG^Ll^I85m$`ZklM{%Lh;lH(oYhLn&_i9zK9a zXoB>?($B_lT;-xvwIR?DRwFQ(UQ7Jys=qM_c?LXb zDL*W=R>b?qPW`hN`p28M$D0Q`_5-ly4mD6`XQ;p{9 zgrIq(C_e)DIc)HMjGX=q51DgHPCc>-x<(=ZJkknH$9r>~0fyan0tZ`z5V=ilG{>NU zh-?N}H3q4tU>b3}zRc<49znjQ$05%TVf}|a2lPr%i-XQImHP1Ou48^<>=##e9-FbVVJp+t}p!q!392j4RTT`^}O zB6hHB?oTORdmSHmy0?iB*v*T$r5$2kqX*q*04cd zzr@3ZwdwC@CMwZclU7)h0o@f{6g3JgQYgUJj9(nrAjuz2N1Xa<)UJ^3*3JO#8+`VY2j z)JvnoVYI%HVs2dYqcAgXmWN#r%S>Us{b-dn9O}I7Dp<?%sc`zd!*wGfcW~5J{;HYUCPB%aBf?0 z`SjA%hJwvqMl#SD(bN`S$bC7ZT+9&Mq1Ne3In3r!_BV-Xp5vxPzU9$lcxa#XMlYOQ zbg|CaA-_*41A@Opt1i?~@0Y z;JJTTG4ty%65dvR%}%@sK^vyK)kqExZ!k4jYH$a_MqFk5+fc?+Yvj1@g@d-1|HDIw z6Gpxoy-DFW%?p>{HzP5l_R&C6ds!8hPT#L#-%ks-m@7Xs@#`AM>;RKR14}n1(u1N= zht)(?=zuGPmgd^WY0_E{=FGxXHHl&0z6?1$GkTlCn$H1op zZH7l?N;@&n12U77y``1utCu0={4p5kr04+~#_cG{7NrTfY7_cJDS9B^S1wAVBqSD* z;?JCkSbV!Bskkq~KJ5=JZO2&K7|gcO!9TSnv?d?gtK3{kNBEgbQ~w)z$=L;I5qqmOCN&z7?1#TbwFJ?dz_ zT8i7xT;wTQVDn{l!tX`Sq6PVURRz_MjATA=E2Ul3Sx;+rITrA}PEp6@1%*zjWF&E? zSf4}|et8ml;4v_xztG!Z77Hl@Hibpb(1Lt1L=`!MV`4V+m@}bJG}VhCG9>F+c@`Qm z26d#n!ZIhTQ^w$9*y5HyV&w>94zkRT{-ftwS?1WUM>J@6zZ#7Tk^fdv>aV;;41RxU zpMr;XKtuWJUlB6;+Xb_4H1I$F*UL~@<4e+4%tez>;CGs^Zyx+Djli$SpNu)FW2>(~ zE%>7MaGdg06p})+;F0AtbR<(W&&oeWQA6?ARFvOqrJ*&Q9cX4J(JQAkce@}RbV|Q! z5(0Ip%xta0Bt%Y`(CztbK>{jwY;k$q|HnA1DE~e<5|2)6O|^t+btew>m=( zn=>Rbg|$KOl4_!AQ2$A^LJ|Fgj!8^Wr?q<5;@LzIMfur%V_8oXqRQRE90w}!^hLG! zero35ER?_&^CMr| z61ltP@2~3l&8nWixl?`z<>lAW0u3wmDAm_bTdk8;T?~TWi3nE_(L@0`*W70Bx2Sg>H1eTx`kp*5ZY z3KbinRUk^Ah_d-g&B9~uc~BLG+Z}?n8J@=+Ory_O5bnwnNDG-wgK$@EPyW#pO<_Y< zpaTH(j?m4Z0a(4tz353a+NLDYekPmPV?2r44o9cZN1pP{W+D%L*@Z3(+$j13Uug5RPN5a#=^NxKakyxMX4e$zuQ8o z%5UH!Ct*;V2BLjujIqC9yd@YYV)&|>audGOJc?P6T%el@(2-pt`bc;wbb0r1;dtn7SY!>k~ZjQxs7NdaDHM<>s^7$*St z49s`OKG7cak1set!P0QOwWyhv3s`tIQO!Jgz80xX&1|LHT8f|>WJQebnMDBn4W| zE;!7L(@=5EDL-fwi|)7b)me0;-Jr}q$@U2^!3IjYQM$>DigX`yN$x3BbVatJffS3( zc+$hXQ*7XvD~q*UXIB8bmCTPRhEX3lCV$nl3Um<$4EbvNo1-q2US4g*SvazQ(*i)8Aio(<1;R(8E3T>g0 z5tcG*{@mTz@2+22xR!NjhLicX9$p`u0k5CI*Twl#AAZevGoDY*inJMF6r&foRBv^I zz&p2i$|LwVw7OyOBvJa1^x?;5ISPjveSNVJf@J<($oxAD!fbC^_<8Ia!M?>m407jE zZYP(>-yiO5SVl6hOcZIBEc}|WKujiCvB{BUqo+KqyzylUCs_)1u~#=`VcI_-O?U_A zVyE-YGf(*0xDS5dXYaZO;;t+7fWGN+1g}23O&1c6%Jz%->P#|ie3EfxHM3^|7<|?5 zkih<2P|oiLidHX!XksCT(+)kE1d$U!@<=ras4&!IWqUhcO@eHD&71+4MU+JYG=;z( zfoQq{Cz`w}UXO=uY`f;QxJEQU^#YJb^4yn)r*HQ9IX2uK$bvyf#bsD0k=mkFy)RH0 za}7=B@|8<}R8={>QY;@k%+wHiY(@~9KQE=u`RMiPv9b9E-;y(Tb>e#s&zyOc7(2`n zocZYWy1j~qJLYD`zLgI=!&+^iy$&U}ps=6BECq~p&ZFc&yJ68K+Ww!mJb62{Pf@>4 z%yNb*hQVF|E|$ovk(xZL0w~;aG3G+u3`%J^ z2OhDFzW?8hAuhSoO)d<_wl3_#Kw_a&8uXWB)K||m(6Rtwen$V+8g!M58F6WdP*p91cYM7l;#V}$(-Wy3ml6sf4 zUD*94j1HHy1%bfIVttN{&93y#6y?P*ZuW?w_X>jy!RzPXbPtpEH*g7D5iFp-F+~sM zEWSab&*e?k;l)>J^uKacF6YmJnVLhh6K{yHJ0BexGQW&2XYJoC+~bzQF+s|_bXE6W zo?F4})KhzSS5nc%PJJq#s?TKMC1wz}q#LQ@CIfNvmOQoSUZ|U(qdZB+>RpNW!?Z!`zAwWg2W7?+XV{nJ8M^IvkOM=Q z^Pf1wzU(O1tz0w5%C-Hjw{m0o>bJX>dr2!7?zLPYUmZBBZNj48ooS^n@}*R^U+=ef z77Yx;g3eyQeUHCyQaA`^I(tXg{c@MBKMY;edLZXc>xQ9oY^xxB*D|>$S#uAAW{x&! z)~r0!%Gk2>G!7ZQn){j6PB~+>k@qpRCtM_0IfnCFOGxlJe`%o@t9iSv6I~ zU4nn8^n3Jlvk_ef7k?ANfK#caVxQP>oH6nlm3@n**N zcsxxYRY^`WhhKuXFn%8~vBnyDqwDg-Gd9S~=KRiy}b%g&#Q{bd=NiM%` zENoD3GMei7bruuGz>M&BgpcyK*Bs^VN*OYVBJ!rjZh*J&E*yV1AQekOQayi110-RT z-kZ&kX6&48oE1LfKQ}rKmXpdcU5C(Zt{=(zMA-^C2RYw^!e{F5FyY4Bee6(}pl z+ZV{`N#`O_!OUKFe|08#7^6`Ihds$2NpLt7Qs>g!*ri4H<@+vB-jb6#zc8uuO^y*j z4Sy5^3v681Lmoy=6gF-;9r9qTDo3T-hpD6%2S;58i=J91F6~g!%<87@Lp=GLPY{{7 z7^lvKy};G-0E|Nbtp#ni8E`qt!1-WC-!ow0G-Szmzf3E0_F!k~O zK8}8E+?H=4>0WW2IUh~!y2$pnGkbqDVAIsdXE86GHy0*?3ZUZXD>+T5B`TeufDB&L zwrhqiD^QgSDadf=Sg$;cO1V~adN2f62TT={?8Hg3AYhlfJj?_#jYc%%F8KC zZz;GsC0XTOCArE9bSHww=xeq}Xo^zEui1ej7$2lBZHKHw_{V3^Cw&8wKlONnNfX+H z=|=5Z@yjMA%lV5bQ4uplTt^5-T^{^5xund}hP?MNoKGi^Go)sWwF4W91<$l9wmT|M8~N(1p@EJYe&nk!$D1nXvD%iL1)xS5Q z=IIyyD`D8NPWjP5+pd4bd*yEyv`}rP4%tT{JrV>J90sOHkbWcu!_nRCtF>=;;SitF zIK)3M@0t7pZLfU9|I@PfyO#GZ+Hh1xD;@m0M*9x_@uiw$#K+;?1lhda)Z#X6_LzRC zSQ$k1PBUul`2Q1|;~0UCWuo>v{_&d(glga26Xa3rO^VxeN^13(TF>79%cE!9XV7-w zJA;1>;4be+7{!n80#fW&qwaue=2!f^0}q|q>|T7GSnkZpc1x!yzN=e0>@7d;j(lYl z<&jHWs0z9lkLNEr4&_b9^o@r9OLPt=!Q54A3{V^w6*N(?@8MVMJ*BGX7e37`ZC5iR zX6#uX)?63Mr*Ej4ub9!m@vBfT1ar}?35`ic%qY}{nMs?k*h13gS-M9v7XDYO`Bt-q zqwl)u6M^17aqDE*r2bJWbfI1-g9_c$TOsch3rB0VBRDfB+Y$8TTpaY|T=LW1l~LV$ zcM)>P&k59ZDPSDW3RNq6;y~O!)#+k~*Tb*Bjz1AQK8hmU9k}DC2|W612tJZ zwcvnTQYA&;b0ZkKAGR{7%Bl}iU@LTc9R`8|%5;>U5j$FR_R&<|$aRM9^C!iGL1Wdyi0<%1ljunO|q-*t>1t=Rc49(=x;xQEuh0wTV z>1G@jbe@JU{O}^lb=Ny10?N)$|L_)Dg5%`W=3L=Iw;)vjtPrSlK+(nb#sjn$v~Im+3Bfl+Bq}GfvLA(it-6xbnUkCu2y5_je0R zqbTJTmTqR3EqEC#r=v96a9?}VIUEOfgYMh;%l;&}zDPQl_tAYj4MXv}4Yk0*y6)R{ zERnd5kPRh5K;RGdAo(ksXmY{L{9gK zoao~Wy-NrU{TBP$m@XKIfA`29y-8C-E$6g&n477BdB|dse5jv?m0x= zvsv$+7qsrl33<&S?-wl&t$WUaKcW%(rx^R^R``v;{yFrM{d39xzxU4<$^Bza?w_19 z_0MM3KQB=KOcw)TGxSjv^^sEyY_W=gnK@Q;EBgOo?_a>9D6)oed@eo75E6QV2}VVU zGH7&AqX7*L=yWmz-DC!$paen1jhlrP6(LcOaB~vKY^4F$`>wm|y6&#)x{JH(BHm{b z$c1YFFCbom*Nzbl7fHAz{Xgea&twu3WZ(Dw-tYT8&)-Kf-PKj6PMtb+>QvRKb55e_ zH`nR#t25EvD$JLPz6l2#dWr)&=C?^~pu`ry=w5u%$EF~6F>gG93MD+-#dIM4& z-O{;0y~yvdZq8HFhKyIoW_w+2QsgTj{MX4q@j*Vu#TQO9-jnD9zc0J!Rd=lAYGwz#);2R37dmwKBX&xH{ZAfL@ncUe7T`is_NBWbBsdPUDyg#=&KPi?0G<^#f3`OH$J3xIV+fgMF)M-f<;0c<@26Ma=> z!fAmW17H^5CIF^Kf$0cLM_{@E>{VbE+@dS?J2RAEZKkhkiPdjyL2h!GiF?G#2J&lA zO>!Ld^Hs0ecrX~VDdxQ(=6U$G9utzEeFReix6_ofnz3poqkXFLUeimTwyUl-zy6!Fr3&E~&v6u~cMrV2eC3~h82fR0`r zK;WGiaOhYeCUWOPEPOz$3!&co!qE!m9EU`-b{6mZ0iJm9 zrcOYwl`3`s+)bEm6C^hvX$ldJL?rkj<*=XVl-}y+wb-tvTJAgoSe?WMZ^zUWKc(LH zDP%q0!x8FgDe+>(^YHmI0670^M5n6>|1`jR*B+$R!wA?%FZYc|=e3Qyhu3x=k1f^Z zMeMr{;^RihMo4%0u_0a1xUQ`Rwq5V@SWU-wK-)h{f`ob`LJ|@z2?`&tgYTt49`SC- zecyMG6VU@q;IZplAV-=L(x*bDViz><_*5Rt3dq)#{!jtO^AO}e{!NKwz`Q$xmG2;Y zW?>zm$Pr4231s>z3E|fQ3SY+X=t9EX-G+d+7zkpBtGineRDG<0Q0O=|5`dn7*OZQl zMB@)R7=XGT|9lLuUjT%=n-Si7oC5PdrwkhnI`I6*58@xd>~5sB;EYz?QDUGu|7(P^ z6MFYJyxrXnU0lQCVJ#D!h}-)(hK#^kz%=5Wm@sD#(n!F-UUQDpa1-xrgQ5WTJ}7=? z1V01I&)JC}wnNGm%z79;e*!On%bYeG2ggg0Re`O)hlejQuZH=ss&6?%L*>|m(8fD= zVhQ@*fkn0v6aJYKsD?&S61{W+5$Cj&h{ryJY;#ck$FV0)+XczH5o$9H6Bv|7OS~MB z`#z?@HvcmLBYt7Rmwd!Q?maZVkS9Cqj6t>x1D=VUfb_Dd#$W=3KA_P%gm9oymGYv( z2hh0t72ps2{2gLpoELvFN<$Nn4FZ;yfn<057j)nVXQV6)Nz3`ZF7l+e@(cQc> zy1E*nD(p^@MP7vG#gZsCh~9`0)P-c~!ambN zQ$c)q@G}jZ)DoU~{{B?NvK>ca17<&1f^7xtw^E5hV?^^Jm>csU(hia2vz}5#o;|{MqO5amG_9wy*)voS!w&(2~SiK+;**NwbjvAHfUs((Gmu6p}dm zT?7$<(#2KqsfI`5dw+n8r<1c$RLlm>xDRv9LV+-QKV&V~P$JHYOoDu7$~UhTpU z8=`U{BSXb?CeSWh){%kxW?5Y|GQnhuv^b>K@Epf&pFa@&r>h>pZC~(%m;D+`Nx@^O zWo}8$Z{tu{`nRS1?4@lP7w_AhjA?J1QR{PWS+*HaR*HA}Tze_MpQe7-?W)3_0oI1j8QT7 z4(?cc@~65UO=Cd>#di2uleD`gsHZNtUW#-KlcUyF?6Ip53#q+n{P2paOgAQ((0FV| zdy_Q0#v39S((qj&g5tH-v|2H^XtCG1koy^8&l|fVbDi_>B)AX&d*sM|8++`W4dbD# zwJBsgiSGzb@tw`$I?y#jqL+7^gk4QY|LPM&nvV)21KYoRjfeM9G|;JTr(1P`)Uj>X#hlaYd%*~{_u+5 zQWvp?JZr^o{0UU6{FFCDFnsJo=qJRSkRv;@2x|*|C6=8v4lm$|l`o=EWWA#Wooh!l z!P-GVwZ@C{o>WoR{*&chWMUV=($lNq#6T zH>i8W>aRMDyUj+3Y`hsrMrLtiN>cM;!|}HJ`@5%nUF??YD||l-lmWv9V({B6x%jnF z6hQi50Ateb0vS}Pmu0i`lrtz|Quv-+N^4 zi7QjAeAPl1CI{;cAHxA{L!QhyGPWOI({CIHScwpV*;b9sN5phku&~rTO!tu}m z11+a zzkSL1h~lih@#5Y~KSsYl_9~*}b!}%+Va~R<<3s?`Jto!x4K+^>1-toj0iCQ%Z7nz8 z1KDjLlG5(4D#QGmyxzd`8wjr%XeCbG^w|krQP+{+wSFIWej~2;0rLgN=9v_AR9@-L zT>b@*o0pu0P58|oi^Uxavwm z33|P(Z{ip&UCmqa7Yl;?T2@D22B-z!Kq!W8ap|6zv@-;LJeLPgG*9JPqoIiG(BGCvjl=jt^Ee}lL`6dT;ffxW*b_HGi_XymjrV(|B7pQ{EHgUxw{ zywC3`>Ek%N#mhP)2LvhjwOCdf>=eZy9+a?c2FK`|4W2mwJmcQ9WGJ@$$`9hE zTFx&7mTmL8HUVd|>c5jrkF+-#^#a#Q!yB!ed4Gf$7JAEr$7(()sGG&gq132)K4x~j zAA@f|27%R;AL~y^^%x!Mt883omD)dLLF_bilwCt2*Y7Oq>0b|~l!{TvR?x@lC`r*b zmISXimEPLTM}x5Do8OP}(P>!d@+b>AsUqZ~0mw(dL9Ig!R%%TFie>8CT5Xhv;|E;y z#iu89Ky&q6P}5tJO1z=#W1kw0Pfte2ZtIoM(AZS<&!6`*vpka1eP(`_b2iR=vwC?Z z=CcjXV}0G<#QRpLR|j81OhB>jP>Nglm8;UrSo)a$D$b5o+>(Z#0bb*S!={Pv=`d7i zYQuZ^*<$7MW|JwZfud2tzyDz~^%zVay&JEnzx~N6iuy%{^yErZE+0`_mMJu6>}`3n zU$xvp_d)v6%}2%S=7n?mY3PKjV-3BS_;ky%om?rWT%eivqm&!-N>8P{I+u^UV-=01 zw|m{6a`koJ?ic}3+1?DpD5yIg9Cs;Eskgcf>JsDHc6$>}9yq?*4RP#4(Y!OJYpcok z&;hu0Tc2t*W2j}|{1F<`IzGC5GKRzW-O&{l$4pHg%ms)l>wG$>+_fl`gCK!{aLhvt z7q`7GMV30{?rYJ04BPM8DZOSPn?8_8?|3a;pwG!&T){_A-0uhu2@mTi!48jJhee{} zA)duTNdhJbMv_2D37C{%BqdN17MBfBGKZCfNl8Xh5+x;LQnHbhOi6<{R1 z*T@d3JyulU1+Ng9fc=BCrNq#1dPr5(BMm30iQBg`R-*)b}#mrl&vgsm+KhSvE56xc}9=dLH*r zyWBYL-^D&`8APHLo$sRUNl?!eAKroC{U#U=4Ga9_x3mo%8rF)ze<8&B5yQCi!iHc& zvmSPJ$m%3JHQrzRfl?ptK;I;4L8c$(GV$If7@v3`A~nmZk{PVY#22MaQ3Z_d;3*Mz z*1*5bCE`AtZxn7#?n@a*zds9?i0?~#N@#2CeWjUzgsF5>d@0c=l^9n_iDF{)Q^mAebAq8u1Y4ONcX1lHjq|&`s7cLe4ogMsRf!=@Ck>LKaQe5EymbqX$>3j zB0zAg!&I8IVJLnP9IXk=_Jq%ltF7~}!>m4bt&a&#AFN*4&19T(*)?Tl%d`FQ!)|>y^7we z>Q_a*S=FuLF08h^sq5;!=CON9N3xWaKZ%>kLa!LLr6KRMkBr^J5>i_e4NIP=9TVHp zrzw-3e&i#YX$%KcT0l7K>Dou}_`QA?YHQVG)DmDD$sxJI-V30~%?@qm{S@5=hK`>8 z0+p+6xq(cgw`k34bvhR~x^V8NU}9zvmjigN@&$*P>TGP4GnSUxFPNkM;Gqc&s(^lY<>| zOA~_~<)s$(U5rh)^vR~6at~(}1_y4(os+Bpy2E~tqDU-Stm`dX&;iN!4Z40><3hHj zGJHBvx4#XbmLsUgUX8Zm7w{DM+My=r_B0AyacoLqUTzdo!n}dvuLJld4xZ0A8;$y) z5~`1Cx+?&S&>`F*?z1p-wcQueM$oPAOht98Kl{eyIK#y>ym&=A=BiswCgavJc~Js& zIep4VZg9Dn;CjTz>!RpKNfHcqQwA9Q;(p13VBWnD{R*06Ci1y`8@P8)Kh?nflpkjdApLdh&AtG_T1%_j zs_T_{8BFij#m@x(-Y^|9ARfm|%9+_liAeS*<07~Xz%GrS5d zs(2HM1@W%5HR3N0Kkc{X+k>B3tu>Jj3wcJ%&!`j3W?0R^yGWEa?p)D&Y-Le#zaqWJ{bq zZeR0txzpigjqJG3)xh@p)U;Gs=J{MruE^6~wnt(SZ_bBa*N0ED21w7@?ArWvPK~R^ z>)yL;Fvhz`VPxcM$4gcY{^)M-ij(RoL1N*a{>dDD`8!$hEx#UX`^*xvlO)EhUy+Fm zYOXibuNY~()UVhxA^Nm1_LLEO!Zn_W_L$MDVrAHHqV*aY35&jldfJ7<|AKF1(_VCN zD(%qB#kFeXP{9aFy$k(H7yqG1rl>9j>ZrTq$X7Pmdf3a}esetb+TX*tt_;>EO2JKu zQbe~(kxnaJ-3XVTR!zqJA2yo_+>G~g%noeIM#@;P@9 z^E-5m^2A1})$1%oUl;4@qTc&fH;t!gowBt-f0TUq5e0&8;9rxt=3$}`u6Q%}hJ|aR zu8Zq~NK7GnY~q7U<@#W>gNV5G!B`gsV_g)Cbx|hRv4rI-mOovHIDr*r7)?=arnT+KESP(9UPLcWX8Sgu~q+92Uqu1Vqj*pq^*U zqmKawOW%yYKkv&q;2rbVwc~L!84VSEIbj~Ve+==5xcYjO@oKP$4lcY-*wbLv%Z@6z>N z9JaDIhc!leaG1C%120wnFK`*QPSQ7d-Ms&+O^9p_a*CTcMXde=meDPtPI71~R#uU0 z_!qK5&e6%L^8qFD1uS!48j6C!$KD)@k^zMR2nUb}C>ux^$ep?#<+mIiCB+ryXuNKT zRSfOGy4KZM>m$tx!8b<9{K}XDU)o4mq{(H&Cl*%>e>uu5yr*HIW_0%1tuX0cJ+ZiY zIA=9RT!TlFL1Z&zC1e(Zeb^SiHLRWW1!s`^Ehf{C_0T2ZUOn`{$^V@m((B!wV)Y*E zmpTdg@GXqj(Q!i8@&4kNKTt2N)=qTO7sjS{%o}_>uP{f)Hy_Fkrk+C?<$%99JLdq1 z`3DR!Kj!azFfTRnt9WeX^W&-4!b|Vs@l@B%J)MKn-&}z8Y`Qa}>ktu1c#t6Dyo<9l}z3FU6q-DUR1&-a{gr=me z_!_^p4wBU=qp*zhGiXo83LP(kEV%}+^8TCj`2|_?&zFpO=6%fA@l(FoevK}6EXeRw zT`%i(E%&1@uZkUXES&FINk%9){RKs4zJpCk zlh_uYtCrR5)S5Pa%?yDS#Y%rDE+(9LZ}DuNb0#dEtx@_2OmDI;HqK*_EFuyElo| zzaha@FI($mcYf9bLvX)>Q*ixVgy~|Wo{W)0wn@P*bJ_WLW&JXg_Tt-SyoK3?o`(+| zez7GTonphsl&)U>($KFJ20~4M9>AsD_buOa;@!RS!hX&)W}FiAX6jz50g>}_IyhGx5&V+wc*>Q!g4&jYD{FC9WDtAg= zb_^(7=XC;+aQ?0GI>*<8v_Sl|dzW%4Gk6g0n3~0kKc{e>*z{+Uoh z;v7gH{1&ld+CbXxDpbcNxI4t^>r!yJ)AfLa8<;85+qk15xsQ6q2}dzGsbsCsicb%A zD1bc(?f3O`OC$6J5~U&uG)5qq9Rac?FEF!ps*|MWHGkoBYlJKqA+F^en+g3EPBqis zfLO5(-WQz}b*o|cy!aLF^O3KME8^X(xwkL5z{u%3hz>B=`$h?LGWJs}R9q*UIgDFu zF>*~ENOh8Q4R)o7l}HD~&iXPK zSJ5%(ikU$@L0q+L0P?f7>}&~WmFW;G?u7)8xW3&3L&DQ4dXCnEzBYXTfJ^UMy zhxohtsi~q-ti))6eH6LsG(|=ZI3xeB6Z&tS7flq<^QRQ-g#I}P0J4F2OSa996HI}C zH(x70x8orQ-lO!iAM{ilEgOa5d+Mc#W??&m`z=zi*&J*%dok>38^~$9rFFmOv8V1xns z%#K*Ki>uzkrs^oz1RQbWD020g-)|0%@BellVA?NV`FP1OV)i+_kAqKaB% zbBu(jzpdypq0C*CX*ZcR{Po2bUu^%%%Z^Jszt2~NW$rq$GLeuaI;K#xRbz*bju-sy zngtj~2SdF0du&x+O!|p0ZmaT9zEx@Ws~)qzn@QENWY1VtJ#M*Z0QB_)m`wo57pM6Y zfZkpZtv&!b!R)Q7wk;RC5p=}CyM*8kLwNu2#`kDX%yy|0EP9>Mo$3TDYpAQBXB~Oz z;p5zIySDvV{#ysXEk`fvQS)@jZpdJoD;(&ziY+b8QIM^pe?Iy@tm@Nzh9+V7~~)8xO<7fuB*T{1dTWyww^3F10qydW|e zVx?*vaJAr=Uz}_ylf2@qmGeYeqOqo^eplihg9@Io0q^IPpby`YkkmzC`o3s+IfiG; z3{<{feY_N7(E^5+R^koKNsxmPI|b(3*ZMP{=PW|x z5-+M7UP5E7Hy5k7M4b!&)$Q(hnZ^*g<&n0j*ul!@M4$y_!d_eM*Z zP$yYI2Z#t%%Vz)+WtSO;@wn_PJ1R^^3<8L&zo9KF!5IMZW-v7Eu%nFMjTsguTgxtD zJJ-T+NRs#-GyFf%5>Ril5<*|K{1x+!d;b!GiXr6L!4k}$XEh2vWC0aQ0bCn$c44~N z$0BpW)UutLWDQI02jN3i9=ZzW>FDnz`oYWg%!yzkPiRH<*^Ay?025!;trjI%!(Fgc zw>sI*X#e$rufXvoPP@{~&nqFz(a-{WXhCwY!&+_&LYuy2-#n!&jb4SY{SpLrqAEx zo%;FcAoyHPpSSe!`D^@q8-0GMkIx{Ygp_a$~0u1epA`O-TjUlh>mkkIlJxirq z`B{7){a@vLAAN0FbRQiL*%rs|qu*8=^>@Q0Saa+J2?0}u6#P7~bg1O6U1HbneG1m% z`3{L~*?o7K-qdNNe@?9WW7dGrH)98Jyeheg(}0# zK8NCqTrB-rPd|(HR|m%5C7MyI6gSAhW5SY4{kVC;te`I{?(lr!Y6||tl|XCNRJ5jv zV8-(O*sa+l)2~92o+Cw??Otm*vfqwrS6dq-79NdLk-I^xoKJq}2I4|LR{}v}-66XR z>8~X~X z+)hk~23_7?gXSj1NZx(I2;|yO>BzH7*3IqvS;SSdQ?tU*5$+BTb2pUzLpoZMSqeb+ zT;C7SOZoyT1v~6m>bd?(nfoe*K00yh%7LcNcfz_Ujcq0xdRfixX0N+pfzQvTAaf{4 zot&Q3iAVrPK)AnZAx4J^O>scxfeoPlqy>*>EXy!}>~5y}1PvG#3OFoe^|JglUH2-z1-^Xg8DEg?$>%tWv)t>JN?zfgDAy*Zi)b-Xog2$|4MF14w;4yRA7+EbC zC2gQRMK%3*<^+@W^GV2i#y*_NaMutrm?*<+^66Zz@9CXfjlSU<{{DR@ z->s{R21O!d`#60*#eXcfzRuClFdjnO`tA?8{ja63OTM=30$Hz@gSt@uH;zm%$E;B& zRoyAQ&#MieK8R*^pt8{qOSpyHcr76Mjse#1%sjn43g0>)gOsD!_B2Ror2Xf|_->7+ zT?G}$t`!j4Lh+A+YewMcCQQrT{jNb>1-}~UV z@@Q#tH`rwtR_Y7S=RlUFt7FNyTQ1(Ar$72{)YjTslYBWxjdXu;{p&gp0i~5c4Ehn< zLE-Matd6~h@X`GsE~}DhouvQ-^eD|L$of$V-D5%*pFYT7^|3@R+ZHM{Vz3~@n-=gm zbhBDVu=K!nr&1~;oZ`8CwoLamgB!D@JGgg`-u&!mAKemX(?G$&nQhQ##x5_c@uG23 z1L}fjmC%d~^6Kt&$^o`t3Ekbq&zrNn>>HUKR6>gziCfrvXs{eGjf;A zR$^Z(!8&UX*PN8vx-_^H7_N*0m8iGpdfE6P9oSJd*&+v*a_`aOGkK-tJ$fm6 z8r?*ZU{-QL!@&gqVMTY>cCm6JeFWC@R2&d1^I;Z{j@COikY4wAI2g8~(P&N>n0MqD z;Bj&FJSs5NnLFNajf(M;vT_xRV#MPH!{^E#Vy~}y4Y=uFC1EEkt zRSn}Qp~U(f?lQKR#R}YKBir{Y&~+~BB$J%KTlg_<-26g~kloaz-W_o2+YuMCZJ_UZD)dE`Dy!#cy{A<0Ru!1x zDHEUaE%4+hwN_2B%E4Ohv2|Cgq;H~{KQVLDgwkwK0!KN!?JfPR7I&u5KWY?_gJ#@1 zMIi3Z@=v|4PTX%?^9MZJy}{f~`W!R&m*1P-xpB0-q?_Kmv*YNU+f%gYr(sa1`BZ8< zcmVQ|L`Nrk59rg5b=+~K(S$4Lc2hg#*?~J6;-m)1va_PGbUaYjDY4B+T)r=KF%fqJ za5$&yrWjo}#pt@JH(hi{#*rSDtmtieBn~Is*{?=lXk+{iV06WJdu>1Z9zP~a z>!H;QA$@64uc*&+#Pvheyr!`O9=yZQwbbNy#J7(J>zmZElcRc9Y7ZT-YEbKM3D|Jd z8WvsAx29M%sHF__lB*lxVQw@$C#&zN62{vn+!D1Kt9UqExy$g>k5&pQ`kZGW zGN;9_e$jU*P#Fe&vBR({21Qa4eFsl(G~96cf7fVu<>jY08Wt-LAR(nKW6k2K&&ay{ z8d8&A$8!-3){}6?iuk#wsjJHG^x&G`gBkBfxfp%<0+$f@B4Jfqw5jnQ>$^WD()nZj z#~0xv_wqI(?xIV1cF(Ir&!dOYkdV|mobRJta5@jRIpI^z_iw+Ww(t8boC&fOwl}~! zWcH0;RqTFM5@ZZ_eoWii$(KZE3u=U16jz~xIF`uu`&Gly8K}?1CJ5NN%6+9aHo=Z7 z$!T^kBzl?XL#MbWO@^~u3@p>_2L6~AZ$y8}Z-GkUx<<^>6b-wJ4J|U2&@1xwG9yGU+dU zeEYJ))@O93B7Pf~E9$r3(JMZ3T>r%hp#!KGP$00gd&r^lDcapetfYr1;y1>{^$BA$ zOOr+p7%PaYerJmDe!r6FHyBB4-v3$*zp6nkSy8DrOxN{(8z}Y>{2kYY%da0UR-#!N z>0^FY-~gdjdSQ>~9SNA+dLhAiom{OKIC{f+4o!D}Sg@FR5+28}ITs#iSVJ~l9rpW?R$GAT6kLFpZoGQ{iO_}JIlPb+kt zbp$&GF1ePaH@o`T!TR6_TO1=towx9HX5Wtgf58nnwLf0ccZ-%E1GW68MyBSVu7~mk zAP^uiqdz3(pB9NN+OH6bl>-^l9}wSZfUHx8&le8Moii$wI2zgB0->Wde)>!v(*dag_qR` z-XEGa3jR6a-$*I4AHGdaCi1YTi~WbqrxNmBGbf}J42ue$xbFBpj@k)BX&r;MaWZ_7 zgUxM_m==7S?%9YHk0RQW?JNT7P4d&h&l2%+l{GYBti-}`uO6({Y&JBRj#D+6FX?!B zT?6LZYck^B+#s&mW+G#qacy|hXU#i!Dh^m6ephn*oP^&irXKi>;;iMq+b*hy$#8sE z%kL-*#8nsfBcz^b>lRYvcBIr1`wW0Wbvsw7$jCcl4LxGR*LdTtC5yecdWR z{|sg6&q8)zPPoq!qrT%fsW+Q(Re9SIU2nM^&BN1w-d`oZ|K4V58Kp;0jY+lGBLx&d-q71inw(<_%TQHT%k4OGn7+Dl`!5-Y==LSIK5QQsNECUF3*m zbNRPwp2f%Z%f)RN>uo#5s7HO6^ednHdr`fXw&%-=PA^E~Y_)us%g_o5(oxYrXUKprZ ztW7T7%mZ*o`_r!~7C-Klv^)Ti)I2k;ttv1Glh^&exF(5Y(LS;A16nzKv9MsGnzlx- zQ}hUxTG3_7#Jd-(DXz&z=7uVPcQt3dYxTZT5uaUM6z#7O(MG{}# zg^mOAH|e@md9>`@6Ge^MV$i;?Bz?O z77q7Z*w1h-j}6I|XDMfXe>wBIb3Q;h&*?8`Zg);UadPSOMUI}f(XA8sj*qK{Vf3~o z=S2;pTgWi_JtMn5C8ISRZz*!C=s5pqu|U@ZXTe!Lqjt-zq4fdc06_@}4uJ47LQrj2bf^3lQi2C8D^B3q znplZT^I)ewMiF7JqLb@kpNG8N4TGbCl{T`Vs%ms z_dotJ4)^~A=jwA#k8^GxI42;^3DMx$r`FcvP@AfvL+uOC=|0qk&YfR|tUE~iIsNv6 zF+aT<#g>fIu5196&=Y>yAf9$!W|U+v;Z@f3M~C*qZ~y!<#%~V`9Hmc7kzEC3)0zDh zW8K9HjAAc9vCzudF)xofM*7-PT!9?$sh%hG{i_~NSD1skr@X52zy=8^xdIFOB3@TBl4MOMo&p^sW5aLG?T6xHzKBtLFXasP zms9^dmUEqj_dzl=GN&=t1yz)M0bPPR!$s)NhxFfSueko8k9{WvzY-;K7Kx<)37*OY zyMXpZ7H-O){gxxTKlbDO-Cc8A`f2++l<2i~#KI5$NeX_O>cu-{c=y{$mUBMV6`1oi zzeV~LEQHI>QB=Rvu6;e8Z#tXNqaqp)ww|k~)lR(ot8Fp9eR&eT$rs>x>Re}LKpiFI zG-4dK150oDPuei@G;NTolCMXr8+T{7B88I1>SFMh1T*XdRY^cZC2{?mf;c&RV(g)BLZl3t6^)q*t^X~hYXC3^qX3)8XF>$=OCNqoN$&%Vis1zsibu}u=X zGxEa>o3m9bn!-&hm!Hl>0ZV`F?0$wp#{TFqX#H#4c@*D$1jZkr9lZ}_?l6$%jE5X_ zKN{`FBw4R90ulDu|2gZlV?VS8uNnuBnZ<{vME8Ft(pJwfcY$48b3MhJ4J4oz*H${3 zrJo$q5Ay$Nj$c2`wmQ##&QQD3F&*=*PubL6iE_umqL10(v3K}|j_ zsKlIIUcRPevc0l#X$CC*o*i#8jma)e(Q6d)fiTOxv;2GaPHuNzpb8#fJ~`5C!`-y% zT)YO3=6I_ZEn)VHUPyd}+=(2sK6srJ8lrDff^~v>9lz-P1MQdhCdK@oi?@|zYFwV) z-=4##@tYReemdRk)e|gzTz|y{DBk)`-1txZ5o$+5t494N8C*1le z?p$R0VeOaEW9RLd_OChQxRCA9{sK>t&mGpKbS-F#!@~sQm&4rG#Dx2pP|`tu!EZF z?yt^YbvN~L+7bIgtop}*_|t)tcoJ0on*ntE@kf)1pRlNOqxXPVRWTrbE58%B^6$s% z(xI35Rv!CS64xE5JX*Fac*0Tk(3oe)Wn9_)P*drkxH|0R;{pDc9R9-V0Cs6g9Mol5 zs&Igt7dPnXqe5t}@EDKm%QUjMt+$}s-kKXtr!C*PvGmONaP3E`PAwk*jXS{7QwQ}! zsTbbwo@#m9a1hQTZ{-x7gH8-^=cdr$dc2|bI4$T(ogk@pNbG%}#Rt}1nllw|^3pX# z_K94)Td}?;xj!w3#op2@f+wtOyXb9Tn@ZMJCCPNdPQ&=?q8GK!9oh%SQ0GUQqa>{j zo)F64Y#e<2DFW>TaTm)a|D03?8W6X&$ir5d>;veqP^^%ZPR%h7hPGW28g9`hI z@VXdtR#Hy7KMwp4nIj$cD$LHWFt)VfLa3PiuvTFSvYUj=f`MERgOq8#Ah-Ip zWk)h5bbrGcU?7_B5u|rGZ8)8Bj&cJ%GT`I9Bw>X5O%_GpD4}0h@^6Ow)Y-@&GOj9e zi5dLS{FG}adVznzg%mKAto4eoDkmjX(n}fv#U@U!9Z^7!5Pv8E8Gp;@Xa@+fEza2g$^?^VVB9L}^1O}Zk0)rs8 zqi+Np@M&-#2n?2kkxV?b7AxEE%)os}ROjQ$PEAJF5GKXCO?JHxSV{thpNQ|J@c&vb z@q60e0FDbl5VheK%uk9I{o?3CMi1k7iU!C*ezH?=MwSC)RB->b|G1y7e=yTNl^&MZqdF z05P9hvl(knI9;o)XIirrG7EjST7WOMQ|q>2-ASjbJMm2GPK3<%KI^u_mjS2NJwOgd z9Gtg>E`zt9FcEM6+Z@N+>m>{Fc6Yag|985DI|e|uUPxO=6%?#rY7d`4eenvE@IDMd z)qQOVopbLUL(aK>c|F?ManIbpYUjs9cpQl4lnM11YQuy{&yw{?cJvU*8_I-@CSD7KIW6G&C}+hm}W5 z7xP0iXAcuYN9@#?7GJGo09U%CXDV7j|NQi((2GyEa!bBa*6Vk6$u!B{PiJqNdK&>6 z2W^?s?X_|C#>qlYd*hQkxxF#0vEJ_Qey#+%%ygLErBSqPr)0@&H>^vaq;=_&v@U&; zuS0^z7%J9;&bHbed=&qqE*@C)^J6wJ+U~Q818uC=IM`5+KTRl_6^%j|ZSY?L75?&#- zBO|lOj9U00uD{7logJ*PP=C{Tl~UZICVQ+qsq-V>Sfnb*r7nT-*tOK_SMLBe-Xf_B z%mFpeBH>U8s2)o|Rm`evR+D8+(ybAY=u(xZi!wytbS2noF54omPaCER*I@r-K+XQ* zu(;mq>cUQQP|Z+jepQ-7TrUj6{>#j-@;b~4tC>Of5gfPhHu=zv4BM*|AH6P zntG0Ydu@;V2)r4A;)4on^W`)GSE*?pz`$f}BL8|r)x6$~$wH!KqlvVnj@N_D9o%ni ziFn`TcLECs)Iu7)8Gcslchyl)KD|Ml_C-Xq%IrHm>}NV&`&W}UaeXo$8tDkA%P^k# zQXvbP4ibCmZ6I>*v6qOmHbQs6&qwGIq@zSUwx>kAzs-U{P&+Y}^KKrcdBJfD1+f)3 z?lMsZ$O)f1H^Ha9@Y2}?pBfV(6*6}=#Nsn!XlC*LCISBJf;8X2cx05(w-%oEkLbNuc-4-Qb= zO=9pl_z0<~M#?TRxRzqMl%mWocVo-|x0x_* zVw=J?Zy=q~1x&gd<7v5|r|#9_>^0z37!#~@l!&=k;Wy~ST+eQNYoPGSV%NJR;%Dz2 z66e+IIV{d=0Is;#I|e#)-cESjm;Mpd1wFf~L|mG7T@=U!;f$czV^E&xhBEa!AqK{N zMqrX-U?#_dvB$t9|2P-}z@T^l$#SqBX1RLB6_(v~V)ahi?S~FPUVx?EmOyc%;%;1$ zr?7q4izsbeO@3Eny#Hzp#peKx1_qqREP?P+(-g0@hTH*Ec{6kp1{dsI&P$`Me#ZD_0P^-a2b5OWSOojq2)%w zIYa2pC^+K;y)Bn%E^_pa7vp7(mAe)twSOqC-z@Fk-)h4MU@b~<_%(_L<7$96SxqAi z9-#f^{u8=aTvu&rb0(WuwIyRjvPs%~3>eXX3r(opRa&q}lo=Te8n>}(<=`TRsq|77 z;@gK+nCRZTBtv1#8~ElSld}L%Ojq<-8FF!rVy3s+t^bidP4x1Y%&St^F%ZUnb_lf+ zhqtHexhuOZ_`Yb@^`5#+ue?^@)w^JVI*xFL^!QZu7^#h|*AcXl2jjkEMf)J!U_hOdt5dVkLO#Pv12 zhFopO6z*4`-uQio|KeVp_Ah#-iqP$8>|B5v77z0B?u&Kz9X&0Xuy*K$8oZD{w+|Az zy6+T@=!S&1p5~sqXV3iPQVi%tmZs=E&5wTyed)x#wO*q78`k{V4nSur}SEUwLvvygFs|hDH}Ra7{k&pJLWy*`qk1p zo2liObZx>~_N+w0pM$nzHMu^v(H9!x4Goej^-_SANH@j=5!ei+5$Nh~a`L+4;Mw4du-U?ZpBv-}ixOssf<@_c}uxdB90l$bmSG}0b-<#K^CV(?b( zv@9EnRZb#z&vTtJv}U!JU>rb|P+a$YfPFQ_>ntrD%Qm&|@fWv&eudt`;ol~lE3HS! zUmPwl$VcWbP)HQ(QBwO_K;nB_f*2dN_y>g@>7GBk^FMb=emt4S4d%+DWm)7ATlw?p2U`BVAnAMUFbYxt~+6 zh{$#e<`@Gki8sPJDvvJp$()G)vf}z$S6oNR4&W?S)OrQ^e{RA^Gps}V{6^f9E<1-1 zU5zl=jur)aQDL2}iI4+n&b-cr5^Kj(%R{tX{hg2PP})C{`3X&vk8Oe;nO}x1I_r$> zoE9EBtvth99>L~ik{*s|iBQpOC0eHwoX^@7QSA3;~5ia%EA7LROKJ*C&Qku@^vU{3VrNLj6a+U zy@Rz}U{t+0ed*$I;dD%h{8(n8#9Kw$Q3Iu=`wt? zAYWsHN=xqm-kRZ6Z_$11Q_uirf^=jb`^0r0zzc{v*;tyOr|b9H_@E{u zTO8_mC^3I*WwC~T`%I})4Rtgwx(lRJH|@;<{s|!`MlH(S4GWUv z)QXFcg(<%G+V6BdW{}Ey6#>p46IbdIEJbc*Z~ZQg@pI$ty78X9XSr?`SD`Q>JEf>< zW9O<(>o5e9fnd)1u7^qkU{IZ)%O29(rWIy0L87|^U7L^Aw2PIG0?@Z<+YYbjUL7+T zk9gg6ONJY$qwFupLc?)B9Q7#~M%!AGWb1YV)hJrYfR-PJ9&2p9D2Cd?1AU?9WsS>^ zXFNCn6dp_7v`-qWK|McC#iW|FB~niEk8c6 z3}6iuEB_gVb!B(kq+rK@CBqD0uMfZ+z1!D15a10k-Vy%>g$xSHe~K?}7%#mq%h+Hb zww{M=PQz>!-^PnG!|#E)ENS^MduhhK zu2b$Og5J!Y_k{iIBZ_0O;@jC2e!*saDlr<~3f(sQ+5SK=tX~>n!Ljq0UtHIL%XqxE zuY_i3xGSxM?rv5>3-&0X#Z7_G-H>sQBCh*15LysctRHzlQAaT$38K}ulA zgj$j}H%~LxPn?>z&z^`8=w z!uf=h6jbrF8?LdTGx4Rv6^v#20TQfN{0QA!kx6c8zsDV}*UYi=BDr{{;c0J-_pwZI z&3owVCK5d6DF0G=-E73VHIWin?^ACb1d~r5E3M8PAM#euD;XcEC_o&&*1D3s&`Sk( zacy-7`f7l#HOx@mHKKY8#kAidvGDF@pEYd#E-zHUGEtw@Yb1RO%x%k_uMf^b@c^|^ z7@>BIF9l1&LF5U3A1(f0<@Hf`Jb0_78YinmnU9_2YVe7#M$n{nK#6x?y`&0B@>AZb z>Wm7=QxbYJ|9Lu9J~lvHwaV}(!D>d_e6z{4^O!ZfVn03&Y+#WU`*U*0XZ#5I-ESEf zc?}IFSd-*x93hI3_Kgr}7FK+Q&jXuSjktbSqyt1`IP#f&V9oB1acDQYWJI?iZk#<= zaf7v{#2XR{C{y|Ok~+~Wg$C;N3WogA#p)zIX4}Lmj~w>0iE~)zCB$LKO62(Awi&f7 zecrd;zK=PseKlrC`%jjx^q0-lo$XOt|MRHvi?XA46GJyTlcB&(6&|D7GgKi06cq8T5&1H*n~s|I){=4r8TZUUyXNSwKdfi!_L(tcrJL{@(x z3$z~sYKEOWvJMPyz$o`#x4GP*htWScJTCbG1LaHwWti9zw~jg_7y~!rh=7O3ZoEt2 zbB?uX#c_0bx!@AHcvqgdzB&nqfV-jWY`|>yH`1l~4qs?W8kDKH5eG#rt}c1}Y*`<% z|1O)UTVJ|)3VDB^5HE9`O(4gzi6?F6{?d?RzDzHBi(CHyx9n6{8_MJC06XYcZEOE& zGwJC^sgq_pvwb;VRE8DN_Yv}0wp_Wd?6SB+ra!lMd&a~5XY`P%1w*Zfj+FC*P^pTm zrVXg^9TFY3b17-6b0J`YkwNIQc&Q%+q|a0$i%T00iK!qavC7%?uwuoM@H>y(q=tUl zp*OLB$rW&z10BFc=Mn&1-p@k-__oMfb(eD?w~$2VPoV%N3kxv@a>!@L6-vkls>cU( ze}Q5aYYT!nA)|Nh(sXvSi3eD6-E60T)^GomoLcMYH`4=5Q-Mqz-WND&cq4^Ld!2d5 z?K5ucp)sOaKu4v`Bxbc77H`D^*H&@b7vfY~@NFBA%GHb(Qfg|&*lr_v~cZV zapuS3l^@L?03~fTP!dz#JuKe7Q_QNV1$fhKFI1wLL6PlQ{Mu7J-6~FNgnAmVa3xkd zHRas5aZmTwo#K@>^KAgDrWUK|Bmd1j|2J>N@;@*V>NHN4(=Yog);cr&`nPN*;Lf0zUgt(o17lEzuDcSYj~4vSHEe{!&brRk&7>*2yr~BPw9Mv3P+-JIX@1_00YPY z$kT&19KUdH{<1w2?B)Y}UmN%CnS!bezpiOJdv)w;LBfk$SG?aP;)V=B8D zwHg#zYn7nx;I6jR$(f3n|Gpetmg|@=$ZRrbiVtSX?(h7p&M)R|(&|UrOtcT<{$c)Y zGW%3!Hz2UmH)Y0wDejN`Mris{uN+*Q3y`N|BCII@YjHNAhZXwSCa7w=?Cu1>_1e80 zuqeB~UofpTY0)2Kw#?D`heZV_dtf!Y)sOO&^gwj*my0v*e49zjrjRGKq&Z?6aw)5v zskN`}B;P){1__|)e)hcK#m*o*pfP`xqE3UgQ=PoxI7X71KQzD|=#Yaomng0}IT(h= zj$scZ>giwK0W$*nlwF-+BkPETvYPKf;PY@>VHS$6;$bAZkTdR>QLCq)HH&5u&?K^8 zW;08yDfo?0Itz5r(sB4_c<{Kn6kxX^Y*2Vr$u2GLNR&li%^`6lo~2~f#*z~-nejwv zIjqH(cbLT|!e};?v#TO3i{8!5+_Q*)Mev*mQ@i(FL( zc9Op?q-ROJhpufVk|v(h2nqu9KtZnPFo~)8nW95>h^d$)J7mZza#siiz(xgf&Mxhb z-*oD0Wga#dU95S!{Vh**IuHjKMc5zOU(fB-b9Nyzxo45OJ=H18YRXJfsi51b@5L-H znm$yMi3=uYdDT1t^Lj9Ktx>QLxnLGdiZJ<=h|8di=%7^tM&4mnFW_y1OTCyQ)$g3A zwH-X6Lzh*>9|A$Ih>zJG+L&l08UF8A?4hyQ7<%MgveZ~KIHyqxJ%Yun{>LA)!=0dlD*dU_D>J{ z#M>M2a)NrmkUXSMhhE|4&Y|aNNPuo4Uiu0RU-434Z2$`NJp^^7uY}%!S5R57>hl*b zrPsThnfN+l_EKB-dTW|~SiDR>EQv)Y#jN_n5(;HWoQ_6S`5y7s@FDn8qwUDDnJ~{W z;Pp2A-T~hi!}oglKC?z!mxZ(WNDb}DaUFzFebnzvv3OHXlZkIbzm$UBbo}Te2aSms z`FSV~E0Jc4mW7pwj(o4gHp=YLXZiMmBwkr7J{bnRBvHG-10846p3KEf?mu8RE=l4w zpgkE2VrRRxrT2EPUsT!5T?vL*loPxmDk-sdL$rU;D!Rz^pf&Pz`x{#cAKJ2raY0Sa zE;{uOaz03|(w4%qCR*FFXL!pj6VOj6_FDCy(P&uA0(!&WnHazz3wlP(f=&{%c#olc z;|pxwsWRi8%%(VLL;e{jZOGt2ngxH6Te@9$-qDgi++;Gw=iF{9t~d@<(|^7+(Ztyg z_z?TuR$7j%dyF$5vLU7_us%;i!;IS_oPqRR=(JnRYLeJ@z=+d#ddEEI6j!IB4XWXo z13B>pWS(B^2TeuxJ3sN29{kp^xHrFb#`7Ca`V%~afx&OJ+8q~jemf3KwFka0qwmKI zeyi1PfbZ>JdF0qFhh6zk~f8 zA^`5a%Ra2!C59-{>uxk5w+|$9)(OCeb-;b$(C;V;{Tj^8Iq|;A#ziB%p;tK{y&w7= z@zL;lUJt1UuTs+AT~whe3^eNW7q9A*w^qf=m|-KZqX?Ig;{eL7P~G5Ds&o98VAnch zunR|`ox@|WZyy!c;x!Ju zMDZS`Cn$KM&3&I!te(-?bL{pQwK!VIrjtcI)I7sADRy_J!WL)w#H{=#_)`#uKT}@D zP5oXT>1DQYO5AMWXKy-r8~5TyUNepPOFb|6K+ly!v+WXIZCRM%56x=!vHkwg>^*pi z(A6wnIuCX9(Z64aRzIEMr3*K}$nu2}rO+LMSoJmy(s>TQdijipNDRnNDGWySrG-_{ ztnD}~ALHJEiz9NRS)jq2>1S;;UrYd~@Nj!$$=U*ze1$4pSt8!s01~4{oY9EGlGY6H z-l)T}BQ>E?FFQ{XuLwVsUUrtgNz%7Up)2L!cfvb36j}usza8j7xlWMWCzt*$+E8@W zfF#Z&@t93g&J&e~QT@;LF>Ywm{tBQa94fAZ+B9-c*NSk?7PIPbVii`y-&A2Wo`twKFKrRC@C13^!b`Y3 zgO3j3i72rpChCpWE&3MRE0sc%g+-szlo3B!^zuK$HhM!Im@x_+a!9sMx%rlOlNpUJ z#UKY(u}|Qq3hkhgB~o%9K#`tR>l3ex1d7}I>@z<*CO%nPxvz8p&;;G-wgL}iHAtX# zw_gUstlC)wiBG#~c6O*EC7ddV-_&u94<^El!8Bz$s;} zbJj%W{oW3brOv|2ePV?GP`QExYiqp;XDXbg=xWkico6~6ea2a6=1-R|E(6U3XQBCj zBc^tYzQ4?7ino6|D$Y2HO#K7&fSA?ArzChkfq!ao-s!+UVPkUIsMQSPlhYxXd+<}y zVf@}E-dcx~(?;#NVWbT0kyYEr4f?7jTT(7V1w|1CZ^Y zLAFEPWUJ+xAv~SrIwX?AAloL5UBJn9_>k97BJt16BL>|zX+MVyR6ow?aX4rNM)f(m z6e|5*@P$TwFRrVVTu0^NPvoZps5c`)3l3>G;dBL{EWK< zZCTpbV!L?d4)MuIWn-z06=b$LSiwxK{o?4rPo6+va>8tJGGydObXw6V1=v(S2;4SfV@!eM(WCSo5gigGHKsE zvfm=EdlVb%H7qSL2u%<@j*C~;dqa%Qw?dB!{0D=2s%eiCRUXBt!8k8wa@>;ZgP6-i z=h5}SWaBwc6$VSzh-3|0sd-jvvz5~nR{t|!;+(ol{fUJ6F2!`!Hhgt6ne~=Wu^lr#kdROS4UMz zkUg2A3Zc96B(FQN#3r$D>r#pB#BG=v_$Leh2sz=_JK+=NOMJTh7^`W$seKPVL|iqX z(0glI^WfW}RD_WT8Qb@?UZqNU>qtl_cdEhwuRC0hP|lNFVZEU>4RhoBK*)uKtWbz? zEd9lMBvp9GFRuH9bq1_Mo$a6cp&_|m)#>uWdOU;Mc?)HJM8}3TrEho~@p;V%{%5)ZAXwepc zn&KLNLdV(jSw2e|?i9sKtGQnC6fNTTVr&+xSh01xV3Ms7y_v9CIhe+9`Y)eFgPO0U z_K(>2c)8nO+!>nd%)(hGyFeA*=JAZw@s5eAuz~iMD)ohe`$YKzY%`!&dOQ9ZiGOT9 zAXqVcO=9&=x1RtWXuVlt8@;R+->@UR*b`EvzDRVRSYq?Bjjf}+YQElj1%SK6s|x2y z?v8Q-Gt}#~x3^BhO0e&AKXFM&|S* zF97bg1k|ysk+rN_1GfaHSNm*4KprE7CcZoQwK~`__l!$jWNT67XGa{I!O}xEUOwD^4 zuTeq{{AzqT!oP%1{nEj|H1+(#6Pp!xeR+^!AK_(WrFgUA-X^NAkg(r``X?%%4}i)k zB3}j6n>#0|!UZL3@zR4C5OhEdVVn=e+iO6t$ZLZSUb7kXderH~+c!h%#3Phy>6N#G zQmuG9u2=q(ihFbUGl0sH%YhhUuxhLpjlAr1?_H1df(0eEm49lCDo}~}jeaw9kz_r9 zznKARr(TcT2qxLM%W^qeGeSd z+5WLoTpv)ASF#EcK9aQ_J#6FxYk=CYx@4`v*JYfqZ^J*X7+?RS2VYNRoBCyIFWdBA zXKUcbWFy?49~7$r5{~ z-b#Yrsu5yoCuR5h<*zW1yip3_u6U;6es9TGrFe&I-3&BZtNUjAa!4!2QNibC?kjHpYgemUt#o!D5iLi@)Pa@2P!NmmJQdN@+@E|KY zXII>PpTpu(1s9+m++a|ZOfI(~D7S!P9Qe7JM2?5cE|Ni*s`1ot&r~kwJWbuHJOSiY zQ~9G&d6gL`ZVaHj`hd$Th080knsF~&Vt{Q5;DR|B7t8{5+aP{nJS`s<&XaNB9NRy9 z)q!(%%Bxg7rp7$+aTCet`!hoG8PKdMNF;nj5rRW3@)1?C@wBSm6u ztuA$e-g+^>%T!05=k6*;AZNSU_3f>xkPY7kKn}=lVeNqH4-{6ef;8^B06XSqpTRiD zFNy1apQ*b8>b&BW;rZwgqQ3PkTsCGRNOcGxe3gS?}IxK$cdw%OS82Us)ohBI% z(H%Rq`US&&IVD#|`JDG!=f7Wke!fXe2mckCujSzqFF+4Ym%Ck&E{{Z?A;1f=L z>yrO#q70*%8R9HZ+(hE6j5Od*yZG?k=BPMJ0&-1OosXh8Bh^Y#M;S7W$?hhUXh+20 zHD*JiCB`IL2THWdv!5Y}CT5Ku@=W)QM#Z%Q&=IG7A*+Ilm(mnhonLjLLqC&Ztqr)o zB5T8d^>fVN;2GcpZINJ725sQt(RM67*SJp(<>;Pl8i+*uVezX5B^ZVk+|ClQ=3TQm z^}Q0Y2%c|$zeK#X<`8r{h(N)C`TEb3hxcuT)E~)&f>*fgM>1uAgwFKiRm5p@FXI5Z zqsa!@>POj{NDSL8TmOYES8p_Pk}1{?{Lpq1P3kD3TL7BxIts$=37Ks}yLeZlVm&Me zTLc;JQR^rwLK5>jPKwhSQH2B{e@GTD3m*a*UqZ$_sd?XGhBi!YfaEQZ93c}D&@l1K zk-okhVcsDmL@|8#TRUl-#YFLQC*wr%Z8l?=PPG}L_w1)_rb+5p zf{6ln0=ygY*YtEu7N-kO$7J#O_NPe}!zdqp`O`MO_(PFEuG9R*4OXr%$;A!i^{oIW ze4HgvB%>Vhh{H^VG%jV;g#Q06iA+b9#b5c^@qlZ;68XXc!z^I^ykxD!gpqN4QHMQo z8lgNV3HMx5eI^jfAdtT|m%V+8K+Z&g?2)6&Lrg07kj5hnWfSVQ)}d5p0_%YUiRA!r zy>+u<{hr84;u+xU^+e`w@r?1WT7GUdy8KSMWTgkxTLh{7Q;^Ld>AnmUZzY*NSxx%| z0*jN!|G~Pr{xqVv{=cz+I7$nMQibh89p2UGSCeU|`_(jKsBeccq^NjIyMV1>b~Fo&axyLwUHQbI>T=8=E*`4e`U0s{){I0)aqX ziZlaj)S+1_N))yYmxQuwJ9LjDWT7P?mT!w`OMH;}txW;zHe=fKS-&I-OZtx3;CwuO zK@c_@J@u-Y>q(0r?>RRA`gn9~+U|P1TThz(c(+7F9GxIh@hm*`?OISVZY*>GE@ zO!0hW_Xni|$;flM88VvvY935k9$j|Vm!|M^^v{$k34Xj|HW8E}OqImx-j#Srk_tbN z-;DXsiu)?8qy_UzT*i~vB=_#}NB!uj&S)5}-7n>9cR&aBRvv2-vj@D)2R z~6zjLRY#|zmmC1MzKGP{j$sBx>cv~o2#HxtQdly~BBJrD;?R)*jjeHNY zza32XGt?hTM&niMqPW5z%f+==kodK~((;Op4JMPR$1%o$*9FtZZwjXRw*}M75yA9W ztzdH33#Ka?1=F6*f@y2iA3*$eb?{pco0CNrS@-+dA-(`>K$O2xeJ8N^oD7yfmnlVZ z@f!^&g1C7Pdz5YuMZULq)il`~dW>7^#6k**RlmkuWH{tLD6U5N$s(1F3uSkKb4k9q z?gLtI;dwS5;gPQ>xwuAR?}9e9+z;z7>n1cxD5W!oCfchq>M&x)xXG@l)ETo}(!<$_dv8qb4VEh`=G2R~g&*any@$=*w)Q94fN++|Vy1L%Vq!#7h^x zATwLrPkP+=IVw#BB@#OPc_$i$2UwfGxZ3$L8FRLvxE)$#gL(KUs#BSGF$lCPu`-Fy z)Wp>mikYELQb*EM6JQ$y=!~J&%f9ld)2xT{M2EN1BwkVXP-2-)%-Y_XC}!;d(ba%M z?gR|E#iYkBHpZLcZt6AOCc=1=bj2O+HQoa5hSIZOTny%^-rz|{hQE;8jJZ?0zX?J3 zBm|>l4F*#AlU~N#2m^1)#l|>;WlLQBJqOwD@-KYWV=%8O)&scG6e}+zhcptqfL>D)LdRnkJuJB+|t4hX0dPs;2Ah1@P} zQ}oCrV~GJ!r=JwBJp2IkXdU)w{bBL8+QZ`X2wnm>Bo?8~Y`7{il6V3ph z88h1Z%!nP^GqVNzTcMEjescH5J3Qd7S>jiUx8Ux+tfmDgsmWIX*mL`VS|h|m&94&7 ziXH|S#Z$5V3fuy_YdTeso53bzij zYB2_tiqfS%q9x0bZ_*@I{iNx(B$K$l3Ef++Ya%#T1CU5d;)?yIF5Qf7x*YjcY1#j6 zu%rIZfW78F0sG@H<3K6Fh+u#VxVP{Hg5SMk$sO_3#yDgD19e5wcJClPT_IR~P{d$Q^rY^-N+gPO+oP8#2Ne0*ybg>3=8hOtn2+VNduU=}$2&5#{LF) zP22$IFr|=535G4SjA^v;aj95gUG*vNfj4k?547bsm=-FrG&3& zi{Py)Zhe#9VLXg@!+5y-b>m_5@8Kcms9dQpy{}{~@Ly@RghE_H_V_EZN0MPWR?~Wk z!6UE&-!ngvr=11L|5mN-xPWVe>6_5xhH^(_z3#AKoD(*hCfqB#+sl6)m0X-1uVu7@ zQr|yEN>M=^4{8!jhkPQu0Zo=VtehlmR?d{4uR@CK!#T%+^AGC+mYk@LJY~Ky_;DZU zHoK7}71#TQO`XhkL|M|{U%+r^QXf5uJvhCFdQk=hLpW2+OcKr@rzB8T`VI?#|;8@!nZZL*vJObaqAG3HjU^%?3x+1kn3@)cyuQVZ{c zxfX*hZ(kW>%k!^Z8Dq=zpRY8y@p9wg@{z{F=(ARGd%BccSE9WbXUqp;{q8Zt9)st}R{_^|^|z)v#vx2jNomwkkNeR1D?-Fu(plzv1fs4Xv@NZOs{?lqrq@xwG-w-+@_vbs zS)^=O&rvsQ?AZ;e-Q7UD0Wk`fsj!HTs-sy^1vM+GvSvk<*sQ2po5l5AFYW<^O+7D^ zztkd-)pa4+&du-uk_*sQaB*`_qqkadm?>kIVEXlL!PN1dV0!2S!KCgHOsO9Vrjh#u z)82i?dNKHI7Ty^wDzK3)w3>2tAkjpoUda(OBx~S?R0%yTylf*OzxJ;m1hPwvyR!xG z=&qwZ2JbU}qRFsP%M`N?M&Y(`xEJCP5(l|=B7mG_fJC#gOn{qPD`pwrUz|v&$JTeUotAZE1RpAL_}MWzG`lV5fE=2qu~+zBPH17XKQwEPKQz0^&%W`8 z<~7g?FzYZ{|2{?hpPE#e2w}sF193Js$DNO(kCO-mgl0;=C^~oT$LMTF-&C z8?0+j;yoPRk=&SXtmJ2h@ys(|J&JZqWc99&*jhlgnn$2?5}JBq!;rjndJ}T=HieAz z>b1fn0xHIG@dtQeEL%dau+#Qo!!a^24ub3W3dnC6z-9~Gj{M2EeSmduX zN%}^zB|TpL2ZOd41zpT);?<%p?oO;6QnJ{;Y2n+4RLG!ZWaWC6{9prL1+Xf;Ut{7=!aI>g;RaeR;W z+f9JjKMon}x~>*R{!@n~TFp!16}1l~lnHu$YmLN`+pRmKP;&dCK`L41atvrt<(92sP{J} zDFj`DXHk;-h*&+JwgcWIsR!6IgX-wW272U8Ig$4;h*-TA?QwIX{o+0(R+n{AypK#D ztDzmyLXwipjSbVa#)c_fNnw2B6mKd-FH&$J`lge6#4!x<;rkwAzo>(UgjtQTThOE4 z!ynq`S^puD{*#rM}!oLqoBr$i)M zJfilTdB{{~_iD!=NdDqlP%D-*$*v|B`iu8V7#!&?rvo=DD!#SRv4dDqAQ%tREIbxq z#UrS_;8@t3fK0YeVzm<6-M&u_2~HT&3jw)#J>{cPT)qkZ%-tklup)P-xaLwi{-}{% zEr62lFaBKCHwDyDE4%NX3{luVg*G8jJCcj*70_1{wpDgDz>4Z&MV)XmcGe7PlB^~h zhfp<&YjeOF0i_48%cw)S;+|E*Pba2(9VZWqMR_O5P7pl}Kw2`a=!%jcB`KB(?-S+W z9v}Xho}3D=6YXe?Xh#bs3bpfB#r^4$v2yVaSryJv5GR-xU3k;UqPS`%s>ybRK?m1z zcLsPmUj*yQR6~IV0AEQ~9V7k86gDi8JkO)`8uS61i6MiaqhPcyw1Pa9VCkoak+dQ5 z>LEB4_eQb$In=msv>6>D+o(hEvQVU1kk|>ot3e4y>;=U$KQUd zaeowi<2Q@M*bdwE3yc9_t+_s5RO+iB9pHzizV!&#rh_*}dMDaBjEl>to|vgnU4tu@=V~!tI0RXk^L6JzLDcY_)jkO0{-l< z;@%^!`K_5>$aB>iccR4VVP=C((pJi9z8N|tUs01EHgW|uE3pZ&L=a~G!QE{$cQ=jN zCG>39jd(xCEnWomj6ENS`g!`fmVQbGY{``xy}jJ;Dh2 zvTHl?tsm%9Tn`KYYYjZ(fhrwxkKV@`^E$|YB39$XlVqG5!*?*e4hBS%Y5nm=w5yY; ztFJ>o{fouu>Sr-v3oCcp0SVmVH3e7%y58>!E38d%{h+ualhjdJY?C4H3yPBy3e>R) za`7F&0WGq7i@0Vq&1<#Yx8lU=cS+RLf}jAvX=rV_%E%Gl`^hWTB7YAs&cIA@O%td4 zukG11ha$w~qv6|~3%h_9yD=sR8nOWXnLd^B-GnS~Q!+tIM&^&N8JQr@(G3%s zU}75D;P7s{5v78A%Q7D{Om=OOL9nT5tDuLHP>jSN!J1RpOsgj9FB!2a@^8kURQREL zep{9{Fudq(-Gc^4d|68JBQ+|}?Pg;L3bZ2S0z@1}qJsvZfN>?=yTvtIO$POAV$@%W zNrq%mlOKtS7FSIV>Zd(y+q8Pz)&ptoM7s zaM=~e(XKk#T7$MdKrf2B!XY8Ceo4goC7!IfcQ5@k%B=!%Ych%AnaVGz@AShAyAX9|e{tBDjVG!@m$Mao_Lb&^D)^yUu|&Za9cUD0M~Awr zGZS&KG}pN>CyZK|jIK4xot~UspoV~B(W(@Wq;EqP{q)=XlA*oNI4Tz#j#C@u;)~^obh9GO> zW@8i1D<14^Pjoi+n{Z;mL1Z^_q2^oU!EW{lJO_>y8MDYRABVZU$X}rEmW-LG3g`NZ z-}k$ALC3Ek<1V%_;M(c8?pF9*i~y6O?1WrFT=S)bXV&!!ZGgCNX1W@uRrX;3ol9SA z!}+Gxucp0)O`r)=EwF>k3|QX_xN1Ri#@V+Zj}BI7eAaMZM8w}k!Xw0Wk8q8E*t^L8 z2p^=62!{>c^gd#zmDVFDLip^7$x|Oe5t2If5iVeV-SSJJ8^4tT&4)QhmADakqnV>J z@(~4OK0cK`B7lI;$H%)K!C@MNLeWM6c>>n=dW=>cM9Xjeq^CZI<s{Rm%YQo9^K0jj)v*w7G~#H@|@Ee%WJ&Sp`Bw;fB~nGElrM#lP9H2fJ)?K6$qLP(--=mB;QO4R@Vy1UkHq5l!|Yjf2wzKi z%`|bw)y{>nKzpd5ew=OPL>L;Q>|NcIoy#c;EPpL60_WqCHs6&=~dh z^I8#;R6qpD@C_ybWa|6ZTAr|Ae{ZI~|Aocq`}n!=TT>K6Ss za)aU19zo*c6Vx5o0hp4c81p7bfh|#{A@=icK}iKkdkw4s=F+V#E_3%V8^+a6UydF> z&UP5IPJSddl-L#=N-kU)aGPP*rl>_M$XPX+l73KJ2W0DE+1d*HlHpfJWdLlYhqCHd z#~R3g+DpC&NhruHakR{bKE9gd<3u5@D=_cXn3@+)ctrOy%1Z;IJ3k4--vXB}8_nA^ z5lxni?PtZh4G#*0U&CyP;tHi_cTp&`v>6sG^BA9^BOX&F2s3w2F9bhnHIms($~*cAT%~7)5}6{ z($e>7a%^MW>}UTVgPW(xkq3LE%2*i7>>s#~!5-N|I%7nMv|2D6LujURmXA5Z67z-y zS}FTOL!A`QqPWxRZWh;EZljB|A>1B!k*_BV?T~@1G6gR_jC{C+^vj#^{_90gOKeB` z2}xYH8&V$R8Ui(#Gn85+&;fxil$Xj3)b?p7 z6<7(wxJ4BPXQpHty0l)32^X*ZWY6gpma_Kv$rZB*ag!^I0=vEU+zKnVzXjYomSii% zThN=ZwNY_3fwZeq*bc?jXsmCM6}hzvEFEY<{>o?lRIz@-m$%oW`PW>GfjiX6X7Vt& z_Lhz4@CW_czJU+eE{}liVjpz3!TjTGF!ySMxz9GVVBCV3ZNm^+Kx~(LP!j8plCpce zofa4KX>j3LdY}`{g<{WxD+5n*G#8FS85abyBbp1RH4m-{JZaHfIJ3#PHk31>xo|S` z;DXRI)W~H=DJkQcP|l3@vlDaSve4tCELoTZ{XfWAK%;CPlQ2~$BLq>!2m&zl1Ki!~ z2MR7cl9$V@PJvaLYiBQ#U{K6dDV`*tnWqkj(Zg6K<77sC5pLORj_ZrC=|}qFzswE) zlReOz{5TnLs@)c)+7VLvg>5_#<95Xw=G@$aV)28r2mSz%Z~g6V`Ku{Lp7I5!C(W?` zI)C;*R?raTG8pUyILuv5a{NeloI28Rn@Z9*D#1;H*L@ePOjdUs=Z0w+u{9L8uk7!> zKlj79g1fui=`WrRVm-8+_682i#fsm@@`_;XFR@>}L=)`mCp|FRW4IqU|@xwTQ&?HRW z#fxkF;<|{B-4ziiLieZ$0Lmg?P-u;gR*AD9<6T#{LIjd4Onb(-L1drH=#e@wLHe@H>by7?q3Dh6XQ zTRKx@6u zUFw`AuHJ!L8Ywn|s);uIJk#mP*%!?XbVY*7Y|GQKUfY|XxJ7{kB|S12s64v#E?J!* z0ER#;qd&UoVL6o^mR|I*^rDBw-pAVYZ|LXzh`72K7oLTJf&4__6y&{Zw}C&X|G*G6 z{o(ItTX++cU>8W(G@9);2h{P{+fl;;Xjs&;;Iul!|C4i^`P4bi+-r_A_nPClDNJe{ z>jd1}mlVb3ITy}zpzN+vaGr~F(EY)Kec=9y(Un5uL+cQ$!)#5L7G^%Rv~##7*YBJRh`i`w@N3<7+Y-wJafd(5dBmM={_ zf?hU;u|wZcUi3JtjcU@PzHocok)ZfI#_WwNu)+Y_FJZvLZ)CPt>-sl(HF=YJ997e= zy*LqgyNTudSwrQ~vSdkIKk968-2%I~u8r|~IF)+YAV?m2Hfs>qEzT6zb;vPq*RRmx zF?h@)u3Ch1=Hi(NV(>nCngvfkwcyC%4imlZgQ7as5_jwjE2)Zn8fq0}5fpIOh!0x&~p~5poR$$Ife>0T0{AF`6`dXHwqG{@Q5GxuvphmP3znhlG!w#2@_3_*OQ#iQ+kM z!&|(vj+-2%%Edu$dazTrM%a$l6euiELOn0fJ@0OVf?VwiYJ^cHHe@XPnc?-a{FySF zvXB@v-;R9AO`p5(qiBz;0}AA$%ldp&e`d%~XqL<#M2A z#5k*z436q6_0nWb{EHE4q;-%M{8RMVk`qRwhp4x3?x&Oc<)n>?JNV!*{6pV7Wtw!e ztiI%wF`Vm)Z#NKA+D=|++{rFLOGIMTE^_jFMt2v(ROGudJIw+wb9&(D!nDOnCpz^J%#@VH~X6&;SN zL+#RrWTN^OXw5HgwVAYO+XZOS-N~&N`EtVOEIc!rwA_@^TPd=jq!uP?&*q-Mis&+T zk7kRGL@~9Jt^qnGJH%9#3|d0>Ipq2YnIn!!-%}(zt=^ei((E9@d-nL1< zZ#w>@Ec{ubNh|mru%((ldpd=Q(Z=E{{ND9@O7=l=$hQ?T7eHp#rVZuU#~ImEjO?R% z_A4lR6J#IyGZgi0+PA;e_2sz&da}O|Ng%HG*sE;U!B;(fj}^^G8<9aW{i@B3Fhjmv ziM`LZ`&oyc{*HjgrOgy*@+S${;SGBFL`b9nO?vv3@aWCG{M(X5Q|SO$73t{#-oRU) z({*~koZdN~neXnK&(es`()#AJv>2bwp8|aL{TAZ0v~E62<9s%CN|eviwA^c=e1;i> zI7T!04*1QlR(?SVkE6)@QSOt2Z=q;+$YMT00J3Q-o<`a~PIGIhQj79sHt^-Mr|@NZ zAAI@XRPEze1(U(lC?r0~j7f$V%Ktg9@97eN*B=JZuVLsNJ^j^Ad>mjh)mP$-GGW+dq8k5DcLCgSXn!E@ovQD12?67=-DDVGxyaUsK_99CvfE{Bnzr~4?E2NRu; zn9Xx#QLaoQK~En>xz=LhC`k11T)C7h+epyUkDbI^fI)qw7ZPXjTr%bI7zuj%Zp`H= zvOwZgNaTCkl|_`R&`8kJ|Hfenka!m)ZsfUUQ?6M?f}Xw#axr2IFXL>&RE-Da@d*4k z7jg3%8YX~PNb@PDDNJ$>{+mU=m8E8i8U|1Ej3;vOqKSh{Mm72$;jlfo(K^ zZHxgsGB6IH zfE=i&FFFPpg0&8caC|^dpAMrH)X5Uo05*5LkJ-1p3yL^Eqr-!p4cY-WA=Mxe^$8);@u>YiDX_{{pt8>2I8 zlJ?0J{~Zl(*745&h6ZQpz*+63mj#n{_A5kG`;DBa7yOSA^*dWPQE&Q5-$YF%qNesu z)YKSJSs@VBQ%gim?Ivm}C+a97h2oR#qhNYfi76jmqP= z`zO-{>Cr0uuGQ0bfmqTut%osO_#*r{?`n%lTyL8VfUeua|DN8(}Hb?i{wT@)%TpF!CM9Et$x;EgbuqAom5|qe}-a^s>)ZLr4!Nl&=vUSTs*m|EP%R}A5Tphcy}!o&ur3%3#qs?q~se zQz~onvn9FEUkzyVuim^-PhSFA{%L+~B<`Ke`POWz2#XbH2E2USr$sP!#K&r@&VL`C zw7GvjsY8!9bMauvii&+=1w{%|Z50K4YM;$_HZXdT`Z&Mm0?#N;n&o=mY&tUw-2(z8 z0P^G>6em8ECY5v*=28_)XxXMNo%uEbq8%aM5j;&}gmTE&2J3?#1kmiiJR=$&; ztkDayDI0xUun(9lFcV%bYW;~ETJkcWL1MJtw?QOyd@o0_dCI_MEnu@2exF5bo<(e$ zI5sqYJg0X8Hf=e(ye!b+WxkVC7jAtq-x0(LcwJ9V1GMDgz(%>)*Wlh>Hb8RMi4}OW zY5BOvrXeLOpEoY+JY$?BK1Osr2)vl3;PSjJgk6>5g52IvS(A2rH8JYh3TM<-dJPnj z%(J1)^M`yzRW}#Pp?P-gHyb)J^CvQGNPK+@^w{gX{63kN|0^$F)uVh>)y>QOSpGIB zUuSy)%9$&VE}i6qKMK&_4pc$~&4iKTd=6SSr~!v|?}HY+G346_ZyE3qXvoI#!L5Jq+_H3z(3oJ|U-3Pk-zH-i`beBf?~D z$J<)zzc^qlJ@xcU;8FY4HZwKkxtFb6@m+CP;15lQNmylw>tXt7dF~kP_k0f%qMrT( z{%G%jR;eZZ*@{YK@E>Mg>bb+nNacqFegzA6u)}mIi#E57y(Gr>mSkq^H8H-o1atFp zGr!on`|kqABgA1L-F8PTiYo5s+tL2mf!4q`XH5J*czm87mfrx6 zFBp$v)@KN8%VF{MX6PXC$`MWn#`D};B5`M^;uDdaa4;f-s-0wmuKJzx4vW*@g93Zt zcbjtG4}KMHohkRM%P&b+oPv z2z0nSiUx6%0cQ3cwY}n5iWMjraZZ|se=ad%TAqDCI5noF1Eao%d&RXxr4+u(%ybx? zEkZ{uQZQ!gh(WgQXqS+wkARn0pr4qRhBw__p)XHQ4~kgA4ryC1F%e6kZAdf-=KC@d ze*bqsYIU+lR&UAF-i4R76uFp)S?Vm}1mgBCJ>qLB&`o8R7;EJy$bl4@2Ls&~X2ZW+ z(P0)-J(;3I0YzMfq#HpCmv~%FSPK+_I4vxq-+B)PfUPR@^o*==`uLvMzF7)u)BbvK ztbH+LhR|JTYUIfSCv@bB2_E`T;G5i7=|ss$*xt>Y@BcRgA&LlK!Ndgg%#SDKLi?Qq0Ew&FM@}`=ns#X@mz^D zEMEwU<3T0lKy=weV0g)aX=N!i5S=5fm>cc39-sb^hNCvb#pCSVxP)g+S2>j%W@b-p&@;wG%QtU{lzqtpjCss9AA; zs)%`?A`KQAvF-+6gA0Z>*|^#w!8Dl{N`BdowXw4SPQcwT&$#=}8OX z@?3)!GTwnb=w|~I*G}d2zrINSU8caoy8RnJJFY}@3o7&x?FPRU27nPwmMM1hRE)V= zt+~@9o_A09igXR|1}6+%!B=*J^wqLDdMwOa)348r2Z>Vg=KzqY`r8p zd?s{jeh8id4)~io8D^zhU_2(!72XfauHwRi>{WnGN{3MpV07;$I}VAd3Jj(Q8hDV| zU1sY?t#{x_DdJ;r$TfJMaDyHMj#8_25n%ujS4R=@u^gaN0g5zjon8^q&Q#h&v(%ud$Gc zJa2Aj0*T99nnV1dNl+xw?`|j)QGcfR%OJ`UTQBlegi9St=qmbbF9VUC-I}U|?srgv z>?jj3K%>mYL!nQWFU$bV{?DY)Hx%n_IeejIF>JhoE0C@Kma-9>i9PlmK6IdqN^vbSd8XLm-~AUPD5IvC?a zcfVSJE9;~TkU!8He^@5}Rv{|1?X{~lc% z$A5nIkrFDfPc!D{LZv>xiIm_FtaU;QG6L+Fg8h34W@`A>Kuh=FBD<+{qtuRsUKm^`4-Y<*3~8x8G6we~@1u>d^b;mkX{xV}8l$(EI0? z_s5+vzqGdNr|`>@<4)n1Bb_JW`K4^!f6Olrx9h$6<-T_P6n;5x+$sFBVL?Cq^8MKV zkYBov>OJ`7yQBJ#^UHLcj{fiQ%jVPY%XjWG=9l2<_~lRTGv*g}$Ep1CGxsU{vhhR@ ze(|~gV}99nD!;tb2fwslcM88$-QN$tymQ@u$S;%Hd-BWm?PtI*E$07#Ukv|s@oPrh zLJ9K~KJ-v%9`cM&T+d@rx5x}soZIc5SIxA3S-u!1Shvg$`znr>4vvlgF(-A_(f&c} zAUwFjrf;N_$oIoM6?&;nX6M0V%Vs!Q-vMoiNQdcD6y`I@?(DK_v3<|>VuJ0+OuUiX zv{w!zCG1Kl*(ud|opxAtZfq@EzVsZJuxayz-R>Z`QIzrl0VoLMAKfQ#ueiRRplj3n z0)4K`9-~6quhMad4CUW|4L17Kna)Cm&B#^Q0#CeGL{JA3XxAm1D-%E|5rhx7rxb(Cz_*yF*hX1%*p$ITIW7TL5=eLJ*m zYlQ#l&b>aqbFbnr-RH&K{hQi%|KffjZ55(>3ioC|tl-)4fS4DNS(C!{YBxSdhbZUE z?h^|f8)#3Ydy6|K49Vh?;oiI6-T!&ecT48-F(9VD5i3K85nuMuJ|HN&c=KEKv-?5a z1+BLWd53r=%h>OLzLD8`+83j#ZxVH>?zyG*mr0wxt@i3L|Lut{?j2{ohDTc37b@=G?7^vFiyX4zeyKJV=4yP#YkeCt zXVk)cI7MFZEuAql+e&jR(!#T}M+eQ`iynBSQ2rhi-kFM;zlZh@Ep(Jff&75Wa>8go zkx3y;LQ~cvqh;gQLM#ju<_mOfGL*joeis6;Cj6MGz5NTEh5WdEJ`jIrX>$qZTD)jN zteCS^Qy!y}C`55at!GNqktnn6F~zW@DC5CJ88B_^RaoPEE36Y~8VgkzyL3E~2%&!O z-_Ve_nokheDBQl531>WJkd4SKhs0D)21vBaMtGS+(Ze9hsq$Hda#B8!eQ|2Kxh!V!8sP?x|Z-UIIjuE8EAV}_`M3818NKba{dA?#Ry$6p~ZZeKl z!n+02R`hkPpNq$-l09cv^mrwwksq*J8JU0fA#r8|pBALZ8;ldU<*@K2m&dX-((44q zIDUy8w)An*f?5%NHstX%;~MXB3-6Cv@v<1Y)vPB(yLBG zZS-UzzRWXTdUaPHJv%Gfv$LZnAY2GQXAZ)ieb(sN@w{ib^^O58u5;HKz4WZnxnz^E zdM|cvd#rQA{dO*8ANE_`x!5-Cv#*WLU2b%4>Kfj;Yy0ioA34t~l&KTx3dR6`NU_5| z(7f~PewRhwFlP1Vx$yrWrCsZ}buLz{MkF`z@2jn{yGdL{NvZ&1W9%jxmn(GISHB9B zjZ5VEFip(v9kMvSK^wV>A5;wTtMVmEaDTHBk~&(?*3*BtosK8;(t)Up*jC~3P=h}- z&<`uRiK-yto}Zr$^wTEd5Ilmud>~GDxbsyTJ83QCC#~B315fItKSWI#P&H(>hmRZV z3}Za!C~km;u98FdL*L&I8Sl?fZ?V7+Nc8)GzwY8RPS8IrI$rO6kV=>f3Pt~ik1ylSM zv`qP7vp^R<4t$4@(~o_M)<|JbRVfCt^yBR~kbAk>+ZUYF>0M9%d^2|m?IA1A(K7lO zJ~JE7#;te~vY-;pVg^5Cs$YeRZcm&t&y<=pgmb;PZr@b z;2Zp`Bi5yTpeC-OaB!?adp5|?TSZVps|xuK!U?{Ui?+IA@9dw9b7^T4n4DO+&^Gq+`^8o%_gwJ~y z(X$<&xAEtvaLjzkp9?MBdGJz&_80z)c0Jl}7GY&Ljn$cgw&@BGWKRdAcxZoGIr3P7am(#ERY2SN|x2MA`jGX%U*|Kyy7b)~UHC zPfx&M#)!FhIpXV*LwCb)zS}`Z*6vTr*2(O5SR;;5{D~7ETYmK98pLkCA$IowKzKX> zHU5oI-h*@Gv1M54I;tSFu899oJ;3Y(#+kI2A3#|!EjLE|%pW8EP1u;<6WsfzTIn$QmfcbqL4uhC!5G-;? zKRH$rE*o8EHoxXDMTbZ0(o+|{`FGL6S6rV63}L69A8RfHC1J9itVp8PJ}sBc?9}!2 z$La)AkN(fRWf~oeg6zDMZx74tW0@`CR_>R@_A6AhVt-#dG9tR(UqFIN71=A_|$cHk!DK?-Besn-zfz>uGhHC5c$wKvYq#(TTLCv<*|0=bThmCI;|&vj)dRvkx`Aar;3>xDgAM3#-Pkjl^v~M+8%!@B;wf?q{{yA3i#+ z<4}lI*Zkwv-Pd1re+r+f&yr~<&cCH)NN*t1{dSyvFT^=*v<;~_kSj+Si;Rn+FqM8L zvtgWPu!w6nAlBAx+JCYTFiV_dj+on_p&Wou#c_jMB9M zq2+{)YI}fMi}mLU*0Od4BePHxh4{*)4FWE-dQ}TmYPWCe)bRvh9ydi_oT0GKZ|k-G zxtaF*xUZZQe%k-pdsw{PwzL_g$tFaJ;zkvBY@j={?O)Trx-5D&p%G&7gD@W6kg-A0 z0KoNpzl?@IJV!Sv#fkxVxejp$mbpo?Jiq`D<+A6wquLV2IVs&Zs<^(xh_yQetykJ~{nNGHz|H{Sd z4?XU`N$dy7b!7P)xVkZwCbG_!A*B0l*9z~U>&uDIW)&XUU%4~F?b^8R52g2@;Af=5 zXLcvwb`M@Vc>@=`(XaOIuQwpHATEz3SG{|a7}%79hsjDurOr<@u##PKDZc~qi}wiK z@rroJXU4F&i(w7o`oALb?glZ?0Du}r21gKv}ASrtXYZA%6sbt$#z%OW+B< zmJTuSSvNP<@vO6Tu#x(7cdDOpLb}_~o36eXqbd1l{5I`@z%~ov&EDYJB4@**ZWY|p7hCgTGd~}@|H`P){B;xVJac81Qd;BoD znHnt(wVC91x=&rmVtL{6#knSaRR;3Ej``oyQJxlAF>+ts{N%&p%sO~jV3k?@VOboB z9(I0trPl<@LG9=HcxOEQ^RsQHI$On+bS9bdn_&QC-ZW$%+Z;%v+j9wMwa2%(L6M(T zH5CmyJ$5Z)1zw`N5sH|#p?gu*9hKG5zx*V@CD*ORyq=y zZ2Zm>I@x^NPJWzVLbGo%HN^}F`a=sGa(%vW8$Cy6kH@w)M#(HN`^Txs42~C7)`DF5)kduA#`JL^aYT?ehbmre8rE@`Q>Gu zbU3}xTQ%Z~^AnM}?_KVNHoW9SM;ti6WLPP;Hj{>ry5|pSn|S+?T-1d-o;q@@{wl`3ZkpZxGkpl0Qtq@*^m9 zIQ*>$mtKLlk6^r=2V5Na%qCmYpMyv3r)@C#rL;o_gL@aIF_9mFFvo-EDYI$d` zQOkOGsIvV7{jz2C=T78 z<@*sg^xltnKCQp~2nBS0M|3}83D4%mod^%b$HAQlZ0CVGoYhmxp)&34M!n~51biq) zG;v4b#rL?0NTKMMQixYb=9P#GKC~YaQv-5|EG}&VxgqOKO0Yf?10$6tLsJJqVX|G} zqVYi>olh+>lfP}-A`%6@XJwW$>D)vUq9#-H+tT;&fDZRQ=)@8bnTKb1@V}JCEp@0zUZZL#p3dB*$GQoo6y-=D}|%{%Tr_6?tRO@^SM&NWjbPw!1$_;E{LJ zPY5U^Br&T|`~8&`)ADgcE=V*HdVuMUbQ?#H5aOuyixA-(#i(Co5N$%Y^g(F<_;Y~2 z6hcp|*g&_)2akdosq{wp*plNVKjtj`YkCUT*?!0&6~nBr^ zuK++Ec-ICNlB}AFlKsAps2Cf8pPKyWb>qvS=yl`LH^~M82?=7DAF`tK6)yl=K%~EY zo(^E);Uzj|_o7-b3(pU(y24`8%Ga35S;*Rfc=NcZPJ3gN1ru!d?FJFOJ=cQG`}2D+ zbE)Hk8wIT3!^2)Nb*eKk6F)P5R3s3C(|> z4b7;Uj2!(wuBI;Er|T8rvNW2$0<*QiD<{Z5-eM6wcS516MW457yip)}( zJ@gBHQk{MahdcuzUqO&N#P#TTf77J+-B=mZ@s`006G-nS@YNe*Z2BAPmS=XG+AI{o<|Rs++5D`MDMb;abBv%34^f zuGJPSL?z`Vz}}3V0)3%{M_Lfm(8bVqrI&W;(exK69oSr3{Ur4U{F`Z8KNzb1_-YG} zFW%HnwBMwimt(;}{L0|iAijS{;u(z+8X#vhc1^}`G399^zp_H3QyxASow-P&Z);V` z1Mr;FsO@^uj9+Hcmw!SdecP*2ZiTnk(2>wg8@%k4riieLAdf6D#qAIj^ac4Kqp@q{-i&iimW@c zrbN8Ak$Xl!YnUq=4r9{_A50go+{sN@Xg63KAK?@p84lS#*_B|@8mrBC!#ZUryu5Zk z-x%<1M3YVcCW$jQ0ibf{R01b+pb~jMhI;&3>o3f(2yEbEB9lvZwuPj)_UTfKiKQ&s zm4F}v4XV^-+~fxA=3k{sme^}#{zX{pR`JUE2Qv8i@ZixF6Ixj~>TCjtDRXNg(5G`0 zCLS%j-IF`|dypcfH#6HgyGX;^l}zJcN?Ib!pJqt&RE^$>g614Q&7a@x{E_)HQidFR z{4A)8V%y)jgU;GtPc|akU*$memtk+N?Ii#usj^k9Sac5hA84`?0jnW72fIMKB@37A z_u3x9jBG2m9=mGvEr~W0v=@2{dS~W#?TRe)3bFk)Ts~?SW|4~#ne(m5WY|cv7?Z(g;rwmyZjBbTF0Lv;%LD zjI7n3w^&d}IYISu_*I(?RXp|l)sW4{cKF478){(yzIhJdkp#k%R0?+!@0L)r2Ce@ppPx12fESZ*(=@4GcM=QJ{e42d-oj%PLFZDI!l-?$j z`|6+W)pfbp)`dfxg_TIN&2P2IfRf^FD;=f;7iQo!Ff=Q41ek|*aBDhG=*+eiO31}c z$cMPV6mY2mTG$Vlfy@cNjR&hY1AZxA;(N1)1n9v5#5m^;23|R!#6$c(f(0Br!ltiH4Nd?fq1kkThr?C!gZ?RzF_23<` zX#iGSe|BA>l_YQv)V7ydgTvt^(lN{0Stc^0)nn zm^$}<+{F5`5vZn|pOJ-X)cFJOCvrm2=B+g2VBf;0I+W`(8=?|rrky;kpfuV0 zI%kl#IZtf91ct`HuR=SMePZQbh+%DST|#=^-|@#)V<>521tT*}+qz5mz|8D(U|xD0 z2Tl6?OS~pNEOGZ>)Elv}I2|jTI*!Qv(*z>(>Onx}JIBX*^zXavnp21wsmAy)ct-b^Y=uxP>98tu3{52Bm0{m^LWR}7bM-G;sl>q}u zIBUK&zz_$8x>`k>Fzw@zwPClIv6d`=t=B^(XHz8&vTL&( ztj*-p>>YJ-kmMDv9L z3$mO8&}m%?#&&!tgB%AA2J-wFeW2A`E|{VWP%_*CqrV=Ie=MOJ`Ak4w%&OC#x)fEW zdhO+tv<^i5%gADAvNUqhMslWL$DcF-vdvFPL=P|fWHoIA{O;0rj^O(3ueg5OcnPfq zY!e|LMXF0Eb;E1^#WaNdY=;urZ=;ZP36ff9hN1oxa)34E;0Uh?J;yNfA@b=CiwWAN zN}o;6pHm)5hR(msi#={G8;X}|In%N&epaW=$fT1bd5j$f=cH?>;FY{!5f*fLk!#xc z;B@i9nPAqQf9a&&+XNw;Zw$`_^tgk=vzoRGCqaej#aloi{M{WLq95VS>>c?4JMy&+ z-DX(FU5f4KRn53Qs+oRDH6x5PQ+nPgdB7R>UG*ZCEBUcZc}!?`YHdp5?Gq);<9h zBv5?7$G!^Swm`atwgvFSr2GCy%0Hlo73&T;xQKJ)08&M?U3J~_jGvAE1Li6|f+H;Q zl})yeeh3qc{RFXcl5r9f-A|Y*@Edg)&=~g=S_YX(-?gn8L9^LZ5#5!IJ~#-qyI~D9 z9W-!lH>Ii(x~ldEJ|9>cNboyFJ|83>=gHsJQ}R7S`FwEm@2M%PlYnDFGf{4*{A9S- zL&+cgW@iNOEPPSn*{$dI)+y zj$T(GF!d%u(!f!N&h|9|ZL3wTpi z);JEIG)W22a#EyP6r_$(iy-Y-)G~!Jp$R>aRH}j$DbRO{SOv900!41EX=&pjfHNvM z<0#%yQBV;IDD(nN%l)EI#0z-i)QVP6DA#=Ja!!)A;5hI9|NDK<^F1FA&E99H!TcxW0@qcuPWwHvC zoR+gewSoiGuq@QSgE4=_7fvsE88l$dXSvmP~oTH%mcBwMR z|K?GRu-$ogiLlfqF|$?jkJc&5NW3K;rjvY*0w-^<)p*MM^55?aQNrLi<&_Kq2ZezxOY@@wn8+$_=u{~Nl zp^ccC?D|-2a(1CIVlG1{N`ttrm z9s6>3e_91c&rv^qGyvw@G&o|f?Hk$z(_UjK2UMn&i2AgYdk5nd*on5lxwHj7+L^aN zd?zUl)OOjwL*dGUgAs#{fJM|IKGXn1Dh75e-3(h2z)(({s3j0?bqOfj^ z!rrA($SP2tX}%N+n*}jheuvei4_q9DVIL87Aqs;wOi>y(h4EL`hbsQ+ssBF*uu0h+ z09IGf5nvyCiWi^Og8aNGQX8aor#z+ae}T0AbHf&m=+Ll&2Mj`cgoW0gUxV|_oc~+c z>eQVb+O>O9#{nx|h_6TDji+g;bkV_5`68_?mfEdisZV?S-^Nm@9s3Y-kv^=rfdJjs zN_`k6Apb8d;H$Ea$M9OC2NcN_$gS_U)-kQqIy@pZ3^Nd zSj<2g!LoC8;RSt|>}r>^UD66HX$6+F0xeT$N&oGCa7q6w7%k|C^zhU25iho8kJdzx z9bHbVYxc;|ORd=e#Dtfq@zC2S`7)YN0xeU#w1Bz_!WS1r2`a%W455|#kN4D-`!|w* zqCM;ENu+sAvbDfh!nX~vzg_@ZJ8)}TsHjk(VpI43+fdQl)d4C_=68gOXRo87?01r& zA_e=PzqLJ7+*Q*CDt1JLq2l$MG^l9(4WJ@$3qu9phS&-s&TAtrIdrPcqu0WGWFwvS z5Ts0)fFQ8+Jb-}m&9^#1o^2@%27K_FKHHK#r;9TFDkyzSH~1NOl|f}P{6KZ9q;uKl zzXpTKZ4jxE;5bLhz3Z3+->*~IyIX!FCgH>HM-!9qPH=7Oi1PHu$9)tnAfIs1`*b9# z!vc)N19E3T^y9zLAa#XSDqjvnHf;P?8!%xE`9|TFb|3s*ThbQlohz5vWh!s+Q)s|<#Q}o zt{smx!LesZ-M*Nie#VwyPrV=4 zt9GC$T8ZgJfoQx3_3pQD(nl~UB%vlWArOr0X$bLga&9;uI&qCe_@LA1mj0MgK{$u9zuJD2?myfx(ah%zLw$V zS(Z;DwqYGaM*oJ_({RWhU%X6@=kfdM@ydOx;=nexOv8ze)%}K6EX@^|LcFhm6Icj- zWB(24PO1D1?_wL^^QT`85rqht#yi9e({DyTJa^@XUui7jzlKlciz}fX3EHZBkb_d8 zLxQgxRPmMCaJuQ*<}QqMObBDtd)-?TyNl$4YDOXa!+a~-~g zuKOyKHy+ms?GCf?H~dPtcsH~>MX9st1Uei?o@{?XUf%Y2xNwRGbsVRO$0Nq+=7VINb`V zl_R`6o0X!X4&$`tvM6m}V3_nDqGa7{zT%cb0|N#9@=M3bRa$SL@tKPKtzS*!^We|4 zeqx_FOKY$jbOx^qKp!v^uKX8`jDfUeYe*wdlTfRs1ZnpqI9Xp8P&5}V$ zK1!F@u_r#DUL@j{utpx+V$dWU7X21Y5)MTq$Dm43v4lerOE^@8Wv93~DA?dw z7D7cN<)8{VWPm#oT_w3zFDO5B$NKT-aCgGlM}EfkL#s&tQT!SBT!%I+mAv=JDAs9= zx5rc3^XRX5fx?a0o7oZmLiTs2@nC-}`g0<}UEo(vwNQWw1DbnK!7=Dh=7b68zn1+L z^k2dLB=mP>e}D7`{|$w`#f7C}zzbYhGWx&9$T|1v2*JmHt`qEHk|q+AqzMTnsggrU zEKX!clMQ+7VHr=C%tD_onT0?hf@MA>*-x5EQnxEfSq8E&n}{1?k}8B;vKeKPSrhoU z+U=K;?^bnU!4c!nPEvj6lFy(L?DS~Qt*-Q)o{iJl8*>fF9 zayu!=eXRL%r_8ajizz>6{uPDt`)@i+TFK??&}%s9KfW8w!pBNAcBK0s(cX;>Q{Rp4 zv{pQlsJv!3&_I-(L-x6^5AwUMs0Uh}5>`Ty$f`Jk@c}s`W-gWd$hMGU?>>&gp(`wC z^iKKkF9t!5owqVtkgK0VtIkrsg6~Xv<2xrb5KDFchRV6g(5HX!F}^@wO~$Nk8}Z>H z38)KfLaRzp<%f~tbHE9Wq}Yo2j?Ucs;0gmqPqY-0XiD@u^f|?nN5WAr9-~j_1qrH5 z;m_F?D}D}n^III4=Pf9f1i}2U#;&PGkz`}xFVUp(B!RA6%mX{Y&+JZUXJa*mDV7X_ zFbSX7l#W+*_9Rl$xR1!A7((%XRpXO5el>ZNZ--KRlvw&FRqIP4?@-ECHO6BSlTI}m zsD;V(PHU-Qu2~~VrsMlsJmtZ{O*Fk z>J3pmYGZcV#GzlJCjhARH121Z_cZ36!+Be$Uk6dYK-BmaxR^0h1yVC7kBj%UG(&%re!~l^Yu||$=zeQF5e9CmVT`eUH{zD~n}QjF zG$?)mI44l64NjB08+fB6uTg|hLvs&&LzTcU08U=W5R?+M{p$^wB=1jfyfu)PV20Gx zV1#}*O7<_k9-yhu^GP{9i5#4xd^zaJaf1IBc*+f`jm1fy3TN zaHu122;fNnM{tO8&-p!25Jp}S6f)mz0}5&IsqDFjL7}-R3Gwck$NYF31-T`r*L`|7u% zaW4a$VMm+l+3*Y41%3hL(6(4CsGHqlLER3Qv4`;q?U;hP-;q=ZV>(GzF`&!{NRk|-eIW8z&e?)hFmyWjvl;LQ<*aNmFdj&o+F~Gw z!JcmX<;`ee_Aa1UOi&uDikZ9MY|t(n54=ewN+_|XV zwT_=!(JL%@Hmg~%k--q_sL{4jw$c1{wFp{0?LGA=lLJVD(9-evX(1>Xu1O#NGajF6C_Iw+CFBLAam+nzK3@gr|GQ~b1G54Nm3bXf5e0F zJ1TMKU`P;c1D?)G za0I>0>nwTe5~cJLp6yT%8f&j)j>$ippr+Se30Dt9ZERT+fkC4Y?7H?&ZahbBtZM~t#dm*~4=3imD@iyzjm`0KIw{GvkT zCWvtP4f7z9Z-Tg!HssA#I^|p;Nx5(SSv*x;29qWqP!{~pxgZz(wE_hndzqRSuub8| z7x6_$)H%$!Ca5M{r$m!XVKt>CrSsQ6i<7U1$mbyvlEFH$7AP;i+;$S?VHHnu6|$|s z=WTB-u`a?|;&helsta37oD{_`DKpazg1BZB-n*?*9=`*%3GY&d{tE#?od$Wesu+)f z$wkVUTBGDakWyvscG0lw0n>GL z0%A;RQ35ZW4NCbtscUdhvN)a9-x{fxWAG5X6p|^gK$<(`k=Le#=im-`c4Cs0e#YJ7 z1e#7AQ1^HgLQ%i~VV)nkid@Y5z)O+S3k2yMa_%)L_|6Aooe+ySGmq<+($9Kq`2Gsw z0#=$g<@$>ikVNZcY-xD<_bdJh=Ymb~v^CRB)gAq2W4hQ+@d0CXFiQD+nO2f-<`jtd z=zHYHtAY8!i`8)2OEvV^z*XEhL4&Yj%quTL?q+=ASH$Y~JyuB2_1)Fl7?1s)p(}q` z2)gS3p+VPQzmI?}+p@OMbqyBZe_2Q95}(+0J{W8ZVd4`XoDT*s24(aAc^(bzr4|!S zZXIU6J^=Z8?_WB=KhzVMH;8X@l zC2fL(yFKle#e$uLRnuOVBjLlYivFaN}e2VbB~a}?Gi z8?T2id{HqFM*a;L_5g}7l^$Swytkw*!z^=_xO|=$CEP5eb)oAVxzG&3o#0P&$t_d$ zE;)tnfx7cOkV8~2flf6SpvGqJHc?7HD2bV<2tubCRk~5NrsNcd?NZ8bW$9a#sT_{n zZ*SENlK1do$tSfo$D*{S3A>SZt3gmNj83T+Mq8YCJ{l*AYaELtXj5sG=c@O0b&f@7 zv3I5NR%g6_nX{6k=PbdyA%8T#x(zsfR&VJ(I)utFJx3wS0egk#fWtq`s3h+~;P2y- z@Bf($^3FL5J0mQRX(l8y((Gx|dwRySx5s-9_qzl5a2qzfPhrDjW4w1Jy5#98S?L$D z$QW-xF*!+*^60GeQ&UIc7|FNdLvZ)U$QMf^5Nvd3bg;%dEd`s1)u7ojF=K}_{gexh z`&LStDc%dy?r!cfbA=>NH#e`CISi-(X!9;)K#_9cG-N;lijKc=5v;6Pz1x`LT}vsY zL?z>Gl%^QB7CVo<#u}&I?DUVcz^dO8v9CO=uJ|qCePs?=;oYJ9JWw4}b)4%Q2ZZ8T zR+xb2QL}`cAwlT?KLAJa!>3$w8q8|BQ$B^f&@`t!foZhyIKu75_Y~4?JifDde23H6 zL>N0>p2^mw@5cMk^poNfBXA9c3A+y^*;5XK?n;Ns+;*p&ndU?)&)W*+@%5|Y6!lsU z9fsDVpzY&yn5TLe?^;Eo@;#kh>2PG3(HV$GBkB&onS&`1OYyn_p@^X>e(XVm5QaAf zGG*uXO9R-ra)Pg%--oYD!`Jd*)V})>zW&x0z8vK$c-{TS!D|c`cQu07gyx>2?>*Y( z#+sYn1<%YE2-;qlX>SW{j&hgZQ4ZbTxBy^Hys8bXZPH-vz;c4MP5&EMONe4v^WNMM z*2Fa#*06YQhE=CrbF(Vr-=fL*&$;`ie#!-B7%aRF&Y#(U%nz%O)7;nJijc z!F8MEo7Q+joaZ>8^mw1%XB>b`fGe`#RQROZKzp9t=t^&O_eByv_#rOgu1=qb%9x!# zeAhDE3@+^LsV?6%6RCTU$8`$vLCX%gr^99noB3Dn>k%{I5F~5}21ClB&JNI&Lw)7> zn)1q{u0VCcZFNKS0@R^SZEd7#h?wa#Q`?je2GGlDSkhNuk2+!ZB$fTDyuKc5%sRkT zRzOmxe?p2w726*NyF>i56@YLa39vkGmOnGWDUV1{#yxcgWy%tqzRX0Ye1%ihR?F{U zJYwoztU6~X5b@vPt%1+8jR=y)C?>;J(L4L^krJb05a63EfBzoXNT|}fk5GIcF~lFK zbI@D!r=qb3Gl(pbU@{u0JXaOKo|NP zfT|tHo%wY>4D4$aZ7})IlngNWu_ZV$<9>$P(b~>ER;u0Vk~6X)_!N%rXEnIzjq0Q6 zL(S^ccG35|$f6g^Z%4-Ci~ULH0Sfuhiuw=dklp@0sJ8lkq})33sKXpwAqYZfE}Zgh zPW`Vq7s|LTSozg1`GhtTo@;Taamba$`_5imC&CvfupftmNt0Q?>1cc;d1t%v`J@cS zr>wlq_#BW_^^7~{U_b5v3TV0f8CK_@%p`Yrw1@|Uta&;Lh-D@wHpif`4gZJ)<=;zC zPo<-e6R8qdilaKwBnGRL6KUszvS*vqyV(qY9ISKVtF(SwrF?wRU;w~%`R+d|rB_cA zVbM3;OJ}f^Q;9L801$LufPBG_bps-;?l-dmb3$6Vz_!9H-x@bMU&q4G4#7V3`onyZ7Cgu4-bYeV0Z-ZmM z$D-GXBuSQfl4Z$m@ZV`hak7(rwda6nauG>|Y_a`wz?nKt#%#Ybw38-d_B0f(?ix)E<{i@2;!`b$XzGGgQe#eCRIY4_af!>tdxTjhZ}wo1BVGjutQa zf-$2*lmFeVeUs~iaFZ8BYfav=6PmoLo7Uv()g}+%Ce!H2CgkPjKx1*UXx~_Epy|cb zZE46tx;KHAcz-la^&c((Z^8?}>LgbEO~zSroWAL1XJ8m<8nRW~8d5ZG8xNc1_m9%H zetTi)p0A_6NV2>+DrBd~KgH4jTPj-sFdqAtwxuS+*9|`-@dB9jy7-^*ct!P$3t)zTr*=KS+m|L*SY+ecoG)XXOyn@?D<-#C#HSQHY7Vq5YfJ$uaFACST7G1EqF*8j2cYIFE1SxTv1*>+1A)(B7rk z&L9<^wM$&1mwdx1YZ7IhhFQl#gH-hF^K60)Kf{>eTjowot^X`2Rhv}g{BS2a4S5j7 z|BQ$lI(2}M^>CG+{Ij}09=P=WxO@ElUfbJ8G>> zT(eslM9)D+0pQjeB;U9|XrmYZ$VQJk>y~c|X9%^Y1&d+yl56=G*Lg0M+Q^-HpX-KfD0jBKj&LlD`5eAIi@k0h$CNk_1*O)^+ zR;8x2j#rFY>GC<&DmHpgl9h~`<##u-t&l1rKgOmw<&myhOuZheHPflrnK&Dal(E-%7+%BGblGt~CfvLrJRPdDRrp zbFBCNBQoHGRIN#6E(*jc`O4iBDXa`A1*RSiP~q;nO?iJF7P~7LKd8XKqLJ}8&q2cb z&H|@zJ}LoKf*Ww>UdReTM_MG(KBRN_ZMxuMRQd1pkI#0Xn)g;*dwsFg70YoVMKaHX zsuPBr$QV8v9`Pl+e2<#o&&<{#${O5*RD-wG?KJLQO3~cL2T@?Q;7B z1_z>FZ^D~1imOr_6*{|IQ?}Q$A5z-tbT>8MGAV*z^M`W-D1GYkJ-jMQ-oj4@e2z+3 zcgtMq4eqM|seI~`_hj{}rq}n+u18Gis07k*6*8>wB|c7sBxa0SrWCCu3cE72@Rt3N zg@;N=l_A$4g^fiici)0I>at)RZuca2pi!541-GcG&KR~PNZFH1Ti3qtHnZ9Ke#AxKEU$pe* zVU+AC-AfR$kW8B-B^v0_n95}DrgGM$KsE8%MJsB#RJvf1zWID+znqJ!Q8g8arBBe( zGhVmFK>T}>+Big3%uvR!;3`&mOV?0%tPaBu4=t{w>TitdYI4bomr;3!%W%wTd$9%K zU^Ln!4H|8BUqJ@`qcj8mcbFw_rYWJhE1GVCtwWj{3`Ud-jn(gCt-K_oE5~6Sw&35F zk$pB)7ebmsvL*f1MDrC=pu`fR$5Aw~NOAw^Trjm^k~q%;&B>~O1%z%f0;Xto6oY>; zYb1fZS&NZWEJUI)O=7V~7uzz;V?vTOn23EH%kU-hDppKV^K>xC72ASaoH7kGLYp)H z3(`_xaC$cz+KqgAqxi)73qfMgvb6+Lq+ig)(%%rykSR*Sp1GDhGWnAt$xAEo zXghHkv~n~-1o1Ka;GPig`x3A0XnOIMXdl~qT~6;dz{h>?^=7&`5244}&SZ`xZ`LgQ ziG2$dK-xd-iUw~{BkEAyg+e2Jt@U;>30190mGG0j9DZ_^!cSfW%c!wv8cU=p=`Y}B z99y~z_s0Yv3Z@y9C2z5q8?0S_>_fYvNg<^}OlpC^+!pYB51yRw@lI)bnSq6QAaoD> z{fJ^TpTJLUlT!Q^UHJEgngEmQraLhL zCM$M4WXBHfgZ9-x;k9CN_4FmEeM`w$Pxnr_S_MjXE*m1ZE7PIyrV*M=y2fhbdBM9nu*^vxENjV=3vNRErG9>pXCQWOBpIL`t>N0l2&+sbvxn~vpj9msl z`HSIaaxqIH0kP9wJu>k(?^W5GY)I1hKMOT#<~Fj9FaIL-)3E_5vGnaIK~QNNvFrt; zA&}L{wtJkuSqWLbX-Y8u^$BcVYav=$^2e{-gohuZNm$o9QXF`Go#*IN=Mdp@Odjl` zqH^a4aK0Ulx(JS96%6hp z*0pawsx-%~%0`Tu4phoT+1cZjhMvUfL`t3|rsg?LVT+Wi*NDq`l$ZI-`0RqnYE{{; z_{Ws(uFt~_ZzAOm~p(korF!l6YGUcG1z|C_Cvk*-%RugcZ-ZLGV~Kec7Y>AX{B23m5%@n#TP#k>fBS zUDlHU*9p|2agbro6-a!hhVwjx&4C~jxw{k#*1eIeMxjX64gj$2u#p|bO@es{&s!>0 zF48Z(CpqH^q`n;l1FO0<}n<$g$5s z8apcAsX{#`5Q9^0B`Ii3ogcp#6ZkXY?Q-nHPtYYu^Z}9*=!3=hjg@^Zf(k3ZuhCJWwH9$w z!{rDH#`RExa^02ZNcStgkl-8B*gHO=3%;dDA{65FVjj%6pk?m2m_K+faUB1DqXgeGRDoIj;Fn+RBO}Y!Umy27)Ts#N(7F|8WK@ zBD4dYz~x?y;!8+aiRKYzpm>U1z8PjIkg2NKzD?PGH9`9F(Ar=8$JYMFTsr^YTMyrA zHfwn{ogT3*mgH4rt!!-I;{EPL{qA+~e)kIXd&(=&Z)XzqyH~j1y|~|ZzM}QJm-6?& zQ@>H;<%=8n4PPN$@VG6BGzf4a_z&YCdFNE%Q%uMSNK7$bi)zzGRRGZVYob{T`2Zx0 z3je@0qEor62O-quxN(e{gFSGo)A8R9^XRcS%(@;1I!==vRDXQUIs=`m$r7qRc2;#X zX&k5br^8NPAUUNM%89e_$~rcDREYX7A)RtP#22UO#j<`eh+?cJr@WiQHAAwRF8`2{ z;%FjheJfB<@22AiGa%`8-=O20f)=69Wu<@T9x2JUJX(yzTJJn?T=Ff>;%Fg4U(W?I z9q@Otc;-A7&lJ&~m@B>3(^<*8UK7s@Bs$a2dv@Tu3<&~3h*;WP)&EsV44S8^pa&CM zFKCjiol98}<1Uu88Oo_9W2(QlUbvVhk6GQ@vvEE>b*_yLF3(&|i^sN~&#B^Ii5&k+r7gA0TCt`uG(P=NmE!am-^=fusA* z2Ccjfiz6$qV(Be(6fXoq;rqjqZ&+({JnrDJ*qJ|J8o32|$0wP0>}e&jx}C~A3z1H* zu0g1sgM@s;Mnv^BYO=6=4oRD*pAw(gLEC9_NIu6UdlqM*d=Aut@;Qz)r+-vPK4%ol z=d@yV2(NX}h7=dzsr0Wj`JCm~vV4w|el{$hgAGpq$@2*MvH_5Tc8i_L__NbLS|>#a z%u1>#qZBDH`xy1v0-CPG^QJGA>`{$1H>Kd6fjTJIKp5BA(fB}m zzp{HdioHS$7+B@qKI4vRdJu0Q46Tp9fLnjVgLIX@7~fyxcT+PVjVESD^Uif}3`6Qm z`?1PVX2f3N6VLJ0UF#n}g`JdPK!)(!dLH5t8U^}?c4xCFP*r+N-JNFCbeS7G49Rr z?`}Yw0aIq;gVsqi@nNhR5~l`j8f1qhE8YsH*K!s7QwGZqJkZA9)5vJNgOg5RiA zzK#gp(*k6w0+aFH`e-3bKCi7Zv1}YMCGKxTMv)WnHvmVYDi8NbJ9#)M{enwfZ%Y$- zy`j!e3D;YN&{iHU3sJdFN6J3Z%vt`-#HofX(!VnT??f7@D)|744k(|_38K2cioL{C z83&m7H^Kma!$d&KQ+u++jLmJ@a}O-hUCMKmcV;|2wTKseMcPvFkmrQfpw-Uw-|*J` z-b5Oe;~&tiyWWWi#~~me8MV{ds7er0qYtW~D{0DHk8IJVq@&-0kPB{B?#(y$)A&m7#}75myJTik%5|G_N*ef-d~9*-?3YHtwlxoH`Ade z#{_e_O4SQ4DND99-*%8mERCZ_wYU7b7KxEBo$_=OnKQD6=HpJh`C6rxe}>ZZS}d z^#G3^XnTg$`B7MW*;C~bGd!zM0he7|Q#27g6(qoXnJU0s!CNs@+dL3kOB_q@Hqn{> zxl_#i9NMc>CKxsCHFh-FMt88c^`--Dh05ae6f18II~R;-M?}s4t4e<`bgZUaq!Z>;w8j$hCK*ECcsE^%HYBrbOlCLj3;{(W-JCL^_LA~JiBjd8Y;ZZsDIc_nYg*`4-f3x&%_MrW2;(4Gj)qB6b zsIKpe;-UoDNk8mhPmnGN{b+Ji0-T2jug-YeRrW1ybWU^eOvqRIIi-}$*p#vK*j~qG zVs*tufcy;DQdF=>jl{}L9ucpLQP9iR)9EucCt)IGE=abf?pzfh5gT< z0U79@r&padL3go=b4<-MxYhD*^)b=pa@s^pm<8Q%diG25U1rSdv!Qe8mPTVso4a!p zO&%jOs@cHJ>>~N@GGTc%X{BRG@Vpa(TjY~V8Hcyd=^H?1WvTW23KQQ?PsW!HXZ0vr zx>?iFkSztQ^}HZ*pq9dfEcq8Fazc)ycx}L{n$4SO5gcLyw|M3>yzwo0d5 zL-qsfnvT(m)Jf@Sp1(T%*@^g~&hhqHQiuE|0@#{TVi9tFH|F1ksyXESNG~5c$ECbM zsvcTBLt&K7M9sfnM=c2>QJ5A47Dl!)p}Zqc*K4vJ=LJ^Xo>766TA+!;jDiCE5rhYc(IQq zyRVbvKzO~4<+GzjO3yHRu2xglHh+&IMtvY&PcVae%bJfP<$?*E>3!U&{Fl0U@J;H3 z4a@)C_CtHI3lE;9_BN-%0Al;csNYEuS%B!>sj7cU!{NP-nrfn(>N>J1hq#!ujCnU_ zv)&2y{x2kP=Kax%I5$nhxkbo>D<%ozBMw4(XIyfVB>x#-BU{(%h(4pSNCzs|0obfN z!@(!YNjNFWt)~t&cSAbKDQ{Q4rI6~M`=E&xBaqC^2BN1o;pUA-+cDgQgtC;L;u+X> zG$tbO>?HLtBXQn$D5K5zab_w|Ys*8+X}E8>Sdn&dO(0aJ zu49>9oxVQ!A)uI3yHT`if-w_dCy6FNxp~rJUiL61BI2Dc>Q0r?e3Xwu4+KNIS4z`; z{L$wA9P$&;iDkEOZ1b@;_fgh+!a{+K(^R%QKZ$puf^@Pi-hk(`&a^%tj<2msSx1O( zfrVAo)l1BuBe7Mh8OSQKuS-v_{X9~{H&+>?JL!TOT8%f_iC7Hlr*q*4=^PsgaeeWC z110(FOb6#-NFsO&hz5hdBB%ooa!T#FGeMSOxxCkyQ; zWTNy$sX8-Q6dpC~D8t9;u|;f6LNyJ0^@y`UTl&e_arC_QX;r>@TQJ*<%drOm>urkQLLQj|GZhT8b(^Hleop)9qpUitVR{B*l(| zLE8A3c9SI1*7g}}ZO}2D80T2xOy4b*7SYb)S>#APrs5x~-sO9E6C4Qw%yoZwrC3%@ zL}&&;rDG*BF0Q;7<6@-}d`45&n6*n8nu#R4W2H-Wyy$`e(VPXyDQgKF)!q>MI(`=W zW(BPksHLu;6{phi24s5?TKb~0_A@*$jOr8;VEXxw2rwPOA)S2=fqv9c=tD@j6#DRU zsHk0kq$pC`_-86A!)!<8Mt?#?gg(z@ZB#7TLn@XmwDKG6s23?=QV0D?cGjs=-s_MmN^7gXis|zR`}&`eef=|H**sc)Q!FW|$F%c2*?QlpY$j}a z4-jCtYp=J4|3^Jf87Suc*%@rvXvjl(kGF?fT60sEe3|-nLUL|=-Z;S2oIj;RTIv$ z+5G+ZHZA_&=@+~H!vC-87u!Ddf2&{YZ>@UPFIIFB{bG(*{ePif?19_E`o;Xl&dAXA z#ok>_cjo`9LcX{0)v*|8e1^YXzmL8a@mJ9p`ttEtmvQvv<*(;Q(bpXQ8lOvFGx*DT zFMU16Us30Ybvc>8O1<=TKYu;@6@5+MF9o+5pK%O-ZM~en?%^-j&GePUUl&s8E0ez# z_oOcyfBpUMXYnhYzYNdN*Dd_DrZ=Tb=C7n%>8me)eRdmtUCUn!ex`iA;fvs0lYdxY zX*^Gszxm04(e;pK@ms*{kls52Fzg|soK^o`LyRW&-+$$K%`dKLRMxbd3zi-dNgK6t z@bpIPd3kLGRfp_m#?P zt+XCEW zbuU&Uv%U$XdA({iqA?hM;8s$s8jVFYcjKDJB?RMdr?hBiw5-8>8%au;v4;LGS!+hU zEog4;g?++~L$_@H>?l(Isjm;l&%ceeHD?to!xtc=I+g(lnN(^uMN>hIBZ6RPdrybL z2#GXgvOQK&Raukv2Bq(kb3wEbgfAiMm9C=+@{tTye%^|G@k=@uL%WQW89hTe)3=Jx z)C9Ac$Nokuqyvb$WPA7DY7im>RDkqVYCXYV@tk62{-Q`!&0p}PE*xod^h}edpzuSU zUf^fDD=Y=7jdfC^*>^Rm+hn0vWx7_FrjvpfBGKl^LJ;kvDpZZ%s7NP7sY`Nqmt4aO zlSfGIuAKfg7-a6oqPZ*>TZqi&6qYKMRkf=WmKKsZrdo@XadX><(*E^0k{`$|Au2$- zOEWhju_#9_0BY&i2#xM%;SJCHe zOA;Ljp?6R;iB*%u?L;N#IIg?7Xr*V88S)+G>Xv^o6n)i69Ua_Rp?}u9?=Yx4hw)J41k2n8-9n?kg9QPyxuOQ|FD-%jN{aGSo-t2=5Is{c`Xr_Bj^>EH)6!<|yga;jc7?rD{_0{|=VLezI5L?E@0&f9hkv1c^V#P} z6Tl*T*3tA6l9af7p)+`1?gsloGD4^0MV7AhT&>)~`R1zmXe@CMo7O;P#H)0r>yLlz zITk8w)b_rQNLyntesD60?~Hqn#8^=)Mle2!!^Uu!OKyeWwZZr}4!&Cph6U|d8H_(O zfP#l>!3sWR490&mfSMYR2F-cHldmjjp@!b1Hgo{CV0HVk|KRVVvWX9UMCh zVw(oj5q3Y#;4`-(j5R9nm{H01Zb-6kHHy>K21nte&Rv*$ys`*$L!qkOz7?S)UDk}TRDbHio1cN3m*6b_(`u9udCioIx?1hX8?%-s%Lz9+BK98n-$LgS4 z$X(DU<)O?rZ&D#Tb}jZ5ulz3DL+T02p{*}MGgtD3pJNkV_+h(uK>)t^K{JEK$5x}_ zQsY!`-0>>H&$>mYcs(DvgKs)n*#Lt$qQBij zSX0Wse<9pPZx6;#Kusyoqf_|aVJx7u7r#c7w*8{_oy2=j(s=JVIL>)axkc$p*tV6r zuibZEjx5&{y7XKykS{$mVeie9BxY0R;0Z7fdDIhXJJdJZlAtLV#oNBq(z=^d>7O2N zHPIyGt%#_DRm5zdr)EAkvovyC^yICRE4?1?2Mg&k%m*|}r{+I7fDnb#`kyJE<4OFpgLY5oFn_2E0s zYms4&j83O7qbkccyi&c^yivW@RKnMqxATqSF6EJhe69Bi#YNm|Ao&`3uenqCM!gk$ zNxj$12;XZSP_9?Y8GDIxLKmAmm4B(_j0s(A?oy8W3Cm5v#YgW3QxyB15f_^Wlr5a% z4!qb*30-XN#Odo;AKz@=tX9+#zS-=f27N(`=K$SoPWE%t`RV9ayr{LC&EAAC#%j8S z@kX&MN_9=y^NOX*D1_FD6R@(&r`uJ6E`&5IVUU2R&G z&KE2CN=bg2GAVaNczcnG<=-Ih;R2{Aule zbHGLKH|=tbT>YF~uD8im_SCKRep{cjqp!x^uf|c<;4wgWtxc|Wz;SL`>RuaA#vaoi zC0Mgu=Wb1HfLPnfDh{f~p!BVFd9Pg@y2mDOwe3^zr-_nb0o~fBg?L9gR&0}ZJLGDc zIIP+(4y%F2*!xv^Ak)@;hifmXzeQzppI#qDFj<|XOg)GKUL%SqM43omi|Xmthy7&k zs}TIDC*f-qaZJ|YwW4n=-g8+i)}o>d|GiPl4V*!U;?D&B%*I!5DePa0ehd3edQSFB zBYozmpI`Ima`;rvu)hWUKcU~ZRzkCc{zVlAtUud8d7ue7;8Wh<k-8v6IbC4m)}56re?( zX?5p<>XwAmiLaa@MMA!$q!U3ZUYLa*f^|N6Ct!C4Yvs*{U+J zkg?&nBe}U#^2cu;1bg=VzqK{so$XXL!3?ImPh@R*tE?)mImJ@InvN!nuciHcYy#fT zFAK37CW()f5}E7}`)1TT#L-pY8D4op9DmU1n`}a|ZJmL3_GxAa+=IgI`Nd?l?y zyOeB_H~>J!u~qcOI}t+0eRe|3!P1VM5c^jH(ddFz>@U!X4h7E7rzY9OM|L>Gu?=Wh z{%2P0Z=ACbEpzvsrohjvMts=a2o>D39DedE9AeTD47%<>CRy(qU#-kMt|!|ETQcbx zxH-Q6Lh|IIVJ&0oLM`20YPvX%&e^Ta4|M&cIQAqyhW-`JHrT{5wMsIv?d~y&Nv+Vu z3mABY%vsP;V$eNicUQ@qVL}rae`z-3?LD6{wkgMk0y0O_5IKSL-)6r|_7YOycO-K7 zKBDaqIWDTrgj|#|SgmSAUqN^H4l#KL*;+`PejAEJ%YnA?gs3$K2y&|d`&AVTKojhy zbI^+b4SjO`j4$xcm(9n}dqyz{^&pgN#_66=tF5=sB>C>NKYr6X0GC=#PsYaXVte5huUH<+7DZj?$ zA50^OLY>`Q`CIsn8gbAhSw?QRL*DMdcR!yhCOE{wBD@@`rgpKuni>n))!#^TelGHk zr-To3iJ?un>5k9a;|ultnEw>LVAy`d@?!??W_}hir;&CaNP&=*K zZCiT%>`&+=*)GL-Ee?Fq)u9pDr;dm+;y0$9Ptgfz8%+x`(o;}fKq8&5n>Ku=7uuia z?}-#}QS}DoKlMBneo&nem3BS#HBL^UGk^jLL8oZlj1%+-6e{J*i;2U~LgGS{jrF5b zlHs4>9B!zfB#P|i(m$ZBsow{*QRTml1^7xyO`_~w03RC=%_3PQ*GknFqNMx_(y603 zw5PlOf1i|oK=f}Gn6T(q zgBEcY_^@qEOkm4Q^hhq|DObN5XP~B)Ue758XTQ&#)k+jJ))}n2!{6fxt-ZtjhB!9& zgJ{-i7L#_OO&Nv5T&7>0)M5y8{z!3S?4}lIbWcpxLP=UM@>i%u=XnotG4aIH56rm% z5Dm6UE&eIeGV?TI-t+^re`q#oX;nx%Dye$+RfYR!4j@1+AYgIHRW1Pb#C3vptgy*@ zZ2k5jqRq3(O`>zFP2Oh%`YFEw8n=^fGKTsMUkD6dX}IMGqO-=9zDHW>^v3{64f}Hq zu8sn~VT+nNPzGe*>>P zs|N-52nP>GZ_qP|!cXo9g{N|Iam}>Evf#Wc09$+Dkatg#Mx*@a&o9GIb1;vW7_{u0hBgT$;it{(a2-Lwz8UUdR zMyZo6y?X8dN5A^4{Ay?QVZHJ}6SV3clN{(*qtA%xcTbEfzslw}^gtzGIC^!>dRKmc zl2$Y^?P%8@Rjv;AYb<#Cs>2W)4z};W)YFQP^lRB33cd+~b+ZyM^l&)z3J8@mVpP&q zA9(K6ER*k^80APf$*f(kbF^zXz4;{h?+WyTt1#|UJ^iV1|0CR*}RPpX#bvdX>{ z7k)v@Xo^KjJrtpD441u~z(#mZ9Nl0$6?EnAb)|nQ`k$oPuXCc25w|7D-mgX+y?3!q zu6m9V)!Y0%^srxcmh!i{{JnNI8%Dq{Dk#k`U_)|FWWXZ$#|fata3PHR!oZ1ZBpgq} zaDU8BG>mWfhoc`5Ib(D#{Q+t}(v+CN^@RY1Y}YWuZCHzM}%nJ*rw=D z^g@_^NT5w?)V=M9r)pe@cDcX|i&K(Ov^IxMx&;ngs-*F%4^T_TZ2f-3_37?HtD`Bj zO6P42!Ocfo!>ja>aPVteX_Y=q;n^JC4Z{84Rrv+Kw^)ZlvgYlSx#!lli*@+c_KS7U zRz1y7LHf^P*3Zy`iqk@yH7bSID6GAt_G?u9p4TX>&l>%fc575p*XR~X`t5hx8vRar zydl)vwczbLnFry)aPYDQ^;kF}9JTr=iUX-J-3~+rvrj2CoB`X8r{} zsO7yjp|t zuU{ncWr}PG#``W3Sq5PMY~;fGM7{g8-=vh|$8iF$B*qblt> zyDWza+7UE|vfxTmCif)j?#d3eDUVS>Gyg52lE@$NU7)-(82=4WvD#S2FJ@+ z)Rw~frzPJ+r=#C&{eCT;b&bGxGz6m0)P>-0FL-4Ya!bR(8|rvTC=Z3h-l#)@L&XX? z;qXORL`E-Lzd-sHF>6aIVm)Uo;EAbJYEn4m{g`riuYSXOqz_LJ*G#@f%o?5m=^I4n zX~r1G2xAm!>=-j-Xs)4Rj&4DWaV&%}de*ha7@g{Hd!KE|OFt!ModP1a;y1<^=FqO* zBS07<26y%7_88-fBaATst8~SU-Q4dUvxYR5VqU};b(Hk|BO1o|UXiwh`d0>C-83Gc z+rq(*Y*8^r?{L_C;O#q&$2}$-oUsMR(yU@keH~*Avl1IllDH+brxW5peGo9+YLMuA z{5J-#M5FPsD=7fym3G&jSnsJPT&;yJ`4>E%<%vlr#H2HL2+)lDq=ep!4=4Vc!F?%vj81tz6`9`Z z?!#socPjg*Q4dA*KiMB|aGPEsCATZ+ag5WyFfp2i(MTe6ZKrd=b%e9xkN}fgSw$!A z>hcS-v2eeXL|kV5A>~|6B-i<;nlRTnx;D&pJ_F(Fgzk?EflQNis3<6Bx8adY*$!jy2n!6ygF_^ku$`|0T^PVF{zF$t$tLdQvL60RPe_eT+GgN4?ikAZ#G4fyRPsHvms;0IT zAYc9MLIagk%uWS6iw)SwRd_bXJLoTL@_d|CG3hHn)TOGmg9Aw0K3hm*y3I%GHc_8F z{F3leu0>LI(V7@;QYQ7HmJ<#6&nwA~LRiYiD`+c)xj~Rr7B%6+4pf=U04K%?%Gk>U zQWl22EV|g-BN-%WtuuSr`vJTezq_(~%lc>C9Jv$al!6nWK%0D7H#v zdr1*R>|-~R8Wmq5nR6Q-I}X0>zI8>>#6{hLOkQzpm9Jzr#mAMn!4235dI^%1G@yN) z`FENesow$&+kAJ1f!OJbo@5IQ11N^yUieHa%Qq>;;hWS$8Tz@NO#A0K{TmTZoWA+E z8&Z+Bz0iT|j%o3rJl)cHaYufy`c*+U0v7 z20nWz+YV_9upFzSB4$t#OPCv1?~-eLOYlIi_QF?=4S>SlKrj!KyVaJtd~YBJ6T+v^ zyDTW!>3<>5p!OkL?aS|>^n+rs z(hZDZ>-bRtS~`$U{YK|FyN~WZV4wD>EL6J%Rcp5z*dPgG}H)oFv>~M+?NnVnyUg7-RI)Dqkyh%Bk8L`S{x*d>VJuB<7>h={>MyW-$EF` zCb4f(B_nTunD?p-1Uc(A8}NjB9D%5wR^U@8{^asqgPgEk;@AdMGP@jMal1B(sBLyB zfZ)%8VLY7MkfH%#%kU4r9f$GGgw#XYL`CCh614f|0?r&C;~U>Y`RpLkd8L+mK`m3f zZ@2FSegOS%;?%v%^SF`bS$t&2adAw1tp``d_YKe*g2m(F_&t-v`)cqT2|sOm)2Thf zRq&hDD>WFNS(x%kfs91#>8u#vtRBjp$jI}3fb{^W>m$B5OedCq!XcW=>S>_*?|1s1 zr)Q05HX0Abt1VCK*tm7<4IaAti2KO06rs-kbug%!`$GP#1GcW`wN-@7S||;#E&2y+ z_y82aMqC+ifFHS%&)H73VmJ(6Crc&IQ`5xJbZ>zH3#j>G(mpuw#~;6m%v#6(K<>Cb)1x6-)eMte zOxg;6H3$m}sHslBAMrK7g^!hK+Qg(ikaZiljidq_ugnWsZ~kPuHV>L3d5hk3 z@Y`Tm3XJfj9bb&v0jDRRV3)bwN!*co3^1lmwFQ09A%Ev6tKtLrq{T#z+tVf|YRB)F zwBxt1Aw=R0*$_T{|GYjFeEo)q*|?&sFG zrKY#7Z%<9HgAk-1U33Q5C~DUw`D8#Qr?jW2<^2(7@VZOz$(W+f+aIQ=Pp%8||JEa! z%p>t#IJnn(m7?Aj4l}Js;+rYz_2J-O*0ni<*J)?)4dEm^!AtD13B(?oZ7Fh;1;vF< zNWa)7pR)D)?V|jW5#bURtP4-rU&FzkbrBPmxGuym8Mm%2zvL40)qP!vU(!_BcD}A! z*M7b_V<)ifp}AV7Hq@^FNqMC*)TqOi;UWEdIJluw9nzw3*oT$jA$=em{6gi$hqNG^ zWL71zHGUQse1z8Hr&tQ*Eu=!cJqLqi@0-63pU(KcQyy%g8}%?j z-(S-=#rD+)7F?R1H&}p}7fX#KPR(}KjRkyV_Dd9BpA?2jco;$D)L9hv`V{pb^g4_r z7rhlooFqgWxy`{EDTuF& zP0sZC*~gmyl*M_Z{2Ewf)sp`%ldE5iqTdIEhL>XCKypYdT`Yu~Q2J#s=-q&XvLKcn z6NC_LUA`tvbI)26BFL5D>?h^&w}aoip;$+m@zz=+^Y2&_CjbA+emWp^BmeLe#R#7D zc&NbBV&W!zSQT{NrX6~^t_dH8f*zUfwrF^?luN}h_$%HpP11(N@ zyeZ2+*W{Eh5Xjg`-^Zs2GKygm!AmT`%XPtcSF}OcP68O+S@vRwa^!wYB8k#jS6FG> zCQRcJ?Lnv9N0q`;lfO^NXPOxHSiDSwz&cm@DK}YKMX6YPwTlnFB@?~hy^Nly#;Q+L zDe@S6G+#?Xtkw8r+H*ztJxCW+p)2p9biYXH0nZ8-oRs||Q39_HLAGHAvI}=00a%Fq zkRlfLfCV>hY}5AMXDKowXdMKF)?e{)T?KK$E>6!$z9QDKR9L)@z}Y6ZlHPy$AnN=V zlTNGp{`*Rm?wjjueRZfy9p`fR>d@*KzdF1+dR4bs9YApLo!ICq@jjrT?h61-75nHE z-17UM0$Qrx_rVmRw(hG&KG;NNp>044u`D?EZz%Ynt}r&H=|zfAnbchn)HRE&wCzkT zRe8Glh?AzT@?}_xH_!o+!n^srtx**2U7-uF*NFD3=h>ywun1hyD3Cbrc= z-LHZ{0m5e|Qb#`T^AI0F0s#q}R1IY{5REgo0aqHN(6q0s6wodu=JQ|>2Fm2yumYl+ zqh)es@6vFOfY5vH)CMfy=UrytQRt62B87y6hnw1vP-dq*IRQwhM5jC}=^|v*_$FVh zAY6q1+J^NCjVE?1^xYUwMwXhyq+hVpcn-i5CZ8jV*AbR+PmpAi5vj8!B7_l!XnHRM zVdvh{3+kK3I>$9SWoJ0*2uC51DKBos#ZX2CSraj-P)D|^gyN4;j7|_spQJVCPcyWw zYfiYp#atlD^VOB%J2ss%AsjoEV^MCeu1u%LSX(%DB*&s8pVFNhlV(sGLuIL%z@hdO ze~e;zg8P1GQl+tNlYUqgD)#&;?jxosD=}cD+rzP6aV!e`DgXYMDy=kXm11gesG8!B zQQ%K-TcI|kU2U_&#awCDFLBQ{=jE0ESz zKrURDy4Rs^h|m|p@p8;=DOh9oIeR(Nch7E0ZBT}O9Be-?OQ@bQ=56gn18&NXr!mzu zN%G%mQdV{jkN7v8!Xw_vCFz*f}Mjr-0lFbUS#V^7UN7=RQ+qZYHx06>qGZ6)~#Ig*MBn8YzA}oehU09684H&sO-X(y1ig9S-N>-&vRLK)%Fio8arSrkM%Y?sw@89= zEF5zq#`uk+?l(~V*~pXSm(7wt{!~BKgqf(wki*+*5FIULCn4WXD#qb?yoQ|JHn=gjO3O~l8N-HXqz%FobTxsdZOHJCU>WDCssc%frh#W zbJ0ugmUDVEZUI}77?)|T%S^=QCwUWUBgS`K5se5AvGXEBymfW^AzpnT*lvioza7SZ zZ?_xb1>v|OZ?_rZC&Mv;w`qv~o`10+e)>jjh?CxKH^htH)`s}nNsA-K_nvUkQ{KMh z`1V`fetgfr70Ng8Z64pfZ}Is41g>{eA$6_I5c|)DhnS?|>dJ9MBL=!HJg+PM-SNKf z18uyu@wRsu@7!=R{cp7!?_S}!$KGl)-dBcWM!!YlJ@s!F8*fWrZM-YrY&YJ0-n#gB zfAeN||9|t6`V8UdQo%r!``{b7;Jm{oZ)bOuIC`p0ld` zV88Ks`@x>~MyQRe-e@=2w}<1NexuD`4++OS{ss+p*@TM?cINfkU>|zD-Cz%WE;B6>U*E&q3KEC=nm!GHOe!I?@R+9$8=DNN3_m2YIC9!>t?kdb^SS^tJH*_j;R= z-WQHBzfL2)ZJdFxGTV&w7Zz=#AA7CcNH@NwjdcG>Vfl=R@%~4+juo$6a=a(M%PKvz z@!q8j3FmXarYG)1_t$v52Vf&MsQ3g==6FUY`%k}xhn!!nz=)5njd%~E;7bC$zeMWh zbv~35)w8~p!igHXK$dJ}qIO95e#og{_-y}Q;Qx2pFOkh1mPqcaVf_DUd;A}cd+gP= z_&*#o`c;~^p}7~u|JR1_|10hB|Erh4|F4Ac|0|cq|0_D+|8Ty|uc-L{6&3%#aw+`( z>wk&=cSrp${(rjz{{ONA{(m`)|6gg3|HE;*SK8wLaLmz{X}rI_@1pqsnh^efxjp`W z`4ad)T=asMFOC1-?tuTp`9{91;{TUa{Eu~Ss*mc3|BpwEH!1_IE8iV;(ebAB654MM z5~rY`9j9Q^OQ9C*#hRIsU6*lGdV9$HBvjn1_h*9di9uA{9IK&}1| zek@%;9$!woHl&9ux|4b@x94Z{45#Sdu9X*-g`(m(iuf73-l0}fRbFZVHdf+iD_XnT zHW*bqzOSR#T#9*^4$gVT)2KHU`HAb|RV_J*$}O1`bs-ehDHL@jNB!eIH7d1%!=oU) ztu9Elz9ePs5S_42&x4oLH0H0mHt)@)k{{WSuknpus@fR3oSsY%&YiwltxDaes7}yV z5TkqqK3_qSvYK40vVvT<@+!G0%Jbw-Q6}!<)sn5*C9A#fQg+EQ(3Cav#{aW@vhBAT z1m(>Qdcj&TxtAn!#twGMUcWVLr|gI8LUzhBod#8b6PkaVLUzhX)2wEwEQJk~k*20c zLzc>{70Hr!wnbu7WhrQ??EW=6+PWkuBm%OU-x$j)SfOypcv;FHu-M~LDVvd&0<>PX z#B2}%oumkA`>?EAc%lCx`(;ahg4L_oph#%ymDfZGit!U@l94ptB^gb3p+%F}y8yVv zI1E^lgFeX&fw`m6YfXgEr#LhPLcixwE3%2>q-+Q=P^2{v8Hq{8XE|x17*|1Z)o~SM zLoq4#9f~Mk#ucxmVk%Z~++!S9#c{82+-{C5 zlB%|!lNh-XRUCH%XK&%SzG~k%E}iq`MN!co#;61<< ztg7giX^&(GcKM9hw{SU00TwM4laAwMM1`1i7BvP)@&)AGJ7(~k_cw^=C}^7Se;t0Q z`$H-Hf_o0$8=?^Z4oX(^u=4F2XM?GSH2px5KX$`tGF0+LJB2-KRfRohMp9MRGwwxH ze*^By(puVXE$>IslmE9I<%wNhPcATh%_)rLOn7+XQYD9Qt&$}i{2r~k*wqyA9k zbE$GvS+rL9`WWJ=*vlR!?K&jehLUSGF=@9leSa|M9}Y;#QSOozr6188El9p3NdapQ z+WUMtfIM?7@Ymm$GcaIHgFs!Kb+8U{Eo$zBhM0Wg7THknbEk5@m2NxG`lO4Y zarqrf(EiUkyha>hRt$zV#($PzAU&w=+L=@sEx}>(O|!z_pPrl{D8E*d&gF6_9B`OZ z9w#XO6UF+6>Ipz=QPp;%YU8*OZ5-F*ZAqmnYC^h)I_gW7B5nRAWD2n9cG(@s>wHsqDGkte0{9ou!>ly#+qCP9v^x$4x>>#MUx{K9}q_yR~hjh z{=O;{Lr?_}ictVT?R6eKSBrRRo`)tgI`ntz{g>$Po00vUnDIOPEr%l9bF}^rqNGI+ zNA!0RBvAfm!$tdBi!oeEwr;llPFs)W<9c=L!t3=J8?RTQ-}|ms zkC(977s5VHQ~C*UT%J7c?{& zpWUDsO8jkbwp4!liL9A^z^k@DKDX_^4|D$u1#6Yt*RT*UYa`H9HQ2@RjhI+dOhTD_ zG7A2RD{FlJKos%Zsnb4s@~W?b_U-Xy^nz;s#nqVQ2&vt{Q7pAPFiMl!wTa26XLN$5 z?iG{HTpHy7g|ruCb^-4wqt`K>S@}KhRcR1euf(NNk72A>r-`OeMMBj#&l9S4%41PB zB_x+Jb{UXc6Pg08As~gFaM0f}SP@;dSo$GL2*q#F8E}2{{w)&^?%7iD<7t9By>4h4 z^lO_-wpuZ8lC8~p84ByAMq4XzGChvV#THsG*=F2%+}DH8r0qdKf20qky$ZIVyD1p= zs+#5-TzKzYW21ZXDABK2mb1o>tyO;L86hsX{db2x zOI9>hSTmtXozc2)zdg?N;TforPW_f%I#S+12CQq6x)70(~pbu(I~JKnhGhs zMJ!LFCAL-C(}b)i9BWA(>o_>SOKry*4}gYFc(gnmG1k56k?%)c_TdYDd8f1AF6wiA3w$2Nff??zM;(R_1wBfZFQ*ay4#S@UWqLMd$<^v; ztvVa*U`9uy7gTC#rio3^AiXeXrdced%>uQWIORR0-5n7{cN~iM4+FL39cD^s8ir}; zF5?9VOFbs}M<|jnS@Jznr&lgrEn_REm^-P%I_#+8bz% zm=FIvMe@&RalvWQm44Fw0L(8!2efr`LOX=l>mmqGEPtNXYrS&w-}M4olf)MJ9!-$s zXeT~I%4}tpGfsPgMDeZI`1CJ5UNjPxD5W>LEjWBfdYmPV0f`8h;3g4tvSoq{b8`mn zl!@53LCDBW!ShhN_FaNqt283J_U}*WN&iP49$1meQ_a>CGW<*!U&}M8%siv2Cvf`6 z+>{o5@%LbiBl5()g^g%F=s{FzJSjj|A5lOH71h%W_#OmMuQnt9t`dcbmn*Lr&jx8^ z{EJp~9s)4%Xo`PSlx88;TJdP&B;TV}$+yx@u`6BdjASR5or&yBVaLtRY<5c7S-{TI z;3)r7t``F3DP4vjZ&&bV86YCN3&rQKlLwBqVr3CHb>*d)Fi<`i96?x6<6CJ3U!dF` z`j+T>HvIOd7lFkgpSjBrvPBmtj{#p!l+doxO3Y$CH=w)#5-8^v;jPb-<&>hl5Q6+! zP;~-TReXD(JWcfl*n;<8A>kT<1}%>H9SjI#wZgt^G-R+bcng*W?2HW4qL4kKm>q7f!^6=n zdJ?g_gor1*3`l{4(#Hb-D;AxkzUB$f(OgPaA6>!=$=qA#|@Ej32wV4aKkB{~)=EH$X3`r+B*e@voz; zfv}oI_A5Dv^v_h^buu*Kwo4$EsO^mc(Fzp>&$X0Sj|EE-ni(@R%MD{DOo* zVw~!l?=r(^$6w!%9_QxtuwZKV6?0Lkstt3@&*mJ@j$~K;&aFj%4)`CB^>h^nypV_9 zD0eqBEb2g$Ve_$ealo^@)VxeN-V^x}Z|1)R1Iw0J)4kn&Ee$v(QX z8y&>6q)4{J&>9Gkwoo}f;*~#D{_>tqOK)3u^UXIS!{HX^alOE)+^8S@Q!T$*BIj0u zD|IwW0I3$LBRlF* zzNo_StOsw_Wc-YX24L*$D&}^4)6eKgNMD| zt&WTYgUVe2M2Y1RPDky45c6oj@c@wuj>+iYcm^Dg@{z+%YSr+``ltgDBkP!fY9F=^ zrbkQEXntdrbqKTinWaMbDFJCC?PG;A*DR~cKP}N#JTF~vXV~g8 z)3LN?u{ZL3>;c0s0MQG*y3i6?h*XVJz7y>dCjpv2&hjNU-+;J%ZldI!n+8<@9ri1w2OE8eOyAaq~%+{4S1WmOnGm=^vdC25=aon>Fb6 zlSZ1HcXa}^cd+2@uLeP`6i4Yv1~kkf1fh_mO4z`HcF|F<7+=tZUqDnjZl#XEQ@(c~*AV=-R zzYvPct-?Krb{v2weCH4F^XQDr#N<5)uF$GSC2<()gQX{LzWGQaE5qI*Hl*2LS=XDD zG%v((RDnCTp)CSXp(oDqXn5@d>8Ru{$G0r?JY|S(NPcJ3qso2H>jasK(}uuryP&E@ z!0m9b-xd}6te$!kq{^BnChwYl?FkioLh$s`rjs{{v|&yCUp>fKahwLFpfNBR4s8eqQdR>aNUtr1)B*K#JVim4j})5=pBfB z;P(=!y%l6-ydS?PuN<`Sn>6^}ts`?LzXr-(Uba_UIHwb92hZ}CCF1J!%}S8>W%;HZ z&hpJ_M1|h6Q6G3E zswYQP;KP@qQt%4+`BxF4xN(b-Znpw`=ad~Lgoy-6zjzrlcki}}$)ABc)DFNf(jt*w zp0w$m#pFh@{Q78yG`|JWTk;+Zt`^Hhd;*ocPh5gBS;_V2{uyJV@!4f_oS6I>p3Nnv zm|2C*M39(ah5|7(jY37UN%B6PV78$Waj2lo&YKz{&YU`Y!HH_hx52VId%_`(3EI#oJuF0JJef}C4{p)^&x(>_dFoyQI#ZTBW4_sytC5SQaYTXW~E5!r(ANtB@V4q za-JpxJwi&qFx3@tYy5Fm`mgQ`Ct`UgVRFY5~+c(q3-<#UYcdaxE`;2 z_a^N36iasLA+Z$orb?(a)G2@N1RC4q@(--SvE^&->Cj142gAT$Jb#UlS0VlXH~fyg zO4#1kI8Nq7IhC8~Y=ly~aO#WSL8c>OdqInoPD&e-TT3C_fGtIa{@Cv?puEabXnjln zXj%{0HfpdPHe+bK+D@#V+B!7izCmm6C)fX>_P)c(hIVXkZ*K1tXoE8PXq)yfgYc34 z)%L#q9kq9vJj>qP6;)hJw2`8V(3-(_)?&_1z`#>uc`fCf7n1_bM)Ym5iOCI94X~W* z9b)q5;uCxE)((zgA0lZ1Yp>cVml0(-_M{{)#l0M}eaJgq&Mm%J15j-@Y#}X+ZcA<` zEAd3)$WCY=B1i5mZ=_<5-!|(7jfB7+=TPE26eGx^XWLNNM7z9;mnCxV^snnsWI6@* z<%L2-8=?H)Z{qb-Vd-YIiBmc>v7mhuO_bwq$l;(CxGipMV*#Zu#5NY-nKpZQ1M&Ei1w@+BEH9%CfdrYnrDNTULbocQHUlaYVb`e_BU+ zH;3JfTSD?@Q$1>H&<2y$B`?PIAb7j<1kO(HOhj#2a%XHunR>FQfNebWkc}jnobpy; z)+0(qGCHS>n&l94f%MHaHvE}vL&P~MusI8qUtZG*D2}i0X_D+vrQw5BLDU`Wt&w2+ zTa0&URw>=FTwE~kG;*9ivXHtaF{#v&&7S8iiR^jWlER(^7ORe})YWsqs}`0ZU2Q2; z&DIr@yV_F0307DHy7TzRQbq1+OC?8qr0So`YD5{zkDkzDAZtKI6>zA^X&f2x)Ya+* zl|P%nDvaPjy<7^D4XBd~6>^bwEmEijKiL)VvlO>kaF^$>yGo@lPX44(7l&c0-m}s$ zokl|AO@{5AFtEPCOlz$Z@Gx|}z&aIfx%^w)`^O%G;@DOn5+F?gF+1&eMc%^c;-*+q zlqE0FMjm@bih&ET%dN^26gd8rT|SJA%94e|_FROO!2r;<9Q#&hgOGZXtdj(j*+R&W zf1*lNJM6f2-0A0+aLwlU{c3{ip6YA}+baM{aFe{aFn)KH9)_R=iYSlK4o^Adb~PQ$$jU0c5XLfufP(S=A3YBZK&IgfB;02~y?kdE%JmrB$X?$Il ziCPz-Q@gYdin*t$JGv?!VLpJMC1+^bR%(Nb7Z}|)V!0AZC5X9D_6d|`mz39D){$A3 za-qwRh-pGn>z}AG=*1WgUz-FjvXJ?TofzDVT5&uQ>1%wQ^3Vcq3K4B+q-D$n*dN6C zN1}K#hdlEq)gDaZ0CiUTsGggy1W$Os(}vlOGk^_D03K>k&RR*O z>8dd0F9;*S_|G<~_|S#@QIAwWD@G()yRpq==Hg^BS(<~RmlH9WD;DWO&B4qaTcb4t z5OSxR5W9}i8Zc7JsNv&mEFqKu+Y^lMM{U8`yBcbsTI_gEvEwP}c5A zPI2yThSNVBV+CrkeRLmbO>>)dlK*a<=QsZy7o_~^vWBA6;@O766uaLR^mLWH ziq0n2&-}5uH$-B@0CA1I$D?pcuXg6wSJ-17vsSocrXu;g+{n){3M1)f7MdJ2MFtHA`EoINn?$eD5DgI@fDcm#A`{Pu z7n8S!l4Yyxf;4R+k^<^P1mh=c2xBO$a~ln`9q+hsVrUuU?4(ky!T3LKh{R_wAz^$r z7^xE#@L`tH2%V`p)0Bh-v?iCRMXX;yL5$i8%=0`>1X^p+)izrf#G$JS&1s6x$LhqT2FMwGi{7 zJydVRU>$K%HFr2?ET^JeINYXvx;QH;Ae6%{CrSI#39}QYHIdF|De?+c(+;`@jWo& zTP~R$@x}28?b7#(_^vA<=3J9ORXxJ*s}UPLbc2B&5GI!pkE#4dlGru-a+u>JmiN@7 zQY+@|B~{alYn1=YM#)ku-uU*q0f#0xKyr;Kcx&tav+Tw8rPqsD^*$NB-s+t&E!814 zGr6(Ht|xU<)jlt>czv>p54?Q;kZXLeJ2p%%py2*hJ}&~DlK+@qYYpD`$;k3n?tF~w zB4Gm5*vd-9+i24t7|tg7yjZ5&DTgzND`jkil)ncR@vC_R$irz;_i71zUaZiSkDAJz z)rX^$t4jG@c2R1>AWA#;8hH=CU!_W5$1nt|1NNwMg7Em}bV@M$8)|-5&W-A;f?qp`ccdP#T|JA zZh+vgPB4D?mz(ewa?t-($~lZekQMzGX;C@GKU0%(cHz{Xzd+HmaSg56?lL1 z*8Q}0Kj4KH-)w;frZTqG_On7}ujUy43B@251WFqhI8LSs=WP;~@h=mXap16#1|xxK zX#%G4g$BAQM@6x8tM2m}D7CRKq(%!=biWGOI@3^%uNIRVXT(W(Pno`T_EDtYmsog^ ztprNB|KNi`oU9UkvVn(+^9yLquCwH=GN662X25;{uRu}`i8keyI1*#0SMyC$xA6P< z@O|OEq5DEs96!eF^8ZgFoN+4o!Vph5)}<(q6!FGLeP8s6@=5%q_#cuy%#1QQ>f562 z%A1^YkjtO-fXjFPqb|SWQ5eKts4Uulr&)P(*Xc;^#{(EhtdCWn5bNUsyd#nPS-V`m zIbSJfpP^-cOV{(5J?ns&v_EyPatnlt=J`|jK4=~a%|;1CQkxySphDb)=In!7KWD-> z*MS@LoI_B;Q8CVOROu0j!sA$KgSe(q$y_A}rB!Y*wL$slJ>>g6pewEN7{EpPZazZp z)Fk9~mlA9zS53cCOx}o4H#H7}D+nb8>Krq4Ga%Ot$~7gF%N?1kFqErE%k?PbdX%sD zy6&e9(6bMFunYNYf1~s5T(fqSw1tjgA^zfQOM)41lwg*SH`v3{?gnVCIV*j(#q5d6 zk^{<#dBkE*a>~OJ#pI%dsaK-`I`9Uj_Yji{drj?z-xe{sPAu;gC4}#A{uH{yx$F{G zIF^VjoPf)F7u1L`$UIw!JCI^C2@xY*Jm&#H zEPWsEi{?BEzG5a0=i60;v@4NXhl-&C(7K5-UD>7A%(*YJby<5 zn5`J7Ksg7+B&4s@+s2&jV)BmZnGn9CE?OrheF47DPY~~2OA@ybi)g++EB$+S0s$Lx znQle-RkWtPUCGg-PCBcu`7wF{yiZKpB91mr-G_jk`-zxbGyOU!@lz@v%Fg}b1QUQ- z`Ogld9-%FOn}F|U{U*s2UBH8j36|32~dZHOWqYN*6c~Oy(`+@Mjxa4 zNFy7tAu6sesm2>c<)OULozxq7XuxWiNgRF1*)JL=1BY9xZjC~_0I0lz>;m*2vsW)@ z^Gn9l;p18E+IZ-}nCp@#!5HY(nBKj}KmHQ{D>OS9Z-#F<@Lazd7|T6)kl&}?z42M1 z|7Xh9HD`i$nXkX)dP$y-`?-8T-bM&jdHWEmKzRYh^s?lgE?G|}Iy_Om^eK{=!%bn) zEU8~tS3X^2ceu;4`HTA#f4?4upt?EH;K??W@9MfQ7)(8s_5zYDV(CU);`y{t`5Ir6 zpG86>STC-umi#eKy7H@t9GQ<7dj1#eD$JrJpk3aF7ot}UdV$CjJc3>~hwLnEi_}N6 z5c@}K3@_63xQ5J^(Y6ZvVOKGEk5kM9050*<9NNGinR`Q%J=>uah|>?&NJZw6luL0g^b~k z#LJ6aqL##g)>7U_}XyUeKLFTKWnt;=ssB*UWV_3q1^-Xg@}yAg|gWX0KD!+ zaK-y-#F55ZOvvNA57EyKF?sv+MAR$*3l(UWPjS&UcM_8TMswjK?kN>hJT;K9%u7rq z8UK6$sie5)s9|HjWdad%<7xOQb=j5>>)0P#3W@QaAMXWefg^o%ct#x4H`PoZ&A19F z?QI%Kq>P{k0^5`aj2g9*IJW6NW2DkTlo~RNNe9INwb=Q83#>~wxmGNH3ME@mq$qBT z+1sk~T#xJT`JH;9!j=x%oCcyZb8A(C)n>w!F|}n?o_-k3%^YKV2y)cf(sXsUbRElm z(D~GcCR?2`wcge!EZKZl401?@>_p~e4W@^p_wn`?cbADWU+qy1DGltpqJyR`GF^2j3*Y^}2qI^%`#eUQ6$J=RJ+P)p&<2jWs zj{B70!)Ilp`U(1EZaC4(#VS9>Onn?*gY@#18oi6~V0@q_opno)?8O83Qv!NAj2~BE zeCZRTpjD3oWl#xJ+f{7^Roh2}zYu-iw!TvdZR_)OtdGVU!KEjTbuvyow|`8$ZM$9w zkKPyq&soksZS?LU*h*Fh8{uM%2?4D0cAWN{@W>N$!5Kp^L-2K@T1_o&l5t}Q)b?(p z{q-{y#>Oy=sfC0ZJ?O3;?l|w6s2MScLVb7jX!=XU>nTkhl^*`V8lts~>*$*{NaPzt z9)F|y%x|jb=BB&1X~;y;hmZ+T6A{RSa7c3}6|1yICK~pD$@_M%QI&qfESohn19(LP zcMYikGP!M^Q3%7&rSZuPSG2_^L45=s>8|Ub%qTn_18DK#m?Z7N@pzJ}QgN;MId#eQ z&f3bD)j@9VHZf^4kUlfeK4fzB^iK3BF!vLtXaK-BPgn8kzV<`Gec#9Us4ezXq{wEE z71}f#T8jJR<5BKd1X%PpCFsKnL?GTC5s&^RRQ27KAERq>|HMlR5p%HwFG2$OY0Gj3wiT9F+4HJJmE^hQ zFFlA=RbLh?x-7!x{q$(>tR8}UK-ozOu8R!TxvwZ|D7qI9PFk=Nf}=bc5VREtayX{c zWei5N^CeOP@CPG-H+r!vE+Ynv@l|r;#-c5+;RE3(qd$J8G#elz-5+m7UXV@fU!5M9 zV~|^$qsxLeQEG*CXew)vtHI9-(p4qu(-Htf5J!?$L(X-RE<>(T(r~<-*-z@$#UyM= zY!eAcCEc^?gm@#~5DxDpjz(6}ZW1!M5wPKnRov>hdlJBN7&EQ@k@nGi36 zs93^BuVeZx%qD(O-|VGflAECA2DE*2stHeEH7fOt&nT*cQ4&AHl=Q6{zYuv-_3bPX z26K@Y@-8l3N9xJ+vo86tn03~bkD|vLCEo7l2x!B_&bPTav6Wl&p@-M0L4N7Y{D$rZ zp^g5>XR}p$n{nFs`7{Qy{R)%R&u|4EcK}dYocVQl<>QaBO8y>O)nm?>I(#OhB)t`R zLXm6fsU{q0-$5 zN%JUSMmHq;Q#d+;TFn1H>wJzKOt2PXrQattY8|Du9;K~Sn=(EnmePbP~0 zo~sk^t>2==tLXJq(v<=kL|d6cLj5b#*s)%TH(-uJ@Jbw#%}x$GdF&LhQ^?M8c3Q|$ zpQrgAOoYEA_)CGm!SH8?zlqAr59@{0D$?jyzL=U)z7!l^`7&}ws!xn7f0ff#vQtG_ zc83yf5BciDSw7*k3Og;7Md+<1JQvE+8qQ*X=!){9-jt)5odw`PTlwQvcAjVFX?9kz zQ^`&hJN4`|vU8Xng`F05TGe<=NP9r;q)eL>eNn|I9 zofLM`*s+pRF0qr%P7XVH>=dw5$W9UGt6*nwA8c)LAM8qLpHNp?s1pkP3Y^l!j+vcS zZs14!wTeoqCul)n}yGH!U#Y^z+1w*?&+beeMTL9#xSlnl7${xLet zw;B9W*-7kaGEWRR;?q?Kf*jDoPAfY?3Xc^#3G5`Ylf+I6J8A4#*~wuiFNKsnR%Gfh zTTjl`lbYZeB+14_eKG`mVHX`N{)lMect3=!E5bKA@qZ5(DKZv!Oe3~mZb56Mze&Ee zB+uk5Lb>^1)7U!E>IqGB~QyF-^%zau^}sauye(gm@0vBVj_JM@dv-3 zT3Nx)Vs@6Yvy7cpTt+2-eZzeL7WY3!u1lf;g-Hx)1OR}MSby|FnH zduz?f3;CvmdF8e42uWTPqLKTmAAh&T9=XJ*Xj>Ye>eiT-?RC zaz!%PXie5OkJTaHD%Dp}zCD@x!dX87r^|tB2LpsqR#S?WAtvM#LOw%^R){$T3+a)9 z8~Y%#u)r}0?pD|rX| zS+Wuzp_P2ZL0c#&KtbC{qO=;>5yOtzS5YxIkkLaBmRSQCN&kHAxxWT7`U^spRSIMb z4}KnOR~0pBv50?b{Bl1ELgysq$9Wv2E6@4zRh~g zSFiapQgCDgUSy@x_lQS`SLWFSZ&k>*I^?Si`92EyszScaAzyvSw>{+B9rAq= z@->EhpND*hL%wfAJ|*P)G30AeePN6CwUPX_)GAujB~>)1C6(;(w3pPg!}DFjAW_1w zP{OcKLg48uY2`07e=%f~B(jshP6|6o>{!`JV<(#(iJd%la@Z+kr+}Sec8b_p%nqw& zDOtwOQg&9cvz(nOb}HG~%}zZ#yjzqsveUwj!VUv=Nh^Pu`OCykB0CA}q_C63j+LD> zcCy)#*vVsub#0UsvQxlLF*`-AHofdW! zb_7DyC9V8r<}VXFiR>h>lfq6CJ63km*vV!`VkeKC9CixXDPX6Vog#J?vs1y&GIo}- zvx=SN-~@Dpuxz-1Z2_B!9YE8EtpS^v;}Fb;N&#Df>Y^&Q+kLhq@b>2v1KCLf2Qav8 zFknZk&t?zUBreZ|5dmAa8b1O+l&wGz^5AQVAee2CtPrJuz%8QW zC5T!AC8Yu%U;-tm_z7Dg1xgmEUf$&bB}?gZsVz|Qe8{(qd{%3qBR-PvHB!*!D_hJCZ>eR=*jdibDs~t}mJ!1AdsBK+ z_T9v(`T~52CGEb~5OoI1whP)p){$oS-Jb$~64aXwe>w1Hb@^Ve=i%DTP9r-=OF7ae zUagb-V|AY2;J|ft_x1;_UKrvZt_#NhX}wW!`7?B=7#iggT9pN3k=*%fmVcPeA+G6W zTaV*yllMAG8{FwGfA3Z2^@6SV^tGN?N1DlFa->N*n`qxFuGwl6*Hl9mlayL7*EoY! z)r!d`_mER}LsrlBQ+s{)!uJS+P41Ll?Mbowt-7)XcUQUkxqdZ!TJ_b<#!6b9=~biz zV?>or-mQG?&m=pZJLOE1uSbPb-eL=Oa``63z+VseOSJnY^#T`wZW7GXBmlfg z_`u1LW{LKk3Rb1=^$nAp`6A}G%l3+Ml0ViKWe}9jGjTX#&zm!ZK_&HYBJ)H8g$VAT z5+Cbrts1oR){Vn z0)TlP0mfeOE&@zo{*$y2;iPK!y}OWR{`JKa@iYZvz`LYC&-eQC6pkxcB;WFo@70j6 zQc#Z#^FIptR)u`4RUedz`$J&<>?q#bq1IvwSk3{rLy8rI(H&L^wXjXGCZDXkX-bQWB1C16U>WOp)VvJGwCb38LaWPI$tdERb_=Cal zA}!?e5@96Qb|BXx>@nRv6q5{3Krxvr!5u>iUia;X#>nf;i22+=R&o3@lTd6V;=W=;i{zizA_cc;4Vl@Yf*G;c5FZv@ zcF40mvRC2qCHb^6zD5@^xP5mKZe@#bAhnYFbSSwum7I(v%Zn-^lKvXgKI!ooOlqK{ zBZ{bgyDog_1bm=@;*{`seA~5sIbV0ha(?{)%aN@SN!N8qx|WhQaMF~BqzgMF zT|h}+;G~HWN%K1-{U1s?jgz(}hm)ptNO~(Jl{l#qkuD3ol<@c2yxIDk5omhoplj>2OY3cx5=LxkJ)!lr)i(=0zm^&eT5XHzrK_+bT+$9g%c>hoqI1 zbSo#dMkHO-A*r8|zQ{>aB9cz*ko0eq)Xhor;srrN(1SW8z0DLx&>5@RAn1to?o87v zJJqRu3BPs1$~sYH!$ZhwSBG>vDBV{pjiIdtTl7YUbgy*^x9Gi<5iN?uKPkG1{&y(i zZ&a0=s*)2Uk`C&S^fpTB zqYm^b!RQ%D-m0{2&iJw?@2jxqk{vSFpmXG+fCv0%D!(|K_I%W6;G7E$da-(cw?)m}`#o;z*)Opog3 zk4th>uy{3%*xyOZ*w+_Ouzb)9$VQtx1fTPz$Y&Qz^0UNVlY3lI{PVfsaPQ`PfS<`rU^Iy>PGpBja>gM*AWHJu#^2dI1D|TX^jmiwh-|_^4NORet zxyh-A+Uh%-ulBc*`fEaf%0%iN`kDU4?5}vJFL`MqZW?N!$0nPGMvG$`LXQXHoMw~< z?IErmYMNA5HTPya__|DTfcJ)_>gyDnxTz{41By%8Ecnw4KNG|?Lt`pRN+PY1vA(U* zPXF7g+6>}z%Eq7G*7RWPwu@^z^U2@o8=Gj88=bysipy_<(Z6MvEWHcP225~ zf64OAs+WADDv?DX_I-sEc=@tcA-iC(%ip`?m|j@?zvCCcB0F(6E@(KsIhILstN66t zVuMdlth^7^p^qAj?QWHy#k*esb$JnQZm-Qcam1rB$BJ zj&6?DC8lDPNBY1ksdG9C3K&6NMw&>swPB z$S4&)u7`@uwo`SG%jlAixJ1X{=1wm84LbGvH!-tsqNT_N2yZ>E1y5g_cb-9zt36#& z(bV99I>9D)a^evre>ZYz3{O!yTd)&gDOnF|wQt9@8YS1XMN&@>)R2^a2{FpUC^9g= zm@dyTFxC|uD%ixeohJFB#I@zfV4vh03f>ZhF4Bh@z`LBi(UP~u1fP}kiD~LNBFZM$ zT?fS(e0EE&`zFc1kftUYR-eU(Ebb?HcafqY8T^{8gC6}{Q$FtU} zaOKWV;^w$Ts6EPtveri1hot-R7_^PF!P+qi#MId>R^1FEI#l=@p~6e6W)8%Z*=kBu z4jh*`F_4KoITB7B*(RnSkcnJ6fyc?<7O{5{cO^5WIR+=y9Zd#CQn-fYCU<{%VgIX8 zi{!I8-~eEo%4prXFY~^E?k^Qf5bLVx6M0X_#~Xr8v}wSqe**{Tl=qG0>|m}_HoRsM z7>shSB%6~vf7S~q4cV8~DiP2~-Z__0_aA^<|w*;L)@+_0{w?^=0KtK2+56 zOjSjBIWZ$M=b~+TSZm0dwPPJEq>rO7Yh<#e*U#y9i5=F4%DH!mBX%o;p(<{;!`G>J z6EgjPJY7wTbrI4D@)F_zdaKQKZErr2a zSNb>8?#U_(Qgf%AY2Vz3AOr?G7(er6?6~ocGwsJm!Vq~|Fn+|#Mzv|*xa3xsTzdLl1qu-R^rp!k(dh4L|DONWPKQZh}lk9suMgBmsS43fB85KrY8EQ43kd1K{cD zC_U!xWKV;|=ZU46=eTAgeWdP98)+Hp9>nM?+MU9&wv%;Mw*|6#qJ5(ieWQUo$+cKZ z58H*Z7k2-1#!UB@o4i{YhfHCT#9)fV@&kgJD${eWZGf< zAySwUPwP)-M9h%Jm>b{qKmu{V=EwVZdSfwNrcp74Sd76YCgBU%%)!3VY0&>`#4;O< zkUTmDdRN*yR5)3qb4Np>PnrjYx@0ct-}4e(!}mO|Qmb_?qCE1)E0km8_kkDxPcI%# z!g3a@AGb7*-Nh4Gqt+4lQ~2Rs&TcXJ*QqyMh80SpoRU8?i3d2C4OUQV{llrZ(G2mr-US>>f5< z=^?R9wV`FVxNU0@S~4w7FVjjcf0~H2d9lTto}sob#ETm&=f={ix!2p%R^l-nALf`d zVeBVB$<5InYw+|-dlB=`y*BN|a0UxyaH|>IR4>%8HTPOXJVczwjyXA0@LX(2Tykb2 zEoAKXv>OCL%}jdTu>tNGjjr&FQeZr~mfHRyU-1Qf*KJ5hd%7 zbeVPs6mSa`U>D7cBTKN0W0q(|pbfe)i`6oopfc=Y&XODgchXCnv%A^gfT1a#ZK1Mq z_Sj{h4*`}YS~A?X1j?7H_cCw>b6@W${nm3$=r9li2x~rZP^*s^psRLW3wG9w76;1? ziKVQ;W2B`>^8XW0oZ?zNkm^XvYc%q$f9x#(a9<=vsVHh)8)gCote%$vxX_<$k(j_T><;BiD0n@FNSEc=d^#v<00ZGHfN z*1QrocP3zdfzJuJre^dAl!tB{%e5Ovn6(iAA!FY7h_dIRX2Bm(9|Ig(TTxS&*dL!7 z&qI>}XH}aRtVobxYCmcl#AdTIX(WC4T z?cvWZ#x3?5^&}O8b7SyO#8Pbwf7T5?I6WXdS?y_4fGW8j=QCz%AG8yQb4@3V__9L| zam}%Htc}jz1WO~Amd1P}8&XLV=a8hude-DS#(3A~^mZ`kfFt!=$>%^dAh8F((FQRS5aO;OZ6|fS$O9x6SPU;#fq{r2o+zW`m%w%d9O@j z_r?A^V3KTi1jUpK6vgrB zBF?SJBnU%L;u3Q1ZH{_hS223FxTd;vulpvbun!g-j|F?gRl17IIe2iTk}kWsD)JKx z-d)0OY1!rEtC~WMkI)u4KP=WaW!d(Z*&iS z8=RQ{g8_T>J3kF&gcO&H!;~|k7b~s|ZI3R?NZR){NAAErbv-VM-0&*Y^;n{=$0}8M z0ct25SB#U?gEYb9AdZc5l!{5;i*?_R5|h3ZlYSEGzI;op`zZ)xh!zDZuG5kA)wod$ zP#L5I_%VS?C#^vMm^IOg?m;M-HX z7)LN>MTDehij6!VU%g(k!BX z;R@ch%`@z1pyBTe^a4F5MQDZce}FNoIbm08LnLzs-xK0PQwI{Num~=k5O1sp&xD;J z6~maeiB(|QU^{Y%qmRMYjS7C%Qb*FLT{p76G3@bRGBH!dPgncnK2&av42mnat7Aqf zlMhcfBAwHTp2Uu;2lV_KhSW8i7-Q3TmUA_6iw3KC?VNW;C&;6SN#9`@Rg>I;xxZ{S zs7UigE9ZPetu-@&m?xLnPSsfjAqtV=7-P?`^g^>)!)X{Yi_~8Cud=PuX*6UQFO?T_ zS?Z+ZmNUjMk4RI|!H6W(zQ=25LbZl05JP9?Vm=kql+#2r;)qNhmzk&htw)GQplzTd z1DPyIl}VCR%BGi*Q!qcVXDB6_u|>jizY}@9t)5tw zGMcAyjU{}r4U^xJuRW`yZnx&cDX)eoyb3Gv8oVR$(LZKI3$*SkKySX zu~}l-L4@$oq?<=01Wf3`6w~MgQVfAQ6mur@0?%O;xwr^(HKGcu#bPp3_SuBdMxMaB zTvIQ{xTlGUCMJ(sIyG8M9{2pTM}ho#r)enOJuV||U2lf8cN$=!nk!lo=(Cvm9GA5$ zqL*1Kl!4cBOL5O86~1bZNpomKms!uP;>pwrHy_e)^>_e)~ooCcO_zC0F7c|z78Vh ztJ~*be>q-=YLyLA=jIw#6SlDZ z-26augUA$Z4mR;LBz>dJ(h)J~6w-k1csgsVs<@`moE_x(iJY;i*`c`_MssDwxtjVH zadhlc=OH>Kfp<^R7COQWNhTa@HqhP#+txrR>Bq;@Jhzr28H`&_f69)UX=V(@?7aZN zpv@C10R{_|`Ha9lYeGYFXG#TS?Z5_|u&bMq`O%R!q82BNz`csmr;Ri#p|waTYC@(R zNkQCU8As-h$N~J@D2_d(YHxc{;!HV*LK^th93y&Aa!ixWczFWS%)7CMFUYPSY1v)k zQVVD#jlChQ{hFHK7YlgfSTa)GdZvK;cu&t2IOqwQCg>_wqL(|*jRS>RKs5^iSVUns z%cB6DIVU0IPuLEC;@n4zGssY(@f^d30!7QdLoYmyROtRwDp_C(K_(6ySvUrB`wLM`GRcE9jLzb1=-$ zVjAV@)+lT!K6jB9p#l7|hMB#IqhON{AX5Pvf&7QED&*ZK_S9js*`9qlKNl&-OF^0) zC}$b9ce#$QtxVXd6jxT6TRRo|A=hE;-eYlMahe{U%UnNp%z@Yf?7~d z?fsln_oCFPd)35^p~QPQaU&)E@uG>9P~umwAj!~Ho*4{J-K%WssiU6I^k65Oqfo)@ z67>3_FeXNAo?^dD7v=!YHC?E$AU^~>6A|Y^$qK0iEoRnh&D1zC`HSf>NOX3>UQrJ*gRdNgoRO}_ZaaY@iTXN{zy9lyKgxk) z=DNmJhl18YR@-~Ji;`R}nTS@{mD8fa1lVnlhX}B+rH~b*^;*i$&I4+!0H`t8uqUb% z84+WskE4+~;V4eGTMCe;OmFfg1()!h1B~YooKxc|~R#%jxjktj@BU!sq$M}7{^=McH7xIL0wcbtC{(1k@ zDBGvtguZC|@98&5amn#pzQSwxH7%0-gH1k-P=Cdrwss)j-Q@`Fo$1KV!{AdEp>HqTpdtMeW<;KvFJZd9>) z9W=6QtJBMw1a}usna%rdf7+sTrv>p=gC_AaV7oZB>haE=h&4N4 z^W$ASCfi1oqHoqaQcvQU_uUWmg1u{tn0#caiD|S6TVbu!#}@dg@sc)~sP)>0YE^d( zyg3h);}tsrvK(Wk z8bk^XJXTn{N3WPV$h*O=BUmrqa2Jj34F~~O|Cv$jHs$FD(7?G4?YR#+L>gVL;)m{5 zaZQ~hFW{L4aG!i7tJKd{Rq8wC$r7p6XNCEsW44xIr=$KfpyO}(>~p+bo!v@2K~OhhPE8tt=;qGvvM0 z>K|?=yOx8z>dNNB%Y&hun&r< z7t0WXo%E8Ri)RFk!994C8r}nSIzIfkUhqCiQOKqp51)Z2(s-M=9fsoXD4!B|VsJR* z$$=Dt!ZCRLQnCvO?-)tmZ%5S!JCu(agF$gkYbl-#%TBtD#eWst(ExLS=IfLeIH+4o zgYKTPjLm*ur!4GF>W;nI#&mPle-H4o)Xf%zJVirogO zfFu%2pQnv*jf?r**K~Mgc*mCi?JGlhtMc)UOt1WtO_GXd(&oZD?$sy^JZft zDOIA9QY9TosoIb|d)eq|9Lf*WMp{yk1&PcB@O&#K*GuwZ!lr!zCqcN|GEnS0*divK znPC)@cTWG4;j0Bx+Di*_`M%=roOehP_d@Edgi znkBhfOd4!CF2?CXX7r)2z5_#rlf{b>zSO=EU%uk$tJI5|C-EFXI!LRh-yG4sCknN0 zJ;CSR+$YqgWB+2yrXzGusE@c}sm1X{UdnwF0dRIh%ZHAHQFY0&255xXcOc%8+>%1- zK2Kmfr{50&cT91VR=G2AmqlT;p=n}r?Np;U`cQMKm>hdGR5KMNKOVxHlDpH8;jP-2 zDOp8KnZ~JI#iY+pASYVP`2tJ8d-9=fn0Vx}G$QNP+!HG*5R-oq=btAC92#RgS*3GB zJ;$1F1r$ecV+#v}JkbGwF!oLLb^t&oM}fWbaF=P;h|Eu^ng1S{d9jvRyIS~r=o%bv z!S!Uy$~?7@Z*um!GsNWYr=rlp(7|X?7~&hm$OWV*cT^khgqyuF9NIi9&k6p6LL4= zSi7;OSMhozZ3Q$HKW=C){M?-viWQRvS^(-22v!MROF=ajozT$N|6aFi7$q4Ese=4a$v4!=FMV6LVUTJwbr+ z3){+dh+~lHF-9`*6@?v1I6Ep5g`b_saj}U#s)>uOykewVZkP+PM;$)6X^kYl_R@p+cz0Tg;y>OZJ*I#JxSUL3jx#>H994ZHH{2|nNN57} zM`xJ1^X7lVkiY~&{)EFbaQS5PV40>|T!a(wihtY|G5PF_PGZtIDETZbfnAb+0qOsA zh&}2jWr=g^kK4t#1=L){$m7HbPLK(A8?JC<5978KD`&)x8Ia; zvzieHDHpI^?oP~SSZ;E65!WB?HdTEo0E?%8Xp|6Pcz4IETQ01fD)b!3BUB}GFzeZd z25eu@%bX3E7Fumypk+7jB1;?ClWw%kv+-=ia99V&qeMCywJ|Z4zZkXeYG%b$EbZ=I zyq;MPor~8K>tXIy>PsJYAK0-8Enn_k&&&~&2OA1x4nAMk;gTMjf_QB}4N@4mowJZm z?h`DOW4>dcIAE)~T0@c&W;OAXEZLL$B(rz>S06|0W)|xjj$m@yB=BaU9z&qQ&K>QC zgtfGO#z))hQL%_-q0g#}K8FTx(8Qs<54m<%sEmg+ekB%3u~T`tn<a7|CheM^JwC z<(-HiKXdsUiKwD@^vRPYNGhAf(k=++W?wEIYLa(~aap^`O8=-vF?s(~w9@ZLMB1zi z-kl_(z4o4{jUCbBDEO>t?xKfksG!c`Zr;ZChORiEE7Tln%Qz&%MkUG_F>e9^t`o~X zWkTSEVrG0lJDY`Z$5|*NUl_Rwv5P0;C0=zc0!%m6Fhs6xB(_sa^01nO z;MFB}cgdX{NNvjXHrWw&WSgX z<4s)*8&xf^!)9M>TfQ1LhAcD8VgS z6`o)|?ElY+-p0}2Uc}L@&fwxKbT5GHv(&kL`A?A^r08N5#2@wTFvq9`fM|XgIt0Pm z4z}W|JpdU`E#frPzR7r@wcY$6QATSe%4jW6Mw`!TuR7`yDk(plA8iTz`Vt8{A^~r= zG2rbs33wZjfVTk&cpH#_w*d)w8(_fOKpgNk@ChfhFf``2WZ-HBtXaC=XCQ{KnE+>S z6<}4eSZeU|_P*`5wjJ&E`#X~ubtOxpwgmDx^8ll8o@=Jc`2QeZ7Iv?PyJTq9&<#ZR zCZd!aT13-$PLo7TG3xGJY(CMG(xK)+%XXtVh*F=$(-e=2-44 zF^8`gs4#(!oI6KVlZ`%H(e7UXaufuM&^ULKGxA65=3vd@=Q@n|)tluE3LOb4fonjhH&XTpt`UQMG8mi_?81`#o zA0>45!Ashw?fZoNydAN)&5h1N+u~uKkY>|b!%S;OH)-ZJ;AHQl(d_Hc#4nJcn__#+ zO(pg=?+{mEs&9ZhILq33F?if8XK;FU7L|oh&7m2KdPK$_2b8T1IIav{TMdKfkFAUD zqj_|&xrk=QL%{qg0X{)VsK`=6HLY~g%IGSzdarO-mYyL(W^q>r01WOncTlBDM2lwM z=TTfuFdKWTb3D@Isv_(b9i!_RK}hTh`~ijpUkCoMUS41c`E@V=9J0ufa5Ned=VQZ` z`jD>NAJCQiAJUch10V89Z>z(bQq>y3zQkmr?bFpfF^V%54Q!Et^pJ@MY*xG5@Y<0xIS3udsRLlA7m|J=S4(vW@NCX_nY>N)04B^{B30Cy|T%i{;ST80t-l*EUWEm|eV*!^ziwE)P zGp*8NpIM`IB+@a&Y>)+KbYA_RWHqXv>Pi@~QjprXlshj*YUA@GgFU||tRGiD+X$_& z^b4Lx9Zp3`QJ4B~%;HgTbz@*_(PsaIOANk~T1^XviZir0Lk)a%##8x2af78eH0Fo) zqbn}!cXio;*|Y~M%gQflWf`l9Nmf^IJXLs!RSUGx>^SL7%?}4B4Gs3^#-? z@^Skw!dlJO73n(PqHJnYTsyUz=oTjajWiFmz*#G^pZdE15qewf)$;7Jw4U$^lMJs5 z1FpY^1=8tZeLKjI;v6+0%!Dlhk0nIsuA;~McFo>Q?;45BjlyeMQ}YnV_B`lN(x7l( zMr@$WB!*aHThN18(}M@1lfh9tUq$4v1KR+lVARA@*qYpz;@_4oEe+e*5aDGO+N0qd z-sH#?x0)d6TEj^Ly^d0Um8hBf+Zl1iko*$~svwDKASYeC^0KH;sefCF(5|MO9R(Y4 zgsIfQtWyi61WV0^$UDU}zy%=F14oVC8Te5Hr%b*wsy_u9S4^ey82Bud-u()ymvZ!# zBAxdjYAR8QskOeVi6G8TqaB@@K!Cy_Y5Fx2&4$jD_+u_TIvThZ!Hp88ePb!pIZ=@p zXNWhlw*-+?^Ge@-xbGD(#1B@1A>N1-(KTfwVqa_#EAc?l*MRAygbL5wl@is#+ty8W zzY2KWsNj)9GgJ}dHc{5>1^ql_64dDMLBmmTo@ z%V@i8+_iz>7#UT8SNY6;#o);1Z=%to>GD8)a)z>LB{TpaC#i$S%F?~@2UfCw%)h)SLDbY!p{263#7fDL=K zFU9{Vt0X9Ozc<9;7?gUfA!24Jw4aIQL|(r({wVF^BhNnClTkh6VcWNXWmoETZ++>l zv&}K>>08#TTTC)|&eO-0GT86n1>~tV*OL$}i-+I~Lia3r%X-L1o<7cBMzw!3Qbffa z4RY@!4Sxw_ff7EUi7nFU#hSDpeXw8yJN^+VpKmKN=z3gEC3h{1f8qPr=AX}+QLRfd zDAaU4X=J#?J;b4WFsHd^zcpEIpG89B5x5DV0X4Y3ka&Hvg*!8PaNCK%hj6;7g!AE66vL!G$t|LavH;P@vr*Uqyw~TKjeO zhS)L}BhXIWeV#+B*^Y5JuebamPMPI?hLPZIEJo3=#f^O3rIAz~e*OvS$6&dw6wN6eUZ4w`HAd*2hk! zzr^7Kv}10E-U8eG_;xEV9?4V!Sis$t!7?T}HDJh4Y;X(j1*W%k`Co)Szrp(hh-3Es znfaSq-DhRWv-0`pJkDAU+w_d^$=9bLCu-JMAz)9q1TD~n&Zavk z2pR9AD>8nAu9WeN4*Vzf5;vYZ^cZ(l$QAa8U1(xyWfq!2y;hPHsRAT}J*o-WBtDqp zTz%J#{ACmGyb*QTqomQYkg9a15xFkO;@d$um$gAc&QqSxrCwt4#Is+Y@xA7I{Jb;p zX*FhK1*T&uuVM~fzVetA75FcQKT`DO{srcblkYxi-fiet-%HS7Q=N_`VV zLn5_Gxg)9iNi@iPmh4cG@#H~mWIN>Tfm2bRMKpB|5th~VCdq$6!D;6HK)2bKf>Hot zVAGO2C&DawAcu5*w?6C}hTBrBe2ZmjU*`z8`%aICm+#}3fJJys$vvRL(LGFgSu5iG zMVTs;Nrod%u@y>YL-;mX$=$yA`&zV-DrZqv&jRL%7=$nQ?H}|nP(vzz!hS7qI_gVN zMSG`B4H}Qa`ISh1Shcr%C)Kyh%33=I;4;M;IAwH)99FmD0@b5OlTzQTPh1BK;`dYI zw=Ye>j8t+X%Kfao8*QR8EX#k{IzZay*`T@YGQev+r5lMeRT@E-Y*;c+v$Es%+}9VI z*>$#UGV9CFwy-f=nI{{MbEbf}wkf&05DP~vQ{an#7z>^}w7bmT9eLqX6E8>W^yR36 z-4F9}h?fp4y>+q*6}>&Wh|)nwFcSGJvjm4?{3X1)iO=8si|Anym5V3tyOdOD6V%qO_ zl!y-E7k*f!^UpiAeMc#^W)8awGsBB7ED2e{ap7>II}o;M<_-vm_fcJZdp+VIDIk8| zQexg&VsG>+uEGr8V7G8svD>$@^v{|fj_E5k#x!(yI+aaUPsm}6Y3e@lXn&fzJC#lQ zdNg%AL}N@-H~FFbHmRw*?`V3gm2~;qa*&AhJN{N=@Kmdvs={4 zbg>Y3WxFOUZGFy;L9n_cyXmo3p`UL~UK`cQJ%Q<&<- z!JHO2YIO&W8t?kNbFdodj(RPwP+1fST(Ja|yKV@jwUr2y$KLF{T=g%z4}7C=BwubY zSqu~Lqx_;#RbH$}&QKl-*R}bEy91xdT-#mwVO6xvKAORV)UThB(YOk`5eyFFTzTch z5%d{21NlNLTm!buOB8lYQtnnZJOB?Jw@ z$1U{R@VJNXabB0dKN9*d8b$1Zn)od`A@FJ&v!EkrN5g(DX`~L-3fDcsw$qWbM>x7t zcbT-iS@9H<{2yUg$6^h4Pht7KZtqV6O=p+=M5}DlLdlI<;YHq|(Vb{rEf6u@^{-CN zBOXCyu@WgqH+d>|M%z4<*>voDxdj8F}SPA|#b-WC<&|gkU*DWfM(L z6&XZv@{mc;%}P;fSqZB0ksN8YmdAt7)6uQjcX^j-g^%(V+<|)ijOyj4ZkO|qDwmm9 zxxQ8tVr34Gl#Xw$=7qAFIkK90J=N@;nba5eh$PovX{LzwDEljOiU%QKQUm`;@(qaA zJdfRtSci^q+TZrgRQ+4vRny=t0si-2p?nR!0i$oCJFo>_It{*jisNR>pkM<+ytJY; zojf?Q{p6u&yKeoa3eMTwrUo0}y0fIP0lqzb6IJ1dQ%|*!E91>{5t*Se?Vm3Lk;pex z4X%Zk(hX7*9Q8_ybiEsmjtj?C!}%{7WTVm`QZ@I*-)^Y^f}~LsL6#6lg_;%&0Jl-7 z*}*`UnF(c^#3}S%t9yW2we}T$nTQoiU#-zAc7F`HEXfA}%Vy&@9g`q(j zj_qCFH=ozmLt^`0DQ6;qphZVQ!Zw-km**sWm=pd(C*f>Pc)Lt^ zL?-M?NEnd`v(HKR9Zoo2ChU?44W^!iatD~y`RBd~kNz16zn;noIYpvB7Ll^`&%AM# z;Q3+iU|mqIMUQBqq)Q6Sy);xDGiIu~Wy@85O6Y>ypHR$2$5o!-%WzQ){~zbn?7eg{&SEQ?D+YG6URzQ1>Ty$}`ot7ZMfzw1dpvrB@@mI5md?wWhO zpN0IA;Ps`MpWRQ&1Dyn1C_fHtIF+Z8opO3Y>87<9L+p){hMH}X@c7Rto0`;<;Lh5$ z{5G}ms1*=msj5g@rRMKbHtnR)#!oo#0++C?a^^Qt+%}FI;oxC1Zbv+>O3{c0yzmG5 zhNhDp-)hj?9JhDkS`qgYtF73d-wv$W(fdp4+u2T#nqi+??2Ke4vv6+4AO4N8aBLO% zFY-Pb9>SF7)bERc10>bFB>z-tbc(k%G0W-^9Uieu6KzBkuEu#nk3I(T+l}D2lN)=K zG2DShTcSe7UU%a^EFSagCH9?Qv@h}vR)w0#XsaUJYkw`0Zl(GN|GGfQ9NZtcU2^EGQfumBcN$U153XG@>?3m7@!^r!)5 ze~YGI>p962^1lI8@{pwiYi5#LggXalNqQoKRF|u;EE=Wc{$mle`pfx8v&eaRk(?#a z+cRSJ$?^ZYB1}*}GKuMYCw$-bX}aZuQ@K*x!am=stu8ixTV_*5mvUuwgsmVPZ4?@Y zImCLHLBJkj9o-zJn~DZ5lJXUeh@|s`y^DD6NV@*s4&spNH$4uoM<(9XH)8d5IHT8ISq&vR3)F2 zxS;OHO!;Wh%he=uLl=s93pNqQQ4BPz^PP}FadA|DB_@6G&ZE>rP*94@X|OCP9Qnq; z&x7=WK9`SHy`c9DJq5MK3u;O%s2JbX;ZnxFPdycVyhvgZ$n2fj6{?c6lPv`3=5?UA zKmc^N$$KRTP91~O=j_CZAKov40Av=98D{Oq243IE+kVY57*!d2h%%j@okhRp`i9*> zd0m3M8qD(Ka7ikS*4L#nnVy5ROMo<>W;@17FBL}JUefhAc8ZO}X)4EyXx#g84#PA6 zk5BsHbD7Q5b}z{ZoHi--Otm@Y8NAAE#F?=z<;EYfZZxM1oHqI{q=vcsbKj?UcXh9K zW*^Ml*0G>dnKi1Rj)k^sp+Y1<3mq9SIDY9tB-$N$epfWATQBGtSbPPs3^;*IdmQF7 zvBYci#7oafoaDP8vGlQ(W<#f6nc0VVmhA(9KxO&Z}{p8;b>B?ltyn=;wT z%~qc6P{tmVRu$zblPBVX%G0l-D?nt&aV258Q{K#zy&R&;52%N(gqEy@HDl@L$H{R^ zI~DS=aS|H%qjd;Og9dZ#lZ-HzVnb@naq);{TQ zBS}^eq_{EBOpwOb(O)O7-)cqg_7zF(c%KCJNYcBlzn1GUufeod{e_-I4b)9(L%6Jv z*kRTwU8e;at)7s@A$9W_rToS%Shsx8NmVNNrnm!kKsPPS@^M`>HDAAjI}0Zu>od#M@jgdX%=5J>LDiN_#i=BS|EY~WK5dUGisiZmT( zlccgHJxY3&9t9RtU&~fLew;x?0lS!bmj!mdoI4x-(%q%p?&l0ow*UQAUw$l+HB98k z;#^p-^zL)gFVNF3{EyNP>XjZM@Qj`{$}w$*)E{f+A9ffcLC>|&i^))$VZpUj{wL06zVs?`0{pd(f|Lq(=&`Yjh>yQ0+ZVODonG<`Qk z)hfFKQHr}2`YHKgae&|aK#%$dMCJF7%H6E{vAzxfCL<)2oEuFqDN54!JKq2Ch+Q7h z%BpD^wz|)vD0{2-D$f2MJc*<;kM`YWokj?@B7-Qe&hOWMwqhvd{X>t~k-tCU`@kgY zJ%N&!)SvL0-N7GfqNQ^Phh9OU5V|dwO4<%qWsW!1?sN5P`M8f8JP#W|sA^-Im)a0g*{+#sADO12;kvOi(|2uRM`9JC=`Y%F3!vn0A zY4Q}Nz)fX@76RMwv?jiY+&1FtsK&T1-2E_>&Ej(;3@e(D?Z#;O$HQrSwz27IeY>Ky zL4tRIz0GT}?_F-D7N(tGizUy%l(Ar5tm}67(|@cK=mz+Yj{Onoyy$Cg7b<@*da0-U zH{<31bU1n{%oT9e6N{&Xp;Ddhv=a;Jw6`p`I75@7?#ghBB}Xb~sv_J!=nvP&B@Pms zubzC}BidEbj9&I=p;3kaEoI6kV@b$ubVqlp{_e|s!`#FUEJ|?|7$LA$A+T;%Hg(8t z&OXsbdm>?ZD8I3USc~S99g4n(h1|RQGGD*hphV7!Qp9qD|EJeD zuag~p=wV-Z?H9xmE1S#{vb>fFgM3L^w7IiO6JJx&V`KWWc7v~5v%j}wlyZqd*)%1p zg^Hv8Q(4|5|EWRnvv!bX`O=Rx`&n-)E1|#T8Qlt7i|5{>$vgVJ7E8Y2T)|?jKK7kU z(y9V?ogJ)&)U)0}a2#cCTKZXRDe95OVcdyRZd&sf*_I4)M~T9`m1Z`yI4_CzXSfr~ zKk%uQnscy6>~qz%6T`1;Y781#L5|{EoAI1|WJ1{I*$P*8YH%<}@E{L%R^6uM2Pmok zRMVnt%A*L7*x~H(1ivqxcC>-_FTr!;`vU?;u7i|v@D@|AT)QS5QR<4PMZ@BCU)C$l|ux z{+eA2;uM*tEGv={vClv8GQM58gbfS^mDrn$B$jHPr$g!l5aN4i1HKG#Nz)>0^Th%mV`7TFp%`x^2<8;aux_@>(Zu`?vGJxV)!w*RHlouU?tGh`n?{BMVKbg~CyI0&(j1MK%$yRjPpkaI zLo`168ocTiz=HtH3C7&2*dz}~Z>`+T$Fy>FQn&55&OJ)aG|b)IRl?!41tMZeQx!TF}e)bmY?YyQJ&F*I>n zeBEEA{Z*vC|@g<&KO=O*`a28;L;rXg)%jshC~48XW~q_p361*QQh8q>6-01b z0da09Y0ABDTezQf)YNBZ{-2<^2{DF^a*}@aJS||`a_HgYehK#zO8WQ(sTb#<`yu+h zM)&t^l=r1{-@HlQmjNBfeoCp|2Cqb|{o5@oQ@bh31MB1lJF*H!G*b52d!zj>-c+_~ zq2#dE_`W%s{`Ya%x;>P~+WuWwEQ+*Bf!caPmUiir&>YEs16?WdbQ>V}`Kw#ici&yR z3dfrdk7MH>nW3yga2q#8WdPYiN}I(BP+SQSKujgo(#EP$N~)*L#^O^Y)!CNC7*7=l z%ma*MnGK4W-t-|=se>Yx{i1{4iDZ>R&>S0R_9Sh7ykvR1ZI z_XHmjt%81sr?6oyD@LDabSQP8)F&FVeA!OnM{VFRD8p&5MHXJgzvWGKrZ>Q8FY@^2 zQZ-}d_hadv-MNBWU=5#4x4qGOp;I`LfzUQ`QJ%`0v`Hr#t={YtwV-nr0Q%l_p(yec zasj?U{uiaGNZb^f|2!he-B5%NYWQDPSZP#deu$Q@^RKtSm}UFjNt^_>BtYsouEwO) zxlKz}(EHDZU|0Yl#v+4ydcPMb`Xq?BRn&=>U`Y94AUgdqvyV8~iGU zb=9uqb}UUq!wQdXlu76_bp4h3m3*c})kk$!`<-0(w!2N|lKbV7R3$gEBzc38#k1T-eAiEV)wlbGQlorW50PSneh>%*jg<7eaDoVd z>y4I0R_gvmy@zIOeEx-!x-0#Rj8W)^9DK!a_{(++zl3ewUzpqx8`ebl?y847K#Mn7 z3%uApQX0}W2i`ZsR&zFfCI(I!K{OdrS}UyW9w{k-NANAS%N4P=qCr9~@Wtn*LVCZ^ z3RlIFYce^e>7|-jB{Szp-ZqUUEJg6Ilk?d3uW{jT!@s@ig*u{Hr&)UQ8)QV(?`9Ez zz<5vq$A5*tUF)5k~_%) zKq%WJ>PQ2SqHGSj8?f}!`Y6%utxUJm?OVClDY}J=4;J#7TIfesSh|Qkk?5Idl8!r}0eM@iLlyM1!`wAx9S(^QR9uOA_jXLE0 zkxDJ#Lg;RUQrp0OqnUX7?h9^vp6%qgrqqV1h1*`@rGznU!Xr@XayAp1EZ_L9gE7ax zOMy=9vQnQdsx1N=C(&26nnoym#Jt`>+-xAO{7rVjk`-C<9u28&e#*~h+%1j&`r7P^ z<+{dDuk9_+T}M|7zRxi&E8|iM}`^n1J&KT`=r-sj_;@`VyHf1MNYZp zqN{^(D)mtQQf7VzBA2J+enSO4XW*cA;G(uj!!5wHmbr0STq_yTc_*QN0}Geme<{^- z9@D{HFQS+4_o(ZX)#}XZs&}M)+G7W0`0n0_aZ<}iRmvKkXU;cYThb+;7hYKD7LVj{X3h&UK*&?I%4X(lLuotRVy_zQh!W4xs;PEPy?ifp zB&1>3XPWp5<=Rgw0WZ6WnGa+IkY?YzI77!HHBT7qO`eeA zwQ7{J{k=t>IT}VIm0hU=Rh=+fseco6#(qe-9}Z0X_eAGtp?jiA{U#I=y3^=r$n}U; zD!OEJ%ZqdHnUmT~2KGlz6b6Td8g2YvoQ<2&rzmRV3Vwf(-$RP1HjK$G2~9H6{%5HA zl00rozjFmJ)OSO>-suUY7yZmk`{i@@PP@;mU;lGmzn=2CduegC_TWg^yMruN(_P1wIQ`yff z2LMXqGHMBUq^(w4R@#865GigovEE{iM}n@gRV;GYSdjId} z)BiiPKr{9KGkX8i?pK{RXLhr@GK`4s(DJPAqp9qjz47St-$bM5U9YAmpaN}M4o%{N9`O&4 zsF%14hkf4xvSi?Nbn!(r-e`rqfQ>zhjov{Rbb+sZW2f0QF3QRQLbU|z7vxDGt${7|3(?A=z8X+F;*3jdfCm-T-m)Uq8GHeus%X(e zouj*Y;R$&}^NY|X;v=EGkp|#Cc>W<>>8@4(yAlkkw>S zK=^hnf=OQjFb3^g6iR!658PpfF29zh<8h_#9&}DY-AbC+NuV1huSb zIyZ6YJ+v>}#+-{hTh{{HN;$7!bwmqQ+qB@aBU*@YKqPv;m}=323%c?@>tohVEhUY= zhti%an2Tdg8tKDZIM4tNOzNv%d3Rs^fbSwC zdU@V=lH&3Q%iVqD4<;FD7)9!}KBXVJi`wzU8zjrbX9O=w{;6&|22z{}SL)b7LuIX# zVJU1se*)&OtW2E#RjD-8T^(-Ik;&`A9s1p`!*AeD`UmdNy%^WQxqv}>w~P7wp3?@U zCR));ZE`PUyFLw%Wob%ovqUGu)@fH91JEY%{lyD+xP z`8jq_y!l-O82s8qeMUU5&FW9TF=p?d0FILM$g(09{ROtx7;cl9B#G(Th_|1Sj-Py@}Y{sFskLlEPimx2Y7)~Y%9_3 zo}jMlCpIq2WGdkaN{z$5fCP!qD*zTqpMRklj+dTr5e2OWqvtr$lH`Sl-KAME7pykd z)4DHpTgj8U&)|7o)KyF2IMTOX$vKPb6O`2Ay^`V1*}V<=yHQnUG9Y>ze!>jV@+9N1 zJWX`P6LLMFiUaxWk<})!`>1{A@K}*H-}+dYwtJs|653p@T^VXOoiaXlZt<7P;?1$* z|6S3dEs`29S_d)_XQh3-8u)lHRM_rtq4%V-bK7M09hj{vXipv^SzhV3uY_@0o^-$? zGI7u??A@olm74&t@z~@msrNp?)$XaoRy0;*l`&QgsK4DvWqRRHY;u`Qo{APpb;-;x zq0Cj?4M=(Gx8{wOh>SJrroU_t?9tUxJv}O-(?OA>DR2LH00Lseq(AwJV77h1qUAu6 zO`6Dv9w~vXuqZQlEp_|7m2N38%ir&=Y`{pRsqGH3oG|!s1L9Swt$rAz8HwRsI~~JS zN%fay^8R)bl65p zP&cTVnCoSXMBaIUXQ3796KNaff0gTi{Xm6FbYae5NZe_Y5aiN4!8QZtyEh_i4z`A~ z(v+4H*m-r)6~^kv=n7-?<8&=#C!OBeq6YpD3s>SJd?lhOaKz>v6nJ$yfAUaga5L_d z)XnI*`mk?w!%DU=6iKy za8k08x+GH;l%>?YCMWSN*q{ca#CyAP|7ICllC0zkNW_)<|0qKOQta)bkcVW5%c|ru zT$yrzjSP8+Q{-Yj`xSD87w0CxX#!}rQOSLSfivG>yJ-f52Y_bEf?IewT6A5{hlJK_ z!FTe(@_P9TPIO&hxSrp?Ef~%Y?jrZNw+kVv( zvA>ymh*Z&pV#Y!yk2`5fPt9kB`Ov2ie9lHN-pqH z?yu0t-M=vIA~f9KUU-U?-=>b{0ocgcYN_{FJFiCy9i(KoMIy}pGB$GC5)fvk*8h~` z-r%pcdmv*P4QC_l%Kh;?rt*iKO744j{&N96FBuHX4O)Od=p3dhxu4?spLqU|AzBdc zHdyQ1ULBt)(T`S6&~K(OG(;<43y|PV7tS-B%B-YkZ)Uu=St%b*hdMni{#KJ0>F~Ji91kkKb+b+Lf^%&}F=m`@xdo z$CbI4AHRXOYe~vbM%g&hc@aYYu7{?K*F)hmgOU=zm|io9!~O*>W12;|c{}RxjxsaK zRuZMk^rkAOa&ttvxdr8R!X!oy>pC9$ZmMf5eQ1l51xm;O-uBBol$&>`%FR0|zA}BM zGIKvt9jsDrZkI2g&5-YK~ zjoa^J!a%<~K6A=-)VFGTn^OOPPETzr6wNi}xomK)o$5+s@4p!Ja5ww}U*)u5KgKKp z3Q0o~x0r2ni`z2XVlhDD<~7roHQs%-FCST_u?joq_?)pb3vWjHE((Ot5}UZxtmJ&8 z6VDlJr&1Mo6@M#$Gotju+0JZHokV-$ALM>Da> zmHuL~X7qTAxqe}hA^$Tro`Ol#dfLs}lue6?s4dHI_&+k9D7KnlLxq8N<+6huJyj=B>{9ngBT%HoCf;bl3{85K#tzYUO_PaCnAc+*&GX-u z=J{Bf@?L4Sd|R3=u{0IE(!BI-X0aVm1g(1rP&=zwlwd= z($w`zbL8979EqiA=#}QfZ%gxGEY0d(X(Hd2CK5}twpW@@zb(zDu{00&O4IdiX}V%* z*7ZvB<+r8zGM47oz0!1lTN=C!G^T5TaC+cWy0ZFdV$;P#*fZAemjXs2Yd7#IG~L_; z7P5{NUkaaMp1%%C$ezjo)@D6|cPecjvTy0Lc?kXmn}?#{!+vZXu$*PacMh<~gCk-? zfBT2d?+~$mbAFLQmrks=^lZvw*=d!+nb~ueY;M={k8Rkif=^+88+>Xy|7Oa{VvFic ziX2LgiSA6kQH4)Iy6000pMqe|H_*|*Umtv`TBbqOyk5G&zRY_YE%p}gTw2X7-ZH(R zd{gO$L479ajpUse1J{gP^$A0GL1ec8=8=DpQr6U`I^^{aQVg2<6l9;0budyDO8Da* zLT2>D2tZE(&IJl@*JxsA&v~9ulOgg+mm;5`ng~i2igw>WJCim0PVYc1_}~_EuXFbd zt#Cbpy!6#9MxZzx5ZRLokGdy(N$gfPAxR2zUzRxZZA0LXX5I;>7Ct34E#kw58Ua#Q zpAPSjt;49BO=d$w;7?NUed;HyEK#ekK}%DVu`O@_NX&0D25JipW##^>u@`)b^&%=n z?Gd`}i>x;)^`nf2bG`YnFQ30kUp{|jUp{|D3`fIXr8A$ucFQN}&F8Puo6lc?%5(HJ z=JK}54~=@u#pL7!8Cr=Z*60oDRU^tK26Qi=4-ivJgAM15&mc?E^e&4Hi~nf}@Br_; zMXP*>y`t=gfn0!!Z&ZBTbJ+qn+bq4|xaWw?{7RqJT?L z$#m)9Zp0$^yUSQKAovVViXeA|gsG+no4i={xs79gy_2Lqw%$=n{pY>ZGL*V^W5}Tv z{Qv^^$3K=vw>s;gDvvbc;1n#ZfBm;~AOe- zk~4AG)~>jkf_zUU?yrE_omY=w;|O7nV3QG^?TL_!YHT=PHAEmSlWVO^rqpSiTEq~! zY~1V?Kyn3ckg}JYOzy*5d6(hMkV#~*vUb6MH8bWdG58ds7c#w2>Q9>hzl!|{4w-{b zu|N^pkguB(8oULt`l{Z*TlvU*;s^7Jc$=N{TbG1SPkH|)v*E-_j8z);kI1dt8p#}e zA&L7~3VA%HsHfN-kp}MNlYtpA>mYviMSit9ZrhHXg$tQ{`rl^qqh6UTNeMp1qEs>Q zDyp?u`A&Rx{z|XrOaE;NUy5_9+4bLM@=UKxmZZv_kOsLEYv;zQ+88k<);0X!7Nhl3 z*DwFuOw9e()gR`YN!Dj%|%@`ER6V~dB<>KNS zUey}lqY0y2(e*`|Xu#jfv8h|nClkc5tiLg{uTZ;(wkvh_8Fl{wn0Jee2{ZB*3C1A);@Iz*WgLf>%>DBb!s#TNc#}1%O-a(LITuQ0FMuP6(9dH|cAAIe$ zCL{n9P0~AA<^-5;+o)wXm|^cOz4of1QcL9Bt<0X(aTJhEllOa$f;*Obv%j@AErA7@ z?BU-g(Z6NNSQ=Dla#^1=3-mP53}IpG%&?Lgcv3D=4e|m`tTpgNX3W3cuj6;?^gD{Q zMaB(t+>UsR-SN9N{f@GKL&lW{7R=za1`MNO5zoYvboV5&jEWCGrEZp7G8gcJhZzzn zoOT%FYX~*M)*Ok0a2HN;o*g44xWCJj*T0OHFYipFpC98O{nj*)_Zt0Rz8w8nejGx> z5Af6Jgxd``6|LDV*IH;4{|@}(q7)_fFF3nb0$b#&{J*n!ysqo*`u@?x@wyHV@!Wuk zJZn^IH%4puUM1&EiQNII@|@R|nJJ&iH>UuXtISM)S3VwN+zF>L4~m2>5S_`|(^c}b zwxHx^Z8cK0U=9^CX9vC4!&7VC=wVQ3_AcmQ-X#tWW8lQ_Z&39g#8`YYTz^WgUdgR% zLw-v~anNo(2w5*39E$`AaG2FArCWWQk*~-TC&W-?usPBspm%vTJS$Jn&XaJt&g}6F znoIFg`Bmz4T}g91e9$C0%8I0OO=N+5v^0KOz*?dcv=EmE$ewl@NqJIkUM5(OOjli^ zp2`6dbO(t3q)%E06K4iolXwXA0XZT`I3%}%juA;;b#XCzd}w#eDDJiAm? zoX`NXY2uW6qA`o;cWqcwGR0oYn}C5@=tay=PpB5D-1ctoq`-@;G2xvE00!+T}mMP4*D zG0-;~n6rE=;^PJqvJjZ*P=j2}IIk}g4PVQx%lY5!x!=)THALIkUu6 ztFusW&ty4+0=r<^I0OS(eCX)qg*!V_M)ZiJAEP#tljD2qeQMCpdmHn9U3tJIw>-|^ z>IS)~pPZ?`f!b6l?Y=wObWH-erB_@0yr-AM-yla>;&G)eZ-)ktuH#oq?9W@%iwuER znTuBHRi?F%%SHUKQulo<;>G$Rp3Tm$US%~Or5^g~^4NeL20?qY^1f0}u)^vIF0i@k zqsuN<{V!byLT>O5Q#P$cqlF_$>y5r7^#$IgeCDZKI^9)&f@A)$Z_EK4^LdW>p_p1m zyR>(9LC-xQ&OpR*AUDUj&&1SninB$JBRGoI7_oAkO&sTh>j$5D#M8Qp=aWnT>E#bT z_f83H)14PR#7gwK6C{{!!VT%(NQKN7P7Z{=$_Rb+DK3-xU8%(j^25R6YIbuh!Rn<# zr#cskB*5p6!+B_)Qy!R?-_0C`&{fW$og_fG0X4^8q0Efx-tFhLL>|}~jk1?!s?G$Wqus45 zW1OZkb7JW+lUy#ch+V>pk=MG?uQQyjtVsZE!=uA!=OsVvx}E%CqhwBgJ*R}IuQ03n znfIqSPc6gx_l1dxv0QEf`s$_EK9y^}G)c*AUow;$gkJ|aZr^Gx>s3}M%36LlilZAZ zoES{0pl_a%eNIW`Q_B9M;(D@`MVSnJt8g^sY&5Fd&#KdDUM=&8l>2VPQ5KC|w>Txf za#u2FR(*IyVTq`b(umS1BogjG*s3+Y57aETNRa;+th8Ol2_R!;ePX=peNXUdX6K;k zw#6WUT6I4KI1VGC;4XYN4@Y1(&<)FlT&j}$Y{w|wWrtJ0QDI}2^u6H>iq=MK#vTey z<=2anX|u9upgZ^%WJI5_r4&os%A8U1Xyu!KnGCS{T`yS&A6v84=qC?LM}axb@C~Pi z=}e0A8m~3$9~%QNfV={Pi4+h9Mt!U18_XvIS$G+ zJ)6ac5)k!@8BuQ{l@iHWPTNJN@;_}Z*7~%Gcj6n)nc>d7f0xH8mGb!Tp2RJu*dbn1 z9tjg`yhnN?P#$R<-R2z@`8!Vr=O}snM(#)*&jBZlm1wU z0X#QpklJ5s#~K@L9dGKSqb0QNY8YtnK>TJTxFZ_vH06ig;sA&j?I7KZ#o+n|M86Z5 z6|zzkfnH*$YKrq1<@9(7G=FFY;_LNejit$$00VtVm;h#dybp9XJcCv!d`3DZqHMri zc&8yhw9fUE+l`c)lDh%B)H|yve(#2$uv@rLw3NU9NXCo^lwz^4>L~0o1H@d#ZwR2tmt5* zJSe}xwP;MRp8XWBD;dhzcNsAiHnqywkM16z)Wt+)tY;K@IJW(roZ%9*C7H8kJL@n! z@PynfCH?j~-p98=Ul~?OY?CyL_`+F$+nWV*{U3wR|Fxb`>XXvr)&83dF)Bo@IaMl3 zj`9?-=oEYZ3y998(K54WkWe#&HEC>3PLvVqoy@z}pYSg1AsXI6ntcNszm-NN)zIi~ zU8(ct;{G1@++EU*cYPfs(R(8IJ|2x0{x6s@-(dNs^UY{9@Cq0QlW(9i_>40%KB7HB z5^Go8htk@b2D~i%g!djT^Z*OG#k*SJmEPRg`ND~S%<5uMoOsZnXyPI*BsfLkmA*ro z{ax>H=v96CTObo`++vRB9{-LL_j6X>L4qq4_{u0=i+B!2*^SP6Ln2x3;SU`%i8F1z z9u~u=O2k^8izkcpwdg_&eE=r7E7yVEvWl5AG&@>SxeIO}vWYu&uw#Mt>qBX6FwF22 zUf><3!lU~qR*ii}NN71%D6P;{zkk{F?#i8-eb>E3TFogCZf~KUhbGe6&g1`Lu+#jO zX5M>OYiBZ2Q$(16&B+hfN1clMAZjwVq;f6$*Qnf8QrYgd@4VOJwzqpH|3{g>hs<|% zj-bSP=H8+1;94vmbYYSuU@HTJ9pbn#fekUOKt~KcBj9GDn6z{PVDh?^Tt8@*vho@R za@|re${^cv0UEIyimS^!p{qxQyQ9qJF;D0FiG-f;gpzKtGvtK&>}CH2+Qh>T*nEQx z5^f#EIfzhV#h_3#TTrX?#c{$rR@8{{3xFu?P` zlqy@d-?P@WdxxQqlL|C8r~-6PbkRp1dx!5DN;zWjAWtYglj_s?U3wh6c!U;8PcMYK z=ADtwwI*Pr4=)6^rgtFSj-*?y@NuR`Ay0M%#R6tw1>3Sd+yqyyk!t|D^0`q7{*VS+ zEh?+1nu4xW;rE~3<9=a(Gy!1=kU4sqQ$zt^{Gw8;5 zeX*$fWg6W<;(D+_6iPqp~ggW?|%;6kf zsH8sPxd{AA7aQkLYn0O?vwF^g&1u8oI3f59!o&^=NFUBl9NSF6l?bD5v*OVrAE_z_ zX;4S*{u=dsWW6CCq=}oXk%!*xiPHLazK6wmWJ<5-TQ1h4&wsZk%DTUU#n=pg1)kt$ zzr3s-#p9qsK0PTfzm}JWNAU;16|HxiSosoN?d*cmmrWDtuHy4y`#T!`0t0BV61Mfu z!p&?qKL|?hbkjMMQTbD)GfNKMjzI^uc4mh3wpriq{hq{?UKt)C`xIAuqj#7dyj>68 z&O~cxaLr4c2W7@(Hf)ALzjV{-%`9Z^nZ7hC))pDJjELQuwh{U`rJ{yO=$`t;*CvrIf#|W-L8C3pmS^hzJNgm0UHzdx%5PO@K zn5oTA@ci-(r8b7#jV=*(iarU(pb<1Dx{>KzUN>6u=NL6ccA2zwF78E3)wz3I{i zLBBDOiBV=^IbS9gier*-tmlhETvww-gO{|?Zz}aa0fBFLgMKcXLEo{W6g`;!mZOLm zwddBc+vzA2K5EhL!CD@ywXwna*JNJJYuB+0sifaIiejiE&VuKFEu+-k$}PdBgmC6o zPrJMl9c4w;VOIV(Um75)z*$jhuVomQeM;?EX`qM`o1b^-*yNBJm%)7Ju`f}#u}u=q z-KM4~W1F$}h#2I_KKTE1+IDW>4ZsjpI5O3s9}lADNftWoQ0lfB^jrf+;HA->7UXxW zHDJ=2o2hwTzdNpsX^L-7#xw(89Tn@Ku!G9%!&1&XD@}*2VV^1N>aQ#)K^#)`AVdqk z(eqY9GL+RwsD@PiIaPlyd+><7KKh{y*Pm1QSrehOIX%5`pvsO@<@@3 zcT8*>kB#&tOpCxku1sfZgEcJKQs$)m^zSA^=O|rxGb^do%uApCT9OICQtoSY;zwJviOY-Ii9 z5n>923&R``E{u7BL$~n*1b8Zb( z=y$*(_#eSVdV&GOn#iSGM1yLBQ7R0iL>tYGkDfdgdS}V7blVjD4Wz34JwHI zvw%5vHr%H>i=Yf z==KwR9%^~yp_WG;YKb-FBl=}( z%SObQ+O|7*4wZ52Pe=9}J2EmB`v=t=J2Fx_3Sifak*gPjR;17UK@qCv&tp2WoPi2- z)sSL(B_0E}(#pPq1~LUq8S?}5k?N(q8@5V%URNWL;aU=eQ4i{faLWCBGZxmJkH$dZ zlyY~*-6rpC0D{X>#pj(rKF8Z+>Dc2?$_u~8z7jeL;IA&6zh7?5O|59PlTbR8--z6^3UdG#D-W&6&*W9DGU&E&&{rFR_Ea>s4Ub$A37j+VL)e_1HAGCbl9K(!v={qcBy_8&VqXF2Q#oA%+fc3SDn6=JfkC33ID^x(3urk@sG#sPoC&i2fhT)GWZTP-#fHG* z5G8}(>G|0Xtei=jXzWY@{?WBXh8~wwV1b_cUJQew)Ut@i)xO0^v4e8zj^AME6lOJa zr;%k78h8~83oAVKmV56IQ!MsI-xz1eVeAjlNVSLIjzgImRz*kTrG?0g#WUJE#U^nz z9hxY%LW>)?nzlHuCLlGVX7p<{`jt1_bDK30;su;`))iAi6Wp4a$WrDhU%IGAn?>6S zou@J&`ka0$qq7v1`(njq{X#9ZFwh%l!W9b*2Ch>uUlaAno~uUn>5kQ>8};eV!mz67 zTcy6^DUT-0uxpA8eeq!*^^fRrd-pm)Mzl!Hd2~^Q=ivg-D^Lc-FrVR$8GA>T%itTsy%I8 zGW6^5hTixjNrf^mlpGC)`vBO|mtS=CxnKUEoL8&bjIwUExB)jFWHe4-19ljBD0c@} zZ9zy+e(mGWpWne)eg|cK&>X4t^I3Fi?Mr&jN90gUq11}T3%CaPydpOQ0Tf)$d<%`~S;5Cks}iJE^ey9-7yjNMAf6 zW#jjOgOxZd+>*Yylud0OVbVlujM5bB{6C>I@{b2>BJ}2{AABFv@f66&2u*C0Bqa(F zU7&}g6arK!jP0)2jn!i#Xp#L3rT%Z&(6;nXj+Loh6yRVjX8y(=2`Y zZEEy{Ql1%UCLUmzN6fZP7S4yxs3$x6_y_&ID$;_9{y`Bq&Lu3tbA5^C>v5f;*plE+ zbV4xy^vSne_730o)zI}upf0DVBFvqmn!~Z)X;h}R!A<+F$ks|QC|oOdWs@455Ri*> zK|k=L=fQ7H`f6+ubKi*{tyS7JvDixd)+=Ws4?hx(qM{bkg7eTS zTZ3cnkDC88d{l|=7^~XNV{wSye}`N=;{S~f=@oZ;|8cMGFYYz{$G!Idp^onO@xSlr z9{)rhk#xybph^B-G-(TStzsn>^}7AuBaf-P^tfrxqZ9> zNi;Eq24IKa9DeZ9fev^WN5h*~IV)=0B~7AU{fx1cDn+;1`Y zDo_gt7gr?8{Z=jv{`IIjQ%3XNu+F}K4<6TSkvi|I?F(a`uCsY7kQ4dw9NuyaIHsiP zv87+Sa-Mj3bDLv$wg6FQu-cq2aBxReYN2@*n6TFBn-*BU)?)N|P@z&$zShc>iq!|r zv+aBR)rZ^SNIBm=A1~a&tr0`Y(VBba`$BBWyxCbZ)#>VtnC7WROq}yQV1n}Ln_9Rs zc?5&UMgAum)dTZCQ-dpQ5K)HyyaBoh!DpVQHRM$j>y*3`!(pXSa}K28E-8K(IgdJX zv=(T#X@P$keQ&CT&vZkqsJKIq9Au@Q-I0^o(WqOhmSCZ}0K&*DoVjR%MJ@1l{FQWs z2w7!`*o*`8PP0dRCI0RS>d2qEpyr!ic$Ds#_$qCnqu^&NygzUh{Iwn`r{5RX193TH zQI2Lm;JwUEKNo9_M=uJzZ`5iU4`Y@!zHgyT`wy-xGDKXLOG#F%Rna&w^$W7SX42<-st<@xii!xT4;K@#h%#od}0n*tN}zV z++vayOSu{yAigPls)34H@dHhKMf|@AtYv{u+5m2!)L8piDWk{@*$~OH0B;)-E$`s3 z)t{k7Oay*sBq)io`Y>WA<{nUy}d)L>jiWYmTc#B2= z2FkH=46g~<#8hV6sGE!2Vmh36(HA+htzd45%Xc zoM;JF3!Z_%z-xDjHIQMscch|P6q)mhENGkATPY9Eum zyh9DViX&DKg|$52S3Yg#r`7TaF!C!>F$Onn1}&&<0H}Yln2rkk4v_Z*!(o>^K~irOGIs3`o`@L z+<742NSbyz(^(J1J!Lx;o8J$yT`FvKTEbBn!YzoYtdueRUC1669LJ>tY-e^UKRe^k z)A`vGe=d(~m>Z48>&*#LL8(L2v&)>KEr!KTq06(gBFAfZSMXAHk*p%ssQNrLqPj$; z_s-kVleczm-jCEsxFa?`(zWy0B1t!|N$4?;cxPI?uad@Qvs(>SxpHyD9h|n_9h|a( zK68WKvN{jR4$YOE)5`rYyVjf19h!npNWZSxq_;CFUM4@KY-g{}ncu5vVK<~Isl{0d z4UFgPJ`FrQGIb6bLC8j^xpbr!pPTs%Uiuk%FGj;;QKbLm+D#*UuZN@=cK|Td&|xlO6m*+z>FgSOL!shLx&w# z<_U?<#_#4mgk7`#hC}8s&>&s^P$AzSb?Pk_Qh`RLZk(KDNwZF|QC$aI9<4XTjswe% z(EmX_Bbg-^J7=Vl%LOgU(NPc=UDAVqxP8$DJ&1|Ti`b}StVg&mbc{Qpi5ZG3zda@e z826&VkoZA1lwq5pQ2YM$Qq1-8kLmwCs>NIMznA*{NCr5pl1r3S*Cl!(t#(UCbfCk#o~g*^6XM9xt3Qn8HbrT+fjz5`Ok#?MRH8~U@Y z+uaZU2v1$Kskj`K6Q{9}EY-ySvK*$a-3y3yt+kQeb&0p#imOet?^|q_Am!s@AmyVO z8UN6tNav*#-*=I_HH;MUJUSXK@=q`sd?!5SR=9w*f34KjFd4Z&Yq&w5rwJ4E{)7oS zbr$!UuIpz^j{Mp?iOkkhrytyD8Sd{VG8EJm00AN`)C@y!ie5p8(iDU zJl=}@==V?pEzho|C61QP+p=hh%V8|Ip7voUBPI3i?$#!Jjav{oJX)f-_R&|A*qauQ ziunfsib$*};3U9pe|u5H{w{b|$wqlZ6Z<{$0QcSr&&zM>MOG)|*CMNaCxv=tkP}p3>om8yuYDTvCe_s8%d+HN zA+(@TCr-p|m^|W?CVW42mXw;W4rFqLasaFz%*39`*7AM!XCxh>;Lb z26s?7OIc|@_uVCz;Qau3Dp|gr25z%-fZwq=2^E|w?JIK+EXhK|Nfv3(R!+svf+AU? zlG`R@POIDRox#Q8N5jFC>ti-4;@ji+{7yhH|4Xse@Y!Rk>!dzeYUC!eBk{uyPB=MZ%I_WvBQy&nLVOnc5lb&d^f5Hg( zAThs3^uxR2KcOANX7o=x`XLZ_<`!Qa$7QBP5&T zfG;w3I##OK>M|CjOODB*H)sGeg0rNz`I274QNDe|{zAU{zF9BQ8!CaHbezLadLmEU z)T=RiGA`|#@kc)HtW@r-qdyynCShF62Jn0*;b&@qci@(818XC__)*3d_$=BAtv02o z(IY1MGW04HQI{3;?lM)GwKAbrgQ-^PiThdYf$HIPV3a%nHCC$PMr!uBZZG1n&IfV6PZ31RX^U{=@CaHhL09nMCG!Ix z7`>eNH8CI(Dt65nR(77XCK2JGVZBMdT`Ao*FaUm|-jF&wcd-8OmSjWUK~|wEuGXMa zw{x#xoA>##Hm>zSGIQ^;&Lr_JRi^&1ubdW?2^SVY7``2F)V8|DaG&nf2_)+daO>?Z zjrVCu$Ys^pFf-5mH)BOz=+nWLk4UiPhqGB5>&1@-D}kdB!_I_!sBw6a;Y5?(D&uuv zE^5Vw-i^}EjS|#hFZ_vZ!YboR&OW;DU{i%3_T;ib&t-FBF3+lozG z<=wz_ZpY-m_e;uPR!KLzZ=l!hYT#p|cNi*5%qRR<@E0!cwDGkXy}<9hNbNd<4qPra zN=Hr!z-S~bPhC`6sUW%3`F49hGRgML6Y+Es@G(m(wB15(|~$+N@y`ki@ZSi;%p zbKCfARN@MB#m+|khMu$0*)GA+Kw3g z^|JkBqo~4V#a#*UHYJuGat?wGp12GSbzJM&y-DQi-^ZI>6EDb0?{W&x&MAiK-xax` z1jqa>mR5d&KQ&7H6(?{9c4Rp1w=7dux1GUE-5V*Dr~;B2GYt3<9R@th$ef$TTr2(D zbA;wyaR>d(ej-uQId@J!{M-z%Z@(ka_-Nl&uAX~OO9ZT*#p(gu%OLcn0I`nXJm`M%O+K0g?xed+rx~|1vre@Hf z1Lbu6G?H_DBH!^-4AJ>uJZ9PwWfe}j)w=C=9!%q@HXh}bmE4no?x<4tu~By&z%qnT z((kue4DQ5RQJ5`M~1fR{XDGN?@C zXPN1GK(8d;&3PU4YDO!5=j=iy2kT>sB2Tf>7nT4~tPGN+Ha(AGY=}yJsxrqhYf3UA z?TSYNYDk8Xb5O#A5k(xez+{#!7a9IrE_K#48|v0mjajqPkaw*3SUo{CxoTwqma@&x z07Yi9d=P;hJ@s+Qpwt;ZmEbu^Um6+xFm=vtvL2CN{f66n`_LkT>@nNbw*NK720PV$ z-j`T7FEkkX>2%lYkttd<8lMPl`b1#R66(&J7AnFJd20@jZ`mb0;-&kC9NC#YvxO>R zAIkjoCb>@1R;CnkE2)n8>+CM>gxs$ff4@SxA0pQilaq}~J%i}RxedS0ZLCb>Hfr#o z+rRRcuGQI&{mih$7hO0Onwi%7Q_Is&JZ+MnEUls#zz;q;Q)k@9k_E67+tHnO$WcFT za<5U3<(Nk}_3#~$TW0ri05G4$wV1E-<}{x(pQoL(F@tk7r?@rQja}J9YYJo{M`)_A z*TgZ}j;+(gA?(N+=%-;B@yT>uyFgyomC5T9n!K(rh=Tv#k>wkz23}na#VD`kS>SK9 zJH^H=jEpez!&df@V&sFGmR5EIj3e1Vn=KgFqVMcBKannP9><=Ry;Iq4f&}<_i`MF@ zmU_4@Hbe!;>c!NEU$ezbIc8G%$|rO};zj#a*R?BkPsxKJR0;}S-$4qB{uZJ?5{o_` ztzV%>qh0yMJow9w)4!=#zVn&+*D3`D6O>~Dy83YgEs!Y>ePc32RGv*2r~ zVO3=6!wS(Bx$iGVVDt`b3DiOv179`seEDC8{4bXI&-@SaucrL>{)zK9w+xifr7Js3 zuvrFpspl+jdTi<6r5k6EJIWKf`u#H|L+~N=mFy($v6_Dx3^s#zI+gtQ!Ps8p9MV|L zIXIn#w+q;kIfC-ywUX<#GghqHUXRC3wF_%mDdfOnPizZl-NVvobwp)%zycuI!U^qr8cj`6EjJhWieC>pLi&Q0MHScLQjb zvX`zcu`%8xVM=E0QgXjoY*uoy3FUD4}oYLD?B=cT0sg?!b^2b(7}z|ikGO;%(+GX=vmZ^Wi8YbQlz+m z_u37z&37-kRHAd1!xv&Xtx~h(4vQK#EaNXEdhMr=n8e>$#$Q(|8)G^*Mmcr3E=u(4 zbUP+uaIKE4SEErWA!E7Y_r5jqJ!+!Nky#Z89T%_!jy~%R9+Hd&!lJm&pTq4qrDx1jNoaW#^rljUCX38$GaG#+x4|&Oqf$N z$e|0vlT_Doc|-|oMeL*2VCZ7d(^9_&KTXmS7%e*Q3)zkF^Wmhc|72oN%pEA;nC^YQ z>`U%)ci`-|50`hnWih#bNIw}U;Dcq_RV*tJd*ZWJKNje*y1ufA)V0a^7cn^Z%ZKIzlTj*!nda%Ch=%u0T$R+XV6|)Z1E{CN@bf}krUUlqFrU1D*nZqe+?6iQL`B0 zEPRz69_P8mNogPF5o@Hs<7SU}4{d7PVxJnlu>ekvTQuFr@nJEfzCEPU987ONVWKg< zM^&7yT4fgz9`?5#npk2f(gAq7BY*iBCJsK1JxqH?c|@B>v`B}uVsA9PqZa(>u4wv7 zzF`&-4I-pZ@*E6{=6?07VR7@<9NxsiBKY@X`1Wl$M+Ka$TXe%uJFxb6wX?yG{a?)z zR06nKSAX$)K3o1=3l68tN7V5L=>J_M_q9cr#tvk*FB(o{t<<_mp-WlvA}jGvN5Kjd zOk3`quH+tFG7?C1*d+xq(1O!|0z3sMz>S?boQqY-ZCZ3C5W5ho2C-U;7s56bn1Oxp zf{W+NgBd0F{UsM5=QJAFbPdAWd*?`gnXKgQT9hGQ=Ag>_5?wvT3VBahKS6js@~hE& zE+O?x=7VaKqrmb?kX>5PQmZVC4rwrYp^-Ar%DA79xh8WSbf-}CHy{|op%Srq<=7uf z#+*6i>DgoA@SmRSEM2?srn6k|faCIzsq6;)U<%nHbj?-Wwpr9*S^hn?DW4xg}XdRr6roXz}1f$D3oa*O?nJPfq>=CWB zK0!@!>(Otdd0UnswPGCrTf+oc(Y6262pe93yqPoTWXgstLWOiFCI? zA}9Ugan{sX#dwFJme-l!sw}yYgWzG7yF!O{tHt&XcDZATP7X2@#l_Ta;n!vPQf$xI ziZK~J1j-QVtdeZ5su5jw6o4E{jFZ$=j*Ga=f{WsGnL6h$QS}`As2W{eOan@QHeKJ} z`*8rGSFu4~05~l1dsAk8TYi8T(8^-@eVUM;4m9BZw0C}iPcu9sDT(s*RIUQ!?=D=+ zhR0U5h5gL}!-}0zN^n_Mko~iYT7a+W2()g|SQK2n3NUAdtKc=yHyea9)2REqF8>)o z7=E55;SX;Ds?%fH^5JH@`F)Oj_(_`5@)_WuKA|g2a69P=RG3fcTBxKx-2^lZHLwLU z!Q@Mc!PnB5$Y`dA8{!WM?Ui)pS=A71c%GXJ=p~qgsf7(MjgWpjv|vMcM7&Aj`to^N zrO^rZm$R&}rV+1uM2CkFRwhDWw?}`rUE6n56OHtt&ce*5#TRO!v?fhzh-jl5wLp{2 zV{U`)Z+l67yKk?%@gEkC`E|E_zcHxk zeeQ2C9@espPHz1|{#aiMJ{NYcdLZu?2e$a%9FgF$m%g-s##GWb@iFD!!e6G;u??Mg zknP{?Yd0_;)eU^2D}B?Z1h%qQTcxgmAwbwWXpKaHz5?!YYB-*#Me)I!=@Ll#_nCTM zqvLD!AyI@O@pFAhF!u9f`jEIeO=xnjFR!seuyLlJ6iuDsk1I%1dCnSd%Sd zK;MgfHLQ9*J*KXip86}34peBXIU}WQV5Hmi$yg&fJN7JG22QAzE?hbUeMZ`|e542H>2O&Aw&*|8iQ@ zq1%AnfY^hol(aS?NkDt^1pU=~VVt;Tr%;oXocF1-7EvAGzJT$R0JTR4*rgP|rw9xWwEuRr+4Ur2j0o(c( zc&bNCCPU=sh0!Ru(RsZzFxe`|SV+-c{*r!n!4PZ?8WQD*N4 zE=?Sy=Km{znr8ib2GRGh7n0iozr*zlZgQImZbmO^sd*S}seeGM!LvGt$`_`Vnn(0= z#3GBH;1_y=B1=Mw>}L5QmLP%NC!oO5HmF8gNuI*+xXyo<(cmp?LBOLDzxc5Cd+4IH zaV%|q?WEf0d}$X#z`VTuxCIDtp5SIAbQWBz)P0a7b;Amr1)FWOaq(t*3YTViFV@7U zIwT8Dyq8l?&5Dda2H?d}x6^YEz{!dVHn?<)6LI^EINZsY0b2cM-Z2m?ycYRW*I7X8 zV$*~WWqCF^-XyCD?@?w*L-STOjEMmjRo+8#u zaLY%}DdG_>;xE79A~=Ou6HZ9DMJB8`C*fR9SS=HVWx|exgwhZ;>AUA7yqptWD-%kK z+BHWK5+0NZKmW3C!cV_M!n42Tghyn;u7rdUnec^k5^m&#J7hvm5qf;fD1+e@xtAD% z46g757k5+YrRSvfaq5+vI$s)ReQxx%#Q^)N{?dcSceA|LvgrPQa`+5oS(d>djr;Uk zR&zj-a!xrZT+Su3mNMCzhOC~?^UH(>j`vOY#&IP4=vSPuK_-mk_9Q%#%L#vTPQqVt z!oSIcoI%^xS12SKPE?;Oz6lWQd|_L zPcq@;a}v5Z;Y^v31x$sTOF?nJtBJ>P!)hzh^pa}YTiOqL<$iN%wTY>VET|%(pfXv| zyI=Gz=$$W6(C3dzvchmY*T$tu8th2bUic%J|H!1U;R)HY1>R-=0R({dy z-!OvdyQ4pQZQWFM;#A}$4n-~m&g>Kq#4i*61)v_e5fTB3p>12EgUPHMFPUoIbvgi= zy{1dYW&~ay+-CaH^kgR-^e|8hJ}wDaFQeFmzY}V*k$A!#U8(_$+J30R)x^}{{O9M? z)IO)D;9TgFz%aWZv$`=YW-?}?>RnF>Q*TOc*6|gnanq+!iTQ`6gMZP?F8&!(-=+f& zvMM(WGjV>(o^hl|>aSsGPV(G#x)wYJOjmCFCXk2uWlKaMzG$r@o5~ZX*>{eXRD2KFVC{V}Tfulwx=mC6m zu(km*CTY9smlmy%&<1PQ%2o2f=V}6G-!+=V?DK@&(J7&1H{5U#3} z+*&JLmkdyOdsOh)_r5*bLYeIka2U^deg~Q=$TZw5Q=6Wti8CGj?V0{SW@`U;nP%vj znmN-k-=3*mW;!9BX?FjaW+79nx`ln=58ya9ic|1w+qIUS{0bgpWbJ0(q5#bcIfLrA3th8ZJei81>qDl;n)i)J@<>yoyV?@*fvJnXf%5=jDACvI7 zz(CB`sMR#;v5hjS+p=gRq7Lt6v{B9rhoy4>l-p-Q5i_+mEa`mes_i<#=MZJ=j=Kl> z1}bA;yW0dQVl8BJELAYLL#r?cSsCF1YL}AGDqz~-WTf*M6TSZVLAhd0eE#ny!?q-u zE|qJXABEhFrtw9Xd4p9Y_sS(PZ^t!V&}XbW>>J9ku}bcaMe$ds_2tHhnyP7zfvtAfMOOg`Yq0yQ;m*>tzVg7|GpJjDs>;|RbOQoA+x!eI=}IlQeKo(rQ94Q zVyfK#kUUX(Sc^VU|>^ zpS4R>rgzZ)K}cKJEU1(v*61v(v$fLy%sdDl^m|+FIvEC>-P(1s`aT==*=dtRn%!zK z$NSJbP;Gb-L(t8@#!Xf&+9=_oHhd$EU9vEpZ8V)N*^tKd61c?h;zoV&v1$lx1MM&< z^{v1%-S)hEco9;(1XtWK0c!p4AS~U6)ry~L;5jDWF?mn*S1a-*HN zxTzkP;Vk)QG^)EhrVYN%#R1ZJTp7$9)}jv=X-e+CMa2mW`XhSRKJv88 zZOwWqs-9e+&-nfNtltOd&_T3)8^PWd0Xj;x-psWU@5*qvx_}OsGWP7<>AqnMi)@So zpMJwE`C%XN%a1q2J|@DXZzJ=h^@mL|Ek*v4JqN7>Tyb4ksVii^tDB$ap*)6%|E|b) zj`R8J8V7&EtdzgL#m8|E>C)AtV*xyu?S#c48{~YpO&a9r$H7WY_i<(JX$<4_rkEKy ze6eLnLkPuInJHaTUG-GJBpv129+3@K{xABU21g;VKkQ(&E8NaycLI8&PJ!T^Ben4% zGG#e;H%`veB+ZRH@d@ZbD|>@tzrnMnWa>xd9axj4+*DtSr)A*iJQJ!%6gi82?#b38 zW8rS?wQx_tA$4)~(FWOY(wEZX3`8tlhob@C{~{WV9gTlKCf|eBZ-w;Vn*tXNPb_QDJH2e7f{OxE?$UlyY9{2-!{FUZ=0_x1jMufn58>cB_NLH`N8`t5l~2N z>01hU%umT;jhf3D!#@2-Pn#r3kK|~OI(0K>w3*dyShCv2qTgux(Rn6=h_FujeqGaZ zuQOC+il)!3;Pd$UZ81%iSLX3~d*Cd^{gZ(eEySDrW{e(HA~1Zeag=~mfi8Go?PExB z&HK98cVZAm6kT{b%Om!B#1368rY)NOI}|4NYW5voYc%~fdg@G#rdM+4n{ZvVwt@lM z4;|?%1bGV~Vox;vqXvtia}ZZ>^gNR;bCYsqYM7P)nh&7<0d}@EvmF9^l^x3|xtNq3 zz9?63T5o#fs>9J}D~IBb5l@?20#8!0#=gNi{TACjK}UubEVa#;_9JyhT;(~>$m?8@ zOB|)%Os5)`P#1|WlzOKXXPSJhF$3UWuOA-@9u{XsiMO*?n6(ox(!CIaSK;?)ubB@iq&g%#p-psV)YYcy3y<9 zyH~)E=9TNAVGaItJ3_B&+Qgw73S{&xz)DayHJ&)=Y?u$_qOwNU$P;SdBa1W08l3Yw zbf*N82F*&kdcUcUo-3Po&8M{y>Zjk}sEaEwF?T-$L~rR}^M;d%w;VV#sov}fE|5nK z@X+mh^0t6(PqyA4)A4S-Kc?Uv`Sml=Xnqt5j1N4`p7CC0#DLJ%yY9E}J|JZTeQi}$ z0==7LD+yIWk?MvtHg_nSn;~rie*`-)3Mk(P{ftcZXa1uzIOtO`fyDnKE0es=kiWPVx7Z^|GzN#+;RIZ`>! z>Gnh(FC>nw1Mo|J2R^E#0;l%hXFaCKqT7wMW=_xkzOt#LqHe#>3XSy3a8llSvLkTB z7zig3H$@v@gb!g>@hawfrq@S(rJ8UpKt9Vfalj)Cktc^nqb<(tJR{l+s$|tL&VXsR z?3T#J3osl?D!52w30`k&7Cf86O&=O#DA;iJzFB2~$+$+#DeLAaId7olu+BP41lG>C zsNdh#plCPq5SVoO|3KoPl>YeN#OVGmLZkj(WcC_p15rb^DcH5bNG}F%hBZ@2Cv$YpZLEnaVG~ zzGJ~TcFW#KBt05cg9D?j?m$b1JJ4!T?cXS?fBub}Zspk?Ts#29VefzURy&nVG^H?X zPbhUe^$qL9eS1uXwP=@^k&tNRVyTBBznB<}hGtqYC{|q?9~6e3L6IlXzvtX$H29Zi z=Na(b-l1qZD4(cGZtGGWAQ}%49v>F5F2BJpqIJ!9!h?;y^=R||Eze z`&QCgtK7V_eqbhDt;4?q_N;=VKe+rSsm8uB^)hDy(NCbRF%Bl1ZFiIesT ztVLN;5jlD-GdBgQG8Xo&wDHG>;v!!o8CnADRS=Uc%-1;rZZum0 ztRI!&KC_D&Amfl~P-dT?4M|pp!EnA=^V|hk?L*QE?f|_!3xl!)K_e!{6nswJ^_8tYaW#+Sf_Za z#S(x(vqhV_?5OuG=0lIDd9|=i*89eQw z!Uq}R^7}NdtK#dszE@|2zozSf=hs>T#sKPa_J7Vd-VB${}W1I-3A2!fIxr0@`G6ZvUDxG(#Yl%%vF=`3S~1r zRt0eYM0Z)ZyGhVfu-KBIfY&QA<*8Agk;VT$4{NVHoY~pnwnOO`A^G?eX`?nIusk~( zuE!dRll#;8OZ=XLD*F^s1@V-dhIv9$j4mvcp3tb_jV6QCuUGx2+52ZIyno&Z@1J31 z6F`x7x|B_+TK+!K=8iTt9tB|IL-~!Afp51*jQZ*g)sP=85f7nBOX~M~uPF&#Zz;iP z=*bRMq}n^Y-!G|D&$vT3S=^NZT~uOj#4w>|u{V_{t~O{pzKPA+AtEFY;n?_l#NMDM zJI5^=>5>h-n=1MlBb_@e&n|@wRt=`AEozFf&!_9-i;WpsS112OiRki(f6$aFe3s=y zbw-%6LE`Ajm-t+|evDgW4#ZZHccM6`(<%c`o1|Pn8MsR3mH5(54}JTo*ReMc^2^)t z<*Ef@(W{(dn$=Zk^M2P|SxR5-rZ4Bg={9$OcAEhn=22Wt5W>GjAq*C#(WHJWl~{r{ zDrPhvdk4kSyl)*d#a0z$mG?1I(r|Z^peHp5S?ZW6SqQ1XT{iB1LSv{x4LYpKrT}KF z+Tcizwh%XCwX>RzQlE;WJArQ(1H?*HObwMrL&*+vyLlguO`Q9Hk$Uq0w2C}U2Y++1 zQQDjJ0-Z?A{&Nl)MVlvpta``isHz z!mGbvSk_j4v1w8=y|_)!Wh2{W4q#`FfQhC0xgw!CM*E@V_E6d&iempnDS18eRFZse zKXe{1Aw0+Vd*h8V`g;L+n_{)$dl)b{th3gA3)e_1a zORe__P3R(uSagD9fg?st&K-<(RjraGc+k0yoA~gwpiw=))HcHE8oTKPKztG(Py>BC=t{{!fl}zu^(0H*FYO%N556v zp-hd~kFKaD@;|SmuV7;iLMmUwiE}i)Vi|-R)2y0=hq%^LX_n9smPq48VEv|8W4I9M z9eo#)VI5dVE=Lx@#n#|$7E0~5ci(%lXLKvnG8_M4(aZ;snHIX<7Fog>F1D%+?hOF@ z#*ZyZs^wY$oJ&fdrm@8(1V^MQM(Y_+WRvESGH=QWIwgJDVqN2l3s0Y z*D8m2LYAOxcT>cj(YxJ$v*#TBr#-Cyv_!T$nkp}Nk439AD>j#b%c16^hHcP7X$`_< zLt{IFMYi+!H2A;SzAu}l`=f!{x^w&G z?ELjxM)kAwU%zj5as6lvMAMDEt9Xs9Vu?8%sZ8(P%A0rfZRHnsp_Z+S|7|V%tKZ$w z|J&7X{pRTPm6| zRPxB3=dWbqe(;odn@EFw-@jd(|9mEjh51}+qwBBh`5h9cIX~qA0POK;L;s{koYaw* zi^?>gUCEZDx#ap1SX~mDE?Us033weQ)ek!sPY@D=2 z+@&M;#vjM=xK#1M+GxwB|(;B%h)ns6)U~9yY%BRnhEKw*(TmvQl zz}Lykx1%Mi^TTLl_Pkh%GcO0LG3C)OJMmb_2TH+}>*VDLd08(n8{}n+yhxz?m2KRP zt<-!K)I<6Ep(T*21#hJ4-$*TSBV~FcwZx6o5;xjf)tj#~pg(S;2Dy`D`2EdK?|yaDzSWxef3R|yGm(QN~cm|s%7+FLH`RHj6u~xH`bs^ouE?D zDiy6#(JB?K7EorbY8oF;sMQz+&57rGha$(m&u4mh7{y7E52r+b}RDv&6wzit*=A z0ie1Z=al~QIzV%M_`cg|?n1F_Pe_dhx*hkXz{$&|IvW`8&O9ka zEy_5q%x#IJDAHMZ<6m)|%aX%Dck*&&tHC7w58=^wxhuaN^C+1Ga|al$c~`_UgYt6) zy3P0QW7R^Iz|B0Y%nnD}D2g<0+(q%FW7U)+m25PZGCf`xOu8ekX$C_a6>4t}DpX`l zFT5w|I#fCq^=2<%ccO6l*h3*5Gvd%kHJ?HZ3Fvwn7r!~eqxXdfUtWf6Pr34iC;0NR zM3=gL^$oMDA!SFj{U zrB+Z@e=iB=j(H|csH`#!$+@k9cH94B!N#_+D3tcqX&Q|TN2;0+1YK#xA?q|?th*D^V%igtOg76uj4@b;dnW}8=s50+Yqv0y^fvR90!a~=dtqN); z+*SokEn1+sY=Fz&vYgt|XLVP$XzZUvQ#5C9*;$_8Emk#f)}pNbBMZ;xShdiKWNn>CeC-*1))UHx zu*JaGrrPKhYOXBQy4QK%(l6=fK2Wmq@#FEke7r@;*&{V8_UK1?z=dgAk{-D!na?EK zv zV7}COy86&Ocp{iHi}}vYXW`4?W+23MIa_ zm^yVHJTo6va^9pDpVI&9^#3{iACNHUseFn$1bI@xYY@b90XW7eW6Y(BWIP9#*--qn zGcsmsX&N3!jCi_CPM3veXK+C_CM-?X(wwTG4fnB0EJ`w}%wJSF&5c#T zYKweRJwO#FnE*svtDHfHRiEvHG24?}IQx1H9;r9GGLM3?(L6ru5-p)LM9Mpa4O< z1TAu$Z$WcR9?kZ=!G+nSuKW*)`g;iR^UE|{`2VH*6LuEiEbVAUqJsF{g+aQ zSCly$D&}gf4rZDta6x{!Dmb~i)9e;!#1w~96gyRWo3AQ#=egblO=1TFu&UH?E*)eQ zlJl%cdlBk2P4l2``@I)=DvKSlecD|EnAO)J+lydwL^ZlcgUmTAxY$X3t7(<(?1Hn{ zA*NJN`SVf!ywF`-esaA0&=`aLU&_>PRD1Ud74nQ*+a&&}EP8>y0n5}Xr&M@uZIp|D zTjc8`E`32{5|>VF-{J+qd*;VvaHVjgCv&2@EKpJ{MyP;5Y-6;+Nde?G#w>*8AuLa2 zO&$t!AgmN&r3kA)SOvnW5mpT)>ihlDX;qyOH>j9)>nRi!QjNi4;y)Hstyf>mFYDWV z=@i4kEh0Q^-C9t-aTd(KHrY2?tMpuJjr>@pUafRqYh~3i%e5`eYm<#`F+7sSpD9yR zISX$s_dp8m8$@$t()6mJT25_{;eoP(|+D=ERvEgWqWEzsh-%N%rm|={}%=j;}OopnU>*0L%ps|)d;Ft9OTl)VK z{r@lhZ$e!iPWsVWoY@{D9!qI@mw{8IYdLlYP^YTEoB8-zh@WN7;4OYPh z8Y``*wiy)WqBstG7UJWx@?iDHy{jyKdq9=4 zqJv&K@QtN)Vc*T}*2V&vJ)J69U4G5k-3!j z>LnFg{_cqDgpp6%c}&!7_ZxLWnh2Gq^Vhx5MHgl_(1=>5kEjYcqMrCkY($lM#NT*C ziT8E4J8s&lq1{y6}ep*#kb@He;kdbgot^aUQ8UvUrmPm_V{E1pPQup zh$mB;oJ_Q#b`7Whi|PLg`X5XG*U%m(94u*TaqTwJZAYu?AWtLLJD5ccB}XXmL;C-e z{=0)E6k-jQB+~<}%&st&$Q+tMPSNTXZ($z6ts*2MG%7KbXo5~Kf;Kqhgu;0`&nWgS zrbeO|4N%`1&57OS>hS@HxvcSEFz(R%i1;$URp1W>AG8tkPQ>}AL0V6Tva zeVMU`Yv?=NX}n{QZ=gY5DhGG-yx8C-a?i{NJ0}iF6!Nh5h8UT+(zQV+5n-J~bjS~4 zl2NLYj6^bFi+v70fD)8su}7k$wd+BC_s2U7`=_KwrgMi`WQWn7)-{0shbDHMCpcq+ zGdN>Qi|ZvL-G^IUZL-I9OS(6M$ij>_=>Hx1k5J4m3hSop8F~iU*Z_U!IMw4$$-*~5 z2$v<Jx)n+|9x*A8ZEvd?!ETurO7pA2({WI}tbNE{W$dZDP2PdZ*si;id}dntu+egM ze5$8@rApyqoLz zPz`!I4r*c&yv8`PWs-OB>|d5;@Q$F+qz7-(^?P-tr+6F&PAl!va&MV5*GQ4HG1$&H zxukMu2Xymn(>r({KE0z$s>`=gJVy>|9hIec-)C73bx>LQ0=^&94jp6VnKt7M3+4H6 zUj=%W$M-%27f*9bm547`0~=EMlh}qvy~`yWrFfRvbNd0}X3lsFh8G7&;g2&^bT%^k zdfZdzl!z9O@W92{Tc9QMo+o_d6OH|KF|MQcd&GuS(_$GcuC5RJXmUV1y?7aA(ALE% z0w^l-%LN9uaW6aPXge-{(|EemJYN9xdwHe}qZAX3FL)qR#Ze6#qtK&%>0nrT8H>DX zl?=<($4c4$r3I>62N|v=_VkW0_v4V2J><6bKAyZ`VZ!mR#)~<;I+$7iS?W6@Q(>mx zJpk`yiJ0{3$C9=2l%MbNkk*$UpJ1?`Ql{>ee#IlV#Y%CC*Wx2PRwCynf!WzDg4h!^ zI}!bt%)*c6zJkpkHDxu+np@3sXIaioTiOc{p_hElVC<34F@9n2g$%yDoW&f)3msBE z7uMx-68-$jkW}Qn@)x???l-#J?iR@HZilnfi*Jre>&i+hyESpliKR%KqSdHW4Ma`K z>TSuWp<3X785(>n`}$kVR5jf`RZ7G7N3*D*$x(RbaVfcOy@$(m+L37?RnhE?O9yLPdPHa@^g`b0QN+10zi@dvoP%=5P8!jt&C84i?pPFaB+mOv{TeouIV3#OtnHTxV* zS)IpXzI#hCG@QZP4WfjqO`UH)tb|}36m1Na$S$5{M9T+f*!s3U)$U!0{N6oZPiIB; zoG>D1y)kSkEU}W&M%m>kN^ckMI~MF8?XNGdRW{XQhLwo7VCa9Wm{y=OU35uxp6PZL z_^e9(-%Qdj?s460AvwD^WC3t38+SVaj8QhpLK6fzmmrGdSts$(;rBM!u9v6rI_XNr z?+oklB3juGbmQVYaOQZiQs#N18yDvryw-YN>*6KzwJ*x&SCIcX| zlh*-iC>~~|1V%lgW3UV?P1auyjpbmA-CW=jZL!#CdhFp^U~*Xoh7*kvW%Ujk$R+jr zl?R3=(OOiJEM{cL^Us)Ul9H8{glK3-TcntBGK(o4ET+^@b}5wz!Hug6567S|9goFA zS1pTUm1g6@F}o2fCmt)0V~v-w3aEmm6H4sIl+`fYQZ~DCjFYvafdSm{6Vu!#hFJdu zO7j1rzW9m}(lL%7GBP%PQONT08EMfq%bAVYC5P~=ZT#oKo%o*&Bh#@6rdGtx3ly@ADIp>7P9MNo?EDc9~|55x5j-QG6#Z-$o zFd=4PLeOZ%^q`C9fIcDO)%Lt5>-}$2B=@AS_N3^RDG=2*{XjR@OP`HBHJkpLP3Dmn zuUmI4fu6i~I+-X#Cd#Bq7<3tU_I_$K#AmHjbR^=te%t&lVnl{9z2@&2p1cK+)OUc<=r3S(#y8jp(Uf>VS+L3T15u447w#^gz2>rvr?H&4m z6W9r=GV3$MQkf*^Q=D^(&vGSackGR7?Fmng&Hf#DVT;dxMz2hZy~K%!n$epyWU8U- zV>8_&v2t0vYAZ2DOi;HpN6fIbcTp7Cj z38+(DTFA|`;ai9c<%{jPdhp*77eqRO`){Q!{NAQU5NSd@l9MB8dU+mDpi-tlKT4oL zMp`aIX%1p1&HJ4p3m~Qpk*g<4i~a{bkUZ?Hs}?(%L!>WuiO<0vsv+71u01|Uv1NXK zeJJ^Jca-?!k^&m+CE}wJ#r01Nu=Yw6}B)nTE``=#ckHq0-}NBj~E&dc;ivBZ0D9G3yA z+J8SFb}TWwWOU>pzjy|z+L-fn4v=vY(@mgnzB87p+Rd zuwsL2rYil+IDV)cx?Wcf(eyW^1FD$Fa#;K*S!x0Ep|E}!tfVf$5q5R_C|Cvpc|Nr? zBNhdoa;vjslx$|&L~)D+${6UG>hUs0fgV^!U6fkkh(&QC3cgJWuY$`wICm}$6w8z2 zoq#rBnQta z78^_PA8NZ!A~B(oVOhyARno+jY$~yLD0QtI~& zh^G@y(3M|=OT?fCYBULP#lB@d?CFQSg+VOL(qggCO(XoZ;y#UZe)|!j=Hy4Ak@mHQqn@REAWZYcQmG~m#hWtk&J9;9NuG%osp){Lq^0T zL$mV3j)r^YMq8?a#nn=Wtsn&xaY~L;yydEIUoo#2KPaZ&-FowXDbrJ(aW$VS<$IjZch`DBoyY;M%;A&44U+W4FmG~Hbp4;Rzh4k|Am zyCiUWkT+Eg-AIiyB`4B0n?3ntXqCk@RHxCvP4*|0b@91n4bjVThb%i4n*qD?od+TI zr#sKi2>f1T@t%DrSZ$kg=R3v1vlCm+q>)~eq2~QT27^D)KBzcIp)4Qg$nU_E;5bYP zh-T$*lB(!VE}r64QKO-n|8+BX2iIiLB)LydJg86N3;yH8%H}CIyDP(*y=_sFCR#f$ zl{utoRrWW196}j1^~xYvTmTgk%4Z-?AjXULRDzY6Vsi(&Ez4){a0!*3(E^QD8VV*Y zN?A-`h>@zbO0L?yWPm8P1=Vi4KcnBDQF4t-l5lIJP>UW)RIky-1H28UNg2pl$+c{i zuPs}(Xe)&;|5R##P(@F(rP|s{a*3w?1OwgrUe&RS$r*CVuNR?h_Wo= zfp%&2LFLM2ZA#8*V3=$HehJV_O4rd(Sp#tihqd~sZg~U3DLN@7C%+ z^Nq%i$RpSto<}sp0h$|6e75~dW^^K&z1e5hh>x}ZeG!#*4IK2PUc(0JIbFPM&i{-R zqm@mx(CwO#<+V&0OGy+zKQ6|7NVTHZ~%($TbjZW096?qzB}1B7>53c zv%-R9BqB4xIbP24>}m{qvlh&NTcw)q7*glz&*R9X%oaN~i5&t}U{vLQhH+KG-h~}o z-0VA8TkjF@I%iwWi=m6rCZjY~HX7kwiv~=4iM>$?{Fp~dh1HF1oMAwzp+Sxp<&_JA z4|CF*)7)JH8H=?uvqW|npDc;DB6X%{RLF?hI-=wSv?Z(?2w1<`dsYNw&c0EN?Mr?+9rh`7Jt@(3 z%33I2O>uti7U8za!c(Uk%g1wA7?y&TB zSQb`+q~@YlDY3UIwPseP2&3!$%;1|NVOIUuUEs}Y zb}G4hmn73Pqk;bw^=9W55W9`Qf!x%mKWS;sVtW&svOy*@r`Xa&d{uaB#ftBXztc`- zfhLm8SZUK71q;o|-jv8MGNVy`5gcQV(qL%@i)&w6v3#FX>?pj$vBIN?H>E!FWX&UH z5|5N=DiKp?ySsDIWm@Ir3SF_wZQkjzw=cH2gSV9;E|o-kq+6j>2y92EeX?WuHrh-r z&=>kUDk2x5?BE>>u*E`XCOwo!%rdl0sw2nsA6qB0Z2-m1km^*2NAi=dT=g0~iLWRf zjpjSDsN%{4TMbgn&*2eYRjoyx+#+)TV?3OEh92lhGx-!0sU(&#dD2xogchyVUMXo;mAbwuhH_!DxXI2)2>K5U12TWVzn=I zNcn+BE)7%JJhebB8G4&JBL5u0t)odldVTDxvS!5ke>oB!65kZwYF%+Rn^%dixGn5< zUncbW8jmDt=3*PXEYbR+;h$)Mmf;c9g~D?US97R4IOdwjA}Z1yTzHK&_KrJ1L69vn zLw}hOZPfxTS@wIZ%YUtZfLEf66$D4O7F#4R%M@Fz39XTl{3W+B_yB)N?=5VPJr*;U zTJSC#Sj!ljm=igC5wnSTy*SF2i~8dzH^@-xt$V1q?$LYep83Ih7M>SCU8__xoWxXk z?BT_i5$B#&MEr(>RXeKe9bOyr8)?LEsNgp`n!(&BX5kU<%=nQz^b|nEw3<&Fq*BV* ziE)i9EpS&BWC3CJuslOe> z@U98~G0MY@^o;wVCjuf#wI8RDLGKvqy4+C4@A#LSeGZR z5JVvcr6mj(Pfbu(!M)V&$#Fq4*$mwxD2nvfFH&+4DmP`*vx$EF18PRla?w?j9Ieps zlX`ucQEuc)QJ*YI+NCQCxpaM^oRU0N5`wnSB5b158}4O+0%cv`y59%8tT8)1p`@$B zCPPfI?*7Pqr_M%Y`CIBaETu5aS~zvs8|LA-e1R59Uslgf?I1kXV5Ei#x&0t*?Hx`i z?&8s9MZevX0i8*=Ryk!1cy&#A28Y0=$h8*|)tNR%d1hJ;F`QZT`&V2ZqgTo%MGHAB zjqhh@q5F(A?KpLg?hI;Y>i6IGK@7wQY^*zI$;RRUjlL2pWq>HoQG)})GE{KT2?UK% zg9E@&EHFy;5Q={qUbPOe;0tw)sVnxd>J3KQ+&=nIx^pAl_%cIzph%9Mq`^Nj8DI%b z3y6dDJU}S2)K{!Afs1B8wPJd21qib$TH@x4E3TDl%BIM7hex9cwul)ChOP$>8QB&w za@lZ6P+@0SX|{K-$Of#Az4hKq>J=?P-+hWTXn7Dkx&5u>Uj*%9N+#9gri6MpL*tE3 z`$_RHRhjy^{pgBo061W7kNhs3Ymwyi&<$m zi|wanh1$46FJdO?@@L*Y(nbg%#rD0+yI74Scuz*m6O^RCKZ3S|+}j_DTm*NcCkhvr zDh~|T6)%xheiVvM)of;15&vF~m{xYZSa>0gw9k|}U_?z4vREZ(H6R7U^q5+u{LdGfc#STfsLJNo z>DpbTD*tl?Kkdrw&y?98(kAh?Jk~BM`v7>bE@gHY7L872Rx!Y>?_udH^^r3B1UqM@ zDL!lQ_~S9KyM-*%n;-N385#UGmNr@{!Nk%31f52#WLZ!P!z zsHAdMM*jX*DRH?XtDe~9%@0p!Lj?;vn6P0TuT1jxzh?HIrXvQ#yuR}hvJ;!9a#poR z>=Sq9xEnu6@|b6polq?%rQT!Koh#=b#=OjVIm#T%^6WfJPAj{wnvm@YO{{;$B+s+; z=8LxnIAmJ4yuzb&e!?D zdYlEhgV;aalR>^M+S{kBlYS0NSO;0uzNR3v) zs7Kf<;HNO!Qan5B+gA*O(Ng34 zNs*2e^lgL~$St?-MIQP4J;B>M=s)bKYy`IF{rijtu`7Q+#ikIqcrD_k5SKXXDg=)7 z10z_G;H(zS_5xKLXf1~BM^p{adS*}_NFl<@$WA4qCD0x9<-5U^xJ9x- zE0l&mzJbAMXGBw{Sy0L*cOYz4?bEXz%l9#G^lQ|wV*0hTS4qA$qQT>tNV`@GiA=11 zA{=>h8v7)w`y=CuYm50A*yg#_`Mo!r47A}AxbriR@2(R_JGuT%Ia@u z7*apZXFX72MV`)fz*C3#oI#4~qsjxY9`uAZNjvO&{q(;fQQoeKADwZBZm^bAuILUl zWw{$arseD2Esdv>BKv5Fl~hi$=I?il8*I$|eYDqTPy_eb48AK=G1KA>O|?-XM1GPZ zPqrcQ)C`Wil_HmjsxF#wmh39D)-U9O=EUp88{;|f(kN7Kzc({ zT4<$^V5|Y6lVIj<2C>>oZ*A*sZA)+M6|3bTs51%V#VZ7bAXVd|dSXO*CH|qb;T`)F&N!CC`KY5J)cDW`yPWtHX#j+UBN`j z-91F09`%Zkwcw08Eo6O!mca(i*`@^Elg!xIe7H?m&ls+)Y?1sVTOg}#RBE1oCQ5Ut)@>;A$8}~J;f!=K85g)i^ zfgQL(-=I8l9S`%A9_kFA=DoqCNA>pxFzMc7z_u3nQMFmAeWDlDEP_tw_tsOPi)hoi zK@)Q}Q_}(sS!)eXhIXx~xQ8V%e#OPWXJIy`ui|Y@xHq#eG-xy~9{{Tl%fmQN)kB6>nfK@`#hhcDq4;g}~Tddt}8(HE_bkZ+4kY>cZW_ z3)+p1FGK;<+xfJU1*bdaxy1o2;6-lnHlB;s*8qf|l>Y#V5`gIv&1^uxc@1HNhZ~qJ z9&}gZngzB9Yo=Oob5-xQv}v%ZM%bAOUL+pMrxR|Er?kOs>ChIo4TlHp#hT@S798pm z^BoI{h3nd3!QwVt=TORyreZjwH3c8)q>W53RyMk>&8jOt$}hv~ijU!Xs{Gnvs*-nd z*>rE|uckBS>xn{E#CmNn(hW_e-|0hBCgVL>d43-v$}DXhXH}k$xRlpg%T!Bvothi* z3SV{Hs_fjO-E>eFUIw2)Asb|$ZXQbc%tN5h)kZ1njg-)ar>S2riiQQGi3T@5DUNX!Ew=ggN7QSYxaIhC`#iIOLI%MuGD^`A7b?tCvb`(di zMmJX?E%Y{)-$P*BWcB6>n=-Q{SYh{u+?`5>TR)+!^!4cV0nC`#;}VUcS8@BS zF4~n9x4TDiFF#8!KQa|7o2a&+*Ri1MQGjywT|CEiy?p!-Jce5_@!nD*TVC6V0US60 z!#2={Asv`RgNFz?raLi)oW`=Q%w?&kZDau_=J6kxVx)2_uZ4}#ADFDXc7`LZ6iIA=MHM8amJL0~+Dd^sn5ILA4*`e_DY%h6q56r6V9t$3nPZN8v zar)HFrfPUXUw)MSd)&E=?gGMN6}s5(LYYK=1>IR*(di0SoNaP5Pq@i#!-L)F&ss;# zw!^e5A?FtTj0NLCHP4uaO*pm#dxOi@>UT^aj8?&$=$y5p5gV1*=`9WG%bP%GET2ZC z%-$7+9&ykcDo&B~p4+d5?#fo95nrgtP7|BdSw?ixr-;DUd-yu)cKW7O?Wd)uv5_ym z_LsD@POi9zZ>jDc=oNbmeo)}2Nv86fh$`##2%n$wx@=awDVvh`BSqPC`&s(1G^^u$ zqgBO6KSAGUq8GD?ZnJw}qG2oaMr~j-4yL{mB{mNCM#>IP=BDws$6XfthAZR=P8>er+7+dZ)2o43A_EgXuI!rB!_x=Ii1_6dvSe}0XT2PgO#$=e9$2c;e<3ciT*1;sViJV> zmd>Z2hZY2jhtc6-nm4#m>rSR&TROiiTI>hT{X914n4Eh?Q=1z>rF6Jqg5IV0=jJPG zeu(3BSo9F#(~lqP5o;K*#45uT}ocFDu$&#Fo;7TZ9Au#R$Iia?jnQhjq85qg~wRmDy$Ys*_VM0w9Q4g z!>c2@{usW|;UJYX%=Pgw}N!AgTBa-0YS>rUx-Y~GNXb10+vL3PZ zmLu0;>~b|(uRq%xHBLLp`rq*pKPas?R~!U$Wa>vOnY`geGyB^pk_E|g2D?* z96ea`wMT&Hck3Bkq{~t170)@^xF)0QQ(yKH<=&u)5ZGgE|Kdfy-~#)szX1T2XVGl; zs51;9s=$L*GfvIon6hT2)nqcHU34v2+35|=>+l8_w|Rq=&047$$DTi7Pm(gVbcRvw zTI9WCCBvGel@9QPelD+cCc#*Z+YX)-4AIyT(v-rxnBAnZc0YwE_98nz?7(E6QlDK5 zrD>j0x5*Rq`ROEB=z*=?K)6}6G~*7qB1^F+DH-PDiv4!@)%MuM#H^s2)qR<|84g&@l*B(Ut++lh=pm1&a@fUKClN1KhVG$4>(N!3R;MjcWu{&x2ZuSu zahEs=RI=J6FFTiT0@+UtJfu)PgpZzm1zmXkXBid!_{b>wJ)2kAXmsM)G{a<*1# zby|LqO)*Xyf-s%U?kw~K^g_LYvPRRKE-{w=4R;~J=)FKcsD*Y|&NKS$wNyE6E=!5i z?zS8#Xt{8tPOiw+#B`^vAe_km3NA_-u7!#UIVu{lEK1UyX-?qhFjxw5$ehq8Tm5b? z=$#oRbz8Pcfkj(8#qIyB2+kJy70*K>*!(H)+^_H5^mtyLS)0kjddqgtBo z#W9&Ch_PXX_<|LFNx`<4D+UDI9;g~{)Ku>Ch}xKKuYAL{SCJ}e*E8tsX8T^#C`?lo zJNwQPsj%-g4@1pb@)YOQpSm7AN?J*!;fpP#k+IBJP4vzx6uhF0ny{+wlh9@?YW>!& zytq97C+#~mN^WyfPvB|32W*)?5YeF7=W3F9hoNSCuy zxv|G9&cN3ajtST0noM2aXN89642ij&xc-zH3R2uq4c%k54Ar+$(t;zf=U2xbZYdS| zA_}0RATOVx9b>OC9O{gMN`_l0iIlmOA0L1hIxV=30o9P-n|YE>>QJ7XdmM*&#;nKa zWUkMB83)r@Ec=!!aUX*3reHC}8jG21~Xn!~$O)!W8)%mHiX1u(9p3Y*HE@^dRG3IK6u_o6W zfc%Vchbw1;W`+eaiy&3O`ZfvvYqIW%+em;(6X}UItmGV5#WCeZctG)rE}S{C_y8ki zK;6#0%3}~{j9H|xsG*r=H8(t| z>|>ioS6kXdV<_#e$h%3o5x&oI!yT=w8IGpC&0{h8H1e!T>Ss+-%ng$=4zPP?8SLH* z#pZ8u|s>7luZ8oOCM`^%UhG2&=4~;wzp3*is59pNhl(MFPnQ~QdphunS zo)#YlYA!V@&#<y2T;y& z)^2K)Lb+}T()!KDb|W_c^<=#n%{&0<_;&hADo-JBZ|t^0x|Y6ei0x$ul=Nk-ut?!> ze>)5e50EDbf2+EM4Z(z@ehkQEBE;nf-c~zs0im~^W%p?*v2-v_8naUj2)%=Q6IQnj zkdbXDD3+UEYB-l3IIox!(zps#0893wJPY4`v?w_TWdSutvRFGN$^!1N#!8?LBVUTq zjua>@s#`2E^T`)0qxVZgn1xMs&+Ga(rmwrJwV+(&uh|kn`s)~wNx!xqFsB%Mm*qs< zehjR}T-XwrjmZgV7c(Q-1dGtk(sImykL+ikMivsQu6_-IYlgNbOu#lC( znpa(Gt~QyX&DuJ7#i1@ph+0Zfe4f~+m3r7j(L|Ui%7A_LRxS7l@IzPc)qwMfF?&Vv z@DF9?n7#2Ls@e}7OB$b9R-b_XQ#)Kf{?O_L^OsQu!ftXYn>;vQ+J~|gEWABrGHq5RSHMR;lGJ6$YhIhy;y6S5QkSQv;EHI)lRNsAQGz<7^s9>J5TO8fbiQ zvS|gTIqc_ zwbg0CsnbHkaw(NvpYkn^&q`3=38nd^{BUrp|9lx@sb9eo`9(0pHcex#TdB|Ia!iNn zT{i2WX0xO!Mnu!0#{3CJ8d@mRK6lr&luuXe|H(9M-n%p@9m^ouH&15+0`~b1hmzO1 zY=Bg&Ws4#dmZRkT!w4%>a{j?#qv0u6hK(nTq~z^fA{7Y>mAv{TQeSX9tr_8&PkX_Q zU*(i1G<9BVKWO?Ut=Y-*(4l-7MuH-N^vV;RJP)^-8PaV54blQu0`1BiZZe(cFOQce z4^EK->XE~h09in$zdRVb@IyOR%Vt?$gJ_ZJzpPF?n%g|xk<-_c(f{M-+xnWH{V$p? z-TiglbEV02F?)8|0!|U=bgPyF5NW%+;bNPzY(;Ee4ozLGXJ(@bi)HPVT5xPLyzWpy zaMLqJ)%j8n0PxkdDqerljC-WXWVKKgy7YJ7bNFgstV|U7|)y9keB}a{c>ZNM7yS7EC`wwQ~o;I(T zO1~E6v45A}NfoKe%=EWWe$Kn>hIZD-qd&tJsFTbteg(mk{4&3ul}2;A=yAj7nMtN@ zH%lugQu2 zT39vXs`HR@_5TxcZXI!+4Z7@D89>Tk2L;!SNU$$w6q0i>TXMJkM$+)}Vix3#Q3z~b z5EFBa>2yETXL~^EZy#21r4E&2wmmS-j@kXAkLEG&&85W`bBlHhT8p+R@82oNtpt9kE4!M|U={y-I? z9^hOED+8K%P@{ru%A@nBpp%m!%6$)b&!tm|ZcQ$gjA=hj9Q9ohX?39 zIqIR!RN0huU@&WzseVssgud^tqn}?@GXG-Ke8*zYf`rAj(6Az9lWGM)=xwv%F})2| zn_9rencp@H7bNhCPKi?B+GTbW_aB&<@okX!XV3#ZfS^Tf;M4$Op$t3W#t>`SxF4mD zw_s96$$@pV?~j!hW+0B?$F6(dSWUq7M#lF9i@C6qcpT%(+lY=lND;or=x5FoDC{Yu z`&C?DVEJzm^LzboJy_PuS4!(q{$|_|HM_+}1t+QXJ@{&q_Ce+(P}O^P<9+U zqqGX&MFH6JXPx7RSIGPAg)mWjj@$Q0?b*p()l)R(MyfrNqnzR?` zd}rymy`t&mftah@2Ea+r@4)@+z;z`XA0Rx$8<5Uxn9AKjWjwG$*|^#m<|d6YPOx8R zGOZ}4l5bO$ymK1cO!#71p5|;?dVOCFVO)Uz0yW6u!zi9v=|`2k-Us%P^t;6Z zjg3A0#lqAN5yozL9WkFT42S@(mhfUKf5=yRvSKW?8v=WL{Cl@I)Iu&bOCLph4zwLit?fRTgMWTFx{4aHK1R!p9F(YTry^0}x&9No@Kd zSi`WDVD}-%u>0WWao(>_sP8rGKKRXs-3O&+GdmW~UYY~j4_Cxn;8yY$IntCze@W3@ zi#biYQuBROwW(Pvb!Wlu2%%7SVfS_P%Z5i{iog{zywCiIyUzy9NEB5V6MdLfWK}|z zB;Gp-f?-q<7_`!+%43b+uF7N30+w`$syO1PFvq6Mnm5d)^OauY){PoEy!V!kk~SAh{t2VIM#;M=*DfXJJr|CLE|3Vo zNJ`!(N&x0*%iO^{HRLvzslmxf^a7c@$yWT>;F}9C0|_>!nK|kGDX`reoMaD9as($8 z1}Aw5cE3aaKL(pUV=h~}E2BLuV=kCtKgQr@+`(q-%D|eK3!X&TXbxpWcn`E9SHNag zSrM1OCg|?bv_RuDPoOCcjqQ=QZ~2Bajogs%HrHczQZ4NlAUh=ZQoX<6F7GxTN8o$eSbFHwtZ z=ILf4NGttbA@>Y-aDnC(ax3u!7f*{*E^+h{BLsl8j>-tg-iMxc0I|@7Jp`WYlxM)0 zT?@u+3DMiL8_v^zganbA1-`|N5!{opofmjemuipxS4=GU&ex+`fVCyVRI%Tz!ZieQ zN)`Kr4da+v^<*X3iztgpaQXL0pqm6IiV?l}*MQr-hX2HUfir2#Q(wjvM0c|D4Q1*Z zTOj?XY^-j*- zFZY&CvdIg@Wc`I-0j1ty*Uuirz3z|g!4+x2xwhb3Ye5TyYrNw9^DI_qfiKOOu3fXd<8yvdHHvM3{FCMAiia7}cl2tD$?Va4R@V-x zG*jF1;8YP&g>H1KHZ0xV->Q}Fz`*MT2YdVJz)1hQg}~k){D*Nnns*TLdk@*DDZzzS zSI~mi2=CRysPwxpR{D1gRrUi1Q26w#vy9TO@Rqu+wj0XqwOqXS>MVWl0hC{LbrvdE zboDT-Vyc_kc|_U|&h=4{k#&W~EJ_DDT)pYwBNbwRIj#`nf9>q8Ku z7qg2zVxeYO&cSwbp?yDtOBzXV^9!x+WPR`7da2CJx)tCiChyC`W5U3d(z!sg`(}K9 zq~xTh7UJzQC1=Dd-)3gb$4bu4e?zW}>dm|>CXc;^zdGdCx8)c1Q6;0U*&t;bKbS#* zS#13?xd7Q`wopK!3>d?C>R6&UC*2`S_sh6@zRhtt{FR<1<0@s`?J`c2acB9fdYz2> zjx4iI#@S`7Hp{prGH$($i?!cu;)csdRuVt_EDf0a!g9{gEHivdW~h{LH_JF(#?4$V z8zJLO^QeRKIi5)p1h9UPtcQ^ zv_UtTWHhaAmwc}G8`aM<$EvYEQzFCG&W|;T2hJEQuDC5;u^*;k>Ry-M`*^VA0NOv{ z5t2jZ?=VKH8-fzYZ{v|d^FB64tjB1c(aa4-v(}gNja1!Hj+=ENHZq^YM`l)ctYM$a z{LjoguL}l;zobpx0my;0e<25K*87H)eoB@;V60qR7KXK76)=mojR4pF5QA|RM7q+LEBl~0-5IRF`Q-`7LH8w$%Ar*%J{)! z7|?C}1&83Yh%6H5E$12Lyue0_&j>< zct~I$>@&R7rT#q{P4Gv=LOHT0rK4c_Y2mp-&GMj4Ox3AKI0b0doB<#$2*piqqYsD( zln=y_{O=+f?RG&CJ)d^=+`u{WifdgVbvV^3?`dYP)h9o}!li??z{<@KmUTyimhM4{ zoy$}*CO3Pf?Wz(mbr(rfR@%k<`zKsQYo#}FQ+xY2m03O7xXB&mm$4P&lGxQTcibkR z=evlTdPAVsyduYFrXWbfY)`B8aM)2STV# z|GouD=ZPuh7baOOlVJY|E?q1H$bL#Syk9C&jZjYb7g*y72VX=8yF_Cip5dJ;hkecB zr;sH-@uT5qTJXhY_H4e(1la=cLk-}SE|d)K`Ubr`!&rZs_*e{(w{Fc9KVfrhp$9K{ z9SnIpI9x4;VK&f1fL{IZuKvQ033TP^wFX^zkkW`j5PxKIYb<$J1s}O?6I`wu=K`EL z6uVElTctSZZI$ROHm>D0=SMBEEABocZ2vd?VS-=wXV9)o2y-Uu+a5FelX~&~a3{D= zEhw*Fe=gSc{`;XY!xWx}iaO(rRE+*A*?_)_uH~kFS7@p7sw}};9Bx%y%BG1aWt8!O z%%v$TDNn&3tFq}XYniikSqiHRH57#DL-|>_|BmevYMQt`&ESEwXz)7I*Px0t51|yQ<8cHslP0%$ zt*UHHGuPRu_CS5K;uu9QLG-SFZBJj>I1x-l7c_vyX*JSmb6LU^nAG=bF<#Y&drYQn zGnLxQa9rIuF6FrQIszlW%CH_SnnTAcYdKmX?+&sD|S>ZuRi1uaxh6Y)KA%%8mOmks)4Xg**Mwkvb3P{lapdE zme`9m_L3ZXNr}Cr@(WB1(u>R4u;kC~g0Q=w-MN41G|`Y-ALvP1audJkN&EC@*d;nb z!zRY+w=~O&BXD>+$ihok>K^#qmYSE_Rkd+$My!j{9snw_6jeM;9pk6UW zqeh6D5JahRySJkEN^Kh7#%`RHME@3L<2_aafvm`THkv>HLgZa~)Kdi%Mg6LG6QP!@ zipK7wg78;Zo$rHpxt^#7P)llcPqy+1pG2yAs+U}^Y*Z;YeZzQKEV<1D+HG32CGhb| z{QwkH0}V-V+ALYi)jdT^3YCp_Qc!v|rH|HA@~}oAMLCs?#b$bF4@aW65h=Y+=C<_Z z=8_|UkFVB;pM}vD3q`-DSvnHS&stK9_D~&^F?~4K;ifuhgRyzBJc^U>>d9?3s)}A_ z(r=JeSrZGgFYziHJr*=d*?2eBO*DdnXx`9Vksfxcri+)TnDoP6a*4@_CEAuuppwkg zjpm2z%{|d5R^C23tR(5)FVUYtJOY*m+AM8a=$95sa$fIJD{i4ip+QO9AkJ>l(>ePT zGujf*Kg)Vv=9G#e8k!`RF+SAW^s~2OeEP=5lF*ZAi=KIrURY6z$BL?4#^5A#TaeYV zkIJEPpS@KzU07V>87?j*UR)f$TtTmKl>k$_wi$-%6z&t;p#@P@bh#`)w0T9VDt5RF z4*$|i`(vRBBl1Of%~wx7NK^Q-xk!a}7x9m`zldUViWw>)uoqMWMD>7B*_T_dLd=SI5zvx8L zWUut|f1eFvQ_7}PWmB_??5WC{hu8oTHPt6oHqoLi9)<2SRorR!QGN@JOyG=Jscq+0 z-lB<5l}#zCbI0;DO)Rs?_o~me&~mCkQ8rzr=DwwDGCLbqW_ktTO8!Bgi9RuN@JxZ4vdvcyz3K9-2*v|90O{uMjLwVbXEs@$xyqi!kt>9aluBj=?zY@ zxq?@@g3GLs*)tTm<}`SNv#1}9-r(i^f)nxg`KVQ$sccFr4vn_K{>^E(I0|n+r(EKo zbB7X=bPiEKsc8U~-3ZFA)|xs~VZ#g`Oj5zVUez;c_KyNCAo?(w;; zc--ux6RIi>B7vIQ?h_quWs}VXr@t+^%>;EcL`^D86Wy`TmD}L5w7aN4)pC^P-?_W$ z-=W{kmfo|1H+82%?6xq-yr*o@WZ1GScjVw=BY|G?I&3V>6LZqML0Wxd<+ORO;7bm} zP(V8bV5m)}y`}JPrHWp+Xe9hv+rHu&Ep%s^N9+#!qqn==@RvWGu=n8(jAl$_U1B1`<1+cr|0|@Lq!&kOan};QK z?UMucpImRMsMWT}e&az>MLS^;`EXDL%@fp^($Ty6R zz{&*+uNq=8yC!j4PO=RQGzxYw@X<^!EnUimP1U3X>t5N?A}X{)Ht{gblNv3+rb)dq z?35a3UcL&opaGB9Yt@OD|73)5~*mN%TGcNWs+5j2`djg-*JlffU#?vf#VAKLb z8%9M0QAx_`r_Uix6ALUz#fNQ%0CsGzk&w#b!HZclc%Js~b}S;PFv{`@1ugp0Ed=O7 z(HCw3RMzlfV2iA`xPtiw;qG6@@SDq#HREo+CzmTyd_u^r5`Of9chV-N+6xZ5VZ?M! zvlm!lPMczPH+w_L*MAp!rf(=2Dttxi1=j)FyaB^=VlPDxrD**s8K?#)Wy#QF3U!H2 zJvkmRTt<98FUcg1>PN2SaQGPzdnq=XqTZz_{dFiB&hXRcoAZ)PGScA^y1q3Y(IO*) zZjIt{^xwrJHpg>})>or~;G}#v&C~GOljT|N+9Tyd$Ia2o2alUGt$et<_5-E1n|ZFZ zMOVg@aPONtdrpHaZ3&h3D!dK_=b(|n3L2An!8z;oo33R;osAeOIPu7i4HljVRF#ZX ztZotJP)k$L_qrBzb2#Q0$#dMzWy(tTW-((s1y7>ovb4iirYS3k7S*$zjf!uNv$e`P zCJbh}d$U$bl(W?gQZ?l3AR6J0w%`nUpRrj_g2*MkAVUAbj@d^<2Yoj~Z*Y{mL%(WB zUm6+Kthd?|^1WgQS3iSs?Tlt485%ZEpEv@``UI;Wx;upXgK_T8<=^03w+zM2{NJZx z-2{5gRqv^rQ_Ouu=&6^^dUgnB)e^Eg60`0ao|v_4ZNJQ~$;|T-GLKBm{8+!teE#W| zf2GX7KAs=b;SEvJ9N%W66dlvkK|j7`J?fwxdbyTljLBl9w(%TuEJzKiFYS&VXtz*JBHD5!+Tp2ofllU(V6~T zn;M)u)@5l{Y8r9;NwmMDh9+A>)(&OkutFC~bQPNE^k-=+&kmfiRCrX>!37msP)Q`9 zo6C~}Jp(Fk)GMm>G2upv$@8XIj;orkI(R|6}?nv|N`&cfWx zq~XXm1|<|Qo12d{YVe-Iu53!c`=3`toOcdWLakVrY9XDJl@JUPdrLi8UU8?5=mgaz z)a;OT2sE56?HXp)xZtRgQM8uO zfH-zSS*blkU(I;w&^z)NLT=Vd;Q(@B^I-kMzx75TR_@n=7I9Du8oFR&kN%uYJAg1y z9ZRce!Q6r{1n$;KWoWxcEX?wVrP&_w{(TKG|6bl;QPzwEr1bD75IFRTSvDro7H{^l z!1sEUO}Z7WbMsTHgV493aX45g}6S(bMTr}pSD`YkK zN;@Yj8_Uyrr-ah3nMiprA4tE`FCPSMg2z&?Mn1G@(jaMC)MYv9vAoVCtmRGB(g=;p zg)M{iCtv6zCYuLh9o=De7aSSWPDeAgR}S;e^J`nmUA~3e2diR_ClF5aTEbqjv!=b` zYGq>q9flhnwsI>@_BCOTcuVi6vGNi{90e3-Iv5S1Y!r#fod6&FEWr2A^B?@D>z9%>k8rJ(fD5=aHGy%!M3sK)QIN-w|GkxU-+;+AA(%@!hcZjztAl2U?U?6)8ZDLM5d>e zxd^W7%#!L%atpm~HOsn=b2;WKwVft8dQ<2WRN@jlz&OxA9}vy!7JH?jT02F~3$j>R zi6aLB1NyJ*Q2g-18f+Wv+Y4$aB=4mfz{b<+se@|ZBXjx9CyTEzE3YjbOtsIpyMpr_ z^SEyn>8j;(x8<#Uz3RR%yECIv}NmK*+ff_7j!Rh0m^zR)m?TA-QHEkGb7?49Q`dJ=sR@BI(Ta~CV|Vi(?nyGy7BJ9b zdDE~rv~j7K&WG*F#)V1rJWNx#6x=|ol9RmQ$|OE%E@s&=xknbAY)mS@n|{sZ`F%j$ zB5fD9lv(P*QCkNXhu#S|R}{7m1$Nt&S1mI1)nYS4e#|H$)KjQPTlp9i$vzJ^4&_s; zEZQg{iO-0$PeSbJq>|Iy1)(;|S5$t-#q*utB%C%AS`<5V$`X6I*e;x6i)v0PLFjRO zWe@qYuSoDVW5I@9YA|AxDT<4y_>^^QJ#%)8Je6%MPDP|!nY9P)vGEbjXpmcK|IIqt zeJ#;{FF95l8V3?BNlA9r7FX=scw$u6;ofU_%Y^Y}e?-UB(V43gHejT6=UL5${$WH< zrAXRz-|&WNc!~){Q(B#tRHH}iCiERx?lo1U>X)C6M!S>se`Ec@HW)d75$cm1BF z00m&SS&gRC%b^ocQB?eILVaFU{Lo17A4Uw@wtnk`GCG2#MP-a`pu*W0a1xiFVwCT) zS^xJHa3Os)q{RBe<=f*m4gSBVX>ejqb}n~VyoMo04gE?-!A6O)utO*ejo>ndB-DC1 zR#&`+Vg34YRlKI*7wd~Gd)D4qiAK$bshKbj4G(63u^ev;%|%>4+^Ic{*9H|?PsG= zpL35AdJ|;l!hM5%qS2Qd>A#$)2?KdG(PA3-za7({bzp2ngH$ZaPLXB127axDbjeNz zxq#6PcuCO$^+f9E)J53%pB!@B>M7mMMERY60tu-@5ATQW+USZQp3=RVIOts%84MYS z-XEHoOOEb)Sb}S?Z(-wL&9Ym6A5pc@a`qQ+Jr^T~NfYPvE9jfZZ6YTKRb(qQhiM;^ zG;>!J_d>CJ$N!j+k8QAaQi!De^I3mywnqEtQWy?+sI$+LEZan)pV?5tDP2oH3#;kp z#l`H9_WeGN4D-!35z$ILHm8E0(1Z#6kUoxj(M;*D>|Wf_xWrv)nmFxtzFCzz zChQgs-F8hRxkJS`h*>SJ;6$6UvCZwQX9i1#N0>dO&1y7^BHcmNMmxH)F+8YEsaXSd zpOG%TUph)aM+TL)duRJfYi;|37NRcP1z|Oa!(_S2?$I>SVcg$Psw$gG2Tdx-P6cVD ztvAr}A8bh_LN8SL_F?JzI@7^F?X>%49bf2yRi2wrNdP2MToOHo(Fo1RYFD zj@6-zvO3(ghbu=?;>v95`pPTax%-iQs7Ew_{g>vkn6;qQ!KpJ+q3#*jZZ||M&b#k7 zM)USG*k`S6@rpN9(V>Yhx1#NH1@E$XO4~ioeX(J&sN5GIFlFP>Sj51-h{%ULphw*a zc|4`9GM0w2M;uh1->+KQRp-9gVD6);)!^N>nsE7OFAP1%tZ9_BZ}8+yxdydiX;d6W zdYS_Q&C!~8=Mq`^jWuV9jcI6-IXTr%w|*SjtSA-G!^KzQG1RqEsbFZE=ZNX>Ml&H**N!OW^w2Y9b)R zWD}HzCU#CZ0RP&lp+_ok+7CT4fF6M!%L6wfr+rKd4?-k)5rtdo8zhu+SQ_7%s6jO` zKJ-Ykk$)WW58?cqpF9JqttGcUH*)b3I7Mzf(nJ~pXNFg3$bIqkL*t9cL1Wr^uv-VA z%mJR#HvSwoP=$H^pvQ;`oEf3i{v05E$pT%xTrU;d2L)d@P5PLy5ugsLH`*oxtlT&m zfhIN-NP)+q8Fw?60&H_>j#06*1Ogw@>BNo;#l@=Vq4|EsD}3~S#wFa(dBwZT+Erf# zt0vCiB`_MIiroZGE7EDgX_W6s>P}Wg^O!J9p+W|^CR{N(WF4nE!z(YR{hEDrfJ?D@0>%ld~Dz+NPjyn`Uu818+)5scs(1N}ns;8;p*0 z>Rrh|j&EJ8J#T->?a7zzF;~4O-1&r5uCX*Z8^KXt&m857^;Fg~oZ(zgG)e_^rzJKI zccbjSS>TR=_N9lnV=x)3&Yp9D{+Z2N+U^yHU_Gm*#w58Fnid@HfK(eUS8t&s_%z?b z`oSUV(0x68iclL}wloVR^p_O}r)OE|*PE51hO7f9L2=NP1vY`fMSzR4{IZEb>*aVW zq&L^)Nor`Knchk+w`yXzV`8K0@-$1?q@ee5B6zmj8aR(@jZ>dt$6kG zYYK{#1#uAtVg5+sWQgNXI{$fyeA%bm=&}EFXhjAzebba1)nPwPky9NQhtuL{H4VQl zqrDxj`#c^D!Wr z<@TI1ic2DtMGtGEnnq{)-~g?3qKp?45$`hFE(jS&#WkEae|{yW3o3*~L{$F3uH+o| z!h)6mC&Sn{4xHwWKA_|rVAFj5Ck=yQ{?)OA@#r_8qiknt)gQCOG@3p#)L~$r(8n$$ zYYuv8O2p3KbVttLtnj|YUalkh7PHg_f&`@he0fD0P8w}0*+Yjv|DD6QF8ZN27i#%G z8f5kVuR(@$Y9;58SM1Xx=ira=RyM|ZuN}X44TI|#e$TkqhF=+S7wn3(qi+r6Gu+OJ z!&j!NfuEwW?%>4Xs`D;KJU|WJ<)9Qn8 zW$@0Vg7)B@=%SfAV2($kL&520+xY=Ltv8%jh~jx0i& z#yq6bAP#qn4l#>nV`pEW$DxWt;z62{rmDV_S%eYAo!KsDYhR!zn}|DOnu@A>trb6n z#Et4~Sdl_SyQpZdqtLl?MT#1{-60M+o0ikt#4OR{Y{lE{*9D(;TfClb^| z=^}orsF##+OLw|f+8hmoq{s*s1M5db8xbLaca`eXO8K>Fp!2Bua1Z1d$}d-)k*c=t zA<$yG?F+E9rle7YEJwXlpCelp0EMa&`c54ac8PkVwz#n6mbQWra|Mfm@B=+*72k}L zYMQY0k!nT?c+PpevaT4e4wew@R*tf=9D-7{^Ib zY{+UY0vEW-;a4(J*eN)|s*p92KPRUms>3YFzQbmtT8RcK6iR02*hMn)V_DMrEbk04Y zj9RS2_Q>b37m@w~>_t>|;F1f5g0#)_Gi^Qn%&U`DfnpYKW=3((w-#1fevsx?Zu|_E zNFKEPw4!2ZneyW%IH1XEQdVUpgQt@h^$8ev$-qG*=N%Rj%8};2vX>Ol=5){_T6OzC zX@3fuG@(1BwX&ROJu=9o`lkcv)c*>r*xhlqpk03(-+#4AV=-zLb?2XMC9eTr9+=Yg zf3$2Ec&9Lj!d#Etu-w+2s^si-OM^W29}IWFSj$i)2fUP$7@N)iPB$#h{Db~KRbgo9 zk%}bl$ves;3zJNycpoFms@ae#&udUt-Nm}Kqu~#!!P#7KC+<2+BPW#W*-(rw^?^&8 z*&d7^jGeb(%^WqVaHg{Zd${!x?AZJ}>jxC-AH9kOV)Ux6J-7$V+qrD4OPQJehv&`c zb4i2Y^sl5_g^f@c26rRG#r9@&>La9_a$sC$^dY_{m>Kqz64f#Kuo{{|>j9>guW#^D zkW0CKU#xYM{UFaL8n8>r`3U@MB%KBA>OHW_vfr>@1lC(g8-*TZ>+A_V@HpF)&`zfN z!dh;<7U;1mtK}_hvnMpsrscM3A?sQ#&}CI}K8I1r$Nt-F(jr|+S~Q}ChW$JH5y@#} z1CM@C1FzG6Q4cIV_MnpqfoI`~Uw&j1ot2Tcz62R~FM^fDBC8e%+xZsqSpfWSs*)PI z{8}bQW=SI`MmF^2XWW;cX+%9b+p3@vJ@Uw3&1{|^XSZljbJ?ns9&J7$9id?v%wqd{ z^*osD(Gm80Ixwz=ogz8y@c6*|d}?{I;!k^oelzHIBG36mp7cZP#Ti~U_p$>v6K+Rb zp?l5J!2I>#*IiF9d4T7AE@SEs;-?A5zTUvk4mn@+)39s`rTuW3+b|?%EG@4iht?-8 z!Pq)ml_FQ7izVU?u?%01%#*GEfFirhzy(U)u4Q*BdA-ZLMq;_P%g-3Z&~ zSs8trpO_XsD?*FJewXtdWwoo9t?A$V z++WPRH?RK-oHq}^_FcRA3|o++Z56!APF^8PvzR3*?FC5#Msb^babtZ6W`?9?#F)9E znAD%Ne-Wb1aGQ{L^`dOCeenI zvfbHGaRa@0hnOk8$V{8uRs5NR&m{U(_|t+oVPb{ngI}1 z7-H)ShPX|HqXzc94&vAT`apI_YQ#kci`)fK+F`unxGT7vsH$V$;BpO4lIU#f4ox1S z4>-ksIpz7bQ@B4F=hpdr+o|_{!slBp@x1NDdHZ=jZ)-rV&q`;So%B!psk@U7+nt1- zzeV`|YE?{1bM~yfjE~zHeBA!TV@c71?oK4_J8gH;37P(VNA-tJf~_2D&Dws=x&M=k z9=AuT;*K;raz|EL>Aal;7(1W_C)v0>(G@>&8*Q|^JEd!F(Fj_@aP496ui?9R&2I@$ zK?Db|N4WrtL z@>gDPNW2c{zh8d084e~yV?a+*YJLJSW8JLOTo!wI5pqE-fgW?YAC`vd)-h#r&>Na< z?xQE&%ElyL=q|!k5mmGWI#UT~tl7D3A?slJa9LUl+M^Ly9fc93o;s=4O^mWOQB#+P z?*XXXqJ(nSUa~y(oGi~MZS!t6&iroV<0Q52E?H(n*B9JmF7;zmywpU0SC=mTY`^lc zuJojMbDO*Vqp#@4`ilOF_FDS4_b>nTU;jnz-S=_4x!b!vTwvwIgmzxKyrlEnw@;5Z zuSIq4S$?Y*c^Y#gqS+T3Rv7aqA4YMMx1ikv+L`jYa+~9m!I<_~>gbCCArvgvys@v7aTd%NUfAb z2;eHh?|7KdisNB)v;jP)m?_UgOOlnmV@sVN6_8$%&}gLanGm*=QbrQ^k<#2hFC6wCV?wOcg2B4_Zv+Gsc&5=z|=(m_u(Wzis@~ ziVO;!Ug4zB=@mB@s+R7Yns9}k0?ifI7OF`V-$d9j%AQ4GOHfEs1q!izufkC7FG$eg zFJj$`m>3{?2%-(=j_2bW&H^}mVwaAhgC!+&#$U%&+G-#&0|gEZ($lHR%$xuFS!^lo zw5!xcS1bucZA*S6_A*u5^6dFoGf!)U45&@&J9b(nmy!Kr6k?u@5VMsLF~~PiYHW%I|d-ggwrd!E5JQ@|en@3Bi$ zrKTuJ8fU9x4V5D?k7aZy2Lb4n279EQL&3=tILt}Y$o6NMXuv`$g1nFPxBHP?pQVlN zg2UA4(69&{PAx~V|HHs#los(sE5!do){Wj!S}jbvc`dtnH}BhjvA$fbFbbh6H=2H$ zBCjGQPA@&+?wJo{+cD8J^E$iCg2zdN@sMUz)R?Kx7ydtwtL_q6fk@m-9+x^(5Aog59)0 zgH^iqJ;4H)u$IMgu7Vz$hr7BclOy1C(VQx`u_lS1(I0MBO zUv2vejUALs_k^Z=vKIVWYXP4FxyP3)b~D^!Mq8O*sXAx_9H!N_uRP#&wwDj4!TuSQ zQwx)GwRR7h+%U}R++Xz+-C_p?+V~#)4Ys}__D}$>zQJG6^Lbcz>phRc zwdiw(J3X&s0d~{k+sw=bU93I4oi$YNV@(aO_y?`U9QH4o-1HY?8P>3qRAKf6XJ;22 z_5>I96ddscmmc*5AJS>+eZkUBuXxuNT-ZTy=?gAxW6h3-nu+v+CH6W`DeL(a1$v5B z3=dh|+yz4e>Q-)DhbpX&?qnFDnDAl~IMu zVTEy;w2d)!oS2>O$E@nO5{Fe;a|6!Aqh4}!CP@XVwj@J=3XWCX?5ktclkA-pRb@_Y zggDixr`d1oaS9pnN{3ncVy=$)V!oxFL!M)AvFykD^l#05^o_67>d->vtXFi#!{*{) zDWRZU$zj8@r`htbKH_$;UaSt-2crEe8upfk*`k8=c8EG0F2Av$Mau8xEgilDyeBP~ z;tdvf#fjjQVK8BQLK9a}!iu+#Wvq$(zn;rzET^muokp*U+E1NzLL#ese7WkJ)x;K7-fufCTkX$)SqcX>1l*d zE~9@qAe`IAlrOJz=n2xx6Xaxsg z@YijDm3C7(a!0zY(nu|>4KdjoRI`k#Gt}X3YWy(QxaSx)$_K)%bTUQ!WVjZ*9JY0W zUO5a|TA*ndh9dAqY)NB4uXMw;UFaSw20Y)(?#LikdH54}=nhl09qw^f$BJ^Vj6dMZ z-KTD4E2fF`D^B9W2LkqNur|m%BER{Ba&NP$Oy9}Q<5YN$qtG|NR9Bt*Rb?vuKfi;v zBCBc%!?P)z47wclx?yIw)9R@DFE6W>hp-`0Q%7o|Azq(iFG>S*!p06PG%-LEW=!0N zV!ES{cFAZxye7Dvi{K)4#W_AHO5kK?$A&9n3DSH*d?x0cIBYm4ZZn({cgEZoZ!o+L z_we&M_BNd8eb{bzAI{?EbL=V(UTD9eTuoT|YB-*)4Pa4!2>?C91FnT2{7RXRCduO` zth^BdEKk;F1*BjOwixV8f4-G{6Jrl**hTvhHk}07dr#;uJy1$}_!Bf7ejniNp?Do{ zH1zWXn&us*A_(MzD!5?s$u1Rfj;G}XcXJTk2r(=ar|6CTXFhgEriGq2g2sAt#N0cjI~Ww?DWb*YEq~S{={T zCUbcy*ZK={{fKf=^Q!Jct~KAW5+H7sB*Bbu|NVj}gS)IK3qIoXU%!t#xdt4uY%b?J zRh=l8zyX&k4YKGVT(nsU38tX1La`tdoOjpVVm5&j1o-!e*?yK<`+5Rv^xQh{Lcukv zuj)zXJ4&b=tFp8qvHxLRe-H9Jh@KITjt^>BZ{g_fa3E?`R!^b#?jQ1N5xs_rEzTw- zbOq3PQ)sC*w;|AzTro&1g_TWLZJ76a+7BDJxD0kKMRl?R`C3#^QoCJN6L(tXb!4M{ z{crEmth{YhuqEkY6?lybnqw8%r=MT6tP(f{lo`nmh_cwdUo#!H`a)X)^}>7;@hQ?$_REa$1JS1$ws zt^uBGH^NHu6ip}oQ#Sy5-WDqzRuOR@jNxlM#Ou?^9QeWu_kiA{_~w^^un=h zI1`OBIKDuGDzLKkK&QDJV9^y?Y;m4aLM!D|(n)7{0P{o?j{Qo^U5{Gbdu2tMlC#f{ zvF{$Jn#L9|-z*e~bG?iZo*XxV5knb5dXRyD?c_piGZIjEf$ShUbkcqdmS7>&k zduc<%{SGZ6f}?>-=ua?$0;j7U+UcTAnkCGrO3A3%A+0*P*9LkAmRq$@@jN=W!Op-m zoOKz+7^mN*htgO`49DJPDJiBxCeX8!5T-vSLp7LXs1S0#bk%t=F$t@O&nzOiUXr@m zL@nta`tX?!tI4!^A+>7DLV8n*Ba`Tu4C%&eUC#RD-{fw<4COS47nQMlalPY>*tm4t zy}>!vT9dm@il4fxWs?3{%s5*=aRyA_oxlWso*uX8mUHn)50!=k_F^Q7?xj?o()gg! zjM?R|$thJbVi=pUPKNw3BW}jj;h4-{*d1D6E=Ip4y4=_t=(cR|dNkK$5P#XnJ&jvU=R;V z=I>Buj@bP(Ft##ExU9G21&p!$e|Pv|%YXYx3|zXh8t$>aR!{Dg&6x8E+M>(KV#vqt z{(w^NMs%m#sAl}bsQz2$SD$l2wqPQ+AXQnN-;+2H|BzMY7=7dxOqVU_crzM}wUOOV zjyUkRnO!*}WD)1tdm`3g`25iS@aDxj-}FT^`fxAKFy-Dr@9^@$p-G(+-o{FJ^!KMY zLx~!4N1c(CHab!JYr_v(u_BqS)stR_@C1P;meOm@bbyP{*{uum93TN*hP3&xL~wSC z9WjWG#oHx8%E5A}zspOV5`6r>Okgw#PXGRVbrL~az7pDb5?G{36+5F%wd^|w8&iX% zz-d$@0WNwZ{r#21cUK)8mC<}uc0{Ahx$L^1N-tZxC1f*w^C_DNPi2kG^bq||ddy}z zK+m$ZGVaZv(fgA&(|1}m-lw#{~-Ol*T}F#l)vV2n`z|Ft?6)+BxhmpgT-a%v)Wn^Jo0#kb`rsaGXnC}t9cTJ|Jzml4E#2)E zCq2;?Z^&AGVj`i_Rn{pXYY<3wm6dsO_25|5D^G=;_2uIzg>_Xyi;~x>JQXPjJ6jcZ zleP{VO2wYGMoeF0S2C%oD9w@&-I`j8cYVN}6lC zm6HH@K!(36d68vTCX}asLODK(?xh}6)B{I+&V9>oof1k5Qd!6|B{b}3(Y@4{Ul4Zv z1(-3grk=2(@#K3tj7)3$dZxZck~0^PG4~98`S!72jvftPPD_<5heoJz|gU zCqmKrrAP6d3Y<$*9(%A?-f3ieS*(Z6#u)|}bLO5W-rA=hzu3;6qT#=owd74^gOyvv z;)~tP-<`(qyC9;Yi8mpbqlwcjn?qYSi|3qBO3rdNzckX)$}D2(+~9MT-Jul6Sp-PQ zsW;?!a`v|=o*IQz11W6wEwdrA7+Q6WV@KYQG`;-1thkK9hY9A>EloB?z{;*?qJ7oRZIEZT(qr<9yV{Wc?0i;RI4Cgf@b zzevA^BE?G%=@(#D7_lFq-p)X;U3qMgG-f~Hp4A4^F6P$kImf)1yhPqVl~s0wm-jS} z4EWB}#UkkgOKN3G2XQdXV_(f)<5cv3kkm)C-=VWXGX`KA+`5gJVxOve2Z!DPxp@!7ZIyg_WEWNY9c;vyICr^GE6WWfR9RmrjNWi5oFv_BhG&mKr`@W2{i5TI0m)-U@z)N z#9YbKw=JHd=mlyx%ky!y# zeUr2%u{7&zXqB;e$Gk*Aj0^Vz>;e$p5KlX#8p%uEE&cP_pXJ*Gb{xjid=LP9otfOjf@bNhQcB6GkVbRimc@W8 zKPK1@xSEyzT#K0jJoEQ>p_#>umDC5mq!oGCWGqx=Rts-ba(OY}(2T1}URYW6Bopg9 z4gb@-q78)Q;ML#XaKiBD$#7eELOQ2RXi}m zzc_y;KJ&2Xu{tJx!G5ChHIe+CpY;h~xQxpvD7rxeL(P5LQ+mt|%K)e2k{2wMAwDi! z>+6%Z`14JCIjR~07xQ9r7Adipzr_VEWHwwUQ)mI?bD6swW!X$%RQpeTiT*LAMutFN!#SLG(ptjy!%*>h!nI_A)aW& zkhN%w&4S5mX=HJW!&Q;Wo3$6S|XNKjO*_Z?;OubVmt)m#NB+_p71eq%vi3yGaY(MaXQ$ zcKY94ru4R{fd*X8?<-RZN7loT{xbu z&F$={s#9{tIy|L^y`>S4vtxMyypM+NHfxbiE1a4J!Zwd3;VJ0>9w|7k4X6CJ>5gLC(yrJ9E)S%fH^4Ozc)fuij?knx_hSDeh1_z^q z>SjCNDDRABCYPE`uc2-qI3<;ApG2ZWn3nVsycBsv6uwl~_16bbHZ43;R(nLL84Q%R z>7lb_5U)EeEy)6uA$8xK2Tj%Jp97rON{%QQVJ^0iR$z_M|by%jc994H%CSf0${47KgS zX-TRea?ZUALeMVpt|#!Bx#D$|Xpq46X@*0%e%ryt_XFdm&Lw^_R((Z!NS?*FPs*kp z-qKdu_=aEQQl9UC?X;`RWiCrcMJ`OLUB#Byu7c&YK=_QM+2w3eLhlhaoI+@YVzN@Y z4nVeE4SbnWF&(DZu1et?scgf|MMu*|UgS$b3bS#E10Ww-FN+F1g&WS?R)UKGnx&Dl zXAMNDgV=go*F#3pNlML+jaREu`)jjNUaGncgH4UE;##L)Wuy0!s|L{fqN~zWgb$(~ z?xvod#*=NuY}!rT>)`^@%hY|J(bt=tc_5+#jf0WIEe3 zk9bYIL35&6h#=c&y_3qh(`;C+cRQP_QfWlpp<$EMKz%Q*oboX!go@m+iq=cySwRD{ zsev+0B*;8lvB#ZzfC8daLXt|jOW9N(O1sS!8gBAfc50SAE*K26<0qr93}rQ>jY8Iy zXuT!u5=UO;-vb0s)6dLx5iA4oA?e8Jmd8jmR2u$0t zq4)?ssSR1i>ri^quq;h>iMH-M%c!QrqY~E7F<8FIQUH0J3Qn z1Jqp5VHw?j74_YJjxE##{XnmX=+=&C6n5}Vy?JGrHS4O!l`FM>prNRK&`fW?;^d@G7Hh^uYRI5v%}4-nCm`2B64_Ht<_&vWac*pNd4Iz0nFk!mvOz8ygeE z=fL>eAbxZ1TYgjA7-5?SeYrhd**GzcCA;ZkaO_3l7j7*Z6y&$_`xoDeVlst+2fZeb zI4V9S`nY1Cp1UC$?Rqk1Xz*#K+6xXd;VjJ$wqQ%sU_CG!E_Ctb56a!v-~zAoItuYR zk6#z-{&%9${`LpU{w;2QFh#u4XMb?7K3b+7VC>)B7A<%ctb{)uKR%$%{cR9lcpl6) z3|3PYA>wB+K-}UOod}z$pUS98C}tJmu&1r_2Itwm;yrJ$GD{qwgMv3yWYhQKHgl!d zzgvz~rMdqI!d&CiY~UQ-u8dg|qXAmY9n#0X zjefhtewX5Y(t+D7#Vz~V?a@>Jipa`Jub6C;cK^Jk1R<|Az@A>QvT?f2W|%#+4JebA z3T+mb@>)B`CB-c6y$NEl6%x6#apHs+Zb?MX8i_;xXre}c+yHK|G@#{g(xVQJ=;*c< z92VW8hM6kvS~jDeZ8pwOUSY5?U=JViEBR8oZUOZ8=9f=((|PcAIJOFTSp+%#?mgz1 z{dd1tG&Z?-1Wg2%%&X-SXCa?J^W~W|N1kG{^~Y1C!}*Yu+q{%L8eH8=yUJZx&+Co$ z2Y)FqbGLoQJ?ad=KPFXmuyH#y+ABU5Y7SI3U5-Vb(g+~4PPWbuefl*Yq`*`4>@0Ud zizoO{r?kNsEbZ`x=Gh?E2cbR|xnX&j|B2kq%p)<`8#YweOb`?k!a=}<6BNK!E2W2Y zLYaAAEW5*3I>+G?Gi(G0lWEq6reem2rT_wlT4~P#0AYbufwLS!I=lUL>nu7L9RF`RpW8wfN{A3c)%!I8+gcSQflt9 zGX1>tY#DodDVCoP^_Jlxvu3On&}DUa1oq0>FkuWa-Er2kuiGMqC3(bd{o0dk3yz>< zp0a7uaAi|-nJf2bnPm_?ddhW*HN|LA4O>^e9`AU5` zh{kONbahNHK04j>Eocl8z2$PYEzg~3?EGx6$=Lp1YncT5CQ$zwXpYeb-Pf|O4oj;q zWUb@Wy!Ovx%5CQiGlFp4BIY`jnbi0n=Rn?yHV`^1x5I2C1ZXkjCp^ma=O9X2sfp%5 zrPp-A#~OIEdcm`5RB9fR^tjd}jSCn%9i*){%bm_;SU!PaJ?ZPR#<4E8+hGsXCmo7% z6Kca^l7q-M#VsS~EbPL*_mat&5S}FL6_v^+I>XX(WOu-uEO^DZ5(rG|zE}U}pRhwJ zbw4-p-pB(G>kxI`OXm};iHrdll?)q3CBs5P!Ux}G4 ztVb?!PZn;j#SV6#z0<91+Uw5UO^-$h8=^<<+y*SI=2%f`G@?dnE}yUG6-N+Cpu*ai zM%kJLpN%k@safvHhj_5$#uv#)Au|SzYg{%3p})xH4)1ZOfivc1qcQp}aYq)-M{%#R z>F%>C1_}waQfh{UC{WFEN51}6E9c7jpXIvllV}t^FT89{bvh60eBPe0@PpPoIr*+U zI)E0REwfnA8GKt&aG9kz2`$gFBPhk#t?0o>Zo5Qwe(03W+R5qCq@_0Ma-IzZS|YgV z?Guuo#X_s~oOT#$u++owTD9DcVu`lL#i{eMa1Gp@Qg8%#!V`@|BU+%|%DXjAr`V>n zK-2KpmZUndWv%|nm(eIA5D(F5T0qL5o0Zxtr8?s_W|X>E@>IS&7t=|MyA+V>=q$FH zEnikM0%m@zya?N7+(}3Z1{iv=S&FY#nx)t(TT7+zIgcoWS{ini&0xUn}X_S1&S?uxpu-F?m=Otk38ad(+bc)gVU zwrr*&(|@-G$E#`R^bUK>35?@L93MT)mt%%}(gpd>&@;HagMo6*@d5l9m2(ikLS`N7- zUTQE|aLCAnkUKeKXhO(L4lyT$_&DUVX<#SqjDLThz6; zCJsWCMvb=X^|`!E0$-Xd2Gl*B>Y{SG2h|>~NHspHH~%t;ooQEZ{x!eAa7oe&=IYJx z+i$94JyXO!-9Pp}WUPwV5!IW2!?DB4nyM$V4pmH4ApgDwel;Q_gZ{pTM1SSUO?%M( z9<7wurB&>YwgsZ*3VYy7>jQ(dQ2I=YFRB|qNbB>zEA{UrFW9fYeLb(X%k~s8al>Ay zLsF@n0dd(>OnmyO-7kYz~^R{#Lxov$ucb?eH8{%9jkBDtt_ih5LUi%i+Vl=aGgIz>H}UeM4Q92j=G(wXTHwoMC4ec8HZ`W0 zv}i*hnp_p3Jgt=HWwR;CWZ1m2|DA7dM^&*X>no$No7Cbr8eJJ}s?9OpqM2KKT*+P4 zul&lw6Og`=iYgzh+DcTY6)Clud37U%68cEnBVP>uot>~UzI<&-J+hUp)p&*joH zgqrk|IdZGdhv83{!a8Znt|+G(MsQ>EEi|NKsIUo^B8#bfwtf$dQJ^PUKCXHzFq)}? zGG=B_S^}zpc&yVzT12aD(G>SSD(1jWtjo<_vx(Ll715odZcZw~ZkE1vXS{}Hir1&` z;BEICI_R?-^lzpm;)}p18bS6KJBxVy@|B$97`kjF=X4DBj6!Ev8j_~D3Ej%3GgS3> zDwqQHpno*d{<=ar0@dT?v#wCqto7$-M@RnW6tn3P{@k;xC!|nIOyx7F|Fd>tcS--a z6@7ha3RXs@Plg@fuyry_m0|T9_OuMUS%&>LhgDNpWAb0=oyK#-%k+ef$<3$fWvwO# zMKd2jrl1qYJk9xbRkvKf?AUd}Qc9KJf|kv>a#Qt;>v|#fB|5ZFor@sI6`D9*e|D(Z zbkdTf)Z8t73I$;Yji9Fxrqk%e>2l;pGn=4&SnIv2(3Ty)Va^^7smUNpAh6gRe6$rFoX z8O35FBQ^3H1~3GsSj~V%O#)z`)Y_Zyd6D%4S%x1@Hk%}GRJ>Vm^5usG(W>PRzc>xq z#i*T9Xhw=@FV|3{*c-JM6;g_dD?@iAMKgcu#^JMp=zwXbu$G$jO3&#iOg;wAm{;5z ztw(LyEcAf49Q_C9fYg#do@6$;4K};ji}YTxGirzC2(3X!ywr(Csn<}c(8goCVSo4b zMysnFezRe(tK6X}PlhE5j_(zQ{Z%%c5nAMEiJcchGfr*!K{aamql$$!7P+gg!}#ph+1yfLdk>C*3gK_ zUz$zb<0t$FZD>^pzU&MKFFr@XBPU?TuRw6Phl7KJ0=oy(cbm+8=u7M_?yI-lBv|YB zCm4!g#buhXN1;j|Oy1f^Xb+C3C@i_2qSeryNjy~}X;4M_uP8oh7wJzl0wZK@pn7!+ z-%=)HT({&4a8oO;(}HvI`bzyltkml$-J--&_qtK4$0${mrT!45{*_6;HnAvXQYjv^Uo=2E-)Q%rb&2WS}g0~FCrsRjN1jAoVN&v$fZ|4&7T#^nxiw<3ZjtG+) zZ4>E(ckobspCW?E={tB(l3eC^{HNPFek#Ww+s^TiB*gEL@lK9^L&pDGLi~Tr_?ep! zzeUDRjK>F)|4YXINyf}8#=!yo!f4)A%#D6*dr>Se0L?lr2{pt7pM?xP;_*37Oyc4(9pu1`2pL9RcSin2EZ`G0ATtKCVS*DkXc_bbjbD zN?Xvr<#-xCUY~&BcBdA!yM*rnP6xJJk-FJ-IlQuczlpX!^Dy=xnU5fBEjSuPGyjvb z2GC-Wxu5}Oo@q8QW2MogA5yfKamx5A;l#;r(L8VYSsgqAe#xWrECmQ(G-}^qjw$5N zWhZ~T`v1kw--j4KZ@Kaj6gqW+#MgyehV%DrsFKUx{Jh(O)-HD&m zaBjC|Kr&z6C~Hi~e1&00^&0p#TRLkH@=&%fxU>WJ7OXFf%Zn+vytunAnmKqp&&vI@ z0dEP{05*|({1)h7Ml+8(lyS7{&#CMzVJ?21mKLsUiSa#uOEZ7}oAEtw%TE5j%lIzY(#qcxjc@;! z0sKA2_@2IH0=MoO`rh&$*R0^xMXz-(M?o~xgwLPI&zqEuMEHGrD}`jFamW}K2OYi@ z%RSjzBugF3E3po0DjR!fZH(oc{-_;Bna8@}x%YKkDE!wUTP&u>K&*O!pLq(CsaaVKLP$Uu4g+Y zhon_RdV3G{C{-!dJgZ$<1-C?C%73QJKBDA(vaC|c+p}b;l6PRqkD0P8*-8J~>Hp&s z%IKYJ=$OqK)7Kl(%p1nh%D>xgY&M_K5yvH_3|BW>Xy+1lXZtKI4^MdIRk`xFK#Xq5 z5K){JWJ9FM_U{0FcBe!$2U9UBoK`g!x}3Ktt3QOhsuBn#(1gJFSj2`oFzq}!4 zI4>MCoY!WO{AFo7=V?}cD7Qs3A;*eAI!4c;nv=YMaA#a(#J3pn`{?PeIms&u{AiOA z|7Roq1XqJSur&C-hzJkR=b3|PRytgzUpY^DjD`Pg{>1a zo)o^d(ah^_!4UeMfgtDH(|86z7-+Ppehv5-ialKQ}UeH4O z<+oXw|9i0BRWV%2`G=D8DYPAP=;ud{n!^!CR1!jG4o-qT4af<{!b#veKa!J^U_ijje>toLD&zAnXYa%Zi0HV24OQ{j%}-5`TUg`}_lcz90KM zIZm4BOK+hNb#uxv(D7A{97xLyGnx7*_T90B&&Cr%OeDt!7WnyzpTX|(f?1?LM2TOv znvAq|6VqnH`f?!kY6*O>|8^4V(E!hfw*y+^Ort({X5L3Zblik%sPOX3sk-luV>)IC zeTSyfCLw%VyA&9la32z6&XGBBz8XT&q7?~> zIKf0&yh2f*-D2j(UAG18Kew6Me=`o)`TEFAIv9j9Ki+I~fw{H*f;eF+IYz-sTW~_- z=0t`OpU+*&#tc4@ys3$Z8(#M}wyM=42ttSugy z4l*O!);D?o$L+aBw&zM}549zr=WC_SQ>bCykX4l}de_4((zr<;YLa$-n~Lr>+^Ep- zZ=M&|!dR?qG>bRkNhiA|T>dRoI(}qDN?}sPuv^2Z9zJ=s(Cy}$aK(Gw7FgLES#ejP zYA*M=MKb{&P(p;ooAt}DV%|bN^DOc!Y}B>taoOcPq2iuEk9irBqS^Z0(qm+Hw-U{K zYz+9kqr=@6RfHKQV}1PO1g{G;cJ@Wv-*eypuKjnT{dZi@{#hfwPWzuYXSClQ&D?tv zwO_lS0~?NC*a1H8z$BovukrJ^@zm~-Woy4y%avLPlvC@KnxibjahMu^Lb>-%?g+Dr z$~?-7L;9NG+?8y}KB^d4wzhv~lvN?74%kaFfbNEhWEY?guV{*@Y~)6$)jbT4vMCTM zRNSouk~abcZGX@VxV(npGD2_(gIIjMvC+&o9R7%s(@fy`Cf9JiGBf>+yMeVLd|`{B zsy)WM>&3GhqL~lpn@y7W-JF=@-{MJ_y=R1aLG`&gV%OlF; z$fK-}xw7Bb4wm;T=a282|K0fJ;Sy+CC6Dj7;^TX~Z+uTEABK;|2lxsP7^>^s8R*8W?gnQLy~i>~xl z%WzI8Q}QB9E<3K2MDVsWUE6Gue{>#f=5A`1NdKO?KfTCaxl78|dV^ZFD_E38l(FPY z&qLYhfp%%wnuSd30LIQMk^gqOb$&p_X$wKOTvA7=xB6|g;5Hnh4`^DFS8S+!6x-|dr#IfgnxZA?uiU|!qJC&#mh6eQ zwx*?gv1o+xJfj(~`ZpJ%lApSj*+(F^R(tY6!saufL*7G;JVUM4-|yigTqn-aJ1CdC z_J~Y`$i^N+nx;@HEBm(_^TC3g-Iphnp7#ap%;$7=Qx|7`;2!gVYut;?SKyvr1Wa^v z!H!k?0d}my-=nmOm3rC-=c3{{!#SmtnWm#-5nv@|s{QGhs<6CRKi@XHSHx`GZo?*o zF>aF9-<4Ij)A8y!O?4{Du4K8V<}zhivyw5OD~*Lb^A0S7#&XSHSV5nb1od!kJq_Cf zu*-P#gfi!-vQYwn(M)Bdv?JgZQiO^%sigKg&3Z{AASG=hv}Z=*%x^5beWhu!dG|ef}Dyb1-#xG#p;;yJM?pf-B9-Z;M%^PxTK{N`-s^~%<*p3 z94^mz*&^>$^bhAi>|o`**ih88RFu#L_s(-g0FCs=*0ChRK?on@WhRHrCKz9CU5b8G z*RY?B#$_YmLI5_mCfJwYI5+o9_qZ4kcIVOW>F!an@~P|qmpykv!8)@kv6y5`(3c3Q zO9+|uB~5$Vk^!{7lt*8LBPS*AI6hA)k3I`!e1h9E^cA1gQ#CD0&30+b`om>Y7{C|A zW|3<6yx=gc0#(u8!kp@nFKGT7sgL_}X;E}gM-4;MC#1vIH`y6f*Yi@~Rh8CvOTw^o zsZ3A*Q-BQyMU=ecZT~czmJKm#Dft{f+aX9DZ$QD}+LI88^SrHlzW~5?ltJQD?4XKg zx5RgsSsm>11hsaLM{HwXRAbHIa=171>$E$J-q8);!=RFqSKiKYs?DyD^(JSe%1Y0C zW3|yNi~ag{K95FY%Wxb~CzbG@XI5V_cfpfh9IOb$LF*ba{& zZS;hb7W+PWx$cB~j#D!1-A;rm*eRd(@CIq0Y@^J{YdCWYGPlwb_9~j`c^y);&HB&T?@s%+d29fI|7zYmftlyHK+2>!drz<&nL(?plyMK^~10`Hm$0sijK z1_F%XJ+|K4sWBpiiZLU=%CL)#6s(J(y*RpCB#n$b$1@V>F-r^xycd+!xs@BcE6#D$GzxHqV(9Pp7e{|j#?W7nOB|E{Th%lPjj@Xgxf zI3Hva!qo=;gZYG6Bj1<|{AZ8?n9p64CFVUr?mz98;$yB$9UuG@UUDp3~nHk-f`?aY}a5+9_ui457$H^ zmq$e%RpH+R2=5Rhyu*y}wqAhnx)KoHa{bD;&P8F8;NlpMdK<@kmqK^j&PR89W9V)S z(4As;n=XRxPFQ%aJGkr`m@uk&@jQIj^T0r9&ty&;k)Jc$V@<4WiS5aKcyF6D22-63$fl6$-VIbaMzw>yeIABbldqAcu$#m^N>lj62@&kAN3tR zOsKDcQQs+`zRmqnpMmaNqS3GyCI#BFg>eGQ}!StU{4zC@JQ1eDjyDDUPG3mN4dW0ZG{-+=Ot_d|JWx$L<&7d@Vc z@|q;d`=Sr!$&guJ(A4iUaNOS{$~$9Vz~7&XM*B7gfbnrOC7C9++h)x30bsxYHLHBC z?Zay|al8gKB!5i|ueAZMF&XeWzNIhhk=f9RjLg;oyTy>2-%hyikH0H2d4u!Xyuk&{%BV`HT^6lN#B7Q9YzLj=4iN$y z=&m_Zo=mgWZK0hOyI9%_CnhQO=`Yx%EuJEYrp_?+tQpgDnwG^`##WC%$Yb{eupHx! zdD5JZ9G_)_TyRlENaY{h1KiTyV97hsiK1#NuA{ZqvE-Y;aR%i3BT}OFzE)mN_E>Rw zXC8p9)Po5K?lS|8x%d)tR%TC;nJ1H<6qxxL2V^`cDRpTjsH8pKMt98z<)uthDzoTl zlNVk#gT789M46ua=99d&e2KH#72UkG9c3F?cDX51l1-FE@BP?h>KhsAKx4esz->pn z?bOHZjL(iSK0E0i6CL*#pfja59l~relveQrSK-z|Mgd3JFF>BY>{}ONl^tj*qm@ID zssma%jC(;z6urdjgeanXi3gOLU-zLC(AZs}7&?I|cAyhh|4hUu&~edQd(TDt@JMza z9&t!K(t4ZOH102qM$!#5qSO?!)q@+40)yNnjh@v=ESK|6tZlG$X|#`yRIUWunJ^x# zCk;3J8I1fM*j+ubt^rCV8i54TbJG}&_-PI+?xq15@zF}Y1bp_l^5`^Om`zJk2u61< z9UR;9Vbp0^whLz)1<0dwK9f9iPjnYB_TbkXMk3cxQL}z4(Z&E_HuWo_Ki-H3&H4iV z-vW81n}ptyM(Gd8f1vA^aWvAHh(?w#i=&aBbtIw@IO{?7xgGJERG3}m zwRqoAJzLfjhx)|Iy7S^j{CGR2@cmfSL#0pT%mou@0`uA)u%G~17_Y;V$xi(RopHlp z<;G^(eMZpKr>L9E-NSVM{&Ugu0Qf>?#l;=TL1VAeB=xK$6(^08^-*!lt~_q=D;D%8 z;661afGJ?}M9lskANU9NgHV0`6$+K0Pfp3~6p2EN)rh^q&gGk1nG%yMM_@Rk;_(pZeqA;~ggiCeH7~81@160ONM=hus-vw4EJh?DcMp{TRny z+5NCrX&if5pM+bUr$V)MKccdiFm8L4{tRQ9_X4M!&`qg@Yeaq zAk4Tvv?md5X?W{MLTPTc4~eGA&W4q~s(Dz@XPJ%}6+`D63$D z8;6a7KwTr}noaCd;20&nx8C4%r5~STHYJ{CXlt28=k&ZT<2bW|`;m9fIL_Q}P%K}7 zeIA>WUPebJBs%&?S@m#C>(eg>foJh7y_`C(%(?jkMvf&-`l)v@yzMG1I4bwH9al>B z99L%TI}W7uy3~`p`L%%A)HPkYJNfb{iCzB^=yxbnR*j7^dPu*P`!e@fS8kNeP&3IN zk?8Ed?~kLihJA_X>}-tj*OS=f6UUYNZoXB3oM_VTh&Oca`3>#95ftWeoUW96n<%sm zYkU~iHKDU#{uq@S_zVkuKk(TeU41_q1qhTG2<^C%VUY;!(Ou`FG4L@!=U;Lm&c|bt z^rAW3Be(5K;<2vt@Yp+O6M#0xqTX$wu*Zjf6$-0y%qcCGX@=HUs7eQfF zH%k;&e)HEjf5lPQq?;2^*tna&*73`5Lu;V0;;@0jrm#uNwf*qeoY@WM;jhH|G_S!v z^orA9{zx)<#O$A6jE(rqv1U{39&Pbg-=h%%JK>65)e$O_NGy);n4$P&jG?#>3`PH? z?$a~@C&_l#Q#Mb+g_=ivq2-=pT!1!voagFd+`yb3<3>$Wd`J0^_Q^uYQq0wAPgcUQ zYajXp?6oF?{z_IE$9*}bj6aPT#-Q?GqXa-ERe zqg=nkS9^q$bL4`zcumMkv1IE-Y{+LGK^bj?)$jedZ=Sj@GlrxIZ2{KnVyt&0;nMA! z7w17LwHOrriRSpl8=ndnT$CTlU~u6L-1#?eFI~WjT=W$;Z`aD3w+}CJ^R_*9^L8wD z^H$jZ=FNZJ&D(Ra&EB|qdpd@Ev%l)*?H5PSUHsdpli75U%ePrg=b~NB zeV1>qFb7heFMM$hq*pW<-Ukd%1)3P5zpC{0B7W=k&wDO$>$Z3zpB=v&8-|*eiaCUl ze(*T!?1BsVjpfYzx_*z6m%ipF7vVuBUc3GB9!6BBnFo2A-}3nKZB(oRDm?9RdF{5X z>T6%S?K80S-}_&?{qg*3w_~wux4jZ)f4c0hION6f^%n()eYHnCiuRWD65FUxe$!Zf zEn02^;X`zHzqEFe(-FUY^WyexC)=~j*^z*NZ&(mVz!O^&5%3rI*h^l2+YKsj#rTZ*xPBq z9H39yt(cMy7{4U%a$0{RIxT^B*?7r2x!Z0u&VM(44dmH(Cuh4c@lNi{4POg=(oTJG z)@6(&Iqz=nzWyxC3-PJp8z9E6@rrjfF(GqJktrrnBC#Kq=E%ElFq`7XK05L(Ztg>) zxSJz13TzseW0B;^#jfi5BvX`ML<7AdEH;(IpPe&>_trtV5*tJi` z@sFzH9elv*0wWddt$RnaIr;WPAr-b;J|TZ}44uZ@=f`gAt{N@z>WIwI60hz>u6N?? zb=O3dn%^_(Xh=k?T5b42>?{5q;7u_}4>Wu5&N!NF&}t7qXrR;7B+) zXwgR;V2}tW;#p45vC%iqL$u*OM0*m2gn?*}_RVGYH;uvKisNl#l>2#%O?t#NZj(G| zeuR_eqp_3bzqtyZmnY3uOQNvJ^A{C1`COvBZN^so+y%Jq7jmYz$8g=M7_R$?#bmk= z*Fje7uU+S&0cqmLQ~`qyRgQcXFR5~jB@Fl9*8{_CGESMV8K=wD{{p*hooZmWn`ns6^4oQc-M&eMe*51gR{OBxB3SM81z7DgIN=6X8^N67yrTwI z8=NGMqCGLJhFLqs@NBq7Ke?Ov0rirlK@@^(*VwEB@Iw;?S(YJ{_|;o35?4eKn<2_B@y6qFct9m z$V*cJJNxm0Rb}Ij1e_l~lgJ|qQ1rvwf!O;K0b1abLbo$gVS~{uIPix%M8`Z}DqQ2- zycqT0*hpwNEu`Y?`+#)=PPAdlw0x-QY+IhJini`6ROdcbnYyn#gI*A{uRE0@DX6U` ztkgWtv-NhF^5a%qQ53+04=6@J>CR;nU@A1H(WOjnR&(1#y*s!0m+Gn0u&>XSE=%h5 z@9t%U0IxLVjs?7kVUz(4cGreo${k_KN%=&*krOgDdalexIUx1LS!jq|js={NzhySq zz=LpS3);oPIT21G$HyhwziNnlj!O^G(xGl=+tOq=hRE&Q=T;`u5YY>QXox71g6PcK zf>C-}j*=?sF-W{=6omVRX(EPcW;>6RyV=c-7^v+9?dqvxq8Z8e@mSrw=c~qwos_%6 z1?_I`IXiPOvPbkYyZ_~Y$$D|^o6DKPs)%q?69z5e593FJG#{F5^~#M6KONXNj`0y3 z^ev3whZl|@7~yxp$yO?R@R_r(CS1OP{RPe4rOf<5$$M|vgcDGFRpz`;&rbGrH1~BL zh8uTZau}4nL(5*E61z8?Q10tI!B<|;ted+Z@)uw1`j>+s>n!OovT#ISf6J5`_sc$C zw6`O!xkPWvAZTJ|TT{tOPJQ=fN=`%f;4-u}8Lz3#z?>7IL0H~52o&GB>{i;t5%)el z-yGhq6%tloK?0 zD+uj~ahr7B8o_vZMf+C`*^#R+J!DIV`mn$FFl0XGJ|FKdKI|_(3>igI5O2Y+O15(5 zUr<`khfG4w?S%2#R$p!VgH~KhQ3K$pFS5+b19;f0xSM@E05B0;?>Ti01JHp}2-3gF zW44R$vBNF@axk&!$kO`C3dhQ-$JN$DEnhXTP{ldoGMjw4F(zR>pIk7t&{v{>77l1N z;B#)IEDo2kKbWXet#HtxrqTZ}`X8=|NaFn{GnARW7`3?BuzWtPPI}E+VAsSAww18S zu{cW=N3~$(QB9oo1{ZXSRyzN7xWvb7C>`biU@KjN{qNf9D?l>1_dFb#TyRZBV>M8- z*(=gtT>)DwuOQkZ9>&9n^N3&KOaJv9y-^eq%KX)4X(Lf_A9NRl_0Qit7Zn})1W#{N z%5c3nT8djFzdQm7*&${6-$qC=(ct1V7qvaO*s6-haEs#!KKcx-0c#ElU`wA`4p9`3 z`f-7lQ8XIwntUIRl77A+QyN^DTxht6wLdluq&_x5`uLNL=`J1Q(0e!{=(sQ?qP899 z=lfl>&(i6(1YX!^qt2K&3~@x%jNTEKhlRk<9LN`x%(PQ-+LAM7W})my(O@xint%z~ z$?#w}d3bGmd8rz5o1Jatv&GcuwJi_&L_`&DOF#1wg1D(2&O<8-wbBM{Ve@c(qy>g< zX8JXnGRk|oRyuW>cVT2WEaJS;2pVy!U(cpQTJQmX@V@D;-~-cCv8T30c`{r#*+$RW zQOwhLmPt@|=zC_D^ZV0RjPsOk=L)tb#VY8ypn~#P1+O7d@IJpQ`2FdsILUTKTG6?w zY&ZD}W%fyzm^_`WLzg=oI4_Q-@oAJKNu#{?QJu{d_l0Je3740rt0K%@RxRP~pXxgD2M$;UWh?=1V???C9=3lf?D~+(>zkDRo7PbwC^%o_> zI`FuX;T>oXx&~%NCr_hns`GPYwHk%w%?vb zfOY#YPiZ}RtBHwz+C0+C1W>mF%Iq`k?$AAEDarzdfUSSn0jVQJ5fx7YO`ZGJX*pl3;F5m zF|0X?%|L8lTCZ)G%z`yA=dpS6Ts`N}`9^9PPnohjf$(s*^9^NnxEIExC)s0s1+Hh=|mLSiP{?jxTS(XfwlurcCd`lLYO?rd3H!8tFh1XJ=u&IR-C=Oua9+exI zbcILT&tA4%jAZRJknGcvp(o?9GZ>+gb5CD%BUvyh5{Oetqn-=c4-k&rk`3r+WgOMbPtQFZj5z zfAm=cUHqnvhZAd#)=MSP+)Caa#_3fj;NFo&ewCCe$S844LykWhpYvhvB4fJ4&)Y)@ z#3lTXZO(*?6Q*7K@GUxL?Fp9C%=q4uTF6Hq88g<=kNat=?lH7M_kMAXJ*Uuaeh^9Y zhmN0%f*z_*Vuq|Vf(_#sDv}kk+z>#P(#M=1O8?dEDG1zK=W?j}J;%=RJ#yxq-+;ns zA-wGqRJoLmy7Kc#Ad;$o&~`4$be!~ljl^E=U`bfr9CM#Rbx_28&H916d*Ppdo@t8$ zM&#|Bvjh!t!PLwGwgy#un1@2c_^zkEZBAydCvX@+6XWuTHCVtwS6s$z?d!eK+QUjM zEDJ#ZVqj=WrmJv~qo_Q2%Qxg*P^<2whT^55MRe#l##%j{Eh?go(lFIPIVp*?E0Uep zL9h230|5pzCLC^507*c$zaD!g)5ILE;uy53TP%`7^*W|2 zIc+emLsX!@IaZpA8J9POI7tqRu%9-4wVkC*o|!i+MM$!u|# zx~6WPY&Kc-6^qYBIhnGtL;vn~dZRUmD+cPDx1Ec2(Y6-dVD35+Gen-~Z(xcIK74$^ z;w)cqN;Wj`**TPm_(D_cggS0naz5(NUZ4KGV|c=I6~b?zt9 zj`Cu5>dkiWw9ux?F;ZGid6Ne;86LMW#6*tkG~JrzQ@J^Kr3*&=*PM*vrHhrk=4C@- zBP4N$KZ0GK*GSIg(y3M`=6@rfr))gGkEQpm5`p;HRRn#%h!v;Te0DC%Jd+HzOY8T- z^s~GJb}>F03mOMDk_y`8=yQQyeaa{2*tGRLcEt?LQ78AQ^ci;S{rZ_!ZvA6umFV>cL@ zFzgr^WF8ZL(})sz<~)l8)XOf75Jwz7Xh+M2-GwadZMM7bQK!R;rzS>Rv$)8_m${OB z+^2~^KicB=_)=beZ{X7FeXtI%Ho{wH3tr47L&PRo_x|BrbWE7tJ(kR!-2hJwm7*1H z9W~|UE<1bj6!jxbrc@KoJcVBIVjaqLx56+~K3tE{Sw67WDk6>*iu-g?P4vM`@3`Nu zMe%7xe>Z!Bzek2{OVOAk;($lAy2nKI1KsCn;Q$@igv+lkeB$Y=X~(>5+>6`jS)rT^ zJVVbUM7tE%$I8r;MvCtjoop&9|E`R;R`|C7{p*MR35ubd09yUKSwFm(m#+w4VcaSD z(?9qw-;FxWQN9+o|n3c_r9?$8&u1CX)YL1krdV}0kNe$3` zEVbm7mp`&C{e}o^qbO%%c^VaAbB{UF^@NN|TY6pfR*iRnTFBK_Z}rHJ@AJp)^5b55 zyn;PhG`YkVA)jR=4E&d;S8vV1j$CdPA9p*bw2Y;LtGABgpk!6(-F6BavUFhe*6Xdj zTX#|Ilwyob;S$HYN5*m$$S}7!+MU6<232nzYh}oD9}Ap|mOmgtp!|Ls)3kCT3SOrT zVb8+eXz(xAE4eR&mkgAl>wnxErD4*mBiNjqk}8JMZ#Mkj?Wo?CbpzLwqi!-&p7f=u z`sv@Di*_4XmoMb3vP}IpS%AHKlp5%bmVb-h&E=V%QXDmF0)8t=tV{cmP{l>`BnLP&PkM9Whf19uP>HjjJJguCIw>aF-RRpeD~ zor;(8YefJB(*O>lX-rj}w3k$1q!faKBfN(bz0@`C#Wdt!;1VwatBZqy_sj(?mi9oa zS-*2P?L2vnMaokV+b%COGknkj?fwBos8eWwtrY`AQ$)9{HFUwnr?Uw6_DW-Fx`zaMk}A^W2$v`8^_0Mv zx&v1*ii_DHq`e5_p~Y2~gTOjd%mpq2i|W{kW+lW@y`svIAK%N)vqwH7<^(yxRJT{8 zAO0cx(15>0aqOZ@zBrOi!TDR<{O2D68`FNf6Y2#>Nt-si0MdIKB|`l)4+zzFN}kGG z#;NQ8o#pgj{eqKhl?N~Ti@=67E`yeWpj-27rkqN4;{8F;jX+lH%G6OojZqb~+lZ zUj7jgK|RXG87s>N)wC0>c^PQUfdwr!?R*5w1d9Hf&1}+VHP8u%0mZ1D4m#hP#Jl(^ z92;m5iP%rhCcTSYKUm2l*B=}}nm~hnBdU~Tp1ZDv71fNOy94w zea7AQ#5ooJNq{Wx=97mk06XG1cotsK#fm^N{U4901|UnpusCpUKvM%Eq?-yJ}n^{G6?&awc+J%Eq@AWXZ%X90sPVs{RI%N zY;-?RRJa@~C0st>wE!ZRrMa_811^ZUM$1o+* zMu2{GQ7_ulyk!XJA~U5sxeCoFqNGwik9NfbCdr*-W=oCv1J;n4$Azf(x^?!xBJ6HVx#6}CefkYsn4*`ma|pM zPZaZx%b}Ei3-xKCEaU@=kto2 zC(S3?{xlBU;L%}Yz{@IT%H+TzK@3y)!#?q9HDh>QL3A$j-;4XYw&RLD2?D;yX->kl zphG^K-e1`*5(G12?}jT>5V}FjDgM)rZoJ5*Q2nBSy_INCD0qijn(2 z4!gc0=66%zcv+&4O60R*5wP(zkcabP&ZB{fV12Nk3Te^Z%*nn7heQITbKfOEI>ht| z&eb$vzlcH8Z=NwwPXaXIxRm4(8xtVvEU_D{*a$=7c>2Ds`dD%{3N$}{kWMCHnBOdKe&0J-sjLb!RY3HzRsvqvAZ zl{o|jErfHfrT1!?7VLIjyX;kGj>#-}l;Ao{cZ`+Sma`g8^!aR+%m{ydJosr=i>Q{Z zGL?^yj}ly+A&;?7xx`**UdLgPW=g-|SH00#OLtrz)|b6e{q+NUqPY@O(laBOk#W-@4zhuBv*X9|tUxf(zyvQS z574}Q{^5uuh~CGV!QxGW0EnZ0zU`^r!l=JIeM~sPK^$Kt9SrQeLcfVtk7y>6$Saz} z{=Ot#+7C>oOZdwog8JX@1IW>i*rSQ#fm7!5X=?t0#}B?~YAIL7&9YY{k9*KsewqHZ zjm|h>;XN6YU&8DQ>h zMH!&?(L2p>lsAUn>kI;Mtt1ekC9=*S5OE%8j~h`dVFeONxRyAoX!_u;JsMrPl3h@s zQPKjdu9kuyHQkZJQ@lqv|1(PPR52JGj&Yu6H!xerJqEhH%9<*SM{tp2u_jJ&No$d@ zFptO#G1|ed-<{{gLF%3IWJA<&P#sFY|0y%kH2Z79UiQkQxV?@_R2rnG{!<@L6LjR> zWLAUY9nNzV$@-*u1o9arpM_Yu2y+ zBOv2@eqZee6=~kk$P-VRO;g4E&)E@0uwt_sh*}kx^)-o9W#-ACdp(72D5^PGo<-PW zy+?YUIPwG>@tKv?-(d25XHj);ZpBDSu$kx>>o?6NeJ7;=KYc%KEW)?h;#(h7x*F+& zl3rhtPf0gW(%Pw%^cf@R`Xq)U_j(CL?hWkLIkju8%#~Mhn~`fOa{bWAwL~gx`!*;y z?ty6izx69+Zp0{LN)pr9o2dhOp3(Z+Z=-SU%@jQv`(GexQ)>S%cVl!O2ru6K;j;U? zss6opQ2ihO%ou{9vg8ervI%9rh`2qmxKn0sdTs?ywCIrEy`D-EGMj{q5%ZT{B z+34&wiJb~bR*HMQ>=C7V$OzfMUq52A3()~e?Ix+)f#!q6+CV=Q>tpTTAlrZH32Ni@ zu{Pe#ClU90+5W?b8yt(fCEkA6KU;rX@pFl(U1v?P_8SqijEMJ5M*F`-5x(_hMhAAu zW+Bns2q%2m2wBfx&#__t$zRg+P&=S~vFdSoDq62sKi*5rK3Z|LaIX*aR4*T}xtg}p zy43EUZdnP*m54GmLSKtiI2pZy64iz)2XBco4nFFPxRj~KTy?i}dnrDtVubLm-)y1+ zoXu5fFGr~W5plLEQ|rrusokR}iKXIO@gkxLMU=UMw{+VG=jcb*_C~$J9j4{=_s7Ap z2Z`EDD=e&U{T=K1|2zz8TbkJ*{II|)V53R++Hm7`=P!6OuY_Jz+_h5R^Z?~iFk`jS zh&Pn^*S#lcD_i}@OE(QLc`U8bcWJYMIr=1enq9X>mM7N@++c2S-5OTb+(fzRlIZKa zG)w-0=v71dqBl|WCW_uDmu%C!8bFY7MZrz1>pvt=nHb9wuJB8SI;G0_z`_>uxvDue&0Q~o!e%dR!6~Bbr833 z=Uw%^AStHbfMU{Tf0MS1hwSDRnYt+(2>lmQENIF+J-?HQ(TB3d6l-ub-!#)%=~Y8u z<00I9^2f=Dy<&hU&IztUJH~|F%FLFN5wlYJ3?Z4qRRQJ)JqZs^%A8l{Gap4-OW->T zFje3>>@~^S9VNN6I1Ls%aAscx>8WuK*_Abg7AcX(5*$G(Xyy&R#3yDim4YdDg_e&1 z8`aRin=XxlX8!VX{w$G_86$o%+H5lH$BX1qGm2=pIN}whewS#vP;@B;y1L!h)kfo@ zONJOyf6*mF4vBu2*0>blQ-LO#YpQ5y1GpW0C%?*W-MrB2^sF zf8WY{r&{dGCu?}{lj>?55L==L__-COI33|FCb)uA68q{A2e=%4@CP^|$v|bJOiU!2 zwWg)~T99sqO^>X@)t8A)We+Vr>AKFABtF|Rf_V+@Bg|h7Gk^6;mL56xSDb)H?_uUn zjRVfc+2am%Vw+<)07QyxoX6?Gu_%kdCxe+H%=7Wr%R5|s^MCe6MX^2F80?Fo%3mI@&nyE;2RBaWxyK8*B}0^9>_eYmYKetbN8X zy|SMmV46J!9xdJ1*0wxo5w|DG5|&0TE}*z>7n9%(?582GZ7Ix>oGi9l%Wn(0&3z>% zh`oKKbYjU)C9f5>P4>|Q5sBC8!CcF(0GrW364--L*I`^3cgC1mSZK7&#@7`O0OyHq z8Dy-29I)233OzMRnrf9z8bO<6Z(5ZW3x>%*mONaXC=^He4VgIX1#=UxqT}bgEcVwp z0~aTMHe?etFcl7qMncCw# zy<)Cb+C+0ziQNfctN;7}c&ywRuM|nXT9f_sE{s${GWWLsz$gf$&>uYjo47JM_@c}t z3kq(1nlFuHtB49a=wUFcgr6RkGPRl&yYC|PM6REnv*)s z5((ymXZei0(a83QrF3L{AN)y?yk#o52y3y#yy6jnnUAokm1eI2;-RY0(y&a5AP8Gh z6kA6gQ3SBJngMu4!(wn%J#M5|M9Qs@>EAH2Y;8z;&858BTz&fT2ZpL4&ucGZiub>F zs@^mJx5}fxJO1(qhET+BnSrvu^Uu`-wWM-8kzPe+f+*S?U-5`=gC|sE<|FE*^%OWhfBDDiWL_|H+;jTUGQd|+DS1MD8;3!>T zannlLI54DcUH=YR5ruYGb=TyRk#{NvsSo#{VF)r_-HNMTr2*-;erFhV#?ut za5|mF@<+@^fn zKl^h`Hd4x(K?NF0tZYU=DcPfmU&SRUi=<>4H{T_>#gH77JYz`Bag0~brAEN(I{SMA zZzTs!(LCaym;G3ao%*_8O6K0;?)+G7`saV>%jS<~o7R_Yum0U%N_nI8#(ZF2STYI> z;|->`0~GL!byD&&K=O>le{TVeH9v42Z4=IsluP!MK)C1`~|W`N<0cldJ7-yym1 z_{Z(UqeiqFN-uLh;-WHq-4y#%}<2i3Hc z57^3laa&D`^7Dp317Df1?4pzOPTlcr!lgN?5*>Q}bpY2ny~@m!Fe{J@aq+a+EjmRI ztvur+zD@VN;}Q+VP5Q^*VwCX!-0r49pymcm{1#xXSN|Tf)ErwHUU^H-&emsq20-2W zC(gPumSO7eV?gRVr3v?al;blKTuu=v4;?A*B|nVk^e@X8mL0$4!zi$>1Z}5Aa5nXYZX=3LE z-RqFVezJ|eU5-Wg81nzI_a0#dnC8dt-7bGPHm@7E$0+@?dU#fakaJ8kyfG?-oV~4^cdkw@!Q|sVgIojFmHFr*#Q`(?JDS2wzYTS(M4=E9Nk53Me6{!43FET zgP$jxN&Sk4GjJJ5-*=CE!&Mwdc42Iz*V2u|JLK3)wogO9!Rti7r_gUY`aK7J7;>X0 zJ%@eeb!2SN;ih>fE+HP&Nw=Vp4BY!%V%#IVfwMdpkm~hhK8Z+kjomhN^#wag8Mj&! zuE3S_!?sW7vZKPQ)?cuX+yo>Wfq@f=tJm785pF|+44N6Y5fi{V>5?kTsLyzj*rxBf zV5bE}N=G$7na=yr7jWKvj#fW>*5Yad+DEYELBX!q%FRFp?kVYD;KZ3FFSzg5C2_#O z)(+e+!{P9p@J39iL8|=`Tk6t>VBWUnG#=X2$3RRl@3eXfcWp-MV(yTaqT5xog_r_5 zi;JN%_ksW*(ZQQ5zM*|E4^8Jwas@lo_yR%wQX_QB@vIwO*QFk?_+Vu7@K~59zTwF^ z>lK==m*j!)=4_n~QJEy87^8{nM4bVPzp=+|@dmN!bo$^YI5nm?ciT8*flXQ zqrMK}aCr`or=6rh6d1&dp_>`{Ul3imgAk)0vf^pCnW8)FC@MWP3j^!(BHY zvMe~;gRH^BIvt`lahBO6cKBQ)A$hLBJA0)NXDJ&38OdmN1*nJ1bk;uBc$O!+Y?S^C+K5^9u-ko*Gix1mQ z{uy)7^Uk#*)9M;>*7OoLv@njdhF;x< zzFdjzp^Mnhvt%G)%2wd|a}P08*{9n8LFeP0x5vmhrrDbYqRoY8FMt5EK`ZnJ5X!Lf zG`(pq*ibaRS#Fw`>DCZkOqxL>3~PiTjnq(J0H;aQTVMc3mI)krfN0W54QYA0-n6{Y zVomS#@O}E;ESMPVj*vhm%W+$htKc-fch$@x*{%nGrkViDq!~;r#N)#dOQ~jk+7hVc zYl(Ia^g3Wk{p<*)t{-pztoeboR!&BG-`=!B3AV+)3wArS#XRdZy!k z{r&DnG>o@JG6I8^9Xrh|XyUn?XgYJfL7s!YS84>v3gnF%1WQ6LkQ8@?;nj?)x+Wi<=%d*ZO4I4#Q;bpN_aK{iTr9fhvb^&YRaj_;eLV<@-*uyG> ziWRM!Nlid82OPv207?u{Eu<2#)HSTsg<*7>G^E@MXt{^?3qx4;NzyHQHR@rhZV0KC zZutiCmMz@^862HP$pT8R0!poOMGsBPU&tBXD`Aw9Vlm9rsM3-w>>w=P^)fjO4xF~l zaxJjUX?h_|F*=>6t*TSSSs7;Ms{0YElGPt3EA^By*cxkzmQ$37xse(fP2y7jMO7J>5N7?H#v#I*Et8l6YH_@_O8)tdjH%3uR7JecnTS+Sb9&tW_{1=*Ro?0 zz?>{$bUp6{W@*ey4xPOqo~&r+wW>UMsYQl5WQccf1jXBMoGx`Oxfch<(K+NBJMpsU zO%OX@-iPOPk?SCZShr?qt)B3u2M@9*b=$2gu=E!bBSKr&St+5&yQJOEv#NQDqo!4} zk(H?mmRROdk$;mO81c2N9pdQjj^W#ujDnz zP1Y6|qkin^U%gCts|p6K9wc76b@u#TAg1fb8CEPiqLpG*0ZD{Lqp;Vu>zYfD)VK7~ zBoT7#gM8O+Cw0Qg2XWc{kgfEGi*^(SG(sPhmxKZJ0cp>I8CbCQ9w(ea3Jz7Ce2KKj zbq48SJ$kYM@|PiKcxO+b2lmkG&aT(3U;8O^NTeyE>-2#g&T$!HKO+mTO*Xh7fJ z9e>Bt8aW1TM908>V%xyDvCRORHCb*Do08QNIQLw<-$058JVVfheGC{#3JjE8=iNq~ zyUt6Jr1uOat%t!6+uQkZ_qMbWuZUdW-0S8BZx8Nc;9l#pkR4WP4ucB^D`CPBe>PE0U}B-lBg;K64}f;Rwl z)+n@pOA;)FuL|jwW45QsXUhVT%2g9nK{47)#c1Yg3Xkq;m|86zez zAHEuC{O(Zgg&=s$K-qsfI*9ylw*=w&cM|0W8s!2AG@k~V+kFx+>#gqHCoMCQw$gz0 zNnv&>ULZ9IBfGsECqJ3noD?Ne>siph7ei{9G__BoF*O6ERtc%Cr>QNXspX8N zrm!7)@Pb_&Vo6eH+)!G`7k(=(90G(FCUaW*C7eNBiXwe(-Acp->7()$?7TBsFmKu_hw0kWP z9X__M92@=$wW>OHjHXDZMQUA_W>p4rx*kBYRj#Ac;F?QpvflQZ**|Y^NnlO(M zdF|RmGbWPhf@E$WhrnDFgu-UlCH6l}y2SPHK}tS!AnCo7^ry*3%WBH7gS%Eey2f3n+ zSQtF&#k`pcvHqQC{YN5c7FKsxQL=!1m`g7idCiGPUeccRPHaqbB9r4>O9TXsAwgF{ zP#*|-@+o>SHoRZ6zN8364@Y5Qq=T4^*itFC658?R4Xh)xw5L)+1;6fMT&k4!jjN&? zkVHDc+`!xWJL8-=>koXz5Z^c3=!7|3x8s5xw*h-~n_#MNTIFo1W+JX$xTqCgpqGR{ zjitgiDC$8>vz>kfH{6DJ=eN36%Ik5Ff)2O!M&VUl95!7+3V)7tD-@c2Z&mMfzH88_ zQ_Weo8wBenod08V6??06y)LPE9`kOZn^KUc5wb|O)%z_A)I+PMVKE3p>S6MhCk(6i zTcJp@aMEK~jfG*T3i5(6}=Lq^)N7SnP6I`oBE7dAMXPZnTF+6_cX9i6X{ZY7h@ zDpZ%OvJX{hdWlzzWQ#pH5D-r1)8w!nM@=gxN(M-oeD;h*^ zP1kA2;9lE4+dGomhL)tuEQnWL&a&`!2nDc;)D*Q}|gO)CXFvJ8atr@@db>)z?E@ z24Rr;y?PaClruEFCA1OpFtv6=GOpWt0R@CSU|_<_*zr(7RoX)iG14U-DBuob54435 z%1yd=0u1jT)SbqYGth}~G4!-R7DA*2{k^*HG<~U(m>y~jca3ho)JWcYb@QOi3ES({ zoip_2yJ>r^9`<{Qlxdu25c1s&y(C3#-*US)#_FM!8mt~83-PckA&rV4LAYFjOG>z8 zB!bVD8fXP?osz` zcoL=OoU}WZ6vAnTLcrAvfH>=O>(zMx&_XHcE7A!t3jinAR!u$g(DQV!PDVU)XuAZrTsT2X zov$!1P#?BjM-&u|ZoKmm+Z_*Guse2XzCtHc@3qV&-}~l){7Ml_@IkKL?eHOoe#q-w zHJ>yYOOBB5A?P-!hgZ)9q0t>zpaO=S=h}KdC&y6TkaZP!Kz(7Gri)G&|3cz$5uhx3 z)7%_*!Ke$yNg4oameQVTTt9<)HVV7+!hkVgKzhUF`fnVdLjQF$3LlIp;a%v%7K!at zFC147NDV`ViUGZ_-)6Y~0?u^WCCFBQ!rpbbw4$eLE&y=N1*llUS>}jKRj#&z3Mv+r z5{1W&bV1f?7~4O{4xK z5^$d)5n-qvaVe;eZg|bbZ*z?wLtfi()r)KxZ>0L9^%QhKoeCw;e*c2ifs1hDMY_cz zuO#ErIoz@E=LIqe(xKa?9)i3Tds!50mO|c)=}w}G&^rU95>T4 zEzaHIWFM%~N*nj-s8ZzIO308-x`@c*)VNW{Xgn@T`jA!U7&5R}r|B!!xQ%*<*&t-A zk?ixlFvth&=HqdaBkjB3Ml{I|k=i}fLu>b5rj9qvtUDR{j2j^<8e+&CkF%h8C2>WO zDeaeGw@* zBZ2bPNw+#XLnd}tp*6-7=xnHHj ztM^jBBj6|1O1CCC@m>8+7=^VTDhop*o7$j}>b}tmr!bTrC6og?sqRDDgZH3l;@;(t zr>5}YQ1DiKYY^6wvXXlIkxki_n&v_3t-N&WOulQEQ&rcGGp)18a|W z5#oJ+N&GxUyvc(cs9c1{C{F9uZ?tS3Cm*TTNE?5a7TE#g9AQ+%;uYq}xWTa-Xz|)@ z+6A=Ok8_BCKR{Lrcj9;e1L&U~_84AyLX{EcqGK*!$ObZG+S$0*>(RtZyPt5Pa=);P$kY3!h5@PZ2!B7{ zw;+|T*v0onq~h8R9z@+giih{zU9OXG+sU@UPix6p8>A9%AfH=|d*kOv(Rhbz)F9p3 zkB|S7GSLlWe;@fK5C^e+48-BxV}*lA_b0gbyqj0QC+)IJ*aAJv>#BFqdJ_c8M=Sgu z#^d-~OfHDBZZHVuPU#Juq`fG}Z9;gpvUJ^(^zyTzHaUrN1#;u9&bX*p1-(?-O>QMn zzt{5l$WpqJ8|+Ii*N_%`DJ?k43maJLyq^-WbTRa(_gV{)!;ZJlSv0;MXIjF>x|G^! z)f`?(W{q<8dUApyowZ5SuN%f>caP45l%TFYM`P7!uAt;~Yz|>;x1>uYTMf}9VS$sQ zBP1HqFI|tn%8APC)JT5eaSc6t^Z~sQamgX7%&d_X6C1oAG1Gg+cs?#4wT;Z1(0?Da zQq)8;K85x3d|QDu|wf5AkT`&b#wwfc!sBSHreFeONopM{n^tJyUaXs2wHN8leAZKVVubWb+T%#``E(C$M`(|bj;bh7TrqK^ zS~x{V-u;0?&e$LQr&4tqCC4zR%nMxsrQBM~`KvI*5D zk}f$8VZS7$#|!Jp8KsOK5Krb15+e36f(X~}XDwQX=U5AgAcy^&yl6UK-cOc-F&3bNkj6Fw-sS&y@U2)vZW!# z!)+PpK7nVqG>i}JBl@6LRCUXTtlv+vetH#h0>&_9W2$KRr)-}tzi4L_N9QbP`F6?6 zV&UVJ-E&`dQPL85fm4!9$GeTNbLn(+S3ED?l?x1uD!8onBIW?J@_J^#fgFQDbBjcV zqZyv7>z=IfLR_8O$N?-X9w6;x$Nn&MaVNbVKEE3e^ue=1JjJ&OF+~UVmtyQk`On*Y z{wkiz+Z2A(HXmjdwkyr>ld$Z9UC`aH#nbfcLRl&g6H|~>phH_uXRU6wGhYx~T*yN+ z6PEdCa0(?xDa=~Y1|UwRpMIP+Wd(H5-EC3ifDpAJY1~82ITZG6bCg_p;a)u3GiEey zw$nwsbjwP4yFs7_cZ9#xusesO(j6apw#>i-AGX(@z=JpjdEVLGGPDB#(&NaPx9#?W zNx6L27o}PO<~eU^x_*+i%HemWb((a?hx1zIg!O}KhSiOjg@bmA%XR@orSYdV((W6{ z6ysJ-X1B-N=i~8NTzk;0{Rxj3NV{-x=Z9TV&Itz92T{vqm&9_7rZ4%8f1bv>3VS{z zN?Jb!O1n{U0g{;8dLw@BI;WPdL!(vv_VacQkKMcR(!UQ#yPhSHI9U*Dxa(Y$blsx_ z%kI1y;A)Oy2?Wc<;sIEXcAdMXeY&P=*C}o9m1lRkSv)b1mO9Lp#f+3f)mWB5+A~@+ zi6*p+qlyN-D5@9is{*)?s6$t2dx;**8m&AG-sJFRkSC+LJ%z?T45Hpu(ya!$vUip+ zP}Q@~;Wty6 z?}qj7M(7L>4e~kbdm+-v`WB@AfNQy@$fmaWXkCUTaK2+!Y;aybSB8UQKk`47@Zu(7 zL278Q3tuE0Wm5}3!3($1;w3g=jtBvrtQTtK5u(5CEX-?rNfc;(i>TeR948e}^Mmex zzu}kkZJ%&%a+oX{EWz`~k5b*NlhW=jcp~W*4+$s)G1-$M_tWUXJwz~i#7pe=o=#{j&h$Y9JTXBw$FaOvC>87k=8 zJ~@PDA(s%MdC@X=MkzDnL5S7@A!xk&+5;Euqu~xn$o|n*=8`NGGZG{%8Tyu4uC|Tt zN98J6Z_0uRg)&7^2q_DC35|U3zwv&i-hX3#3q`a0G9W^YlR)AS|n)Jb0%rfMPSJ4Lk+qAn7k>9mzW z#Pr)ll@YY-r;+IG0~q`EQD=BFsQ0&3XgXKetE@}(>SNX`G}u39^L?)W`heMi&;%SK zEJ2GlF^Lt5>;JVN2~FHSv{1qkYpVu4$<6l(XjIh}-;Ik_UHC2<%uwxy`6q#_ycEz^ z%@_&QTr^V6MNQYu9ukX2FZ_|TlZtfcHpw-7*N7AEyie-kGNkWIFO|-{bpsLYl4mnS zY+>7mVD#?VqZs-6lMCd{mp zlFsd<_DcVRU+Kz@3DfB-pq5y(0&S;8E)d%sNsy+pWVfR|kb1cX_VD?{XoO}VC*~j%ck!vveYdP407X;wy%c80ps8CNgg& zmf6&&IBvH=a6ND>aM7&;dOEp)iNX!vYQ~u4(&TxL(*~R@?4J0U%p-{Z!Ljm~kL4j- zDBgw*Wg+|%SLtAg7FM_z1)IL&8@(`OsQ8H&_VUjC17BW&%ZsM;zImK2qZfs?Q%Rkl zNUXDkTsQkJ=V5iOc8#Wq$Zkz9Pc~RqzX|dgt+*C6rkZj)Ijy zZ#G@Jn~iTCd_}SgF(h`aWYibX%Vy-^cvS)OzR542Q zL`p`;oW1avG~@uWPFC`2`*dmWv74t^(HznnQbmM39Pb`Nc{tgH4?vq-b93DIBR}D3 zJmT=s^g3yJlV?K#c#Nx6LhjwVK1X&bU5}@*uzh&Eh++%h8z<*?O0FallEP3y^(T$O zFbE5)tBpd&{1lK#G#C3cr(kv*-#$aSwI3v;!4^-*<_wFpN`1gGv#M+47H~SX2LiH- zrjG~Q9|`V0z&(t(=Lqg@#I*tLIj8oS_WgSMkg@0Jnm=N_dGJCUnTbX=YS=Y{_d>)oeR8E`=&%+g!w}7Yt;o%<~j@zBi761|HwTfWsLcav^nA$yRKz$%rSkZVZ?RQ!YA)074t7VR-@~F= zgvW?tlujD*ITo)S zB&q<3Yvt1b`6o>IM|dIkT^WgS2VD&=P~h7`coj5TH7&v0TS|73E1e++T4~5z?K8Bf zkq71a7F5kgdvSJx`j1L@3ndzyp=5@a#4LHDNz2b{`~OBPwo7rXazH~3+?CL)qRAu& z>Yb{_xsi|3;sGsAxRsFB4;bd#aJvpy>ey=e(m`@L?seknkt^t$<#8!dvga#wCStsr zom19!Lt!i(WH&5B!Ozg4AwkH(kVZIYOPF`j9=1;<5Zlf1I=neCM6|B32eLfWF2k}B z@5jZ(;zfg0VxKFV2ti%IXC=Ka;v2)mn-R$uQmZVxOZHG3w@Zh9nOP`YG^VN{GZkuV zlNWS_#Ng~)=q^hQq=?Afz-J)9H)3JzC53@zCy4D$yo41qM(M(Z=k2&`Z4>Iq?KCS< ziRCo8`4q1=eQf-S*nYwqXzM5To_Efrw@|27%0sE;KPg1_nsC^bSVy;`bV-K3R5!iQ zhq9<}PS7>$ghRx5ukZ$AINGL*_O4YXqIl2x9PmkNBEThtyAn%=BcpDTaU-L-n^51a zgXy~!Gi^6yvXk$dD4M@MPws*DPB`3qr0=UkYr?0f%I_X2vR&wRes^PxI@A^aU}}|L zKdSP3yA-bnJExKQwQhr-TQ=dX6ZgYU#(GWHXD|`tyLJ*=6&6?9(r@il5Arx3?dY$g z)`mA9Cu@EGo@i|NxK^;)iq&+~#f!_2YNWyYZ=P<&MR((K@Z$^~yO@XW-?(IYH$-z6 zE(YF3tqpHw8i`x6Fp&e12{g81-4nQ8`lRjWJJ48=-Esx_T0>?=>zbX=ATPwV)n=$A z1UTb8u+m`YQ63&JsfKzvbhDFXCfPUJ@#)pAcq8+we`8l1)*`c$mi&a)fA1nY1gn6g zLhIdVl^WQ?BXKI0nvmlppN3E z!=s2~d}!=8X9)L|c#$)FZ}_`KE|8fuREn^>YiM5YI&|4~ufJgLB_D)hVbl#}rOoTf z$;2ouPsdt6ciPSrH&0P@UlX?8&6BRc(FlhOea7B_k?9&?@7fPgWl1>Fwcp7bcN4%% zsy!m?@7m|#jfcdEd%ti*y5sYiJtx^Gx!gs%Mb`u$bm1Rsgg11;o~{o)dQSG{Z^h%K z!hm##%}v{@d!pwkUK;}?FVzlUHINPLTOUSSJjLs!TZY!_)WR5ci{7%mw-Fon8sRmqu+D&m@@M>PyWoM#yT*0h`z&to z(dPaq;FdAwtxzgXQv9Ur#dDFE%KTP5w>-1^q;;BBWq!i45I)QX5@u@f?gWCL_}Bk&hg&$iefU zvywP|g2__r6~bCvoc!U$b^E#orj6j~lrejd`Bo#R9p zjW6$;N$<=lJv-ne?S6*}X>@_D&nOdZ5Kt=^cYQ}cN80|0UT=ffd${GW4VlhM{Gg85 zc|umS2P^3fa^dyd;(psb>%|?3ZQ)04xAo8y#($+FmvP(n>u9{XJxsSAqrmk?qXNIb zgl~cLz8sz0c6BA)*dfaK(3E9#Uq@k^Q+Uy?>3oH3SV+55$O&HedjZ-WyYqs5Bus+F zz$DUcygRdN=Q*}a-0p#9Jx~{qn0uBgE<(1}%%^6bEpEs^-AG6m%ay#am9Ficwal>H z^`+g8XZt3U7n+IQzljzY-Qt{UrNx8%t^XHg^q)h}V65vLi>JDq-bP@8E>KGHKUO~d z4&@`KcA)3#WH#4|v8^txW07pLonJU!B$g|wS&DVZMDc!`?JMB|Gq;Qxnq$lS0y+c9 zN^j}{w5hQP+X-Etrj3SLWbWG2A=)Rv`K46xfmRqG^LH3ZSGeI&dTZynK`LEOKebJ! z6&AZ_&hB=xmI%on_93mhe^vf-z%}}H%$SrxNG~KOku?&&u73evw{Jn`%`-TQ$G6FN z_oNGeCE6J-qqEWN;)YHaT+UiNpIpejBxl~YAgYYcBwk@BanL-w+s*0?$>CTP;Bca0 z(X9u`FtY@N#)D{|3gn_Ci|3J5mxI)vRo&165D*Vgi&k@IOQ1VngYp>(sj;JFZamO& zYGj(7TJ3ei6}1)9p+6~(2uFJMt(eP9Ein7PLiTLtA?!B@ouX|aDU8;A>1Z%(|HzXU z?e?Cd<7S3qW*x$a<4WFTAA{j^Y|M>S?V*)2(O>uFw7H zRcE1{bgws6jPRafqftnU$plJ?)`0-GD?;T@a zlLOw?hykbn{(yh6Vn8?M#lk{Cb7Ej(3XplCR7%6sz#B_3@QjIp&o~4=BL+T0jD=1J zd}XzrT|8E_TY3XmcIyo8Q+VpSW^muY)80LUdkUTp;JFq$XD&P&dS=koFd12Pm=8Uh zr>6-F737a+pK@aM zq+t&90xik6h%IYgaDUh-2?Ph@Mzj-NW2pFW@(r*5oVYf1J<()}ta4&^_8vnc&qGTu z*oAYp0e>>JaDR4?u4gnm-suXcxQSOBOmK+3erW-j9RGz`D%wYiqM2ObI!IP$EaK(4 zePdU+qSBbh<6~F2E+GY3N>ZsLm$Td^8i48lmYzK+?);Wqn>^RtP0wG|&ib*d zgL>D{n-mL)ecn#n_LWqa33Wzpe%3lSqi=Slp)c~s7`#?G;?QWcrt4=HYbY?eX|b+} zdqJMN7T!}Ov996ha7TwztgG){v^RmL6aV}XF7us6TURg1MLncK+lE!-(Bd_cBs8WH zvz?rKogK4%V+cw+s6#|dliM~e#8Dk@w6M5$zCz4Uh&q9~Zo73Jh}a%6uaH|i-C|xr zyCYV;UU(g5q_14OV5e`7Nl^LzHQUO(3-+!%(RPM2t_$^CL39i(?poC=#8^U)1g)Qv zNTl80lWCGY<`sG(SJRg@V^kXR%Jal_#$o9_coQuOk54{|g2W+P*5YxaPN?*YHz5_h zdtu^DNO`!jvKy~aEo93DinmcZC)d#GHW02yg5$mR969`;?OiEP!Yc;m>NW^(LTo+b zd=RBxCG97IZX@j`gXipM9L7YA!%Ts1>)BRb|MXU?cK#V-B}_xG0Kgbb+{A^0_=_?oHBg-gdLTq4Df+; zU}Bfv;JlBLiupqy6zw*nRy71k#1)lNb|Yz`?Zfxkr7q3TAKD_wYpHmn>k@jS>uv0o zmpdP0*VA^49mMH+kIY640&8)C@iZEh{#i}0p(fWuE9j~WzjhC@j4{*n#k;YkT#=8h z6Il--7T!9bEg;b>hbBk(=_66uBs(eYbcT zWb7nI;L3?x!bCoGyzN@F=jpot3C8B=D9MXUPQp*Ta1U8%G6)|SgrI+2KvLe;SA2s! z53LtM8}Z`%GSJ%MG?m0Uk8I~3ptcnkNnqyuAuyCJ&hR-5YyQWlQ8+x-sp2d*;qgFZ zb$Cq!*`m~|`wi0Mew(ElH`4RaB61$Rz`(QvzZ-3iuG2?_NI-sOn2S z*L6y>)(k$i+BqTU}kuOu-o>T4u{iwhh?-Xp?e(0q-27&R8sc~UE zLUgr3xP#c~#d|$xLWIC8ulqaVkW%H*F3=x!)KdCx;8JdAYwE$Zq+t{DBm%vy1sk?k z3`eem$0ZqdFR9~d%vgKGTS&1^Jjl%$u;og6d;MEF!3MoVdLEnRPnWcx zJ$BLAS2!&7wtB!!|NWm5IdUg1{N%1D_NGhGpzl>oYXamF-agnFr{;*_1de$9Wck0~ zBu;B@Bb{Fu#P|EyLL$8`U4#3^e$P{*uXhiSL$Jdjo=NZQccRK6FFB3x2jO1OMse#0 zX|~-~Oz$sue|#qyL11Egn%t!I1i8O`uJuWNP=_}8Ih~43Wu-mOQW@>eCG;}xB|~Uz z@HA!f)+b@wb{HZE`~VOB-?@sMA^Cw%Hod*0YoM+9nmd@kR2C%LydFaVckPNT$l7IQ+EpvZyPHJFj7ye`-$RIYIi+3?cR zaw{aa!ZG5EJIN|NRI|-$ygpDvqj&|>&Q_`7J&Ycr&OV7r(@sX#w5hey=jG?9 zM;_UE!Y;jb54ohR_!1i;$c_wx>+5F|xye=_I~~VY6FL565cb1Zvk8z5!T>qjM2>** zeJ|1zUx#fkEk&L0VSepy;^Tab$#d{Ya~{V%ypD$*PEzc4yx%#0>{iEm`6)IFF$kV& zNX#g_Wfab7g)>@VWbz)&e;k;b<%+O=Q5d0D%oXp()lC!KNX=hZWO+~Tx1mCNx!Cj#TchC{B zL%jZ9W<)dNZ`$-XUa*TdN$QBghR1#1abs7Lci{&9Ajp1nm9cnO+;HtD_e!qB>*O#4 zvs-bM>`t_%PE=^_WE|b&dbfM%i?{PVBr^t_F?rlJX5qM!Y^{1cVxsGiOYlhQON{px zj-%D%A@0R!s#pai{DezxczCSvC$?kjaIka9&{#5=cn9X91GuA4`jK>zd-HaV8$&Im zc3f*lXOqtm-+r>=?(rN`<~RWve1z6BRp_9Xn0LS!^;+8urjH}e_#R;!WT&YCX1tn_ zh_9HDVX6Z zK)my}iJa!_x((NHoReNyM;0B?SgS$Uct0`RaL|&f>HhP>*I{3H-Esv?I(Kfo4&~iJ z+u(N>?4wD<=(pXrKMQ7j=j>L05krIbo(|%L*pDLKe4VgYGhlPodhNnJm4~wMUUA&V z)^zT~p_x)@@zI>!>tU7g#2%h>iyhbtcEf;m&48m(ue0DNZukk?h@$gF1G%mG2FSO! z8%Tojxcg=G5bneoR?zHb|MoU>D=1_sXl7=_w+mr$b%ZZ z*4E?heyV`51RKIbcyOWXlnWLOZl|pMfJh{Y0fAgT+clI#jMzwZ1JaNaE!X1BnCw6d zw6VgUq#@_qT+w)vvo7poUQKRHx4NS8&kX4f+iX-io2lzQyTY|=$Z2#A6hV>&Uge|C zT|+KVp16rG>-<21>o=P926-L|=1F3nxV0cchuO6%+=S?Po7gV16lr6g#OvBE$q-w= zWd=BjeNeo48&kR(({yLoe2dogv@_3Ibpjf_j{HVm zxbuFh#sL{aGg4?>!d7xdtTc}nN^VpYWw8o-( z0amq+2)K*f|MMXyUSLQ$l7^lIGRO^V(!9%-(09>3nnhX+`D~3R4G+!t7Vct!p$xV; zQ`R~c<~153??WPZAL3X<`L{zv(+IVMo_Vdf@z%wf9vMFp{QTH8`yd17gf$3xL~K19Y^P|{xb%YE-qlIgjCNyEg0ogganY#ztpRp)n)4$t&!=J#r_ z4{2P80Rr*7G@gx|KT)YfGaD*E?*eanm)>kVT%cJX4Z)L5dY85txV=U`p+w>k$b)>x zkPBEyRAAA_em&&8v5+zrQZ_E6)AfF~(oc64$Q7H=Yv{g(!)^}gXOoxwXH8u4C+Dpl z*S|p8{t*qvlX>{_bXF?3zI>0k=Kq;Nu(liUc2DD@xNaf1|MT-i4#oCTW5ub-%l+Hw za=&=IAdeXAif@My^a5#=Yu`$x$DH>4d%`;Z*rn>iX^xzw@z>X(ZHO!hiJ(i9) z`RBTbi<^5%8JQ602_|gPwc$#69=l}&SN7LAuI!U*pzmUr4V%SdQpP`{WcCn5d>2{S z|9AEHjT^!nwo{dKVSlyL#D#s?O_y5OuX@H|VSn*64h#F4&xi~AuNKjhnCRqATsCV{Dr& zwVQZB*F;sXljvx+2k|?EH`pBh7Ypsxv~e!|fL!`uBdhF(Z1x5^>ldUUx~?_@QoCUt z9>AfQ($k|3Y^D9CWJ)euX{NA>3 zdf;7Llh31T^6S`|{9SZSKL63NCHd2P$z`yw(xpq|XSi%xFQ-hIXH$dIlqYkNOD|te z)=wgwdRqkq8eHqfjB0CyZ#2R=dS`6!S`O`=#jL&PPAuoRPv<}?MXc3x!~3gxyU@S4 z%LR}|R|^6{=fi7%BnS(nL`Cv|?Zh;WoA_;wjhF5uVR>Pw%HGcpeBi<&8;VU$=dDr>KWBOcD*e%KRcz>Wpp2UU( zdcOln3p0Ewrl$y!$Jp=cH9iDl`zMZPJjz_7r-jzUWlJi$$)`IKQQS zZ{=2D?_~Xey7_vcRi=|FQijQ4AEGS)*?v>~-l`+y2(Ap~tS8!Bgx#aNNz`(1_qQoA z`2c2Lf?XW_n(fN{sP2fTbdLenaC@MAP^x%aqyBN_JJ5FK>-t=-0r~KSJDoUv#c)-O zHv6L0Pt%uVA2HjpODuA|0y5m^as$q=HN;wl0jr^ZM27}vg#M9uyWRea`>*-FMe|8> z!WMJ}suY{gV3*jms$xhTTivi(3;>T?ODd8ymuuMlh6ik$CVW`)#jmuL&_NAyORjf? z8*3|5T$nwHUVR0~CU0RSg5a7yUte(=3-Arw>pw#*AdUDNgu^}d)n0}^mnbwlw}BUO z=kt9@PI~8I=~jc&#j0NZqP}ZHV*T{eiBi=!)IpSPz4a=h^mYasSQXk`)ZyVf>CW5d z&mpj%cc!|BxUj}!HhJg$$g51i9d^0leV&H~HS_58-c18q=pR+m))Q`eVQ-am^&mfB zlaXcA-W9WZH6CbN{yv;7|7ihsyf@eWgoU|sHZU12^q`S?vbS}o46Qq;k4W#FPNcf6 zw;?fTB&dQ0*9b?@RW7~j2&&S(qQ%o0(mTi|PQ@c};MzubM&Imf3>EtV26{=1dSM?Q zaKKQ3*J#M`un`4D$Y9^R%=Et5nKsuzjx$JilJxY#kRH-l6~+q#J8&P6A2{X0clFD8 z=e>Nu5y7ozUx$nHfnGQ8^WeKamsr0LN!4Sy^(~x_A-0pC&chn;3m^uUcn&H z9KwwiZy24AB40=r4DZb|_T@OiL}$Lnd5Et#qOtds33NiI(@Aw0Q9qz%R7I0p3-PrAQDAeJ-iCJ$vnTzekWbO`ppjdZ$&{@5I&v z0Ldb1o<#K&5967T>lLCB>eAhU#zjcSvvqEGImdPCq1CRv$u0sOty?{fUJ_vt-h^TaV!gzXUtYSuKn;FM zV!`gdZ;wNdP1>uIa+n|1i$r?>ZySUoLbeM`7GS~vdF!_*V8B=Jf=uOt*M1FVaTjDZ z*9{#5TKKQtXLZ*0&WgDbGI}KjNhAkO_OFs@1NwCkKcX`5sPV}ez8ot^^cT6{aDp=RC*^)jJj6LCd!RUV2QI=F6H~yDyLCZ zK^0%I+{N!%FC2zOyQ`{~eCPWLJh1iK9#L?d;}q$V`pNY2sID)Pgcg_Z zFLlBx18ySzs1?2!-qou2T03Bbu|zRRSY}hbYPX9++Y)HMy-he-N^_%Q65bQu+cdkk z-D5;aEFky|YTP)kGZBW;1slZi6Bn*e@4@l&TjwS62pADR(e}2_6Ta^)nJtWB;BS$o z*Sd_Qx(l#zu+^$RSQ+a$f77CR`nPB$z{UA3h*wMkX>zd%EEtS;TJ@<_hbiHZN^h12 zrbx3ePCo{lu2H|Ustuf;-hW3vw;R=Msr@@N)~bq*~K| zM2+3cm{-CX%323aX<}(ALA|5afR0 zj#~p?m;p?4zx{*0+wAs7;p1%Sy3ePxkCo!b&RaYs66auSz3by&K0oO>dH$uD8%d2mG{NxD)%6F8pXR)VKOJ zlsi^WGxnNXMpHDs{A{h{5%N98h!oT* z7ii9UovZ95<5hN2A|v6`(TIhMkm05tux4Rjm)>~;_}Pbgoky-BAKhY7TrBfhvEGlh z1JL6qDBiO`o!yyzxd;q-}whdyi zXGt)$F^g%r;|^m8BsB5>31f5K?GWHT4A41^l(YdEaPO7c^|{iK2E&(SrXjJ)WICQn=hOgPO2hD$%;2n>#^r)z;OBvBaBsQZc24TcLcu8dKpL2J|6 zUT0#?*>Z(&gym);X>Ncql8Ywd)x*-hbV`_eA`r&p^>O-U^U`iVBySfER>Lbl8M%%a zt0xufeU6MoP%~CH0jmVX2Z50Q~;#^IiQ((b>w;0@JM&Vnlkt@8*Uv-U&7KM06g z=Wig~37xQ4+Z%54+KDk4ztG_doJal%oRr`i`t=|Fg>$g?sl)muxBj)fY`4>kR<6Vo zmePH?axpX1#P@vl5G`D^@C`3+#K5;x?<`@KdWf_ST+V5o2c<5- z>`S{ofsWXl;WqNFGuE)1kV1<^svfXT$6|3A_3WKBIu9C^$5{WsI_phwV+Hg4*k89P|gVOG`&X+11S{meRlktRY&MUtt6zQEek_nc__4^*?xDDgwQT`Gwk7?3w zI~tp#Wg=a71{`DMGCcATl}Usvu`Ph`;|3iKga7@N@%{D7**T0EG) z8VYhG+llZ65*oX`vzDlMNbgh;6D~s&Vp;()*=LPhKc1{Bp^)_QTsM)|NXEZ=icKBT zp#9+#nr?O;a~_e5#eVWTlCPLt7wb&nN?Ih4_baixYK5Z~DP<;@(#V5o2>R%1KV&At z8tk(Z`H4lU?aQ$PwnjLr1D5h32~{Z>XDeA_Y-JzvkqlrfM~DbMK%Br<29T|Q$1t)L zC?Jh6tb?yJKyZbRfR0@mIS?|X(dne&dEi;F+s*@q{cI7X8#|=(2P~tb#W%7t;+R~_Mqi` zc$;m>V`Xk&O<`3Etvp=ga;U_6PD3$YIez%#<8A0R^y!phT_3ic+K%c57WHU23ncyS zmq;&Cq^rgwJ78P)HFgQ?uyhSYU=on@W(H^a z_YCeXfPaIh{XYQV`3HR40*^2FErrMMpYbrU&&}YTfafdloAcawn7rrd;|lL#@QCvP zEzG_^^3y`Kr$GI!c8BVM2^h{udefmn=wSftx7+}Ah1Pkq23Si-chd;_aLO`(Qx=$) zL72VCQf{~1`(HUQCU`$ZexD(~ihTUNmi*2pzkeXVGV*&9`IVDjpZsxrfAagh5r4Ok z-wovVR`P2hzg6V7ko=~T-^UF2dms5-PkwJEzxCvIDfu;#-(>O|L4JM6?|kw*ll=ai zfxlmo-&62Q=5^$pt_=CxsFnw2+w0nJ3{Nm-xbcF77m_^ep3mn2ljNyw{VR9@xQY`w zPhj_a5Wnp3U`@i}M)0l=#0Yv$S~uf#80Ko?{PC^rh-sVaM)w_67$3;!op={UrIAz{ewxloT=cKzUIbtb32 zJmnB@8!lZ7`ypt+!0khN_DEW3V@xxLVqYnsORk? z7jT=+;%@gWLX3Sq{nC2|gaL|(yHBWFg6rGlycP&U24NS`FtK~y$`kb>CD1tA?)fow zMU1+3Rmvkc45t*gpNQ^#ork`+b$$VxahmkP2+^(oN%(Q?k4S~3VC|3hzX33d^=f@z ziW|h$%;|emhV@+)LmZwNH}+<1V`OkHNXEBmFz3e80;uX_Nr4ba$dj~qv&0BdS^+N= zT7|_IC1(@{Spqvy5TobN>*X@L=Reb^z7%B0&F*<6kJbjrMa0_pFJR2KCj2rc3>|({ zILurU>vX&4AD|8oQq&1;4~jn4t{2Xcjk|BKUCp$6{&g(aXV5hd0#OPM z_m1I3#*tQbNYj@sv3oYBVq13R@$^r;-E#((@VPLHYuC8~YsfExkvq`ro@$3cP<+Qz zY4MT8Dr}ZKHI{~YN8`6vpSVD8t#+n+Dk@|N&?V>Nwd~MaLOR%PWY1}`Bnj>1j6wKO zbNh*|PcL?UB(ZoTo!#qVnYpciW48o#4cT{My8wSDizjkp4{gt3i%a)O>-4TqF95^! z=s9bJ@*OF6CRqNK#fUXS#4_NC25tCJyXRsZa28sV(;+h(MwBR2!biMWt7p)9lcqP- zgX}I1d>{k=O5S-$-<#=1PCDs(r*(b$I!qGp1u61?rt2Gtrfa}MGw^|@hFmy-7lWh1 zg3S#g-5{LkLF<45YA|3OUt#y$qot`sZN+3D%I*)6}pXS_|}prOyTe>$q~dOkpa zd+eb^&bHz_-sK~lBiul*-Xrby!E;U*r&&rMvo~25X|^jkdNd>nEAD{ZGd+u@6aah( zvkZZ|&f6`XxU&V&)*^I&Qn2M%%At}0*P;`Rv z9@2nx_p|mR=r&M-UKREZ*qk;=EUg2d&qSlM6{PRcj)#Y}`*a)0iBY@fE0_@JdO*t} zM_MvOT3SU~VhAnBuQ!mf=63ub==NYykGg8Qs^)QBpPnBtjNzYI454BSul$TL{Efsg z-c+tg9&0M=@YA+1GDP=b*To&n9n-;++**zs142;}-gQ5ILwPY4^Lpl?q5Ur`e*V5XzQ~zaw?{d+^}MRLJU#@cz@h^jY`k_a}1JufiyQ-z*vZVa)cebc^ew@Uds# zizw$vwY%55-UV)36qK9o^|^Qm(28cZ=h=p+V@CKs+sp7e`uXjK;IT~bAjh{*Iv@+EPpE%~a9|gGA z^e`PMu`z%J=l%{;y@dp?hw5t?a$*lFmSy`S%$C)cZwSmq1qvkmHj zmYE>HI}aGt{Vi^M*Dl5A`@kW4j?zN!x>?Sx!nc`FY17c!IjO_>V`VP8{ViKHuG}BR z%ffKH;n#WY9TMeAiqjeYBKUB(zXfB>QR|%B57>T&CIjGm03_Ek2ies#WVsVDmbsq~ z_Y@!?5gPaNcw5IzY^7OP`%;`l^|{x8dQ+k=FGXvan=v6zttaoRoSCJ?UY{(wXRu2$kAH^^D91>ft4Z}GUVwEHYw zm3|g)BuCD$o_;(HelLrD7V38n{Pu}{rDKttwXDXAuU23ewD4WtUk)Y`g5Dd%X~JH+ z=e?ADdAc_{(RN8%XuuGE>@Y9v;=>2|Ue^IcK6Zc)KgRcZz61{FFYf~D+5pqaB#5jS z8`mkw`G#MLDZpm%Y8)8C!uNr^6o;wxx>jS1cvfxnd2%z5?e<1 zitSE3H}rXz+HU!JEOx>D4#3xJQxIM@Z%A)e3CHZ7^VQ^YnL~(3F&{=j zqk_4aUN~ZN=h*$+qK02mu1=T_qP3>$qjLsfpXMxwMqP28I?2sgVRHH5gu(d;>hO9U z(O2wF7v{lWpW*>S0UlmFtCcuQEwiLs0Ct@^ZEzkkghMj>ibfvbIBxQ}6~4EFnGx0t zi-4drMx0KL=i~$Ii4~U8Pz3A$Qu?_Yim5ZrAK}Cf?Ss4FZHl+bd{z_RMba%p*?C z<}WNDh3EmogX@_(C$x=^H{-c}2=8RH{hJoo=k~Atrb1)Xu03OJwA2cty6}^0zt>nT zHPFmveXbQw&l=IJ{ie3jtkt^kObX|mR zP-9d$*PADwZ8h;-?rR|}yZ7ltyEMLknuN0`;!CGFah4n7n-N^=y7|YS?Oo?&?Q(v* zgp&}m@FIZLd0N4B=5FYPT|*LWud97mA~!l6{LaEl&zII~)_%rGPfOR@xw)lW%Phch z0j#&+Be9F2Ri9qz8@^BaH=s-_oJ7iyE~HAj%nETga%#r z!W%jGvE$S0TJzv{L2D*NCK=`jK9upZ$aPpsGS`<+i<@Q*6I}0y5M4uVgRbk~1*NoJ z*B*G&oZT(6T-h}w8+2_1rz`nTzs!lWMPkIdo*dos&@3h9lE-B;U6n?6|YhkLc)jeWBWZH8!}v%%qcPVjuQ3Kj`VzkV)HqvL;N<&bnqox#AH& z72nm5>p<`A!tup58oi-R1`_G49p0aUFN3bPf)A!T=(-Z#$nvM_ZS0Ml%H`|&k)^E0 zkb^D~rwRUo`_ft`q|!wudPmcvQJH9c&IzO=i`w`#Ea+H;Y<@R90ulV_w0$J@^u(pQ(<-+ z@=)!2h!|QkP%FEo=um|3BhlJDQzI$&s-coSX(tQEQ;Q~_pTpF`=>gt6+*3bf_w;1x z#f+y{LrhAHr?;1!NuHSA8xeThdzam5<+CKkrQ z+-SnrcBmPnB)0U6rW0O1X+4Q%HuqaFg7O9^O53-@n#>8lOT}6KfY;)_M+mcAL1Z?Q6DmYF!+aa#I_!Wu4{`rPabYl? zWh=*u$R^jCt86LLXw6+cjV`_lZvw_Wk>~B;_q`J-=X|^p$CcDl_|a!2HXq!$*gbj; zU>u_u>duugI|m#Iwu#-7#ddPQnk^o^wS>6YJ#$XWHFIT8K%n zF@A{REwl@=+&qi#%XP!XI+O2BcjNnbH(MKKx6k$EvvgKGHs11GWght9dGbL6$gU5N zSKvScyMGb?>*<$?|0)`P&*kD@IUawRWBj<5OwaSQAb0EYyiV%GQIFT1InLqxf9Ut3 zvF|V7_mNR&(k_XB1M!9T$GGy9PMq}K{@q>P#lX)vx(1rh_dO*~I#1RW`*EZHEy^bE zBHhB`A{=lJ%Bq=aXe39W;)?zHrt-Q=J?CVDZ1rj}&) zJRd^X!)%zLy7lqSww+{w=wbP=D>*=pMTW=5M_#P|L0s3s7*?`;$8M)Ha5t-xui)c& z=OH%bzHxlYeO1?X6zb-*xp!?xUOaXWw7CD!=Z;DWFltwYhHG1#^r(}G% z4j&Ibe1P9>Cw~x=7dXPllj6~YYOm|6GAh#W{13x8?xGVqNb&A%Xsw&(ec+Wu%zGHg zJKlsu`nwQw4u()S7u$zlp#=~(Cz4Up&P@=D^qzibQ?7r3un7AI9M`$(yZ*^UTm_DQ z48Z6WxT)6DkCV)LG;h+i+YL=8j5r(!oDg;m4cjp(tnxBpQF6C?FAF03VdS@p{Fa8{ zZ#nt3kl)+L?|SkZOMVUHH%NpB4 zA0_#{iTutZzthO?IZ6+CKTh7?bD-xz;{OHt{fhh!k>4HU_bKxG2>D&_5dRYL>qCAO z#h;jdak>5P>8%2IqB;7Ni`1?HZ$qeMUOV79Lr-;Wydoua7p?@y!i06aD zXtE98_X9Ap@O?G`7c+hx-z4G}T?T&)^B*+~GjtsD68Hu|*8wb$nus$t+p_Lu!G5|R z2AhQ6Lviyv2!4}@zkecrZa#Jmnt+lL)ko~aWS0Mcs*mvLUcxPz_Y-2qZoM#x+^N&Q zOH4ogvg!BSKURV?tyzQwF&>5J{oOq*D*Ml3RKG307t1ag-(zBY|Gq?g4&`6U;_4@3 z9gXV*jjM*_ah4cS6^UpWhUuWYkhp(XewK!H`gzLo zpHywlVv+~WUnO1&k`O>Pf63;Am%ScOl;|SM;a&NZ*-u~ zLktpd{&M}rm}HBsV_2?;H7PzLRD#5Aa^nYk$Y~jjeXvJ?%3JWdw+D4|IX%5bkDfQS z_a}G8!MJ*s7luKYKm^;m&L2QDy4Qo+WmDR&z8~Dey%-JO^^-?SERPq|5L|xkPk8Nb z%Z+^3E?+TLG7=v0byHvO5<$xotF`CI9HKM3jU{gl#~w0n%s z@xNczM|v%*59^N@?ib&07r*EK;`0=LaJ*%WZQ8U!}q)tev;VU zb%nIy=t@be(eYw4pVY#QylvAeY&L{wg-w0$4|b9iHkfGAV2u24YAw$OU~4J*n6{Qj zv5ycDY*L;tLD^VizKvY10wj4llC`WjN?4!!>#yP0 zPY$Y_lb7Qg+ME0Z@*=;1UDf4#&4NnQVcSy`%jTlABuhTOjzQaS8 zjBmae-?wLeUwN$=x@36`eaYhc`>)40K^~Xh&YI1#v4B&`!)v}^3B{hdtURu86khKf zJm(<1Dn;)>G2JuYi1GX;`E|{pL;GX$>j9Cbe|+<+^_w_&$@aTmjH2S3$>dyKUJM^( zfr2Ll`gQz^r!R|7zQ1?+x5}TJ_p&IT91rrF@Nc;cK9zqjoj&7_rMAUGWW2ATtzyV_ z^Ey_U-lzZHl5d}|PLyw>`~Exm_6aX?UgsS;8XRA9?!S<4TUF!ot=%$FzP;;?|4zQO z--LAj^CYFyd7RFJm#v>9+fT<>E#LdqCFHMC+fT>Yck5TbBHs?%7-q&-ze%1vE#hDI z+whx3{LwFe6aEGf|HaGTld*Hhs}tqX#kaBc+4JQk%A?tKJHNf#^nnO|IPe4$0og7o2(-u8f*C3bvtQeso_*RE`q)+3|8i65sdVW~9!HvBFT zKVeFIM}B*%hy|H7`kVN(OibeB=a<9(e}6PCgnr+Tl4YR0?fxBU#Iz4OUpaSvAmOLd7H**E*zsdX+n8F7fQ+- zJ#C4U&Lok}!##w~!bx-{{Z={?37sRyDV>`QV{}f%A0HIwKCgfFYvWTV>+(;2_M65J zu8j4sTYejUvlxHIW$?%N_1;A+<{Lj7!@Qh)b@9_*k^eru?Dzl2`hWeT{@?Xq_Wx^1 z|360Sx$O1-s{e;L^#8g^{lDwK?Elx0{(qFxx#9TvDf<5<+C#rM3aURDtD;MfuRgD^ zHaz!}G0a~XU#|R)MgHE$zj=K5mIZn8<6oiYY$j{TYd?03{8#61OH+Qn)coy-VwP~& zZbiUVp=4W!_1<%)4I&pl@QF0b%AH3V<#bVRE{srQH(&Fn7*>z%M;B(9DF8jo& z+{;N2a$kjnsxsmsS{ICTO)$29_ieYp`?o>leF?rd?Zu-I?i{{X(D%n~c5<-mGGg4z z?t8=YxFr9~gV}f2VWNF`awQs%>~oI-r%~W+39B&|?!MsM!E@}OiQi$z`zJ}odcGd& zM7tnVn)_yS*msFta6WcF?1qkAP!3(t_WmJas>=1VXta5<#&sP8-0RvL>cmd4**)E_ znz->Po*jPq7FtM^koI(E3v z3vkF!=81}f?7MV}=fKV6xcM$@M#b-(8>iKQUT;Twx!+3f;e(XkHzO&%Zz_@Ae&sm5 z7p}Z?d-$Z69+yvtv`2aqS*`#4>$Se*pjhkA^d^qg`hC5LVv54V6j}bVthb||kC(Z8|0 zcJ8O;H5g9G{&zH%*ZtAs<@M#)V+Ai_@`!Ow#Gy1Ns9J3n#SFP8k0yT@CW_U^Hk6*`yW#`y2ui4*wm-HC)h%o#pU z_%Aqjbcp=npZo0gU+|ZS;jd!h8@ovO=@{N5hOfo&fOO40SWo?UO6mXq`(OEMcAHJ$ zJq&g-DE|FCm%2|ec#y$u3_i%$KV%IMn8i`8T4oIwJ|&`b4Q$?Mc^M8^kC45!81Qm_%VaW8QjI- zCI)Y3@MZ>U7~~lYV{ie3vl-+VJpJP=&hhVUXG-6F4CXNC!QdVz3fD7eVDJwNo|91c zHiJ7DyqUp322XJm-oc=X!PyLcYNvGdGx!*T>lrL(Fp$A>7b!f*;J+BWgTX2WlNg-G z;JFJFo?vhbgZDAm!Qes$BN)7v!LvV8Xk+jl2KO+ynZb<=-oxN+4BpIOxeLwrzZkSJ zsBoq59tICFc$UGqX%sdxcpHN|81$J=VJU-;G58gOKQnj}>yLp9Udz%iXY^$jTXK*!x z%NSh3U?zhJliK~}Z>W1cgBQPM_4oy&=bMT6H?w@zFj&aooeci%{6u`&3|gMsSosb! z=+FEk82p_1Conh9;CIY_CUZA3G`)3LTh9|O{H;JKT3idISkd4VFU5*W2<{Lh!KGLr zrC9M6ch_J=f;Euh?(Pl+THGy{-@Whq*O}cjv$JP+p4~a0ooBW&xQ!0G3r#9edMk^K zHb0WCH4sk|CB_UJOfHE+^DuscCQ@PTkzAP@gYcBD%cX)dFJ8_HgI(atv`<|IK{_}Bt}I&z}BE^$>fy3Bcl+_0;_qd{%<_!KqXPF~rcY^B{9tdAVA zrLB+Xf-Y5dn9oCDL z!(q+KL1*f0s{=USJF5pRd>Se)+asyaOI~+pi=#I|+5A_eL3;j*xza&OkCyhRk1dEu z;EE)u1Am^%<2q|iKx~hi%bGW^?UG7|_tE4zsZfbyY!9GnH-28Kw(&83s_wfTfyUr# zBP!#O9Map$S7?FD9qFHLmXD@JOTGAeRT*1_T9CKI@`x3Chxcm209V?^C8bS|3KrES z%{SY=YKe`+zY*{z4^qbu=sGzT4*Ep}3vGKrO@`5j{`IgJO>Gm!SEfEQci{=r5M!96D}`G{T9gS&M$LDJ0Isz8C#s1&c;O` z=pNtAojsxYDlOHhZ;^GI-o}L~h#o(Qe-_Z)v1)((i;5_SmMY`UtLI4?;4!Lfxsv+% z!^-^tQrNA#NP%YrvW+{KXlxptsNz_<7^BxX8Adl_PQH ztAM}HI;|Y3-Pf-8;zz}^+pzHasS*TA%z3}dumll5PHjqOPLfQP3~7)GRe1&(Tr!9P zTaUjntL>J0v3J#mPs)3IfTl^uUDTEfx+XZp{hyx8u4c^cw6D5V#kSkf5XB%=HzZ`h z0kToIjf-!^4K)Z{Gwj7fOeG_Aax!tgwY_K?0el$)(fmTL#4cJ6c>Qk z%5&Fc!6QsW&3*q9|Ilg#_}}Y;1G4zKQdCkV2jo& zzP^dYGYh}<844|SraIX7<(1Z{X1<-pyL~u5GtuD23_Mxmthz|2e?T!dFzv?P1dWi< z&1<99BN~nJDYHZrmNu$6_XA9)&aVAwv8|lXrADoMPJc-s-kn0joENV8fDd{r(gN%I z;uz9hc&p(#gXj8k{viXy-tzH$HPjz@*y_6?bx27hY3Sv3xv^EYd9INuar-&k&tfVb zetB(k>F1Swd$iz~c>#Cyy$PWVK1)2WWZBwxOMFILc#(Xub^G^fEzQM7>*>wA$=_vD5Zuy!@Hrdtl)L8{oCEGbGLRs8Iar&c)$bMBhiPEL-nEgKO@@6o<{$zcka2lesmH)^GvO%T&_%f- zat3kQ9CfF~+)c#o+#lYTSZ_Q7NT=OoUB2dHWBM$4b`__1i18Z;@*AP|1v3M@cEpXO zCl@`o_nhIT81J4qE27tNuVK=c-A1h@u&Mj%e%gn-VLV!C)L~O>(k8tR6qs=l-m`3Y zJ?caB&q{*|-w|MX>oT5HbqLeO`O9+^)-xl5e;e}Px*6XiL4PywHw@$Zz!*Dn*9uHV zvj8Qg+^@pZlWpw8gO>gKMRzx7y_Uf(C%7E|O&7Hc#3GYPDcWSboudiFPv+u8e zk7Pd#nlv7K+{Bs)X~vVJ6gHi8T|37!GfVLqyR}^J>Z0VPJZ!!iiS*-Xg&+4sp8jq7 z+|ttCI{)zHara^THFPj|9|&}9GJe*ObxV86@AXx@qe%tE(ig`P_qi{dSwjh%h2c{` zlJOSVp0x|Y&2azh`vgU?MX^?~{V=~R(!JHaw)QdWkvsZyVR%Jc#pF)rk0wWAZa*)$ zk^dugX_U4CC#XL~6KrQ^r*G$NCue7Er(@?)!Xe12N=-pSK|w)JK}@x)Z{ee6y)^e#N^cE3Y)~U(fsI*lh z3d^6q_@?YG8pThix1c}890~L; zBbF4qU!;C{MnLA=>HtBJnv%uFYee@9u$!J%tx9go9*6oDb;sXoOOSrpBJ)nCT0W{; zWhdj3>YChY2wx-M3Ncu+e1d=tz+|e3;;3tI zfNNzP$sIAq;>$amj0bX5jDCa&ow#Rn|ND9M^e0K`fg*sc@nkY-PycdT@AQpg^-H>r zcox-8BXn}#uCkbh_|~SJd4QFP70@q#a8c_?oFn((hdKp-@j|Z5vtxGthQGJ$**?zSr%!k=#nnVkHA7fkBIANeTj;*=sx*<7^Rqqs$ z{Fv+YpSEZC#Y+~BGG|1k4UqFtUS^p*igL#|q@m#;n4p@!i@P5b zP;>Qsjyt!Eb-lr`-;fJU@oT!9adL)Rp)p@rDd{~l>fDNiWof*C^?D&1#xZ5s-A%fny? zJ_<0H_8qOHZlWXFlpgNOs2_gC?}52HvNxq+FFN4P+CIx2tr{2TkTtaQ82ZfSQ5t>v zBoq$G!)%99|4(=P8l0Cs%ZR%5&&XB#Hk|K{h^-6r=COel%=-?E9f{OFrX&7N9MgX! zo%ILc7xk!8`dlOw)5qLe|3CfG_iUkgBi2t6pFc)!`M_ytDhu?-@AHfw|u*Ijf0*0N$8S6z)73ONt-NN=q$($o)^@$<3&Kigk9IO)FE zqXq7HOEV16v=0`RaK5F!)u!-=jzPG09K84&W66SofJMQ6-CHI21rw9Amoy(ZycG)!`?{<;dt7n9C=^rwh zTH&-Qo*hjzT%D!Q4~R*zWmQ>m`C-lM&;uderXTKx+)G)j%~#HQf*~ zWJ#4H@=iNqy|M4C-*9lC0?ECtYXEihWFiZqI<8t5d1@H>ESwCkDplrK_upsk^{E*% ze)L9DonUw>=KRi*3#2x!Q2(1yCt<>aw|EO_`6aYw`@8NbAkw^C3c9}!CKm#8gULS? zA9A;n?pHKn@h?W4oa;}s1vix235y4i+{3j@S7pX6JfeFdsoBe_oFO9dn*1sR)|Oo9 zR2XaDv5FDZu5%$CV0@oYl8{*WfPEaWu34uVMKd&|S?9QY9Hn~VTvbsw`F=bIG!=~H z%%>OIVD&L!i6`pbNk54&oVTuM{Yw?w{eWFy)rPmV zrUaF2MLiEQKZHkrg|5u7D-4IC7M8(9F4jjJe5ZB}P z^ruobfE5BaUIPmE*W*u%zI>Zj#8t!BO{di|T*J*|4V4~hcQ#)GC%;^2&YQAyqDsE)P1_6h zEG;rr)Ux|}o4ii#^>xfOVyt>jZUPY6-d6ZC4_u)Z-DXt=YqRtr7n^V?#t8EnyBnyK z`9wXUIn-V+`aek23kybo0nZoh~&=kLtF3an)Jr> zr(lsE0>-oWP@`Vuh0mYQBXLRs+JMJq2?pNvG*qS-hIKpXzhtrCZsz>q`=Cxy?*U^a;44LF6mxtZouXWdOvjq-O3rF10)E>g?r#JcjDKGiKz z?M6B;QPljjg4uVi9{;aFN*Qgl!cBc^+AcRN1Du>yBKdWYR%?FXT4Y~tPyw_1AG0?j zJ>cj4A2O;0HW-^81J%ME^AQ_W4({5HDfNuh5H-q#oM{>XBA z)~_`b?grrULCRZX(=+SOcsLu(^hk$1qXH(;fs!O4eMY+`gQCBqh3y({{0{~FkTUD3 zH-;i&>of5-CL>)2v`|_oH*(ddwuwLR?_;v|&DrJeK`(~W=rYz(kioDazwX6W`Bpl0 zOIYNZ0hR`rL}06N#xtu=Irq;+wH&Q#6Lnq&<8{tyzT7%@oO8;mBr&fOJD zPzO7Da!(qPr^;hp$F<)KUA3WO4r#wU$JToK`q?uDAQQMAEhNc@le({tuQxXNCBu-L zlho3K?&a$SD%2=W0T)6!>^#*sF~}+e ztFSbe8Dr%4sT6TLCqn>nlex9p@c1>*{Q1oDC-Tgz+ z@mMb_i)Wv=xs8#jk%7IFM~cIQHV2@r1RA2Q@80J^uJ*e=ov!%L^%Lc*cy|6%f&i-~ z{s!FyA=x4>wHg-PyBOE|n5&QAh()f4ljD$w;j8vHt*G{a9?A>x4ZLJ_4`3JNgZM_| zm#dl+9tN|{!zcjB`oLf-4E6&p(E2X*V|<+J^;KSgEo_WmzQ!ryg5+L&11JM)N{&?z zi85EZc8&!o6s;DQ#88oBZ#DE3|6s>2O^(%&U5DQNJ7yUm!z<1Kq~2z3CBFq0sLPn) z=2q=JawW2ByYVn&Cw0!8ENo0LN;kq_%`53EI^Q(l*H_wbTUhRIOda+Tm8 z(r@>YQSQr5(g9;ml;^6$UvD!bFZlf9o1_>1F$5V+iobk*Nx4dKuA$v_|GH6LGJ)R( zgYTrputnkWYxdt~Ex?wP%LsNuN%jd><4&N_BvACf1FT1WkQ7z}-D2J{u2-8A(es89 zwA<@Orr+Fq)pB3O2^aIEB3~{Vxxn4LuV7CPF- zQm1!QBQis!KHf1|ySsN!Zb>BaS_uj5+>EoWe8s)9_+QP)q&}!WyI_$3^qqN+7Majh zmht*$pYGuX`!BNSB&$x|9%G5{;Dp~u_pK@< zvFttJesZa7d}(>};ooXEZGl`%j-D6F&Oi0sUU3%Gtec5GH3&Opp-v74C)c5<}Q^81I zCCL9XfdrxhpR3GW_O(nn-ch@9Q5EwSBSI%F=UrFZx~6v5ya#RRMkZ!DwmrTUf`j*u zN>x{ajPMTBg|oN}KF;_YJCjPVt3`v5Q#I2y!tN|02d#gfA~r7j@QNDB*Bgy&+!ocU z`FXy7h~eZ2eX-(7=NJNzZ>0R~+7)<~bEsA^?Pjdf!+TbMeg8`yUsGRc^a#@k@Pmw0HW|lEJ#f#b@@**%eGizyc;a8^d&Jm8O2(x6Lw4x_R`N8)aCC9~BUK ziDm_a)ukB8BFy8aXyPVxmaXk^`O`R|6$EV*cw=3iAq3FcYgWq{w zyGA`UJ@l_^KJ@UV6Ae4WMD09v&I!Y560*CaV)*d$+1J;v{(dok@m&1P?2|R^Y0j~) z0;=%8((R`N5)8iu{u?p$X1@BpDEl=2NuQ{vtPT-J_i#;Bge+8TMUSZmw4aJ;E88@(%vsZdk{=tVNOQ`F;S7RxZ&!b zGR_oFLQe4|Hu$5rh)2kW%!L_8#iGOqMCQ|E#0BhT*2HuP?V6r|P%bj01Ru=9+M5)x z4({70utrvn5zvI8F`k&F=ugYrK_7ee}m7T#hR6X>m8J0{@r!y)?cS6BhATYDp9WhJP%It4}a2(Gs`y z-`h|QBwkKQS#6WYNAs#3RFZi{s;`&0x3^eQLa$no7dGzu!DpO9mglm!_VtF=Ti@Ys zclo)~{GocH0fV8ZDSlWx!v5WLsgtbAd>Hy*UKgcwRJsuG~A!JIAOXpdyND{-zvMIFmN8*&oOoD|EsYg42V}J`RNOcqM z%_m`vLKe&|YHMo&r)TXdDF?*o?B1>rN8A&x924bm_2e+Eq$3bHAK4~fL^m|0{tm5~ z7VG)^$&aV;^Wr93Uz)?_4lOi7|&098}e#@`;cjh;z-YXGnM1AYBv5BsR z57aTg9IN?DZ}M5NEp(`YoEtghKxFavjxbks^XmpoZL`fZT$HB5G(I&iy^qh!u*Rt< z2>nMy9UxpVSx%SF3Xqb(Pj^>RX=y4bY+jV8&geYBF=S3(jU9THGL37;Y5ZZW^AwV3 zQ-JS{i;usFVgoZ9%Nm45W#q=Q^tQic+P%xG&nvAKDnQm0Hirl-d;BZC*kkaBR85Bn9+U2jcPZx*=MoJZ#H5bm!+5J zvK7?{hCE@PG4GE{-KksKkL{Zw>*y{#)`$I!GuwyFAHbNABl0jsx@>r}iTK{t;{8%5 z9NzT#GB##pFPrt@*6gSA&eaZ~cD1;dfJEj|c~CJ?mfxz+t1PtJjGM;q$15M79npQ= zarBl7+7b6=j&pG$l)&{CJR)ne3fbZD7H+Fm(H?4f7CTv*rV?08kOgl$<&kjDEEBCb zWvqObb-AYGDcUJXFd{Ld*JNaDw!ZA?9|+XoOt|wgtYP+P);<~YNZq7p;AF0~QH@^| z*swj=OSNtEv!(z3$ySo-+G)Ba?pduk%Vo2OGR3d~hih^gGe8N*OirJuKC#34zO=G& zxpY-I95{s{R!ZFA>sv3oVVN((aQ_$~@@##N$(!(>q4zv7KB}A8+rQ0-!Q{^E8qR$z z&Y+FY&|OMcKPj1!-w8OB92WP-Y~JaiAv@qFG&}o2PA&l~Del4?BERTg4tXt+@hu6l z-GGv3tez+TY5bU+`0{}#J&u_Nz_udopL{_yak$x_YGnQ{YdUF*@85AoP^HG!%GOPB zyL@G21j=UEbY9d-rpurqehRvHvcL0dY2xnWEIR3Cw@eIG6jqf1dyuwgk;ItQy5*V5 z8Tx~MMbX4I$~SQ&(Zv65iWO#i^I^IOpAavGD_8dIwZLfYP~(bm$Xf**e`@i#MbicS zxydX%5;ByPuOQWl`1eF7;dq(*xZ?q`KHXRNN9HJge%;cj=x_K5TWRTF{zNWS>Y_9E zI;f?6Tr|T@A~^6Y%jV5aQc}{G^XI?()hzD@J;Ui{My3pVY69HA`V2(1AC#U4(OY?UETJvU%EH!D zeFM6(s5)pLA^htGEmXlm(ezAn*xLDuu&0#7w3ftFbLqyfpfyJ$5l>j{OzqV)CPI=c zw87_o@;Y-#<$Ou?zx3kY3mr#|3&qoszc8P5c^Wj-%;J7up?Qe`EJ7I>FUtX(Y@}4K zufAik^g6vXVgYU%4i2r7wnm(+OtV5&LPV3(5}#)2o9L?OTR{z;4N|!GyNG=pB(zvz znhtqiNg$LxNP2B63oJw~FZPFwCX-Aidrd-1KT3MJTXjWL3%U}He%rvgj&Y!v()Wn& z_2TSVv~1P9;x>0T_~@ku^n0Q?qYY9JHYh`Ip&I|Q2$pygldPwdQX*&ap}U%_AR~ro znw&7q#j2ffDR2adhN$ z{lrl*wBWbkIj-bl^h2&$AIo?2r;e#dv^amAmk(w8B6&yX)aIIQD*C%pfm-iY%`dkf)T`> zcR_ipuF@v{zD_v_l1EXiJ=hr_gP6rXs;yD(UQrFI7JGxx3#RI6?n3i<;Yw14ZSpul zAggu(`6{1UyjFijpeAZ!sLP5e+*u&LnxY}p@0c#ip+=7w7AWbWhC<@W8&2o8E^<6& zX5J?WiB&10?h<$2w~W@4Nk$f8D#|>zT|?UxD$%M>zIm$?;x(3+ddgd2sj^tyVL>6e}j+Q;s$dgt@ibr)WAcWZ%Fw= zN?$@Mk^l8}*VVljnGq>4fPy1fQx-)GxeH>9(mD6j5#Wfu8n+SwX~JIxs$=>qI?rk^ z6{HD^QIq8X!cBZF^7Up{=OZ(6 zUmW6&DhBYvIh|T4tdpV}8xmEMmz}#`#Qyu>=~21Xm}@dQ-F9_~cB;z35cXF&dZ|ig zIsDDv=qzn5?Fkz9gEQEaKlp?tnGb*&tyF zmm9X5BIk)$)Y5NdpZhe)WtWavy{=&f>S@NM<@4>8D259w0yQls!P^2NReh5*9xTlv z&8qmoxb$Q&N0S_?#?4(m6-jq zr)Uda+7w?h>%a_R?6A0s3(F2T_CHx;yI_ksOvzeL8U?NYK1Oq36c^QQWp_dQkC+d#r;`UxOYeVRk3}y+~pB-gZ*~FVf+^sS3XpI`tu@+?OMQC9kmAnv_o0RHO7Q+u*;I0g@y9 zUIBX%)^$>P`mB`Nf5h6KAIS&fkHhta;p;(8Jy&Mp-Yy@#_vkUEpmY0ngD&w+3!|&> z7%+O1r?@lK`9V@0wk;_jIrgJ<>sWv-st^Q{3J*}J>CU3{eaZ?`q-pKdjg~ykQcBkp z27y4~UjJ&kBS+HV&fRAlT`!hI&Z1bqX?S~czQo(={d4dfR^@#x)38Ef|Me;-9rGq> z)oL#PHYoj2=@o;A6?J6nC)y;UB<|MBDEh}5g@%ra)Nf!`ske@gUG3Ftua|E8n3+I) zSucI|!N-)qV@Y*UUs0dXa{h6V<*6!6BBTZ7E9kITy z6Z#F=xv;3-e%(%~b8*G6MT!1Nd-|r9_H?zXTu-8Nnvy<^=8!P7;a_g}2L5ms*ktCu#p+a-H(!;7S$Ylz}S)Qifw3Eun4!z3X^DO0|aOFvGAmqu{6 zVXK8@gX6FtGa41}{Xf~y@QrLxsFS&=iJ*G_i=KTir;@W--+Su0ZSdX6zm?WvpF+Q> zy$feV8S1*{1kdcRz)BWUj{mUY#-5z~cs#q+%WI!D zP6(0gJ4quoozS{mgSv56l=>W_B7P9(n%i@4w}dCafU%#z`*D7WVY`m@2V|+<92XW# zA*6|IOio%4e%{g^az#j=Yy$fmV3tjnHR81^bj=6{?;X4qNqGKD)((Y~%VA8%c#qlg zMXxYh$b#=o90n!iR|T`4uHDxa4jB}hB$M*-pZfsQoJt}{^O`T>mS*=+`g|4ukDWmu z{PX#IO#pC6y}0TTXCRPn9lB`npAdf=uvy^cl;*l}ce?{S%Db%*k~t=Df>&1EoXy$yob{0&Dbt_jM zPH$(>MwLXq3#SW-JqNtBG1&mF+t_2x3%qKIgF-aC1a{oGeSA5wg1VH0b!0KcW?~Ma ztp*ezz<_`3%9Ga5ECqF95fMb`9| zk=u~8uRFeJ)&enlj_|XM8d>)MnDg%a?efX5-G{ZI5ocfbqrIygiV9D-lzz+RR)xmQ z;h$tr$6L1ncX5V{`!$N47qL>%a3#O{Q+NZzePr>7QgUV4vVDuCZkOWHUcVnnl2D_w zA?ok8LD&xLj`B9@mw)z}jnr-L8EF1jVR7uklB3BGbsq!IL7J|SvF1ZZAjEy=q~r!F zm99H8`+4a&viNDtIZx}gV{Fjwp{_^^`o4z&9k4Z=pjU5tf0LQ6;s}RtL{E7!T<>R@ zu<3}}E|1(4-E=WcVFB(pmh1t{Hgfl2aPi;w!E4Q_7^(CFI*@N|q|N0_;o%P2tYvp! zoK{v3rJe5E;|_jN`48dym|=|du!IQecHo%pKPu`t9l22D*3917BZMJ8kI^HqHGLS# zrjTY>t@+!;qA|O&Nbc)>g|+sh;b|3oyCrYv7YDEjhNAzeJ={hkjp zY^QO4mc)toe#U6RYgzno+mS(v^yn`)V!wVc;LmVA+zq~Uu2COwKip5dA}zXqHD=Yo z0{6a4cOPjnnwUMmAgD4q@1K90{m)j~Ze?*YtKRdWIC5!P1Q0)eSyl|d%p zYU9A(xpiCb$aHyluL1Sdxzg9k$ajvucpnmR_|onqHUK<*3U6`0IM`qIGFiMt0>7ts z%yEh|Z;96fxY|55!n}xHWcUys;?cQ~5grB-9x8`j;)MO=c!6OK^Qw48czERG_M6?) zyUNwO%FEmNvva!0pQhwUlNQ*6vXSuxNO<99#fF7s0{S?H*ha&;$Kdmd^W$*6P86|vBvqVh0|6nl;P3^ACRRb zXK`1m=bvA->?;@I_80ns;D|0tF_nDlQ$np)J;j#2U1>OPm~z3%k-~Sz?Dm#N|4(Bh z1y3z`X8s>^+QoQ>vr~uG>-3dVsVkwaPbO8%FyZ}3c*c-PNBzold2XzK`-TY?*fvCw zfm}=JRF-hw+sBpkK{G&ME~y{6Zf0xgQJqbBUuIBZyu3&I)LA|t(A1RiyxOhmZ^?5& zRc~JRx1YfgITEdc?-<)SJ2PI ze9cCd%o)WFx#kB><(Yd9jcfY{^05wUk|yb8(`u4WayUoy$EfhEs!&dCzwpwbP8txH zasxZ6e=@XiXtgwum(h3s6o@(L%-JG{zGnA5=a*CE&ZmPw zZtgCco#TJ^G|_)^1cUNgmB&a(GNC z*U%@TRoP^9f6Dl~Gsj@fXEMW6a#)lWF-?QSJ2Oi9J*1#rZk2L&{0dp72|3+UAQHdU z_<%Nb@1I_|@m?X9YCjQABs6?TSYO+SfIRdapz5X^9AMfO`F7*08;l=8@NZzE41X$B zYVU6+V@vRbN}#7yfa-N(B0GSbb*tk)DaJ6n)4PwMEKMY~KsRtrAH z@tjaG{?Au(R0~{;jG=F>GP}#(lu9wZpJ@2BOP*=Z7cEk%o(T z8eh9k1z`kK@DD$9UX0``MLkVWbU#H-2$8@JwaR_^cr;91+1|zkoq>f@ zxmje5WCtfZa-M5MP?Y*%BpvrFh2r$>O~F)=Z=coMd`lxYQcfXL5R$q&Aky%uvOg+eAP$DyvX?Sd*($0t zm-YW5T+3C-+m(`Q^e21Qwimze3=n%c90RH3#^Wg0-Q9BSrpx{vlDKQ*lkrweEmQl& z*h~Rp>ZCF5>Z81mi+W{)i16op_BqH@2v3ybY3aMOV_fKw_LUA77f(fGAA*l+fVRbG z%ibce?_`t1(K{CobuZBK&ynaUYs@d;tz*g`{UyP_f-YgHnbuESA&WOlqb3E$Z`<1A z;Pg31+pC{)3L2NpkWl`n^)s}+P2NZGWrLm2F>|w>@ybdiD~4zqTC@Lk zfTT{o&Bjw!-bJyxRdlu!a8AH(l$A~XmWcZguORumNC-h%<6j9+=ImU8Plj3l(o-vN z0DROC4`M{d>J|;q$*-Qj;0=?jtGSk>CY*<~-{k90KozJE>k1(~{IR zisrMRkwVquWp2kOmK8-Po<{)6CzCO!x`mgW{cW=#f3Bodo&qtcaavMb{7PH;plIQb zZm`;UME~8_m@aTc@FI!=XrkilD5Gd^9pHh`b3tNil8Vym_QoUjW^Wcz!b^FtmfGX& zq~3}b*;RYVTcwLh`i-skZnd3{MGk>0s$oe1uDWiPhQ>Aq{)I3fsH=80BadXWM2~cC zGk5*F`4XbXXsQbWU@sF;KuxOIK|aSUz*WZe14yleqp<>6u3LHrgm%Qg-7Ei5Bv+vX zN^*Ls2^bNf=y{QFi-?;fz=OsMh$TGUm7|#|RAEXERlXeK!Q)i`7n0d>gWjP~5h{tu zfJAPey_`So<5zE_P$l(Z=&=Nfgr>$;_SrI?(r!+vvO@Lc@0v+(h?EDR-**5y%)Y64 z6x=6oRnZ-EEfVj=Q1T21D-K_MmF=RBIdN2-`4o0+C~iaL3cQhhrz(l2ctMc~FJI49 zpis&)=KQ(<+*$?O$#>%@Bj`CObg^jhKP&7Sd>@!~j@Fbh;-zl#rnjF#BtL5NHF26C z$i+kfCp(>vfnl>uB+PopV4NiA>wU5fwmfqfmvB-r05PH-t}CbrxIAUoO;AYGx$2X> zn;^iI9o3evMwvKsRR|i?a7+jWUawXEv*>=q!n&Cy9soXu%~Na)mFIYBonVtTSOrv`P^CBrv%-Q3;2=WAkR zr=aPR&r?=6p9ay=@$M-TB4C-TP#VBjQ}fLp{ODOd4mAkYgV+T(H=B|tBrO>)nNHLg zZ_%2WX_M>F6K|wvWBnVUdA+$c_5ANb&d-!*QRG5WQ=#%nXCLy1pQ<9e8#-pF02+M+ zhN#&EopKJdjMc<+9MD?kzuH9+m_6i|M&2~QEPZZV#{z#wPBA1{keZ|glE>KBo419< zm^xoBb~sux58nGSJIcQ@uj&u>(ToR?JDfNZIYgd~?{4{EHN7liRnd%*KBP@3gHCtq z-h!~K`&wF5EIxgT)Z3z>9slTGqfE-BhB!%BmtgQQxB8jO&dJDCgcL=MlaNs-9kz`A zK}yW)4T$Ky@aB#=-j3v7$6p3pH0SIkeGTb8D)@Po)BKY+GWY$*gDrB9`2}dJxY+tn z1c%Cc%fdNirKCNlPFL2V^AWwD+Wit2be7s~F&EQ!<{Wd;QAt{8-yg z)zmcP8iDHrI>`H)bC%K@_r}p(%Tv`)J}EYtuY^^w>}^Zy+g@}`9 zZrWj@^lNoV=_y*dSQQd=^(&7dP9pW#+>iHrSk;_2^~t1>$Q#(mDFP9$_S(t?%4PVy zg!=T$C1493 z)i5!)!a4k0ST4*ap$i*2xg2>yFi=;7Et_GXRfd=@`za|2)iMZW&wpFTIxWK5L8t#u z?|_o3B4Q@2hq>(WBDB7NvWfX1*jLJ#?mx76$Z2`-vi$?dqHiFdmc}Z{S17C=>Ep+a z3kjNJjAVkQO`2L%Lk^W0s$x>=-+`2^JuUMKH4XmEWauF-oYV=!%%|*A1J;&t;}LvS z{Nt}OZKl6)C6KLV(mN4Eg18XMyhh4H5Hv?s6n3J<7h(Cz*#CTZ^9vhiX>`aKNUf^t zLa_mWFl-Xt*M{G-3UN*7&4=7(jKeW#sRPK#S3Qhm>%P|V+Od$PTrHmmEemD2VOfT*8N z3;_(6MnxdK_a`i;+z#cDyVa=!8>B;NpFKZ0Sml3i(*99X(vBm0!uInCZT=S$Orc%8H@I9J`B1y)mHI?{hIsrKuuI{)z|%Jg1TnW8oCaerXDG|vpRdERh2&lZz;BQ z$!;1pU$8wV-!^#KQcJO|c(oOZz4_b+q{}JGPfIFLo~x1wIpd6Qn&F9!(WVTurcoh*;BUPKk)MQu3j+-x42NHThK_d$RWk-$+oVBG=SDkC&AciH)ZP4{okQoI zr)-qW4)-fANlSm)$0T1LTP}z;Xls*}pR?mDDT+4YRKW7lJKSuo_}8_&*K4B&)P0Fl zY_Jv`*m?{rXm?mEyH|PUhCk)_@|gG<0V&h1yqxZ)V1AC2<2k!D-8OrbK4ue&a7^l< z4sx5Ixb4QaPM*ZlU#M{-KsK|=8>b30Gx4w#=1tCw{#Z>fA;jrDQF}bZ5ZHXqjZ`RA zg#|%eA%UX5QK}$P+6fZykzQ!9&ei0Jlqh1GZZ(E_fCg1DgeO~OHK2?-G0Fp0&;UYM zim};vsh=o?uer(~unQLppgP4p^^(|t}=!Hx?wBxNf9=MxvF|`;8KyK+hAY$ zEiAu6h(Nh%Zs=#{GOrJ5d^w{t8I8S~$U*%&UKM+;h9Y6bGSV7<6z-W?K!1VG;noulf0+a2h+9>V5~&=#izS*g2UM9K{AQelp4>tn0q+ z)^ErAN(L(_WR-YRF>Cn4#Mss@y0TpR)m+~Dz7>*82W}-iK)91#OiUT~fN4@9nXzq& zu2(P{=YFz?;wdOlg)+T5o;gHE4iTjm;o@mxRXe_*L7GXW^U8esR=D)8e}hJVCeU4| zRC}G0MG&B&t~s6NpESkAqg*bu$;^^yH!moIoMVr;YM##M62(i;R|(p9#-AP!L>WO~ z?UC-5ppbcNlg;rE1ed&`v9W>SC%d9WPNZg~F;&w$L`Q?_Odiq9K)yK2v(V91rZ4j8 zJt~MqtpfCL9=^=J)<&Qp5BsJ?oxc2IJDtizv%^p1I!UJRU0Gsk-)l942tldJas5Rq zy44m5d+Ka`@{E-<`Xt?@JyK#y>zHpBeI-OCxG%$%IJk*E;SUSgCS5U?xfzizOsbq3 z?oEPBBj?BW_x$I#x?ajW@eFT`Xk46qmk4fx%f#11s;Bgp%vE*BDTESAaZ&dwLF-fV z=JHnZ9^dAx#DoEY0rt&{Y@)WgZ%d@A7zIQTRz7Z8apP$A*+t8<*a7Y@%TyFAke4TV za!3{~Zr!6cuxN8v6Ee^=w_5(Dy{4Jn(@O^<1B-m}5f*C;Ar-t+GNWFvu-&lW?V*DUIms=?1 z?fDj}nZ?=Sqm_3Ek8I*0$W-5$fvkqt-2T4C#gq1;B(GO~j-$%P-NZt*nH|L|%_27V ziYkTbyTLwijI6@mY49X=a1cl59qw0%)mEVAQ0uiJK^+eG;KXjD9lTqyz*F!#`5UJms$mY~bZhPElU3N7g zL{wrJ@KMK$ad}*^)gL-F{5(Bs-9FEYyAK*~bO%Vs5piulrgnKIWF<? zU#SgQn(FD}XyX&qp!eD6b0vp#AHc!&gSSFCYX_CVLbHA$ZpmQp1?M;APnYU^o!~zt z%0Zm>D4@w}P7PLxtejBxpC!0)p zjV(WYt!qc2*p)IhA18Nh8Q)jzY5(C7Qd=}TNK9xc5oYBb-`pUdAbE4CKGvmJO2V(h z-G9};NapM;ukG&PB70Udf8zj7sp7Y@2rLq-5Ct(stz`siV6+ zwW8^tKYybD!mXLuT*R?hk9>Vf>*Vt72eFFqWoO!&3JTn=6IzG7iQ~E zCwjKBl4{Be-&}&3*mFM%$y>9b*Mf^#xi}r61lnp&{hx74wevsOWLw%4%S{VU zT~80AJJq9-nk5+Afo`dyR(7eDJ(C`KQBG{1ms9r7?&h*V*E~V5LYq;({mRgClRBh2 zqjAKBOO*A8Jp!+@T%eNV>WB1OuJ@lE=>@Bi_^hV!4rQLAG(yxJsfiFbH3nEay13K$ z8ro=iPtCr0x+<_04A_?hEtw>zw`!~jjxT%v#=vS*c@>HtuAn}_*Uaoz85$JxU3MnL z93|~1`WwDh&>r!TENGMKghAmct>{Wh2S3K!IucTwH2Pv30PiDa`Luxmt5;{0jvwA8*^pn8aFK)kkA` zZO8DFh{oC9tufhBkiXR*=zQquXAMB3VqHKMdKHgkCON(zr)oW+M%MG@n^CVD6VY$MtYz zmyN!zoI~nZ2<(WTU_UbTo;}Ri1EK#3EeeUwl=Hz@<1}M-T5?Zrqd7ga_0~}Jh#VEM zIev#JeL~cxe1eb^Ru&^Iih+qEspubL>D(r){QDM~pSZFnOO%f~%3lV6*w7@#X~kqH zYYX%)be63J>U~LOSyme@F!Q!|`-)p>&SGe#+=;mM^pWrE<_qQGKK*6`eVg@eWFtCD z%9~rgwUOrJ#!cR(5Iqs*_C< zZjb!?^#!??) zEd@^Yh|yN>B4SNfxi|Ex=1q0()b>6J^*i&I&T@{4zrG3le+z#s! zCKuQ)?K-q%m4{ELP>GbFYx`{CNw?jk40>;Y zTw7Czo24CMuI}X4Gr&`n+-O_;;T^5-P{AbIljqF}0kw zME&nRn{!H@YNCcV_{TIr)N%iqAJG`9JrAbQOHGW6nnac&_oc8As#d0bNR03tZuubi z35*|?6VqJ#L918SUfOa}mj|^3HK2mgv1v4PnV#Zg>~(GW_-dv5LC_YJoqjEMbH=!u z3K1vLIxk$CVuM-rQWm^uYxF#^Jv$GTOO@b6$k)m=gDz`ZjtZe_Mtt0Y?}HyzU9)ti zk@&xT4ZV3+%T}qs&GKjYi=Rs?C|ivaeHDJ^lUuD~71&8%!dv~-FTsm09nEo$cR3D& ztRwiGIc%kJAqaypIa(;4f{5e_@Raawg&?&$GYXg6ce?N14kD!|BFh(szamr(G)b#Q z-2Q?a%nV~yANin`JSKRF?&o5iW*Z||;#S%FRjn<~J|K)X{WSp<_>==p5AmT`1K0hV z5y|p9Fh5l@2xU{3P64G>^|dG8*ZSV0I;J3J4hu3TyO#mNs*}d}#fDBFKKWr-?0)># z)_C>)ccS4BP7>>K}rY@!dJ#q?jA@*nm(S{G%^YRa4 zvd)J+R?^m&uj4v`UzzrZ*4uq_$7qiJDD~Ve*@UDLCm8A-G>W)qL1i{hbKjb<_OYOr zNk1&#OGrz3#>+QX!mpq19qU6@8$z^L`!sYG$C0`b+wBFy*kifKEg5>D9uFcAprJC7> zXia){#QrCt)uy@vh~XZ4EGVYV8Q}e~g{-FeqT78_Gx@XOA|oI7qk~=*!nJ+K;1lb( zEjfze_EB-@+x=c9RrDhk+rt@UT{gi`H#yFqzZfH%cIKj|dXqm>=?rqZfMSp=3*BZk zShxJVg_uFR+LHP2BJ64tLVpRB?Dd+E%{Y#RzB{z0!&{jCIk3z8;}!o=gw9to5xwF@ zpDycGf;yUmVgBEm$w3&^CJuupZ;*wU^DmQ;8J5$+2yM!E)fY0qi=~);_BC_x8^Bna4$GSi7sII`avs2Ygq8S-#bn0s6v|u@!Kxb5o;Qn;i8NaZHAQAhpa12 zF8T7ATzU0x0*`arKWEqUW{SR9S$7WPgmZl@X8a;w#b*7Hbqw4ubdsWM?@b&ragv_R zn}>o1h>n;YKnqvqd~W-K)6bHi@(`1qUaVt9Dc1^`tIx>Fz?vFNCMu%ijc#o%q*`n) zAu!;zML|Zt=`N>sJ*^N#+F^|xCRD>C={UQWmU~Nsg_EPH#5y@_e*3Ca0lLTaLh-{k6 z!<_Q82~3k9Qn?b_LXB5GPnFx@4hMbIL@srt57S*_fHm2*mn!7G)A1sp-z z+Q{;^gI6*$tzBPK%$krTDTv^yLKC&oFG+;$@hjg}SB zkn$%erV{NsBXo(6wA92**dnjK8?IBrRe|k}C$P*!T;2Lo4XxR)>>2Xr@i=VO+M=Uzpn|b3le<)%5B}BsRak>5L_2+I=dy z`_d*Yh;u0Y%&9Awm)4A{zB{fuk@TI@+$A)IuD!D)cqND~6_01K3`1V_+|`5_UU0s& zpf!U^l31&*#L^_?gm^8uf8wq!A8*CAf*fI*9V2*7qpd=xhbXW>ZBtmwxQN+i<> zB*ukep%Mrb{*)W!^ubOr9M<&zJ!c+y|3QeCmXejJPW994ln8#yEUix zbQ$Z0)8JE+f@a{MpF7D2PGAvL17(d_w~kvF@AoDmR%;(EodP#zKU=qsg;y!urluRT z?W&yS<&hFqxy^ReW%(;RN12sr3nEm^I)-`rznSO{`lqups4wMkl-@|PL)Z-ZlO7UXQ ze1FXJrqqWYn2uJzY^@#2SHGesVT|x7L1%kz!%Ctqx*QXR;z!)DE7+l~dAlDeSTJQT zhvp(2F-#J+`f>hB=fpSLyeVKt8_(QLMiccntcWTtf6<1AN}QE3CO6p7uWH7l+* zjyp+^O;m`9$biOZB@^FzKT!j>7A=dhW2b2*-HtKh{8VEa9`7voeo9`Xx}6EORKEG~ zbe|sWmdi6Ts$C*$vc1%--Av$!xYUhY-#ZccBRV$k-?Cn8qkA!eYv&&@Y-)GNK39rV zW)ZEL3SbACT9I4zrgMmuHCoVwS2ZU#6W$_fy0sCfp!+%0+&!%&s)D5 zC;?X44ILCKuEV!jlbecoVklfRx92TjZbQp`zqoM3+Tfj$X@&O|ry8$;&bwEmFUr+V zysW`l+F?-(cX9 z1IK`aUwaX=d5J<~a^d>|c=&AkIv&M>5m_3ja>QsS{ zrhyJ6EUl=L<*M;qN;SA#yhU8cN@A=pyx;0dWFXeue%arNzqQ?Bq(=={Pvsim@^4X# z$F!EzYjYF(%V+V38K7K;6<*adjDh=;%CT+b>E>L5^g!kjPXFkmW zRGvGKE*70R0YM|4R069_R`BH$sdFM$Ye0WcnKXbT8nfxi!aU1^GS1cp=X-u41UgY$ zY^BfNk|@qIlvRwq$seW(g}0D0k8iS#B}_3UZmieQeebEF63b$PHTN{e7=QOlYIV0rw5l=TyL1 zw@k{0RP2S!tm{&}@vK2+sg{Nhd)-VK`>}m0T%hr*M#r6yoUf@v-n+j1D&Bvhow1n^ zw&2Z`+G!M0oWg1D4Y!MB-hcd(*&{sqNpsC}ny3MuN6F$Nf8TN-({v5Ig10$xSlPns zgS?^FOZE$|f2vKr?$GE*4f3zY{iI4szriF$Km2A;vD@(-n=+L>n{qvkUhc?~O0E&y zE9F4ASAxdYW@TG7mLah8M#qA08~9!PSGxP(uQ1vaa12{PZpF%`Z> zeEL=vRS4=65a>3sw%N*!K9cI*_aaX1Ef=Djd{>;K)gtD+FG`j$kqO) zX~fgk$r=~2fW6T8OP;r-L*z)XwM!yxbi+`K3g_c@bc6o*XgIY-GDNGD0326IX<9-H zcsY(rf*(c#d9(XobV4-spiEk5=MIR;IM%($$PBsap`MeAHT_ zEBhdSbP$D=;=}pGr~00BsNCqKmAaX=MJjrk4$joh8sG#wLS-|tw8prJU*ud?ko^l2MP0ZM$A`Z-(6Jd4x?cAYbPBOU+842W*gG6+pJN(##3qTXk_)9?!~$l^jp4DP%p&ktz_(opjA1{Afz- z&c!DipsZwFb^NNuzy1D#_Ew~ zqJkMs^i@q+F9on#&PT0v)dp@Ep4dEg60wV0BqH%~xTGVc*lGij-(A6%Ypxi6x)pR; z47_ylH=uKb}IUIwxQlH$Eeun+KH)+`kK@A<73yog z6L{Nx(GPWLSf%$SZPGvw^c;bkcU1h5?|I{Wa_*;J+IKOBR}i$!l39d)0`Zc zXmlVEzQ2qwL`ZL66gJs+r7|Q5Ll2LSl77g#JUw?CfL6O~gRk3DomlPwN#}!fJ8#=2 z9O1KkFZXC^81D>Wik*BJ7|dD5KGe_6IS`g-zGq(nz_sD#{=QVpg(c3uSHP8PEiU$ZIg5hHc4s}>eYeZH*PoR< z9X>fm<0?USaVZZRMt_3tXgnr``htjW?vv}yFP zqY-OJ=cVapvt?Z?2qILPG=G&ap2-EEpi$hfly+RdEP%MI7w?~L7B-n>>xtcOk`mB0 zkN}Cd!0MaGCk^-R%c~OTWX{lE2^h`S>&L|)M;I_YmJj!!F|(5Qrz2C>&04}v0DPr$ z{bHA@XO^sI)pfR|4rteA?TK*j4Z}x{mSpdAn!*p2A@yJRI9KpXV zIxowU+m6%vZ5Z`ugp~7BX5D_+tpOXh!jYd~)&g~lWgu*OSX>!vaH^`6Ti1bs*x;9i zFnsDw6+=GDDlsGOFM`)AvUKgvwC&$nmhELxP1!P&$d;;d!o4y{cB{7*A6Fd29H(H- zz%J1)2)Hl=LQi`lMr#aXM1AISm;|;6_+K7?+YMVrxb8#4{j=AXL;z+0A73w1_8m9u zZy%}qj`te^8|afGq#f%XSIG$Op7}5rnH=QnwqEW9f-ZhoE|r?gqS#1}K1#~86Z?=( z<@3DJX>MDHbv46?k22e#K)`0ZYSs^B-vgL}7jr(K-ACnjd_bh{aCD1|%|Z9NKo9|X z!hU;LhHj^xukVvV!}%Vs$U&&~#g7}J)!9aT@r`CK%Y z@cW>=%iF%}jp1)Vyo#92z7$6wc|zILE;8n^YLbGv2oWR62>yj1{Qb~HJ!Pi&9sa8B z@LG^1aUI(##pug{l*on|nn$>8V{^yp-Cl;jl&g5p|A@etMC=-itHrb1SA8E>a(9U_ zFbVLly4H5QAee?=ndhl`072WNt>-lnc!(U>(?>ZmWT#rZ!96H&% zUeSI26wikVY+Hstth?YXPq>gaJE`D7=yOt}V2WvYp8_8_9b2FZ`;?34{!er-XA~JO zi&8!V+x%{nszKM)(B<2G5nsy=rE^odZ>>mr{wuvtl=lFb^iWon_?*f=AyCanD~no83gQ-u)2UdTPh zoXW-RcX%*}{qymoY>2){UAf%BGT97Qs2fU`CzTMuSx-ql#L8?2mRf4Z zftt~Szds+2KNO$P_8XFJuI_V#M@6b0N0XB5Y1=O$m>6^WyVzBw5&MUl~@b&OS{zV z9<-i06_aA%L&unF$NK#P!$tGcjVr%Q_*wCBfq3yGxLni<-kWD{s|6=7O zprTJAW_*izas3Z`7;%t&oW;C9*#0Gt3Pi||&2>+!>!mK{-sXIWE=3)D$0}bT=+1@e zWPrN8Dg@{Oq^#W5*V^N1r>{$0=U_#;9d@|+qsI9ypRdHRr^#SOzq@j~AE{l^(< zNd-n+1vuw+386wgVlRLal92U~C#4J9F2-5dL?7638s`bfI6)C&z83g!lSzLQbwPjw zmiX5gpfL?&{RKk+?&(rN)&<95+KiC(#61AzLHNUs?q5^(!W)XsRP9`-qa=j>foC26 z5O!zmpDy(g)?D;hQZp`umE*6QVVI_r^ZkNs6^LViY;v)%pZ9o^B||Fo{V5x;U$gG# zV1rGkj$A7mgI5JGB03Wq0^QqV`#)y&otD>v>!4T~!PwWix*SkC;usdX#EyL;mFexH$ zV9Hd`q8EA=`Sbh_;+{8AAynY6L5ABureS^5mzZOE68~07h6*B<7y&?qmQ#b-5g{){ zD)|4x6cfaOvHh))*bBL}pTO-jFPH$Nf1MBgb#D1mBZ`-d`2J>;6LACkL_spX;NS~yfYtE-ApK)xKElFf zwkT3sgC5QhV9QEUPXMO>Uo}hqI#2!j1n{PTb}EbYd(b~j`P0q9xV}H!%N>aI!rr7T ze*~;fDIO4Prs9C7Xdarygm7S@|I6rw_0~_|=YKQ$ublgTLH}VrNB$bX@S^sA+_Qgr z0yw9^BpD$x4+3KU&<^C!GYm15yKwPGg#h_KK#kIw|KsRuAuJVVTPX;3gaY$=brcS5 zG0gr?Aye=;PXNXV80r6#s(wLrOM|r{z~-_2*--w;zxr>iddeSR)v?k4ubO}_)o<*7 zNZkMm_KLlg_=l(CzdUi%w zRDK3ANXAE!jNn;RVw!%p-lX>#ZQ=qkyt~S{?~cyFOs_B0I2_)n2Uti3#oVi zkqXn3gE{?CTN^ndGm{z5A|C+zc~ zSnqlCzga#1mlcqUE)RD9e*{4B=?V7!uK>(1`OI}+LhbussHxMi@c*OfI4TI>$6rlP z{j2GrzqN8vH#cw};U*B~!|5yS<|I2+W5$6f!O9O=w*e;UqXt=Eb3+A`wG-ucR zs@)f*>voY}+fkwqS|`>S$)>!L)<$57bvDyA`W-(>R?ip-ueO=s{hpD;fRiZE4#ip> zEe4LpO&6-nMKU-}b4pgvL8qvzu+?z(1~rm(oES8HzUtC&zuJDUmym9=SM!t&JQs>P z|LL;mBaw;tgM{p&ar+~5i1yep2)GgWauQbo5PXU8h<;Uu0Aw43wG2Jw^n+C#T)P() zQ66*RD`1~LL&+cT8W>;fzW=qO>S52h(1LLT{)J142guh!%^!U>;ta!I;C#y^p+Ox? zJrqF2M8KFSq+kMWGzQ~gMd%~+Ty_D70O*0IKuZ&Q8Uy~O1V|VpZ%9fc!i30=DeUo; z|MiRZnDe9JWmyVB?vl8c0X!y=T@mc4qjph_!3u}K?c~=otuwC;eKdz*`Xk_WgG3;* z|6BXf19q50I2h4OJ;*R=BX#}u7l6+Q%D^YMVT=9|ik|r75ljQX1PiYGm@)Lv`!B+3 z`HL}h@@ts%IK{3svhV4Sco^dd7^w1sDEh@1dcY1S`_C|(@iVk!=Yh+rKHysceAiue zyqLeC(_>~L(f=3az2FY}a5;{zWD3lO{DC4S1C~AEbijXm#h15c-G7R;KlnREIBtEh ztv?+&A~LyS?e%jdg<(9u!*_)Q7Vw^r=3xcj1FVhd3vZuj$pOQ7Aenk0z49=6UhvYw~gp?!7UIMp^J z?njPgrfA1heF;1+%{!+X#msiQpNE1Jcm3qMuz>`%Wc?`!cy!{3)tCbp?fvVnCJrtz zpFF?w_91D%NwhjllHdKj$LpOt3c)Z3mOTMv z{BnKX3l`eI^gw;|D6QI7PT5_j9jcxMtBB6;im>0KU%~5_aU*Sr{@F7hppHdaVerQz zCfkyIVts5`7m5v|!5CnV+vb?uB>HiFSDyW>svb{qS5Dy_^J>Tmlw%>hC5K;7!y9lF za4$?mu%r5V{AEATd4*gCYIkrjv>OM~5(G!2h;`Ofdw2yFOJgs5WdO6$Ez-i)h z95R&U9~F!4#E4N3ms8$9ax?d^hwnVp!2j17sv%&!`CGlWLNqTusX1L74ZV{4+ZhQP zsdxg=2gUyc&&skx;XXvM&N#9TPa*eDONI;mCt`-rSD0g$$A9&Xk9`%_vb{+AfKL99 ztjhtoNsV(IHjLM#eR)UoC?h-w)A$ci0q;tab{kOsPp8rS6QjXtJn((B+(jl1xQ=P4 z`n31Ir6vC(RK)|l!uHS7^5ig10og71+v8oji2$`&F*lOExNm)V+jEO1DZ)hcUCn+0 zx@+Vu<_$A5Q=i6#&i#UXdFcck*Y>iT$&v;?YhgTYrEo7XUW$?GBb73?A2ZZ-^yMx<)b^{lcfEVJXop- zJ56fXtvR_#$x+GB?B(1c29}C3GxxPN^!+ko&hxxuUIqMF)l9Y`L1a?l(F%~4rfO&K zu#nMZRY`~3Tyb;g)!nkEW(FY_2D$l}#|7_<=V^z6-5SV~PI_XnJ!98+Ki%7ngx&Fo ztl|2LNZ%lHns@lAuxfQ+$EX;kcdKy>5~{_I#?(j&ycT z|FkzZm=eSk$(R%R6nhkFHwPGR+jBZ&Ms>jbwq5f4a;}xh=hyxy*hDvLtyr?$Ui^Ng zxS1o9=8Dch${>BW;W+|L)1&dQ;Zd<66{;EvZ|3Y^&Uk(oh6bq_=30m9TL0Q29Z!d@ zf8A8lV83GHEwRBl7N@vkhyq^!^5iV39ebmv8Z)00;3jltRGpmJiE{=--WBAN^(THq zJe4hUck;!Ojr*DP*4j$AW_YX@1}mY$p*aXPT1chD7W?!~BEl?Kkm#mw!>oEub?!sI zQa6C;$Q*AtC1_e-Iai1v=&YhFllSF>b-G}0rj1~6#lZAq)Q$*y=2#iDZs{ZgL~nHL zgNe{QJ`zW1w??ZKGO2b(I7vS22OZF)v}up?LA)o{mH^(?vaG5#!gXn-#F8Lc*o__n z94(?vH8y|DsS{|ehwD1~#vDhx;&YJ-;aH3~-yw1lk==va&tNfh$pSIBIJDauh)eCc zC+Lr5b;6@z7{U53p9?DIsiHwI)5FAebg>{^j94iR_T^016zrNZER(SN;qKu>Gc5Y? z!?s`GfRMQRt2+Z~6NcMda)u`^76bG5aQdh6WN|UPMeF2-+Yxw%ds6sHyHfb;=LRM> zAa+h~NE}foggzR7yU??c?^Wmh;H?&Ch9)P*Y>Z1`$Tc;AnTr`eTpw*m-&PCeHkfeo zj?afALs6QF;~V!I>fdP5xloj&I5Xr-I*K7@gdy9)nqkNIJdQUB63UsI(!(eRP!r9; zRAgC3QRThF_>REtU_KoFh}PmQ{|KdUCvt>5fAYZQ8rsJW9P2s(luQ-&MAh-19~3Zv0vN?MdKyZ`Ml|lH>r&usn7XL>VAM=!&)XjlWIE z8ob?`rZiO{WF9c82oQ7r6Kfux864wZ&|G!+-3%+SmGDM!kfed0@$QGb!(grmpT3sm zh`hEah|T;_WY{{Zy1re1foMS1%rrjR0RC{+Ms{CAB7-G-VEAE)TkolB3nxd^EUp?_ zjAtk^w52^<`yjgEnspCj*L%t_sc9q4?-=NEbfD)5g6L3~__5FKT%rj3b0ghvgMZhl zP=B?ok6vsyiG0e$$ZXUBrgg)NRKwCK66l;MDl3VKrxs>US`qxC?Wq?DtSJ>cJ7bM_ z0?}(v_nvq&j@2}~)7U=>;tZ$o}I7%E6QMn9Gygk;JG8`0u zsyAOMEe!$m2m!27cBrsimk;x$#aq49W;dk_p96EB{$_|8Tt2rw^Nu1qxbeu@u z{*K0PjG_MHs7w#Zc#_Z8(cR^c*nydQAAHTL`{-i#8{B8SsAE(`Sj6vTm{9{EdkkYO z>HadMVc1|xz|FqC$*P#ifE85nCRN_FsO+;UWQr@r`9H z$J0Eu{C2@5%_OQgOKJ!qQE=|$;CgPYHJX*(1UL2DE{lAL2$RZ4#c$qkjx`)!wxz^O zXIzFgwoP{_y-bsbdy3V)I~5SE59-F$&~ni${M-z1u6CWQ-PxEG;1#pUG3D}&J?zL< z^YVM7EU|n5KQ)bk^PvQb7z^<)_viBrNTc%O8|mH$qC1;Ia-iCyn;`o z>7>g^uG&!ummDZeo2as65o;(?Hi_&A@1?q4F0!1rAjz9-cN=alb0KRzVpro%W3F=3E(EX{0xqT@+Tz9e@Z}&kPF3iS$mIx=z;l zM+N%}bQ_vxYAxK6@ElSYXX*@s`K@Qd<`qKc6|RM28k+(v<1JqY0pe_fK@r?y_19b; zSXb+m7Xo(IdYXl(BW^DSTCt z-Atzowaj>TXV27LA+RD#D0%xjGj4|wjv%MbH=^Oxm%p@*^UrDU9!+4@B6iv?FIARS zY4@l#UP@|BwsEI2z2w`rYsarWFPq1BW!#1OzQ}=tt|qz(ksj ztT7G`>8^0LX&z4EkeP+nX})IscNIzLsi+;ntT|=^OV*^8bBJ?@;SN-%;iBJYH$;Dy zbR~%zAn#Qn0?vpz6pcEqu|2;(&46EuJ`F{-0gV140{(gocXOY z$pZd}RmU~1<2*b%R@R5g*1O0NPBA`k5qy|pJTZvcUl~Is?bVRu6e1zJmONq5Jx^vv zWicwh5DJ$~+Evl&YL8l6;IFKVYQ}JZ=6>;`nakzt`Ei8o)`om+PPzd^xiPVAsMSGx z*zcud|6ZAHQ!Q`K=-4*ofN4~){Kv3%(kIOW`X;cwR-w}9iE82u>U>bN4;DH3>3D^K zYRT3ygUyPtQZ0p1-B`)5=0JDRXOCdB3Y1N%q38{Vi(w<1YN7V@u#+-2Vnfn-eSXs_ zN(gg=yEhWDSYb+YdAD!y=GE>-eEri5`V4^<#OPV)&9f+4uy)@0bI^3NP{jU+lXJQu z5#sQ`Lx=u(EDtQ=Arv!cYWG4ii$wxmp9JBW!ZF|tRUE?YCml|EWVr))FZj3{?gMbi ze#KWx9rXRfT;_Ym#g3ekAkqEF~JfjuAitk#)z^v5PfZ- zp`hx5OD|!anPTI9oL(SnXTK3$@632kEbsb`VWH0MS9;qFCf}AQR+>gGR0XcuxV*Ts zGho(7EbN$T;%V-46z|C+eACAzD7dGheW9M^H(!;ccst%wm?o#8JMm(uWcY;b&)))W zmr$k!|5Ho^4QNjpglgj6*`1y_WW2Nbk^IcG1XZ}POyB2S68X^Go4An|Od9flht33x zXT6O4M${>ZKi3iweRyDxkFMyx(;Q+?rszb$J) z=}-T)9FL(A!a4zE*Rl0LF|Mg&?TpRN3=8lylk}7m*l~)T3~(ftpk{RN@b$!xZHZ*6 z(bU#a>)J6T?wsj=QuK^88Hf+vBu`Nf} z8hUtZn7i}Q&=DI^b}t~fx5$tINd?~ZC-LiG(cNxu=VUm|38~E_&#vfgGA8AS?g#o; zP*UA1YCHWX?sgy=&s@hjoG*cH!ZFDDiDj+I^oapgv<8Dt6V9wwq|Yyc8^BwXX_|ZEjQp}Bt}8xcb0KU@a{-zqrcxd#VBCXVl--neru!-+LKA1!#>d(2YMl4^;C)VH zJKR<2Lfl||EblgXN3rq@tDJ;O@>$KJ*N9Un+x+B!@26}I?6Wi>cR-6fMsJPo`cRGD z>o0i(4Qv!AJ$E0P>u2`5utP`jUQOxuoEN|1UGX(g`I^TbUTfA)QY&}|`5^Xko~Q`L zRPFXNs$RJLgYV0dECb;fy=|aJsqpQc#kCe~juy}QgZnj=$%%1`R`+I=WPnh8cpRtY z4M>0gx-}tc$#YMeC8{|_&x{JF%8g{%o7wSOd{eF>uZLJM^9wB)0 zN`=cJ$^$}1A#1O#6{_o9Xa_HO;D&1dbgg+;eLNKEiuLHY9ZyX%FbVdzprF3^J#^yF z(0Su+EH`rXT1eyf^qaXicxg?gAwpZ{CbJ z%~M7=81x5^!OK4^@z8DoJozDMm#ooFgf5@zBGZDyt{z+2Q(XiDXo|YzrMWhU^ z!0S>WycXOcw~JpC-g|I+E?rNUPF=>&51~vx*?}L@(9>*Z+2BbOey}OKKahyR+iq1c zoP30+w+tp(2?@vSAL7KF3h{?6k#qSOy|rINt~fobO$AS4e`cA~Q@nmr zyI&un`A8mkZcH+n?~ggT!7PGd=mvuX4rzH0Eb*P8yCm*nKe|xe7WdM!{-r1p6Zc`M@8v_$ zAccK*MV$sp_#15$USZR>8?E;5LBC~%9{?fxZ=Lk!-Jolrf_|ODYBy7|AVYqkVHT>wm0uBe4Utgy(-Av_mqr?c^Dx;7f=?GHBI8F37&@C%Z zh|`PXNe3hin%So;&??rs{RzWC5xHNxc3<~-{>1Hq+|_)a?Q-t7pY1c*x-W`+p=^P^ zvaLH)r615{^4>6$IVaC@Kp?xukw7j{O<-%jRFCyP|@%jWM-BC(@@MhFQ`D6?&A4{(51vO`;v}%_)&Wht1MbjimRDXL+s!}gh0j|m)h0d5{uTg&jvt8 zD~+37MB)Z3i(%$FR+chT$c7dC%rBWl;x$S05pSu!$hVRY$gdyn)l1|Bgm&w*W|#e- zAaU4rH{?rSBu`!(#^Nr#HQ?(g^@xf|QP{iW{l(1MGdgQnl;uz&MEJFO83ER}5Z%WSO5 zAHnpz{9DPz?4ZiE=Qf91@VCLwcc%Ak5490Yu&$^zb)SycdDe}0{f=Y$o-%wZUPEiF zLmpwg4E{v!6+_5)(0YkbKHXiXLP6szju4O?y5$G!!|B1P)v6DtZjom`(Mr{-z&MwVEr(b`Fe7AfJI#<2 z-%?mc6n9^_p-HDCGcv{tPXz~f>XCkZVzj#y`$lk!h|TnQ`UCGHfhNR|LUWog_rerD z@@_jihfEm=?Ad;fAG%K%d$?sSa<-p#r^o-U7k|DjHW)Rc`lV3UL?%rJ{0VtV1;Reg`SQP>3E+x|8 zX{v{7@QHn~=l~WCOW0fIh^>W!PV!-q82%~+iH1&5)NwhFwCPaD_&I|q2T+i}Kd6g$ zYe<$dNPd_c&35Abu}J0Qc^TF$z9glSf57@UrjcP^_)YmvxN`bx@9~aaW&gQy`bz#< zDOprKfs9ahn7V@!^HGBnWApy2+`Ea7=*t4wX6N~w>k2+%&CMn+(@M*)QnU^_GzUIf z27kcM0KtJHfbHhuf3k4x~r3_@90(o0`s!h(u<-1#V! z0LI*?{ms2cDb*KyC?aq?O!~*iX;19?VED~sOV(Si(-ZapiX6t@O{P+yyJ%~67#@e> zuA75p-xnd6ZSEy-wBb~1rb)zf1=n%}T3F|sX=6DM3r;N@<++q6Iv12V{w|jY(ynb9 ziW5oKi7xT|756Ofb;6Xr77|w9)o>}!L(bruRAqpmq|+I`7$O|yyX;~gQP^fhanwH^ z$9>|j-&bp295=h`iA1uXV>_Lp9lY@HXf^+YEgP^HD`8tw)Zkuc@@Gu+<|~DuoFBiz zk)+UVUii~=Ogi6pC@>M|m#`d8KE$}K4yd5kDRh^jTF<4JV)_vj zr(Z!lZ>wE|m>0SZ`}hc~_#PQ+wmbqn+HEZR^yoE;HrLBWU5o}+w z5fs}GtVD@+w1~I2#`W{{4exEaYgA-iZ1%&QeryYi`!(+Tf|q@@SsMEEdE4)&FwQz{ zSr%TD+sY4}kYZ1g$0$~mItQ$EZjO|>_dh>i#mbBzMZE6@lHu5X9_Aj>iZT@kr7B0( zuGFZ!-6kD5?kLM_Pq_=V9doPHTH{$(?Xt}`p(!MYJ@ka78ML{W4SYD~#8qyMqwewb zSc+7ns3?2EVMZfINN`9LUO(QTx1V(2@S<3v<8+ZM= zv=Dnr_{??n`a>h$RE!3@Z}@y`>S}P0k5eA%Cq@ql!D>Y5AJ(IgXDd{`;L z$FC(B4GrPtmriAEKbotreg;{6N4E1){081yfArNJDpz|7$5Ucn(D9wCQfwS6^`O}< z4-K#ry7wb%_s=yA0_oJ6W3r}fn~UyfdQAgYf-S=YG?@2%nlwZ~61&43Qv-e7Jgmnh}vI1!B>6ARP8R)mCG;I@};?3TSyv1Zamlz&j*;|y1kW(g6*{G z0LgQ|_LCO0=49P;vVFu*M61!LK8#vwJdbz$dcXYsHTMa6A;BomM3qx3>_RF$PNilQ z;Q1-le?UHtf&Q94TE$4LK>5(}{{gT-PrnEr-A!IJWqdNfaOQxHw+`qkH%h)6A5ife zHf+tCd(EZKOLjQ&Y`D+4XH@@AKBM}3hH;wv`+!S-Ut3|%n=88TJLupy$NYw#RrGIu zR`I)s@f`Cz;lfYQ=Nz(xjBV3=_}M?6{GpC%D)}Ad^B zPbhs8!rYrW9-Py${BqUSinXR%-XFpU7Rxq?w37-3+1^panmxFkN{ZWCv6RPCu-p-= zw0+dM9_`mVJeb?zDdlflvCOx4MdeGFI!@})x5_#+Dc(b^xI?s9-XYTJgx%XqcJE?o z_bS|7x*wwUxKY~UcGDi0DD81+9ehSX_GGFS&9t_fM;h}+x5x(!QT+ylr&X4Z{mwu& zW)A82!6ChzOKic$a`8;-DE_<;4o2bFR!cqrXPIxAjlKWisB5B-gf4OEWrQe(H_DwU&@KC0sz zNA=R394j_f3i(@#cCFpj&KCEDjKySAYfU2WSI&osjdiaHVojkQE9M)pWHyBMOd~?H zrhM@zk_8=aQyIHL@C%Y|tS5i70hkS`Tx+TaM?GU*06nQcLQni_=+W+ijIz$v*oqJ z4|Xi_q)FgKJ!*&9yKTQ4v09Rm8%aiPAQ>4azvNn&cP4YXJ!g5yMJ}=lN1mr;znElw z`z_YL&odrkeYn#_9}caw>)#0%o{=lXDDGQaP*@DudKdhbrvlf2ZS zexLN=Wt?%!h4++$cb8?ncvSKG%A<<^D~!9C|0);$Q!6bo_oE3` zj_og%*P#`wyWjz`cj&*PWcQGcZ5wIHJMG*3rd>?BD&0-{0hM{?X~V34hY}uqHQ{0X zEA~eFGr6`i5rocGCv5cNO{70PsM_U0e7B-+#oDkR!?gbnjS8QGY(464Xl*dBZTDll z%kxr9pKWq+=ewLw9u#`j@{NQ5x`I0Hp)$j~tysiw8p#K%Dwg*Q>4%L~lb^B(J5o{7 z6K%-u&@oTt^lmd}Ws$ORQ&HP*YLBQxLp&(=2$e@4Ms&0hQSu|AhgBZEu}nN~py&1U zybjTQ>bV(nvETo%E#==EU#r8{=6lJm?8D;t5-cWNTk<$8dRC5I%-etmmkfAH_hYPB zBUww4-x6Fat$VrGD_@5En7H5O%NV_4&j<@!*F8qmtiB5&ut;&1`*D0b?a4#7`}*SE zu^79db(C#T}clkcYO24vMdlt^$_MPXV{~diu z(?@%6JsL+?3e(k6|HoYThsGS|T&FDl**3+m z>LSH|>qQESI^u8dDVOgG*nmIW}O&BDQX?^Lb} zT0<2Yo|d{UC-s2Hxgb9zB5ln^#IDrweduYnICO2ft_?ft4qZ+C9V^$h zVMpEMbvk0><+?U(nd{sx9rq^6b8W>7t*uEH`8ac}!?xnJ73x;<@ORxxK29_4;&rvk zWnBsSGF~#u_Zuze&e<>Mc#+D6>r{Vj*ivsMtm9w8<$5-3sh3=><1be0rE_d6UP!+^ z=QjT99P8sGe?NisSz@^w|DUhm^>LEd$4Qs(P6)lyE55fAvHL%q8!_j?|BmY&_l4f$ zyslQZ zp}FtsujD;3Zs$GubBkTw&VEY=&;MeDMIG_?$j@EA%h10t|6v#Yrycxb7XCv#-&myh zU&{T7G5^gj{D=ELfBw@heYoQW$NtKF$nkjpxKr_evy1mv=6}M4fBJLAf5>h84&I6P z%HvNqDSjOh-rrds68!$hUEaUo;rtdy&V_ICMu-1;qRe+Lp!j?iP<$JMEC>AEl$|GB z?kV;!>`$I{;h%T#pE^;_Tj>h%{vA^M_cNYi{!gB$+!s&xFPujgTIDkSq{E&#S>~T! zr}#ayj^}-V<$gfny(cUA3m%`BqqJd_dydlSq&-Jz>QrTp(ysT_v-C}>AM-aULTC5z zys*9SB-;x^?<;)W`wE|CZ0)b;k5!lF&(jg;FY9tE{ycjp=`y#+ZnDp9p69k}Q1$o9 zLDm0r7b=`*ef~?Ac@^~C@-h#&@Qv?rnsMPh zF*{Qin@ z7weH#E_y`pFjg-7&7jhmjr^uni;PE?@-EtaXs3CL(!2$y)hZA)vD!udIr^Qm%o{ea zzTcqw{j-enBR0otWZu6S1IWj8ELx*uCdKQ^g4Oy`a>jad&YRO!F0MNk#$qJ&JSJZV}Hp7ealZ5q?_#-q9wcx9fO@%EZlT z9Cj>Xt|3}r920ibU+5nDewQ)g7KdGux2z}jFApwJJR{18wNZn1l8N?s721n!`RH6rPV4ofH{Ocg z!=1&B{GvG{*P3ogHYc=OeYiD4{$5Jl&8ShaHjeN~8PV;~PPZN}8H z;v8nchkeEUgyWU_z?Qe4Wg}ZAsXf{f_HWshQ>X(m&z>DvSB_W zN!;hbH>gCLR2?gpIk(d_MG?>Hj`$HN(7espA~>t=EX%tPNe{kGB|gD4ClnsJ&4Zx{ zMbn9GZNwSKghzhYRpy!!Z4hlZX~X|}>llk`(C`X>88lZu_ZIO~nKwXl>>F*t(Cr>f zQYmnM>{y&9Q=c65wDYTQe#VPs@oM=UTou!*LDy~%W~dDPfud!_T7MP#sZFn=O=8r8 zB9#ocv0|;c8qE_VoAI!WJB$2*)>JcEMeqp4tlVFNz6l>% zv?j>t`<&Y2suJFqR>e7G8~xb0--D$S;+}oIis?=V(ps%9a$I7@av$0<5wxY6&_?{* z&V~}DypcZP2P}pCD?OZVCSq{3$F*xuy2n7hW=ydB{nPG2F9uW9s4CPTamb4gsZ8F+ z^I^eSXOPyGfzHt=I%!RJo-LmRYt0@spK45pL=KRM{mut*{cIf?MV??GfSG%|*m zw^Yaa+*neJu=XhIU!ml)Y_FMr`v`I$lgxbL!SmctI~K7vdmR-EuUGjwBc-!_K3520 zZkHFozQPOd9g3b68_Q@9)><0Nk#*LC2h7+$*_5MVFQES)QL%l;w*};xkc?T8KWX}r z-Fw5>OYi#n16A0yzZ%;}_BYbLx0?37-gyJj*(klER&;s2c!kOV?wb{>e1R6)2byUg zh@kx~>o;Y|F4yWb(qcI&tE57@dxPjL)M(LppBBl~YN3>0`+vT!1vswiJb!oh-m86S zUwW=y-nC>|wq#kBHnAM@5Vk{&fo5x#KxeR#%{I|EHnW&5Ea9bq6XalnP@oaUCCU_v z2#+ca>8RzU5G9cZXcZ7Mnv^7h2qQ3d1gIS~g|z>9?C!mHue~#8cD{4(IsboN|M|~3 z|M{;k=~dLYPYFJvVh4p~Nymt}uj!$@PSL@AF=S|*N*@j*t5keWVcP+b)`%642G5q9 z_kx^VoHz@>q!TR^`VUASi|mg7jF-n9qcAA*Gh>&y<4f;?-i0+E-nZ1Ec$1A)TH096 zd(iW;6E{$BT`zf<5w>wG?iUoQuNOR+vCeI-xJ*vDOnE5v9@HoGA{|cpaS*+T`DlDb z$1^Dp!qPuuqC&-yN@~|!{(S6E`BEP9Gfnta8=>}f#nilCH6vEo*%H;kK^l7psDJjc zGl?y7cbwWFvc^j?wS&twTRU2I#&N6?$Ch0fT5#jLvmV?v<;CseJ{%Y=Mc=R=n+5`C z&jzukkMufam9$0F(es`Yd){+OUyKgG5*OJ}N^)%#$+aeuYmKCT)D`><8~l+*+RrZk z^17u@g-`mAOW&wsb4HctW2}Fa07daIW8RNl2<3cFz3as1?>h5#R7R|X=slV@LY<|H zxjDwT_r18AbcQ`Dwx@ISMc*{X!-VrbxRPeyFa5uD;uMAB=|UYEkL6Qc*P@;&)ZwdEALb3JLk15pz4Wu%m;1VQQlMR{@rHBNvonUFH$Ty3{epy7c73e97g|5y|J*4Fs&&{GeUNbJm*ByPpNXDN1Og19Id zLTADLan3c(Z1?0HOs221y&RH3b#ZsjrcvGpr@8Y}l0y^@$^4BtzZa6U?1iv?cG8La z7MyrNrZZ#N7Y%XB0|7j+cEU?tWuts z37YePgU6fWV8Tj}XwbauUL^h=s>VZEH?EjcarwB0jRP*M@AJ^Ou0+!e>8F#`sLMnU zO4Y!dtc4n1fyLhv?cdSdaI;s;(W5%_;SwHql0whTf~FZ0UsI|%EnvdROLcf@LBmgG zNq3qm!4u;yJTmIW{aGLS`%2L@?7^A=FIFn`s9lWARZUk+l%>PHp+vBQ>*@;exfqx$ zo%T++)2?2&s}tMk!^Ux)=7kch8FnE$K<$|Iz(s4{o^chw{8!SevVs>Q=HqEd>cdSw zG*KI`Skh55U&8IReJOT7DuBfgRebrBimPQFMy#;Cg?MSselxFyMY;lrWy?_CSB?nv zrHHat*al7eCOm0(uPb4Y;TQXH@q!QM&z2%Shzy6|9v~f^7NM{FTE%mc zz7dN$2^G}|{}w=}c@-vf44SJyQSoOA@moZGMyxP-Fsfn`t<9TgZC;kCLRqp>$b~uL zwbO^rDF+(Iov5dEdo``wgQ*IBmwfIi>R(T**e~-nVo^__BAX@UJTKn|SVgo#acWzl zBTkHn)@4ClMzqc+TJ6MB3(;%rbMbXmFjd9(LwcW7@pB4qOPWT^=j(&HyDuID|3yWN zLiac6-ANZF`QHUG>U4-*aLpbrO0uh>WH zt57_Q(2zmz?ksH!^Qu&UGTbS5^%?uHq63 zy(}%8cb5Dpoe#h@6XfwJ3YlBw+@1<^{3{AaBrP*$Ydb&9PXTjUxbpE#-m!gS^YcPF z6F-0ni!;x{`OwJj;yvBuZI=5I(uQ>636<~Po_RuieYR~>;Iy(VsKBIfh z_RrgG=#}4LIrlgv=#9zz-;(q`keEGZzspbA*aXw3%lF1GG{qaxMC)ejT8e!;GZJII zqgH@>$}rkHw|LOf=SOs=f%J^k2xe&Qms*9f?`U}Q9u3L6a(=_zrn_om9U5Ng(B!=| zo!=Yecl%N$mS-^GNSy}%yTrwG;e3wYk$uU9mnN%F!Tse{(zva_$hS1a?$Yq~U9#V> z`#1Cs=sB#$Hu$p1j*)*C*w5TFU2#q`ZDo;-Hk*^)~XF zq=E;V3&mlAIv6BY7wgy4(#0o+G+fjkpJM8!3NgKPWy*74LHgv}= zbVm&LRK_BL&hI0F?#B|3NIl~j8$E;3IGZi$f(`xdZ(GjI4dqVP3wrJbL4UifhkjY^ zqc-JU*n4(6l;CwX<+spJ80b&e33{#dg8o&KpM<2p%Z5Iq!TZ@kQRZ$Nnr+{)oYl)Z zkJgI(FRm5zj!3*H>-%$?`tH8&>~=rBHnc}Av=i?a>=gRf3VP4274*N}Ch%aJz`NeJ zv3I)eEcQ+|w43g+*!;-49+BmIQpd##d7Vu?51gaiV>Yx$th5c~PP7Pmhgt;v zjj|qkWj(C3Dfiep=+D~Fj}BPc{G`EtuvyScHVb+slAjLA&*vwL>CawgZySPCG410P z+7r2TM2(>HX^o&$D%)W~_P5t<`WsR?yTPle+*cu>>@?X8w$SstZR`f4hYNOtY@aUi zfv_1c{`?=BR-7ySOPUGTrHL(Vgj{}*k>LDs@&G^XLwSbN-jQ-CCHd}`d>*yoljSdL|LXXeQU2_Y`w^>zYP1K8m2m$R1+QGv z4hRtbk(X*nkFF&>x(OZA8s>kkVd`E{UL%&@PUz+Pk{MAy9ly|U0fpcZ`Mv>*{gb~j z>GRBiVywf1j=l|OSxS+v}U5>w06Hua~KmU`geM{<0B zB**vZ;_;o`m+Oz!FrJg0%@%dUrhPK^S#&qaf5-E3{(4^UdD)8sXI>QenNv37!_Yn> z;~M^RT+7>j8u7VoKc{SXtiIne_ZaGUQ1bON$yfYkIseG|eBFl6seShI-l7fd2Q9SI zQlF2G3p!Vf3%UamrzPFnZS;ATzc`}~a2uy!P)8?)DQVMZ#KJbxhsI8eZDgApZNoYm z2iP~etHn3a+5U023*EC0G>@wYrKAcaZsQav?J1MER%&Pu4~2B{zR| zH-+v&N#BA^=?&kR>h{n(f-!FsmGt&|n*=^OKz z4(T`ncafadg;;TL)BZ&1yKWPd}@jl(IRD z&GhaU>D_jEcQw5m$&?9SFv$?{7DVKYiaBnNNA*&b^rMREq-tm08-={*>qA1-aha}T z`w;Qf>_u}{M?+tUIPaUwtv2QU_)-uq%75?^4fUUD$PS6J88NpR+9^}AeJp0nxg`2} z`p+8vK;Z?M&V&th2e*zgccJc#*lvxme4u#DZvUQT&OdFq7x0!Cr(53=<94^i{ZhUj zwV8L851d_3k6vF)f679C?6hG{m=*Nmvx0v8Z{&LIHv+$Sx>#OCuQ%&Q{lxQAZx!?- zBR-dYwB3f+%!8KwY{_e{sDk4Y$Q+XVYDNbPc%Cnx*pgc~Pm<3OmfS^wrA0CmJFB zss@8KIu6z9Xn9EL1~U;$986egaG@dVF!@u+*-ZB|>UfsIA(_sEauiM`8Gd;VBgwW4!}JX#@tpN2e(mqzc0#f z!knK?c;yluuTq$m?-+5UwFLDG0n+C?Q8F#cu|Ma}^_Du^G9Jbaqh;7XT#l~~RA6tm z61yfhA+hYog|k7lPlZUHS0S?0fr|MJ2xPjUrZ!@1vyRQ@(YPEIG|jjUp!A^hp!6Ub zAQ~VVAQ~VVpgci&g7O5>19QG_$yezJpo7|^mD;3Wu zC4lthI-a~drxQ_srRT^p+Yrt23?{62OiAC~9G10{Uyu(;PKY)jYJt%Dv`FD>?`L}%1Z8{#LaOjxe-Gt>iSFnX-MvI>Ro}d{ETPI`OS-*2>Q|6{e zEa#!J%p)zLe2=aX<$Z6Bz&*0Oe|eVjG8%SzMXwF*5ex0$8N)vJYC-Q0s|Ec(NgR~) z>(3PH6^w?`>PM@*>rq4fzlLejzP^(W&SSR^y@nQ`*qPr#CLIM-I5XCG-UDr zOCfk%)^EmTiGwMiq0NZiqvKKv{l|0ux4SrQIZXW`7uQ$C@moi9yl`Cl1|?bI%2x8Y_bE)X_$C*c zNbb~<%n6gsaSxaCXUi1k*>iU8y6lI0A;9ChkLvg=SLS8EB@Py>3Yj)qX3i6OKAy=p z6F-2NZ@7d^O{*hlTmE_rjx!*+zq?h;%@;fT!Fgt@N}H}~^9va1BYq~Mb0-A2r9w$nME zzzzhjEWvsT3o=h5=DHr0tC`C6|Kxprc$`(W?|PHT%sZ1wGD(v(Ns}~5(^5)5(sU^0 z!)B7ErG>VHHZ7qd$uu+R3`{fA$+V;#ul68fF2|3`;d-N@R0Iu(*asCOpH+G^V$o0n z_8?;9=4dbWaAOIa3RUlK@4ep1yC=cp^Z2KEp50&9+Iy|N-~GAvp8ZjS@0us(DE?A; z=ek(Ik^2bn?I!y8!=p}m?gb|m-^=x4C_95k8f^%>+V7I@lgjr)T1pcoVsB+xmbe?M zLEf9*?t%@QgR#>|lX)1=@?A7=uXP43hiC?$G}^cMX=9E-b6QB9|G`+5zfJ9~lWQ)aTv>Myea}U| zfNTAVlGkXC<0#@hVM~Wb%Xi99m)~;ID^pH>dp3(`22ZDDo@Y76<$E-x4%i~XUdW-t z=bSVMcS^)xj5?V@-uoTom?Fvl0o(+qHIuf>8gs-xPK<46OU`zOI>WHeL+hqIv=;4g zb;uOuF)pln>pRF>1D>KvdsmT@JOTO{>p7x>J4Lgp2I^&ZiD>^H~3X+Oh(__uKGT~|2^ChPKQos$unP? zJds8l#W_^mk2YZS8*)EX>ZyzPD^Z>J5Pes`gjk2Rll(P!Z{ z-akDC2>R!69jqslw#yh||IL6wm6#tFN3y5)oQl2iUvbeFzv4=tQMS{DxLYrht=&~E z_iguQsquy9&Rs4S-3fPw7lS6BeSIarC%2(x4t=Nm) zzDnPZd`!LJE$o^G!#eAlo`>@ue=pTs>!O3(&=wv@-zzU(nBhHD=udy>q(yLtAK<&8 zrqsRig0~*-o(ELgGike=+J`rt7cx!4&J=stFviUnXNyxM@@%oSPIBx;C%y3!`t`3V zeRjJ15+5zbe7X+v=}OF}OEI4=#C+Nd8^U{X`p!h3h(p{%^SkFh51}A=5mfyi46AyTuP?J3%dw)8sTV2*dJn@!G$@S znGw#Zh123A(r9HD&4FE1r1nyu^d*c%9@xpQ8Rx83Ii~ZH%h5x=n_P4Uod4@eznwN( z3aABXyc}tqpDL&MA#rZ6l;$H(|u;cU34jQRYc5mzRUL!Ql(TR-al%aey6Oh$3_1FcjoKd*Y&%ke!=@X z+<7a`P>G~3--Eg`q~gq^H5npJw|aXzkE&4*tI?jS(VnWeskf(%nry0xki0Wd+UtDg zaP;G_?eB0>N1f8A(IVfc@@VusE_&-buJoG_8l9uw8=d;Diy9tt(I}_WPRllzt~a7=#eO0_L*PZ3J5Y9`l`c99 zcTDIJYW}((X|z0p`8u!Zi}W1!(qVrI)uErLKtEA3 zl~2Bjxnz!&(veGC^cT2}hm;RFSEo`*a14L*0> zpDovH1@HgB4SYkTU8l3;9)3-hNT=m{V;*VyA71IAU#?W+rJBckGI*rXa{ba@q~;Uj zY9&&(jj=*<9QRQGw%dJhOCMIU8ofaLhL}ZF{2kX_j6MRc<6+J(_)&kh#+Q4H(f1Wu z^DZ%8=dr3{3iJ7iVmjn=QB|Rf?s=HcPhkG##oWy~kR$oca1TG6o1UBLJksRV8MR9E z_4ClzSI}JX+kJxf01ui}K7jFz&py?Zx#(Fq?>G4j*RYeELyGqwaP@*;W>VR?EGjyU zG@U}4MslRzAK+TQ$=?k>I_1dVldgwIk5AOULD5#-$TP8LLQjt&)(GYAeR*IVwY5Bg|cq!4pob)HnbUptAiy6HjG1DUQOBIqEo#|g3o zS%NGA7{sLMN@ll1bK);hl{En8xcd%oe?}rPND&2P45bGG?t{U;4?p@Yd zw*tBXw%!WZdKbXfn;#MP5tOPkZ~U8y)QxXG@|cs3ea}fFNBOO`!5ldj3f}W@XO41z zF_@FVBTd%0%1c)bX3=E>*|fA@#F>-6uidCZUt_mtLfLZNscWr^{(0^6x|5xj@9sfY zA#}MTIqD85@zy-gA!)ry73)oH4yp4eO z&!u@N?|CQZPL_<%IaZkPbxGR`ahA8!@?C9X4tYk+E@f}erM5XH z?SpfCTdb3Ks94%71?0szXQnXTwHHbM{cyf-TjOV829I<-OC7Y7%fol2NlUKO%R}dp zPIG=AZZ&DB)l9ErXf%hZ0lmf+#!ed|k1;NIlV-xW(4-4tzgC9|V2|fh^<5R?^7~<< z2Y!LPg**RkUW1A_B>g|&eBV)eGikewA=YnU-_K3XNf`3ZQZLoEi!~7s)h4Ubzi)T_ z&P6Z5g;LqVI9j^}`;z7B>E- zK`%8AO&V$m46YHE+{l=D7`N%{iZ{CcjdwzBTi}?cG1;CCi*Wo zbcnmMa-qWu9d*!A3mr95M@5DXan?k=f8nJ$7{lglv%i1gp+hgb=n=TC@2YRG(}vjp zA=cmfF$XpZ#XB+$vOZ6UeKEyEur1cY4GP)IJ#;y2^@T&(R3gsLM_h8QCj8@Y53~ME z+OETxi?WJjtMgn*Y2S(a^t;mg$520xm17L5Fv)yO$=hk8#Y-)S|5BuRWkkFQSb}dZ zra5Q5J_h64M%JOx@~xU8I$34X%Wxm&Fm~GL@KDDf(NzNmt%Z%S zgx7@BT`|12@+jx=gp+(tCVi;MOy2`!r;RNpZD|*Bwsl8apLrDh=yMtUtQ0%ipJGh^sY~6vBW{jhcK zk}2t)w_MaPtkRfC+hx>me=E~xKt)`t|81c0w_TL?j*C7#Y@Lf4e{`!RiQ zy66J9`@e7P|0tLAqi{z#jXJH*?=^XvUT4$!q|ruW5jDalS^_(!F1?3l4wYfNEb|wp z_t404!&rJ~(nYVrwLPwM>2#KS|H{rYTJq$1$kl@$THf!aV)Wc%kD;f_-DZll#htJ> zVIyAxTX?}hF2?^ne0Mb^mZPs)VbamZc}-@jip;V3lDD(Lq|wLuPAJ&ez7ZEW&p9Oj zUbrbvTPCf^5@~T5u55C(sQHYV+grbHnUpx^qR+y0JYki;Cxb^CZHRM|=<8}D+4_4g z@qCISue*@fyO7tlksPfLUz+lgw_W`C=X{TlSf5>Y$ zB3}?kUcW=${}jMHd@EeplVU%LgUZGInf@XgTV&EN;X0mF`t0G1ISzHdQL-Rmti~K* z5H|CGgR1&-s0cP%KE{gtlgd&rUxqopI16dar-Fw3>G#uQTVF_rVYeKIyZcFQ|Dk$G zpM!f?@YWW|vz2R52O3aUYEW0^p{^97E_kOZQ6H*M_o`+1^B0QuVRLy+*)@G$R-BVX zSemHH2xmJ}JFCCrefTtk*3wL*eOGzC=o>#s*1MoJ;wz3(v zA)T;e&}MiYdi0MjItzD*`t@%Hiy^QRq~6gs2^1{F|hk8XhpI z74G!Yyia7zly^1?-sj=Yv93(oE~kDca#01wgo^eYs_;9gqNr5a(x|wJui_ivTAxv} zc3RqpnD5RB<-ksK$T$4dx-x9zYfZWf?hwn_X+zi=C+CirjAE|ScP@{*PUlnmsRG(Og6|(Lq$`Gs$UiuTRtyx= zlKv7}2s@!>YB^O-V7xsJJ0rD{9R4-r`xbP=O>tay+9(qHM@y-wy+r=*keitP-NE;; zNgsggI>vG~+Q3-hAIwGEUc{Y83nKYc;=h1O)SI@W={dcyEvFWtJujq5$ku-o^@{b` zY2&h7x(xNHE+Xz)D^<3sxOXQ(*4=ZwcfdhM5vDncIol7E9y_gmCvs9T%DEU}i;MU^ zQ-1;aHnmS%u1A!)sqA&_ltF{6+x&a}WE}M@VWxk(x6{U+D%x|}L!GB`>ADdwT{E0V zR}SS<(_jHzGT=jBUPy~0MVNQ2kn3TYYcz7NOPB3_LVp%b_L*|sZtMrvo{DUu8GO=c zwI9bpj{8Wh#h&Fe;o?1{>z#CcsEqQa@?rNCkZ&*Ml5mTEXpL!Q8n66Q^XXIl7g6WA z1$5o%db;M+Lb`Hf5j728K$i?HrWJ!1!e&^4I<}N*{9&pwcFlUHljsN4I&CSrs(KgYD6#?P9CM;dMHn@js( zZ`?crI~U_Z5aYrP7`v{+c(Vax$XeJFi!lzBh2~S4QAvdfe&5+&Ep3dNTTJ>aT;N%b z&tI+a$}7eG_OPI*YkahXK6)yLdPbad z-LQ+c4VkoQ&`o}ES6Bpd`cM_xeI@#l3fYgy{$s#H<6k!E$$Qb3|4r$%)5c)A+(YxJ z(=Phhh@1Xt*h9&oTxuKi(#C;23iRjGrI7-v3N1kUu0#8-q0$8Lc#d)73nneO2R0<@ zw$sLZ%mIgBs~M%%x+Eg8hT3*|VkU*xd|`BOuIZJ1lbonU=B4I4+?O9vT( z3`NA9!McoiH@#@L+RN_YauV+%%DqKXPS_{tAKLS%?V~2$3K#g1ipNfu*E!Q`Be3Js zZ!6Z$chG#6A3b8ypWtq1d5yNs*$;0t>7kAK+)C$>MswfaRa@twx+%i^-GGgZbhqco zv4GBF%z&dGD_J{jO#!t7o$(PfR6pxq|y=8u^&(0QzYn@egZp(zd@(PZ=f~kATC5cFV^MB zk@nO1S+np+qvhT*qewf;T#ou%Ce9EVC1lU>^xaWBPaj8^x~Mz-cD9{1$_y%NvG$fa z)EdTJZaN4T;P7@@-Xq_l?vXdDVDr?4=24x$oa#^(a#ej4d137vIbKF>A8^xCYf&c8 zDLr=DXz@`C#>9&;_ASGhxDaFET%*dm|5W|fBi0Ntc3z5cb2-M$8Zn-tUUYc0 z3}ZpZbGA8`b%)XM$_#(U`|wGl%hwdb#>l6I{RQa1edu48QI%2m{&z=;K6em(m(NZA zS?H!S&+)u!$SY|oa#Q6`RXmxrUB-CFP47%ORX=HaD^2Z9$*05;HzhA}Q;22lwBa+z zcbmBHI}iEeqsmAjl^OM<|7yl>&RXN+)Cy|5!%ctwgqwy~r%sD8Tn{7PXuXZp9ZzWY zmHrE<(x`dgH;If(^5_zj$wL1kS_r#F?&29OK30?vvk_AFIHBANP-Y&KO%BRGaL`Q; z!mT->(xlPV4yu-WAG~xZ>ZWf+-Dc0`0wAhO2_3=Pf&sd+eu8etPG#n@dlHJ8dJ%F^c)MYyAI$E^5=b24}|gVyx({=|m8 zZtC9aPVZ~7)ABdXP&v)@m&x}cbFKa(RZ59V+%$g;?Ao6xIi1du`;Ro9wDacDrZsN5 z5pIy>?6grV?vySg_o(gMSIk4PNG{DA#@IN7@*i-MV`4thr`@yxZuDn-u4>R!`#Yv; zB>x25gca}cYDq8ojGN4#t9UbMO@>I*Z&c@^ewR}<@}b%&(%!O`dvbWKqoLYOpMs09 zPCKpUnV7epoStV&J8J;*iT)gUC)sGdn+_~Q`LMj5HmXdjLOb%_HGSGz?*EL4-#`kf z!0)4iler0_B_I8=iT0g~dQ*V())M;uV+9Gd>q4HnKpvSBi)pkEx?$HBk0QR!`Lr3f z?K;@De%Q7b!M3e~y-^N(!|czO;YQ&6qugf?i+kzvGWgCkpQdVb{X`mVc+fAruI_e| z<%jRco5+`Iku@K2({{KgN2m8L3cBZ`h-;MBfRS%G{W+4?3pX)pjnR$_9?hUNT|`=Z z2JFXFdjZY8ORmi{$obxwDfjG7mO&1EQTq%0dr>4y+R5U*8^Ql4xX=q$AMMQGIV6w9 zOkEF$wexsiS%ZPON`GnrMg2=qj`h}9*OhLE7zamT?_B+_=+}j=E4*~YDcC0?9$GYv zHiNOQ2xFjoAYX>r4tM?q&eQ$^Nq_BbjQJP8=NQU z&)opq@UJY9->s+7D(KZN@HqN*F2w5Fd(OM`lQq;lrly8NAoEn641>*1T-bZg9= zUYD@b#`XDh{plRqjxo3eWAHpJr_C)pwpb<^!^%iI=I`%c;Dyg97#ViZqof@ z*7#=X;iyQzGcz--Q=C?tjB#x~U5oH7Nb6;Kz9wW^-_EDEAs>L=%SK#!zJ{vl$Xh1; z0j}XC#9!l}8pP`!R=hW+kiM6=os0DJd-d>tOWtP0VQkE!jgYw%;a4GiIc&P=)S@m0 z@+ol2Des`H!}nA{PpSBAY@!-(H7rH~YPkf7yAY;boCF z&c}YQCSzQaN7o?kP0)Wa{09-=4(Mt{d`$zn_BhoyzwM*95#M29zd}bP z;`1Rc?^vaL$3py`G=9dU=KnP5#LKE}*=a+Je-RSv2C8pQkz8XvmcUq_aHrRFHM$tK zC%+YQXrG(z-seug6=SE>TU;mu*t4aLnQw9B($QWwZHuEH_=S?S)ADRD#;yez)2bp) z^`3ltArO6z|9Y0sxpV6h>zwwZV*W`{q;HF>0ow4-VXti&@K-%ZkNL#hoGnC|g z`|^y0xYxf3_5*BWKKr5OA#;cxcGGX*0;iN-jkfx+2i^2dxUuv;Czqt3f%`DaWzu$; z@-pwAwK5>XYpMRF`o#i_QZqUPtwcnb%vu1=lI!n0m&t$!Cx+iBz zw|ITv5cos?P1?m@*B6!UHNTn}M%+>q`Bm=UtV{fz%1FQX$?3@9_fP-PU(H^wBfpwG zuG6#Co4=yp_uB0G7r!=Bzc|O&ADyY6e&&8({fXCRuQ!KZ%bhh2>+i@c@pReZIrsZ% zxyR37ev|8=n*W&Qo%=&B9dURl@PDUym2c^uI4x1jD?Jr@fvc8+~5To^X zzEIKQj3*d}8Na~z5yqPs+ZeB4T*_F?=wy7?r|@;g#~JTqypz#aq_BtS4#o|Pi>)Mm zWmp_d({=F0-Gck#8eA9mg^=9Ag1b8ef-bHJOK@4-A%q~oCAbsZS=`;_-RJv$&0I4* z-P6_8r>ahyYh15yaq#rG?{_!MLy67}gY=t@5(M=&*`M~;_r^G!IL;zY#**5+HTnEw z9{{e@r_`sW#LL95^`hgFSz}po^)NAEb`ZhZxD$`q&8tzn4rSMaV^@cDDBjj{^PocnV5+k1S&-<$EmY2p$E zdED8L%v*EMHTy2(yq0NG1wOhywTOK+q?{8F7T_`GvXJb%zWvbWLqT)o^4u1vHEBcn ztBID3f0qA&(!~0S5Y7iDfJ?>s2n0gTS^KCc8U?CHOK+85^Y)PXWL{->`USIcWcD^( zwohaDy!iq%&f9OV&fYnv=(VO*@2lu#qPt|~rPnK*D~LGq&^#dO zXS^GeMX=jDxO<;sT#5eLG&N$L%68m!9BG`i5}O6aVY8sN_AY<1HeY-9oj6>qPwwS~ zSMZtRuwv&lFzngI>eYNlIj#NM&-lsl`R@HkLbya_<4DZhLqgos%FvUKm`RL2&)~+N z`PYwq9&ts~?GbL67EEx`xT?5JN*{x32!Ee%Fn=ukRv<9_-sQ|E0CJBKmrQwm=8)BH zwjA#YXdpBY-+LZ1l z0^b!~meP>v^9?<3j5`(hp~Y_0O<}s+M`0n^>x&Ohjw^^Op`>x~@YPa|`x)lO4R?r( zrOb{~jB9jzsO+E}D;bRoOejhD`R(2cAzYciqMd1fUt+m~ir4OV$JqM%DH8c;t)KWT z$l=xqo%4#jk2`HIa1C{Xp4;_3Ql6S?2%MNZS{ZeJ8cO?n#~ReniO}l+$T@c0EZtn6 zJYJt;UqBzS5}gGDoVt&wPghCZ<$HgPcONH(!`R;WTK0@5J#9;~hYKHBtPckAoJeDp z%gJ8rABNgk>A!(egRYy`7i=ub^DwJZ~MqjEu^cV7nHTjR>Tl>ZTVn?+dAa&cRDhoApdkVSz9Y(pD2Bl z6(x*gMY+B{G zuf#k4Dt3-;plqZafecYv6b20g%Q3vRPNTzJ7XDFb60W4JEU=gEoakN2Hc25iG0w%A zCLVE$4)>QoygkM*&OiVB_NRx)(dqFjtrn`Hh=$K6>B&{_@JmjPE0G6&EZhF9DTm6H zROIIG2#XE9Pxn`o9oxW@l#S1^ijS3^MY>%l12-ys%%0LxhJU8YnxMaHVox;{EX>Fr z*2qLCmGT-a1GEL2QripNxSyE}9x7{j?Tt8(_J!thx`*!#XK&Gc`nx512KAcg){^2* zoV8fPF!mGoT{PKmc6=L$R&vFrrK!)0S93(wl0WBe5KFzG>PgutAE;X28o81?o0)E< zX`9UPb$1ar&oJ*8om|bFzK82b7Mc171l37!9ew$0Mao%l)jGC7)GKoR=%3W?HeAA+ z{q3swzw@K}DYC?y{J{5wyBZDxzQYfnK7Atm%H1VBCZCVt=;i1Sp2t%C(%bibLyxB; zKP7Dx8emGdxVW^<087xxz7nM&Y8aZ(CE^1STRYPRQ6&gl*h*;xbfy=DdCpv8rt22GBY^Th^AVWzq!ys9x=wwRe>(1F9 zQ4Xab`;`|<0j`TZvZBKurrigu57Swi`FJ#d{3D*34)6y7j)tbpFT{`U%SpW1?cy5; zuo_v~JMg9SI9Lo+s{bk)JZ!3_Cogf^QH|H8Y~GOkIW!e0Z2jw^(lBMY^ZO6pLz1Ei zjkKuouZCiIvpCgXEnL;yMbiRu!#@5#MCq9~z~Aj#<#%1}di9SxJ1?$uqoZ3KUU&Ho zp36UN&3&lXeicAIA~y({Z- z@V=elq4_St_h>!Gx2CdQU#0)%#5T87Zmzy+?aQ`x1>NH<7e9I-Xvn>DdC<>TAOp*# zb5F$|vbJNId(hvz_?%)^QT3YzzEZm)99}xs=aiUd9@$x_j@Ec>%Bz&`tTWKE*=EN7 z#C%)Mz@n}OL;h=FHdC$kVPwRCb(#$MgODTcGYI<|uZ{oWe_Ofsz4_h&BI@y>E2A(1 z0n&SKNq-MXibd*`Y=x58^v#1KPK)!Eu1~)zIjGVXC#hm%y(dSmtX01Tm*J|snOr#H zHuqk1CkQ9&z-#+$>jK@ae_5i{ew>~;Y;-ct9oyx#HckfI7E>V)>D~-Y zRtZ;UbxCL*-m>aqIDMCBs9CfA`ztjg9vBEjWU)ME89_i6%&5PFoSdVCygtb;{2#*3$biN-REo_eiB;USNt-b zxV;-YnWyOma?RtCpxN%ig)6teso`fbGq1N5jLobi9>y*ze{1!hWoYD=>P-x0$o^&$ z_Tc^PKqC`%djEPFd$RvGsWydWGrJ|Zlw$>L1_R^gAcjMe5vR z9R887cJcJ??QZke{Wex>%VDQ&WkUQ_2@-Xx?bYWmp4_!6wL!_CtFOtZ4sZ0V9-d%` zael3LVdRf}Wvi;c&a)vruJ}b&R$szzJrfJeNUS=mx;t$=P>PUIu?#3PQtQ` zu(flxU!80|kv))YlAuR^)eAqy?0e|`1tFVc_~)Wms^|V{f~mk6UtIjd7D&&k^7G6y zf2)r0nB3$a@ey80{hLgMa)}zUHN9XXLb8mV4y~~%%R+x*B#nIW#+X{(GLqwO@!37E zANZL!hLh}Y3mgtGM>P5qu1D1@!_E$R9r>s~u@sKIW&9ANs76Arlu%qerhe2t738J< z=413#COem8Q0fZenE3M3l@1YxgV1-=j>`+3a{Mx+oL<>9lb=7y>-^i@%6T@2r0cMC zKxateR*;7qe~I8ZoXh4>(Rke=`F~Mx^Kw=UT~lmr3n~7BM`Y`?GTCe;@{mkIM45)y zdj9&$hh<%d#I6MyGZu$~US%teKn^(s!bF{3oiV6Lq(bdss#l*ra)nsfCv{9M=K7aD z#@Ebqd(rA$T~zfSo~Mc^-;K~1EN8OGev>N`NwQC=%99u$gZ|roE&s!suEFZTZ0CJ@ zPkDFoaqfKfKNA|`4=e92#zZh8Ct3x%5*gDtUC=!;^~WKK!DY#>F`MZ zJD4L^xkXRlSjU;y;Z1(Fv%$a<$Ao%l1M7s)qI{Szh`9p$2d43HII5S4t+vn9IS_HC zyX5gnJL-v%XHr74EY&#K?-@MTDoy59`#trQb%9K5J8fw#!)QiMH$f6RCIAgqY}d&T zTK6oi^#U^y;9e3mQ{io^>3=MrLy5#K$=`GLn%k10L6xt4a@myO3yYESdwMPL=o#i$ z9AzB;`X1+qqW`=2>Ac7tO4#LOIIBh=^)vb=VLmpyY$fX>`fYgH1=baW4K{{tDKa9t zq>Mr_X(=+Af}3n`8iZe|b6D-8pQ2=VTOQtUC34@!HU*wPm-ggtN%o?a-!pbZzf5fY zJa2qnxBk}c(2%Jj)S;I~JN^@K^ucZV=InGOZpBf%%6AnhV-By(qAL7jz{q3v_riRi zPr0S|LZoR6-}HV`zYVXh1iKxC{X<3_D4sZQ+D$?Z4cR3CXSRMnZ%`);y^( zN#B}nosqqom%WI(|Dnw)03&x$UJ2ihd!7G2Cb=o`i~9VbZV<25tm+5u$cy_hhdO7B z+Qrh55P5XSea72)zhFDcY*7?n=G-+D@e=xu!;wiq z11DNK8n^jH)aw~X`W9GVr*6!rU9eQ$rU$)z2|-Ohn$9Rod9$!YNQD8j|FJtR*Kh>A zlPK)+J!Fi2#`sjW6j{Gw|HtsPP|CPdNsI9a+K+m-)c5eK=I7;h&)*eZ%sNY>Bp;mM z3$XzMW)_*H6J#`aC2NMUU=(**EGm0T050)LDD_066W?cvy+4FiN_aJ70=Sj%l)@tS zSq)Ee_uAFi33SvhuO#w^cNd&-IL0Ffj%9m!RDAX5&uSCb_t{RpRgKhKQ+esA&k9w+ zvlCP7^&y`_kz34}l9Z>iss`**-|DIC<~3sQmD7nai_BN!ftOC3QTU6@cy`WIO$$Fj zzx}?;{HFOm8}CZMU37)unyEBAV+2PuFEU8nB6nao_SXA>qOod%k^Rs zoD;coSP2^+_i}>w3R;{h6H#-z&_KwCu0rS+R}-VC2bvCZ#mB5^NqZ^wcE6|ebi*L- zrTD!NwDuaElnK9o$P+bYN~d)X_AsqI5$aEz+ZmAeLh94W-f}`ME8J?OM0R35z+P%n zgTVSP%nwok9X-Wwi#W z=Qb%N{AQJ%xBa&~-QN7ewr8qH+vkr{UGDp|9iaXSPaEqm)_;U4B6YCjPxt(Q=%Ag%qB5-zD1t%@atSOMo9fiks(;mL*3HI0+ZRQ#ryD+$$9m znwV&H-MN4&(-UOM6D=XWjtve7t!ZG9>(b07`Q(b;f#Z_tb)9b!(rcdPN>*Pd&xNn$ zO)bu7`O&-7ALL#0T^Cz~D!P7=+1uM+=PyZG)&?zP@qQ6q?5}5HTNL5!aHiJdp;fdX zh*YhEEt93j(yFis)C^MpW)99~zKgqwbyTN0DJXr)K`$+TS82*8R==g{1Quho>2&1A z66%8mc4M8dD9nQ{vNf*5b+&ouEzwreHq{@BGVep0ha>;Fz?Rzn)sUU>BgJfoG->$@8-Zz_W0L<(Izq!?rqT~m$&$n@TUixr!R&oPuWj@ zWI9%dYwrDHZRt8z$A6~484~DRjYiLz5|q*H@5K7y)Y`6+gXbjur=l;N{O19<7;YLn zzGD69)SA@e3v9xVkU$=sW@(#_oQ2c1(RLe&4wjC+;p$A$lO12vS6Sk_?`16s7BPHP z8u=ZN&uFibV5hE*o|8Tn0L+0{vX+CoF6uhffDu9krW5A8xy+MPIcp|2-j_Sn|v zB2z0&!1K*FH0@v6u2gYID6RBlBz@-Re_l=*rug;rNlTu7b1})iJ)1TeGfZ_DKz}`Q zz!j{Mku*p$_PYMPaQae{A+>RtvM{TCI^0mb3T?aXbos?5d2V!bQ#tpGt~`);>HGEE z5qpc44c+C{yAuULW;n|2INwfMt=m{ABYc*Iw9nxOFaPS#8M`dW zs!3al+NrzMX`i>+Ypag+%Pp%>tG)xG*0UcidRjUJGa95FjGngC`vjFu1Oxv&PdI;Y zSrZ{^eEEB~*WVvs!SmebYYUf&pH+SY6bQd)P@Lb%ZY+j{g%c0exzhV6xqchx>fK#v%`D z)u^TX2sqhwCa!C(2;aY>-T37G3p{fxw}BvSuyb#gm@8H62+Ly|0W#GAMnIV}=vgD? zQuzI?3};k?arfA7UhMy@j|dy+0_E>cuOHEVJ&$)IX0(Mfy~oGy(2`+%8oK*$V{ele zvhC1LRBbQCa;5qFxzzBh5`~{S9oG)?hClCKVpT3~r^RO}y5xTJjZH6dv$`E~$%l6J zvmM-mvvs!q&63Y_ksVK)0s+Ps%ukN{Bw20NZv!`<_nX!)xB|L{nnlmk2(?T3%w7$f z?+)|t?@}>h&x01!-Gn)M*c$aV&9?u8v!NSBX1nlqy0;T2=9X`o#Gh}Z z4C4A;mFB`}ge<+I`RK!mbD^kp&S)>OIv*8Re-!6rhF!3)95f!O{y%U3y#m-;1z z8|QHbADIm03lYTRr&+S^r1&Jsy%=Pmz@kF0g7CO`Bc<}d|KvV))J91*cf?Rjy5ovH z9h!-uvj{+geUF(~^zQ zca-+b0c8mnR!5_q+*$7EMbUQso{tG^Vze6@>>V2~2sj(?>idx}=jl0{wBt2ScUy$} z?s2?)+`|@}t3vvo^@AI#K8)(2OslSiYvJ?7F!#@NM`gnH?g-h1Xw*|SO^tbc$x8!nu zk`!A?0Y=3#HrdEiAVN_?*_#j&(DGOM@Xp^jTmCVA!F~fm9CYczA#ogUxMY7w(KlZr z$+=_el;dxa{AKLSFZLSzt9d9K%*^}7DCuHznBI3o-=t>#(e4<=;u>VXdD~U|pO9T5 z74@u$r7NuHv!T@yYnwXPc=_ZxwaWX8Y7+O*D1;nI=&}Vj!N$ zC(9`#R$1bIYv>;SlGr|Uu=@-@@y^qxSFK;Hlt#3>FJVnV$*PwoILEN`N8C*}yLpsW z<0@f?&?c^v?jYqP8K-`3R+0_DyysR}vFR(yToJV=wYZ1%!%jz`OIBP`kbJ)a_ zZ986YbkrsL?@6M=c;SQOv6w)w`S>@|3c-Iy#zhu2dQHr!OVdDf6Sl`@#q7GojG%8nnCseNHW4#SQJ$D)pMqFmoI}B`IsI%{##4mRbMuL8iJ^6`Wwjf>}j+m4R27McQ zViCVgJsjcPA32>!?~t{53CO8XU_MSoF7}EBrc5Cvb zO31B7W^;_k-0urhSdzBo;~{fvs1a3O!!OSXLYWB z?J&X8L-QkL@2|jFzd-6cK` zaZ;(jxJ{f-TZKbl_FRk9D9_2Yi?(2#*E5N_^cSws@gIS1+@Y^%4}X6HU&!}TCkvj# z@#z&YC+5^@8W!|c>;{`yeOfXD-j&h^jtcV7c%*wc|a z5aHo$nQLm;AWP%m$%p-o^$@0p`Y@}`f$u#BJ`cz>ynn|h1J6Vsmogt5nm;y`;jPTb za6~3NBlMI8ALVyv6#D$X~TPMPA}1ugBq= z89aJBn<*l8F0c?eaq*<?&)I2eCa+|QS)_?ReiHtV`eV!S)OVY*mN#7Oe^T(3KlEXA04FvK&nP-dc7mfB!3 z`lb2#54;4sAET_xoP%Q2zOnoYNIe6;X*PQ>9g4MX=edFhWCS8D);jVp$k6sB>E3R= z=y+*r+(wi;Y*OFCn}dF?@iz}yeE1MetF@T@_)#dP_RH;JfcE1xr~ZYfe*<|sL;j7_ zoJ?fS#~*A9mgN5Oe=@D2LKI8xwdHj5)3;^ zs-8DKW-7uj@YlZHW|RLhy=^Y?Awdat=$o9H$z<4OMI=>Ux1^M)HDyKV`6>527xSN) z6B)J#HJnIlN4t>C*W1km|NbY^!HSpU1F_--S* zJ<-jFb6sRPTYv(#*_C04W;DFQ9o*8~LVCvR^PZYt!NcZ_L6bk`I?eJ5&KYRAe4J$>xFAgRV*SEuhsTgP}pDwN}^4YO4s@WSgwazs_lb~5!n6om*_ zQ&Fs9>!O_?wq}+4QAkOVBSXtzlM%9kMz3jy9?>J4(UpxXN@J;>5n?7d&>)1;^C)){ z+Jbgwmn4sPPpnJ$037XfWgI9&yegxQPVT}(O#UJGv+Hgv7z}4+{3n3EDKI|hI{3FaepQIHflpcN$f<+f0zATgru_jFqf-knT^K?hc$e-*` zdCp9beFsW^S1<*Cdh@~+gs8M2gfJmQ)e61nR*g?Z)YvmL;g1kiqH6U z6wB&w)(Y2xi;t<#PzSzop~%0(xEd7TYelgH{&RWH16td%Ki8oJi3GQ%;kdn-3nobr z=3BdbzT-FTM-gdBKzu^q7(-!8de6ufuc7y8E82bc*c+-J=XRnz z^|F;?j8J|s){*Fh589?TI;`F>OgLK(s4e?YD=#bJAdTCfLPgnUg$`TBzjxaW?Q5{b zu5ZD#MWak$hSI?lnJ}$hHC0dyF^ztvzsN7fkpi6}Uy2gNL)nof!X8ua8(?&UOtjSN z!!&yxMt-st*`-T*AWEd@1EQh7T6@YyM@1d51kq`t>9JJFcO z{CIQ%wQ%?uiX%(y5y_^9_yfR~^UZc}Hqr@}LbFbw$QiBWyI`;q217dr!4T1a#~avD zFtV9o7tSx{v{Rpt>zX0iNJF{1PAsmGo!%%ixx4)zSRrN&5oZllclxG+Fi~0#QM^F1 z`4Keg4*LIhr$LbriJ1_l-Gd5$BPyNMc-=XTEP?7sI6tBYea+8%`u|y)5JBmd8ERKL zOORWzsOcC6=p?yo;%8(_Ph~URo?H#3ItEuZwMa$tPSQ1{A&95(@!~%ZDsepgFh1oMZglMgJWBU`wo4 z^T|j(6O5N&LGjfIWQVD5N37Q9@Z^>-N6%{v@?*#`v-iX-+V?uq#v>StP0FW*IclvZ z3W`uzAK|_jB@Bt^2pc0xV%aAe>WZdV^TI5WCkk4|m2{=D5I3JEj|<0PBObyW+$%}O z+-4rI7Jx~jH*2s$Ly}G{L1GeUfms?rO<3U|qz>%b3OLFfdbT)&xX;ks*-OGa!|VHr z)mX8uD71mtbxj?G!5&=>K7_ev9_V-P{;S<-9_M>cYp&HVnunpZWkD-vyeXT)xcU(z zk>ng+#e4UM;#idWC(;j@NN@uO_~%;(-Z(+EyuT8w4akXejCfao?Uh>`i$Y}}6+NdE zsLUv`Zl7?-cEC6hoKw|*_eKJh%X$5B19(MfR;3L503(qCH6ssAGeO_cHFvPe0b^y% zj>3%5ykAFld)yYuyIA|9%mG$RCJpNqTD zW`gdIE}O&$=gPH_A-VuP&_W#c@1c*csP|&Y?Drlg?`xTUqS=7mc{B>zPG97Z^ zMkRtltTyevg}H=9{ST?*ka)-|sZAOdfYRLKj7lu7lamgqBX!SG1^NUkr<=8e^aORX z31V(rmyTS13^@Nha2T=h2cY>H!0*GCIQ0hrZ%_H`Rhd!wo=7JN*h|S|nE5dkt?}Vr^5G%{l zAp#TvAvDM_Dp>q4w%Ga;#O|4Dz+sr8AYfaOoxz&;h=cEUEP=&9e6p!BIYS_gB7}mD zu{SY!UDj^(BeIM-_W4&erKq3Z3G+RWl&3yK`Ncir=}#aD9AV3Z9n`55C<5n(F7B7Y zej-cY8O<0+nfwY_@!vEM{SQ-e728|pA9faV;zRc=%75(Z%d0B*eH?%bq`wd6+fX!K zPAvX*cTqfp>qxpSz&89P;DN(+@(n@(=&+AC!2WpzZR1mjlc&7_19&8N%BoR>|7~6{ zLfc?_NDy~gD1R{6z|{_&U`VADy&*?nsFDjPxc4rq@oQIXk|rHUAEWt-3EG2Ez*9RT zm%ibHJPhX80lTYNL8>sOh_GxT81nzGC?6IT^4u^ z%fN)Vv;Gqb0k1|V@UK|~<1*cUaa)E(2(2xz$o*xP{nwq($V=qVx10lX|H$WA z*YDgyuhxk}jM4tsoeB4Iz72Sx-hQ`{D-Cfc_=jakV}!qrr}Pxo2(#@~LZ4T}e#UzS zkr|<9e0XyOXrA{$3^l!5Ddj9wKKx%Be_U0wCNQxA`0Egr6)(hE z!ji-bceO%vH{k;AUJBbwFMgy%Oh=QmmQHKd{LkQA7({?Xmqra(BPTA8X+>m-DuEJ! zs))w`ZDGac$CL+HRpA{-K)_hqgy!WD1ZrZXZUCR4m~-zKQ|inZ?>W-^TR{6dixd>& zvVBU3p_mq{-z|CH_I5v18tn%{3tUfdYpemhQL zo(07$TIGVur-Oyxo>{Ofmn^g%qc@E0^z$Utd4#9QT7jA=)q0XCilTNuL#F0%oaSP|H^PxYhy;4T zLJU{{D$5l;bR2d>3#n6c%_?{nU{KOY0Jn$#+XAp)?{``MC|Ko$q;<-j2~xBWc~L6> zhq=D((u2wz!q2fAXz$**_ckl8&wc<3n)l(hB3oUtLO&#ZXM|No3Ym$7VpZG=QQOG* zwP9`}mtr-L`r=F_vq8C&q9tJ@CSiBq*q{PQOpf|zWQAeP0w@6ucwbSUtFf{gKlAMb zD^9Q~g7!O*oC;KcnG8YmBT5X`eM;?Z8lA}q%NM|ckceADs2HIq>AbV)4+PrzI}`Ov zHYp*r5?|!}Ya!sMF}-mH;Ri0^Ue&`b#>uJ85-F4_%fr4lGMwn}B1~@>!8E|+KJ+-L z4SDDk*jpJ<>FNxiz;7-k93oxf?@wfe&e1E+$LF2lA&`~=Xhi}eS&R#s({}G;I@4iqKS#g4P4AN}NX(pk2m!aA^M7{-e?B^2$$5e7kQRFI zkWS?@`v}xX$^RK=gWt-_|HIryS24^6uR?Il$U|z3@1De}SHl|UG=Ua*2J?#RB~k%m zV%5vB=T<_nxZpy!6`Zrl&(d@W*v6BIeFQ`FD#YG^yU`D|H?BR1L*~YlEf}FCTEO(L zXM~RWu4mHH+6l0v7YYQ5>vuY%`kauDgstB{2joyY;pMH&U~a!t@#G4?3zX{I9h@Ab zv7*uh{-S4^kBcOj?g?{oNGMC10)iHv={JcRFqAiwwV$ za-Fya4u!$nP3Lvmai}r;7@lnrIz6#_F<1?ELh@}4int(3WIKC;A)En~FmOyH{OwzaE}46173zW91|mBRpffcr z0N)Ccodpl$$9}@0XfS6gZCuAdqdNNC+bK$QV6I8`yu=UiSb}U@AJI^Fl7yrG85ni# zg!(t*WXC_iwsh&o_@&%lU#h`=qJG>|H{*Ap^f!a%S%YtCj5c=rMJIq6bU{a5RFk1% zfXeMc72xjQyc%|*q2-FG#utdYHP_TF8oM9_woGWDJe^@Uc-_)(=kszG7Oa@{WkRLzFvsN_NS~f=wQpZI6RUvw*rROcZ zdM)~!!(WiS7egjnH~dRLA1deBpp+aa@mnhWQ{gxpT7>&oNvlbOJ23uL8f@=o}J&q^mt?q zHJG6MNx;S$Kn5A(PBF1s2jj@~G-A=UIW$Nd78fene6@Z?)Rlp;3{d1C8e#)SFv42T z01i6yZl)MExAf40oV*o(0ySI}5~~Ib87cX-u7_GeM~*P<=H2e`^GEm9A7~wV^e=97 zU3%u#kaC2nA^KOU0qm(r8m9;8qp;&LLJwy4!omRC{sRQwOn3M14$v~ox~Nh2HI%qQ zv>om!s*xYt372C-Qem>aAE?uABN8zZ>|HkGtw3UU2E8ksA^xyMIY`|D&4F+f_{TrS zv2WU>r7yHz)EdCHgUOpP%x#AOY;UH$W%{OZps703@w zHA)L**hJqXv%p!~}>?QK2iLq1OccGg!wrenm zEz}EXQPL4YZ0jg+!Doc_FtG99b^QhliAV=W zBLY*Li93uwq$_M{Ci)(Lt+q^p(1)rh>1) zS_SyK1yk^&HADc@U5E*4mn3n716C#5uf#0ECy5le3tgihoY{k~gr{3g~g=O6);%iZeq3K+wrnNJ-%QGX8s^n6C9vvAl+k$bgxu+S%yGc%gFtrM3U+(s6wI z)RG1!0unTE&5P4`MdGJZc8@euc3+7Z0DLXb*NUnA4+>tn*q}p6Xh)2$!y0CR<8(NY zjg9dlH>48*LhFY#;vu5}7fKj)+nZx#LmEfJr~t(G z$nUSddVu_h&68MBmYV?5B5Y81^>ujm6~cPNhHJ+eb3e@-WY5?E&E=?qg2-(MUg z*SjPt9{>JNZovY<8B`_FP6@7dYp_`Ueq)86`*ekaF~k2JufM1CKEU zE=hc^m24E3Z!9BTPS9_#0O5FtwWk2 zgFm$o3JdSK7ZmL`Z0i1h7|NFmZjYp}fFd2yAjxnc;DEkA9CCrag(-o;{Efn9omd|% z^}km8@U8o5AySHhtyWB$tgsAOk@vEJ>y8Agm*NAORvY6PCIwe*Y(C$r61Jc`c#Htd zsg!nddk|7!;pWu)i|UT~hqeh?gFHJr~xx~K8WddXp_ z#F5ej3sS!uw}|TlZruGI6RYWn=2oK6hxK^{qf`lUNu=vg8f0&fnvp+?*^w$y-2J-Q zi3c6%{_Xd7tk5uL*yq}ruJlHP7OpV7BFIMUmDi+9%;P zo)39i0zpRjtqiq-vZEwjZf6;tV{c4K0Mol9)R9GuHTsaLH}+er`e+`y_rHnzW9`yT zaWJ=y2XMRzMP+Eb_?e*wlxJlOFrkR2Cbu`9tv!kA&g+<^_B^lvw3#s$C@4LOlnKO+ zdCkuVbq|HB>8Ew%DN^_g%EBF`$22?D5aFu9>b6A>mQhmJpOFY$+Q=+x;vt{g=KB<| zfpqY=4e`)_eiXTgz^35R&!jAD3AKSLjiolWlNPPD3bmLNU{0}Y0(o&z0Jf_fJoVPffyqi57e=7(_|vUjUw5)84bj6%R_*FLa9 z-=u(2Ajp1r+BYeo36>recQ=HJXs8(+%7BPJ+;K6t=lN~PcB z0tB$}ZTU`Nl=do0dBPpUc66;+BWc{-3cRdP1`pp%i_>Ptkzy8zJNH%{1ne9ckV-Jr z1{QS`skN;JJoBI^TQJ?tMuDrthnnY6h~w`BdPj-PdUs;^GKwK}iO~QHTQ%TsdhGcx zd108jIdFcJMJV|5RzeRC@-TT`*76fJD;Gk>W;Vew#f%!XeE}?dcvDNVz;NnzNzfY9M*}v2BO$Hccm`S z#?`G)TLu$IBgh#c^tj2bYJR_g~9804+FSMnrf)&MeSb zFt?*WAC~=!8c>2^&Ml}SprxwS=Pmag^h{KDjNvZegb-N5VbHuPH=(X zcQJ@0?RtaQ-H9#sy+LIu5Po|Jm=QLm)9x(9wsDEk^SOurRamBkBxE$H0|lm`twbe8 zpjJZiZ!QEJA^QOj;vVn^Fby!oU&c~hBphl1(@B8rpyA?+glg(4YYAY1g(!XrP#IRU z6Dt%c>C_r@&x+ynGacL@N12Ja-DGs?@5$MSb<>9@DJDW<8*lGi(5i?hhF}DqYDBet> zH3kqrM{OWC?5#hj>>BIbR2#@9*VaI!#%2pRQaXF&B>a*)<~Hnbh2{@xCZ38oMo*~T z=x6b&1)2UAGUeiHNcN9#{>yr~2;-F>OTWQ@H8#vK+^B&-?Pp^vH};QqQrLJ(x$LO{ zA*+=H?CFB`WlamnatN+DhUn7TFKPix011a776*h&nP4r~q5tlvpSAGoA_J*Sc77?rfuV0pfGI0F*Z?iW<0ADTG81;c2MvWNzQnk|ggT4;r{{&^PV}izj zaZ{~JftNH>YZ}03J%w~dL?e+8&rJzCCB*|+ly z>lG>aSF7cO%oPfh^8TO&3+}0T;vxT}0x8%(qe$W4DvUo%-5pUYA#*Woe_48{)pHRXu##UMPXpuv)6zv9I4D=o@2Fop$Ds3eS8aV?zID8!$s#8z zy$Uk*QVWFFr+}qHB^!x`3YntXsvz#yI$1qM2&OK>5VPo>Uq{J?6A`YHx%q{LwSF5H zcJ9DC_C@z|yA%*z$xXy1uEld-QUMO55d24lX_e}cufdF<-thkYi3WS)Lu5pVhjfy5 ztev%Sej@SXL8cfe_~EjMQOpB8$OT#9t}L(uwO{N{E_u;y1hsmeA|9kJSpu(xAJxqb zY1iE$I5vO8all>#Rv$s_LyRy<4k9qUR>;LEE3^j&U4gjcLK`!|i=cNcm{uX{qRJ_N z-VSUSH7RfMnZ?OF|CY9rbLN{$de9u zP9(rlJ+?a5$$~H=%Ge7D;vp0;vZD!KxzxIvyl0$`<^1x#)U0|!FveF%nT=3J|2 zAa#K6E2=<6xMDg(t(Dx*%u-&Pu%VY=a4r>x8mFTa}P<{_as6$8Im=?qxduzK_%7n}+P&Q)>QWwN|fZ(}i5JvOBlqpsm zArDlgIMqc(;3ed5T7L_Gg^3P-xjD`+1U^7XEgp_oq5l4{{EID^+fDc|~fI^rksrnFmycsy!$5C4+NqcrhS}O zGYw(P)h28z>!5(|hdhKzpwmks?0jk+1yk%(N@w$s`IR4ae_PnMaYE2O{vhpk4pj_4 zJ_aHHexZoDpksi3jetGXrpU^F;4eNW=wqC)Lmhgvgd3;Vvm3VTL)@G8yFdqH%MO1` zuiq`p0Xd>P_WY75t&B(M7DbFBA)M}pc!(0b90;<*+U{!D43zm8w-$+X-51S|sf>s- zars$M8%XENx*n4zNi59kU7z@FUpgo}ERh%SUaru-{{EZBNDk5$RE_(&80(GU#CC}o zVY_(WyLVTNSa3jC;2@R|@?IxM1Vo9h-{D zCv6C*XG$)G`>&IhXixmt%r&@3+~4eXX@i*(L_)O$d;gE3vkqwLYvcHj25As!COtwB zP(ord1Zidh(ydYg(i=!4jSi4@lG1|GDLqnY6r2OG(K#K-Xb8qGwVftwOoOB zN0N(^Wb7j=h~F~Q0lWWK6JJfgu#P8L!NdpFS;d(;M00ovBe^$YWWKqDdqVQJdsLfl z+VyZ8dOxA6<2ZD6Vzguj0veGrvlH>K4N0i~88bS2SetB){`vGBEo=?4{ZG=V8c=nv zvyZ_JxZibn>VlR`j?Ybrz+|3}V?|fsnPTw`IKL;o2;2AcOr+x2$ErXv>%Oi2co5W| zdE5H~OzM=$?j9o(x|C|!t75PHaa7kAO*}A&8PQ}-)HiY6iZy94Hx-69tT1x?s_RQ+ zOStEKp>17oHp;SMzD8a~>pYIbE|TETG3I3($8}Uj8buW&qhSubpl{1)^`^iqA&EY| z!pJ<0C&9+hH?$2+EICQJ5;!`&xCWAlCKlZ-+Ji6&)Gob4=SxzJ&L`{@2}@3WZ=_Kt zA0N&G_hd))wagP@<=cK=WWz2W*))3!BBv@o%7nOuKUF1B^AJQ@d|qNzfQnJ202dfh zmsfkuexUh@0}=dTb;>0nQ zH1vXcdsPz*(%7ylZMRT@(>blh$W-`8yGlc6UPT}IF{3Rt!A0z-T`GTnX0%M`>bA9k zj4d9Ff}e5ZCbH-*i}r!u*msmCt>|>IaGZvNj+I`jXv`4)e=CMeF*duGYP~8UCojL6 zE1@G-HJ2`Lbkviejc@dTs!BeA#ud>om+PfbD*wH~v!LTAiqn7!3(bPlIIyj4>47&} zR*vtHIJMl$!;y+Cedfwn9$pBubE)h-4?AhK9;J#)SL7pgM6C6u3RE4*ZT~KyYH2<2 zN|K%?N>l`f!W{1jUK=r?Wx-rPhyL~=t~IQLLHGSvtRTqr-2&raO?`#xIhU@IIv7L? zEG8vNy{=qLDK98F%n=U+E~?~8!YwT-rK2Fx<*7H|)TB-LF-HV-W=HgCvd4%2sE zOBAoTAMvz&Mg9l%rxU+%8yN&+1EL)`>c6zLEayQ&1jZ)j`L8{7-&OxnHBd3>cKfLy9MSJnEc~fY5X^2{2DlB2*(abOl zIt(TV3^OzCAVm$ZplGa|BjD@zKd7&Op!73B6c0s#M{9wg%0lM}H0$z+X(wuj4Hx7o z9STmJlEaV0ZN|v`a-uHyr{Yn_TC3{k&xe^(+!%U1f61z=%8Fc;MCpe;2OP&lc0pBN zi_v-gteN+b_*VWEbQVq{j{@EnT9=-(qW@Pn#P#E`WcLig}z(0B%tK!*A zasfzWO)$k>0odtRMFci&RjE(<6Cj;^6KuEwdpJt1-O>iXU=%dCje@UGU?^G8zOW~^ z0Vm@vDNVtdOxM%fC>7r5)|-#OkVt`AKyo>`8|SVb?x}2l>k*hSLNEs?ilRQ*yA4g} zrXf-?qfOJEP)>_j%l)O!Y!DcZOVr9T4+pic%d8Lrxt8Kf;VSkY5r;?@Q`v3D4UgdZ{GvulGB z)niE;+8~0%DqyYaO`7!ymY;Zk=nM^KwkXmWWWxi*TpU$aD!YH|(-8bW!gN(M)Y7Qe zZME3|0ppOz0RZ@h5&VX^c0D0n>nj9IKgo=zN29_(^Gzplaq=KCR*8#-JnH$ULv?Sc z!525K8}z}w(CRdrf;;!tWKsH&@1&A}ozbh)^#` zWyh)&MJs8p!pHHph2AI4oU5*2)JX^nl*ZvUl2)1g?_1446kY3A$a6r>!alqY2y0KM zD!6sQ3hD?cCS7CgQ&OBNt%sw!sFl3Lf#RBfI-o$1O0%K^zznthzH$DLBqK$XWLRW4 ztL~j!>mj@XLLJdGdIvi?Fug~i{&8P^vZPoW#^{WCNRsag^LK#1<%);U3ZI|6Tw*Tf z&w}xNLR!D-q;UWX#h<*e7JcrW1M|`5zw(DRMBFx@Mm3X*MKGZsXsd?9xO7%uRT;ED z;G}VUCWKR^rg79Zrs+9WLFq@pM_2((^u!-}L5fxzxym-8DGc_d5xJWIGYtEdN3)*8 z$D(g}4`sgaEcAQ42yzZ(I33?2#3811E))q13VUly?Lb`AX4L>s@XwTnkMTYYE&uyC zv_CZ8j(VN@wKg4!K)2NkV4OiLahi0fX3B;xCUiibbR;ZBT=(v>Ot>t&ZZtnKA`~zJ z*ukr^s9ji!wXQU)?u+|B2OOZLs$A<0Q1H-%Fvl;6@G-A4ay!3>xu|eVkM1b$o}$)U z?Yr?$!ab3NsAh$!r!zdq00XQhU?@kP? zHBtpQv+v%|CpS^e_jnQFF@Qbo|0KLx!`ka+Mu=x;Dn(`HSHfn!cP06FU>s(c$K!N zII^5rCfeP%XVnK&Wdf}|(ZM$$#1WWPN^WV@lgP$t-RnscP}ybj)!>fMxeV)HQ~r*& zVCoz*es#=eIudMo(%0a;$knQp=w)kQo=WkYB29w=GlneP5u*qI2=nYJ!kp=6DUK`o z>dB5`ZUaTyV0Kqmccmh`dcon2jIU<>R`dI!_-hEe^pzNPcW%k z^%en|bq#G%K&1_h6QFURx9^BI{<^F6S0)t37k*EW+JPk>qz=x7Isyi#aOUzc^*+{K z7of&RrxdxfTIl!K9)sIpF;@SWRy)LHndrVLskkpafy$P!kM5Ih6bq(Cm8P zHmE@rCp(Q}7YUN&;$Eod{(%!U>iLIV4eEkos>?UPaTN3)B7|IyS@#=`0zATh&gvCX zRzxm0_AGQU^POa58887kC5=1mE8pfYPShU7N*0467!!3zeWg>HN39ZcMt_B8CX#!x zdoHi+)suVi$kK@-Ba%!NQ9NFxR{~kEGnI&I4nwf&u=d^7<$2$GOGd$JBC+j5>R?F1 zT-d5cGNi{<^}rmAVOM0R|L}!I6e(_V!0&Q;w}O7zNlNuKdk5}*!hX`_3#dPsWiK!V z7NCC1n8tzk=ax9G>=xocb|bGe+|y2Sg(!|Xi4Cg+m=*eb0AF#fL|NF<6wt2m4Irfd z>s`4Bm+8mcx8V>qewIlA<`g+}e$o&`~TWs`?V|RyAlY zD|maK_;c*A0Iwzc&)VSZL4f?=q8 z$80Z0lt(l3{PoSvZj zG6%@f;m8w;8*Q54)rQqNYKH~UzZbVq&jAs@of)86F6B|?^xqeODf_l6fbJ>TduGCF zgS2McSkX3Cu-dtB&l@-WfH(^~j{?b^ulzdUo(sk&L?NhB6^)vX0CM$qEO1OU+x3gt zH?C$CsD`zhMqtcC%fs+$)*FeU$d(M5)ZZ^jjqcIf@*&@-4+;T3VUjxw>Tme(&(sAb z5|zR<%H{qTPH`BDhrKq@j&>8ZS-;NK2zo;{P)&TFBWaVmrA<(x<^LUP8LBalW03VXJ z(Ghu&0@I4ol`Z%lE_>^(wlMPP$|rp%ag;t*yuYuIS@$#Fr?>zvlzw>J7(BbuMNofvs4)vd$PE}ZK(+p?7Gm}N960&m1pSHN`@KCuy_nJXy5rN}UdN~R ze1rdq(kHJ?6)eGvjc%Zt6>bJ;^CJ_ZbYug>!jCBIDVuJXmkNArppu~spnJ>c2)wD^)o=)eO#cEyKTDp?H3~1nT9sKL)COXx z7){B?X1$|}&~;})XTr#K>E0Fa5vb?b2XjUG*M3Wp?x56w{)Kt}lh-9dkAKe(pgB3a zSNAH1lJ53t91N|;b=HU|yD^ZWE0}RhTx>~j`GGWqfpVTVyq;)m}5|qC- z?}U4To>R=R$KA|dK2OENvtdDzPwUUK#QMR5$b9Gj64bJQH+3XbXNr3L1(?x?=lo$( z&gxH7KoCL}PyjW5Kh|jEQ0{q9JS>LeYkUQ>uBosO@^e;!Nt|;;u`&al@xTnl>G61|LX((Vt2hl#s zc@O7cV*upvl~m?Qc1FVrJCM zX7t8XbrPa(42K%VQ9E$2QD@F1`pih{U`do(!;fSE1)1!1tUgqUk7Y;z`I*0468fF$dnb^& zv>?oh0VHjbZUnj^nJ`D__Dpy+%UF~Jh5Th+n>~x}tyf3`FqZr)BOs#d_t68q zg8-8&aG3xqK{qT5ngzTrg>#eh<5O$U10$e!DHny2{z+`R0td=#L5Z+ez}O7IQLn!O zlhmr3kZ%>S>ZZNZ=@H0=B{W9Mw!fr0Ma|xW`rmr{|CAHKr8=NNY3OxCkqJQWcKhmy z6uL4@e*nHY)LSH}NKuWxjigAjqeQ{!{eQcWM|D{f`fnrMjAf*pm~>GlKgC>3M{m9b zIt#0tfTJvRftWq%+>M`lk1lNH!bm<6{8*?;7B;3>0&agEtOO};3m>mSdW&zy{ZI-Y z1GD)9$k5Y1N*}i3+{gy*S~l&mi(gTa#hFsTW@0xJcJ{woDuo~M+@w|}S4k4n$+g0V zPT=n5tbN;Gn&4^8;`|Dif`8Ef=gvR2@T7J)*EpFohc?`2Jna_-5W#G7s6V~zfH1N< z2_c2z$xNIE)F<7W{5_rxzD3J(wmO%5V!em3_YA1NA+pvxAv4{dPSQ1*U%&i4_tHA| z@wtUq4^x#spf`R7)_n)e`ShY@UQ(&Ro}wS5r+WT#h-kE=#RbO z)jPDvEtzH05FdYiu#@pouR*&+65bB#|LewefIhgi^hsoI_>uB+{1<=~32RgVaGAxU z-U)T%zHKoSUFl;v|^sAM+> z(0;;?^8fh_$ncej2_sKo&SI!tar9jE67>@`)!rN0jd1`Svh2r+%HjvyGy_|BK!W>i zoGkRaq*V8L8Z%ml)Qr(wWVmSaoFYa_5UC-Y|0NFiR-)>(y?_NcdF9j7I7i^u44kRV z=u=XF?G)%Q+I%f8+--tnMtdb8I8ktss&uKR`c}pAiLkS%FL0>R!&fm|DMny=`}|R3 z0Acr(jxLXKI6k>L9_330l#;C-;2nXb+e{I z`bbO!m>zd*p))1m?)sao=;70@@a8t34Oe>(U z@p>b_liTeoia9n>qLYlkt6$^bP}BSf*)>-5?BUZmdlJ;mj1NANw*g%2{`A?>L)Wgy zB&aNMrCUtsnOU$e3Cf)2f}IJ?4SP=lIM}i`sMk|J!UInGpT;q+1?IvSMw4x!`>g0g z*cbwOL4$5G0>3EKmU)4rDG>SVmkS$?x6X4k~_l6_Jj_i^}`2QU068s-B%14c;uX|(9H z?vf3+*yXSZo8s%Ro7s3pwCiNJ#%++acL3qkzu&vf) z=fR!K=JgbNr*SZ?hsh(<4qQl5WitKhs7gg{$?CLkJMaW~GmizQa8D|GN+4roPFxdn zwWJ8=9#aMAcYcNG0P8}s**fZr4}TJ#>Q@Q?VX!y1n9+}w3pnxwpx^g}x)s@&b;X>J z4biZKh;KGKA!+=3D$uP~?)82_B=&5{d|Ee9rUxnpz(Uy)6~>RidtWmIpklj`=VJd4 zThG`+{r}^7st-0&&*%=9Wg3g(CGFY!{LPu}^r{#DE$w7b_dY=RJcH%TV=g?XgMt9d zKcT${=<&kE8~i|AH-nD_&DC+J^={=!Yx(KJBD(`J+jjc64_uxNSQT9vEBa@)&}}BgaLGmMR$nxAA3Z&=L4V)$lt4Vq=l>^ipA1k zw;qn+8rt57bPuY2d~lOh_gQhx7ntQy7zAkU)o1lDX;3`xxLhruU=7kIbu7^D99@aI z@k{yENY1@tD#Q8@a7At&R*~-DO^OqS$EwVBtzRcKgPJGEDyerBt61LpX@S=T{!ETg z0|0xh*=k69GLWIdXug53m*(&?jj2#lD%6lF2!DEgWA+;oW*GikkETEh*&zx4m6}@X#hfIO$~57j}c;*zTvObk3O`e-s2#-e;XkL#xbpjEl{b@ z$wcy8vevyvQ?$TA2d~o+o(C2q& zB-x9(tHlozJy1_>&$X_!UEKIWatE5>c`!G!Djc27(#q%w8$PCKk+Del$z2z%wx3&?MRN!v_oWQ&pZY)>ew67{2&S_CeYMx?87GsJLW=qu*guDa zMGK?eZ@TPbe}&Q{ePTmXPCh&JZV}FVjAX&7YTYTkOP3Q~7)^ek! zb=}*aya@xLwEQpD+$s1%p)g0QyUcGNrOUNDnR7YsD;t=Iwn4MXem5)$X@A1wi-FpR z!)La9mA1Fl0&liOw#2|{sa*;wTSHbhm~>T(Uy}fS(u?%3@$LWhy_JHKs(sK;Dx`MV z9PFDx7luX6q^)*TWa{4NHc_xBMGJjBjJ|6xrd!ybw}QXveSO zV`iw*j;ed+2aBDg>$|9Cu`0QCaqU1x)b7*7kt&A{9j36Oe<9rbpIeHR|534dU}VTy zQHt(sWNKl9@0xGWxjp3eV?~>S{N~8#Df;;|E;`=z9Sh+U#yq5iwxYZ`q(I3sBErM`3yP@ngWK1V z5_}^y)Yf`6cX)O9<4xOnp@{3OT&An+F)N-lmIC5D-?4EoJ#nLc2E$W#k-2IZ>@|Pv zo`7HVOFrW1(K^9lUNdHP`srR>E7=Y5h&(;RjmQU_tDN9Qs&_W-UNp7^S2QX{$y{Cu z<^{cBsM$>08Ms@+iE!k%>mRf$?8q4z{9W|s{NCq_)5j?Tna9F+%2|S8$cre@*ylL1&$kR#EWSol8m3x5+mLgKmhW855bg5ex#>6)`|QbeKx%wecP)t7Df^kq zOtM4b%y(hm>A()w??#@fv^DtDcn1X$9-Fp+fhsH9U6*NZd{1xv^XTbOx)8?IqC z9{hJWB1MO1+Y}jeoDS4m!hZcDX_oT4dh`Bt7Ys33bvyZvqC%>rDB?SK=ciVhcWZ5w zD@1%)UQuQ@90B zW9ic+(IP|ZbE2Gk$R9~InZxZ=_h%&WD5OK1?+1r-c%o~|y=+z9rqt~7bG{?RUNt4z zB!l$cx`8W)*MYuLKK0W)gVnwZrf2<{sjlvhGev2pXE{{yyi!^jEsa&YQJTTAcLEl3 z?f#P8VC(u^;zLiC> zbOzAbPLnMiCez_vRC~rh*hq4J3kiaRI9NFyUKA<+a5>_ci=s>%I4W z5E*=xGZAq4L6x^Iqy_FE=A0gsU{P(O6lh&96o|-CG;2(-0a=$Zj#^K%zAcW*ZZC@J z{+D%ZhX0+&dk`_OcO~gRH8?zEWQ~8><`93pGHoo1KUNE?9@3oF$ZM<$a7wJXHl8{R zg8Z%mWpT=zN7;-RwR0pWMXHMTjNHkptjHKUZ-D#LNZ=Y17JQwh@e_I(_rdzMrG^Xy z*WqI53_(lAW&Z~AO}Rj?c3D(ee84ApvC3wt=Q?N8ttmu2AAl1 zH>a6x<)6}?SHouspt-gqw!pnHcq^YGHa_oeAk+eB(J+a$NbzHFrhUUjRSsN~!XLyN zsWhEr)AF1{KHvd*P2|gnKr%7WFcp#Vk%Rwa+ALRXH}0GLtWj+~zIwTMJmIHcnPn2F zDe%3~8PBBJg@hmE-RXnS=5d+FO?j9{h7lvGY$oynd=Li527V$|(u_#%L7)3*#A)V0 zYo@kc53G!^wG*qY8&Rs7IQnGnZZaYs2gAuN~=!WesCC#c}` zi2L|D7?B3@YFK?NOl)Q#j%+y*M$fvZz2gYRn{kj~n<#SUGcIJyD99m=P`PoHc#LO$ zvN+Y-NHB(vT@>AaG;WoDF|u8EN^^`Q5R8MLQ{Vyu+A2Eji88!9It8=^>KO8MLhfIM zj$iMC8+>MhckVODv<>+awdm4lDzYyzL3`t5cZcofKbl=)%NH7)>j-t0xuwVV=Q$(!0yW4&|e*Lme{A(6hnnjfLNWy(Fvb#ol!YoqWs0^E9~i$oyJObcqC9t@ zN;7|C^$>SQEEr#Hh?Id=q&UZ&y}UOjJIN$U&Xp{`=2UW~@3@?l+vKVyRmt=QCET`Pw!+_%1hB zu(4@$P4W^S*eZyIQ?gl!DH7r)$&H4SYc`TCx&A=`;7m^02#ZYkCkwZh=+pLJi3UkF z$9E!T0?L$kd=3C2h0co7&0>E48jFKe+`)Uec0>XI@2{aPdt??BIHPFsw zAc#aREv708$vHXuJaNJ>!6}w>g2)u>&U=2vH7w0|=X&F^-=}SzliTLEPvE%rPM{oI z-qp84(rmnCCN=MAunB8R*Q@I<;+>JNZFsrtyLBgj{lTaA*ezU-iY~ftPOZ+XPVbb5 zu5R}J*uAoo#J5LPfEsqZ)OcUKgzgMk;5UE0Tr;=kh6h|P&jPClRN@Fj1@|oHck6y-FIiEy@UVxx+mhUI-M$l zF&R;BJg70fK^1b&h`^fh*k`5}#@HF<&7$icSSW7r!l&=<)wt!&vFxU|29-m5I@j~8 zS9-h~Sg`~;hiN~JE@Ut0xPe>c4#)l#hNJI z&uFu{{t)yu@EarVfIS9&sgX%+_DN=QC(g6C-2K=F@vk*}NBAZcoO>mk+{UidH>&n~ zAyG~!9k-e+;l`B*4jV5KwM&4atXU^f{ z+Rryoae++~@R{rKpp)rfq0-A0PKm2Ci3RtKm7PuO0~v;{q0iO}DG{bM_hU`R^KaK) z*U!7-F3lH>$}X-wIriYeN-G+lLC>UjZmi%A+T;=i6HA$C|EcCaa+PRO5zR8VA!i*+ zrZtX;YxvImesHO$e4Mpl+E${~wWRI0oLHSkP%HEbtfC)=g7c_@M>;QV2VF>? zVt#}2j+5`=ud1k9q&ML0@pJPgi>s$pFPm%Q9n`AJw2tT}ADd-(v&YSu6IEh%8YPZ% zfmj#LbN*C%*|LdY-7b$waOB%p2|^Awa~`rNs@5_{thg7sulXy_;HqM#8dy;>IJ2f+ z2BA1Bviyk|-=iK)pWRotGZOe*nyoc)Of|F<4s!Qoi(~629{MA>H5xW4=9`E1!uDEP z64j`d5D^!YcBcEX*L-Ip8z0kZ2^`1HlGl@q3gxD?7pepD6Hx3qemWQ8YISZmkA1a$ zfhf0{WS;+WK9{jBJ$VPh;PK{qgAZ2(Z#u?9H=kd4dzExzcZ!?#2|v6_;2Er*1SMkj zrNf}3>h--uubtP4kb*-3=r3{c!DS_ugh7_Dh^b?Q^9WTCbL)c!+Wd*@b78py4XP8Y zN5q9GM~bQIIxK{^IoqWFZZCN2s*bx(^+5V^xuRU$@1_0ej#_t8u)f5>_{gRf9`&@? z0#-y!`zr;W3sN@?zJmvcV2Snar^Lbs6b`(nu^3`&<+b}i$Q1jt;E(CS*_aj&cW>Q8 z-wPk2)5zXU1X2+%jxVa~t_IM-Nz1tZg094FTyBmK zjZ+t%!LF5qrGjr0n~1cRZ7;7ig2${<+U_3UFhuuq8X~91h$}qs$hj!@Xuk(HWfja9 zab@=alS4TEY=u*}u1ncMS7Y_g@#VPz#_erX2RlZ3WW*+`)7Ef|JMi`!vDirqOv6S+ z5U=EK&Nq$vhBFX{TIdui2*yEx!MYg`EWT=$g8y7632ZA7y&v&q)6&+r(69OpYW!R^ z2eJ_Mi+2g

;vfn-b*KVhq|;MhNAEklo;|B7qCs5y-8Ih`rT}8OGl6z(3vBZ5z;w2sXU(n3DDeA8caNAIx2Y-9Ut?+&0}# zRlKCp+CZXn@WH-1&aK|*q%Bo-dBxo4V8HX*^!WCww$B2@mRjIGT_>l0lv{V}wMNsVO zMa+^0<<4uQPkDD*EkZ6BQ*-C^R?v^|_Nscgv3d@)8YJB!0P=~gVl~(Fo!Vv(=YIO1 z++LA=Rpeia-v^~kr&ljk*?j&^m`p<4t{|5?2UzTnEZFJ*Rw*1)d3gxBL*$R#SNFuP znsfHgiCpe8;F=@w3nM{aU!Fy`fE081@TEs87QKlQ^LUHLzw&21rdIz2t$aXlV=#vo zvBzka^G%BVP+UjJ?)6FBz7v5sKO(Mzi>fxh6#KE7yGV4EJ{~m?y}TYC*^xPgb1JqG zEjYQdE?Tg;4t{PDgE_#OU;RxY8Pd4nmn}w>ZK`ed_pN;Q2~|3wo39`kujR#c1C##h zDdP{RgeIO)uZD}rSpSN+tlWlHZOrPWaPWSEk@nAZ%y8xWaj73!E68&deyw}0xJf1j zkvdbnx>TFY?e2a$X&V$gWjBh&>Rg>1f_l=e5~4IsNBx%3BYS(qGs78ae~|wBYrKzf~^ zu@PHw_@bXDoE_4+#O(&!y2rc^k}-1Eo%fTit{XfESy4Os0q`^g0($7a1H*>@co{Y# z4cjp~K9*j&6j5k>=kHT_(Fb9?PAo$uI}NB^r~hnXA)42E9$Q((4k#RKbIsP(`z&U8 ztYBP5M4f|!E!&4U_ksh0Gr4OJ6?5YocHYzz_~ z7|b#iS&F5+l5fpU{Bda(dJqpyVUG&3yxYhI$c_{YEjf6onrmw-0_RH zu=<(1xuYJb7SV1d@nB@N9*0z=aM;Y@4T6H|ozCzNx-HT{z^;kSmITqMSLU1`^0!w( zpeG|^9$A4etpb}BT0rY7p-sI_0W-+^%^o2OvUWFj`pcbC!l&)HEJlkW{_$LCz^vT% z!I-|br~|K-{es`Uz29Zp>LQ|K+s?{o&aBLKJiV9pAq}|qL6afej15?bhx1_y4*G_; z)FZwh1YMt{_bEyxbqxzcHwQPI>h9_XEdK)-=mJ-^7pZ6e0r zcy}}{na@;8+0M-8NoIPT`z|PVwFTpMM(`_;!hWT}Twkv{h|QFyUNu&yPIOBNekX7& zAhm+TS2%FgcN0{;(L3JOD0-!2CB%Jvcp|5kz_8kudpfy{16E@XQ zs3lHP&SxazEqN5CuCgkF{f<`qG3OuI|4lg z+FGP>(vpEiUw4U@II3$eT{h$u@e%Xid4-UjNiI9D(FNP`(p%l%H~EE6?c|zpQh{#M&VT{o;&sQQWqRlVd zo23s~xaulR+_TE!d}7?fKc1|3s-_71dC2d+{42oD;L%lh=E5+qXJzeAiL@q@N62tO z#NS74yU(7pq#^w!RliMa7h}r(4Q0y(=DtBK=}Pvd zW$_7Jkq@T!%U8CKJiaweojw5ek3`*Bm?`+RDQ~8#*YGAK(A~G|-v+P@lRB{iW$Db~1hui67pnuas(W)A&r_-d zRo<^>tzp_sw^b(uYsUNcW?C5(#^q=u0&%sRi()A@C9hhZzi5tvr@;L>s~$$Vj#&E6 zl}>BD7acit)0^?rJ0S87%czZH=Y-5Bha zjmfGOT1|y(|)XWOf0$A7F$1}%!xEy>`{0L9dMSXjCz zAx4;AP@)iAgYeZbXJyL9>>=Jd&&V#YDC_FjCygTgL4;Z!)e zGd1*5dk`6*jQra614(X)apOO})*85tMZJ>!6IYc2JM6Ca4h!q+O?&B2)paBBtF#5o zFTY)_DC}i{oDTlM&pHMb`|tn2@)k8fsP87foZl$ahBIomMc;p-I_+I%S@orDu4fY^ zGWKd5r_*mHnt1j_tyWASr2oNP3ckHX=hSqw`jnCPe*n(KQ?#WY)XSaqpV1r(XPUl|LfONjm4v8(1FybM;}cFbBn9( z^P6fvWgJ9I=&nXsp28-@{_xZV8N7sGJYuL2hS5UEz1)(3v~&>`hv26j7us_Nz|Qar zVFUZpSY>N0P3MBW&huW0xfwV2Cee9xGvUtxblxx5y+`6`&LFYGt&bKl9enyPUAMLL z+vE6ZcXo?>za?Gv%%PQ?5y?;R7i#aeFIh7t@v4tMIy#C=#HPeOn;n->4m=y&*BG|6 zs?r!UlNwm6$DZ@8KKJy-`?i2*oOP#L(<;l1efP6V=J?Dit{fI?X}yHqT^I?iH6?4i z9uzu5>Y27Dr|xmwPo|tg>jrejhtl%$B#&ICM0zl@iUH5n-6p7)5gAz5JSew4Tkmd@ z!uP$OAv2kU13`M9TfB^7Nu{P9pS^_Zwu)m2-bmGU~Xgl7`9wa|7G z)}=?9h#v8K(Y}b=)#H5&V^8Z&yINIRRIkvPBCccUPU}IHtBV(wTWUWRhoflAl^O5( z`*;A;v0AGv-&mwR73 zDXs??9=WMxD(;A1ytg~0iuX!vSx2m z%Ie;?`JL%v@9}LP=f%dmKg`Xp^@n>;&T}}iMm;T7s1^fvQ#5Y5oD6?)j@}vK`1S9^ z+=4cCD`4Nf?frN0+*$-ai_qI`!RQnLi3N39Km$l>j)Vf=f7>ao9bRZS)};z|2FbsE z8(P;JX|$l=LK8oSI#@2b%5fLu%nkB-Rc(m5D}xx@+p`=96kq-m%VyN7nAEbp?!9>ap~9zT%|4ii>r;!$OIf1EwdwSWcqE1-symfDSG*q=+%v zVO|W*+x$eyI@M#pgbzOP817}+J*N8As(ef}?4|V227JN{FR~>s`Fj)=Bo!;&^9J^&^q=)n&g3lctT_$7^%rCg60I~I zn>A=P4yPKSy|q(Xahm^E-d}hAaepNEdrE9+PwD%@qFK={sl}p*VkvO*?1P}+v%~BO zozuS-R$2BMpQrxHOt8B5pg=4oe11Df?lM2AC3>)#Y=82aL3Vk^%1m=0Mr9n?e3!$flXo{S=D3CNzgnf7*k{SLC8(^}dD$@y&I^e$u_+q1T|K=# z(g&pn8S7RPpZ_G{@8My2Kc-@TPuEE~muX+tr5v)ux$@jzylk;(udOT8jWlNi5$%fD z{tUIqFTa^=$$lX}CAl*|c%g~Z_`R|B%B1XPYj0S;{M@}O2j50j55*Q&kL>WiqsiZ9 z%o7VQ28+r-Qt(0Vhf#Jb+y9DJm86P1h1}$Q`ffd8yd0!{`*vHz>dIh7b)^31o1ZIv zD<}rs{waNJiY)iK@}J?LzZ1%CD>m%S5GQ$|OnmM0=MDPh+K2zHYT=O@+bDN7Wj=HF zM!9^ik^!F5${PqWQMyJq^YiI9n_@H4$)#;l&n8;FisUo@kF2*2it-KHhE-Gq2?YUZ zX=!O`MWnmCJC+{Sv^UXW&{l_);Tyy?) z%{g=3_i-K};U1Tf4cMz3X0G{OL;kth!y}o;Rkn-&);#Ew3l-|hb)xVQ2SsHzo5k)V ziv}X5=6-KM)d}~IBmC|=H@Ka0BED;r&!F^IN}ob@ZJ;>+fku49EOrfH*VS4Z_})4C zE>kmDaY>a&nLIICM(A{yj&oW!Jv?MpqpcC^=4RNjxB8jwEJJ!QCKN3{dhvG_E?r7` z{ol8<*@2L3veGl(pn)avVsI%hdCqBQO4pY7wQF1k?QBVC_KVuv36~Oh?|5Yj55q!Tn#@0NE7!2&xxjw5h(N5v}b_lmhQd`wAL+NEUz~n z9rzQ2D;=K6n_LE$7goi%pKHoPd+%_n^jU< z9u9`hqA4<()PY)y6+o(U>up4ia1yYIecx$LGq`xM)1wD7*Om~!`fcS{(j&J!UpGrk zYBdmi1EIMK zy$ZjZx?LQP_Ri-AD_Q#s*vELTJxxab_LdctniFor7C_~73(ZHe`8IZX{+o?9RI7(- z(%Z!Wm&1*v;cEDkzUO3@2~OCiE(3U{Z4$1O8VlIqumoMNB>NBj>QhPU_{D5IPLDa* zG}!%7eXrAEb0+XIBX?O-V^TTyKxElyW`g6NHPjIv&6d8F8IR@>LYGdIX}qyf;Yu~0 zudzcuCv-h+8?DxA8&{sB-l$^N(feua$aVQhQgJ z371Uj&9Y37F{AbQ9I$y489(r^n=N*+S}rB&Zk7oRuns)+Yx-tM1gPYnE~K9!8PT?MtIs>yrd!FqsR^GK2IvDZS`*qtG1&!}gtr-M#L90(ZK^eQ> zbn%~$MTlkBJM-2Y1)VMou{`9(DdG^WA-JVhMNFc&Ducf)J%cG|_r0W>T3PMw5tWDc z!KHa1AU$;zdY}Z0wrMnJ-j*J}%tQe@)j(4#)*?svs45l9a5yE8I(Px*)HU7LB2NHH54e+X1|Dzl}hma)6 zo-vj2o&~5%{xsyc4N?-E=iS7A-26l1#5-tud0_<^*&UnYF0`8GMY1ofzoPT&rLD!4 zt$)?TioXkseF^>idjVvG^U~QcgJWE1L*``&cyubxgYx5{ZU^jkBtS@l=>#EVV+SYgSh`M#&^aeej zzywoZkn&-@?VgZFMBc7ucX92l~12!`GVZc&eyjdC#4OdQIaHUG|M;k z5EENunTT@ULLOij zIQ~k%HXh_<-s+{l(e&L=w7Pr=n0L|UYak?e8Svl2;%{o0i6X^|8vV_n6T7 z-F)1<o8&HeV{)d9b+~aXZ>VMjOd!b~8ToHa z!&1LIlDB|>seXs#!CqS-$3C`N-MWxzai@I7VBF|LjTb%pLtDdt%8U|^1$eOQ(x&aM zT%}>KyBC*n4OUs<^Y)*i#ZMyPDz%f(`J8EYe>vnVhglunebm9|p7$|cGbCx3XXKnW zAmPiVmH5%Jd@t2=_l`V5?h~dyPXqaRRCC+&?s1_HE1l+Lmvb&yQEY2J~hONZ(tqP3P84fss5v|K-&( zIiKIA^hOZ1VsIw5=<70trJ2Lxm#9wCJeR` z#MiZXg!eVbzp~R(kjus9v{j8Na*_CwiM=<`qzejSZ{J+`J#3mwHK$yM&5b|CDuvW* z=PefqpXtQR%zb;5CQgm_P2F~$_Gp=gw}uApGarAr37|3|5m|D1Rh7Y7kH)6>{`Y4E-ac(17P$|O<{L$!RnkEPE>1FOw=J-L7pcQ=^o1i z#|7|5A+j=5h)|?_LS*og&-vdz@>bn@=vdh2x`Wl~*eYF>O{4Ey^MT~g6)}La7v@!G z=D^ym=B<{Co^g*F_0WYzM=vkXKIWt#7Vpg8u|#cm8sR_EM6bg}TZFri)biju@MMRD zrdH;y=GsPos|}#h(0WViq+2(3DCMH8Vl$Q_EB17^$S;Pt6~q)~)9$&Hvc)bo8V4E1 z`sXd_ubA4ltt@JXSt;Jf?y-oeg|@mo`%9Y6Y}l`RGg+{Kfe!cOa{Par( z^n8+_!Q`I=FKe{ZZjp9;oqKOOi@?>0~6>|}aV5~aD`|g#3t{jOuPe+maR`76$M{L3^2j;&+k&eb z`^J@D+8!7-?_coxPsOJvH0sWVWq%Gno*1MSygl?7HU6O~@M0#^*tg$z?=`RCihCJF zP3zb;jpM5>Uf|Nw`Yfe0RoE!Y?J$n?*bgc-b0Ou;b>4Y`a zZE-;<<}Kl${kxV$J{03xZxOp7KQI&|b#C5MDhM{uqvFqQaBN2ck>~By9xGW0piPQE2jhr^%)XPv_OAjG~>i1N2&i zIJl4IS&C>`ZN{D-pU-yx_aL}G=H0Vaz&2dQstQv_VT{dn5ohrgbzXZrBPRRqGw_cS zd_4MTNRr3>YUYfuMY_O!jUZq_@Hh6QZX{(!Y>c!;qlHFWN7m#c+O^!0jG{wRci3)! zLk@53WHu0#x!$U(-Rb%z#VN%6j;%VNG@9GdMcure+ja~*-*8DluIX~oRqJq}!{4x< z^|HW1Mz`S;zq@`6L#zGW5D{LXQ|)z{A6HKcsP2{RMqY#zHK++TpuAam$S!3eQOE}# z@zBkY-;NxY(6#Vya?JQq>=q`nZ)>lr`CYm8TnBA1Cf2o769#la3ynkhHermKuff3u zHS%57`d*R)amK+Q-@cKdbi6Nj&-3``LFLTLe@EsFrB{bwl2K>|daNxci!=1SpxXAx z5XSO+S@h|l+K`K|U~Ro2Da408cbq~1u@5a+sQU>Z9#cP9VN7LA&8y&ZAd{`@KTyz#(~_N57iw?iw>Bn6#vOG$d@fYmbieb0Pf5$` z>f*w@e6!}SX#9n$`M@A$muqNA+j?MkRHBHnBDa|tY3#*l2$X4Z2TMP>k_$ducugHU zZY;BJ(s$*Ev=p=KlHL82^lTqhE;&omd1Sf)=V<^Sr{t&233kN=J3M5x%1o(NBt$%b zzKhULBq)4!3x~E=@4E~+nFAS4C*Y*+A2& z?zdTukTrKqzR2k&!@}7|lY!|^c@2}AH0PiNRLZhy!P1IA%XKkEIIQDSwhfrTOLrj= zeY6TAQZ%6FHx%b-{=GhiR2=NCO96ts!|h#S@arOLJ$^Q`h613sQeY_XWNxUV^>0iP;iU7 z>4?MVWGud^_VQLV|6r0I7LOHU-slD9K+yoJR%h+5FAaP)1_;$SSrcK0_!GXsTWP_i zmqA%PYAs_2)$jUjPhpBIvLp;X<6BE3S*L|@her)M2yZ>yf5ARL%svI^47uQt6QntB znims0AXBrn-dVoxG6fkt(yemLbp~8hvdDH{puw%Q9RQ7x05&C9)q(B`l5jeUYJjJy z3$-B*t|@#k4_p@)@0cC^E)rwjo)MVcaTQelDReUyeik>(0?`BR$Si`Qw%S4oU$=A! zDxs(UJdKs^&UBTJ%FLv*EaP`J3Phbd*EaP;Zya}w?q=`2_I|Ioe<(%(x*dBOZ_Tcj zIc1(A8R&kCNVT(ODRun**BuF2E>U>>CRN7uxg^-s1S(NDgL}H}mBn+EqIjI}{R`* zs14HILVaEXkeiA46hMw2Yev7;WK2){$amn0roGtVGFgLl>0oof_0QXw^E|{ap#uqV zZfJEzaL-dF+EEGj!X*RNIy6Q4j8AA2@bn`B*~R3(!5*$s1b zr@X($hsGiJ_n4VK|G*C(GQg?2?X2CQYx0eZ#*aF%HY0+0UsuS!rLYvkuFeF&mj)~YYTGMwQ9gBX(z z9{Sg88-`%t51ad6d=*yipK?av53ghd!_LP4&>`NzD_u*t)AKZB8qmv3g>R=jM`KpI z&Ce%QiNe;7ctdN}vV2}z^ZQ*|w$5JT;t%{A7Xv3R;dAuH;Fh4Q-kH?N5vZz4w4+)@ z*)uI#(Ll{Qje9;S8WI1M*zkR}Jw2B^|8?LrY&Giapy9V`ztr>fT9(%t74?j)Y1WBZN)>lCcL1(kQi31Kxa>_( z%_Wv}0a6)sTW>-OQNwVBgZdx-mZWOsF#)fWL`t?o_P-xXwy4qQGTx4_$Ex|<^$KlU z?_UV|LNIh@5{{#dw5w5?D3*wSeEj2DLH!+zK&ldj_a7wh&CdI)_(cCrXCTu4fP1!S z^)m=}xT%OnY^d~`DTRet6;~{K)zw>C zv(tGo^;w{*g~lT9rr9{Jv}JCaDVd0CZ_`0e=5khT3F3KH4S2EF{-n>g(6UqM&aC|3 zXixFU0B@E z8R4f#nMSRkxmehY1fU_VcfsJvY_#XPOIvoy`ZbA$cdA!&ip$HSHh<02L&?aC4pCh| z2$i~Vz2VmS#NtUvn?5743wv1Lw6Dk^cJ;w2)P9qv^cBT1!t{=2l+V4Hf|6XUTAbhC z)ZjO255Ufr**K9EXFtXTuYA76?qLRQF8W>j(ns9|zCgjQ$&$tn5jK|b6`RhRznPM8 zQ~0p&*am3+HndbqB>hXxAcB=>l9NBXSZ`5bKvG(*GVS)|66&BbR2p2w)-WNoMbmPH zir_drm5|!oglR^OuwzG$E)E^s#Lpwl+<38nU_!dg za&Jm$eK`6OVaw5JFPp~e339*+7PQ#Tei&{MbH*qjE|01pxKq2o?TjYPi~wO1DpCOd zQYCVYdzu3^`XHsWzd@Z|tVW`3IEPoXm3`?@cS=PJFShqM)3760YV1V1p~S`2>zm5F zQt|BuEv{u!r2c@*r#Wo7`%7w`VHGfYKB3)CQ5G>nf~M$}(;si2m=UWjfrmI{nFes3 zww$JlcTD^wDCd#AC~M!(`mcl*JXnuu(4>N#5!R0As%g1|Q3!eemlC;}IggZEHIc!? zsnG(}UCg|FJ1jF7bw(3N1f@0TXah8)c*d?(9jv_9Ry)QgIyE)dBzH{ta~8L-+%wY@ zd1lMl?MURz<5BX=HAzt(OT#3IDUE3>WnGN5c-~&u03V~sU!BWRF$3cQMI7=+Sb9L{ zX>$F@pl?YiV+UYpiM9R;pgkVNLG}8|m^Z~~N6(OO+$=wv@i5Fs_UOC?RqJK6JZc0` zS(Wj^KkO}ZNzo&R{1VV2I4 zNUKit{W+Ut_nUiNFf&+*)^U93t=MGW&cauK;5eB>?B(%I@Y)Qn0zG3(xUaLxCBtoP z)z5Hw^+nkZlRsR%-zfs+RXt)`IqSQcM?Q}fb*pYPz6wfymW8nMTwJg3TYfmrf^UR? zAcH#Z8Kysp#f1tn=;}FVXC4J!*(r9Xus9#g_k7VeMYXphcvm+0@5V|Svj86&X&0Dy z{kD-Mu|4qcqE$ZYZ`U=dh|qj1&GwJc;b8@LyLh+WZ2E_<8lX zmTMh7K$gZUEhW(mv*&)%&Zk9x#!wO@wiog3%_do<{g$~v=y5}Ft-1M1pJnYXWmlyY zlU&m!7VHRbq+d)$WAieDX-Psnm0j1N?F}B0BokMsE|z}h9QD&OgCTo*!Y#=)LR7>U z0bN>8XQN))PqU|Feq6k0OIhB4^81jsr9Khz_*5xL7}H$IUwdD`)^nr>IXrfyCW)TY zwj}wGrseDdFrg{~dbB?^Rx)>6WH5q(E2%ji zcx2BbYairtqQd|EVA#*W#1&^lJg1kpk;t*KNbjRm9+nynLj0&j_52HaCYMD!kaoz4 zo3ZRIhe*}~v&fSQ!siIn)(*QIj(=x-=Li-xFr)NYO5C&sogXau+cRo#%ZktGbQE7+ z&GGFIWbb5p4IM^?p}Z zf9!F?ETg({nJPgO=N-P{SIrd-Xt@1oA&;Dny@O0SjktiQhI^^m&TLa(BX22R(P5Rp z)6~utU9o>VHgK#^LdyY-4%?OrE1N!1-jI!h~jT+*lFv zElrhAC&Y%YB5cMuMBncwb+3bwim{ca8P4+-QTto-9@{QL#XUb0k2;uYh8wKe7mTz; zaU5sLFV8v9!(sl;f4*(d>1+4%;z?0*ATsB88VWpyt_o42bQ-x=zAHZ}X6Idz=_?GH z(|_0}Z_iRn)%GtzmnE-ivDyM`uraBTHC|&0gwp%qGS$+LBh_iPE?noMhP?i)JOkLX zIWe2n%>Buu?Do<&AGt9UePu4mF%Q(>cbG+RY{LFq$d?pd3HJT5M$#p&6(4mm^eL~G zp*v!f9h;{@Aoo5?2E9*PD)ROt%e?)MlWd<;u!UpJa9CT%#@H_0V={{e^1h_!OnZE9 z?$S8omRqM;mn#<&YMMJ~5+-)vvJ61|t{(7*mb`DC@PBL8c=u}*CPX|r<7g2KkY>Ma zELX!o`tCYnyHX3{0)jDT4>e$)<6jveonM(&bMLm#%Py|Fq@2zkj+wv&_wAQBC_yd(y8=nd_obHSbY(p_z z8;n2oC6uc|LY?+61IAe+BMK!@<{i~R?cs2aw)UU{4au}8soyh5qsh`_%O!Lg+Zwl( z6!VTug>=92@=Ti3c7WGAM>#QknvP@hS`4)fvy0Aal(liXsTrvbC~u9Rt1AxtoIs}8 zdKRCxQR(kuG@o*+*|@~s59x&_EgCKOBezP8n1mzQ7EBl_(uE+NNCU)m<$`J{xOiT3 znK=<8!|xuGIP`w^ZJWDgO0z>92l5+=`-oP54Jh*)+;|Bl&d6GB&c;+3#_V}Jbni*5 ze<6&b=(BBWu3UVTz>#@*L>m8U3^&E}n@0Byb=7ua4nv!oLxlq3Lk_29N+Vrg7EZ&! zb7@*{$$*a6+UfrN-%71P!Q!A}2K8|HTb$+Mxl>MmBn24X;`RBB?p<0amPK+l^)^5o zTZM6j#eW$jl%`Y*ah*QCwg!`@y-FL34_yc@(;a>PWb`W|GYfzJ)n(UP`V%+%Uv;0= zX~g(BD1OFUW`+r<0?fZC-rt1>o7Uz81mAYXOkFYgp#*O^#9V6$A(<^39~(3kKac*| zpcyA7Kv8@2-(p+TQCXxsDnm0y^NG79Yt}~#9xD~b4`I0?lKTA@S`hDAG{TDK1Iav& zB$yWJY*O9Ngmpm@{7xM9KbEcLj)rN9cWo;Z>28*^RXawz-6tN*(vUP?GCVYGAw$+; zQG1yl@}X^Y*7wQLX(AqU|A=W5eN%J&JruN?{(z;%<3H^;lMwWXK?=}9|M~UKtW$ni zm}iiyg1W2NCjszd1aGax)*9^HK?tyXE}Be{&Jg=s-m zSInJPy(i#@c6piCElR^#S+w9+K-0ybGwrMEFL)}JsOSCfppzvs3zs!VHQtv^#)pm3 zo^1;8IfK_cfmeE)xJ$j#^mqoAG||57V6CL4Qg(PPA~0HR61FBh5Nam{kcw&&V!-eS zY0sDmuJ1Ldx|xr*v`wU>CUwetQ{v*ge3@5ncVS~o-wC)Z!)<&;crbo&$1RhD&W)1k z!q5tjhFprp&^a8m&P9DdiGA}{efF~>!^n8(G`PdZp{lxVu#GrU`X8dvM%e-w#!_KY z*G&8|Ly72uPv;yJiDrvjtkm!li7~XEn~61h9naJG6X54na7)d7 zcE0WH4)MYF-5pP(wQeu>@Hi%=HY`Xu{qqW(Ha%K_e^Zu5$8`;YUuD*m9he3%{cgL( z>Zn4@7i{dT?d6w;{_RX1JJpIXjhyL>ik--ENKi#W}Zy|W}p ze;>bd>wxsd_<+Z;9H{m&7lw&#xt;^{5qIaaVh7LVv7ENS){RFRoAHyQ}8bKy&q4%rNSm z-LN$C*Vl+?NNy*!WXnG>X;6)?WzrBWhoq}b%yz}XYl)%J{!TE#FQOLkss3WH{Ko!j zCw@!K`FM`V@%E4~Uuso#tmWUbEwA7>72sudTlj67kQ{*+Iw~#wd8tKbtvTWlK1ec~ zNK%b5J%|*tm(JZkcb=q*Nid8N7=aT$$jna>HvUs>~EMXA=M ze8zH}6V2kq_riD&sI78qyqb!+C2hB8`}sg9lg#)~FNckbIZ`Y$lK#m{fM3hPCSff@ zrPliu#bTjqL;EOIv!wm?BIlQC^CkWBhlV*@{LA)LxOX+bw|sVhB83PUWOX;X zMw2dBoA)i>n~g-kc5Jt%{h^y5cXghTNEslYOIf{pv!4N#y;R>YYgl4NnRzT0oY^#2 zt_sU@b9;TE?{b{UNt`0c?+Y4-0DnG?&wZu+dt5@6JeFXbz_@QKbcR!(v<7Vs=CheC zEUsL}PibeQ4|XpbZ8@NN{eV(RA`8^g-yZTOIs=maOTV(E^FTyZHel$RzRdg@&i%#; zQteZbv*8#x3tO{5WIzLN^GOZo*GK``vK+t-T+>Hl0g+Eg*+IHEZ;M;0DznlF@1gEe zZbnD;OlOMm*3@?bt~LocD6RJ-&2eYEOYDkdjkuGmoVUX` zIEDDPr~%9)7>K9~(jH#~r-@d>aUnBlNqt%p4w-gi6EHEf0|2&Cer~&=+Y$1+Ee0`5 zplM<^nR}kITx_@C8+~X=wi0v_d(-?d#^4`zgFxa!;>?-CaMJTqt0p(5f(r=3!whTbdr} zXo!Sk*y1kxB;P4j=ltOEt_BZ7rgS}Do2T|*5nGXUVpunRo^&^}Yvi%%o6b8#5`xi= zbaza`C8Vd<({s^epCTgHA}!B(*(1-vQ>nVlO&h$;VMz$_@AMd|P`O!U_jU9(Dy+aF>HD;&1yU~H_+Q*(gq z%AIYXNxMH|N{Ih?F(^%nn=W9=Je{+mof?uHEPc|5aR*-`g)r}q|FK2~8GY_~mfoG!AnP7{~o zmu$%kGrz!HStJPggmvB@D22Y?zijjthhl;}z&!owuTJ+76}~##n$bg?O2&SCfWUk$ z(+~Zg5!!s!dTA0STVXRjBXyTw1O3;nT^Zdv_*>wA=UYOF#bh9Q>KQU`ZU|D5e3^l} znrZxW#W^Wkm2?Bb8X*+Zg<;A--+-{j3EPrmjQXKuV5rShM`{{r8;VrGrdlEC*1d`> z$ph3OUa^98g*jpKbxqk6ipmXv6Fl0+^Myfw6TT^jk5h647GED~8%THus(Oe0zImh% z2uCbfMK9E=&Lk4zgy=Ud=V5EhQXSV9yc5LNB%vzHI(4{%qSyWi*5RR`TK{X&eQ3ql z(u{o;+xf8j=2ot<>0Yd9p1CAP!eXJe2d*S^%}n&4j+NI9*KU=d{@>`noKJJ;y1A(Y zu2RLND|-*^Jd0UJvus_*dO95wkwMQ^gqiuRccYFuD=KgRRa+x52Hl2>FlHD)=XnRE+vnDSwyd1&~BZu43$R%f36`C zwY3Gww-03-n$WYJrGGDGgJ;+^X@uPFy2omIBbL{Q!WLKznHC@o9~a^eb+O>X5 z_HErvM>R|;OkTYqEsM?ORUu4G4t{lIYgc}j@yJr2Tsm-5*vK3qp3khcq!`$>O#{$H zal`2fN&cLrcfd;ziEd=zRNuob=xiM9Us~rp)X~LYF;j0Xp~!Q=^_;A*l{z!Pefyxh zKtJyjeKhKF!l>S2@T@!jU2O_sg=Ix}lmsBuKTZ7efEt1RTkZO=LK{Ty)%hIMkUi@{ zB5XJGqYGRc$!R_Cy&_`+Rua3&P`(nJ1f3BSQJw_g8&H@ge6R3&il2L2=DxU+xChL~ z`k7uAj|@C*^RQeCZfjXNYrJVvF9UU5862BCldsZw*N^i^W&hgo;A9(?KHqEkd6?UI zIs=Blf1;Q7o(r6Q6swgz$S%aZ?JV;w-Z`kcOjVb-BpuIQ;7l91xzFsFDPwPNH-DoP z^Rn>k(?K%)4W;Z^LUs9RCrNpEb#5o8n5XtX9t#ZVhyVC$TSvh{by%UtW>;1;ImqX|-V&VSNM{mxb85)Z4fLLG}R@+?>xP+>tk)`WwkFaaFzN>v{MFYXw z*A%)L57w_OnQIlZQQ2b05)wJpRMpPGJCYY)r_F!Fo!zD05}*RHw!`Cl>dIkRGi(s} zCIUNeX+~=rbbOM}=}t3xBNxnin<_qWUUt;;CAqR>GdRF-KBt^&iF!RnoQ32rKLep) zAn1Oj$>!+?9CL>4-O(#N_di%R&4CS|25<5lmS0m;5J*~FDqMh~MD0J%y|UPS(cK}| z=KXYR1qWg*Dp7O~_#0_Ku`i|Tu_g$aG^AguS&j%l0!JEYH(@BXLo9UO9gTF>D+-%UWv?^yLV+TclL z9K~$|Xd^}Z6S{;|gRG^v4pLn0y4qtO?&{L^9G`9#Q^Q<=gYMQP4&IB0cw(ZHDvcE< zV$>%YmRnJNM#}fR@RolP>mx9Ori?cbE7+RU`l2~Ml%muNaAT-^{&ek@{oT41n8LTt zCFRX;$3Lw|)fHk={ATfA#U#e$!hr~+l_*F6DNx_FH#glpckUmH5v1ZNq_Q+?3I2Fg zOyX;RR%Yd`b>Eg-xbV=_T){SOjo9bI#E3KIVx=+sN55>3%Fo-l+T&Xgtp(6)DzY!~o$E5XZIzFZT)y;`0RTEP zrRU|y)A|^(9)z=>gk*vr(xMZ3N_P^iGz8~ME&yMt zPNLhNYo?j264Nx^uG5|66B@(^$rc7r*BPkdGvfzk8{KV>&-K*mMktc%CPM>&mul$3 znqw-(kx7k<&X5e)Yx#OUeLZy!%^d8K$1v1>FTYL1J}J)dQ2Zo8qIG@y>iy0`*S{GO z>&rxp$NehsCEI}B(M^mhRXat(Z$%jg1`SB^JS>8DH_svjuHDeKRuffSb$hX&(A+Ep zmAN%pVy{8vj=GYOF@(H2Okeig94avdapicg$J`XSBA>(h?Nx379#P*zaMNmK3+?XV zK6i#2@&Mx*=IVmmH;?{kcbUr7ry`_IQ* z6+`dNOe&h}))1L5YLCzo*T~16f|iB3uYz41v@!Fv_To7~mefIoc9@;O8*ORAO_E&) zbK(r_;SaF7W<-V>3wjtpROxOFitL%{J zwMcYucNNbIwTr`%%?j7}OG^pwAUX4Lo}wd=Z5ookYgmr zmlqQM;*r%~q*!VpF0{!&7dL|+KUUX&_#C}_k&Aytl1}N~gEP zU>VRPHcn{__^~%%ZF4X1YcBE{Xrq&sQ0suQCM{ zC3mkZP*a=6|7`uZIV}V&uG&7ok~aqQ+GQY+tx0#fp+erMRXFz0;Qle}?g%Ktg=KIpMZ;bwTo@9CRv1u+`a2`kR1-|MI1$ zs{zClLd1Tf6Rc*pyqInKg(H&+g;q?(+89!c$&VQmU6C7HXc!{ha9ZWI8G}4xn)5}P zKQk$D(8*z-`hpcWd3d@&S_LGo{q1YC+~|G{N{JsR!|9<{P>1e0RV0(zgsPaw1C5z2 z+S!3)H(K#(ugUKAK%sQL3A+(WZ{P5Hb1jlfzS9fZJo-{{(j7w-QA$4^#C9RNauz)T zYXxKnNKv&1no%G-LO@$LH#_o2-hNmb?o*SMgdL(9k9L`(cW-})f9djq^;#~6x?N>; z&64%#r64I)fqjL{nriSxo89gK0#c}H+hs(p1mUSMel;3gYf1jsoroc-QR8Z){axY4 z&o3<{6+Ac4(#a2BULc2(E6P@Ng6)lZOZH|hb2ml$rmg2*^qxqL%|5D_um3~)uvk&} zNEdUn9o8!J9|P)jqGXFB9pl7SUZOFYQ4{_u5Lj*+bjK-#MLsIU>*Pyn99;B0e0R=;1KXV*Lk_OeYZC6*`XR z!SBj(TJi&b-FK&&)O63{T6~0W#qlzn@*g=&z)tmPu+`Lc&wr4#TvD9hh|EG`WZ+R} z*$dP-_bU|a(}mfvl5&S3s_kQ7wm@$wl;Jz0g>W_O5KMYh<+|x;_u}jH*-Io9J!rEb z5}EfZb*sj!FU$y4sLT6i*I&wYznntAWvA29@v5?V#-R6c1Gx}Jfiy|>)hk(Q8r=g6 z1XRX24mDI+_fa#yT+ zZ1vG@-?j_6f_?pN9TC@YD@S>FetD|-GecmShS!)>L=1EN$qjg}YiJj`>Q7P{s5kZW zYY5Y800Z^ns_cWmr!w)lkH6MX*mrv5PablwvM{S;WIl3K7J4zrWS8*$cSR`yAvRF+L-E{aqnJ8=yy{uMqoEfF_2daMsA9D3-4fz9S&V9`VzC zBi)L8jrARYI&;z@tH7|DchXFeAVvBd`^eTiadkBN@|IwmIs>^~YP!8co3XP&#`7_k z#(@Jw+F{sXjJ37td& zut~03iF-k%NwC_ia;~E3iAl3T;pe8O)#|P=9h1m~@@m+ON!mg++KDOVOT7TeQ(Lo` z$Wwub?0xd-uam3<)#5k>C=C897a)$XdO8-dBtYn6rBTIDC_uG6Aocp2kf-QGw{>>( zxu*=@pYN^Ds5Z&WB1XN~YI>e~iqv$!T=@^~DS6bl??vOk4p<5QBoPrO+DZfnAACSf zt+McLopAyNz6xf|1*iGFlj)lr*$%Q|`St2hJ8YY$S*Ao`j9V(q%K_WqNAo_x3C z{JR&TJsMiy!ad2*kJVeBDfN6~2u3ykie61Gm*xI3?j)uYR?cEZe%zSa^eQ|ob%}S} zL22Tf-KrkI`lv}*_DvK)|3g`ezRrL^A=oG@e|%>s!~!A%VSwDxg^iH4#1)470dsT> zYm;{DgW4?0F?^X%+GKV~X`M((cjBHUG=1>0$`^g~!kpkoRmBrRmgy1MYO;qvw0O11 z2=nFeMtj;H>Jx*@_*dBbAv?4Mc#DAvqfcK#lVS)b+BIsjA6%nUTssNGPr!U4_*#N)sOO~VJt)K4Wokw5y68f6M>u+E@eZJl(7TKK%bv_v+uyv;VE*rd0pl_2|KabLs~VDF3fIM|*(1 zx3wFei;oAOe^J$A`NN9`e;+R|au|FgMKBTe4zUBGlxb7PiA$BDbGAyzko zDiV)U9ZK&R3XM)*;HB;8@`hryjlfbrT7YQoR^KCQka)&Q8enPFoF~)8yO|4`B?0d5 zbmngCIG6})x-<--wnyv--XGPjc_HR7OVxoZA2E0<+t!kQCq&sT)0-vf>VN|hvX6xN zUrIcq^gH?_ug$ouXfbhDoIw$|WN<5${cI@w37J=Zmc1<^31z3d1FemC8TI0;VE;F{ zVY}o%f+H>UxeZD7nc;#FIwR>sLrvSec6SSOiC(N^+cB=K6OWa#!uI)iteXV(%W2}Q zvl8|b?^ z<1;Ex{ueJ1r5=uW`N>;fB7eS$(l<{L&BB>`Tw*sv&em~H6Eg;9S{url7VlOE?OWrk zIH~%F`RIJLsSnR){Zk-f^OX1vT$@n~J<pMfg4u76lnDoO83m5j_gVs` z3aB9N14XhwIf;|f7ZQrZW_6k5p1)?MjvH6MFJS-uZqKUp$D;y zM>kjVVGeG_;gz9&!Z=jX8#$UVJNATop})@sKdh0HRj~GKCh66v+#|Ebj#K{V`Po`g zkd~Fnl~w{`B#r0i$%S9`RkE6N9uYjveZ#^;v3Xjd*(h$ip-1w3zAb*hL)Gb?)sI7E zr;CbAmg?6-z4vC?=>Xe=#-0a!a@ut>oEpfPkFW%rHR!cO5SHNoZ+Y^p$J(m(DGn14 zA3R7T`hQ#A+ua%v_`fZmv(W9b`R>KjzrndZS9C2xi3*9qZXJlxry~t@k@lQXyh^|8 z!>j4!cHswE2hsD&urDPknF*TgU61m@RFkB}qfWU@!IwyT?a=ev<>n6WJDeB79X@q@ zB>Qu}M!ZkVvb4{=w_-nj?RtrqaYc*g?$-Tgb2!uezSXjU&|1jM!t5Ke&a3%;=E@l{ z(>(r;4=c@mXQ?^ZA$E1#HG+k+9*9QvRhyr{?}Qn??)Rn_vf_D?;abGy2OiNSp|Fn6 zc&&4WwGi*DiI4jdRHa50xKC!vU#Yq|Pddt;Rn+TSz<30vE0+`Q(Pl@n}`Paz7P&LP7C!4#WgQ7)B?2oY+$G zHVx_`&#fa|DB0&YeI1chypHPDImlqGs8fK`T%qYfW5H(J_S)xMWcgM|H6XXOSeSw_ zJnwt_Un23brDkWBA6AifcDEw5SxZstJrTEa#yHVQMDCd86QdVqilr()xiCl4U0w-D z#UjZux(*1gJ}0yFLH@4=%zj(IimM|*#J2^wep>+M|2OG5xjH*r8vgH`wdwQ@_ek3e7#ftXt4hK^=o)WEq`>fE*4l6$!d z8L>Ipx%9v5G4`ZilvrW9zp`iGyY{-!FIJ9#uKQsaCVe-IQS!!3daA55t6trx!T31r-d;;MfxpkgN@m;K&mqH;GKj_Q=gHL2(@;#DTK0L?C~L zSSC7k3Q54CvPi(XX!;cY($OYz!fHuAG+!#hQ@RzYgwd9Z1D`W<{5m!3LWb6BCF!x) z8cJt0V#I@*2SlUqtJwDK?%Yrs$h&`W))nC&S(OWDZ##E^qxw8VfEKb{AmPP8ePSU* zVM+5%SS}zod4wlG>jUYvXdhQIO9p!%JN|r~KQ{C<1&D2GZX+2vD#m!O6F>g*naLn& z)#aT1!Gp3@f*(FvtXGh6c2>~v5Ay#yw)p_6|Ie|(d_Ox|dlOe1)BkmA|Lgt+Ah7;F z6w3dDVluaMu{Jez_`mkx>PMv%uH(j0?eOgdu^>TE{~xrIp^2qElZlPZUo9^nhFJ6U zm~1?0tc&^2D-uk zch3%YNk#d_`#anijZ{4Br!c8hdE(#<<-d;^qu9b=)DHAQ&ah6-`uW^0PN(60%8E+J zkk@C7?WWE4-D*twJD+8NO6*~IZER{MR~*`KV3=H0QT|C!rVuY35#P95y^jUBJztW?9VLe zO~qui4ZJDGC=gTLz6e%QDR`3|^nX0G*A37lr53_}4!>P7-3n=TGulwE`^tOKYj8F@ z?CExQP*}Fi^^PRUDs~%SAbNU_|5Rg7VBj3+p~D#kJ)9_Z-cXHZL_rLR_TK{1AU#_j z<7u~+I|NX`%IeG!c+rx+0WPnmC-g}iqfqGOqvmV2C{Fb+B*1RP1Z_8Je-tc22&_D4 zUZq`W4*E@2&n3aFp`-Oc!&W`cbNnpIo;?`UBo|=EMWOc0X8b)%i6y6R+~5h0Uae%w zc6*%^;jDiPBPKuPl;T$rS)0yMnqdorx%#y(kQ32?h4g%=%4Oo2d%g}RrDm1F_D zEu@}S&8c;gWdJNEs!w-Fu9g5@2pfzX)dPu)XFrXHWtOx6M2IHCqNG7FY1KBnG}-yI zlU(l1BGY~iu9&ixkSa=tIL1i9n+x%MzsqG066F*)wmsPcONCeGvp;Vh71V+~c`mFN zIBlvl4M=f-3FRkGhgY}P_6K*94cnkp!V9WTwVaR!<63XP&!))P22po5GjYM+>4NUa)IR1MBXCU;MLriH&C-jg1%nGqM)sGQr7OB!n;Ee4haji=VJ> zXA>AEI{K!h7^(%%wg+=2*c#STWr!Q*N5!ab)bA`(!UG@Xn6qJLaLXb;Q8B};7pHI) zf8j}fQ{TpNng|6~GzR?SH%L?#p*R^)nsv#)t_wV&+ZhBj zobkf}z8pZYe$+$HX7hO?d~*>h?b2{wTl#-FX|lcf`6mm8G;PKpi4xLq!oErpjCO?R z1l;)rdf#VPa$UR!pG<`IK33&Vxh2vEXNKHqk;>3u-*qFJU1Tu69SMgVMsi>!n!~h_ zV*Qm8W)gaJ?_`b`>i%MSa}&BV=9n{s9>*d*&L^a z;Ktlh3!BAiXcok>j@7q#>AMWVcXu|_BF$EV;@R{ROWuf#h z7wC|fu#Mk`=)h9d@xJI#l3;N=B6J?1KI0o$ab!>Yl3BGNU7cei+@#&84v@(!jK0ya zhNHCgTE>YGy&VvR;l3MFk3xID+jh2d@_SmtcrbT(VxzmHP*G)1H&n93lq#c|p5Bi* zxnq*_=?O`M+(T9Qrwi~lmNID7EO<;+I4KY>+fJnGvsIZ2*%J{IkdUtu$9F^vPZ>B( zMM_`0XvkBnffA1MeKl5V<|Qzf5zLTByo0e_%Dl#kfskXh%thiv_bCcA9(IJZi(ki4 zew26rbjVKT%k9bDlV;u1Tr7RUM zK*ui$=NUU#t>OWEGV_ziYs3CpEKGW1JPWd{VRAB*+KObR`FAC+T7Z=2!;Wnc!QzQX zO&UeKmc+w@W4J-@JEqrTG0kaVWt2G*x3m_;u|z`3oMpnMAJlL9nn2&jQ$mNn4M$~P z7QVqy|Lno9T*!~=w%JmpwAr+}V9!1YD;P#KMOB{)MD?eW7$n)2O+xT{9)oR^xP>EE zlHOspq$>&gkGTEdQ^J$DOZ9@45JD7c)2b2?(p-q$3$oSIq-69{d_eHs3`duUi@sW=EZ~q%_W&YRb&QJths1wTcxwFG(4xmFM3q%=Bj*` z{W7(PY2Q1T0BLh@MIOEG;ev_XQXu`#Z8}i(wVDD+l+}14)+pfoVW(5+^^7&+$wIc*New?&1zt=={g#$$8--lYyWizKW)Sfwp>nlhN9BpM6btv=T@A;?wuG>l3-cmh)I5v9{LT<{HvPNv2u#C-;R=){dDefRL@1=$&Sle>Vi@y zwW|&v%82>uuW18z$i+~RYXkOAn5S;$3qxkFcal|WZ?rY9uGj`n!nJd6CIUC5OzsMr zi!cJfU9uMNuVFOb+fHV04gZPEE+6$wbZ5&;tQ0Yy*XO9V&zrQPx(0{hc&6J&eH$B@ z`@-hdCN6Z})?gCfCg1%9Nvq6i_@*n?gTpb9V^X(qcbcY^{)O_m+KJ{E$@-#KJF_G4 zsC%=^tyAIVaEmVRdc!ueH*RBEVOM)cw`}p1^Ggr{iiasf5FHICbyY6c5(T1q>YDVX zpel%D_MHoji>YUY&E7gyurG6o0tRC;`jsLbJ^W|#3l+7)sh1BdV7(7kmXCyNW^6=; z4tVsTc^{UbPIuS7j3~O9SHqmqYC&-|TeUSPh8)=Hp7M;sd6y=H(ozQ&q1}~Ys27S6nsugf2_j;HnQgf96!iO7Cgjh* z&)PjRelF$S!jJg}3zcd)6<&M-n-|z9YjJ_k=qErmudDK0K=%hZEwQZ#+ueyX*hb$x zl@|xpeXu8Zt0S;wZFCxDJ_7%I`w6baIEOBN2=&}lh5@RFTRLh>&uu~; zvBe19il`KWrAs2kMux(;Groz}&y82FIyRz?w2aSbDt6sdbI%b@>>qspGP*b0Un9z} z!n5H;K#?e7Z98b{*Q|HoQ2u6R{c{9%6hMcCaUg~dpwBKgeJ0xDOf?%q)b?{CpmlsA zAx+Y1EY!_(f~B5w!Ww+K34q)W&;S@xHz+rPY~HiLFej+~jDJ$2CcXHUHv0OIstiXI zUiD=TEQ#`NcHjWo9m4e6Vu=q-H<*#q25}BT;yg|>h)l2qxJiCI`;x~x<ihHS$)h z=p0TG{EDz|aEs|%z^DpMA7+kMXD6|{%k1(D&GOKLeBi0iCy@w_;V*S3kg_$R{mtsp zWm(am{dB`U+0FwTX|-$Dk~E|^ZI+7&QHI=_dBN&6NT^7Z~Lc|-g;YwcPfSD z0|RdZjKuXITjdT2T_kWwcvu3ZJj`l#s729+Fro0Nbn#dDed4v&QqOXJ>4QU_QqczAe3=nn*ele#r- z`!(p7`Rl?=t`##xLX}&k{Jk=D_=*=e=R;_qi3KJ@LT}^km2`K?eGTUg-G*)u8%M*; z_3uEZ3(vf*M8|VtW3<^1H+)hIn%Wl=b%9Ou~MWt9)`#DJwOET|?yt z;_5VPjS{Q0+68m0j7ZziZkITN()nf4L$m8>BH^_cAEeP`U(Kui)QHv;K~zkJcOckWu7acyD{JMSfT-gs)@bwr{z32E$Er%q271z+KyphL3u;XYw>5+ zh1~OgVTF0mqACI;2a{N31#jEAspEz8+epK{NruMt#71P=u7r*Z+#7`Ci0;30(ED|n zAJ#mdzzTmMk~}46-BIp^>p2qr^I@Ge`$#+)3qI18T3hMXALVTTopiso1IU|w=y!II z7$ZzIqZ?O=SNug~nyrn4(8-&hK`2`K^G{-8N=zT#$AYLEPRp1)ok-+mk3PF)T7Yw# z>DNvf_!)0aYf3lLyv$zr8(Q^Eos81Uk4GP~N5Qx5x^{`33s!dUMLw8r${R?|Zt#cb zDl>7#Hb8Y{`N_$UwRhTEGd5!3b&OcogKMlF-1B^jC`RaCjX@^0gW7KXMfd0_G8Iaf zqI@wGN>tT>8f6`wGzC?arqxLIf%3Z!cb6SGg{|{E+*qck00EW_94WZ-zvw(|DtyHP z{wdWnNIQaWi!X0y;P=-e(5CQA@_8~VBRskMoGv>{U{bgntdM5whPr?I)WIZ~&^9D* zLmI7^x>j`dlNPM87_}&3G-i6Jb2II}%$uL%|MKkR@7?5#B?G)KoA4JIh7VhsN~e_#x)+odi`xCsN5z&1s__US7TGXNOxRrk z!ek?g8yI_9dZG;QYt&BjB+RL!eye1_y72^GKud%CXvFy|&o82?HMrIIIW8f1SQ`vy zNHS-RghZ_9<@zSb7Y0slSgIk3V8~i0U2f!_wpA+;d{rK3EYgY#x_@LP`o1kBO9X!| z!Tx-VwC}Bw?beF!3hEMqA!{T7Z4PE2gLjTBT0s!mP#qEL8xg*SRn{v z!XcZPY(y1xsL5z@dgGi>6B*1pm=MMh2oOe2L&*htkO{Q=9X<@J{f*xR9UK6at=WN? z_78k9p^i7XG0poWKUGw3(Br&-yzE0)LZT?J!PH%qXL@Ts?M2(h9k-soC0pY5#A^Ru zo0iP|4h5_=vMvPhRU;(Z>3`kyT$Is;HKS4-W|iaG*4H=cXj~$@9$4@DFdPvAI&mWH z=UmeiA8>0+js9pjCJUaJgj}AC#jKH8T&vu`mw-P6Yx!WHnO1~xcunv>VUCeYi***J zQO_A3E`Sv~;RS~@e5?$Vf2@crZyAP!(6RaoT10EBlcZM;t_nt(cTW3+csa8Afalfn zAa2@`OrIt%4ZuJ`uVO2|sN$&RD9Q_4=EDUE#pHwUxoB*dkF71b#JwK7v6&IA=U#bS zGJm*dC4-f{(%6)$XjNp}Eu5evag@_~Ig;x9^Ff$anW927hTo(v+1M4R{IPgejiWJ} z@Ex6)UWa$r704&wlBcfz1(9_oRwBRu;o?eKhT;5AjBFaqL&W-JBlMr`o=7`{Z{}qs zt96>=G(k2IM{j>SXM6u`kq2`>2ZO0wfW@2o0Moip;G}H*kGta z7xieA)a@9WY5AiOKub82NGYQ)G-yPUe|=CZ`Vv+%0-y1*i{>AsfPisc^ofQS@$e4Y zR$c({S^XB9f&Uua<^0L<;2KR0algRNOvE@B>c1&NyV8)~>lu^mUAr(`zmuJG7G$*M zfA#38kkVUX()lRJM{SF_jYEo*BpQX(fkll$q-4 z9jBYzpH(dOHp+j@55my1iom!X4#cY#ByS#y?FyKD=~yLpz6F~kS&hjSvBh_&oJnm5 zmfj+e5n-kxRONkB#|sZrm}yyHf%W$J-bYc@6>01`198|`*DHCC?Y?BBL{r2RHL<&XF0j1 zukD!9)QjhLyx*~O0w}z>;b{=)248>8@qW#0xA;q_>cZ!YrS(!kOhW`hK;n`nj%q|h z+3rWACrk$T>>`Nj<@+lifaesMK;4X!bK#D;IHObqK55le*><%oOL*b;VU1G6V?(0l zQ-B_-(xXGc=Tm_uy{@buXO6|1D4(xve|=r~{p&V9y6AdZx4v##-nOpldLkXZIQ`WV zCs5%p*yYuAeJ`nqG^b~fXuYD~|4sVCF9#ndIHp8)^(0H-qNd*S$CHZZY~<)h$E6rf zCPL$UYdN8O^yUZ?U_MSfY++`MS5atgwr3WWe^N|}L96qc(Ay2srWA;c=HMuDi0nog z>mD^&qRleYbb%owuLbH0%-agib+xIo0P{DEfQt@>MrEAI4@VWF3E#bI4h+e65A)5m zGt46~7RaoY^Zb=>Cl809R42lNAcucj%Bke479!Dp+Hu4AS38QeK^Q+gcj?kwJ?}as zS#VB#lfi(p9m{NTn>?D8kQ$Mi*=@giIKs=7qnO1^VM*C7wwE1$?kfoW350+>?p0in^>RN5<~}OsSNuso@*w-Ab7Pucs2LWd+6bO{4dE47R2ywGc@1!wb&_1h$!|#0FmTxCFzb+bSdDe-H~KJq`PP4cg9&!E zJh=XkBHFySsvG@bj+DLG8~Vmj-#bqQvooCeL}IsrUK;2_89_j1l;m(~y_=}vRt<&D zCXU3_j~hb*;#s}{vnS!kC62-flsZJ--6cV{#2c$FI%%L%PcXd;Lbc#MX8Ulcf66l= zjOum|7{esds0iCF;dQ&@peB!-ES+0*T%@imJ=2IHVtt_n?KNEhZnLGHhlx=pS%?N)+I?zmVKI)k!qiy|fia3O1rbXC+! z_rB*Zj>Z%Gp0^iv&9t40T*pUtg%%JOT~srYd1PrO(5^Il(R5qgF)AS&n-9wj zt~v#9v#-)Ot*Uv_?O^46KUdPvZ~;l}%0d=gTafdvd2s>ZmSfoxFjFmcC~S72n1f7* ztDVkqU#$>OxmM|jEtw#7w5X7_6A#((pyagud7TFa9V1t>pSTv3#u5PmKY!Vz{@D0L zTMPk5U{(tkVmC7vLLNI=hzDWVs4aqIQpM%gP&QeR0x4nhuVDSPp}l}WBf|z@$f^W5>Xal{#f&mv{Yb8i%B_dN-m=I*j%K|0Y zxSMRd`uN-Pjk@;g+$}kpvHmSt6~b*UgGc+g&(mkx_V2YX++od`@*+1Nq-p5%{4O=K9`o$imvhPzR1fA~z*(o#MSxWKI1<>iB zlC_;9numqG4SzpJ8J?(|n#o)2H4@RD%oXKsj2l|BRlkcF2(ztpBQ_*tK}+6r{uG^Y z0@Cs66a}S{JA$~D2Qos3Os0@ns9~m+9Ri6ZQ^vZlz_Wh0AwTR6JqKKkY5ZOO!K8GO z(=+6g8^%WPk0M5ZcS@4TkMh$emvSNhIbd^I{-;9@VGXF<$`3n3wGaN5r&7qO3(SQ^ zr34MQ*XQU8q2uepC1q(ndYB$f1k2i^E zFJb1V-fp68OvcM^R)qTIGx_aSw!v!nJosG$&9gU5vQ9RLyD<0A$Y(J!zfb1}K)D<$ zJ|EL6r{TSD+>b*kLFs7iW-@@=6RK}?sL75c3{YtQTbclV4aPzcp5GkfF?CnuUdl6 zpQ~bO{&DHRG3m*QzQ#yx zsTl#0*+gCw0i-cOe+(0YbDCMt5X(b3X$rBL@raO8(dEhT>cqYbWiLxS5vszB!@*dQ zRb5fXM~s{!j5e+N9-r)FrN4uh<2%X^hK!?byMKqrlrW>Gimc8P z!t4trXX@iDJn_S8h>;@)j9hks3B5K%t!lsQ7#Z0QJx*F$h`8#59W60Bt&t)t@NB5q zx(z>ycF>}dPj)*$Gh_vsFp=?w_V6FB_7rvTLq_ADbl#_)*(j#3t9A>)HY3Lp!EGN@ zI$JJNta?)3Fa*O{|54FHQSzonr}#%H1nN!6yO!A2RE8>;qhmymXeM zIXgxq#&rg|igTFH^9FhDo@+GJ7kYY{tbT!jX91hzbKU;O=fmo4$w(A&EZw@S&jb(a{VN{hsH zG3lGXj5reAM5ZeEd~UFn-dR;FT5UExbghArHRsty4GyznTS3FUL{+LhG5Nn&7v+KM zSy3^yrjEIN2$M{i-fqTu=z1K2v&Rpvxf0|)dVOtYq;tS`;8QM0{0|aIYt9ejKSvyuKgarQ!-+k!d&0ssHOmxq$3y{Vo0Jm(nBA z9fhkLxQXqz_EPU~I&SW0i|}zA#u05y{WFj7@C_EPNy4m{yjV6bACvJdF1T3SY<+D? zImszhRfSsYLKxDHMe{yd?+t*g(n#sX?bRc!&1zL3*Ie4VlXdE5r_!#D#-Ymig%sh* zIqcofm9Uv^B(wvyiI>X!o3nCOQxonD?*I=L$WEiODC}h4;xU3=x9%0uuLBMrcp{)X z)_mizUUso$k7cVHkSP|Eo(ii*cqK&Lib=D6P;+ZP|FT#p5sO&JIzczB) zQr9zJg)5C?xaWB_JnTIc5iw&?W6GYNUd@*@WV93^(-lhcMhM%!z!_t)u7o8z>!R-W zqH_~=co9?UggUp`yK_v3>(85I;Y8bOZ-T!}up1e=!eDy2hX60gSm&~Xh4BEM<;@8P zG7fFq?;wdvb3yT=+Vrw+RB($~!-xpLC|&|ZF2%*lgjbpL$kwCfSKz_dwY*dAXXsz? z$XuTqQa|vLQMS^#hNy=Jd6%L+nfwINg)%iSyT5bYWGRDA;W*=@m#-h2Tku*(W!HVp7P!~zQgjM>36tLZV^Py zO&nh+Q2REthXLtgrKGhIoDvskIHUoPZ-#4R>brVOE-xY`ahX?eCgp80Cdmk)*s??5 z&=)>XHBdy3yB+j5G6cpaEwh4XJvY5@2NL|Xp*=$Z$p}GY!$@-4{Z}mHP`1@#h#$?3 z9XKd^Cc#&)C?XC$I!3J2A!H@&h->nfq#n5;L1mW2P>*PGkJs2>!~-+aK~Yb$?zvha zSTc%~V%*Mavv&RX=;75H;SxGFd%;*p6$H*p5)ldsAUJ!dU!h zqT?G1w82h6!O7U+cpTmZ?x@PvyPi&DrxU(UyVmJXtP$3Jy5t`wkCBn$Q1o4lGq?$0 zDOlc02J^3s{{2b`*W2G2s4`;>JZvq+hI@)c)Z=_Zm?zde-arM+qpV3(WHvDgStbo0 zCE>R7*+xkfFPG@%yH@NH8_XGknk_ljiO~!oyVREUP)x2K)?k1EyRZ`-(Dv=@r3{=1 zA0^%st{aK&qFt~98gZNlOtK<8N|xsNOylnbPY#0qjq$;Ck=~Gy3a8m=uzJ*(?mV9; z{6z$f`H=OcybI;+02o6AFS$F0|S8^enDVKJJKF$i( zKARKOyg<4F4%||KzHgSXo?{_DG7JE&X}$-A`?Tj6+9?RiP74AtTMUASQoEqj2&Xo7 z0HryHD`*+L_q7yufzAI=;{EQrt{iG5s9*?rl@X(Y_H}#Kiv*FUKJag*Cx(F)Ty%-u4_2npT54w=Bc8ozYQ$$%s` zDQ~|e5-mz@Ym@Y5Ec@B(kqCllad9dXsE2U5ickZbXb#Egtwk*&`O)e^U9>7P0Ew6V zA?1F6sz~&jc&b2$g;v|22oBk$N-Q!r*z;}COXsU!9*x_K{q1t4p?w8NnUPpR@1WTz zuFZOCW66R(43p|Ed&fdL57|*t%7vlzo7-!+yD<$zN?---6`P*05sS44zw1Q;i4WjE zJ@?99VcWTw#{Tr0?4EvXjfUd9`pf0}Yvqt=Nz>xYYZ1}H{N>9NrE^4d{@qtZ+|T3I zLbEU*93*d&@}Jws#N9>wtwoIq8}j)8QD@ zxgc{>LpmopmxMxDtB%yoF0cX1tMiLKJMgz+5SVlR(pBvXUUp8ZpA%&pMsx4JGy`t?NSVFr?l}yalmeCt)&A zg}8#40P?ccGNg&#vpH*4-v0&DJ+ujvW}8etDJqTg(TPM`_VE`VI>iTW8O@up45_c7 zE+CRnr|sZOIfoyqh7Q->{%arVA#5=ibmvoC9)Fb5%vtHC3bQjmG2k<20=?G*or&fm zr+@23yPjVe+_=496f22tqu90KAJNmF)aY;6z|r)+h|s+#it651k5{Z4ET2W0IJP41 zhR3?5d@0I5&joYKU7r<(yvK|Qt`WpH!zhj_E*HN_A2$ZgP zbZNkkh+_{kgwNc&ICsr)&i2j9TLH3|u^xV&0AcWF9HJzQqk8k^p^|FM^#25a%KiFW zCCn`|AJZD~gtjbG3>clKY*QNwWZ zR5YUzaJiwikOFlgwk4h!DK8$hM48S=E#Ye zpnExAv|+`5E>C?<3F2vuLL1H@Ox#W!oXsx3>mhEH6Q<08=@>6*)`OpUIiKjMwqI^+ zU4xG^#!oF2d+1T>tajI|tz9@XB%ZaI9|Hit^3Ur#fZv}u@8BH;D>7?^r8@TguW=UT zjGV5G4`1aH1{H>SxHR*^`5LrE|99KY9ZhdFpjt7U*?{ghH(6d0^6PU=H!5jo!ik|+ zCn1M>h?WH#gK=#e^i};kuUg4|9)}Ie^==ET2ojF>v7y$2?-U4o4@QR_!`65dCA^R^ zth4-Fa&?_nJ&cC*TGAyfxW)ymz@ci#^AD-o4HY?lA!L}epZ!T!=%lYof2;*E!;#8; zF_jQMB6NRMCavUY81U{KaD9l-s>IQpN?VI4GB7VV6Q2%_z#Un4#U6 zR9prkG<(EvdZSnmbc$Lx9kZqm>Ck%_>?Jqp%R}2##J5z11V*?@-|H7!s`1y}z)YI{ z-baQ@bDHq!$7>TSa@H#K9^{3%ROIXtP(FU*^x#R{y%k!IWbQqBSa;E}?mdZ=bjiU> zbr!WmLYK44>%d$;*(~A8kh*t7OI?`%B)UV4AW|Q)5WU;{l(zrzf;@p%w4>SU(qZTK zEclVMRUm279oLLHf|}YOmVwvD;NjUO(h{~&|OE1QHZz`r=5@%X3@Er5YR{=Un!5D7$)&ytRGTL8`CWmB7BJUBl z*B8v8-En?112oKw?a@xDtP}UvGhxfy)P#9)zmSly(2A4qm5hqK`R$WK5;l}jo7K8k zll-zbW;FhI4BQpct|J5YB6y@yL}K3?exz%cmp`@!&h56aRaIu~5wDbt>k97QLR@Bx z2M!90RSud>Sk+r_1_y25FCYY1uC=x4~y%jm~~!x`Wcu~q!M_y z5^QL1`nsmu%9?F!X?BR~l6u-qj#8kXh`?cR#utVf$~s(+LdPpx@S|E-R{LuM#qRb+ zKI+K>0l-kJ#2s~Tdnaf+BexOuy>HO<}<2eK$_w=c@OApPnFeG*6i-~ z)a;$ijXgy>v^zcL4jfxIdZVRouNNM-R%C(WJ@g!?GB~^fO{3OmqJn{$u;4cJo~CU| z;4OW(7_2XtU%J(yRwB4~*b#po4>H+?LTeUrYnH_3G%}`bGNsCo!~<_#*lk(5nt|=o z4i4pGmll7hAcxMW70AtV;R=yBn8giMxt!J|RBA97f_9h~mxKl6%-1}NOEL2y_6;er;dEt>jQ4)7PwM2ivbuyELymCtBHW z6?DJDbcKFE;=$N;_iPQeHrJR3jy*X}1^2%MkJC={s)a~;5BX7cj;f~XeIhdo@~2LR z&*!HO^`ozf=Z?xwzdqlV^MJ3d>ra90YYx8Wp7*V^}<0w(Hn&v7BSQk^v#pL8i4eVcx(&F#W7nRpk`ck~_F z0Q*9E%5|pca4BZt4wujn_hGfAo_x#5EpFG-h2zTA8MCV|JWG>!=pOS)up$td+IJ{1 zdWGjmeumxnT_SuRS#86?Ix|J(O|~eI4T@*sK0%{W2W4e4FZ$+WXD7Zq|1269y_*=a zP6Sp?%I6rOH7L?Pq|$6p<-WrZ;?UNYy|rvSUkWZE!~iGIq}_HaD|!mmLFK zjPl^o+7CAx`iqTHD8SkWs(DlR9m+dkSHV%8H(4`XUFm3QqBTBMvC5e>^p4;ee`53R z%AotR37_$nU4~h=Y@(I?;l>r`LDoAroU_`tAaUiyy^QhVM!Ix%N7(Nl_r$rTPgByu zJt1860{Y0~`(5+hn&+ZB>IwR!UP8W{v%e>o@EQ5+4HdgxGV**4emyTd)Dlz{=a$WE zX3at+rC!f$p$gj%1H!z^l^;$!X>&oF$_YATDkt`N_%2S*KI+sd!P#wU)X&%R?|t+3 z!q=gvd?%00Cvw*YS=)c@1+NnXj353)%)h5F1nHsu`)v1x6-ZAhvd-<^QW~OKSje&s z&Q?qRlD43>{1nZz1^rntDi<@)N5@xT;S?Oji|)xa(qA?dUCseKdXp4IDm0y(t;94r zClcu~>>{SFP<+MkH{s^uIVReE1`7fDVGW?OYy_@07}7n@s>)`s#I~A_@R@V$%r2r3Va?8-p&) zpFY>fZ_XF<+6Y*wIg#Y4MB4AB}~ET=5$4G$G~{{^&f&{osXJtD#xNq=`gu&$SKI5)Z5Oo(CGt zBa{R8ZD9vUeZL@QCTJmGrfVxI!m5?C>Ce!((F=3 z9mN=)`nv|tHYnz9!B$9EpPWfyfmEwB%~>9zQrYJ|)vIB|c^?by-0qAC#ucCYY#!Vs z>_n$`QMr2oMT%IlwX`B{Fd0h&(4&d$gCEya!2mx}DoDanl}FFt@QJc#C! zyrb(FIZFSgzm=RDHyDX%Z||0#mI63PYY<&pm9(P4}!5Zkb6 zu+C%FwlKhFZy!e?^ZQr2_qPq%eqVfNG!VC6vnu?jOv7gSqmyc-R(kPl7tk2t@0MmX zF)K=tOc<#rB;i^Bwu%fypIaS`JOxbaS;Xo$NfZ7O4y2+G+g=15`&CvB+Ob{Imn`Zt z+_^&^)Rq*PQB$p5gD(|_c|E2c>hln?V-?b-yrkI|E zK4Sw)9fi*tiQC4pzvBk9^P0>BkTmnv=+FaPrJNH^A1QdY9D#J^ENxM#Y0yh9%%lZa zGw2dIVK>bF_=tNL`us4$-u;fB`R2}ncps&Kz;<4|P>q9*1BZ4zJwMeT>(=G3X_qHK z&2oQ1su?yVx+*JpV9=}?rx?JoNu7}fdH93{$%9&ZYNhj=WnDT?OP49mQ>1v!J_>g3}t~=tY zo7Zv_jidlYL-&k?8{u;j^=UNT&jC%H7Z|Hzjl(u#QIaeRX9p#Tl`x~Hl?TkgENtcb zKJbJ!fqx+_x~5@xvCfiLRcG0=}vy^oZT(+FJ2DyE7 zMp0ap-l`Jax^6L5zH6gpWEN8Aj@=tfP-TKr1tcBQaaIC4pZ{Zhw>M|~k|`qa^~cL> zlDh!Iixqa_BsJzUjza^X?53_8$9g+a*Lko`Lpq)2#a63G=P#UXzKjx;h}l4?EZKRo zYDVmVM)#yw{n8j%cGB3Opojgj?l?smx08*`D({wT zT_-Utknh(|q=CJpCyxt9N=&rU5$hr**FtdcL)fjP*;VQQ1v+D};DB?n!o4)Zasl98 z%n))Z;adA30Iq!yn`q#xo_!FVD-e}`!0f_7y~*KH&A~n?;9BXRZpLVKSh5%oRoTxaC(2~r}@XE`7?fBR9XF(lzPd~ZysrOwORcIBEaNXK>sQArWk|x;Xrn> ztb*vEKzh?b#fpONaDp}z_*WQ%jEI8jvwY;EOLblyaGb+P{J%^kpk@NqF^o4@rnYz{g%M3}Ek+}_Miz5uIP zZ(TZVcGrlo6&_n(fbtl4Kt0Y|9pap9`h$Ztqy4s-!TYgfAkcRXIeSAEkdguP#l@bn z??xw%G1%v>9qMghVane3Jt}GL?QQ5AWCJi|i~QTwG~Q3M*yR&F$5NneWpqkHP@XM&L9hq0Js9B7R%FxLR@QUSD$8f*w z-4XzZ(IX_^nYEOD=NN^m6j#i1%t=%d2v0m-2)BLTf#_?m~Nf#`zkf(AkdWHS>%Ne_;ZA^?>)?#>k3apb)|m+VTODczkN5YJNY1aAOZf7d04i9nsl_{mg}r1`8w9KW848yFJf|pO`-f ztlzN3W>~-Wlgzzduv<(&20q2s6!z^VT6!>ddK{juinS41sPz8oZ+aXE^z~SH-V@(3 zKWQ=FG4oGcPV~GWTQh&{1MT!b#mbse{N@rjQv4hKMB+RlbgOvZ^i%9=l>@u ze@jEq-ppUZ|5KZ9XQJnSaJS^$-&)20w9l`4pF@OgKCjr^|KY~IdqH{8`xKM^PdNhH z_3<0_Kjj9x=PP!~-={-;K*sDukL2Vx4oH*t-HM0&cW*+%-{WHD{sxl&2Yh#ayJMc# z_?G%IyFY$w$$V?4{*zJ|z8hrx52yECW+d`mH^l1nP``5gbfO2x{Pa>Eka&Oj0e|f5 zh+Q9D^Z3B5_SI3>?a6&-e2Hu>IS`HQeX^s0=vXZUtHh zP)&4S;{rL-fLOyrzxc@bvt6mOPpPt>b0We<)?#Sgen*)5M@ansT~bR7$l}BSx&e%L z;|}&;r;2WGI}P_W&Guj4Ms9B~p4kMRGl10`w;!bc^Wxwd@4vo`KxIqp@8fd(;LlDz zM+7jZ0f$G1*l76pvrA+F&T;@^{;e9nx|Wz~2}&(GSk28|j)*krV2s6Y^12(VaUnWUmIS)z0^+XQam&g3Xpf_k=xF|b0A4_$zh1y2`1Pf&FW~uZ9opaxp;RhI6b{4^v`4T7{1Btn#6Kw2`c!4A+Jx}jRSnJgH|3JB^5tiL@=M=}ON zV<$t`7In<1qv$xw%;=7D)Rlv75JsUJFdaZ4sH*|wkbs&OS_C-?A+YJa_rB`Ckf4s? zoZ+0JD^;)Veec%2_x;p;-!;+}?8ay)#L{Ym6=$)Od?ysXm4MI%qXDsv34N3@Je6dbM5B7~S?w)s2LDspg( zn2HR&+bK*BA{3+x^Kk8tT*Y@~hghy9RGlp`6dVVjc$69q2T94NydXUb$l-IzWj-#R11O$jTs-GNJjY2qxi_R zD+7{I#eia24`Nx5(mK1qlpF>Yz6_>Be0_3An!^L0+ARw84iCHV7|pqVpFwF*MRq4V@qsW>^DT_{u6tIaSparF@EMI} z`Z|r~emK{p|J;At_?a&0sy^v{f`=|Gem^z7WksHe{Fe`-IcZfPeRqCrXNw2DnM>YI z4((-1OE}>6`(TJ(U!!e$QKONcUi}WP<>~iFk0Q>!X%v2Pc6;!1v+InGT$_)(HY2#U zTykwr*~)GBI-6|GDQU24OlF%b=HT^c$R>$7XvZZ1yVhijTJf^6@FRJ5G=zDFFyGMk zSkfk!!>uA0&+uSC1W#;{HR0l%iq&)}7iX74=;K`a9mzhfDA~t33xZC9y4?=y3Y~M4 zOAbX$$v!U2rKE8mCpY!%;-HF-4O~&@m!It5dY6qSMK&8%+4SV!^3iI! zY;s+S1C!oTn1lx`*hIpEEBWlEMIalTw7ca}YV3A-cOB`2KCTZj_m+e1ZI~O}+u$Vm zaY2!XLw!=k)02-Q9YEpqRZi89EzzljZTh$Rzo`6j7M|~f0P{D+gfsPjQs|l`CxHf@OhX_zo5|+gCl5% z^SnQTy}$TR;NLKRjhZJz$Keha#em!~Z4EfO*3t2hA&(BdRLG{nyB{D(V3)i$FQ~(S zxL;d^`ppQ^;;=NV>}Rcss!Oopn!Gp`qB3CDC=}n?yi$tZU7Lp}H28P9T68J=cGCKC z5Oa?4Vu;%5+e@2SctM^MixZ|7C*;GG#lkAIEM=xa^jGB)I{Zw^E>TKI0hqr7%auYo z9(DwJEeK;delaTf3?pSf!w4dt)(iVJJAy9o@`)^HYbmsdJ>W$Qt1~MGVJs5duRQ&ZZT6z{+#c<)j4ug+8Dy+!MU z;c^nxH3UPJGh)AT$ zoO0Zp>F0uZ3qJ>J;n8e+#nta)``I%mbQ)`*y40mq!;GrBT$DeApG9yig~Q{NraGln z1~`oD*HE-J=*^TH=_wdCltPs%Yl6b>gTI{)FVayiO4EUY10J8g2!4UY^ri3%Z)>_o zB*P>NB&tV|Fi9vz5T~~;=k;A zwf&c!|M(vHzcxy3KfCPhZ|{l!v1`@#Uv~cEd*uI=%KvQJWp6+0iU0Xrwf%j_|04e~ zk)`;TM@ILt|N5vch5o9MeN6v9Qt4+7?_>IdQ|X_)rjO}w{3?b1$WeXW|E1EO(bx4q z{bdUMC$8=5{x6mOrV)Kie_}WKxqYqwU!>4KlGE4vpGrU6*Y-6ymHuaaXkYoH|HnA} z0+l}3&%#}tgJ`0RS=|`ne&8Lnk2`*;SNgM4>9<||57Up~^B>rZ`GVQGqdHCDE+kz{ zDY2BH1y>?%(THR*qbi&(mc${Vgje##u+>b7R7I1@kl_7^O?RmOp5;Yd#p7|dpIdznx26exz87ewk#A6I!wr9C+L|w)4t{SP2GH|s9ztUNCJPm~|h$O5xbXa}iUTGAo+~>!zQ4^=_ z*E~l_sk*nHCfBrKKP37awHW*+ycfj8VakB4480~AwEuf>e;Q2uLoC}S2XC|dB4iVu z4A}}o(V%7fvMI>DpounY%bmTasHXj&vBn{u>n8+SKS+c-t2GJdh_wW;r?^E-hra!h*0w!z4jxKLpB6E(nPMb5tKq?plxd! z{$|(+a{;qtx@^94RYFZWW;vAwm%PJO5O(@QgPi`3wB=qmXmTDxuNIth%1tTxX`anCj$|BVbFz_>?1}Ql+)|yV5H9Iq{q9kP%vqQx;@fw!h_+EvrGYWxM1U%2ZgC z)po7ki6XHrTsUt5ZrXB0wH#gO=3?9oAvu6-8RDY+AN9Z$`$WZk7O|;V@LL@&?Y+l~ z!S%9z4UQ$at~XMscPwG{duUnj@CjT2bdO|zhVmaEhm+cX;}KwRXdpeg4W8TvzhQ(s z0fJvpS6Q(MVTjl~&ZL|(*#t#5sZ277$&tH>NhN2J$tEL{Zu%+jESqzO?RHUFx(*aT z)N%y?-30ls6lzvsjHB<|twK!&EsRwfU6g#fve~BCnu_}gYZ?gN+NIn)b|7NqPToCG zk58DrQ*poTYE-mrVa*{-98kQ?CTtCf(FSD|Q;I7^%V}>ma2v=;J^Jx#%B&}>`EMu; zFD=>tC4`y_n9Zg>qj;s)P<*RUdxE}fn0S)m_g=;p&N0~$3*6no4!?_$Od4U(G!elm zFaav!Q7#c$1mMcdtk*eysXLu?>Fjtp2iip|`cz4Cj-o4?r#9l^7|@y*Dpc zENE~kj`g(ki;IT2xPXShHR~z9KegIns&>1bQVg50sT0$+YE!{Wx%1iSzxUkKlqR7@ z)zPB#Qg}maviU-@hc-om=A1FXE29KsiaQ`mjsP>9#1+HI=>zZvqS`{qMd}x~7W(4$ zp9@K;Mn_1gS{VC=G#AO3d%*Fi1UAE9e9_?WQ9UZzEAW6zT9NuSZv)Z3k<$(zC)yj> z+5~M%u3Ac;aA?^zh7nQ-O^AP3%w?iVoYvh%m3Si&-+vbozn>FtWD}5hLjPYiL@8}h zb9WPXJ#GSj?!^QS#7yA&EHZ&`mTCgUbus-n>wbd%>vhTcf4440|7Yvs`ajda-lYvQ zb1>RB2u8p@-;7$}Kow~z41!{~n}qr%VXUJCl*4_BUD$$4mRXW54fF-A!l>g`VbF1_ zXyR7U+=Eqo--}fo=2k)9`+t&YXjIcMbJN&B>Vu|X#vTk!V*{J{M>Guw1<3FQ8F_;c zc*bpJ1xXDGx8D%67Z8nBr;Ulm3P!_1?~rIfE8UAYrBY655mNH7*3C(xNf7~B(Ryvb zo_8(0dh$>OTFq+2)1lNHk{%t5XCJ$U&$F@btklyXb4T((7(@=}??x2#Cg+r*P zKUvXyQq28rdX0LAJr#*7zBN#5qE8mLa~lx3t&%aMzel5MM*yvyxguQm>65xO!ONG# z>w|g3>psqlz+A>8c$EjpE#1!3dQ(COvT5`cyNB?0o59+OwCu=n&a51ZmnWF5OJcT= zGwb+DuTk%?Eyq*4pdVp>uf^@}PrcY*bIkt!E0gSRhT$UnyYZ*kpEkw*7N*)?X^Q<7 zznE%&^Xo5df8*ZaN~Znk=J#DM=Jz=_zr~lw{`Nd~Y5SYEDc+z|^LxBYlVW})|8r^c z8=N3?3G3UL-i!4W3{JK_8zbwRlJUdVx22qvbj}wE>l?~`ob^q;BFXypw*9d6&EmY; zjwP(`Z*4!y`doujtnco&AGW^Mxy0*jd5@?6gmBr2xCtOSfWx-L7bBVUXtJlSO@h^|84U%YVB~fVOpBz;yZ9vE0?65ZH8M{@A9?g+WI%zCN|>9#KyqP?2C)* zBKwj^>MtUxgDZBbMf_?vc&tbC`qWsYt%ELx$NJ_=8f-_@vg+ss22(L?EI4Hk-9a+X zII35Hv37r{qj;p*?`bp*a42xR3&%1z_QLTyID&9g!O;T888|fkf95|e96EhkulLj8 z$jCJCKl-KUgY^znhDyqZ+bLRh3pIZMUGhx=Km0s--xp|(#CCp**4ivu!a~jaq;#6% zT<^aW7kGykkFRiw$}AJx@Em%8fi%Z@$=_&UlTzJS^$F}#GX z3oGp1=(F5dF%S#$SxOt0vxL3R3-v}{=SuIBRGnbpUk#BpFw3oIUuoyurV2CSdew+&;7g==Ca1Kl*(p^uxuts>UCMQhQ5|&a zQ>vWu8E>vrnWc5h@4E^@TdJ@=58)D>e2U@~wqX#k<&02cB1R2cR^lo`L4#A?%N$2z zUzLQKXEbVu*(KD>1D?LAD}~zG$Xs4%LRj5`uSCoQfwGyUjLUUd9^fD`PD-7Fnfe|u zVkU@um;M2RyY>t3u)?5Q-szM-#qP=}f5NIZs*Dhtb)+If(2rA>07Mgfns9Nmp z)_8?#F<%(cGh+pyPj?n{#Vg=a@`_xRdt(*&B#u(!lI}HPHf*Rw3j#_)9b9sl*I^Xq zSicch|MYDx={}eQUiWyHPJ?xT;f)i8{d#P8Qvp`LkL@`F%~uxEG!vub6@)fpwQnG( z(+p7zJ9wILrHqNv0vr{1T+&JdLX--FH1UZj{2>~h1({Ci7U$R*2FexdU{Kq9_&vqW z3`UKBH=jjNy2Vu$v#`Y+jHg;lskgI|Q*TRE*fq&jKROJR}P(IWd+X?l? zsXNu3chtNIMzskhAZ}(863v(lRB?1zhE6itK$PW%gamBzjBRT#LX&UP4yMf+|u46^IL}NEMV-tq+{S_-R2Y5H4qDjWM}_270S} zQ&v_y>QWxnqVd;WeIXi+j0Mxikrrq%b1v3sA|?=;&!E>tGT~$@oS?3*>fnRtB62Wq z=UM5Ohda6Cm-Ec@x00*n(NN|+I$H42#gc2`*b;M=##R(CH83A}xi^3tJe7&d7VqGa z-v)N_FuBIB&+9aal?XLfPkEJkK*A`UMQ$cQpi&p-cfrl$pAQf}^2~D&t0T%^e`_IT7mvwJ;o zyM-F|DmH9AyOKBT3bkQNX>BORC>Uq-6lXM!GoswD-+a!;HgE6L{6mKX2Yo;C6dpp{ zSTwWM=W)Kae6maKr{w%Wna5zprgcU`E(!iFcUg9O`@^tPJI+k=wetjgY7}MuFnu!e z%!~JcG@PFNyK}nUy1(j7KF(9SzpT$m6oyV+YWKG;rTe3ibd8I|F`_xv{k0y_Y1H*} zTut8${oX0+UP73!NOCVhXfzy8ogk48Qc7?{Vd6WHmay+=n}tA&5AG$AslLuCp>{hb zKu=rtcuT?J!=kh@3=gqsC&-GI;PxfU4(~67`dCr$Y}d_85AMPC=+S zNX8ig3&4uSRj((rW8B>=EqE3eyV>!BB%n54^jRqS zY=h$wTw)t0)H@zw56>j2WPV0VY{S?G2UXQSOY=A2lGdS%uT}HqZTCr_I6i~8ya|_1 zvKr21H81)m6n#_WGJ&`lIF~omv@ zXY1R2)j3+B_DWiV&iH@su06b|D%+ntS^^YLDin*hpLOgVD;2C(wA!jkP54eQfhral zXV5xT@H*#bUh#7rA6y?Jcf=7DN_i(m(o}>#W@rl)TI6+V1qx_s zMLc({wNGAcv@ql6AM?j)dY-?v_gUw+_G9g}pdDC=(<Ux(=(Sx8f?g=?eUJtgZAr%3)#0 z8H}Cs9Cj5vFB8P?ZL~}2@14|gnVO9lFVEMRV5a;ENmfht4o`ihu4V$NrVW$4`YZ23 zH%zVB-S_Zfi<-1g#(a{~wf_DD(eIb9)CDE|aC>RcytEG|^%f^l7CyK_S9uqv@3V~4 zV5aw3@5r8P z@c1gm3Z;F~h4Z#i;jr}15$=jqj+Z=S*+Z2#IW-$o;6B%YG3P7NwEQxR4;#?sz{#%r zF`eph{@GphO#tdnd+FB>F(7N12Z?e+LGJPqc|aoX>DAHYhpHk!B?* zV1UQnOHRNAWy8a;f_Mi!%vS1~B8|Bv^1|M2MP<`p*>#v>GU9X;+#oj48-Bn5m*)uC z`vhGZv;pMBa5)qJ$_F}-@8_TWE8Ldt$N0t6KZ&i1idL$MF3dm~&|>+7(h9@b{T{`c z1W)n!$`inR+hx9bMyBiY3}>20sYpd!v7w5UXN1zA28=!FIqo#TjrwKHWqBy5U78Pq zdXD1@*sr2)$A+|_6@zWg#_KTWtEibGB^jVAg;78fh3ueR z=l3*M7|p$faLI7^H-WOGnx(rGo7<<|KuKS-cS1$lg6{r@7hh_FCM27bw()kK9ro}# zD1bWKZ9vJ5+pYOKmq7P0`EE&Xut`bDLVlBtxA>qUb%L&r;OwFg^uoOeHSu0b!agMx zpNDYuOVZ7*MQK_)+=DafiZAx@q924D42qe#sgEKi+e(1~^nlxFlL`zNJ(Rcf5w5d< zB`X+drfdaJ6H88jxVF+JY!wT<1^PFiVC6Iky4uLBy^3MSmUDhRo<|wXVqvNo6|RaZ ziZl+@DxP@wO3t=p(0}N(qm~Ub=Wn<0_BOuy9@4XPI9HKs6SX$6KK$L(tBQ64S6~ds zyHV9L@jbwiibOMToz8D7t#^nc>{Q!hhJ)E>H3zU!Vubu#Qj2Fq#|bXtuO*F3C_keM zrzf@Y)sO0JxWwi(r3^Z+dHNDhb4{Ykc+xzDviG1ZzX2N$|FJ5g%m|n1oFicOhO6oWB_@D4;FG}Ss0*tczY&vLIG(_gd&9K`9FM*m+ zJ=y(A1CCpd_`8;qoC*trY8Q1B1=Xw=&vsxCRI#oLqqtIiTxrvN`#l}Bu6N<0sZ!FN zHnEAn(#5(}wSw}A>$XRnUt9QU_#g_kxr$g9p0AgZT+qVfK$k4i7{Ls!B1|yUwH1lR zCQXB{=d{^%ZUS%Zflsb%ylat?BS?!BCm(vg(%`x?r>xJMt=OcQT2`3bn}I$XY|`Uc zH(dhu+LP=k>>gIA?6U%N+{HjRIqcYNS}rvB!)LLqw?%Oi@cxj#8BYD6zVV)B^VUR` z*Zs6v*$oOOB;leErf|Lfff{ECYaE9f=hFr_J1JcfQ#!xP|48@9-X_;UjqhNBtDfnd zpb0=fC{(`}s()oK#^~Q8FaE^(_s7P6BmLXbaFP1=;^qt0Kk6^#2($=}k^$37rm=s< z-a}BngA2toQ0~pZr)TliZMdvv9Azqrmtlmj#!gdC$j?p)=Wm#Si-K63XS;YRw>`8% z$@>cZ|IVI&y+Uc>0lMO=tywv%lDb}-Ca7yqfya&VIqdU&I zyjhuLqve{7T8^$tX31F#dg!YEMd>`pF{0P`E(|KLfiknbvN7xsK9ipB@i~VJQp%Zb zE$FTw7G(*ZW~Uysm5tjgDZS7s%WbAsR-2MyWZk=iaJhMn276v!%)BD6n#*yUG$F}) zw`#jOzmuy6bqg}ru%v`e=a0fN~7N1>w(x~|UGl&ju z{;nj8*l*2WTUk=An>u@m5yW&eys@{d8g|i0&9vSu~sOP$W zKB(k_%8S?6dA^JZEWQF^10(%NG*a$eml0nLuKPYU z$cm@|K1fdYhcSx@GuIX=_+UkFs0F`hMZj@E^Y6o0UARbIoNmOSA&efC;aX(i$}Y!h z--+w|YAs*}#8&yl{qRj}hKrZ^1ZmXAIEgAvT8E1n>H;_{YUiz|;EkDG1vhifUdo{_ zPC<7NPks4tA%FLLy}%dx+2FF%h23)WnQEhO;Uq{2&OC_u4)M3fsZ!=ddTS%2-kObN znuLPjYr|6fcfB@r^VK?13Joqf#+`O_fm*MJ+%Y9jCH5O>C&Rn$zt9_dMHL-- z71f=kv+IPy0$7pp46f!@{TYgT*~DZN?-~p=u*_F>Wx@QiD+=cE zo;T_IPT8NX3Ek4qu|pMO!-tM?>=ST^*E+e03o{$xtvKEH8f9Q}i~b%eE+8 zhQ8<%KBmh-IcZ{8t{3Quxpr}mahg`(_FSA|>(CZ!$H#<~>zMn%e@F?bw!e{}~Ty?jU; z>rg;QCWe&GkgENJWRjl=A=MC45g>i|xt0shU!YftMnw{68UyDpav4&Nilq8Rsz|dK z(npgB$e1q;|{^*Z{@fzz@EOhpKYJ)<+!SS9QP4y)7s&yfo=I`9JdR$ zU%>fgunmfLvO2T#JT-MPfX2i^BbyN8mz!wDE@55X;VDh52N z7}s@dK1pTHQYVQ3nC6PcG2pSRg0gU_egxK_jljN;ORy6dES`~1)~c|pRM;AT&1A4( zUW;KjA)UdlfqPamSn?iuqn2P_XBWfS;x!RiE~>QY47PeJ!IE23c?dShU`g}SS9e5x zuW%q?=LuHTMe1x7K+~kvH4HklGiDwy44xAOzVb#k{?EYijC{_og13dh=K=Wj9omRf z8XQQNs)7T>NUSaDp|;{*{RI9_N6cJX7+i<~znXz>-lF5wGjc@;TvjW*60koyKy_FJ zbqKo&|2R$+?h+)alL6z8d;zJXw^3>MGG!$PoqD(p&tEnu*# z;7K^6IGe$~gx>>$rCz~CAHl9?7sJ`&mm;v`QLvL3?C#AvPCX-6`BbW7d2&EE)9dy} zQ6kAgn2*1#4~bQ2y+&evk@TgBS>o- zhz`36P6C`A1iT_RTqL(`BfLHAGB{owjG(QGLYvOezTCtnh7s*=+f=kiHRK&3r62u_ z9@9ha6;i@5hSrHLlW@31evF~bWoQ_It22V;i$XhcJ)u=FG(01lLTKfPhI7m149!5E zpi;u0x(TfhO&Ug_lE2+bX#MOmI9}WrL2HXbdzzsc85*9Eo42yL;n$&KS_@kMwno_M zJK47WAjjSGImdkfTh<|tdmXmXhdFL3Y$svc({b_kBj@sv{aD%kquP&Y?J@SF>WjGc zW7ig{u20&BvLC`ks;+|@BKG6WE%EF}>%IZ@<7iiW`*AOWp4L9J{n$Byz#rZau^&I* z632f0a$k)7c%>_@{n)#ifLrzrWk2p?u*Yj6_T&A{aqP$8y)pLVYdNm{_%(xlaNkh& zWB+voyPzgwKk_!mvmcM|9biA+mE+rwW19&2@ZO>AM+pP(Umvj_n>NL>A1B)e*pG>F zeEabj1E0HhX!~&}o4^;ZkJyhpHpQ_Y^V?$V$J%3Y?Z>H&1bm`xDEsj^gH2c;u^)9C z9(Ql$JgTt_Sx!){V3Wv$bKwu9bi8KM+e#u14B$`8`^#> zWtf*&N9@OE8wT2sF|9H7qxk3m`|;8S!duZgl>HdZ&{nUD*pDYS474AAX^F8P$BqoJ zALAL?HLXM0kGHQSv^&;C><71Dp#8{eiLoCGj|{LMn`;PdL(5S1;}(Y2xHe)xp08o{ zqXT*ZTIky*!e)eR_%XJfg{=(q_!Ml9c5z$>Y}3DhehO^Y1N)~OW%k2VJblK@&_HV? zvmWKR1o_&vnI$xsl5kIJXuy>%?dZXt5oZ_snFp@eLc!RwPRWgpiXu);@*f=M?@#BA zEd4s`t3p?m&kE!Q`Rcv7ZAj2c%EkbNow}5tIq58PCYK(<)B^6En(kx^UwuYA=Q^ix z8kZhIcRcYN-hzi|IR6Yz$(WRsDtN*ikFSDO0tj?eP*N7*QFkBQjCw;3yQ7|mpYBUw zUt;@zgr8nZW`PEa@F*66w+1oIBBfZgi48~|vS}2@b)oGPCnpKg?atj=P7K<;t25_8 z#rO}V`TNs6_0Ey*&eQIo);l?=+v4umJ85Y1M(LjO=z%x;bBeud&&*>bp>Vg=Nw-$g zq&$4GVj|RmUI}^=-E)#oyQd~;1<6_@)LDhE02uwgta;c0y~!?3sQCvekjd_SBBwyd zdp=d2&+?Y}%0>f<4{kHD;a7cLrL~Aws@Nq*jyOY)%U5W@3P00#hQB``A3BJGX4X8c zfpSK!IPzdM;q(_!nEW#eXzs{Ec@R;^50*_7#A1Pbq`u*d9QV6%f@td#+_l#T*?z(8 zgMa(3CMGjxJclPE&84w(JrdX_TkV#;BpeZtVvXu`U3d?#8bXYNFDSvB8J~T2{`?Pup$r zKB6y_#?TOq&n_}p44ud)TaC+n&Qb1fzOB&bH&y5Z)-f8pxSesgqffr&fTHBVn+Ngw z&_P#h;8$!HbgA$%4f6QG^~^7;#VL=Ny5@iXe{^hcegB~ft0(2O+RIhfvx1GjeSOma zqy0DP-z?573a@9)TT2`?sX4}6TQaZ0p^rw?uB+slOroEA*3i&LqdazP#Lw#j_#^r6 z7sww~pI!`qyj&aRk9RsRhCgP}l3OL`fN68^s^R9mE&+cBuT}VEa=# zE`&e0;lLjSVg8u($;ID4FtbqLL6LEQC>@R*2-ca`b0B@X5jl&y(IK1)R_wmLH z#2Xv8#qfpzn!03H6dS;Sgaz%4H%wvP;MNdtoL8@8zQY4}!<9k2F>bZW8wcKx@Ww^( zN7L>LcQT&n8PJD4`yUHJ<*#3z23*ir+K88QO z-f{8#v48K6$RBy1{z&}M+CBt-{AJ9)#2*cRipw8GFaPBH;g}bfKU(hlN%&*io*&?k z56ApC{IO`$ApW?segJ>m+&YjyeD4x}Y^nbN{xGExf9!on<&W3ijqhKcF++{dYZgrg zo7f}XMlP!3?BZ#Q=(FYbJ^d70IaQE2*fC1H+hEh}M*pY)1_$y7H09{ljBdM%&#v>s z*ZOE}#9vGhYaNnFad+~9{|h}Ry1`t@p(gbGn08 zPRhoIFnF+_32-@ar2fzkJXCd|^1AzU&MZOfz(+TA;{u8gOB5w)S+}@bF3E!<+2^`P zvBPj=DjpF*EC)#x^T@8J-~qAkN4zoDXTFug1t0Ww_!U0E?b8YQJx|ZXH#9}MDJM>% z`MW96JievUVZc_vt0`SR3{z2huY&+1J9;-eFTSO;!w`<3q$9?tt;j4>2+1HMC8lN&>;Gb?O&ts$AvTb{8 ze`BMp2K1biRL`z2A}KXr#j{~jav`lc?>0m#3zb|UwImD4^wBsgYV`rS-Wo(A^hF|I zK2C+T9kTxS04o(52bfea%3pv#LNnyx>2dEF&|~82r1Y4x+N6g^HVHD{LJye; za_H<4q++ZU%NHjjNbe3=kM_3`6X!XtQ^R( zC)Pheb`RHc(i>WAsh)@k2Huxvk0Ni~WJU8e{gY7Sfeu--I#5K8)`59eid{;7zS<`w5}Lutjf$LqL<5$InL>FY*YF}XZ93DWQFkoC4) zE7Hg0T97_^bW)^ug74Ws7vDoyCdGH~ z{j3PD?Po#wXQPrKyfb<8>Y2#@CzH#6^HZrisCL)i76lYNK{f4%*YU$1IuqcP=GRGe zA$xH{%zq~%aTGpaZ)i!yv!Vj2h?cV_kRBgt#s8yylaOk9hpbckT1hpwuZ2{FBTp%i zI-}QXXF#vZRwSiY;fnV3D&H2RSMW8Wmuw|iY`ka^OpZ|ub;xIDk7U|#D;-w5laTDq z4q4~8tt6Z5wva3`JUPiak!N#$F0E!io|INgjZbPhg}~ywIklt2XlD!MHN&iUv?W9N z&<N{;M-}QbaWN5--g)X5UY@QysqMf|5Ke8Vgl$@AKQiD-!4HBAO_Sx3c898 z*o(HwdSj4n3l#3I`J~krVsFdrf&gp94a!~$oht*yLWTQkFCVI2b6&#vE1bNNZSRCw zi4-PA-*CK<4W}a6acu`=mU9oa z+VKm2t!;#N_%pRzAr@a!hUlfnR_AzQ(S0j@?a%g^^28bAZ?D6`;G>f>IP>#)B(+Bu z``S`h{pRXyoU{fZ{`eYEFh#T8NXOw!2+;Z|cr&r}BX`2Q$hiUA4wHH1c5_I4`p94| zIfS#p<*xc|1kpBts4Iu4TZ%D@w6g9ilxe#qJpDuxAC}%@Bv&G{i~4 z48)ihd?P+Wlh47mNteK97 z!~y{+K^_mmgP{mrIHS*nILR-phP%2%qO#$VoO{09a3WQ^^)fsoRtHF9h>%T=(XD@?+2hL6sz}$P5vIDV1qZ#bfF9UwnsB`cbAW)ItHbs z{hv*+FFk}uW%+)=Ic{yryy$V+f{FHNX(=z`l0^24uaamgid6H{!>*$kqad%(R2?v9C>{@+5n#7Lh5X_@k8!gILU3(rH*U(ZHSm8EeyckJ!8L3&_WAEA$;x04{d^OU)Tmz_MrmUp-r1h>yeAVWYYSE zDg6Ot(%!5G9kT1BuE)j8;6Vn%4Q}mf`rY+)^hWDTPYl-swL+ez(~binoe#>Ey+Ma4 zH{!-1Wh3rB^hP$KyLolAsC{`i{Xi1=6Nr!lcyavo^36EtTG;-=Z~+z zqqd%>k7N2}o_-{i>aR+r+{(sDkkDrGZyJB8P2i6OY4GVTo}Q2C+l-34P!aE^8ATkx zZyp1RF1(0K3@G4H%Qv9FbRV9sOQ#~d=|&MUB(#HbIPUmMZ9ji>O7Q70Pgi036HF@` zH%rJ}40o0&8=EEi4d8MoW?99vS9IkiJ;)zd!lSmDr!`DJHU}d^ZY;{6l9pu+Pbd1l z2Y;`o^+y@dF3^ruzfe!`u{I1*!oHB%*P4B{DA*mgB9<1|kM6TdoKe}N+~c5iTzgiR zq3puV|0&`4J+ zA`C`fQgFncRVLdV=#>#3E4UVk$DG-Iewdz%+o}K)f@<&Y00R`F)0KZPptwmn7Uj4@ z>^R0O29+65CXrW+0=pxFHU!%ppuUycqAJ`Q>4!qj9aJs>?Jn7~d`^@L_AHF-oP~C^ z(iinEDqXFvKggS=67)VO1k@+-1${IQ$@KGJI=Is^gT#!4rkAbTS zu1RoBhpSFj{?5-6{5@i<^?5?dWir^@ORztU035>g@iv~ zHvq6F95eFB&1|E&p#a7+K3e1s2QP2lqGx-bNW7liPCvT1-(5BB4qPu+Qi}8S zpfbw|B!U~pqXjD~z}f)+l3{5%gUakEnTjHR0D}~=7Qp4jbEJ^d4fgComwEPOZYL6sa}dFRpPcg$^qwP(4nU}Oz^ysfy#L3DpP^IrviJg;q1MJBKV4g zYZN`$^@9|s3KApX8VlD1z&3t#Y0upy(&{qWF&Ks0WrVNl`67p0O>4r{SY@&ktT-@f zd@!!`L79`md~Y3pob8K>h35a!;A2})cQNV-%2g3)4KeQkB?pG zDDdaFkcl;!x^+BTL5b!vrW?L<&A?uL{b^fDKLJ@sprv9jypO8CpwwXR9S=x#h zj6Gw;eT>M+Uu)rN6!B#h+-9kvCvq3JK}2I^LN$6jSbdnx&4a~CUQR#_=15>_hXBoB zYvawKWnP2>hoT(G2PS=h{R`hZ@t+I-xqVHkIb?6!EB8rrOvRV#>1eIwL zTn_Eri@3q=qmjW5cn3XqnhP$|VsCI6)@oBJiB4@(wHb1{`YJS7E1nUBVq`)!``gvP zkC7=D(Q)F5mF#f27#i zLABPQeKj-Mn47RMVO;f5vrC^7W1+M|pBv@jct=e;@DD6)?mwU$(9zz=+|Pqb&GXpY z@3b5+YQZ3NK$D-B)lr{owl-enhZtg7R>m!s&9FPzIq7`JGO}1gi+yjA%io3Dsy#lo z^{~CcN86dqv360syk zs#A)eLXQF=Jkkdv`t>+)!;lvNR+QtAbDQOGTZ;WJA0ry|%}_hCEObx!l>+>x;OV<{ zA?U$Uh;;7kISLgYW^7*x=*j}$1zxH>S%Hnbk5--dqZtEU-%^HO4ET5j*UZoaLe9`8QgUc z_R0Xexgfx1dIM~ZjJ|^mF9tNonX(23FcYUo#l$J?zh@HJe+$X}d;OV2_MaJ_4>C-6 z#t^E*By_mlCMzOEzgLDx+L!fIh7Z@0)e%ngo`j*)0!L2j(UG^+MvLkjkYCF{eo=6K zmiFN)Q+`$DZ^n`Nm=h$MeE{u^P8yA?R~>$a>f41kK3$kn%$hO3pJXV8nFkOfHaR@o zNlwx$&}mwgG4a_r1KKIlDK29t?GOi@uOVa5$97Q=E{gE)(w+r5pZ|3p18!kax@hx^kEUfVT>I+cvJnj+%u9Y0X;Pxz=J?nZ$>mdAP0ddp-u1Mlo zDmwv7)ehFan}#wYm?Im_z%~~)S6_jJjX4dD+;Km0X5FlmTP@g(kQpWCofNX#)aOJk5DRxzi1ohbF#!PQxC9S2Nm~%>e80sEW+& zOhxuX6`6wY((HVbNm*|sU#4({7<-@dl%DCk_3XL#S-RXA)}NiY{?%sv-e~=; zQ?ULYm;JK!FQ1aI{)f!^3u5i3`sZ5fhuYmZYpSMYJY^V;=>2Jk%h5gdm>zB4G-^*p4LgK1TW;eQVl=FLvJxXelZEZi^ z;Ug`0GqYRxWczUzpJGIFkR;#f+Ju)N5gZ6xQz@SjHtfNz>4M4UUE9Mev#w-=ZooLP zEqiYl1+(W`z9Z+htWEwM@{1#Dfd*AOSQRyxhAHXS!pziJbia4dN0}h_BCH|E9nvb?HboxHE1lG@t3HLtPRmRgZl|WFHVK~t1m`5Y8i%vx8SFm zPi58%c+i2&=#g{x#K{1e`3)WMKIDhw_q}Q_MT-=a){@Cw45Xul4i|;9Eif4{a&L?Q zfx5#U;~f!(hb=f`*`6KZ?1wfOM$-}d@9^l3x|D`_>;8-iwG#C4^#$0B9?%TAaJzkZ zqh8^P;$JOyYs2Wk&*&)f%cavAVKq(?`CJKhC8J9b^0$^s(LVJ$GvGG)X_yCPs8LhE zd0J#1Gl|IT<`Ab1dXye1el<$bt$rujRz&Qrb5ML<$CAd|a-nU4&d!HOF-r~oQC7nE zsg&kkiii(>s#GE~EJjYAj9O;x>j&{SR6?3ahjpJs4@@**kd^XZ4Td;;Fdra%caUuh zGQl^$K)7cLymILRP{GNBM?=h6Y=6t<`|kL{-8I8~^N-J~4gv=S)DbB%&EX&kjVMefHKE&vNZNV4*yy2m*$koODq2A03rhiZJjlKd<~GUzM?kp0W^5*BU33sHoADL5P$cWWp@+c2 zxpwkL5@5ffy#RZ)agU%Zn3)n}O~G6qcM9R%S!yovPi!d59P# zHa?ERf2=XZu)?&8KP6s^!9PoWoQBd|r=K6EkF>*oOrAe(y%OkC{{Sgxc7of~jprBrv{;1qdZsWGaKtyJmRv+6}5Y5l=7s9%cJ?=pN`ep}VC{VM+?1oaP~`WrqLJBOjZDhk6&LtfmO0EU{dC?uj6GN$IOIxTvsX@9;CGqxeTAj<;| zJv;Old{geyv;92f*0TpuD((ISG`9$;`87I4qVyZUMUI*W?kayTZcOZ**+6L z1r{^XXm^Ft?pc-Ab|>IZ;{VFiX)kTCAVcf4t*mR2B1gu@G?uBXP*WMu78uZOAK#Hm zI~H`%UvcIj*$9l)&`CHB?eT)1Bb@O22|!)3I|dKvUVCg&@{FqvbN6?gbNf542~H_<+|J_j3FZ13xD{(siK1U!l= zTe!DC3xVorGRCJ!9D+8sNHj188zh}{lUt-30tgAR<)0wJfQpi^jA5H5N_#2A_gv@A ze6ziIE{uxvlmQg!P9U8SAOU1`9Kms^5E-IK5Va^HBy9k4o%-c-}b?;IO6dpV;SO$#yjX?*`bx?EWtLL49WzbDfBFywT zg<*@+)1YMb$@4-H_ICEXaF^fi7bO21dU=6fa4DH8ZJqBF9^3B{X4c}pNavt;=r!Ri zP!NYOY^ehOd+IoJGUGT5F!c@iU&#iSU_FgRL;nP|&O3xTekJK~oW+cU7qA2-k+PmY z%xb{i!u1*-c!CDRf&ZtrXk0BtZngwecd}2EmUOF!% zeZ*iyMo+br_9vcPvkA)XZ?Z@-2OciLSrf+C;Rpfyh4Mc-1?#-@4EX>w7UmAxe z<~OlhIjqd$_sd;n+q5+`O2C?@N6<8sff3gai5+fOos*Tqmo8c5!cvg^L_j{u6q z@`c3zPZL>pnIY{+K)^c)4utgt%tIBQtbU}M7&g}%wEn;F%k?n8sKRTS)liGdBW2O-QH+{)E zH8{gb;ThJm86GL>dWHk|3{{+Ay|TH;z%*(Mxibb(KFdIx{}w%GJ<6Kvbg}fl^LRgY zCi^72nOb?Uh|9D^0E)6c%p}rAys5;y!W8x++umIHnY6nWucYvcQ8Lz@dBf_0N0Q*YVC`FY*VJ#Nyg|%b_dtqz&g%SE? z%aA65Jh-$Uk&}-gk~dvXwuOiJqm&2WC5%)r+fk;AaK^#0oY?YGTw=99sD^2|;$YTt|euW4*S2P4Y$VO=&s?%k*h~DL?@HY+qT9Niz zMf(*l))9J))f>-lD`*zIc~CJAMCrsf(K`t$pKbaH`c?~w{oJxNWtSe0M=VbxwsUB< zZfC;Jej<Se2rFMpfE>15-J$wOlpW*gC!u0S^9{(!kC8I{^ z3Ejnb$gGQX)DRdj3g+F1kK*Y`Ia6 z#1lGI7*Ip|hiBW|ttxOc&bF|CBMO&DaGsjsbb4p=W8*Cjj(1oaZ`)=rG~F2-x%CY3 zU+RP58-8URF*X3x0ukzqzCBN;W>Oc^2|O8Nf18{d^mp8aGmFPfxo{HGbTl_5cg$BC zL&oBtvq6~rArJTpwu(~ij#0mZ??1!$+d6xX@dv?Z&|*^Z!aPO;;@t$$!mb_xiVOLnSEU?NWH_q@H=~CiG*3(jr!`S@{Xo;W32`_punmzi{iQ z_kCu*#M}D{gkk0B*-n;F4b_%}gy%7Wc$mZ#C(D4!=L{M@(7Mk&>i}g$C~R?6_*R3O z*dkJuy$4xEfWLVlk<9SH-&&AN{7T}_F*8@qc_FEf*1>sUcKvx_Zne6HcmlAEs!f9R zBHk2eSIR#;FU)GqtVK2FJM8}+kyc0O8#>hw6+qLNRShB!{7r&2@tL%a9rl{?liDRK z^?$|BUU6#-Oq7IY89=rGmswlIx81nLFY!jlJFfBbZmwA- z+>eSlJuH=cfHh$`ngJRgtY@uQ;%OI#Sv3oVD(aC!QN;!Z_BqW;+tVByrsI9~I}si_ z)He<{-hz$sxC_9vJbj6pGVpPh>&{SSgl=GnZhS2yrHujHN!$duz6l?d{`5eJgzV%1EGZG=XUsH49{>Z_*BocF`~9F6t)P%K1%;R-)Lj&pJh~l z%MlFeF7lF%>}wclsN*FMrY~Xkj!*c{S?R^h26Kh~oR?mJKZm}|e=bhX{vLh~-^G8H zrf1;KQ3d>GIVU<}XT#4;L3&f`!mD^c;uG7<_Xg~7paPa+Sayp=7;#j1XtzUnaL;_< zA)oM2&G!zW=m0#QVAxSq`D6-U?P0+RxH_ldyfEV!{M_4=4F5mr;H8LMNLFfu5kD+5 zIfTMG!HT42k3$%-ds$zgM@7D-{!U>;!;=a41K!Q?U_wF_qtMKPwGl7}#R4?MP@H3! zCJ7s-;Hq)Dbl*EsbSbw+1i7yZubbhZH zbhhvpT!2vU(2Q6?Hqjl7U?-M6oDtosdP9*qp45JA?43D**llPpmq zN|y)_#u9lGXE)5Zrs3h~V3lK7h5iwc=qacy{)G+tHaxoi=B#R2jX&O**rNeOU%)3a{b^t@zmTYjBnuM|9Z_ZzKScN)0< z+EsnkT2F1W>Zes=z}E~PZu2|X(I2-hKuX%&wt7$#(lS341C^)Xt=o1i$gf1%)X(9m zvIrKF1)j|WpJxPwB*!T%BGfP10=%GEt8*RusmEXJi7Cw4p#7Hrm1%gCe>mQVZQn1* zA2AxchlN76nS_ncvVdcDm76Hz`Tjj1Q9TR#lVb<7nR*nH7^rH))$=O`n5x_Mxv2Uk z$cgJvzLiZkAVJI#W|+*3#wO*oX$6wm1Y#P@7YZl*h%Z?!XmULwKK@EH<2xXnl@=IC zU$zCNxN49FYEEcP&%)kGGChySkL~-*&yav0QAxv>uYhj(5no;(&lC;jjKv5i9X)0{ zEQovQVcRiMQVWAV$KqUN6RwmFLt3}#_-)qqW8_s)PFza^g2XP9Tp*h&Sf%ypZ46q~ zELavTnShcDSP1{w3RQS+JKM9W%XVe$Q)xQT6FHhU{+b)Rt;$emNC}?+kMyZzR-7Cz z&csKxY!NGO$z|pJp!{YhCYi(*!q%l}73!KBLHjAYp2$Kv$!l|DQ(uSO zzxr;Mt;SvA7yYLUickcfFx5;0wn}4eqHSuTRN{krccR4uA^3EYQ7Q?rs$Ukehy$zB zcuq;n4SlT(9*1c_5W>ZG=dx%9JR_@opA#y+5sLLsrDEw9;Zi-6(%eMtP^mHSTI*A0 z@6<%)vv8Gvz@vutPWw4wV^KR#*HBcU;>r7Ber|3cq%_pge$^6cg25w-?M*JM#f+xtSw|~>i-!_Y9(oKJ+qkNRpcpV|0c12mGe`u+ay$!ExhCiFX@YnHCPtlW$cGqtqq16v%`L&{7>3U zU726H&}rGoq^S!I+Yf7>x=klke95`i3gz*!AxiopJkmv}tawhic-2@=-W6xKY~fhM zLyfrK8!n%WUF6>4um$XU1oxgy6_!hE1D^LJ>(vmhc?Z_azr~iHY|l>>wl2C&aObB& z{aQi1$T{Fy#sOCZ6AFAe1~_0P>&8C@IpEpS>$Sc}XyF?J zxSxe{zulso9AMlp5xH8QXzpiJk|uNR2WnD(WPldiR145xhipnl?w1@u?pMvKeq9jc zeqSp;9TWP#Jb2VE*|4P??q7$C6UHDcEt&*itmeGWqMQy_ z`NAGz{Vw}g!p8pq-UrLA6$##7GU{K?O@{0=F>HtxxNFjw1u;nN8($k^&~bZI(4#sI zq^Fmdlp6F<9$c0nQXjCpvCKG@L1c0VvDb*`w;VJk5eh`R`Qtswd}QI#IwW@RM%pFv^u5{?8z--XWQJMq9-aQ{o*g>8~|nA5w^ z?8FngvS=lqCVkmA+G))^X2*uMD<1cp8Z4~eg$$Y=ann8A-iFb}4?q>m1ZvWunrk7J z?*&VC8qG@+lBOLKlHA`AkaeL->i0sDt5rx!t`U-?8mN`ztVvVz(r^GzWdhwRqABFC z0^^ju(KG{49Z2>R5!qy(#Zzvu=*#XW)MSVqMTJp>$WaD&GK!}%m5KcC5jr;&+F|m1 z^dn(ANgi1z+W#S}Ux#$o(nlEPdWF!k-%0f0R|HFcyb+v!GGBPyk2&ybL)RY%h`n7B zastZBZrl!K3Gf?39jdI*S!q_&Zo!gk0RgNp%r!sldw7~;agBc5Qksrw^mWYS7XYbe zOGxTrcLBJ(BV69cEtu2(clr&k$B8`XQ9PUAb-hdEY45_ne`9Ae<%IDV|LUFnIv&?l z&PpsI^bD_xr%+$7c0Gdm>~{%UU5_YF>||k}{X~||ewR`&8Fbote-?jp1{h7np|YPL zRt4B~^2D<;Rln3ss9v6?S1o94#^QkI_d5P3=vYmgUBzNTcj0UMx$-_n)qZZ(CG6>- z8qg(#`igLJ9#mudD_y3=nARyn&?J1Nbe4qI;ViRuDqgw%jb2jtOM zL+E$je#HN;G`HRV<^S3;qfNHQw(#edN@Zh^@F<^mI!gFYggspwH1llCu$YJhhFr*oWaj~?Jrr?g>B-rXgU+7v zQMeR~(t>9MtlAlY>SY>)AuZg%t4e{UvZ(j z`T+BE*e{n3!`PmZuYh@5j41C}@-0ZYI`cKrsqr5sy&b>f{gDw)D_Y&bZw2HJ=K4lq zbUdXc()_0}#b%~Ie<9IEj6(tR%W`G5U~m^Ya4{Pe{Py9$*^2j5RmBLrH%kpVhdkZP z?qo}n_~y*Ot5Tj}y8>$yrS5YSS9bCk{=w`l!ShI{KMuwnM8}sge3hrIAu=A2)vE;- z%wa6&ClUL1D2?w32QgGTgqQuxheWq`2wQb-Ia^OM8${vVqoSu#U)Ds1OnU{51B4h4 z;W_6lH%&YwQok@*=eF0Bfe2F5WEQD($c(;1yT5d>uytS-v6Lnds%!eYX!l{}3>T39 zcXf@=Fe7Byaw5AP5ov}b56GFvx3!hQ4a%3J0>{o_(`9BityYenL}w`8X&XG)-%`f~X7 zLsxajG#>6XF-14yT2yRA=`yp0<)u(;_c9e8C7V1(qA+EHvTzHmpghgWVhG%?E8_pP z<8LztYRT?^G8%rnsEdHIFVQ-d#sfEjVLMOQPz{wHk-TM(h+b2=a!WwV#EJ895jyR8 zJm($lKJV(d_bCi=Q7Z2NCAW~_BH_q}P*?tWiFcgEW7L0hkAa;6&tgKsZV(EZqfH^0 zWuWh42A!hIh@`TFpATQ0o)+9AEUO(ma8FOd_FzFZ1Z4P3817A$Q-?kQ++d_ZvR}ZJ z7}x>QqNmynugbo1)3OzA?+5&(%2WKz)XfB?q#IBdmWMZ&V8Wa7^c4~Mq_FjdwU>qp z731~%?29PUmsk%pkf|b$EfGh*6wK{n5Iq$Uxm}isvU`Pc=il2IV3u^47dzPlgKuV| z7{?4RO&T+{G{KdrHYGWBq0OwRkAn#y!J15%+uC1Espp|dr9}AH2rnghNrOoLg@-q- z?ESm^eJ;MAB#+$cmX|3|Z=yVM39nan{9YgNT*(GTdKZf+bi!v_iICU0MbCf_(D>r# zpc@XtP7klO-&S@2-l$bgwV6J?)o^=3^Wkh}>zT<*OMH+4Fcay1mgpd3Jt$R5A?E5W zRGM#we+mGKWjXSsEM@EnLonsZ@JwImWGIU0-n=w;obSy`Cf*V7%Sr-yECPB%UTTve zQ-u*&Du_7`hoDn21$Gjurz>!ooWW)CmPf77{hh7QhLfGIkR*fbB+{AicM;2wq2X?f zenl%mgku)(h|{nnCgFmBTTRoI%J0VWn$Jy+#Qk7@qW@F^8vfU{1^b%NCVG5PeO-^9 z4B8OvZaC|1+~khk1^esM%ldIc|u^)aWQ z~CO9f5KKrYG?WGP6kzGIytQq!68I1!pT)p@cPGl?H%%~ zcG90E{{Ehe=?~_6QxEgC#^3+lG5tsS$Dw04B^WcxG+X+;1mc!wjn(p`Nuqg{%un;> zL?E^PaHJz(lqBTUp{jE?`7l!A2-DYo$b2(lVfLbMCA?cD+H1=ckxt1F>4a1=qyg5| zM2ve;_#C~`TsD;017$xEX%0+Fk5%}iv!A&sh3WQQhq4hhQj%GYsK)#8+Q9+KWTP&W&TvOEYhbEj8C7$=m{D~klPU&$y}_tch7AkZq$a|n za={9dQxop=8kwWcmXHchWbE3PU)2d4tFW(aJ9B>d)sYu>9hJNZm!S)>Rbk9oGy)JW z-53$`<$X|7f?!{|4J@Hd76@iV65hOsnPrG1C#;xlKo=f<3Wt!)V+K(wEk=oRiJCGC zgJ)3A4s%q`8vZnHJ2EjfI#)JQ25dT4B%pgN*xLQtKfVPjCiT|_-#jXVsy$j=I%*5zt zxx1X{1(N-288D4KO@Q<|{LkK23R2Nr3*J-6W=ZHz*doC`#~=MAmIwWZG7AdGf9Cej zffA+~q~n;Qt7&uOqORsoKXco^F1y|h5*gTE(u8{-(smTyHLu~oW9n2=VBzSO8f=*H;j3AxLvl0?i8}Y7GhL)Ewv0d8>I(E-p z2A*@q=v6M*ALU~QsyJOWgRrfpq)%W8i3!q7!tzk=i~1v$WP?7HGOf@UGP=^_$}rWH zjFlp-Z9MW>JIA=}Y11`Svtm;bQ;C+tzNC$~^2M4JT9QW@3yn-z1&kb7P1Jy6?U)Ck zKPO#jmgJ!yfO_n-v5?yW2R-MiP*-PDho!<-mf|i6i1ZV;aW^jCY#2B5Y*RYMoDFv1 zvF-z}*&W?qh*|2b9}CYiF`n8ZK`!s^~=(XIG?2 zC3`|$6D_N`71w;u?8fsT20PZSO4gMQqT?;->OD^EbJ)4_J{*@Yd;T0thjtz9695#v z6fk9~p<8%X{Jm3nTDpd3)f7WF@O-#1K6noJdynuu^Jy$RkAB)~c>d|rYXVOPCCS?c zS2Rs-ZS-GCpp|}Qu(4rLxkH6^I z)6VkwyIFz*dZFU%>Tw#hLZ1Yyqb+SLqNlPq}iVHPAn zQ|=V=ya0yIfd+V`f|WxDa&eqjDLTg1)3!)X+5@x z003)~-0A8cpQhu1IiZEe55a|BeH<2k$l6tLtvf>=?VgN~k|)ue)UaFy0+lEy;<6L} z#T!wbVDeN=W7)}ewWs}Y+tl#>XwmMwxYX_b*mbO@{qfsl+B&#tUhF*4`5!e;W&eqG zwVRDH@mS=U#5_oAqZdDyPq!(hwLJ3*2`NT!X=K-W84(Xpn zL3-NJb~M8^jX+S}iH<^m(Q80NL-1|`c#lzrLp=uo+-YoOC-Ed&&A))wDeE54?zC|s zT-{-~9#C4209=PU)~*4#-U>U$pg8HDREm0;v2oq}>ntuHH{#3X`0(Y9Lp|Y3 z!l5vKWcy^~r1-ew{Tin;DTYa1A=VoQ|9!-AP)0ufJW+#5H~92~)LVQK4)%mkXB$Fr z5fChcCU%QXA2(bjI(3Op|Ksi*J}FCk)j){AztQeE@XwTw_}3O6{=Ht`6aH1ycfh~* zrQYJ-uX@*FpfXwN3SnChL?CQWtJoDK4AH}6SjBbz#eH?U#)0+iYUou@`1}VkjL$#D zh0o&-^n}lY4n*iD01rMdW!Zsl#jJ1kUo(9~voGu%-@SdIY=3X<3ya2gXJ42`;?sw( z?CVhYW)YJnz^A@go$5E~g7(oU$fK0Kd2hSg zqt=|p^6Zu1-E%Ki>pqU~cdRYHU#}zb8hzOXNjBY&JM8S+Pem3<-WY$ z@D8B8eR|bkpmKD)PS=YWC37;xc@%eal=ILU$DGC;we4z`@%Ffg5tIr zo}J)>SksH;WrmDrdfCFP40ZKlff+kK@9b5Jfl8&b7dYVvA%(Id(5`mi;C0HVKm-TR zXAJ9Nr1#0W{s&qdxPUqqp+s^VL1^>qo1@{5lckqTl3p zD}auzzDfZ!#vT%D4B3`HDTE%yo5Anu(u%TW_tjfbBswKkLKUFW!HzEynat2(B??5Wcu5orn{(t-yK0O7POH0STjwI%4z*mPE{>7d+{-m!EVJh1EXL92$#1YFE3GKZ%^+ zA8ADS6CnS{eOz}ZAd5;RzqEi5D*C@MNyavZ?QwJ0@~HY@j6B*w9{udYpgbyA1bE;1 zOqH!4c56?1<-@C#Qp0~jUhT$TW$AR?%IA}R)?4}f+>V~$v42NcKG*!pm+tFULjUg_ zS7l2REd9Dhka0U=u%Mfr1ro?-6N(fqM>nZ0!E{JK{S1mzb!*OyaP-4ogu%)}xmJc6nZ z^uX{C@J$$uakVkFtO&o6|ATh5OMlTP8EA965TCzj`3F7ui>7_hm4ExGdwc6R5_{KT zppx2i13AT((Gj94s19Klp4H|=G;H&I+;Ic{^8FZlR=x7@``5@L#qam?{1P)8UF3P4 zGYEYsYsV~2^2xODqv|Fi7wMyjjFHW;ijSro{=as$lX!FO1XLD|;0B&T8-?}5^gKSb zh%greeNr2ZpT;~OdFSCp@)%ORRR|5fMDJL;DkYfNp!9kzvpi9KYsd7_m9;h*GJOvE zD3X#DcN=szh4~_!^a{|1TnBY^lnW0ix8b?7Opx6WtROIG$KG8 zp>Oybk>+Lj&m_*@L{$IUF=pV0 znLbG#@Xmi2bS}H;1>rw^wg$BlPwE&C!k#$fq-D4#CfiKIx7G{>9DQ zesVi5r1^dYcpa7;{&%sLq|7acm!V!oz6Sl#Ih3FSAid#|VJba;CN9iPe*KjmBK z8u*!;io2#lT{)=rb7F7kG+JPI(@kByvLT_`=H0MiL+d$tvQF`8h=|MPmMnqb6==f57> z4gfZrD>V$!dgbHE08v*Od*#JLiIXgJHYU8{5d9P&`l$xCXkruv(U?~@BvKrrO-^~_ z4QNULm^v6xoyKMdfc5;4-e{Ew*W=qb3BeiS*JA7H;6DpoT#WUc@;O8O53`EHSToBPdEo<38kpgPS?ljQDs5=9GSw(qT z8m!4oQFUctgrpW?Quya~6|2P2bhy^kqWYEQ+jP2KHcM1KjK5LZ|L5*sz@w_JzX5nA zGl2mU&O{Q85;WDZ4uT{a(9pq}12b?2CK44SNRYHaiWQZ@44`sJn1tkb7{M#FwFU3A zwG}S~6qT6-ash;Z$VIH;rFt-4xL63N%(s4PpSdIi>;M10@Ao~=$Mb|aXPi6gwIB8m+d0DCAWqWs47R2(!Z% zvZm-Oo(4luoQ;Y7Q3VrsvVsY;b~-DV=x_FnGH($-OgiDmw;bDk>5rOeO~SJKuf|-t z{2YxaD*XiK+f35pM}bQ}R%RkLU8-EN7n{zq`z(LT;E4Wj^zf(Tny7@*pSsXu5}Dz& z#N$*dJa*&C>FoRDS5Kaf8U^yXzW=*04bCqzN!9=QQIN8%h{wRSPbvhH9{Rz2hLno+ zLyJ*v}jd~{^r7dU%1*A{(_RPaQT?m z?!}Tg)CB=_O_<^Tb?{!r6u3-;WkY@JD=L~bElqe%$Y;0EcAulD?NVfND#Evc&rur9 z8f|1MrA%{?X_^uW_!M>03@M|VlyQSy9g&Mbah@6N2+URfGjcRCV~4@L*i;M6+({$(H%TE3ancL6H1L zg^m)14s+l{JP1~_MR7%>>g`<38zLa5I?qwUyC|`~-4T?7gM)+~HGX}L68)ah9HRB$ z`8d#2J4Ar6YR78&O<|8nB5kU)(C`jIrCZ~ruR>|fZFnv;?gNx)BlRtx`Ud}6@TpY9 zj+ABqv1W*Z?W2S*4!FM156q254`E{twqN46$CEcv^0KyZ82DjsF~_91o?vh2v$K#Y z{Fl5FD*%Q^I8+Bv;79$?L+qODQx?5oKbYpme&Er*20(o3Z|t(R=frzK+9*u2RQxUr zK{_da5Dbd|Lxt$&ug^&_xiYI{>ETUs|4q^GYhRk#^3z+fS&6h?A3SKLm$)m^Fipsu zdj#ld^zrnDE*UkBh7b5)^M0|NFq(s?-Ij6|wvHBnWxKpy_y);ZabAi^zc*2;+mDy( zCQ403so_+Lz<_xv(pM=a(=vb$%K*+N^8Rhcda_%RJ)d z`_xc%68kj0S;U+Da(=Ulw^fVHcuN&;Q0btzZsHBLuJqPjyn%D4H=FUcm zF^5j0+m+zv%a#87mC$e_q#J0Ra63PMtL*4Qp3kFvifo8xUD_?h^rPeTX}_aJ4q?1r z?YOe@>xA28ujRPn+Cw8hsx;M$s{`vld9}KZAmU+t+=24th67~+#TLEnV*?ZqGbrW~ zC_X1pjAT&2r6HYB3z0`_hf_13<^d=W{sBPJ{{z8~hjyI#)ZqYw8RXPI|#0wONJ}n&^kQ@G0k2x^|+46 z{EJ2Op=pE-n5&oT6?Z&UdG&cW3I~ev1*l z!6cb0Q`EQMvAwA7ALV>jS&Vo;xwML!79()b0m)lL9hplDi5q+QBSN`~rFiG|WOZpB zq=BMMuUZRd`BP=}#buB?HPtSmpD7#&`^9-kQD3aKB8m`oL#}(VHPz^aSKZj0$^~}Q z&($V=EbVDBoyWenYs-2fuzQE0>F|98OJi#ndgiD|)Kvime-0XQiJ3qATB~ za#y~mAN}KFSVSvJx}z)S-e+nWF2LG+5MUi`fORy$YGJTirmA=5HVw}~U5a{VntErZ z{wJ!Wi9;pLI6qcT5O6(@y&EI0gQ;?ZTWMlf`v;_!>#0KrZN^9@9psT5v?WGz*v2EV zh>`5GiIKG1cqHH2;v@Og#v}QXe)Q~PnA@!c%lw}BxU#S(XD>3~s2_15;?Blt^!|F~ z2I^-~Ix!;ZI&`n8_EGMnYh+XH3bQ~vea)Mv;W#yQ*~KZ8;RypXrb>4=OA}iVKjD}( zAdC#x63?dA8u8mAcZ89RzBT{;#7TAO60v2c)BdVY`4BK3W59S!0(HAj zRqx4FC+8^YJ!$Ganfi4{%?MPmd^S~`OpvafuUe<$?abP+W_9hV|^FGVM~cN4bI zU)EnP!n&LEj^un#ziLr5${mr7KIor(0LYKAQS)B4JDM-pMS#91mvZpB@lprqJyWLM zf%?39#0+HRwF1_Hz&p(Vi&xu2D2+*{MD*hPbvG8$W3>TSV*K)l;`VfIslM(uoagrl z7pmGm{rTI#@3#ukLMXkkFPQEIL?+!UYb)E&5v}DTmP>768n;E&edI!Q>%oxew{s26 z#K-N0=yCZV&b33l@cH>)eD(H+Jka(pGkXqO!^n2G-P<&R{o%=V z1K}bn#_~q9PDIV7WO|s`CGv|6Lp9kB&-Jc)Y0Z_Fk>3G9I^uAbi-Xh*ol*S~R8DD9Vu(vM;lh0^aw z{>2}eOzgny%mHxu&D(ANb-M}J1(X}9eTl0g6+TR%QYOXAhjml zIQ!Iq(HEY|h-KPJd!~NJesj!+-GlV#DTpdfo)xDME=*nEq^*4w{pLg8A`N3cZr5vF7RUk&oxGhy&FwyH3vxAKCMZfuu?*8x+!!;sjH0z02Y4Q5@NiLG_ z);!A+`P*!{`6vG$R)_O*Q+tHKB_?RIUR-=nBHDph~Qw`LKWPklk0 zO@sI662*CykMocXjJENehj82L1Lp6cUZo%Ug@q*(?9X3`FKG@+3*sfeX=BnhsF_3W z4b!Ywtu_aG(qc!V5J``%A(WAI6vLlvO*l-s)jhz$<-@&CE z(&s1~NX|u!F9#0SIQ+W)Gp`r!O4#$Ywl!K}r}6nSl#s?}cO>frBol+1kI_||mI+Zs z!l__F-mb9L{3!ap&&~|-D8wwzhIhq_eW78L-sGjJ4~@?CS*Ty5p#z}L`oe5#v*XRD zQvRl4+01R9&C>Bq`8?t)@WspAb3!F%^+tPF@fGgr-YLGqHJN9LuW;xPh+*ny-G3}_ z!L(ahnaTWFiV?VA^P!IWmk}D5hJ1mv_IHF0=zSkLj!D(~OhT8eNXt`#KbYrS0k@Fe z&;s+BW9FFr_uJ*VLER25X4jP?vy|xDiuB@U}*4{S3jjI z{oAMjeWgQ|8JQ=q6bcW%9>@SJw7%fW+3|i8w*OfV@p(~~EmN^61H&_292Ud8( zu_7TT?7}}DLvIc57pYUa#f5{b(2juTVkXc-yjqyA`fcO5ipFt>ikE0c_lX&O*lNtE z=XwrFa*|{BXeG3w#w|ze1igKY*wk{*L!IL;re~jKlA|TW92LI^ugDh&zpaXJIcs8n z>y%55;#Mfngw4x_gHQDkj#4MlUTxEVmxUO;YY$h4rRtxh0GB3R>(i)u^$8=&i@ogw}3#ev?lV zgCg{ItHoR0b%DK7zvAbORWLHM10C_KBlxTX_IrT+U)W?qf0^;$vs_V&SIR*DK3ehf zG3+M*PC&80%x?ttBMJp!{{@J5A&@_^AdQj#WkUXlcGyG6pO!#=&nuGMvz!>%4{5fj zGsSzU_0I_-J_JV4wRR#n`c)%=^W&~X{CCV*EP_n&#W>9+IJK-U zIJG&G^k3}2NkjwUt&&2;)1OIDjw9EDOzZ>}9y9@kZ`4jO!oALkJWc)ujf&UkG!hf4Nf&ca-{6EMv zccGmQjB21(p*5g%Tmj!7i>&~kYv|6it$?Xh|G$R+IWhd_A*r6G1pd?6XdUqXU>yH9 z68`TX{9hi!|Ll(V|2)Cx`L6N5mhgXR4F8w^2>vhsN%;RX;W%M|L`z^Vp??!0!(Jc* zb>c%p{cq^=Izs;wi0npbQT=I80{iX%bL=0wO<;d^6849;G4|^T?7zGHe~10YzczQR ze-x7o6XP%;+pD!J{ZH|68v#kHKUe8OZi5S7zlCGBzPbrRMA*Rkzm0>sVBZSbGE`%-$d`;Z5}JTg-gD$8aNrS-M4V8BE!# zHige*=M4ErV%G1l6A3yc?n?H1U0=`YN9)xL8J9PBn#Efexa)@YZ*=z;cMoxWDMZwR zIO;9qQe`17V*76k}q3*Bz^YIKTfkrdbVIT!Q!p;6iS1uaiV$$E`q zCDfr&6 zQnUhGlaGBLa`juxG`PG*cb+-<2IdB12_2#Ci1nGyQlRbn<5YKBb~Nj`Hd;?O#-vj< z@hYHIQzC?Ps!QC=bcC4xwXd`Or;m05-w?0e-&@gA6cJk6tD2RdY_m1^w0h{?uAg-} z+HwAH{tLa}C=#-(u#jD~oH7o_0lBV0$;4IV{Svo8m~ZX%muOjY+{`l*H56K?(*8BO*SjA+di5 zrDYDMksK5{7r~S@owZi?LyiBz=gp?%cydO3VP-k=~2aqx5L#TTm%!?VY*F(UF}-bYQ)avbAmF!cRAtJ48o*v%%ac zI`ZEd%8;Rq?Bax2y@b^e(eE4JJzvDxrz=!ae_+ZgL zdH2Whp)nCHd;Pl!eE2pTAMFK^1U`I{NKT0u_|TF_`#PM!hxLi%z2UC$;gv*|SHu5@ z_`vc~TeLaYe$JfKWMQcho2B0y+ZBqLanY^SYKIS{j8QvFm729p%vw+bhuf&cyMrvk+N4s`uK(Yv=Oi z2$x@?gkHmaH&rC{n};y{5Z1dTXXKb$%BaF!D(Lmdi-qm+^%seN__#flC1?9FX~K2C zF{PNKyrwx8dPm+q7jvFo`0s^KPE9iC%+ zq~snLRm3w&tnQtr6(YY@!?uXN$ip zu78M?l={6YWQa~;F&~1K4V8TfvkLU3m6rN!4lYtlv-JVjv+O}~ZjZjBEiU4$_Q5kx zW5EVWmC%FGywRV_;q(VZ6`V$|i_2(8)X}W*r!glJwu^brc(9bxrCaGlecMjzcs(U8 z9t*vfF$B6pcbP@h^mygoAFuq>4?nH)qrIteJ6E0}Rd?qHOW-Qh2t}7i`gUvuX_HS! zqp@d8HWl9qTfcT|qST}=O7%-B^)?~Jp+9n|)WE=4>g8ROI`%`N)N(4-HcdZxFd8jr z;e*`Od<5e#Y8+P9C+>PUv|14ho@LhNQ$pz6OR4+V4;}U#e?{F!geVyf~C`pG=TTi+QkL_F zgfgyIo0#p@?#z`X=d8nC?UPR46B6+X_p1-Nq1mzI0<1^lJTeQXD0kU; z(Op)@iG{qfaZR+fDHzjH5gFZfft44E;-<XobA8_)W4?rJlQJ1@p>vz|c=h7oewcQg8|3Gce>4hF4 zyZb^)ouKzcsV2`xm%z=pz5;F*uk(e9*U`ae9i3i2H!xJ-F9HCs^QpJ*puZ-_z36u@ zp{-{x#BV30e#M{b{XU{PRUtfqWOF@3@(sohbtS-5b3m&3wK$Z%e?Cxhxt&q5m>Mh1 z)k}ZDdRy16`V5DR=3|CFkmTGEeTRzt<%}Xu{jy&e$V;$QsH1^iYOT-8J5sIH!i1>r z?{JD0s)$tOWj8?Mz}ZA(sTL%uskY22^u{FTR_WGOqEA~4s$C2E#98gjjRm-yih*=3 zPf)Y{l)E98o4R46oPq9&x~}ycvEv$RxYnrRTPd#*YxpoQMl3}!CM~t;JWFC|qlUzW zmb4HF7Qnz>-3g^OV)dlJzWLE`T`jO*f36qd+x%|y@jJ6rGeLm*cjui6>aPj~sIU5W zm!SUTd1r$9^}_!S>Tc~FK>f*yu0U2M3fld^xB zW8uv0K9yMU)CE&P3P#uvm;765=^MS|)j0LKgB~~VO-QKtg!Ybpe&W*&ud+hV33uJ? zQ9UD(e$A`Q?dLJKPXiC(&WZj)Sz{+*doEt5zxIk5EP&+MS95^MY}He!jJxpmXy6j| zf1`~%K{bD)?|&s;>%mt<4*$pWr8@_OejNkTo46a3s6gNwwwg+mdEphIFf@&Sx9bb& z*E8ffsCN3hN3;G(NA_*F1CWWm0b_dTn-t)RMXK2$#M+;ndnT?-9xQO>j~{i3D{Ia@ zb2SbaoIsK(Jqa7SsjPX7$uHy0dYzuiuUV76rD3Yim-l2H*rl)9Vw$G3x^8QhZe^a; zN12is*4h_rKeoaq96dA+jM{fr$q*{0p3}v+Y6ppNH5}}6T>CQ49M{-EKXF_WQr|pg z;E}pAd2HZ47aTJi=NB4ZOA^b;<7%51{4Q0hIVL)OQ^uJc-(Da(-m~kDU)-sP=o9z< z(Sok~-&Bh}rkH*ds)JuX`cszgDtprMy|m!$%lC6r2imodinsk*|Jfd~_se4MPx-9# z-d}tVZ}-duKp-ht0D~V$Fae$z6HvTY>gV|!m%S(SvEkEEt+xFf9w&2c=cu*QVrN8j zY9=#XJM;&j-*4Qt_%wrEa0+(8r#-_qO1K4F!|AU&RwZ3tOziBAqVxG#*4p{t3*aD3J??F{i(#7T9)9vp+4`Mij;svcN+Ix0CEWoEG_q+fD`&oF~8Ji-UPR%zlc zI>T-kJJWz>9GLN}YC?y6Kvr)^Cmnl1 zHezR9>dAy=-90uMt%)w^rf%Rf_=_9(fUIrRntp#`18P-+#)*4)&e_kghth2(lL48t z$U9;htcrF@fBqkF`nK&KptQFXDz3f$i(whn1QR3bK~F_Z=@d5~bZ};(=tC%~NoQp0 z;PN0Y@6a|8v(0KRYN?I8qfWCc>Wpk$GO9D$4dvRjMEzIM<7=!B7;G%mKj+qTY&yT2 zD&3QM|NH28mV-#BVeqBCAuhb2fZ6DF6q=6Vu%+l%fy7YaTz&7A(U?AasiL*(d-GVI zT@m{1RLoNlR6Y_8^cmxwUSaK>6<6Oop8$9=WsVj7*CxKSJ7 zrb1MrSMX#ve-HM+v^`pq9k;S9*rxaWhndfYLbrHgu2-Aoq+?-x`aAkN9BbH|ipc7z z*@@AFg)SMqUx=IJJF=CKOuhM?z2Jb53F4eK1@73kp}In!D-1CJj^CI`pTp@3S^tR@ z=IbBkbf2Y3pB0AG)(x|F0#cjZC+=n15L8}KCuF;|+rL%GA*XdYVceGfVj!_=G=idN5+dZP_WIAhsHl1$)*1>tbyyWtjg9U+9+Tm{8`jWchkZ zap5jw~?_ZeNP5E3%y-R#dVuX-8YsyVgCSJLE^J;_PJzR5~%5B#( zs9fbdsw{Bn)MYS}EkgZ7DOV@t|ErBG{txl3B#GyJ2d&2RGuT(a@mAfB6El7Q0(xZKWaADNii^xPD{hYvrPj{Zh?M$X&%Jia5k) zfE3TwzvE`x4X_ghNWJnlfPEyu9u;8!=J|MUZL2$h{hx_%Uq0Uf?0-*u+4VeweZ#-a zhD~@f*uN@?f&IqkJAwTV&&R+%U}|E0CBgqUi8k(j{;cr7na4OU4*wnc`H6DZaIbgh zN1qe$x1kdo3|yTD`1=L?2X9TlKRB1wjW(6T#3hE`t9}%}AAY_weh-@58NU}l7w^`} z=Q;t}m-rTZt^=Umi7$6N$AG^2)2{HldQ1$^`m>z?ebsYa<9GK&)xDlOD}0YV*BQUp zJsU5#=UIW@4?ip5yBck8EI$*!-)%|4?^4F^RX>W~(>vk!^sex`&vTve`|XO(_$?)R z>wLBo*x!97{w?j<4q$&f@#W|<4E8^M+!cPO-w*@)@1E%d_Sc{JFZf-XXyd_W&I^bI-)@am`8iJtGOfJMy>XP}i)A9EJ>bChcBVVqrKb{$3WHh$WE z{P9y~?8j%!=$cYTuUl)I)p%H1vON=JvTF?nS&CXK8;`a{JRdkAG!i{3|<+Kk-QwpI9J2ShPQ_ z!}wSI$oS*?MfDPXI0FV3CmPB{Lz>okmVWqiJjdxjckJcIiBF&WIWbF1Hzh%7dJIaP z=B;CgEP@ zU`i;>p3>sJA|h9Y^F4KD%3ZT7um`7~!AjF`J8!d1!`XDbuD8$C?C%ZIGuW%`Ebbq{ z^8d}H=xqa&6`XRO2Plb(PHaGbs=hRd>xt&p_<35W^X=ymM6>eV0?CT{2h%aD=)}Gt zw5@vduVy(%TX%Y3r)}C2QH&ZG@n;rIpk5ezXR#dy!)kgTn*Xe~!p6I1*Ka+YY*nsk zH`<7Z-nAV{y1Nv~Q{Qny4gZRAHdKpE=sz}qxsYVQDf3GViw5WwO%?vKq79WpFEqio z(~Wk@;)kPPD*?k(6Q0|{=W3W`^-9CS2Cbea2zH@fb3V;taMRq$)P3~@A+Asj*`jt8 z?Br+owAuDip#cSo>+YC;>34;HY3&9Z+#5j2{cZ%Uf!fy$MT-?Ts^i)Zox28R=B%qE zjL<@TfAzM|RVsmo041dA?};77P;`QFlYa0;-faG5q_s`b!}VTEle_;>Iojy0_*${(UBbz0*#RJ-jc$$RE0t)3 zjldhVcjCS_I|g`~eCX8er=w?$C(IrUdi z0j)*>sgD!M<`sqlWOE|ztL4y@6cey6k-TR)fND1sKw}D!cKzim=s>mN(t*P=x7laCqr zH7$`AdMtro;}glVAL|;wZc1di`LX{a{1W?RDed;}HOCncMbX|Xi1H4pHAI_~h;CJC z!h!#=u?Ue>C-&AF-n9%*i=lf`upibX_QMkFhhEFqU6c9HEh)SiT6SU|tm9&$rm4f4 ztXJjJl&AkHEHtD`l!_+B(rWDAT7we0DH=Q|No%dPIuW9<&8h_3?Xx~<`=w;>c~r6w zv%`5rzOeOE;x_Xz)LShDdIk?34K}C1#vR*yu5cW2=?}sRN&&y}_+!ivl})L+^8KI~W7#oA%|q22F2`f<`EBxL<+*HdhM|9~PvJM1trdjn!I=WTWt&Ar zh3E3c*Fy1ABz_d}QzCv!#ZS5TnI?W_h@U#~vrPP~5I?K<=XU(r=#M~tJ3;*RT>7Iy z-CjR~&_&G>Fp28^?5kEH3 zOsh#tZ9FF8FLjGnz5$<*TGl3{ghrdAS&JG{Ouo=?Gn=?IL}BVLi$f#K9%*ea z`E|fs)^>TSTl_9xsBiu|W|Lfb^3p)Mr_dI#c?uP?EV*|{Yq!YK+6Wb~DFw|Mf*D10 zo2+GO1+7#xuB^P-`Q@7w576(NZA$kYCGK0 zn6Rw1>X*Dh)EnixD;3RNZKO@jtn+G{2G7-W&$Id+J{sDw(TKoWSP0{F7xB8CmITm0mTAE)@q=b!ttnNL^mhr<@?$Nkiw`{~ejeOe<~h`QN0_hH&S; zVs%!lPdieq-ruaKbinZg`j>*C8-QZxQ>LXK18m&{GV@lOYev~}N zl+d3`DSyyq3Zz%Qm31M+*w!`Xwv?;GZtX?v3w5>dTof7>b-S9~w98JHr6Z`)UxW%W8t37?w%1Y?16QO zr{=4L)~my9DQnDiwLrS+usTHLNJewSOFlcp}mz=)?=Y@+T? zRhKSdt?FAb+MG0{!a@K`RkTQ32Jaw?%P$1f+|BLq zg!YUBnoDTNE}v+mQmH=eBcJ3s*w)>rJU;Ps~0u?YnF$-#wIlNJe_ z1Ffu_wK!vR_rm#cMJsjz>qDH6_5p3QRkP5B((lX-B}J>3U13Gr8rx0$R1Y1*E1H$i zavO*oyI>mH9JMG-iz_e00^<$g(Jxa>vb3)IR5e9fSIcJ|br?NX>3#UoN{_3>V>cyO zZ==`s{E9ry;zNq8HC{&5S&3~c^Ir)o4a{MM*|7ShS^YE5s`d^Di$3>d^iAbyrAb_n z0bIzQ*|Vt@^p#IBWsYe>${bUq>ctE&2A`sCTqAx~iyx5a;+jwW*BR|wt^-jC(B@a| zSjAat@q^m?%*-|>#m}Eb4Yl|=F*1#ajR{&-J8(ZxCEBXxwzTFGMf^GN+10x|SATVU zaV~bry0MPo^jGAcr!l^15x2J3L0{xc!_s5*_)J_#39Lhg_7S!$h5S1K`ksVqrOi@a zy06u2n%y6`m`@*rA00VLI0&+N)W}coOF`XLZlq08LXYP&9CzqrpQcv1GahODr>j%^ z=fPcOVoObEah#Qohtv++-9LsP~Uo^Z*F9vFO9^^o9CqBhbwQ2 zS6&^ycMx)x7&&LA(K;D9rD-Jge71-g+u_T!rjg(ROae|;KYY_HR>V+7=C`F`QvKbq zTaC;YEv&Zr2WSrt=mV>=$4lu4;o)j{-THe6pU3Z!y5*p{M*dvC4Sl@SjV*!?y|n6| z2Y^llpIQb~t#kA$jVFV-g##;WWdtbuGmH6nZ*m#(~ zHsrcp_gfdtroHH8y)#d|hEhg{(l#oQk5Zypzg-V+m^a&e+Cj)~T}s6{zK~Ug>tM)w zw*CQ^8>3lw?p&&_B3@mcQQfa7C7RWLJz}<3*xc&%Cf}SZgZoA4$ktq_y^8(%Ljr|DA#E#OKzu1ipeCx`ss$ zzflZXv=VKQD~DcS3LK{=pX-xZHy77%%+=IaKkwY#mnj9VakK7Shk>U){CQ{iEJKR6 zHJUYMU5e4QPke~<)Zo>2f=I9XJ)NZ0>)q;a6pRewPBv@J`#G=OY_0YQUd0)coy1?* zqRlEN2o6znP->lo%ABFI-af4=xCA8#!3 zJE$n}@#AyV@x+~!If|+e;MJjy&rzC2I!#;)e;`W#SGX%wU#sLjEA@%b;Mmw+Ie=}b zYFDtw2*v20WTY4P6rJVTK^M z{N)LJvEgZM7Td**bkq6+QJ9{^>(87D%1|gM_Z5_pGDrhA-FI=IFRJM|i>sM|YOJ#4 z+=MEIs^bf3{6CXwWLTk&PovRo`*(`zc)i)*jWX?S8x$Xsy=uS(XBirOeCQeORp~DJ zYo+(!*d^!t^m|VxB}^s;uylN;GUTl~P>-62U_bWOtJpiGnreP|122L5Y105$sh}Fp z60L3$zc1ypLh|HQrQG1;)n)uUX+^pCT{eY(%RZt%otoQ^j!1dm&b%Cz41(%$-sYJX zN_ij5&XV$4XWJ{^y3)$p0*$p`x6PFs7cmKxD>qi*fo+hg#NNLC(-f2R`p34Jz1>pY zlbQJ@)65>4oTFCZ5j6C}U*dkLk@M5eG14h26<$-}gizb7|1lRdZ0$UU%qTa+XeW>l z+#{aa?sm+;q`)3rHdh~zYW^v92Dig6uLHJ>bR2q$S90y6%%m+$uiW?;_w_*>3{lS& z)!_v{cNf06979P577*+wQ_XGN&TJvjzi=hWFSxXDWukzC3;2x!er}iAk9GG_5FTdE z)1Uk##T4iYBtC5ep7mtH?VhmAsACb=;g(95 zmomDShVjzcX7vzgD(5+d@yDHRjrc>tr74c#{=rSPD~xj=ox%J+_f&rx_*wigkVXV+ z@nJkhKC;3p*L)a*wG&@hUUNXI7RuFQ;jrKjYzn{5Lah1{&{%^1@!!CT za#h?rFwAjInG#B=bAgM|xeL)Y$dtu@0rhB6tDx{B?QK2rrOk@m1dEMqCo%B4t&L{W zechz$qaYL;h3lT0e~YETOdZG#A+7yIZ0>@AIYO_Kv8Lu^Hr2)@8nrQr2F=JwBCc z&NB;})?TntUI{8AEluI)$N2fU0QXwNG2lJK{txSUZ0S)(FO%2W@FGqAN7{LUmz5T8 zVn8%-4w3RQr4+7!sM242d}NwAFp?NDW5ri?T=6Zuz^aVJQJ1{HK&i6Dsy+spy07h= zqex0x*_4Hfm(jLsFR{|Yzd##gsq|YA2s@r=&L=ktA~ETpKpX7W zmAz>;3FDsB8yn1+iqgFZex!QBF!;Hh(h3)E6++==(8?x443^JIk8LvO@-b;Lq3VE0 zLT2N3Ob^ic(?d&qhlh}g@BDLdD^bSrob(@-vzVX7lPCeWy&Zp zVI(D&jv0`Q3X~CkGa(?fgY%fcCylUJ=M{GMRI-uaQB)iNqO65ccbmt=C@wm z(w6d)xo*sSe3E7ktZor3S!)uYhtF&(V^iIX}Jn!Z>e%slzF?X zs_%Hcr^A+Du96Cd2yxgv%dnbagbzDm1Hh9_z@WYQKL=6-LCPotm`cawFvLpY+oR7h zmiN6)$vd!WtjDFv8(y8U9;=M?h?$6pT{vS>B_@g5-ikIL`14dt&d;RA&&IJ8-`7&( z2Y;0szm5_N>0@!-WoF@(WZV*Xm{5p5W{cWua|ENeo&Gi*i>GH8>Gq|$Mm~pN0I9)A zAlgQHhDfIsau2|0$DAx8xMZUF1E4u7G9@*zA$Ue?@Os=y+@3ffRDTt_UNArEWu0SZvK{ zw3#8PC^;#k)@{IybLJhKoeDmuyX1Tuj% zr=W#B1meQ?sByw+tgK}HC++v*7^$HSz3v@62f4mrxLm2Aja#uPmR-cS?L5pBPRa;k z!Sl&**7^GEp^)*m2ht7BXrUoBR0QA33O*gE4hL*>x~RTIF!As2 zWxil>YhTdquwucsQ8g_K4ic9{Ocw~Io;}tWcri@gJ zoji--KzDj>?;{R*7Yg-ot&)YWLsor99?+k~XKhN} zNgbHZbGBd1Px6e-EQ!z62%f7V%+<_aNaNFwyb6})1PJ2}@NC=|PWDVZx5jEUY80Co z;UoN3yvws3j?MC!vl~vH-EI1DA#F$<@w)lU+2zXfjX4I(B+SwEhhF1C3-e_S^jb(I zBZn-C5{H1J_i84aSx;fQxU#v1TZW=MaIR8XCC<0@fB(gFS0UJj78O!z*=FjNkWQlqe!&-H)Y@2X?G&N zH1HLtirRx>ThCbjY0`m_6JjUGeX)f1g|vi=P;)|Xe$+TMQnT&i=dk!eFWu_Kp%A6l z0+L#-!q0B;0Wa<$^B`rEwQ7ftUWrs_O>Qvl!<5j{GR}?k*DWl9-&i7uz{qkwv@H+U z)!u044>uVf2!SUrUc(&VICEuHDSo^O@HKW3s-uzb%I9WQjlkd>RHA8U2PWERyGW3H7C7*B6Q?8 z3yFxv{DNBh21nL|b63csw58j+?m=_B2Os>Nd(h1NeP86x;oJqgjLiGunO_o__i^Sg zyUeV|Ggto}gId}yW(Mg6yY!WR6eHp3!64gG3c^ZgIUdy%d`UC9r#l`?k^nBSoo=q< zXG(f3Dd{mG4}|1?hb~`%M%V(gm<8VEK&DSCUXM+|r+L=k%cT3L^CNL|x_t@#H?Erg zn^dRPW{P|GwL63y%#g;`3F&Mp?acPoLNZ$hA)KdD5c{%-l&8@oB@NU4xlT7LBT4jKST(J|2Xp(&ctcgG`xy zvQCZGJ^)1wzHh@nzMqwXA>-a5KnLbWnQbdHB)JRoKt{5eovy`6W>!Y*EF|Uek!EH( z%LCMxQv&a&#<%qnbVAm71a5XnGUl{af4LIlJ7u|!jTL7*6J3&BQ~x+v2mSiFsR&L z;xnZiB6YPvdLBeGQrrsN#@DB_Ee00y?svo8AJ*#^KJ9tngG`f}hKP+%IIwjD4_fi^ zf&+v<-C{PG-RHD>gQAeh-&5o)5&PHx-a>^fKAv81u=sEMrz|6)??u*_2F<{2(!}t6 zJpxH-Q;|%$SznM+$a}G;+AI-E0o@eqFDeoY^Y^Im`;8NgJ z%ImQWs>qOc{#h0o8QIV8BjZD!o5+;Ahq_Hq~kJ$RWQSzGlfipdlzHp2(~ zU*=$5Jx=FmWY`p^tu1H!XpB3z^hFx@@jV~G4G8Dw+LtVA2WE@7Ti`Y?m#Qv z!kf0d-5e*{(R%&JV;~2ti|d~d+w%`rMi%8`+B|~=MC`fQ}9-H z@#gEPqwHak)7|q+tyWx!_xx5{yzN4MYM0h7hDu?byXW_?!0Gt|cznS;NM$4Kv^O3W z&$Vfy)>@->ZZp=m823=PSjh(pH!Yr)&*JcCmmX~hC{9{JZ?>ce1vogpAO95}F6iM? zDX&@4mhtTOBN$S;-!Vw)H`F0HPt8e{^0v>uLKpTJl%})Z=-M{I-jz?%5a6aGnxFEES?zmI9&ifk*B;H()<1deRuCbAi2~?NVw| zB+bTQR5F zx<~sMg4+kcN3chv$n2|=hPP-&Y*>o~-&?lG=sL!i{@U}9XiRQS60tS_zBo(WI>jTc zZG~$1Sc0lgOZQPHq<(`SBOToOcRC2=9Ya57-%bgmrhBTx{*j;xP(~S6DCITGOqIqT zXe*HN(r=<>X5!}ew~&gTdj!(zDoQH+kWu*I3fTmH+a-@1P6fNx8TW#4PcT9AiT;zXr7tI0oFlYt>ektXcilci-3r@2WSO8;dGOMTiP3~ftzvIX^j}v_lmzF#Onhr41^11&coL9>R1skr_>M*W&fSY1>bL$rq=%j9t!RJ zc>v!hQ4@TdWZy|+>}?pn8vj6Z2X4F17U;&TLjxmxL709&nQ4bc!!apu%gnE1A6wa? zX0}ypZc7u0eOm)Oyh(XG=OAGVC2R!>_m3F#UfTr6W#eucA9vr~H{1XXA6@Dlcy!$qb0P9hA4K^Tq$>u)VQCQ#b`>!CQ=AHaW~68avXzb}FB+4yf7FM{{P){yap zLtG+fyx_ofFm>mGS?AKcRC78_M7Kk~W43Z0Pxpp-S*(lZc9f%`V5NBVIZFOQ*)#pb zuTQ$}z>{X2<0qx=q6ari!|a-kFHJuO;@idG?T@7Kg()z9^1(S+KEpGGPD2?M;bdI# zP1-EweK)7O>5e@U4nRuZGX{K@e#RWGR1p%ZoqIPBQ(LLL`+UD;my?(IQOhZ$c7SDhBY;uB<6`*LE!L- z!V$Mea^Ad#{+qap{;OC92W+wUxdxT?pIiC5IC}J`e4URT3;I;P&hEDS7t@Z-Wcj?{ z>*8<(eUM?q=0H8(j3qrRA9QVCJva<(=i-vSY>~K>w~rbm4cua^*7!}S-N^iaxY;jz zK!|q+zzwO-VV4?PK00 z1~AU^44*Ps0XHS_Zt?oCnzb*f(h_(a>Bmvk)4$jV0{Na#_2j}u|M=s_t8kXEOVvF& zQj%H*9n!q*Qbuv>%qt-b*eB)fnRzLYA{V?_PsmPlC1<4V0y^2x26-Guuk~#`4VEIq zlZ#@zQ4AGKdSA->fGa3=5CP%}#u2Bu1r==N3MSF(R<2+aECq@kiuTY9=&jW3@{cu^ zjD2(_o#p4UVoNbD1U$G47|snIgzs)V6@%Fx4c^Y9;}tjItx@m|c()gSNf6NAN--I; z*ebU1U2zd74TZbIeVGI{Y+SB3Jnb(<#1%?4?+QlX&y_;(_4quYj5o=_1qB`41v>ah zC#|`lpk}+6nl0)|Yc56ygPrbPwI92C)spC7Gw5JT?5^S%%TmiyhyDp_r%lw^!v=^- zkI-z)I?rI88}Zv_<8Q#C*uGmt5bUl5H;_*>w zxb>t5h*(kxlR0%5fq7EBu$TcsyfF=lRHzm{&S_gcVOI-HoF@bJX?df zjn44e&h$q^o9dl!q?p`V5c*kiP&Z3;Y{=yb?!&4JRk7CKBSOnxgXUIoMf2!TrdP4- zk~QnDA=aINav0nE(i<9OQ#9*NC6u;Px|lKK3f8eV+5JCLG`W?v%S4JTAj#2YZ?r`T z9?CDSX<4}QWwQ*w`%FKA?R^A>b#JUJiH9sm?);C&Q@rx`8&aUzcuJ`t!c~K=YoYi1 z;JVDZu-FnFrIm&4qcnfm<~q6H@~%|LTun+Sgz;;8AtHT}$hG?BKECaW`iqpB1H`A@ zzt9xOP->3*(;yevuD_5;hcZX-O?M76+Q`(4hO*uwtaBvKK1dHnWSLBH2MtQsks6Kp z8F!0_HSW{;HowjTI;v=gycMsYBQ?jR>b1<*QC$TGh%J$-A2xA1>s}UXf5f;sq@Op~ zU_)H-674&8=zg;ipUJCP0AjD05ObjD>M)FMU8m;{_iFDt4y;n=kuv1^?b*Wlm-S zbUSbi+S#GR+sI){`W%TIw4KvRMLK6o@<@QVwc#*1Eq1%At+1 zp3RP{krh3b+q7bX4jwC$FX^wWM3Y`$|b%%v90X2Qr?F5hWXtvVX@vT0$67r90 zy%pQr=2A01H=5~bG!q(RmR*NM8;xi~;WmgkXTo8uuObX53<>~jK$E}GX?^!Jvq?0Z z-8T5ARQ1EcGrOxb#C<4~#w=s=W27wMf7nV@f*8?uDv zeG4n*y~#o>4sq&F(-*h#!LR9`C>rb_3jJfUrpiBFj9-)#98bC$Nxl|2;bBV0M_;Mt zJ#nPGi)t<^d<7y%sTyVuN+?}kY&Pj%<{=K2kJ5vO%>HrsPY#|;36xU*Dbc)O4BU4C zH$z$Z+`aUl{WHa&^|ZRG*fN(8`Eo^5A^(iFw&hTFOCaRT`sEzNxr)DDORq(B+za&; zw5h1ClrY|F+yu?cm6TMd3 zDDgbj3M)r{b366@cGRi9#4x2z4Z7wxy_$T}wb;1nTKp4kx|pvo!~Qm%_qY7X4KaL} z=g1z1BS6)cm0|+Ed`Jo;wZV7>X`owQuiQ(XEpvG_k#Yw z6&ynb=nMvSMj*X%BVQ><)lZq?=7~}bXo@zz1lmBJg0Oz`~ zF&-K9{u%vhYVMHAvy*zm%PFRU7Am+((bh9;)TNn;`%$%S88e3IKYuyJWZY}IrMzV@ zhM9dCkY@_t6gJJyrsPVjLT0`z%UNfP_ShbkuL0{#{ywZ?j9q5cF_&R8LP`YrRY>@uny*r4@CFK5KbS_8y!L!3w)>>2>nt3C+S@kkkucfg%5 zUQEWFI>sGGGVYu&<*hjbb;1eMxrkARWt;GnckZQ(JT^J_AY+eK+k7E7Co!ra?t$%o z`;b~(W(90S$E+_w4Y7qF^F6HHH{xo`#$PZ&`+fSm?{ z6Lt!`SE@DvFDKtNsmt@*-~JKb8uEG*+L~9*r97 zMx3rVCPNZw_G#%i{sVVyyLip`v|YSx6zwG9wtNs`)qeYvX~NvX{<}=*tkT2ph0R4N zzuZ9tcl$9G^)-X*{v0BKPbKHuQ0Qf$Z)t<^=|g-vpy4Q6wwu!1SWUPLjQ6(?X5hB% zF5H8#9${dc^!mXZDF_1Stx&PQd9^BRXlPbl&&RB>&4(*rzlkq#e}Use-$!_VSR_pK z?CECl{xIWN;{iw?_R()6{qCnxO2`9C2jHuzIP`$>8wuNv+<{O?K9c#ETC5{zLDXSqOaL zEJ%B^e$YVaJy34B)oxUTA&<&LO$63hBOvc07i>3AzZEVNcb<7n23bM>h(@p45KO@Jf-)xNkTGPy!wq5-(kJS<)^_fXJAE^V>y=aE>^_b zS3Z+!1S=UbFYchs?lVY>S3AOTBi!S8B)d(~zQCkTv(hOQ2{&7b_O{|_xD6lfPlM7S zaO8*CFvB>-YV_^L#MPd?0NVB4+)&O>#hpMn_y$Y(%|1VxQ8d1@fWb$!Nf;)wi9aS(mu#h2=LcOvmp+c+zyV0;4FqlGb(|%pAINO55dh zB9W?+W|vj-p%<|Mr#&jW zTKpqwT101UZQbxQ+7>)%_J)dVUdaQhN3SVTO@py;i(p{0i-6xUCmkzN%G0IA>|HBb zPiJw!==$2Bx#A%V;j#6BjFvFS>VRd$&9E%nDdoL0%OW}7;rmTwnrLO^+ESkb zuaicDxHe09TagPQ!O;YujNXQaTRXH?Hjgy(cC^CSj>>_MCA=LK@phEY+g>hh8Z)pX z3AhDMTBMpm=p`l~?a-CHAIm-4bB9&Q0r3_L^w2JKSwb%`UHyd_b_^bv4h*lGd7uFX%NC zH>|SRpGp(m_L-syfv=F~Xno6`hwx@Uv3)}95)@(=Ixn>rYpujD{4(ZWZ;P_?5S3Oe zVb749@T~KTL)LIy*b?yu!*<2e3W3W`>PujUPkTfNTt2cETecLtB7Vs;BsyGCzqQO&hVD4;1TU2x*#EH%D{^%Q$;fLT> z2_CX}=|p_**KIvz_&2tCLZwj@@WcvKY`r0r*<7rp_*@PC%jC+r3&E#pMQN9rQmm%y z@SpTpM3!DJPs^4b30F4<&hrMp5Vf|@F-X>$CmzaX!c}R=P-z~+UL<2jKT}`ox~HBc zmh%AOG7VV@Hps6i>QW&}Zt+WnE3rF46|y)7j$T&Ym?Mt5HmwTYY1&e>2DKIkBXy;f z{;yl<<7dco3wG&ueL=Gdzw?UrX9z)q8=INsyO2&0?H7s@aW7@aidAg;puhDwXP2rk z6?%T%sBcQe@w1_g~0)MaQ7C=`C>gIdDX;XaK za%9$OQL=x%uVPEI*;f%pB%unp@vwM9nOjDO(zfU+n$N70ueDuqZS~JphWwsKa1Z+RTk4mWrd{AWbuK5lbDg!c zv|1-)O6!kybK))BO{eH)exjQlD--%&J}vd_r{SriC0Yd)YPa?fPQ-HXyY9n3SNI= zU!Rr}`=c#}_NuIL&6Z|at(#7Hiigyd&`;nxS*t9k2YCp0#-HP%WlcC;IYlI*P@tEr zF3TpAStB&L(63Z|&A+43tHW{CE@OSCA9;!oJ|;s@)YA|YDba&UD0S~lbB7xvf=3~( z)i+V5BElyfVH@>;u#Kv&&&7Q{3%44>QK3RbZv*tFbau&I*vTKbmijx?B^1j#E05v& z*nbu!va$zu^MN{Is1SLr4WhoEomt;eqdu@Yw9>dH)eM?T`Hwsqzp=v=qES08=1S$U zXZRDEI`|wNq4_Gmm)6$HCqNxrl!9hC za>xdg;0#&Id_XSPDXrZ?sgW-@@m!B)eZXB%PkEa;ug=N6Mc&qUUYWAd99~I%DyTov z`lG%V8{+zl+$*A{vEFLC3R>WMrvI+unwAloyYhQQa_{tNTlBK-d^mo4)qnHrXkgX< zpzcE^u6xtXhGq>hj>>xWSvbSyVdcuXc3C?t^_!uymQ7JJrG}wyvl?nP(6?DZ4+rR> zybdmbAfWjKPFg0(T5Cwj)IWqO^Pbmw3jtZHzC*m9%S^>#JuF@`#OHnb8X;gQgZ!*) zACzQv3R6@!6rDV{f}y8AtnyNHyeY*$kxCpOr_63L+PTXo}!_!{)36%dl(IUEnaO#Lm!$F z4K>9Zs!wicIL6iLkp_N5nEg2v!wo<8LNSGy!Y!E14CzUcJ?QjCzqvx`>E0?j$Hb`%wXV(sIH4qSDi&j;$~+M$#_Rx zh8Z;oy%%tYRhxh(6O-4Zp^tkd_1sqxAxbD68%9*9(ud6&IEmM1DpzL;u0C(uY-jKk z@x8ptIp_EIlox>v)}DUZe7<|Tm5V$FTo8Qz&_k%7!wnVhNJ8!G(-Jx%WvhIefsZLX>mZ6~5S5nwzATVr`5(}G)_?!f* zV2e4LHMz`e(wbS7v!+E-n!ypD>uUB}T|4GkLSv%DnKWASO+1r@lW&`pL@_$wm*Y~< ztL^t{?TQA)27T+(Xuk~Y(^;u8sr`53?SD8CKJ~-v4evs3NeSbMJW@d;N86-);vHf!Wvv1FP(CHp*M2W8J!vfhh?>38 zEplc1rGegFB40DE9YEKjgK;OooGBCeMyP;Xv zRTj^dR;~UrQ+qUeooOF&Gig<);FMb$xl>lp?bwkfwnZ%n^9#>EhYn_`BP|gTBSwo9 z9DfsImo8=nj~>OYdMP-TFJz#;E>*)6dv3b4b|)jsA((T=@Z?w8yC`#>SF7isvh6AJ zdx~5sl#6g>mcWBU$M}+HtrDL&zwv=3;cIsWKfX9Va2mDv_LkXXisR1n;Kn+&W{I_i zz~sQ4EUKhPAWtq&^r8Fs%U6L6xpJ;~f<5SGUBKPe0@=bDQ{iWxzMjNbCcYVmOb2vux^-T717bPv+yPN}yLGH#WFABn+r zmuVqK4xa0_G^1vLfNo2(fq{6^A_*MiD*V0Ws*}J(S=%X%e7DV7u!}ISqM0^l8h`g_ zMzU z$SeUwwu4}WA; zG$gNz)hyfCdzNLf;;hSJL6^&7+S!)Hn6oX5YkuOg=#{)IzU!*f@pbV@$91v$tn1?S zF4x5~KejGv&%Q41>2h66_&;A4=OxyKEREdT)=k!S%i5;+(y&ie&r^bpDT?bq(xRot z8p+2B$@OVN9UNX0OT{_Wt^OQtBnrXfT70V6+yA(-^R(6o`Yzvgo6wK2`6}L{bHC5B zpLTg~=;kP`A1U}WEX9{W@sm(FLded5SZA7A6Bcf}rFCI%Fr0E7R^P0ia$Slr9wuDg zD)-+KZDAK9vn~yuOqp*j2)B*WnjP0i4t1+MRAjA`>!`pmGoxo)e(HZ%i?{`*XN6o2=D$AuoDpDW4DI zG@m#`&@s1)wF?HYO`lLNkgc=(B9jeY4J`wFE$6T1IhO$Ju4R00f1Ya@1jPPcV9V0n zg_Uf%YPmYxu*Td)`x(@}Rwwkw{TYf@iB7ocSbyfxaKqK%hK~6^dN9RQxt=dkWA>hx zRIV4-s~2c>Xc~IHxL$KTfLab=NgrRtS`Je6Di-=Y!0|1H)GcF0gX57RsT!DkJdzu5 zxV1|31`hqQ-L6Hb!Y@^>f0v!zc5}Oi`2x35H)HD81L=8{kiGjaVF`YY*A?-f@79Xa zU_seuX1>ff)2YWJHoxQeBH)1)2KV=#uMP7J;RXUdDqm-X$x-XTBRPPd@I*-Y*Q+{6k>;?4wm>fUFv%483`@ZzRIgE>h zsViZM);!Zz5RSckGBXRt9$&-z!=Vn@c6KyQi`k;JNO`SulC9Ok{Uf3X4a1O6Ul~f_ z&>R(Ti)LR^>E^yS-9f<;nE5!%FyN;% z;X$x}NlP(#D=OJ?VMry;{R_@Rya}&X$p?SSt|4iyF|_OA{0UouyQmI6|0>#_FhE-E zw`v@Pq(>0q!Xc0GitkbRW(g}dT&HLuULRVJ;|L6?!cXAmifg|=O_S5k8ID_)^Jitz z*?>>ZTfLH})vYz@2Z$)D8?YqcXr!AO6n;j6tP53R=t6z)0F$f{X-YD@rMx2RY)I>h z(xki*Rv0MRN7$r16D*hPMfB8d&d+M1M5kV3I+f*mjeDJLXh;R1v7DoXZm~gAO53h~ zLt6*y*Rc|kd5zh)f0+);Ex)6vixXid__4YWb4;}1^u7E60mVaF5N@=IUSzoHsre1- zS+%$NJiY~cMd&EKBD`+HkE<4Jj%9B`_IE{g_?Kjzt{ZK-o4YDiZdvxr%EsUu2!HDKsG;^^q3AJc6Dslor)-90Mj+fraXZS6TIxdrC0O7_#9F zCY=!61j84i)p@LDHd1^ETn}ZSz%+Pw@Yrb1u254T;uPKhl&Z-3i%h1N7dH7d+Rka0 zewST>V+%uIhbTG=d5G|k@3 z2I;*`h5&Zkwoc_0S~K(OQrL7fS8|^8icQ8a4wq_h`6P}13X48p%KL#DdfCKDEwIyX z6pDXv8&K+nba|0bNSu6v5{5xT>ZxzV4bmSBX9E||N9giAAlylnE;8IfJn+8IZ~VhP zk-n{?1>+*aZ%Jw0t9;QDvwED|V3=qahK(7V4x71xurPOjc(Jf43=#S`PU z_->}oxSOer-~0UN`Wc&KHS)<~7&q_pX&?Kv8li`MAaDsRFN3F|vo4UjanwHPdOn>iomWaz%-WcR{92z9b!cI-Lsx{N{g&|Y-#+vES zWY=nDz!XFK-lMI7hauV3xFEx={u8OP)@Y=<`ycLLZ{pJ$UdL^SuYVIv6P_{yX3rx4+l*ecB87i^+)S_&ks^l6Gr~7(qh%ei~lvJvIjhEMk60S>~ zp(~*oc14|gPzkYJfK**6%s>=%+Tnt)YFh5iW|Io-UG}`C?GRqKw)+Sb^C0Hb#sU;O z^lc;Az#^3XNi}Y~*)X6c94d(#W(Jb`UFbkm)W6OmILXr-&DuA@Y>E@@e1Op@jPw<4 zC)d404`;m{T;P5wW)G1?#Rssdm5}`4b}#Hzp=V=0F5z7iC$(Oo5D&Jh{G|U zy0bCD6(ZBIn^Telg3|{xeW-l>20_AEhVidf_|I-NynI)Ow{c?W&V*0=NzJ&FAqrDs7rcsn zR3=_aGo`!+VI2n6W^3FA(=O~Q2ZTF1+Gu7Q>XyVkIEa;SKW0z=+cY>!0lj({91b&| zGvOv?5pu+Ayz#y)H}M{amxg0Y>h?v5^l<15 zxH?={1!jj1HO7O`kSW+j<)IoQtCgt!O#UEuyjU^Uoxg~EUhqx=nnxJ^h0xuo+=xa@ z2z*-Z(GEk86EpTZyD;&W%49G%oD?~aG-x(Eo%U2slTnlvFi@b zmtMJ^`xl7$->w4y+(Xu3z=8DRwbOIhGTlW@9j{N5Y9Q-VTq`jHujx6$aH;gIIyB`u zqF7E;Zsdyn1EIPHC3Rvtw?k<&SO2Y<_0%&J^&+=A+olEK?@%3)CS}ad5e?-^)o+U} z^>%EyL2+W;BrRSiQj3Wl)NrDe7C$Reg5ucfp_E5NiifyEHh+>9SBaEIxI`Y-!yi#2 zyd>Ad91@1Y5h-ss8$Q0zdW7t70S1uiD{g0Wo_T#@Afct}F-{)LpG26ppDF4}Boes8 zIVO`arrJ#c^t*EeF)B3x>J!wT@FU<>R0g6J6ka3UNu_~vjkQq6G82EvNlFd~1m{&O zVJYL)hGvV{SEliH4?@?Gfjxu&ulka;EVb)?yO8}45cjHR>)5~6;shp1HFwf^Dq35_ zU9V-1a|qi)1-we=ad8^552J|~Zj}~a&u1@IBppVt`QmjLO@T#Pe2MXq-cqE+nTY?c zZPmYxM5Dotl^7g6#jzPczc&m`fPTV14acmi6c1w^GwA;^Hei{;3c%A@0ocz9z_jVj zmZ_1qjEy^WgVAXnjb-ikgGcQT=Q-?}d}TgUr2}p$??b#lUr6t>dqU@%=<_FSy=5uy zOT7OZ@1L@X0P@`lZBhHiK{>+urgo_Da5JkWH$iO{1>W`G{O^_~q<-{kw%3}FzPk+9 z_eYOO69%`?BXlpCuz7@kEnaqj*#8Iry-S^HoDFT=vcqk?WXK0bq9i;ONdu43G2SH& z{Dgi6(Rp?DdB>#NE^GQVvsbCJ%2><$VA};qeaT4mdW}^0fT5y9-?JVPIlqC4*v(ey z)=lWc`_lL*Yh{#3W9z57rCW9B)<(431{EA5?eMYKxT&vAG|)yjGo+{h-s8(!rCT@4 z(yd!4zchA>G=3LK?VBpy+F}HkXt>W87=@8|0>h<&ZTIyJ^l?iA-?=X<&|70|$AXq2 zi&-M|NTkhOK*a!({m}S^mz3FrB5l(0NLxQjeW$H2GVJz9d0$J;(;nmdC-~k&$~#8C z!AOc$JC~}xdY79QBK^wr04RrJ4r~`em1K(XFuAoE@&BGd!8>&6Wd0I>j=8 z_RAWf7$a5z?7qUn;LGmS?#%XTvtaZ!xq(I&xo>cw099x56*|}Wvbil6U-|?t2!>Aw z+s$(@3tS4NU#2+-$mUR^WGd&t|=tslkmP1m?gbWBnUW4Fbht zq=>aC<-IrO8fk6)q3fZb+-^q7J98XJxsp>-kn-W2bCJ@AQ!GgNZZQm(AOk2RBVg&z+>fd{9!C9i4c@PLmY(5J5=r1yz=eG;b$7;_gY z6?KB>RYF%x^VNM%wGG7?a+*HzIC$caaO`V`ox&7H5x6`KjG0awrA!@AQVsrwd7P%n zF&?MHIy044&#Y8-3_}TKCG;nDpoMO{Iq~RId0Si z*;KBw0*-9*MKqz|HpS8+Wmuc>sfg-swo_Zpxls#tgBjRe=E7~rZNwCZVm=YdM~8-b z6-(4TBrXrS)1C|dyS#IkI@@z0GRA?qDW)Iw%3nXz6ti_c)6yC0pN1FM;HLbE4QJYm z-Ou%FqDGZ#T!R`bG(`Oj$x$`f+()oTH0Q;fyN;uN*R%v2@bbvC#r@!hTDZc>_>CX9Qi}s&x!~3nML0g2{*?9_()kK zf-ht&f*VAd-bDumYP##%yGO6as691&6M*jnI56ZGpmJntP=cBt()m z8i=e`XF$QX?P3s-3p=FY<$JtL&te#@H|CGqfmTR|wybqO-jubArmV?L+5Z2#sVKLk z1l!C~O^M;D#O|rtwcxJ*$1^7ymZMv!v4xLJZb+sFJ}rH#A9A7ORpAx%z$2|~_Gu}K zmJy>2`|kPQPzLeOu+LA3#{1sn$8tQ0Wq+ZfZ4e|N8h}@u1PK@dA;U75tZUmq?Oy@y za2=6q{*KsYja`#ZY0P2Q5#gwYmgN_-;Cf)XBfq1p;S(fRY*!*5S)y5g9*({|B1nvm zyZ&GLDws}*aHbah`^z8;(Kv@8ns{hdXVJvcS@4rE0hOtL6O~cB>MPs�g-GkRec< z(ZF~mPA_k=88j2vkt8cWH2)rx=}dUi?rJl@nQEEE)JM@)a8*?eLN|A9#1~3md6Sv; z?A|_YqHUz+e&l=kL~AGg^Q&YnQ%%-CN8;5U&8nWMt6pH_b!)?|N&4zT)q+ze_Ig~c zfve=uC^K#W(`7BplOtQgvDt}8W13+Wv{k>u1%`rq<*lff)uBPLsTOvnFxK_`N^1Jd z6n31PJZPoDrD(HkZq5DH_qu;yG>VRDy6kEXv}?Z-T41vLOSFf)OFs$UFE%|>%7aQcjWShM_(n7wZbMfAqe94nn`P^}L|Ey3q-Pj*@u3UyRn?ASjD zp&q^mG~=jJv0sQQsv5AFGy7~gpoEsLW^T>;AxNV`e`65dy0LhIcKZ*7j5;AkD7uCD zvkDsQQ798Dq0~dPYH0(gv<0RO3(l*wrUc5_9~U<_Oe?FjabxhoMcuL7!&iINE_Q4m zTDo4u4`1S%F77Ja>;b~(aOy7&W){2~{8ftF8do7aXXW445WCO8r8!^LIFE3g{ZQ&H z)TQ9iWwyZ0!FkK9=70|!D$&Z8*|<}&{s26)?(V8T42%51{P=3TadziY!Uww8T?os| zXXGZlvtD<}-5{$atCdj68bwvsNd4ySGbAe1j<63_)Y5GDyZ30#O-0K%G?VtA2-s8v zMbp-ON+$~jy>yhpP9o#(UzC`$Gdo3A~@3) z$zEA$*hQ5ac2OL9he0j;;7;co?;@yO$HMo}yF30qmfwBx_cFcYm1s2HZxQbYkb!62 zjuDvXsIDKok#{-kT`8iA)T0?^=@Ios|Muk$br&V-R?e(@`HkXuEIgdNDlD&IHDXw7 zB+)>h_WsTBxk{Zqoz)g(soyN!tKPiYtBzhn!(3xP)}V=Oa3eWSNsFO|Wq{Hf8jVTF znl;*Nz!@Dc6+Nx(Q6wi7$=FYMYVG~Mx+1ehi2kgT-}wIQiy zB2@Z>LXW>E?2LrMEF3DV;sOly$_*vL)sG`33G)rxCmTF^9%t|GYgUWv(d!O*5jQLY z7DJ6&#z`6D;Ea7zABc_5hf9ava5p35dHikiBj5s!FPt*zk0M<4q^Cvr>I{_5xcz); z&@5G7Emm3TV=UV$YgJ+nVnj@|gCYnTS0t+BW+(NL^0=XyPD4sP^Wubrdeh8v6B6x) znW;r<&20mHn&g6G)47`Qi$bi4E20keJ%@jug=w(XlQ%<>{~g@Q);v^qen3 z4^Z3Enc=>kD(;MsS`2^QV47(lXb1NZN&eWdN%Bn%6&!rmG;ETmz!;S%+CTVQQQhLt zhx$s)Q~7&d$9z)CME#V!=4*!axj=lQqgYaKm=9nRzMctX})n++ac9?(dWI3pvZ`U!bYI*y55_qyFT#$7JlW04;^;FQs~pR8&UP% zHAHgoD9_GW;Fpv3&d;W%7;41Y(qzfZHKw>XC+x!|{$A`Ya*v|Dt^f5yaY!u%-wWS+ zMacps!+$#M(KO+6bH}l!L1DB& zz~#qp;I-|6`?p-;)SY*4Phko*tD|m+=N={GxrZ|49uv+>Xr0!CeOlNjxf^^T z#TKv>YuiB{#u)yHhKOy&UVO8Z*EH)~VWbw3q4+t=2$hS$^+jH&q0NzmR}S217>*u$ zwo*HDsE%xe>%SP^yNPSDvQ36>(0VDabyg}mIEICxQr@1~xyU%eD(<5Z(QX3l>LOBJ zv&eaK^)CN7ZZ_ttB*TL%5%vq5;W>ukx52mEHlJ!Fm1&rkkg`X{3~R) z#h+st7qt!iulbiEf6@x_I|_ZF;xRlu(s;J^a2D+HYCCu}?Hp|onwSf8_&=wGlke5; zFH8<;GpXT6=uONI+u&0btmqp%3r#s9bFI({~3hivr%Uu9M`=cjk2$vnA5p42*|dM|HS&UyHzE397lwTt-#d; z3B)L@e2pE%d$f~2ZSZHmPJukRG`>Ly!kS&P?Ul`1=(7 z56>rcne&T1cC4eEy35^;_4)b{%)XWU$^cXnKUs7JKk3tpp6>vRM8zeYEB?&Gla;}f zb?CR<0g`A@^>L{VJl_fEHFooNUypE#Z5as8wjMfiuR+mG8W!XHiHeb@XCKT*3|hP<8ofa#q9Se zM--!Z>nR1{rbZi2EMaO7YWjG+0hK{iso_z-t|L%HWD(Wys9)JJnz?;UCLBMpU;dBT zFMq6-HAXG#x{6N{t7YAp@ku26NV{-nchoIz&?h%b&Q>}e>`$K7(($y_PC5dOD)`-d z6`TEF;nMa>*OF9tmsm(mHqmVTJDR$`H7d~t13MBWw4RW>fHMGT7) z{mZ92uGXXp;FX0b7)w*|=y0Zb_Qzk~z$bZoXV2o0?-)Z4F88O<4Af3y7JNl~9eY-E zSjOxqa~kgm)7c3sJZ-Hx%Hz;~-LWS{25n;vn6Zv&`q8V2m@k}X@^>$2(FgCw%X~WD zu`e0@vfVfdG^R*371VW4!Ka>@sPy1?F?Ii}W6Zwt{Q;oDwVd#!OzY9-onY~TtrRc5za$= z^9w!}k|&~R)y9#j@|a*)CU7Jdpk{`r8Up{P z|GU6nFaW71CwA5=JTWmz*8g&Umi04iw8Jr3f2AoQ>$mq}S$~}=A?ts3VrN8L%xVCDvHt`4ilcU66aRF~|bGF-c`&?;B^Y>V(JM@xRl;YNy z+Q>meZ6sF&V-$fH>A(9A(z+Yo${~DWaTzBeGUKE!__=Xl-<~A)tr>(Q_HSlW+`LRoknoA4PJ(K+IZf2 z;4pmf^r7Y$vcpC6x7aw(H<`Mabk93_+Y`}fd?7R&3xO7ga1-4K?-=^tD;d9^Fq8wG zj~eQNPBEE@)j}N!-opI#TCq6_+8Dbr(q$b23B@MX!H?0nJ6W;-mIB^? zi|-Lwzw3`3upZknV>r$5J^JnaJ1C4zVR0?i>*PrdXRPO&&p4Q6vzNI$(!4m8T~{&= zGLeI{)K@FoQ96#TP_+Fxk=42_!;Fj*zJ<`Oln6ds!(XM;@CJ0M5d4u0aXI&^_ zMD~uyi0q*t22Xo*=4Y&D%MuUQ!2nqE-EB9~8bN#UUWxtM9qZW?hcng{d#o!=pr>

qHUXmGaoa^TqW>!uzv{Oqc$L4*2}=13o@qoyBzJ)7i5j z7rg!|=nK9-`wro$EA>*m-%7`h25D^iZ|P;KbnDJoz(F^Hv%~lB`)rM|PZ&M2Kk;sK zO4&ibjWHar7ooEzY?bnkz`5-aI^yE@Bt|sC>eb%I!wohuVjLCAsJwka8lTmt$Jk)J z%!{1{2nvU&FV`Hy&Nr87Ou1m3c{a{&ktMs{m#TlovKEdmfOR8gI3qBP`N-*twq^}q zeQcg}t}HB7O2ZIP8X`w2@A#aa9(cJo3=w)p7>XAg9{3xLK~I2dutu5*AyS;iXYD!x z^KG+#22a?O5wq;8L2p(f8kFG=jV=M!sj3(R=B~}`AJ0@cA zEYX$6qfsFtW4YrMKbpDEp|`oW>G38rE(`Ne-sPqPU6I#zo(8QCzuK+pWLc zjJ1BH_KAa2}2@w8AkOAUgSon8x`1aOy*Y*e2fDZRa zmnxcZBU0hUdzUouz58-$%gEa~8y9umZeZr4ZjImz9)MJF~dtA5Jsc+MTXJn1H!m8W6^HIy(na5+9E5fEoUq`%r>4Tb7%9UZ9Xl%s+cfF zs}lZVBhq7GPr)v^u4=b<_y5eJKEzS|=y#8B+R#f@)odtzst@HrM^9DRe?r|u?{Ykg zhuX#4K9PGUeaD_74^a_P-k(bknRqy#9LQrQcJtX3g}e6jk_`xo+$ zh!qI8(OUX;AFIUL&U6ubrv6^~lax7O@2_P&)FltVI&BDh#0X48RQDXSVJ}$rTiB32oGbi(-UQRKKRCq8t!%OE6feKd z{PC~@FVw@lNDi*&VE=)1>LDx_&BFU(W91F;mn8l&HG{^c*0Fhcr7$mV@n;OFGtA3d z6tynQQyusJF)HpqSL4wP;lhD*QQRC$Wd5dmV4aQdG{#dWAF*R!RrRLwff z+Cyx+Z@nP^-oYtIVfz z4A^mCS_8zx0OE%Y5Odg!KNujsl|cL{KzxvX0pgG87a;zGehI`+8WxG~dsC=mF>Acn zL=TN!QJ5nl-jx@le85mGGCa9dp%1fR{88nE&XD2k<&tA@Z!T5nG8~=Ss~jQ+^b_WI zusB}Lim4Z6g`6Bq0td^g@5Sk`J{BDsX@U~5rDAC_JRKg|VPdV?!VdSZsTt^H#V&!q zZh^6edlhxbG9Yco{2wVPrXWYffxSc}!u%)e@1#fQyC5Jz6;gfp@-WxzIx0&URr&OO z6fp-RPd!l-hj`6U3uBc)|DEgS*t)p>rN16irOak2qYe>veQME`rIz ziD|}-GYI^IOQpX;sPavT>tT6X9AGfWoz^7t=?ICe1?jG-dWI1l{-AKZd)($A*HcuxglpBW;F^tW)v7^O)BAN5FcU%(0B*`lEjN$K7#Fi z_1~)f+O+V(ZQriT(ec12Qxn3R@KhmSg<8s^CSI<<%e@N;QF3kEVa>_-Y9CP~Id@8HwXK3Iq~Co7Tn)_4g>~Tr^z2j1 zTRm5Q>QiSl;}SQ1gKId@Rve7=nXUrN*W1Ww{PSXYaRK5s@@XHzD=Pi$v<0 zLXmyFll@;tj_-5VO@U*J(uk+eaXI*z)vfXgWipVpK0bpJQvco0-02+0*B4W&Tl_d) z{eY##9k}kBez=cKSNgH|?gaA9b0~Z)7)tEn4w2xa#}CD0Aw8aGS{##MG%bz^F!V2X zMxzB$Fz62=MyF4EQ<&}zZtI=G2ki7eTuSG?xIYO1*Ipc&iV!n5WU@G~^tNnq=XDG2 zIrbeBQC%kFz-`ckTfPTjVOnPLq!hg=vCkf9HDJZwH2!kpv2fKb1 zpM~_9<$plSYO(vwDgME0zmF)d(Y)v#! zqG+CJsAsOC?eS?QebXXZM{Y;H88FL-r(q7F;&&8^Y0+=40Xh_ybCalY8*Yr@I`5~0AGHV#?rhk8O2?y-uBH7K*}rFnmkhA2zp_X}s>6Fw1oeq|p6 zjA;z~soxuWVNfjSvY=SLr5}s*3}FMP8OvPzR(##YU)=ht`;)p%`Dhpz9gV3bDpdo| zX&g2DyUQ;Zv{dhs9*Zc!$VIe?y&nF&H)bucn8C!Dvb#_l#_iZLPc5 zEb_Nq5{y~`eUTf14f9zliA&(JR}LF>LL}U5+>Dow$mT;eC1JO_AqQ_C5*%<~-iH6) z6USxY`yQ9SWha3!-{QYhd@PnqPqKM6{`*dHHcFXIQ@zrHu>Rh{Xw)MOJSb41=st<~ zY;jSHOSm#Rvkq)!WO3iuE07kuLgt78AfBIGBm{Rv*rH9c>$J24@uqnKv)MK%wd#6= z(RRKNbF=@9L!5|Sn2qTja&QhY(^;1^&zw|GzOKv;sZ-Zk4clXO&k)F&nJS59T1_- z;4lH8@|P(lY2tCoUYVP1GM#PJ%&dldB_wWn_Rz=ExG>qHn$by`z6H6M+FKlwvq_dR z>&4{tT@Z~XC=~ViMEn8{cH98meJTEdCq|^1#InkmjX-p>9mMh9 zn%P5>b5wqGLy|8{!C!UQ88-*+aHGCT5e>l;t4|h#gde~G4bsGx1pjgaZgNKuGm*6@ z*32TKnNd0F19&7xctkFAL-;BsoP1}Tst7 z!5>XeiV9w=9ri)R?WF$ch-j3>!o}JSOnl7EdBLu@m-CaS36FH)W&JBj(Xod@S4@*? zTG*aLI2mE&@*L5|SVK7jUHj+#B9z%f(RR4rlg7NG-(?lSsP~`6gtThKX0}v z;`;kqUxh_neOvW^e}(L$ZLxdr`L53Q-uJt3@9jYq>MWajr3UG4KPV$W84mB`0d z#j*#LDWOqz{SRE>ESt>6LNGXsd~TI8tk=S1YPd}>sFo(fWXB&1cHfZTmo>A10Kw#^ zTSWcKl57#xovoodFvCiRc-y(!kXR#MxK2tna1Rr0>JrRN(wKJ2^57zIO<4Ae6hlq7 z1H8u}xuQu4rBxElQ=(aEJv+eMrBs~b3t3eG_Z0oEFFV3L^%tGtZute^{&o)mclJ@G z-fvYZEW*J|S|z|qfUQ$PnRS|nT|gJ9!|Z3VLHs|2@0%9kUZA_O;tan6W9-7MfPG|c zl52rZ$B_S9@PEIsOZdNA7=wS2fd3L(SMc}7;Q!SZ9pPV7*ctx8LcqV+b_V>98WX@k zIGUINn=u2nE@yzpFV2G%r)cc1d#wv*;{Lnq@uVVI+Y!y$)V;$v3dGvguk6_Wtj*V= z|GTJ$2aFmTu0{Vt-8=RF%$}XSe{-pS)35Eaf45)D{UaQRX8o*V7q1arEVhL8+Cv?o zeDSrNq1=~y`FXeh+RLu`cOO-`?V2w8xA_{;KgNa1ZfBu?Df++lPW11ZGw9znO#l8{ z56{-W0bTd+vUvY2(X4~1XX&3s_jKytzXo^i-+{sC-?ORzi~cR73YQG-vVS#54y7#= z8_4ykKeCvt`l`=6cCzq{PF};EH2p{?ljS8RwfBfLxOV>6z4`g?qu7|c5_+(I7^A-Z z+9|G2dXOEXsyIk>NouqchGy9kL2T|B)TQbDG$dCvDt9&yh-O`CjlqWP?ym)G?u-n; zBCY$ZBV2L^b%x7Dg8&!Zf@bct32XaVR<_?&T``MR8rPXA9bPcrQ0o4ICVe)OA9U{mlBB0q)H4aZ5 zjf+d5$yFpnL4O{MZ;wjjqtFk@I}M+A!7sq72?L;-@WSx~J36Wl*dCIj!S>!=_-th;B^^G$qlcWQiPQ`F02O^Qi~W#4M){2 zXu(XRarr&MPqIGh=LC`2@O{(){#X1@;eW6L{O{@n|MVpIx8-*Le*aGe@L#fb0RB8F zF%o(WT-IgpmkS0mKP`W3^~+&Flen*>L5x5G^1 zeKUefZ&p-KzFRG}(=2#kAa_(z$JscBV6ju?Fg;hKLhhQMqG)m};fl;xq^idhrPOSX>+pi1TEGNH zw2C&oRF>AYPPOckqv5HRJyX?uq=iPEo~kM-c$})1Se4-L(rzAC<2-_8z~-%JRA|>x zLW-ogn&p961v zbD%MPJz*GXFI(7t)(WpWONH~U|2AIZ^^nHSLA49vkrQ>7U4PaZKRkH08o!U#I0&LF z_|&&Agy2vHTtyMbLEi7B5JnEp&NeiSw2s6nPz1(O?y+Wo6eU@9%D~F zlV}gP-R5z9J%53+!dvmS5*o_WBWsOv|INP8(CuzbhkW!}{I?Lj8gwoFH}BfBPsouE zyBO^-DP!p6+!uQCUvBkkQ9AW{gH1MX@GEoR2?!P+oFXnk249v2OXJ(DZmrl}9>bhyD{iIeJsmI_=ROXW`7V9<(uf23HT~@o zW{w#wMLq|0BA_}YDBJ+VIHjypRi1`-buJ>dm)`un$eB^XUUmE9%^Pe$@V{x<@p3s_ zE*I}^b(#YUmKJM?bE;~`b8Hc7#o1FWN2aQ;+v#%k}0 z)t=^o?C))wcWIp`=MX3xt>e=ktud5Yq^JHI`u)cj4D)K+JHQwHfYS{nG#iH=(^lUv0)IIY8Jf>BbkyCWT}}xHkyZ1 z-r{_v;BDQr1zizDS`$QC6GYl6h_urn(oTa&J3*wKAkt0{X(tis(6f+h#&mcL1s>Wr zrzu*M(D5GY$b~62)QYq!Ay{1Krn8;fQ7GA~(10e}!7P;kG%Tc~Z$tGt*D$*@ts!ZD zR+#*4Qq*bCeit$yxX?&JPzANrCToWfP*w^39v#+3TZNUezR@PA;NXjTuzO6}h%<`z z@pWYE?S0MSiUj(dd4f;TnmQiedtI9(9)WpvK3jEI_{ONvqSjFS$$2c6}R>_^Gg^~ti=S6WMZ=jZF|(>M)t?q zgrPsOvZr%xI&Aj+j=4=1fq7*tRV(S>@xR0VZ89hJZ`S`&|C!A{Z|1Uhlz+C0{X1;z z-$MJjU&!zx`|H;_bZ^yoV7o4T^I%PI?^U~r9L}H{pJq=F3)Z!937)_CuY)C^7 z<-*E0A>rh`@$ZGk%}CZg-G$7Z|5Jz-kBq`H&m-l1p;YWs)JeJ0^2qU#`R2M}n^b*I zPw32kg#BJxyPsOhejO2k<=3!DxJ~ct$dY@f^kS=9^*HsLFEN=y)=2=B zOy8A?W*jP&kW5>6gtqYYi7ou#Vf{bbA*-E~tMuo4gua8Rhn|AtUP2gcyR3Zxoon8| z$Akua?^ExxdxPK69*&rE-q7$LHgY6F)uXtzLv#ZCz^m;EjfwhHk4bjzP(s7aisZp1 z#2})K_IZ1(*tPTV-`uV@icPaG(3|(8OCH0eU*lEm*D(g0{@OMs90{jT=ilOJjZYiTg2K#Zai+f<`+uC}rGBT*}QB(cZWs4jdX9 zX_j40UTr%yw*}3?e16_`?1BCd?A%=DS)2QEUt(;EHm)eSIYsm2qb1&`-?yWMU;`{U zW@Ls&(hy-NwY6h|gZ6NHIcJ6CynPtnxFWQ7Mq9M+2b-)6*4^ANHI<{dCMnXAd}agY zmjE@~>Rl$eKZ8I6c3M^gq|{O?=gU&HmzyhYO58mzElZEtlr(Ca8|^6u{s(@%!``*wF>z$VrF zJq23pQq4-^S~tx>3^OrQr5v%!?Er}zVWkCvnv2=a7%tV}gMgsQ-|gq&G1I}{5VR*_ zoDI>KeS6yRxMrMTvR z^k9kLb*>y@F`H;HZ2%2n{~1bX7~$QAzzWp^U^fT4xwVl>o7EGNnQl9FDJI`Z?HJ9ai%S1 z!a>QoRfJWx<_qurrM`TQYz!D7jV(?%*b09rgW8cdO%8c!TN_zQOoz$%RYU^zbn)9w z4#m@KRKRRxEb1u|OVW&wy<#=kV-M$gwB}guOe6PsN^oRpHqeQ%L|U?$5V^Q!m-OIy zslc@~ZCtj9XB^{Qs8~sHh)_G)DA<^h%*GTk8>67@5^52uVxGfzp-e@Y@m$Q5DY=}h z#DO2q*^XS!c&>cTHAv(tqz;x0Ep{C>BD1dZIL#xKL&0u5@z)iZ+2?lI7q~?HhUS9( zZXX36Kf=LT8i$3fZ+H^M7t<~toE^c+PPoGYE1NO?AvxxM`pZl?Xdzz@s8z0 zp=?nohZdpgG4bmC(rk*aTDR5;hB?kJ|H%3sh6%9`=&*hV@cNySOP>`pA5wS$r^=z5 zQfL9YRqRz0zLA_erpm!^3O#==IX_@`EfY2;9a&92a}b7AS)bZQ+n_Xu<7H{yrE*dTk~Wa_UJ@k{y=e#YWH7+mLd|sKTSk^dVf`}! z=28>>Ba~)naM>Ke37>_TQ$~@MD({k-m)Nnste^2m0Gzk!&tiqQ28rMkBE` zgQTg5-pjjcET`P9(>EKQW5_=htBLSAEjUuK`doMAN=t??(^p)IbM;rRV-CdONfU=B zO&p$_;_&1&4o^ZOPfp|TtUxHZ1E`N%S%lT$m zLrjj;pPxb}5Pj%E`ujC@u6^(l#xC`s%8ma@tkBc*4-h(d8D)+_u@_}baSS!o%f_-Q zpf45xuI*}wmpA`{ef4F%$-h)C-^V(DC^!gZ#Id)K%h1Hx%N#TGI=gWVQ27(C0VW=a zMiT<*&hAnZG+H>}Kr?g2(K^00NtUwM%CahF^Rrx$Q&g)WqxE z_y~-U6QNOIlKFLIMT4+&9c9>>PHDpS0p;Ks-Av{)$FD2ck zGLhx9xTs0olC#jr5Ee-p(;(uS5f>GSL2CE2ko@RTznS7dQ8)20oNkwB3HGc#k5 z$Wdq{meLeulo!RaxRC{86Fynhxjx9HN`k|MWGSt4fVDHC;RtzwV`0da&f5 zP}pwBl;9R`jUi7e!9C$k$AINHx|B$Hky+ggAE6K>2=7ga)UigOOShwRPPe$fC&a^a zJIaidGOCl&7ZNS$v2d~0qt5M66vIWU+fn3W%R08s#f6N@;h1)M38VgXUR<(ez(?D3 z^DRo%mn#ed`F;F*R8gndSe&K3A)HF6<=H-UuI|Ha)Qo-XHxHpx`W3B*zBjbLOIFZ- zrFBF#4#0nUZ>6b8I5%sm9O`1{X5T?nA(Z8yDDIK+T9u|0lb|;{;H<|j-R8}drRAFn zzEWHtN{()PJ8+^HrcfI3%CO=CMAl0S1v?ys@S4<4pK;#nlk7 zD73G+{xy?Yy9Nfk8P~8vpYt%Y(FI>YZO$sKCB)x4G}mt(+9Qz8?jAp!`Ng4^0E}qE z(4LCq*?$O1^U_-upLR^G=0S+a(5aN8&B3AimT)r60-l{uBd=)IL`KE3pU_}xuswHH zzhHaM033vNgPyrm3W43^M$w-PykvB1%L}%r`>&8)-RGxk&0cLJaK~EL#sa>P;CUy& zfdCcCYnauGN&-}iKA~Np&EnNQfTAaR?#R2wN3*xg(CQN&5Z+)Xvx@dY%yU2)$F3R6 zv1!K34_+<~BG)jx25)o)rsx|?o z&bV(j{Kdt@s4>mKa$r@#SHP=c_BK+q-pjs3l+`{BR;czRj#UQUNaLe~E3cTn8q`N` zYvJhKzhX=&w|T+VnYxvj>IA+>Z=J6`%0;VA@pN?;QM_}C#e@lmqI>mk?~g_`kx^OU z3t0<^MXc^lS%ar?XI&gT)iaQRNJrzN=)o&yMuy<2bP=;zcAYmr-K&kTXLg{u$HL!+V{4xYMxPB*Xg z^zNCtubA5|sy^Vi#j;kz(&(_FH5pm2J|L{0OT!4`GsiQMCU+3$)1P3gkeqD{?SZu?)AvD$pk4P%4BA zO14j%W%p{nYgoskmscHdjlSr?Xw<7tzs45(mW^)`lI;5J#>ebvlM-yqb=_~9_k@qt z5Mx0g3)TKj!>vM*d9)ox)1jN8_kR%T5_j6McPLQ1=;S}PLe6$e>*{^3@T^OTvgZzy z)@2s0N3{B>u2#RDJ}IHhO8P=9iM6!>#6P(LBfjP>@;HO22Jf|+ec17jNDnSVFf@Vv zI)Z5u!tV2_Gg^tVHY*ioXj(rHbP{`RtAg8!$j7NthBZa0=-~}LCbpLmcI2?*SV`p0 zY)48H_yUt;N7O?P=aKA1cDxYmJlWogV!IMbQ@j-(lUF5P@y_N#FLd34;bz6s9K1Kz z6v&22RR*l>M$yqG!)w=uWvg;_+xap=-I?^48aRfr&8xkwKlT~HzoOWr?L=5s)a1J} zQYZ)KnRHV?^3v~NQ=oh3#;B~0Bc|pCtEXU>r{I8_)*?H#P=x}rr>14WMK!w?To@V# za_PJCWMQ#oz72l-@5z-d_vEytdJ3WiU&*{^-Qboyq4JA8u4d`M;m}0Z-Uot%mKo#&oa+tb6d(>c8_IGLCcwtI=-O4qK$Rg3c|_q z33Yl(juI*=Gk z%P$!iFe*5&$6=Gd*sImV?gsOXyTKw^t69yc^ETfPmQb1^OZFPRAncC&L3TRBw`eMy zCXR0tBIcZh{Y?)XbG!ovcNWDQR`#FytusoSNgZ^0T@3braZmt0QcKlB?u z@VsE`pj*MFi4%-qKjhFYW=n6qjItJd1$}_JpK}4>LtHChzqoEh)nsR3)rLVrKOEUS zQdwlGN4k3ttoRgFxcfHtbGUT80>ahX5Wa8%`=2->IUDtBHnOcE?}fsZc`lOsZ{*w9 z*q4!35&Xe*BrqYg!2Bbs$_s`l6|C5)@2ibQlhh`&lk__8dW-iLo4y-))LAyIfE6M~ z+lcGLGFK}0h$~vHKz4mCJvfxD8;Rk{XTFIKHZ$TL%?%IhK;%`1&5oFjc^p;{9%QRF zu}ibb6B`oxk+;O}Q0c(QheNPQ&ZDw+L>hRQLv0^|ZH;jIBzQuPYlpP7JEp|Av9`#e z@n*Sygyz!Hsy~yBtQPq#Km_j)6cV`I&2++>;A&Q|{0pb6Yn74v*_F0m&ncX~doUedj0L$$K@cL$rf+hYI6yT4N%V4&m@( z@eloMMIwAhW1CpR>m6}1FZ)afWv&k%OyeapG)*i_N)oF@mL7{p&SUU9)I?c>2Q5SC zjB*q@f{%sW)y@7?crdjcci>MsOKn4KNOAY9m{$AHzfiH&|me2uFRn-Hd*~_xg7EHA_tW zva32ye;19$=mozFm8C~t{Af26~ z^C=3hhSuN|6<_3MQV0LAZrzL%=kT}vB z{Nq%3XCN}*uo(ylSwMi;qNt0oKOFj60-g^e8s=_3oRq#tGMUaEugtA^6Twkj)2HOU-%RsYL-kY#iieDp}0dAeCwLStxWyC9TVpl`@T z7e+eibn!=}Vlqw{b&5KsB$U~oa@loPZ~mU06tygrRw{J;)iI@U#rF>K0VBe?Iu_!+ zlQDPc5S97B(6USw|BvNhQi=|-{Fjg)LW)xIEkb*YmF!P450>|llu^EKHe{CNI$wy{ zr#KvNy4FL8iTQ?{(wuPFCejKe=lh&C0G9D0Z75MtDR1jcA*d^q^6F;_dE8K%W6e8- zaChL38DWLSl*jOQT?XOU$Z`xQABsNO$Z4_QnMA~& zCeMI2lP3Eyk%Zn?hLryn2`w~chQ8U39?TGp&sEex&9G9U1a;jiqvd=yRuEzT7RQ?3 zRy6Jwp<*W&%9_r;UU9VTHxI1hS4_@{`8WX4vt1hhsiHn=?1H#08hqi$>@^Dt;ahcf z3NQFecpH6{Ssr>=Vmy?->ZmqIyAaiTYFebaKd@t%lja3u=zoi}^a1gn66h|CPalZ- zogcB;_JqsUT!Q%6*p0IO!jJ6x{c(Q$UMNuf$oClr>bLb6UEOX|tg*$D@QhZ8%qBaSOc)8p0U{ z2)~p6IR=LqQid2ji){qQdSbJXUH4)(T12QwW?DGl??y4vKZ%M)dUYbkmH#VZd|$6l zI*GZlIzWVf3dt?(m85TIRO0MPw@_*oJX?88qtJjtaMQGyCu61`CH9*+7)4B_kO=uS z{ymB!<@|UEeohnqO`Tg}K2Ck=5(hMt&ML&lVMX|ZD3yzF_AE6#^UZUl!T$(n7-VE{ zC%lp16MH1dhY7bdu|>+;A=R!)6(Vj{ekDGs->WP#Mty#Vl^qtZF%%NzOgb6e)*N?E zjI<{lGuW?j-afb`hyZbyM>tx3x!`$<__Onnz)UyxM0S5raJ+5_Lq*CvJlj{@5>SM` zlIz1+*Z8!i*WoYN*S`Vt^YTjo*gi;iS=deU@gckn>g*<*>fKCr%-JlhU1ET_Nuh$* z*)KPl77VAFua~8~9~73+|7Uid;%b_8MWTf;EUZdiGMS9(!>FE*YKNt~({l(1+9BWm z|8V!`acx%F12~*OXlV<5LKj7?BbtPSB@hTpAS`(xfhUka*u%breP0ql?LrOM#>Z&g z>oVFIov|}IGj-Iq)}>Ii(8ZRvF0FN`+e{E0Yt`DiG{1Z9eL?~2e80c<`^Wo!UOpdk zpXWYzId?nvoO91TXSfD#dS?i=?1VOK+<^Gb3wQ<`F*shqV(4_|DvkH?4DJBjdmq{- zVqBLlpz&mf#VV}e(QPuagJvDu%;3X?XS^}Pi58-cu)Fn`Aw>&rh|CwB^;YA^d0PyE z`zU9j5-m?uCyU9K(2S%{ga~apw$X+|MUm$qk-!1~Z>KXP|~bVH?gG zWN_AS?JNX3DzaVdM{Rl-eV*>dY5b|-Ca7xHBxBJ9GV00RMGWHJW~Ashh}yM^@d!R` zB%Z?JPq?$J1M%l1HVz?yqEui|V+=G6Gy=-$?M1v5SjE0H!IOi&G(n?gAx+S3Gw9`+ z-87(7nmACXS*4{Se}K2I;OBGdwmsa^ia{IphtzG)fEgKLxB}09Gr4WE2J7X5y#}F4 zOb!1FZ~H%B8)^Q}p9U;C4wN}omaBLNTNbXG!X`$E!B8-aSqk0`%%`|@M@4>5vRiR> zu;NOzb0GVFxa@%KD_)_B168U?4TamsB=WpP949Ic4T^?2QPRK zz>hE79f60XXl|JJIBC}+&>eMT2pt(>M~2FgVL)>?1^stoTRT-)+oBQd09CQ$e16dnXw-cw%Esvxl$SLDZPb9 zJ4}cge^(!73S^G`h~9)@h2j_@q|^BF3;8aiW6*413C_?tni&I2P>J5rZJKLioIAsn z5p)can6u;q!mL31^N6+4TY=`!-UfvK79jk=ramW{nd^_@ix677Q*}h?w+A zknrn4I}Fi&e8#c_(egq{m_ApupC;5gy!2Qb+=mhh_*8&5L^96%Fm)?LiKu{dIE4>n zEZJDd&se+}N4A*|?CJAFlWVRlMbV`MW|JOyRMei`>9W@FZqqzzdsTAj*7^4d|W+N*xieToP6gR zgC)b42zY#4KF_A$^<*EBRvFj}SXxEy6RTjiQ~i~bRz1-NXfi`%HL~(^S?MtJmqh0^#C180(bk{N#zZ*QQPUFDxb!|t3Q%+T7qv1;p_2N;pUKCjt!oAgGzIa0_lg`z+jmGpfI%?o?hP zp37Zxd|H5A%taZ|B7$-~U^pY*Ep6&QBX*pxxup17? zbZ&?D%rZ)d%cKG_Ck^E65_?>4Cr6pgmF~mObv(Q#Y2ICp_9auD|ni^O*Q?5)eNLs^YTYsITn>V)d7wi(kMNQgz@bS9y=HF!RL0(R)FRV|8gLYUyFdJRhbovi(U8EDDnR-waq> z8D7W#4&DM{jYCBMu5F(O@Z6bu{*N5QmF@pWh_4LqJ^wp+%K=`1)nhNp^|!WpFt1r) zE-J+X_n+GS&pl24U=O7Q4nF$zL;tJL{~CrJo2%c44|p-n83N{72SH=cw3&F#ZAN5( z-1IeAckK?O(TsHro@LmJ21oN5_MpMheNxMQ0oqvG5i1MYSX-G9)V`4+Y|~M9WaC(- z@}>aJM81LbU-UH}n?MD#@$<~*>)D5~Kg~C9b-SSm=juKoA8XuFx_1#F;CkJNP|!)& ztNkcA0jd|G5W*(-{Oe8VGt5T#!!uRl);hZVvrJ1=)Vu=(0?b@r+`)-M+;<)OVH@s4mnx223=2WaI#K|LEpSUlfjnVAA+0qE_c@;A_=Q zh3gaame+9wpEY|bIQgpz20ayg1c@BgX04;CkY>;8Mn0qNItY!+H8s*y=l4|kc`ch+ zh{#HyjKo;ViTYXa=qHqcKs}9u3v%n!Q&igT9gQZ z!8p30`9M1cA!5-ob`Ho(1tekGrq-}<6FfkGy~8dQIpf(4;OQ?0@1|ETBXN&D{Bz1Xa1Hd^@F>6Suo3lB|@FEm`|K^ z5JxAR@92|oOj~|>w$xzV$nl%K*|a%@GFz`uCS^XRV{yO0k;)-z{{fif*a)$CzKvz! zB>H$D9ktBY56m-YeL)+wdQ$~nSqAL(uKI55bssKtqOX_J8hlrgEU*SD@2(-v!74Y^ zbE(O9lqpbeA6=tUzfIjadI=8mGlfJomFSrQBTiIWpCzZa_6z*=`Fi#t;>13;hIWs- zO1^Qs=SE@eF;~x7m^VIkU%*xA(b=Kch=+n@%#1T{6=NUsb2Zzb-dsN&JBHFnf5FER zWTKei(Tw`7aXbLym^N=5M}OVtw3Fs@xqg_DjEs7QsTcC}&L5^2$kMxtnDD_T7-x^5 z))d_Ac9ZEqbMm5G6`2%px!AmkAg~v>^M&f8SV0$(9Vhy}-0TUs+mDFY0v;mx@3I?m z6t@Y_`Him=Lkr`V&*$d*dftsT7$MX**A_VHx`+0_wR@C7w}WAmr(Li)OfwGSX1voB z4Y8ZRO23vpV?XmXJ@%!*f#2z&&k(8TzsJSr&G*4#V4uSq&(Ld}6P6>`*XXF8eOu2S zac#^*Oa4PGdx0uBZ~rt1T(_2t&Ma~LB?AliVgCBx^8&G@JV-ysC#HxfRTtAE8J(i@U6#lFY4{bv1}f%Ika8|DcK1s@(6m@iq~RKzNqJK2lUPv z+(tS6%)NR{YZKS775$(|eK+`&@>u)_Yu%MwIGYd+_cKo87Vu2A6?@VIqw)ZQ>-{Ql zb^|&S*fZf4*Rl$?dw7%@-iN)Wh7c8WuzpPwFRtL-5T-0jKWh~X+wcA-woi0)vsO&I z9xNwjZC8)%N8HT;73i1XBaxjhQ2ZEM?5fvdZ3V5^jB^u<(k7xQftMHRuVz#S_OI)D z2W|8Awc;AyOW>N(mW6Xx0698>6qzp^cLX0O(&+Qk~H&r4Tv-W6Rhr@KL>d{B9SJ?Z*;ItO(j zcCPEtlB%^YEhU38w{{AP_aY~>>>&;UDt*#n07cNd01ys{WrsZ-frbCXJ7dM&;4X}c z9P3T@%od`#fu~6!C7S}B&t|Y1?kSCi5hwn2!O8Thu||ekzt8p9C%E{B03?Pj6q`Zk z)Z~)f47f`-gslx@41{*ee%!^jF4DU&E?RO_t^|jK7$oeXO{XM>6zv9fbk)dQdUcVqJh&*Kw^Mq$2lY^T9CP`juRdJjW*uMvDrn*i9T< z;F-&?MVq-+j=750y4^!-#Wc^Bp-tF}y$B`4h!#g9ylmXTC=a_t!^D-Tkhn56FK}hL zz>6tlzJ|8HhRs;p7V8|Zje6th?RpduL2zm0dKegR0Ajxzy9Plx5pMJ0s2Ll3gxzmH zAQ1l!5w+|$FTt6g=KOwvb@59;gUnn5zKzif*sq`QLodF&SK-Mz=?YtdM_Kad0U{63 zlHRU|2jb+J;VfAPtQ9w-j%>#rS@(U7o7; zi{!zz#}N>%YC^#>uFiCtdd-o@n^AZK=yQ#_gUy_lw)TgFpS%FPxz~ z?hji*#P$$j?)nxK(}iG&hheY3;}brQJ;z=2GQi2Qecs;jB)nm-;-TRANkH!h-R}eN zz~?1AkG&1~xV{v--O;1iOie{q`8aTQgP>QlR?JX)riBLdu3`5{c)Z0tplMYG_W8|F zt`2caYsCt<9%U5=*^dg?G4XmzcTqF!zInAF;mIvfyr1SpzQOS%WSH^RM1RG;qh}B5 zqTR0BOQ2%_-42ghZ&2O$*bU%LE8+Q9P-vsh+qa?63qETp?H5$Zc`ikh=KO@lT1&nQ zY-a2Z!S!%H>!@{w zo;~b%J}?Nb+U)$rwN4FyX@~-k#L^t$uJp zKo|Yh^nK);U!Qd7Wd@J%h!qa+IAif6P532?yp*BfRakTEgqHo@Y4nzWkj&~o^s)?l zj1aJ2%!pBG0e#DdUJk)gJ~Zo^5u&&ieM^U44i(_lIE`vYDWXXVEqiW8;>o2XaXR+w zOaRWcZ0O|}0Y>?{Z|uLgtpj8VSi4Z4`dJaue+!Wmf4|r5c041v4!31_?@|&gyC2BQ z!>*b{SbP&+ww35N$QsL7-WYl%kT|)J(YyF4kAL4{*TXlt-7{R)%6oBEQl{$$Qh?AJ zLfbF7ts?Zyx31P(fRz}wn+33?*uim2pEoMbWkLmU6EzGcl`s|-3WDUU7AN1|FZ?Ip zl|iO}56U&;qZ@XEi&5;OCgFK-(qvN&y_|zRPDKvA3>Nfx)?n5S1)~mJhK6x5t=5VS zHs~n|&4aJ-8b$lzbi(s~kiS{WJ`Y%%eb@d8UwOd$xcwmCbxh-SBLFniLvLu+=dC_4 zYXEL|@kcK4MW}-Xwk7Pun9F-R-)b6q8CD$6mWhXYIm(elrshAv)$MUS99Q9Sm@{m>f*tU6 zbojW98XiR*=_dDBDD4H8J;?3Gt-X#Lnwb^$3tl#V(!*9CS6z_X%?%y6>Eq98=wOrU zaMMn^Sq72BBRU)yK%@pD+rbb1&I!03p_s*GfIjEQ=Zic?cg}Y40YtzPwCSJz0Uzy~ z7qHU!H&+zm486>e-;1y}^Von7fKUfb9#CGvidxE1(5vWn{YQd;nK6%Knf5*l|P}Mq90s;SpoA1u7<8#3@)|5CYo5bW#~osEh!+tNCBO_(o?7F zg#x#mIILKVs9M*bOi%`Dl82=NlAAcfAf9uL|7MS(y>x^903W3ndr{h>uv0;P7jqF& zJL~?9Hn|Jb&Y}(0Wy8l2Epau_5=%L+FZMBTbmG70WmNS=w9^tS%hiqu*^zGCOSc1A zh&mAwQkG72UlSSPVhL{g&|t_AnBjm&yqgWQH--_19~v7{1&Sum@5~<9;zS; z4CbO`935ap#E0$&=#CA9mZ@}O=|%uHAq6~%Hzo{RJJ5EnLDLMTIFM>vh&n93S$O%t zZNdFI*5~8*_`Hz=82fdIJ`2nWK(4uLN!#ESxNbebwZfc?5+t0d;} z%SGb(4BRNpWcEvZ4$a1{M^&&FfdB)Z4GMyX+cA+YJMk?&JG0EAM)ozB)STnH73jYV zOcYFk>o^piI*0mU6tpIdK+P3_b%M&nt_O0^zIYxDy9y1u22Kt!J2nb*Oz98c_UFRz zX=?Z$KA3LiRas0a4LvM^ySNevcmu6~IqpgVJ}a`EF~nrQG?0r{*0&qJ~Q-i?(a zq5pNjtmwd;lkTu5%3w{vO~WoJokfsh^_Q<L^$dwB|GB!V+^3MBgzBp1=oY|8`6<@)6*x7$+_t`$wt zyEs4aW{kjwUIU*n#33YC5Miwm;l_EyM>MRCeI0!CU>3Ucgxl?^&%_kab%0eL`y&W7 zTz}BxC|_`5CD}q~3p5ADiA_rE1$ca+el^+ek{C!N4hda^(2n)wKGZbt`}gMC9?Cv>R>tKC4hx z_D(#^_KR+7*LgeUu5FDln>Ou%v-I`R;9ZwP@LLFi2e(>VIRp>;`ElaI?R=5i1_+=2BF!Qr`rZI7dr(X5 zMIgS{2*(>MUgDufvt!WeskPTY+AP{Qr<@Q2h z2XV%0Xysd`ZH$thX?Mrd-4IIT3wH4v5eo5ZRFCy7R*s^wdE<>?V>pC5;&4hG z8^8(?P{Nl$Cd7_~?bD*hUxiw*93)p8xERv%*@l10aYHhiT>{zHuXchj9vI;zxFAT0 zN?qx^4GK|Du3v&ngXpk>o>tz(6%oMtlG~9#OsS`^53d1lr(h`o6xC+))W-VKEGT*` zMNL|y9EAj7W1jY8;v_~kfMJCUsymQ*i4$TCG3*!Dh}$%LQz{;uLrPdgrpCi$PYOp^HmwSR?&E)Xs058SiZW z(H1y#F~Yi%+L_Hq@sQ{{oM`4NP4sz#qh8z%0<&hUU=KbYhY=9D&X^70qr~a6>T5WS zwvFbng0qa%IO$rs5q6>mvvK4zo1eic`Sw33Ia~jo5Ht}Sw%xSdEucoe!B^m^lJgGT zb`-lqGko3}h^WWydiE_aYw+qLZZ`-C?z{?PnnRkQOJOz%O0b)8uHO7S;z3{%J+fFtu-3~Z4b1a_TLUKjg zQn_45p@Kv%S1@5C)~ruY{zfUV$%khKcV44aM&++QMcbi#OT{yCIpRc z#BIBQ)or(57+SXkZ^)Y$&)o9T2JZgd7D-AeFnX(Xn_Yga&`6qS+$cbBbuxI^t)14eW$#^dV4S z(2b(y_2LW<%pAeWLMv?4_4zui&-lP7@b1Jm5I9&duvpRFI0Yv#e`v+T;~=2&3?yU zP>N~20=jL~7NA392>t}IN|J>S(K|0kuOZQ15WV+uv=52)hUi_FqyH0$n5xlnBYQdO zG>X#Ac|R06?|?yrt)UTz1pe^{`8+CwFgEzseK(MNs`;nV3^|o%*vEkba9x*=rsS>AgZU6=q@K&ZdjxiyH*7C7$2CtHXYe~mjJz7=(e=J$vsP8Whd=!rGz3)G!WmpG#%H6XqumPN?$ z8dz?)IlU$WOQwVU7dJHweKd6I5}pk>EcfWh==vK#pF7*kIP=%g?on2|^fQNcsSD~F z)v8C=e!4$>3EydS8(5#8_w#xCNxvc9-kcr|y$%REL!PW5?HvZ?dw0)aKvspDTRagLhJf7OPn zI7CGr1hW;#z>e*kt{)i~Ytj_Jme^>X2{eL;t;A<9d(g!>^Yh}WU#PXy@;tTnSs4;8$7e)dUhXPuL%lj_%`erKo1t9MhA`Rv9({Y>|d`AcM-utElP&xBV@l+9&_Cdf-Fl}8r4WL%s z7z0s(yn!L@G_;Kkf+paJe&_`jQn=zZaM(^hJDw+*NI{O5AH)0?feP*N@9Ob18-$w< z&;>;2{ofv)_aCs%JBnG1HQrIo)exgWF;a*zp_q7xsR61Y6YIryqg^-NZHL-jZ|=ah zdNYAP@Nqqnir*s1+dc4R!Rh8efW~Aq<2~k3fP{V99D@^j_EWSaBYb<$IGn$1fhA^O zZ`;Nvrc4EB^u|FQjb<6RX(`lz;$4NtvySwv2By6L8!6YU^2{p`BVnsyfpBq6qs2EA zoIb1n!sF5B$Gt$TgdkaML86yY(YyjnqcW^Iz)(5kAS0|un(Ki4*kGBJ`Yp^ z7=z`Lh1)WI11QWxyYY#Yb#e6Q^k>)x-wWjWuygfeQ$M>s*RKt1tPYn)ZU=&uQNL`b zUp=b#pzjI+`hE!CeABV7W1X2j8kmY-oJZL9PJF9e6MbIGUS!8;`%%8ciwADlbrFQJ)n)aA^DcYGywCuq~S z4qv$B#?pH8c{o3LdmE2Oj9*uexwZ|02pRM<05Bdg$LPe@P}UN|$TeD!=`l|KntNbt z&&3y1;4aQ;0TyE2pl2VP3L+X}HFKKldixvL_`ukfa3_do>5c#9X<%c-l5c2Y5JB*F z0hDO!!R_DM@wc(B1+)XpbX`yM0_`<{cW({sa~k}pMF3TNg1%RON_5#ifjw9C8t4sx zxxu%MXe4}Ke`RR<&r7IHdod^AbLPm;Zaw>YI(z3fa}3DGCfy%vsn@)y*OuwnN%oj- zcy#?LM5AI6$8$rQmrdUeH{XXxZw}z(SWBMUfMVeSDjhnBo*MDKzLeVOjka(9#Ie35 z(W9Har*lzs=oos)z&BI(dQp291if>{?3g@&@UTPosLQcTr>57`5v{qeDG?3^NE` z>@ukAS{i$-hbH-9sf}aV^bV|$JbLrh=o=@x@x!7U^zD8u`GjZwM=TYj*PIP8Zj3_is)O9ok=A+K*u&kmZ6V zY9u{`rw7mKgC_@^e=`QKLe~yRXM9f>R(U+^diD#q8`TAe<|ZIsj=BzBMU<-47pynT z1A*U7C`Rm-)|H+{)MD{;N3%Hq&t}(}47c00$>Ch}Rxoh05c2 z3C^xP*Q2CCF~7C)%Kw8`9&pA&ko1_@&8vXV5G4R}M=+I!+PNPz)Gy4rsm!p%jtX#c z?^a+60uU^gHdmI9E26x4z3Bg5^goUM7e{;Za?pPr`hODrzlQz~qko2dUF%?i3=T~o z*wug=wnYWAw|<@5C&BnU!rgdJ^;z^PsQ7+Eg>-M{%xi2lWAhpz+ZYmVS7E!fL-USM zc4M`Iy_{OXRybC7f&m8hl!2A}^A$c~eaBqO#e761V08W|pB*ze8qSQlC@~-HNHq@K zR!AZ|KZV}4;&ymhfgcBlPou5%_HQn^iOK;Ct@%34hb0eh#%JX+qLr`~YbBs8-6$D* z)^*blm)s~bCNYP__|%Uo^?B?MXrz5Wpb-uqUJ!F9f9F9d!4>f>pzQ~+g%PJwg9uSd z_94Tra7oTxf+`zih?hG}Q<0zcW9tV`i9H&?pP{c$z%-&U-v(S&2N+(2hXzo_eS>kV z8-hHa!Ovk-JRBr$;+V%uQ0#n&yxD5SlhGKxW-6`f2EEKNBXf*5ZSpuqY`0hKFq09QtfIcSJ4=&$=ek?=i z=b3IizO%P&%PYtA&iln%uHy0VshvxmO%9oW1Uw%F#n+Te+M7UC8|oHvStoOriE zgJ#LbgQlBAkPd;!>9CI43D&>ith~bbI{OZAZ2}(nUjqIR5(OBCUD;nKc2D2r2CpD5h%p7_unp1d?O>#UUUEC27_dg!Xq^eZ+$FA(D7Tw* z819|T5oFu?=n`DFepY;e3_tp;g&iKK7uQp$V>fHX4G0Q2gVZ4!12{!Q!W@5z&qG*e zPWlzi4vRsT3L&g+^_Vpn3R?wgN2}opG_!0g zX!|STaP;JDTa1b_@n@h!6K@D~j;*0!H5YMIwi_ANIK((t*T09=eq0rSsD~2}hkP9> zL-0JPKb?Ck946X#;JlrJncbeX$O8sGfXgi;O3?FNk1+|&yKi2htlpmg90zce+bA~2aZHTwT!V()^M*sjA_uA z;V3>Ag{r}WR)Gd>oErHUQ~GY3pDX^yOK$EXe3*pkG4v`Pb82`$?upN+5isD3`v&eh zLx1w0<4^w`B6srX7x<`iso}3-3bX6ZaEBZW>x9{>-#7u2lb+bry`0B;3n>~*n zTFXb|x>LiqeeX2$*%NwauEO=hM#%aA&dTPh43=@1wgmzHdrZAMbA@Q=4G!HFX93@J z-5apZbAbpQ-3XPBU~1o~+k&zN>XZlA6L_Pf_h)K&Sl^j7Zqc%%VHh$PJTQ3z6NPr< z`qBxDZIQZ!OaskM(d;Bm8A=T3)kHf=4Cp1-gkB0!LX(a%WEScinT0czv}3XIfZmbI zP&>zC_^6R}aBR*4V5 zRQzkY0r#wFP)0=!D;69nzI(m!hB>meQ(Bjg?chWbChEst{q?e(SXeZ7$NY znX;M144G9!DxQr?Ikavoq^hTe?;+ZJBM!`4JA=?hzb6!Spl|-*c5@L%=L51xpl~MH zyj8R#e-#(c=GExggD3(84?x5@N|>gBbGS4O7o%m<>UEB^dhV4?Yo;A(%?J?$VI$2Z zM(@aHjE*c7&C-ZbN)x(DQ^{qV8jqzrYR6vv|%@!+C(p zR3#PGRYWy&yB;CpP$`zF6}>>oj=;s?Ym+@afu^N_cEB`5b8mlU`CJ4x?Sn!Z!IoTkMLpNIimu7Ccf8)*eG&Q`9Yrs~{qT2|* zl|n^~-?GvcfFoY_M0i>If7P_yV6JJNrEc@3S<)u1vGSxjjV;6tz6^^8yqPs9m%x)i z2di*%Njdsz!@v*ig^*`mf%Xin25s}@zQHa+xU8k<2`lScDKuo(<>)mVzj9kV+^eAM z(?o*9dk#_TOcGdYd>6(1lkYlz6W%z@fQfc<8!{$hRKJJ&0My8nc&$?-kK!%ES+g2! z&X1Te{ke)})Cc?4aOcmv_zbwkvR_z24TC*l^sV;`1N$PZ1AOg;TLtWXBYPN;gw0^a z*Hv^a9&Is3)Ou%$0XlCq{fa{ffRaM=&KCg$cG1Wvb=SQ-0{0M^j3a|6R3V1X){FM2 zizB1!TiH{MXww=2;Hh1Hfer+W{o)cE^c}wSU{fKGFpNfaziZz$R{%-=8z5nDz}LmN zmpWzbBf!ZXah-Y9?FM3iW}SpyV#m~nsF5{Gpkp6+3u6ijy{HPs71W5&61>7j02G@2 z{Un-r=TAZetkCPuZ`N(z_%E~|F*9oaX{jv|?HyMBjGXJ+>CZ7~K%PIi{0zM{eFD8h za>yLwnHx|x%o&7cP1YMcQ^~d(VeSC>1^x^L2^cPcF8VW+;s6%Y`PhH*o$8Z@*1jK~#s^JZ+KWpEjqSicX#{L1g_KY7_`lwbrBF!kuG5`Eo(zglHO zYsF?B(0Dbr8v*g#t^*2r>FfsThhVqyXO`k5@XYg67>g?$x?Ev6sqh8_9cbhDtil!6 zpszA&=LwfTsc{Xi<*NC$02$pt$moXI3f}q~R4{zGf?bP9K}&3E{;2PdG!=br`OH7I2&N_qBo zIAsi6$6LHxfHt+66_|+M4FnS2Yac&9KcmxxKCW zkn6U3#5!*D!SnoeZvBG)MK9Q_m+g1eL2Wstw*Nc>wHZbZ4A!ICT-W2;N=a?`v$e@w z|Dnh=PuLo8RSXNFUdH?_RXOPrLXFg~YxL%7Jez`Qd>>m?@>z>(G>;q@j6*f{lN!Tt zr_;L^!7o>hD=`0`@hrGVlxF$$ zaL`f@h~6qjBV)T^;}Kt!oD9N#7=&!7AYK53Q9ayl^*R1mD4`j43z$`?l*u)OpWcW` zhtF(lXSYAIR#h)HS$*l*!BK=;QVt?LQG2JZ;V#C$T& zLNsblhEN?V5na0yvtXECpHB3~r0!RkPm{y3JnJ0fHnet*$b+k+aBbP;SV^v*_<;RV zw0X39+IBVx#@~yK|6c$!D>rui*O9UNCm-?B71M8eVakgd+3dybX}$pCAfzDMZM%_u15^M^D{$v8r*@%EbMJ3-EN1KzUPEf0 z?Ii$z=Am8X;698+h6s?v%d>369lPx(z=+Pq727o7NPbaP8f0a#xa`! zT41o8)q^#5%egG)s&3Td-L8jMy4_AQpRpWr{pTiNd2$0m1b!jM>DOa$3VPr)^~I}* zw8L0N!q0EQx2mb(A>2dU^1NC(O6cqbv%~}U>{e);rFY_aJksbyG>ax6nzo-s4LnM3 z99@c*r0cpwT!Dcr%XEds8-0AXU|^N=c^-BU*o{1(kd{tz;t^mlK}1rD5Rme`mi?EO zJwJS$8pdjFDl1|_M<`4^=BhZJ(a4S&!bWH19n?-?8nx4p7k13H7|q=gv}nPh#e0CN z*a3x+{g`$iVH~#Y=zj;pUIM>O$$HC&diH?c`xMO5J1Bg+d%M%bcm3`K?5}@^fjz`l zZbvLO2s^A`PVT5He+60}hi1Ik5A~J-0h%fGXr^e{L(1c>Ou~!8kxQ_F-H)ocL3y5i z2mC_8=ux`_d1%TA@)-9%y?Scx%#4@vybg_r@;LPQsjJc6eR}=%s4N3JLE_#H#FKIf z?WiV`kU^}qFM#n=5WcEkh!7b2Dl9y>07;Etr8gqtK^;7396@tonqZURyMZQ{xP3V3A zQ<=t92DZr8;J`I%ojq=Cf=#HU3^w6(F(^l3&R)@>d1w!6T z5MZG1L8zZ(u8+{n|6yVjvuYq6dl{@q;5*f51bh;n;@FtM6$lS1uflk6u`@lC{cy$% z_qsD+|9i?qN34eZk0e^U83YaF&45v!Em=&(ul>!du#y6^Vu z0(q`iC~(wPVnPYo3l7~Hl%~M-G>I&P$g>Vz5RSZ;%uDnxW>1n{XDr4w>Z8`{@a;~c zFXMg8b=c4Cp1Y(Oi!MmL-x`3wJ6G{t&yWNr^g*m1pY!2f@}Y2OT_Bz^)_k@|$m+JJ zr`87`qR}5DP+?Qv0j?#_VYNkHKwTw5G+r>LiO?y9!et0poe?c%NSLR3_AT`oWtcQr#`Nq# z*PTl+r!&9@v;ykvn?SUpCo&flfXoF!QNgn=_lT-|Tn~MA36n)N*c!_=B9OHiW-ob; zBDC;i9A|>XYa@3Af)&KRymSd4jf}u)38G^ewrCPx05y(sH$TgiZuiU*oONP|=ea#7 zG`^1ZG&lp%VOIqBI0!rdncsxClkoaJ(9T%7oah)iv5u>5`%EY<1ihcZ1wpP6k0{7V z4!i>3TY&L1)Yg8GdVx7u-8RrxLp%iu2GN+Z)oA|y9)<&iaQK1RX%*Mwedz+6ScEbx zW&%By_CdD;BVJCQ&^@752~=Qt{{ppBE6&F_9UHpY!6(9%Wt{B5oAj%-p4z#Rao&n{ zo5|thRuN#u#>?{RAD235KDF~|#2lcqA&G5<+L`HQ+((m^S{EhxTfN+4V6^{$4lbQ) z!IVck*w)ANI5CbgIFk%Q$zUvXPQV+BZIRxx!FNXJX$A&cjU5Jf?BN5GLpgu(#pkt0 z@aQi8g^cb4-1W^V&N__2Y21dILW7DDPfzKlz&wjbqDXpIg^!a#{Y!?I#>!2I9yq(0 zQzjY3iV7hw5VaHp>tX;80b@i+gMKLxENwd~x9iwr2#%l7|F?Sfq>(*~hy~yj0mJMe z+`*c3tuyP=@B!-@L|PQmd!Ti6Laqr*)7|?R%b3v_lMWmS>Teyj%i9|@0xr#rTGP>b zYox&leW-hkwqJDHmNV+{-X-pXTK2%m@%19w{v(RhtM`+*V{my#OYPElG4@d}D8e?1 z1`Bcmn%Y8Bx^J}X8OWsv3gwWF(tYB34^x)@?Bk#X1!mb%wCr00yAk&lCA^1Y*{V#d zQ0;vTwQDJ3-{;k6zqr)43|P4%kbWi%Mfh7K)UGjF&0Dt|%!O0C4$N`qsu5!MSX%JD zsy@-X8?Q=kPE>ybGiE=7s7M`X?V%B}odJ98qeN%58BF7C{v$p{dIzXC2?6?@-_HU~ z&jb2l576dSdiDOk{Mq?C7y6~&BH$t4j2r_m{Wb8bIN(h}tRM;Qz07Cz>UVl~T?QYZ zr>V}Lsd6_;aRDPLY%vGgWZW`$8EC<5Jy`-;SjYL8z#qes!o9E`ppEo-@Uu-$J%ngo zWJ5(I3e}&d|lTVdQqCe>u2&$DS3a>M<-lt~g9Z9_+myR5=%zBFkiE@b#fg z24K?zm(1zCR&dP_n#@$>RR2=wO;q6Ij6c5DOk*qh)!>;|_tdvw*N$k)!b<>S<~A}w z+IiS#K^H>}KkY^6es&+Grw>wwG0J$1*~&QAWPn3SXG{jjc0jT8;0(BD_BR98#>WPU z7XjIy1t|TXuPWhe{HGZ(4&jr(ksR$OFKH%7bPGP;2fT@ZL#2I&fcqEBG4Oy<@j0A5 zk2C5IDZ864vZB`BS)!C;66b| zMNamMahW#*Hs0k8Ld8b3N~vM&y+i$B?-$cmM3Ni#D4$1_9H2_RqDqc4>=tfzZY4le zm7x{&VV`-fKT>MfGE&~frPk=#C8hRSx13?qxJl`^8Ea5vadQ&xe@;QQ<1)yZe7&UC09ZWpxGH$x}6ZXH78$#M*WY>)#8 zV~tR5M(aQ?)r<)_Sm*eG9(wg476psJvrXUcV1?!E0nLkSJOTYr4S+q6$v#2!=#1A6 zusXI5EoY$(y48FEe$GQHeuAIx!MVH)EDqStP_hr<#g_np94On|MgPo9~ zFEMR1JZi0_B8%SYFNfZGAMB6hQIVBX{n_w-5{&K893DD=?- zID{EAdv&Sk46*-A29EG7U^%nmRZr)C10C_IKtX!sMQ|Ms`buwEI6ZT+yUWP#j@j_1 z$%U2M9|C7oXj-&GQ^q+p7%X4VX$O? z{AzsOSY(|8kG@lsbx~*E!3GR=0D6MyXR7_4Eq4+_RLzMJ1hqco3-Kr><0um&EI1tci3&Es6C&q?p*>3AFdYz zAelj2cz!$x>_#B!ar)eQZa4AoQKN->qNix^6)&d2S^Oeu&nK&Tmq(AHw6}+B-lgw*q zXWBb|Ig4m8YUC4q>FURDY8Wmepeh3TZiLVF3uFGVDw9^b)5qQ(gfEM4ljb znNCx~J3-^;Rv{n6Hr)&xD?r8Az?8-&?v6*M5G*}(gUyE;P}qa}9`i4F5F@Mh*G<*f z+#J3ks{unX3fGbA;3kis@+!<<)&3G*5X4i0LRWQ(6 z1PB<{4Sg6Pbmg2xfL=>L2`^VgI9edSzU3^-x_;UUO$c(NubI~=|D`L~^fe9)Bjfl7 zXtFx~0Rj@X+|QZKcljYe*+Z1g#aBoE^Y<{wCj4&5_*i-TeJ zK#leds6s8n-sZ7mObIi?vDt|Vv4#p5A}%8Dg|D1_RH(;U5`!^sZn$gP8n@eHGG4*8 zl3`yjx~#t2{0C;^m*gIpPZk0|OYQswjQASZi?eoo!R-5HPGgtc03;XxX0>;Bz?WH@ zyc&FFlKk@)&M4RsQ1koO*O=n)Sy731m4D2)1NJT=mtD^vy5x3U`p+dy^hV|BbcqdCj>IE=?<#k}4*fE!9(W(~A-LoGJnZv( zIh(t>@mVXo{fj;O*Dg3Xcv?UXr0U5PZvTQV;+FCqL|ua`#mL92iXD>PwwuPkkB~fcHF~Q8A|=_8HgtXWeej zTBI+H*vYGw%`q8JRir}!q5W)KxW+P zIyy5;U}4i6vJ-P)7y!RK*O$B9a{&hv!>+9}csAm?0a)UnQ_D`yD*@&HsLbsi+Kb5# zh9$#ny%BW=vglkNg9;i2e{Xz_LFszy96jsG@hkfK#YS$h zogYM*(}4!|8^&@@Z*d_;wwrOTYJ*ljeDRW-4$1IkoPH5{HY1P@=@g)E47E$ZU|9p& zJg@Wcca08j##!z~?eb!r`S8j1753~4_a-n>T`Oi99hW_{&#vNn zc|?5C`~{@8;PK;Tfsu9TE#K(bNdq`^+0S^7j(xQP`|Qbbu0s6F1(;)JG((^BZGLQl zuX~^Ol)6B>fpX^Xy^pH1h3iwmwk2FG1FtMtn9m+jpQUmpodU4Y0InFnv3 z?etp@=E}cEJRZMKpygY9!SkE)IAh5cz!iRTqhl4bgHJX$yaU1@R1+gZ(#fPh&&Nb<1J4#~l2FNk|JD`8{mQhOfFAz%At}-|UJiT*Opk95V zuY5lLKP#WIMq&P6jHOb1kV?@DL~1mQ)a%$Pw)#Zx>oWnAYzFW;RXvSmIOY>n_-(tKQBSz~e3`E-jX#yq;uuMR{FZTJDzY4zyX@?i>Nb^G-AiR9% z5VhXd{srH_o}xArCsP$-;mbhAGL9rMvzNaTQ_M1hh1`!dvQuz1s>#S^2c{zmmA>Sp z&otUEBo8d1c8wy6d7^hUYUUCv)u=vXUD{}$z7@TC4TPh_0@}%-v=?#O11RlLNP7XN z9f!0ol=gzxz*6@?y?fF)a(u%*Fm6JIO+u|3IZiQC>^=m(?>v8k21}m6y${$8^>NDi z0B(a7WqQp6I;{D?z0f4o2n@X8w}9V&8Th0B6Yxha13xhj_NreAYU!|D`*rk7HmKnP2H`S5_0XHHwAcakdz8>FBipsrZbfs(5{Q1v*8r+Fjks+Y z#4t9VW?(OX_}T;`<}VTBbYQr9x4>h{-@sk6Jch0HX*H@_*HOC3nF3z#6PDgC5&sxCN5EI<^*?`Dt315J1*wUyhttx%3&D(wegjm>;B2a}|_7iZDJcy5JzJbeJ40e(74DrhF zDn|i+BEa3Ahc*-%?6n4bi&+vdQ&XWAP?6^-`(A7#_Z!N-Q$Pe+tNj`=)$|26`2j}s zALUHHK1oo!`82uV|2pieB4V`~VUDVCD)KC~sf!d-iMGnf?akUKq>av$@Uy?6@W?ODxyDkq| zE3Tob`}Sk8oVtN1J|9Iy9Re_P6nrcDAf!687>iIUC$Y~UP>r7BSA|RDoxw0~^_2Cq=8@)%vLc$YJOi=Bs?vAzEQ{5=4F4dsXnrY&KR`}@2)tJNp%Cj20fmH89T?*{fQ7sjDYG4UkOCLeMo3*$Pfjvto z&{Gr-?leYWj$cC*l~h0s{@YddN4zj8AYI2eFS*sDq+BphfyN!0J38Y_{M}ZLX+Z#^ z(84`ul;>NeTL+R`?)0Q;LO1NDhOhHz6RjXJ?6)XvM1isBOxRd9r?;*hMx9YL0bL62 zKMu?+(E&AynlK5sL30w^?&t$57TbzW2D)<~(qld2b=2g^fgtD`III9U92_2$P7n?= zfIS%rl=E|Z$II}*Bou#H)d7tvHHU4y90WZ?Z>SU1!Mgq)uaSX87t^C(zOC1yExerRzv1bkJ$9nd*dG}`b z%#%-r5OdtOZ3K5y7icP^Z#Vk6bvr5}eJlFO-b~y7?PaAH`(A8|#OmW(|FxUki+u}J zeKcnXm)>r?5|{p#mUX%OU%^ST1v*46(p1F3TNc~k5XSgCT=hl~`?v_*KY+Eq4;6Da zFl=`du6!4FLv5dobrE;|j4KI|+qx0Abp`&~j3pnNz*+gs65z31Yd^#Q zcvG?up*Hj=q-00XxE#5~%eoYwqwe|F)qU5%iNHT#DNbR3+f?Jb z2S&Y~#xexZT>z2tLp1v#&Ax5_)E9sO@%g&FDE*&zkge$NFJMD6ufuthsT%FXl`Je_ zO7;fCq*P;jZc~?C{e!LQici2Z7gY|Hf&Yyg`q1pnaY%B=bEzFAoqQ zk>2``=ZZP{-tnYW%s#Q3Xg;#z_Q_R_P4MRO{_c|7fj_X7><7IhaJqz|DD5%!p#6YQ z0+$Bx`$6^?wdaeaBd57fVzGeQsp~=?bjr_Y_8lGjy8RR3$Z1E>E>JgS$EZCnU#&y; z^vH2=LxOsq(vHC}V1@9BX_?%VObEA!^WbpuDtuDG=;+FItXOqM9Hhw%N`&Z@;jbST~U|&Z51HQ}++3(P^9@no_H-0$)kirPyt8;& zFE=6Zum2$v2wZ`66@7j`-?scbo<2b~AJ?(bODNI!^rv%Ou3&ndl6|aY$1p#HP}7a; z05#n6I?ni#fz2{wO<$VNw2iJ| z+77H4x@8H^D*QGLe8UM)P@!ESnDK*mfiJuYKs-u z=~x%T`oDWC2uXjuqCL4;f$D#};WA&J(7?t%jnV@)2b5m08H-_Sz`)g2oYoQeGj~r6 zC8>E>@d%t5jAC-Bhg1fbUBw>}xvhUxCLktoz;za;ebLj{e;PvU%!CeXAo6so*Fc^|jXXz) z@4G69aIaz#EYY1MNY3^Q8kVD|fbfs8Psw#yrv3w?{;01;r~YnTxq+S70}IK30A&xk z0_4~s7Q>!JoZ=7k`8W8saIhfF9lWypVK;;0!kib$$v3z`@TDTh`g~xQ+Q2xg__TXJ zD!+GIBkgfeSvo-+O(1ZGlCv9#dZG+SB9K5K8-#@6H)WrLLz+x zAbx;dd7MCFJ_;@5IyL}42N=hpEw@#|#75m(N83N=gB)i8WV^!V_N;E?tKaC@@1OrK z9XkOX`)BCbiMbt%2Axcj2}~Qq-iU?r8$f{v6^zOXcoDmtpvgGs;B4M@!WDS-5+|LX zK>fP(D@^c`nFzZnu^L6D>NHDC@dYr>yI{t_aFX6@6?a99WS> zhG~E;oVk_@B%%;g>ae6YzK%WiRbGLB1YBcaeSSZ{=Pk6NGBo!P-^5@`UF<=`!gmjV zEN=|Ug7@(K0REQ;qX88hbs0WD+m&UC**K14yiah)2x6TQ30j+^+xqtx1 zktYDbVacctb?$Z832~r<2LGY704rR2cJO}Uf{@s&68e3MFQon z7xXVd-wxtWz(dc;B*fn#=Nc|294OL3|8ve&vpIvfoI#g6b%DGbONVz`z(LwZU+&UB z&3;3(7l;jH$3`C9%ShOG$scR>`XeN{(G98A2Pj7y9d?L!*aaxj%zBoE(EI4di#Wj= z=ona3Cl~Q}^S^CyG1Ok1mtiLx-J{@0oGXm+K4e|#2yxsjaP;_&xNXZOXg|R9%F&tY zSzM8W_T#?{4~&KOV|)U!hkZdh=VhRMzJq?^zms@=c68(RcC$SKrJD-rcCjB(A%iC= z*^hAWH;E=Anlt9@47dU?zW_#-2VWUEzrJX$ycfLCV59hmoY^)Fx4#ho3bqC#M^4)) zEVu}V^EE1RVjvyADm<@GTQr;`op!m*!>ITRc(QKwl4^K`@_yVu=ENw`(5>i z>yBZT5HahKC;J8L_{=yiT8!RD`xQ`q7^nZnIbL|vW&by;qD1a_8zUi zxb}UtOapaJ!8Oz_pSN{rU0J3Y6SR4kY$3E$% zzulwOPy>5(#Jyf*a0=q!TFe%PEeK?s8ZW)~6t&CXb*a(8T+-X8`L=&uxl(cz183gU zuG_A{hcM^R1Z#wQVLIUUsJ(XtF2~_0<4w-GvG+Y_CgXh&PD@Ob(6G-J><1s2pjQ$1 z7+qspv_2ZCzLUOsc7G$aeu5cu1>tSVakHO;7J}`I2Z0f|cMUAOcQ^hBow?QzVQnp1 zLDTJ6#o?|X&^`kf@QX3Kzw34Y29%gBBsgSR^BZZOMce@zQVlGL5p{JZ7xB=oi$ z;|!EL=AMV%E@y2<+wt`U{P@|u20WS>QNo* zq8WBgsFhDWRETQWa5o(khXYgcX9|S_P9N>VwqX-l%V9yiuDGWRF9tuy>8# zr%{)sISM~q74jNnLDNBLw7g^VJ`Q*xjWv9@%IM7ZGN468drvZ!V~CJWr*>(VqPa0# z%%C39swdXIi{=%W)kP~)|0%x4E=KH%h_N7ip=A#-K4R!aoWS4|WVm8JbGt(x2jFO@ z;CGHijqbZ(_MjkexyL6Os5-zIm6|32=qj=CBZWZD4JA`fDGqA_lJOP`I+Ln&mHfn_fZ1q0W zr~(vqkcKAiLyax)g_kkJziHJ6Y~EVOvV@hWp(`OvDzw%+Oi=ka9X5(ecY$>vRGTARF!v*L(|moFAZph=1VLSF963(i1%!_MW6JnonT={MNfd9D{bm&$W($ zRqXeUYCm=cGJgvwy+trvYxF1Brbdib{qfqwx%3v+W%w4ftOVYtuyzfp0$>uje)^bX zL;IapeP-QJ0ywJ0kt>86NfR!^57`#e>i5_6gKM$81i*9SaQsW|=fGuBn%d>Z!zcMZ zh>)L2G_d}^v~#EU_rMAAZ>WC*tG#i~$vxHtU+f;&+ef{)TGu`?=Omlx(XAB^f*Dz& z_%IIR2j0jz-*2!m9K?+g<6OP>mY?1DI1&7fvln3-A|y8e$=Kf7IPnmJs*c|74oRzhfx{CYR1MR zV0K_;8;Rd4@WfMl{Cv*-K-t`)3YW+Cud9*|0t86FLQ z(0HqF2fAbZBBR43m`SG{jGvbOIR2hs60DEL<4LnThAj!Cz4sX`lQgUGLr*kZ^O;Pe zb_uc&3eSP1sZ*N-YftFdad1P9S~l_lOkLaSx{>pM#C3;t>=8nWk^~rscYlZy@pl3c z>7e7ll9oBV8{N3!jc(i{)5^u51Snv$ebr;OTv+SWT{oaO_oTyn`YQate#N2!BM~dmcgO_U67^LI`>KvqhJSvj(j9VaFWV2!SCKH+=v;t%Q`HeFRAN1Zb`t zbxlCF=WsT-0}FNe0|yt0Dw=*6=W+F&nUmo`$S|}B_p|{Juw$ima{)Eo0ckS@o>&xx zT3}uTJ1hnWebXYKq%=DP8n_E|~$GFza2hA6ym@WVl7V0U=nMDBeuSS4z^!jD^{1|FD1i;$|o7L3X z&!?}$#x(H2N-p4?2#t)*mxZB3b&a47bWh@)Yx=AJ4<2d_wdY?~^{qf#{8CT4nUxOj z843Zpj4RB1x!gB@fO+fLJSr8&cIT)H(Gl-^|7@l*#c+`F+mWho+Og0*}l^sc*6+$vgxE-DD{|aF?5SyX0>D4%qldggtO}d#>|oK%XQ2P z=YQQXqZja^e@m;j9j1midS9t;NN*6=BPU(!Pyeb@sJm{&43_Zv@1uFVEtmV__$ksK zi>P7uCAXXF6Kc~r^fKEoQ`4UknuJ{ma{&=QzG$IA_Lc8nUZ1ELu5Z6bOY{RT9`8zt z|BMpP9OEVw*CSpIZ#QQQ81g@l@}ogO%j$kF4+gS@p)S#?GX<1$1NKWuL?^hz#-YBJ z*`!t>7q3PgIi2T)@dC~b%iddyMdZ|7Dy%X*dATH%<7QNnd)f5$m#g)`5aLx{;OoIP z{L9~0d!{<7gRF-$aJAff_VpNlw)E5A;dUhy2y9E)m845h+gHMJ)w0K}6hS6X)AS>7 zQT_P(5I`o+#KD@Kk58%kE}aY>XhzH##QV>pZeDp=xK{WMyc?W4g=egfx=in4 z(*WujC6|f%?$?RJNTRDQ7k0?C>1$XLuwaP{g>&QxI;&ve5uBXDiQa|Vy?LuQdGmIR zc=NWR|98=I_hxV2KTx<2{XfK_5dH5*-`+w0nJ8{O`fq11=PA3>n>T^}m!toPJ1^(4 zI?2BTJ?FE;w;23s5%+~CKP?*ebToeJ{n2nC1`Ie7M;4k8db9zKT5mvO1-FND$GDl0 zhiZ||-{P8BVCrIwczw7aDH~!7Xzgqkohks@G_gehxhkq~K z2)}3X?DGrE#q12D%30KLY4tF zR^RhlzBgrEM(sqQ{mfZ|_oP9IsyR?Ty_(14&EYaH@1Km?KPsBfJ7-(LjExB!e;9MS z&)K}rAxijwaC+rZoNL+}i{>!wt_cda`o;!^6-bC?H{&}4mg}vnl%r=E>N)?xT0YPA zAAIphHok*D^MfZZOY$yu9YloS%r&k)^v+JYzFdK$;V$B0*XQU3-(8Z8LmuS;S2D3v z@W3dJ^py22Hb!KFOeyAZWUo~L1 z2UfX0BQHx(Ij7L$%olfz&q^0?S(>3_S2eZ?PmS!r-e&pKrhmY?_}(8wDnlzrjG#S; zQn?xea2Ejd$KkyQzgzoIU4v-lT#DrLUIO#{>^}RM)UZj$KIvvoOft%S`1Bkft5ZVm zNpTLlCZ+;>x~loSD<=r>x1evc39Il+fPW(j_xmW&FCPz|rhJ@SK`25n!#oHyuw%Q8 zWgrRm326V>ZM&JV_-N4s<6OUR0+8)8jiuVT@@&w~pZ9*?-y?pSq+r0&m1R7`$Os+Gimv8+&#&Qd!t7py5;x<-VDFUmxj!7Vz5R<&6ubH%_%Q15*?=M) z-WVgB;jHAPRrq97Fva@RqfhA$0pGp)7E*Lj`E)aH&R&KJ^Tp-YfrS7y&lX@`=AMap zsUD!d3lw#}u&dqHuV+hV{ew_?diN@f`&Uh}KD=$jpXl zJ)f>HtOBnohk`*|r}Sx`TXyaosM^-xS+lAf+T2L$h%e`3b+8le)!~8o^Y>+!bLazk zyoKj}jAM|y7NloO5&l1C1PR%+9^cs0vlk7{bb(6&OtwxSZajYy@A10pM(H0;YQ0Cb zBZ#3vJIhfc=pA4o{^n&o-ogz93+1^xKwP_>J}=*j6<`<#AMP_R-4h7o^!N|JtX;99eqEtB&=59dq|#0_7}zxuAeD^j6X*J_ZlpJU!aHkpKFUM1 zH@)8*N87$OuqZd^^1#KAbDsTF2>WSZaS84eq4L0l&$$pj++_w!W`Q49Ra z!HwToXrp%HxrR<_3p=Azp5FL9ZL>C`pe?)6trv zH=gUXHndZJ)GZrx2*kQ&`%t|C_8ZVBVlOxf#eOyuWB1>P>T*lYrn;%*(M5coRhC?{ z$ctyaF}WLpYkhWH{Ml{45HuiWUIL&n@kKp3*0)N_`ec=&nQWirYaKqR=y7H-ii<-J zBVXCB+4yfBb(Y%b<^|O7dY7S80+i|+^l>*VaIO06TB-5?^+yDmmOTxS0bBqTwdd0% zeUQNmWpJ7KJZjIsR`qpG_#Bpz9-8pkkDl;B*q(n~*H?&s*YxF}!uV6n*e5~EGHkvG zdk9yE7bPvSMYBFzQ4ag0?}X1L^Z@QT96sQ)fj&PTWL;^W44UxiM6W*hL%WQR=N7(X z){ZF^Azg*9GhL>U0jGVvio?49Sp_TbBz~RTvqZof^(=;0AP(zr*}qi1bTzgNw}eo2 z`2NP5A!zkHjT-6tE5;8%ZaaMLDuo3K&-PKEwSNcitj_=hs834xI3?O>e7;0kCw%sy z7^ro^=amvNM5vFrC+ygcX&Z%Q`Wob%5b(X`#k2lZQYhFU2=YWCj>4bzM52uA1`*&q zH@;4+BK=T|Pb^SRxK}U64Syc=N|Zz`r4VH3M-YBqN$C6p#$GR05rf%45Y~V>K~OBj zIz61DQyJL$uMh_zeq|+CpSHWb);=Y&vDeRB{d|~3(HLw}Zo<+~Qws_9KeuK8TzkZMHt_CVc=bS9h zK{2lDzjM3qIJp^(gJu`sp8S_0Yy|EF-1!d|k$(;- z%k_(Z$8*&qI33roNAa%M?;zz-7au{YJg&Lpi0e8GGxfkYJ3jL`0q8L=jt;>43HA%c zxrO3zrv})NAJLGF9Jf&ktHTit8x|`^u|&q12Hu(nbZF@uw&96rTZ$+(I2Pm0ta7iu z8;q@=1d19+t`{&7u%CSwt|4y$qkOZU9-jLNE>V$B;8$6N3XQ=`4}AL^+tTG;4A{?x zPadh-y4>@@z51%vaE@*D0k6uM*@D;1snZ$)_I^2_mpIMfc1kg`%9GZ;`ot;^6f=vI zfIk)NI1CCotisr8p{@mc0r<6V(4w*Vxb6l8OQNiDWP$3$^xc;*|2m87fE;xCm);0V zW*Orw@P&oClyPMFGETRx^10ax-@PyItBk!?2p_uf2O1^zDZ-BkyNr$hs{D&V zzft}$DWCqW@>Q41zkY7{sC0&$UG@Uza<2Zjo7@}iO)l<^|)Q~2EwI0d>-gq#5kW7YktC>$wuK&;}pU4H+vICojvqs z2=PYs253?p2eX&-?kQLg$MKB=<5@(nV!eXjV^5II2Tp=!FTR54UcGHOnLtS%BJei?R7Z^ znqxI+)tJzn)l7i-Xe?4X;g7Ep!Y*ZkB#0Z(ou%#{hi3*VJ?>9x)3{e3#T>KE4{>z9 zPR84{7o51UkBO&zu%9^SGSE9DXRG976%3+I2BG12Ir@(u$sY!_Q1!SC@i7g7&|iV> z)sNrA$P zp%>-lsu;K$;PBA}5mJC*en3QpPec$Qb1Sh70v3`Gk=9*3paF@vktY9n(kV2j|5k)D zxFuDn4gR^UqTzIufWxRE$pnmUY>kDBSm~}ZgFZ|*U$VNx-g&C>qSmyO-qMy&&(F-^e?c5_U`Smt#36{*A!D3jEuOf0OWU z3jWpL-?TaDbMUVT|B`ar@$X&ucMJZ#7yrIKr<_szn}~l8fpPBy!tJ)Wl3HXIa;$4JZj3$@q)nCx!MWlfbSQ7uA z(@(v^rGNXpFV>FW|t6_=PTN#$~8I zK-SW)u@6z#4o{VD{Bor#w~{JVp5*jwt&At?lBZ%jlyHUmj2hRq4|BCt&(>0eWiLk9~4}*qqHp3JO&dx=%lkZo2uY_C61bl31WDNg zLVT)aRJb<1_6ztQgJKx_kHX$W1}@Cww9LjI!7OF(jf{Pt)WFggz>BGqzQEWo+%Vvy zXD4SCyH`v7K<>R{8sK&MSP{bo5)|;ZJP-Pb5zS?onOT@IIYaNhj!2BsF~9DFNSC_< z!>RDV`O&KwPG$j|ivKN~85TK%{5qn`A(|6Tesp7grkNRLtlx&Hbfm+FRJ!HZXQ=pvYwI#gs)4G`J~J*9sA z;}z0tJo8OwCIhFd!K0>QJkxB!3^Ot=1`A^G+LO7$Uirn1tAYWG#{*_${#T=QYzd6k z^Zz2FwPEisZnAYPX!8{yo1IMOK?VjOz1TJfq^&Rie+p6x1}TUG>C4wie}OZ({J^!$>nOrjWOZjKC}lnrg?5-O#iFK^!P$!3O*-|al~Kx zjsC?RoVZmBXqCX%eYuynU>O?Ve*#!H1}qu_MiBNK*t-8$u)Vz)VB7T>f$gifS=cm1 zxZn870~=L{>>8!+A7jTzJc0KPBj)HTr(0ca_vL8UCNyYw7**t3&g?gWR{5+DQ=O>c zK?bLP!C8ELu$$~jHLjO&A1y=`WIUbz52qoTXxk^`65t%Vg}vUb<@5Gph4PWp))02$ zEH#$y3kDmm2O@?&pQa_!=B22aLO0k@p-%s;@cgY6KPSQSiI0Ju@IQkZ z=9(bS!)g3EdZ5$Keazi?M4y)6_LF2qI`r)K2~ec}-}%!#k9GNZVlEVN;m`jh;fGwf zj|>0Kh4*ve5EpiG`O3KWEG~@ZLNONxav_fkPd-P&Q7+uhg^zGyAy@8ZF6`v;J;lAh zvz>(dx$p%pyq^o#b73FBd+}h4*sdFc%JTVLcZXav{To zNn9Agh1YVS9~XY{7ZOf!;R{^&7#9w6p_vQgxNr>@9^uO2Jww9ZabXG$|W-p#1aP`)6GE=N()*T)2e`Z{xyNF3jP=Xf70U^$5B5LhikW3ok5a z=d)aW_j2K8F8n)}Zj=k(<3cOFTU&V!s7JUEWY4U!U3t!;EtxwNS z7Zkz+-^9GLPk9gV=YA0K=D%})iU+)}82|tFuVTTw_7zet!-WPeG;v`e7n-@Sf(vW7 zu$~Lsxv-lHtz0vout&HQ8*lWa4Y%n@%KJBJotzjho3Dg1o1J?)z5%TizockTOd2)ZR^bm1lx|9 zTZG@1K>_=pTJMBP#=6ekE<)iQm4iA9s-*tu=Xaj*2R~v0(Zn4d*y=f$gi-T=KR-9%_Isy|{`#Kc*OGqTu;p(zOgZh36h+A@ z@=m;X;Lm@%``Mn~A7cL_8o24PFFFbaHTUQb|GnhM&dQrtB;6KY{F5>6e&N2{t&FPc ziwCz%B;F=DG-7@CyNC8Z^ybmqw|)L>=+#@7#(aI(KVw6GYEu1Eox1<{M{i9I?|JjY zwNmW|Z#;NF^74@<+U^_vQ{6go`?IIdzgO*VZhYp+;BUr1yzjy%-|ilA|8@J{UVM?w zTHEeZUAL(~F&0zfe&s+>@Sc0_9Lag`)%79W;(?1F-M#zs-A}yw(Vy>MXWe|X`Y#ub zKDzzx`?|F+wXLT1UO4M}$Ihszh9b$1H=o^b>(u^FQXgKV4hwx9AZ@us5uN>ZN>RNL6l{>>5uKC1#^{!)N5H*io9;&)$-0?k6hoAcJcbk*UkUF?$6;Z#(TeTc3)fnAO3q;17AP#@RJ>X z9BEtk!mWc#&J6^9aPuEND|}(!8;_RXdwcoq$(0XIzEKc6`TVwreyn&Q^np*Sw>|vo z6B!>$?o2oxv+vPARXnlv$=*lypFi^2bYa2X_ji3l-*oQkZ-3tWr@@L7j~)p+{87P; zw|-l8)z(DC4G+El;eSjte-dh+dfH&lrqD zxa7~muWy(NiMnU{^QVN5{@(AgKm7El@ZTZdsq0P!$(|iK`t&VT+1erb2hVzIKD%-6 z-EM7F1!T8HSp1%&b<%LwEgGoqiQd#$b|orek%E? z_oq95ditlapWgrJ{7(TthyR@MbM4Q!{`}z2&;5Mp=YRdo`{lY{Vt+CH()P>9FWY|E z^UK@6eErMPOOi{em&z_#FWr6VFPC1w^wFh@msYtW5U*u%uXjJ}e%^h=?Q(nbe#cYs z3V0p7&AdPIUge$So#XlQrTjF01%H5lFaKHo1pj0H&-|;rqPz@Vjb0nQ9`)MkHRUzq zwa7cjTkT!s-R;eK|H*sQ`#taPy(vK`+A zM#V(MM#V+NN2#I`q7~6m(b3V$=$Po(=(yjnAn)OnD`h~OhT+8HYzqcRv8-;8yg!J8y~BRO^8#(Ma4zODdS?|V&mfC z;^S0t3Gs^fsQBo3WqeG0Yv z0cA@-QJ(%+L`5rOV&mdf3AJ^W`i4dvDGv*>_SRY&0N*v#*_u$;(%IMrp9X4sJ6k%N zcn!V1UA^EnzPH8NVySJ1Z(WUzyh7N+K!%0>OF)ML{pX_pbo5_f>*N``I(db*23|=+ zJ+H9Y#>?n!;T6tc^M6L zJY#JykM8b8;my1(RCkuGokyeA6g0qz5Q58M<>hqs^Rx{X$YZPRy&3ZL;s-dct?jjd z?hPuV1saITXu##$+VOW(maWfcA+<$td?sh*^3uK(}p zUg6TYP&oKs(zW++{nzvB@_>V|_6e{~#Qi7)^6hNjuiG&<-Jq4Eo3j4*@lf=We(CN9 zZ@#~sZmOTaccK5km!}!v`ek5#I`dTmGJm7^I23+M!lKT$&aQ#ZpoT#U!fY)FYm>jA ztFN3s5p_;uZF?Ue5Noe(7LNp8L( z7w<*f;9TJ9+wv?|P6P>ut|Re7f8*jKxpJ@P%2kqg1y^qO_4CV7aOwRyMj)fMrM;m( zsHwqf#rUqJqu~~WK7(MNj6kpq{*L6|5zV!)oC`nU;BO(J<_41PESIkPX|5kCNO)_a zB6{7N@e2As{y`ZgBkU=pyiu-x1vfrt|G>c&MB+_ce@}7oqg;Ft*RPsCa^a2h<4s)r zC>O8b+E?RAf7AT*Q}>Zj5(ZFRVg8|>MLSAU6Ss9rO68IcxuiZw!X!$JiIM`Yf67Bc zLxT*tnL)bz{M`H?kwg)5i!BI6RtA+z`naE4C4K9-aV*Nw8%+kCQI}Jw(*|jE#$0WY zfi6T@^*KQWEls9cYja{^UxQWK(9uj*ZOPQTk3)CgxRp!4AileeOD|gh=Xx&vg80#P zE`7-S_?nx!^b6xVx%8n6%D6AM&h6)q-*Ktj7iMLeF|kSTKJ) z>v2K+S#F;SN?g!yp7ppOUgKGh>ILPj<6X! z|FW<@g{B^1u^sEd7kyPAbyA|CrD4?yA!!`xNyj`9@JdA zERt@D%fI7A5_--HfF5TpUcP4wm z_XY2aVZrwW?~HN&`#?*lrK`QGx4N&Tvn?@bptr@^P;Kq1Zbam8bxS_$?t?g_gEY3o>f_fWzY%RSFeL;OKO`WK@o&tEh{~>)RO4d6E z6q0_HerxHpqSP&ruD$(=?Yi6=YnP{y|8u*bl*TSwCwH)cpr|ADz)Y)a@no1CpO*Ia zAWL&?Z>l}39t zUHH?D*Jx0@2F0Q906f#YA$2BtuSWl1S9mXq8%5tn(fd4I4Wdu%-rxzj=%G2`!hha_ zip2xrwafprCvVBa*Sy}b`0npoyJP=knSSzt`p2U;pI-jd?)Pv0-SpdMHlI5FP?%xo zl2_M0w|=pF_rLGCe(#og;jZh?1?^~MdS3eWL;AJhb#J|Q?aXH%bmYDG)^`&lC+x*r z+gFZmZ>zuMV%;xa9%#5Dw}QXwRQn=}C7Js1dw*Z&WKgHNO4wrfjIMdRx2Nfk$3F8; z%6v<=`=!apo_SVr zDman%Vct;QyOUSdPVIg1yBBU0z5aah!w>8^O8x28-H-3~lKF1-ss86Fzy0FrWzTI| z+Z7pLXf{7{eeGDXym99i`u+YzJ*WAv1RdWRDt!BE$H;R%H@vuW(Vsrs`-JkX-L5|# zSUebWkw@LNeaVA?TbF5r*<@$rgyFQV)tw8+RZQh{L%Fv)am8#t^RiHi8~t%Z~bJh z{ipFr-iwJ=-YZXjqImf&`cEHaz5Bq)+er#?eO1T)_Tjbqsu@0y?e=h(!cYTKKJJ}UaCY5UiAbw=I%T1&>A&(|Kh*53Haw&Pur zxKEn%9~kgE?47yn<(IDVx+yZ)r|32Ho;PI6Uj662WiNyYTA#0Y+WqdnsH0OavX7q% zzy9wZmhaeC|7h?z%a@Nm*=k#QUx(LU7A<)!HE#LLNYmopl_fl%+p_jPu*^42#Op8ue^)BfHKZ(jA<#`55o z&VM|xqiY~@SKzNP#fIz^bc3nOc^s<^rr_pQ?go*{r&y2cTP1f`$%(EeKNk_@2~vjjmKa9 zaKq7mW=^|bRIEAo>Z^C`+jCHH-}423e)0vePu$d=`xd?XW=P40g?pP$i6U-ke13OU z?dx9GHCNsr))gB6+Oik^aF^fsbszbZIluOj`_4JDhi8x(3b<#8_nY%9oRenNoaZ%j z(#YmKhtGLd%z2KPlUFq-UNh%eJ0}e@=h-wTP0gI=<~h&pbDq2BJX_~H56&rb^PFd} zBO@~A7VEe^k@Q7M`l=-gmHF~JyomC31^O}_Pn4c(Fwmv~NH0n^=s`y>&e zeV%f-w;(P~g7({I-;l;%z3Z52>ARxjHxC=oelV2s$iok#|7%hk8-r7oN@ePoc`CFw zXwY+CDsUff9)32Jbd?7Ek3yHxC?EPCMgJSpdAzGo*WIE;sDA?()kn{hupM9^xVC$9 zZRK&#p7Hm>`^N@u``EAn{w0kFRvY@)$Hf4N;OU7s4nHRTsY zbScc4OpUm|*^n94JZMcwEvXTO#~S+5yG8Prl!#t&k~pqgn_{SwsuR+CEpgT+b4PY@ zLs7Iv8>8z|=0`?{rc~C+jOl7|tEsUxLfu?dqc1TgBpI5c3)>6A8s&ZBuDHCUv=XMK zw52Fwu+h*X&QXgME%}j|=ENddtED8mJF+CSCsp3l(OHzPSGO_+bW28wF(N;-tw@ue zoXMotCJc0|8pRC}@|dc;rl^oSd8R?u-YDyhjL+=NZyG3;7z>iqMK!7%ZAxC3$SO69 zWc{MjgaL&pN-Iv+H>yjdqVAF+lR4KmXtou}m;|FNDyc_aq*F$Ts^rB|l|H|yD?YC= zBGQnOoZTQ6OJg%6A(e_Mk;1Ggil|NMP0TY`Gx`h`L!3y|p4%ECiYSdulII6!HyH+c zvKkFdIl=0@)FyqENLw0hGqh-`dX4P~)?`ab56Usn(3B$1NNX+5D=g49>9RZZ1@Ss# zLP{A1(x66TWE>2RG4@*{BMs%oHd<7oY0r+xk(Mh&@%e`8V9`KWhJ>+ZCKyF#LrqR_ zM0ln##?+*iCv_ThInDipDe~ezV}w!Bi(p}*8w!mzp(K2!x)_vULtQb z7bJ%CDh9GenvA9faZyUmfHWsQQzRBOrisM5DzPXrA+fnFtRc5SE{_`w$%qftNmAqE zBvqM4romJqFNp7EsZBDc8?$xAp*bOjoXDKex@1XSTz5;Y+}xzni<6A`!QsXASq`rBCNK#xymCuxZhg5araq)HB|q1c+dWvA z8(&}@Xo*TpY)Omi2}!R`t}l*`%Th;&SH^dBiz{t;y_)LccyUjaq&;uIYGX<(leOmX zPNhMlFfrQPn8t*Z`gBch3X^8bHg%gqb>TT-b?9q*cYdU?w@}AK=;^$+h}slwc|?P{ z!xAxAsqc<3F;&vY+Mc4^NO4rjprNZoQQl&plky7Hu}ro$Ow*Gm&B>D~t4)SxU5qL} zqK7sW4CE;yOR`hT!pjF!@~IZX0?^((nwu#bvzT3mr!0Nv2^yU zv+_#IVtXRm{~|X-LY7ugecjY3ffbk2mV0+d?9w z(K2ytMvf_1mnRDkDXJ`~3~OwTQbqLl)wU=UA!@Bs6VqmkHKl4zs@g1Tn7XIPSeYDF zCsk?G9mOqa*@FtLu3TPg%WPLAnzDkmtzpKv-1N%aDw#|qs;p78gw*#Is^#(Knq)bn zEN^Kl>NI7_bIRJgB1CPPW>Io(Z=1Lyr8Y$@Pc7^a7ZuA=MW(pYQV~Y_gAMUL5%J1i zy)v}hgvKeQFCnBPJge6jUyxHNjf_bb^^1#Y6r$pYaz)BuULPZF)ODDQO{LMc`0Qp` zrlhY$-)Jc4DhM-X1IiF5$A%kK-8FQCx;kGXvXy6x#Dg((rYfQ>JCZ3#OHP(c^$n4E zh1Seec|>ScjyxtUvdmbmEN#zAkC%1F_k;vj%4*`OEg|B_&@6+@Ag_{DiU;(@ntGEp zw?2~&FH$BBL>uJ_gnTOv)u~k>QT+qbh;Ux{~l*LCW0Ynp5sR+&YTtfo7v z^ZGQchORDsaE@7BsSvfsh%%yL)J^Rwd1hXB(?D}?k4l={Ufn3Ki%F0c<)Zm#iy+t zn<~N-IuPC;E7Ix3g(U?krY@^IKa`Qm3v}IdVpB+CSgu$isX<#pX0j^Z*pV3(oLiG( z?NZgHR~80~!#g7kUAZaI34PtldaFD(x=2!N6!pYQwM=(Yn5Zm4!jxwx86>sQI(buX zNwHC>iB6WcMMql=l`&$GD6XVIsw&D#&(@XKS0_sb^lE9GS)SQvFvql36*Og`B>4cJ zNr`rimX?xWQD}3OHaI`EwL3m6(iSX|(I%0|T%@vy8w*NHRa!+@URaN^Qz23oMd>@Wtr>BuXn8@a(VUeXB5M{m587(0 zvny@w3DFX1T5eIWC@nv~S>D&)q{`N|_a;gV@ln~ei4n9~Qd(qa)tWjCNruusRg1_x zkd<3nn{CRrL^UT$6S5n^n?mYB!sAuRdSybIda$KbT-TI2AP|nzgplT1jST zV{}?id`D+Om8d(azh5Gfm9)s!k!7*XU20KuqFPcPEE-Jck5i?`Hl=o2%?fi!cVUfM z(w(M6*_twQLX;AjN!3|cA8UxuY@iV>qzRK`DQ(e-veL$s25U`&I;2sQ-JuE&)255{ zF^C?_?yan}$;*=y60Fv~sED3AG(n=9qDr!IRZ%@*4LMSUQrcil363%kmdY))y3X8I zNpz zR5mB}>C2-HMsazQt*usBmR}#2XqD(Q6V+l#X-igOPET@b13jRQOziB`_9$fOr4}RF zf_n@(Fdc)ll3K+@-PuWbF||>ZMq77DmAtRDS}ZANvL(_CAbRui%d!#^OO?9J_86%~ zlF`;e=QfGD%S9qU0BwbhX-sVs8Y5;v(i5CptPqJZlH(#1EzSB4g{C3hq%v0~wq@ug z&F!k@rd&Y|c)!r!^urw+orP>m?IHEm2wX?i4osl<~ zb8~YFv)Y>zBl1f#BuZ&_TwhOOk={rr#KZIB8tb^qm$v|ILTX0=bVRVhc zX6%n|Y7+HyN4B&^7-Hk3&F$)lzS#7l-oe&fBjBru_AuHerGs-5<%RLlhDuXSaI)HB z?UtGgEauSOqKFi^xzHLe$t^C52`PvQ%a@Dln-q~bovGQjs47LHI4#tanBO%p&>^o; zn6g_-wOXT8Sy``4C@y1k?J?mItY~k(JF6f>qyC@Mb#;>ajL;MS#CytyIfz^T@zdvUTu!rlOXf_&9ZCWR9^qrP)w7*k}=VwAO^@s)HpZ(H%8q&54mAMGe-0#M&%LWp+Yy zVxc9Y(pHVuZ$fx+w$d08Dh*a>%hPKsvl5!RRpD)PNu@-VN=x#^jY;y9GHai-s;x6w zUZt_bNaWq6aXorTmLy7_i8zs>gmjb2QfF#6_lKy{lhM*mitfnmH>qsh;YG!bpekBx zp-bozc}c3MwkxtqB*`xAQZ?om8FK2QBT^(Cl||W!oswR$v~Qp?OC8%ycjZ0EZ@-7pOPF?q-wHh#d?W0u_Q&_8(SPIX$>t&%geoEmwkF#Ya$!i9TMbegDOSi&MtE;!EHBPg80%~q-SO&_ykJp@zAHqb$&mEKTSPHt+MFXV z3NB7dVlpy9dkivhWO2A!)@CkiXf4UDNh*&`O>Gz`m4zmtEl6uohue~*307r^T*gFM zo0Vail{QOWWt*WdzP?e0X^Tots5L&#R-LJ=j_>G>Pim>nYt7X}v>BSzgUU2Tdrx;f z(->Y=)&Pq{6KRQ68M|akbz5h*LJ~s9r^-vh8uZdGRY+Y@XLcvTTwSX4d5siymBc}rfpEV->OzbwDFJH93&IV`6;EnU*v9IUL&PgI$;9lF@6 zVpXneFe#}vGcqbiEXpv86~(coaf8xYU9VoL7sn4ubT$1+^0db@(4>MAv>Kz6`>gU%SzLcgRi%uHsLj`v6|{tl zq7uvX=GwB1+>RuBRE@SN)gp{bd;nU+uDLfh50q<;j#58O(7X-Yj{ke zrn+5~85!Fg(_d6C36>nL!4$U8t7p!+5%sgSB&{s6ASEnDlG11nFD~hi9FS&fYYe7XeI29jEi6vyR9bY|sv=RHxw2gz zSsYf?-l|mh!-^`8EzMJjx*OWe30WqkxhOq8+7KR|8kW-%Z0U-pyE}73V{@{@WwH`^ zOQJZuty@~8rO}K~6!gR!i(9k$>h!h{X<2w^c}iVxY@@jT`l6;YKhXQh+;xw2IKWr!P$AmP1cOg;xKi&$&ymu5z`hK8D1Hc zDyk_iEzjx=RR#z5wdXe)T8hygUzwVmtt=QwE*B@;^3zh4gKaS?O>IL{QkgVKEQ(=5 z;=)rJ6s?7EQpAq;NFs8RQ==Q zzAY=nnvQxhtx7$Z+20x6n~rNymi9bFv{WH4E}@%}Y9pmm zr7a>k#vm>YiEE3@POL6hCI`3nqv@kakBpY~CswKDT76nccv_4uPLynA0`qK+kqI4!BrLaA-L|PY8*b`q|n9x%d zS|t`oBnIbbG~(cp62@xk2#u}o%~b?9NV0=Pa;2hGri&3t%jzP!B4vf$9paR1X``mx z)SuBF-rT6qDad+FBEI1AUn(lKzJL(B}TCw2bb&*2HY7s30r6 zFHJ5LRm#xD+>{XATR0#O?UZOD)yjn4-mHx9c2Q5UB)8X^){q_-8LsY0Q#RD)l$582 zGd-=*hKQ&fQ*dT$QGRliR+U#HN@vm!AmFD^lmV5K~| zy(mu8CzZveHOAKlrxqkvmFcV73W94}5VdL5#YY>ewc+Zj{E+x^abJ?IS!4+g>4`9! z^%7BkLVj*-Y(`nGq%R}BCq8GOE?CrUEy_x)?a68o7qrKzBoSJKy>;m+Nry1Xpt?dyRxglD7z%MRMJx^O%X?F$wv3))UHwAmrDBuh=6Dkr2>r_TrtOEpE;s+uGr z;-1Q`=vqdV9-LIrQkNdt6E15=>{rX{L~-Tf9ILiW6_eEvot@L4CK8)sQ>}T*POD5& zpN!@PmKV1xm0>ba;G@{1|OlK|*|UY*UC%)Rh=q5HrxA%?MAZ zV!9e?nnMj?)wQ8Hy@nEbRCi`|aCA|9nkueAk`|emoDzb#-iDHh(1Av)TrHNys^q$Y zp5COo)FQpCT7s4ku!2Q3(l|P=vLiSyvc@C9D7L73L;_^JRMUt1*pAa1()7FKig*2fbV?w<#v^mR2cZFJlMRkh)WK(NH zZ>6{?GdRnvZIq`-3#|P`@v(~7_5?AV(ce^>udfPDs;Y}qrM8NC67tM31x9Ipt|++A z5T!RpfB?IQZjFwPs;n1@v?a+MDy1z}Ev+jZ3=b`6S2P=BC2F;}zAG&_H?lABnsFZZphouxFilL|) zP21+M=sZ<=tD+?_uDLr{oF19jEn~7%3RR`$O-x=)O-zVXOxMYBx*8?LQdP4dSd^5b ztG71EI;F`4QM4>CDpDUDBP*BG8*9S#HfdC1b+aL*pi!%c5029&HFm4&8Do58Q<$~g zl#`GZ+M8W#vRH#trM9&6hK{P%PDw&_c1TiqdTh3`FFCd;II||VeN|Y8w7;cBnJOvk4oi~P zhlvgHg8oEJL|0Tor?^iMtV}?pFDfRjpeIzUEa}QBNH+{L6qnbQNsW2>*4(6cwOMXf z2Zz-g4gEGzRZ(B2ExnEfwRguS z)|W@Bd#hUplM@RwY6@Z*d0mo0AIy}>vXh%dA(e(UaduQpdvRk&;-HvGQdZ@)CmCzR zxy`lRX`OAhZmCve5S!|%YjQ%HDx(|J=18rzDZH+)H8@)oT`o^-DeaY34>U0$IYs(> zRc%x!%=m^@X|t*-R#jA2Rv%WCk*y6a)Tra=_}aYm@@!STT-G0#sTU6>7A6HtGrMDp z8dEfg(acIzi{-uj(FsyxrK-mWShPD_s#3+Z)TSphb)ltMUD;XTvQ|lUGE6qSjc+HJTZ!+lGEBnP!c}lt=Lm6LRXKo9R2Oh{gBL}*)~VIWT`D=bV)h!|v~DI#N5Sd*bA0oW?W zR%XgkRN4}o<0A?qB0$CyS=84mD~v~o)(Y~7&eHZILSHe(@p&yVPd*M)RTBiq^=q8VejOwS-%zja4z2D`$LI#LMa`Pv%9QF9O`AE-YOJ+1Y9l)2#dMuYtGq|D>hCg)prN?=l7{>y=7Ee-4-rfpe@B)Tndy@ptwWv0tJe@7lOMKcS0#r++Bhc zcXxMp*P_8KK#(Mtx95K6ymyRmjQmLUelpjTXU@I0&1Ez>I>gEhPW+&QmuBpRp8B%c zrERM=zV*8ch)M4QcG1DnM2+dYcCm6SqLA*i*Lvi7`h}5fM6>%JcDMr|uDaC4HM=>B zKfp-Ga$=6lEl+ws z4rI$|{z|TF%rHGT9DhBZyk59yA#Vh14Sh z%le(j9VI98`cE``&wtCIw|$^_kEcvs7xHTL_xWp=Vt!$rc>d(q8WrUXiL`~fvfPK! z&HBoU>X!Pq207Yli|<%UVrfU>jyTe=B0`oMH=EOcR6qAf(U{dv=;R^`Z>vhNvNZMi zp6;Ago6Cl>Q@R`-&LG{ytyioPOauOMutgj4v7RfB&hRtHD3-<NwPkaO@y(@kzaVG>GG|<;v&Aoki5j#nSMiu=U8SS;fXTN7?&tF}{+Vkkfsaf6Hnes~Txz3r4+zeNY zEsiG^yhS)5bX14xe&PvGEiBx~Z}nb|eaeK!m}cmuodXU-N*)$zJjBX@3x zw^smRN2e7nQD(Dk{oWDQg9@iog40c<>RXv}y7Qd(OP0J>nH)l&1S^tV!%fDj%etDz z{!Et2S?Ql9Jg=V>S{W%mIWMN^;6B2SNC`5(|LJkitlqvko=Vqn>)#Js8d9#~<;ww+ z3@(}G=!K*wN`Ip|0*AiQpGlnYSz3blxh&$Y{wgarLuLWJH&4V~dOxWps<&~R`lT(I zywb9I`LwAGCXbkG)WfnK`1Hlt*PEJ`mQ$K(`Bya^LFh}W$o^hV+M`J4EV>4c_{4kh z(>sc_-<}JcwzV?q)op<;?s(*QD|1uI!1whtGo~Ej;}KC|)u#ugeZ0aa%1_O)a_2;l zs8yJTFl962n{|!WQWhbmDxA1JTq`2AyWx4)J)zI8qTW!AK)!t`C2>3*E8e{<`;*+g zvAZ@+Lz~nqqipZi{B&6ftM|mvRIZ3@81q_E5`Vj799%ykY(|PHr!(*UvdPdxPT)&e zBG+ZIH21!rhe(?+^ABO+dcyePE0&_t0tlL(wAr&uRAxIF1b&0mSP19CIHL82#LpWdqq~)*=d4UR9pPQ}c zCB(wQmafAiDd1;VSthb)wO%u7Zdl1D=R`GkEg+n(=?SX|!g>&6s1~m0sXfC#Til(# zZod#Na;9dlVoy#Z8teD>x+vE#u(cCjCJOLWIGH%|oX+=6$|ut3sfN~Ci&Ehgy*X-+&uYw1=C)(#W3)o9Vqs2qCxs~~(I=}u)XnEBvMR@6fb{Gfu`&-s>=!|LZhizW}FsrgF>nQ`dib=P|XJl(~&&oNzH1Trj9 zzGFChd4AB-MN4w&1iQ+*&`Qr|VMRDEx5yu#5JU`gOF2HIrAu@F^46cf0!)%T0CA;WBo82c2ij@ zu&-dAkh%74vfb{0f@D#e-ohP)^mI*zQGCw_0P=iij;0{HkRS};s-=v#;AXjQbhlBk zIbK2!a+7d6r^wPDN$t7HI~$XH-!)Wb*}(Z;5o;0ONol$l++Axn$HALZC!5~VGJJ93 zXW=zSdi6`sacTWNOM*^QV$?_BZoF6#(?_gLoE5d8FGOhISKlcByP~Xg)DD|zRJ@C6 zIfgt2FpZ~HXlhudR-}?0&bNSnN6HByLpT z&NL%#oi{4-rCT;q=QjzOY{rbyRJ_H)M#i->>P*m|a*C05BUWUX3@G_jb7=0URyFC@ zS8(179b>r>CxNy#&!v2|olr8blV#+9YHU`!rP-=c%o8_K$wW7^{iMBSSAVLb z$;DU~(JJyovMN^(8Z@bn5uw_{MMe7G{lW#}wn?{VA79?=PRGDA1H24??n_K5Qw4d- z8SR=&4Fy;etkd&_V}?KJy-dr!n6kCVKwLUkqI0$ND>YW9F^66Yb58f|L%SYrj;hs` zGNxl)=c~VLK5*thfDeBZc>ylI9i5nQkv+E(hUnW7o7 zf78P=G`f6R=`z_+xiyF#_L3lV?t*5e+*vPaRGX8b#R&MZkXYZbREuNVsjFQdv0Ulw zWMekZUdE$~1=&lL$;=!I*QuApOrscqZxy;(&9_!yRpi^SjNK@#a_6{7UhC$sW5o!* z^7*&`3W)jsz5tEcsugyO=wdqwkg6*NLo1cJMe13vv4XsIrfgSy5kYgtT)#DM`{2=z zGW#2o;o7!MdEi8EL!V9yVy92dg4t`nXhQ9!ygJOw$IyKJs=~xE#lsfnw42^dS7$@{ zvgu&k_XXwV?l!)+S#GGBfcZk{>I9-PLk9QX7X-UJ&l=_4B zMWs~Q-#K5G_m7e)3LTB|WN92*TzTDETytcD?#|QAP2>y}X`Y_uL@{f!{$z1(5xdtU z(PRz$J%Z=*AlCoZRzI@5%%pivCa*&3Q2E3zCD$uOU)hzN%wWTCzjsKQ|7>h;mZSwh zMB!3mxxB% zMWQ6=DioZ#xSIYUHmHGJPgsa9W&ILocyw=$Z)meOAHZqH<0@@be4w0M_Lv)LkTfGr zM@T!%qUvs`Fzs_=PFU+0Z0#IuwGWNq)sbOLhbH)qyXX9F+DjRs)OuTAQF ztSM1XHM)WBeXjVB;MNO?k=XFA=p}shagG8wPNUoKGQWQpZZOLMUTcu>i99{fF0;2{ ziU*TjF;75l&F^W(ePUKCrpE1v6PiZzrx&b`mMM~taVqF%?#W#mT)s<`vG_!g=@tCE zwBcZ*stR=V`Qs+|%J-QIpTOWuWdT7*tIMJ|-H9(+S>^RiZ9XtIA8WKk*-h*v zbI&74+g$iVj#mn6-OEs(ezuY>QA;{8abRYP5n)yw&yP=5e)thVu;>BvvS;YJ@M7O=nJi#6v=8%C9sH1%d#gH$1`G99;J2X3AO)*Tr&RgU zWauTUO$(5b&}0w|sn>q7SDiv1hz^~{{Ge8A$W)NiLd0dYTrWbNHA5{x;pwBXAZuTC zb2HuIRi&S*QQ&D=q`s4v;IpQ$BY=C3oJ-GYtFL!ET`$xW2;P<4?o}XG7S>xB)<4p#`zI~Po ztCLl_cL8M(;z$NRrg_Nyq^{(i03FB^iuDSH>}@CuAh?LE}o$0EyI$(mrJ== z3$PSII%R=bOK(=|t19Z3y+@{#<#OkN1)o1?W>fM?S2xXdwth~8c z9E#AL5a{QU363S#VNDyytiugMUau_uq5`Qy_PIYzq9gp*{`+2AhAOU6_3BXTEp6EgOaX=1*x#Kh(SMy&~}{i;uUNkTq+s-WIzTZa1n$ z(1hbvZgE#GrjOj1D?PQil1LBMY~@L$)kg^{8Feak?B>&GEq=k672tq*G#d7XW!@0h z{-#4~9K8q1H&61d$m*_YIOxJj)CY;udg;@HpE3LQUE!YKK4Ep=!V*r}ymaFPhMTvg zv>M-31M@=gwADCFts>b)3W8iJb+q#MBSF^@?&&esb>n@6z10<+)4kTlecW~B?h*QK zRp$L9va3gLp@>M$A(h;ah0ss^^|Xn!kx|O5EBfDX!_<-b?&kZS{u0&Z4U3lNyN&3; zBox3fsOggJ)1=R?PAAYxFtC9oJs92jo`)Qv!p(f5qw+i7l#_Vo@@^K<*t8vle&sa zqmmBDXlx#hc67ANHBA{cwe$*sn1`nQ<)knvt! zLSLA+IjS#|RpC0xJb9zum*A;6Aqq2s@Vd`!35GNR+J!{^l$SsV12j9 z>vW*_=}ubxUYe{$MCPt0eFDkcP019HsL1EF=T_G;Y96%anH1?M6)c`TZEwTw5$ln- zyZe>a&fYIaaBYLDO?fNt4Db%Ehl|zxO#0coSRG$cCoZUAM2A zAdg}}Ye_Vz+B(DfN**IC&vQcV>Sz>cRaa7$P=i-)_rPckfMXG-2YjDS-$Yio#+&wd zjH{t(7MifDP$KXIR*@y1Y>3;N@man_qk26}9h_xfR2d?)!WQ6ZP!PYqF zFp;J$;AmpQ{V*`F1n2asTOu1#p=lV;ysx`zo@rgs6MEUi7h6Jdm(73o=Vbkn8_Ch_RdSn)a#@KWP9HmL z8(Va(S?t?-1o!avUKf9_^MJZ*bH&`=ZSBudRt({8FJv=TfZ7qmEy_rnlh4~s${ruN z^C90dR}sARl3J0SVaDF$R|>f>45hy$`I5dD7O_HO0R>lvayO?OC8!NLh>C1v}I=6i033WEOaq zt8XEC1Ahm8*C{>DDOJALsPQfGOoql1!K=mr!8>h=%p+tR#*@fbcW9KCwY*S4B%d29 zpqEGwWB})G`*i21Zsh?@kuQ{u2#pdgxvlBV0mBJ71pJNCL#^eE2<t1z1RI1d=ORn6ejNd4ym1HTi=s!3veCvjt@I--95R_gy{zdV5C4H;eLqX=3T8M zi1AVS#8a+KvR~vSh$u^>^k-B6vAw%pg&|O`6WH~0!~6Lol}JM+Hc$=`;J4xZWs~*8 zHfrbo3oy>nX0Adw(A@U%84}_J4m=GLI5@GU9W0U$6zc@W^>)OC1AEU=VTR=15dMC| z^)giI16&XaChMfUbn4Lm4^C?1-8nEL9Q5L!v3I&y%j&>RZLc#?M&*egsy7OSGTRHg zKhehX$}WsI)Z&olQzszp7d)sU@guh&j{!O)Y|`SJ~vbF^R2N7t`^ z-NI03_9f~ra9%-?-jE;y{@~n;kw3oA7oph%MMJMPrQn#*uot8HkH3;c@+ZQqx253W zodCIh;7ehtEY{gBR-=1WWH=`>{0)xp5$}(VFP-Vke(rb1_pQHqo;IL8(g97LQk&2ea#A#10~_^Y2pIuNdULZoBtdAs9j=n;wSK#Fj9&i-viRcIDqpAqF}rA%XnR ze;nGmK#uq1B1%8S&ol<(3Zku#>^}MuzktZTpZo9-n7~P*!%ZS~7(EgqpcjNHa+%Z# zU^W={{|`?77oy|Cx#m@`2=wibb|ut~Uk8e4(1}-2DM4u2*)w2-AK%K$zt&(;!8fSR z7ta4*r1n29hqLzp7!Ae`|07cN7Z4Z7toR5dgZ})l#Af^dPe(d~aSE}&I!gW3ao|5X zvZbXy{!2-g^979Ln)ts)FW_w<^pJr^OXHD*QzLYZ3^? zi2TGN<8!p+7o*w^f4QE9b|r!&VnDln1SkEsKRaljG-dTu?0j!9-u_qUx(Zpx=T020 zK`7Y%UqYkcK~I{BAPFOtJTVjJuT9prkI$ck?venB;r~k?st^&J_Vb6%4yn#``CtEJ zk2j9tBTV=Q5QhZ8{%?Lnq5Z=TiJ%Vo&h)y!$kqrpcnox95PI72;(sFBAMDW{J;DBc!Ki$ssw$Q&dBkeWf`J-PN9US=Te;Mu#5&tJR&!Nu+pCYdP zH{wD8P`XW2LBWfOf5jU|`pM+LGZchAk`oWhUrX8opg>S(M-m;pYyZ`M^Y*D?i)?kV zay+&n@09}n3VZ_6UEE$i`3B{GzS)4?K7TU$#W@=E`RG#LUs^o8x=`%Ifx2%Y`2IEY zl+*uJ@&5U!_UK>W?VEqx4W{0v{CBl7eyUd9w^4o_fTuzk@z-e3B*OR0<{90#2nvY$ ze>H;y3GoXR@YK%rA85i~sJDpW;{z%(!j}V1^>0=LKYygAc}}<+dh*5m=%J zh#E9hM%&_(_lQ@n26)6ftov!n?awBp)H~Ga_ti_%mqZ=;bb;?b)5-a|oTvTV_cW}0 zD*cL9+o1DJ%Abmaml)5F&Icebkm2k|B4j%U1tKrtf1%>U2qoLcpCH_Sjx)Y5AE`P% z7d{<60q>rENp4bZSt6dQI&B9(bnFR9CHC-C)1NY**t)F4*Ilpt_!%++4#j!*3R*8-h7@c@v&j;d`!vy@hMdtQ0(Bm$m{vMfoT;PZ^ zw)xW@WFwN-N#^1aj;)3L7N!%{^T$lPZeNC+>Ctc_MV1Hi%90f7S$*rPAY^Hdsb34k z!A=n$y_(V!rIti2zMQCO!@nQg_Jg&lhf#jhW~6VV5V^2R-&Jr`C-bjuU7|w@D!3AT z=?X3)`@c9;1XuAD%3-iuDl*LEC)bKeEPo!lwKPp_PzxWfjXl#Pu*{A?4c7&=I zp1H8@o_NzwX8(amBiWaa!N9>uAS?$-5$$#?w6+NM6e*L?_#{*9ca>|PH+@`4l-hEW0OOoeP^VBs|={0AE|1Tdw7`yMFwPDhFeeUbR=Rkx?)!KJO4+XMV?O z<1}Ck5NjBHXU>Oun>VffCw0};PWkr?Cn4HbFS(37l1WxKAr=uOWOOvoKQoizm_xMA zob%y!sVuo^K_%M75`H?dno1)Us`XbYD9t8TlBX-Ln7d&0CrY zRJH>OCK3L+MB9gX3}tGG%7rLB1RvzqrEuhKC*=I6vb|-3h z_D_4Xc8R?&Ypa~wg`9+(lxR8x6kLO#E_95XJfqhgf8wT`Yq{8L@!5S6`%W6Mc1O6u z*w~A$GP^LxpXG6uQ5k8S7ca#`vL}zeV+<_bcbOJnksiwFOJ%S_1Da2`1O=M_$Di80 z+y!LUtRx$lmX)l+w1WgVf4XHgXnuDGL)ykt7l_GN=A;a~;JNNGM-Syk57z^d;-h`#Th3917xP#Z!EH z@&9bF`V>pv1;i!n3Uu}pQE6^Cl*9Kw-T9Ru6lV*8 zFMpCRuyR_OyHxz-&+r!z7@8MiQKhsNrS$S8hY>clo_l0dhn(x-!f8^>(dVHI{w;oRip0QlqX z^jAkMQt9_>3vHe++R&XwO4u6o1?U$@H`fTWRwe|Lu3ApMLJ0%&|M*5RGP0tBNT%BMhg_0tMmuE@<$=f(`aCs5AUf^BT zQ|Ih!byvIIixHJQ)@#5_USK9P799Y+G(yJrO$j4Z&O z)_lBs&)Cs3Ua!N&&+4BIsxp1D}2abElIWuXYQkbdMQ+c@8*Y^*RLqAD)&{fe&4 z5fAZ7d4%I73h}<23glUT{5&4O7pL2 zs%r*uQ|cd^15%2P&C$w1oA*ne5x)I9fXI#>X>^#$r8j1AbQSv^ z@#RTFW)yp)+?u7Rn^8rUK)!}E9cqccu`4aJq4#$@wEd52ega%0_gjuq`!t2Y!IgwI z!5;BpwtEH3a&KuV--#YmO#4KLm3;3Qy4!Z7*Oz*sO?xB2J@)nL$1~|nfY|LuTM$c| z4*`v^d^Y~7RLyQxaoz_Y#;IG=W3lOKK`qPUs}>fMdnR3bUL|Dz6F?7h8solK*#{uH z-N@TC#k%l^%557?f$_w3O#_?AuGC%GS1__h$|N7Q6x|7@GcI{B)Quj3(%8|xw8ha^ z&)c$YK7Sv?*jLkzW=neK_UhUfKbt7sK5%p?{gE+X9ntVaNjW`xfA{9la7h2TB>27e$#| zRQK{`Ys=&9fX|@AS}y7lFRZVZiOB!1FV*g)i2} zSn|r_ot=pSef$5YjWmkfmPenM81bW>q34rQrQw3SyD%#2M+gXzzW;M1zVZdyhRqkZKf7=<^kM89W3R1Or+~2?3=E!UL;av1m>ufFHdL4@x#c+++ zvwgj1BO*W~U+FArVk6>vid9Sa@@7T_*4{49ud5Qdw708bs0CPHUVW~dRWIaPcW1P| zbt^F+Mb_L?y0Nbi+R^Ph!rAoZQ0)7UvpWS!WxDMm8^a!xm})u?=o$=oWW>B46Gr1Lz`m2l$BU{`{Uk@7nf zRQO}UK&jymOmIHZF6}h2y}*zfujKY5WM;S;(Ww zWJJv1b_dCtOr|G4zx!d^){{5&uXyp&bt=`H-p19T>r^A7zBt<7) zx98Tqla}o9H;D;h$!rn-7MH-Z1vzE{%RHA{B*|>?8(22ixbL&}suJ+dHk-YVzgQIk zVT)LQW21<4HkfW=M2l+Sf7HAugJNeL|aiIFN zovuYPd*fRPq-&;7YGIPP((Ac(wNw=&_)Tdr1<7efErRm0{Y7ipp^O{(fmY(i<%%Qj z05wM6o3jn!`;}j+I__M_tK;ncA#p+5tD^2^ z`K*p|-=f*5x?Csk&>i+t3G~Axh1h}|FhLQR;}z@uQs;F4<~cz#b>W8_C#+h9g%~e_ zdw83)-bc$+Q_rc z*UPs`v5Jaecg#3Wx-2VECfmm!8h$P{Yi7Ulvy-{^4~M&bUXmBnWXPaJ5vqImgL2G! zXb8DQ;{DpB#xEaq&?J$4qZ{r?4CC6ArcaU~GjTTMAopL({;MqIT7}X9Oj;O)`DnyJ zDcc&G_Gsj@Y-WsTAO)G+C9%bjcn>-=g~HP}9{WM|UWd=wCDJWGQX$`xq4H}+c`TXH{X5MHFd$X{?wP-B#VG?KCETd5|41i1$H-! z1J46**F~3g-?J|;+6w%hr0t|Z%1432Ns1^1cgFS)h&`C3GiyI_OnM6+)s7ac(pKev z@q}cFx%ior0INpLnLxpMn4kK)HA`wqn`_L}DC)7#b>8t2lJvyZ6Fa{qnU-1PAO{5R zPD91f<&o!c{D2{WiEpI@F1s^Ny(!?lepo0MT#JvH3AhT9NxN?=xq+kg2H#WV zfQtl-7R3O$Q_iK31bE^+YCn0pVCb{r$v%GbrIVykI2^T8R)r-&A?`=!g%7%q7f2Z= zR|IWkE;?E^@0vrVDPh?7SdNtpo)b7s7FuxfaAg5J-qzyeo)R-$m2c`{%cb!;G4-egq|vv zZQ+nEvzmOD{R}#FhjkA@5Xf!b&QB5Z(}&&b+E2O2&ilmUg~v(VlklEz;1j-ucu&&8C61$KeSqsYBT>=$wi! zKRud-cX((G6i4*!_}!8F73qF~LuzBK^H=GTZ$qoKV-;ny3eY`=vj+C+lzrXaIO9(v z5kFvNF}-&NTef7B30*?(T%NkIH!UQ5dI0l@L73jXa{*fhMz~B6$?XR^dAaLKk!9#b z@-!fC6KppWnFy#3FAy@>5VKKT|DJxyH&3VHOrJ-{pw2>b^gEAkB)j=A83(wBTRr~i zYeX6CJ^vJgA2%tehJ{M(ZC+o@k9tl}d)2Qqno9oEWUhh?YtUKxLtbIyPm|c&B&ZIr zm5qQZKzc(Qv8LI3FOP8hE&cmygjTd;4&dlYC=7#C~dET|Po zr1Q#5xze$K2o5`;0Z&~^b!?B}R% zldC1Iv}9Y~Q|X4bs(xkl^L?{PhJP~fH5aoPW5zTDvleVG5$`pL8yPj=Dn-F;_xOQX ziSJ$Li3hut&*lqCd{&d}Kkf=6uJ&`1zSK z_D;7#8JJE&w8IFnvA?g+w@KCN$Bo!)_RHEVN)MgMq(LW4eb$T|{bczY+(5^hQ2rvA zzGq7+2}eCu@G)Ka_4_qH8zoR&t$6)a)L0dz+Jlg>XWHJ^3NN?ew$CZ+$NbqMfcysO zd?}7Lf4*ts`-Jgthw1dW5y?HW@s9ojBxbxc__~Bk@uax;Lq5<|sBkMJstn&(Ia}Nh zuf^0$Ag<>Cgrsmncry4kS3`C87iR4z@si)jc^@2tcw|2GZ>OM-W}EInxh^p+-V$DV zF1Nq(kuG|te##zEQ*B($P9`Ft#=xYO{Vj!q5b&d_@rAJiXM}ec*xFCL=b{RVuExdh zsq>cP0AC0qpToV8t{cT3iCOD|^@y{fQ>-G^+h*+H6}a1Hng~OfMCT&{3!#9ReIc>n z7)ic@%kvgiuaD=tIRi*ND&wDJ*XnA%EWmYD8e#~Wu?$sidso25esO>I2$^rD!KD7X z=fLe3Aq?BarzCo2hJOEx(Bs?847}{J2oQ}9!YkZOMM06V#nF;z{tk4hQ&h>$>u@HQ zo|dRGwK87`<0QNvl_T#jePMzf=J}~>nR=x_L{;8&T_=1X>|oH1;LuY$d%K|@wzVA3 z#xW^l%A?*tuVlJyRjj6=lo@8S(vW+i`C(bux}!TN%%CSH0IL9(hbaI{)_iu+76HjYf@P3mCSs2*ARs?CP>LXzr0&1u<+rK<+P{;Yjdp%Glkaf|I13xU~Wm zlD)X^+2Q!alr=9p3}-YI1CR$0_1A3ffB4+q%HJ->PX%%LgF* zus0%q!T!p(?BwpTQYAxvj-67S_eQyHYj?LiJh#kMH{v8Ys;FtFmI1=*M*w=`dSto# zg0YP)Y83*+6GEz(VBCe&I?l>S?Z>1&D&`2R)9^DrZMh6eSWjjZQqS%fQUU*tpP3oX z)$nwt;Nzf&V7^1RQkiGbOvJn`jc|%H%_>N+*FMm_0%IHRS*zh+O0Rk9+yy1Hvqz;L zb!?(!xAy0yXKJihPwQR{l2;noMn~K!3?EqTvNHn+9vVSa!zI@Shyvt`a~VH{J)cT#5FWpR_*w6Zm2>;R5; zJ8`WM{f~Gg77hRoA}4ul0+-<$;Zccg%~UXv-?Bhpc&5fMvl=$2`R$eJ-HJzfvwBml zRkvJHxS=@z3<_i%EM1kYq0eDXhdX+1f6lZAuSxJ= z#NXwH!Io5Us3bddu|yh|WASI4am_?0xhj2v#=8&65bb!%O}(O?&ovL^mn=%|6(Q}l z3-OH@zY7S$vGTurD-M34Zb${QcSg4PYbsuGj_DBtSQ&qhL?gmt5IQ@+A5m)?g_}-- z8*vO0Es`YK=EFtvmN^+?w9QFJoEO!cK`}oF;r`yNert4gqkH>RG6^BY?@h6V72V8L zeVM}4SclmSa(tfMm)f|o&r0ijBC+sAP$MI*(K+@0;GNO@x-p^}2%|l8pNelpF?*ud z5Bn7Gl0A(FgsWp?GD9&iV-*qO7I@j)ex-~D!)Bwh<(O2t#h<>9VDS+uGa2GbSc9$S zwLFYX1UVL!3ZTM~J5XN}dc}jO7t+9gGH89rnda+@3?)-Rl*zM}?ZRefRBz31)2jzv zsF$C0HsElW5;BBkNAMK?&ZMI7rF&Pe2!5IkRm;%#ZxGKDSXd|8B`^sMRpS83Y&Tbi zT8|FmA0|Uu%Ik^boKgHvaXDV{>jMVlAbV9GqJBgkc?^AF)R)P(&5D`mx5E&LD>zFo zyceML*ckZ|Pbm3Phkhid+7KLf5`N1Y>`iHgc4azhLdFx)K4v2-;s$++b;0j8Po32n z)+{Ti+FUZAc&faZnqX%5o=GRlS!2lgIEg?hqayrxEh*+{-76u)dAVZ2G3>d#-ufzPLa>sxl)fO|9jj_!*po#3_Z8#Nu) z0;ZbjYC{a>eyCwsLfnaMnC$UTe00g&mxg*nn1vi%s!kqt*el*W~!wbU;V&ss0_F(tPtek9lZCCs@wQdfn1s^){&{96I%F! zM<0!hXyCYZQTIhh3$m{p+6B4W9w#7Op6F-6pl(Q=a!6zFz(6!QX;=EC{O1Xa)qzTt z3%z9PXThePo)o*6Hnrr?U195-)w^VZl1;Y^rt+Qjl^-qg5b@5PLO}uY@x6QP#foRD z7hG+->2S!t92fPBTpkw3mzQf>r(#HRSsSze`8bERU~Ij84=R4GA9!A@a91wJyvINp z;yb+l^Md7z9@A$%HRA|P37+;dI|+f>SRbxnn@e~awNVb}ndGUV7YV~IWlgl{`?O#f zszG?5rgqU`X^4!1v7Jbu!}%A&DAkeC5?(3gHlG7#D8)y?bUY(GDa53UCd=hfqRK&p)IAX6d8I(!;muX818-4`V>y!+JnR2A#DW$%RB zPqgt)Pz8r(=zmOv2#TVLCccx6rWwRFL92H5whWcaR;C?)dS`rYFpg01rH-~mULaj{ z5vHlN>hUVDLf0xUub`%IGya8b9Xc#OsN0y9|5fAd)nrw_n02JK<+i zi^nT5AVXP_x@+RJ!r}tbitvv|{+QtA{sgsxS=Bz9CFh}dTNQVd509?#irAMNzMzm( zzE?n{!`T@b0QYsqa5kCZ&h(A3N3F|y5Kkn*@*Qbw zdW@nJi)vN!qV6n`IkAVmVl@e-p4!-G7?RoStVQL@?L=T__oIeC_{@HJ%HD^~O- zHfSg8P}N3cK4t^i@P26aA9Jk3CFA+p1X7A9^MaC<}4#Nvoxc*(SmvzRBv2f z-9T66&5CJj98P%xVq#niccQDMUf=x0*ES|5u~;KX70eyWUqWywuLFA~?!~6h3?K=9 zN$u~Pe@}aotO<1mj9&mcZ=V<54pjwhkk_79+N0Rqq6rn%>MLkR%VIP$S|T0VbR8ws z?9SxH^%?5o+-|d1=qQG^bd+@j+tch`bBQ2SW$4|8m#O!{W%w^;@nDLbhW&t-8xT3F zC9}|vh{lN0DkGH^S@);)L-1~gI3frN0%DXW&=WKU@4?EW&Lu{rI8VABG_pdaz;NT~ z3C_vb0z!xF5|%8UFsPRgdgxk_iXi?FX$_1rSuHMy%lzP%+FKu}okse)%zf;0CV zh1FXTr~*V3rMQkgW`}p>AvZ{*IIsAqBQE83V;pB#safNs`Gm%NmNhrM)>Ue1Z{rD! zWwG^uPwNz94CdZcd0SC1`vH``Vzs~5p=b#>Y#Xsq-tJR#P_9xT6FC8KHQ}D=-LQOX zK6yUxI8beQ6+p19itW53CPm@ABR+r&F8mp(Q=ZE&5gc|0tkWnqJ-Rc5aKAXQo8Q?y z@qBqw*%Iz)CI|Uw03(V4F*+T{KtIY>Niq*C*AFI*!LSJtZhn!hp@Id|p5!t#hnUwY z(-yh0U$<=kWcIFk)y6F&Y;#(k;i>2=GBV%I`a@WQ$E>|=DvHx({?H|~XNZiQW%iUa z?U>$c(t2*!hA7CAzf9fWrOyrmq**W<{1NTSEeMULhkwDW1N(|E6 z3v&0d@J?R775-?OS>?10af%O=TluPs39lE;jBRgZPsgmC_H*oNy?8T9Cd+2e)Z41O z%N%&7iM&yfT%1YNPI*>CT#~=u%YV)cV`0<<+6;JOP(D2s_ajX5imjdS-3Ip#lot=i+WCBDWO+YDg4m7dsxlPFJB3C# zKEASPyr^Ijw_7^gv*x$)bw$PUCsPa+mM=Cuv{hgXk|T(&M4|mL3Z+BB>t!Q$6-=(Q z!RXFgUIS-o*AFE)Kv)Q*lBc9D>kX9Iz1_2I$RS6e-Q|7zG$nQ+(eq&naQ*` zoRwh=cB@!OtB8A6wVS*tKro3^lA^JfY6(Lrew8-3UyHZt_4#+4%#mrl znSI{)>_IV{EqBXj)QT-BbNHf zJ`3su3jvKYqf~v)JNZial9}pw`8j^rLI)E2S3W1 zOjeXKX1Q2w%d)$&suSV@B;*t1FIhDzZ+iO)YZ33kV-lX)m8J{<%{XZX`bCP0SFpyP z`QP;-LYr!%H{_4*;!{phTZf=wSr|@=q>n|VyvXlK+L8rR%Wc80cG+)uM=%#@;wr-mY& zW&}rfoOOba`knc~TP}J%2LKdgoDgSK%b%Drq8%zd>)Dm6Si{+p^wOszO*<)Nt0)c$ zDF=L=*8h~cvqiR!&$sQQ8%gBqMc;{qksoiCWjNc=D}|VLu4}6YL%DJHPJRyE0-(O> zQDY~4$t$*M5dOWJL@}!$tPR-0tLRW$ZW;0f1p-CFz&><9t5hhv)gJC)(~z9z8s`hf4a_s zTccFk@@vg7&17Tjk5?>RnYZG!hDm-4Qe9Nx7CAi#?dVM@wOO?Xl=|5Kb#+EY)$f2J z!Egng2+t1{!lS}!pT(0!>{IBoIvq;g;PmDih_U$IyX$(DW!K`^`t-t_dSlo7#q;;g ztD52?1aub_lX4nCjGn{frWbIB>JUj%cHUC)HIeuGxiwF7FP2RkL7SY^8IksWxw~M~ z#YJQV&2JcFI3rGNGX(LR&C$W!&N=cFgu5v+WDqufnXi1yzfn}zw?g(5pq#Z>0$pZ*IuWJ`Y zn6|D|v202VkJ^8&itKpR5f=A1>d*e-6FU{XY8FtHsdGz_Zd#EG&eKQ9pjnp|tX_~4 zS+?eBl^p{EkQJnxp62PsthgK2TN|wO>U|Bw=Z{;kt##6tnndb}xBMV{w?+6J>nOfp z0QVXIZFGWmagBrr?$M`>OSW>?z#`M<(}cM4n>C*Z1pKn!wTEj*7o6& z9=Scz>kHx3xbO*T^hR~JN5&Uogx+r7A(3aOM(|rRZSB*U{+Z5nZ+d(sxZyr3Hv%Hi z8h2pHY-s!1Ac#@l{&jbly*;U{(&woEErUg6Bfbp0>Z~f}w4Lo?e8nU}tOz);w@F4X zyPu{<+if*4)A3_)1mjNug=|!s!qh|s4~xPAfblwNG#iw#2yGnhaN^Y@J)ZFNj(kiU z1C1YeT#7~&6m*R{_5;((MS!b<6>#~ei3}V{44^mMJ3W~?qx0=S?=}$D2z_am7+{*8L#r1i(MCSGSA!2bGl zy-Ql!YTEw+-9RG0nzwG~Xmhu1Z`;}pvVChiLtERfb8qZy-qMEWuI_7GZe~yT>14hd z;P1MQn)x>c<9~(EsQf#X>z~wpU-LPP=U;=b`juo@$yXu!Jm%M@l3_=WsI=qj7&CNy zKSS6g_^Nb#?;z|f!e(`06<F3Qf-=FjA zg125`o5b%vFYqrUensN1N_*~&y@L{uO8iyH zH!1NO631lx?J4#*#LF`!{9;L$No+}p|Fs;CUX%E!#A8nz`3{+yhC+dx-2~QX+FUYvQh^Dca9V`mr_sQ^nE#~$F{QbcJEf`}A?#(-P($5tUds#zY zuY0(`Jun!E`NM%dJizI^%(a#)+TK*(8yW})v|;BKXEf$@I$doo+t)NW*R(r#wlxzm zC43s8e=vPQi*?1kn>;~pK*O5Ca$Uq9(>D4+^s~4QPc+sRiG(8PcZ_Zwj6`6PD-!C} zqS1CQEzyN``y!ghi$J=Zg>Kjr^bGiWyZr;&&QMTm5B7y31D=>a6eJUu3I(H~fVL&% zMamT-Wf|5?RvkxIFN!JHGT7IrMVJ<}m8`BrY_~QXYmUVt{#}DHjW)M+Zf)zhtU=`O z^QI>Ej$IzFThswB43zc`UefLz0WH`c^SL#a!9*kqYlCwq`lZt3h7G+#F{isD)aysW zg6G<{mgc7BZSK~g*pP;DhqgPj+*@M9Zm$-NMM8Vr{-8VRj|~!S$#S;_z3Jft)YRl) zT5tBp;!2yFots#?UqRfO^f;t)KeIVB7;}gE+!0T(UrV$3g)BEJ!RwC3Jdqf^mgU|N zL+SJ86!Z7q93}dOhBMF0<=|1hupg&A& z6f-rkOoVp3TT^P173W|wHXNQKJ`k@7ef^@i<0blJyf#weQ62O{(L(w>fv7e|8(}KI z_K$)q78yJT6RlC2np*r`CkoIL(2@!9j!%Qk%05r87BeukGfUi?nVm(*XM50ZjBjN_ z&UT*YK-h^9z`d36{#01h9|-O81SJ1C#bCmtklCQ2BlbDd?bz1VEJQZ4DEBT8%HuL7 z^|r#SI)@bNinJYhcdye6^Z2zbPRv?7E?t;K{>t2h5^Jgt4i1C|gS|251`*e=-62^U zoXxbQYkR9}O`}7M2v^a7HqaYJOZ*sn8VC((STVcNV_19Y)xvCia`%Q9$C9-0cr$J$ z;7G480^i)-Iy}r;&q2T%qS${4u-gFFci^ZgArI=Nxi&15cN~iiaKK5CKzI?9X4MvKDU>3P*$4m zfOv#Wed5WE*qFxb_&AH@kIPuB2qd@L(;GqO5AAaIq1MPOa^nx7)KMQn_fTIr;t$69 zC@(E08Wd4(jAR2}K;+0tX8y&jf^od#stZzc~n1GUepBdG26Q4_hNn$O+m53q`3Ra%AE zP_WP6KN!*6K~IE@aGpp%a&Z~)(bbRIzBLi01&92R5O*ioMPEHfD9FZ9cg(XZpz#`w zX#M^uOGn1ATH?(b{XrYndIw`ELN%}@!UkqOAXk7ABlB934r@xZF8S=%$P@Oj9Eh&m z?GLVmYQri%(@gJz2S~NlZD(gB-wHrf`F61eoU9;;Zh_nsU%hZZ_HKuX4>)8TjdLtV9^?;wKov}cxCyX(Kxo_+jFX#;x))5NbJQ&_6TMsfH z*~5Oc5i#5Sk=URouq}wfgXi&5*0!J++`Ne~bR%!-M4x84m^XS+x=%_EXLZNNu6PjL zV{VU1A{5!Ed6=y(n9qu1FXA?6y9WFFwMab7rCvLzMfSL~2=`foy&5lTq&Ukx<~`^i z1I)2)jxt}FJ<$?ngFnjpgK&d8{JSEa$evbo;V1=kb=lQ{-n9uF^x^!Ce%m|}-(zBb z2U6%UNyk?wEl?Kg$1R=v9O#3 zO(gX+v9Nptukm^2hhK6EUW05?3h&Ftu#u*p7yXZ>x%9EWpBJ?|#gh{l&J~R{C;43R zdD%qG#6S8}?dyFf|M5GQFflxnYW2bm>I_KsSD{h(W&{}8TK+Gw$&du-c)cW98 z3bLgGV#B-zvPd1)eFWaKyEq7b5 z*rId~V9hj~rZu%?Uzq;)t@xb!Q%Y(3`!Arm^#`;eE%2cvaIX6PFjARYf9ylCeSZBz z8P@N~u>R%@>)(}O{Vf^R-u=An{w*2S-<4tg zT88!aWmx~l4C`;pu>Np{^+z(Szca)7yECl+)=by0|HB$V=kX6igOOg1p9-=4l@Bd9 z?|J?4o|8Lgem;x@QvS|ee*T~q93048eg=cRf0F!Y0Z%xpy@xi(=J>$~Z#+)-)!Ult z`Lna$;iz|P=(u|Gmd(x0PPx0#>x+bf@{s@k1^ZlWt!)=<+@GSnu4%teYyKqmI4;ilmdorxQIm7yQWmtbphV}PmSbuAV z^S50>%TSA_3QtzM$q@Vp8lXd<9l82W;DI@_3j5v?me%6KWKs%x_-KlbTY9B{!`ia zo)*D>2K(OAqWI5XpW_4VALwotg?8QKOub>DyW?_U@*m2HyDru9m8ZMIgRbdg_nklu z2K~1TYVL3>!l>9_IG{P>Z(nT@Z)N#e@kYZ)WG4$<(;!nrp?bAG518VYnBJ=fXX0Tl z^FOft8@FuGw1KeC6ZJu`Z?w2 zuzD_g6K^KXv)`ZcN+t`QpDz;e?BSO_#p{}><@NvjpUp<}aln&ZD#!bZiH>%u9PbC5 z#Pb2*ffAwSzu0nD&);9o2kHctcJxq_%?JHmk*R*GjQ@Qi$(1^&`1@jMQ^bTv^&NF@jGH|6sr z@Q6b^Gu*mHJiCB@x<<%O18WW9d9p$L+{mUoP!7O9X@t#qo(6v8qbS=!qy>EKTI3o0 zJ;49GPTB*!Wj*q?Tjjr7cQ0UaNHzT4Cd1EP4%vvx@pk~5@H`3pI$*t~a_qPQWvi(i zuL119vlDnLz^ADkzX}LzD#w2d7}Zpce+(GI^AvFDRYbL3)C;iEL^O_P8*pb6@ozFQ zd>7!DrgHo=;5AL~8_wi4YCgAKq(TSXnQ-#)F`K-7JUYWQ7OhL5$O zt%g;OzY92y=Skp8H;TH}|BflgpCCGQi^}n@04mC47I^0-qQEwkGw|)3#P8WM{5W8} zTjls2K!;o9cvU-WcB>rk0)+7#20q*_WEp-3Fxsbbyy0rZ^{Iy6wblRTEyFW_p0LXC zqRl9mu*xy}jop1=)$m)p4F3#J6;?T}?;u)%X9w_pK)4(20r-I}q8*L{zpzD=$t3Vo zJJFYKL-_+Q`=rRb1Nbap2g-zQAo_d2+1pgZ?+!71&5da5cc>gc0~otQHT>QX!!12T z6L+W_e;IK64%P5mU<}{bkG_1H%JE)6$8DW~gXBf5t z&jQ}mRE}>CW1P`cj-Ly&4|Bja;D5aZ&*&qwz=tCkb3OxmfIFh%*#*4s|F(Dc;Zc=m z{=lD^+-g*|oo-Rnigk);qJj*f7!~TER#T;Qlovxln2-dLke7iZFbM%BFTemH3=kkd zl$lB9eGsqoR(A8Y}&=-{*eL?#^7hd+q-9`{(!by1v)v z=6L4Jd3nw=FM-^vajgrn4=`^H##S?B^eL3y){Mv4iG2qtmCNDVoAA7giJj&YVw{!O z2R370QCr~MU1}Za9%OVevEkj=2doo=75nknH8^(olY_XA))4o|{JR_L$ljG6A?`!W zR$?c58MOnR^lEb*oYt#qGu)%qZuq5Ei#{P%^r<<=0YBAh;lpyD zwj6${)xwYEer-AYRI5b*%LCeS_^DRQ23Yfg>bb1&X|0Y2g}6MVy^g?DTJ3-*wK@r> zg|+>Md$igOztn0G!S*BC_Tkf79fy}kwe7=ITJ3;;(ds0e(XVYEdi&M=5`*6wP|FQ) zsaD(I%UYcnkiR2EdtSKlkl^13E;Yu4=vYkbBS_z3%IIq>J&o8`68p7WU*3aH3h~*` zF$PvsMh{`>n8UdD>xk_|ZmA>oO~g`1taw^2Pw!PJ9si6FXY9njj$}6yd+i|Rkw#)0 zj;Q77{W7JVXR-fwVjp=9uRC^Pdy!LiVn08smW$_w$oiEKN7qnBZ`#SfQax?wG*Cuw zTj@WV`(9f!CYi2WzT-9YT?$Y2Ap551t4r}x{IzV#C3_7%jQM<%Qw*6|9?$qHhB zHiY>Z`)PqweuHh|Jey(N@6_w813v#Mt`p{gILv)b&IOngVBmzRWAKtU)O>4zB`0yc zG5^@$!Z&eFuy0n_^A4_;oO9r*4^^Gs>r?vUk8w^KiIqJ*%Nr@9*Qa#iCm0)z#C|V@ zV{fF4zMj&S&+wYtNUZGVd90B#`g%%BKgV3uNbJLB@qVn4GJ1GQU-%N^tch6JyVKZ2 z89h9ueaO8{#O@fy_-~?&ex1_Yh`ou}yZ(l2+C&*WD5Y0@BgD`eVxK~iYbc|Kq4Y&0 zwwBnt|BmBYOBp@>q;rtN>xg|F8CpjfJrt$yBKEb!mIzm76`07@4j6V?;^7bJf@W%O8-UVNcWjI1TriJV(Y89fN4N0Bq@ zh`lo#pKR7sMo&rUD3T#pH|1-QFMb$<)bBgv{@HK6D5{|!F+YStAbqt=?>J&UVRa+l6+@g(n z7(-52iM{4lTuUplmrTRlQcUbbnPOrc$n;`jjkl@oNFTUO?VI#z#8E`-uaPd)3Hbed zoKuV$BdkP5agW&Gvq&?>e;g+A)p(ZPf4h$RHA=T26BZHcLZ&Yw_M$t~I?@M__ac3t3~v^ojznyG3te0ZihE-PH2)eiU>GPH!)>+iunFCq2;M3i8gaO;n8 zesIoR@WT5r7cC+7t^09YONjjv8AL4#F#dn06Q{7g0Zx5L&0S_Vh!{(V?YH1HqJ-E# zAQsd~_{nUXXKW`0%jT&4w83|@It7d7;hfAP*7~SUxaJX?LXOWPc4;B@VIHyTk(8X1 z;U)92eOzk;d=fFrc@=(u*ya;!EW)ubBKAgPENT-hDpKo6HzLjRiQR#?P`lypisXI} zJ8c2BQ%LN6$k;++e~L^%ZGm4SISb@xOr5x5F~+$ZpU{oWT10Glu}+jOBK9T3jyeIq zyF{H6BV3}@Hu!U`j>Gd>ElThjRHAAN+@;kq_)UrS8c~X|RH}_h7}4q&94u3>WpNl< zhGSfa?@Al0GkjCmOJ3vh(XR#l{#@VVpvA(UyzYy#7@Sc(xem0}sQXB|zDCF2r%8)zvCrkih7qcepOwOVac*zvk!SKE}1AnnVE zozjTca@1B>*QmBB9Yu!9iM^)@uc4?NaA%Xc*3ubk@P1$!u{)3xs1xw*HEJE{wr0Gy zDJS+VWO}*$ova5mP7I!RV1KaO(1O>I7PSvjFEYJ?*pHAo@|?Ho#L8B6O{JeB zV=IZhvJJ17mBda)rdJZ%jLbsqZpVC%jH@Ab!3Kjr-s-oH(|`6Ho`kMsmDtHh#ajUR_Da)Rt>S2Bd2SKEkn+t zw!y7V^;qfkn=uAzh8T<1DI_YNcZ*Kky+xfX>5It1N@71mY?Z`buodUO zlGsO(F4QjAyH#BaX+a0Z%~E1_Ap+Mo24Cz@>qzh2hHFtl>~>@#>NtFTn_5R&-if(u zDY3smhEa>{m=CwBb);@&>~dnsh3%j=z?)p!`&c;LrQ`4Dq@N?f<;32#1KUS!hLd+{ z?`_~iJJtA?7VpC2mlOLUVnLmNZ|+j>fu-ZSaE%rdn};M&n_z+ba}}{-H(m#;h`kRV$Ddhn%IrV*=k~4 z$QX<(H;g0s)x^Gp+*?g-#eSUgYGMx|_0_~4K|196@a6;B`z2U{B$g9f)T0xpmJ|C= z$hqajzJ}yr|5Nay$JKS0K82JnBUbkW?sL>;IQt1TmZa|^9m|Nl zH;Cb#DjkgrMKB3J^@R>j0TF9R_y`~duPhc#T5c?i-x`bHW8#oUo@_RYF zHoc*J)`rKB`VwNlI*H>dA=dgPj;n;&V&o`l8*EGBG4itj{N7t?e~j=3q`j8dn~@IG z(pJP>OYC2fqqW5T4N24zoBuZEidtgtN6yNh6~df_r)s~OJwNNr!b;bY82#l-rMvDk+g%>6`r zJ%RzPj=|iNwj2&?brL@EsrLRH?nV~koVek8NEPZ7T>lyN2m9uL7k!T97-MGWMJ!8+ zrL%bKQeqnsJ8B1<_65eR{FyK8M+#8K;02@Fn1p42Q?(5qLJUiZHGYG8b}6wt5VQPw z6Z`@>BR{8~!}t<<{#lX>zOU1(c~Y+zTagp%i7h9+7+Fv3W!ZXRa1fh|OmGmJFXJHA zj#wPTp1eXYYz|^?x=Jsc4q{t>pcg$3VxK~y4q{)qS}%?{h@EteUL+mFW>3(Il!Mrf zh@l1h3}3!ZFH9TpS`R2djv5xsxz4+`_z4{zCO)p-b zrsw%8z4v>1UwCN{>Dfr^QRMJOVqZdzp?2i!#S?ex#X=m58~znBwh()82F^nZv4@a* zTjci@dhs`8P7ASzf20?sEyQM-@w_d>UX27%8)4B*z36Bq_D6T)y0jA8fgEck_6uYf zwYW#mJ?Z5!ruU|o?!8YhMm7@r4ss543SRbrUX0l!f7YxQe@3Vs=juVdIRBuY`yPo| zIIf?n>zIVk{7kRDXMj^5(u;OHZ_I*g^sri<-a|gU_q=r3BRE%^i2V|AZX)*X*?JM% zL~H|c9JK>>%~9KQ!#~c|i;1|twt0GS&7-(Sux}<9K*nI7WAKhby%;C=AAVk_j>R}% zFCLz+-A8bLk)HpKf%Ij>)K2U}3vi9viCu^kqPD^>9>aM+ZCQk6NO?Q4El7Pkv15yI zJ=%$#hy>e-y$czX`vbqTMD35G6z9KG9ha#L+ehYL%$t_#MaeQfe-~tfr^|7V$!i41 zS7__QB4l_2v5!__y$!^!Kt@r=-~&~9VaAxWz;;Bm5qniNw%JDPt;mEnV(&zzw^2sl z^z@$U(&txT-q=EH0%_ku?1YuLPFpCWpL=>Q`1C&U(i`O?woO57qqn_WVnV_#x-3yK;+>c0ME3r$P^}^ap z?4OW&)JZsVt$M5l{vH`@A@<>Q7y~WD?m|wXcEi^7dT|zyb-`;K>e`v$@)q1{SZ;%3 zTGhQ{fXk6Hc&rWXY1Q-hqS7xBQ!BCOkOFxxx8Ycjb1lTyA=$0Ou0@Qf9q?(y>Lm6f zq~1yFcQ)YuauS=1^q@AuwvCuWP`lu7k+_rC_mG5>*fpDQ-kiklc48l##9q1?bMjLY zH*Q`BvBikFgED&2r}wFs-g*GXwUyWs$Z z6t>ewY#Wl0_aKZtt>@1y(r-PZ?E_qhhz-R4Gh*04?1h8426F$Qb5O1Cf~N-6`qD>_ z=*2A?h;r@uXt83+S`a7k95m<3C?;}ts{LNv9=LAgw&%>z%$x9(#6l= zeL@?tmB?AtHrVl;T1R>wIn_?=B}Z}HQ5)dIqiP*#A5yr1*h5H_oZsM=N7XTk=k?z=%Cb$mib5TYQ_4NMg(z!!;Z?T=&H;}}3VoxGT)JeGG zBp#3LxZ(bP#<|)~89mjdSN##=!A0!N$OP18SokNk59$4;)B9IT?>L3$+DYsRQ*DhjrYRl7m{Y#%i44uT@`X=_j zlh|3v^iE<+<)1q#qyK(-Z+_{_f5G|eB-U~o$JI&f0_1EbW%NZ)@0l+B;vGE44q`8O z7x&2yVy{HHcTh%8bZNzVm}hnndjc8WK^Z;IrLw;{?WBx8=hChZaqe~!djv6~HlNXp zch9KTkrcf2W9$R2uK{lPSiO#<_qUc_p2Aq|B3Aaows%oRPwe#m+UdQw)BAEuFZl}l z*+pzMV(cPzH)84{_G!e7Iu1KW)oZH@-t#r~p_AAn<#OPki=pUZmTU>h8m@Lt}o7e#2 z+D$Bd8_%(uGWyV__pg=ad^bxJ93XbwSe&Z^#7;r%2Z((TaUGzH9>Y@iWm#fmAF;lUnMy0q3oo*zOx~jNQaOiP*b|{m#TJ;q0c2KGM<;kl}7( zW&h|i-IUQsT3Ut}_7Pi+OxQ>4)iJ%ILkD-j_GM-*0-K-}GL-((y$Y13ko^MXWunPof1iOgsl*>_D*JO!@nzQ)z)B*?A z;u_(c$Kc#`>fX1)-)MDuZ)NGNEm>mD|(@#+S-=I{g)k&Q$`@2uphg!!8k7~8_4_bW!p3`dScXq0JEUe$D&V#g1 zTP_{cYN>9Q+8=_ac4hJRd(wt3Tx0Bm9rkpob)>Io^$@&bx2kjCsGxz*i6#wlf4j*OnXhWr<=Wh~=g5ssp%3P#fW# z18N=VwLQ4+usjd$Lyn{F>5=!kdM@b&PhbpSc{bdGj5~<=AO7|rwuSmQyx6VAp6nU? zpj&NU_VtZu^>KIxX+KEp7>}w=u*r*i33W5f>&1CINbG~XY9GpBn^t$gq24ThFC?Wt zRj1%*NKp12_F*1FT&uBtScDi+Tj5r@ycFjgzKR&+zvY2nA^G*hPW9v7k^deCRw6kK z#72=k)G?Sq;wy;l4B*_ZB6eC()n;f#oC}EEf~4f%+l0@`|2JR${eR3GNK$^E4-FyQ zQ*((mBk@9FPb0~N#I6pj+5rzBLjFt;-W$PV780A(>SRRq^DcdYSlOF<>_K90)M{xl z(tJ?<&->s6AzT=pz6{TItGmVX^i_FFYyAlB;s^A@MyWv{L> zt}0tuS5aFtBX`P8rd(rLO-XHOMa{AqxpU{-Hz_~YSXW*~s?msB+xv4NVp8MzHBYwoBkDKD!ouA5X{QL?hOu6Aktq>|d|JBsV7Z(21a z*H~R#Q?azHu6|znvtd(4KnB`W68?0 z6%BZnvQo>+id7X=Wy{Ly{{4TZ|L-4jw=?X>Ectu!jQrd2X5<#v{iJ49?eemfxyFWy znI*ER)Qnti0-0-^{2xy;`M-ab>60_|Y5L@UKR9{XCjZ-c!ym-|;=dSP6J?*~K1ZLc zFW4u1**=3W$7l5A`AoiipV?R7v-k>qR$sZ#=Ck`8KBv#+>-M>QL0`-_=o16k1BQW| z0pmd4fN3Cqz&ubeU>PVJunv?D*aqwajsfR@YoL3;JrEp-4Ga#5IOaaR5H^q98K*WxYoTD|37o7e7jc%5FCx7$19O?ZdB zN$-d^+E&)cK5n_gT1ld!QOc9P;a7lxHs85(wpiX?fvhLAnqIT zC49raq;JHR@{Rh0KihBc=lG5OJip1G?>GAk{1$(q-|8>-+x&LF!|(LF{M~-HKj@G7 z2mNvXkU!xc_9y)#{*-^zF9O*CLm($$4CDn&f&73uP!O;L3IoB&B218C0H1=2FruCpgrga zI)koYchDUS24lg&U_3Y!OazC6$>2yZ6&wwUPOp->_;97={pLaESbNQAS)hHy^U7|siu!ueryxFBo^ z7ly6j@~|yz4?Dunuq)ghc87!ESa>iT4-bVC;o)#HJQ7ZYN5dkL9Wg|5BF0Ew#1zSo zm?H%dOQbMjjg&`h5qrcDaYkH`?ua`QjKm^?k$7Y%l86jPl97=}Dl!@o(d?)pniDlf z^P;9`e$*T-h+3kBQERk3YKz*Vj;J&0igric(O@(d9gN1KL(xQZIGT)(L{rhxsOZn` zH}sqO^ZU*H1^t%(!hUOidB3gS-tXvl_PhGK`-K6o|FSoi*TCZ}-)rV^CP$eZW8Gf2 zH|8DWaVAHZ6L&^;pSv&CH`o{N8}3W?jr2Kr{QTSakd4OV_XM(GnZa#zo7`r%#cg%l z+zz+P?RLl9ad*O-;7b^#`wv`C~;yW2wdYt$b>7D3R`e~ z4LE0ss0qiN>bKwyG#s)WN*t1n&+z#{&gs~{l-q*4(14>)culy6QoR;Dp8ir000sK02BZK0Bvt%b!=sGFLGsLZ*pX1axP?SZ0!Aed{b4{KaM9& z3ISS9s;yQjT4$mLi?l=0DHGHjn$QzSqzXup0(FYDDrzkWRJpaJg~me!#~aQ#BXj3@ z#%G2Z6+u+e7JC7NQWc9h3hL;o73JbUQ8eH6Ui&1yfR4}S^Zowwd;R))HRqgt_Su)U z_g;Igwb#XW>pFwUU@(~JKN>X{wiv{p)9?fSj0VH-OJ5ppcz($1mu)e6U%za6`JD?h zD=P21qw=f%sx=`pg80N1UWH>g{IWLxW)bOLsVF|+}!+h%CKSbKI z3+Ud;x79|2LEI-841+kS_i89f5Wu8Alc6O3QS5T|v$(DJx6$x4U6W244cs_qg5eM< z%1kh9NbSvQC`@3uAKGO!WEjrz_qx$w$91=n^Tq$D)rU-m@BAC%zrD&&*W#b+O-A3% z{qtl}@5WTlzs-M}!LX-Zhr~m4EjNk`y>rJoMr1P-C8L8nppKuFFEXY=WZaM{`f9j< zu07`{uX15!slgy%;!I%J8-^#GBj4={?kg2@lVO#h*WW+iM8p68kN=c#vWJGeD`&dV zu$%rA$4-Bh5-PS?XDY$ZGL?|umZPX&<(^d31Jb2VgQ8ALSAt(zD@QBpFeTck)O>~M zQkm{m(+RSDy^=hDSF9<^0FZ>rItgce$rmi%-H(67%`f=!u<iu*-AhIdf+>X&2I>?F0W?Zoe^-C_Qw_ebjo`og{{a3AY?;{7bxX`1`U>c|&DZfc?g>?FOIP zLeTex?=^a9_Ek*@XN=>axJ@65<8$!kbRIHlz4ie;PY$O#eClgc!b#(_jyYm*e$cq2 zQ8T*7MAKflPal`Z29#b)&z^AVPpNd|56m&@W5mPbRRIYxMi?@T(L8xB#%SR%9wRK( zbga@$jFD4OkL7kKVXv()nl|cQRF!yMLIPcqyYE5CE?ZGFEpiXTMo}kO6h~G1LP=2z zt%{oQl~Q*w@N)v$!RjiT!GFH?++?GHb5M7j$kBrwPAu3W++9mOLSa59>H3Jeek5L`=M$H1S%sVceruOtRrhFhcY05Y0P<=3O-H zje9V{bsc`{>Q3#j$7t||-9{xu?RXm#@>jC~|GTZ|Y-nM6AIwL?>lElOHl8zXnJG_~ zXYj%cFR(?Fn$MhAUE##*Xnnh-7f&l8BV7*B@QzquG%yTmHu7q?iRw=rPKoZ^Hg|3$ zmaZO%raA8x15&D(si;pY&>-_gdP?|_BI;>q`bB4y@DxilZ8kE86J3<6Ian*UiYXQ) zly7Oyf4~q;JO6G}am1_A;`&QHSCRNk6h-DQ^@i@Qpi~Rm99)r3gW*+wN`?d4Wt5$P{W`^48RgXr~=1^K~#6JkdbxWMl8w#w8rhRrNGW&9r zx;8&8Yhx5Et+lrznga$|-5<4fU%}l26sU)CxG+Hpqq`=8$XY6-dyxJSr#d?Qmt#D% zXOoaL9av&lH0>7D#(>4U4Hp>t0kY@b{{TqsJ)UJ=TTV31#0^h;nM?GwilMoYo?L3( z25!frR?6)P1?_Z^r59W1e|JNdN%~tW-R&rA&`d1}H+v>cY6+%Oj+yc;?v`K%-Id+r z&y*>bOL{TV5*$Y(i|n)b<^#@_uAXo#_WqY|EGA$n>nR%B=x=J`-1G?|hVi&i_6XXxwv&V;&X#m{cq zO=)dNYmu2DARI>d6aU27jEdUOw7dV`IqLJAtG-m!7q8{4?}J;b#ga}eja7BPpRK5# zblSoyl<~&Ej}-M$ENibCT*nPdanY`==I1FP0#$yYD`co%veW={w@bTXC}!F&u1$$v ze&HSGg3l1F0Ur^N7O&c*J^F8~o?-N8RkHRe!4D37?@*1vP_?*>24D#j&=CDwMfYgl zm&Yok9*w_S^eEV1={oACDJ1>-9l^GcX7~I5FWn!3P@F){|SE+nP$!hIV3~};`@x6t& zGW8urJ*^c}(I=aX{^Xa|Gfv&Bb>ySqV(bo@tvPTI%P>yX-s;vX( z`oR4LKkfd;mzWMHOb6*geVS4Z{F*~6%g?)%7u1cHlJcTyw-HN>oj<4%K!RF=|Aw)V z?(3TK?>B%}%fW|vN>-2mQm?938w4WF^QtW`85uhb#hh^T1a?+0x!)i?7U@pdM5~U9 zS8{i2kL!J{qE3{|YdSYPAK-P=B4_f_RXtYiTA7NFh8X?NwadXCW3zlelNtoX$0GIe(rDW7Qd*EF zmAa_^Murp!E+@dH;7-9-ox|V znmFYY(-bru3(L7}bNk^lMGbLALM?-7rM*H8>Ng|3jMC%^k3eaU2$WU>l;+VEqkVF{4y3c+&%pcF&-Gr=>t36sFOe7gjON~HX_ViVxfNm- z?O!(-4O_89ysD;k(!&YKdQD!rAmOXZ%F3imYX$$V&Lf)Pqxkcy5ZcIDUsf;4H28;Z z$K>vMTo7+|ZSW28DR2eds!LKi`Q-KSWC=NY`UIv zS846NXODv&jN!s(hSze%9x#kRpM_O|WHV|;1 zp70EdyhUJ(8_m+C80U#SO4yTmLYhSs=*`X((&$K8NPd@IOn#XX_fSFuCA^265#-Wy z972vAeR6z&9IbtFe1sgk`{ei-IokW=(2(QJJ~=)`j?O+gK0}Uo`{ei>IS%#7aTGZ| z>XYL*a%g>We2E;N^~rG(Iga+p(Ssac_Q~;;hp?_x_a4J-sjWiZg2e&$Q=Mm5YF1;j z1ZbHGcFv`Ns|jM~L$0pQGtsC=eO;@c0Q}>%Re{a}%q6>@1s^$m$h)qePw2a9d-+XT zt~wsRGu@*e^)e##I$m3R8MaJF5KM|XUJ2cA#Xk8DAMs7*pBlO}jP3R~ze!Vm^>Los zdxTtMuPzs9IZG~bn&lms4FyIo5bO7dMDBO!B9XPgZ{dn7J;9F;c|wzVy3^t!5g+9t zW~JNY&OPZR_9nE@>LK1Vw1m2|NBi1K^RwA}t%198HAu6*LXLCMWLJPD%SEZ7T*y+K zEUD1Bc?HN?o;Po9Q#9>G8j#&u!&lL$*w3&fSZDSlMAZXPu zwZ!0`P$bu>XxizySWJrKK1HM4oWIn7tv8zXP_fYv-!7UJHTj}rLasn)eF|+GOUirq zwWfai=>c%++dgM5PEmWJX-^h27k9qWl3y-b75|V)yS_!y=3wQT8J{n;WwMYm$EP0k zs0ReqbJ`2J*jv2gcnHW1o~#IQZqn+fn4l(rdBWy&NG~9+R6N1cJcovO!xK{I%_Sa3 z%c6@Xhs{Q>Fr!#wIKPu9t9%6Y<@)#wQ)T}spyjih${6bx{)N8JyZ z-&Oq7MA-9MZ&vfix0I5B3$wn8Bb#6pZJv!12_-M#y4`Z`A?E=E027YSS#R*YIC57^N{j}|=sogTHj=x2PsB`|brBDRiS z)1zcH3E5SqG>S+sP0nNFIdm(e_u7&?(Ed#KgRah*-Alh_&QxkX)5(ST-EoqyidSgx zt7u?wZlr4l)4?}Ue-p4GXwltNhHu+ZCvg-5HmaeOiH8wFr&)dN6 zO0|QH7)M#BCJX_ZK#wqIq=xF5ny_T;6a0|{{87lt)MQ;7b5bbFDZRQkn)cyr+S##m z9SxFuuiDV{yw21s&ibVwjX*_${G_BRJmrA0lJQu?A`OsNPCOPeg&IxUHw$p8x{D~Z z<(CJ0Oo0;VRjaTw?bg$IEpRaWpmP6Gb-b$ zQne+JxP?)VDj*{;D$%g}eu{PXw2j%SnjI)|UQ^%oMue7n0E1!yc|{LI1&+5Y%%&mo zTcpi$)X@lFi`y35p zuqPTI$}b;)q_ML4r+C#V>CXC}d5G_GH2P`H1%=3psLfJ~$3&A#)k#8i7wXR18Em*; z=X67s0oBv3fWUX~KbbM24ts^wC2ju7tKLtn&H<0(^M#`n77NN&Pw-n_?iac0CuB9d zvIGNAB+#ZjcTN*y2<6pYQDw7|^%@~wqqOpT%*D`rTcJ06yD=_e-?R8q4|c?6v6TR8 z3@7w4mL>GqN{%YwNi1Sl^sVHob8ID7T*F(5|AFt2tPi@T_hchfYW1qG33=vT?$BgK z&4rx%*-4OV-(sZBWjDLBjeUj)~<1%bvQ9qhxTb|M;zLxL8DYrq1{q6Eq$gA?NhG!Ue1_a@rIUIQdkh;8J`fa z%E8mdz)$w`i$U8*SA-rS4=PG5C$qf1#qT#Y-0sQuasF9=!!vF)&(B z1}mBqO`9W9FF^MX9|IEeLX=TJbi%OiAxeu0gMvc^^o+4&OTIa&0f^MRqxN>R+V_w0@_{*DrkvNnN$7PW^9yI z;HoFr^=>l-Vw)-8ZDy(;ymO8&SBy7!id8>f@W;*<_%=79ck@4WOjZ%`|!r& z3Ht_y`KZx@++o>_c^QeOWs81f=os1+b{Zkb+44m+8ka@pM*7Jl6~|7gc0+=}z+wiX z%xlC(eoP6~^7aCOxGI;k+~F7e4m%|67WdcJ+5lugo4)`Nx?M`QLR==NV?YRiv;3H3 zQi5$krpMGSXSH+j1d>Tk zZ^(d>F?t2*B5R({(G0Q#N!XR>eY#@WnYB~og^;5Aa?zr6k7EyxF!GS@AFPDzS+92w zqGvg4FZL~JoD#n8ewmedFi!}36_hKXN#$ayPx4Ef-G=%}_e+}#mex;Ns;C0igl-hI zox5We-Jy|Rqk{uy3_RzYSTy#moxD936oo9YMMTZo>%V|9xwHO-4tYa%^u-m*?6!GB zIqF`~%P;!0I7iOfgFMt~l;eWH41>d`ouPtqX|ovQdbdH^92;beYiOPy6SkthfLgy= zERcu!5?UoL`l?wiXtalg5POxlti?r^HV>kINvNQJQ$K-X{hsKl*tl`Zb0kkK}~JE`Z_-o!+hRJ)58 zXuA^jb!vxC0t(BHT8RQ`C#+TOrBtt!Pd{NdZrq(pc&6WL@@YC1>~0VXH|&mxRTp-* z>O}8HH!{(CFUX;_$It*|8czjNSyCNySfVZ}UUh27z%ZZ!g<6 z^b+ZF&V}!pR@diUI;h~@c{fDbY!tItobF=^=R^zh)E>~?!-OzA_8y1dyP}1eYD=H= zzVv{46Aru{zX_e}Am+ZYKS4c!zs_W0z@zqfnUuq>UyPl4sV;Art3)rqpH)8~)m;Fz z^aXb3Jm6JvI4>8f79w8Tl+t5LT~vA)#{qS1%k7HeTToMy_Z0C!+Gh}`P`ACNlSg`uL_p4L%BkP3T zv}V!I0sV^4zZo-G-z)sAZR6K8w`)EtN~AS4>Uo znl`6M+?r{pSP_k0_a79l`yaa#1NIDu7t8jkLj(6aTI z{2nZKLQtA^xD#uikdr#22g|+xsb$8wR{Y>-+O{c>eI?tCjFs!D6S)T=R9Ke?7VZzW z^>meA2I};NUbYp|lTZCt3C*D?HH{do+cWFuSiFu?Qtb+Ys|VT?9<{}%F1GejVj-01 ztR%W~FyDa>TX=zFHL$`9A=y?bh47}jthIZ&M?Kk3-(`|fXG*SQrbOpPete}aO?++G zcPdy#uZXjOpbeZplto*7Xj!ZFw>)qww`Zbm!gJ|h8oW~eUXQv%2?Y)*Sxp4tPVlE! zvz#kUA^)lC^a|#jYjQ?hzZ7MRD}_FT}U_&Z{=*pK7bRP~o!mRAhxmeb47O1-+`p>0XRG zp;TRTaG?@h0(GZdco;@_$VxP1V2Cz~tMLzko~6g}K4c+*b-4Ml+)}qr*ZlN2zV&-N z!R44x`zuWz^#Y$d$=W@}ll7j`@O7fMw8_(ODA8wXmP5a0Tt;oZ$P=tW{&wWI`dBG! zuhywWqmsQ@%UMQKxq6w?Ak{q!^$h90#4u1mIBh?K%Ui5WAGESQ$q8wNyHooOed!4< zOQ)hMg7QJeO{Thv4=RI)6dmK_*WU{_+qY zbT@&fnP?~gM3gfQ8-4$Bz6-g`EdX-a^kW>h5w&F^8qinDBkT$LD)jO5I9jDzjj_jo z!P74Jgl6~a&~i6!g|fHy`hz$XN&I*UixIS~X{<6w$nVP~{NkUn7lUIj4vH6V>MwHJ zIQ6w9`uI-~<3IU3#{c90-T06Hp79^|z2pDJ{|DngNR0pga_|#=)I0e1PX50b{M+0Z z{O2wsJXE&OVAu-nel5wbuR%V0mu5yzNGZhh)33|slIonSR+)UOhdwf%HW+FN8KqF# zRwy}nTI$y8$bs+#C`3cGqd-f$411Sbiz}^3wO1#I;r%O>;|@3(=*mV6?nZQH zi`MW_G@9Ec+6mb*%eI}-G!H$ig{i7yt!Z2^7!n)B9Bpu^PD^MysQ$DP#b_XwJ4aQL z=weqb%zuY{Ioh5YHVJK24yjo?tZuP7$u&!isCA{o1K+MyC&Elf6sCcEmy~97AG~748$& zaM9E{=*xSeJ0@07$TS2__L@fcJ_8(>nu%4ikkP;EYS2Wq?PCwwfIVdze$ z*5^QeffE_jM}5}**^UJirFr8C&+NP1Wt?NX!=xFV&$7O~+LBAD;H|@$LP!K2;SID^ z%lem2<#26_``yin<>3w)W8*LK!oh_z(>?p%a=% z)pQqqW2==3ad)QXI9F+r-t_K~ z`Z02|yV{^V*ZZPlBU@hqBU+_QJ@R-Vjd3F=0mael?L_?$UVSriWOWn9mI(>w$jxr2F`D+gYy_~B+%~Odnt`>Q!)a4##cJnW zU^H~CWChXW8mU9&S2 z<2maMG;cldjW)6ad1la(YK^|(QRmoWXbeY!PF1zAUMNw7hOlg-zJ-Di+q33y=W)r3 zADWnj(X?^b8)GV}LOql<1FjG%9TqKcn1%!Alf$QaOTb82cTZy%ZQC1m+wODOjS zETOs)tj@bmX>q6PVw+4Mwy_wr!u`Nsf+fM}-a5Vtrp2oY=0s7$;JYA7I6MN4))}*! z9pKZTMKQ0RJb};uW(XZJC6s*6KEU?qRv}XSRNHznA)ctdD6dySRn{2#aMtJ1V@{|F zml8@X7pYZ+N=PWov{Yl|>!}qu4}YJ=wxT)T$wK3B+5cuHYt+d5sEOdAYd z{0J}9*R{JIM^kQzYYh+oPg=uQLhWI~#aQIaV}f(1(lSY4y+J}vk@bY3A+)>yAK{1l z+xzI0DYWMiGIH6{y%=MmZI^??gRmbqI;XXrQH;ti>@;?zrHN@5AY}uK5t`V%fXI?I zTD*H%-AGa(YR?gha!T~_hQ10d^!#7_o`pWfg4iKOAC)xdm3hNkBg~rKMm;@77h=+m z(uEf2J9M$rKkZ4k<*k7t3-Vl{+jHn&p?VAHzli>w z-q4>~1-RP9rBhsB&*{#ae~D2E&o&1BO{jFt9&wB~C|dop3DY`l^d81|G&xqb!Xzc% z2^Aw{jxjLlH zJ7sBe1ASsqa$AW`k473ai>#)qx$X36VE3tx&@J>l)hw%n9SwmToCDF8HB4=IDywl{ zkEx+MaSLQFvLoVA_qwF15m{~5I{suZsQ7NMQc6g&z!FNW_o%PQ(ZSwOSrYxH(toBa zRF*+knsj9}PGvOl%A86x;?A=T3Y>~Yayvqk6i=yy?_H{^{tRta_YhXqQl|nO$;rg* zjIU|E*kA|@3f1hU>-ZYW2znaaT$4msBWt9^L!~Qr230m zCe4pVSFC86R4y(Hs4q7V0;s^1GSP(j6Q6(8{}mIaWz|Ex4Md}5uFzi}=8^x?I)3q( zZgoxR>v@L#>1j@XR!3|tt2V~({t&<0!e3F%t6q-ZZHnJLuisIbRSC$xl&xQ@w^Oav zoUl=P2g!K#BzKp_NVn?a%~WojpDLNTp}h0MyI&wlX8m*UHy|Lo<8Gw=VxoK z%(z}%Q$KtoOt+$Jvo&4`JwOQP0m45Iq|-m`5)atvKQHtEF$@oQ>3=%?7t{ZICA76x zpb}VKY8(EA#&6qV5EQ^REH-H-?t1vHjqVJ5p1;i^E>>|#7ne+Nv5QL%UzSiCmQY)k zP@9%eJC;y;mgLYsZ9_|(p(P4k{GlZaTJkHfWJ61qmI>W6XZ^O7yoR^ciiE2el4w7cK(QQPU4JOcIr5`y}dU2wqtS+*Atc&i3mbvNn%JuxgY@!3V zNBVq_i4Sb}$-rZ}w0UAueGLvb`fTuC_1zgWJ>kD7Q5M#2U^_VZTgxH`NTY!S3QNL&Fi;!;<(9r}! zM~^s+hIRjE_(*Td6STWWeZoR0LEYt2*JACs z)Dv=W&mh{O%WDoB5|U`0dTsM-PV=qgKB0tvQ$+cL4nrWh`qi|Hp_*XcWb95D8*!(4deL;Q+hlywAD4Vfj@TFMgl|Jbw^g1$Fdzk{c23Q+K4|bxE6TA5?s4c zT!2X|xos}TPQSwyTAUPm5*;H_d6j{hTNYZ2l~g9(iV{b8F zSS7q&5EJulRdVnK!%Nr%0;A;M3bR3N2n>VP;%%hljJKSTBoLrTOU9x_&C|9_ar3MVn-|Qg z2rbpGUd_Z#!Ezct5aJ;HT&M#ZnF~c9Vrs8-S=M)ufwW?2@k>+NwcSq}45H!g(BSIr zASw(}E$hgtYe9>tPcnrOY_K-3=C|7EU*Y95c?j8;$-!ltL2B6@eo)7t-Xu6z)&Pj)Vf1l{|?M?LYlXsh%218v6!!O z)|ZIuy7_!9K1}}_Rd)alk+Q$6yb^`LHeAYnt@2_i`@KbJQg-_yYxS#Fg_eWULK3ouNDe8$(h@Y2I-{_ES2ZGr0n0O<`@i>LsU5P39>#Uau#RgSkgEwbf;-z@TK(?jaj%4@z|} zh@HV@^UE({wiMX9e#a|$^*ATI zkf2igr`x=IY^8K3qXkqe3wPOYL5Z~~om!IDrzN|)9kjZyc;$z!Zp!nJ-k>%nN?tlV zbm3$w;9rFKPPioNy1pg2q*+hKiWq{Yb$S^qxeS+7^kflF_o4_M+Plqe0!{T&+eCi3 z&!rN5NONhvE#H4l3)`##c@q!jzrtPnQQ)#TGmu0GYt>QQHXJrnS6#-V=&Ti9QtA#$ zwV)iuNkRCR^;je?nut^fDIcSeul*jOOCK`%o5w+la#7qm5X^B(83wu3xWJ`o+{LIH zXv*Zjh+4F=U10bEYxhvR={6%b!D2fIIBCpv&*d5o4-S%QVeA&%&WDLo-M_@rV4@D_ zh9<4`Z`j-g0dtHV=V47PPHkBomuRexNi=BGrot}r&oA@m#i!~2vlG(j7Ghd^q}frr zeT`W0%b?-^hjX>9`E zKhF0j1-LiExf<^w*1wwR_Jk}I)5E;Y7CcDv{+e`wpk<|1I~Wj6oI|9*4_@ASh${WQ zlLbk}KmieC`iigazvA0?fz{}XqrUF~1ExwBtNH{^4ZYpNjw7kh%BC#zc`QD0Os!6*3Lnq)M|P z-)IGHv`Vwv=sGpE?jY~sPprchdzsEjC1GsL0e-PQwuL|8r#s>vFrS>Ryahy+T!HaS zs=O3tC>U$zFw*J{x~0uWwi=oGb#>9wDCVWH3S>hraD(-_`8hZ|fpu=;)pUz)z3tBZ zNC~-N)0^z0w7gZjgiyE@xUz*N2Fquq$9L#>`GhoYC)>xyWi~F`g22_R39IgP)1)%$ zP7JWJ!_#dQ+W)L%F~Jbp8DwemUQkC~TYT@_O!?|rnOds*85_YZ+hB+didd|W#bZ{$ zxcHfIV)Oo+U0k0TEk=B1W?&eODB$P9&~3+<=K#&+)hz~nq6Tp+s3XI8fHX8*(N+|}Iil$~T#0ulvqt`Z__q`o`ci@n|9@qBW@apyT zSfj5;j6{Rjg;VBKW00usU8n%4m4>G#?noZD>#7J+Sn4(*fyLIGMw=OuoPCp0 zR=aeVan9^RixNTS43_M#6YyFIJ^vdi&D|D(u^FDLMKvjFC+Oe0#J7tF(>I!A{})$NJ*A*T zOGu8(2x1%P^p*l~Qd7VuHCnU37h;V7RA&-gxkKOjNzn|AQn7x zh6^v$ZW(J}Uogo!Wwb(<8Y}92qNC~52g!N zwT}eejwmK<8#U!=P|jJ?U_cMUyfE?8+(xv~tX6?8v{@I&yYCIV*SpkK!qs+muoIrK z4s&$AEmQmOkF--9lxjaly5m(eOR77786F>W>rBjmd8vY8A{N~KA%+F$o6uD8AsxAR z8FSIpvbxtv*@Ch!WQ;cb1nTlaXTs`!jD=`Y_KfwFgQV;^PcOWW$e%fXXMKeYEUgyQ>C#>5&Z8I! z45s^@5rWCPm=%xc6BfRXXW^?q(LFZOZK6fPY}*3t-P|O**uKLvs(A|sw^}n7BjO*f zgjeIdJXYCweQYjc*2DVnz_Iz1#|FsMNrTcQhQa<}Y?Ka5_EVq%{b|f=Q}RA)zycn# z17dvoj#y=3e5@w%SUE9Pl|PeaCSPX9+BpTpxEC}VR|d|Wk>{>hsd|ZG6QlV^qrCWU zJj#*SD4#vLk-nq5TYKU{?qlMZD~)H5E*GAok1eH^#qNojUOd%LS>_$+HuK&@+txTL>9Ys( z0@v1p491o-nm^wSwq^o8&maUtB{Xvh1gxDX27A`Lw(cREi^_T(4Lae{HzVtP(`BX> z=S{_4CD12*`Wk3zE^c0d3#1@+Sb-yprxp?Z?UZI86m)mWGm7}A=pYp@B)R$*Q&TxR z@)QcZJP$N;J8JkR@laI29q?4weIgcwhtP@X9l8^@E=^{rk{p3EHokb@p=jUh#&En$wswBG*Tw@2`0VBaG z%JaHAH_DX{f3ev7v4z{WkZNH7|B z3$9}IA+fEeJo!-{hLICu9AsxK;awpu;ZLYKAviy-bB$DOkGLEa7X$lG+&%%K^wof* zx?16Tmw15(*Z8H7GRkVL%}bAjD%2Jii1vv}cx^G~M*2%87Qt^X6iA?;gqgM{BlW9q zGV+U?^%pdO=dIer6yUs7wIf9Pr=#vw^&?Q4kYHG!KpyS-6Wmbv`BvAi0hihKz(|%T z$m-h=Do`UJf2fN|uLdWxFeSzdN!iTOR3@`L zAhh;rK9t}GOppmO?3!zM4g`kD!Iy2wU|24RoM*jda&h^f(Ao`*VzU2)4U%24aHpTQ z)$>(9jF;?xutDdgvRpq{L79Iy5;MCNCrEiL`3?-pD_HI~*S7g>v3`w+_3J#HK;`xl zohjYeP`^4z_v2_peC<#Jedidfe_|oeo6{8B&h20E%NS+*2yy6Zckk}+uQ9Ri&qkr3 zGu@U0774@;-Fzfvw<_v7j5M6#frRnf#z~_l*d+T`ixZ{nJ&S&%1Yg=<6m;nCD#Uj6 z-@x;jQ`X;M1Cz#JS4&H~)M$8cDDB}=%2HcS_a#*JqKjyf|E}F2RsoBSm`g?FV~#y| zUch=>w4^ygbc?mA`^QwJNLmD9>A!*T#ml14>D#v`QzM??NsLIl2FX6bM)=;yz9_lB zYT{FWG8#@+ufw^y-Zz#T)IT;t7c4ylJO?eG?1n{S`*d$*MXXyZ#lBp;Qg1r?mweeJ zSYq>9`-p&=0AJ90x6XGhYy=rnQH9{IS4l(1p%EA3vgh{ENOHuZw*g6Mg(5E~bZ+-XzT=631Fu zAtX&5{(LF><4PQ=Oq>9XZhGG)Wnc3T!gQ4Y!CjykCK3l)^cn-nu^dE4~7`Fx6k6TMn_0 z)IX}zFwpy|ZV&JDs%dZh4u|3gpp15{uP)+gX%M~u8hw(x)#KQ=@W*U_ByF}(jtils zmYAm){mDu+;&C)oe$s97s33r?zu;}o(H;PCIgJ3?)WTXn@P0qLDR$gv9a(uX&gmaw zVMU9}mdAP69YTm5d{4I(>C9`-dPWy~{!)}Uh`yuF^6Swo@1`nP+HKuOeLP>(6YC#v z?wH*VS^|T3hiKvnpBtg;hm}^GxSo)*cUFELd)dwoB^H_0*6t)RvFB2gN4HAZ`xYaC z_<*^)Fom;p&(#V{ev8-wpyo4iY&Ej}x9FKBjjHHW)URlE6|Ps*V{|R5chmS2W}y4| zw#K#Lq`GeGk(AXPEEl_$lW_@Q&CTQl7SnL#~u(Z8)x?=3KP!JQ|l; zPN#tw)OA15{-~uq+}oC>v965ER)UIx)#A}>EBr6Yp6VxhV$OB>>3k|VC-G-=<6>^z zs#^F^=MzkPtLVJ-(Ih_5!OWj`Xfc*geyTWgEyg08ha-qNuSwZoFCHw}&rr!<(-PRL zgxA=hpXZiRTg!aX^48d~G+J9d4OM)~SQvDK>M$1Q3zf{MsE~Oot(eeesmjv;K^XiF2=0JVd zh$THS2Y78vBPa}P=i(5tc%?Wrv`!u;joGQM*7!+|RnPp8IC(67NU)!y8;%3JS*7N- z!^qB?1SBV|NTCXcoaG-}ceM#WGVic=f9(nwRtQJeuqm2(1|}wOE2zG~{074Z?x43Yhb*l>HtT z;Ik0|;sRz6rMMFX?BW9E(Bm#HU@|nBeKtjXqyp#abshfc`jW9uNhMyRiVxm>5Lmh) ztIX#L55cGmcRq-Jrhv9{Yk0&-U3(OC1D>tE&jA;?}&?Fs4LtYZp$2y zVKXw-{G|VK5>+VGy(I{N-&706{E4MPS!j-pKNNVd19B8IFVIQnW?Z{1{7z9@ z;`^?XAUIeF?kLn(81(hkeS``YPnE{dPL+7~uTXG3$m9nv4uF;o>BKKVZeH@}^C4tx zXu^aUPA_E~_RG`J&RCWqdKP{ENxO(jR3C!PM_n7#6<5A_F^*v&V-KxtXD#QI`{@!| zi9Gcy-vS34TG_)7o#NqLanUX|^mhjish$jaW3riAv>4*M$w@esp&PJ(2{e;Abs~Xz zPNUH12SU6l35oPkBR;W+JopmNvq1BoCuP3@<@=;XgFxU}n#5^YipO#;e?22}e~Hi> zLFkXj@ReN8h9-_+Cstj!hP9d=6D;mH<7 zHSbfxN&BQrd4^oYI=}|2|1w3D+gbZXq*wxy9BuVP+mv8ej<2q5#lC+SWwlkilJQ5d zXM~txgPW@%molE^{O4TuXK~M&SKsy&Ho47TDW!zC>dE&0ROV!2EqJ+cfzxp;rIDcPAWBf`dOXCrzsO})qX-ifZ0x3$}Nq-VVEqk=l z5;0}A;47{SCbW@hICTX!E($vzW}hU@l0cB`@mNvVTbOR{GQc6IbH**gQIA(0xo$mo z=(wVGc}kx{L+VaSwVRo)qq1@j5?LbE{=&fNtQ+Q2f5k&4+yggR;Ha)p{n`~?Vw5gr zS%pV60mL3LAjW`mYy@r*9N#X>_o#1_t*ea$uJ)=!;hZN;QNuV<@{AARB5fw>+tuQU zMwDP=JjXcXnhAzbi<+aVU11SJ^ylO{vCb-D+)e@ zmAWJTLD4#0J@x>lZ|yO`H`ka)5YXr(M&Nw5#e55{aW*ysK%JoY-*c(cpc0&@fj#mFL_xO~+AWvwPrTY@>@tLmBbhymfC%ig`!)S+QyUSo`$+sE| z6%$+XQ*j|?`V&j#3Yw?dmZaNpzD=at-zQ0slWdmO&Wmeq(yZO^K6vd-nM;P0X6^>y&~8^r~h>R*R~ zutU?FyKq)xoo3Yu)|5we<*T5seD$cVWEK2~C2=iIe{xw%5Oi5W0+El`@WjhcuN>Sg z66qlW4mcMzbjnPNw={xa1`6S6&HIJHASzDpzUGG%m3)ro3Nx}ow*QM+ z?&ZW#S+BoVeOZj$`6xE%uY=oQ`eanpzhJ9gkzBnkO=t$UvEtAxEW~0L#{ML2P!ltL zYx&b)Ke6tw`ktgO|7Bc|n|rd4=(exe_LQ439kaet-8+J%yoO44<~^t6z*+!m*h)CL zVW`odc`u_5t6oYEb{YLM@FNFLCj^S9{gh~2K9%Y#!Q2d|_51?OOYZuGQOEVPx@y>R zkS6k#iW-6_HQL?{508a8SpQ`PqoF%F{#amu3vq5m=sDD>gq|zpd9QL6G%{CHQV}O5 z*8F0iYW|8}z>?tb8VJ&#!xz!DMHk0IX>Tb?@+saO)3~@}^#Tqv?_OSSsUrtEYW56igop3&zZm zBJirdD-i_{ya2OB`=4*3QE_h&)BtEr*>t0v$12xP+@;43P;Y6m!E7{XH@u6uO| ztIAn_ntR zJzD(|&f5(BpJBV(YT*G`DOBIB$xn&rUqJO;YCZ^Rxs$HVbUi>*zIU-+T*x(vxqC_P=*6C^gH z-4njq%6bNP&|oju^^TE+78fssbRzAA!R&Achefwq^@7ml$*Cxbz#6LrA_n2BGuQ}m z#5*zPoy< zaB;NtMyAm2p}VQL^OwpeWs5lgbs=UOmSsrx&#AJj(*^^8Z%g*~=qb%K7|<^o869L4 zVw0lFkK(rZ2q5_>T`>^dbOjJUqw9E@0qywjp4qqT{U~kgAe1)i@)x+Y7H~$t-%cpYam%|Sxc7@`h7pz`t*(N4Wk1?MExwBic5@+!# z2DRKwR234YnO#zLJMQu=c(Ei2hxnKy-zKZ{Bs44IgRgwsRtT5Zc6OE@jl@V>=XM(4r0khiJJxn#PaWo1`DhT*z zb|7>@GHQX6u~kXxz7A@GgE^)9O4`ED$8DiSyoDHRU-!kqo`gVJJiT}yzl7TI>r(c9 z>c9b3wPUH^;mQmd!qf|pC*OiYmSKFGBxUbd_!A}CK#em?Yi7YFKplb}JZ#o`Actk{ zLWhEQ7Rj>O)@_wT#;(7CSV?+JcC`5?)wPMnTDk|}GQ|=+ZS;hl7LVix)}zM+sjf+1 zxK1dnb`bE}7AIpxO4*vUioI1t8>tTS(kEI53EdehY#7}%L%44vAXA_jWVS)ma2hnV ziF=Xh}%K1!qcx_gWfA*F*k6o`v z6v$ifSKVRIx->^FFV z5vyWq2f@D&KG*jW7cU6@!)Bjpr_a&gm)zsi14H3?9=o-LsX0q-Bqsl8i23!{>5?{E zyhI?z{Chah7|!9}W2dxvU#~rVyV?-5r%!q`w^i8F@9Rp7^_u7b^&Kxfqow^lgf9OQ z#IzjU1!8BMue8Zscd%-aqONpa40g74ayTjC9iQTd;6Mp>Sv*9MJ@9$=P#LbX&F*kf z6d$-_AC&I8F`U}!Qxm+7CjaGfb=3-k{}NesCS7hwFdMGJkMwv0QQ0L)>C&T-+Sb4Y zp5UjVRD{2k)z;Zv>5Pb~bspX;xg#DVV~0K~9+7(8r}aj-XjP9XS{aBl=km!<}}evyJ%)k zZ!`NB#`*?%G&j>$18@x-T}bH4J|uKyYa26he!|Q|b0jK`tm$dAHuej4+MYMSAGMm; zwu+q!GvzzrupZ)i|92eP7eDkS^C}Jck*&wvB+7f>?DCH5O zIQhtRflB7;r~-40I`q#|_p_@=Em@Q_R8$nvzA^Cg5WS+$#iK>9=zT+PMJ@4)8v9n1 zkAAhgr7?$TX5SYy8e(Ck#K9gBDLeTDk8a+8_9qC`2NV3GumEb=xrKcvQB@6izX$}{ ztT*wq8w7?^tDeisZdjB;DBuktOw>yd=Z2tG zYIb0r^b=w0`b;mZG#b364YWZ^CngeBsrF*C!JNe7AF4N|3Mw;u_ab}nE26^~CveU) zc$M8y36zoS`wEb2;4gz;5w${qdGPZ9qAn)?q~AMJ0BR`fnGus_jZFHAvCle)xP;M@ zlNgm*Y1(N#@77WeMWg!ZqF#VGkQXa}KM>!Z!0~qM<0k#%x8EQ5abn=SzO`3U#_npI z<>FMPl--DPFI+WPZUp(Hao9m+_O9W3|F8LWk3Ew(wOF`eSnvp6~bG|!zh$7wi8 zi3G-SBXP7|+{8$<7_8NYG(w|rN@C`d5&F3;DXs~Fn6>y0R!$$szbo1$Y(Z0QGsiG7 zzPqX4cM15e@$CBEIIF(?-v)KpSk;cts8I8Nzx*boPeLP9ZC95cH=l0J%QjUt3`m8hX&p!%Pqw2i6Kt*G!0%-dx5)n#L2XB2d(*XGv?;vp|F4YXQ|0C)fxPW?Cr^ zn4x#arL!U)-Cf3TK5IJe?&E4vaJ6|JwNnW%fGx*YMD%I1{|c{D3v70;x(g>MF;|Ol z@*DHBc*kdi=2}@5rmjs=T0zmB=V7k-C(>wha=|0mrLAV;?7*5fWoiQtGL&E<&r6J3txrDj)n zQq)r#X*S!%IhCwN`W;o}^o?I-aU*_2hkWV{ui7T7O*l{XD&ditN1+U|+2{*Q?U2r7Ccu)Zi&@%iP zmD~CS_>P_*2hLdxYUHBmi&$y!clA1#b*g;;Jr?}TLd6dy7Q|iKR%Hd}5;C&75_Qwk zglF5K36X$z>o-xVHZ&Bc5RxnNS@_BMK>a_)8Da0XT}1r74F0mN5R4le|K0fVS}($XXYTW}QzK zvu4ZYMI({Pg10zESTvm9mhfBS;vdnRw>s8=!t`I@SO*5qKOEC8$(2_Pfxh1~Hqx}o z*njqM{aYV28q|8BU*Jzs)M_-sQP1%NAB!}NjSRroAV50UR_Rl!JejPp^aToRa*{ zDx*P2yCiD{ex}>Z$6>Z+VTDWl&bKA;P6+Il=@CW?!o2&0G>=+74_*xBIHCVh0;!?! zkt5lU(FO*0H%ECM?%*^{7-SSdsnGh{9Jayuu+qjkVip+}NZDU5N|Ca)MM;~CyxlPj z`0i|Y5bQ6aK6py2Su$s%PNpc!U$(%qoNm(@jSop0rJp61xftxm4qiWP1M;6yk>3EyIY z5wp5S`{Emp);Kt*^4i;E)a45c`bAaT-S=+*{CXobIdT5ENIH4=^bZ3kwZRSo=Ws2; zEThN+?sFwu7fSO^QNl!==>6_XAu;-;Zp?8Jy~NqmL&BV}XeApbN+}P$E3_Sc*(uU@ z_ty{=VkKg#>z`*qP)w_IUX!i@qbrW4a5{7nb0fl>;1_R-FN@cSFH`$02bxLoLa*U$7mS~*h|8b!Rb54>ufIOjfysL}7>WMtt*(qS~& zMLpwIH^IV8b~G^+9LoRM|se4>md*K=-%i}l`xWbk93K~j%4ky3R zMGVsj@Gs%yzjvX5`!pGrXPJ~x-^D>cZv8-LmSs*1r^08MLAw+V?76oFYMNBLgyZBa zH}*N?V10gtMySy04LOOEQZlFM*zNE46J4{7F{xC$m6zAHLM|&*p()`Cs}ia@q=Z@T zLaMD6YBox!{Alixy0!<>S!G3ii!CqJy~65pxre4=HrOC_IzX{kTk2v3mT>Zv`{A3A z6))-{;lik{#v!@hf{eekk;BjtkXxf^>)taM;z*k#>e+=6gre@_viEA2Lo_|$ZEXG? zs4yDJTB_fM0)tT}?}GK%5zI|Y|5Xfhp!gzEqL*9mHX34XBOj|6sO<3zk?F);{bB^r zi#zE>^-DJj6uuAm{3U_UYj^O3TG=x~cOA)YF-uqCYyk=d8=!u`!tJz+G;z$gCeo@~ zM%6~z^}DAdZ{kk)Pioh_Jk>^ab7IlHUY}@lS|PL{3{z+ow2F0dDjthcrR*l5eFxHJ zS6s){D)d)JNBSEwwX%+STd&+3$V!->T9cprgvDQIKPa5aG%0&urS-U;Bc?--=XIIA z&vAIEAo~-qy$_!L4xLxI6yBQ>g*V0I;8ymhOO$GdztkfL-rNpPX*~c&UGs#P&JR6S zk9=ivOEnI2jKngno1OtaBBi=0gXxX^_Zkg(kKCC7C6~NMkSj1`Y^1&h#11h9`i(dN z%I%=G6W^%3m2)!R{t0nzSC-0D&29bm-n zw+a&qsaOVaGXux3Hz92fwz^rVQu9gdBuD8AWrO2%g|fj3x{hZj2>#h>4eZUwuLcYP zKD9A;$m$;w+&-PzkKwM+i@1|gUPRC9B7v;>)qKLGCU)Edw&hOFmt4Jt+ZTxWU#bTH zT;pFvhXctcS1-t5&3^|~b+R!@svC>3bUcF**s5g+#jv7R>rs{am|{9ry`2m8kHJwh zY@3Ma+yfRgFk_l)uQvdiWJegqNH~sGC9&yFto+ zlNC$f<#TT~Xn}%hvi~C?&Ap+wBjL4M&`<8nuZ5fL%aqVFNF;DaG7JX2Ppfwb(7%}> zkWrBiP_MxLG(Q3^CB#5fgTiZotIyY%bIq%9+-M~Fl9LpaRLXf3Q$$L6zNytD_LXwp z?t$p~6R>B||23bnR)Bh4$K7n-LDZ|Fz6czsuIimhQr+FePeoTdx#_E!;vCPqW&w{9 zenN0V)`>I_`DSU=4a|G7;=@FG%n^?hX$VZxsvqeu=_x^4m5N|9>MrfE_GmP?y&9c^ zXJK|SIO=8nq+pb=|6`xU)#7Hlt%81wZ6$0<28ERctgzx|g%#TL7Rgk}t9rwRN!idZ zTUDZu^B3KNnHie{cPUdW{5B;0^P4!F;W2J*GDf@jq|2dDI7Y&7u65;0$yU&-U?9cH0FFb$5Ds9Mj zH?$k9+s9=HgQwLK^qXm{O49;04}9>J8#);-X;$JZhlMZ8W1+W?l38Vc}Gx z1)Imy`omrz`+wu-EoxNrB50QsAMGA4!`P+(U&0bp8gqi!c!xCRL%NJ3es$3WC#1QT z|LrgXCUFU0iw<>Pgw&_>)L+L^VPi+15`ItHC(^!v)z>t$bn6bZ;azEFluvC6rRj}j zF6mZHy0sbgcH@XnPdj=d)^BQS3w5;F#RMq|fcLQCcInpFWa-wOlwX>@Q<~XZNMv}^EoFZ$*}rw`??1%*AyW1Ux&|8()YVl~?AQ($FGTv~ z`Dy1FYp2=kXqD<7*728Bh9F$Qd70Y^S3xQ6RQ6`VfdTAd8Q^qmlQ=jNs{od65mtSe zZS|;kr+d_enJ{f@qMkK8cugP|MW?ceolE?Ou{#rQMg%SjM!pU97#Ex111|erX>$h) zRHXuT7GagfB);{&!SLY1!2Nhm=X0~N;C3JaV_=TH{&k~~fKT)ku@rv^9CaRxD!I$*o73mu7};jKaM~T-qNr(B4$-9xCs}>AS|sHNUs`a$*Q;h z43##4W0q;N5yd*HWkEKTsjP>gV29wmG_?*e zi?)t;olXx7CP1A|?=D2+jxGQ3In8gHS+D~-{#vKOz-ZUy0G-^*ztUWzwPfsT3 z?~;K{>fN4%{xLiw=HG5Ke6Lrwu?q|_UGlRv$)WC{djSdV$mx4Nqb7FEk6WNcLy`XB zPUwAd+x)X@euQf-eW;Zq(?vrog-@Em;1Eko38*XEjXaflLJx6DZ+Q=VPkEiO@`T%( z0Bp)u3TJvLD__=2J|w1^tG*|m+P6O!&Buaht7}_+L)ki|bREK3$k8_H;wE8D^^1x0 zam~@m;nbSRrQVv)l$r)UaTF6KT8|Ihb!{t}s95JrMNMldMTz^A@O9rDFc?^AaVIzQ z46BPaXbI7X+IgzeMI{n{vSkFbEfL+dv8U8k|D`va;hY$p@Qh`W>V3u%$eXCTo-qR@ zNU};Dkwdj9P|)eV6iDIXerb3(gNFra45KY0bQo>n3gmD5)n%^#{;JI9sLI^8D$DnjyR7cIj^+3Ke>`%cVmZ2#DqHdByr#bE+p8v*-Uc~O-&Nre>)S1D zZuP1OikcEz>3MhlpR9E8cW!xi;=f8bAga2a*I`W)ZwI9gMO}!nVy~Xjc6<zO?Kz4Yl5yvgbvKnC|D4QZNEZ87TZ55GYkB%n{z-1_GOjhb9CC zMDzN2qDc5%R6J5h-|2nnL_2UL5{7fsm`{H-1N$kV9 zKWra1=iw8*T-~d>D`c*Zjd`qvXX&3_bJtv!lM^MTsIQ`N!iSNSeWFpDI)ylP^~-%4 z^#h56`+h3Cy-(rTN?bz7{7BRk{1eVqz7>j-{hBwReGppgoP+J^xKesRu(vf$*esab zG96UHYd7-lZhjw2&!$bt#nT{WXK6QiU&u6j*-qyzyq}j+XOBZUMF}VV*Bb@{A((1Q zpnPI*X|*{aP{Q`HT-`*qxLQO*g-t9q$1#VGf@&Q=FyOUCyrDIY1uVltBbb!3Yd;ys zB-Z|ItM+@P-Q_<}rq*@z0{}2joLO1HgXW5a^QE8Qs zxLeb1cvHA>C6typt(f~MoT=`Vtku=J-fD@ix5}gtAKG)9~c*%1>^Zzb>HIu6O2v1UKsaSj}gx&niLDD+09TKF1;!4?=(9qQHF3Ym$lvnBMI z`MNHv1s*O=vNyC%8^v+fb@Dz8P6{+Yn|IETQf9z8*_;s&^IZs&vGY$z^Hd>!;dk>M z#V)VE;gmVQ65(a${9c5cNx|1Cw_ivV8l~E?VwEKxX~(s=T?swU+OE0}<3qw}F&89? z3=Vc{h@TWgu9fO^-Bi~|LrU2=hs0oylx1UW(-EN zhiP|5*oY@Fx|dI4SLoF%;TePbIm(q{lQC1%CL0XS+LMYZ;1NiQHTnIy1_LV|6BCfw zIMXOvBN}#&M!B=JBis8-N%w`q6(7|to$a2ta`M0lsmA8d%ZxMi3EIy*t&e>&hvH{D zHQGckN8{A5KsXgD>R*{|tZnn>K;0nbx$7N|RkyV)&81!}8XMwKjvq0Z}mB-=Yh0)@x% zPNn8}&wm&EtO*-kHu22!s(W-V*l+0~6nI!;<4^dhpuO`qGmPxpg6NvHf;SKGM7ow8 zx^hRb2^ac@v-gDkh{yfaVZnqHfi8wEy0fnUK=&s`do&GrRi=nl9WHOskrVCj30^ol z3f$qrB{^dTd>I@SzQ*36y}On0jH0^lgD0PlAVbk@ zp&r@-og0a~P#an-39CQIpmoOwL))pI#Z*Q*!fRcM_k+YSM)3~aS4N|h-M%mp4V=ot zD=B;bqD*9*WESU#@IXBadeRM2cB{xaji~4uTy4x2GQ|xMHv7p*ai2i5HXC5OKa!$Z694whgj2-zQkc&h9b)G5?Bf(P-ZlF zm5zOYNY3w#)>l2@Vng7RVtSwOhkyAG!5zPU>D;*E9Eihz7UI}k@EwRF{9ZK5w!nZv zwSYl?1hTvTpICoZS4hd6aZ7Ks_;C3~f&_euS8rv9X>RqjSH0#pHyOdNA5!m6@~WTG zBHY3b!>TsIoMt^vDP$Mjt}n+nKu@!r%{4;Hrgocd|Gk-`bhxFIRk(qYog`Pk%EZQ& za%eUtZmHsf;*meONsviS=B56Ngp2~H!8lO8Fo(8a=@Wsy4Wp!8w>28= zjg3$uZ^yPMs51bQb}a~^i$VXocvWvht600RM_P4S$m`Qqw~E0eb}8{!g*x3{IDl?< zo<+Bph*kk{l*FmVB0SFTrP7(GoF0FkuRXM-Pm?*n*kh;LN~pQq>{y$nd?w#4g*u@6 z(38%y=t-}Zv!x#}dJ8TbSn%eFJXk3_SY3Aw21ugL+LKZ}Xg)nI;@~ZCf8Lz}XUbck z)3gFGi}Hcz>V>n+*Y-{H8uhFe?!{Kz-uvQM1puVSvOK4;hWf5J5qwR3V zee;7KvKO`peATXwxtm@4-GO%K?drafc631Ml4qiBhc)(7cJxvP3S`g z4rAxj2;AUh5`2Ap9lO`}TgEP6m2%z@7GNg-0haumIM$j|ySaZ$oH}k}jfLs9a;-6& zkok(G2LIsPHtq5nJS-#rjy-{EX*J*kniHhDQfj(8_ak>*RC;)(7`hkgd1hZddJ?d| z9qt{9-q8J(@%XsaGy2f?=z)7_sNl7AMfwSs7@uNxCftU_zwAr+5cc()5FUn$+T`FT zM*sO}ED@jZBFsHpig-jRy!keZcklo_%Y6m|xKw?Pw`uCApPEWVwJ4IiK~-yYmZ|!L zAXsLxXH!hg6nCxTm{j+B1RrcZ_xYAI^(bX|SP%e-f1f;15A1J9Dcz$q95zMM65L=( z9%a}N?OoU5zusFK6yLIOvsU#-KD|PYnA+H!$ph8KW>1EXpjTXo!22AshMq$ol+s75 z4ZWYM?rJ4u-WS!&XBfMo`i#lGPKS{DF%E>4;;z?$7+4d7nD4O|z}#!j39t3%fY;Oi zJ9yQ22EuEFrw_b3^8XXOls}vWud6)+;g#h9yu$hCh8K0bQ7;0Pqy)G1up|ZSh|u3C z;3t40t8TdXnB^nd#%JzD=Pm5qMi$Yk+>rM9p4HMO$HA_sFNj9(a;aRLOC7HFOZ)b6 z97{BtTlfY38anu^G^eP80gf9uH_LEpRbCw~56OYS8 zpWoe?!TZ@dWYbNM7r-KT)YH1O@olt2F?DJaUlTOxjJ-4y&n5=M-h0Vxb=T*a8}orB=NRI4V!^-61o@F$-Q&ihR4`nVgyf3kFUT83!W6<4i zuzh2EA++iXfffhjZhJGV9koAS#q;}VU75@Nn6BPs7lYZmTBsooH`CXf#Xbqo?vPsv z^^K=FBp(9gv3^a7vnLiPz2MdR=ua|`Z?B(Z@MiagmJ&F7N@OzS?{tQ z+n9ZX!!CWs-7Hzqqpzm;?h~`V@!5W}9@{a`a2nzJv}^4B6ny5hxEAYm-kheh*7LNp z7&9mB(572aov~) zXEG;W%M1*cgWK2OAlGmHJ4`g%T|zJuF~SJ5PCcA628_&{g)6BzZSN^SV_gJ`E!CFB5t}XYTKmR zzi@r4(I^~9{|H~45IzoypNwUn59pWZ*@!E@M1UD@*?@@Pnf@h)&FBUNq&X31T7^1)@ZBMlFW7dmgiHGA*0Hpbw-8a)3L4EO7 ziT&CYYuS98J=T;%Kh>MU2zmiGhw2_88x65m(H1$o19MP}I$^}Oq-?gx``Z>h;oU_D zNc(SM@cHH&y!>-*8sn9Z7A=BY@X0M;KHpt*r|`Uxcn6+uCAOnUnx6dC7Fgfhx-aH{ z--TdG@NM>PEaWDP)YxC)AmUQ?(zQ7@#~Xz!=~=s^>|=1Ab&ObCTu-A%lgu9VUEJJg z5j_U0SWMqrmnSi=z92>h<6&ux8;}v8R4TfbuK_H}kMR_mw#^sRE&6IZNOW8lR^m zJC|lrT-La_=sPZoEAgmrY6-ir)~~z!dSaUDj!3l^>1cAbUCj122r_QlEL_CwX>nHx z_s{QfEIfU08O;$!R@aNETg>himx?1w7=VF~T8pWRN$-MlLWE@zjxGSvdB?;s#?OZn z+g^wT8l(!2>(;9588cAs34Z(i)8##XQB3Y1)=viVM6|}RyUM5TiLYAySfE!+6GsMG ziWZH=ASE%ReB~Z>zjmMvhaFGbu&III)j;reg5YhXpD9}q&0!-*-}Q**KqRaEFI9Zt z(T5J69oseu$DN)4e~F#vRKbfI{RuaL9nzS09?YaIBYWQ>9Mru!fr*cL5m2w_AxO2l zN9m?8^Y$VB&vbaf5bp5ccl05vkXSqs$~SfQPmqmvG$+~ZRg=e4Bit%)4=zW8^mxRb+acH2yeXdjm$^fau$Ozf?iWVt!{tyY9ZG$n zM>3#;6$-Jvc>NcOKnObo4g2-Y{_*SzJoWqCfIiy@^9eb)1wBg$BvT7vnPn8-Uz)3Lj6d|D#}c3Vnb8oc zXY<)=VLsdDPZ?jYo6oi>q524eCYJxspT+%wsob0K{Ba;zd~S>-GCeT3xf+8Ow}=w{ z&XOIdJ9`3O0}%hsXoHC8IEWb2L^Vcl^B z-8a{8K9%kLLp9Td)!FYdbl7oV6CK180pefiAZ9nVztll|D}neUfcOwy0pbtn3J`xt zR|4^Gb&IR{g^(szE?Z(1wZhX2 zd*dA7G7jUP2dPGfn7%GCV|Dinp*8C;Y5U}d|6|H87E~||A4*^)^qF?9EZ~XkTNN?RZ6Kx1Qu_ox`HqDhA**huWthxAWF=L$BmQvWn` zj$k7kF8HPjJ$~?Q2xYaS_qbFpk3)>L1YLDCf8dGx5_pW?;{KQ}Sg?9hTWY{HaUAfP z=k+@(FF_B}GSRHZX+e!JbZnPqALKnTWmc;0qoD@aSsV<6^q{YL60(Kf?0qY2u8V4P z&-MCqivC>mi11)v^pqY;R)0?6=O(>BL#RLOcJ1!qZ*e^);;$sY%;KWv8jeGxcOV9k z%p>s%S32y^&%(|a_Qu55$}{3DEvh^zCrxz29&O|`*MOz%LExb}mjyVDp(L&SDL*_e z9)%Yw{OG&$X>_^^EMJo<5 z<0qK9LqG+L^E#bzUavFG8;bNp&C9EvWl7XV1qphXVe8e4MCztIk$sDu{RK6g>~z)7 zharAZgL}kDIry>J6=Di~9wuvJd<17DraWsHz{jxoetvD6AMC|9SW4W0>#jt1!pRkX zVS?!t@-5{!*?!vuB9Hcp1g{$*tob&NZcnwWit+F*t6~hiw!0%5&5eRUeHbwtyy`2$ z)aV+=7>-S5O}>~aD~sE|1GrXSxC}0wZ%k!zR?*yaaprRiy|So zM1X1QAhy7p)xtK(^oAWr-)JUeMX7t)uNtL(Ac`pZfQw;rU&{U`pTHFI(Ts>OU%V)Z zUy3N^l;urMn9r}L+ltk<;qPNR<~clZXI4AWDPIZ5)t@jgpnWh6+A-5@Kan>3N@_a- zmfAMqmsM>!)gC-#3`P<|!S$CK3`ie_eRbQ_@LS}cUKb4%Dyq92VnK-OX=Y+PZL`CUfZ43Fsa5sV*wjVxCh!>iF8>mvh@{JEX@OlwiXp zv}yT&Vq}98Yi(;x6`~wmNcmak(td6IQ_-j#8jLVC&FP+Ci&=JjBdz(xH)6RJ+q}4V zq4Y=#$Ez-@a7mkKNnzTalxktA!mHx%gj?4EE-@jn+QQY+2x;!WMWf-FW=x9z{_pst zF!W9ej+|Dmy?zso^HN)m0sZzPAQk&Uk)`aG#XLb2o*+CuOuf@%EYq$x@Z!)H#!=$x zX`-Y-r$C4Awl76sfue74iWZC-{bT9oP%xSh$UG|>WINJEJ%9I)f>BdoByuD4VGc{> za0pub+)=$uh(ufUli{LC>C9A85_Y>AGw}32!2t~8Zv4C>*hS&X6NjJ0r!ir^#LrjE z7D`2@*&GxH(`JhB}vp6WlAyhH(Y-8GavbY``9!QEE zp|S^5AWz4iMdt{yMO$RYx6&HKAL0Ql{4+~{$7ds~lKt73+t5F-loYX$GnwM87n)}; z+p3H)i!OoM3~|)Pz9Q71eI!#UQtkQpaQr3?lTGNvoRB}c5ewW`qCNFrthtjXOJi_;X)QFPqv-a7gQQxaaca#^=LrS8 ze*d4~Xh#_-Ua)lVgfvHm^M~dj^BaOH<*2_$2>^M7dZpPXC2MtNy20>WtLEoVK)w(b zryTp~<+nI6*dH>Yku-eE5#hDy7Mo;mk)_l|F?h-AqS0OqMQuJ6KY)VWDFF9if`81Z zNl6B=tWp*s(8D4dk?_C0+Gq%z?;`R#m3a8dA*!4a;#(Ia*}`=7c@9ra0z-J1G;o5qy*o>3e3zM+qE- zU;Ts4E_m!o=}OHGtQ2{kJO=`Tv5^4@f<9W%CrXr0J?e#u*J;gG9F4MA)Ti#nz{lJ+ z=61xrHvZ(7G>eiWvJCtI}yE^whmW@8l?WHo$ZmQu_=g~3j~ zMG&Z_7TsjT9}9lg)Jrd`MgakW$q%>4`KPI`Mb2Qh#_2~4_m97nsg93T@~PvrR0nq! z(Ux<^zLTc*P?m>Ries|WtBksuYCm``GiYl;W*<}N0c^Tzf2#Yp@A1nA zw(rr)(Y}9Q`hU>A6;z<>-0iy#$>F3GVgp%w>Gv!qvt}94$fLG_jr`n(MizcgBia9i zE-yJiyP?PI*e5;Aju%5t7BjY7Ft9TfNG@$w?rt3&O>4R&))$R| zjlSI7FdB=>xuSnR>}U1k3hqZeiU{4!3qB{b(9HIpAxAux=e(w~Q~Et%Ji>{Gf80lY zFP~}v4wP!IG8zp1jYSJNGPDeZZ{m<7`*CSz6#53)-@@lr5OkPsP*N9JaS!#4Sl`im z!g4g&<6M@klr~74Ypoz8x^o0qFfsjvG`CrMW;qka$(QZNbuLrF!Jee0(pE!)un)## z;Bt3v8>p}(CN%d8FQeL08~qP`4Jh0iXto9e3)AxFzeP*gb&ls-5?Yl&H^z1Iw7iiU~d)PH|P zBrB^=%clJycWQpve6353gxncg@+ca_d`0FXpOD)SrPOq{AA;pIundawGmH|tw(*!CL6iFL7+tY!jNCR*K3ezo{Z`dQHf#&+B|{4O15Mtn7d zdz-aK7g6CHyKzyPc4i67*jmM0nRSf*!561Y$dIL(V2)G#8SnKQ+udsY) ziG$BkqF22=Qx3aLqGYoizVREc>66|j)2O^g!`_nVB7R}bffXPk6H6>R+A9oAwWhudYgX+-dL#@U6TDRdhwYar{r_`->=71WU1gVl!*Xzl%Q}0 zV9SeGN2DYP&!H+rxGS1=M&wK>WUr1{ctVhAN-0l|f0x1EW#ZWtDz{<5(qb*NmxZjj zk1b-=mtJN%R^~D_l!YqH;!VXMSv|!FAlg#q3OOzMY9ET#p5%rs=XDx)=|y)&*9HTx z<8R$+b2!zhyK!Vw$Z8h?9x36c&|r0nSy)YK+bseMUh|7bS=dV(af-8(kC$Rk@2aNnik95cpB?*r zY#(+P=At>QrEX$*zmV^vP}PLUnd}|}J7(N(v)49`$_rc`R@gg8QrtU8c!Gg=t*Lv3 zUy%BEEiM(|!v&EMtC33+il(gQt?r4MT*&?et7K;(D|^~i7r+MDZ>wrCiJ4c-Qj)@c z9;f^5-v(pv{%vJ?=!JB?ypqY@9$sh{`*%d&zlApEsIczE@Ns=#|Fyoa-;RC#9yot^ z_=4DOUgRr9q!8NEX{w*5ZM;wpMiZnp+mg^iIj{N^NUV5o{GU8s(w%nd5plym3gO~{ zC@hWKQue1xX{QpJlPNvfaIzrBSnsn)wf7B$4&Y(z_tNGAR8#s(h*%|W#U|+r=bPNp z-&$(hhz*b>*FNcQ?XHm9u9+?~7{cZ`CRVupTMJyC5R;&UW!l0UXba!cyM-S*ss-+Z z>}^h_lErf2k^g!GRwO4qG-1>|vicr$NO}LB8XkSd8@k8p34Tp`_zCETg!8}I&XG7m zZpEc`5k>!=N8KNu8ufEtSN0`yNbU&g{7U$rn>f9T}jzt$~6a8qC zTi4khuzSDj2`9Zv8^#HOIA+lOW+gl=L3TtvYBSXZOWbkLW?0(HbyaXM(5j^GsBEP6 z)&CQE9&lrIZJVN||O7_04c{V4HA(QFgR=)IC()PE-eT;H7)82m0T$a&@WS zSzXz}-o7d73}@f!6xE%Bns}pr*NPf~P0&oQNDUWI7h(9ZtAB;#_H%t1-wDf;mFV6K zC+a(^F535lEoKJmn_Mwfm7zH1DAJl7CIglgVrsZT_ZVo$^{O=Zj)PJdidfNxkWUQp zG$SA%nqeIXeQF)z{4Ra(yGA-wE2=c0WE~h*RMxkV(FQT(s7i;6|6Mcu1vuVVx>DL) zhZW{i->!`Wh99R*-gV|ET~b_UdR%z{i&XbN3DClo>YmY$>5^J8i=4&roIN7v8J9X$@zoua9xfEL&ei`DhBnpyZNMQSUSoJ7&Aaz8 zD?)AnyEQP#r4}gNW_MU-yls0^37cPM+GnCvWXnXg#hGTr`I4og;y2CU#pQ6J(PMf& z3d-hR^#4!Rl%2JMz2}0CVIzb_oy397CT%gZ4oUW1BJ7trM|h7e^5$^lEx-tAtU=Gt z{`o~Q)J8l>a@a%LT0s#J9R~fXhy?8E;yOqU$I~qIfl<%s94ZnElk}IvV!UTJ@*Alu%IX%(}`w@wB|LM$iBJ`>ER0!G1rpR8R;V4R*ZI`&kB8En%dE3LBB&Yc-!y^IDZ&}O)e1l7>Etc~FF}q_qXRvh@#}%IC)fWLrL(!cLfTTt? zD}R;>k-!hipU(L+kUyVV@g^3;EG!6`tyms(@$T0bM7-JF*G0Sk;}=Q2Us!s-=n-Ea zt9APR9&VSu8hcwd{dKD-BQ@T(p4bQa=l#DEAEk?rGH4No+y-8~pBZ~stxIhO!5pWT zzi0hUo&6yng3r(rd-YObRdHL^*tO0xe+L>LCvKLbC5IlY@~2y8lG7zsK$; zX1&&jWr?k3SRaW6eTe>{(D5$)zXfe6S(x34AqA|F-49>xvdgIuUwXa~xj{|UJu(;?h{FK*%Y zR#`))3GqxW&ZOw|d4Yin83WzY2Ll;tyCjy6$VpR&D{O|MwLyE~0uJmUJ^Z1dVP{=^ z{%WQWsmE^hbC8E}c&@Q*-HAz(HRJQi;iS(!QKFB1c{JI5>c>9G{Vz=9aUbJ%>Bqda zB4pqL-$fQ=X!2c5lfj^5Csos*ZYd~?!kS?g%s*!RTPQ(L=h8WX2wn@bjTEPu3O^?{ zFSKHPnLp;2061^cAICo419m+fSoPfFfZVZ<*~HvwM|trAQk2o(F*xjHxX*VJsL%Ju zzN&DZYqUazVz3l-YLWC}0k~!9#i#tP1KwG1ADjGTSWPsa zlY#|`+3UC`Q(7~gi9TNu`0DUXjDcXDRKYx{f_btF=E<%zPj;Povg^!~U1y%`I`d=) z^JFLHDg4JnXLH%Te{uf!Ga$>@VWab;oMV(#_=HdVB_DYr`o+ZvV2Yiq6JC$lMHp0Z z@l$Aq-j#o}(5Xr(w&jVvC}qBFg03z!omIQMu>eHfVakkc_?$rg+#QN%j=w24rsLehWjrIzp2fAPE?SCy`eYP`H zr>K)XoOBXI*lpCO1dm1600?Z-q7DBJVfdw8ee3Q*@ZgsQF$)Zr=i!OpYOkM1PcKe` z3ryCXH!K{a`#gjwL3pF-O`Wa>T65Wo77vR1uR%OEm#tV&DW)=c`a+^5Js$C? zL+V{NMbTYOx@=A_TMDtYAr53h91dikhh|hbEiT#8;iK-Dc8gN;*?QgJx0A2Ol~B2b z#aZgh!bm<;lI{&vX!Wsvax+t7AwFqZTE!7ho z?5yc)h$@8g6BK{lQg*x2l3)<{W-pwNxTLwBR9Sj*NA3~D@xBy<1jZYB-qy+|O`!kX zwIBH(RO*fdvOpnuRW|qYs!cHP^5BUr7oT9nrzwu6fJvc!&GFAls_j}BAf{Z)3R?D~ zOh)G(ff|%q+DsFF*Mv;JdBTuDGP|#Pzw*1)Ca-!TRLh;X z4l8qEBIW3|aj2*@oD4PZKR!e~FKtytM#Xf1ra@V-Cv)MbV9(G193BpW-mp{zf!(}j z(Vi4MqzvlL4)!GbuaX^umnEyM9<=~-$6Vjd0=@#!yoj-1L?2~0EgVi?0#qwMq+Ouf zcxDK zUcE5%7=K#x6%W^7HVx^{@QDEv4iewizO0W%RgqCy?+u&th(xR%Oj(0pWiGrl_|?!r z3L>LiQ0v(HdXvIf7(^yde^8sfjc<|_k2i(LyJ zEVTy%5?xOT?ed~#IMkC|pL^6u?LoR}R@9@xuWnd8$Rqv!&C1N@jNO;i9`svcS!-b_ za#T@U^sHkK3Tw`y2*OA#b`w;5juvU9iB0w*82W17`2Ds*xHv5FsI%=J_3j*xx-c*1 zpe86n zJ-hI5L6C&E^?$$gHbajG} zR>jmBd?3>hNQX&C3ao=B6DgnKv8of(Lvnieg)%}58MGhIoA`}pcW#F}_n?dB9vh{HgaW0zu5I}x zbsftu4o?Jn@ZNno&u3a@fuHXCGG)_!8QqEQ+-U9*nJ1|W)PXx(a;e+VDm|PJO-l7$ z3@FyF&aZgXr8cWN&QW)A`H1i>RA?i*s;Dl9CAic`y-WY}RNdlmhl7Fu!AtoPe%TI#U4OvMhX+q6Ho?QBS$T%M(< z(;b%FNMC+Dv>+iv2|M%nRkXphAVG5^IhJZNOx~L^1;`wbudF#t7*Qr(P<}a+yD7Xs z$fgbq=r~wJLfRBwW>rd`*3si$(;M1du;DD7VR(g=noDcBS&F*Tr}`{PRx4(gOKn6K zlu}8_+T}By_J+qPJ;Xi+!8i|N zrxAQ=6oS*Uf(zl0kXBM@WZ*)=Lb^QmF;)}ZGfTlMO0Nm4YMz*F`l8mFXY=Cn{J+w^ zKVKmBHbFN(&3jzSBr^}7*oWjf`k|9^8lN=P8-(xV68*eR5HoP;2ZJR0E@@1USN#gQ z_MpQrr2co^!36%Z`i`*+WQm~I#da%)Z!wzA*SwT9_Xy6v>#yJsgb!dfm;GA05XFq0 z{nY9T)uX_oxTWHTGPiW^epn$XA>po9-@o9J?J5Wp=OSFxEVds%CfS>{=37|+V?dn0 zvxafMa7CPn| zs7h(`ktej!qUN$f*Axp;Sy<*u>3(q}spiU#&!vYauyqy@7&%NQFd<(N_eiXJNXA6o zpxYdX(OAl1oZtbnW(T_@nx_*ItS@#;{LGLTEM|s47TAx=>M?1|Q4Vd|1=|4OwnflD zZpU6}?O+UvenM-K!!wO?Rs)Ttsa<;v?r$jVRX_wRTm@9MtJZD#%YXm(RRq^lpG)>V z`@T{e8?;MJ?P_y4>E?#R3G{U-FhU-I+to@O%`9*0I6$8u&yv+5maJlIn7p^S91Ve4 za=2>1K$v8;IW`PGiw(o!HL+pP1`fl+Mfx!Oa}B%!nV^*x8;52d2Ty6c7zcF9aY}kP zmwh%bg#i_HuDdV}1`z=vTR(kH)*Iytk27`;65wz7CSLD|Lw5OHeqiRt;2{nRUNIp_EKEugt3{R` zZ;nK+{biz=&QYFDdi4zj3Oe&IIet3fY|Dw3bEDdXjm$Od@ZHwQK zviGB$BwLbAxHqZ@$$Wa0MFz8@xr9rTpoA4Jo=nccfY=o#+Z?ccHiB0ZS{ zCczvPbwD9+h&Z1v+9_`x#Hds7ukZool2XJ2?$+3z2BzJ4hRtUN#qvR!C#Khj8G0l4 zCL(VgB3`zmpxD=RQ_Ejz!2!jb5XuG+i52ffc{sUtBXHZ>qJUaGTdW-uMFBUOVh+Q;{|@;@ni z{HnKX9aEmw)PW9;*|{-u4R95*30y;bk*jh^P&0<)lE8(Kix8QR0SDSCEE(y#HwgjI zl=TYCMoe;fpI6i9)!FtktQqW5J&LRzb(>njSDcn>PQ&7?a>PkF$Lvod!ZgInJuNcF zs?$y%1n)gq(7^>3;{v0mgs0NZbWu1pSL;r}QYo+#cknBvbRM{bdL=ZqFr1o2xvbjV zR(_w}C#q05iS2xHC|glnk+&Z|t4E{_aggQHF?Yof?RY_uvJ4Qv(>a)mqCt%O8RT8y z`U}5=YyIhx^|wqzWgnJON;(%o##W;70giRP%?77OLxfn9Pjo5G4wp$HEl;w)%W0!w znJdyJ5C)X8cU20(Ql6CESSjR36KIT7&wQGDW4_M_Bs{ewHvc{uPIIK71RcuZSUd&g zvEXI}C9s!DSuHrVVi8k*URT{vgJJjXv*Yuqas{++RN0S#r0IEeSou$pio#PXw0|d~ z1r?(5DkU_o6;=|I5PETgUULpBU-S5MZH`sH+d1PFp%NzN$*RV_7Qvd1S_)F{2%}>n z9u7iOYL#Ywq=X*RcQKr9T=U*N?6n38%)h^voiYph5Z?ZtXOe|(*624y&)aHs)GS2H z?z%Rq{+H~C;1f&M{Q@Yt{c$h7+Z2$}x(umL)BnXxi}M1Kg%EFacKKTa>ielA_OdHV#- zRT9&H)1eUDQ6BRo%J`$uI*pyd$5h}55tsAzI6f)i+b;MS?Da2b-x>2U=nbv0L8In7 zg|1*WggttZ>;&&vq5g`XAq|)p*DSNN9dQ+kh$+EI0 z(K(}@XAvjL^V`hqFm#iyKqsdXXEV1o?i>_pPunWkuV{8B%%U4Gai479=)xs}W^wXs zdzYA*F6?P+ew}-=ehouK%09ZtTiX^;gno_V{e{~9p7DgS#>w&G}6cvWu= z5m<~|>@yhj;v*=YS*@c|_P2{^4)j1CTU!E4(@9pB+TzM;@)F_7F@NM zF9!b-U){;TIBNG^-FsZ|POrL`V}ra74G2idbrJc(Pf^uT7Lj|R%^t^lmDdrF8BQpl ztGvX-5lsdN#*cIjqVx$vrMh<#SU}#@k-(zyP%Y1`K5}upE*CFiIKQEV7slk`MMhmN zF4aQ87_xCYWaAgdTi}+m7ub@d)lbput_seREY;qDs$OhWO5N#-qqTC7LflvPmGqk_ zy_l+OiAITYcC-gXx+J~WC~PL(IZD{v%EsxJqo_O>^f%yS+-a7=rUcyg4<+*)XpYCq;}{}lUNN>=Xx7HtA$EkdL3XV0E<+u6mRaM%aObhF@Xyy$?w z?xgI0i_g9MIlL$eZ4!L`x&Aq@eesUIpC6VHx+F{Y9{9eDZBMUaFMYHNE`HgyxCKVnU)4ew3+OD`k>W z@^NaMu9Qw;A-z&+QbJRT1i_x)PqdhEZW%qOyxC2)2r$J+#xqdXC73E#;3?WVZ_r3UY|-$_jpC zTz-WsEN3WTRnRpv*J&pvvG9Dj5?rwbhXL+r$kaVdvT~VHNbL!y8f2n(d_kxGLe^R+?i&ELt7i{na|^hsR|mf}F1PE=6aeGKP8!hI zN!-|2$)SQyHgX(La??P1z693qHE`qt#D+_KEmrdfbMO+{s4J}lZ(85CcFH)z>uWNhYA|~wA{UGhAni9h2Q`@zI z1Y|8yr})p#QX#TD51)GrD})1n%9YVCmx@IsGOCo38moKn$H_T3I6zqh=5mQc^*okT z<43_yVd%M5wp@glA&&5HzRs2i69@udNjzR@`V8IPRZ%}xhX|^(HE=%&;=J$!-^mU^ zJ}5hSmgmFZ9cu-%QQKD4Usx;bTJu1ql)H2(;fs_<9oF9jcPVUO+y+Dr)z=-?G=k+5 zyGU!)>V{RnF_V^_F9*?pj5)%R3yd`MBgO}Vitgt};9U00GAyXkc@~qt zwD>!v)pz9U0NA`Z8vQ}$@Voz0eP(U)chzUsPEFM7oAke`?`-?$)j!DodHGEU_F!t` zwXXeRQ9p6?BC$NGxx8u-r{cp|CcR3 zcY7cCVeOrb_M)vZ{~nqz(67xI1KfL@bn5MP2mY@iE&g&NN=P<`jP#pC|Ect!p{NZ_ z1LRNrV~K4cM$!sasjsg+MNM3Nn3|VMAGkLu>UHwJKqqu5Az!^rb2&7lT3rpVmoD{C z@X!}>!)N9YKg-o0(b7&n?_Y)iVfMZ1-|-|@zp6X=-NUhLA|CZEkGe;@X&zyn_grd^ zH1lNe!%Tz*ni=UHqCGH|8CdY0$!`@4Uu9MD-;KgFTzs$XkfTv8dL5O}EZKX4hhVf< z;)i~D&xu%MC?Z9F({70QzO+&)L@`U*d+6C^Tgs85h$>&DJDe=$FtgS_>5nnjbt3do z@giuptcB0=m2gh&H7KNhG;8I(OVJkv^1Sa#B z#b}VrrNU(!LMPQ7WKbx8FJj1UNn}q-V3OdT&Lg4^V;9s}NW*>%m#9+O)3V6U>&EC9NcYrqSMGWG=eFC}| z7ncwP=OW+*H;F?4xN`*)zQC(S;^FAHk#Lx97ZIyNu|QHMbiebx5$@*W2;9Z8?m4R7 z`zk5BncZ_?x-H7pA@X;l=rAoRRIx=kjOCfDs59#IUN&eaX?|2MwaJFSB-i-u?4|lT zjOZ<6X|wiiQgU}|xmhAqj#Y%pDH;$eXF!x3e0-4{e3jkA1qQoAuSQHfy*2fLXcS6( zBQY>=s2g0%u69pI^PpYLN!6puwX}8GJVJNMrBRk$B zQt!B~i0g$UHP~-2`8}REirrN{T1;lS8M;bsxG@^WKgZs>6SW2T(dgI+n-Le!o!x}p zxk}y1!R)1%x~yJ$cB+k+8w`UD;MVfI>T~rd*S*tAd2*n>N^D?ouUT!dEtlM9gsdmb(oZZG*D zq9}R#44%SikGebbTzV!{Avb@cEt`&pIctyj2O~Tec4Nl= zwEm>pzkvjJ=@ZMs3)CRIr8}DaNl<8Wk3G`$sCbvO@XG3Kiij)jhp$fHm8}gHnX$zL;V5~biHg(O zozbX1QL{MfZzLXUqAPR;{))!R5i zYaqLN8$4DT{8y+!6pVPwG>n5~hs)*-08$dogCo3VX@Be*|6CHjFL$ZW0gJ0|2R|_8 zwwXGDJB`{SMbRiVz$rcXn#*z0pNLt5cH<$L9s(A<@mCQnLgM>9+QHvMqw(z4zF@9- zM#R3&q?H2EMxOXwsyhy*E(jn0!5*VjhjSoj-d_+;!9NC5UH5h!9LGXomkn;p;djM} zBWzXocpZdSRvmuTFJF{rO+UH5XSh46uUTtCbX;GjzkfG4+0+~I+3^laThnYK$|Zoj>~{P`^Z;j zfTCx5eu1q`56|sYlhp&*M|)Vw>6oVGT;(!I)baH$UN6))v)&X2_a)rYhKA6mn z;2fbs`|C6j-2TR!L>Op6g}Zbrd_U3dn&Vo|vP}@$*5}w)`%9k;TZj$(Vc~+_8Z_|1 zOv56J2y2aVZR>CTAc9MOfw0RPbT{`Nl?_-y5Y73TerBA~M*Rfy2&((b1|x*q7vkhG zFpM7DCqw}$J_&U9`LQ~+#|ViE2eE^R%GK&hP{vXOuM}Mb2`(JZibzeqPt?5#-ydu< zQhr;41eci*(bE=^+=m%tnd%3?I7CXLeLgNbuY`o1~?W@{(LG`-BlQk z3M{MFPK0gRa)#0>kck9DBCaGCPF;MuW}f!ZgPh?vVpm48^$7u=RYwI3-I5ZXu>v8< z&p*K;_@X(3v4`defql`8VLDylBVxqO5xZ9i+GbAFrvhSZ;tw9h#Ds$8r0v~F(+pF* zPmFHX{EpFU#RCGMA^ySJkdUnyf{Af8b+`$U+nyJVTn|D*1iYz+@Aoq4Uhql>rP*y9 zM~JOPi<)|iVxryt#tAt-vx*`<^;Jx2 zJ#fT%^nWW%$l4K_fvyJ-emVjz0UxNl8L%Fkvs(+yrG4=v4SOC9x)YLLX3rv^Yi6B- zo9&+3gHr7yMxdrZ9*BYxr}TI;mPH|J1>k_dn)r=RC`^TKyg)m4Bc_Ry#|q@M8=k(e z+2-T(bim&Y=EV(jd-v{GlGi_;yT*~e!ZVN~?Rg)^?(@V#V9sjptB)0dt9tFDzq6&d z^;JE35lkt+#c0pEZfi&=vh`^5ZsbWdN1;x_1Zjqs1_0h05V24wgr1^Gozl!}c8EIF zPCi>onWM00iIf@Mcq_o?!bNq_`y$423W`ke;k0B9j{ax3v@f=BeZJoMP`X}%PzPwx zYo^=1F4p04=fwgfQE70Ny&s7aM2WxNqAPScv3glMv;=3~5Da7L5^}6ylZ4oLxl;t^ zWA8gOk(Rwl6X^isGe1We76IOQT5Zs$YMCXUbJ&OPW;+ueET{;Sq0!eFo0zg09M3(GxEv{8;Wc}?wd z_0J4}w_RYZeQGOlcjbd%XMhk{!wmxi&M@l|4*)5m0VQ78K@E&T(_3u9AE@W~AUIpf zCBgxe+F938b)oFozwA6PWkjA5CrDdv;=B83eAh6TgQuhZ`%VU#+YOXqH1~RdX_t>h z2rM1Jt`i6rZsgbN2p0Qkhlp9xsmD`!M zbekRfB*AoFH{gpSpB;JeI9^T677>rbF58yIm7mp9T+%vxxTOMy6r*kES(W1(^=;~% z^jK3=s7fi})523qw47Z$*_ULhQ_P_?HW6uT-mAL6a0xhX zemL1+CCW439$JNVj3vTxX4}aIqIBW!K5tc!iLb{vw9A}V=O+lWfkOtJhk~vutSq++ zQgc*oTsJ1)25H?Ygj*WF#40_UXM(EDAA|&vifAT7Kly3z&oWuO$;7k4qiDX_4G&7$^mIok3s zfPzJ$v{_`PDQ~WA^Iw6bkk_&jAtb;VAYx|zN!OK@1oexpBUxJMKEm`~gz3EzEWP|@ z5~jrHJuV=QS`L}_|Frif;B8gc-Z;EZVkgdMCnS)B01ii^H4nCCOR@$_)?nF|Y}t-2 z$&xI|)?^K~p-@7@5bCDocDiXV?agfig+kjf2TF?}6auAf7+S&{AT3TqAy5kG=>OX1 z94C@VTJC+{|Mz^)_gz0;`t5n%YY%6yy%(g)A7X7~uI%@-8gVyexF3DLKJAvid2Qj? z(W8`BId?0J?K74J{QkxhTXm=EzmWI`BP0>V(^py&g05aS^A@jrhN=D;x;em#xc(Yk zMms*U0+n$OpP#*U_OqAZ@3F3+V|Vvf^Ze|Lb>*=etSjemT(ef)>=kc4ZdpOV{LwvA zYyAau5V~Ap-LPW^{i;R7jZ*pm%k~>jQjOxqy|g}vPonr57MjPCCpgzWdD+sL4%|9A zaO>#UKz~VGXdSC@>*&B2BR1@LdLwhBCHP3a4J^YBNOnwpYvw~aUxBKz7|2(hg) z#64#Tuzvf`>m^U&WA@MBdnSG{cljDz*K}6!OqUXB_2Dygv@G)-XI?CzPIfj}^t&u8 z@M{V5clqla)YFOA;hZ9R1ih|~J`HDYc;dR%3&!}Bc1k8Ck59&(c}d|qO2YT*$L7u^ z?)o$^YO8uhiDTA1Q`*K1Rxn2G&=dG{-uxrx`9~Z}5AD#P@~iUMgBX_r;tjB+&Kv6X z6QB5Axbq!YKh|FRbKDlFp6j7|u6gI>4MfT8ocTA3pG7-h9@Um~>^#1NdKRYUkaKrO zxPIN|C|MXNX2u~jlexOrsPhuMYWCN@w}g-g;(_)GY{ezcU}b%S{*Z= zqZw#txW1uXNU{CxEK~iu9rTglFJoJJ4Yc=FypP(aq`G~laL$*SpI`XoB@HcJ|Kf=8 zBM0An3WvV&E1$(Kl4CICh@IyW!(j>cH(w^$k0D^gC*$oh7L2D73lY;8sd#|JwPoo!+RWUM0i)iay(f zH`O0lefnF)ftrO+OKvQ@KtEXt?7(VLf96V<{+#Hc_nc$+X`#m+SVFnp{xkZjlhC1s zz5mlYvL<>4Yh{?tm%+dZMmYnbmx=QU0pv`yLY?rT>;npSV~XcVLGt= znjhmF;U%MI_v#0j=Xgx`t&*Vo$2=<3g-w*nln&b+zsju*^{7GCUf&)iObCHx7qE%9az zRqS1Lj@|fDqV4!0LFZ~p&~3Z3re5+v{mzG}J(~CHcivaST)|i}QBUyv-i#ln#vgV5 zgV}ocE}kV(OHhi#Jcf56NP5>4R${{ku_*iXIXal3IsBG+{Z4!~v%Z1AW2uSWi@K=M zM31SMi%>jQZX^xI}vu)^m0 zui&S88Vp}DQhWrzz9obNHqGL*thF$EII*1C0Ksn+Z^z5u{ue6VDq|eYQ_mfrs_!$L zGUBb`HSZg#2CkN%ai1S81?efqKcp==~UE`Os7& zE*mpGVQI!!)tIrEC4Fbj%n=C;Ky`N#H~bi@7Y_uK!-qbZSu9D&!q;R6 zpJ2urSYX(K)CS8s=q|%c`^vS|2%1s)}p%G<}xp?P%M#-rm=>NCQ8Y5BwJ=&x+*D_Amm7rJS_BgUg@JIG)$iZK3O(WqA{4eQY&rX zet3C`*EzxMSgPe<{o^m=*G};{*C5v5t@k5<_{r0kP8h)B!o5DUcN68oj8C4{2WhL9 z@b_Ho69<9AV!Y#EG}O0y%)zP0lc{gcSe|7&{z~X)IhZ`*Ezai`o`PzeTTbs<(A}S2 zuF#x=nq^=vv9RSNq1Pj3fz9K;iVQ|5Yp@c{gM z=2i&9vIl-#yUaV^UQ()e?0k4Hz1u$bkB_NIx^w1v2UPbC1HD_^sH65Ue^k9&{JeE$ zZf;E@J?dgX#%Im-;-@ZOUarMkMt8%{QZRUwF|hpzZwGw^g835O4*C-PMCbkVS}S-z z^BPve^@r)T(K_4r@RsoHb2oV)Mc2-k)>F1gYUXi0J{*2x1%!3~+&eld0Wdv$4aWw` z23Uqbz5Md>C8d=xoSW+({M`k`&0ulmk8oE!Or3A85B&x2KY!^2PTQ4`q+t0g`0AtY z;YNe6g|xw7>iKu`%xmVEU+;Vi3ul$_dgjW9!Tl}t^VJPM#A|r^V$Rxq8W@R(W^fm# zFZZkcvW8mCA3h^mf%i(czlonttslfYQ*Tol{rA&{d9jn9KE)Y-z~9b{__AOF)=%HaOa^7H(ZZ(b5ZB~{0)@F%+Sn zx7J%{XCA44aIVgJgYA3QK8rt#L&?`$AHmf??QVbh4ZPMH+EstwpvGv^U z>!~LgufOKWQXN>%89Je-YvT7qseI>JY-PLQn%UAS9LuI+&E3R_mDjvnUS?ItzgOx7 zi`9^Xm1g{{6=555{ns8d?|ckja<}Gg6<()4J$Jhr&yE8B2@3`rMV_2qEx{6VTLuZQGc^l>|$;MSBjm_K@) zD6jp9YCetS+PP;~*wMk`Z&e-vpyuoKyf>^fk5Kyyz?zQ#6gQgB?Krc5gxLnYmtdV4 zs4;(Zu%;ZEX=|82WYx`H8Mqs2Vb;bh{@gPiK`i9A+e|pdXSX`WpWM3R@)fAmKwaZm zR|Bx!x}xU9YU(;ae5ddB8vLPRU=#jsK)+4ifB3{o%1Hh)C0%{6uFS^g)S>SSPOsZw zg!tUkRJYv@gYeUMJ^2RpytXqsO9@@#^(U-8u@nTo0$sP7fa2MV$2-a=tepNxO^AX= zk1w02S2A@6sZ$U5@J<7@lSmzhpw?{o{<^sz)=>M6yfa*Xk<*?&dV%+nWA_z!5&H~O z?gJqlIF_oO!*7bvH5TiqmujKGgNw%xYMvfoh70;$lNW6>bB>ucoj<{vznpb{?DQeN zcbDQDMT!mXndVD=g6C3v3mzhRc2WCDVZ2~JpAj>|?*UXxntgGWntt`YjM?*bv@jcf zjI!bD3?rwHBC;z58<7)lQh#T z-wxG`U-1>bVY~KN{THvK*2o`Y*|M-r_u-X;iv-Lryns6Jg--z2TR%2`^fRI?#5=Oo zNv%fr%;R`;#Ntl>*hGy+HvCzy4&U-ti$}ey9J_}J^ZesjmTK>)xjy?iy}SDa{oxdn z+YpKp_=J>u;Fjg<>%&jwuNuaPe8eDX`?28 zUtr{fA3D8Xhnwp08G37Ron!YGaf_eZelh-#aS|UY{fOSQFX4>f*~C>iBd?r4KVMb3 zo~x(@hm|h3;I%vH@!%?|j;UD^RP)@|tn>3{s``2}_2pze)Xx3&yw`B>5cI!|;;8Rg zxasX0=HtaZl=u*}-I%BL%EFGTAEQpB4xME}irJBSrgq~4n5XZkU>l5X#{r6Mlzn(0 zkh*7{a?D&bcL2xp2=xKsK>|Olu=~f;_(=_zL+Z6y0PwKm>VuTY(&v~j>0o94D=jVC zxN!U*vq^k(a@{(|4P7<(m8rg2EGmB?btrn%4dzDb_Sow8W9l26o2obH%&Vaso%Dss zH*`@q&Tg%j;FW;02FuC^pJHxA7d}$qiF*4Ue;ageWqfYMJ{$kF&kd)2HZndN56-in zBN3Ws{|tU<87nFE#OXigv0RY@-{4aF%mMoFxC2X4m>T9c?t-b)jgA>CwTSDs!7;N0 z%NL^gjah6%A5er&a}rVRF1qmmb?I+;Ki*FpJh&jsHS^*F*yY@AL{A9RIJ~uvnT=uW z{)PtpdI?0|eSjL98V4bzXzz_mnfGv zQR**Jzk8_PFH`1UrGCGDDLyfHI(;YVaW>Yhr_MK>ht+SbqmR_SO{d7Q^RM%zWpg@M z!9G0~z`w_HYpFwr$M2t?pJ&>s2VXcb^OSSunYlHmKS?s9t*OU0vkAsk^Uk+Uxo4g< ze}rn>GtZRHGtZdnJW*fG$4A^tpTSp?k`uhNP z9zE$^ddRJSXr3HAjz1hc{mH*G?_W7|Yu4R`&`S}mZOFlU0c;v~3 z<9}RE`DV&tckKn#4azS%ZXoalF)JV3gsW{mHMclO7X+2hxt(jMlG+w`%+#=@R4Z`Q zov3x_4wW`2W`T9yx#p|)L8p9|Iw{FJxSu%jF;hl!?X=(JbJx}4gS2xJe6zx#xtkg& z;~M$wiRE)&1I>Pd@{0YyaA2T5q||?HmNHxj>$?r~=N0g@e(vkEX8GK1P@H(D!vEZ7 zz+`UnOrYnu=fg=|kBj9FkI(I0P06R7zw@s|c^xo*{9)r4FqfF$Sh$oqiH#3pGZ#Ok ztK{FFsz->5caRFC)Zo~?=BxM8ZQ=OO!E)~1dMfnVxhLxps?6szjQ;o`P|)>Ke_w6q zy?F1Le$>Hwa96GIUOWeZx!Bx))t@eb4Rc?mH7g*T8$fyD_n%*=HKvYDI}A1V;=^$- z)>GFn@BA}SfBlbeCEvMS37eLLT7idZp~HqAavT{<&4UXMin;c6IgK`;`vT^TT{gmT|4J@bb znbM}2j@546BZZYSZFNf@aqDIab&j2n@=m-Cjp5p7=|bOmISXBhRV$&9F9TdcwfRk_ z%e?XPFV6L>#HXY2*-2QfEq7eMaq{j3UPrsxVHgJ!^!XP{HP<{_Ui--^QT@vukLxQ(%@_ zFw36~3hT046qDPB0C+>M*IrcqS2Ntw){ERY;l?&g{cCWefPFzB_ zQ_Ivf&)80NpOeEeD4u+x z_Ji9IevcC=W}m2i^LARQwEjERnP;psPhI_f)ai5=}ldF!KuYNz3jXTX(pKOn3%jVq{C@=HXA7o4Mbp3a1s~)+bhGkpzD8ySc^FCg& z&YXgE=xUh7?Ob#9?bH}=oUb>`E+bHhX9zD_f=b&Ac??@>_y75C^E*#9PO%)Y5+&%T z|Lec|NO6O8ruO^$@rTGmg!P8n{{-cUtTQj;l;L#YRMkKD)`}wbumn6f_T%HHzuQpEK2iJh_vsRP zqV{o6Q5T~>_`3^>e)!#5^g>|7VaFqHHab=vro?Wj*UMPT^vlZfnc6+zW9Ol|Cu*+; z1wO8HL+!PoGJkZiv2@svvO$kg}2U+|%2E{9CceV-cF zDM{nnclYCNhSfV~@m%e*SU*$y0tP6PAJHyNpmy)a<#8#P;8>ri-TEWCVwCe>uN#BfWAiX&gIaEH(96D2WI2Fuq&>Z(LDpJmw$|49K`^ zG|q4Q&H4D9@SXEZuDFxBUyAfqryEtbKQv-ZGedT-o*B+s?_$KBAUtopTasuXDeL1~x}5quBCO z)QP+`cLU6|E~kcm{+yF`4n@B4%e4Jxu>GdxIM97}(CyzOpNFAp?Vso8P1nrVUpolZ zGIyvJQFq|%R3m(0z@fRGQ&dPWSU>*Y5^7ubm$2+`&#bu=A26MNX1+FZ7c*x*ej$WF zvrN%anq@A`*A}K~rq91WQ!B;1`{iqAuUcPGCXD>*{Gl6a8^C_f^(RQy=TAYgsCOFv zgn3%Id2Sf8HTQQsfr>#oZ@B0+FrT~ZBkb~5bGB2IOv~qgITxbRT>rI$GY3z6n@-S8 zOXvhKacocmjTb8ML<7cAyCe)|Hb@A*>g&iSQf)9HY>R>WE2gU{tm zqF3w=5_q|NV#9*l`Hh1YETrPZG6m+JQhfe=J9YJdiRM;|?qYM!oWgVM_o362Yv;bS zgxV&8Im^s17hk9LrGL!NSMoYMlJ*@iRMM&-?`}=;ZM`y%gz-(?@ah>D#M4+9rV%20_I%1 zH@Q@ed1^#;SiooqIq$W!v> zbpgljJ6I;XopJR$v-knC7imtPSxPUmW`6z)K6OTR?q~Ci1l~#Wfy1~zJWhSl@|>LC zs9leH@VBU=j=R5h1n(SEM_lGN9%dHD`UNJs`zU2gIXc5g4}!&9&1s=h&q=Ik#N*WU z)E$V|9;#tvj~zE$JI4qRQikRO_`E7T)?7>7WF}d1#s`+f#&4!>M92i_r?(`QuA`2s zP?C-G-59%VC+oj@kh&rRN4jJk9h+%><2<$4EU$*yc-?Nt(z%DJ7i?}~9j>KLQsE*S zV(uDf4A4>o&@5^XeFv<6EdS2yqHhTB%KBg#=AiLSxV$#aZ+w)xxY4!=ztc6p@g01v z<*Y-7)j?Xl+tWzveOPb9vL6kOM~*f+6gEr^4#gu5O41bHA>|-Jqc{_l1AltDq1J|z zFoVAie+-j~TJd-2b;J<0e#9NA!Lid28pJzdFq6zRRP91Qn_lw+d_HBZ z{P^z?vtGUA*Z+V4wXSCFH&^44wQk9RzuMp4vCy{Yy9{<;bUU7%?>6iMII$jYAW;w2 zZ}gvs!#Y@pw?L0Cx<})*->Yc9(~JCWI)~rNosD_6d>x)2DyiQV>Q_zuj#Zd1qketV zZ(D^qhx*+_{fUX*#oGYkbFZH{F`hAr8eVY26tZ;vMh5OG|xc@x$TUv`3 za0j8U9(?+2^ZEIsrU3OI4@{7+Rzt&^t^evHGmi|xDvY_M<@cZW&{v)uzvKP+`7_3I zPre7^y+=*k-FVtgN(VR7K=nH;#_is{rt4$s16_V50Mi{$c<%4-!tw?$X+E*vx_iwd zz*3GMIe}Z@|Ni}d`(JMz^?(i1Gst6bHG`*?(|C-*#~J)SgI{Ox3I;#N`0Hi#Z4Am8 z+``}o%b0K(Of&v&Vlc_LJHY4{{(eZ%`n?Q3%iuK(PBS>h;4p(;2HO~HVUWk*76yNc zXe=?PW$>eU`W)@&8SG$i34;&*gT~7lY+>+&zteaNgJTSe8AJ@;^*0(v8C=icPyb5e zml+&p(8Sn?%-l6l<}+a-?t>_FJG7c$pt5M3eXfXTFfa z5kNR`%56DK*+Y2cVu|ujg&WU|#0ywMho8ebh@;XN$5*B2{er3Yt#rHCp`b zvW@ZSD1@BKWf}LIo;kbwkw~mD8d*pU@M$L89Tzg~@M0PpE@AW>8pAvql_A=F0~6j3 z8I5}x{r+Ye^Gv%oiD+yT(fuj^w=FQ!$(z>?ofrrl?wB^rc*`F`a{U zImgt`-iw%g|6|?`zoCV2>KXiD`x~tb^v!QY;?B=57ae%}-!6Li##qDs7k$vUf6OuQz#m^T|MZ$GpMPn~iDR#3y6%1c z!zZqNZfEbF^m((lj>j(l^T^-dc{2X_&h5m87t_n4QA7P-{f4{MasB<;HP4RUyYlA0+Lzj^Ye53kI2j0U$^~g z&2L`mH#~Fu9nu#$TJ&1ij;;@Vy`2vyFW0?%r>F?ZIEw-~5vU-#)N}SGTJ+ zbk~ckA7>q3b?5b08l5MIJGTM(?}P{L19AiI<6o8lT^W^er<)2ag7jIqh^-X)$zVYKVV^@g`nYw>Z$Nr7j9{t^iUE|{; zk@VIh()hJrH1fe8zP2p=nVX3VANjEEbA6B1|LO4;_s4z5?_dA>13#U)V%GzId;OwU zN1URUHvaL7=e`hkKmXTY}^P>;^=ds8y*Z%pn;XO~j$iH;Y;r;jA`oa?z81C-Bdd)pz-S(f{|AX{{ zvyD3s{NcX4AO7a*H}6~e&1df{Y1)7N`yWj``>l|66IzQX+>T6yQUmtSf9O8v=azgu^G@&n@He>}P@HPkoq@y`?S9TP3- z&2KLo&rV+W{6CHgp1Wb-@|PN(?szqkd;Nhw|M|V2e$n#N`!D$Q7x#zfzWbZseD*8P z{MTcT9#MCH@OtO_i61|c=zHjvSC`#ubhX^&cuBD4i2K5oKl-R+X-oL>8uP*T!mkHj zPu%+67qha;qJ)Kx9l8!Xz#N*cFUW|?ypU)etK#9svkda{*p^2oZ7%obr1fG zx9TT%eR<#>LCx6R+rKye!lSZZ9lm$w+b;?)`r&JX`yY+{2j_$6J2!oIti19onI*R^ zTXB=IW$lS;6Uz(d^`Y9&bv*pF4VNEy^M`^vKcl|zzSaNn#b>{~=BK~@?fvh)a>cgS zUtab6v(H`E_U7~NpSt_iWOnCEm;B=VpI$x4dElcrruOHi+V9`=yMel0`LX)>r*z9k zx341B&3`-orPL2cPCYk29DEBC(p?3x$+J8Qg;-n~>4;UvEI@%iDyp7xaU z<*96I$JjGJd}ZJ_FOIHy-E>lSMAh@dhi?1Xw}1TFRlmBc{rLR7(ybr-3UW=VpRT&+zrMKo z;DxW(4(xt!iKvdbFBJb_HJ*LcFlubRxHqeAVga1*XjCo9zH3U$6hU8+z|SA@B%LXFQTk)F<8+rs$JZR>Fk*br&ybi2*I z9&Aop+?`m_1nM;_*-b^ZxT(mvU(hu&W@}c08F2qQe#TW@aQ`#vl`oJ6%%c(7!SH89 z@nwZVVSJ}c4gA<-e7W9f1UFz-Wcc-7(BEOCi^v4D0~eJU5NH8D#O z<5LasN%}9@E1f8EC7>GQ3rSLv*0RX1mR6E%9?UA`tx=KR5f-(!l9G63W8rmj# zOMqrt<1hR$MGn4tFJF{4PSje#2Yi;eyktJ>b zd_aT0kmOC0{hBE$DYLRH&QV<-m(2GCe8JB0bg&%YIW!)gOg|wC*c38ySk%i^JG%op zRoAFk0zTV&)bmthK6!$mlMco`%!aX(7 zG3riuIl3-m!Z}P@`{iYK$~0W?q%|c&v~L1@OvMweEPLBnZ)v_Hx9+c8}7R z(24X}x6PZJoNg8M7CmB*v;b*w$m4!bxGC4+adcb4-to~?#v|_#_KC)VJz9Q2I^`lw z_C%Z&Xbn$sy{dMSMUJ+SEZZ=P)M~WJaY4K@E)um&^X;l88{4RAVGp-^9C2TtXrMXG z<+P{lBumrWqAm0oV`g$R<?VEgqMxx5>+Q zdnMkc5d*ucC7+6jf(f;grT27mguStjI7`n{wd*Y75PZ_E)3Nj+Ly$Kj?(Si;abx%R z+R9~{tXDh9i3T~OJVWw0(cYo(xTZ7d_KalNMOM39*v4ubwJL&5#e6fF7P7j@q3KXi zHthh|vb#^rsyQc<91Jm8nfU4ZrVhQG^q$!?} z)ioF$>x>QhlrjELYj>xwGe7O`RP~gmQZlVJ)h3(ZTSA6due_y0Cl?N>a(UKJxvO9b z^{QAC!|Zg|RH^LfA2L{j!mPqgN_`G%r*c%&8nc)>TODm>moM*YvI)I{5wK0?yCt52 z-{ufI&0XW-NUL>F9M@%{;^`r0UhH!Wb0v|9K&ONy>zj7x`lN#?w^`ri*EKs_R)J}v zi|g&;DMCJX(xy~*izm#!o~bUWq|ap>5DrcoMIE}aE`OgH`j4xF7wT7gMOukRrPNA9 z19?{=P%Ii_WNct!$Z8%L4>Wa5jJpNdsi4WERE3*crwqy@Pa_VuTe<_&4qv=G-0T_4 zrFpSH-}FF)*V^MR_{IwzslMrOb3kP$#fhe|LN3{!2uBmzbdP`1)-SR3hExt^mu7H) z9nDVaI=cD?nkU3*)j&K_)H*ty1D$QgcD*-}jKx|rNOCAFP4Qy|zfPnIh7BTzVlb5m zWPR--??5^yCdW-l($HBLXJuL=tt^qzpJ4@hc}CLL(%(-~On*AAnh>iL1*f7Z?}K`3 zEo%6E!j6JR)#DxFN|Y9Ik`)L`$zJiGv~{|x=wOZ7GCohDUtU(ZlDu|yG36X}_vCs6 z9v5aAEJL%Vkwz7;WrK;dEh}@0MzXffaH4E4@uF;l&YTH#6-{IAT+Yey26aPHa!g6uWlCKl ztroR+oKq_J)(gDwr@y1GSEu)7@;cIU7QK7V%R>#F!qHG?V z=#zM@o#Sj-OKMCf(8?m*l-C&>5#`Eiv9D=LIN40voGgD|PpdCi5_LB@xS}3g-mFdV zM+KcMHaiSMLc2lT?a8#uIGy3vQcgW$8S-;j!mQYx>ui;4ig`t>Bx;ri*u5TdLdCT@ z@(BSspkX@(U3xb=BDaYWg}z>o!X!6{#^v&odq~M5$(Fu2R~_iExNL*5kbynr)Nxya zqV}RYs2m&aNpygdZk#@!0!EEgs*gi9C5Nq?ZsS;9C6JUkB+u+4$zVVoWsUaq_lY_* z%^{IBKbX)=MLRj9N0gLxMmy3`QPX68N;(|??%mmCcX@-RE+^NS^W|095n)$ABJp%_ z2CU;QA3vz?>*;m#TGZv44hA&^&;1v%3hRzJH<)#TE~t!9N>F{aU|+k+!!GC$=h zipCOFmZrm{4S;q#_`5X02oP7PVZ|Gv*0)xcIyz zD>+?`gj_@Av_{V6wsi(LWLtN4QdCSQ)Glkfpk=#NGFL<^HtX2^0r!~ImvQUe{Y7<( z3{G`)_D5VkS5%hNay72FFu@<;3sq`^Q=w_oO{e-AY5l1|b(m1n0Yq>wdZf_cu zw@s)rS~IZCv!SduGO()9CBJS*`l^ICyd!rP#Wat{b3zD-=+X> ziFPkv!RGnYS%0kAt!j^(VJ>76usalGxt7;I+8Qr~<2wE*>B^`%0;`4PRKk4FRTvs7 ziv|rEO{r9ri6=&&fyfiGzK%|{Y(fzCa-|Ax+|$aD1*iK((TFYEImVV})qK9t=yZ2C z4~v~6S-mJI@=T}(BWk&OLTiVbi3@r(Q$>rb37Bw;#-@%>aUJoYq_*fBl)F8w!9;mH zq8R9owP;IhXS-I%V)v&ywB8AWF>apHNwnFlbwbLs^hZ4~1W&lVxH)n<^kb|*-lgwS zMr1>ta=vd^R2&Pj*nYKHkx#1q^7vVrw$Hj$L&sbGObP~I!)ctwq%dU)HT9l3o?eJ z&+1Mzv0dtPmNyk0RY12&Q@^qEyW3K!09n- zl+B!BhrLIwGO=tvd8%D6N?V}oM#E)SyH!!Ju%@MLZgs?-6^X**aW?7j__&ivnWUT3 z8S2n*%Ne0qUz#2?v8Re18tkZ+} zl{hUhm$_z6r&i=w$=yS~Fvp;amh#+SPc+z62#8xnL4Qfe?(7XH`8_g0w}^}-q!Mq| z=qk&GrK7C2CZD!DH#Lgg6Cq@FGZq$h>NxB^c_uuN)Jph) zcxg%->0l4JG)b*LY9A_xp#N%wy)K1E+{EQbt%H`xP=_XwR}06@eM4-X(ai274Yb%Xwj- zcT}NPXd+Q_pSe%eXCxyz$uP-w_2<;1-2t~ZCKtD|GeZHFHp?!sxW%cV4qbEJoa+q1 z<%ZW?sDHNHm27-R{I>t3er1C(2fqlWo=ZwTcSOy-n<~rarA}G7eRnXX!nn zp7sH*R?rn17nCPEd)z5oj;D`UB`&?i5)E_R)2&>iP9W&yw(|I6?rza=xkc@BWYh!p zzPKPhrcP=#g%)>{R3eFTQVveHI^PZ4(KVJ~m-D@{gfQ~kUq4Gclns7_ecb2TMJpNQv>m68fU`%pRBH8k!n zs$!!&YHl%PYAUJP%As~eNR`Q}^r=YKSf@!m?oQ~Y6>ZY=L|)|>6%G%?aVIfJqRnbg zj;GL#XY*1v->fo<`UG(&H>c*0=(DaYaIT!%V(4$pPqej4Q*q8%a$wMya(A0dA@ihJ zlEs!Kg%{F@;A2MzKHc z4RPAkJw@ZBZrEQK*Nu|>lO5w}&J=5?RU{ZUa(Vh5ZHu}z(bSi-jt-Q$x{SxD4i07_ z>OOW;SY*&y#k_1(CDHK{TEEON+`;0sb@%c_X@ADs)-pZOHfWMI<;3xVr%B(_2fa~l zD3(M`yq3w<;US(w9OB_3+P8Z4RE=Br8 zE|ERlBfx#y8y2}dUF?ES5-g;|?(S$CNgDdyinfGDqVQOarcsWJ+tw%Ica-&Rc{9wa z%E{i0Ea`?oo76BaaLo#dd)(D0;0+i0g2v{)kUGJS@G=~i+Sf{sWHNmg&-gfp^mm6X z!sb|Of^XNAgi5U`lvcM(nv=@OK#a{{Ynr9n-k_D+73<6Oi|nknQeY}G8fW!SxVdVc zuP?~+8HY{2oC4wvd!U@HeQg7ho>qa9-8vc+_V!ImrnoL^*zId}jyQA$e{XA65w*G0 z0dgcblom;P1;gnvg>Dk}sKMs`E;X5tj|Vj!K1DEKQOVsxp;6#XaiTeuIiKxpYWBK> zJYJtDrDX}n^W1>d3@t+1GokYIj&&4AoMk?DK-e_cI#OsJ4GwGVK676|l##pe5E$@E zHR^G{okON4bIodlWOB@!(}{I_SEMQF?j|MUhJtHky4)LX?FwbREnIck536^Xzd6A# zyC=13l_HS$yAuupX;0)G+)z%YQcHbFwJS5-)uARGkX)rn)uJ}}Gn}rZ($Xer?wrh+ zIl?YZ*GM3jVnsr1g-0rL@Ridl=P<|B)te~Uv%Lb{pfB1wm{E>PB*Gz?kqr0t4|Wuq z6dX=5-973~^}-lGWHh)GJyV83mZ99;W>id%E7hh*JfR=p>RF`H!EX_^#-(Ha7A`Eu zC)nangHhfyRBqxygX>jyaCtI*`_N#EI@!l+=1vT@TR6>QVZY6o;l_*hc5k~?`vu8U|ZaJ zm#sA{jy3Vx!lJC&s>!+Zf&5UE6=cC8)1w}MQFX8o8=vqe(jsZJ-0qp=8etUgl}!wC zMa|>fsCl486W3WoM%IAO$0-gAR6~4L6N@x;^`|t#W*>*t6a*}`#b#(xx4P5?sUg;5 zVY7Lryh@x=jiu6EQaM*D>g_Wp^brY{t0;>NN;j*Y-!d+7X+whw17~a!nvc{Xk#i@t z!#a`G+14j)Q`%b8+VKG$+oTH6IUuz5GzpDj0WZfRWs{a3 zHED6!Tm9+wKJEzLKcVXNYbJ)9hFL7Jmg6;8=MAn465Oz#)9A?*;YpfV|=_S)He-pn==+y)jL*s?0OkU#V6aHSF zds0+#4^AgSY=b8>p^6Mo8&!dkSS!g^NBhbC0i!_}?u$*AC6PFXoND2Bt2HGj*h72&j(+3kbf zp6QO_pw#1GPeoxkv0Ghyo<17xQhWJhHmAKwVD!l&>I9q5ni$H-BM!BNqwh(LSR@ld zUR*n=6OE89gDh{!I-pi|#N{sUWE;uyH5*G^ifoA|jTxYAQ2WJcg+jp7O(@)=DT6u| zWRZP#PTARE5{-;HTiM!BO5WCNDR!$lngI@J$iO@+BOMLvIZ=L>ySdy!vdipr$C$t> zD(KpBkbR{!*P~G-n-hE+nbUH5lv8o5U8os$W%k_o2EufA{~p{tQOgNCJOoyW5CG^v7rm$rC=b;Z83KZWjHO8@WKv8 zZ&X)M1>_usyd`FUHiTDMM*l##NonMWJuai$r|z9jw6X@ff>Cx?$D~Fs=2=IY+V~0h z@n~Y6reuf5oNJ15$PwwJ!8aB!46zdJoQ|M%RMg7tDNP1c&C=$yhGn)-Ci=Ub!yNta zNQ>GyMowtDg32Bbx4V<%6x}kXM~pYH1LiTgTs9OVNo$`WqgIrgb=;BuX<<`OTAFn8 z`gA&0EZ4^Al=!=}yn*5AwwQYi_*FKg<8p)IFpE?RWbIb%IIBO|U-q>E@7nuPs(e@UmP(kIc;Ll1ZE#C2x=&^Mr-YGFPSzCEcw(qgJVk(_+<+=G8HW zMl=Du`F8?a`E*-OS4N+G&CnT?U{~|roo>636)Fd z?{>FaiXIV*rR!m9`%MLv*(J^A3wg+DAt{_t#U*T4pG(^;bq)(M+{si}VPp^F1$t3T zz;cUvCbcGUPNvDSic*e315;lJrmbh9iKXbvb@W)=Q}N!x$N<;VQ9(zuIbDEW0Y%oLc2C;O zTxy#oBODAjsqH1cJ=&kJm19GezR^sJTF8sI%`B76?oYUbxwZ*Oz?aUew6Q^nt`JI1 z8?=6VxTo168qvF*97jLTWk{0zA@?}TB~zw*M>E=KmP4-??n>)DVOD1{l5fk7m-AdJ z>1O#xLSb)HVn`m>1tr!}LO40Ag zj10sC!*-Xo$#2rNm{pN3%b-gg6Y(Zn+MTRvtzXaKw&$Azqpc=bXm)6IEKy-nuHkxy z)Ds@eMe{EGZO+s{ncFql1`8(xUs@h7 zlzTa1zQVv8mW6XozA>1?>myzsZ&=0Sk^}hDOmlnCq$&?VA@&R_6&i)YtSqFlwo_?I zxNYg7NtUcjVUF7ss@OSd6(CulaQm_Q3)rMDRJ!lV9c)9l$89gh`4Fo z@1E-7^8Efbjdu&f(qce*ShufUyV+cg%u-aE=2CQC5Y*2z_UT4|@Lg(L$leJU*rbDuuP z7>ndj3op?Xa#8S%oAiOu)QaKIqqpgFP{?rYp`bF!>V<)^hl(jR9H408=4!$^D5 zJ*u^~a7MgS0~*nQmCO!n97(sQ(A=)$4#hYv+^PPI-;VcLt$h11d$45Ts&xX5jkK^5 zY_hq(bwV@cZ1wRp8RuZ@xJ48ncUvUg9E(FxCFQqPl%VF4qt7y3C#*03VQF$vn)9e%D}B%BN@bRoV| z;~6&FhAdvAB`r4(Bm`__%AfZu^jQ&y?O>1S?bb25N1t>UIJTr-?v7_!BTW&1&>&KG zO?&y{G8oll(cv++rl@!8z4o3Qzs(4>#cQ7~+J(a+Thhc*#)3&NOF$N;U25)FoNHB$ z<854dzJJPR=7#bbj%iq?&ZK3-gC@LA8SLncGz}WM@+#g$M=00n9_DdXqir0=gh*Q) z6&Af?>gkE$R#rgSIn?f&=4Lef5mR2(Uz~I)riS~wMV44slh#?#^H^mLpX70jZcTSW z0n4<}lr2A;a%wu&uB?AdIOH%|n+htfN9Tjea!GB&;~Y^m@6?I&l9tfqRL<_{)r(;6 z7=+$9-J2~0cuJ01;uC0-?j9HPqX2tIsVQ-t+CsvU;@aJ&h*sJ!Dw_ut8m^ExIg){u zXn?I3^>o|A{*ty?Den&T_OkM(!MxhqJ7^XfWom`S-Ul4XAH!_PoD{WiG^M_rHJu#d z$a?bao{3g}O4ixrz#k*r>cNnYE%vld4vYBwiB5l$z1cD$4fn^{0#;i~N~f4R=O|;vGv-x+-$fn+fj(HhW)O|U~^lmE)?mp zxuBerQxT~)rEE8f+h8`#3l17bns_XsL6p^tyVzk~&|nmp%$cSRm?{_)BT2Pu2zS4n zx5#aQF|Ii*HI^jYP@q|38p5?ey5T2|E2XpSl_;AF{d$qx#32QvnbsDK!961Ej1Kfl z_&UEoqwaO;jO@-*hn_d0%uJ{}E!wit)eU|V-Ov#Yc5gtW9~tCnq7si=kH>Y)?LGut>A{Z^kbZN3DGU}I%HuVij4V_#T&p)CcL+{|ZBg`7rJdAzy9BCz-HGGvN7F6Kt0DZWOp8sUx> zxy_p71gohzkeme0ni^IMl1^KjJ)E7)g>~GtR6N`x(~G78F1f^#OE#-ruB3a+W9aE@ zDvWl91rwHVpQtk{Hkdn_TUuLFa>$#b#jNEtPlSycr^007N|l_vT;lGHH2FnJy(p#7 zc{G7Zn1gs#ts_lw=Tt&#vGAk%)@&z-)H~bbx==`5N{$Vr_3SBL-?)4_lUH_`oTO7D zw8BDBCGr`>qL8+~V<^&N>NU1BS$O8G`rvR*g*D4+mIXNA? zE~z8d+{IQ|a-xy2D604JS_-CAUSKX4T>6ZTH`x3EZkFt4-uAs9l5H zjKFH`aZkB860uR#%MOIt3hji;TV{n|9UvOdtGp3v->l2$>Yo@iwfgu;r>-dkDGhgz z42s9pp)QG@(^@VIdW#NL(WCL3*+xEZGSi`!@`XN?t(9LIv$CO0h)U$BYmgnDG<2!; z_EGP6A~BqEjzl0~YDrg#W#?#JO(LFG!WGCSJ#E4=k1vXddjo+caxl(Ln9ZHMp4Ps! zSL|PNUjJm%qEQ^_3WOhi^B8spA!i-%%8XQW+CSrWOLO9f+>d5pd!!1MQ@uEQ~ zQpw%CG26I6JJKQb3{QyE)=X%?D9xpPGK;1s!f_17I8jzE*A*BWvQ5XD6ayZUsIR?G z&MtC=ZK9Be-O3K6wWNfLKSaVJN5m3$dAY5FY}Np)Y;Vb%TU;r5XR}s4)imjYb|niB zwhQ^94B09T`#5BLgcK`M{6eX%MaIiJRFC6`;{3B)xcO+~k@OVe!OgbnRRlV{8@m2BcFY^?^7p5I<-a!&ENUG3Vi$vM?I zs^SdEQrsS?tW98>lz1aiQq!X|=wQfBgjxdOrt#i>g=X3%9F(+}$5dLbtSuu7$!z_j z5t$&z$tjb0mCGCI;&rB-Ia3c?H`W`=O1Uz9Z?su%D2ElpIZ;-|O(-Xu)s8VvOQ@t` z!P3$LZJafd=n8Rr`guIj^thSq=Lz#%ho<1{?H7#*x$F^(&#n@8=mYs-Aukq?_4YS4 zlYQgYXWVu4nbsGBl3GCnWW2?5STmqV=Pa4(rgcnSzJxx zPSG&0MG=X4{G!%Ab}ByAqwZ_T$O|P)KF96uk#(z;22(!bca`|91~x}F$Zwj=bIXEh zVQ*o|tK$rfmpe5b){%rE-^uD|5|8!9b!Bcw8Y^hhLVeSe$JNvsHzd^Q-jK`IW*_h5 z<^n^*hCz`^BPVm?LVju}-L0PJlIP6osc5%lU|2OJ@s1^RMscweGQA+wK+& zNbOm1K%*>ZUUG-^q{Hz#X~ig=NJS&KTS4|f!MM#e=# znODbZm1;W!ks?o_RS#&OhiCEuD$=#~_@-3imSk3u32TOf<5^xoJkc{K)%n?+ zuBbuK{1Q;M+Gf9xhv45Pln^7cBhJO>~zV^;+QHFoj);y1PiSci28D3ff27Jt}*e=hZ8$Nq4)QJt3AA zEG$y%4~00s6s*Ri)2R?=aKhffQ>n&6oQ}SnUEHfuG;{pI!EP9>?A=YS=GIm+JklpJ zD!uU#r{(ldHauPsk?kE(PfJi&rhjlEx*n^cWpG$x9SFF?wt#hX zsJ%Vi&S{-u@$F*Ca8@BGq;mpmo36R&>~Hsu3sSO@s72F}5Q(U5+@1{S;^$+IK90^^ zwt5{VM=L1_iu_KV&euu`+oP?dw5QxkD#J1(sZLvrq<%VJBu(O!k+f>rCemS7nMilH z(?t40gC^2Ho;8udsU|ZyBr=%Eh^Es_#`Ja$*`#YHNpX8WNy_oks3pvUn!#sgTc_PD zvJGz>*|h~0*lHD_!E{Mjto*r?|C~lS% z`{HQ{EayB@wt_2>@m<5CGEuCxT`uEH@)XUjyS7lZja@lF6S=QO#Y;#I=EzXfd zp~b^;^r*V@{ARVKc}l43%b8&iWBZ%Puq@F;#tfu@OgftdWIE6;AoC;r0i8ijf*X;FKvWVedrU{Fc~Uv)7R3}~q0gfv9f^pH6zZp>q+dLyCp$^5oV4_NW#mL;SWAYK z83ma$NepDXU2Pys>W*eIEKsRQW!WhrGm17j+0!D8m2|0Pv?@8EOt;sj#va@vOA&ElNql;OnUrw&<=EpNx6})B>PF8gdF6{ zB;<(BEg@s(fCO68q>fDYv!rA;ERvGN(H1Gmv&)s_RKX!7*^)SGr3?`2Z~bF+zOZf-Nn zhJ0;p+Uazg#bS_KtnQ%4VhfZ~mQjv0A?KF7Mqj&MY570;5lzI$En%@{+?E&?*jeLK zy(xQ#zm3!E`oHp%6AtS|a`k|d+iBEI=l_p?bgBsvnRfR(wbPSU1BuVGi^ZbGg+Eb{ z{-aESlu6^6zhGnICtOyToKaSW(pc%HIxaE(qg(~W!9^j6gN>hX$!Hh5JRM47u+ou8 zRGlv|ouVKe(iyuTZBP|gRZc6^!E?m5$bFEGfl1n#5EkV_6s*)Oj;k?vj<|wniHi<- z!Tsr|&iKPFg8w96!L!FD4xS}0rZCUMwP0{2uHd2?tct2JSP|E0Us&_WGW^$VBlyX5 zRyhowiR*N9RMGzPxE34+&uB!Sh`*v{gS4VDE*#xLoB3yP(W+_?Ee`lxCTHTJ3ieE7 zXN@Z;UKE!&c+Ol@=MHZD}t|zOB_6VTtV^K z{(@&|b)RgRLF}^9*O`d_XZfOBip9aR^*HSItZ|8hl|1Ux))!+$$5j;-|F`}=O?~~}`ujBP@c-7|r|Dmx{KNBX#~XiX72P#te7XKfEc5y>s2@fZ zva0)b)Au7R;DY%zU!?U5xa1t}mz=|W%{koHoWp$`W4?>g?^>`evWaE$D&*iV-kJbJb{vs%kQb>d{s0hDP zpw0qDQ4SSQ98^Vg8JI*-64YrVgI_t26p2v`^y$;#jDza}xQv6D0?9vN@64u3sYp6? zdEAoA#;7|rdLxC@>6<=!((!oy6IPa<1^<1K@whpiKD%dJE*C7J?>X5-?GKGm3xXA`9)TJ-mRpNYEn13xN&-()`a9D$Dgm`MeJ z{$Kf1udmMM!r#%IO#5W;6MqEy|LC9T1v(uL1`jax#Ji?4ebTCA<<~DkzF!dd&YW|G zi*1q>_R|&Wg)kQW=o=g9`wM)F+*Rsk!OtPE-}_JE#i1Upus;Rr#$TS%SB6ELCH_N; z!frV4?CEs;^6Y7#+IWTC;|rhNg8dctM?qcpEARt!=rDm! z9{%SI2FFozmh|sg6z6_$xAZLTq`x|Q_&7{Qh25u3( zhyF!)mH9zTxt=XQmFcT=w>Z2?-5%&Gre_Fz=M_5F9}YEGVV?)}^jZ4po^$j&(=+ET zpZyhfvy0sAI!F2JdFI^t*$;jio+a=dQRrNMI8@%VXY5U&o;{2E{pV;$4bPrC{^Z6b z=ti(lK6~!?vCXX&_6I7|3t^zM#CzjEiFX(Hse`fa=(GPk-;K|mu~$EL_Ilj4@$C7o zd+wigxBU|YT7TMICd-ma(W7AY#nWcf$X6iH>eKqm=)1{av^)xl7pG#8QiRov=&_!T zQ!0&)CJ;Kglc4&Y*wXE11ubUm=2W$rn+ofiDzgD>R99u@r2IBin^~~grfM_FZ)262 zoAS%6Hly50tIT|qJ9V`g<<3-P=BL~_s?8{OJ}}$w0J8!v6MVT1LEUde>sfw8-@At% zT6Wrux{nXf&-6=An_YhS<*^Zb_h91-OdN$$l;t$j`KU4*pz~2_=BM4MtIP%ln7I$d z|HP#m>u27H>*D) z&^_pM+mK^7vtYLAjF|$P9r>uL4dH8^(1E`Y==`;(&06TTyaeGVbH&(*nM>uDGI~}4 z9fdwIy&Uu-MfzH$#wBR)2GHjj52hv5-B02|u@GfRW!Om=%ytl`&E)96_qSs~L7ZQM z&hK8IUl(qW63dpLW%4CbVr30lsa%Fu%9rJd8Yts7a3`-r^4Ky|@2^Ak%H^nDzA8_w zuS4toE75x83bbCn_T=jPs_?ejC8+jT9cm;I`X101p!~NXv`7zyvB(Y4unaYnR-p#v zO4QK3`slXxHE8{ZD^P8$4w={pT?TZ739C|1tX+oIDp#Sk@|7p+jxO_U+rA8KFRehV z$5v8)eSC!e1E}E$6YnB3Vnq#FA+J5TG`vJgr5*Bj6xNM@1M*=%!5S1i24R&}P-Yth z2yH(?r(?0c${&tvaag#umR5YioGSNjDEFn@^Qcu)F{l%c} zl*_34+q|^~tx;}7Yd%<(-xVULJHocr!I%@FVf*u>2W!gmf<@ukp*b` zLY*!$+k9~i)aeG)@WC=)Rrt#D@I9I6*FbkL;aBPj$4caYbejCQO{{=0>rjJy^-;pM z64}mXzM&3nh^;^ypjhLNbv3eO=4RNiO)3verPixVi9=jX;A$AvfOL-@{ zIO#{{6St$~M{5r+%`c(yDy?Pm`r-G{jlczFR4`1uv``0YAYH3beF4(7surzkqkKZj zz>ljAxu8Dn&==NzSOe{GCE5#v(l3DyzeJZ+rJks-Ih{wUUSi9raq<#8e!fh*uh!!} zQ0<0E!^zsC6=`_BhEBs{tEn_J!XWDf@-typ>NjtzLFW<8s5W0iqrB-@W6Vs{?_x*iai@ByG=l+us!A@r`DnsbM=&25UAl5 zrW{VKU1Ww9>7l4LfPMgETsyaOgRi_(|NKg(4$^bz=QA}B#e}t;^RQrJP zt_Pl4-@Q<$z$-t8&@j+ZCY_afx=pPDKP%}rMe~#JwoNr?6ZDf>XuCTOAan~5>s8u+ zrJh(qpe1=k_iN=6gx{Iz1oAU(EA`ZPFoF=>=Yags-;~SfKDTKJ+Emye-PX7aHG=u- zQZ1^1wkF+&Pz>m%R~L9-Ekd6#M^$<%4+Y?f+NDUFWX2$BTv|?zOABp%_FaTt0s0#g zMwOm%(+GNfg_}w}HGcS4qqW`C_>td+bRl))DH`9~Mx48Moa74MyivrXDASctrohXf&Ng&6 z(Bm&O)ot)o1AKLM4?=(W2Fy*VG%Z2s6K0F_OnT5sgtneMlb%XF-R9~(!AJIl6Nl{H8SyuB9l`1cVS06P3Slh03> zp(;JGbv4==1M=fBbS2s<-*oc)qZVLe;M1_sj&OU&<&DesQox3#s9_q) z_j61iNP_;q5YhtqkJ52f>gl>)19iU|>V6g40`YAroPU&1*CI8MI+5TVWcVXVVpZCZ&oL7i`cI^P84ut~n*z9G9+TIj9oHcA{p+Ay z-=O_f>Nl$z5bxF{=+Zq)(biosXPmA@>ymg}JP)mYmL3;(h3NGY(NK#T_Q04ztVcCc zrtQXHLi=wBod>iJhySg$=vy%96&+fFSO=D(3vUHJy=xg-m8?TGrHz!k3xV#T(y|&q z2!If{L*Nd9J8Ht5tXt%6S+%>$_zWQ{`)COtPK^iY9ZAO>GHla(D z=c7xYOsE>hb2`p)!~r+;u?tW=nAhbO`uX{&;Q@r~Ku^E9Fdo*S|9TLi`+@4-qT{P{ zLui&G4TQBNS$DeJDgIJAAFT&HongwP<65Qnn{=77`7sqnGc6p;QcCeGMK zO26tS!1I_m7wfD1AXF7Laq((&G4zv*p`Tm~{p4ckCl_~bIl1ZR`LlGpUk&Yk6|{R$ zcQft2aVcs{BD!B*umb90E7Zk>P#0U!1;i%QfXnF8I%tP=X!9Ke5Az%sP#*5#DhuYqcgf%zurU#FI!^>a(n>LWF1*`Zp>?hPQ;F=lK6J9MOG zkvXak2chct@E8y2L69B<=|PLqLu_7#HUm#tsa%6r7J$!fsX<$g(etYO_Yk@P=$>N> z{BjkgpSl&M3rt*#^_6~zi6}wha=C1**{v93uVtu7wV&FV9 z0O@l>+S(z%Cdk7!r3h^!Sm^wd8;-6&+%QXz+=!lILiwzKyhtAd-hK$O%!FB~Cq}oR z(IYF+@S&Bc_rNOTy%py9d)A=VU29RxbUl(J8_*VlMD-`v99?yI#q9F@vT&`m#z$OG zhb~Csc|MFKU#592p|3}J;B^w=<2Y+iucL^ImZFQ8 ze!ERlgCq;%xR^i#KnvqI`h*#()=O)Ul<|8K%vMUO{Z^ZyDt*OVf*vzV%aK$_AQ#Zq zxij+-tp5xUZ;lRQvA)s|f!7_xd1&R~x-iX~FFlT@z>TrZLNXX=SFXZRJMft8aL)CgFUx!5mniCPH=UG+y zg?TCHrz_l4>Iuv@fk&+_)a40&9pb|p?&4TI@b0zf;xBJGO64E;`O!ZkwE8d5rjHZ! zc$KW7^cMkLahwi!vA)s|aX}66^Ofj=!g+aOTOHa48+5?tzX_m`yaFIY!mRKy28=zIMnZ^5xD|~f$uHFk{6O5-S7&pmXtI&DL zHIVO%k?B$b{RznQ2Le%T^TUf!-Sd}FW*ioQ!r1)$W$1huj~fmxN6SvtQ06(HYyLo| zZLz+}FG5vu5X+aM<&Wak52C|`@>m1qQ48g<_YwmA5NHnj+gyV-msV5j7bW=B0rB3Y z!>e>hY$DJmSd(qTyr%@=z4DlsX6O_8%J7*zuKdE<_-F@#&T|o{?j-HDQcrAvc_XYHRvccKQ9=IGD^VKe zk{2FWhBm@Fp#kRZHODSNHwFpx8z3bP2hZF0)X{5<4;v}-?fnFDoLtzqyqMBI2$W{x zU97M2gHToY#Ko{Cifu+0D>tEwiS=}Qnq8e=h11u7#{+s@=F=1C2S86VVN~jg^Xh2c z`|RqIE05B1!)+Uup$)J`UkhvWT3Dku8VU3`P{aGQ|4Kb^Q60?NfIog2Mx|MLf1KJQ zNMatk4tQt-s(%)EXxm!U2IHj)#z`TJjTaN!(0PZ~&DQ7XRR^`#2xU}vjE9c83G|Q$ z>Iui^UW?qPmLbdBa-@W@Rsdt|r7+HJhH=N%|AtlvnI}jhr?Qr5dBRK2*$qk>w$0N zSA~fcz}N7eE&c{lpzC_oDTeLe$yC%t_OOFN%M=KK31V; zz7zV^o&Lr`e@|NQFB~UO2hjVB`!P_LEA%V2EJItA_0*o(hWvTqh5Y{j+= znLh5L^7c81cVjK2^+B|eI6&=Z5P0uGxdN?`FY^&+IjgpCz5su>-M<-q;_vVl8j~M> z@~i?5VF#Eup2cp@S;9B{lkg9nBmARh3BQ3ktAQ4U|4y1XXZXB75obM@;Q;fa=g0$M z&SIcN@whXebh}{x)Su{js%2;o=E+Y-Y2`VH!Z_X0Vfe(k?iFzPQ8~ z3erdBL)1I2v~|BZ=(Dw1vEMIY7rAmNlp75dBH2Xz6E0+g(b$%Xnea*dbo@;CAs0k| zeoYud?eS6~og0ay87Gx4EoPt1+=~;J%H&NlIZoBLmKY=HsmNu;P&OCMWhYJ1Tr3`) zEQLlQ#nTbAnL}Q1`SbVt5mI1P zP--)kBSno7a{PZcP;RZUoGm6(qyMvT%~si&Tzz#^9Ko~hE{nUnySuwXNN@-QmjDX{ zcPF?@aCi6MPVk_MySqbhfBf!y=iGbW{LwY1rn+WMOZA+V@2fp89OWi_)H1#mr+Fyd zy@`>{znYf(JL;g|mE?#uaYkEeY*8(bV@v-vfH%&>8HoqGUz55(|FgXi*Y6%doT3e% z@u);O#d$y>H337ALa=~s#V9*q>X#ZIZc}F=8mD%N541p5=&$6KJ@mq8qKAWoIrL#OF`Azdx+?<$#?ZHB;sfsu&#P5vYK4x7x z$387Q;v_b1zD$1oW+Nho(f#^p!d~CZ>rDg5++c26(zp@wsx`~39UNa6PzJy0?lTj9_^mM{6U8Ae;^RFMh%StW{x!b~1Ew^>8r z*P-pWs8us~{m&AYUM}pQ;$v>j*_KN39d|<$@*oDL{Gsh;3@zI6xDGq5! z(b$gh_`YBvY=&TkPs7g4*g3Fhr49XISScBZ-*BU?-1(Vv>c$TyP5gvz6ucNyVlD8Z zd{T)@99uM1VJ>oI=M1I((mAQ8$>04xe6QTuyt?{?-)-_95IyQuRI-#pfYR$uq^5a& zn9Pf%rm~;YwqeXRJTqf`^*2$?6SWQ{m>g6GIZBz3n$jb++L=~PWz)d^DVcm^S3O{osl>MSi#x)mw#H#{4Z2xSS=zytRyv-6obKV;qN%N2HaqK$lZs+ zP5O78b4P9uCzBB&$MQ`&)xaLh!+E7X4sjhmcvnbqna4R@KYlEn2 zvx8b7%_;()VL~S4G|&*Ei))2xkT`t8rfTw>az-S4BnT{|5(d11)BF*bhhM@CpgcZG zDUH8hR&7gWIturbYM82RZ&?sKUjZ_YVV|5{e(N^9Z zUaZOFONj;ryjJG(wLDA~^>Vp9N#S_LZFl^PDMwxf9&vEZ)scIHp3d%(iTr0^J<^Ym zQEr9nNL)cuJq>vmS(1nXc~P1XY#H^kN_g)G#64zKT2&p|U*U%#4Z|{=q<^(^*qTbp zk8&P{aCAD59g`j{@|czSO`g9LCRYCLM*U_lRV0L|z*-e|8!Vd=@N^QcZe}qt==ra# zk_Jvd<^7^hvewUW6y}D!)8CX8b&&WWmTNTCLh4D*h@_ zc~RS#9FUN;cVVV{KN6C8S9-N$hkY8G0sc6S5p~#L*{?u+wzuz56ZmZny|cA!ddea%Vn?4JekHVG+;#JrI?4hG?Y&d) zgBrSULp$^@;mAHd-$eg`g7e9-Vo_nGUH#ou$` z&Djik_4aGsLwO%H8dtmVzm}9(e7#vc%{-T-tV7TK_my9$qCNN9P`G1M>8qUcF^~ey^ksN2Tl()*-7v9?w84MvI@ z@Wm4rMGi-nW~Bv4M^X^AwHObK&o-^|cpahE#ZBz2boVn zK3H4?V zlC0l!6WctGuJv^PDb5FF#Yc5Bf)Vfp>po|$bBE$*_rg*jim=!n{52HlH&Ln#Rm@sA zCj__vM*Q@|y{w5Mw2>*bVXC?ViuRORG*c>6^Gpsm`@T{JRmL@S`r{dVX}5&#z>`PW zpZ@G0ZXnry50u4sA-(j*%-j4dog_>vi-y#4iUb|3n(JjiPEQQ-JcSA96*i5z5+Q$$ zjAO%PDF~lYVW%56T^!?oj6(^a)0$9u$CS zX#UVzC#i_CVQT(M!VmSY_K44|MQ(tb^#WdiLj*vj_aK8As7Jr}(qB^j__YD;De%V` zXJIHKxU)h4!}=-5nPJq|W>B7@97VUka@!$iO`=vs;z~uLS4CoYMPgP(VojgBA@s-- zPC#!X0{qE`z|hXJ^9%k@^&V-#BX*|*+;mH-w9taiu0I|MY=H7U+z6e`eW?CX?ct3Z#?1C>3>}%C1{bpxB{fAO9rW zAg6Btev*i;mOR}4c#2P#}1Na7OMYcIA9@`0f`v#LL1pG#k1?Fo=V4Hq@r6+%+2?K49Y{2_m%BDAK zjI3yk92xEU5=_6tN^JRvlXXd`wCpnV{9FI1d04f;W$43qMiO)UOCrNSS5!0BS3yZT zAOnR69T4k11~L;jA-rk$aa4zAIS{hub$FvSGGM&xjdlFS6VOWrtn$suy`;#MRSC6| zJhb4Oy5jXldZLAV8aC}~&O>{nyF^rZ29T{F*Pjb_QVn*4&b*Rx?RUm|;0$Q!JJ1h@E2NW<<%_)G2kq8iJ;Y>HTF4G} zIRbjqFF@U|EFXu{)EE}j7_I{x_Rw;DV==Jb@E~`l(7|k=q!lcMbwGX-)kVB_}%7aI)aH$=%_dDsbNE=>W&Fbfr zcY~gki-H4?9I&P%XJ1ta&`g@UVnMZO;m_Nlpz*iUMDGr8bESoVs0I3FNK?LB&TfF< ze4`j3$sBmQl_8zPJkPx8fd-8AiY)!*SDqMMo|w@){Kjz8*bI;O4mynZ5Zy>O!5`uR z*oF}LuCCKGc15d7V;bUs2jQ{9#9oK`=orsH0l1%ZfjWpSXB_mCd>;V{J1X`K>iEPB zI`{&#b|sXr09&jk3cE9jD%IsHr}7|2K6C+(h$aepL7xo;zB@u6PjTH z^TX{M%whI_3=EpPWc1b+E|pJ*zC#U||#fH2-k;-IAmF6)=4-C}B(m z3H?w<)DjP<<|`CK?aY!|pf~Yh-Hvq95BNbQEsVoO2f}V-XT*;ng;q&h z%B_*zS|i*SdzE30!2OCEJqhsHA|c#>YC9q!Tv(9OzJRzhK(^e%%AM};?QFNXtJFE5^w&yHm>Kt7HhKAX9(K|d#3KQToruU> z{lI0ohbbB8fr_aC=(bBtc(UVsjLVD^bZozB;gZ<+dX&KgF-X|t4PVD+jjXepM6A+8 ziqb^3o|a&^+gmuo8fd{wI6^yE!5cV2GB`n~<39h5eXLpHGPP{zg354lKOu<%l2YLD z0^9?u3f0HR77>){hpzeCG|ABn{{n7$a_Rv+&Msz93=}L8Ee%Z*8~pgCNDp`L*?)G( z(i?i%C$sd|Mei_%RC??TJ!qTcqZUut-w?qYE8Jbc8^}i*xz?em@ps0!gYfWhh1(bA zaCU{;6;d2qmS&LjSqRd`kRwKViTyqxPF zzSkIpY`w%`HR_S(hNLGGrnk?khmIMVXHav**yv`N{NiGYAGYBG5JVw4Pi+FYg9>*U zbq`+Mp@v*vOu5rRR=v2ZPyE|@wg7L%fyv*>5MNZdA z2WK2zd!Vj=qS3{y^zZkUtE(utSEAA8xglsDtsW!F@K#E{LvClN6IvmF@b>2lxx{!M zN4fuO3mfPhTA}N+#$Q>D5k-v=4I^SwfUo1PL6nue*qp*Ej$9$7>4#HS;du;AP7(a) zk9pl`eq`+a4m12^bcpEisG|QQ+Kjh&tl5iX1L5f1Dsg^aD~`QoYVN#5w7+?-)aC+W zD$>mPwSRN4<-Hq#)NB_2y}wi$$SVux88nxzf?dVR^PnA+iV_&q!sn5_gD1g5Lzh9Y zLW#U05?9{o08GeQ^5HA9AG-luIA~-2MK}b%h;3#$lp0=op=~lbEWc3adSEY~kx|6@ z`zeciN<{xsas4Dn9M#Am&RzrRK$b^4W&-3WO>G&yoZ-(hq)q~rVx%(QZn-zlEKB)R zHh}KJim^x!W9{Tpp|O)ilkCSrfE?JT%UJHNzEYy!Jv)v)XcC-<@t_>=~b1~gc$H%I!_Y)yrU#s}1v zf_@TRuE;p$5v z{YYW{2V51O4yKF~flXm5hVn>DbecRb44vej-fLYA8@(%1dm|8!|iHOF6GCorXx3iE@(ev-o*p^8Gb0QHKQu43@bb@=) z{MYWZA#%GG;oVqrWX3I*Z1y#G z3ogS~d;_6OcGk?+i|AhAKK<_LF64gyUg=`o&tlTeynE(y?b7XD3Uw~7Pd~0;cf8$p z-H+?({ki)cPUSNQ8WHfHs}mYm^}lZZUxM@@9nDPb9KT!IS~#)&w_)r5XNdK`4OuNL zovqEx?EgDMKkQ$X|LGa}zcTz!m&^a3#ecrY(aed>+|Jhd|Jq@HXy5^#+lEy{Y01t4 zHGu$PFDL-f|FToFGqH2FV^K8wZs}sf>g;S@`3hr%_4k<{b#m;S_LjDB7M#JjE@_E0 zu(npDvbvVn(muL%j*08$#&nMAHe~E}v+2*9aG$mW);$;PzIbL6UOJ^+%JSGx8`}5C zmcXYd493H-ET6AfvF}grn!#{b4pMPyE=M8KDs5!GaFSj=m!Qx6ycSX?qt$-C9Exs$ z+^t}H*_oG4zsz_)et1crl#l{pQ_g-JH>FmM`;3*4TYl(SuzV^lKHBqt6$n@FbR z&SVx3q&A<8JD2ZHwcC6ybi(8zVvg;~7jK|1BC2p;Wy0qUD2BCN#9b`Ut>95wL=(Ug#k_ydj9Vr%5e?S5uv&vjB;DB$I^-BY46!o zcbrgFdFF zDR|tL_K&e&M{`MV&3`O}(qX!j38vO+S%)9jGJW^~*CYMlOX~Xthr!#GXbzq1&;2h5 zd>Q&bwf0>8Pl5l!C*yTGejdkDf;%9{k3Cb0hcTEzX7c3Msu(R6NDjyfSUb6|J3y=a zkX=?rY9$Gj%~q*!CPIl?%NlL?m}+p_F_U+*7$M_?w9Df~ab6oWNsOmP!Vg&`6ESY> zhk%#DNqM$%mC{St)<1Q?rSJ%>0M{N4`SMuUU+CPb#6JbYyi~0%1r&a|!frBie|rhh zfyYvbD95y79FyP*N+~T{{Fo>_hy`4*f)lktjTDBe4F1%=v2QWZ3R-*NGzjc@62L0T zEuuP$@MrGfYK6|TdYXVabsm{4-~rAo))&J8h0-Q&(!q1g%`-mkZ!VacSbX^t+r%2G znNi0Pkr3_NG!@J+^YF;2FLfY9I+u8Z^icD@1FAVM6*w18t52&CZcEN`rZ|)Qyrr%A6l5i@ zt3p#obIcker`YcV&N~Edq(u>imx)vTEM>87Zy~&;(}kGV5&gsJ1illLqU({d(B{F~ z=fJX0m~A~50PT_rBTK8TM31S@Wdr-Sit)<3=neAe^{isr_!VV?GtKjg%9Bgsh25%m zgUl;5=+!!5&%N+8;cU4KmyvG{0~AV^0R~-tZpFE2$3@_}Cn23mMCrHk3kVrcI?J5Y z+FUe*@rn$50Y9sj8ElTg0)f6_icm$7q{t^LN7-RlJ%!n+gFe!PBF4)LKP80d1UVx; zxg$*oUl20m42+-~U%bpXt z(b$;^h7zT(bx%*9;QSi`O6@9<=mm7ciUN0DHhWjrn5hV{k%*)iCD5w=;PZMWTHzo3 zam=rMsb`@asDYw5&`&E7=HjAQYn!yea0kY-)3MT9?nvN;`??vf# z2mw3GWGHd8c?jk5_$f2RqrXVcIiSa(*MBEYfeH*AK%3qm1&ql86G^FuDncHW*Wk9& z?A-bCkkZ6Nyn%>5riFw zU>GMKHi#@)ZWah!HzT}Rkf0i1CAjG>XvN|KG|)ue!&wj~(Y9`|D+~q)J^+?EQLE6+G^WcqtrQW{T%r6?G27mK_hX(k64t=mYxZDVN2ljQjq$^>gXt15<|mGIB5G62Ceq%@J& z{zFz@U^|E!p*-=yz^OT?VjX+p!Dfns#13{%B0Z_0!> zn`n0$zZxL7z?LGZ5Rp&4c;L7X{@CrvH?Vhp?A(g8pg95s}!f{w#$REaE6Bfk4UuVa+iM!W~_B)QKG3h0?9f20gnN1_h5h+`Y;lXoTam-xVrUHb^Y*V^rQY`tQo5$cqyCnTFT zoDdyL@V$wKmNwkA4bP^#sGe@wuwGpA?N2-BlzG4x=ojJ8ozI(l65x1#+}mw_%Lw5C zQ{o{WzYyy>q07|X(tN~hs&k3gt);V6=52K7Hl;X*1QG%t`&YOdg0i$DGT3eA8Jl9M zxbfnRR)c?B0R7+-23K*$R91F1ujD#<&gZaxM5P|#5_%}h! zGq6eLHvSZXhSCIA9La9vV{|{^@clL5g9{t}i2x#@KX166{Larw5_6;~CKBK~rFw3za6YoHf_R!ep6)A$hi^Z%aR~&Ac{+m$~7LFnUzMk!<4WB9l#U>s@rN!mChK zW8Ra!qh~+22B0d>S^)?5mCEM6c0f_XH}*Ldj|{?JD8;nXm@~3vm_8J@ynnw(TK*a+ z-ns@14w($eR|}ls$rAn0ORMUAfc2WZ)hezJ@a=Wcgvhm$PJk1Ro{S9HSD><8g8c@o z`{GZ^Pt$VgxOBL$3wC}?uzU1nPu{3nKQG>IK2Os+wY#RTzzFhK6Xo2G6`QzX@5ubH zgBE0ZjtNe#Cu3q#(dp)E|^6Qa+dZsemU`!wgb-#Tv+*oYxE>I#M5`+u932Y z_GROpq1zVz)%LrNiQAi>;2WP9-x`K>y7}9wQ^;r5SVntN;r@uo%prV-V#_mSvF63N zcbBn2Iu_moKN6OPs0N*5y$V>p;H~fyv)3?36{T> z6DP!p!B6U7V^4-8&Q46GG*|7Tffr<@9iz!_gUgZ?$rg?uL=hO~Si6_?l~60DXoSW| zCFV=!q*`wHIachVsT#S4pU8bI2kXg(>+_B3@1b69VO~5UCJ%Wh(2SIv$j00?7CgB} z!I2%~v~Ho=2c>&U9*NJXX6D_eobiw5`0u}otGs)dhYFdvQ%7Tr)O{HsiP8}n3SlW< zuKOu&+^z~Nvt*hN90RXR>qXg`xKFNdNwTk82Ag%M3|ad&MN;_SaK82U_EqbCN1TbQ zx)%j^y<1<4z zB$9+qD*TEefll*g@=675AWet!^68fXjXdMuPi6v60a}!ps@M;1FmEo~g&la*sx0BZ z0L>v@rPTSDbNTdTTcZI0vR=6S(ytXVbPp;6e*InWC=RZajQpjW8bM<7 z?B{ioilU*~MV+q5yk-W=Y%{PL$EG!xmroXBd?HeX&&rr9N@6-Ll5?=d+@}B2p zMb{X~<(*}=$*8-7Ve|#_*JN$tV|<+mstP_nFg9l zLZwWmmwmjJCX8_#`4vi|B1>;`$tpy-@erBK9?w_IBL7B-oN-<{3Cq#d93M8Z_Js01 zwUdtWBKA>v+|TsU6iuDs%ryFd#0cKmIdfFIi*W?Q~^=@%n-qCheu)+xpFB zp6W2SM^;KD?VZ{QOM~&5$(36s?CcBo&hpdb`DjxG6vumDp2>s11t+1pXoL4>qxVx% z>cuV-0_DGwE5yLNDs-74R{`(Bmk777iIoQeZ;7e^>AGsC%$^FYi|%RmH%f&7mrUx> z@0^p2P6g6;IXrUTsfW`Qq4^J@_dzAU^z?9k<7Liu#72b)+|~uIiN(L~^s|)tKCwNM z^)((FcG>YYP`;O}4hScU^IIuRHH8(H}WG6ZSt?8H~-1Hk{3pt>~*@b`qATOf`vf&sZc;bav~ve7vV2D zJEXgQlR+9@J@}|s&$!VD9TgET*t%D7s~VqXFd}K7%|xiKnO`H5-T><&oUNY?GnxCB z8$2ol5hulNO9)%4C+%x4doJTHp|<9F)%%2G^`GRsvL~?1{(k39L+8Bb zL4Il@d};$_i65v6KB2sZf6)%?wCA3PjNFvv$8qDhcfnal@OhPZ8TS!^^XWwMk(uv` z3GJG|-bb(w*6*d*`ehG#is%P(C{+jrWJt;@88IKebe-J~o!;74y|KB)K*CPZ4=F z-)OOj9A>m;tUD&05!raNpr`myj3|4w{igs_K-jul!GxMmW|&7}H)!5rd10=(I8$^x zB0Ks!Fgvz8vOBOlRy&+K*eyFWGctE51za5)zs$y-eyYq%`0IbnXMFur^A7ufw5}z0 zI3B~-xgOM2cI|nep<}1h34Y9HkYpq51V7}zMIP6{cG16=A4G1mW#;q^3;V&_A3Qc5 zXyqt-i{3nL9*AU*d#&Gj^wzg3H;ZOG{OGNZp9~Q@d9B>4SDRE2Zrkac-b=G$S&DG` z?Q8xVD3rGVVMFupaD|LtS+@|8`uqM1T}kWybJ^JIZIk1%$4Zz>D9+`d0?08=FLPWE z^d3E%*!>7YY<`8bWinO?f`zPQp@VVdg*28jYVy|8A%*#MU}DS9%kg)Gprf$C0)#@W zqc3f7)rCYyF|_%gzM~U-35m=5j!zInTfjga9Ys#{m!6YQkw#P8E*-WrUC9*_v?TNW zcgCp%*Ra9w*i$;VVF|}DVp=)Kms;MKU#7eK0uoBU)OWelqxa*ucA3W_uXmwZ!}jw% z*u_ZWhI%lve_0d?mPs5ZknWQGi}t1y8`gJ>6{e0|JjEi+&61SLi-+J7Kv?sV;wT$r ze?w&DW!i(AB!wE}z_E9TBoNWOf)BC-Ji!9cVJ<}GkkJ{d4M`*@Taqo0PmtvX=P8d% zlFS*`eZj*Ss4txYG0PKc3#f*IBaE z8w${l@_p#K0vjUa!Bm8>nr3Jtmh7`_VVy%Zi6rtE(++&IwIoE&O zlN1?d)32e2Jrv2)pWcG6)DzB+fHy=FMAfTWm#nSJPfLu~9$Rn2N3AUfnIUy7ooT0{VKmNbr3x+$xS62z3J~7PDd-VK`c~T2~-A zpblJMJ{r-DvpU}M{VRTtd{Y=|tpZRDA*KS@1Z;p?tOk@J50L;TG|A~Dk5Q$F3UxTLxdM)^#Wy>9HQxtG1p9>4U6CqR~iH)-(0Ng2_5Ep(fPKmk^BK_l9Tm7U^LP>1+XhlKFX*ngndH-h^R zb7$oaF&TMifJ?Zo%wDRXYx6@id*CKztc)ZSq}m?E2oMV;*{j$x zF>%4z;~ok&SFZG-{3?!*D3=e|Vam@143kkuAdKQjS9bC~Hl5Nx|`TE6F4iikv4NzC(@~ zc44EJLjo9=C;tW7=;Z)J{FxrWi4*=8P=rIun5^nQRj2(G2rXC)-=V-<18LNj0N%jF z;NTc>vwl_czcQ@*4b>|d92((*?Lxj9P|=~N!*eQ z;4(`9GWrMeh>SA3-XvEuiF?SfyS*_#=PJi4zz&0e)mL>t4_;Ub+JGWp72~H?*eK2t z)o>jMfFhOqi(CNwC5m6}(h+!gI@GsIP zFS{a=6qoJjcRu(D=&30b{$jvEMril1!_YFMK|R``{_9lUK~#%!6a^D!M8;9rU(JLAKCterAGN#F}}A-m&+)S+H$`j1DmlK{A(r3`yFhm3nt*e@^H zH>Hd@BJ_!HO8_B{=&;;)xHZG6?3*0M;#Bzia@q_qsT~Lvg#e|%9RSQFJb#Ru{}H{h zH4eJhABQZcFNO#p0o*2;x{AIgM)Ck#f+j^EBv5sc6(&`Y0M>~oYKr=DnmxCVT{e_m z?DiMb*w+OwCVyk!<5%n+cDdUvM5E2-Col~9s9U`tt`wS*3wsgX~{<5!~l_&eF7r8bDPzr>bQ5$`6JGA^DkI8 zA?>7%qZ!RW_dN)=X9n|DAraXBsjVH+XCkn-q5v^~dme9tktP4sGQv`nD+HQjjQ16X zC|0c-TWKfNvf2pY_tX0Zp$RJ4kP?}Tqhz=QFUXGHggA}|R@w>i+GXnvlmA``d*M~j z=tF5svx7u$0DSG3zsDiYBXhw|-KNjknd9p-469VDU6Xf;R{q|S?lcd zt+WZ+39Einu%3fKDSrt@RvIB8_JwFJZL6@a#J*Qx7bbBNRlaJn;?PVUuKkrzHPJPd2MYFK>`4L4k{^qI^~ zSmh2m*t%2dN<5M5rdI$A)8jRZ=DdedieMFZoU2i5DIrNtmLB0ftX9a8B!2FU@elK6 z80Q9`EUtp^ufMm(+pv}kl%@RV-6C9pXU#XYs`unvt`=fZrS$l27&MA+hm6dim6xPT zePpbJe#>o%zcPdrSsDYS=4COZ33Dg2u(ueuRCL>gZt1(k7pohO;h!@{RZ;?3bM#JH zl$_Q!pL$rvs(!6FHp87?ol~vlcv5>*-nX0|oqrp23OVqJt}pH=E}&Jc*Kv}#R$#Ik zvNZId@fg2%{a1bAvothU@_X_}j+bbTkGePC!`s=y*oFTFp1#)_>e|Lz{M+jb+Oq`= zHWEHDJJ+UXuA5P(xWF(USOpT8Yxn0mU~=~;^*}RQnZlMrPSQ5SN{T4h78wbi34@pC zhvA}rXGK?#Z>DduZ~a@t+b8#=OO~x}xrW$9ECSp|?($Ew^M}GymQ!d2-TjHNX@pLq zcJk|a9?_4!f899z{=7I{XCOAP)pqAL83hNNAc?Y4<2o{F{8l-UL_*49WX4fq75;r0 z(L02g!}dbMOWS1fqhfKcF2l5D$b0}LN|)%qJgiCnjItyG7B5TXM%O##p=dxja-9B7 zS5mKcIq0UpBRmpogH}^sC+()lJ$zd#qMJ2d+r;>{oa4!^E=^>Tp6*EZ?2VeT0$k#` z?vqs-rWtDDW5o~0r75$G6ePBVuGMl!yHPFr?!1=+M197WuXWx7<4GM%Nu}KNYUX=+ zNqdZvNramFT8{T+iyO-s^W_-p()Fmy311rNB}Vl@nH5C(eR>OeY6Xh~B5Ae@u5;{w%IZ zZ?w8A_0YR^7)RsoUXxs-RE~T|HW~G0A!}lsw$iL%s_H77mH!s^uiE8ko=d0uhkDm| zB`=v8Q}OzbmGZOnCc9;t#*D>tljrTTdpC&7;nbGeP-)DJkngERmHLcQmeAP=@wA5z zo_@-dzVDe%!O6O9-rAtcbG_I2`DnY}v1;{D7b%1)%PfKKz9<+&4ZO+}~gS!aox=f!=eqEE+j!{K$y#jr2y>&w&Ya<}<=BuEz3 zU8MH5$0v{yE{m90^q~j6n?fpNjO4e?a4W@R=sfYV+u?rRP^dX_2K(vDC1W2Qa*mky z+2v55SkYq%&L^gc)Q$Ma=w z#U5Xnglt9{GG>C0Xi8!;x@-iqrrZY4(+s%0#`Of5oaalwA(_95dTsrf$#ivUns~If zeOU!My{9hNuMc<-TwhNZ3cfExy~FU}j%mlW*3S24MXus1YTwvg?GD`gO}$RxViWC`xKb|^T5B9M>_NLsd zIyzXtRYf=1u6f$&ZrKDjDXuk{WEiic*|;_PEXFi9FNqq%ElpVt{Uo7t)mx13+L?;c z5~}FyeiBk9jKJR~w7pPR*0j(X(zk3kKVPmr*{rT_w>^FGN%?e_fHa!4_tnwQBfUd! zoysuTaAd>H+U;O1tE2txyt-ZP!l1$H`h2JT;?%cWZnaCV=_X- z>t1i|+Icdi^SIOF4tHJG%x+|T-HYy2zsYTAz21xL;|iepAxut(Opma7nLok zJyaf%*;~k=loOhbsPi_YQ;H1DM~s;iRgl<;|II$S&j#&YSor4hw2uhwLe%@^@~qDe z%}*d8_JQoLAN7@dFx7ahvk>R;a4!{6EU}Q|!Ek87wCdWFw;WbXve@z^IJ6)zMoF~o z-{E=zU95q~)8=7D!8@^&;Jy>{srDb!f!H~b`G4BorU|hu0_Oa#Z;Lagek6FYaAdI} zqB{>ISmjtAO4vfGJJRh~Qp#hZbyxj$SVwdQnGdehdxdY`uM+f?SVdcpcCQlLl)J<% zh4;M5A!V2)j5$^={z7D|3Ad1b~3W;wUr9nF`(Wo0{ft{q90*k${A zEjtfhjD>O4PgIII?T*cHDNnxm%5;GdwBl2 zmb?kZ#Iw?0^xYZ@4#j(GJN!VMFzFp|#Ix4_;ab->Ac{A`s?^nTw>=-(&PLkh{!0}9OgEw|>{?q?>$lz=FQ=S5v_0PrpU~9swXENIZk$NfOtyACKCPe7)fjfZZ9Zk3 z`02lA$IN8S^i3yBj~4TNx=0hH@cH)Cc4Ko?GDBAQp7iz_vM;+%v}eoRKJ`4*d}rso?bjF8ZS800 zb?rxPhHI~mlSc-dos#z>>(=%)eVxGj!L7ZAay#GdMD?$nM`uKoV}(VoZ$@TTl*z<=UT;pgN-XjwF>~fT z=8u+!Es%1~++EL?W-JVIyo6(Y4fZ_}4$iXgJw;C+`wyIQYTUc_9=i@ovNwF+POc{> zkC0OEeA#*pv3=uT@<$@g+1fhsZ%j@j)7X+b7B3}z9rg#Z@YoEz-LGDYZq%MRCr7>6 zundy@zCD{=r;r%l`3P+91*LEqu)4Rt>^-Hd7@qrh-0Ur-Xc?}1Jnrsgqzr0_)*yB; zzLx*1SgsN5I)1d8t$?XX?$&v?damfKsqScdJ-(_~s9EoRde)q`zG_@KFWCU zu|p0rH=b1n5R=M*08%=m&bS5bh|EugWJeUIcj@qnCMMhpA!H}ijSkQRnPoImQB|K# z{uc63f|HN93`SQjViZOg(Ue^+k_P>qtV@V8Tk2fPSM?FOXExBD+6BC){7rWvHsRep z>-zJ3yF|+`!NUJSP^q3e2M-B9`f1;a%+}BmCXaQpe7Pzpdr9>nBheItJ zd~iO&@Vw6F86Nxmy39)@k91|IE$TQI##kcbtVt{;sz1vj9BXl*vE&_X#YB3hW^^l| z)$CA5r*lZ@WgHKec8^6waf6$aH9>_=W76(&)Q1B7NLR?-RQx>^ZqTi79rMLH-Np<8 zAnTJKmDf<@ucrSJ#&n3_M3jAFQXoq1e-ZUeXbfc32`UQ@v>-}_{H#COkBu0qWh;{N z1HeI<-73b1;;dP2Ay^ippP)0PwFSvw>5MC{fwuoi2-A!{zkgRgfDeu{vs)QRg|~3! zkfb_jHV87njf{y2SE5f&O+>#qIXECvWfr8=+dJ8z3qdDGXta}-bas~Ph&A+{lBVdA z`yH_ea-}&r{+?&Vj7b*?_sB*Nm5CgflLf4}BmPS_4WkzG(MXrO&Uy&8!K7 zzz1uCw{&=oEPQKvQfn$fB%SWDm;(g~WiO-v^1aF<+|=uojRf*K3AA6{bOgt#A7Qro~4vTNo{?ZuR1+4;Ie(X)|3 z^3ni2{U$*u5F4E-d2MfgR2gqt2m1FbpFm*1DJK8xPJfVlv`$H^YOsugOhRq?RPtuQ zX9Wcf_JzWQ^g)~%6ehOj<7HB~#4etHtgnrKICWwPuSU1lj>;eurXaz4RF;`S$vIhf zg`sg!8(Zb?+n22}7QZsh=yL+jSo0rTO(YMr`9RXs1xKTy_}*mM0xKA59tPE%)>ah| z1yZ|X_Ff9n5NAF8DPhaMT<#cD8p;=QZWhV;(q(d#>0zrXyqpY^%8%Vox09nxpGqhL zbasl=<*+yf&nCkixLgIdsy=VizVT$vKBLt1Ych?UDpkzzDITH_Ch?X*RmY_C`CRw< zob>s0F8Xx(FyG%ARb5g@lO!A#DMI2>Q>n$+*htF6PFD(Bf`#xVk)w$|a5d@F&KYc! zn^SVQ0b+k-To%y`GYN%Tkwv6Ji|eytqhNg`Lv)X;79X19wtbV++2^=69v)7w(09|t*bwH3cNncrCR5zB7; zHZ#&d7{|Gee2!xp(`z9}NEC-+{E^`p<#OzEy9{3?Dp3hr>^v7q-^lOkwpdWyT&cuZonNH-R%S-w;6w zho_Sa7-Z@yO>slc`E12<@adDuL%Z09ALjb&?NL_Tl*QtvsARV>=o!9{N<>b1n_7<= ziEih+=l=m+K%&2mUiZ0reD4Xm@5+UPXIZaU^#_x*7jz;sawKSrlvCY766=5%D+@M; zKm>LX^qL5*ln@n9OrPmeQan_gGwkXOc5k*?R}OFxfa=KFz#uFBwQyH$jzApm9Z!511M2)D8_x| zl^CbUW#OH{6K1z<*sw;!5pW<0t{|IQfGv+vl+6K4rkalam2`uAV(+Oyg`k!i%U+(<8XjeBpjpQ<56S=wXcMJ+Hcv2X&JJLqe_C z#_)V>X^cCZxOHFjrBQ^(4Iwu_QFkX>}w$Ue4&tp9QxteRk9pJd8*3b{v)dn+ZL;K)<`b^GNH^XT;Q@6AJAgk$-ZHF)(~Ht)xgO*N1uR>v0a~#rB9NY zy_0>dpRqm#+0%<}gi58h_5y*_Kzac>0J61cq9$5s8*=4u-N1b(pV7?Q59wccAa4D> z-h|M}_eYMF_FohpUKmdQy!VuTz!k965RbyLv3iS|HP#$ogPm9a5@M^Ji7+-QR5TYp zz(w zKqg5Hk!Fnf!ZUmw^k7Dk`J8>(xAVcA%ZK~g555qXkKxQSU!Ykl3AJI*S0hK+W6yqW z+370+*YOwzZSO?Vt4+V*H0%BYnwi$8bbObnA@X9JRTm}>rjuLhkA-}-8aT1 z92juo#mnOZ4;78u*!|GMhgmy&Oc>v@`{*=cY%_dd#}0!AF)B$h{SdvN@4nFY4zhE2 zgt_N_x#@14EwVoQX_-ovX7G#kx7YCzaW*qZFI!KY?Nv1BDM&Dqz&Q%i`f89AkpP@V z011&`?x7GeZ0(8H1Mbdvj0s&vSLTVh_v_>8qa()O95Ir#9fRE;&HiI7JwQKHqJwBV z;i7O6dp4@kX7!ovtv*Mvd(%=U_nfFV#ycGVPBj`>SP@jDwDy_Gw{HZct8eVa1QPu zd=l;g9jTcG%52Sag8+t~4FzhAEN0UJm?9#4%333|W+1p-GS0ln+A98SX7 zXa-xA45m7vSdgU}_Ct+>pmWo3hk-Buj2UU52U#VASwN`ODz#uyw8Nuu>k6j>^QN?D z(lvv8IDPTO;^7s@-!;mX14F(l-Zo*y(Y&Rrwr=0H;jU{}_OD$rwB~Gjv1E0NW#5vP zR6USpqeN5zrO72LR$@&msWC)AU-HKq;_d7%i#g#0Cr+$KQoIwNdHevf66|L=*=Ak& zrW@jcd)Y4J*T@mJGZ2>Lh&{!ERuiLQnpaYy7weo(P%)Lp3+cl}qE>l{>`ceL5g8Nh z?d262UsUwMDz5iYL;S(}1|o<> zVpIS=szxrTN_MS0yF z>CJD0CJZ0@RWh7A(_vM?uw7|aACoz>#GtOPq(j}?^+<(T+X*DdJD7KQP&ru$3C-Pe zVkK1v9|+T-10DDy(*a0KLNP{0NEZ>!)c{|!7X8kT-u}LW{xe&ci?zG|!qNU&Uh`(I z-$gdBU9ivxKYU9w*W?)D(CeNZpSlVa_x*{*hbG>seYZF z+akWs{Pp|W`X7EE%v)58x2TSt;gdt_b5(Jz&((pciW&zUP$N4zuvo3$*9^jM#x3M< zRyARlu@-4UrqXhkB*PWj%l!Nz@O)=f&O8%xn+drRKYPB)@re=U=RGp+GYZR%siX$! zYFxygRTrMs4QS*~ppg*NSauB!v(ktwJjFE!jkx~Y&XPl11=gI9SO*0xN+l|U1A13c zQ5Qk(S!9xNsAMp%A+6!bYgq&kw`%kJi@TfODju)Q%7U-LuL_yo3$Nj=Cx|nN z`_OaIdbxmSjdOD_e6&mrvp5(N$nRM+^X}_!S^axvb-H@^OQb-=($gYB^5h8pHV zKU^GTCnnpNbNilC)}C%?7$PaMN;&JO8mJ;E&=NIAO%gCxtS5=kemS1w3% zKtF#%cJXUtecWV2BJUI^{Ln?Ua@I{fObur)<};UJF08}Ogb{-`=<42Z#E5g zS8n#!ph3)LM=@4v5ddMLmrh-bIaQRI?3Eye%%>lA@1pM(;YHXRcfj5Yv2p*VbqC4e z4V(57`7S-WeLF69qrn|qW&2io{EqY)v}n`2Mt{;D7=1NMf!o~H_C~d37awlDxM&P+ z=_scs+hSJ9u2{&)f(3g)22IySDDqW|h~k1ZI!2G@7)hbOaVY)GNN?e|Ni%1Uq!&pZ z<15KPZ`}QOdDM_WGYDIAF^N(jw?iTTlTM1}>ZCD*rRU<2u@V|s8UfY@FeNX{5tC}2 zI!a|HPB}WG?a>)9ZqSc)^it_61~W=`?O`aT2R5xeNDgk?3@E)$Z!|wW|BJgLTE9|i z`lIoC`qhTjr+m)nPzzb|=iX_FdBXo~DtZzw*gWmMgn(*Kvtaf}XVjs~A!QUD2K(x< z1|iE4m6 znhF??LG5L2-h9?M<6!aSfs;IZX5`^ccn@dpCUka?PQ<>Aayb8{Ax|~~w^(!}ThoC- za9Gi?7`@i@oEekosxIeo=$pkKCuhx?kTzvLZgee`zWua<{xi?G?w9cs@Zi)g-O7)+ zXn5V{`pAA`y0xj-z2lgTefHfOcx_7Bf&o^HV}NJ|4v z&ZK3;aiFaPi?3OA*%5%Rqi|0RDkY0ruiWwFU|?BgpS!~(;qH+HVC>N0Fs)WRO7H#i zgFeifKO0Aae2M>^{)JsX2v@R-&Rv3w3Fi>zI(r`O`zY>U6*_2a4$RKV(hwHR9uPhA zfsh5bANDi;{l)kdtjN-0{~z_>z8J+JqW*CHA|GyNK0()DvSe9{`^{Bvygev5bPZT>EI4 zOS2rb4+n{)h7+~Y5;oCfm2wb}iX9Y{L_v+^KbeAy;z(KzpP~=wd3ugM#HVRh94V|J z9>&7PaN=kDgFGcS8I`G_Rd=CPPN+yOt>Vwl-YRoLlxH#-rzgE}UF=W&Db?WsLW!K! z#rQk%XNe*hvFwBCT&`6@Id7VaL%?+bSW+AsPmhpb)lBGFI9~=*XV-WIdrAh;$n;$jyna3Hf)`8a-!~ssbIkad z#t9uPD-k5tL5YYf!p7g{Pm=nlWcYpyzU@Yj;0^q#QT*FD)g(Z8ZNLE=f5g$ zpz-9MF(0eyY%0(5+5{AYvQH{oYb55$S)A2fSaAF}YeNz7260xgUqvG3sP@D-MR5u3 z@f1P@l470~eEo}I5oo~q68(&Q#Tz)5*=a36cg+;*fKHJQO^|im>u=E6WT6h4p$p1J zS&n8h(Q!g|)tL<^__@8U?B&WtOgU#auVAl&UZuRm6ocsCo&@tFLT#s}N5?St2V>vy zj*9|1t&h$(irIY%Ll*>%+kj1LuVMUYLF?3p-7*GU9&zlYkk4qWHY#k~q{%6vRfZm# zvi)GyMjacLYreGE@$J-qZd2{fDkZP9Zc?Qo^ga#vY*E0UCt$sU?5(Uzc`N#fbF59R z3i?;pBe^L&haYlU+zzW&KFq(PW~w%GUu*fgm0GLV+eKfTJ=V?baYk49+{=u#K`Y9Y zU)e8>5U(tHcgjE>uz159v3x!7!Cpn6YJ>vSK5Afzb;_HD#11#Bs$YD7&Z1Zt4n7 zY*1uxPsM4ak^Sryb!bey2jPzOVu&H$<`^I)S`HE4h=VQ-d_})vr`IPlRByz=tp<(8 zqjq$w({X1f9F2v5e{jAR`%{K&-4SD8NzZ&`iIpAjKmmYfU0{%z$^^i(%FekKlue;` zY`-M9aXbrdW;}a2;Mrbx@h%1`mkzKT!H9_@F?pY)Wu2(|`{`}nG9J72+;{9<#;Ab{ zDpy=EXf%oXfn$e|{6A2i@wn*c^#>>5Yhw?ymN$f!y8?!N!6Ft zvQLRX#PJ#!yXSb|^+1xcr%hn*K+<jHO+d58l{yT=@srVZA zaKz`3HKv*LS4!JWTsCP$+wQ{3=_9;`jWBC5zDf%Gj(- z6|ZZ+NMW{ghey?w`B_w5Q1)do!WbsZS-bE$vx~$QST`yogVL(wt5q9cRZPYK#cR|k zo>ZMB>YMh`ns@>{(+&Bd>aw8oH^&BO?Cn|y38ZB%9@{v%F|VS*7o?wk0E3o=FT^D9 zkr8a|7`A?8#WK-xLj_+;V=_B!*r`3?JYHODYZhjh5EE4>o3}-8&ys@v-P_{i;B9gG zxwi#B?vasE3l{)Yuopf`f5Yj$=}HyKn%V}}r=^Wk5ayK-MyXIXzmz`POf(}MP_5z> zE7CyE9ttxk4;n0soO9(ebGVl0FsFlZi=N`^kvaV>0*|4R)ZDOFJGjIBnZ~1IQ(lqX z3L&c0-Vs_eLE^URe&-(48+3Q~PLk20OT(_dI72!%w{(V>+;_r;4d+f8OOO+tQ=3;a z29gWM2WR~$CR^qR^hyJq%2n%?d#@Zi;sGZfIn;FQAt;mvMz9^-=(5ck+*&>4G;W~E zXx?#NHE7w0Idp_EfgJ7JenJ)%lP%J%G_=SQ1)_?wTTrkfo&W=Oq?28=*$XexQAzMt zRxEWoAGXYcSfrh0iN5a0*Yh7?tt%e>X5kz9A!F*-DKmx+o=##`nx@cS-nfe=m!z&a1Ek+ zHVxw6r2(I-+U(eO&?Wv;kpQkAq0OO4oZH*Y<9NjrgJZvLI654^A9P5Wi)0V9-yKzvojG64MStMTBPg50m`N+5h?n5W(WtBJ9Fy14mtc8VFq{N)Wj>gD zR0xj;c6Lxm-2K>U>>fAwV0V&Y2-e7vw$JpDoWBWrZ#_w|i>i$;n%x1zbo=N8CG3Pe z>i(_azW4i1eah(4q+Z9?IAm?z&u1p24|p#PX`k8wN0+ZuEN`=o(~q3^rAkVTGR4c3 zZ91&!+`Xxr+BQjH#aNJ&={@Nul}A3PfsE|57H{Z|cMf6c%>}!z~i5#&uRdo#A~DwFZ1 z+sJFD$x&mKYoi3`Oy`uF{N^fMgyVK;IYcQC#)KEnOzOcF(Wx%Z)_a2HzSiOR}Iqs`r3s9oSfCBse@G}-xK&C}1Ral6xD|Pt8BRZW9T6(lO<`qB zFk-cMPKe3bygWhwA9#62lX6*eNtE%8Q1{fSmE_);CG2^{>0&ZRRT}9~qU^;z)d-ld zO-AcjRtDk*or*<%*~}kFrJy-dNGKMOP&6SSk;OfL4XXC@_4U({wsfWX{~w8ijVy&$#hVqg9!62{+!jk$zSk=e`vE55Xjr?8fyz8XKmK{vy~r%HdgkswOR7g@;2+((sWXELIN`rSiF3^Z#avZ zR|gryefva1+&=l#soi@Yl`y6M)}+ZF*G(m+$G#>}CkP>yS?o^sGK=MS2o6gc zbj8{y_sy>{VNS)Eij4#>!?WU3^j#WleN=LMc%McfbtlsK_!qG@;LQ{40kx7Jq-Oa+ zC?^x+b6Ho0b5nJ;FdycK1BzvhF^h#QH~gsytE-i-P_0^p^3}+~Oe!T6uUWHrQq7t? zKg3mZk)lx;N|A%~;f~R=4pTV0XTyaz(nVuV#?kWp7N1zzU+bb(0>*-}`#Mxgo(BQT z+Dpj;Q9K@k+Q*O7Z9YWxT0A@V!u~5)_Fq_WP<*W()bdvi9<`%Oy~$UD|M(*uhdvIz zgTumKJP*FVEOj8gP>p##Fk`7-ki}I+&tHbvbeXXa3e8rht0& zQl}qy;qPC%wr<|p87Gk@hDnVtU2^W-^5FT;m;QKopiS4YT|S@ZQG0Ksy5e6b2;~K8 zB>D22^@C7*n~R{BVv@M#lB83!U@n~+`}l#H zn+TdixJo6KUU~V_iZL@Lb?7;J#>}NBPA#1?bAI=B(`IH3>2>V!v7SATK0Vg6`>2uQ zXHQvn_QLvkv*+|5IDgKfm6uK~n=ywBA98Krplctm3>`vF>6uLHxuE6a80^m}BP>iG*6BkciL~r3ji>59n zmtY(w)6cjk=V5B(Z{=c^#U{4!Q2=HcCN_d;afQRj(s|QbzDXRRSs75Ym z`z)|%LFE~8jO}7%!5D?B`=~7us7aRS?wG=aaZP36PIOQkqoQNjyHLWuCr;lwiGKd$ zD}DZX+2o-!CLTU=EM;@~O4$3?Ke1cJoFT)f4Z-71wJ=_-U#my^1-lFPpN!8RXx`!A z_Hz%e<6cAB)UDkzDZbZ|o(EbKo!nu|l^0jKjc(JRQPVDcf9d5LoHwn0lh_1J?7;eM z8SRVDgb3*haza|RN}-OGJ=HixCX%H?jPI&73h8sht*9S!GelY5q*NSKsnVc|_(COi ztRyulTB%ZpN|lNz2N=tyruWiI7?(hpU5RL>9GX;|VJ(#BUBYX;d6vb);KZ|8Rw&(2 zC{`x%JZzW%VUkcnQe@{sJRizAb`NsaIKu^ZXC}5~4RKgHCAQ&F;%5tK8t zl#?Ap;fY?3YP=F0mJn5pL`H;*MB^ofMS4Xk@dFwqoIq^7lb$$we8t-B%UU&S)wxT{ z<}L7sh4kavmGslHrC5v0VeiF1J{`t2@n~G*@L_u3)JeMk2x+u<&7D1ccidUOAhqG- zK?4U(tlw_J2ApT>I{KV$qt7>P!C@OO;TGr5(+#u--Ei>&ZUJL7gX|Wx9D|W)mh7(h z3EgdRs6K!>A4b+fl#f|@Dv_sH@KH=ae%U3~;G>b zsikS9>7hx}OxHN4$cHqzuR(AK?sU<}q4wdNF&2RrpHPfpFGj(o)<>tTW2k_vNvgJX z+Mscpws#s(zWVl^lcy{Rq^t5a3hGv?2{~D*!SJrVhQ^PIkMrmz0%oh5&jyVTLgzi9y6qPIoTt{-+CtJapA6m zJh5`9z$J1h&}^tC6lk_+9`0T*8Y>6ez8@7_lz(4iD9C1noNPy+-VSt^jV5{Y0+TI% zem;IW--u}DLWwc+nuw;^$xqT|CsAY6A{_9`wjt$HMCeM-b(8Nr?gi~5-}xx9JT!&N?hcv80|i+l83 zy1aWr<;vZvRhQ1Jc)WD!;}vvB)r4ZTYIUgwPj7>;kRfJ)_2h}FSeL`B#&v#!-1tS=+tX~xu>>mHQX`Kj z_au5E8<*iceG`i%S2(nJ(yV3O+D*s($Rd5@LWRTuzl`qRy;IY^(8?q-i)@w- z0S6i(hj0#LryqyfuSBp`Vx2qBXuz@l`^w>ZI28+h<=JfM7O$XaMC@VpyGmZ zM3_4+z##CYWA_|kW$Rfyhz-_NC~VklUiUMN*|H)nsM?5aJL&Sj!j2EX#k)2Z_g%=G``x%y_15HE(F`&tkH1{EV?f1+UC=O}Z!1GSWjO z>qlt9qtyz?#4bZJ*I+&w^EJM>B6=;)qlt{yYsvU}ztVrO%deo{Inld!Oh4)|%*`Z~ z@n)d`+}BTbGT)cP?qYoGe$eCQX1zffr0ZN8uEu4aB18FP0GDBTJT#3+m}372tQxNWJrLe;AE!i2=2 zxm^cMiOpXqLYl@hLdYsYq}?q4QO4P`Q*z8Uk%unwPz`$;jL@oC{v$bf5%>0n8z#ri z9SrcpA%#=U)I8HoqWci9? zJ5%b_X^B(n)=3fDt~z~cL$#Hs&#aZ&_3F{KUfW(hJF)DY6p)|4aQQjhnaR)LtZpJ) zZ;p^OPTGoM@Ey|wvKWqOI0!jmHNH>IBDOx~fR?x-@SA$f6DI9o-$j2SC;r=XvJ`%E zR|vHIhPz!Yzv&FW$&wE9`)}gExi6Ffl2PM(D2^<({Klf0#}xrQR-mJV^?Y440=1Pj zO7x;eW5{F1qaMDjcbG!VCf94^JlRukgnvoB@za=jBj2INtn|gJ6m=#kDKRO@o9VX+ zjB?2!l2E;Ki+0VMb;}^1PF;Jsv{fA!@{h8>Mi!*asoSk>x7H~g8tzKJcwqh7lxqDG zu+`K@#Pk(V-;~Esd!fO(#L(p)X?o1}Ld0rdc z72b;zL1Gq1EGx^|O)wL(i!=9RiUJR8#N40Ayf#w0tQK9&6Tvkd=o;fBjCB|&0N2K) z=$ZMrBrY|dp5ZU_Ebf6T;0g=rG5$i2EyU$1D;15pnpR8U(npY!VJIK!Bx~{)u+jy4 zjm|AA%ZkfD4fk+H@Pi?O7oX5LEQSZN)I>Jbqa9axL>|tP6s=W)UUfuC%k`tc;WNbj|Cdh2+N6^v-ERzpTfJm=#G@B4J1JNJ1afR3>}{fQcc` z>`Ib@w+OqiF=yJBhw{!N)_y%1YqAAV#w&5gEWg*A<(&W*#gqQ}8+*}@8J{yUzK)nP zeVAmRzkj@N{u8|o@1khn*r(%pAh;aSP$hx#ZW19NhYPsm~mf-XI2%@Eq=`6>oW5nH;G4GxW&q|+(4Jm zIV>ORI1vWL%Eb|1>nk3+C$xBMaTYyO+{6xTiuY!Rpkwm?T^Ol&Wk5b>0Y{el^a=$lP4EC(`87CP@w%N4L;M;XLapH zhGi?ZRc+b1c?Ive2PaG-)c9`7v=zzW8;X}ZP_n=c(xyuJy5zU1qeA))1FG)~G*wPj z5amGyP)Av*cPHlYF?`DXgmmm~XL8$Y*ik&##GY#X_z=Eq%o z>deAn!|RNkHltVXDUy!v=LK3Igg z z-E%P|t-*#qJVKH!9B6#_I}P_6fmGDlc!$8NWl8DGb)NQi0^-hWKt=KBPw9Ps#q22E6-Bl6#FC+7i?ati{OJ4 zuS7L{>izk1V_Xjxq;2s*dKqt{jl^VH4;zdbMiz-3ZmzN5j#}D-#S?u5Mh4&lKJy9CQi%{h9=BS zFb0s>v2$a|Q+V=hT2pf7RM}ZpaX(Kk`b$pLEqhdpqe&<_==JVMiFEN`8jm$Tjzuvh zB$zYLB^e&CM%1Kk_>MH&jmc$XhZk zrR$uUK=TW?+`VZG+H*>K&dop`4C&K3>p4(AK^;u*)rENFjR-VH#){p9S>26X$d4m2 z*Mt+RG2-DEt&5nkZSab!#rwg;p%fm}MMij%eSdU(3}yvFtMsyKlkC+pyO{pDVQ21zIlHT`cZ# z{Rq8ul5GxyT7u^GS*(jfP<~VtEtLb}iz(UwQ}E%nu)SwDS2ke@sdcOeBsuX=+E^VA zeU1fg5gQxJqMTzLqnsVoJUM{>$`H<%uWc%ap#U?6Sn#sGxwH-XJmzJLJ>-K^arG(B|19Qx&a)bwM)!9=O;7K<{qSh$ z!Q%*GS9h*qqpZ|LH22X*<)W=N*{9Qf~$S^Shk{Py1_SFIfDob zo8WxHA>>@`8&Aex+`Fz?qNlo&*O2w=Pwgt*G9bF-a(q#kn3Z5Sp*=3R><}*PX$M1c z#ASPD7?EZ$B3o32kw1!t5fORpoV^z3;N7)~2TylPo~55{3B=vrh%<J@p$=&2WZtS`n5gVU*u>{h0jm!z8 z=7`n9;wGd6Dcn-_iHPK?jxFoQK}FyTXj~Bx`AV58R(7}b%*TEV45DLNtXVa+cF0$W zXw}+Bw2pW^|HagVxQ)#^mnFl0Tkwj$|7?wFU2UAQz`I+&iMyjltjNP+TMJ{%gIhNq zJ&Ke(NmXeTh7oEcyO|?(tRluTG7jmyw$Noaf3p+7$<`USY{JLa-13}xls#MTJ$%+7 znewsA*wwG^IvdyLl2bVtC@HTv53HBAvYJ~jxx~*{R8Pl%GQI)c@UX{!@$Xb>A^?_+6A8AqKJ8mRWactL1BI>bxdNSw}t7U z*Vt$H!-;o3ku9#X1~-{jr*4&-bD9kCrZxMDb?NP|p-VDnV2nRZp1e9HVMUpWS*bGz znB~HJ@wreDXwV5&W^1jorwH<{9((BnFXqC)I6Z(Z_ZUQTpvWFibto%JAgGlZbIgbc z0Pg3{i<`x$BNA}DQ1SG_1t+oREb*P|vSsd=Z7qcQ!PAQIr$t$xrY!I7@x-C5>H!kj z0+F=>aZDFr5~(e@|7Yili6>`=vC4%3NO95-bqUXEw<+(1(V7HOJSGejT}N*~kjjt5@JP z@5E<#l5__-qdc-;uASfn4{>q`s<17Hgh!95G_n%>mzpP3t(s7*N)<*oL&O;*UX>s2 z;)C)dz?$qS;S?oMM@BC8Qp4TFc2k>$ueN9o;VRrDW%P*Dwj)MqD-@0`U$$LYRsP{y zh78#X}1`XJsj_ay-3hjj9C; z`&Mt&X29RYTNkOMn^~||%e_6|zQe>vLR0Ar@?{lagji+B_IWymI>kB(Ddwm?S6)!c z)A|Iywr)G~WXUfMVSe0MrFdeRj!KOw(X~Kebi#sBZAz>z7M&=)?KM|h%B@6Ur(O$N zl;9bl)x{e^6UoHmipu@x${rKGQaV#Ph(@6c)=o8isOH4WLUiMW2-4*v{d#ux+ouO5 z6TOKG)0^CL&<(#g9Ru3Zq0$JLw34b?&Jzh5Axwx9$_e#^R6(7>WIM=DXJ-eiz}bdm zot=v&$xaO%+qF*hZr!Ta>DnK=c!PGb ztYliUW-Ucxu|}D)=D->yX_j`fCCy@EYw?CDG5boW{T$4(5=!;fl~9u@tH1cjR1d~o zjn-wdeO0lsjQA`4MKua}@Ver$3Swof1RSev9N!(At+yCfFf$@aDU|7Jtgo(KexZ8v z);iV1U*}4}5!HrwX;!L^OJx|}EI0ABshISUk8cuE%vNhxm7(O1+sEd2tV%E^5VL_6 z;ftarahMG(Rj1QCSVh85fB7N4#x9^xxUlvI)A=;kG>ykeF^s6}=CWjog)#;!D?)$4 zRPM%RGDhdbxA>*1JhV;6erJx&cfcMH6BeFLpRFoSH^KKhi_e5Zs-5u84dzWrWblbq z#_MMTVDPaNK({pt=u5e?lp|mZe|$4`F5OgVP{oRaDv>5i_?BuXy&LNgxn(k0R&|LA z4dI-V?I@VUE8-NeQ=)RzfeRp#pavAMVcEO)bC z{8kY&ZNy`Jlpd4b8KlgQp|~-5P8YM1XqSY;iuEUXgOwow?+izSWG6-UbJ8eTo7SjK z2WNv-_7W!zk6a+J{(DkMADAC|;z&6be})L|Yv&VUelmXt*&OQ7=>)y>@3m)ywX_^Q zf%~uuGzR+d7hxgxQ7X`6?cdBR&}`mIhMtyx~= zge&qdMQ3c*2M+}mu(fgmppz`7i|AjNe!(XCr&uZT2*W3v|DeW*h0QUUuBc`%;R3lu z)Jr@WkjX8T1B&dkJd(^Skpe&u;Z#daB zx+!y+lhwY5^Y^vmKCu^)3O-LV%S7B~u7iU3Z40~Uhm zKyoDW2fj#?gqOzdcrr;h{Z!_57|}m)VOkYxU0=Z zvBdS+L@{fQw-0yDc{5%jJG*d$#W|KmPCIL4y{&0*FK-9SC5*MzPvi_$2?vji)+9zI zf#&4nrvr^vDi$51O-vNhR%2o2BVVZes@b2f`6VHRDn zskQcr9@xwSu1NP%9bP#Wpz@EDo{C z4lKp$p!Ie2Q;Y+~KYbla=sB}qB_=XMK!upoEE>hYdq3z=yijZ0Y@qgy%=bn`;27<9+qy z*?{4A`RtiXM-8Ux``w4k#L~L;ST%ca_uEu+Jq&Ap>v`$ngR33h(RU%&FL%bFE86YD zc~-8VFZXs_L?3s)%=DiorgtLClJ!G+G*k{%s?vrst1FjWGCrmLy-I;yMPL_i?sN6^ zwiGO|qc`ttEK%!cRvLN1f&^aIT$hAx`G$f~sG@c8kFT{Rq0`CJuU?pZ;LZRyN?xy{nJf=9<*eczB4mp1o5 z*@yOQF=%9$tTzp&^y)bWA7peHM%xHqz*==;d2Y@wx#ywrwa^@1@+$f*P6Li^Wx8pcEHC?PNb?<<-yT5wdQsV4b<SS5UT{M`WFI6xRxLpcRzU)zg7i zkgj_U2if128zuO2M{l;2QXSJL{b zH^LgA#8V1VyS8iE_S?)IGFoneY4dF^~F3; zK&RvLK^>ErkQfuga%43)NuMBGqNz=)l&<-tZQWrFMx>BlUCz`ffukN9&q#(j)TQU4 z?u}abR|suazv`hf9XnSktq&^Nwca!whU**I=Co)eZOd0=w5Xx%=H>lAtjO@Gpv}Gl zjRhsaOygLk(jkLiS$c6Bd~)A*A)|Gdg;g@d(-4Bdyz z<3ew70dAt|V;Jio_icK*IZNCoNo7yOoGZ%WvjJuE zYQk7zphU$*5yLWAff6HtCb3tKA)$C{WRWnfn7>%hfdwvorT^eDEyJsa2MHym%*ORH zk2g_ce8Qz!Z{lN25x~iTPPzr(G7iQz0&Z zoa_Uy33{Y6_!*)tEiFm7toVUuz2 zl<9QE7#z?$qCOd3Z(Ks*veZ~>)S$Jqd!=FW>X#AX!^kEz51gZ~+D)zyOXdt85(X>QR%9hD%E^vJgS<>F9n z4DlEN(1o<=N|=B{!nqPHpcgl5v&IW)#}GlIX{uO+ zS4ap%O=YbTm!VZ8{J$^AT0?}K5ep2m*V0h7l8{AtAdp#{Bf;i*@g+^3XFfl71AJPwe)Ll+QXpVc5Vi;|30zBn+CHIrIHETo4OxA8`aR-rs!q$kAoHdA-`QruV{o zUX7r-jJ005=bT$9*VCbmxf3h*TKJgt)i8l)5xu923&h7HMc3;=-%E6duw58xG?Xmq zx2qs7K^mQ8vE`s=JMsAc;mWR0!f!f$bO*1(Z5Suf# z*r9}ob-~r$p;i7Y-GxPVY3)tRxFS*{Vu{2$U{B0+E0VMk-av(H^}&~Pq*?UU z$o`9~)gnvguSlEseiD63zhq=ASWjjQNb(5ANv3sJYB;ybkuIyRhLF*N=g!ESn?dgd z(jsJjz{y36jKr7vhk1~mN(&cJyv_Y3gtO~69;un%xMf6lv1hT0q^XbVz=uXG-NtzceL7;+#BpiS*!x7#<}2xk z=`}Z39MNM<7_Pj8RaG&)02_Y=*!Y2{f{g6qdmOwEmV6u;i98d@A>e^&9iq7afp?;H z4W64<>`e?;C`s9y1%{~8!> zG-Od_>10p`zHS%~^wfxRl4#UNc2d^moou@~8$jP zi@h2thibT2DUwTQKVK_lX^SO+e8$l+dX++fO7#GEqiQrd>C%ypty+CNdLgm5N>9&< zrL)eJ5*yZR)d~L~?Ne$t6vnOC2|Vid%a^z?4&JqFzcFjo_Fc=4U0Sr@_m8s{U1BkE zrq2@F9n>H7lC|d9ZH>SQ&8BAB^bvNVbLgR{0DC}$zhO75&Kj{~`ot_cRcs40YH85>H#7-fnl>!hSes2Ko=3S@a_9A_t62lC z9UK!5Y&uu=Clkm0D!q9)va${^*GR?~X-y+dk_?%F;;%pI(Z!g>r_BbbaFWOC`k|Jx zMyb=NVe4$U%xEj4b#uTCapQcH#M)VSj`5!yLFO@KRBaj07_p$SEzZB{V;X(;$#_dx z250$3&zhbFSX$ZZ(u6DD2p>nUY5jY#n)3uj(k0SkUM1fLb(Fo7+#oMo{ZMX3JK#*0 zbFGf)NW>w>nQOpiQQ=TaR7t4UMhNkVUTg-&^9`lKu6rrjNSF<~hS!7u z!gVY~FFR?Fc`#kmWpAXhMRP|evE1?2ux`<`HfsxAO3&guv<5DUTP@F8h@0agv<|*O z&yfMf=?nxl*=$@zQaLow`iJ$ay6J;B3bcxRXrdg&b*Nm%!5UiX>aew5URNEL1bJiq zWldh3vL`NYxx7pq??`xNXqe7Jq+839$+o>r$ zI@*5A$%ObYp~w7DJ?CbP|6|4v>^r2#urc)Zk0swnWGx#qaqXiqCb`wemVw~jjVTd!loTaOvpad__w$h>QaJFl)@IhXa^TuZHID-XoWaDf(V-Uf?R zBxHrFw4%mnG>+jrrPmYPGc#b?en!k=VSb_()s{s&pP<8o9hN_BiiAD#4bIsrWNITE zg^lE%k*A`RY0T9tRQBRgc2{{?S7_C$2p(+4 z>Y$NTI1&d?sc?tqU5J0_9tDe059~wslkb_;TFR;mVyod|B+t}2qw<&D^L@ecqQ7zumC+@Z1>E`ga-QYGR}@`cSa3cM%1O6hP7GnDlzpitzMROGs@O8OZ$v^w zbR^+=NJ2d3ZfhN%Qwog*5~W{4yG&8VYPIWONWyGgLKGEAgF8t zAzrWu1cT4-nKu-HkQr>egWFg#OFnW6E1L^xacau3w~Ghnil|4dEM=o9RYX{1jM;!o z(uyCm));6e{TpZDk&AY$~T`R3BJ)U9L!t8CcwF{%} zV0-<=ZLd)dwwHr?ZgsUddk1qF>&(_%oclO4Gt2ooJH$DcV-=;4Gwy4z2?aaueyifk zn%?$QBzro$DO_4Hxb&9L+lWNOH%Q{#F&xFF2yjxXS!mNn`fY{B zzO1a>swLQSyPVq&TZ?h1-r~X37d;4+S#J4;)x!lZnU;oWD;;DwgRhV@d@qduk<(i7p_dP_gDPM zC{CUF?%njsB+U4nbRUAXH{OyT^@O*>rxG-g?YRotKq-|s3PjPUk?f&(aXb`{tW~+q zk;RO(YV)iKP!=of#zF1qhQ%yx$g)4QSCSISuTry}qjlD7z}DGdBftBL38E}nmB&g&z(M9jkbpZ=cGvRm4-8}u7?Ied(Mzi|D` zEirlNoSK8f{3f|lPleLa-~{hw!%b5&JF|3%`YX})|**jYBHu{ zWwi(SwD7aB##f97;g$50+T&E;%Pa7TtjWeKT!9`VBH4JI-i2O=fLv+?E%ilXa|wHJ z$k}jkHU2LanAT!}&C=kM|J@AZRffH}%E-$OiwR>gMt`Swac8;>=ljwxqyJZ&k8a0Z z=}o+w)@DHBiJCUWn;96hjC{Siw&}fahR1cxkVEX^I(R5Yj!cVyC?`&n0gNUC>IE>G z40sL)+0QPn!!N*+grd$~DqL{)b|*?uhwU?cKnULt$WOr6~V6T&`!rp-Qo7Lzm2k(1QRiaPe;)wgI@FT-fF0c zi`J{|;=?c{45E|hpC2wsuG`<>Yi4{&y*a*`=fW!gyKcB`uI4Nv?qn$<&Y2VDn{Dce z375lh8T9UYdM5)H#RUXU7{M#XVkF%dr)1AFs?qWq;vTN}=rBn&;tY=A~IRbo4vuR!AS7ze^tiRxeHp#@A@!FnXCj&!E4C&?b08 zAQoPg+IQaFnCyaUuG#EDF1oOl@`?1gxSrEoNtPa!b4EJwk^jYppO}F+WX$ti%(otyG$AQ1f>BAoObW6|bpNtS&m zJkMy|<>?<8U3;|akb%4U-8qkI(LICO>4=+oj;RFR-)gzApP%nm^S@g0Lve!)-0<^{ zahA>tL-_UuEN|M>8qSn^Q&3NjVJzrKL5md}l0*O?u{_`GP=n{HRAl-LB-BNF<9$usiC?j9Y4n;We+Q*%IqcE z__#Tw1dEOpH*kDnq}?t{inWeyiRpO!6|k!=TXtKzNi%#efy_NP_3PvrLk3SLldgZW z?6@S}rlnv&?^`p|!P-Gcc*bY6A8IT6DBd_9#o9sts$p66O)ta~dA(xo-7IQ>SN=yi zcf*blBD|F-NWp57Kl}XZw=7eK?r+Z>=~(yE^XA>ybigxcf4n#UvW|;R61u8VV_dui zi~4v(Yx2G4^k|yw%d;R5&{WRB$+ectzLg<6Lym_CDROKGhB06-dVg*J>tpT0A7$dt z6P{hNukt!nO)&(f8}u6U0=F;UkSmw^FRZ=;O9B~8zwmwS4sNKD>={#XIN#oG#fl8< zDsF!}l@83J@)_-M_v7RP-|0@=zID?km~)L_&VA>*qYX3f>u9$ck#qjrh9JPxW)_78 z#0G%U7G!4+@p5&0M8QWODULg9%H9FICULMgo0stNFI#Quef3_X4BL7_7;B)_YHDd0UL6bnvv{z>40Fm>xJw&v;fKr^P@9bbY+m+=5q^9-{pRgy8bE*b z_1?6z4k_B8s*4ZF_|U9NhbExaP7;o+Ty>IgL*esB43@&qSNNLoEIrw*cD4GL?N0*z z+{Gh-g3wqQD{+{Zg@@%*Aj`p4=hj5dPHSD2PRpY5PKwc{Wa!*1>bC2;#nr%H2T7B zL&<5=GH|H4_b>ZhCB?m4RA&JmVtO4Uj4HX4e zaohAx`XDCf-ufW>)(6?QKIq?D@0)w;Rk^g@`bPSIA09oQ+UfFvI~k3tH0< z0;$$H`FQ5cC#T6yWBqf{%ZZGo+k^NM3&N&q=6VY67&&qemTKe>#GjHCUpk6z6WZ-c6^h3*z?VAF} zxhP!QvHg}PCU3>@^s2EX9ow;aZ)`WMWLCphh5$y&u$F0C*14{EBquJ zPQtky36C`Ek)a6pm7OAaP^*-E`gyV_SNjEKuXIDOy_A&w`7gN|lY4YqygB+!(QD@K zbzO*^xBi8r{j#zc=Cy+_tGJdn-OTP?9St;bJ5@;;3Oi~jYN4ZYreuF23c2F z%6ZiDASp^YPrG0P*~x=*VGoV$=}@rME=bVN+pf^>Yn&jU62 zmz?i^3BYn!Qo!A_N8)%m5l62t^W^CTVcf_U{b$i1MD>Lr`os7fH{67`&?XG{%6J$2 zjkU}L=3HgYXEhEj3;KU(8F4bV3_G;U)3IgBPWJIajGDYoIo-0$KX~(RcObmPFpjs< z#*!iH0RGN!z8rKAf55pnNa<0zs2#jtLI1~oA&sK$v+@@9cD*ZK2;uRU2H$j9=Vk6% zJl`YHJVf3Ky|Y2Wv*|ZBKHd0O^*of3fj{t(Izt9!p0kXXGG@l9<`EkWJp&nq0=bSH zr0jhj#CWe=o#9+Z%%L-ukYpJJh)QSdBgK_qI-X4-2Pt0&$QH)y$8!&1Mn`b%gB3%J z&?Y9bMM!VGIE?-!WsyO%x~Q^7&Kf9W2|utWoglt8&U{N_g}mZ}`*a5GF{ZbxaVKfj zYb2eGd%So=CPObbvzjz8mph2bIr?bvWN?)x9%5JXXY{!iA*bCiiebR97sWAqr4)dI8T!2FQ)%6D8Hm(2CrVo7H2HrD4h-hc#hwj^B% z@+po^65r7AmQk0oM$PFj5U01aFiu_F(YQo17>APy#v#^$cQ$S(t@@_XIYJ4%#q0r6 z4-%8j7|EkxBu_SsI2Z~+|5uE-S}~&jDMnm##YjS;BSvx|3$g$w(ET8**3)qrv(p2QPb4qx(dY6g%I$>=wcI>(bi$W@OKTIK@yr?-+0 zc}X01QA{(6suu;FkF+VnZVJ76*<&mxvho#FkY&S^pRZ++)d5pQ&6p}`!_7^)u=Yj;ye4;ZCt#_wsY% z_VpPt3D+w-f3x7V)Rq2$buP?r+{W}CG^R74mFU2l=_HHXno(-EvsZt6S9cDH;%4u1 zkbOiqjvXIfPR~C5!v}b(ea*k@6^3|~{^)3dIWztIBwfzhLdJEg_BoLwPJ33Z-0fnl zISLHnPk%mm^fB|&o2L){KuECL{oM~_NN4j-`^qNLN)l8q`mseo+809zGIuP9 z4SP_%AhyhF;~Jv9rzOW8@mj2O%3J9oE2{Yrd%I$#peFvO`vi^Aq#576+XM|knhCtJ zCjIS?66Ttkbl%)4ljo5q3&xIJz;t{K=#d%HDYo;MOzhT$9m)%F11^`knp_`OWvhRn zOJaFoI(39f&5DVUwn0I!6P67tMEo1Y(8YgK5A2So_3KUk*|rGZBWaoQd6XrKYx3uH z4WJ!%t5XhBigTbG38Yx!6*VM#=ate9FLOE?Z%I6U<>ND~#r29YI=8U!lJ4~DEjl+7 z_iEb~AH(5(Csc{~vtIHwnl`3El1^0^^t>3{_4^-E_M5MNj_;S70d1F*+ zn~1O1c_rA%K)rjQS5c^$EGThvf=&P79m%l*A@JINN`ZUFwNxM8G5d{U*ixi{XXV`B7<91s#&(s#fD{kOvIGYh`=? zXRd|^m;E^cF_gr3gI9LvpKV0t5Ld3LN3gn5hWy+|k(h2sjAgqP7L1h(IN9^+qUmgt z!x9eHDx@1K#2Tuk8>+-AH5zOVr5Kh&?91xrWJ_~pE;(;srShXMpt2a-;2HBQL?#yh zzV;damHw(^3>C~xB*M47c-!AN3H+{pY$K!muOnetrm3sI#CT=qXyb>`Gsg_ZW9iWTqi2pL-lJ#YR}&*@x^&TmKlZE}NGCNY z)unThA#AgCG{E#ux*@$Xl3wnoaD9_=F_0pIN0J^e@lCrax>;D<) z$}XvPNH3HN(i1g?^67^14oLUSiF9Ab%+7>_e@A-qp~v|4-m`7npOSBhj}KRG*|1{0 z*7!YcUB5!3mer3&Hk^90pl_E+fc3L|XdK77SoO`7Z&!YsGw1nPEL{EV^uV+)X#@Lo zyL72rAO05qHZh`>Ge>xxAUeTvh) z#;APLnGLPwD=@x17a}BX*W)Pr9_Q)~4S|!8|L~1E`R4GA+IkP8at{XOTZ@DC^AY0lCNb=E!Ap z;YHJ3970D)w(1_NJX`|bfglX|Mria3$I-%VuVAp=#%N2H&0zjr{hjx zxaxPT-HH8|(tqCK=x0ahhkei3KBukd6d{A}5z$Z%u*)HLSY7{VOFh#aV~$x%1G2T0 zm4i!UL4o$gK6LTqPR8zALm$meJJJoig z9Y-A8_8LdkqR;WkZKJo)lX&LV(OYqstz)<1Dzy97QCkqs>Lji)m5_``%_^j_irOl> z-uT8O>0@-hM%^w(%uwvF@_ihx=`t8k#DiJ=*5Q&L?Wamb5_01e zVtH9uxJN>~TBkM+KZ;8>kRFd;*ryVFcRhS}ndQ4etiim$KaNR?iT5@B)1V|iD*09F zvv53e`VmRb;N#LxzUN~MNV>R9Pd} zvR%`q8ya%P)KDY0uw8~JnyN7rV6Sp#+hySS#WiwSyVAj!ReH5h40fm`=50O8@lp0) z<#r2)JFt(8+WyA|^ofrv9FLz4NNF>$Z$jaM@zn;Vv>DJRp;bJ+Jb=F|TqxdH*YZVU z?E&U@^r_{G2?Lei7K#@$8g=Q?sBlt39DUcQOXtQ#iorYQ#+|z~DpD+|u+Kr78&%htb&tQEF-(1SVMH| zPf``NY_3Q;m?=UGOcI9oQkmY#dPV5rs<;5Mu0XZpD^LS+S%La_F0C~aQmb)T zhjMpZhjROWTZCeZrvJ4FB}qoAEJ8`rR$0!PZCQdc?{@frXEX<~cwMDGb{1x?g>7X& zUdz_tmu-VI$AyE2yfm(mgJQblZ59ONuj@S=)hq;ClB57J$Uv=dJ)If zP43@|O%>xn0(b*G^^$c;Z3LZdzgLH# zLOvA#QJhM{^F2KHf$zg*>yA2`$JpEtW!ErWwq3)ZPr5`gu2;9-U7GiiyJtLi>3-nc zi_c?*uL$&4@+eA!1yhG<^=Gg9HYB1PP zQ5icq=UyY_-xDOX@nSJ!Gb52Rl$yIZl|>|i8r@RrkJSH%j0+^sf->xE+SxmuWLTyjC1fD&Vo{RcL|g7~`bxdTK_V9W`!`S){D?VV2z|C35_={jcBw>+m?NsCl~Z3aXy5@=8x^pGF3R!+j-^ zb(c72qQ^X2n0tO1!-&U{J59se=}CI4{MzP5WAn91I7l)WTV{PBJ>R}H&V%<$C?%aN z8M!-@Ds{Q2!wyKaG%s7>MHlxR8=}hC*~8pS4{I}pY|Zo**(SA3=;iydOPhZF+;nNo zbx>%j@dDl^%Szh8`SX~KaxsKdYd9Bcn~PJ4H!D|sS_5vKRDA8!$zg@kVIw%%4LjKu zE6v-@W2_hUZO@`HTb+1Lwzu=n%Y#o@Ln^!k{xeedD|F zs!~%xJ&tGmPReCHHP`L*94QkM^WJ*$N(_zcjiI^E*o!B|{n)j>a#_r>6>wQh`pIc* zp9JEt;~viD=2LbpGp8!xIb@p9*|;FfIM8Sm8j#kfGrifihDsa(a5||IkC5z?%c`kE zSj$gZ@20YbfGV+{|4)tUi`SESbS=-MAcOJgGg(uWYzodZ&!|5^GyPB(bEOjmf+%Nz zkhR(pvR|~tzG?-nOfEU8EiK3vN#>h9yg3K^RLZiCaA2Twlq&5)`D`3?inVV0NcyYl z5U&W=RQ594h)%INH{-R{ueD>TGS->H{_Nv3b=jg#Z4A}MQ8~YN8G+TfU<&ZmfnC=x z8KvZqkoh$8Y1`v7^K8#MtMk}JG|`+?!gsQLC*9*wHAT?`*-zPt&d;`6wS$JnHww$K zIG}7LOhm2>5$3FrJ$@cpYF8YDtEhWJKx!{b?0ipPFvGE@glE} zSr|>1#n?Elag_Kf zuIc!s=mc|NI$s}-AzfmE8A0O3L-U5senW3R+ET9Ok`Ym}_RU{-bWH7L)MH5d(nX4v z^hzv&D`2t0b?kOYoIkw!hAU*j%VCHAFkKydYrYoG+R~%_=HcBZ4e7?Jn$Xp%{k-l% zU2CDkoWVDt+4sUE_L_ns$sA)uluapo^|rJPJcF(hj?tB5OqRjtx6B(LCC+3%wXc5> zO^-{-mh2Jt*qr`yYYAAvfiEE@@9iJ2>|3hRDD8-Vc0|~?9{B(Xi8!CyX(<<8{u%eqI zNZo{9YkPDs8dLkM{rUq-23l}&i5LkNppRVw$i^S_NGX4pcW+dGJi|;<4M0fvB9;Vx zT3=R~`6;sSpj=tL)qL^9%Bq-WtiSzM0isoB(%UsGUTbZy@Fk;ik+u7d;m>&N+L9$R za90m$>NM~4UAP`KYzxJ%^pna%$v>I^7<|L)m{gG^yHzIMhFpUotl^3hHe*osaLB=q z=S9BEVGLk)OvqX#V+p%itC<*2=lk_7jmPQJ2IV(4XS~qQ^j10|ok77U5_ORMqN25q zwdEZOUs&gKh_df!NUXiLOymh|E-b9Z-b(Ut3^CvvLGt_#T`{jn9oq*|&wbsjaw#@f z$`&5en{><4jeBRz$4)D-6AsT>eEI0EZAB{HrxNM0Wd2Np4mZLDO8MX3vM>J*9J~tC zW%S_qgiH6ToXuNU=n;D0#1pW^FPq+r)3`rS54cda|GM08-K6q2-@#P=Vp7^>`ze~e>GH(>k zb8_B-xU(7bS4!JWTsCP$+wNqc*RT=OxeY;&iyyc?(Mk3-)4#^f-RR(=&#wK-YLW0M zpaw+;sWobnqHHg1@2FPWCmJ~90sA3erdEV$Nt7Nha55VEVi^~u;cqdbfBucJGod@^ zH`3QQ3#f7(X=R)mO7DHA8T8gE+#3&5al3;4Ay(x11gvJigFfW2`sy&Bt#Rl+zMhs9 z`#t4+>iLiq`vTv{$HP)1#H>`XHBW2%$<>`lT5sv!_&J#|Z3o*?x;!pK+U9$;J@wG! z;O$i}4VvI=$!b=t-I|g&x7G&8E@o@@-)r+&R3F;_Xn9>6uiSS!a!mSSg2lnwBWaORAxCfX`m!4X~vlocAsQBIO5;9s?7JTeP`Xb_NTizW?zGn z-H|!W^j~*zbkDZIt7WfR$1QBJWf#Z3xE$`eioV+Hu!U{V2AogXyH+|wr_+7iPtsGn zux%S#_ZmO4ltrKe`+rlR9B^*M;M@noOt|kkb^vdo(gM zKqwkNU6&83@lKq8*e;cYXmw!?^e7s=Ym86~erj578pc0&HBnZN9VGZTa|Nb)vZ&M+ z5!s4YE|T2p>_C{8EJCr48(tVtwzN(bgcr`Y7D$4rqEv4aCK`(N0k#DWs zH`OSWKi>ssoE)I+f)k+R>LZJ}uD8ebe-!x^cy^?}L+HPTUz7ut&jfqbg=IqIwVv5! z?W_EFmt*2}ergXAA@Ul{G3K2kxaYU^>(gsHW{^4+2aFZPa_@Dq0vYjgIyE)!e)-^Y zSF)q(xc;Mt4VqC|MLgIZN<&D6%(`{ElKq>H-D$pm+@|jn#QnRm^c2_ca`NhmE&VFN zY%68@O?m~Rn-8^@Bkby0I@G_j=6~S)+?|RYyz$Q2_U_;g`)~*4B`{p^6L}{nv5heI z{FuMq&)e79Yd_v=72Dw;I^x%j^TvY^UynQdz$(*M373lR*bn;rC9nV?!yZoEC_ANf zChe}`o&#@O#ka2f+Mz6^wM$ed`_>-2)9zB|&EF=78@H6{HIi|ZSkp_9!u*Rwsj_EO zw6%{8dv{yS3cGzi)E-%WvPp$~F26P$RK06PW{q07dE)32S3V1U z$5k73R2;YPG}%Be)ri}MFseom@!cB3Q5)ISy!V7IHs`=ux3|a6LI2~x1vysB@{Tc& zSd4YVc%VoObTdL3t3~+QoH6tr{X@WoKVjkZE8%K~7ULp|JFP7xj2u8(oyPrpzdJ2F zzWA(DRr+<}w)XdH)-Ex)dXZh@`%Yli72PZbipjh$Dsx}_?fMdweZpbqU`t=rKk17` z=}WM^0N{No${GxPDXQ~hozZ3MOvG;d;%4{u^o5ASUJdECeHS_0rSZ7v;;Ib=@M*ks z_skj%Pj+ZNcSYS&rz5v@d|0)1>5+9q#x>f&sH}qNoq7}>lXfyP_alcFC=^aYJ+nIo z-8I=L#yYs*XrVN=)?jHV3NMW>I)_f~cl#{XN`epBh zdb`q={+f2|AoDz%ep63`k;;QQ%04{aH5XmaAw9%ehy~d#HQ77Doso{`M)L!Zs$->Z zt&byXXKcYz4o7mSU8c`SHZY8xr@fqc__VWeY*rQ-DH$@4G)X19Hypmtxc5Jk#1p4Y z#zl($jrhLouXv>|R4Y3gV;2bxzXB<2<6!9nKmS>J4f zLJn`E@0OA!ShxMzwqOuN%pqOcy%ZUVbQ)Fwp4ZH<>b8`6VRieb;SUk zY91qPju$dFp4kg6>Q^S-@A44w=HB1v%e0qs52qGxKegYq`8!F)s)IXEZ?MXMi+l@N z^kZ6uqsd3tg)KSGYG#4FZ^3K+*OsNgpxiA4>)wAPXF()`U$*@KErh`Rk3Ko1IetaU zh@)v4GnIb{D!`Q%pmOom)vH;P8l{qbYY*QCna%W*6RZ+cCDSYMGSIb-wUO6o$z_R! z8|y!7qpxEdeSg|UK&>d?DfF-~jc#vHxpjL+rUe7A_}3{q#hbe;|7_HOj2|#>McT-u zE1wy8vYp_8K21QMc~O5kn%7=NHpFGOv+NT~BK=(XREv!Dm-|QJ6gic>*wy@22`oQC z)>Nxfo zG#1BVXP^k<+O*kQaQwdG%h%$?9Y>C7J@#1Fw`Yt^i)?6j_EFbEgPRZR-~PdcK75r! z>`m@U_mG6#QIIW)%Usvm62Qebp!8*lmA-yJqX~FkpIg7C(A&F&TJ;R#VqDgjp2UsX z46jnH#W7|RRVB`(5xI&~NQ-hiUru_8zX(N86};#_DRQ`vx$i~Fs-F<2X|Hl{{Oi9^Y|!=<_{e2o|)ZELhd^R2qBPgX@Eci zh#YdsEg+yAa)Tf@aw)fhid+H;9$bQooMA;&REQ96fe3OMxk(U060(2-$;|KFHM6t3 zN$~SL&-eTN=ePT+onw1?s;jE2tBQPIWVLVj92vf5e4y zt|aqpmzdjJmivT>zlVY6O<_QTXa>dDWh2&!tbwqY*ijk?q!;pW0)V*sE}$P@vsc=Y zF0fB8YELmEB&*ay{zF9WvCIAeBu{eUb|1X%Ty&DT9Vio-}me6iJr* zPMI>G$}5w`_Yo2>PrEOVMoo%m!7?O(1@mLfxNoUy-cQi)i~r@hw2wUMu^9DaGUS;l z7UTV%%YEYNCGpq`7bNd=hWg%C%dz#fq_Z#)(K2)f~0}=mac!I0`2W3x3UT9Mz|=fFRJG5G_S`Kc!V74T#PTK zVBIgc`-Pmi`Q48?cKmSewy)af0E>urnYoCN42fhE3sm47w$beC;DV&51a}oQRDGwZ+3O9 zX-!Z!xuR)KL_h;Y#L9Kl45_K~J%60tC837&#Tw+T8#pBgvEs=h0#tkMra`l*CN&va-3U0OI|OI zCnZ=Wox`UHGO?xb6h4KZRFB8%*kulNXl~y{()`4tbv0_p``0XAqXzR_0XXHi)i8d$ z@Z$32%T?6qvn|jDuh4R=4Jj&6752G3R`+>}b*)VGSmHx!(b-CQjCVN~B6+R^D*qpB zplPodLZO%{Cc01Il_!tza*4wBu58{ez9(#)75#f!u4`-|!jtL*)lG=AChe)yBtEfg z2leLUa`%p`dc^1dUKBZ@V9(>eOYUW@k>?hzf4089W$fTBKgvZnEUEjx;WqW5x`ng9 ztwJj-({j8T(HML(wMadbadfPQpRTwcL+wiq_B5-FR_3<7PQ7GNiaNySI^+z4-vs)t zPQOpnZ!Py|Tpr^%9;0mkzG0Ymps}h>cTTVeSa=^Ho1TK`?XF=`pCXy8MH1*u3t6g> zaE4K^%J>X{WhL6~kCWU+kxye{hVa>oA%`*CuS>R1NRkXGwIzkc%5gG*Ud!dA5d6oJ zQXr`*y0qeu631;xu-R+(cs$^fJyou&e@}NTRtuIC%utIiR{3GsfX6TKx+8usI=;I4 zE!lr{>|g4ayQ&Z7sqx*5>LhmKUwH*8HW9gd&F5>1{*bB&z^M_-JM44uQQ7Vvevr8E z0-Fk*5J)TO#H^K^`{JD_>#S*Z`2c$Dacly67 zZ7u5Y(`m-pE7~2UmSrF0Y@R)=a+T71g{F>*3#YO4I2cEgy96j6HO`lGw?F;TwxK%% zLSjM^L!jXUU5|x(?C20eA{`j0Z{y=!5D-_9$%cYTW~LJ{G&_W1xcZrO-HK6t%T1oC zG4+Di=FOY8`0<)W!{?M6GI;st-h80?86PACY~39DYk6LgOABT$(0Fvru}YiQFAz(3 zSgf&sOIg&j%FyfA?7q5Q_a(jHOYM`dOQU-%=`kZnmT}h|x?R>ZgjEczSg~TQicKrN zP_bXdF%@T4^zNhk_U%lqkX9k1g50NR8CD^%Ld6QTDm1NN>0^&~RU*{qgv6!+wGx^p zypYf@VNAlzgvALqkCCl-;Zq@&oLGf%ml}{^4|Y8d+{;t6nu@e0qXM;~@y6z$ZYn>v zjuL??7GV?n`CH?70?1k=Ha;Pi>kFoe77gFqSm6){m2DFWoQK8o1PZE} z5{ufC5-Xp-kQ8vF&hqfg!~CRrMU{Ecn76`F5?sZWoCJ>Khas0V-MY|leI-|Knk<)X(@;XfTj znLDAT1kmVKZ##1v-SSx8>d}gL=sA-bVPzsbf=0RT!y|+%DLmpmDU83gf`F?+1^`ha@ht(Yix9{Sid`yksM0^$Cn?$RB zV%TJRq#lhk(iKOkR38GnRU)?mtNTt_y8SAc;)52@hxc)hq!dd3g^}48AykFieq^<3 zR}l`VZgq`z6@nNVn+nCsN$T#xWB5o<-9^tL_nw+AcE#XNy}Nk9R5d+2JNxKsN2NoL zGk(7-zs8fNPaCsPW(pgl}OFd9yURJw#;6(K|_IeS#stsOZEVMQ&84=iK!{2 zOtDc2J$)3~=x+LXQ^yjjJkX;*8E#(Lqh!+km8sn>pNJECb@N|ggw=NMQ-)eAn#)sN z&Z2da-TIYC5Mg#4X<09NP15$&8vA_J?3rsfHcPJiT=U^gdF0l2-re$*dUMl8bQjxn ze713iqQ}#vgVU8NF;ZATr% zd(;V&SbOcZyx8&(QXI>A+PS_efa|eP+(VI*Ech~~EV#5yNb&W3R`GCgzFW{=w#L<~ zlM<9{6jf|N6rLm}8zr?#e_XlKzhD1;vi*~HH=nh?I^y>ZJ!(|!E{EN|5%Oas|7*{g z9iPT;QNJGAVc{E6i*~;bsn(>aU9?z>VHfVTq%j%&!}72Uzcls~5jvierq>rDI_;2n z6er$;>mHpp=S3_oVgrg#_gTqy_Dd9_8Iox6A^hCMaX%$yufJ!Py7%X8y*qd6)%%4`z14&2J=O0XFT)=c z@XtP!5?B9{_GQP<_U`@M+Hb^&ft~w~968|eI>qPl154^-hvFy3{YJ{mlpeH0Qz#qB zN*3CqMmYVl?9iajiCS+lA8VIspAXtBM&C$}lOv)vaJ!!|J|*r1kk@)p2Ca|fFjmDB zQ%FcsP@EpUuU@Qtb86$Mqu-k~XU=FfXx@Yce7?n7eV@Os&X>xmZ}DkG*ZI$COa5bD zf%`{jV?Izi(!NFm-1apJFD+uaslTFhH<&1)sGO`IcS&E9F=2WVAJl9gH%%qRcqCeX zUq=MKiY2E#Uda{|8x*gEe)r=C_ug6j&)ajZy)759NuQ)|Ru?aSLn=4^m2oRMU%H6P ztKWAlZmfPk>J7R28|rOdVXUUHm$mzrqn3|Z0za*tm*(O)l|4pdV&j=IEH4)5$&*^O z@yv_bee0{19Y}kYm6w)@XZQx=ncc2usEgu!rWc;+ZP|dd=b5jxl%APyJY#n~L-v~U znV0ZPS<5=4{exAK7Sc0G#xrAF&p2an)v67i4A5>X%`Nvy@Ak5X=y4E2gu!aA^>W4C zE92a2S<=tS6zi3`FCz-^Tpr8oM9@0Bgp}kYef6C&l@{#ULkmr$RDbKFviskj`hNLF zqZV;Lp76%CW!F@Pdhg9SVjHdS_Z4N@-W&D4i>j%1RL9l(MLqQuul%>)B_6!@tM#9x zX6*0QzAsw#FSTgp9%_jV+C=!YdsGvBH{N0!mROvwC-?3Zee6&=-mv`ssHXKpF$%6a zXjeX8R!{d+cOM9s-E$E=N{T?Nj^J0zc z%$T#VCH~(_)oku=0|G^g_E;}gYQ`s@S0nbH`;8CfHIzAzUXYsY2PUs*Ikro*>bg2> zz{c5a4WH4o5#3&!=;6A}w-g@(N>#`R3{SM%!YM8z%)Q`5duX^)Vq#6WkR-USo+h=Q zl0hvmjgm{WfR5^P#gJez(H3E&#>Z+43y&Zv(#LR90Bt~$zf$VOCs4oY(#)*I3;yc1 zQN6V2#;jS_7xKzqf6Xf|ygrNPEqP=8sHy=0PrtT$%7>5oEO~R-<{Gwus-xCVSt13k zC|bPkD|P2W?c=Z&oGns+;H?)GEmuA{aJcPrm0Nb(x9@Yy%6;D~E?fDzwukqL7~9*_ zcG3oG7_{57cFFKMHM_$etJuWaTDNHjf6uis7IW2aN>E+rJaZUdymRAoO@eDynJ1;$ zo4g!Vz0SH$sXIe{_FJjk`(|I*4`sd=8g?+}N|^izIMiU1?ScA=xY1B zb1$(}QJ8<8>v?7O6)r{?mndiS7JYcWf=865DE9?)qGMb`Og6zlNREgwhMFoRB*fc9 zputk_4zBg~b6whh)~fT{gNMxM+-gOq7oU5lR;`)Oz1V3*tIqEX9`aV_R-d)+^4#0C z;SS-LVp`Q5!yBGvz#G9}8hAGzsQ8_Y@+60i}je zs}|t7K?wPPl%Xy<6cp-#*rXyw^dMtxsBcAAXO8TX%44Ui{iVRUqXz!0{x*$o=7X*` z{_^mpBX=5aJ8}uyw-F1G7bvf>p(5HCd%r1b@Cmc=<=U#EFY)h8{Ck=Ht>p3V)uJ!O z9^;J3w^5HR%$wD>TYV^Ck+s+^4<#zImFZhjF=I=rB+lbFmqSAM`gH!5I&;4|onN_A zkYhS{GKLcnJ&+r)pe2>lq0TD_Co#8I&sqy0gdV%%P01Em>KW2FH! zfQ?nRGxATTDMranr_wTDT7@DWRmk8rQt$M5v3HE4+`~wZ&v@-5e4#o&oq7Rc3_QI661jWe>hO|x3 z%yaz7qK2|dE+xud2xLfUMx5+mD#0J z!(vOaPnZFMg(tuG;?Rz!&s(e3+sa=zm>K`>c)?7EI$t?X{2aI=J$Sd*H~l>MD$jNC zmME6MzOaW-kH&3Yz)2hrvU!leBd`VaUz`^SxJU>n-t8?W!0uk{Ud26z%ehH5jbK;G zD3v~jfCRb8O>B@SZFGsz1xTImMipIhT%uI?hM7oWMjIXE3T51_y(+G&03-6Rs2i}mpH8&bb^ZBlVCribqD&}U;|zNfv+JEY zI3smfhA1b<)PUk3whFYjcKzQgLy)MgxSiTBBei!%>Ps1^?J`nZ1g3VR7OJ!BEv*An z`;trZMAyB^M5ZZ$sdF+?rxLNI1*X22kvdb5EOl03>H@uYAjH+EuOUG~{6cBt;y7-O z(g`u;x=)?(F`~<$Bq+655m70K2gQcPg;f!&f$Q-w+U7V!blD8xZs#HT;`KQ090mnc zaXXh&W(^uLQ=0zj;F(hMp9YM3u}<9#by3@9P20A8u4x;2SMOn6UK-iw)oRHP)5oS; zsvaEu&q!V`-IBwTM;G>8#d}wcy}y)Y?VgShyOlc z%H&rj^qo5S74;jbN}CQZR`hH2)TjLUmK{5`93y^sCv|SeKApSvO0HRWm_Ku5?ARmf zerpUb|N7Tozph^Ux^U;$UAri9+t=yyu)dzZoc=5mG-9!}Q}%))vXowl9z z8qZ`_4t8#3)Uoyy;j4;a%8B`JePpd7d9jK0Jo?Bgt%9@rk&~Dhf1|k%yG;=**X&WD z`o;s^vZZcvO0uzank`8mYYeqntzi*yVKjFtK#7$16gDetp#)T@+_v{uA1+=a9hDl^ zXi&dTuf!uqj zS0d1Bj)v{}mOVxvTZs`fiEh1Rr+W7Y7EdGj#rHHfHPC*BJ z?cBm>ec&g&6Z;l&7)<>Lk~w{iiP8V)|q=@im8#M&n{&=}hg z<6UK4(G&v%?d4rpWsM178YVW}8$(DD3Eh-HYD?Uc{!UddrfzHB>iM>d`?jt>t9nfJ zSNpe2e79zWnwHeTZ@xLWUc*L7JfPict?N{Y?l7Wtoyt_Y)6xT*7ie8h>~}01tAbHF zTZ}Ey*2LDyrkBpgRXUq<5Zq==Ga9uqz@KVkm}_V?nz-jwu}!zHihn=G-dTHUb)x1ltDymPQJ;HSr8mMor6_;R(tCEybirmP(fBDA#3$MO(*UQh=ezS6P zwVp3Gsy-vWY)vJ5;lewY8uxv!W^`oJe$AdLr!V(k%8Z>L^EDWy%6(1HD_h zHJIg#O%Qpm*7R14D)O#XMh(BFpO?IyUF`Qg1!U1<5 zI2WCF=hht5Hpyl{Pk&h z14VLI1UV~))C;UKk-xc~%ZsH&>cb6h&E~DG>S1NUyvM7bU8lY;A1-{zdpGC(yciew z$lnq^9o=RG%NO@WC}X8bkTRZw)gEJc)>5O-5y*X2AE|xeFLI-z@Aw1$k9uUUvLIb8 zFy6lk@Aqa+|E2DfT3y8Zt)6d;Gv3!r^>@fsi;nUF{)bvcyz4aWfSa#84=E|fdfUso zc|X!%O$jOSmnpoak4M-U*?j?mJz7r^o#+uKqKeHLD`Y0n+~1Z&reaFHxO%b5^AR7Z zr~gqidHB7vkD~4bPZ^+MwR*driOF)!@)}rqfAz zmH0Hb6h3*Bpmc8%Z>zC2(~fQ4d%UGS_9h}&;|cMDvvGD!oCV-)$7t^v-qP3|m%Q^t zvcBS0Iq#a{+2ap`B;YKw@@@-ai=#+Hv#=th#!z5eZT#h9%E`$Ke>oJMo%obAC#_$p3gt z-JmQeDw@lu75!Z_)sS}4R#;fof0K51-%e{H7tBz9#eEw-EZQk45gag(v5+oQrsyDo)u7{o#X5_ItVG@#s<9Oe#ULnC z6O{3x9r+c#4NzSDZ9=Vl@xX9p^eOQ&#p7BBmxyak&1-@)HVq%<;5U9Ry8F9Y@am)~ zgB|>16>K@ZP2qfpT7Y>}oIJU*Wd8vV3vr3G!Ge>gC?0 zCv(geVbj;PBs_tBBSsB8u~L0dr|u^OZ}ZuAKg;8l?k<0C?(*gDzW1S2bKTwNSG;@J z`+d$gHrT{13)MsFJrHu=&ZN}C`*s?1Y@jSK_MErqd(Kz*DlV%X@@V&%HB;Jb~td#P2*NU!zn z*jdE7ZVb(q2P#)#1MS{!d+O4NdHLc&E97#t_}ovAUE%FvQ^_74>#^m$jo1}&?)cV? zuN)umxd<>cJi={AJT$gWvMjx-o=ENbVBbmAF?n#`QDYbVnfA}G^KMMP$65c;yv}o- z+7EcE_mUqEt?AsSL(_)s}`n+6#(hKXph*lG1itj+%A*+#k2qteoxV&hQ%YfXCzIW`%p8Ev(;I)bm2 zas(fmq5XAGo794p%+x8bC4+^f+T17Z?A{ie(N7aArfArGvh-$QM`=XShw_@edl$%! z(&q`i+D^MKZImlQLq&)dDKg4vkpkUU5=IqgwombOz+s+idxgDY)a!)0ag}UgVkS)5 zxN7l|)vG>OyynLVs z{g{XZz!tMLOztCwzpO4aeMsa*cdWAOW^iS_QyplpAeD^6kW{BwIc$bHHlxWU#Btxw zZzngd)oj-nvlp#<=fmxb-r2OPWuqp~&h5=l_K&NV5I1n@lwp&Ssx2Hoea6`MdMVWh zb0KT>@UvSEgH_?r+PF0=QN^na_ogq6~r0((ptM$8LQsxICoeM6Or#@6S#0s zv`KyY_We=)#G8-&S$%((KX15v-MT6Kp<1ONTYF1RS##bzk zbqSc=CXvsqEzut7x@n0NHO+Iivppz850w@fqK60zK{d4Li}ZtK+=S-OHLu5K@Q*%P7CrZk$sfNxu*15iyuApT)>QaE#yic_Z`r3;Tw}a{_4}(CvU1fDo0fQpjGngpn5W6M0Kmj z%urM@twx)!nphaF_U6oxv{l`b&bzAZrODFfq8FtZABp|#ocb$-qV#@bx9L%OZR8O| zt18{>!>Hm7L?xTPCvK(0$elAQEv~etlH6y<3zhm+Lhq7Q3KWN?m0qYM_1Te8=`ybD zQEuv?lF%h~->6FZ3*E^X1WVJMoUTe#H^ne`c%5Y74j&pGQnwO$K1j>QzP)zg{Pk~- z{dCssPu1)7nl>BWwCVEnq<*!fX0N9_J9GFOQ(l|-Y|87yCQdB6oYb>ct)5AIQ}^x( zwQ4bmwbK5U))5_ISU-EHKFSs<25jAIlc?fx@ufg7XIxT>Uh67>PI5w>6z2kmaGw2K&*|@MeEa>+rOeAAi>3_h824P=q-KqHa)Wu(Ca?c;`7>wF z^QB!j*KPTHvyKf?M9jX$(mV1~|F%~5siJ|>O6i@ANb!;Ky!5&CL-KNn7NbIbiNa4R zD$#B;x0N!cvGgJ30Oyc$C)SsZW;U@cL8_b)l`1DjQq6VWjVj3&XRGUy{S-5XW+f~C zDeL}+vqyDoKVn#?&aVxuTcvWXT9vERwSKtwV#h&)JG31*pk0;PwW}l~B>^`dwXG7Z zbY#^a{mt2@cCQvKjXp~)vAQa?p}P-;hcBp@u8bFMg{f6x^_zZscCT=fZLdUoKsd!} z4M?=ta~tcaM{QD!ml3DhUdyBF)6jJlA82pp(QhEf3kvNJ78;>%kR)R6>(ZJMZ#3o+ zvE1rhVO}?(ibuQ$C3;@N@yBO&Zdqmg-hD?FJ^JLldVgn~2|WiD9_-eRk1eWIx%Ru` z=5Ai9-fH^B%P&ou@cjgNO}Am;gTC$?9GBQu=ASHl>B|A1PWj^HI?qq)TzggD@XwEg zKE4t1e68m?ywdbFZ%O*5-H@RjgWC=n(gD)mUAwLH1#JUac{a*zk9cqQ6^kBIz{Q;* zif!ueO#xTS(1B#%MJ#W3KUCcpLaJAf0$ipf$suuiaEp|BVo|VpyKtS9G=LI)Auk^QJEozxZLl(CnWwrWBAz zS_RhM9;s{gNMYst%T7`*JB9|!^=+jhJbH?H5I4^qVBLD*BKBcuL|CjI^{@)Lp2f!U z<%LqU``X_(EUneTXOuU`sHb@7;#ulH>NTl*(MC(^`D51xw^SdD|N7aowZEV8`phF^ zM`ls1XY?X!(F*^U+&Z}b8cVzMF|0&;jFpdd(*mvmEms_En9|KR7Z$$HH`CrR74^Mi zEUD(!F(RrJ=vvRpfKgXBj69YMM*k~DdLX$}Te1GPtt2x1>ga-kVLSjmiPe0On#Iqn z307A48DFIa6@6<^CzzrDwJ(LK)F_q8VRL^KMjWGc2 zh-eQaTPw8^h1{s*zM9@1FIUx(bdERZJI59uau89miVZrP_YtNCkYh#B;IY1B_bkLZmrI-z96mOg@b*n z)sXp`Pi5=5J$uhPdc4q~hehEt`3?J+ef!ERon~7)?0D|)KlL9zeabMD$R8zYg8peF z`_RtZ_O|fo2-7;7^2JAQnJ*c|-oB)!yp45CP5lCt7$p&zc2fE();>E=D3_ExMegI) zkD(wEt}B1Bg4~$yw~FQEreBQS%NEWCA_Rcw72ul?D`GQARZug_sJlLrgbB$>vzISl3gLO|;u$4MSB-^V?j$g4BL^3}H~c3$T%8D2r(O@)%h}+n1Zl zB7UaK$GQ)e1-S2XkZLQ|(0~D!e;c8e>#IHamprA^acX{P-^70%sdgV3t1qlS&;H!M z&o|j5(Gk)q38_f{byW?N2%fr_tsh;`SbMQ zL*a$hTFj46TC8SCV+vp4P1IlHsYSbZxYSaek-ma|$G=>Wt}X)2UtrAA0aygVIx5FT z+r9L86EEuHd5JYW%w^6Mp98Q51RAz7cxCtY3N)0DmE2H5J>=MJW2&+gI3k*Y4v=TQ zXdEbxJCuoJ2~sR|;}e1^%Wd*`sQT9(N4|QCN8~w*9x6Oi&5@%P&*s5OSiplL8IJ-+ zjtF>|aqMru$wl9(MPX9)u*Y*|`4pWA6BHI@lS!Yp^U$Z{wNgTbhWk>~w{Ys%1XEA} zg`$_bX4~~0i;`)xYpcyFrvKt4nZ}wU#P&rqMmhMa(;hjlJ(e6}raAbZk$b=5iR!Uy zOShF*Z}Nz6UY#?Ztp2tkEmGQM#Q1s}dL)kZw%gnyz>tGP`QrO3xi{Xa0Uk5cP}@v+ z!MVpw4ifA6C`x{nWYghWw8&yDalEmrfr;LUa3PbnOdhdp!MtS?Usr3T{`^+KXSaCu zfiLe=6Ax87oLXbm=C9XR-F`6cQ2M7lA^d}!x7BNRq840gOSPr4mSgDxI!CeB?BT^@ z#Fj6(=$^0o)Kd;q+P&B)L~=P+k)vYyeA1XK8Q^-Fn+x@O*j z3;FrC$4`8H!mK$C`EYuAZo=;eeoFiK#bM)y#usI~tsE)O7TM(rG5^EL5qp?^Gc3`r zg^4-zFh0)SM4X+#&yLYyGs2{?JGO=G2@|vF;?G6m$4#rt9!5s_CoeszB**Hz^_0H& z+OA(GHrPK{)$vvZr1beu#lyMKH zY!B6gB!(v1BcD90N;?F{%2vr57nfqh?gkgD7@Gyh*}@*4P{Y*q{$*a;{6SqF->;)@ znEXu6g-1nA?+%?XaR{HW>7*ndRzJ&AwF$>0+v+<~4Ru6@ue$KHuAK)ObF8*VWdV&` z{bJ|3PUAwSm0}}$h-vBJxLBa!Q@&#x+rz~22_`r!esDI<-dFr+;xd4VH56|X1q*Xjm9np8wm~9#QvW%h)PWsTy9o5({v1_867qG|F7j2+goD?NCce8ti z>djH2J*f2BX++I(ubFcfUc9Y1UVq)Fmv`b%9938Fo>Pa3YAM=Zb+yu;W~VyYWwHl6 zojFULrz+hN@ra!243%muT_eKAzk2QhQ8}%pR+^ici_ch9!lE2NGMk9-AgENVXS!S9s#yKj+mLxskfz)$wD7 zJdlrGmebV@zX~J=zSyY`S3d)$3F%ZytBGZ3YD#e>Q?ZyEMwLflDSoOPMDUmx`0}VQn~A#|17DPoRPilzA`l&zKQlG zzNm_QeZ{&(obA}=yT=z5agpz8Uum2O*yXaOD7Z)f&0&V{0N21n9L-&ZP|QJnGV^|4 zN54Y#6z{F3^9p~z=y>sOUP0Zi&6u%BEKx4D5GedzRN?toQ)PHfz7kW zyLnf7l+E;y_3?1uu=)tev&YjRH9paPB3>w*cu}JGJ@L>fnz#`VFEo(&aV-F_2gZq! zN_)9*>I8**uEOM=vrtx>b6cYX;VNfLM4^8xT^;jUuOSY{zH|3R^%*@%RWti+YckbQ z=E$ViFE9J#pxnGwr&f)Yee=~vz2+rU{-D?DZ=Xu+wR&lf=f9Lw6~l@iMf0ug?Toy| z-DXlso&I)q*FD=^eR;Co+hUlwLJWoTM3DTZ!%>v$a8Pd|uJBK>>dSaH~|m1xYs3V9L(W__(fo~(lU);(4sPuA5|Y25!gkj769cQ^*}`n;~;E0-8o6*cF-5l!r0N)-P z=QrdD1KRqA6X6c4tM91lWPVI3vnETbA*41&%b~S30j#;5xvjz=Q?%4})2RlHUA{e+ z=|zOZa(^ih%IA*JQ)bU`@Qv{&f8#^c zRg*@~0B%11Jm}qD9 z*2~LfrFkIW)CR>CWBAx~XBH7E#G|L?K7eW3ob|}iG#gq=G#Q$oOI>dN@ldTZWWv}1 z4-MloT^*63e)3w^P6H)%p{CKA%ddfJyyPX~JMg_q9ma~;3LWgSZY#(xTcPv?)i#CJ z4%iayAy2RY^`#z8!_UN6sVdAoviD4Uw`C{`gr%qcZlKF(pRRnR7WHi2@#xuj*!Sj+ zF08E3I__9B4(R~(`203 zf0RW;=(Ax7Jkf9JTQ)ERtc_~UWYd>x@&Idhdq`0_VzeVVEM6TsgdGhp?ybY6Sd zn7tR&oB0#I*519ai+G^rTbrS*AuN_{vnzURImH!Y!=u8M+O;dTTccMQy(;h6=C{XB zct-fm@DrX9exk&F!ZX5ewV&{e@DnY9xZA`}ct-doBDJ{TL5@I=uyt~=rkDosoEv~9 zvy!8D)@JIZI~UcfAwLxq{1nQ|XO^e|Lp&ojC(rOKwJgut$cxg|g93-L(1jyu9AmxR zt8BEpF7z-`olQ*1fCpxWF~U2@m@gDQGcFezr>~9STI03_8M6^%EFKXtY_upRAcA-i zK_N(kXk;!jgO>aeu}hk($}hRQGd2~KVz5em)WJn}c<0hgR=qV)rjjM{uALc{h?3~C ziads-%9lm~bD5%_x36A_sBXBbinC4`RmjVY0$zT)XnHPCAagIyWl>2>dF-K#Pu0Cn zt4ivkj&YVrx2p^rP*oN{E6=oB+;*3xPOV3uqI|J!x?Cm&X~rPhvxFt;U4H85i+;Z` z5U^trTg}j?P%?`7J^5zXy?l+ukV*BD!VFVTtfr!p@L{djr2zYKunD)Szo~m0uWOCI z`<9Cr`Q@VYqHX;2(W9a`&fa=QTJJx{?(MeT|H(#>v!ZxLy7rQ6Mo+zomne&uD2taU zi`O16Q5LV&ULN+WsN-&%miclomvu{RsXkGBWw=9KBXuoi;>t(%sTK9Y(CYl#mKDku zERJ^f57T$|4->KRnJXrGsXF>eyZcA~XS@5m#Q~EjhD>yzy=L*<{VOuLUR{OQ1ce|QwwvRSG6r=_(}EN=*fNe$lvd(&%J5snu&MUP(67@>XEeD83&7GY-WsLr==-*N$ z^IWj&oql3T@fEx3B&unyRlAj;GoL05d)vJY3?;YlgQa%tOEV_D+}*i^MOnr<7whLT zE%gn#Ab6JH>7f@3Td3>h&(+P6wSbIEF_cvJNIt^cEcpo5$*#DqO!ZJ>)bB1~R0q-? z{ID8|?Z6)xm>N=I2ma9T2-NOm-LP-peci7oB*%;0*R_4g!8eBc{Cddmw>^Bgy85+Y zzK#O#NSOGBZfaLbFM}{Bbs*B@q7q0Gydp$}n+%5}1yN7lHPANEF?Z&jJjVnv!Umn# zJ^svZ>MGt}46t1mmbaE~*`Tar(WsAu?0z)!Acla-XRwmoGV5GLe;8R@?(+X{?a>`U3%cC*=uS=!aqiLGfS2LVNb?_lq^jy|xryzYFXv8ts#(*+ zD`u_oDcZ42S*K<`eB;xH@A7io>%)&esTs7ZQjNmkbqlE^V)Q6SzDX9zFnjQmW>)@v zf9|L<%2LifDCA?=5?ZC>cvHT6fgIdXrBq&wZsBP&3xHZkYOpXit6=2{#=lPptHL&S`E z$e0i@V;<5J2YY@9?_*~nd@M!Gb`>h*Up=|Fkh%DHS+FTQ+|!e*D1XW_e<|62>EtON z_!s>e@L?$)U3|vM4?kR4_{YknOINzDMM+>=?N!`H`Dh1~@+HQV$~$A72UzuOJ$R!1 z1m}I4ddKiY-h_AJir8_0_wiVx9SF16WnXwiaP_Cq^tM1_Td;t zY-L(qIQ$bR$lcnx1QUR ze%A3~*A6`_(yk@Xg)ePcZ{I%u5lj8sE=f3^o3XR!(CJeIjaq5>a;mb5Rbp%GK5qNn zdMII2(N)rSyQl;jRpNbi1Xik8N$T@|?R-&*R_#%n#MtM^4 zF&=whpl9mb1H&0`&e#H@qxx3Ro1j zkAC?6v*$nh{`*fYJq8bWv1^Y(1A7(j@bv2x`&VqFd4meD9Q|}{?&s3x9xb{n>Ztth z`w5s~HFhrYS?#k8Cp*NoG}e8Ofe=a`N_z~1Q>^(4Pu^o7Jdk!rak&OQQ13f3@Zq~Z!5ddr?7L^ZZkybD%A7e{hjki~I*8X$qgFkB=lYJm6Th)XZ%HNFAV-M+jf2o8 z4Km^Yq?Xm!0^1Tx2E20i=smTQRiRKaW$55JU7Mvb;p7?m$hoOWZD8Les$6ONm8{(Y{GlaG#h1) z(&OGnxpn~|x|X^xC-rKBN^FPeM{{&#=sg}9_)q5wa5tEJhX#JFMqa?4n zl|=bJ^5Ry{&!4_X zivPTD-t1A2;(6g1UhZnbs{IrBz3~S`DY`;V$|xPlCZ1Y~P3*B++qC$jy~yH^PTa94 z`b0FWuD;QuqouJsV$fZOs$3M!`|QYz*2KB5X+r*+{Ve+1&YBz?=3LI=)(em(7N{qt zU48%0yG4xyzFyF6N$rMBe*S96)IgpwK9pDeJ9gE>_tkrUzd2`RV#P1(G>}&>m|Aws z3{k?)YIj9J38PqL_LjYp?yFQu44}EqphUZCOOJiQf{J?rT4WlKE90^Ad_WNG+a9L> z7va7jQz+L;9{dX~J&c{?#>mdu`+j~cC_{a8r^mLGdK2DSID7ck-M0#6jbGlp#j=Sr zrT8LVWA3=Zzyei$IySY*N6RWr>Iio(||-u&yy z%^!Rk&M*9>KH9-so@{iQx80#S{#vm_&C08LTfM&MBR4E7vTkF5mQRYwV6Uh* zYZVhcmcmxCDsHGN5phy%CCO%BE=CP3@vYR%)HL<@7HKt)`|clJBj(}L>R%gA$v1x* z^l6Oxrxf#3-*I;S{BO0-^G-YSuW_4tU?q0B@Zddmms{gCH$1W?^ zA7^p@{P-H5u4iM4Y15J|mdCo{P|1UuLV-%UB#7!7oMIXG zrFw3MT|Kvvf5EHou=Ds0%Hzx}Utb!sbJY5CKGMG9YU-|CyyM~8M|p>|@6;a-1YhTs z)IV-kS$cOa_r9RxEfe0T93tj~J_6w-RxG+%4Ia)d0`I`$F()c|;%&s7FmSI}0`+>9 zam(M!`$9e4yzw{cg^kizyefZ{Cv4zAf8)g=-;UmTUOI3@{dqvzvipAD@eW6y&fr~s z{7&6=+>*l~C3)qS7rf0Y-WN4*If{{|%rEA5Sz^#cAukScr*^|NHZI5_+^O>%>ZekJ z71bOUZ=u0>45kbx++4Xp` zn?tp84G51_Y8Lk6k6Seu)^q5ajwxs79J$qFl)7DNvzqT}GO+3MJty}Y|I_gAKI^%9 zhN#(ICDtV(&h6 zKYwPK{ID=tnps^~i0z~W(nibovW@=^^j0``J0=@TRH#6)+cE8myh7S-*<$R9yrT47 zk&&(w^4m)3&QrS5_Vnq1G(T8&AeAe^9y-d;NIepGj$=+^T@c zD~jg8VvHPHNsFX)l=@HiH=FKoWsSX^hp20m3gA*X*2f-YME~;l97%Vd{5q0 z{qv$t3nzCS63r*b5hvA+btFms`}zvU>c&@eu0BXn=BU>ks~od=Ou_1c zSp}b}4?g~6?wsY4)L8vXO<%};5Atx{c%ka}>idI-cGdj$*!~@wrhTin<4cu>l2uqu zC9l~ci1loxAtZV}{r_0)P1o__8h6*7^eLW7v^OYuxbhi`WrK|!1et3AX!+s;U(9_H zCC0t+vHQeO&@CU~+HUu9ZQdH@X`WSaH3}idehc~tglvRSO5nHKJ>Q}C)Yo4;(yH_J zJpS8>$;V!OxOU_DZBs}5QG0Ngms+pmyurhwa#H@;)BQ)QzelW}we3i`Zzk9_MdyvF)3)D!!g z+*o(?^zroVH>CL+r8hRK>A$u)p&r;M%~u;2<+r-?NbU0f|K;P_?_$2u%Aj3dxBD8t zMq#ClCpnz}J>AO_!$e8MPhN)+=NWC%%3Er~6LN52t{l9PSN-)@ z^&F^pQ_GR&Sel`g9%pApD{Zb0@Ys$=kT9Bt%cDK|1d6z!@Aqp&K92C%R>VtK5AI}) zHuj+x%VnLr^B3D|MPSdj?AdefT+Yl!_-PM);eEzQ)2JHFVcI*hGVc=*OIc5oZ& zb}(a>=WNMRJlbor=Gy~x>B3f!p|dhikW&P+gD270UoJq znyJ^b{X9kNo~0zFhI^!u%rwJUE^-VnmSb=xIqaF~mzn85=P&W$#y(krnW zn2lfJukdoXKSXV$+_t3Segf^2HH9D69*f=hA${#_&*FYHoo4JNf7V$pvYOqgP(1Yn z{!S^W{XJ4QHdC);@0OA}&?B|CnR+<;2C2h~r4GqVEk`BQ4k6VV!sRI)b8WdRcd9lb zy~W6V9hBiTx6~6@Jy&WoW`R{ttsO<`H*Af~)GM`=Qu6jPQtv_PIW})I^>A%~3v)Ad znM^Xr^^#g5NIL2m(vho62Wm~2f$tD4$5Mf$Gs%$UhAw$Chi@uAA@u})-j&)Miiq_{ zonoe5$u5+VcbrG+nr7^|Ig#E5DLq3N zJZshfGk0?+s*I6)Pc27&Y-LE@(x_cq7;~mJHxjS$gwzvwd&WfRpi^slq~S&yD_hy2 zWPVS(r?osV)2{EtOQe0uBkiwd+ToKK3on+oc4lfroeDY@ub7yA&aSe$CDJEmrlz>3 zpQ@)9T8Z7%vPBo)QdIE2%)6FX} zwW3EFZlnR-nw8A2l6zXquV&ieBTQPDX{%(WKCSDa9Y{0Z@=zih8mU{n_0U68M7wDr zSk}@ox3m*t&9vq)xl;#yhqOa1kBqcJ2gPY6b9U;WO-Mb~vfoTSTXvqaUd1`l?+cwpLAPf9(3chh-*)~UQl8g8Tk54xAk zFUCEs<$;-Y{Y%`)E#4!=ujU(vi#RYI?WfLD+I1A^CqV}PCJbLT%CpT?9&`T4scDL* zp1?cm<*~Xnjh==ZX;7X{CG!h&Piy(rOgsDy6IU~>OUwAG?c_7`_CChj!}YiGL=!_w zLpk=*b9~Os(cC63A~Ut3n_XbNWm*qo*lynNiMElh4R)B?V9fK1p@*t_STE(w{MN7s zrPxFM9{FXN`eKcUiCMZXViF5hyI7v1xKUB;b$gUPw;Cmu0=TVQi7Cxn*149@W1A$q z&DGQ7#@-h8h*0tviE#G>u}6i6ItOw@P%vXDiU=1b$I7uBKXSB`(6~q2)-|6FYty^$ z>mQCU`gNj;`aFPtdCHRd=!N>P)NT>6u;!><3kL8u>K03C;b^J1C{s_hi~LyW2n(S; z`_dlKprJmGg=VlA5yV9`TvRJQ6-yTta8ZFSGH9pm2z_>z4q`{{2#@7k!L-t}skd)% zx!{_?je?avsnr7Qm0jdO&*o{DNnR$zH(BM=dg7|P-sM0F%pS2UG?%R zO<(@>r9E5J$R$03Oft^rUag+_^_A|ey6U!ta@*EUw_&MPr15q_E`42kz7r(vKGmGo zMw)7R%?U^}b&H-)do!Pv>=)kdiMExVBR6tHEw64$u367KbFOCQyq15(Uo4SxynD`; zizcpXc_8yHk$06RV7-c+GfQ9T3AnCm<}7=xo0WZ%EZeF^E<^dVhGr@2%Ei*lDzSL> zyhy`8SGZEhtPIlUv|p9>*1M*qK8C%;n?145ptq(w%+_>FBgJT&E4bm*-WF%(w}$;# zNTP(j^+aOCwz$f2?gEls zv{CwTw5#g9Q?yjxUesRdF3nS$9x-d$+`g97U)52xW2!m61e1GDlJ<*4go8}<6WbXZ|8IAgbqHJ5pSMw^D&q-o4LVdR=a=x<*lgcU)s(=KM}zZs>xUuf5Bb5 z{;8&)Hp%4}sZT2c>i3YjpsiFbdDic^`i9{*h(diBhPUx^>h6o%+p=*gx1Aw*SsopY z*b`{2_j~Q78@R@!HCfeJ>GfE6=0P%(O%s_*wH-yf1|ve23dw2L>6g^5)yHwJTpR~Y zzCryXYU zWHREsxztsfcGI*V-c{juvb%KD{I_X$!NW7&OXJRwTA@5Xv%Dd92z#vq|1`xIz10IG zI)2Ot+dErq+BR+%MVc+IOAGPqv!r>|%(SP>?y#vhyt}3DUX3q5VBW`YscIdYXYsAu z<2>`2KA-i!GOfGg*KZ6P($k7=VF(PJdo(E7)7i<>z0I^gu|DEU?@C3C!1v-1awG!N zCFMPtE*&b(?*!-_5WQKIDVeBT@{p=kW$!3?NZCwHdAZ?@RYAeVF}OZIG+CCxJfGZ; z@y*pyj3HrU^6=YwfV`opRj?-^S!vN4S*0F*LAZ2HRG8B(oE_PxTU6=e`e!&y>u~qm zcL*%t$EmXuqS$tglo?+)E+-kSB?D4t-`{te*!jwE2A=u zoHuj>D{YLkPmmWVI?Q{BsD)*|NJsz4W%N-cfzYN^ z3W8Oc3FAMj`YGwNgZ9YVs%{AA4C&IAhjs;Ki%9YMb~#bOOaDVcdLNI4|^IxOp*DJ zB7iHD=<)u(gUG#is1gp}o_^m)yY7Dco_~ntc&97o*TIH+HkniR!pf3E#Ox&Hi3ZvU z{&AaUhxeaT6CX126CVO=!sBJ1j#Wyb9GtiP&`yosEFqiEg;J*Rbc!veG3d9&qz#8T zX;VD?pzNyrY}D!e|>(6b}wp5*pIoN?_sRwa~q zU)b)7cHXgb;%#3PMmv)|wqp6U;d>8l>+T!)kb znB#F-w^^?;-uBiLZ~Cj< zFzaN#;--)Z7IXM7}7!)LRUf^adh(J9wrk+qSP6xqepN15&V zfzEpBrrODH@RXJhpVYaCo9&37^2$niDp{89=`HK!^si*?pM zW}&uJ#ZchU(7l`peiOg2#GSt{z@Quf?i_KU*%Gb8R)YRCuE9J?O5mB%I@CzohHOyq z@!gq6ittpt>14yNwtm{FhQpnrbz)S*k7_QFH1m{}BjdW`95g0UK^{ay)JUPv7WN-xFQk@HyB z{(s*!XMYb*yJxs7tFE&TD|;nfew&h3Csg}s;y!?Z<^DTj_3_y;%9r6B#yqvGg7v9> zmw=3`4BJA|u~v4M^*^#4iu$%?-!j5D9Y5lbvd2D^xh(VA5e2nhHYd(Xr&YHuca70Ym4ihZa#D0`S!e5Cn!9JXH%i zGu&`hgaR?0i@3Fwp1ca9+0_d$(3#U*fikPA9H)<8*$1?ER8hv5uQ&QvusQ`gb^NOr z(7mHICT?;X#21Ssz2`?|?{CP!N7h-ve{j;(>}V*){=TY&3|tWEA~x=@%$T-_wZ#}T ze&X{ek-B^{0sb*{o)B-S6~oic!AeGUCQSi+^dgZS$(K%u#wKk39 z1oi)jhYWZZqI1nv=ir#_YApyMBtc@y`)m!&xvwiS(;gFzELO$h*aRIC5A?OY##4zW z@2WhHk)NgBMpG$U`>)Z+FIIh<%saD2KHovy};tva~4gTtk;rL?|v-#o_rS~5w8`v`Doq3TW zq>fezLjCI$w5OxH+OI;}VONmE3fAxE`OE5n^OaZ$&RPz-hM9yQrTM^8a>Gem{`yVT zJ(s@b?DIxu>tn*?f*AE)Q@)R$LSEXI-exj&qO2hVnXkrs4&q?x-!G*gP4B;`@hm~_ zX=+m#TFh^4Q_kMR_(Jxm&OTTDQA-^T(Q{Yd>UgoKlURW+F1;{~!puD{YgQr4oF1Ap zRWBJjhhyFNl*|KloUETV0@t)o)eCy8ec!N8mf8yHO4Ksb42|b>wLx8#$eJxaioYsP zTQu+>1;=Tz&xY&W(=(>E=lj_Fm3~vqqnYv~Z4QWcBcw0~jLy7mj@dCw{P|C>l^$O5 zckV4l7H6$snlM#YWOOAan!k17^_hl8g`twws3j*@q_gXNs<E15ZU_v|bZG(TUre#r>+Ma_|o75D^Rfu`-!{MleuH7#ASpePCHNiHs zW2DqE{RHu{o^W+((u%q^oBlDfuQGjAa*e)jh&l@rx*$!)Gnq{kyQ?ljx}YxHAv0L6 z;gp1$tyga*P&a#}b6bDSJW0!lFXVPhUW%qUPd(X!B5{dp84z+#rF^|AT=n8;E$m13tUsI{)2@e#aPWj97T^SKds zr*F}MDO;0>YS%O3ksBi9E_Gby)>G^p0JCu(oh;eRjn5G?_%fjQ`=zFlSb;=72d8|i zhhjFuSV5v4S{WytepR>A_5J7-Q~Hs(9UASS(r)qsuXD`2pjDOck&(p6eNT`^?*aD< z&CP~|A%j{I%m3GS>YR?u(&fIpPkZ&?cpO=~!^v~bK3kP3o`Er{3P+39-IqEjcGlA3 zwwvMFvq(@in9a3%I6fLob^X#a2X!|rxNtMfNuzXddtow!Q`lo|clh&~a(fLueV4tg z>xwcGvWdC!+j!d2LL5seqAe%6;6XioLpq&qFx-0a$R=Pw-g-8Y(|P}-u;Koei+6oX zZw|z^%LZ!ByUmQ}$6of-6_E+2Of-8pPr5pMv6vmM z!?qkF#Xi`kBxdR)m^A0m*je943{y5l=htMY!_z4dH>8w_8&q*6NOZXltQ9t|dMg}w z!>O)xS{+Ao7I00NCnTpaj7haHt=#}=pkAzs-xz2W2Aj);MiW|L=IeYNDAr2lSSDun zW?=QbJbm57DStZ_xz=!r88oetq?ZD=GMq6>Z9I%3H*VHPKPg9tf55J-ckOWT>JvCl z*T%d`C1P~hVm9EkJoXuTh!}b*3)rhthZ^ZMzV5UfT*$o`k!;$nZqI|wloiQ%Y(2N| zjfe!n73>02%Dk_e^WTjbrBI)jnl9*>WxAE8M3}R`pCvHpLby`2@|>?FgJ%omb&jW%z&HG+Bd|IFUx zbqF(8V%UL6iWc+S97w(eXlx&9&+tCfDaN`D<57g2HgFVK$ zLS?M;H{>-8zW@5A)^zwNb#+(7RVXiWSm;684cwO;P1p&W!N4JhdE9i%uAZ#+G!>)x zTk}zQTzZDzM@h?p4m(D%wOANrv=rd1<4Bj_t&%xnX-Bf@e9=rUm_4QzaBZXA4d(Eg zTl_K4JkEC@!C$3f&41Q&{ny0x!VM_`uFMfUJ9=jmjdhJ?bjGnE*+69*}?@H(`2Wta`p;AjR)uP{tyn$zeb`96e>5-IPpzklO0o_s+i#XYP z>$L@sSF+nN8N13@jE3hcs=hN zayva@YqCU5HVVIU+uwjqy`kB7?s5n#OJbUn13$|z1rASq#TCkw9koxG4SDi;*gH(* zdUpRh#YR0FA9$nY?F|X>SV+rG){yb3j65uCz9xh}RcyvRd=s^$E%Y`5=bN=(tX`5^ z9n%!<*GkcoJ|_FoZ6FY$%kC*Oa#6TMK1OC%yY;>p?D)gkGw;nUZ>SL5Pg#MFx}r9O zZk>9nn!9nr_PCbP_=e0FM6bLx#yp0sO15T* zskN4PHShzLpq9e&(BS*KfIZ`~sdf!H3wBo{Lob*m*A-|BDRx%VS~AL_$fp?QD3{Yc z7}93{$WZ9n7~PVHJgv#yN3%)WG4@U{M^|RQXIOR+*xHb=Q^}fuBnOS+?AyjJRPR;5UHXw7SUd%*Ld=`D!(=ueRW$x}2G%aGjp@Y*HiZN?P_y3zXSVy!OV`CfpNZJ z;@jElO|#?LZ7XJC>PiyrN9dx$Q_pSFNyIbdkDrXscpLW0qD&4#P(1ctd-Ky?i;Zi!D!;u}-fc=rQrkEVjL+LVy4I#Mhcf$I7<|B< zn$XrGn(8_$M=xF=Oi0ty45&_Dot#axOOc*$wokY}5<+RpnkBK<6$DpprC_AZGNIba zKMc(6uMx+Y}$-9TMvAaP^Rr1EZw-lAGSK$y*?%3;4e1(Kfz zZm}c7WY5n^WZzQ-E%iS(rOmaFun3cva9Ah{0CS2OGl6q@93>W^gej;~piR%3DwwK0jz-W+!0= z-^xfhJr`|8N?L;7XCHCpI1A;q6~oQpVfuN4rlK9Ug>mbr3@yqMDh{n5%6l#}N$wR@ z1W8#QgfAj<1^+Ixm4l2>h4)rpcQJNf2>Ui^f- zaa_kq2c-9yEtnS~xJJe;g))YSh#-=lI;NP43U+?34!eKP>hMgSHq%g#57#;wBHo^A zyAYs>o~b|SfV{lG{)YdNX+bUA@2jV+RS9y70jylrb%2TZ30UwiT-&+s(x z3w(u%vaVB=xBJ&S)iR$s zsHHvzT;T2xvvv2HFViHuTz$~7d)Gn(M88;hlZ8!SP= zZxrX=&ezHOE<@wd&d_DJdXSzRp?$yd_n zF32lNlbf3s=0(NncWW`lFU>RR%8nnzv4tqDV#htWzIh-tB>z>L&(ZrqC9yi0D|J!i zYpTSkw|he?r=xB7yM32{>+PJ(g7&?%{zRrny@)3|WeI_$@+$vt>+rO>Nm9(n%>0SW zn|eb|*T-Z-5cz;BMdqV!54Y=M^V0zBuG`?aHIh?(V)|UeV$<6^^8S`ME@!wOo+_#C z9!QISkibzN7F&LHw(gDWX-73to7u`6nDbX|Fe9MQIUM&-9`ZA_>*Pq=-{OY`X3q`v z9Q!_hww$PI&pV&%m8fK=&0b%RXvm55o`wbU?TXEQ1DO1yd)8DuqJExjt__)Q z>S>#TTkGqQ3A_rig8L-0B=pAw$t;y&Y->WB-Kj6ygar4fbT3ryX&156exir|9D|C+ z@nlNI@loNyJPZ?|A@UFParfFqac?RmImW#*ZAyB&Hh13lI0I4{TFK3G zRdy0MrAbNVRCho^iC?m=q_Nd_N}kI~L=&Chht%K|Sf9NVj?8u$CBjTK;%($%{CZPDpy^ifk$}s= z*&5HiJ?ZO1otggj-;dbBb}P^QVH`>QF&cxN6JVz`%52`1I_JKi-$};LY@uX1FO&;I zRbMQ^ulleaq=aR>F>vfAg%_oNXE)F$OURjyh5>W-(4fI83o1-=2q_RQKOEH=Z8Roz z5w$z4l)KqiC0Ja ziZ#3KB`M0hb7LtRbJuW@M>lz1GUrg3%A@pMJ@){I^ANkq85qNY_*&f zKH<)*R0`0&ki2x8*T!|X?a_Xvy`Vu9{@z&g^PqcG-phCyxwGtY^J&$BC%~rSmsKwn zb1?fJz5)a4*S%#rGY?j-&c&FqbJu8vDxmoQY#$&jR7gGJ(J zy?3&Oq>vUs_d_x1^e<2~xz^;GDNPQM#p30M>`<4>>->ir|AC#J#~H=Al&5Al>SiOO zi(IEU8c0LFKW5>A)JxFcAg48_)B%Xi0;V!Ft4D11$?8X8nyB-q@h@Vp0R$+v?sxXRbs(hXHJ*W2XgV9=Z)UG=C`>^TXSB;L-iPDShRczYKg2zm^G63%zdkI-UF*D9 z6KOwPauMxehPM{tM&m7iWK`FAPc$q)8`@bOfjwr1jpY;D4Pz5qB38K7I5UW~`O%~2 zb3FMv|IxbD!;rwU#BHays!*;Gh-`weW^zC2>+<||(n3qIEE!%G%}@M|c;R)rC}xJ( zx2lx}_GUt|?3o1{&e5;mGhYO3v)rd+k`d@Ts zWyc&{>=(mXbNWNjtQlrKq*sd@^M|>%u%wqBeH9F!p>NJ}(zCZr&s(w81&8f#S}}5S zVShV|<6T|+5kF^Q+GW=2+l%HR=XTlE94kU9-_+tu336vxn|$v_NSP;RDqg1_{pH6| zL2^Px)VnBK>BUSXw`#ma87Z>~wJW7js_ZYO(u+I^+@@mQBI$7x>@wp#^adIV<0Fe~ z2f5iL?B(VA51TYaaki7A_5ym_7OisK=c8NpxIuL`>VCbcU;4Bbh<#S6 zHeB}3@sJo6^i^V-^{?s-c!u)0fItBvVC;1lgWEtx$3X_!Ned%vvT&n38Bum>!5(B;m3&R;eGC1;K_7Aso zj_-%kUtX0)O|)Mf;_@~6Z*O35PAP_n;g$=Bi*_B0wRt4`sq`BB#Er)c3-8(g{QApZ z9(pM~b%#XQkWt=UGf#eGXTB~{{$gJ!B6n0lc%P#7sC@i6oon_<|L-e?5cHq_sUQc> zUY3$X_cyK3a?%-TL-Q~yiP3E`wYe1a`r@GT0AuPNzm9HcG*`#s#nQqu-x#u1EnrUXavW_HYi)W6_ zne2z1qx?SyMFoiNr-+V3oMYgAK53>c$RTMH({+9iOu!gD=Tz2MqTAv1%ar!;s+!Z2 z9ov$<&X2Pwy5pHMvrFbVsvQ-A{cyD<1&PtnZj<>W-qt?%(tP|mW>_#IY3|Rx$MF+s zoEJBvhMa%4dWz4V&Xvj&4%1C0*O<8Ar@Zm9`_Va16$vwVsw5s(JjT?;VEwaCN-BQv zR988s^g-mBdq-91QR~<5o}5&#VRhAnqMn2f{h6Ki5Q_o^bN%t&wh7@L^+%(@muNRA zf~vi6k)z%2HR{HB(DNMK3*+ER;NNaN<*_=n`b=DKnjZ4ex$X_KD}+qj>G7q3c~$aO z#R|JI?#fVsDdM1mXvWVy*8AhVn5%hL5%C$+be*i?HSkG1)K}u@p74H1rte9rH6;`|FGsbAZB9 zN7@lse5qvore^k*_3<6-MV91}PsB^kS!Xj-zO5hC?_~tirO@#kt|MrFWSdlaEea-U z$r7evP9d1hprr`BwG73A0rgx{Jl5n>96oKuP0cVDBoC%#`%dDv@6yWbL7O-qUzYaD zBA*dwuAdBUXo+VPJhAz?EYS2S5r6k6{e5h&;F0%!5LnuKrM;@ptaeOd5TSUXyDHK^ z&f&7d_oC~gm!-$-`?)GGPhXPXOPTQ?huw7}`(}2@!IIgEko$99Vgr2yq-n=xV+YTc zlWS?k;L~wO?tYQA_(9+pX;b46Pxfw^3c{m)r_aPh^Sl*P9@dyYjxhL{{KDr$n6Xv7iaa<_VEHK~ly;ZC6LQWDn^h`HtE=d!Hn+l>-xz4^s^LM#*p~4? zb+)|UFog8O>Mx}%^*@;xs>2!pWMZs2ABA(5sB;9#MwZjMV!CQ%cbZ``h^_8haEa`& zf`v^jM+$SP6qIDzyB9hs4PSm>ZU>ZVCL-9ppJJ?Jct)My7uWifRpa?!q#je*>4VQ* zs>7#V_3_RmU^R4c%Zx{0Wn*X7NQ`?>wvs=BiV~|n33<#xXo9;BK^2 zUChgtAt4YRu#W?-Fol@cEhet-Jr&D=ecN6qKQ-T0%prq*6fgUNh|K((dr8 zB-ISp$?)4>J)_!rX zLg%vxt>$9qvmx(mmccd=pEyUZNw~Bcs*eX^y!Vz9D^{xhC`3acb$KV6cl;IaBI@ue z$5(l6qXJ}hUf*#OXxlH-amNZpHCVKAzz(tOYwR4^utf*QElECOh>x;(dILc2qEc_E z_c6?{mu2Mza4acx0t(NSRicIh3RdWTgRHg2dhLtT@h%fzZGG@tOg^EfRQX=srlDbRGZV6-Y)ys{c8B%a6YDpxJRh`a z$DyIuXal8S6mS}C{ZM&4?Hp`uHbVK>BOKlY%;YE+!@>w(!?na~VGPsVsQxC~z0}LT zGgQleqo3nXH0Kzxgcw6Ku$uf#z0UhGikKZ)Jy7%e4YV z_a78!`84u^F8aj|y(&Z8ZViS)5Za=|InB=nOZ46_OC8EPCR@d;PWV+@0h?1EJEWU2 zqYJ*EF5fjsun#e7>Z{pPJ(J6zmH<)P2f==hcp>x<0ulx62w9;TJime=iHY ziNC3z*EpuWO@5TEk@YL`R}ZiTa;g$ip(k4?I4ZaneJ}Ew^|j7x)X}40P7sdQlFgCL zk*g@=nmw5HK2op_Zd6-kvQKJO*pl6n-;xuN6_FQF@F_GdbUOmN$?{XYFp#8tE=-s` zpXECWN~AYTWKqyA0;?yxX|z-C$+oF?yJ@?~-tV!vXhWphGS&^x$a|>n6MaUy_Jpq( zU5wju){RN&FyoQNBzE(zDz4bP!k@R?pR4j+ z%|%81tijHEpuTRGFk&Ko~CfxC5@TLm%NTcE(vQWds zOWW;v&sTt>=p?*n;NtE*=1V&S=J5~VDh+m}xjZKGGfnKWc^Mr^NT3BfE*-Hr;hE!8<2=g=Q@r+X@T24LbXut&WQqx` z7!zuy89*(;QM?~gcZWWu0_9{N@ruOJ5*<k1bo{};7r)TVRj5cXOo;5b)y2M{(6863bzG}$p1*1eU06ci;$2MZ zdPlNOvQ>UU?ORcoU5S}}7I8jjN7@~B!r^NxHg*PN*+f1~fAg=wzqwF(;Qr>LLwIv( zZ$a5s+a`Va?(JalT8DIO@RIPEo|`ni9WR4!UvHUeGo*wpS+bah&Z31-UE0QsSnK#9oLAEWkqW?_r7~oo1uCB?gUCy##a{lggax>W9 zv41l(nyhbMp`ftNu7Xp|J7J|LZMNgY$Liec1mEfcV#nI}Al{6b?#r$a$_-6C#V5?n z0%C0SDvQTBek;ix<7wE+n`)__oAt035P<7?MHfKbcx4tqdU+)gz$AgfbpV8*luvN& zuWVz9(eg4Y#M4!7>#~39dJtu zqbQ?O0^c;&y6OEi;co4d)rYfsB&!d^Cvk4Z?Ng)$=7)VKGZbh$@q*%{eZhO|R|KRK zF$qJLs$ThmaiL*&fuUm>dwhae%)LIHST|5pBPk;a);+FW%st#^datC;^rhsbQCqM0 zPGzGZ@Tl=Hk*APXLgpyZu*b?|#<0NNxu-@Wfym{-?#7karhza8*&fNRnG51MRZh~> zWwlFj=19i~{vNoq<2l7Q;y%tb$!SwN> zpM??bhTDfQKjedTdFe=4_x`3%{TADB@_J`NV8RuVvIM&b)7^WkjK^?pu`RFB>k7mJ z6iRfV&vY(3InTPdx~=`qi*sxGQ`4C~pptXu=RfgZqWpabws56?%pW5C;n zN0+QueO({s0sg+3GR6_m;q-$2D)4KEy!XTNJ<*jAx@YdjK31=`?I@*F zG&bT3LKAqCLJxgH1OjvdI0DpE_*Ar1SWmbM8k2Glg>=MJj8vG^vW-Lw7z;{hOYGDd z?_{4dOY}MDfi&BTtQJuF?g9qT7$*$Rgyf6%fK!WAOIV9ni&1M>L47*(p)nogyhyEpVR!@S)e0aOxYjx;^(a_4HFU`mjlj$A)ETF^akRH!u4_hEn$=Z6O9@2uA&N}KEuvZ^IHm)c^+9p1$(uY zO(JS3ta&WPf8$o&=MNN0r&6XV9u$J#*fp$gIrPQ5x~cZ8_|#d>_G|-2g#Z$OegJBt z!j%oPj1j61(gWH-l^WqlSJ%Xem|(qcjpO2O$Mea#^95tmpV(0( zn#U3}F?6}V<9Y4e$pz;)(W}pKv558$6pH3C2Pu8OC`Rj~hjSe5&G>v#yyK~Xi2B1~ z*c`plpiIOBVDic2y@>$mGl&7i{|VIz+eu;U=gl62JHY+YPG1Kluof9MjSSU%LWk{U zOzAKsW15vmS3s0UG+_C?g0lh4vee@a&CQU~9e`h)LdY50`!9{#AEm?4jA=}sJTix? z4@|K!@R5j-Fp=hgr3XA}Q;zxBTarROVc!1O?l&~YZ@$wr8Knh0YBG-b(VLPaUG&WV zZFbcQ64w&cMjnqVK^XDq907K)%VpK;l7?+z-p<&!e~W#IodS=0m4*-h2ijH|{x^Y? zbky&gID8A6VOP7ksK8#LM51rw=vD7U>1F8^>m~1nV@A3ef$?(@%^{wq{a=s*sc{&F z*+n#hc>4be#{Kw$fy9K!1ow$#G$;7#AorP%E&${I4$_$(Zke_2x_}HK+yg z6S6Ai1)fRRe(pP7k6z*ZA?0vQ8=#Y@t|*@e5$9ojqg=SeMjBMFm=Xn1si(yM7c||n_ECEjO%z5g zni4;1P<>?je+G;A0laxPx^#Yc@;L+QCT)h6QH=>!2+Do19T=!5{A);jA~jjN-K*|p zB)LMlaJiJZ*dPQ^%U+XH9Hw+|twnWzd|Nc$-^9e4tRQ!1lBz%SIs{8I>Y4GOHncN( znL%96hDN`xS)IC*R*N;RSX-5cATYhinNWn`0WaZPfD`5g-~to$A@_Z*&C*P{u}p-& zp&CG`NyExrId6fl$ZcMkVFSjKOhMGpejo@&v(b!hgFW$#KmgdjQ$Zr}V*m4T4du24 z_t=p!@rFR&8;x2hB%V}4E+(&VNOjhXZjU|jia_2AtwSj6WjFErA0YRQ@cvY@n2M$Ne^LG9Dr+TbZiPok*Do`kb)S#S9xA6OZohF4FBIQs zc|1To#!_6y;A=fGWTlI z5+{rqi%AFI1>6HLV_zMK$zVxg!U5@bsH?vet3d>LS%JdszsGj?@l-MI2|>%SL)?Hw z7<(C-)o8^=lC)X6UaMY$UY%aaQ+%s^j_GmBLV6$%z!A3icX`@>B&}hfLq||EjfVGs zWUC21NTS!JcL=Bg!w6FWV+#WYbX<~7ORl0WBQ3{#Cx$0RG!T1T0`LGv5!AU^P)>o`r zgaeOtDB{pRQgt$5@pE28O>Wniq)$rN9gD^*2{Z>LQz9GRDJyKpys!R_8@ zg~>5PYLPEAF6omRcE^T&`juw2U$HSX&8lmXZV%@F-*!~dp-cbB%0KS*#0iZeN&gX+ z0G)zbU8v-f6T)dfZV@%WS92An9R?AA2ooa8LX$tx4#We)7V?s*XJXP%hTIqXZkzplcB9F;bc*0cuMQ9Aie|UQyr?7=AWa=rHWn=$zKfWS2^m;1+ zB&$tY$cQ^p%yTp`s?kibqBsk!19PdCOQ z9+`e5G;vo#{)+q~BsN?T@+N~p&B>Ty!=aM95)@bDA0V;6d}SqtsVK;>;%fe_hm@kr z&R+Fi3OWg55>LSmUH=z^AL8h{R9qAv2mGGBL$GZ4kGAOmECS*J4fVL4FFr+w{xVwu z>2S9up*xrd>#u;c{td6y##3V86yX(3yFp*Ld6UqU&4V>o{(%v`{iH>3!oW7F#jhikFoxvhFd?nYEyEGMj)I8W_CD(wPF6DoO{Z|5Ld=p{;yWJjy zdY2d~K|i14li`&7jTQROzuth0Ikv-$Lm=KaYO9}(k4xMZ9Mp`9Xw`4NnhQQMifnu5 zG^d_gnvZvneciXcGp1~_K{tb5yAWP{6h_U= zON}|DJE&v&A(E$fw{gig(~h9ZVz229-bf< z$`$@CWR>fa2>wUq_C;DQ*x=Z5`FNlWv()5sGib3YWcAZ$8s&bx zT||DIM~vNYcCDnhL_q&v1Zmw9p638UCsHUhEIwb;j3@RLV|INBqk!~fu&a?sQ2mJ{ z)$)?yl&}VFjU#N3Q{_s!mXjaU6CJy%{8sg-QLNN8H19q}^qlPNM_{`G;Ju;mRth-2 zvQNPpOe@R385OH?^$ORGO!Z1X4a?UG?}uqfkicGet#zUT^sH3J-var)a+UE`%8dU$ zBzeH|KfZIj`QTM@CqS1h)eI&j4j>=h>+|SBI^G*eiCr>Z?+Mz`B(B-^BpD*I8h}!S z@5gnmDvnWPG_@s5dDtotuk|~e%6^&DFq*EWGX!inZ%B+$`gp*XW+RrD1RgVr-3I4+ z3zv2ybMMG4N78;}&Hh2+iS@;JMA`aY43d=VD?IiGk~1xo(nOT|%3AxP{QFK| zfCM5137^dNIQzcygr|eG0tLbTn#Ty@VC+jX{(7AS|6MCcfX5U26w5IX%nig?b#^+! zJ4bW4oz@D}80stIbYeiyl!q&s?JeW9u5Cv40Ld*|(S9w+`Vr-!zKYbETLr(Q6=ciU z*Q5kmrg5^v=50nM9zz=99--_l(=A;?ZA=2`bU(vXr@(3fwA9Z{6P}Zj5u=L&&8)BR z)}Ih-H3Z&O+rtiB^;P*U8_<4r&4M3t2-I)sEz<|hqC;qI#jo~=Plb7#kPTMhG3?b< zg^NgXyPB~KMzxKm9e@%%i4OBS!=Z+5SRONS%TlySd7gN!^)sMl4<|bT-ewfyHOy#S zpc#>lxqpCXVKW)AKEglO{l?V%lH(Sg1+oVmo&wEy`l=Q{i!e^M0%XYlvT`fz zky^Nc`n0`O*q}vZCop`gJM6k1f`FUKKI8*&wUfx)!Beb^unvXdhm7*KtR zSW*qt(C#f`tfaMW7QDlDK0)DaCL&%#XCXmMsRl}D_vSHzrg5DPQFz@Dh}+>Y3}Hh5 z8=G^B#Hvfss%s52@8EQd#p{lcxr)y6g1}-3lTsaf=OfpF#$pf{G8P;%2FFtkB+~AU zVgwE1I+^jb))B2QquZw-jT#4fjKS@F4?flwy=A-#mAqxleZ;kD6@1&CRG&~v{Sfq+ zRW>E&yI_xv0`bOz5yyh>M&ZnBM9ucZ^!LOx_UL<&ak^l`&kzx6fG*miZH&3=xZLl) zj0II%64hr<@Y`DI;2%$92Ucz&>`ek)baM@o$-!;0w;8#nc%`0*_5S#Yf^hQLFw|4P zcuUa{j@)mEbY6)6ofms+r^<$kBZz^L4TI3|3Cttb$B_&AIPAr}`}}6tpeBw372jl# zrRV@h?%$89muPQa{AC;#w?TA(Y1obX8$Z$KEcCR=e?X!TT-qdpc>`J+o=_i0>`_PV z*+`5 z+^Zi|U(iak&EGl?Un;$k({?2J(D%M54$$C7r=7^piaOv*lu8J^D#0D90_;58{1QvB zLP}qr!U?khD-08oos8bH&Iu85KtGh$*&pSg#MwXkXT2hxl~wT=Q|Qmyj@DP1j&XCm z;jhNd#>D;3k$<}Cd6VJ30KUM__jNt;{_QFZ%O0qsk7gzZlYDy0YK-XQ$Uc`QJi-e2 zsHLj899`Q*1!7r%Z!`;3_Yp-Bl@X=wMFj}b24bl@ijws*0=t3!z`j*#Ywp(oA~yUB zma_@CaU>>qUql@Q9k>VLSPWhO5FI0|745$WKCG2W2*=fmNi}2x{iv1d{trYn6SEJ( z)@yea-$hRuAUk3%+fVJqcy{^+g4ueHZNhU_w6h7*t80*h^qjXrrIh^BjjuHTDHe4Y z2?uZnLkf6>5roBo{eoA@2834y36KPH37A$d!vK&ZmB2K;nIQ_Xwf~~Z zvBHl6wkdJ~9s|yFSH8GF7kXm}yyIG{`IX1g0`w-Ikc|{fxi(uJ;_oAibIce>9eEo+ zsn+2R&V#_;`}SZl7-wtWqx7cvsy?vL`QqbrqoN!H|Ayq+2$!ZgE?Yycm~?7T8#}%g z_yvNqc+VEEMqaU+m#Ciu5S)};W3!4{HX(Gn!t%*6@f*}@^2-|D;LNFzTqAgbRfY&I z(^onAMJ((!sG0rtDvpa^1Kj}dlP(=4*fApxSE}b<7sx-+vpvS1RP%Cm(VpRKk zp!fT?`TtRmer;No=hHQh*iR-^a@6`WN2@}+VRyhTKfr|q(1rmtKoYHn`?Lg;tB$wJ z1GpjrK+x%mi+-4AAb6nx7V1Amz`QLm!9>Vd{}1=EQBhJjH~XJH#-LW*C4rIfp9m2? zN3FsD-oR@G*|(uYC6W8kp?-$opB(_+Tpw6Ik*NY&kvstpNEh!^->K>XcG*Sa04TZi zy6wM5CuX_uuW8rHIIOFQV(T*Gzpuk}$2I`W38EDAxo*IK+olE325aL0L)`)l*GD6=;3{pAdX-J2@G~eVWnc z-60y}NR0A)De#iZ#21~w7;bQ>$d}L^pYm);&DH?`2KPR)n)snN?T0)gM70{rM70GH zy224a5h9_mg8_Mi>!ML@c*vNdXm0^Gr(?HXE-#DH9`Wpx?cLn zi>65c$+9uRoi^~r-6SBZcB=2P+9PA^+lGM@a`n~Z4~V9TKW?gVQfRu4Q4&6uhbbw@ zoBgC3t^?eA#?97_5?Kvb0Pa2HXKSCJ08ZFX&%)R_G|b&JuX(Q7Pmct)Yz(eB?AW)6 z(IOr00ppt_$=QUsS-y=slGbQ}+(IEfu? zy*TmQkd|tjO)7T#v_^uf;)l-Ewz%<|l3LWPv4mP~6Oa z&UNb7MtAGMgC2Md8Hl=60Im;plE8>X4o5s=r@#^=s7~g($k%jqzi((HI65AYkOIgh znbVcP*ebAu2f8*`8_y$A$ngoSY8F_+ctW{WTY>(m`JJ1{TbYFl&>~7=8!VtPYS(im zbh-kmv$=r1@$S7Rc_;u4Lj)phryxpc{#^jw+n%J-^{{FX@P6NSDf!`t<^~JbyC<+^ z-}mXiIZO^mc9D+|x~mc61kKA0x(i7fb`4>#cV*-^+sCAKggT#jTqU07!dtn=_?Lm-#?wjcCg{=cUG54&;@)Y6`3$84F2 znsE?R(moyJA+o49&4I@;q0VRHk@S(_=K(@}f%_8l00}60(8e!V^qoEt`sW6`?U)+I zQaBH$eh^KBobF?p9OyR(bJ(8~G2rd)O*%OpYI(wWZO^Qn(Zqzk|9tv}f{XTmBq5#MQ)VW3a|h^#MF0I3hvr(2_qC98$us@-vkWMHLc z^VTP4BVpM-K9xM7o%KY!f%lm0&E{~VL0^;ECBAw`4LIik_Psnx|DT-5!2>Y*Z$EiL zD2xGoZ&195(-CJcQm-@0Iv-hs>|Wq!yTd-WUjOPCBe7;w8y!4?qh_3+@pL ziZ1|SwdF_9mWyy+8u&kKdu<8pkn5bKdWcYow|Xe0DAufH$lzC|i7$%^E`*DBiQG_J z&@J&vMffJ2R&hxj1gq<@5JVa4SyE1`xC{=RYA0x^Ci1}{&$(&YtmK=xH|AdGHozm{ z<)_Op%5c-9WJIK}jFfIxaUC4e`UFMH=qjlQ<#NIE#iGZvZ*J<+oG*s3m)NA3i_Og( z4^BV!)kkEZj=s*Q!f;LNK257XWz{<#b5iwbfHcN``i+I zO=QH+chIH9bHaWdh)KGDJZ2LXN#)w(iuFcRm`&;M8j?`)M?-$?iAg$>QMAX!>y1b= zn^NL^P5A$at+G>4(?>$k_JZEqw|tpBvryj-g23%tR?MCms5u8?c+%qrumBfPX#Yz} zJb_VoCFj0Gz5f?GEr{nj1;6f+yiycj8)&>J!sf4m$)rP|)5OtaX_Yr5uS}k5d0zY) zsKJDO=0Ht5O;9`~G0}8|H~kT`Oo&9KP*1?@i6#soN8rq&JgP{S#7Xy>^{V%}iQsOm zp%FP?SR#w?BQQE^SFs7@D(&7F+X_jIQ`l_R9DHKJxeYCR)aqV+^zozHz42nW;1vQ` z%@7R^{kthI_E&dNwsA$Mp1~IiS_sJ&wQ&uNh5q$-a>Njt3yOXV|0)5hg1sTrHxn6WG!8UzpHnUAjJuUud5K5Vk^{A;+%jrDSQ%zn#L?$@4`t`@Tj zcEQx2ro^=h{ZLMqti|cKJ*B>m^5_%n-p1aVa(8I6$8>OblVHGi5N@fR$-nLZzSJ)( z(8~W1AO?`=v)|ybW^oQbXYo}4Q4CZV+7>IS;BDWC9fsGDc-(Go7ggJ|=xWTyGv@S# z&6X#US?3f0nGi|Eg=md0pBUET4bEd$bQ2=Ue;nd(+&e`{#J}?hvqg2r+*sGrTa5QS zMH5F4YbG2)L#gwf7wasjRW$Qr@DG#oD7TkcYxLDUQIXCc9y}7{4`|tkL_yD}gMF6( z!=^9rCMb1B7@+eItk`+Uy7CoTE;*aY1MAFX?-d>8UGEm%%*lIehlbac(vcr18@6Gb zyu{8N(Zq8lL3pdZQBe1I&wpB*I7eRHE={Oe8-r=)lok0^o71-@uqUuKq)$3c|h5FUUz?InERAkp#FZgF!-0(&}tv; zuwm~jqa!b>fFg7(d#{P`<;VfCvIAeAn4b*4_{DwFBlrtV2jAjXFsg#T`0DWa-08vv zNB^euI5SsABSQP@kaZwnt}iUvw#X}0LH#2C%?<`=01aG$K6Kg=hkD$C72<#e+V;Mx zZ;?Q)y#{u&JhFcBse^jY?F-{#lv3{t`_%QSe%S~7(uE@QGXTJKnUDLp1rUO}vgFJh zw#@7cW4+AB{E*0p1q1Aq{S1v(e{!o|6uekg6XHd8nR|mk$1@I*<|37Ce2i}3i@Xnx&#rV0}kt5ALM{M4`zzlBD2}V_a&p_ah zk9}yM_2N?_hlw|FQs)rA=&`rR20a^4r~T8|OY`TZo*pLCu1s&2 zxdE*88;o@c^f1~z#oJ~zv61)XEz8!Lfo0t5ih{B`-sO7~F_i)+FyfgXTIC~63-=NO z4KD1xpuOZrL3R=8CyJ{Rm>kMa7c zh}gVurTCq+lrSJO;P>D;|JxMJJL+lkDv4$$6gkYK)$ViT)0Ey>%DrYp>BYa^Z$%o1 z-2zRV?{CP==(^HbZ^-@Haqi;69!llA_hA1f#^4Igwe#2FZ1$|hNM~s&5tWA%G@E}7W_$WuQ(9o> zkp`+o1U{FY&9qn_l?lpc)+h`n(hKI+s{g%icKA2y(408kXIUw@S*gEx?!BcE?T6U0 z&ReZNTaz|_#eK2)g9K>D_*#P3nOQuZkaFgw)2RT0$5irXSM87p7O8%OH{(O(f#O99 zB0-jXHkwZ*I;+s_ptZy*>8_}rxkjhEW#917^>0nTj@i0Q6xP`Qzj&m+#x~1#)(ThR zBt1%fOKzWf8;;euWO;wBB$-xOet(?ddKvfkX!hYdNPRry8l|19Nl+Yl5kB@=G=4`= z-iYzv4RlZOGi1IK#=LkXf&hhd{H%(fz(Uh7zRmWJ7&8XJ5=Mp6Lb&GQ)u#Z3b~rj1 zBTiQJ0ajCMc)j-$biC(6Eul(ia)c$^*A;F5NGmgI=;=_qIX}tQcYMwlmc*Q)@BA>2 z-{;ZYu=KfU?@Ne?W#5w&`IicnUMx3-$_=1AA{5M@nY+v^;Y~?Wci!uD2gM!;(})e26Li)}Rr~6`*Swh%yS1x@C={<`%#tAG z=W#u9AxiSZk|^cJQl8C`az}0W(pr>0YkW`gwB|1+^l&nI_{MPEz9}N~V3;`dD*3^F z6MD!TJ@i9;T63Vvh1l)6bo?e8Hz=MM=}uR_=DN;J8U*F6{i z0H1TfhlK39U07b|L8?ga2%2Bk?;eaQ?Cmc4xZJ4QKb5nN>vzv6_0i$~=ux{YTB{9sG6|^Lk5ayfolIRmBmFVCL^R%EzvH4s& z(kc}1b7B+k;EVFKz)iaO485l-9OrW~oZ#@vb6pKo>ba{;ba*A)(|xCYT2P|ee75>9 z2=+PIB;R~)9c}evep&#F_uO54*n59y0D_M(l*3tjY2q=JA|(>@I{07Hq0(z2YvE`0 zqqXUFV$r`oaoiM0%WYsskA>~LFOeq7NNcD5Ee^-M`+>vNyNEhVdynFYVCXMxLSZ>* zafSYk$?BIzJylO%6;2OX8C$hB?ca3P3ije|(BCh2UoLZpSB4`ev|h@s zg89ov_#djjRvR8uC63DH(?~hiLi$@DS!N>fsD6c>pP>CXJs%3#}YOvkq2wtk_zqSh>X>T!y^GTd5!m^I@#qOs658>U_u_qQW ztKhw?svl2QsQ}9H8fChR{iNp%2?n}~`eu!AY0={)>x`_5I1)lsD5F{DHzFAIGJf(A z1@Z|*Nys!7FOQrt9WfR8=z0+zx)ky9MenPQ= zpA=3J8hWCcrQvzU=A%O6GZU1(4Y`G{d&PPll>FZmbsNQfga@2u5h^nDkp@4Cfb)_Q z-Q_ytS4pe@lXH|Kp|?@DsFM$}5XT(mV%WpiSwH2209U9(#NuEcVM^luryrJONVCfE zMfv11;t~m=*Hq~Has*?k97%Xqv@EmA21WT@(&C`_&}(w^eE@ngD#^YKXiKaoDfXsw zRv(uVM;e|nqaXxM=Ap=&F~c|%P6m)SQ;N&uSqo|Nf-g}X!>aku6?M-xc1ncs`JDfZ~DvG?8)nk;xRTTzZm$LG>h!wo`O|0Gz{ zqg>nK&r*S@!0XVrk$WU!k~qAdq=-!$W&|oCT6qi zk=>&mCAY%-w!7x)Vo+B!)5xETUsVLr+$4e%!6ssj z?{I5=DgLRxO=2D8O*K5B$kcd#gP4Km7 z7BD`R^u6%<`<}nNP|W7%Yh-~;GK;O{#%pcm-7KFNiEu7hFy4L??FH2n7A;7-=NGp@ zeC^gtg%8f*;+_o;nAvdn$?)26lfW^6)0?#4&zs?ElPtWk5FVCXYdROD)GHsc2#8KYZIvS*Y$s&O5DC6NVaXf*x%z*DWhHQ!Gbk_BogHl6&@{bHnoT{M(R8}78c{#b>US8*5Wmvn3dx^7~fsq1(~Jy z7nCzSl(ejctz3VdPl2fDl8D;11Dp5b=TpWlf3F6-o?WV!y|ySr?27MK`#ZKP>qs6~ zmc}2SRdq>3>_EKMkMl@>`q}4oeZ`ZdFdEOP7Tfv= zwye0dF8K7*IZ@wYF1Z1yG4atW|4bO(D{E*mbL9=G=_Q>peC3VR9e>lv`iNpc@4o)o#slMxm$E+gVLpfQ?$)*7L{ zB+u-XT4Sq@#+@>&- zTmF+=)v zw1TDvq1j~r^}-9J`v(;L_b=kuLwT&BU%rSF>5*a9#9=kSA!`Tq0WOY6et#5&^ZOJ6{I>P~&wiWZTu&ji zgsl`7XSZ$7=W5!QZ#F46w@P8+R_RO$mHF0G&(*R|G(i@kt~N`(^3!-5H4C4sktJhwQF z){%`nBYvwzyV9CP;QsMPg{op$x6;NV@{V6aGuRnc_jPG0GrRegCG-cvGX^YLEO zysm8ein~WT8D=T|D6CC{~=N2iW=iIIsPVCE{tBZ%@J5KtKf?FQ5Iw6Hr=68l|D=V_#Qd_%}-05`?d4=K{8MX=|Aue6fW>&!6FlurJb` zs7jfY)gc^^tj43;14or|HnUfr$Q{lpcLddxSh*51KqPP<#8f%=UNkFbmyoBb+WTe~7!0^T2muc9rW9 z@ml|!ggy+6>MP#gj$^|E%-SF%aq1u)g}kUM0E`5pzo+sDI-aEj!Pz)$Qq zhqj?Mvk(J1`!24Y6|dL3U_@94WecwXQyGxl$KG3Ggm>v$$CieA5U_0IQb)A}V~gNr z1kZ{kP`haXqxHE8S_9E0aMTDZ4XGr+t&h*hjul4$UI1SJxeBo)ur#nV=*S3R391TU z9u(cnSVy*m{Ri=;m)c!1*Pq8~Wm}CbzyDxqBPDcT5^c6*X==9uo{mYHDR`b;8V}w| zC5{WBoJSfFQ2O|b6dh@{`bus$YPS`x{L!(3fDZHk-HCT(@{qi`mE%sh&TgORy%8C)26+Mwo!=oBlRK}T)2jv1T^>I zYWg^N<87R<77ws%#@!wPLIdwR!cQ!7hBS=ElvY=xN63oGa!N=O`79 z(Ss6LCW_jd;{G$ik!}k`*7>abYQwZQQwhR>GJD*hyK)id)R-s8fWh9eIxSy z$(upeVwXq9gWM$^Ak#82u=zUUV%pLUPGgPSm^~ZLb=%g~F-M?wo<*K&%X$Bs1>t8u zzx46OX*A0eRyzIHKp{}dTFC0qrorm+hBT3#(RZpH=7E(Zs(+~wB-Yt*{9}=;yNvt% z?9eAR89`}hjtIMgs#jyaMlQ#1(rxTMNgXY#sJ9`@;U_0N34zN4^=u9$6;Yk_0 zGvfmvyIn63GkgQrlR$H=E)Y?BFzSP@v~Bb19qj|Fw2Lng<#3?;$kmg5vDfay&9WuY z_48sM@&xS{9`*Rcps&)CQ@GCtB`HFETJ6f-+}H2Q6yA${ zQhoac-l}~h-1rT7^xl{fzJYF6I2bv5b9vlnPG`8;vrlJ1HO*&C7;N}<9$&hT57KBE z!=Ou1x^?ZuWobG&cew?6)fnWZZm*HBjgPRx@-Eh7+oRYHZQ{AG;&t@7c>TPl3BC3X zy=I}GI8@JnVJ?1ZU`^WONdogE8CG%_CSDp8kauPj^@FF+S*gDmQA(p4tzC zx;017#&(sZp8mZd08MmbY&bgPv@S!q5{z_d7yi&JS5ZZOZJ&Nt8(5DXZ!f+2@qYeU zupsdl!%L@1)9eFPwv%au#dE!9p$bm+{^9Y2yN|Y)TDR|a2Vr3ihNnAg>^sH#lfU6$ z1La}3rfzJvN2c|lhKAiD)+I`+w&mEbs7}yhwDq2~UK)v!?i=>JKUI#Rf|9!c=E|?Y8~3Gm7zM>|C`l})BVn;DnV>P!qEDA ziiI8mlQT$y9Y>>S)dWg3=esW}gWJ86(3SK&KgyYgWG#KchRtOJL(;r=F)*-LSMEAt z>{m8#*)E3dD$UqwSTk)qD%FX&i3QH}Au+pqjaV+%cB7(5?t#hr#PHF3a(H(5l1zAY z@S9=S+amMPNq^zcB%vh);Tx0WneO=QlU>qgaKeL_$)V8RsgR-)bs^1S9!+im4d~w} zN7D=?hkHuFZQs`q^{?z=OSfe<6AS#~oXFWptxk$#dmsTnHE8vY3!8)l^mj6 zir=tG89GTY*HFQ`ge3*0o!-d<_|MzuB?Tw(8K;;jH8~-$k%o}G0h+uKGd*M^%Y;0W z;wvz|8gm&d-YzD>HgLo|oKeJ-;adyS^5R@@yde%anv(s3v65`nhhO&TktywB8QJ`c zz8xd>3U4*n9f}_rh~#gujOnyn%GZx7J6wg<`EYaXF|OZfb{18gR{7d5Tymg%j|Bsr@~^aXiMFKY^QeDAN+M(9@%LwqXm zIcvfHAsr%+WMaYc5CXwEGgYlsmeD7yKg#Muf4T5@qEy^ZTrc#YU)-H@r1=fDwzgc9 z1_i?7B1~%Ph~r=>?mp`QJq$Wj^1V6K_g>q4xs-2U*`Wl{YUC-=E7oS;$ZK>@*g|w4+#=fi5t#$$RKAG7c>+U z4k8p3*8j4zGqZPNcC@!RLA!K0+)vmsHZt0}yLCkVxEe$Kz~CaiE8ZDnK|pBX&tZ-s z!*SWzSmU{B2@W{vv-}P$e8ThGS1&V}wh0Y~>URl>~noxKcRS8Ss9 z{<^a;fUx+6x9)0aHzQ)?1G9<6lELwCu2HQpqpu%yQpFVX+;wi-DSaqpzkU&1C*bK` zEp5NSYfq#Ts;LuO13h^80CGm$Nh3M^d3f>ko4p>KM&{9b`h*vX2}93y<{>~wuG0Ms z;toGKIzDWeq{~N!`X4Xj1_HkSE-dK|{P3{r$E*0?UUszo0s4=Z_tj%HRUdHPyB@?m z^Q^G)Bh#;gNJXP!6jXVW?*-ve zP{1g#Cw4F0eX872n$3>S_gq*C(5m{ZhH~&}ZDMogf*16#=eO~?=Dqp4;r)=p#4t-q zfCX(S8;Pm`#b_*Sps;h4;x8325JCkXrD1<1aH`!w*UkF$TI=WaHo$Z^y_M&BLC z@AAgxGI~|{W@qdls93yX%}-LjqB*)9=Fvb>g}>nSu2|Y|$o?bpq_13z&HiekTD){& zBdSYb8js>^%9|N{*X350II#@78xyUn_ntLEsu~MZihy1`{W^*^j3&84^fN23UyT9L z4J)gXQ<_dhpDEC&$PjC!eA;q%Iw|mTBs3G^mO@p)H4H=T1N-!GUBaWz&G!XMN$Cmc zi-b`*`YQ6Cb^!z4>Y*iPxZ?>esUV*k-N@b_SX6OG+GzX3qMn>+aD+5U8ht$)!MRlV z$5ZB}Oo7+lFr{pcpC_D1*3S@#IQq#xsw$A3h0|ZuL#!NZ>Ws0R-;5-k$dcAbe+}SK zJ1U2q>=Q65icJoiUs5TzU`qSE4roqNaF^)A4SxD*f*Xvep=eMTlq;rX9`s#5uwofa zG4cLT;6Cm`Wp=V!M3HIFUbv95acRCl(hr7@nShmzSTazafYcjFp5n5KVEnF(-&pcN zMS3n6DY;Qgsi)a1iI~;oHa1SU)FZXwOP6vP=`W!&p4$@HCa9ovvBc6y#P zG8Hgb^c`cFCOHoi{4joW#ZgQv1X@xGRK+2WfejAlB)|iLvT>x84ITvbu!(E1 znlgQGo9tG2^f*1tbq|MhqZUtD4m)V%yRge2IF9PSUk>9&!_1#Z(~IEh#Q;C6_1La_ zrHx2}v+n&G2Ttyx(HHd+qw#N_QE_-=DV3^-lrBJg=ws9c3u;C(Fni#q^ivL$v#O3` z9E6T_A4?(BT`5AToD-LFl~fWB45Wk7g=10Avw)j^ zL2WS-S2q8p{zw94X_vnteVXR}UwwL#n`f^n?w9+{H?q0P&v`%Ph5;%A<=cTu3HWFk zOgr*pg~KF*OR3DGfa@VZ&u^oqLJ!_#3XVZ?jq3o3d1YQaodMn{&-K@n?R^KuQ0~`& z$G9fphH%0%N4(A^RW&5r2jp7xqiD0R)ev)(BfMx6kBGx>QmOZXBpWigY_(}k)$!M! zC`W@#Ci^AGWj0;p)1C>h_m;_MS>+@>(l*7rDyi;=w6!N~pB9|CMjqsbU0Pt-{n&lj zf(J>A1>&Fz`^deL$hF6$-S*F;f0Gnz+QMHWLvT0TDA^I@?$;SY zd9wYjl@Swo=#zRcpu}X1X~JaODCLH3Z=0LJU2`))wl7=T@^jiWDoxbx8PB_^24l&P zGYcGqGB?lN1X1BiGBoRG7@4`yp^yS0fbcq+Qp>wln2f(t-IfUIEQnO=3uYM#_K2WN zxJ2C$qrI*2xT^s(VTA$@L;?o#WsrPMKclJrDeV^TyfCAvf8hE)_FePSs;UGiH#XVs&5&Q20_TN^n zpB3!-8xc(+(h8`iw{c1%1)R#udb<<2X{Z+^9bGpx(~O=(@1YpMz(+U&^sjEU|* zV-kkOO4ddt7}yGP{FU38hC1`N-~&0);M8AcyCLXcFoyUY@qZRvz(UJKhlseT#^oh}&_y78dOoQ&OIXQ`d$(lh&thr35*~$i6 zJ(Awe$|{=j0zw@xieA`=)MQN@zDp{;S^^U(C&|2b+^xt0o1cM5?H-MQP$lx#=0S$hM&Bm=y(JLwj;*rEiq(J?TaVq$dab_7j;# z^ikRc4W3XN8BlDAqSQUI_i%%9itGEk=_Ia}y5qX0uy2HO7>AC!^Q?PkM7Cb|wnizo z`Xx#Ez92nG3n?w)^j7V^PP3W=JBai`gM0qgHwOpBJ)^X^t6W-2GLhP&JDx$s#UoIX zU_D^AHI`9zX#j?k!VQ&g{;<8YQ9xz8hZVfXO(NN=AZ4yHq}|j9MW0n&4onbeEvZfC zqA)(e9G%0nxi{hhhjPBn?XK2aXi$tMc6V2^)oa?JMK}%%vLLPz){?%sz=!oX{v`<&VQ+>-M8 z=5T4u7eq>f83s0wv1qzo9$2pITR z3pUn!S^;?dEV6>UcUHr>Q0`qnzhIOj4>%y0FAhGpGtE4Yco892FkRW6*+;Q$a{pdZ z-;F>2{%LWTR%=DCuL=QW!N)3in83R)Gv!ZVU2WXH_LmJCsY0()C$u%3@CEOFwxUhE zw7CIX!jQaQ%)SfP}?5Fd!Lr=HDI(o75-cH3lOW z{*Bbv?tzWYxYIaW4LJ8sC^poSnIr zQG5JT^fGgx3rspF>TC+~4t;y3R$C7&SRFR;d(;iC$ptCYl2yjlrm!d9a(eGt0<>Yy zD<5+K9K1DWJ$$8p=f7+>_tk5kQV?D?F)ao*u0f%E4}y1ZPkr4`j*M_^#4M(rc3iJ_ z{VpdU@>}Gc1u+AL&c;)#c@Kjxa7sS1&~syKhRpT{Pm2I!0|kcE&$W~r9HLX=Q~fF| z<7~vaczoRH_CA0sBAP)^CqB*OiMG@E`OV8i%@uD+{UymC1~(>r9l|QZX`N%C!;imb zlimJSxJdB4Yz@j5d;jCm|9m}*6zC9{clLrHG-c(X%`$zrm){2dZG!pgI9yma|DLX6 z^Rwz-tcs?CNIM3t7`nFMlo;4ewZ1KcNskz(t*6we;qe5LA2cV72o9d^*EO=Am9>++0n%RY>O_|3iLK{=H#!k z()?tBK*vMs>T9GAuUZ-9hNcOsU?8=N`QZ-_%tbQzwaS4kfd$Mv+eYegJ0jpCLK)t- zx?r7xJ3Y37RY3RVnYtbPg%g~1agJjDOTBLEGkhZ<3Nf=SngB|j9hpJ(KgN9;jwZq} zJ(<3NX#edTi|E^j~ZxyYeP#LxX%bSB&~UR%%Z&48-7L{2W6(o}d#3Ef!a| z(4ok)%NJ^ul1Vr<$-71xRDQpk~8J2Y4orQXXmV+x__F zwj=e~%Z-p+ICM^&ETX*Y2-oH?L9a92@To#>vcb+@qV8y4DL0lWZEqOs?^k!{odPM$ zpAjD~Pi5qn9$S;(Ew#-(klQn~r9{UrekGn-7vCJ#u@vP8#&F;bk{(Jyt~atF-`5~f z>{uJgXMt%hep(JMN-ye+=x5e>hclG$av5|;5VfVH-jp)OqlSSWd>(32E&NT2Kr-*u z&axf_OB=Gqqu%1PYsT4j!j5&ogUwDjNhuzwyrVAC?xilI4_(Z8TnLl5;1js>qM%K zTA9urF|K~+a&C&mUHW49kNf1gwMVtLq7a^uPfjG11Rbti_cpj!A$ll&y0L&MXA`S| zS4wF{#Px|(4dlEUjmQplDO-a&9wh2*=)>7kPoE;4D6JlGNi)Z+L=G>e{)n!`KeF)xrTmxzi#${DY&_Am%gZa zY8Xm`k1I6b>-M4^&?o%e;6`0N`Yuc1wGL}}Ggw269aJ~lZdhlHFhRo z^MJw5=v|*IJYzNJ=u;aB5^zhz0ke?5kx5`S%om3j@yyAfcD*Ly0MhS|WH>LnQ^J`j zthX&Du6^ zFgR$`YWAU>y*TaaS2&ozV^w6g$VkM(!iT7xV5YD6kLlG4?d0MoLkzz})VGoCP+m>u z^Y9(y)_t!C!LB zuTGJDHNVt`Ef%5gm7p;^<=*2jKP%Y`kffeauX*Who@a-hY&fKC_ps-fkZm4kNy*(X zQu_A8j2<}}LMm@}<*o93(lj~YQH8f%jCpkFr&pfObI?1Bq|(}*}RpA-Ddy*Nf%vV0o{dikh_fb2WM-di>aLPGpg5I8`5>Nj`-%nB!_LKrTsm9qyvGc!UTA`tJzy$I@$}|xLrmzn zUJ>1{WUTfa-(Bxdy|EJw{tb?-*RKt4Jfq()8a%jKst0Tihf+FTEnf%De5i7JD?_p-$lz^fD z&e+r>V`_VuYkjF-WoW@^F=g-sdA5PVslq@(Z5-?s8y*v`Evbcump!=8KHqAk&|x^X$tW#Ldeu)>dhVE^gtmYy zsG_qWuZn zU(hLmhn{kP2&pze@2!_-c5b@ZwbNv)7xow-bK(+}s>SQ6pqdHZGDXoiRSH@6_1DG0 z3BAR}JT{sR2T-!eQUdc=yjhn`@|Pa%C?=OomzZI41i8#VApA)1Z}1kubx5xKaXP|t z@RiD9h&073fy9B7sY5#a8AO~QZzA69tG^KeKOWeNFxY*P$a&jcT?vc_KT$w=k>-VcZkjDnb_-==BnguS?S-T_h%F&1IjtgzLU=R5)b=j0a za8hc)8qL1LT~newNb*;IbGd_)koNDVr#beDAD%yPU%grbLyw6DPILzAnk~rIh%Nr) zn_6j|x4P~Kv{!!qov}duN;4%Ryq^$G4Wd>hbFrcn?=Z|C6H}-wXZh+T>Ja}a0Z|G&a|XBP;KQ};j1XXz>#iJv&pxfiLYnzQ19h%p>R|l@dvTa zrC)%BWUH8+?!abEpBFX{yP7);!cEX&8EIyV`|#~NK>DTkbGB;zGD2^9=( zpeeU$2R%tCP+e@on0w%Kpr*Tso_UXsz{|-!YwJ_X^?-EDIwgKw<9A&Opa?OEEZ2$}q}O;FI3w7pWq#W2cJ0G*2nX zSG1$>gPsgx{DpTbpf6Y2=$50oZcY739rru(x-x{>#Wkt6Qfr^i#it=BIqF(MFT!8X zLn=Q*dNln(yoRX@B3CqbNB^wa0?~}CgviXl1 zYCrKps&5F&ds08II@n31bfZPHE#!e!ZD@J82c(1X+k~WQB+pt4-n>CMOeW-Wp3*PP za$e!Wdfxr56$vi#rdYdH^v=Mrp2^DCL>TMx?yYZ-NakK4fKlxvk~hbizl|3aklo*+ zHU_NAt$g35@=H+AhjmO(ag>)@A>Z-5zFT9*41`pM_Elc&MW%R9T+Ot9hdbID(cb=U%bNxSVR-_m33 z&&xeLzwVA~#@)&q(sooO-!yhwX^AE6uM)sy5f7>^__%xtr~B#u7XV{GoWCEqXFak5 z`;fPC@s{HhfHsdn{T)Z9^Y1|QaA+Eku-}}{)KlV_zxjJdrgKf6`r@@p z{=t7aSDX|4f2|>Z;onPt+CNlldtJ2Wt$wOe`(9)pSSWBNjC)`5m;TewRln9*seN)b zhJLwxq&-8WJ^%X$UJRm4`Z)fD{Tq4i-}q1W&upV6ARE~;l#d-t|937upY?p#b!^|t z!M?n`xN~UJy5-lr308_-LGkCCUzQ9~lxBWyS~l-8=Io8Av17W%#5_jq@B0paQoNFt z^;z9wearD%~g+s#D_A2ms^RQvV!UDYhS}UH!&h1vYkXx-P zj^CHEwk>5hGx1Wf#7BF#OjioFKJsb9N0nk{CvGfmzklPC>uXLo9=bBBU~|VYy==m* zM>;p~DdK5WXW}vEIwc%F-rQ_)$D&>1oU26J23vVq4|J~G(bmuU!Gs`<%cVZUYRN-HC5I7PNCXS@eU_lYNTKDOuIZeuBfc_H*8h_WZhFR-c7WhRt?}D>}}8 zM$wiJp7>QOJ$d?|_=@ok@qJn!+%_W286$q*dS|cFr{M6<10Vfw>u&iM*AsjR4}-hA z!xsw#cXtTx?oM!b7~Cxc_n^TwxDz13-QC?`V2~xheg1%FKf5pPtL}TNyZUt3sk(js z7HiW3BZ=D-y-~r?u9XF=R7Vh}FMaT~CqbBCI99wm7(XkV7|JksUX&LkFt)3ms4=eC zW?(y{T7=jeMkmgFj{zrUYYMRnIuGX8jEr5uqXzybkhHQN3lduL`l&+C9D@z! zxUmd)c9q+jdH)nHg6oZUysw=g9Nz!p4O$F_fYj5~fcW?}3@?bi>h#;%^l(^sTX@B1 zv^j3Bi@WH7Bu~huvK%|||If^|ck-u689*kD*dxxSLlFP{I1Kr{P#?;@ z=d}lh3GpEc7b(1uN$l@KTf-Y0vI)tR$DHm*&!swQOTV?YAO>8}9D;D|HrOOlqfiAV z>>8|e->KExhSy85w_JE_DT9L)PKY5(NWKd}9_51sD?{n_krj#;BGBu~>PD6|H{yv> zIb(m?k|`uO(@AQ`JA#mdGDp~rB;Y>-$ivM{SP2tM)cPqnAaY=i-rBoQb8ec1(6^pMOLlWs?bNEv5DrvW`Mq~6sn+bi3cO% zS#&Umi?iL0Gyw)eg+4rri6gB8DmFTbvpI={JTn10dWCp$G>g&K9PMBw9$&PY+x0 z|EzoIJ7oFmhBC%9@a{DWj$qE!fJd%`@mci!69CmUWqT-RYmRz>vkoC6)A6PGGhV9? zNt{B`CML>C?p6A$$_5IIElNzVR1YJ__Dh{0`Pr+J9}G?7Ux&;8{|p`z0Zx`;fdYA06^67LqHH?ttRsL}?{13gh_N-z#4F^< zzmB%%XxCDJf)UJ@=r(*Y-Fps~C=&<>OQQUtMXdAN$ITqizBR|BCEL*?1}e;JeW_Xr zOTvzT*exTv9`Yyd6E)Wh&UFHRf3*Wb;qEygfj3MSwWGYW2~9V|-08BTU<^8w-{ zc9Mw1Z_rK4A;R>(0bxZmW3E8px0y@BKYU}@b zA^W3_JMmH3aQs<4mfm)(aFo=HS&AabwCeL`=VurVlF$ky8wWV+bPa@^HF9C=Z=4n( zQJ-P@`za}5XV@tMa0UmzNMZh$*{JG?kbpZNlbpnj#ZEUOLW)*`fFo2CyuM>$_7W&8 z@?5*dd!y+3Lmr{oBj?p?YbG<92!WHzzFJbUnf=oV0Z)Q|in_zks!D?~JIj`awy(^e zCq}kD0fRY@?J5h;Fi2Q}hxnh;WW0wDxb9gzp*F#WN;Y3XL%u$_QS?7y*oOz|wlT0~ zE~M847e1bZTVrQ8${*D99?M5-I7zNZ_N+ zP=5lSWTgLlMxyu=t}{f0oNE+M#2jjX<&JrHtq0(;5{~U++lGm++&?Z%09THPC!yl!H()x3) z5y~R87 zNO+H$DYaK>E+u^7miE2&ath8R{~I6-qjSYV5~_W`FR-Q2CTJLy5IIr~3fQN?>E#Or z+QMm)K*!?lV3!;=)Y8LZsKjXi#Ah?I8^VppbpKXo)?!-Op+DnIeOil)|7<08;>X$c zgKv!&FMar;rvbb7IHm5`kk?gIuk)1wOirAbgeNNTStCte#K1sYH0Ja(Rqz?z#}6d zky!3wAgx(NeIETF(0GWhxJr{GWi@orbp09{ZkmS;2e`(}TSvSRg#2|fBeXMAGors`-2ozQ6Q;f9o_g6-xoLlR3<|K~cN_$KFZD)3?a z>}kek2dc2Y3>hU6ufi+Y$5N{a?6Z86!SC`1Sml_*7Ko|oa49PVg{`_7^_iY?mR;qC zYPLR|9rdJ;ct${4ghmriGP|(Rpqg6x9?%QCYk8uE2a#u6Xy^rC&a0Dpbn?asul(D0 z0e1zq7})4;coNbN`|!nmV>qpr_DK~$YQ;QQLRPN%CA$uxx(kG}N<<^gEpED(o-XI6 zTFqdt4^&S~)_}QrEMHdLY2Pg|>slOVP4b$-B95&ax_U?c}CTp6g4c2b-tKuT(e83{DxQeE!$oYM8^b6X_pTS)S z1vPNoZ(b(IA|v%Y3j;%5TQ>E^r^^}i(3Ay5ioR;o6xLXO1#Db7GcdeB^KNObnkVqk z`ryg7vTaN{T_I}*V0;i6#J$C=sxo=lKXn-X*A)ZEcVIgtpzUeD&Nh?c008*DTpWkueZdTp+xT89Xj6jBW2i_^3okM3F9=4 z+t3hUo*kmj=OjKy=g&2LAh@C*3D^B+9lA*m8(aRu8=c|!2Wt{;U6GF)o_`zf`u=+n z_LnocB_hn>p=wl~ob&cd#keUqyVau?`N0ImQ79&-gDcXtBLE#V8N>&}+x`_{`8hwh z=dkCj3(2RU-sf`;|1@1Da$L_!S?aH<(_0V@lz6DO4C$niOVFfJLthx|3DH37ds+V8 zx?)iu)>+#4D+uEz%zTvJNz(i>@Ut_#RyP!GRXX3i93o8WM+{0l5bATttVMI&#-EzO z>&Iqc-kIl8k638O7NR@_reET#mV!i!<(ietJS=>`((iP{~88-$S7!d}-mMO+MI#ZD==$YR7HKy(3 z{Fj5hsJ7>bLAoy_$OX9zJfXd)u${SSEag|08_1|vV0-8 z3{|Rw?VQ)|=>sI0S(uL_myI$W1zBLcu5MN`k`vR>=@d<5K|mV0Q$J}Sl*K?MK%GDb z=+oGZWka-dX5uwsmcO06g#cU0Bei^);ya>T0(v1h%M7ze?n>^xrIjYY~L*P^WXBTr#)dJZ|) znF_*M-z*yn#6zQE^UkNqbqK^UD?e?~YppLgduFZSLvHs}j(1t{@vb2`ai90yKuDM?=2y0ju^6MiDH8lCyj5ULD2v zt166^)fK?6N~5#v)OILFQKN`buo#5U%e#I#>cp{*X_!*D!xkko9I0w{PZhaD;TUR= zbFiqE1nIFcO5+ZecOoQ^br-Tnivw$w2m3+23Qods$0Ja~v z$#NfHc;dWQ!B6){Z!*m(PZG!JK1DC;Bu*2()w+{!ezk(~hfIv9VzC_Ggqqct^##Jy zV=qm_R{Z>FAdd#Q&%&4w3wf6kqWT@Vbb%dFEj;l&M&N*ud|ri!7VAAxclVamDwpG# z!*w2S;Rg&^g|z&7b;~fbYndD6BHUn%2HQUm=qB6ouJX?H;B!CXpwU!X z^mMX8Trb$U8l9CO`KI^avyfxZ|83h&hd+?(i2*iDr+q@7ktig6GiTy*BhTtA_gUe! z6^0-kSr@zg^oCFqcG)Ywj&+0xen4h4{o>8AK`?W;mk3sTM9yec1mv@rw|G17cL$eI z_yHNOl2cpSVw9>t5p{za78-s|hwf44Ct&cQz?hG!4_czu|SDT;BTQ9Bii~D5D@=N~+y|w;i^-E@&T_;y`t>U%~PaI3D9?Uu^ zY+TpLv@1^yjQPH8UAx){yfSSOQ>(By-*f$gOi-H1Szeo*#l=R`+qgPjpa~#~i{~3V z;gkO}txk1nmW~@@IL`sTc(B$DFkvWLQG=!f3sDw~6ZS2fEZbLQDT~XJF1yI^s*w%P zkZ(xZ`g~*SzwD57&8l+cvTa}EdF1gFC@%i<>Z={80J-;$OXf?I;iojmDsI?z{Uh4_ zC0aSmXK^GL7neXoWL)3EeK-;W7v7e7PD_-9XprwjmoI>C7R!s6BN3=)i22fX7vybq z8A@XN7s=*x_-MS8L|um!k@4ya75Vq~v>Pw9I*3XZn`t+hn4}JVg3Iz;d=HeFS)7yi zj6UZjDjjMlV{POf)l#Ek-pmuDTen3QDfvhU72=<+F}S&;cvQN*FT?8(kCts_)Npe% zFdf2S8OncVp-Nz$<34D~LRkLovFbag0$8~Pb@!(b`mO6VY2W3f*F-B3f06F1ukZ>p zIsxYV5hjZKSF2^x(=SqrHMzsHt4ei!nZ68-&VJvwp zm1QSHr@r#9>UW{acLqzgvoI7V7FNp3(APz10NrYX*ZiGi)PoqYk?7aqOW?;Em*9Xz z3Qu_OOn(d60om{mW03?oC8gFR``s`(BA}@ib2~ z8?*B0n*@)HyG#s4Q%Q7K+D7mxRwJ?!L6%ChTUTVcZ2%&S9Z)A9s~uEW#FGd`8Mdc` z#_>RxRH%*&bfThP4#TzIt5F>pQ>T$9vhg|?%kOJh)+r%^g~H#7_zfeRz#Jl5cF)5! zyN8>Zh8{MLv!54@{+Bs58Nd3I__%OT8LT;K!))D3UOtwXERp<=DACQ4SwE+4E~j9B z4^-|wy#2R6aVtF#?I4xl8rQ{QL}ztQRxUpJ=AW6*m3-6e{r+yXw$24Aw5{OVgGCt6 z>_`Epm5CGh_wlH?p+xu_8&=^53dYiE3gM;+f4N>Vpn5Iq*>5`q%`G-;(>D+H_DN$J z6&Hm(&Q^Grm5LslItwt-MfM%`8D5!j`pF$Hct6Ht`}bBw|A6cDx0U)umO8ONM_%Q_s;8`^ixn7;if>clVaqGJc`e^QGWA!z48uH(K$oj`@6IbWq7Jh$zDZ{M zvke$cx>t-qg!+!Bo=J!OdVxi3?CI%K@N4nZSF&-x{!Sq*%p@T(PsABpL;~W_Q+1$Q z`iQf1(09>*cnx4hlq?U?TGkVh@yJW8G4f2cuFv&Vu3$HWEvx;1c=i5NF{3qk(SZNQzV#YB%(Xi^8o+oAGJ8 z7(?7sh_9(EsPbn9E@~;=g_+NVTqbGRBfI$3FtxGSQ%&kYz%6pYbCW-mLFtciOUJY- z+d_Xxg1Ffa{yPRm)b6Awe8+MB@nS8ISHCN5-&p0dKR-qW6A7v=$Yf#uja1uvjUA<- zVJ!!_xo7GFED8HQjDO;oXL~SUUv`hI!5a_cYKw$U6MVQMBoBt!FUWk0oFgQo^41F-yTw5ohUBIp)Rb&8$_4f|JGDwOEf8JU-B@XL^I83shhcA6bF%`}O37!l^QC zqWbLHEp%wH6Swp#eEYe)27*2#oq~n9*zEUHzN6&i6Q&R z*P3cV0pi9Ul=&jP`(by}ftIMAt%W~lmz3S;c;nZIzg}gkzFYWg$o1Qkwlhy(pqc-^ zz6VW%o;!sEK;`Vaa4Q>Lfjru_e$N4va@J z4Sy1}=WU*n)D0EFAY-<3&>(xndwvCX-sJ-Uy03KX(t1!zWx_O5I*hf+d)By=n4m;e znq#`7<*+Ds^b3q6x=9sJvW90G%OU%Gsoh5<>%gZ zhwyuHXt=+AAP z+{Et3Cjw7QyH)4O#$wsXTxL{W9h#G&wxG>ix=|%lA-sdNk9X=0i_cvCrVT*Q)hsVU ztzbO99eetk>(w-HrJ%d#%v#u&-tayGtsWR=cqDuGKcxZrmY0yC@uKlAR#=q=@(0Ix ze8wNPGjyEq*cha%be6}{OgQuV?4M3}Q+7pWxL)S2)FoH+boAR`(o1j4J4EXKSt^;% zR$A|(4=Dg74TpaD$-dT7uXLzYU_>kSU)dw%3OWML2Qgew$0+yZ8qE)GeVWyX;Kzu5 zC~Vmcq{9C}nJ8;*IbNmZ#xd?bS z{@dLf8+kdH&(HEIeQm_6RrNl?Vi$rEaR1nc>|N^$^)F;;S%)Rm%Q9{yuhB&#+McEV zoQ;PowjQYvf4~q$p26EPFx&0hPjkBI-eGjKX_PP95}gMUjS>Hf&L4k6t4AY^mF*px zy>08*I-GO=FVl|*#`)wwdtEx@(G#{;b(#K78dqeSsSGskI6A&F6pj?nldSHX3@oMQ zvW6nxw6;U?V)ZFvatwc16U>?9Sq+u|pf8?e0P0|wsJ(%TlN3JDf8m<9vy2ziEcGgj zM!y<9$NM1}u^NBwAsdqOBgUypS$DY?JdL7nyHr+So7?mBu|KQH9hwUhvXDx@e|oIO z<5AyztZVlD#Wz}!E26V}S@&}T=GPAvHRmD!DESk}bODB1Hm+luK9ED%A6+LryJT0} zZTzaa9nZakF^tMi7OmfAF8wU|8Am`Kr#bZ0-JSa?tJaxO-*sAC_hbp& zF($6yH^_g{g4Yg`q36%T3?n0lGF|EzzjYx6D&DQ&-oilIs`{n%I~wKk~!fevV!d%jUs`zyb+ zuWoxrt_dF8Y1mt7*>bE^(ao$FJG+>R$!D zN9cu1FzbnIGu*tSP)pC!F!$~$*d~jKN5rv0?DH{%`vEl-`DuIOa@+lM$9WgHTkqVVCV?P0+5xz?K z@C?V#32@oO``Kkh>w+Oa`tTdy1`nm*6&FKnPGYPqw_V+|AFe5rw3enN_%}APm}mt8 z@&rkdeq3>S{;vCQJ^TsX(F)SPD!OG`WfYPv+J>S5@b(h`_4qE6TiG}fin8DZ;cU|( zp<#z;?8|aLb(``|o#(^rBW$OduRxH5Iq_I=3!l8sXe*Fko6NGXgx9{y$?m?N#YcADnJdL>0y zvnlTH0_Sbds}LF3rlZ?N#5m@%scj>!*<@3J$M6CpZ{s$po72u|Y`CaRd4$smdp-U4 zOr^A~*q|3DuR~4uP?5N(X1G5!Up({bYRB~^?~URG(Yu{ts%D!4zYE2y&)#CBU!{$r^@mde0&qEXa=H^Bw2;l|W!Wm804}HB+e7skfgV!QqiSZj z!*>k95&S-=L3W4_u&6^rBnO9XJ-=;)nqOf$4FjP^y=sfcaZN8|_5^NL?`pbN0<+)< zm)VVlrltb}*LFW>7cY~c0iV5jK5jb(5w;n+$_%G;zB(H~XY+Y`0$1RxmCMW-p#q>D z(bdIJWuaWVbzMcD#t&Ii`hL{8NFob-jf;MSjEw8tNfX+EY*f(1FuXP?O)>d|%J(su_`=Q}8rW`1s5j^zHbMSt>tQxdvyk2$$u_s4(+V39v+@A1q zRCAG%WA(;$bl!YrF-`qE6Udc;(~>xRLq@kSjd2HQuJH!pW=_l0BcNaA8i8auq7U!Q z!oo*;lVZ%bT&BzDwiqcw;A{z>M4~t$Pt4 zlwUPHHs??Blc_E3%1&~=*|1P_`jNBSX!}`r&F$>(LxX8kJ8{KZVUYwT&6wP_e$nlV`&f6(!vC=X4O_`{|?~_w)o(J>m$~ zb|@M4d~C(}Qm_3tW9=s6Z=A0XTYam&E^KLe}eH5|o12y~PnKaAgzZZ`5S6%_GBwP4Nd&XSwk$0gv0i@C3o z5n0Hj-wZa%j9;Qpfy!-sILj+RQ7u*A33SwZc%3Wf!wmd3u3N74aG`hqy&yR0Ci0Dd z_vBE1WIrl_C94FEN4*Xl;KRJ~&d(o_wk{_&YP+AI-v{qxqTS};Ey=1F$xME?1tpUP zz(h93J}R?JZ7O&5L`A1SCMsgO-)knxw_N0dK))vgGT;^yU(iLe?m-_s8M;FIOY$OwtIo#5^JOIYT__{0-B4yPq6U6|rT9VW6;+OvIGb#C|* zx`)%-OVxGB6@48(bH3P_#cT-F6H%N(HsdPgBj2+Es1ez-lSOFRm)0nBaEeH4Tu0hb zJh|rS#s)9Y4{QfrR45}Oa0V7N)-=BITo}8rEsR{oaIW&fQN|Mz@5(cZBN`Mq(cv;D z{NO-$r=9*|z$?s;7_yWx;O~6$={CDql??=!x*zavNLkELS+C>>`)u=#zbcn$QvWxp zd0?c}WD54x#!py(r{P44UzwSQ%jap7^N|lnPDjbYNLDQ0(0cpAK-7x5A7=h2Gf&+U zV2j%k;`+pSq{iC1NZ*g@wUz?`1Z28mU%?FAIeL;EjBA~->IhMa-%Eey?b1_P9O&s+ z8WeP)O3iOE^3~QcdEpi=bhl(ar2gpkI(0kafLvFKrrob}m0VuqZ&jb;Bf8ZFhix5z z;gJ%pERA0+to}Ry=CJOOgsU#yS(JcUhBveC3FEJ5paunUS6O0m;;hgiHRh2Q=U?}hNpx)SSdvQv^(5ti?VICj)m(U(k8=t*@(+f1BUlR`3#_v8eVkHA4E^!x ze9ctf9r^v^oL}qOhfUzL&h!!vxPRfPzV9vSNEhY4+fHw=lG~)Yb)^4o`q^TSRQ-wt zOV71BDrO+E^Q%n;7l|O;Gv*qZcOy*9gvl7kw29RWnvt=0>>d1(zbelB!A%eO8?#9O zxnC`y6MDt-0I9qEnr3#7!`MEDgb#tdyJ(UepoUmnJfO)V>QCiu!2(X5O?R6NJG^fR z#JYlftF3b%{iZ1$memt!tV8SJo&&&m6)SahPdK#EFblis z4R5p(>EhAA+3I!{E0`aIZo1(4uTD~9#^&YduWCHmKRVT-Kfe{T=kT%@10le4>F>-l zFwU-L3p~sBPYpv_kdWt~9LLQU5qU}D}!^xcJd!AE0^Op#N&)F-Fk1Un~V6nK^Hmkli{j-2L{Bi(V%ao zBwBdPi}*C&59~z76K~LrrPWEKB`8^oM!7(Pz3zW;xpfMTTYJ1@0M}|FoRpLr-@=lw z-CD7?u;IUx?EVaadtTGRnr_3t9f^>Q2lDAXPTQt@Kmtj~xZPd;eW*s$0Eg*AKS&ay z3nFGWmCmYPy!YO!#-gtn0v}R;5Rk~DB-(>wd$A*fNW5)IoyR%yEK6tUmLuf z0)j)W#;@^3mra*mYM6>H60c+=|4{dUd-uTTvap~gfJjAt{~WlB-BXf|d)vx)$MJ(h zu2$Aw=_Be~K5L!Clqcb>M0eQ_-}cd4%GY#R|OO`dXyYR$jVhUNa;rFkP6C2>X`pMHkcc>y1HZ}6pPj(e7fpu zGIYvlCQj5vsPH`h%PHs^rtZYTiGS93#xhd#wR`gWsQhoQSY@A34}A0O8HE<&Mhi zi~TJKx(H1*dZq6t53ce)o5uWc(8FpO+@;@&!xnD)zf3mK-R4${a2N-p2P*_^bQu0p zm?fs)A6T5QyWo0N+cNKE1oR&NQrAcy#r?8Mi0RW`Yo{BYZ5thKA(dWVWTlnAI;7ub z^*ct(8ir<^k4bKoVv_Jx6tK)zGN!Qh#bs6}frps9YY+bcW7+@5PR4tzv8b&Nl>j=b z^;r}V`wTJQ36#&IH^f-dQk2Osstj;&Xeb!&CS_ll+`QJUzA5(@vv}SWLx+O}B{>W$ zHzn+SkWk6z?a-9;*?*Tq*208HY%*jm$t%9->vo!jPpTVk5>EbTx_@5LHWu}@fJIi@ zEbC^>8$dO8@v%Qpg-KRrSJ}7VYc+g}mlu`NM7hLIpcSsjbt$TRl6gAx@qaXTZ&lpG zz!g0U{ zaLQ%7UfHCLZp3N;HlRqqk|=i; zQr?{MvRADjProPYhKE~yY?FnM=WLTi6c_`48#wmYE=Wn&hx7L^>XjzK(NTk{J4JZA z9NplcoIG`gJ^-rem*}*XF0iZQ5AQbm;{`;02Ew)CD$R%#xyFL-era z)y(vUOvHM42HU^e?hw}2sIlBKfWLJrJn^vGd>y(hN+p|xC|+SQuKLioyXK{8rI_rY zhaRqiKhFX35w-hm%a5*h3wHng=42Hv%0lNK9ypku_g&AQ{c^TI^g z)PLV&TWY|QLmz1kEc%{2j>b{@-QyLan}W^_yLAgs;y^aOb9c`^wg{-|9|yNeFv+ch zWExdwzR#M+O*|p>3KYyb{LFDwwp3m5?LX&FG4`bxnjX~rNzN)@OMGv5onu29JnMjd z7G`%7ncWGEoLPv9n;Gtcl+siYB0Y>BiaY^sl=Mif$Dv18muAZa>#}FoEDD|yr83di%EC^ZlZlZYx3JK4+IM}K{f0*Jbamgy$IEZk zlZj*(XlHDCU~_B>m&B#8f``kF#))jIG`eZVinv78%=6ax}xtCwlsq=a|;p zAmnvR=2f-4t&eJN^l=^AK|fBxHt`McO|b?y<1SwH9anKkhy>@?zN_lX43BK_yIF3Wf0~{B4<{vOJvy+68 zW~9Xp8rEo+x=MAGjn6xRT4WqqvWN>$iq{UcHAQ8z*<}3iiM@1q4SY!B&@#(4kOyta5UdKcKAiVE$A}b^j#d5^E=yfxX<;ZE758(I z)7e8zCX#7tSp)rk{$?`4^Z0CFtL60xI#sDh7ujUSJtW{4-w`eV1cyAcvAfTBNkM(% zEoymj^AF9+3I4J8hnvemxuKJ~)*nfvQVVq1aNq;NG_66HPCG)qNA7#tqnACNx7{x9 zg~7dU#aC+RN*I5e!|x@{OT~%3X2*D66J?OvM?K#3yL%D{=*GizwF$KrC&?qifPks3 zUsc-wt_NNxw1fVvNd*87DGQ3(B3C9PYm@@=RkGicLjwA!1jBT4!t?|X8a*(q&Oi2F zzm-e=eGp*;93LUqe?v{zZx;&u9YB9MsC9@({_fOnav*fN{M+%hJMx>42(gKOa$qAq zXn>@;6Rr_`OR!T(tZaCq(=@wIKL_e5Yl8s*pj_HyMU0)wNHH*xJ^G=G38c0B>-q=Q zPiDuJ_^kPIoxW3?ta$!|miu##^(^SCedZl#O`|);4)e6F;?% zW@}u}_W(+Yn4eA^q)_7%^#2O%b}~*}@uesTM3PeO4Lhf&Z4O^B#hrZ4f+H?lohHmO z`K!Z3S`o@m;|_xzM0PfZose9O0hge!0@$rir^?{P`fT_XtSeD*d*Vlb2a)Stp!)8F zhE10L?xZdgaWUEhgp?kEcU?H{(*Bj<^b;QOC%5O9TwukDdaKu|Tc_JjdtW6COpYVz z5C=_Vd2S$a+!%`JBSMO^W60zP6U~d&z^d}iM)hR<^_~BKh0=R)Bby7gWDe3*VWlXO0O7zC8IK=r5Ds@xTM z*Bi+z2n#BpD5#@NbaH$u*<6J(H_L1tlkD20ox&S3y6UuE4$oXc0?%!E zmjl*_22Y5!ZGxgD(z6u&Xa~mdnY+)lFIkAf!5LT_Yx+*tdO$CSw`OB~=UuFJSQ4j+ zt<&s42}5f^WkYBH1sHw;-LWM*#bk6&97Ff#H!h{t9DmeM2e___B^-o4OwPYA0BK-U3g>L_j+3~gXG0+3q!gBjZ zbwlp2#?co!(b?juNh6pq1J4ikg3hBl-d2=L)qOryz$g!bS{TlPLTEi`Y!|;L2-egT zoN)m1ul&NvpI6a^T>tK}Ul80joSCeTMwT};C3z4LKp>GI=fYR*tcw8>In|C>cI>Ld00$d?wATQ>1~=4dD) z)L{5u_%iMF z&wb7X-CprFe)%ZHZW=OK4dAUi&A}yNLTvSrb)uL5s1y-mzTUJttt$JpfzehBq;cqR zXZSL>)jT(Bt5OMR#hT$dZD*nfDBg((c%(}2PH+QJZ@z60k1DT*HWYSC=wz5H6@Qc_l$|L6f<(!koaoC^j0s8u>`u=quCs1icYM zTP~zUWb~k-&6|~XmW7FAMrIVHeTd)5hxs!7kuHliHa;$M2lbrv;+^0-5P@Er9?+}5 zev}grb=8Tk_ki$-+FVWrWLdryLXv&HxVJ z=25_)&|WBI@_@rF8rAkAYVcAn+;-)>76B#*=Z}AxR{hlJm$_G$b)HMc3;g7~3Zzv0 z@ok7Cu>Dd%u;KIzQpLg6+;iawyr|@VaRjK>e{Pxzs$m6ddUasBLn!MJS$)!Q-b{}v zP!v|R{;4P`09*FaT`>#WFD*O#9~AT(mT$!Ot55bD4#C&Mpf0HtuF+cJH?)7*{nH=V zbw$hB;M_%MLg^3CEhXO(2RSu2&_JWHxB)PX&#nJ$6q|a?!f> z?BZ;0Id?b1L!+leuNFei!;;|p`_N0AUX;0(KE>LBp;;KK+^tY&!LzGWL)3SlCQ2)pZvN{hddxJrqrO}m}5LNrTdz-_Y=YMrYR$=S_Z81~F6xRB1zpQ3p^`xI2sePokE;{@l zskcrTJZkW$dC@4gcsApUJ?yq&^X#%3SL95oygI{M ziY5aDmUDje+ooen9Mj!v!fz@@m{ogrV-aT6X9BgE{Xd~X#SnqH>%1K`Z_C189Kl{n z2G&4W=ZW5&tlZsk!hh!;`LM7=aaVXolC;`@ax#f;gpD6I$6Va|5ivjg7OFa(y=g<64EF=Rev3cO#@TE% zcSv1PqLM%&R{Erg4q9tYMZ@VF8^Y<=OME*lGta`y=*E7=Vif`LJ>s{JHgE=ru~3^J z>r+JK`~HL3JAsFe%N>rpM4t;t`0Z6W3K&KbFQP#weU+9OqG}%p_iY< zXVAk&8Y~aM5{mv=(j1@jL7lQJuMT)m3e{Q%m-^YcHDSv!4x;>4NIFO$Q|Yom!=k;43FE9Is#y zqWWPu602YkI0uC7Ba0WG)(6gaaHuHCD9S;p*h%~{3_=IPVc?#rGT@|(LvJvJRxn@L z3>hw-2d~egq)zmX%VsXZDBA&|dwYWU`p7cHU357whixL1?5;ldDthk%0AG`kda=)v zKi-$3Xw->&LqXks1UOMxk|Cq#cAfHosQbur|7lxgl34t_WpmQe3{YO;dkM6W!l}SE zvV<%Tui+Yi8Kf&fEdV}LNbX}!7-&?MYrBmvEKCTl2w>DLln2>=f?M9?hJd5Bo--}L zdN)V}Xcr=+7cOo}ZBzPmfAFm+4Z~MbeRTCnC%7W8O z5)BGfz*5L+X_ifw5{LO7fos4dkpie7Kp<>uNC5mlVK8$sN)ONmA4$ZZ>QmiIpJ(v_ znEI2bY$1V-H%NrivbBqDJ96~5@E_J~jV-#~&*khpNWVpUp*zvm;B(qDt_JpD^xk$D zwgg5#2lJC@(2vDqGgNMFv-hKS#RsOPi3(m}Tq#np|Bu>PSQ`0Cev7c+!L=Vf;7d@F z90duOT@5o1>0$j7PD~?-#Kq$~py^&3Tv+?0tcHj{LGDeUgTfmUaQIKlimekVc*wFv zwec1^{RlHsHhF+V12C4v!y=4z#rTBt8V#R0cgwiou>$$#^WjbqBFs;ODp77{j)s|$|1^Bq!uw^jf&)ej-h!Y? zK>D>?5Y`$vxfZD;z!(f3g?yYPG@GbRk8-9soAa?~+6A*z+LbT*QZVPeN6$6Of2>kT z?bRW?#lR6MM_l&g)i9jmaEzE6Qu+vPvf?@(XieGMZWP-Ud`etVA-K+Sznyn@2}t5D z4WV)FKOO%UDJ97oag&h$1yD-^1QY-O00;ojq6|?pZR+V@P5=OTQUCxG0001TWpgiS zV{dMAFLPvaaBwbgZfEVhWl$YW^gcL1fP@4{0wlP*69NRc5Zv80xN~ub0KpxCL*U}> zu0evkYtW0k%MS1Fzq=o|w)V?z)lx;l^qfBZ^f{-ypEKPv!E!R9s3^E7005whi+xo9 z0C?c}_azee=iFuT766C=@vnkPE~)!VjviPhm%S&lFW_G!3J?ptJbXbdx7bq8T@5X@ ztlKX;n0AIa?J=r_HVNA?b*Jfd_`RqDNCdpR2ZhANe-5RwvR*aoGU+UIwg5#yy1zKI zet+d~x@eNV-c|0RMg36@g&H*uuG8mUApPl~@69#BTn;=fG_Ep$uAO0(%l6Ql|F^Fg zG5qZ7eFR1^#B)q<7(n?FX&1i6w-B4-o_Or51PwIx-yw%zgO4A&>ylYmpdM@a2Q}2x zbIZ>or*^9-0>CI>`l`CKevJ+qr=SuFY$3e%!4fF8Or5loK!}1fg@+(>0i560slnT? zv|bnk7`_w&sg|i5b1iVxXgp}=+iQ}nU@LLjslYdcE?@sn^%$cWq|A5BFHBLdUz*5+ z_r^&He<6Fo(_;*u0=h83d+ft3K#w?|$>9wu9p3b}W6}(a2t3&@7wWLIWhxnKY;c6C(QL0&$bK}5xT|LfFxgUgeK+$ z(dRlg7|A8YIXGQdE%!ehpXx*$;a4!*6 z495;do=ZdHy6bxblN|-CaDCqDy^|Zv*#kYGK$~UIZV={f-Iz26Y#@9f^~kLN6>lPj z7tG%@1pS(^4>UVkxkg1iJ(KsAgt^cgY5HddIseIXPIS}ROI_F55ib@+3hK?f2>?hnGkEFB?GgD^cXR z&mV4&_1mt?kycqCqmj=xQv&V28SJKpa2x@Xe+K*=>Kt<$kORh(fU+$4b5zHDFEm)3 zAc|5#VE$wHzhu51!GhTUee5RW=MHUpSTP?Syds|lczg+Oia?Qu0QBPxUGLK}R3Cok z(U>pKYAXAIF!y_2Zz~`f4zXAw`&pADCXl@HgaMW{s{b#9yKYZyiz~njfS`Ej_p?kW zq`iIy;T4__l7P&>f8(5q;}+d;*|fvSMcKc8a_*aeeQoLVke&bNKKXY_4#H3t+O-Yf5Ej( zri2GPw|w{G7G4CZ_#X;|tX2UX80LTVln8Z+GaxAcxrsKT6nGX`rix^WQs)YIZk9g2 z`{Qw}OxAx^y19W@|KD|}d&YW)KT9lr`=1tGn;~RA2L*{0@GQ)fgX;6_lYnYC&=An( zD0bkv!H?re&%jQF=KpI-N9_Nv{C`pTRA0@b8S+v#W$gXDYJyCb(yrqJR&Ht(=o5P~ z?f;i{u}_x^6oaZnge6kP8xnO_5|WZLhh$3S{UxwXFMd>gbsXB=OO?KG;-%FTA27gC z<-o{}PF05NaBlt%O^0TgrQ_$-O~v@v%Mkxqveao^41;UpLOTK!doKr*4EWT zIQUOO0>*tYSe3>>`whgR*03jd(J>ImcMHBh6U;80j;Cc=-7AC z5`3hsgjupprxkSfD_+dG7gUP}D~J3+po$cLV5aiDGLgmMcsM^k@m;(jwqbsO^<%X& ziZznPZmBOQcj6z72E34@aA4TDE04i9NmJeDK~gYtq58{Sh%4YisEROGcnqhS=2K#B zM<_#q>pu;_4_|AHF2{O**;V^fu(b@wOWL{+;qwB$=$eYG%yd66d+SGF{UZ+^FYi?E zTfASt@{iffGD7SS+nPWU;Ed;B0~!#9C)zel-2%e1-Il|DtN%OEH!yPU!Qby%G_?9! z^<_DHuiP6Me-_n5Mk3Gm-)7jIR`mOE@jn!nz~Sjdz$fKQ59PjiS>l8S&|@;2sHg%} zexWY8`_2%0E^RJ}-!dyN|MmXt@Tl76l+k7)Cg|n-jn;8E)Z={b6vz2G?p4s~6tQF` z1ovGq2XIA)i4t!vw8m`l-qnX4=r34Y1bB4JzX;QM2+gIs=Va&1{^%q0XkKSy&nTiL z=x!yg?TFxC?c{`!)2KG%E0w--Z7J%I^uky@>FSB(xyf?lrPdf<2Pc=q3!#QGm!kf= zjRD9vE{Vd6mni~~<*(>}n*VLmTsB@x(io54H=Ox4Ta9F`6)O|thU|>TFVvZ-q1~q| z#uZJW@QB&oV0vv8GDb3GX;l1%8mffC3nJ?(M5nOHts0jfFZtdFuMtSEcUZxG@44zS1bA?JLzp!e`;y~-;uG~}}vCJkH-uHbOB0FQP-Q@Y+AQyrh$TsDcDV zmTOjkhx{Hz|HjX#2!lrUfbH?zW39j=_tcMGPa%7CtdgRYGLs}~O)nX_Obhs-5roWM zaRqN`QvBPvGk(e5iTm`Tb^bWgUwV%Lt{;n})DvdLpAXt?7&Pinx4heWB~iCEp6Htu z)>vWG>CO+y6}UV$e%v;XSD~{=WPE`Hd(c>yueXu#%dLdpJk3|q(j{mHT6AD!zuh@cX!d2&{DtM+&tz#no;b_iulC+)e6$G$6iH@eVAQq8<^i&t(=Fv^stC2kzT*5HuG_pd zYws3jx@OC?D{xnn%zQ#~J1RK|8>$uhbxvQT8hSS2HtSw6fORq6V|VvBO}TR4Ys07u zKDra+M*5-BL1SlS2eAy<^d`(<1hzGdw_CgSk)1~ynL(Qs1p-xuBkBiP%PKDvTFa1?E3lCSs?}^FW8zxS}kRJ ztzYoytI&@M|6n*fR{$>?eW2J~-m8{!cOz z5GF2%(Hc~*HXuO@9aL^>mngj)khn>0%E|sRueo-_+U80J!}jKKee>;cW)@aDZaske zi$k7EBt-ogaVtQ^AFx9$IY0{?KMJtdt@!PT0K+aF`(y++)^a*9@^!Z6opEIJ&?=>T zbdUNgv|qt`RtUB;gSz@7D$(N-1(SEB!>k_adm>;Zj5yfmJaAe<7g=> zjwUZuubWOa^$M0GBtUPFvt)vF~8f<(;ve&i-s|1fZfAXb8=r9g))5V!r zWHK+(rFE=KG8FTaD`m_}q{u4p!7XxVqn>vGZ zD-Ps-b^wTe*W(Z;L9@`82zyh9bgM|eKmw!I*(^D}!qK_18^Nl#8~Rdm(JwMGC5Jv= z*<<>`vL~qAdv5*s(ULQByNa*@B8Sv>IBXU{qe4R^bwHIyy18}a_i@Q#!zq~{IG~<; zdYV4N;UhPXI+G7qRBrc@^m239C8Iz+h#ha~Yelj*9%jY7`Le62BXiIBf33KpvD%GOk{1xp> zf?LTvVE_1C`-63Nhb)ocJ}Qh{!Zl5WXr$zpSgU0uyOwC*LgMs zrQI5}T|1lK-$E6tNWIC%g_YLRyj21<%x|MkGh~wI6&m;Q6?WHuBtL_vanRy1k;23@ z9szAUsQT97dBrK6A+v;6Oo1dsWW~r)57-S~4yW955H4Ct87p66I&@>#llQfv0`0Rl ztA*@v60Q;>|JEHdBM~-Ued!J0YfyL$L}&u9G5+WT$!7$|*Eu5q%!hdOP9o2`Ct7B| z_OR_x5C}u%hQmH8PQUniIJRaXV}BN?hN1WL3}eQ2y%D60TG@tUFe%eXVXi<4Xetg9 z-~GBz*PY(Un>`TrVl&C9oewK6;G@eIq*<2(cGQId<)NpVGA+k2|8qZvE#pbJZ!f9- zn$jKujl&80^*sS8!=uAQdu>BdfA`(FYcCbXaLq#Cy>Z5yr4ke?OU8uvDW;&bQ zOj`f|eEv5B(&@jTaiRDy6--^C(B4fn4S&fJotzMWavN?- z4T>}&ng#W#Ttbmb!uW_RDV3vw4t(BtMXtcg@%aGTb01iuqZcS^R#Tz$I}Tn?sReFw zs7(Xx#+=VpW4W7VKI9FBeut6a(VF~Fxn{ona3kmd)wXP*Y0GjaYW8AOK1;-;ev z!ht{!N}g9CoC;QliJgOMWFVMmEC|1uZy=6hwq0PXP>`cRG`HTSjIFSA5@ zRWMFY6=5$Vf}i755!X2yL|JF5C-rH2ANdNjpwwHX{(-L$Ml#Se0!fEu z5~6ZW4k!5Z>FI|9^;K~7Za7{kq+o9c{#>F*MP%|2XD;7?Ce{}D*1lB(Yy8nBF2BFs z=e2&)ZhnyyOT8)IR_7TP=EVUuRNEaN!ryPw3K3Qfd54A33BwaijT{=9(o_#_!4lx% zyS`bZ41Hp&G-;Mf_i=b(!Y3YGEJ~ApKnzAj?4zvMbha#C*U%Rx?msk!z(ybHoP&@a zdmrXYxFllXZ^vf{L`3Uft{3dyx=;MdbUr9NkzUz+-NSjiY_yKjrwX71L171nRzSN8 z53{ZywSpE`uma(Ua>++<=>Wq?w0phlG!|7ILp$ig#G-st>x(=~a9Ec#qHYGa(qN6h zxhsb}-3r(4M>TO6zPq$Usuz>TDfXTdW0vn=b9Yj4tgq6oJybGkilHxXq<#e zslnNm!qM#mYl913T1~W<42U8U0$Fkv<~>>g`Tp2foOfmSIdiMtIkyaaZ<>y>It`<3 z^*-)9uVrzWT@Tq|SOJSrwQ1q6PLd0i8QN)W(J5odx2%knAMr+1J`Vj8=2_~Z9M8MP zp2w^`tUnQ^vVS)XV;k62CnaW$D||`OFW9O#M}H!)VLjV6Kt{C}+#ikC$RA%=M-I~1 zkTwMO+D?#@+K1q63?eKcN#?!HM)hg>gKj^}FkfrtDL+J$l*=f97|Dm=& zL=XiYcw-kK$f(w$Oj>}$@drC__-=~qhmd-NWUpA=+8yC`Y?|<_Lq#zp4s-7vyYCFG zm(&zbigcS(pP?|P7iAM{rba8NU#^03qn|8|d=u?3(8{}AeT3a5!E_c$LRn%=GIr&K z8ujG09V0G#=_jWd?y2;Ww^}bG;u2+kDR^(^4}$=DX&lp&O2;)2S>Cg1$HrF7aI~CX@RwA6})X3RnBL^(2f0tp4ut z3N<2cgFjX^k?kNF2#bfy+r1+-LW`5pr_qM9Z54!mdtRT%S;j4|TYGUD^|4J1&m=@y zq*FQ_Ze%ao6d7j@KkFL)**E8T)HlIUR4ow*$A%=e$-7iK&+CXsw&% z0GtW9Us`;?8PVa2PP9UqL~5TyK_*-`y&?tG8?BveHJ|r>{Hg^x5)X(>#2r?RY!xtW z+beKeso25CG<#|cQgBrhW656{oYmb_dAATI-&|)cP9@&5-;mimf$k|jFAGnvwOH>` zLTT3eBcG-Via{N3Ak%!4(faOdP&cdT$%0L3>y3X!WAyiPHok=$iNfXWz7+2*`qAI7 zs}I)>Q~0rq@cecBL)da+bCx$>m*3U}wUR%G!l@R*A?Vf|$&BQr@>|iLP=9x5;*O7v zh%zU#@=m*7|DEJo-2%asY-xN{?3Z2X&aIk?@w944XVQ%7Gg3AeTuIC{6^D^eyH&q} zxQ~A+?h|*i3G5O-T3|K#AP@+cF5@ISeu^-MgjnsZ{*ec#VhUJWzs>4bB|nGoVL zF^3JS((s(jA{4>Vv432Tt#AxbfC{=0?A(%X*e@&M5y}@JoqH{-7s2sUEl0T<vm0xXgj#;)}7<(<1}%N+X^ci z8EZBEucCSTxG(APhIvSznf%--TIBF!+P?I%%wspZ94SvWi?GP;j!sjN3i|vN!qb~^ z@fhcQ;{CZ8Q1J}lb5iV?NR{bvif8bLU=}fGpA}WgwQTI-E|$0JI}H1;o7=(FxfY)e zSD;}r$eZX`;Ko^EE*?g4_MZ-IHU>6g3|Dy>yh*UnIbPbeTSh3qUhS!If7*Sf`&>g= z6$nlUOv#jK0bOf&h7kVk#xLrsHyDxq%(UUiwSwyh;)9h^f1{9WmC48M$wJVnbK%P~P7(y&$@;&#fW z2HHZl2RyCpNQ3C`jZ@?Gwv%4wMRW{He*i~v&7OtSR#lO|JA~h-a*_%4HhSzR7ZOI! zTXo5;qjd#^yxCUg!#i9|kcrMYdgO~`3L5mV3F{qxoBKcNJjZ1ud zni10+XvZGV9Owy>*zp3sN2`#W!8GqxVc6p4m3psMM0xI|?BahKBI~cnz%a!%PA_cJ z56?wIblh|65Yo3QvwLp^VEyAXG2~ztq*RC~%^mX1g*t_4iN^WYOmhw72YG;Wh!HHf zXPhOKCVIQ{fYg4z_j9Qiv+|Mp?C*x4@p>))>DncHYLJiph-XR9uFmGJ)9==TVfJ?q zUkx)5kjR@@Z*+NYFraBOP!e<}eeG*Ew^iej!a0Y8Xwd(IHp$dFU}aYE(7?$48$$@tW_?$dOEP8B5_Z;Ndy`=vAiD_^EoIGL00@{WAc}*|)d1`IdQ-F0q=V zLf|()O`Tb9fZ3jSuS@&xPNUK<-i86MPEr+!@pV~3XgnOjM#R)$j;=x|@i?CN$t&BCCWoyXW9MZzDhuJ;jAb!Zz zZV;j(uj{c%i^uuQvVxg2T0z9D1w9z1&l0Xr6H+t0dZk33*v{_v*>VN00DIrGw0#Z+ zoB1`FYMn2#T!B^6GWY6k;%T^t2FoVdQf<~5{|ukAKiJF#F6Ws*#x_)Owi*uDIfFME zVoW2=Vz5~4rvR z`LDvlJ%D~L%vaKHAN1n6+pw2(`?U?Y1O)X*pS;hQ#3m&m^F2X!-xbI>Z^U`MmmroW zmT7Wk73S^j*Sm**NVt1~Tlygi=eCVhWqBDKFwz2g>@dt%LsM+`O0$=ED(*}TfpzHfEc_8KYdS-ImufO zBC(HzpllMy;?C`zWWYqZ#toCU+k_!4-4jp@^3jSlMoJI8gQv11RnO4-r0iJlEC~$( z%IHXh)G<(vJI?(BRPo-d0_}|g%|!L8LF0!MdV=-zm592`iTAv_TuUG$>3a#oysFNx z$uJ|lAAHi6xu7Rjm{ErRq}j?c%83fJXU^nckQ-G&`M=ACYOu#f*pAFk)R^5Yz{9W) z^|B-3EmV2>{YFGXjDOAjSd5rtMnK}gkJU5LHKmMh#0LK9^LBr#ot*M9n zaKF@|mrUcd$T6(%x<1OmSX8W?HJiRaZ-Km-$4V0^in;*@8L09lfRC1Imb5Gk(>vK@$dIESr}VOFL_EQZ%tlhw zHZuAtUgkKDDrotxR~P;A`%aI(pZ=rL=i`^&W%=2Y((;AylcpOL1Kf3R05v8G>VjAv z^H-71F@$lNIMlFGn+$y-5h{W;ndYjtK`X;KeAo-`-3$EdYx3)Y$lA8ynWoLiM8xZz z=$TjNk^D`kR^=_|fpGeY#Ua8HLCV-0g7B7*quNJlqU-qW3XmI&vnOjjSvxqP;a63ja z@ZI9b*<-G`)`D;&t^J9vcc^$bo__o)5cclFCQgH&W(eSJJn2t4r{#-CcHP8lD+uB~ z+oI%6S^A9Z)B(d7r^!?^%U>o|wy7A{8W}n$k`T2`ykqyyO>6>Fez-CTD(3s*CcT!w zvq&vavhphhvqt(fQi3k+gy9$&J^DNLy|~=Ege3FG?2z_7cdGyWEP!g=SY)=;lvO!R z;>q(a35{xH?5_dlOFS5+93%ej{B{)DCXR{wHic|ECk*>K%yuQQGJh;Xc;69*$$U)& zb8}A|rIE5;oXTM~o3WZBrzDCQS;LKf2P6Ep*@^}DwC|7p4uzo1wjeV0uVBY*H)B1v zGFU&tWg9}t>Ib&iF6(djqaV9+a`6v4gBF&VNu+LPtw?j%1L9dO19JSi!Jzz2ad6_Y znnMK6SLlBe)=-WDo)o!|p1Dm*9jgRr&H9vbJ17LjbOqhxL8@UgC52BHH*Lu&xgaFRT;i7<;0!R3#$cvE&) z4|&l;xMP(PyP{>-%>#QO_q(}Q#%q98=5f6+lF&8nO{*OkU(lxkGq;pGJU|SrTmZpp zXQSPi|C^~m_LUXCQ6Y?vuJ@<0ZQ5%Sy(9LyH*@wv>rR9W^5*?~kvjYo)@Y-V#Zog5 z1xjt*+_(VqK}9fR>;Wh(&o=BwGd#&D|J(T6sPQkqB$ZG4h)eUI#{mkQYKdB3#Oqsm z?Uql<5sRb5j#YNed2oG6$h$Q$L$)XQ`*XA@g3y8ADnmJBZ$Gg}aQWR05-_C!w`$J9 z_zm8~*_Y_$#X1J*ba$xTRRowrt6WezoHILxK6fzWDwV@VX2?sDnKX5w>fn_28C8cq zIcp?@1wWF-+2Pj=x6|7QqJ*K*dIF=r#%6zgi@w=ko99E>o^}OP&yW{gS^}+zH6t)v zCc*e+ZXNxE+;5DnpPlrNwtI`shC##oPpe=UFSYl-%)P-3a?Li#_X-=S5NR%Qg)1-C zl9K+4GB{x8?ziQGrd@dl(g;owX6Oz*xAuXWls=&@uhwUOI`N}{zsUr+ zee4Moltgb!R!Vp1aWU0Mk~`wvc+&PIo2x(t^!L~^32blOh1vZjqNyaGzQXX`MOZPD zT$HL?=?>;-y%kK#wvF}>kjpT)=V~eq2NUb8sWn#OE4Td`83=FRA6WsXF9e6aRpNm3 z2Q)}uq@z&=F%5@RovG(c%yQ(!6p}3E!-(^{5$3(0CPe&F!?~B~oOkU-@kJbv+HI?s}&Ul*$03&*iGj#ghWl_9#~KoH1WU^zeB9Kyd^H=sb!|;e6B37oV?l!%b^8v20z+6}NOUY^$*Z z!hd#~rhAloT%QzBKKM$oZSL~_c4O`2D^Q zWC>4iyk$QNcexIT>@|%Ksm(TPu=}5L5d1Z5k#kc1)Trt;c3V2N+hG>w_1SZqU@vwy zEF;4%WSpcUTxYB|%LuXImev>V;rq7e2DU@+>;l|x94)i!-pUK)Rur$tN}L$GReNzi z){Nh7%hIG52oHw!cHFEMzxP5WolEc=)->Lv@;V;nK@e9<-*0BAnKj(X2SN0rq{Yy0 zVQu!G6K(osaUle-2lnuJAtaN}j8u>5!Ba#kp805RPJg&DkSHd&KNX_3KO{TG zl$0U(|A`-Ikc5nm6q6lXZwl~N+?G1774K(ejK;_*cm;kne-X~jprMP5@r}-?2#DQLuv6NI0KSK4YxBn8<(BnnM_9Exhmpo$fX`YgvFQ zV2})nD)L;T|N1hL{6e9v#^pK-C;bC6mr8XjNRNp%pMu*4re%Ya$1bkj>J}$k!K6aE zqWH8It4YRIKVME7&*v)^6I~OL9yA?QuO@-ywW*G2mfC|Co!8oymGstaQm{Uz1ZmT1*tFQYo(!t>ZZ zhZ&h^58p);^*d5l@HVn3DBJ2ani;O;Nr1g!CmVm``-zkE&+ay%yH0U!(ZL)k_fFmu zoqY|j(O9r?*z$^QaVy%JPZ{jMUmERKC?DdBKv(eW-p&7w96XQvIOF*@U{=fELfdKz zzG2=mSx|to;g;~T-W2uWpMfRzTFA?fMF-#Jft;@kI+YiRBMBu(3NwhZcMC4HT)GF- zqNzMWr`2s99dfOWTAr`3!)AZ|MyEhMd8e~b5e-r9`K zSnQ>X9GoXsS(ut;@?Y>nu;N0CDzeIIrSrln;;md3sF=6TMir1iG!ELm*xZ%HqfuS> z?pKw%aUnqzJXOYQm8WK<+T?^)TN+!mav|O@{{hdT99>fO^M@ku0vj~2_HR@Hb1>zc zd-1e76tma3wDC34&!C2X>4vt6G2vs;k-1@OOp$g0(ngHCijGh$qU0ZQlM&mb=dCc6 z6^3d!v6A$W{wY2z#Ax@8-KO@99_?;(-Nqz;lD!KLX=~jQ$-5qEM}*^aZxU< zEhl3UxzXE8F}RSuLU~_wfb?87OYS8G56@O2(}p?sY{)d~A9H6-cJbocy&*y})h091 zhI#gr>8-2a)^y$C#~9u>)oluAeuA(m)TpDHWKWXe(}Ia#01`-e79oF4UtKlnqQdN9Fb33v_F7 z|Jmh8X%qV|p5V6;`4JNCsYe6nnG*26w^W9&VrZZ}S2TL*qY=Kb8~LbJTI(;CeyQql zDhLh%D%W}45t9w`g~{UVgI`1x97>Y*@goJGS<579h&5#zZeyA<2v#oz8sv+Kjy%Hq z=(zeP$-HnWRW)xdmV3yNHI)Zz{PPApm{eARtKpdaH=Gfo-`W2A3F5!I9os&+XdqMI z-clj<)_o$1o-eI4Ci&AlFnKvb+_bw5#6%)_scNbkD+uEORn@zUs_w&IK&vUU%%FkG zYPi}%ahnzv=!)%;_EKs43*-ms(pq8sV48k!r@nB7NTLlgl?5}fRmnAGY6YRv$3H}1 zPog%qeIHaKJ`^3e#WX$Q)x;MaFqhd}|NN!tYjEM6{}88UMKy-hF2#UIbkPVQtbHI+ zUHRr^bC<7nfNDatmWc2GE&=m{x*O)(uLEPSHg~zBHfU#8Kk+Ltl&wlc3!5V7vH#8X zds0K;Fx=c-Xm5`pE5IV>c$?c(d|^6>-+8kDR`=sP1E*$+Cs@MI@Km&?}m9a4)Z6VHud$#qBf|%mKD_~ zQagq@JCbfg?}*xGu=|esNMC@|P;EGM*qbupUz8%4dX?V2;Cso7i*&BTq5?)u3FhNnfgShU zEu*}1#Nybd?v$G^{o~A^-G!v1#VxBG)_T>Y1pAtgE+fZDT!I!Z&6Bnjx30bE&yE?B ze_J74>h+YkY2GxLJmL6tTmR2_tUGDPu!o>1t(#PXZC{dTX=|bss@76%soKF+U2}JX zTE|o5lI2#JeNES%fPitsEh9PaI|qA1g1!sYR^aAS+FD!W4%|n=F{^T|1H73qDg>>4 zy_tUoHD!OkuV-j3V}O&wdRuH!8VMQC@2>AWS*t%V3~HKw$YfbXa~fP6>@1fSkYMp= z*;{vPvU9}pP}nXI*&bGFd7`^<-)nbPiiAv!Jnnr5qrcXSO{;-g)qC}A!#tz&sYdw@ zjc-*7AEnAd#Cyw><@u}-B{XL`d?XS-Vg1~GPrgGMib|r@v}5N#yZo*5o^5%xwm0yW z?^6$!Gi$W0m`-j3BY!r<3KlXdc zw2!pR1{sU42&L?Tw#k}@9&(M9TAoZXc9YT-^PHb_{-ua!U=-OpAh1F z5^(I;%ySqk{~oUO@L6r8G|=?nlOoyIXQr|J7;|Tj2~^T8C>YnUr~UwI%W|Q z%^Zy8`5DP6r?Yx=cN4hY;IRIkS}7l&#ohs)^6za3|2BbclXcH9I)aWHTxeVD9aU!B zC6rn$-K@mPxmwSEQ8=_nuJPn?wD|jiBFDvR*SC~{C#lO_oQTKZOxm}JJ07DX<6wsF zH`rdKts|IsL(01XcO97jT+Xi?>=E7y5;`Y75B7iyK6g6Uw;@!LZ4N8ZH93|G^ z0q3PlulhtnK5~QX;y%!%6+S=<^5Eyod>!)T8s;J(acn(L-%`PxWGWW*&oYv;N+C8 z-Et&!9__|{Ur=!zN@RM6nIaYC6v6@5B_gk7H{?p(`=&EE1Zy8XHG&4$1MGE!jr%yi z9aC8J%vItw0Xww!j?nRq0LMxq#8!;Q zh@v1Qs0G7Qwx~|tx7G{e@A3fWnUMP0k4 z1=9cRYyH`34R&F%UlncNI8|ni8uEM(8+k`%x%@gl;zCSeau%7Kt(BD zU730U6GY2g-jNw*mxetrhd;_C2ymSoeX*jvPR4f$XlsNG*5>zbPcYwo91!cZ{m31b z!iZPu@1^z4P48{{s6>~k?pJG%ia9CIOm9=DK7^KQXi&27k^PI8>)w&AX<0$yeZ{a| z;l{H0F5ARESj}a6!0MNxExh$y=#&Lbnt-dobr{3=yI*6~2m$bslD*6UFsfTAtMR1K z;-I0{VrPr%Ul4e;�wZpEebqSvQsBfGp`C&ut^*h4Wk$;$xLTDM1G&A?Ns!9LJKQMWF%~u?-vyllgH0qWjypmH)c+a)R=Qcm^1TcI&nG zj|ekgJmFOsqGaIMaD6k{ASj!H2&&<65r6=s?0)>+_>iH=t~88E182k2`ZoZ6z28B&n;7o2<#{_<(E-pGk7<;uor=ROkz}W z9~wMZxt|tK(;;t?k(jp5l9?oX#aJ`0C;qrsw*U0>ht!88eHif(!{ez{X|yj4EW(GW z#F45;x-rZ3L$tY)Xo8xaAH>*{x{RbKu-Y^~GD_|e3<*=JGAcbP-xY>wSXN>|n}ypF zb1<;M{G;z@Q0vCsyzInhmkJSI!qSdrtnqh?hEwqC`MTUL#gPzriu~SBbFXrp8LX$` z4AjxZd&RIMaRDFk@J84wag|X&yz-tz9y5J<`o?NzR(#-zQW6n8T3o%vMBVdK+>$oD z$oo0LM5-JNYJCiJM-ycTFAN*_>h!v6WV;p;hFMh%2N>GQb)UAZ4rV6+KrDOw)LiEw?Z{0bVzp#>rrMAO+X(D8em=8*F-&6C}o@9A!4 zG5F&h*&*RfX?t7-RPnw*#^LxR8tlSO65EQnXnmgjp;hgzF*S>UH}}>sBppFpQY_v% zv9=`#W6|N!-dF^SrXXU1tB=6;R5j3l&*rIq$e zWNxr~-mrWBaGCE?>u+hTtNh8&9pWv))xnD#xt(j?wk^Us3p*3&4T+SU85<$YYI;;g z;i;J>lqG_Lyh`i*>E@qfNG{>w`I%?rgGyb+UotD11Tqe#Qkt}X=?r%$3eM$Hil;mK zDs>T zSg%<72UI{Hd-Z$m3iH}a1f6)9sP;-}{m-6jb_2Vp8f=}F8l`OahV_P3qKIRfK4;+f#7OB#Cn5V=8E3Wc189T-SJ&1{w{~hWaRw@3B zNyC^%>I=mSomj;g2^V%ZxET499T^B!zb7!9Te0SNx-A)d(o}Y9EyYc>;M#h>ElJCyXE~5$G{1$fypV|-|*=BWJ zruH)@?(e&ff^@_j!!N42^l}4UvZ`P4|BCufKbiE`gvj!l_B%F@&nYrLYQivs_in!#dvx>G?>~LO{hA$U}7i=0BythoP(a*`KV;@v#@Us-8`!LAU z{=toHSN&7H6PD5KOWv|*ZrZdWE&Gx5t3MQ<7nt}akte2A(-_5&2gZd^BtzvGbJ5*r z6rG-kh-q1R>0?ZRcpOaz^r-i(e9k`)<1@@%ImAWna)&SPJ?@7Ih)(Nn`PoHs9&Zj2 z5+#p^6PyRpH&HJweGxA;(GZE<8S{-J=MMYR>?0be2}tCz><>1y%6MMfYS!tl`St>I zQVVA4CzJEDrCi#fbLUKqO?$fy1lKTS&vpkXotVbMx{bI8LWyz(8eW|9;`h31F1>utdM;jk>Ne%vc&sf(|+!><`09Cd#zCsCvs^*d3N>g)QF!l zK0VB%TRkWF+x{gs$vTskMe~#E7ZU6#I>sihr@}4-FwDP&SCe{tw^Ls}H1_OYbeiEC z!|2r>QXnB4uj_{@iazM9{B)(>Mcg)?WK>K!+jxk8s&1lI<$eBaf ztoDwrtj6x7ZFIW=-H(RQ0yXhG#dnXl6>W=}77DC!66W z&2qQz=`{BmA)i?4;Gu>&YH9ZtU#44_h3QZwFWfz`KM-Zib9AGhiaU~+&DfZ1{hi`x zxzw|PQ77D(T)Q{pJvxQx9w`p^QqkYu2|rBBbw1)LOINwFS!z+FkzPC>MMvk~`CEd! z5x9BD8-54JS|^B%mw|1CNVU9usZHCx%En*$Psty%g-@9dxLW@FPex;zlD2BavFGzn zS8}bR7Qa%yMaAFLeVo+76#n+Kl>_$|kQnQwPlT>1H$^PV(?g_WdV`6>%{O%yTcsSWoU+@=h83(6)QUFn#pkeQB8 zV3xjdRU7%KK)&uX0q)v5#)ysXEaa=D{qO9slUhmR&Undjvq8sG?7@4)53)fP)6yuc zQy68ERC2V+Dxx!+OAG~fl>Lm2A5sQ`2@!9qdx~CM_fXz&@h7*Q$!MV9H!GylKh6}y zdP{4th7?9wP%)`qr*`_vTXL%=N!krRXjRIL;s(xm`dt;Z#BU7|J7b}9j$F*XDW21r z%z=DpvPE*TX1;v2f#&BUH6A?9$c3UZ>>o~-c4DflK)8o6XD^ob7AqMCNhww)+TJ}| z-;b5>{xp9x4|hCgRUyQfmzID+nh;f^H$|C`INJu_LUv|NrP$i&wohjvcTfY^@2MK(wM|Qr{8l9`sJlP5KoOBZ!WM5KQ69t zxC1v^JA6I70xO*IH+O_8{+!?ihPVDa0Kqo~Gm;*Sd&&_y4Di230UviShjz8g8}@(d zJw*F71QhbVk1TH(&&WpNA9~{ai3xk6Q{ZD2h+p(8`@i4Ji6v)bL?f+jFCDVI@q^$x zV4?)DU*2<7CbNU;_Z)&25Qy;Qwv<>SYqy(tM}AEJM(0i9mQMhy{oJ>~5`pI-Gwa`? z?%r4n!Jo%U63O^yxC4^;?`$?bH}B+*JO_5wJNXfwPv#B?d*Kz^;xD5kJK^HpFa8-p zCwyvxpe&3cwcp@ks&#-FE7b5;e;g8!sef#rP-AY?1GU_~t`QpiGVa^ZJ70e6;$YqD z-ik4ZVH@#*q-~7d2o0QS->oK|e?ybiXypw1Ho`}uu&@qaC1^^seo`%@ziQDTp|bDz z<%1dh8PWXfIve-a+#elJQ8IdT^FVzUn4exdJ6_$-vH$3q*#v<1)X!%DO5lL2hb{8& z$`D?ajKYCiR<>Dt##AyE*b1{M`!-?W=G@nkOvlNAwh)Pix|FC%{4OuEcK%i?5`wNX z6ijwL+LyGZQc|A{*XIKqY%j@E`Sd+TuK^IND}H7-6`dZ@v!cbmJ$fBMJCd^IrexLe~_shp!Y8^I17zW+Z? zEOShN5QUdQ-X&j@&m}5%hB$hJcTqWr_sTgbv*Yj9#L4JOf)QFq@o5EhgwxW>$;=8g$UPm*Eozrn=C>eFr$q4ZL28>+4 zLY~cwF-u?nZ?;sOhN$iF^_G+A+1V~jl$r@@(~tKpkT>6{{2wXP1Zduc%6{J5F*}8~}MkQ6Mebm#obdpztqU{ft0ThCMnW+MLh^00OP?dp3l% zOQ@mrpZ6P9cIJ(OK=CXc$@P3)C?+7i&9pTdZ!pfH&>aIt??R<`F~4?Kp?yDTEFZpX zxIHXIARj-sKf8y_TcY4aC#9%{y+W}%J&4(S_{JY&21P?%L47sy-HHNp2H(XRmV}DW zf9vUY%||jDaZxcANznR27!eLs%cqt7T@fRMfn{ZhX>QwAC;>v*y*Z$yd&j!0gs9lN zXzq#?u|zb16Z^WERuTe1SBXOpu6fl0OfJV3K-t(bJ|ddF!lwHyjF(DT!?o|kA|P{R z05sDaIA}g5%KT937p_e!lbW~*g&Ok2sUg_%v2%dScNA@zloJIb9tp;8VnySfwLudD zWztVZKbA+HeHNXNYAG}WjfEPLi=TI0`>Td1I&K;NecAuQ`JX2S;X^9#M+hPLN3o=? zUSuRRFuRP)mgZax5G?uz=1*~Lon>5;-5=nihz<*(ozN@F-et%fz&n{2?;?_ zO6g7k>Fy9gx?4ez4gnveQ~o#b;4|>Q&u6=K@5S{!zc}YUFSfJcp-zI)ILvRXf^TpB zdiv>AeyvvWZWc{#zVelVdKH2nisXeH8v!q)FBRxgGE!nBy5h@th$Sm1FcDl@emC#y zwp`0bougU%c&&OJj;X>yO+I*_$4Ps`%qb^soNVO4=U-%LJ0I z2zZZw*xv5ud17Wv=lr0c|I=VJx|B?1M(9V52&i(#W*@G)=5x1iZHJ^eG^~^3&c$j+ zenUgk0TR5w_b2%Szs*UOH$3SAN!}Xr) zatCeq&%MWq9WxcGsukX^HXERV%bRHQvX?#vojNqySY?6Tb(rB=N@|Dl~X zsNq#nVKCKTEG3Ed58&539%K)4;8Zu=q8jNTBotNlG}PtV-;(qt~s_tY&q^iuQJ*Lfw`DvdkkPO)g6GmcbqYxNnH zGsQWiXmtcO0*@ENHe7biACqov1p9{7`W$MAP&*V%^vAntj=wcKp#8X-gwe&1d;J;i z!j9J*-v(!zM}CIj{xySEZa?z7cC9U>$%H9^<>L2lS_?+s@iK7PP7iS14dYlPTO0RQ zQm59ro8(R?w_!i8tZAOInNkqNjy)kB);HiT_AvX3Y8ov@Gh(>}~I z_3v%2zoO<{ePPBDm}itKOj*UYP2=7Ge#sBN4K`J2;E~7)Rxyt!vy|Ov_x4qNBBcE( zxxqSGjSspM_iB!8m&E7!?42fo_OY8t{si#ECL(~!?dpNbqpckrbo?>dyansVtZl6& zD0xKOoK4 zyT<0?;FMXrQv~0A`j8e|Z|N!b;Cn&X2qO)xu~jD>IOO1OgC zHSNRkI!K6D`>pWB4YLqWBFo%`7u2H8xh2z~dEhFEf8uJq-q>pk=tDY6dEE6SWk1AX zHW$aPul}4b%xQWo4ANFAda3%=DVkf*U;vA>(oQdnMD}Q-jisM&TAgu)E0wcebF$}M za+jZHpmXYEk1vJP?We*nQR)-w8s78$12jJ%_Y!oPY!>-H_r?}~uV0mevv^Zqe?t83 za73l0y1}6snf*}pvFF-ooPg5gA}8O$HA(@gUlG@)ex`(wu;_1Y>91~Y zKOCzFivqu*`5CaR%BmqUn$DK^$_&>zY{59aw0UlXHG8h*$}j6pF1WX}43`9tcmOfP zoRe#Lmt%+vF9pxSM-T5%K2)v>LZA0Rn~rhqH)qQ0IME*+AU{i%u$D(u3#RT4{5TrA z6xb1X3Cy)ZMy1l$lT8Cv(EcLdG=KCPvx%Tl4eb6V}$?o)3(4~>RQ~jD`$C5 zt92!w=6A0}oR~tYG=&|mW+;zib6o=L-jy?plJ0U~wPn^G8@fK>;=oBUI5j(P| z*l@Gm4!$wy;FiJCxaEB}YxAnYRP<=ft#--HYo#u@m$0&2@@g1Tv_|rXcUfKsyv&xk z%%|0xm$%Q5`ynZ$`xW~^JTBLJp=ZSO`=LvuY}Fk4y;&0XlM;wDBDUQ3U6?7Au@(Au zRqlFig%o~{l_P!dtOI>S<{cJI*>Zx2*yP-rUQV&@Q1$L1X<^^B(jy&ywT2y^-Q~O+ z;?n)!x|WpsE$R9b3TE``8;T+%{hyM4i50O*PxvK_kQgh@A{NsAWjQ?Qlv7SzMN|Z7 z0E6mXK>EMkSCx&PlZxHF%n()fozI9HSJ&Vs9a_r&|+-0ncvrr4LK86ahk9J_7k&lMeKTarPF6OE4X8tZk@cx!q>`&c%Db%thmod^t~g?9 zCgY&j+MFZu=y%ri-eoL0ed|rfo6vPLhpj@6)O!QoAZnE?GOoT(VVyoi=sh}GOYyN*qx^f1ZCmA_ghtQfc&S#VVMx1Me0K_0(sKw%xaWEcoj$yJZ!-R4|--yKhR!MS8l;k}sx> z=6jYJNGA3u46e)jK^P(><*@Mmwp+or+*qS*0+%roo#uL5VcSqFgTaktmu;#59BTHT zRtnal>kguw4`d;c=20WnlVA_G&vJn;xX`-fn2t2u>Irb4mho`0&nn6(m4QOVvuHMN z-MNh3pzxtjaX4c?RH`y;v}L4NND_^AG%;$*PP=4fu4qF>|GKm0jhq;CLZZZ?{y5>8 zoCm+Yn_}bjhQ7wb85F$^V!XY*_GI*RL#h)@rCece%$lA8EIJW9*wnO2{@z?O*Poqf z<$FEi1wk<-WM(}eSv=r}D|RSDA!3t`Qs%NA`qzM~Cibpjhrd&`rI-y!6M`Ld5}9SH zv@$wfrHxyy_Qw?xW`?|tUS(Xv=a!VRNG}dWBt3=>KBiTICo?-;{V3RmHXzYlqSZMj z)Fcf2f8&zxK>XVz8#QEP^$;lASvW(NbDmr9gRlqaS$Z^HkdVBO$J*8D*Eq!L%^a>@ zc{1x*STc(IC34yuOHFBe(_wmu`n~bkDv|jXXAMgw&y1|C3uD}D?-TGk4;0V~+|AUz zVZ9a55Qc!yCa*se5OU7VKzCLh5?Xh-JG7pggl{*I6Qug>cJOT{A_-8wj!j=09Oje?!mLtVqxu8+M zi%9GCgPS!v&x_gn)K?UlzA(@!VbuEjq=mkW)tpIgzbWQ*`AbOcTqT)WnX(PWh*E}G ztQ?NBB7f%HZ@NE|-ymYfn!G&spsuz7OQPxsZXU%iX-lPKt$te{JHy~aZxGQ*@OsMi zs3b9Irq@u8Prk2ncB4ThU!b_caFSg^WnDeX=w9YNzK9T(9j zg35h6h95FZd^{rj??AdW4_2tqqOw>W2n1@x0)Zfa+Q4ji%#09lTOM0G1dltG!Y`RyAKM4lD7_zV-W&On#B{rjTM zrwD5D1p4+bT?3U%+zmKrw;--xZw)Z;d@FiT$t)&1>QGVKXwUx@J<2A6n)rQfO^5J& zO&lkBL&7tE0z$kF0)oIg56dY7ef@XF`V+i{`Xu)Z^i_mE)lKjksD1k21;tFkV~6H5 z4QEcS#kBhqTtRmgcF$YIe1+Fu_ST9iH$5w%T{PXB74%=cof(+WHEiCyz}b7CcfgYb zcp4hOjrEKWmIxbLZgX1%JZtVD2rcz}^1`{%fqN<1_k85>LdEhHQ-uBz_+`9en=Merz#^7smHt3kq@`YWwZyF)O@Earbk!cwf zFIsF~JWsSUBvi(~{_IM^;g!^lgiFgl_Z@9Xe0Da9R9UmkoWN~&ykcBMs!4Qut$1mn zvoQJ_=rrB!>W!JjqMkp^jOCfBuBd5n)h1KCiLm#z7iGvNu7r5r8W&!^J+jXxsn#0|DWHC~I3)mhrScidq0Yb(si+2Vwy}KYlQsyn;X`CU%beCfvrBmU#bu z1_n`qs(btD(j|w$D|>I0{e6bOqKzSkRiX2%Q=cCL@<)e#!P^iZnp(mf`S~t- zE2yV#OiB!aTT)U^ybE1V71jG5TB`~@S(-T7E-*|RbP(>jaa+sd0Ny5!{1>g=c*{$s z0BhRH>Jw}3kW)pqj`L!LatyY=6#$%7fG5d0>u4EVkQKt%-V&x~X=ZD8(hR7Hd1G(0 zs^vWdKGT5r=JN^2AuuX|Gq_DfzKDL3k^>C{62brxo+BIp1SG=7&cNQ-3~@1l6*;d& znOj3(!S(Kw0D3x471f>@Xx;P;^`+qFKuxs?FXToNjt{amwm~AfVNNjAk*i}W%O97L zp!S~=Yh%k(J+;O=X@}!kdGhApm;c)3cz$j#lb*~`q@@9{CZT%Al6j_RTMU7<)_hKs z8Q)prx%v659D8$6DEfQ^lCn+>0#TgH3gZf@w{I~85cD@WHA^} zg@Q1XE}$!e2`+LVtLHg3RtE5Ae{sGNE-`xp<3H0eJbU?z@$>+kVS8)3*8s;J;9NQv z5BVA@$Hv~)*3959OjH`%<}v0>?Vo%O_z!bhl0Hw?b0xv~gE=lq&pPS9?Rvf-uqJK7 z<2Kb^IaSF4uBQWzX9YQRZor^8=X`!5Y@s-Fo0{2Kz+gz!lFyP7)ZjY}fiEg*DeT=@ zp}yJ;j=@!!~O4F1n#XdKMkQ3rw$FaoI@cdqFU^du-$1Rp*H z^m*oNzI^w_|R5H`jzn~PIUjl)nM0t6CJMQ}nnOC9RGsJW0T z{6CcAA_xau0`Aqv?q+b)^K~GIkS{;Z(wRm&Ib6&3OstMz!X`}4r~138W$_ylr(==)hQW%IyVdZxR#)f|tnQC&waxSn4xivM*r zLBQ?Kdr!Qd?>+X)lUg{@3`kwhf8M9JE``b#6-idcl^5z@5SQJ26%HmkjQBYl+75b zxAYfWGEJaG#g0z(`UsO~EUJ3!! zsOUzch$^sE@;*K@88wdKWmLxL9SGRGq6PxdDrg@B?v-bnXOeYtjSBhuU}jW^v=k*u zAx6;;SfN0y_#2Fw Date: Tue, 20 Oct 2020 14:59:42 +0200 Subject: [PATCH 26/33] Fixed VFO alignment --- core/src/gui/menus/source.cpp | 6 +++ core/src/gui/waterfall.cpp | 12 ++++- core/src/gui/waterfall.h | 1 + core/src/signal_path/source.cpp | 8 +++- core/src/signal_path/source.h | 3 ++ radio/src/main.cpp | 5 ++ root_dev/config.json | 84 ++++++++++++++++----------------- root_dev/module_list.json | 9 ++-- 8 files changed, 78 insertions(+), 50 deletions(-) diff --git a/core/src/gui/menus/source.cpp b/core/src/gui/menus/source.cpp index c2f06be..2bccaa5 100644 --- a/core/src/gui/menus/source.cpp +++ b/core/src/gui/menus/source.cpp @@ -6,6 +6,7 @@ namespace sourecmenu { int sourceId = 0; + double freqOffset = 0.0; void init() { // Select default @@ -13,6 +14,7 @@ namespace sourecmenu { if (sigpath::sourceManager.sourceNames.size() > 0) { sigpath::sourceManager.selectSource(sigpath::sourceManager.sourceNames[0]); } + sigpath::sourceManager.setTuningOffset(0); } void draw(void* ctx) { @@ -29,5 +31,9 @@ namespace sourecmenu { } sigpath::sourceManager.showSelectedMenu(); + ImGui::SetNextItemWidth(itemWidth - ImGui::CalcTextSize("Offset (Hz)").x - 10); + if (ImGui::InputDouble("Offset (Hz)##freq_offset", &freqOffset, 1.0, 100.0)) { + sigpath::sourceManager.setTuningOffset(freqOffset); + } } } \ No newline at end of file diff --git a/core/src/gui/waterfall.cpp b/core/src/gui/waterfall.cpp index 86c5f64..4b8258b 100644 --- a/core/src/gui/waterfall.cpp +++ b/core/src/gui/waterfall.cpp @@ -230,7 +230,9 @@ namespace ImGui { int refCenter = mousePos.x - (widgetPos.x + 50); if (refCenter >= 0 && refCenter < dataWidth && mousePos.y > widgetPos.y && mousePos.y < (widgetPos.y + widgetSize.y)) { double off = ((((double)refCenter / ((double)dataWidth / 2.0)) - 1.0) * (viewBandwidth / 2.0)) + viewOffset; - vfo->setOffset(round(off / vfo->snapInterval) * vfo->snapInterval); + off += centerFreq; + off = (round(off / vfo->snapInterval) * vfo->snapInterval) - centerFreq; + vfo->setOffset(off); } } @@ -239,7 +241,9 @@ namespace ImGui { int refCenter = mousePos.x - (widgetPos.x + 50); if (refCenter >= 0 && refCenter < dataWidth && mousePos.y > widgetPos.y && mousePos.y < (widgetPos.y + widgetSize.y)) { double off = ((((double)refCenter / ((double)dataWidth / 2.0)) - 1.0) * (viewBandwidth / 2.0)) + viewOffset; - vfo->setOffset(round(off / vfo->snapInterval) * vfo->snapInterval); + off += centerFreq; + off = (round(off / vfo->snapInterval) * vfo->snapInterval) - centerFreq; + vfo->setOffset(off); } } @@ -797,5 +801,9 @@ namespace ImGui { void WaterFall::hideBandplan() { bandplanVisible = false; } + + void WaterfallVFO::setSnapInterval(double interval) { + snapInterval = interval; + } }; diff --git a/core/src/gui/waterfall.h b/core/src/gui/waterfall.h index 9f76662..12d62c4 100644 --- a/core/src/gui/waterfall.h +++ b/core/src/gui/waterfall.h @@ -16,6 +16,7 @@ namespace ImGui { void setCenterOffset(double offset); void setBandwidth(double bw); void setReference(int ref); + void setSnapInterval(double interval); void updateDrawingVars(double viewBandwidth, float dataWidth, double viewOffset, ImVec2 widgetPos, int fftHeight); // NOTE: Datawidth double??? void draw(ImGuiWindow* window, bool selected); diff --git a/core/src/signal_path/source.cpp b/core/src/signal_path/source.cpp index e8412b4..8e734a5 100644 --- a/core/src/signal_path/source.cpp +++ b/core/src/signal_path/source.cpp @@ -54,5 +54,11 @@ void SourceManager::tune(double freq) { if (selectedHandler == NULL) { return; } - selectedHandler->tuneHandler(freq, selectedHandler->ctx); + selectedHandler->tuneHandler(freq + tuneOffset, selectedHandler->ctx); + currentFreq = freq; +} + +void SourceManager::setTuningOffset(double offset) { + tuneOffset = offset; + tune(currentFreq); } \ No newline at end of file diff --git a/core/src/signal_path/source.h b/core/src/signal_path/source.h index 8ad53e1..ce5d0bd 100644 --- a/core/src/signal_path/source.h +++ b/core/src/signal_path/source.h @@ -26,6 +26,7 @@ public: void start(); void stop(); void tune(double freq); + void setTuningOffset(double offset); std::vector sourceNames; @@ -33,5 +34,7 @@ private: std::map sources; std::string selectedName; SourceHandler* selectedHandler = NULL; + double tuneOffset; + double currentFreq; }; \ No newline at end of file diff --git a/radio/src/main.cpp b/radio/src/main.cpp index d5f913a..d9bb851 100644 --- a/radio/src/main.cpp +++ b/radio/src/main.cpp @@ -124,6 +124,10 @@ private: ImGui::SliderFloat(CONCAT("##_squelch_select_", _this->name), &_this->sigPath.squelch.level, -100, 0); ImGui::PopItemWidth(); + + ImGui::Text("Snap Interval"); + ImGui::SetNextItemWidth(menuColumnWidth - ImGui::GetCursorPosX()); + if (ImGui:) } static void scriptCreateHandler(void* ctx, duk_context* dukCtx, duk_idx_t objId) { @@ -315,6 +319,7 @@ private: int bandWidth; int bandWidthMin; int bandWidthMax; + double snapInterval = 100000.0; SigPath sigPath; }; diff --git a/root_dev/config.json b/root_dev/config.json index c3ddd76..9595ad7 100644 --- a/root_dev/config.json +++ b/root_dev/config.json @@ -1,43 +1,43 @@ -{ - "audio": { - "Radio": { - "device": "Speakers (Realtek High Definiti", - "sampleRate": 48000.0, - "volume": 0.60546875 - }, - "Radio 1": { - "device": "CABLE-A Input (VB-Audio Cable A)", - "sampleRate": 48000.0, - "volume": 1.0 - }, - "Radio 2": { - "device": "CABLE Input (VB-Audio Virtual Cable)", - "sampleRate": 48000.0, - "volume": 1.0 - } - }, - "bandPlan": "General", - "bandPlanEnabled": true, - "fftHeight": 300, - "frequency": 98983691, - "max": 0.0, - "maximized": false, - "menuOrder": [ - "Source", - "Radio", - "Recorder", - "Audio", - "Scripting", - "Band Plan", - "Display" - ], - "menuWidth": 300, - "min": -72.05882263183594, - "showWaterfall": true, - "source": "", - "sourceSettings": {}, - "windowSize": { - "h": 720, - "w": 1280 - } +{ + "audio": { + "Radio": { + "device": "Speakers (Realtek High Definiti", + "sampleRate": 48000.0, + "volume": 0.60546875 + }, + "Radio 1": { + "device": "CABLE-A Input (VB-Audio Cable A)", + "sampleRate": 48000.0, + "volume": 1.0 + }, + "Radio 2": { + "device": "CABLE Input (VB-Audio Virtual Cable)", + "sampleRate": 48000.0, + "volume": 1.0 + } + }, + "bandPlan": "General", + "bandPlanEnabled": true, + "fftHeight": 300, + "frequency": 99015000, + "max": 0.0, + "maximized": false, + "menuOrder": [ + "Source", + "Radio", + "Recorder", + "Audio", + "Scripting", + "Band Plan", + "Display" + ], + "menuWidth": 300, + "min": -72.05882263183594, + "showWaterfall": true, + "source": "", + "sourceSettings": {}, + "windowSize": { + "h": 1053, + "w": 959 + } } \ No newline at end of file diff --git a/root_dev/module_list.json b/root_dev/module_list.json index 446b3f1..5a29e31 100644 --- a/root_dev/module_list.json +++ b/root_dev/module_list.json @@ -1,7 +1,6 @@ { - "Radio": "./radio/Release/radio.dll", - "Recorder": "./recorder/Release/recorder.dll", - "Soapy": "./soapy/Release/soapy.dll", - "RTLTCPSource": "./rtl_tcp_source/Release/rtl_tcp_source.dll", - "FileSource": "./file_source/Release/file_source.dll" + "Radio": "./radio/radio.so", + "Recorder": "./recorder/recorder.so", + "Soapy": "./soapy/soapy.so", + "RTLTCPSource": "./rtl_tcp_source/rtl_tcp_source.so" } From f6cfe83d45610d7b9addcc73a12cbbc83587e129 Mon Sep 17 00:00:00 2001 From: Ryzerth Date: Tue, 20 Oct 2020 19:15:43 +0200 Subject: [PATCH 27/33] Fixed typo --- radio/src/main.cpp | 1 - root_dev/config.json | 84 +++++++++++++++++++-------------------- root_dev/module_list.json | 8 ++-- soapy/src/main.cpp | 2 + 4 files changed, 48 insertions(+), 47 deletions(-) diff --git a/radio/src/main.cpp b/radio/src/main.cpp index d9bb851..182203a 100644 --- a/radio/src/main.cpp +++ b/radio/src/main.cpp @@ -127,7 +127,6 @@ private: ImGui::Text("Snap Interval"); ImGui::SetNextItemWidth(menuColumnWidth - ImGui::GetCursorPosX()); - if (ImGui:) } static void scriptCreateHandler(void* ctx, duk_context* dukCtx, duk_idx_t objId) { diff --git a/root_dev/config.json b/root_dev/config.json index 9595ad7..e7e945a 100644 --- a/root_dev/config.json +++ b/root_dev/config.json @@ -1,43 +1,43 @@ -{ - "audio": { - "Radio": { - "device": "Speakers (Realtek High Definiti", - "sampleRate": 48000.0, - "volume": 0.60546875 - }, - "Radio 1": { - "device": "CABLE-A Input (VB-Audio Cable A)", - "sampleRate": 48000.0, - "volume": 1.0 - }, - "Radio 2": { - "device": "CABLE Input (VB-Audio Virtual Cable)", - "sampleRate": 48000.0, - "volume": 1.0 - } - }, - "bandPlan": "General", - "bandPlanEnabled": true, - "fftHeight": 300, - "frequency": 99015000, - "max": 0.0, - "maximized": false, - "menuOrder": [ - "Source", - "Radio", - "Recorder", - "Audio", - "Scripting", - "Band Plan", - "Display" - ], - "menuWidth": 300, - "min": -72.05882263183594, - "showWaterfall": true, - "source": "", - "sourceSettings": {}, - "windowSize": { - "h": 1053, - "w": 959 - } +{ + "audio": { + "Radio": { + "device": "Speakers (Realtek High Definiti", + "sampleRate": 48000.0, + "volume": 0.60546875 + }, + "Radio 1": { + "device": "CABLE-A Input (VB-Audio Cable A)", + "sampleRate": 48000.0, + "volume": 1.0 + }, + "Radio 2": { + "device": "CABLE Input (VB-Audio Virtual Cable)", + "sampleRate": 48000.0, + "volume": 1.0 + } + }, + "bandPlan": "General", + "bandPlanEnabled": true, + "fftHeight": 300, + "frequency": 99100000, + "max": 0.0, + "maximized": false, + "menuOrder": [ + "Source", + "Radio", + "Recorder", + "Audio", + "Scripting", + "Band Plan", + "Display" + ], + "menuWidth": 300, + "min": -72.05882263183594, + "showWaterfall": true, + "source": "", + "sourceSettings": {}, + "windowSize": { + "h": 720, + "w": 1280 + } } \ No newline at end of file diff --git a/root_dev/module_list.json b/root_dev/module_list.json index 5a29e31..b93a9b4 100644 --- a/root_dev/module_list.json +++ b/root_dev/module_list.json @@ -1,6 +1,6 @@ { - "Radio": "./radio/radio.so", - "Recorder": "./recorder/recorder.so", - "Soapy": "./soapy/soapy.so", - "RTLTCPSource": "./rtl_tcp_source/rtl_tcp_source.so" + "Radio": "./radio/Release/radio.dll", + "Recorder": "./recorder/Release/recorder.dll", + "Soapy": "./soapy/Release/soapy.dll", + "RTLTCPSource": "./rtl_tcp_source/Release/rtl_tcp_source.dll" } diff --git a/soapy/src/main.cpp b/soapy/src/main.cpp index a55c983..70c559d 100644 --- a/soapy/src/main.cpp +++ b/soapy/src/main.cpp @@ -284,6 +284,8 @@ private: } i++; } + + _this->dev-> } static void _worker(SoapyModule* _this) { From fbd7321b48d0b9508ffef05bdd9b7918702a48ce Mon Sep 17 00:00:00 2001 From: Ryzerth Date: Tue, 20 Oct 2020 19:55:14 +0200 Subject: [PATCH 28/33] Fixed typo --- soapy/src/main.cpp | 2 -- 1 file changed, 2 deletions(-) diff --git a/soapy/src/main.cpp b/soapy/src/main.cpp index 70c559d..a55c983 100644 --- a/soapy/src/main.cpp +++ b/soapy/src/main.cpp @@ -284,8 +284,6 @@ private: } i++; } - - _this->dev-> } static void _worker(SoapyModule* _this) { From 087380c9664794013fe2591ae3a0b3c3417bda60 Mon Sep 17 00:00:00 2001 From: Ryzerth Date: Thu, 22 Oct 2020 02:33:50 +0200 Subject: [PATCH 29/33] Push before merge --- core/src/signal_path/vfo_manager.cpp | 4 ++++ core/src/signal_path/vfo_manager.h | 1 + radio/src/main.cpp | 8 ++++++++ radio/src/path.cpp | 2 +- radio/src/path.h | 3 ++- root_dev/config.json | 12 ++++++------ root_dev/soapy_source_config.json | 4 ++-- 7 files changed, 24 insertions(+), 10 deletions(-) diff --git a/core/src/signal_path/vfo_manager.cpp b/core/src/signal_path/vfo_manager.cpp index 63165a5..e049b4b 100644 --- a/core/src/signal_path/vfo_manager.cpp +++ b/core/src/signal_path/vfo_manager.cpp @@ -46,6 +46,10 @@ int VFOManager::VFO::getOutputBlockSize() { return dspVFO->getOutputBlockSize(); } +void VFOManager::VFO::setSnapInterval(double interval) { + wtfVFO->setSnapInterval(interval); +} + VFOManager::VFOManager() { diff --git a/core/src/signal_path/vfo_manager.h b/core/src/signal_path/vfo_manager.h index 42e490b..29bb892 100644 --- a/core/src/signal_path/vfo_manager.h +++ b/core/src/signal_path/vfo_manager.h @@ -18,6 +18,7 @@ public: void setSampleRate(double sampleRate, double bandwidth); void setReference(int ref); int getOutputBlockSize(); + void setSnapInterval(double interval); dsp::stream* output; diff --git a/radio/src/main.cpp b/radio/src/main.cpp index 182203a..0967c71 100644 --- a/radio/src/main.cpp +++ b/radio/src/main.cpp @@ -26,6 +26,7 @@ public: sigPath.init(name, 200000, 1000); sigPath.start(); sigPath.setDemodulator(SigPath::DEMOD_FM, bandWidth); + sigPath.vfo->setSnapInterval(100000.0); gui::menu.registerEntry(name, menuHandler, this); ScriptManager::ScriptRunHandler_t handler; @@ -121,12 +122,19 @@ private: _this->sigPath.setBandwidth(_this->bandWidth); } + ImGui::Text("Squelch"); + ImGui::SameLine(); + ImGui::SetNextItemWidth(menuColumnWidth - ImGui::GetCursorPosX()); ImGui::SliderFloat(CONCAT("##_squelch_select_", _this->name), &_this->sigPath.squelch.level, -100, 0); ImGui::PopItemWidth(); ImGui::Text("Snap Interval"); + ImGui::SameLine(); ImGui::SetNextItemWidth(menuColumnWidth - ImGui::GetCursorPosX()); + if (ImGui::InputDouble(CONCAT("##_snap_select_", _this->name), &_this->snapInterval)) { + _this->sigPath.vfo->setSnapInterval(_this->snapInterval); + } } static void scriptCreateHandler(void* ctx, duk_context* dukCtx, duk_idx_t objId) { diff --git a/radio/src/path.cpp b/radio/src/path.cpp index 97f5296..cc49403 100644 --- a/radio/src/path.cpp +++ b/radio/src/path.cpp @@ -36,7 +36,7 @@ void SigPath::init(std::string vfoName, uint64_t sampleRate, int blockSize) { // TODO: Add a mono to stereo for different modes squelch.init(vfo->output, 800); - squelch.level = 40; + squelch.level = -100.0; squelch.onCount = 1; squelch.offCount = 2560; diff --git a/radio/src/path.h b/radio/src/path.h index fdf0295..7d5318d 100644 --- a/radio/src/path.h +++ b/radio/src/path.h @@ -46,11 +46,12 @@ public: dsp::FMDeemphasis deemp; dsp::Squelch squelch; + VFOManager::VFO* vfo; private: static int sampleRateChangeHandler(void* ctx, double sampleRate); - VFOManager::VFO* vfo; + dsp::stream input; diff --git a/root_dev/config.json b/root_dev/config.json index e7e945a..15b8dab 100644 --- a/root_dev/config.json +++ b/root_dev/config.json @@ -6,9 +6,9 @@ "volume": 0.60546875 }, "Radio 1": { - "device": "CABLE-A Input (VB-Audio Cable A)", + "device": "Speakers (Realtek High Definition Audio)", "sampleRate": 48000.0, - "volume": 1.0 + "volume": 0.609375 }, "Radio 2": { "device": "CABLE Input (VB-Audio Virtual Cable)", @@ -18,10 +18,10 @@ }, "bandPlan": "General", "bandPlanEnabled": true, - "fftHeight": 300, - "frequency": 99100000, + "fftHeight": 298, + "frequency": 98200000, "max": 0.0, - "maximized": false, + "maximized": true, "menuOrder": [ "Source", "Radio", @@ -32,7 +32,7 @@ "Display" ], "menuWidth": 300, - "min": -72.05882263183594, + "min": -53.676475524902344, "showWaterfall": true, "source": "", "sourceSettings": {}, diff --git a/root_dev/soapy_source_config.json b/root_dev/soapy_source_config.json index b682a34..3401091 100644 --- a/root_dev/soapy_source_config.json +++ b/root_dev/soapy_source_config.json @@ -1,5 +1,5 @@ { - "device": "Generic RTL2832U OEM :: 00000001", + "device": "HackRF One #0 901868dc282c8f8b", "devices": { "AirSpy HF+ [c852435de0224af7]": { "gains": { @@ -18,7 +18,7 @@ "gains": { "AMP": 0.0, "LNA": 24.711999893188477, - "VGA": 15.906000137329102 + "VGA": 14.282999992370605 }, "sampleRate": 8000000.0 }, From 4bf88739b53220bed8e8c0778409e45bd528c6be Mon Sep 17 00:00:00 2001 From: Howard Su Date: Thu, 22 Oct 2020 08:28:43 +0800 Subject: [PATCH 30/33] Fix OSX build --- CMakeLists.txt | 10 ++++++++-- core/CMakeLists.txt | 38 ++++++++++++++++++++++++++++++++++++-- core/src/gui/waterfall.cpp | 3 +-- readme.md | 16 +++++++++++++++- soapy/CMakeLists.txt | 7 ++++++- 5 files changed, 66 insertions(+), 8 deletions(-) diff --git a/CMakeLists.txt b/CMakeLists.txt index 828e6f2..c904563 100644 --- a/CMakeLists.txt +++ b/CMakeLists.txt @@ -22,8 +22,14 @@ target_link_libraries(sdrpp PRIVATE sdrpp_core) # Copy dynamic libs over if (MSVC) add_custom_target(do_always ALL xcopy /s \"$\\*.dll\" \"$\" /Y) -else() - add_custom_target(do_always ALL cp \"$/sdrpp_core.so\" \"$\") endif (MSVC) +if (${CMAKE_SYSTEM_NAME} MATCHES "Linux") + add_custom_target(do_always ALL cp \"$/sdrpp_core.so\" \"$\") +endif () + +if (${CMAKE_SYSTEM_NAME} MATCHES "Darwin") + add_custom_target(do_always ALL cp \"$/sdrpp_core.dylib\" \"$\") +endif () + # cmake .. "-DCMAKE_TOOLCHAIN_FILE=C:/Users/Alex/vcpkg/scripts/buildsystems/vcpkg.cmake" -G "Visual Studio 15 2017 Win64" diff --git a/core/CMakeLists.txt b/core/CMakeLists.txt index da5423a..0b1d0e1 100644 --- a/core/CMakeLists.txt +++ b/core/CMakeLists.txt @@ -60,7 +60,9 @@ if (MSVC) find_package(portaudio CONFIG REQUIRED) target_link_libraries(sdrpp_core PUBLIC portaudio portaudio_static) -else() +endif (MSVC) + +if (${CMAKE_SYSTEM_NAME} MATCHES "Linux") target_include_directories(sdrpp_core PUBLIC "/usr/include/volk") target_link_libraries(sdrpp_core PUBLIC pthread) @@ -73,7 +75,39 @@ else() target_link_libraries(sdrpp_core PUBLIC X11) target_link_libraries(sdrpp_core PUBLIC Xxf86vm) target_link_libraries(sdrpp_core PUBLIC dl) -endif (MSVC) +endif () + + +if (${CMAKE_SYSTEM_NAME} MATCHES "Darwin") + find_package(OpenGL REQUIRED) + + # find_package(GLEW REQUIRED) + # find_package(fftw3 REQUIRED) + # find_package(glfw3 REQUIRED) + # find_package(volk REQUIRED) + + target_include_directories(sdrpp_core PUBLIC /usr/local/opt/glew/include) + target_include_directories(sdrpp_core PUBLIC /usr/local/opt/glfw/include) + target_include_directories(sdrpp_core PUBLIC /usr/local/opt/fftw/include) + target_include_directories(sdrpp_core PUBLIC /usr/local/opt/portaudio/include) + target_include_directories(sdrpp_core PUBLIC /usr/local/opt/volk/include) + target_include_directories(sdrpp_core PUBLIC /usr/local/opt/volk/include/volk) + + target_link_directories(sdrpp_core PUBLIC /usr/local/opt/glew/lib) + target_link_directories(sdrpp_core PUBLIC /usr/local/opt/volk/lib) + target_link_directories(sdrpp_core PUBLIC /usr/local/opt/glfw/lib) + target_link_directories(sdrpp_core PUBLIC /usr/local/opt/fftw/lib) + target_link_directories(sdrpp_core PUBLIC /usr/local/opt/portaudio/lib) + + target_link_libraries(sdrpp_core PUBLIC ${OPENGL_LIBRARIES}) + target_link_libraries(sdrpp_core PUBLIC volk) + target_link_libraries(sdrpp_core PUBLIC glew) + target_link_libraries(sdrpp_core PUBLIC glfw) + target_link_libraries(sdrpp_core PUBLIC fftw3) + target_link_libraries(sdrpp_core PUBLIC fftw3f) + target_link_libraries(sdrpp_core PUBLIC portaudio) + +endif () target_link_libraries(sdrpp_core PUBLIC volk) diff --git a/core/src/gui/waterfall.cpp b/core/src/gui/waterfall.cpp index 4b8258b..3d60dab 100644 --- a/core/src/gui/waterfall.cpp +++ b/core/src/gui/waterfall.cpp @@ -104,8 +104,6 @@ namespace ImGui { viewBandwidth = 1.0; wholeBandwidth = 1.0; - glGenTextures(1, &textureId); - updatePallette(COLOR_MAP, 13); } @@ -363,6 +361,7 @@ namespace ImGui { } void WaterFall::updateWaterfallTexture() { + glGenTextures(1, &textureId); glBindTexture(GL_TEXTURE_2D, textureId); glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR); glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR); diff --git a/readme.md b/readme.md index 1db8333..ce590be 100644 --- a/readme.md +++ b/readme.md @@ -62,7 +62,21 @@ If you followed the steps above, it should be `build/Release`. comming soon :) # Building on OSX -comming soon as well :) +## Install requirements +``` +brew tap pothosware/homebrew-pothos +brew install volk glew glfw fftw portaudio +brew install soapysdr +``` +You can install additional soapy device support based on your hardware. + +## The build +``` +mkdir build +cd build +cmake .. +cmake --build . --config Release +``` # Contributing diff --git a/soapy/CMakeLists.txt b/soapy/CMakeLists.txt index a5c0e44..19c3348 100644 --- a/soapy/CMakeLists.txt +++ b/soapy/CMakeLists.txt @@ -19,4 +19,9 @@ add_library(soapy SHARED ${SRC}) target_link_libraries(soapy PRIVATE sdrpp_core) set_target_properties(soapy PROPERTIES PREFIX "") -target_link_libraries(soapy PUBLIC SoapySDR) \ No newline at end of file +target_link_libraries(soapy PUBLIC SoapySDR) + +if (${CMAKE_SYSTEM_NAME} MATCHES "Darwin") + target_include_directories(soapy PUBLIC /usr/local/opt/soapysdr/include) + target_link_directories(soapy PUBLIC /usr/local/opt/soapysdr/lib) +endif () From 62868b2533fda67076f7cb3e07433083af2bddbd Mon Sep 17 00:00:00 2001 From: Howard Su Date: Thu, 22 Oct 2020 08:47:10 +0800 Subject: [PATCH 31/33] Fix warnings --- core/src/gui/main_window.cpp | 2 +- core/src/gui/menus/audio.cpp | 2 +- soapy/src/main.cpp | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/core/src/gui/main_window.cpp b/core/src/gui/main_window.cpp index e1071a2..da429e5 100644 --- a/core/src/gui/main_window.cpp +++ b/core/src/gui/main_window.cpp @@ -412,7 +412,7 @@ void drawWindow() { if(ImGui::CollapsingHeader("Debug")) { ImGui::Text("Frame time: %.3f ms/frame", 1000.0 / ImGui::GetIO().Framerate); ImGui::Text("Framerate: %.1f FPS", ImGui::GetIO().Framerate); - ImGui::Text("Center Frequency: %.0 Hz", gui::waterfall.getCenterFrequency()); + ImGui::Text("Center Frequency: %.0f Hz", gui::waterfall.getCenterFrequency()); ImGui::Text("Source name: %s", sourceName.c_str()); if (ImGui::Checkbox("Test technique", &dcbias.val)) { sigpath::signalPath.setDCBiasCorrection(dcbias.val); diff --git a/core/src/gui/menus/audio.cpp b/core/src/gui/menus/audio.cpp index f39fdca..71cd1c6 100644 --- a/core/src/gui/menus/audio.cpp +++ b/core/src/gui/menus/audio.cpp @@ -79,7 +79,7 @@ namespace audiomenu { deviceId = stream->audio->getDeviceId(); ImGui::SetCursorPosX((menuColumnWidth / 2.0f) - (ImGui::CalcTextSize(name.c_str()).x / 2.0f)); - ImGui::Text(name.c_str()); + ImGui::Text("%s", name.c_str()); ImGui::PushItemWidth(menuColumnWidth); bool running = stream->running; diff --git a/soapy/src/main.cpp b/soapy/src/main.cpp index a55c983..e461097 100644 --- a/soapy/src/main.cpp +++ b/soapy/src/main.cpp @@ -271,7 +271,7 @@ private: int i = 0; for (auto gain : _this->gainList) { - ImGui::Text((gain + " gain").c_str()); + ImGui::Text("%s gain", gain.c_str()); ImGui::SameLine(); ImGui::SetCursorPosX(gainNameLen); ImGui::SetNextItemWidth(menuWidth - gainNameLen); From 72611b5fa759fb63081978c797bfe400486ad408 Mon Sep 17 00:00:00 2001 From: Ryzerth Date: Thu, 22 Oct 2020 03:16:11 +0200 Subject: [PATCH 32/33] Fixed OpenGL memory leak --- core/src/gui/main_window.cpp | 2 +- core/src/gui/waterfall.cpp | 5 ++++- core/src/gui/waterfall.h | 2 ++ root_dev/config.json | 2 +- root_dev/soapy_source_config.json | 2 +- 5 files changed, 9 insertions(+), 4 deletions(-) diff --git a/core/src/gui/main_window.cpp b/core/src/gui/main_window.cpp index da429e5..6cf486e 100644 --- a/core/src/gui/main_window.cpp +++ b/core/src/gui/main_window.cpp @@ -88,7 +88,7 @@ bool showMenu = true; dsp::stream dummyStream; void windowInit() { - spdlog::info("Initializing SoapySDR"); + gui::waterfall.init(); credits::init(); diff --git a/core/src/gui/waterfall.cpp b/core/src/gui/waterfall.cpp index 3d60dab..de25afe 100644 --- a/core/src/gui/waterfall.cpp +++ b/core/src/gui/waterfall.cpp @@ -107,6 +107,10 @@ namespace ImGui { updatePallette(COLOR_MAP, 13); } + void WaterFall::init() { + glGenTextures(1, &textureId); + } + void WaterFall::drawFFT() { // Calculate scaling factor float startLine = floorf(fftMax / vRange) * vRange; @@ -361,7 +365,6 @@ namespace ImGui { } void WaterFall::updateWaterfallTexture() { - glGenTextures(1, &textureId); glBindTexture(GL_TEXTURE_2D, textureId); glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR); glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR); diff --git a/core/src/gui/waterfall.h b/core/src/gui/waterfall.h index 12d62c4..20cdf58 100644 --- a/core/src/gui/waterfall.h +++ b/core/src/gui/waterfall.h @@ -51,6 +51,8 @@ namespace ImGui { public: WaterFall(); + void init(); + void draw(); void pushFFT(std::vector data, int n); diff --git a/root_dev/config.json b/root_dev/config.json index 15b8dab..508544b 100644 --- a/root_dev/config.json +++ b/root_dev/config.json @@ -19,7 +19,7 @@ "bandPlan": "General", "bandPlanEnabled": true, "fftHeight": 298, - "frequency": 98200000, + "frequency": 100100000, "max": 0.0, "maximized": true, "menuOrder": [ diff --git a/root_dev/soapy_source_config.json b/root_dev/soapy_source_config.json index 3401091..47627fd 100644 --- a/root_dev/soapy_source_config.json +++ b/root_dev/soapy_source_config.json @@ -1,5 +1,5 @@ { - "device": "HackRF One #0 901868dc282c8f8b", + "device": "Generic RTL2832U OEM :: 00000001", "devices": { "AirSpy HF+ [c852435de0224af7]": { "gains": { From 406f18bf11f5dd8c23a4ba0e2606dafb1c89d44e Mon Sep 17 00:00:00 2001 From: Howard Su Date: Thu, 22 Oct 2020 09:01:57 +0800 Subject: [PATCH 33/33] another warning --- core/src/signal_path/vfo_manager.cpp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/core/src/signal_path/vfo_manager.cpp b/core/src/signal_path/vfo_manager.cpp index e049b4b..8579ffd 100644 --- a/core/src/signal_path/vfo_manager.cpp +++ b/core/src/signal_path/vfo_manager.cpp @@ -68,7 +68,7 @@ void VFOManager::deleteVFO(VFOManager::VFO* vfo) { std::string name = ""; for (auto const& [_name, _vfo] : vfos) { if (_vfo == vfo) { - name == _name; + name = _name; break; } }