X-Git-Url: http://winboard.nl/cgi-bin?p=polyglot.git;a=blobdiff_plain;f=util.c;h=c1d267d288f2a23193ccf5e9097504ff9ced3c3b;hp=0d75adfa88939dfcb2edc7f07c53ebaace3d24b5;hb=HEAD;hpb=a0f731f21d6aa26dbf7246039a1c66c2ade0533f

diff --git a/util.c b/util.c
index 0d75adf..c1d267d 100644
--- a/util.c
+++ b/util.c
@@ -1,398 +1,526 @@
-
-// util.c
-
-// includes
-
-#ifdef _WIN32
-#include <windows.h>
-#include <direct.h>
-#else
-#include <unistd.h>
-#endif
-
-#include <ctype.h>
-#include <errno.h>
-#include <math.h>
-#include <stdarg.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include <time.h>
-#include <sys/time.h>
-
-#include "main.h"
-#include "util.h"
-
-// variables
-
-static bool Error;
-
-FILE * LogFile=NULL;
-
-// functions
-
-// util_init()
-
-void util_init() {
-
-   Error = FALSE;
-
-   // init log file
-
-   LogFile = NULL;
-
-   // switch file buffering off
-
-   setbuf(stdin,NULL);
-   setbuf(stdout,NULL);
-}
-
-// my_random_init()
-
-void my_random_init() {
-   srand(time(NULL));
-}
-
-// my_random_int()
-
-int my_random_int(int n) {
-
-   int r;
-
-   ASSERT(n>0);
-
-   r = ((int)floor(my_random_double()*((double)n)));
-   ASSERT(r>=0&&r<n);
-
-   return r;
-}
-
-// my_random_double()
-
-double my_random_double() {
-
-   double r;
-
-   r = ((double)rand()) / (((double)RAND_MAX) + 1.0);
-   ASSERT(r>=0.0&&r<1.0);
-
-   return r;
-}
-
-// my_atoll()
-
-sint64 my_atoll(const char string[]) {
-
-   sint64 n;
-
-   sscanf(string,S64_FORMAT,&n);
-
-   return n;
-}
-
-// my_round()
-
-int my_round(double x) {
-
-    return ((int)floor(x+0.5));
-}
-
-// my_malloc()
-
-void * my_malloc(size_t size) {
-
-   void * address;
-
-   ASSERT(size>0);
-
-   address = malloc(size);
-   if (address == NULL) my_fatal("my_malloc(): malloc(): %s\n",strerror(errno));
-
-   return address;
-}
-
-// my_realloc()
-
-void * my_realloc(void * address, size_t size) {
-
-   ASSERT(address!=NULL);
-   ASSERT(size>0);
-
-   address = realloc(address,size);
-   if (address == NULL) my_fatal("my_realloc(): realloc(): %s\n",strerror(errno));
-
-   return address;
-}
-
-// my_free()
-
-void my_free(void * address) {
-
-   ASSERT(address!=NULL);
-
-   free(address);
-}
-
-// my_log_open()
-
-void my_log_open(const char file_name[]) {
-
-   ASSERT(file_name!=NULL);
-
-   LogFile = fopen(file_name,"a");
-#ifndef _WIN32
-//line buffering doesn't work too well in MSVC and/or windows 
-   if (LogFile != NULL) setvbuf(LogFile,NULL,_IOLBF,0); // line buffering
-#endif
-}
-
-// my_log_close()
-
-void my_log_close() {
-
-   if (LogFile != NULL) fclose(LogFile);
-   LogFile=NULL;
-}
-
-// my_log()
-
-void my_log(const char format[], ...) {
-    
-    char string[FormatBufferSize];
-    
-    ASSERT(format!=NULL);
-
-//  format
-
-    CONSTRUCT_ARG_STRING(format,string);
-    
-
-    if (LogFile != NULL) {
-        fprintf(LogFile,"%.3f %s",now_real(),string);
-#ifdef _WIN32
-        fflush(LogFile);
-#endif
-    }
-}
-
-// my_fatal()
-
-void my_fatal(const char format[], ...) {
-
-    char string[FormatBufferSize];
-
-    ASSERT(format!=NULL);
-
-// format
-
-    CONSTRUCT_ARG_STRING(format,string);
-    
-    fprintf(stderr,format,string);
-    if (LogFile != NULL) fprintf(LogFile,format,&string);
-
-    if (Error) { // recursive error
-        my_log("POLYGLOT *** RECURSIVE ERROR ***\n");
-        exit(EXIT_FAILURE);
-            // abort();
-    } else {
-        Error = TRUE;
-        quit();
-    }
-}
-
-// my_file_read_line()
-
-bool my_file_read_line(FILE * file, char string[], int size) {
-
-   int src, dst;
-   int c;
-
-   ASSERT(file!=NULL);
-   ASSERT(string!=NULL);
-   ASSERT(size>0);
-
-   if (fgets(string,size,file) == NULL) {
-      if (feof(file)) {
-         return FALSE;
-      } else { // error
-         my_fatal("my_file_read_line(): fgets(): %s\n",strerror(errno));
-      }
-   }
-
-   // remove CRs and LFs
-
-   src = 0;
-   dst = 0;
-   
-   while ((c=string[src++]) != '\0') {
-      if (c != '\r' && c != '\n') string[dst++] = c;
-   }
-
-   string[dst] = '\0';
-
-   return TRUE;
-}
-
-// my_string_empty()
-
-bool my_string_empty(const char string[]) {
-
-   return string == NULL || string[0] == '\0';
-}
-
-// my_string_whitespace()
-
-bool my_string_whitespace(const char string[]){
-    int pos=0;
-    while(string[pos]!='\0'){
-        if(string[pos]!=' ' && string[pos]!='\t'){
-            return FALSE;
-        }
-        pos++;
-    }
-    return TRUE;
-}
-
-// my_string_equal()
-
-bool my_string_equal(const char string_1[], const char string_2[]) {
-
-   ASSERT(string_1!=NULL);
-   ASSERT(string_2!=NULL);
-
-   return strcmp(string_1,string_2) == 0;
-}
-
-// my_string_case_equal()
-
-bool my_string_case_equal(const char string_1[], const char string_2[]) {
-
-   int c1, c2;
-
-   ASSERT(string_1!=NULL);
-   ASSERT(string_2!=NULL);
-
-   while (TRUE) {
-
-      c1 = *string_1++;
-      c2 = *string_2++;
-
-      if (tolower(c1) != tolower(c2)) return FALSE;
-      if (c1 == '\0') return TRUE;
-   }
-
-   return FALSE;
-}
-
-// my_strdup()
-
-char * my_strdup(const char string[]) {
-
-   char * address;
-
-   ASSERT(string!=NULL);
-
-   // strdup() is not ANSI C
-
-   address = (char *) my_malloc(strlen(string)+1);
-   strcpy(address,string);
-
-   return address;
-}
-
-// my_string_clear()
-
-void my_string_clear(const char * * variable) {
-
-   ASSERT(variable!=NULL);
-
-   if (*variable != NULL) {
-      my_free((void*)(*variable));
-      *variable = NULL;
-   }
-}
-
-// my_string_set()
-
-void my_string_set(const char * * variable, const char string[]) {
-
-   ASSERT(variable!=NULL);
-   ASSERT(string!=NULL);
-
-   if (*variable != NULL) my_free((void*)(*variable));
-   *variable = my_strdup(string);
-}
-
-double now_real() {
-#ifndef _WIN32
-   struct timeval tv[1];
-   struct timezone tz[1];
-
-   tz->tz_minuteswest = 0;
-   tz->tz_dsttime = 0; // DST_NONE not declared in linux
-
-   if (gettimeofday(tv,tz) == -1) {
-      my_fatal("now_real(): gettimeofday(): %s\n",strerror(errno));
-   }
-
-   return tv->tv_sec + tv->tv_usec * 1E-6;
-#else
-   return (double) GetTickCount() / 1000.0;  // we can do better here:-)
-#endif
-}
-
-
-// my_timer_reset()
-
-void my_timer_reset(my_timer_t * timer) {
-
-   ASSERT(timer!=NULL);
-
-   timer->start_real = 0.0;
-   timer->elapsed_real = 0.0;
-   timer->running = FALSE;
-}
-
-// my_timer_start()
-
-void my_timer_start(my_timer_t * timer) {
-// timer->start_real = 0.0;
-   timer->elapsed_real = 0.0;
-// timer->running = FALSE;
-   ASSERT(timer!=NULL);
-
-   timer->running = TRUE;
-   timer->start_real = now_real();
-}
-
-// my_timer_stop()
-
-void my_timer_stop(my_timer_t * timer) {
-
-   ASSERT(timer!=NULL);
-
-   ASSERT(timer->running);
-
-   timer->elapsed_real += now_real() - timer->start_real;
-   timer->start_real = 0.0;
-   timer->running = FALSE;
-}
-
-// my_timer_elapsed_real()
-
-double my_timer_elapsed_real(const my_timer_t * timer) {
-
-   double elapsed;
-
-   ASSERT(timer!=NULL);
-
-   elapsed = timer->elapsed_real;
-   if (timer->running) elapsed += now_real() - timer->start_real;
-
-   if (elapsed < 0.0) elapsed = 0.0;
-
-   return elapsed;
-}
-
-
-
+
+// util.c
+
+// includes
+
+#ifdef _WIN32
+#include <windows.h>
+#include <direct.h>
+#else
+#include <unistd.h>
+#endif
+
+#include <ctype.h>
+#include <errno.h>
+#include <math.h>
+#include <stdarg.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <time.h>
+#ifndef _MSC_VER
+#include <sys/time.h>
+#endif
+
+#include "main.h"
+#include "util.h"
+#include "gui.h"
+
+// macros
+
+#define StringSize 4096
+
+// variables
+
+static bool Error;
+
+FILE * LogFile=NULL;
+
+// functions
+
+// util_init()
+
+void util_init() {
+
+   Error = FALSE;
+
+   // init log file
+
+   LogFile = NULL;
+
+   // switch file buffering off
+
+   setbuf(stdin,NULL);
+   setbuf(stdout,NULL);
+}
+
+// my_random_init()
+
+void my_random_init() {
+   srand(time(NULL));
+}
+
+// my_random_int()
+
+int my_random_int(int n) {
+
+   int r;
+
+   ASSERT(n>0);
+
+   r = ((int)floor(my_random_double()*((double)n)));
+   ASSERT(r>=0&&r<n);
+
+   return r;
+}
+
+// my_random_double()
+
+double my_random_double() {
+
+   double r;
+
+   r = ((double)rand()) / (((double)RAND_MAX) + 1.0);
+   ASSERT(r>=0.0&&r<1.0);
+
+   return r;
+}
+
+// my_atoll()
+
+sint64 my_atoll(const char string[]) {
+
+   sint64 n;
+
+   sscanf(string,S64_FORMAT,&n);
+
+   return n;
+}
+
+// my_round()
+
+int my_round(double x) {
+
+    return ((int)floor(x+0.5));
+}
+
+// my_malloc()
+
+void * my_malloc(size_t size) {
+
+   void * address;
+
+   ASSERT(size>0);
+
+   address = malloc(size);
+   if (address == NULL) my_fatal("my_malloc(): malloc(): %s\n",strerror(errno));
+
+   return address;
+}
+
+// my_realloc()
+
+void * my_realloc(void * address, size_t size) {
+
+   ASSERT(address!=NULL);
+   ASSERT(size>0);
+
+   address = realloc(address,size);
+   if (address == NULL) my_fatal("my_realloc(): realloc(): %s\n",strerror(errno));
+
+   return address;
+}
+
+// my_free()
+
+void my_free(void * address) {
+
+   ASSERT(address!=NULL);
+
+   free(address);
+}
+
+// my_log_open()
+
+void my_log_open(const char file_name[]) {
+
+   ASSERT(file_name!=NULL);
+
+   LogFile = fopen(file_name,"a");
+#ifndef _WIN32
+//line buffering doesn't work too well in MSVC and/or windows 
+   if (LogFile != NULL) setvbuf(LogFile,NULL,_IOLBF,0); // line buffering
+#endif
+   if(LogFile!=NULL){
+       my_log("POLYGLOT *** LOGFILE OPENED ***\n");
+   }
+
+}
+
+// my_log_close()
+
+void my_log_close() {
+
+   if (LogFile != NULL) fclose(LogFile);
+   LogFile=NULL;
+}
+
+// my_log()
+
+void my_log(const char format[], ...) {
+    
+    char string[FormatBufferSize];
+    
+    ASSERT(format!=NULL);
+
+//  format
+
+    CONSTRUCT_ARG_STRING(format,string);
+    
+
+    if (LogFile != NULL) {
+        fprintf(LogFile,"%.3f %s",now_real(),string);
+#ifdef _WIN32
+        fflush(LogFile);
+#endif
+    }
+}
+
+// my_fatal()
+
+void my_fatal(const char format[], ...) {
+
+    char string[FormatBufferSize];
+
+    ASSERT(format!=NULL);
+
+// format
+
+    CONSTRUCT_ARG_STRING(format,string);
+    
+    my_log("POLYGLOT %s",string);
+    // This should be gui_send but this does not work.
+    // Why?
+
+    printf("tellusererror POLYGLOT: %s",string);
+
+    if (Error) { // recursive error
+        my_log("POLYGLOT *** RECURSIVE ERROR ***\n");
+        exit(EXIT_FAILURE);
+            // abort();
+    } else {
+      Error = TRUE;
+      quit();
+    }
+}
+
+// my_file_read_line()
+
+bool my_file_read_line(FILE * file, char string[], int size) {
+
+   int src, dst;
+   int c;
+
+   ASSERT(file!=NULL);
+   ASSERT(string!=NULL);
+   ASSERT(size>0);
+
+   if (fgets(string,size,file) == NULL) {
+      if (feof(file)) {
+         return FALSE;
+      } else { // error
+         my_fatal("my_file_read_line(): fgets(): %s\n",strerror(errno));
+      }
+   }
+
+   // remove CRs and LFs
+
+   src = 0;
+   dst = 0;
+   
+   while ((c=string[src++]) != '\0') {
+      if (c != '\r' && c != '\n') string[dst++] = c;
+   }
+
+   string[dst] = '\0';
+
+   return TRUE;
+}
+
+// my_file_join()
+
+void my_path_join(char *join_path, const char *path, const char *file){
+    char separator;
+#ifdef _WIN32
+    separator='\\';
+#else
+    separator='/';
+#endif
+    snprintf(join_path,StringSize,"%s%c%s",path,separator,file);
+    join_path[StringSize-1]='\0';
+}
+
+// my_mkdir()
+
+int my_mkdir(const char *path){
+    int ret;
+#ifdef _WIN32
+    ret=_mkdir(path);
+#else
+    ret=mkdir(path,S_IRWXU | S_IRWXG | S_IROTH | S_IXOTH);
+#endif
+    return ret;
+}
+
+
+// my_string_empty()
+
+bool my_string_empty(const char string[]) {
+
+   return string == NULL || string[0] == '\0';
+}
+
+// my_string_whitespace()
+
+bool my_string_whitespace(const char string[]){
+    int pos=0;
+    while(string[pos]!='\0'){
+        if(string[pos]!=' ' && string[pos]!='\t'){
+            return FALSE;
+        }
+        pos++;
+    }
+    return TRUE;
+}
+
+// my_string_equal()
+
+bool my_string_equal(const char string_1[], const char string_2[]) {
+
+   ASSERT(string_1!=NULL);
+   ASSERT(string_2!=NULL);
+
+   return strcmp(string_1,string_2) == 0;
+}
+
+// my_string_case_equal()
+
+bool my_string_case_equal(const char string_1[], const char string_2[]) {
+
+   int c1, c2;
+
+   ASSERT(string_1!=NULL);
+   ASSERT(string_2!=NULL);
+
+   while (TRUE) {
+
+      c1 = *string_1++;
+      c2 = *string_2++;
+
+      if (tolower(c1) != tolower(c2)) return FALSE;
+      if (c1 == '\0') return TRUE;
+   }
+
+   return FALSE;
+}
+
+// my_strtolower()
+
+void my_string_tolower(char *dst, const char *src){
+  int c;
+  ASSERT(src!=NULL);
+  ASSERT(dst!=NULL);
+  while((c=*(src++))){
+    *dst=tolower(c);
+    dst++;
+  }
+  *(dst++)='\0';
+}
+
+// my_string_case_contains()
+
+const char* my_string_case_contains(const char string_1[], const char string_2[]){
+   
+   char tmp1[StringSize];
+   char tmp2[StringSize];
+   char *where;
+
+
+   ASSERT(string_1!=NULL);
+   ASSERT(string_2!=NULL);
+
+   my_string_tolower(tmp1,string_1);
+   my_string_tolower(tmp2,string_2);
+
+   where=strstr(tmp1,tmp2);
+   if(where){
+      return string_1+(where-tmp1);
+   }
+   return NULL;
+
+  
+}
+
+
+// my_strdup()
+
+char * my_strdup(const char string[]) {
+
+   char * address;
+
+   ASSERT(string!=NULL);
+
+   // strdup() is not ANSI C
+
+   address = (char *) my_malloc(strlen(string)+1);
+   strcpy(address,string);
+
+   return address;
+}
+
+// my_string_clear()
+
+void my_string_clear(const char * * variable) {
+
+   ASSERT(variable!=NULL);
+
+   if (*variable != NULL) {
+      my_free((void*)(*variable));
+      *variable = NULL;
+   }
+}
+
+// my_string_set()
+
+void my_string_set(const char * * variable, const char string[]) {
+
+   ASSERT(variable!=NULL);
+   ASSERT(string!=NULL);
+
+   if (*variable != NULL) my_free((void*)(*variable));
+   *variable = my_strdup(string);
+}
+
+// now_real()
+
+double now_real() {
+#ifndef _WIN32
+   struct timeval tv[1];
+   struct timezone tz[1];
+
+   tz->tz_minuteswest = 0;
+   tz->tz_dsttime = 0; // DST_NONE not declared in linux
+
+   if (gettimeofday(tv,tz) == -1) {
+      my_fatal("now_real(): gettimeofday(): %s\n",strerror(errno));
+   }
+
+   return tv->tv_sec + tv->tv_usec * 1E-6;
+#else
+   struct _timeb timeptr;
+   _ftime(&timeptr);
+   return(timeptr.time+((double)timeptr.millitm)/1000.0);
+//   return (double) GetTickCount() / 1000.0;  // we can do better here:-)
+#endif
+}
+
+
+// my_timer_reset()
+
+void my_timer_reset(my_timer_t * timer) {
+
+   ASSERT(timer!=NULL);
+
+   timer->start_real = 0.0;
+   timer->elapsed_real = 0.0;
+   timer->running = FALSE;
+}
+
+// my_timer_start()
+
+void my_timer_start(my_timer_t * timer) {
+// timer->start_real = 0.0;
+   timer->elapsed_real = 0.0;
+// timer->running = FALSE;
+   ASSERT(timer!=NULL);
+
+   timer->running = TRUE;
+   timer->start_real = now_real();
+}
+
+// my_timer_stop()
+
+void my_timer_stop(my_timer_t * timer) {
+
+   ASSERT(timer!=NULL);
+
+   ASSERT(timer->running);
+
+   timer->elapsed_real += now_real() - timer->start_real;
+   timer->start_real = 0.0;
+   timer->running = FALSE;
+}
+
+// my_timer_elapsed_real()
+
+double my_timer_elapsed_real(const my_timer_t * timer) {
+
+   double elapsed;
+
+   ASSERT(timer!=NULL);
+
+   elapsed = timer->elapsed_real;
+   if (timer->running) elapsed += now_real() - timer->start_real;
+
+   if (elapsed < 0.0) elapsed = 0.0;
+
+   return elapsed;
+}
+
+
+void my_dequote(char *out, const char *in, const char *special){
+  const char *p; 
+  char *q;
+  char c;
+  p=in;
+  q=out;
+  while((c=*(p++))){
+    if(c=='\\' && strchr(special,*p)){
+      *(q++)=*(p++);
+    }else{
+      *(q++)=c;
+    }
+  }
+  *q='\0';
+}
+
+void my_quote(char *out, const char *in, const char *special){
+  const char *p;
+  char *q;
+  char c;
+  p=in;
+  q=out;
+  while(q-out< StringSize-2 && (c=*(p++))){
+    if(c=='\\'){
+      if(*p!=0 && strchr(special,*p)){
+	*(q++)='\\';
+      }
+    }else if(strchr(special,c)){
+      *(q++)='\\';
+    }
+    *(q++)=c;
+  }
+  *q='\0';
+}
+
+
+void my_sleep(int msec){
+#ifndef _WIN32
+  struct timespec tm;
+  tm.tv_sec=msec/1000;
+  tm.tv_nsec=1000000*(msec%1000);
+  nanosleep(&tm,NULL);
+#else
+  Sleep(msec);
+#endif
+}