Initial commit

1 files changed, 38 insertions, 0 deletions

diff --git a/pkg/utilities/nttools/stxtools/tpopen.x b/pkg/utilities/nttools/stxtools/tpopen.x
new file mode 100644
index 00000000..d9b7a2af
--- /dev/null
+++ b/pkg/utilities/nttools/stxtools/tpopen.x
@@ -0,0 +1,38 @@
+include	"template.h"
+
+# TP_OPEN -- Expand a group image template into a list of image names.
+
+# Create an array of image names that contain the group specification. 
+# Return a pointer to the list of names and the total number of names.
+#
+# B.Simon	28-Feb-89	Original
+# B.Simon	23-Jun-89	Hint character added
+# B.Simon	21-Aug-91	Changed template structure
+
+pointer procedure tp_open (imname, def_count, count)
+
+char	imname[ARB]		# i: image template
+int	def_count		# i: default image name count
+int	count			# o: number of image names
+#--
+pointer	ptr
+
+errchk	tp_parse, malloc
+
+begin
+	# Allocate data structure
+
+	call malloc (ptr, LEN_TPSTRUCT, TY_STRUCT)
+	call malloc (TP_ROOTPTR(ptr), SZ_FNAME, TY_CHAR)
+	call malloc (TP_SECTPTR(ptr), SZ_FNAME, TY_CHAR)
+
+	# Parse the template into a root name, starting group number,
+	# and group count
+
+	call tp_parse (imname, def_count, TP_ROOT(ptr), TP_SECT(ptr),
+		       TP_START(ptr), TP_COUNT(ptr))
+
+	TP_INDEX(ptr) = TP_START(ptr)
+	count = TP_COUNT(ptr)
+	return(ptr)
+end