HeaderParserMP3.h

#pragma once
#include "AudioTools/CoreAudio/AudioBasic/StrView.h"
 
namespace audio_tools {
 
class HeaderParserMP3 {
  struct FrameHeader {
    static const unsigned int SERIALIZED_SIZE = 4;
 
    enum class MPEGVersionID : unsigned {
      MPEG_2_5 = 0b00,
      INVALID = 0b01,  // reserved
      MPEG_2 = 0b10,
      MPEG_1 = 0b11,
    };
 
    enum class LayerID : unsigned {
      INVALID = 0b00,  // reserved
      LAYER_3 = 0b01,
      LAYER_2 = 0b10,
      LAYER_1 = 0b11,
    };
 
    enum class ChannelModeID : unsigned {
      STEREO = 0b00,
      JOINT = 0b01,   // joint stereo
      DUAL = 0b10,    // dual channel (2 mono channels)
      SINGLE = 0b11,  // single channel (mono)
    };
 
    enum class EmphasisID : unsigned {
      NONE = 0b00,
      MS_50_15 = 0b01,
      INVALID = 0b10,
      CCIT_J17 = 0b11,
    };
 
    enum SpecialBitrate { INVALID_BITRATE = -8000, ANY = 0 };
    enum SpecialSampleRate { RESERVED = 0 };
 
    // Parsed fields
    MPEGVersionID audioVersion = MPEGVersionID::INVALID;
    LayerID layer = LayerID::INVALID;
    bool protection = false;
    uint8_t bitrateIndex = 0;     // 0..15
    uint8_t sampleRateIndex = 0;  // 0..3
    bool padding = false;
    bool isPrivate = false;
    ChannelModeID channelMode = ChannelModeID::STEREO;
    uint8_t extensionMode = 0;  // 0..3
    bool copyright = false;
    bool original = false;
    EmphasisID emphasis = EmphasisID::NONE;
 
    // Decode 4 bytes into the fields above. Returns false if sync invalid.
    static bool decode(const uint8_t* b, FrameHeader& out) {
      if (b == nullptr) return false;
      if (!(b[0] == 0xFF && (b[1] & 0xE0) == 0xE0))
        return false;  // 11-bit sync
 
      uint8_t b1 = b[1];
      uint8_t b2 = b[2];
      uint8_t b3 = b[3];
 
      out.audioVersion = static_cast<MPEGVersionID>((b1 >> 3) & 0x03);
      out.layer = static_cast<LayerID>((b1 >> 1) & 0x03);
      out.protection = !(b1 & 0x01);  // 0 means protected (CRC present)
 
      out.bitrateIndex = (b2 >> 4) & 0x0F;
      out.sampleRateIndex = (b2 >> 2) & 0x03;
      out.padding = (b2 >> 1) & 0x01;
      out.isPrivate = (b2 & 0x01) != 0;
 
      out.channelMode = static_cast<ChannelModeID>((b3 >> 6) & 0x03);
      out.extensionMode = (b3 >> 4) & 0x03;
      out.copyright = (b3 >> 3) & 0x01;
      out.original = (b3 >> 2) & 0x01;
      out.emphasis = static_cast<EmphasisID>(b3 & 0x03);
      return true;
    }
 
    signed int getBitRate() const {
      // version, layer, bit index
      static const signed char rateTable[4][4][16] = {
          // version[00] = MPEG_2_5
          {
              // layer[00] = INVALID
              {-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1},
              // layer[01] = LAYER_3
              {0, 1, 2, 3, 4, 5, 6, 7, 8, 10, 12, 14, 16, 18, 20, -1},
              // layer[10] = LAYER_2
              {0, 1, 2, 3, 4, 5, 6, 7, 8, 10, 12, 14, 16, 18, 20, -1},
              // layer[11] = LAYER_1
              {0, 4, 6, 7, 8, 10, 12, 14, 16, 18, 20, 22, 24, 28, 32, -1},
          },
 
          // version[01] = INVALID
          {
              {-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1},
              {-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1},
              {-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1},
              {-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1},
          },
 
          // version[10] = MPEG_2
          {
              // layer[00] = INVALID
              {-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1},
              // layer[01] = LAYER_3
              {0, 1, 2, 3, 4, 5, 6, 7, 8, 10, 12, 14, 16, 18, 20, -1},
              // layer[10] = LAYER_2
              {0, 1, 2, 3, 4, 5, 6, 7, 8, 10, 12, 14, 16, 18, 20, -1},
              // layer[11] = LAYER_1
              {0, 4, 6, 7, 8, 10, 12, 14, 16, 18, 20, 22, 24, 28, 32, -1},
          },
 
          // version[11] = MPEG_1
          {
              // layer[00] = INVALID
              {-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1},
              // layer[01] = LAYER_3
              {0, 4, 5, 6, 7, 8, 10, 12, 14, 16, 20, 24, 28, 32, 40, -1},
              // layer[10] = LAYER_2
              {0, 4, 6, 7, 8, 10, 12, 14, 16, 20, 24, 28, 32, 40, 48, -1},
              // layer[11] = LAYER_1
              {0, 4, 8, 12, 16, 20, 24, 28, 32, 36, 40, 44, 48, 52, 56, -1},
          },
      };
      signed char rate_byte =
          rateTable[(int)audioVersion][(int)layer][(int)bitrateIndex];
      if (rate_byte == -1) {
        LOGE("Unsupported bitrate");
        return 0;
      }
      return rate_byte * 8000;
    }
 
    unsigned short getSampleRate() const {
      // version, sample rate index
      static const unsigned short rateTable[4][4] = {
          // version[00] = MPEG_2_5
          {11025, 12000, 8000, 0},
          // version[01] = INVALID
          {0, 0, 0, 0},
          // version[10] = MPEG_2
          {22050, 24000, 16000, 0},
          // version[11] = MPEG_1
          {44100, 48000, 32000, 0},
      };
 
      return rateTable[(int)audioVersion][(int)sampleRateIndex];
    }
 
    int getFrameLength() const {
      int sample_rate = getSampleRate();
      if (sample_rate == 0) return 0;
      int value =
          (audioVersion == FrameHeader::MPEGVersionID::MPEG_1) ? 144 : 72;
      return int((value * getBitRate() / sample_rate) + (padding ? 1 : 0));
    }
  };
 
 public:
  HeaderParserMP3() = default;
 
  HeaderParserMP3(Print& output, int bufferSize = 2048)
      : p_output(&output), buffer_size(bufferSize) {}
 
  void setOutput(Print& output) { p_output = &output; }
 
  void resize(int size) { buffer_size = size; }
 
  size_t write(const uint8_t* data, size_t len) {
    if (buffer.size() < buffer_size) buffer.resize(buffer_size);
 
    for (int i = 0; i < len; i++) {
      buffer.write(data[i]);
      if (buffer.isFull()) {
        while (processBuffer());
      }
    }
 
    return len;
  }
 
  void flush() {
    if (p_output == nullptr) return;
    while (processBuffer());
  }
 
  bool isValid() { return last_frame_size > 0; }
 
  bool isValid(const uint8_t* data, int len) {
    if (data == nullptr || len < 10) {
      LOGE("Invalid input data or too small");
      return false;
    }
 
    header = FrameHeader{};
    int valid_frames_found = 0;
    int consecutive_frames = 0;
    const int MIN_FRAMES_TO_VALIDATE =
        3;  // Require at least 3 consecutive valid frames
    const int MAX_SEARCH_DISTANCE =
        8192;  // Limit search to prevent endless loops
 
    // Check for ID3v2 tag at beginning
    if (len >= 10 && memcmp(data, "ID3", 3) == 0) {
      LOGI("ID3v2 tag found");
      // Skip ID3v2 tag to find actual audio data
      int id3_size = ((data[6] & 0x7F) << 21) | ((data[7] & 0x7F) << 14) |
                     ((data[8] & 0x7F) << 7) | (data[9] & 0x7F);
      int audio_start = 10 + id3_size;
      if (audio_start < len) {
        return isValid(data + audio_start, len - audio_start);
      }
      return true;  // Valid ID3 tag, assume MP3
    }
 
    // Look for first frame sync
    int sync_pos = seekFrameSync(data, min(len, MAX_SEARCH_DISTANCE));
    if (sync_pos == -1) {
      LOGE("No frame sync found in first %d bytes", MAX_SEARCH_DISTANCE);
      return false;
    }
 
    // Quick check for VBR headers (Xing/Info/VBRI)
    if (contains(data + sync_pos, "Xing", len - sync_pos) ||
        contains(data + sync_pos, "Info", len - sync_pos) ||
        contains(data + sync_pos, "VBRI", len - sync_pos)) {
      LOGI("VBR header found (Xing/Info/VBRI)");
      return true;
    }
 
    // Validate multiple consecutive frames for higher confidence
    int current_pos = sync_pos;
    FrameHeader first_header;
    bool first_header_set = false;
 
    while (current_pos < len &&
           (current_pos - sync_pos) < MAX_SEARCH_DISTANCE) {
      int len_available = len - current_pos;
 
      // Need at least header size
      if (len_available < (int)FrameHeader::SERIALIZED_SIZE) {
        LOGD("Not enough data for header at position %d", current_pos);
        break;
      }
 
      // Read and validate frame header
      FrameHeader temp_header;
      if (!FrameHeader::decode(data + current_pos, temp_header) ||
          validateFrameHeader(temp_header) != FrameReason::VALID) {
        LOGD("Invalid frame header at position %d", current_pos);
        consecutive_frames = 0;
        // Look for next sync
        int next_sync_off =
            seekFrameSync(data + current_pos + 1, len - current_pos - 1);
        if (next_sync_off == -1) break;
        current_pos = current_pos + 1 + next_sync_off;  // Adjust for offset
        continue;
      }
 
      // Calculate frame length
      int frame_len = temp_header.getFrameLength();
      if (frame_len <= 0 || frame_len > 4096) {
        LOGD("Invalid frame length %d at position %d", frame_len, current_pos);
        consecutive_frames = 0;
        current_pos++;
        continue;
      }
 
      // For first valid frame, store header for consistency checking
      if (!first_header_set) {
        first_header = temp_header;
        first_header_set = true;
        header = temp_header;  // Store for external access
 
        // For small buffers, do additional single-frame validation
        if (len < 1024) {
          // Verify this looks like a reasonable MP3 frame
          if (temp_header.getSampleRate() == 0 ||
              temp_header.getBitRate() <= 0) {
            LOGD("Invalid audio parameters in frame at position %d",
                 current_pos);
            first_header_set = false;
            consecutive_frames = 0;
            current_pos++;
            continue;
          }
 
          // Check if frame length is reasonable for the given bitrate
          int expected_frame_size =
              (temp_header.audioVersion == FrameHeader::MPEGVersionID::MPEG_1)
                  ? (144 * temp_header.getBitRate() /
                     temp_header.getSampleRate())
                  : (72 * temp_header.getBitRate() /
                     temp_header.getSampleRate());
          if (abs(frame_len - expected_frame_size) >
              expected_frame_size * 0.1) {  // Allow 10% variance
            LOGD("Frame length %d doesn't match expected %d for bitrate",
                 frame_len, expected_frame_size);
            first_header_set = false;
            consecutive_frames = 0;
            current_pos++;
            continue;
          }
        }
      } else {
        // Check consistency with first frame (sample rate, version, layer
        // should match in CBR)
        if (temp_header.audioVersion != first_header.audioVersion ||
            temp_header.layer != first_header.layer ||
            temp_header.getSampleRate() != first_header.getSampleRate()) {
          LOGD("Frame parameters inconsistent at position %d", current_pos);
          // This might be VBR, but continue validation
        }
      }
 
      valid_frames_found++;
      consecutive_frames++;
 
      // Check if we have enough data for the complete frame
      if (len_available < frame_len) {
        LOGD("Incomplete frame at position %d (need %d, have %d)", current_pos,
             frame_len, len_available);
        break;
      }
 
      // Look for next frame sync at expected position
      int next_pos = current_pos + frame_len;
      if (next_pos + 1 < len) {
        if (seekFrameSync(data + next_pos, min(4, len - next_pos)) == 0) {
          // Found sync at expected position
          current_pos = next_pos;
          continue;
        } else {
          LOGD("No sync at expected position %d", next_pos);
          consecutive_frames = 0;
        }
      } else {
        // End of data reached
        break;
      }
 
      // If we lost sync, search for next frame
      int next_sync =
          seekFrameSync(data + current_pos + 1, len - current_pos - 1);
      if (next_sync == -1) break;
      current_pos = current_pos + 1 + next_sync;
    }
 
    // Adaptive validation criteria based on available data
    bool is_valid_mp3 = false;
 
    if (len >= 2048) {
      // For larger buffers, require strict consecutive frame validation
      is_valid_mp3 = (consecutive_frames >= MIN_FRAMES_TO_VALIDATE);
    } else if (len >= 1024) {
      // For 1KB+ buffers, require at least 2 consecutive frames OR 3 total
      // valid frames
      is_valid_mp3 = (consecutive_frames >= 2) ||
                     (valid_frames_found >= MIN_FRAMES_TO_VALIDATE);
    } else {
      // For smaller buffers, be more lenient - 1 good frame with proper
      // validation
      is_valid_mp3 = (valid_frames_found >= 1) && first_header_set;
    }
 
    if (is_valid_mp3 && first_header_set) {
      LOGI("-------------------");
      LOGI("MP3 validation: VALID");
      LOGI("Data size: %d bytes", len);
      LOGI("Valid frames found: %d", valid_frames_found);
      LOGI("Consecutive frames: %d", consecutive_frames);
      if (len >= 2048) {
        LOGI("Validation mode: STRICT (large buffer)");
      } else if (len >= 1024) {
        LOGI("Validation mode: MODERATE (1KB+ buffer)");
      } else {
        LOGI("Validation mode: LENIENT (small buffer)");
      }
      LOGI("Frame size: %d", getFrameLength());
      LOGI("Sample rate: %u", getSampleRate());
      LOGI("Bit rate: %d", getBitRate());
      LOGI("Padding: %d", getFrameHeader().padding);
      LOGI("Layer: %s (0x%x)", getLayerStr(), (int)getFrameHeader().layer);
      LOGI("Version: %s (0x%x)", getVersionStr(),
           (int)getFrameHeader().audioVersion);
      LOGI("-------------------");
    } else {
      LOGI("MP3 validation: INVALID (frames: %d, consecutive: %d, size: %d)",
           valid_frames_found, consecutive_frames, len);
    }
 
    return is_valid_mp3;
  }
 
  uint16_t getSampleRate() const {
    return frame_header_valid ? header.getSampleRate() : 0;
  }
 
  int getBitRate() const {
    return frame_header_valid ? header.getBitRate() : 0;
  }
 
  int getChannels() const {
    if (!frame_header_valid) return 0;
    // SINGLE = mono (1 channel), all others = stereo (2 channels)
    return (header.channelMode == FrameHeader::ChannelModeID::SINGLE) ? 1 : 2;
  }
 
  int getFrameLength() {
    return frame_header_valid ? header.getFrameLength() : 0;
  }
 
  size_t getPlayingTime(size_t fileSizeBytes) {
    int bitrate = getBitRate();
    if (bitrate == 0) return 0;
    return fileSizeBytes / bitrate;
  }
 
  const char* getVersionStr() const {
    return header.audioVersion == FrameHeader::MPEGVersionID::MPEG_1   ? "1"
           : header.audioVersion == FrameHeader::MPEGVersionID::MPEG_2 ? "2"
           : header.audioVersion == FrameHeader::MPEGVersionID::MPEG_2_5
               ? "2.5"
               : "INVALID";
  }
 
  const char* getLayerStr() const {
    return header.layer == FrameHeader::LayerID::LAYER_1   ? "1"
           : header.layer == FrameHeader::LayerID::LAYER_2 ? "2"
           : header.layer == FrameHeader::LayerID::LAYER_3 ? "3"
                                                           : "INVALID";
  }
 
  int getSamplesPerFrame() {
    if (header.layer != FrameHeader::LayerID::LAYER_3) return 0;
    // samples for layer 3 are fixed
    return header.audioVersion == FrameHeader::MPEGVersionID::MPEG_1 ? 1152
                                                                     : 576;
  }
 
  size_t getTimePerFrameMs() {
    int sample_rate = getSampleRate();
    if (sample_rate == 0) return 0;
    return (1000 * getSamplesPerFrame()) / sample_rate;
  }
 
  size_t getFrameRateHz() {
    int time_per_frame = getTimePerFrameMs();
    if (time_per_frame == 0) return 0;
    return 1000 / time_per_frame;
  }
 
  // provides the parsed MP3 frame header
  FrameHeader getFrameHeader() {
    return frame_header_valid ? header : FrameHeader{};
  }
 
  bool hasValidFrame() const { return frame_header_valid; }
 
  void reset() {
    buffer.reset();
    frame_header_valid = false;
    header = FrameHeader{};
  }
 
  int findSyncWord(const uint8_t* buf, size_t nBytes, uint8_t synch = 0xFF,
                   uint8_t syncl = 0xF0) {
    for (int i = 0; i < nBytes - 1; i++) {
      if ((buf[i + 0] & synch) == synch && (buf[i + 1] & syncl) == syncl)
        return i;
    }
    return -1;
  }
 
 protected:
  FrameHeader header;
  Print* p_output = nullptr;
  SingleBuffer<uint8_t> buffer{0};  // Max MP3 frame ~4KB + reserves
  bool frame_header_valid = false;
  size_t buffer_size = 0;
  size_t last_frame_size = 0;
 
  bool processBuffer() {
    bool progress = false;
    size_t available = buffer.available();
 
    while (available >=
           FrameHeader::SERIALIZED_SIZE) {  // Need 4 bytes for header
      // Get direct access to buffer data
      uint8_t* temp_data = buffer.data();
 
      // Find frame sync
      int sync_pos = seekFrameSync(temp_data, available);
      if (sync_pos == -1) {
        // No sync found, keep last few bytes in case sync spans buffer boundary
        size_t to_remove = (available > 3) ? available - 3 : 0;
        if (to_remove > 0) {
          buffer.clearArray(to_remove);
        }
        // Recompute available after mutation
        available = buffer.available();
        break;
      }
 
      // Remove any data before sync
      if (sync_pos > 0) {
        buffer.clearArray(sync_pos);
        progress = true;
        // Recompute available after mutation
        available = buffer.available();
        continue;  // Check again from new position
      }
 
      // We have sync at position 0, try to read header
      if (available < FrameHeader::SERIALIZED_SIZE) {
        break;  // Need more data for complete header
      }
 
      // Read and validate frame header
      FrameHeader temp_header;
      if (!FrameHeader::decode(temp_data, temp_header) ||
          validateFrameHeader(temp_header) != FrameReason::VALID) {
        // Invalid header, skip this sync and look for next
        buffer.clearArray(1);
        progress = true;
        available = buffer.available();
        continue;
      }
 
      // Calculate frame length
      int frame_len = temp_header.getFrameLength();
      if (frame_len <= 0 ||
          frame_len > buffer_size) {  // Sanity check on frame size
        // Invalid frame length, skip this sync
        buffer.clearArray(1);
        progress = true;
        available = buffer.available();
        continue;
      }
 
      // Check if we have complete frame
      if (available < frame_len) {
        break;  // Need more data for complete frame
      }
 
      // Verify next frame sync if we have enough data
      if (available >= frame_len + 2) {
        if (seekFrameSync(temp_data + frame_len, 2) != 0) {
          // No sync at expected position, this might not be a valid frame
          buffer.clearArray(1);
          progress = true;
          available = buffer.available();
          continue;
        }
      }
 
      // We have a complete valid frame, write it to output
      if (p_output != nullptr) {
        size_t written = p_output->write(temp_data, frame_len);
        if (written != frame_len) {
          // Output error, we still need to remove the frame from buffer
          LOGE("Failed to write complete frame");
        }
      }
 
      // Update header for external access
      last_frame_size = frame_len;
      header = temp_header;
      frame_header_valid = true;
 
      // Remove processed frame from buffer
      buffer.clearArray(frame_len);
      available = buffer.available();
 
      progress = true;
    }
 
    return progress;
  }
 
  bool validate(const uint8_t* data, size_t len) {
    (void)data;
    (void)len;
    return FrameReason::VALID == validateFrameHeader(header);
  }
 
  bool contains(const uint8_t* data, const char* toFind, size_t len) {
    if (data == nullptr || len == 0) return false;
    int find_str_len = strlen(toFind);
    for (int j = 0; j < len - find_str_len; j++) {
      if (memcmp(data + j, toFind, find_str_len) == 0) return true;
    }
    return false;
  }
 
  // Seeks to the byte at the end of the next continuous run of 11 set bits.
  //(ie. after seeking the cursor will be on the byte of which its 3 most
  // significant bits are part of the frame sync)
  int seekFrameSync(const uint8_t* str, size_t len) {
    for (int j = 0; j < static_cast<int>(len) - 1; j++) {
      // Look for 11-bit sync: 0xFFE? (0xFF followed by next byte with 0xE0 set)
      if (str[j] == 0xFF && (str[j + 1] & 0xE0) == 0xE0) {
        return j;
      }
    }
    return -1;
  }
 
  void readFrameHeader(const uint8_t* data) {
    if (!FrameHeader::decode(data, header)) return;
    LOGI("- sample rate: %u", getSampleRate());
    LOGI("- bit rate: %d", getBitRate());
  }
 
  enum class FrameReason {
    VALID,
    INVALID_BITRATE_FOR_VERSION,
    INVALID_SAMPLERATE_FOR_VERSION,
    INVALID_MPEG_VERSION,
    INVALID_LAYER,
    INVALID_LAYER_II_BITRATE_AND_MODE,
    INVALID_EMPHASIS,
    INVALID_CRC,
  };
 
  FrameReason validateFrameHeader(const FrameHeader& header) {
    if (header.audioVersion == FrameHeader::MPEGVersionID::INVALID) {
      LOGI("invalid mpeg version");
      return FrameReason::INVALID_MPEG_VERSION;
    }
 
    if (header.layer == FrameHeader::LayerID::INVALID) {
      LOGI("invalid layer");
      return FrameReason::INVALID_LAYER;
    }
 
    if (header.getBitRate() <= 0) {
      LOGI("invalid bitrate");
      return FrameReason::INVALID_BITRATE_FOR_VERSION;
    }
 
    if (header.getSampleRate() ==
        (unsigned short)FrameHeader::SpecialSampleRate::RESERVED) {
      LOGI("invalid samplerate");
      return FrameReason::INVALID_SAMPLERATE_FOR_VERSION;
    }
 
    // For Layer II there are some combinations of bitrate and mode which are
    // not allowed
    if (header.layer == FrameHeader::LayerID::LAYER_2) {
      if (header.channelMode == FrameHeader::ChannelModeID::SINGLE) {
        if (header.getBitRate() >= 224000) {
          LOGI("invalid bitrate >224000");
          return FrameReason::INVALID_LAYER_II_BITRATE_AND_MODE;
        }
      } else {
        if (header.getBitRate() >= 32000 && header.getBitRate() <= 56000) {
          LOGI("invalid bitrate >32000");
          return FrameReason::INVALID_LAYER_II_BITRATE_AND_MODE;
        }
 
        if (header.getBitRate() == 80000) {
          LOGI("invalid bitrate >80000");
          return FrameReason::INVALID_LAYER_II_BITRATE_AND_MODE;
        }
      }
    }
 
    if (header.emphasis == FrameHeader::EmphasisID::INVALID) {
      LOGI("invalid Emphasis");
      return FrameReason::INVALID_EMPHASIS;
    }
 
    return FrameReason::VALID;
  }
};
 
}  // namespace audio_tools