2 typedef long long int64;
3 typedef unsigned long long uint64;
4 #elif defined(__TINYC__)
6 #define __builtin_va_list va_list
7 #define __builtin_va_start va_start
8 #define __builtin_va_end va_end
10 #define strcasecmp stricmp
11 #define strncasecmp strnicmp
12 #define __declspec(x) __attribute__((x))
16 typedef long long int64;
17 typedef unsigned long long uint64;
19 typedef __int64 int64;
20 typedef unsigned __int64 uint64;
23 #define __ENDIAN_PAD(x) (8 - (x))
25 #define __ENDIAN_PAD(x) 0
28 extern void * __ecereNameSpace__ecere__com__eSystem_New(unsigned int size);
30 extern void * __ecereNameSpace__ecere__com__eSystem_New0(unsigned int size);
32 extern void * __ecereNameSpace__ecere__com__eSystem_Renew(void * memory, unsigned int size);
34 extern void * __ecereNameSpace__ecere__com__eSystem_Renew0(void * memory, unsigned int size);
36 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__sys__BTNode;
38 struct __ecereNameSpace__ecere__sys__BTNode;
40 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__sys__BinaryTree;
42 struct __ecereNameSpace__ecere__sys__BinaryTree
44 struct __ecereNameSpace__ecere__sys__BTNode * root;
46 int (* CompareKey)(struct __ecereNameSpace__ecere__sys__BinaryTree * tree, uintptr_t a, uintptr_t b);
47 void (* FreeKey)(void * key);
48 } __attribute__ ((gcc_struct));
50 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__sys__OldList;
52 struct __ecereNameSpace__ecere__sys__OldList
59 } __attribute__ ((gcc_struct));
61 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__Class;
63 struct __ecereNameSpace__ecere__com__Class
65 struct __ecereNameSpace__ecere__com__Class * prev;
66 struct __ecereNameSpace__ecere__com__Class * next;
72 int (* Constructor)(struct __ecereNameSpace__ecere__com__Instance *);
73 void (* Destructor)(struct __ecereNameSpace__ecere__com__Instance *);
76 struct __ecereNameSpace__ecere__com__Class * base;
77 struct __ecereNameSpace__ecere__sys__BinaryTree methods;
78 struct __ecereNameSpace__ecere__sys__BinaryTree members;
79 struct __ecereNameSpace__ecere__sys__BinaryTree prop;
80 struct __ecereNameSpace__ecere__sys__OldList membersAndProperties;
81 struct __ecereNameSpace__ecere__sys__BinaryTree classProperties;
82 struct __ecereNameSpace__ecere__sys__OldList derivatives;
86 struct __ecereNameSpace__ecere__com__Instance * module;
87 struct __ecereNameSpace__ecere__com__NameSpace * nameSpace;
88 char * dataTypeString;
89 struct __ecereNameSpace__ecere__com__Instance * dataType;
92 void (* Initialize)();
94 struct __ecereNameSpace__ecere__sys__OldList selfWatchers;
96 unsigned int noExpansion;
97 char * defaultProperty;
98 unsigned int comRedefinition;
100 unsigned int isRemote;
101 unsigned int internalDecl;
103 unsigned int computeSize;
105 int destructionWatchOffset;
107 struct __ecereNameSpace__ecere__sys__OldList delayedCPValues;
108 int inheritanceAccess;
111 struct __ecereNameSpace__ecere__sys__OldList conversions;
112 struct __ecereNameSpace__ecere__sys__OldList templateParams;
113 struct __ecereNameSpace__ecere__com__ClassTemplateArgument * templateArgs;
114 struct __ecereNameSpace__ecere__com__Class * templateClass;
115 struct __ecereNameSpace__ecere__sys__OldList templatized;
117 } __attribute__ ((gcc_struct));
119 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__Instance;
121 struct __ecereNameSpace__ecere__com__Instance
124 struct __ecereNameSpace__ecere__com__Class * _class;
126 } __attribute__ ((gcc_struct));
128 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__Property;
130 struct __ecereNameSpace__ecere__com__Property
132 struct __ecereNameSpace__ecere__com__Property * prev;
133 struct __ecereNameSpace__ecere__com__Property * next;
135 unsigned int isProperty;
138 struct __ecereNameSpace__ecere__com__Class * _class;
139 char * dataTypeString;
140 struct __ecereNameSpace__ecere__com__Class * dataTypeClass;
141 struct __ecereNameSpace__ecere__com__Instance * dataType;
144 unsigned int (* IsSet)();
148 unsigned int conversion;
149 unsigned int watcherOffset;
151 unsigned int compiled;
152 unsigned int selfWatchable;
153 unsigned int isWatchable;
154 } __attribute__ ((gcc_struct));
156 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__DataMember;
158 struct __ecereNameSpace__ecere__com__DataMember
160 struct __ecereNameSpace__ecere__com__DataMember * prev;
161 struct __ecereNameSpace__ecere__com__DataMember * next;
163 unsigned int isProperty;
166 struct __ecereNameSpace__ecere__com__Class * _class;
167 char * dataTypeString;
168 struct __ecereNameSpace__ecere__com__Class * dataTypeClass;
169 struct __ecereNameSpace__ecere__com__Instance * dataType;
173 struct __ecereNameSpace__ecere__sys__OldList members;
174 struct __ecereNameSpace__ecere__sys__BinaryTree membersAlpha;
177 } __attribute__ ((gcc_struct));
179 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__Method;
181 struct __ecereNameSpace__ecere__com__Method
184 struct __ecereNameSpace__ecere__com__Method * parent;
185 struct __ecereNameSpace__ecere__com__Method * left;
186 struct __ecereNameSpace__ecere__com__Method * right;
191 struct __ecereNameSpace__ecere__com__Class * _class;
193 char * dataTypeString;
194 struct __ecereNameSpace__ecere__com__Instance * dataType;
196 } __attribute__ ((gcc_struct));
198 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__SerialBuffer;
200 struct __ecereNameSpace__ecere__com__SerialBuffer
202 unsigned char * _buffer;
206 } __attribute__ ((gcc_struct));
208 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__DataValue;
210 struct __ecereNameSpace__ecere__com__DataValue
225 } __attribute__ ((gcc_struct));
226 } __attribute__ ((gcc_struct));
228 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__ClassTemplateArgument;
230 struct __ecereNameSpace__ecere__com__ClassTemplateArgument
236 char * dataTypeString;
237 struct __ecereNameSpace__ecere__com__Class * dataTypeClass;
238 } __attribute__ ((gcc_struct));
239 struct __ecereNameSpace__ecere__com__DataValue expression;
245 struct __ecereNameSpace__ecere__com__DataMember * member;
246 struct __ecereNameSpace__ecere__com__Property * prop;
247 struct __ecereNameSpace__ecere__com__Method * method;
248 } __attribute__ ((gcc_struct));
249 } __attribute__ ((gcc_struct));
250 } __attribute__ ((gcc_struct));
251 } __attribute__ ((gcc_struct));
253 typedef unsigned int size_t;
255 void exit(int status);
257 void * calloc(size_t nmemb, size_t size);
259 void free(void * ptr);
261 void * malloc(size_t size);
263 void * realloc(void * ptr, size_t size);
265 long int strtol(const char * nptr, char ** endptr, int base);
267 long long int strtoll(const char * nptr, char ** endptr, int base);
269 unsigned long long int strtoull(const char * nptr, char ** endptr, int base);
271 extern int runtimePlatform;
280 extern int strlen(const char * );
282 extern char * strcpy(char * , const char * );
284 char * __ecereNameSpace__ecere__sys__GetExtension(char * string, char * output)
288 int len = strlen(string);
289 int limit = (__simpleStruct0 = len - (17), (0 > __simpleStruct0) ? 0 : __simpleStruct0);
292 for(c = len; c >= limit; c--)
298 strcpy(output, string + c + 1);
301 else if(ch == '/' || ch == '\\')
307 extern int strcmp(const char * , const char * );
309 extern void * memmove(void * , const void * , unsigned int size);
311 extern int __ecereNameSpace__ecere__com__GetRuntimePlatform(void);
313 char * __ecereNameSpace__ecere__sys__StripLastDirectory(char * string, char * output)
317 if(runtimePlatform == 1 && !strcmp(string, "\\\\"))
324 int len = strlen(string);
326 for(c = len - 2; c >= 0; c--)
327 if(string[c] == '/' || string[c] == '\\')
329 else if(string[c] == '>' || (string[c] == ':' && c == 0))
334 if((runtimePlatform == 1) ? (c >= 0) : (c > 0))
336 memmove(output, string, c);
339 if(runtimePlatform == 1 && c == 1 && output[0] == '\\' && output[1] == '\\')
345 strcpy(output, ((__ecereNameSpace__ecere__com__GetRuntimePlatform() == 1) ? "\\" : "/"));
352 strcpy(output, ((__ecereNameSpace__ecere__com__GetRuntimePlatform() == 1) ? "\\" : "/"));
358 return (((void *)0));
364 char * __ecereNameSpace__ecere__sys__SplitDirectory(const char * string, char * part, char * rest)
370 for(; (ch = string[c]) && (ch == '/' || ch == '\\'); c++)
373 part[len++] = ((__ecereNameSpace__ecere__com__GetRuntimePlatform() == 1) ? '\\' : '/');
376 for(; (ch = string[c]) && (ch != '/' && ch != '\\'); c++)
382 for(; (ch = string[c]) && (ch == '/' || ch == '\\'); c++)
384 memmove(rest, string + c, strlen(string + c) + 1);
385 for(c = strlen(rest); c >= 0; c--)
386 if(ch != '/' && ch != '\\')
394 char * __ecereNameSpace__ecere__sys__GetLastDirectory(char * string, char * output)
397 int len = string ? strlen(string) : 0;
399 for(c = len - 2; c >= 0; c--)
400 if(string[c] == '/' || string[c] == '\\' || string[c] == ':' || string[c] == '>')
404 memmove(output, string + c, strlen(string + c) + 1);
407 len = strlen(output);
408 if(len > 1 && (output[len - 1] == '\\' || output[len - 1] == '/'))
409 output[len - 1] = '\0';
413 extern char * strncpy(char * , const char * , int n);
415 unsigned int __ecereNameSpace__ecere__sys__SplitArchivePath(char * fileName, char * archiveName, char ** archiveFile)
417 if(fileName[0] == '<')
419 int c = strlen(fileName);
421 for(; c > 0 && fileName[c] != '>'; c--)
425 strncpy(archiveName, fileName + 1, c - 1);
426 archiveName[c - 1] = '\0';
427 *archiveFile = fileName + c + 1;
431 else if(fileName[0] == ':')
433 strcpy(archiveName, ":");
434 *archiveFile = fileName + 1;
440 extern char * strstr(char * , const char * );
442 extern int toupper(int);
444 extern char * strcat(char * , const char * );
446 extern int sprintf(char * , char * , ...);
448 char * __ecereNameSpace__ecere__sys__PathCatSlash(char * string, char * addedPath)
450 unsigned int modified = 0x0;
454 char fileName[797] = "", archiveName[797] = "", * file;
456 unsigned int isURL = 0x0;
459 if(__ecereNameSpace__ecere__sys__SplitArchivePath(string, archiveName, &file))
460 strcpy(fileName, file);
463 strcpy(fileName, string);
465 if(strstr(string, "http://") == string)
467 char * slash = strstr(fileName + 7, "/");
473 urlFileName = fileName + strlen(fileName);
475 if(strstr(addedPath, "http://") == addedPath)
477 strcpy(fileName, "http://");
481 else if(__ecereNameSpace__ecere__com__GetRuntimePlatform() == 1)
483 if(addedPath[0] && addedPath[1] == ':' && addedPath[0] != '<')
485 fileName[0] = (char)toupper(addedPath[0]);
491 else if(addedPath[0] == '\\' && addedPath[1] == '\\')
493 fileName[0] = fileName[1] = '\\';
499 if(!modified && isURL && (addedPath[0] == '\\' || addedPath[0] == '/'))
501 urlFileName[0] = '/';
502 urlFileName[1] = '\0';
504 else if(!modified && (addedPath[0] == '\\' || addedPath[0] == '/'))
506 if(__ecereNameSpace__ecere__com__GetRuntimePlatform() == 1)
508 if(addedPath[0] == '/' && !addedPath[1])
510 fileName[0] = addedPath[0];
514 else if(fileName[0] && fileName[1] == ':')
534 for(; addedPath[c]; )
536 char directory[4384LL];
541 for(; (ch = addedPath[c]) && (ch == '/' || ch == '\\'); c++)
543 for(; (ch = addedPath[c]) && (ch != '/' && ch != '\\'); c++)
545 if(isURL && ch == '?')
550 directory[len++] = ch;
552 directory[len] = '\0';
553 for(count = len - 1; count >= 0 && (directory[count] == ' ' || directory[count] == '\t'); count--)
555 directory[count] = '\0';
561 if(strstr(directory, "..") == directory && (!directory[2] || directory[2] == ((__ecereNameSpace__ecere__com__GetRuntimePlatform() == 1) ? '\\' : '/') || directory[2] == '/'))
563 int strLen = strlen(fileName) - 1;
567 for(; (ch = fileName[strLen]) && strLen > -1 && (ch == '/' || ch == '\\'); strLen--)
569 for(; (ch = fileName[strLen]) && strLen > -1 && (ch != '/' && ch != '\\' && ch != ':'); strLen--)
571 for(; (ch = fileName[strLen]) && strLen > -1 && (ch == '/' || ch == '\\'); strLen--)
577 strLen = (__simpleStruct0 = urlFileName - fileName, (strLen > __simpleStruct0) ? strLen : __simpleStruct0);
579 if(!strcmp(fileName + strLen + 1, ".."))
581 strcat(fileName, "/");
582 strcat(fileName, "..");
586 if(__ecereNameSpace__ecere__com__GetRuntimePlatform() == 1)
588 if(!strLen && fileName[0] == '\\' && fileName[1] == '\\')
591 return (((void *)0));
600 fileName[strLen + 1] = '\0';
604 fileName[strLen + 1] = '\0';
616 strcpy(fileName, "..");
619 else if(strcmp(directory, "."))
621 int strLen = strlen(fileName);
622 unsigned int notZeroLen = strLen > 0;
624 if(strLen > 0 && (fileName[strLen - 1] == '/' || fileName[strLen - 1] == '\\'))
627 fileName[strLen++] = '/';
628 fileName[strLen] = '\0';
629 if(strLen + strlen(directory) > (797) - 3)
630 return (((void *)0));
631 strcat(fileName, directory);
634 if(isURL && ch == '/')
635 strcat(fileName, "/");
636 if(isURL && ch == '?')
638 strcat(fileName, addedPath + c);
643 sprintf(string, "<%s>%s", archiveName, fileName);
645 strcpy(string, fileName);
647 return modified ? string : (((void *)0));
650 char * __ecereNameSpace__ecere__sys__PathCat(char * string, char * addedPath)
652 unsigned int modified = 0x0;
656 char fileName[797] = "", archiveName[797] = "", * file;
658 unsigned int isURL = 0x0;
661 if(__ecereNameSpace__ecere__sys__SplitArchivePath(string, archiveName, &file))
662 strcpy(fileName, file);
665 strcpy(fileName, string);
667 if(strstr(string, "http://") == string)
669 char * slash = strstr(fileName + 7, "/");
675 urlFileName = fileName + strlen(fileName);
677 if(strstr(addedPath, "http://") == addedPath)
679 strcpy(fileName, "http://");
683 else if(runtimePlatform == 1)
685 if(addedPath[0] && addedPath[1] == ':' && addedPath[0] != '<')
687 fileName[0] = (char)toupper(addedPath[0]);
693 else if(addedPath[0] == '\\' && addedPath[1] == '\\')
695 fileName[0] = fileName[1] = '\\';
700 else if(fileName[0] == '/' && !archiveName[0] && strcmp(addedPath, "/"))
701 return (((void *)0));
703 if(!modified && isURL && (addedPath[0] == '\\' || addedPath[0] == '/'))
705 urlFileName[0] = '/';
706 urlFileName[1] = '\0';
708 else if(!modified && (addedPath[0] == '\\' || addedPath[0] == '/'))
710 if(runtimePlatform == 1)
712 if(addedPath[0] == '/' && !addedPath[1])
714 fileName[0] = addedPath[0];
718 else if(fileName[0] && fileName[1] == ':')
738 for(; addedPath[c]; )
740 char directory[4384LL];
745 for(; (ch = addedPath[c]) && (ch == '/' || ch == '\\'); c++)
747 for(; (ch = addedPath[c]) && (ch != '/' && ch != '\\'); c++)
749 if(isURL && ch == '?')
754 directory[len++] = ch;
756 directory[len] = '\0';
757 for(count = len - 1; count >= 0 && (directory[count] == ' ' || directory[count] == '\t'); count--)
759 directory[count] = '\0';
765 if(strstr(directory, "..") == directory && (!directory[2] || directory[2] == ((__ecereNameSpace__ecere__com__GetRuntimePlatform() == 1) ? '\\' : '/')))
767 int strLen = strlen(fileName) - 1;
771 unsigned int separator = 0x0;
773 for(; (ch = fileName[strLen]) && strLen > -1 && (ch == '/' || ch == '\\'); strLen--)
775 for(; (ch = fileName[strLen]) && strLen > -1 && (ch != '/' && ch != '\\' && ch != ':'); strLen--)
777 for(; (ch = fileName[strLen]) && strLen > -1 && (ch == '/' || ch == '\\'); strLen--)
783 strLen = (__simpleStruct0 = urlFileName - fileName, (strLen > __simpleStruct0) ? strLen : __simpleStruct0);
785 if(!strcmp(fileName + strLen + (separator ? 2 : 1), ".."))
787 strcat(fileName, ((__ecereNameSpace__ecere__com__GetRuntimePlatform() == 1) ? "\\" : "/"));
788 strcat(fileName, "..");
792 if(runtimePlatform == 1)
794 if(!strLen && fileName[0] == '\\' && fileName[1] == '\\')
797 return (((void *)0));
806 fileName[strLen + 1] = '\0';
810 fileName[strLen + 1] = '\0';
822 strcpy(fileName, "..");
825 else if(strcmp(directory, "."))
827 int strLen = strlen(fileName);
828 unsigned int notZeroLen = strLen > 0;
830 if(strLen > 0 && (fileName[strLen - 1] == '/' || fileName[strLen - 1] == '\\'))
835 fileName[strLen++] = '/';
837 fileName[strLen++] = ((__ecereNameSpace__ecere__com__GetRuntimePlatform() == 1) ? '\\' : '/');
839 fileName[strLen] = '\0';
840 if(strLen + strlen(directory) > (797) - 3)
841 return (((void *)0));
842 strcat(fileName, directory);
845 if(isURL && ch == '/')
846 strcat(fileName, "/");
847 if(isURL && ch == '?')
849 strcat(fileName, addedPath + c);
854 sprintf(string, "<%s>%s", archiveName, fileName);
856 strcpy(string, fileName);
858 return modified ? string : (((void *)0));
861 extern int strcasecmp(const char * , const char * );
863 char * __ecereNameSpace__ecere__sys__MakePathRelative(char * path, char * to, char * destination)
866 memmove(destination, path, strlen(path) + 1);
869 char pathPart[4384LL], pathRest[797];
870 char toPart[4384LL], toRest[797];
871 unsigned int different = 0x0;
873 strcpy(pathRest, path);
875 destination[0] = '\0';
878 __ecereNameSpace__ecere__sys__SplitDirectory(toRest, toPart, toRest);
880 __ecereNameSpace__ecere__sys__SplitDirectory(pathRest, pathPart, pathRest);
881 if(different || ((__ecereNameSpace__ecere__com__GetRuntimePlatform() == 1) ? (strcasecmp) : strcmp)(toPart, pathPart))
884 strcat(destination, "..");
885 strcat(destination, ((__ecereNameSpace__ecere__com__GetRuntimePlatform() == 1) ? "\\" : "/"));
889 __ecereNameSpace__ecere__sys__PathCat(destination, pathPart);
892 __ecereNameSpace__ecere__sys__SplitDirectory(pathRest, pathPart, pathRest);
893 __ecereNameSpace__ecere__sys__PathCat(destination, pathPart);
899 unsigned int __ecereNameSpace__ecere__sys__StripExtension(char * string)
903 for(c = strlen(string); c >= 0; c--)
909 else if(string[c] == '\\' || string[c] == '/')
914 char * __ecereNameSpace__ecere__sys__ChangeExtension(char * string, char * ext, char * output)
917 strcpy(output, string);
918 __ecereNameSpace__ecere__sys__StripExtension(output);
925 void __ecereNameSpace__ecere__sys__PrintSize(char * string, unsigned int size, int prec)
931 sprintf(format, "%%.0%df", prec);
932 if(size > 1024 * 1024 * 1024)
934 sprintf(string, format, (float)size / (float)((float)(float)(1024 * 1024 * 1024)));
935 strcat(string, " GB");
937 else if(size > 1024 * 1024)
939 sprintf(string, format, (float)size / (float)((float)(float)(1024 * 1024)));
940 strcat(string, " MB");
944 sprintf(string, format, (float)size / (float)(float)1024);
945 strcat(string, " KB");
949 sprintf(string, "%d B", size);
952 void __ecereNameSpace__ecere__sys__PrintBigSize(char * string, double size, int prec)
954 if(size > (double)1024)
958 sprintf(format, "%%.0%df", prec);
959 if(size > 1024.0 * 1024.0 * 1024.0 * 1024.0)
961 sprintf(string, format, size / ((double)(double)(1024 * 1024) * 1024.0 * 1024.0));
962 strcat(string, " TB");
964 else if(size > 1024.0 * 1024.0 * 1024.0)
966 sprintf(string, format, size / (1024.0 * 1024.0 * 1024.0));
967 strcat(string, " GB");
969 else if(size > 1024.0 * 1024.0)
971 sprintf(string, format, size / (1024.0 * 1024.0));
972 strcat(string, " MB");
976 sprintf(string, format, size / 1024.0);
977 strcat(string, " KB");
981 sprintf(string, "%.0f B", size);
984 extern int strncmp(const char * , const char * , int n);
986 extern int strncasecmp(const char * , const char * , int n);
988 extern int tolower(int);
990 extern int isalnum(int c);
992 char * __ecereNameSpace__ecere__sys__SearchString(char * buffer, int start, char * subStr, unsigned int matchCase, unsigned int matchWord)
997 char * strBuffer = buffer + start;
998 int subLen = strlen(subStr);
999 char beforeChar = start ? *(strBuffer - 1) : (char)0;
1000 int (* strcompare)(const char *, const char *, unsigned int) = matchCase ? strncmp : (strncasecmp);
1002 for(ptr = strBuffer; *ptr; ptr++)
1004 if(matchCase ? (*subStr == *ptr) : (tolower(*subStr) == tolower(*ptr)))
1008 if(!strcompare(ptr, subStr, subLen) && (!((subStr[subLen - 1]) == '_' || isalnum((subStr[subLen - 1]))) || !((ptr[subLen]) == '_' || isalnum((ptr[subLen])))) && (!((subStr[0]) == '_' || isalnum((subStr[0]))) || !((beforeChar) == '_' || isalnum((beforeChar)))))
1013 if(!strcompare(ptr, subStr, subLen))
1017 beforeChar = ptr[0];
1020 return (((void *)0));
1023 char * __ecereNameSpace__ecere__sys__RSearchString(char * buffer, char * subStr, int maxLen, unsigned int matchCase, unsigned int matchWord)
1025 if(buffer && subStr)
1027 int subLen = strlen(subStr);
1028 char * ptr1 = buffer + maxLen - subLen;
1029 char * ptr2 = buffer + maxLen - subLen - 1;
1030 int (* strcompare)(const char *, const char *, unsigned int) = matchCase ? strncmp : (strncasecmp);
1032 for(; ptr1 >= buffer; ptr1--, ptr2--)
1034 if(tolower(*subStr) == tolower(*ptr1))
1038 if(!strcompare(ptr1, subStr, subLen) && (!((subStr[subLen - 1]) == '_' || isalnum((subStr[subLen - 1]))) || !((ptr1[subLen]) == '_' || isalnum((ptr1[subLen])))) && (!((subStr[0]) == '_' || isalnum((subStr[0]))) || !((*ptr2) == '_' || isalnum((*ptr2)))))
1043 if(!strcompare(ptr1, subStr, subLen))
1049 return (((void *)0));
1052 int __ecereNameSpace__ecere__sys__Tokenize(char * string, int maxTokens, char * tokens[], unsigned int escapeBackSlashes)
1055 unsigned int quoted = 0x0;
1056 unsigned char * start = (((void *)0));
1057 unsigned int escaped = 0x0;
1058 char * output = string;
1060 for(; *string && count < maxTokens; string++, output++)
1062 if(output != string)
1070 if(output != string)
1073 else if(escapeBackSlashes && *string == '\\')
1075 else if(*string == '\"')
1084 memmove(start + 1, start, string - (char *)start);
1088 else if(*string == ' ' && !quoted)
1090 tokens[count++] = start;
1092 start = (((void *)0));
1095 else if(*string != ' ')
1105 if(*string == '\\' && escapeBackSlashes)
1110 if(start && count < maxTokens)
1112 tokens[count++] = start;
1118 extern char * strchr(char * , int);
1120 int __ecereNameSpace__ecere__sys__TokenizeWith(char * string, int maxTokens, char * tokens[], char * tokenizers, unsigned int escapeBackSlashes)
1123 unsigned int quoted = 0x0;
1124 unsigned char * start = (((void *)0));
1125 unsigned int escaped = 0x0;
1126 char * output = string;
1127 unsigned int quotedFromStart = 0x0;
1129 for(; *string && count < maxTokens; string++, output++)
1131 if(output != string)
1139 if(output != string)
1142 else if(escapeBackSlashes && *string == '\\')
1144 else if(*string == '\"')
1150 quotedFromStart = 0x0;
1156 else if(strchr(tokenizers, *string) && !quoted)
1158 tokens[count++] = start;
1160 start = (((void *)0));
1163 else if(!strchr(tokenizers, *string))
1167 quotedFromStart = 0x1;
1174 if(*string == '\\' && escapeBackSlashes)
1179 if(start && count < maxTokens)
1181 tokens[count++] = start;
1187 char * __ecereNameSpace__ecere__sys__TrimLSpaces(char * string, char * output)
1191 for(c = 0; string[c] && string[c] == ' '; c++)
1193 memmove(output, string + c, strlen(string + c) + 1);
1197 char * __ecereNameSpace__ecere__sys__TrimRSpaces(char * string, char * output)
1201 for(c = strlen(string) - 1; c >= 0 && string[c] == ' '; c--)
1205 memmove(output, string, c + 1);
1206 output[c + 1] = '\0';
1213 void __ecereNameSpace__ecere__sys__ChangeCh(char * string, char ch1, char ch2)
1217 for(c = 0; string[c]; c++)
1218 if(string[c] == ch1)
1222 void __ecereNameSpace__ecere__sys__RepeatCh(char * string, int count, char ch)
1226 for(c = 0; c < count; c++)
1228 string[c] = (char)0;
1231 extern void * memcpy(void * , const void * , unsigned int size);
1233 char * __ecereNameSpace__ecere__sys__CopyString(char * string)
1237 int len = strlen(string);
1238 char * destination = __ecereNameSpace__ecere__com__eSystem_New(sizeof(char) * (len + 1));
1241 memcpy(destination, string, len + 1);
1245 return (((void *)0));
1248 unsigned int __ecereNameSpace__ecere__sys__GetString(char ** buffer, char * string, int max)
1252 unsigned int quoted = 0x0;
1253 unsigned int result = 0x1;
1257 string[0] = (char)0;
1262 if(!(ch = *((*buffer)++)))
1264 if((ch != '\n') && (ch != '\r') && (ch != ' ') && (ch != ',') && (ch != '\t'))
1271 for(c = 0; c < max - 1; c++)
1273 if(!quoted && ((ch == '\n') || (ch == '\r') || (ch == ' ') || (ch == ',') || (ch == '\t')))
1280 quoted ^= (unsigned int)1;
1285 if(!(ch = *(*buffer)))
1292 string[c] = (char)0;
1297 extern int atoi(const char * );
1299 int __ecereNameSpace__ecere__sys__GetValue(char ** buffer)
1303 __ecereNameSpace__ecere__sys__GetString(buffer, string, 20);
1304 return atoi(string);
1307 extern unsigned long strtoul(const char * nptr, char * * endptr, int base);
1309 unsigned int __ecereNameSpace__ecere__sys__GetHexValue(char ** buffer)
1313 __ecereNameSpace__ecere__sys__GetString(buffer, string, 20);
1314 return strtoul(string, (((void *)0)), 16);
1317 char * __ecereNameSpace__ecere__sys__StripQuotes(char * string, char * output)
1320 char * src = (string[0] == '\"') ? (string + 1) : string;
1322 memmove(output, src, strlen(src) + 1);
1323 len = strlen(output);
1324 if(len && output[len - 1] == '\"')
1325 output[len - 1] = '\0';
1329 extern unsigned int isdigit(int);
1331 double __ecereNameSpace__ecere__sys__FloatFromString(char * string)
1334 float dec = (float)0, res = (float)0;
1338 for(c = 0; string[c]; c++)
1349 else if((ch == '.') && !dec)
1351 else if(isdigit(ch))
1356 res += (float)dig / dec;
1360 res = res * (float)10 + (float)dig;
1365 return (float)neg * res;
1368 unsigned int __ecereNameSpace__ecere__sys__IsPathInsideOf(char * path, char * of)
1370 if(!path[0] || !of[0])
1374 char ofPart[274], ofRest[797];
1375 char pathPart[274], pathRest[797];
1378 strcpy(pathRest, path);
1379 for(; ofRest[0] && pathRest[0]; )
1381 __ecereNameSpace__ecere__sys__SplitDirectory(ofRest, ofPart, ofRest);
1382 __ecereNameSpace__ecere__sys__SplitDirectory(pathRest, pathPart, pathRest);
1383 if(((__ecereNameSpace__ecere__com__GetRuntimePlatform() == 1) ? (strcasecmp) : strcmp)(pathPart, ofPart))
1386 if(!ofRest[0] && !pathRest[0])
1388 else if(!pathRest[0])
1394 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__DefinedExpression;
1396 struct __ecereNameSpace__ecere__com__DefinedExpression;
1398 extern struct __ecereNameSpace__ecere__com__DefinedExpression * __ecereNameSpace__ecere__com__eSystem_RegisterDefine(char * name, char * value, struct __ecereNameSpace__ecere__com__Instance * module, int declMode);
1400 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__GlobalFunction;
1402 struct __ecereNameSpace__ecere__com__GlobalFunction;
1404 extern struct __ecereNameSpace__ecere__com__GlobalFunction * __ecereNameSpace__ecere__com__eSystem_RegisterFunction(char * name, char * type, void * func, struct __ecereNameSpace__ecere__com__Instance * module, int declMode);
1406 void __ecereRegisterModule_String(struct __ecereNameSpace__ecere__com__Instance * module)
1408 struct __ecereNameSpace__ecere__com__Class * class;
1410 __ecereNameSpace__ecere__com__eSystem_RegisterDefine("ecere::sys::DIR_SEP", "(GetRuntimePlatform() == win32) ? '\\\\' : '/'", module, 4);
1411 __ecereNameSpace__ecere__com__eSystem_RegisterDefine("ecere::sys::DIR_SEPS", "(GetRuntimePlatform() == win32) ? \"\\\\\" : \"/\"", module, 4);
1412 __ecereNameSpace__ecere__com__eSystem_RegisterDefine("ecere::sys::MAX_F_STRING", "1025", module, 4);
1413 __ecereNameSpace__ecere__com__eSystem_RegisterDefine("ecere::sys::MAX_EXTENSION", "17", module, 4);
1414 __ecereNameSpace__ecere__com__eSystem_RegisterDefine("ecere::sys::MAX_FILENAME", "274", module, 4);
1415 __ecereNameSpace__ecere__com__eSystem_RegisterDefine("ecere::sys::MAX_DIRECTORY", "534", module, 4);
1416 __ecereNameSpace__ecere__com__eSystem_RegisterDefine("ecere::sys::MAX_LOCATION", "797", module, 4);
1417 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ecere::sys::GetExtension", "char * ecere::sys::GetExtension(char * string, char * output)", __ecereNameSpace__ecere__sys__GetExtension, module, 4);
1418 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ecere::sys::StripLastDirectory", "char * ecere::sys::StripLastDirectory(char * string, char * output)", __ecereNameSpace__ecere__sys__StripLastDirectory, module, 4);
1419 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ecere::sys::SplitDirectory", "char * ecere::sys::SplitDirectory(char * string, char * part, char * rest)", __ecereNameSpace__ecere__sys__SplitDirectory, module, 4);
1420 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ecere::sys::GetLastDirectory", "char * ecere::sys::GetLastDirectory(char * string, char * output)", __ecereNameSpace__ecere__sys__GetLastDirectory, module, 4);
1421 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ecere::sys::SplitArchivePath", "bool ecere::sys::SplitArchivePath(char * fileName, char * archiveName, char * * archiveFile)", __ecereNameSpace__ecere__sys__SplitArchivePath, module, 4);
1422 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ecere::sys::PathCatSlash", "char * ecere::sys::PathCatSlash(char * string, char * addedPath)", __ecereNameSpace__ecere__sys__PathCatSlash, module, 4);
1423 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ecere::sys::PathCat", "char * ecere::sys::PathCat(char * string, char * addedPath)", __ecereNameSpace__ecere__sys__PathCat, module, 4);
1424 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ecere::sys::MakePathRelative", "char * ecere::sys::MakePathRelative(char * path, char * to, char * destination)", __ecereNameSpace__ecere__sys__MakePathRelative, module, 4);
1425 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ecere::sys::StripExtension", "bool ecere::sys::StripExtension(char * string)", __ecereNameSpace__ecere__sys__StripExtension, module, 4);
1426 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ecere::sys::ChangeExtension", "char * ecere::sys::ChangeExtension(char * string, char * ext, char * output)", __ecereNameSpace__ecere__sys__ChangeExtension, module, 4);
1427 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ecere::sys::PrintSize", "void ecere::sys::PrintSize(char * string, uint size, int prec)", __ecereNameSpace__ecere__sys__PrintSize, module, 4);
1428 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ecere::sys::PrintBigSize", "void ecere::sys::PrintBigSize(char * string, double size, int prec)", __ecereNameSpace__ecere__sys__PrintBigSize, module, 4);
1429 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ecere::sys::SearchString", "char * ecere::sys::SearchString(char * buffer, int start, char * subStr, bool matchCase, bool matchWord)", __ecereNameSpace__ecere__sys__SearchString, module, 4);
1430 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ecere::sys::RSearchString", "char * ecere::sys::RSearchString(char * buffer, char * subStr, int maxLen, bool matchCase, bool matchWord)", __ecereNameSpace__ecere__sys__RSearchString, module, 4);
1431 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ecere::sys::Tokenize", "int ecere::sys::Tokenize(char * string, int maxTokens, char * tokens[], bool escapeBackSlashes)", __ecereNameSpace__ecere__sys__Tokenize, module, 4);
1432 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ecere::sys::TokenizeWith", "int ecere::sys::TokenizeWith(char * string, int maxTokens, char * tokens[], char * tokenizers, bool escapeBackSlashes)", __ecereNameSpace__ecere__sys__TokenizeWith, module, 4);
1433 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ecere::sys::TrimLSpaces", "char * ecere::sys::TrimLSpaces(char * string, char * output)", __ecereNameSpace__ecere__sys__TrimLSpaces, module, 4);
1434 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ecere::sys::TrimRSpaces", "char * ecere::sys::TrimRSpaces(char * string, char * output)", __ecereNameSpace__ecere__sys__TrimRSpaces, module, 4);
1435 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ecere::sys::ChangeCh", "void ecere::sys::ChangeCh(char * string, char ch1, char ch2)", __ecereNameSpace__ecere__sys__ChangeCh, module, 4);
1436 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ecere::sys::RepeatCh", "void ecere::sys::RepeatCh(char * string, int count, char ch)", __ecereNameSpace__ecere__sys__RepeatCh, module, 4);
1437 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ecere::sys::CopyString", "char * ecere::sys::CopyString(char * string)", __ecereNameSpace__ecere__sys__CopyString, module, 4);
1438 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ecere::sys::GetString", "bool ecere::sys::GetString(char * * buffer, char * string, int max)", __ecereNameSpace__ecere__sys__GetString, module, 4);
1439 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ecere::sys::GetValue", "int ecere::sys::GetValue(char * * buffer)", __ecereNameSpace__ecere__sys__GetValue, module, 4);
1440 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ecere::sys::GetHexValue", "uint ecere::sys::GetHexValue(char * * buffer)", __ecereNameSpace__ecere__sys__GetHexValue, module, 4);
1441 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ecere::sys::StripQuotes", "char * ecere::sys::StripQuotes(char * string, char * output)", __ecereNameSpace__ecere__sys__StripQuotes, module, 4);
1442 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ecere::sys::FloatFromString", "double ecere::sys::FloatFromString(char * string)", __ecereNameSpace__ecere__sys__FloatFromString, module, 4);
1443 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ecere::sys::IsPathInsideOf", "bool ecere::sys::IsPathInsideOf(char * path, char * of)", __ecereNameSpace__ecere__sys__IsPathInsideOf, module, 4);
1446 void __ecereUnregisterModule_String(struct __ecereNameSpace__ecere__com__Instance * module)