From ea76b6988ccafaa6a4d4ed90f2489d0e49e1f180 Mon Sep 17 00:00:00 2001
From: Benjamin Barenblat <bbaren@mit.edu>
Date: Sat, 5 Sep 2015 09:32:30 -0400
Subject: Imported Upstream version 0.40.24

---
 g_src/basics.cpp | 792 +++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 792 insertions(+)
 create mode 100755 g_src/basics.cpp

(limited to 'g_src/basics.cpp')

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
+};
-- 
cgit v1.2.3