/*
* $dbmctl(OPEN type filename)
* Open a DBM file for read and write access.
* $dbmctl(OPEN_READ type filename)
* Open a DBM file for read-only access.
* $dbmctl(CLOSE refnum)
* Close a previously opened DBM file
* $dbmctl(ADD refnum "key" data)
* Insert a new key/data pair. Fail if key already exists.
* $dbmctl(CHANGE refnum "key" data)
* If key already exists, change its data. If it doesn't exist, add it.
* $dbmctl(DELETE refnum "key")
* Remove a key/data pair
* $dbmctl(READ refnum "key")
* Return the data for a key.
* $dbmctl(NEXT_KEY refnum start-over)
* Return the next key in the database
* $dbmctl(ALL_KEYS refnum)
* Return all keys -- could be huge! could take a long time!
* $dbmctl(ERROR refnum)
* Return the errno for the last error.
*
* "refnum" is a value returned by OPEN and OPEN_READ.
* "type" must always be "STD" for now.
* "filename" is a dbm file (without the .db extension!)
* "key" is a dbm key. Spaces are important!
* "data" is a dbm value. Spaces are important!
*
*/
char * dbmctl (char *input)
{
char * listc;
int refnum;
char * type;
char * key;
int retval;
char * retstr;
GET_FUNC_ARG(listc, input);
if (!my_strnicmp(listc, "OPEN", 4)) {
GET_FUNC_ARG(type, input); /* Ignored for now */
retval = open_dbm(input, 0, 0);
RETURN_INT(retval);
} else if (!my_strnicmp(listc, "OPEN_READ", 5)) {
GET_FUNC_ARG(type, input); /* Ignored for now */
retval = open_dbm(input, 1, 0);
RETURN_INT(retval);
} else if (!my_strnicmp(listc, "CLOSE", 2)) {
GET_INT_ARG(refnum, input);
retval = close_dbm(refnum);
RETURN_INT(retval);
} else if (!my_strnicmp(listc, "ADD", 2)) {
GET_INT_ARG(refnum, input);
GET_DWORD_ARG(key, input);
retval = write_to_dbm(refnum, key, input, 0);
RETURN_INT(retval);
} else if (!my_strnicmp(listc, "CHANGE", 2)) {
GET_INT_ARG(refnum, input);
GET_DWORD_ARG(key, input);
retval = write_to_dbm(refnum, key, input, 1);
RETURN_INT(retval);
} else if (!my_strnicmp(listc, "DELETE", 1)) {
GET_INT_ARG(refnum, input);
GET_DWORD_ARG(key, input);
retval = delete_from_dbm(refnum, key);
RETURN_INT(retval);
} else if (!my_strnicmp(listc, "READ", 1)) {
GET_INT_ARG(refnum, input);
GET_DWORD_ARG(key, input);
retstr = read_from_dbm(refnum, key);
RETURN_MSTR(retstr);
} else if (!my_strnicmp(listc, "NEXT_KEY", 1)) {
int restart;
GET_INT_ARG(refnum, input);
GET_INT_ARG(restart, input);
retstr = iterate_on_dbm(refnum, restart);
RETURN_MSTR(retstr);
} else if (!my_strnicmp(listc, "ALL_KEYS", 2)) {
GET_INT_ARG(refnum, input);
retstr = all_keys_for_dbm(refnum);
RETURN_MSTR(retstr);
} else if (!my_strnicmp(listc, "ERROR", 1)) {
GET_INT_ARG(refnum, input);
retval = error_from_dbm(refnum);
RETURN_INT(retval);
}
RETURN_EMPTY;
}
/*! 一定時間停止（cruby互換）
*/
static void c_sleep(mrbc_vm *vm, mrbc_value v[], int argc)
{
mrbc_tcb *tcb = VM2TCB(vm);
if( argc == 0 ) {
mrbc_suspend_task(tcb);
return;
}
switch( v[1].tt ) {
case MRBC_TT_FIXNUM:
mrbc_sleep_ms(tcb, GET_INT_ARG(1) * 1000);
break;
#if MRBC_USE_FLOAT
case MRBC_TT_FLOAT:
mrbc_sleep_ms(tcb, (mrbc_int)(GET_FLOAT_ARG(1) * 1000));
break;
#endif
default:
break;
}
}
/*! プライオリティー変更
*/
static void c_change_priority(mrbc_vm *vm, mrbc_value v[], int argc)
{
mrbc_tcb *tcb = VM2TCB(vm);
mrbc_change_priority(tcb, GET_INT_ARG(1));
}
/*! 一定時間停止（ms単位）
*/
static void c_sleep_ms(mrbc_vm *vm, mrbc_value v[], int argc)
{
mrbc_tcb *tcb = VM2TCB(vm);
mrbc_sleep_ms(tcb, GET_INT_ARG(1));
}
/*
* $logctl(NEW)
* $logctl(REFNUMS [ACTIVE|INACTIVE|ALL])
* $logctl(REFNUM log-desc)
* $logctl(ADD log-desc [target])
* $logctl(DELETE log-desc [target])
* $logctl(GET <refnum> [LIST])
* $logctl(SET <refnum> [ITEM] [VALUE])
* $logctl(MATCH [pattern])
* $logctl(PMATCH [pattern])
*
* [LIST] and [ITEM] are one of the following
* REFNUM The refnum for the log (GET only)
* NAME The logical name for the log
* FILENAME The filename this log writes to
* SERVER The server this log associates with (-1 for any)
* TARGETS All of the targets for this log
* LEVEL The Lastlog Level for this log
* REWRITE The rewrite rule for this log
* MANGLE The mangle rule for this log
* STATUS 1 if log is on, 0 if log is off.
* TYPE Either "TARGET", "WINDOW", or "SERVER"
*/
char *logctl (char *input)
{
char *refstr;
char *listc;
int val;
Logfile *log;
GET_FUNC_ARG(listc, input);
if (!my_strnicmp(listc, "NEW", 3)) {
log = new_logfile();
RETURN_INT(log->refnum);
} else if (!my_strnicmp(listc, "LAST_CREATED", 12)) {
RETURN_INT(last_logref);
} else if (!my_strnicmp(listc, "REFNUMS", 7)) {
char * retval = NULL;
int active;
GET_FUNC_ARG(refstr, input);
if (!my_stricmp(refstr, "ACTIVE"))
active = 1;
else if (!my_stricmp(refstr, "INACTIVE"))
active = 0;
else if (!my_stricmp(refstr, "ALL"))
active = -1;
else
RETURN_EMPTY;
for (log = logfiles; log; log = log->next)
{
if (active != -1 && active != log->active)
continue;
malloc_strcat_word(&retval, space, ltoa(log->refnum), DWORD_NO);
}
RETURN_MSTR(retval);
} else if (!my_strnicmp(listc, "REFNUM", 6)) {
GET_FUNC_ARG(refstr, input);
if (!(log = get_log_by_desc(refstr)))
RETURN_EMPTY;
RETURN_INT(log->refnum);
} else if (!my_strnicmp(listc, "ADD", 2)) {
GET_FUNC_ARG(refstr, input);
if (!(log = get_log_by_desc(refstr)))
RETURN_EMPTY;
logfile_add(log, &input);
RETURN_INT(1);
} else if (!my_strnicmp(listc, "DELETE", 2)) {
GET_FUNC_ARG(refstr, input);
if (!(log = get_log_by_desc(refstr)))
RETURN_EMPTY;
logfile_remove(log, &input);
RETURN_INT(1);
} else if (!my_strnicmp(listc, "GET", 2)) {
GET_FUNC_ARG(refstr, input);
if (!(log = get_log_by_desc(refstr)))
RETURN_EMPTY;
GET_FUNC_ARG(listc, input);
if (!my_strnicmp(listc, "REFNUM", 3)) {
RETURN_INT(log->refnum);
} else if (!my_strnicmp(listc, "NAME", 3)) {
RETURN_STR(log->name);
} else if (!my_strnicmp(listc, "FILENAME", 3)) {
RETURN_STR(log->filename);
} else if (!my_strnicmp(listc, "SERVER", 3)) {
RETURN_INT(log->servref);
} else if (!my_strnicmp(listc, "TARGETS", 3)) {
char *ret = logfile_get_targets(log);
RETURN_MSTR(ret);
} else if (!my_strnicmp(listc, "LEVEL", 3)) {
const char *ret = mask_to_str(&log->mask);
RETURN_STR(ret);
} else if (!my_strnicmp(listc, "REWRITE", 3)) {
RETURN_STR(log->rewrite);
} else if (!my_strnicmp(listc, "MANGLE", 3)) {
RETURN_STR(log->mangle_desc);
} else if (!my_strnicmp(listc, "STATUS", 3)) {
RETURN_INT(log->active);
} else if (!my_strnicmp(listc, "TYPE", 3)) {
RETURN_STR(logtype[log->type]);
} else if (!my_strnicmp(listc, "ACTIVITY", 1)) {
RETURN_INT(log->activity);
}
} else if (!my_strnicmp(listc, "SET", 1)) {
GET_FUNC_ARG(refstr, input);
if (!(log = get_log_by_desc(refstr)))
RETURN_EMPTY;
GET_FUNC_ARG(listc, input);
if (!my_strnicmp(listc, "NAME", 3)) {
logfile_name(log, &input);
RETURN_INT(1);
} else if (!my_strnicmp(listc, "FILENAME", 3)) {
logfile_filename(log, &input);
RETURN_INT(1);
} else if (!my_strnicmp(listc, "SERVER", 3)) {
logfile_server(log, &input);
RETURN_INT(1);
} else if (!my_strnicmp(listc, "TARGETS", 3)) {
clean_log_targets(log);
logfile_add(log, &input);
RETURN_INT(1);
} else if (!my_strnicmp(listc, "LEVEL", 3)) {
logfile_level(log, &input);
RETURN_INT(1);
} else if (!my_strnicmp(listc, "REWRITE", 3)) {
logfile_rewrite(log, &input);
RETURN_INT(1);
} else if (!my_strnicmp(listc, "MANGLE", 3)) {
logfile_mangle(log, &input);
RETURN_INT(1);
} else if (!my_strnicmp(listc, "STATUS", 3)) {
GET_INT_ARG(val, input);
if (val)
logfile_on(log, &input);
else
logfile_off(log, &input);
RETURN_INT(1);
} else if (!my_strnicmp(listc, "TYPE", 3)) {
logfile_type(log, &input);
RETURN_INT(1);
} else if (!my_strnicmp(listc, "ACTIVITY", 1)) {
logfile_activity(log, &input);
RETURN_INT(1);
}
} else if (!my_strnicmp(listc, "MATCH", 1)) {
RETURN_EMPTY; /* Not implemented for now. */
} else if (!my_strnicmp(listc, "PMATCH", 1)) {
RETURN_EMPTY; /* Not implemented for now. */
} else if (!my_strnicmp(listc, "CURRENT", 1)) {
RETURN_INT(current_log_refnum);
} else
RETURN_EMPTY;
RETURN_EMPTY;
}
static int setup_touch_txt()
{
int pos, i, sdid, t;
static char filename[256];
static char pakname[256];
char *buf, *command, *value;
size_t size;
ArgList arglist;
char argbuf[MAX_ARG_LEN + 1] = "";
float w = nativeWidth;
float h = nativeHeight;
float hh = w * 480 / 800;
SDL_Surface *ts;
char *pngb;
size_t pngs;
getPakName(pakname, -1);
sprintf(filename, "/mnt/sdcard/OpenBOR/Saves/%s", pakname);
dirExists(filename, 1);
sprintf(filename, "/mnt/sdcard/OpenBOR/Saves/%s/touch.txt", pakname);
// Read file
if( buffer_pakfile(filename, &buf, &size) != 1 &&
buffer_pakfile("data/touch.txt", &buf, &size) != 1 &&
buffer_pakfile("/mnt/sdcard/OpenBOR/Saves/touch.txt", &buf, &size) != 1)
{
return 0;
}
// Now interpret the contents of buf line by line
pos = 0;
while(pos < size)
{
if(ParseArgs(&arglist, buf + pos, argbuf))
{
command = GET_ARG(0);
if(command && command[0])
{
if(stricmp(command, "button") == 0)
{
sdid = translate_SDID(GET_ARG(1));
if(sdid >= 0)
{
bx[sdid] = GET_FLOAT_ARG(2) * hh;
by[sdid] = GET_FLOAT_ARG(3) * hh;
br[sdid] = GET_FLOAT_ARG(4) * hh;
t = GET_INT_ARG(5);
/*
corners:
0 1
3 2
*/
if(t == 1 || t == 2)
{
bx[sdid] = w - bx[sdid];
}
if(t == 2 || t == 3)
{
by[sdid] = h - by[sdid];
}
}
}
else if(stricmp(command, "texture") == 0)
{
if(buffer_pakfile(GET_ARG(1), &pngb, &pngs))
{
ts = pngToSurface(pngb);
if(!ts || !(buttons = SDL_CreateTextureFromSurface(renderer, ts)))
{
printf("error: %s\n", SDL_GetError());
}
if(ts)
{
SDL_FreeSurface(ts);
}
if(pngb)
{
free(pngb);
}
}
}
else if(stricmp(command, "screendocking") == 0) // change screen position to avoid buttons
{
screendocking = 0;
for(i = 1; ; i++)
{
value = GET_ARG(i);
if(!value || !value[0])
{
break;
}
if(stricmp(value, "left") == 0)
{
screendocking |= DOCKLEFT;
}
else if(stricmp(value, "right") == 0)
{
screendocking |= DOCKRIGHT;
}
else if(stricmp(value, "top") == 0)
{
screendocking |= DOCKTOP;
}
else if(stricmp(value, "bottom") == 0)
{
screendocking |= DOCKBOTTOM;
}
else
{
screendocking = GET_INT_ARG(i);
}
}
}
}
}
// Go to next line
pos += getNewLineStart(buf + pos);
}
if(buf != NULL)
{
free(buf);
buf = NULL;
}
return 1;
}
/*
* $timerctl(REFNUM refnum)
* $timerctl(ADD <refnum> <interval> <events> <commands> <subargs> <window>)
* $timerctl(DELETE <refnum>)
* $timerctl(GET <refnum> [LIST])
* $timerctl(SET <refnum> [ITEM] [VALUE])
* $timerctl(REFNUMS)
*
* [LIST] and [ITEM] are one of the following
* TIMEOUT The precise time the timer will be executed
* COMMAND The commands that will be executed
* SUBARGS The vaule of $* used when this timer is executed
* REPEATS The number of times this timer will be executed
* INTERVAL The interval of time between executions
* SERVER The server this timer bound to
* WINDOW The window this timer bound to
*/
char * timerctl (char *input)
{
char * refstr;
char * listc;
Timer * t;
int len;
GET_FUNC_ARG(listc, input);
len = strlen(listc);
if (!my_strnicmp(listc, "REFNUM", len)) {
GET_FUNC_ARG(refstr, input);
if (!(t = get_timer(refstr)))
RETURN_EMPTY;
RETURN_STR(t->ref);
} else if (!my_strnicmp(listc, "REFNUMS", len)) {
char * retval = NULL;
size_t clue = 0;
for (t = PendingTimers; t; t = t->next)
malloc_strcat_word_c(&retval, space, t->ref, DWORD_DWORDS, &clue);
RETURN_MSTR(retval);
} else if (!my_strnicmp(listc, "ADD", len)) {
RETURN_EMPTY; /* XXX - Not implemented yet. */
} else if (!my_strnicmp(listc, "DELETE", len)) {
GET_FUNC_ARG(refstr, input);
if (!(t = get_timer(refstr)))
RETURN_EMPTY;
if (t->callback)
RETURN_EMPTY;
RETURN_INT(remove_timer(refstr));
} else if (!my_strnicmp(listc, "GET", len)) {
GET_FUNC_ARG(refstr, input);
if (!(t = get_timer(refstr)))
RETURN_EMPTY;
GET_FUNC_ARG(listc, input);
len = strlen(listc);
if (!my_strnicmp(listc, "TIMEOUT", len)) {
return malloc_sprintf(NULL, "%ld %ld", (long) t->time.tv_sec,
(long) t->time.tv_usec);
} else if (!my_strnicmp(listc, "COMMAND", len)) {
if (t->callback)
RETURN_EMPTY;
RETURN_STR(t->command);
} else if (!my_strnicmp(listc, "SUBARGS", len)) {
if (t->callback)
RETURN_EMPTY;
RETURN_STR(t->subargs);
} else if (!my_strnicmp(listc, "REPEATS", len)) {
RETURN_INT(t->events);
} else if (!my_strnicmp(listc, "INTERVAL", len)) {
return malloc_sprintf(NULL, "%ld %ld", (long) t->interval.tv_sec,
(long) t->interval.tv_usec);
} else if (!my_strnicmp(listc, "SERVER", len)) {
if (t->domain != SERVER_TIMER)
RETURN_INT(-1);
RETURN_INT(t->domref);
} else if (!my_strnicmp(listc, "WINDOW", len)) {
if (t->domain != WINDOW_TIMER)
RETURN_INT(-1);
RETURN_INT(t->domref);
}
} else if (!my_strnicmp(listc, "SET", len)) {
GET_FUNC_ARG(refstr, input);
if (!(t = get_timer(refstr)))
RETURN_EMPTY;
/* Changing internal system timers is strictly prohibited */
if (t->callback)
RETURN_EMPTY;
GET_FUNC_ARG(listc, input);
len = strlen(listc);
if (!my_strnicmp(listc, "TIMEOUT", len)) {
time_t tv_sec;
long tv_usec;
GET_INT_ARG(tv_sec, input);
GET_INT_ARG(tv_usec, input);
t->time.tv_sec = tv_sec;
t->time.tv_usec = tv_usec;
} else if (!my_strnicmp(listc, "COMMAND", len)) {
malloc_strcpy((char **)&t->command, input);
} else if (!my_strnicmp(listc, "SUBARGS", len)) {
malloc_strcpy(&t->subargs, input);
} else if (!my_strnicmp(listc, "REPEATS", len)) {
long repeats;
GET_INT_ARG(repeats, input);
t->events = repeats;
} else if (!my_strnicmp(listc, "INTERVAL", len)) {
time_t tv_sec;
long tv_usec;
GET_INT_ARG(tv_sec, input);
GET_INT_ARG(tv_usec, input);
t->interval.tv_sec = tv_sec;
t->interval.tv_usec = tv_usec;
} else if (!my_strnicmp(listc, "SERVER", len)) {
int refnum;
GET_INT_ARG(refnum, input);
t->domain = SERVER_TIMER;
t->domref = refnum;
} else if (!my_strnicmp(listc, "WINDOW", len)) {
int refnum;
GET_INT_ARG(refnum, input);
t->domain = WINDOW_TIMER;
t->domref = refnum;
}
} else
RETURN_EMPTY;
RETURN_EMPTY;
}
