Repatch (from linux) of OSX IRAF

1 files changed, 73 insertions, 0 deletions

diff --git a/pkg/system/help/xhelp/xhroot.x b/pkg/system/help/xhelp/xhroot.x
new file mode 100644
index 00000000..9559662a
--- /dev/null
+++ b/pkg/system/help/xhelp/xhroot.x
@@ -0,0 +1,73 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	"xhelp.h"
+
+
+# XH_ROOT_PKG -- Make the root package.  Search the help database and
+# create a package list for all modules found.  We add special entries for
+# system modules (imfort/math/os) which are not normally in the help tree
+# but provide documents.
+
+procedure xh_root_pkg (xh)
+
+pointer	xh				#i struct pointer.
+
+pointer sp, fname, buf, ip, op, lp
+int     list
+
+int     xh_pkglist()
+int     gstrcpy(), fntopnb(), fntgfnb()
+bool    strne()
+
+begin
+        call smark (sp)
+        call salloc (fname, SZ_FNAME, TY_CHAR)
+        call salloc (buf, SZ_FNAME, TY_CHAR)
+
+        # Set initial packages and help databases.  This consists of the
+        # system documentation (in sys$sys.hd), the contents of the
+        # clpackage module and each of the external packages.
+
+        lp = XH_LPTR(xh)
+
+        # Create an entry for seldom-read system docs.
+	if (XH_SHOWTYPE(xh) == YES) {
+            lp = lp + gstrcpy ("imfort. ", Memc[lp], ARB)
+            lp = lp + gstrcpy ("math. ", Memc[lp], ARB)
+            lp = lp + gstrcpy ("os. ", Memc[lp], ARB)
+	} else {
+            lp = lp + gstrcpy ("imfort ", Memc[lp], ARB)
+            lp = lp + gstrcpy ("math ", Memc[lp], ARB)
+            lp = lp + gstrcpy ("os ", Memc[lp], ARB)
+	}
+
+        # Add the external packages to the list.
+        list = fntopnb (HELPDB(xh), YES)
+        while (fntgfnb (list, Memc[fname], SZ_FNAME) != EOF) {
+            op = buf
+            ip = fname
+            while (Memc[ip] != '$' && Memc[ip] != EOS && Memc[ip] != ',') {
+                Memc[op] = Memc[ip]
+                ip = ip + 1
+                op = op + 1
+            }
+            Memc[op] = EOS
+            if (strne(Memc[buf],"lib")) {
+                lp = lp + gstrcpy (Memc[buf], Memc[lp], ARB)
+		if (XH_SHOWTYPE(xh) == YES)
+                    lp = lp + gstrcpy (".", Memc[lp], ARB)
+                lp = lp + gstrcpy (" ", Memc[lp], ARB)
+            }
+        }
+
+        # Add the clpackage contents to the list.
+        lp = lp + xh_pkglist (xh, "clpackage", HELPDB(xh), Memc[lp])
+
+	if (lp > (XH_LPTR(xh) + SZ_HELPLIST))
+	    call error (1, "Memory error: LIST pointer overflow.")
+
+        # Sort the list so it's presentable.
+        call xh_sort_list (LIST(xh))
+
+	call sfree (sp)
+end