Mercurial > repos > tabletprog
diff scripttags.js @ 9:37d7f60a8ea1
Allow use of tabletproglang programs in script tags
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Wed, 21 Mar 2012 21:15:32 -0700 |
parents | |
children | 4d87c38404d6 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/scripttags.js Wed Mar 21 21:15:32 2012 -0700 @@ -0,0 +1,21 @@ + +function compileAndRun(src) +{ + var ast = parser.parse(src); + var js = ast.toJSModule(); + mainModule = eval(js)(); + mainModule.main(); +} + +onReady(function() { + var tags = qall('script[type="text/tabletprog"]'); + for (var i = 0; i < tags.length; ++i) { + if (tags[i].src) { + get(tags[i].src, function(req) { + compileAndRun(req.responseText); + }); + } else { + compileAndRun(tags[i].innerHTML); + } + } +});