バイク屋さんで車検を通してもらった ZX-6R をトランポに積み込み、そのまま下ろすことなくツインリンクもてぎ行き。午後から天気が崩れそうなので、午前中に30分x2本走って帰宅。ラベル: バイク
」 高林哲、鵜飼文敏、佐藤祐介、浜地慎一郎、首藤一幸 (オライリー・ジャパン)ラベル: バイク
issei@vmbsd[~/work/GameObj/tool/src/cscript] sysctl hw.model
hw.model: AMD Athlon(tm) 64 X2 Dual Core Processor 4200+
issei@vmbsd[~/work/GameObj/tool/src/cscript] time gmake -j2
111.693u 43.318s 1:29.89 172.4% 5034+23476k 132+1783io 127pf+0w
${INSTALL_PROGRAM} ${WRKDIR}/vmmemctl-only/vmmemctl.ko ${VMWARE_KMODDIR}ラベル: プログラミング
ラベル: 日常あるいは平穏な日々
#! /usr/bin/perl
use strict;
use vars qw($NM_CMD %SYMBOLS);
$NM_CMD = "/usr/bin/nm -S";
my $file_sym = $ARGV[0] or die;
&read_symbol($file_sym);
my $file_inst = $ARGV[1] or die;
open(F, "$file_inst") or die "$file_inst";
my $depth = 0;
while (<F>) {
chomp;
/^([EX])0x([\da-f]+)/ or next;
my ($ex) = $1;
my ($addr) = hex($2);
$ex eq 'E' and ++$depth;
$ex eq 'X' and --$depth;
next if $ex eq 'X';
next unless exists($SYMBOLS{$addr});
print ' ' x $depth, $SYMBOLS{$addr}, "\n";
}
close(F);
sub read_symbol
{
my $file = shift;
open(P, "$NM_CMD $file |") or die "$NM_CMD $file";
while (<P>) {
next unless /^([\da-f]+)\s+([\da-f]+)\s+[tTW]\s+(\w+)$/;
my ($begin, $size, $symbol) = ($1, $2, $3);
local($_) = $symbol;
next if /^_ZNK?5boost/;
next if /^_ZN?K?S/;
next if /^_ZNK?9__gnu_cxx/;
next if /^_Z41__static_/;
next if /^_ZNK4mpl/;
next if /^__tcf_/;
next if /^_Z8__istypeim/;
next if /^_GLOBAL__/;
next if /^_Z10__maskruneim/;
next if /^_Znw/;
next if /^_Zdl/;
next if /^__cyg_/;
$SYMBOLS{hex($begin)} = $symbol;
}
close(P);
}
main
_ZN7CScript7SysDeclC1Ev
_ZN7CScript7ICtxLexC2Ev
_ZN7CScript7SysDecl4ImplC1Ev
_ZN7CScript9LexHolderC1EPNS_7ICtxLexEPSi
_ZN7CScript9LexHolder4ImplC1EPNS_7ICtxLexEPSi
_ZN11yyFlexLexerC2EPSiPSo
_ZN9FlexLexerC2Ev
yyparse
yylex
_ZN7CScript9LexHolder5yylexEv
_ZN7CScript9LexHolder4Impl5yylexEv
(以下略)
#! /usr/bin/perl
use strict;
use vars qw($NM_CMD %SYMBOLS %CALLS %TOTAL);
$NM_CMD = "/usr/bin/nm -S";
# --------------------------------------------------------------------
my $file_sym = $ARGV[0] or die;
&read_symbol($file_sym);
my $file_inst = $ARGV[1] or die;
my (@stack);
open(F, "$file_inst") or die "$file_inst";
my $depth = 0;
while () {
chomp;
/^([EX])0x([\da-f]+)/ or next;
my ($ex) = $1;
my ($addr) = hex($2);
if ($ex eq 'E') {
push(@stack, $addr);
} elsif ($ex eq 'X') {
pop(@stack);
}
next if $ex eq 'X';
next unless exists($SYMBOLS{$addr});
my $sym_callee = $SYMBOLS{$addr};
my $sym_caller = &find_caller(\@stack);
next unless $sym_caller;
# print "$sym_caller -> $sym_callee\n";
++$CALLS{$sym_caller}{$sym_callee};
++$TOTAL{$sym_caller};
exists($TOTAL{$sym_callee}) or $TOTAL{$sym_callee} = 0;
# print ' ' x $#stack, $sym_callee, "\n";
}
close(F);
# --------------------------------------------------------------------
print "digraph G \{\n\n";
# vertecies
foreach (keys %TOTAL) {
my $caller = $_;
if ($TOTAL{$caller} > 0) {
print " \"$caller\" [shape=rectangle];\n";
} else {
print " \"$caller\" [shape=ellipse];\n";
}
}
# edges
foreach (keys %CALLS) {
my $caller = $_;
foreach (keys %{$CALLS{$caller}}) {
my $callee = $_;
my $count = $CALLS{$caller}{$callee};
print " \"$caller\" -> \"$callee\" [label=\"$count calls\" fontsize=\"10\"];\n";
}
}
print "}\n";
# --------------------------------------------------------------------
sub read_symbol
{
my $file = shift;
open(P, "$NM_CMD $file |") or die "$NM_CMD $file";
while () {
next unless /^([\da-f]+)\s+([\da-f]+)\s+[tTW]\s+(\w+)$/;
my ($begin, $size, $symbol) = ($1, $2, $3);
local($_) = $symbol;
next if /^_ZNK?5boost/;
next if /^_ZN?K?S/;
next if /^_ZNK?9__gnu_cxx/;
next if /^_Z41__static_/;
next if /^_ZNK4mpl/;
next if /^__tcf_/;
next if /^_Z8__istypeim/;
next if /^_GLOBAL__/;
next if /^_Z10__maskruneim/;
next if /^_Znw/;
next if /^_Zdl/;
next if /^__cyg_/;
$SYMBOLS{hex($begin)} = $symbol;
}
close(P);
}
sub find_caller
{
my $stack = shift;
my $depth = scalar(@$stack);
local($_) = $depth - 2;
for (; $_ >= 0; --$_) {
my $addr = $stack->[$_];
return $SYMBOLS{$addr} if $SYMBOLS{$addr};
}
}
% ./code/callgraph.pl cscrc cscrc.sym | c++filt > cscrc.dot
ラベル: プログラミング
"Instead of teaching students a lot of facts and then giving them a problem to solve, this method starts out by giving them a problem," he said. "Then they have to go figure out what facts they need to learn to solve it."
」 稲葉 一浩 (秀和システム)ラベル: お買いもの
本というのはどこか本を作る会社が作るわけで、どうやって そういう所とそういう話になるんだろう、とかいうあたりがまるで想像できません。大きな会社なら出版社とも付き合いがあると思いますから、その編集さん通して企画に適した分野の編集さん紹介してもらえると思います。
ラベル: プログラミング
ラベル: プログラミング
各分野をつまみ食いさせて興味を持たせるきっかけにしつつも、最悪そこに書いてあることだけでもとりあえずゲームが作れる、というぐらいの本があると便利な気がするのです。
ラベル: プログラミング
ラベル: 日常あるいは平穏な日々
ゲームプログラミングについて各分野で60点を取れるくらいの 感じの本が私の知る限りない。幾何、ライブラリ設計、アプリケーション設計、 通信、素材管理、ツール、AI、モーション、最適化、デバッグ体制、描画技術、 ハードウェアアーキテクチャ、アルゴリズム、 などなどの全分野についてそれなりな知識を得られるような本。一冊ではなく、既存の書籍をワンセットにしてくれということなら簡単にリストを作れそうです。ゲームプログラミング固有の知識分野は、ほとんど無いと思いますので。
ラベル: プログラミング
ラベル: お買いもの
ラベル: 日常あるいは平穏な日々
ラベル: バイク
」 麻生太郎 (新潮新書)
」 W. Curtis Preston (オライリー・ジャパン)しばしば並行プログラミング実現方法の両極として「イベント駆動プログラミング」と「マルチスレッドプログラミング」があり、前者のほうが可読性・保守性が高いという議論がなされる。これは本来別の軸として評価すべきが混同されており議論が混迷しているので、軸を分離して再評価。両方の良いトコ取りを考える。
- タスク管理
- スタック管理
」 David A. Patterson, John L. Hennessy (日経BP社)
」 David A. Patterson, John L. Hennessy (日経BP社)
」 David A. Patterson, John L. Hennessy (日経BP社)ラベル: お買いもの
struct _Rb_tree_node_base
{
typedef _Rb_tree_node_base* _Base_ptr;
typedef const _Rb_tree_node_base* _Const_Base_ptr;
_Rb_tree_color _M_color;
_Base_ptr _M_parent;
_Base_ptr _M_left;
_Base_ptr _M_right;
// 以下略
_Rb_tree_node_base*
_Rb_tree_increment(_Rb_tree_node_base* __x)
{
if (__x->_M_right != 0)
{
__x = __x->_M_right;
while (__x->_M_left != 0)
__x = __x->_M_left;
}
else
{
_Rb_tree_node_base* __y = __x->_M_parent;
while (__x == __y->_M_right)
{
__x = __y;
__y = __y->_M_parent;
}
if (__x->_M_right != __y)
__x = __y;
}
return __x;
}
ラベル: プログラミング
void main()
{
while (sysGetTimeSec() < 0.5)
sysPass(1);
// ここで無敵状態に
while (sysGetTimeSec() < 0.7)
sysPass(1);
// ここでヒット判定1回目
while (sysGetTimeSec() < 0.9)
sysPass(1);
// ここでヒット判定2回目
while (sysGetTimeSec() < 1.0)
sysPass(1);
// ここで無敵状態解除
}
timeline player_timeline()
{
when (0.5) {
// ここで無敵状態に
}
when (0.7) {
// ここでヒット判定1回目
}
when (0.9) {
// ここでヒット判定2回目
}
when (1.0) {
// ここで無敵状態解除
}
}
void main()
{
sysThreadBeginTimeline(player_timeline); // タイムライン処理の起動
sysThreadWaitAll(); // タイムライン処理が終わるまで待つ
}
when (2.3) {
do_something;
}
// ---------------------------------------- //
void __when()
{
int run = (int)(2.3 * CSCR_FRAMES_PER_SEC);
while (run >= sysThreadGetTime())
sysPass(1);
do_something;
}
// ---------------------------------------- //
void __when()
{
int run = (int)(2.3 * CSCR_FRAMES_PER_SEC); // (*1)
loop_begin: // (*2) [taddr1]
if (!(run >= sysThreadGetTime()))
goto loop_end; // [taddr2]
sysPass(1);
goto loop_begin;
loop_end:
do_something; // (*3)
}
goto label;
label_when_1:
// 最初の when 句に対応するコード
return;
label_when_2:
// 2番目の when 句に対応するコード
return;
label_when_3:
// 3番目の when 句に対応するコード
return;
label:
// when 句を、時刻の小さい順に呼び出す（コンパイル時にソートする）
call label_when_1
call label_when_3
call label_when_2
ラベル: プログラミング
issei@fbsd[~/work/GameObj/tool/src/cscript] sysctl hw.model
hw.model: AMD Athlon(tm) XP 1600+
issei@fbsd[~/work/GameObj/tool/src/cscript] gcc -v
Using built-in specs.
Configured with: FreeBSD/i386 system compiler
Thread model: posix
gcc version 3.4.6 [FreeBSD] 20060305
issei@fbsd[~/work/GameObj/tool/src/cscript] wc code/* m4/* | tail -1
9854 34343 297177 total
issei@fbsd[~/work/GameObj/tool/src/cscript] time gmake depend all > /dev/null
Create [scr_sys_test_pl.h]
194.081u 15.417s 3:33.36 98.1% 4551+18204k 24+1574io 12pf+0w
ラベル: 日常あるいは平穏な日々
// スクリプトのエントリポイントみたいなコードを書けば同じことは実現できるが、メッセージループみたいなゴツい代物をスクリプトで書くとなると、それなりのスキルがある人間しかスクリプトを書けなくなり、せっかく処理をスクリプトに逃がした意味が半減してしまう。MSG_EMPTY, MSG_EXIT の処理をミスると悲惨なことになるし。
void main()
{
int msg;
for (;;) {
// C++ 側から処理要求を取得
msg = getMessage();
switch (msg) {
case MSG_EMPTY: // 処理要求なし
sysPass(1);
case MSG_EXIT: // 終了
sysExit();
// 以下メッセージの種類に応じて、処理を分岐
case MSG_..
// ...
}
}
}
VirtualMachine vm;問題はスクリプト側関数への番号づけと、それを VirtualMachine のインスタンスに反映させる方法をどうするか？ まず思いつくのが既存のシステム関数の枠組みを利用してスクリプト側から登録させる方法、それからスクリプトをコンパイルする時点で割り込み番号と割り込み関数を解析してファイルに書き出しておき、それを VirtualMachine に読み込む際にローダーが登録してしまう方法。
// 初期化処理いろいろ省略
vm.interrupt(1);
/*
* 割り込みテスト
*/
// 割り込み処理1
interrupt testIntr1()
{
sysPrintS("intr 1\n");
}
// 割り込み処理2
interrupt testIntr2()
{
sysPrintS("intr 2\n");
}
void main()
{
// 割り込み関数登録
sysIntrRegister(1, testIntr1);
sysIntrRegister(2, testIntr2);
sysPass(1);
}
/*
* 割り込みテスト
*/
__interrupt[1] testIntr1()
{
sysPrintS("intr 1\n");
}
__interrupt[2] testIntr2()
{
sysPrintS("intr 2\n");
}
void main()
{
}
ラベル: プログラミング
個人的な日記、サーキット走行記録、兼、プログラミング/ネットワーク運用系の技術的な覚書。
休日はワンボックスカーにバイク積んでサーキット走行に行ってましたが、鎖骨を折って半年かけてようやく完治。年取ると骨折は時間かかる X-( 仕事はゲームプログラマ (PS2, Xbox360) からコンサルを経て、再びエンジニアに。
