/*

   This Source Code Form is subject to the terms of the Mozilla Public

   License, v. 2.0. If a copy of the MPL was not distributed with this

   file, You can obtain one at http://mozilla.org/MPL/2.0/.

   Copyright (C) 2009-2011 Michael Möller <mmoeller@openhardwaremonitor.org>

 */

 using System.Globalization;

 using System.Text;

 namespace OpenHardwareMonitor.Hardware.LPC {

   internal class F718XX : ISuperIO {

     private readonly ushort address;

     private readonly Chip chip;

     private readonly float?[] voltages;

     private readonly float?[] temperatures;

     private readonly float?[] fans;

     private readonly float?[] controls;

     // Hardware Monitor

     private const byte ADDRESS_REGISTER_OFFSET = 0x05;

     private const byte DATA_REGISTER_OFFSET = 0x06;

     // Hardware Monitor Registers

     private const byte VOLTAGE_BASE_REG = 0x20;

     private const byte TEMPERATURE_CONFIG_REG = 0x69;

     private const byte TEMPERATURE_BASE_REG = 0x70;

     private readonly byte[] FAN_TACHOMETER_REG = 

       new byte[] { 0xA0, 0xB0, 0xC0, 0xD0 };

     private byte ReadByte(byte register) {

       Ring0.WriteIoPort(

         (ushort)(address + ADDRESS_REGISTER_OFFSET), register);

       return Ring0.ReadIoPort((ushort)(address + DATA_REGISTER_OFFSET));

     }

     public byte? ReadGPIO(int index) {

       return null;

     }

     public void WriteGPIO(int index, byte value) { }

     public void SetControl(int index, byte? value) { }   

     public F718XX(Chip chip, ushort address) {

       this.address = address;

       this.chip = chip;

       voltages = new float?[chip == Chip.F71858 ? 3 : 9];

       temperatures = new float?[chip == Chip.F71808E ? 2 : 3];

       fans = new float?[chip == Chip.F71882 || chip == Chip.F71858 ? 4 : 3];

       controls = new float?[0];

     }

     public Chip Chip { get { return chip; } }

     public float?[] Voltages { get { return voltages; } }

     public float?[] Temperatures { get { return temperatures; } }

     public float?[] Fans { get { return fans; } }

     public float?[] Controls { get { return controls; } }

     public string GetReport() {

       StringBuilder r = new StringBuilder();

       r.AppendLine("LPC " + this.GetType().Name);

       r.AppendLine();

       r.Append("Base Adress: 0x"); 

       r.AppendLine(address.ToString("X4", CultureInfo.InvariantCulture));

       r.AppendLine();

       if (!Ring0.WaitIsaBusMutex(100))

         return r.ToString();

       r.AppendLine("Hardware Monitor Registers");

       r.AppendLine();

       r.AppendLine("      00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F");

       r.AppendLine();

       for (int i = 0; i <= 0xF; i++) {

         r.Append(" "); 

         r.Append((i << 4).ToString("X2", CultureInfo.InvariantCulture)); 

         r.Append("  ");

         for (int j = 0; j <= 0xF; j++) {

           r.Append(" ");

           r.Append(ReadByte((byte)((i << 4) | j)).ToString("X2", 

             CultureInfo.InvariantCulture));

         }

         r.AppendLine();

       }

       r.AppendLine();

       Ring0.ReleaseIsaBusMutex();

       return r.ToString();

     }

     public void Update() {

       if (!Ring0.WaitIsaBusMutex(10))

         return;

       for (int i = 0; i < voltages.Length; i++) {

         if (chip == Chip.F71808E && i == 6) {

           // 0x26 is reserved on F71808E

           voltages[i] = 0;

         } else {

           int value = ReadByte((byte)(VOLTAGE_BASE_REG + i));

           voltages[i] = 0.008f * value;

         }

       }

       for (int i = 0; i < temperatures.Length; i++) {

         switch (chip) {

           case Chip.F71858: {

               int tableMode = 0x3 & ReadByte(TEMPERATURE_CONFIG_REG);

               int high = 

                 ReadByte((byte)(TEMPERATURE_BASE_REG + 2 * i));

               int low =

                 ReadByte((byte)(TEMPERATURE_BASE_REG + 2 * i + 1));              

               if (high != 0xbb && high != 0xcc) {

                 int bits = 0;

                 switch (tableMode) {

                   case 0: bits = 0; break;

                   case 1: bits = 0; break;

                   case 2: bits = (high & 0x80) << 8; break;

                   case 3: bits = (low & 0x01) << 15; break;

                 }

                 bits |= high << 7;

                 bits |= (low & 0xe0) >> 1;

                 short value = (short)(bits & 0xfff0);

                 temperatures[i] = value / 128.0f;

               } else {

                 temperatures[i] = null;

               }

           } break;

           default: {

             sbyte value = (sbyte)ReadByte((byte)(

               TEMPERATURE_BASE_REG + 2 * (i + 1)));            

             if (value < sbyte.MaxValue && value > 0)

               temperatures[i] = value;

             else

               temperatures[i] = null;

           } break;

         }

       }

       for (int i = 0; i < fans.Length; i++) {

         int value = ReadByte(FAN_TACHOMETER_REG[i]) << 8;

         value |= ReadByte((byte)(FAN_TACHOMETER_REG[i] + 1));

         if (value > 0) 

           fans[i] = (value < 0x0fff) ? 1.5e6f / value : 0;

         else 

           fans[i] = null;        

       }

       Ring0.ReleaseIsaBusMutex();

     }

   }

 }