aboutsummaryrefslogtreecommitdiff
path: root/src/main/java/io/github/moulberry/notenoughupdates/profileviewer/hotm/ExtraLispMethods.kt
blob: eb774659dcaff3c2d827d7cd2f96ac6a34e31f2c (plain)
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
/*
 * Copyright (C) 2024 NotEnoughUpdates contributors
 *
 * This file is part of NotEnoughUpdates.
 *
 * NotEnoughUpdates is free software: you can redistribute it
 * and/or modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation, either
 * version 3 of the License, or (at your option) any later version.
 *
 * NotEnoughUpdates is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public License
 * along with NotEnoughUpdates. If not, see <https://www.gnu.org/licenses/>.
 */

package io.github.moulberry.notenoughupdates.profileviewer.hotm

import io.github.moulberry.notenoughupdates.core.util.StringUtils
import moe.nea.lisp.LispData
import moe.nea.lisp.bind.LispBinding
import kotlin.math.ceil
import kotlin.math.floor
import kotlin.math.pow
import kotlin.math.round

class ExtraLispMethods {
    @LispBinding("pow")
    fun powFunc(base: Double, exponent: Double): LispData.LispNumber {
        return LispData.LispNumber(base.pow(exponent))
    }

    @LispBinding("round")
    fun roundFunc(value: Double): LispData.LispNumber {
        return LispData.LispNumber(round(value))
    }

    @LispBinding("ceil")
    fun ceilFunc(value: Double): LispData.LispNumber {
        return LispData.LispNumber(ceil(value))
    }

    @LispBinding("floor")
    fun floorFunc(value: Double): LispData.LispNumber {
        return LispData.LispNumber(floor(value))
    }

    @LispBinding("format-int")
    fun intToString(base: Double): LispData.LispString {
        return LispData.LispString(StringUtils.formatNumber(base.toInt()))
    }
}