static void encodeForFlash(void * self, AS3_Val args)
{
AS3_Val progress;
AS3_Val src, dest;
int len, srcLen, remainingBytes, yieldTicks;
short raw_data[BLOCKL_MAX], encoded_data[ILBCNOOFWORDS_MAX];
AS3_ArrayValue(args, "AS3ValType, AS3ValType, AS3ValType, IntType, IntType", &progress, &src, &dest, &srcLen, &yieldTicks);
iLBC_Enc_Inst_t Enc_Inst;
initEncode(&Enc_Inst, 30);
remainingBytes = srcLen;
int i = 0;
resetPositionByteArray(src);
while (remainingBytes > 0){
remainingBytes -= AS3_ByteArray_readBytes(raw_data, src, Enc_Inst.blockl * sizeof(short));
len = encode(&Enc_Inst, encoded_data, raw_data);
AS3_ByteArray_writeBytes(dest, encoded_data, len);
if(i % yieldTicks == 0){
AS3_CallT(progress, NULL, "IntType", (int)((1 - ((float)remainingBytes / srcLen)) * 100));
flyield();//yield to main process
}
i++;
}
resetPositionByteArray(src);
resetPositionByteArray(dest);
// Don't remove progess 100 call here, else complete won't be called!
AS3_CallT(progress, NULL, "IntType", 100);
}
static void decodeForFlash(void * self, AS3_Val args)
{
AS3_Val progress;
AS3_Val src, dest;
int len, srcLen, yieldTicks;
short encoded_data[ILBCNOOFWORDS_MAX], decoded_data[BLOCKL_MAX];
AS3_ArrayValue(args, "AS3ValType, AS3ValType, AS3ValType, IntType, IntType", &progress, &src, &dest, &srcLen, &yieldTicks);
iLBC_Dec_Inst_t Dec_Inst;
initDecode(&Dec_Inst, 30, 1);//30ms mode
int i = 0;
int loops = srcLen / Dec_Inst.no_of_bytes;
resetPositionByteArray(src);
while(AS3_ByteArray_readBytes(encoded_data, src, Dec_Inst.no_of_bytes) == Dec_Inst.no_of_bytes){
len = decode(&Dec_Inst, decoded_data, encoded_data, 1);//1 for no packet loss
AS3_ByteArray_writeBytes(dest, decoded_data, len * sizeof(short));
/* write output file */
if(i % yieldTicks == 0){
AS3_CallT(progress, NULL, "IntType", (int)((float)i / loops * 100));
flyield();//yield to main process
}
i++;
}
resetPositionByteArray(src);
resetPositionByteArray(dest);
// Don't remove progess 100 call here, else complete won't be called!
AS3_CallT(progress, NULL, "IntType", 100);
}
void qspCallSaveGame(QSP_CHAR *file)
{
/* Здесь позволяем пользователю выбрать файл */
/* для сохранения состояния игры и сохраняем */
/* в нем текущее состояние */
QSPCallState state;
AS3_Val args;
char *strUTF8;
if (qspCallBacks[QSP_CALL_SAVEGAMESTATUS].IsSet)
{
qspSaveCallState(&state, QSP_FALSE, QSP_TRUE);
if (file)
{
strUTF8 = qspW2C(file);
args = AS3_Array("StrType", strUTF8);
free(strUTF8);
}
else
args = AS3_Array("StrType", 0);
AS3_Call(qspCallBacks[QSP_CALL_SAVEGAMESTATUS].FuncVal, qspCallBacks[QSP_CALL_SAVEGAMESTATUS].ThisVal, args);
AS3_Release(args);
flyield();
qspRestoreCallState(&state);
}
}
QSP_CHAR *qspCallInputBox(QSP_CHAR *text)
{
/* Здесь вводим текст */
QSPCallState state;
QSP_CHAR *buffer;
AS3_Val args;
char *strUTF8;
char *resText;
int maxLen = 511;
if (qspCallBacks[QSP_CALL_INPUTBOX].IsSet)
{
qspSaveCallState(&state, QSP_TRUE, QSP_FALSE);
if (text)
{
strUTF8 = qspW2C(text);
args = AS3_Array("StrType", strUTF8);
free(strUTF8);
}
else
args = AS3_Array("StrType", 0);
AS3_Call(qspCallBacks[QSP_CALL_INPUTBOX].FuncVal, qspCallBacks[QSP_CALL_INPUTBOX].ThisVal, args);
AS3_Release(args);
flyield();
resText = AS3_StringValue(result);
AS3_Release(result);
buffer = qspC2W(resText);
free(resText);
qspRestoreCallState(&state);
}
else
buffer = qspGetNewText(QSP_FMT(""), 0);
return buffer;
}
QSP_BOOL qspCallIsPlayingFile(QSP_CHAR *file)
{
/* Здесь проверяем, проигрывается ли файл */
QSPCallState state;
QSP_BOOL isPlaying;
AS3_Val args;
char *strUTF8;
if (qspCallBacks[QSP_CALL_ISPLAYINGFILE].IsSet)
{
qspSaveCallState(&state, QSP_TRUE, QSP_FALSE);
if (file)
{
strUTF8 = qspW2C(file);
args = AS3_Array("StrType", strUTF8);
free(strUTF8);
}
else
args = AS3_Array("StrType", 0);
AS3_Call(qspCallBacks[QSP_CALL_ISPLAYINGFILE].FuncVal, qspCallBacks[QSP_CALL_ISPLAYINGFILE].ThisVal, args);
AS3_Release(args);
flyield();
isPlaying = (QSP_BOOL)AS3_IntValue(result);
AS3_Release(result);
qspRestoreCallState(&state);
return isPlaying;
}
return QSP_FALSE;
}
void qspCallShowWindow(int type, QSP_BOOL isShow)
{
/* Здесь показываем или скрываем окно */
QSPCallState state;
AS3_Val args;
if (qspCallBacks[QSP_CALL_SHOWWINDOW].IsSet)
{
qspSaveCallState(&state, QSP_TRUE, QSP_FALSE);
args = AS3_Array("IntType, IntType", type, isShow);
AS3_Call(qspCallBacks[QSP_CALL_SHOWWINDOW].FuncVal, qspCallBacks[QSP_CALL_SHOWWINDOW].ThisVal, args);
AS3_Release(args);
flyield();
qspRestoreCallState(&state);
}
}
void qspCallSleep(int msecs)
{
/* Здесь ожидаем заданное количество миллисекунд */
QSPCallState state;
AS3_Val args;
if (qspCallBacks[QSP_CALL_SLEEP].IsSet)
{
qspSaveCallState(&state, QSP_TRUE, QSP_FALSE);
args = AS3_Array("IntType", msecs);
AS3_Call(qspCallBacks[QSP_CALL_SLEEP].FuncVal, qspCallBacks[QSP_CALL_SLEEP].ThisVal, args);
AS3_Release(args);
flyield();
qspRestoreCallState(&state);
}
}
void qspCallDeleteMenu()
{
/* Здесь удаляем текущее меню */
QSPCallState state;
AS3_Val args;
if (qspCallBacks[QSP_CALL_DELETEMENU].IsSet)
{
qspSaveCallState(&state, QSP_TRUE, QSP_FALSE);
args = AS3_Array("");
AS3_Call(qspCallBacks[QSP_CALL_DELETEMENU].FuncVal, qspCallBacks[QSP_CALL_DELETEMENU].ThisVal, args);
AS3_Release(args);
flyield();
qspRestoreCallState(&state);
}
}
void qspCallRefreshInt(QSP_BOOL isRedraw)
{
/* Здесь выполняем обновление интерфейса */
QSPCallState state;
AS3_Val args;
if (qspCallBacks[QSP_CALL_REFRESHINT].IsSet)
{
qspSaveCallState(&state, QSP_TRUE, QSP_FALSE);
args = AS3_Array("IntType", isRedraw);
AS3_Call(qspCallBacks[QSP_CALL_REFRESHINT].FuncVal, qspCallBacks[QSP_CALL_REFRESHINT].ThisVal, args);
AS3_Release(args);
flyield();
qspRestoreCallState(&state);
}
}
void qspCallSetTimer(int msecs)
{
/* Здесь устанавливаем интервал таймера */
QSPCallState state;
AS3_Val args;
if (qspCallBacks[QSP_CALL_SETTIMER].IsSet)
{
qspSaveCallState(&state, QSP_TRUE, QSP_FALSE);
args = AS3_Array("IntType", msecs);
AS3_Call(qspCallBacks[QSP_CALL_SETTIMER].FuncVal, qspCallBacks[QSP_CALL_SETTIMER].ThisVal, args);
AS3_Release(args);
flyield();
qspRestoreCallState(&state);
}
}
void qspCallShowMenu()
{
/* Здесь показываем меню */
QSPCallState state;
AS3_Val args;
if (qspCallBacks[QSP_CALL_SHOWMENU].IsSet)
{
qspSaveCallState(&state, QSP_FALSE, QSP_TRUE);
args = AS3_Array("");
AS3_Call(qspCallBacks[QSP_CALL_SHOWMENU].FuncVal, qspCallBacks[QSP_CALL_SHOWMENU].ThisVal, args);
AS3_Release(args);
flyield();
qspRestoreCallState(&state);
}
}
int qspCallShowMenu()
{
/* «десь показываем меню */
QSPCallState state;
int index;
AS3_Val args;
if (qspCallBacks[QSP_CALL_SHOWMENU].IsSet)
{
qspSaveCallState(&state, QSP_FALSE, QSP_TRUE);
args = AS3_Array("");
AS3_Call(qspCallBacks[QSP_CALL_SHOWMENU].FuncVal, qspCallBacks[QSP_CALL_SHOWMENU].ThisVal, args);
AS3_Release(args);
flyield();
index = AS3_IntValue(result);
AS3_Release(result);
qspRestoreCallState(&state);
return index;
}
return -1;
}
int qspCallGetMSCount()
{
/* Здесь получаем количество миллисекунд, прошедших с момента последнего вызова функции */
QSPCallState state;
int count;
AS3_Val args;
if (qspCallBacks[QSP_CALL_GETMSCOUNT].IsSet)
{
qspSaveCallState(&state, QSP_TRUE, QSP_FALSE);
args = AS3_Array("");
AS3_Call(qspCallBacks[QSP_CALL_GETMSCOUNT].FuncVal, qspCallBacks[QSP_CALL_GETMSCOUNT].ThisVal, args);
AS3_Release(args);
flyield();
count = AS3_IntValue(result);
AS3_Release(result);
qspRestoreCallState(&state);
return count;
}
return 0;
}
void qspCallAddMenuItem(QSP_CHAR *name, QSP_CHAR *imgPath)
{
/* Здесь добавляем пункт меню */
QSPCallState state;
AS3_Val args;
char *nameUTF8;
char *imgUTF8;
if (qspCallBacks[QSP_CALL_ADDMENUITEM].IsSet)
{
qspSaveCallState(&state, QSP_TRUE, QSP_FALSE);
nameUTF8 = (name ? qspW2C(name) : 0);
imgUTF8 = (imgPath ? qspW2C(imgPath) : 0);
args = AS3_Array("StrType, StrType", nameUTF8, imgUTF8);
if (nameUTF8) free(nameUTF8);
if (imgUTF8) free(imgUTF8);
AS3_Call(qspCallBacks[QSP_CALL_ADDMENUITEM].FuncVal, qspCallBacks[QSP_CALL_ADDMENUITEM].ThisVal, args);
AS3_Release(args);
flyield();
qspRestoreCallState(&state);
}
}
void qspCallDebug(QSP_CHAR *str)
{
/* Здесь передаем управление отладчику */
QSPCallState state;
char *strUTF8;
AS3_Val args;
if (qspCallBacks[QSP_CALL_DEBUG].IsSet)
{
qspSaveCallState(&state, QSP_FALSE, QSP_FALSE);
if (str)
{
strUTF8 = qspW2C(str);
args = AS3_Array("StrType", strUTF8);
free(strUTF8);
}
else
args = AS3_Array("StrType", 0);
AS3_Call(qspCallBacks[QSP_CALL_DEBUG].FuncVal, qspCallBacks[QSP_CALL_DEBUG].ThisVal, args);
AS3_Release(args);
flyield();
qspRestoreCallState(&state);
}
}
void qspCallSetInputStrText(QSP_CHAR *text)
{
/* Здесь устанавливаем текст строки ввода */
QSPCallState state;
AS3_Val args;
char *textUTF8;
if (qspCallBacks[QSP_CALL_SETINPUTSTRTEXT].IsSet)
{
qspSaveCallState(&state, QSP_TRUE, QSP_FALSE);
if (text)
{
textUTF8 = qspW2C(text);
args = AS3_Array("StrType", textUTF8);
free(textUTF8);
}
else
args = AS3_Array("StrType", 0);
AS3_Call(qspCallBacks[QSP_CALL_SETINPUTSTRTEXT].FuncVal, qspCallBacks[QSP_CALL_SETINPUTSTRTEXT].ThisVal, args);
AS3_Release(args);
flyield();
qspRestoreCallState(&state);
}
}
void qspCallCloseFile(QSP_CHAR *file)
{
/* Здесь выполняем закрытие файла */
QSPCallState state;
AS3_Val args;
char *strUTF8;
if (qspCallBacks[QSP_CALL_CLOSEFILE].IsSet)
{
qspSaveCallState(&state, QSP_TRUE, QSP_FALSE);
if (file)
{
strUTF8 = qspW2C(file);
args = AS3_Array("StrType", strUTF8);
free(strUTF8);
}
else
args = AS3_Array("StrType", 0);
AS3_Call(qspCallBacks[QSP_CALL_CLOSEFILE].FuncVal, qspCallBacks[QSP_CALL_CLOSEFILE].ThisVal, args);
AS3_Release(args);
flyield();
qspRestoreCallState(&state);
}
}
void qspCallSystem(QSP_CHAR *cmd)
{
/* Здесь выполняем системный вызов */
QSPCallState state;
AS3_Val args;
char *strUTF8;
if (qspCallBacks[QSP_CALL_SYSTEM].IsSet)
{
qspSaveCallState(&state, QSP_FALSE, QSP_FALSE);
if (cmd)
{
strUTF8 = qspW2C(cmd);
args = AS3_Array("StrType", strUTF8);
free(strUTF8);
}
else
args = AS3_Array("StrType", 0);
AS3_Call(qspCallBacks[QSP_CALL_SYSTEM].FuncVal, qspCallBacks[QSP_CALL_SYSTEM].ThisVal, args);
AS3_Release(args);
flyield();
qspRestoreCallState(&state);
}
}
void qspCallPlayFile(QSP_CHAR *file, int volume)
{
/* Здесь начинаем воспроизведение файла с заданной громкостью */
QSPCallState state;
AS3_Val args;
char *strUTF8;
if (qspCallBacks[QSP_CALL_PLAYFILE].IsSet)
{
qspSaveCallState(&state, QSP_TRUE, QSP_FALSE);
if (file)
{
strUTF8 = qspW2C(file);
args = AS3_Array("StrType, IntType", strUTF8, volume);
free(strUTF8);
}
else
args = AS3_Array("StrType, IntType", 0, volume);
AS3_Call(qspCallBacks[QSP_CALL_PLAYFILE].FuncVal, qspCallBacks[QSP_CALL_PLAYFILE].ThisVal, args);
AS3_Release(args);
flyield();
qspRestoreCallState(&state);
}
}
void qspCallShowPicture(QSP_CHAR *file)
{
/* Здесь показываем изображение */
QSPCallState state;
AS3_Val args;
char *strUTF8;
if (qspCallBacks[QSP_CALL_SHOWIMAGE].IsSet)
{
qspSaveCallState(&state, QSP_TRUE, QSP_FALSE);
if (file)
{
strUTF8 = qspW2C(file);
args = AS3_Array("StrType", strUTF8);
free(strUTF8);
}
else
args = AS3_Array("StrType", 0);
AS3_Call(qspCallBacks[QSP_CALL_SHOWIMAGE].FuncVal, qspCallBacks[QSP_CALL_SHOWIMAGE].ThisVal, args);
AS3_Release(args);
flyield();
qspRestoreCallState(&state);
}
}
void qspCallShowMessage(QSP_CHAR *text)
{
/* Здесь показываем сообщение */
QSPCallState state;
AS3_Val args;
char *strUTF8;
if (qspCallBacks[QSP_CALL_SHOWMSGSTR].IsSet)
{
qspSaveCallState(&state, QSP_TRUE, QSP_FALSE);
if (text)
{
strUTF8 = qspW2C(text);
args = AS3_Array("StrType", strUTF8);
free(strUTF8);
}
else
args = AS3_Array("StrType", 0);
AS3_Call(qspCallBacks[QSP_CALL_SHOWMSGSTR].FuncVal, qspCallBacks[QSP_CALL_SHOWMSGSTR].ThisVal, args);
AS3_Release(args);
flyield();
qspRestoreCallState(&state);
}
}
void qspCallOpenGame(QSP_CHAR *file)
{
/* Здесь позволяем пользователю выбрать файл */
/* состояния игры для загрузки и загружаем его */
QSPCallState state;
AS3_Val args;
char *strUTF8;
if (qspCallBacks[QSP_CALL_OPENGAMESTATUS].IsSet)
{
qspSaveCallState(&state, QSP_FALSE, QSP_TRUE);
if (file)
{
strUTF8 = qspW2C(file);
args = AS3_Array("StrType", strUTF8);
free(strUTF8);
}
else
args = AS3_Array("StrType", 0);
AS3_Call(qspCallBacks[QSP_CALL_OPENGAMESTATUS].FuncVal, qspCallBacks[QSP_CALL_OPENGAMESTATUS].ThisVal, args);
AS3_Release(args);
flyield();
qspRestoreCallState(&state);
}
}
static AS3_Val prediction(void* self, AS3_Val args) {
AS3_Val in_arr = AS3_Undefined(), out_arr = AS3_Array(0);
float *tmp, d, e;
int i,j,k,l, n,x,y, newx,newy, il, dx,dy;
LAYER *pL;
AS3_ArrayValue( args, "AS3ValType", &in_arr );
for(i=0; i < 1024; ++i)
data[i] = AS3_IntValue(AS3_Get(in_arr, AS3_Int(4*i+1))) /255.0;
n = 1;
x = 32;
y = 32;
#define DATA(l,j,i) data[((l)*y + (j))*x + (i)]
#define O(k,dy,dx) o[((k)*newy + (dy))*newx + (dx)]
#define W(k,l,j,i) pL->w[(((k)*n + (l))*pL->y + (j))*pL->x + (i)]
for (il=0; il < nl; ++il) {
flyield();
pL = L+il;
newx = x+1-pL->x;
newy = y+1-pL->y;
for (dx=0; dx < newx; ++dx)
for (dy=0; dy < newy; ++dy)
for (k=0; k < pL->n; ++k) {
d = pL->b[k];
for (l=0; l < n; ++l)
for(j=0; j < pL->y; ++j)
for(i=0; i < pL->x; ++i)
d += DATA(l,j+dy,i+dx)*W(k,l,j,i);
O(k,dy,dx) = d;
}
if(pL->maxpool) {
for (k=0; k < pL->n; ++k)
for (dx=0; dx < newx; dx+=2)
for (dy=0; dy < newy; dy+=2) {
d=O(k,dy,dx);
e=O(k,dy,dx+1); if(e>d) d=e;
e=O(k,dy+1,dx); if(e>d) d=e;
e=O(k,dy+1,dx+1); if(e>d) d=e;
O(k,dy/2,dx/2)=d;
}
newx /= 2;
newy /= 2;
}
for (dx=0; dx < newx; ++dx)
for (dy=0; dy < newy; ++dy) {
e = 0;
for (k=0; k < pL->n; ++k) {
d = O(k,dy,dx);
if(pL->nonlin==1) d=1.0/(1.0 + exp(-d));
else if(pL->nonlin==2) d=tanh(d);
else if(pL->nonlin==3) { d=exp(d); e += d; }
O(k,dy,dx) = d;
}
if(pL->nonlin==3 && e)
for (k=0; k < pL->n; ++k)
O(k,dy,dx) /= e;
}
tmp = data;
data = o;
o = tmp;
x = newx;
y = newy;
n = pL->n;
}
for(i=0; i < n*x*y; ++i)
AS3_Set(out_arr, AS3_Int(i), AS3_Number(data[i]));
return out_arr;
}
