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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
function res=edit(macroname,ueditor)
// macroname : character string giving a macroname
// ueditor : external command for a text editor, unless ueditor="scipad"
//
// Copyright INRIA
default_editor="emacs -i -geometry 80x50+427+143 -font 9x15 "
[lhs,rhs]=argn(0)
//
finded=%f;tmp=%f
// tmpdir will have trailing / or \
tmpdir= pathconvert(TMPDIR);
if MSDOS then
default_editor="emacs ";
end
if rhs>=1 then // macroname is given
tmpfile= tmpdir+macroname+'.sci';
if funptr(macroname)<>0 then
error(macroname+' is a uneditable hard coded function')
end
libr=whereis(macroname)
if libr<>[] then // macroname is the name of a defined function
path=string(evstr(libr));
path=path(1)
// convert path according to MSDOS value and expand SCI
path=pathconvert(path);
fname= path+macroname+'.sci';
// check if writable
// if MSDOS is true we assume here that file is writable
if ~MSDOS then
rep=unix_g("if [ -w "+ fname +" ]; then echo ok ;else echo nok; fi")
if part(rep,1:3)=='nok' then
//if file is not writable create a copy in TMPDIR
//unix_s("cp "+ fname + " " + tmpfile ); fname=tmpfile;
txt = mgetl(fname,-1);fname=tmpfile; mputl(txt,fname);
tmp=%t
end
end
finded=%t
elseif isdef(macroname)
if typeof(evstr(macroname))=='function' then
// tour de force to keep the original function name
execstr("txt=tree2code(macr2tree("+macroname+"),%t)")
fname=tmpfile
mputl(txt,fname);
tmp=%t
finded=%t
end
end
else //no macroname specified
macroname='untitled',
tmpfile= tmpdir+macroname+'.sci';
finded=%f
end
if ~finded then // macroname is the name of an undefined function
fname=tmpfile
txt=['function []='+macroname+'()';'endfunction'];
mputl(txt,fname);
tmp=%t
end
// call the editor with the filename
if rhs<=1, ueditor =default_editor ;end
if ueditor=="scipad"
scipad(fname)
else
if MSDOS then
// white spaces in path
unix_s(ueditor+' ""'+fname+'""');
else
unix_s(ueditor+' '+fname);
end
end
//load the macro in scilab
if tmp then write(%io(2),'modified file may be found in '+fname),end
getf(fname,'c')
//return the loaded variable
res=evstr(macroname);
endfunction
|
