Orelang(俺言語)をVim scriptで実装してみた

function!s:eval(e,v)if type(a:v)== type([])returns:doRun(a:e,a:v)endifreturna:vendfunctionfunction!s:doRun(e,v)letr=0letm=a:v[0]
  ifm=="step"for vv ina:v[1:]
      letr=s:doRun(a:e, vv)endforelseifm=="until"while!s:eval(a:e,a:v[1])letr=s:doRun(a:e,a:v[2])endwhileelseifm=="while"whiles:eval(a:e,a:v[1])letr=s:doRun(a:e,a:v[2])endwhileelseifm=="set"letr=s:eval(a:e,a:v[2])leta:e[s:eval(a:e,a:v[1])] =relseifm=="get"letr=a:e[s:eval(a:e,a:v[1])]
  elseifm=="<="letr=s:eval(a:e,a:v[1])<=s:eval(a:e,a:v[2])elseifm=="="letr=s:eval(a:e,a:v[1])==s:eval(a:e,a:v[2])elseifm=="+"letr=s:eval(a:e,a:v[1])+s:eval(a:e,a:v[2])elseifm=="print"letr=s:eval(a:e,a:v[1])
    echo relsethrow"unknown operator: "+ string(a:v)endifreturnrendfunctionlets:source = '
\["step",
\  ["set","sum",0 ],
\  ["set","i",1 ],
\  ["while", ["<=", ["get","i"],10],
\    ["step",
\      ["set","sum", ["+", ["get","sum"], ["get","i"]]],
\      ["set","i", ["+", ["get","i"],1]]]],
\  ["print", ["get","sum"]]]
\'

letv= json_decode(s:source)calls:doRun({},v)