Changeset 5005

Timestamp:

08/06/10 07:13:42 (15 years ago)

Author:

Mathieu Morlighem

Message:

TemporaryParameterFile now has a different name depending on the PID

File:

• issm/trunk/src/m/classes/public/parameterization/parameterize.m (modified) (2 diffs)

issm/trunk/src/m/classes/public/parameterization/parameterize.m

@@ -33 +33 @@
 
 %Try and run parameter file.
-copyfile(parametername,'TemporaryParameterFile.m');
+temporaryname=['TemporaryParameterFile' num2str(GetPId()) ];
+copyfile(parametername,[temporaryname '.m']);
 
 try,
-        TemporaryParameterFile
-        delete('TemporaryParameterFile.m');
+        eval(temporaryname);
+        delete([temporaryname '.m']);
 catch me,
-        delete('TemporaryParameterFile.m');
+        delete([temporaryname '.m']);
 
         %copy error message
@@ -46 +47 @@
         %rename parameter file
         for i=1:length(me2.stack)-1,
-                if (length(me2.stack(i).file)>=24 & strcmp(me2.stack(i).file(end-23:end),'TemporaryParameterFile.m'))
-                        me2.stack(i).file=[me2.stack(i).file(1:end-24) parametername];
+                if (strncmp(fliplr(me2.stack(i).file),fliplr([temporaryname '.m']),length(temporaryname)+2))
+                        me2.stack(i).file=parametername;
                 end
-                if strcmp(me2.stack(i).name,'TemporaryParameterFile'),
+                if strcmp(me2.stack(i).name,temporaryname),
                         me2.stack(i).name=parametername;
                 end
-                if strcmp(me2.stack(i).name,'parameterize'),
+                if strcmp(me2.stack(i).name,temporaryname),
                         %remove parameterize.m error "TemporaryParameterFile" misleading
                         me2.stack(i)=[];