aboutsummaryrefslogtreecommitdiffstats
path: root/tools
diff options
context:
space:
mode:
authorWerner Koch <[email protected]>1998-02-24 18:50:46 +0000
committerWerner Koch <[email protected]>1998-02-24 18:50:46 +0000
commit5a05af2bca319adc9a915ff4466f04c3ef05142a (patch)
tree24292fd49662c09acbe4d6eae321888cbb175585 /tools
parentrel 0.2.7 mit kleines Korrekturen (diff)
downloadgnupg-V-0-2-8.tar.gz
gnupg-V-0-2-8.zip
Renamed to GNUPGV-0-2-8
Diffstat (limited to '')
-rw-r--r--tools/bftest.c8
-rw-r--r--tools/mpicalc.c8
-rw-r--r--tools/primes.scm31
3 files changed, 8 insertions, 39 deletions
diff --git a/tools/bftest.c b/tools/bftest.c
index cd0eef972..764a82610 100644
--- a/tools/bftest.c
+++ b/tools/bftest.c
@@ -1,14 +1,14 @@
/* bftest.c - Blowfish test program
- * Copyright (c) 1997 by Werner Koch (dd9jn)
+ * Copyright (C) 1998 Free Software Foundation, Inc.
*
- * This file is part of G10.
+ * This file is part of GNUPG.
*
- * G10 is free software; you can redistribute it and/or modify
+ * GNUPG is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
- * G10 is distributed in the hope that it will be useful,
+ * GNUPG is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
diff --git a/tools/mpicalc.c b/tools/mpicalc.c
index 0bee7fc42..f5ea14a81 100644
--- a/tools/mpicalc.c
+++ b/tools/mpicalc.c
@@ -1,5 +1,5 @@
/* mpitest.c - test the mpi functions
- * Copyright (c) 1997 by Werner Koch (dd9jn)
+ * Copyright (C) 1998 Free Software Foundation, Inc.
*
* This is a RPN calculator; values must be given in hex.
* Operaion is like dc(1) except that the input/output radix is
@@ -7,14 +7,14 @@
* Addition operators: ++ and --. All operators must be delimeted by a blank
*
*
- * This file is part of G10.
+ * This file is part of GNUPG.
*
- * G10 is free software; you can redistribute it and/or modify
+ * GNUPG is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
- * G10 is distributed in the hope that it will be useful,
+ * GNUPG is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
diff --git a/tools/primes.scm b/tools/primes.scm
deleted file mode 100644
index 0772cdcf9..000000000
--- a/tools/primes.scm
+++ /dev/null
@@ -1,31 +0,0 @@
-(define (prime? n)
- (define (smallest-divisor n)
- (find-divisor n 2))
- (define (find-divisor n test)
- (cond ((> (square test) n) n)
- ((divides? test n) test)
- (else (find-divisor n (+ test 1)))))
- (define (divides? a b)
- (= (remainder b a) 0))
- (define (square n)
- (* n n))
- (= n (smallest-divisor n)))
-
-(define count 0)
-
-
-
-(define (display-prime n)
- (display n)
- (display ", ")
- (cond ((> count 8) (display "\n") (let count 0))
- (else (define count (+ count 1)))))
-
-
-(define (primes n limit)
- (if (prime? n)
- (display-prime n) )
- (if (< n limit)
- (primes (+ n 1) limit)) )
-
-(primes 3 5000)