projects/ldc: druntime/src/compiler/ldc/aApplyR.d annotate

author	Robert Clipsham <robert@octarineparrot.com>
date	Tue, 02 Jun 2009 17:43:06 +0100
parents
children

rev	line source
1458 e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1 /**
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	2 * This code handles decoding UTF strings for foreach_reverse loops. There are
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	3 * 6 combinations of conversions between char, wchar, and dchar, and 2 of each
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	4 * of those.
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	5 *
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	6 * Copyright: Copyright Digital Mars 2004 - 2009.
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	7 * License: <a href="http://www.boost.org/LICENSE_1_0.txt>Boost License 1.0</a>.
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	8 * Authors: Walter Bright, Sean Kelly
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	9 *
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	10 * Copyright Digital Mars 2004 - 2009.
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	11 * Distributed under the Boost Software License, Version 1.0.
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	12 * (See accompanying file LICENSE_1_0.txt or copy at
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	13 * http://www.boost.org/LICENSE_1_0.txt)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	14 */
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	15 module rt.aApplyR;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	16
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	17 /* This code handles decoding UTF strings for foreach_reverse loops.
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	18 * There are 6 combinations of conversions between char, wchar,
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	19 * and dchar, and 2 of each of those.
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	20 */
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	21
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	22 private import rt.util.utf;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	23
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	24 /**********************************************/
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	25 /* 1 argument versions */
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	26
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	27 // dg is D, but _aApplyRcd() is C
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	28 extern (D) typedef int delegate(void *) dg_t;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	29
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	30 extern (C) int _aApplyRcd1(in char[] aa, dg_t dg)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	31 { int result;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	32
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	33 debug(apply) printf("_aApplyRcd1(), len = %d\n", aa.length);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	34 for (size_t i = aa.length; i != 0; )
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	35 { dchar d;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	36
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	37 i--;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	38 d = aa[i];
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	39 if (d & 0x80)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	40 { char c = cast(char)d;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	41 uint j;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	42 uint m = 0x3F;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	43 d = 0;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	44 while ((c & 0xC0) != 0xC0)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	45 { if (i == 0)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	46 onUnicodeError("Invalid UTF-8 sequence", 0);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	47 i--;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	48 d \|= (c & 0x3F) << j;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	49 j += 6;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	50 m >>= 1;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	51 c = aa[i];
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	52 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	53 d \|= (c & m) << j;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	54 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	55 result = dg(cast(void *)&d);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	56 if (result)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	57 break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	58 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	59 return result;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	60 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	61
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	62 unittest
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	63 {
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	64 debug(apply) printf("_aApplyRcd1.unittest\n");
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	65
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	66 auto s = "hello"c[];
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	67 int i;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	68
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	69 foreach_reverse(dchar d; s)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	70 {
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	71 switch (i)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	72 {
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	73 case 0: assert(d == 'o'); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	74 case 1: assert(d == 'l'); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	75 case 2: assert(d == 'l'); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	76 case 3: assert(d == 'e'); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	77 case 4: assert(d == 'h'); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	78 default: assert(0);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	79 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	80 i++;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	81 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	82 assert(i == 5);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	83
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	84 s = "a\u1234\U00100456b";
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	85 i = 0;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	86 foreach_reverse(dchar d; s)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	87 {
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	88 //printf("i = %d, d = %x\n", i, d);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	89 switch (i)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	90 {
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	91 case 0: assert(d == 'b'); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	92 case 1: assert(d == '\U00100456'); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	93 case 2: assert(d == '\u1234'); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	94 case 3: assert(d == 'a'); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	95 default: assert(0);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	96 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	97 i++;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	98 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	99 assert(i == 4);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	100 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	101
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	102 /*****************************/
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	103
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	104 extern (C) int _aApplyRwd1(in wchar[] aa, dg_t dg)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	105 { int result;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	106
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	107 debug(apply) printf("_aApplyRwd1(), len = %d\n", aa.length);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	108 for (size_t i = aa.length; i != 0; )
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	109 { dchar d;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	110
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	111 i--;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	112 d = aa[i];
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	113 if (d >= 0xDC00 && d <= 0xDFFF)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	114 { if (i == 0)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	115 onUnicodeError("Invalid UTF-16 sequence", 0);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	116 i--;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	117 d = ((aa[i] - 0xD7C0) << 10) + (d - 0xDC00);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	118 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	119 result = dg(cast(void *)&d);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	120 if (result)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	121 break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	122 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	123 return result;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	124 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	125
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	126 unittest
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	127 {
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	128 debug(apply) printf("_aApplyRwd1.unittest\n");
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	129
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	130 auto s = "hello"w[];
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	131 int i;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	132
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	133 foreach_reverse(dchar d; s)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	134 {
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	135 switch (i)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	136 {
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	137 case 0: assert(d == 'o'); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	138 case 1: assert(d == 'l'); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	139 case 2: assert(d == 'l'); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	140 case 3: assert(d == 'e'); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	141 case 4: assert(d == 'h'); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	142 default: assert(0);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	143 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	144 i++;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	145 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	146 assert(i == 5);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	147
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	148 s = "a\u1234\U00100456b";
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	149 i = 0;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	150 foreach_reverse(dchar d; s)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	151 {
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	152 //printf("i = %d, d = %x\n", i, d);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	153 switch (i)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	154 {
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	155 case 0: assert(d == 'b'); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	156 case 1: assert(d == '\U00100456'); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	157 case 2: assert(d == '\u1234'); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	158 case 3: assert(d == 'a'); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	159 default: assert(0);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	160 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	161 i++;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	162 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	163 assert(i == 4);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	164 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	165
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	166 /*****************************/
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	167
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	168 extern (C) int _aApplyRcw1(in char[] aa, dg_t dg)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	169 { int result;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	170
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	171 debug(apply) printf("_aApplyRcw1(), len = %d\n", aa.length);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	172 for (size_t i = aa.length; i != 0; )
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	173 { dchar d;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	174 wchar w;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	175
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	176 i--;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	177 w = aa[i];
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	178 if (w & 0x80)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	179 { char c = cast(char)w;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	180 uint j;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	181 uint m = 0x3F;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	182 d = 0;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	183 while ((c & 0xC0) != 0xC0)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	184 { if (i == 0)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	185 onUnicodeError("Invalid UTF-8 sequence", 0);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	186 i--;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	187 d \|= (c & 0x3F) << j;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	188 j += 6;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	189 m >>= 1;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	190 c = aa[i];
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	191 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	192 d \|= (c & m) << j;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	193
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	194 if (d <= 0xFFFF)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	195 w = cast(wchar) d;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	196 else
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	197 {
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	198 w = cast(wchar) ((((d - 0x10000) >> 10) & 0x3FF) + 0xD800);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	199 result = dg(cast(void *)&w);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	200 if (result)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	201 break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	202 w = cast(wchar) (((d - 0x10000) & 0x3FF) + 0xDC00);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	203 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	204 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	205 result = dg(cast(void *)&w);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	206 if (result)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	207 break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	208 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	209 return result;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	210 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	211
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	212 unittest
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	213 {
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	214 debug(apply) printf("_aApplyRcw1.unittest\n");
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	215
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	216 auto s = "hello"c[];
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	217 int i;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	218
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	219 foreach_reverse(wchar d; s)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	220 {
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	221 switch (i)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	222 {
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	223 case 0: assert(d == 'o'); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	224 case 1: assert(d == 'l'); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	225 case 2: assert(d == 'l'); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	226 case 3: assert(d == 'e'); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	227 case 4: assert(d == 'h'); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	228 default: assert(0);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	229 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	230 i++;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	231 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	232 assert(i == 5);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	233
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	234 s = "a\u1234\U00100456b";
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	235 i = 0;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	236 foreach_reverse(wchar d; s)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	237 {
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	238 //printf("i = %d, d = %x\n", i, d);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	239 switch (i)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	240 {
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	241 case 0: assert(d == 'b'); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	242 case 1: assert(d == 0xDBC1); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	243 case 2: assert(d == 0xDC56); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	244 case 3: assert(d == 0x1234); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	245 case 4: assert(d == 'a'); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	246 default: assert(0);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	247 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	248 i++;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	249 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	250 assert(i == 5);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	251 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	252
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	253 /*****************************/
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	254
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	255 extern (C) int _aApplyRwc1(in wchar[] aa, dg_t dg)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	256 { int result;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	257
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	258 debug(apply) printf("_aApplyRwc1(), len = %d\n", aa.length);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	259 for (size_t i = aa.length; i != 0; )
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	260 { dchar d;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	261 char c;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	262
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	263 i--;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	264 d = aa[i];
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	265 if (d >= 0xDC00 && d <= 0xDFFF)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	266 { if (i == 0)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	267 onUnicodeError("Invalid UTF-16 sequence", 0);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	268 i--;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	269 d = ((aa[i] - 0xD7C0) << 10) + (d - 0xDC00);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	270 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	271
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	272 if (d & ~0x7F)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	273 {
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	274 char[4] buf;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	275
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	276 auto b = toUTF8(buf, d);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	277 foreach (char c2; b)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	278 {
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	279 result = dg(cast(void *)&c2);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	280 if (result)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	281 return result;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	282 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	283 continue;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	284 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	285 c = cast(char)d;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	286 result = dg(cast(void *)&c);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	287 if (result)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	288 break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	289 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	290 return result;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	291 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	292
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	293 unittest
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	294 {
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	295 debug(apply) printf("_aApplyRwc1.unittest\n");
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	296
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	297 auto s = "hello"w[];
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	298 int i;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	299
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	300 foreach_reverse(char d; s)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	301 {
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	302 switch (i)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	303 {
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	304 case 0: assert(d == 'o'); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	305 case 1: assert(d == 'l'); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	306 case 2: assert(d == 'l'); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	307 case 3: assert(d == 'e'); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	308 case 4: assert(d == 'h'); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	309 default: assert(0);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	310 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	311 i++;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	312 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	313 assert(i == 5);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	314
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	315 s = "a\u1234\U00100456b";
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	316 i = 0;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	317 foreach_reverse(char d; s)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	318 {
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	319 //printf("i = %d, d = %x\n", i, d);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	320 switch (i)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	321 {
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	322 case 0: assert(d == 'b'); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	323 case 1: assert(d == 0xF4); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	324 case 2: assert(d == 0x80); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	325 case 3: assert(d == 0x91); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	326 case 4: assert(d == 0x96); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	327 case 5: assert(d == 0xE1); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	328 case 6: assert(d == 0x88); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	329 case 7: assert(d == 0xB4); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	330 case 8: assert(d == 'a'); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	331 default: assert(0);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	332 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	333 i++;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	334 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	335 assert(i == 9);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	336 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	337
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	338 /*****************************/
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	339
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	340 extern (C) int _aApplyRdc1(in dchar[] aa, dg_t dg)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	341 { int result;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	342
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	343 debug(apply) printf("_aApplyRdc1(), len = %d\n", aa.length);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	344 for (size_t i = aa.length; i != 0;)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	345 { dchar d = aa[--i];
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	346 char c;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	347
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	348 if (d & ~0x7F)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	349 {
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	350 char[4] buf;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	351
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	352 auto b = toUTF8(buf, d);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	353 foreach (char c2; b)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	354 {
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	355 result = dg(cast(void *)&c2);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	356 if (result)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	357 return result;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	358 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	359 continue;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	360 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	361 else
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	362 {
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	363 c = cast(char)d;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	364 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	365 result = dg(cast(void *)&c);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	366 if (result)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	367 break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	368 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	369 return result;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	370 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	371
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	372 unittest
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	373 {
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	374 debug(apply) printf("_aApplyRdc1.unittest\n");
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	375
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	376 auto s = "hello"d[];
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	377 int i;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	378
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	379 foreach_reverse(char d; s)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	380 {
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	381 switch (i)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	382 {
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	383 case 0: assert(d == 'o'); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	384 case 1: assert(d == 'l'); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	385 case 2: assert(d == 'l'); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	386 case 3: assert(d == 'e'); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	387 case 4: assert(d == 'h'); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	388 default: assert(0);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	389 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	390 i++;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	391 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	392 assert(i == 5);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	393
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	394 s = "a\u1234\U00100456b";
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	395 i = 0;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	396 foreach_reverse(char d; s)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	397 {
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	398 //printf("i = %d, d = %x\n", i, d);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	399 switch (i)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	400 {
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	401 case 0: assert(d == 'b'); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	402 case 1: assert(d == 0xF4); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	403 case 2: assert(d == 0x80); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	404 case 3: assert(d == 0x91); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	405 case 4: assert(d == 0x96); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	406 case 5: assert(d == 0xE1); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	407 case 6: assert(d == 0x88); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	408 case 7: assert(d == 0xB4); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	409 case 8: assert(d == 'a'); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	410 default: assert(0);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	411 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	412 i++;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	413 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	414 assert(i == 9);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	415 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	416
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	417 /*****************************/
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	418
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	419 extern (C) int _aApplyRdw1(in dchar[] aa, dg_t dg)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	420 { int result;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	421
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	422 debug(apply) printf("_aApplyRdw1(), len = %d\n", aa.length);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	423 for (size_t i = aa.length; i != 0; )
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	424 { dchar d = aa[--i];
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	425 wchar w;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	426
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	427 if (d <= 0xFFFF)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	428 w = cast(wchar) d;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	429 else
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	430 {
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	431 w = cast(wchar) ((((d - 0x10000) >> 10) & 0x3FF) + 0xD800);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	432 result = dg(cast(void *)&w);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	433 if (result)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	434 break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	435 w = cast(wchar) (((d - 0x10000) & 0x3FF) + 0xDC00);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	436 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	437 result = dg(cast(void *)&w);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	438 if (result)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	439 break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	440 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	441 return result;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	442 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	443
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	444 unittest
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	445 {
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	446 debug(apply) printf("_aApplyRdw1.unittest\n");
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	447
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	448 auto s = "hello"d[];
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	449 int i;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	450
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	451 foreach_reverse(wchar d; s)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	452 {
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	453 switch (i)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	454 {
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	455 case 0: assert(d == 'o'); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	456 case 1: assert(d == 'l'); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	457 case 2: assert(d == 'l'); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	458 case 3: assert(d == 'e'); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	459 case 4: assert(d == 'h'); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	460 default: assert(0);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	461 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	462 i++;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	463 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	464 assert(i == 5);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	465
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	466 s = "a\u1234\U00100456b";
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	467 i = 0;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	468 foreach_reverse(wchar d; s)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	469 {
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	470 //printf("i = %d, d = %x\n", i, d);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	471 switch (i)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	472 {
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	473 case 0: assert(d == 'b'); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	474 case 1: assert(d == 0xDBC1); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	475 case 2: assert(d == 0xDC56); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	476 case 3: assert(d == 0x1234); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	477 case 4: assert(d == 'a'); break;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	478 default: assert(0);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	479 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	480 i++;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	481 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	482 assert(i == 5);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	483 }
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	484
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	485
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	486 /****************************************************************************/
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	487 /* 2 argument versions */
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	488
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	489 // dg is D, but _aApplyRcd2() is C
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	490 extern (D) typedef int delegate(void , void ) dg2_t;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	491
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	492 extern (C) int _aApplyRcd2(in char[] aa, dg2_t dg)
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	493 { int result;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	494 size_t i;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	495 size_t len = aa.length;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	496
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	497 debug(apply) printf("_aApplyRcd2(), len = %d\n", len);
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	498 for (i = len; i != 0; )
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	499 { dchar d;
e0b2d67cfe7c Added druntime (this should be removed once it works). Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	500

1458

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

1 /**

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

2 * This code handles decoding UTF strings for foreach_reverse loops. There are

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

3 * 6 combinations of conversions between char, wchar, and dchar, and 2 of each

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

4 * of those.

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

5 *

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

6 * Copyright: Copyright Digital Mars 2004 - 2009.

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

7 * License: <a href="http://www.boost.org/LICENSE_1_0.txt>Boost License 1.0</a>.

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

8 * Authors: Walter Bright, Sean Kelly

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

9 *

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

10 * Copyright Digital Mars 2004 - 2009.

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

11 * Distributed under the Boost Software License, Version 1.0.

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

12 * (See accompanying file LICENSE_1_0.txt or copy at

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

13 * http://www.boost.org/LICENSE_1_0.txt)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

14 */

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

15 module rt.aApplyR;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

16

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

17 /* This code handles decoding UTF strings for foreach_reverse loops.

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

18 * There are 6 combinations of conversions between char, wchar,

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

19 * and dchar, and 2 of each of those.

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

20 */

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

21

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

22 private import rt.util.utf;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

23

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

24 /**********************************************/

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

25 /* 1 argument versions */

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

26

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

27 // dg is D, but _aApplyRcd() is C

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

28 extern (D) typedef int delegate(void *) dg_t;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

29

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

30 extern (C) int _aApplyRcd1(in char[] aa, dg_t dg)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

31 { int result;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

32

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

33 debug(apply) printf("_aApplyRcd1(), len = %d\n", aa.length);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

34 for (size_t i = aa.length; i != 0; )

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

35 { dchar d;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

36

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

37 i--;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

38 d = aa[i];

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

39 if (d & 0x80)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

40 { char c = cast(char)d;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

41 uint j;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

42 uint m = 0x3F;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

43 d = 0;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

44 while ((c & 0xC0) != 0xC0)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

45 { if (i == 0)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

46 onUnicodeError("Invalid UTF-8 sequence", 0);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

47 i--;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

48 d |= (c & 0x3F) << j;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

49 j += 6;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

50 m >>= 1;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

51 c = aa[i];

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

52 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

53 d |= (c & m) << j;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

54 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

55 result = dg(cast(void *)&d);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

56 if (result)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

57 break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

58 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

59 return result;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

60 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

61

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

62 unittest

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

63 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

64 debug(apply) printf("_aApplyRcd1.unittest\n");

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

65

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

66 auto s = "hello"c[];

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

67 int i;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

68

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

69 foreach_reverse(dchar d; s)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

70 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

71 switch (i)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

72 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

73 case 0: assert(d == 'o'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

74 case 1: assert(d == 'l'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

75 case 2: assert(d == 'l'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

76 case 3: assert(d == 'e'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

77 case 4: assert(d == 'h'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

78 default: assert(0);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

79 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

80 i++;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

81 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

82 assert(i == 5);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

83

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

84 s = "a\u1234\U00100456b";

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

85 i = 0;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

86 foreach_reverse(dchar d; s)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

87 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

88 //printf("i = %d, d = %x\n", i, d);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

89 switch (i)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

90 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

91 case 0: assert(d == 'b'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

92 case 1: assert(d == '\U00100456'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

93 case 2: assert(d == '\u1234'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

94 case 3: assert(d == 'a'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

95 default: assert(0);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

96 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

97 i++;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

98 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

99 assert(i == 4);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

100 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

101

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

102 /*****************************/

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

103

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

104 extern (C) int _aApplyRwd1(in wchar[] aa, dg_t dg)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

105 { int result;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

106

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

107 debug(apply) printf("_aApplyRwd1(), len = %d\n", aa.length);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

108 for (size_t i = aa.length; i != 0; )

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

109 { dchar d;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

110

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

111 i--;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

112 d = aa[i];

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

113 if (d >= 0xDC00 && d <= 0xDFFF)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

114 { if (i == 0)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

115 onUnicodeError("Invalid UTF-16 sequence", 0);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

116 i--;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

117 d = ((aa[i] - 0xD7C0) << 10) + (d - 0xDC00);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

118 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

119 result = dg(cast(void *)&d);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

120 if (result)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

121 break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

122 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

123 return result;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

124 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

125

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

126 unittest

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

127 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

128 debug(apply) printf("_aApplyRwd1.unittest\n");

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

129

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

130 auto s = "hello"w[];

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

131 int i;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

132

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

133 foreach_reverse(dchar d; s)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

134 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

135 switch (i)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

136 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

137 case 0: assert(d == 'o'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

138 case 1: assert(d == 'l'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

139 case 2: assert(d == 'l'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

140 case 3: assert(d == 'e'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

141 case 4: assert(d == 'h'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

142 default: assert(0);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

143 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

144 i++;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

145 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

146 assert(i == 5);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

147

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

148 s = "a\u1234\U00100456b";

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

149 i = 0;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

150 foreach_reverse(dchar d; s)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

151 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

152 //printf("i = %d, d = %x\n", i, d);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

153 switch (i)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

154 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

155 case 0: assert(d == 'b'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

156 case 1: assert(d == '\U00100456'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

157 case 2: assert(d == '\u1234'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

158 case 3: assert(d == 'a'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

159 default: assert(0);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

160 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

161 i++;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

162 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

163 assert(i == 4);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

164 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

165

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

166 /*****************************/

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

167

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

168 extern (C) int _aApplyRcw1(in char[] aa, dg_t dg)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

169 { int result;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

170

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

171 debug(apply) printf("_aApplyRcw1(), len = %d\n", aa.length);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

172 for (size_t i = aa.length; i != 0; )

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

173 { dchar d;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

174 wchar w;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

175

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

176 i--;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

177 w = aa[i];

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

178 if (w & 0x80)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

179 { char c = cast(char)w;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

180 uint j;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

181 uint m = 0x3F;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

182 d = 0;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

183 while ((c & 0xC0) != 0xC0)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

184 { if (i == 0)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

185 onUnicodeError("Invalid UTF-8 sequence", 0);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

186 i--;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

187 d |= (c & 0x3F) << j;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

188 j += 6;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

189 m >>= 1;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

190 c = aa[i];

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

191 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

192 d |= (c & m) << j;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

193

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

194 if (d <= 0xFFFF)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

195 w = cast(wchar) d;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

196 else

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

197 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

198 w = cast(wchar) ((((d - 0x10000) >> 10) & 0x3FF) + 0xD800);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

199 result = dg(cast(void *)&w);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

200 if (result)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

201 break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

202 w = cast(wchar) (((d - 0x10000) & 0x3FF) + 0xDC00);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

203 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

204 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

205 result = dg(cast(void *)&w);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

206 if (result)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

207 break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

208 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

209 return result;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

210 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

211

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

212 unittest

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

213 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

214 debug(apply) printf("_aApplyRcw1.unittest\n");

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

215

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

216 auto s = "hello"c[];

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

217 int i;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

218

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

219 foreach_reverse(wchar d; s)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

220 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

221 switch (i)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

222 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

223 case 0: assert(d == 'o'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

224 case 1: assert(d == 'l'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

225 case 2: assert(d == 'l'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

226 case 3: assert(d == 'e'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

227 case 4: assert(d == 'h'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

228 default: assert(0);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

229 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

230 i++;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

231 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

232 assert(i == 5);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

233

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

234 s = "a\u1234\U00100456b";

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

235 i = 0;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

236 foreach_reverse(wchar d; s)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

237 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

238 //printf("i = %d, d = %x\n", i, d);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

239 switch (i)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

240 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

241 case 0: assert(d == 'b'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

242 case 1: assert(d == 0xDBC1); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

243 case 2: assert(d == 0xDC56); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

244 case 3: assert(d == 0x1234); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

245 case 4: assert(d == 'a'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

246 default: assert(0);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

247 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

248 i++;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

249 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

250 assert(i == 5);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

251 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

252

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

253 /*****************************/

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

254

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

255 extern (C) int _aApplyRwc1(in wchar[] aa, dg_t dg)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

256 { int result;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

257

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

258 debug(apply) printf("_aApplyRwc1(), len = %d\n", aa.length);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

259 for (size_t i = aa.length; i != 0; )

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

260 { dchar d;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

261 char c;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

262

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

263 i--;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

264 d = aa[i];

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

265 if (d >= 0xDC00 && d <= 0xDFFF)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

266 { if (i == 0)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

267 onUnicodeError("Invalid UTF-16 sequence", 0);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

268 i--;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

269 d = ((aa[i] - 0xD7C0) << 10) + (d - 0xDC00);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

270 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

271

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

272 if (d & ~0x7F)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

273 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

274 char[4] buf;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

275

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

276 auto b = toUTF8(buf, d);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

277 foreach (char c2; b)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

278 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

279 result = dg(cast(void *)&c2);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

280 if (result)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

281 return result;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

282 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

283 continue;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

284 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

285 c = cast(char)d;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

286 result = dg(cast(void *)&c);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

287 if (result)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

288 break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

289 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

290 return result;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

291 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

292

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

293 unittest

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

294 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

295 debug(apply) printf("_aApplyRwc1.unittest\n");

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

296

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

297 auto s = "hello"w[];

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

298 int i;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

299

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

300 foreach_reverse(char d; s)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

301 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

302 switch (i)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

303 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

304 case 0: assert(d == 'o'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

305 case 1: assert(d == 'l'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

306 case 2: assert(d == 'l'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

307 case 3: assert(d == 'e'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

308 case 4: assert(d == 'h'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

309 default: assert(0);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

310 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

311 i++;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

312 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

313 assert(i == 5);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

314

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

315 s = "a\u1234\U00100456b";

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

316 i = 0;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

317 foreach_reverse(char d; s)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

318 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

319 //printf("i = %d, d = %x\n", i, d);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

320 switch (i)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

321 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

322 case 0: assert(d == 'b'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

323 case 1: assert(d == 0xF4); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

324 case 2: assert(d == 0x80); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

325 case 3: assert(d == 0x91); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

326 case 4: assert(d == 0x96); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

327 case 5: assert(d == 0xE1); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

328 case 6: assert(d == 0x88); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

329 case 7: assert(d == 0xB4); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

330 case 8: assert(d == 'a'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

331 default: assert(0);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

332 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

333 i++;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

334 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

335 assert(i == 9);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

336 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

337

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

338 /*****************************/

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

339

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

340 extern (C) int _aApplyRdc1(in dchar[] aa, dg_t dg)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

341 { int result;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

342

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

343 debug(apply) printf("_aApplyRdc1(), len = %d\n", aa.length);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

344 for (size_t i = aa.length; i != 0;)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

345 { dchar d = aa[--i];

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

346 char c;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

347

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

348 if (d & ~0x7F)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

349 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

350 char[4] buf;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

351

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

352 auto b = toUTF8(buf, d);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

353 foreach (char c2; b)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

354 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

355 result = dg(cast(void *)&c2);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

356 if (result)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

357 return result;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

358 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

359 continue;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

360 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

361 else

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

362 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

363 c = cast(char)d;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

364 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

365 result = dg(cast(void *)&c);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

366 if (result)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

367 break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

368 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

369 return result;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

370 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

371

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

372 unittest

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

373 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

374 debug(apply) printf("_aApplyRdc1.unittest\n");

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

375

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

376 auto s = "hello"d[];

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

377 int i;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

378

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

379 foreach_reverse(char d; s)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

380 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

381 switch (i)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

382 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

383 case 0: assert(d == 'o'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

384 case 1: assert(d == 'l'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

385 case 2: assert(d == 'l'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

386 case 3: assert(d == 'e'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

387 case 4: assert(d == 'h'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

388 default: assert(0);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

389 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

390 i++;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

391 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

392 assert(i == 5);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

393

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

394 s = "a\u1234\U00100456b";

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

395 i = 0;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

396 foreach_reverse(char d; s)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

397 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

398 //printf("i = %d, d = %x\n", i, d);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

399 switch (i)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

400 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

401 case 0: assert(d == 'b'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

402 case 1: assert(d == 0xF4); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

403 case 2: assert(d == 0x80); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

404 case 3: assert(d == 0x91); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

405 case 4: assert(d == 0x96); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

406 case 5: assert(d == 0xE1); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

407 case 6: assert(d == 0x88); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

408 case 7: assert(d == 0xB4); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

409 case 8: assert(d == 'a'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

410 default: assert(0);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

411 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

412 i++;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

413 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

414 assert(i == 9);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

415 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

416

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

417 /*****************************/

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

418

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

419 extern (C) int _aApplyRdw1(in dchar[] aa, dg_t dg)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

420 { int result;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

421

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

422 debug(apply) printf("_aApplyRdw1(), len = %d\n", aa.length);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

423 for (size_t i = aa.length; i != 0; )

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

424 { dchar d = aa[--i];

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

425 wchar w;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

426

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

427 if (d <= 0xFFFF)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

428 w = cast(wchar) d;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

429 else

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

430 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

431 w = cast(wchar) ((((d - 0x10000) >> 10) & 0x3FF) + 0xD800);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

432 result = dg(cast(void *)&w);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

433 if (result)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

434 break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

435 w = cast(wchar) (((d - 0x10000) & 0x3FF) + 0xDC00);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

436 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

437 result = dg(cast(void *)&w);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

438 if (result)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

439 break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

440 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

441 return result;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

442 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

443

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

444 unittest

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

445 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

446 debug(apply) printf("_aApplyRdw1.unittest\n");

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

447

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

448 auto s = "hello"d[];

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

449 int i;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

450

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

451 foreach_reverse(wchar d; s)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

452 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

453 switch (i)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

454 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

455 case 0: assert(d == 'o'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

456 case 1: assert(d == 'l'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

457 case 2: assert(d == 'l'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

458 case 3: assert(d == 'e'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

459 case 4: assert(d == 'h'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

460 default: assert(0);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

461 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

462 i++;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

463 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

464 assert(i == 5);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

465

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

466 s = "a\u1234\U00100456b";

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

467 i = 0;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

468 foreach_reverse(wchar d; s)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

469 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

470 //printf("i = %d, d = %x\n", i, d);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

471 switch (i)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

472 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

473 case 0: assert(d == 'b'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

474 case 1: assert(d == 0xDBC1); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

475 case 2: assert(d == 0xDC56); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

476 case 3: assert(d == 0x1234); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

477 case 4: assert(d == 'a'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

478 default: assert(0);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

479 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

480 i++;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

481 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

482 assert(i == 5);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

483 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

484

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

485

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

486 /****************************************************************************/

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

487 /* 2 argument versions */

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

488

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

489 // dg is D, but _aApplyRcd2() is C

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

490 extern (D) typedef int delegate(void *, void *) dg2_t;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

491

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

492 extern (C) int _aApplyRcd2(in char[] aa, dg2_t dg)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

493 { int result;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

494 size_t i;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

495 size_t len = aa.length;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

496

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

497 debug(apply) printf("_aApplyRcd2(), len = %d\n", len);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

498 for (i = len; i != 0; )

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

499 { dchar d;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

500

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

501 i--;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

502 d = aa[i];

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

503 if (d & 0x80)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

504 { char c = cast(char)d;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

505 uint j;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

506 uint m = 0x3F;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

507 d = 0;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

508 while ((c & 0xC0) != 0xC0)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

509 { if (i == 0)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

510 onUnicodeError("Invalid UTF-8 sequence", 0);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

511 i--;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

512 d |= (c & 0x3F) << j;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

513 j += 6;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

514 m >>= 1;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

515 c = aa[i];

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

516 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

517 d |= (c & m) << j;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

518 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

519 result = dg(&i, cast(void *)&d);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

520 if (result)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

521 break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

522 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

523 return result;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

524 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

525

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

526 unittest

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

527 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

528 debug(apply) printf("_aApplyRcd2.unittest\n");

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

529

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

530 auto s = "hello"c[];

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

531 int i;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

532

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

533 foreach_reverse(k, dchar d; s)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

534 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

535 assert(k == 4 - i);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

536 switch (i)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

537 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

538 case 0: assert(d == 'o'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

539 case 1: assert(d == 'l'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

540 case 2: assert(d == 'l'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

541 case 3: assert(d == 'e'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

542 case 4: assert(d == 'h'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

543 default: assert(0);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

544 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

545 i++;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

546 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

547 assert(i == 5);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

548

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

549 s = "a\u1234\U00100456b";

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

550 i = 0;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

551 foreach_reverse(k, dchar d; s)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

552 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

553 //printf("i = %d, k = %d, d = %x\n", i, k, d);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

554 switch (i)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

555 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

556 case 0: assert(d == 'b'); assert(k == 8); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

557 case 1: assert(d == '\U00100456'); assert(k == 4); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

558 case 2: assert(d == '\u1234'); assert(k == 1); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

559 case 3: assert(d == 'a'); assert(k == 0); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

560 default: assert(0);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

561 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

562 i++;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

563 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

564 assert(i == 4);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

565 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

566

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

567 /*****************************/

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

568

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

569 extern (C) int _aApplyRwd2(in wchar[] aa, dg2_t dg)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

570 { int result;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

571

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

572 debug(apply) printf("_aApplyRwd2(), len = %d\n", aa.length);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

573 for (size_t i = aa.length; i != 0; )

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

574 { dchar d;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

575

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

576 i--;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

577 d = aa[i];

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

578 if (d >= 0xDC00 && d <= 0xDFFF)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

579 { if (i == 0)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

580 onUnicodeError("Invalid UTF-16 sequence", 0);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

581 i--;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

582 d = ((aa[i] - 0xD7C0) << 10) + (d - 0xDC00);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

583 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

584 result = dg(&i, cast(void *)&d);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

585 if (result)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

586 break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

587 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

588 return result;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

589 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

590

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

591 unittest

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

592 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

593 debug(apply) printf("_aApplyRwd2.unittest\n");

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

594

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

595 auto s = "hello"w[];

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

596 int i;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

597

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

598 foreach_reverse(k, dchar d; s)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

599 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

600 //printf("i = %d, k = %d, d = %x\n", i, k, d);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

601 assert(k == 4 - i);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

602 switch (i)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

603 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

604 case 0: assert(d == 'o'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

605 case 1: assert(d == 'l'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

606 case 2: assert(d == 'l'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

607 case 3: assert(d == 'e'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

608 case 4: assert(d == 'h'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

609 default: assert(0);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

610 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

611 i++;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

612 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

613 assert(i == 5);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

614

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

615 s = "a\u1234\U00100456b";

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

616 i = 0;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

617 foreach_reverse(k, dchar d; s)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

618 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

619 //printf("i = %d, k = %d, d = %x\n", i, k, d);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

620 switch (i)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

621 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

622 case 0: assert(k == 4); assert(d == 'b'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

623 case 1: assert(k == 2); assert(d == '\U00100456'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

624 case 2: assert(k == 1); assert(d == '\u1234'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

625 case 3: assert(k == 0); assert(d == 'a'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

626 default: assert(0);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

627 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

628 i++;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

629 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

630 assert(i == 4);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

631 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

632

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

633 /*****************************/

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

634

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

635 extern (C) int _aApplyRcw2(in char[] aa, dg2_t dg)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

636 { int result;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

637

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

638 debug(apply) printf("_aApplyRcw2(), len = %d\n", aa.length);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

639 for (size_t i = aa.length; i != 0; )

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

640 { dchar d;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

641 wchar w;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

642

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

643 i--;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

644 w = aa[i];

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

645 if (w & 0x80)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

646 { char c = cast(char)w;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

647 uint j;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

648 uint m = 0x3F;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

649 d = 0;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

650 while ((c & 0xC0) != 0xC0)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

651 { if (i == 0)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

652 onUnicodeError("Invalid UTF-8 sequence", 0);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

653 i--;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

654 d |= (c & 0x3F) << j;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

655 j += 6;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

656 m >>= 1;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

657 c = aa[i];

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

658 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

659 d |= (c & m) << j;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

660

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

661 if (d <= 0xFFFF)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

662 w = cast(wchar) d;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

663 else

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

664 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

665 w = cast(wchar) ((((d - 0x10000) >> 10) & 0x3FF) + 0xD800);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

666 result = dg(&i, cast(void *)&w);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

667 if (result)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

668 break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

669 w = cast(wchar) (((d - 0x10000) & 0x3FF) + 0xDC00);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

670 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

671 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

672 result = dg(&i, cast(void *)&w);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

673 if (result)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

674 break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

675 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

676 return result;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

677 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

678

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

679 unittest

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

680 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

681 debug(apply) printf("_aApplyRcw2.unittest\n");

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

682

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

683 auto s = "hello"c[];

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

684 int i;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

685

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

686 foreach_reverse(k, wchar d; s)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

687 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

688 //printf("i = %d, k = %d, d = %x\n", i, k, d);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

689 assert(k == 4 - i);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

690 switch (i)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

691 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

692 case 0: assert(d == 'o'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

693 case 1: assert(d == 'l'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

694 case 2: assert(d == 'l'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

695 case 3: assert(d == 'e'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

696 case 4: assert(d == 'h'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

697 default: assert(0);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

698 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

699 i++;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

700 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

701 assert(i == 5);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

702

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

703 s = "a\u1234\U00100456b";

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

704 i = 0;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

705 foreach_reverse(k, wchar d; s)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

706 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

707 //printf("i = %d, k = %d, d = %x\n", i, k, d);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

708 switch (i)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

709 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

710 case 0: assert(k == 8); assert(d == 'b'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

711 case 1: assert(k == 4); assert(d == 0xDBC1); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

712 case 2: assert(k == 4); assert(d == 0xDC56); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

713 case 3: assert(k == 1); assert(d == 0x1234); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

714 case 4: assert(k == 0); assert(d == 'a'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

715 default: assert(0);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

716 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

717 i++;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

718 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

719 assert(i == 5);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

720 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

721

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

722 /*****************************/

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

723

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

724 extern (C) int _aApplyRwc2(in wchar[] aa, dg2_t dg)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

725 { int result;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

726

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

727 debug(apply) printf("_aApplyRwc2(), len = %d\n", aa.length);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

728 for (size_t i = aa.length; i != 0; )

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

729 { dchar d;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

730 char c;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

731

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

732 i--;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

733 d = aa[i];

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

734 if (d >= 0xDC00 && d <= 0xDFFF)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

735 { if (i == 0)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

736 onUnicodeError("Invalid UTF-16 sequence", 0);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

737 i--;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

738 d = ((aa[i] - 0xD7C0) << 10) + (d - 0xDC00);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

739 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

740

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

741 if (d & ~0x7F)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

742 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

743 char[4] buf;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

744

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

745 auto b = toUTF8(buf, d);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

746 foreach (char c2; b)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

747 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

748 result = dg(&i, cast(void *)&c2);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

749 if (result)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

750 return result;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

751 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

752 continue;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

753 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

754 c = cast(char)d;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

755 result = dg(&i, cast(void *)&c);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

756 if (result)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

757 break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

758 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

759 return result;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

760 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

761

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

762 unittest

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

763 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

764 debug(apply) printf("_aApplyRwc2.unittest\n");

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

765

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

766 auto s = "hello"w[];

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

767 int i;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

768

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

769 foreach_reverse(k, char d; s)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

770 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

771 //printf("i = %d, k = %d, d = %x\n", i, k, d);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

772 assert(k == 4 - i);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

773 switch (i)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

774 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

775 case 0: assert(d == 'o'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

776 case 1: assert(d == 'l'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

777 case 2: assert(d == 'l'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

778 case 3: assert(d == 'e'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

779 case 4: assert(d == 'h'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

780 default: assert(0);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

781 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

782 i++;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

783 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

784 assert(i == 5);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

785

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

786 s = "a\u1234\U00100456b";

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

787 i = 0;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

788 foreach_reverse(k, char d; s)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

789 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

790 //printf("i = %d, k = %d, d = %x\n", i, k, d);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

791 switch (i)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

792 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

793 case 0: assert(k == 4); assert(d == 'b'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

794 case 1: assert(k == 2); assert(d == 0xF4); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

795 case 2: assert(k == 2); assert(d == 0x80); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

796 case 3: assert(k == 2); assert(d == 0x91); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

797 case 4: assert(k == 2); assert(d == 0x96); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

798 case 5: assert(k == 1); assert(d == 0xE1); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

799 case 6: assert(k == 1); assert(d == 0x88); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

800 case 7: assert(k == 1); assert(d == 0xB4); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

801 case 8: assert(k == 0); assert(d == 'a'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

802 default: assert(0);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

803 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

804 i++;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

805 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

806 assert(i == 9);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

807 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

808

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

809 /*****************************/

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

810

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

811 extern (C) int _aApplyRdc2(in dchar[] aa, dg2_t dg)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

812 { int result;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

813

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

814 debug(apply) printf("_aApplyRdc2(), len = %d\n", aa.length);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

815 for (size_t i = aa.length; i != 0; )

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

816 { dchar d = aa[--i];

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

817 char c;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

818

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

819 if (d & ~0x7F)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

820 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

821 char[4] buf;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

822

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

823 auto b = toUTF8(buf, d);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

824 foreach (char c2; b)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

825 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

826 result = dg(&i, cast(void *)&c2);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

827 if (result)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

828 return result;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

829 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

830 continue;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

831 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

832 else

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

833 { c = cast(char)d;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

834 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

835 result = dg(&i, cast(void *)&c);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

836 if (result)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

837 break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

838 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

839 return result;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

840 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

841

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

842 unittest

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

843 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

844 debug(apply) printf("_aApplyRdc2.unittest\n");

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

845

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

846 auto s = "hello"d[];

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

847 int i;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

848

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

849 foreach_reverse(k, char d; s)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

850 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

851 //printf("i = %d, k = %d, d = %x\n", i, k, d);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

852 assert(k == 4 - i);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

853 switch (i)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

854 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

855 case 0: assert(d == 'o'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

856 case 1: assert(d == 'l'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

857 case 2: assert(d == 'l'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

858 case 3: assert(d == 'e'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

859 case 4: assert(d == 'h'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

860 default: assert(0);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

861 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

862 i++;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

863 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

864 assert(i == 5);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

865

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

866 s = "a\u1234\U00100456b";

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

867 i = 0;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

868 foreach_reverse(k, char d; s)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

869 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

870 //printf("i = %d, k = %d, d = %x\n", i, k, d);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

871 switch (i)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

872 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

873 case 0: assert(k == 3); assert(d == 'b'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

874 case 1: assert(k == 2); assert(d == 0xF4); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

875 case 2: assert(k == 2); assert(d == 0x80); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

876 case 3: assert(k == 2); assert(d == 0x91); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

877 case 4: assert(k == 2); assert(d == 0x96); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

878 case 5: assert(k == 1); assert(d == 0xE1); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

879 case 6: assert(k == 1); assert(d == 0x88); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

880 case 7: assert(k == 1); assert(d == 0xB4); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

881 case 8: assert(k == 0); assert(d == 'a'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

882 default: assert(0);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

883 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

884 i++;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

885 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

886 assert(i == 9);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

887 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

888

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

889 /*****************************/

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

890

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

891 extern (C) int _aApplyRdw2(in dchar[] aa, dg2_t dg)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

892 { int result;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

893

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

894 debug(apply) printf("_aApplyRdw2(), len = %d\n", aa.length);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

895 for (size_t i = aa.length; i != 0; )

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

896 { dchar d = aa[--i];

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

897 wchar w;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

898

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

899 if (d <= 0xFFFF)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

900 w = cast(wchar) d;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

901 else

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

902 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

903 w = cast(wchar) ((((d - 0x10000) >> 10) & 0x3FF) + 0xD800);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

904 result = dg(&i, cast(void *)&w);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

905 if (result)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

906 break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

907 w = cast(wchar) (((d - 0x10000) & 0x3FF) + 0xDC00);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

908 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

909 result = dg(&i, cast(void *)&w);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

910 if (result)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

911 break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

912 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

913 return result;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

914 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

915

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

916 unittest

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

917 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

918 debug(apply) printf("_aApplyRdw2.unittest\n");

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

919

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

920 auto s = "hello"d[];

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

921 int i;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

922

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

923 foreach_reverse(k, wchar d; s)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

924 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

925 //printf("i = %d, k = %d, d = %x\n", i, k, d);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

926 assert(k == 4 - i);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

927 switch (i)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

928 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

929 case 0: assert(d == 'o'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

930 case 1: assert(d == 'l'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

931 case 2: assert(d == 'l'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

932 case 3: assert(d == 'e'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

933 case 4: assert(d == 'h'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

934 default: assert(0);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

935 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

936 i++;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

937 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

938 assert(i == 5);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

939

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

940 s = "a\u1234\U00100456b";

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

941 i = 0;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

942 foreach_reverse(k, wchar d; s)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

943 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

944 //printf("i = %d, k = %d, d = %x\n", i, k, d);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

945 switch (i)

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

946 {

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

947 case 0: assert(k == 3); assert(d == 'b'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

948 case 1: assert(k == 2); assert(d == 0xDBC1); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

949 case 2: assert(k == 2); assert(d == 0xDC56); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

950 case 3: assert(k == 1); assert(d == 0x1234); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

951 case 4: assert(k == 0); assert(d == 'a'); break;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

952 default: assert(0);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

953 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

954 i++;

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

955 }

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

956 assert(i == 5);

e0b2d67cfe7c Added druntime (this should be removed once it works).

Robert Clipsham <robert@octarineparrot.com>

parents:

diff changeset

957 }

Mercurial > projects > ldc

annotate druntime/src/compiler/ldc/aApplyR.d @ 1458:e0b2d67cfe7c