129 lines
2.4 KiB
C++
129 lines
2.4 KiB
C++
#ifndef __NASAL_H__
|
|
#define __NASAL_H__
|
|
|
|
#pragma GCC optimize(2)
|
|
|
|
#include <stdint.h>
|
|
#include <unistd.h>
|
|
#include <stdlib.h>
|
|
#include <stdio.h>
|
|
#include <iostream>
|
|
#include <fstream>
|
|
#include <sstream>
|
|
#include <algorithm>
|
|
#include <cstring>
|
|
#include <cstdlib>
|
|
#include <ctime>
|
|
#include <cmath>
|
|
#include <thread>
|
|
#include <list>
|
|
#include <stack>
|
|
#include <queue>
|
|
#include <vector>
|
|
#include <unordered_map>
|
|
|
|
/*
|
|
check if a string can be converted to a number
|
|
if this string cannot be converted to a number,it will return nan
|
|
*/
|
|
inline double hex_to_double(const char* str)
|
|
{
|
|
double ret=0;
|
|
for(;*str;++str)
|
|
{
|
|
ret*=16;
|
|
if('0'<=*str && *str<='9')
|
|
ret+=(*str-'0');
|
|
else if('a'<=*str && *str<='f')
|
|
ret+=(*str-'a'+10);
|
|
else if('A'<=*str && *str<='F')
|
|
ret+=(*str-'A'+10);
|
|
else
|
|
return nan("");
|
|
}
|
|
return ret;
|
|
}
|
|
inline double oct_to_double(const char* str)
|
|
{
|
|
double ret=0;
|
|
for(;*str;++str)
|
|
{
|
|
ret*=8;
|
|
if('0'<=*str && *str<='8')
|
|
ret+=(*str-'0');
|
|
else
|
|
return nan("");
|
|
}
|
|
return ret;
|
|
}
|
|
inline double dec_to_double(const char* str)
|
|
{
|
|
double ret=0,negative=1,num_pow=0;
|
|
while('0'<=*str && *str<='9')
|
|
ret=ret*10+(*str++-'0');
|
|
if(!*str) return ret;
|
|
if(*str=='.')
|
|
{
|
|
if(!*++str) return nan("");
|
|
num_pow=0.1;
|
|
while('0'<=*str && *str<='9')
|
|
{
|
|
ret+=num_pow*(*str++-'0');
|
|
num_pow*=0.1;
|
|
}
|
|
if(!*str) return ret;
|
|
}
|
|
if(*str!='e' && *str!='E')
|
|
return nan("");
|
|
if(!*++str) return nan("");
|
|
if(*str=='-' || *str=='+')
|
|
negative=(*str++=='-'? -1:1);
|
|
if(!*str) return nan("");
|
|
num_pow=0;
|
|
for(;*str;++str)
|
|
{
|
|
if('0'<=*str && *str<='9')
|
|
num_pow=num_pow*10+(*str-'0');
|
|
else
|
|
return nan("");
|
|
}
|
|
return ret*std::pow(10,negative*num_pow);
|
|
}
|
|
double str2num(const char* str)
|
|
{
|
|
bool is_negative=false;
|
|
double ret_num=0;
|
|
if(*str=='-' || *str=='+')
|
|
is_negative=(*str++=='-');
|
|
if(!*str)
|
|
return nan("");
|
|
if(str[0]=='0' && str[1]=='x')
|
|
ret_num=hex_to_double(str+2);
|
|
else if(str[0]=='0' && str[1]=='o')
|
|
ret_num=oct_to_double(str+2);
|
|
else
|
|
ret_num=dec_to_double(str);
|
|
return is_negative?-ret_num:ret_num;
|
|
}
|
|
|
|
/*
|
|
trans_number_to_string:
|
|
convert number to string
|
|
*/
|
|
std::string num2str(double number)
|
|
{
|
|
std::ostringstream ss;
|
|
ss<<number;
|
|
return ss.str();
|
|
}
|
|
#include "nasal_lexer.h"
|
|
#include "nasal_ast.h"
|
|
#include "nasal_parse.h"
|
|
#include "nasal_import.h"
|
|
#include "nasal_gc.h"
|
|
#include "nasal_builtin.h"
|
|
#include "nasal_codegen.h"
|
|
#include "nasal_vm.h"
|
|
|
|
#endif
|