WebSVN – Games.Chess Giants – Diff – //pgnfile.cpp

       { \
          (dest)[char_index] = 0; \
          break; \
       } \
+}
+// global variables used in this module only
+static char *pgnfile_data = NULL; // mallocated
+static size_t pgnfile_size = 0;
 // prototypes of local functions
 static void PGNFile_GameList_Init (int entry_count);
 static void PGNFile_GameList_Shutdown (void);
 bool PGNFile_Load (const wchar_t *pgnfile_pathname)
+{
    // this function loads a PGN file and builds the game databases of the games described in this file
    char line_buffer[256]; // PGN files have 256 chars max per line by design
-   char *file_data; // mallocated
    char *buffer;
-   int file_size;
    int file_index;
    int char_index;
    int entry_count;
    FILE *fp;
    size_t converted_count; // used by the STRING_TO_CHAR macro
    if (fp == NULL)
       return (false); // on error, cancel
    // get file length
    fseek (fp, 0, SEEK_END);
-   file_size = ftell (fp);
+   pgnfile_size = ftell (fp);
    fseek (fp, 0, SEEK_SET);
    // mallocate space for it and read it all at once
-   file_data = (char *) SAFE_malloc (file_size, sizeof (char), false);
+   pgnfile_data = (char *) SAFE_realloc (pgnfile_data, 0, pgnfile_size, sizeof (char), false);
-   fread (file_data, file_size, 1, fp);
+   fread (pgnfile_data, pgnfile_size, 1, fp);
    fclose (fp); // we no longer need the file, so close it
    // now the file is fully loaded in memory
    // read line per line and count the number of games
-   buffer = file_data;
+   buffer = pgnfile_data;
    entry_count = 0;
    while ((buffer = sgets (line_buffer, sizeof (line_buffer), buffer)) != NULL)
       if (strncmp (line_buffer, "[Event \"", 8) == 0)
          entry_count++; // we know now one game more
    // now prepare the games database for "entry_count" games
    PGNFile_GameList_Init (entry_count);
    // read line per line
-   buffer = file_data;
+   buffer = pgnfile_data;
    entry_count = 0;
    file_index = 0;
    while ((buffer = sgets (line_buffer, sizeof (line_buffer), buffer)) != NULL)
+   {
       // is it a new game ?
          // else is it the beginning of a game ?
          else if (strncmp (line_buffer, "1.", 2) == 0)
             games[entry_count - 1].gamedata_start = file_index; // remember where this game starts
+      }
-      file_index = buffer - file_data; // save current file pointer index
+      file_index = buffer - pgnfile_data; // save current file pointer index
+   }
-   // we no longer need the file data space, so free it
-   SAFE_free ((void **) &file_data);
    return (true); // finished, return TRUE
+}
    // this function loads and parses a game data in a PGN file. If the selected game is NULL, it means that
    // the user didn't want to chose any game at all, so just free the games list and return a success value.
    static wchar_t pgn_comment[65536]; // declared static so as not to reallocate it
-   char *file_data; // mallocated
    boardmove_t new_move;
-   int file_size;
    int length;
    int char_index;
    int fieldstart;
    int fieldstop;
    int variation_depth;
    char movenumber_string[8];
-   FILE *fp;
    // did we chose NO game ?
    if (game == NULL)
+   {
       PGNFile_GameList_Shutdown (); // free the games list
+      SAFE_free ((void **) &pgnfile_data); // free the file data space
       return (true); // return success as there's nothing to load
+   }
-   // try to open file for reading in BINARY mode so as NOT to convert end of lines
-   _wfopen_s (&fp, pgnfile_pathname, L"rb");
-   if (fp == NULL)
-   {
-      PGNFile_GameList_Shutdown (); // free the games list
-      return (false); // on error, cancel
-   }
-   // get file length
-   fseek (fp, 0, SEEK_END);
-   file_size = ftell (fp);
-   fseek (fp, 0, SEEK_SET);
-   // mallocate space for it and read it all at once
-   file_data = (char *) SAFE_malloc (file_size, sizeof (char), false);
-   fread (file_data, file_size, 1, fp);
-   fclose (fp); // we no longer need the file, so close it
-   // now the file is fully loaded in memory
    // reset the board (but NOT the players, just their view angles)
    Board_Reset (board, game->fen_str);
    animation_endtime = current_time + 2.0f; // HACK: this sorta prevents the "load file" dialog box trailing clicks to be misinterpreted
+   {
       // build the move number string
       sprintf_s (movenumber_string, sizeof (movenumber_string), "%d.", 1 + board->move_count / 2);
       // is it a space ?
-      if (isspace (file_data[char_index]))
+      if (isspace (pgnfile_data[char_index]))
+      {
          char_index++; // if so, skip it
          continue; // and proceed to the next data
+      }
       // else is what we're reading a move number ?
-      else if (strncmp (&file_data[char_index], movenumber_string, strlen (movenumber_string)) == 0)
+      else if (strncmp (&pgnfile_data[char_index], movenumber_string, strlen (movenumber_string)) == 0)
+      {
          char_index += strlen (movenumber_string); // if so, skip it
          continue; // and proceed to the next data
+      }
       // else is it a dot ?
-      else if (file_data[char_index] == '.')
+      else if (pgnfile_data[char_index] == '.')
+      {
          char_index++; // if so, skip it
          continue; // and proceed to the next data
+      }
       // else is it an en passant notification ?
-      else if (strncmp (&file_data[char_index], "e.p.", 4) == 0)
+      else if (strncmp (&pgnfile_data[char_index], "e.p.", 4) == 0)
+      {
          char_index += 4; // this notification is superfluous, skip it
          continue; // and proceed to the next data
+      }
       // else is it a comment ?
-      else if (file_data[char_index] == '{')
+      else if (pgnfile_data[char_index] == '{')
+      {
          fieldstart = char_index + 1; // skip the leading brace
-         while ((fieldstart < file_size) && isspace (file_data[fieldstart]))
+         while ((fieldstart < (int) pgnfile_size) && isspace (pgnfile_data[fieldstart]))
             fieldstart++; // skip any leading spaces
          // move through all the other characters...
-         for (fieldstop = fieldstart; fieldstop < file_size; fieldstop++)
+         for (fieldstop = fieldstart; fieldstop < (int) pgnfile_size; fieldstop++)
-            if (file_data[fieldstop] == '}')
+            if (pgnfile_data[fieldstop] == '}')
                break; // and stop at the first closing brace we find
          char_index = fieldstop + 1; // remember where to continue reading (that is, after the closing brace)
-         while ((fieldstop > 0) && isspace (file_data[fieldstop]))
+         while ((fieldstop > 0) && isspace (pgnfile_data[fieldstop]))
             fieldstop--; // chop off any trailing spaces
-         file_data[fieldstop] = 0; // break the string at this location
+         pgnfile_data[fieldstop] = 0; // break the string at this location
          // now copy out the commentary by appending it to the one we know already
          if (pgn_comment[0] != 0)
             wcscat_s (pgn_comment, WCHAR_SIZEOF (pgn_comment), L" ");
          length = wcslen (pgn_comment);
-         ConvertToWideChar (&pgn_comment[length], WCHAR_SIZEOF (pgn_comment) - length, &file_data[fieldstart]);
+         ConvertToWideChar (&pgn_comment[length], WCHAR_SIZEOF (pgn_comment) - length, &pgnfile_data[fieldstart]);
          ConvertCRLFsToSingleSpaces (pgn_comment); // linearize string
          continue; // and proceed to the next data
+      }
       // else is it a numeric annotation glyph ? if so, just ignore it (FIXME: better support this)
-      else if (file_data[char_index] == '$')
+      else if (pgnfile_data[char_index] == '$')
+      {
-         while ((char_index < file_size) && !isspace (file_data[char_index]))
+         while ((char_index < (int) pgnfile_size) && !isspace (pgnfile_data[char_index]))
             char_index++; // figure out where it stops
-         while ((char_index < file_size) && isspace (file_data[char_index]))
+         while ((char_index < (int) pgnfile_size) && isspace (pgnfile_data[char_index]))
             char_index++; // figure out where the next word starts
          continue; // and proceed to the next data
+      }
       // else is it a variation ? if so, just ignore it (FIXME: better support this)
-      else if (file_data[char_index] == '(')
+      else if (pgnfile_data[char_index] == '(')
+      {
          variation_depth = 1;
-         while ((char_index < file_size) && (variation_depth != 0))
+         while ((char_index < (int) pgnfile_size) && (variation_depth != 0))
+         {
             char_index++; // move through file data and cope with nested variations
-            if      (file_data[char_index] == '(') variation_depth++;
+            if      (pgnfile_data[char_index] == '(') variation_depth++;
-            else if (file_data[char_index] == ')') variation_depth--;
+            else if (pgnfile_data[char_index] == ')') variation_depth--;
+         }
          char_index++; // skip the closing parenthese
-         while ((char_index < file_size) && isspace (file_data[char_index]))
+         while ((char_index < (int) pgnfile_size) && isspace (pgnfile_data[char_index]))
             char_index++; // figure out where the next word starts
          continue; // and proceed to the next data
+      }
       // else is it a game result ?
-      else if ((strncmp (&file_data[char_index], "1/2-1/2", 7) == 0)
+      else if ((strncmp (&pgnfile_data[char_index], "1/2-1/2", 7) == 0)
-               || (strncmp (&file_data[char_index], "1-0", 3) == 0)
+               || (strncmp (&pgnfile_data[char_index], "1-0", 3) == 0)
-               || (strncmp (&file_data[char_index], "0-1", 3) == 0)
+               || (strncmp (&pgnfile_data[char_index], "0-1", 3) == 0)
-               || (file_data[char_index] == '*'))
+               || (pgnfile_data[char_index] == '*'))
+      {
          // if there's a move pending, validate it
          if ((new_move.source[0] != -1) && (new_move.source[1] != -1) && (new_move.target[0] != -1) && (new_move.target[1] != -1))
+         {
             Board_AppendMove (board, new_move.source[0], new_move.source[1], new_move.target[0], new_move.target[1], new_move.promotion_type, pgn_comment); // save move
             new_move.promotion_type = 0;
             pgn_comment[0] = 0; // reset comment
+         }
          // convert the move string data to wide char
-         ConvertToWideChar (new_move.pgntext, WCHAR_SIZEOF (new_move.pgntext), &file_data[char_index]);
+         ConvertToWideChar (new_move.pgntext, WCHAR_SIZEOF (new_move.pgntext), &pgnfile_data[char_index]);
          // evaluate the string in Standard Algebraic Notation and find the source, destination, part type and promotion
          if (!Move_SetupFromSAN (&board->moves[board->move_count - 1], &new_move, Board_ColorToMove (board)))
+         {
             PGNFile_GameList_Shutdown (); // free the games list
-            SAFE_free ((void **) &file_data); // free the file data space
+            SAFE_free ((void **) &pgnfile_data); // free the file data space
             return (false); // on error, cancel
+         }
          // find where it stops
-         while ((char_index < file_size) && !isspace (file_data[char_index]))
+         while ((char_index < (int) pgnfile_size) && !isspace (pgnfile_data[char_index]))
             char_index++; // reach the next space
          char_index++; // remember where to continue reading (that is, after the next space)
          continue; // and proceed to the next data
+      }
    // we loaded the game we want, we no longer need the games array
    PGNFile_GameList_Shutdown ();
    // we no longer need the file data space, so free it
-   SAFE_free ((void **) &file_data);
+   SAFE_free ((void **) &pgnfile_data);
    return (true); // game loaded successfully, return TRUE
+}

Subversion Repositories Games.Chess Giants

Games.Chess Giants//pgnfile.cpp – Rev 66 → 68