Author: pfg
Date: Tue Feb 28 20:50:49 2017
New Revision: 314409
URL: https://svnweb.freebsd.org/changeset/base/314409
Log:
dc(1): Introduce e command, equivalent to p, but writes to stderr
Obtained from: OpenBSD
MFC after: 2 weeks
Modified:
head/usr.bin/dc/bcode.c
head/usr.bin/dc/dc.1
Modified: head/usr.bin/dc/bcode.c
==============================================================================
--- head/usr.bin/dc/bcode.c Tue Feb 28 20:34:25 2017 (r314408)
+++ head/usr.bin/dc/bcode.c Tue Feb 28 20:50:49 2017 (r314409)
@@ -69,6 +69,7 @@ static __inline struct number *pop_numbe
static __inline char *pop_string(void);
static __inline void clear_stack(void);
static __inline void print_tos(void);
+static void print_err(void);
static void pop_print(void);
static void pop_printn(void);
static __inline void print_stack(void);
@@ -198,6 +199,7 @@ static const struct jump_entry jump_tabl
{ 'a', to_ascii },
{ 'c', clear_stack },
{ 'd', dup },
+ { 'e', print_err },
{ 'f', print_stack },
{ 'i', set_ibase },
{ 'k', set_scale },
@@ -508,6 +510,18 @@ print_tos(void)
}
static void
+print_err(void)
+{
+ struct value *value = tos();
+ if (value != NULL) {
+ print_value(stderr, value, "", bmachine.obase);
+ (void)putc('\n', stderr);
+ }
+ else
+ warnx("stack empty");
+}
+
+static void
pop_print(void)
{
struct value *value = pop();
Modified: head/usr.bin/dc/dc.1
==============================================================================
--- head/usr.bin/dc/dc.1 Tue Feb 28 20:34:25 2017 (r314408)
+++ head/usr.bin/dc/dc.1 Tue Feb 28 20:50:49 2017 (r314409)
@@ -35,7 +35,7 @@
.\"
.\" @(#)dc.1 8.1 (Berkeley) 6/6/93
.\"
-.Dd April 16, 2014
+.Dd February 27, 2017
.Dt DC 1
.Os
.Sh NAME
@@ -196,6 +196,10 @@ operator is a non-portable extension.
All values on the stack are popped.
.It Ic d
The top value on the stack is duplicated.
+.It Ic e
+Equivalent to
+.Ic p ,
+except that the output is written to the standard error stream.
.It Ic f
All values on the stack are printed, separated by newlines.
.It Ic G
_______________________________________________
svn-src-head@freebsd.org mailing list
https://lists.freebsd.org/mailman/listinfo/svn-src-head
To unsubscribe, send any mail to "svn-src-head-unsubscr...@freebsd.org"
