heirloom-ed: ed.c annotate

annotate ed.c @ 0:1493bea5ac22 0.1

Initial version of the standalone heirloom-ed

author	markus schnalke <meillo@marmaro.de>
date	Mon, 05 Sep 2011 16:31:35 +0200
parents
children	a09d0630f05b

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

Mercurial > heirloom-ed

annotate ed.c @ 0:1493bea5ac22 0.1