Undo & Redo

Привет!

На днях появилась задача реализовать Undo<->Redo в своей программе. В голову приходит такая мысль : создать историю, которая будет хранить в себе список совершенных действий, и при Undo вызывать действия - антиподы.

Придется писать парсер всех возможных действий... что то это запарно слишком...

С такой задачей столкнулся впервые.

Может быть существуют менее трудозатратные методики? Если да то поделитесь пожалуйста знаниями =)

если данных совсем немного то можно при каждом действии сохранять всё состояние программы, если данных много то действия и антидействия довольно хороший подход

[ABTOMAT]

Сообщение от Diablo1909

Привет!

На днях появилась задача реализовать Undo<->Redo в своей программе. В голову приходит такая мысль : создать историю, которая будет хранить в себе список совершенных действий, и при Undo вызывать действия - антиподы.

Придется писать парсер всех возможных действий... что то это запарно слишком...

С такой задачей столкнулся впервые.

Может быть существуют менее трудозатратные методики? Если да то поделитесь пожалуйста знаниями =)

А все ли действия будут обратимы?

Программа - большая, поэтому сохранять стэйты проблематично.

А все ли действия будут обратимы?

Хотелось, бы... но хрен знает как оно получится на практике... программа - редактор игровых уровней ( анимация, физика и.т.д. )

Также появилась мысль - задействовать скриптовик Lua. После каждого действия генерить Undo и Redo строчки кода на языке Lua. И когда надо обратить\вернуть что-то - то скармливать нужные строки скриптовому движку. Наверно так и поступлю =)

Каркас Undo\Redo для ваших программ. Может кому пригодится.

rem
	History module
end rem

Function CanUndo:Byte()
	Return Not undoList.IsEmpty()
End Function

Function Undo()
	If undoList.IsEmpty() Then Return
	Local h:THistory = THistory(undoList.RemoveLast())
	h.Undo()
	redoList.AddFirst(h)
End Function

Function CanRedo:Byte()
	Return Not redoList.IsEmpty()
End Function

Function Redo()
	If redoList.IsEmpty() Then Return
	Local h:THistory = THistory(redoList.RemoveFirst())
	h.Redo()
	undoList.AddLast(h)
End Function

Type THistory Abstract
	Method New()
		If Not redoList.IsEmpty()
			redoList = New TList
		End If
		undoList.AddLast(Self)
		If undoList.Count() > MAX_HISTORY
			undoList.RemoveFirst()
		End If
	End Method
	
	Method Undo() Abstract
	Method Redo() Abstract
End Type

Const MAX_HISTORY:Int = 100

Global undoList:TList = New TList
Global redoList:TList = New TList