devs/foxbox
1
0
Fork 0
forked from len0rd/rockbox
Code Pull requests Activity

Patch #4736 for Chessbox from Miguel A. Arévalo - Added support for user interaction while thinking, you can force move now with PLAY and quit with OFF (iRiver example). Yield only on Search as any Evaluate will be preceded by a Search. Plus some minor code policing from me to remove tabs in both the patch and the original code

Browse source 
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@8896 a1c6a512-1295-4272-9138-f99709370657
This commit is contained in:
Dave Chapman 2006-03-03 15:01:37 +00:00
parent 8dccb294a8
commit 7ceadd79db
3 changed files with 350 additions and 317 deletions
Download patch file Download diff file Expand all files Collapse all files

48
apps/plugins/chessbox/chessbox.c
View file

@ -131,7 +131,7 @@ PLUGIN_HEADER
#define TILE_WIDTH 8 #define TILE_WIDTH 8
#define TILE_HEIGHT 8 #define TILE_HEIGHT 8
#else #else
#error BEJEWELED: Unsupported LCD #error CHESSBOX: Unsupported LCD
#endif #endif
/* Calculate Offsets */ /* Calculate Offsets */
@ -139,12 +139,16 @@ PLUGIN_HEADER
#define YOFS ((LCD_HEIGHT-8*TILE_HEIGHT)/2) #define YOFS ((LCD_HEIGHT-8*TILE_HEIGHT)/2)
/* commands enum */ /* commands enum */
#define COMMAND_NOP 0
#define COMMAND_MOVE 1 #define COMMAND_MOVE 1
#define COMMAND_PLAY 2 #define COMMAND_PLAY 2
#define COMMAND_LEVEL 3 #define COMMAND_LEVEL 3
/*#define COMMAND_RESTART 4*/ /*#define COMMAND_RESTART 4*/
#define COMMAND_QUIT 5 #define COMMAND_QUIT 5
/* "While thinking" command */
int wt_command = COMMAND_NOP;
/* GCC wants this to be present for some targets */ /* GCC wants this to be present for some targets */
void* memcpy(void* dst, const void* src, size_t size) void* memcpy(void* dst, const void* src, size_t size)
{ {
@ -240,6 +244,24 @@ void cb_switch ( short x , short y ) {
rb->lcd_update(); rb->lcd_update();
} }
/* ---- callback for capturing interaction while thinking ---- */
void cb_wt_callback ( void ) {
int button = BUTTON_NONE;
wt_command = COMMAND_NOP;
button = rb->button_get(false);
switch (button) {
case CB_QUIT:
wt_command = COMMAND_QUIT;
timeout = true;
break;
case CB_PLAY:
wt_command = COMMAND_PLAY;
timeout = true;
break;
}
}
/* ---- increase playing level ---- */ /* ---- increase playing level ---- */
void cb_levelup ( void ) { void cb_levelup ( void ) {
Level ++; Level ++;
@ -317,9 +339,11 @@ struct cb_command cb_getcommand (void) {
case CB_QUIT: case CB_QUIT:
result.type = COMMAND_QUIT; result.type = COMMAND_QUIT;
return result; return result;
/* case CB_RESTART: #if 0
case CB_RESTART:
result.type = COMMAND_RESTART; result.type = COMMAND_RESTART;
return result;*/ return result;
#endif
case CB_LEVEL: case CB_LEVEL:
result.type = COMMAND_LEVEL; result.type = COMMAND_LEVEL;
return result; return result;
@ -469,27 +493,37 @@ enum plugin_status plugin_start(struct plugin_api* api, void* parameter) {
#ifdef HAVE_ADJUSTABLE_CPU_FREQ #ifdef HAVE_ADJUSTABLE_CPU_FREQ
rb->cpu_boost ( true ); rb->cpu_boost ( true );
#endif #endif
SelectMove ( computer , 0 ); SelectMove ( computer , 0 , cb_wt_callback );
#ifdef HAVE_ADJUSTABLE_CPU_FREQ #ifdef HAVE_ADJUSTABLE_CPU_FREQ
rb->cpu_boost ( false ); rb->cpu_boost ( false );
#endif #endif
if ( wt_command == COMMAND_QUIT ) {
exit = true;
break;
}
cb_drawboard(); cb_drawboard();
} }
break; break;
/* case COMMAND_RESTART: #if 0
case COMMAND_RESTART:
GNUChess_Initialize(); GNUChess_Initialize();
cb_drawboard(); cb_drawboard();
break;*/ break;
#endif
case COMMAND_PLAY: case COMMAND_PLAY:
opponent = !opponent; computer = !computer; opponent = !opponent; computer = !computer;
rb->splash ( 0 , true , "Thinking..." ); rb->splash ( 0 , true , "Thinking..." );
#ifdef HAVE_ADJUSTABLE_CPU_FREQ #ifdef HAVE_ADJUSTABLE_CPU_FREQ
rb->cpu_boost ( true ); rb->cpu_boost ( true );
#endif #endif
SelectMove ( computer , 0 ); SelectMove ( computer , 0 , cb_wt_callback );
#ifdef HAVE_ADJUSTABLE_CPU_FREQ #ifdef HAVE_ADJUSTABLE_CPU_FREQ
rb->cpu_boost ( false ); rb->cpu_boost ( false );
#endif #endif
if ( wt_command == COMMAND_QUIT ) {
exit = true;
break;
}
cb_drawboard(); cb_drawboard();
break; break;
case COMMAND_LEVEL: case COMMAND_LEVEL:

27
apps/plugins/chessbox/gnuchess.c
View file

@ -279,7 +279,8 @@ void CopyBoard( short a[64] , short b[64] );
void OpeningBook ( void ); void OpeningBook ( void );
int search ( short side, short ply, short depth, int search ( short side, short ply, short depth,
short alpha, short beta, short alpha, short beta,
unsigned short bstline[], short *rpt ); unsigned short bstline[], short *rpt,
void (*callback)(void) );
int evaluate ( short side, short xside, short ply, short depth, int evaluate ( short side, short xside, short ply, short depth,
short alpha, short beta ); short alpha, short beta );
int ProbeTTable ( short side, short depth, int ProbeTTable ( short side, short depth,
@ -333,9 +334,6 @@ short pscore[3];
xside = otherside[side]; xside = otherside[side];
pscore[white] = pscore[black] = 0; pscore[white] = pscore[black] = 0;
/* ok, I will yield here for lower levels */
rb->yield();
for (c1 = white; c1 <= black; c1++) for (c1 = white; c1 <= black; c1++)
{ {
c2 = otherside[c1]; c2 = otherside[c1];
@ -1018,8 +1016,7 @@ register int sq;
/* ............ MOVE GENERATION & SEARCH ROUTINES .............. */ /* ............ MOVE GENERATION & SEARCH ROUTINES .............. */
int SelectMove(side,iop) int SelectMove( short side, short iop , void (*callback)(void))
short side,iop;
/* /*
Select a move by calling function search() at progressively deeper Select a move by calling function search() at progressively deeper
@ -1078,21 +1075,21 @@ static short i,alpha,beta,score,tempb,tempc,tempsf,tempst,xside,rpt;
{ {
Sdepth++; Sdepth++;
/*ShowDepth(' ');*/ /*ShowDepth(' ');*/
score = search(side,1,Sdepth,alpha,beta,PrVar,&rpt); score = search(side,1,Sdepth,alpha,beta,PrVar,&rpt,callback);
for (i = 1; i <= Sdepth; i++) killr0[i] = PrVar[i]; for (i = 1; i <= Sdepth; i++) killr0[i] = PrVar[i];
if (score < alpha && !timeout) if (score < alpha && !timeout)
{ {
/*ShowDepth('-');*/ /*ShowDepth('-');*/
ExtraTime = 10*ResponseTime; ExtraTime = 10*ResponseTime;
ZeroTTable(); ZeroTTable();
score = search(side,1,Sdepth,-9000,beta,PrVar,&rpt); score = search(side,1,Sdepth,-9000,beta,PrVar,&rpt,callback);
} }
if (score > beta && !timeout && !(root->flags & exact)) if (score > beta && !timeout && !(root->flags & exact))
{ {
/*ShowDepth('+');*/ /*ShowDepth('+');*/
ExtraTime = 0; ExtraTime = 0;
ZeroTTable(); ZeroTTable();
score = search(side,1,Sdepth,alpha,9000,PrVar,&rpt); score = search(side,1,Sdepth,alpha,9000,PrVar,&rpt,callback);
} }
score = root->score; score = root->score;
if (!timeout) if (!timeout)
@ -1209,9 +1206,9 @@ struct BookEntry *p;
}\ }\
} }
int search(side,ply,depth,alpha,beta,bstline,rpt) int search( short side, short ply, short depth,
short side,ply,depth,alpha,beta,*rpt; short alpha, short beta, unsigned short bstline[], short *rpt,
unsigned short bstline[]; void (*callback)(void) )
/* /*
Perform an alpha-beta search to determine the score for the current Perform an alpha-beta search to determine the score for the current
@ -1238,8 +1235,10 @@ short xside,pbst,d,e,cf,score,rcnt;
unsigned short mv,nxtline[maxdepth]; unsigned short mv,nxtline[maxdepth];
struct leaf *node,tmp; struct leaf *node,tmp;
/* ok, I will yield here for higher levels */ /* this is the only place we need to yield */
rb->yield(); rb->yield();
/* and check for user interaction */
callback();
NodeCnt++; NodeCnt++;
xside = otherside[side]; xside = otherside[side];
@ -1308,7 +1307,7 @@ struct leaf *node,tmp;
PawnThreat[ply] = (node->flags & pwnthrt); PawnThreat[ply] = (node->flags & pwnthrt);
Tscore[ply] = node->score; Tscore[ply] = node->score;
node->score = -search(xside,ply+1,depth-1,-beta,-alpha, node->score = -search(xside,ply+1,depth-1,-beta,-alpha,
nxtline,&rcnt); nxtline,&rcnt,callback);
if (abs(node->score) > 9000) node->flags |= exact; if (abs(node->score) > 9000) node->flags |= exact;
else if (rcnt == 1) node->score /= 2; else if (rcnt == 1) node->score /= 2;
if (rcnt >= 2 || GameCnt-Game50 > 99 || if (rcnt >= 2 || GameCnt-Game50 > 99 ||

4
apps/plugins/chessbox/gnuchess.h
View file

@ -26,6 +26,7 @@ extern short board[64];
extern short color[64]; extern short color[64];
extern long Level; extern long Level;
extern short TCflag,TCmoves,TCminutes; extern short TCflag,TCmoves,TCminutes;
extern short timeout;
/* ---- RockBox integration ---- */ /* ---- RockBox integration ---- */
extern struct plugin_api* rb; extern struct plugin_api* rb;
@ -34,7 +35,6 @@ extern struct plugin_api* rb;
void SetTimeControl(void); void SetTimeControl(void);
void GNUChess_Initialize(void); void GNUChess_Initialize(void);
int VerifyMove(char s[],short iop,unsigned short *mv); int VerifyMove(char s[],short iop,unsigned short *mv);
int SelectMove ( short side, short iop); int SelectMove ( short side, short iop , void (*callback)(void) );
#endif #endif