index 1d18403..e325005 100644 (file)
--- a/parser.c
+++ b/parser.c
@@ -404,7 +404,7 @@ NextUnit (char **p)

if(**p == NULLCHAR) { // make sure there is something to parse
if(fromString) return 0; // we are parsing string, so the end is really the end
-           *p = inPtr = inputBuf;
+           *p = inPtr = parseStart = inputBuf;
} else if(inPtr > inputBuf + PARSEBUFSIZE/2) { // buffer fills up with already parsed stuff
char *q = *p, *r = inputBuf;
@@ -510,19 +510,32 @@ NextUnit (char **p)
}
if(  type != type && // means fromY is of opposite type as ToX, or NOTHING
(type == NOTHING || type == type) ) { // well formed
-
+               int suffix = 7;
fromX = (currentMoveString = coord + 'a') - AAA;
fromY = (currentMoveString = coord + '0') - ONE;
currentMoveString = cl.promoCharIn = PromoSuffix(p);
currentMoveString = NULLCHAR;
+               if(**p == 'x' && !cl.promoCharIn) { // other leg follows
+                   char *q = *p;
+                   int x = *++*p, y;
+                   ++*p; y = Number(p);
+                   if(**p == '-' || **p == 'x') {  // 3-leg move!
+                       currentMoveString = (kill2X = toX) + AAA; // what we thought was to-square is in fact 1st kill-square of two
+                       currentMoveString = (kill2Y = toY) + ONE; // append it after 2nd kill-square
+                       toX = x - AAA;       // kludge alert: this will become 2nd kill square
+                       toY = y + '0' - ONE;
+                       suffix += 2;
+                   } else *p = q; // 2-leg move, rewind to leave reading of 2nd leg to code below
+               }
if(!cl.promoCharIn && (**p == '-' || **p == 'x')) { // Lion-type multi-leg move
currentMoveString = (killX = toX) + AAA; // what we thought was to-square is in fact kill-square
currentMoveString = (killY = toY) + ONE; // append it as suffix behind long algebraic move
currentMoveString = ';';
-                   currentMoveString = NULLCHAR;
+                   currentMoveString[suffix+1] = NULLCHAR;
// read new to-square (VERY non-robust! Assumes correct (non-alpha-rank) syntax, and messes up on errors)
toX = cl.ftIn = (currentMoveString = *++*p) - AAA; ++*p;
toY = cl.rtIn = (currentMoveString = Number(p) + '0') - ONE;
+                   currentMoveString[suffix] = cl.promoCharIn = PromoSuffix(p);
}
if(type != NOTHING && type != NOTHING && type != NOTHING) { // fully specified.
ChessSquare realPiece = boards[yyboardindex][fromY][fromX];