security-and-privacy/gnupg
security-and-privacy/gnupg
1
0
Fork 0
mirror of git://git.gnupg.org/gnupg.git synced 2025-07-02 22:46:30 +02:00
Code Activity

See ChangeLog: Tue Jun 8 13:36:25 CEST 1999 Werner Koch

Browse source
This commit is contained in:
Werner Koch 1999-06-08 11:41:46 +00:00
parent 717bce345c
commit 40238d4b63
9 changed files with 72 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

5
tools/ChangeLog
View file

@ -1,3 +1,8 @@
Tue Jun 8 13:36:25 CEST 1999 Werner Koch <wk@isil.d.shuttle.de>
* mpicalc.c (main): hex digits may now be lowercase
(do_mulm): new.
Thu Dec 10 20:15:36 CET 1998 Werner Koch <wk@isil.d.shuttle.de>
* mpicalc.c (main): Moved initialization out of definition.

19
tools/mpicalc.c
View file

@ -130,6 +130,18 @@ do_mul(void)
stackidx--;
}
static void
do_mulm(void)
{
if( stackidx < 3 ) {
fputs("stack underflow\n", stderr);
return;
}
mpi_mulm( stack[stackidx-3], stack[stackidx-3],
stack[stackidx-2], stack[stackidx-1] );
stackidx -= 2;
}
static void
do_div(void)
{
@ -237,7 +249,7 @@ main(int argc, char **argv)
while( (c=getc(stdin)) != EOF ) {
if( !state ) { /* waiting */
if( isdigit(c) || (c >='A' && c <= 'F') ) {
if( isdigit(c) ) {
state = 1;
ungetc(c, stdin);
strbuf[0] = '0';
@ -275,6 +287,9 @@ main(int argc, char **argv)
case '*':
do_mul();
break;
case 'm':
do_mulm();
break;
case '/':
do_div();
break;
@ -338,7 +353,7 @@ main(int argc, char **argv)
}
}
else if( state == 1 ) { /* in a number */
if( !(isdigit(c) || (c >='A' && c <= 'F')) ) { /* store the number */
if( !isxdigit(c) ) { /* store the number */
state = 0;
ungetc(c, stdin);
if( stridx < 1000 )