/********************************************************************
В папке "RMC" на диске имеется множество папок, в которых
содержатся файлы wav с записями телефонных звонков. Файлы имеют имя
определённого формата, который задаётся соответствующим приложением.
Для удобства папки имеют имена в формате yyyy-mn, соответствующие
году и месяцу. Внутри находятся записи за соответствующий срок.
Программа при запуске запрашивает имя папки (т.е. год-месяц), из записей
которой необходимо сформировать мультисессию. Результирующий файл
сохраняется в том же каталоге, где расположена обрабатываемая папка,
то есть в папке "RMC" на диске "I:".
*********************************************************************/
#include <windows.h>
#include <stdio.h>
#include <string.h>
DWORD wr; //Сюда пишется, сколько байт прочитано;
DWORD ww; //Сюда пишется, сколько байт записано;
DWORD wi; //Сюда пишется, сколько байт записано;
//День недели по дате (эту функцию я нашёл в интернете);
int Date( int D, int M, int Y ){
    int a, y, m, R;
    a = ( 14 - M ) / 12;
    y = Y - a;
    m = M + 12 * a - 2;
    R = 6999 + ( D + y + y / 4 - y / 100 + y / 400 + (31 * m) / 12 );
    return R % 7;
}
//Открыть файл для чтения;
HANDLE openInputFile(const char * filename) {
       return CreateFile ( filename,      // Open Two.txt.
            GENERIC_READ,          // Open for writing
            0,                      // Do not share
            NULL,                   // No security
            OPEN_ALWAYS,            // Open or create
            FILE_ATTRIBUTE_NORMAL,  // Normal file
            NULL);                  // No template file
}
//Открыть файл для записи;
HANDLE openOutputFile(const char * filename) {
       return CreateFile ( filename,      // Open Two.txt.
            GENERIC_WRITE,          // Open for writing
            0,                      // Do not share
            NULL,                   // No security
            OPEN_ALWAYS,            // Open or create
            FILE_ATTRIBUTE_NORMAL,  // Normal file
            NULL);                  // No template file
}
//Перейти на позицию в файле;
void filepos(HANDLE f, __int64 p){
  LONG HPos;
  LONG LPos;
  HPos = p>>32;
  LPos = p;
  SetFilePointer (f, LPos, &HPos, FILE_BEGIN);
}
//Запись 32-битного целого числа;
void write32(HANDLE f, signed long int a){
  WriteFile(f, &a, 4, &ww, NULL);
}
//Заполнить одинаковыми байтами;
void fill(HANDLE f, signed long int a, unsigned char c){
  unsigned char i;
  for(i=0;i<c;i++){
    write32(f,a);
  }
}
int main(){
  HANDLE out; //Выходной файл мультисессии Adobe Audition;
  HANDLE stat; //Файл с готовым содержимым блока "stat" (+ заголовки);
  HANDLE cues; //Файл с готовым содержимым блока "cues";
  HANDLE lf; //Файл для записи формируемого блока "LISTFILE";
  HANDLE blk; //Файл для записи формируемого блока "bk20";
  char* week[7]={"ПН", "ВТ", "СР", "ЧТ", "ПТ", "СБ", "ВС"}; //Дни недели по-русски;
  unsigned char dm[]={31,29,31,30,31,30,31,31,30,31,30,31}; //Число дней в месяцах;
  unsigned char p_cues=1; //Параметр: наличие ежечасных маркеров (cues);
  unsigned char p_R=1; //Параметр: визуальный флаг "R" (трек на запись) на трек выходного дня;
  unsigned char p_lock=1; //Параметр: фиксировать аудиоклипы во времени;
  unsigned char p_color=2; //Критерий цветовой раскраски аудиоклипов;
  unsigned char flg; //Вспомогательный флаг, нужен при сопоставлении тел. номеров с цветами;
  unsigned long int lfsize=0; //Размер блока "LISTFILE";
  unsigned long int blksize=0; //Размер блока "bk20";
  unsigned long int smp; //Число семплов ф аудиофайле;
  unsigned long int offset; //Смещение аудиоклипа от начала мультисессии;
  unsigned int cfile=0; //Число обработанных файлов;
  unsigned int cblk=0; //Число обработанных аудиоклипов;
  char name[100]; //Имя входного файла (и не только...);
  char fullname[100]; //Полное имя входного файла вместе с путём;
  char infld[8]; //Имя обрабатываемой папки;
  char number[11]; //Часть имени файла с тел. номером;
  unsigned char len; //Число символов в имени файла;
  printf("Input yyyy-dd name of folder:\n"); //Введите год и месяц;
  scanf("%s",infld); //Защита от некорректного ввода пока что отсутствует;
  WIN32_FIND_DATA fld; //Создаём структуру для доступа к атрибутам входных файлов;
  HANDLE hf; //Входной файл (в обработке не используется, так как нужны только атрибуты);
  char buf1[48],buf2[556]; //Вспомогательные буферы для копирования блоков "stat" и "cues";
  char str[16]; //Буфер для имени трека;
  unsigned long int outpos=0; //Файловый курсор выходного файла;
  unsigned char byte; //Вспомогательная переменная для побайтного копирования блоков "LISTFILE" и "bk20";
  unsigned char i; //Переменная для цикла;
  unsigned char mn,d,dw,h,m,s; //Переменные даты-времени;
  unsigned char cdm; //Число дней в выбранном месяце;
  int yy; //И отдельно год;
  yy=2000+(infld[2]-48)*10+(infld[3]-48); //Получаем год из входной строки;
  mn=(infld[5]-48)*10+(infld[6]-48); //Получаем месяц из входной строки;
  sprintf(name,"I:\\RMC\\%s.ses",infld); //Формируем полное имя выходного файла (с путём);
  out=openOutputFile(name); //Открываем выходной файл для записи;
  WriteFile(out, "COOLNESS", 8, &wi, NULL); //Начинаем формировать: сначала запишем главный заголовок;
  write32(out,0); //Пока пишем ноль (ибо не знаем, сколько будет весить весь файл);
  WriteFile(out, "hdr ", 4, &wi, NULL); //Далее, как по моей спецификации: блок заголовка;
  write32(out,936); //Размер блока заголовка статический, равен 936;
  write32(out,8000); //Частота семплов в мультисессии;
  write32(out,24*3600*8000); //Длинна мультисессии в семплах (соотв. 24 часам);
  write32(out,0); //Число аудиоблоков в сессии (пока неизвестно);
  write32(out,0x00010020);
  write32(out,0);
  write32(out,0x3ff00000);
  write32(out,0);
  write32(out,0x3ff00000);
  filepos(out,328); //Оставляем позади кучу нулей;
  write32(out,0x20);
  WriteFile(out, "Мастер", 6, &wi, NULL); //Так надо типа;
  filepos(out,376); //Оставляем позади кучу нулей;
  write32(out,0x3ff00000);
  filepos(out,892); //Оставляем позади кучу нулей;
  write32(out,0x0430041c);
  write32(out,0x04420441);
  write32(out,0x04400435);
  filepos(out,956); //Оставляем позади кучу нулей;
  stat=openInputFile("stat_31_full.BLK"); //Переписываем блок состояния сессии из заготовки,
  ReadFile(stat, &buf1, 48, &wr, NULL); //ибо я не заморачивался с его побайтным разбором;
  WriteFile(out, buf1, 48, &wi, NULL);
  CloseHandle(stat);
  if(mn==2){ //Если февраль,
    if(!(yy%4)){ //и если високосный год,
      cdm=29; //то 29 дней,
    }else{
      cdm=28; //иначе - 28;
    }
  }else{ //Если не февраль,
    cdm=dm[mn-1]; //то число дней берём из заранее подготовленного массива;
  }
  WriteFile(out, "trks", 4, &wi, NULL); //Готовимся формировать блок с треками;
  write32(out,4+cdm*152); //Размер блока с треками можно расчитать так;
  write32(out,cdm); //Число треков соответствует числу дней в выбранном месяце;
  outpos=1016; //Не забываем обновлять переменную файлового курсора;
  for(i=0;i<cdm;i++){ //Цикл на число дней в выбранном месяце
    dw=Date(i+1,mn,yy); //Получам номер дня недели по дате;
    write32(out,0); //Такие константы часто втречаются в файле ses, но я не знаю что это такое;
    write32(out,0x3ff00000);
    write32(out,0); //Скорее всего это 8-байтовый тип double;
    write32(out,0x3ff00000);
    if((dw%7==5||dw%7==6)&&p_R){ //Если текущий трек - выходной день, и если разрешено ставить маркер "R",
      write32(out,4); //тогда тавим флаг для маркера "R",
    }else{
      write32(out,0); //иначе - не ставим ничего;
    }
    sprintf(str,"%02d.%02d.%i %s",i+1,mn,yy,week[dw]); //Формируем имя трека, как моей душе угодно;
    WriteFile(out, str, strlen(str), &wi, NULL);
    filepos(out,1072+152*i); //Именно в этой позиции заканчивается имя (i+1)-го трека;
    write32(out,1); //Далее идут константы, в которых я не разбирался;
    write32(out,1);
    write32(out,4);
    write32(out,0);
    write32(out,0);
    write32(out,0x40590000);
    write32(out,0);
    write32(out,0);
    write32(out,0xffffff9d);
    write32(out,0xffffff9d);
    write32(out,i+1); //Приписываем идентификатор трека, как его порядковый номер;
    fill(out,0,11);
    write32(out,4);
    write32(out,0);
    outpos+=152; //Обновляем файловый курсор;
  }
  if(p_cues){ //Если задано в параметре расставить маркеры через каждый час, то формируем блок "cues";
    WriteFile(out, "cues", 4, &wi, NULL); //Предварительно формируем заголовок,
    write32(out,556); //а также - размер содержимого;
    cues=openInputFile("cues_24h.BLK"); //Данный блок уже готовый, но без заголовка;
    ReadFile(cues, &buf2, 556, &wr, NULL); //(хотя можно было сделать полностью, как в "stat");
    WriteFile(out, buf2, 556, &wi, NULL);
    CloseHandle(cues);
    outpos+=564;
  }
  DeleteFile("LISTFILE"); //Предварительно удалив (если они существуют от предыдущей работы программы)
  DeleteFile("bk20"); //временные файлы "LISTFILE" и "bk20",
  lf=openOutputFile("LISTFILE"); //открываем (создаём) их для накопления содержимым
  blk=openOutputFile("bk20"); //в результате сканирования папки с входными файлами;
  WriteFile(lf, "LISTFILE", 8, &wi, NULL); //Перед сканированием папки записывам заголовки блоков;
  WriteFile(blk, "bk20", 4, &wi, NULL);
  write32(lf,0);
  write32(blk,0);
  write32(blk,0);
  write32(blk,0x48); //Как я выяснил, это длина подблока для одного аудиоклипа;
  sprintf(name,"I:\\RMC\\%s\\*.wav",infld); //Шаблон поиска всех wav файлов в запрашиваемой папке;
  hf=FindFirstFile(name,&fld); //Ищем первый файл;
  do{ //Затем следующие файлы;
    len=strlen(fld.cFileName); //Число символов в имени файла;
    for(i=10;i>=1;i--){ //Переписываем последние 10 символов имени файла в буфер номера;
      number[10-i]=fld.cFileName[len-i-4]; //Без расширения файла;
    }
    number[10]=0; //Выставляем ноль в конце, как признак конца строки;
    cfile+=1; //Увеличиваем счётчик количества файлов;
    sprintf(fullname,"I:\\RMC\\%s\\%s",infld,fld.cFileName); //Формируем полное имя файла с путём;
    d=(fld.cFileName[22]-48)*10+(fld.cFileName[23]-48); //Вычисляем дату (день) из имени файла;
    h=(fld.cFileName[25]-48)*10+(fld.cFileName[26]-48); //Вычисляем час из имени файла;
    m=(fld.cFileName[27]-48)*10+(fld.cFileName[28]-48); //Вычисляем минуту из имени файла;
    s=(fld.cFileName[29]-48)*10+(fld.cFileName[30]-48); //Вычисляем секунду из имени файла;
    offset=(h*3600+m*60+s)*8000; //Вычисляем смещение аудиоклипа в сессии;
    smp=(fld.nFileSizeLow-44)/4; //Вычисляем длительность аудио в семплах (псевдовычисление через размер файла);
    WriteFile(lf, "wav ", 4, &wi, NULL); //Начинаем формировать запись подблока списка файлов;
    write32(lf,17+strlen(fullname)); //Запись размера подблока (его можно вычислить именно так);
    write32(lf,1000+cfile); //Идентификатор файла (можно рандомно, но я решил начать с 1000 и по порядку);
    write32(lf,0x14); //Тип файла (формат аудио);
    WriteFile(lf, fullname, strlen(fullname), &wi, NULL); //Путь к файлу (полное имя);
    WriteFile(lf, "\0", 1, &wi, NULL); //Конец строки полного имени;
    write32(lf,0xffffffff); //Отступ;
    write32(lf,smp); //Длительность аудио в семплах;
    lfsize+=(25+strlen(fullname)); //Обновляем размер блока "LISTFILE";
    cblk+=1; //Формируем блок аудиоклипа на текущий аудиофайл;
    write32(blk,0); //Здесь должна быть ссылка на огибающую, но они в нашей задаче не востребованы;
    write32(blk,1000+cfile); //Ссылка на аудиофайл (соответствие);
    write32(blk,0); //Опять те самые константы;
    write32(blk,0x3ff00000);
    write32(blk,0);
    write32(blk,0x3ff00000);
    write32(blk,offset); //Записываем смещение аудиоклипа в мультисессии;
    if(((24*3600*8000)-offset)>smp){ //Если аудиофайл (по длительности) не выходит на следующие сутки,
      write32(blk,smp); //оставляем длительность аудиоклипа в мультисессии полной,
    }else{
      write32(blk,(24*3600*8000)-offset); //иначе обрезаем длительность аудиоклипа на конце текущих суток;
    }
    write32(blk,0); //Начало аудиоклипа совпадает с началом аудиофайла;
    if(p_lock){ //Если в параметре задана фиксация аудиоклипов во времени,
      write32(blk,0x0008000a); //дополняем флаговый блок соответствующим битом (3 бита из 32 установлены),
    }else{
      write32(blk,0x00080008); //иначе оставляем без этого бита(2 бита из 32 установлены);
    } //Один из двух битов выше - флаг свойства "клип только для воспроизведения";
    write32(blk,d); //Ссылка на трек (соответствует дате);
    fill(blk,0,4); //Куча нулей;
    switch(p_color){ //Признак цветовой раскраски аудиоклипов;
      case 1: //Входящий или исходящий вызовы;
        switch(fld.cFileName[0]){ //Анализируем первый символ в имени файла;
          case 'I': //Если "I" (псевдо признак входящего вызова),
            write32(blk,0); //записываем красный цвет;
          break;
          case 'O': //Если "O" (псевдо признак исходящего вызова),
            write32(blk,102); //записываем зелёный цвет (значение по умолчанию);
          break;
          default: //Если вдруг что-то другое,
            write32(blk,102); //оставляем значение по умолчанию;
          break;
        }
      break;
      case 2: //Раскраска по номерам;
        flg=0; //Сбрасываем флаг;
        if(!strcmp("9530000000",number)){ //Если такой-то такой-то номер,
          write32(blk,05); //то цвет такой-то такой-то,
          flg=1; //(номер найден);
        }
        #include "numbers_and_colors.cpp" //Код со списком номеров и цветов - в отдельном файле (продолжение);
        if(!flg){ //Если флаг не поменял значение (номер не был найден в списке),
          write32(blk,102); //оставляем цвет клипа по умолчанию;
        }
      break;
    }
    write32(blk,0);
    write32(blk,0);
    if(((24*3600*8000)-offset)<=smp){ //Если аудиофайл (по длительности) выходит на следующие сутки (редкий случай),
      cblk+=1; //формируем ещё один аудиоклип на текущий файл;
      write32(blk,0); //Далее всё по аналогии, как выше;
      write32(blk,1000+cfile);
      write32(blk,0);
      write32(blk,0x3ff00000);
      write32(blk,0);
      write32(blk,0x3ff00000);
      write32(blk,0); //Но теперь данный аудиоклип ставится в самое начало мультисесисии,
      write32(blk,smp-((24*3600*8000)-offset)); //по длине на оставшееся время,
      write32(blk,(24*3600*8000)-offset); //и звучит не сначала аудиофайла, а как продолжение предыдущего аудиоклипа;
      if(p_lock){
        write32(blk,0x0008000a);
      }else{
        write32(blk,0x00080008);
      }
      write32(blk,d+1); //Ставим второй (дополнительный) аудиоклип на следующий трек (день);
      fill(blk,0,4);
      switch(p_color){ //В зависимости от параметра критерия раскраски;
        case 1: //Раскраска по типу вызова;
          switch(fld.cFileName[0]){ //Распознаём по первому симполу в имени файла (псевдо признак);
            case 'I': //Если входящий,
              write32(blk,0); //то цвет красный;
            break;
            case 'O': //Если исходящий,
              write32(blk,102); //то цвет зелёный, как по умолчанию;
            break;
            default: //Если вдруг что-то ещё (не дай бог),
              write32(blk,102); //то цвет по умолчанию;
            break;
          }
        break;
        case 2: //Раскраска по номерам;
          flg=0;
          if(!strcmp("9530000000",number)){ //Если такой-то такой-то номер,
            write32(blk,05); //то цвет такой-то такой-то,
            flg=1; //(номер найден);
          }
          #include "numbers_and_colors.cpp" //и так для всех раскрашиваемых номеров (во вложении);
          if(!flg){ //Если номер не найден,
            write32(blk,102); //то цвет по умолчанию;
          }
        break;
      }
      write32(blk,0);
      write32(blk,0);
    }
  }while(FindNextFile(hf,&fld)); //Пока не кончатся все wav файлы;
  filepos(lf,8);
  write32(lf,lfsize); //Записываем размер блока "LISTFILE", который накапливали в переменную;
  filepos(blk,4);
  blksize=8+72*cblk; //Расчитываем размер блока "bk20", зная количество аудиоклипов;
  write32(blk,blksize); //Записываем размер блока "bk20";
  write32(blk,cblk); //Записываем количество аудиоклипов;
  blksize+=8; //Корректируем размер блока "bk20", чтобы приравняться к размеру соотв. временного файла;
  lfsize+=12; //Корректируем размер блока "LISTFILE", чтобы приравняться к размеру соотв. временного файла;
  CloseHandle(lf); //Закрываем врем. файл;
  CloseHandle(blk); //Закрываем врем. файл;
  lf=openInputFile("LISTFILE"); //Открываем врем. файл на чтение для перезаписи в основной;
  do{ //Перезапись происходит побайтно, пока не конец файла (есть байты на чтение);
    ReadFile(lf, &byte, 1, &wr, NULL);
    if(wr){
      WriteFile(out, &byte, 1, &wi, NULL);
    }
  }while(wr);
  CloseHandle(lf); //Закрываем врем. файл;
  blk=openInputFile("bk20"); //Открываем врем. файл на чтение для перезаписи в основной;
  do{ //Перезапись происходит побайтно, пока не конец файла (есть байты на чтение);
    ReadFile(blk, &byte, 1, &wr, NULL);
    if(wr){
      WriteFile(out, &byte, 1, &wi, NULL);
    }
  }while(wr);
  CloseHandle(blk); //Закрываем врем. файл;
  outpos=outpos+blksize+lfsize; //Обновляем файловый курсор выходного файла;
  filepos(out,8);
  write32(out,outpos-12); //Записываем в начале выходного файла размер содержимого;
  filepos(out,28);
  write32(out,cblk); //Записываем в блок главного заголовка число аудиоклипов;
  CloseHandle(out); //Выходной файл мультисессии готов! Закрываем его;
  printf("c_files: %i\nc_block: %i\n",cfile,cblk); //Выводим информацию на экран (число файлов и клипов);
  system("PAUSE");
  return 0;
}