1 files changed, 129 insertions, 129 deletions

diff --git a/squirrel_3_0_1_stable/sqstdlib/sqstdaux.cpp b/squirrel_3_0_1_stable/sqstdlib/sqstdaux.cpp
index e115770a8..804a1e4d1 100644
--- a/squirrel_3_0_1_stable/sqstdlib/sqstdaux.cpp
+++ b/squirrel_3_0_1_stable/sqstdlib/sqstdaux.cpp
@@ -1,129 +1,129 @@
-/* see copyright notice in squirrel.h */

-#include <squirrel.h>

-#include <sqstdaux.h>

-#include <assert.h>

-

-void sqstd_printcallstack(HSQUIRRELVM v)

-{

-	SQPRINTFUNCTION pf = sq_geterrorfunc(v);

-	if(pf) {

-		SQStackInfos si;

-		SQInteger i;

-		SQFloat f;

-		const SQChar *s;

-		SQInteger level=1; //1 is to skip this function that is level 0

-		const SQChar *name=0; 

-		SQInteger seq=0;

-		pf(v,_SC("\nCALLSTACK\n"));

-		while(SQ_SUCCEEDED(sq_stackinfos(v,level,&si)))

-		{

-			const SQChar *fn=_SC("unknown");

-			const SQChar *src=_SC("unknown");

-			if(si.funcname)fn=si.funcname;

-			if(si.source)src=si.source;

-			pf(v,_SC("*FUNCTION [%s()] %s line [%d]\n"),fn,src,si.line);

-			level++;

-		}

-		level=0;

-		pf(v,_SC("\nLOCALS\n"));

-

-		for(level=0;level<10;level++){

-			seq=0;

-			while((name = sq_getlocal(v,level,seq)))

-			{

-				seq++;

-				switch(sq_gettype(v,-1))

-				{

-				case OT_NULL:

-					pf(v,_SC("[%s] NULL\n"),name);

-					break;

-				case OT_INTEGER:

-					sq_getinteger(v,-1,&i);

-					pf(v,_SC("[%s] %d\n"),name,i);

-					break;

-				case OT_FLOAT:

-					sq_getfloat(v,-1,&f);

-					pf(v,_SC("[%s] %.14g\n"),name,f);

-					break;

-				case OT_USERPOINTER:

-					pf(v,_SC("[%s] USERPOINTER\n"),name);

-					break;

-				case OT_STRING:

-					sq_getstring(v,-1,&s);

-					pf(v,_SC("[%s] \"%s\"\n"),name,s);

-					break;

-				case OT_TABLE:

-					pf(v,_SC("[%s] TABLE\n"),name);

-					break;

-				case OT_ARRAY:

-					pf(v,_SC("[%s] ARRAY\n"),name);

-					break;

-				case OT_CLOSURE:

-					pf(v,_SC("[%s] CLOSURE\n"),name);

-					break;

-				case OT_NATIVECLOSURE:

-					pf(v,_SC("[%s] NATIVECLOSURE\n"),name);

-					break;

-				case OT_GENERATOR:

-					pf(v,_SC("[%s] GENERATOR\n"),name);

-					break;

-				case OT_USERDATA:

-					pf(v,_SC("[%s] USERDATA\n"),name);

-					break;

-				case OT_THREAD:

-					pf(v,_SC("[%s] THREAD\n"),name);

-					break;

-				case OT_CLASS:

-					pf(v,_SC("[%s] CLASS\n"),name);

-					break;

-				case OT_INSTANCE:

-					pf(v,_SC("[%s] INSTANCE\n"),name);

-					break;

-				case OT_WEAKREF:

-					pf(v,_SC("[%s] WEAKREF\n"),name);

-					break;

-				case OT_BOOL:{

-					sq_getinteger(v,-1,&i);

-					pf(v,_SC("[%s] %s\n"),name,i?_SC("true"):_SC("false"));

-							 }

-					break;

-				default: assert(0); break;

-				}

-				sq_pop(v,1);

-			}

-		}

-	}

-}

-

-static SQInteger _sqstd_aux_printerror(HSQUIRRELVM v)

-{

-	SQPRINTFUNCTION pf = sq_geterrorfunc(v);

-	if(pf) {

-		const SQChar *sErr = 0;

-		if(sq_gettop(v)>=1) {

-			if(SQ_SUCCEEDED(sq_getstring(v,2,&sErr)))	{

-				pf(v,_SC("\nAN ERROR HAS OCCURED [%s]\n"),sErr);

-			}

-			else{

-				pf(v,_SC("\nAN ERROR HAS OCCURED [unknown]\n"));

-			}

-			sqstd_printcallstack(v);

-		}

-	}

-	return 0;

-}

-

-void _sqstd_compiler_error(HSQUIRRELVM v,const SQChar *sErr,const SQChar *sSource,SQInteger line,SQInteger column)

-{

-	SQPRINTFUNCTION pf = sq_geterrorfunc(v);

-	if(pf) {

-		pf(v,_SC("%s line = (%d) column = (%d) : error %s\n"),sSource,line,column,sErr);

-	}

-}

-

-void sqstd_seterrorhandlers(HSQUIRRELVM v)

-{

-	sq_setcompilererrorhandler(v,_sqstd_compiler_error);

-	sq_newclosure(v,_sqstd_aux_printerror,0);

-	sq_seterrorhandler(v);

-}

+/* see copyright notice in squirrel.h */
+#include <squirrel.h>
+#include <sqstdaux.h>
+#include <assert.h>
+
+void sqstd_printcallstack(HSQUIRRELVM v)
+{
+	SQPRINTFUNCTION pf = sq_geterrorfunc(v);
+	if(pf) {
+		SQStackInfos si;
+		SQInteger i;
+		SQFloat f;
+		const SQChar *s;
+		SQInteger level=1; //1 is to skip this function that is level 0
+		const SQChar *name=0; 
+		SQInteger seq=0;
+		pf(v,_SC("\nCALLSTACK\n"));
+		while(SQ_SUCCEEDED(sq_stackinfos(v,level,&si)))
+		{
+			const SQChar *fn=_SC("unknown");
+			const SQChar *src=_SC("unknown");
+			if(si.funcname)fn=si.funcname;
+			if(si.source)src=si.source;
+			pf(v,_SC("*FUNCTION [%s()] %s line [%d]\n"),fn,src,si.line);
+			level++;
+		}
+		level=0;
+		pf(v,_SC("\nLOCALS\n"));
+
+		for(level=0;level<10;level++){
+			seq=0;
+			while((name = sq_getlocal(v,level,seq)))
+			{
+				seq++;
+				switch(sq_gettype(v,-1))
+				{
+				case OT_NULL:
+					pf(v,_SC("[%s] NULL\n"),name);
+					break;
+				case OT_INTEGER:
+					sq_getinteger(v,-1,&i);
+					pf(v,_SC("[%s] %d\n"),name,i);
+					break;
+				case OT_FLOAT:
+					sq_getfloat(v,-1,&f);
+					pf(v,_SC("[%s] %.14g\n"),name,f);
+					break;
+				case OT_USERPOINTER:
+					pf(v,_SC("[%s] USERPOINTER\n"),name);
+					break;
+				case OT_STRING:
+					sq_getstring(v,-1,&s);
+					pf(v,_SC("[%s] \"%s\"\n"),name,s);
+					break;
+				case OT_TABLE:
+					pf(v,_SC("[%s] TABLE\n"),name);
+					break;
+				case OT_ARRAY:
+					pf(v,_SC("[%s] ARRAY\n"),name);
+					break;
+				case OT_CLOSURE:
+					pf(v,_SC("[%s] CLOSURE\n"),name);
+					break;
+				case OT_NATIVECLOSURE:
+					pf(v,_SC("[%s] NATIVECLOSURE\n"),name);
+					break;
+				case OT_GENERATOR:
+					pf(v,_SC("[%s] GENERATOR\n"),name);
+					break;
+				case OT_USERDATA:
+					pf(v,_SC("[%s] USERDATA\n"),name);
+					break;
+				case OT_THREAD:
+					pf(v,_SC("[%s] THREAD\n"),name);
+					break;
+				case OT_CLASS:
+					pf(v,_SC("[%s] CLASS\n"),name);
+					break;
+				case OT_INSTANCE:
+					pf(v,_SC("[%s] INSTANCE\n"),name);
+					break;
+				case OT_WEAKREF:
+					pf(v,_SC("[%s] WEAKREF\n"),name);
+					break;
+				case OT_BOOL:{
+					sq_getinteger(v,-1,&i);
+					pf(v,_SC("[%s] %s\n"),name,i?_SC("true"):_SC("false"));
+							 }
+					break;
+				default: assert(0); break;
+				}
+				sq_pop(v,1);
+			}
+		}
+	}
+}
+
+static SQInteger _sqstd_aux_printerror(HSQUIRRELVM v)
+{
+	SQPRINTFUNCTION pf = sq_geterrorfunc(v);
+	if(pf) {
+		const SQChar *sErr = 0;
+		if(sq_gettop(v)>=1) {
+			if(SQ_SUCCEEDED(sq_getstring(v,2,&sErr)))	{
+				pf(v,_SC("\nAN ERROR HAS OCCURED [%s]\n"),sErr);
+			}
+			else{
+				pf(v,_SC("\nAN ERROR HAS OCCURED [unknown]\n"));
+			}
+			sqstd_printcallstack(v);
+		}
+	}
+	return 0;
+}
+
+void _sqstd_compiler_error(HSQUIRRELVM v,const SQChar *sErr,const SQChar *sSource,SQInteger line,SQInteger column)
+{
+	SQPRINTFUNCTION pf = sq_geterrorfunc(v);
+	if(pf) {
+		pf(v,_SC("%s line = (%d) column = (%d) : error %s\n"),sSource,line,column,sErr);
+	}
+}
+
+void sqstd_seterrorhandlers(HSQUIRRELVM v)
+{
+	sq_setcompilererrorhandler(v,_sqstd_compiler_error);
+	sq_newclosure(v,_sqstd_aux_printerror,0);
+	sq_seterrorhandler(v);
+}