[Gridflow-cvs] [svn] commit: r6338 - /trunk/src/gridflow.cxx

svn-gridflow at artengine.ca svn-gridflow at artengine.ca
Fri Sep 24 12:12:09 EDT 2010


Author: matju
Date: Fri Sep 24 12:12:07 2010
New Revision: 6338

Log:
add more debug-stuff; and support A_OP1 in ostream::<<, for [#expr]

Modified:
    trunk/src/gridflow.cxx

Modified: trunk/src/gridflow.cxx
==============================================================================
--- trunk/src/gridflow.cxx (original)
+++ trunk/src/gridflow.cxx Fri Sep 24 12:12:07 2010
@@ -68,10 +68,15 @@
 
 string t_atom2::to_s() const {ostringstream os; os << *this; return os.str();}
 
+//#define ARRET kill(getpid(),SIGSTOP);
+#define ARRET /**/
+
 Barf::Barf(const char *s, ...) {
+    ARRET
     ostringstream os; va_list ap; va_start(ap,s  ); voprintf(os,s  ,ap);
     va_end(ap); text = os.str();}
 Barf::Barf(const char *file, int line, const char *func, const char *fmt, ...) {
+    ARRET
     ostringstream os; va_list ap; va_start(ap,fmt); voprintf(os,fmt,ap);
     // oprintf(os,"\n%s:%d:in `%s'",file,line,func);
     //oprintf(os,"\n%s",short_backtrace(2,7));
@@ -201,7 +206,7 @@
 		}
 		case A_NULL: case A_CANT: case A_OPEN: case A_CLOSE:
 			   self << "\\\\a(" << atomtype_to_s(a.a_type)                                                << ")"; break;
-		case A_OP: case A_VAR:
+		case A_VAR: case A_OP: case A_OP1:
 			   self << "\\\\a(" << atomtype_to_s(a.a_type) << " " << std::hex << a.a_symbol   << std::dec << ")"; break;
 		default:   self << "\\\\a(" << atomtype_to_s(a.a_type) << " " << std::hex << a.a_gpointer << std::dec << ")"; break;
 	}



More information about the Gridflow-cvs mailing list