/System.Xronos/Statistics.cs

/* ****************************************************************************

 * 

 * Copyright (c) 2008 Stefan Rusek and Benjamin Pollack

 * 

 * Permission is hereby granted, free of charge, to any person obtaining a copy

 * of this software and associated documentation files (the "Software"), to deal

 * in the Software without restriction, including without limitation the rights

 * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell

 * copies of the Software, and to permit persons to whom the Software is

 * furnished to do so, subject to the following conditions:

 * 

 * The above copyright notice and this permission notice shall be included in

 * all copies or substantial portions of the Software.

 * 

 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR

 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,

 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE

 * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER

 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,

 * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN

 * THE SOFTWARE.

 * 

 * ***************************************************************************/

using System;

using System.Collections.Generic;

using System.Linq;

using System.Text;

using System.Diagnostics;

using System.Xronos.Language;

using System.Threading;



namespace System.Xronos

{

    static class Statistics

    {

        class ThreadStatistics

        {

            public Stopwatch StartupTime = new Stopwatch();

            public Stopwatch ReaderTime = new Stopwatch();

            public Stopwatch CompilerTime = new Stopwatch();

            public Stopwatch TypeGenerationTime = new Stopwatch();

            public Stopwatch MacroExpandTime = new Stopwatch();

            public Stopwatch ExecutionTime = new Stopwatch();

            public Stopwatch MethodResolutionTime = new Stopwatch();

            public Stopwatch StringInternTime = new Stopwatch();

            public int BindMisses = 0;

        }



        [ThreadStatic]

        static ThreadStatistics _localStats;

        static List<ThreadStatistics> _allStats = new List<ThreadStatistics>();



        private static ThreadStatistics LocalStats

        {

            get

            {

                if (_localStats == null)

                {

                    _localStats = new ThreadStatistics();

                    lock (_allStats)

                        _allStats.Add(_localStats);

                }

                return _localStats;

            }

        }



        public static Stopwatch StartupTime { get { return LocalStats.StartupTime; } }

        public static Stopwatch ReaderTime { get { return LocalStats.ReaderTime; } }

        public static Stopwatch CompilerTime { get { return LocalStats.CompilerTime; } }

        public static Stopwatch TypeGenerationTime { get { return LocalStats.TypeGenerationTime; } }

        public static Stopwatch MacroExpandTime { get { return LocalStats.MacroExpandTime; } }

        public static Stopwatch ExecutionTime { get { return LocalStats.ExecutionTime; } }

        public static Stopwatch MethodResolutionTime { get { return LocalStats.MethodResolutionTime; } }

        public static Stopwatch StringInternTime { get { return LocalStats.StringInternTime; } }

        public static int BindMisses { get { return LocalStats.BindMisses; } }



        public static void IncrementBindMisses()

        {

            Interlocked.Increment(ref LocalStats.BindMisses);

        }



        public static IPersistentMap GetStatistics()

        {

            TimeSpan startup = TimeSpan.Zero, reader = TimeSpan.Zero, compiler = TimeSpan.Zero, typegen = TimeSpan.Zero, execution = TimeSpan.Zero, macros = TimeSpan.Zero, methodres = TimeSpan.Zero, interns = TimeSpan.Zero;

            int misses = 0;



            lock (_allStats)

                foreach (var item in _allStats)

                {

                    startup += item.StartupTime.Elapsed;

                    reader += item.ReaderTime.Elapsed;

                    compiler += item.CompilerTime.Elapsed;

                    typegen += item.TypeGenerationTime.Elapsed;

                    macros += item.MacroExpandTime.Elapsed;

                    execution += item.ExecutionTime.Elapsed;

                    methodres += item.MethodResolutionTime.Elapsed;

                    interns += item.StringInternTime.Elapsed;

                    misses += item.BindMisses;

                }



            return PersistentHashMap.Create(new object[] {

                "Startup",  startup,

                "Reader",  reader,

                "Compiler",  compiler,

                "Type Gen",  typegen,

                "Macroexpand",  macros,

                "Execution",  execution,

                "Method Resolution",  methodres,

                "String Interns", interns,

                "Bind Misses", misses,

            });

        }

    }

}