00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026
00027
00028
00029
00030
00031
00032
00033
00034
00035
00036
00037
00038
00039
00040 module mango.log.Event;
00041
00042 version = UseEventFreeList;
00043
00044 private import mango.sys.OS;
00045
00046 private import mango.log.Hierarchy;
00047
00048 private import mango.log.model.ILevel;
00049
00050 version (Win32)
00051 {
00052 extern(Windows) int QueryPerformanceCounter(ulong *count);
00053 extern(Windows) int QueryPerformanceFrequency(ulong *frequency);
00054 }
00055
00056
00057
00058
00059
00060
00061
00062
00063
00064
00065
00066
00067
00068
00069 public class Event : ILevel
00070 {
00071
00072 private char[] msg,
00073 name;
00074 private ulong time;
00075 private Level level;
00076 private Hierarchy hierarchy;
00077
00078
00079 private static ulong epochTime;
00080 private static ulong beginTime;
00081
00082
00083 struct Scratch
00084 {
00085 uint length;
00086 char[256] content;
00087 }
00088 package Scratch scratch;
00089
00090
00091
00092 package static char[][] LevelNames =
00093 [
00094 "TRACE ", "INFO ", "WARN ", "ERROR ", "FATAL ", "NONE "
00095 ];
00096
00097 version (Win32)
00098 {
00099 private static uint frequency;
00100 }
00101
00102 version (UseEventFreeList)
00103 {
00104
00105
00106
00107
00108
00109
00110 private Event next;
00111 private static Event freelist;
00112
00113
00114
00115
00116
00117
00118
00119
00120 static final synchronized Event allocate ()
00121 {
00122 Event e;
00123
00124 if (freelist)
00125 {
00126 e = freelist;
00127 freelist = e.next;
00128 }
00129 else
00130 e = new Event ();
00131 return e;
00132 }
00133
00134
00135
00136
00137
00138
00139
00140 static final synchronized void deallocate (Event e)
00141 {
00142 e.next = freelist;
00143 freelist = e;
00144
00145 version (EventReset)
00146 e.reset();
00147 }
00148 }
00149
00150
00151
00152
00153
00154
00155
00156
00157 static this ()
00158 {
00159 version (Posix)
00160 {
00161 timeval tv;
00162
00163 if (gettimeofday (&tv, null))
00164 throw new Exception ("high-resolution timer is not available");
00165
00166 epochTime = 1000L * tv.tv_sec;
00167 beginTime = epochTime + tv.tv_usec / 1000;
00168 }
00169
00170 version (Win32)
00171 {
00172 ulong time;
00173 ulong freq;
00174
00175 if (! QueryPerformanceFrequency (&freq))
00176 throw new Exception ("high-resolution timer is not available");
00177
00178 frequency = freq / 1000;
00179 QueryPerformanceCounter (&time);
00180 beginTime = time / frequency;
00181
00182 SYSTEMTIME sTime;
00183 FILETIME fTime;
00184
00185 GetSystemTime (&sTime);
00186 SystemTimeToFileTime (&sTime, &fTime);
00187
00188 ulong time1 = (cast(long) fTime.dwHighDateTime) << 32 |
00189 fTime.dwLowDateTime;
00190
00191
00192 sTime.wYear = 1970;
00193 sTime.wMonth = 1;
00194 sTime.wDayOfWeek = 0;
00195 sTime.wDay = 1;
00196 sTime.wHour = 0;
00197 sTime.wMinute = 0;
00198 sTime.wSecond = 0;
00199 sTime.wMilliseconds = 0;
00200 SystemTimeToFileTime (&sTime, &fTime);
00201
00202 ulong time2 = (cast(long) fTime.dwHighDateTime) << 32 |
00203 fTime.dwLowDateTime;
00204
00205 epochTime = (time1 - time2) / 10_000;
00206 }
00207 }
00208
00209
00210
00211
00212
00213
00214
00215
00216 final static ulong getRuntime ()
00217 {
00218 version (Posix)
00219 {
00220 timeval tv;
00221
00222 gettimeofday (&tv, null);
00223 return ((cast(ulong) tv.tv_sec) * 1000 + tv.tv_usec / 1000) - beginTime;
00224 }
00225
00226 version (Win32)
00227 {
00228 ulong time;
00229
00230 QueryPerformanceCounter (&time);
00231 return (time / frequency) - beginTime;
00232 }
00233 }
00234
00235
00236
00237
00238
00239
00240
00241 final void set (Hierarchy hierarchy, Level level, char[] msg, char[] name)
00242 {
00243 this.hierarchy = hierarchy;
00244 this.time = getRuntime ();
00245 this.level = level;
00246 this.name = name;
00247 this.msg = msg;
00248 }
00249
00250 version (EventReset)
00251 {
00252
00253
00254
00255
00256
00257
00258 final void reset ()
00259 {
00260 time = 0;
00261 msg = null;
00262 name = null;
00263 level = Level.None;
00264 }
00265 }
00266
00267
00268
00269
00270
00271
00272
00273 final override char[] toString ()
00274 {
00275 return msg;
00276 }
00277
00278
00279
00280
00281
00282
00283
00284 final char[] getName ()
00285 {
00286 return name;
00287 }
00288
00289
00290
00291
00292
00293
00294
00295
00296
00297 final char[] getContent ()
00298 {
00299 return scratch.content [0..scratch.length];
00300 }
00301
00302
00303
00304
00305
00306
00307
00308 final Level getLevel ()
00309 {
00310 return level;
00311 }
00312
00313
00314
00315
00316
00317
00318
00319 final char[] getLevelName ()
00320 {
00321 return LevelNames[level];
00322 }
00323
00324
00325
00326
00327
00328
00329
00330 final Hierarchy getHierarchy ()
00331 {
00332 return hierarchy;
00333 }
00334
00335
00336
00337
00338
00339
00340
00341
00342 final long getTime ()
00343 {
00344 return time;
00345 }
00346
00347
00348
00349
00350
00351
00352
00353
00354 final ulong getEpochTime ()
00355 {
00356 return time + epochTime;
00357 }
00358
00359
00360
00361
00362
00363
00364
00365
00366 final Event append (char[] x)
00367 {
00368 uint addition = x.length;
00369 uint newLength = scratch.length + x.length;
00370
00371 if (newLength < scratch.content.length)
00372 {
00373 scratch.content [scratch.length..newLength] = x[0..addition];
00374 scratch.length = newLength;
00375 }
00376 return this;
00377 }
00378 }