summaryrefslogtreecommitdiff
path: root/lmathlib.c
diff options
context:
space:
mode:
authorRoberto Ierusalimschy <roberto@inf.puc-rio.br>1997-11-28 10:39:22 -0200
committerRoberto Ierusalimschy <roberto@inf.puc-rio.br>1997-11-28 10:39:22 -0200
commit39fd5bb9b04a6a7633ddf4aa838e4909a7a0abc8 (patch)
treec82e8d808f7b26d1c81fb0d2a652c1f51a4e5752 /lmathlib.c
parent5482992dec286ca800ffab539b0f81eddaa2665b (diff)
downloadlua-39fd5bb9b04a6a7633ddf4aa838e4909a7a0abc8.tar.gz
lua-39fd5bb9b04a6a7633ddf4aa838e4909a7a0abc8.tar.bz2
lua-39fd5bb9b04a6a7633ddf4aa838e4909a7a0abc8.zip
details
Diffstat (limited to 'lmathlib.c')
-rw-r--r--lmathlib.c14
1 files changed, 7 insertions, 7 deletions
diff --git a/lmathlib.c b/lmathlib.c
index 1a96df20..cd28b1a1 100644
--- a/lmathlib.c
+++ b/lmathlib.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: lmathlib.c,v 1.4 1997/11/04 15:27:53 roberto Exp roberto $ 2** $Id: lmathlib.c,v 1.5 1997/11/19 18:16:33 roberto Exp roberto $
3** Lua standard mathematical library 3** Lua standard mathematical library
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -13,7 +13,7 @@
13#include "lualib.h" 13#include "lualib.h"
14 14
15#ifndef PI 15#ifndef PI
16#define PI 3.14159265358979323846 16#define PI ((double)3.14159265358979323846)
17#endif 17#endif
18 18
19 19
@@ -24,13 +24,13 @@
24 24
25static double torad (void) 25static double torad (void)
26{ 26{
27 char *s = lua_getstring(lua_getglobal("_TRIGMODE")); 27 char *s = luaL_opt_string(2, "d");
28 switch (*s) { 28 switch (*s) {
29 case 'd' : return PI/180.0; 29 case 'd' : return PI/180.0;
30 case 'r' : return 1.0; 30 case 'r' : return (double)1.0;
31 case 'g' : return PI/50.0; 31 case 'g' : return PI/50.0;
32 default: 32 default:
33 luaL_verror("invalid _TRIGMODE (`%.50s')", s); 33 luaL_arg_check(0, 2, "invalid mode");
34 return 0; /* to avoid warnings */ 34 return 0; /* to avoid warnings */
35 } 35 }
36} 36}
@@ -120,12 +120,12 @@ static void math_exp (void)
120 120
121static void math_deg (void) 121static void math_deg (void)
122{ 122{
123 lua_pushnumber(luaL_check_number(1)*180./PI); 123 lua_pushnumber(luaL_check_number(1)*(180.0/PI));
124} 124}
125 125
126static void math_rad (void) 126static void math_rad (void)
127{ 127{
128 lua_pushnumber(luaL_check_number(1)/180.*PI); 128 lua_pushnumber(luaL_check_number(1)*(PI/180.0));
129} 129}
130 130
131 131