aabc2/KOS_qrcodes
1
0
Fork 0
forked from KolibriOS/kolibrios
Code Pull Requests Activity

HTMLv 0.75: new futures and bags.

Browse Source 
git-svn-id: svn://kolibrios.org@2413 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Kiril Lipatov
2012-02-27 13:48:04 +00:00
parent a6898aa575
commit 823a0a9a8f
11 changed files with 105 additions and 122 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
programs/network/htmlv/browser/include/history.h Normal file
View File

@@ -0,0 +1,36 @@
struct UrlsHistory {
byte UrlHistory[6000];
void AddUrl();
void GoBack();
dword CurrentUrl();
};
UrlsHistory BrowserHistory;
void UrlsHistory::GoBack()
{
//WriteDebug(#UrlHistory);
j = strlen(#UrlHistory);
WHILE(UrlHistory[j] <>'|') && (j > 0) j--;
IF (j > 0) UrlHistory[j] = 0x00;
WHILE(UrlHistory[j] <>'|') && (j > 0) {
copystr(#UrlHistory[j], #URL);
j--;
}
UrlHistory[j] = 0x00;
WB1.ShowPage(#URL);
}
void UrlsHistory::AddUrl()
{
IF (strlen(#UrlHistory)>6000) copystr(#UrlHistory+5000,#UrlHistory);
copystr("|", #UrlHistory + strlen(#UrlHistory));
copystr(#URL, #UrlHistory + strlen(#UrlHistory));
}
dword UrlsHistory::CurrentUrl()
{
EAX=#UrlHistory + find_symbol(#UrlHistory, '|');
}