9 /* unacceptable when the program is thinking, or quit pondering */
10 #define AbortDifficultCommand \
11 if ( game_status & flag_thinking ) \
13 str_error = str_busy_think; \
16 else if ( game_status & ( flag_pondering | flag_puzzling ) ) \
18 game_status |= flag_quit_ponder; \
23 # define CmdBook(x,y) cmd_book(y);
24 static int cmd_book( char **lasts );
26 # define CmdBook(x,y) cmd_book(x,y);
27 static int cmd_learn( tree_t * restrict ptree, char **lasts );
28 static int cmd_book( tree_t * restrict ptree, char **lasts );
31 #if ! defined(NO_STDOUT)
32 static int cmd_stress( char **lasts );
35 #if defined(DEKUNOBOU)
36 static int cmd_dek( char **lasts );
40 static int proce_csalan( tree_t * restrict ptree );
41 static int cmd_connect( tree_t * restrict ptree, char **lasts );
45 static int proce_mnj( tree_t * restrict ptree );
46 static int cmd_mnj( tree_t * restrict ptree, char **lasts );
47 static int cmd_mnjmove( tree_t * restrict ptree, char **lasts, int is_alter );
51 static int cmd_thread( char **lasts );
55 static int cmd_mpv( char **lasts );
58 static int proce_cui( tree_t * restrict ptree );
59 static int cmd_usrmove( tree_t * restrict ptree, const char *str_move,
61 static int cmd_move_now( void );
62 static int cmd_ponder( char **lasts );
63 static int cmd_limit( char **lasts );
64 static int cmd_quit( void );
65 static int cmd_beep( char **lasts );
66 static int cmd_peek( char **lasts );
67 static int cmd_hash( char **lasts );
68 static int cmd_ping( void );
69 static int cmd_suspend( void );
70 static int cmd_problem( tree_t * restrict ptree, char **lasts );
71 static int cmd_display( tree_t * restrict ptree, char **lasts );
72 static int cmd_move( tree_t * restrict ptree, char **lasts );
73 static int cmd_new( tree_t * restrict ptree, char **lasts );
74 static int cmd_read( tree_t * restrict ptree, char **lasts );
75 static int cmd_resign( tree_t * restrict ptree, char **lasts );
76 static int cmd_time( char **lasts );
77 static int is_move( const char *str );
81 procedure( tree_t * restrict ptree )
84 if ( sckt_csa != SCKT_NULL ) { return proce_csalan( ptree ); }
87 if ( sckt_mnj != SCKT_NULL ) { return proce_mnj( ptree ); }
90 return proce_cui( ptree );
95 proce_cui( tree_t * restrict ptree )
100 token = strtok_r( str_cmdline, str_delimiters, &last );
102 if ( token == NULL || *token == '#' ) { return 1; }
103 if ( is_move( token ) ) { return cmd_usrmove( ptree, token, &last ); }
104 if ( ! strcmp( token, "s" ) ) { return cmd_move_now(); }
105 if ( ! strcmp( token, "beep" ) ) { return cmd_beep( &last); }
106 if ( ! strcmp( token, "book" ) ) { return CmdBook( ptree, &last ); }
107 if ( ! strcmp( token, "display" ) ) { return cmd_display( ptree, &last ); }
108 if ( ! strcmp( token, "hash" ) ) { return cmd_hash( &last ); }
109 if ( ! strcmp( token, "limit" ) ) { return cmd_limit( &last ); }
110 if ( ! strcmp( token, "move" ) ) { return cmd_move( ptree, &last ); }
111 if ( ! strcmp( token, "new" ) ) { return cmd_new( ptree, &last ); }
112 if ( ! strcmp( token, "peek" ) ) { return cmd_peek( &last ); }
113 if ( ! strcmp( token, "ping" ) ) { return cmd_ping(); }
114 if ( ! strcmp( token, "ponder" ) ) { return cmd_ponder( &last ); }
115 if ( ! strcmp( token, "problem" ) ) { return cmd_problem( ptree, &last ); }
116 if ( ! strcmp( token, "quit" ) ) { return cmd_quit(); }
117 if ( ! strcmp( token, "read" ) ) { return cmd_read( ptree, &last ); }
118 if ( ! strcmp( token, "resign" ) ) { return cmd_resign( ptree, &last ); }
119 if ( ! strcmp( token, "suspend" ) ) { return cmd_suspend(); }
120 if ( ! strcmp( token, "time" ) ) { return cmd_time( &last ); }
122 if ( ! strcmp( token, "connect" ) ) { return cmd_connect( ptree, &last ); }
125 if ( ! strcmp( token, "mnj" ) ) { return cmd_mnj( ptree, &last ); }
127 #if defined(DEKUNOBOU)
128 if ( ! strcmp( token, "dekunobou" ) ) { return cmd_dek( &last ); }
131 if ( ! strcmp( token, "mpv" ) ) { return cmd_mpv( &last ); }
134 if ( ! strcmp( token, "tlp" ) ) { return cmd_thread( &last ); }
136 #if ! defined(NO_STDOUT)
137 if ( ! strcmp( token, "stress" ) ) { return cmd_stress( &last ); }
139 #if ! defined(MINIMUM)
140 if ( ! strcmp( token, "learn" ) ) { return cmd_learn( ptree, &last ); }
143 str_error = str_bad_cmdline;
150 proce_csalan( tree_t * restrict ptree )
155 token = strtok_r( str_cmdline, str_delimiters, &last );
157 if ( token == NULL ) { return 1; }
158 if ( *token == ach_turn[client_turn] && is_move( token+1 ) )
163 token = strtok_r( NULL, str_delimiters, &last );
164 if ( token == NULL || *token != 'T' )
166 str_error = str_bad_cmdline;
170 l = strtol( token+1, &ptr, 0 );
171 if ( token+1 == ptr || l == LONG_MAX || l < 1 )
173 str_error = str_bad_cmdline;
177 adjust_time( (unsigned int)l, client_turn );
178 Out( " elapsed: b%u, w%u\n", sec_b_total, sec_w_total );
181 if ( *token == ach_turn[Flip(client_turn)] && is_move( token+1 ) )
183 return cmd_usrmove( ptree, token+1, &last );
185 if ( ! strcmp( token, str_resign ) ) { return cmd_resign( ptree, &last ); }
186 if ( ! strcmp( token, "#WIN" )
187 || ! strcmp( token, "#LOSE" )
188 || ! strcmp( token, "#DRAW" )
189 || ! strcmp( token, "#CHUDAN" ) )
191 if ( game_status & ( flag_thinking | flag_pondering | flag_puzzling ) )
193 game_status |= flag_suspend;
199 if ( client_ngame == client_max_game ) { return cmd_quit(); }
201 return client_next_game( ptree, client_str_addr, (int)client_port );
211 proce_mnj( tree_t * restrict ptree )
217 token = strtok_r( str_cmdline, str_delimiters, &last );
218 if ( token == NULL ) { return 1; }
220 if ( ! strcmp( token, "new" ) )
222 iret = cmd_suspend();
223 if ( iret != 1 ) { return iret; }
226 iret = cmd_new( ptree, &last );
227 if ( iret < 0 ) { return iret; }
229 return analyze( ptree );
231 if ( ! strcmp( token, "idle" ) ) { return cmd_suspend(); }
232 if ( ! strcmp( token, "alter" ) ) { return cmd_mnjmove( ptree, &last, 1 ); }
233 if ( ! strcmp( token, "move" ) ) { return cmd_mnjmove( ptree, &last, 0 ); }
235 str_error = str_bad_cmdline;
241 cmd_mnjmove( tree_t * restrict ptree, char **lasts, int is_alter )
243 const char *str1 = strtok_r( NULL, str_delimiters, lasts );
244 const char *str2 = strtok_r( NULL, str_delimiters, lasts );
250 if ( sckt_mnj == SCKT_NULL || str1 == NULL || str2 == NULL )
252 str_error = str_bad_cmdline;
256 lid = strtol( str2, &ptr, 0 );
257 if ( ptr == str2 || lid == LONG_MAX || lid < 1 )
259 str_error = str_bad_cmdline;
263 AbortDifficultCommand;
265 if ( is_alter ) { unmake_move_root( ptree, mnj_move_last ); };
267 iret = interpret_CSA_move( ptree, &move, str1 );
268 if ( iret < 0 ) { return iret; }
270 iret = get_elapsed( &time_turn_start );
271 if ( iret < 0 ) { return iret; }
273 mnj_posi_id = (int)lid;
274 mnj_move_last = move;
276 iret = make_move_root( ptree, move, ( flag_history | flag_time | flag_rep
278 | flag_rejections ) );
279 if ( iret < 0 ) { return iret; }
281 # if ! defined(NO_STDOUT)
282 iret = out_board( ptree, stdout, 0, 0 );
283 if ( iret < 0 ) { return iret; }
286 return analyze( ptree );
292 is_move( const char *str )
294 if ( isdigit( (int)str[0] ) && isdigit( (int)str[1] )
295 && isdigit( (int)str[2] ) && isdigit( (int)str[3] )
296 && isupper( (int)str[4] ) && isupper( (int)str[5] )
297 && str[6] == '\0' ) { return 1; }
306 if ( game_status & flag_thinking ) { game_status |= flag_move_now; }
313 cmd_usrmove( tree_t * restrict ptree, const char *str_move, char **lasts )
321 if ( game_status & mask_game_end )
323 str_error = str_game_ended;
327 if ( game_status & flag_thinking )
329 str_error = str_busy_think;
333 str = strtok_r( NULL, str_delimiters, lasts );
334 if ( str == NULL ) { lelapsed = 0; }
338 str_error = str_bad_cmdline;
342 lelapsed = strtol( str, &ptr, 0 );
343 if ( ptr == str || lelapsed == LONG_MAX || lelapsed < 1 )
345 str_error = str_bad_cmdline;
350 if ( game_status & ( flag_pondering | flag_puzzling ) )
354 for ( i = 0; i < ponder_nmove; i++ )
356 if ( ! strcmp( str_move, str_CSA_move(ponder_move_list[i]) ) )
361 if ( i == ponder_nmove )
364 if ( sckt_csa != SCKT_NULL ) { AbortDifficultCommand; }
367 #if defined(DEKUNOBOU)
368 if ( dek_ngame ) { AbortDifficultCommand; }
371 #if defined(CSASHOGI)
372 AbortDifficultCommand;
374 str_error = str_illegal_move;
379 if ( ( game_status & flag_puzzling )
380 || strcmp( str_move, str_CSA_move(ponder_move) ) )
382 ponder_move = MOVE_PONDER_FAILED;
383 game_status |= flag_quit_ponder;
387 iret = renovate_time( Flip(root_turn) );
388 if ( iret < 0 ) { return iret; }
391 adjust_time( (unsigned int)lelapsed, Flip(root_turn) );
394 history_book_learn[ record_game.moves ].move_played = ponder_move;
395 history_book_learn[ record_game.moves ].hand_played
396 = ptree->rep_hand_list[ root_nrep-1 ];
397 history_book_learn[ record_game.moves ].key_played
398 = (unsigned int)ptree->rep_board_list[ root_nrep-1 ];
400 out_CSA( ptree, &record_game, ponder_move );
402 game_status &= ~flag_pondering;
403 game_status |= flag_thinking;
405 set_search_limit_time( root_turn );
407 OutCsaShogi( "info ponder end\n" );
409 str = str_time_symple( time_turn_start - time_start );
410 Out( " %6s MOVE PREDICTION HIT\n"
411 " elapsed: b%u, w%u\n", str, sec_b_total, sec_w_total );
416 iret = interpret_CSA_move( ptree, &move, str_move );
417 if ( iret < 0 ) { return iret; }
418 move_evasion_pchk = 0;
419 iret = make_move_root( ptree, move, ( flag_rep | flag_history | flag_time
421 | flag_detect_hang ) );
426 if ( sckt_csa != SCKT_NULL )
428 if ( move_evasion_pchk )
430 str = str_CSA_move( move_evasion_pchk );
431 iret = sckt_out( sckt_csa, "%c%s\n",
432 ach_turn[Flip(root_turn)], str );
433 if ( iret < 0 ) { return iret; }
435 return cmd_suspend();
439 #if defined(DEKUNOBOU)
442 if ( move_evasion_pchk )
445 OutDek( "%%TORYO\n" );
447 return cmd_suspend();
451 if ( move_evasion_pchk )
453 str = str_CSA_move( move_evasion_pchk );
454 #if defined(CSASHOGI)
455 OutCsaShogi( "move%s\n", str );
456 return cmd_suspend();
458 snprintf( str_message, SIZE_MESSAGE, "perpetual check (%c%s)",
459 ach_turn[Flip(root_turn)], str );
460 str_error = str_message;
468 if ( lelapsed ) { adjust_time( (unsigned int)lelapsed, Flip(root_turn) ); }
469 Out( " elapsed: b%u, w%u\n", sec_b_total, sec_w_total );
472 if ( sckt_csa != SCKT_NULL && ( game_status & flag_mated ) )
474 iret = sckt_out( sckt_csa, "%%TORYO\n" );
475 if ( iret < 0 ) { return iret; }
479 #if defined(DEKUNOBOU)
480 if ( dek_ngame && ( game_status & flag_drawn ) ) { OutDek( "%%TORYO\n" ); }
483 if ( ! ( game_status & mask_game_end ) )
485 iret = com_turn_start( ptree, 0 );
486 if ( iret < 0 ) { return iret; }
494 cmd_beep( char **lasts )
496 const char *str = strtok_r( NULL, str_delimiters, lasts );
499 str_error = str_bad_cmdline;
503 if ( ! strcmp( str, str_on ) ) { game_status &= ~flag_nobeep; }
504 else if ( ! strcmp( str, str_off ) ) { game_status |= flag_nobeep; }
506 str_error = str_bad_cmdline;
515 cmd_peek( char **lasts )
517 const char *str = strtok_r( NULL, str_delimiters, lasts );
521 str_error = str_bad_cmdline;
525 if ( ! strcmp( str, str_on ) ) { game_status &= ~flag_nopeek; }
526 else if ( ! strcmp( str, str_off ) ) { game_status |= flag_nopeek; }
528 str_error = str_bad_cmdline;
537 cmd_ponder( char **lasts )
539 const char *str = strtok_r( NULL, str_delimiters, lasts );
543 str_error = str_bad_cmdline;
547 if ( ! strcmp( str, str_on ) ) { game_status &= ~flag_noponder; }
548 else if ( ! strcmp( str, str_off ) )
550 if ( game_status & ( flag_pondering | flag_puzzling ) )
552 game_status |= flag_quit_ponder;
554 game_status |= flag_noponder;
557 str_error = str_bad_cmdline;
565 #if ! defined(NO_STDOUT)
567 cmd_stress( char **lasts )
569 const char *str = strtok_r( NULL, str_delimiters, lasts );
573 str_error = str_bad_cmdline;
577 if ( ! strcmp( str, str_on ) ) { game_status &= ~flag_nostress; }
578 else if ( ! strcmp( str, str_off ) ) { game_status |= flag_nostress; }
580 str_error = str_bad_cmdline;
591 cmd_book( char **lasts )
593 cmd_book( tree_t * restrict ptree, char **lasts )
596 const char *str = strtok_r( NULL, str_delimiters, lasts );
601 str_error = str_bad_cmdline;
604 if ( ! strcmp( str, str_on ) ) { iret = book_on(); }
605 else if ( ! strcmp( str, str_off ) ) { iret = book_off(); }
606 else if ( ! strcmp( str, "narrow" ) ) { game_status |= flag_narrow_book; }
607 else if ( ! strcmp( str, "wide" ) ) { game_status &= ~flag_narrow_book; }
608 #if ! defined(MINIMUM)
609 else if ( ! strcmp( str, "create" ) )
611 AbortDifficultCommand;
613 iret = book_create( ptree );
614 if ( iret < 0 ) { return iret; }
616 iret = ini_game( ptree, &min_posi_no_handicap, flag_history,
618 if ( iret < 0 ) { return iret; }
620 iret = get_elapsed( &time_turn_start );
624 str_error = str_bad_cmdline;
633 cmd_display( tree_t * restrict ptree, char **lasts )
635 const char *str = strtok_r( NULL, str_delimiters, lasts );
642 l = strtol( str, &ptr, 0 );
645 str_error = str_bad_cmdline;
648 if ( l == 1 ) { game_status &= ~flag_reverse; }
649 else if ( l == 2 ) { game_status |= flag_reverse; }
651 str_error = str_bad_cmdline;
657 iret = out_board( ptree, stdout, 0, 0 );
658 if ( iret < 0 ) { return iret; }
659 #if ! defined(NO_LOGGING)
660 iret = out_board( ptree, pf_log, 0, 0 );
661 if ( iret < 0 ) { return iret; }
672 OutCsaShogi( "pong\n" );
679 cmd_hash( char **lasts )
681 const char *str = strtok_r( NULL, str_delimiters, lasts );
687 str_error = str_bad_cmdline;
691 if ( ! strcmp( str, "learn" ) )
693 str = strtok_r( NULL, str_delimiters, lasts );
694 if ( str != NULL && ! strcmp( str, str_on ) )
696 return hash_learn_on();
698 else if ( str != NULL && ! strcmp( str, str_off ) )
700 return hash_learn_off();
702 #if ! defined(MINIMUM)
703 else if ( str != NULL && ! strcmp( str, "create" ) )
705 return hash_learn_create();
709 str_error = str_bad_cmdline;
714 l = strtol( str, &ptr, 0 );
715 if ( ptr == str || l == LONG_MAX || l < 1 || l > 31 )
717 str_error = str_bad_cmdline;
721 AbortDifficultCommand;
723 log2_ntrans_table = (int)l;
724 memory_free( (void *)ptrans_table_orig );
725 return ini_trans_table();
730 cmd_limit( char **lasts )
732 const char *str = strtok_r( NULL, str_delimiters, lasts );
738 str_error = str_bad_cmdline;
742 AbortDifficultCommand;
744 if ( ! strcmp( str, "depth" ) )
746 str = strtok_r( NULL, str_delimiters, lasts );
749 str_error = str_bad_cmdline;
752 l1 = strtol( str, &ptr, 0 );
753 if ( ptr == str || l1 == LONG_MAX || l1 < 1 )
755 str_error = str_bad_cmdline;
758 sec_limit_up = UINT_MAX;
759 node_limit = UINT64_MAX;
760 depth_limit = (int)l1;
762 else if ( ! strcmp( str, "nodes" ) )
764 str = strtok_r( NULL, str_delimiters, lasts );
767 str_error = str_bad_cmdline;
770 l1 = strtol( str, &ptr, 0 );
771 if ( ptr == str || l1 == LONG_MAX || l1 < 1 )
773 str_error = str_bad_cmdline;
776 sec_limit_up = UINT_MAX;
777 depth_limit = PLY_MAX;
778 node_limit = (uint64_t)l1;
780 else if ( ! strcmp( str, "time" ) )
782 str = strtok_r( NULL, str_delimiters, lasts );
785 str_error = str_bad_cmdline;
789 if ( ! strcmp( str, "extendable" ) )
791 game_status |= flag_time_extendable;
793 else if ( ! strcmp( str, "strict" ) )
795 game_status &= ~flag_time_extendable;
798 l1 = strtol( str, &ptr, 0 );
799 if ( ptr == str || l1 == LONG_MAX || l1 < 0 )
801 str_error = str_bad_cmdline;
805 str = strtok_r( NULL, str_delimiters, lasts );
808 str_error = str_bad_cmdline;
811 l2 = strtol( str, &ptr, 0 );
812 if ( ptr == str || l2 == LONG_MAX || l2 < 0 )
814 str_error = str_bad_cmdline;
818 str = strtok_r( NULL, str_delimiters, lasts );
819 if ( ! str ) { l3 = -1; }
821 l3 = strtol( str, &ptr, 0 );
822 if ( ptr == str || l3 >= PLY_MAX || l3 < -1 )
824 str_error = str_bad_cmdline;
829 if ( ! ( l1 | l2 ) ) { l2 = 1; }
831 depth_limit = PLY_MAX;
832 node_limit = UINT64_MAX;
833 sec_limit = (unsigned int)l1 * 60U;
834 sec_limit_up = (unsigned int)l2;
835 if ( l3 == -1 ) { sec_limit_depth = UINT_MAX; }
836 else { sec_limit_depth = (unsigned int)l3; }
840 str_error = str_bad_cmdline;
849 cmd_read( tree_t * restrict ptree, char **lasts )
851 const char *str1 = strtok_r( NULL, str_delimiters, lasts );
852 const char *str2 = strtok_r( NULL, str_delimiters, lasts );
853 const char *str3 = strtok_r( NULL, str_delimiters, lasts );
855 FILE *pf_src, *pf_dest;
856 char str_file[SIZE_FILENAME];
862 flag = flag_history | flag_rep | flag_detect_hang | flag_rejections;
868 str_error = str_bad_cmdline;
874 if ( ! strcmp( str2, "t" ) ) { flag |= flag_time; }
875 else if ( strcmp( str2, "nil" ) )
877 str_error = str_bad_cmdline;
884 l = strtol( str3, &ptr, 0 );
885 if ( ptr == str3 || l == LONG_MAX || l < 1 )
887 str_error = str_bad_cmdline;
890 moves = (unsigned int)l - 1U;
893 AbortDifficultCommand;
895 if ( ! strcmp( str1, "." ) )
897 str_tmp = "game.cs_";
899 #if defined(NO_LOGGING)
900 strncpy( str_file, "game.csa", SIZE_FILENAME-1 );
902 snprintf( str_file, SIZE_FILENAME, "%s/game%03d.csa",
903 str_dir_logs, irecord_game );
905 pf_dest = file_open( str_tmp, "w" );
906 if ( pf_dest == NULL ) { return -2; }
908 pf_src = file_open( str_file, "r" );
909 if ( pf_src == NULL )
911 file_close( pf_dest );
915 while ( ( c = getc(pf_src) ) != EOF ) { putc( c, pf_dest ); }
917 iret = file_close( pf_src );
920 file_close( pf_dest );
924 iret = file_close( pf_dest );
925 if ( iret < 0 ) { return iret; }
931 iret = read_record( ptree, str1, moves, flag );
932 if ( iret < 0 ) { return iret; }
934 iret = get_elapsed( &time_turn_start );
935 if ( iret < 0 ) { return iret; }
937 if ( str_tmp && remove( str_tmp ) )
939 out_warning( "remove() failed." );
948 cmd_resign( tree_t * restrict ptree, char **lasts )
950 const char *str = strtok_r( NULL, str_delimiters, lasts );
954 if ( str == NULL || *str == 'T' )
956 AbortDifficultCommand;
958 if ( game_status & mask_game_end ) { return 1; }
960 #if defined(DEKUNOBOU)
961 if ( dek_ngame && record_game.moves < 2 )
963 str_error = "ignore resignation";
968 game_status |= flag_resigned;
969 renovate_time( root_turn );
970 out_CSA( ptree, &record_game, MOVE_RESIGN );
973 l = strtol( str, &ptr, 0 );
974 if ( ptr == str || l == LONG_MAX || l < MT_CAP_PAWN )
976 str_error = str_bad_cmdline;
979 resign_threshold = (int)l;
987 cmd_move( tree_t * restrict ptree, char **lasts )
989 const char *str = strtok_r( NULL, str_delimiters, lasts );
993 if ( game_status & mask_game_end )
995 str_error = str_game_ended;
999 AbortDifficultCommand;
1003 iret = get_elapsed( &time_turn_start );
1004 if ( iret < 0 ) { return iret; }
1006 iret = com_turn_start( ptree, 0 );
1007 if ( iret < 0 ) { return iret; }
1009 else if ( ! strcmp( str, "restraint" ) )
1011 iret = get_elapsed( &time_turn_start );
1012 if ( iret < 0 ) { return iret; }
1014 iret = com_turn_start( ptree, flag_refer_rest );
1015 if ( iret < 0 ) { return iret; }
1019 iret = interpret_CSA_move( ptree, &move, str );
1020 if ( iret < 0 ) { return iret; }
1022 iret = get_elapsed( &time_turn_start );
1023 if ( iret < 0 ) { return iret; }
1025 #if defined(MNJ_LAN)
1026 if ( sckt_mnj != SCKT_NULL )
1028 const char *str2 = strtok_r( NULL, str_delimiters, lasts );
1031 if ( str2 ) { l = strtol( str2, &ptr, 0 ); }
1032 if ( ! str2 || ptr == str || l == LONG_MAX || l < 1 )
1034 str_error = str_bad_cmdline;
1037 mnj_posi_id = (int)l;
1038 mnj_move_last = move;
1042 iret = make_move_root( ptree, move, ( flag_history | flag_time | flag_rep
1044 | flag_rejections ) );
1045 if ( iret < 0 ) { return iret; }
1053 cmd_new( tree_t * restrict ptree, char **lasts )
1055 const char *str1 = strtok_r( NULL, str_delimiters, lasts );
1056 const char *str2 = strtok_r( NULL, str_delimiters, lasts );
1057 const min_posi_t *pmp;
1058 min_posi_t min_posi;
1061 AbortDifficultCommand;
1065 memset( &min_posi.asquare, empty, nsquare );
1066 min_posi.hand_black = min_posi.hand_white = 0;
1067 iret = read_board_rep1( str1, &min_posi );
1068 if ( iret < 0 ) { return iret; }
1072 if ( ! strcmp( str2, "-" ) ) { min_posi.turn_to_move = white; }
1073 else if ( ! strcmp( str2, "+" ) ) { min_posi.turn_to_move = black; }
1075 str_error = str_bad_cmdline;
1079 else { min_posi.turn_to_move = black; }
1083 else { pmp = &min_posi_no_handicap; }
1085 iret = ini_game( ptree, pmp, flag_history, NULL, NULL );
1086 if ( iret < 0 ) { return iret; }
1088 return get_elapsed( &time_turn_start );
1093 cmd_problem( tree_t * restrict ptree, char **lasts )
1095 const char *str = strtok_r( NULL, str_delimiters, lasts );
1098 unsigned int nposition;
1103 l = strtol( str, &ptr, 0 );
1104 if ( ptr == str || l == LONG_MAX || l < 1 )
1106 str_error = str_bad_cmdline;
1109 nposition = (unsigned int)l;
1111 else { nposition = UINT_MAX; }
1113 AbortDifficultCommand;
1115 iret = record_open( &record_problems, "problem.csa", mode_read, NULL, NULL );
1116 if ( iret < 0 ) { return iret; }
1118 iret = solve_problems( ptree, nposition );
1121 record_close( &record_problems );
1125 iret = record_close( &record_problems );
1126 if ( iret < 0 ) { return iret; }
1128 iret = ini_game( ptree, &min_posi_no_handicap, flag_history, NULL, NULL );
1129 if ( iret < 0 ) { return iret; }
1131 return get_elapsed( &time_turn_start );
1138 game_status |= flag_quit;
1146 if ( game_status & ( flag_pondering | flag_puzzling ) )
1148 game_status |= flag_quit_ponder;
1152 game_status |= flag_suspend;
1158 cmd_time( char **lasts )
1160 const char *str = strtok_r( NULL, str_delimiters, lasts );
1165 str_error = str_bad_cmdline;
1168 else if ( ! strcmp( str, "response" ) )
1171 str = strtok_r( NULL, str_delimiters, lasts );
1174 str_error = str_bad_cmdline;
1177 l = strtol( str, &ptr, 0 );
1178 if ( ptr == str || l == LONG_MAX || l < 0 || l > 1000 )
1180 str_error = str_bad_cmdline;
1183 time_response = (unsigned int)l;
1186 else if ( ! strcmp( str, "remain" ) )
1190 str = strtok_r( NULL, str_delimiters, lasts );
1193 str_error = str_bad_cmdline;
1196 l1 = strtol( str, &ptr, 0 );
1197 if ( ptr == str || l1 == LONG_MAX || l1 < 0 )
1199 str_error = str_bad_cmdline;
1203 str = strtok_r( NULL, str_delimiters, lasts );
1206 str_error = str_bad_cmdline;
1209 l2 = strtol( str, &ptr, 0 );
1210 if ( ptr == str || l2 == LONG_MAX || l2 < 0 )
1212 str_error = str_bad_cmdline;
1216 if ( sec_limit_up == UINT_MAX )
1218 str_error = str_bad_cmdline;
1222 return reset_time( (unsigned int)l1, (unsigned int)l2 );
1225 str_error = str_bad_cmdline;
1230 #if !defined(MINIMUM)
1231 /* learn (ini|no-ini) steps games iterations tlp1 tlp2 */
1233 cmd_learn( tree_t * restrict ptree, char **lasts )
1235 const char *str1 = strtok_r( NULL, str_delimiters, lasts );
1236 const char *str2 = strtok_r( NULL, str_delimiters, lasts );
1237 const char *str3 = strtok_r( NULL, str_delimiters, lasts );
1238 const char *str4 = strtok_r( NULL, str_delimiters, lasts );
1240 const char *str5 = strtok_r( NULL, str_delimiters, lasts );
1241 const char *str6 = strtok_r( NULL, str_delimiters, lasts );
1245 unsigned int max_games;
1246 int is_ini, nsteps, max_iterations, nworker1, nworker2, iret;
1250 str_error = str_bad_cmdline;
1253 if ( ! strcmp( str1, "ini" ) ) { is_ini = 1; }
1254 else if ( ! strcmp( str1, "no-ini" ) ) { is_ini = 0; }
1256 str_error = str_bad_cmdline;
1260 max_games = UINT_MAX;
1261 max_iterations = INT_MAX;
1262 nworker1 = nworker2 = nsteps = 1;
1266 l = strtol( str2, &ptr, 0 );
1267 if ( ptr == str2 || l == LONG_MAX || l < 1 )
1269 str_error = str_bad_cmdline;
1277 l = strtol( str3, &ptr, 0 );
1278 if ( ptr == str3 || l == LONG_MAX || l == LONG_MIN )
1280 str_error = str_bad_cmdline;
1283 if ( l > 0 ) { max_games = (unsigned int)l; }
1288 l = strtol( str4, &ptr, 0 );
1289 if ( ptr == str4 || l == LONG_MAX || l == LONG_MIN )
1291 str_error = str_bad_cmdline;
1294 if ( l > 0 ) { max_iterations = (int)l; }
1300 l = strtol( str5, &ptr, 0 );
1301 if ( ptr == str5 || l > TLP_MAX_THREADS || l < 1 )
1303 str_error = str_bad_cmdline;
1311 l = strtol( str6, &ptr, 0 );
1312 if ( ptr == str6 || l > TLP_MAX_THREADS || l < 1 )
1314 str_error = str_bad_cmdline;
1321 AbortDifficultCommand;
1323 log2_ntrans_table = 12;
1325 memory_free( (void *)ptrans_table_orig );
1327 iret = ini_trans_table();
1328 if ( iret < 0 ) { return iret; }
1330 iret = learn( ptree, is_ini, nsteps, max_games, max_iterations,
1331 nworker1, nworker2 );
1332 if ( iret < 0 ) { return -1; }
1334 iret = ini_game( ptree, &min_posi_no_handicap, flag_history, NULL, NULL );
1335 if ( iret < 0 ) { return -1; }
1337 iret = get_elapsed( &time_turn_start );
1338 if ( iret < 0 ) { return iret; }
1342 #endif /* MINIMUM */
1347 cmd_mpv( char **lasts )
1349 const char *str = strtok_r( NULL, str_delimiters, lasts );
1355 str_error = str_bad_cmdline;
1358 else if ( ! strcmp( str, "num" ) )
1360 str = strtok_r( NULL, str_delimiters, lasts );
1363 str_error = str_bad_cmdline;
1366 l = strtol( str, &ptr, 0 );
1367 if ( ptr == str || l == LONG_MAX || l < 1 || l > MPV_MAX_PV )
1369 str_error = str_bad_cmdline;
1373 AbortDifficultCommand;
1379 else if ( ! strcmp( str, "width" ) )
1381 str = strtok_r( NULL, str_delimiters, lasts );
1384 str_error = str_bad_cmdline;
1387 l = strtol( str, &ptr, 0 );
1388 if ( ptr == str || l == LONG_MAX || l < MT_CAP_PAWN )
1390 str_error = str_bad_cmdline;
1394 AbortDifficultCommand;
1401 str_error = str_bad_cmdline;
1409 cmd_thread( char **lasts )
1411 const char *str = strtok_r( NULL, str_delimiters, lasts );
1415 str_error = str_bad_cmdline;
1418 else if ( ! strcmp( str, "num" ) )
1423 str = strtok_r( NULL, str_delimiters, lasts );
1426 str_error = str_bad_cmdline;
1429 l = strtol( str, &ptr, 0 );
1430 if ( ptr == str || l == LONG_MAX || l < 1 || l > TLP_MAX_THREADS )
1432 str_error = str_bad_cmdline;
1440 if ( game_status & ( flag_thinking | flag_pondering | flag_puzzling ) )
1447 str_error = str_bad_cmdline;
1453 #if defined(CSA_LAN)
1455 cmd_connect( tree_t * restrict ptree, char **lasts )
1461 str = strtok_r( NULL, str_delimiters, lasts );
1462 if ( ! str || ! strcmp( str, "." ) ) { str = "gserver.computer-shogi.org"; }
1463 strncpy( client_str_addr, str, 255 );
1464 client_str_addr[255] = '\0';
1466 str = strtok_r( NULL, str_delimiters, lasts );
1467 if ( ! str || ! strcmp( str, "." ) ) { str = "4081"; }
1468 client_port = strtol( str, &ptr, 0 );
1469 if ( ptr == str || client_port == LONG_MAX || client_port < 0
1470 || client_port > USHRT_MAX )
1472 str_error = str_bad_cmdline;
1476 str = strtok_r( NULL, str_delimiters, lasts );
1477 if ( ! str || ! strcmp( str, "." ) ) { str = "bonanza_test"; }
1478 strncpy( client_str_id, str, 255 );
1479 client_str_id[255] = '\0';
1481 str = strtok_r( NULL, " \t", lasts );
1482 if ( ! str || ! strcmp( str, "." ) ) { str = "bonanza_test"; }
1483 strncpy( client_str_pwd, str, 255 );
1484 client_str_pwd[255] = '\0';
1486 str = strtok_r( NULL, str_delimiters, lasts );
1487 if ( ! str || ! strcmp( str, "." ) ) { client_max_game = INT_MAX; }
1489 max_games = strtol( str, &ptr, 0 );
1490 if ( ptr == str || max_games == LONG_MAX || max_games < 1 )
1492 str_error = str_bad_cmdline;
1495 client_max_game = max_games;
1498 AbortDifficultCommand;
1502 return client_next_game( ptree, client_str_addr, (int)client_port );
1507 #if defined(MNJ_LAN)
1509 cmd_mnj( tree_t * restrict ptree, char **lasts )
1511 char client_str_addr[256];
1512 char client_str_id[256];
1520 str = strtok_r( NULL, str_delimiters, lasts );
1523 str_error = str_bad_cmdline;
1526 l = strtol( str, &ptr, 0 );
1527 if ( ptr == str || l == LONG_MAX || l < 0 )
1529 str_error = str_bad_cmdline;
1535 str = strtok_r( NULL, str_delimiters, lasts );
1538 str_error = str_bad_cmdline;
1541 l = strtol( str, &ptr, 0 );
1542 if ( ptr == str || l == LONG_MAX || l < 0 )
1544 str_error = str_bad_cmdline;
1547 seed = (unsigned int)l;
1550 str = strtok_r( NULL, str_delimiters, lasts );
1551 if ( ! str || ! strcmp( str, "." ) ) { str = "localhost"; }
1552 strncpy( client_str_addr, str, 255 );
1553 client_str_addr[255] = '\0';
1556 str = strtok_r( NULL, str_delimiters, lasts );
1557 if ( ! str || ! strcmp( str, "." ) ) { str = "4082"; }
1558 l = strtol( str, &ptr, 0 );
1559 if ( ptr == str || l == LONG_MAX || l < 0 || l > USHRT_MAX )
1561 str_error = str_bad_cmdline;
1564 client_port = (int)l;
1567 str = strtok_r( NULL, str_delimiters, lasts );
1568 if ( ! str || ! strcmp( str, "." ) ) { str = "bonanza1"; }
1569 strncpy( client_str_id, str, 255 );
1570 client_str_id[255] = '\0';
1572 AbortDifficultCommand;
1574 resign_threshold = 65535;
1575 game_status |= ( flag_noponder | flag_noprompt );
1576 if ( mnj_reset_tbl( sd, seed ) < 0 ) { return -1; }
1578 sckt_mnj = sckt_connect( client_str_addr, (int)client_port );
1579 if ( sckt_mnj == SCKT_NULL ) { return -2; }
1581 str_buffer_cmdline[0] = '\0';
1583 Out( "Sending my name %s", client_str_id );
1584 sckt_out( sckt_mnj, "%s\n", client_str_id );
1586 return analyze( ptree );
1591 #if defined(DEKUNOBOU)
1594 cmd_dek( char **lasts )
1596 const char *str = strtok_r( NULL, str_delimiters, lasts );
1603 str_error = str_bad_cmdline;
1606 strncpy( str_message, str, SIZE_MESSAGE-1 );
1607 str_message[SIZE_MESSAGE-1] = '\0';
1608 dek_ul_addr = inet_addr( str );
1610 str = strtok_r( NULL, str_delimiters, lasts );
1613 str_error = str_bad_cmdline;
1616 l1 = strtol( str, &ptr, 0 );
1617 if ( ptr == str || l1 == LONG_MAX || l1 < 0 || l1 > USHRT_MAX )
1619 str_error = str_bad_cmdline;
1623 str = strtok_r( NULL, str_delimiters, lasts );
1626 str_error = str_bad_cmdline;
1629 l2 = strtol( str, &ptr, 0 );
1630 if ( ptr == str || l2 == LONG_MAX || l2 < 0 || l2 > USHRT_MAX )
1632 str_error = str_bad_cmdline;
1636 AbortDifficultCommand;
1638 iret = dek_start( str_message, (int)l1, (int)l2 );
1639 if ( iret < 0 ) { return iret; }
1641 Out( "\n- in communication with Dekunobou...\n" );
1643 str_buffer_cmdline[0] = '\0';
1648 game_status |= flag_resigned;