rnd-20100216-1-src
[rocksndiamonds.git] / src / game_sp / PathTools.c
1 // ----------------------------------------------------------------------------
2 // PathTools.c
3 // ----------------------------------------------------------------------------
4
5 #include "PathTools.h"
6
7 // static char *VB_Name = "PathTools_Module";
8
9 // --- Option Explicit
10 // --- Option Compare Text
11
12 // ###########  Quote & UnQuote ##################################################
13
14 void UnQuote(char *ST)
15 {
16   long L;
17
18   L = strlen(ST);
19   while (STRING_IS_LIKE(ST, "\"*"))
20   {
21     ST = Right(ST, L - 1);
22     L = L - 1;
23   }
24
25   while (STRING_IS_LIKE(ST, "*\""))
26   {
27     ST = Left(ST, L - 1);
28   }
29 }
30
31 void Quote(char *ST)
32 {
33   if (! STRING_IS_LIKE(ST, "\"*"))
34     ST = CAT("\"", ST);
35
36   if (! STRING_IS_LIKE(ST, "*\""))
37     ST = CAT(ST, "\"");
38 }
39
40 char *UnQuoted(char *STRG)
41 {
42   char *UnQuoted;
43
44   long L;
45   char *ST;
46
47   ST = STRG;
48   L = strlen(ST);
49   while (STRING_IS_LIKE(ST, "\"*"))
50   {
51     ST = Right(ST, L - 1);
52     L = L - 1;
53   }
54
55   while (STRING_IS_LIKE(ST, "*\""))
56   {
57     ST = Left(ST, L - 1);
58   }
59
60   UnQuoted = ST;
61
62   return UnQuoted;
63 }
64
65 char *Quoted(char *STRG)
66 {
67   char *Quoted;
68
69   char *ST;
70
71   ST = STRG;
72   if (! STRING_IS_LIKE(ST, "\"*"))
73     ST = CAT("\"", ST);
74
75   if (! STRING_IS_LIKE(ST, "*\""))
76     ST = CAT(ST, "\"");
77
78   Quoted = ST;
79
80   return Quoted;
81 }
82
83 // ############ Path-/FileName-Extraction and concatanation ######################
84
85 char *StripDir(char *Path)
86 {
87   char *StripDir;
88
89   char *T;
90   long i;
91
92   T = StrReverse(Path);
93   i = InStr(1, T, "/");
94   if (i == 0)
95     StripDir = "";
96   else
97     StripDir = StrReverse(Right(T, strlen(T) - i));
98
99   return StripDir;
100 }
101
102 char *StripFileName(char *Path)
103 {
104   char *StripFileName;
105
106   char *T;
107   long i;
108
109   T = StrReverse(Path);
110   if (STRING_IS_LIKE(T, "/*"))
111     T = Right(T, strlen(T) - 1);
112
113   i = InStr(1, T, "/");
114   if (i == 0)
115     i = strlen(T) + 1;
116
117   if (i < 2)
118     StripFileName = "";
119   else
120     StripFileName = StrReverse(Left(T, i - 1));
121
122   return StripFileName;
123 }
124
125 char *StripExtension(char *Path)
126 {
127   char *StripExtension;
128
129   char *T;
130   long i, iSlash;
131
132   T = StrReverse(Path);
133   iSlash = InStr(1, T, "/");
134   i = InStr(1, T, ".");
135   if ((i < 2) || (iSlash < i))
136     StripExtension = "";
137   else
138     StripExtension = StrReverse(Left(T, i - 1));
139
140   return StripExtension;
141 }
142
143 char *NewExtension(char *Path, char *NewExt)
144 {
145   char *NewExtension;
146
147   // NewExtension("C:\MyPath\MyFile.Old","New") returns "C:\MyPath\MyFile.New"
148   // NewExtension("C:\MyPath.dir\MyFile","New") returns "C:\MyPath\MyFile.New"
149   char *T;
150   long i, iSlash, ELen;
151
152   T = StrReverse(Path);
153   iSlash = InStr(1, T, "/");
154   i = InStr(1, T, ".");
155   if ((i < 1) || (iSlash < i))
156     ELen = 0;
157   else
158     ELen = i;
159
160   NewExtension = CAT(Left(StrReverse(T), strlen(T) - i), ".", NewExt);
161
162   return NewExtension;
163 }
164
165 char *StripExtensionlessFileName(char *Path)
166 {
167   char *StripExtensionlessFileName;
168
169   char *T, *T2;
170   // long i, iSlash;
171
172   T = StripFileName(Path);
173   T2 = StripExtension(Path);
174   StripExtensionlessFileName = Left(T, strlen(T) - strlen(T2) - (0 < strlen(T2) ? 1 : 0));
175
176   return StripExtensionlessFileName;
177 }
178
179 char *WithSlash(char *Path)
180 {
181   char *WithSlash;
182
183   if (STRING_IS_LIKE(Path, "*/"))
184   {
185     WithSlash = Path;
186   }
187   else
188   {
189     WithSlash = CAT(Path, "/");
190   }
191
192   return WithSlash;
193 }
194
195 char *SlashLess(char *Path)
196 {
197   char *SlashLess;
198
199   SlashLess = Path;
200   while (STRING_IS_LIKE(SlashLess, "*/"))
201   {
202     SlashLess = Left(Path, strlen(Path) - 1);
203   }
204
205   return SlashLess;
206 }
207
208 // ############ File-/Diresctory-Operations ######################################
209
210 boolean FileExists(char *Path)
211 {
212   boolean FileExists;
213
214   if ((STRING_IS_LIKE(Dir(Path), "")) || (STRING_IS_LIKE(Path, "")))
215     FileExists = False;
216   else
217     FileExists = True;
218
219   return FileExists;
220 }
221
222 void MayKill(char *Path)
223 {
224
225   // --- On Error GoTo MayKillEH
226   Kill(Path);
227   // MayKillEH:
228 }
229
230 boolean IsDir(char *Path)
231 {
232   boolean IsDir;
233
234
235   // --- On Error Resume Next
236   IsDir = (vbDirectory == (GetAttr(Path) & vbDirectory));
237   if (Err.Number != 0)
238     IsDir = False;
239
240   return IsDir;
241 }
242
243 // ######### binary comparison of files ##########################################
244
245 boolean FilesEqual(char *Path1, char *Path2)
246 {
247   boolean FilesEqual;
248
249   FILE *FNum1, *FNum2;
250   long nSize, i;
251   boolean b1Open, b2Open;
252   byte *bin1, *bin2;
253
254   FilesEqual = False;
255   // Debug.Assert(FileExists(Path1));
256   // Debug.Assert(FileExists(Path2));
257   if (! (FileExists(Path1) && FileExists(Path2)))
258     return FilesEqual;
259
260   nSize = FileLen(Path1);
261   if (nSize != FileLen(Path2))
262     return FilesEqual;
263
264   bin1 = REDIM_1D(sizeof(byte), 0, nSize + 1 - 1);
265   bin2 = REDIM_1D(sizeof(byte), 0, nSize + 1 - 1);
266   b1Open = False;
267   b2Open = False;
268
269   // --- On Error GoTo FilesEqualEH
270   // FNum1 = FreeFile();
271   FNum1 = fopen(Path1, "rb");
272   b1Open = True;
273   FILE_GET(FNum1, -1, &bin1, sizeof(bin1));
274   fclose(FNum1);
275   b1Open = False;
276   // FNum2 = FreeFile();
277   FNum2 = fopen(Path2, "rb");
278   b2Open = True;
279   FILE_GET(FNum2, -1, &bin2, sizeof(bin2));
280   fclose(FNum2);
281   b2Open = False;
282   // --- On Error GoTo 0
283
284   for (i = 1; i <= nSize; i++)
285   {
286     if (bin1[i] != bin2[i]) // return false
287       return FilesEqual;
288   }
289
290   FilesEqual = True;
291   return FilesEqual;
292
293 #if 0
294 FilesEqualEH:
295   if (b1Open)
296     fclose(FNum1);
297
298   if (b2Open)
299     fclose(FNum2);
300
301   return FilesEqual;
302 #endif
303
304 }