blob: f449d46ab2b104550bb536a37d76066ca8c96136 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
--- /var/tmp/portage/octave-epstk-2.1/work/epstk21/m/einit.m 2005-04-08 03:47:39.000000000 -0400
+++ /var/tmp/portage/octave-epstk-2.1/work/epstk21/m/einit.m 2006-03-20 13:04:55.000000000 -0500
@@ -6,19 +6,19 @@
%%
% Path of epstk-mfiles
-ePath='./'; % local directory
-%ePath='/usr/share/octave/site/m/octave-epstk/';%or e.g. on a linux system
+%ePath='./'; % local directory
+ePath='/usr/share/octave/site/m/octave-epstk/';%or e.g. on a linux system
% Read user-parameter-file (octave on linux system)
-%eInitUserFile=[system('echo -n $HOME') '/.epstkInit.m'];
-%if exist(eInitUserFile)~=2
-% [userParaText n]=etxtread([ePath 'einit.m']);
-% userParaStartPos=findstr(userParaText(1:1000),'% Parameter for epstk');
-% etxtwrit(userParaText(userParaStartPos(2):n),eInitUserFile);
-% clear userParaText
-%end
-%source(eInitUserFile);
-%return
+eInitUserFile=[system('echo -n $HOME') '/.epstkInit.m'];
+if exist(eInitUserFile)~=2
+ [userParaText n]=etxtread([ePath 'einit.m']);
+ userParaStartPos=findstr(userParaText(1:1000),'% Parameter for epstk');
+ etxtwrit(userParaText(userParaStartPos(2):n),eInitUserFile);
+ clear userParaText
+end
+source(eInitUserFile);
+return
% Parameter for epstk
% written by stefan.mueller@fgan.de (C) 2005
|
GitWeb
