Initial commit

1 files changed, 35 insertions, 0 deletions

diff --git a/pkg/system/help/t_hdbexamine.x b/pkg/system/help/t_hdbexamine.x
new file mode 100644
index 00000000..8046848e
--- /dev/null
+++ b/pkg/system/help/t_hdbexamine.x
@@ -0,0 +1,35 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<syserr.h>
+include	<error.h>
+include	"help.h"
+
+
+# HDBEXAMINE -- Examine the help database.
+
+procedure t_hdbexamine()
+
+pointer	sp, helpdb
+bool	streq(), clgetb()
+int	envgets()
+string	s_helpdb "helpdb"
+
+begin
+	call smark (sp)
+	call salloc (helpdb, SZ_HELPDB, TY_CHAR)
+
+	# Fetch the name of the help database file to be examined.  If the
+	# name is "helpdb", the filename is taken from the environment.
+
+	call clgstr (s_helpdb, Memc[helpdb], SZ_HELPDB)
+	if (streq (Memc[helpdb], s_helpdb))
+	    if (envgets (s_helpdb, Memc[helpdb], SZ_HELPDB) <= 0)
+		call syserrs (SYS_ENVNF, s_helpdb)
+
+	# Examine the structure and contents of the database, printing the
+	# results on the standard output.
+
+	call hdb_examine (STDOUT, Memc[helpdb], clgetb ("verbose"))
+
+	call sfree (sp)
+end