ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/common/porting.C
(Generate patch)

Comparing deliantra/server/common/porting.C (file contents):
Revision 1.2 by root, Tue Aug 29 08:01:35 2006 UTC vs.
Revision 1.4 by root, Thu Sep 7 09:28:44 2006 UTC

1/* 1/*
2 * static char *rcsid_porting_c = 2 * static char *rcsid_porting_c =
3 * "$Id: porting.C,v 1.2 2006/08/29 08:01:35 root Exp $"; 3 * "$Id: porting.C,v 1.4 2006/09/07 09:28:44 root Exp $";
4 */ 4 */
5 5
6/* 6/*
7 CrossFire, A Multiplayer game for X-windows 7 CrossFire, A Multiplayer game for X-windows
8 8
… …
32 * nasty system dependent stuff is contained here, with the program 32 * nasty system dependent stuff is contained here, with the program
33 * calling these functions. 33 * calling these functions.
34 */ 34 */
35 35
36 36
37#ifdef WIN32 /* ---win32 exclude/include headers */ 37#ifdef WIN32 /* ---win32 exclude/include headers */
38#include "process.h" 38#include "process.h"
39#define pid_t int /* we include it non global, because there is a redefinition in python.h */ 39#define pid_t int /* we include it non global, because there is a redefinition in python.h */
40#else 40#else
41#include <ctype.h> 41#include <ctype.h>
42#include <sys/stat.h> 42#include <sys/stat.h>
43#include <sys/wait.h> 43#include <sys/wait.h>
44 44
… …
63/* Has to be after above includes so we don't redefine some values */ 63/* Has to be after above includes so we don't redefine some values */
64#include "global.h" 64#include "global.h"
65 65
66static unsigned int curtmp = 0; 66static unsigned int curtmp = 0;
67 67
68/* This is a list of the suffix, uncompress and compress functions. Thus,
69 * if you have some other compress program you want to use, the only thing
70 * that needs to be done is to extended this.
71 * The first entry must be NULL - this is what is used for non
72 * compressed files.
73 */
74EXTERN char *uncomp[NROF_COMPRESS_METHODS][3] = {
75 {NULL, NULL, NULL},
76 {".Z", UNCOMPRESS, COMPRESS},
77 {".gz", GUNZIP, GZIP},
78 {".bz2", BUNZIP, BZIP}
79};
80
81/***************************************************************************** 68/*****************************************************************************
82 * File related functions 69 * File related functions
83 ****************************************************************************/ 70 ****************************************************************************/
84 71
85/* 72/*
86 * A replacement for the tempnam() function since it's not defined 73 * A replacement for the tempnam() function since it's not defined
87 * at some unix variants. 74 * at some unix variants.
88 */ 75 */
89 76
77char *
90char *tempnam_local(const char *dir, const char *pfx) 78tempnam_local (const char *dir, const char *pfx)
91{ 79{
92 char *name; 80 char *name;
93 pid_t pid=getpid(); 81 pid_t pid = getpid ();
94 82
95/* HURD does not have a hard limit, but we do */ 83/* HURD does not have a hard limit, but we do */
96#ifndef MAXPATHLEN 84#ifndef MAXPATHLEN
97#define MAXPATHLEN 4096 85#define MAXPATHLEN 4096
98#endif 86#endif
99 87
100 if (!(name = (char *) malloc(MAXPATHLEN))) 88 if (!(name = (char *) malloc (MAXPATHLEN)))
101 return(NULL); 89 return (NULL);
102 90
103 if (!pfx) 91 if (!pfx)
104 pfx = "cftmp."; 92 pfx = "cftmp.";
105 93
106 /* This is a pretty simple method - put the pid as a hex digit and 94 /* This is a pretty simple method - put the pid as a hex digit and
107 * just keep incrementing the last digit. Check to see if the file 95 * just keep incrementing the last digit. Check to see if the file
108 * already exists - if so, we'll just keep looking - eventually we should 96 * already exists - if so, we'll just keep looking - eventually we should
109 * find one that is free. 97 * find one that is free.
110 */ 98 */
111 if (dir!=NULL) { 99 if (dir != NULL)
100 {
112 do { 101 do
102 {
113#ifdef HAVE_SNPRINTF 103#ifdef HAVE_SNPRINTF
114 (void)snprintf(name, MAXPATHLEN, "%s/%s%hx.%d", dir, pfx, pid, curtmp); 104 (void) snprintf (name, MAXPATHLEN, "%s/%s%hx.%d", dir, pfx, pid, curtmp);
115#else 105#else
116 (void)sprintf(name,"%s/%s%hx%d", dir, pfx, pid, curtmp); 106 (void) sprintf (name, "%s/%s%hx%d", dir, pfx, pid, curtmp);
117#endif 107#endif
118 curtmp++; 108 curtmp++;
109 }
119 } while (access(name, F_OK)!=-1); 110 while (access (name, F_OK) != -1);
120 return(name); 111 return (name);
121 } 112 }
122 return(NULL); 113 return (NULL);
123} 114}
124 115
125 116
126 117
127/* This function removes everything in the directory. */ 118/* This function removes everything in the directory. */
119void
128void remove_directory(const char *path) 120remove_directory (const char *path)
129{ 121{
130 DIR *dirp; 122 DIR *dirp;
131 char buf[MAX_BUF]; 123 char buf[MAX_BUF];
132 struct stat statbuf; 124 struct stat statbuf;
133 int status; 125 int status;
134 126
135 if ((dirp=opendir(path))!=NULL) { 127 if ((dirp = opendir (path)) != NULL)
128 {
136 struct dirent *de; 129 struct dirent *de;
137 130
138 for (de=readdir(dirp); de; de = readdir(dirp)) { 131 for (de = readdir (dirp); de; de = readdir (dirp))
132 {
139 /* Don't remove '.' or '..' In theory we should do a better 133 /* Don't remove '.' or '..' In theory we should do a better
140 * check for .., but the directories we are removing are fairly 134 * check for .., but the directories we are removing are fairly
141 * limited and should not have dot files in them. 135 * limited and should not have dot files in them.
142 */ 136 */
143 if (de->d_name[0] == '.') continue; 137 if (de->d_name[0] == '.')
138 continue;
144 139
145 /* Linux actually has a type field in the dirent structure, 140 /* Linux actually has a type field in the dirent structure,
146 * but that is not portable - stat should be portable 141 * but that is not portable - stat should be portable
147 */ 142 */
148 status=stat(de->d_name, &statbuf); 143 status = stat (de->d_name, &statbuf);
149 if ((status!=-1) && (S_ISDIR(statbuf.st_mode))) { 144 if ((status != -1) && (S_ISDIR (statbuf.st_mode)))
150 sprintf(buf,"%s/%s", path, de->d_name); 145 {
151 remove_directory(buf);
152 continue;
153 }
154 sprintf(buf,"%s/%s", path, de->d_name); 146 sprintf (buf, "%s/%s", path, de->d_name);
155 if (unlink(buf)) { 147 remove_directory (buf);
148 continue;
149 }
150 sprintf (buf, "%s/%s", path, de->d_name);
151 if (unlink (buf))
152 {
156 LOG(llevError,"Unable to remove directory %s\n", path); 153 LOG (llevError, "Unable to remove directory %s\n", path);
157 } 154 }
158 } 155 }
159 closedir(dirp); 156 closedir (dirp);
160 } 157 }
161 if (rmdir(path)) { 158 if (rmdir (path))
159 {
162 LOG(llevError,"Unable to remove directory %s\n", path); 160 LOG (llevError, "Unable to remove directory %s\n", path);
163 } 161 }
164} 162}
165 163
166#if defined(sgi) 164#if defined(sgi)
167 165
… …
169#include <stdlib.h> 167#include <stdlib.h>
170#include <string.h> 168#include <string.h>
171 169
172#define popen fixed_popen 170#define popen fixed_popen
173 171
172FILE *
174FILE *popen_local(const char *command, const char *type) 173popen_local (const char *command, const char *type)
175{ 174{
176 int fd[2]; 175 int fd[2];
177 int pd; 176 int pd;
178 FILE *ret; 177 FILE *ret;
179 if (!strcmp(type,"r")) 178 if (!strcmp (type, "r"))
180 { 179 {
181 pd=STDOUT_FILENO; 180 pd = STDOUT_FILENO;
182 } 181 }
183 else if (!strcmp(type,"w")) 182 else if (!strcmp (type, "w"))
184 { 183 {
185 pd=STDIN_FILENO; 184 pd = STDIN_FILENO;
186 } 185 }
187 else 186 else
188 { 187 {
189 return NULL;
190 }
191 if (pipe(fd)!=-1)
192 {
193 switch (fork())
194 {
195 case -1:
196 close(fd[0]);
197 close(fd[1]);
198 break;
199 case 0:
200 close(fd[0]);
201 if ((fd[1]==pd)||(dup2(fd[1],pd)==pd))
202 {
203 if (fd[1]!=pd)
204 {
205 close(fd[1]);
206 }
207 execl("/bin/sh","sh","-c",command,NULL);
208 close(pd);
209 }
210 exit(1);
211 break;
212 default:
213 close(fd[1]);
214 if (ret=fdopen(fd[0],type))
215 {
216 return ret;
217 }
218 close(fd[0]);
219 break;
220 }
221 }
222 return NULL; 188 return NULL;
189 }
190 if (pipe (fd) != -1)
191 {
192 switch (fork ())
193 {
194 case -1:
195 close (fd[0]);
196 close (fd[1]);
197 break;
198 case 0:
199 close (fd[0]);
200 if ((fd[1] == pd) || (dup2 (fd[1], pd) == pd))
201 {
202 if (fd[1] != pd)
203 {
204 close (fd[1]);
205 }
206 execl ("/bin/sh", "sh", "-c", command, NULL);
207 close (pd);
208 }
209 exit (1);
210 break;
211 default:
212 close (fd[1]);
213 if (ret = fdopen (fd[0], type))
214 {
215 return ret;
216 }
217 close (fd[0]);
218 break;
219 }
220 }
221 return NULL;
223} 222}
224 223
225#endif /* defined(sgi) */ 224#endif /* defined(sgi) */
226 225
227 226
… …
233 232
234/* 233/*
235 * A replacement of strdup(), since it's not defined at some 234 * A replacement of strdup(), since it's not defined at some
236 * unix variants. 235 * unix variants.
237 */ 236 */
237char *
238char *strdup_local(const char *str) { 238strdup_local (const char *str)
239{
239 char *c=(char *)malloc(sizeof(char)*(strlen(str)+1)); 240 char *c = (char *) malloc (sizeof (char) * (strlen (str) + 1));
240 strcpy(c,str); 241 strcpy (c, str);
241 return c; 242 return c;
242} 243}
243 244
244 245
245#define DIGIT(x) (isdigit(x) ? (x) - '0' : \ 246#define DIGIT(x) (isdigit(x) ? (x) - '0' : \
246islower (x) ? (x) + 10 - 'a' : (x) + 10 - 'A') 247islower (x) ? (x) + 10 - 'a' : (x) + 10 - 'A')
247#define MBASE ('z' - 'a' + 1 + 10) 248#define MBASE ('z' - 'a' + 1 + 10)
248 249
249/* This seems to be lacking on some system */ 250/* This seems to be lacking on some system */
250#if !defined(HAVE_STRNCASECMP) 251#if !defined(HAVE_STRNCASECMP)
252int
251int strncasecmp(const char *s1, const char *s2, int n) 253strncasecmp (const char *s1, const char *s2, int n)
252{ 254{
253 register int c1, c2; 255 register int c1, c2;
254 256
255 while (*s1 && *s2 && n) { 257 while (*s1 && *s2 && n)
258 {
256 c1 = tolower(*s1); 259 c1 = tolower (*s1);
257 c2 = tolower(*s2); 260 c2 = tolower (*s2);
258 if (c1 != c2) 261 if (c1 != c2)
259 return (c1 - c2); 262 return (c1 - c2);
260 s1++; 263 s1++;
261 s2++; 264 s2++;
262 n--; 265 n--;
263 } 266 }
264 if (!n) 267 if (!n)
265 return(0); 268 return (0);
266 return (int) (*s1 - *s2); 269 return (int) (*s1 - *s2);
267} 270}
268#endif 271#endif
269 272
270#if !defined(HAVE_STRCASECMP) 273#if !defined(HAVE_STRCASECMP)
274int
271int strcasecmp(const char *s1, const char*s2) 275strcasecmp (const char *s1, const char *s2)
272{ 276{
273 register int c1, c2; 277 register int c1, c2;
274 278
275 while (*s1 && *s2) { 279 while (*s1 && *s2)
280 {
276 c1 = tolower(*s1); 281 c1 = tolower (*s1);
277 c2 = tolower(*s2); 282 c2 = tolower (*s2);
278 if (c1 != c2) 283 if (c1 != c2)
279 return (c1 - c2); 284 return (c1 - c2);
280 s1++; 285 s1++;
281 s2++; 286 s2++;
282 } 287 }
283 if (*s1=='\0' && *s2=='\0') 288 if (*s1 == '\0' && *s2 == '\0')
284 return 0; 289 return 0;
285 return (int) (*s1 - *s2); 290 return (int) (*s1 - *s2);
286} 291}
287#endif 292#endif
288 293
294char *
289char *strcasestr_local(const char *s, const char *find) 295strcasestr_local (const char *s, const char *find)
290{ 296{
291 char c, sc; 297 char c, sc;
292 size_t len; 298 size_t len;
293 299
294 if ((c = *find++) != 0) { 300 if ((c = *find++) != 0)
301 {
295 c = tolower(c); 302 c = tolower (c);
296 len = strlen(find); 303 len = strlen (find);
297 do { 304 do
298 do { 305 {
306 do
307 {
299 if ((sc = *s++) == 0) 308 if ((sc = *s++) == 0)
300 return NULL; 309 return NULL;
310 }
301 } while (tolower(sc) != c); 311 while (tolower (sc) != c);
312 }
302 } while (strncasecmp(s, find, len) != 0); 313 while (strncasecmp (s, find, len) != 0);
303 s--; 314 s--;
304 } 315 }
305 return (char *)s; 316 return (char *) s;
306} 317}
307 318
308#if !defined(HAVE_SNPRINTF) 319#if !defined(HAVE_SNPRINTF)
309 320
321int
310int snprintf(char *dest, int max, const char *format, ...) 322snprintf (char *dest, int max, const char *format, ...)
311{ 323{
312 va_list var; 324 va_list var;
313 int ret; 325 int ret;
314 326
315 va_start(var, format); 327 va_start (var, format);
316 ret = vsprintf(dest, format, var); 328 ret = vsprintf (dest, format, var);
317 va_end(var); 329 va_end (var);
318 if (ret > max) abort(); 330 if (ret > max)
331 abort ();
319 332
320 return ret; 333 return ret;
321} 334}
322#endif 335#endif
323 336
324
325/* This takes an err number and returns a string with a description of
326 * the error.
327 */
328char *strerror_local(int errnum)
329{
330#if defined(HAVE_STRERROR)
331 return(strerror(errnum));
332#else
333 return("strerror_local not implemented");
334#endif
335}
336 337
337/* 338/*
338 * Based on (n+1)^2 = n^2 + 2n + 1 339 * Based on (n+1)^2 = n^2 + 2n + 1
339 * given that 1^2 = 1, then 340 * given that 1^2 = 1, then
340 * 2^2 = 1 + (2 + 1) = 1 + 3 = 4 341 * 2^2 = 1 + (2 + 1) = 1 + 3 = 4
… …
343 * ... 344 * ...
344 * In other words, a square number can be express as the sum of the 345 * In other words, a square number can be express as the sum of the
345 * series n^2 = 1 + 3 + ... + (2n-1) 346 * series n^2 = 1 + 3 + ... + (2n-1)
346 */ 347 */
347int 348int
348isqrt(int n) 349isqrt (int n)
349{ 350{
350 int result, sum, prev; 351 int result, sum, prev;
351 result = 0; 352 result = 0;
352 prev = sum = 1; 353 prev = sum = 1;
353 while (sum <= n) { 354 while (sum <= n)
355 {
354 prev += 2; 356 prev += 2;
355 sum += prev; 357 sum += prev;
356 ++result; 358 ++result;
357 } 359 }
358 return result; 360 return result;
359} 361}
360 362
361 363
362/* 364/*
363 * returns a char-pointer to a static array, in which a representation 365 * returns a char-pointer to a static array, in which a representation
364 * of the decimal number given will be stored. 366 * of the decimal number given will be stored.
365 */ 367 */
366 368
369char *
367char *ltostr10(signed long n) { 370ltostr10 (signed long n)
371{
368 static char buf[12]; /* maximum size is n=-2 billion, i.e. 11 characters+1 372 static char buf[12]; /* maximum size is n=-2 billion, i.e. 11 characters+1
369 character for the trailing nul character */ 373 character for the trailing nul character */
370 snprintf(buf, sizeof(buf), "%ld", n); 374 snprintf (buf, sizeof (buf), "%ld", n);
371 return buf; 375 return buf;
372} 376}
377
378char *
373char *doubletostr10(double v){ 379doubletostr10 (double v)
380{
374 static char tbuf[200]; 381 static char tbuf[200];
375 sprintf(tbuf,"%f",v); 382 sprintf (tbuf, "%f", v);
376 return tbuf; 383 return tbuf;
377}
378
379/*
380 * A fast routine which appends the name and decimal number specified
381 * to the given buffer.
382 * Could be faster, though, if the strcat()s at the end could be changed
383 * into alternate strcat which returned a pointer to the _end_, not the
384 * start!
385 *
386 * Hey good news, it IS faster now, according to changes in get_ob_diff
387 * Completly redone prototype and made define in loader.l. See changes there.
388 * Didn't touch those for speed reason (don't use them anymore) .
389 * Tchize
390 */
391
392void save_long(char *buf, char *name, long n) {
393 char buf2[MAX_BUF];
394 strcpy(buf2,name);
395 strcat(buf2," ");
396 strcat(buf2,ltostr10(n));
397 strcat(buf2,"\n");
398 strcat(buf,buf2);
399}
400
401
402
403void save_long_long(char *buf, char *name, sint64 n) {
404 char buf2[MAX_BUF];
405
406#ifndef WIN32
407 sprintf(buf2,"%s %lld\n", name, n);
408#else
409 sprintf(buf2,"%s %I64d\n", name, n);
410#endif
411 strcat(buf,buf2);
412}
413
414/**
415 * Open and possibly uncompress a file.
416 *
417 * @param ext the extension if the file is compressed.
418 *
419 * @param uncompressor the command to uncompress the file if the file is
420 * compressed.
421 *
422 * @param name the base file name without compression extension
423 *
424 * @param flag only used for compressed files: if set, uncompress and open the
425 * file; if unset, uncompress the file via pipe
426 *
427 * @param *compressed set to zero if the file was uncompressed
428 */
429static FILE *open_and_uncompress_file(const char *ext, const char *uncompressor, const char *name, int flag, int *compressed) {
430 struct stat st;
431 char buf[MAX_BUF];
432 char buf2[MAX_BUF];
433 int ret;
434
435 if (ext == NULL) {
436 ext = "";
437 }
438
439 if (strlen(name)+strlen(ext) >= sizeof(buf)) {
440 errno = ENAMETOOLONG; /* File name too long */
441 return NULL;
442 }
443 sprintf(buf, "%s%s", name, ext);
444
445 if (stat(buf, &st) != 0) {
446 return NULL;
447 }
448
449 if (!S_ISREG(st.st_mode)) {
450 errno = EISDIR; /* Not a regular file */
451 return NULL;
452 }
453
454 if (uncompressor == NULL) {
455 /* open without uncompression */
456
457 return fopen(buf, "r");
458 }
459
460 /* The file name buf (and its substring name) is passed as an argument to a
461 * shell command, therefore check for characters that could confuse the
462 * shell.
463 */
464 if (strpbrk(buf, "'\\\r\n") != NULL) {
465 errno = ENOENT; /* Pretend the file does not exist */
466 return NULL;
467 }
468
469 if (!flag) {
470 /* uncompress via pipe */
471
472 if (strlen(uncompressor)+4+strlen(buf)+1 >= sizeof(buf2)) {
473 errno = ENAMETOOLONG; /* File name too long */
474 return NULL;
475 }
476 sprintf(buf2, "%s < '%s'", uncompressor, buf);
477
478 return popen(buf2, "r");
479 }
480
481 /* remove compression from file, then open file */
482
483 if (stat(name, &st) == 0 && !S_ISREG(st.st_mode)) {
484 errno = EISDIR;
485 return NULL;
486 }
487
488 if (strlen(uncompressor)+4+strlen(buf)+5+strlen(name)+1 >= sizeof(buf2)) {
489 errno = ENAMETOOLONG; /* File name too long */
490 return NULL;
491 }
492 sprintf(buf2, "%s < '%s' > '%s'", uncompressor, buf, name);
493
494 ret = system(buf2);
495 if (!WIFEXITED(ret) || WEXITSTATUS(ret) != 0) {
496 LOG(llevError, "system(%s) returned %d\n", buf2, ret);
497 errno = ENOENT;
498 return NULL;
499 }
500
501 unlink(buf); /* Delete the original */
502 *compressed = 0; /* Change to "uncompressed file" */
503 chmod(name, st.st_mode); /* Copy access mode from compressed file */
504
505 return fopen(name, "r");
506} 384}
507 385
508/** 386/**
509 * open_and_uncompress() first searches for the original filename. If it exist, 387 * open_and_uncompress() first searches for the original filename. If it exist,
510 * then it opens it and returns the file-pointer. 388 * then it opens it and returns the file-pointer.
511 * 389 */
512 * If not, it does two things depending on the flag. If the flag is set, it 390FILE *
513 * tries to create the original file by appending a compression suffix to name
514 * and uncompressing it. If the flag is not set, it creates a pipe that is used
515 * for reading the file (NOTE - you can not use fseek on pipes).
516 *
517 * The compressed pointer is set to nonzero if the file is compressed (and
518 * thus, fp is actually a pipe.) It returns 0 if it is a normal file.
519 */
520FILE *open_and_uncompress(const char *name, int flag, int *compressed) { 391open_and_uncompress (const char *name, int flag, int *compressed)
392{
521 size_t i; 393 size_t i;
522 FILE *fp; 394 FILE *fp;
523 395
524 for (i = 0; i < NROF_COMPRESS_METHODS; i++) {
525 *compressed = i; 396 *compressed = 0;
526 fp = open_and_uncompress_file(uncomp[i][0], uncomp[i][1], name, flag, compressed); 397 return fopen (name, "r");
527 if (fp != NULL) {
528 return fp;
529 }
530 }
531
532 errno = ENOENT;
533 return NULL;
534} 398}
535 399
536/* 400/*
537 * See open_and_uncompress(). 401 * See open_and_uncompress().
538 */ 402 */
539 403
404void
540void close_and_delete(FILE *fp, int compressed) { 405close_and_delete (FILE *fp, int compressed)
541 if (compressed) 406{
542 pclose(fp);
543 else
544 fclose(fp); 407 fclose (fp);
545} 408}
546 409
547/* 410/*
548 * If any directories in the given path doesn't exist, they are created. 411 * If any directories in the given path doesn't exist, they are created.
549 */ 412 */
550 413
414void
551void make_path_to_file (char *filename) 415make_path_to_file (char *filename)
552{ 416{
553 char buf[MAX_BUF], *cp = buf; 417 char buf[MAX_BUF], *cp = buf;
554 struct stat statbuf; 418 struct stat statbuf;
555 419
556 if (!filename || !*filename) 420 if (!filename || !*filename)
557 return; 421 return;
558 strcpy (buf, filename); 422 strcpy (buf, filename);
559 423
560 while ((cp = strchr (cp + 1, (int) '/'))) { 424 while ((cp = strchr (cp + 1, (int) '/')))
425 {
561 *cp = '\0'; 426 *cp = '\0';
562 if (stat(buf, &statbuf) || !S_ISDIR (statbuf.st_mode)) { 427 if (stat (buf, &statbuf) || !S_ISDIR (statbuf.st_mode))
428 {
563 if (mkdir (buf, SAVE_DIR_MODE)) { 429 if (mkdir (buf, SAVE_DIR_MODE))
430 {
564 LOG(llevError, "Cannot mkdir %s: %s\n", buf, strerror_local(errno)); 431 LOG (llevError, "Cannot mkdir %s: %s\n", buf, strerror (errno));
565 return; 432 return;
566 } 433 }
567 } 434 }
568 *cp = '/'; 435 *cp = '/';
569 } 436 }
570} 437}
571

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines