refactor common methods to FluidManipulationClint

release-packaging/Classes/FluidDataSet.sc

@@ -62,24 +62,6 @@ FluidDataSet : FluidManipulationClient {
 	  this.prSendMsg(\deletePoint,[label.asSymbol],action);
 	}
 
-	cols {|action|
-		action ?? {action = postit};
-	  this.prSendMsg(\cols,[],action,[numbers(FluidMessageResponse,_,1,_)]);
-	}
-
-	read{|filename,action|
-	  this.prSendMsg(\read,[filename.asString],action);
-	}
-
-	write{|filename,action|
-	  this.prSendMsg(\write,[filename.asString],action);
-	}
-
-	size { |action|
-		action ?? {action = postit};
-	  this.prSendMsg(\size,[],action,[numbers(FluidMessageResponse,_,1,_)]);
-	}
-
 	clear { |action|
 	  this.prSendMsg(\clear,[],action);
 	}

release-packaging/Classes/FluidKDTree.sc

@@ -24,18 +24,4 @@ FluidKDTree : FluidManipulationClient {
         this.prSendMsg(\kNearestDist,[buffer.asUGenInput,k],action,[numbers(FluidMessageResponse,_,k,_)]);
     }
 
-    cols { |action|
-
-		action ?? {action = postit};
-
-        this.prSendMsg(\cols,[],action,[numbers(FluidMessageResponse,_,1,_)]);
-    }
-
-    read{ |filename,action|
-        this.prSendMsg(\read,[filename.asString],action);
-    }
-
-    write{ |filename,action|
-        this.prSendMsg(\write,[filename.asString],action);
-    }
 }

release-packaging/Classes/FluidKMeans.sc

@@ -30,17 +30,4 @@ FluidKMeans : FluidManipulationClient {
     predictPoint { |buffer, action|
         this.prSendMsg(\predictPoint,[buffer.asUGenInput],action,[number(FluidMessageResponse,_,_)]);
     }
-
-    cols { |action|
-		action ?? action = postit;
-        this.prSendMsg(\cols,[],action,[number(FluidMessageResponse,_,_)]);
-    }
-
-    read{ |filename,action|
-        this.prSendMsg(\read,[filename.asString],action);
-    }
-
-    write{ |filename,action|
-        this.prSendMsg(\write,[filename.asString],action);
-    }
 }

release-packaging/Classes/FluidKNNClassifier.sc

@@ -26,12 +26,5 @@ FluidKNNClassifier : FluidManipulationClient {
 		);
 	}
 
-	read{|filename,action|
-        this.prSendMsg(\read,[filename.asString],action);
-    }
-
-    write{|filename,action|
-        this.prSendMsg(\write,[filename.asString],action);
-    }
 
 }

release-packaging/Classes/FluidKNNRegressor.sc

@@ -26,13 +26,4 @@ FluidKNNRegressor : FluidManipulationClient {
         this.prSendMsg(\predictPoint, [buffer.asUGenInput, k,uniform], action,
 			[number(FluidMessageResponse,_,_)]);
     }
-
-	read{|filename,action|
-        this.prSendMsg(\read,[filename.asString],action);
-    }
-
-    write{|filename,action|
-        this.prSendMsg(\write,[filename.asString],action);
-    }
-
 }

release-packaging/Classes/FluidLabelSet.sc

@@ -60,24 +60,6 @@ FluidLabelSet : FluidManipulationClient {
 		this.prSendMsg(\deleteLabel, [id.asString],action);
 	}
 
-	cols {|action|
-		action ?? {action = postit};
-		this.prSendMsg(\cols, [], action, [number(FluidMessageResponse,_,_)]);
-	}
-
-	read{|filename,action|
-		this.prSendMsg(\read, [filename.asString], action);
-	}
-
-	write{|filename,action|
-		this.prSendMsg(\write, [filename.asString], action);
-	}
-
-	size {|action|
-		action ?? {action = postit};
-		this.prSendMsg(\size,[], action, [number(FluidMessageResponse,_,_)]);
-	}
-
 	clear {|action|
 	 	this.prSendMsg(\clear,[], action);
 	}

release-packaging/Classes/FluidMDS.sc

@@ -20,4 +20,10 @@ FluidMDS : FluidManipulationClient {
 		this.prSendMsg(\fitTransform,[sourceDataset.asSymbol,  destDataset.asSymbol, k, dist],action);
 	}
 	
+	// not implemented
+	cols {|action|}
+	read{|filename,action|}
+	write{|filename,action|}
+	size { |action|}
+
 }

release-packaging/Classes/FluidManipulationClient.sc

@@ -83,6 +83,24 @@ FluidManipulationClient {
 		^nil
 	}
 
+	cols {|action|
+		action ?? {action = postit};
+	  this.prSendMsg(\cols,[],action,[numbers(FluidMessageResponse,_,1,_)]);
+	}
+
+	read{|filename, action|
+	  this.prSendMsg(\read,[filename.asString],action);
+	}
+
+	write{|filename, action|
+	  this.prSendMsg(\write,[filename.asString],action);
+	}
+
+	size {|action|
+		action ?? {action = postit};
+	  this.prSendMsg(\size,[],action,[numbers(FluidMessageResponse,_,1,_)]);
+	}
+
 	prSendMsg { |msg, args, action,parser|
 		if(this.server.serverRunning.not,{(this.asString + "– server not running").error; ^nil});
 		forkIfNeeded{

release-packaging/Classes/FluidNormalize.sc

@@ -24,18 +24,4 @@ FluidNormalize : FluidManipulationClient {
     transformPoint{|sourceBuffer, destBuffer, action|
         this.prSendMsg(\transformPoint,[sourceBuffer.asUGenInput, destBuffer.asUGenInput],action);
     }
-
-    cols {|action|
-		action ?? {action = postit};
-        this.prSendMsg(\cols,[],action,[numbers(FluidMessageResponse,_,1,_)]);
-    }
-
-    read{|filename,action|
-        this.prSendMsg(\read,[filename.asString],action);
-    }
-
-    write{|filename,action|
-        this.prSendMsg(\write,[filename.asString],action);
-    }
-
 }

release-packaging/Classes/FluidPCA.sc

@@ -26,20 +26,4 @@ FluidPCA : FluidManipulationClient {
     transformPoint{|sourceBuffer, destBuffer, action|
         this.prSendMsg(\transformPoint,[sourceBuffer.asUGenInput, destBuffer.asUGenInput],action);
     }
-
-    cols {|action|
-
-		action ?? {action = postit};
-
-        this.prSendMsg(\cols,[],action,[numbers(FluidMessageResponse,_,1,_)]);
-    }
-
-    read{|filename,action|
-        this.prSendMsg(\read,[filename],action);
-    }
-
-    write{|filename,action|
-        this.prSendMsg(\write,[filename],action);
-    }
-
 }

release-packaging/Classes/FluidStandardize.sc

@@ -24,18 +24,4 @@ FluidStandardize : FluidManipulationClient {
     transformPoint{|sourceBuffer, destBuffer, action|
         this.prSendMsg(\transformPoint,[sourceBuffer.asUGenInput, destBuffer.asUGenInput],action);
     }
-
-    cols {|action|
-		action ?? {action = postit};
-        this.prSendMsg(\cols,[],action,[numbers(FluidMessageResponse,_,1,_)]);
-    }
-
-    read{|filename,action|
-        this.prSendMsg(\read,[filename.asString],action);
-    }
-
-    write{|filename,action|
-        this.prSendMsg(\write,[filename.asString],action);
-    }
-
 }