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

author	Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>
date	Tue, 11 Nov 2008 01:52:37 +0100
parents
children

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

759

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

1

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

2 /**

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

3 * Part of the D programming language runtime library.

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

4 */

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

5

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

6 /*

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

8 * Written by Walter Bright

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

9 *

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

10 * This software is provided 'as-is', without any express or implied

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

11 * warranty. In no event will the authors be held liable for any damages

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

12 * arising from the use of this software.

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

13 *

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

14 * Permission is granted to anyone to use this software for any purpose,

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

15 * including commercial applications, and to alter it and redistribute it

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

16 * freely, in both source and binary form, subject to the following

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

17 * restrictions:

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

18 *

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

19 * o The origin of this software must not be misrepresented; you must not

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

20 * claim that you wrote the original software. If you use this software

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

21 * in a product, an acknowledgment in the product documentation would be

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

22 * appreciated but is not required.

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

23 * o Altered source versions must be plainly marked as such, and must not

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

24 * be misrepresented as being the original software.

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

25 * o This notice may not be removed or altered from any source

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

26 * distribution.

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

27 */

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

28

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

29 /*

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

30 * Modified by Sean Kelly <sean@f4.ca> for use with Tango.

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

31 */

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

32

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

36 */

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

37

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

38 private import util.utf;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

39

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

40 /**********************************************/

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

41 /* 1 argument versions */

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

42

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

45

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

47 { int result;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

48

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

51 { dchar d;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

52

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

53 i--;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

54 d = aa[i];

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

55 if (d & 0x80)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

56 { char c = cast(char)d;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

57 uint j;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

58 uint m = 0x3F;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

59 d = 0;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

61 { if (i == 0)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

63 i--;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

65 j += 6;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

66 m >>= 1;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

67 c = aa[i];

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

68 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

70 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

72 if (result)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

73 break;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

74 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

75 return result;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

76 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

77

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

78 unittest

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

79 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

81

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

82 char[] s = "hello"c;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

83 int i;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

84

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

85 foreach_reverse(dchar d; s)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

86 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

87 switch (i)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

88 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

94 default: assert(0);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

95 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

96 i++;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

97 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

98 assert(i == 5);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

99

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

100 s = "a\u1234\U00100456b";

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

101 i = 0;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

102 foreach_reverse(dchar d; s)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

103 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

105 switch (i)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

106 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

111 default: assert(0);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

112 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

113 i++;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

114 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

115 assert(i == 4);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

116 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

117

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

118 /*****************************/

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

119

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

121 { int result;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

122

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

125 { dchar d;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

126

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

127 i--;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

128 d = aa[i];

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

130 { if (i == 0)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

132 i--;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

134 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

136 if (result)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

137 break;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

138 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

139 return result;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

140 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

141

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

142 unittest

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

143 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

145

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

146 wchar[] s = "hello"w;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

147 int i;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

148

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

149 foreach_reverse(dchar d; s)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

150 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

151 switch (i)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

152 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

158 default: assert(0);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

159 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

160 i++;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

161 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

162 assert(i == 5);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

163

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

164 s = "a\u1234\U00100456b";

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

165 i = 0;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

166 foreach_reverse(dchar d; s)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

167 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

169 switch (i)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

170 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

175 default: assert(0);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

176 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

177 i++;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

178 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

179 assert(i == 4);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

180 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

181

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

182 /*****************************/

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

183

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

185 { int result;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

186

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

189 { dchar d;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

190 wchar w;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

191

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

192 i--;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

193 w = aa[i];

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

194 if (w & 0x80)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

195 { char c = cast(char)w;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

196 uint j;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

197 uint m = 0x3F;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

198 d = 0;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

200 { if (i == 0)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

202 i--;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

204 j += 6;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

205 m >>= 1;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

206 c = aa[i];

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

207 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

209

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

210 if (d <= 0xFFFF)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

211 w = cast(wchar) d;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

212 else

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

213 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

216 if (result)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

217 break;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

219 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

220 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

222 if (result)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

223 break;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

224 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

225 return result;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

226 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

227

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

228 unittest

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

229 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

231

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

232 char[] s = "hello"c;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

233 int i;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

234

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

235 foreach_reverse(wchar d; s)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

236 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

237 switch (i)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

238 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

244 default: assert(0);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

245 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

246 i++;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

247 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

248 assert(i == 5);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

249

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

250 s = "a\u1234\U00100456b";

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

251 i = 0;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

252 foreach_reverse(wchar d; s)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

253 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

255 switch (i)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

256 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

262 default: assert(0);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

263 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

264 i++;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

265 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

266 assert(i == 5);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

267 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

268

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

269 /*****************************/

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

270

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

272 { int result;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

273

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

276 { dchar d;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

277 char c;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

278

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

279 i--;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

280 d = aa[i];

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

282 { if (i == 0)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

284 i--;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

286 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

287

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

288 if (d & ~0x7F)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

289 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

290 char[4] buf;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

291

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

292 auto b = toUTF8(buf, d);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

293 foreach (char c2; b)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

294 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

296 if (result)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

297 return result;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

298 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

299 continue;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

300 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

301 c = cast(char)d;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

303 if (result)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

304 break;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

305 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

306 return result;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

307 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

308

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

309 unittest

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

310 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

312

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

313 wchar[] s = "hello"w;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

314 int i;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

315

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

316 foreach_reverse(char d; s)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

317 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

318 switch (i)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

319 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

325 default: assert(0);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

326 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

327 i++;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

328 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

329 assert(i == 5);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

330

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

331 s = "a\u1234\U00100456b";

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

332 i = 0;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

333 foreach_reverse(char d; s)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

334 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

336 switch (i)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

337 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

347 default: assert(0);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

348 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

349 i++;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

350 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

351 assert(i == 9);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

352 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

353

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

354 /*****************************/

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

355

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

357 { int result;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

358

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

362 char c;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

363

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

364 if (d & ~0x7F)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

365 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

366 char[4] buf;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

367

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

368 auto b = toUTF8(buf, d);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

369 foreach (char c2; b)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

370 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

372 if (result)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

373 return result;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

374 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

375 continue;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

376 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

377 else

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

378 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

379 c = cast(char)d;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

380 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

382 if (result)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

383 break;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

384 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

385 return result;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

386 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

387

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

388 unittest

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

389 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

391

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

392 dchar[] s = "hello"d;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

393 int i;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

394

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

395 foreach_reverse(char d; s)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

396 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

397 switch (i)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

398 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

404 default: assert(0);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

405 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

406 i++;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

407 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

408 assert(i == 5);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

409

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

410 s = "a\u1234\U00100456b";

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

411 i = 0;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

412 foreach_reverse(char d; s)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

413 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

415 switch (i)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

416 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

426 default: assert(0);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

427 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

428 i++;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

429 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

430 assert(i == 9);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

431 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

432

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

433 /*****************************/

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

434

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

436 { int result;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

437

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

441 wchar w;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

442

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

443 if (d <= 0xFFFF)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

444 w = cast(wchar) d;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

445 else

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

446 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

449 if (result)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

450 break;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

452 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

454 if (result)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

455 break;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

456 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

457 return result;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

458 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

459

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

460 unittest

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

461 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

463

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

464 dchar[] s = "hello"d;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

465 int i;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

466

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

467 foreach_reverse(wchar d; s)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

468 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

469 switch (i)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

470 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

476 default: assert(0);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

477 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

478 i++;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

479 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

480 assert(i == 5);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

481

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

482 s = "a\u1234\U00100456b";

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

483 i = 0;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

484 foreach_reverse(wchar d; s)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

485 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

487 switch (i)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

488 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

494 default: assert(0);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

495 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

496 i++;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

497 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

498 assert(i == 5);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

499 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

500

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

501

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

502 /****************************************************************************/

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

503 /* 2 argument versions */

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

504

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

507

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

509 { int result;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

510 size_t i;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

511 size_t len = aa.length;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

512

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

515 { dchar d;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

516

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

517 i--;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

518 d = aa[i];

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

519 if (d & 0x80)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

520 { char c = cast(char)d;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

521 uint j;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

522 uint m = 0x3F;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

523 d = 0;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

525 { if (i == 0)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

527 i--;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

529 j += 6;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

530 m >>= 1;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

531 c = aa[i];

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

532 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

534 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

536 if (result)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

537 break;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

538 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

539 return result;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

540 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

541

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

542 unittest

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

543 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

545

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

546 char[] s = "hello"c;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

547 int i;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

548

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

549 foreach_reverse(k, dchar d; s)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

550 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

551 assert(k == 4 - i);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

552 switch (i)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

553 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

559 default: assert(0);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

560 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

561 i++;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

562 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

563 assert(i == 5);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

564

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

565 s = "a\u1234\U00100456b";

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

566 i = 0;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

567 foreach_reverse(k, dchar d; s)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

568 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

570 switch (i)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

571 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

576 default: assert(0);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

577 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

578 i++;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

579 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

580 assert(i == 4);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

581 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

582

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

583 /*****************************/

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

584

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

586 { int result;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

587

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

590 { dchar d;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

591

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

592 i--;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

593 d = aa[i];

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

595 { if (i == 0)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

597 i--;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

599 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

601 if (result)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

602 break;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

603 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

604 return result;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

605 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

606

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

607 unittest

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

608 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

610

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

611 wchar[] s = "hello"w;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

612 int i;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

613

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

614 foreach_reverse(k, dchar d; s)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

615 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

617 assert(k == 4 - i);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

618 switch (i)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

619 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

625 default: assert(0);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

626 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

627 i++;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

628 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

629 assert(i == 5);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

630

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

631 s = "a\u1234\U00100456b";

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

632 i = 0;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

633 foreach_reverse(k, dchar d; s)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

634 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

636 switch (i)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

637 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

638 case 0: assert(k == 4); assert(d == 'b'); break;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

639 case 1: assert(k == 2); assert(d == '\U00100456'); break;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

642 default: assert(0);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

643 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

644 i++;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

645 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

646 assert(i == 4);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

647 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

648

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

649 /*****************************/

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

650

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

651 extern (C) int _aApplyRcw2(in char[] aa, dg2_t dg)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

652 { int result;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

653

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

656 { dchar d;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

657 wchar w;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

658

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

659 i--;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

660 w = aa[i];

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

661 if (w & 0x80)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

662 { char c = cast(char)w;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

663 uint j;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

664 uint m = 0x3F;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

665 d = 0;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

667 { if (i == 0)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

669 i--;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

671 j += 6;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

672 m >>= 1;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

673 c = aa[i];

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

674 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

676

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

677 if (d <= 0xFFFF)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

678 w = cast(wchar) d;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

679 else

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

680 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

682 result = dg(&i, cast(void *)&w);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

683 if (result)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

684 break;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

686 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

687 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

688 result = dg(&i, cast(void *)&w);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

689 if (result)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

690 break;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

691 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

692 return result;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

693 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

694

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

695 unittest

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

696 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

697 debug(apply) printf("_aApplyRcw2.unittest\n");

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

698

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

699 char[] s = "hello"c;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

700 int i;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

701

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

702 foreach_reverse(k, wchar d; s)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

703 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

705 assert(k == 4 - i);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

706 switch (i)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

707 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

713 default: assert(0);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

714 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

715 i++;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

716 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

717 assert(i == 5);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

718

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

719 s = "a\u1234\U00100456b";

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

720 i = 0;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

721 foreach_reverse(k, wchar d; s)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

722 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

724 switch (i)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

725 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

727 case 1: assert(k == 4); assert(d == 0xDBC1); break;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

728 case 2: assert(k == 4); assert(d == 0xDC56); break;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

729 case 3: assert(k == 1); assert(d == 0x1234); break;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

730 case 4: assert(k == 0); assert(d == 'a'); break;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

731 default: assert(0);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

732 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

733 i++;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

734 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

735 assert(i == 5);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

736 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

737

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

738 /*****************************/

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

739

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

740 extern (C) int _aApplyRwc2(in wchar[] aa, dg2_t dg)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

741 { int result;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

742

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

745 { dchar d;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

746 char c;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

747

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

748 i--;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

749 d = aa[i];

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

751 { if (i == 0)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

753 i--;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

755 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

756

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

757 if (d & ~0x7F)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

758 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

759 char[4] buf;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

760

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

761 auto b = toUTF8(buf, d);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

762 foreach (char c2; b)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

763 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

764 result = dg(&i, cast(void *)&c2);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

765 if (result)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

766 return result;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

767 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

768 continue;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

769 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

770 c = cast(char)d;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

771 result = dg(&i, cast(void *)&c);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

772 if (result)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

773 break;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

774 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

775 return result;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

776 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

777

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

778 unittest

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

779 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

780 debug(apply) printf("_aApplyRwc2.unittest\n");

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

781

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

782 wchar[] s = "hello"w;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

783 int i;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

784

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

785 foreach_reverse(k, char d; s)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

786 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

788 assert(k == 4 - i);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

789 switch (i)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

790 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

796 default: assert(0);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

797 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

798 i++;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

799 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

800 assert(i == 5);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

801

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

802 s = "a\u1234\U00100456b";

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

803 i = 0;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

804 foreach_reverse(k, char d; s)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

805 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

807 switch (i)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

808 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

809 case 0: assert(k == 4); assert(d == 'b'); break;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

810 case 1: assert(k == 2); assert(d == 0xF4); break;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

812 case 3: assert(k == 2); assert(d == 0x91); break;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

813 case 4: assert(k == 2); assert(d == 0x96); break;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

814 case 5: assert(k == 1); assert(d == 0xE1); break;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

815 case 6: assert(k == 1); assert(d == 0x88); break;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

816 case 7: assert(k == 1); assert(d == 0xB4); break;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

817 case 8: assert(k == 0); assert(d == 'a'); break;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

818 default: assert(0);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

819 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

820 i++;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

821 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

822 assert(i == 9);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

823 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

824

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

825 /*****************************/

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

826

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

827 extern (C) int _aApplyRdc2(in dchar[] aa, dg2_t dg)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

828 { int result;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

829

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

833 char c;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

834

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

835 if (d & ~0x7F)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

836 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

837 char[4] buf;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

838

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

839 auto b = toUTF8(buf, d);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

840 foreach (char c2; b)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

841 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

842 result = dg(&i, cast(void *)&c2);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

843 if (result)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

844 return result;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

845 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

846 continue;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

847 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

848 else

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

849 { c = cast(char)d;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

850 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

851 result = dg(&i, cast(void *)&c);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

852 if (result)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

853 break;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

854 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

855 return result;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

856 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

857

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

858 unittest

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

859 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

860 debug(apply) printf("_aApplyRdc2.unittest\n");

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

861

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

862 dchar[] s = "hello"d;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

863 int i;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

864

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

865 foreach_reverse(k, char d; s)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

866 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

868 assert(k == 4 - i);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

869 switch (i)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

870 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

876 default: assert(0);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

877 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

878 i++;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

879 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

880 assert(i == 5);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

881

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

882 s = "a\u1234\U00100456b";

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

883 i = 0;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

884 foreach_reverse(k, char d; s)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

885 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

887 switch (i)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

888 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

889 case 0: assert(k == 3); assert(d == 'b'); break;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

890 case 1: assert(k == 2); assert(d == 0xF4); break;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

892 case 3: assert(k == 2); assert(d == 0x91); break;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

893 case 4: assert(k == 2); assert(d == 0x96); break;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

894 case 5: assert(k == 1); assert(d == 0xE1); break;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

895 case 6: assert(k == 1); assert(d == 0x88); break;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

896 case 7: assert(k == 1); assert(d == 0xB4); break;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

897 case 8: assert(k == 0); assert(d == 'a'); break;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

898 default: assert(0);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

899 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

900 i++;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

901 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

902 assert(i == 9);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

903 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

904

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

905 /*****************************/

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

906

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

907 extern (C) int _aApplyRdw2(in dchar[] aa, dg2_t dg)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

908 { int result;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

909

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

913 wchar w;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

914

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

915 if (d <= 0xFFFF)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

916 w = cast(wchar) d;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

917 else

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

918 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

920 result = dg(&i, cast(void *)&w);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

921 if (result)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

922 break;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

924 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

925 result = dg(&i, cast(void *)&w);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

926 if (result)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

927 break;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

928 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

929 return result;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

930 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

931

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

932 unittest

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

933 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

934 debug(apply) printf("_aApplyRdw2.unittest\n");

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

935

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

936 dchar[] s = "hello"d;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

937 int i;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

938

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

939 foreach_reverse(k, wchar d; s)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

940 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

942 assert(k == 4 - i);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

943 switch (i)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

944 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

950 default: assert(0);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

951 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

952 i++;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

953 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

954 assert(i == 5);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

955

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

956 s = "a\u1234\U00100456b";

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

957 i = 0;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

958 foreach_reverse(k, wchar d; s)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

959 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

961 switch (i)

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

962 {

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

963 case 0: assert(k == 3); assert(d == 'b'); break;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

964 case 1: assert(k == 2); assert(d == 0xDBC1); break;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

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

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

966 case 3: assert(k == 1); assert(d == 0x1234); break;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

967 case 4: assert(k == 0); assert(d == 'a'); break;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

968 default: assert(0);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

969 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

970 i++;

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

971 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

972 assert(i == 5);

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

973 }

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

974

d3eb054172f9 Added copy of druntime from DMD 2.020 modified for LDC.

Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>

parents:

diff changeset

975

Mercurial > projects > ldc

annotate druntime/src/compiler/ldc/aApplyR.d @ 759:d3eb054172f9