Calypte 0.35: add scroll, mark current encoding in list

git-svn-id: svn://kolibrios.org@7043 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
2017-10-03 14:55:12 +00:00
parent 30b0c444f3
commit 7ed0962aa5
8 changed files with 84 additions and 133 deletions

View File

@@ -63,7 +63,7 @@ void collection::drop() {
= =
========================================================*/
:struct collection_int
struct collection_int
{
int count;
dword element[4096*3];
@@ -72,19 +72,19 @@ void collection::drop() {
void drop();
};
:int collection_int::add(dword in) {
int collection_int::add(dword in) {
if (count >= 4096*3) return 0;
element[count] = in;
count++;
return 1;
}
:dword collection_int::get(dword pos) {
dword collection_int::get(dword pos) {
if (pos<0) || (pos>=count) return 0;
return element[pos];
}
:void collection_int::drop() {
void collection_int::drop() {
element[0] =
count = 0;
}