1 | %'check_files': check the path, modification date and svn version for all the
|
---|
2 | % function in the toolbox UVMAT. Called at the opening of uvmat. Adds the
|
---|
3 | % uvmat path to the Matlab path if needed.
|
---|
4 | %----------------------------------------------------------------------
|
---|
5 | % function [errormsg,date_str,ver]=check_files
|
---|
6 | %
|
---|
7 | % OUTPUT:
|
---|
8 | % errormsg: error message listing functions whose paths are not in the directory of uvmat.m
|
---|
9 | % date_str: date of the most recent modification of a file in the toolbox
|
---|
10 | % ver : svn version in case this is a svn repository
|
---|
11 |
|
---|
12 | %AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
---|
13 | % Copyright Joel Sommeria, 2008, LEGI / CNRS-UJF-INPG, sommeria@coriolis-legi.org.
|
---|
14 | %AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
---|
15 | % This file is part of the toolbox UVMAT.
|
---|
16 | %
|
---|
17 | % UVMAT is free software; you can redistribute it and/or modify
|
---|
18 | % it under the terms of the GNU General Public License as published by
|
---|
19 | % the Free Software Foundation; either version 2 of the License, or
|
---|
20 | % (at your option) any later version.
|
---|
21 | %
|
---|
22 | % UVMAT is distributed in the hope that it will be useful,
|
---|
23 | % but WITHOUT ANY WARRANTY; without even the implied warranty of
|
---|
24 | % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
---|
25 | % GNU General Public License (file UVMAT/COPYING.txt) for more details.
|
---|
26 | %AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
---|
27 |
|
---|
28 | function [errormsg,date_str,svn_info]=check_files
|
---|
29 | errormsg={};%default
|
---|
30 | date_str='';
|
---|
31 | svn_info.rep_rev=[];
|
---|
32 | svn_info.cur_rev=[];
|
---|
33 | svn_info.status=[];
|
---|
34 | list_fct={...
|
---|
35 | 'calc_field';...% defines fields (velocity, vort, div...) from civx data and calculate them
|
---|
36 | 'cell2tab';... %transform a Matlab cell in a character array suitable for display in a table
|
---|
37 | 'check_field_structure';...% check the validity of the field struture representation consistant with the netcdf format
|
---|
38 | 'check_files';...
|
---|
39 | 'civ';... %function associated with the interface 'civ.fig' for PIV and spline interpolation
|
---|
40 | 'civ.fig';...
|
---|
41 | 'civ_3D';... function associated with the interface 'civ_3D.fig' for PIV in volume (TODO: combine with civ.m)
|
---|
42 | 'civ_3D.fig';...
|
---|
43 | 'civ_matlab';...% civ programs, Matlab version (called by civ.m, option Civprogram/Matlab in the upper menu bar)
|
---|
44 | 'close_fig';...% function activated when a figure is closed
|
---|
45 | 'copyfields';...% copy fields between two matlab structures
|
---|
46 | 'create_grid';...% called by the GUI geometry_calib to create a physical grid
|
---|
47 | 'create_grid.fig';...% GUI corresponding to create_grid.m
|
---|
48 | 'dataview';...% function for scanning directories in a campaign
|
---|
49 | 'dataview.fig';...% GUI corresponding to dataview
|
---|
50 | 'delete_object';...%delete a projection object, defined by its index in the Uvmat list or by its graphic handle
|
---|
51 | 'editxml';...%display and edit xml files using a xls schema
|
---|
52 | 'editxml.fig';...%interface for editxml
|
---|
53 | 'fileparts_uvmat';...% extracts the root name,field indexes and nomenclature type from an input filename
|
---|
54 | 'fill_GUI';...% fill a GUI with handles 'handles' from input data Param
|
---|
55 | 'find_field_indices';...% group the variables of a nc-formated Matlab structure into 'fields' with common dimensions
|
---|
56 | 'find_file_series';...%check the content of an input file and find the corresponding file series
|
---|
57 | 'fullfile_uvmat';...%creates a file name from a root name and indices.
|
---|
58 | 'geometry_calib';...%performs geometric calibration from a set of reference points
|
---|
59 | 'geometry_calib.fig';...%interface for geometry_calib
|
---|
60 | 'get_field';...% choose and plot a field from a Netcdf file
|
---|
61 | 'get_field.fig';...%interface for get_field
|
---|
62 | 'get_file_series';...% determine the list of file names and file indices for functions called by 'series'.
|
---|
63 | 'get_file_type';...% determine info about a file (image, multimage, civdata,...) .
|
---|
64 | 'griddata_uvmat';...%make 2D linear interpolation using griddata, with input appropriate for both Matlab 6.5 and 7
|
---|
65 | 'hist_update';...% update of a current global histogram by inclusion of a new field
|
---|
66 | 'imadoc2struct';...%convert the image documentation file ImaDoc into a Matlab structure
|
---|
67 | 'keyboard_callback';... % function activated when a key is pressed on the keyboard
|
---|
68 | 'ListDir';... scan the structure of the directory tree (for dataview.m)
|
---|
69 | 'mouse_down';% function activated when the mouse button is pressed on a figure (callback for 'WindowButtonDownFcn')
|
---|
70 | 'mouse_motion';...% permanently called by mouse motion over a figure (callback for 'WindowButtonMotionFcn')
|
---|
71 | 'mouse_up';... % function to be activated when the mouse button is released (callback for 'WindowButtonUpFcn')
|
---|
72 | 'msgbox_uvmat';... associated with GUI msgbox_uvmat.fig to display message boxes, for error, warning or input calls
|
---|
73 | 'msgbox_uvmat.fig';...
|
---|
74 | 'nc2struct';...% transform a netcdf file in a corresponding matlab structure
|
---|
75 | 'num2stra';...% transform number to the corresponding character string depending on the nomenclature
|
---|
76 | 'open_uvmat';...% open with uvmat the field selected in the list of 'civ/status' or 'series/check_data_files'
|
---|
77 | 'peaklock';...%
|
---|
78 | 'phys_XYZ';...% transform coordiantes from pixels to phys
|
---|
79 | 'px_XYZ';...% transform coordiantes from phys to pixels
|
---|
80 | 'plot_field';...%displays a vector field and/or scalar or images
|
---|
81 | 'plot_object';...%draws a projection object (points, line, plane...)
|
---|
82 | 'proj_field';...%project a field on a projection object (plane, line,...)
|
---|
83 | 'read_civxdata';...reads civx data from netcdf files
|
---|
84 | 'read_civdata';... reads new civ data from netcdf files
|
---|
85 | 'read_get_field';... read the list of selected variables from the GUI get_field (TODO: use read_GUI)
|
---|
86 | 'read_GUI';... %read all parameters set by a GUI as a Matlab structure
|
---|
87 | 'read_imatext';...%read .civ files (obsolete, but can be adapted to other text documentation files)
|
---|
88 | 'read_xls';...%read excel files containing the list of the experiments
|
---|
89 | 'reinit';...% suppress the personal parameter file 'uvmat_perso.mat'
|
---|
90 | 'rotate_points';...%'rotate_points': associated with GUI rotate_points.fig to introduce (2D) rotation parameters
|
---|
91 | 'rotate_points.fig';...
|
---|
92 | 'RUN_STLIN';...% combine 2 displacement fields for stereo PIV
|
---|
93 | 'series';...% master function for analysis field series, with interface 'series.fig'
|
---|
94 | 'series.fig';...% interface for 'series'
|
---|
95 | 'set_col_vec';...% sets the color code for vectors depending on a scalar and input parameters (used for plot_field)
|
---|
96 | 'set_grid';...% creates a grid for PIV
|
---|
97 | 'set_grid.fig';...% interface for set_grid
|
---|
98 | 'set_object.m';...% edit a projection object
|
---|
99 | 'set_object.fig';...% interface for set_object
|
---|
100 | 'stra2num';...% transform letters (a, b, A, B,) or numerical strings ('1','2'..) to the corresponding numbers
|
---|
101 | 'sub_field';...% combine the two input fields,
|
---|
102 | 'struct2nc';...% %write fields in netcdf files
|
---|
103 | 'struct2xml';... transform a matlab structure to a xml tree.
|
---|
104 | 'tps_coeff';...% calculate the thin plate spline (tps) coefficients
|
---|
105 | 'tps_eval';... %calculate the thin plate spline (tps) interpolation at a set of points
|
---|
106 | 'tps_eval_dxy';...% calculate the derivatives of thin plate spline (tps) interpolation at a set of points (limited to the 2D case)
|
---|
107 | 'translate_points';...% associated with GUI translate_points.fig to display translation parameters
|
---|
108 | 'translate_points.fig';...
|
---|
109 | 'update_imadoc';... %update the ImaDoc xml file
|
---|
110 | 'update_waitbar';... update the waitbar display, used for ACTION functions in the GUI 'series'
|
---|
111 | 'uvmat';...% master function for file scanning and visualisation of 2D fields
|
---|
112 | 'uvmat.fig';... %interface for uvmat
|
---|
113 | 'view_field.m';...% function for visualisation of projected fields'
|
---|
114 | 'view_field.fig';...%GUI for view_field
|
---|
115 | 'write_plot_param';...%update plotting parameters after plot, TODO: change into a general function: fill_GUI
|
---|
116 | 'xml2struct';...% read an xml file as a Matlab structure, converts numeric character strings into numbers
|
---|
117 | };
|
---|
118 | dir_fct=which('uvmat');% path to uvmat
|
---|
119 | [pathuvmat,name,ext]=fileparts(dir_fct);
|
---|
120 |
|
---|
121 | %% add the uvmat path to matlab if needed
|
---|
122 | if isempty(regexp(path,[pathuvmat '(:|\>)'],'once'))
|
---|
123 | addpath(pathuvmat);
|
---|
124 | end
|
---|
125 |
|
---|
126 |
|
---|
127 | %% loop on the list of functions in the uvmat package
|
---|
128 |
|
---|
129 | icount=0;
|
---|
130 | datnum=zeros(1,length(list_fct));
|
---|
131 | for i=1:length(list_fct)
|
---|
132 | dir_fct=which(list_fct{i});% path to fct
|
---|
133 | if isempty(dir_fct)
|
---|
134 | icount=icount+1;
|
---|
135 | errormsg{icount}=[list_fct{i} ' not found'];% test for function not found
|
---|
136 | else
|
---|
137 | [pth,name,ext]=fileparts(dir_fct);
|
---|
138 | if ~isequal(pathuvmat,pth)&~isequal(fullfile(pathuvmat,'private'),pth)
|
---|
139 | icount=icount+1;
|
---|
140 | errormsg{icount}=[dir_fct ' overrides the package UVMAT'];% bad path for the function
|
---|
141 | end
|
---|
142 | datfile=dir(dir_fct);
|
---|
143 | if isfield(datfile,'datenum')
|
---|
144 | datnum(i)= datfile.datenum;
|
---|
145 | end
|
---|
146 | end
|
---|
147 | end
|
---|
148 | date_str=datestr(max(datnum));
|
---|
149 | [status,result]=system('svn --help');
|
---|
150 | if status==0
|
---|
151 | [tild,result]=system(['svn info ' dir_fct]);
|
---|
152 | t=regexp(result,'R.vision\s*:\s*(?<rev>\d+)','names');
|
---|
153 | svn_info.cur_rev=str2double(t.rev);
|
---|
154 | [tild,result]=system(['svn info -r ''HEAD'' ' dir_fct]);
|
---|
155 | t=regexp(result,'R.vision\s*:\s*(?<rev>\d+)','names');
|
---|
156 | svn_info.rep_rev=str2double(t.rev);
|
---|
157 | [tild,result]=system(['svn status' dir_fct]);
|
---|
158 | svn_info.status=result;
|
---|
159 | if svn_info.rep_rev>svn_info.cur_rev
|
---|
160 | errormsg {length(errormsg)+1}=['Repository now at revision ' num2str(svn_info.rep_rev) '. Please type svn update in uvmat folder'];
|
---|
161 | end
|
---|
162 | modifications=regexp(svn_info.status,'M\s[^(\n|\>)]+','match');
|
---|
163 | if ~isempty(modifications)
|
---|
164 | for k=1:length(modifications)
|
---|
165 | errormsg {length(errormsg)+1}=modifications{k};
|
---|
166 | end
|
---|
167 | end
|
---|
168 | end
|
---|
169 | errormsg=errormsg';
|
---|
170 |
|
---|