lua/lobject.c

196 lines
4.8 KiB
C
Raw Normal View History

/*
** $Id: lobject.c,v 1.95 2003/01/27 13:00:43 roberto Exp roberto $
** Some generic functions over Lua objects
** See Copyright Notice in lua.h
*/
#include <ctype.h>
#include <stdarg.h>
#include <stdlib.h>
#include <string.h>
2002-12-04 20:38:31 +03:00
#define lobject_c
#include "lua.h"
#include "ldo.h"
2000-09-11 21:38:42 +04:00
#include "lmem.h"
#include "lobject.h"
2000-09-11 21:38:42 +04:00
#include "lstate.h"
#include "lstring.h"
#include "lvm.h"
/* function to convert a string to a lua_Number */
#ifndef lua_str2number
#define lua_str2number(s,p) strtod((s), (p))
#endif
const TObject luaO_nilobject = {LUA_TNIL, {NULL}};
/*
** converts an integer to a "floating point byte", represented as
** (mmmmmxxx), where the real value is (xxx) * 2^(mmmmm)
*/
int luaO_int2fb (unsigned int x) {
int m = 0; /* mantissa */
while (x >= (1<<3)) {
x = (x+1) >> 1;
m++;
}
return (m << 3) | cast(int, x);
}
2001-10-25 23:14:14 +04:00
int luaO_log2 (unsigned int x) {
static const lu_byte log_8[255] = {
0,
1,1,
2,2,2,2,
3,3,3,3,3,3,3,3,
4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,
5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,
6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,
6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,
7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,
7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,
7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,
2002-01-30 20:28:05 +03:00
7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7
2001-10-25 23:14:14 +04:00
};
2002-01-30 20:28:05 +03:00
if (x >= 0x00010000) {
if (x >= 0x01000000) return log_8[((x>>24) & 0xff) - 1]+24;
2001-10-25 23:14:14 +04:00
else return log_8[((x>>16) & 0xff) - 1]+16;
}
else {
2002-01-30 20:28:05 +03:00
if (x >= 0x00000100) return log_8[((x>>8) & 0xff) - 1]+8;
2001-10-25 23:14:14 +04:00
else if (x) return log_8[(x & 0xff) - 1];
return -1; /* special `log' for 0 */
}
}
2002-06-13 17:39:55 +04:00
int luaO_rawequalObj (const TObject *t1, const TObject *t2) {
2000-04-25 20:55:09 +04:00
if (ttype(t1) != ttype(t2)) return 0;
else switch (ttype(t1)) {
case LUA_TNIL:
return 1;
2003-01-27 16:00:43 +03:00
case LUA_TNUMBER:
return nvalue(t1) == nvalue(t2);
2001-12-12 01:48:44 +03:00
case LUA_TBOOLEAN:
return bvalue(t1) == bvalue(t2); /* boolean true must be 1 !! */
case LUA_TLIGHTUSERDATA:
return pvalue(t1) == pvalue(t2);
2003-01-27 16:00:43 +03:00
default:
lua_assert(iscollectable(t1));
return gcvalue(t1) == gcvalue(t2);
}
}
int luaO_str2d (const char *s, lua_Number *result) {
char *endptr;
lua_Number res = lua_str2number(s, &endptr);
if (endptr == s) return 0; /* no conversion */
while (isspace((unsigned char)(*endptr))) endptr++;
if (*endptr != '\0') return 0; /* invalid trailing characters? */
*result = res;
return 1;
}
2000-10-20 20:36:32 +04:00
static void pushstr (lua_State *L, const char *str) {
setsvalue2s(L->top, luaS_new(L, str));
incr_top(L);
}
/* this function handles only `%d', `%c', %f, and `%s' formats */
const char *luaO_pushvfstring (lua_State *L, const char *fmt, va_list argp) {
2002-05-15 22:57:44 +04:00
int n = 1;
pushstr(L, "");
for (;;) {
const char *e = strchr(fmt, '%');
if (e == NULL) break;
setsvalue2s(L->top, luaS_newlstr(L, fmt, e-fmt));
incr_top(L);
switch (*(e+1)) {
case 's':
pushstr(L, va_arg(argp, char *));
break;
case 'c': {
char buff[2];
2002-08-07 18:35:55 +04:00
buff[0] = cast(char, va_arg(argp, int));
buff[1] = '\0';
pushstr(L, buff);
break;
}
case 'd':
setnvalue(L->top, va_arg(argp, int));
incr_top(L);
break;
case 'f':
setnvalue(L->top, va_arg(argp, l_uacNumber));
incr_top(L);
break;
case '%':
pushstr(L, "%");
break;
default: lua_assert(0);
}
n += 2;
fmt = e+2;
}
pushstr(L, fmt);
luaV_concat(L, n+1, L->top - L->base - 1);
L->top -= n;
return svalue(L->top - 1);
}
const char *luaO_pushfstring (lua_State *L, const char *fmt, ...) {
const char *msg;
va_list argp;
va_start(argp, fmt);
msg = luaO_pushvfstring(L, fmt, argp);
va_end(argp);
return msg;
}
void luaO_chunkid (char *out, const char *source, int bufflen) {
if (*source == '=') {
2000-10-20 20:36:32 +04:00
strncpy(out, source+1, bufflen); /* remove first char */
out[bufflen-1] = '\0'; /* ensures null termination */
2000-10-20 20:36:32 +04:00
}
2002-05-15 22:57:44 +04:00
else { /* out = "source", or "...source" */
if (*source == '@') {
2000-10-09 17:47:32 +04:00
int l;
source++; /* skip the `@' */
2002-05-15 22:57:44 +04:00
bufflen -= sizeof(" `...' ");
2000-10-09 17:47:32 +04:00
l = strlen(source);
2002-05-15 22:57:44 +04:00
strcpy(out, "");
2000-10-09 17:47:32 +04:00
if (l>bufflen) {
source += (l-bufflen); /* get last part of file name */
strcat(out, "...");
2000-10-09 17:47:32 +04:00
}
strcat(out, source);
2000-10-09 17:47:32 +04:00
}
2002-05-15 22:57:44 +04:00
else { /* out = [string "string"] */
int len = strcspn(source, "\n"); /* stop at first newline */
2002-05-15 22:57:44 +04:00
bufflen -= sizeof(" [string \"...\"] ");
2000-10-09 17:47:32 +04:00
if (len > bufflen) len = bufflen;
2002-05-15 22:57:44 +04:00
strcpy(out, "[string \"");
if (source[len] != '\0') { /* must truncate? */
strncat(out, source, len);
strcat(out, "...");
2000-10-20 20:36:32 +04:00
}
2000-10-09 17:47:32 +04:00
else
strcat(out, source);
2002-05-15 22:57:44 +04:00
strcat(out, "\"]");
}
}
}