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 fully functional test/json.nas

This commit is contained in:
ValKmjolnir 2022-03-11 15:11:24 +08:00
parent f26719e1d3
commit 3d86a32b12
1 changed files with 307 additions and 179 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

400
test/json.nas
View File

@ -1,196 +1,324 @@
#lib json.nas #lib json.nas
import("lib.nas"); import("lib.nas");
var json={
text:'',
line:1,
size:0,
ptr:0,
get:nil,
check:nil,
next:nil,
match:nil,
hash_gen:nil,
vec_gen:nil,
member:nil,
parse:nil,
token:{content:'',type:''},
content:[],
};
json.get=func(filename) var JSON=func(){
var (
j_eof,
j_lbrace,
j_rbrace,
j_lbracket,
j_rbracket,
j_comma,
j_colon,
j_str,
j_num,
j_id
)=(
0,
1,
2,
3,
4,
5,
6,
7,
8,
9
);
var j_content=[
"eof",
"`{`",
"`}`",
"`[`",
"`]`",
"`,`",
"`:`",
"string",
"number",
"identifier"
];
var text='';
var line=1;
var text_size=0;
var ptr=0;
var token={content:'',type:''};
var content={};
var init=func(){
line=1;
text_size=0;
ptr=0;
content={};
token={content:'',type:''};
text='';
}
var isnum=func(c){
return '0'<=c and c<='9';
}
var isid=func(c){
var tmp=c[0];
return ('a'[0]<=tmp and tmp<='z'[0]) or
('A'[0]<=tmp and tmp<='Z'[0]) or
c=='_';
}
var check=func()
{ {
me.line=1; var c=text[ptr];
me.ptr=0; return (
me.content=[]; c=='{' or c=='}' or
me.token={content:'',type:''}; c=='[' or c==']' or
me.text=io.fin(filename); c==',' or c==':' or
if(!size(me.text)) c=='\"' or c=='\'' or
die("cannot open "~filename); isnum(c) or isid(c)
me.text=split('',me.text); );
me.size=size(me.text); }
var get=func(str)
{
init();
if(!size(str))
die("empty string");
text=split('',str);
text_size=size(text);
return;
}
var next=func()
{
while(ptr<text_size and !check())
{
if(text[ptr]=='\n')
line+=1;
ptr+=1;
}
if(ptr>=text_size)
{
token.content="eof";
token.type=j_eof;
return; return;
} }
json.check=func(ptr) var c=text[ptr];
if(c=='{')
{ {
var str=me.text[ptr]; token.content='{';
return (str=='{' or str=='}' or str=='[' or str==']' or str==',' or str==':' or str=='\"' or ('0'<=str and str<='9')); token.type=j_lbrace;
} }
elsif(c=='}')
json.next=func()
{ {
while(me.ptr<me.size and !json.check(me.ptr)) token.content='}';
{ token.type=j_rbrace;
if(me.text[me.ptr]=='\n')
me.line+=1;
me.ptr+=1;
} }
if(me.ptr>=me.size) elsif(c=='[')
{ {
me.token.content=""; token.content='[';
me.token.type="eof"; token.type=j_lbracket;
return;
} }
elsif(c==']')
if(me.text[me.ptr]=='{')
{ {
me.token.content='{'; token.content=']';
me.token.type="left brace"; token.type=j_rbracket;
} }
elsif(me.text[me.ptr]=='}') elsif(c==',')
{ {
me.token.content='}'; token.content=',';
me.token.type="right brace"; token.type=j_comma;
} }
elsif(me.text[me.ptr]=='[') elsif(c==':')
{ {
me.token.content='['; token.content=':';
me.token.type="left bracket"; token.type=j_colon;
} }
elsif(me.text[me.ptr]==']') elsif(c=='\"' or c=='\'')
{
me.token.content=']';
me.token.type="right bracket";
}
elsif(me.text[me.ptr]==',')
{
me.token.content=',';
me.token.type="comma";
}
elsif(me.text[me.ptr]==':')
{
me.token.content=':';
me.token.type="colon";
}
elsif(me.text[me.ptr]=='\"')
{ {
var strbegin=c;
var s=""; var s="";
me.ptr+=1; ptr+=1;
while(me.ptr<me.size and me.text[me.ptr]!='\"') while(ptr<text_size and text[ptr]!=strbegin)
{ {
s~=me.text[me.ptr]; s~=text[ptr];
me.ptr+=1; ptr+=1;
} }
me.token.content=s; token.content=s;
me.token.type="string"; token.type=j_str;
} }
elsif('0'<=me.text[me.ptr] and me.text[me.ptr]<='9') elsif(isnum(c))
{ {
var s=me.text[me.ptr]; var s=c;
me.ptr+=1; ptr+=1;
while(me.ptr<me.size and (('0'<=me.text[me.ptr] and me.text[me.ptr]<='9') or me.text[me.ptr]=='.')) while(ptr<text_size and ((isnum(text[ptr]) or text[ptr]=='.')))
{ {
s~=me.text[me.ptr]; s~=text[ptr];
me.ptr+=1; ptr+=1;
} }
me.ptr-=1; ptr-=1;
me.token.content=num(s); token.content=num(s);
me.token.type="number"; token.type=j_num;
} }
me.ptr+=1; elsif(isid(c))
{
var s=c;
ptr+=1;
while(ptr<text_size and (isid(text[ptr]) or isnum(text[ptr])))
{
s~=text[ptr];
ptr+=1;
}
ptr-=1;
token.content=s;
token.type=j_id;
}
ptr+=1;
return; return;
} }
json.match=func(type) var match=func(type)
{ {
if(me.token.type!=type) if(token.type!=type)
print("line ",me.line,": expect ",type," but get ",me.token.content,"."); print("line ",line,": expect ",j_content[type]," but get `",token.content,"`.\n");
me.next(); next();
return; return;
} }
json.hash_gen=func() var hash_gen=func()
{ {
var hash={}; var hash={};
me.match("left brace"); match(j_lbrace);
me.member(hash); member(hash);
while(me.token.type=="comma") while(token.type==j_comma)
{ {
me.match("comma"); match(j_comma);
me.member(hash); member(hash);
} }
me.match("right brace"); match(j_rbrace);
return hash; return hash;
} }
json.vec_gen=func() var vec_gen=func()
{ {
var vec=[]; var vec=[];
me.match("left bracket"); match(j_lbracket);
if(me.token.type=="left brace") if(token.type==j_lbrace)
append(vec,hash_gen());
elsif(token.type==j_lbracket)
append(vec,vec_gen());
elsif(token.type==j_str or token.type==j_num)
{
append(vec,token.content);
next();
}
while(token.type==j_comma)
{
match(j_comma);
if(token.type==j_lbrace)
append(vec,me.hash_gen()); append(vec,me.hash_gen());
elsif(me.token.type=="left bracket") elsif(token.type==j_lbracket)
append(vec,me.vec_gen()); append(vec,vec_gen());
elsif(me.token.type=="string" or me.token.type=="number") elsif(token.type==j_str or token.type==j_num)
{ {
append(vec,me.token.content); append(vec,token.content);
me.next(); next();
}
while(me.token.type=="comma")
{
me.match("comma");
if(me.token.type=="left brace")
append(vec,me.hash_gen());
elsif(me.token.type=="left bracket")
append(vec,me.vec_gen());
elsif(me.token.type=="string" or me.token.type=="number")
{
append(vec,me.token.content);
me.next();
} }
} }
me.match("right bracket"); match(j_rbracket);
return vec; return vec;
} }
json.member=func(hash) var member=func(hash)
{ {
var name=me.token.content; var name=token.content;
me.match("string"); match(j_id);
me.match("colon"); match(j_colon);
if(me.token.type=="left brace") if(token.type==j_lbrace)
hash[name]=me.hash_gen(); hash[name]=hash_gen();
elsif(me.token.type=="left bracket") elsif(token.type==j_lbracket)
hash[name]=me.vec_gen(); hash[name]=vec_gen();
elsif(me.token.type=="string" or me.token.type=="number") elsif(token.type==j_str or token.type==j_num)
{ {
hash[name]=me.token.content; hash[name]=token.content;
me.next(); next();
} }
return; return;
} }
return {
parse:func(str)
{
get(str);
next();
json.parse=func() match(j_lbrace);
member(content);
while(token.type==j_comma)
{ {
me.content={}; match(j_comma);
me.next(); member(content);
me.match("left brace");
me.member(me.content);
while(me.token.type=="comma")
{
me.match("comma");
me.member(me.content);
} }
me.match("right brace"); match(j_rbrace);
return;
var res=content;
init();
return res;
},
stringify:func(hash){
var s="";
var gen=func(elem){
var t=typeof(elem);
if(t=="num")
s~=elem;
elsif(t=="str")
s~='"'~elem~'"';
elsif(t=="vec")
vgen(elem);
elsif(t=="hash")
hgen(elem);
else
s~='"undefined"';
} }
var vgen=func(v){
s~="[";
var vsize=size(v);
for(var i=0;i<vsize;i+=1){
gen(v[i]);
if(i!=vsize-1)
s~=",";
}
s~="]";
}
var hgen=func(h){
s~="{";
var k=keys(h);
var vsize=size(k);
for(var i=0;i<vsize;i+=1){
s~=k[i]~":";
gen(h[k[i]]);
if(i!=vsize-1)
s~=",";
}
s~="}";
}
hgen(hash);
return s;
}
};
}();
var ss=JSON.stringify({
vec:[
0,
1,
2
],
hash:{
m1:0,
m2:"str",
m3:[114514],
m4:{
year:1919,
month:8,
date:10
}
}
});
println(ss);
println(JSON.parse(ss));