1 files changed, 85 insertions, 0 deletions
diff --git a/pkg/xtools/gtools/gtcopy.x b/pkg/xtools/gtools/gtcopy.x
new file mode 100644
index 00000000..5c79da9e
--- /dev/null
+++ b/pkg/xtools/gtools/gtcopy.x
@@ -0,0 +1,85 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	"gtools.h"
+
+# GT_COPY -- Copy values of one structure to another.
+
+procedure gt_copy (gt1, gt2)
+
+pointer	gt1, gt2
+
+int	len, strlen()
+pointer	gt_init()
+
+begin
+	if (gt1 == NULL)
+	    call error (0, "gt_copy: Undefined gtools structure")
+
+	if (gt2 == NULL)
+	    gt2 = gt_init ()
+	else {
+	    call mfree (GT_PARAMS(gt2), TY_CHAR)
+	    call mfree (GT_TITLE(gt2), TY_CHAR)
+	    call mfree (GT_SUBTITLE(gt2), TY_CHAR)
+	    call mfree (GT_COMMENTS(gt2), TY_CHAR)
+	    call mfree (GT_XLABEL(gt2), TY_CHAR)
+	    call mfree (GT_YLABEL(gt2), TY_CHAR)
+	    call mfree (GT_XUNITS(gt2), TY_CHAR)
+	    call mfree (GT_YUNITS(gt2), TY_CHAR)
+	    call mfree (GT_XFORMAT(gt2), TY_CHAR)
+	    call mfree (GT_YFORMAT(gt2), TY_CHAR)
+	}
+
+	call amovi (Memi[gt1], Memi[gt2], LEN_GT)
+
+	if (GT_PARAMS(gt1) != NULL) {
+	    len = strlen (Memc[GT_PARAMS(gt1)])
+	    call malloc (GT_PARAMS(gt2), len, TY_CHAR)
+	    call strcpy (Memc[GT_PARAMS(gt1)], Memc[GT_PARAMS(gt2)], len)
+	}
+	if (GT_TITLE(gt1) != NULL) {
+	    len = strlen (Memc[GT_TITLE(gt1)])
+	    call malloc (GT_TITLE(gt2), len, TY_CHAR)
+	    call strcpy (Memc[GT_TITLE(gt1)], Memc[GT_TITLE(gt2)], len)
+	}
+	if (GT_SUBTITLE(gt1) != NULL) {
+	    len = strlen (Memc[GT_SUBTITLE(gt1)])
+	    call malloc (GT_SUBTITLE(gt2), len, TY_CHAR)
+	    call strcpy (Memc[GT_SUBTITLE(gt1)], Memc[GT_SUBTITLE(gt2)], len)
+	}
+	if (GT_COMMENTS(gt1) != NULL) {
+	    len = strlen (Memc[GT_COMMENTS(gt1)])
+	    call malloc (GT_COMMENTS(gt2), len, TY_CHAR)
+	    call strcpy (Memc[GT_COMMENTS(gt1)], Memc[GT_COMMENTS(gt2)], len)
+	}
+	if (GT_XLABEL(gt1) != NULL) {
+	    len = strlen (Memc[GT_XLABEL(gt1)])
+	    call malloc (GT_XLABEL(gt2), len, TY_CHAR)
+	    call strcpy (Memc[GT_XLABEL(gt1)], Memc[GT_XLABEL(gt2)], len)
+	}
+	if (GT_YLABEL(gt1) != NULL) {
+	    len = strlen (Memc[GT_YLABEL(gt1)])
+	    call malloc (GT_YLABEL(gt2), len, TY_CHAR)
+	    call strcpy (Memc[GT_YLABEL(gt1)], Memc[GT_YLABEL(gt2)], len)
+	}
+	if (GT_XUNITS(gt1) != NULL) {
+	    len = strlen (Memc[GT_XUNITS(gt1)])
+	    call malloc (GT_XUNITS(gt2), len, TY_CHAR)
+	    call strcpy (Memc[GT_XUNITS(gt1)], Memc[GT_XUNITS(gt2)], len)
+	}
+	if (GT_YUNITS(gt1) != NULL) {
+	    len = strlen (Memc[GT_YUNITS(gt1)])
+	    call malloc (GT_YUNITS(gt2), len, TY_CHAR)
+	    call strcpy (Memc[GT_YUNITS(gt1)], Memc[GT_YUNITS(gt2)], len)
+	}
+	if (GT_XFORMAT(gt1) != NULL) {
+	    len = strlen (Memc[GT_XFORMAT(gt1)])
+	    call malloc (GT_XFORMAT(gt2), len, TY_CHAR)
+	    call strcpy (Memc[GT_XFORMAT(gt1)], Memc[GT_XFORMAT(gt2)], len)
+	}
+	if (GT_YFORMAT(gt1) != NULL) {
+	    len = strlen (Memc[GT_YFORMAT(gt1)])
+	    call malloc (GT_YFORMAT(gt2), len, TY_CHAR)
+	    call strcpy (Memc[GT_YFORMAT(gt1)], Memc[GT_YFORMAT(gt2)], len)
+	}
+end