Given the recent increased progress on chess GUIs , Some have already recent files and specially replay training like that of ChessBase software. Or they can implement them. For the time being I may spend time on soft-wares other than Xboard.
Yet it has some flaws that need to be corrected too. The following code is an attempt to fix one of them. Code has to be executed in every Xboard project folder. Also when the wrong pattern happens in multiple lines , they have to be corrected manually. Like search and replace.
Code: Select all
// This code corrects a P((args)) to (args) , single line in XBoard project
#include <assert.h>
#include <stdio.h>
#include <stdlib.h>
#include <stdbool.h>
#include <ctype.h>
#include <stdnoreturn.h>
#include <unistd.h>
#include <limits.h>
#include <pthread.h>
#include <glib.h>
#include <glib/gstdio.h>
#include <glib/gdir.h>
#include <fcntl.h>
#include <sys/types.h>
#include <sys/stat.h>
#define STR_SIZE 256
#define MY_FN "my_temp.tmp"
bool extension(gchar *fn, const char c);
bool ccode(gchar *fn);
void copy_file(const char* const from , char * to);
void restyle(const char * const line_str , char *rsl);
noreturn void err_exit(char * s);
int main(void)
{
FILE * my_tempfile;
gchar fn[128]={'\0'};
gchar * fn_ptr=&fn[0];
char line_str[STR_SIZE]={'\0'};
FILE *sf=NULL;
gchar cwd[256]={'\0'};
gchar * cwd_ptr;
GDir *dir_ptr;
cwd_ptr=strcpy(&cwd[0],g_get_current_dir() );
if( cwd_ptr==NULL)
perror("Bad dir.\n");
g_printf("cwd is %s \n\n",cwd);
dir_ptr=g_dir_open(cwd,0,NULL);
if(dir_ptr==NULL)
perror("dir err.\n");
while( (fn_ptr=g_dir_read_name(dir_ptr)) !=NULL) // read all files
{
g_print(">fn is %s\n",fn_ptr);
if(ccode(fn_ptr))
{
my_tempfile=fopen(MY_FN,"wt");
printf(">>ccode is %s\n",fn_ptr);
sf=fopen(fn_ptr,"rt");
int l=0;
while(fgets(line_str,STR_SIZE-1,sf) !=NULL) // read all lines in sf
{
l++;
char rsl[STR_SIZE];
restyle(line_str, rsl);
fprintf(my_tempfile, "%s",rsl);
}
fclose(sf);
fclose(my_tempfile);
copy_file(MY_FN,fn_ptr);
g_print(">>>file %s was updated.\n\n",fn_ptr);
}
}
return EXIT_SUCCESS;
}
bool ccode(gchar *fn)
{
bool r=false;
size_t sl=strlen(fn);
if(strstr(fn,".c")!=NULL && isalpha(fn[0]) && extension(fn,'c'))
return true;
if(strstr(fn,".h")!=NULL && isalpha(fn[0]) && extension(fn,'h'))
return true;
return r;
}
bool extension(gchar *fn, const char c)
{
size_t sl=strlen(fn);
assert(sl>=3);
if(fn[sl]=='\0' && fn[sl-1]==c && fn[sl-2]=='.')
return true;
return false;
}
void copy_file(const char* const from , char *to)
{
FILE *f1;
FILE *f2;
int c; // consider EOF
assert(from != to);
assert(from != NULL);
assert(to != NULL);
f1 = fopen(from, "rt");
if(f1==NULL)
err_exit("opening f1");
f2 = fopen(to, "wt");
if(f2==NULL)
err_exit("opening f2");
rewind(f1);
rewind(f2);
c = fgetc(f1);
if(c==EOF)
err_exit("first char in f1");
while(c != EOF)
{
fputc(c, f2);
c = fgetc(f1);
}
fclose(f1);
fclose(f2);
return;
}
void restyle(const char * const line_str , char *rsl)
{
char * old_open=strstr(line_str,"P((");
char * old_close= strstr(line_str,"))");
strncpy(&rsl[0], &line_str[0], STR_SIZE-1);
size_t sl=strlen(line_str);
assert(sl<STR_SIZE);
if(old_open!=NULL && old_close!=NULL ) // line needs updating
{
assert(old_open<old_close);
assert(old_open>line_str);
assert(old_close>line_str);
assert(old_open<line_str+sl);
assert(old_close<line_str+sl);
int n;
old_open=strstr(line_str,"P((");
assert(old_open!=NULL);
char rslt1[STR_SIZE]={'\0'};
strncpy(&rslt1[0], &line_str[0], STR_SIZE-1);
for(n=0; line_str[n]!='\0'&& line_str[n+1]!='\0'&&n<512; n++)
if(line_str+n >= old_open)
{
rsl[n]=rslt1[n+2];
}
old_close= strstr(rsl,"))");
assert(old_close!=NULL);
char rslt[STR_SIZE]={'\0'};
strncpy(&rslt[0], &rsl[0], STR_SIZE-1);
for(n=0; rsl[n]!='\0' && n<512; n++)
if(rsl+n >= old_close)
{
rsl[n]=rslt[n+1];
}
}
return ;
}
noreturn void err_exit(char * s)
{
perror(s);
exit(EXIT_FAILURE);
}
