* chew.c (WORD): Eliminate.
This commit is contained in:
parent
66477e8783
commit
9ee6f9cc9a
2 changed files with 58 additions and 29 deletions
|
@ -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.
|
||||||
|
|
|
@ -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);
|
||||||
|
|
Loading…
Reference in a new issue