← Back to branch summary

~ubuntu-branches/ubuntu/vivid/mricron/vivid

« back to all changes in this revision

Viewing changes to dcm2nii/paramstrs.pas

  • Committer: Package Import Robot
  • Author(s): Michael Hanke
  • Date: 2012-05-15 08:59:27 UTC
  • mfrom: (1.1.5)
  • Revision ID: package-import@ubuntu.com-20120515085927-l0zoatiwial8v8o1
Tags: 0.20120505.1~dfsg.1-1
http://bugs.debian.org/671365
* New upstream code (Closes: #671365).
* Update upstream source URL.
* Bumped Standards-version to 3.9.3, no changes necessary.

Show diffs side-by-side

added added

removed removed

Lines of Context:
dcm2nii/paramstrs.pas
6
6
kVers = 'Chris Rorden''s dcm2nii :: '+kMRIcronvers;
7
7
{$Include ..\common\isgui.inc}
8
8
procedure ProcessParamStrs;
9
 
 procedure Testdcm2nii;
 
9
// procedure Testdcm2nii;
10
10
procedure RecursiveFolderSearch (lFolderName,lOutDir: string; var lPrefs: TPrefs; lDepth: integer);
11
11
implementation
12
12
 
89
89
 end;
90
90
 lNewDir := lFolderName+PathDelim;
91
91
 //first check for deeper folders...
 
92
 {$IFDEF DEBUG}Msg('---Recursively searching '+lfoldername+' depth = '+inttostr(lDepth)); {$ENDIF}
92
93
 if lDepth < lPrefs.RecursiveFolderDepth then begin
93
94
    lDirStrings := TStringList.Create;
94
95
    {$IFDEF UNIX}
101
102
        if  (lSearchRec.Name <> '.') and (lSearchRec.Name <> '..') then begin
102
103
          lFileName := lNewDir+lSearchRec.Name;
103
104
          if DirExists(lFileName) then begin
104
 
             //Msg('+++ '+lFileName);
105
 
             if (lDepth = 0) and (lPrefs.RecursiveUseNameAppend) then begin
 
105
             (*if (lDepth = 0) and (lPrefs.RecursiveUseNameAppend) then begin
106
106
                     lPrefs.NameAppend := extractfilename(lSearchRec.Name)+'_';
107
107
                     Msg('recursive base folder '+lPrefs.NameAppend);
108
 
             end;
 
108
             end;  *)
109
109
             lDirStrings.Add(lNewDir+lSearchRec.Name);
110
110
          end;
111
111
        end;
114
114
    FindClose(lSearchRec);
115
115
    lDirStrings.Sort;
116
116
    if lDirStrings.Count > 0 then
117
 
     for lI := 0 to (lDirStrings.Count-1) do
118
 
         RecursiveFolderSearch(lDirStrings[lI],lOutDir,lPrefs,lDepth+1);
 
117
     for lI := 0 to (lDirStrings.Count-1) do begin
 
118
               if (lDepth = 0) and (lPrefs.RecursiveUseNameAppend) then begin
 
119
                       lPrefs.NameAppend := extractfilename(lDirStrings[lI])+'_';
 
120
                       Msg('recursive base folder '+lPrefs.NameAppend);
 
121
               end;
 
122
               RecursiveFolderSearch(lDirStrings[lI],lOutDir,lPrefs,lDepth+1);
 
123
     end;
119
124
    lDirStrings.free;
120
125
 end; //lDepth < lPrefs.RecursiveFolderDepth
121
126
 //next check for files in current folder...
189
194
{$ENDIF}
190
195
end; //proc ShowHelp
191
196
 
192
 
 procedure Testdcm2nii;
 
197
 (*procedure Testdcm2nii;
193
198
 var
194
199
   lIniName : string;
195
200
   lPrefs: TPrefs;
198
203
     IniFile(True,lIniName, lPrefs);
199
204
 
200
205
     ModifyAnalyze('C:\4d\4d.nii', lPrefs)
201
 
 end;
 
206
 end; *)
 
207
 
 
208
function CustomIni: boolean; //returns true if user specifies a custom ini file
 
209
var
 
210
  i: integer;
 
211
  lStr: string;
 
212
begin
 
213
  result := false;
 
214
  
 
215
  if (ParamCount < 1) then exit;
 
216
  for i := 1 to ParamCount do begin
 
217
    lStr := UpcaseStr(ParamStr(I));
 
218
                if (length(lStr)>1) and (lStr[1] = '-') and (lStr[2] = 'B') then
 
219
      result := true;
 
220
  end;
 
221
end;
202
222
 
203
223
procedure ProcessParamStrs;
204
224
var
217
237
  lHelpShown := false;
218
238
  lAbort := false;
219
239
  lSilent := false;
220
 
  lIniName := IniName;//DefaultsDir('')+ParseFileName(ExtractFilename(paramstr(0) ) )+'.ini';
221
 
  if fileexists (lIniName) then
 
240
  if not CustomIni then begin //if the user specifies a custom ini file, do not load the default file....
 
241
    lIniName := IniName;//DefaultsDir('')+ParseFileName(ExtractFilename(paramstr(0) ) )+'.ini';
 
242
    if fileexists (lIniName) then
222
243
     IniFile(True,lIniName, lPrefs)
223
 
  else
 
244
    else
224
245
      IniFile(True,changefileext(paramstr(0),'.init'), lPrefs); //this allows an administrator to create default startup
 
246
  end;
225
247
  lOutDir := '';
226
 
  //dcm2nii will open as default, dcm2niiz will default to gzip, dcm2nii3d will make 3d files..
 
248
  //dcm2nii will save nii as default, dcm2niiz will default to gzip, dcm2nii3d will make 3d files..
227
249
  lStr := UpcaseStr(FilenameWOExt(paramstr(0)));
228
250
  I := length(lStr);
229
251
  if I > 1 then begin
355
377
end;
356
378
 
357
379
end.
358
 
 
 
380
 
 
 
b'\\ No newline at end of file'