aboutsummaryrefslogtreecommitdiffstats
path: root/FICS/eco.c
diff options
context:
space:
mode:
Diffstat (limited to 'FICS/eco.c')
-rw-r--r--FICS/eco.c535
1 files changed, 535 insertions, 0 deletions
diff --git a/FICS/eco.c b/FICS/eco.c
new file mode 100644
index 0000000..3598943
--- /dev/null
+++ b/FICS/eco.c
@@ -0,0 +1,535 @@
+/* eco.c
+ *
+ */
+
+#include "stdinclude.h"
+#include "common.h"
+
+#include <err.h>
+
+#include "board.h"
+#include "command.h"
+#include "config.h"
+#include "eco.h"
+#include "gamedb.h"
+#include "gameproc.h"
+#include "obsproc.h"
+#include "playerdb.h"
+#include "utils.h"
+
+#if __linux__
+#include <bsd/string.h>
+#endif
+
+#define FENPOS_SIZE 73
+#define ONMOVE_SIZE 2
+
+#define ECO_MAXFILENAME 1024
+#define ECO_MAXTMP 1024
+
+#define SCAN_FP_AND_ONMOVE "%72[\x21-z] %1s"
+
+#define SCAN_ECO "%3[0-z]"
+#define SCAN_NIC "%5[.-z]"
+#define SCAN_LONG "%255[^*\n]"
+
+PRIVATE char *book_dir = DEFAULT_BOOK;
+
+PRIVATE ECO_entry *ECO_book[1096];
+PRIVATE NIC_entry *NIC_book[1096];
+PRIVATE LONG_entry *LONG_book[4096];
+
+PRIVATE int ECO_entries, NIC_entries, LONG_entries;
+
+PRIVATE inline int
+fencmp(const unsigned char *pos1, const char *pos2)
+{
+ return strcmp((const char *)pos1, pos2);
+}
+
+PUBLIC char *
+boardToFEN(int g)
+{
+ int FENcount = 0;
+ int space = 0;
+ static char FENstring[80];
+
+ for (int i = 7; i >= 0; i--) {
+ for (int j = 0; j < 8; j++) {
+ switch (garray[g].game_state.board[j][i]) {
+ case W_PAWN:
+ SPACE_CHK();
+ FENstring[FENcount++] = 'P';
+ break;
+ case W_ROOK:
+ SPACE_CHK();
+ FENstring[FENcount++] = 'R';
+ break;
+ case W_KNIGHT:
+ SPACE_CHK();
+ FENstring[FENcount++] = 'N';
+ break;
+ case W_BISHOP:
+ SPACE_CHK();
+ FENstring[FENcount++] = 'B';
+ break;
+ case W_QUEEN:
+ SPACE_CHK();
+ FENstring[FENcount++] = 'Q';
+ break;
+ case W_KING:
+ SPACE_CHK();
+ FENstring[FENcount++] = 'K';
+ break;
+ case B_PAWN:
+ SPACE_CHK();
+ FENstring[FENcount++] = 'p';
+ break;
+ case B_ROOK:
+ SPACE_CHK();
+ FENstring[FENcount++] = 'r';
+ break;
+ case B_KNIGHT:
+ SPACE_CHK();
+ FENstring[FENcount++] = 'n';
+ break;
+ case B_BISHOP:
+ SPACE_CHK();
+ FENstring[FENcount++] = 'b';
+ break;
+ case B_QUEEN:
+ SPACE_CHK();
+ FENstring[FENcount++] = 'q';
+ break;
+ case B_KING:
+ SPACE_CHK();
+ FENstring[FENcount++] = 'k';
+ break;
+ default:
+ space++;
+ break;
+ } /* switch */
+ } /* for */
+
+ if (space > 0) {
+ FENstring[FENcount++] = (space + '0');
+ space = 0;
+ }
+
+ FENstring[FENcount++] = '/';
+ } /* for */
+
+ FENstring[--FENcount] = ' ';
+ FENstring[++FENcount] = ((garray[g].game_state.onMove == WHITE)
+ ? 'w'
+ : 'b');
+ FENstring[++FENcount] = '\0';
+
+ return FENstring;
+}
+
+PUBLIC void
+ECO_init(void)
+{
+ FILE *fp;
+ char ECO[4] = {0,0,0,0};
+ char FENpos[FENPOS_SIZE] = { '\0' };
+ char filename[ECO_MAXFILENAME] = { '\0' };
+ char onMove[ONMOVE_SIZE] = {0,0};
+ char tmp[ECO_MAXTMP] = { '\0' };
+ char *ptmp = tmp;
+ int i = 0;
+
+ snprintf(filename, sizeof filename, "%s/eco999.idx", book_dir);
+
+ if ((fp = fopen(filename, "r")) == NULL)
+ err(1, "Could not open ECO file (%s)", filename);
+
+ while (!feof(fp)) {
+ (void) strlcpy(ptmp, "", sizeof tmp);
+
+ if (fgets(ptmp, sizeof tmp, fp) == NULL ||
+ feof(fp))
+ break;
+
+ if (sscanf(ptmp, SCAN_FP_AND_ONMOVE, FENpos, onMove) != 2) {
+ warnx("%s: sscanf() error (%s:%d)", __func__,
+ filename, i);
+ break;
+ } else if (strlcat(FENpos, " ", sizeof FENpos) >= sizeof FENpos ||
+ strlcat(FENpos, onMove, sizeof FENpos) >= sizeof FENpos) {
+ warnx("%s: strlcat() error (%s:%d)", __func__,
+ filename, i);
+ break;
+ }
+
+ (void) strlcpy(ptmp, "", sizeof tmp);
+
+ if (fgets(ptmp, sizeof tmp, fp) == NULL ||
+ feof(fp))
+ break;
+ else if (sscanf(ptmp, SCAN_ECO, ECO) != 1) {
+ warnx("%s: scan eco error (%s:%d)", __func__,
+ filename, i);
+ break;
+ }
+
+ if ((ECO_book[i] = malloc(sizeof(ECO_entry))) == NULL)
+ err(1, "Cound not alloc mem for ECO entry %d", i);
+
+ (void) strlcpy(ECO_book[i]->ECO, ECO,
+ sizeof(ECO_book[i]->ECO));
+ (void) strlcpy(ECO_book[i]->FENpos, FENpos,
+ sizeof(ECO_book[i]->FENpos));
+
+ ++i;
+ }
+
+ fclose(fp);
+ ECO_book[i] = NULL;
+
+ fprintf(stderr, "%d entries in ECO book\n", i);
+ ECO_entries = i;
+
+ while (--i >= 0) {
+ if (ECO_book[i] == NULL) {
+ fprintf(stderr, "ERROR! ECO book position number %d "
+ "is NULL.", i);
+ }
+ }
+}
+
+PUBLIC void
+NIC_init(void)
+{
+ FILE *fp;
+ char FENpos[FENPOS_SIZE] = { '\0' };
+ char NIC[6] = {0,0,0,0,0,0};
+ char filename[ECO_MAXFILENAME] = { '\0' };
+ char onMove[ONMOVE_SIZE] = {0,0};
+ char tmp[ECO_MAXTMP] = { '\0' };
+ char *ptmp = tmp;
+ int i = 0;
+
+ snprintf(filename, sizeof filename, "%s/nic999.idx", book_dir);
+
+ if ((fp = fopen(filename, "r")) == NULL)
+ err(1, "Could not open NIC file (%s)", filename);
+
+ while (!feof(fp)) {
+ (void) strlcpy(ptmp, "", sizeof tmp);
+
+ if (fgets(ptmp, sizeof tmp, fp) == NULL ||
+ feof(fp))
+ break;
+
+ if (sscanf(ptmp, SCAN_FP_AND_ONMOVE, FENpos, onMove) != 2) {
+ warnx("%s: sscanf() error (%s:%d)", __func__,
+ filename, i);
+ break;
+ } else if (strlcat(FENpos, " ", sizeof FENpos) >= sizeof FENpos ||
+ strlcat(FENpos, onMove, sizeof FENpos) >= sizeof FENpos) {
+ warnx("%s: strlcat() error (%s:%d)", __func__,
+ filename, i);
+ break;
+ }
+
+ (void) strlcpy(ptmp, "", sizeof tmp);
+
+ if (fgets(ptmp, sizeof tmp, fp) == NULL ||
+ feof(fp))
+ break;
+ else if (sscanf(ptmp, SCAN_NIC, NIC) != 1) {
+ warnx("%s: scan nic error (%s:%d)", __func__,
+ filename, i);
+ break;
+ }
+
+ if ((NIC_book[i] = malloc(sizeof(NIC_entry))) == NULL)
+ err(1, "Cound not alloc mem for NIC entry %d", i);
+
+ (void) strlcpy(NIC_book[i]->NIC, NIC,
+ sizeof(NIC_book[i]->NIC));
+ (void) strlcpy(NIC_book[i]->FENpos, FENpos,
+ sizeof(NIC_book[i]->FENpos));
+
+ ++i;
+ }
+
+ fclose(fp);
+ NIC_book[i] = NULL;
+
+ fprintf(stderr, "%d entries in NIC book\n", i);
+ NIC_entries = i;
+}
+
+PUBLIC void
+LONG_init(void)
+{
+ FILE *fp;
+ char FENpos[FENPOS_SIZE] = { '\0' };
+ char LONG[256] = { '\0' };
+ char filename[ECO_MAXFILENAME] = { '\0' };
+ char onMove[ONMOVE_SIZE] = {0,0};
+ char tmp[ECO_MAXTMP] = { '\0' };
+ char *ptmp = tmp;
+ int i = 0;
+
+ snprintf(filename, sizeof filename, "%s/long999.idx", book_dir);
+
+ if ((fp = fopen(filename, "r")) == NULL)
+ err(1, "Could not open LONG file (%s)", filename);
+
+ while (!feof(fp)) {
+ (void) strlcpy(ptmp, "", sizeof tmp);
+
+ if (fgets(ptmp, sizeof tmp, fp) == NULL ||
+ feof(fp))
+ break;
+
+ if (sscanf(ptmp, SCAN_FP_AND_ONMOVE, FENpos, onMove) != 2) {
+ warnx("%s: sscanf() error (%s:%d)", __func__,
+ filename, i);
+ break;
+ } else if (strlcat(FENpos, " ", sizeof FENpos) >= sizeof FENpos ||
+ strlcat(FENpos, onMove, sizeof FENpos) >= sizeof FENpos) {
+ warnx("%s: strlcat() error (%s:%d)", __func__,
+ filename, i);
+ break;
+ }
+
+ (void) strlcpy(ptmp, "", sizeof tmp);
+
+ if (fgets(ptmp, sizeof tmp, fp) == NULL ||
+ feof(fp))
+ break;
+ else if (sscanf(ptmp, SCAN_LONG, LONG) != 1) {
+ warnx("%s: scan long error (%s:%d)", __func__,
+ filename, i);
+ break;
+ }
+
+ if ((LONG_book[i] = malloc(sizeof(LONG_entry))) == NULL)
+ err(1, "Cound not alloc mem for LONG entry %d", i);
+
+ (void) strlcpy(LONG_book[i]->LONG, LONG,
+ sizeof(LONG_book[i]->LONG));
+ (void) strlcpy(LONG_book[i]->FENpos, FENpos,
+ sizeof(LONG_book[i]->FENpos));
+
+ ++i;
+ }
+
+ fclose(fp);
+ LONG_book[i] = NULL;
+
+ fprintf(stderr, "%d entries in LONG book\n", i);
+ LONG_entries = i;
+}
+
+PUBLIC void
+BookInit(void)
+{
+ ECO_init();
+ NIC_init();
+ LONG_init();
+}
+
+PUBLIC char *
+getECO(int g)
+{
+ static char ECO[4];
+
+#ifndef IGNORE_ECO
+ int i, flag, l, r, x;
+
+ if (parray[garray[g].white].private ||
+ parray[garray[g].black].private) {
+ (void) strlcpy(ECO, "---", sizeof ECO);
+ return ECO;
+ } else {
+ if (garray[g].type == TYPE_WILD) {
+ (void) strlcpy(ECO, "---", sizeof ECO);
+ return ECO;
+ } else if (garray[g].moveList == NULL) {
+ (void) strlcpy(ECO, "***", sizeof ECO);
+ return ECO;
+ } else {
+ (void) strlcpy(ECO, "A00", sizeof ECO);
+ }
+ }
+
+ flag = 0;
+ i = garray[g].numHalfMoves;
+
+ while (i > 0 && !flag) {
+ l = 0;
+ r = (ECO_entries - 1);
+
+ while ((r >= l) && !flag) {
+ x = ((l + r) / 2);
+
+ if (fencmp(garray[g].moveList[i].FENpos,
+ ECO_book[x]->FENpos) < 0)
+ r = (x - 1);
+ else
+ l = (x + 1);
+
+ if (!fencmp(garray[g].moveList[i].FENpos,
+ ECO_book[x]->FENpos)) {
+ (void)strlcpy(ECO, ECO_book[x]->ECO,
+ sizeof ECO);
+ flag = 1;
+ }
+ }
+
+ i--;
+ } /* while */
+#else
+ (void) strlcpy(ECO, "---", sizeof ECO);
+#endif
+ return ECO;
+}
+
+PUBLIC int
+com_eco(int p, param_list param)
+{
+#ifndef IGNORE_ECO
+ int g1, p1;
+ int i, flag = 0, x, l, r;
+
+ if (param[0].type == TYPE_NULL) { // own game
+ if (parray[p].game < 0) {
+ pprintf(p, "You are not playing or examining a game."
+ "\n");
+ return COM_OK;
+ }
+
+ g1 = parray[p].game;
+
+ if (garray[g1].status != GAME_EXAMINE && !pIsPlaying(p))
+ return COM_OK;
+ } else {
+ if ((g1 = GameNumFromParam(p, &p1, &param[0])) < 0)
+ return COM_OK;
+ if (g1 >= g_num ||
+ (garray[g1].status != GAME_ACTIVE &&
+ garray[g1].status != GAME_EXAMINE)) {
+ pprintf(p, "There is no such game.\n");
+ return COM_OK;
+ }
+ }
+
+ if ((parray[garray[g1].white].private ||
+ parray[garray[g1].black].private) &&
+ parray[p].adminLevel == 0) {
+ pprintf(p, "Sorry - that game is private.\n");
+ return COM_OK;
+ } else {
+ if (garray[g1].type == TYPE_WILD) {
+ pprintf(p, "That game is a wild game.\n");
+ return COM_OK;
+ }
+ }
+
+ pprintf(p, "Info about game %d: \"%s vs. %s\"\n\n", (g1 + 1),
+ garray[g1].white_name,
+ garray[g1].black_name);
+
+ if (garray[g1].moveList == NULL)
+ return COM_OK;
+
+ /*
+ * ECO
+ */
+ flag = 0;
+ i = garray[g1].numHalfMoves;
+
+ while (i > 0 && !flag) {
+ l = 0;
+ r = (ECO_entries - 1);
+
+ while (r >= l && !flag) {
+ x = ((l + r) / 2);
+
+ if (fencmp(garray[g1].moveList[i].FENpos,
+ ECO_book[x]->FENpos) < 0)
+ r = (x - 1);
+ else
+ l = (x + 1);
+
+ if (!fencmp(garray[g1].moveList[i].FENpos,
+ ECO_book[x]->FENpos)) {
+ pprintf(p, " ECO[%3d]: %s\n", i,
+ ECO_book[x]->ECO);
+ flag = 1;
+ }
+ }
+
+ i--;
+ } /* while */
+
+ /*
+ * NIC
+ */
+ flag = 0;
+ i = garray[g1].numHalfMoves;
+
+ while (i > 0 && !flag) {
+ l = 0;
+ r = (NIC_entries - 1);
+
+ while (r >= l && !flag) {
+ x = ((l + r) / 2);
+
+ if (fencmp(garray[g1].moveList[i].FENpos,
+ NIC_book[x]->FENpos) < 0)
+ r = (x - 1);
+ else
+ l = (x + 1);
+
+ if (!fencmp(garray[g1].moveList[i].FENpos,
+ NIC_book[x]->FENpos)) {
+ pprintf(p, " NIC[%3d]: %s\n", i,
+ NIC_book[x]->NIC);
+ flag = 1;
+ }
+ }
+
+ i--;
+ } /* while */
+
+ /*
+ * LONG
+ */
+ flag = 0;
+ i = garray[g1].numHalfMoves;
+
+ while (i > 0 && !flag) {
+ l = 0;
+ r = (LONG_entries - 1);
+
+ while (r >= l && !flag) {
+ x = ((l + r) / 2);
+
+ if (fencmp(garray[g1].moveList[i].FENpos,
+ LONG_book[x]->FENpos) < 0)
+ r = (x - 1);
+ else
+ l = (x + 1);
+
+ if (!fencmp(garray[g1].moveList[i].FENpos,
+ LONG_book[x]->FENpos)) {
+ pprintf(p, " LONG[%3d]: %s\n", i,
+ LONG_book[x]->LONG);
+ flag = 1;
+ }
+ }
+
+ i--;
+ } /* while */
+#else
+ pprintf(p, "ECO not available... out of service!.\n");
+#endif
+ return COM_OK;
+}
generated by cgit v1.2.3 (git 2.25.1) at 2025-10-08 08:05:19 +0000