Changeset 351 for trunk/src/series.m

Timestamp:

Dec 24, 2011, 11:50:22 AM (12 years ago)

Author:

sommeria

Message:

bug corrections to series, introduction of a button BATCH (still under progress)

File:

• trunk/src/series.m (modified) (9 diffs)

trunk/src/series.m

@@ -516 +516 @@
 %     SeriesData.j2_series=[SeriesData.j2_series;{j2_series}];
 InputTable=get(handles.InputTable,'Data');
- InputTable=[{RootPath},{RootFile},{SubDir},{NomType},{FileExt};InputTable];
+ InputTable=[{RootPath},{SubDir},{RootFile},{NomType},{FileExt};InputTable];
 %     RootPathCell=[{RootPath}; InputTable{] ; 
 %     SubDirCell=[{SubDir}; get(handles.SubDir,'String')];
@@ -527 +527 @@
 % or re-initialise the list of  input  file series   
 else 
-    InputTable=[{RootPath},{RootFile},{SubDir},{NomType},{FileExt}];
+    InputTable=[{RootPath},{SubDir},{RootFile},{NomType},{FileExt}];
 end
 set(handles.InputTable,'Data',InputTable)
@@ -1176 +1176 @@
 %% read input file parameters and set menus
 Series.PathProject=get(handles.PathCampaign,'String');
-RootPath=get(handles.RootPath,'String');% path of the root name of the first field series
-RootFile=get(handles.RootFile,'String');% root name of the first field series 
-SubDir=get(handles.SubDir,'String');% subdirectory for netcdf files
-FileExt=get(handles.FileExt,'String');%file extension
+% InputTable=get(handles.InputTable,'Data');
+RootPath=Series.InputTable(:,1);
+SubDir=Series.InputTable(:,2);
+RootFile=Series.InputTable(:,3);
+NomType=Series.InputTable(:,4);
+FileExt=Series.InputTable(:,5);
+% RootPath=get(handles.RootPath,'String');% path of the root name of the first field series
+% RootFile=get(handles.RootFile,'String');% root name of the first field series 
+% SubDir=get(handles.SubDir,'String');% subdirectory for netcdf files
+% FileExt=get(handles.FileExt,'String');%file extension
 if isempty(SeriesData)
     msgbox_uvmat('ERROR','no input file series')
     return
 end
-NomType=SeriesData.NomType;
+% NomType=SeriesData.NomType;
 if length(RootPath)==1 %string character input for user fct
     Series.RootPath=RootPath{1};
@@ -1244 +1250 @@
 num_i=first_i:incr_i:last_i;
 num_j=first_j:incr_j:last_j;
-nbfield_cell=get(handles.num_MaxIndex_i,'String');
-nbfield=[]; %default
-for iview=1:length(nbfield_cell)
-    nb=str2num(nbfield_cell{iview});
-    if ~isempty(nb)
-        nbfield=[nbfield nb];
-    end
-end
-nbfield=min(nbfield);
-nbfield2_cell=get(handles.num_MaxIndex_j,'String');
-nbfield2=[]; %default
-for iview=1:length(nbfield2_cell)
-    nb=str2num(nbfield2_cell{iview});
-    if ~isempty(nb)
-        nbfield2=[nbfield2 nb];
-    end
-end
-nbfield2=min(nbfield2);
+% nbfield_cell=get(handles.num_MaxIndex_i,'String');
+nbfield=cell2mat(Series.IndexRange.MaxIndex);
+nb=min(nbfield,1);
+nbfield=nb(1);
+nbfield2=nb(2);
+% nbfield2=cell2mat(Series.IndexRange.MaxIndex);
+% nbfield=min(nbfield);
+% % nbfield=[]; %default
+% % for iview=1:length(nbfield_cell)
+% %     nb=nbfield_cell{iview};
+% %     if ~isempty(nb)
+% %         nbfield=[nbfield nb];
+% %     end
+% % end
+% % nbfield=min(nbfield);
+% nbfield2_cell=get(handles.num_MaxIndex_j,'String');
+% nbfield2=[]; %default
+% for iview=1:length(nbfield2_cell)
+%     nb=str2num(nbfield2_cell{iview});
+%     if ~isempty(nb)
+%         nbfield2=[nbfield2 nb];
+%     end
+% end
+% nbfield2=min(nbfield2);
 
 %get complementary information from the 'series' interface
@@ -1363 +1375 @@
 end
 
-% defining the ACTION function handle
+%% defining the ACTION function handle
 path_series=which('series');
 list_path=get(handles.ACTION,'UserData');
@@ -1383 +1395 @@
 end
 
-% RUN ACTION
+%% RUN ACTION
 Series.Action=action;%name of the processing programme
 set(handles.RUN,'BackgroundColor',[0.831 0.816 0.784])
@@ -2266 +2278 @@
 if ~isempty(SeriesData)
 for ilist=1:size(InputTable,1)
+    SeriesData.j1_series{ilist}
     if ~isempty(SeriesData.j1_series{ilist})
         state_j='on';
@@ -2546 +2559 @@
 set(handles.series,'UserData',SeriesData)
 if testpair
-    mode_Callback(hObject, eventdata, handles)  
+    mode_Callback([],[], handles)  
 else
 %     set(handles.NomType,'String',NomTypeCell)
@@ -2557 +2570 @@
 end
 
+
+% --- Executes on button press in BATCH.
+function BATCH_Callback(hObject, eventdata, handles)
+% hObject    handle to BATCH (see GCBO)
+% eventdata  reserved - to be defined in a future version of MATLAB
+% handles    structure with handles and user data (see GUIDATA)
+Series=read_GUI(handles.series);
+t=struct2xml(Series);
+save(t); %TODO: determine a xml file name
+
+% list_action=get(handles.ACTION,'String');% list menu action
+% index_action=get(handles.ACTION,'Value');% selected string index
+% action= list_action{index_action}; % selected string
+
+%% defining the ACTION function handle
+path_series=which('series');
+list_path=get(handles.ACTION,'UserData');
+index=get(handles.ACTION,'Value');
+fct_path=list_path{index}; %path stored for the function ACTION
+if ~isequal(fct_path,path_series)
+    eval(['spath=which(''' action ''');']) %spath = current path of the selected function ACTION
+    if ~exist(fct_path,'dir')
+        msgbox_uvmat('ERROR',['The prescibed function path ' fct_path ' does not exist'])
+        return
+    end
+    if ~isequal(spath,fct_path)
+        addpath(fct_path)% add the prescribed path if not the current one
+    end
+end
+eval(['h_fun=@' action ';'])%create a function handle for ACTION
+if ~isequal(fct_path,path_series)
+        rmpath(fct_path)% add the prescribed path if not the current one    
+end
+
+h_fun('BATCH');% TODO modify the called function to read the xml file as input parameter
+
+