1 files changed, 74 insertions, 0 deletions
diff --git a/doc/examples/WWW/m4lib/menu.m4 b/doc/examples/WWW/m4lib/menu.m4
new file mode 100644
index 00000000..78c8edfd
--- /dev/null
+++ b/doc/examples/WWW/m4lib/menu.m4
@@ -0,0 +1,74 @@
+\pushdef([header], [\tr([\td([\C_BG3], [\p([\b([$1])])])])])
+
+\pushdef([separator], [\tr([\td([height=5], [])])])
+
+\pushdef([_row], [\link([$1], [$2])])
+
+\pushdef([_rows],
+  [\ifelse($#, 0, [],
+    $#, 1, [],
+    $#, 2, [\_row([$1], [$2])],
+    $#, 3, [\_row([$1], [$2])],
+    [\_row([$1], [$2])\br\n\_rows(\shift(\shift($@)))])])
+
+\pushdef([rows], [\tr([\td([\p([\font([size=-1], [\b([\_rows($@)])])])])])])
+
+\table([],
+  [\header([General info])],
+  [\rows(
+    [whatis.htm], [What is m4],
+    [features.htm], [Features],
+    [uses.htm], [Uses of m4],
+  )],
+  [\separator],
+
+  [\header([Documentation])],
+  [\rows(
+    [man/m4_toc.html], [Manual],
+  )],
+  [\separator],
+
+  [\header([Source files])],
+  [\rows(
+    [readme.htm], [README],
+    [todo.htm], [TODO],
+    [news.htm], [NEWS],
+    [changelog.htm], [ChangeLog],
+    [thanks.htm], [Contributors],
+    [m4/], [Browse it],
+  )],
+  [\separator],
+
+  [\header([The Future])],
+  [\rows(
+    [modules.htm], [Modules],
+    [visions.htm], [Visions],
+  )],
+  [\separator],
+
+  [\header([Feedback])],
+  [\rows(
+    [lists.htm], [Mailing-lists],
+    [feedback.htm], [Feedback],
+    [/forum/list.php3?num=2], [Discussion Forum],
+  )],
+  [\separator],
+
+  [\header([Development])],
+  [\rows(
+    [download.htm], [Download],
+    [bugs.htm], [Known bugs],
+  )],
+  [\separator],
+
+  [\header([Examples])],
+  [\rows(
+    [thissite.htm], [This site],
+  )],
+)
+
+\popdef([header])
+\popdef([rows])
+\popdef([_rows])
+\popdef([_row])
+\popdef([separator])