* chew.c (WORD): Eliminate.

This commit is contained in:
Alan Modra 2002-02-01 09:22:53 +00:00
parent 66477e8783
commit 9ee6f9cc9a
2 changed files with 58 additions and 29 deletions

View file

@ -1,3 +1,7 @@
2002-02-01 Alan Modra <amodra@bigpond.net.au>
* chew.c (WORD): Eliminate.
2002-01-31 Ivan Guzvinec <ivang@opencores.org> 2002-01-31 Ivan Guzvinec <ivang@opencores.org>
* Makefile.in: Regenerate. * Makefile.in: Regenerate.

View file

@ -1,5 +1,6 @@
/* chew /* chew
Copyright 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1998, 2000, 2001 Copyright 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1998, 2000, 2001,
2002
Free Software Foundation, Inc. Free Software Foundation, Inc.
Contributed by steve chamberlain @cygnus Contributed by steve chamberlain @cygnus
@ -289,8 +290,6 @@ struct dict_struct
typedef struct dict_struct dict_type; typedef struct dict_struct dict_type;
#define WORD(x) static void x()
static void static void
die (msg) die (msg)
char *msg; char *msg;
@ -362,7 +361,8 @@ exec (word)
(*pc) (); (*pc) ();
} }
WORD (call) static void
call ()
{ {
stinst_type *oldpc = pc; stinst_type *oldpc = pc;
dict_type *e; dict_type *e;
@ -371,7 +371,8 @@ WORD (call)
pc = oldpc + 2; pc = oldpc + 2;
} }
WORD (remchar) static void
remchar ()
{ {
if (tos->write_idx) if (tos->write_idx)
tos->write_idx--; tos->write_idx--;
@ -388,7 +389,8 @@ strip_trailing_newlines ()
pc++; pc++;
} }
WORD (push_number) static void
push_number ()
{ {
isp++; isp++;
icheck_range (); icheck_range ();
@ -397,7 +399,8 @@ WORD (push_number)
pc++; pc++;
} }
WORD (push_text) static void
push_text ()
{ {
tos++; tos++;
check_range (); check_range ();
@ -551,7 +554,8 @@ paramstuff (void)
/* turn {* /* turn {*
and *} into comments */ and *} into comments */
WORD (translatecomments) static void
translatecomments ()
{ {
unsigned int idx = 0; unsigned int idx = 0;
string_type out; string_type out;
@ -587,7 +591,8 @@ WORD (translatecomments)
/* turn everything not starting with a . into a comment */ /* turn everything not starting with a . into a comment */
WORD (manglecomments) static void
manglecomments ()
{ {
unsigned int idx = 0; unsigned int idx = 0;
string_type out; string_type out;
@ -665,7 +670,8 @@ outputdots (void)
} }
/* Find lines starting with . and | and put example around them on tos */ /* Find lines starting with . and | and put example around them on tos */
WORD (courierize) static void
courierize ()
{ {
string_type out; string_type out;
unsigned int idx = 0; unsigned int idx = 0;
@ -751,7 +757,8 @@ WORD (courierize)
on @itemize @bullet, and @items each of them. Then ends with @end on @itemize @bullet, and @items each of them. Then ends with @end
itemize, inplace at TOS*/ itemize, inplace at TOS*/
WORD (bulletize) static void
bulletize ()
{ {
unsigned int idx = 0; unsigned int idx = 0;
int on = 0; int on = 0;
@ -805,7 +812,8 @@ WORD (bulletize)
/* Turn <<foo>> into @code{foo} in place at TOS*/ /* Turn <<foo>> into @code{foo} in place at TOS*/
WORD (do_fancy_stuff) static void
do_fancy_stuff ()
{ {
unsigned int idx = 0; unsigned int idx = 0;
string_type out; string_type out;
@ -901,7 +909,8 @@ copy_past_newline (ptr, idx, dst)
} }
WORD (icopy_past_newline) static void
icopy_past_newline ()
{ {
tos++; tos++;
check_range (); check_range ();
@ -913,7 +922,8 @@ WORD (icopy_past_newline)
/* indent /* indent
Take the string at the top of the stack, do some prettying. */ Take the string at the top of the stack, do some prettying. */
WORD (kill_bogus_lines) static void
kill_bogus_lines ()
{ {
int sl; int sl;
@ -999,7 +1009,8 @@ WORD (kill_bogus_lines)
} }
WORD (indent) static void
indent ()
{ {
string_type out; string_type out;
int tab = 0; int tab = 0;
@ -1049,7 +1060,8 @@ WORD (indent)
} }
WORD (get_stuff_in_command) static void
get_stuff_in_command ()
{ {
tos++; tos++;
check_range (); check_range ();
@ -1064,7 +1076,8 @@ WORD (get_stuff_in_command)
pc++; pc++;
} }
WORD (swap) static void
swap ()
{ {
string_type t; string_type t;
@ -1074,7 +1087,8 @@ WORD (swap)
pc++; pc++;
} }
WORD (other_dup) static void
other_dup ()
{ {
tos++; tos++;
check_range (); check_range ();
@ -1083,21 +1097,24 @@ WORD (other_dup)
pc++; pc++;
} }
WORD (drop) static void
drop ()
{ {
tos--; tos--;
check_range (); check_range ();
pc++; pc++;
} }
WORD (idrop) static void
idrop ()
{ {
isp--; isp--;
icheck_range (); icheck_range ();
pc++; pc++;
} }
WORD (icatstr) static void
icatstr ()
{ {
tos--; tos--;
check_range (); check_range ();
@ -1106,7 +1123,8 @@ WORD (icatstr)
pc++; pc++;
} }
WORD (skip_past_newline) static void
skip_past_newline ()
{ {
while (at (ptr, idx) while (at (ptr, idx)
&& at (ptr, idx) != '\n') && at (ptr, idx) != '\n')
@ -1115,7 +1133,8 @@ WORD (skip_past_newline)
pc++; pc++;
} }
WORD (internalmode) static void
internalmode ()
{ {
internal_mode = *(isp); internal_mode = *(isp);
isp--; isp--;
@ -1123,7 +1142,8 @@ WORD (internalmode)
pc++; pc++;
} }
WORD (maybecatstr) static void
maybecatstr ()
{ {
if (internal_wanted == internal_mode) if (internal_wanted == internal_mode)
{ {
@ -1400,19 +1420,22 @@ bang (void)
pc++; pc++;
} }
WORD (atsign) static void
atsign ()
{ {
isp[0] = *(long *) (isp[0]); isp[0] = *(long *) (isp[0]);
pc++; pc++;
} }
WORD (hello) static void
hello ()
{ {
printf ("hello\n"); printf ("hello\n");
pc++; pc++;
} }
WORD (stdout_) static void
stdout_ ()
{ {
isp++; isp++;
icheck_range (); icheck_range ();
@ -1420,7 +1443,8 @@ WORD (stdout_)
pc++; pc++;
} }
WORD (stderr_) static void
stderr_ ()
{ {
isp++; isp++;
icheck_range (); icheck_range ();
@ -1428,7 +1452,8 @@ WORD (stderr_)
pc++; pc++;
} }
WORD (print) static void
print ()
{ {
if (*isp == 1) if (*isp == 1)
write_buffer (tos, stdout); write_buffer (tos, stdout);