|
5732
|
1 ## Copyright (C) 2005 Bill Denney |
|
|
2 ## |
|
|
3 ## This file is part of Octave. |
|
|
4 ## |
|
|
5 ## Octave is free software; you can redistribute it and/or modify it |
|
|
6 ## under the terms of the GNU General Public License as published by |
|
|
7 ## the Free Software Foundation; either version 2, or (at your option) |
|
|
8 ## any later version. |
|
|
9 ## |
|
|
10 ## Octave is distributed in the hope that it will be useful, but |
|
|
11 ## WITHOUT ANY WARRANTY; without even the implied warranty of |
|
|
12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
|
|
13 ## General Public License for more details. |
|
|
14 ## |
|
|
15 ## You should have received a copy of the GNU General Public License |
|
|
16 ## along with Octave; see the file COPYING. If not, write to the Free |
|
|
17 ## Software Foundation, 59 Temple Place - Suite 330, Boston, MA |
|
|
18 ## 02111-1307, USA. |
|
|
19 |
|
|
20 ## -*- texinfo -*- |
|
|
21 ## @deftypefn {Function File} {} savepath (@var{file}) |
|
|
22 ## This function saves the current @code{LOADPATH} to your personal |
|
|
23 ## default initilization file or optionally the @var{file} that you |
|
|
24 ## specify. |
|
|
25 ## |
|
|
26 ## It will return 0 if it was successful. |
|
|
27 ## |
|
5736
|
28 ## @seealso{LOADPATH, addpath, rmpath, setpath} |
|
5732
|
29 ## @end deftypefn |
|
|
30 |
|
|
31 ## Author: Bill Denney <bill@givebillmoney.com> |
|
|
32 |
|
5736
|
33 ##PKGADD: mark_as_command savepath |
|
|
34 |
|
5732
|
35 function varargout = savepath (savefile) |
|
|
36 |
|
|
37 retval = 1; |
|
|
38 |
|
|
39 beginstring = "## Begin savepath auto-created section, do not edit"; |
|
|
40 endstring = "## End savepath auto-created section"; |
|
|
41 |
|
5733
|
42 if (nargin == 0) |
|
5735
|
43 savefile = tilde_expand ("~/.octaverc"); |
|
5732
|
44 endif |
|
|
45 |
|
5733
|
46 ## parse the file if it exists to see if we should replace a section |
|
|
47 ## or create a section |
|
5732
|
48 startline = 0; |
|
|
49 endline = 0; |
|
|
50 filelines = {}; |
|
|
51 if (exist (savefile) == 2) |
|
5733
|
52 ## read in all lines of the file |
|
5732
|
53 [fid, msg] = fopen (savefile, "rt"); |
|
|
54 if (fid < 0) |
|
|
55 error ("savepath: could not open savefile, %s: %s", savefile, msg); |
|
|
56 endif |
|
|
57 linenum = 0; |
|
|
58 while (linenum >= 0) |
|
|
59 result = fgetl (fid); |
|
|
60 if (isnumeric (result)) |
|
5733
|
61 ## end at the end of file |
|
5732
|
62 linenum = -1; |
|
|
63 else |
|
|
64 linenum = linenum + 1; |
|
|
65 filelines{linenum} = result; |
|
5733
|
66 ## find the first and last lines if they exist in the file |
|
5732
|
67 if (strcmp (result, beginstring)) |
|
|
68 startline = linenum; |
|
|
69 elseif (strcmp (result, endstring)) |
|
|
70 endline = linenum; |
|
|
71 endif |
|
|
72 endif |
|
|
73 endwhile |
|
|
74 closeread = fclose (fid); |
|
|
75 if (closeread < 0) |
|
|
76 error ("savepath: could not close savefile after reading, %s", savefile); |
|
|
77 endif |
|
|
78 endif |
|
|
79 |
|
5733
|
80 if (startline > endline || (startline > 0 && endline == 0)) |
|
5735
|
81 error ("savepath: unable to parse file, %s", savefile); |
|
5732
|
82 endif |
|
|
83 |
|
5733
|
84 ## put the current savepath lines into the file |
|
|
85 if (isempty (filelines) |
|
|
86 || (startline == 1 && endline == length (filelines))) |
|
|
87 ## savepath is the entire file |
|
5732
|
88 pre = post = {}; |
|
|
89 elseif (endline == 0) |
|
5733
|
90 ## drop the savepath statements at the end of the file |
|
5732
|
91 pre = filelines; |
|
|
92 post = {}; |
|
|
93 elseif (startline == 1) |
|
|
94 pre = {}; |
|
|
95 post = filelines(endline+1:end); |
|
|
96 elseif (endline == length(filelines)) |
|
|
97 pre = filelines(1:startline-1); |
|
|
98 post = {}; |
|
|
99 else |
|
5733
|
100 ## insert in the middle |
|
5732
|
101 pre = filelines(1:startline-1); |
|
|
102 post = filelines(endline+1:end); |
|
|
103 endif |
|
|
104 |
|
5733
|
105 ## write the results |
|
5732
|
106 [fid, msg] = fopen (savefile, "wt"); |
|
|
107 if (fid < 0) |
|
|
108 error ("savepath: unable to open file for writing, %s, %s", savefile, msg); |
|
|
109 end |
|
|
110 for i = 1:length (pre) |
|
|
111 fprintf (fid, "%s\n", pre{i}) |
|
|
112 endfor |
|
5736
|
113 |
|
|
114 fprintf (fid, "%s\n setpath (\"%s\");\n%s\n", |
|
|
115 beginstring, LOADPATH, endstring); |
|
|
116 |
|
5732
|
117 for i = 1:length (post) |
|
|
118 fprintf (fid, "%s\n", post{i}); |
|
|
119 endfor |
|
|
120 closeread = fclose (fid); |
|
|
121 if (closeread < 0) |
|
|
122 error ("savepath: could not close savefile after writing, %s", savefile); |
|
|
123 endif |
|
|
124 |
|
|
125 retval = 0; |
|
|
126 |
|
|
127 if (nargout == 1) |
|
|
128 varargout{1} = retval; |
|
|
129 endif |
|
|
130 |
|
|
131 endfunction |
