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
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
|
% misc functions that should be in site.sl but they are not because we want
% jed to start up fast and they are not always needed.
%!%+
%\function{make_tmp_buffer_name}
%\synopsis{make_tmp_buffer_name}
%\usage{String make_tmp_buffer_name (String base);}
%\description
% Generates a unique buffer name using the string 'base' for the beginning
% of the name. The buffer name is returned. The buffer is not created.
%!%-
define make_tmp_buffer_name (tmp)
{
variable n = 0, buf;
variable t = time ();
tmp = strcat (tmp, time);
do
{
buf = sprintf("%s%d", tmp, n);
n++;
}
while (bufferp(buf));
buf;
}
define misc_do_write_to_file (str, file, write_function)
{
variable ret = -1;
variable buf = make_tmp_buffer_name (Null_String);
variable cbuf = whatbuf ();
setbuf (buf);
insert (str);
set_buffer_modified_flag (0);
push_mark ();
bob ();
#iffalse
ERROR_BLOCK
{
_clear_error ();
}
#endif
ret = @write_function (file);
setbuf (cbuf);
delbuf (buf);
ret;
}
%!%+
%\function{append_string_to_file}
%\synopsis{append_string_to_file}
%\usage{Integer append_string_to_file (String str, String file);}
%\description
% The string 'str' is appended to file 'file'. This function returns -1
% upon failure or the number of lines written upon success.
% See append_region_to_file for more information.
%!%-
define append_string_to_file (str, file)
{
misc_do_write_to_file (str, file, &append_region_to_file);
}
%!%+
%\function{write_string_to_file}
%\synopsis{write_string_to_file}
%\usage{Integer write_string_to_file (String str, String file);}
%\description
% The string 'str' is written to file 'file'. This function returns -1
% upon failure or the number of lines written upon success.
% This function does not modify a buffer visiting the file.
%!%-
define write_string_to_file (str, file)
{
misc_do_write_to_file (str, file, &write_region_to_file);
}
static define glob_to_regexp (glob)
{
variable regexp;
#ifdef UNIX
regexp = "^";
#else
regexp = "^\\C"; % case-insensitive
#endif
foreach (glob)
{
variable ch = ();
switch (ch)
{
case '.':
ch = "\\.";
}
{
case '?':
ch = ".";
}
{
case '*':
ch = ".*";
}
{
% default
ch = char (ch);
if (is_substr (ch, "[]\\^$+"))
ch = strcat ("\\", ch);
}
regexp = strcat (regexp, ch);
}
strcat (regexp, "$");
}
define directory (dirspec)
{
variable buf_dir, dir;
variable pattern;
variable files, i;
!if (strlen (dirspec))
dirspec = "*";
(,buf_dir,,) = getbuf_info ();
pattern = extract_filename (dirspec);
dir = substr (dirspec, 1, strlen (dirspec) - strlen (pattern));
dir = dircat (buf_dir, dir);
!if (strlen (dir))
dir = ".";
pattern = glob_to_regexp (pattern);
files = listdir (dir);
i = array_map (Int_Type, &string_match, files, pattern, 1);
files = files[where (i)];
% Push them onto the stack to mimick
foreach (files)
;
length (files);
}
|
