rev |
line source |
meillo@0
|
1 /*
|
meillo@0
|
2 * Editor
|
meillo@0
|
3 */
|
meillo@0
|
4
|
meillo@0
|
5 /*
|
meillo@0
|
6 * Changes by Gunnar Ritter, Freiburg i. Br., Germany, July 2003.
|
meillo@0
|
7 */
|
meillo@0
|
8 /* from Unix 32V /usr/src/cmd/ed.c */
|
meillo@0
|
9 /*
|
meillo@0
|
10 * Copyright(C) Caldera International Inc. 2001-2002. All rights reserved.
|
meillo@0
|
11 *
|
meillo@0
|
12 * Redistribution and use in source and binary forms, with or without
|
meillo@0
|
13 * modification, are permitted provided that the following conditions
|
meillo@0
|
14 * are met:
|
meillo@0
|
15 * Redistributions of source code and documentation must retain the
|
meillo@0
|
16 * above copyright notice, this list of conditions and the following
|
meillo@0
|
17 * disclaimer.
|
meillo@0
|
18 * Redistributions in binary form must reproduce the above copyright
|
meillo@0
|
19 * notice, this list of conditions and the following disclaimer in the
|
meillo@0
|
20 * documentation and/or other materials provided with the distribution.
|
meillo@0
|
21 * All advertising materials mentioning features or use of this software
|
meillo@0
|
22 * must display the following acknowledgement:
|
meillo@0
|
23 * This product includes software developed or owned by Caldera
|
meillo@0
|
24 * International, Inc.
|
meillo@0
|
25 * Neither the name of Caldera International, Inc. nor the names of
|
meillo@0
|
26 * other contributors may be used to endorse or promote products
|
meillo@0
|
27 * derived from this software without specific prior written permission.
|
meillo@0
|
28 *
|
meillo@0
|
29 * USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA
|
meillo@0
|
30 * INTERNATIONAL, INC. AND CONTRIBUTORS ``AS IS'' AND ANY EXPRESS OR
|
meillo@0
|
31 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
|
meillo@0
|
32 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
|
meillo@0
|
33 * ARE DISCLAIMED. IN NO EVENT SHALL CALDERA INTERNATIONAL, INC. BE
|
meillo@0
|
34 * LIABLE FOR ANY DIRECT, INDIRECT INCIDENTAL, SPECIAL, EXEMPLARY, OR
|
meillo@0
|
35 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
|
meillo@0
|
36 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
|
meillo@0
|
37 * BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
|
meillo@0
|
38 * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
|
meillo@0
|
39 * OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
|
meillo@0
|
40 * EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
meillo@0
|
41 */
|
meillo@0
|
42
|
meillo@0
|
43 #if __GNUC__ >= 3 && __GNUC_MINOR__ >= 4 || __GNUC__ >= 4
|
meillo@0
|
44 #define USED __attribute__ ((used))
|
meillo@0
|
45 #elif defined __GNUC__
|
meillo@0
|
46 #define USED __attribute__ ((unused))
|
meillo@0
|
47 #else
|
meillo@0
|
48 #define USED
|
meillo@0
|
49 #endif
|
meillo@0
|
50 #if defined (SU3)
|
meillo@0
|
51 static const char sccsid[] USED = "@(#)ed_su3.sl 1.99 (gritter) 7/27/06";
|
meillo@0
|
52 #elif defined (SUS)
|
meillo@0
|
53 static const char sccsid[] USED = "@(#)ed_sus.sl 1.99 (gritter) 7/27/06";
|
meillo@0
|
54 #elif defined (S42)
|
meillo@0
|
55 static const char sccsid[] USED = "@(#)ed_s42.sl 1.99 (gritter) 7/27/06";
|
meillo@0
|
56 #else /* !SU3, !SUS, !S42 */
|
meillo@0
|
57 static const char sccsid[] USED = "@(#)ed.sl 1.99 (gritter) 7/27/06";
|
meillo@0
|
58 #endif /* !SU3, !SUS, !S42 */
|
meillo@0
|
59
|
meillo@0
|
60 #include <sys/types.h>
|
meillo@0
|
61 #include <sys/stat.h>
|
meillo@0
|
62 #include <sys/wait.h>
|
meillo@0
|
63 #include <sys/stat.h>
|
meillo@0
|
64 #include <fcntl.h>
|
meillo@0
|
65 #include <unistd.h>
|
meillo@0
|
66 #include <time.h>
|
meillo@0
|
67 #include <string.h>
|
meillo@0
|
68 #include <stdlib.h>
|
meillo@0
|
69 #include <signal.h>
|
meillo@0
|
70 #include "sigset.h"
|
meillo@0
|
71 #include <termios.h>
|
meillo@0
|
72 #include <setjmp.h>
|
meillo@0
|
73 #include <libgen.h>
|
meillo@0
|
74 #include <inttypes.h>
|
meillo@0
|
75 #include <locale.h>
|
meillo@0
|
76 #include <wchar.h>
|
meillo@0
|
77 #include <ctype.h>
|
meillo@0
|
78 #include <wctype.h>
|
meillo@0
|
79 #include <limits.h>
|
meillo@0
|
80 #include <termios.h>
|
meillo@0
|
81 static int FNSIZE;
|
meillo@0
|
82 static int LBSIZE;
|
meillo@0
|
83 static int RHSIZE;
|
meillo@0
|
84 #define ESIZE 2048
|
meillo@0
|
85 static int GBSIZE;
|
meillo@0
|
86 #undef EOF
|
meillo@0
|
87 #define EOF -1
|
meillo@0
|
88 #define puts(s) xxputs(s)
|
meillo@0
|
89 #define getline(t, n) xxgetline(t, n)
|
meillo@0
|
90
|
meillo@0
|
91 #if (LONG_MAX > 017777777777L)
|
meillo@0
|
92 #define MAXCNT 0777777777777777777777L /* 2^63-1 */
|
meillo@0
|
93 #else
|
meillo@0
|
94 #define MAXCNT 017777777777L /* 2^31-1 */
|
meillo@0
|
95 #endif
|
meillo@0
|
96 #define BLKMSK (MAXCNT>>8) /* was 0377 */
|
meillo@0
|
97
|
meillo@0
|
98 #define READ 0
|
meillo@0
|
99 #define WRITE 1
|
meillo@0
|
100 #define EXIST 2
|
meillo@0
|
101
|
meillo@0
|
102 struct tabulator {
|
meillo@0
|
103 struct tabulator *t_nxt; /* next list element */
|
meillo@0
|
104 const char *t_str; /* tabulator string */
|
meillo@0
|
105 int t_tab; /* tab stop position */
|
meillo@0
|
106 int t_rep; /* repetitive tab count */
|
meillo@0
|
107 };
|
meillo@0
|
108
|
meillo@0
|
109 static int peekc;
|
meillo@0
|
110 static int lastc;
|
meillo@0
|
111 static char *savedfile;
|
meillo@0
|
112 static char *file;
|
meillo@0
|
113 static struct stat fstbuf;
|
meillo@0
|
114 static char *linebuf;
|
meillo@0
|
115 static char *rhsbuf;
|
meillo@0
|
116 static char expbuf[ESIZE + 4];
|
meillo@0
|
117 static long *zero;
|
meillo@0
|
118 static long *undzero;
|
meillo@0
|
119 static long *dot;
|
meillo@0
|
120 static long *unddot;
|
meillo@0
|
121 static long *dol;
|
meillo@0
|
122 static long *unddol;
|
meillo@0
|
123 static long *addr1;
|
meillo@0
|
124 static long *addr2;
|
meillo@0
|
125 static char *genbuf;
|
meillo@0
|
126 static long count;
|
meillo@0
|
127 static char *linebp;
|
meillo@0
|
128 static int ninbuf;
|
meillo@0
|
129 static int io;
|
meillo@0
|
130 static int ioeof;
|
meillo@0
|
131 static int pflag;
|
meillo@0
|
132 static char *wrtemp;
|
meillo@0
|
133 static uid_t myuid;
|
meillo@0
|
134 static void (*oldhup)(int);
|
meillo@0
|
135 static void (*oldquit)(int);
|
meillo@0
|
136 static void (*oldpipe)(int);
|
meillo@0
|
137 static int vflag = 1;
|
meillo@0
|
138 static int listf;
|
meillo@0
|
139 static int numbf;
|
meillo@0
|
140 static char *globp;
|
meillo@0
|
141 static int tfile = -1;
|
meillo@0
|
142 static long tline;
|
meillo@0
|
143 static char tfname[64];
|
meillo@0
|
144 static char ibuff[512];
|
meillo@0
|
145 static int iblock = -1;
|
meillo@0
|
146 static char obuff[512];
|
meillo@0
|
147 static int oblock = -1;
|
meillo@0
|
148 static int ichanged;
|
meillo@0
|
149 static int nleft;
|
meillo@0
|
150 static long *names;
|
meillo@0
|
151 static long *undnames;
|
meillo@0
|
152 static int anymarks;
|
meillo@0
|
153 static int subnewa;
|
meillo@0
|
154 static int fchange;
|
meillo@0
|
155 static int wrapp;
|
meillo@0
|
156 static unsigned nlall = 128;
|
meillo@0
|
157 static const char *progname;
|
meillo@0
|
158 static const char *prompt = "*";
|
meillo@0
|
159 static int Pflag;
|
meillo@0
|
160 static int prhelp;
|
meillo@0
|
161 static const char *prvmsg;
|
meillo@0
|
162 static int lastsig;
|
meillo@0
|
163 static int pipid = -1;
|
meillo@0
|
164 static int readop;
|
meillo@0
|
165 static int status;
|
meillo@0
|
166 static int mb_cur_max;
|
meillo@0
|
167 static int needsub;
|
meillo@0
|
168 static int insub;
|
meillo@0
|
169 static struct tabulator *tabstops;
|
meillo@0
|
170 static int maxlength;
|
meillo@0
|
171 static int rspec;
|
meillo@0
|
172 static int Nflag;
|
meillo@0
|
173 static int bcount = 22;
|
meillo@0
|
174 static int ocount = 11;
|
meillo@0
|
175
|
meillo@0
|
176 static jmp_buf savej;
|
meillo@0
|
177
|
meillo@2
|
178 static void usage(char);
|
meillo@0
|
179 static void commands(void);
|
meillo@0
|
180 static long *address(void);
|
meillo@0
|
181 static void setdot(void);
|
meillo@0
|
182 static void setall(void);
|
meillo@0
|
183 static void setnoaddr(void);
|
meillo@0
|
184 static void nonzero(void);
|
meillo@0
|
185 static void newline(void);
|
meillo@0
|
186 static void filename(int);
|
meillo@0
|
187 static void exfile(void);
|
meillo@0
|
188 static void onintr(int);
|
meillo@0
|
189 static void onhup(int);
|
meillo@0
|
190 static void onpipe(int);
|
meillo@0
|
191 static void error(const char *);
|
meillo@0
|
192 static void error2(const char *, const char *);
|
meillo@0
|
193 static void errput(const char *, const char *);
|
meillo@0
|
194 static int getchr(void);
|
meillo@0
|
195 static int gettty(void);
|
meillo@0
|
196 static long getnum(void);
|
meillo@0
|
197 static int getfile(void);
|
meillo@0
|
198 static void putfile(void);
|
meillo@0
|
199 static int append(int (*)(void), long *);
|
meillo@0
|
200 static void callunix(void);
|
meillo@0
|
201 static char *readcmd(void);
|
meillo@0
|
202 static void quit(int);
|
meillo@0
|
203 static void delete(void);
|
meillo@0
|
204 static void rdelete(long *, long *);
|
meillo@0
|
205 static void gdelete(void);
|
meillo@0
|
206 static char *getline(long, int);
|
meillo@0
|
207 static int putline(void);
|
meillo@0
|
208 static char *getblock(long, long);
|
meillo@0
|
209 static void blkio(long, char *, int);
|
meillo@0
|
210 static void init(void);
|
meillo@0
|
211 static void global(int, int);
|
meillo@0
|
212 static void globrd(char **, int);
|
meillo@0
|
213 static void join(void);
|
meillo@0
|
214 static void substitute(int);
|
meillo@0
|
215 static int compsub(void);
|
meillo@0
|
216 static int getsub(void);
|
meillo@0
|
217 static int dosub(int);
|
meillo@0
|
218 static int place(int, const char *, const char *);
|
meillo@0
|
219 static void move(int);
|
meillo@0
|
220 static void reverse(long *, long *);
|
meillo@0
|
221 static int getcopy(void);
|
meillo@0
|
222 static int execute(int, long *, int);
|
meillo@0
|
223 static void cmplerr(int);
|
meillo@0
|
224 static void doprnt(long *, long *);
|
meillo@0
|
225 static void putd(long);
|
meillo@0
|
226 static void puts(const char *);
|
meillo@0
|
227 static void nlputs(const char *);
|
meillo@0
|
228 static void list(const char *);
|
meillo@0
|
229 static int lstchr(int);
|
meillo@0
|
230 static void putstr(const char *);
|
meillo@0
|
231 static void putchr(int);
|
meillo@0
|
232 static void checkpoint(void);
|
meillo@0
|
233 static void undo(void);
|
meillo@0
|
234 static int maketf(int);
|
meillo@0
|
235 static int creatf(const char *);
|
meillo@0
|
236 static int sopen(const char *, int);
|
meillo@0
|
237 static void sclose(int);
|
meillo@0
|
238 static void fspec(const char *);
|
meillo@0
|
239 static const char *ftok(const char **);
|
meillo@0
|
240 static struct tabulator *tabstring(const char *);
|
meillo@0
|
241 static void freetabs(void);
|
meillo@0
|
242 static void expand(const char *);
|
meillo@0
|
243 static void growlb(const char *);
|
meillo@0
|
244 static void growrhs(const char *);
|
meillo@0
|
245 static void growfn(const char *);
|
meillo@0
|
246 static void help(void);
|
meillo@0
|
247
|
meillo@0
|
248 #define INIT
|
meillo@0
|
249 #define GETC() getchr()
|
meillo@0
|
250 #define UNGETC(c) (peekc = c)
|
meillo@0
|
251 #define PEEKC() (peekc = getchr())
|
meillo@0
|
252 #define RETURN(c) return c
|
meillo@0
|
253 #define ERROR(c) cmplerr(c)
|
meillo@0
|
254 static wint_t GETWC(char *);
|
meillo@0
|
255
|
meillo@0
|
256 #if defined (SUS) || defined (S42) || defined (SU3)
|
meillo@0
|
257
|
meillo@0
|
258 #include <regex.h>
|
meillo@0
|
259
|
meillo@0
|
260 #define NBRA 9
|
meillo@0
|
261
|
meillo@0
|
262 static char *braslist[NBRA];
|
meillo@0
|
263 static char *braelist[NBRA];
|
meillo@0
|
264 static char *loc1, *loc2, *locs;
|
meillo@0
|
265 static int nbra;
|
meillo@0
|
266 static int circf;
|
meillo@0
|
267 static int nodelim;
|
meillo@0
|
268
|
meillo@0
|
269 static char *compile(char *, char *, const char *, int);
|
meillo@0
|
270 static int step(const char *, const char *);
|
meillo@0
|
271
|
meillo@0
|
272 #else /* !SUS, !S42, !SU3 */
|
meillo@0
|
273
|
meillo@0
|
274 #include <regexp.h>
|
meillo@0
|
275
|
meillo@0
|
276 #endif /* !SUS, !S42, !SU3 */
|
meillo@0
|
277
|
meillo@0
|
278 int
|
meillo@0
|
279 main(int argc, char **argv)
|
meillo@0
|
280 {
|
meillo@0
|
281 register int i;
|
meillo@0
|
282 void (*oldintr)(int);
|
meillo@0
|
283
|
meillo@0
|
284 progname = basename(argv[0]);
|
meillo@0
|
285 #if defined (SUS) || defined (S42) || defined (SU3)
|
meillo@0
|
286 setlocale(LC_COLLATE, "");
|
meillo@0
|
287 #endif
|
meillo@0
|
288 setlocale(LC_CTYPE, "");
|
meillo@0
|
289 mb_cur_max = MB_CUR_MAX;
|
meillo@0
|
290 myuid = getuid();
|
meillo@0
|
291 oldquit = sigset(SIGQUIT, SIG_IGN);
|
meillo@0
|
292 oldhup = sigset(SIGHUP, SIG_IGN);
|
meillo@0
|
293 oldintr = sigset(SIGINT, SIG_IGN);
|
meillo@0
|
294 if (sigset(SIGTERM, SIG_IGN) != SIG_IGN)
|
meillo@0
|
295 sigset(SIGTERM, quit);
|
meillo@0
|
296 oldpipe = sigset(SIGPIPE, onpipe);
|
meillo@0
|
297 argv++;
|
meillo@2
|
298 if (argc > 1 && **argv=='-') {
|
meillo@2
|
299 if ((*argv)[1]=='\0') {
|
meillo@0
|
300 vflag = 0;
|
meillo@2
|
301 } else {
|
meillo@2
|
302 usage((*argv)[1]);
|
meillo@0
|
303 }
|
meillo@2
|
304 argv++;
|
meillo@0
|
305 argc--;
|
meillo@0
|
306 }
|
meillo@0
|
307
|
meillo@0
|
308 growfn("no space");
|
meillo@0
|
309 if (argc>1) {
|
meillo@0
|
310 i = -1;
|
meillo@0
|
311 do
|
meillo@0
|
312 if (++i >= FNSIZE)
|
meillo@0
|
313 growfn("maximum of characters in "
|
meillo@0
|
314 "file names reached");
|
meillo@0
|
315 while (savedfile[i] = (*argv)[i]);
|
meillo@0
|
316 globp = "e";
|
meillo@0
|
317 }
|
meillo@0
|
318 names = malloc(26*sizeof *names);
|
meillo@0
|
319 undnames = malloc(26*sizeof *undnames);
|
meillo@0
|
320 zero = malloc(nlall*sizeof *zero);
|
meillo@0
|
321 if ((undzero = malloc(nlall*sizeof *undzero)) == NULL)
|
meillo@0
|
322 puts("no memory for undo");
|
meillo@0
|
323 growlb("no space");
|
meillo@0
|
324 growrhs("no space");
|
meillo@0
|
325 init();
|
meillo@0
|
326 if (oldintr != SIG_IGN)
|
meillo@0
|
327 sigset(SIGINT, onintr);
|
meillo@0
|
328 if (oldhup != SIG_IGN)
|
meillo@0
|
329 sigset(SIGHUP, onhup);
|
meillo@0
|
330 setjmp(savej);
|
meillo@0
|
331 if (lastsig) {
|
meillo@0
|
332 sigrelse(lastsig);
|
meillo@0
|
333 lastsig = 0;
|
meillo@0
|
334 }
|
meillo@0
|
335 commands();
|
meillo@0
|
336 quit(0);
|
meillo@0
|
337 /*NOTREACHED*/
|
meillo@0
|
338 return 0;
|
meillo@0
|
339 }
|
meillo@0
|
340
|
meillo@0
|
341 static void
|
meillo@2
|
342 usage(char c)
|
meillo@0
|
343 {
|
meillo@0
|
344 if (c) {
|
meillo@0
|
345 write(2, progname, strlen(progname));
|
meillo@2
|
346 write(2, ": illegal option -- ", 20);
|
meillo@0
|
347 write(2, &c, 1);
|
meillo@0
|
348 write(2, "\n", 1);
|
meillo@0
|
349 }
|
meillo@0
|
350 write(2, "usage: ", 7);
|
meillo@0
|
351 write(2, progname, strlen(progname));
|
meillo@2
|
352 write(2, " [-] [file]\n", 12);
|
meillo@0
|
353 exit(2);
|
meillo@0
|
354 }
|
meillo@0
|
355
|
meillo@0
|
356 static void
|
meillo@0
|
357 commands(void)
|
meillo@0
|
358 {
|
meillo@0
|
359 register long *a1;
|
meillo@0
|
360 register int c;
|
meillo@0
|
361 int n;
|
meillo@0
|
362
|
meillo@0
|
363 for (;;) {
|
meillo@0
|
364 if (pflag) {
|
meillo@0
|
365 pflag = 0;
|
meillo@0
|
366 addr1 = addr2 = dot;
|
meillo@0
|
367 goto print;
|
meillo@0
|
368 }
|
meillo@0
|
369 if (Pflag && globp == NULL)
|
meillo@0
|
370 write(1, prompt, strlen(prompt));
|
meillo@0
|
371 addr1 = 0;
|
meillo@0
|
372 addr2 = 0;
|
meillo@0
|
373 switch (c = getchr()) {
|
meillo@0
|
374 case ',':
|
meillo@0
|
375 case ';':
|
meillo@0
|
376 addr2 = c == ',' ? zero+1 : dot;
|
meillo@0
|
377 if (((peekc = getchr()) < '0' || peekc > '9') &&
|
meillo@0
|
378 peekc != ' ' && peekc != '\t' &&
|
meillo@0
|
379 peekc != '+' && peekc != '-' &&
|
meillo@0
|
380 peekc != '^' && peekc != '?' &&
|
meillo@0
|
381 peekc != '/' && peekc != '$' &&
|
meillo@0
|
382 peekc != '.' && peekc != '\'') {
|
meillo@0
|
383 addr1 = addr2;
|
meillo@0
|
384 a1 = dol;
|
meillo@0
|
385 goto loop;
|
meillo@0
|
386 }
|
meillo@0
|
387 break;
|
meillo@0
|
388 default:
|
meillo@0
|
389 peekc = c;
|
meillo@0
|
390 }
|
meillo@0
|
391 do {
|
meillo@0
|
392 addr1 = addr2;
|
meillo@0
|
393 if ((a1 = address())==0) {
|
meillo@0
|
394 c = getchr();
|
meillo@0
|
395 break;
|
meillo@0
|
396 }
|
meillo@0
|
397 loop: addr2 = a1;
|
meillo@0
|
398 if ((c=getchr()) == ';') {
|
meillo@0
|
399 c = ',';
|
meillo@0
|
400 dot = a1;
|
meillo@0
|
401 }
|
meillo@0
|
402 } while (c==',');
|
meillo@0
|
403 if (addr1==0)
|
meillo@0
|
404 addr1 = addr2;
|
meillo@0
|
405 switch(c) {
|
meillo@0
|
406
|
meillo@0
|
407 case 'a':
|
meillo@0
|
408 setdot();
|
meillo@0
|
409 newline();
|
meillo@0
|
410 checkpoint();
|
meillo@0
|
411 append(gettty, addr2);
|
meillo@0
|
412 continue;
|
meillo@0
|
413
|
meillo@0
|
414 case 'c':
|
meillo@0
|
415 #if defined (SU3)
|
meillo@0
|
416 if (addr1 == zero && addr1+1 <= dol) {
|
meillo@0
|
417 if (addr1 == addr2)
|
meillo@0
|
418 addr2++;
|
meillo@0
|
419 addr1++;
|
meillo@0
|
420 }
|
meillo@0
|
421 #endif /* SU3 */
|
meillo@0
|
422 delete();
|
meillo@0
|
423 append(gettty, addr1-1);
|
meillo@0
|
424 #if defined (SUS) || defined (SU3)
|
meillo@0
|
425 if (dot == addr1-1 && addr1 <= dol)
|
meillo@0
|
426 dot = addr1;
|
meillo@0
|
427 #endif /* SUS || SU3 */
|
meillo@0
|
428 continue;
|
meillo@0
|
429
|
meillo@0
|
430 case 'd':
|
meillo@0
|
431 delete();
|
meillo@0
|
432 continue;
|
meillo@0
|
433
|
meillo@0
|
434 case 'E':
|
meillo@0
|
435 fchange = 0;
|
meillo@0
|
436 c = 'e';
|
meillo@0
|
437 case 'e':
|
meillo@0
|
438 setnoaddr();
|
meillo@0
|
439 if (vflag && fchange) {
|
meillo@0
|
440 fchange = 0;
|
meillo@0
|
441 error("warning: expecting `w'");
|
meillo@0
|
442 }
|
meillo@0
|
443 filename(c);
|
meillo@0
|
444 init();
|
meillo@0
|
445 addr2 = zero;
|
meillo@0
|
446 goto caseread;
|
meillo@0
|
447
|
meillo@0
|
448 case 'f':
|
meillo@0
|
449 setnoaddr();
|
meillo@0
|
450 filename(c);
|
meillo@0
|
451 puts(savedfile);
|
meillo@0
|
452 continue;
|
meillo@0
|
453
|
meillo@0
|
454 case 'g':
|
meillo@0
|
455 global(1, 0);
|
meillo@0
|
456 continue;
|
meillo@0
|
457
|
meillo@0
|
458 case 'G':
|
meillo@0
|
459 global(1, 1);
|
meillo@0
|
460 continue;
|
meillo@0
|
461
|
meillo@0
|
462 case 'H':
|
meillo@0
|
463 prhelp = !prhelp;
|
meillo@0
|
464 /*FALLTHRU*/
|
meillo@0
|
465
|
meillo@0
|
466 case 'h':
|
meillo@0
|
467 if ((peekc = getchr()) == 'e') {
|
meillo@0
|
468 peekc = 0;
|
meillo@0
|
469 if (getchr() != 'l' || getchr() != 'p' ||
|
meillo@0
|
470 getchr() != '\n')
|
meillo@0
|
471 error("illegal suffix");
|
meillo@0
|
472 setnoaddr();
|
meillo@0
|
473 help();
|
meillo@0
|
474 continue;
|
meillo@0
|
475 }
|
meillo@0
|
476 newline();
|
meillo@0
|
477 setnoaddr();
|
meillo@0
|
478 if (prvmsg)
|
meillo@0
|
479 puts(prvmsg);
|
meillo@0
|
480 continue;
|
meillo@0
|
481
|
meillo@0
|
482 case 'i':
|
meillo@0
|
483 setdot();
|
meillo@0
|
484 #if defined (SU3)
|
meillo@0
|
485 if (addr1 == zero) {
|
meillo@0
|
486 if (addr1 == addr2)
|
meillo@0
|
487 addr2++;
|
meillo@0
|
488 addr1++;
|
meillo@0
|
489 if (dol != zero)
|
meillo@0
|
490 nonzero();
|
meillo@0
|
491 } else
|
meillo@0
|
492 #endif /* SU3 */
|
meillo@0
|
493 nonzero();
|
meillo@0
|
494 newline();
|
meillo@0
|
495 checkpoint();
|
meillo@0
|
496 append(gettty, addr2-1);
|
meillo@0
|
497 if (dot == addr2-1)
|
meillo@0
|
498 dot++;
|
meillo@0
|
499 continue;
|
meillo@0
|
500
|
meillo@0
|
501
|
meillo@0
|
502 case 'j':
|
meillo@0
|
503 if (addr2==0) {
|
meillo@0
|
504 addr1 = dot;
|
meillo@0
|
505 addr2 = dot+1;
|
meillo@0
|
506 }
|
meillo@0
|
507 setdot();
|
meillo@0
|
508 newline();
|
meillo@0
|
509 nonzero();
|
meillo@0
|
510 checkpoint();
|
meillo@0
|
511 if (addr1 != addr2)
|
meillo@0
|
512 join();
|
meillo@0
|
513 continue;
|
meillo@0
|
514
|
meillo@0
|
515 case 'k':
|
meillo@0
|
516 if ((c = getchr()) < 'a' || c > 'z')
|
meillo@0
|
517 error("mark not lower case");
|
meillo@0
|
518 newline();
|
meillo@0
|
519 setdot();
|
meillo@0
|
520 nonzero();
|
meillo@0
|
521 names[c-'a'] = *addr2 & ~01;
|
meillo@0
|
522 anymarks |= 01;
|
meillo@0
|
523 continue;
|
meillo@0
|
524
|
meillo@0
|
525 case 'm':
|
meillo@0
|
526 move(0);
|
meillo@0
|
527 continue;
|
meillo@0
|
528
|
meillo@0
|
529 case '\n':
|
meillo@0
|
530 if (addr2==0)
|
meillo@0
|
531 addr2 = dot+1;
|
meillo@0
|
532 addr1 = addr2;
|
meillo@0
|
533 goto print;
|
meillo@0
|
534
|
meillo@0
|
535 case 'n':
|
meillo@0
|
536 numbf = 1;
|
meillo@0
|
537 newline();
|
meillo@0
|
538 goto print;
|
meillo@0
|
539
|
meillo@0
|
540 case 'N':
|
meillo@0
|
541 newline();
|
meillo@0
|
542 setnoaddr();
|
meillo@0
|
543 Nflag = !Nflag;
|
meillo@0
|
544 continue;
|
meillo@0
|
545
|
meillo@0
|
546 case 'b':
|
meillo@0
|
547 case 'o':
|
meillo@0
|
548 n = getnum();
|
meillo@0
|
549 newline();
|
meillo@0
|
550 setdot();
|
meillo@0
|
551 nonzero();
|
meillo@0
|
552 if (n >= 0) {
|
meillo@0
|
553 if (c == 'b')
|
meillo@0
|
554 bcount = n;
|
meillo@0
|
555 else
|
meillo@0
|
556 ocount = n;
|
meillo@0
|
557 }
|
meillo@0
|
558 if (c == 'b') {
|
meillo@0
|
559 a1 = addr2+bcount > dol ? dol : addr2 + bcount;
|
meillo@0
|
560 doprnt(addr1, a1);
|
meillo@0
|
561 dot = a1;
|
meillo@0
|
562 } else {
|
meillo@0
|
563 a1 = addr2+ocount > dol ? dol : addr2 + ocount;
|
meillo@0
|
564 doprnt(addr2-ocount<zero+1?zero+1:addr2-ocount, a1);
|
meillo@0
|
565 dot = addr2;
|
meillo@0
|
566 }
|
meillo@0
|
567 continue;
|
meillo@0
|
568
|
meillo@0
|
569 case 'l':
|
meillo@0
|
570 listf++;
|
meillo@0
|
571 case 'p':
|
meillo@0
|
572 newline();
|
meillo@0
|
573 print:
|
meillo@0
|
574 setdot();
|
meillo@0
|
575 nonzero();
|
meillo@0
|
576 doprnt(addr1, addr2);
|
meillo@0
|
577 dot = addr2;
|
meillo@0
|
578 continue;
|
meillo@0
|
579
|
meillo@0
|
580 case 'P':
|
meillo@0
|
581 setnoaddr();
|
meillo@0
|
582 newline();
|
meillo@0
|
583 Pflag = !Pflag;
|
meillo@0
|
584 continue;
|
meillo@0
|
585
|
meillo@0
|
586 case 'Q':
|
meillo@0
|
587 fchange = 0;
|
meillo@0
|
588 case 'q':
|
meillo@0
|
589 setnoaddr();
|
meillo@0
|
590 newline();
|
meillo@0
|
591 quit(0);
|
meillo@0
|
592
|
meillo@0
|
593 case 'r':
|
meillo@0
|
594 filename(c);
|
meillo@0
|
595 caseread:
|
meillo@0
|
596 if ((io = sopen(file, READ)) < 0) {
|
meillo@0
|
597 lastc = '\n';
|
meillo@0
|
598 error2("cannot open input file", file);
|
meillo@0
|
599 }
|
meillo@0
|
600 ioeof = 0;
|
meillo@0
|
601 setall();
|
meillo@0
|
602 ninbuf = 0;
|
meillo@0
|
603 if (c == 'r')
|
meillo@0
|
604 checkpoint();
|
meillo@0
|
605 n = zero != dol;
|
meillo@0
|
606 rspec = (c == 'e' || !n) && file[0] != '!';
|
meillo@0
|
607 append(getfile, addr2);
|
meillo@0
|
608 rspec = 0;
|
meillo@0
|
609 exfile();
|
meillo@0
|
610 fchange = n;
|
meillo@0
|
611 continue;
|
meillo@0
|
612
|
meillo@0
|
613 case 's':
|
meillo@0
|
614 setdot();
|
meillo@0
|
615 nonzero();
|
meillo@0
|
616 substitute(globp!=0);
|
meillo@0
|
617 continue;
|
meillo@0
|
618
|
meillo@0
|
619 case 't':
|
meillo@0
|
620 move(1);
|
meillo@0
|
621 continue;
|
meillo@0
|
622
|
meillo@0
|
623 case 'u':
|
meillo@0
|
624 setdot();
|
meillo@0
|
625 newline();
|
meillo@0
|
626 if (unddot == NULL)
|
meillo@0
|
627 error("nothing to undo");
|
meillo@0
|
628 undo();
|
meillo@0
|
629 continue;
|
meillo@0
|
630
|
meillo@0
|
631 case 'v':
|
meillo@0
|
632 global(0, 0);
|
meillo@0
|
633 continue;
|
meillo@0
|
634
|
meillo@0
|
635 case 'V':
|
meillo@0
|
636 global(0, 1);
|
meillo@0
|
637 continue;
|
meillo@0
|
638
|
meillo@0
|
639 case 'W':
|
meillo@0
|
640 wrapp++;
|
meillo@0
|
641 case 'w':
|
meillo@0
|
642 write:
|
meillo@0
|
643 setall();
|
meillo@0
|
644 if (zero != dol)
|
meillo@0
|
645 nonzero();
|
meillo@0
|
646 filename(c);
|
meillo@0
|
647 if(!wrapp ||
|
meillo@0
|
648 ((io = open(file,O_WRONLY|O_APPEND)) == -1) ||
|
meillo@0
|
649 ((lseek(io, 0, SEEK_END)) == -1)) {
|
meillo@0
|
650 struct stat st;
|
meillo@0
|
651 if (lstat(file, &st) == 0 &&
|
meillo@0
|
652 (st.st_mode&S_IFMT) == S_IFREG &&
|
meillo@0
|
653 st.st_nlink == 1 &&
|
meillo@0
|
654 (myuid==0 || myuid==st.st_uid)) {
|
meillo@0
|
655 char *cp, *tp;
|
meillo@0
|
656 int nio;
|
meillo@0
|
657 if ((io = sopen(file, EXIST)) < 0)
|
meillo@0
|
658 error("cannot create output file");
|
meillo@0
|
659 if ((wrtemp = malloc(strlen(file)+8)) == NULL)
|
meillo@0
|
660 error("out of memory");
|
meillo@0
|
661 for (cp = file, tp = wrtemp; *cp; cp++)
|
meillo@0
|
662 *tp++ = *cp;
|
meillo@0
|
663 while (tp > wrtemp && tp[-1] != '/')
|
meillo@0
|
664 tp--;
|
meillo@0
|
665 for (cp = "\7XXXXXX"; *cp; cp++)
|
meillo@0
|
666 *tp++ = *cp;
|
meillo@0
|
667 *tp = '\0';
|
meillo@0
|
668 if ((nio = mkstemp(wrtemp)) < 0) {
|
meillo@0
|
669 free(wrtemp);
|
meillo@0
|
670 wrtemp = NULL;
|
meillo@0
|
671 ftruncate(io, 0);
|
meillo@0
|
672 } else {
|
meillo@0
|
673 close(io);
|
meillo@0
|
674 io = nio;
|
meillo@0
|
675 }
|
meillo@0
|
676 } else {
|
meillo@0
|
677 if ((io = sopen(file, WRITE)) < 0)
|
meillo@0
|
678 error("cannot create output file");
|
meillo@0
|
679 }
|
meillo@0
|
680 }
|
meillo@0
|
681 if (zero != dol) {
|
meillo@0
|
682 ioeof = 0;
|
meillo@0
|
683 wrapp = 0;
|
meillo@0
|
684 putfile();
|
meillo@0
|
685 }
|
meillo@0
|
686 exfile();
|
meillo@0
|
687 if (addr1==zero+1 && addr2==dol || addr1==addr2 && dol==zero)
|
meillo@0
|
688 fchange = 0;
|
meillo@0
|
689 if (c == 'z')
|
meillo@0
|
690 quit(0);
|
meillo@0
|
691 continue;
|
meillo@0
|
692
|
meillo@0
|
693 case 'z':
|
meillo@0
|
694 if ((peekc=getchr()) != '\n')
|
meillo@0
|
695 error("illegal suffix");
|
meillo@0
|
696 setnoaddr();
|
meillo@0
|
697 goto write;
|
meillo@0
|
698
|
meillo@0
|
699 case '=':
|
meillo@0
|
700 setall();
|
meillo@0
|
701 newline();
|
meillo@0
|
702 putd((addr2-zero)&MAXCNT);
|
meillo@0
|
703 putchr('\n');
|
meillo@0
|
704 continue;
|
meillo@0
|
705
|
meillo@0
|
706 case '!':
|
meillo@0
|
707 callunix();
|
meillo@0
|
708 continue;
|
meillo@0
|
709
|
meillo@0
|
710 case EOF:
|
meillo@0
|
711 return;
|
meillo@0
|
712
|
meillo@0
|
713 }
|
meillo@0
|
714 error("unknown command");
|
meillo@0
|
715 }
|
meillo@0
|
716 }
|
meillo@0
|
717
|
meillo@0
|
718 static long *
|
meillo@0
|
719 address(void)
|
meillo@0
|
720 {
|
meillo@0
|
721 register long *a1;
|
meillo@0
|
722 register int minus, c;
|
meillo@0
|
723 int n, relerr;
|
meillo@0
|
724
|
meillo@0
|
725 minus = 0;
|
meillo@0
|
726 a1 = 0;
|
meillo@0
|
727 for (;;) {
|
meillo@0
|
728 c = getchr();
|
meillo@0
|
729 if ('0'<=c && c<='9') {
|
meillo@0
|
730 n = 0;
|
meillo@0
|
731 do {
|
meillo@0
|
732 n *= 10;
|
meillo@0
|
733 n += c - '0';
|
meillo@0
|
734 } while ((c = getchr())>='0' && c<='9');
|
meillo@0
|
735 peekc = c;
|
meillo@0
|
736 if (a1==0)
|
meillo@0
|
737 a1 = zero;
|
meillo@0
|
738 if (minus<0)
|
meillo@0
|
739 n = -n;
|
meillo@0
|
740 a1 += n;
|
meillo@0
|
741 minus = 0;
|
meillo@0
|
742 continue;
|
meillo@0
|
743 }
|
meillo@0
|
744 relerr = 0;
|
meillo@0
|
745 if (a1 || minus)
|
meillo@0
|
746 relerr++;
|
meillo@0
|
747 switch(c) {
|
meillo@0
|
748 case ' ':
|
meillo@0
|
749 case '\t':
|
meillo@0
|
750 continue;
|
meillo@0
|
751
|
meillo@0
|
752 case '+':
|
meillo@0
|
753 minus++;
|
meillo@0
|
754 if (a1==0)
|
meillo@0
|
755 a1 = dot;
|
meillo@0
|
756 continue;
|
meillo@0
|
757
|
meillo@0
|
758 case '-':
|
meillo@0
|
759 case '^':
|
meillo@0
|
760 minus--;
|
meillo@0
|
761 if (a1==0)
|
meillo@0
|
762 a1 = dot;
|
meillo@0
|
763 continue;
|
meillo@0
|
764
|
meillo@0
|
765 case '?':
|
meillo@0
|
766 case '/':
|
meillo@0
|
767 compile(NULL, expbuf, &expbuf[ESIZE], c);
|
meillo@0
|
768 a1 = dot;
|
meillo@0
|
769 for (;;) {
|
meillo@0
|
770 if (c=='/') {
|
meillo@0
|
771 a1++;
|
meillo@0
|
772 if (a1 > dol)
|
meillo@0
|
773 a1 = zero;
|
meillo@0
|
774 } else {
|
meillo@0
|
775 a1--;
|
meillo@0
|
776 if (a1 < zero)
|
meillo@0
|
777 a1 = dol;
|
meillo@0
|
778 }
|
meillo@0
|
779 if (execute(0, a1, 0))
|
meillo@0
|
780 break;
|
meillo@0
|
781 if (a1==dot)
|
meillo@0
|
782 error("search string not found");
|
meillo@0
|
783 }
|
meillo@0
|
784 break;
|
meillo@0
|
785
|
meillo@0
|
786 case '$':
|
meillo@0
|
787 a1 = dol;
|
meillo@0
|
788 break;
|
meillo@0
|
789
|
meillo@0
|
790 case '.':
|
meillo@0
|
791 a1 = dot;
|
meillo@0
|
792 break;
|
meillo@0
|
793
|
meillo@0
|
794 case '\'':
|
meillo@0
|
795 if ((c = getchr()) < 'a' || c > 'z')
|
meillo@0
|
796 error("mark not lower case");
|
meillo@0
|
797 for (a1=zero; a1<=dol; a1++)
|
meillo@0
|
798 if (names[c-'a'] == (*a1 & ~01))
|
meillo@0
|
799 break;
|
meillo@0
|
800 break;
|
meillo@0
|
801
|
meillo@0
|
802 default:
|
meillo@0
|
803 peekc = c;
|
meillo@0
|
804 if (a1==0)
|
meillo@0
|
805 return(0);
|
meillo@0
|
806 a1 += minus;
|
meillo@0
|
807 if (a1<zero || a1>dol)
|
meillo@0
|
808 error("line out of range");
|
meillo@0
|
809 return(a1);
|
meillo@0
|
810 }
|
meillo@0
|
811 if (relerr)
|
meillo@0
|
812 error("bad number");
|
meillo@0
|
813 }
|
meillo@0
|
814 }
|
meillo@0
|
815
|
meillo@0
|
816 static void
|
meillo@0
|
817 setdot(void)
|
meillo@0
|
818 {
|
meillo@0
|
819 if (addr2 == 0)
|
meillo@0
|
820 addr1 = addr2 = dot;
|
meillo@0
|
821 if (addr1 > addr2)
|
meillo@0
|
822 error("bad range");
|
meillo@0
|
823 }
|
meillo@0
|
824
|
meillo@0
|
825 static void
|
meillo@0
|
826 setall(void)
|
meillo@0
|
827 {
|
meillo@0
|
828 if (addr2==0) {
|
meillo@0
|
829 addr1 = zero+1;
|
meillo@0
|
830 addr2 = dol;
|
meillo@0
|
831 if (dol==zero)
|
meillo@0
|
832 addr1 = zero;
|
meillo@0
|
833 }
|
meillo@0
|
834 setdot();
|
meillo@0
|
835 }
|
meillo@0
|
836
|
meillo@0
|
837 static void
|
meillo@0
|
838 setnoaddr(void)
|
meillo@0
|
839 {
|
meillo@0
|
840 if (addr2)
|
meillo@0
|
841 error("Illegal address count");
|
meillo@0
|
842 }
|
meillo@0
|
843
|
meillo@0
|
844 static void
|
meillo@0
|
845 nonzero(void)
|
meillo@0
|
846 {
|
meillo@0
|
847 if (addr1<=zero || addr2>dol)
|
meillo@0
|
848 error("line out of range");
|
meillo@0
|
849 }
|
meillo@0
|
850
|
meillo@0
|
851 static void
|
meillo@0
|
852 newline(void)
|
meillo@0
|
853 {
|
meillo@0
|
854 register int c;
|
meillo@0
|
855
|
meillo@0
|
856 if ((c = getchr()) == '\n')
|
meillo@0
|
857 return;
|
meillo@0
|
858 if (c=='p' || c=='l' || c=='n') {
|
meillo@0
|
859 pflag++;
|
meillo@0
|
860 if (c=='l')
|
meillo@0
|
861 listf++;
|
meillo@0
|
862 else if (c=='n')
|
meillo@0
|
863 numbf = 1;
|
meillo@0
|
864 if (getchr() == '\n')
|
meillo@0
|
865 return;
|
meillo@0
|
866 }
|
meillo@0
|
867 error("illegal suffix");
|
meillo@0
|
868 }
|
meillo@0
|
869
|
meillo@0
|
870 static void
|
meillo@0
|
871 filename(int comm)
|
meillo@0
|
872 {
|
meillo@0
|
873 register char *p1, *p2;
|
meillo@0
|
874 register int c, i;
|
meillo@0
|
875
|
meillo@0
|
876 count = 0;
|
meillo@0
|
877 c = getchr();
|
meillo@0
|
878 if (c=='\n' || c==EOF) {
|
meillo@0
|
879 p1 = savedfile;
|
meillo@0
|
880 if (*p1==0 && comm!='f')
|
meillo@0
|
881 error("illegal or missing filename");
|
meillo@0
|
882 p2 = file;
|
meillo@0
|
883 while (*p2++ = *p1++)
|
meillo@0
|
884 ;
|
meillo@0
|
885 return;
|
meillo@0
|
886 }
|
meillo@0
|
887 if (c!=' ')
|
meillo@0
|
888 error("no space after command");
|
meillo@0
|
889 while ((c = getchr()) == ' ')
|
meillo@0
|
890 ;
|
meillo@0
|
891 if (c=='\n')
|
meillo@0
|
892 error("illegal or missing filename");
|
meillo@0
|
893 i = 0;
|
meillo@0
|
894 do {
|
meillo@0
|
895 if (i >= FNSIZE)
|
meillo@0
|
896 growfn("maximum of characters in file names reached");
|
meillo@0
|
897 file[i++] = c;
|
meillo@0
|
898 if (c==' ' && file[0] != '!' || c==EOF)
|
meillo@0
|
899 error("illegal or missing filename");
|
meillo@0
|
900 } while ((c = getchr()) != '\n');
|
meillo@0
|
901 file[i++] = 0;
|
meillo@0
|
902 if ((savedfile[0]==0 || comm=='e' || comm=='f') && file[0] != '!') {
|
meillo@0
|
903 p1 = savedfile;
|
meillo@0
|
904 p2 = file;
|
meillo@0
|
905 while (*p1++ = *p2++)
|
meillo@0
|
906 ;
|
meillo@0
|
907 }
|
meillo@0
|
908 }
|
meillo@0
|
909
|
meillo@0
|
910 static void
|
meillo@0
|
911 exfile(void)
|
meillo@0
|
912 {
|
meillo@0
|
913 sclose(io);
|
meillo@0
|
914 io = -1;
|
meillo@0
|
915 if (wrtemp) {
|
meillo@0
|
916 extern int rename(const char *, const char *);
|
meillo@0
|
917 if (rename(wrtemp, file) < 0)
|
meillo@0
|
918 error("cannot create output file");
|
meillo@0
|
919 if (myuid == 0)
|
meillo@0
|
920 chown(file, fstbuf.st_uid, fstbuf.st_gid);
|
meillo@0
|
921 chmod(file, fstbuf.st_mode & 07777);
|
meillo@0
|
922 free(wrtemp);
|
meillo@0
|
923 wrtemp = NULL;
|
meillo@0
|
924 }
|
meillo@0
|
925 if (vflag) {
|
meillo@0
|
926 putd(count);
|
meillo@0
|
927 putchr('\n');
|
meillo@0
|
928 }
|
meillo@0
|
929 }
|
meillo@0
|
930
|
meillo@0
|
931 static void
|
meillo@0
|
932 onintr(int signo)
|
meillo@0
|
933 {
|
meillo@0
|
934 lastsig = signo;
|
meillo@0
|
935 putchr('\n');
|
meillo@0
|
936 lastc = '\n';
|
meillo@0
|
937 if (readop) {
|
meillo@0
|
938 puts("\007read may be incomplete - beware!\007");
|
meillo@0
|
939 fchange = 0;
|
meillo@0
|
940 }
|
meillo@0
|
941 error("interrupt");
|
meillo@0
|
942 }
|
meillo@0
|
943
|
meillo@0
|
944 static void
|
meillo@0
|
945 onhup(int signo)
|
meillo@0
|
946 {
|
meillo@0
|
947 if (dol > zero && fchange) {
|
meillo@0
|
948 addr1 = zero+1;
|
meillo@0
|
949 addr2 = dol;
|
meillo@0
|
950 io = creat("ed.hup", 0666);
|
meillo@0
|
951 if (io < 0) {
|
meillo@0
|
952 char *home = getenv("HOME");
|
meillo@0
|
953 if (home) {
|
meillo@0
|
954 char *fn = malloc(strlen(home) + 10);
|
meillo@0
|
955 if (fn) {
|
meillo@0
|
956 strcpy(fn, home);
|
meillo@0
|
957 strcat(fn, "/ed.hup");
|
meillo@0
|
958 io = creat(fn, 0666);
|
meillo@0
|
959 }
|
meillo@0
|
960 }
|
meillo@0
|
961 }
|
meillo@0
|
962 if (io >= 0)
|
meillo@0
|
963 putfile();
|
meillo@0
|
964 }
|
meillo@0
|
965 fchange = 0;
|
meillo@0
|
966 status = 0200 | signo;
|
meillo@0
|
967 quit(0);
|
meillo@0
|
968 }
|
meillo@0
|
969
|
meillo@0
|
970 static void
|
meillo@0
|
971 onpipe(int signo)
|
meillo@0
|
972 {
|
meillo@0
|
973 lastsig = signo;
|
meillo@0
|
974 error("write or open on pipe failed");
|
meillo@0
|
975 }
|
meillo@0
|
976
|
meillo@0
|
977 static void
|
meillo@0
|
978 error(const char *s)
|
meillo@0
|
979 {
|
meillo@0
|
980 error2(s, NULL);
|
meillo@0
|
981 }
|
meillo@0
|
982
|
meillo@0
|
983 static void
|
meillo@0
|
984 error2(const char *s, const char *fn)
|
meillo@0
|
985 {
|
meillo@0
|
986 register int c;
|
meillo@0
|
987
|
meillo@0
|
988 wrapp = 0;
|
meillo@0
|
989 listf = 0;
|
meillo@0
|
990 numbf = 0;
|
meillo@0
|
991 errput(s, fn);
|
meillo@0
|
992 count = 0;
|
meillo@0
|
993 if (lseek(0, 0, SEEK_END) > 0)
|
meillo@0
|
994 status = 2;
|
meillo@0
|
995 pflag = 0;
|
meillo@0
|
996 if (globp)
|
meillo@0
|
997 lastc = '\n';
|
meillo@0
|
998 globp = 0;
|
meillo@0
|
999 peekc = lastc;
|
meillo@0
|
1000 if(lastc)
|
meillo@0
|
1001 while ((c = getchr()) != '\n' && c != EOF)
|
meillo@0
|
1002 ;
|
meillo@0
|
1003 if (io > 0) {
|
meillo@0
|
1004 sclose(io);
|
meillo@0
|
1005 io = -1;
|
meillo@0
|
1006 }
|
meillo@0
|
1007 if (wrtemp) {
|
meillo@0
|
1008 unlink(wrtemp);
|
meillo@0
|
1009 free(wrtemp);
|
meillo@0
|
1010 wrtemp = NULL;
|
meillo@0
|
1011 }
|
meillo@0
|
1012 longjmp(savej, 1);
|
meillo@0
|
1013 }
|
meillo@0
|
1014
|
meillo@0
|
1015 static void
|
meillo@0
|
1016 errput(const char *s, const char *fn)
|
meillo@0
|
1017 {
|
meillo@0
|
1018 prvmsg = s;
|
meillo@0
|
1019 if (fn) {
|
meillo@0
|
1020 putchr('?');
|
meillo@0
|
1021 puts(fn);
|
meillo@0
|
1022 } else
|
meillo@0
|
1023 puts("?");
|
meillo@0
|
1024 if (prhelp)
|
meillo@0
|
1025 puts(s);
|
meillo@0
|
1026 }
|
meillo@0
|
1027
|
meillo@0
|
1028 static int
|
meillo@0
|
1029 getchr(void)
|
meillo@0
|
1030 {
|
meillo@0
|
1031 char c;
|
meillo@0
|
1032 if (lastc=peekc) {
|
meillo@0
|
1033 peekc = 0;
|
meillo@0
|
1034 return(lastc);
|
meillo@0
|
1035 }
|
meillo@0
|
1036 if (globp) {
|
meillo@0
|
1037 if ((lastc = *globp++) != 0)
|
meillo@0
|
1038 return(lastc);
|
meillo@0
|
1039 globp = 0;
|
meillo@0
|
1040 return(EOF);
|
meillo@0
|
1041 }
|
meillo@0
|
1042 if (read(0, &c, 1) <= 0)
|
meillo@0
|
1043 return(lastc = EOF);
|
meillo@0
|
1044 lastc = c;
|
meillo@0
|
1045 return(lastc);
|
meillo@0
|
1046 }
|
meillo@0
|
1047
|
meillo@0
|
1048 static int
|
meillo@0
|
1049 gettty(void)
|
meillo@0
|
1050 {
|
meillo@0
|
1051 register int c, i;
|
meillo@0
|
1052 register char *gf;
|
meillo@0
|
1053
|
meillo@0
|
1054 i = 0;
|
meillo@0
|
1055 gf = globp;
|
meillo@0
|
1056 while ((c = getchr()) != '\n') {
|
meillo@0
|
1057 if (c==EOF) {
|
meillo@0
|
1058 if (gf)
|
meillo@0
|
1059 peekc = c;
|
meillo@0
|
1060 return(c);
|
meillo@0
|
1061 }
|
meillo@0
|
1062 if (c == 0)
|
meillo@0
|
1063 continue;
|
meillo@0
|
1064 if (i >= LBSIZE)
|
meillo@0
|
1065 growlb("line too long");
|
meillo@0
|
1066 linebuf[i++] = c;
|
meillo@0
|
1067 }
|
meillo@0
|
1068 if (i >= LBSIZE-2)
|
meillo@0
|
1069 growlb("line too long");
|
meillo@0
|
1070 linebuf[i++] = 0;
|
meillo@0
|
1071 if (linebuf[0]=='.' && linebuf[1]==0)
|
meillo@0
|
1072 return(EOF);
|
meillo@0
|
1073 #if !defined (SUS) && !defined (SU3)
|
meillo@0
|
1074 if (linebuf[0]=='\\' && linebuf[1]=='.' && linebuf[2]==0)
|
meillo@0
|
1075 linebuf[0]='.', linebuf[1]=0;
|
meillo@0
|
1076 #endif
|
meillo@0
|
1077 return(0);
|
meillo@0
|
1078 }
|
meillo@0
|
1079
|
meillo@0
|
1080 static long
|
meillo@0
|
1081 getnum(void)
|
meillo@0
|
1082 {
|
meillo@0
|
1083 char scount[20];
|
meillo@0
|
1084 int i;
|
meillo@0
|
1085
|
meillo@0
|
1086 i = 0;
|
meillo@0
|
1087 while ((peekc=getchr()) >= '0' && peekc <= '9' && i < sizeof scount) {
|
meillo@0
|
1088 scount[i++] = peekc;
|
meillo@0
|
1089 peekc = 0;
|
meillo@0
|
1090 }
|
meillo@0
|
1091 scount[i] = '\0';
|
meillo@0
|
1092 return i ? atol(scount) : -1;
|
meillo@0
|
1093 }
|
meillo@0
|
1094
|
meillo@0
|
1095 static int
|
meillo@0
|
1096 getfile(void)
|
meillo@0
|
1097 {
|
meillo@0
|
1098 register int c, i, j;
|
meillo@0
|
1099 static int nextj;
|
meillo@0
|
1100
|
meillo@0
|
1101 i = 0;
|
meillo@0
|
1102 j = nextj;
|
meillo@0
|
1103 do {
|
meillo@0
|
1104 if (--ninbuf < 0) {
|
meillo@0
|
1105 if (ioeof || (ninbuf=read(io, genbuf, LBSIZE)-1) < 0) {
|
meillo@0
|
1106 if (ioeof == 0 && ninbuf < -1) {
|
meillo@0
|
1107 puts("input error");
|
meillo@0
|
1108 status = 1;
|
meillo@0
|
1109 }
|
meillo@0
|
1110 if (i > 0) {
|
meillo@0
|
1111 puts("'\\n' appended");
|
meillo@0
|
1112 c = '\n';
|
meillo@0
|
1113 ioeof = 1;
|
meillo@0
|
1114 goto wrc;
|
meillo@0
|
1115 }
|
meillo@0
|
1116 return(EOF);
|
meillo@0
|
1117 }
|
meillo@0
|
1118 j = 0;
|
meillo@0
|
1119 }
|
meillo@0
|
1120 c = genbuf[j++]&0377;
|
meillo@0
|
1121 wrc: if (i >= LBSIZE) {
|
meillo@0
|
1122 lastc = '\n';
|
meillo@0
|
1123 growlb("line too long");
|
meillo@0
|
1124 }
|
meillo@0
|
1125 linebuf[i++] = c ? c : '\n';
|
meillo@0
|
1126 count++;
|
meillo@0
|
1127 } while (c != '\n');
|
meillo@0
|
1128 linebuf[--i] = 0;
|
meillo@0
|
1129 nextj = j;
|
meillo@0
|
1130 if (rspec && dot == zero)
|
meillo@0
|
1131 fspec(linebuf);
|
meillo@0
|
1132 if (maxlength && i > maxlength) {
|
meillo@0
|
1133 putstr("line too long: lno = ");
|
meillo@0
|
1134 putd((dot - zero+1)&MAXCNT);
|
meillo@0
|
1135 putchr('\n');
|
meillo@0
|
1136 }
|
meillo@0
|
1137 return(0);
|
meillo@0
|
1138 }
|
meillo@0
|
1139
|
meillo@0
|
1140 static void
|
meillo@0
|
1141 putfile(void)
|
meillo@0
|
1142 {
|
meillo@0
|
1143 long *a1;
|
meillo@0
|
1144 int n;
|
meillo@0
|
1145 register char *fp, *lp;
|
meillo@0
|
1146 register int nib;
|
meillo@0
|
1147
|
meillo@0
|
1148 nib = 512;
|
meillo@0
|
1149 fp = genbuf;
|
meillo@0
|
1150 a1 = addr1;
|
meillo@0
|
1151 do {
|
meillo@0
|
1152 lp = getline(*a1++, 0);
|
meillo@0
|
1153 if (maxlength) {
|
meillo@0
|
1154 for (n = 0; lp[n]; n++);
|
meillo@0
|
1155 if (n > maxlength) {
|
meillo@0
|
1156 putstr("line too long: lno = ");
|
meillo@0
|
1157 putd((a1-1 - zero)&MAXCNT);
|
meillo@0
|
1158 putchr('\n');
|
meillo@0
|
1159 }
|
meillo@0
|
1160 }
|
meillo@0
|
1161 for (;;) {
|
meillo@0
|
1162 if (--nib < 0) {
|
meillo@0
|
1163 n = fp-genbuf;
|
meillo@0
|
1164 if(write(io, genbuf, n) != n)
|
meillo@0
|
1165 error("write error");
|
meillo@0
|
1166 nib = 511;
|
meillo@0
|
1167 fp = genbuf;
|
meillo@0
|
1168 }
|
meillo@0
|
1169 count++;
|
meillo@0
|
1170 if ((*fp++ = *lp++) == 0) {
|
meillo@0
|
1171 fp[-1] = '\n';
|
meillo@0
|
1172 break;
|
meillo@0
|
1173 } else if (fp[-1] == '\n')
|
meillo@0
|
1174 fp[-1] = '\0';
|
meillo@0
|
1175 }
|
meillo@0
|
1176 } while (a1 <= addr2);
|
meillo@0
|
1177 n = fp-genbuf;
|
meillo@0
|
1178 if(write(io, genbuf, n) != n)
|
meillo@0
|
1179 error("write error");
|
meillo@0
|
1180 }
|
meillo@0
|
1181
|
meillo@0
|
1182 static int
|
meillo@0
|
1183 append(int (*f)(void), long *a)
|
meillo@0
|
1184 {
|
meillo@0
|
1185 register long *a1, *a2, *rdot;
|
meillo@0
|
1186 int nline, tl;
|
meillo@0
|
1187
|
meillo@0
|
1188 nline = 0;
|
meillo@0
|
1189 dot = a;
|
meillo@0
|
1190 while ((*f)() == 0) {
|
meillo@0
|
1191 if ((dol-zero)+1 >= nlall) {
|
meillo@0
|
1192 long *ozero = zero;
|
meillo@0
|
1193 nlall += 512;
|
meillo@0
|
1194 if ((zero = realloc(zero, nlall*sizeof *zero))==NULL) {
|
meillo@0
|
1195 lastc = '\n';
|
meillo@0
|
1196 zero = ozero;
|
meillo@0
|
1197 error("out of memory for append");
|
meillo@0
|
1198 }
|
meillo@0
|
1199 dot += zero - ozero;
|
meillo@0
|
1200 dol += zero - ozero;
|
meillo@0
|
1201 addr1 += zero - ozero;
|
meillo@0
|
1202 addr2 += zero - ozero;
|
meillo@0
|
1203 if (unddot) {
|
meillo@0
|
1204 unddot += zero - ozero;
|
meillo@0
|
1205 unddol += zero - ozero;
|
meillo@0
|
1206 }
|
meillo@0
|
1207 if (undzero) {
|
meillo@0
|
1208 ozero = undzero;
|
meillo@0
|
1209 if ((undzero = realloc(undzero,
|
meillo@0
|
1210 nlall*sizeof *undzero)) == 0) {
|
meillo@0
|
1211 puts("no memory for undo");
|
meillo@0
|
1212 free(ozero);
|
meillo@0
|
1213 }
|
meillo@0
|
1214 }
|
meillo@0
|
1215 }
|
meillo@0
|
1216 tl = putline();
|
meillo@0
|
1217 nline++;
|
meillo@0
|
1218 a1 = ++dol;
|
meillo@0
|
1219 a2 = a1+1;
|
meillo@0
|
1220 rdot = ++dot;
|
meillo@0
|
1221 while (a1 > rdot)
|
meillo@0
|
1222 *--a2 = *--a1;
|
meillo@0
|
1223 *rdot = tl;
|
meillo@0
|
1224 }
|
meillo@0
|
1225 return(nline);
|
meillo@0
|
1226 }
|
meillo@0
|
1227
|
meillo@0
|
1228 static void
|
meillo@0
|
1229 callunix(void)
|
meillo@0
|
1230 {
|
meillo@0
|
1231 char *line;
|
meillo@0
|
1232 void (*savint)(int);
|
meillo@0
|
1233 pid_t pid, rpid;
|
meillo@0
|
1234 int retcode;
|
meillo@0
|
1235
|
meillo@0
|
1236 setnoaddr();
|
meillo@0
|
1237 line = readcmd();
|
meillo@0
|
1238 if ((pid = fork()) == 0) {
|
meillo@0
|
1239 sigset(SIGHUP, oldhup);
|
meillo@0
|
1240 sigset(SIGQUIT, oldquit);
|
meillo@0
|
1241 sigset(SIGPIPE, oldpipe);
|
meillo@0
|
1242 execl(SHELL, "sh", "-c", line, NULL);
|
meillo@0
|
1243 _exit(0100);
|
meillo@0
|
1244 } else if (pid < 0)
|
meillo@0
|
1245 error("fork failed - try again");
|
meillo@0
|
1246 savint = sigset(SIGINT, SIG_IGN);
|
meillo@0
|
1247 while ((rpid = wait(&retcode)) != pid && rpid != -1)
|
meillo@0
|
1248 ;
|
meillo@0
|
1249 sigset(SIGINT, savint);
|
meillo@0
|
1250 if (vflag)
|
meillo@0
|
1251 puts("!");
|
meillo@0
|
1252 }
|
meillo@0
|
1253
|
meillo@0
|
1254 #define cmadd(c) ((i>=cmsize ? \
|
meillo@0
|
1255 ((line=realloc(line,cmsize+=128)) == 0 ? \
|
meillo@0
|
1256 (error("line too long"),0) : 0, 0) \
|
meillo@0
|
1257 : 0), line[i++]=(c))
|
meillo@0
|
1258
|
meillo@0
|
1259 static char *
|
meillo@0
|
1260 readcmd(void)
|
meillo@0
|
1261 {
|
meillo@0
|
1262 static char *line, *prev;
|
meillo@0
|
1263 static int cmsize, pvsize;
|
meillo@0
|
1264 char *pp;
|
meillo@0
|
1265 int c, mod = 0, i;
|
meillo@0
|
1266
|
meillo@0
|
1267 i = 0;
|
meillo@0
|
1268 if ((c = getchr()) == '!') {
|
meillo@0
|
1269 for (pp = prev; *pp; pp++)
|
meillo@0
|
1270 line[i++] = *pp;
|
meillo@0
|
1271 mod = 1;
|
meillo@0
|
1272 c = getchr();
|
meillo@0
|
1273 }
|
meillo@0
|
1274 while (c != '\n' && c != EOF) {
|
meillo@0
|
1275 if (c == '\\') {
|
meillo@0
|
1276 c = getchr();
|
meillo@0
|
1277 if (c != '%')
|
meillo@0
|
1278 cmadd('\\');
|
meillo@0
|
1279 cmadd(c);
|
meillo@0
|
1280 } else if (c == '%') {
|
meillo@0
|
1281 for (pp = savedfile; *pp; pp++)
|
meillo@0
|
1282 cmadd(*pp);
|
meillo@0
|
1283 mod = 1;
|
meillo@0
|
1284 } else
|
meillo@0
|
1285 cmadd(c);
|
meillo@0
|
1286 c = getchr();
|
meillo@0
|
1287 }
|
meillo@0
|
1288 cmadd('\0');
|
meillo@0
|
1289 if (pvsize < cmsize && (prev = realloc(prev, pvsize=cmsize)) == 0)
|
meillo@0
|
1290 error("line too long");
|
meillo@0
|
1291 strcpy(prev, line);
|
meillo@0
|
1292 if (mod)
|
meillo@0
|
1293 nlputs(line);
|
meillo@0
|
1294 return line;
|
meillo@0
|
1295 }
|
meillo@0
|
1296
|
meillo@0
|
1297 static void
|
meillo@0
|
1298 quit(int signo)
|
meillo@0
|
1299 {
|
meillo@0
|
1300 lastsig = signo;
|
meillo@0
|
1301 if (vflag && fchange) {
|
meillo@0
|
1302 fchange = 0;
|
meillo@0
|
1303 error("warning: expecting `w'");
|
meillo@0
|
1304 }
|
meillo@0
|
1305 if (wrtemp)
|
meillo@0
|
1306 unlink(wrtemp);
|
meillo@0
|
1307 unlink(tfname);
|
meillo@0
|
1308 exit(status);
|
meillo@0
|
1309 }
|
meillo@0
|
1310
|
meillo@0
|
1311 static void
|
meillo@0
|
1312 delete(void)
|
meillo@0
|
1313 {
|
meillo@0
|
1314 setdot();
|
meillo@0
|
1315 newline();
|
meillo@0
|
1316 nonzero();
|
meillo@0
|
1317 checkpoint();
|
meillo@0
|
1318 rdelete(addr1, addr2);
|
meillo@0
|
1319 }
|
meillo@0
|
1320
|
meillo@0
|
1321 static void
|
meillo@0
|
1322 rdelete(long *ad1, long *ad2)
|
meillo@0
|
1323 {
|
meillo@0
|
1324 register long *a1, *a2, *a3;
|
meillo@0
|
1325
|
meillo@0
|
1326 a1 = ad1;
|
meillo@0
|
1327 a2 = ad2+1;
|
meillo@0
|
1328 a3 = dol;
|
meillo@0
|
1329 dol -= a2 - a1;
|
meillo@0
|
1330 do {
|
meillo@0
|
1331 *a1++ = *a2++;
|
meillo@0
|
1332 } while (a2 <= a3);
|
meillo@0
|
1333 a1 = ad1;
|
meillo@0
|
1334 if (a1 > dol)
|
meillo@0
|
1335 a1 = dol;
|
meillo@0
|
1336 dot = a1;
|
meillo@0
|
1337 fchange = 1;
|
meillo@0
|
1338 }
|
meillo@0
|
1339
|
meillo@0
|
1340 static void
|
meillo@0
|
1341 gdelete(void)
|
meillo@0
|
1342 {
|
meillo@0
|
1343 register long *a1, *a2, *a3;
|
meillo@0
|
1344
|
meillo@0
|
1345 a3 = dol;
|
meillo@0
|
1346 for (a1=zero+1; (*a1&01)==0; a1++)
|
meillo@0
|
1347 if (a1>=a3)
|
meillo@0
|
1348 return;
|
meillo@0
|
1349 for (a2=a1+1; a2<=a3;) {
|
meillo@0
|
1350 if (*a2&01) {
|
meillo@0
|
1351 a2++;
|
meillo@0
|
1352 dot = a1;
|
meillo@0
|
1353 } else
|
meillo@0
|
1354 *a1++ = *a2++;
|
meillo@0
|
1355 }
|
meillo@0
|
1356 dol = a1-1;
|
meillo@0
|
1357 if (dot>dol)
|
meillo@0
|
1358 dot = dol;
|
meillo@0
|
1359 fchange = 1;
|
meillo@0
|
1360 }
|
meillo@0
|
1361
|
meillo@0
|
1362 static char *
|
meillo@0
|
1363 getline(long tl, int nulterm)
|
meillo@0
|
1364 {
|
meillo@0
|
1365 register char *bp, *lp;
|
meillo@0
|
1366 register long nl;
|
meillo@0
|
1367
|
meillo@0
|
1368 lp = linebuf;
|
meillo@0
|
1369 bp = getblock(tl, READ);
|
meillo@0
|
1370 nl = nleft;
|
meillo@0
|
1371 tl &= ~0377;
|
meillo@0
|
1372 while (*lp++ = *bp++) {
|
meillo@0
|
1373 if (lp[-1] == '\n' && nulterm) {
|
meillo@0
|
1374 lp[-1] = '\0';
|
meillo@0
|
1375 break;
|
meillo@0
|
1376 }
|
meillo@0
|
1377 if (--nl == 0) {
|
meillo@0
|
1378 bp = getblock(tl+=0400, READ);
|
meillo@0
|
1379 nl = nleft;
|
meillo@0
|
1380 }
|
meillo@0
|
1381 }
|
meillo@0
|
1382 return(linebuf);
|
meillo@0
|
1383 }
|
meillo@0
|
1384
|
meillo@0
|
1385 static int
|
meillo@0
|
1386 putline(void)
|
meillo@0
|
1387 {
|
meillo@0
|
1388 register char *bp, *lp;
|
meillo@0
|
1389 register long nl;
|
meillo@0
|
1390 long tl;
|
meillo@0
|
1391
|
meillo@0
|
1392 fchange = 1;
|
meillo@0
|
1393 lp = linebuf;
|
meillo@0
|
1394 tl = tline;
|
meillo@0
|
1395 bp = getblock(tl, WRITE);
|
meillo@0
|
1396 nl = nleft;
|
meillo@0
|
1397 tl &= ~0377;
|
meillo@0
|
1398 while (*bp = *lp++) {
|
meillo@0
|
1399 if (*bp++ == '\n' && insub) {
|
meillo@0
|
1400 *--bp = 0;
|
meillo@0
|
1401 linebp = lp;
|
meillo@0
|
1402 break;
|
meillo@0
|
1403 }
|
meillo@0
|
1404 if (--nl == 0) {
|
meillo@0
|
1405 bp = getblock(tl+=0400, WRITE);
|
meillo@0
|
1406 nl = nleft;
|
meillo@0
|
1407 }
|
meillo@0
|
1408 }
|
meillo@0
|
1409 nl = tline;
|
meillo@0
|
1410 tline += (((lp-linebuf)+03)>>1)&(MAXCNT-1);
|
meillo@0
|
1411 return(nl);
|
meillo@0
|
1412 }
|
meillo@0
|
1413
|
meillo@0
|
1414 static char *
|
meillo@0
|
1415 getblock(long atl, long iof)
|
meillo@0
|
1416 {
|
meillo@0
|
1417 register long bno, off;
|
meillo@0
|
1418
|
meillo@0
|
1419 bno = (atl>>8)&BLKMSK;
|
meillo@0
|
1420 off = (atl<<1)&0774;
|
meillo@0
|
1421 if (bno >= BLKMSK) {
|
meillo@0
|
1422 lastc = '\n';
|
meillo@0
|
1423 error("temp file too big");
|
meillo@0
|
1424 }
|
meillo@0
|
1425 nleft = 512 - off;
|
meillo@0
|
1426 if (bno==iblock) {
|
meillo@0
|
1427 ichanged |= iof;
|
meillo@0
|
1428 return(ibuff+off);
|
meillo@0
|
1429 }
|
meillo@0
|
1430 if (bno==oblock)
|
meillo@0
|
1431 return(obuff+off);
|
meillo@0
|
1432 if (iof==READ) {
|
meillo@0
|
1433 if (ichanged)
|
meillo@0
|
1434 blkio(iblock, ibuff, 1);
|
meillo@0
|
1435 ichanged = 0;
|
meillo@0
|
1436 iblock = bno;
|
meillo@0
|
1437 blkio(bno, ibuff, 0);
|
meillo@0
|
1438 return(ibuff+off);
|
meillo@0
|
1439 }
|
meillo@0
|
1440 if (oblock>=0)
|
meillo@0
|
1441 blkio(oblock, obuff, 1);
|
meillo@0
|
1442 oblock = bno;
|
meillo@0
|
1443 return(obuff+off);
|
meillo@0
|
1444 }
|
meillo@0
|
1445
|
meillo@0
|
1446 static void
|
meillo@0
|
1447 blkio(long b, char *buf, int wr)
|
meillo@0
|
1448 {
|
meillo@0
|
1449 lseek(tfile, b<<9, SEEK_SET);
|
meillo@0
|
1450 if ((wr ? write(tfile, buf, 512) : read (tfile, buf, 512)) != 512) {
|
meillo@0
|
1451 status = 1;
|
meillo@0
|
1452 error("I/O error on temp file");
|
meillo@0
|
1453 }
|
meillo@0
|
1454 }
|
meillo@0
|
1455
|
meillo@0
|
1456 static void
|
meillo@0
|
1457 init(void)
|
meillo@0
|
1458 {
|
meillo@0
|
1459 register long *markp;
|
meillo@0
|
1460
|
meillo@0
|
1461 tline = 2;
|
meillo@0
|
1462 for (markp = names; markp < &names[26]; markp++)
|
meillo@0
|
1463 *markp = 0;
|
meillo@0
|
1464 for (markp = undnames; markp < &undnames[26]; markp++)
|
meillo@0
|
1465 *markp = 0;
|
meillo@0
|
1466 subnewa = 0;
|
meillo@0
|
1467 anymarks = 0;
|
meillo@0
|
1468 iblock = -1;
|
meillo@0
|
1469 oblock = -1;
|
meillo@0
|
1470 ichanged = 0;
|
meillo@0
|
1471 tfile = maketf(tfile);
|
meillo@0
|
1472 dot = dol = zero;
|
meillo@0
|
1473 unddot = NULL;
|
meillo@0
|
1474 }
|
meillo@0
|
1475
|
meillo@0
|
1476 static void
|
meillo@0
|
1477 global(int k, int ia)
|
meillo@0
|
1478 {
|
meillo@0
|
1479 register int c;
|
meillo@0
|
1480 register long *a1;
|
meillo@0
|
1481 static char *globuf;
|
meillo@0
|
1482 char mb[MB_LEN_MAX+1];
|
meillo@0
|
1483 int spflag = 0;
|
meillo@0
|
1484
|
meillo@0
|
1485 if (globp)
|
meillo@0
|
1486 error("multiple globals not allowed");
|
meillo@0
|
1487 setall();
|
meillo@0
|
1488 nonzero();
|
meillo@0
|
1489 if ((c=GETWC(mb))=='\n')
|
meillo@0
|
1490 error("incomplete global expression");
|
meillo@0
|
1491 compile(NULL, expbuf, &expbuf[ESIZE], c);
|
meillo@0
|
1492 if (!ia) {
|
meillo@0
|
1493 globrd(&globuf, EOF);
|
meillo@0
|
1494 if (globuf[0] == '\n')
|
meillo@0
|
1495 globuf[0] = 'p', globuf[1] = '\n', globuf[2] = '\0';
|
meillo@0
|
1496 } else {
|
meillo@0
|
1497 newline();
|
meillo@0
|
1498 spflag = pflag;
|
meillo@0
|
1499 pflag = 0;
|
meillo@0
|
1500 }
|
meillo@0
|
1501 checkpoint();
|
meillo@0
|
1502 for (a1=zero; a1<=dol; a1++) {
|
meillo@0
|
1503 *a1 &= ~01;
|
meillo@0
|
1504 if (a1>=addr1 && a1<=addr2 && execute(0, a1, 0)==k)
|
meillo@0
|
1505 *a1 |= 01;
|
meillo@0
|
1506 }
|
meillo@0
|
1507 /*
|
meillo@0
|
1508 * Special case: g/.../d (avoid n^2 algorithm)
|
meillo@0
|
1509 */
|
meillo@0
|
1510 if (!ia && globuf[0]=='d' && globuf[1]=='\n' && globuf[2]=='\0') {
|
meillo@0
|
1511 gdelete();
|
meillo@0
|
1512 return;
|
meillo@0
|
1513 }
|
meillo@0
|
1514 for (a1=zero; a1<=dol; a1++) {
|
meillo@0
|
1515 if (*a1 & 01) {
|
meillo@0
|
1516 *a1 &= ~01;
|
meillo@0
|
1517 dot = a1;
|
meillo@0
|
1518 if (ia) {
|
meillo@0
|
1519 puts(getline(*a1, 0));
|
meillo@0
|
1520 if ((c = getchr()) == EOF)
|
meillo@0
|
1521 error("command expected");
|
meillo@0
|
1522 if (c == 'a' || c == 'c' || c == 'i')
|
meillo@0
|
1523 error("a, i, or c not allowed in G");
|
meillo@0
|
1524 else if (c == '&') {
|
meillo@0
|
1525 if ((c = getchr()) != '\n')
|
meillo@0
|
1526 error("end of line expected");
|
meillo@0
|
1527 if (globuf == 0 || *globuf == 0)
|
meillo@0
|
1528 error("no remembered command");
|
meillo@0
|
1529 } else if (c == '\n') {
|
meillo@0
|
1530 a1 = zero;
|
meillo@0
|
1531 continue;
|
meillo@0
|
1532 } else
|
meillo@0
|
1533 globrd(&globuf, c);
|
meillo@0
|
1534 }
|
meillo@0
|
1535 globp = globuf;
|
meillo@0
|
1536 commands();
|
meillo@0
|
1537 globp = NULL;
|
meillo@0
|
1538 a1 = zero;
|
meillo@0
|
1539 }
|
meillo@0
|
1540 }
|
meillo@0
|
1541 if (ia)
|
meillo@0
|
1542 pflag = spflag;
|
meillo@0
|
1543 }
|
meillo@0
|
1544
|
meillo@0
|
1545 static void
|
meillo@0
|
1546 globrd(char **globuf, register int c)
|
meillo@0
|
1547 {
|
meillo@0
|
1548 register int i;
|
meillo@0
|
1549
|
meillo@0
|
1550 if (*globuf == 0 && (*globuf = malloc(GBSIZE=256)) == 0)
|
meillo@0
|
1551 error("global too long");
|
meillo@0
|
1552 i = 0;
|
meillo@0
|
1553 if (c != EOF)
|
meillo@0
|
1554 (*globuf)[i++] = c;
|
meillo@0
|
1555 while ((c = getchr()) != '\n') {
|
meillo@0
|
1556 if (c==EOF)
|
meillo@0
|
1557 error("incomplete global expression");
|
meillo@0
|
1558 if (c=='\\') {
|
meillo@0
|
1559 c = getchr();
|
meillo@0
|
1560 if (c!='\n')
|
meillo@0
|
1561 (*globuf)[i++] = '\\';
|
meillo@0
|
1562 }
|
meillo@0
|
1563 (*globuf)[i++] = c;
|
meillo@0
|
1564 if (i>=GBSIZE-4 && (*globuf=realloc(*globuf,GBSIZE+=256)) == 0)
|
meillo@0
|
1565 error("global too long");
|
meillo@0
|
1566 }
|
meillo@0
|
1567 (*globuf)[i++] = '\n';
|
meillo@0
|
1568 (*globuf)[i++] = 0;
|
meillo@0
|
1569 }
|
meillo@0
|
1570
|
meillo@0
|
1571 static void
|
meillo@0
|
1572 join(void)
|
meillo@0
|
1573 {
|
meillo@0
|
1574 register int i, j;
|
meillo@0
|
1575 register long *a1;
|
meillo@0
|
1576
|
meillo@0
|
1577 j = 0;
|
meillo@0
|
1578 for (a1=addr1; a1<=addr2; a1++) {
|
meillo@0
|
1579 i = getline(*a1, 0) - linebuf;
|
meillo@0
|
1580 while (genbuf[j] = linebuf[i++])
|
meillo@0
|
1581 if (j++ >= LBSIZE-2)
|
meillo@0
|
1582 growlb("line too long");
|
meillo@0
|
1583 }
|
meillo@0
|
1584 i = 0;
|
meillo@0
|
1585 j = 0;
|
meillo@0
|
1586 while (linebuf[i++] = genbuf[j++])
|
meillo@0
|
1587 ;
|
meillo@0
|
1588 *addr1 = putline();
|
meillo@0
|
1589 if (addr1<addr2)
|
meillo@0
|
1590 rdelete(addr1+1, addr2);
|
meillo@0
|
1591 dot = addr1;
|
meillo@0
|
1592 }
|
meillo@0
|
1593
|
meillo@0
|
1594 static void
|
meillo@0
|
1595 substitute(int inglob)
|
meillo@0
|
1596 {
|
meillo@0
|
1597 register long *markp;
|
meillo@0
|
1598 register long *a1;
|
meillo@0
|
1599 intptr_t nl;
|
meillo@0
|
1600 int gsubf;
|
meillo@0
|
1601
|
meillo@0
|
1602 checkpoint();
|
meillo@0
|
1603 gsubf = compsub();
|
meillo@0
|
1604 insub = 1;
|
meillo@0
|
1605 for (a1 = addr1; a1 <= addr2; a1++) {
|
meillo@0
|
1606 long *ozero;
|
meillo@0
|
1607 if (execute(0, a1, 1)==0)
|
meillo@0
|
1608 continue;
|
meillo@0
|
1609 inglob |= dosub(gsubf < 2);
|
meillo@0
|
1610 if (gsubf) {
|
meillo@0
|
1611 int i = 1;
|
meillo@0
|
1612
|
meillo@0
|
1613 while (*loc2) {
|
meillo@0
|
1614 if (execute(1, NULL, 1)==0)
|
meillo@0
|
1615 break;
|
meillo@0
|
1616 inglob |= dosub(gsubf == -1 || ++i == gsubf);
|
meillo@0
|
1617 }
|
meillo@0
|
1618 }
|
meillo@0
|
1619 subnewa = putline();
|
meillo@0
|
1620 *a1 &= ~01;
|
meillo@0
|
1621 if (anymarks) {
|
meillo@0
|
1622 for (markp = names; markp < &names[26]; markp++)
|
meillo@0
|
1623 if (*markp == *a1)
|
meillo@0
|
1624 *markp = subnewa;
|
meillo@0
|
1625 }
|
meillo@0
|
1626 *a1 = subnewa;
|
meillo@0
|
1627 ozero = zero;
|
meillo@0
|
1628 nl = append(getsub, a1);
|
meillo@0
|
1629 nl += zero-ozero;
|
meillo@0
|
1630 a1 += nl;
|
meillo@0
|
1631 addr2 += nl;
|
meillo@0
|
1632 }
|
meillo@0
|
1633 insub = 0;
|
meillo@0
|
1634 if (inglob==0)
|
meillo@0
|
1635 error("no match");
|
meillo@0
|
1636 }
|
meillo@0
|
1637
|
meillo@0
|
1638 static int
|
meillo@0
|
1639 compsub(void)
|
meillo@0
|
1640 {
|
meillo@0
|
1641 register int seof, c, i;
|
meillo@0
|
1642 static char *oldrhs;
|
meillo@0
|
1643 static int orhssz;
|
meillo@0
|
1644 char mb[MB_LEN_MAX+1];
|
meillo@0
|
1645
|
meillo@0
|
1646 if ((seof = GETWC(mb)) == '\n' || seof == ' ')
|
meillo@0
|
1647 error("illegal or missing delimiter");
|
meillo@0
|
1648 nodelim = 0;
|
meillo@0
|
1649 compile(NULL, expbuf, &expbuf[ESIZE], seof);
|
meillo@0
|
1650 i = 0;
|
meillo@0
|
1651 for (;;) {
|
meillo@0
|
1652 c = GETWC(mb);
|
meillo@0
|
1653 if (c=='\\') {
|
meillo@0
|
1654 if (i >= RHSIZE-2)
|
meillo@0
|
1655 growrhs("replacement string too long");
|
meillo@0
|
1656 rhsbuf[i++] = c;
|
meillo@0
|
1657 c = GETWC(mb);
|
meillo@0
|
1658 } else if (c=='\n') {
|
meillo@0
|
1659 if (globp && *globp) {
|
meillo@0
|
1660 if (i >= RHSIZE-2)
|
meillo@0
|
1661 growrhs("replacement string too long");
|
meillo@0
|
1662 rhsbuf[i++] = '\\';
|
meillo@0
|
1663 }
|
meillo@0
|
1664 else if (nodelim)
|
meillo@0
|
1665 error("illegal or missing delimiter");
|
meillo@0
|
1666 else {
|
meillo@0
|
1667 peekc = c;
|
meillo@0
|
1668 pflag++;
|
meillo@0
|
1669 break;
|
meillo@0
|
1670 }
|
meillo@0
|
1671 } else if (c==seof)
|
meillo@0
|
1672 break;
|
meillo@0
|
1673 for (c = 0; c==0 || mb[c]; c++) {
|
meillo@0
|
1674 if (i >= RHSIZE-2)
|
meillo@0
|
1675 growrhs("replacement string too long");
|
meillo@0
|
1676 rhsbuf[i++] = mb[c];
|
meillo@0
|
1677 }
|
meillo@0
|
1678 }
|
meillo@0
|
1679 rhsbuf[i++] = 0;
|
meillo@0
|
1680 if (rhsbuf[0] == '%' && rhsbuf[1] == 0) {
|
meillo@0
|
1681 if (orhssz == 0)
|
meillo@0
|
1682 error("no remembered replacement string");
|
meillo@0
|
1683 strcpy(rhsbuf, oldrhs);
|
meillo@0
|
1684 } else {
|
meillo@0
|
1685 if (orhssz < RHSIZE &&
|
meillo@0
|
1686 (oldrhs = realloc(oldrhs, orhssz=RHSIZE)) == 0)
|
meillo@0
|
1687 error("replacement string too long");
|
meillo@0
|
1688 strcpy(oldrhs, rhsbuf);
|
meillo@0
|
1689 }
|
meillo@0
|
1690 if ((peekc = getchr()) == 'g') {
|
meillo@0
|
1691 peekc = 0;
|
meillo@0
|
1692 newline();
|
meillo@0
|
1693 return(-1);
|
meillo@0
|
1694 } else if (peekc >= '0' && peekc <= '9') {
|
meillo@0
|
1695 c = getnum();
|
meillo@0
|
1696 if (c < 1 || c > LBSIZE)
|
meillo@0
|
1697 error("invalid count");
|
meillo@0
|
1698 newline();
|
meillo@0
|
1699 return c;
|
meillo@0
|
1700 }
|
meillo@0
|
1701 newline();
|
meillo@0
|
1702 return(0);
|
meillo@0
|
1703 }
|
meillo@0
|
1704
|
meillo@0
|
1705 static int
|
meillo@0
|
1706 getsub(void)
|
meillo@0
|
1707 {
|
meillo@0
|
1708 register char *p1, *p2;
|
meillo@0
|
1709
|
meillo@0
|
1710 p1 = linebuf;
|
meillo@0
|
1711 if ((p2 = linebp) == 0)
|
meillo@0
|
1712 return(EOF);
|
meillo@0
|
1713 while (*p1++ = *p2++)
|
meillo@0
|
1714 ;
|
meillo@0
|
1715 linebp = 0;
|
meillo@0
|
1716 return(0);
|
meillo@0
|
1717 }
|
meillo@0
|
1718
|
meillo@0
|
1719 static int
|
meillo@0
|
1720 dosub(int really)
|
meillo@0
|
1721 {
|
meillo@0
|
1722 register char *lp, *sp;
|
meillo@0
|
1723 register int i, j, k;
|
meillo@0
|
1724 int c;
|
meillo@0
|
1725
|
meillo@0
|
1726 if (!really)
|
meillo@0
|
1727 goto copy;
|
meillo@0
|
1728 i = 0;
|
meillo@0
|
1729 j = 0;
|
meillo@0
|
1730 k = 0;
|
meillo@0
|
1731 while (&linebuf[i] < loc1)
|
meillo@0
|
1732 genbuf[j++] = linebuf[i++];
|
meillo@0
|
1733 while (c = rhsbuf[k++]&0377) {
|
meillo@0
|
1734 if (c=='&') {
|
meillo@0
|
1735 j = place(j, loc1, loc2);
|
meillo@0
|
1736 continue;
|
meillo@0
|
1737 } else if (c == '\\') {
|
meillo@0
|
1738 c = rhsbuf[k++]&0377;
|
meillo@0
|
1739 if (c >='1' && c < nbra+'1') {
|
meillo@0
|
1740 j = place(j, braslist[c-'1'], braelist[c-'1']);
|
meillo@0
|
1741 continue;
|
meillo@0
|
1742 }
|
meillo@0
|
1743 }
|
meillo@0
|
1744 if (j >= LBSIZE)
|
meillo@0
|
1745 growlb("line too long");
|
meillo@0
|
1746 genbuf[j++] = c;
|
meillo@0
|
1747 }
|
meillo@0
|
1748 i = loc2 - linebuf;
|
meillo@0
|
1749 loc2 = j + linebuf;
|
meillo@0
|
1750 #if defined (SUS) || defined (SU3) || defined (S42)
|
meillo@0
|
1751 if (loc1 == &linebuf[i]) {
|
meillo@0
|
1752 int n;
|
meillo@0
|
1753 wchar_t wc;
|
meillo@0
|
1754 if (mb_cur_max > 1 && (n = mbtowc(&wc, loc2, mb_cur_max)) > 0)
|
meillo@0
|
1755 loc2 += n;
|
meillo@0
|
1756 else
|
meillo@0
|
1757 loc2++;
|
meillo@0
|
1758 }
|
meillo@0
|
1759 #endif /* SUS || SU3 || S42 */
|
meillo@0
|
1760 while (genbuf[j++] = linebuf[i++])
|
meillo@0
|
1761 if (j >= LBSIZE)
|
meillo@0
|
1762 growlb("line too long");
|
meillo@0
|
1763 if (really) {
|
meillo@0
|
1764 lp = linebuf;
|
meillo@0
|
1765 sp = genbuf;
|
meillo@0
|
1766 } else {
|
meillo@0
|
1767 copy: sp = linebuf;
|
meillo@0
|
1768 lp = genbuf;
|
meillo@0
|
1769 }
|
meillo@0
|
1770 while (*lp++ = *sp++)
|
meillo@0
|
1771 ;
|
meillo@0
|
1772 return really;
|
meillo@0
|
1773 }
|
meillo@0
|
1774
|
meillo@0
|
1775 static int
|
meillo@0
|
1776 place(register int j, register const char *l1, register const char *l2)
|
meillo@0
|
1777 {
|
meillo@0
|
1778
|
meillo@0
|
1779 while (l1 < l2) {
|
meillo@0
|
1780 genbuf[j++] = *l1++;
|
meillo@0
|
1781 if (j >= LBSIZE)
|
meillo@0
|
1782 growlb("line too long");
|
meillo@0
|
1783 }
|
meillo@0
|
1784 return(j);
|
meillo@0
|
1785 }
|
meillo@0
|
1786
|
meillo@0
|
1787 static void
|
meillo@0
|
1788 move(int cflag)
|
meillo@0
|
1789 {
|
meillo@0
|
1790 register long *adt, *ad1, *ad2;
|
meillo@0
|
1791
|
meillo@0
|
1792 setdot();
|
meillo@0
|
1793 nonzero();
|
meillo@0
|
1794 if ((adt = address())==0)
|
meillo@0
|
1795 error("illegal move destination");
|
meillo@0
|
1796 newline();
|
meillo@0
|
1797 checkpoint();
|
meillo@0
|
1798 if (cflag) {
|
meillo@0
|
1799 long *ozero;
|
meillo@0
|
1800 intptr_t delta;
|
meillo@0
|
1801 ad1 = dol;
|
meillo@0
|
1802 ozero = zero;
|
meillo@0
|
1803 append(getcopy, ad1++);
|
meillo@0
|
1804 ad2 = dol;
|
meillo@0
|
1805 delta = zero - ozero;
|
meillo@0
|
1806 ad1 += delta;
|
meillo@0
|
1807 adt += delta;
|
meillo@0
|
1808 } else {
|
meillo@0
|
1809 ad2 = addr2;
|
meillo@0
|
1810 for (ad1 = addr1; ad1 <= ad2;)
|
meillo@0
|
1811 *ad1++ &= ~01;
|
meillo@0
|
1812 ad1 = addr1;
|
meillo@0
|
1813 }
|
meillo@0
|
1814 ad2++;
|
meillo@0
|
1815 if (adt<ad1) {
|
meillo@0
|
1816 dot = adt + (ad2-ad1);
|
meillo@0
|
1817 if ((++adt)==ad1)
|
meillo@0
|
1818 return;
|
meillo@0
|
1819 reverse(adt, ad1);
|
meillo@0
|
1820 reverse(ad1, ad2);
|
meillo@0
|
1821 reverse(adt, ad2);
|
meillo@0
|
1822 } else if (adt >= ad2) {
|
meillo@0
|
1823 dot = adt++;
|
meillo@0
|
1824 reverse(ad1, ad2);
|
meillo@0
|
1825 reverse(ad2, adt);
|
meillo@0
|
1826 reverse(ad1, adt);
|
meillo@0
|
1827 } else
|
meillo@0
|
1828 error("illegal move destination");
|
meillo@0
|
1829 fchange = 1;
|
meillo@0
|
1830 }
|
meillo@0
|
1831
|
meillo@0
|
1832 static void
|
meillo@0
|
1833 reverse(register long *a1, register long *a2)
|
meillo@0
|
1834 {
|
meillo@0
|
1835 register int t;
|
meillo@0
|
1836
|
meillo@0
|
1837 for (;;) {
|
meillo@0
|
1838 t = *--a2;
|
meillo@0
|
1839 if (a2 <= a1)
|
meillo@0
|
1840 return;
|
meillo@0
|
1841 *a2 = *a1;
|
meillo@0
|
1842 *a1++ = t;
|
meillo@0
|
1843 }
|
meillo@0
|
1844 }
|
meillo@0
|
1845
|
meillo@0
|
1846 static int
|
meillo@0
|
1847 getcopy(void)
|
meillo@0
|
1848 {
|
meillo@0
|
1849 if (addr1 > addr2)
|
meillo@0
|
1850 return(EOF);
|
meillo@0
|
1851 getline(*addr1++, 0);
|
meillo@0
|
1852 return(0);
|
meillo@0
|
1853 }
|
meillo@0
|
1854
|
meillo@0
|
1855 static int
|
meillo@0
|
1856 execute(int gf, long *addr, int subst)
|
meillo@0
|
1857 {
|
meillo@0
|
1858 register char *p1, *p2, c;
|
meillo@0
|
1859
|
meillo@0
|
1860 for (c=0; c<NBRA; c++) {
|
meillo@0
|
1861 braslist[c&0377] = 0;
|
meillo@0
|
1862 braelist[c&0377] = 0;
|
meillo@0
|
1863 }
|
meillo@0
|
1864 if (gf) {
|
meillo@0
|
1865 if (circf)
|
meillo@0
|
1866 return(0);
|
meillo@0
|
1867 p1 = linebuf;
|
meillo@0
|
1868 p2 = genbuf;
|
meillo@0
|
1869 while (*p1++ = *p2++)
|
meillo@0
|
1870 ;
|
meillo@0
|
1871 locs = p1 = loc2;
|
meillo@0
|
1872 } else {
|
meillo@0
|
1873 if (addr==zero)
|
meillo@0
|
1874 return(0);
|
meillo@0
|
1875 p1 = getline(*addr, 1);
|
meillo@0
|
1876 locs = 0;
|
meillo@0
|
1877 }
|
meillo@0
|
1878 needsub = subst;
|
meillo@0
|
1879 return step(p1, expbuf);
|
meillo@0
|
1880 }
|
meillo@0
|
1881
|
meillo@0
|
1882 static void
|
meillo@0
|
1883 cmplerr(int c)
|
meillo@0
|
1884 {
|
meillo@0
|
1885 const char *msg;
|
meillo@0
|
1886
|
meillo@0
|
1887 #if !defined (SUS) && !defined (S42) && !defined (SU3)
|
meillo@0
|
1888 expbuf[0] = 0;
|
meillo@0
|
1889 #endif
|
meillo@0
|
1890 switch (c) {
|
meillo@0
|
1891 case 11:
|
meillo@0
|
1892 msg = "Range endpoint too large";
|
meillo@0
|
1893 break;
|
meillo@0
|
1894 case 16:
|
meillo@0
|
1895 msg = "bad number";
|
meillo@0
|
1896 break;
|
meillo@0
|
1897 case 25:
|
meillo@0
|
1898 msg = "`\\digit' out of range";
|
meillo@0
|
1899 break;
|
meillo@0
|
1900 case 36:
|
meillo@0
|
1901 msg = "illegal or missing delimiter";
|
meillo@0
|
1902 break;
|
meillo@0
|
1903 case 41:
|
meillo@0
|
1904 msg = "no remembered search string";
|
meillo@0
|
1905 break;
|
meillo@0
|
1906 case 42:
|
meillo@0
|
1907 msg = "'\\( \\)' imbalance";
|
meillo@0
|
1908 break;
|
meillo@0
|
1909 case 43:
|
meillo@0
|
1910 msg = "Too many `\\(' s";
|
meillo@0
|
1911 break;
|
meillo@0
|
1912 case 44:
|
meillo@0
|
1913 msg = "more than 2 numbers given";
|
meillo@0
|
1914 break;
|
meillo@0
|
1915 case 45:
|
meillo@0
|
1916 msg = "'\\}' expected";
|
meillo@0
|
1917 break;
|
meillo@0
|
1918 case 46:
|
meillo@0
|
1919 msg = "first number exceeds second";
|
meillo@0
|
1920 break;
|
meillo@0
|
1921 case 49:
|
meillo@0
|
1922 msg = "'[ ]' imbalance";
|
meillo@0
|
1923 break;
|
meillo@0
|
1924 case 50:
|
meillo@0
|
1925 msg = "regular expression overflow";
|
meillo@0
|
1926 break;
|
meillo@0
|
1927 case 67:
|
meillo@0
|
1928 msg = "illegal byte sequence";
|
meillo@0
|
1929 break;
|
meillo@0
|
1930 default:
|
meillo@0
|
1931 msg = "regular expression error";
|
meillo@0
|
1932 break;
|
meillo@0
|
1933 }
|
meillo@0
|
1934 error(msg);
|
meillo@0
|
1935 }
|
meillo@0
|
1936
|
meillo@0
|
1937 static void
|
meillo@0
|
1938 doprnt(long *bot, long *top)
|
meillo@0
|
1939 {
|
meillo@0
|
1940 long *a1;
|
meillo@0
|
1941
|
meillo@0
|
1942 a1 = bot;
|
meillo@0
|
1943 do {
|
meillo@0
|
1944 if (numbf ^ Nflag) {
|
meillo@0
|
1945 putd(a1-zero);
|
meillo@0
|
1946 putchr('\t');
|
meillo@0
|
1947 }
|
meillo@0
|
1948 nlputs(getline(*a1++, 0));
|
meillo@0
|
1949 } while (a1 <= top);
|
meillo@0
|
1950 pflag = 0;
|
meillo@0
|
1951 listf = 0;
|
meillo@0
|
1952 numbf = 0;
|
meillo@0
|
1953 }
|
meillo@0
|
1954
|
meillo@0
|
1955 static void
|
meillo@0
|
1956 putd(long c)
|
meillo@0
|
1957 {
|
meillo@0
|
1958 register int r;
|
meillo@0
|
1959
|
meillo@0
|
1960 r = c%10;
|
meillo@0
|
1961 c /= 10;
|
meillo@0
|
1962 if (c)
|
meillo@0
|
1963 putd(c);
|
meillo@0
|
1964 putchr(r + '0');
|
meillo@0
|
1965 }
|
meillo@0
|
1966
|
meillo@0
|
1967 static void
|
meillo@0
|
1968 nlputs(register const char *sp)
|
meillo@0
|
1969 {
|
meillo@0
|
1970 if (listf)
|
meillo@0
|
1971 list(sp);
|
meillo@0
|
1972 else if (tabstops)
|
meillo@0
|
1973 expand(sp);
|
meillo@0
|
1974 else
|
meillo@0
|
1975 puts(sp);
|
meillo@0
|
1976 }
|
meillo@0
|
1977
|
meillo@0
|
1978 static void
|
meillo@0
|
1979 puts(register const char *sp)
|
meillo@0
|
1980 {
|
meillo@0
|
1981 while (*sp) {
|
meillo@0
|
1982 if (*sp != '\n')
|
meillo@0
|
1983 putchr(*sp++ & 0377);
|
meillo@0
|
1984 else
|
meillo@0
|
1985 sp++, putchr('\0');
|
meillo@0
|
1986 }
|
meillo@0
|
1987 putchr('\n');
|
meillo@0
|
1988 }
|
meillo@0
|
1989
|
meillo@0
|
1990 static void
|
meillo@0
|
1991 list(const char *lp)
|
meillo@0
|
1992 {
|
meillo@0
|
1993 int col, n;
|
meillo@0
|
1994 wchar_t c;
|
meillo@0
|
1995
|
meillo@0
|
1996 col = numbf ^ Nflag ? 8 : 0;
|
meillo@0
|
1997 while (*lp) {
|
meillo@0
|
1998 if (mb_cur_max > 1 && *lp&0200)
|
meillo@0
|
1999 n = mbtowc(&c, lp, mb_cur_max);
|
meillo@0
|
2000 else {
|
meillo@0
|
2001 n = 1;
|
meillo@0
|
2002 c = *lp&0377;
|
meillo@0
|
2003 }
|
meillo@0
|
2004 if (col+1 >= 72) {
|
meillo@0
|
2005 col = 0;
|
meillo@0
|
2006 putchr('\\');
|
meillo@0
|
2007 putchr('\n');
|
meillo@0
|
2008 }
|
meillo@0
|
2009 if (n<0 ||
|
meillo@0
|
2010 #if defined (SUS) || defined (S42) || defined (SU3)
|
meillo@0
|
2011 c == '\\' ||
|
meillo@0
|
2012 #endif /* SUS || S42 || SU3 */
|
meillo@0
|
2013 !(mb_cur_max>1 ? iswprint(c) : isprint(c))) {
|
meillo@0
|
2014 if (n<0)
|
meillo@0
|
2015 n = 1;
|
meillo@0
|
2016 while (n--)
|
meillo@0
|
2017 col += lstchr(*lp++&0377);
|
meillo@0
|
2018 } else if (mb_cur_max>1) {
|
meillo@0
|
2019 col += wcwidth(c);
|
meillo@0
|
2020 while (n--)
|
meillo@0
|
2021 putchr(*lp++&0377);
|
meillo@0
|
2022 } else {
|
meillo@0
|
2023 putchr(*lp++&0377);
|
meillo@0
|
2024 col++;
|
meillo@0
|
2025 }
|
meillo@0
|
2026 }
|
meillo@0
|
2027 #if defined (SUS) || defined (S42) || defined (SU3)
|
meillo@0
|
2028 putchr('$');
|
meillo@0
|
2029 #endif
|
meillo@0
|
2030 putchr('\n');
|
meillo@0
|
2031 }
|
meillo@0
|
2032
|
meillo@0
|
2033 static int
|
meillo@0
|
2034 lstchr(int c)
|
meillo@0
|
2035 {
|
meillo@0
|
2036 int cad = 1, d;
|
meillo@0
|
2037
|
meillo@0
|
2038 #if !defined (SUS) && !defined (S42) && !defined (SU3)
|
meillo@0
|
2039 if (c=='\t') {
|
meillo@0
|
2040 c = '>';
|
meillo@0
|
2041 goto esc;
|
meillo@0
|
2042 }
|
meillo@0
|
2043 if (c=='\b') {
|
meillo@0
|
2044 c = '<';
|
meillo@0
|
2045 esc:
|
meillo@0
|
2046 putchr('-');
|
meillo@0
|
2047 putchr('\b');
|
meillo@0
|
2048 putchr(c);
|
meillo@0
|
2049 } else if (c == '\n') {
|
meillo@0
|
2050 putchr('\\');
|
meillo@0
|
2051 putchr('0');
|
meillo@0
|
2052 putchr('0');
|
meillo@0
|
2053 putchr('0');
|
meillo@0
|
2054 cad = 4;
|
meillo@0
|
2055 #else /* !SUS, !S42, !SU3 */
|
meillo@0
|
2056 if (c == '\n')
|
meillo@0
|
2057 c = '\0';
|
meillo@0
|
2058 if (c == '\\') {
|
meillo@0
|
2059 putchr('\\');
|
meillo@0
|
2060 putchr('\\');
|
meillo@0
|
2061 cad = 2;
|
meillo@0
|
2062 } else if (c == '\a') {
|
meillo@0
|
2063 putchr('\\');
|
meillo@0
|
2064 putchr('a');
|
meillo@0
|
2065 cad = 2;
|
meillo@0
|
2066 } else if (c == '\b') {
|
meillo@0
|
2067 putchr('\\');
|
meillo@0
|
2068 putchr('b');
|
meillo@0
|
2069 cad = 2;
|
meillo@0
|
2070 } else if (c == '\f') {
|
meillo@0
|
2071 putchr('\\');
|
meillo@0
|
2072 putchr('f');
|
meillo@0
|
2073 cad = 2;
|
meillo@0
|
2074 } else if (c == '\r') {
|
meillo@0
|
2075 putchr('\\');
|
meillo@0
|
2076 putchr('r');
|
meillo@0
|
2077 cad = 2;
|
meillo@0
|
2078 } else if (c == '\t') {
|
meillo@0
|
2079 putchr('\\');
|
meillo@0
|
2080 putchr('t');
|
meillo@0
|
2081 cad = 2;
|
meillo@0
|
2082 } else if (c == '\v') {
|
meillo@0
|
2083 putchr('\\');
|
meillo@0
|
2084 putchr('v');
|
meillo@0
|
2085 cad = 2;
|
meillo@0
|
2086 #endif /* !SUS, !S42, !SU3 */
|
meillo@0
|
2087 } else {
|
meillo@0
|
2088 putchr('\\');
|
meillo@0
|
2089 putchr(((c&~077)>>6)+'0');
|
meillo@0
|
2090 c &= 077;
|
meillo@0
|
2091 d = c & 07;
|
meillo@0
|
2092 putchr(c > d ? ((c-d)>>3)+'0' : '0');
|
meillo@0
|
2093 putchr(d+'0');
|
meillo@0
|
2094 cad = 4;
|
meillo@0
|
2095 }
|
meillo@0
|
2096 return cad;
|
meillo@0
|
2097 }
|
meillo@0
|
2098
|
meillo@0
|
2099 static void
|
meillo@0
|
2100 putstr(const char *s)
|
meillo@0
|
2101 {
|
meillo@0
|
2102 while (*s)
|
meillo@0
|
2103 putchr(*s++);
|
meillo@0
|
2104 }
|
meillo@0
|
2105
|
meillo@0
|
2106 static char line[70];
|
meillo@0
|
2107 static char *linp = line;
|
meillo@0
|
2108
|
meillo@0
|
2109 static void
|
meillo@0
|
2110 putchr(int ac)
|
meillo@0
|
2111 {
|
meillo@0
|
2112 register char *lp;
|
meillo@0
|
2113 register int c;
|
meillo@0
|
2114
|
meillo@0
|
2115 lp = linp;
|
meillo@0
|
2116 c = ac;
|
meillo@0
|
2117 *lp++ = c;
|
meillo@0
|
2118 if(c == '\n' || lp >= &line[64]) {
|
meillo@0
|
2119 linp = line;
|
meillo@0
|
2120 write(1, line, lp-line);
|
meillo@0
|
2121 return;
|
meillo@0
|
2122 }
|
meillo@0
|
2123 linp = lp;
|
meillo@0
|
2124 }
|
meillo@0
|
2125
|
meillo@0
|
2126 static void
|
meillo@0
|
2127 checkpoint(void)
|
meillo@0
|
2128 {
|
meillo@0
|
2129 long *a1, *a2;
|
meillo@0
|
2130
|
meillo@0
|
2131 if (undzero && globp == NULL) {
|
meillo@0
|
2132 for (a1 = zero+1, a2 = undzero+1; a1 <= dol; a1++, a2++)
|
meillo@0
|
2133 *a2 = *a1;
|
meillo@0
|
2134 unddot = &undzero[dot-zero];
|
meillo@0
|
2135 unddol = &undzero[dol-zero];
|
meillo@0
|
2136 for (a1 = names, a2 = undnames; a1 < &names[26]; a1++, a2++)
|
meillo@0
|
2137 *a2 = *a1;
|
meillo@0
|
2138 }
|
meillo@0
|
2139 }
|
meillo@0
|
2140
|
meillo@0
|
2141 #define swap(a, b) (t = a, a = b, b = t)
|
meillo@0
|
2142
|
meillo@0
|
2143 static void
|
meillo@0
|
2144 undo(void)
|
meillo@0
|
2145 {
|
meillo@0
|
2146 long *t;
|
meillo@0
|
2147
|
meillo@0
|
2148 if (undzero == NULL)
|
meillo@0
|
2149 error("no undo information saved");
|
meillo@0
|
2150 swap(zero, undzero);
|
meillo@0
|
2151 swap(dot, unddot);
|
meillo@0
|
2152 swap(dol, unddol);
|
meillo@0
|
2153 swap(names, undnames);
|
meillo@0
|
2154 }
|
meillo@0
|
2155
|
meillo@0
|
2156 static int
|
meillo@0
|
2157 maketf(int fd)
|
meillo@0
|
2158 {
|
meillo@0
|
2159 char *tmpdir;
|
meillo@0
|
2160
|
meillo@0
|
2161 if (fd == -1) {
|
meillo@0
|
2162 if ((tmpdir = getenv("TMPDIR")) == NULL ||
|
meillo@0
|
2163 (fd = creatf(tmpdir)) < 0)
|
meillo@0
|
2164 if ((fd = creatf("/var/tmp")) < 0 &&
|
meillo@0
|
2165 (fd = creatf("/tmp")) < 0)
|
meillo@0
|
2166 error("cannot create temporary file");
|
meillo@0
|
2167 } else
|
meillo@0
|
2168 ftruncate(fd, 0); /* blkio() will seek to 0 anyway */
|
meillo@0
|
2169 return fd;
|
meillo@0
|
2170 }
|
meillo@0
|
2171
|
meillo@0
|
2172 static int
|
meillo@0
|
2173 creatf(const char *tmpdir)
|
meillo@0
|
2174 {
|
meillo@0
|
2175 if (strlen(tmpdir) >= sizeof tfname - 9)
|
meillo@0
|
2176 return -1;
|
meillo@0
|
2177 strcpy(tfname, tmpdir);
|
meillo@0
|
2178 strcat(tfname, "/eXXXXXX");
|
meillo@0
|
2179 return mkstemp(tfname);
|
meillo@0
|
2180 }
|
meillo@0
|
2181
|
meillo@0
|
2182 static int
|
meillo@0
|
2183 sopen(const char *fn, int rdwr)
|
meillo@0
|
2184 {
|
meillo@0
|
2185 int pf[2], fd = -1;
|
meillo@0
|
2186
|
meillo@0
|
2187 if (fn[0] == '!') {
|
meillo@0
|
2188 fn++;
|
meillo@0
|
2189 if (pipe(pf) < 0)
|
meillo@0
|
2190 error("write or open on pipe failed");
|
meillo@0
|
2191 switch (pipid = fork()) {
|
meillo@0
|
2192 case 0:
|
meillo@0
|
2193 if (rdwr == READ)
|
meillo@0
|
2194 dup2(pf[1], 1);
|
meillo@0
|
2195 else
|
meillo@0
|
2196 dup2(pf[0], 0);
|
meillo@0
|
2197 close(pf[0]);
|
meillo@0
|
2198 close(pf[1]);
|
meillo@0
|
2199 sigset(SIGHUP, oldhup);
|
meillo@0
|
2200 sigset(SIGQUIT, oldquit);
|
meillo@0
|
2201 sigset(SIGPIPE, oldpipe);
|
meillo@0
|
2202 execl(SHELL, "sh", "-c", fn, NULL);
|
meillo@0
|
2203 _exit(0100);
|
meillo@0
|
2204 default:
|
meillo@0
|
2205 close(pf[rdwr == READ ? 1 : 0]);
|
meillo@0
|
2206 fd = pf[rdwr == READ ? 0 : 1];
|
meillo@0
|
2207 break;
|
meillo@0
|
2208 case -1:
|
meillo@0
|
2209 error("fork failed - try again");
|
meillo@0
|
2210 }
|
meillo@0
|
2211 } else if (rdwr == READ)
|
meillo@0
|
2212 fd = open(fn, O_RDONLY);
|
meillo@0
|
2213 else if (rdwr == EXIST)
|
meillo@0
|
2214 fd = open(fn, O_WRONLY);
|
meillo@0
|
2215 else /*if (rdwr == WRITE)*/
|
meillo@0
|
2216 fd = creat(fn, 0666);
|
meillo@0
|
2217 if (fd >= 0 && rdwr == READ)
|
meillo@0
|
2218 readop = 1;
|
meillo@0
|
2219 if (fd >= 0)
|
meillo@0
|
2220 fstat(fd, &fstbuf);
|
meillo@0
|
2221 return fd;
|
meillo@0
|
2222 }
|
meillo@0
|
2223
|
meillo@0
|
2224 static void
|
meillo@0
|
2225 sclose(int fd)
|
meillo@0
|
2226 {
|
meillo@0
|
2227 int status;
|
meillo@0
|
2228
|
meillo@0
|
2229 close(fd);
|
meillo@0
|
2230 if (pipid >= 0) {
|
meillo@0
|
2231 while (wait(&status) != pipid);
|
meillo@0
|
2232 pipid = -1;
|
meillo@0
|
2233 }
|
meillo@0
|
2234 readop = 0;
|
meillo@0
|
2235 }
|
meillo@0
|
2236
|
meillo@0
|
2237 static void
|
meillo@0
|
2238 fspec(const char *lp)
|
meillo@0
|
2239 {
|
meillo@0
|
2240 struct termios ts;
|
meillo@0
|
2241 const char *cp;
|
meillo@0
|
2242
|
meillo@0
|
2243 freetabs();
|
meillo@0
|
2244 maxlength = 0;
|
meillo@0
|
2245 if (tcgetattr(1, &ts) < 0
|
meillo@0
|
2246 #ifdef TAB3
|
meillo@0
|
2247 || (ts.c_oflag&TAB3) == 0
|
meillo@0
|
2248 #endif
|
meillo@0
|
2249 )
|
meillo@0
|
2250 return;
|
meillo@0
|
2251 while (lp[0]) {
|
meillo@0
|
2252 if (lp[0] == '<' && lp[1] == ':')
|
meillo@0
|
2253 break;
|
meillo@0
|
2254 lp++;
|
meillo@0
|
2255 }
|
meillo@0
|
2256 if (lp[0]) {
|
meillo@0
|
2257 lp += 2;
|
meillo@0
|
2258 while ((cp = ftok(&lp)) != NULL) {
|
meillo@0
|
2259 switch (*cp) {
|
meillo@0
|
2260 case 't':
|
meillo@0
|
2261 freetabs();
|
meillo@0
|
2262 if ((tabstops = tabstring(&cp[1])) == NULL)
|
meillo@0
|
2263 goto err;
|
meillo@0
|
2264 break;
|
meillo@0
|
2265 case 's':
|
meillo@0
|
2266 maxlength = atoi(&cp[1]);
|
meillo@0
|
2267 break;
|
meillo@0
|
2268 case 'm':
|
meillo@0
|
2269 case 'd':
|
meillo@0
|
2270 case 'e':
|
meillo@0
|
2271 break;
|
meillo@0
|
2272 case ':':
|
meillo@0
|
2273 if (cp[1] == '>') {
|
meillo@0
|
2274 if (tabstops == NULL)
|
meillo@0
|
2275 if ((tabstops = tabstring("0"))
|
meillo@0
|
2276 == NULL)
|
meillo@0
|
2277 goto err;
|
meillo@0
|
2278 return;
|
meillo@0
|
2279 }
|
meillo@0
|
2280 /*FALLTHRU*/
|
meillo@0
|
2281 default:
|
meillo@0
|
2282 err: freetabs();
|
meillo@0
|
2283 maxlength = 0;
|
meillo@0
|
2284 errput("PWB spec problem", NULL);
|
meillo@0
|
2285 return;
|
meillo@0
|
2286 }
|
meillo@0
|
2287 }
|
meillo@0
|
2288 }
|
meillo@0
|
2289 }
|
meillo@0
|
2290
|
meillo@0
|
2291 static const char *
|
meillo@0
|
2292 ftok(const char **lp)
|
meillo@0
|
2293 {
|
meillo@0
|
2294 const char *cp;
|
meillo@0
|
2295
|
meillo@0
|
2296 while (**lp && **lp != ':' && (**lp == ' ' || **lp == '\t'))
|
meillo@0
|
2297 (*lp)++;
|
meillo@0
|
2298 cp = *lp;
|
meillo@0
|
2299 while (**lp && **lp != ':' && **lp != ' ' && **lp != '\t')
|
meillo@0
|
2300 (*lp)++;
|
meillo@0
|
2301 return cp;
|
meillo@0
|
2302 }
|
meillo@0
|
2303
|
meillo@0
|
2304 static struct tabulator *
|
meillo@0
|
2305 repetitive(int repetition)
|
meillo@0
|
2306 {
|
meillo@0
|
2307 struct tabulator *tp, *tabspec;
|
meillo@0
|
2308 int col, i;
|
meillo@0
|
2309
|
meillo@0
|
2310 if ((tp = tabspec = calloc(1, sizeof *tp)) == NULL)
|
meillo@0
|
2311 return NULL;
|
meillo@0
|
2312 tp->t_rep = repetition;
|
meillo@0
|
2313 if (repetition > 0) {
|
meillo@0
|
2314 for (col = 1+repetition, i = 0; i < 22; col += repetition) {
|
meillo@0
|
2315 if ((tp->t_nxt = calloc(1, sizeof *tp)) == NULL)
|
meillo@0
|
2316 return NULL;
|
meillo@0
|
2317 tp = tp->t_nxt;
|
meillo@0
|
2318 tp->t_tab = col;
|
meillo@0
|
2319 }
|
meillo@0
|
2320 }
|
meillo@0
|
2321 return tabspec;
|
meillo@0
|
2322 }
|
meillo@0
|
2323
|
meillo@0
|
2324 #define blank(c) ((c) == ' ' || (c) == '\t')
|
meillo@0
|
2325
|
meillo@0
|
2326 static struct tabulator *
|
meillo@0
|
2327 tablist(const char *s)
|
meillo@0
|
2328 {
|
meillo@0
|
2329 struct tabulator *tp, *tabspec;
|
meillo@0
|
2330 char *x;
|
meillo@0
|
2331 int prev = 0, val;
|
meillo@0
|
2332
|
meillo@0
|
2333 if ((tp = tabspec = calloc(1, sizeof *tp)) == NULL)
|
meillo@0
|
2334 return NULL;
|
meillo@0
|
2335 for (;;) {
|
meillo@0
|
2336 while (*s == ',')
|
meillo@0
|
2337 s++;
|
meillo@0
|
2338 if (*s == '\0' || blank(*s) || *s == ':')
|
meillo@0
|
2339 break;
|
meillo@0
|
2340 val = strtol(s, &x, 10);
|
meillo@0
|
2341 if (*s == '+')
|
meillo@0
|
2342 val += prev;
|
meillo@0
|
2343 prev = val;
|
meillo@0
|
2344 if (*s == '-' || (*x != ',' && !blank(*x) && *x != ':' &&
|
meillo@0
|
2345 *x != '\0'))
|
meillo@0
|
2346 return NULL;
|
meillo@0
|
2347 s = x;
|
meillo@0
|
2348 if ((tp->t_nxt = calloc(1, sizeof *tp)) == NULL)
|
meillo@0
|
2349 return NULL;
|
meillo@0
|
2350 tp = tp->t_nxt;
|
meillo@0
|
2351 tp->t_tab = val;
|
meillo@0
|
2352 }
|
meillo@0
|
2353 return tabspec;
|
meillo@0
|
2354 }
|
meillo@0
|
2355
|
meillo@0
|
2356 static struct tabulator *
|
meillo@0
|
2357 tabstring(const char *s)
|
meillo@0
|
2358 {
|
meillo@0
|
2359 const struct {
|
meillo@0
|
2360 const char *c_nam;
|
meillo@0
|
2361 const char *c_str;
|
meillo@0
|
2362 } canned[] = {
|
meillo@0
|
2363 { "a", "1,10,16,36,72" },
|
meillo@0
|
2364 { "a2", "1,10,16,40,72" },
|
meillo@0
|
2365 { "c", "1,8,12,16,20,55" },
|
meillo@0
|
2366 { "c2", "1,6,10,14,49" },
|
meillo@0
|
2367 { "c3", "1,6,10,14,18,22,26,30,34,38,42,46,50,54,58,62,67" },
|
meillo@0
|
2368 { "f", "1,7,11,15,19,23" },
|
meillo@0
|
2369 { "p", "1,5,9,13,17,21,25,29,33,37,41,45,49,53,57,61" },
|
meillo@0
|
2370 { "s", "1,10,55" },
|
meillo@0
|
2371 { "u", "1,12,20,44" },
|
meillo@0
|
2372 { 0, 0 }
|
meillo@0
|
2373 };
|
meillo@0
|
2374
|
meillo@0
|
2375 int i, j;
|
meillo@0
|
2376
|
meillo@0
|
2377 if (s[0] == '-') {
|
meillo@0
|
2378 if (s[1] >= '0' && s[1] <= '9' && ((i = atoi(&s[1])) != 0))
|
meillo@0
|
2379 return repetitive(i);
|
meillo@0
|
2380 for (i = 0; canned[i].c_nam; i++) {
|
meillo@0
|
2381 for (j = 0; canned[i].c_nam[j]; j++)
|
meillo@0
|
2382 if (s[j+1] != canned[i].c_nam[j])
|
meillo@0
|
2383 break;
|
meillo@0
|
2384 if ((s[j+1]=='\0' || s[j+1]==':' || blank(s[j+1])) &&
|
meillo@0
|
2385 canned[i].c_nam[j] == '\0')
|
meillo@0
|
2386 return tablist(canned[i].c_str);
|
meillo@0
|
2387 }
|
meillo@0
|
2388 return NULL;
|
meillo@0
|
2389 } else
|
meillo@0
|
2390 return tablist(s);
|
meillo@0
|
2391 }
|
meillo@0
|
2392
|
meillo@0
|
2393 static void
|
meillo@0
|
2394 freetabs(void)
|
meillo@0
|
2395 {
|
meillo@0
|
2396 struct tabulator *tp;
|
meillo@0
|
2397
|
meillo@0
|
2398 tp = tabstops;
|
meillo@0
|
2399 while (tp) {
|
meillo@0
|
2400 tabstops = tp->t_nxt;
|
meillo@0
|
2401 free(tp);
|
meillo@0
|
2402 tp = tabstops;
|
meillo@0
|
2403 }
|
meillo@0
|
2404 }
|
meillo@0
|
2405
|
meillo@0
|
2406 static void
|
meillo@0
|
2407 expand(const char *s)
|
meillo@0
|
2408 {
|
meillo@0
|
2409 struct tabulator *tp = tabstops;
|
meillo@0
|
2410 int col = 0, n = 1, m, tabcnt = 0, nspc;
|
meillo@0
|
2411 wchar_t wc;
|
meillo@0
|
2412
|
meillo@0
|
2413 while (*s) {
|
meillo@0
|
2414 nspc = 0;
|
meillo@0
|
2415 switch (*s) {
|
meillo@0
|
2416 case '\n':
|
meillo@0
|
2417 putchr('\0');
|
meillo@0
|
2418 s++;
|
meillo@0
|
2419 continue;
|
meillo@0
|
2420 case '\t':
|
meillo@0
|
2421 if (tp) {
|
meillo@0
|
2422 if (tp->t_rep) {
|
meillo@0
|
2423 if (col % tp->t_rep == 0) {
|
meillo@0
|
2424 nspc++;
|
meillo@0
|
2425 col++;
|
meillo@0
|
2426 }
|
meillo@0
|
2427 while (col % tp->t_rep) {
|
meillo@0
|
2428 nspc++;
|
meillo@0
|
2429 col++;
|
meillo@0
|
2430 }
|
meillo@0
|
2431 break;
|
meillo@0
|
2432 }
|
meillo@0
|
2433 while (tp && (col>tp->t_tab || tp->t_tab == 0))
|
meillo@0
|
2434 tp = tp->t_nxt;
|
meillo@0
|
2435 if (tp && col == tp->t_tab) {
|
meillo@0
|
2436 nspc++;
|
meillo@0
|
2437 col++;
|
meillo@0
|
2438 tp = tp->t_nxt;
|
meillo@0
|
2439 }
|
meillo@0
|
2440 if (tp) {
|
meillo@0
|
2441 while (col < tp->t_tab) {
|
meillo@0
|
2442 nspc++;
|
meillo@0
|
2443 col++;
|
meillo@0
|
2444 }
|
meillo@0
|
2445 tp = tp->t_nxt;
|
meillo@0
|
2446 break;
|
meillo@0
|
2447 }
|
meillo@0
|
2448 }
|
meillo@0
|
2449 tabcnt = 1;
|
meillo@0
|
2450 nspc++;
|
meillo@0
|
2451 break;
|
meillo@0
|
2452 default:
|
meillo@0
|
2453 if (mb_cur_max>1 && (n=mbtowc(&wc, s, mb_cur_max))>0) {
|
meillo@0
|
2454 if ((m = wcwidth(wc)) > 0)
|
meillo@0
|
2455 col += m;
|
meillo@0
|
2456 } else {
|
meillo@0
|
2457 col++;
|
meillo@0
|
2458 n = 1;
|
meillo@0
|
2459 }
|
meillo@0
|
2460 }
|
meillo@0
|
2461 if (maxlength && col > maxlength) {
|
meillo@0
|
2462 putstr("\ntoo long");
|
meillo@0
|
2463 break;
|
meillo@0
|
2464 }
|
meillo@0
|
2465 if (nspc) {
|
meillo@0
|
2466 while (nspc--)
|
meillo@0
|
2467 putchr(' ');
|
meillo@0
|
2468 s++;
|
meillo@0
|
2469 } else
|
meillo@0
|
2470 while (n--)
|
meillo@0
|
2471 putchr(*s++);
|
meillo@0
|
2472 }
|
meillo@0
|
2473 if (tabcnt)
|
meillo@0
|
2474 putstr("\ntab count");
|
meillo@0
|
2475 putchr('\n');
|
meillo@0
|
2476 }
|
meillo@0
|
2477
|
meillo@0
|
2478 static wint_t
|
meillo@0
|
2479 GETWC(char *mb)
|
meillo@0
|
2480 {
|
meillo@0
|
2481 int c, n;
|
meillo@0
|
2482
|
meillo@0
|
2483 n = 1;
|
meillo@0
|
2484 mb[0] = c = GETC();
|
meillo@0
|
2485 mb[1] = '\0';
|
meillo@0
|
2486 if (mb_cur_max > 1 && c&0200 && c != EOF) {
|
meillo@0
|
2487 int m;
|
meillo@0
|
2488 wchar_t wc;
|
meillo@0
|
2489
|
meillo@0
|
2490 while ((m = mbtowc(&wc, mb, mb_cur_max)) < 0 && n<mb_cur_max) {
|
meillo@0
|
2491 mb[n++] = c = GETC();
|
meillo@0
|
2492 mb[n] = '\0';
|
meillo@0
|
2493 if (c == '\n' || c == EOF)
|
meillo@0
|
2494 break;
|
meillo@0
|
2495 }
|
meillo@0
|
2496 if (m != n)
|
meillo@0
|
2497 ERROR(67);
|
meillo@0
|
2498 return wc;
|
meillo@0
|
2499 } else
|
meillo@0
|
2500 return c;
|
meillo@0
|
2501 }
|
meillo@0
|
2502
|
meillo@0
|
2503 static void
|
meillo@0
|
2504 growlb(const char *msg)
|
meillo@0
|
2505 {
|
meillo@0
|
2506 char *olb = linebuf;
|
meillo@0
|
2507 int i;
|
meillo@0
|
2508
|
meillo@0
|
2509 LBSIZE += 512;
|
meillo@0
|
2510 if ((linebuf = realloc(linebuf, LBSIZE)) == NULL ||
|
meillo@0
|
2511 (genbuf = realloc(genbuf, LBSIZE)) == NULL)
|
meillo@0
|
2512 error(msg);
|
meillo@0
|
2513 if (linebuf != olb) {
|
meillo@0
|
2514 loc1 += linebuf - olb;
|
meillo@0
|
2515 loc2 += linebuf - olb;
|
meillo@0
|
2516 for (i = 0; i < NBRA; i++) {
|
meillo@0
|
2517 if (braslist[i])
|
meillo@0
|
2518 braslist[i] += linebuf - olb;
|
meillo@0
|
2519 if (braelist[i])
|
meillo@0
|
2520 braelist[i] += linebuf - olb;
|
meillo@0
|
2521 }
|
meillo@0
|
2522 }
|
meillo@0
|
2523 }
|
meillo@0
|
2524
|
meillo@0
|
2525 static void
|
meillo@0
|
2526 growrhs(const char *msg)
|
meillo@0
|
2527 {
|
meillo@0
|
2528 RHSIZE += 256;
|
meillo@0
|
2529 if ((rhsbuf = realloc(rhsbuf, RHSIZE)) == NULL)
|
meillo@0
|
2530 error(msg);
|
meillo@0
|
2531 }
|
meillo@0
|
2532
|
meillo@0
|
2533 static void
|
meillo@0
|
2534 growfn(const char *msg)
|
meillo@0
|
2535 {
|
meillo@0
|
2536 FNSIZE += 64;
|
meillo@0
|
2537 if ((savedfile = realloc(savedfile, FNSIZE)) == NULL ||
|
meillo@0
|
2538 (file = realloc(file, FNSIZE)) == NULL)
|
meillo@0
|
2539 error(msg);
|
meillo@0
|
2540 if (FNSIZE == 64)
|
meillo@0
|
2541 file[0] = savedfile[0] = 0;
|
meillo@0
|
2542 }
|
meillo@0
|
2543
|
meillo@0
|
2544 #if defined (SUS) || defined (S42) || defined (SU3)
|
meillo@0
|
2545 union ptrstore {
|
meillo@0
|
2546 void *vp;
|
meillo@0
|
2547 char bp[sizeof (void *)];
|
meillo@0
|
2548 };
|
meillo@0
|
2549
|
meillo@0
|
2550 static void *
|
meillo@0
|
2551 fetchptr(const char *bp)
|
meillo@0
|
2552 {
|
meillo@0
|
2553 union ptrstore u;
|
meillo@0
|
2554 int i;
|
meillo@0
|
2555
|
meillo@0
|
2556 for (i = 0; i < sizeof (void *); i++)
|
meillo@0
|
2557 u.bp[i] = bp[i];
|
meillo@0
|
2558 return u.vp;
|
meillo@0
|
2559 }
|
meillo@0
|
2560
|
meillo@0
|
2561 static void
|
meillo@0
|
2562 storeptr(void *vp, char *bp)
|
meillo@0
|
2563 {
|
meillo@0
|
2564 union ptrstore u;
|
meillo@0
|
2565 int i;
|
meillo@0
|
2566
|
meillo@0
|
2567 u.vp = vp;
|
meillo@0
|
2568 for (i = 0; i < sizeof (void *); i++)
|
meillo@0
|
2569 bp[i] = u.bp[i];
|
meillo@0
|
2570 }
|
meillo@0
|
2571
|
meillo@0
|
2572 #define add(c) ((i>=LBSIZE ? (growlb("regular expression overflow"),0) : 0), \
|
meillo@0
|
2573 genbuf[i++] = (c))
|
meillo@0
|
2574
|
meillo@0
|
2575 #define copy(s) { \
|
meillo@0
|
2576 int m; \
|
meillo@0
|
2577 for (m = 0; m==0 || s[m]; m++) \
|
meillo@0
|
2578 add(s[m]); \
|
meillo@0
|
2579 }
|
meillo@0
|
2580
|
meillo@0
|
2581 static char *
|
meillo@0
|
2582 compile(char *unused, char *ep, const char *endbuf, int seof)
|
meillo@0
|
2583 {
|
meillo@0
|
2584 INIT
|
meillo@0
|
2585 int c, d, i;
|
meillo@0
|
2586 regex_t *rp;
|
meillo@0
|
2587 char *op;
|
meillo@0
|
2588 char mb[MB_LEN_MAX+1];
|
meillo@0
|
2589
|
meillo@0
|
2590 op = ep;
|
meillo@0
|
2591 ep += 2;
|
meillo@0
|
2592 if ((rp = fetchptr(ep)) == NULL) {
|
meillo@0
|
2593 if ((rp = calloc(1, sizeof *rp)) == NULL)
|
meillo@0
|
2594 ERROR(50);
|
meillo@0
|
2595 storeptr(rp, ep);
|
meillo@0
|
2596 }
|
meillo@0
|
2597 ep += sizeof (void *);
|
meillo@0
|
2598 i = 0;
|
meillo@0
|
2599 nbra = 0;
|
meillo@0
|
2600 do {
|
meillo@0
|
2601 if ((c = GETWC(mb)) == seof)
|
meillo@0
|
2602 add('\0');
|
meillo@0
|
2603 else if (c == '\\') {
|
meillo@0
|
2604 copy(mb);
|
meillo@0
|
2605 c = GETWC(mb);
|
meillo@0
|
2606 if (c == '(')
|
meillo@0
|
2607 nbra++;
|
meillo@0
|
2608 goto normchar;
|
meillo@0
|
2609 } else if (c == '[') {
|
meillo@0
|
2610 add(c);
|
meillo@0
|
2611 d = EOF;
|
meillo@0
|
2612 do {
|
meillo@0
|
2613 c = GETWC(mb);
|
meillo@0
|
2614 if (c == EOF || c == '\n')
|
meillo@0
|
2615 ERROR(49);
|
meillo@0
|
2616 copy(mb);
|
meillo@0
|
2617 if (d=='[' && (c==':' || c=='.' || c=='=')) {
|
meillo@0
|
2618 d = c;
|
meillo@0
|
2619 do {
|
meillo@0
|
2620 c = GETWC(mb);
|
meillo@0
|
2621 if (c == EOF || c == '\n')
|
meillo@0
|
2622 ERROR(49);
|
meillo@0
|
2623 copy(mb);
|
meillo@0
|
2624 } while (c != d || PEEKC() != ']');
|
meillo@0
|
2625 c = GETWC(mb);
|
meillo@0
|
2626 copy(mb);
|
meillo@0
|
2627 c = EOF;
|
meillo@0
|
2628 }
|
meillo@0
|
2629 d = c;
|
meillo@0
|
2630 } while (c != ']');
|
meillo@0
|
2631 } else {
|
meillo@0
|
2632 if (c == EOF || c == '\n') {
|
meillo@0
|
2633 if (c == '\n')
|
meillo@0
|
2634 UNGETC(c);
|
meillo@0
|
2635 mb[0] = c = '\0';
|
meillo@0
|
2636 }
|
meillo@0
|
2637 if (c == '\0')
|
meillo@0
|
2638 nodelim = 1;
|
meillo@0
|
2639 normchar: copy(mb);
|
meillo@0
|
2640 }
|
meillo@0
|
2641 } while (genbuf[i-1] != '\0');
|
meillo@0
|
2642 if (genbuf[0]) {
|
meillo@0
|
2643 int reflags = 0;
|
meillo@0
|
2644
|
meillo@0
|
2645 #ifdef REG_ANGLES
|
meillo@0
|
2646 reflags |= REG_ANGLES;
|
meillo@0
|
2647 #endif
|
meillo@0
|
2648 #if defined (SU3) && defined (REG_AVOIDNULL)
|
meillo@0
|
2649 reflags |= REG_AVOIDNULL;
|
meillo@0
|
2650 #endif
|
meillo@0
|
2651 if (op[0])
|
meillo@0
|
2652 regfree(rp);
|
meillo@0
|
2653 op[0] = 0;
|
meillo@0
|
2654 switch (regcomp(rp, genbuf, reflags)) {
|
meillo@0
|
2655 case 0:
|
meillo@0
|
2656 break;
|
meillo@0
|
2657 case REG_ESUBREG:
|
meillo@0
|
2658 ERROR(25);
|
meillo@0
|
2659 /*NOTREACHED*/
|
meillo@0
|
2660 case REG_EBRACK:
|
meillo@0
|
2661 ERROR(49);
|
meillo@0
|
2662 /*NOTREACHED*/
|
meillo@0
|
2663 case REG_EPAREN:
|
meillo@0
|
2664 ERROR(42);
|
meillo@0
|
2665 /*NOTREACHED*/
|
meillo@0
|
2666 case REG_BADBR:
|
meillo@0
|
2667 case REG_EBRACE:
|
meillo@0
|
2668 ERROR(45);
|
meillo@0
|
2669 /*NOTREACHED*/
|
meillo@0
|
2670 case REG_ERANGE:
|
meillo@0
|
2671 ERROR(11);
|
meillo@0
|
2672 /*NOTREACHED*/
|
meillo@0
|
2673 case REG_ESPACE:
|
meillo@0
|
2674 ERROR(50);
|
meillo@0
|
2675 /*NOTREACHED*/
|
meillo@0
|
2676 default:
|
meillo@0
|
2677 ERROR(-1);
|
meillo@0
|
2678 }
|
meillo@0
|
2679 op[0] = 1;
|
meillo@0
|
2680 circf = op[1] = genbuf[0] == '^';
|
meillo@0
|
2681 } else if (op[0]) {
|
meillo@0
|
2682 circf = op[1];
|
meillo@0
|
2683 } else
|
meillo@0
|
2684 ERROR(41);
|
meillo@0
|
2685 return ep + sizeof (void *);
|
meillo@0
|
2686 }
|
meillo@0
|
2687
|
meillo@0
|
2688 static int
|
meillo@0
|
2689 step(const char *lp, const char *ep)
|
meillo@0
|
2690 {
|
meillo@0
|
2691 regex_t *rp;
|
meillo@0
|
2692 regmatch_t bralist[NBRA+1];
|
meillo@0
|
2693 int eflag = 0;
|
meillo@0
|
2694 int res;
|
meillo@0
|
2695 int i;
|
meillo@0
|
2696
|
meillo@0
|
2697 rp = fetchptr(&ep[2]);
|
meillo@0
|
2698 if (ep[0] == 0)
|
meillo@0
|
2699 return 0;
|
meillo@0
|
2700 if (locs)
|
meillo@0
|
2701 eflag |= REG_NOTBOL;
|
meillo@0
|
2702 if ((res = regexec(rp, lp, needsub? NBRA+1 : 0, bralist, eflag)) == 0 &&
|
meillo@0
|
2703 needsub) {
|
meillo@0
|
2704 loc1 = (char *)lp + bralist[0].rm_so;
|
meillo@0
|
2705 loc2 = (char *)lp + bralist[0].rm_eo;
|
meillo@0
|
2706 for (i = 1; i <= NBRA; i++) {
|
meillo@0
|
2707 if (bralist[i].rm_so != -1) {
|
meillo@0
|
2708 braslist[i-1] = (char *)lp + bralist[i].rm_so;
|
meillo@0
|
2709 braelist[i-1] = (char *)lp + bralist[i].rm_eo;
|
meillo@0
|
2710 } else
|
meillo@0
|
2711 braslist[i-1] = braelist[i-1] = NULL;
|
meillo@0
|
2712 }
|
meillo@0
|
2713 }
|
meillo@0
|
2714 return res == 0;
|
meillo@0
|
2715 }
|
meillo@0
|
2716 #endif /* SUS || S42 || SU3 */
|
meillo@0
|
2717
|
meillo@0
|
2718 static void
|
meillo@0
|
2719 help(void)
|
meillo@0
|
2720 {
|
meillo@0
|
2721 const char *desc[] = {
|
meillo@0
|
2722 "(.)a append up to .",
|
meillo@0
|
2723 "(.)b[n] browse n lines",
|
meillo@0
|
2724 "(.,.)c change up to .",
|
meillo@0
|
2725 "(.,.)d delete lines",
|
meillo@0
|
2726 "e [file] edit file",
|
meillo@0
|
2727 "E [file] force edit",
|
meillo@0
|
2728 "f [file] print or set file",
|
meillo@0
|
2729 "(1,$)g/RE/cmd global cmd",
|
meillo@0
|
2730 "(1,$)G/RE/ interactive global",
|
meillo@0
|
2731 "h print last error",
|
meillo@0
|
2732 "H toggle error messages",
|
meillo@0
|
2733 "help print this screen",
|
meillo@0
|
2734 "(.)i insert up to .",
|
meillo@0
|
2735 "(.,.+1)j join lines",
|
meillo@0
|
2736 "(.)kx mark line with x",
|
meillo@0
|
2737 "(.,.)l list lines",
|
meillo@0
|
2738 "(.,.)ma move lines to a",
|
meillo@0
|
2739 "(.,.)n number lines",
|
meillo@0
|
2740 "N revert n and p",
|
meillo@0
|
2741 "(.)o[n] show n lines of context",
|
meillo@0
|
2742 "(.,.)p print lines",
|
meillo@0
|
2743 "P toggle prompt",
|
meillo@0
|
2744 "q quit",
|
meillo@0
|
2745 "Q force quit",
|
meillo@0
|
2746 "($)r read file",
|
meillo@0
|
2747 "(.,.)s/RE/repl/ search and replace",
|
meillo@0
|
2748 "(.,.)s/RE/rp/g replace all occurrences",
|
meillo@0
|
2749 "(.,.)s/RE/rp/n replace n-th occurrence",
|
meillo@0
|
2750 "(.,.)ta transfer lines to a",
|
meillo@0
|
2751 "u undo last change",
|
meillo@0
|
2752 "(1,$)v/RE/cmd reverse global",
|
meillo@0
|
2753 "(1,$)V/RE/ reverse i/a global",
|
meillo@0
|
2754 "(1,$)w [file] write file",
|
meillo@0
|
2755 "(1,$)W [file] append to file",
|
meillo@0
|
2756 "z write buffer and quit",
|
meillo@0
|
2757 "($)= print line number",
|
meillo@0
|
2758 "!command execute shell command",
|
meillo@0
|
2759 "(.+1)<newline> print one line",
|
meillo@0
|
2760 "/RE find RE forwards",
|
meillo@0
|
2761 "?RE find RE backwards",
|
meillo@0
|
2762 "1 first line",
|
meillo@0
|
2763 ". current line",
|
meillo@0
|
2764 "$ last line",
|
meillo@0
|
2765 ", 1,$",
|
meillo@0
|
2766 "; .,$",
|
meillo@0
|
2767 NULL
|
meillo@0
|
2768 };
|
meillo@0
|
2769 char line[100];
|
meillo@0
|
2770 int c, half, i, k;
|
meillo@0
|
2771
|
meillo@0
|
2772 half = (sizeof desc / sizeof *desc) / 2;
|
meillo@0
|
2773 for (i = 0; i < half && desc[i]; i++) {
|
meillo@0
|
2774 c = 0;
|
meillo@0
|
2775 for (k = 0; desc[i][k]; k++)
|
meillo@0
|
2776 line[c++] = desc[i][k];
|
meillo@0
|
2777 if (desc[i+half]) {
|
meillo@0
|
2778 while (c < 40)
|
meillo@0
|
2779 line[c++] = ' ';
|
meillo@0
|
2780 for (k = 0; desc[i+half][k]; k++)
|
meillo@0
|
2781 line[c++] = desc[i+half][k];
|
meillo@0
|
2782 }
|
meillo@0
|
2783 line[c] = 0;
|
meillo@0
|
2784 puts(line);
|
meillo@0
|
2785 }
|
meillo@0
|
2786 }
|