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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
|
/***************************************************************************
* __________ __ ___.
* Open \______ \ ____ ____ | | _\_ |__ _______ ___
* Source | _// _ \_/ ___\| |/ /| __ \ / _ \ \/ /
* Jukebox | | ( <_> ) \___| < | \_\ ( <_> > < <
* Firmware |____|_ /\____/ \___ >__|_ \|___ /\____/__/\_ \
* \/ \/ \/ \/ \/
* $Id$
*
* Copyright (C) 2008 Dan Everton (safetydan)
* String function implementations taken from dietlibc 0.31 (GPLv2 License)
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
*
* This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
* KIND, either express or implied.
*
****************************************************************************/
#include "plugin.h"
#define _ROCKCONF_H_ /* Protect against unwanted include */
#include "lua.h"
#if !defined(SIMULATOR) || defined(__MINGW32__) || defined(__CYGWIN__)
int errno = 0;
#endif
char *strerror(int errnum)
{
(void) errnum;
DEBUGF("strerror(%d)\n", errnum);
return NULL;
}
long rb_pow(long x, long n)
{
long pow = 1;
unsigned long u;
if(n <= 0)
{
if(n == 0 || x == 1)
return 1;
if(x != -1)
return x != 0 ? 1/x : 0;
n = -n;
}
u = n;
while(1)
{
if(u & 01)
pow *= x;
if(u >>= 1)
x *= x;
else
break;
}
return pow;
}
int strcoll(const char * str1, const char * str2)
{
return rb->strcmp(str1, str2);
}
const char* get_current_path(lua_State *L, int level)
{
static char buffer[MAX_PATH];
lua_Debug ar;
if(lua_getstack(L, level, &ar))
{
/* Try determining the base path of the current Lua chunk
and write it to dest. */
lua_getinfo(L, "S", &ar);
char* curfile = (char*) &ar.source[1];
char* pos = rb->strrchr(curfile, '/');
if(pos != NULL)
{
unsigned int len = (unsigned int)(pos - curfile);
len = len + 1 > sizeof(buffer) ? sizeof(buffer) - 1 : len;
if(len > 0)
memcpy(buffer, curfile, len);
buffer[len] = '/';
buffer[len+1] = '\0';
return buffer;
}
}
return NULL;
}
|
