BlackBox Framework Center

Code: Select all

	PROCEDURE Utf8ToUcs2* (IN inBuf: ARRAY OF SHORTCHAR; VAR inPos: INTEGER; inLen: INTEGER; OUT outBuf: ARRAY OF CHAR; VAR outPos: INTEGER; outLen: INTEGER);
		VAR	inp, outp: INTEGER; st, ch, c: INTEGER; char: CHAR;
	BEGIN
		ASSERT((0 <= inLen) & (0 <= inPos) & (inPos + inLen <= LEN(inBuf)), 20);
		ASSERT((0 <= outLen) & (0 <= outPos) & (outPos + outLen <= LEN(outBuf)), 21);
		inp := inPos; outp := outPos;
		IF (0 < inLen) & (0 < outLen) THEN st := 8 ELSE st := 31 END;
		LOOP IF (st IN {1..10}) & (0 < inLen) (*& (0 < outLen) *)THEN
			c := ORD(inBuf[inp]); INC(inp); DEC(inLen);
			CASE st OF
			| 8:
				IF c <= 07FH THEN
					ch := c; st := 0
				ELSIF c < 0C0H THEN
					st := 11
				ELSIF c < 0C2H THEN
					st := 10
				ELSIF c <= 0DFH THEN
					ch := ORD(BITS(c) * {0..5}); st := 1
				ELSIF c = 0E0H THEN
					ch := ORD(BITS(c) * {0..4}); st := 4
				ELSIF c <= 0ECH THEN
					ch := ORD(BITS(c) * {0..4}); st := 2
				ELSIF c = 0EDH THEN
					ch := ORD(BITS(c) * {0..4}); st := 5
				ELSIF c <= 0EFH THEN
					ch := ORD(BITS(c) * {0..4}); st := 2
				ELSIF c = 0F0H THEN
					ch := ORD(BITS(c) * {0..3}); st := 6
				ELSIF c <= 0F3H THEN
					ch := ORD(BITS(c) * {0..3}); st := 3
				ELSIF c = 0F4H THEN
					ch := ORD(BITS(c) * {0..3}); st := 7
				ELSE
					st := 11
				END
			| 4:
				IF (0A0H <= c) & (c <= 0BFH) THEN
					ch := ORD(BITS(ASH(ch, 6)) + BITS(c) * {0..6}); st := 1
				ELSE
					st := 10
				END
			| 5:
				IF (080H <= c) & (c <= 09FH) THEN
					ch := ORD(BITS(ASH(ch, 6)) + BITS(c) * {0..6}); st := 1
				ELSE
					st := 10
				END
			| 6:
				IF (090H <= c) & (c <= 0BFH) THEN
					ch := ORD(BITS(ASH(ch, 6)) + BITS(c) * {0..6}); st := 2
				ELSE
					st := 9
				END
			| 7:
				IF (080H <= c) & (c <= 08FH) THEN
					ch := ORD(BITS(ASH(ch, 6)) + BITS(c) * {0..6}); st := 2
				ELSE
					st := 9
				END
			| 1..3:
				IF (080H <= c) & (c <= 0BFH) THEN
					ch := ORD(BITS(ASH(ch, 6)) + BITS(c) * {0..6});
					DEC(st)
				ELSE
					st := 12 - st
				END
			| 9..10:
				INC(st)
			END
		ELSIF st IN {0, 11} (*& (0 < outLen) *)THEN
			IF (st = 0) & (0 <= ch) & (ch <= 0FFFFH) THEN
				char := CHR(ch)
			ELSE
				char := "?"
			END;
			outBuf[outp] := char; INC(outp); DEC(outLen);
			IF (0 < inLen) & (0 < outLen) THEN st := 8 ELSE st := 31 END
		ELSE EXIT END END;
		ASSERT((st IN {1..7, 9..10, 31}) & ((inLen = 0) OR (outLen = 0)));
		IF st IN {1..7, 9..10} THEN outBuf[outp] := "?"; INC(outp); DEC(outLen) END;
		inPos := inp; outPos := outp
	END Utf8ToUcs2;