diff options
-rw-r--r-- | tests/rand/ChangeLog | 2 | ||||
-rw-r--r-- | tests/rand/findcl.c | 8 |
2 files changed, 7 insertions, 3 deletions
diff --git a/tests/rand/ChangeLog b/tests/rand/ChangeLog index c4b672dc7..76c21e9d5 100644 --- a/tests/rand/ChangeLog +++ b/tests/rand/ChangeLog @@ -1,7 +1,7 @@ 1999-04-29 Linus Nordberg <linus@swox.se> * findcl.c (main): Add option '-i' for interval factor. Separate - v and merit lose figures. + v and merit lose figures. Add '-v' for version. 1999-04-28 Linus Nordberg <linus@swox.se> diff --git a/tests/rand/findcl.c b/tests/rand/findcl.c index 44abd7a0a..18b4b688a 100644 --- a/tests/rand/findcl.c +++ b/tests/rand/findcl.c @@ -48,7 +48,7 @@ sh_status (int sig) int main (int argc, char *argv[]) { - const char usage[] = "usage: findcl [-a start_a] [-d] [-i interval-fact] m [low_merit [high_merit]]\n"; + const char usage[] = "usage: findcl [-a start_a] [-d] [-i interval-fact] [-v] m [low_merit [high_merit]]\n"; int f; int v_lose, m_lose, v_best, m_best; int c; @@ -76,7 +76,7 @@ main (int argc, char *argv[]) mpf_init_set_d (low_merit, .1); mpf_init_set_d (high_merit, .1); - while ((c = getopt (argc, argv, "a:di:h")) != -1) + while ((c = getopt (argc, argv, "a:di:hv")) != -1) switch (c) { case 'a': /* start_a */ @@ -92,6 +92,10 @@ main (int argc, char *argv[]) intervalfac = (int) strtoul (optarg, NULL, 0); break; + case 'v': /* print version */ + puts (rcsid[1]); + exit (0); + case 'h': case '?': default: |