mirror of https://github.com/fredrikekre/Runic.jl
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
44 lines
1.7 KiB
44 lines
1.7 KiB
# SPDX-License-Identifier: MIT |
|
|
|
# The code in this file is derived from code in the ToggleableAsserts.jl package |
|
# (https://github.com/MasonProtter/ToggleableAsserts.jl) licensed under the MIT license. |
|
# (https://github.com/MasonProtter/ToggleableAsserts.jl/blob/master/LICENSE): |
|
|
|
# MIT License |
|
# |
|
# Copyright (c) 2021 Mason Protter |
|
# |
|
# 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. |
|
|
|
assert_enabled() = true |
|
|
|
macro assert(expr) |
|
code = macroexpand_assert(expr) |
|
:(assert_enabled() ? $(code) : nothing) |
|
end |
|
|
|
const toggle_lock = ReentrantLock() |
|
|
|
function enable_assert(enable::Bool) |
|
@lock toggle_lock begin |
|
if assert_enabled() != enable |
|
@eval Runic assert_enabled() = $enable |
|
end |
|
end |
|
end
|
|
|