diff options
Diffstat (limited to 'treetree.js')
| -rwxr-xr-x | treetree.js | 27 |
1 files changed, 24 insertions, 3 deletions
diff --git a/treetree.js b/treetree.js index f32bfdd..c71b12c 100755 --- a/treetree.js +++ b/treetree.js @@ -242,11 +242,12 @@ function runCmds(cmds,TR){ newroot=[TR[0],TR,objcpy(TR[2])]; TR=newroot; break; - case "GRB": //TODO CHECK WHETHER THIS SHIT WORKS + case "GRB": var inserted_tree,end_tree,rest_tree,i,n; if(TR==false)throw new TTerror("Cannot GRB from a non-existant root node!"); + if(TR[2]!=false)throw new TTerror("Cannot operate multiple times (in GRB), but the root node ('"+TR[0]+"') has secondary children!"); n=TR[0]; - if(typeof n!="number")throw new TTerror("Integer expected (in GRB), got '"+n.toString()+"'!") + if(typeof n!="number")throw new TTerror("Integer expected (in GRB), got '"+n.toString()+"'!"); TR=TR[1]; if(n==0)break; inserted_tree=objcpy(TR[1]); @@ -259,7 +260,27 @@ function runCmds(cmds,TR){ TR[2]=inserted_tree; TR[1]=rest_tree; break; - case "REL":break; + case "REL": + var i,n,inserted_tree,last_inserted,after_inserted,rest_main_tree; + if(TR==false)throw new TTerror("Cannot REL from a non-existant root node!"); + if(TR[2]!=false)throw new TTerror("Cannot operate multiple times (in REL), but the root node ('"+TR[0]+"') has secondary children!"); + n=TR[0]; + if(typeof n!="number")throw new TTerror("Integer expected (in REL), got '"+n.toString()+"'!"); + if(n==0)break; + TR=TR[1]; + rest_main_tree=TR[1]; + inserted_tree=TR[2]; + if(inserted_tree==false)throw new TTerror("Not enough secondary children to REL!"); + last_inserted=inserted_tree; + for(i=0;i<n-1;i++){ + if(last_inserted==false)throw new TTerror("Not enough secondary children to REL!"); + last_inserted=last_inserted[1]; + } + after_inserted=objcpy(last_inserted[1]); + last_inserted[1]=rest_main_tree; + TR[1]=inserted_tree; + TR[2]=after_inserted; + break; case "INT":break; case "FLT":break; case "STR":break; |