/* glob.c: This file contains the global command routines for the ed line
* Copyright (c) 1993 Andrew Moore, Talke Studio.
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
static char *rcsid
= "@(#)$Id: glob.c,v 1.2 1993/12/14 16:19:56 alm Exp $";
/* build_active_list: add line matching a pattern to the global-active list */
build_active_list(isgcmd
)
if ((delimiter
= *ibufp
) == ' ' || delimiter
== '\n') {
sprintf(errmsg
, "invalid pattern delimiter");
} else if ((pat
= get_compiled_pattern()) == NULL
)
else if (*ibufp
== delimiter
)
lp
= get_addressed_line_node(first_addr
);
for (n
= first_addr
; n
<= second_addr
; n
++, lp
= lp
->q_forw
) {
if ((s
= get_sbuf_line(lp
)) == NULL
)
NUL_TO_NEWLINE(s
, lp
->len
);
if (!regexec(pat
, s
, 0, NULL
, 0) == isgcmd
&&
/* exec_global: apply command list in the command buffer to the active
lines in a range; return command status */
exec_global(interact
, gflag
)
static char *ocmd
= NULL
;
if (!strcmp(ibufp
, "\n"))
cmd
= "p\n"; /* null cmd-list == `p' */
else if ((cmd
= get_extended_line(&n
, 0)) == NULL
)
if (!interact
&& (cmd
= get_extended_line(&n
, 0)) == NULL
)
while ((lp
= next_active_node()) != NULL
) {
if ((current_addr
= get_line_node_addr(lp
)) < 0)
/* print current_addr; get a command in global syntax */
if (display_lines(current_addr
, current_addr
, gflag
) < 0)
while ((n
= get_tty_line()) > 0 &&
sprintf(errmsg
, "unexpected end-of-file");
} else if (n
== 1 && !strcmp(ibuf
, "\n"))
else if (n
== 2 && !strcmp(ibuf
, "&\n")) {
sprintf(errmsg
, "no previous command");
} else if ((cmd
= get_extended_line(&n
, 0)) == NULL
)
REALLOC(ocmd
, ocmdsz
, n
+ 1, ERR
);
memcpy(ocmd
, cmd
, n
+ 1);
if ((status
= extract_addr_range()) < 0 ||
(status
= exec_command()) < 0 ||
status
> 0 && (status
= display_lines(
current_addr
, current_addr
, status
)) < 0)
line_t
**active_list
; /* list of lines active in a global command */
long active_last
; /* index of last active line in active_list */
long active_size
; /* size of active_list */
long active_ptr
; /* active_list index (non-decreasing) */
long active_ndx
; /* active_list index (modulo active_last) */
/* set_active_node: add a line node to the global-active list */
if (active_last
+ 1 > active_size
) {
#if defined(sun) || defined(NO_REALLOC_NULL)
if (active_list
!= NULL
) {
if ((ts
= (line_t
**) realloc(active_list
,
(ti
+= MINBUFSZ
) * sizeof(line_t
**))) == NULL
) {
fprintf(stderr
, "%s\n", strerror(errno
));
sprintf(errmsg
, "out of memory");
#if defined(sun) || defined(NO_REALLOC_NULL)
if ((ts
= (line_t
**) malloc((ti
+= MINBUFSZ
) *
sizeof(line_t
**))) == NULL
) {
fprintf(stderr
, "%s\n", strerror(errno
));
sprintf(errmsg
, "out of memory");
active_list
[active_last
++] = lp
;
/* unset_active_nodes: remove a range of lines from the global-active list */
unset_active_nodes(np
, mp
)
for (lp
= np
; lp
!= mp
; lp
= lp
->q_forw
)
for (i
= 0; i
< active_last
; i
++)
if (active_list
[active_ndx
] == lp
) {
active_list
[active_ndx
] = NULL
;
active_ndx
= INC_MOD(active_ndx
, active_last
- 1);
} else active_ndx
= INC_MOD(active_ndx
, active_last
- 1);
/* next_active_node: return the next global-active line node */
while (active_ptr
< active_last
&& active_list
[active_ptr
] == NULL
)
return (active_ptr
< active_last
) ? active_list
[active_ptr
++] : NULL
;
/* clear_active_list: clear the global-active list */
active_size
= active_last
= active_ptr
= active_ndx
= 0;