flynx/Slang
1
0
Fork 0
mirror of https://github.com/flynx/Slang.git synced 2025-10-29 10:40:07 +00:00
Code Issues Packages Projects Releases Wiki Activity

updated docs...

Browse Source 
Signed-off-by: Alex A. Naanou <alex.nanou@gmail.com>
This commit is contained in:
Alex A. Naanou 2014-02-10 18:10:40 +04:00
parent 090686bb2e
commit b08aad3002
1 changed files with 17 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
Slang/slang.js
View File

@ -106,20 +106,30 @@ var PRE_NAMESPACE = {
// XXX use the real reader... // XXX use the real reader...
// block... // block...
// syntax: [ ... ] // syntax: [ ... ]
// NOTE: the shorthand ']]' will close ALL the open blocks.
// XXX should ']]' be smart enough to look ahead and close only the
// blocks not explicitly closed later???
// ..see below for more...
'[': function(context){ '[': function(context){
var block = [] var block = []
var code = context.code var code = context.code
var cur = code.splice(0, 1)[0] var cur = code.splice(0, 1)[0]
while(cur != ']' && cur != ']]' && code.length > 0){ while(cur != ']' && cur != ']]' && code.length > 0){
//while(cur != ']' && code.length > 0){
if(cur == '['){ if(cur == '['){
cur = this['['](context) cur = this['['](context)
} }
block.push(cur) block.push(cur)
cur = code.splice(0, 1)[0] cur = code.splice(0, 1)[0]
} }
// we need this to be able to jump out of all the nested blocks... // we need this to be able to jump out of all the nested blocks,
// thus we'll keep the ']]' in code and remove it explicitly
// later...
if(cur == ']]'){ if(cur == ']]'){
// XXX should we look ahead and count the explicitly closed
// via ']' and ']]' blocks???
// ...at this point this seems a bit complex...
// ...of there are more than one ']]' in a structure
// this might stop being deterministic...
code.splice(0, 0, cur) code.splice(0, 0, cur)
} }
if(code.length == 0 && cur != ']' && cur != ']]'){ if(code.length == 0 && cur != ']' && cur != ']]'){
@ -725,6 +735,10 @@ var BOOTSTRAP = [
' else', ' else',
' [ inc before ]]', ' [ inc before ]]',
'', '',
'-- NOTE: the "]]" in the last definition, it\'s a shorthand, it closes',
'-- ALL the open blocks to this point.',
'-- ...thus it can be used ONLY as the very last word in a set.',
'',
'-- push element to tail of block...', '-- push element to tail of block...',
':: push ( b e -- b ) [ swap len rot swap tor to ]', ':: push ( b e -- b ) [ swap len rot swap tor to ]',
'', '',
@ -908,4 +922,4 @@ function rslang(code, context){
/********************************************************************** /**********************************************************************
* vim:set ts=4 sw=4 : */ * vim:set ts=4 sw=4 spell : */