- Timestamp:
- Apr 20, 2014, 6:19:08 PM (10 years ago)
- Location:
- trunk/src
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/src/compile.m
r606 r746 8 8 function compile (FctName,SubfctPath) 9 9 if isempty(which('mcc')) 10 msgbox_uvmat(' no Matlab compiler toolbox mcc installed')10 msgbox_uvmat('ERROR','no Matlab compiler toolbox mcc installed') 11 11 return 12 else 13 hh=msgbox_uvmat('INFO',['compilation of ' FctName ' in progress...']); 12 14 end 13 15 disp(['compiling ' FctName ' ...']) … … 23 25 end 24 26 disp(['mcc -m -R -nojvm -R -nodisplay ' SubfctPath ' ' FctName '.m']) 25 eval(['mcc -m -R -nojvm -R -nodisplay ' SubfctPath ' ' FctName '.m'])% compile the source file [FctName .m], which produces a binary file FctName and a cmd file [run_' FctName '.sh] 26 %eval(['mcc -m -R -nojvm -R -nodisplay ' FctName '.m'])% compile the source file [FctName .m], which produces a binary file FctName and a cmd file [run_' FctName 27 system(['mv -f ' FctName ' bin/']);%move the binary file FctName to the subdir /bin 28 system(['sed -e ''''s#/' FctName '#/bin/' FctName '#'''' run_' FctName '.sh > ' FctName '.sh']);%modify the cmd file and copy it to [FctName '.sh'] 29 system(['rm run_' FctName '.sh']);% remove the initial cmd file [run_' FctName '.sh] 30 system(['chmod +x ' FctName '.sh']); % set the cmd file to 'executable' 27 try 28 eval(['mcc -m -R -nojvm -R -nodisplay ' SubfctPath ' ' FctName '.m'])% compile the source file [FctName .m], which produces a binary file FctName and a cmd file [run_' FctName '.sh] 29 system(['mv -f ' FctName ' bin/']);%move the binary file FctName to the subdir /bin 30 system(['sed -e ''''s#/' FctName '#/bin/' FctName '#'''' run_' FctName '.sh > ' FctName '.sh']);%modify the cmd file and copy it to [FctName '.sh'] 31 system(['rm run_' FctName '.sh']);% remove the initial cmd file [run_' FctName '.sh] 32 system(['chmod +x ' FctName '.sh']); % set the cmd file to 'executable' 33 catch ME 34 msgbox_uvmat('ERROR',ME.message); 35 end 31 36 display('** END **') 32 end 37 delete(hh) 33 38 34 39 -
trunk/src/msgbox_uvmat.m
r733 r746 69 69 testNo=0; 70 70 testCancel=0; 71 testOK=1; 71 72 testinputstring=0; 72 73 icontype='quest';%default question icon (text input asked) … … 96 97 testinputstring=2; 97 98 testCancel=1; %no cancel button 99 case 'INFO' 100 icontype=''; 101 testOK=0; 98 102 otherwise 99 103 % testinputstring=1; … … 172 176 set(handles.figure1,'Units','normalized') 173 177 set(handles.edit_box,'Units','normalized') 174 178 if testOK 175 179 set(handles.figure1,'WindowStyle','modal')% Make% Make the GUI modal 180 set(handles.OK,'Visible','on') 176 181 % UIWAIT makes msgbox_uvmat wait for user response (see UIRESUME) 177 182 uiwait(handles.figure1); 183 else 184 set(handles.OK,'Visible','off') 185 end 186 178 187 179 188 %------------------------------------------------------------------------ … … 202 211 end 203 212 % The figure can be deleted now 213 if strcmp(get(handles.OK,'Visible'),'on') 204 214 delete(handles.figure1); 215 else %case of INFO display (non modal) 216 varargout{1}=hObject; 217 end 205 218 end 206 219 -
trunk/src/series/merge_proj.m
r739 r746 227 227 [Data{iview},tild,errormsg] = read_field(filecell{iview,index},FileType{iview},Param.InputFields,frame_index{iview}(index)); 228 228 if ~isempty(errormsg) 229 disp_uvmat( ['ERROR in merge_proj/read_field/' errormsg],checkrun)229 disp_uvmat('ERROR',['ERROR in merge_proj/read_field/' errormsg],checkrun) 230 230 return 231 231 end … … 255 255 [Data{iview},errormsg]=proj_field(Data{iview},Param.ProjObject); 256 256 if ~isempty(errormsg) 257 disp_uvmat( ['ERROR in merge_proge/proj_field: ' errormsg],checkrun)257 disp_uvmat('ERROR',['ERROR in merge_proge/proj_field: ' errormsg],checkrun) 258 258 return 259 259 end
Note: See TracChangeset
for help on using the changeset viewer.