1 /* ScummVM - Graphic Adventure Engine
2 *
3 * ScummVM is the legal property of its developers, whose names
4 * are too numerous to list here. Please refer to the COPYRIGHT
5 * file distributed with this source distribution.
6 *
7 * This program is free software; you can redistribute it and/or
8 * modify it under the terms of the GNU General Public License
9 * as published by the Free Software Foundation; either version 2
10 * of the License, or (at your option) any later version.
11 *
12 * This program is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 * GNU General Public License for more details.
16 *
17 * You should have received a copy of the GNU General Public License
18 * along with this program; if not, write to the Free Software
19 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
20 *
21 */
22
23 #include "glk/alan3/lists.h"
24 #include "glk/alan3/syserr.h"
25
26 namespace Glk {
27 namespace Alan3 {
28
initArray(void * array)29 void initArray(void *array) {
30 implementationOfSetEndOfArray((Aword *)array);
31 }
32
33 /* How to know we are at end of a table or array, first Aword == EOD */
implementationOfSetEndOfArray(Aword * adr)34 void implementationOfSetEndOfArray(Aword *adr) {
35 *adr = EOD;
36 }
37
38
implementationOfIsEndOfList(Aword * adr)39 bool implementationOfIsEndOfList(Aword *adr) {
40 return *adr == EOD;
41 }
42
lengthOfArrayImplementation(void * array_of_any_type,int element_size_in_bytes)43 int lengthOfArrayImplementation(void *array_of_any_type, int element_size_in_bytes) {
44 int length;
45 int element_size = element_size_in_bytes / sizeof(Aword);
46 Aword *array = (Aword *)array_of_any_type;
47 if (array == NULL)
48 syserr("Taking length of NULL array");
49 for (length = 0; !isEndOfArray(&array[length * element_size]); length++)
50 ;
51 return length;
52 }
53
addElementImplementation(void * array_of_any_type,void * element,int element_size_in_bytes)54 void addElementImplementation(void *array_of_any_type, void *element, int element_size_in_bytes) {
55 Aword *array = (Aword *)array_of_any_type;
56 int length = lengthOfArray(array);
57 int element_size_in_words = element_size_in_bytes / sizeof(Aword);
58 memcpy(&array[length * element_size_in_words], element, element_size_in_bytes);
59 setEndOfArray(&array[(length + 1)*element_size_in_words]);
60 }
61
62 } // End of namespace Alan3
63 } // End of namespace Glk
64