1.1.4Освобождение физического места в файле после удаления элемента из списка

//Функция освобождения места в файле после удаления элемента из списка

//Параметры:файловая переменная f,позиция удаляемого элемента delPos

void deleteFromFile(FILE *&f,int delPos)

{TSStudF stud;

// читаем заголовок списка дыр из файла

rewind(f);

fread(&stud,sizeof(TSStudF),1,f);

// в прочитанном заголовке в поле Next находится адрес первой дыры

// теперь эта дыра будет второй, значит то, что записано в поле Next

// заголовочной записи, записываем в поле next новой дыры, теперь она

// первая. Надписываем не отдельно значение поля Next, а полностью

//запись, так как информация в дырах для нас не важна

fseek(f,delPos,SEEK_SET);

fwrite(&stud,sizeof(TSStudF),1,f);

// Изменяем поле Next заголовочной записи, теперь в нем адрес вновь

//добавленной дыры

stud.Next=delPos;

rewind(f);

fwrite(&stud,sizeof(TSStudF),1,f);

}

//Функция добавления нового элемента в упорядоченный список в файле

//Параметры:файловая переменная f,St - смещение(адрес) первого элемента списка,

//позиция записи нового элемента в файл newPos

void addToSortList(FILE *&f,int &St,int newPos)

{TSStudF stud,studNew;

int pp,wp;

// читаем новый элемент, нам понадобится его ключевое поле

fseek(f,newPos,SEEK_SET);

fread(&studNew,sizeof(TSStudF),1,f);

// инициализация рабочих указателей

wp=St;

pp=-1;

// цикл для поиска места вставки нового элемента

while (wp!=-1)

{ fseek(f,wp,SEEK_SET);

fread(&stud,sizeof(TSStudF),1,f); //читаем текущий элемент списка

if (strcmp(studNew.fam, stud.fam)<=0) break;// если нашли место вставки, то выход из цикла

pp=wp; // иначе переходим к следующему элементу

wp=stud.Next;

};

// После цикла wp и pp содержат адреса элементов,

// между которыми необходимо вставить новый в списке

// в поле Next нового элемента

//заносим wp - адрес следующего и перезаписываем

// новый элемент обратно в файл

studNew.Next=wp;

fseek(f,newPos,SEEK_SET);

fwrite(&studNew,sizeof(TSStudF),1,f);

// проверяем - новый элемент будет первым в списке

// или нет

if (pp==-1) St=newPos; // если первый, то начало списка St будет содержать его адрес

else

{

// если не первый, то у предыдущего

// элемента в поле Next заносим

//адрес нового

fseek(f,pp,SEEK_SET);

fread(&stud,sizeof(TSStudF),1,f);

stud.Next=newPos;

fseek(f,pp,SEEK_SET);// после изменения поля Next у

// предыдущего элемента, его необходимо

// перезаписать обратно в файл

fwrite(&stud,sizeof(TSStudF),1,f);

};

}