2 typedef long long int64;
3 typedef unsigned long long uint64;
7 #elif defined(__TINYC__)
9 #define __builtin_va_list va_list
10 #define __builtin_va_start va_start
11 #define __builtin_va_end va_end
13 #define strcasecmp stricmp
14 #define strncasecmp strnicmp
15 #define __declspec(x) __attribute__((x))
19 typedef long long int64;
20 typedef unsigned long long uint64;
22 typedef __int64 int64;
23 typedef unsigned __int64 uint64;
26 #define __ENDIAN_PAD(x) (8 - (x))
28 #define __ENDIAN_PAD(x) 0
32 typedef unsigned long long int uintptr_t;
33 typedef long long int intptr_t;
35 typedef unsigned int uintptr_t;
41 extern void * __ecereNameSpace__ecere__com__eSystem_New(unsigned int size);
43 extern void * __ecereNameSpace__ecere__com__eSystem_New0(unsigned int size);
45 extern void * __ecereNameSpace__ecere__com__eSystem_Renew(void * memory, unsigned int size);
47 extern void * __ecereNameSpace__ecere__com__eSystem_Renew0(void * memory, unsigned int size);
49 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__sys__BTNode;
51 struct __ecereNameSpace__ecere__sys__BTNode;
53 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__sys__BinaryTree;
55 struct __ecereNameSpace__ecere__sys__BinaryTree
57 struct __ecereNameSpace__ecere__sys__BTNode * root;
59 int (* CompareKey)(struct __ecereNameSpace__ecere__sys__BinaryTree * tree, uintptr_t a, uintptr_t b);
60 void (* FreeKey)(void * key);
61 } __attribute__ ((gcc_struct));
63 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__sys__OldList;
65 struct __ecereNameSpace__ecere__sys__OldList
72 } __attribute__ ((gcc_struct));
74 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__Class;
76 struct __ecereNameSpace__ecere__com__Class
78 struct __ecereNameSpace__ecere__com__Class * prev;
79 struct __ecereNameSpace__ecere__com__Class * next;
85 int (* Constructor)(struct __ecereNameSpace__ecere__com__Instance *);
86 void (* Destructor)(struct __ecereNameSpace__ecere__com__Instance *);
89 struct __ecereNameSpace__ecere__com__Class * base;
90 struct __ecereNameSpace__ecere__sys__BinaryTree methods;
91 struct __ecereNameSpace__ecere__sys__BinaryTree members;
92 struct __ecereNameSpace__ecere__sys__BinaryTree prop;
93 struct __ecereNameSpace__ecere__sys__OldList membersAndProperties;
94 struct __ecereNameSpace__ecere__sys__BinaryTree classProperties;
95 struct __ecereNameSpace__ecere__sys__OldList derivatives;
99 struct __ecereNameSpace__ecere__com__Instance * module;
100 struct __ecereNameSpace__ecere__com__NameSpace * nameSpace;
101 char * dataTypeString;
102 struct __ecereNameSpace__ecere__com__Instance * dataType;
104 int defaultAlignment;
105 void (* Initialize)();
107 struct __ecereNameSpace__ecere__sys__OldList selfWatchers;
108 char * designerClass;
109 unsigned int noExpansion;
110 char * defaultProperty;
111 unsigned int comRedefinition;
113 unsigned int isRemote;
114 unsigned int internalDecl;
116 unsigned int computeSize;
118 int destructionWatchOffset;
120 struct __ecereNameSpace__ecere__sys__OldList delayedCPValues;
121 int inheritanceAccess;
124 struct __ecereNameSpace__ecere__sys__OldList conversions;
125 struct __ecereNameSpace__ecere__sys__OldList templateParams;
126 struct __ecereNameSpace__ecere__com__ClassTemplateArgument * templateArgs;
127 struct __ecereNameSpace__ecere__com__Class * templateClass;
128 struct __ecereNameSpace__ecere__sys__OldList templatized;
130 } __attribute__ ((gcc_struct));
132 extern long long __ecereNameSpace__ecere__com__eClass_GetProperty(struct __ecereNameSpace__ecere__com__Class * _class, char * name);
134 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__Instance;
136 struct __ecereNameSpace__ecere__com__Instance
139 struct __ecereNameSpace__ecere__com__Class * _class;
141 } __attribute__ ((gcc_struct));
143 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__Property;
145 struct __ecereNameSpace__ecere__com__Property
147 struct __ecereNameSpace__ecere__com__Property * prev;
148 struct __ecereNameSpace__ecere__com__Property * next;
150 unsigned int isProperty;
153 struct __ecereNameSpace__ecere__com__Class * _class;
154 char * dataTypeString;
155 struct __ecereNameSpace__ecere__com__Class * dataTypeClass;
156 struct __ecereNameSpace__ecere__com__Instance * dataType;
159 unsigned int (* IsSet)();
163 unsigned int conversion;
164 unsigned int watcherOffset;
166 unsigned int compiled;
167 unsigned int selfWatchable;
168 unsigned int isWatchable;
169 } __attribute__ ((gcc_struct));
171 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__DataMember;
173 struct __ecereNameSpace__ecere__com__DataMember
175 struct __ecereNameSpace__ecere__com__DataMember * prev;
176 struct __ecereNameSpace__ecere__com__DataMember * next;
178 unsigned int isProperty;
181 struct __ecereNameSpace__ecere__com__Class * _class;
182 char * dataTypeString;
183 struct __ecereNameSpace__ecere__com__Class * dataTypeClass;
184 struct __ecereNameSpace__ecere__com__Instance * dataType;
188 struct __ecereNameSpace__ecere__sys__OldList members;
189 struct __ecereNameSpace__ecere__sys__BinaryTree membersAlpha;
192 } __attribute__ ((gcc_struct));
194 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__Method;
196 struct __ecereNameSpace__ecere__com__Method
199 struct __ecereNameSpace__ecere__com__Method * parent;
200 struct __ecereNameSpace__ecere__com__Method * left;
201 struct __ecereNameSpace__ecere__com__Method * right;
206 struct __ecereNameSpace__ecere__com__Class * _class;
208 char * dataTypeString;
209 struct __ecereNameSpace__ecere__com__Instance * dataType;
211 } __attribute__ ((gcc_struct));
213 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__SerialBuffer;
215 struct __ecereNameSpace__ecere__com__SerialBuffer
217 unsigned char * _buffer;
221 } __attribute__ ((gcc_struct));
223 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__DataValue;
225 struct __ecereNameSpace__ecere__com__DataValue
240 } __attribute__ ((gcc_struct));
241 } __attribute__ ((gcc_struct));
243 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__ClassTemplateArgument;
245 struct __ecereNameSpace__ecere__com__ClassTemplateArgument
251 char * dataTypeString;
252 struct __ecereNameSpace__ecere__com__Class * dataTypeClass;
253 } __attribute__ ((gcc_struct));
254 struct __ecereNameSpace__ecere__com__DataValue expression;
260 struct __ecereNameSpace__ecere__com__DataMember * member;
261 struct __ecereNameSpace__ecere__com__Property * prop;
262 struct __ecereNameSpace__ecere__com__Method * method;
263 } __attribute__ ((gcc_struct));
264 } __attribute__ ((gcc_struct));
265 } __attribute__ ((gcc_struct));
266 } __attribute__ ((gcc_struct));
268 typedef uintptr_t size_t;
270 void exit(int status);
272 void * calloc(size_t nmemb, size_t size);
274 void free(void * ptr);
276 void * malloc(size_t size);
278 void * realloc(void * ptr, size_t size);
280 long int strtol(const char * nptr, char ** endptr, int base);
282 long long int strtoll(const char * nptr, char ** endptr, int base);
284 unsigned long long int strtoull(const char * nptr, char ** endptr, int base);
286 extern int runtimePlatform;
295 extern int strlen(const char * );
297 extern char * strcpy(char * , const char * );
299 char * __ecereNameSpace__ecere__sys__GetExtension(char * string, char * output)
303 int len = strlen(string);
304 int limit = (__simpleStruct0 = len - (17), (0 > __simpleStruct0) ? 0 : __simpleStruct0);
307 for(c = len; c >= limit; c--)
313 strcpy(output, string + c + 1);
316 else if(ch == '/' || ch == '\\')
322 extern int strcmp(const char * , const char * );
324 extern void * memmove(void * , const void * , unsigned int size);
326 extern int __ecereNameSpace__ecere__com__GetRuntimePlatform(void);
328 char * __ecereNameSpace__ecere__sys__StripLastDirectory(char * string, char * output)
332 if(runtimePlatform == 1 && !strcmp(string, "\\\\"))
339 int len = strlen(string);
341 for(c = len - 2; c >= 0; c--)
342 if(string[c] == '/' || string[c] == '\\')
344 else if(string[c] == '>' || (string[c] == ':' && c == 0))
349 if((runtimePlatform == 1) ? (c >= 0) : (c > 0))
351 memmove(output, string, c);
354 if(runtimePlatform == 1 && c == 1 && output[0] == '\\' && output[1] == '\\')
360 strcpy(output, ((__ecereNameSpace__ecere__com__GetRuntimePlatform() == 1) ? "\\" : "/"));
367 strcpy(output, ((__ecereNameSpace__ecere__com__GetRuntimePlatform() == 1) ? "\\" : "/"));
373 return (((void *)0));
379 char * __ecereNameSpace__ecere__sys__SplitDirectory(const char * string, char * part, char * rest)
385 for(; (ch = string[c]) && (ch == '/' || ch == '\\'); c++)
388 part[len++] = ((__ecereNameSpace__ecere__com__GetRuntimePlatform() == 1) ? '\\' : '/');
391 for(; (ch = string[c]) && (ch != '/' && ch != '\\'); c++)
397 for(; (ch = string[c]) && (ch == '/' || ch == '\\'); c++)
399 memmove(rest, string + c, strlen(string + c) + 1);
400 for(c = strlen(rest); c >= 0; c--)
401 if(ch != '/' && ch != '\\')
409 char * __ecereNameSpace__ecere__sys__GetLastDirectory(char * string, char * output)
412 int len = string ? strlen(string) : 0;
414 for(c = len - 2; c >= 0; c--)
415 if(string[c] == '/' || string[c] == '\\' || string[c] == ':' || string[c] == '>')
419 memmove(output, string + c, strlen(string + c) + 1);
422 len = strlen(output);
423 if(len > 1 && (output[len - 1] == '\\' || output[len - 1] == '/'))
424 output[len - 1] = '\0';
428 extern char * strncpy(char * , const char * , int n);
430 unsigned int __ecereNameSpace__ecere__sys__SplitArchivePath(char * fileName, char * archiveName, char ** archiveFile)
432 if(fileName[0] == '<')
434 int c = strlen(fileName);
436 for(; c > 0 && fileName[c] != '>'; c--)
440 strncpy(archiveName, fileName + 1, c - 1);
441 archiveName[c - 1] = '\0';
442 *archiveFile = fileName + c + 1;
446 else if(fileName[0] == ':')
448 strcpy(archiveName, ":");
449 *archiveFile = fileName + 1;
455 extern char * strstr(char * , const char * );
457 extern int toupper(int);
459 extern char * strcat(char * , const char * );
461 extern int sprintf(char * , char * , ...);
463 char * __ecereNameSpace__ecere__sys__PathCatSlash(char * string, char * addedPath)
465 unsigned int modified = 0x0;
469 char fileName[797] = "", archiveName[797] = "", * file;
471 unsigned int isURL = 0x0;
474 if(__ecereNameSpace__ecere__sys__SplitArchivePath(string, archiveName, &file))
475 strcpy(fileName, file);
478 strcpy(fileName, string);
480 if(strstr(string, "http://") == string)
482 char * slash = strstr(fileName + 7, "/");
488 urlFileName = fileName + strlen(fileName);
490 if(strstr(addedPath, "http://") == addedPath)
492 strcpy(fileName, "http://");
496 else if(__ecereNameSpace__ecere__com__GetRuntimePlatform() == 1)
498 if(addedPath[0] && addedPath[1] == ':' && addedPath[0] != '<')
500 fileName[0] = (char)toupper(addedPath[0]);
506 else if(addedPath[0] == '\\' && addedPath[1] == '\\')
508 fileName[0] = fileName[1] = '\\';
514 if(!modified && isURL && (addedPath[0] == '\\' || addedPath[0] == '/'))
516 urlFileName[0] = '/';
517 urlFileName[1] = '\0';
519 else if(!modified && (addedPath[0] == '\\' || addedPath[0] == '/'))
521 if(__ecereNameSpace__ecere__com__GetRuntimePlatform() == 1)
523 if(addedPath[0] == '/' && !addedPath[1])
525 fileName[0] = addedPath[0];
529 else if(fileName[0] && fileName[1] == ':')
549 for(; addedPath[c]; )
551 char directory[4384LL];
556 for(; (ch = addedPath[c]) && (ch == '/' || ch == '\\'); c++)
558 for(; (ch = addedPath[c]) && (ch != '/' && ch != '\\'); c++)
560 if(isURL && ch == '?')
565 directory[len++] = ch;
567 directory[len] = '\0';
568 for(count = len - 1; count >= 0 && (directory[count] == ' ' || directory[count] == '\t'); count--)
570 directory[count] = '\0';
576 if(strstr(directory, "..") == directory && (!directory[2] || directory[2] == ((__ecereNameSpace__ecere__com__GetRuntimePlatform() == 1) ? '\\' : '/') || directory[2] == '/'))
578 int strLen = strlen(fileName) - 1;
582 for(; (ch = fileName[strLen]) && strLen > -1 && (ch == '/' || ch == '\\'); strLen--)
584 for(; (ch = fileName[strLen]) && strLen > -1 && (ch != '/' && ch != '\\' && ch != ':'); strLen--)
586 for(; (ch = fileName[strLen]) && strLen > -1 && (ch == '/' || ch == '\\'); strLen--)
592 strLen = (__simpleStruct0 = urlFileName - fileName, (strLen > __simpleStruct0) ? strLen : __simpleStruct0);
594 if(!strcmp(fileName + strLen + 1, ".."))
596 strcat(fileName, "/");
597 strcat(fileName, "..");
601 if(__ecereNameSpace__ecere__com__GetRuntimePlatform() == 1)
603 if(!strLen && fileName[0] == '\\' && fileName[1] == '\\')
606 return (((void *)0));
615 fileName[strLen + 1] = '\0';
619 fileName[strLen + 1] = '\0';
631 strcpy(fileName, "..");
634 else if(strcmp(directory, "."))
636 int strLen = strlen(fileName);
637 unsigned int notZeroLen = strLen > 0;
639 if(strLen > 0 && (fileName[strLen - 1] == '/' || fileName[strLen - 1] == '\\'))
642 fileName[strLen++] = '/';
643 fileName[strLen] = '\0';
644 if(strLen + strlen(directory) > (797) - 3)
645 return (((void *)0));
646 strcat(fileName, directory);
649 if(isURL && ch == '/')
650 strcat(fileName, "/");
651 if(isURL && ch == '?')
653 strcat(fileName, addedPath + c);
658 sprintf(string, "<%s>%s", archiveName, fileName);
660 strcpy(string, fileName);
662 return modified ? string : (((void *)0));
665 char * __ecereNameSpace__ecere__sys__PathCat(char * string, char * addedPath)
667 unsigned int modified = 0x0;
671 char fileName[797] = "", archiveName[797] = "", * file;
673 unsigned int isURL = 0x0;
676 if(__ecereNameSpace__ecere__sys__SplitArchivePath(string, archiveName, &file))
677 strcpy(fileName, file);
680 strcpy(fileName, string);
682 if(strstr(string, "http://") == string)
684 char * slash = strstr(fileName + 7, "/");
690 urlFileName = fileName + strlen(fileName);
692 if(strstr(addedPath, "http://") == addedPath)
694 strcpy(fileName, "http://");
698 else if(runtimePlatform == 1)
700 if(addedPath[0] && addedPath[1] == ':' && addedPath[0] != '<')
702 fileName[0] = (char)toupper(addedPath[0]);
708 else if(addedPath[0] == '\\' && addedPath[1] == '\\')
710 fileName[0] = fileName[1] = '\\';
715 else if(fileName[0] == '/' && !archiveName[0] && strcmp(addedPath, "/"))
716 return (((void *)0));
718 if(!modified && isURL && (addedPath[0] == '\\' || addedPath[0] == '/'))
720 urlFileName[0] = '/';
721 urlFileName[1] = '\0';
723 else if(!modified && (addedPath[0] == '\\' || addedPath[0] == '/'))
725 if(runtimePlatform == 1)
727 if(addedPath[0] == '/' && !addedPath[1])
729 fileName[0] = addedPath[0];
733 else if(fileName[0] && fileName[1] == ':')
753 for(; addedPath[c]; )
755 char directory[4384LL];
760 for(; (ch = addedPath[c]) && (ch == '/' || ch == '\\'); c++)
762 for(; (ch = addedPath[c]) && (ch != '/' && ch != '\\'); c++)
764 if(isURL && ch == '?')
769 directory[len++] = ch;
771 directory[len] = '\0';
772 for(count = len - 1; count >= 0 && (directory[count] == ' ' || directory[count] == '\t'); count--)
774 directory[count] = '\0';
780 if(strstr(directory, "..") == directory && (!directory[2] || directory[2] == ((__ecereNameSpace__ecere__com__GetRuntimePlatform() == 1) ? '\\' : '/')))
782 int strLen = strlen(fileName) - 1;
786 unsigned int separator = 0x0;
788 for(; (ch = fileName[strLen]) && strLen > -1 && (ch == '/' || ch == '\\'); strLen--)
790 for(; (ch = fileName[strLen]) && strLen > -1 && (ch != '/' && ch != '\\' && ch != ':'); strLen--)
792 for(; (ch = fileName[strLen]) && strLen > -1 && (ch == '/' || ch == '\\'); strLen--)
798 strLen = (__simpleStruct0 = urlFileName - fileName, (strLen > __simpleStruct0) ? strLen : __simpleStruct0);
800 if(!strcmp(fileName + strLen + (separator ? 2 : 1), ".."))
802 strcat(fileName, ((__ecereNameSpace__ecere__com__GetRuntimePlatform() == 1) ? "\\" : "/"));
803 strcat(fileName, "..");
807 if(runtimePlatform == 1)
809 if(!strLen && fileName[0] == '\\' && fileName[1] == '\\')
812 return (((void *)0));
821 fileName[strLen + 1] = '\0';
825 fileName[strLen + 1] = '\0';
837 strcpy(fileName, "..");
840 else if(strcmp(directory, "."))
842 int strLen = strlen(fileName);
843 unsigned int notZeroLen = strLen > 0;
845 if(strLen > 0 && (fileName[strLen - 1] == '/' || fileName[strLen - 1] == '\\'))
850 fileName[strLen++] = '/';
852 fileName[strLen++] = ((__ecereNameSpace__ecere__com__GetRuntimePlatform() == 1) ? '\\' : '/');
854 fileName[strLen] = '\0';
855 if(strLen + strlen(directory) > (797) - 3)
856 return (((void *)0));
857 strcat(fileName, directory);
860 if(isURL && ch == '/')
861 strcat(fileName, "/");
862 if(isURL && ch == '?')
864 strcat(fileName, addedPath + c);
869 sprintf(string, "<%s>%s", archiveName, fileName);
871 strcpy(string, fileName);
873 return modified ? string : (((void *)0));
876 extern int strcasecmp(const char * , const char * );
878 char * __ecereNameSpace__ecere__sys__MakePathRelative(char * path, char * to, char * destination)
881 memmove(destination, path, strlen(path) + 1);
884 char pathPart[4384LL], pathRest[797];
885 char toPart[4384LL], toRest[797];
886 unsigned int different = 0x0;
888 strcpy(pathRest, path);
890 destination[0] = '\0';
893 __ecereNameSpace__ecere__sys__SplitDirectory(toRest, toPart, toRest);
895 __ecereNameSpace__ecere__sys__SplitDirectory(pathRest, pathPart, pathRest);
896 if(different || ((__ecereNameSpace__ecere__com__GetRuntimePlatform() == 1) ? (strcasecmp) : strcmp)(toPart, pathPart))
899 strcat(destination, "..");
900 strcat(destination, ((__ecereNameSpace__ecere__com__GetRuntimePlatform() == 1) ? "\\" : "/"));
904 __ecereNameSpace__ecere__sys__PathCat(destination, pathPart);
907 __ecereNameSpace__ecere__sys__SplitDirectory(pathRest, pathPart, pathRest);
908 __ecereNameSpace__ecere__sys__PathCat(destination, pathPart);
914 unsigned int __ecereNameSpace__ecere__sys__StripExtension(char * string)
918 for(c = strlen(string); c >= 0; c--)
924 else if(string[c] == '\\' || string[c] == '/')
929 char * __ecereNameSpace__ecere__sys__ChangeExtension(char * string, char * ext, char * output)
932 strcpy(output, string);
933 __ecereNameSpace__ecere__sys__StripExtension(output);
940 void __ecereNameSpace__ecere__sys__PrintSize(char * string, unsigned int size, int prec)
946 sprintf(format, "%%.0%df", prec);
947 if(size > 1024 * 1024 * 1024)
949 sprintf(string, format, (float)size / (float)((float)(float)(1024 * 1024 * 1024)));
950 strcat(string, " GB");
952 else if(size > 1024 * 1024)
954 sprintf(string, format, (float)size / (float)((float)(float)(1024 * 1024)));
955 strcat(string, " MB");
959 sprintf(string, format, (float)size / (float)(float)1024);
960 strcat(string, " KB");
964 sprintf(string, "%d B", size);
967 void __ecereNameSpace__ecere__sys__PrintBigSize(char * string, double size, int prec)
969 if(size > (double)1024)
973 sprintf(format, "%%.0%df", prec);
974 if(size > 1024.0 * 1024.0 * 1024.0 * 1024.0)
976 sprintf(string, format, size / ((double)(double)(1024 * 1024) * 1024.0 * 1024.0));
977 strcat(string, " TB");
979 else if(size > 1024.0 * 1024.0 * 1024.0)
981 sprintf(string, format, size / (1024.0 * 1024.0 * 1024.0));
982 strcat(string, " GB");
984 else if(size > 1024.0 * 1024.0)
986 sprintf(string, format, size / (1024.0 * 1024.0));
987 strcat(string, " MB");
991 sprintf(string, format, size / 1024.0);
992 strcat(string, " KB");
996 sprintf(string, "%.0f B", size);
999 extern int strncmp(const char * , const char * , int n);
1001 extern int strncasecmp(const char * , const char * , int n);
1003 extern int tolower(int);
1005 extern int isalnum(int c);
1007 char * __ecereNameSpace__ecere__sys__SearchString(char * buffer, int start, char * subStr, unsigned int matchCase, unsigned int matchWord)
1009 if(buffer && subStr)
1012 char * strBuffer = buffer + start;
1013 int subLen = strlen(subStr);
1014 char beforeChar = start ? *(strBuffer - 1) : (char)0;
1015 int (* strcompare)(const char *, const char *, unsigned int) = matchCase ? strncmp : (strncasecmp);
1017 for(ptr = strBuffer; *ptr; ptr++)
1019 if(matchCase ? (*subStr == *ptr) : (tolower(*subStr) == tolower(*ptr)))
1023 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)))))
1028 if(!strcompare(ptr, subStr, subLen))
1032 beforeChar = ptr[0];
1035 return (((void *)0));
1038 char * __ecereNameSpace__ecere__sys__RSearchString(char * buffer, char * subStr, int maxLen, unsigned int matchCase, unsigned int matchWord)
1040 if(buffer && subStr)
1042 int subLen = strlen(subStr);
1043 char * ptr1 = buffer + maxLen - subLen;
1044 char * ptr2 = buffer + maxLen - subLen - 1;
1045 int (* strcompare)(const char *, const char *, unsigned int) = matchCase ? strncmp : (strncasecmp);
1047 for(; ptr1 >= buffer; ptr1--, ptr2--)
1049 if(tolower(*subStr) == tolower(*ptr1))
1053 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)))))
1058 if(!strcompare(ptr1, subStr, subLen))
1064 return (((void *)0));
1067 int __ecereNameSpace__ecere__sys__Tokenize(char * string, int maxTokens, char * tokens[], unsigned int escapeBackSlashes)
1070 unsigned int quoted = 0x0;
1071 unsigned char * start = (((void *)0));
1072 unsigned int escaped = 0x0;
1073 char * output = string;
1075 for(; *string && count < maxTokens; string++, output++)
1077 if(output != string)
1085 if(output != string)
1088 else if(escapeBackSlashes && *string == '\\')
1090 else if(*string == '\"')
1099 memmove(start + 1, start, string - (char *)start);
1103 else if(*string == ' ' && !quoted)
1105 tokens[count++] = start;
1107 start = (((void *)0));
1110 else if(*string != ' ')
1120 if(*string == '\\' && escapeBackSlashes)
1125 if(start && count < maxTokens)
1127 tokens[count++] = start;
1133 extern char * strchr(char * , int);
1135 int __ecereNameSpace__ecere__sys__TokenizeWith(char * string, int maxTokens, char * tokens[], char * tokenizers, unsigned int escapeBackSlashes)
1138 unsigned int quoted = 0x0;
1139 unsigned char * start = (((void *)0));
1140 unsigned int escaped = 0x0;
1141 char * output = string;
1142 unsigned int quotedFromStart = 0x0;
1144 for(; *string && count < maxTokens; string++, output++)
1146 if(output != string)
1154 if(output != string)
1157 else if(escapeBackSlashes && *string == '\\')
1159 else if(*string == '\"')
1165 quotedFromStart = 0x0;
1171 else if(strchr(tokenizers, *string) && !quoted)
1173 tokens[count++] = start;
1175 start = (((void *)0));
1178 else if(!strchr(tokenizers, *string))
1182 quotedFromStart = 0x1;
1189 if(*string == '\\' && escapeBackSlashes)
1194 if(start && count < maxTokens)
1196 tokens[count++] = start;
1202 char * __ecereNameSpace__ecere__sys__TrimLSpaces(char * string, char * output)
1206 for(c = 0; string[c] && string[c] == ' '; c++)
1208 memmove(output, string + c, strlen(string + c) + 1);
1212 char * __ecereNameSpace__ecere__sys__TrimRSpaces(char * string, char * output)
1216 for(c = strlen(string) - 1; c >= 0 && string[c] == ' '; c--)
1220 memmove(output, string, c + 1);
1221 output[c + 1] = '\0';
1228 void __ecereNameSpace__ecere__sys__ChangeCh(char * string, char ch1, char ch2)
1232 for(c = 0; string[c]; c++)
1233 if(string[c] == ch1)
1237 void __ecereNameSpace__ecere__sys__RepeatCh(char * string, int count, char ch)
1241 for(c = 0; c < count; c++)
1243 string[c] = (char)0;
1246 extern void * memcpy(void * , const void * , unsigned int size);
1248 char * __ecereNameSpace__ecere__sys__CopyString(char * string)
1252 int len = strlen(string);
1253 char * destination = __ecereNameSpace__ecere__com__eSystem_New(sizeof(char) * (len + 1));
1256 memcpy(destination, string, len + 1);
1260 return (((void *)0));
1263 unsigned int __ecereNameSpace__ecere__sys__GetString(char ** buffer, char * string, int max)
1267 unsigned int quoted = 0x0;
1268 unsigned int result = 0x1;
1272 string[0] = (char)0;
1277 if(!(ch = *((*buffer)++)))
1279 if((ch != '\n') && (ch != '\r') && (ch != ' ') && (ch != ',') && (ch != '\t'))
1286 for(c = 0; c < max - 1; c++)
1288 if(!quoted && ((ch == '\n') || (ch == '\r') || (ch == ' ') || (ch == ',') || (ch == '\t')))
1295 quoted ^= (unsigned int)1;
1300 if(!(ch = *(*buffer)))
1307 string[c] = (char)0;
1312 extern int atoi(const char * );
1314 int __ecereNameSpace__ecere__sys__GetValue(char ** buffer)
1318 __ecereNameSpace__ecere__sys__GetString(buffer, string, 20);
1319 return atoi(string);
1322 extern unsigned long strtoul(const char * nptr, char * * endptr, int base);
1324 unsigned int __ecereNameSpace__ecere__sys__GetHexValue(char ** buffer)
1328 __ecereNameSpace__ecere__sys__GetString(buffer, string, 20);
1329 return strtoul(string, (((void *)0)), 16);
1332 char * __ecereNameSpace__ecere__sys__StripQuotes(char * string, char * output)
1335 char * src = (string[0] == '\"') ? (string + 1) : string;
1337 memmove(output, src, strlen(src) + 1);
1338 len = strlen(output);
1339 if(len && output[len - 1] == '\"')
1340 output[len - 1] = '\0';
1344 extern unsigned int isdigit(int);
1346 double __ecereNameSpace__ecere__sys__FloatFromString(char * string)
1349 float dec = (float)0, res = (float)0;
1353 for(c = 0; string[c]; c++)
1364 else if((ch == '.') && !dec)
1366 else if(isdigit(ch))
1371 res += (float)dig / dec;
1375 res = res * (float)10 + (float)dig;
1380 return (float)neg * res;
1383 unsigned int __ecereNameSpace__ecere__sys__IsPathInsideOf(char * path, char * of)
1385 if(!path[0] || !of[0])
1389 char ofPart[274], ofRest[797];
1390 char pathPart[274], pathRest[797];
1393 strcpy(pathRest, path);
1394 for(; ofRest[0] && pathRest[0]; )
1396 __ecereNameSpace__ecere__sys__SplitDirectory(ofRest, ofPart, ofRest);
1397 __ecereNameSpace__ecere__sys__SplitDirectory(pathRest, pathPart, pathRest);
1398 if(((__ecereNameSpace__ecere__com__GetRuntimePlatform() == 1) ? (strcasecmp) : strcmp)(pathPart, ofPart))
1401 if(!ofRest[0] && !pathRest[0])
1403 else if(!pathRest[0])
1409 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__DefinedExpression;
1411 struct __ecereNameSpace__ecere__com__DefinedExpression;
1413 extern struct __ecereNameSpace__ecere__com__DefinedExpression * __ecereNameSpace__ecere__com__eSystem_RegisterDefine(char * name, char * value, struct __ecereNameSpace__ecere__com__Instance * module, int declMode);
1415 extern struct __ecereNameSpace__ecere__com__Class * __ecereClass___ecereNameSpace__ecere__com__GlobalFunction;
1417 struct __ecereNameSpace__ecere__com__GlobalFunction;
1419 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);
1421 void __ecereRegisterModule_String(struct __ecereNameSpace__ecere__com__Instance * module)
1423 struct __ecereNameSpace__ecere__com__Class * class;
1425 __ecereNameSpace__ecere__com__eSystem_RegisterDefine("ecere::sys::DIR_SEP", "(GetRuntimePlatform() == win32) ? '\\\\' : '/'", module, 4);
1426 __ecereNameSpace__ecere__com__eSystem_RegisterDefine("ecere::sys::DIR_SEPS", "(GetRuntimePlatform() == win32) ? \"\\\\\" : \"/\"", module, 4);
1427 __ecereNameSpace__ecere__com__eSystem_RegisterDefine("ecere::sys::MAX_F_STRING", "1025", module, 4);
1428 __ecereNameSpace__ecere__com__eSystem_RegisterDefine("ecere::sys::MAX_EXTENSION", "17", module, 4);
1429 __ecereNameSpace__ecere__com__eSystem_RegisterDefine("ecere::sys::MAX_FILENAME", "274", module, 4);
1430 __ecereNameSpace__ecere__com__eSystem_RegisterDefine("ecere::sys::MAX_DIRECTORY", "534", module, 4);
1431 __ecereNameSpace__ecere__com__eSystem_RegisterDefine("ecere::sys::MAX_LOCATION", "797", module, 4);
1432 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ecere::sys::GetExtension", "char * ecere::sys::GetExtension(char * string, char * output)", __ecereNameSpace__ecere__sys__GetExtension, module, 4);
1433 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ecere::sys::StripLastDirectory", "char * ecere::sys::StripLastDirectory(char * string, char * output)", __ecereNameSpace__ecere__sys__StripLastDirectory, module, 4);
1434 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ecere::sys::SplitDirectory", "char * ecere::sys::SplitDirectory(char * string, char * part, char * rest)", __ecereNameSpace__ecere__sys__SplitDirectory, module, 4);
1435 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ecere::sys::GetLastDirectory", "char * ecere::sys::GetLastDirectory(char * string, char * output)", __ecereNameSpace__ecere__sys__GetLastDirectory, module, 4);
1436 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ecere::sys::SplitArchivePath", "bool ecere::sys::SplitArchivePath(char * fileName, char * archiveName, char * * archiveFile)", __ecereNameSpace__ecere__sys__SplitArchivePath, module, 4);
1437 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ecere::sys::PathCatSlash", "char * ecere::sys::PathCatSlash(char * string, char * addedPath)", __ecereNameSpace__ecere__sys__PathCatSlash, module, 4);
1438 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ecere::sys::PathCat", "char * ecere::sys::PathCat(char * string, char * addedPath)", __ecereNameSpace__ecere__sys__PathCat, module, 4);
1439 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ecere::sys::MakePathRelative", "char * ecere::sys::MakePathRelative(char * path, char * to, char * destination)", __ecereNameSpace__ecere__sys__MakePathRelative, module, 4);
1440 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ecere::sys::StripExtension", "bool ecere::sys::StripExtension(char * string)", __ecereNameSpace__ecere__sys__StripExtension, module, 4);
1441 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ecere::sys::ChangeExtension", "char * ecere::sys::ChangeExtension(char * string, char * ext, char * output)", __ecereNameSpace__ecere__sys__ChangeExtension, module, 4);
1442 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ecere::sys::PrintSize", "void ecere::sys::PrintSize(char * string, uint size, int prec)", __ecereNameSpace__ecere__sys__PrintSize, module, 4);
1443 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ecere::sys::PrintBigSize", "void ecere::sys::PrintBigSize(char * string, double size, int prec)", __ecereNameSpace__ecere__sys__PrintBigSize, module, 4);
1444 __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);
1445 __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);
1446 __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);
1447 __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);
1448 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ecere::sys::TrimLSpaces", "char * ecere::sys::TrimLSpaces(char * string, char * output)", __ecereNameSpace__ecere__sys__TrimLSpaces, module, 4);
1449 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ecere::sys::TrimRSpaces", "char * ecere::sys::TrimRSpaces(char * string, char * output)", __ecereNameSpace__ecere__sys__TrimRSpaces, module, 4);
1450 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ecere::sys::ChangeCh", "void ecere::sys::ChangeCh(char * string, char ch1, char ch2)", __ecereNameSpace__ecere__sys__ChangeCh, module, 4);
1451 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ecere::sys::RepeatCh", "void ecere::sys::RepeatCh(char * string, int count, char ch)", __ecereNameSpace__ecere__sys__RepeatCh, module, 4);
1452 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ecere::sys::CopyString", "char * ecere::sys::CopyString(char * string)", __ecereNameSpace__ecere__sys__CopyString, module, 4);
1453 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ecere::sys::GetString", "bool ecere::sys::GetString(char * * buffer, char * string, int max)", __ecereNameSpace__ecere__sys__GetString, module, 4);
1454 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ecere::sys::GetValue", "int ecere::sys::GetValue(char * * buffer)", __ecereNameSpace__ecere__sys__GetValue, module, 4);
1455 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ecere::sys::GetHexValue", "uint ecere::sys::GetHexValue(char * * buffer)", __ecereNameSpace__ecere__sys__GetHexValue, module, 4);
1456 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ecere::sys::StripQuotes", "char * ecere::sys::StripQuotes(char * string, char * output)", __ecereNameSpace__ecere__sys__StripQuotes, module, 4);
1457 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ecere::sys::FloatFromString", "double ecere::sys::FloatFromString(char * string)", __ecereNameSpace__ecere__sys__FloatFromString, module, 4);
1458 __ecereNameSpace__ecere__com__eSystem_RegisterFunction("ecere::sys::IsPathInsideOf", "bool ecere::sys::IsPathInsideOf(char * path, char * of)", __ecereNameSpace__ecere__sys__IsPathInsideOf, module, 4);
1461 void __ecereUnregisterModule_String(struct __ecereNameSpace__ecere__com__Instance * module)