From f2945d4478c80ff1aec7a2317064ca946cf1e484 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=C3=89tienne=20Reuh=20Fildadut?= <fildadut@reuh.eu>
Date: Mon, 20 May 2024 21:50:48 +0200
Subject: [PATCH] [stdlib] add math functions

---
 anselme/stdlib/number.lua | 18 ++++++++++++++++++
 anselme/stdlib/script.lua |  6 +++---
 anselme/stdlib/symbol.lua |  1 -
 3 files changed, 21 insertions(+), 4 deletions(-)

diff --git a/anselme/stdlib/number.lua b/anselme/stdlib/number.lua
index fd99ca9..a0b2084 100644
--- a/anselme/stdlib/number.lua
+++ b/anselme/stdlib/number.lua
@@ -76,4 +76,22 @@ return {
 			end
 		end
 	},
+
+	{ "sqrt", "(x::is number)", function(state, x) return Number:new(math.sqrt(x.number)) end },
+
+	{ "abs", "(x::is number)", function(state, x) return Number:new(math.abs(x.number)) end },
+
+	{ "exp", "(x::is number)", function(state, x) return Number:new(math.exp(x.number)) end },
+	{ "log", "(x::is number)", function(state, x) return Number:new(math.log(x.number)) end },
+	{ "log", "(x::is number, base::is number)", function(state, x, base) return Number:new(math.log(x.number, base.number)) end },
+
+	{ "deg", "(x::is number)", function(state, x) return Number:new(math.deg(x.number)) end },
+	{ "rad", "(x::is number)", function(state, x) return Number:new(math.rad(x.number)) end },
+	{ "cos", "(x::is number)", function(state, x) return Number:new(math.cos(x.number)) end },
+	{ "sin", "(x::is number)", function(state, x) return Number:new(math.sin(x.number)) end },
+	{ "tan", "(x::is number)", function(state, x) return Number:new(math.tan(x.number)) end },
+	{ "acos", "(x::is number)", function(state, x) return Number:new(math.acos(x.number)) end },
+	{ "asin", "(x::is number)", function(state, x) return Number:new(math.asin(x.number)) end },
+	{ "atan", "(x::is number)", function(state, x) return Number:new(math.atan(x.number)) end },
+	{ "atan", "(y::is number, x::is number)", function(state, y, x) return Number:new((math.atan2 or math.atan)(y.number, x.number)) end },
 }
diff --git a/anselme/stdlib/script.lua b/anselme/stdlib/script.lua
index c0c4219..51c671d 100644
--- a/anselme/stdlib/script.lua
+++ b/anselme/stdlib/script.lua
@@ -1,5 +1,5 @@
 return [[
-:@script = $(name, fn=attached block!)
+:@ script = $(name, fn=attached block!)
 	fn.:&current checkpoint => "{name}.checkpoint"!persist(false)
 	fn.:&reached => "{name}.reached"!persist(*{})
 	fn.:&run => "{name}.run"!persist(0)
@@ -46,10 +46,10 @@ return [[
 :@$_._(s::is script, k::is symbol) = val
 	(s!value).fn.(k) = val
 
-:@$from(s::is script, a::is anchor)
+:@$ from(s::is script, a::is anchor)
 	s.current checkpoint = a
 	return(s!)
-:@$from(s::is script)
+:@$ from(s::is script)
 	s.current checkpoint = ()
 	return(s!)
 
diff --git a/anselme/stdlib/symbol.lua b/anselme/stdlib/symbol.lua
index defef4c..4eaa849 100644
--- a/anselme/stdlib/symbol.lua
+++ b/anselme/stdlib/symbol.lua
@@ -1,5 +1,4 @@
 return {
-
 	{
 		"to string", "(symbol::is symbol)",
 		function(state, sym)