tuje6QGv

1create table File
2	(
3		 id char(30) not null,
4		 position int not null unique,
5		 primary key (id)
6		);
7
8create table Cluster
9	(
10		id int not null,
11		next int not null, -- ми не можемо поставити це поле unique бо -1 повторюється
12		primary key (id)
13		);
14
15
16create procedure Copy
17	@fileId char(30)
18	as
19	begin		
20		declare @curr int -- поточний елемент ланцюга існуючого файла
21		declare @prev int -- попепедній елемент якщо він існує
22		declare @first int -- ми маємо запам'ятати початок
23		set @curr = (select position from File where id = @fileId)
24		set @prev = null
25		set @first = null
26
27		while @curr <> -1
28		begin
29			while 1 = 1 -- намагаємося виконати транзакцію (вставити рядок поточного елемета ланцюга) поки вона не буде успішною
30			begin
31				set transaction isolation level read uncommitted
32				begin transaction
33					begin try -- якщо ми спробуємо вставити щось на вже існуючий рядок, то перейдемо в catch і будемо повторювати поки операція не буде успішною 
34						@declare lastId int -- перший індекс починаючи з 0, який не зайнятий 
35						set @lastId = 0
36						while exists (select * from Cluster where id = @lastId)
37						begin
38							set @lastId = @lastId + 1;
39						end			
40
41						insert into Cluster -- спробуємо зайняти цей рядок копією елемента ланцюга
42						values (@lastId, -1) 
43						if @prev <> null -- тільки якщо існує попередній ми маємо проставити його next на поточний
44						begin
45							update Cluster
46							set next = @lastId
47							where id = @prev
48						end
49						set @prev = @listId -- перехід 
50						set @curr = (select next from Clister where id = @curr)
51						if @first = null
52							set @first = @lastId
53						waitfor delay '00:00:05'
54						commit
55						break
56					end try
57					begin catch
58						rollback transaction
59						continue
60						end catch
61					end
62				end
63			end
64		end
65
66		insert into File
67		values (@fileId + 'copy', @first)
68	end