![[PukiWiki]](image/pukiwiki.png "[PukiWiki]")
VisualBoyAdvance-1.8.0-beta3には嬉しいことにデバッグ用のコンソールがTools->Loggingについています。このコンソールを使えば処理の順番が正しく行われたかのチェックや、変数の値を見ることも可能になります。俗にいうprintfデバックです。
表示にはVBA方式とMappy方式の２種類あり、Mappy方式の方が優れているのでこちらを利用してください。VBA方式は「swi 0xff」を使用してエミュレータの独自処理にフックさせています。実機で動かすと素直にswi命令が動いてしまい、破綻しますので推奨されません。対するMappy方式はldr、andなどの無意味なシグネチャ処理によって実現しています。とても行儀が良いです。
void mappylog(char* buf)
{
asm("mov r2, %0; ldr r0,=0xc0ded00d; and r0,r0" :: "r"(buf) : "r2", "r0");
}
@ Functions available to be used with VBA
@ Compile with GAS
.file "vba.s"
.section .iwram,"ax",%progbits
.code 16
.text
.align 2
.global vbalog
.thumb_func
.type vbalog,function
@ log a message to VBA's output console or GDB console
@ r0=message to log
vbalog:
swi 0xff
bx lr
.data
テキスト出力できるということはprintf関数で%xや%dしよう、と考えたくなるものです。しかしlibcを使うということは文明の利器を使って解決するようなもので、ラクな道を選択しただけです。自分の胸に手を当てて少し考えてください。GBAプログラミングの楽しみとは大いなる無駄であることが醍醐味です。こんな低レイヤーよりpythonやgo言語を使った方がツールに振り回されることなくゲーム開発に専念できます。アウトドアキャンプを満喫したいのなら火起こしでライターを使うのではなく、自然に落ちているものだけで自作すべきです。つまりprintfを自作するべきだと私は考えています（爆。引数周りが非常にわかりずらく、理解をするのは難しいですが、こういう世界もあるんだな程度には感じとっていただければ幸いです。
typedef char* va_list;
#define __vasz(x) ((sizeof(x)+sizeof(int)-1) & ~(sizeof(int) -1))
#define va_start(ap, n) ((ap) = (va_list)&n + __vasz(n))
#define va_arg(ap, type) (*((type *)((va_list)((ap) = (void *)((va_list)(ap) + __vasz(type))) - __vasz(type))))
#define va_end(ap)
//---------------------------------------------------------------------------
IWRAM_CODE void _Printf(char* format, ...)
{
char sprintfBuf[100] ALIGN(4);
char* ap;
va_start(ap, format);
_DoSprintf(sprintfBuf, format, ap);
va_end(ap);
mappylog(sprintfBuf);
}
//---------------------------------------------------------------------------
IWRAM_CODE char* _Sprintf(char* buf, char* format, ...)
{
char* ap;
va_start(ap, format);
_DoSprintf(buf, format, ap);
va_end(ap);
return buf;
}
//---------------------------------------------------------------------------
IWRAM_CODE void _DoSprintf(char* str, char* fmt, char* ap)
{
s32 val;
char* val2;
char val3;
char c;
s32 col = 0;
char colChr = ' ';
bool isCol;
for(;;)
{
c = *fmt++;
if(c == '\0')
{
*str++ = '\0';
return;
}
if(c != '%')
{
*str++ = c;
continue;
}
c = *fmt++;
if(c == '0')
{
colChr = '0';
c = *fmt++;
}
if(_IsDigit(c) == TRUE)
{
col = c - '0';
isCol = TRUE;
c = *fmt++;
}
else
{
isCol = FALSE;
}
switch(c)
{
case 'd':
val = va_arg(ap, int);
if(val < 0)
{
val *= -1;
*str++ = '-';
}
str = (isCol == TRUE) ? _SprintfNumCol(val, 10, str, col, colChr, TRUE) : _SprintfNum(val, 10, str);
break;
case 'x':
val = va_arg(ap, int);
str = (isCol == TRUE) ? _SprintfHexCol((u32)val, str, col, colChr, TRUE, 'a') : _SprintfHex((u32)val, str, 'a');
break;
case 'X':
val = va_arg(ap, int);
str = (isCol == TRUE) ? _SprintfHexCol((u32)val, str, col, colChr, TRUE, 'A') : _SprintfHex((u32)val, str, 'A');
break;
case 's':
val2 = va_arg(ap, char*);
str = _SprintfString(val2, str);
break;
case 'c':
val3 = va_arg(ap, char);
*str++ = val3;
break;
case '\0':
default:
*str++ = '\0';
return;
}
}
}
//---------------------------------------------------------------------------
IWRAM_CODE char* _SprintfNum(s32 val, s32 base, char* s)
{
s32 c = Mod(val, base);
val = Div(val, base);
if(val > 0)
{
s = _SprintfNum(val, base, s);
}
*s++ = c+'0';
return s;
}
//---------------------------------------------------------------------------
IWRAM_CODE char* _SprintfNumCol(s32 val, s32 base, char* s, s32 col, char colChr, bool isTop)
{
s32 c = Mod(val, base);
val = Div(val, base);
if(val > 0 || col > 1)
{
s = _SprintfNumCol(val, base, s, col-1, colChr, FALSE);
}
if(c != 0 || val != 0 || isTop == TRUE)
{
*s++ = c+'0';
}
else
{
*s++ = colChr;
}
return s;
}
//---------------------------------------------------------------------------
IWRAM_CODE char* _SprintfHexCol(u32 val, char* s, s32 col, char colChr, bool isTop, char hex)
{
if(val >= 0x10 || col > 1)
{
s = _SprintfHexCol(val >> 4, s, col-1, colChr, FALSE, hex);
}
u32 c = val & 0xf;
if(c != 0 || isTop == TRUE)
{
*s++ = (c>9) ? c-10+hex : c+'0';
}
else
{
*s++ = colChr;
}
return s;
}
//---------------------------------------------------------------------------
IWRAM_CODE char* _SprintfHex(u32 val, char* s, char hex)
{
if(val >= 0x10)
{
s = _SprintfHex(val >> 4, s, hex);
}
u32 c = val & 0xf;
*s++ = (c>9) ? c-10+hex : c+'0';
return s;
}
//---------------------------------------------------------------------------
IWRAM_CODE char* _SprintfString(char* val, char* s)
{
while(*val != '\0')
{
*s++ = *val++;
}
return s;
}
//---------------------------------------------------------------------------
IWRAM_CODE void mappylog(char* buf)
{
asm("mov r2, %0; ldr r0,=0xc0ded00d; and r0,r0" :: "r"(buf) : "r2", "r0");
}
