--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/m-toolbox/classes/@stattest/fromStruct.m	Wed Nov 23 19:22:13 2011 +0100
@@ -0,0 +1,68 @@
+% FROMSTRUCT Construct a ltpda_obj from a struct
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% FUNCTION:    fromStruct
+%
+% DESCRIPTION: Construct a ltpda_obj from a struct
+%
+% CALL:        obj = fromStruct(obj, struct)
+%
+% VERSION:     $Id: fromStruct.m,v 1.1 2010/12/20 12:50:15 hewitson Exp $
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+function objs = fromStruct(objs, obj_struct)
+
+  cn = class(objs);
+
+  % build/update struct
+  for kk = 1:numel(obj_struct)
+
+    objs(kk) = feval(cn);
+    %%% Update the structure to the current toolbox version
+    if isfield(obj_struct, 'tbxver')
+      fcn_name = ([cn '.update_struct']);
+      up_struct = feval(fcn_name, obj_struct(kk), obj_struct(kk).tbxver);
+    else
+      up_struct = obj_struct(kk);
+    end
+
+    props  = properties(cn);
+    nprops = numel(props);
+
+    for jj=1:nprops
+      prop = props{jj};
+      if isfield(up_struct, prop) && isstruct(up_struct.(prop))
+        % what class?
+        if isfield(up_struct.(prop), 'class')
+          objs(kk).(prop) = utils.helper.struct2obj(up_struct.(prop), up_struct.(prop).class);
+        else
+          % can we guess class ?
+          cln = utils.helper.classFromStruct(up_struct.(prop));
+          if ~isempty(cln)
+            objs(kk).(prop) = feval(cln, up_struct.(prop));
+          else
+            if isfield(up_struct, prop)
+              objs(kk).(prop) = up_struct.(prop);
+            end
+          end
+        end
+      else
+        if isfield(up_struct, prop)
+          % ATTENTION: Special case for 'ntaps'
+          %            It is not necessary to set this value because it
+          %            will be computed.
+          if ~strcmp(prop, 'ntaps')
+            objs(kk).(prop) = up_struct.(prop);
+          end
+        end
+      end
+    end
+
+  end
+
+  % Reshape the objects
+  objs = reshape(objs, size(obj_struct));
+
+end
+