kolibrios-fun/programs/network/htmlv/browser/include/history.h
Kirill Lipatov (Leency) e783cf020c Text-based Browser 0.9, changes in history.txt
git-svn-id: svn://kolibrios.org@2739 a494cfbc-eb01-0410-851d-a64ba20cac60
2012-06-05 08:25:06 +00:00

58 lines
1.2 KiB
C

struct UrlsHistory {
dword CurrentUrl();
void AddUrl();
byte GoBack();
byte GoForward();
};
UrlsHistory BrowserHistory;
struct path_string {
char Item[4096];
};
#define MAX_HISTORY_NUM 40
path_string history_list[MAX_HISTORY_NUM];
int history_num;
int history_current;
dword UrlsHistory::CurrentUrl()
{
return #history_list[history_current].Item;
}
void UrlsHistory::AddUrl() //òóò íóæåí ââîäèìûé ýëåìåíò - äëÿ óíèâåðñàëüíîñòè
{
if (history_num>0) && (strcmp(#URL,#history_list[history_current].Item)==0) return;
if (history_current>=MAX_HISTORY_NUM-1)
{
history_current/=2;
for (i=0; i<history_current; i++;)
{
copystr(#history_list[MAX_HISTORY_NUM-i].Item, #history_list[i].Item);
}
}
history_current++;
copystr(#URL,#history_list[history_current].Item);
history_num=history_current;
}
byte UrlsHistory::GoBack()
{
if (history_current<=1) return 0;
history_current--;
copystr(#history_list[history_current].Item,#URL);
return 1;
}
byte UrlsHistory::GoForward()
{
if (history_current==history_num) return 0;
history_current++;
copystr(#history_list[history_current].Item,#URL);
return 1;
}