diff options
| author | Werner Koch <[email protected]> | 1997-11-19 13:12:23 +0000 |
|---|---|---|
| committer | Werner Koch <[email protected]> | 1997-11-19 13:12:23 +0000 |
| commit | 25c8f1a3d79a3ae14dbb824082b4107f7a182b13 (patch) | |
| tree | 9a4d2e413e7e388822f8e37efe0e58b6979ac6a8 /tools/mpicalc.c | |
| parent | initially checkin (diff) | |
| download | gnupg-25c8f1a3d79a3ae14dbb824082b4107f7a182b13.tar.gz gnupg-25c8f1a3d79a3ae14dbb824082b4107f7a182b13.zip | |
Output armor works, RSA keygen works.
Diffstat (limited to '')
| -rw-r--r-- | tools/mpicalc.c | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/tools/mpicalc.c b/tools/mpicalc.c index 2402695d7..828b475b3 100644 --- a/tools/mpicalc.c +++ b/tools/mpicalc.c @@ -179,6 +179,16 @@ do_gcd(void) stackidx--; } +static void +do_rshift(void) +{ + if( stackidx < 1 ) { + fputs("stack underflow\n", stderr); + return; + } + mpi_rshift( stack[stackidx-1],stack[stackidx-1], 1 ); +} + int main(int argc, char **argv) @@ -259,6 +269,9 @@ main(int argc, char **argv) case 'G': do_gcd(); break; + case '>': + do_rshift(); + break; case 'i': /* dummy */ if( !stackidx ) fputs("stack underflow\n", stderr); |