X-Git-Url: http://winboard.nl/cgi-bin?p=xboard.git;a=blobdiff_plain;f=parser.c;h=4c634ca3a6a5e139ec317bb063e5a7dda92796f2;hp=946729e5b3f787018810d2b8c134f41464cd90de;hb=ebf8f690dfc868c231baacd2232840e14586d00f;hpb=69992f105f8efcdc71dc04a96d14f2b6e6f25fac

diff --git a/parser.c b/parser.c
index 946729e..4c634ca 100644
--- a/parser.c
+++ b/parser.c
@@ -1,7 +1,7 @@
 /*
  * parser.c --
  *
- * Copyright 2011, 2012, 2013, 2014, 2015 Free Software Foundation, Inc.
+ * Copyright 2011, 2012, 2013, 2014, 2015, 2016 Free Software Foundation, Inc.
  * ------------------------------------------------------------------------
  *
  * GNU XBoard is free software: you can redistribute it and/or modify
@@ -285,7 +285,7 @@ KifuMove (char **p)
 int
 ReadLine ()
 {   // Read one line from the input file, and append to the buffer
-    char c, *start = inPtr;
+    int c; char *start = inPtr;
     if(fromString) return 0; // parsing string, so the end is a hard end
     if(!inputFile) return 0;
     while((c = fgetc(inputFile)) != EOF) {
@@ -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;
 	    if(!ReadLine()) return 0; // EOF
 	} 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[1] != type[2] && // means fromY is of opposite type as ToX, or NOTHING
 		(type[0] == NOTHING || type[0] == type[2]) ) { // well formed
-
+		int suffix = 7;
 		fromX = (currentMoveString[0] = coord[0] + 'a') - AAA;
 		fromY = (currentMoveString[1] = coord[1] + '0') - ONE;
 		currentMoveString[4] = cl.promoCharIn = PromoSuffix(p);
 		currentMoveString[5] = 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[7] = (kill2X = toX) + AAA; // what we thought was to-square is in fact 1st kill-square of two
+			currentMoveString[8] = (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[5] = (killX = toX) + AAA; // what we thought was to-square is in fact kill-square
 		    currentMoveString[6] = (killY = toY) + ONE; // append it as suffix behind long algebraic move
 		    currentMoveString[4] = ';';
-		    currentMoveString[7] = 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[2] = *++*p) - AAA; ++*p;
 		    toY = cl.rtIn = (currentMoveString[3] = Number(p) + '0') - ONE;
+		    currentMoveString[suffix] = cl.promoCharIn = PromoSuffix(p);
 		}
 		if(type[0] != NOTHING && type[1] != NOTHING && type[3] != NOTHING) { // fully specified.
 		    ChessSquare realPiece = boards[yyboardindex][fromY][fromX];
@@ -572,7 +585,7 @@ NextUnit (char **p)
 		if(killX < 0) // [HGM] lion: do not overwrite kill-square suffix
 		currentMoveString[4] = cl.promoChar;
 
-		if((cl.kind == WhiteCapturesEnPassant || cl.kind == BlackCapturesEnPassant) && (Match("ep", p) || Match("e.p.", p)));
+		if((cl.kind == WhiteCapturesEnPassant || cl.kind == BlackCapturesEnPassant) && !Match("ep", p)) Match("e.p.", p);
 
 		return (int) cl.kind;
 	    }