Return to misc.c CVS log

Up to [Tom Morton FrontierVM] / frontvm / hardware

Annotation of frontvm/hardware/misc.c, revision 1.1.1.1

1.1       root        1: /*
                      2:   Hatari - misc.c
                      3: 
                      4:   This file is distributed under the GNU Public License, version 2 or at
                      5:   your option any later version. Read the file gpl.txt for details.
                      6: 
                      7:   Misc functions
                      8: */
                      9: 
                     10: #include <ctype.h>
                     11: 
                     12: #include "main.h"
                     13: #include "file.h"
                     14: #include "memAlloc.h"
                     15: #include "misc.h"
                     16: 
                     17: long RandomNum;
                     18: 
                     19: 
                     20: /*-----------------------------------------------------------------------*/
                     21: /*
                     22:   Fill end of string out with spaces
                     23: */
                     24: void Misc_PadStringWithSpaces(char *pszString,int nChars)
                     25: {
                     26:   int i;
                     27: 
                     28:   for(i=nChars; i>=(int)strlen(pszString); i--) {
                     29:     pszString[i] = ' ';
                     30:   }
                     31:   pszString[nChars] = '\0';
                     32: }
                     33: 
                     34: 
                     35: /*-----------------------------------------------------------------------*/
                     36: /*
                     37:   Remove any spaces from string
                     38: */
                     39: void Misc_RemoveSpacesFromString(char *pszSrcString, char *pszDestString)
                     40: {
                     41:   int i=0,j=0;
                     42: 
                     43:   /* Copy string */
                     44:   while(pszSrcString[i]!='\0') {
                     45:     if (pszSrcString[i]!=' ') {  /* Copy character if not a white-space */
                     46:       pszDestString[j] = pszSrcString[i];
                     47:       j++;
                     48:     }
                     49:     i++;
                     50:   }
                     51: 
                     52:   pszDestString[j] = '\0';      /* Term */
                     53: }
                     54: 
                     55: 
                     56: /*-----------------------------------------------------------------------*/
                     57: /*
                     58:   Remove 'white-space' from beginning of text string
                     59: */
                     60: void Misc_RemoveWhiteSpace(char *pszString,int Length)
                     61: {
                     62:   while( (*pszString==' ') || (*pszString=='\t') ) {
                     63:     /* Copy line left one character */
                     64:     memmove(pszString,pszString+1,Length-1);
                     65:   }
                     66: }
                     67: 
                     68: 
                     69: /*-----------------------------------------------------------------------*/
                     70: /*
                     71:    Convert a string to uppercase.
                     72: */
                     73: void Misc_strupr(char *pString)
                     74: {
                     75:   while(*pString)
                     76:   {
                     77:     *pString = toupper(*pString);
                     78:     pString++;
                     79:   }
                     80: }
                     81: 
                     82: 
                     83: /*-----------------------------------------------------------------------*/
                     84: /*
                     85:   Find working directory, and store to 'szWorkingDir'
                     86:   Note: I'm not sure if this function is still usefull in Hatari - Thothy
                     87: */
                     88: void Misc_FindWorkingDirectory(char *prgname)
                     89: {
                     90:   char szSrcDir[256], szSrcName[128], szSrcExt[32];
                     91: 
                     92:   /* Find name of program */
                     93:   strncpy(szWorkingDir, prgname, MAX_FILENAME_LENGTH);
                     94:   File_splitpath(szWorkingDir, szSrcDir, szSrcName, szSrcExt);
                     95:   File_makepath(szWorkingDir, szSrcDir, "", "");
                     96:   /* And remove trailing backslash */
                     97:   if (strlen(szWorkingDir)>0) {
                     98:     if (szWorkingDir[strlen(szWorkingDir)-1]=='/')
                     99:       szWorkingDir[strlen(szWorkingDir)-1]='\0';
                    100:   }
                    101: 
                    102: }
                    103: 
                    104: 
                    105: /*-----------------------------------------------------------------------*/
                    106: /*
                    107:   Limit integer between min/max range
                    108: */
                    109: int Misc_LimitInt(int Value, int MinRange, int MaxRange)
                    110: {
                    111:   if (Value<MinRange)
                    112:     Value = MinRange;
                    113:   else if (Value>MaxRange)
                    114:     Value = MaxRange;
                    115: 
                    116:   return(Value);
                    117: }
                    118: 
                    119: 
                    120: /*-----------------------------------------------------------------------*/
                    121: /*
                    122:   Convert value to 2-digit BCD
                    123: */
                    124: unsigned char Misc_ConvertToBCD(unsigned short int Value)
                    125: {
                    126:   return (((Value/10))<<4) | (Value%10);
                    127: }
                    128: 
                    129: 
                    130: /*-----------------------------------------------------------------------*/
                    131: /*
                    132:   See own random number(must be !=0)
                    133: */
                    134: void Misc_SeedRandom(unsigned long Seed)
                    135: {
                    136:   RandomNum = Seed;
                    137: }
                    138: 
                    139: 
                    140: /*-----------------------------------------------------------------------*/
                    141: /*
                    142:   Get mext random number
                    143: */
                    144: long Misc_NextLongRand(long Seed)
                    145: {
                    146:   unsigned long Lo, Hi;
                    147: 
                    148:   Lo = 16807 * (long)(Seed & 0xffff);
                    149:   Hi = 16807 * (long)((unsigned long)Seed >> 16);
                    150:   Lo += (Hi & 0x7fff) << 16;
                    151:   if (Lo > 2147483647L) {
                    152:     Lo &= 2147483647L;
                    153:     ++Lo;
                    154:   }
                    155:   Lo += Hi >> 15;
                    156:   if (Lo > 2147483647L) {
                    157:     Lo &= 2147483647L;
                    158:     ++Lo;
                    159:   }
                    160:   return((long)Lo);
                    161: }
                    162: 
                    163: 
                    164: /*-----------------------------------------------------------------------*/
                    165: /*
                    166:   Get own random number
                    167: */
                    168: long Misc_GetRandom(void)
                    169: {
                    170:   RandomNum = Misc_NextLongRand(RandomNum);
                    171:   return(RandomNum);
                    172: }
                    173: 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.