-\r
-// util.c\r
-\r
-// includes\r
-\r
-#ifdef _WIN32\r
-#include <windows.h>\r
-#include <direct.h>\r
-#else\r
-#include <unistd.h>\r
-#endif\r
-\r
-#include <ctype.h>\r
-#include <errno.h>\r
-#include <math.h>\r
-#include <stdarg.h>\r
-#include <stdio.h>\r
-#include <stdlib.h>\r
-#include <string.h>\r
-#include <time.h>\r
-#include <sys/time.h>\r
-\r
-#include "main.h"\r
-#include "util.h"\r
-\r
-// variables\r
-\r
-static bool Error;\r
-\r
-FILE * LogFile=NULL;\r
-\r
-// functions\r
-\r
-// util_init()\r
-\r
-void util_init() {\r
-\r
- Error = FALSE;\r
-\r
- // init log file\r
-\r
- LogFile = NULL;\r
-\r
- // switch file buffering off\r
-\r
- setbuf(stdin,NULL);\r
- setbuf(stdout,NULL);\r
-}\r
-\r
-// my_random_init()\r
-\r
-void my_random_init() {\r
- srand(time(NULL));\r
-}\r
-\r
-// my_random_int()\r
-\r
-int my_random_int(int n) {\r
-\r
- int r;\r
-\r
- ASSERT(n>0);\r
-\r
- r = ((int)floor(my_random_double()*((double)n)));\r
- ASSERT(r>=0&&r<n);\r
-\r
- return r;\r
-}\r
-\r
-// my_random_double()\r
-\r
-double my_random_double() {\r
-\r
- double r;\r
-\r
- r = ((double)rand()) / (((double)RAND_MAX) + 1.0);\r
- ASSERT(r>=0.0&&r<1.0);\r
-\r
- return r;\r
-}\r
-\r
-// my_atoll()\r
-\r
-sint64 my_atoll(const char string[]) {\r
-\r
- sint64 n;\r
-\r
- sscanf(string,S64_FORMAT,&n);\r
-\r
- return n;\r
-}\r
-\r
-// my_round()\r
-\r
-int my_round(double x) {\r
-\r
- return ((int)floor(x+0.5));\r
-}\r
-\r
-// my_malloc()\r
-\r
-void * my_malloc(size_t size) {\r
-\r
- void * address;\r
-\r
- ASSERT(size>0);\r
-\r
- address = malloc(size);\r
- if (address == NULL) my_fatal("my_malloc(): malloc(): %s\n",strerror(errno));\r
-\r
- return address;\r
-}\r
-\r
-// my_realloc()\r
-\r
-void * my_realloc(void * address, size_t size) {\r
-\r
- ASSERT(address!=NULL);\r
- ASSERT(size>0);\r
-\r
- address = realloc(address,size);\r
- if (address == NULL) my_fatal("my_realloc(): realloc(): %s\n",strerror(errno));\r
-\r
- return address;\r
-}\r
-\r
-// my_free()\r
-\r
-void my_free(void * address) {\r
-\r
- ASSERT(address!=NULL);\r
-\r
- free(address);\r
-}\r
-\r
-// my_log_open()\r
-\r
-void my_log_open(const char file_name[]) {\r
-\r
- ASSERT(file_name!=NULL);\r
-\r
- LogFile = fopen(file_name,"a");\r
-#ifndef _WIN32\r
-//line buffering doesn't work too well in MSVC and/or windows \r
- if (LogFile != NULL) setvbuf(LogFile,NULL,_IOLBF,0); // line buffering\r
-#endif\r
-}\r
-\r
-// my_log_close()\r
-\r
-void my_log_close() {\r
-\r
- if (LogFile != NULL) fclose(LogFile);\r
- LogFile=NULL;\r
-}\r
-\r
-// my_log()\r
-\r
-void my_log(const char format[], ...) {\r
- \r
- char string[FormatBufferSize];\r
- \r
- ASSERT(format!=NULL);\r
-\r
-// format\r
-\r
- CONSTRUCT_ARG_STRING(format,string);\r
- \r
-\r
- if (LogFile != NULL) {\r
- fprintf(LogFile,"%.3f %s",now_real(),string);\r
-#ifdef _WIN32\r
- fflush(LogFile);\r
-#endif\r
- }\r
-}\r
-\r
-// my_fatal()\r
-\r
-void my_fatal(const char format[], ...) {\r
-\r
- char string[FormatBufferSize];\r
-\r
- ASSERT(format!=NULL);\r
-\r
-// format\r
-\r
- CONSTRUCT_ARG_STRING(format,string);\r
- \r
- fprintf(stderr,format,string);\r
- if (LogFile != NULL) fprintf(LogFile,format,&string);\r
-\r
- if (Error) { // recursive error\r
- my_log("POLYGLOT *** RECURSIVE ERROR ***\n");\r
- exit(EXIT_FAILURE);\r
- // abort();\r
- } else {\r
- Error = TRUE;\r
- quit();\r
- }\r
-}\r
-\r
-// my_file_read_line()\r
-\r
-bool my_file_read_line(FILE * file, char string[], int size) {\r
-\r
- int src, dst;\r
- int c;\r
-\r
- ASSERT(file!=NULL);\r
- ASSERT(string!=NULL);\r
- ASSERT(size>0);\r
-\r
- if (fgets(string,size,file) == NULL) {\r
- if (feof(file)) {\r
- return FALSE;\r
- } else { // error\r
- my_fatal("my_file_read_line(): fgets(): %s\n",strerror(errno));\r
- }\r
- }\r
-\r
- // remove CRs and LFs\r
-\r
- src = 0;\r
- dst = 0;\r
- \r
- while ((c=string[src++]) != '\0') {\r
- if (c != '\r' && c != '\n') string[dst++] = c;\r
- }\r
-\r
- string[dst] = '\0';\r
-\r
- return TRUE;\r
-}\r
-\r
-// my_string_empty()\r
-\r
-bool my_string_empty(const char string[]) {\r
-\r
- return string == NULL || string[0] == '\0';\r
-}\r
-\r
-// my_string_whitespace()\r
-\r
-bool my_string_whitespace(const char string[]){\r
- int pos=0;\r
- while(string[pos]!='\0'){\r
- if(string[pos]!=' ' && string[pos]!='\t'){\r
- return FALSE;\r
- }\r
- pos++;\r
- }\r
- return TRUE;\r
-}\r
-\r
-// my_string_equal()\r
-\r
-bool my_string_equal(const char string_1[], const char string_2[]) {\r
-\r
- ASSERT(string_1!=NULL);\r
- ASSERT(string_2!=NULL);\r
-\r
- return strcmp(string_1,string_2) == 0;\r
-}\r
-\r
-// my_string_case_equal()\r
-\r
-bool my_string_case_equal(const char string_1[], const char string_2[]) {\r
-\r
- int c1, c2;\r
-\r
- ASSERT(string_1!=NULL);\r
- ASSERT(string_2!=NULL);\r
-\r
- while (TRUE) {\r
-\r
- c1 = *string_1++;\r
- c2 = *string_2++;\r
-\r
- if (tolower(c1) != tolower(c2)) return FALSE;\r
- if (c1 == '\0') return TRUE;\r
- }\r
-\r
- return FALSE;\r
-}\r
-\r
-// my_strdup()\r
-\r
-char * my_strdup(const char string[]) {\r
-\r
- char * address;\r
-\r
- ASSERT(string!=NULL);\r
-\r
- // strdup() is not ANSI C\r
-\r
- address = (char *) my_malloc(strlen(string)+1);\r
- strcpy(address,string);\r
-\r
- return address;\r
-}\r
-\r
-// my_string_clear()\r
-\r
-void my_string_clear(const char * * variable) {\r
-\r
- ASSERT(variable!=NULL);\r
-\r
- if (*variable != NULL) {\r
- my_free((void*)(*variable));\r
- *variable = NULL;\r
- }\r
-}\r
-\r
-// my_string_set()\r
-\r
-void my_string_set(const char * * variable, const char string[]) {\r
-\r
- ASSERT(variable!=NULL);\r
- ASSERT(string!=NULL);\r
-\r
- if (*variable != NULL) my_free((void*)(*variable));\r
- *variable = my_strdup(string);\r
-}\r
-\r
-double now_real() {\r
-#ifndef _WIN32\r
- struct timeval tv[1];\r
- struct timezone tz[1];\r
-\r
- tz->tz_minuteswest = 0;\r
- tz->tz_dsttime = 0; // DST_NONE not declared in linux\r
-\r
- if (gettimeofday(tv,tz) == -1) {\r
- my_fatal("now_real(): gettimeofday(): %s\n",strerror(errno));\r
- }\r
-\r
- return tv->tv_sec + tv->tv_usec * 1E-6;\r
-#else\r
- return (double) GetTickCount() / 1000.0; // we can do better here:-)\r
-#endif\r
-}\r
-\r
-\r
-// my_timer_reset()\r
-\r
-void my_timer_reset(my_timer_t * timer) {\r
-\r
- ASSERT(timer!=NULL);\r
-\r
- timer->start_real = 0.0;\r
- timer->elapsed_real = 0.0;\r
- timer->running = FALSE;\r
-}\r
-\r
-// my_timer_start()\r
-\r
-void my_timer_start(my_timer_t * timer) {\r
-// timer->start_real = 0.0;\r
- timer->elapsed_real = 0.0;\r
-// timer->running = FALSE;\r
- ASSERT(timer!=NULL);\r
-\r
- timer->running = TRUE;\r
- timer->start_real = now_real();\r
-}\r
-\r
-// my_timer_stop()\r
-\r
-void my_timer_stop(my_timer_t * timer) {\r
-\r
- ASSERT(timer!=NULL);\r
-\r
- ASSERT(timer->running);\r
-\r
- timer->elapsed_real += now_real() - timer->start_real;\r
- timer->start_real = 0.0;\r
- timer->running = FALSE;\r
-}\r
-\r
-// my_timer_elapsed_real()\r
-\r
-double my_timer_elapsed_real(const my_timer_t * timer) {\r
-\r
- double elapsed;\r
-\r
- ASSERT(timer!=NULL);\r
-\r
- elapsed = timer->elapsed_real;\r
- if (timer->running) elapsed += now_real() - timer->start_real;\r
-\r
- if (elapsed < 0.0) elapsed = 0.0;\r
-\r
- return elapsed;\r
-}\r
-\r
-\r
-\r
+
+// 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
+}
projects / polyglot.git / blobdiff