427 lines
10 KiB
C++
427 lines
10 KiB
C++
#ifndef __NASAL_FUNCTIONAL_H__
|
|
#define __NASAL_FUNCTIONAL_H__
|
|
|
|
#include <iostream>
|
|
#include <cstring>
|
|
|
|
#include "nasal_var_stack.h"
|
|
#include "nasal_func_stack.h"
|
|
|
|
namespace nasal
|
|
{
|
|
|
|
bool isFloat(std::string &str)
|
|
{
|
|
for(int i=0;i<(int)str.length();++i)
|
|
if(str[i]=='.')
|
|
return true;
|
|
return false;
|
|
}
|
|
long long int int_Str2Num(std::string &str)
|
|
{
|
|
for(int i=0;i<(int)str.length();++i)
|
|
if(!(('0'<=str[i]) && (str[i]<='9') || (str[i]=='.')))
|
|
{
|
|
std::cout<<"[Error] Non-numeric string."<<std::endl;
|
|
return 0;
|
|
}
|
|
long long int num=0;
|
|
long long int acc=1;
|
|
for(int i=(int)str.length()-1;i>=0;--i)
|
|
{
|
|
num+=acc*((long long int)(str[i]-'0'));
|
|
acc*=10;
|
|
}
|
|
return num;
|
|
}
|
|
double double_Str2Num(std::string &str)
|
|
{
|
|
for(int i=0;i<(int)str.length();++i)
|
|
if(!(('0'<=str[i]) && (str[i]<='9') || (str[i]=='.')))
|
|
{
|
|
std::cout<<"[Error] Non-numeric string."<<std::endl;
|
|
return 0;
|
|
}
|
|
int DotPlace=0;
|
|
for(int i=0;i<(int)str.length();++i)
|
|
if(str[i]=='.')
|
|
{
|
|
DotPlace=i;
|
|
break;
|
|
}
|
|
double num=0;
|
|
double acc=1;
|
|
double aff=0.1;
|
|
for(int i=DotPlace+1;i<(int)str.length();++i)
|
|
{
|
|
num+=aff*((double)(str[i]-'0'));
|
|
aff*=0.1;
|
|
}
|
|
for(int i=DotPlace-1;i>=0;--i)
|
|
{
|
|
num+=acc*((double)(str[i]-'0'));
|
|
acc*=10;
|
|
}
|
|
return num;
|
|
}
|
|
|
|
#define FUNC_OPERATOR 1
|
|
#define FUNC_IDENTIFIER 2
|
|
#define FUNC_NUMBER 3
|
|
#define FUNC_RESERVEWORD 4
|
|
#define FUNC_STRING 5
|
|
|
|
var_stack nasal_var_stack;
|
|
func_stack nasal_func_stack;
|
|
var temp_var;
|
|
func temp_func;
|
|
|
|
struct token_unit
|
|
{
|
|
std::string type;
|
|
std::string content;
|
|
int line;
|
|
token_unit *next;
|
|
};
|
|
|
|
class token_list
|
|
{
|
|
private:
|
|
token_unit *head;
|
|
public:
|
|
token_list()
|
|
{
|
|
head=new token_unit;
|
|
head->type="Begin";
|
|
head->content="__process_begin";
|
|
head->line=0;
|
|
head->next=NULL;
|
|
}
|
|
~token_list()
|
|
{
|
|
token_unit *temp=head;
|
|
token_unit *this_node=NULL;
|
|
while(temp->next)
|
|
{
|
|
this_node=temp;
|
|
temp=temp->next;
|
|
delete this_node;
|
|
}
|
|
delete temp;
|
|
}
|
|
void print_line_token(const int _line)
|
|
{
|
|
std::cout<<"line "<<_line<<": ";
|
|
token_unit *temp=head;
|
|
while(temp->next)
|
|
{
|
|
temp=temp->next;
|
|
if(temp->line==_line)
|
|
std::cout<<temp->content<<" ";
|
|
else if(temp->line>_line)
|
|
break;
|
|
}
|
|
std::cout<<std::endl;
|
|
return;
|
|
}
|
|
void delete_all()
|
|
{
|
|
if(!head->next)
|
|
return;
|
|
token_unit *temp=head;
|
|
token_unit *this_node=NULL;
|
|
temp=temp->next;
|
|
head->next=NULL;
|
|
while(temp->next)
|
|
{
|
|
this_node=temp;
|
|
temp=temp->next;
|
|
delete this_node;
|
|
}
|
|
delete temp;
|
|
return;
|
|
}
|
|
void append(const char *_type,std::string &_content,const int _line)
|
|
{
|
|
token_unit *temp=head;
|
|
while(temp->next)
|
|
temp=temp->next;
|
|
temp->next=new token_unit;
|
|
temp=temp->next;
|
|
temp->next=NULL;
|
|
temp->type=_type;
|
|
temp->line=_line;
|
|
temp->content=_content;
|
|
return;
|
|
}
|
|
void print()
|
|
{
|
|
token_unit *temp=head;
|
|
std::cout<<"line "<<temp->line<<": "<<"( ProcessBegin | "<<temp->content<<" )"<<std::endl;
|
|
if(!head->next)
|
|
return;
|
|
while(temp->next)
|
|
{
|
|
temp=temp->next;
|
|
std::cout<<"line "<<temp->line<<": ";
|
|
if(temp->type=="Operator")
|
|
std::cout<<"( Operator | ";
|
|
else if(temp->type=="Identifier")
|
|
std::cout<<"( Identifier | ";
|
|
else if(temp->type=="Number")
|
|
std::cout<<"( Number | ";
|
|
else if(temp->type=="ReserveWord")
|
|
std::cout<<"( ReserveWord | ";
|
|
else if(temp->type=="String")
|
|
std::cout<<"( String | ";
|
|
std::cout<<temp->content<<" )"<<std::endl;
|
|
}
|
|
return;
|
|
}
|
|
void run()
|
|
{
|
|
nasal_var_stack.delete_all();
|
|
nasal_func_stack.delete_all();
|
|
token_unit *temp=head;
|
|
if(!head->next)
|
|
{
|
|
std::cout<<">> Running complete."<<std::endl;
|
|
return;
|
|
}
|
|
|
|
while(temp->next)
|
|
{
|
|
temp=temp->next;
|
|
if(temp->type=="Operator")
|
|
{
|
|
;
|
|
}
|
|
else if(temp->type=="Identifier")
|
|
{
|
|
;
|
|
}
|
|
else if(temp->type=="Number")
|
|
{
|
|
print_line_token(temp->line);
|
|
std::cout<<"line "<<temp->line<<": "<<"[Error] Number without any tokens."<<std::endl;
|
|
return;
|
|
}
|
|
else if(temp->type=="ReserveWord")
|
|
{
|
|
if(temp->content=="var")
|
|
{
|
|
if(temp->next)
|
|
temp=temp->next;
|
|
else
|
|
{
|
|
print_line_token(temp->line);
|
|
std::cout<<"line "<<temp->line<<": "<<"[Error] Missing elements after \"var\"."<<std::endl;
|
|
return;
|
|
}
|
|
//end identifier
|
|
std::string name_of_var;
|
|
if(temp->type=="Identifier")
|
|
name_of_var=temp->content;
|
|
else
|
|
{
|
|
print_line_token(temp->line);
|
|
std::cout<<"line "<<temp->line<<": "<<"[Error] Missing identifier after \"var\"."<<std::endl;
|
|
return;
|
|
}
|
|
if(temp->next)
|
|
temp=temp->next;
|
|
else
|
|
{
|
|
print_line_token(temp->line);
|
|
std::cout<<"line "<<temp->line<<": "<<"[Error] Missing operator \"=\" after identifier."<<std::endl;
|
|
return;
|
|
}
|
|
if(temp->content!="=")
|
|
{
|
|
print_line_token(temp->line);
|
|
std::cout<<"line "<<temp->line<<": "<<"[Error] Missing operator \"=\" after identifier."<<std::endl;
|
|
return;
|
|
}
|
|
if(temp->next)
|
|
temp=temp->next;
|
|
else
|
|
{
|
|
print_line_token(temp->line);
|
|
std::cout<<"line "<<temp->line<<": "<<"[Error] Missing value after operator \"=\" ."<<std::endl;
|
|
return;
|
|
}
|
|
if(temp->type=="Number")
|
|
{
|
|
temp_var.isGlobal=true;
|
|
if(isFloat(temp->content))
|
|
{
|
|
temp_var.Type="double";
|
|
temp_var.data=new double;
|
|
*((double *)temp_var.data)=double_Str2Num(temp->content);
|
|
nasal_var_stack.append_var(name_of_var,temp_var);
|
|
delete (double *)temp_var.data;
|
|
temp_var.data=NULL;
|
|
}
|
|
else
|
|
{
|
|
temp_var.Type="long long int";
|
|
temp_var.data=new long long int;
|
|
*((long long int *)temp_var.data)=int_Str2Num(temp->content);
|
|
nasal_var_stack.append_var(name_of_var,temp_var);
|
|
delete (long long int *)temp_var.data;
|
|
temp_var.data=NULL;
|
|
}
|
|
}
|
|
else if(temp->type=="String")
|
|
{
|
|
temp_var.isGlobal=true;
|
|
temp_var.Type="string";
|
|
temp_var.data=new std::string;
|
|
std::string temp_string="";
|
|
for(int i=1;i<(int)temp->content.length()-1;++i)
|
|
temp_string+=temp->content[i];
|
|
*((std::string *)temp_var.data)=temp_string;
|
|
nasal_var_stack.append_var(name_of_var,temp_var);
|
|
delete (std::string *)temp_var.data;
|
|
temp_var.data=NULL;
|
|
}
|
|
else if(temp->type=="Operator" && temp->content=="{")
|
|
{
|
|
bool make_pair=false;
|
|
int cnt=1;
|
|
while(temp->next)
|
|
{
|
|
temp=temp->next;
|
|
if(temp->type=="Operator" && temp->content=="}")
|
|
{
|
|
--cnt;
|
|
if(!cnt)
|
|
{
|
|
make_pair=true;
|
|
break;
|
|
}
|
|
}
|
|
else if(temp->type=="Operator" && temp->content=="{")
|
|
++cnt;
|
|
}
|
|
if(!make_pair)
|
|
{
|
|
print_line_token(temp->line);
|
|
std::cout<<"line "<<temp->line<<": "<<"[Error] Expect a \"}\"."<<std::endl;
|
|
return;
|
|
}
|
|
}
|
|
else if(temp->type=="Operator" && temp->content=="[")
|
|
{
|
|
bool make_pair=false;
|
|
int cnt=1;
|
|
while(temp->next)
|
|
{
|
|
temp=temp->next;
|
|
if(temp->type=="Operator" && temp->content=="]")
|
|
{
|
|
--cnt;
|
|
if(!cnt)
|
|
{
|
|
make_pair=true;
|
|
break;
|
|
}
|
|
}
|
|
else if(temp->type=="Operator" && temp->content=="[")
|
|
++cnt;
|
|
}
|
|
if(!make_pair)
|
|
{
|
|
print_line_token(temp->line);
|
|
std::cout<<"line "<<temp->line<<": "<<"[Error] Expect a \"]\"."<<std::endl;
|
|
return;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
print_line_token(temp->line);
|
|
std::cout<<"line "<<temp->line<<": "<<"[Error] Missing value after operator \"=\" ."<<std::endl;
|
|
return;
|
|
}
|
|
|
|
if(!(temp->next && temp->next->content==";"))
|
|
{
|
|
print_line_token(temp->line);
|
|
std::cout<<"line "<<temp->line<<": "<<"[Error] Expect a \";\" at the end of the statement."<<std::endl;
|
|
nasal_var_stack.pop_var();
|
|
return;
|
|
}
|
|
else
|
|
temp=temp->next;
|
|
//end var
|
|
}
|
|
else if(temp->content=="print")
|
|
{
|
|
if(temp->next && temp->next->content=="(")
|
|
{
|
|
temp=temp->next;
|
|
while(temp->next)
|
|
{
|
|
temp=temp->next;
|
|
if(temp->type=="String")
|
|
{
|
|
std::string temp_string="";
|
|
for(int i=1;i<(int)temp->content.length()-1;++i)
|
|
temp_string+=temp->content[i];
|
|
PrintString(temp_string);
|
|
}
|
|
else if(temp->type=="Identifier")
|
|
PrintVar(nasal_var_stack.SearchVar(temp->content));
|
|
else if(temp->type=="Operator" && temp->content==")")
|
|
{
|
|
if(!temp->next)
|
|
{
|
|
print_line_token(temp->line);
|
|
std::cout<<"line "<<temp->line<<": "<<"[Error] Expect a \";\" at the end of the statement."<<std::endl;
|
|
return;
|
|
}
|
|
break;
|
|
}
|
|
else if(temp->type=="Operator" && temp->content==";")
|
|
{
|
|
print_line_token(temp->line);
|
|
std::cout<<"line "<<temp->line<<": "<<"[Error] Expect a \")\" at the end of print."<<std::endl;
|
|
return;
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
print_line_token(temp->line);
|
|
std::cout<<"line "<<temp->line<<": "<<"[Error] Expect a \"(\" after function print."<<std::endl;
|
|
return;
|
|
}
|
|
if(!(temp->next && temp->next->content==";"))
|
|
{
|
|
print_line_token(temp->line);
|
|
std::cout<<"line "<<temp->line<<": "<<"[Error] Expect a \";\" at the end of the statement."<<std::endl;
|
|
return;
|
|
}
|
|
}
|
|
}
|
|
else if(temp->type=="String")
|
|
{
|
|
print_line_token(temp->line);
|
|
std::cout<<"line "<<temp->line<<": "<<"[Error] String without any tokens."<<std::endl;
|
|
return;
|
|
}
|
|
}
|
|
//nasal_var_stack.print_var(); //for debug mode
|
|
//nasal_func_stack.print_function(); //for debug mode
|
|
nasal_var_stack.delete_all();
|
|
nasal_func_stack.delete_all();
|
|
std::cout<<">> Running complete."<<std::endl;
|
|
return;
|
|
}
|
|
};
|
|
|
|
}
|
|
|
|
|
|
#endif
|