mirrors/phobos
1
0
Fork 0
mirror of https://github.com/dlang/phobos.git synced 2025-05-13 15:52:41 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

phobos 0.153

Browse source
This commit is contained in:
Brad Roberts 2007-09-10 05:17:15 +00:00
parent 5611689b5d
commit 164dc8159b
30 changed files with 1035 additions and 386 deletions
Download patch file Download diff file Expand all files Collapse all files

6
internal/aaA.d
View file

@ -678,6 +678,8 @@ body
return result;
}
if (aa.a)
{
foreach (e; aa.a.b)
{
if (e)
@ -687,6 +689,7 @@ body
break;
}
}
}
return result;
}
@ -728,6 +731,8 @@ body
return result;
}
if (aa.a)
{
foreach (e; aa.a.b)
{
if (e)
@ -737,6 +742,7 @@ body
break;
}
}
}
return result;
}

4
internal/arraycat.d
View file

@ -98,7 +98,9 @@ byte[] _d_arraycopy(uint size, byte[] from, byte[] to)
if (to.length != from.length)
{
throw new Error(std.string.format("lengths don't match for array copy, %s = %s", to.length, from.length));
//throw new Error(std.string.format("lengths don't match for array copy, %s = %s", to.length, from.length));
throw new Error("lengths don't match for array copy," ~
toString(to.length) ~ " = " ~ toString(from.length));
}
else if (cast(byte *)to + to.length * size <= cast(byte *)from ||
cast(byte *)from + from.length * size <= cast(byte *)to)

5
internal/object.d
View file

@ -9,7 +9,7 @@
*/
/*
* Copyright (C) 2004-2005 by Digital Mars, www.digitalmars.com
* Copyright (C) 2004-2006 by Digital Mars, www.digitalmars.com
* Written by Walter Bright
*
* This software is provided 'as-is', without any express or implied
@ -62,6 +62,7 @@ version (X86_64)
* analogous to C's ptrdiff_t.
*/
alias long ptrdiff_t;
alias ulong hash_t;
}
else
@ -563,7 +564,7 @@ class TypeInfo_Struct : TypeInfo
char[] name;
size_t xsize;
uint function(void*) xtoHash;
hash_t function(void*) xtoHash;
int function(void*,void*) xopEquals;
int function(void*,void*) xopCmp;
}

2
object.d
View file

@ -8,7 +8,7 @@ alias bool bit;
alias typeof(int.sizeof) size_t;
alias typeof(cast(void*)0 - cast(void*)0) ptrdiff_t;
alias uint hash_t;
alias size_t hash_t;
extern (C)
{ int printf(char *, ...);

3
std.ddoc
View file

@ -79,6 +79,7 @@ DDOC = <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
&nbsp;<a href="std_string.html" title="Basic string operations">std.string</a><br>
&nbsp;<a href="std_system.html" title="Inquire about the CPU, operating system">std.system</a><br>
&nbsp;<a href="std_thread.html" title="Thread operations">std.thread</a><br>
&nbsp;<a href="std_uni.html" title="Unicode classification">std.uni</a><br>
&nbsp;<a href="std_uri.html" title="Encode and decode Uniform Resource Identifiers (URIs)">std.uri</a><br>
&nbsp;<a href="std_utf.html" title="Encode and decode utf character encodings">std.utf</a><br>
&nbsp;<a href="std_zip.html" title="Read/write zip archives">std.zip</a><br>
@ -127,7 +128,7 @@ Page generated by $(LINK2 http://www.digitalmars.com/d/ddoc.html, Ddoc).
/**/google_ad_width = 728;
/**/google_ad_height = 90;
/**/google_ad_format = "728x90_as";
/**/google_ad_channel ="";
/**/google_ad_channel ="6203743411";
/**/google_page_url = document.location;
//--></script>
<script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js">

142
std/conv.d
View file

@ -1,12 +1,51 @@
// Written by Walter Bright
// Copyright (c) 2002-2006 Digital Mars
// All Rights Reserved
// www.digitalmars.com
// Some parts contributed by David L. Davis
/*
* Copyright (C) 2002-2006 by Digital Mars, www.digitalmars.com
* Written by Walter Bright
* Some parts contributed by David L. Davis
*
* This software is provided 'as-is', without any express or implied
* warranty. In no event will the authors be held liable for any damages
* arising from the use of this software.
*
* Permission is granted to anyone to use this software for any purpose,
* including commercial applications, and to alter it and redistribute it
* freely, subject to the following restrictions:
*
* o The origin of this software must not be misrepresented; you must not
* claim that you wrote the original software. If you use this software
* in a product, an acknowledgment in the product documentation would be
* appreciated but is not required.
* o Altered source versions must be plainly marked as such, and must not
* be misrepresented as being the original software.
* o This notice may not be removed or altered from any source
* distribution.
*/
// Conversion building blocks. These differ from the C equivalents by
// checking for overflow and not allowing whitespace.
/***********
* Conversion building blocks. These differ from the C equivalents
* <tt>atoi()</tt> and <tt>atol()</tt> by
* checking for overflow and not allowing whitespace.
*
* For conversion to signed types, the grammar recognized is:
* <pre>
$(I Integer):
$(I Sign UnsignedInteger)
$(I UnsignedInteger)
$(I Sign):
$(B +)
$(B -)
* </pre>
* For conversion to signed types, the grammar recognized is:
* <pre>
$(I UnsignedInteger):
$(I DecimalDigit)
$(I DecimalDigit) $(I UnsignedInteger)
* </pre>
* Macros:
* WIKI=Phobos/StdConv
*/
module std.conv;
@ -20,6 +59,9 @@ private import std.stdio; // for writefln() and printf()
/* ************* Exceptions *************** */
/**
* Thrown on conversion errors, which happens on deviation from the grammar.
*/
class ConvError : Error
{
this(char[] s)
@ -33,6 +75,9 @@ private void conv_error(char[] s)
throw new ConvError(s);
}
/**
* Thrown on conversion overflow errors.
*/
class ConvOverflowError : Error
{
this(char[] s)
@ -47,9 +92,7 @@ private void conv_overflow(char[] s)
}
/***************************************************************
* Convert character string to int.
* Grammar:
* ['+'|'-'] digit {digit}
* Convert character string to the return type.
*/
int toInt(char[] s)
@ -173,9 +216,7 @@ unittest
/*******************************************************
* Convert character string to uint.
* Grammar:
* digit {digit}
* ditto
*/
uint toUint(char[] s)
@ -269,10 +310,8 @@ unittest
}
}
/***************************************************************
* Convert character string to long.
* Grammar:
* ['+'|'-'] digit {digit}
/*******************************************************
* ditto
*/
long toLong(char[] s)
@ -402,9 +441,7 @@ unittest
/*******************************************************
* Convert character string to ulong.
* Grammar:
* digit {digit}
* ditto
*/
ulong toUlong(char[] s)
@ -506,10 +543,8 @@ unittest
}
/***************************************************************
* Convert character string to short.
* Grammar:
* ['+'|'-'] digit {digit}
/*******************************************************
* ditto
*/
short toShort(char[] s)
@ -592,9 +627,7 @@ unittest
/*******************************************************
* Convert character string to ushort.
* Grammar:
* digit {digit}
* ditto
*/
ushort toUshort(char[] s)
@ -671,10 +704,8 @@ unittest
}
/***************************************************************
* Convert character string to byte.
* Grammar:
* ['+'|'-'] digit {digit}
/*******************************************************
* ditto
*/
byte toByte(char[] s)
@ -757,9 +788,7 @@ unittest
/*******************************************************
* Convert character string to ubyte.
* Grammar:
* digit {digit}
* ditto
*/
ubyte toUbyte(char[] s)
@ -836,8 +865,8 @@ unittest
}
/***************************************************************
* Convert character string to float.
/*******************************************************
* ditto
*/
float toFloat(in char[] s)
@ -899,8 +928,8 @@ unittest
assert(toString(f) == toString(float.nan));
}
/***************************************************************
* Convert character string to double.
/*******************************************************
* ditto
*/
double toDouble(in char[] s)
@ -965,10 +994,8 @@ unittest
//assert(cast(real)d == cast(real)double.nan);
}
/***************************************************************
* Convert character string to real.
* Grammar:
* ['+'|'-'] digit {digit}
/*******************************************************
* ditto
*/
real toReal(in char[] s)
{
@ -1045,8 +1072,8 @@ version (none)
* Should it match what toString(ifloat) does with the 'i' suffix?
*/
/***************************************************************
* Convert character string to ifloat.
/*******************************************************
* ditto
*/
ifloat toIfloat(in char[] s)
@ -1083,8 +1110,8 @@ unittest
assert(feq(cast(ireal)ift, cast(ireal)ifloat.nan));
}
/***************************************************************
* Convert character string to idouble.
/*******************************************************
* ditto
*/
idouble toIdouble(in char[] s)
@ -1122,8 +1149,8 @@ unittest
assert(toString(id) == toString(idouble.nan));
}
/***************************************************************
* Convert character string to ireal.
/*******************************************************
* ditto
*/
ireal toIreal(in char[] s)
@ -1162,10 +1189,9 @@ unittest
assert(toString(ir) == toString(ireal.nan));
}
/***************************************************************
* Convert character string to cfloat.
* Grammar:
* ['+'|'-'] digit {digit}
/*******************************************************
* ditto
*/
cfloat toCfloat(in char[] s)
{
@ -1243,10 +1269,8 @@ unittest
assert(feq(cast(creal)cf, cast(creal)cfloat.nan));
}
/***************************************************************
* Convert character string to cdouble.
* Grammar:
* ['+'|'-'] digit {digit}
/*******************************************************
* ditto
*/
cdouble toCdouble(in char[] s)
{
@ -1320,10 +1344,8 @@ unittest
assert(feq(cast(creal)cd, cast(creal)cdouble.nan));
}
/***************************************************************
* Convert character string to creal.
* Grammar:
* ['+'|'-'] digit {digit}
/*******************************************************
* ditto
*/
creal toCreal(in char[] s)
{

86
std/cstream.d
View file

@ -1,6 +1,10 @@
/**
* The std.cstream module bridges std.c.stdio (or std.stdio) and std.stream.
* Both std.c.stdio and std.stream are publicly imported by std.cstream.
* Authors: Ben Hinkle
* License: public domain
* License: Public Domain
* Macros:
* WIKI=Phobos/StdCstream
*/
module std.cstream;
@ -8,11 +12,19 @@ module std.cstream;
import std.stream;
import std.c.stdio;
// wraps a FILE* in a stream class
/**
* A Stream wrapper for a C file of type FILE*.
*/
class CFile : Stream {
FILE* cfile;
// Construct a CFile from the given FILE* with mode and optional seekable state
/**
* Create the stream wrapper for the given C file.
* Params:
* mode = a bitwise combination of $(B FileMode.In) for a readable file
* and $(B FileMode.Out) for a writeable file.
* seekable = indicates if the stream should be _seekable.
*/
this(FILE* cfile, FileMode mode, bool seekable = false) {
super();
this.file = cfile;
@ -21,51 +33,103 @@ class CFile : Stream {
this.seekable = seekable;
}
/**
* Closes the stream.
*/
~this() { close(); }
/**
* Property to get or set the underlying file for this stream.
* Setting the file marks the stream as open.
*/
FILE* file() { return cfile; }
/**
* Ditto
*/
void file(FILE* cfile) {
this.cfile = cfile;
isopen = true;
}
/**
* Overrides of the $(B Stream) methods to call the underlying $(B FILE*)
* C functions.
*/
override void flush() { fflush(cfile); }
/**
* Ditto
*/
override void close() {
if (isopen)
fclose(cfile);
isopen = readable = writeable = seekable = false;
}
/**
* Ditto
*/
override bool eof() {
return cast(bool)(readEOF || feof(cfile));
}
/**
* Ditto
*/
override char getc() {
return cast(char)fgetc(cfile);
}
/**
* Ditto
*/
override char ungetc(char c) {
return cast(char)std.c.stdio.ungetc(c,cfile);
}
/**
* Ditto
*/
override size_t readBlock(void* buffer, size_t size) {
size_t n = fread(buffer,1,size,cfile);
readEOF = cast(bool)(n == 0);
return n;
}
/**
* Ditto
*/
override size_t writeBlock(void* buffer, size_t size) {
return fwrite(buffer,1,size,cfile);
}
/**
* Ditto
*/
override ulong seek(long offset, SeekPos rel) {
readEOF = false;
if (fseek(cfile,cast(int)offset,rel) != 0)
throw new SeekException("unable to move file pointer");
return ftell(cfile);
}
/**
* Ditto
*/
override void writeLine(char[] s) {
writeString(s);
writeString("\n");
}
/**
* Ditto
*/
override void writeLineW(wchar[] s) {
writeStringW(s);
writeStringW("\n");
}
// run a few tests
unittest {
FILE* f = fopen("stream.txt","w");
@ -140,8 +204,20 @@ class CFile : Stream {
}
}
// standard IO devices
CFile din, dout, derr;
/**
* CFile wrapper of std.c.stdio.stdin (not seekable).
*/
CFile din;
/**
* CFile wrapper of std.c.stdio.stdout (not seekable).
*/
CFile dout;
/**
* CFile wrapper of std.c.stdio.stderr (not seekable).
*/
CFile derr;
static this() {
// open standard I/O devices

90
std/ctype.d
View file

@ -1,44 +1,87 @@
/*
* Copyright (C) 2004-2005 by Digital Mars, www.digitalmars.com
* Placed into the Public Domain.
* Digital Mars, www.digitalmars.com
* Written by Walter Bright
*
* This software is provided 'as-is', without any express or implied
* warranty. In no event will the authors be held liable for any damages
* arising from the use of this software.
*
* Permission is granted to anyone to use this software for any purpose,
* including commercial applications, and to alter it and redistribute it
* freely, in both source and binary form, subject to the following
* restrictions:
*
* o The origin of this software must not be misrepresented; you must not
* claim that you wrote the original software. If you use this software
* in a product, an acknowledgment in the product documentation would be
* appreciated but is not required.
* o Altered source versions must be plainly marked as such, and must not
* be misrepresented as being the original software.
* o This notice may not be removed or altered from any source
* distribution.
*/
// Simple ASCII char classification functions
/**
* Simple ASCII character classification functions.
* For Unicode classification, see $(LINK2 std_uni.html, std.uni).
* References:
* $(LINK2 http://www.digitalmars.com/d/ascii-table.html, ASCII Table),
* $(LINK2 http://en.wikipedia.org/wiki/Ascii, Wikipedia)
* Macros:
* WIKI=Phobos/StdCtype
*/
module std.ctype;
/**
* Returns !=0 if c is a letter in the range (0..9, a..z, A..Z).
*/
int isalnum(dchar c) { return (c <= 0x7F) ? _ctype[c] & (_ALP|_DIG) : 0; }
/**
* Returns !=0 if c is an ascii upper or lower case letter.
*/
int isalpha(dchar c) { return (c <= 0x7F) ? _ctype[c] & (_ALP) : 0; }
/**
* Returns !=0 if c is a control character.
*/
int iscntrl(dchar c) { return (c <= 0x7F) ? _ctype[c] & (_CTL) : 0; }
/**
* Returns !=0 if c is a digit.
*/
int isdigit(dchar c) { return (c <= 0x7F) ? _ctype[c] & (_DIG) : 0; }
/**
* Returns !=0 if c is lower case ascii letter.
*/
int islower(dchar c) { return (c <= 0x7F) ? _ctype[c] & (_LC) : 0; }
/**
* Returns !=0 if c is a punctuation character.
*/
int ispunct(dchar c) { return (c <= 0x7F) ? _ctype[c] & (_PNC) : 0; }
/**
* Returns !=0 if c is a space, tab, vertical tab, form feed,
* carriage return, or linefeed.
*/
int isspace(dchar c) { return (c <= 0x7F) ? _ctype[c] & (_SPC) : 0; }
/**
* Returns !=0 if c is an upper case ascii character.
*/
int isupper(dchar c) { return (c <= 0x7F) ? _ctype[c] & (_UC) : 0; }
/**
* Returns !=0 if c is a hex digit (0..9, a..f, A..F).
*/
int isxdigit(dchar c) { return (c <= 0x7F) ? _ctype[c] & (_HEX) : 0; }
/**
* Returns !=0 if c is a printing character except for the space character.
*/
int isgraph(dchar c) { return (c <= 0x7F) ? _ctype[c] & (_ALP|_DIG|_PNC) : 0; }
/**
* Returns !=0 if c is a printing character except for the space character.
*/
int isprint(dchar c) { return (c <= 0x7F) ? _ctype[c] & (_ALP|_DIG|_PNC|_BLK) : 0; }
/**
* Returns !=0 if c is in the ascii character set, i.e. in the range 0..0x7F.
*/
int isascii(dchar c) { return c <= 0x7F; }
/**
* If c is an upper case ascii character,
* return the lower case equivalent, otherwise return c.
*/
dchar tolower(dchar c)
out (result)
{
@ -49,6 +92,11 @@ dchar tolower(dchar c)
return isupper(c) ? c + (cast(dchar)'a' - 'A') : c;
}
/**
* If c is a lower case ascii character,
* return the upper case equivalent, otherwise return c.
*/
dchar toupper(dchar c)
out (result)
{

33
std/date.d
View file

@ -34,19 +34,23 @@ alias long d_time;
*/
const d_time d_time_nan = long.min;
/**
* Time broken down into its components.
*/
struct Date
{
int year = int.min; // our "nan" Date value
int month; // 1..12
int day; // 1..31
int hour; // 0..23
int minute; // 0..59
int second; // 0..59
int ms; // 0..999
int weekday; // 0: not specified
// 1..7: Sunday..Saturday
int tzcorrection = int.min; // -1200..1200 correction in hours
int year = int.min; /// use int.min as "nan" year value
int month; /// 1..12
int day; /// 1..31
int hour; /// 0..23
int minute; /// 0..59
int second; /// 0..59
int ms; /// 0..999
int weekday; /// 0: not specified
/// 1..7: Sunday..Saturday
int tzcorrection = int.min; /// -1200..1200 correction in hours
/// Parse date out of string s[] and store it in this Date instance.
void parse(char[] s)
{
DateParse dp;
@ -220,7 +224,9 @@ int YearFromTime(d_time t)
{ int y;
// Hazard a guess
y = 1970 + cast(int) (t / (365.2425 * msPerDay));
//y = 1970 + cast(int) (t / (365.2425 * msPerDay));
// Use integer only math
y = 1970 + cast(int) (t / (3652425 * (msPerDay / 10000)));
if (TimeFromYear(y) <= t)
{
@ -360,7 +366,8 @@ d_time LocalTimetoUTC(d_time t)
return t - LocalTZA - DaylightSavingTA(t - LocalTZA);
}
d_time MakeTime(int hour, int min, int sec, int ms)
d_time MakeTime(d_time hour, d_time min, d_time sec, d_time ms)
{
return hour * TicksPerHour +
min * TicksPerMinute +
@ -369,7 +376,7 @@ d_time MakeTime(int hour, int min, int sec, int ms)
}
d_time MakeDay(int year, int month, int date)
d_time MakeDay(d_time year, d_time month, d_time date)
{ d_time t;
int y;
int m;

51
std/format.d
View file

@ -50,9 +50,12 @@ version (Windows)
version (DigitalMarsC)
{
// This is DMC's internal floating point formatting function
extern (C) char* function(int c, int flags, int precision, real* pdval,
extern (C)
{
extern char* function(int c, int flags, int precision, real* pdval,
char* buf, int* psl, int width) __pfloatfmt;
}
}
else
{
// Use C99 snprintf
@ -126,6 +129,7 @@ enum Mangle : char
private TypeInfo primitiveTypeInfo(Mangle m)
{
TypeInfo ti;
switch (m)
{
case Mangle.Tvoid:
@ -835,6 +839,27 @@ void doFormat(void delegate(dchar) putc, TypeInfo[] arguments, va_list argptr)
goto Lerror;
}
if (!signed)
{
switch (m)
{
case Mangle.Tbyte:
vnumber &= 0xFF;
break;
case Mangle.Tshort:
vnumber &= 0xFFFF;
break;
case Mangle.Tint:
vnumber &= 0xFFFFFFFF;
break;
default:
break;
}
}
if (flags & FLprecision && fc != 'p')
flags &= ~FL0pad;
@ -1294,5 +1319,29 @@ unittest
dchar dc = 'a';
r = std.string.format("%d", dc);
assert(r == "97");
byte b = byte.max;
r = std.string.format("%x", b);
assert(r == "7f");
r = std.string.format("%x", ++b);
assert(r == "80");
r = std.string.format("%x", ++b);
assert(r == "81");
short sh = short.max;
r = std.string.format("%x", sh);
assert(r == "7fff");
r = std.string.format("%x", ++sh);
assert(r == "8000");
r = std.string.format("%x", ++sh);
assert(r == "8001");
i = int.max;
r = std.string.format("%x", i);
assert(r == "7fffffff");
r = std.string.format("%x", ++i);
assert(r == "80000000");
r = std.string.format("%x", ++i);
assert(r == "80000001");
}

82
std/gc.d
View file

@ -1,21 +1,75 @@
// Copyright (c) 1999-2003 by Digital Mars
// All Rights Reserved
// written by Walter Bright
// www.digitalmars.com
/*
* Copyright (C) 1999-2006 by Digital Mars, www.digitalmars.com
* Written by Walter Bright
*
* This software is provided 'as-is', without any express or implied
* warranty. In no event will the authors be held liable for any damages
* arising from the use of this software.
*
* Permission is granted to anyone to use this software for any purpose,
* including commercial applications, and to alter it and redistribute it
* freely, subject to the following restrictions:
*
* o The origin of this software must not be misrepresented; you must not
* claim that you wrote the original software. If you use this software
* in a product, an acknowledgment in the product documentation would be
* appreciated but is not required.
* o Altered source versions must be plainly marked as such, and must not
* be misrepresented as being the original software.
* o This notice may not be removed or altered from any source
* distribution.
*/
/**
* The garbage collector normally works behind the scenes without needing any
* specific interaction. These functions are for advanced applications that
* benefit from tuning the operation of the collector.
* Macros:
* WIKI=Phobos/StdGc
*/
module std.gc;
import gcstats;
/**
* Add p to list of roots. Roots are references to memory allocated by the
collector that are maintained in memory outside the collector pool. The garbage
collector will by default look for roots in the stacks of each thread, the
registers, and the default static data segment. If roots are held elsewhere,
use addRoot() or addRange() to tell the collector not to free the memory it
points to.
*/
void addRoot(void *p); // add p to list of roots
/**
* Remove p from list of roots.
*/
void removeRoot(void *p); // remove p from list of roots
/**
* Add range to scan for roots.
*/
void addRange(void *pbot, void *ptop); // add range to scan for roots
/**
* Remove range.
*/
void removeRange(void *pbot); // remove range
/***********************************
* Run a full garbage collection cycle.
*
* The collector normally runs synchronously with a storage allocation request
(i.e. it never happens when in code that does not allocate memory). In some
circumstances, for example when a particular task is finished, it is convenient
to explicitly run the collector and free up all memory used by that task. It
can also be helpful to run a collection before starting a new task that would
be annoying if it ran a collection in the middle of that task. Explicitly
running a collection can also be done in a separate very low priority thread,
so that if the program is idly waiting for input, memory can be cleaned up.
*/
void fullCollect();
@ -27,17 +81,31 @@ void fullCollect();
*/
void genCollect();
void genCollectNoStack();
void minimize(); // minimize physical memory usage
/**
* Minimizes physical memory usage
*/
void minimize();
/***************************************
* Disable and enable collections. They must be
* a matched pair, and can nest.
* disable() temporarilly disables garbage collection cycle, enable()
* then reenables them.
*
* This is used for brief time
critical sections of code, so the amount of time it will take is predictable.
If the collector runs out of memory while it is disabled, it will throw an
OutOfMemory exception. The disable() function calls can be nested, but must be
matched with corresponding enable() calls.
* By default collections are enabled.
*/
void disable();
/**
* ditto
*/
void enable();
void getStats(out GCStats stats);

157
std/intrinsic.d
View file

@ -5,25 +5,170 @@
// Placed into the public domain
/** These functions are built-in intrinsics to the compiler.
*
Intrinsic functions are functions built in to the compiler,
usually to take advantage of specific CPU features that
are inefficient to handle via external functions.
The compiler's optimizer and code generator are fully
integrated in with intrinsic functions, bringing to bear
their full power on them.
This can result in some surprising speedups.
* Macros:
* WIKI=Phobos/StdIntrinsic
*/
module std.intrinsic;
/**
* Scans the bits in v starting with bit 0, looking
* for the first set bit.
* Returns:
* The bit number of the first bit set.
* The return value is undefined if v is zero.
*/
int bsf(uint v);
/**
* Scans the bits in v from the most significant bit
* to the least significant bit, looking
* for the first set bit.
* Returns:
* The bit number of the first bit set.
* The return value is undefined if v is zero.
* Example:
* ---
* import std.intrinsic;
*
* int main()
* {
* uint v;
* int x;
*
* v = 0x21;
* x = bsf(v);
* printf("bsf(x%x) = %d\n", v, x);
* x = bsr(v);
* printf("bsr(x%x) = %d\n", v, x);
* return 0;
* }
* ---
* Output:
* bsf(x21) = 0<br>
* bsr(x21) = 5
*/
int bsr(uint v);
/**
* Tests the bit.
*/
int bt(uint *p, uint bitnum);
/**
* Tests and complements the bit.
*/
int btc(uint *p, uint bitnum);
/**
* Tests and resets (sets to 0) the bit.
*/
int btr(uint *p, uint bitnum);
/**
* Tests and sets the bit.
* Params:
* p = a non-NULL pointer to an array of uints.
* index = a bit number, starting with bit 0 of p[0],
* and progressing. It addresses bits like the expression:
---
p[index / (uint.sizeof*8)] & (1 << (index & ((uint.sizeof*8) - 1)))
---
* Returns:
* A non-zero value if the bit was set, and a zero
* if it was clear.
*
* Example:
* ---
import std.intrinsic;
int main()
{
uint array[2];
array[0] = 2;
array[1] = 0x100;
printf("btc(array, 35) = %d\n", <b>btc</b>(array, 35));
printf("array = [0]:x%x, [1]:x%x\n", array[0], array[1]);
printf("btc(array, 35) = %d\n", <b>btc</b>(array, 35));
printf("array = [0]:x%x, [1]:x%x\n", array[0], array[1]);
printf("bts(array, 35) = %d\n", <b>bts</b>(array, 35));
printf("array = [0]:x%x, [1]:x%x\n", array[0], array[1]);
printf("btr(array, 35) = %d\n", <b>btr</b>(array, 35));
printf("array = [0]:x%x, [1]:x%x\n", array[0], array[1]);
printf("bt(array, 1) = %d\n", <b>bt</b>(array, 1));
printf("array = [0]:x%x, [1]:x%x\n", array[0], array[1]);
return 0;
}
* ---
* Output:
<pre>
btc(array, 35) = 0
array = [0]:x2, [1]:x108
btc(array, 35) = -1
array = [0]:x2, [1]:x100
bts(array, 35) = 0
array = [0]:x2, [1]:x108
btr(array, 35) = -1
array = [0]:x2, [1]:x100
bt(array, 1) = -1
array = [0]:x2, [1]:x100
</pre>
*/
int bts(uint *p, uint bitnum);
/**
* Swaps bytes in a 4 byte uint end-to-end, i.e. byte 0 becomes
byte 3, byte 1 becomes byte 2, byte 2 becomes byte 1, byte 3
becomes byte 0.
*/
uint bswap(uint v);
ubyte inp(uint);
ushort inpw(uint);
uint inpl(uint);
ubyte outp(uint, ubyte);
ushort outpw(uint, ushort);
uint outpl(uint, uint);
/**
* Reads I/O port at port_address.
*/
ubyte inp(uint port_address);
/**
* ditto
*/
ushort inpw(uint port_address);
/**
* ditto
*/
uint inpl(uint port_address);
/**
* Writes and returns value to I/O port at port_address.
*/
ubyte outp(uint port_address, ubyte value);
/**
* ditto
*/
ushort outpw(uint port_address, ushort value);
/**
* ditto
*/
uint outpl(uint port_address, uint value);

55
std/regexp.d
View file

@ -2480,11 +2480,10 @@ Lretc:
void optimize()
{ ubyte[] prog;
int i;
debug(regexp) printf("RegExp.optimize()\n");
prog = buf.toBytes();
for (i = 0; 1;)
for (size_t i = 0; 1;)
{
//printf("\tprog[%d] = %d, %d\n", i, prog[i], REstring);
switch (prog[i])
@ -2564,10 +2563,9 @@ int starrchars(Range r, ubyte[] prog)
uint n;
uint m;
ubyte* pop;
int i;
//printf("RegExp.starrchars(prog = %p, progend = %p)\n", prog, progend);
for (i = 0; i < prog.length;)
for (size_t i = 0; i < prog.length;)
{
switch (prog[i])
{
@ -2774,31 +2772,28 @@ public rchar[] replace(rchar[] format)
private static rchar[] replace3(rchar[] format, rchar[] input, regmatch_t[] pmatch)
{
OutBuffer buf;
rchar[] result;
rchar c;
uint c2;
int rm_so;
int rm_eo;
int i;
int f;
// printf("replace3(format = '%.*s', input = '%.*s')\n", format, input);
buf = new OutBuffer();
buf.reserve(format.length * rchar.sizeof);
for (f = 0; f < format.length; f++)
result.length = format.length;
result.length = 0;
for (size_t f = 0; f < format.length; f++)
{
c = format[f];
auto c = format[f];
L1:
if (c != '$')
{
buf.write(c);
result ~= c;
continue;
}
++f;
if (f == format.length)
{
buf.write(cast(rchar)'$');
result ~= '$';
break;
}
c = format[f];
@ -2826,8 +2821,8 @@ private static rchar[] replace3(rchar[] format, rchar[] input, regmatch_t[] pmat
{
if (i == 0)
{
buf.write(cast(rchar)'$');
buf.write(c);
result ~= '$';
result ~= c;
continue;
}
}
@ -2840,8 +2835,8 @@ private static rchar[] replace3(rchar[] format, rchar[] input, regmatch_t[] pmat
}
if (i == 0)
{
buf.write(cast(rchar)'$');
buf.write(c);
result ~= '$';
result ~= c;
c = c2;
goto L1;
}
@ -2856,16 +2851,15 @@ private static rchar[] replace3(rchar[] format, rchar[] input, regmatch_t[] pmat
Lstring:
if (rm_so != rm_eo)
buf.write(input[rm_so .. rm_eo]);
result ~= input[rm_so .. rm_eo];
break;
default:
buf.write(cast(rchar)'$');
buf.write(c);
result ~= '$';
result ~= c;
break;
}
}
result = cast(rchar[])buf.toBytes();
return result;
}
@ -2891,22 +2885,20 @@ private static rchar[] replace3(rchar[] format, rchar[] input, regmatch_t[] pmat
public rchar[] replaceOld(rchar[] format)
{
OutBuffer buf;
rchar[] result;
rchar c;
//printf("replace: this = %p so = %d, eo = %d\n", this, pmatch[0].rm_so, pmatch[0].rm_eo);
//printf("3input = '%.*s'\n", input);
buf = new OutBuffer();
buf.reserve(format.length * rchar.sizeof);
for (uint i; i < format.length; i++)
result.length = format.length;
result.length = 0;
for (size_t i; i < format.length; i++)
{
c = format[i];
auto c = format[i];
switch (c)
{
case '&':
//printf("match = '%.*s'\n", input[pmatch[0].rm_so .. pmatch[0].rm_eo]);
buf.write(input[pmatch[0].rm_so .. pmatch[0].rm_eo]);
result ~= input[pmatch[0].rm_so .. pmatch[0].rm_eo];
break;
case '\\':
@ -2918,19 +2910,18 @@ public rchar[] replaceOld(rchar[] format)
i = c - '0';
if (i <= re_nsub && pmatch[i].rm_so != pmatch[i].rm_eo)
buf.write(input[pmatch[i].rm_so .. pmatch[i].rm_eo]);
result ~= input[pmatch[i].rm_so .. pmatch[i].rm_eo];
break;
}
}
buf.write(c);
result ~= c;
break;
default:
buf.write(c);
result ~= c;
break;
}
}
result = cast(rchar[])buf.toBytes();
return result;
}

389
std/socket.d
View file

@ -24,6 +24,14 @@
Thanks to Benjamin Herr for his assistance.
*/
/**
* Notes: For Win32 systems, link with ws2_32.lib.
* Example: See /dmd/samples/d/listener.d.
* Authors: Christopher E. Miller
* Macros:
* WIKI=Phobos/StdSocket
*/
module std.socket;
private import std.string, std.stdint, std.c.string, std.c.stdlib;
@ -71,9 +79,10 @@ else
}
/// Base exception thrown from a Socket.
class SocketException: Exception
{
int errorCode; // Platform-specific error code.
int errorCode; /// Platform-specific error code.
this(char[] msg, int err = 0)
@ -127,47 +136,58 @@ static ~this()
}
}
/**
* The communication domain used to resolve an address.
*/
enum AddressFamily: int
{
UNSPEC = AF_UNSPEC,
UNIX = AF_UNIX,
INET = AF_INET,
IPX = AF_IPX,
APPLETALK = AF_APPLETALK,
INET6 = AF_INET6,
UNSPEC = AF_UNSPEC, ///
UNIX = AF_UNIX, /// local communication
INET = AF_INET, /// internet protocol version 4
IPX = AF_IPX, /// novell IPX
APPLETALK = AF_APPLETALK, /// appletalk
INET6 = AF_INET6, // internet protocol version 6
}
/**
* Communication semantics
*/
enum SocketType: int
{
STREAM = SOCK_STREAM,
DGRAM = SOCK_DGRAM,
RAW = SOCK_RAW,
RDM = SOCK_RDM,
SEQPACKET = SOCK_SEQPACKET,
STREAM = SOCK_STREAM, /// sequenced, reliable, two-way communication-based byte streams
DGRAM = SOCK_DGRAM, /// connectionless, unreliable datagrams with a fixed maximum length; data may be lost or arrive out of order
RAW = SOCK_RAW, /// raw protocol access
RDM = SOCK_RDM, /// reliably-delivered message datagrams
SEQPACKET = SOCK_SEQPACKET, /// sequenced, reliable, two-way connection-based datagrams with a fixed maximum length
}
/**
* Protocol
*/
enum ProtocolType: int
{
IP = IPPROTO_IP,
ICMP = IPPROTO_ICMP,
IGMP = IPPROTO_IGMP,
GGP = IPPROTO_GGP,
TCP = IPPROTO_TCP,
PUP = IPPROTO_PUP,
UDP = IPPROTO_UDP,
IDP = IPPROTO_IDP,
IPV6 = IPPROTO_IPV6,
IP = IPPROTO_IP, /// internet protocol version 4
ICMP = IPPROTO_ICMP, /// internet control message protocol
IGMP = IPPROTO_IGMP, /// internet group management protocol
GGP = IPPROTO_GGP, /// gateway to gateway protocol
TCP = IPPROTO_TCP, /// transmission control protocol
PUP = IPPROTO_PUP, /// PARC universal packet protocol
UDP = IPPROTO_UDP, /// user datagram protocol
IDP = IPPROTO_IDP, /// Xerox NS protocol
IPV6 = IPPROTO_IPV6, /// internet protocol version 6
}
/**
* Protocol is a class for retrieving protocol information.
*/
class Protocol
{
ProtocolType type;
char[] name;
char[][] aliases;
ProtocolType type; /// These members are populated when one of the following functions are called without failure:
char[] name; /// ditto
char[][] aliases; /// ditto
void populate(protoent* proto)
@ -196,7 +216,7 @@ class Protocol
}
}
/** Returns false on failure */
bool getProtocolByName(char[] name)
{
protoent* proto;
@ -208,6 +228,7 @@ class Protocol
}
/** Returns false on failure */
// Same as getprotobynumber().
bool getProtocolByType(ProtocolType type)
{
@ -233,12 +254,16 @@ unittest
}
/**
* Service is a class for retrieving service information.
*/
class Service
{
/** These members are populated when one of the following functions are called without failure: */
char[] name;
char[][] aliases;
ushort port;
char[] protocolName;
char[][] aliases; /// ditto
ushort port; /// ditto
char[] protocolName; /// ditto
void populate(servent* serv)
@ -268,7 +293,10 @@ class Service
}
}
/**
* If a protocol name is omitted, any protocol will be matched.
* Returns: false on failure.
*/
bool getServiceByName(char[] name, char[] protocolName)
{
servent* serv;
@ -281,6 +309,7 @@ class Service
// Any protocol name will be matched.
/// ditto
bool getServiceByName(char[] name)
{
servent* serv;
@ -292,6 +321,7 @@ class Service
}
/// ditto
bool getServiceByPort(ushort port, char[] protocolName)
{
servent* serv;
@ -304,6 +334,7 @@ class Service
// Any protocol name will be matched.
/// ditto
bool getServiceByPort(ushort port)
{
servent* serv;
@ -335,9 +366,12 @@ unittest
}
/**
* Base exception thrown from an InternetHost.
*/
class HostException: Exception
{
int errorCode;
int errorCode; /// Platform-specific error code.
this(char[] msg, int err = 0)
@ -347,12 +381,15 @@ class HostException: Exception
}
}
/**
* InternetHost is a class for resolving IPv4 addresses.
*/
class InternetHost
{
/** These members are populated when one of the following functions are called without failure: */
char[] name;
char[][] aliases;
uint32_t[] addrList;
char[][] aliases; /// ditto
uint32_t[] addrList; /// ditto
void validHostent(hostent* he)
@ -410,7 +447,9 @@ class InternetHost
}
}
/**
* Resolve host name. Returns false if unable to resolve.
*/
bool getHostByName(char[] name)
{
hostent* he = gethostbyname(toStringz(name));
@ -422,6 +461,9 @@ class InternetHost
}
/**
* Resolve IPv4 address number. Returns false if unable to resolve.
*/
bool getHostByAddr(uint addr)
{
uint x = htonl(addr);
@ -434,7 +476,11 @@ class InternetHost
}
//shortcut
/**
* Same as previous, but addr is an IPv4 address string in the
* dotted-decimal form $(I a.b.c.d).
* Returns false if unable to resolve.
*/
bool getHostByAddr(char[] addr)
{
uint x = inet_addr(std.string.toStringz(addr));
@ -472,6 +518,9 @@ unittest
}
/**
* Base exception thrown from an Address.
*/
class AddressException: Exception
{
this(char[] msg)
@ -481,15 +530,20 @@ class AddressException: Exception
}
/**
* Address is an abstract class for representing a network addresses.
*/
abstract class Address
{
protected sockaddr* name();
protected int nameLen();
AddressFamily addressFamily();
char[] toString();
AddressFamily addressFamily(); /// Family of this address.
char[] toString(); /// Human readable string representing this address.
}
/**
*
*/
class UnknownAddress: Address
{
protected:
@ -522,6 +576,10 @@ class UnknownAddress: Address
}
/**
* InternetAddress is a class that represents an IPv4 (internet protocol version
* 4) address and port.
*/
class InternetAddress: Address
{
protected:
@ -546,31 +604,35 @@ class InternetAddress: Address
public:
const uint ADDR_ANY = INADDR_ANY;
const uint ADDR_NONE = INADDR_NONE;
const ushort PORT_ANY = 0;
const uint ADDR_ANY = INADDR_ANY; /// Any IPv4 address number.
const uint ADDR_NONE = INADDR_NONE; /// An invalid IPv4 address number.
const ushort PORT_ANY = 0; /// Any IPv4 port number.
/// Overridden to return AddressFamily.INET.
AddressFamily addressFamily()
{
return cast(AddressFamily)AddressFamily.INET;
}
/// Returns the IPv4 port number.
ushort port()
{
return ntohs(sin.sin_port);
}
/// Returns the IPv4 address number.
uint addr()
{
return ntohl(sin.sin_addr.s_addr);
}
//-port- can be PORT_ANY
//-addr- is an IP address or host name
/**
* Params:
* addr = an IPv4 address string in the dotted-decimal form a.b.c.d,
* or a host name that will be resolved using an InternetHost
* object.
* port = may be PORT_ANY as stated below.
*/
this(char[] addr, ushort port)
{
uint uiaddr = parse(addr);
@ -586,41 +648,48 @@ class InternetAddress: Address
sin.sin_port = htons(port);
}
/**
* Construct a new Address. addr may be ADDR_ANY (default) and port may
* be PORT_ANY, and the actual numbers may not be known until a connection
* is made.
*/
this(uint addr, ushort port)
{
sin.sin_addr.s_addr = htonl(addr);
sin.sin_port = htons(port);
}
/// ditto
this(ushort port)
{
sin.sin_addr.s_addr = 0; //any, "0.0.0.0"
sin.sin_port = htons(port);
}
/// Human readable string representing the IPv4 address in dotted-decimal form.
char[] toAddrString()
{
return std.string.toString(inet_ntoa(sin.sin_addr)).dup;
}
/// Human readable string representing the IPv4 port.
char[] toPortString()
{
return std.string.toString(port());
}
/// Human readable string representing the IPv4 address and port in the form $(I a.b.c.d:e).
char[] toString()
{
return toAddrString() ~ ":" ~ toPortString();
}
//-addr- is an IP address in the format "a.b.c.d"
//returns ADDR_NONE on failure
/**
* Parse an IPv4 address string in the dotted-decimal form $(I a.b.c.d)
* and return the number.
* If the string is not a legitimate IPv4 address,
* ADDR_NONE is returned.
*/
static uint parse(char[] addr)
{
return ntohl(inet_addr(std.string.toStringz(addr)));
@ -635,6 +704,7 @@ unittest
}
/** */
class SocketAcceptException: SocketException
{
this(char[] msg, int err = 0)
@ -643,30 +713,32 @@ class SocketAcceptException: SocketException
}
}
/// How a socket is shutdown:
enum SocketShutdown: int
{
RECEIVE = SD_RECEIVE,
SEND = SD_SEND,
BOTH = SD_RECEIVE,
RECEIVE = SD_RECEIVE, /// socket receives are disallowed
SEND = SD_SEND, /// socket sends are disallowed
BOTH = SD_RECEIVE, /// both RECEIVE and SEND
}
/// Flags may be OR'ed together:
enum SocketFlags: int
{
NONE = 0,
NONE = 0, /// no flags specified
OOB = MSG_OOB, //out of band
PEEK = MSG_PEEK, //only for receiving
DONTROUTE = MSG_DONTROUTE, //only for sending
OOB = MSG_OOB, /// out-of-band stream data
PEEK = MSG_PEEK, /// peek at incoming data without removing it from the queue, only for receiving
DONTROUTE = MSG_DONTROUTE, /// data should not be subject to routing; this flag may be ignored. Only for sending
}
/// Duration timeout value.
extern(C) struct timeval
{
// D interface
int seconds;
int microseconds;
int seconds; /// Number of seconds.
int microseconds; /// Number of additional microseconds.
// C interface
deprecated
@ -677,7 +749,7 @@ extern(C) struct timeval
}
//a set of sockets for Socket.select()
/// A collection of sockets for use with Socket.select.
class SocketSet
{
private:
@ -723,6 +795,8 @@ class SocketSet
public:
/// Set the maximum amount of sockets that may be added.
this(uint max)
{
version(Win32)
@ -740,13 +814,13 @@ class SocketSet
}
}
/// Uses the default maximum for the system.
this()
{
this(FD_SETSIZE);
}
/// Reset the SocketSet so that there are 0 Sockets in the collection.
void reset()
{
version(Win32)
@ -785,38 +859,38 @@ class SocketSet
}
}
/// Add a Socket to the collection. Adding more than the maximum has dangerous side affects.
void add(Socket s)
{
add(s.sock);
}
void remove(socket_t s)
{
FD_CLR(s, _fd_set);
}
/// Remove this Socket from the collection.
void remove(Socket s)
{
remove(s.sock);
}
int isSet(socket_t s)
{
return FD_ISSET(s, _fd_set);
}
/// Returns nonzero if this Socket is in the collection.
int isSet(Socket s)
{
return isSet(s.sock);
}
// Max sockets that can be added, like FD_SETSIZE.
// Return maximum amount of sockets that can be added, like FD_SETSIZE.
uint max()
{
version(Win32)
@ -854,28 +928,29 @@ class SocketSet
}
/// The level at which a socket option is defined:
enum SocketOptionLevel: int
{
SOCKET = SOL_SOCKET,
IP = ProtocolType.IP,
ICMP = ProtocolType.ICMP,
IGMP = ProtocolType.IGMP,
GGP = ProtocolType.GGP,
TCP = ProtocolType.TCP,
PUP = ProtocolType.PUP,
UDP = ProtocolType.UDP,
IDP = ProtocolType.IDP,
IPV6 = ProtocolType.IPV6,
SOCKET = SOL_SOCKET, /// socket level
IP = ProtocolType.IP, /// internet protocol version 4 level
ICMP = ProtocolType.ICMP, ///
IGMP = ProtocolType.IGMP, ///
GGP = ProtocolType.GGP, ///
TCP = ProtocolType.TCP, /// transmission control protocol level
PUP = ProtocolType.PUP, ///
UDP = ProtocolType.UDP, /// user datagram protocol level
IDP = ProtocolType.IDP, ///
IPV6 = ProtocolType.IPV6, /// internet protocol version 6 level
}
/// Linger information for use with SocketOption.LINGER.
extern(C) struct linger
{
// D interface
version(Win32)
{
uint16_t on;
uint16_t time;
uint16_t on; /// Nonzero for on.
uint16_t time; /// Linger time.
}
else version(BsdSockets)
{
@ -892,29 +967,34 @@ extern(C) struct linger
}
/// Specifies a socket option:
enum SocketOption: int
{
DEBUG = SO_DEBUG,
BROADCAST = SO_BROADCAST,
REUSEADDR = SO_REUSEADDR,
LINGER = SO_LINGER,
OOBINLINE = SO_OOBINLINE,
SNDBUF = SO_SNDBUF,
RCVBUF = SO_RCVBUF,
DONTROUTE = SO_DONTROUTE,
DEBUG = SO_DEBUG, /// record debugging information
BROADCAST = SO_BROADCAST, /// allow transmission of broadcast messages
REUSEADDR = SO_REUSEADDR, /// allow local reuse of address
LINGER = SO_LINGER, /// linger on close if unsent data is present
OOBINLINE = SO_OOBINLINE, /// receive out-of-band data in band
SNDBUF = SO_SNDBUF, /// send buffer size
RCVBUF = SO_RCVBUF, /// receive buffer size
DONTROUTE = SO_DONTROUTE, /// do not route
// SocketOptionLevel.TCP:
TCP_NODELAY = .TCP_NODELAY,
TCP_NODELAY = .TCP_NODELAY, /// disable the Nagle algorithm for send coalescing
// SocketOptionLevel.IPV6:
IPV6_UNICAST_HOPS = .IPV6_UNICAST_HOPS,
IPV6_MULTICAST_IF = .IPV6_MULTICAST_IF,
IPV6_MULTICAST_LOOP = .IPV6_MULTICAST_LOOP,
IPV6_JOIN_GROUP = .IPV6_JOIN_GROUP,
IPV6_LEAVE_GROUP = .IPV6_LEAVE_GROUP,
IPV6_UNICAST_HOPS = .IPV6_UNICAST_HOPS, ///
IPV6_MULTICAST_IF = .IPV6_MULTICAST_IF, ///
IPV6_MULTICAST_LOOP = .IPV6_MULTICAST_LOOP, ///
IPV6_JOIN_GROUP = .IPV6_JOIN_GROUP, ///
IPV6_LEAVE_GROUP = .IPV6_LEAVE_GROUP, ///
}
/**
* Socket is a class that creates a network communication endpoint using the
* Berkeley sockets interface.
*/
class Socket
{
private:
@ -922,7 +1002,7 @@ class Socket
AddressFamily _family;
version(Win32)
bool _blocking = false;
bool _blocking = false; /// Property to get or set whether the socket is blocking or nonblocking.
// For use with accepting().
@ -932,6 +1012,12 @@ class Socket
public:
/**
* Create a blocking socket. If a single protocol type exists to support
* this socket type within the address family, the ProtocolType may be
* omitted.
*/
this(AddressFamily af, SocketType type, ProtocolType protocol)
{
sock = cast(socket_t)socket(af, type, protocol);
@ -943,12 +1029,14 @@ class Socket
// A single protocol exists to support this socket type within the
// protocol family, so the ProtocolType is assumed.
/// ditto
this(AddressFamily af, SocketType type)
{
this(af, type, cast(ProtocolType)0); // Pseudo protocol number.
}
/// ditto
this(AddressFamily af, SocketType type, char[] protocolName)
{
protoent* proto;
@ -1013,26 +1101,31 @@ class Socket
}
/// Get the socket's address family.
AddressFamily addressFamily() // getter
{
return _family;
}
/// Property that indicates if this is a valid, alive socket.
bool isAlive() // getter
{
int type, typesize = type.sizeof;
return !getsockopt(sock, SOL_SOCKET, SO_TYPE, cast(char*)&type, &typesize);
}
/// Associate a local address with this socket.
void bind(Address addr)
{
if(_SOCKET_ERROR == .bind(sock, addr.name(), addr.nameLen()))
throw new SocketException("Unable to bind socket", _lasterr());
}
/**
* Establish a connection. If the socket is blocking, connect waits for
* the connection to be made. If the socket is nonblocking, connect
* returns immediately and the connection attempt is still in progress.
*/
void connect(Address to)
{
if(_SOCKET_ERROR == .connect(sock, to.name(), to.nameLen()))
@ -1061,15 +1154,23 @@ class Socket
}
}
//need to bind() first
/**
* Listen for an incoming connection. bind must be called before you can
* listen. The backlog is a request of how many pending incoming
* connections are queued until accept'ed.
*/
void listen(int backlog)
{
if(_SOCKET_ERROR == .listen(sock, backlog))
throw new SocketException("Unable to listen on socket", _lasterr());
}
/**
* Called by accept when a new Socket must be created for a new
* connection. To use a derived class, override this method and return an
* instance of your class. The returned Socket's handle must not be set;
* Socket has a protected constructor this() to use in this situation.
*/
// Override to use a derived class.
// The returned socket's handle must not be set.
protected Socket accepting()
@ -1077,7 +1178,11 @@ class Socket
return new Socket;
}
/**
* Accept an incoming connection. If the socket is blocking, accept
* waits for a connection request. Throws SocketAcceptException if unable
* to accept. See accepting for use with derived classes.
*/
Socket accept()
{
socket_t newsock;
@ -1107,7 +1212,7 @@ class Socket
return newSocket;
}
/// Disables sends and/or receives.
void shutdown(SocketShutdown how)
{
.shutdown(sock, cast(int)how);
@ -1127,6 +1232,11 @@ class Socket
}
/**
* Immediately drop any connections and release socket resources.
* Calling shutdown before close is recommended for connection-oriented
* sockets. The Socket object is no longer usable after close.
*/
//calling shutdown() before this is recommended
//for connection-oriented sockets
void close()
@ -1152,7 +1262,7 @@ class Socket
}
// Returns the local machine's host name. Idea from mango.
/// Returns the local machine's host name. Idea from mango.
static char[] hostName() // getter
{
char[256] result; // Host names are limited to 255 chars.
@ -1161,7 +1271,7 @@ class Socket
return std.string.toString(cast(char*)result).dup;
}
/// Remote endpoint Address.
Address remoteAddress()
{
Address addr = newFamilyObject();
@ -1172,7 +1282,7 @@ class Socket
return addr;
}
/// Local endpoint Address.
Address localAddress()
{
Address addr = newFamilyObject();
@ -1183,10 +1293,14 @@ class Socket
return addr;
}
/// Send or receive error code.
const int ERROR = _SOCKET_ERROR;
/**
* Send data on the connection. Returns the number of bytes actually
* sent, or ERROR on failure. If the socket is blocking and there is no
* buffer space left, send waits.
*/
//returns number of bytes actually sent, or -1 on error
int send(void[] buf, SocketFlags flags)
{
@ -1194,20 +1308,22 @@ class Socket
return sent;
}
/// ditto
int send(void[] buf)
{
return send(buf, SocketFlags.NONE);
}
/**
* Send data to a specific destination Address. If the destination address is not specified, a connection must have been made and that address is used. If the socket is blocking and there is no buffer space left, sendTo waits.
*/
int sendTo(void[] buf, SocketFlags flags, Address to)
{
int sent = .sendto(sock, buf, buf.length, cast(int)flags, to.name(), to.nameLen());
return sent;
}
/// ditto
int sendTo(void[] buf, Address to)
{
return sendTo(buf, SocketFlags.NONE, to);
@ -1215,6 +1331,7 @@ class Socket
//assumes you connect()ed
/// ditto
int sendTo(void[] buf, SocketFlags flags)
{
int sent = .sendto(sock, buf, buf.length, cast(int)flags, null, 0);
@ -1223,12 +1340,19 @@ class Socket
//assumes you connect()ed
/// ditto
int sendTo(void[] buf)
{
return sendTo(buf, SocketFlags.NONE);
}
/**
* Receive data on the connection. Returns the number of bytes actually
* received, 0 if the remote side has closed the connection, or ERROR on
* failure. If the socket is blocking, receive waits until there is data
* to be received.
*/
//returns number of bytes actually received, 0 on connection closure, or -1 on error
int receive(void[] buf, SocketFlags flags)
{
@ -1239,13 +1363,15 @@ class Socket
return read;
}
/// ditto
int receive(void[] buf)
{
return receive(buf, SocketFlags.NONE);
}
/**
* Receive data and get the remote endpoint Address. Returns the number of bytes actually received, 0 if the remote side has closed the connection, or ERROR on failure. If the socket is blocking, receiveFrom waits until there is data to be received.
*/
int receiveFrom(void[] buf, SocketFlags flags, out Address from)
{
if(!buf.length) //return 0 and don't think the connection closed
@ -1259,6 +1385,7 @@ class Socket
}
/// ditto
int receiveFrom(void[] buf, out Address from)
{
return receiveFrom(buf, SocketFlags.NONE, from);
@ -1266,6 +1393,7 @@ class Socket
//assumes you connect()ed
/// ditto
int receiveFrom(void[] buf, SocketFlags flags)
{
if(!buf.length) //return 0 and don't think the connection closed
@ -1277,12 +1405,14 @@ class Socket
//assumes you connect()ed
/// ditto
int receiveFrom(void[] buf)
{
return receiveFrom(buf, SocketFlags.NONE);
}
/// Get a socket option. Returns the number of bytes written to result.
//returns the length, in bytes, of the actual result - very different from getsockopt()
int getOption(SocketOptionLevel level, SocketOption option, void[] result)
{
@ -1293,20 +1423,21 @@ class Socket
}
// Common case for integer and boolean options.
/// Common case of getting integer and boolean options.
int getOption(SocketOptionLevel level, SocketOption option, out int32_t result)
{
return getOption(level, option, (&result)[0 .. 1]);
}
/// Get the linger option.
int getOption(SocketOptionLevel level, SocketOption option, out linger result)
{
//return getOption(cast(SocketOptionLevel)SocketOptionLevel.SOCKET, SocketOption.LINGER, (&result)[0 .. 1]);
return getOption(level, option, (&result)[0 .. 1]);
}
// Set a socket option.
void setOption(SocketOptionLevel level, SocketOption option, void[] value)
{
if(_SOCKET_ERROR == .setsockopt(sock, cast(int)level, cast(int)option, value, value.length))
@ -1314,13 +1445,14 @@ class Socket
}
// Common case for integer and boolean options.
/// Common case for setting integer and boolean options.
void setOption(SocketOptionLevel level, SocketOption option, int32_t value)
{
setOption(level, option, (&value)[0 .. 1]);
}
/// Set the linger option.
void setOption(SocketOptionLevel level, SocketOption option, linger value)
{
//setOption(cast(SocketOptionLevel)SocketOptionLevel.SOCKET, SocketOption.LINGER, (&value)[0 .. 1]);
@ -1328,6 +1460,9 @@ class Socket
}
/**
* Wait for a socket to change status. A wait timeout timeval or int microseconds may be specified; if a timeout is not specified or the timeval is null, the maximum timeout is used. The timeval timeout has an unspecified value when select returns. Returns the number of sockets with status changes, 0 on timeout, or -1 on interruption. If the return value is greater than 0, the SocketSets are updated to only contain the sockets having status changes. For a connecting socket, a write status change means the connection is established and it's able to send. For a listening socket, a read status change means there is an incoming connection request and it's able to accept.
*/
//SocketSet's updated to include only those sockets which an event occured
//returns the number of events, 0 on timeout, or -1 on interruption
//for a connect()ing socket, writeability means connected
@ -1422,6 +1557,7 @@ class Socket
}
/// ditto
static int select(SocketSet checkRead, SocketSet checkWrite, SocketSet checkError, int microseconds)
{
timeval tv;
@ -1431,6 +1567,7 @@ class Socket
}
/// ditto
//maximum timeout
static int select(SocketSet checkRead, SocketSet checkWrite, SocketSet checkError)
{
@ -1448,14 +1585,16 @@ class Socket
}
/// TcpSocket is a shortcut class for a TCP Socket.
class TcpSocket: Socket
{
/// Constructs a blocking TCP Socket.
this(AddressFamily family)
{
super(family, SocketType.STREAM, ProtocolType.TCP);
}
/// Constructs a blocking TCP Socket.
this()
{
this(cast(AddressFamily)AddressFamily.INET);
@ -1463,6 +1602,7 @@ class TcpSocket: Socket
//shortcut
/// Constructs a blocking TCP Socket and connects to an InternetAddress.
this(Address connectTo)
{
this(connectTo.addressFamily());
@ -1471,14 +1611,17 @@ class TcpSocket: Socket
}
/// UdpSocket is a shortcut class for a UDP Socket.
class UdpSocket: Socket
{
/// Constructs a blocking UDP Socket.
this(AddressFamily family)
{
super(family, SocketType.DGRAM, ProtocolType.UDP);
}
/// Constructs a blocking UDP Socket.
this()
{
this(cast(AddressFamily)AddressFamily.INET);

100
std/string.d
View file

@ -102,9 +102,8 @@ long atoi(char[] s)
real atof(char[] s)
{ char* endptr;
real result;
result = strtold(toStringz(s), &endptr);
auto result = strtold(toStringz(s), &endptr);
return result;
}
@ -120,7 +119,7 @@ real atof(char[] s)
int cmp(char[] s1, char[] s2)
{
size_t len = s1.length;
auto len = s1.length;
int result;
//printf("cmp('%.*s', '%.*s')\n", s1, s2);
@ -138,7 +137,7 @@ int cmp(char[] s1, char[] s2)
int icmp(char[] s1, char[] s2)
{
size_t len = s1.length;
auto len = s1.length;
int result;
if (s2.length < len)
@ -272,11 +271,9 @@ unittest
int find(char[] s, dchar c)
{
char* p;
if (c <= 0x7F)
{ // Plain old ASCII
p = cast(char*)memchr(s, c, s.length);
auto p = cast(char*)memchr(s, c, s.length);
if (p)
return p - cast(char *)s;
else
@ -502,17 +499,17 @@ int find(char[] s, char[] sub)
}
body
{
size_t sublength = sub.length;
auto sublength = sub.length;
if (sublength == 0)
return 0;
if (s.length >= sublength)
{
char c = sub[0];
auto c = sub[0];
if (sublength == 1)
{
char *p = cast(char*)memchr(s, c, s.length);
auto p = cast(char*)memchr(s, c, s.length);
if (p)
return p - &s[0];
}
@ -577,7 +574,7 @@ int ifind(char[] s, char[] sub)
}
body
{
size_t sublength = sub.length;
auto sublength = sub.length;
int i;
if (sublength == 0)
@ -586,7 +583,7 @@ int ifind(char[] s, char[] sub)
if (s.length < sublength)
return -1;
char c = sub[0];
auto c = sub[0];
if (sublength == 1)
{
i = ifind(s, c);
@ -600,7 +597,7 @@ int ifind(char[] s, char[] sub)
for (i = 0; i < imax; i++)
{
int j = ifind(s[i .. imax], c);
auto j = ifind(s[i .. imax], c);
if (j == -1)
return -1;
i += j;
@ -817,7 +814,7 @@ char[] tolower(char[] s)
changed = 0;
for (i = 0; i < s.length; i++)
{
char c = s[i];
auto c = s[i];
if ('A' <= c && c <= 'Z')
{
if (!changed)
@ -872,7 +869,7 @@ char[] toupper(char[] s)
changed = 0;
for (i = 0; i < s.length; i++)
{
char c = s[i];
auto c = s[i];
if ('a' <= c && c <= 'z')
{
if (!changed)
@ -989,12 +986,10 @@ unittest
char[] capwords(char[] s)
{
char[] r;
int inword;
int i;
int istart;
bool inword = false;
size_t istart = 0;
size_t i;
istart = 0;
inword = 0;
for (i = 0; i < s.length; i++)
{
switch (s[i])
@ -1008,7 +1003,7 @@ char[] capwords(char[] s)
if (inword)
{
r ~= capitalize(s[istart .. i]);
inword = 0;
inword = false;
}
break;
@ -1018,7 +1013,7 @@ char[] capwords(char[] s)
if (r.length)
r ~= ' ';
istart = i;
inword = 1;
inword = true;
}
break;
}
@ -1058,7 +1053,7 @@ char[] repeat(char[] s, size_t n)
if (s.length == 1)
r[] = s[0];
else
{ size_t len = s.length;
{ auto len = s.length;
for (size_t i = 0; i < n * len; i += len)
{
@ -1095,23 +1090,22 @@ unittest
char[] join(char[][] words, char[] sep)
{
size_t len;
uint seplen;
uint i;
uint j;
char[] result;
if (words.length)
{
len = 0;
size_t len = 0;
size_t i;
for (i = 0; i < words.length; i++)
len += words[i].length;
seplen = sep.length;
auto seplen = sep.length;
len += (words.length - 1) * seplen;
result = new char[len];
size_t j;
i = 0;
while (true)
{
@ -1157,12 +1151,11 @@ unittest
char[][] split(char[] s)
{
uint i;
uint istart;
int inword;
size_t i;
size_t istart = 0;
bool inword = false;
char[][] words;
inword = 0;
for (i = 0; i < s.length; i++)
{
switch (s[i])
@ -1176,14 +1169,14 @@ char[][] split(char[] s)
if (inword)
{
words ~= s[istart .. i];
inword = 0;
inword = false;
}
break;
default:
if (!inword)
{ istart = i;
inword = 1;
inword = true;
}
break;
}
@ -1224,8 +1217,8 @@ char[][] split(char[] s, char[] delim)
}
body
{
uint i;
uint j;
size_t i;
size_t j;
char[][] words;
i = 0;
@ -1233,7 +1226,7 @@ char[][] split(char[] s, char[] delim)
{
if (delim.length == 1)
{ char c = delim[0];
uint nwords = 0;
size_t nwords = 0;
char* p = &s[0];
char* pend = p + s.length;
@ -1274,7 +1267,7 @@ char[][] split(char[] s, char[] delim)
assert(wordi + 1 == nwords);
}
else
{ uint nwords = 0;
{ size_t nwords = 0;
while (true)
{
@ -1522,10 +1515,10 @@ unittest
char[] chomp(char[] s, char[] delimiter = null)
{
if (delimiter is null)
{ size_t len = s.length;
{ auto len = s.length;
if (len)
{ char c = s[len - 1];
{ auto c = s[len - 1];
if (c == '\r') // if ends in CR
len--;
@ -1589,7 +1582,7 @@ unittest
*/
char[] chop(char[] s)
{ size_t len = s.length;
{ auto len = s.length;
if (len)
{
@ -1713,7 +1706,7 @@ char[] replace(char[] s, char[] from, char[] to)
{
char[] p;
int i;
int istart;
size_t istart;
//printf("replace('%.*s','%.*s','%.*s')\n", s, from, to);
if (from.length == 0)
@ -2457,7 +2450,7 @@ char[] toString(double d)
char[20] buffer;
sprintf(buffer, "%g", d);
return toString(buffer).dup;
return std.string.toString(buffer).dup;
}
/// ditto
@ -2466,7 +2459,7 @@ char[] toString(real r)
char[20] buffer;
sprintf(buffer, "%Lg", r);
return toString(buffer).dup;
return std.string.toString(buffer).dup;
}
/// ditto
@ -2478,7 +2471,7 @@ char[] toString(idouble d)
char[21] buffer;
sprintf(buffer, "%gi", d);
return toString(buffer).dup;
return std.string.toString(buffer).dup;
}
/// ditto
@ -2487,7 +2480,7 @@ char[] toString(ireal r)
char[21] buffer;
sprintf(buffer, "%Lgi", r);
return toString(buffer).dup;
return std.string.toString(buffer).dup;
}
/// ditto
@ -2499,7 +2492,7 @@ char[] toString(cdouble d)
char[20 + 1 + 20 + 1] buffer;
sprintf(buffer, "%g+%gi", d.re, d.im);
return toString(buffer).dup;
return std.string.toString(buffer).dup;
}
/// ditto
@ -2508,9 +2501,10 @@ char[] toString(creal r)
char[20 + 1 + 20 + 1] buffer;
sprintf(buffer, "%Lg+%Lgi", r.re, r.im);
return toString(buffer).dup;
return std.string.toString(buffer).dup;
}
/******************************************
* Convert value to string in _radix radix.
*
@ -2903,13 +2897,13 @@ char[] squeeze(char[] s, char[] pattern = null)
dchar lastc;
size_t lasti;
int run;
int changed;
bool changed;
foreach (size_t i, dchar c; s)
{
if (run && lastc == c)
{
changed = 1;
changed = true;
}
else if (pattern is null || inPattern(c, pattern))
{
@ -3770,9 +3764,9 @@ unittest
* leftmost column, which is numbered starting from 0.
*/
int column(char[] string, int tabsize = 8)
size_t column(char[] string, int tabsize = 8)
{
int column;
size_t column;
foreach (dchar c; string)
{

13
std/system.d
View file

@ -1,10 +1,12 @@
/**
* Information about the target operating system, environment, and CPU
* Authors: Walter Bright, www.digitalmars.com
* License: Public Domain
* Macros:
* WIKI = Phobos/StdSystem
*/
// Information about the target operating system, environment, and CPU
module std.system;
@ -44,12 +46,17 @@ const
RedHatLinux,
}
// Big-endian or Little-endian?
/// Byte order endiannes
enum Endian { BigEndian, LittleEndian }
enum Endian
{
BigEndian, /// big endian byte order
LittleEndian /// little endian byte order
}
version(LittleEndian)
{
/// Native system endiannes
Endian endian = Endian.LittleEndian;
}
else

87
std/thread.d
View file

@ -50,11 +50,17 @@ extern (C)
stdfp start_addr, void* arglist, uint initflag,
thread_id* thrdaddr);
// This is equivalent to a HANDLE from windows.d
/**
* The type of the thread handle used by the operating system.
* For Windows, it is equivalent to a HANDLE from windows.d.
*/
alias HANDLE thread_hdl;
alias uint thread_id;
/**
* Thrown for errors.
*/
class ThreadError : Error
{
this(char[] s)
@ -63,27 +69,48 @@ class ThreadError : Error
}
}
/**
* One of these is created for each thread.
*/
class Thread
{
/**
* Constructor used by classes derived from Thread that override main().
*/
this()
{
}
/**
* Constructor used by classes derived from Thread that override run().
*/
this(int (*fp)(void *), void *arg)
{
this.fp = fp;
this.arg = arg;
}
/**
* Constructor used by classes derived from Thread that override run().
*/
this(int delegate() dg)
{
this.dg = dg;
}
/**
* The handle to this thread assigned by the operating system. This is set
* to thread_id.init if the thread hasn't been started yet.
*/
thread_hdl hdl;
thread_id id;
void* stackBottom;
/**
* Create a new thread and start it running. The new thread initializes
* itself and then calls run(). start() can only be called once.
*/
void start()
{
if (state != TS.INITIAL)
@ -116,6 +143,12 @@ class Thread
}
}
/**
* Entry point for a thread. If not overridden, it calls the function
* pointer fp and argument arg passed in the constructor, or the delegate
* dg.
* Returns: the thread exit code, which is normally 0.
*/
int run()
{
if (fp)
@ -159,26 +192,39 @@ class Thread
}
}
/**
* The state of a thread.
*/
enum TS
{
INITIAL,
RUNNING,
TERMINATED
INITIAL, /// The thread hasn't been started yet.
RUNNING, /// The thread is running or paused.
TERMINATED /// The thread has ended.
}
/**
* Returns the state of a thread.
*/
TS getState()
{
return state;
}
/**
* The priority of a thread.
*/
enum PRIORITY
{
INCREASE,
DECREASE,
IDLE,
CRITICAL
INCREASE, /// Increase thread priority
DECREASE, /// Decrease thread priority
IDLE, /// Assign thread low priority
CRITICAL /// Assign thread high priority
}
/**
* Adjust the priority of this thread.
* Throws: ThreadError if cannot set priority
*/
void setPriority(PRIORITY p)
{
int nPriority;
@ -203,6 +249,10 @@ class Thread
error("set priority");
}
/**
* Returns a reference to the Thread for the thread that called the
* function.
*/
static Thread getThis()
{
thread_id id;
@ -226,23 +276,35 @@ class Thread
return result;
}
/**
* Returns an array of all the threads currently running.
*/
static Thread[] getAll()
{
return allThreads[0 .. allThreadsDim];
}
/**
* Suspend execution of this thread.
*/
void pause()
{
if (state != TS.RUNNING || SuspendThread(hdl) == 0xFFFFFFFF)
error("cannot pause");
}
/**
* Resume execution of this thread.
*/
void resume()
{
if (state != TS.RUNNING || ResumeThread(hdl) == 0xFFFFFFFF)
error("cannot resume");
}
/**
* Suspend execution of all threads but this thread.
*/
static void pauseAll()
{
if (nthreads > 1)
@ -259,6 +321,9 @@ class Thread
}
}
/**
* Resume execution of all paused threads.
*/
static void resumeAll()
{
if (nthreads > 1)
@ -275,11 +340,17 @@ class Thread
}
}
/**
* Give up the remainder of this thread's time slice.
*/
static void yield()
{
Sleep(0);
}
/**
*
*/
static uint nthreads = 1;
private:

2
std/typeinfo/ti_AC.d
View file

@ -1,7 +1,5 @@
module std.typeinfo.ti_AC;
private import std.string;
// Object[]
class TypeInfo_AC : TypeInfo

1
std/typeinfo/ti_Acdouble.d
View file

@ -23,7 +23,6 @@
module std.typeinfo.ti_Acdouble;
private import std.string;
private import std.typeinfo.ti_cdouble;
// cdouble[]

1
std/typeinfo/ti_Acfloat.d
View file

@ -23,7 +23,6 @@
module std.typeinfo.ti_Acfloat;
private import std.string;
private import std.typeinfo.ti_cfloat;
// cfloat[]

1
std/typeinfo/ti_Acreal.d
View file

@ -23,7 +23,6 @@
module std.typeinfo.ti_Acreal;
private import std.string;
private import std.typeinfo.ti_creal;
// creal[]

1
std/typeinfo/ti_Adouble.d
View file

@ -23,7 +23,6 @@
module std.typeinfo.ti_Adouble;
private import std.string;
private import std.typeinfo.ti_double;
// double[]

1
std/typeinfo/ti_Afloat.d
View file

@ -23,7 +23,6 @@
module std.typeinfo.ti_Afloat;
private import std.string;
private import std.typeinfo.ti_float;
// float[]

1
std/typeinfo/ti_Ag.d
View file

@ -1,7 +1,6 @@
module std.typeinfo.ti_Ag;
private import std.string;
private import std.c.string;
// byte[]

1
std/typeinfo/ti_Areal.d
View file

@ -23,7 +23,6 @@
module std.typeinfo.ti_Areal;
private import std.string;
private import std.typeinfo.ti_real;
// real[]

1
std/typeinfo/ti_Ashort.d
View file

@ -1,7 +1,6 @@
module std.typeinfo.ti_Ashort;
private import std.string;
private import std.c.string;
// short[]

2
std/typeinfo/ti_Aubyte.d
View file

@ -1,8 +1,8 @@
module std.typeinfo.ti_Aubyte;
private import std.c.string;
private import std.string;
private import std.c.string;
// ubyte[]

1
std/typeinfo/ti_Aushort.d
View file

@ -2,7 +2,6 @@
module std.typeinfo.ti_Aushort;
private import std.c.string;
private import std.string;
// ushort[]

2
std/typeinfo/ti_C.d
View file

@ -23,8 +23,6 @@
module std.typeinfo.ti_C;
private import std.string;
// Object
class TypeInfo_C : TypeInfo

33
std/uni.d
View file

@ -1,6 +1,26 @@
/*
* Placed into the Public Domain.
* Digital Mars, www.digitalmars.com
* Written by Walter Bright
*/
/**
* Simple Unicode character classification functions.
* For ASCII classification, see $(LINK2 std_ctype.html, std.ctype).
* Macros:
* WIKI=Phobos/StdUni
* References:
* $(LINK2 http://www.digitalmars.com/d/ascii-table.html, ASCII Table),
* $(LINK2 http://en.wikipedia.org/wiki/Unicode, Wikipedia),
* $(LINK2 http://www.unicode.org, The Unicode Consortium)
*/
module std.uni;
/**
* Returns !=0 if c is a Unicode lower case character.
*/
int isUniLower(dchar c)
{
if (c <= 0x7F)
@ -9,6 +29,9 @@ int isUniLower(dchar c)
return isUniAlpha(c) && c == toUniLower(c);
}
/**
* Returns !=0 if c is a Unicode upper case character.
*/
int isUniUpper(dchar c)
{
if (c <= 0x7F)
@ -17,6 +40,10 @@ int isUniUpper(dchar c)
return isUniAlpha(c) && c == toUniUpper(c);
}
/**
* If c is a Unicode upper case character, return the lower case
* equivalent, otherwise return c.
*/
dchar toUniLower(dchar c)
{
if (c >= 'A' && c <= 'Z')
@ -79,6 +106,10 @@ dchar toUniLower(dchar c)
return c;
}
/**
* If c is a Unicode lower case character, return the upper case
* equivalent, otherwise return c.
*/
dchar toUniUpper(dchar c)
{
if (c >= 'a' && c <= 'z')
@ -143,7 +174,7 @@ dchar toUniUpper(dchar c)
/*******************************
* Return !=0 if unicode alpha.
* Return !=0 if u is a Unicode alpha character.
*/
int isUniAlpha(dchar u)