Как подключить UCI?

Вопрос так был задан, что-бы получить ответ на том же уровне. Полагаю, что если портов в/в целый диапазон, который слушает и оболочка и движек, то это не совсем рационально. Система пропускает это "общение" мимо "ушей" и не подключает соответствующие драйвера, как я понимаю. Я не бравирую тем что не знаю С, но считаю что интерфейс к своему приложению на уровне протокола типа UCI смогу изготовит, для чего подобный протокол и создан. IMHO.

P.S. за ссылку на протокол xboard, так же, спасибо. Раньше UCI считался экзотикой...теперь он более распространен, как оказалось.

Да, это ветка "Оболочка" http://kasparovchess.crestbook.com/viewtopic.php?id=1122
там и ссылка на MSDN где описан перехват потоков в/в...следуя вашему совету, буду учиться читать C

Вы сказали , что реализовали протокол UCI на делфи.
Не могли бы вы показать, как подключиться к Winboard, для обмена с этой оболочкой сообщениями.
Заранее благодарю.

У меня получилось)))
И к winboard и к Arena

Code:

// main UCI loop
procedure uci_loop();
var
Input_char:Array[0..2000] of char;
Input_str:string;
begin
  Writeln('id name BBC_Alex');
  Writeln('id name alexlaw');
  Writeln('uciok');
  // main loop
  while true do begin
  // reset user /GUI input
  FillChar(Input_char, SizeOf(Input_char), 0);
  // make sure output reaches the GUI
  Flush(Output);
  Readln(Input_str);
  if Input_str=#13#10 then continue else
  // parse UCI "isready" command
  if pos('isready',Input_str)>0 then  begin
  Writeln('readyok');
  continue;
  end else
  // parse UCI "position" command
  if pos('position',Input_str)>0 then  begin
  // call parse position function
  parse_position(Input_str);
  end else
  // parse UCI "ucinewgame" command
  if pos('ucinewgame',Input_str)>0 then  begin
  // call parse position function
  parse_position('position startpos');
  end else
  // call parse go function
  if pos('go',Input_str)>0 then  begin
  parse_go(Input_str);
  end else
  // parse UCI "quit" command
  if pos('quit',Input_str)>0 then begin
  // quit from the chess engine program execution
  break;
  end else
  // parse UCI "uci" command
  if pos('uci',Input_str)>0 then begin
  // print engine info
  Writeln('id name BBC_Alex');
  Writeln('id name alexlaw');;
  Writeln('uciok');
  end;
  end;
end;

Внес изменения

Code:

// main UCI loop
procedure uci_loop();
var
Input_char:Array[0..2000] of char;
Input_str:widestring;
begin
  Writeln('id name BBC_Alex');
  Writeln('id name alexlaw');
  Writeln('uciok');
  // main loop
  while true do begin
  // reset user /GUI input
  FillChar(Input_char, SizeOf(Input_char), 0);
  FillChar(Input_str, SizeOf(Input_str), 0);

Иначе при игре сам с собой в турнире Арены, движок падал на 13 ходу.
Теперь вроде все ОК

Вот партия

Получилось прослушать консоль во время анализа
Может кому пригодится

Code:

// main UCI loop
procedure uci_loop();
var
Input_str:AnsiString;
begin
  Writeln('id name BBC_Alex');
  Writeln('id name alexlaw');
  Writeln('uciok');
  // main loop
  while true do begin
  Input_str:='';
  // reset user /GUI input
  //FillChar(Input_str, SizeOf(Input_str), 0);
  Writeln(Format('Memory=%u',[GetMemoryUsed]));
  // make sure output reaches the GUI
  Flush(Output);
  Readln(Input_str);
  if Input_str=#13#10 then continue else
  // parse UCI "isready" command
  if pos('isready',Input_str)>0 then  begin
  Writeln('readyok');
  continue;
  end else
  // parse UCI "position" command
  if pos('position',Input_str)>0 then  begin
  // call parse position function
  parse_position(Input_str);
  end else
  // parse UCI "ucinewgame" command
  if pos('ucinewgame',Input_str)>0 then  begin
  // call parse position function
  parse_position('position startpos');
  end else
  // call parse go function
  if pos('go',Input_str)>0 then  begin
  parse_go(Input_str);
  end else
  // parse UCI "quit" command
  if pos('quit',Input_str)>0 then begin
  // quit from the chess engine program execution
  break;
  end else
  // parse UCI "uci" command
  if pos('uci',Input_str)>0 then begin
  // print engine info
  Writeln('id name BBC_Alex');
  Writeln('id name alexlaw');;
  Writeln('uciok');
  end;
  end;
end;

Code:

{
 Функция для "прослушивания" ввода графического интерфейса пользователя
 во время поиска.
 Он ожидает ввода пользователем из STDIN.
 Зависит от операционной системы.
}

 function InputWaiting(): boolean;
var
  ReadFds: TFDSet;
  TimeVal: TTimeVal;
  InputHandle: THandle;
  BytesAvail: DWORD;
begin
  FD_ZERO(ReadFds);
  InputHandle := GetStdHandle(STD_INPUT_HANDLE);
  FD_SET(InputHandle, ReadFds);
  TimeVal.tv_sec := 0;
  TimeVal.tv_usec := 0;
  if PeekNamedPipe(InputHandle, nil, 0, nil, @BytesAvail, nil) then
  Result := (BytesAvail > 0);
end;
var
Quit_:boolean;
// read GUI/user input
procedure read_input;
var
  Bytes: DWORD;
  Input: array[0..255] of Char;
  EndChar: PChar;
begin
  repeat
  Bytes := 0;
  if not ReadFile(GetStdHandle(STD_INPUT_HANDLE), Input, SizeOf(Input), Bytes, nil) then
  Break;
  until Bytes > 0;
  EndChar := StrScan(Input, #10);
  if Assigned(EndChar) then
  EndChar^ := #0;
  if StrLen(Input) > 0 then
  begin
  if StrLIComp(Input, 'quit', 4) = 0 then begin
  Writeln('Quit');
  Quit_ := True;
  end
  else if StrLIComp(Input, 'stop', 4) = 0 then begin
  Writeln('Stop');
  Quit_ := True;
  end;
  end;
end;
// a bridge function to interact between search and GUI input
procedure communicate();
begin
  if InputWaiting then read_input();
end;

195938>1:go depth 10
195938<1:8 r n b q k b n r
195938<1:7 # # # # . # # #
195953<1:6 . . . . . . . .
195953<1:5 . . . . . . . .
195953<1:4 . . . # P P . .
195985<1:3 . . . . . . . .
195985<1:2 P P P . . . P P
196000<1:1 R N B Q K B N R
196000<1: a b c d e f g h
196000<1:side = black
196016<1:castle = KQkq
196016<1:enpassant = f3
196016<1:Memory=1840
196031<1:ok depth:10
196031<1:info score cp 115 depth 1 nodes 65 pv b8c6
196031<1:info score cp 95 depth 2 nodes 538 pv f8b4 c2c3 d8h4
196110<1:info score cp 115 depth 3 nodes 1722 pv b8c6 g1f3 g8f6
196391<1:info score cp 105 depth 4 nodes 4398 pv b8c6 g1f3 g8f6 b1d2
197750<1:info score cp 105 depth 5 nodes 14378 pv b8c6 c2c3 d7d5 g1f3 d5e4
199594>1:quit
200078<1:info score cp 85 depth 6 nodes 66015 pv b8c6 g1f3 g8f6 f3d4 f6e4 b1c3
200078<1:Quit
204297>1:stop
208500<1:info score cp 95 depth 7 nodes 161764 pv b8c6 g1f3 d7d5 e4d5 d8d5 b1c3 f8b4
208500<1:Stop
230360<1:info score cp 100 depth 8 nodes 484076 pv b8c6 g1f3 d7d5 f3d4 d5e4 d4c6 d8d1 e1d1 b7c6
347406<1:info score cp 105 depth 9 nodes 1364698 pv b8c6 g1f3 d7d5 f3d4 d5e4 d4c6 d8d1 e1d1 c8g4 f1e2 g4e2
347406<1:info score cp 100 depth 10 nodes 5794472 pv c7c5 c2c3 b8c6 g1f3 d7d5 e4d5 d8d5 c3d4 d5e4 e1f2 c5d4
347406<1:bestmove c7c5
347422*1*Found move:c7-c5
347500<1:Memory=1840