projects/ldc: dmd2/root/root.c annotate

annotate dmd2/root/root.c @ 1460:a1666b613c15

* Fix some gcc warnings in the D2 frontend code. * Remove binaries from `dmd2/`

author	Frits van Bommel <fvbommel wxs.nl>
date	Tue, 02 Jun 2009 19:18:48 +0200
parents	638d16625da2
children	e4f7b5d9c68a

rev	line source
1452 638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	2 // Copyright (c) 1999-2009 by Digital Mars
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	3 // All Rights Reserved
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	4 // written by Walter Bright
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	5 // www.digitalmars.com
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	6 // License for redistribution is by either the Artistic License
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	7 // in artistic.txt, or the GNU General Public License in gnu.txt.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	8 // See the included readme.txt for details.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	9
1460 a1666b613c15 * Fix some gcc warnings in the D2 frontend code. Frits van Bommel <fvbommel wxs.nl> parents: 1452 diff changeset	10 #ifndef POSIX
1452 638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	11 #define POSIX (linux \|\| __APPLE__ \|\| __FreeBSD__ \|\| __sun&&__SVR4)
1460 a1666b613c15 * Fix some gcc warnings in the D2 frontend code. Frits van Bommel <fvbommel wxs.nl> parents: 1452 diff changeset	12 #endif
1452 638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	13
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	14 #include <stdio.h>
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	15 #include <stdlib.h>
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	16 #include <stdarg.h>
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	17 #include <string.h>
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	18 #include <stdint.h>
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	19 #include <assert.h>
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	20
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	21 #if (defined (__SVR4) && defined (__sun))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	22 #include <alloca.h>
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	23 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	24
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	25 #if _MSC_VER \|\|__MINGW32__
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	26 #include <malloc.h>
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	27 #include <string>
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	28 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	29
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	30 #if _WIN32
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	31 #include <windows.h>
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	32 #include <direct.h>
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	33 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	34
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	35 #if POSIX
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	36 #include <sys/types.h>
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	37 #include <sys/stat.h>
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	38 #include <fcntl.h>
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	39 #include <errno.h>
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	40 #include <unistd.h>
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	41 #include <utime.h>
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	42 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	43
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	44 #include "port.h"
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	45 #include "root.h"
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	46 #include "dchar.h"
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	47 #include "rmem.h"
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	48
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	49 #if 0 //__SC__ //def DEBUG
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	50 extern "C" void __cdecl _assert(void e, void f, unsigned line)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	51 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	52 printf("Assert('%s','%s',%d)\n",e,f,line);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	53 fflush(stdout);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	54 (char )0 = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	55 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	56 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	57
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	58
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	59 /*************************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	60 * Convert wchar string to ascii string.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	61 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	62
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	63 char wchar2ascii(wchar_t us)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	64 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	65 return wchar2ascii(us, wcslen(us));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	66 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	67
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	68 char wchar2ascii(wchar_t us, unsigned len)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	69 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	70 unsigned i;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	71 char *p;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	72
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	73 p = (char *)mem.malloc(len + 1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	74 for (i = 0; i <= len; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	75 p[i] = (char) us[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	76 return p;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	77 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	78
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	79 int wcharIsAscii(wchar_t *us)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	80 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	81 return wcharIsAscii(us, wcslen(us));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	82 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	83
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	84 int wcharIsAscii(wchar_t *us, unsigned len)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	85 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	86 unsigned i;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	87
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	88 for (i = 0; i <= len; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	89 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	90 if (us[i] & ~0xFF) // if high bits set
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	91 return 0; // it's not ascii
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	92 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	93 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	94 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	95
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	96
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	97 /***********************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	98 * Compare length-prefixed strings (bstr).
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	99 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	100
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	101 int bstrcmp(unsigned char b1, unsigned char b2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	102 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	103 return (b1 == b2 && memcmp(b1 + 1, b2 + 1, *b2) == 0) ? 0 : 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	104 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	105
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	106 /***************************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	107 * Convert bstr into a malloc'd string.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	108 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	109
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	110 char bstr2str(unsigned char b)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	111 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	112 char *s;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	113 unsigned len;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	114
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	115 len = *b;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	116 s = (char *) mem.malloc(len + 1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	117 s[len] = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	118 return (char *)memcpy(s,b + 1,len);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	119 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	120
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	121 /**************************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	122 * Print error message and exit.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	123 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	124
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	125 void error(const char *format, ...)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	126 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	127 va_list ap;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	128
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	129 va_start(ap, format);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	130 printf("Error: ");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	131 vprintf(format, ap);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	132 va_end( ap );
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	133 printf("\n");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	134 fflush(stdout);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	135
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	136 exit(EXIT_FAILURE);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	137 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	138
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	139 #if M_UNICODE
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	140 void error(const dchar *format, ...)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	141 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	142 va_list ap;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	143
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	144 va_start(ap, format);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	145 printf("Error: ");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	146 vwprintf(format, ap);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	147 va_end( ap );
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	148 printf("\n");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	149 fflush(stdout);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	150
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	151 exit(EXIT_FAILURE);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	152 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	153 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	154
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	155 void error_mem()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	156 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	157 error("out of memory");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	158 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	159
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	160 /**************************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	161 * Print warning message.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	162 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	163
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	164 void warning(const char *format, ...)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	165 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	166 va_list ap;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	167
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	168 va_start(ap, format);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	169 printf("Warning: ");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	170 vprintf(format, ap);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	171 va_end( ap );
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	172 printf("\n");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	173 fflush(stdout);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	174 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	175
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	176 /**************************** Object ******************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	177
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	178 int Object::equals(Object *o)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	179 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	180 return o == this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	181 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	182
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	183 hash_t Object::hashCode()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	184 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	185 return (hash_t) this;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	186 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	187
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	188 int Object::compare(Object *obj)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	189 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	190 return this - obj;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	191 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	192
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	193 void Object::print()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	194 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	195 printf("%s %p\n", toChars(), this);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	196 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	197
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	198 char *Object::toChars()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	199 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	200 return (char *)"Object";
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	201 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	202
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	203 dchar *Object::toDchars()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	204 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	205 #if M_UNICODE
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	206 return L"Object";
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	207 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	208 return toChars();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	209 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	210 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	211
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	212 int Object::dyncast()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	213 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	214 return 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	215 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	216
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	217 void Object::toBuffer(OutBuffer *b)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	218 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	219 b->writestring("Object");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	220 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	221
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	222 void Object::mark()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	223 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	224 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	225
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	226 /**************************** String ******************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	227
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	228 String::String(char *str, int ref)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	229 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	230 this->str = ref ? str : mem.strdup(str);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	231 this->ref = ref;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	232 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	233
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	234 String::~String()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	235 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	236 mem.free(str);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	237 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	238
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	239 void String::mark()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	240 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	241 mem.mark(str);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	242 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	243
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	244 hash_t String::calcHash(const char *str, size_t len)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	245 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	246 hash_t hash = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	247
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	248 for (;;)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	249 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	250 switch (len)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	251 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	252 case 0:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	253 return hash;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	254
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	255 case 1:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	256 hash *= 37;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	257 hash += (uint8_t )str;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	258 return hash;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	259
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	260 case 2:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	261 hash *= 37;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	262 hash += (uint16_t )str;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	263 return hash;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	264
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	265 case 3:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	266 hash *= 37;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	267 hash += ((uint16_t )str << 8) +
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	268 ((uint8_t *)str)[2];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	269 return hash;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	270
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	271 default:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	272 hash *= 37;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	273 hash += (uint32_t )str;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	274 str += 4;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	275 len -= 4;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	276 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	277 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	278 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	279 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	280
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	281 hash_t String::calcHash(const char *str)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	282 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	283 return calcHash(str, strlen(str));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	284 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	285
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	286 hash_t String::hashCode()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	287 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	288 return calcHash(str, strlen(str));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	289 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	290
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	291 unsigned String::len()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	292 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	293 return strlen(str);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	294 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	295
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	296 int String::equals(Object *obj)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	297 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	298 return strcmp(str,((String *)obj)->str) == 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	299 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	300
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	301 int String::compare(Object *obj)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	302 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	303 return strcmp(str,((String *)obj)->str);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	304 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	305
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	306 char *String::toChars()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	307 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	308 return str;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	309 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	310
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	311 void String::print()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	312 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	313 printf("String '%s'\n",str);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	314 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	315
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	316
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	317 /**************************** FileName ******************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	318
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	319 FileName::FileName(char *str, int ref)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	320 : String(str,ref)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	321 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	322 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	323
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	324 char FileName::combine(const char path, const char *name)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	325 { char *f;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	326 size_t pathlen;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	327 size_t namelen;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	328
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	329 if (!path \|\| !*path)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	330 return (char *)name;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	331 pathlen = strlen(path);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	332 namelen = strlen(name);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	333 f = (char *)mem.malloc(pathlen + 1 + namelen + 1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	334 memcpy(f, path, pathlen);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	335 #if POSIX
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	336 if (path[pathlen - 1] != '/')
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	337 { f[pathlen] = '/';
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	338 pathlen++;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	339 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	340 #elif _WIN32
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	341 if (path[pathlen - 1] != '\\' &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	342 path[pathlen - 1] != '/' &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	343 path[pathlen - 1] != ':')
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	344 { f[pathlen] = '\\';
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	345 pathlen++;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	346 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	347 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	348 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	349 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	350 memcpy(f + pathlen, name, namelen + 1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	351 return f;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	352 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	353
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	354 FileName::FileName(char path, char name)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	355 : String(combine(path,name),1)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	356 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	357 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	358
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	359 // Split a path into an Array of paths
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	360 Array FileName::splitPath(const char path)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	361 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	362 char c = 0; // unnecessary initializer is for VC /W4
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	363 const char *p;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	364 OutBuffer buf;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	365 Array *array;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	366
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	367 array = new Array();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	368 if (path)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	369 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	370 p = path;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	371 do
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	372 { char instring = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	373
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	374 while (isspace(*p)) // skip leading whitespace
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	375 p++;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	376 buf.reserve(strlen(p) + 1); // guess size of path
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	377 for (; ; p++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	378 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	379 c = *p;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	380 switch (c)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	381 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	382 case '"':
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	383 instring ^= 1; // toggle inside/outside of string
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	384 continue;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	385
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	386 #if MACINTOSH
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	387 case ',':
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	388 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	389 #if _WIN32
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	390 case ';':
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	391 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	392 #if POSIX
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	393 case ':':
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	394 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	395 p++;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	396 break; // note that ; cannot appear as part
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	397 // of a path, quotes won't protect it
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	398
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	399 case 0x1A: // ^Z means end of file
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	400 case 0:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	401 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	402
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	403 case '\r':
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	404 continue; // ignore carriage returns
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	405
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	406 #if POSIX
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	407 case '~':
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	408 buf.writestring(getenv("HOME"));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	409 continue;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	410 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	411
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	412 case ' ':
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	413 case '\t': // tabs in filenames?
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	414 if (!instring) // if not in string
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	415 break; // treat as end of path
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	416 default:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	417 buf.writeByte(c);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	418 continue;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	419 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	420 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	421 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	422 if (buf.offset) // if path is not empty
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	423 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	424 buf.writeByte(0); // to asciiz
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	425 array->push(buf.extractData());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	426 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	427 } while (c);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	428 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	429 return array;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	430 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	431
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	432 hash_t FileName::hashCode()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	433 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	434 #if _WIN32
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	435 // We need a different hashCode because it must be case-insensitive
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	436 size_t len = strlen(str);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	437 hash_t hash = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	438 unsigned char s = (unsigned char )str;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	439
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	440 for (;;)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	441 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	442 switch (len)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	443 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	444 case 0:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	445 return hash;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	446
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	447 case 1:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	448 hash *= 37;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	449 hash += (uint8_t )s \| 0x20;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	450 return hash;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	451
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	452 case 2:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	453 hash *= 37;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	454 hash += (uint16_t )s \| 0x2020;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	455 return hash;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	456
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	457 case 3:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	458 hash *= 37;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	459 hash += (((uint16_t )s << 8) +
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	460 ((uint8_t *)s)[2]) \| 0x202020;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	461 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	462
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	463 default:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	464 hash *= 37;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	465 hash += (uint32_t )s \| 0x20202020;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	466 s += 4;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	467 len -= 4;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	468 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	469 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	470 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	471 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	472 // darwin HFS is case insensitive, though...
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	473 return String::hashCode();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	474 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	475 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	476
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	477 int FileName::compare(Object *obj)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	478 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	479 return compare(str, ((FileName *)obj)->str);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	480 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	481
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	482 int FileName::compare(const char name1, const char name2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	483 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	484 #if _WIN32
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	485 return stricmp(name1, name2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	486 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	487 return strcmp(name1, name2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	488 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	489 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	490
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	491 int FileName::equals(Object *obj)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	492 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	493 return compare(obj) == 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	494 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	495
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	496 int FileName::equals(const char name1, const char name2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	497 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	498 return compare(name1, name2) == 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	499 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	500
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	501 /************************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	502 * Return !=0 if absolute path name.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	503 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	504
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	505 int FileName::absolute(const char *name)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	506 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	507 #if _WIN32
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	508 return (*name == '\\') \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	509 (*name == '/') \|\|
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	510 (*name && name[1] == ':');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	511 #elif POSIX
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	512 return (*name == '/');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	513 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	514 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	515 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	516 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	517
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	518 /********************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	519 * Return filename extension (read-only).
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	520 * Points past '.' of extension.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	521 * If there isn't one, return NULL.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	522 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	523
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	524 char FileName::ext(const char str)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	525 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	526 char *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	527 size_t len = strlen(str);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	528
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	529 e = (char *)str + len;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	530 for (;;)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	531 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	532 switch (*e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	533 { case '.':
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	534 return e + 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	535 #if POSIX
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	536 case '/':
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	537 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	538 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	539 #if _WIN32
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	540 case '\\':
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	541 case ':':
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	542 case '/':
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	543 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	544 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	545 default:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	546 if (e == str)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	547 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	548 e--;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	549 continue;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	550 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	551 return NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	552 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	553 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	554
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	555 char *FileName::ext()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	556 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	557 return ext(str);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	558 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	559
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	560 /********************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	561 * Return mem.malloc'd filename with extension removed.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	562 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	563
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	564 char FileName::removeExt(const char str)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	565 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	566 const char *e = ext(str);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	567 if (e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	568 { size_t len = (e - str) - 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	569 char n = (char )mem.malloc(len + 1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	570 memcpy(n, str, len);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	571 n[len] = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	572 return n;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	573 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	574 return mem.strdup(str);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	575 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	576
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	577 /********************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	578 * Return filename name excluding path (read-only).
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	579 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	580
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	581 char FileName::name(const char str)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	582 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	583 char *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	584 size_t len = strlen(str);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	585
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	586 e = (char *)str + len;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	587 for (;;)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	588 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	589 switch (*e)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	590 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	591 #if POSIX
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	592 case '/':
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	593 return e + 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	594 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	595 #if _WIN32
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	596 case '/':
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	597 case '\\':
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	598 return e + 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	599 case ':':
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	600 /* The ':' is a drive letter only if it is the second
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	601 * character or the last character,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	602 * otherwise it is an ADS (Alternate Data Stream) separator.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	603 * Consider ADS separators as part of the file name.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	604 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	605 if (e == str + 1 \|\| e == str + len - 1)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	606 return e + 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	607 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	608 default:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	609 if (e == str)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	610 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	611 e--;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	612 continue;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	613 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	614 return e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	615 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	616 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	617
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	618 char *FileName::name()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	619 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	620 return name(str);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	621 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	622
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	623 /**************************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	624 * Return path portion of str.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	625 * Path will does not include trailing path separator.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	626 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	627
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	628 char FileName::path(const char str)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	629 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	630 char *n = name(str);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	631 char *path;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	632 size_t pathlen;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	633
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	634 if (n > str)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	635 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	636 #if POSIX
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	637 if (n[-1] == '/')
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	638 n--;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	639 #elif _WIN32
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	640 if (n[-1] == '\\' \|\| n[-1] == '/')
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	641 n--;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	642 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	643 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	644 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	645 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	646 pathlen = n - str;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	647 path = (char *)mem.malloc(pathlen + 1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	648 memcpy(path, str, pathlen);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	649 path[pathlen] = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	650 return path;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	651 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	652
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	653 /**************************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	654 * Replace filename portion of path.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	655 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	656
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	657 const char FileName::replaceName(const char path, const char *name)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	658 { char *f;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	659 char *n;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	660 size_t pathlen;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	661 size_t namelen;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	662
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	663 if (absolute(name))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	664 return name;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	665
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	666 n = FileName::name(path);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	667 if (n == path)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	668 return name;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	669 pathlen = n - path;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	670 namelen = strlen(name);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	671 f = (char *)mem.malloc(pathlen + 1 + namelen + 1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	672 memcpy(f, path, pathlen);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	673 #if POSIX
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	674 if (path[pathlen - 1] != '/')
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	675 { f[pathlen] = '/';
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	676 pathlen++;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	677 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	678 #elif _WIN32
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	679 if (path[pathlen - 1] != '\\' &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	680 path[pathlen - 1] != '/' &&
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	681 path[pathlen - 1] != ':')
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	682 { f[pathlen] = '\\';
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	683 pathlen++;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	684 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	685 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	686 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	687 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	688 memcpy(f + pathlen, name, namelen + 1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	689 return f;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	690 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	691
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	692 /***************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	693 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	694
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	695 FileName FileName::defaultExt(const char name, const char *ext)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	696 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	697 char *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	698 char *s;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	699 size_t len;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	700 size_t extlen;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	701
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	702 e = FileName::ext(name);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	703 if (e) // if already has an extension
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	704 return new FileName((char *)name, 0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	705
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	706 len = strlen(name);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	707 extlen = strlen(ext);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	708 s = (char *)alloca(len + 1 + extlen + 1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	709 memcpy(s,name,len);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	710 s[len] = '.';
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	711 memcpy(s + len + 1, ext, extlen + 1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	712 return new FileName(s, 0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	713 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	714
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	715 /***************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	716 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	717
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	718 FileName FileName::forceExt(const char name, const char *ext)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	719 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	720 char *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	721 char *s;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	722 size_t len;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	723 size_t extlen;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	724
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	725 e = FileName::ext(name);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	726 if (e) // if already has an extension
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	727 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	728 len = e - name;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	729 extlen = strlen(ext);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	730
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	731 s = (char *)alloca(len + extlen + 1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	732 memcpy(s,name,len);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	733 memcpy(s + len, ext, extlen + 1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	734 return new FileName(s, 0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	735 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	736 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	737 return defaultExt(name, ext); // doesn't have one
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	738 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	739
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	740 /******************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	741 * Return !=0 if extensions match.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	742 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	743
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	744 int FileName::equalsExt(const char *ext)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	745 { const char *e;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	746
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	747 e = FileName::ext();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	748 if (!e && !ext)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	749 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	750 if (!e \|\| !ext)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	751 return 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	752 #if POSIX
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	753 return strcmp(e,ext) == 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	754 #elif _WIN32
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	755 return stricmp(e,ext) == 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	756 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	757 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	758 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	759 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	760
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	761 /*************************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	762 * Copy file from this to to.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	763 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	764
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	765 void FileName::CopyTo(FileName *to)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	766 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	767 File file(this);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	768
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	769 #if _WIN32
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	770 file.touchtime = mem.malloc(sizeof(WIN32_FIND_DATAA)); // keep same file time
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	771 #elif POSIX
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	772 file.touchtime = mem.malloc(sizeof(struct stat)); // keep same file time
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	773 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	774 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	775 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	776 file.readv();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	777 file.name = to;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	778 file.writev();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	779 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	780
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	781 /*************************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	782 * Search Path for file.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	783 * Input:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	784 * cwd if !=0, search current directory before searching path
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	785 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	786
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	787 char FileName::searchPath(Array path, const char *name, int cwd)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	788 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	789 if (absolute(name))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	790 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	791 return exists(name) ? (char *)name : NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	792 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	793 if (cwd)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	794 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	795 if (exists(name))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	796 return (char *)name;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	797 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	798 if (path)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	799 { unsigned i;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	800
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	801 for (i = 0; i < path->dim; i++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	802 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	803 char p = (char )path->data[i];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	804 char *n = combine(p, name);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	805
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	806 if (exists(n))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	807 return n;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	808 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	809 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	810 return NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	811 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	812
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	813 int FileName::exists(const char *name)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	814 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	815 #if POSIX
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	816 struct stat st;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	817
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	818 if (stat(name, &st) < 0)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	819 return 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	820 if (S_ISDIR(st.st_mode))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	821 return 2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	822 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	823 #elif _WIN32
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	824 DWORD dw;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	825 int result;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	826
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	827 dw = GetFileAttributesA(name);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	828 if (dw == -1L)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	829 result = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	830 else if (dw & FILE_ATTRIBUTE_DIRECTORY)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	831 result = 2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	832 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	833 result = 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	834 return result;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	835 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	836 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	837 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	838 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	839
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	840 void FileName::ensurePathExists(const char *path)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	841 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	842 //printf("FileName::ensurePathExists(%s)\n", path ? path : "");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	843 if (path && *path)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	844 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	845 if (!exists(path))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	846 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	847 char *p = FileName::path(path);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	848 if (*p)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	849 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	850 #if _WIN32
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	851 size_t len = strlen(path);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	852 if (len > 2 && p[-1] == ':' && path + 2 == p)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	853 { mem.free(p);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	854 return;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	855 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	856 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	857 ensurePathExists(p);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	858 mem.free(p);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	859 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	860 #if _WIN32
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	861 if (path[strlen(path) - 1] != '\\')
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	862 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	863 #if POSIX
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	864 if (path[strlen(path) - 1] != '\\')
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	865 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	866 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	867 //printf("mkdir(%s)\n", path);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	868 #if _WIN32
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	869 if (mkdir(path))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	870 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	871 #if POSIX
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	872 if (mkdir(path, 0777))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	873 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	874 error("cannot create directory %s", path);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	875 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	876 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	877 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	878 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	879
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	880 /**************************** File ******************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	881
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	882 File::File(FileName *n)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	883 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	884 ref = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	885 buffer = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	886 len = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	887 touchtime = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	888 name = n;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	889 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	890
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	891 File::File(char *n)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	892 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	893 ref = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	894 buffer = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	895 len = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	896 touchtime = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	897 name = new FileName(n, 0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	898 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	899
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	900 File::~File()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	901 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	902 if (buffer)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	903 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	904 if (ref == 0)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	905 mem.free(buffer);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	906 #if _WIN32
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	907 else if (ref == 2)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	908 UnmapViewOfFile(buffer);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	909 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	910 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	911 if (touchtime)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	912 mem.free(touchtime);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	913 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	914
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	915 void File::mark()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	916 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	917 mem.mark(buffer);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	918 mem.mark(touchtime);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	919 mem.mark(name);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	920 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	921
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	922 /*************************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	923 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	924
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	925 int File::read()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	926 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	927 #if POSIX
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	928 off_t size;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	929 ssize_t numread;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	930 int fd;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	931 struct stat buf;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	932 int result = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	933 char *name;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	934
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	935 name = this->name->toChars();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	936 //printf("File::read('%s')\n",name);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	937 fd = open(name, O_RDONLY);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	938 if (fd == -1)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	939 { result = errno;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	940 //printf("\topen error, errno = %d\n",errno);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	941 goto err1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	942 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	943
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	944 if (!ref)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	945 mem.free(buffer);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	946 ref = 0; // we own the buffer now
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	947
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	948 //printf("\tfile opened\n");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	949 if (fstat(fd, &buf))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	950 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	951 printf("\tfstat error, errno = %d\n",errno);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	952 goto err2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	953 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	954 size = buf.st_size;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	955 buffer = (unsigned char *) mem.malloc(size + 2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	956 if (!buffer)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	957 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	958 printf("\tmalloc error, errno = %d\n",errno);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	959 goto err2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	960 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	961
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	962 numread = ::read(fd, buffer, size);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	963 if (numread != size)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	964 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	965 printf("\tread error, errno = %d\n",errno);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	966 goto err2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	967 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	968
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	969 if (touchtime)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	970 memcpy(touchtime, &buf, sizeof(buf));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	971
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	972 if (close(fd) == -1)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	973 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	974 printf("\tclose error, errno = %d\n",errno);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	975 goto err;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	976 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	977
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	978 len = size;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	979
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	980 // Always store a wchar ^Z past end of buffer so scanner has a sentinel
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	981 buffer[size] = 0; // ^Z is obsolete, use 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	982 buffer[size + 1] = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	983 return 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	984
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	985 err2:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	986 close(fd);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	987 err:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	988 mem.free(buffer);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	989 buffer = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	990 len = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	991
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	992 err1:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	993 result = 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	994 return result;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	995 #elif _WIN32
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	996 DWORD size;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	997 DWORD numread;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	998 HANDLE h;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	999 int result = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1000 char *name;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1001
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1002 name = this->name->toChars();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1003 h = CreateFileA(name,GENERIC_READ,FILE_SHARE_READ,NULL,OPEN_EXISTING,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1004 FILE_ATTRIBUTE_NORMAL \| FILE_FLAG_SEQUENTIAL_SCAN,0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1005 if (h == INVALID_HANDLE_VALUE)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1006 goto err1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1007
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1008 if (!ref)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1009 mem.free(buffer);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1010 ref = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1011
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1012 size = GetFileSize(h,NULL);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1013 buffer = (unsigned char *) mem.malloc(size + 2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1014 if (!buffer)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1015 goto err2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1016
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1017 if (ReadFile(h,buffer,size,&numread,NULL) != TRUE)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1018 goto err2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1019
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1020 if (numread != size)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1021 goto err2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1022
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1023 if (touchtime)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1024 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1025 if (!GetFileTime(h, NULL, NULL, &((WIN32_FIND_DATAA *)touchtime)->ftLastWriteTime))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1026 goto err2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1027 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1028
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1029 if (!CloseHandle(h))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1030 goto err;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1031
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1032 len = size;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1033
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1034 // Always store a wchar ^Z past end of buffer so scanner has a sentinel
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1035 buffer[size] = 0; // ^Z is obsolete, use 0
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1036 buffer[size + 1] = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1037 return 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1038
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1039 err2:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1040 CloseHandle(h);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1041 err:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1042 mem.free(buffer);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1043 buffer = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1044 len = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1045
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1046 err1:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1047 result = 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1048 return result;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1049 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1050 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1051 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1052 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1053
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1054 /*****************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1055 * Read a file with memory mapped file I/O.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1056 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1057
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1058 int File::mmread()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1059 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1060 #if POSIX
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1061 return read();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1062 #elif _WIN32
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1063 HANDLE hFile;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1064 HANDLE hFileMap;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1065 DWORD size;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1066 char *name;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1067
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1068 name = this->name->toChars();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1069 hFile = CreateFile(name, GENERIC_READ,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1070 FILE_SHARE_READ, NULL,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1071 OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1072 if (hFile == INVALID_HANDLE_VALUE)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1073 goto Lerr;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1074 size = GetFileSize(hFile, NULL);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1075 //printf(" file created, size %d\n", size);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1076
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1077 hFileMap = CreateFileMapping(hFile,NULL,PAGE_READONLY,0,size,NULL);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1078 if (CloseHandle(hFile) != TRUE)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1079 goto Lerr;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1080
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1081 if (hFileMap == NULL)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1082 goto Lerr;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1083
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1084 //printf(" mapping created\n");
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1085
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1086 if (!ref)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1087 mem.free(buffer);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1088 ref = 2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1089 buffer = (unsigned char *)MapViewOfFileEx(hFileMap, FILE_MAP_READ,0,0,size,NULL);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1090 if (CloseHandle(hFileMap) != TRUE)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1091 goto Lerr;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1092 if (buffer == NULL) // mapping view failed
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1093 goto Lerr;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1094
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1095 len = size;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1096 //printf(" buffer = %p\n", buffer);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1097
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1098 return 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1099
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1100 Lerr:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1101 return GetLastError(); // failure
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1102 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1103 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1104 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1105 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1106
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1107 /*********************************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1108 * Write a file.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1109 * Returns:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1110 * 0 success
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1111 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1112
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1113 int File::write()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1114 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1115 #if POSIX
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1116 int fd;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1117 ssize_t numwritten;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1118 char *name;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1119
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1120 name = this->name->toChars();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1121 fd = open(name, O_CREAT \| O_WRONLY \| O_TRUNC, 0644);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1122 if (fd == -1)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1123 goto err;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1124
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1125 numwritten = ::write(fd, buffer, len);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1126 if (len != numwritten)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1127 goto err2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1128
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1129 if (close(fd) == -1)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1130 goto err;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1131
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1132 if (touchtime)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1133 { struct utimbuf ubuf;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1134
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1135 ubuf.actime = ((struct stat *)touchtime)->st_atime;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1136 ubuf.modtime = ((struct stat *)touchtime)->st_mtime;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1137 if (utime(name, &ubuf))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1138 goto err;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1139 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1140 return 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1141
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1142 err2:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1143 close(fd);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1144 ::remove(name);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1145 err:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1146 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1147 #elif _WIN32
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1148 HANDLE h;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1149 DWORD numwritten;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1150 char *name;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1151
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1152 name = this->name->toChars();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1153 h = CreateFileA(name,GENERIC_WRITE,0,NULL,CREATE_ALWAYS,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1154 FILE_ATTRIBUTE_NORMAL \| FILE_FLAG_SEQUENTIAL_SCAN,NULL);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1155 if (h == INVALID_HANDLE_VALUE)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1156 goto err;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1157
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1158 if (WriteFile(h,buffer,len,&numwritten,NULL) != TRUE)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1159 goto err2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1160
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1161 if (len != numwritten)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1162 goto err2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1163
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1164 if (touchtime) {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1165 SetFileTime(h, NULL, NULL, &((WIN32_FIND_DATAA *)touchtime)->ftLastWriteTime);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1166 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1167 if (!CloseHandle(h))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1168 goto err;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1169 return 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1170
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1171 err2:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1172 CloseHandle(h);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1173 DeleteFileA(name);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1174 err:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1175 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1176 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1177 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1178 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1179 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1180
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1181 /*********************************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1182 * Append to a file.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1183 * Returns:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1184 * 0 success
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1185 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1186
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1187 int File::append()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1188 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1189 #if POSIX
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1190 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1191 #elif _WIN32
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1192 HANDLE h;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1193 DWORD numwritten;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1194 char *name;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1195
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1196 name = this->name->toChars();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1197 h = CreateFileA(name,GENERIC_WRITE,0,NULL,OPEN_ALWAYS,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1198 FILE_ATTRIBUTE_NORMAL \| FILE_FLAG_SEQUENTIAL_SCAN,NULL);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1199 if (h == INVALID_HANDLE_VALUE)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1200 goto err;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1201
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1202 #if 1
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1203 SetFilePointer(h, 0, NULL, FILE_END);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1204 #else // INVALID_SET_FILE_POINTER doesn't seem to have a definition
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1205 if (SetFilePointer(h, 0, NULL, FILE_END) == INVALID_SET_FILE_POINTER)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1206 goto err;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1207 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1208
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1209 if (WriteFile(h,buffer,len,&numwritten,NULL) != TRUE)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1210 goto err2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1211
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1212 if (len != numwritten)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1213 goto err2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1214
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1215 if (touchtime) {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1216 SetFileTime(h, NULL, NULL, &((WIN32_FIND_DATAA *)touchtime)->ftLastWriteTime);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1217 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1218 if (!CloseHandle(h))
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1219 goto err;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1220 return 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1221
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1222 err2:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1223 CloseHandle(h);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1224 err:
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1225 return 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1226 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1227 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1228 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1229 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1230
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1231 /**************************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1232 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1233
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1234 void File::readv()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1235 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1236 if (read())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1237 error("Error reading file '%s'\n",name->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1238 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1239
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1240 /**************************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1241 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1242
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1243 void File::mmreadv()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1244 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1245 if (mmread())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1246 readv();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1247 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1248
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1249 void File::writev()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1250 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1251 if (write())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1252 error("Error writing file '%s'\n",name->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1253 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1254
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1255 void File::appendv()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1256 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1257 if (write())
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1258 error("Error appending to file '%s'\n",name->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1259 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1260
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1261 /*******************************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1262 * Return !=0 if file exists.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1263 * 0: file doesn't exist
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1264 * 1: normal file
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1265 * 2: directory
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1266 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1267
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1268 int File::exists()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1269 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1270 #if POSIX
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1271 return 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1272 #elif _WIN32
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1273 DWORD dw;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1274 int result;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1275 char *name;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1276
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1277 name = this->name->toChars();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1278 if (touchtime)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1279 dw = ((WIN32_FIND_DATAA *)touchtime)->dwFileAttributes;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1280 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1281 dw = GetFileAttributesA(name);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1282 if (dw == -1L)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1283 result = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1284 else if (dw & FILE_ATTRIBUTE_DIRECTORY)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1285 result = 2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1286 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1287 result = 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1288 return result;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1289 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1290 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1291 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1292 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1293
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1294 void File::remove()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1295 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1296 #if POSIX
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1297 ::remove(this->name->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1298 #elif _WIN32
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1299 DeleteFileA(this->name->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1300 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1301 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1302 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1303 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1304
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1305 Array File::match(char n)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1306 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1307 return match(new FileName(n, 0));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1308 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1309
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1310 Array File::match(FileName n)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1311 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1312 #if POSIX
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1313 return NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1314 #elif _WIN32
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1315 HANDLE h;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1316 WIN32_FIND_DATAA fileinfo;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1317 Array *a;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1318 char *c;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1319 char *name;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1320
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1321 a = new Array();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1322 c = n->toChars();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1323 name = n->name();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1324 h = FindFirstFileA(c,&fileinfo);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1325 if (h != INVALID_HANDLE_VALUE)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1326 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1327 do
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1328 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1329 // Glue path together with name
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1330 char *fn;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1331 File *f;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1332
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1333 fn = (char *)mem.malloc(name - c + strlen(fileinfo.cFileName) + 1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1334 memcpy(fn, c, name - c);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1335 strcpy(fn + (name - c), fileinfo.cFileName);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1336 f = new File(fn);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1337 f->touchtime = mem.malloc(sizeof(WIN32_FIND_DATAA));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1338 memcpy(f->touchtime, &fileinfo, sizeof(fileinfo));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1339 a->push(f);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1340 } while (FindNextFileA(h,&fileinfo) != FALSE);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1341 FindClose(h);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1342 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1343 return a;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1344 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1345 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1346 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1347 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1348
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1349 int File::compareTime(File *f)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1350 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1351 #if POSIX
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1352 return 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1353 #elif _WIN32
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1354 if (!touchtime)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1355 stat();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1356 if (!f->touchtime)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1357 f->stat();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1358 return CompareFileTime(&((WIN32_FIND_DATAA )touchtime)->ftLastWriteTime, &((WIN32_FIND_DATAA )f->touchtime)->ftLastWriteTime);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1359 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1360 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1361 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1362 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1363
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1364 void File::stat()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1365 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1366 #if POSIX
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1367 if (!touchtime)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1368 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1369 touchtime = mem.calloc(1, sizeof(struct stat));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1370 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1371 #elif _WIN32
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1372 HANDLE h;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1373
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1374 if (!touchtime)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1375 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1376 touchtime = mem.calloc(1, sizeof(WIN32_FIND_DATAA));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1377 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1378 h = FindFirstFileA(name->toChars(),(WIN32_FIND_DATAA *)touchtime);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1379 if (h != INVALID_HANDLE_VALUE)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1380 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1381 FindClose(h);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1382 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1383 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1384 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1385 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1386 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1387
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1388 void File::checkoffset(size_t offset, size_t nbytes)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1389 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1390 if (offset > len \|\| offset + nbytes > len)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1391 error("Corrupt file '%s': offset x%zx off end of file",toChars(),offset);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1392 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1393
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1394 char *File::toChars()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1395 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1396 return name->toChars();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1397 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1398
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1399
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1400 /*********************** OutBuffer ***********************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1401
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1402 OutBuffer::OutBuffer()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1403 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1404 data = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1405 offset = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1406 size = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1407 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1408
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1409 OutBuffer::~OutBuffer()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1410 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1411 mem.free(data);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1412 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1413
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1414 void *OutBuffer::extractData()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1415 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1416 void *p;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1417
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1418 p = (void *)data;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1419 data = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1420 offset = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1421 size = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1422 return p;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1423 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1424
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1425 void OutBuffer::mark()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1426 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1427 mem.mark(data);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1428 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1429
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1430 void OutBuffer::reserve(unsigned nbytes)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1431 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1432 //printf("OutBuffer::reserve: size = %d, offset = %d, nbytes = %d\n", size, offset, nbytes);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1433 if (size - offset < nbytes)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1434 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1435 size = (offset + nbytes) * 2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1436 data = (unsigned char *)mem.realloc(data, size);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1437 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1438 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1439
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1440 void OutBuffer::reset()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1441 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1442 offset = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1443 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1444
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1445 void OutBuffer::setsize(unsigned size)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1446 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1447 offset = size;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1448 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1449
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1450 void OutBuffer::write(const void *data, unsigned nbytes)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1451 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1452 reserve(nbytes);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1453 memcpy(this->data + offset, data, nbytes);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1454 offset += nbytes;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1455 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1456
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1457 void OutBuffer::writebstring(unsigned char *string)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1458 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1459 write(string,*string + 1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1460 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1461
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1462 void OutBuffer::writestring(const char *string)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1463 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1464 write(string,strlen(string));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1465 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1466
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1467 void OutBuffer::writedstring(const char *string)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1468 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1469 #if M_UNICODE
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1470 for (; *string; string++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1471 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1472 writedchar(*string);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1473 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1474 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1475 write(string,strlen(string));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1476 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1477 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1478
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1479 void OutBuffer::writedstring(const wchar_t *string)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1480 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1481 #if M_UNICODE
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1482 write(string,wcslen(string) * sizeof(wchar_t));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1483 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1484 for (; *string; string++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1485 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1486 writedchar(*string);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1487 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1488 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1489 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1490
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1491 void OutBuffer::prependstring(const char *string)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1492 { unsigned len;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1493
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1494 len = strlen(string);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1495 reserve(len);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1496 memmove(data + len, data, offset);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1497 memcpy(data, string, len);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1498 offset += len;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1499 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1500
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1501 void OutBuffer::writenl()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1502 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1503 #if _WIN32
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1504 #if M_UNICODE
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1505 write4(0x000A000D); // newline is CR,LF on Microsoft OS's
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1506 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1507 writeword(0x0A0D); // newline is CR,LF on Microsoft OS's
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1508 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1509 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1510 #if M_UNICODE
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1511 writeword('\n');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1512 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1513 writeByte('\n');
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1514 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1515 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1516 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1517
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1518 void OutBuffer::writeByte(unsigned b)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1519 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1520 reserve(1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1521 this->data[offset] = (unsigned char)b;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1522 offset++;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1523 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1524
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1525 void OutBuffer::writeUTF8(unsigned b)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1526 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1527 reserve(6);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1528 if (b <= 0x7F)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1529 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1530 this->data[offset] = (unsigned char)b;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1531 offset++;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1532 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1533 else if (b <= 0x7FF)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1534 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1535 this->data[offset + 0] = (unsigned char)((b >> 6) \| 0xC0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1536 this->data[offset + 1] = (unsigned char)((b & 0x3F) \| 0x80);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1537 offset += 2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1538 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1539 else if (b <= 0xFFFF)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1540 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1541 this->data[offset + 0] = (unsigned char)((b >> 12) \| 0xE0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1542 this->data[offset + 1] = (unsigned char)(((b >> 6) & 0x3F) \| 0x80);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1543 this->data[offset + 2] = (unsigned char)((b & 0x3F) \| 0x80);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1544 offset += 3;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1545 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1546 else if (b <= 0x1FFFFF)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1547 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1548 this->data[offset + 0] = (unsigned char)((b >> 18) \| 0xF0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1549 this->data[offset + 1] = (unsigned char)(((b >> 12) & 0x3F) \| 0x80);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1550 this->data[offset + 2] = (unsigned char)(((b >> 6) & 0x3F) \| 0x80);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1551 this->data[offset + 3] = (unsigned char)((b & 0x3F) \| 0x80);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1552 offset += 4;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1553 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1554 else if (b <= 0x3FFFFFF)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1555 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1556 this->data[offset + 0] = (unsigned char)((b >> 24) \| 0xF8);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1557 this->data[offset + 1] = (unsigned char)(((b >> 18) & 0x3F) \| 0x80);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1558 this->data[offset + 2] = (unsigned char)(((b >> 12) & 0x3F) \| 0x80);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1559 this->data[offset + 3] = (unsigned char)(((b >> 6) & 0x3F) \| 0x80);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1560 this->data[offset + 4] = (unsigned char)((b & 0x3F) \| 0x80);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1561 offset += 5;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1562 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1563 else if (b <= 0x7FFFFFFF)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1564 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1565 this->data[offset + 0] = (unsigned char)((b >> 30) \| 0xFC);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1566 this->data[offset + 1] = (unsigned char)(((b >> 24) & 0x3F) \| 0x80);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1567 this->data[offset + 2] = (unsigned char)(((b >> 18) & 0x3F) \| 0x80);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1568 this->data[offset + 3] = (unsigned char)(((b >> 12) & 0x3F) \| 0x80);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1569 this->data[offset + 4] = (unsigned char)(((b >> 6) & 0x3F) \| 0x80);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1570 this->data[offset + 5] = (unsigned char)((b & 0x3F) \| 0x80);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1571 offset += 6;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1572 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1573 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1574 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1575 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1576
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1577 void OutBuffer::writedchar(unsigned b)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1578 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1579 reserve(Dchar_mbmax * sizeof(dchar));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1580 offset = (unsigned char )Dchar::put((dchar )(this->data + offset), (dchar)b) -
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1581 this->data;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1582 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1583
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1584 void OutBuffer::prependbyte(unsigned b)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1585 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1586 reserve(1);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1587 memmove(data + 1, data, offset);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1588 data[0] = (unsigned char)b;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1589 offset++;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1590 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1591
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1592 void OutBuffer::writeword(unsigned w)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1593 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1594 reserve(2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1595 (unsigned short )(this->data + offset) = (unsigned short)w;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1596 offset += 2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1597 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1598
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1599 void OutBuffer::writeUTF16(unsigned w)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1600 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1601 reserve(4);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1602 if (w <= 0xFFFF)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1603 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1604 (unsigned short )(this->data + offset) = (unsigned short)w;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1605 offset += 2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1606 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1607 else if (w <= 0x10FFFF)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1608 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1609 (unsigned short )(this->data + offset) = (unsigned short)((w >> 10) + 0xD7C0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1610 (unsigned short )(this->data + offset + 2) = (unsigned short)((w & 0x3FF) \| 0xDC00);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1611 offset += 4;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1612 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1613 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1614 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1615 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1616
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1617 void OutBuffer::write4(unsigned w)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1618 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1619 reserve(4);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1620 (unsigned long )(this->data + offset) = w;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1621 offset += 4;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1622 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1623
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1624 void OutBuffer::write(OutBuffer *buf)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1625 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1626 if (buf)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1627 { reserve(buf->offset);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1628 memcpy(data + offset, buf->data, buf->offset);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1629 offset += buf->offset;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1630 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1631 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1632
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1633 void OutBuffer::write(Object *obj)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1634 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1635 if (obj)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1636 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1637 writestring(obj->toChars());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1638 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1639 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1640
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1641 void OutBuffer::fill0(unsigned nbytes)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1642 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1643 reserve(nbytes);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1644 memset(data + offset,0,nbytes);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1645 offset += nbytes;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1646 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1647
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1648 void OutBuffer::align(unsigned size)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1649 { unsigned nbytes;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1650
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1651 nbytes = ((offset + size - 1) & ~(size - 1)) - offset;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1652 fill0(nbytes);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1653 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1654
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1655
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1656 ////////////////////////////////////////////////////////////////
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1657 // The compiler shipped with Visual Studio 2005 (and possible
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1658 // other versions) does not support C99 printf format specfiers
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1659 // such as %z and %j
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1660 #if _MSC_VER
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1661 using std::string;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1662 using std::wstring;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1663
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1664 template<typename S>
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1665 inline void
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1666 search_and_replace(S& str, const S& what, const S& replacement)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1667 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1668 assert(!what.empty());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1669 size_t pos = str.find(what);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1670 while (pos != S::npos)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1671 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1672 str.replace(pos, what.size(), replacement);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1673 pos = str.find(what, pos + replacement.size());
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1674 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1675 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1676 #define WORKAROUND_C99_SPECIFIERS_BUG(S,tmp,f) \
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1677 S tmp = f; \
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1678 search_and_replace(fmt, S("%z"), S("%l")); \
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1679 search_and_replace(fmt, S("%j"), S("%i")); \
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1680 f = tmp.c_str();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1681 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1682 #define WORKAROUND_C99_SPECIFIERS_BUG(S,tmp,f)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1683 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1684
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1685 void OutBuffer::vprintf(const char *format, va_list args)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1686 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1687 char buffer[128];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1688 char *p;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1689 unsigned psize;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1690 int count;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1691
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1692 WORKAROUND_C99_SPECIFIERS_BUG(string, fmt, format);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1693
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1694 p = buffer;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1695 psize = sizeof(buffer);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1696 for (;;)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1697 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1698 #if _WIN32
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1699 count = _vsnprintf(p,psize,format,args);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1700 if (count != -1)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1701 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1702 psize *= 2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1703 #elif POSIX
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1704 va_list va;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1705 va_copy(va, args);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1706 /*
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1707 The functions vprintf(), vfprintf(), vsprintf(), vsnprintf()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1708 are equivalent to the functions printf(), fprintf(), sprintf(),
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1709 snprintf(), respectively, except that they are called with a
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1710 va_list instead of a variable number of arguments. These
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1711 functions do not call the va_end macro. Consequently, the value
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1712 of ap is undefined after the call. The application should call
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1713 va_end(ap) itself afterwards.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1714 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1715 count = vsnprintf(p,psize,format,va);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1716 va_end(va);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1717 if (count == -1)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1718 psize *= 2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1719 else if (count >= psize)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1720 psize = count + 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1721 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1722 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1723 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1724 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1725 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1726 p = (char *) alloca(psize); // buffer too small, try again with larger size
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1727 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1728 write(p,count);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1729 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1730
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1731 #if M_UNICODE
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1732 void OutBuffer::vprintf(const wchar_t *format, va_list args)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1733 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1734 dchar buffer[128];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1735 dchar *p;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1736 unsigned psize;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1737 int count;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1738
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1739 WORKAROUND_C99_SPECIFIERS_BUG(wstring, fmt, format);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1740
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1741 p = buffer;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1742 psize = sizeof(buffer) / sizeof(buffer[0]);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1743 for (;;)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1744 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1745 #if _WIN32
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1746 count = _vsnwprintf(p,psize,format,args);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1747 if (count != -1)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1748 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1749 psize *= 2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1750 #elif POSIX
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1751 va_list va;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1752 va_copy(va, args);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1753 count = vsnwprintf(p,psize,format,va);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1754 va_end(va);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1755
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1756 if (count == -1)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1757 psize *= 2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1758 else if (count >= psize)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1759 psize = count + 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1760 else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1761 break;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1762 #else
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1763 assert(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1764 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1765 p = (dchar ) alloca(psize 2); // buffer too small, try again with larger size
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1766 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1767 write(p,count * 2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1768 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1769 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1770
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1771 void OutBuffer::printf(const char *format, ...)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1772 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1773 va_list ap;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1774 va_start(ap, format);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1775 vprintf(format,ap);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1776 va_end(ap);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1777 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1778
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1779 #if M_UNICODE
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1780 void OutBuffer::printf(const wchar_t *format, ...)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1781 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1782 va_list ap;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1783 va_start(ap, format);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1784 vprintf(format,ap);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1785 va_end(ap);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1786 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1787 #endif
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1788
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1789 void OutBuffer::bracket(char left, char right)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1790 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1791 reserve(2);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1792 memmove(data + 1, data, offset);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1793 data[0] = left;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1794 data[offset + 1] = right;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1795 offset += 2;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1796 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1797
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1798 /******************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1799 * Insert left at i, and right at j.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1800 * Return index just past right.
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1801 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1802
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1803 unsigned OutBuffer::bracket(unsigned i, const char left, unsigned j, const char right)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1804 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1805 size_t leftlen = strlen(left);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1806 size_t rightlen = strlen(right);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1807 reserve(leftlen + rightlen);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1808 insert(i, left, leftlen);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1809 insert(j + leftlen, right, rightlen);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1810 return j + leftlen + rightlen;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1811 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1812
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1813 void OutBuffer::spread(unsigned offset, unsigned nbytes)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1814 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1815 reserve(nbytes);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1816 memmove(data + offset + nbytes, data + offset,
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1817 this->offset - offset);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1818 this->offset += nbytes;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1819 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1820
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1821 /****************************************
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1822 * Returns: offset + nbytes
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1823 */
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1824
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1825 unsigned OutBuffer::insert(unsigned offset, const void *p, unsigned nbytes)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1826 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1827 spread(offset, nbytes);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1828 memmove(data + offset, p, nbytes);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1829 return offset + nbytes;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1830 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1831
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1832 void OutBuffer::remove(unsigned offset, unsigned nbytes)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1833 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1834 memmove(data + offset, data + offset + nbytes, this->offset - (offset + nbytes));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1835 this->offset -= nbytes;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1836 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1837
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1838 char *OutBuffer::toChars()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1839 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1840 writeByte(0);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1841 return (char *)data;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1842 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1843
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1844 /******************************* Bits **************************/
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1845
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1846 Bits::Bits()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1847 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1848 data = NULL;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1849 bitdim = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1850 allocdim = 0;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1851 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1852
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1853 Bits::~Bits()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1854 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1855 mem.free(data);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1856 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1857
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1858 void Bits::mark()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1859 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1860 mem.mark(data);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1861 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1862
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1863 void Bits::resize(unsigned bitdim)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1864 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1865 unsigned allocdim;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1866 unsigned mask;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1867
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1868 allocdim = (bitdim + 31) / 32;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1869 data = (unsigned )mem.realloc(data, allocdim sizeof(data[0]));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1870 if (this->allocdim < allocdim)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1871 memset(data + this->allocdim, 0, (allocdim - this->allocdim) * sizeof(data[0]));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1872
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1873 // Clear other bits in last word
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1874 mask = (1 << (bitdim & 31)) - 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1875 if (mask)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1876 data[allocdim - 1] &= ~mask;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1877
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1878 this->bitdim = bitdim;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1879 this->allocdim = allocdim;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1880 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1881
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1882 void Bits::set(unsigned bitnum)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1883 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1884 data[bitnum / 32] \|= 1 << (bitnum & 31);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1885 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1886
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1887 void Bits::clear(unsigned bitnum)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1888 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1889 data[bitnum / 32] &= ~(1 << (bitnum & 31));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1890 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1891
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1892 int Bits::test(unsigned bitnum)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1893 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1894 return data[bitnum / 32] & (1 << (bitnum & 31));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1895 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1896
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1897 void Bits::set()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1898 { unsigned mask;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1899
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1900 memset(data, ~0, allocdim * sizeof(data[0]));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1901
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1902 // Clear other bits in last word
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1903 mask = (1 << (bitdim & 31)) - 1;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1904 if (mask)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1905 data[allocdim - 1] &= mask;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1906 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1907
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1908 void Bits::clear()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1909 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1910 memset(data, 0, allocdim * sizeof(data[0]));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1911 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1912
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1913 void Bits::copy(Bits *from)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1914 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1915 assert(bitdim == from->bitdim);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1916 memcpy(data, from->data, allocdim * sizeof(data[0]));
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1917 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1918
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1919 Bits *Bits::clone()
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1920 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1921 Bits *b;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1922
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1923 b = new Bits();
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1924 b->resize(bitdim);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1925 b->copy(this);
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1926 return b;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1927 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1928
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1929 void Bits::sub(Bits *b)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1930 {
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1931 unsigned u;
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1932
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1933 for (u = 0; u < allocdim; u++)
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1934 data[u] &= ~b->data[u];
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1935 }
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1936
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1937
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1938
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1939
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1940
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1941
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1942
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1943
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1944
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1945
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1946
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1947
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1948
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1949
638d16625da2 LDC 2 compiles again. Robert Clipsham <robert@octarineparrot.com> parents: diff changeset	1950

Mercurial > projects > ldc

annotate dmd2/root/root.c @ 1460:a1666b613c15