asCode method writes patternproxies with source; printOn posts Tdef, …

…Pdef, Pdefn with their name.
supercollider · May 14, 2011 · 46f4921 · 46f4921
1 parent ebf9e22
commit 46f4921
Showing 1 changed file with 37 additions and 0 deletions.
diff --git a/SCClassLibrary/JITLib/Patterns/extPostAsCode.sc b/SCClassLibrary/JITLib/Patterns/extPostAsCode.sc
@@ -0,0 +1,37 @@
++ PatternProxy { 
+		// like asCompileString, but with full source etc.
+	asCode { 
+		var mykey = this.key.asCompileString; 
+		var str;  str = "" ++ this.class.name ++ "(";
+
+		if(source.isNil or: { source == this.class.default }) { 
+			str = str ++ mykey;
+		} { 
+			str = str ++ this.repositoryArgs.asCompileString.drop(1).drop(-1);
+		};
+		str = str ++ ")";
+
+		if(this.envir.notNil and: { this.envir.notEmpty }) {
+			str = str ++ ".set(" ++ 
+			this.envir.asKeyValuePairs.asCompileString.drop(1).drop(-1) ++ ")"
+		};
+		str = str ++ ";"
+		^str
+	}	
+}
+
++ Tdef { 
+	printOn { |stream| 
+		^this.storeOn(stream);
+	}
+}
++ Pdef { 
+	printOn { |stream| 
+		^this.storeOn(stream);
+	}
+}
++ Pdefn { 
+	printOn { |stream| 
+		^this.storeOn(stream);
+	}
+}