-/*\r
- * UCI support thru Polyglot\r
- *\r
- * Author: Alessandro Scotti (Jan 2006)\r
- *\r
- * ------------------------------------------------------------------------\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License\r
- * along with this program; if not, write to the Free Software\r
- * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.\r
- * ------------------------------------------------------------------------\r
- */\r
-#include "config.h"\r
-\r
-#include <windows.h> /* required for all Windows applications */\r
-\r
-#include <stdio.h>\r
-#include <stdlib.h>\r
-#include <malloc.h>\r
-\r
-#include "common.h"\r
-#include "winboard.h"\r
-#include "frontend.h"\r
-#include "backend.h"\r
-\r
-#define INIFILE_PREFIX "polyglot_"\r
-#define INIFILE_SUFFIX_1ST "1st"\r
-#define INIFILE_SUFFIX_2ND "2nd"\r
-#define INIFILE_EXT ".ini"\r
-\r
-static const char * GetIniFilename( ChessProgramState * cps )\r
-{\r
- return cps == &first ? INIFILE_PREFIX INIFILE_SUFFIX_1ST INIFILE_EXT : INIFILE_PREFIX INIFILE_SUFFIX_2ND INIFILE_EXT;\r
- }\r
-\r
-void InitEngineUCI( const char * iniDir, ChessProgramState * cps )\r
-{\r
- if( cps->isUCI ) {\r
- const char * iniFileName = GetIniFilename( cps );\r
- char polyglotIniFile[ MAX_PATH ];\r
- FILE * f;\r
-\r
- /* Build name of initialization file */\r
- if( strchr( iniDir, ' ' ) != NULL ) {\r
- char iniDirShort[ MAX_PATH ];\r
-\r
- GetShortPathName( iniDir, iniDirShort, sizeof(iniDirShort) );\r
-\r
- strcpy( polyglotIniFile, iniDirShort );\r
- }\r
- else {\r
- strcpy( polyglotIniFile, iniDir );\r
- }\r
- \r
- strcat( polyglotIniFile, "\\" );\r
- strcat( polyglotIniFile, iniFileName );\r
-\r
- /* Create initialization file */\r
- f = fopen( polyglotIniFile, "w" );\r
-\r
- if( f != NULL ) {\r
- fprintf( f, "[Polyglot]\n" );\r
-\r
- if( cps->dir != 0 && strlen(cps->dir) > 0 ) {\r
- fprintf( f, "EngineDir = %s\n", cps->dir );\r
- }\r
-\r
- if( cps->program != 0 && strlen(cps->program) > 0 ) {\r
- fprintf( f, "EngineCommand = %s\n", cps->program );\r
- }\r
-\r
- fprintf( f, "Book = %s\n", appData.usePolyglotBook ? "true" : "false" );\r
- fprintf( f, "BookFile = %s\n", appData.polyglotBook );\r
- \r
- fprintf( f, "[Engine]\n" );\r
- fprintf( f, "Hash = %d\n", appData.defaultHashSize );\r
-\r
- fprintf( f, "NalimovPath = %s\n", appData.defaultPathEGTB );\r
- fprintf( f, "NalimovCache = %d\n", appData.defaultCacheSizeEGTB );\r
-\r
- fprintf( f, "OwnBook = %s\n", cps->hasOwnBookUCI ? "true" : "false" );\r
-\r
- fclose( f );\r
-\r
- /* Replace program with properly configured Polyglot */\r
- cps->dir = appData.polyglotDir;\r
- cps->program = (char *) malloc( strlen(polyglotIniFile) + 32 );\r
- strcpy( cps->program, "polyglot " );\r
- strcat( cps->program, polyglotIniFile );\r
- }\r
- }\r
-}\r
+/*
+ * UCI support thru Polyglot
+ *
+ * Author: Alessandro Scotti (Jan 2006)
+ *
+ * Copyright 2006 Alessandro Scotti
+ *
+ * ------------------------------------------------------------------------
+ *
+ * GNU XBoard is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or (at
+ * your option) any later version.
+ *
+ * GNU XBoard is distributed in the hope that it will be useful, but
+ * WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program. If not, see http://www.gnu.org/licenses/.
+ *
+ * ------------------------------------------------------------------------
+ */
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+#if HAVE_MALLOC_H
+ #include <malloc.h>
+#endif
+
+#include "common.h"
+#include "backend.h"
+Boolean GetArgValue(char *a);
+
+void InitEngineUCI( const char * iniDir, ChessProgramState * cps )
+{ // replace engine command line by adapter command with expanded meta-symbols
+ if( cps->isUCI ) {
+ char *p, *q;
+ char polyglotCommand[MSG_SIZ];
+
+ p = appData.adapterCommand;
+ q = polyglotCommand;
+ while(*p) {
+ if(*p == '\\') p++; else
+ if(*p == '%') { // substitute marker
+ char argName[MSG_SIZ], buf[MSG_SIZ], *s = buf;
+ if(*++p == '%') { // second %, expand as f or s in option name (e.g. %%cp -> fcp)
+ *s++ = cps == &first ? 'f' : 's';
+ p++;
+ }
+ while(*p >= '0' && *p) *s++ = *p++; // copy option name
+ *s = NULLCHAR;
+ if(cps == &second) { // change options for first into those for second engine
+ if(strstr(buf, "first") == buf) sprintf(argName, "second%s", buf+5); else
+ if(buf[0] == 'f') sprintf(argName, "s%s", buf+1); else
+ safeStrCpy(argName, buf, sizeof(argName)/sizeof(argName[0]));
+ } else safeStrCpy(argName, buf, sizeof(argName)/sizeof(argName[0]));
+ if(GetArgValue(argName)) { // look up value of option with this name
+ s = argName;
+ while(*s) *q++ = *s++;
+ } else DisplayFatalError("Bad adapter command", 0, 1);
+ continue;
+ }
+ if(*p) *q++ = *p++;
+ }
+ *q = NULLCHAR;
+ cps->program = StrSave(polyglotCommand);
+ cps->dir = appData.polyglotDir;
+ }
+}