pGame create_game(char* game_name,Uint32 options,int seconds_per_turn,char* level_string,int local,int hares_per_player)
{
pMessage result = NULL;
if (local == 0)
{
pMessage message = NULL;
addToMessage(&message,"game_name",game_name);
numToMessage(&message,"options",options);
numToMessage(&message,"seconds_per_turn",seconds_per_turn);
numToMessage(&message,"hares_per_player",hares_per_player);
addToMessage(&message,"level_string",level_string);
int i;
for (i = 0; i < 3 && result == NULL;i++)
result = sendMessage(message,NULL,NULL,0,"create_game.php",hase_url);
deleteMessage(&message);
if (result == NULL)
return NULL;
}
pGame game = (pGame)malloc(sizeof(tGame));
game->id = -1;
sprintf(game->name,"%s",game_name);
sprintf(game->level_string,"%s",level_string);
game->options.compressed = options;
game->player_count = 0;
game->create_date = 0;
game->seconds_per_turn = seconds_per_turn;
game->hares_per_player = hares_per_player;
game->status = 0;
game->local = local;
if (local)
game->admin_pw = 12345;
else
game->admin_pw = 0;
game->local_player = NULL;
game->local_counter = 0;
game->next = NULL;
memset(game->sprite_count,0,sizeof(int)*SPRITE_COUNT);
pMessage now = result;
while (now)
{
if (strcmp(now->name,"game_id") == 0)
game->id = atoi(now->content);
if (strcmp(now->name,"admin_pw") == 0)
game->admin_pw = atoi(now->content);
if (strcmp(now->name,"create_date") == 0)
game->create_date = atoi(now->content);
now = now->next;
}
deleteMessage(&result);
return game;
}
void set_level(pGame game,char* level_string)
{
if (game->local == 0)
{
pMessage message = NULL;
numToMessage(&message,"game_id",game->id);
numToMessage(&message,"admin_pw",game->admin_pw);
addToMessage(&message,"level_string",level_string);
pMessage result = NULL;
int i;
for (i = 0; i < 3 && result == NULL;i++)
result = sendMessage(message,NULL,NULL,0,"set_level.php",hase_url);
deleteMessage(&message);
if (result)
sprintf(game->level_string,"%s",level_string);
deleteMessage(&result);
}
else
sprintf(game->level_string,"%s",level_string);
}
/** @brief (add message with "error" and increament errorCounter)
*/
void PassOne::addErrorMessage(string &msg, string toBeAdded) {
errorCounter++;
addToMessage(msg, "error: " + toBeAdded);
}
/** @brief (add message with "warning")
*/
void PassOne::addWarningMessage(string &msg, string toBeAdded) {
// warningCounter++;
addToMessage(msg, "warning: " + toBeAdded);
}
/** @brief (parse input file validate it and fill symtable)
* print output file with:
* 1. location counter beside each statements
* 2. errors or warnings below each statement if any
* 3. symtable if successfully assembeled
*/
void PassOne::pass() {
int lineNumber = 1;
string msg = "";
bool started = false, noStart = true, noEnd = true;
/// loop till end statement or no line remains
while (input->hasNextLine()) {
/// print line
outStream << lineNumber << "\t" << autalities::toUp(locator) << "\t";
outStream << input->getLine() << "\n";
msg = "";
// lineNumber++;
if (noEnd && !input->isCommentLine()) { // not a comment line
/// handel start statement
string operation = input->getOperation();
string operand = input->getOperand();
auto args = input->getArgs(); // operand subfields
if (operation == "start") {
if (!started) {
started = true;
noStart = false;
handelStart(args, msg);
} else {
addErrorMessage(msg, "duplicated start statement");
}
} else {
if (noStart) {
noStart = false;
started = true;
//addErrorMessage(msg, "messing start statement");
}
/// handel label and add it to symtable
string label = input->getLabel();
if (!label.empty()) {
if (symTab->hasLabel(label)) { //duplicate symbol
addErrorMessage(msg, "Symbol \'" + label + "\' already defined\n");
} else {
symTab->insert(label, locator);
}
}
/// handel operation and operand field
if (args.empty() && !operand.empty()) { // args empty mean error to match it with any operand types
addErrorMessage(msg, "wrong operand field");
}
if (!operation.empty()) {
if (opTab->hasOperation(operation)) { // valid operation
handelOperation(args, msg, operation);
} else if (input->isFormatFour()) { // directive with format 4
addErrorMessage(msg, "invalid format 4 with directives");
} else if (operation == "word") {
handelWord(args, msg);
} else if (operation == "resw" || operation == "resb") {
handelRes(args, msg, operation);
} else if (operation == "byte") {
handelByte(args, msg);
} else if (operation == "end") {
noEnd = false;
} else if (operation == "org") {
handelOrg(args, msg);
} else if (operation == "equ") {
handelEqu(args, label, msg);
} else if (operation == "ltorg") {
handelLtorg(msg,lineNumber);
} else if (dirTab->contains(operation) && dirTab->notSupported(operation)) {
addWarningMessage(msg, "not supported directive");
} else if (!dirTab->contains(operation)) {
addErrorMessage(msg, "invalid operation code");
}
if(args.size() > 0 && args[0].isLiteral()){
string value = args[0].toHex();
literalPool->insert(value);
}
} else {
addErrorMessage(msg, "operation field is messing");
}
}
if (!input->isValid())
addToMessage(msg, input->getErrorMessage());
outStream << msg;
}
lineNumber++;
}
if (noEnd) {
addErrorMessage(msg, "no end found");
outStream << msg;
}
handelLtorg(msg,lineNumber);
outStream << "****\t**********End of pass 1***********\n";
if (errorCounter > 0) {
outStream << ">>> incomplete assembely with " << errorCounter << " errors\n";
} else {
printSymTable();
}
outStream.close();
input->close();
}
pPlayer join_game(pGame game,char* name,int ai,int nr)
{
if (nr < 1)
nr = 1;
if (nr > SPRITE_COUNT)
nr = SPRITE_COUNT;
pMessage result = NULL;
if (game->local == 0)
{
pMessage message = NULL;
addToMessage(&message,"player_name",name);
numToMessage(&message,"game_id",game->id);
numToMessage(&message,"computer",ai);
numToMessage(&message,"nr",nr);
int i;
for (i = 0; i < 3 && result == NULL;i++)
result = sendMessage(message,NULL,NULL,0,"join_game.php",hase_url);
deleteMessage(&message);
if (result == NULL)
return NULL;
}
pPlayer player = (pPlayer)malloc(sizeof(tPlayer));
sprintf(player->name,"%s",name);
player->computer = ai;
player->id = game->local_counter++;
player->pw = 0;
player->game = game;
player->next = NULL;
player->input_data = NULL;
player->last_input_data_write = NULL;
player->last_input_data_read = NULL;
player->input_message = 0;
player->input_mutex = NULL;
player->input_thread = NULL;
player->nr = nr;
player->heartbeat_thread = NULL;
player->heartbeat_message = 0;
pMessage now = result;
while (now)
{
if (strcmp(now->name,"error") == 0 && atoi(now->content))
{
free(player);
player = NULL;
break;
}
if (strcmp(now->name,"player_id") == 0)
player->id = atoi(now->content);
if (strcmp(now->name,"player_pw") == 0)
player->pw = atoi(now->content);
now = now->next;
}
deleteMessage(&result);
if (game->local)
{
pPlayer new_player = (pPlayer)malloc(sizeof(tPlayer));
sprintf(new_player->name,"%s",player->name);
new_player->computer = player->computer;
new_player->id = player->id;
new_player->pw = player->pw;
new_player->game = player->game;
new_player->input_data = NULL;
new_player->last_input_data_write = NULL;
new_player->last_input_data_read = NULL;
new_player->input_message = 0;
new_player->input_mutex = NULL;
new_player->input_thread = NULL;
new_player->nr = nr;
new_player->next = game->local_player;
new_player->heartbeat_thread = NULL;
new_player->heartbeat_message = 0;
game->local_player = new_player;
}
game->sprite_count[nr-1]++;
return player;
}
pMessage sendMessage(pMessage message,char* binary_name,void* binary,int count,char* dest,char* server)
{
char boundary[17] = "A9B8C7D6E5F4G3H2"; //This should maybe random...
int boundary_len = 16;
int direction = 1;
if (count < 0)
{
count *= -1;
direction = -1;
}
int length = 0;
pMessage mom = message;
while (mom)
{
mom->l =
2+boundary_len+2 + //boundary start + return
39+strlen(mom->name)+2 + //Content-Disposition: form-data; name="<name>" + return
strlen(mom->content)+4; // content + 2 returns
length += mom->l;
mom = mom->next;
}
length += boundary_len+2+4; //--boundary-- + 2 returns;
spNetTCPConnection server_connection = spNetOpenClientTCP(ip);
if (server_connection == NULL)
return NULL;
//int buffer_size = 2048+count;//spMax(length+1,512);
int buffer_size = 65536;
char in_buffer[buffer_size];
char* buffer = in_buffer;
#ifndef WIN32
char out_buffer[buffer_size];
#endif
char header[4096]; //magic number ftw!
char host[512];
int pos = 0;
mom = message;
char temp[512];
while (mom)
{
sprintf(temp,
"\r\n--%s\r\n"
"Content-Disposition: form-data; name=\"%s\"\r\n"
"\r\n"
"%s",boundary,mom->name,mom->content);
memcpy(&(buffer[pos]),temp,mom->l);
pos += mom->l;
mom = mom->next;
}
if (binary && direction == 1)
{
#ifdef INPUT_COMPRESSION
if (hase_gzip)
{
//compress data
z_stream strm;
strm.zalloc = Z_NULL;
strm.zfree = Z_NULL;
strm.opaque = Z_NULL;
strm.avail_in = count;
strm.next_in = binary;
if (deflateInit2 (&strm, Z_DEFAULT_COMPRESSION, Z_DEFLATED, 31,8,Z_DEFAULT_STRATEGY) != Z_OK)
{
printf("Error: ZStream Init error\n");
return NULL;
}
strm.avail_out = buffer_size;
strm.next_out = out_buffer;
switch (deflate(&strm, Z_FINISH))
{
case Z_STREAM_ERROR:
printf("Error: ZStream error\n");
deflateEnd(&strm);
return NULL;
case Z_DATA_ERROR:
printf("Error: ZStream data error\n");
return NULL;
case Z_MEM_ERROR:
deflateEnd(&strm);
printf("Error: ZStream mem error\n");
return NULL;
case Z_NEED_DICT:
printf("Error: ZStream need dict error\n");
return NULL;
}
//printf("Compression saved %i%% (%i vs. %i)\n",100-(int)strm.total_out*100/count,(int)strm.total_out,count);
count = (int)strm.total_out;
deflateEnd(&strm);
binary = out_buffer;
}
#endif
length +=
2+boundary_len+2 + //boundary start + return
39+strlen(binary_name)+2 + //Content-Disposition: form-data; name="<name>" + return
count + 4; // content + 2 returns
int l =
2+boundary_len+2 + //boundary start + return
39+strlen(binary_name)+2 + //Content-Disposition: form-data; name="<name>" + return
4; // content + 2 returns
sprintf(temp,
"\r\n--%s\r\n"
"Content-Disposition: form-data; name=\"%s\"\r\n"
"\r\n",boundary,binary_name);
memcpy(&(buffer[pos]),temp,l);
pos += l;
memcpy(&(buffer[pos]),binary,count);
pos += count;
}
sprintf(temp,
"\r\n--%s--",boundary);
memcpy(&(buffer[pos]),temp,2+4+boundary_len+1);
sprintf(host,"%s",server);
char* server_directory = strchr(host,'/');
if (server_directory)
{
server_directory[0] = 0;
server_directory++;
sprintf(header,
"POST /%s/%s HTTP/1.1\r\n"
"Origin: http://%s\r\n"
"User-Agent: Hase\r\n"
"Connection: Close\r\n"
"Content-Type: multipart/form-data; boundary=%s\r\n"
"Content-Length: %i\r\n"
#ifndef WIN32
"Accept-Encoding: gzip\r\n"
#endif
"Host: %s\r\n"
"\r\n",server_directory,dest,host,boundary,length,host);
}
else
{
sprintf(header,
"POST /%s HTTP/1.1\r\n"
"Origin: http://%s\r\n"
"User-Agent: Hase\r\n"
"Connection: Close\r\n"
"Content-Type: multipart/form-data; boundary=%s\r\n"
"Content-Length: %i\r\n"
#ifndef WIN32
"Accept-Encoding: gzip\r\n"
#endif
"Host: %s\r\n"
"\r\n",dest,host,boundary,length,host);
}
//printf("Header:\n%s",header);
spNetSendHTTP(server_connection,header);
//printf("\nMessage\n%sEND\n",buffer);
spNetSendTCP(server_connection,buffer,length);
int res = spNetReceiveHTTP(server_connection,buffer,buffer_size-1);
buffer[res] = 0;
spNetCloseTCP(server_connection);
//HTTP error check + jumping to begin
if (
buffer[ 0] != 'H' ||
buffer[ 1] != 'T' ||
buffer[ 2] != 'T' ||
buffer[ 3] != 'P' ||
buffer[ 4] != '/' ||
buffer[ 5] != '1' ||
buffer[ 6] != '.' ||
buffer[ 7] != '1' ||
buffer[ 8] != ' ' ||
buffer[ 9] != '2' ||
buffer[10] != '0' ||
buffer[11] != '0' ||
buffer[12] != ' ' ||
buffer[13] != 'O' ||
buffer[14] != 'K')
return NULL;
pos = 15;
#ifndef WIN32
int encoded = 0;
#endif
int content_length = 0;
int chunked = 0;
while (
buffer[pos ] != '\r' ||
buffer[pos+1] != '\n' ||
buffer[pos+2] != '\r' ||
buffer[pos+3] != '\n')
{
if (buffer[pos] == 0)
return NULL;
#ifndef WIN32
if (
buffer[pos+ 0] == 'C' &&
buffer[pos+ 1] == 'o' &&
buffer[pos+ 2] == 'n' &&
buffer[pos+ 3] == 't' &&
buffer[pos+ 4] == 'e' &&
buffer[pos+ 5] == 'n' &&
buffer[pos+ 6] == 't' &&
buffer[pos+ 7] == '-')
{
if (
buffer[pos+ 8] == 'E' &&
buffer[pos+ 9] == 'n' &&
buffer[pos+10] == 'c' &&
buffer[pos+11] == 'o' &&
buffer[pos+12] == 'd' &&
buffer[pos+13] == 'i' &&
buffer[pos+14] == 'n' &&
buffer[pos+15] == 'g' &&
buffer[pos+16] == ':' &&
buffer[pos+17] == ' ' &&
buffer[pos+18] == 'g' &&
buffer[pos+19] == 'z' &&
buffer[pos+20] == 'i' &&
buffer[pos+21] == 'p')
encoded = 1;
else
if (
buffer[pos+ 8] == 'L' &&
buffer[pos+ 9] == 'e' &&
buffer[pos+10] == 'n' &&
buffer[pos+11] == 'g' &&
buffer[pos+12] == 't' &&
buffer[pos+13] == 'h' &&
buffer[pos+14] == ':' &&
buffer[pos+15] == ' ')
content_length = atoi(&buffer[pos+16]);
}
#endif
if (
buffer[pos+ 0] == 'T' &&
buffer[pos+ 1] == 'r' &&
buffer[pos+ 2] == 'a' &&
buffer[pos+ 3] == 'n' &&
buffer[pos+ 4] == 's' &&
buffer[pos+ 5] == 'f' &&
buffer[pos+ 6] == 'e' &&
buffer[pos+ 7] == 'r' &&
buffer[pos+ 8] == '-' &&
buffer[pos+ 9] == 'E' &&
buffer[pos+10] == 'n' &&
buffer[pos+11] == 'c' &&
buffer[pos+12] == 'o' &&
buffer[pos+13] == 'd' &&
buffer[pos+14] == 'i' &&
buffer[pos+15] == 'n' &&
buffer[pos+16] == 'g' &&
buffer[pos+17] == ':' &&
buffer[pos+18] == ' ' &&
buffer[pos+19] == 'c' &&
buffer[pos+20] == 'h' &&
buffer[pos+21] == 'u' &&
buffer[pos+22] == 'n' &&
buffer[pos+23] == 'k' &&
buffer[pos+24] == 'e' &&
buffer[pos+25] == 'd')
chunked = 1;
pos++;
}
pos+=4;
if (chunked) //Remove chunk informations
{
int difference = 0;
while (
buffer[pos + difference + 0] != '\r' ||
buffer[pos + difference + 1] != '\n')
difference++;
int next_chunk = strtol(&(buffer[pos]),NULL,16);
difference += 2; // \r\n
int work_pos = pos;
while (next_chunk)
{
int i;
for (i = work_pos; i < work_pos + next_chunk; i++)
buffer[i] = buffer[i+difference];
difference += 2; // \r\n
work_pos += next_chunk;
next_chunk = strtol(&(buffer[work_pos+difference]),NULL,16);
while (
buffer[work_pos + difference + 0] != '\r' ||
buffer[work_pos + difference + 1] != '\n')
difference++;
difference += 2; // \r\n
}
buffer[work_pos] = 0;
content_length -= difference;
}
#ifndef WIN32
if (encoded)
{
z_stream strm;
strm.zalloc = Z_NULL;
strm.zfree = Z_NULL;
strm.opaque = Z_NULL;
strm.avail_in = content_length;
strm.next_in = &in_buffer[pos];
if (inflateInit2 (&strm, 31) != Z_OK)
{
printf("Error: ZStream Init error\n");
return NULL;
}
strm.avail_out = buffer_size-pos;
strm.next_out = &out_buffer[pos];
switch (inflate(&strm, Z_NO_FLUSH))
{
case Z_STREAM_ERROR:
printf("Error: ZStream error\n");
inflateEnd(&strm);
return NULL;
case Z_DATA_ERROR:
printf("Error: ZStream data error\n");
return NULL;
case Z_MEM_ERROR:
inflateEnd(&strm);
printf("Error: ZStream mem error\n");
return NULL;
case Z_NEED_DICT:
printf("Error: ZStream need dict error\n");
return NULL;
}
//printf("Compression saved %i%% (%i vs. %i)\n",100-content_length*100/(int)strm.total_out,content_length,(int)strm.total_out);
inflateEnd(&strm);
out_buffer[pos+(int)strm.total_out] = 0;
buffer = out_buffer;
}
else
#endif
buffer = in_buffer;
//printf("%s\n",&buffer[pos]);
if (direction == -1) //incoming file
{
if (buffer[pos+1] == 'A' &&
buffer[pos+2] == 'C' &&
buffer[pos+3] == 'K')
{
memcpy(binary,&buffer[pos+4],count);
last_heartbeat_diff = *((int*)(&buffer[pos+4+count]));
pMessage result = NULL;
numToMessage(&result,"Okay",1);
return result;
}
if (buffer[pos+1] == 'N' &&
buffer[pos+2] == 'U' &&
buffer[pos+3] == 'L')
{
memset(binary,1+2+16+32,count);
last_heartbeat_diff = (int)(buffer[pos+4]);
pMessage result = NULL;
numToMessage(&result,"Kicked",1);
return result;
}
if (buffer[pos+1] == 'E' &&
buffer[pos+2] == 'R' &&
buffer[pos+3] == 'R')
{
last_heartbeat_diff = (int)(buffer[pos+4]);
return NULL;
}
return NULL;
}
//Parsing in init style
pMessage result = NULL;
char* found;
char* rest = &buffer[pos];
//printf("_____\n%s\n^^^^^\n",rest);
while ((found = strchr(rest,'\n')) || (found = strchr(rest,0)))
{
char exit_afterwards = 0;
if (found[0] == 0)
exit_afterwards = 1;
found[0] = 0;
char* line = rest;
char* middle = strchr(line,':');
if (middle && line[0] != '<') //some free hosting website add statistic bullshit
{
middle[0] = 0;
middle++;
middle++;
addToMessage(&result,line,middle);
//printf("Add %s -> %s\n",line,middle);
}
if (exit_afterwards)
break;
rest = ++found;
}
return result;
}
void numToMessage(pMessage *message, char* name, int number)
{
char buffer[16];
sprintf(buffer,"%i",number);
addToMessage(message,name,buffer);
}
