Revert "mlibc: Use memmove in realloc."
[mes.git] / src / vector.c
1 /* -*-comment-start: "//";comment-end:""-*-
2  * Mes --- Maxwell Equations of Software
3  * Copyright © 2016,2017,2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
4  *
5  * This file is part of Mes.
6  *
7  * Mes is free software; you can redistribute it and/or modify it
8  * under the terms of the GNU General Public License as published by
9  * the Free Software Foundation; either version 3 of the License, or (at
10  * your option) any later version.
11  *
12  * Mes is distributed in the hope that it will be useful, but
13  * 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 Mes.  If not, see <http://www.gnu.org/licenses/>.
19  */
20
21 SCM
22 make_vector_ (SCM n)
23 {
24   int k = VALUE (n);
25   VALUE (tmp_num) = TVECTOR;
26   SCM v = alloc (k);
27   SCM x = make_cell_ (tmp_num, k, v);
28   for (int i=0; i<k; i++) g_cells[v+i] = g_cells[vector_entry (cell_unspecified)];
29   return x;
30 }
31
32 SCM
33 vector_length (SCM x)
34 {
35   assert (TYPE (x) == TVECTOR);
36   return MAKE_NUMBER (LENGTH (x));
37 }
38
39 SCM
40 vector_ref (SCM x, SCM i)
41 {
42   assert (TYPE (x) == TVECTOR);
43   assert (VALUE (i) < LENGTH (x));
44   SCM e = VECTOR (x) + VALUE (i);
45   if (TYPE (e) == TREF)
46     e = REF (e);
47   if (TYPE (e) == TCHAR)
48     e = MAKE_CHAR (VALUE (e));
49   if (TYPE (e) == TNUMBER)
50     e = MAKE_NUMBER (VALUE (e));
51   return e;
52 }
53
54 SCM
55 vector_entry (SCM x)
56 {
57   if (TYPE (x) == TPAIR || TYPE (x) == TSPECIAL || TYPE (x) == TSTRING || TYPE (x) == TSYMBOL || TYPE (x) == TVECTOR)
58     x = MAKE_REF (x);
59   return x;
60 }
61
62 SCM
63 vector_set_x (SCM x, SCM i, SCM e)
64 {
65   assert (TYPE (x) == TVECTOR);
66   assert (VALUE (i) < LENGTH (x));
67   g_cells[VECTOR (x)+VALUE (i)] = g_cells[vector_entry (e)];
68   return cell_unspecified;
69 }
70
71 SCM
72 list_to_vector (SCM x)
73 {
74   VALUE (tmp_num) = VALUE (length (x));
75   SCM v = make_vector_ (tmp_num);
76   SCM p = VECTOR (v);
77   while (x != cell_nil)
78     {
79       g_cells[p++] = g_cells[vector_entry (car (x))];
80       x = cdr (x);
81     }
82   return v;
83 }
84
85 SCM
86 vector_to_list (SCM v)
87 {
88   SCM x = cell_nil;
89   for (int i = 0; i < LENGTH (v); i++)
90     {
91       SCM e = VECTOR (v)+i;
92       if (TYPE (e) == TREF)
93         e = REF (e);
94       x = append2 (x, cons (e, cell_nil));
95     }
96   return x;
97 }