svn commit: r314409 - head/usr.bin/dc

[Pedro F. Giffuni]

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