From 87a6ab4f9ac7b2b2c0438a724bfe971ec9231714 Mon Sep 17 00:00:00 2001
From: Karen Sargsyan <karsar@ibms.sinica.edu.tw>
Date: Sun, 22 May 2016 15:32:40 +0800
Subject: asin, acos, atan, atan2 added

---
 src/c/urweb.c    | 16 ++++++++++++++++
 src/settings.sml |  5 ++++-
 2 files changed, 20 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/c/urweb.c b/src/c/urweb.c
index edf55f21..c6f6220c 100644
--- a/src/c/urweb.c
+++ b/src/c/urweb.c
@@ -4541,6 +4541,22 @@ uw_Basis_float uw_Basis_exp(uw_context ctx, uw_Basis_float n) {
   return exp(n);
 }
 
+uw_Basis_float uw_Basis_asin(uw_context ctx, uw_Basis_float n) {
+  return asin(n);
+}
+
+uw_Basis_float uw_Basis_acos(uw_context ctx, uw_Basis_float n) {
+  return acos(n);
+}
+
+uw_Basis_float uw_Basis_atan(uw_context ctx, uw_Basis_float n) {
+  return atan(n);
+}
+
+uw_Basis_float uw_Basis_atan2(uw_context ctx, uw_Basis_float n, uw_Basis_float m) {
+  return atan2(n, m);
+}
+
 uw_Basis_string uw_Basis_atom(uw_context ctx, uw_Basis_string s) {
   char *p;
 
diff --git a/src/settings.sml b/src/settings.sml
index c0b5e0e6..4b326da8 100644
--- a/src/settings.sml
+++ b/src/settings.sml
@@ -342,7 +342,10 @@ val jsFuncsBase = basisM [("alert", "alert"),
                           ("cos", "cos"),
                           ("log", "log"),
                           ("exp", "exp"),
-                           
+                          ("asin", "asin"),
+                          ("acos", "acos"),
+                          ("atan", "atan"),
+                          ("atan2", "atan2"),                           
 
                           ("now", "now"),
                           ("timeToString", "showTime"),
-- 
cgit v1.2.3