codemp/game/bg_lib.c

Go to the documentation of this file.
00001 // Copyright (C) 1999-2000 Id Software, Inc.
00002 //
00003 // Copyright (C) 1999-2000 Id Software, Inc.
00004 //
00005 // bg_lib,c -- standard C library replacement routines used by code
00006 // compiled for the virtual machine
00007 
00008 #include "q_shared.h"
00009 
00010 /*-
00011  * Copyright (c) 1992, 1993
00012  *      The Regents of the University of California.  All rights reserved.
00013  *
00014  * Redistribution and use in source and binary forms, with or without
00015  * modification, are permitted provided that the following conditions
00016  * are met:
00017  * 1. Redistributions of source code must retain the above copyright
00018  *    notice, this list of conditions and the following disclaimer.
00019  * 2. Redistributions in binary form must reproduce the above copyright
00020  *    notice, this list of conditions and the following disclaimer in the
00021  *    documentation and/or other materials provided with the distribution.
00022  * 3. All advertising materials mentioning features or use of this software
00023  *    must display the following acknowledgement:
00024  *      This product includes software developed by the University of
00025  *      California, Berkeley and its contributors.
00026  * 4. Neither the name of the University nor the names of its contributors
00027  *    may be used to endorse or promote products derived from this software
00028  *    without specific prior written permission.
00029  *
00030  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
00031  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
00032  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
00033  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
00034  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
00035  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
00036  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
00037  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
00038  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
00039  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
00040  * SUCH DAMAGE.
00041  */
00042 
00043 #if defined(LIBC_SCCS) && !defined(lint)
00044 #if 0
00045 static char sccsid[] = "@(#)qsort.c     8.1 (Berkeley) 6/4/93";
00046 #endif
00047 static const char rcsid[] =
00048         "$Id: bg_lib.c,v 1.4 2003/03/15 23:44:00 osman Exp $";
00049 #endif /* LIBC_SCCS and not lint */
00050 
00051 // bk001127 - needed for DLL's
00052 #if !defined( Q3_VM )
00053 typedef int              cmp_t(const void *, const void *);
00054 #endif
00055 
00056 static char* med3(char *, char *, char *, cmp_t *);
00057 static void      swapfunc(char *, char *, int, int);
00058 
00059 #ifndef min
00060 #define min(a, b)       (a) < (b) ? a : b
00061 #endif
00062 
00063 /*
00064  * Qsort routine from Bentley & McIlroy's "Engineering a Sort Function".
00065  */
00066 #define swapcode(TYPE, parmi, parmj, n) {               \
00067         long i = (n) / sizeof (TYPE);                   \
00068         register TYPE *pi = (TYPE *) (parmi);           \
00069         register TYPE *pj = (TYPE *) (parmj);           \
00070         do {                                            \
00071                 register TYPE   t = *pi;                \
00072                 *pi++ = *pj;                            \
00073                 *pj++ = t;                              \
00074         } while (--i > 0);                              \
00075 }
00076 
00077 #define SWAPINIT(a, es) swaptype = ((char *)a - (char *)0) % sizeof(long) || \
00078         es % sizeof(long) ? 2 : es == sizeof(long)? 0 : 1;
00079 
00080 static void swapfunc( char* a, char* b, int n, int swaptype)
00081 {
00082         if(swaptype <= 1)
00083                 swapcode(long, a, b, n)
00084         else
00085                 swapcode(char, a, b, n)
00086 }
00087 
00088 #define swap(a, b)                                      \
00089         if (swaptype == 0) {                            \
00090                 long t = *(long *)(a);                  \
00091                 *(long *)(a) = *(long *)(b);            \
00092                 *(long *)(b) = t;                       \
00093         } else                                          \
00094                 swapfunc(a, b, es, swaptype)
00095 
00096 #define vecswap(a, b, n)        if ((n) > 0) swapfunc(a, b, n, swaptype)
00097 
00098 static char *med3(char* a, char* b, char* c, cmp_t* cmp)
00099 {
00100         return cmp(a, b) < 0 ?
00101                (cmp(b, c) < 0 ? b : (cmp(a, c) < 0 ? c : a ))
00102               :(cmp(b, c) > 0 ? b : (cmp(a, c) < 0 ? a : c ));
00103 }
00104 
00105 void qsort( void* a, size_t n, size_t es, cmp_t* cmp)
00106 {
00107         char *pa, *pb, *pc, *pd, *pl, *pm, *pn;
00108         int d, r, swaptype, swap_cnt;
00109 
00110 loop:   SWAPINIT(a, es);
00111         swap_cnt = 0;
00112         if (n < 7) {
00113                 for (pm = (char *)a + es; pm < (char *)a + n * es; pm += es)
00114                         for (pl = pm; pl > (char *)a && cmp(pl - es, pl) > 0;
00115                              pl -= es)
00116                                 swap(pl, pl - es);
00117                 return;
00118         }
00119         pm = (char *)a + (n / 2) * es;
00120         if (n > 7) {
00121                 pl = a;
00122                 pn = (char *)a + (n - 1) * es;
00123                 if (n > 40) {
00124                         d = (n / 8) * es;
00125                         pl = med3(pl, pl + d, pl + 2 * d, cmp);
00126                         pm = med3(pm - d, pm, pm + d, cmp);
00127                         pn = med3(pn - 2 * d, pn - d, pn, cmp);
00128                 }
00129                 pm = med3(pl, pm, pn, cmp);
00130         }
00131         swap(a, pm);
00132         pa = pb = (char *)a + es;
00133 
00134         pc = pd = (char *)a + (n - 1) * es;
00135         for (;;) {
00136                 while (pb <= pc && (r = cmp(pb, a)) <= 0) {
00137                         if (r == 0) {
00138                                 swap_cnt = 1;
00139                                 swap(pa, pb);
00140                                 pa += es;
00141                         }
00142                         pb += es;
00143                 }
00144                 while (pb <= pc && (r = cmp(pc, a)) >= 0) {
00145                         if (r == 0) {
00146                                 swap_cnt = 1;
00147                                 swap(pc, pd);
00148                                 pd -= es;
00149                         }
00150                         pc -= es;
00151                 }
00152                 if (pb > pc)
00153                         break;
00154                 swap(pb, pc);
00155                 swap_cnt = 1;
00156                 pb += es;
00157                 pc -= es;
00158         }
00159         if (swap_cnt == 0) {  /* Switch to insertion sort */
00160                 for (pm = (char *)a + es; pm < (char *)a + n * es; pm += es)
00161                         for (pl = pm; pl > (char *)a && cmp(pl - es, pl) > 0;
00162                              pl -= es)
00163                                 swap(pl, pl - es);
00164                 return;
00165         }
00166 
00167         pn = (char *)a + n * es;
00168         r = min(pa - (char *)a, pb - pa);
00169         vecswap(a, pb - r, r);
00170         r = min(pd - pc, pn - pd - es);
00171         vecswap(pb, pn - r, r);
00172         if ((r = pb - pa) > es)
00173                 qsort(a, r / es, es, cmp);
00174         if ((r = pd - pc) > es) {
00175                 /* Iterate rather than recurse to save stack space */
00176                 a = pn - r;
00177                 n = r / es;
00178                 goto loop;
00179         }
00180 /*              qsort(pn - r, r / es, es, cmp);*/
00181 }
00182 
00183 //==================================================================================
00184 
00185 
00186 // this file is excluded from release builds because of intrinsics
00187 
00188 // bk001211 - gcc errors on compiling strcpy:  parse error before `__extension__'
00189 #if defined ( Q3_VM )
00190 
00191 size_t strlen( const char *string ) {
00192         const char      *s;
00193 
00194         s = string;
00195         while ( *s ) {
00196                 s++;
00197         }
00198         return s - string;
00199 }
00200 
00201 
00202 char *strcat( char *strDestination, const char *strSource ) {
00203         char    *s;
00204 
00205         s = strDestination;
00206         while ( *s ) {
00207                 s++;
00208         }
00209         while ( *strSource ) {
00210                 *s++ = *strSource++;
00211         }
00212         *s = 0;
00213         return strDestination;
00214 }
00215 
00216 char *strcpy( char *strDestination, const char *strSource ) {
00217         char *s;
00218 
00219         s = strDestination;
00220         while ( *strSource ) {
00221                 *s++ = *strSource++;
00222         }
00223         *s = 0;
00224         return strDestination;
00225 }
00226 
00227 
00228 int strcmp( const char *string1, const char *string2 ) {
00229         while ( *string1 == *string2 && *string1 && *string2 ) {
00230                 string1++;
00231                 string2++;
00232         }
00233         return *string1 - *string2;
00234 }
00235 
00236 
00237 char *strchr( const char *string, int c ) {
00238         while ( *string ) {
00239                 if ( *string == c ) {
00240                         return ( char * )string;
00241                 }
00242                 string++;
00243         }
00244         return (char *)0;
00245 }
00246 
00247 char *strstr( const char *string, const char *strCharSet ) {
00248         while ( *string ) {
00249                 int             i;
00250 
00251                 for ( i = 0 ; strCharSet[i] ; i++ ) {
00252                         if ( string[i] != strCharSet[i] ) {
00253                                 break;
00254                         }
00255                 }
00256                 if ( !strCharSet[i] ) {
00257                         return (char *)string;
00258                 }
00259                 string++;
00260         }
00261         return (char *)0;
00262 }
00263 #endif // bk001211
00264 
00265 // bk001120 - presumably needed for Mac
00266 //#if !defined(_MSC_VER) && !defined(__linux__)
00267 // bk001127 - undid undo
00268 #if defined ( Q3_VM )
00269 int tolower( int c ) {
00270         if ( c >= 'A' && c <= 'Z' ) {
00271                 c += 'a' - 'A';
00272         }
00273         return c;
00274 }
00275 
00276 
00277 int toupper( int c ) {
00278         if ( c >= 'a' && c <= 'z' ) {
00279                 c += 'A' - 'a';
00280         }
00281         return c;
00282 }
00283 
00284 #endif
00285 //#ifndef _MSC_VER
00286 
00287 void *memmove( void *dest, const void *src, size_t count ) {
00288         int             i;
00289 
00290         if ( dest > src ) {
00291                 for ( i = count-1 ; i >= 0 ; i-- ) {
00292                         ((char *)dest)[i] = ((char *)src)[i];
00293                 }
00294         } else {
00295                 for ( i = 0 ; i < count ; i++ ) {
00296                         ((char *)dest)[i] = ((char *)src)[i];
00297                 }
00298         }
00299         return dest;
00300 }
00301 
00302 
00303 #if 0
00304 
00305 double floor( double x ) {
00306         return (int)(x + 0x40000000) - 0x40000000;
00307 }
00308 
00309 void *memset( void *dest, int c, size_t count ) {
00310         while ( count-- ) {
00311                 ((char *)dest)[count] = c;
00312         }
00313         return dest;
00314 }
00315 
00316 void *memcpy( void *dest, const void *src, size_t count ) {
00317         while ( count-- ) {
00318                 ((char *)dest)[count] = ((char *)src)[count];
00319         }
00320         return dest;
00321 }
00322 
00323 char *strncpy( char *strDest, const char *strSource, size_t count ) {
00324         char    *s;
00325 
00326         s = strDest;
00327         while ( *strSource && count ) {
00328                 *s++ = *strSource++;
00329                 count--;
00330         }
00331         while ( count-- ) {
00332                 *s++ = 0;
00333         }
00334         return strDest;
00335 }
00336 
00337 double sqrt( double x ) {
00338         float   y;
00339         float   delta;
00340         float   maxError;
00341 
00342         if ( x <= 0 ) {
00343                 return 0;
00344         }
00345 
00346         // initial guess
00347         y = x / 2;
00348 
00349         // refine
00350         maxError = x * 0.001;
00351 
00352         do {
00353                 delta = ( y * y ) - x;
00354                 y -= delta / ( 2 * y );
00355         } while ( delta > maxError || delta < -maxError );
00356 
00357         return y;
00358 }
00359 
00360 
00361 float sintable[1024] = {
00362 0.000000,0.001534,0.003068,0.004602,0.006136,0.007670,0.009204,0.010738,
00363 0.012272,0.013805,0.015339,0.016873,0.018407,0.019940,0.021474,0.023008,
00364 0.024541,0.026075,0.027608,0.029142,0.030675,0.032208,0.033741,0.035274,
00365 0.036807,0.038340,0.039873,0.041406,0.042938,0.044471,0.046003,0.047535,
00366 0.049068,0.050600,0.052132,0.053664,0.055195,0.056727,0.058258,0.059790,
00367 0.061321,0.062852,0.064383,0.065913,0.067444,0.068974,0.070505,0.072035,
00368 0.073565,0.075094,0.076624,0.078153,0.079682,0.081211,0.082740,0.084269,
00369 0.085797,0.087326,0.088854,0.090381,0.091909,0.093436,0.094963,0.096490,
00370 0.098017,0.099544,0.101070,0.102596,0.104122,0.105647,0.107172,0.108697,
00371 0.110222,0.111747,0.113271,0.114795,0.116319,0.117842,0.119365,0.120888,
00372 0.122411,0.123933,0.125455,0.126977,0.128498,0.130019,0.131540,0.133061,
00373 0.134581,0.136101,0.137620,0.139139,0.140658,0.142177,0.143695,0.145213,
00374 0.146730,0.148248,0.149765,0.151281,0.152797,0.154313,0.155828,0.157343,
00375 0.158858,0.160372,0.161886,0.163400,0.164913,0.166426,0.167938,0.169450,
00376 0.170962,0.172473,0.173984,0.175494,0.177004,0.178514,0.180023,0.181532,
00377 0.183040,0.184548,0.186055,0.187562,0.189069,0.190575,0.192080,0.193586,
00378 0.195090,0.196595,0.198098,0.199602,0.201105,0.202607,0.204109,0.205610,
00379 0.207111,0.208612,0.210112,0.211611,0.213110,0.214609,0.216107,0.217604,
00380 0.219101,0.220598,0.222094,0.223589,0.225084,0.226578,0.228072,0.229565,
00381 0.231058,0.232550,0.234042,0.235533,0.237024,0.238514,0.240003,0.241492,
00382 0.242980,0.244468,0.245955,0.247442,0.248928,0.250413,0.251898,0.253382,
00383 0.254866,0.256349,0.257831,0.259313,0.260794,0.262275,0.263755,0.265234,
00384 0.266713,0.268191,0.269668,0.271145,0.272621,0.274097,0.275572,0.277046,
00385 0.278520,0.279993,0.281465,0.282937,0.284408,0.285878,0.287347,0.288816,
00386 0.290285,0.291752,0.293219,0.294685,0.296151,0.297616,0.299080,0.300543,
00387 0.302006,0.303468,0.304929,0.306390,0.307850,0.309309,0.310767,0.312225,
00388 0.313682,0.315138,0.316593,0.318048,0.319502,0.320955,0.322408,0.323859,
00389 0.325310,0.326760,0.328210,0.329658,0.331106,0.332553,0.334000,0.335445,
00390 0.336890,0.338334,0.339777,0.341219,0.342661,0.344101,0.345541,0.346980,
00391 0.348419,0.349856,0.351293,0.352729,0.354164,0.355598,0.357031,0.358463,
00392 0.359895,0.361326,0.362756,0.364185,0.365613,0.367040,0.368467,0.369892,
00393 0.371317,0.372741,0.374164,0.375586,0.377007,0.378428,0.379847,0.381266,
00394 0.382683,0.384100,0.385516,0.386931,0.388345,0.389758,0.391170,0.392582,
00395 0.393992,0.395401,0.396810,0.398218,0.399624,0.401030,0.402435,0.403838,
00396 0.405241,0.406643,0.408044,0.409444,0.410843,0.412241,0.413638,0.415034,
00397 0.416430,0.417824,0.419217,0.420609,0.422000,0.423390,0.424780,0.426168,
00398 0.427555,0.428941,0.430326,0.431711,0.433094,0.434476,0.435857,0.437237,
00399 0.438616,0.439994,0.441371,0.442747,0.444122,0.445496,0.446869,0.448241,
00400 0.449611,0.450981,0.452350,0.453717,0.455084,0.456449,0.457813,0.459177,
00401 0.460539,0.461900,0.463260,0.464619,0.465976,0.467333,0.468689,0.470043,
00402 0.471397,0.472749,0.474100,0.475450,0.476799,0.478147,0.479494,0.480839,
00403 0.482184,0.483527,0.484869,0.486210,0.487550,0.488889,0.490226,0.491563,
00404 0.492898,0.494232,0.495565,0.496897,0.498228,0.499557,0.500885,0.502212,
00405 0.503538,0.504863,0.506187,0.507509,0.508830,0.510150,0.511469,0.512786,
00406 0.514103,0.515418,0.516732,0.518045,0.519356,0.520666,0.521975,0.523283,
00407 0.524590,0.525895,0.527199,0.528502,0.529804,0.531104,0.532403,0.533701,
00408 0.534998,0.536293,0.537587,0.538880,0.540171,0.541462,0.542751,0.544039,
00409 0.545325,0.546610,0.547894,0.549177,0.550458,0.551738,0.553017,0.554294,
00410 0.555570,0.556845,0.558119,0.559391,0.560662,0.561931,0.563199,0.564466,
00411 0.565732,0.566996,0.568259,0.569521,0.570781,0.572040,0.573297,0.574553,
00412 0.575808,0.577062,0.578314,0.579565,0.580814,0.582062,0.583309,0.584554,
00413 0.585798,0.587040,0.588282,0.589521,0.590760,0.591997,0.593232,0.594466,
00414 0.595699,0.596931,0.598161,0.599389,0.600616,0.601842,0.603067,0.604290,
00415 0.605511,0.606731,0.607950,0.609167,0.610383,0.611597,0.612810,0.614022,
00416 0.615232,0.616440,0.617647,0.618853,0.620057,0.621260,0.622461,0.623661,
00417 0.624859,0.626056,0.627252,0.628446,0.629638,0.630829,0.632019,0.633207,
00418 0.634393,0.635578,0.636762,0.637944,0.639124,0.640303,0.641481,0.642657,
00419 0.643832,0.645005,0.646176,0.647346,0.648514,0.649681,0.650847,0.652011,
00420 0.653173,0.654334,0.655493,0.656651,0.657807,0.658961,0.660114,0.661266,
00421 0.662416,0.663564,0.664711,0.665856,0.667000,0.668142,0.669283,0.670422,
00422 0.671559,0.672695,0.673829,0.674962,0.676093,0.677222,0.678350,0.679476,
00423 0.680601,0.681724,0.682846,0.683965,0.685084,0.686200,0.687315,0.688429,
00424 0.689541,0.690651,0.691759,0.692866,0.693971,0.695075,0.696177,0.697278,
00425 0.698376,0.699473,0.700569,0.701663,0.702755,0.703845,0.704934,0.706021,
00426 0.707107,0.708191,0.709273,0.710353,0.711432,0.712509,0.713585,0.714659,
00427 0.715731,0.716801,0.717870,0.718937,0.720003,0.721066,0.722128,0.723188,
00428 0.724247,0.725304,0.726359,0.727413,0.728464,0.729514,0.730563,0.731609,
00429 0.732654,0.733697,0.734739,0.735779,0.736817,0.737853,0.738887,0.739920,
00430 0.740951,0.741980,0.743008,0.744034,0.745058,0.746080,0.747101,0.748119,
00431 0.749136,0.750152,0.751165,0.752177,0.753187,0.754195,0.755201,0.756206,
00432 0.757209,0.758210,0.759209,0.760207,0.761202,0.762196,0.763188,0.764179,
00433 0.765167,0.766154,0.767139,0.768122,0.769103,0.770083,0.771061,0.772036,
00434 0.773010,0.773983,0.774953,0.775922,0.776888,0.777853,0.778817,0.779778,
00435 0.780737,0.781695,0.782651,0.783605,0.784557,0.785507,0.786455,0.787402,
00436 0.788346,0.789289,0.790230,0.791169,0.792107,0.793042,0.793975,0.794907,
00437 0.795837,0.796765,0.797691,0.798615,0.799537,0.800458,0.801376,0.802293,
00438 0.803208,0.804120,0.805031,0.805940,0.806848,0.807753,0.808656,0.809558,
00439 0.810457,0.811355,0.812251,0.813144,0.814036,0.814926,0.815814,0.816701,
00440 0.817585,0.818467,0.819348,0.820226,0.821103,0.821977,0.822850,0.823721,
00441 0.824589,0.825456,0.826321,0.827184,0.828045,0.828904,0.829761,0.830616,
00442 0.831470,0.832321,0.833170,0.834018,0.834863,0.835706,0.836548,0.837387,
00443 0.838225,0.839060,0.839894,0.840725,0.841555,0.842383,0.843208,0.844032,
00444 0.844854,0.845673,0.846491,0.847307,0.848120,0.848932,0.849742,0.850549,
00445 0.851355,0.852159,0.852961,0.853760,0.854558,0.855354,0.856147,0.856939,
00446 0.857729,0.858516,0.859302,0.860085,0.860867,0.861646,0.862424,0.863199,
00447 0.863973,0.864744,0.865514,0.866281,0.867046,0.867809,0.868571,0.869330,
00448 0.870087,0.870842,0.871595,0.872346,0.873095,0.873842,0.874587,0.875329,
00449 0.876070,0.876809,0.877545,0.878280,0.879012,0.879743,0.880471,0.881197,
00450 0.881921,0.882643,0.883363,0.884081,0.884797,0.885511,0.886223,0.886932,
00451 0.887640,0.888345,0.889048,0.889750,0.890449,0.891146,0.891841,0.892534,
00452 0.893224,0.893913,0.894599,0.895284,0.895966,0.896646,0.897325,0.898001,
00453 0.898674,0.899346,0.900016,0.900683,0.901349,0.902012,0.902673,0.903332,
00454 0.903989,0.904644,0.905297,0.905947,0.906596,0.907242,0.907886,0.908528,
00455 0.909168,0.909806,0.910441,0.911075,0.911706,0.912335,0.912962,0.913587,
00456 0.914210,0.914830,0.915449,0.916065,0.916679,0.917291,0.917901,0.918508,
00457 0.919114,0.919717,0.920318,0.920917,0.921514,0.922109,0.922701,0.923291,
00458 0.923880,0.924465,0.925049,0.925631,0.926210,0.926787,0.927363,0.927935,
00459 0.928506,0.929075,0.929641,0.930205,0.930767,0.931327,0.931884,0.932440,
00460 0.932993,0.933544,0.934093,0.934639,0.935184,0.935726,0.936266,0.936803,
00461 0.937339,0.937872,0.938404,0.938932,0.939459,0.939984,0.940506,0.941026,
00462 0.941544,0.942060,0.942573,0.943084,0.943593,0.944100,0.944605,0.945107,
00463 0.945607,0.946105,0.946601,0.947094,0.947586,0.948075,0.948561,0.949046,
00464 0.949528,0.950008,0.950486,0.950962,0.951435,0.951906,0.952375,0.952842,
00465 0.953306,0.953768,0.954228,0.954686,0.955141,0.955594,0.956045,0.956494,
00466 0.956940,0.957385,0.957826,0.958266,0.958703,0.959139,0.959572,0.960002,
00467 0.960431,0.960857,0.961280,0.961702,0.962121,0.962538,0.962953,0.963366,
00468 0.963776,0.964184,0.964590,0.964993,0.965394,0.965793,0.966190,0.966584,
00469 0.966976,0.967366,0.967754,0.968139,0.968522,0.968903,0.969281,0.969657,
00470 0.970031,0.970403,0.970772,0.971139,0.971504,0.971866,0.972226,0.972584,
00471 0.972940,0.973293,0.973644,0.973993,0.974339,0.974684,0.975025,0.975365,
00472 0.975702,0.976037,0.976370,0.976700,0.977028,0.977354,0.977677,0.977999,
00473 0.978317,0.978634,0.978948,0.979260,0.979570,0.979877,0.980182,0.980485,
00474 0.980785,0.981083,0.981379,0.981673,0.981964,0.982253,0.982539,0.982824,
00475 0.983105,0.983385,0.983662,0.983937,0.984210,0.984480,0.984749,0.985014,
00476 0.985278,0.985539,0.985798,0.986054,0.986308,0.986560,0.986809,0.987057,
00477 0.987301,0.987544,0.987784,0.988022,0.988258,0.988491,0.988722,0.988950,
00478 0.989177,0.989400,0.989622,0.989841,0.990058,0.990273,0.990485,0.990695,
00479 0.990903,0.991108,0.991311,0.991511,0.991710,0.991906,0.992099,0.992291,
00480 0.992480,0.992666,0.992850,0.993032,0.993212,0.993389,0.993564,0.993737,
00481 0.993907,0.994075,0.994240,0.994404,0.994565,0.994723,0.994879,0.995033,
00482 0.995185,0.995334,0.995481,0.995625,0.995767,0.995907,0.996045,0.996180,
00483 0.996313,0.996443,0.996571,0.996697,0.996820,0.996941,0.997060,0.997176,
00484 0.997290,0.997402,0.997511,0.997618,0.997723,0.997825,0.997925,0.998023,
00485 0.998118,0.998211,0.998302,0.998390,0.998476,0.998559,0.998640,0.998719,
00486 0.998795,0.998870,0.998941,0.999011,0.999078,0.999142,0.999205,0.999265,
00487 0.999322,0.999378,0.999431,0.999481,0.999529,0.999575,0.999619,0.999660,
00488 0.999699,0.999735,0.999769,0.999801,0.999831,0.999858,0.999882,0.999905,
00489 0.999925,0.999942,0.999958,0.999971,0.999981,0.999989,0.999995,0.999999
00490 };
00491 
00492 double sin( double x ) {
00493         int     index;
00494         int     quad;
00495 
00496         index = 1024 * x / (M_PI * 0.5);
00497         quad = ( index >> 10 ) & 3;
00498         index &= 1023;
00499         switch ( quad ) {
00500         case 0:
00501                 return sintable[index];
00502         case 1:
00503                 return sintable[1023-index];
00504         case 2:
00505                 return -sintable[index];
00506         case 3:
00507                 return -sintable[1023-index];
00508         }
00509         return 0;
00510 }
00511 
00512 
00513 double cos( double x ) {
00514         int     index;
00515         int     quad;
00516 
00517         index = 1024 * x / (M_PI * 0.5);
00518         quad = ( index >> 10 ) & 3;
00519         index &= 1023;
00520         switch ( quad ) {
00521         case 3:
00522                 return sintable[index];
00523         case 0:
00524                 return sintable[1023-index];
00525         case 1:
00526                 return -sintable[index];
00527         case 2:
00528                 return -sintable[1023-index];
00529         }
00530         return 0;
00531 }
00532 
00533 
00534 /*
00535 void create_acostable( void ) {
00536         int i;
00537         FILE *fp;
00538         float a;
00539 
00540         fp = fopen("c:\\acostable.txt", "w");
00541         fprintf(fp, "float acostable[] = {");
00542         for (i = 0; i < 1024; i++) {
00543                 if (!(i & 7))
00544                         fprintf(fp, "\n");
00545                 a = acos( (float) -1 + i / 512 );
00546                 fprintf(fp, "%1.8f,", a);
00547         }
00548         fprintf(fp, "\n}\n");
00549         fclose(fp);
00550 }
00551 */
00552 
00553 float acostable[] = {
00554 3.14159265,3.07908248,3.05317551,3.03328655,3.01651113,3.00172442,2.98834964,2.97604422,
00555 2.96458497,2.95381690,2.94362719,2.93393068,2.92466119,2.91576615,2.90720289,2.89893629,
00556 2.89093699,2.88318015,2.87564455,2.86831188,2.86116621,2.85419358,2.84738169,2.84071962,
00557 2.83419760,2.82780691,2.82153967,2.81538876,2.80934770,2.80341062,2.79757211,2.79182724,
00558 2.78617145,2.78060056,2.77511069,2.76969824,2.76435988,2.75909250,2.75389319,2.74875926,
00559 2.74368816,2.73867752,2.73372510,2.72882880,2.72398665,2.71919677,2.71445741,2.70976688,
00560 2.70512362,2.70052613,2.69597298,2.69146283,2.68699438,2.68256642,2.67817778,2.67382735,
00561 2.66951407,2.66523692,2.66099493,2.65678719,2.65261279,2.64847088,2.64436066,2.64028133,
00562 2.63623214,2.63221238,2.62822133,2.62425835,2.62032277,2.61641398,2.61253138,2.60867440,
00563 2.60484248,2.60103507,2.59725167,2.59349176,2.58975488,2.58604053,2.58234828,2.57867769,
00564 2.57502832,2.57139977,2.56779164,2.56420354,2.56063509,2.55708594,2.55355572,2.55004409,
00565 2.54655073,2.54307530,2.53961750,2.53617701,2.53275354,2.52934680,2.52595650,2.52258238,
00566 2.51922417,2.51588159,2.51255441,2.50924238,2.50594525,2.50266278,2.49939476,2.49614096,
00567 2.49290115,2.48967513,2.48646269,2.48326362,2.48007773,2.47690482,2.47374472,2.47059722,
00568 2.46746215,2.46433933,2.46122860,2.45812977,2.45504269,2.45196720,2.44890314,2.44585034,
00569 2.44280867,2.43977797,2.43675809,2.43374890,2.43075025,2.42776201,2.42478404,2.42181622,
00570 2.41885841,2.41591048,2.41297232,2.41004380,2.40712480,2.40421521,2.40131491,2.39842379,
00571 2.39554173,2.39266863,2.38980439,2.38694889,2.38410204,2.38126374,2.37843388,2.37561237,
00572 2.37279910,2.36999400,2.36719697,2.36440790,2.36162673,2.35885335,2.35608768,2.35332964,
00573 2.35057914,2.34783610,2.34510044,2.34237208,2.33965094,2.33693695,2.33423003,2.33153010,
00574 2.32883709,2.32615093,2.32347155,2.32079888,2.31813284,2.31547337,2.31282041,2.31017388,
00575 2.30753373,2.30489988,2.30227228,2.29965086,2.29703556,2.29442632,2.29182309,2.28922580,
00576 2.28663439,2.28404881,2.28146900,2.27889490,2.27632647,2.27376364,2.27120637,2.26865460,
00577 2.26610827,2.26356735,2.26103177,2.25850149,2.25597646,2.25345663,2.25094195,2.24843238,
00578 2.24592786,2.24342836,2.24093382,2.23844420,2.23595946,2.23347956,2.23100444,2.22853408,
00579 2.22606842,2.22360742,2.22115104,2.21869925,2.21625199,2.21380924,2.21137096,2.20893709,
00580 2.20650761,2.20408248,2.20166166,2.19924511,2.19683280,2.19442469,2.19202074,2.18962092,
00581 2.18722520,2.18483354,2.18244590,2.18006225,2.17768257,2.17530680,2.17293493,2.17056692,
00582 2.16820274,2.16584236,2.16348574,2.16113285,2.15878367,2.15643816,2.15409630,2.15175805,
00583 2.14942338,2.14709226,2.14476468,2.14244059,2.14011997,2.13780279,2.13548903,2.13317865,
00584 2.13087163,2.12856795,2.12626757,2.12397047,2.12167662,2.11938600,2.11709859,2.11481435,
00585 2.11253326,2.11025530,2.10798044,2.10570867,2.10343994,2.10117424,2.09891156,2.09665185,
00586 2.09439510,2.09214129,2.08989040,2.08764239,2.08539725,2.08315496,2.08091550,2.07867884,
00587 2.07644495,2.07421383,2.07198545,2.06975978,2.06753681,2.06531651,2.06309887,2.06088387,
00588 2.05867147,2.05646168,2.05425445,2.05204979,2.04984765,2.04764804,2.04545092,2.04325628,
00589 2.04106409,2.03887435,2.03668703,2.03450211,2.03231957,2.03013941,2.02796159,2.02578610,
00590 2.02361292,2.02144204,2.01927344,2.01710710,2.01494300,2.01278113,2.01062146,2.00846399,
00591 2.00630870,2.00415556,2.00200457,1.99985570,1.99770895,1.99556429,1.99342171,1.99128119,
00592 1.98914271,1.98700627,1.98487185,1.98273942,1.98060898,1.97848051,1.97635399,1.97422942,
00593 1.97210676,1.96998602,1.96786718,1.96575021,1.96363511,1.96152187,1.95941046,1.95730088,
00594 1.95519310,1.95308712,1.95098292,1.94888050,1.94677982,1.94468089,1.94258368,1.94048818,
00595 1.93839439,1.93630228,1.93421185,1.93212308,1.93003595,1.92795046,1.92586659,1.92378433,
00596 1.92170367,1.91962459,1.91754708,1.91547113,1.91339673,1.91132385,1.90925250,1.90718266,
00597 1.90511432,1.90304746,1.90098208,1.89891815,1.89685568,1.89479464,1.89273503,1.89067683,
00598 1.88862003,1.88656463,1.88451060,1.88245794,1.88040664,1.87835668,1.87630806,1.87426076,
00599 1.87221477,1.87017008,1.86812668,1.86608457,1.86404371,1.86200412,1.85996577,1.85792866,
00600 1.85589277,1.85385809,1.85182462,1.84979234,1.84776125,1.84573132,1.84370256,1.84167495,
00601 1.83964848,1.83762314,1.83559892,1.83357582,1.83155381,1.82953289,1.82751305,1.82549429,
00602 1.82347658,1.82145993,1.81944431,1.81742973,1.81541617,1.81340362,1.81139207,1.80938151,
00603 1.80737194,1.80536334,1.80335570,1.80134902,1.79934328,1.79733848,1.79533460,1.79333164,
00604 1.79132959,1.78932843,1.78732817,1.78532878,1.78333027,1.78133261,1.77933581,1.77733985,
00605 1.77534473,1.77335043,1.77135695,1.76936428,1.76737240,1.76538132,1.76339101,1.76140148,
00606 1.75941271,1.75742470,1.75543743,1.75345090,1.75146510,1.74948002,1.74749565,1.74551198,
00607 1.74352900,1.74154672,1.73956511,1.73758417,1.73560389,1.73362426,1.73164527,1.72966692,
00608 1.72768920,1.72571209,1.72373560,1.72175971,1.71978441,1.71780969,1.71583556,1.71386199,
00609 1.71188899,1.70991653,1.70794462,1.70597325,1.70400241,1.70203209,1.70006228,1.69809297,
00610 1.69612416,1.69415584,1.69218799,1.69022062,1.68825372,1.68628727,1.68432127,1.68235571,
00611 1.68039058,1.67842588,1.67646160,1.67449772,1.67253424,1.67057116,1.66860847,1.66664615,
00612 1.66468420,1.66272262,1.66076139,1.65880050,1.65683996,1.65487975,1.65291986,1.65096028,
00613 1.64900102,1.64704205,1.64508338,1.64312500,1.64116689,1.63920905,1.63725148,1.63529416,
00614 1.63333709,1.63138026,1.62942366,1.62746728,1.62551112,1.62355517,1.62159943,1.61964388,
00615 1.61768851,1.61573332,1.61377831,1.61182346,1.60986877,1.60791422,1.60595982,1.60400556,
00616 1.60205142,1.60009739,1.59814349,1.59618968,1.59423597,1.59228235,1.59032882,1.58837536,
00617 1.58642196,1.58446863,1.58251535,1.58056211,1.57860891,1.57665574,1.57470259,1.57274945,
00618 1.57079633,1.56884320,1.56689007,1.56493692,1.56298375,1.56103055,1.55907731,1.55712403,
00619 1.55517069,1.55321730,1.55126383,1.54931030,1.54735668,1.54540297,1.54344917,1.54149526,
00620 1.53954124,1.53758710,1.53563283,1.53367843,1.53172389,1.52976919,1.52781434,1.52585933,
00621 1.52390414,1.52194878,1.51999323,1.51803748,1.51608153,1.51412537,1.51216900,1.51021240,
00622 1.50825556,1.50629849,1.50434117,1.50238360,1.50042576,1.49846765,1.49650927,1.49455060,
00623 1.49259163,1.49063237,1.48867280,1.48671291,1.48475270,1.48279215,1.48083127,1.47887004,
00624 1.47690845,1.47494650,1.47298419,1.47102149,1.46905841,1.46709493,1.46513106,1.46316677,
00625 1.46120207,1.45923694,1.45727138,1.45530538,1.45333893,1.45137203,1.44940466,1.44743682,
00626 1.44546850,1.44349969,1.44153038,1.43956057,1.43759024,1.43561940,1.43364803,1.43167612,
00627 1.42970367,1.42773066,1.42575709,1.42378296,1.42180825,1.41983295,1.41785705,1.41588056,
00628 1.41390346,1.41192573,1.40994738,1.40796840,1.40598877,1.40400849,1.40202755,1.40004594,
00629 1.39806365,1.39608068,1.39409701,1.39211264,1.39012756,1.38814175,1.38615522,1.38416795,
00630 1.38217994,1.38019117,1.37820164,1.37621134,1.37422025,1.37222837,1.37023570,1.36824222,
00631 1.36624792,1.36425280,1.36225684,1.36026004,1.35826239,1.35626387,1.35426449,1.35226422,
00632 1.35026307,1.34826101,1.34625805,1.34425418,1.34224937,1.34024364,1.33823695,1.33622932,
00633 1.33422072,1.33221114,1.33020059,1.32818904,1.32617649,1.32416292,1.32214834,1.32013273,
00634 1.31811607,1.31609837,1.31407960,1.31205976,1.31003885,1.30801684,1.30599373,1.30396951,
00635 1.30194417,1.29991770,1.29789009,1.29586133,1.29383141,1.29180031,1.28976803,1.28773456,
00636 1.28569989,1.28366400,1.28162688,1.27958854,1.27754894,1.27550809,1.27346597,1.27142257,
00637 1.26937788,1.26733189,1.26528459,1.26323597,1.26118602,1.25913471,1.25708205,1.25502803,
00638 1.25297262,1.25091583,1.24885763,1.24679802,1.24473698,1.24267450,1.24061058,1.23854519,
00639 1.23647833,1.23440999,1.23234015,1.23026880,1.22819593,1.22612152,1.22404557,1.22196806,
00640 1.21988898,1.21780832,1.21572606,1.21364219,1.21155670,1.20946958,1.20738080,1.20529037,
00641 1.20319826,1.20110447,1.19900898,1.19691177,1.19481283,1.19271216,1.19060973,1.18850553,
00642 1.18639955,1.18429178,1.18218219,1.18007079,1.17795754,1.17584244,1.17372548,1.17160663,
00643 1.16948589,1.16736324,1.16523866,1.16311215,1.16098368,1.15885323,1.15672081,1.15458638,
00644 1.15244994,1.15031147,1.14817095,1.14602836,1.14388370,1.14173695,1.13958808,1.13743709,
00645 1.13528396,1.13312866,1.13097119,1.12881153,1.12664966,1.12448556,1.12231921,1.12015061,
00646 1.11797973,1.11580656,1.11363107,1.11145325,1.10927308,1.10709055,1.10490563,1.10271831,
00647 1.10052856,1.09833638,1.09614174,1.09394462,1.09174500,1.08954287,1.08733820,1.08513098,
00648 1.08292118,1.08070879,1.07849378,1.07627614,1.07405585,1.07183287,1.06960721,1.06737882,
00649 1.06514770,1.06291382,1.06067715,1.05843769,1.05619540,1.05395026,1.05170226,1.04945136,
00650 1.04719755,1.04494080,1.04268110,1.04041841,1.03815271,1.03588399,1.03361221,1.03133735,
00651 1.02905939,1.02677830,1.02449407,1.02220665,1.01991603,1.01762219,1.01532509,1.01302471,
00652 1.01072102,1.00841400,1.00610363,1.00378986,1.00147268,0.99915206,0.99682798,0.99450039,
00653 0.99216928,0.98983461,0.98749636,0.98515449,0.98280898,0.98045980,0.97810691,0.97575030,
00654 0.97338991,0.97102573,0.96865772,0.96628585,0.96391009,0.96153040,0.95914675,0.95675912,
00655 0.95436745,0.95197173,0.94957191,0.94716796,0.94475985,0.94234754,0.93993099,0.93751017,
00656 0.93508504,0.93265556,0.93022170,0.92778341,0.92534066,0.92289341,0.92044161,0.91798524,
00657 0.91552424,0.91305858,0.91058821,0.90811309,0.90563319,0.90314845,0.90065884,0.89816430,
00658 0.89566479,0.89316028,0.89065070,0.88813602,0.88561619,0.88309116,0.88056088,0.87802531,
00659 0.87548438,0.87293806,0.87038629,0.86782901,0.86526619,0.86269775,0.86012366,0.85754385,
00660 0.85495827,0.85236686,0.84976956,0.84716633,0.84455709,0.84194179,0.83932037,0.83669277,
00661 0.83405893,0.83141877,0.82877225,0.82611928,0.82345981,0.82079378,0.81812110,0.81544172,
00662 0.81275556,0.81006255,0.80736262,0.80465570,0.80194171,0.79922057,0.79649221,0.79375655,
00663 0.79101352,0.78826302,0.78550497,0.78273931,0.77996593,0.77718475,0.77439569,0.77159865,
00664 0.76879355,0.76598029,0.76315878,0.76032891,0.75749061,0.75464376,0.75178826,0.74892402,
00665 0.74605092,0.74316887,0.74027775,0.73737744,0.73446785,0.73154885,0.72862033,0.72568217,
00666 0.72273425,0.71977644,0.71680861,0.71383064,0.71084240,0.70784376,0.70483456,0.70181469,
00667 0.69878398,0.69574231,0.69268952,0.68962545,0.68654996,0.68346288,0.68036406,0.67725332,
00668 0.67413051,0.67099544,0.66784794,0.66468783,0.66151492,0.65832903,0.65512997,0.65191753,
00669 0.64869151,0.64545170,0.64219789,0.63892987,0.63564741,0.63235028,0.62903824,0.62571106,
00670 0.62236849,0.61901027,0.61563615,0.61224585,0.60883911,0.60541564,0.60197515,0.59851735,
00671 0.59504192,0.59154856,0.58803694,0.58450672,0.58095756,0.57738911,0.57380101,0.57019288,
00672 0.56656433,0.56291496,0.55924437,0.55555212,0.55183778,0.54810089,0.54434099,0.54055758,
00673 0.53675018,0.53291825,0.52906127,0.52517867,0.52126988,0.51733431,0.51337132,0.50938028,
00674 0.50536051,0.50131132,0.49723200,0.49312177,0.48897987,0.48480547,0.48059772,0.47635573,
00675 0.47207859,0.46776530,0.46341487,0.45902623,0.45459827,0.45012983,0.44561967,0.44106652,
00676 0.43646903,0.43182577,0.42713525,0.42239588,0.41760600,0.41276385,0.40786755,0.40291513,
00677 0.39790449,0.39283339,0.38769946,0.38250016,0.37723277,0.37189441,0.36648196,0.36099209,
00678 0.35542120,0.34976542,0.34402054,0.33818204,0.33224495,0.32620390,0.32005298,0.31378574,
00679 0.30739505,0.30087304,0.29421096,0.28739907,0.28042645,0.27328078,0.26594810,0.25841250,
00680 0.25065566,0.24265636,0.23438976,0.22582651,0.21693146,0.20766198,0.19796546,0.18777575,
00681 0.17700769,0.16554844,0.15324301,0.13986823,0.12508152,0.10830610,0.08841715,0.06251018,
00682 }
00683 
00684 double acos( double x ) {
00685         int index;
00686 
00687         if (x < -1)
00688                 x = -1;
00689         if (x > 1)
00690                 x = 1;
00691         index = (float) (1.0 + x) * 511.9;
00692         return acostable[index];
00693 }
00694 
00695 double atan2( double y, double x ) {
00696         float   base;
00697         float   temp;
00698         float   dir;
00699         float   test;
00700         int             i;
00701 
00702         if ( x < 0 ) {
00703                 if ( y >= 0 ) {
00704                         // quad 1
00705                         base = M_PI / 2;
00706                         temp = x;
00707                         x = y;
00708                         y = -temp;
00709                 } else {
00710                         // quad 2
00711                         base = M_PI;
00712                         x = -x;
00713                         y = -y;
00714                 }
00715         } else {
00716                 if ( y < 0 ) {
00717                         // quad 3
00718                         base = 3 * M_PI / 2;
00719                         temp = x;
00720                         x = -y;
00721                         y = temp;
00722                 }
00723         }
00724 
00725         if ( y > x ) {
00726                 base += M_PI/2;
00727                 temp = x;
00728                 x = y;
00729                 y = temp;
00730                 dir = -1;
00731         } else {
00732                 dir = 1;
00733         }
00734 
00735         // calcualte angle in octant 0
00736         if ( x == 0 ) {
00737                 return base;
00738         }
00739         y /= x;
00740 
00741         for ( i = 0 ; i < 512 ; i++ ) {
00742                 test = sintable[i] / sintable[1023-i];
00743                 if ( test > y ) {
00744                         break;
00745                 }
00746         }
00747 
00748         return base + dir * i * ( M_PI/2048); 
00749 }
00750 
00751 
00752 #endif
00753 
00754 #ifdef Q3_VM
00755 // bk001127 - guarded this tan replacement 
00756 // ld: undefined versioned symbol name tan@@GLIBC_2.0
00757 double tan( double x ) {
00758         return sin(x) / cos(x);
00759 }
00760 #endif
00761 
00762 
00763 static int randSeed = 0;
00764 
00765 void    srand( unsigned seed ) {
00766         randSeed = seed;
00767 }
00768 
00769 int             rand( void ) {
00770         randSeed = (69069 * randSeed + 1);
00771         return randSeed & 0x7fff;
00772 }
00773 
00774 double atof( const char *string ) {
00775         float sign;
00776         float value;
00777         int             c;
00778 
00779 
00780         // skip whitespace
00781         while ( *string <= ' ' ) {
00782                 if ( !*string ) {
00783                         return 0;
00784                 }
00785                 string++;
00786         }
00787 
00788         // check sign
00789         switch ( *string ) {
00790         case '+':
00791                 string++;
00792                 sign = 1;
00793                 break;
00794         case '-':
00795                 string++;
00796                 sign = -1;
00797                 break;
00798         default:
00799                 sign = 1;
00800                 break;
00801         }
00802 
00803         // read digits
00804         value = 0;
00805         c = string[0];
00806         if ( c != '.' ) {
00807                 do {
00808                         c = *string++;
00809                         if ( c < '0' || c > '9' ) {
00810                                 break;
00811                         }
00812                         c -= '0';
00813                         value = value * 10 + c;
00814                 } while ( 1 );
00815         } else {
00816                 string++;
00817         }
00818 
00819         // check for decimal point
00820         if ( c == '.' ) {
00821                 double fraction;
00822 
00823                 fraction = 0.1;
00824                 do {
00825                         c = *string++;
00826                         if ( c < '0' || c > '9' ) {
00827                                 break;
00828                         }
00829                         c -= '0';
00830                         value += c * fraction;
00831                         fraction *= 0.1;
00832                 } while ( 1 );
00833 
00834         }
00835 
00836         // not handling 10e10 notation...
00837 
00838         return value * sign;
00839 }
00840 
00841 double _atof( const char **stringPtr ) {
00842         const char      *string;
00843         float sign;
00844         float value;
00845         int             c = '0'; // bk001211 - uninitialized use possible
00846 
00847         string = *stringPtr;
00848 
00849         // skip whitespace
00850         while ( *string <= ' ' ) {
00851                 if ( !*string ) {
00852                         *stringPtr = string;
00853                         return 0;
00854                 }
00855                 string++;
00856         }
00857 
00858         // check sign
00859         switch ( *string ) {
00860         case '+':
00861                 string++;
00862                 sign = 1;
00863                 break;
00864         case '-':
00865                 string++;
00866                 sign = -1;
00867                 break;
00868         default:
00869                 sign = 1;
00870                 break;
00871         }
00872 
00873         // read digits
00874         value = 0;
00875         if ( string[0] != '.' ) {
00876                 do {
00877                         c = *string++;
00878                         if ( c < '0' || c > '9' ) {
00879                                 break;
00880                         }
00881                         c -= '0';
00882                         value = value * 10 + c;
00883                 } while ( 1 );
00884         }
00885 
00886         // check for decimal point
00887         if ( c == '.' ) {
00888                 double fraction;
00889 
00890                 fraction = 0.1;
00891                 do {
00892                         c = *string++;
00893                         if ( c < '0' || c > '9' ) {
00894                                 break;
00895                         }
00896                         c -= '0';
00897                         value += c * fraction;
00898                         fraction *= 0.1;
00899                 } while ( 1 );
00900 
00901         }
00902 
00903         // not handling 10e10 notation...
00904         *stringPtr = string;
00905 
00906         return value * sign;
00907 }
00908 
00909 
00910 // bk001120 - presumably needed for Mac
00911 //#if !defined ( _MSC_VER ) && ! defined ( __linux__ )
00912 
00913 // bk001127 - undid undo
00914 #if defined ( Q3_VM )
00915 int atoi( const char *string ) {
00916         int             sign;
00917         int             value;
00918         int             c;
00919 
00920 
00921         // skip whitespace
00922         while ( *string <= ' ' ) {
00923                 if ( !*string ) {
00924                         return 0;
00925                 }
00926                 string++;
00927         }
00928 
00929         // check sign
00930         switch ( *string ) {
00931         case '+':
00932                 string++;
00933                 sign = 1;
00934                 break;
00935         case '-':
00936                 string++;
00937                 sign = -1;
00938                 break;
00939         default:
00940                 sign = 1;
00941                 break;
00942         }
00943 
00944         // read digits
00945         value = 0;
00946         do {
00947                 c = *string++;
00948                 if ( c < '0' || c > '9' ) {
00949                         break;
00950                 }
00951                 c -= '0';
00952                 value = value * 10 + c;
00953         } while ( 1 );
00954 
00955         // not handling 10e10 notation...
00956 
00957         return value * sign;
00958 }
00959 
00960 
00961 int _atoi( const char **stringPtr ) {
00962         int             sign;
00963         int             value;
00964         int             c;
00965         const char      *string;
00966 
00967         string = *stringPtr;
00968 
00969         // skip whitespace
00970         while ( *string <= ' ' ) {
00971                 if ( !*string ) {
00972                         return 0;
00973                 }
00974                 string++;
00975         }
00976 
00977         // check sign
00978         switch ( *string ) {
00979         case '+':
00980                 string++;
00981                 sign = 1;
00982                 break;
00983         case '-':
00984                 string++;
00985                 sign = -1;
00986                 break;
00987         default:
00988                 sign = 1;
00989                 break;
00990         }
00991 
00992         // read digits
00993         value = 0;
00994         do {
00995                 c = *string++;
00996                 if ( c < '0' || c > '9' ) {
00997                         break;
00998                 }
00999                 c -= '0';
01000                 value = value * 10 + c;
01001         } while ( 1 );
01002 
01003         // not handling 10e10 notation...
01004 
01005         *stringPtr = string;
01006 
01007         return value * sign;
01008 }
01009 
01010 int abs( int n ) {
01011         return n < 0 ? -n : n;
01012 }
01013 
01014 double fabs( double x ) {
01015         return x < 0 ? -x : x;
01016 }
01017 
01018 
01019 
01020 //=========================================================
01021 
01022 
01023 #define ALT                     0x00000001              /* alternate form */
01024 #define HEXPREFIX       0x00000002              /* add 0x or 0X prefix */
01025 #define LADJUST         0x00000004              /* left adjustment */
01026 #define LONGDBL         0x00000008              /* long double */
01027 #define LONGINT         0x00000010              /* long integer */
01028 #define QUADINT         0x00000020              /* quad integer */
01029 #define SHORTINT        0x00000040              /* short integer */
01030 #define ZEROPAD         0x00000080              /* zero (as opposed to blank) pad */
01031 #define FPT                     0x00000100              /* floating point number */
01032 
01033 #define to_digit(c)             ((c) - '0')
01034 #define is_digit(c)             ((unsigned)to_digit(c) <= 9)
01035 #define to_char(n)              ((n) + '0')
01036 
01037 void AddInt( char **buf_p, int val, int width, int flags ) {
01038         char    text[32];
01039         int             digits;
01040         int             signedVal;
01041         char    *buf;
01042 
01043         digits = 0;
01044         signedVal = val;
01045         if ( val < 0 ) {
01046                 val = -val;
01047         }
01048         do {
01049                 text[digits++] = '0' + val % 10;
01050                 val /= 10;
01051         } while ( val );
01052 
01053         if ( signedVal < 0 ) {
01054                 text[digits++] = '-';
01055         }
01056 
01057         buf = *buf_p;
01058 
01059         if( !( flags & LADJUST ) ) {
01060                 while ( digits < width ) {
01061                         *buf++ = ( flags & ZEROPAD ) ? '0' : ' ';
01062                         width--;
01063                 }
01064         }
01065 
01066         while ( digits-- ) {
01067                 *buf++ = text[digits];
01068                 width--;
01069         }
01070 
01071         if( flags & LADJUST ) {
01072                 while ( width-- ) {
01073                         *buf++ = ( flags & ZEROPAD ) ? '0' : ' ';
01074                 }
01075         }
01076 
01077         *buf_p = buf;
01078 }
01079 
01080 void AddFloat( char **buf_p, float fval, int width, int prec ) {
01081         char    text[32];
01082         int             digits;
01083         float   signedVal;
01084         char    *buf;
01085         int             val;
01086 
01087         // get the sign
01088         signedVal = fval;
01089         if ( fval < 0 ) {
01090                 fval = -fval;
01091         }
01092 
01093         // write the float number
01094         digits = 0;
01095         val = (int)fval;
01096         do {
01097                 text[digits++] = '0' + val % 10;
01098                 val /= 10;
01099         } while ( val );
01100 
01101         if ( signedVal < 0 ) {
01102                 text[digits++] = '-';
01103         }
01104 
01105         buf = *buf_p;
01106 
01107         while ( digits < width ) {
01108                 *buf++ = ' ';
01109                 width--;
01110         }
01111 
01112         while ( digits-- ) {
01113                 *buf++ = text[digits];
01114         }
01115 
01116         *buf_p = buf;
01117 
01118         if (prec < 0)
01119                 prec = 6;
01120         // write the fraction
01121         digits = 0;
01122         while (digits < prec) {
01123                 fval -= (int) fval;
01124                 fval *= 10.0;
01125                 val = (int) fval;
01126                 text[digits++] = '0' + val % 10;
01127         }
01128 
01129         if (digits > 0) {
01130                 buf = *buf_p;
01131                 *buf++ = '.';
01132                 for (prec = 0; prec < digits; prec++) {
01133                         *buf++ = text[prec];
01134                 }
01135                 *buf_p = buf;
01136         }
01137 }
01138 
01139 
01140 void AddString( char **buf_p, char *string, int width, int prec ) {
01141         int             size;
01142         char    *buf;
01143 
01144         buf = *buf_p;
01145 
01146         if ( string == NULL ) {
01147                 string = "(null)";
01148                 prec = -1;
01149         }
01150 
01151         if ( prec >= 0 ) {
01152                 for( size = 0; size < prec; size++ ) {
01153                         if( string[size] == '\0' ) {
01154                                 break;
01155                         }
01156                 }
01157         }
01158         else {
01159                 size = strlen( string );
01160         }
01161 
01162         width -= size;
01163 
01164         while( size-- ) {
01165                 *buf++ = *string++;
01166         }
01167 
01168         while( width-- > 0 ) {
01169                 *buf++ = ' ';
01170         }
01171 
01172         *buf_p = buf;
01173 }
01174 
01175 /*
01176 vsprintf
01177 
01178 I'm not going to support a bunch of the more arcane stuff in here
01179 just to keep it simpler.  For example, the '*' and '$' are not
01180 currently supported.  I've tried to make it so that it will just
01181 parse and ignore formats we don't support.
01182 */
01183 int vsprintf( char *buffer, const char *fmt, va_list argptr ) {
01184         int             *arg;
01185         char    *buf_p;
01186         char    ch;
01187         int             flags;
01188         int             width;
01189         int             prec;
01190         int             n;
01191         char    sign;
01192 
01193         buf_p = buffer;
01194         arg = (int *)argptr;
01195 
01196         while( qtrue ) {
01197                 // run through the format string until we hit a '%' or '\0'
01198                 for ( ch = *fmt; (ch = *fmt) != '\0' && ch != '%'; fmt++ ) {
01199                         *buf_p++ = ch;
01200                 }
01201                 if ( ch == '\0' ) {
01202                         goto done;
01203                 }
01204 
01205                 // skip over the '%'
01206                 fmt++;
01207 
01208                 // reset formatting state
01209                 flags = 0;
01210                 width = 0;
01211                 prec = -1;
01212                 sign = '\0';
01213 
01214 rflag:
01215                 ch = *fmt++;
01216 reswitch:
01217                 switch( ch ) {
01218                 case '-':
01219                         flags |= LADJUST;
01220                         goto rflag;
01221                 case '.':
01222                         n = 0;
01223                         while( is_digit( ( ch = *fmt++ ) ) ) {
01224                                 n = 10 * n + ( ch - '0' );
01225                         }
01226                         prec = n < 0 ? -1 : n;
01227                         goto reswitch;
01228                 case '0':
01229                         flags |= ZEROPAD;
01230                         goto rflag;
01231                 case '1':
01232                 case '2':
01233                 case '3':
01234                 case '4':
01235                 case '5':
01236                 case '6':
01237                 case '7':
01238                 case '8':
01239                 case '9':
01240                         n = 0;
01241                         do {
01242                                 n = 10 * n + ( ch - '0' );
01243                                 ch = *fmt++;
01244                         } while( is_digit( ch ) );
01245                         width = n;
01246                         goto reswitch;
01247                 case 'c':
01248                         *buf_p++ = (char)*arg;
01249                         arg++;
01250                         break;
01251                 case 'd':
01252                 case 'i':
01253                         AddInt( &buf_p, *arg, width, flags );
01254                         arg++;
01255                         break;
01256                 case 'f':
01257                         AddFloat( &buf_p, *(double *)arg, width, prec );
01258 #ifdef __LCC__
01259                         arg += 1;       // everything is 32 bit in my compiler
01260 #else
01261                         arg += 2;
01262 #endif
01263                         break;
01264                 case 's':
01265                         AddString( &buf_p, (char *)*arg, width, prec );
01266                         arg++;
01267                         break;
01268                 case '%':
01269                         *buf_p++ = ch;
01270                         break;
01271                 default:
01272                         *buf_p++ = (char)*arg;
01273                         arg++;
01274                         break;
01275                 }
01276         }
01277 
01278 done:
01279         *buf_p = 0;
01280         return buf_p - buffer;
01281 }
01282 
01283 
01284 /* this is really crappy */
01285 int sscanf( const char *buffer, const char *fmt, ... ) {
01286         int             cmd;
01287         int             **arg;
01288         int             count;
01289 
01290         arg = (int **)&fmt + 1;
01291         count = 0;
01292 
01293         while ( *fmt ) {
01294                 if ( fmt[0] != '%' ) {
01295                         fmt++;
01296                         continue;
01297                 }
01298 
01299                 cmd = fmt[1];
01300                 fmt += 2;
01301 
01302                 switch ( cmd ) {
01303                 case 'i':
01304                 case 'd':
01305                 case 'u':
01306                         **arg = _atoi( &buffer );
01307                         break;
01308                 case 'f':
01309                         *(float *)*arg = _atof( &buffer );
01310                         break;
01311                 }
01312                 arg++;
01313         }
01314 
01315         return count;
01316 }
01317 
01318 #endif