Small perl script to create fibo.out.

length parameter to try to push fibo.m4 further.

4 files changed, 22 insertions, 7 deletions

diff --git a/regress/usr.bin/m4/Makefile b/regress/usr.bin/m4/Makefile
index a3742b22cf4..0d4ac42bdcc 100644
--- a/regress/usr.bin/m4/Makefile
+++ b/regress/usr.bin/m4/Makefile
@@ -1,10 +1,12 @@
-#	$OpenBSD: Makefile,v 1.2 2000/07/01 00:49:07 espie Exp $
+#	$OpenBSD: Makefile,v 1.3 2000/07/01 14:18:39 espie Exp $
 #	$NetBSD: Makefile,v 1.2 1999/02/13 02:54:33 lukem Exp $
 
 NOMAN=
 NOPROG=
 
-CLEANFILES+= ff_after_dnl.m4
+FIBOMAX=12
+
+CLEANFILES+= ff_after_dnl.m4 fibo.out
 
 regress: test-ff_after_dnl test-m4wrap test-fibo
 
@@ -17,8 +19,11 @@ ff_after_dnl.m4: ff_after_dnl.m4.uu
 test-m4wrap:
 	m4 ${.CURDIR}/m4wrap.m4 | diff - ${.CURDIR}/m4wrap.out
 
-test-fibo:
-	m4 ${.CURDIR}/fibo.m4 | diff - ${.CURDIR}/fibo.out
+fibo.out:
+	perl ${.CURDIR}/fibo.pl ${FIBOMAX} >$@
+
+test-fibo: fibo.out
+	m4 -DN=${FIBOMAX} ${.CURDIR}/fibo.m4| diff - fibo.out
 
 .PHONY:	test-ff_after_dnl test-m4wrap test-fibo
 
diff --git a/regress/usr.bin/m4/fibo.m4 b/regress/usr.bin/m4/fibo.m4
index 36d719a251c..3d86e56476e 100644
--- a/regress/usr.bin/m4/fibo.m4
+++ b/regress/usr.bin/m4/fibo.m4
@@ -1,7 +1,7 @@
-dnl $OpenBSD: fibo.m4,v 1.1 2000/07/01 00:49:07 espie Exp $
+dnl $OpenBSD: fibo.m4,v 1.2 2000/07/01 14:18:39 espie Exp $
 define(`copy', `$1')dnl
 define(`fibo',dnl
 `ifelse($1,0,`a',dnl
 $1,1,`b',dnl
 `copy(fibo(decr($1)))`'copy(fibo(decr(decr($1))))')')dnl
-fibo(13)
+fibo(N)
diff --git a/regress/usr.bin/m4/fibo.out b/regress/usr.bin/m4/fibo.out
deleted file mode 100644
index 2c7ada13967..00000000000
--- a/regress/usr.bin/m4/fibo.out
+++ /dev/null
@@ -1 +0,0 @@
-babbababbabbababbababbabbababbabbababbababbabbababbababbabbababbabbababbababbabbababbabbababbababbabbababbababbabbababbabbababbababbabbababbababbabbababbabbababbababbabbababbabbababbababbabbababbababbabbababbabbababbababbabbababbabbababbababbabbababbababbabbababbabbababbababbabbababbababbabbababbabbababbababbabbababbabbababbababbabbababbababbabbababbabbababbababbabbababbabab
diff --git a/regress/usr.bin/m4/fibo.pl b/regress/usr.bin/m4/fibo.pl
new file mode 100644
index 00000000000..58d87bd5b05
--- /dev/null
+++ b/regress/usr.bin/m4/fibo.pl
@@ -0,0 +1,11 @@
+#! /usr/bin/perl
+my $n=shift;
+
+$fibo[0] = 'a';
+$fibo[1] = 'b';
+for (my $i = 2; $i <= $n; $i++) {
+	$fibo[$i] = $fibo[$i-1].$fibo[$i-2];
+}
+
+print $fibo[$n], "\n";
+