Mercurial > vba-clojure
view src/lua/lobject.c @ 263:a44a2c459aeb
Corrected hxc-evolution so that pokemon with branched evolutions (i.e. eevee) will be fully included. As a result, altered hxc-evolution to return a list of hashes, one per evolution.
author | Dylan Holmes <ocsenave@gmail.com> |
---|---|
date | Mon, 26 Mar 2012 21:25:10 -0500 |
parents | 27763b933818 |
children |
line wrap: on
line source
1 /*2 ** $Id: lobject.c,v 2.22.1.1 2007/12/27 13:02:25 roberto Exp $3 ** Some generic functions over Lua objects4 ** See Copyright Notice in lua.h5 */7 #include <ctype.h>8 #include <stdarg.h>9 #include <stdio.h>10 #include <stdlib.h>11 #include <string.h>13 #define lobject_c14 #define LUA_CORE16 #include "lua.h"18 #include "ldo.h"19 #include "lmem.h"20 #include "lobject.h"21 #include "lstate.h"22 #include "lstring.h"23 #include "lvm.h"27 const TValue luaO_nilobject_ = {{NULL}, LUA_TNIL};30 /*31 ** converts an integer to a "floating point byte", represented as32 ** (eeeeexxx), where the real value is (1xxx) * 2^(eeeee - 1) if33 ** eeeee != 0 and (xxx) otherwise.34 */35 int luaO_int2fb (unsigned int x) {36 int e = 0; /* expoent */37 while (x >= 16) {38 x = (x+1) >> 1;39 e++;40 }41 if (x < 8) return x;42 else return ((e+1) << 3) | (cast_int(x) - 8);43 }46 /* converts back */47 int luaO_fb2int (int x) {48 int e = (x >> 3) & 31;49 if (e == 0) return x;50 else return ((x & 7)+8) << (e - 1);51 }54 int luaO_log2 (unsigned int x) {55 static const lu_byte log_2[256] = {56 0,1,2,2,3,3,3,3,4,4,4,4,4,4,4,4,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,57 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,58 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,59 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,60 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,61 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,62 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,63 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,864 };65 int l = -1;66 while (x >= 256) { l += 8; x >>= 8; }67 return l + log_2[x];69 }72 int luaO_rawequalObj (const TValue *t1, const TValue *t2) {73 if (ttype(t1) != ttype(t2)) return 0;74 else switch (ttype(t1)) {75 case LUA_TNIL:76 return 1;77 case LUA_TNUMBER:78 return luai_numeq(nvalue(t1), nvalue(t2));79 case LUA_TBOOLEAN:80 return bvalue(t1) == bvalue(t2); /* boolean true must be 1 !! */81 case LUA_TLIGHTUSERDATA:82 return pvalue(t1) == pvalue(t2);83 default:84 lua_assert(iscollectable(t1));85 return gcvalue(t1) == gcvalue(t2);86 }87 }90 int luaO_str2d (const char *s, lua_Number *result) {91 char *endptr;92 *result = lua_str2number(s, &endptr);93 if (endptr == s) return 0; /* conversion failed */94 if (*endptr == 'x' || *endptr == 'X') /* maybe an hexadecimal constant? */95 *result = cast_num(strtoul(s, &endptr, 16));96 if (*endptr == '\0') return 1; /* most common case */97 while (isspace(cast(unsigned char, *endptr))) endptr++;98 if (*endptr != '\0') return 0; /* invalid trailing characters? */99 return 1;100 }104 static void pushstr (lua_State *L, const char *str) {105 setsvalue2s(L, L->top, luaS_new(L, str));106 incr_top(L);107 }110 /* this function handles only `%d', `%c', %f, %p, and `%s' formats */111 const char *luaO_pushvfstring (lua_State *L, const char *fmt, va_list argp) {112 int n = 1;113 pushstr(L, "");114 for (;;) {115 const char *e = strchr(fmt, '%');116 if (e == NULL) break;117 setsvalue2s(L, L->top, luaS_newlstr(L, fmt, e-fmt));118 incr_top(L);119 switch (*(e+1)) {120 case 's': {121 const char *s = va_arg(argp, char *);122 if (s == NULL) s = "(null)";123 pushstr(L, s);124 break;125 }126 case 'c': {127 char buff[2];128 buff[0] = cast(char, va_arg(argp, int));129 buff[1] = '\0';130 pushstr(L, buff);131 break;132 }133 case 'd': {134 setnvalue(L->top, cast_num(va_arg(argp, int)));135 incr_top(L);136 break;137 }138 case 'f': {139 setnvalue(L->top, cast_num(va_arg(argp, l_uacNumber)));140 incr_top(L);141 break;142 }143 case 'p': {144 char buff[4*sizeof(void *) + 8]; /* should be enough space for a `%p' */145 sprintf(buff, "%p", va_arg(argp, void *));146 pushstr(L, buff);147 break;148 }149 case '%': {150 pushstr(L, "%");151 break;152 }153 default: {154 char buff[3];155 buff[0] = '%';156 buff[1] = *(e+1);157 buff[2] = '\0';158 pushstr(L, buff);159 break;160 }161 }162 n += 2;163 fmt = e+2;164 }165 pushstr(L, fmt);166 luaV_concat(L, n+1, cast_int(L->top - L->base) - 1);167 L->top -= n;168 return svalue(L->top - 1);169 }172 const char *luaO_pushfstring (lua_State *L, const char *fmt, ...) {173 const char *msg;174 va_list argp;175 va_start(argp, fmt);176 msg = luaO_pushvfstring(L, fmt, argp);177 va_end(argp);178 return msg;179 }182 void luaO_chunkid (char *out, const char *source, size_t bufflen) {183 if (*source == '=') {184 strncpy(out, source+1, bufflen); /* remove first char */185 out[bufflen-1] = '\0'; /* ensures null termination */186 }187 else { /* out = "source", or "...source" */188 if (*source == '@') {189 size_t l;190 source++; /* skip the `@' */191 bufflen -= sizeof(" '...' ");192 l = strlen(source);193 strcpy(out, "");194 if (l > bufflen) {195 source += (l-bufflen); /* get last part of file name */196 strcat(out, "...");197 }198 strcat(out, source);199 }200 else { /* out = [string "string"] */201 size_t len = strcspn(source, "\n\r"); /* stop at first newline */202 bufflen -= sizeof(" [string \"...\"] ");203 if (len > bufflen) len = bufflen;204 strcpy(out, "[string \"");205 if (source[len] != '\0') { /* must truncate? */206 strncat(out, source, len);207 strcat(out, "...");208 }209 else210 strcat(out, source);211 strcat(out, "\"]");212 }213 }214 }