summaryrefslogtreecommitdiff
path: root/g_src/basics.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'g_src/basics.cpp')
-rwxr-xr-xg_src/basics.cpp792
1 files changed, 792 insertions, 0 deletions
diff --git a/g_src/basics.cpp b/g_src/basics.cpp
new file mode 100755
index 0000000..a56145d
--- /dev/null
+++ b/g_src/basics.cpp
@@ -0,0 +1,792 @@
+#include "platform.h"
+#include <string.h>
+#include <math.h>
+#include <iosfwd>
+#include <iostream>
+#include <ios>
+#include <streambuf>
+#include <istream>
+#include <ostream>
+#include <iomanip>
+#include <sstream>
+#include <cstdlib>
+#include <fstream>
+#include <zlib.h>
+
+#include "svector.h"
+using std::string;
+using std::endl;
+using std::ofstream;
+
+#include "endian.h"
+
+#ifdef WIN32
+
+#ifndef INTEGER_TYPES
+ #define INTEGER_TYPES
+ typedef short int16_t;
+ typedef int int32_t;
+ typedef long long int64_t;
+ typedef unsigned short uint16_t;
+ typedef unsigned int uint32_t;
+ typedef unsigned long long uint64_t;
+#endif
+
+typedef int32_t VIndex;
+typedef int32_t Ordinal;
+
+#endif
+
+#include "ttf_manager.hpp"
+#include "init.h"
+#include "basics.h"
+
+extern string errorlog_prefix;
+
+void errorlog_string(const string &str)
+{
+ if(str.empty())return;
+
+ //SAVE AN ERROR TO THE LOG FILE
+ std::ofstream fseed("errorlog.txt", std::ios::out | std::ios::app);
+ if(fseed.is_open())
+ {
+ if(!errorlog_prefix.empty())
+ {
+ fseed<<errorlog_prefix.c_str()<<std::endl;
+ errorlog_prefix.clear();
+ }
+ fseed<<str.c_str()<<std::endl;
+ }
+ fseed.close();
+}
+
+void gamelog_string(const string &str)
+{
+ if(str.empty())return;
+
+ //SAVE AN ERROR TO THE LOG FILE
+ std::ofstream fseed("gamelog.txt",std::ios::out | std::ios::app);
+ if(fseed.is_open())
+ {
+ fseed<<str.c_str()<<std::endl;
+ }
+ fseed.close();
+}
+
+void errorlog_string(const char *ptr)
+{
+ if(ptr==NULL)return;
+
+ //SAVE AN ERROR TO THE LOG FILE
+ std::ofstream fseed("errorlog.txt", std::ios::out | std::ios::app);
+ if(fseed.is_open())
+ {
+ if(!errorlog_prefix.empty())
+ {
+ fseed<<errorlog_prefix.c_str()<<std::endl;
+ errorlog_prefix.clear();
+ }
+ fseed<<ptr<<std::endl;
+ }
+ fseed.close();
+}
+
+int32_t convert_string_to_long(string &str)
+{
+ return atoi(str.c_str());
+}
+
+uint32_t convert_string_to_ulong(string &str)
+{
+ return strtoul(str.c_str(),NULL,0);
+}
+
+void add_long_to_string(int32_t n,string &str)
+{
+ string str2;
+ convert_long_to_string(n,str2);
+ str+=str2;
+}
+
+void convert_long_to_string(int32_t n,string &str)
+{
+ std::ostringstream o;
+ o << n;
+ str = o.str();
+}
+
+void convert_ulong_to_string(uint32_t n,string &str)
+{
+ std::ostringstream o;
+ o << n;
+ str = o.str();
+}
+
+char grab_variable_token(string &str,string &token,char sec_comp,int32_t &pos,int32_t i_pos)
+{
+ token.erase();
+
+ for(pos=i_pos;pos<str.length();pos++)
+ {
+ if((str[pos]=='['&&pos+1<str.length())||sec_comp)
+ {
+ if(str[pos]=='['&&!sec_comp)pos++;
+ grab_token_string_pos(token,str,pos,':');
+ pos--;
+
+ if(token.length()>0)return 1;
+ }
+ }
+
+ return 0;
+}
+
+bool grab_token_expression(string &dest,string &source,int32_t &pos,char compc)
+{
+ dest.erase();
+ dest+="[";
+
+ string token1;
+ while(grab_token_string(token1,source,pos))
+ {
+ if(dest.length()>1)dest+=":";
+ dest+=token1;
+
+ if(pos<source.length())
+ {
+ if(source[pos]==']')break;//grab_token_string CAN'T HANDLE THESE
+ }
+ }
+ dest+="]";
+
+ return (dest.length()>2);
+}
+
+bool grab_token_list_as_string(string &dest,string &source,int32_t &pos,char compc)
+{
+ dest.erase();
+
+ string token1;
+ while(grab_token_string(token1,source,pos))
+ {
+ if(dest.length()>0)dest+=":";
+ dest+=token1;
+
+ if(pos<source.length())
+ {
+ if(source[pos]==']')break;//grab_token_string CAN'T HANDLE THESE
+ }
+ }
+
+ return (dest.length()>0);
+}
+
+bool grab_token_string(string &dest,string &source,int32_t &pos,char compc)
+{
+ dest.erase();
+ if(source.length()==0)return false;
+
+ pos++;//GET RID OF FIRST [ OR compc THAT IS ASSUMED TO BE THERE
+ if(pos>source.size())return false;
+
+ //GO UNTIL YOU HIT A compc, ], or the end
+ auto s=source.begin(),e=source.end();
+ s+=pos;
+ for(;s<e;++s)
+ {
+ if((*s)==compc||(*s)==']')break;
+ dest+=(*s);
+ pos++;
+ }
+ return (dest.length()>0);
+}
+
+bool grab_token_string(string &dest,string &source,char compc)
+{
+ dest.erase();
+ if(source.length()==0)return false;
+
+ //GO UNTIL YOU HIT A :, ], or the end
+ auto s=source.begin(),e=source.end();
+ for(;s<e;++s)
+ {
+ if((*s)==compc||(*s)==']')break;
+ dest+=(*s);
+ }
+ return (dest.length()>0);
+}
+
+bool grab_token_string_pos(string &dest,string &source,int32_t pos,char compc)
+{
+ dest.erase();
+ if(source.length()==0)return false;
+ if(pos>source.length())return false;
+
+ //GO UNTIL YOU HIT A :, ], or the end
+ auto s=source.begin(),e=source.end();
+ s+=pos;
+ for(;s<e;++s)
+ {
+ if((*s)==compc||(*s)==']')break;
+ dest+=(*s);
+ }
+ return (dest.length()>0);
+}
+
+bool grab_token_string(string &dest,const char *source,char compc)
+{
+ dest.erase();
+ int32_t sz=strlen(source);
+ if(sz==0)return false;
+
+ //GO UNTIL YOU HIT A :, ], or the end
+ int32_t s;
+ for(s=0;s<sz;s++)
+ {
+ if(source[s]==compc||source[s]==']')break;
+ dest+=source[s];
+ }
+ return (dest.length()>0);
+}
+
+
+void replace_token_string(string &token,string &str,int32_t pos,char compc,string &nw,char repc)
+{
+ string rep;
+ if(repc!=0)rep=repc;
+ rep+=token;
+ if(compc!=0)rep+=compc;
+
+ string::size_type wpos;
+
+ if ((wpos = str.find(rep)) != string::npos)
+ {
+ str.replace(wpos,rep.size(),nw);
+ }
+}
+
+void simplify_string(string &str)
+{
+ int32_t s;
+ for(s=0;s<str.length();s++)
+ {
+ //CAPITALIZE
+ if(str[s]>='A'&&str[s]<='Z')
+ {
+ str[s]-='A';
+ str[s]+='a';
+ }
+ switch(str[s])
+ {
+ case (char)129:
+ case (char)150:
+ case (char)151:
+ case (char)154:
+ case (char)163:
+ str[s]='u';
+ break;
+ case (char)152:
+ str[s]='y';
+ break;
+ case (char)164:
+ case (char)165:
+ str[s]='n';
+ break;
+ case (char)131:
+ case (char)132:
+ case (char)133:
+ case (char)134:
+ case (char)142:
+ case (char)143:
+ case (char)145:
+ case (char)146:
+ case (char)160:
+ str[s]='a';
+ break;
+ case (char)130:
+ case (char)136:
+ case (char)137:
+ case (char)138:
+ case (char)144:
+ str[s]='e';
+ break;
+ case (char)139:
+ case (char)140:
+ case (char)141:
+ case (char)161:
+ str[s]='i';
+ break;
+ case (char)147:
+ case (char)148:
+ case (char)149:
+ case (char)153:
+ case (char)162:
+ str[s]='o';
+ break;
+ case (char)128:
+ case (char)135:
+ str[s]='c';
+ break;
+ }
+ }
+}
+
+void lower_case_string(string &str)
+{
+ int32_t s;
+ for(s=0;s<str.length();s++)
+ {
+ //CAPITALIZE
+ if(str[s]>='A'&&str[s]<='Z')
+ {
+ str[s]-='A';
+ str[s]+='a';
+ }
+ switch(str[s])
+ {
+ case (char)154:str[s]=(char)129;break;
+ case (char)165:str[s]=(char)164;break;
+ case (char)142:str[s]=(char)132;break;
+ case (char)143:str[s]=(char)134;break;
+ case (char)144:str[s]=(char)130;break;
+ case (char)153:str[s]=(char)148;break;
+ case (char)128:str[s]=(char)135;break;
+ case (char)146:str[s]=(char)145;break;
+ }
+ }
+}
+
+void upper_case_string(string &str)
+{
+ int32_t s;
+ for(s=0;s<str.length();s++)
+ {
+ //CAPITALIZE
+ if(str[s]>='a'&&str[s]<='z')
+ {
+ str[s]-='a';
+ str[s]+='A';
+ }
+ switch(str[s])
+ {
+ case (char)129:str[s]=(char)154;break;
+ case (char)164:str[s]=(char)165;break;
+ case (char)132:str[s]=(char)142;break;
+ case (char)134:str[s]=(char)143;break;
+ case (char)130:str[s]=(char)144;break;
+ case (char)148:str[s]=(char)153;break;
+ case (char)135:str[s]=(char)128;break;
+ case (char)145:str[s]=(char)146;break;
+ }
+ }
+}
+
+void capitalize_string_words(string &str)
+{
+ char conf;
+ int32_t s;
+ for(s=0;s<str.length();s++)
+ {
+ conf=0;
+ if(s>0)
+ {
+ if(str[s-1]==' '||
+ str[s-1]=='\"')conf=1;
+ if(str[s-1]=='\'')
+ {
+ //DISCOUNT SINGLE QUOTE IF IT ISN'T PRECEDED BY SPACE, COMMA OR NOTHING
+ if(s<=0)conf=1;
+ else if(s>=2)
+ {
+ if(str[s-2]==' '||
+ str[s-2]==',')conf=1;
+ }
+ }
+ }
+ if(s==0||conf)
+ {
+ //CAPITALIZE
+ if(str[s]>='a'&&str[s]<='z')
+ {
+ str[s]-='a';
+ str[s]+='A';
+ }
+ switch(str[s])
+ {
+ case (char)129:str[s]=(char)154;break;
+ case (char)164:str[s]=(char)165;break;
+ case (char)132:str[s]=(char)142;break;
+ case (char)134:str[s]=(char)143;break;
+ case (char)130:str[s]=(char)144;break;
+ case (char)148:str[s]=(char)153;break;
+ case (char)135:str[s]=(char)128;break;
+ case (char)145:str[s]=(char)146;break;
+ }
+ }
+ }
+}
+
+void capitalize_string_first_word(string &str)
+{
+ char conf;
+ int32_t s;
+ for(s=0;s<str.length();s++)
+ {
+ conf=0;
+ if(s>0)
+ {
+ if(str[s-1]==' '||
+ str[s-1]=='\"')conf=1;
+ if(str[s-1]=='\'')
+ {
+ //DISCOUNT SINGLE QUOTE IF IT ISN'T PRECEDED BY SPACE, COMMA OR NOTHING
+ if(s<=0)conf=1;
+ else if(s>=2)
+ {
+ if(str[s-2]==' '||
+ str[s-2]==',')conf=1;
+ }
+ }
+ }
+ if(s==0||conf)
+ {
+ //CAPITALIZE
+ if(str[s]>='a'&&str[s]<='z')
+ {
+ str[s]-='a';
+ str[s]+='A';
+ return;
+ }
+ switch(str[s])
+ {
+ case (char)129:str[s]=(char)154;return;
+ case (char)164:str[s]=(char)165;return;
+ case (char)132:str[s]=(char)142;return;
+ case (char)134:str[s]=(char)143;return;
+ case (char)130:str[s]=(char)144;return;
+ case (char)148:str[s]=(char)153;return;
+ case (char)135:str[s]=(char)128;return;
+ case (char)145:str[s]=(char)146;return;
+ }
+ if(str[s]!=' '&&str[s]!='\"')return;
+ }
+ }
+}
+
+static void abbreviate_string_helper(string &str, int len) {
+ if(str.length()>=2)
+ {
+ if((str[0]=='A'||str[0]=='a')&&
+ str[1]==' ')
+ {
+ str.erase(str.begin()+1);
+ str.erase(str.begin());
+
+ if(str.length()<=len)return;
+ }
+
+ if(str.length()>=3)
+ {
+ if((str[0]=='A'||str[0]=='a')&&
+ (str[1]=='N'||str[1]=='n')&&
+ str[2]==' ')
+ {
+ str.erase(str.begin()+2);
+ str.erase(str.begin()+1);
+ str.erase(str.begin());
+
+ if(str.length()<=len)return;
+ }
+
+ if(str.length()>=4)
+ {
+ if((str[0]=='T'||str[0]=='t')&&
+ (str[1]=='H'||str[1]=='h')&&
+ (str[2]=='E'||str[2]=='e')&&
+ str[3]==' ')
+ {
+ str.erase(str.begin()+3);
+ str.erase(str.begin()+2);
+ str.erase(str.begin()+1);
+ str.erase(str.begin());
+
+ if(str.length()<=len)return;
+ }
+ }
+ }
+ }
+
+ int32_t l;
+ for(l=(int32_t)str.length()-1;l>=1;l--)
+ {
+ if(str[l-1]==' ')continue;
+
+ if(str[l]=='a'||
+ str[l]=='e'||
+ str[l]=='i'||
+ str[l]=='o'||
+ str[l]=='u'||
+ str[l]=='A'||
+ str[l]=='E'||
+ str[l]=='I'||
+ str[l]=='O'||
+ str[l]=='U')
+ {
+ str.erase(str.begin()+l);
+ if(str.length()<=len)return;
+ }
+ }
+
+ if(str.length()>len)str.resize(len);
+}
+
+
+void abbreviate_string(string &str, int32_t len)
+{
+ if (ttf_manager.ttf_active()) {
+ // We'll need to use TTF-aware text shrinking.
+ while (ttf_manager.size_text(str) > len)
+ abbreviate_string_helper(str, str.length() - 1);
+ } else if(str.length()>len){
+ // 1 letter = 1 tile.
+ abbreviate_string_helper(str, len);
+ }
+}
+
+
+
+void get_number(int32_t number,string &str)
+{
+ str.erase();
+
+ if(number<0)
+ {
+ number*=-1;
+ str="negative ";
+ }
+ switch(number)
+ {
+ case 0:str="zero";break;
+ case 1:str="one";break;
+ case 2:str="two";break;
+ case 3:str="three";break;
+ case 4:str="four";break;
+ case 5:str="five";break;
+ case 6:str="six";break;
+ case 7:str="seven";break;
+ case 8:str="eight";break;
+ case 9:str="nine";break;
+ case 10:str="ten";break;
+ case 11:str="eleven";break;
+ case 12:str="twelve";break;
+ case 13:str="thirteen";break;
+ case 14:str="fourteen";break;
+ case 15:str="fifteen";break;
+ case 16:str="sixteen";break;
+ case 17:str="seventeen";break;
+ case 18:str="eighteen";break;
+ case 19:str="nineteen";break;
+ default:
+ {
+ if(number>=1000000000)
+ {
+ string nm;
+ get_number(number/1000000000,nm);
+ str+=nm;
+ str+=" billion";
+ if(number%1000000000!=0)
+ {
+ str+=" ";
+ get_number(number%1000000000,nm);
+ str+=nm;
+ }
+ return;
+ }
+ if(number>=1000000&&number<1000000000)
+ {
+ string nm;
+ get_number(number/1000000,nm);
+ str+=nm;
+ str+=" million";
+ if(number%1000000!=0)
+ {
+ str+=" ";
+ get_number(number%1000000,nm);
+ str+=nm;
+ }
+ return;
+ }
+ if(number>=1000&&number<1000000)
+ {
+ string nm;
+ get_number(number/1000,nm);
+ str+=nm;
+ str+=" thousand";
+ if(number%1000!=0)
+ {
+ str+=" ";
+ get_number(number%1000,nm);
+ str+=nm;
+ }
+ return;
+ }
+ if(number>=100&&number<1000)
+ {
+ string nm;
+ get_number(number/100,nm);
+ str+=nm;
+ str+=" hundred";
+ if(number%100!=0)
+ {
+ str+=" ";
+ get_number(number%100,nm);
+ str+=nm;
+ }
+ return;
+ }
+ if(number>=20&&number<100)
+ {
+ switch(number/10)
+ {
+ case 2:str="twenty";break;
+ case 3:str="thirty";break;
+ case 4:str="forty";break;
+ case 5:str="fifty";break;
+ case 6:str="sixty";break;
+ case 7:str="seventy";break;
+ case 8:str="eighty";break;
+ case 9:str="ninety";break;
+ }
+ if(number%10!=0)
+ {
+ str+="-";
+ string nm;
+ get_number(number%10,nm);
+ str+=nm;
+ }
+ return;
+ }
+ add_long_to_string(number,str);
+ break;
+ }
+ }
+}
+
+void get_ordinal(int32_t number,string &str,bool shorten)
+{
+ str.erase();
+
+ if(shorten)
+ {
+ if(number<0)
+ {
+ number*=-1;
+ str="-";
+ }
+ add_long_to_string(number,str);
+ switch(number%10)
+ {
+ case 1:
+ if(number%100==11)str+="th";
+ else str+="st";
+ break;
+ case 2:
+ if(number%100==12)str+="th";
+ else str+="nd";
+ break;
+ case 3:
+ if(number%100==13)str+="th";
+ else str+="rd";
+ break;
+ default:
+ str+="th";
+ break;
+ }
+ return;
+ }
+
+
+ if(number<0)
+ {
+ number*=-1;
+ str="Negative ";
+ }
+ switch(number)
+ {
+ case 0:str="Zeroth";break;
+ case 1:str="First";break;
+ case 2:str="Second";break;
+ case 3:str="Third";break;
+ case 4:str="Fourth";break;
+ case 5:str="Fifth";break;
+ case 6:str="Sixth";break;
+ case 7:str="Seventh";break;
+ case 8:str="Eighth";break;
+ case 9:str="Ninth";break;
+ case 10:str="Tenth";break;
+ case 11:str="Eleventh";break;
+ case 12:str="Twelfth";break;
+ case 13:str="Thirteenth";break;
+ case 14:str="Fourteenth";break;
+ case 15:str="Fifteenth";break;
+ case 16:str="Sixteenth";break;
+ case 17:str="Seventeenth";break;
+ case 18:str="Eighteenth";break;
+ case 19:str="Nineteenth";break;
+ default:
+ add_long_to_string(number,str);
+ switch(number%10)
+ {
+ case 1:
+ if(number%100==11)str+="th";
+ else str+="st";
+ break;
+ case 2:
+ if(number%100==12)str+="th";
+ else str+="nd";
+ break;
+ case 3:
+ if(number%100==13)str+="th";
+ else str+="rd";
+ break;
+ default:
+ str+="th";
+ break;
+ }
+ break;
+ }
+}
+
+// Map DF's CP437 to Unicode
+// see: http://dwarffortresswiki.net/index.php/Character_table
+int charmap[256] = {
+ ' ', 0x263A, 0x263B, 0x2665, 0x2666, 0x2663, 0x2660, 0x2022,
+ 0x25D8, 0x25CB, 0x25D9, 0x2642, 0x2640, 0x266A, 0x266B, 0x263C,
+ 0x25BA, 0x25C4, 0x2195, 0x203C, 0x00B6, 0x00A7, 0x25AC, 0x21A8,
+ 0x2191, 0x2193, 0x2192, 0x2190, 0x221F, 0x2194, 0x25B2, 0x25BC,
+ /* 0x20 */
+ 0x20,0x21,0x22,0x23,0x24,0x25,0x26,0x27,0x28,0x29,0x2a,0x2b,0x2c,0x2d,0x2e,0x2f,
+ 0x30,0x31,0x32,0x33,0x34,0x35,0x36,0x37,0x38,0x39,0x3a,0x3b,0x3c,0x3d,0x3e,0x3f,
+ 0x40,0x41,0x42,0x43,0x44,0x45,0x46,0x47,0x48,0x49,0x4a,0x4b,0x4c,0x4d,0x4e,0x4f,
+ 0x50,0x51,0x52,0x53,0x54,0x55,0x56,0x57,0x58,0x59,0x5a,0x5b,0x5c,0x5d,0x5e,0x5f,
+ 0x60,0x61,0x62,0x63,0x64,0x65,0x66,0x67,0x68,0x69,0x6a,0x6b,0x6c,0x6d,0x6e,0x6f,
+ 0x70,0x71,0x72,0x73,0x74,0x75,0x76,0x77,0x78,0x79,0x7a,0x7b,0x7c,0x7d,0x7e,0x2302,
+ /* 0x80 */
+ 0xC7, 0xFC, 0xE9, 0xE2, 0xE4, 0xE0, 0xE5, 0xE7,
+ 0xEA, 0xEB, 0xE8, 0xEF, 0xEE, 0xEC, 0xC4, 0xC5,
+ 0xC9, 0xE6, 0xC6, 0xF4, 0xF6, 0xF2, 0xFB, 0xF9,
+ 0xFF, 0xD6, 0xDC, 0xA2, 0xA3, 0xA5, 0x20A7, 0x192,
+ 0xE1, 0xED, 0xF3, 0xFA, 0xF1, 0xD1, 0xAA, 0xBA,
+ 0xBF, 0x2310, 0xAC, 0xBD, 0xBC, 0xA1, 0xAB, 0xBB,
+ 0x2591, 0x2592, 0x2593, 0x2502, 0x2524, 0x2561, 0x2562, 0x2556,
+ 0x2555, 0x2563, 0x2551, 0x2557, 0x255D, 0x255C, 0x255B, 0x2510,
+ 0x2514, 0x2534, 0x252C, 0x251C, 0x2500, 0x253C, 0x255E, 0x255F,
+ 0x255A, 0x2554, 0x2569, 0x2566, 0x2560, 0x2550, 0x256C, 0x2567,
+ 0x2568, 0x2564, 0x2565, 0x2559, 0x2558, 0x2552, 0x2553, 0x256B,
+ 0x256A, 0x2518, 0x250C, 0x2588, 0x2584, 0x258C, 0x2590, 0x2580,
+ 0x3B1, 0xDF/*yay*/, 0x393, 0x3C0, 0x3A3, 0x3C3, 0xB5, 0x3C4,
+ 0x3A6, 0x398, 0x3A9, 0x3B4, 0x221E, 0x3C6, 0x3B5, 0x2229,
+ 0x2261, 0xB1, 0x2265, 0x2264, 0x2320, 0x2321, 0xF7, 0x2248,
+ 0xB0, 0x2219, 0xB7, 0x221A, 0x207F, 0xB2, 0x25A0, 0xA0
+};
generated by cgit v1.2.3 (git 2.39.1) at 2024-04-26 19:43:53 +0000