projects/dwt2: java/src/java/mangoicu/ICU.d annotate

annotate java/src/java/mangoicu/ICU.d @ 26:f589fc20a5f9

work on linux phobos

author	Frank Benoit <benoit@tionex.de>
date	Sat, 21 Mar 2009 11:22:55 +0100
parents	9b96950f2c3c
children

rev	line source
16 dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	1 /*******************************************************************************
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	2
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	3 @file ICU.d
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	4
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	5 Copyright (c) 2004 Kris Bell
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	6
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	7 This software is provided 'as-is', without any express or implied
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	8 warranty. In no event will the authors be held liable for damages
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	9 of any kind arising from the use of this software.
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	10
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	11 Permission is hereby granted to anyone to use this software for any
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	12 purpose, including commercial applications, and to alter it and/or
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	13 redistribute it freely, subject to the following restrictions:
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	14
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	15 1. The origin of this software must not be misrepresented; you must
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	16 not claim that you wrote the original software. If you use this
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	17 software in a product, an acknowledgment within documentation of
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	18 said product would be appreciated but is not required.
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	19
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	20 2. Altered source versions must be plainly marked as such, and must
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	21 not be misrepresented as being the original software.
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	22
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	23 3. This notice may not be removed or altered from any distribution
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	24 of the source.
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	25
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	26 4. Derivative works are permitted, but they must carry this notice
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	27 in full and credit the original source.
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	28
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	29
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	30 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	31
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	32
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	33 @version Initial version; October 2004
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	34 Updated to ICU v3.2; March 2005
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	35
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	36 @author Kris
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	37 John Reimer
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	38 Anders F Bjorklund (Darwin patches)
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	39
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	40
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	41 *******************************************************************************/
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	42
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	43 module java.mangoicu.ICU;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	44
21 9b96950f2c3c the 'java' tree compiles on both D1-Tango and D2-Phobos Frank Benoit <benoit@tionex.de> parents: 16 diff changeset	45 import java.lang.util;
16 dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	46 /*******************************************************************************
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	47
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	48 Library version identifiers
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	49
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	50 *******************************************************************************/
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	51
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	52 version (ICU30)
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	53 {
21 9b96950f2c3c the 'java' tree compiles on both D1-Tango and D2-Phobos Frank Benoit <benoit@tionex.de> parents: 16 diff changeset	54 private static const char[] ICULib = "30";
9b96950f2c3c the 'java' tree compiles on both D1-Tango and D2-Phobos Frank Benoit <benoit@tionex.de> parents: 16 diff changeset	55 private static const char[] ICUSig = "_3_0\0";
16 dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	56 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	57 version (ICU32)
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	58 {
21 9b96950f2c3c the 'java' tree compiles on both D1-Tango and D2-Phobos Frank Benoit <benoit@tionex.de> parents: 16 diff changeset	59 private static const char[] ICULib = "32";
9b96950f2c3c the 'java' tree compiles on both D1-Tango and D2-Phobos Frank Benoit <benoit@tionex.de> parents: 16 diff changeset	60 private static const char[] ICUSig = "_3_2\0";
16 dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	61 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	62 version (ICU34)
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	63 {
21 9b96950f2c3c the 'java' tree compiles on both D1-Tango and D2-Phobos Frank Benoit <benoit@tionex.de> parents: 16 diff changeset	64 private static const char[] ICULib = "34";
9b96950f2c3c the 'java' tree compiles on both D1-Tango and D2-Phobos Frank Benoit <benoit@tionex.de> parents: 16 diff changeset	65 private static const char[] ICUSig = "_3_4\0";
16 dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	66 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	67 version (ICU36)
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	68 {
21 9b96950f2c3c the 'java' tree compiles on both D1-Tango and D2-Phobos Frank Benoit <benoit@tionex.de> parents: 16 diff changeset	69 private static const char[] ICULib = "36";
9b96950f2c3c the 'java' tree compiles on both D1-Tango and D2-Phobos Frank Benoit <benoit@tionex.de> parents: 16 diff changeset	70 private static const char[] ICUSig = "_3_6\0";
16 dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	71 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	72 else
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	73 {
21 9b96950f2c3c the 'java' tree compiles on both D1-Tango and D2-Phobos Frank Benoit <benoit@tionex.de> parents: 16 diff changeset	74 private static const char[] ICULib = "38";
9b96950f2c3c the 'java' tree compiles on both D1-Tango and D2-Phobos Frank Benoit <benoit@tionex.de> parents: 16 diff changeset	75 private static const char[] ICUSig = "_3_8\0";
16 dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	76 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	77
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	78 /*******************************************************************************
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	79
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	80 *******************************************************************************/
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	81
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	82 private static extern (C) uint strlen (char *s);
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	83 private static extern (C) uint wcslen (wchar *s);
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	84
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	85
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	86 /*******************************************************************************
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	87
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	88 Some low-level routines to help bind the ICU C-API to D.
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	89
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	90 *******************************************************************************/
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	91
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	92 protected class ICU
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	93 {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	94 /***********************************************************************
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	95
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	96 The library names to load within the target environment
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	97
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	98 ***********************************************************************/
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	99
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	100 version (Win32)
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	101 {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	102 package static char[] icuuc = "icuuc"~ICULib~".dll";
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	103 package static char[] icuin = "icuin"~ICULib~".dll";
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	104 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	105 else
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	106 version (linux)
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	107 {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	108 package static char[] icuuc = "libicuuc.so."~ICULib;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	109 package static char[] icuin = "libicui18n.so."~ICULib;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	110 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	111 else
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	112 version (darwin)
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	113 {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	114 package static char[] icuuc = "libicuuc.dylib."~ICULib;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	115 package static char[] icuin = "libicui18n.dylib."~ICULib;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	116 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	117 else
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	118 {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	119 static assert (false);
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	120 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	121
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	122 /***********************************************************************
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	123
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	124 Use this for the primary argument-type to most ICU functions
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	125
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	126 ***********************************************************************/
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	127
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	128 protected typedef void* Handle;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	129
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	130 /***********************************************************************
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	131
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	132 Parse-error filled in by several functions
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	133
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	134 ***********************************************************************/
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	135
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	136 public struct ParseError
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	137 {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	138 int line,
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	139 offset;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	140 wchar[16] preContext,
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	141 postContext;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	142 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	143
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	144 /***********************************************************************
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	145
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	146 The binary form of a version on ICU APIs is an array of
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	147 four bytes
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	148
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	149 ***********************************************************************/
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	150
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	151 public struct Version
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	152 {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	153 ubyte[4] info;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	154 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	155
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	156 /***********************************************************************
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	157
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	158 ICU error codes (the ones which are referenced)
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	159
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	160 ***********************************************************************/
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	161
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	162 package enum UErrorCode:int
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	163 {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	164 OK,
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	165 BufferOverflow=15
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	166 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	167
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	168 /***********************************************************************
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	169
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	170 ***********************************************************************/
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	171
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	172 package static final bool isError (UErrorCode e)
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	173 {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	174 return e > 0;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	175 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	176
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	177 /***********************************************************************
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	178
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	179 ***********************************************************************/
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	180
21 9b96950f2c3c the 'java' tree compiles on both D1-Tango and D2-Phobos Frank Benoit <benoit@tionex.de> parents: 16 diff changeset	181 package static final void exception (CString msg)
16 dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	182 {
21 9b96950f2c3c the 'java' tree compiles on both D1-Tango and D2-Phobos Frank Benoit <benoit@tionex.de> parents: 16 diff changeset	183 throw new ICUException ( cast(String)msg);
16 dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	184 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	185
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	186 /***********************************************************************
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	187
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	188 ***********************************************************************/
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	189
21 9b96950f2c3c the 'java' tree compiles on both D1-Tango and D2-Phobos Frank Benoit <benoit@tionex.de> parents: 16 diff changeset	190 package static final void testError (UErrorCode e, CString msg)
16 dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	191 {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	192 if (e > 0)
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	193 exception (msg);
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	194 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	195
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	196 /***********************************************************************
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	197
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	198 ***********************************************************************/
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	199
21 9b96950f2c3c the 'java' tree compiles on both D1-Tango and D2-Phobos Frank Benoit <benoit@tionex.de> parents: 16 diff changeset	200 package static final char* toString (CString string)
16 dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	201 {
21 9b96950f2c3c the 'java' tree compiles on both D1-Tango and D2-Phobos Frank Benoit <benoit@tionex.de> parents: 16 diff changeset	202 static char[] empty;
16 dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	203
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	204 if (! string.length)
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	205 return (string.ptr) ? empty.ptr : null;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	206
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	207 // if (* (&string[0] + string.length))
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	208 {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	209 // Need to make a copy
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	210 char[] copy = new char [string.length + 1];
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	211 copy [0..string.length] = string;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	212 copy [string.length] = 0;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	213 string = copy;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	214 }
21 9b96950f2c3c the 'java' tree compiles on both D1-Tango and D2-Phobos Frank Benoit <benoit@tionex.de> parents: 16 diff changeset	215 return cast(char*)string.ptr;
16 dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	216 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	217
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	218 /***********************************************************************
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	219
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	220 ***********************************************************************/
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	221
21 9b96950f2c3c the 'java' tree compiles on both D1-Tango and D2-Phobos Frank Benoit <benoit@tionex.de> parents: 16 diff changeset	222 package static final wchar* toString (CString16 string)
16 dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	223 {
21 9b96950f2c3c the 'java' tree compiles on both D1-Tango and D2-Phobos Frank Benoit <benoit@tionex.de> parents: 16 diff changeset	224 static wchar[] empty;
16 dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	225
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	226 if (! string.length)
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	227 return (string.ptr) ? empty.ptr : null;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	228
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	229 // if (* (&string[0] + string.length))
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	230 {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	231 // Need to make a copy
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	232 wchar[] copy = new wchar [string.length + 1];
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	233 copy [0..string.length] = string;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	234 copy [string.length] = 0;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	235 string = copy;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	236 }
21 9b96950f2c3c the 'java' tree compiles on both D1-Tango and D2-Phobos Frank Benoit <benoit@tionex.de> parents: 16 diff changeset	237 return cast(wchar*)string.ptr;
16 dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	238 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	239
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	240 /***********************************************************************
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	241
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	242 ***********************************************************************/
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	243
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	244 protected static final uint length (char* s)
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	245 {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	246 return strlen (s);
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	247 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	248
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	249 /***********************************************************************
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	250
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	251 ***********************************************************************/
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	252
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	253 protected static final uint length (wchar* s)
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	254 {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	255 return wcslen (s);
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	256 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	257
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	258 /***********************************************************************
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	259
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	260 ***********************************************************************/
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	261
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	262 protected static final char[] toArray (char* s)
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	263 {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	264 if (s)
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	265 return s[0..strlen (s)];
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	266 return null;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	267 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	268
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	269 /***********************************************************************
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	270
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	271 ***********************************************************************/
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	272
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	273 protected static final wchar[] toArray (wchar* s)
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	274 {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	275 if (s)
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	276 return s[0..wcslen (s)];
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	277 return null;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	278 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	279 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	280
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	281
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	282 /*******************************************************************************
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	283
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	284 *******************************************************************************/
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	285
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	286 class ICUException : Exception
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	287 {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	288 /***********************************************************************
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	289
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	290 Construct exception with the provided text string
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	291
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	292 ***********************************************************************/
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	293
21 9b96950f2c3c the 'java' tree compiles on both D1-Tango and D2-Phobos Frank Benoit <benoit@tionex.de> parents: 16 diff changeset	294 this (String msg)
16 dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	295 {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	296 super (msg);
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	297 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	298 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	299
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	300 /*******************************************************************************
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	301
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	302 *******************************************************************************/
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	303
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	304 typedef void* UParseError;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	305
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	306
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	307 /*******************************************************************************
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	308
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	309 Function address loader for Win32
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	310
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	311 *******************************************************************************/
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	312
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	313 version (Win32)
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	314 {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	315 typedef void* HANDLE;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	316 extern (Windows) HANDLE LoadLibraryA (char*);
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	317 extern (Windows) HANDLE GetProcAddress (HANDLE, char*);
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	318 extern (Windows) void FreeLibrary (HANDLE);
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	319
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	320 /***********************************************************************
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	321
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	322 ***********************************************************************/
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	323
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	324 package static class FunctionLoader
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	325 {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	326 /***************************************************************
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	327
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	328 ***************************************************************/
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	329
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	330 protected struct Bind
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	331 {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	332 void** fnc;
21 9b96950f2c3c the 'java' tree compiles on both D1-Tango and D2-Phobos Frank Benoit <benoit@tionex.de> parents: 16 diff changeset	333 CString name;
16 dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	334 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	335
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	336 /***************************************************************
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	337
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	338 ***************************************************************/
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	339
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	340 static final void* bind (char[] library, inout Bind[] targets)
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	341 {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	342 HANDLE lib = LoadLibraryA (ICU.toString(library));
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	343
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	344 foreach (Bind b; targets)
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	345 {
21 9b96950f2c3c the 'java' tree compiles on both D1-Tango and D2-Phobos Frank Benoit <benoit@tionex.de> parents: 16 diff changeset	346 auto name = b.name ~ ICUSig;
9b96950f2c3c the 'java' tree compiles on both D1-Tango and D2-Phobos Frank Benoit <benoit@tionex.de> parents: 16 diff changeset	347 b.fnc = GetProcAddress (lib, cast(char)name.ptr);
16 dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	348 if (*b.fnc)
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	349 {}// printf ("bound '%.*s'\n", name);
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	350 else
21 9b96950f2c3c the 'java' tree compiles on both D1-Tango and D2-Phobos Frank Benoit <benoit@tionex.de> parents: 16 diff changeset	351 throw new Exception ( cast(String)("required " ~ name ~ " in library " ~ library));
16 dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	352 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	353 return lib;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	354 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	355
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	356 /***************************************************************
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	357
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	358 ***************************************************************/
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	359
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	360 static final void unbind (void* library)
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	361 {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	362 version (CorrectedTeardown)
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	363 FreeLibrary (cast(HANDLE) library);
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	364 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	365 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	366 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	367
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	368
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	369 /*******************************************************************************
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	370
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	371 2004-11-26: Added Linux shared library support -- John Reimer
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	372
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	373 *******************************************************************************/
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	374
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	375 else version (linux)
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	376 {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	377 //Tell build to link with dl library
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	378 version(build) { pragma(link, "dl"); }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	379
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	380 // from include/bits/dlfcn.h on Linux
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	381 const int RTLD_LAZY = 0x00001; // Lazy function call binding
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	382 const int RTLD_NOW = 0x00002; // Immediate function call binding
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	383 const int RTLD_NOLOAD = 0x00004; // no object load
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	384 const int RTLD_DEEPBIND = 0x00008;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	385 const int RTLD_GLOBAL = 0x00100; // make object available to whole program
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	386
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	387 extern(C)
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	388 {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	389 void* dlopen(char* filename, int flag);
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	390 char* dlerror();
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	391 void* dlsym(void* handle, char* symbol);
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	392 int dlclose(void* handle);
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	393 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	394
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	395 class FunctionLoader
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	396 {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	397 /***************************************************************
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	398
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	399 ***************************************************************/
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	400
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	401 protected struct Bind
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	402 {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	403 void** fnc;
21 9b96950f2c3c the 'java' tree compiles on both D1-Tango and D2-Phobos Frank Benoit <benoit@tionex.de> parents: 16 diff changeset	404 CString name;
16 dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	405 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	406
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	407 /***************************************************************
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	408
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	409 ***************************************************************/
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	410
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	411 static final void* bind (char[] library, inout Bind[] targets)
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	412 {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	413 static char[] errorInfo;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	414 // printf("the library is %s\n", ICU.toString(library));
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	415 void* lib = dlopen(ICU.toString(library), RTLD_NOW);
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	416
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	417 // clear the error buffer
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	418 dlerror();
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	419
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	420 foreach (Bind b; targets)
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	421 {
26 f589fc20a5f9 work on linux phobos Frank Benoit <benoit@tionex.de> parents: 21 diff changeset	422 char[] name = cast(char[])(b.name ~ ICUSig);
16 dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	423
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	424 *b.fnc = dlsym (lib, name.ptr);
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	425 if (*b.fnc)
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	426 {}// printf ("bound '%.*s'\n", name);
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	427 else {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	428 // errorInfo = ICU.toArray(dlerror());
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	429 // printf("%s", dlerror());
26 f589fc20a5f9 work on linux phobos Frank Benoit <benoit@tionex.de> parents: 21 diff changeset	430 throw new Exception (cast(String)("required " ~ name ~ " in library " ~ library));
16 dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	431 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	432 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	433 return lib;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	434 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	435
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	436 /***************************************************************
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	437
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	438 ***************************************************************/
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	439
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	440 static final void unbind (void* library)
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	441 {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	442 version (CorrectedTeardown)
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	443 {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	444 if (! dlclose (library))
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	445 throw new Exception ("close library failed\n");
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	446 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	447 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	448 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	449 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	450
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	451
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	452 /*******************************************************************************
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	453
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	454 2004-12-20: Added Darwin shared library support -- afb
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	455
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	456 *******************************************************************************/
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	457
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	458 else version (darwin)
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	459 {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	460 // #include <mach-o/loader.h>
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	461
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	462 struct mach_header
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	463 {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	464 uint magic; /* mach magic number identifier */
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	465 uint cputype; /* cpu specifier */
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	466 uint cpusubtype; /* machine specifier */
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	467 uint filetype; /* type of file */
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	468 uint ncmds; /* number of load commands */
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	469 uint sizeofcmds; /* the size of all the load commands */
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	470 uint flags; /* flags */
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	471 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	472
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	473 /* Constant for the magic field of the mach_header */
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	474 const uint MH_MAGIC = 0xfeedface; // the mach magic number
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	475 const uint MH_CIGAM = 0xcefaedfe; // x86 variant
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	476
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	477 // #include <mach-o/dyld.h>
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	478
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	479 typedef void *NSObjectFileImage;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	480
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	481 typedef void *NSModule;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	482
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	483 typedef void *NSSymbol;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	484
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	485 enum // DYLD_BOOL: uint
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	486 {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	487 FALSE,
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	488 TRUE
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	489 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	490 alias uint DYLD_BOOL;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	491
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	492 enum // NSObjectFileImageReturnCode: uint
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	493 {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	494 NSObjectFileImageFailure, /* for this a message is printed on stderr */
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	495 NSObjectFileImageSuccess,
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	496 NSObjectFileImageInappropriateFile,
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	497 NSObjectFileImageArch,
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	498 NSObjectFileImageFormat, /* for this a message is printed on stderr */
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	499 NSObjectFileImageAccess
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	500 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	501 alias uint NSObjectFileImageReturnCode;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	502
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	503 enum // NSLinkEditErrors: uint
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	504 {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	505 NSLinkEditFileAccessError,
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	506 NSLinkEditFileFormatError,
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	507 NSLinkEditMachResourceError,
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	508 NSLinkEditUnixResourceError,
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	509 NSLinkEditOtherError,
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	510 NSLinkEditWarningError,
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	511 NSLinkEditMultiplyDefinedError,
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	512 NSLinkEditUndefinedError
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	513 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	514 alias uint NSLinkEditErrors;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	515
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	516 extern(C)
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	517 {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	518 NSObjectFileImageReturnCode NSCreateObjectFileImageFromFile(char pathName, NSObjectFileImage objectFileImage);
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	519 DYLD_BOOL NSDestroyObjectFileImage(NSObjectFileImage objectFileImage);
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	520
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	521 mach_header * NSAddImage(char *image_name, uint options);
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	522 const uint NSADDIMAGE_OPTION_NONE = 0x0;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	523 const uint NSADDIMAGE_OPTION_RETURN_ON_ERROR = 0x1;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	524 const uint NSADDIMAGE_OPTION_WITH_SEARCHING = 0x2;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	525 const uint NSADDIMAGE_OPTION_RETURN_ONLY_IF_LOADED = 0x4;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	526 const uint NSADDIMAGE_OPTION_MATCH_FILENAME_BY_INSTALLNAME = 0x8;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	527
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	528 NSModule NSLinkModule(NSObjectFileImage objectFileImage, char* moduleName, uint options);
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	529 const uint NSLINKMODULE_OPTION_NONE = 0x0;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	530 const uint NSLINKMODULE_OPTION_BINDNOW = 0x01;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	531 const uint NSLINKMODULE_OPTION_PRIVATE = 0x02;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	532 const uint NSLINKMODULE_OPTION_RETURN_ON_ERROR = 0x04;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	533 const uint NSLINKMODULE_OPTION_DONT_CALL_MOD_INIT_ROUTINES = 0x08;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	534 const uint NSLINKMODULE_OPTION_TRAILING_PHYS_NAME = 0x10;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	535 DYLD_BOOL NSUnLinkModule(NSModule module_, uint options);
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	536
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	537 void NSLinkEditError(NSLinkEditErrors c, int errorNumber, char fileName, char errorString);
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	538
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	539 DYLD_BOOL NSIsSymbolNameDefined(char *symbolName);
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	540 DYLD_BOOL NSIsSymbolNameDefinedInImage(mach_header image, char symbolName);
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	541 NSSymbol NSLookupAndBindSymbol(char *symbolName);
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	542 NSSymbol NSLookupSymbolInModule(NSModule module_, char* symbolName);
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	543 NSSymbol NSLookupSymbolInImage(mach_header image, char symbolName, uint options);
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	544 const uint NSLOOKUPSYMBOLINIMAGE_OPTION_BIND = 0x0;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	545 const uint NSLOOKUPSYMBOLINIMAGE_OPTION_BIND_NOW = 0x1;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	546 const uint NSLOOKUPSYMBOLINIMAGE_OPTION_BIND_FULLY = 0x2;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	547 const uint NSLOOKUPSYMBOLINIMAGE_OPTION_RETURN_ON_ERROR = 0x4;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	548
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	549 void* NSAddressOfSymbol(NSSymbol symbol);
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	550 char* NSNameOfSymbol(NSSymbol symbol);
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	551 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	552
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	553
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	554 class FunctionLoader
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	555 {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	556 /***************************************************************
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	557
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	558 ***************************************************************/
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	559
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	560 protected struct Bind
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	561 {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	562 void** fnc;
21 9b96950f2c3c the 'java' tree compiles on both D1-Tango and D2-Phobos Frank Benoit <benoit@tionex.de> parents: 16 diff changeset	563 CString name;
16 dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	564 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	565
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	566 /***************************************************************
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	567
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	568 ***************************************************************/
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	569
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	570 private static NSModule open(char* filename)
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	571 {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	572 NSModule mod = null;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	573 NSObjectFileImage fileImage = null;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	574 debug printf("Trying to load: %s\n", filename);
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	575
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	576 NSObjectFileImageReturnCode returnCode =
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	577 NSCreateObjectFileImageFromFile(filename, &fileImage);
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	578 if(returnCode == NSObjectFileImageSuccess)
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	579 {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	580 mod = NSLinkModule(fileImage,filename,
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	581 NSLINKMODULE_OPTION_RETURN_ON_ERROR \|
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	582 NSLINKMODULE_OPTION_PRIVATE \|
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	583 NSLINKMODULE_OPTION_BINDNOW);
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	584 NSDestroyObjectFileImage(fileImage);
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	585 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	586 else if(returnCode == NSObjectFileImageInappropriateFile)
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	587 {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	588 NSDestroyObjectFileImage(fileImage);
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	589 /* Could be a dynamic library rather than a bundle */
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	590 mod = cast(NSModule) NSAddImage(filename,
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	591 NSADDIMAGE_OPTION_RETURN_ON_ERROR);
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	592 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	593 else
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	594 {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	595 debug printf("FileImage Failed: %d\n", returnCode);
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	596 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	597 return mod;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	598 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	599
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	600 private static void* symbol(NSModule mod, char* name)
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	601 {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	602 NSSymbol symbol = null;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	603 uint magic = (* cast(mach_header *) mod).magic;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	604
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	605 if ( (mod == cast(NSModule) -1) && NSIsSymbolNameDefined(name))
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	606 /* Global context, use NSLookupAndBindSymbol */
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	607 symbol = NSLookupAndBindSymbol(name);
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	608 else if ( ( magic == MH_MAGIC \|\| magic == MH_CIGAM ) &&
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	609 NSIsSymbolNameDefinedInImage(cast(mach_header *) mod, name))
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	610 symbol = NSLookupSymbolInImage(cast(mach_header *) mod, name,
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	611 NSLOOKUPSYMBOLINIMAGE_OPTION_BIND \|
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	612 NSLOOKUPSYMBOLINIMAGE_OPTION_RETURN_ON_ERROR);
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	613 else
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	614 symbol = NSLookupSymbolInModule(mod, name);
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	615
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	616 return NSAddressOfSymbol(symbol);
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	617 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	618
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	619 static final void* bind (char[] library, inout Bind[] targets)
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	620 {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	621 static char[] errorInfo;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	622
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	623 debug printf("the library is %s\n", ICU.toString(library));
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	624
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	625 void* lib = null;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	626 static char[][] usual_suspects = [ "", "/usr/local/lib/", "/usr/lib/",
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	627 /* Fink / "/sw/lib/", / DarwinPorts */ "/opt/local/lib/" ];
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	628 foreach (char[] prefix; usual_suspects)
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	629 {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	630 lib = cast(void*) open(ICU.toString(prefix ~ library));
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	631 if (lib != null) break;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	632 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	633 if (lib == null)
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	634 {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	635 throw new Exception ("could not open library " ~ library);
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	636 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	637
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	638 // clear the error buffer
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	639 // error();
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	640
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	641 foreach (Bind b; targets)
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	642 {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	643 // Note: all C functions have a underscore prefix in Mach-O symbols
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	644 char[] name = "_" ~ b.name ~ ICUSig;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	645
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	646 *b.fnc = symbol(cast(NSModule) lib, name.ptr);
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	647 if (*b.fnc != null)
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	648 {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	649 debug printf ("bound '%.*s'\n", name);
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	650 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	651 else
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	652 {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	653 // errorInfo = ICU.toArray(error());
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	654 throw new Exception ("required " ~ name ~ " in library " ~ library);
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	655 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	656 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	657 return lib;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	658 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	659
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	660 /***************************************************************
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	661
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	662 ***************************************************************/
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	663
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	664 private static bool close(NSModule mod)
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	665 {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	666 uint magic = (* cast(mach_header *) mod).magic;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	667 if ( magic == MH_MAGIC \|\| magic == MH_CIGAM )
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	668 {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	669 // Can not unlink dynamic libraries on Darwin
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	670 return true;
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	671 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	672
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	673 return (NSUnLinkModule(mod, 0) == TRUE);
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	674 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	675
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	676 static final void unbind (void* library)
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	677 {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	678 version (CorrectedTeardown)
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	679 {
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	680 if (! close(cast(NSModule) library))
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	681 throw new Exception ("close library failed\n");
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	682 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	683 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	684 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	685 }
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	686
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	687 /*******************************************************************************
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	688
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	689 unknown platform
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	690
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	691 *******************************************************************************/
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	692
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	693 else static assert(0); // need an implementation of FunctionLoader for this OS
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	694
dbfb303e8fb0 first complete successful compile (win-only) Frank Benoit <benoit@tionex.de> parents: diff changeset	695

Mercurial > projects > dwt2

annotate java/src/java/mangoicu/ICU.d @ 26:f589fc20a5f9