From 313166a4d9889f8e2a542d19b2b9051eea4ee35b Mon Sep 17 00:00:00 2001
From: "Charles.Forsyth" <devnull@localhost>
Date: Wed, 31 Jan 2007 21:35:05 +0000
Subject: add utf16_btos/stob to convcs(2)

---
 appl/lib/convcs/utf16_stob.b | 47 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 47 insertions(+)
 create mode 100644 appl/lib/convcs/utf16_stob.b

(limited to 'appl/lib/convcs/utf16_stob.b')

diff --git a/appl/lib/convcs/utf16_stob.b b/appl/lib/convcs/utf16_stob.b
new file mode 100644
index 00000000..312add88
--- /dev/null
+++ b/appl/lib/convcs/utf16_stob.b
@@ -0,0 +1,47 @@
+implement Stob;
+
+include "sys.m";
+	sys: Sys;
+include "convcs.m";
+
+bigendian := 1;
+header := 1;
+
+init(arg : string) : string
+{
+	sys = load Sys Sys->PATH;
+	case arg {
+	"le" =>
+		bigendian = 0;
+		header = 0;
+	"be" =>
+		header = 0;
+	}
+	return nil;
+}
+
+stob(state : Convcs->State, s : string) : (Convcs->State, array of byte)
+{
+	if(state == nil){
+		if(header)
+			s = sys->sprint("%c", 16rfeff) + s;
+		state = "doneheader";
+	}
+
+	b := array[len s * 2] of byte;
+	j := 0;
+	if(bigendian){
+		for(i := 0; i < len s; i++){
+			c := s[i];
+			b[j++] = byte (c >> 8);
+			b[j++] = byte c;
+		}
+	}else{
+		for(i := 0; i < len s; i++){
+			c := s[i];
+			b[j++] = byte c;
+			b[j++] = byte (c >> 8);
+		}
+	}
+	return (state, b);
+}
-- 
cgit v1.2.3