swym.js

if( window.SWYM === undefined )
{
	SWYM = {};
	SWYM.loaded = {};
}

SWYM.LogError = function(errorContext, message)
{
	var textpos;
	if( typeof errorContext === "number" )
	{
		textpos = errorContext;
	}
	else if( errorContext !== undefined && errorContext !== null )
	{
		textpos = errorContext.pos;
		if( textpos === undefined && errorContext.op !== undefined )
		{
			textpos = errorContext.op.pos;
		}
	}
	
	var errorText = "Line "+SWYM.LineForTextPos(SWYM.source, textpos)+":"+SWYM.PosInLineForTextPos(SWYM.source, textpos) +" - "+ SWYM.LineTextForTextPos(SWYM.source, textpos) + "\n  "+message+"\n";
	
	if( SWYM.errors !== undefined )
	{
		SWYM.errors += errorText;
	}
	else
	{
		SWYM.DisplayError(errorText);
	}
	SWYM.halt = true;
}

SWYM.errors = "";
SWYM.safeMode = 0;

// Thanks, Douglas.
function object(o)
{
  function Construct() {}
  Construct.prototype = o;
  return new Construct();
}

SWYM.CountLines = function(str)
{
  var result = 1;
  for ( var i = 0; str[i] !== undefined; i++ )
  {
    if (str[i] === '\n' && str[i+1] !== undefined)
      result++;
  }
  return result;
}

SWYM.TextPosForLine = function(text, linenum)
{
  var curlinenum = 1;
  var linestart = 0;
  for( var i = 0; i < text.length; i++ )
  {
    if ( curlinenum >= linenum )
      return i;
    if ( text[i] === '\n' )
      curlinenum++;
  }
  return i;
}

SWYM.LineForTextPos = function(text, textpos)
{
  if( textpos === undefined || textpos === -1 )
	return '?';

  var result = 1;
  for ( var i = 0; i < textpos; i++ )
  {
    if (text[i] === '\n')
      result++;
  }
  return result;
}

SWYM.LineTextForTextPos = function(text, textpos)
{
  if( textpos === undefined || textpos === -1 )
	return "";

  var startPos = 0;
  for ( var i = 0; i < textpos; ++i )
  {
    if (text[i] === '\n')
	{
      startPos = i+1;
	}
  }
  
  for( var endPos = textpos; endPos < text.length; ++endPos )
  {
    if(text[endPos] === "\n")
	{
	  break;
	}
  }
  
  return text.substring(startPos, endPos);
}

SWYM.PosInLineForTextPos = function(text, textpos)
{
  if( textpos === undefined || textpos === -1 )
	return '?';

  var result = 1;
  for ( var i = 1; i <= textpos; i++ )
  {
    if (text[textpos-i] === '\n')
      return i;
  }
  return i;
}

SWYM.ReportErrors = function(ErrorType, OutputSoFar)
{
  if ( SWYM.errors !== "" )
  {
    var numErrors = SWYM.CountLines(SWYM.errors)/2;
    return "-- "+ErrorType+(numErrors>1? ("s ("+numErrors+")"): "")+" --\n" + SWYM.errors + (OutputSoFar?("\n\nOutput so far:\n"+OutputSoFar):"");
  }
}

SWYM.EvalLibrary = function(source, debugName)
{
	SWYM.halt = false;

	var tokenlist = SWYM.Tokenize(source);
	var parsetree = SWYM.Parse(tokenlist);

	var executable = [];
	var resultType = SWYM.CompileNode(parsetree, SWYM.DefaultGlobalCScope, executable);

	var result = SWYM.ReportErrors(debugName+" Error");
	if ( result )
	{
		alert(debugName+" compile error!");
		return SWYM.DisplayError(result);
	}
	
	SWYM.ExecWithScope(debugName, executable, SWYM.DefaultGlobalRScope, []);
	
	result = SWYM.ReportErrors(debugName+" Exec Error");
	if ( result )
	{
		alert(debugName+" exec error!");
		return SWYM.DisplayError(result);
	}
}

SWYM.EvalStdlyb = function()
{
	SWYM.initStdlyb();
	
	SWYM.DefaultGlobalRScope = {};
	for( var name in SWYM.DefaultGlobalCScope )
	{
		if(name.startsWith("fn#"))
		{
			var fn = SWYM.DefaultGlobalCScope[name];
			for(var Idx = 0; Idx < fn.length; ++Idx)
			{
				SWYM.PrecomputeFunctionProperties(fn[Idx]);
			}
		}

		if( SWYM.DefaultGlobalCScope[name].baked !== undefined )
			SWYM.DefaultGlobalRScope[name] = SWYM.DefaultGlobalCScope[name].baked;
	}

	SWYM.errors = "";
	SWYM.safeMode = 0;
	
	SWYM.EvalLibrary(SWYM.stdlyb, "Stdlyb");
}

// html pages may override this to display richer information about the value
SWYM.DisplayValue = function(v)
{
    SWYM.DisplayOutput(SWYM.ToDebugString(v));
};

SWYM.Eval = function(readsource, keepScope)
{
	var result = "<no output>";
	SWYM.DisplayOutput = function(a){ result = a; SWYM.DisplayOutput = function(b){ result += b; }; };
	SWYM.DisplayError = function(e){ result = e; SWYM.DisplayOutput = function(){}; };
	SWYM.FullEval(readsource, keepScope);
	
	return result;
}

SWYM.FullEval = function(readsource, keepScope)
{
	SWYM.errors = "";
	SWYM.halt = false;
	SWYM.doFinalOutput = true;

	if( SWYM.DefaultGlobalRScope === undefined )
	{
		SWYM.EvalStdlyb();
		result = SWYM.ReportErrors("Stdlyb Error");
		if ( result )
		{
			SWYM.DefaultGlobalRScope = undefined;
			return SWYM.DisplayError(result);
		}
	}
	
	var tokenlist = SWYM.Tokenize(readsource);
	var result;
	
	result = SWYM.ReportErrors("Reading Error");
	if ( result ) return SWYM.DisplayError(result);
	
	//temp
//	return tokenlist;
//	alert("tokens: "+tokenlist);
	
	var parsetree = SWYM.Parse(tokenlist);

	result = SWYM.ReportErrors("Parsing Error");
	if ( result ) return SWYM.DisplayError(result);
	
//	return parsetree;
//	alert("parsed: "+parsetree);

	var executable = SWYM.Compile(parsetree, keepScope);
	
	result = SWYM.ReportErrors("Compiling Error");
	if ( result ) return SWYM.DisplayError(result);

	//return executable;

	SWYM.Exec(executable, keepScope);

	result = SWYM.ReportErrors("Runtime Error");
	if ( result ) return SWYM.DisplayError(result);
	
/*	var parsetree = Compile(tokenlist);
	
	result = ReportErrors("Compiling Error");
	if ( result ) return result;
	
	var bakedlist = {};
	parsetree.bakeToList(bakedlist);
//	var bakedtree = parsetree.bake();
	
	result = ReportErrors("Baking Error");
	if ( result ) return result;
	
	PrintedOutput = "";
	var output = RunSequence(globalscope, bakedlist.next);
	
	//var output = bakedtree.eval();
	if ( PrintedOutput !== "" )
	{
		output = PrintedOutput;// + "\n\n -- result: " + output;
	}
	else
	{
		output = "<no output>";
	}
	
	result = ReportErrors("Runtime Error", output);
	if ( result ) return result;
	*/
//	return output;

	SWYM.errors = undefined; // report future errors directly
}

SWYM.onLoad("swym.js");