FGFS-4.1/simgear
3
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add left/right Nasal library functions.

Browse Source
This commit is contained in:
James Turner
2013-01-20 10:45:32 +01:00
parent 830bc3eac3
commit bd71635c49
1 changed files with 28 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
simgear/nasal/lib.c
View File

@@ -146,6 +146,32 @@ static naRef f_substr(naContext c, naRef me, int argc, naRef* args)
return naStr_substr(naNewString(c), src, start, len);
}
static naRef f_left(naContext c, naRef me, int argc, naRef* args)
{
int len;
naRef src = argc > 0 ? args[0] : naNil();
naRef lenr = argc > 1 ? naNumValue(args[1]) : naNil();
if(!naIsString(src)) ARGERR();
if(!naIsNum(lenr)) ARGERR();
len = (int)lenr.num;
if(len < 0) len = 0;
return naStr_substr(naNewString(c), src, 0, len);
}
static naRef f_right(naContext c, naRef me, int argc, naRef* args)
{
int len, srclen;
naRef src = argc > 0 ? args[0] : naNil();
naRef lenr = argc > 1 ? naNumValue(args[1]) : naNil();
if(!naIsString(src)) ARGERR();
if(!naIsNum(lenr)) ARGERR();
srclen = naStr_len(src);
len = (int)lenr.num;
if (len > srclen) len = srclen;
if(len < 0) len = 0;
return naStr_substr(naNewString(c), src, srclen - len, len);
}
static naRef f_chr(naContext c, naRef me, int argc, naRef* args)
{
char chr[1];
@@ -573,6 +599,8 @@ static naCFuncItem funcs[] = {
{ "streq", f_streq },
{ "cmp", f_cmp },
{ "substr", f_substr },
{ "left", f_left },
{ "right", f_right },
{ "chr", f_chr },
{ "contains", f_contains },
{ "typeof", f_typeof },