1 files changed, 109 insertions, 0 deletions
diff --git a/src/tet3/dtet2lib/btmsg.c b/src/tet3/dtet2lib/btmsg.c
new file mode 100644
index 00000000..ee3d04da
--- /dev/null
+++ b/src/tet3/dtet2lib/btmsg.c
@@ -0,0 +1,109 @@
+/*
+ *      SCCS:  @(#)btmsg.c	1.6 (96/11/04) 
+ *
+ *	UniSoft Ltd., London, England
+ *
+ * (C) Copyright 1992 X/Open Company Limited
+ *
+ * All rights reserved.  No part of this source code may be reproduced,
+ * stored in a retrieval system, or transmitted, in any form or by any
+ * means, electronic, mechanical, photocopying, recording or otherwise,
+ * except as stated in the end-user licence agreement, without the prior
+ * permission of the copyright owners.
+ *
+ * X/Open and the 'X' symbol are trademarks of X/Open Company Limited in
+ * the UK and other countries.
+ */
+
+#ifndef lint
+static char sccsid[] = "@(#)btmsg.c	1.6 (96/11/04) TET3 release 3.3";
+#endif
+
+/************************************************************************
+
+SCCS:   	@(#)btmsg.c	1.6 96/11/04 TETware release 3.3
+NAME:		btmsg.c
+PRODUCT:	TETware
+AUTHOR:		Andrew Dingwall, UniSoft Ltd.
+DATE CREATED:	April 1992
+
+DESCRIPTION:
+	functions to convert a DTET interprocess binary transfer message
+	between internal and machine-independent format
+	the data ("binary") portion of the message is copied "as is";
+	no conversion is performed
+
+MODIFICATIONS:
+
+************************************************************************/
+
+#ifndef TET_LITE	/* -START-LITE-CUT- */
+
+#include <stdio.h>
+#include "dtmac.h"
+#include "ldst.h"
+#include "dtmsg.h"
+#include "btmsg.h"
+#include "dtetlib.h"
+
+#ifdef NEEDsrcFile
+static char srcFile[] = __FILE__;	/* file name for error reporting */
+#endif
+
+static struct stdesc st[] = {
+	BTMSG_DESC
+};
+
+static short nst = -1;
+
+
+/* static function declarations */
+static void stinit PROTOLIST((void));
+
+
+static void stinit()
+{
+	register struct btmsg *sp = (struct btmsg *) 0;
+	register int n = 0;
+
+	BTMSG_INIT(st, sp, n, nst);
+}
+
+int tet_btmsg2bs(from, to)
+register struct btmsg *from;
+register char *to;
+{
+	if (nst < 0)
+		stinit();
+
+	return(tet_st2bs((char *) from, to, st, nst));
+}
+
+/*
+**	tet_bs2btmsg() - convert a btmsg message to internal format
+*/
+
+int tet_bs2btmsg(from, fromlen, to, tolen)
+register char *from;
+register int fromlen;
+register struct btmsg **to;
+register int *tolen;
+{
+	if (nst < 0)
+		stinit();
+
+	if (BUFCHK((char **) to, tolen, sizeof **to) < 0)
+		return(-1);
+
+	if (tet_bs2st(from, (char *) *to, st, nst, fromlen) < 0)
+		return(-1);
+
+	return(sizeof **to);
+}
+
+#else	/* -END-LITE-CUT- */
+
+int tet_btmsg_c_not_empty;
+
+#endif /* !TET_LITE */	/* -LITE-CUT-LINE- */
+