book.c

   1 /*
   2  * book.c -- code for probing Polyglot opening books
   3  *
   4  * This code was first released in the public domain by Michel Van den Bergh.
   5  * The array Random64 is taken from the Polyglot source code.
   6  * I am pretty sure that a table of random numbers is never protected
   7  * by copyright.
   8  *
   9  * It s adapted by H.G. Muller for working with xboard / Winboard
  10  *
  11  * The following terms apply to the enhanced version of XBoard distributed
  12  * by the Free Software Foundation:
  13  * ------------------------------------------------------------------------
  14  *
  15  * GNU XBoard is free software: you can redistribute it and/or modify
  16  * it under the terms of the GNU General Public License as published by
  17  * the Free Software Foundation, either version 3 of the License, or (at
  18  * your option) any later version.
  19  *
  20  * GNU XBoard is distributed in the hope that it will be useful, but
  21  * WITHOUT ANY WARRANTY; without even the implied warranty of
  22  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
  23  * General Public License for more details.
  24  *
  25  * You should have received a copy of the GNU General Public License
  26  * along with this program. If not, see http://www.gnu.org/licenses/.  *
  27  *
  28  * ------------------------------------------------------------------------
  29  */
  30
  31 #include <stdio.h>
  32 #include <string.h>
  33 #include <time.h>
  34 #include <stdlib.h>
  35 #include <math.h>
  36
  37 #include "common.h"
  38 #include "backend.h"
  39 #include "moves.h"
  40
  41 #ifdef _MSC_VER
  42   typedef unsigned __int64 uint64;
  43 #else
  44   typedef unsigned long long int uint64;
  45 #endif
  46
  47
  48 #ifdef _MSC_VER
  49 #  define U64(u) (u##ui64)
  50 #else
  51 #  define U64(u) (u##ULL)
  52 #endif
  53
  54 typedef unsigned char uint8;
  55 typedef unsigned short uint16;
  56 typedef unsigned int uint32;
  57
  58 typedef struct {
  59     uint64 key;
  60     uint16 move;
  61     uint16 weight;
  62     uint16 learnPoints;
  63     uint16 learnCount;
  64 } entry_t;
  65
  66 entry_t entry_none = {
  67     0, 0, 0, 0
  68 };
  69
  70 char *promote_pieces=" nbrqac=";
  71
  72 uint64 Random64[781] = {
  73    U64(0x9D39247E33776D41), U64(0x2AF7398005AAA5C7), U64(0x44DB015024623547), U64(0x9C15F73E62A76AE2),
  74    U64(0x75834465489C0C89), U64(0x3290AC3A203001BF), U64(0x0FBBAD1F61042279), U64(0xE83A908FF2FB60CA),
  75    U64(0x0D7E765D58755C10), U64(0x1A083822CEAFE02D), U64(0x9605D5F0E25EC3B0), U64(0xD021FF5CD13A2ED5),
  76    U64(0x40BDF15D4A672E32), U64(0x011355146FD56395), U64(0x5DB4832046F3D9E5), U64(0x239F8B2D7FF719CC),
  77    U64(0x05D1A1AE85B49AA1), U64(0x679F848F6E8FC971), U64(0x7449BBFF801FED0B), U64(0x7D11CDB1C3B7ADF0),
  78    U64(0x82C7709E781EB7CC), U64(0xF3218F1C9510786C), U64(0x331478F3AF51BBE6), U64(0x4BB38DE5E7219443),
  79    U64(0xAA649C6EBCFD50FC), U64(0x8DBD98A352AFD40B), U64(0x87D2074B81D79217), U64(0x19F3C751D3E92AE1),
  80    U64(0xB4AB30F062B19ABF), U64(0x7B0500AC42047AC4), U64(0xC9452CA81A09D85D), U64(0x24AA6C514DA27500),
  81    U64(0x4C9F34427501B447), U64(0x14A68FD73C910841), U64(0xA71B9B83461CBD93), U64(0x03488B95B0F1850F),
  82    U64(0x637B2B34FF93C040), U64(0x09D1BC9A3DD90A94), U64(0x3575668334A1DD3B), U64(0x735E2B97A4C45A23),
  83    U64(0x18727070F1BD400B), U64(0x1FCBACD259BF02E7), U64(0xD310A7C2CE9B6555), U64(0xBF983FE0FE5D8244),
  84    U64(0x9F74D14F7454A824), U64(0x51EBDC4AB9BA3035), U64(0x5C82C505DB9AB0FA), U64(0xFCF7FE8A3430B241),
  85    U64(0x3253A729B9BA3DDE), U64(0x8C74C368081B3075), U64(0xB9BC6C87167C33E7), U64(0x7EF48F2B83024E20),
  86    U64(0x11D505D4C351BD7F), U64(0x6568FCA92C76A243), U64(0x4DE0B0F40F32A7B8), U64(0x96D693460CC37E5D),
  87    U64(0x42E240CB63689F2F), U64(0x6D2BDCDAE2919661), U64(0x42880B0236E4D951), U64(0x5F0F4A5898171BB6),
  88    U64(0x39F890F579F92F88), U64(0x93C5B5F47356388B), U64(0x63DC359D8D231B78), U64(0xEC16CA8AEA98AD76),
  89    U64(0x5355F900C2A82DC7), U64(0x07FB9F855A997142), U64(0x5093417AA8A7ED5E), U64(0x7BCBC38DA25A7F3C),
  90    U64(0x19FC8A768CF4B6D4), U64(0x637A7780DECFC0D9), U64(0x8249A47AEE0E41F7), U64(0x79AD695501E7D1E8),
  91    U64(0x14ACBAF4777D5776), U64(0xF145B6BECCDEA195), U64(0xDABF2AC8201752FC), U64(0x24C3C94DF9C8D3F6),
  92    U64(0xBB6E2924F03912EA), U64(0x0CE26C0B95C980D9), U64(0xA49CD132BFBF7CC4), U64(0xE99D662AF4243939),
  93    U64(0x27E6AD7891165C3F), U64(0x8535F040B9744FF1), U64(0x54B3F4FA5F40D873), U64(0x72B12C32127FED2B),
  94    U64(0xEE954D3C7B411F47), U64(0x9A85AC909A24EAA1), U64(0x70AC4CD9F04F21F5), U64(0xF9B89D3E99A075C2),
  95    U64(0x87B3E2B2B5C907B1), U64(0xA366E5B8C54F48B8), U64(0xAE4A9346CC3F7CF2), U64(0x1920C04D47267BBD),
  96    U64(0x87BF02C6B49E2AE9), U64(0x092237AC237F3859), U64(0xFF07F64EF8ED14D0), U64(0x8DE8DCA9F03CC54E),
  97    U64(0x9C1633264DB49C89), U64(0xB3F22C3D0B0B38ED), U64(0x390E5FB44D01144B), U64(0x5BFEA5B4712768E9),
  98    U64(0x1E1032911FA78984), U64(0x9A74ACB964E78CB3), U64(0x4F80F7A035DAFB04), U64(0x6304D09A0B3738C4),
  99    U64(0x2171E64683023A08), U64(0x5B9B63EB9CEFF80C), U64(0x506AACF489889342), U64(0x1881AFC9A3A701D6),
 100    U64(0x6503080440750644), U64(0xDFD395339CDBF4A7), U64(0xEF927DBCF00C20F2), U64(0x7B32F7D1E03680EC),
 101    U64(0xB9FD7620E7316243), U64(0x05A7E8A57DB91B77), U64(0xB5889C6E15630A75), U64(0x4A750A09CE9573F7),
 102    U64(0xCF464CEC899A2F8A), U64(0xF538639CE705B824), U64(0x3C79A0FF5580EF7F), U64(0xEDE6C87F8477609D),
 103    U64(0x799E81F05BC93F31), U64(0x86536B8CF3428A8C), U64(0x97D7374C60087B73), U64(0xA246637CFF328532),
 104    U64(0x043FCAE60CC0EBA0), U64(0x920E449535DD359E), U64(0x70EB093B15B290CC), U64(0x73A1921916591CBD),
 105    U64(0x56436C9FE1A1AA8D), U64(0xEFAC4B70633B8F81), U64(0xBB215798D45DF7AF), U64(0x45F20042F24F1768),
 106    U64(0x930F80F4E8EB7462), U64(0xFF6712FFCFD75EA1), U64(0xAE623FD67468AA70), U64(0xDD2C5BC84BC8D8FC),
 107    U64(0x7EED120D54CF2DD9), U64(0x22FE545401165F1C), U64(0xC91800E98FB99929), U64(0x808BD68E6AC10365),
 108    U64(0xDEC468145B7605F6), U64(0x1BEDE3A3AEF53302), U64(0x43539603D6C55602), U64(0xAA969B5C691CCB7A),
 109    U64(0xA87832D392EFEE56), U64(0x65942C7B3C7E11AE), U64(0xDED2D633CAD004F6), U64(0x21F08570F420E565),
 110    U64(0xB415938D7DA94E3C), U64(0x91B859E59ECB6350), U64(0x10CFF333E0ED804A), U64(0x28AED140BE0BB7DD),
 111    U64(0xC5CC1D89724FA456), U64(0x5648F680F11A2741), U64(0x2D255069F0B7DAB3), U64(0x9BC5A38EF729ABD4),
 112    U64(0xEF2F054308F6A2BC), U64(0xAF2042F5CC5C2858), U64(0x480412BAB7F5BE2A), U64(0xAEF3AF4A563DFE43),
 113    U64(0x19AFE59AE451497F), U64(0x52593803DFF1E840), U64(0xF4F076E65F2CE6F0), U64(0x11379625747D5AF3),
 114    U64(0xBCE5D2248682C115), U64(0x9DA4243DE836994F), U64(0x066F70B33FE09017), U64(0x4DC4DE189B671A1C),
 115    U64(0x51039AB7712457C3), U64(0xC07A3F80C31FB4B4), U64(0xB46EE9C5E64A6E7C), U64(0xB3819A42ABE61C87),
 116    U64(0x21A007933A522A20), U64(0x2DF16F761598AA4F), U64(0x763C4A1371B368FD), U64(0xF793C46702E086A0),
 117    U64(0xD7288E012AEB8D31), U64(0xDE336A2A4BC1C44B), U64(0x0BF692B38D079F23), U64(0x2C604A7A177326B3),
 118    U64(0x4850E73E03EB6064), U64(0xCFC447F1E53C8E1B), U64(0xB05CA3F564268D99), U64(0x9AE182C8BC9474E8),
 119    U64(0xA4FC4BD4FC5558CA), U64(0xE755178D58FC4E76), U64(0x69B97DB1A4C03DFE), U64(0xF9B5B7C4ACC67C96),
 120    U64(0xFC6A82D64B8655FB), U64(0x9C684CB6C4D24417), U64(0x8EC97D2917456ED0), U64(0x6703DF9D2924E97E),
 121    U64(0xC547F57E42A7444E), U64(0x78E37644E7CAD29E), U64(0xFE9A44E9362F05FA), U64(0x08BD35CC38336615),
 122    U64(0x9315E5EB3A129ACE), U64(0x94061B871E04DF75), U64(0xDF1D9F9D784BA010), U64(0x3BBA57B68871B59D),
 123    U64(0xD2B7ADEEDED1F73F), U64(0xF7A255D83BC373F8), U64(0xD7F4F2448C0CEB81), U64(0xD95BE88CD210FFA7),
 124    U64(0x336F52F8FF4728E7), U64(0xA74049DAC312AC71), U64(0xA2F61BB6E437FDB5), U64(0x4F2A5CB07F6A35B3),
 125    U64(0x87D380BDA5BF7859), U64(0x16B9F7E06C453A21), U64(0x7BA2484C8A0FD54E), U64(0xF3A678CAD9A2E38C),
 126    U64(0x39B0BF7DDE437BA2), U64(0xFCAF55C1BF8A4424), U64(0x18FCF680573FA594), U64(0x4C0563B89F495AC3),
 127    U64(0x40E087931A00930D), U64(0x8CFFA9412EB642C1), U64(0x68CA39053261169F), U64(0x7A1EE967D27579E2),
 128    U64(0x9D1D60E5076F5B6F), U64(0x3810E399B6F65BA2), U64(0x32095B6D4AB5F9B1), U64(0x35CAB62109DD038A),
 129    U64(0xA90B24499FCFAFB1), U64(0x77A225A07CC2C6BD), U64(0x513E5E634C70E331), U64(0x4361C0CA3F692F12),
 130    U64(0xD941ACA44B20A45B), U64(0x528F7C8602C5807B), U64(0x52AB92BEB9613989), U64(0x9D1DFA2EFC557F73),
 131    U64(0x722FF175F572C348), U64(0x1D1260A51107FE97), U64(0x7A249A57EC0C9BA2), U64(0x04208FE9E8F7F2D6),
 132    U64(0x5A110C6058B920A0), U64(0x0CD9A497658A5698), U64(0x56FD23C8F9715A4C), U64(0x284C847B9D887AAE),
 133    U64(0x04FEABFBBDB619CB), U64(0x742E1E651C60BA83), U64(0x9A9632E65904AD3C), U64(0x881B82A13B51B9E2),
 134    U64(0x506E6744CD974924), U64(0xB0183DB56FFC6A79), U64(0x0ED9B915C66ED37E), U64(0x5E11E86D5873D484),
 135    U64(0xF678647E3519AC6E), U64(0x1B85D488D0F20CC5), U64(0xDAB9FE6525D89021), U64(0x0D151D86ADB73615),
 136    U64(0xA865A54EDCC0F019), U64(0x93C42566AEF98FFB), U64(0x99E7AFEABE000731), U64(0x48CBFF086DDF285A),
 137    U64(0x7F9B6AF1EBF78BAF), U64(0x58627E1A149BBA21), U64(0x2CD16E2ABD791E33), U64(0xD363EFF5F0977996),
 138    U64(0x0CE2A38C344A6EED), U64(0x1A804AADB9CFA741), U64(0x907F30421D78C5DE), U64(0x501F65EDB3034D07),
 139    U64(0x37624AE5A48FA6E9), U64(0x957BAF61700CFF4E), U64(0x3A6C27934E31188A), U64(0xD49503536ABCA345),
 140    U64(0x088E049589C432E0), U64(0xF943AEE7FEBF21B8), U64(0x6C3B8E3E336139D3), U64(0x364F6FFA464EE52E),
 141    U64(0xD60F6DCEDC314222), U64(0x56963B0DCA418FC0), U64(0x16F50EDF91E513AF), U64(0xEF1955914B609F93),
 142    U64(0x565601C0364E3228), U64(0xECB53939887E8175), U64(0xBAC7A9A18531294B), U64(0xB344C470397BBA52),
 143    U64(0x65D34954DAF3CEBD), U64(0xB4B81B3FA97511E2), U64(0xB422061193D6F6A7), U64(0x071582401C38434D),
 144    U64(0x7A13F18BBEDC4FF5), U64(0xBC4097B116C524D2), U64(0x59B97885E2F2EA28), U64(0x99170A5DC3115544),
 145    U64(0x6F423357E7C6A9F9), U64(0x325928EE6E6F8794), U64(0xD0E4366228B03343), U64(0x565C31F7DE89EA27),
 146    U64(0x30F5611484119414), U64(0xD873DB391292ED4F), U64(0x7BD94E1D8E17DEBC), U64(0xC7D9F16864A76E94),
 147    U64(0x947AE053EE56E63C), U64(0xC8C93882F9475F5F), U64(0x3A9BF55BA91F81CA), U64(0xD9A11FBB3D9808E4),
 148    U64(0x0FD22063EDC29FCA), U64(0xB3F256D8ACA0B0B9), U64(0xB03031A8B4516E84), U64(0x35DD37D5871448AF),
 149    U64(0xE9F6082B05542E4E), U64(0xEBFAFA33D7254B59), U64(0x9255ABB50D532280), U64(0xB9AB4CE57F2D34F3),
 150    U64(0x693501D628297551), U64(0xC62C58F97DD949BF), U64(0xCD454F8F19C5126A), U64(0xBBE83F4ECC2BDECB),
 151    U64(0xDC842B7E2819E230), U64(0xBA89142E007503B8), U64(0xA3BC941D0A5061CB), U64(0xE9F6760E32CD8021),
 152    U64(0x09C7E552BC76492F), U64(0x852F54934DA55CC9), U64(0x8107FCCF064FCF56), U64(0x098954D51FFF6580),
 153    U64(0x23B70EDB1955C4BF), U64(0xC330DE426430F69D), U64(0x4715ED43E8A45C0A), U64(0xA8D7E4DAB780A08D),
 154    U64(0x0572B974F03CE0BB), U64(0xB57D2E985E1419C7), U64(0xE8D9ECBE2CF3D73F), U64(0x2FE4B17170E59750),
 155    U64(0x11317BA87905E790), U64(0x7FBF21EC8A1F45EC), U64(0x1725CABFCB045B00), U64(0x964E915CD5E2B207),
 156    U64(0x3E2B8BCBF016D66D), U64(0xBE7444E39328A0AC), U64(0xF85B2B4FBCDE44B7), U64(0x49353FEA39BA63B1),
 157    U64(0x1DD01AAFCD53486A), U64(0x1FCA8A92FD719F85), U64(0xFC7C95D827357AFA), U64(0x18A6A990C8B35EBD),
 158    U64(0xCCCB7005C6B9C28D), U64(0x3BDBB92C43B17F26), U64(0xAA70B5B4F89695A2), U64(0xE94C39A54A98307F),
 159    U64(0xB7A0B174CFF6F36E), U64(0xD4DBA84729AF48AD), U64(0x2E18BC1AD9704A68), U64(0x2DE0966DAF2F8B1C),
 160    U64(0xB9C11D5B1E43A07E), U64(0x64972D68DEE33360), U64(0x94628D38D0C20584), U64(0xDBC0D2B6AB90A559),
 161    U64(0xD2733C4335C6A72F), U64(0x7E75D99D94A70F4D), U64(0x6CED1983376FA72B), U64(0x97FCAACBF030BC24),
 162    U64(0x7B77497B32503B12), U64(0x8547EDDFB81CCB94), U64(0x79999CDFF70902CB), U64(0xCFFE1939438E9B24),
 163    U64(0x829626E3892D95D7), U64(0x92FAE24291F2B3F1), U64(0x63E22C147B9C3403), U64(0xC678B6D860284A1C),
 164    U64(0x5873888850659AE7), U64(0x0981DCD296A8736D), U64(0x9F65789A6509A440), U64(0x9FF38FED72E9052F),
 165    U64(0xE479EE5B9930578C), U64(0xE7F28ECD2D49EECD), U64(0x56C074A581EA17FE), U64(0x5544F7D774B14AEF),
 166    U64(0x7B3F0195FC6F290F), U64(0x12153635B2C0CF57), U64(0x7F5126DBBA5E0CA7), U64(0x7A76956C3EAFB413),
 167    U64(0x3D5774A11D31AB39), U64(0x8A1B083821F40CB4), U64(0x7B4A38E32537DF62), U64(0x950113646D1D6E03),
 168    U64(0x4DA8979A0041E8A9), U64(0x3BC36E078F7515D7), U64(0x5D0A12F27AD310D1), U64(0x7F9D1A2E1EBE1327),
 169    U64(0xDA3A361B1C5157B1), U64(0xDCDD7D20903D0C25), U64(0x36833336D068F707), U64(0xCE68341F79893389),
 170    U64(0xAB9090168DD05F34), U64(0x43954B3252DC25E5), U64(0xB438C2B67F98E5E9), U64(0x10DCD78E3851A492),
 171    U64(0xDBC27AB5447822BF), U64(0x9B3CDB65F82CA382), U64(0xB67B7896167B4C84), U64(0xBFCED1B0048EAC50),
 172    U64(0xA9119B60369FFEBD), U64(0x1FFF7AC80904BF45), U64(0xAC12FB171817EEE7), U64(0xAF08DA9177DDA93D),
 173    U64(0x1B0CAB936E65C744), U64(0xB559EB1D04E5E932), U64(0xC37B45B3F8D6F2BA), U64(0xC3A9DC228CAAC9E9),
 174    U64(0xF3B8B6675A6507FF), U64(0x9FC477DE4ED681DA), U64(0x67378D8ECCEF96CB), U64(0x6DD856D94D259236),
 175    U64(0xA319CE15B0B4DB31), U64(0x073973751F12DD5E), U64(0x8A8E849EB32781A5), U64(0xE1925C71285279F5),
 176    U64(0x74C04BF1790C0EFE), U64(0x4DDA48153C94938A), U64(0x9D266D6A1CC0542C), U64(0x7440FB816508C4FE),
 177    U64(0x13328503DF48229F), U64(0xD6BF7BAEE43CAC40), U64(0x4838D65F6EF6748F), U64(0x1E152328F3318DEA),
 178    U64(0x8F8419A348F296BF), U64(0x72C8834A5957B511), U64(0xD7A023A73260B45C), U64(0x94EBC8ABCFB56DAE),
 179    U64(0x9FC10D0F989993E0), U64(0xDE68A2355B93CAE6), U64(0xA44CFE79AE538BBE), U64(0x9D1D84FCCE371425),
 180    U64(0x51D2B1AB2DDFB636), U64(0x2FD7E4B9E72CD38C), U64(0x65CA5B96B7552210), U64(0xDD69A0D8AB3B546D),
 181    U64(0x604D51B25FBF70E2), U64(0x73AA8A564FB7AC9E), U64(0x1A8C1E992B941148), U64(0xAAC40A2703D9BEA0),
 182    U64(0x764DBEAE7FA4F3A6), U64(0x1E99B96E70A9BE8B), U64(0x2C5E9DEB57EF4743), U64(0x3A938FEE32D29981),
 183    U64(0x26E6DB8FFDF5ADFE), U64(0x469356C504EC9F9D), U64(0xC8763C5B08D1908C), U64(0x3F6C6AF859D80055),
 184    U64(0x7F7CC39420A3A545), U64(0x9BFB227EBDF4C5CE), U64(0x89039D79D6FC5C5C), U64(0x8FE88B57305E2AB6),
 185    U64(0xA09E8C8C35AB96DE), U64(0xFA7E393983325753), U64(0xD6B6D0ECC617C699), U64(0xDFEA21EA9E7557E3),
 186    U64(0xB67C1FA481680AF8), U64(0xCA1E3785A9E724E5), U64(0x1CFC8BED0D681639), U64(0xD18D8549D140CAEA),
 187    U64(0x4ED0FE7E9DC91335), U64(0xE4DBF0634473F5D2), U64(0x1761F93A44D5AEFE), U64(0x53898E4C3910DA55),
 188    U64(0x734DE8181F6EC39A), U64(0x2680B122BAA28D97), U64(0x298AF231C85BAFAB), U64(0x7983EED3740847D5),
 189    U64(0x66C1A2A1A60CD889), U64(0x9E17E49642A3E4C1), U64(0xEDB454E7BADC0805), U64(0x50B704CAB602C329),
 190    U64(0x4CC317FB9CDDD023), U64(0x66B4835D9EAFEA22), U64(0x219B97E26FFC81BD), U64(0x261E4E4C0A333A9D),
 191    U64(0x1FE2CCA76517DB90), U64(0xD7504DFA8816EDBB), U64(0xB9571FA04DC089C8), U64(0x1DDC0325259B27DE),
 192    U64(0xCF3F4688801EB9AA), U64(0xF4F5D05C10CAB243), U64(0x38B6525C21A42B0E), U64(0x36F60E2BA4FA6800),
 193    U64(0xEB3593803173E0CE), U64(0x9C4CD6257C5A3603), U64(0xAF0C317D32ADAA8A), U64(0x258E5A80C7204C4B),
 194    U64(0x8B889D624D44885D), U64(0xF4D14597E660F855), U64(0xD4347F66EC8941C3), U64(0xE699ED85B0DFB40D),
 195    U64(0x2472F6207C2D0484), U64(0xC2A1E7B5B459AEB5), U64(0xAB4F6451CC1D45EC), U64(0x63767572AE3D6174),
 196    U64(0xA59E0BD101731A28), U64(0x116D0016CB948F09), U64(0x2CF9C8CA052F6E9F), U64(0x0B090A7560A968E3),
 197    U64(0xABEEDDB2DDE06FF1), U64(0x58EFC10B06A2068D), U64(0xC6E57A78FBD986E0), U64(0x2EAB8CA63CE802D7),
 198    U64(0x14A195640116F336), U64(0x7C0828DD624EC390), U64(0xD74BBE77E6116AC7), U64(0x804456AF10F5FB53),
 199    U64(0xEBE9EA2ADF4321C7), U64(0x03219A39EE587A30), U64(0x49787FEF17AF9924), U64(0xA1E9300CD8520548),
 200    U64(0x5B45E522E4B1B4EF), U64(0xB49C3B3995091A36), U64(0xD4490AD526F14431), U64(0x12A8F216AF9418C2),
 201    U64(0x001F837CC7350524), U64(0x1877B51E57A764D5), U64(0xA2853B80F17F58EE), U64(0x993E1DE72D36D310),
 202    U64(0xB3598080CE64A656), U64(0x252F59CF0D9F04BB), U64(0xD23C8E176D113600), U64(0x1BDA0492E7E4586E),
 203    U64(0x21E0BD5026C619BF), U64(0x3B097ADAF088F94E), U64(0x8D14DEDB30BE846E), U64(0xF95CFFA23AF5F6F4),
 204    U64(0x3871700761B3F743), U64(0xCA672B91E9E4FA16), U64(0x64C8E531BFF53B55), U64(0x241260ED4AD1E87D),
 205    U64(0x106C09B972D2E822), U64(0x7FBA195410E5CA30), U64(0x7884D9BC6CB569D8), U64(0x0647DFEDCD894A29),
 206    U64(0x63573FF03E224774), U64(0x4FC8E9560F91B123), U64(0x1DB956E450275779), U64(0xB8D91274B9E9D4FB),
 207    U64(0xA2EBEE47E2FBFCE1), U64(0xD9F1F30CCD97FB09), U64(0xEFED53D75FD64E6B), U64(0x2E6D02C36017F67F),
 208    U64(0xA9AA4D20DB084E9B), U64(0xB64BE8D8B25396C1), U64(0x70CB6AF7C2D5BCF0), U64(0x98F076A4F7A2322E),
 209    U64(0xBF84470805E69B5F), U64(0x94C3251F06F90CF3), U64(0x3E003E616A6591E9), U64(0xB925A6CD0421AFF3),
 210    U64(0x61BDD1307C66E300), U64(0xBF8D5108E27E0D48), U64(0x240AB57A8B888B20), U64(0xFC87614BAF287E07),
 211    U64(0xEF02CDD06FFDB432), U64(0xA1082C0466DF6C0A), U64(0x8215E577001332C8), U64(0xD39BB9C3A48DB6CF),
 212    U64(0x2738259634305C14), U64(0x61CF4F94C97DF93D), U64(0x1B6BACA2AE4E125B), U64(0x758F450C88572E0B),
 213    U64(0x959F587D507A8359), U64(0xB063E962E045F54D), U64(0x60E8ED72C0DFF5D1), U64(0x7B64978555326F9F),
 214    U64(0xFD080D236DA814BA), U64(0x8C90FD9B083F4558), U64(0x106F72FE81E2C590), U64(0x7976033A39F7D952),
 215    U64(0xA4EC0132764CA04B), U64(0x733EA705FAE4FA77), U64(0xB4D8F77BC3E56167), U64(0x9E21F4F903B33FD9),
 216    U64(0x9D765E419FB69F6D), U64(0xD30C088BA61EA5EF), U64(0x5D94337FBFAF7F5B), U64(0x1A4E4822EB4D7A59),
 217    U64(0x6FFE73E81B637FB3), U64(0xDDF957BC36D8B9CA), U64(0x64D0E29EEA8838B3), U64(0x08DD9BDFD96B9F63),
 218    U64(0x087E79E5A57D1D13), U64(0xE328E230E3E2B3FB), U64(0x1C2559E30F0946BE), U64(0x720BF5F26F4D2EAA),
 219    U64(0xB0774D261CC609DB), U64(0x443F64EC5A371195), U64(0x4112CF68649A260E), U64(0xD813F2FAB7F5C5CA),
 220    U64(0x660D3257380841EE), U64(0x59AC2C7873F910A3), U64(0xE846963877671A17), U64(0x93B633ABFA3469F8),
 221    U64(0xC0C0F5A60EF4CDCF), U64(0xCAF21ECD4377B28C), U64(0x57277707199B8175), U64(0x506C11B9D90E8B1D),
 222    U64(0xD83CC2687A19255F), U64(0x4A29C6465A314CD1), U64(0xED2DF21216235097), U64(0xB5635C95FF7296E2),
 223    U64(0x22AF003AB672E811), U64(0x52E762596BF68235), U64(0x9AEBA33AC6ECC6B0), U64(0x944F6DE09134DFB6),
 224    U64(0x6C47BEC883A7DE39), U64(0x6AD047C430A12104), U64(0xA5B1CFDBA0AB4067), U64(0x7C45D833AFF07862),
 225    U64(0x5092EF950A16DA0B), U64(0x9338E69C052B8E7B), U64(0x455A4B4CFE30E3F5), U64(0x6B02E63195AD0CF8),
 226    U64(0x6B17B224BAD6BF27), U64(0xD1E0CCD25BB9C169), U64(0xDE0C89A556B9AE70), U64(0x50065E535A213CF6),
 227    U64(0x9C1169FA2777B874), U64(0x78EDEFD694AF1EED), U64(0x6DC93D9526A50E68), U64(0xEE97F453F06791ED),
 228    U64(0x32AB0EDB696703D3), U64(0x3A6853C7E70757A7), U64(0x31865CED6120F37D), U64(0x67FEF95D92607890),
 229    U64(0x1F2B1D1F15F6DC9C), U64(0xB69E38A8965C6B65), U64(0xAA9119FF184CCCF4), U64(0xF43C732873F24C13),
 230    U64(0xFB4A3D794A9A80D2), U64(0x3550C2321FD6109C), U64(0x371F77E76BB8417E), U64(0x6BFA9AAE5EC05779),
 231    U64(0xCD04F3FF001A4778), U64(0xE3273522064480CA), U64(0x9F91508BFFCFC14A), U64(0x049A7F41061A9E60),
 232    U64(0xFCB6BE43A9F2FE9B), U64(0x08DE8A1C7797DA9B), U64(0x8F9887E6078735A1), U64(0xB5B4071DBFC73A66),
 233    U64(0x230E343DFBA08D33), U64(0x43ED7F5A0FAE657D), U64(0x3A88A0FBBCB05C63), U64(0x21874B8B4D2DBC4F),
 234    U64(0x1BDEA12E35F6A8C9), U64(0x53C065C6C8E63528), U64(0xE34A1D250E7A8D6B), U64(0xD6B04D3B7651DD7E),
 235    U64(0x5E90277E7CB39E2D), U64(0x2C046F22062DC67D), U64(0xB10BB459132D0A26), U64(0x3FA9DDFB67E2F199),
 236    U64(0x0E09B88E1914F7AF), U64(0x10E8B35AF3EEAB37), U64(0x9EEDECA8E272B933), U64(0xD4C718BC4AE8AE5F),
 237    U64(0x81536D601170FC20), U64(0x91B534F885818A06), U64(0xEC8177F83F900978), U64(0x190E714FADA5156E),
 238    U64(0xB592BF39B0364963), U64(0x89C350C893AE7DC1), U64(0xAC042E70F8B383F2), U64(0xB49B52E587A1EE60),
 239    U64(0xFB152FE3FF26DA89), U64(0x3E666E6F69AE2C15), U64(0x3B544EBE544C19F9), U64(0xE805A1E290CF2456),
 240    U64(0x24B33C9D7ED25117), U64(0xE74733427B72F0C1), U64(0x0A804D18B7097475), U64(0x57E3306D881EDB4F),
 241    U64(0x4AE7D6A36EB5DBCB), U64(0x2D8D5432157064C8), U64(0xD1E649DE1E7F268B), U64(0x8A328A1CEDFE552C),
 242    U64(0x07A3AEC79624C7DA), U64(0x84547DDC3E203C94), U64(0x990A98FD5071D263), U64(0x1A4FF12616EEFC89),
 243    U64(0xF6F7FD1431714200), U64(0x30C05B1BA332F41C), U64(0x8D2636B81555A786), U64(0x46C9FEB55D120902),
 244    U64(0xCCEC0A73B49C9921), U64(0x4E9D2827355FC492), U64(0x19EBB029435DCB0F), U64(0x4659D2B743848A2C),
 245    U64(0x963EF2C96B33BE31), U64(0x74F85198B05A2E7D), U64(0x5A0F544DD2B1FB18), U64(0x03727073C2E134B1),
 246    U64(0xC7F6AA2DE59AEA61), U64(0x352787BAA0D7C22F), U64(0x9853EAB63B5E0B35), U64(0xABBDCDD7ED5C0860),
 247    U64(0xCF05DAF5AC8D77B0), U64(0x49CAD48CEBF4A71E), U64(0x7A4C10EC2158C4A6), U64(0xD9E92AA246BF719E),
 248    U64(0x13AE978D09FE5557), U64(0x730499AF921549FF), U64(0x4E4B705B92903BA4), U64(0xFF577222C14F0A3A),
 249    U64(0x55B6344CF97AAFAE), U64(0xB862225B055B6960), U64(0xCAC09AFBDDD2CDB4), U64(0xDAF8E9829FE96B5F),
 250    U64(0xB5FDFC5D3132C498), U64(0x310CB380DB6F7503), U64(0xE87FBB46217A360E), U64(0x2102AE466EBB1148),
 251    U64(0xF8549E1A3AA5E00D), U64(0x07A69AFDCC42261A), U64(0xC4C118BFE78FEAAE), U64(0xF9F4892ED96BD438),
 252    U64(0x1AF3DBE25D8F45DA), U64(0xF5B4B0B0D2DEEEB4), U64(0x962ACEEFA82E1C84), U64(0x046E3ECAAF453CE9),
 253    U64(0xF05D129681949A4C), U64(0x964781CE734B3C84), U64(0x9C2ED44081CE5FBD), U64(0x522E23F3925E319E),
 254    U64(0x177E00F9FC32F791), U64(0x2BC60A63A6F3B3F2), U64(0x222BBFAE61725606), U64(0x486289DDCC3D6780),
 255    U64(0x7DC7785B8EFDFC80), U64(0x8AF38731C02BA980), U64(0x1FAB64EA29A2DDF7), U64(0xE4D9429322CD065A),
 256    U64(0x9DA058C67844F20C), U64(0x24C0E332B70019B0), U64(0x233003B5A6CFE6AD), U64(0xD586BD01C5C217F6),
 257    U64(0x5E5637885F29BC2B), U64(0x7EBA726D8C94094B), U64(0x0A56A5F0BFE39272), U64(0xD79476A84EE20D06),
 258    U64(0x9E4C1269BAA4BF37), U64(0x17EFEE45B0DEE640), U64(0x1D95B0A5FCF90BC6), U64(0x93CBE0B699C2585D),
 259    U64(0x65FA4F227A2B6D79), U64(0xD5F9E858292504D5), U64(0xC2B5A03F71471A6F), U64(0x59300222B4561E00),
 260    U64(0xCE2F8642CA0712DC), U64(0x7CA9723FBB2E8988), U64(0x2785338347F2BA08), U64(0xC61BB3A141E50E8C),
 261    U64(0x150F361DAB9DEC26), U64(0x9F6A419D382595F4), U64(0x64A53DC924FE7AC9), U64(0x142DE49FFF7A7C3D),
 262    U64(0x0C335248857FA9E7), U64(0x0A9C32D5EAE45305), U64(0xE6C42178C4BBB92E), U64(0x71F1CE2490D20B07),
 263    U64(0xF1BCC3D275AFE51A), U64(0xE728E8C83C334074), U64(0x96FBF83A12884624), U64(0x81A1549FD6573DA5),
 264    U64(0x5FA7867CAF35E149), U64(0x56986E2EF3ED091B), U64(0x917F1DD5F8886C61), U64(0xD20D8C88C8FFE65F),
 265    U64(0x31D71DCE64B2C310), U64(0xF165B587DF898190), U64(0xA57E6339DD2CF3A0), U64(0x1EF6E6DBB1961EC9),
 266    U64(0x70CC73D90BC26E24), U64(0xE21A6B35DF0C3AD7), U64(0x003A93D8B2806962), U64(0x1C99DED33CB890A1),
 267    U64(0xCF3145DE0ADD4289), U64(0xD0E4427A5514FB72), U64(0x77C621CC9FB3A483), U64(0x67A34DAC4356550B),
 268    U64(0xF8D626AAAF278509),
 269 };
 270
 271 uint64 *RandomPiece     =Random64;
 272 uint64 *RandomCastle    =Random64+768;
 273 uint64 *RandomEnPassant =Random64+772;
 274 uint64 *RandomTurn      =Random64+780;
 275
 276
 277 uint64 hash(int moveNr)
 278 {
 279     int r, f, p_enc, squareNr, pieceGroup;
 280     uint64 key=0, holdingsKey=0, Zobrist;
 281
 282     for(f=0; f<BOARD_WIDTH; f++){
 283         for(r=0; r<BOARD_HEIGHT;r++){
 284             ChessSquare p = boards[moveNr][r][f];
 285             if(f == BOARD_LEFT-1 || f == BOARD_RGHT) continue; // between board and holdings
 286             if(p != EmptySquare){
 287                     int j = (int)p;
 288                     j -= (j >= (int)BlackPawn) ? (int)BlackPawn :(int)WhitePawn;
 289                     if(j > (int)WhiteQueen) j++;  // make space for King
 290                     if(j > (int) WhiteKing) j = (int)WhiteQueen + 1;
 291                     p_enc = 2*j + ((int)p < (int)BlackPawn);
 292                     // holdings squares get nmbers immediately after board; first left, then right holdings
 293                     if(f == BOARD_LEFT-2) squareNr = (BOARD_RGHT - BOARD_LEFT)*BOARD_HEIGHT + r; else
 294                     if(f == BOARD_RGHT+1) squareNr = (BOARD_RGHT - BOARD_LEFT + 1)*BOARD_HEIGHT + r; else
 295                     squareNr = (BOARD_RGHT - BOARD_LEFT)*r + (f - BOARD_LEFT);
 296                     // note that in normal Chess squareNr < 64 and p_enc < 12. The following code
 297                     // maps other pieces and squares in this range, and then modify the corresponding
 298                     // Zobrist random by rotating its bitpattern according to what the piece really was.
 299                     pieceGroup = p_enc / 12;
 300                     p_enc      = p_enc % 12;
 301                     Zobrist = RandomPiece[64*p_enc + (squareNr & 63)];
 302                     switch(pieceGroup) {
 303                         case 1: // pieces 5-10 (FEACWM)
 304                                 Zobrist = (Zobrist << 16) ^ (Zobrist >> 48);
 305                                 break;
 306                         case 2: // pieces 11-16 (OHIJGD)
 307                                 Zobrist = (Zobrist << 32) ^ (Zobrist >> 32);
 308                                 break;
 309                         case 3: // pieces 17-20 (VLSU)
 310                                 Zobrist = (Zobrist << 48) ^ (Zobrist >> 16);
 311                                 break;
 312                     }
 313                     if(squareNr >= 64) Zobrist = (Zobrist << 8) ^ (Zobrist >> 56);
 314                     // holdings have separate (additive) key, to encode presence of multiple pieces on same square
 315                     if(f == BOARD_LEFT-2) holdingsKey += Zobrist * boards[moveNr][r][f+1]; else
 316                     if(f == BOARD_RGHT+1) holdingsKey += Zobrist * boards[moveNr][r][f-1]; else
 317                 key ^= Zobrist;
 318             }
 319         }
 320     }
 321
 322     if(boards[moveNr][CASTLING][2] != NoRights) {
 323         if(boards[moveNr][CASTLING][0] != NoRights) key^=RandomCastle[0];
 324         if(boards[moveNr][CASTLING][1] != NoRights) key^=RandomCastle[1];
 325     }
 326     if(boards[moveNr][CASTLING][5] != NoRights) {
 327         if(boards[moveNr][CASTLING][3] != NoRights) key^=RandomCastle[2];
 328         if(boards[moveNr][CASTLING][4] != NoRights) key^=RandomCastle[3];
 329     }
 330
 331     f = boards[moveNr][EP_STATUS];
 332     if(f >= 0 && f < 8){
 333         if(!WhiteOnMove(moveNr)){
 334             // the test for neighboring Pawns might not be needed,
 335             // as epStatus already kept track of it, but better safe than sorry.
 336             if((f>0 && boards[moveNr][3][f-1]==BlackPawn)||
 337                (f<7 && boards[moveNr][3][f+1]==BlackPawn)){
 338                 key^=RandomEnPassant[f];
 339             }
 340         }else{
 341             if((f>0 && boards[moveNr][4][f-1]==WhitePawn)||
 342                (f<7 && boards[moveNr][4][f+1]==WhitePawn)){
 343                 key^=RandomEnPassant[f];
 344             }
 345         }
 346     }
 347
 348     if(WhiteOnMove(moveNr)){
 349         key^=RandomTurn[0];
 350     }
 351     return key + holdingsKey;
 352 }
 353
 354 #define MOVE_BUF 100
 355
 356 int int_from_file(FILE *f, int l, uint64 *r)
 357 {
 358     int i,c;
 359     for(i=0;i<l;i++){
 360         c=fgetc(f);
 361         if(c==EOF){
 362             return 1;
 363         }
 364         (*r)=((*r)<<8)+c;
 365     }
 366     return 0;
 367 }
 368
 369 int entry_from_file(FILE *f, entry_t *entry)
 370 {
 371     int ret;
 372     uint64 r;
 373     ret=int_from_file(f,8,&r);
 374     if(ret) return 1;
 375     entry->key=r;
 376     ret=int_from_file(f,2,&r);
 377     if(ret) return 1;
 378     entry->move=r;
 379     ret=int_from_file(f,2,&r);
 380     if(ret) return 1;
 381     entry->weight=r;
 382     ret=int_from_file(f,2,&r);
 383     if(ret) return 1;
 384     entry->learnCount=r;
 385     ret=int_from_file(f,2,&r);
 386     if(ret) return 1;
 387     entry->learnPoints=r;
 388     return 0;
 389 }
 390
 391 int find_key(FILE *f, uint64 key, entry_t *entry)
 392 {
 393     int first, last, middle;
 394     entry_t first_entry=entry_none, last_entry,middle_entry;
 395     first=-1;
 396     if(fseek(f,-16,SEEK_END)){
 397         *entry=entry_none;
 398         entry->key=key+1; //hack
 399         return -1;
 400     }
 401     last=ftell(f)/16;
 402     entry_from_file(f,&last_entry);
 403     while(1){
 404         if(last-first==1){
 405             *entry=last_entry;
 406             return last;
 407         }
 408         middle=(first+last)/2;
 409         fseek(f,16*middle,SEEK_SET);
 410         entry_from_file(f,&middle_entry);
 411         if(key<=middle_entry.key){
 412             last=middle;
 413             last_entry=middle_entry;
 414         }else{
 415             first=middle;
 416             first_entry=middle_entry;
 417         }
 418     }
 419 }
 420
 421 void move_to_string(char move_s[6], uint16 move)
 422 {
 423     int f,fr,ff,t,tr,tf,p;
 424     int width = BOARD_RGHT - BOARD_LEFT, size; // allow for alternative board formats
 425
 426     size = width * BOARD_HEIGHT;
 427     f  = move / size;
 428     fr = f / width;
 429     ff = f % width;
 430     t  = move % size;
 431     tr = t / width;
 432     tf = t % width;
 433     p = move / (size*size);
 434     move_s[0] = ff + 'a';
 435     move_s[1] = fr + '1' - (BOARD_HEIGHT > 9);
 436     move_s[2] = tf + 'a';
 437     move_s[3] = tr + '1' - (BOARD_HEIGHT > 9);
 438
 439     // kludge: encode drops as special promotion code
 440     if(gameInfo.holdingsSize && p == 8) {
 441         move_s[0] = f + '@'; // from square encodes piece type
 442         move_s[1] = '@';     // drop symbol
 443         p = 0;
 444     }
 445
 446     // add promotion piece, if any
 447     if(p){
 448         move_s[4] = promote_pieces[p];
 449         move_s[5] = '\0';
 450     }else{
 451         move_s[4] = '\0';
 452     }
 453
 454     if(gameInfo.variant != VariantNormal) return;
 455
 456     // correct FRC-style castlings in variant normal.
 457     // [HGM] This is buggy code! e1h1 could very well be a normal R or Q move.
 458     if(!strcmp(move_s,"e1h1")){
 459       safeStrCpy(move_s,"e1g1", 6);
 460     }else  if(!strcmp(move_s,"e1a1")){
 461       safeStrCpy(move_s,"e1c1", 6);
 462     }else  if(!strcmp(move_s,"e8h8")){
 463       safeStrCpy(move_s,"e8g8", 6);
 464     }else  if(!strcmp(move_s,"e8a8")){
 465       safeStrCpy(move_s,"e8c8", 6);
 466     }
 467 }
 468
 469 int GetBookMoves(int moveNr, char *book, entry_t entries[])
 470 {   // retrieve all entries for given position from book in 'entries', return number.
 471     static FILE *f = NULL;
 472     static char curBook[MSG_SIZ];
 473     entry_t entry;
 474     int offset;
 475     uint64 key;
 476     int count;
 477     int ret;
 478
 479     if(book == NULL || moveNr >= 2*appData.bookDepth) return -1;
 480 //    if(gameInfo.variant != VariantNormal) return -1; // Zobrist scheme only works for normal Chess, so far
 481     if(!f || strcmp(book, curBook)){ // keep book file open until book changed
 482         strncpy(curBook, book, MSG_SIZ);
 483         if(f) fclose(f);
 484         f = fopen(book,"rb");
 485     }
 486     if(!f){
 487         DisplayError("Polyglot book not valid", 0);
 488         appData.usePolyglotBook = FALSE;
 489         return -1;
 490     }
 491
 492     key = hash(moveNr);
 493     if(appData.debugMode) fprintf(debugFP, "book key = %08x%08x\n", (unsigned int)(key>>32), (unsigned int)key);
 494
 495     offset=find_key(f, key, &entry);
 496     if(entry.key != key) {
 497           return FALSE;
 498     }
 499     entries[0] = entry;
 500     count=1;
 501     fseek(f, 16*(offset+1), SEEK_SET);
 502     while(1){
 503         ret=entry_from_file(f, &entry);
 504         if(ret){
 505             break;
 506         }
 507         if(entry.key != key){
 508             break;
 509         }
 510         if(count == MOVE_BUF) break;
 511         entries[count++] = entry;
 512     }
 513     return count;
 514 }
 515
 516 char *ProbeBook(int moveNr, char *book)
 517 {   //
 518     entry_t entries[MOVE_BUF];
 519     int count;
 520     int i, j;
 521     static char move_s[6];
 522     int total_weight;
 523
 524     if((count = GetBookMoves(moveNr, book, entries)) <= 0) return NULL; // no book, or no hit
 525
 526     if(appData.bookStrength != 50) { // transform weights
 527         double power = 0, maxWeight = 0.0;
 528         if(appData.bookStrength) power = (100.-appData.bookStrength)/appData.bookStrength;
 529         for(i=0; i<count; i++) if(entries[i].weight > maxWeight) maxWeight = entries[i].weight;
 530         for(i=0; i<count; i++){
 531             double weight = entries[i].weight / maxWeight;
 532               if(weight > 0)
 533                 entries[i].weight = appData.bookStrength || weight == 1.0 ? 1e4*exp(power * log(weight)) + 0.5 : 0.0;
 534         }
 535     }
 536     total_weight = 0;
 537     for(i=0; i<count; i++){
 538         total_weight += entries[i].weight;
 539     }
 540     if(total_weight == 0) return NULL; // force book miss rather than playing moves with weight 0.
 541     j = (random() & 0xFFF) * total_weight >> 12; // create random < total_weight
 542     total_weight = 0;
 543     for(i=0; i<count; i++){
 544         total_weight += entries[i].weight;
 545         if(total_weight > j) break;
 546     }
 547     if(i >= count) DisplayFatalError("Book Fault", 0, 1); // safety catch, cannot happen
 548     move_to_string(move_s, entries[i].move);
 549     if(appData.debugMode) fprintf(debugFP, "book move field = %d\n", entries[i].move);
 550
 551     return move_s;
 552 }
 553
 554 extern char yy_textstr[];
 555 entry_t lastEntries[MOVE_BUF];
 556
 557 char *MovesToText(int count, entry_t *entries)
 558 {
 559         int i, totalWeight = 0;
 560         char algMove[6];
 561         char *p = (char*) malloc(30*count+1);
 562         for(i=0; i<count; i++) totalWeight += entries[i].weight;
 563         *p = 0;
 564         for(i=0; i<count; i++) {
 565             char buf[MSG_SIZ];
 566             move_to_string(algMove, entries[i].move);
 567             buf[0] = NULLCHAR;
 568             if(entries[i].learnCount || entries[i].learnPoints)
 569                 snprintf(buf, MSG_SIZ, " {%d/%d}", entries[i].learnPoints, entries[i].learnCount);
 570             snprintf(p+strlen(p), 30, "%5.1f%% %5d %s%s\n", 100*entries[i].weight/(totalWeight+0.001),
 571                                         entries[i].weight, algMove, buf);
 572 //lastEntries[i] = entries[i];
 573         }
 574         return p;
 575 }
 576
 577 int TextToMoves(char *text, int moveNum, entry_t *entries)
 578 {
 579         int i, w, count=0;
 580       uint64 hashKey = hash(moveNum);
 581         int  fromX, fromY, toX, toY, to, from;
 582         ChessMove  moveType;
 583         char promoChar, valid;
 584         float dummy;
 585         int width = BOARD_RGHT - BOARD_LEFT;
 586
 587         entries[0].key = hashKey; // make sure key is returned even if no moves
 588         while((i=sscanf(text, "%f%%%d", &dummy, &w))==2 || (i=sscanf(text, "%d", &w))==1) {
 589             if(i == 2) text = strchr(text, '%') + 1;  // skip percentage
 590             if(w == 1) text = strstr(text, "1 ") + 2; // skip weight that could be recognized as move number one
 591             valid = ParseOneMove(text, moveNum, &moveType, &fromX, &fromY, &toX, &toY, &promoChar);
 592             text = strstr(text, yy_textstr) + strlen(yy_textstr); // skip what we parsed
 593             if(!valid || moveType != NormalMove) continue;
 594             if(*text == ' ' && sscanf(text+1, "{%hd/%hd}", &entries[count].learnPoints, &entries[count].learnCount) == 2) {
 595                 text = strchr(text+1, '}') + 1;
 596             } else {
 597                 entries[count].learnPoints = 0;
 598                 entries[count].learnCount  = 0;
 599             }
 600             to = toX + toY * width;
 601             from = fromX + fromY * width;
 602             for(i=0; promote_pieces[i]; i++) if(promote_pieces[i] == promoChar) break;
 603             if(!promote_pieces[i]) i = 0;
 604             if(fromY == DROP_RANK) i = 8, from = ToUpper(PieceToChar(fromX)) - '@';
 605             entries[count].move = to + (i * width * BOARD_HEIGHT + from) * width * BOARD_HEIGHT;
 606             entries[count].key  = hashKey;
 607             entries[count].weight = w;
 608             count++;
 609         }
 610         return count;
 611 }
 612
 613 Boolean bookUp;
 614 int currentCount;
 615
 616 Boolean DisplayBook(int moveNr)
 617 {
 618     entry_t entries[MOVE_BUF];
 619     int count;
 620     char *p;
 621     if(!bookUp) return FALSE;
 622     count = currentCount = GetBookMoves(moveNr, appData.polyglotBook, entries);
 623     if(count < 0) return FALSE;
 624     p = MovesToText(count, entries);
 625     EditTagsPopUp(p, NULL);
 626     free(p);
 627     return TRUE;
 628 }
 629
 630 void EditBookEvent()
 631 {
 632       bookUp = TRUE;
 633         bookUp = DisplayBook(currentMove);
 634 }
 635
 636 void int_to_file(FILE *f, int l, uint64 r)
 637 {
 638     int i;
 639     for(i=l-1;i>=0;i--) fputc(r>>8*i & 255, f);
 640 }
 641
 642 void entry_to_file(FILE *f, entry_t *entry)
 643 {
 644     int_to_file(f,8,entry->key);
 645     int_to_file(f,2,entry->move);
 646     int_to_file(f,2,entry->weight);
 647     int_to_file(f,2,entry->learnCount);
 648     int_to_file(f,2,entry->learnPoints);
 649 }
 650
 651 char buf1[4096], buf2[4096];
 652
 653 void SaveToBook(char *text)
 654 {
 655     entry_t entries[MOVE_BUF], entry;
 656     int count = TextToMoves(text, currentMove, entries);
 657     int offset, i, len1=0, len2, readpos=0, writepos=0;
 658     FILE *f;
 659     if(!count && !currentCount) return;
 660     f=fopen(appData.polyglotBook, "rb+");
 661     if(!f){     DisplayError("Polyglot book not valid", 0); return; }
 662     offset=find_key(f, entries[0].key, &entry);
 663     if(entries[0].key != entry.key && currentCount) {
 664           DisplayError("Hash keys are different", 0);
 665           fclose(f);
 666           return;
 667     }
 668     if(count != currentCount) {
 669         readpos = 16*(offset + currentCount);
 670         writepos = 16*(offset + count);
 671         fseek(f, readpos, SEEK_SET);
 672         readpos += len1 = fread(buf1, 1, 4096 - 16*currentCount, f); // salvage some entries immediately behind change
 673     }
 674     fseek(f, 16*(offset), SEEK_SET);
 675     for(i=0; i<count; i++) entry_to_file(f, entries + i); // save the change
 676     if(count != currentCount) {
 677         do {
 678             for(i=0; i<len1; i++) buf2[i] = buf1[i]; len2 = len1;
 679             if(readpos > writepos) {
 680                 fseek(f, readpos, SEEK_SET);
 681                 readpos += len1 = fread(buf1, 1, 4096, f);
 682             } else len1 = 0; // wrote already past old EOF
 683             fseek(f, writepos, SEEK_SET);
 684             fwrite(buf2, 1, len2, f);
 685             writepos += len2;
 686         } while(len1);
 687     }
 688     fclose(f);
 689 }
 690