mes: gc_safety.
[mes.git] / src / vector.c
1 /* -*-comment-start: "//";comment-end:""-*-
2  * Mes --- Maxwell Equations of Software
3  * Copyright © 2016,2017 Jan 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) e = REF (e);
46   if (TYPE (e) == TCHAR) e = MAKE_CHAR (VALUE (e));
47   if (TYPE (e) == TNUMBER) e = MAKE_NUMBER (VALUE (e));
48   return e;
49 }
50
51 SCM
52 vector_entry (SCM x) {
53   if (TYPE (x) == TPAIR || TYPE (x) == TSPECIAL || TYPE (x) == TSTRING || TYPE (x) == TSYMBOL || TYPE (x) == TVECTOR) x = MAKE_REF (x);
54   return x;
55 }
56
57 SCM
58 vector_set_x (SCM x, SCM i, SCM e)
59 {
60   assert (TYPE (x) == TVECTOR);
61   assert (VALUE (i) < LENGTH (x));
62   g_cells[VECTOR (x)+VALUE (i)] = g_cells[vector_entry (e)];
63   return cell_unspecified;
64 }
65
66 SCM
67 list_to_vector (SCM x)
68 {
69   VALUE (tmp_num) = VALUE (length (x));
70   SCM v = make_vector (tmp_num);
71   SCM p = VECTOR (v);
72   while (x != cell_nil)
73     {
74       g_cells[p++] = g_cells[vector_entry (car (x))];
75       x = cdr (x);
76     }
77   return v;
78 }
79
80 SCM
81 vector_to_list (SCM v)
82 {
83   SCM x = cell_nil;
84   for (int i = 0; i < LENGTH (v); i++) {
85     SCM e = VECTOR (v)+i;
86     if (TYPE (e) == TREF) e = REF (e);
87     x = append2 (x, cons (e, cell_nil));
88   }
89   return x;
90 }