From 99aaa6632797da5824c10b192ed5fdd1628c28cf Mon Sep 17 00:00:00 2001
From: "Mirar (Pontus Hagland)" <pike@sort.mirar.org>
Date: Sat, 6 Dec 1997 23:15:32 +0100
Subject: [PATCH] experimental man-page making
Rev: tutorial/man.pike:1.3
---
tutorial/man.pike | 27 +++++++++++++++++++++++++++
1 file changed, 27 insertions(+)
create mode 100644 tutorial/man.pike
diff --git a/tutorial/man.pike b/tutorial/man.pike
new file mode 100644
index 0000000000..8e9cc7d20f
--- /dev/null
+++ b/tutorial/man.pike
@@ -0,0 +1,27 @@
+#include "types.h"
+inherit Stdio.File : out;
+
+void make_pages(string base, SGML data, string ind);
+
+void make_page(string base, TAG tag, string ind, string fbase)
+{
+ ind="";
+ werror(ind+tag->tag+" "+tag->params->name+"\n");
+ make_pages(base,tag->data,ind+" ");
+}
+
+void make_pages(string base, SGML data, string ind, string fbase)
+{
+ if (arrayp(data))
+ foreach (data, TAG tag)
+ if (objectp(tag))
+ if ((<"method","function","class","module">)[tag->tag])
+ make_page(base,tag,ind);
+ else
+ make_pages(base,tag->data,ind+" ");
+}
+
+void output(string base, WMML data)
+{
+ make_pages(base,data->data,"","");
+}
--
GitLab