UNST-9501: option to sort station names ... run the test bench once with alphabetical sorting activated ... qp_validate temporarily adjusted to avoid failures related to the newly added fields: trying to identify cases in which sorting has any effect

Author: hrajagers

src/tools_lgpl/matlab/quickplot/progsrc/private/qp_fmem.m

@@ -1239,10 +1239,10 @@
             end
         end
 end
-if isempty(FI)
-    lasttp=[];
+if ~isempty(FI)
+    FI = qp_option(FI,'sortStations','alphabetically');
+    qp_settings('LastFileType',lasttp)
 end
-qp_settings('LastFileType',lasttp)
 
 
 function [isASCII,REASON] = verifyascii(arg)

src/tools_lgpl/matlab/quickplot/progsrc/private/qp_proxy.m

@@ -69,9 +69,9 @@
         Key   = Proxy.Data.Key;
         switch Key(1:4)
             case 'main'
-                [FI,FileName,Tp,Otherargs]=qp_fmem('open',Proxy.Name,Proxy.Otherargs{:});
+                [FI,~,~,~]=qp_fmem('open',Proxy.Name,Proxy.Otherargs{:});
             case 'grid'
-                [FI,FileName,Tp,Otherargs]=grid_fopen('open',Proxy.Name,Proxy.Otherargs{:});
+                [FI,~,~,~]=grid_fopen('open',Proxy.Name,Proxy.Otherargs{:});
         end
         if ~isempty(FI)
             save.(Key) = FI;

src/tools_lgpl/matlab/quickplot/progsrc/private/sort_stations.m

@@ -0,0 +1,29 @@
+function [out1,out2] = sort_stations(in1,stationSortMethod)
+%sort_stations Routine to sort station names
+
+NONE = 'no_sorting';
+ALPHABETICAL = 'alphabetically';
+
+if nargin == 1 && nargout <= 1
+    switch in1
+        case 'methods'
+            out1 = {NONE,ALPHABETICAL};
+        case 'default'
+            out1 = NONE;
+        otherwise
+            error('Unexpected command: %s.', in1)
+    end
+
+else
+    switch stationSortMethod
+        case NONE
+            out1 = in1;
+            out2 = 1:length(in1);
+
+        case ALPHABETICAL
+            [out1,out2] = sort(in1);
+
+        otherwise
+            error('Sort method %s not implemented.', stationSortMethod)
+    end
+end