xxq250
/
Nasal-Interpreter
mirror of https://github.com/ValKmjolnir/Nasal-Interpreter.git
1
0
Fork 0
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Update

This commit is contained in:
Valk Richard Li 2019-12-18 13:04:40 +08:00 committed by GitHub
parent 75948eb28b
commit 1c5cc21d72
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
4 changed files with 156 additions and 140 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

80
version2.0/abstract_syntax_tree.h
View File

@ -129,85 +129,9 @@ void abstract_syntax_tree::set_string(std::string __str)
return;
}
void abstract_syntax_tree::set_number(std::string _str)
void abstract_syntax_tree::set_number(std::string __str)
{
bool is_negative=false;
if(_str.length()>1 && _str[0]=='-')
{
// this statements only used in "input" function
// but in parse this statements are useless
// because lexer recognizes a number that begins with a '0'~'9' char
std::string temp="";
for(int i=1;i<_str.length();++i)
temp+=_str[i];
_str=temp;
is_negative=true;
}
if((int)_str.length()>2 && (_str[1]=='x' || _str[1]=='o'))
{
double num=0;
double pw=1;
if(_str[1]=='x') // hex
for(int i=(int)_str.length()-1;i>1;--i)
{
if('0'<=_str[i] && _str[i]<='9')
num+=(_str[i]-'0')*pw;
else if('a'<=_str[i] && _str[i]<='f')
num+=(10+_str[i]-'a')*pw;
else if('A'<=_str[i] && _str[i]<='F')
num+=(10+_str[i]-'A')*pw;
pw*=16;
}
else // oct
for(int i=(int)_str.length()-1;i>1;--i)
{
num+=(_str[i]-'0')*pw;
pw*=8;
}
number=num;
if(is_negative)
number*=-1;
return;
}
int dot_place=-1;
for(int i=0;i<(int)_str.length();++i)
if(_str[i]=='.')
{
dot_place=i;
break;
}
if(dot_place==-1)
{
// integer
number=0;
double pw=1;
for(int i=(int)_str.length()-1;i>=0;--i)
{
number+=(_str[i]-'0')*pw;
pw*=10;
}
if(is_negative)
number*=-1;
}
else
{
// float
number=0;
double pw=0.1;
for(int i=dot_place+1;i<(int)_str.length();++i)
{
number+=(_str[i]-'0')*pw;
pw/=10;
}
pw=1;
for(int i=dot_place-1;i>=0;--i)
{
number+=(_str[i]-'0')*pw;
pw*=10;
}
if(is_negative)
number*=-1;
}
number=trans_string_to_number(__str);
return;
}

1
version2.0/nasal.h
View File

@ -10,6 +10,7 @@
#include <list>
#include <stack>
#include "numeral_misc.h"
#include "nasal_enum.h"
#include "abstract_syntax_tree.h"
#include "nasal_lexer.h"

65
version2.0/nasal_lexer.h
View File

@ -22,7 +22,7 @@
example:
2147483647 (integer)
2.71828 (float)
0xdeadbeef (hex)
0xdeadbeef (hex) or 0xDEADBEEF (hex)
0o170001 (oct)
__token_operator:
! + - * / ~
@ -47,65 +47,6 @@ int is_reserve_word(std::string str)
return __token_identifier;
}
bool check_number(std::string str)
{
if(str.length()>1 && str[0]=='-')
{
// this statements only used in "input" function
// but in lexer this statements are useless
// because lexer judge a number that begins with 0~9 (or 0x for hex & 0o for oct)
std::string temp="";
for(int i=1;i<str.length();++i)
temp+=str[i];
str=temp;
}
if(str.length()==1)
return true;
else if(str.length()==2 && '0'<str[0] && str[0]<='9' && '0'<=str[1] && str[1]<='9')
return true;
else if(str.length()>=3 && str[0]=='0' && str[1]=='x')
{
for(int i=2;i<str.length();++i)
{
if('0'<=str[i] && str[i]<='9' || 'a'<=str[i] && str[i]<='f' || 'A'<=str[i] && str[i]<='F')
;
else
return false;
}
return true;
}
else if(str.length()>=3 && str[0]=='0' && str[1]=='o')
{
for(int i=2;i<str.length();++i)
{
if('0'<=str[i] && str[i]<='7')
;
else
return false;
}
return true;
}
else
{
int dotcnt=0;
for(int i=0;i<str.length();++i)
{
if(str[i]=='.')
++dotcnt;
else if(!('0'<=str[i] && str[i]<='9'))
return false;
}
if(dotcnt>1)
return false;
if(str[0]=='.')
return false;
if(!dotcnt && str[0]=='0')
return false;
return true;
}
return false;
}
class resource_file
{
private:
@ -322,10 +263,10 @@ class nasal_lexer
if(ptr==res.end())
break;
}
if(!check_number(token_str))
if(!check_numerable_string(token_str))
{
++error;
std::cout<<">>[Lexer-error] line "<<line<<": error number "<<token_str<<"."<<std::endl;
std::cout<<">>[Lexer-error] line "<<line<<": "<<token_str<<" is not a numerable string."<<std::endl;
token_str="0";
}
token new_token;

150
version2.0/numeral_misc.h Normal file
View File

@ -0,0 +1,150 @@
#ifndef __NUMERAL_MISC_H__
#define __NUMERAL_MISC_H__
bool check_numerable_string(std::string str)
{
if(str.length()>1 && str[0]=='-')
{
// in lexer this statements are useless
// because lexer judge a number that begins with 0~9 (or 0x for hex & 0o for oct)
std::string temp="";
int str_len=str.length();
for(int i=1;i<str_len;++i)
temp+=str[i];
str=temp;
}
if(str.length()==1 && '0'<=str[0] && str[0]<='9')
return true;
else if(str.length()>2 && str[0]=='0' && str[1]=='x')
{
int str_len=str.length();
for(int i=2;i<str_len;++i)
if(!('0'<=str[i] && str[i]<='9' || 'a'<=str[i] && str[i]<='f' || 'A'<=str[i] && str[i]<='F'))
return false;
return true;
}
else if(str.length()>2 && str[0]=='0' && str[1]=='o')
{
int str_len=str.length();
for(int i=2;i<str_len;++i)
if(!('0'<=str[i] && str[i]<='7'))
return false;
return true;
}
else
{
int str_len=str.length();
int float_dot_cnt=0;
for(int i=0;i<str_len;++i)
{
if(str[i]=='.')
++float_dot_cnt;
else if(!('0'<=str[i] && str[i]<='9'))
return false;
}
if((float_dot_cnt>1) || (str[0]=='.') || (!float_dot_cnt && str[0]=='0'))
return false;
return true;
}
return false;
}
double trans_string_to_number(std::string str)
{
bool is_negative=false;
if(str.length()>1 && str[0]=='-')
{
// in parse this statements are useless
// because lexer recognizes a number that begins with a '0'~'9' char
std::string temp="";
int str_len=str.length();
for(int i=1;i<str_len;++i)
temp+=str[i];
str=temp;
is_negative=true;
}
double trans_str_number=0;
if(str.length()==1)
trans_str_number=(double)(str[0]-'0');
else if(str[0]=='0' && str[1]=='x')
{
long long int hex_number=0,bit_pow=1;
for(int i=str.length()-1;i>1;--i)
{
if('0'<=str[i] && str[i]<='9')
hex_number+=bit_pow*(str[i]-'0');
else if('a'<=str[i] && str[i]<='f')
hex_number+=bit_pow*(10+str[i]-'a');
else
hex_number+=bit_pow*(10+str[i]-'A');
bit_pow<<=4;
}
trans_str_number=(double)hex_number;
}
else if(str[0]=='0' && str[1]=='o')
{
long long int oct_number=0,bit_pow=1;
for(int i=str.length()-1;i>1;--i)
{
oct_number+=bit_pow*(str[i]-'0');
bit_pow<<=3;
}
trans_str_number=(double)oct_number;
}
else
{
int float_dot_place=str.length();
int str_len=str.length();
double pow;
for(int i=0;i<str_len;++i)
if(str[i]=='.')
{
float_dot_place=i;
break;
}
pow=0.1;
for(int i=float_dot_place+1;i<str_len;++i)
{
trans_str_number+=pow*(double(str[i]-'0'));
pow/=10;
}
pow=1;
for(int i=float_dot_place-1;i>=0;--i)
{
trans_str_number+=pow*(double(str[i]-'0'));
pow*=10;
}
}
if(is_negative)
trans_str_number*=-1;
return trans_str_number;
}
std::string trans_number_to_string(double number)
{
std::string trans_num_string="";
if(number<0)
{
trans_num_string+='-';
number*=-1;
}
double integer_bit=1;
while(number>=integer_bit)
integer_bit*=10;
integer_bit/=10;
while(integer_bit!=0.1)
{
trans_num_string+=(char)('0'+(int(number/integer_bit)));
number-=(double)(int(number/integer_bit))*integer_bit;
integer_bit/=10;
}
if(number!=0)
trans_num_string+='.';
while(number!=0)
{
trans_num_string+=(char)('0'+int(number*10));
number*=10;
number-=(double)(int(number));
}
return trans_num_string;
}
#endif